diff --git a/.idea/.gitignore b/.idea/.gitignore
new file mode 100644
index 0000000000000000000000000000000000000000..13566b81b018ad684f3a35fee301741b2734c8f4
--- /dev/null
+++ b/.idea/.gitignore
@@ -0,0 +1,8 @@
+# Default ignored files
+/shelf/
+/workspace.xml
+# Editor-based HTTP Client requests
+/httpRequests/
+# Datasource local storage ignored files
+/dataSources/
+/dataSources.local.xml
diff --git a/.idea/misc.xml b/.idea/misc.xml
new file mode 100644
index 0000000000000000000000000000000000000000..ca8c3e84ff9323893952ecd05e24828cf3b455ac
--- /dev/null
+++ b/.idea/misc.xml
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project version="4">
+  <component name="Black">
+    <option name="sdkName" value="Python 3.8 (untitled)" />
+  </component>
+  <component name="JsBuildToolPackageJson" sorting="DEFINITION_ORDER" />
+  <component name="ProjectRootManager" version="2" project-jdk-name="Python 3.8 (untitled)" project-jdk-type="Python SDK" />
+</project>
\ No newline at end of file
diff --git a/.idea/modules.xml b/.idea/modules.xml
new file mode 100644
index 0000000000000000000000000000000000000000..00dfd40bca3b44164179c5ff54aac4c0e536b9d7
--- /dev/null
+++ b/.idea/modules.xml
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project version="4">
+  <component name="ProjectModuleManager">
+    <modules>
+      <module fileurl="file://$PROJECT_DIR$/.idea/scm-abl.iml" filepath="$PROJECT_DIR$/.idea/scm-abl.iml" />
+    </modules>
+  </component>
+</project>
\ No newline at end of file
diff --git a/.idea/scm-abl.iml b/.idea/scm-abl.iml
new file mode 100644
index 0000000000000000000000000000000000000000..bc2cd87409057301f546d83bd548111b9a241cb1
--- /dev/null
+++ b/.idea/scm-abl.iml
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<module type="CPP_MODULE" version="4">
+  <component name="NewModuleRootManager">
+    <content url="file://$MODULE_DIR$" />
+    <orderEntry type="inheritedJdk" />
+    <orderEntry type="sourceFolder" forTests="false" />
+  </component>
+</module>
\ No newline at end of file
diff --git a/.idea/vcs.xml b/.idea/vcs.xml
new file mode 100644
index 0000000000000000000000000000000000000000..35eb1ddfbbc029bcab630581847471d7f238ec53
--- /dev/null
+++ b/.idea/vcs.xml
@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project version="4">
+  <component name="VcsDirectoryMappings">
+    <mapping directory="" vcs="Git" />
+  </component>
+</project>
\ No newline at end of file
diff --git a/CMakeLists.txt b/CMakeLists.txt
new file mode 100644
index 0000000000000000000000000000000000000000..7ef0b8a71a241b21e8bbe7dec1937987b134ad9f
--- /dev/null
+++ b/CMakeLists.txt
@@ -0,0 +1,27 @@
+cmake_minimum_required(VERSION 3.23)
+option(BUILD_DOC    "Build documentation"    OFF)
+option(USE_CONFIG_PARSER "Build config parser"    ON)
+option(USE_NETCDF "Enable netcdf library" ON)
+option(WITH_RRTMG "with(out) RRTMG radiation transfer" OFF)
+
+project(scm_abl)
+enable_language(Fortran)
+enable_language(C CXX)
+set(CMAKE_CXX_STANDARD 14)
+
+if(BUILD_DOC)
+    find_package(Doxygen)
+    if (DOXYGEN_FOUND)
+        set(DOXYGEN_IN ${CMAKE_CURRENT_SOURCE_DIR}/doxygen/config)    # doxygen config file
+
+        # option ALL allows to build the docs together with the code
+        add_custom_target( pbl_doc ALL
+                COMMAND ${DOXYGEN_EXECUTABLE} ${DOXYGEN_IN}
+                WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR} ) # WORKING_DIRECTORY: Execute the command with the given current working directory. If it is a relative path it will be interpreted relative to the build tree directory corresponding to the current source directory.
+    else()
+        message("Doxygen need to be installed to generate the doxygen documentation")
+    endif (DOXYGEN_FOUND)
+endif(BUILD_DOC)
+
+
+set(lib_files )
\ No newline at end of file
diff --git a/README.md b/README.md
index 0931bad3ce1ddfdbd807e195c004d9cdaf302474..0959c3bb2d741811ddafd0c53e24ceb531f0ddcc 100644
--- a/README.md
+++ b/README.md
@@ -1,93 +1,31 @@
 # scm-abl
 
-
-
-## Getting started
-
-To make it easy for you to get started with GitLab, here's a list of recommended next steps.
-
-Already a pro? Just edit this README.md and make it your own. Want to make it easy? [Use the template at the bottom](#editing-this-readme)!
-
-## Add your files
-
-- [ ] [Create](https://docs.gitlab.com/ee/user/project/repository/web_editor.html#create-a-file) or [upload](https://docs.gitlab.com/ee/user/project/repository/web_editor.html#upload-a-file) files
-- [ ] [Add files using the command line](https://docs.gitlab.com/ee/gitlab-basics/add-file.html#add-a-file-using-the-command-line) or push an existing Git repository with the following command:
-
-```
-cd existing_repo
-git remote add origin http://tesla.parallel.ru/inmcm60_pbl/scm-abl.git
-git branch -M main
-git push -uf origin main
-```
-
-## Integrate with your tools
-
-- [ ] [Set up project integrations](http://tesla.parallel.ru/inmcm60_pbl/scm-abl/-/settings/integrations)
-
-## Collaborate with your team
-
-- [ ] [Invite team members and collaborators](https://docs.gitlab.com/ee/user/project/members/)
-- [ ] [Create a new merge request](https://docs.gitlab.com/ee/user/project/merge_requests/creating_merge_requests.html)
-- [ ] [Automatically close issues from merge requests](https://docs.gitlab.com/ee/user/project/issues/managing_issues.html#closing-issues-automatically)
-- [ ] [Enable merge request approvals](https://docs.gitlab.com/ee/user/project/merge_requests/approvals/)
-- [ ] [Set auto-merge](https://docs.gitlab.com/ee/user/project/merge_requests/merge_when_pipeline_succeeds.html)
-
-## Test and Deploy
-
-Use the built-in continuous integration in GitLab.
-
-- [ ] [Get started with GitLab CI/CD](https://docs.gitlab.com/ee/ci/quick_start/index.html)
-- [ ] [Analyze your code for known vulnerabilities with Static Application Security Testing (SAST)](https://docs.gitlab.com/ee/user/application_security/sast/)
-- [ ] [Deploy to Kubernetes, Amazon EC2, or Amazon ECS using Auto Deploy](https://docs.gitlab.com/ee/topics/autodevops/requirements.html)
-- [ ] [Use pull-based deployments for improved Kubernetes management](https://docs.gitlab.com/ee/user/clusters/agent/)
-- [ ] [Set up protected environments](https://docs.gitlab.com/ee/ci/environments/protected_environments.html)
-
-***
-
-# Editing this README
-
-When you're ready to make this README your own, just edit this file and use the handy template below (or feel free to structure it however you want - this is just a starting point!). Thanks to [makeareadme.com](https://www.makeareadme.com/) for this template.
-
-## Suggestions for a good README
-
-Every project is different, so consider which of these sections apply to yours. The sections used in the template are suggestions for most open source projects. Also keep in mind that while a README can be too long and detailed, too long is better than too short. If you think your README is too long, consider utilizing another form of documentation rather than cutting out information.
-
-## Name
-Choose a self-explaining name for your project.
-
-## Description
-Let people know what your project can do specifically. Provide context and add a link to any reference visitors might be unfamiliar with. A list of Features or a Background subsection can also be added here. If there are alternatives to your project, this is a good place to list differentiating factors.
-
-## Badges
-On some READMEs, you may see small images that convey metadata, such as whether or not all the tests are passing for the project. You can use Shields to add some to your README. Many services also have instructions for adding a badge.
-
-## Visuals
-Depending on what you are making, it can be a good idea to include screenshots or even a video (you'll frequently see GIFs rather than actual videos). Tools like ttygif can help, but check out Asciinema for a more sophisticated method.
+## Atmospheric signle-column boundary layer routines and tests
+this is a library (and a set of sets test cases) for parameterization of ABL vertical mixing, shallow and deep convection in ABL
+for use in INMCM6 and similar climate models
 
 ## Installation
-Within a particular ecosystem, there may be a common way of installing things, such as using Yarn, NuGet, or Homebrew. However, consider the possibility that whoever is reading your README is a novice and would like more guidance. Listing specific steps helps remove ambiguity and gets people to using your project as quickly as possible. If it only runs in a specific context like a particular programming language version or operating system or has dependencies that have to be installed manually, also add a Requirements subsection.
-
+This is a Cmake based library, so standard cmake rules apply
+
+list of option and their defaults:
+```cmake
+option(BUILD_DOC    "Build documentation"    OFF)
+option(USE_CONFIG_PARSER "Build config parser"    ON)
+option(USE_NETCDF "Enable netcdf library" ON)
+option(WITH_RRTMG "with(out) RRTMG radiation transfer" OFF)
+```
 ## Usage
-Use examples liberally, and show the expected output if you can. It's helpful to have inline the smallest example of usage that you can demonstrate, while providing links to more sophisticated examples if they are too long to reasonably include in the README.
-
+see api examples
 ## Support
-Tell people where they can go to for help. It can be any combination of an issue tracker, a chat room, an email address, etc.
-
-## Roadmap
-If you have ideas for releases in the future, it is a good idea to list them in the README.
 
 ## Contributing
-State if you are open to contributions and what your requirements are for accepting them.
-
-For people who want to make changes to your project, it's helpful to have some documentation on how to get started. Perhaps there is a script that they should run or some environment variables that they need to set. Make these steps explicit. These instructions could also be useful to your future self.
-
-You can also document commands to lint the code or run tests. These steps help to ensure high code quality and reduce the likelihood that the changes inadvertently break something. Having instructions for running tests is especially helpful if it requires external setup, such as starting a Selenium server for testing in a browser.
+Please contribute 
 
 ## Authors and acknowledgment
-Show your appreciation to those who have contributed to the project.
+
 
 ## License
-For open source projects, say how it is licensed.
+GPL-3
 
 ## Project status
-If you have run out of energy or time for your project, put a note at the top of the README saying that development has slowed down or stopped completely. Someone may choose to fork your project or volunteer to step in as a maintainer or owner, allowing your project to keep going. You can also make an explicit request for maintainers.
+in development
\ No newline at end of file
diff --git a/doxygen/config b/doxygen/config
new file mode 100644
index 0000000000000000000000000000000000000000..f22af2d0074c07a674718d40681f92f943a7f073
--- /dev/null
+++ b/doxygen/config
@@ -0,0 +1,2855 @@
+# Doxyfile 1.10.0
+
+# This file describes the settings to be used by the documentation system
+# doxygen (www.doxygen.org) for a project.
+#
+# All text after a double hash (##) is considered a comment and is placed in
+# front of the TAG it is preceding.
+#
+# All text after a single hash (#) is considered a comment and will be ignored.
+# The format is:
+# TAG = value [value, ...]
+# For lists, items can also be appended using:
+# TAG += value [value, ...]
+# Values that contain spaces should be placed between quotes (\" \").
+#
+# Note:
+#
+# Use doxygen to compare the used configuration file with the template
+# configuration file:
+# doxygen -x [configFile]
+# Use doxygen to compare the used configuration file with the template
+# configuration file without replacing the environment variables or CMake type
+# replacement variables:
+# doxygen -x_noenv [configFile]
+
+#---------------------------------------------------------------------------
+# Project related configuration options
+#---------------------------------------------------------------------------
+
+# This tag specifies the encoding used for all characters in the configuration
+# file that follow. The default is UTF-8 which is also the encoding used for all
+# text before the first occurrence of this tag. Doxygen uses libiconv (or the
+# iconv built into libc) for the transcoding. See
+# https://www.gnu.org/software/libiconv/ for the list of possible encodings.
+# The default value is: UTF-8.
+
+DOXYFILE_ENCODING      = UTF-8
+
+# The PROJECT_NAME tag is a single word (or a sequence of words surrounded by
+# double-quotes, unless you are using Doxywizard) that should identify the
+# project for which the documentation is generated. This name is used in the
+# title of most generated pages and in a few other places.
+# The default value is: My Project.
+
+PROJECT_NAME           = "doc-inmcm-pbl-scm"
+
+# The PROJECT_NUMBER tag can be used to enter a project or revision number. This
+# could be handy for archiving the generated documentation or if some version
+# control system is used.
+
+PROJECT_NUMBER         =
+
+# Using the PROJECT_BRIEF tag one can provide an optional one line description
+# for a project that appears at the top of each page and should give viewer a
+# quick idea about the purpose of the project. Keep the description short.
+
+PROJECT_BRIEF          =
+
+# With the PROJECT_LOGO tag one can specify a logo or an icon that is included
+# in the documentation. The maximum height of the logo should not exceed 55
+# pixels and the maximum width should not exceed 200 pixels. Doxygen will copy
+# the logo to the output directory.
+
+PROJECT_LOGO           =
+
+# With the PROJECT_ICON tag one can specify an icon that is included in the tabs
+# when the HTML document is shown. Doxygen will copy the logo to the output
+# directory.
+
+PROJECT_ICON           =
+
+# The OUTPUT_DIRECTORY tag is used to specify the (relative or absolute) path
+# into which the generated documentation will be written. If a relative path is
+# entered, it will be relative to the location where doxygen was started. If
+# left blank the current directory will be used.
+
+OUTPUT_DIRECTORY       =            ../doc-inmcm-pbl-scm
+
+# If the CREATE_SUBDIRS tag is set to YES then doxygen will create up to 4096
+# sub-directories (in 2 levels) under the output directory of each output format
+# and will distribute the generated files over these directories. Enabling this
+# option can be useful when feeding doxygen a huge amount of source files, where
+# putting all generated files in the same directory would otherwise causes
+# performance problems for the file system. Adapt CREATE_SUBDIRS_LEVEL to
+# control the number of sub-directories.
+# The default value is: NO.
+
+CREATE_SUBDIRS         = YES
+
+# Controls the number of sub-directories that will be created when
+# CREATE_SUBDIRS tag is set to YES. Level 0 represents 16 directories, and every
+# level increment doubles the number of directories, resulting in 4096
+# directories at level 8 which is the default and also the maximum value. The
+# sub-directories are organized in 2 levels, the first level always has a fixed
+# number of 16 directories.
+# Minimum value: 0, maximum value: 8, default value: 8.
+# This tag requires that the tag CREATE_SUBDIRS is set to YES.
+
+CREATE_SUBDIRS_LEVEL   = 8
+
+# If the ALLOW_UNICODE_NAMES tag is set to YES, doxygen will allow non-ASCII
+# characters to appear in the names of generated files. If set to NO, non-ASCII
+# characters will be escaped, for example _xE3_x81_x84 will be used for Unicode
+# U+3044.
+# The default value is: NO.
+
+ALLOW_UNICODE_NAMES    = NO
+
+# The OUTPUT_LANGUAGE tag is used to specify the language in which all
+# documentation generated by doxygen is written. Doxygen will use this
+# information to generate all constant output in the proper language.
+# Possible values are: Afrikaans, Arabic, Armenian, Brazilian, Bulgarian,
+# Catalan, Chinese, Chinese-Traditional, Croatian, Czech, Danish, Dutch, English
+# (United States), Esperanto, Farsi (Persian), Finnish, French, German, Greek,
+# Hindi, Hungarian, Indonesian, Italian, Japanese, Japanese-en (Japanese with
+# English messages), Korean, Korean-en (Korean with English messages), Latvian,
+# Lithuanian, Macedonian, Norwegian, Persian (Farsi), Polish, Portuguese,
+# Romanian, Russian, Serbian, Serbian-Cyrillic, Slovak, Slovene, Spanish,
+# Swedish, Turkish, Ukrainian and Vietnamese.
+# The default value is: English.
+
+OUTPUT_LANGUAGE        = English
+
+# If the BRIEF_MEMBER_DESC tag is set to YES, doxygen will include brief member
+# descriptions after the members that are listed in the file and class
+# documentation (similar to Javadoc). Set to NO to disable this.
+# The default value is: YES.
+
+BRIEF_MEMBER_DESC      = YES
+
+# If the REPEAT_BRIEF tag is set to YES, doxygen will prepend the brief
+# description of a member or function before the detailed description
+#
+# Note: If both HIDE_UNDOC_MEMBERS and BRIEF_MEMBER_DESC are set to NO, the
+# brief descriptions will be completely suppressed.
+# The default value is: YES.
+
+REPEAT_BRIEF           = YES
+
+# This tag implements a quasi-intelligent brief description abbreviator that is
+# used to form the text in various listings. Each string in this list, if found
+# as the leading text of the brief description, will be stripped from the text
+# and the result, after processing the whole list, is used as the annotated
+# text. Otherwise, the brief description is used as-is. If left blank, the
+# following values are used ($name is automatically replaced with the name of
+# the entity):The $name class, The $name widget, The $name file, is, provides,
+# specifies, contains, represents, a, an and the.
+
+ABBREVIATE_BRIEF       = "The $name class" \
+                         "The $name widget" \
+                         "The $name file" \
+                         is \
+                         provides \
+                         specifies \
+                         contains \
+                         represents \
+                         a \
+                         an \
+                         the
+
+# If the ALWAYS_DETAILED_SEC and REPEAT_BRIEF tags are both set to YES then
+# doxygen will generate a detailed section even if there is only a brief
+# description.
+# The default value is: NO.
+
+ALWAYS_DETAILED_SEC    = NO
+
+# If the INLINE_INHERITED_MEMB tag is set to YES, doxygen will show all
+# inherited members of a class in the documentation of that class as if those
+# members were ordinary class members. Constructors, destructors and assignment
+# operators of the base classes will not be shown.
+# The default value is: NO.
+
+INLINE_INHERITED_MEMB  = NO
+
+# If the FULL_PATH_NAMES tag is set to YES, doxygen will prepend the full path
+# before files name in the file list and in the header files. If set to NO the
+# shortest path that makes the file name unique will be used
+# The default value is: YES.
+
+FULL_PATH_NAMES        = YES
+
+# The STRIP_FROM_PATH tag can be used to strip a user-defined part of the path.
+# Stripping is only done if one of the specified strings matches the left-hand
+# part of the path. The tag can be used to show relative paths in the file list.
+# If left blank the directory from which doxygen is run is used as the path to
+# strip.
+#
+# Note that you can specify absolute paths here, but also relative paths, which
+# will be relative from the directory where doxygen is started.
+# This tag requires that the tag FULL_PATH_NAMES is set to YES.
+
+STRIP_FROM_PATH        =
+
+# The STRIP_FROM_INC_PATH tag can be used to strip a user-defined part of the
+# path mentioned in the documentation of a class, which tells the reader which
+# header file to include in order to use a class. If left blank only the name of
+# the header file containing the class definition is used. Otherwise one should
+# specify the list of include paths that are normally passed to the compiler
+# using the -I flag.
+
+STRIP_FROM_INC_PATH    =
+
+# If the SHORT_NAMES tag is set to YES, doxygen will generate much shorter (but
+# less readable) file names. This can be useful is your file systems doesn't
+# support long names like on DOS, Mac, or CD-ROM.
+# The default value is: NO.
+
+SHORT_NAMES            = NO
+
+# If the JAVADOC_AUTOBRIEF tag is set to YES then doxygen will interpret the
+# first line (until the first dot) of a Javadoc-style comment as the brief
+# description. If set to NO, the Javadoc-style will behave just like regular Qt-
+# style comments (thus requiring an explicit @brief command for a brief
+# description.)
+# The default value is: NO.
+
+JAVADOC_AUTOBRIEF      = NO
+
+# If the JAVADOC_BANNER tag is set to YES then doxygen will interpret a line
+# such as
+# /***************
+# as being the beginning of a Javadoc-style comment "banner". If set to NO, the
+# Javadoc-style will behave just like regular comments and it will not be
+# interpreted by doxygen.
+# The default value is: NO.
+
+JAVADOC_BANNER         = NO
+
+# If the QT_AUTOBRIEF tag is set to YES then doxygen will interpret the first
+# line (until the first dot) of a Qt-style comment as the brief description. If
+# set to NO, the Qt-style will behave just like regular Qt-style comments (thus
+# requiring an explicit \brief command for a brief description.)
+# The default value is: NO.
+
+QT_AUTOBRIEF           = NO
+
+# The MULTILINE_CPP_IS_BRIEF tag can be set to YES to make doxygen treat a
+# multi-line C++ special comment block (i.e. a block of //! or /// comments) as
+# a brief description. This used to be the default behavior. The new default is
+# to treat a multi-line C++ comment block as a detailed description. Set this
+# tag to YES if you prefer the old behavior instead.
+#
+# Note that setting this tag to YES also means that rational rose comments are
+# not recognized any more.
+# The default value is: NO.
+
+MULTILINE_CPP_IS_BRIEF = NO
+
+# By default Python docstrings are displayed as preformatted text and doxygen's
+# special commands cannot be used. By setting PYTHON_DOCSTRING to NO the
+# doxygen's special commands can be used and the contents of the docstring
+# documentation blocks is shown as doxygen documentation.
+# The default value is: YES.
+
+PYTHON_DOCSTRING       = YES
+
+# If the INHERIT_DOCS tag is set to YES then an undocumented member inherits the
+# documentation from any documented member that it re-implements.
+# The default value is: YES.
+
+INHERIT_DOCS           = YES
+
+# If the SEPARATE_MEMBER_PAGES tag is set to YES then doxygen will produce a new
+# page for each member. If set to NO, the documentation of a member will be part
+# of the file/class/namespace that contains it.
+# The default value is: NO.
+
+SEPARATE_MEMBER_PAGES  = NO
+
+# The TAB_SIZE tag can be used to set the number of spaces in a tab. Doxygen
+# uses this value to replace tabs by spaces in code fragments.
+# Minimum value: 1, maximum value: 16, default value: 4.
+
+TAB_SIZE               = 4
+
+# This tag can be used to specify a number of aliases that act as commands in
+# the documentation. An alias has the form:
+# name=value
+# For example adding
+# "sideeffect=@par Side Effects:^^"
+# will allow you to put the command \sideeffect (or @sideeffect) in the
+# documentation, which will result in a user-defined paragraph with heading
+# "Side Effects:". Note that you cannot put \n's in the value part of an alias
+# to insert newlines (in the resulting output). You can put ^^ in the value part
+# of an alias to insert a newline as if a physical newline was in the original
+# file. When you need a literal { or } or , in the value part of an alias you
+# have to escape them by means of a backslash (\), this can lead to conflicts
+# with the commands \{ and \} for these it is advised to use the version @{ and
+# @} or use a double escape (\\{ and \\})
+
+ALIASES                =
+
+# Set the OPTIMIZE_OUTPUT_FOR_C tag to YES if your project consists of C sources
+# only. Doxygen will then generate output that is more tailored for C. For
+# instance, some of the names that are used will be different. The list of all
+# members will be omitted, etc.
+# The default value is: NO.
+
+OPTIMIZE_OUTPUT_FOR_C  = NO
+
+# Set the OPTIMIZE_OUTPUT_JAVA tag to YES if your project consists of Java or
+# Python sources only. Doxygen will then generate output that is more tailored
+# for that language. For instance, namespaces will be presented as packages,
+# qualified scopes will look different, etc.
+# The default value is: NO.
+
+OPTIMIZE_OUTPUT_JAVA   = NO
+
+# Set the OPTIMIZE_FOR_FORTRAN tag to YES if your project consists of Fortran
+# sources. Doxygen will then generate output that is tailored for Fortran.
+# The default value is: NO.
+
+OPTIMIZE_FOR_FORTRAN   = YES
+
+# Set the OPTIMIZE_OUTPUT_VHDL tag to YES if your project consists of VHDL
+# sources. Doxygen will then generate output that is tailored for VHDL.
+# The default value is: NO.
+
+OPTIMIZE_OUTPUT_VHDL   = NO
+
+# Set the OPTIMIZE_OUTPUT_SLICE tag to YES if your project consists of Slice
+# sources only. Doxygen will then generate output that is more tailored for that
+# language. For instance, namespaces will be presented as modules, types will be
+# separated into more groups, etc.
+# The default value is: NO.
+
+OPTIMIZE_OUTPUT_SLICE  = NO
+
+# Doxygen selects the parser to use depending on the extension of the files it
+# parses. With this tag you can assign which parser to use for a given
+# extension. Doxygen has a built-in mapping, but you can override or extend it
+# using this tag. The format is ext=language, where ext is a file extension, and
+# language is one of the parsers supported by doxygen: IDL, Java, JavaScript,
+# Csharp (C#), C, C++, Lex, D, PHP, md (Markdown), Objective-C, Python, Slice,
+# VHDL, Fortran (fixed format Fortran: FortranFixed, free formatted Fortran:
+# FortranFree, unknown formatted Fortran: Fortran. In the later case the parser
+# tries to guess whether the code is fixed or free formatted code, this is the
+# default for Fortran type files). For instance to make doxygen treat .inc files
+# as Fortran files (default is PHP), and .f files as C (default is Fortran),
+# use: inc=Fortran f=C.
+#
+# Note: For files without extension you can use no_extension as a placeholder.
+#
+# Note that for custom extensions you also need to set FILE_PATTERNS otherwise
+# the files are not read by doxygen. When specifying no_extension you should add
+# * to the FILE_PATTERNS.
+#
+# Note see also the list of default file extension mappings.
+
+EXTENSION_MAPPING      =            cu=c++ F=FortranFixed f90=FortranFree
+
+# If the MARKDOWN_SUPPORT tag is enabled then doxygen pre-processes all comments
+# according to the Markdown format, which allows for more readable
+# documentation. See https://daringfireball.net/projects/markdown/ for details.
+# The output of markdown processing is further processed by doxygen, so you can
+# mix doxygen, HTML, and XML commands with Markdown formatting. Disable only in
+# case of backward compatibilities issues.
+# The default value is: YES.
+
+MARKDOWN_SUPPORT       = YES
+
+# When the TOC_INCLUDE_HEADINGS tag is set to a non-zero value, all headings up
+# to that level are automatically included in the table of contents, even if
+# they do not have an id attribute.
+# Note: This feature currently applies only to Markdown headings.
+# Minimum value: 0, maximum value: 99, default value: 5.
+# This tag requires that the tag MARKDOWN_SUPPORT is set to YES.
+
+TOC_INCLUDE_HEADINGS   = 5
+
+# The MARKDOWN_ID_STYLE tag can be used to specify the algorithm used to
+# generate identifiers for the Markdown headings. Note: Every identifier is
+# unique.
+# Possible values are: DOXYGEN use a fixed 'autotoc_md' string followed by a
+# sequence number starting at 0 and GITHUB use the lower case version of title
+# with any whitespace replaced by '-' and punctuation characters removed.
+# The default value is: DOXYGEN.
+# This tag requires that the tag MARKDOWN_SUPPORT is set to YES.
+
+MARKDOWN_ID_STYLE      = DOXYGEN
+
+# When enabled doxygen tries to link words that correspond to documented
+# classes, or namespaces to their corresponding documentation. Such a link can
+# be prevented in individual cases by putting a % sign in front of the word or
+# globally by setting AUTOLINK_SUPPORT to NO.
+# The default value is: YES.
+
+AUTOLINK_SUPPORT       = YES
+
+# If you use STL classes (i.e. std::string, std::vector, etc.) but do not want
+# to include (a tag file for) the STL sources as input, then you should set this
+# tag to YES in order to let doxygen match functions declarations and
+# definitions whose arguments contain STL classes (e.g. func(std::string);
+# versus func(std::string) {}). This also make the inheritance and collaboration
+# diagrams that involve STL classes more complete and accurate.
+# The default value is: NO.
+
+BUILTIN_STL_SUPPORT    = NO
+
+# If you use Microsoft's C++/CLI language, you should set this option to YES to
+# enable parsing support.
+# The default value is: NO.
+
+CPP_CLI_SUPPORT        = NO
+
+# Set the SIP_SUPPORT tag to YES if your project consists of sip (see:
+# https://www.riverbankcomputing.com/software/sip/intro) sources only. Doxygen
+# will parse them like normal C++ but will assume all classes use public instead
+# of private inheritance when no explicit protection keyword is present.
+# The default value is: NO.
+
+SIP_SUPPORT            = NO
+
+# For Microsoft's IDL there are propget and propput attributes to indicate
+# getter and setter methods for a property. Setting this option to YES will make
+# doxygen to replace the get and set methods by a property in the documentation.
+# This will only work if the methods are indeed getting or setting a simple
+# type. If this is not the case, or you want to show the methods anyway, you
+# should set this option to NO.
+# The default value is: YES.
+
+IDL_PROPERTY_SUPPORT   = YES
+
+# If member grouping is used in the documentation and the DISTRIBUTE_GROUP_DOC
+# tag is set to YES then doxygen will reuse the documentation of the first
+# member in the group (if any) for the other members of the group. By default
+# all members of a group must be documented explicitly.
+# The default value is: NO.
+
+DISTRIBUTE_GROUP_DOC   = NO
+
+# If one adds a struct or class to a group and this option is enabled, then also
+# any nested class or struct is added to the same group. By default this option
+# is disabled and one has to add nested compounds explicitly via \ingroup.
+# The default value is: NO.
+
+GROUP_NESTED_COMPOUNDS = NO
+
+# Set the SUBGROUPING tag to YES to allow class member groups of the same type
+# (for instance a group of public functions) to be put as a subgroup of that
+# type (e.g. under the Public Functions section). Set it to NO to prevent
+# subgrouping. Alternatively, this can be done per class using the
+# \nosubgrouping command.
+# The default value is: YES.
+
+SUBGROUPING            = YES
+
+# When the INLINE_GROUPED_CLASSES tag is set to YES, classes, structs and unions
+# are shown inside the group in which they are included (e.g. using \ingroup)
+# instead of on a separate page (for HTML and Man pages) or section (for LaTeX
+# and RTF).
+#
+# Note that this feature does not work in combination with
+# SEPARATE_MEMBER_PAGES.
+# The default value is: NO.
+
+INLINE_GROUPED_CLASSES = NO
+
+# When the INLINE_SIMPLE_STRUCTS tag is set to YES, structs, classes, and unions
+# with only public data fields or simple typedef fields will be shown inline in
+# the documentation of the scope in which they are defined (i.e. file,
+# namespace, or group documentation), provided this scope is documented. If set
+# to NO, structs, classes, and unions are shown on a separate page (for HTML and
+# Man pages) or section (for LaTeX and RTF).
+# The default value is: NO.
+
+INLINE_SIMPLE_STRUCTS  = NO
+
+# When TYPEDEF_HIDES_STRUCT tag is enabled, a typedef of a struct, union, or
+# enum is documented as struct, union, or enum with the name of the typedef. So
+# typedef struct TypeS {} TypeT, will appear in the documentation as a struct
+# with name TypeT. When disabled the typedef will appear as a member of a file,
+# namespace, or class. And the struct will be named TypeS. This can typically be
+# useful for C code in case the coding convention dictates that all compound
+# types are typedef'ed and only the typedef is referenced, never the tag name.
+# The default value is: NO.
+
+TYPEDEF_HIDES_STRUCT   = NO
+
+# The size of the symbol lookup cache can be set using LOOKUP_CACHE_SIZE. This
+# cache is used to resolve symbols given their name and scope. Since this can be
+# an expensive process and often the same symbol appears multiple times in the
+# code, doxygen keeps a cache of pre-resolved symbols. If the cache is too small
+# doxygen will become slower. If the cache is too large, memory is wasted. The
+# cache size is given by this formula: 2^(16+LOOKUP_CACHE_SIZE). The valid range
+# is 0..9, the default is 0, corresponding to a cache size of 2^16=65536
+# symbols. At the end of a run doxygen will report the cache usage and suggest
+# the optimal cache size from a speed point of view.
+# Minimum value: 0, maximum value: 9, default value: 0.
+
+LOOKUP_CACHE_SIZE      = 0
+
+# The NUM_PROC_THREADS specifies the number of threads doxygen is allowed to use
+# during processing. When set to 0 doxygen will based this on the number of
+# cores available in the system. You can set it explicitly to a value larger
+# than 0 to get more control over the balance between CPU load and processing
+# speed. At this moment only the input processing can be done using multiple
+# threads. Since this is still an experimental feature the default is set to 1,
+# which effectively disables parallel processing. Please report any issues you
+# encounter. Generating dot graphs in parallel is controlled by the
+# DOT_NUM_THREADS setting.
+# Minimum value: 0, maximum value: 32, default value: 1.
+
+NUM_PROC_THREADS       = 1
+
+# If the TIMESTAMP tag is set different from NO then each generated page will
+# contain the date or date and time when the page was generated. Setting this to
+# NO can help when comparing the output of multiple runs.
+# Possible values are: YES, NO, DATETIME and DATE.
+# The default value is: NO.
+
+TIMESTAMP              = NO
+
+#---------------------------------------------------------------------------
+# Build related configuration options
+#---------------------------------------------------------------------------
+
+# If the EXTRACT_ALL tag is set to YES, doxygen will assume all entities in
+# documentation are documented, even if no documentation was available. Private
+# class members and static file members will be hidden unless the
+# EXTRACT_PRIVATE respectively EXTRACT_STATIC tags are set to YES.
+# Note: This will also disable the warnings about undocumented members that are
+# normally produced when WARNINGS is set to YES.
+# The default value is: NO.
+
+EXTRACT_ALL            = YES
+
+# If the EXTRACT_PRIVATE tag is set to YES, all private members of a class will
+# be included in the documentation.
+# The default value is: NO.
+
+EXTRACT_PRIVATE        = NO
+
+# If the EXTRACT_PRIV_VIRTUAL tag is set to YES, documented private virtual
+# methods of a class will be included in the documentation.
+# The default value is: NO.
+
+EXTRACT_PRIV_VIRTUAL   = NO
+
+# If the EXTRACT_PACKAGE tag is set to YES, all members with package or internal
+# scope will be included in the documentation.
+# The default value is: NO.
+
+EXTRACT_PACKAGE        = NO
+
+# If the EXTRACT_STATIC tag is set to YES, all static members of a file will be
+# included in the documentation.
+# The default value is: NO.
+
+EXTRACT_STATIC         = NO
+
+# If the EXTRACT_LOCAL_CLASSES tag is set to YES, classes (and structs) defined
+# locally in source files will be included in the documentation. If set to NO,
+# only classes defined in header files are included. Does not have any effect
+# for Java sources.
+# The default value is: YES.
+
+EXTRACT_LOCAL_CLASSES  = YES
+
+# This flag is only useful for Objective-C code. If set to YES, local methods,
+# which are defined in the implementation section but not in the interface are
+# included in the documentation. If set to NO, only methods in the interface are
+# included.
+# The default value is: NO.
+
+EXTRACT_LOCAL_METHODS  = NO
+
+# If this flag is set to YES, the members of anonymous namespaces will be
+# extracted and appear in the documentation as a namespace called
+# 'anonymous_namespace{file}', where file will be replaced with the base name of
+# the file that contains the anonymous namespace. By default anonymous namespace
+# are hidden.
+# The default value is: NO.
+
+EXTRACT_ANON_NSPACES   = NO
+
+# If this flag is set to YES, the name of an unnamed parameter in a declaration
+# will be determined by the corresponding definition. By default unnamed
+# parameters remain unnamed in the output.
+# The default value is: YES.
+
+RESOLVE_UNNAMED_PARAMS = YES
+
+# If the HIDE_UNDOC_MEMBERS tag is set to YES, doxygen will hide all
+# undocumented members inside documented classes or files. If set to NO these
+# members will be included in the various overviews, but no documentation
+# section is generated. This option has no effect if EXTRACT_ALL is enabled.
+# The default value is: NO.
+
+HIDE_UNDOC_MEMBERS     = NO
+
+# If the HIDE_UNDOC_CLASSES tag is set to YES, doxygen will hide all
+# undocumented classes that are normally visible in the class hierarchy. If set
+# to NO, these classes will be included in the various overviews. This option
+# will also hide undocumented C++ concepts if enabled. This option has no effect
+# if EXTRACT_ALL is enabled.
+# The default value is: NO.
+
+HIDE_UNDOC_CLASSES     = NO
+
+# If the HIDE_FRIEND_COMPOUNDS tag is set to YES, doxygen will hide all friend
+# declarations. If set to NO, these declarations will be included in the
+# documentation.
+# The default value is: NO.
+
+HIDE_FRIEND_COMPOUNDS  = NO
+
+# If the HIDE_IN_BODY_DOCS tag is set to YES, doxygen will hide any
+# documentation blocks found inside the body of a function. If set to NO, these
+# blocks will be appended to the function's detailed documentation block.
+# The default value is: NO.
+
+HIDE_IN_BODY_DOCS      = NO
+
+# The INTERNAL_DOCS tag determines if documentation that is typed after a
+# \internal command is included. If the tag is set to NO then the documentation
+# will be excluded. Set it to YES to include the internal documentation.
+# The default value is: NO.
+
+INTERNAL_DOCS          = NO
+
+# With the correct setting of option CASE_SENSE_NAMES doxygen will better be
+# able to match the capabilities of the underlying filesystem. In case the
+# filesystem is case sensitive (i.e. it supports files in the same directory
+# whose names only differ in casing), the option must be set to YES to properly
+# deal with such files in case they appear in the input. For filesystems that
+# are not case sensitive the option should be set to NO to properly deal with
+# output files written for symbols that only differ in casing, such as for two
+# classes, one named CLASS and the other named Class, and to also support
+# references to files without having to specify the exact matching casing. On
+# Windows (including Cygwin) and MacOS, users should typically set this option
+# to NO, whereas on Linux or other Unix flavors it should typically be set to
+# YES.
+# Possible values are: SYSTEM, NO and YES.
+# The default value is: SYSTEM.
+
+CASE_SENSE_NAMES       = SYSTEM
+
+# If the HIDE_SCOPE_NAMES tag is set to NO then doxygen will show members with
+# their full class and namespace scopes in the documentation. If set to YES, the
+# scope will be hidden.
+# The default value is: NO.
+
+HIDE_SCOPE_NAMES       = NO
+
+# If the HIDE_COMPOUND_REFERENCE tag is set to NO (default) then doxygen will
+# append additional text to a page's title, such as Class Reference. If set to
+# YES the compound reference will be hidden.
+# The default value is: NO.
+
+HIDE_COMPOUND_REFERENCE= NO
+
+# If the SHOW_HEADERFILE tag is set to YES then the documentation for a class
+# will show which file needs to be included to use the class.
+# The default value is: YES.
+
+SHOW_HEADERFILE        = YES
+
+# If the SHOW_INCLUDE_FILES tag is set to YES then doxygen will put a list of
+# the files that are included by a file in the documentation of that file.
+# The default value is: YES.
+
+SHOW_INCLUDE_FILES     = YES
+
+# If the SHOW_GROUPED_MEMB_INC tag is set to YES then Doxygen will add for each
+# grouped member an include statement to the documentation, telling the reader
+# which file to include in order to use the member.
+# The default value is: NO.
+
+SHOW_GROUPED_MEMB_INC  = NO
+
+# If the FORCE_LOCAL_INCLUDES tag is set to YES then doxygen will list include
+# files with double quotes in the documentation rather than with sharp brackets.
+# The default value is: NO.
+
+FORCE_LOCAL_INCLUDES   = NO
+
+# If the INLINE_INFO tag is set to YES then a tag [inline] is inserted in the
+# documentation for inline members.
+# The default value is: YES.
+
+INLINE_INFO            = YES
+
+# If the SORT_MEMBER_DOCS tag is set to YES then doxygen will sort the
+# (detailed) documentation of file and class members alphabetically by member
+# name. If set to NO, the members will appear in declaration order.
+# The default value is: YES.
+
+SORT_MEMBER_DOCS       = YES
+
+# If the SORT_BRIEF_DOCS tag is set to YES then doxygen will sort the brief
+# descriptions of file, namespace and class members alphabetically by member
+# name. If set to NO, the members will appear in declaration order. Note that
+# this will also influence the order of the classes in the class list.
+# The default value is: NO.
+
+SORT_BRIEF_DOCS        = NO
+
+# If the SORT_MEMBERS_CTORS_1ST tag is set to YES then doxygen will sort the
+# (brief and detailed) documentation of class members so that constructors and
+# destructors are listed first. If set to NO the constructors will appear in the
+# respective orders defined by SORT_BRIEF_DOCS and SORT_MEMBER_DOCS.
+# Note: If SORT_BRIEF_DOCS is set to NO this option is ignored for sorting brief
+# member documentation.
+# Note: If SORT_MEMBER_DOCS is set to NO this option is ignored for sorting
+# detailed member documentation.
+# The default value is: NO.
+
+SORT_MEMBERS_CTORS_1ST = NO
+
+# If the SORT_GROUP_NAMES tag is set to YES then doxygen will sort the hierarchy
+# of group names into alphabetical order. If set to NO the group names will
+# appear in their defined order.
+# The default value is: NO.
+
+SORT_GROUP_NAMES       = NO
+
+# If the SORT_BY_SCOPE_NAME tag is set to YES, the class list will be sorted by
+# fully-qualified names, including namespaces. If set to NO, the class list will
+# be sorted only by class name, not including the namespace part.
+# Note: This option is not very useful if HIDE_SCOPE_NAMES is set to YES.
+# Note: This option applies only to the class list, not to the alphabetical
+# list.
+# The default value is: NO.
+
+SORT_BY_SCOPE_NAME     = NO
+
+# If the STRICT_PROTO_MATCHING option is enabled and doxygen fails to do proper
+# type resolution of all parameters of a function it will reject a match between
+# the prototype and the implementation of a member function even if there is
+# only one candidate or it is obvious which candidate to choose by doing a
+# simple string match. By disabling STRICT_PROTO_MATCHING doxygen will still
+# accept a match between prototype and implementation in such cases.
+# The default value is: NO.
+
+STRICT_PROTO_MATCHING  = NO
+
+# The GENERATE_TODOLIST tag can be used to enable (YES) or disable (NO) the todo
+# list. This list is created by putting \todo commands in the documentation.
+# The default value is: YES.
+
+GENERATE_TODOLIST      = YES
+
+# The GENERATE_TESTLIST tag can be used to enable (YES) or disable (NO) the test
+# list. This list is created by putting \test commands in the documentation.
+# The default value is: YES.
+
+GENERATE_TESTLIST      = YES
+
+# The GENERATE_BUGLIST tag can be used to enable (YES) or disable (NO) the bug
+# list. This list is created by putting \bug commands in the documentation.
+# The default value is: YES.
+
+GENERATE_BUGLIST       = YES
+
+# The GENERATE_DEPRECATEDLIST tag can be used to enable (YES) or disable (NO)
+# the deprecated list. This list is created by putting \deprecated commands in
+# the documentation.
+# The default value is: YES.
+
+GENERATE_DEPRECATEDLIST= YES
+
+# The ENABLED_SECTIONS tag can be used to enable conditional documentation
+# sections, marked by \if <section_label> ... \endif and \cond <section_label>
+# ... \endcond blocks.
+
+ENABLED_SECTIONS       =
+
+# The MAX_INITIALIZER_LINES tag determines the maximum number of lines that the
+# initial value of a variable or macro / define can have for it to appear in the
+# documentation. If the initializer consists of more lines than specified here
+# it will be hidden. Use a value of 0 to hide initializers completely. The
+# appearance of the value of individual variables and macros / defines can be
+# controlled using \showinitializer or \hideinitializer command in the
+# documentation regardless of this setting.
+# Minimum value: 0, maximum value: 10000, default value: 30.
+
+MAX_INITIALIZER_LINES  = 30
+
+# Set the SHOW_USED_FILES tag to NO to disable the list of files generated at
+# the bottom of the documentation of classes and structs. If set to YES, the
+# list will mention the files that were used to generate the documentation.
+# The default value is: YES.
+
+SHOW_USED_FILES        = YES
+
+# Set the SHOW_FILES tag to NO to disable the generation of the Files page. This
+# will remove the Files entry from the Quick Index and from the Folder Tree View
+# (if specified).
+# The default value is: YES.
+
+SHOW_FILES             = YES
+
+# Set the SHOW_NAMESPACES tag to NO to disable the generation of the Namespaces
+# page. This will remove the Namespaces entry from the Quick Index and from the
+# Folder Tree View (if specified).
+# The default value is: YES.
+
+SHOW_NAMESPACES        = YES
+
+# The FILE_VERSION_FILTER tag can be used to specify a program or script that
+# doxygen should invoke to get the current version for each file (typically from
+# the version control system). Doxygen will invoke the program by executing (via
+# popen()) the command command input-file, where command is the value of the
+# FILE_VERSION_FILTER tag, and input-file is the name of an input file provided
+# by doxygen. Whatever the program writes to standard output is used as the file
+# version. For an example see the documentation.
+
+FILE_VERSION_FILTER    =
+
+# The LAYOUT_FILE tag can be used to specify a layout file which will be parsed
+# by doxygen. The layout file controls the global structure of the generated
+# output files in an output format independent way. To create the layout file
+# that represents doxygen's defaults, run doxygen with the -l option. You can
+# optionally specify a file name after the option, if omitted DoxygenLayout.xml
+# will be used as the name of the layout file. See also section "Changing the
+# layout of pages" for information.
+#
+# Note that if you run doxygen from a directory containing a file called
+# DoxygenLayout.xml, doxygen will parse it automatically even if the LAYOUT_FILE
+# tag is left empty.
+
+LAYOUT_FILE            =
+
+# The CITE_BIB_FILES tag can be used to specify one or more bib files containing
+# the reference definitions. This must be a list of .bib files. The .bib
+# extension is automatically appended if omitted. This requires the bibtex tool
+# to be installed. See also https://en.wikipedia.org/wiki/BibTeX for more info.
+# For LaTeX the style of the bibliography can be controlled using
+# LATEX_BIB_STYLE. To use this feature you need bibtex and perl available in the
+# search path. See also \cite for info how to create references.
+
+CITE_BIB_FILES         =
+
+#---------------------------------------------------------------------------
+# Configuration options related to warning and progress messages
+#---------------------------------------------------------------------------
+
+# The QUIET tag can be used to turn on/off the messages that are generated to
+# standard output by doxygen. If QUIET is set to YES this implies that the
+# messages are off.
+# The default value is: NO.
+
+QUIET                  = NO
+
+# The WARNINGS tag can be used to turn on/off the warning messages that are
+# generated to standard error (stderr) by doxygen. If WARNINGS is set to YES
+# this implies that the warnings are on.
+#
+# Tip: Turn warnings on while writing the documentation.
+# The default value is: YES.
+
+WARNINGS               = YES
+
+# If the WARN_IF_UNDOCUMENTED tag is set to YES then doxygen will generate
+# warnings for undocumented members. If EXTRACT_ALL is set to YES then this flag
+# will automatically be disabled.
+# The default value is: YES.
+
+WARN_IF_UNDOCUMENTED   = YES
+
+# If the WARN_IF_DOC_ERROR tag is set to YES, doxygen will generate warnings for
+# potential errors in the documentation, such as documenting some parameters in
+# a documented function twice, or documenting parameters that don't exist or
+# using markup commands wrongly.
+# The default value is: YES.
+
+WARN_IF_DOC_ERROR      = YES
+
+# If WARN_IF_INCOMPLETE_DOC is set to YES, doxygen will warn about incomplete
+# function parameter documentation. If set to NO, doxygen will accept that some
+# parameters have no documentation without warning.
+# The default value is: YES.
+
+WARN_IF_INCOMPLETE_DOC = YES
+
+# This WARN_NO_PARAMDOC option can be enabled to get warnings for functions that
+# are documented, but have no documentation for their parameters or return
+# value. If set to NO, doxygen will only warn about wrong parameter
+# documentation, but not about the absence of documentation. If EXTRACT_ALL is
+# set to YES then this flag will automatically be disabled. See also
+# WARN_IF_INCOMPLETE_DOC
+# The default value is: NO.
+
+WARN_NO_PARAMDOC       = NO
+
+# If WARN_IF_UNDOC_ENUM_VAL option is set to YES, doxygen will warn about
+# undocumented enumeration values. If set to NO, doxygen will accept
+# undocumented enumeration values. If EXTRACT_ALL is set to YES then this flag
+# will automatically be disabled.
+# The default value is: NO.
+
+WARN_IF_UNDOC_ENUM_VAL = NO
+
+# If the WARN_AS_ERROR tag is set to YES then doxygen will immediately stop when
+# a warning is encountered. If the WARN_AS_ERROR tag is set to FAIL_ON_WARNINGS
+# then doxygen will continue running as if WARN_AS_ERROR tag is set to NO, but
+# at the end of the doxygen process doxygen will return with a non-zero status.
+# If the WARN_AS_ERROR tag is set to FAIL_ON_WARNINGS_PRINT then doxygen behaves
+# like FAIL_ON_WARNINGS but in case no WARN_LOGFILE is defined doxygen will not
+# write the warning messages in between other messages but write them at the end
+# of a run, in case a WARN_LOGFILE is defined the warning messages will be
+# besides being in the defined file also be shown at the end of a run, unless
+# the WARN_LOGFILE is defined as - i.e. standard output (stdout) in that case
+# the behavior will remain as with the setting FAIL_ON_WARNINGS.
+# Possible values are: NO, YES, FAIL_ON_WARNINGS and FAIL_ON_WARNINGS_PRINT.
+# The default value is: NO.
+
+WARN_AS_ERROR          = NO
+
+# The WARN_FORMAT tag determines the format of the warning messages that doxygen
+# can produce. The string should contain the $file, $line, and $text tags, which
+# will be replaced by the file and line number from which the warning originated
+# and the warning text. Optionally the format may contain $version, which will
+# be replaced by the version of the file (if it could be obtained via
+# FILE_VERSION_FILTER)
+# See also: WARN_LINE_FORMAT
+# The default value is: $file:$line: $text.
+
+WARN_FORMAT            = "$file:$line: $text"
+
+# In the $text part of the WARN_FORMAT command it is possible that a reference
+# to a more specific place is given. To make it easier to jump to this place
+# (outside of doxygen) the user can define a custom "cut" / "paste" string.
+# Example:
+# WARN_LINE_FORMAT = "'vi $file +$line'"
+# See also: WARN_FORMAT
+# The default value is: at line $line of file $file.
+
+WARN_LINE_FORMAT       = "at line $line of file $file"
+
+# The WARN_LOGFILE tag can be used to specify a file to which warning and error
+# messages should be written. If left blank the output is written to standard
+# error (stderr). In case the file specified cannot be opened for writing the
+# warning and error messages are written to standard error. When as file - is
+# specified the warning and error messages are written to standard output
+# (stdout).
+
+WARN_LOGFILE           =
+
+#---------------------------------------------------------------------------
+# Configuration options related to the input files
+#---------------------------------------------------------------------------
+
+# The INPUT tag is used to specify the files and/or directories that contain
+# documented source files. You may enter file names like myfile.cpp or
+# directories like /usr/src/myproject. Separate the files or directories with
+# spaces. See also FILE_PATTERNS and EXTENSION_MAPPING
+# Note: If this tag is empty the current directory is searched.
+
+INPUT                  =               ../src ../test-drivers
+
+# This tag can be used to specify the character encoding of the source files
+# that doxygen parses. Internally doxygen uses the UTF-8 encoding. Doxygen uses
+# libiconv (or the iconv built into libc) for the transcoding. See the libiconv
+# documentation (see:
+# https://www.gnu.org/software/libiconv/) for the list of possible encodings.
+# See also: INPUT_FILE_ENCODING
+# The default value is: UTF-8.
+
+INPUT_ENCODING         = UTF-8
+
+# This tag can be used to specify the character encoding of the source files
+# that doxygen parses The INPUT_FILE_ENCODING tag can be used to specify
+# character encoding on a per file pattern basis. Doxygen will compare the file
+# name with each pattern and apply the encoding instead of the default
+# INPUT_ENCODING) if there is a match. The character encodings are a list of the
+# form: pattern=encoding (like *.php=ISO-8859-1). See cfg_input_encoding
+# "INPUT_ENCODING" for further information on supported encodings.
+
+INPUT_FILE_ENCODING    =
+
+# If the value of the INPUT tag contains directories, you can use the
+# FILE_PATTERNS tag to specify one or more wildcard patterns (like *.cpp and
+# *.h) to filter out the source-files in the directories.
+#
+# Note that for custom extensions or not directly supported extensions you also
+# need to set EXTENSION_MAPPING for the extension otherwise the files are not
+# read by doxygen.
+#
+# Note the list of default checked file patterns might differ from the list of
+# default file extension mappings.
+#
+# If left blank the following patterns are tested:*.c, *.cc, *.cxx, *.cxxm,
+# *.cpp, *.cppm, *.ccm, *.c++, *.c++m, *.java, *.ii, *.ixx, *.ipp, *.i++, *.inl,
+# *.idl, *.ddl, *.odl, *.h, *.hh, *.hxx, *.hpp, *.h++, *.ixx, *.l, *.cs, *.d,
+# *.php, *.php4, *.php5, *.phtml, *.inc, *.m, *.markdown, *.md, *.mm, *.dox (to
+# be provided as doxygen C comment), *.py, *.pyw, *.f90, *.f95, *.f03, *.f08,
+# *.f18, *.f, *.for, *.vhd, *.vhdl, *.ucf, *.qsf and *.ice.
+
+FILE_PATTERNS          = *.c \
+                         *.cc \
+                         *.cxx \
+                         *.cxxm \
+                         *.cpp \
+                         *.cppm \
+                         *.ccm \
+                         *.c++ \
+                         *.cu \
+                         *.c++m \
+                         *.java \
+                         *.ii \
+                         *.ixx \
+                         *.ipp \
+                         *.i++ \
+                         *.inl \
+                         *.idl \
+                         *.ddl \
+                         *.odl \
+                         *.h \
+                         *.cuh \
+                         *.hh \
+                         *.hxx \
+                         *.hpp \
+                         *.h++ \
+                         *.ixx \
+                         *.l \
+                         *.cs \
+                         *.d \
+                         *.php \
+                         *.php4 \
+                         *.php5 \
+                         *.phtml \
+                         *.inc \
+                         *.m \
+                         *.markdown \
+                         *.md \
+                         *.mm \
+                         *.dox \
+                         *.py \
+                         *.pyw \
+                         *.f90 \
+                         *.F90 \
+                         *.f95 \
+                         *.f03 \
+                         *.f08 \
+                         *.f18 \
+                         *.f \
+                         *.F \
+                         *.for \
+                         *.vhd \
+                         *.vhdl \
+                         *.ucf \
+                         *.qsf \
+                         *.ice
+
+# The RECURSIVE tag can be used to specify whether or not subdirectories should
+# be searched for input files as well.
+# The default value is: NO.
+
+RECURSIVE              = YES
+
+# The EXCLUDE tag can be used to specify files and/or directories that should be
+# excluded from the INPUT source files. This way you can easily exclude a
+# subdirectory from a directory tree whose root is specified with the INPUT tag.
+#
+# Note that relative paths are relative to the directory from which doxygen is
+# run.
+
+EXCLUDE                =
+
+# The EXCLUDE_SYMLINKS tag can be used to select whether or not files or
+# directories that are symbolic links (a Unix file system feature) are excluded
+# from the input.
+# The default value is: NO.
+
+EXCLUDE_SYMLINKS       = NO
+
+# If the value of the INPUT tag contains directories, you can use the
+# EXCLUDE_PATTERNS tag to specify one or more wildcard patterns to exclude
+# certain files from those directories.
+#
+# Note that the wildcards are matched against the file with absolute path, so to
+# exclude all test directories for example use the pattern */test/*
+
+EXCLUDE_PATTERNS       =
+
+# The EXCLUDE_SYMBOLS tag can be used to specify one or more symbol names
+# (namespaces, classes, functions, etc.) that should be excluded from the
+# output. The symbol name can be a fully qualified name, a word, or if the
+# wildcard * is used, a substring. Examples: ANamespace, AClass,
+# ANamespace::AClass, ANamespace::*Test
+
+EXCLUDE_SYMBOLS        =
+
+# The EXAMPLE_PATH tag can be used to specify one or more files or directories
+# that contain example code fragments that are included (see the \include
+# command).
+
+EXAMPLE_PATH           =
+
+# If the value of the EXAMPLE_PATH tag contains directories, you can use the
+# EXAMPLE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp and
+# *.h) to filter out the source-files in the directories. If left blank all
+# files are included.
+
+EXAMPLE_PATTERNS       = *
+
+# If the EXAMPLE_RECURSIVE tag is set to YES then subdirectories will be
+# searched for input files to be used with the \include or \dontinclude commands
+# irrespective of the value of the RECURSIVE tag.
+# The default value is: NO.
+
+EXAMPLE_RECURSIVE      = NO
+
+# The IMAGE_PATH tag can be used to specify one or more files or directories
+# that contain images that are to be included in the documentation (see the
+# \image command).
+
+IMAGE_PATH             =
+
+# The INPUT_FILTER tag can be used to specify a program that doxygen should
+# invoke to filter for each input file. Doxygen will invoke the filter program
+# by executing (via popen()) the command:
+#
+# <filter> <input-file>
+#
+# where <filter> is the value of the INPUT_FILTER tag, and <input-file> is the
+# name of an input file. Doxygen will then use the output that the filter
+# program writes to standard output. If FILTER_PATTERNS is specified, this tag
+# will be ignored.
+#
+# Note that the filter must not add or remove lines; it is applied before the
+# code is scanned, but not when the output code is generated. If lines are added
+# or removed, the anchors will not be placed correctly.
+#
+# Note that doxygen will use the data processed and written to standard output
+# for further processing, therefore nothing else, like debug statements or used
+# commands (so in case of a Windows batch file always use @echo OFF), should be
+# written to standard output.
+#
+# Note that for custom extensions or not directly supported extensions you also
+# need to set EXTENSION_MAPPING for the extension otherwise the files are not
+# properly processed by doxygen.
+
+INPUT_FILTER           =
+
+# The FILTER_PATTERNS tag can be used to specify filters on a per file pattern
+# basis. Doxygen will compare the file name with each pattern and apply the
+# filter if there is a match. The filters are a list of the form: pattern=filter
+# (like *.cpp=my_cpp_filter). See INPUT_FILTER for further information on how
+# filters are used. If the FILTER_PATTERNS tag is empty or if none of the
+# patterns match the file name, INPUT_FILTER is applied.
+#
+# Note that for custom extensions or not directly supported extensions you also
+# need to set EXTENSION_MAPPING for the extension otherwise the files are not
+# properly processed by doxygen.
+
+FILTER_PATTERNS        =
+
+# If the FILTER_SOURCE_FILES tag is set to YES, the input filter (if set using
+# INPUT_FILTER) will also be used to filter the input files that are used for
+# producing the source files to browse (i.e. when SOURCE_BROWSER is set to YES).
+# The default value is: NO.
+
+FILTER_SOURCE_FILES    = NO
+
+# The FILTER_SOURCE_PATTERNS tag can be used to specify source filters per file
+# pattern. A pattern will override the setting for FILTER_PATTERN (if any) and
+# it is also possible to disable source filtering for a specific pattern using
+# *.ext= (so without naming a filter).
+# This tag requires that the tag FILTER_SOURCE_FILES is set to YES.
+
+FILTER_SOURCE_PATTERNS =
+
+# If the USE_MDFILE_AS_MAINPAGE tag refers to the name of a markdown file that
+# is part of the input, its contents will be placed on the main page
+# (index.html). This can be useful if you have a project on for instance GitHub
+# and want to reuse the introduction page also for the doxygen output.
+
+USE_MDFILE_AS_MAINPAGE =
+
+# The Fortran standard specifies that for fixed formatted Fortran code all
+# characters from position 72 are to be considered as comment. A common
+# extension is to allow longer lines before the automatic comment starts. The
+# setting FORTRAN_COMMENT_AFTER will also make it possible that longer lines can
+# be processed before the automatic comment starts.
+# Minimum value: 7, maximum value: 10000, default value: 72.
+
+FORTRAN_COMMENT_AFTER  = 72
+
+#---------------------------------------------------------------------------
+# Configuration options related to source browsing
+#---------------------------------------------------------------------------
+
+# If the SOURCE_BROWSER tag is set to YES then a list of source files will be
+# generated. Documented entities will be cross-referenced with these sources.
+#
+# Note: To get rid of all source code in the generated output, make sure that
+# also VERBATIM_HEADERS is set to NO.
+# The default value is: NO.
+
+SOURCE_BROWSER         = NO
+
+# Setting the INLINE_SOURCES tag to YES will include the body of functions,
+# multi-line macros, enums or list initialized variables directly into the
+# documentation.
+# The default value is: NO.
+
+INLINE_SOURCES         = NO
+
+# Setting the STRIP_CODE_COMMENTS tag to YES will instruct doxygen to hide any
+# special comment blocks from generated source code fragments. Normal C, C++ and
+# Fortran comments will always remain visible.
+# The default value is: YES.
+
+STRIP_CODE_COMMENTS    = YES
+
+# If the REFERENCED_BY_RELATION tag is set to YES then for each documented
+# entity all documented functions referencing it will be listed.
+# The default value is: NO.
+
+REFERENCED_BY_RELATION = YES
+
+# If the REFERENCES_RELATION tag is set to YES then for each documented function
+# all documented entities called/used by that function will be listed.
+# The default value is: NO.
+
+REFERENCES_RELATION    = YES
+
+# If the REFERENCES_LINK_SOURCE tag is set to YES and SOURCE_BROWSER tag is set
+# to YES then the hyperlinks from functions in REFERENCES_RELATION and
+# REFERENCED_BY_RELATION lists will link to the source code. Otherwise they will
+# link to the documentation.
+# The default value is: YES.
+
+REFERENCES_LINK_SOURCE = YES
+
+# If SOURCE_TOOLTIPS is enabled (the default) then hovering a hyperlink in the
+# source code will show a tooltip with additional information such as prototype,
+# brief description and links to the definition and documentation. Since this
+# will make the HTML file larger and loading of large files a bit slower, you
+# can opt to disable this feature.
+# The default value is: YES.
+# This tag requires that the tag SOURCE_BROWSER is set to YES.
+
+SOURCE_TOOLTIPS        = YES
+
+# If the USE_HTAGS tag is set to YES then the references to source code will
+# point to the HTML generated by the htags(1) tool instead of doxygen built-in
+# source browser. The htags tool is part of GNU's global source tagging system
+# (see https://www.gnu.org/software/global/global.html). You will need version
+# 4.8.6 or higher.
+#
+# To use it do the following:
+# - Install the latest version of global
+# - Enable SOURCE_BROWSER and USE_HTAGS in the configuration file
+# - Make sure the INPUT points to the root of the source tree
+# - Run doxygen as normal
+#
+# Doxygen will invoke htags (and that will in turn invoke gtags), so these
+# tools must be available from the command line (i.e. in the search path).
+#
+# The result: instead of the source browser generated by doxygen, the links to
+# source code will now point to the output of htags.
+# The default value is: NO.
+# This tag requires that the tag SOURCE_BROWSER is set to YES.
+
+USE_HTAGS              = NO
+
+# If the VERBATIM_HEADERS tag is set the YES then doxygen will generate a
+# verbatim copy of the header file for each class for which an include is
+# specified. Set to NO to disable this.
+# See also: Section \class.
+# The default value is: YES.
+
+VERBATIM_HEADERS       = YES
+
+#---------------------------------------------------------------------------
+# Configuration options related to the alphabetical class index
+#---------------------------------------------------------------------------
+
+# If the ALPHABETICAL_INDEX tag is set to YES, an alphabetical index of all
+# compounds will be generated. Enable this if the project contains a lot of
+# classes, structs, unions or interfaces.
+# The default value is: YES.
+
+ALPHABETICAL_INDEX     = YES
+
+# The IGNORE_PREFIX tag can be used to specify a prefix (or a list of prefixes)
+# that should be ignored while generating the index headers. The IGNORE_PREFIX
+# tag works for classes, function and member names. The entity will be placed in
+# the alphabetical list under the first letter of the entity name that remains
+# after removing the prefix.
+# This tag requires that the tag ALPHABETICAL_INDEX is set to YES.
+
+IGNORE_PREFIX          =
+
+#---------------------------------------------------------------------------
+# Configuration options related to the HTML output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_HTML tag is set to YES, doxygen will generate HTML output
+# The default value is: YES.
+
+GENERATE_HTML          = YES
+
+# The HTML_OUTPUT tag is used to specify where the HTML docs will be put. If a
+# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
+# it.
+# The default directory is: html.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_OUTPUT            = html
+
+# The HTML_FILE_EXTENSION tag can be used to specify the file extension for each
+# generated HTML page (for example: .htm, .php, .asp).
+# The default value is: .html.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_FILE_EXTENSION    = .html
+
+# The HTML_HEADER tag can be used to specify a user-defined HTML header file for
+# each generated HTML page. If the tag is left blank doxygen will generate a
+# standard header.
+#
+# To get valid HTML the header file that includes any scripts and style sheets
+# that doxygen needs, which is dependent on the configuration options used (e.g.
+# the setting GENERATE_TREEVIEW). It is highly recommended to start with a
+# default header using
+# doxygen -w html new_header.html new_footer.html new_stylesheet.css
+# YourConfigFile
+# and then modify the file new_header.html. See also section "Doxygen usage"
+# for information on how to generate the default header that doxygen normally
+# uses.
+# Note: The header is subject to change so you typically have to regenerate the
+# default header when upgrading to a newer version of doxygen. For a description
+# of the possible markers and block names see the documentation.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_HEADER            =
+
+# The HTML_FOOTER tag can be used to specify a user-defined HTML footer for each
+# generated HTML page. If the tag is left blank doxygen will generate a standard
+# footer. See HTML_HEADER for more information on how to generate a default
+# footer and what special commands can be used inside the footer. See also
+# section "Doxygen usage" for information on how to generate the default footer
+# that doxygen normally uses.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_FOOTER            =
+
+# The HTML_STYLESHEET tag can be used to specify a user-defined cascading style
+# sheet that is used by each HTML page. It can be used to fine-tune the look of
+# the HTML output. If left blank doxygen will generate a default style sheet.
+# See also section "Doxygen usage" for information on how to generate the style
+# sheet that doxygen normally uses.
+# Note: It is recommended to use HTML_EXTRA_STYLESHEET instead of this tag, as
+# it is more robust and this tag (HTML_STYLESHEET) will in the future become
+# obsolete.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_STYLESHEET        =
+
+# The HTML_EXTRA_STYLESHEET tag can be used to specify additional user-defined
+# cascading style sheets that are included after the standard style sheets
+# created by doxygen. Using this option one can overrule certain style aspects.
+# This is preferred over using HTML_STYLESHEET since it does not replace the
+# standard style sheet and is therefore more robust against future updates.
+# Doxygen will copy the style sheet files to the output directory.
+# Note: The order of the extra style sheet files is of importance (e.g. the last
+# style sheet in the list overrules the setting of the previous ones in the
+# list).
+# Note: Since the styling of scrollbars can currently not be overruled in
+# Webkit/Chromium, the styling will be left out of the default doxygen.css if
+# one or more extra stylesheets have been specified. So if scrollbar
+# customization is desired it has to be added explicitly. For an example see the
+# documentation.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_EXTRA_STYLESHEET  =
+
+# The HTML_EXTRA_FILES tag can be used to specify one or more extra images or
+# other source files which should be copied to the HTML output directory. Note
+# that these files will be copied to the base HTML output directory. Use the
+# $relpath^ marker in the HTML_HEADER and/or HTML_FOOTER files to load these
+# files. In the HTML_STYLESHEET file, use the file name only. Also note that the
+# files will be copied as-is; there are no commands or markers available.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_EXTRA_FILES       =
+
+# The HTML_COLORSTYLE tag can be used to specify if the generated HTML output
+# should be rendered with a dark or light theme.
+# Possible values are: LIGHT always generate light mode output, DARK always
+# generate dark mode output, AUTO_LIGHT automatically set the mode according to
+# the user preference, use light mode if no preference is set (the default),
+# AUTO_DARK automatically set the mode according to the user preference, use
+# dark mode if no preference is set and TOGGLE allow to user to switch between
+# light and dark mode via a button.
+# The default value is: AUTO_LIGHT.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_COLORSTYLE        = AUTO_LIGHT
+
+# The HTML_COLORSTYLE_HUE tag controls the color of the HTML output. Doxygen
+# will adjust the colors in the style sheet and background images according to
+# this color. Hue is specified as an angle on a color-wheel, see
+# https://en.wikipedia.org/wiki/Hue for more information. For instance the value
+# 0 represents red, 60 is yellow, 120 is green, 180 is cyan, 240 is blue, 300
+# purple, and 360 is red again.
+# Minimum value: 0, maximum value: 359, default value: 220.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_COLORSTYLE_HUE    = 220
+
+# The HTML_COLORSTYLE_SAT tag controls the purity (or saturation) of the colors
+# in the HTML output. For a value of 0 the output will use gray-scales only. A
+# value of 255 will produce the most vivid colors.
+# Minimum value: 0, maximum value: 255, default value: 100.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_COLORSTYLE_SAT    = 100
+
+# The HTML_COLORSTYLE_GAMMA tag controls the gamma correction applied to the
+# luminance component of the colors in the HTML output. Values below 100
+# gradually make the output lighter, whereas values above 100 make the output
+# darker. The value divided by 100 is the actual gamma applied, so 80 represents
+# a gamma of 0.8, The value 220 represents a gamma of 2.2, and 100 does not
+# change the gamma.
+# Minimum value: 40, maximum value: 240, default value: 80.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_COLORSTYLE_GAMMA  = 80
+
+# If the HTML_DYNAMIC_MENUS tag is set to YES then the generated HTML
+# documentation will contain a main index with vertical navigation menus that
+# are dynamically created via JavaScript. If disabled, the navigation index will
+# consists of multiple levels of tabs that are statically embedded in every HTML
+# page. Disable this option to support browsers that do not have JavaScript,
+# like the Qt help browser.
+# The default value is: YES.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_DYNAMIC_MENUS     = YES
+
+# If the HTML_DYNAMIC_SECTIONS tag is set to YES then the generated HTML
+# documentation will contain sections that can be hidden and shown after the
+# page has loaded.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_DYNAMIC_SECTIONS  = NO
+
+# If the HTML_CODE_FOLDING tag is set to YES then classes and functions can be
+# dynamically folded and expanded in the generated HTML source code.
+# The default value is: YES.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_CODE_FOLDING      = YES
+
+# If the HTML_COPY_CLIPBOARD tag is set to YES then doxygen will show an icon in
+# the top right corner of code and text fragments that allows the user to copy
+# its content to the clipboard (provided this is supported by the browser).
+# The default value is: YES.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_COPY_CLIPBOARD    = YES
+
+# Doxygen stores a couple of settings persistently in the browser (via e.g.
+# cookies). By default these settings apply to all HTML pages generated by
+# doxygen across all projects. The HTML_PROJECT_COOKIE tag can be used to store
+# the settings under a project specific key, such that the user preferences will
+# be stored separately.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_PROJECT_COOKIE    =
+
+# With HTML_INDEX_NUM_ENTRIES one can control the preferred number of entries
+# shown in the various tree structured indices initially; the user can expand
+# and collapse entries dynamically later on. Doxygen will expand the tree to
+# such a level that at most the specified number of entries are visible (unless
+# a fully collapsed tree already exceeds this amount). So setting the number of
+# entries 1 will produce a full collapsed tree by default. 0 is a special value
+# representing an infinite number of entries and will result in a full expanded
+# tree by default.
+# Minimum value: 0, maximum value: 9999, default value: 100.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_INDEX_NUM_ENTRIES = 100
+
+# If the GENERATE_DOCSET tag is set to YES, additional index files will be
+# generated that can be used as input for Apple's Xcode 3 integrated development
+# environment (see:
+# https://developer.apple.com/xcode/), introduced with OSX 10.5 (Leopard). To
+# create a documentation set, doxygen will generate a Makefile in the HTML
+# output directory. Running make will produce the docset in that directory and
+# running make install will install the docset in
+# ~/Library/Developer/Shared/Documentation/DocSets so that Xcode will find it at
+# startup. See https://developer.apple.com/library/archive/featuredarticles/Doxy
+# genXcode/_index.html for more information.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+GENERATE_DOCSET        = NO
+
+# This tag determines the name of the docset feed. A documentation feed provides
+# an umbrella under which multiple documentation sets from a single provider
+# (such as a company or product suite) can be grouped.
+# The default value is: Doxygen generated docs.
+# This tag requires that the tag GENERATE_DOCSET is set to YES.
+
+DOCSET_FEEDNAME        = "Doxygen generated docs"
+
+# This tag determines the URL of the docset feed. A documentation feed provides
+# an umbrella under which multiple documentation sets from a single provider
+# (such as a company or product suite) can be grouped.
+# This tag requires that the tag GENERATE_DOCSET is set to YES.
+
+DOCSET_FEEDURL         =
+
+# This tag specifies a string that should uniquely identify the documentation
+# set bundle. This should be a reverse domain-name style string, e.g.
+# com.mycompany.MyDocSet. Doxygen will append .docset to the name.
+# The default value is: org.doxygen.Project.
+# This tag requires that the tag GENERATE_DOCSET is set to YES.
+
+DOCSET_BUNDLE_ID       = org.doxygen.Project
+
+# The DOCSET_PUBLISHER_ID tag specifies a string that should uniquely identify
+# the documentation publisher. This should be a reverse domain-name style
+# string, e.g. com.mycompany.MyDocSet.documentation.
+# The default value is: org.doxygen.Publisher.
+# This tag requires that the tag GENERATE_DOCSET is set to YES.
+
+DOCSET_PUBLISHER_ID    = org.doxygen.Publisher
+
+# The DOCSET_PUBLISHER_NAME tag identifies the documentation publisher.
+# The default value is: Publisher.
+# This tag requires that the tag GENERATE_DOCSET is set to YES.
+
+DOCSET_PUBLISHER_NAME  = Publisher
+
+# If the GENERATE_HTMLHELP tag is set to YES then doxygen generates three
+# additional HTML index files: index.hhp, index.hhc, and index.hhk. The
+# index.hhp is a project file that can be read by Microsoft's HTML Help Workshop
+# on Windows. In the beginning of 2021 Microsoft took the original page, with
+# a.o. the download links, offline the HTML help workshop was already many years
+# in maintenance mode). You can download the HTML help workshop from the web
+# archives at Installation executable (see:
+# http://web.archive.org/web/20160201063255/http://download.microsoft.com/downlo
+# ad/0/A/9/0A939EF6-E31C-430F-A3DF-DFAE7960D564/htmlhelp.exe).
+#
+# The HTML Help Workshop contains a compiler that can convert all HTML output
+# generated by doxygen into a single compiled HTML file (.chm). Compiled HTML
+# files are now used as the Windows 98 help format, and will replace the old
+# Windows help format (.hlp) on all Windows platforms in the future. Compressed
+# HTML files also contain an index, a table of contents, and you can search for
+# words in the documentation. The HTML workshop also contains a viewer for
+# compressed HTML files.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+GENERATE_HTMLHELP      = NO
+
+# The CHM_FILE tag can be used to specify the file name of the resulting .chm
+# file. You can add a path in front of the file if the result should not be
+# written to the html output directory.
+# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
+
+CHM_FILE               =
+
+# The HHC_LOCATION tag can be used to specify the location (absolute path
+# including file name) of the HTML help compiler (hhc.exe). If non-empty,
+# doxygen will try to run the HTML help compiler on the generated index.hhp.
+# The file has to be specified with full path.
+# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
+
+HHC_LOCATION           =
+
+# The GENERATE_CHI flag controls if a separate .chi index file is generated
+# (YES) or that it should be included in the main .chm file (NO).
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
+
+GENERATE_CHI           = NO
+
+# The CHM_INDEX_ENCODING is used to encode HtmlHelp index (hhk), content (hhc)
+# and project file content.
+# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
+
+CHM_INDEX_ENCODING     =
+
+# The BINARY_TOC flag controls whether a binary table of contents is generated
+# (YES) or a normal table of contents (NO) in the .chm file. Furthermore it
+# enables the Previous and Next buttons.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
+
+BINARY_TOC             = NO
+
+# The TOC_EXPAND flag can be set to YES to add extra items for group members to
+# the table of contents of the HTML help documentation and to the tree view.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
+
+TOC_EXPAND             = NO
+
+# The SITEMAP_URL tag is used to specify the full URL of the place where the
+# generated documentation will be placed on the server by the user during the
+# deployment of the documentation. The generated sitemap is called sitemap.xml
+# and placed on the directory specified by HTML_OUTPUT. In case no SITEMAP_URL
+# is specified no sitemap is generated. For information about the sitemap
+# protocol see https://www.sitemaps.org
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+SITEMAP_URL            =
+
+# If the GENERATE_QHP tag is set to YES and both QHP_NAMESPACE and
+# QHP_VIRTUAL_FOLDER are set, an additional index file will be generated that
+# can be used as input for Qt's qhelpgenerator to generate a Qt Compressed Help
+# (.qch) of the generated HTML documentation.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+GENERATE_QHP           = NO
+
+# If the QHG_LOCATION tag is specified, the QCH_FILE tag can be used to specify
+# the file name of the resulting .qch file. The path specified is relative to
+# the HTML output folder.
+# This tag requires that the tag GENERATE_QHP is set to YES.
+
+QCH_FILE               =
+
+# The QHP_NAMESPACE tag specifies the namespace to use when generating Qt Help
+# Project output. For more information please see Qt Help Project / Namespace
+# (see:
+# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#namespace).
+# The default value is: org.doxygen.Project.
+# This tag requires that the tag GENERATE_QHP is set to YES.
+
+QHP_NAMESPACE          = org.doxygen.Project
+
+# The QHP_VIRTUAL_FOLDER tag specifies the namespace to use when generating Qt
+# Help Project output. For more information please see Qt Help Project / Virtual
+# Folders (see:
+# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#virtual-folders).
+# The default value is: doc.
+# This tag requires that the tag GENERATE_QHP is set to YES.
+
+QHP_VIRTUAL_FOLDER     = doc
+
+# If the QHP_CUST_FILTER_NAME tag is set, it specifies the name of a custom
+# filter to add. For more information please see Qt Help Project / Custom
+# Filters (see:
+# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#custom-filters).
+# This tag requires that the tag GENERATE_QHP is set to YES.
+
+QHP_CUST_FILTER_NAME   =
+
+# The QHP_CUST_FILTER_ATTRS tag specifies the list of the attributes of the
+# custom filter to add. For more information please see Qt Help Project / Custom
+# Filters (see:
+# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#custom-filters).
+# This tag requires that the tag GENERATE_QHP is set to YES.
+
+QHP_CUST_FILTER_ATTRS  =
+
+# The QHP_SECT_FILTER_ATTRS tag specifies the list of the attributes this
+# project's filter section matches. Qt Help Project / Filter Attributes (see:
+# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#filter-attributes).
+# This tag requires that the tag GENERATE_QHP is set to YES.
+
+QHP_SECT_FILTER_ATTRS  =
+
+# The QHG_LOCATION tag can be used to specify the location (absolute path
+# including file name) of Qt's qhelpgenerator. If non-empty doxygen will try to
+# run qhelpgenerator on the generated .qhp file.
+# This tag requires that the tag GENERATE_QHP is set to YES.
+
+QHG_LOCATION           =
+
+# If the GENERATE_ECLIPSEHELP tag is set to YES, additional index files will be
+# generated, together with the HTML files, they form an Eclipse help plugin. To
+# install this plugin and make it available under the help contents menu in
+# Eclipse, the contents of the directory containing the HTML and XML files needs
+# to be copied into the plugins directory of eclipse. The name of the directory
+# within the plugins directory should be the same as the ECLIPSE_DOC_ID value.
+# After copying Eclipse needs to be restarted before the help appears.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+GENERATE_ECLIPSEHELP   = NO
+
+# A unique identifier for the Eclipse help plugin. When installing the plugin
+# the directory name containing the HTML and XML files should also have this
+# name. Each documentation set should have its own identifier.
+# The default value is: org.doxygen.Project.
+# This tag requires that the tag GENERATE_ECLIPSEHELP is set to YES.
+
+ECLIPSE_DOC_ID         = org.doxygen.Project
+
+# If you want full control over the layout of the generated HTML pages it might
+# be necessary to disable the index and replace it with your own. The
+# DISABLE_INDEX tag can be used to turn on/off the condensed index (tabs) at top
+# of each HTML page. A value of NO enables the index and the value YES disables
+# it. Since the tabs in the index contain the same information as the navigation
+# tree, you can set this option to YES if you also set GENERATE_TREEVIEW to YES.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+DISABLE_INDEX          = NO
+
+# The GENERATE_TREEVIEW tag is used to specify whether a tree-like index
+# structure should be generated to display hierarchical information. If the tag
+# value is set to YES, a side panel will be generated containing a tree-like
+# index structure (just like the one that is generated for HTML Help). For this
+# to work a browser that supports JavaScript, DHTML, CSS and frames is required
+# (i.e. any modern browser). Windows users are probably better off using the
+# HTML help feature. Via custom style sheets (see HTML_EXTRA_STYLESHEET) one can
+# further fine tune the look of the index (see "Fine-tuning the output"). As an
+# example, the default style sheet generated by doxygen has an example that
+# shows how to put an image at the root of the tree instead of the PROJECT_NAME.
+# Since the tree basically has the same information as the tab index, you could
+# consider setting DISABLE_INDEX to YES when enabling this option.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+GENERATE_TREEVIEW      = NO
+
+# When both GENERATE_TREEVIEW and DISABLE_INDEX are set to YES, then the
+# FULL_SIDEBAR option determines if the side bar is limited to only the treeview
+# area (value NO) or if it should extend to the full height of the window (value
+# YES). Setting this to YES gives a layout similar to
+# https://docs.readthedocs.io with more room for contents, but less room for the
+# project logo, title, and description. If either GENERATE_TREEVIEW or
+# DISABLE_INDEX is set to NO, this option has no effect.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+FULL_SIDEBAR           = NO
+
+# The ENUM_VALUES_PER_LINE tag can be used to set the number of enum values that
+# doxygen will group on one line in the generated HTML documentation.
+#
+# Note that a value of 0 will completely suppress the enum values from appearing
+# in the overview section.
+# Minimum value: 0, maximum value: 20, default value: 4.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+ENUM_VALUES_PER_LINE   = 4
+
+# If the treeview is enabled (see GENERATE_TREEVIEW) then this tag can be used
+# to set the initial width (in pixels) of the frame in which the tree is shown.
+# Minimum value: 0, maximum value: 1500, default value: 250.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+TREEVIEW_WIDTH         = 250
+
+# If the EXT_LINKS_IN_WINDOW option is set to YES, doxygen will open links to
+# external symbols imported via tag files in a separate window.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+EXT_LINKS_IN_WINDOW    = NO
+
+# If the OBFUSCATE_EMAILS tag is set to YES, doxygen will obfuscate email
+# addresses.
+# The default value is: YES.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+OBFUSCATE_EMAILS       = YES
+
+# If the HTML_FORMULA_FORMAT option is set to svg, doxygen will use the pdf2svg
+# tool (see https://github.com/dawbarton/pdf2svg) or inkscape (see
+# https://inkscape.org) to generate formulas as SVG images instead of PNGs for
+# the HTML output. These images will generally look nicer at scaled resolutions.
+# Possible values are: png (the default) and svg (looks nicer but requires the
+# pdf2svg or inkscape tool).
+# The default value is: png.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+HTML_FORMULA_FORMAT    = png
+
+# Use this tag to change the font size of LaTeX formulas included as images in
+# the HTML documentation. When you change the font size after a successful
+# doxygen run you need to manually remove any form_*.png images from the HTML
+# output directory to force them to be regenerated.
+# Minimum value: 8, maximum value: 50, default value: 10.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+FORMULA_FONTSIZE       = 10
+
+# The FORMULA_MACROFILE can contain LaTeX \newcommand and \renewcommand commands
+# to create new LaTeX commands to be used in formulas as building blocks. See
+# the section "Including formulas" for details.
+
+FORMULA_MACROFILE      =
+
+# Enable the USE_MATHJAX option to render LaTeX formulas using MathJax (see
+# https://www.mathjax.org) which uses client side JavaScript for the rendering
+# instead of using pre-rendered bitmaps. Use this if you do not have LaTeX
+# installed or if you want to formulas look prettier in the HTML output. When
+# enabled you may also need to install MathJax separately and configure the path
+# to it using the MATHJAX_RELPATH option.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+USE_MATHJAX            = YES
+
+# With MATHJAX_VERSION it is possible to specify the MathJax version to be used.
+# Note that the different versions of MathJax have different requirements with
+# regards to the different settings, so it is possible that also other MathJax
+# settings have to be changed when switching between the different MathJax
+# versions.
+# Possible values are: MathJax_2 and MathJax_3.
+# The default value is: MathJax_2.
+# This tag requires that the tag USE_MATHJAX is set to YES.
+
+MATHJAX_VERSION        = MathJax_2
+
+# When MathJax is enabled you can set the default output format to be used for
+# the MathJax output. For more details about the output format see MathJax
+# version 2 (see:
+# http://docs.mathjax.org/en/v2.7-latest/output.html) and MathJax version 3
+# (see:
+# http://docs.mathjax.org/en/latest/web/components/output.html).
+# Possible values are: HTML-CSS (which is slower, but has the best
+# compatibility. This is the name for Mathjax version 2, for MathJax version 3
+# this will be translated into chtml), NativeMML (i.e. MathML. Only supported
+# for NathJax 2. For MathJax version 3 chtml will be used instead.), chtml (This
+# is the name for Mathjax version 3, for MathJax version 2 this will be
+# translated into HTML-CSS) and SVG.
+# The default value is: HTML-CSS.
+# This tag requires that the tag USE_MATHJAX is set to YES.
+
+MATHJAX_FORMAT         = HTML-CSS
+
+# When MathJax is enabled you need to specify the location relative to the HTML
+# output directory using the MATHJAX_RELPATH option. The destination directory
+# should contain the MathJax.js script. For instance, if the mathjax directory
+# is located at the same level as the HTML output directory, then
+# MATHJAX_RELPATH should be ../mathjax. The default value points to the MathJax
+# Content Delivery Network so you can quickly see the result without installing
+# MathJax. However, it is strongly recommended to install a local copy of
+# MathJax from https://www.mathjax.org before deployment. The default value is:
+# - in case of MathJax version 2: https://cdn.jsdelivr.net/npm/mathjax@2
+# - in case of MathJax version 3: https://cdn.jsdelivr.net/npm/mathjax@3
+# This tag requires that the tag USE_MATHJAX is set to YES.
+
+MATHJAX_RELPATH        =
+
+# The MATHJAX_EXTENSIONS tag can be used to specify one or more MathJax
+# extension names that should be enabled during MathJax rendering. For example
+# for MathJax version 2 (see
+# https://docs.mathjax.org/en/v2.7-latest/tex.html#tex-and-latex-extensions):
+# MATHJAX_EXTENSIONS = TeX/AMSmath TeX/AMSsymbols
+# For example for MathJax version 3 (see
+# http://docs.mathjax.org/en/latest/input/tex/extensions/index.html):
+# MATHJAX_EXTENSIONS = ams
+# This tag requires that the tag USE_MATHJAX is set to YES.
+
+MATHJAX_EXTENSIONS     =
+
+# The MATHJAX_CODEFILE tag can be used to specify a file with javascript pieces
+# of code that will be used on startup of the MathJax code. See the MathJax site
+# (see:
+# http://docs.mathjax.org/en/v2.7-latest/output.html) for more details. For an
+# example see the documentation.
+# This tag requires that the tag USE_MATHJAX is set to YES.
+
+MATHJAX_CODEFILE       =
+
+# When the SEARCHENGINE tag is enabled doxygen will generate a search box for
+# the HTML output. The underlying search engine uses javascript and DHTML and
+# should work on any modern browser. Note that when using HTML help
+# (GENERATE_HTMLHELP), Qt help (GENERATE_QHP), or docsets (GENERATE_DOCSET)
+# there is already a search function so this one should typically be disabled.
+# For large projects the javascript based search engine can be slow, then
+# enabling SERVER_BASED_SEARCH may provide a better solution. It is possible to
+# search using the keyboard; to jump to the search box use <access key> + S
+# (what the <access key> is depends on the OS and browser, but it is typically
+# <CTRL>, <ALT>/<option>, or both). Inside the search box use the <cursor down
+# key> to jump into the search results window, the results can be navigated
+# using the <cursor keys>. Press <Enter> to select an item or <escape> to cancel
+# the search. The filter options can be selected when the cursor is inside the
+# search box by pressing <Shift>+<cursor down>. Also here use the <cursor keys>
+# to select a filter and <Enter> or <escape> to activate or cancel the filter
+# option.
+# The default value is: YES.
+# This tag requires that the tag GENERATE_HTML is set to YES.
+
+SEARCHENGINE           = YES
+
+# When the SERVER_BASED_SEARCH tag is enabled the search engine will be
+# implemented using a web server instead of a web client using JavaScript. There
+# are two flavors of web server based searching depending on the EXTERNAL_SEARCH
+# setting. When disabled, doxygen will generate a PHP script for searching and
+# an index file used by the script. When EXTERNAL_SEARCH is enabled the indexing
+# and searching needs to be provided by external tools. See the section
+# "External Indexing and Searching" for details.
+# The default value is: NO.
+# This tag requires that the tag SEARCHENGINE is set to YES.
+
+SERVER_BASED_SEARCH    = NO
+
+# When EXTERNAL_SEARCH tag is enabled doxygen will no longer generate the PHP
+# script for searching. Instead the search results are written to an XML file
+# which needs to be processed by an external indexer. Doxygen will invoke an
+# external search engine pointed to by the SEARCHENGINE_URL option to obtain the
+# search results.
+#
+# Doxygen ships with an example indexer (doxyindexer) and search engine
+# (doxysearch.cgi) which are based on the open source search engine library
+# Xapian (see:
+# https://xapian.org/).
+#
+# See the section "External Indexing and Searching" for details.
+# The default value is: NO.
+# This tag requires that the tag SEARCHENGINE is set to YES.
+
+EXTERNAL_SEARCH        = NO
+
+# The SEARCHENGINE_URL should point to a search engine hosted by a web server
+# which will return the search results when EXTERNAL_SEARCH is enabled.
+#
+# Doxygen ships with an example indexer (doxyindexer) and search engine
+# (doxysearch.cgi) which are based on the open source search engine library
+# Xapian (see:
+# https://xapian.org/). See the section "External Indexing and Searching" for
+# details.
+# This tag requires that the tag SEARCHENGINE is set to YES.
+
+SEARCHENGINE_URL       =
+
+# When SERVER_BASED_SEARCH and EXTERNAL_SEARCH are both enabled the unindexed
+# search data is written to a file for indexing by an external tool. With the
+# SEARCHDATA_FILE tag the name of this file can be specified.
+# The default file is: searchdata.xml.
+# This tag requires that the tag SEARCHENGINE is set to YES.
+
+SEARCHDATA_FILE        = searchdata.xml
+
+# When SERVER_BASED_SEARCH and EXTERNAL_SEARCH are both enabled the
+# EXTERNAL_SEARCH_ID tag can be used as an identifier for the project. This is
+# useful in combination with EXTRA_SEARCH_MAPPINGS to search through multiple
+# projects and redirect the results back to the right project.
+# This tag requires that the tag SEARCHENGINE is set to YES.
+
+EXTERNAL_SEARCH_ID     =
+
+# The EXTRA_SEARCH_MAPPINGS tag can be used to enable searching through doxygen
+# projects other than the one defined by this configuration file, but that are
+# all added to the same external search index. Each project needs to have a
+# unique id set via EXTERNAL_SEARCH_ID. The search mapping then maps the id of
+# to a relative location where the documentation can be found. The format is:
+# EXTRA_SEARCH_MAPPINGS = tagname1=loc1 tagname2=loc2 ...
+# This tag requires that the tag SEARCHENGINE is set to YES.
+
+EXTRA_SEARCH_MAPPINGS  =
+
+#---------------------------------------------------------------------------
+# Configuration options related to the LaTeX output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_LATEX tag is set to YES, doxygen will generate LaTeX output.
+# The default value is: YES.
+
+GENERATE_LATEX         = YES
+
+# The LATEX_OUTPUT tag is used to specify where the LaTeX docs will be put. If a
+# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
+# it.
+# The default directory is: latex.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_OUTPUT           = latex
+
+# The LATEX_CMD_NAME tag can be used to specify the LaTeX command name to be
+# invoked.
+#
+# Note that when not enabling USE_PDFLATEX the default is latex when enabling
+# USE_PDFLATEX the default is pdflatex and when in the later case latex is
+# chosen this is overwritten by pdflatex. For specific output languages the
+# default can have been set differently, this depends on the implementation of
+# the output language.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_CMD_NAME         =
+
+# The MAKEINDEX_CMD_NAME tag can be used to specify the command name to generate
+# index for LaTeX.
+# Note: This tag is used in the Makefile / make.bat.
+# See also: LATEX_MAKEINDEX_CMD for the part in the generated output file
+# (.tex).
+# The default file is: makeindex.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+MAKEINDEX_CMD_NAME     = makeindex
+
+# The LATEX_MAKEINDEX_CMD tag can be used to specify the command name to
+# generate index for LaTeX. In case there is no backslash (\) as first character
+# it will be automatically added in the LaTeX code.
+# Note: This tag is used in the generated output file (.tex).
+# See also: MAKEINDEX_CMD_NAME for the part in the Makefile / make.bat.
+# The default value is: makeindex.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_MAKEINDEX_CMD    = makeindex
+
+# If the COMPACT_LATEX tag is set to YES, doxygen generates more compact LaTeX
+# documents. This may be useful for small projects and may help to save some
+# trees in general.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+COMPACT_LATEX          = NO
+
+# The PAPER_TYPE tag can be used to set the paper type that is used by the
+# printer.
+# Possible values are: a4 (210 x 297 mm), letter (8.5 x 11 inches), legal (8.5 x
+# 14 inches) and executive (7.25 x 10.5 inches).
+# The default value is: a4.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+PAPER_TYPE             = a4
+
+# The EXTRA_PACKAGES tag can be used to specify one or more LaTeX package names
+# that should be included in the LaTeX output. The package can be specified just
+# by its name or with the correct syntax as to be used with the LaTeX
+# \usepackage command. To get the times font for instance you can specify :
+# EXTRA_PACKAGES=times or EXTRA_PACKAGES={times}
+# To use the option intlimits with the amsmath package you can specify:
+# EXTRA_PACKAGES=[intlimits]{amsmath}
+# If left blank no extra packages will be included.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+EXTRA_PACKAGES         =
+
+# The LATEX_HEADER tag can be used to specify a user-defined LaTeX header for
+# the generated LaTeX document. The header should contain everything until the
+# first chapter. If it is left blank doxygen will generate a standard header. It
+# is highly recommended to start with a default header using
+# doxygen -w latex new_header.tex new_footer.tex new_stylesheet.sty
+# and then modify the file new_header.tex. See also section "Doxygen usage" for
+# information on how to generate the default header that doxygen normally uses.
+#
+# Note: Only use a user-defined header if you know what you are doing!
+# Note: The header is subject to change so you typically have to regenerate the
+# default header when upgrading to a newer version of doxygen. The following
+# commands have a special meaning inside the header (and footer): For a
+# description of the possible markers and block names see the documentation.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_HEADER           =
+
+# The LATEX_FOOTER tag can be used to specify a user-defined LaTeX footer for
+# the generated LaTeX document. The footer should contain everything after the
+# last chapter. If it is left blank doxygen will generate a standard footer. See
+# LATEX_HEADER for more information on how to generate a default footer and what
+# special commands can be used inside the footer. See also section "Doxygen
+# usage" for information on how to generate the default footer that doxygen
+# normally uses. Note: Only use a user-defined footer if you know what you are
+# doing!
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_FOOTER           =
+
+# The LATEX_EXTRA_STYLESHEET tag can be used to specify additional user-defined
+# LaTeX style sheets that are included after the standard style sheets created
+# by doxygen. Using this option one can overrule certain style aspects. Doxygen
+# will copy the style sheet files to the output directory.
+# Note: The order of the extra style sheet files is of importance (e.g. the last
+# style sheet in the list overrules the setting of the previous ones in the
+# list).
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_EXTRA_STYLESHEET =
+
+# The LATEX_EXTRA_FILES tag can be used to specify one or more extra images or
+# other source files which should be copied to the LATEX_OUTPUT output
+# directory. Note that the files will be copied as-is; there are no commands or
+# markers available.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_EXTRA_FILES      =
+
+# If the PDF_HYPERLINKS tag is set to YES, the LaTeX that is generated is
+# prepared for conversion to PDF (using ps2pdf or pdflatex). The PDF file will
+# contain links (just like the HTML output) instead of page references. This
+# makes the output suitable for online browsing using a PDF viewer.
+# The default value is: YES.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+PDF_HYPERLINKS         = YES
+
+# If the USE_PDFLATEX tag is set to YES, doxygen will use the engine as
+# specified with LATEX_CMD_NAME to generate the PDF file directly from the LaTeX
+# files. Set this option to YES, to get a higher quality PDF documentation.
+#
+# See also section LATEX_CMD_NAME for selecting the engine.
+# The default value is: YES.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+USE_PDFLATEX           = YES
+
+# The LATEX_BATCHMODE tag signals the behavior of LaTeX in case of an error.
+# Possible values are: NO same as ERROR_STOP, YES same as BATCH, BATCH In batch
+# mode nothing is printed on the terminal, errors are scrolled as if <return> is
+# hit at every error; missing files that TeX tries to input or request from
+# keyboard input (\read on a not open input stream) cause the job to abort,
+# NON_STOP In nonstop mode the diagnostic message will appear on the terminal,
+# but there is no possibility of user interaction just like in batch mode,
+# SCROLL In scroll mode, TeX will stop only for missing files to input or if
+# keyboard input is necessary and ERROR_STOP In errorstop mode, TeX will stop at
+# each error, asking for user intervention.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_BATCHMODE        = NO
+
+# If the LATEX_HIDE_INDICES tag is set to YES then doxygen will not include the
+# index chapters (such as File Index, Compound Index, etc.) in the output.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_HIDE_INDICES     = NO
+
+# The LATEX_BIB_STYLE tag can be used to specify the style to use for the
+# bibliography, e.g. plainnat, or ieeetr. See
+# https://en.wikipedia.org/wiki/BibTeX and \cite for more info.
+# The default value is: plain.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_BIB_STYLE        = plain
+
+# The LATEX_EMOJI_DIRECTORY tag is used to specify the (relative or absolute)
+# path from which the emoji images will be read. If a relative path is entered,
+# it will be relative to the LATEX_OUTPUT directory. If left blank the
+# LATEX_OUTPUT directory will be used.
+# This tag requires that the tag GENERATE_LATEX is set to YES.
+
+LATEX_EMOJI_DIRECTORY  =
+
+#---------------------------------------------------------------------------
+# Configuration options related to the RTF output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_RTF tag is set to YES, doxygen will generate RTF output. The
+# RTF output is optimized for Word 97 and may not look too pretty with other RTF
+# readers/editors.
+# The default value is: NO.
+
+GENERATE_RTF           = NO
+
+# The RTF_OUTPUT tag is used to specify where the RTF docs will be put. If a
+# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
+# it.
+# The default directory is: rtf.
+# This tag requires that the tag GENERATE_RTF is set to YES.
+
+RTF_OUTPUT             = rtf
+
+# If the COMPACT_RTF tag is set to YES, doxygen generates more compact RTF
+# documents. This may be useful for small projects and may help to save some
+# trees in general.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_RTF is set to YES.
+
+COMPACT_RTF            = NO
+
+# If the RTF_HYPERLINKS tag is set to YES, the RTF that is generated will
+# contain hyperlink fields. The RTF file will contain links (just like the HTML
+# output) instead of page references. This makes the output suitable for online
+# browsing using Word or some other Word compatible readers that support those
+# fields.
+#
+# Note: WordPad (write) and others do not support links.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_RTF is set to YES.
+
+RTF_HYPERLINKS         = NO
+
+# Load stylesheet definitions from file. Syntax is similar to doxygen's
+# configuration file, i.e. a series of assignments. You only have to provide
+# replacements, missing definitions are set to their default value.
+#
+# See also section "Doxygen usage" for information on how to generate the
+# default style sheet that doxygen normally uses.
+# This tag requires that the tag GENERATE_RTF is set to YES.
+
+RTF_STYLESHEET_FILE    =
+
+# Set optional variables used in the generation of an RTF document. Syntax is
+# similar to doxygen's configuration file. A template extensions file can be
+# generated using doxygen -e rtf extensionFile.
+# This tag requires that the tag GENERATE_RTF is set to YES.
+
+RTF_EXTENSIONS_FILE    =
+
+#---------------------------------------------------------------------------
+# Configuration options related to the man page output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_MAN tag is set to YES, doxygen will generate man pages for
+# classes and files.
+# The default value is: NO.
+
+GENERATE_MAN           = NO
+
+# The MAN_OUTPUT tag is used to specify where the man pages will be put. If a
+# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
+# it. A directory man3 will be created inside the directory specified by
+# MAN_OUTPUT.
+# The default directory is: man.
+# This tag requires that the tag GENERATE_MAN is set to YES.
+
+MAN_OUTPUT             = man
+
+# The MAN_EXTENSION tag determines the extension that is added to the generated
+# man pages. In case the manual section does not start with a number, the number
+# 3 is prepended. The dot (.) at the beginning of the MAN_EXTENSION tag is
+# optional.
+# The default value is: .3.
+# This tag requires that the tag GENERATE_MAN is set to YES.
+
+MAN_EXTENSION          = .3
+
+# The MAN_SUBDIR tag determines the name of the directory created within
+# MAN_OUTPUT in which the man pages are placed. If defaults to man followed by
+# MAN_EXTENSION with the initial . removed.
+# This tag requires that the tag GENERATE_MAN is set to YES.
+
+MAN_SUBDIR             =
+
+# If the MAN_LINKS tag is set to YES and doxygen generates man output, then it
+# will generate one additional man file for each entity documented in the real
+# man page(s). These additional files only source the real man page, but without
+# them the man command would be unable to find the correct page.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_MAN is set to YES.
+
+MAN_LINKS              = NO
+
+#---------------------------------------------------------------------------
+# Configuration options related to the XML output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_XML tag is set to YES, doxygen will generate an XML file that
+# captures the structure of the code including all documentation.
+# The default value is: NO.
+
+GENERATE_XML           = NO
+
+# The XML_OUTPUT tag is used to specify where the XML pages will be put. If a
+# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
+# it.
+# The default directory is: xml.
+# This tag requires that the tag GENERATE_XML is set to YES.
+
+XML_OUTPUT             = xml
+
+# If the XML_PROGRAMLISTING tag is set to YES, doxygen will dump the program
+# listings (including syntax highlighting and cross-referencing information) to
+# the XML output. Note that enabling this will significantly increase the size
+# of the XML output.
+# The default value is: YES.
+# This tag requires that the tag GENERATE_XML is set to YES.
+
+XML_PROGRAMLISTING     = YES
+
+# If the XML_NS_MEMB_FILE_SCOPE tag is set to YES, doxygen will include
+# namespace members in file scope as well, matching the HTML output.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_XML is set to YES.
+
+XML_NS_MEMB_FILE_SCOPE = NO
+
+#---------------------------------------------------------------------------
+# Configuration options related to the DOCBOOK output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_DOCBOOK tag is set to YES, doxygen will generate Docbook files
+# that can be used to generate PDF.
+# The default value is: NO.
+
+GENERATE_DOCBOOK       = NO
+
+# The DOCBOOK_OUTPUT tag is used to specify where the Docbook pages will be put.
+# If a relative path is entered the value of OUTPUT_DIRECTORY will be put in
+# front of it.
+# The default directory is: docbook.
+# This tag requires that the tag GENERATE_DOCBOOK is set to YES.
+
+DOCBOOK_OUTPUT         = docbook
+
+#---------------------------------------------------------------------------
+# Configuration options for the AutoGen Definitions output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_AUTOGEN_DEF tag is set to YES, doxygen will generate an
+# AutoGen Definitions (see https://autogen.sourceforge.net/) file that captures
+# the structure of the code including all documentation. Note that this feature
+# is still experimental and incomplete at the moment.
+# The default value is: NO.
+
+GENERATE_AUTOGEN_DEF   = NO
+
+#---------------------------------------------------------------------------
+# Configuration options related to Sqlite3 output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_SQLITE3 tag is set to YES doxygen will generate a Sqlite3
+# database with symbols found by doxygen stored in tables.
+# The default value is: NO.
+
+GENERATE_SQLITE3       = NO
+
+# The SQLITE3_OUTPUT tag is used to specify where the Sqlite3 database will be
+# put. If a relative path is entered the value of OUTPUT_DIRECTORY will be put
+# in front of it.
+# The default directory is: sqlite3.
+# This tag requires that the tag GENERATE_SQLITE3 is set to YES.
+
+SQLITE3_OUTPUT         = sqlite3
+
+# The SQLITE3_RECREATE_DB tag is set to YES, the existing doxygen_sqlite3.db
+# database file will be recreated with each doxygen run. If set to NO, doxygen
+# will warn if a database file is already found and not modify it.
+# The default value is: YES.
+# This tag requires that the tag GENERATE_SQLITE3 is set to YES.
+
+SQLITE3_RECREATE_DB    = YES
+
+#---------------------------------------------------------------------------
+# Configuration options related to the Perl module output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_PERLMOD tag is set to YES, doxygen will generate a Perl module
+# file that captures the structure of the code including all documentation.
+#
+# Note that this feature is still experimental and incomplete at the moment.
+# The default value is: NO.
+
+GENERATE_PERLMOD       = NO
+
+# If the PERLMOD_LATEX tag is set to YES, doxygen will generate the necessary
+# Makefile rules, Perl scripts and LaTeX code to be able to generate PDF and DVI
+# output from the Perl module output.
+# The default value is: NO.
+# This tag requires that the tag GENERATE_PERLMOD is set to YES.
+
+PERLMOD_LATEX          = NO
+
+# If the PERLMOD_PRETTY tag is set to YES, the Perl module output will be nicely
+# formatted so it can be parsed by a human reader. This is useful if you want to
+# understand what is going on. On the other hand, if this tag is set to NO, the
+# size of the Perl module output will be much smaller and Perl will parse it
+# just the same.
+# The default value is: YES.
+# This tag requires that the tag GENERATE_PERLMOD is set to YES.
+
+PERLMOD_PRETTY         = YES
+
+# The names of the make variables in the generated doxyrules.make file are
+# prefixed with the string contained in PERLMOD_MAKEVAR_PREFIX. This is useful
+# so different doxyrules.make files included by the same Makefile don't
+# overwrite each other's variables.
+# This tag requires that the tag GENERATE_PERLMOD is set to YES.
+
+PERLMOD_MAKEVAR_PREFIX =
+
+#---------------------------------------------------------------------------
+# Configuration options related to the preprocessor
+#---------------------------------------------------------------------------
+
+# If the ENABLE_PREPROCESSING tag is set to YES, doxygen will evaluate all
+# C-preprocessor directives found in the sources and include files.
+# The default value is: YES.
+
+ENABLE_PREPROCESSING   = YES
+
+# If the MACRO_EXPANSION tag is set to YES, doxygen will expand all macro names
+# in the source code. If set to NO, only conditional compilation will be
+# performed. Macro expansion can be done in a controlled way by setting
+# EXPAND_ONLY_PREDEF to YES.
+# The default value is: NO.
+# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
+
+MACRO_EXPANSION        = NO
+
+# If the EXPAND_ONLY_PREDEF and MACRO_EXPANSION tags are both set to YES then
+# the macro expansion is limited to the macros specified with the PREDEFINED and
+# EXPAND_AS_DEFINED tags.
+# The default value is: NO.
+# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
+
+EXPAND_ONLY_PREDEF     = NO
+
+# If the SEARCH_INCLUDES tag is set to YES, the include files in the
+# INCLUDE_PATH will be searched if a #include is found.
+# The default value is: YES.
+# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
+
+SEARCH_INCLUDES        = YES
+
+# The INCLUDE_PATH tag can be used to specify one or more directories that
+# contain include files that are not input files but should be processed by the
+# preprocessor. Note that the INCLUDE_PATH is not recursive, so the setting of
+# RECURSIVE has no effect here.
+# This tag requires that the tag SEARCH_INCLUDES is set to YES.
+
+INCLUDE_PATH           =
+
+# You can use the INCLUDE_FILE_PATTERNS tag to specify one or more wildcard
+# patterns (like *.h and *.hpp) to filter out the header-files in the
+# directories. If left blank, the patterns specified with FILE_PATTERNS will be
+# used.
+# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
+
+INCLUDE_FILE_PATTERNS  =
+
+# The PREDEFINED tag can be used to specify one or more macro names that are
+# defined before the preprocessor is started (similar to the -D option of e.g.
+# gcc). The argument of the tag is a list of macros of the form: name or
+# name=definition (no spaces). If the definition and the "=" are omitted, "=1"
+# is assumed. To prevent a macro definition from being undefined via #undef or
+# recursively expanded use the := operator instead of the = operator.
+# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
+
+PREDEFINED             =
+
+# If the MACRO_EXPANSION and EXPAND_ONLY_PREDEF tags are set to YES then this
+# tag can be used to specify a list of macro names that should be expanded. The
+# macro definition that is found in the sources will be used. Use the PREDEFINED
+# tag if you want to use a different macro definition that overrules the
+# definition found in the source code.
+# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
+
+EXPAND_AS_DEFINED      =
+
+# If the SKIP_FUNCTION_MACROS tag is set to YES then doxygen's preprocessor will
+# remove all references to function-like macros that are alone on a line, have
+# an all uppercase name, and do not end with a semicolon. Such function macros
+# are typically used for boiler-plate code, and will confuse the parser if not
+# removed.
+# The default value is: YES.
+# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
+
+SKIP_FUNCTION_MACROS   = YES
+
+#---------------------------------------------------------------------------
+# Configuration options related to external references
+#---------------------------------------------------------------------------
+
+# The TAGFILES tag can be used to specify one or more tag files. For each tag
+# file the location of the external documentation should be added. The format of
+# a tag file without this location is as follows:
+# TAGFILES = file1 file2 ...
+# Adding location for the tag files is done as follows:
+# TAGFILES = file1=loc1 "file2 = loc2" ...
+# where loc1 and loc2 can be relative or absolute paths or URLs. See the
+# section "Linking to external documentation" for more information about the use
+# of tag files.
+# Note: Each tag file must have a unique name (where the name does NOT include
+# the path). If a tag file is not located in the directory in which doxygen is
+# run, you must also specify the path to the tagfile here.
+
+TAGFILES               =
+
+# When a file name is specified after GENERATE_TAGFILE, doxygen will create a
+# tag file that is based on the input files it reads. See section "Linking to
+# external documentation" for more information about the usage of tag files.
+
+GENERATE_TAGFILE       =
+
+# If the ALLEXTERNALS tag is set to YES, all external classes and namespaces
+# will be listed in the class and namespace index. If set to NO, only the
+# inherited external classes will be listed.
+# The default value is: NO.
+
+ALLEXTERNALS           = NO
+
+# If the EXTERNAL_GROUPS tag is set to YES, all external groups will be listed
+# in the topic index. If set to NO, only the current project's groups will be
+# listed.
+# The default value is: YES.
+
+EXTERNAL_GROUPS        = YES
+
+# If the EXTERNAL_PAGES tag is set to YES, all external pages will be listed in
+# the related pages index. If set to NO, only the current project's pages will
+# be listed.
+# The default value is: YES.
+
+EXTERNAL_PAGES         = YES
+
+#---------------------------------------------------------------------------
+# Configuration options related to diagram generator tools
+#---------------------------------------------------------------------------
+
+# If set to YES the inheritance and collaboration graphs will hide inheritance
+# and usage relations if the target is undocumented or is not a class.
+# The default value is: YES.
+
+HIDE_UNDOC_RELATIONS   = YES
+
+# If you set the HAVE_DOT tag to YES then doxygen will assume the dot tool is
+# available from the path. This tool is part of Graphviz (see:
+# https://www.graphviz.org/), a graph visualization toolkit from AT&T and Lucent
+# Bell Labs. The other options in this section have no effect if this option is
+# set to NO
+# The default value is: NO.
+
+HAVE_DOT               = YES
+
+# The DOT_NUM_THREADS specifies the number of dot invocations doxygen is allowed
+# to run in parallel. When set to 0 doxygen will base this on the number of
+# processors available in the system. You can set it explicitly to a value
+# larger than 0 to get control over the balance between CPU load and processing
+# speed.
+# Minimum value: 0, maximum value: 32, default value: 0.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOT_NUM_THREADS        = 0
+
+# DOT_COMMON_ATTR is common attributes for nodes, edges and labels of
+# subgraphs. When you want a differently looking font in the dot files that
+# doxygen generates you can specify fontname, fontcolor and fontsize attributes.
+# For details please see <a href=https://graphviz.org/doc/info/attrs.html>Node,
+# Edge and Graph Attributes specification</a> You need to make sure dot is able
+# to find the font, which can be done by putting it in a standard location or by
+# setting the DOTFONTPATH environment variable or by setting DOT_FONTPATH to the
+# directory containing the font. Default graphviz fontsize is 14.
+# The default value is: fontname=Helvetica,fontsize=10.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOT_COMMON_ATTR        = "fontname=Helvetica,fontsize=10"
+
+# DOT_EDGE_ATTR is concatenated with DOT_COMMON_ATTR. For elegant style you can
+# add 'arrowhead=open, arrowtail=open, arrowsize=0.5'. <a
+# href=https://graphviz.org/doc/info/arrows.html>Complete documentation about
+# arrows shapes.</a>
+# The default value is: labelfontname=Helvetica,labelfontsize=10.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOT_EDGE_ATTR          = "labelfontname=Helvetica,labelfontsize=10"
+
+# DOT_NODE_ATTR is concatenated with DOT_COMMON_ATTR. For view without boxes
+# around nodes set 'shape=plain' or 'shape=plaintext' <a
+# href=https://www.graphviz.org/doc/info/shapes.html>Shapes specification</a>
+# The default value is: shape=box,height=0.2,width=0.4.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOT_NODE_ATTR          = "shape=box,height=0.2,width=0.4"
+
+# You can set the path where dot can find font specified with fontname in
+# DOT_COMMON_ATTR and others dot attributes.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOT_FONTPATH           =
+
+# If the CLASS_GRAPH tag is set to YES or GRAPH or BUILTIN then doxygen will
+# generate a graph for each documented class showing the direct and indirect
+# inheritance relations. In case the CLASS_GRAPH tag is set to YES or GRAPH and
+# HAVE_DOT is enabled as well, then dot will be used to draw the graph. In case
+# the CLASS_GRAPH tag is set to YES and HAVE_DOT is disabled or if the
+# CLASS_GRAPH tag is set to BUILTIN, then the built-in generator will be used.
+# If the CLASS_GRAPH tag is set to TEXT the direct and indirect inheritance
+# relations will be shown as texts / links. Explicit enabling an inheritance
+# graph or choosing a different representation for an inheritance graph of a
+# specific class, can be accomplished by means of the command \inheritancegraph.
+# Disabling an inheritance graph can be accomplished by means of the command
+# \hideinheritancegraph.
+# Possible values are: NO, YES, TEXT, GRAPH and BUILTIN.
+# The default value is: YES.
+
+CLASS_GRAPH            = YES
+
+# If the COLLABORATION_GRAPH tag is set to YES then doxygen will generate a
+# graph for each documented class showing the direct and indirect implementation
+# dependencies (inheritance, containment, and class references variables) of the
+# class with other documented classes. Explicit enabling a collaboration graph,
+# when COLLABORATION_GRAPH is set to NO, can be accomplished by means of the
+# command \collaborationgraph. Disabling a collaboration graph can be
+# accomplished by means of the command \hidecollaborationgraph.
+# The default value is: YES.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+COLLABORATION_GRAPH    = YES
+
+# If the GROUP_GRAPHS tag is set to YES then doxygen will generate a graph for
+# groups, showing the direct groups dependencies. Explicit enabling a group
+# dependency graph, when GROUP_GRAPHS is set to NO, can be accomplished by means
+# of the command \groupgraph. Disabling a directory graph can be accomplished by
+# means of the command \hidegroupgraph. See also the chapter Grouping in the
+# manual.
+# The default value is: YES.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+GROUP_GRAPHS           = YES
+
+# If the UML_LOOK tag is set to YES, doxygen will generate inheritance and
+# collaboration diagrams in a style similar to the OMG's Unified Modeling
+# Language.
+# The default value is: NO.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+UML_LOOK               = NO
+
+# If the UML_LOOK tag is enabled, the fields and methods are shown inside the
+# class node. If there are many fields or methods and many nodes the graph may
+# become too big to be useful. The UML_LIMIT_NUM_FIELDS threshold limits the
+# number of items for each type to make the size more manageable. Set this to 0
+# for no limit. Note that the threshold may be exceeded by 50% before the limit
+# is enforced. So when you set the threshold to 10, up to 15 fields may appear,
+# but if the number exceeds 15, the total amount of fields shown is limited to
+# 10.
+# Minimum value: 0, maximum value: 100, default value: 10.
+# This tag requires that the tag UML_LOOK is set to YES.
+
+UML_LIMIT_NUM_FIELDS   = 10
+
+# If the DOT_UML_DETAILS tag is set to NO, doxygen will show attributes and
+# methods without types and arguments in the UML graphs. If the DOT_UML_DETAILS
+# tag is set to YES, doxygen will add type and arguments for attributes and
+# methods in the UML graphs. If the DOT_UML_DETAILS tag is set to NONE, doxygen
+# will not generate fields with class member information in the UML graphs. The
+# class diagrams will look similar to the default class diagrams but using UML
+# notation for the relationships.
+# Possible values are: NO, YES and NONE.
+# The default value is: NO.
+# This tag requires that the tag UML_LOOK is set to YES.
+
+DOT_UML_DETAILS        = NO
+
+# The DOT_WRAP_THRESHOLD tag can be used to set the maximum number of characters
+# to display on a single line. If the actual line length exceeds this threshold
+# significantly it will wrapped across multiple lines. Some heuristics are apply
+# to avoid ugly line breaks.
+# Minimum value: 0, maximum value: 1000, default value: 17.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOT_WRAP_THRESHOLD     = 17
+
+# If the TEMPLATE_RELATIONS tag is set to YES then the inheritance and
+# collaboration graphs will show the relations between templates and their
+# instances.
+# The default value is: NO.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+TEMPLATE_RELATIONS     = NO
+
+# If the INCLUDE_GRAPH, ENABLE_PREPROCESSING and SEARCH_INCLUDES tags are set to
+# YES then doxygen will generate a graph for each documented file showing the
+# direct and indirect include dependencies of the file with other documented
+# files. Explicit enabling an include graph, when INCLUDE_GRAPH is is set to NO,
+# can be accomplished by means of the command \includegraph. Disabling an
+# include graph can be accomplished by means of the command \hideincludegraph.
+# The default value is: YES.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+INCLUDE_GRAPH          = YES
+
+# If the INCLUDED_BY_GRAPH, ENABLE_PREPROCESSING and SEARCH_INCLUDES tags are
+# set to YES then doxygen will generate a graph for each documented file showing
+# the direct and indirect include dependencies of the file with other documented
+# files. Explicit enabling an included by graph, when INCLUDED_BY_GRAPH is set
+# to NO, can be accomplished by means of the command \includedbygraph. Disabling
+# an included by graph can be accomplished by means of the command
+# \hideincludedbygraph.
+# The default value is: YES.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+INCLUDED_BY_GRAPH      = YES
+
+# If the CALL_GRAPH tag is set to YES then doxygen will generate a call
+# dependency graph for every global function or class method.
+#
+# Note that enabling this option will significantly increase the time of a run.
+# So in most cases it will be better to enable call graphs for selected
+# functions only using the \callgraph command. Disabling a call graph can be
+# accomplished by means of the command \hidecallgraph.
+# The default value is: NO.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+CALL_GRAPH             = YES
+
+# If the CALLER_GRAPH tag is set to YES then doxygen will generate a caller
+# dependency graph for every global function or class method.
+#
+# Note that enabling this option will significantly increase the time of a run.
+# So in most cases it will be better to enable caller graphs for selected
+# functions only using the \callergraph command. Disabling a caller graph can be
+# accomplished by means of the command \hidecallergraph.
+# The default value is: NO.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+CALLER_GRAPH           = YES
+
+# If the GRAPHICAL_HIERARCHY tag is set to YES then doxygen will graphical
+# hierarchy of all classes instead of a textual one.
+# The default value is: YES.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+GRAPHICAL_HIERARCHY    = YES
+
+# If the DIRECTORY_GRAPH tag is set to YES then doxygen will show the
+# dependencies a directory has on other directories in a graphical way. The
+# dependency relations are determined by the #include relations between the
+# files in the directories. Explicit enabling a directory graph, when
+# DIRECTORY_GRAPH is set to NO, can be accomplished by means of the command
+# \directorygraph. Disabling a directory graph can be accomplished by means of
+# the command \hidedirectorygraph.
+# The default value is: YES.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DIRECTORY_GRAPH        = YES
+
+# The DIR_GRAPH_MAX_DEPTH tag can be used to limit the maximum number of levels
+# of child directories generated in directory dependency graphs by dot.
+# Minimum value: 1, maximum value: 25, default value: 1.
+# This tag requires that the tag DIRECTORY_GRAPH is set to YES.
+
+DIR_GRAPH_MAX_DEPTH    = 1
+
+# The DOT_IMAGE_FORMAT tag can be used to set the image format of the images
+# generated by dot. For an explanation of the image formats see the section
+# output formats in the documentation of the dot tool (Graphviz (see:
+# https://www.graphviz.org/)).
+# Note: If you choose svg you need to set HTML_FILE_EXTENSION to xhtml in order
+# to make the SVG files visible in IE 9+ (other browsers do not have this
+# requirement).
+# Possible values are: png, jpg, gif, svg, png:gd, png:gd:gd, png:cairo,
+# png:cairo:gd, png:cairo:cairo, png:cairo:gdiplus, png:gdiplus and
+# png:gdiplus:gdiplus.
+# The default value is: png.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOT_IMAGE_FORMAT       = png
+
+# If DOT_IMAGE_FORMAT is set to svg, then this option can be set to YES to
+# enable generation of interactive SVG images that allow zooming and panning.
+#
+# Note that this requires a modern browser other than Internet Explorer. Tested
+# and working are Firefox, Chrome, Safari, and Opera.
+# Note: For IE 9+ you need to set HTML_FILE_EXTENSION to xhtml in order to make
+# the SVG files visible. Older versions of IE do not have SVG support.
+# The default value is: NO.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+INTERACTIVE_SVG        = NO
+
+# The DOT_PATH tag can be used to specify the path where the dot tool can be
+# found. If left blank, it is assumed the dot tool can be found in the path.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOT_PATH               =
+
+# The DOTFILE_DIRS tag can be used to specify one or more directories that
+# contain dot files that are included in the documentation (see the \dotfile
+# command).
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOTFILE_DIRS           =
+
+# You can include diagrams made with dia in doxygen documentation. Doxygen will
+# then run dia to produce the diagram and insert it in the documentation. The
+# DIA_PATH tag allows you to specify the directory where the dia binary resides.
+# If left empty dia is assumed to be found in the default search path.
+
+DIA_PATH               =
+
+# The DIAFILE_DIRS tag can be used to specify one or more directories that
+# contain dia files that are included in the documentation (see the \diafile
+# command).
+
+DIAFILE_DIRS           =
+
+# When using plantuml, the PLANTUML_JAR_PATH tag should be used to specify the
+# path where java can find the plantuml.jar file or to the filename of jar file
+# to be used. If left blank, it is assumed PlantUML is not used or called during
+# a preprocessing step. Doxygen will generate a warning when it encounters a
+# \startuml command in this case and will not generate output for the diagram.
+
+PLANTUML_JAR_PATH      =
+
+# When using plantuml, the PLANTUML_CFG_FILE tag can be used to specify a
+# configuration file for plantuml.
+
+PLANTUML_CFG_FILE      =
+
+# When using plantuml, the specified paths are searched for files specified by
+# the !include statement in a plantuml block.
+
+PLANTUML_INCLUDE_PATH  =
+
+# The DOT_GRAPH_MAX_NODES tag can be used to set the maximum number of nodes
+# that will be shown in the graph. If the number of nodes in a graph becomes
+# larger than this value, doxygen will truncate the graph, which is visualized
+# by representing a node as a red box. Note that doxygen if the number of direct
+# children of the root node in a graph is already larger than
+# DOT_GRAPH_MAX_NODES then the graph will not be shown at all. Also note that
+# the size of a graph can be further restricted by MAX_DOT_GRAPH_DEPTH.
+# Minimum value: 0, maximum value: 10000, default value: 50.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOT_GRAPH_MAX_NODES    = 50
+
+# The MAX_DOT_GRAPH_DEPTH tag can be used to set the maximum depth of the graphs
+# generated by dot. A depth value of 3 means that only nodes reachable from the
+# root by following a path via at most 3 edges will be shown. Nodes that lay
+# further from the root node will be omitted. Note that setting this option to 1
+# or 2 may greatly reduce the computation time needed for large code bases. Also
+# note that the size of a graph can be further restricted by
+# DOT_GRAPH_MAX_NODES. Using a depth of 0 means no depth restriction.
+# Minimum value: 0, maximum value: 1000, default value: 0.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+MAX_DOT_GRAPH_DEPTH    = 0
+
+# Set the DOT_MULTI_TARGETS tag to YES to allow dot to generate multiple output
+# files in one run (i.e. multiple -o and -T options on the command line). This
+# makes dot run faster, but since only newer versions of dot (>1.8.10) support
+# this, this feature is disabled by default.
+# The default value is: NO.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+DOT_MULTI_TARGETS      = NO
+
+# If the GENERATE_LEGEND tag is set to YES doxygen will generate a legend page
+# explaining the meaning of the various boxes and arrows in the dot generated
+# graphs.
+# Note: This tag requires that UML_LOOK isn't set, i.e. the doxygen internal
+# graphical representation for inheritance and collaboration diagrams is used.
+# The default value is: YES.
+# This tag requires that the tag HAVE_DOT is set to YES.
+
+GENERATE_LEGEND        = YES
+
+# If the DOT_CLEANUP tag is set to YES, doxygen will remove the intermediate
+# files that are used to generate the various graphs.
+#
+# Note: This setting is not only used for dot files but also for msc temporary
+# files.
+# The default value is: YES.
+
+DOT_CLEANUP            = YES
+
+# You can define message sequence charts within doxygen comments using the \msc
+# command. If the MSCGEN_TOOL tag is left empty (the default), then doxygen will
+# use a built-in version of mscgen tool to produce the charts. Alternatively,
+# the MSCGEN_TOOL tag can also specify the name an external tool. For instance,
+# specifying prog as the value, doxygen will call the tool as prog -T
+# <outfile_format> -o <outputfile> <inputfile>. The external tool should support
+# output file formats "png", "eps", "svg", and "ismap".
+
+MSCGEN_TOOL            =
+
+# The MSCFILE_DIRS tag can be used to specify one or more directories that
+# contain msc files that are included in the documentation (see the \mscfile
+# command).
+
+MSCFILE_DIRS           =
\ No newline at end of file
diff --git a/radiation/CMakeLists.txt b/radiation/CMakeLists.txt
new file mode 100644
index 0000000000000000000000000000000000000000..677b4e8e94db375adbc3ef4433d05d82bd86935f
--- /dev/null
+++ b/radiation/CMakeLists.txt
@@ -0,0 +1,166 @@
+cmake_minimum_required(VERSION 3.15)
+project(rrtm)
+
+set(CMAKE_CXX_STANDARD 14)
+
+include_directories(modules)
+include_directories(src)
+
+enable_language(Fortran)
+if ("${CMAKE_Fortran_COMPILER_ID}" STREQUAL "Intel")
+
+    set(dialect " -free -qoverride-limits")
+    set(bounds "-free  -check-bounds -qoverride-limits")
+elseif("${CMAKE_Fortran_COMPILER_ID}" STREQUAL "GNU")
+    ##Adding compiler options for GNU
+    set(dialect " -ffree-form  -finit-real=zero")
+    set(bounds "-ffree-form -fbounds-check -fcheck=all -fbacktrace  --param=max-vartrack-size=1000000 -override-limits -fno-range-check -finit-real=zero")
+elseif("${CMAKE_Fortran_COMPILER_ID}" STREQUAL "IntelLLVM")
+    ##Adding compiler options for Intel OneAPI
+    set(dialect " -free -qoverride-limits")
+    set(bounds "-free -check-bounds -qoverride-limits")
+else ()
+     message(SEND_ERROR "Couldn't parse Fortran compiler ID")
+endif()
+
+set(CMAKE_Fortran_FLAGS_DEBUG "-O0 ${CMAKE_Fortran_FLAGS_DEBUG} ${bounds}")
+set(CMAKE_Fortran_FLAGS_RELEASE  "-O1 -finline-functions  ${dialect}" )
+
+add_library(rrtmlw STATIC
+        modules/parkind.f90
+        modules/parrrtm.f90
+        modules/rrlw_cld.f90
+        modules/rrlw_con.f90
+        modules/rrlw_kg01.f90
+        modules/rrlw_kg02.f90
+        modules/rrlw_kg03.f90
+        modules/rrlw_kg04.f90
+        modules/rrlw_kg05.f90
+        modules/rrlw_kg06.f90
+        modules/rrlw_kg07.f90
+        modules/rrlw_kg08.f90
+        modules/rrlw_kg09.f90
+        modules/rrlw_kg10.f90
+        modules/rrlw_kg11.f90
+        modules/rrlw_kg12.f90
+        modules/rrlw_kg13.f90
+        modules/rrlw_kg14.f90
+        modules/rrlw_kg15.f90
+        modules/rrlw_kg16.f90
+        modules/rrlw_ref.f90
+        modules/rrlw_tbl.f90
+        modules/rrlw_vsn.f90
+        modules/rrlw_wvn.f90
+        src/rrtmg_lw_setcoef.f90
+        src/rrtmg_lw_cldprmc.f90
+        src/rrtmg_lw_cldprop.f90
+        src/rrtmg_lw_init.f90
+        src/rrtmg_lw_k_g.f90
+        src/rrtmg_lw_rtrn.f90
+        src/rrtmg_lw_rtrnmr.f90
+        src/rrtmg_lw_taumol.f90
+        src/rrtmg_lw_rad.nomcica.f90)
+
+add_library(rrtmsw STATIC
+        modules/parkind.f90
+        modules/parrrsw.f90
+        modules/rrsw_aer.f90
+        modules/rrsw_cld.f90
+        modules/rrsw_con.f90
+        modules/rrsw_kg16.f90
+        modules/rrsw_kg17.f90
+        modules/rrsw_kg18.f90
+        modules/rrsw_kg19.f90
+        modules/rrsw_kg20.f90
+        modules/rrsw_kg21.f90
+        modules/rrsw_kg22.f90
+        modules/rrsw_kg23.f90
+        modules/rrsw_kg24.f90
+        modules/rrsw_kg25.f90
+        modules/rrsw_kg26.f90
+        modules/rrsw_kg27.f90
+        modules/rrsw_kg28.f90
+        modules/rrsw_kg29.f90
+        modules/rrsw_ref.f90
+        modules/rrsw_tbl.f90
+        modules/rrsw_vsn.f90
+        modules/rrsw_wvn.f90
+        src/rrtmg_sw_setcoef.f90
+        src/rrtmg_sw_cldprmc.f90
+        src/rrtmg_sw_cldprop.f90
+        src/rrtmg_sw_init.f90
+        src/rrtmg_sw_k_g.f90
+        src/rrtmg_sw_reftra.f90
+        src/rrtmg_sw_vrtqdr.f90
+        src/rrtmg_sw_spcvmc.f90
+        src/rrtmg_sw_spcvrt.f90
+        src/rrtmg_sw_taumol.f90
+        src/rrtmg_sw_rad.nomcica.f90)
+
+add_library(rrtm STATIC
+        modules/parkind.f90
+        modules/parrrtm.f90
+        modules/rrlw_cld.f90
+        modules/rrlw_con.f90
+        modules/rrlw_kg01.f90
+        modules/rrlw_kg02.f90
+        modules/rrlw_kg03.f90
+        modules/rrlw_kg04.f90
+        modules/rrlw_kg05.f90
+        modules/rrlw_kg06.f90
+        modules/rrlw_kg07.f90
+        modules/rrlw_kg08.f90
+        modules/rrlw_kg09.f90
+        modules/rrlw_kg10.f90
+        modules/rrlw_kg11.f90
+        modules/rrlw_kg12.f90
+        modules/rrlw_kg13.f90
+        modules/rrlw_kg14.f90
+        modules/rrlw_kg15.f90
+        modules/rrlw_kg16.f90
+        modules/rrlw_ref.f90
+        modules/rrlw_tbl.f90
+        modules/rrlw_vsn.f90
+        modules/rrlw_wvn.f90
+        src/rrtmg_lw_setcoef.f90
+        src/rrtmg_lw_cldprmc.f90
+        src/rrtmg_lw_cldprop.f90
+        src/rrtmg_lw_init.f90
+        src/rrtmg_lw_k_g.f90
+        src/rrtmg_lw_rtrn.f90
+        src/rrtmg_lw_rtrnmr.f90
+        src/rrtmg_lw_taumol.f90
+        src/rrtmg_lw_rad.nomcica.f90
+        modules/parrrsw.f90
+        modules/rrsw_aer.f90
+        modules/rrsw_cld.f90
+        modules/rrsw_con.f90
+        modules/rrsw_kg16.f90
+        modules/rrsw_kg17.f90
+        modules/rrsw_kg18.f90
+        modules/rrsw_kg19.f90
+        modules/rrsw_kg20.f90
+        modules/rrsw_kg21.f90
+        modules/rrsw_kg22.f90
+        modules/rrsw_kg23.f90
+        modules/rrsw_kg24.f90
+        modules/rrsw_kg25.f90
+        modules/rrsw_kg26.f90
+        modules/rrsw_kg27.f90
+        modules/rrsw_kg28.f90
+        modules/rrsw_kg29.f90
+        modules/rrsw_ref.f90
+        modules/rrsw_tbl.f90
+        modules/rrsw_vsn.f90
+        modules/rrsw_wvn.f90
+        src/rrtmg_sw_setcoef.f90
+        src/rrtmg_sw_cldprmc.f90
+        src/rrtmg_sw_cldprop.f90
+        src/rrtmg_sw_init.f90
+        src/rrtmg_sw_k_g.f90
+        src/rrtmg_sw_reftra.f90
+        src/rrtmg_sw_vrtqdr.f90
+        src/rrtmg_sw_spcvmc.f90
+        src/rrtmg_sw_spcvrt.f90
+        src/rrtmg_sw_taumol.f90
+        src/rrtmg_sw_rad.nomcica.f90)
\ No newline at end of file
diff --git a/radiation/data/rrtmg_lw.nc b/radiation/data/rrtmg_lw.nc
new file mode 100644
index 0000000000000000000000000000000000000000..57d0d77ca82a268fc28ea9ac4de940ea1e3108cb
Binary files /dev/null and b/radiation/data/rrtmg_lw.nc differ
diff --git a/radiation/modules/parkind.f90 b/radiation/modules/parkind.f90
new file mode 100644
index 0000000000000000000000000000000000000000..99c34a66e42cb3f9d7d82b08f3cdae395f4f70da
--- /dev/null
+++ b/radiation/modules/parkind.f90
@@ -0,0 +1,20 @@
+module parkind
+      use, intrinsic :: iso_c_binding
+      implicit none
+      save
+
+      !     integer kinds
+      !     ------------
+      integer, parameter :: kind_ib = c_long  ! 8 byte integer
+      integer, parameter :: kind_im = c_int ! 4 byte integer
+
+      !
+      !     real kinds
+      !     ----------
+      !
+      integer, parameter :: kind_rb = c_double ! 8 byte real
+      integer, parameter :: kind_rm = c_float  ! 4 byte real
+
+      integer, parameter :: kind_bool = c_bool
+
+end module parkind
diff --git a/radiation/modules/parrrsw.f90 b/radiation/modules/parrrsw.f90
new file mode 100644
index 0000000000000000000000000000000000000000..596d4087131c1e14b7621b72877194ff362e7d4e
--- /dev/null
+++ b/radiation/modules/parrrsw.f90
@@ -0,0 +1,119 @@
+
+      module parrrsw
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_sw main parameters
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! mxlay  :  integer: maximum number of layers
+! mg     :  integer: number of original g-intervals per spectral band
+! nbndsw :  integer: number of spectral bands
+! naerec :  integer: number of aerosols (iaer=6, ecmwf aerosol option)
+! ngptsw :  integer: total number of reduced g-intervals for rrtmg_lw
+! ngNN   :  integer: number of reduced g-intervals per spectral band
+! ngsNN  :  integer: cumulative number of g-intervals per band
+!------------------------------------------------------------------
+
+      integer(kind=im), parameter :: mxlay  = 603    !jplay, klev
+      integer(kind=im), parameter :: mg     = 16     !jpg
+      integer(kind=im), parameter :: nbndsw = 14     !jpsw, ksw
+      integer(kind=im), parameter :: naerec  = 6     !jpaer
+      integer(kind=im), parameter :: mxmol  = 39
+      integer(kind=im), parameter :: nstr   = 2
+      integer(kind=im), parameter :: nmol   = 7
+! Use for 112 g-point model   
+      integer(kind=im), parameter :: ngptsw = 112    !jpgpt
+! Use for 224 g-point model   
+!      integer(kind=im), parameter :: ngptsw = 224   !jpgpt
+
+! may need to rename these - from v2.6
+      integer(kind=im), parameter :: jpband   = 29
+      integer(kind=im), parameter :: jpb1     = 16   !istart
+      integer(kind=im), parameter :: jpb2     = 29   !iend
+
+      integer(kind=im), parameter :: jmcmu    = 32
+      integer(kind=im), parameter :: jmumu    = 32
+      integer(kind=im), parameter :: jmphi    = 3
+      integer(kind=im), parameter :: jmxang   = 4
+      integer(kind=im), parameter :: jmxstr   = 16
+! ^
+
+! Use for 112 g-point model   
+      integer(kind=im), parameter :: ng16 = 6
+      integer(kind=im), parameter :: ng17 = 12
+      integer(kind=im), parameter :: ng18 = 8
+      integer(kind=im), parameter :: ng19 = 8
+      integer(kind=im), parameter :: ng20 = 10
+      integer(kind=im), parameter :: ng21 = 10
+      integer(kind=im), parameter :: ng22 = 2
+      integer(kind=im), parameter :: ng23 = 10
+      integer(kind=im), parameter :: ng24 = 8
+      integer(kind=im), parameter :: ng25 = 6
+      integer(kind=im), parameter :: ng26 = 6
+      integer(kind=im), parameter :: ng27 = 8
+      integer(kind=im), parameter :: ng28 = 6
+      integer(kind=im), parameter :: ng29 = 12
+
+      integer(kind=im), parameter :: ngs16 = 6
+      integer(kind=im), parameter :: ngs17 = 18
+      integer(kind=im), parameter :: ngs18 = 26
+      integer(kind=im), parameter :: ngs19 = 34
+      integer(kind=im), parameter :: ngs20 = 44
+      integer(kind=im), parameter :: ngs21 = 54
+      integer(kind=im), parameter :: ngs22 = 56
+      integer(kind=im), parameter :: ngs23 = 66
+      integer(kind=im), parameter :: ngs24 = 74
+      integer(kind=im), parameter :: ngs25 = 80
+      integer(kind=im), parameter :: ngs26 = 86
+      integer(kind=im), parameter :: ngs27 = 94
+      integer(kind=im), parameter :: ngs28 = 100
+      integer(kind=im), parameter :: ngs29 = 112
+
+! Use for 224 g-point model   
+!      integer(kind=im), parameter :: ng16 = 16
+!      integer(kind=im), parameter :: ng17 = 16
+!      integer(kind=im), parameter :: ng18 = 16
+!      integer(kind=im), parameter :: ng19 = 16
+!      integer(kind=im), parameter :: ng20 = 16
+!      integer(kind=im), parameter :: ng21 = 16
+!      integer(kind=im), parameter :: ng22 = 16
+!      integer(kind=im), parameter :: ng23 = 16
+!      integer(kind=im), parameter :: ng24 = 16
+!      integer(kind=im), parameter :: ng25 = 16
+!      integer(kind=im), parameter :: ng26 = 16
+!      integer(kind=im), parameter :: ng27 = 16
+!      integer(kind=im), parameter :: ng28 = 16
+!      integer(kind=im), parameter :: ng29 = 16
+
+!      integer(kind=im), parameter :: ngs16 = 16
+!      integer(kind=im), parameter :: ngs17 = 32
+!      integer(kind=im), parameter :: ngs18 = 48
+!      integer(kind=im), parameter :: ngs19 = 64
+!      integer(kind=im), parameter :: ngs20 = 80
+!      integer(kind=im), parameter :: ngs21 = 96
+!      integer(kind=im), parameter :: ngs22 = 112
+!      integer(kind=im), parameter :: ngs23 = 128
+!      integer(kind=im), parameter :: ngs24 = 144
+!      integer(kind=im), parameter :: ngs25 = 160
+!      integer(kind=im), parameter :: ngs26 = 176
+!      integer(kind=im), parameter :: ngs27 = 192
+!      integer(kind=im), parameter :: ngs28 = 208
+!      integer(kind=im), parameter :: ngs29 = 224
+
+! Source function solar constant
+      real(kind=rb), parameter :: rrsw_scon = 1.36822e+03     ! W/m2
+ 
+      end module parrrsw
+
+
diff --git a/radiation/modules/parrrtm.f90 b/radiation/modules/parrrtm.f90
new file mode 100644
index 0000000000000000000000000000000000000000..e77f2f6e2551f978d519d486684ff9d8045ae5d9
--- /dev/null
+++ b/radiation/modules/parrrtm.f90
@@ -0,0 +1,112 @@
+
+      module parrrtm
+
+      use parkind ,only : im => kind_im
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_lw main parameters
+!
+! Initial version:  JJMorcrette, ECMWF, Jul 1998
+! Revised: MJIacono, AER, Jun 2006
+! Revised: MJIacono, AER, Aug 2007
+! Revised: MJIacono, AER, Aug 2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! mxlay  :  integer: maximum number of layers
+! mg     :  integer: number of original g-intervals per spectral band
+! nbndlw :  integer: number of spectral bands
+! maxxsec:  integer: maximum number of cross-section molecules
+!                    (e.g. cfcs)
+! maxinpx:  integer: 
+! ngptlw :  integer: total number of reduced g-intervals for rrtmg_lw
+! ngNN   :  integer: number of reduced g-intervals per spectral band
+! ngsNN  :  integer: cumulative number of g-intervals per band
+!------------------------------------------------------------------
+
+      integer(kind=im), parameter :: mxlay  = 603
+      integer(kind=im), parameter :: mg     = 16
+      integer(kind=im), parameter :: nbndlw = 16
+      integer(kind=im), parameter :: maxxsec= 4
+      integer(kind=im), parameter :: mxmol  = 39
+      integer(kind=im), parameter :: maxinpx= 39
+      integer(kind=im), parameter :: nmol   = 7
+! Use for 140 g-point model 
+      integer(kind=im), parameter :: ngptlw = 140
+! Use for 256 g-point model 
+!      integer(kind=im), parameter :: ngptlw = 256
+
+! Use for 140 g-point model
+      integer(kind=im), parameter :: ng1  = 10
+      integer(kind=im), parameter :: ng2  = 12
+      integer(kind=im), parameter :: ng3  = 16
+      integer(kind=im), parameter :: ng4  = 14
+      integer(kind=im), parameter :: ng5  = 16
+      integer(kind=im), parameter :: ng6  = 8
+      integer(kind=im), parameter :: ng7  = 12
+      integer(kind=im), parameter :: ng8  = 8
+      integer(kind=im), parameter :: ng9  = 12
+      integer(kind=im), parameter :: ng10 = 6
+      integer(kind=im), parameter :: ng11 = 8
+      integer(kind=im), parameter :: ng12 = 8
+      integer(kind=im), parameter :: ng13 = 4
+      integer(kind=im), parameter :: ng14 = 2
+      integer(kind=im), parameter :: ng15 = 2
+      integer(kind=im), parameter :: ng16 = 2
+
+      integer(kind=im), parameter :: ngs1  = 10
+      integer(kind=im), parameter :: ngs2  = 22
+      integer(kind=im), parameter :: ngs3  = 38
+      integer(kind=im), parameter :: ngs4  = 52
+      integer(kind=im), parameter :: ngs5  = 68
+      integer(kind=im), parameter :: ngs6  = 76
+      integer(kind=im), parameter :: ngs7  = 88
+      integer(kind=im), parameter :: ngs8  = 96
+      integer(kind=im), parameter :: ngs9  = 108
+      integer(kind=im), parameter :: ngs10 = 114
+      integer(kind=im), parameter :: ngs11 = 122
+      integer(kind=im), parameter :: ngs12 = 130
+      integer(kind=im), parameter :: ngs13 = 134
+      integer(kind=im), parameter :: ngs14 = 136
+      integer(kind=im), parameter :: ngs15 = 138
+
+! Use for 256 g-point model
+!      integer(kind=im), parameter :: ng1  = 16
+!      integer(kind=im), parameter :: ng2  = 16
+!      integer(kind=im), parameter :: ng3  = 16
+!      integer(kind=im), parameter :: ng4  = 16
+!      integer(kind=im), parameter :: ng5  = 16
+!      integer(kind=im), parameter :: ng6  = 16
+!      integer(kind=im), parameter :: ng7  = 16
+!      integer(kind=im), parameter :: ng8  = 16
+!      integer(kind=im), parameter :: ng9  = 16
+!      integer(kind=im), parameter :: ng10 = 16
+!      integer(kind=im), parameter :: ng11 = 16
+!      integer(kind=im), parameter :: ng12 = 16
+!      integer(kind=im), parameter :: ng13 = 16
+!      integer(kind=im), parameter :: ng14 = 16
+!      integer(kind=im), parameter :: ng15 = 16
+!      integer(kind=im), parameter :: ng16 = 16
+
+!      integer(kind=im), parameter :: ngs1  = 16
+!      integer(kind=im), parameter :: ngs2  = 32
+!      integer(kind=im), parameter :: ngs3  = 48
+!      integer(kind=im), parameter :: ngs4  = 64
+!      integer(kind=im), parameter :: ngs5  = 80
+!      integer(kind=im), parameter :: ngs6  = 96
+!      integer(kind=im), parameter :: ngs7  = 112
+!      integer(kind=im), parameter :: ngs8  = 128
+!      integer(kind=im), parameter :: ngs9  = 144
+!      integer(kind=im), parameter :: ngs10 = 160
+!      integer(kind=im), parameter :: ngs11 = 176
+!      integer(kind=im), parameter :: ngs12 = 192
+!      integer(kind=im), parameter :: ngs13 = 208
+!      integer(kind=im), parameter :: ngs14 = 224
+!      integer(kind=im), parameter :: ngs15 = 240
+!      integer(kind=im), parameter :: ngs16 = 256
+
+      end module parrrtm
diff --git a/radiation/modules/rrlw_cld.f90 b/radiation/modules/rrlw_cld.f90
new file mode 100644
index 0000000000000000000000000000000000000000..6010d382299376ba4f1d15b1bcc4608fd61d6b55
--- /dev/null
+++ b/radiation/modules/rrlw_cld.f90
@@ -0,0 +1,35 @@
+      module rrlw_cld
+
+      use parkind, only : rb => kind_rb
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_lw cloud property coefficients
+
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! abscld1:  real   : 
+! absice0:  real   : 
+! absice1:  real   : 
+! absice2:  real   : 
+! absice3:  real   : 
+! absliq0:  real   : 
+! absliq1:  real   : 
+!------------------------------------------------------------------
+
+      real(kind=rb) :: abscld1
+      real(kind=rb) , dimension(2) :: absice0
+      real(kind=rb) , dimension(2,5) :: absice1
+      real(kind=rb) , dimension(43,16) :: absice2
+      real(kind=rb) , dimension(46,16) :: absice3
+      real(kind=rb) :: absliq0
+      real(kind=rb) , dimension(58,16) :: absliq1
+
+      end module rrlw_cld
+
diff --git a/radiation/modules/rrlw_con.f90 b/radiation/modules/rrlw_con.f90
new file mode 100644
index 0000000000000000000000000000000000000000..3217eaebea495bbcd905d2d6ce63e4b280c06b1f
--- /dev/null
+++ b/radiation/modules/rrlw_con.f90
@@ -0,0 +1,42 @@
+      module rrlw_con
+
+      use parkind, only : rb => kind_rb
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_lw constants
+
+! Initial version: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! fluxfac:  real   : radiance to flux conversion factor 
+! heatfac:  real   : flux to heating rate conversion factor
+!oneminus:  real   : 1.-1.e-6
+! pi     :  real   : pi
+! grav   :  real   : acceleration of gravity
+! planck :  real   : planck constant
+! boltz  :  real   : boltzmann constant
+! clight :  real   : speed of light
+! avogad :  real   : avogadro constant 
+! alosmt :  real   : loschmidt constant
+! gascon :  real   : molar gas constant
+! radcn1 :  real   : first radiation constant
+! radcn2 :  real   : second radiation constant
+! sbcnst :  real   : stefan-boltzmann constant
+!  secdy :  real   : seconds per day  
+!------------------------------------------------------------------
+
+      real(kind=rb) :: fluxfac, heatfac
+      real(kind=rb) :: oneminus, pi, grav
+      real(kind=rb) :: planck, boltz, clight
+      real(kind=rb) :: avogad, alosmt, gascon
+      real(kind=rb) :: radcn1, radcn2
+      real(kind=rb) :: sbcnst, secdy
+
+      end module rrlw_con
+
diff --git a/radiation/modules/rrlw_kg01.f90 b/radiation/modules/rrlw_kg01.f90
new file mode 100644
index 0000000000000000000000000000000000000000..6b2a2b43d781c7dee7fb3f063228b6da2b0673a4
--- /dev/null
+++ b/radiation/modules/rrlw_kg01.f90
@@ -0,0 +1,74 @@
+      module rrlw_kg01
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 1
+! band 1:  10-250 cm-1 (low - h2o; high - h2o)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real
+! kao     : real     
+! kbo     : real     
+! kao_mn2 : real     
+! kbo_mn2 : real     
+! selfrefo: real     
+! forrefo : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no1  = 16
+
+      real(kind=rb) :: fracrefao(no1)  , fracrefbo(no1)
+      real(kind=rb) :: kao(5,13,no1)
+      real(kind=rb) :: kbo(5,13:59,no1)
+      real(kind=rb) :: kao_mn2(19,no1) , kbo_mn2(19,no1)
+      real(kind=rb) :: selfrefo(10,no1), forrefo(4,no1)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 1
+! band 1:  10-250 cm-1 (low - h2o; high - h2o)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+!fracrefb : real
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! ka_mn2  : real     
+! kb_mn2  : real     
+! selfref : real     
+! forref  : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng1  = 10
+
+      real(kind=rb) :: fracrefa(ng1)  , fracrefb(ng1)
+      real(kind=rb) :: ka(5,13,ng1)   , absa(65,ng1)
+      real(kind=rb) :: kb(5,13:59,ng1), absb(235,ng1)
+      real(kind=rb) :: ka_mn2(19,ng1) , kb_mn2(19,ng1)
+      real(kind=rb) :: selfref(10,ng1), forref(4,ng1)
+
+      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrlw_kg01
+
+
+
+
diff --git a/radiation/modules/rrlw_kg02.f90 b/radiation/modules/rrlw_kg02.f90
new file mode 100644
index 0000000000000000000000000000000000000000..4849a8a47a655ec74cbd674d1cd861ece10a9d6f
--- /dev/null
+++ b/radiation/modules/rrlw_kg02.f90
@@ -0,0 +1,70 @@
+      module rrlw_kg02
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 2
+! band 2:  250-500 cm-1 (low - h2o; high - h2o)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no2  = 16
+
+      real(kind=rb) :: fracrefao(no2)   , fracrefbo(no2)
+      real(kind=rb) :: kao(5,13,no2)
+      real(kind=rb) :: kbo(5,13:59,no2)
+      real(kind=rb) :: selfrefo(10,no2) , forrefo(4,no2)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 2
+! band 2:  250-500 cm-1 (low - h2o; high - h2o)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+!fracrefb : real
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! selfref : real     
+! forref  : real
+!
+! refparam: real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng2  = 12
+
+      real(kind=rb) :: fracrefa(ng2)  , fracrefb(ng2)
+      real(kind=rb) :: ka(5,13,ng2)   , absa(65,ng2)
+      real(kind=rb) :: kb(5,13:59,ng2), absb(235,ng2)
+      real(kind=rb) :: selfref(10,ng2), forref(4,ng2)
+
+      real(kind=rb) :: refparam(13)
+
+      equivalence (ka(1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))
+
+      end module rrlw_kg02
+
+
diff --git a/radiation/modules/rrlw_kg03.f90 b/radiation/modules/rrlw_kg03.f90
new file mode 100644
index 0000000000000000000000000000000000000000..e07162848ef03998fd5155ff15012bcf3bc17d63
--- /dev/null
+++ b/radiation/modules/rrlw_kg03.f90
@@ -0,0 +1,75 @@
+      module rrlw_kg03
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 3
+! band 3:  500-630 cm-1 (low - h2o,co2; high - h2o,co2)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real
+! kao     : real     
+! kbo     : real     
+! kao_mn2o: real     
+! kbo_mn2o: real     
+! selfrefo: real     
+! forrefo : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no3  = 16
+
+      real(kind=rb) :: fracrefao(no3,9) ,fracrefbo(no3,5)
+      real(kind=rb) :: kao(9,5,13,no3)
+      real(kind=rb) :: kbo(5,5,13:59,no3)
+      real(kind=rb) :: kao_mn2o(9,19,no3), kbo_mn2o(5,19,no3)
+      real(kind=rb) :: selfrefo(10,no3)
+      real(kind=rb) :: forrefo(4,no3)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 3
+! band 3:  500-630 cm-1 (low - h2o,co2; high - h2o,co2)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+!fracrefb : real
+! ka      : real     
+! kb      : real     
+! ka_mn2o : real     
+! kb_mn2o : real     
+! selfref : real     
+! forref  : real
+!
+! absa    : real
+! absb    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng3  = 16
+
+      real(kind=rb) :: fracrefa(ng3,9) ,fracrefb(ng3,5)
+      real(kind=rb) :: ka(9,5,13,ng3)  ,absa(585,ng3)
+      real(kind=rb) :: kb(5,5,13:59,ng3),absb(1175,ng3)
+      real(kind=rb) :: ka_mn2o(9,19,ng3), kb_mn2o(5,19,ng3)
+      real(kind=rb) :: selfref(10,ng3)
+      real(kind=rb) :: forref(4,ng3)
+
+      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,1,13,1),absb(1,1))
+
+      end module rrlw_kg03
+
+
diff --git a/radiation/modules/rrlw_kg04.f90 b/radiation/modules/rrlw_kg04.f90
new file mode 100644
index 0000000000000000000000000000000000000000..71ec365ef23722168a11abcc91464b86c7e3caf7
--- /dev/null
+++ b/radiation/modules/rrlw_kg04.f90
@@ -0,0 +1,64 @@
+      module rrlw_kg04
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 4
+! band 4:  630-700 cm-1 (low - h2o,co2; high - o3,co2)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no4  = 16
+
+      real(kind=rb) :: fracrefao(no4,9)  ,fracrefbo(no4,5)
+      real(kind=rb) :: kao(9,5,13,no4)
+      real(kind=rb) :: kbo(5,5,13:59,no4)
+      real(kind=rb) :: selfrefo(10,no4)  ,forrefo(4,no4)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 4
+! band 4:  630-700 cm-1 (low - h2o,co2; high - o3,co2)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! absa    : real
+! absb    : real
+!fracrefa : real    
+!fracrefb : real
+! ka      : real     
+! kb      : real     
+! selfref : real     
+! forref  : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng4  = 14
+
+      real(kind=rb) :: fracrefa(ng4,9)  ,fracrefb(ng4,5)
+      real(kind=rb) :: ka(9,5,13,ng4)   ,absa(585,ng4)
+      real(kind=rb) :: kb(5,5,13:59,ng4),absb(1175,ng4)
+      real(kind=rb) :: selfref(10,ng4)  ,forref(4,ng4)
+
+      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,1,13,1),absb(1,1))
+
+      end module rrlw_kg04
diff --git a/radiation/modules/rrlw_kg05.f90 b/radiation/modules/rrlw_kg05.f90
new file mode 100644
index 0000000000000000000000000000000000000000..ad09f8b429dcc56a74c7099f08a37887d7b0b0a9
--- /dev/null
+++ b/radiation/modules/rrlw_kg05.f90
@@ -0,0 +1,76 @@
+      module rrlw_kg05
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 5
+! band 5:  700-820 cm-1 (low - h2o,co2; high - o3,co2)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real
+! kao     : real     
+! kbo     : real     
+! kao_mo3 : real     
+! selfrefo: real     
+! forrefo : real     
+! ccl4o   : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no5  = 16
+
+      real(kind=rb) :: fracrefao(no5,9) ,fracrefbo(no5,5)
+      real(kind=rb) :: kao(9,5,13,no5)
+      real(kind=rb) :: kbo(5,5,13:59,no5)
+      real(kind=rb) :: kao_mo3(9,19,no5)
+      real(kind=rb) :: selfrefo(10,no5)
+      real(kind=rb) :: forrefo(4,no5)
+      real(kind=rb) :: ccl4o(no5)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 5
+! band 5:  700-820 cm-1 (low - h2o,co2; high - o3,co2)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+!fracrefb : real
+! ka      : real     
+! kb      : real     
+! ka_mo3  : real     
+! selfref : real     
+! forref  : real     
+! ccl4    : real
+!
+! absa    : real
+! absb    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng5  = 16
+
+      real(kind=rb) :: fracrefa(ng5,9) ,fracrefb(ng5,5)
+      real(kind=rb) :: ka(9,5,13,ng5)   ,absa(585,ng5)
+      real(kind=rb) :: kb(5,5,13:59,ng5),absb(1175,ng5)
+      real(kind=rb) :: ka_mo3(9,19,ng5)
+      real(kind=rb) :: selfref(10,ng5)
+      real(kind=rb) :: forref(4,ng5)
+      real(kind=rb) :: ccl4(ng5)
+      
+      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,1,13,1),absb(1,1))
+
+      end module rrlw_kg05
+
diff --git a/radiation/modules/rrlw_kg06.f90 b/radiation/modules/rrlw_kg06.f90
new file mode 100644
index 0000000000000000000000000000000000000000..adf727608c416a5ec54934dfe939634712a2d14a
--- /dev/null
+++ b/radiation/modules/rrlw_kg06.f90
@@ -0,0 +1,74 @@
+      module rrlw_kg06
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 6
+! band 6:  820-980 cm-1 (low - h2o; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+! kao     : real     
+! kao_mco2: real     
+! selfrefo: real     
+! forrefo : real     
+!cfc11adjo: real
+! cfc12o  : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no6  = 16
+
+      real(kind=rb) , dimension(no6) :: fracrefao
+      real(kind=rb) :: kao(5,13,no6)
+      real(kind=rb) :: kao_mco2(19,no6)
+      real(kind=rb) :: selfrefo(10,no6)
+      real(kind=rb) :: forrefo(4,no6)
+
+      real(kind=rb) , dimension(no6) :: cfc11adjo
+      real(kind=rb) , dimension(no6) :: cfc12o
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 6
+! band 6:  820-980 cm-1 (low - h2o; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+! ka      : real     
+! ka_mco2 : real     
+! selfref : real     
+! forref  : real     
+!cfc11adj : real
+! cfc12   : real
+!
+! absa    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng6  = 8
+
+      real(kind=rb) , dimension(ng6) :: fracrefa
+      real(kind=rb) :: ka(5,13,ng6),absa(65,ng6)
+      real(kind=rb) :: ka_mco2(19,ng6)
+      real(kind=rb) :: selfref(10,ng6)
+      real(kind=rb) :: forref(4,ng6)
+
+      real(kind=rb) , dimension(ng6) :: cfc11adj
+      real(kind=rb) , dimension(ng6) :: cfc12
+
+      equivalence (ka(1,1,1),absa(1,1))
+
+      end module rrlw_kg06
diff --git a/radiation/modules/rrlw_kg07.f90 b/radiation/modules/rrlw_kg07.f90
new file mode 100644
index 0000000000000000000000000000000000000000..59c900540e22216afb8cf179b4685a86bdeaf0b0
--- /dev/null
+++ b/radiation/modules/rrlw_kg07.f90
@@ -0,0 +1,76 @@
+      module rrlw_kg07
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 7
+! band 7:  980-1080 cm-1 (low - h2o,o3; high - o3)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real    
+! kao     : real     
+! kbo     : real     
+! kao_mco2: real     
+! kbo_mco2: real     
+! selfrefo: real     
+! forrefo : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no7  = 16
+
+      real(kind=rb) , dimension(no7) :: fracrefbo
+      real(kind=rb) :: fracrefao(no7,9)
+      real(kind=rb) :: kao(9,5,13,no7)
+      real(kind=rb) :: kbo(5,13:59,no7)
+      real(kind=rb) :: kao_mco2(9,19,no7)
+      real(kind=rb) :: kbo_mco2(19,no7)
+      real(kind=rb) :: selfrefo(10,no7)
+      real(kind=rb) :: forrefo(4,no7)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 7
+! band 7:  980-1080 cm-1 (low - h2o,o3; high - o3)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+!fracrefb : real    
+! ka      : real     
+! kb      : real     
+! ka_mco2 : real     
+! kb_mco2 : real     
+! selfref : real     
+! forref  : real     
+!
+! absa    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng7  = 12
+
+      real(kind=rb) , dimension(ng7) :: fracrefb
+      real(kind=rb) :: fracrefa(ng7,9)
+      real(kind=rb) :: ka(9,5,13,ng7) ,absa(585,ng7)
+      real(kind=rb) :: kb(5,13:59,ng7),absb(235,ng7)
+      real(kind=rb) :: ka_mco2(9,19,ng7)
+      real(kind=rb) :: kb_mco2(19,ng7)
+      real(kind=rb) :: selfref(10,ng7)
+      real(kind=rb) :: forref(4,ng7)
+
+      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))
+
+      end module rrlw_kg07
diff --git a/radiation/modules/rrlw_kg08.f90 b/radiation/modules/rrlw_kg08.f90
new file mode 100644
index 0000000000000000000000000000000000000000..d506d45d033bff36efb0a1c191bf8b16082dafb4
--- /dev/null
+++ b/radiation/modules/rrlw_kg08.f90
@@ -0,0 +1,100 @@
+      module rrlw_kg08
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 8
+! band 8:  1080-1180 cm-1 (low (i.e.>~300mb) - h2o; high - o3)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real    
+! kao     : real     
+! kbo     : real     
+! kao_mco2: real     
+! kbo_mco2: real     
+! kao_mn2o: real     
+! kbo_mn2o: real     
+! kao_mo3 : real     
+! selfrefo: real     
+! forrefo : real     
+! cfc12o  : real     
+!cfc22adjo: real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no8  = 16
+
+      real(kind=rb) , dimension(no8) :: fracrefao
+      real(kind=rb) , dimension(no8) :: fracrefbo
+      real(kind=rb) , dimension(no8) :: cfc12o
+      real(kind=rb) , dimension(no8) :: cfc22adjo
+
+      real(kind=rb) :: kao(5,13,no8)
+      real(kind=rb) :: kao_mco2(19,no8)
+      real(kind=rb) :: kao_mn2o(19,no8)
+      real(kind=rb) :: kao_mo3(19,no8)
+      real(kind=rb) :: kbo(5,13:59,no8)
+      real(kind=rb) :: kbo_mco2(19,no8)
+      real(kind=rb) :: kbo_mn2o(19,no8)
+      real(kind=rb) :: selfrefo(10,no8)
+      real(kind=rb) :: forrefo(4,no8)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 8
+! band 8:  1080-1180 cm-1 (low (i.e.>~300mb) - h2o; high - o3)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+!fracrefb : real    
+! ka      : real     
+! kb      : real     
+! ka_mco2 : real     
+! kb_mco2 : real     
+! ka_mn2o : real     
+! kb_mn2o : real     
+! ka_mo3  : real     
+! selfref : real     
+! forref  : real     
+! cfc12   : real     
+! cfc22adj: real     
+!
+! absa    : real
+! absb    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng8  = 8
+
+      real(kind=rb) , dimension(ng8) :: fracrefa
+      real(kind=rb) , dimension(ng8) :: fracrefb
+      real(kind=rb) , dimension(ng8) :: cfc12
+      real(kind=rb) , dimension(ng8) :: cfc22adj
+
+      real(kind=rb) :: ka(5,13,ng8)    ,absa(65,ng8)
+      real(kind=rb) :: kb(5,13:59,ng8) ,absb(235,ng8)
+      real(kind=rb) :: ka_mco2(19,ng8)
+      real(kind=rb) :: ka_mn2o(19,ng8)
+      real(kind=rb) :: ka_mo3(19,ng8)
+      real(kind=rb) :: kb_mco2(19,ng8)
+      real(kind=rb) :: kb_mn2o(19,ng8)
+      real(kind=rb) :: selfref(10,ng8)
+      real(kind=rb) :: forref(4,ng8)
+
+      equivalence (ka(1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))
+
+      end module rrlw_kg08
+
diff --git a/radiation/modules/rrlw_kg09.f90 b/radiation/modules/rrlw_kg09.f90
new file mode 100644
index 0000000000000000000000000000000000000000..d407ce494ddc4c731d418d84fab273acb08a7575
--- /dev/null
+++ b/radiation/modules/rrlw_kg09.f90
@@ -0,0 +1,78 @@
+      module rrlw_kg09
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 9
+! band 9:  1180-1390 cm-1 (low - h2o,ch4; high - ch4)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real    
+! kao     : real     
+! kbo     : real     
+! kao_mn2o: real     
+! kbo_mn2o: real     
+! selfrefo: real     
+! forrefo : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no9  = 16
+
+      real(kind=rb) , dimension(no9) :: fracrefbo
+
+      real(kind=rb) :: fracrefao(no9,9)
+      real(kind=rb) :: kao(9,5,13,no9)
+      real(kind=rb) :: kbo(5,13:59,no9)
+      real(kind=rb) :: kao_mn2o(9,19,no9)
+      real(kind=rb) :: kbo_mn2o(19,no9)
+      real(kind=rb) :: selfrefo(10,no9)
+      real(kind=rb) :: forrefo(4,no9)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 9
+! band 9:  1180-1390 cm-1 (low - h2o,ch4; high - ch4)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+!fracrefb : real    
+! ka      : real     
+! kb      : real     
+! ka_mn2o : real     
+! kb_mn2o : real     
+! selfref : real     
+! forref  : real     
+!
+! absa    : real
+! absb    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng9  = 12
+
+      real(kind=rb) , dimension(ng9) :: fracrefb
+      real(kind=rb) :: fracrefa(ng9,9)
+      real(kind=rb) :: ka(9,5,13,ng9) ,absa(585,ng9)
+      real(kind=rb) :: kb(5,13:59,ng9) ,absb(235,ng9)
+      real(kind=rb) :: ka_mn2o(9,19,ng9)
+      real(kind=rb) :: kb_mn2o(19,ng9)
+      real(kind=rb) :: selfref(10,ng9)
+      real(kind=rb) :: forref(4,ng9)
+
+      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))
+
+      end module rrlw_kg09
diff --git a/radiation/modules/rrlw_kg10.f90 b/radiation/modules/rrlw_kg10.f90
new file mode 100644
index 0000000000000000000000000000000000000000..9afed7b2e7a1eca1b4755666aa346f508583b8c6
--- /dev/null
+++ b/radiation/modules/rrlw_kg10.f90
@@ -0,0 +1,71 @@
+      module rrlw_kg10
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 10
+! band 10:  1390-1480 cm-1 (low - h2o; high - h2o)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real    
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no10 = 16
+
+      real(kind=rb) , dimension(no10) :: fracrefao
+      real(kind=rb) , dimension(no10) :: fracrefbo
+
+      real(kind=rb) :: kao(5,13,no10)
+      real(kind=rb) :: kbo(5,13:59,no10)
+      real(kind=rb) :: selfrefo(10,no10)
+      real(kind=rb) :: forrefo(4,no10)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 10
+! band 10:  1390-1480 cm-1 (low - h2o; high - h2o)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real    
+! kao     : real     
+! kbo     : real     
+! selfref : real     
+! forref  : real     
+!
+! absa    : real
+! absb    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng10 = 6
+
+      real(kind=rb) , dimension(ng10) :: fracrefa
+      real(kind=rb) , dimension(ng10) :: fracrefb
+
+      real(kind=rb) :: ka(5,13,ng10)   , absa(65,ng10)
+      real(kind=rb) :: kb(5,13:59,ng10), absb(235,ng10)
+      real(kind=rb) :: selfref(10,ng10)
+      real(kind=rb) :: forref(4,ng10)
+
+      equivalence (ka(1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))
+
+      end module rrlw_kg10
diff --git a/radiation/modules/rrlw_kg11.f90 b/radiation/modules/rrlw_kg11.f90
new file mode 100644
index 0000000000000000000000000000000000000000..b8093f41923b0d8410ef59b077806bd02315d441
--- /dev/null
+++ b/radiation/modules/rrlw_kg11.f90
@@ -0,0 +1,79 @@
+      module rrlw_kg11
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 11
+! band 11:  1480-1800 cm-1 (low - h2o; high - h2o)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real    
+! kao     : real     
+! kbo     : real     
+! kao_mo2 : real     
+! kbo_mo2 : real     
+! selfrefo: real     
+! forrefo : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no11 = 16
+
+      real(kind=rb) , dimension(no11) :: fracrefao
+      real(kind=rb) , dimension(no11) :: fracrefbo
+
+      real(kind=rb) :: kao(5,13,no11)
+      real(kind=rb) :: kbo(5,13:59,no11)
+      real(kind=rb) :: kao_mo2(19,no11)
+      real(kind=rb) :: kbo_mo2(19,no11)
+      real(kind=rb) :: selfrefo(10,no11)
+      real(kind=rb) :: forrefo(4,no11)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 11
+! band 11:  1480-1800 cm-1 (low - h2o; high - h2o)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+!fracrefb : real    
+! ka      : real     
+! kb      : real     
+! ka_mo2  : real     
+! kb_mo2  : real     
+! selfref : real     
+! forref  : real     
+!
+! absa    : real
+! absb    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng11 = 8
+
+      real(kind=rb) , dimension(ng11) :: fracrefa
+      real(kind=rb) , dimension(ng11) :: fracrefb
+
+      real(kind=rb) :: ka(5,13,ng11)   , absa(65,ng11)
+      real(kind=rb) :: kb(5,13:59,ng11), absb(235,ng11)
+      real(kind=rb) :: ka_mo2(19,ng11)
+      real(kind=rb) :: kb_mo2(19,ng11)
+      real(kind=rb) :: selfref(10,ng11)
+      real(kind=rb) :: forref(4,ng11)
+
+      equivalence (ka(1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))
+
+      end module rrlw_kg11
diff --git a/radiation/modules/rrlw_kg12.f90 b/radiation/modules/rrlw_kg12.f90
new file mode 100644
index 0000000000000000000000000000000000000000..993c78573ab85651fde00a6a5810ec99cc8e58cd
--- /dev/null
+++ b/radiation/modules/rrlw_kg12.f90
@@ -0,0 +1,60 @@
+      module rrlw_kg12
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 12
+! band 12:  1800-2080 cm-1 (low - h2o,co2; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+! kao     : real     
+! selfrefo: real     
+! forrefo : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no12 = 16
+
+      real(kind=rb) :: fracrefao(no12,9)
+      real(kind=rb) :: kao(9,5,13,no12)
+      real(kind=rb) :: selfrefo(10,no12)
+      real(kind=rb) :: forrefo(4,no12)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 12
+! band 12:  1800-2080 cm-1 (low - h2o,co2; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+! ka      : real     
+! selfref : real     
+! forref  : real     
+!
+! absa    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng12 = 8
+
+      real(kind=rb) :: fracrefa(ng12,9)
+      real(kind=rb) :: ka(9,5,13,ng12) ,absa(585,ng12)
+      real(kind=rb) :: selfref(10,ng12)
+      real(kind=rb) :: forref(4,ng12)
+
+      equivalence (ka(1,1,1,1),absa(1,1))
+
+      end module rrlw_kg12
diff --git a/radiation/modules/rrlw_kg13.f90 b/radiation/modules/rrlw_kg13.f90
new file mode 100644
index 0000000000000000000000000000000000000000..bb9a93c5f54cfed602cc72fbd90fe226f367c4e2
--- /dev/null
+++ b/radiation/modules/rrlw_kg13.f90
@@ -0,0 +1,76 @@
+      module rrlw_kg13
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 13
+! band 13:  2080-2250 cm-1 (low - h2o,n2o; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+! kao     : real     
+! kao_mco2: real     
+! kao_mco : real     
+! kbo_mo3 : real     
+! selfrefo: real     
+! forrefo : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no13 = 16
+
+      real(kind=rb) , dimension(no13) :: fracrefbo
+
+      real(kind=rb) :: fracrefao(no13,9)
+      real(kind=rb) :: kao(9,5,13,no13)
+      real(kind=rb) :: kao_mco2(9,19,no13)
+      real(kind=rb) :: kao_mco(9,19,no13)
+      real(kind=rb) :: kbo_mo3(19,no13)
+      real(kind=rb) :: selfrefo(10,no13)
+      real(kind=rb) :: forrefo(4,no13)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 13
+! band 13:  2080-2250 cm-1 (low - h2o,n2o; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+! ka      : real     
+! ka_mco2 : real     
+! ka_mco  : real     
+! kb_mo3  : real     
+! selfref : real     
+! forref  : real     
+!
+! absa    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng13 = 4
+
+      real(kind=rb) , dimension(ng13) :: fracrefb
+
+      real(kind=rb) :: fracrefa(ng13,9)
+      real(kind=rb) :: ka(9,5,13,ng13) ,absa(585,ng13)
+      real(kind=rb) :: ka_mco2(9,19,ng13)
+      real(kind=rb) :: ka_mco(9,19,ng13)
+      real(kind=rb) :: kb_mo3(19,ng13)
+      real(kind=rb) :: selfref(10,ng13)
+      real(kind=rb) :: forref(4,ng13)
+
+      equivalence (ka(1,1,1,1),absa(1,1))
+
+      end module rrlw_kg13
diff --git a/radiation/modules/rrlw_kg14.f90 b/radiation/modules/rrlw_kg14.f90
new file mode 100644
index 0000000000000000000000000000000000000000..a55fc25fc9b88cf06145cb370416c053359723f4
--- /dev/null
+++ b/radiation/modules/rrlw_kg14.f90
@@ -0,0 +1,71 @@
+      module rrlw_kg14
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 14
+! band 14:  2250-2380 cm-1 (low - co2; high - co2)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+!fracrefbo: real    
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no14 = 16
+
+      real(kind=rb) , dimension(no14) :: fracrefao
+      real(kind=rb) , dimension(no14) :: fracrefbo
+
+      real(kind=rb) :: kao(5,13,no14)
+      real(kind=rb) :: kbo(5,13:59,no14)
+      real(kind=rb) :: selfrefo(10,no14)
+      real(kind=rb) :: forrefo(4,no14)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 14
+! band 14:  2250-2380 cm-1 (low - co2; high - co2)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+!fracrefb : real    
+! ka      : real     
+! kb      : real     
+! selfref : real     
+! forref  : real     
+!
+! absa    : real
+! absb    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng14 = 2
+
+      real(kind=rb) , dimension(ng14) :: fracrefa
+      real(kind=rb) , dimension(ng14) :: fracrefb
+
+      real(kind=rb) :: ka(5,13,ng14)   ,absa(65,ng14)
+      real(kind=rb) :: kb(5,13:59,ng14),absb(235,ng14)
+      real(kind=rb) :: selfref(10,ng14)
+      real(kind=rb) :: forref(4,ng14)
+
+      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrlw_kg14
diff --git a/radiation/modules/rrlw_kg15.f90 b/radiation/modules/rrlw_kg15.f90
new file mode 100644
index 0000000000000000000000000000000000000000..4d4e8089f28f1d5af41a7d25ea23b6116e082771
--- /dev/null
+++ b/radiation/modules/rrlw_kg15.f90
@@ -0,0 +1,65 @@
+      module rrlw_kg15
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 15
+! band 15:  2380-2600 cm-1 (low - n2o,co2; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+! kao     : real     
+! kao_mn2 : real     
+! selfrefo: real     
+! forrefo : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no15 = 16
+
+      real(kind=rb) :: fracrefao(no15,9)
+      real(kind=rb) :: kao(9,5,13,no15)
+      real(kind=rb) :: kao_mn2(9,19,no15)
+      real(kind=rb) :: selfrefo(10,no15)
+      real(kind=rb) :: forrefo(4,no15)
+
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 15
+! band 15:  2380-2600 cm-1 (low - n2o,co2; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+! ka      : real     
+! ka_mn2  : real     
+! selfref : real     
+! forref  : real     
+!
+! absa    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng15 = 2
+
+      real(kind=rb) :: fracrefa(ng15,9)
+      real(kind=rb) :: ka(9,5,13,ng15) ,absa(585,ng15)
+      real(kind=rb) :: ka_mn2(9,19,ng15)
+      real(kind=rb) :: selfref(10,ng15)
+      real(kind=rb) :: forref(4,ng15)
+
+      equivalence (ka(1,1,1,1),absa(1,1))
+
+      end module rrlw_kg15
diff --git a/radiation/modules/rrlw_kg16.f90 b/radiation/modules/rrlw_kg16.f90
new file mode 100644
index 0000000000000000000000000000000000000000..6d5592feda6f45124bb9a6d1e223247bef6d3870
--- /dev/null
+++ b/radiation/modules/rrlw_kg16.f90
@@ -0,0 +1,70 @@
+      module rrlw_kg16
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_lw ORIGINAL abs. coefficients for interval 16
+! band 16:  2600-3000 cm-1 (low - h2o,ch4; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefao: real    
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no16 = 16
+
+      real(kind=rb) , dimension(no16) :: fracrefbo
+
+      real(kind=rb) :: fracrefao(no16,9)
+      real(kind=rb) :: kao(9,5,13,no16)
+      real(kind=rb) :: kbo(5,13:59,no16)
+      real(kind=rb) :: selfrefo(10,no16)
+      real(kind=rb) :: forrefo(4,no16)
+
+!-----------------------------------------------------------------
+! rrtmg_lw COMBINED abs. coefficients for interval 16
+! band 16:  2600-3000 cm-1 (low - h2o,ch4; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!fracrefa : real    
+! ka      : real     
+! kb      : real     
+! selfref : real     
+! forref  : real     
+!
+! absa    : real
+! absb    : real
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: ng16 = 2
+
+      real(kind=rb) , dimension(ng16) :: fracrefb
+
+      real(kind=rb) :: fracrefa(ng16,9)
+      real(kind=rb) :: ka(9,5,13,ng16) ,absa(585,ng16)
+      real(kind=rb) :: kb(5,13:59,ng16), absb(235,ng16)
+      real(kind=rb) :: selfref(10,ng16)
+      real(kind=rb) :: forref(4,ng16)
+
+      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrlw_kg16
+
diff --git a/radiation/modules/rrlw_ncpar.f90 b/radiation/modules/rrlw_ncpar.f90
new file mode 100644
index 0000000000000000000000000000000000000000..6d3e0dd0390c4c6e2e546bf99357ee9e19871ace
--- /dev/null
+++ b/radiation/modules/rrlw_ncpar.f90
@@ -0,0 +1,66 @@
+module rrlw_ncpar
+	use parkind ,only : im => kind_im, rb => kind_rb
+
+	implicit none
+        save
+	
+        real(kind=rb), parameter :: cpdair = 1003.5  ! Specific heat capacity of dry air
+                                        		 ! at constant pressure at 273 K
+                                        		 ! (J kg-1 K-1)
+
+	
+	integer(kind=im), parameter :: maxAbsorberNameLength = 5, &
+                          Absorber              = 12
+    character(len = maxAbsorberNameLength), dimension(Absorber), parameter :: &
+    AbsorberNames = (/        &
+     				'N2   ',  &
+     				'CCL4 ',  &
+     				'CFC11',  &
+     				'CFC12',  &
+     				'CFC22',  &
+     				'H2O  ',  &
+     				'CO2  ',  &
+     				'O3   ',  &
+     				'N2O  ',  & 
+     				'CO   ',  &
+     				'CH4  ',  &
+     				'O2   '  /)
+	
+	integer(kind=im), dimension(40) :: status
+	integer(kind=im) :: i
+	integer(kind=im), parameter :: keylower  = 9,   &
+						  keyupper  = 5,   &
+						  Tdiff     = 5,   &
+						  ps        = 59,  &
+						  plower    = 13,  &
+						  pupper    = 47,  &
+						  Tself     = 10,  &
+						  Tforeign  = 4,   &
+						  pforeign  = 4,   &
+						  T         = 19,  &
+						  Tplanck   = 181, &
+						  band      = 16,  &
+						  GPoint    = 16,  &
+						  GPointSet = 2
+						  
+	contains 
+	
+	subroutine getAbsorberIndex(AbsorberName,AbsorberIndex)
+		character(len = *), intent(in) :: AbsorberName
+		integer(kind=im), intent(out)           :: AbsorberIndex
+		
+		integer(kind=im) :: m
+	
+		AbsorberIndex = -1
+		do m = 1, Absorber
+			if (trim(AbsorberNames(m)) == trim(AbsorberName)) then
+				AbsorberIndex = m
+			end if
+		end do
+		
+		if (AbsorberIndex == -1) then
+			print*, "Absorber name index lookup failed."
+		end if
+	end subroutine getAbsorberIndex
+
+end module rrlw_ncpar
diff --git a/radiation/modules/rrlw_ref.f90 b/radiation/modules/rrlw_ref.f90
new file mode 100644
index 0000000000000000000000000000000000000000..b955618ce9836a0b487afd52cebf2aa2f2c3675b
--- /dev/null
+++ b/radiation/modules/rrlw_ref.f90
@@ -0,0 +1,30 @@
+      module rrlw_ref
+
+      use parkind, only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_lw reference atmosphere 
+! Based on standard mid-latitude summer profile
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! pref   :  real   : Reference pressure levels
+! preflog:  real   : Reference pressure levels, ln(pref)
+! tref   :  real   : Reference temperature levels for MLS profile
+! chi_mls:  real   : 
+!------------------------------------------------------------------
+
+      real(kind=rb) , dimension(59) :: pref
+      real(kind=rb) , dimension(59) :: preflog
+      real(kind=rb) , dimension(59) :: tref
+      real(kind=rb) :: chi_mls(7,59)
+
+      end module rrlw_ref
diff --git a/radiation/modules/rrlw_tbl.f90 b/radiation/modules/rrlw_tbl.f90
new file mode 100644
index 0000000000000000000000000000000000000000..46931cccd3d9d5b41625be156d317a2aa2b631c0
--- /dev/null
+++ b/radiation/modules/rrlw_tbl.f90
@@ -0,0 +1,46 @@
+      module rrlw_tbl
+
+      use parkind, only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_lw exponential lookup table arrays
+
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, Jun 2006
+! Revised: MJIacono, AER, Aug 2007
+! Revised: MJIacono, AER, Aug 2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! ntbl   :  integer: Lookup table dimension
+! tblint :  real   : Lookup table conversion factor
+! tau_tbl:  real   : Clear-sky optical depth (used in cloudy radiative
+!                    transfer)
+! exp_tbl:  real   : Transmittance lookup table
+! tfn_tbl:  real   : Tau transition function; i.e. the transition of
+!                    the Planck function from that for the mean layer
+!                    temperature to that for the layer boundary
+!                    temperature as a function of optical depth.
+!                    The "linear in tau" method is used to make 
+!                    the table.
+! pade   :  real   : Pade constant   
+! bpade  :  real   : Inverse of Pade constant   
+!------------------------------------------------------------------
+
+      integer(kind=im), parameter :: ntbl = 10000
+
+      real(kind=rb), parameter :: tblint = 10000.0_rb
+
+      real(kind=rb) , dimension(0:ntbl) :: tau_tbl
+      real(kind=rb) , dimension(0:ntbl) :: exp_tbl
+      real(kind=rb) , dimension(0:ntbl) :: tfn_tbl
+
+      real(kind=rb), parameter :: pade = 0.278_rb
+      real(kind=rb) :: bpade
+
+      end module rrlw_tbl
+
diff --git a/radiation/modules/rrlw_vsn.f90 b/radiation/modules/rrlw_vsn.f90
new file mode 100644
index 0000000000000000000000000000000000000000..b23a9342a6a6b8ba6b52533899e434f016e763e5
--- /dev/null
+++ b/radiation/modules/rrlw_vsn.f90
@@ -0,0 +1,54 @@
+      module rrlw_vsn
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_lw version information
+
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+!hnamrtm :character: 
+!hnamini :character: 
+!hnamcld :character: 
+!hnamclc :character: 
+!hnamrtr :character: 
+!hnamrtx :character: 
+!hnamrtc :character: 
+!hnamset :character: 
+!hnamtau :character: 
+!hnamatm :character: 
+!hnamutl :character: 
+!hnamext :character: 
+!hnamkg  :character: 
+!
+! hvrrtm :character: 
+! hvrini :character: 
+! hvrcld :character: 
+! hvrclc :character: 
+! hvrrtr :character: 
+! hvrrtx :character: 
+! hvrrtc :character: 
+! hvrset :character: 
+! hvrtau :character: 
+! hvratm :character: 
+! hvrutl :character: 
+! hvrext :character: 
+! hvrkg  :character: 
+!------------------------------------------------------------------
+
+      character*18 hvrrtm,hvrini,hvrcld,hvrclc,hvrrtr,hvrrtx, &
+                   hvrrtc,hvrset,hvrtau,hvratm,hvrutl,hvrext
+      character*20 hnamrtm,hnamini,hnamcld,hnamclc,hnamrtr,hnamrtx, &
+                   hnamrtc,hnamset,hnamtau,hnamatm,hnamutl,hnamext
+
+      character*18 hvrkg
+      character*20 hnamkg
+
+      end module rrlw_vsn
+
diff --git a/radiation/modules/rrlw_wvn.f90 b/radiation/modules/rrlw_wvn.f90
new file mode 100644
index 0000000000000000000000000000000000000000..467ad38e7f82570f799e606c2d887e74d22ec751
--- /dev/null
+++ b/radiation/modules/rrlw_wvn.f90
@@ -0,0 +1,86 @@
+      module rrlw_wvn
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrtm, only : nbndlw, mg, ngptlw, maxinpx
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_lw spectral information
+
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! ng     :  integer: Number of original g-intervals in each spectral band
+! nspa   :  integer: For the lower atmosphere, the number of reference
+!                    atmospheres that are stored for each spectral band
+!                    per pressure level and temperature.  Each of these
+!                    atmospheres has different relative amounts of the 
+!                    key species for the band (i.e. different binary
+!                    species parameters).
+! nspb   :  integer: Same as nspa for the upper atmosphere
+!wavenum1:  real   : Spectral band lower boundary in wavenumbers
+!wavenum2:  real   : Spectral band upper boundary in wavenumbers
+! delwave:  real   : Spectral band width in wavenumbers
+! totplnk:  real   : Integrated Planck value for each band; (band 16
+!                    includes total from 2600 cm-1 to infinity)
+!                    Used for calculation across total spectrum
+!totplk16:  real   : Integrated Planck value for band 16 (2600-3250 cm-1)
+!                    Used for calculation in band 16 only if 
+!                    individual band output requested
+!totplnkderiv: real: Integrated Planck function derivative with respect
+!                    to temperature for each band; (band 16
+!                    includes total from 2600 cm-1 to infinity)
+!                    Used for calculation across total spectrum
+!totplk16deriv:real: Integrated Planck function derivative with respect
+!                    to temperature for band 16 (2600-3250 cm-1)
+!                    Used for calculation in band 16 only if 
+!                    individual band output requested
+!
+! ngc    :  integer: The number of new g-intervals in each band
+! ngs    :  integer: The cumulative sum of new g-intervals for each band
+! ngm    :  integer: The index of each new g-interval relative to the
+!                    original 16 g-intervals in each band
+! ngn    :  integer: The number of original g-intervals that are 
+!                    combined to make each new g-intervals in each band
+! ngb    :  integer: The band index for each new g-interval
+! wt     :  real   : RRTM weights for the original 16 g-intervals
+! rwgt   :  real   : Weights for combining original 16 g-intervals 
+!                    (256 total) into reduced set of g-intervals 
+!                    (140 total)
+! nxmol  :  integer: Number of cross-section molecules
+! ixindx :  integer: Flag for active cross-sections in calculation
+!------------------------------------------------------------------
+
+      integer(kind=im) :: ng(nbndlw)
+      integer(kind=im) :: nspa(nbndlw)
+      integer(kind=im) :: nspb(nbndlw)
+
+      real(kind=rb) :: wavenum1(nbndlw)
+      real(kind=rb) :: wavenum2(nbndlw)
+      real(kind=rb) :: delwave(nbndlw)
+
+      real(kind=rb) :: totplnk(181,nbndlw)
+      real(kind=rb) :: totplk16(181)
+
+      real(kind=rb) :: totplnkderiv(181,nbndlw)
+      real(kind=rb) :: totplk16deriv(181)
+
+      integer(kind=im) :: ngc(nbndlw)
+      integer(kind=im) :: ngs(nbndlw)
+      integer(kind=im) :: ngn(ngptlw)
+      integer(kind=im) :: ngb(ngptlw)
+      integer(kind=im) :: ngm(nbndlw*mg)
+
+      real(kind=rb) :: wt(mg)
+      real(kind=rb) :: rwgt(nbndlw*mg)
+
+      integer(kind=im) :: nxmol
+      integer(kind=im) :: ixindx(maxinpx)
+
+      end module rrlw_wvn
diff --git a/radiation/modules/rrsw_aer.f90 b/radiation/modules/rrsw_aer.f90
new file mode 100644
index 0000000000000000000000000000000000000000..f1802b8d73c65aff58d73d9dc6eb39a6a8748a57
--- /dev/null
+++ b/radiation/modules/rrsw_aer.f90
@@ -0,0 +1,60 @@
+      module rrsw_aer
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only : nbndsw, naerec
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_sw aerosol optical properties
+!
+!  Data derived from six ECMWF aerosol types and defined for
+!  the rrtmg_sw spectral intervals
+!
+! Initial: J.-J. Morcrette, ECMWF, mar2003
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+!
+!-- The six ECMWF aerosol types are respectively:
+!
+!  1/ continental average                 2/ maritime
+!  3/ desert                              4/ urban
+!  5/ volcanic active                     6/ stratospheric background
+!
+! computed from Hess and Koepke (con, mar, des, urb)
+!          from Bonnel et al.   (vol, str)
+!
+! rrtmg_sw 14 spectral intervals (microns):
+!  3.846 -  3.077
+!  3.077 -  2.500
+!  2.500 -  2.150
+!  2.150 -  1.942
+!  1.942 -  1.626
+!  1.626 -  1.299
+!  1.299 -  1.242
+!  1.242 -  0.7782
+!  0.7782-  0.6250
+!  0.6250-  0.4415
+!  0.4415-  0.3448
+!  0.3448-  0.2632
+!  0.2632-  0.2000
+! 12.195 -  3.846
+!
+!------------------------------------------------------------------
+!
+!  name     type     purpose
+! -----   : ----   : ----------------------------------------------
+! rsrtaua : real   : ratio of average optical thickness in 
+!                    spectral band to that at 0.55 micron
+! rsrpiza : real   : average single scattering albedo (unitless)
+! rsrasya : real   : average asymmetry parameter (unitless)
+!------------------------------------------------------------------
+
+      real(kind=rb) :: rsrtaua(nbndsw,naerec)
+      real(kind=rb) :: rsrpiza(nbndsw,naerec)
+      real(kind=rb) :: rsrasya(nbndsw,naerec)
+
+      end module rrsw_aer
+
diff --git a/radiation/modules/rrsw_cld.f90 b/radiation/modules/rrsw_cld.f90
new file mode 100644
index 0000000000000000000000000000000000000000..f74d1a3cbcef877ccbc37366400966bba196ae96
--- /dev/null
+++ b/radiation/modules/rrsw_cld.f90
@@ -0,0 +1,47 @@
+      module rrsw_cld
+
+      use parkind, only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_sw cloud property coefficients
+!
+! Initial: J.-J. Morcrette, ECMWF, oct1999
+! Revised: J. Delamere/MJIacono, AER, aug2005
+! Revised: MJIacono, AER, nov2005
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, dec2013: Updated xxxliq1 look-up tables
+!------------------------------------------------------------------
+!
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! xxxliq1 : real   : optical properties (extinction coefficient, single 
+!                    scattering albedo, assymetry factor) based on 
+!                    Hu & Stamnes, j. clim., 6, 728-742, 1993. Derived
+!                    from Mie scattering calculations at higher spectral
+!                    resolution than Hu & Stamnes. Used in CIRC (Continuous
+!                    Intercomparison of Radiation Codes) project. 
+! xxxice2 : real   : optical properties (extinction coefficient, single 
+!                    scattering albedo, assymetry factor) from streamer v3.0,
+!                    Key, streamer user's guide, cooperative institude 
+!                    for meteorological studies, 95 pp., 2001.
+! xxxice3 : real   : optical properties (extinction coefficient, single 
+!                    scattering albedo, assymetry factor) from
+!                    Fu, j. clim., 9, 1996.
+! xbari   : real   : optical property coefficients for five spectral 
+!                    intervals (2857-4000, 4000-5263, 5263-7692, 7692-14285,
+!                    and 14285-40000 wavenumbers) following 
+!                    Ebert and Curry, jgr, 97, 3831-3836, 1992.
+!------------------------------------------------------------------
+
+      real(kind=rb) :: extliq1(58,16:29), ssaliq1(58,16:29), asyliq1(58,16:29)
+      real(kind=rb) :: extice2(43,16:29), ssaice2(43,16:29), asyice2(43,16:29)
+      real(kind=rb) :: extice3(46,16:29), ssaice3(46,16:29), asyice3(46,16:29)
+      real(kind=rb) :: fdlice3(46,16:29)
+      real(kind=rb) :: abari(5),bbari(5),cbari(5),dbari(5),ebari(5),fbari(5)
+
+      end module rrsw_cld
+
diff --git a/radiation/modules/rrsw_con.f90 b/radiation/modules/rrsw_con.f90
new file mode 100644
index 0000000000000000000000000000000000000000..0940bdd74fced238ecf82b4be7b1d526250a2f47
--- /dev/null
+++ b/radiation/modules/rrsw_con.f90
@@ -0,0 +1,42 @@
+      module rrsw_con
+
+      use parkind, only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_sw constants
+
+! Initial version: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! fluxfac:  real   : radiance to flux conversion factor 
+! heatfac:  real   : flux to heating rate conversion factor
+!oneminus:  real   : 1.-1.e-6
+! pi     :  real   : pi
+! grav   :  real   : acceleration of gravity
+! planck :  real   : planck constant
+! boltz  :  real   : boltzmann constant
+! clight :  real   : speed of light
+! avogad :  real   : avogadro constant 
+! alosmt :  real   : loschmidt constant
+! gascon :  real   : molar gas constant
+! radcn1 :  real   : first radiation constant
+! radcn2 :  real   : second radiation constant
+! sbcnst :  real   : stefan-boltzmann constant
+!  secdy :  real   : seconds per day
+!------------------------------------------------------------------
+
+      real(kind=rb) :: fluxfac, heatfac
+      real(kind=rb) :: oneminus, pi, grav
+      real(kind=rb) :: planck, boltz, clight
+      real(kind=rb) :: avogad, alosmt, gascon
+      real(kind=rb) :: radcn1, radcn2
+      real(kind=rb) :: sbcnst, secdy
+
+      end module rrsw_con
+
diff --git a/radiation/modules/rrsw_kg16.f90 b/radiation/modules/rrsw_kg16.f90
new file mode 100644
index 0000000000000000000000000000000000000000..fe3e25d9990e8b0179a3145ec56d644b8091105e
--- /dev/null
+++ b/radiation/modules/rrsw_kg16.f90
@@ -0,0 +1,76 @@
+      module rrsw_kg16
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng16
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 16
+! band 16:  2600-3250 cm-1 (low - h2o,ch4; high - ch4)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no16 = 16
+
+      real(kind=rb) :: kao(9,5,13,no16)
+      real(kind=rb) :: kbo(5,13:59,no16)
+      real(kind=rb) :: selfrefo(10,no16), forrefo(3,no16)
+      real(kind=rb) :: sfluxrefo(no16)
+      real(kind=rb) :: irradnceo(no16)
+      real(kind=rb) :: facbrghto(no16),snsptdrko(no16)
+
+      real(kind=rb) :: rayl
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 16
+! band 16:  2600-3250 cm-1 (low - h2o,ch4; high - ch4)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! selfref : real     
+! forref  : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(9,5,13,ng16) , absa(585,ng16)
+      real(kind=rb) :: kb(5,13:59,ng16), absb(235,ng16)
+      real(kind=rb) :: selfref(10,ng16), forref(3,ng16)
+      real(kind=rb) :: sfluxref(ng16)
+      real(kind=rb) :: irradnce(ng16)
+      real(kind=rb) :: facbrght(ng16),snsptdrk(ng16)
+
+      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrsw_kg16
+
diff --git a/radiation/modules/rrsw_kg17.f90 b/radiation/modules/rrsw_kg17.f90
new file mode 100644
index 0000000000000000000000000000000000000000..6759cc9874251e77fd2c084c8b91ab59fafa6fea
--- /dev/null
+++ b/radiation/modules/rrsw_kg17.f90
@@ -0,0 +1,76 @@
+      module rrsw_kg17
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng17
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 17
+! band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no17 = 16
+
+      real(kind=rb) :: kao(9,5,13,no17)
+      real(kind=rb) :: kbo(5,5,13:59,no17)
+      real(kind=rb) :: selfrefo(10,no17), forrefo(4,no17)
+      real(kind=rb) :: sfluxrefo(no17,5)
+      real(kind=rb) :: irradnceo(no17,5)
+      real(kind=rb) :: facbrghto(no17,5),snsptdrko(no17,5)
+
+      real(kind=rb) :: rayl
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 17
+! band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! selfref : real     
+! forref  : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(9,5,13,ng17) , absa(585,ng17)
+      real(kind=rb) :: kb(5,5,13:59,ng17), absb(1175,ng17)
+      real(kind=rb) :: selfref(10,ng17), forref(4,ng17)
+      real(kind=rb) :: sfluxref(ng17,5)
+      real(kind=rb) :: irradnce(ng17,5)
+      real(kind=rb) :: facbrght(ng17,5),snsptdrk(ng17,5)
+
+      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1))
+
+      end module rrsw_kg17
+
diff --git a/radiation/modules/rrsw_kg18.f90 b/radiation/modules/rrsw_kg18.f90
new file mode 100644
index 0000000000000000000000000000000000000000..930eca2949378462553e03f0ebc52fa6e44ab5db
--- /dev/null
+++ b/radiation/modules/rrsw_kg18.f90
@@ -0,0 +1,76 @@
+      module rrsw_kg18
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng18
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 18
+! band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no18 = 16
+
+      real(kind=rb) :: kao(9,5,13,no18)
+      real(kind=rb) :: kbo(5,13:59,no18)
+      real(kind=rb) :: selfrefo(10,no18), forrefo(3,no18)
+      real(kind=rb) :: sfluxrefo(no18,9)
+      real(kind=rb) :: irradnceo(no18,9)
+      real(kind=rb) :: facbrghto(no18,9),snsptdrko(no18,9)
+
+      real(kind=rb) :: rayl
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 18
+! band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! selfref : real     
+! forref  : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(9,5,13,ng18), absa(585,ng18)
+      real(kind=rb) :: kb(5,13:59,ng18), absb(235,ng18)
+      real(kind=rb) :: selfref(10,ng18), forref(3,ng18)
+      real(kind=rb) :: sfluxref(ng18,9)
+      real(kind=rb) :: irradnce(ng18,9)
+      real(kind=rb) :: facbrght(ng18,9),snsptdrk(ng18,9)
+
+      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrsw_kg18
+
diff --git a/radiation/modules/rrsw_kg19.f90 b/radiation/modules/rrsw_kg19.f90
new file mode 100644
index 0000000000000000000000000000000000000000..ffab4a9dd4945e22941951c7d1ff47f1979d04da
--- /dev/null
+++ b/radiation/modules/rrsw_kg19.f90
@@ -0,0 +1,76 @@
+      module rrsw_kg19
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng19
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 19
+! band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no19 = 16
+
+      real(kind=rb) :: kao(9,5,13,no19)
+      real(kind=rb) :: kbo(5,13:59,no19)
+      real(kind=rb) :: selfrefo(10,no19), forrefo(3,no19)
+      real(kind=rb) :: sfluxrefo(no19,9)
+      real(kind=rb) :: irradnceo(no19,9)
+      real(kind=rb) :: facbrghto(no19,9),snsptdrko(no19,9)
+
+      real(kind=rb) :: rayl
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 19
+! band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! selfref : real     
+! forref  : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(9,5,13,ng19), absa(585,ng19)
+      real(kind=rb) :: kb(5,13:59,ng19), absb(235,ng19)
+      real(kind=rb) :: selfref(10,ng19), forref(3,ng19)
+      real(kind=rb) :: sfluxref(ng19,9)
+      real(kind=rb) :: irradnce(ng19,9)
+      real(kind=rb) :: facbrght(ng19,9),snsptdrk(ng19,9)
+
+      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrsw_kg19
+
diff --git a/radiation/modules/rrsw_kg20.f90 b/radiation/modules/rrsw_kg20.f90
new file mode 100644
index 0000000000000000000000000000000000000000..303e9c75bddb2eafa4028684c4af2b09b6644297
--- /dev/null
+++ b/radiation/modules/rrsw_kg20.f90
@@ -0,0 +1,80 @@
+      module rrsw_kg20
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng20
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 20
+! band 20:  5150-6150 cm-1 (low - h2o; high - h2o)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+! absch4o : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no20 = 16
+
+      real(kind=rb) :: kao(5,13,no20)
+      real(kind=rb) :: kbo(5,13:59,no20)
+      real(kind=rb) :: selfrefo(10,no20), forrefo(4,no20)
+      real(kind=rb) :: sfluxrefo(no20)
+      real(kind=rb) :: irradnceo(no20)
+      real(kind=rb) :: facbrghto(no20),snsptdrko(no20)
+      real(kind=rb) :: absch4o(no20)
+
+      real(kind=rb) :: rayl 
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 20
+! band 20:  5150-6150 cm-1 (low - h2o; high - h2o)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! selfref : real     
+! forref  : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+! absch4  : real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(5,13,ng20), absa(65,ng20)
+      real(kind=rb) :: kb(5,13:59,ng20), absb(235,ng20)
+      real(kind=rb) :: selfref(10,ng20), forref(4,ng20)
+      real(kind=rb) :: sfluxref(ng20)
+      real(kind=rb) :: irradnce(ng20)
+      real(kind=rb) :: facbrght(ng20),snsptdrk(ng20)
+      real(kind=rb) :: absch4(ng20)
+
+      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrsw_kg20
+
diff --git a/radiation/modules/rrsw_kg21.f90 b/radiation/modules/rrsw_kg21.f90
new file mode 100644
index 0000000000000000000000000000000000000000..26433575afd15a71e887d3f3ba5f4c99a842cc1f
--- /dev/null
+++ b/radiation/modules/rrsw_kg21.f90
@@ -0,0 +1,76 @@
+      module rrsw_kg21
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng21
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 21
+! band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no21 = 16
+
+      real(kind=rb) :: kao(9,5,13,no21)
+      real(kind=rb) :: kbo(5,5,13:59,no21)
+      real(kind=rb) :: selfrefo(10,no21), forrefo(4,no21)
+      real(kind=rb) :: sfluxrefo(no21,9)
+      real(kind=rb) :: irradnceo(no21,9)
+      real(kind=rb) :: facbrghto(no21,9),snsptdrko(no21,9)
+
+      real(kind=rb) :: rayl
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 21
+! band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! selfref : real     
+! forref  : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(9,5,13,ng21), absa(585,ng21)
+      real(kind=rb) :: kb(5,5,13:59,ng21), absb(1175,ng21)
+      real(kind=rb) :: selfref(10,ng21), forref(4,ng21)
+      real(kind=rb) :: sfluxref(ng21,9)
+      real(kind=rb) :: irradnce(ng21,9)
+      real(kind=rb) :: facbrght(ng21,9),snsptdrk(ng21,9)
+
+      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1))
+
+      end module rrsw_kg21
+
diff --git a/radiation/modules/rrsw_kg22.f90 b/radiation/modules/rrsw_kg22.f90
new file mode 100644
index 0000000000000000000000000000000000000000..5403d8498b5d49a1fb60bed3dc4a81bab8571164
--- /dev/null
+++ b/radiation/modules/rrsw_kg22.f90
@@ -0,0 +1,76 @@
+      module rrsw_kg22
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng22
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 22
+! band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no22 = 16
+
+      real(kind=rb) :: kao(9,5,13,no22)
+      real(kind=rb) :: kbo(5,13:59,no22)
+      real(kind=rb) :: selfrefo(10,no22), forrefo(3,no22)
+      real(kind=rb) :: sfluxrefo(no22,9)
+      real(kind=rb) :: irradnceo(no22,9)
+      real(kind=rb) :: facbrghto(no22,9),snsptdrko(no22,9)
+
+      real(kind=rb) :: rayl
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 22
+! band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! selfref : real     
+! forref  : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(9,5,13,ng22), absa(585,ng22)
+      real(kind=rb) :: kb(5,13:59,ng22), absb(235,ng22)
+      real(kind=rb) :: selfref(10,ng22), forref(3,ng22)
+      real(kind=rb) :: sfluxref(ng22,9)
+      real(kind=rb) :: irradnce(ng22,9)
+      real(kind=rb) :: facbrght(ng22,9),snsptdrk(ng22,9)
+
+      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrsw_kg22
+
diff --git a/radiation/modules/rrsw_kg23.f90 b/radiation/modules/rrsw_kg23.f90
new file mode 100644
index 0000000000000000000000000000000000000000..72932e313e42f593d173d2c63726616cc7f98362
--- /dev/null
+++ b/radiation/modules/rrsw_kg23.f90
@@ -0,0 +1,73 @@
+      module rrsw_kg23
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng23
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 23
+! band 23:  8050-12850 cm-1 (low - h2o; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no23 = 16
+
+      real(kind=rb) :: kao(5,13,no23)
+      real(kind=rb) :: selfrefo(10,no23), forrefo(3,no23)
+      real(kind=rb) :: sfluxrefo(no23)
+      real(kind=rb) :: irradnceo(no23)
+      real(kind=rb) :: facbrghto(no23),snsptdrko(no23)
+      real(kind=rb) :: raylo(no23)
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 23
+! band 23:  8050-12850 cm-1 (low - h2o; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! selfref : real     
+! forref  : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(5,13,ng23), absa(65,ng23)
+      real(kind=rb) :: selfref(10,ng23), forref(3,ng23)
+      real(kind=rb) :: sfluxref(ng23), rayl(ng23)
+      real(kind=rb) :: irradnce(ng23)
+      real(kind=rb) :: facbrght(ng23),snsptdrk(ng23)
+
+      equivalence (ka(1,1,1),absa(1,1))
+
+      end module rrsw_kg23
+
diff --git a/radiation/modules/rrsw_kg24.f90 b/radiation/modules/rrsw_kg24.f90
new file mode 100644
index 0000000000000000000000000000000000000000..6496d34bc6a0a7dd96ba995d00d9d7658d78930a
--- /dev/null
+++ b/radiation/modules/rrsw_kg24.f90
@@ -0,0 +1,86 @@
+      module rrsw_kg24
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng24
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 24
+! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+! abso3ao : real     
+! abso3bo : real     
+! raylao  : real     
+! raylbo  : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no24 = 16
+
+      real(kind=rb) :: kao(9,5,13,no24)
+      real(kind=rb) :: kbo(5,13:59,no24)
+      real(kind=rb) :: selfrefo(10,no24), forrefo(3,no24)
+      real(kind=rb) :: sfluxrefo(no24,9)
+      real(kind=rb) :: irradnceo(no24,9)
+      real(kind=rb) :: facbrghto(no24,9),snsptdrko(no24,9)
+      real(kind=rb) :: abso3ao(no24), abso3bo(no24)
+      real(kind=rb) :: raylao(no24,9), raylbo(no24)
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 24
+! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! selfref : real     
+! forref  : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+! abso3a  : real     
+! abso3b  : real     
+! rayla   : real     
+! raylb   : real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(9,5,13,ng24), absa(585,ng24)
+      real(kind=rb) :: kb(5,13:59,ng24), absb(235,ng24)
+      real(kind=rb) :: selfref(10,ng24), forref(3,ng24)
+      real(kind=rb) :: sfluxref(ng24,9)
+      real(kind=rb) :: irradnce(ng24,9)
+      real(kind=rb) :: facbrght(ng24,9),snsptdrk(ng24,9)
+      real(kind=rb) :: abso3a(ng24), abso3b(ng24)
+      real(kind=rb) :: rayla(ng24,9), raylb(ng24)
+
+      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrsw_kg24
+
diff --git a/radiation/modules/rrsw_kg25.f90 b/radiation/modules/rrsw_kg25.f90
new file mode 100644
index 0000000000000000000000000000000000000000..bb9c844766f552dd9b99bb92d06a45aeb69c81b9
--- /dev/null
+++ b/radiation/modules/rrsw_kg25.f90
@@ -0,0 +1,73 @@
+      module rrsw_kg25
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng25
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 25
+! band 25: 16000-22650 cm-1 (low - h2o; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+! abso3ao : real     
+! abso3bo : real     
+! raylo   : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no25 = 16
+
+      real(kind=rb) :: kao(5,13,no25)
+      real(kind=rb) :: sfluxrefo(no25)
+      real(kind=rb) :: irradnceo(no25)
+      real(kind=rb) :: facbrghto(no25),snsptdrko(no25)
+      real(kind=rb) :: abso3ao(no25), abso3bo(no25)
+      real(kind=rb) :: raylo(no25)
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 25
+! band 25: 16000-22650 cm-1 (low - h2o; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! absa    : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+! abso3a  : real     
+! abso3b  : real     
+! rayl    : real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(5,13,ng25), absa(65,ng25)
+      real(kind=rb) :: sfluxref(ng25)
+      real(kind=rb) :: irradnce(ng25)
+      real(kind=rb) :: facbrght(ng25),snsptdrk(ng25)
+      real(kind=rb) :: abso3a(ng25), abso3b(ng25)
+      real(kind=rb) :: rayl(ng25)
+
+      equivalence (ka(1,1,1),absa(1,1))
+
+      end module rrsw_kg25
+
diff --git a/radiation/modules/rrsw_kg26.f90 b/radiation/modules/rrsw_kg26.f90
new file mode 100644
index 0000000000000000000000000000000000000000..946a00c51645ddea2362227c2c12600e0e65e295
--- /dev/null
+++ b/radiation/modules/rrsw_kg26.f90
@@ -0,0 +1,60 @@
+      module rrsw_kg26
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng26
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 26
+! band 26: 22650-29000 cm-1 (low - nothing; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+! raylo   : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no26 = 16
+
+      real(kind=rb) :: sfluxrefo(no26)
+      real(kind=rb) :: irradnceo(no26)
+      real(kind=rb) :: facbrghto(no26),snsptdrko(no26)
+      real(kind=rb) :: raylo(no26)
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 26
+! band 26: 22650-29000 cm-1 (low - nothing; high - nothing)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+! rayl    : real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: sfluxref(ng26)
+      real(kind=rb) :: irradnce(ng26)
+      real(kind=rb) :: facbrght(ng26),snsptdrk(ng26)
+      real(kind=rb) :: rayl(ng26)
+
+      end module rrsw_kg26
+
diff --git a/radiation/modules/rrsw_kg27.f90 b/radiation/modules/rrsw_kg27.f90
new file mode 100644
index 0000000000000000000000000000000000000000..8dc18cecd5964816e62d9a0de90bbb1bcdbbe61a
--- /dev/null
+++ b/radiation/modules/rrsw_kg27.f90
@@ -0,0 +1,72 @@
+      module rrsw_kg27
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng27
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 27
+! band 27: 29000-38000 cm-1 (low - o3; high - o3)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+! raylo   : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no27 = 16
+
+      real(kind=rb) :: kao(5,13,no27)
+      real(kind=rb) :: kbo(5,13:59,no27)
+      real(kind=rb) :: sfluxrefo(no27)
+      real(kind=rb) :: irradnceo(no27)
+      real(kind=rb) :: facbrghto(no27),snsptdrko(no27)
+      real(kind=rb) :: raylo(no27)
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 27
+! band 27: 29000-38000 cm-1 (low - o3; high - o3)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! absa    : real
+! absb    : real
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+! rayl    : real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(5,13,ng27), absa(65,ng27)
+      real(kind=rb) :: kb(5,13:59,ng27), absb(235,ng27)
+      real(kind=rb) :: sfluxref(ng27)
+      real(kind=rb) :: irradnce(ng27)
+      real(kind=rb) :: facbrght(ng27),snsptdrk(ng27)
+      real(kind=rb) :: rayl(ng27)
+
+      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrsw_kg27
+
diff --git a/radiation/modules/rrsw_kg28.f90 b/radiation/modules/rrsw_kg28.f90
new file mode 100644
index 0000000000000000000000000000000000000000..afc6ab9adaf5c27deda26b512824a3a4f32a49a4
--- /dev/null
+++ b/radiation/modules/rrsw_kg28.f90
@@ -0,0 +1,68 @@
+      module rrsw_kg28
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng28
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 28
+! band 28: 38000-50000 cm-1 (low - o3, o2; high - o3, o2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no28 = 16
+
+      real(kind=rb) :: kao(9,5,13,no28)
+      real(kind=rb) :: kbo(5,5,13:59,no28)
+      real(kind=rb) :: sfluxrefo(no28,5)
+      real(kind=rb) :: irradnceo(no28,5)
+      real(kind=rb) :: facbrghto(no28,5),snsptdrko(no28,5)
+
+      real(kind=rb) :: rayl
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 28
+! band 28: 38000-50000 cm-1 (low - o3, o2; high - o3, o2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(9,5,13,ng28), absa(585,ng28)
+      real(kind=rb) :: kb(5,5,13:59,ng28), absb(1175,ng28)
+      real(kind=rb) :: sfluxref(ng28,5)
+      real(kind=rb) :: irradnce(ng28,5)
+      real(kind=rb) :: facbrght(ng28,5),snsptdrk(ng28,5)
+
+      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1))
+
+      end module rrsw_kg28
+
diff --git a/radiation/modules/rrsw_kg29.f90 b/radiation/modules/rrsw_kg29.f90
new file mode 100644
index 0000000000000000000000000000000000000000..5c4af60831b7d63ef05afcbc3a6ca17bf7d0311f
--- /dev/null
+++ b/radiation/modules/rrsw_kg29.f90
@@ -0,0 +1,80 @@
+      module rrsw_kg29
+
+      use parkind ,only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ng29
+
+      implicit none
+      save
+
+!-----------------------------------------------------------------
+! rrtmg_sw ORIGINAL abs. coefficients for interval 29
+! band 29:  820-2600 cm-1 (low - h2o; high - co2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! kao     : real     
+! kbo     : real     
+! selfrefo: real     
+! forrefo : real     
+!sfluxrefo: real     
+!irradnceo: real     
+!facbrghto: real     
+!snsptdrko: real     
+! absh2oo : real     
+! absco2o : real     
+!-----------------------------------------------------------------
+
+      integer(kind=im), parameter :: no29 = 16
+
+      real(kind=rb) :: kao(5,13,no29)
+      real(kind=rb) :: kbo(5,13:59,no29)
+      real(kind=rb) :: selfrefo(10,no29), forrefo(4,no29)
+      real(kind=rb) :: sfluxrefo(no29)
+      real(kind=rb) :: irradnceo(no29)
+      real(kind=rb) :: facbrghto(no29),snsptdrko(no29)
+      real(kind=rb) :: absh2oo(no29), absco2o(no29)
+
+      real(kind=rb) :: rayl
+
+!-----------------------------------------------------------------
+! rrtmg_sw COMBINED abs. coefficients for interval 29
+! band 29:  820-2600 cm-1 (low - h2o; high - co2)
+!
+! Initial version:  JJMorcrette, ECMWF, oct1999
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+! Revised: MJIacono, AER, nov2015, solar variability
+!-----------------------------------------------------------------
+!
+!  name     type     purpose
+!  ----   : ----   : ---------------------------------------------
+! ka      : real     
+! kb      : real     
+! selfref : real     
+! forref  : real     
+! sfluxref: real     
+! irradnce: real     
+! facbrght: real     
+! snsptdrk: real     
+! absh2o  : real     
+! absco2  : real     
+!-----------------------------------------------------------------
+
+      real(kind=rb) :: ka(5,13,ng29), absa(65,ng29)
+      real(kind=rb) :: kb(5,13:59,ng29), absb(235,ng29)
+      real(kind=rb) :: selfref(10,ng29), forref(4,ng29)
+      real(kind=rb) :: sfluxref(ng29)
+      real(kind=rb) :: irradnce(ng29)
+      real(kind=rb) :: facbrght(ng29),snsptdrk(ng29)
+      real(kind=rb) :: absh2o(ng29), absco2(ng29)
+
+      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
+
+      end module rrsw_kg29
+
diff --git a/radiation/modules/rrsw_ncpar.f90 b/radiation/modules/rrsw_ncpar.f90
new file mode 100644
index 0000000000000000000000000000000000000000..c193113a9008125e67160b1e33e3527732d27b23
--- /dev/null
+++ b/radiation/modules/rrsw_ncpar.f90
@@ -0,0 +1,105 @@
+module rrsw_ncpar
+	use parkind ,only : im => kind_im, rb => kind_rb
+
+	implicit none
+    save
+	
+    real(kind=rb), parameter :: cpdair = 1003.5  ! Specific heat capacity of dry air
+                                        		 ! at constant pressure at 273 K
+                                        		 ! (J kg-1 K-1)
+
+	integer(kind=im), dimension(50) :: status
+	integer(kind=im) :: i
+	integer(kind=im), parameter :: keylower      = 9,  &
+						  keyupper      = 5,  &
+						  Tdiff         = 5,  &
+						  ps            = 59, &
+						  plower        = 13, &
+						  pupper        = 47, &
+						  Tself         = 10, &
+						  Tforeignlower = 3,  &
+						  Tforeignupper = 2,  &
+						  pforeign      = 4,  &
+						  T             = 19, &
+						  band          = 14, &
+						  GPoint        = 16, &
+						  GPointSet     = 2
+	
+	integer(kind=im), parameter :: maxAbsorberNameLength   = 5,  &
+                          Absorber                = 12, &
+                          maxKeySpeciesNameLength = 3,  &
+                          maxKeySpeciesNames      = 2
+                          
+    character(len = maxAbsorberNameLength), dimension(Absorber), parameter :: &
+    AbsorberNames = (/        &
+     				'N2   ',  &
+     				'CCL4 ',  &
+     				'CFC11',  &
+     				'CFC12',  &
+     				'CFC22',  &
+     				'H2O  ',  &
+     				'CO2  ',  &
+     				'O3   ',  &
+     				'N2O  ',  & 
+     				'CO   ',  &
+     				'CH4  ',  &
+     				'O2   '  /)
+	
+	character(len = maxKeySpeciesNameLength), dimension(band,maxKeySpeciesNames), parameter :: &
+    KeySpeciesNamesLower = RESHAPE( SOURCE = (/ 'H2O', 'H2O', 'H2O', 'H2O', 'H2O', 'H2O', 'H2O', &
+							  					'H2O', 'H2O', 'H2O', '   ', 'O3 ', 'O3 ', 'H2O', &
+							  					'CH4', 'CO2', 'CH4', 'CO2', '   ', 'CO2', 'O2 ', &
+							  					'   ', 'O2 ', '   ', '   ', '   ', 'O2 ', '   '  /), &
+							  		SHAPE = (/ band, maxKeySpeciesNames /) )
+							  
+	character(len = maxKeySpeciesNameLength), dimension(band,maxKeySpeciesNames), parameter :: &
+    KeySpeciesNamesUpper = RESHAPE( SOURCE = (/ 'CH4', 'H2O', 'CH4', 'CO2', 'H2O', 'H2O', 'O2 ', &
+							 					'   ', 'O2 ', '   ', '   ', 'O3 ', 'O3 ', 'CO2', &
+							  					'   ', 'CO2', '   ', '   ', '   ', 'CO2', '   ', &
+							  					'   ', '   ', '   ', '   ', '   ', 'O2 ', '   '  /), &
+							  		SHAPE = (/ band, maxKeySpeciesNames /) )
+							
+	integer(kind=im), dimension(band)     :: BandNums = (/ 16, 17, 18, 19, 20, 21, 22, &
+										  		        23, 24, 25, 26, 27, 28, 29 /)
+										      
+	real(kind=rb), dimension(keylower) :: KeySpeciesLower = (/ 1.0, 0.125, 0.25, 0.375, &
+											      			   0.50, 0.625, 0.75, 0.875, 1.0 /)
+											          
+	real(kind=rb), dimension(keyupper) :: KeySpeciesUpper = (/ 0.0, 0.25, 0.50, 0.75, 1.0 /)
+		
+	real(kind=rb), dimension(Tdiff)    :: TempDiffs = (/ -30, -15, 0, 15, 30 /)
+										      
+	real(kind=rb), dimension(Tself)    :: TempSelf = (/ 245.6,252.8,260.0,267.2,274.4, &
+														281.6,288.8,296.0,303.2,310.4 /)		
+	
+	real(kind=rb), dimension(Tforeignlower) :: TempForeignlower = (/ 296, 260, 224 /)
+	
+	real(kind=rb), dimension(Tforeignupper) :: TempForeignupper = (/ 224, 260 /)
+	
+	real(kind=rb), dimension(pforeign) :: PressForeign = (/ 970, 475, 219, 3 /)
+			
+	real(kind=rb), dimension(T)        :: Temp = (/188.0, 195.2, 202.4, 209.6, 216.8, 224.0, &
+								   				   231.2, 238.4, 245.6, 252.8, 260.0, 267.2, &
+								   				   274.4, 281.6, 288.8, 296.0, 303.2, 310.4, 317.6 /)
+	
+	contains 
+	
+	subroutine getAbsorberIndex(AbsorberName,AbsorberIndex)
+		character(len = *), intent(in) :: AbsorberName
+		integer(kind=im), intent(out)           :: AbsorberIndex
+		
+		integer(kind=im) :: m
+	
+		AbsorberIndex = -1
+		do m = 1, Absorber
+			if (trim(AbsorberNames(m)) == trim(AbsorberName)) then
+				AbsorberIndex = m
+			end if
+		end do
+		
+		if (AbsorberIndex == -1) then
+			print*, "Absorber name index lookup failed."
+		end if
+	end subroutine getAbsorberIndex
+
+end module rrsw_ncpar
diff --git a/radiation/modules/rrsw_ref.f90 b/radiation/modules/rrsw_ref.f90
new file mode 100644
index 0000000000000000000000000000000000000000..e43664822bebc8a254a2b537633fe22c335b8530
--- /dev/null
+++ b/radiation/modules/rrsw_ref.f90
@@ -0,0 +1,28 @@
+      module rrsw_ref
+
+      use parkind, only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_sw reference atmosphere 
+! Based on standard mid-latitude summer profile
+!
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jun2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! pref   :  real   : Reference pressure levels
+! preflog:  real   : Reference pressure levels, ln(pref)
+! tref   :  real   : Reference temperature levels for MLS profile
+!------------------------------------------------------------------
+
+      real(kind=rb) , dimension(59) :: pref
+      real(kind=rb) , dimension(59) :: preflog
+      real(kind=rb) , dimension(59) :: tref
+
+      end module rrsw_ref
diff --git a/radiation/modules/rrsw_tbl.f90 b/radiation/modules/rrsw_tbl.f90
new file mode 100644
index 0000000000000000000000000000000000000000..f6b24f5b5fafd6816d76cf3811fc0136f37ffc33
--- /dev/null
+++ b/radiation/modules/rrsw_tbl.f90
@@ -0,0 +1,41 @@
+      module rrsw_tbl
+
+      use parkind, only : im => kind_im, rb => kind_rb
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_sw lookup table arrays
+
+! Initial version: MJIacono, AER, may2007
+! Revised: MJIacono, AER, aug2007
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! ntbl   :  integer: Lookup table dimension
+! tblint :  real   : Lookup table conversion factor
+! tau_tbl:  real   : Clear-sky optical depth 
+! exp_tbl:  real   : Exponential lookup table for transmittance
+! od_lo  :  real   : Value of tau below which expansion is used
+!                  : in place of lookup table
+! pade   :  real   : Pade approximation constant
+! bpade  :  real   : Inverse of Pade constant
+!------------------------------------------------------------------
+
+      integer(kind=im), parameter :: ntbl = 10000
+
+      real(kind=rb), parameter :: tblint = 10000.0_rb
+
+      real(kind=rb), parameter :: od_lo = 0.06_rb
+
+      real(kind=rb) :: tau_tbl
+      real(kind=rb) , dimension(0:ntbl) :: exp_tbl
+
+      real(kind=rb), parameter :: pade = 0.278_rb
+      real(kind=rb) :: bpade
+
+      end module rrsw_tbl
+
diff --git a/radiation/modules/rrsw_vsn.f90 b/radiation/modules/rrsw_vsn.f90
new file mode 100644
index 0000000000000000000000000000000000000000..37f16e2b08bffbae5171db37c1f3bc7679f0cbf8
--- /dev/null
+++ b/radiation/modules/rrsw_vsn.f90
@@ -0,0 +1,56 @@
+      module rrsw_vsn
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_sw version information
+
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+!hnamrtm :character: 
+!hnamini :character: 
+!hnamcld :character: 
+!hnamclc :character: 
+!hnamrft :character: 
+!hnamspv :character: 
+!hnamspc :character: 
+!hnamset :character: 
+!hnamtau :character: 
+!hnamvqd :character: 
+!hnamatm :character: 
+!hnamutl :character: 
+!hnamext :character: 
+!hnamkg  :character: 
+!
+! hvrrtm :character: 
+! hvrini :character: 
+! hvrcld :character: 
+! hvrclc :character: 
+! hvrrft :character: 
+! hvrspv :character: 
+! hvrspc :character: 
+! hvrset :character: 
+! hvrtau :character: 
+! hvrvqd :character: 
+! hvratm :character: 
+! hvrutl :character: 
+! hvrext :character: 
+! hvrkg  :character: 
+!------------------------------------------------------------------
+
+      character*18 hvrrtm,hvrini,hvrcld,hvrclc,hvrrft,hvrspv, &
+                   hvrspc,hvrset,hvrtau,hvrvqd,hvratm,hvrutl,hvrext
+      character*20 hnamrtm,hnamini,hnamcld,hnamclc,hnamrft,hnamspv, &
+                   hnamspc,hnamset,hnamtau,hnamvqd,hnamatm,hnamutl,hnamext
+
+      character*18 hvrkg
+      character*20 hnamkg
+
+      end module rrsw_vsn
+
diff --git a/radiation/modules/rrsw_wvn.f90 b/radiation/modules/rrsw_wvn.f90
new file mode 100644
index 0000000000000000000000000000000000000000..f0b2ca1744cbc6bfdab6f10d9727d1f8936902f6
--- /dev/null
+++ b/radiation/modules/rrsw_wvn.f90
@@ -0,0 +1,56 @@
+      module rrsw_wvn
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only : nbndsw, mg, ngptsw, jpb1, jpb2
+
+      implicit none
+      save
+
+!------------------------------------------------------------------
+! rrtmg_sw spectral information
+
+! Initial version:  JJMorcrette, ECMWF, jul1998
+! Revised: MJIacono, AER, jul2006
+! Revised: MJIacono, AER, aug2008
+!------------------------------------------------------------------
+
+!  name     type     purpose
+! -----  :  ----   : ----------------------------------------------
+! ng     :  integer: Number of original g-intervals in each spectral band
+! nspa   :  integer: 
+! nspb   :  integer: 
+!wavenum1:  real   : Spectral band lower boundary in wavenumbers
+!wavenum2:  real   : Spectral band upper boundary in wavenumbers
+! delwave:  real   : Spectral band width in wavenumbers
+!
+! ngc    :  integer: The number of new g-intervals in each band
+! ngs    :  integer: The cumulative sum of new g-intervals for each band
+! ngm    :  integer: The index of each new g-interval relative to the
+!                    original 16 g-intervals in each band
+! ngn    :  integer: The number of original g-intervals that are 
+!                    combined to make each new g-intervals in each band
+! ngb    :  integer: The band index for each new g-interval
+! wt     :  real   : RRTM weights for the original 16 g-intervals
+! rwgt   :  real   : Weights for combining original 16 g-intervals 
+!                    (224 total) into reduced set of g-intervals 
+!                    (112 total)
+!------------------------------------------------------------------
+
+      integer(kind=im) :: ng(jpb1:jpb2)
+      integer(kind=im) :: nspa(jpb1:jpb2)
+      integer(kind=im) :: nspb(jpb1:jpb2)
+
+      real(kind=rb) :: wavenum1(jpb1:jpb2)
+      real(kind=rb) :: wavenum2(jpb1:jpb2)
+      real(kind=rb) :: delwave(jpb1:jpb2)
+
+      integer(kind=im) :: ngc(nbndsw)
+      integer(kind=im) :: ngs(nbndsw)
+      integer(kind=im) :: ngn(ngptsw)
+      integer(kind=im) :: ngb(ngptsw)
+      integer(kind=im) :: ngm(nbndsw*mg)
+
+      real(kind=rb) :: wt(mg)
+      real(kind=rb) :: rwgt(nbndsw*mg)
+
+      end module rrsw_wvn
diff --git a/radiation/src/extra.f b/radiation/src/extra.f
new file mode 100644
index 0000000000000000000000000000000000000000..35e590dbd4876c50215854d3cc5d8d96fd6a3e35
--- /dev/null
+++ b/radiation/src/extra.f
@@ -0,0 +1,244 @@
+C     path:      $Source$
+C     author:    $Author: jdelamer $
+C     revision:  $Revision: 11497 $
+C     created:   $Date: 2010-07-07 17:10:53 -0400 (Wed, 07 Jul 2010) $
+      SUBROUTINE XSREAD (XV1,XV2)                                         E00010
+C                                                                         E00020
+      IMPLICIT DOUBLE PRECISION (V)                                     ! E00030
+C                                                                         E00040
+C**********************************************************************   E00050
+C     THIS SUBROUTINE READS IN THE DESIRED "CROSS-SECTION"                E00060
+C     MOLECULES WHICH ARE THEN MATCHED TO THE DATA CONTAINED              E00070
+C     ON INPUT FILE FSCDXS.                                               E00080
+C**********************************************************************   E00090
+C                                                                         E00100
+C     IFIL CARRIES FILE INFORMATION                                       E00110
+C                                                                         E00120
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,
+     *           MX_XS=38,MXTRAC=22)
+C
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,         E00130
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,        E00140
+     *              NLTEFL,LNFIL4,LNGTH4                                  E00150
+C                                                                         E00160
+C     IXMAX=MAX NUMBER OF X-SECTION MOLECULES, IXMOLS=NUMBER OF THESE     E00170
+C     MOLECULES SELECTED, IXINDX=INDEX VALUES OF SELECTED MOLECULES       E00180
+C     (E.G. 1=CLONO2), XAMNT(I,L)=LAYER AMOUNTS FOR I'TH MOLECULE FOR     E00190
+C     L'TH LAYER, ANALOGOUS TO AMOUNT IN /PATHD/ FOR THE STANDARD         E00200
+C     MOLECULES.                                                          E00210
+C                                                                         E00220
+      COMMON /PATHX/ IXMAX,IXMOLS,IXINDX(MX_XS),XAMNT(MX_XS,MXLAY)        E00230
+C                                                                         E00240
+C     COMMON BLOCKS AND PARAMETERS FOR THE PROFILES AND DENSITIES         E00250
+C     FOR THE CROSS-SECTION MOLECULES.                                    E00260
+C     XSNAME=NAMES, ALIAS=ALIASES OF THE CROSS-SECTION MOLECULES          E00270
+C                                                                         E00280
+      CHARACTER*10 XSFILE,XSNAME,ALIAS,BLANK                              E00290
+      COMMON /XSECTF/ XSFILE(6,5,MX_XS),XSNAME(MX_XS),ALIAS(4,MX_XS)      E00300
+      COMMON /XSECTR/ V1FX(5,MX_XS),V2FX(5,MX_XS),DVFX(5,MX_XS),
+     *                WXM(MX_XS),NTEMPF(5,MX_XS),NSPECR(MX_XS),
+     *                IXFORM(5,MX_XS),
+     *                XSMASS(MX_XS),XDOPLR(5,MX_XS),NUMXS,IXSBIN          E00325
+
+      COMMON /CVREXT/    HNAMEXT,HVREXT
+
+      CHARACTER*18       HNAMEXT,HVREXT
+C                                                                         E00330
+      DIMENSION IXFLG(MX_XS)                                              E00340
+C                                                                         E00350
+      CHARACTER*120 XSREC                                                 E00360
+      CHARACTER*1 CFLG,CASTSK,CPRCNT,CN,CF                                E00370
+      EQUIVALENCE (CFLG,XSREC)                                            E00380
+C                                                                         E00390
+      DATA CASTSK / '*'/,CPRCNT / '%'/,CN / 'N'/,CF / 'F'/                E00400
+      DATA BLANK / '          '/                                          E00410
+C                                                                         E00411
+C     T296 IS TEMPERATURE FOR INITAL CALCULATIN OF DOPPLER WIDTHS         E00412
+C                                                                         E00413
+      DATA T296 / 296.0 /                                                 E00414
+C
+      HVREXT = '$Revision: 11497 $'
+C                                                                         E00420
+      IXMAX = MX_XS                                                       E00430
+      DO 10 I = 1, IXMAX                                                  E00440
+         XSNAME(I) = BLANK                                                E00450
+   10 CONTINUE                                                            E00460
+C                                                                         E00470
+C     READ IN THE NAMES OF THE MOLECULES                                  E00480
+C                                                                         E00490
+      IF (IXMOLS.GT.7) THEN                                               E00500
+         READ (IRD,'(7A10)') (XSNAME(I),I=1,7)                            E00510
+         READ (IRD,'(8A10)') (XSNAME(I),I=8,IXMOLS)                       E00520
+      ELSE                                                                E00530
+         READ (IRD,'(7A10)') (XSNAME(I),I=1,IXMOLS)                       E00540
+      ENDIF                                                               E00550
+C                                                                         E00560
+C     Left-justify all inputed names                                      E00570
+C                                                                         E00580
+      DO 15 I=1,IXMOLS                                                    E00582
+         CALL CLJUST (XSNAME(I),10)                                       E00590
+ 15   CONTINUE
+C                                                                         E00600
+CPRT  WRITE(IPR,'(/,''  THE FOLLOWING MOLECULES ARE REQUESTED:'',//,      E00610
+CPRT 1    (5X,I5,2X,A))') (I,XSNAME(I),I=1,IXMOLS)                        E00620
+C                                                                         E00630
+C     MATCH THE NAMES READ IN AGAINST THE NAMES STORED IN ALIAS           E00640
+C     AND DETERMINE THE INDEX VALUE.  STOP IF NO MATCH IS FOUND.          E00650
+C     NAME MUST BE ALL IN CAPS.                                           E00660
+C                                                                         E00670
+      DO 40 I = 1, IXMOLS                                                 E00680
+         DO 20 J = 1, IXMAX                                               E00690
+            IF ((XSNAME(I).EQ.ALIAS(1,J)) .OR.                            E00700
+     *          (XSNAME(I).EQ.ALIAS(2,J)) .OR.                            E00710
+     *          (XSNAME(I).EQ.ALIAS(3,J)) .OR.                            E00720
+     *          (XSNAME(I).EQ.ALIAS(4,J))) THEN                           E00730
+               IXINDX(I) = J                                              E00740
+               GO TO 30                                                   E00750
+            ENDIF                                                         E00760
+   20    CONTINUE                                                         E00770
+C                                                                         E00780
+C         NO MATCH FOUND                                                  E00790
+C                                                                         E00800
+         WRITE (IPR,900) XSNAME(I)                                        E00810
+         STOP 'STOPPED IN XSREAD'                                         E00820
+C                                                                         E00830
+   30    CONTINUE                                                         E00840
+         IXFLG(I) = 0                                                     E00850
+   40 CONTINUE                                                            E00860
+C                                                                         E00870
+      RETURN                                                              E01490
+C                                                                         E01500
+  900 FORMAT (/,'  THE NAME: ',A10, ' IS NOT ONE OF THE ',                E01510
+     *        'CROSS SECTION MOLECULES. CHECK THE SPELLING.')             E01520
+  905 FORMAT (/)                                                          E01530
+  910 FORMAT (A120)                                                       E01540
+  915 FORMAT (A10,2F10.4,F10.8,I5,5X,I5,A1,4X,6A10)                       E01550
+  920 FORMAT (/,'******* ERROR IN XSREAD ** MOLECULE SECLECTED -',A10,    E01560
+     *        '- HAS ',I2,' SPECTRAL REGIONS ON FILE FSCDXS, BUT THE',    E01570
+     *        ' MAXIMUM ALLOWED IS 6 *******',/)                          E01580
+  925 FORMAT (/,'******* MOLECULE SELECTED -',A10,'- IS NOT FOUND ON',    E01590
+     *        ' FILE FSCDXS *******',/)                                   E01600
+C                                                                         E01610
+      END                                                                 E01620
+      BLOCK DATA BXSECT                                                   E01630
+C                                                                         E01640
+      IMPLICIT DOUBLE PRECISION (V)                                     ! E01650
+C                                                                         E01660
+C**   XSNAME=NAMES, ALIAS=ALIASES OF THE CROSS-SECTION MOLECULES          E01670
+C**            (NOTE: ALL NAMES ARE LEFT-JUSTIFIED)                       E01680
+C                                                                         E01690
+      PARAMETER(MX_XS=38)
+      CHARACTER*10 XSFILE,XSNAME,ALIAS                                    E01700
+      COMMON /XSECTI/ XSMAX(6,5,MX_XS),XSTEMP(6,5,MX_XS),
+     *                NPTSFX(5,MX_XS),NFILEX(5,MX_XS),NLIMX  
+      COMMON /XSECTF/ XSFILE(6,5,MX_XS),XSNAME(MX_XS),ALIAS(4,MX_XS)
+      COMMON /XSECTR/ V1FX(5,MX_XS),V2FX(5,MX_XS),DVFX(5,MX_XS),
+     *                WXM(MX_XS),NTEMPF(5,MX_XS),NSPECR(MX_XS),
+     *                IXFORM(5,MX_XS),  
+     *                XSMASS(MX_XS),XDOPLR(5,MX_XS),NUMXS,IXSBIN    
+      COMMON /XSECTS/ JINPUT,NMODES,NPANEL,NDUM,V1XS,V2XS,DVXS,NPTSXS     E02870
+C                                                                         E01750
+      DATA NMODES / 1 /,NPANEL / 0 /,V1XS / 0.0 /,V2XS / 0.0 /,           E02990
+     *     DVXS / 0.0 /,NPTSXS / 0 /                                      E03000
+      DATA XSMAX / 1140*0.0 /                                             E03010
+      DATA (ALIAS(1,I),I=1,MX_XS)/                                        E01760
+     *    'CLONO2    ', 'HNO4      ', 'CHCL2F    ', 'CCL4      ',         E01770
+     *    'CCL3F     ', 'CCL2F2    ', 'C2CL2F4   ', 'C2CL3F3   ',         E01780
+     *    'N2O5      ', 'HNO3      ', 'CF4       ', 'CHCLF2    ',         E01790
+     *    'CCLF3     ', 'C2CLF5    ', 24*' ZZZZZZZZ ' /                   E01800
+      DATA (ALIAS(2,I),I=1,MX_XS)/                                        E01810
+     *    'CLNO3     ', ' ZZZZZZZZ ', 'CFC21     ', ' ZZZZZZZZ ',         E01820
+     *    'CFCL3     ', 'CF2CL2    ', 'C2F4CL2   ', 'C2F3CL3   ',         E01830
+     *    ' ZZZZZZZZ ', ' ZZZZZZZZ ', ' ZZZZZZZZ ', 'CHF2CL    ',         E01840
+     *    ' ZZZZZZZZ ', ' ZZZZZZZZ ', 24*' ZZZZZZZZ ' /                   E01850
+      DATA (ALIAS(3,I),I=1,MX_XS)/                                        E01860
+     *    ' ZZZZZZZZ ', ' ZZZZZZZZ ', 'CFC21     ', ' ZZZZZZZZ ',         E01870
+     *    'CFC11     ', 'CFC12     ', 'CFC114    ', 'CFC113    ',         E01880
+     *    ' ZZZZZZZZ ', ' ZZZZZZZZ ', 'CFC14     ', 'CFC22     ',         E01890
+     *    'CFC13     ', 'CFC115    ', 24*' ZZZZZZZZ ' /                   E01900
+      DATA (ALIAS(4,I),I=1,MX_XS)/                                        E01910
+     *    ' ZZZZZZZZ ', ' ZZZZZZZZ ', 'F21       ', ' ZZZZZZZZ ',         E01920
+     *    'F11       ', 'F12       ', 'F114      ', 'F113      ',         E01930
+     *    ' ZZZZZZZZ ', ' ZZZZZZZZ ', 'F14       ', 'F22       ',         E01940
+     *    'F13       ', 'F115      ', 24*' ZZZZZZZZ ' /                   E01950
+C                                                                         E01960
+C     XSMASS IS MASS OF EACH CROSS-SECTION                                E01961
+C                                                                         E01962
+      DATA XSMASS/                                                        E01963
+     1      97.46     ,   79.01     ,  102.92     ,  153.82     ,         E01964
+     2     137.37     ,  120.91     ,  170.92     ,  187.38     ,         E01965
+     3     108.01     ,   63.01     ,   88.00     ,   86.47     ,         E01966
+     4     104.46     ,  154.47     ,  24*0.00 /                          E01967
+C                                                                         E01969
+      DATA V1FX / 190*0.0 /,V2FX / 190*0.0 /,DVFX / 190*0.0 /,            E01970
+     *     WXM / 38*0.0 /                                                 E01980
+      DATA NTEMPF / 190*0 /,NSPECR / 38*0 /,IXFORM / 190*0 /,             E01990
+     *     NUMXS / 0 /                                                    E02000
+C                                                                         E02010
+      END                                                                 E02020
+      SUBROUTINE CLJUST (CNAME,NCHAR)                                     E02030
+C                                                                         E02040
+C     THIS SUBROUTINE LEFT-JUSTIFIES THE CHARACTER CNAME                  E02050
+C                                                                         E02060
+      CHARACTER*(*) CNAME                                                 E02070
+      CHARACTER*25 CTEMP                                                  E02070
+      CHARACTER*1  CTEMP1(25),BLANK                                       E02080
+      EQUIVALENCE (CTEMP,CTEMP1(1))                                       E02090
+
+      COMMON /CVREXT/    HNAMEXT,HVREXT
+
+      CHARACTER*18       HNAMEXT,HVREXT
+
+C                                                                         E02100
+      DATA BLANK / ' '/                                                   E02110
+C                                                                         E02120
+         CTEMP = CNAME                                                    E02140
+         JJ=0                                                             E02145
+         DO 10 J = 1, NCHAR                                               E02150
+            IF (CTEMP1(J).NE.BLANK) THEN                                  E02160
+               JJ = J                                                     E02170
+               IF (JJ.EQ.1) GO TO 50                                      E02180
+               GO TO 20                                                   E02190
+            ENDIF                                                         E02200
+   10    CONTINUE                                                         E02210
+         IF (JJ .EQ. 0) GO TO 50                                          E02215
+C                                                                         E02220
+   20    KCNT = 0                                                         E02230
+         DO 30 K = JJ, NCHAR                                              E02240
+            KCNT = KCNT+1                                                 E02250
+            CTEMP1(KCNT) = CTEMP1(K)                                      E02260
+   30    CONTINUE                                                         E02270
+C                                                                         E02280
+         KK = NCHAR-JJ+2                                                  E02290
+         DO 40 L = KK,NCHAR                                               E02300
+            CTEMP1(L) = BLANK                                             E02310
+   40    CONTINUE                                                         E02320
+         CNAME = CTEMP                                                    E02330
+   50 CONTINUE                                                            E02340
+C                                                                         E02350
+      RETURN                                                              E02360
+C                                                                         E02370
+      END                                                                 E02380
+      SUBROUTINE EXPINT (X,X1,X2,A)                                       A10600
+C                                                                         A10610
+C**********************************************************************   A10620
+C     THIS SUBROUTINE EXPONENTIALLY INTERPOLATES X1 AND X2 TO X BY        A10630
+C     THE FACTOR A                                                        A10640
+C**********************************************************************   A10650
+C                                                                         A10660
+
+      COMMON /CVREXT/    HNAMEXT,HVREXT
+
+      CHARACTER*18       HNAMEXT,HVREXT
+
+      IF (X1.EQ.0.0.OR.X2.EQ.0.0) GO TO 10                                A10670
+      X = X1*(X2/X1)**A                                                   A10680
+C                                                                         A10690
+      RETURN                                                              A10700
+C                                                                         A10710
+   10 X = X1+(X2-X1)*A                                                    A10720
+C                                                                         A10730
+      RETURN                                                              A10740
+C                                                                         A10750
+      END                                                                 A10760
diff --git a/radiation/src/mcica_random_numbers.f90 b/radiation/src/mcica_random_numbers.f90
new file mode 100644
index 0000000000000000000000000000000000000000..d015a10dd84d1a8a1155a6448ff1da51588a1de4
--- /dev/null
+++ b/radiation/src/mcica_random_numbers.f90
@@ -0,0 +1,416 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+! Fortran-95 implementation of the Mersenne Twister 19937, following 
+!   the C implementation described below (code mt19937ar-cok.c, dated 2002/2/10), 
+!   adapted cosmetically by making the names more general.  
+! Users must declare one or more variables of type randomNumberSequence in the calling 
+!   procedure which are then initialized using a required seed. If the 
+!   variable is not initialized the random numbers will all be 0. 
+! For example: 
+! program testRandoms 
+!   use RandomNumbers
+!   type(randomNumberSequence) :: randomNumbers
+!   integer                    :: i
+!   
+!   randomNumbers = new_RandomNumberSequence(seed = 100)
+!   do i = 1, 10
+!     print ('(f12.10, 2x)'), getRandomReal(randomNumbers)
+!   end do
+! end program testRandoms
+! 
+! Fortran-95 implementation by 
+!   Robert Pincus
+!   NOAA-CIRES Climate Diagnostics Center
+!   Boulder, CO 80305 
+!   email: Robert.Pincus@colorado.edu
+!
+! This documentation in the original C program reads:
+! -------------------------------------------------------------
+!    A C-program for MT19937, with initialization improved 2002/2/10.
+!    Coded by Takuji Nishimura and Makoto Matsumoto.
+!    This is a faster version by taking Shawn Cokus's optimization,
+!    Matthe Bellew's simplification, Isaku Wada's real version.
+! 
+!    Before using, initialize the state by using init_genrand(seed) 
+!    or init_by_array(init_key, key_length).
+! 
+!    Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura,
+!    All rights reserved.                          
+! 
+!    Redistribution and use in source and binary forms, with or without
+!    modification, are permitted provided that the following conditions
+!    are met:
+! 
+!      1. Redistributions of source code must retain the above copyright
+!         notice, this list of conditions and the following disclaimer.
+! 
+!      2. Redistributions in binary form must reproduce the above copyright
+!         notice, this list of conditions and the following disclaimer in the
+!         documentation and/or other materials provided with the distribution.
+! 
+!      3. The names of its contributors may not be used to endorse or promote 
+!         products derived from this software without specific prior written 
+!         permission.
+! 
+!    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+!    "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+!    LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+!    A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+!    CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+!    EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+!    PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+!    PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+!    LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+!    NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+!    SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+! 
+! 
+!    Any feedback is very welcome.
+!    http://www.math.keio.ac.jp/matumoto/emt.html
+!    email: matumoto@math.keio.ac.jp
+! -------------------------------------------------------------
+
+  module MersenneTwister
+! -------------------------------------------------------------
+
+  use parkind, only : im => kind_im, rb => kind_rb 
+
+  implicit none
+  private
+  
+  ! Algorithm parameters
+  ! -------
+  ! Period parameters
+  integer(kind=im), parameter :: blockSize = 624,         &
+                        M         = 397,         &
+                        MATRIX_A  = -1727483681, & ! constant vector a         (0x9908b0dfUL)
+                        UMASK     = -2147483648, & ! most significant w-r bits (0x80000000UL)
+                        LMASK     =  2147483647    ! least significant r bits  (0x7fffffffUL)
+  ! Tempering parameters
+  integer(kind=im), parameter :: TMASKB= -1658038656, & ! (0x9d2c5680UL)
+                        TMASKC= -272236544     ! (0xefc60000UL)
+  ! -------
+
+  ! The type containing the state variable  
+  type randomNumberSequence
+    integer(kind=im)                            :: currentElement ! = blockSize
+    integer(kind=im), dimension(0:blockSize -1) :: state ! = 0
+  end type randomNumberSequence
+
+  interface new_RandomNumberSequence
+    module procedure initialize_scalar, initialize_vector
+  end interface new_RandomNumberSequence 
+
+  public :: randomNumberSequence
+  public :: new_RandomNumberSequence, finalize_RandomNumberSequence, &
+            getRandomInt, getRandomPositiveInt, getRandomReal
+! -------------------------------------------------------------
+contains
+  ! -------------------------------------------------------------
+  ! Private functions
+  ! ---------------------------
+  function mixbits(u, v)
+    integer(kind=im), intent( in) :: u, v
+    integer(kind=im)              :: mixbits
+    
+    mixbits = ior(iand(u, UMASK), iand(v, LMASK))
+  end function mixbits
+  ! ---------------------------
+  function twist(u, v)
+    integer(kind=im), intent( in) :: u, v
+    integer(kind=im)              :: twist
+
+    ! Local variable
+    integer(kind=im), parameter, dimension(0:1) :: t_matrix = (/ 0_im, MATRIX_A /)
+    
+    twist = ieor(ishft(mixbits(u, v), -1_im), t_matrix(iand(v, 1_im)))
+    twist = ieor(ishft(mixbits(u, v), -1_im), t_matrix(iand(v, 1_im)))
+  end function twist
+  ! ---------------------------
+  subroutine nextState(twister)
+    type(randomNumberSequence), intent(inout) :: twister
+    
+    ! Local variables
+    integer(kind=im) :: k
+    
+    do k = 0, blockSize - M - 1
+      twister%state(k) = ieor(twister%state(k + M), &
+                              twist(twister%state(k), twister%state(k + 1_im)))
+    end do 
+    do k = blockSize - M, blockSize - 2
+      twister%state(k) = ieor(twister%state(k + M - blockSize), &
+                              twist(twister%state(k), twister%state(k + 1_im)))
+    end do 
+    twister%state(blockSize - 1_im) = ieor(twister%state(M - 1_im), &
+                                        twist(twister%state(blockSize - 1_im), twister%state(0_im)))
+    twister%currentElement = 0_im
+
+  end subroutine nextState
+  ! ---------------------------
+  elemental function temper(y)
+    integer(kind=im), intent(in) :: y
+    integer(kind=im)             :: temper
+    
+    integer(kind=im) :: x
+    
+    ! Tempering
+    x      = ieor(y, ishft(y, -11))
+    x      = ieor(x, iand(ishft(x,  7), TMASKB))
+    x      = ieor(x, iand(ishft(x, 15), TMASKC))
+    temper = ieor(x, ishft(x, -18))
+  end function temper
+  ! -------------------------------------------------------------
+  ! Public (but hidden) functions
+  ! --------------------
+  function initialize_scalar(seed) result(twister)
+    integer(kind=im),       intent(in   ) :: seed
+    type(randomNumberSequence)                :: twister 
+    
+    integer(kind=im) :: i
+    ! See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. In the previous versions, 
+    !   MSBs of the seed affect only MSBs of the array state[].                       
+    !   2002/01/09 modified by Makoto Matsumoto            
+    
+    twister%state(0) = iand(seed, -1_im)
+    do i = 1,  blockSize - 1 ! ubound(twister%state)
+       twister%state(i) = 1812433253_im * ieor(twister%state(i-1), &
+                                            ishft(twister%state(i-1), -30_im)) + i
+       twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines
+    end do
+    twister%currentElement = blockSize
+  end function initialize_scalar
+  ! -------------------------------------------------------------
+  function initialize_vector(seed) result(twister)
+    integer(kind=im), dimension(0:), intent(in) :: seed
+    type(randomNumberSequence)                      :: twister 
+    
+    integer(kind=im) :: i, j, k, nFirstLoop, nWraps
+    
+    nWraps  = 0
+    twister = initialize_scalar(19650218_im)
+    
+    nFirstLoop = max(blockSize, size(seed))
+    do k = 1, nFirstLoop
+       i = mod(k + nWraps, blockSize)
+       j = mod(k - 1_im,      size(seed))
+       if(i == 0) then
+         twister%state(i) = twister%state(blockSize - 1)
+         twister%state(1) = ieor(twister%state(1),                                 &
+                                 ieor(twister%state(1-1),                          & 
+                                      ishft(twister%state(1-1), -30_im)) * 1664525_im) + & 
+                            seed(j) + j ! Non-linear
+         twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines
+         nWraps = nWraps + 1
+       else
+         twister%state(i) = ieor(twister%state(i),                                 &
+                                 ieor(twister%state(i-1),                          & 
+                                      ishft(twister%state(i-1), -30_im)) * 1664525_im) + & 
+                            seed(j) + j ! Non-linear
+         twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines
+      end if
+    end do
+    
+    !
+    ! Walk through the state array, beginning where we left off in the block above
+    ! 
+    do i = mod(nFirstLoop, blockSize) + nWraps + 1_im, blockSize - 1_im
+      twister%state(i) = ieor(twister%state(i),                                 &
+                              ieor(twister%state(i-1),                          & 
+                                   ishft(twister%state(i-1), -30_im)) * 1566083941_im) - i ! Non-linear
+      twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines
+    end do
+    
+    twister%state(0) = twister%state(blockSize - 1) 
+    
+    do i = 1, mod(nFirstLoop, blockSize) + nWraps
+      twister%state(i) = ieor(twister%state(i),                                 &
+                              ieor(twister%state(i-1),                          & 
+                                   ishft(twister%state(i-1), -30_im)) * 1566083941_im) - i ! Non-linear
+      twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines
+    end do
+    
+    twister%state(0) = UMASK 
+    twister%currentElement = blockSize
+    
+  end function initialize_vector
+  ! -------------------------------------------------------------
+  ! Public functions
+  ! --------------------
+  function getRandomInt(twister)
+    type(randomNumberSequence), intent(inout) :: twister
+    integer(kind=im)                        :: getRandomInt
+    ! Generate a random integer on the interval [0,0xffffffff]
+    !   Equivalent to genrand_int32 in the C code. 
+    !   Fortran doesn't have a type that's unsigned like C does, 
+    !   so this is integers in the range -2**31 - 2**31
+    ! All functions for getting random numbers call this one, 
+    !   then manipulate the result
+    
+    if(twister%currentElement >= blockSize) call nextState(twister)
+      
+    getRandomInt = temper(twister%state(twister%currentElement))
+    twister%currentElement = twister%currentElement + 1
+  
+  end function getRandomInt
+  ! --------------------
+  function getRandomPositiveInt(twister)
+    type(randomNumberSequence), intent(inout) :: twister
+    integer(kind=im)                        :: getRandomPositiveInt
+    ! Generate a random integer on the interval [0,0x7fffffff]
+    !   or [0,2**31]
+    !   Equivalent to genrand_int31 in the C code. 
+    
+    ! Local integers
+    integer(kind=im) :: localInt
+
+    localInt = getRandomInt(twister)
+    getRandomPositiveInt = ishft(localInt, -1)
+  
+  end function getRandomPositiveInt
+  ! --------------------
+!! mji - modified Jan 2007, double converted to rrtmg real kind type
+  function getRandomReal(twister)
+    type(randomNumberSequence), intent(inout) :: twister
+!    double precision             :: getRandomReal
+    real(kind=rb)             :: getRandomReal
+    ! Generate a random number on [0,1]
+    !   Equivalent to genrand_real1 in the C code
+    !   The result is stored as double precision but has 32 bit resolution
+    
+    integer(kind=im) :: localInt
+    
+    localInt = getRandomInt(twister)
+    if(localInt < 0) then
+!      getRandomReal = dble(localInt + 2.0d0**32)/(2.0d0**32 - 1.0d0)
+      getRandomReal = (localInt + 2.0**32_rb)/(2.0**32_rb - 1.0_rb)
+    else
+!      getRandomReal = dble(localInt            )/(2.0d0**32 - 1.0d0)
+      getRandomReal = (localInt            )/(2.0**32_rb - 1.0_rb)
+    end if
+
+  end function getRandomReal
+  ! --------------------
+  subroutine finalize_RandomNumberSequence(twister)
+    type(randomNumberSequence), intent(inout) :: twister
+    
+      twister%currentElement = blockSize
+      twister%state(:) = 0_im
+  end subroutine finalize_RandomNumberSequence
+
+  ! --------------------  
+  
+  end module MersenneTwister
+
+
+  module mcica_random_numbers
+
+  ! Generic module to wrap random number generators. 
+  !   The module defines a type that identifies the particular stream of random 
+  !   numbers, and has procedures for initializing it and getting real numbers 
+  !   in the range 0 to 1. 
+  ! This version uses the Mersenne Twister to generate random numbers on [0, 1]. 
+  !
+  use MersenneTwister, only: randomNumberSequence, & ! The random number engine.
+                             new_RandomNumberSequence, getRandomReal
+!! mji
+!!  use time_manager_mod, only: time_type, get_date
+
+  use parkind, only : im => kind_im, rb => kind_rb 
+
+  implicit none
+  private
+  
+  type randomNumberStream
+    type(randomNumberSequence) :: theNumbers
+  end type randomNumberStream
+  
+  interface getRandomNumbers
+    module procedure getRandomNumber_Scalar, getRandomNumber_1D, getRandomNumber_2D
+  end interface getRandomNumbers
+  
+  interface initializeRandomNumberStream
+    module procedure initializeRandomNumberStream_S, initializeRandomNumberStream_V
+  end interface initializeRandomNumberStream
+
+  public :: randomNumberStream,                             &
+            initializeRandomNumberStream, getRandomNumbers
+!! mji
+!!            initializeRandomNumberStream, getRandomNumbers, &
+!!            constructSeed
+contains
+  ! ---------------------------------------------------------
+  ! Initialization
+  ! ---------------------------------------------------------
+  function initializeRandomNumberStream_S(seed) result(new) 
+    integer(kind=im), intent( in)     :: seed
+    type(randomNumberStream) :: new
+    
+    new%theNumbers = new_RandomNumberSequence(seed)
+    
+  end function initializeRandomNumberStream_S
+  ! ---------------------------------------------------------
+  function initializeRandomNumberStream_V(seed) result(new) 
+    integer(kind=im), dimension(:), intent( in) :: seed
+    type(randomNumberStream)           :: new
+    
+    new%theNumbers = new_RandomNumberSequence(seed)
+    
+  end function initializeRandomNumberStream_V
+  ! ---------------------------------------------------------
+  ! Procedures for drawing random numbers
+  ! ---------------------------------------------------------
+  subroutine getRandomNumber_Scalar(stream, number)
+    type(randomNumberStream), intent(inout) :: stream
+    real(kind=rb),                     intent(  out) :: number
+    
+    number = getRandomReal(stream%theNumbers)
+  end subroutine getRandomNumber_Scalar
+  ! ---------------------------------------------------------
+  subroutine getRandomNumber_1D(stream, numbers)
+    type(randomNumberStream), intent(inout) :: stream
+    real(kind=rb), dimension(:),       intent(  out) :: numbers
+    
+    ! Local variables
+    integer(kind=im) :: i
+    
+    do i = 1, size(numbers)
+      numbers(i) = getRandomReal(stream%theNumbers)
+    end do
+  end subroutine getRandomNumber_1D
+  ! ---------------------------------------------------------
+  subroutine getRandomNumber_2D(stream, numbers)
+    type(randomNumberStream), intent(inout) :: stream
+    real(kind=rb), dimension(:, :),    intent(  out) :: numbers
+    
+    ! Local variables
+    integer(kind=im) :: i
+    
+    do i = 1, size(numbers, 2)
+      call getRandomNumber_1D(stream, numbers(:, i))
+    end do
+  end subroutine getRandomNumber_2D
+! mji
+!  ! ---------------------------------------------------------
+!  ! Constructing a unique seed from grid cell index and model date/time
+!  !   Once we have the GFDL stuff we'll add the year, month, day, hour, minute
+!  ! ---------------------------------------------------------
+!  function constructSeed(i, j, time) result(seed)
+!    integer(kind=im),         intent( in)  :: i, j
+!    type(time_type), intent( in) :: time
+!    integer(kind=im), dimension(8) :: seed
+!    
+!    ! Local variables
+!    integer(kind=im) :: year, month, day, hour, minute, second
+!    
+!    
+!    call get_date(time, year, month, day, hour, minute, second)
+!    seed = (/ i, j, year, month, day, hour, minute, second /)
+!  end function constructSeed
+
+  end module mcica_random_numbers
+
+
diff --git a/radiation/src/mcica_subcol_gen_lw.1col.f90 b/radiation/src/mcica_subcol_gen_lw.1col.f90
new file mode 100644
index 0000000000000000000000000000000000000000..f1c86256c1083071ad5243a6d08971b41b41ea2f
--- /dev/null
+++ b/radiation/src/mcica_subcol_gen_lw.1col.f90
@@ -0,0 +1,713 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+      module mcica_subcol_gen_lw
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! Purpose: Create McICA stochastic arrays for cloud physical or optical properties.
+! Two options are possible:
+! 1) Input cloud physical properties: cloud fraction, ice and liquid water
+!    paths, ice fraction, and particle sizes.  Output will be stochastic
+!    arrays of these variables.  (inflag = 1)
+! 2) Input cloud optical properties directly: cloud optical depth, single
+!    scattering albedo and asymmetry parameter.  Output will be stochastic
+!    arrays of these variables.  (inflag = 0; longwave scattering is not
+!    yet available, ssac and asmc are for future expansion)
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use parrrtm, only : nbndlw, ngptlw
+      use rrlw_con, only: grav
+      use rrlw_wvn, only: ngb
+      use rrlw_vsn
+
+      implicit none
+
+! public interfaces/functions/subroutines
+      public :: get_alpha, mcica_subcol_lw, generate_stochastic_clouds 
+
+      contains
+
+!------------------------------------------------------------------
+! Public subroutines
+!------------------------------------------------------------------
+
+      subroutine get_alpha(iplon, nlayers, icld, idcor, decorr_con, &
+                           dz, lat, juldat, cldfrac, alpha)
+
+! Subroutine alpha calculates the alpha parameter required for the 
+! exponential and exponential-random cloud overlap methods. Calling 
+! this subroutine is therefore only required when icld = 4 or 5.  
+!
+! This subroutine calculates the exponential transition, alpha, from 
+! maximum to random overlap required to define the fractional cloud
+! vertical correlations for the exponential or exponential-random
+! cloud overlap options. For exponential, the transition from maximum
+! to random with distance through model layers occurs without regard
+! to the configuration of clear and cloudy layers. For the exponential-
+! random method, each block of adjacent cloudy layers is treated with a
+! separate transition from maximum to random, and blocks of cloudy 
+! layers separated by one or more clear layers are correlated randomly. 
+
+! Inputs
+      integer(kind=im), intent(in) :: iplon           ! column/longitude dimension
+      integer(kind=im), intent(in) :: nlayers         ! number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+                                                      !  0 = clear
+                                                      !  1 = random
+                                                      !  2 = maximum-random
+                                                      !  3 = maximum
+                                                      !  4 = exponential
+                                                      !  5 = exponential-random
+      integer(kind=im), intent(in) :: idcor           ! decorrelation length method
+                                                      !  0 = constant
+                                                      !  1 = latitude-varying (Oreopolous et al, 2012)
+      integer(kind=im), intent(in) :: juldat          ! Julian day of year
+
+      real(kind=rb), intent(in) :: decorr_con         ! decorrelation length, constant (m) 
+
+      real(kind=rb), intent(in) :: dz(:)              ! layer thickness (m) 
+                                                      ! Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: lat                ! latitude (degrees)
+
+      real(kind=rb), intent(in) :: cldfrac(:)         ! layer cloud fraction
+                                                      ! Dimensions: (nlayers)
+! Outputs
+      real(kind=rb), intent(out) :: alpha(:)          ! vertical cloud fraction correlation parameter
+                                                      ! Dimensions: (nlayers)
+
+! Local
+      integer :: k
+      real(kind=rb) :: decorr_lat                     ! decorrelation length, latitude-varying (m)
+      real(kind=rb) :: decorr_len                     ! final decorrelation length (m)
+      real(kind=rb) :: decorr_inv                     ! 1. / decorr_len
+
+! Constants for latitude and day-of-year depenendent decorrelation length (Oreopolous et al., 2012)
+! when idcor = 1
+      real(kind=rb), parameter :: am1 = 1.4315
+      real(kind=rb), parameter :: am2 = 2.1219
+      real(kind=rb), parameter :: am4 = -25.584
+      real(kind=rb), parameter :: amr = 7.0
+      real(kind=rb) :: am3
+
+      real(kind=rb), parameter :: f_one = 1.0
+
+! If exponential or exponential-random cloud overlap is used, 
+! Derive latitude-varying decorrelation length if requested; 
+! otherwise use the provided constant decorrelation length, decorr_con
+      decorr_inv = f_one
+      if (icld .eq. 4 .or. icld .eq. 5) then
+         if (idcor .eq. 1) then 
+            if (juldat .gt. 181) then
+               am3 = -4._rb * amr / 365._rb * (juldat - 272) 
+            else
+               am3 = 4._rb * amr / 365._rb * (juldat - 91)
+            endif
+! latitude in degrees, decorr_lat in km
+            decorr_lat = am1 + am2 * exp( -(lat - am3)**2 / am4**2)
+            decorr_len = decorr_lat * 1.e3_rb
+         else
+            decorr_len = decorr_con
+         endif
+         if (decorr_len .ge. 0.0_rb) decorr_inv = f_one / decorr_len
+      endif
+
+! Atmosphere data defined from sfc to toa; define alpha from sfc to toa
+! Exponential cloud overlap
+      if (icld .eq. 4) then 
+         alpha(1) = 0.0_rb
+         do k = 2, nlayers
+            alpha(k) = exp( -(0.5_rb * (dz(k) + dz(k-1))) * decorr_inv)
+         enddo
+      endif
+! Exponential-random cloud overlap
+      if (icld .eq. 5) then 
+         alpha(1) = 0.0_rb
+         do k = 2, nlayers
+            alpha(k) = exp( -(0.5_rb * (dz(k) + dz(k-1))) * decorr_inv)
+      ! Decorrelate layers when a clear layer follows a cloudy layer to enforce
+      ! random correlation between non-adjacent blocks of cloudy layers
+            if (cldfrac(k) .eq. 0.0_rb .and. cldfrac(k-1) .gt. 0.0_rb) then
+               alpha(k) = 0.0_rb
+            endif
+         enddo
+      endif
+
+      end subroutine get_alpha
+
+!-------------------------------------------------------------------------------------------------
+      subroutine mcica_subcol_lw(iplon, nlayers, icld, ims, irng, play, &
+                       cldfrac, ciwp, clwp, rei, rel, tauc, alpha, cldfmc, &
+                       ciwpmc, clwpmc, reicmc, relqmc, taucmc)
+
+! Control
+      integer(kind=im), intent(in) :: iplon           ! column/longitude dimension
+      integer(kind=im), intent(in) :: nlayers         ! number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+      integer(kind=im), intent(in) :: ims             ! mcica statistical loop index; also
+                                                      ! value for changing mcica permute seed
+      integer(kind=im), intent(inout) :: irng         ! flag for random number generator
+                                                      !  0 = kissvec
+                                                      !  1 = Mersenne Twister
+
+! Atmosphere
+      real(kind=rb), intent(in) :: play(:)            ! layer pressures (mb) 
+                                                      !    Dimensions: (nlayers)
+
+! Atmosphere/clouds - cldprop
+      real(kind=rb), intent(in) :: cldfrac(:)         ! layer cloud fraction
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tauc(:,:)          ! in-cloud optical depth
+                                                      !    Dimensions: (nbndlw,nlayers)
+!      real(kind=rb), intent(in) :: ssac(:,:)         ! in-cloud single scattering albedo
+                                                      !    Dimensions: (nbndlw,nlayers)
+!      real(kind=rb), intent(in) :: asmc(:,:)         ! in-cloud asymmetry parameter
+                                                      !    Dimensions: (nbndlw,nlayers)
+      real(kind=rb), intent(in) :: ciwp(:)            ! in-cloud ice water path
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: clwp(:)            ! in-cloud liquid water path
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: rei(:)             ! cloud ice particle size
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: rel(:)             ! cloud liquid particle size
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: alpha(:)           ! vertical cloud fraction correlation parameter
+                                                      ! Dimensions: (nlayers)
+
+! ----- Output -----
+! Atmosphere/clouds - cldprmc [mcica]
+      real(kind=rb), intent(out) :: cldfmc(:,:)       ! cloud fraction [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+      real(kind=rb), intent(out) :: ciwpmc(:,:)       ! in-cloud ice water path [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+      real(kind=rb), intent(out) :: clwpmc(:,:)       ! in-cloud liquid water path [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+      real(kind=rb), intent(out) :: relqmc(:)         ! liquid particle size (microns)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: reicmc(:)         ! ice partcle size (microns)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: taucmc(:,:)       ! in-cloud optical depth [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+!      real(kind=rb), intent(out) :: ssacmc(:,:)      ! in-cloud single scattering albedo [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+!      real(kind=rb), intent(out) :: asmcmc(:,:)      ! in-cloud asymmetry parameter [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+
+! ----- Local -----
+
+! Stochastic cloud generator variables [mcica]
+      integer(kind=im), parameter :: nsubclw = ngptlw ! number of sub-columns (g-point intervals)
+      integer(kind=im) :: permuteseed                 ! if the cloud generator is called multiple times, 
+                                                      ! permute the seed between each call.    
+      integer(kind=im) :: ilev                        ! loop index
+
+      real(kind=rb) :: pmid(nlayers)                  ! layer pressures (Pa) 
+!      real(kind=rb) :: pdel(nlayers)                 ! layer pressure thickness (Pa) 
+!      real(kind=rb) :: qi(nlayers)                   ! ice water (specific humidity)
+!      real(kind=rb) :: ql(nlayers)                   ! liq water (specific humidity)
+
+
+! Return if clear sky; or stop if icld out of range
+      if (icld.eq.0) return
+      if (icld.lt.0.or.icld.gt.5) then 
+         stop 'MCICA_SUBCOL_LW: INVALID ICLD'
+      endif 
+
+! Set permute seed for random number generator
+! For single column mode, permuteseed must be different for each (ims) sample performed
+
+      permuteseed = ims*nsubclw
+
+! Pass particle sizes to new arrays, no subcolumns for these properties yet
+! Convert pressures from mb to Pa
+
+      reicmc(:nlayers) = rei(:nlayers)
+      relqmc(:nlayers) = rel(:nlayers)
+      pmid(:nlayers) = play(:nlayers)*1.e2_rb
+
+! Convert input ice and liquid cloud water paths to specific humidity ice and liquid components 
+
+!      cwp =  (q * pdel * 1000.) / gravit)
+!           = (kg/kg * kg m-1 s-2 *1000.) / m s-2
+!           = (g m-2)
+!
+!      q  = (cwp * gravit) / (pdel *1000.)
+!         = (g m-2 * m s-2) / (kg m-1 s-2 * 1000.)
+!         =  kg/kg
+
+!      do ilev = 1, nlayers
+!         qi(ilev) = (ciwp(ilev) * grav) / (pdel(ilev) * 1000._rb)
+!         ql(ilev) = (clwp(ilev) * grav) / (pdel(ilev) * 1000._rb)
+!      enddo
+
+!  Generate the stochastic subcolumns of cloud optical properties for the longwave;
+      call generate_stochastic_clouds (nlayers, icld, irng, pmid, cldfrac, clwp, ciwp, &
+                                   alpha, tauc, &
+                                   cldfmc, clwpmc, ciwpmc, taucmc, permuteseed)
+
+      end subroutine mcica_subcol_lw
+
+
+!-------------------------------------------------------------------------------------------------
+      subroutine generate_stochastic_clouds(nlayers, icld, irng, pmid, cld, clwp, ciwp, &
+                                   alpha, tauc, &
+                                   cld_stoch, clwp_stoch, ciwp_stoch, tauc_stoch, changeSeed) 
+!-------------------------------------------------------------------------------------------------
+
+  !----------------------------------------------------------------------------------------------------------------
+  ! ---------------------
+  ! Contact: Cecile Hannay (hannay@ucar.edu)
+  ! 
+  ! Original code: Based on Raisanen et al., QJRMS, 2004.
+  ! 
+  ! Modifications: Generalized for use with RRTMG and added Mersenne Twister as the default
+  !   random number generator, which can be changed to the optional kissvec random number generator
+  !   with flag 'irng'. Some extra functionality has been commented or removed.  
+  !   Michael J. Iacono, AER, Inc., February 2007
+  !
+  ! Given a profile of cloud fraction, cloud water and cloud ice, we produce a set of subcolumns.
+  ! Each layer within each subcolumn is homogeneous, with cloud fraction equal to zero or one 
+  ! and uniform cloud liquid and cloud ice concentration.
+  ! The ensemble as a whole reproduces the probability function of cloud liquid and ice within each layer 
+  ! and obeys an overlap assumption in the vertical.   
+  ! 
+  ! Overlap assumption:
+  !  The cloud are consistent with 4 overlap assumptions: random, maximum, maximum-random and exponential. 
+  !  The default option is maximum-random (option 3)
+  !  The options are: 1=random overlap, 2=max/random, 3=maximum overlap, 4=exponential overlap
+  !  This is set with the variable "overlap" 
+  !mji - Exponential overlap option (overlap=4) has been deactivated in this version
+  !  The exponential overlap uses also a length scale, Zo. (real,    parameter  :: Zo = 2500. ) 
+  ! 
+  ! Seed:
+  !  If the stochastic cloud generator is called several times during the same timestep, 
+  !  one should change the seed between the call to insure that the subcolumns are different.
+  !  This is done by changing the argument 'changeSeed'
+  !  For example, if one wants to create a set of columns for the shortwave and another set for the longwave ,
+  !  use 'changeSeed = 1' for the first call and'changeSeed = 2' for the second call 
+  !
+  ! PDF assumption:
+  !  We can use arbitrary complicated PDFS. 
+  !  In the present version, we produce homogeneuous clouds (the simplest case).  
+  !  Future developments include using the PDF scheme of Ben Johnson. 
+  !
+  ! History file:
+  !  Option to add diagnostics variables in the history file. (using FINCL in the namelist)
+  !  nsubcol = number of subcolumns
+  !  overlap = overlap type (1-3)
+  !  Zo = length scale 
+  !  CLOUD_S = mean of the subcolumn cloud fraction ('_S" means Stochastic)
+  !  CLDLIQ_S = mean of the subcolumn cloud water
+  !  CLDICE_S = mean of the subcolumn cloud ice 
+  !
+  ! Note:
+  !   Here: we force that the cloud condensate to be consistent with the cloud fraction 
+  !   i.e we only have cloud condensate when the cell is cloudy. 
+  !   In CAM: The cloud condensate and the cloud fraction are obtained from 2 different equations 
+  !   and the 2 quantities can be inconsistent (i.e. CAM can produce cloud fraction 
+  !   without cloud condensate or the opposite).
+  !---------------------------------------------------------------------------------------------------------------
+
+      use mcica_random_numbers
+! The Mersenne Twister random number engine
+      use MersenneTwister, only: randomNumberSequence, &   
+                                 new_RandomNumberSequence, getRandomReal
+
+      type(randomNumberSequence) :: randomNumbers
+
+! -- Arguments
+
+      integer(kind=im), intent(in) :: nlayers         ! number of layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+      integer(kind=im), intent(inout) :: irng         ! flag for random number generator
+                                                      !  0 = kissvec
+                                                      !  1 = Mersenne Twister
+      integer(kind=im), optional, intent(in) :: changeSeed     ! allows permuting the seed
+
+! Column state (cloud fraction, cloud water, cloud ice) + variables needed to read physics state 
+      real(kind=rb), intent(in) :: pmid(:)            ! layer pressure (Pa)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: cld(:)             ! cloud fraction 
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: clwp(:)            ! in-cloud liquid water path
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: ciwp(:)            ! in-cloud ice water path
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tauc(:,:)          ! in-cloud optical depth
+                                                      !    Dimensions: (nbndlw,nlayers)
+!      real(kind=rb), intent(in) :: ssac(:,:)         ! in-cloud single scattering albedo
+                                                      !    Dimensions: (nbndlw,nlayers)
+                                                      !   inactive - for future expansion
+!      real(kind=rb), intent(in) :: asmc(:,:)         ! in-cloud asymmetry parameter
+                                                      !    Dimensions: (nbndlw,nlayers)
+                                                      !   inactive - for future expansion
+      real(kind=rb), intent(in) :: alpha(:)           ! vertical cloud fraction correlation parameter
+                                                      !    Dimensions: (nlayers)
+
+      real(kind=rb), intent(out) :: cld_stoch(:,:)    ! subcolumn cloud fraction 
+                                                      !    Dimensions: (ngptlw,nlayers)
+      real(kind=rb), intent(out) :: clwp_stoch(:,:)   ! subcolumn in-cloud liquid water path
+                                                      !    Dimensions: (ngptlw,nlayers)
+      real(kind=rb), intent(out) :: ciwp_stoch(:,:)   ! subcolumn in-cloud ice water path
+                                                      !    Dimensions: (ngptlw,nlayers)
+      real(kind=rb), intent(out) :: tauc_stoch(:,:)   ! subcolumn in-cloud optical depth
+                                                      !    Dimensions: (ngptlw,nlayers)
+!      real(kind=rb), intent(out) :: ssac_stoch(:,:)  ! subcolumn in-cloud single scattering albedo
+                                                      !    Dimensions: (ngptlw,nlayers)
+                                                      !   inactive - for future expansion
+!      real(kind=rb), intent(out) :: asmc_stoch(:,:)  ! subcolumn in-cloud asymmetry parameter
+                                                      !    Dimensions: (ngptlw,nlayers)
+                                                      !   inactive - for future expansion
+
+! -- Local variables
+      integer(kind=im), parameter :: nsubcol = ngptlw ! number of sub-columns (g-point intervals)
+      real(kind=rb) :: cldf(nlayers)                  ! cloud fraction 
+
+! Mean over the subcolumns (cloud fraction, cloud water , cloud ice) - inactive
+!      real(kind=rb) :: mean_cld_stoch(nlayers)       ! cloud fraction 
+!      real(kind=rb) :: mean_clwp_stoch(nlayers)      ! cloud water
+!      real(kind=rb) :: mean_ciwp_stoch(nlayers)      ! cloud ice
+!      real(kind=rb) :: mean_tauc_stoch(nlayers)      ! cloud optical depth
+!      real(kind=rb) :: mean_ssac_stoch(nlayers)      ! cloud single scattering albedo
+!      real(kind=rb) :: mean_asmc_stoch(nlayers)      ! cloud asymmetry parameter
+
+! Set overlap
+      integer(kind=im) :: overlap                     ! 1 = random overlap, 2 = maximum_random,
+                                                      ! 3 = maximum overlap, 4 = exponential overlap
+                                                      ! 5 = exponential_random overlap
+
+! Constants (min value for cloud fraction and cloud water and ice)
+      real(kind=rb), parameter :: cldmin = 1.0e-20_rb ! min cloud fraction
+!      real(kind=rb), parameter :: qmin   = 1.0e-10_rb   ! min cloud water and cloud ice (not used)
+
+! Variables related to random number and seed 
+      real(kind=rb), dimension(nsubcol, nlayers) :: CDF, CDF2 ! random numbers
+      integer(kind=im) :: seed1, seed2, seed3, seed4          ! seed to create random number (kissvec)
+      real(kind=rb) :: rand_num                       ! random number (kissvec)
+      integer(kind=im) :: iseed                       ! seed to create random number (Mersenne Twister)
+      real(kind=rb) :: rand_num_mt                    ! random number (Mersenne Twister)
+
+! Flag to identify cloud fraction in subcolumns
+      logical,  dimension(nsubcol, nlayers) :: iscloudy ! flag that says whether a gridbox is cloudy
+
+! Indices
+      integer(kind=im) :: ilev, isubcol, i, n         ! indices
+
+!------------------------------------------------------------------------------------------ 
+
+! Check that irng is in bounds; if not, set to default
+      if (irng .ne. 0) irng = 1
+
+! Pass input cloud overlap settings to local variables
+      overlap = icld
+
+! Ensure that cloud fractions are in bounds 
+      do ilev = 1, nlayers
+         cldf(ilev) = cld(ilev)
+         if (cldf(ilev) < cldmin) then
+            cldf(ilev) = 0._rb
+         endif
+      enddo
+
+! ----- Create seed  --------
+
+! Advance randum number generator by changeseed values
+      if (irng.eq.0) then   
+! For kissvec, create a seed that depends on the state of the columns. Maybe not the best way, but it works.  
+! Must use pmid from bottom four layers. 
+         if (pmid(1).lt.pmid(2)) then 
+            stop 'MCICA_SUBCOL: KISSVEC SEED GENERATOR REQUIRES PMID FROM BOTTOM FOUR LAYERS.'
+         endif 
+         seed1 = (pmid(1) - int(pmid(1)))  * 1000000000_im
+         seed2 = (pmid(2) - int(pmid(2)))  * 1000000000_im
+         seed3 = (pmid(3) - int(pmid(3)))  * 1000000000_im
+         seed4 = (pmid(4) - int(pmid(4)))  * 1000000000_im
+         do i=1,changeSeed
+            call kissvec(seed1, seed2, seed3, seed4, rand_num)
+         enddo
+      elseif (irng.eq.1) then
+         randomNumbers = new_RandomNumberSequence(seed = changeSeed)
+      endif 
+
+! ------ Apply overlap assumption --------
+
+! generate the random numbers  
+
+      select case (overlap)
+
+      case(1) 
+! Random overlap
+! i) pick a random value at every level
+  
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               do ilev = 1,nlayers
+                  call kissvec(seed1, seed2, seed3, seed4, rand_num)  ! we get different random number for each level
+                  CDF(isubcol, ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               do ilev = 1, nlayers
+                  rand_num_mt = getRandomReal(randomNumbers)
+                  CDF(isubcol,ilev) = rand_num_mt
+               enddo
+             enddo
+         endif
+
+      case(2) 
+! Maximum_Random overlap
+! i) pick a random number for top layer.
+! ii) walk down the column: 
+!    - if the layer above is cloudy, we use the same random number than in the layer above
+!    - if the layer above is clear, we use a new random number 
+
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               do ilev = 1,nlayers
+                  call kissvec(seed1, seed2, seed3, seed4, rand_num) 
+                  CDF(isubcol, ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               do ilev = 1, nlayers
+                  rand_num_mt = getRandomReal(randomNumbers)
+                  CDF(isubcol,ilev) = rand_num_mt
+               enddo
+             enddo
+         endif
+
+         do ilev = 2,nlayers
+            do isubcol = 1, nsubcol
+               if (CDF(isubcol, ilev-1) > 1._rb - cldf(ilev-1) ) then
+                  CDF(isubcol,ilev) = CDF(isubcol,ilev-1) 
+               else
+                  CDF(isubcol,ilev) = CDF(isubcol,ilev) * (1._rb - cldf(ilev-1)) 
+               endif
+            enddo
+         enddo
+       
+      case(3) 
+! Maximum overlap
+! i) pick the same random number at every level  
+
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               call kissvec(seed1, seed2, seed3, seed4, rand_num) 
+               do ilev = 1,nlayers
+                  CDF(isubcol, ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               rand_num_mt = getRandomReal(randomNumbers)
+               do ilev = 1, nlayers
+                  CDF(isubcol,ilev) = rand_num_mt
+               enddo
+             enddo
+         endif
+
+     case(4)
+       ! Exponential overlap: transition from maximum to random cloud overlap increases 
+       ! exponentially with layer thickness and distance through layers
+       !
+       ! generate 2 streams of random numbers
+       ! CDF2 is used to select which sub-columns are vertically correlated relative to alpha
+       ! CDF  is used to select which sub-columns are treated as cloudy relative to cloud fraction
+       if (irng.eq.0) then 
+          do isubcol = 1,nsubcol
+             do ilev = 1,nlayers
+                call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                CDF(isubcol, ilev) = rand_num
+                call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                CDF2(isubcol, ilev) = rand_num
+             end do
+          end do
+       elseif (irng.eq.1) then
+          do isubcol = 1, nsubcol
+             do ilev = 1,nlayers
+                rand_num_mt = getRandomReal(randomNumbers)
+                CDF(isubcol,ilev) = rand_num_mt
+                rand_num_mt = getRandomReal(randomNumbers)
+                CDF2(isubcol,ilev) = rand_num_mt
+             enddo
+          enddo
+       endif
+
+       ! generate vertical correlations in random number arrays: bottom to top
+       do ilev = 2,nlayers
+          where (CDF2(:, ilev) < spread(alpha (ilev), dim=1, nCopies=nsubcol) )
+             CDF(:,ilev) = CDF(:,ilev-1) 
+          end where
+       end do
+
+     case(5)
+       ! Exponential_Random overlap: transition from maximum to random cloud overlap increases 
+       ! exponentially with layer thickness and with distance through adjacent cloudy layers. 
+       ! Non-adjacent blocks of clouds are treated randomly, and each block begins a new 
+       ! exponential transition from maximum to random. 
+       !
+       ! generate 2 streams of random numbers
+       ! CDF2 is used to select which sub-columns are vertically correlated relative to alpha
+       ! CDF  is used to select which sub-columns are treated as cloudy relative to cloud fraction
+       if (irng.eq.0) then 
+          do isubcol = 1,nsubcol
+             do ilev = 1,nlayers
+                call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                CDF(isubcol, ilev) = rand_num
+                call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                CDF2(isubcol, ilev) = rand_num
+             end do
+          end do
+       elseif (irng.eq.1) then
+          do isubcol = 1, nsubcol
+             do ilev = 1,nlayers
+                rand_num_mt = getRandomReal(randomNumbers)
+                CDF(isubcol,ilev) = rand_num_mt
+                rand_num_mt = getRandomReal(randomNumbers)
+                CDF2(isubcol,ilev) = rand_num_mt
+             enddo
+          enddo
+       endif
+
+       ! generate vertical correlations in random number arrays - bottom to top
+       do ilev = 2,nlayers
+          where (CDF2(:, ilev) < spread(alpha (ilev), dim=1, nCopies=nsubcol) )
+             CDF(:,ilev) = CDF(:,ilev-1) 
+          end where
+       end do
+
+     end select
+
+! -- generate logical cloud mask across subcolumns including vertical correlations --
+
+      do ilev = 1,nlayers
+         iscloudy(:,ilev) = (CDF(:,ilev) >= 1._rb - spread(cldf(ilev), dim=1, nCopies=nsubcol) )
+      enddo
+
+! where the subcolumn is cloudy, the subcolumn cloud fraction is 1;
+! where the subcolumn is not cloudy, the subcolumn cloud fraction is 0;
+! where there is a cloud, define the subcolumn cloud properties, 
+! otherwise set these to zero
+
+      do ilev = 1,nlayers
+         do isubcol = 1, nsubcol
+            if ( iscloudy(isubcol,ilev) ) then
+               cld_stoch(isubcol,ilev) = 1._rb
+               clwp_stoch(isubcol,ilev) = clwp(ilev)
+               ciwp_stoch(isubcol,ilev) = ciwp(ilev)
+               n = ngb(isubcol)
+               tauc_stoch(isubcol,ilev) = tauc(n,ilev)
+!               ssac_stoch(isubcol,ilev) = ssac(n,ilev)
+!               asmc_stoch(isubcol,ilev) = asmc(n,ilev)
+            else
+               cld_stoch(isubcol,ilev) = 0._rb
+               clwp_stoch(isubcol,ilev) = 0._rb
+               ciwp_stoch(isubcol,ilev) = 0._rb
+               tauc_stoch(isubcol,ilev) = 0._rb
+!               ssac_stoch(isubcol,ilev) = 1._rb
+!               asmc_stoch(isubcol,ilev) = 1._rb
+            endif
+         enddo
+      enddo
+
+! -- compute the means of the subcolumns ---
+!      mean_cld_stoch(:) = 0._rb
+!      mean_clwp_stoch(:) = 0._rb
+!      mean_ciwp_stoch(:) = 0._rb
+!      mean_tauc_stoch(:) = 0._rb
+!      mean_ssac_stoch(:) = 0._rb
+!      mean_asmc_stoch(:) = 0._rb
+!      do i = 1, nsubcol
+!         mean_cld_stoch(:) =  cld_stoch(i,:) + mean_cld_stoch(:) 
+!         mean_clwp_stoch( :) =  clwp_stoch( i,:) + mean_clwp_stoch( :) 
+!         mean_ciwp_stoch( :) =  ciwp_stoch( i,:) + mean_ciwp_stoch( :) 
+!         mean_tauc_stoch( :) =  tauc_stoch( i,:) + mean_tauc_stoch( :) 
+!         mean_ssac_stoch( :) =  ssac_stoch( i,:) + mean_ssac_stoch( :) 
+!         mean_asmc_stoch( :) =  asmc_stoch( i,:) + mean_asmc_stoch( :) 
+!      end do
+!      mean_cld_stoch(:) = mean_cld_stoch(:) / nsubcol
+!      mean_clwp_stoch( :) = mean_clwp_stoch( :) / nsubcol
+!      mean_ciwp_stoch( :) = mean_ciwp_stoch( :) / nsubcol
+!      mean_tauc_stoch( :) = mean_tauc_stoch( :) / nsubcol
+!      mean_ssac_stoch( :) = mean_ssac_stoch( :) / nsubcol
+!      mean_asmc_stoch( :) = mean_asmc_stoch( :) / nsubcol
+
+      end subroutine generate_stochastic_clouds
+
+
+!------------------------------------------------------------------
+! Private subroutines
+!------------------------------------------------------------------
+
+!-------------------------------------------------------------------------------------------------- 
+      subroutine kissvec(seed1,seed2,seed3,seed4,ran_arr)
+!-------------------------------------------------------------------------------------------------- 
+
+! public domain code
+! made available from http://www.fortran.com/
+! downloaded by pjr on 03/16/04
+! converted to vector form, functions inlined by pjr,mvr on 05/10/2004
+
+! The  KISS (Keep It Simple Stupid) random number generator. Combines:
+! (1) The congruential generator x(n)=69069*x(n-1)+1327217885, period 2^32.
+! (2) A 3-shift shift-register generator, period 2^32-1,
+! (3) Two 16-bit multiply-with-carry generators, period 597273182964842497>2^59
+!  Overall period>2^123; 
+!
+      real(kind=rb), intent(inout)  :: ran_arr
+      integer(kind=im), intent(inout) :: seed1,seed2,seed3,seed4
+!      integer(kind=im) :: i,sz,kiss
+      integer(kind=im) :: kiss
+      integer(kind=im) :: m, k, n
+
+! inline function 
+      m(k, n) = ieor (k, ishft (k, n) )
+
+!      sz = size(ran_arr)
+!      do i = 1, sz
+         seed1 = 69069_im * seed1 + 1327217885_im
+         seed2 = m (m (m (seed2, 13_im), - 17_im), 5_im)
+         seed3 = 18000_im * iand (seed3, 65535_im) + ishft (seed3, - 16_im)
+         seed4 = 30903_im * iand (seed4, 65535_im) + ishft (seed4, - 16_im)
+         kiss = seed1 + seed2 + ishft (seed3, 16_im) + seed4
+         ran_arr = kiss*2.328306e-10_rb + 0.5_rb
+!     end do
+    
+      end subroutine kissvec
+
+      end module mcica_subcol_gen_lw
+
diff --git a/radiation/src/mcica_subcol_gen_lw.f90 b/radiation/src/mcica_subcol_gen_lw.f90
new file mode 100644
index 0000000000000000000000000000000000000000..5e3db9557113e86a331f201b75468c309153680f
--- /dev/null
+++ b/radiation/src/mcica_subcol_gen_lw.f90
@@ -0,0 +1,746 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+      module mcica_subcol_gen_lw
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! Purpose: Create McICA stochastic arrays for cloud physical or optical properties.
+! Two options are possible:
+! 1) Input cloud physical properties: cloud fraction, ice and liquid water
+!    paths, ice fraction, and particle sizes.  Output will be stochastic
+!    arrays of these variables.  (inflag = 1)
+! 2) Input cloud optical properties directly: cloud optical depth, single
+!    scattering albedo and asymmetry parameter.  Output will be stochastic
+!    arrays of these variables.  (inflag = 0; longwave scattering is not
+!    yet available, ssac and asmc are for future expansion)
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrtm, only : nbndlw, ngptlw
+      use rrlw_con, only: grav
+      use rrlw_wvn, only: ngb
+      use rrlw_vsn
+
+      implicit none
+
+! public interfaces/functions/subroutines
+      public :: get_alpha, mcica_subcol_lw, generate_stochastic_clouds 
+
+      contains
+
+!------------------------------------------------------------------
+! Public subroutines
+!------------------------------------------------------------------
+
+
+      subroutine get_alpha(iplon, ncol, nlayers, icld, idcor, decorr_con, &
+                           dz, lat, juldat, cldfrac, alpha)
+
+! Subroutine alpha calculates the alpha parameter required for the 
+! exponential and exponential-random cloud overlap methods. Calling 
+! this subroutine is therefore only required when icld = 4 or 5.  
+!
+! This subroutine calculates the exponential transition, alpha, from 
+! maximum to random overlap required to define the fractional cloud
+! vertical correlations for the exponential or exponential-random
+! cloud overlap options. For exponential, the transition from maximum
+! to random with distance through model layers occurs without regard
+! to the configuration of clear and cloudy layers. For the exponential-
+! random method, each block of adjacent cloudy layers is treated with a
+! separate transition from maximum to random, and blocks of cloudy 
+! layers separated by one or more clear layers are correlated randomly. 
+
+! Inputs
+      integer(kind=im), intent(in) :: iplon           ! column/longitude dimension
+      integer(kind=im), intent(in) :: ncol            ! number of columns
+      integer(kind=im), intent(in) :: nlayers         ! number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+                                                      !  0 = clear
+                                                      !  1 = random
+                                                      !  2 = maximum-random
+                                                      !  3 = maximum
+                                                      !  4 = exponential
+                                                      !  5 = exponential-random
+      integer(kind=im), intent(in) :: idcor           ! decorrelation length method
+                                                      !  0 = constant
+                                                      !  1 = latitude-varying (Oreopolous et al, 2012)
+      integer(kind=im), intent(in) :: juldat          ! Julian day of year
+
+      real(kind=rb), intent(in) :: decorr_con         ! decorrelation length, constant (m) 
+
+      real(kind=rb), intent(in) :: dz(:,:)            ! layer thickness (m) 
+                                                      ! Dimensions: (ncol,nlayers)
+      real(kind=rb), intent(in) :: lat(:)             ! latitude (degrees)
+                                                      ! Dimensions: (ncol)
+      real(kind=rb), intent(in) :: cldfrac(:,:)       ! layer cloud fraction
+                                                      ! Dimensions: (ncol,nlayers)
+! Outputs
+      real(kind=rb), intent(out) :: alpha(:,:)        ! vertical cloud fraction correlation parameter
+                                                      ! Dimensions: (ncol,nlayers)
+
+! Local
+      integer :: i,k
+      real(kind=rb) :: decorr_lat                     ! decorrelation length, latitude-varying (m)
+      real(kind=rb) :: decorr_len(ncol)               ! final decorrelation length (m)
+      real(kind=rb) :: decorr_inv(ncol)               ! 1. / decorr_len
+
+! Constants for latitude and day-of-year depenendent decorrelation length (Oreopolous et al., 2012)
+! when idcor = 1
+      real(kind=rb), parameter :: am1 = 1.4315
+      real(kind=rb), parameter :: am2 = 2.1219
+      real(kind=rb), parameter :: am4 = -25.584
+      real(kind=rb), parameter :: amr = 7.0
+      real(kind=rb) :: am3
+
+      real(kind=rb), parameter :: f_one = 1.0
+
+! If exponential or exponential-random cloud overlap is used, 
+! Derive latitude-varying decorrelation length if requested; 
+! otherwise use the provided constant decorrelation length, decorr_con
+      decorr_inv(:ncol) = f_one
+      if (icld .eq. 4 .or. icld .eq. 5) then
+         if (idcor .eq. 1) then 
+            if (juldat .gt. 181) then
+               am3 = -4._rb * amr / 365._rb * (juldat - 272) 
+            else
+               am3 = 4._rb * amr / 365._rb * (juldat - 91)
+            endif
+! latitude in degrees, decorr_lat in km
+            do i = 1, ncol
+               decorr_lat = am1 + am2 * exp( -(lat(i) - am3)**2 / am4**2)
+               decorr_len(i) = decorr_lat * 1.e3_rb
+            enddo
+         else
+            decorr_len(:ncol) = decorr_con
+         endif
+         do i = 1, ncol
+            if (decorr_len(i) .ge. 0.0_rb)
+               decorr_inv(i) = f_one / decorr_len(i)
+            endif
+         enddo
+      endif
+
+! Atmosphere data defined from sfc to toa; define alpha from sfc to toa
+! Exponential cloud overlap
+      if (icld .eq. 4) then 
+         alpha(:ncol,1) = 0.0_rb
+         do i = 1, ncol
+            do k = 2, nlayers
+               alpha(i,k) = exp( -(0.5_rb * (dz(i,k) + dz(i,k-1))) * decorr_inv(i))
+            enddo
+         enddo
+      endif
+! Exponential-random cloud overlap
+      if (icld .eq. 5) then 
+         alpha(:ncol,1) = 0.0_rb
+         do i = 1, ncol
+            do k = 2, nlayers
+               alpha(i,k) = exp( -(0.5_rb * (dz(i,k) + dz(i,k-1))) * decorr_inv(i))
+      ! Decorrelate layers when a clear layer follows a cloudy layer to enforce
+      ! random correlation between non-adjacent blocks of cloudy layers
+               if (cldfrac(i,k) .eq. 0.0_rb .and. cldfrac(i,k-1) .gt. 0.0_rb) then
+                  alpha(i,k) = 0.0_rb
+               endif
+            enddo
+         enddo
+      endif
+
+      end subroutine get_alpha
+
+!-------------------------------------------------------------------------------------------------
+      subroutine mcica_subcol_lw(iplon, ncol, nlay, icld, permuteseed, irng, play, &
+                       cldfrac, ciwp, clwp, rei, rel, tauc, alpha, cldfmcl, &
+                       ciwpmcl, clwpmcl, reicmcl, relqmcl, taucmcl)
+
+! ----- Input -----
+! Control
+      integer(kind=im), intent(in) :: iplon           ! column/longitude index
+      integer(kind=im), intent(in) :: ncol            ! number of columns
+      integer(kind=im), intent(in) :: nlay            ! number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+      integer(kind=im), intent(in) :: permuteseed     ! if the cloud generator is called multiple times, 
+                                                      ! permute the seed between each call.
+                                                      ! between calls for LW and SW, recommended
+                                                      ! permuteseed differes by 'ngpt'
+      integer(kind=im), intent(inout) :: irng         ! flag for random number generator
+                                                      !  0 = kissvec
+                                                      !  1 = Mersenne Twister
+
+! Atmosphere
+      real(kind=rb), intent(in) :: play(:,:)          ! layer pressures (mb) 
+                                                      !    Dimensions: (ncol,nlay)
+
+! Atmosphere/clouds - cldprop
+      real(kind=rb), intent(in) :: cldfrac(:,:)       ! layer cloud fraction
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tauc(:,:,:)        ! in-cloud optical depth
+                                                      !    Dimensions: (nbndlw,ncol,nlay)
+!      real(kind=rb), intent(in) :: ssac(:,:,:)       ! in-cloud single scattering albedo
+                                                      !    Dimensions: (nbndlw,ncol,nlay)
+!      real(kind=rb), intent(in) :: asmc(:,:,:)       ! in-cloud asymmetry parameter
+                                                      !    Dimensions: (nbndlw,ncol,nlay)
+      real(kind=rb), intent(in) :: ciwp(:,:)          ! in-cloud ice water path
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: clwp(:,:)          ! in-cloud liquid water path
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: rei(:,:)           ! cloud ice particle size
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: rel(:,:)           ! cloud liquid particle size
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: alpha(:,:)         ! cloud fraction decorrelation length (m)
+                                                      ! Dimensions: (ncol,nlay)
+
+! ----- Output -----
+! Atmosphere/clouds - cldprmc [mcica]
+      real(kind=rb), intent(out) :: cldfmcl(:,:,:)    ! cloud fraction [mcica]
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(out) :: ciwpmcl(:,:,:)    ! in-cloud ice water path [mcica]
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(out) :: clwpmcl(:,:,:)    ! in-cloud liquid water path [mcica]
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(out) :: relqmcl(:,:)      ! liquid particle size (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(out) :: reicmcl(:,:)      ! ice partcle size (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(out) :: taucmcl(:,:,:)    ! in-cloud optical depth [mcica]
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+!      real(kind=rb), intent(out) :: ssacmcl(:,:,:)   ! in-cloud single scattering albedo [mcica]
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+!      real(kind=rb), intent(out) :: asmcmcl(:,:,:)   ! in-cloud asymmetry parameter [mcica]
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+
+! ----- Local -----
+
+! Stochastic cloud generator variables [mcica]
+      integer(kind=im), parameter :: nsubclw = ngptlw ! number of sub-columns (g-point intervals)
+      integer(kind=im) :: ilev                        ! loop index
+
+      real(kind=rb) :: pmid(ncol, nlay)               ! layer pressures (Pa) 
+!      real(kind=rb) :: pdel(ncol, nlay)              ! layer pressure thickness (Pa) 
+!      real(kind=rb) :: qi(ncol, nlay)                ! ice water (specific humidity)
+!      real(kind=rb) :: ql(ncol, nlay)                ! liq water (specific humidity)
+
+
+! Return if clear sky; or stop if icld out of range
+      if (icld.eq.0) return
+      if (icld.lt.0.or.icld.gt.5) then 
+         stop 'MCICA_SUBCOL_LW: INVALID ICLD'
+      endif 
+
+! NOTE: For GCM mode, permuteseed must be offset between LW and SW by at least the number of subcolumns
+
+
+! Pass particle sizes to new arrays, no subcolumns for these properties yet
+! Convert pressures from mb to Pa
+
+      reicmcl(:ncol,:nlay) = rei(:ncol,:nlay)
+      relqmcl(:ncol,:nlay) = rel(:ncol,:nlay)
+      pmid(:ncol,:nlay) = play(:ncol,:nlay)*1.e2_rb
+
+! Convert input ice and liquid cloud water paths to specific humidity ice and liquid components 
+
+!      cwp =  (q * pdel * 1000.) / gravit)
+!           = (kg/kg * kg m-1 s-2 *1000.) / m s-2
+!           = (g m-2)
+!
+!      q  = (cwp * gravit) / (pdel *1000.)
+!         = (g m-2 * m s-2) / (kg m-1 s-2 * 1000.)
+!         =  kg/kg
+
+!      do ilev = 1, nlay
+!         qi(ilev) = (ciwp(ilev) * grav) / (pdel(ilev) * 1000._rb)
+!         ql(ilev) = (clwp(ilev) * grav) / (pdel(ilev) * 1000._rb)
+!      enddo
+
+!  Generate the stochastic subcolumns of cloud optical properties for the longwave;
+      call generate_stochastic_clouds (ncol, nlay, nsubclw, icld, irng, pmid, cldfrac, clwp, ciwp, &
+                               alpha, tauc, cldfmcl, clwpmcl, ciwpmcl, taucmcl, permuteseed)
+
+      end subroutine mcica_subcol_lw
+
+
+!-------------------------------------------------------------------------------------------------
+      subroutine generate_stochastic_clouds(ncol, nlay, nsubcol, icld, irng, pmid, cld, clwp, ciwp, &
+                               alpha, tauc, cld_stoch, clwp_stoch, ciwp_stoch, tauc_stoch, changeSeed) 
+!-------------------------------------------------------------------------------------------------
+
+  !----------------------------------------------------------------------------------------------------------------
+  ! ---------------------
+  ! Contact: Cecile Hannay (hannay@ucar.edu)
+  ! 
+  ! Original code: Based on Raisanen et al., QJRMS, 2004.
+  ! 
+  ! Modifications: Generalized for use with RRTMG and added Mersenne Twister as the default
+  !   random number generator, which can be changed to the optional kissvec random number generator
+  !   with flag 'irng'. Some extra functionality has been commented or removed.  
+  !   Michael J. Iacono, AER, Inc., February 2007
+  !
+  ! Given a profile of cloud fraction, cloud water and cloud ice, we produce a set of subcolumns.
+  ! Each layer within each subcolumn is homogeneous, with cloud fraction equal to zero or one 
+  ! and uniform cloud liquid and cloud ice concentration.
+  ! The ensemble as a whole reproduces the probability function of cloud liquid and ice within each layer 
+  ! and obeys an overlap assumption in the vertical.   
+  ! 
+  ! Overlap assumption:
+  !  The cloud are consistent with 4 overlap assumptions: random, maximum, maximum-random and exponential. 
+  !  The default option is maximum-random (option 3)
+  !  The options are: 1=random overlap, 2=max/random, 3=maximum overlap, 4=exponential overlap
+  !  This is set with the variable "overlap" 
+  !mji - Exponential overlap option (overlap=4) has been deactivated in this version
+  !  The exponential overlap uses also a length scale, Zo. (real,    parameter  :: Zo = 2500. ) 
+  ! 
+  ! Seed:
+  !  If the stochastic cloud generator is called several times during the same timestep, 
+  !  one should change the seed between the call to insure that the subcolumns are different.
+  !  This is done by changing the argument 'changeSeed'
+  !  For example, if one wants to create a set of columns for the shortwave and another set for the longwave ,
+  !  use 'changeSeed = 1' for the first call and'changeSeed = 2' for the second call 
+  !
+  ! PDF assumption:
+  !  We can use arbitrary complicated PDFS. 
+  !  In the present version, we produce homogeneuous clouds (the simplest case).  
+  !  Future developments include using the PDF scheme of Ben Johnson. 
+  !
+  ! History file:
+  !  Option to add diagnostics variables in the history file. (using FINCL in the namelist)
+  !  nsubcol = number of subcolumns
+  !  overlap = overlap type (1-3)
+  !  Zo = length scale 
+  !  CLOUD_S = mean of the subcolumn cloud fraction ('_S" means Stochastic)
+  !  CLDLIQ_S = mean of the subcolumn cloud water
+  !  CLDICE_S = mean of the subcolumn cloud ice 
+  !
+  ! Note:
+  !   Here: we force that the cloud condensate to be consistent with the cloud fraction 
+  !   i.e we only have cloud condensate when the cell is cloudy. 
+  !   In CAM: The cloud condensate and the cloud fraction are obtained from 2 different equations 
+  !   and the 2 quantities can be inconsistent (i.e. CAM can produce cloud fraction 
+  !   without cloud condensate or the opposite).
+  !---------------------------------------------------------------------------------------------------------------
+
+      use mcica_random_numbers
+! The Mersenne Twister random number engine
+      use MersenneTwister, only: randomNumberSequence, &   
+                                 new_RandomNumberSequence, getRandomReal
+
+      type(randomNumberSequence) :: randomNumbers
+
+! -- Arguments
+
+      integer(kind=im), intent(in) :: ncol            ! number of columns
+      integer(kind=im), intent(in) :: nlay            ! number of layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+      integer(kind=im), intent(inout) :: irng         ! flag for random number generator
+                                                      !  0 = kissvec
+                                                      !  1 = Mersenne Twister
+      integer(kind=im), intent(in) :: nsubcol         ! number of sub-columns (g-point intervals)
+      integer(kind=im), optional, intent(in) :: changeSeed     ! allows permuting seed
+
+! Column state (cloud fraction, cloud water, cloud ice) + variables needed to read physics state 
+      real(kind=rb), intent(in) :: pmid(:,:)          ! layer pressure (Pa)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cld(:,:)           ! cloud fraction 
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: clwp(:,:)          ! in-cloud liquid water path
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ciwp(:,:)          ! in-cloud ice water path
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tauc(:,:,:)        ! in-cloud optical depth
+                                                      !    Dimensions: (nbndlw,ncol,nlay)
+!      real(kind=rb), intent(in) :: ssac(:,:,:)       ! in-cloud single scattering albedo
+                                                      !    Dimensions: (nbndlw,ncol,nlay)
+                                                      !   inactive - for future expansion
+!      real(kind=rb), intent(in) :: asmc(:,:,:)       ! in-cloud asymmetry parameter
+                                                      !    Dimensions: (nbndlw,ncol,nlay)
+                                                      !   inactive - for future expansion
+      real(kind=rb), intent(in) :: alpha(:,:)         ! vertical cloud fraction correlation parameter
+                                                      !    Dimensions: (ncol,nlay)
+
+      real(kind=rb), intent(out) :: cld_stoch(:,:,:)  ! subcolumn cloud fraction 
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(out) :: clwp_stoch(:,:,:) ! subcolumn in-cloud liquid water path
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(out) :: ciwp_stoch(:,:,:) ! subcolumn in-cloud ice water path
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(out) :: tauc_stoch(:,:,:) ! subcolumn in-cloud optical depth
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+!      real(kind=rb), intent(out) :: ssac_stoch(:,:,:)! subcolumn in-cloud single scattering albedo
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+                                                      !   inactive - for future expansion
+!      real(kind=rb), intent(out) :: asmc_stoch(:,:,:)! subcolumn in-cloud asymmetry parameter
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+                                                      !   inactive - for future expansion
+
+! -- Local variables
+      real(kind=rb) :: cldf(ncol,nlay)                ! cloud fraction 
+    
+! Mean over the subcolumns (cloud fraction, cloud water , cloud ice) - inactive
+!      real(kind=rb) :: mean_cld_stoch(ncol, nlay)    ! cloud fraction 
+!      real(kind=rb) :: mean_clwp_stoch(ncol, nlay)   ! cloud water
+!      real(kind=rb) :: mean_ciwp_stoch(ncol, nlay)   ! cloud ice
+!      real(kind=rb) :: mean_tauc_stoch(ncol, nlay)   ! cloud optical depth
+!      real(kind=rb) :: mean_ssac_stoch(ncol, nlay)   ! cloud single scattering albedo
+!      real(kind=rb) :: mean_asmc_stoch(ncol, nlay)   ! cloud asymmetry parameter
+
+! Set overlap
+      integer(kind=im) :: overlap                     ! 1 = random overlap, 2 = maximum/random,
+                                                      ! 3 = maximum overlap, 4 = exponential overlap
+                                                      ! 5 = exponential-random overlap
+
+! Constants (min value for cloud fraction and cloud water and ice)
+      real(kind=rb), parameter :: cldmin = 1.0e-20_rb ! min cloud fraction
+!      real(kind=rb), parameter :: qmin   = 1.0e-10_rb   ! min cloud water and cloud ice (not used)
+
+! Variables related to random number and seed 
+      real(kind=rb), dimension(nsubcol, ncol, nlay) :: CDF, CDF2      ! random numbers
+      integer(kind=im), dimension(ncol) :: seed1, seed2, seed3, seed4 ! seed to create random number (kissvec)
+      real(kind=rb), dimension(ncol) :: rand_num      ! random number (kissvec)
+      integer(kind=im) :: iseed                       ! seed to create random number (Mersenne Teister)
+      real(kind=rb) :: rand_num_mt                    ! random number (Mersenne Twister)
+
+! Flag to identify cloud fraction in subcolumns
+      logical,  dimension(nsubcol, ncol, nlay) :: iscloudy   ! flag that says whether a gridbox is cloudy
+
+! Indices
+      integer(kind=im) :: ilev, isubcol, i, n         ! indices
+
+!------------------------------------------------------------------------------------------ 
+
+! Check that irng is in bounds; if not, set to default
+      if (irng .ne. 0) irng = 1
+
+! Pass input cloud overlap setting to local variable
+      overlap = icld
+
+! Ensure that cloud fractions are in bounds 
+      do ilev = 1, nlay
+         do i = 1, ncol
+            cldf(i,ilev) = cld(i,ilev)
+            if (cldf(i,ilev) < cldmin) then
+               cldf(i,ilev) = 0._rb
+            endif
+         enddo
+      enddo
+
+! ----- Create seed  --------
+   
+! Advance randum number generator by changeseed values
+      if (irng.eq.0) then   
+! For kissvec, create a seed that depends on the state of the columns. Maybe not the best way, but it works.  
+! Must use pmid from bottom four layers. 
+         do i=1,ncol
+            if (pmid(i,1).lt.pmid(i,2)) then 
+               stop 'MCICA_SUBCOL: KISSVEC SEED GENERATOR REQUIRES PMID FROM BOTTOM FOUR LAYERS.'
+            endif 
+            seed1(i) = (pmid(i,1) - int(pmid(i,1)))  * 1000000000_im
+            seed2(i) = (pmid(i,2) - int(pmid(i,2)))  * 1000000000_im
+            seed3(i) = (pmid(i,3) - int(pmid(i,3)))  * 1000000000_im
+            seed4(i) = (pmid(i,4) - int(pmid(i,4)))  * 1000000000_im
+          enddo
+         do i=1,changeSeed
+            call kissvec(seed1, seed2, seed3, seed4, rand_num)
+         enddo
+      elseif (irng.eq.1) then
+         randomNumbers = new_RandomNumberSequence(seed = changeSeed)
+      endif 
+
+
+! ------ Apply overlap assumption --------
+
+! generate the random numbers  
+
+      select case (overlap)
+
+      case(1) 
+! Random overlap
+! i) pick a random value at every level
+  
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               do ilev = 1,nlay
+                  call kissvec(seed1, seed2, seed3, seed4, rand_num)  ! we get different random number for each level
+                  CDF(isubcol,:,ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               do i = 1, ncol
+                  do ilev = 1, nlay
+                     rand_num_mt = getRandomReal(randomNumbers)
+                     CDF(isubcol,i,ilev) = rand_num_mt
+                  enddo
+               enddo
+             enddo
+         endif
+
+      case(2) 
+! Maximum_Random overlap
+! i) pick a random number for top layer.
+! ii) walk down the column: 
+!    - if the layer above is cloudy, we use the same random number than in the layer above
+!    - if the layer above is clear, we use a new random number 
+
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               do ilev = 1,nlay
+                  call kissvec(seed1, seed2, seed3, seed4, rand_num) 
+                  CDF(isubcol,:,ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               do i = 1, ncol
+                  do ilev = 1, nlay
+                     rand_num_mt = getRandomReal(randomNumbers)
+                     CDF(isubcol,i,ilev) = rand_num_mt
+                  enddo
+               enddo
+             enddo
+         endif
+
+         do ilev = 2,nlay
+            do i = 1, ncol
+               do isubcol = 1, nsubcol
+                  if (CDF(isubcol, i, ilev-1) > 1._rb - cldf(i,ilev-1) ) then
+                     CDF(isubcol,i,ilev) = CDF(isubcol,i,ilev-1) 
+                  else
+                     CDF(isubcol,i,ilev) = CDF(isubcol,i,ilev) * (1._rb - cldf(i,ilev-1)) 
+                  endif
+               enddo
+            enddo
+         enddo
+       
+      case(3) 
+! Maximum overlap
+! i) pick the same random numebr at every level  
+
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               call kissvec(seed1, seed2, seed3, seed4, rand_num)
+               do ilev = 1,nlay
+                  CDF(isubcol,:,ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               do i = 1, ncol
+                  rand_num_mt = getRandomReal(randomNumbers)
+                  do ilev = 1, nlay
+                     CDF(isubcol,i,ilev) = rand_num_mt
+                  enddo
+               enddo
+             enddo
+         endif
+
+     case(4)
+       ! Exponential overlap: transition from maximum to random cloud overlap increases 
+       ! exponentially with layer thickness and distance through layers
+       !
+       ! generate 2 streams of random numbers
+       ! CDF2 is used to select which sub-columns are vertically correlated relative to alpha
+       ! CDF  is used to select which sub-columns are treated as cloudy relative to cloud fraction
+       if (irng.eq.0) then 
+          do isubcol = 1,nsubcol
+             do i = 1, ncol
+                do ilev = 1,nlayers
+                   call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                   CDF(isubcol,i,ilev) = rand_num
+                   call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                   CDF2(isubcol,i,ilev) = rand_num
+                end do
+             end do
+          end do
+       elseif (irng.eq.1) then
+          do isubcol = 1, nsubcol
+             do i = 1, ncol
+                do ilev = 1,nlayers
+                   rand_num_mt = getRandomReal(randomNumbers)
+                   CDF(isubcol,i,ilev) = rand_num_mt
+                   rand_num_mt = getRandomReal(randomNumbers)
+                   CDF2(isubcol,i,ilev) = rand_num_mt
+                enddo
+             enddo
+          enddo
+       endif
+
+       ! generate vertical correlations in random number arrays: bottom to top
+       do ilev = 2,nlayers
+          where (CDF2(:,:,ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) )
+             CDF(:,:,ilev) = CDF(:,:,ilev-1) 
+          end where
+       end do
+
+     case(5)
+       ! Exponential-Random overlap: transition from maximum to random cloud overlap increases 
+       ! exponentially with layer thickness and with distance through adjacent cloudy layers. 
+       ! Non-adjacent blocks of clouds are treated randomly, and each block begins a new 
+       ! exponential transition from maximum to random. 
+       !
+       ! generate 2 streams of random numbers
+       ! CDF2 is used to select which sub-columns are vertically correlated relative to alpha
+       ! CDF  is used to select which sub-columns are treated as cloudy relative to cloud fraction
+       if (irng.eq.0) then 
+          do isubcol = 1,nsubcol
+             do i = 1, ncol
+                do ilev = 1,nlayers
+                   call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                   CDF(isubcol,i,ilev) = rand_num
+                   call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                   CDF2(isubcol,i,ilev) = rand_num
+                end do
+             end do
+          end do
+       elseif (irng.eq.1) then
+          do isubcol = 1, nsubcol
+             do i = 1, ncol
+                do ilev = 1,nlayers
+                   rand_num_mt = getRandomReal(randomNumbers)
+                   CDF(isubcol,i,ilev) = rand_num_mt
+                   rand_num_mt = getRandomReal(randomNumbers)
+                   CDF2(isubcol,i,ilev) = rand_num_mt
+                enddo
+             enddo
+          enddo
+       endif
+
+       ! generate vertical correlations in random number arrays - bottom to top
+       do ilev = 2,nlayers
+          where (CDF2(:,:,ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) )
+             CDF(:,:,ilev) = CDF(:,:,ilev-1) 
+          end where
+       end do
+
+      end select
+
+ 
+! -- generate subcolumns for homogeneous clouds -----
+      do ilev = 1,nlay
+         iscloudy(:,:,ilev) = (CDF(:,:,ilev) >= 1._rb - spread(cldf(:,ilev), dim=1, nCopies=nsubcol) )
+      enddo
+
+! where the subcolumn is cloudy, the subcolumn cloud fraction is 1;
+! where the subcolumn is not cloudy, the subcolumn cloud fraction is 0;
+! where there is a cloud, define the subcolumn cloud properties, 
+! otherwise set these to zero
+
+      do ilev = 1,nlay
+         do i = 1, ncol
+            do isubcol = 1, nsubcol
+               if (iscloudy(isubcol,i,ilev) ) then
+                  cld_stoch(isubcol,i,ilev) = 1._rb
+                  clwp_stoch(isubcol,i,ilev) = clwp(i,ilev)
+                  ciwp_stoch(isubcol,i,ilev) = ciwp(i,ilev)
+                  n = ngb(isubcol)
+                  tauc_stoch(isubcol,i,ilev) = tauc(n,i,ilev)
+!                  ssac_stoch(isubcol,i,ilev) = ssac(n,i,ilev)
+!                  asmc_stoch(isubcol,i,ilev) = asmc(n,i,ilev)
+               else
+                  cld_stoch(isubcol,i,ilev) = 0._rb
+                  clwp_stoch(isubcol,i,ilev) = 0._rb
+                  ciwp_stoch(isubcol,i,ilev) = 0._rb
+                  tauc_stoch(isubcol,i,ilev) = 0._rb
+!                  ssac_stoch(isubcol,i,ilev) = 1._rb
+!                  asmc_stoch(isubcol,i,ilev) = 1._rb
+               endif
+            enddo
+         enddo
+      enddo
+
+! -- compute the means of the subcolumns ---
+!      mean_cld_stoch(:,:) = 0._rb
+!      mean_clwp_stoch(:,:) = 0._rb
+!      mean_ciwp_stoch(:,:) = 0._rb
+!      mean_tauc_stoch(:,:) = 0._rb
+!      mean_ssac_stoch(:,:) = 0._rb
+!      mean_asmc_stoch(:,:) = 0._rb
+!      do i = 1, nsubcol
+!         mean_cld_stoch(:,:) =  cld_stoch(i,:,:) + mean_cld_stoch(:,:) 
+!         mean_clwp_stoch(:,:) =  clwp_stoch( i,:,:) + mean_clwp_stoch(:,:) 
+!         mean_ciwp_stoch(:,:) =  ciwp_stoch( i,:,:) + mean_ciwp_stoch(:,:) 
+!         mean_tauc_stoch(:,:) =  tauc_stoch( i,:,:) + mean_tauc_stoch(:,:) 
+!         mean_ssac_stoch(:,:) =  ssac_stoch( i,:,:) + mean_ssac_stoch(:,:) 
+!         mean_asmc_stoch(:,:) =  asmc_stoch( i,:,:) + mean_asmc_stoch(:,:) 
+!      end do
+!      mean_cld_stoch(:,:) = mean_cld_stoch(:,:) / nsubcol
+!      mean_clwp_stoch(:,:) = mean_clwp_stoch(:,:) / nsubcol
+!      mean_ciwp_stoch(:,:) = mean_ciwp_stoch(:,:) / nsubcol
+!      mean_tauc_stoch(:,:) = mean_tauc_stoch(:,:) / nsubcol
+!      mean_ssac_stoch(:,:) = mean_ssac_stoch(:,:) / nsubcol
+!      mean_asmc_stoch(:,:) = mean_asmc_stoch(:,:) / nsubcol
+
+      end subroutine generate_stochastic_clouds
+
+
+!------------------------------------------------------------------
+! Private subroutines
+!------------------------------------------------------------------
+
+!-------------------------------------------------------------------------------------------------- 
+      subroutine kissvec(seed1,seed2,seed3,seed4,ran_arr)
+!-------------------------------------------------------------------------------------------------- 
+
+! public domain code
+! made available from http://www.fortran.com/
+! downloaded by pjr on 03/16/04 for NCAR CAM
+! converted to vector form, functions inlined by pjr,mvr on 05/10/2004
+
+! The  KISS (Keep It Simple Stupid) random number generator. Combines:
+! (1) The congruential generator x(n)=69069*x(n-1)+1327217885, period 2^32.
+! (2) A 3-shift shift-register generator, period 2^32-1,
+! (3) Two 16-bit multiply-with-carry generators, period 597273182964842497>2^59
+!  Overall period>2^123; 
+!
+      real(kind=rb), dimension(:), intent(inout)  :: ran_arr
+      integer(kind=im), dimension(:), intent(inout) :: seed1,seed2,seed3,seed4
+      integer(kind=im) :: i,sz,kiss
+      integer(kind=im) :: m, k, n
+
+! inline function 
+      m(k, n) = ieor (k, ishft (k, n) )
+
+      sz = size(ran_arr)
+      do i = 1, sz
+         seed1(i) = 69069_im * seed1(i) + 1327217885_im
+         seed2(i) = m (m (m (seed2(i), 13_im), - 17_im), 5_im)
+         seed3(i) = 18000_im * iand (seed3(i), 65535_im) + ishft (seed3(i), - 16_im)
+         seed4(i) = 30903_im * iand (seed4(i), 65535_im) + ishft (seed4(i), - 16_im)
+         kiss = seed1(i) + seed2(i) + ishft (seed3(i), 16_im) + seed4(i)
+         ran_arr(i) = kiss*2.328306e-10_rb + 0.5_rb
+      end do
+    
+      end subroutine kissvec
+
+      end module mcica_subcol_gen_lw
+
diff --git a/radiation/src/mcica_subcol_gen_sw.1col.f90 b/radiation/src/mcica_subcol_gen_sw.1col.f90
new file mode 100644
index 0000000000000000000000000000000000000000..00cc1b1c2c6db227f8b7e0659cd67d21215a2e56
--- /dev/null
+++ b/radiation/src/mcica_subcol_gen_sw.1col.f90
@@ -0,0 +1,722 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+      module mcica_subcol_gen_sw
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! Purpose: Create McICA stochastic arrays for cloud physical or optical properties.   
+! Two options are possible:
+! 1) Input cloud physical properties: cloud fraction, ice and liquid water
+!    paths, ice fraction, and particle sizes.  Output will be stochastic
+!    arrays of these variables.  (inflag = 1)
+! 2) Input cloud optical properties directly: cloud optical depth, single
+!    scattering albedo and asymmetry parameter.  Output will be stochastic
+!    arrays of these variables.  (inflag = 0)
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only : nbndsw, ngptsw
+      use rrsw_con, only: grav
+      use rrsw_wvn, only: ngb
+      use rrsw_vsn
+
+      implicit none
+
+! public interfaces/functions/subroutines
+      public get_alpha, mcica_subcol_sw, generate_stochastic_clouds
+
+      contains
+
+!------------------------------------------------------------------
+! Public subroutines
+!------------------------------------------------------------------
+
+      subroutine get_alpha(iplon, nlayers, icld, idcor, decorr_con, &
+                           dz, lat, juldat, cldfrac, alpha)
+
+! Subroutine alpha calculates the alpha parameter required for the 
+! exponential and exponential-random cloud overlap methods. Calling 
+! this subroutine is therefore only required when icld = 4 or 5.  
+!
+! This subroutine calculates the exponential transition, alpha, from 
+! maximum to random overlap required to define the fractional cloud
+! vertical correlations for the exponential or exponential-random
+! cloud overlap options. For exponential, the transition from maximum
+! to random with distance through model layers occurs without regard
+! to the configuration of clear and cloudy layers. For the exponential-
+! random method, each block of adjacent cloudy layers is treated with a
+! separate transition from maximum to random, and blocks of cloudy 
+! layers separated by one or more clear layers are correlated randomly. 
+
+! Inputs
+      integer(kind=im), intent(in) :: iplon           ! column/longitude dimension
+      integer(kind=im), intent(in) :: nlayers         ! number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+                                                      !  0 = clear
+                                                      !  1 = random
+                                                      !  2 = maximum-random
+                                                      !  3 = maximum
+                                                      !  4 = exponential
+                                                      !  5 = exponential-random
+      integer(kind=im), intent(in) :: idcor           ! decorrelation length method
+                                                      !  0 = constant
+                                                      !  1 = latitude-varying (Oreopolous et al, 2012)
+      integer(kind=im), intent(in) :: juldat          ! Julian day of year
+
+      real(kind=rb), intent(in) :: decorr_con         ! decorrelation length, constant (m) 
+
+      real(kind=rb), intent(in) :: dz(:)              ! layer thickness (m) 
+                                                      ! Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: lat                ! latitude (degrees)
+
+      real(kind=rb), intent(in) :: cldfrac(:)         ! layer cloud fraction
+                                                      ! Dimensions: (nlayers)
+! Outputs
+      real(kind=rb), intent(out) :: alpha(:)          ! vertical cloud fraction correlation parameter
+                                                      ! Dimensions: (nlayers)
+
+! Local
+      integer :: k
+      real(kind=rb) :: decorr_lat                     ! decorrelation length, latitude-varying (m)
+      real(kind=rb) :: decorr_len                     ! final decorrelation length (m)
+      real(kind=rb) :: decorr_inv                     ! 1. / decorr_len
+
+! Constants for latitude and day-of-year depenendent decorrelation length (Oreopolous et al., 2012)
+! when idcor = 1
+      real(kind=rb), parameter :: am1 = 1.4315
+      real(kind=rb), parameter :: am2 = 2.1219
+      real(kind=rb), parameter :: am4 = -25.584
+      real(kind=rb), parameter :: amr = 7.0
+      real(kind=rb) :: am3
+
+      real(kind=rb), parameter :: f_one = 1.0
+
+! If exponential or exponential-random cloud overlap is used, 
+! Derive latitude-varying decorrelation length if requested; 
+! otherwise use the provided constant decorrelation length, decorr_con
+      decorr_inv = f_one
+      if (icld .eq. 4 .or. icld .eq. 5) then
+         if (idcor .eq. 1) then 
+            if (juldat .gt. 181) then
+               am3 = -4._rb * amr / 365._rb * (juldat - 272) 
+            else
+               am3 = 4._rb * amr / 365._rb * (juldat - 91)
+            endif
+! latitude in degrees, decorr_lat in km
+            decorr_lat = am1 + am2 * exp( -(lat - am3)**2 / am4**2)
+            decorr_len = decorr_lat * 1.e3_rb
+         else
+            decorr_len = decorr_con
+         endif
+         if (decorr_len .ge. 0.0_rb) decorr_inv = f_one / decorr_len
+      endif
+
+! Atmosphere data defined from sfc to toa; define alpha from sfc to toa
+! Exponential cloud overlap
+      if (icld .eq. 4) then 
+         alpha(1) = 0.0_rb
+         do k = 2, nlayers
+            alpha(k) = exp( -(0.5_rb * (dz(k) + dz(k-1))) * decorr_inv)
+         enddo
+      endif
+! Exponential-random cloud overlap
+      if (icld .eq. 5) then 
+         alpha(1) = 0.0_rb
+         do k = 2, nlayers
+            alpha(k) = exp( -(0.5_rb * (dz(k) + dz(k-1))) * decorr_inv)
+      ! Decorrelate layers when a clear layer follows a cloudy layer to enforce
+      ! random correlation between non-adjacent blocks of cloudy layers
+            if (cldfrac(k) .eq. 0.0_rb .and. cldfrac(k-1) .gt. 0.0_rb) then
+               alpha(k) = 0.0_rb
+            endif
+         enddo
+      endif
+
+      end subroutine get_alpha
+
+!-------------------------------------------------------------------------------------------------
+      subroutine mcica_subcol_sw(iplon, nlayers, icld, ims, irng, play, &
+                       cldfrac, ciwp, clwp, rei, rel, tauc, ssac, asmc, fsfc, &
+                       alpha, &
+                       cldfmc, ciwpmc, clwpmc, reicmc, relqmc, taucmc, &
+                       ssacmc, asmcmc, fsfcmc)
+
+! Control
+      integer(kind=im), intent(in) :: iplon           ! column/longitude dimension
+      integer(kind=im), intent(in) :: nlayers         ! number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+      integer(kind=im), intent(in) :: ims             ! mcica statistical loop index; also
+                                                      ! value for changing mcica permute seed
+      integer(kind=im), intent(inout) :: irng         ! flag for random number generator
+                                                      !  0 = kissvec
+                                                      !  1 = Mersenne Twister
+
+! Atmosphere
+      real(kind=rb), intent(in) :: play(:)            ! layer pressures (mb) 
+                                                      ! Dimensions: (nlayers)
+
+! Atmosphere/clouds - cldprop
+      real(kind=rb), intent(in) :: cldfrac(:)         ! layer cloud fraction
+                                                      ! Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tauc(:,:)          ! in-cloud optical depth
+                                                      ! Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: ssac(:,:)          ! in-cloud single scattering albedo (non-delta scaled)
+                                                      ! Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: asmc(:,:)          ! in-cloud asymmetry parameter (non-delta scaled)
+                                                      ! Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: fsfc(:,:)          ! in-cloud forward scattering fraction (non-delta scaled)
+                                                      ! Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: ciwp(:)            ! in-cloud ice water path
+                                                      ! Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: clwp(:)            ! in-cloud liquid water path
+                                                      ! Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: rei(:)             ! cloud ice particle size
+                                                      ! Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: rel(:)             ! cloud liquid particle size
+                                                      ! Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: alpha(:)           ! vertical cloud fraction correlation parameter
+                                                      ! Dimensions: (nlayers)
+
+! Atmosphere/clouds - cldprmc [mcica]
+      real(kind=rb), intent(out) :: cldfmc(:,:)       ! cloud fraction [mcica]
+                                                      ! Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: ciwpmc(:,:)       ! in-cloud ice water path [mcica]
+                                                      ! Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: clwpmc(:,:)       ! in-cloud liquid water path [mcica]
+                                                      ! Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: relqmc(:)         ! liquid particle size (microns)
+                                                      ! Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: reicmc(:)         ! ice partcle size (microns)
+                                                      ! Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: taucmc(:,:)       ! in-cloud optical depth [mcica]
+                                                      ! Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: ssacmc(:,:)       ! in-cloud single scattering albedo [mcica]
+                                                      ! Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: asmcmc(:,:)       ! in-cloud asymmetry parameter [mcica]
+                                                      ! Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: fsfcmc(:,:)       ! in-cloud forward scattering fraction [mcica]
+                                                      ! Dimensions: (ngptsw,nlayers)
+
+! Local
+
+! Stochastic cloud generator variables [mcica]
+      integer(kind=im), parameter :: nsubcsw = ngptsw ! number of sub-columns (g-point intervals)
+      integer(kind=im) :: permuteseed                 ! if the cloud generator is called multiple times, 
+                                                      ! permute the seed between each call.    
+      integer(kind=im) :: ilev                        ! loop index
+
+      real(kind=rb) :: pmid(nlayers)                  ! layer pressures (Pa) 
+!      real(kind=rb) :: pdel(nlayers)                 ! layer pressure thickness (Pa) 
+!      real(kind=rb) :: qi(nlayers)                   ! ice water (specific humidity)
+!      real(kind=rb) :: ql(nlayers)                   ! liq water (specific humidity)
+
+
+! Return if clear sky; or stop if icld out of range
+      if (icld.eq.0) return
+      if (icld.lt.0.or.icld.gt.5) then 
+         stop 'RRTMG_SW: INVALID ICLD'
+      endif 
+
+! Set permute seed for random number generator
+! For single column mode, permuteseed must be different for each (ims) sample performed
+
+      permuteseed = (ims+1)*nsubcsw
+
+! Pass particle sizes to new arrays, no subcolumns for these properties yet
+! Convert pressures from mb to Pa
+
+      reicmc(:nlayers) = rei(:nlayers)
+      relqmc(:nlayers) = rel(:nlayers)
+      pmid(:nlayers) = play(:nlayers)*1.e2_rb
+
+! Convert input ice and liquid cloud water paths to specific humidity ice and liquid components 
+
+!      cwp =  (q * pdel * 1000.) / gravit)
+!           = (kg/kg * kg m-1 s-2 *1000.) / m s-2
+!           = (g m-2)
+!
+!      q  = (cwp * gravit) / (pdel *1000.)
+!         = (g m-2 * m s-2) / (kg m-1 s-2 * 1000.)
+!         =  kg/kg
+
+!      do ilev = 1, nlayers
+!         qi(ilev) = (ciwp(ilev) * grav) / (pdel(ilev) * 1000._rb)
+!         ql(ilev) = (clwp(ilev) * grav) / (pdel(ilev) * 1000._rb)
+!      enddo
+
+!  Generate the stochastic subcolumns and their optical properties for the longwave;
+      call generate_stochastic_clouds (nlayers, icld, irng, pmid, cldfrac, clwp, ciwp, &
+                               alpha, tauc, ssac, asmc, fsfc, &
+                               cldfmc, clwpmc, ciwpmc, &
+                               taucmc, ssacmc, asmcmc, fsfcmc, permuteseed)
+
+      end subroutine mcica_subcol_sw
+
+
+!-------------------------------------------------------------------------------------------------
+      subroutine generate_stochastic_clouds(nlayers, icld, irng, pmid, cld, clwp, ciwp, &
+                               alpha, tauc, ssac, asmc, fsfc, &
+                               cld_stoch, clwp_stoch, ciwp_stoch, &
+                               tauc_stoch, ssac_stoch, asmc_stoch, fsfc_stoch, changeSeed) 
+!-------------------------------------------------------------------------------------------------
+
+  !----------------------------------------------------------------------------------------------------------------
+  ! ---------------------
+  ! Contact: Cecile Hannay (hannay@ucar.edu)
+  ! 
+  ! Modifications: Generalized for use with RRTMG and added Mersenne Twister as the default
+  !   random number generator, which can be changed to the optional kissvec random number generator
+  !   with flag 'irng'. Some extra functionality has been commented or removed.  
+  !   Michael J. Iacono, AER, Inc., February 2007
+  !
+  ! Given a profile of cloud fraction, cloud water and cloud ice, we produce a set of subcolumns.
+  ! Each layer within each subcolumn is homogeneous, with cloud fraction equal to zero or one 
+  ! and uniform cloud liquid and cloud ice concentration.
+  ! The ensemble as a whole reproduces the probability function of cloud liquid and ice within each layer 
+  ! and obeys an overlap assumption in the vertical.   
+  ! 
+  ! Overlap assumption:
+  !  The cloud are consistent with 4 overlap assumptions: random, maximum, maximum-random and exponential. 
+  !  The default option is maximum-random (option 3)
+  !  The options are: 1=random overlap, 2=max/random, 3=maximum overlap, 4=exponential overlap
+  !  This is set with the variable "overlap" 
+  !mji - Exponential overlap option (overlap=4) has been deactivated in this version
+  !  The exponential overlap uses also a length scale, Zo. (real,    parameter  :: Zo = 2500. ) 
+  ! 
+  ! Seed:
+  !  If the stochastic cloud generator is called several times during the same timestep, 
+  !  one should change the seed between the call to insure that the subcolumns are different.
+  !  This is done by changing the argument 'changeSeed'
+  !  For example, if one wants to create a set of columns for the shortwave and another set for the longwave ,
+  !  use 'changeSeed = 1' for the first call and'changeSeed = 2' for the second call 
+  !
+  ! PDF assumption:
+  !  We can use arbitrary complicated PDFS. 
+  !  In the present version, we produce homogeneuous clouds (the simplest case).  
+  !  Future developments include using the PDF scheme of Ben Johnson. 
+  !
+  ! History file:
+  !  Option to add diagnostics variables in the history file. (using FINCL in the namelist)
+  !  nsubcol = number of subcolumns
+  !  overlap = overlap type (1-3)
+  !  Zo = length scale 
+  !  CLOUD_S = mean of the subcolumn cloud fraction ('_S" means Stochastic)
+  !  CLDLIQ_S = mean of the subcolumn cloud water
+  !  CLDICE_S = mean of the subcolumn cloud ice 
+  !
+  ! Note:
+  !   Here: we force that the cloud condensate to be consistent with the cloud fraction 
+  !   i.e we only have cloud condensate when the cell is cloudy. 
+  !   In CAM: The cloud condensate and the cloud fraction are obtained from 2 different equations 
+  !   and the 2 quantities can be inconsistent (i.e. CAM can produce cloud fraction 
+  !   without cloud condensate or the opposite).
+  !---------------------------------------------------------------------------------------------------------------
+
+      use mcica_random_numbers
+! The Mersenne Twister random number engine
+      use MersenneTwister, only: randomNumberSequence, &   
+                                 new_RandomNumberSequence, getRandomReal
+
+      type(randomNumberSequence) :: randomNumbers
+
+! -- Arguments
+
+      integer(kind=im), intent(in) :: nlayers         ! number of layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+      integer(kind=im), intent(inout) :: irng         ! flag for random number generator
+                                                      !  0 = kissvec
+                                                      !  1 = Mersenne Twister
+      integer(kind=im), optional, intent(in) :: changeSeed     ! allows permuting seed
+
+! Column state (cloud fraction, cloud water, cloud ice) + variables needed to read physics state 
+      real(kind=rb), intent(in) :: pmid(:)            ! layer pressure (Pa)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: cld(:)             ! cloud fraction 
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: clwp(:)            ! in-cloud liquid water path (g/m2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: ciwp(:)            ! in-cloud ice water path (g/m2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tauc(:,:)          ! in-cloud optical depth (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: ssac(:,:)          ! in-cloud single scattering albedo (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: asmc(:,:)          ! in-cloud asymmetry parameter (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: fsfc(:,:)          ! in-cloud forward scattering fraction (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: alpha(:)           ! vertical cloud fraction correlation parameter
+                                                      !    Dimensions: (nlayers)
+
+      real(kind=rb), intent(out) :: cld_stoch(:,:)    ! subcolumn cloud fraction 
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: clwp_stoch(:,:)   ! subcolumn in-cloud liquid water path
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: ciwp_stoch(:,:)   ! subcolumn in-cloud ice water path
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: tauc_stoch(:,:)   ! subcolumn in-cloud optical depth
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: ssac_stoch(:,:)   ! subcolumn in-cloud single scattering albedo
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: asmc_stoch(:,:)   ! subcolumn in-cloud asymmetry parameter
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: fsfc_stoch(:,:)   ! subcolumn in-cloud forward scattering fraction
+                                                      !    Dimensions: (ngptsw,nlayers)
+
+! -- Local variables
+      integer(kind=im), parameter :: nsubcol = ngptsw ! number of sub-columns (g-point intervals)
+      real(kind=rb) :: cldf(nlayers)                  ! cloud fraction 
+    
+! Mean over the subcolumns (cloud fraction, cloud water , cloud ice) - inactive
+!      real(kind=rb) :: mean_cld_stoch(nlayers)       ! cloud fraction 
+!      real(kind=rb) :: mean_clwp_stoch(nlayers)      ! cloud water
+!      real(kind=rb) :: mean_ciwp_stoch(nlayers)      ! cloud ice
+!      real(kind=rb) :: mean_tauc_stoch(nlayers)      ! cloud optical depth
+!      real(kind=rb) :: mean_ssac_stoch(nlayers)      ! cloud single scattering albedo
+!      real(kind=rb) :: mean_asmc_stoch(nlayers)      ! cloud asymmetry parameter
+!      real(kind=rb) :: mean_fsfc_stoch(nlayers)      ! cloud forward scattering fraction
+
+! Set overlap
+      integer(kind=im) :: overlap                     ! 1 = random overlap, 2 = maximum_random,
+                                                      ! 3 = maximum overlap, 4 = exponential overlap
+                                                      ! 5 = exponential_random overlap
+
+! Constants (min value for cloud fraction and cloud water and ice)
+      real(kind=rb), parameter :: cldmin = 1.0e-20_rb ! min cloud fraction
+!      real(kind=rb), parameter :: qmin   = 1.0e-10_rb   ! min cloud water and cloud ice (not used)
+
+! Variables related to random number and seed 
+      real(kind=rb), dimension(nsubcol, nlayers) :: CDF, CDF2 ! random numbers
+      integer(kind=im) :: seed1, seed2, seed3, seed4          ! seed to create random number (kissvec)
+      real(kind=rb) :: rand_num                       ! random number (kissvec)
+      integer(kind=im) :: iseed                       ! seed to create random number (Mersenne Twister)
+      real(kind=rb) :: rand_num_mt                    ! random number (Mersenne Twister)
+
+! Flag to identify cloud fraction in subcolumns
+      logical,  dimension(nsubcol, nlayers) :: iscloudy ! flag that says whether a gridbox is cloudy
+
+! Indices
+      integer(kind=im) :: ilev, isubcol, i, n, ngbm   ! indices
+
+!------------------------------------------------------------------------------------------ 
+
+! Check that irng is in bounds; if not, set to default
+      if (irng .ne. 0) irng = 1
+
+! Pass input cloud overlap setting to local variable
+      overlap = icld
+
+! Ensure that cloud fractions are in bounds 
+      do ilev = 1, nlayers
+         cldf(ilev) = cld(ilev)
+         if (cldf(ilev) < cldmin) then
+            cldf(ilev) = 0._rb
+         endif
+      enddo
+
+! ----- Create seed  --------
+   
+! Advance randum number generator by changeseed values
+      if (irng.eq.0) then   
+! For kissvec, create a seed that depends on the state of the columns. Maybe not the best way, but it works.  
+! Must use pmid from bottom four layers. 
+         if (pmid(1).lt.pmid(2)) then
+            stop 'MCICA_SUBCOL: KISSVEC SEED GENERATOR REQUIRES PMID FROM BOTTOM FOUR LAYERS.'
+         endif
+         seed1 = (pmid(1) - int(pmid(1)))  * 1000000000_im
+         seed2 = (pmid(2) - int(pmid(2)))  * 1000000000_im
+         seed3 = (pmid(3) - int(pmid(3)))  * 1000000000_im
+         seed4 = (pmid(4) - int(pmid(4)))  * 1000000000_im
+         do i=1,changeSeed
+            call kissvec(seed1, seed2, seed3, seed4, rand_num)
+         enddo
+      elseif (irng.eq.1) then
+         randomNumbers = new_RandomNumberSequence(seed = changeSeed)
+      endif 
+
+
+! ------ Apply overlap assumption --------
+
+! generate the random numbers  
+
+      select case (overlap)
+
+      case(1) 
+! Random overlap
+! i) pick a random value at every level
+  
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               do ilev = 1,nlayers
+                  call kissvec(seed1, seed2, seed3, seed4, rand_num)  ! we get different random number for each level
+                  CDF(isubcol, ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               do ilev = 1, nlayers
+                  rand_num_mt = getRandomReal(randomNumbers)
+                  CDF(isubcol,ilev) = rand_num_mt
+               enddo
+             enddo
+         endif
+
+      case(2) 
+! Maximum_Random overlap
+! i) pick  a random number for top layer.
+! ii) walk down the column: 
+!    - if the layer above is cloudy, we use the same random number than in the layer above
+!    - if the layer above is clear, we use a new random number 
+
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               do ilev = 1,nlayers
+                  call kissvec(seed1, seed2, seed3, seed4, rand_num) 
+                  CDF(isubcol, ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               do ilev = 1, nlayers
+                  rand_num_mt = getRandomReal(randomNumbers)
+                  CDF(isubcol,ilev) = rand_num_mt
+               enddo
+             enddo
+         endif
+
+         do ilev = 2,nlayers
+            do isubcol = 1, nsubcol
+               if (CDF(isubcol, ilev-1) > 1._rb - cldf(ilev-1) ) then
+                  CDF(isubcol,ilev) = CDF(isubcol,ilev-1) 
+               else
+                  CDF(isubcol,ilev) = CDF(isubcol,ilev) * (1._rb - cldf(ilev-1)) 
+               endif
+            enddo
+         enddo
+
+    case(3) 
+! Maximum overlap
+! i) pick the same random number at every level  
+
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               call kissvec(seed1, seed2, seed3, seed4, rand_num) 
+               do ilev = 1,nlayers
+                  CDF(isubcol, ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+                  rand_num_mt = getRandomReal(randomNumbers)
+               do ilev = 1, nlayers
+                  CDF(isubcol,ilev) = rand_num_mt
+               enddo
+             enddo
+         endif
+
+     case(4)
+       ! Exponential overlap: transition from maximum to random cloud overlap increases 
+       ! exponentially with layer thickness and distance through layers
+       !
+       ! generate 2 streams of random numbers
+       ! CDF2 is used to select which sub-columns are vertically correlated relative to alpha
+       ! CDF  is used to select which sub-columns are treated as cloudy relative to cloud fraction
+       if (irng.eq.0) then 
+          do isubcol = 1,nsubcol
+             do ilev = 1,nlayers
+                call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                CDF(isubcol, ilev) = rand_num
+                call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                CDF2(isubcol, ilev) = rand_num
+             end do
+          end do
+       elseif (irng.eq.1) then
+          do isubcol = 1, nsubcol
+             do ilev = 1,nlayers
+                rand_num_mt = getRandomReal(randomNumbers)
+                CDF(isubcol,ilev) = rand_num_mt
+                rand_num_mt = getRandomReal(randomNumbers)
+                CDF2(isubcol,ilev) = rand_num_mt
+             enddo
+          enddo
+       endif
+
+       ! generate vertical correlations in random number arrays: bottom to top
+       do ilev = 2,nlayers
+          where (CDF2(:, ilev) < spread(alpha (ilev), dim=1, nCopies=nsubcol) )
+             CDF(:,ilev) = CDF(:,ilev-1) 
+          end where
+       end do
+
+     case(5)
+       ! Exponential_Random overlap: transition from maximum to random cloud overlap increases 
+       ! exponentially with layer thickness and with distance through adjacent cloudy layers. 
+       ! Non-adjacent blocks of clouds are treated randomly, and each block begins a new 
+       ! exponential transition from maximum to random. 
+       !
+       ! generate 2 streams of random numbers
+       ! CDF2 is used to select which sub-columns are vertically correlated relative to alpha
+       ! CDF  is used to select which sub-columns are treated as cloudy relative to cloud fraction
+       if (irng.eq.0) then 
+          do isubcol = 1,nsubcol
+             do ilev = 1,nlayers
+                call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                CDF(isubcol, ilev) = rand_num
+                call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                CDF2(isubcol, ilev) = rand_num
+             end do
+          end do
+       elseif (irng.eq.1) then
+          do isubcol = 1, nsubcol
+             do ilev = 1,nlayers
+                rand_num_mt = getRandomReal(randomNumbers)
+                CDF(isubcol,ilev) = rand_num_mt
+                rand_num_mt = getRandomReal(randomNumbers)
+                CDF2(isubcol,ilev) = rand_num_mt
+             enddo
+          enddo
+       endif
+
+       ! generate vertical correlations in random number arrays - bottom to top
+       do ilev = 2,nlayers
+          where (CDF2(:, ilev) < spread(alpha (ilev), dim=1, nCopies=nsubcol) )
+             CDF(:,ilev) = CDF(:,ilev-1) 
+          end where
+       end do
+
+      end select
+
+! -- generate subcolumns for homogeneous clouds -----
+
+      do ilev = 1, nlayers
+         iscloudy(:,ilev) = (CDF(:,ilev) >= 1._rb - spread(cldf(ilev), dim=1, nCopies=nsubcol) )
+      enddo
+
+! where the subcolumn is cloudy, the subcolumn cloud fraction is 1;
+! where the subcolumn is not cloudy, the subcolumn cloud fraction is 0;
+! where there is a cloud, define the subcolumn cloud properties,
+! otherwise set these to zero
+
+      ngbm = ngb(1) - 1
+      do ilev = 1, nlayers
+         do isubcol = 1, nsubcol
+            if ( iscloudy(isubcol,ilev) ) then
+               cld_stoch(isubcol,ilev) = 1._rb
+               clwp_stoch(isubcol,ilev) = clwp(ilev)
+               ciwp_stoch(isubcol,ilev) = ciwp(ilev)
+               n = ngb(isubcol) - ngbm 
+               tauc_stoch(isubcol,ilev) = tauc(n,ilev)
+               ssac_stoch(isubcol,ilev) = ssac(n,ilev)
+               asmc_stoch(isubcol,ilev) = asmc(n,ilev)
+               fsfc_stoch(isubcol,ilev) = fsfc(n,ilev)
+            else
+               cld_stoch(isubcol,ilev) = 0._rb
+               clwp_stoch(isubcol,ilev) = 0._rb
+               ciwp_stoch(isubcol,ilev) = 0._rb
+               tauc_stoch(isubcol,ilev) = 0._rb
+               ssac_stoch(isubcol,ilev) = 1._rb
+               asmc_stoch(isubcol,ilev) = 0._rb
+               fsfc_stoch(isubcol,ilev) = 0._rb
+            endif
+         enddo
+      enddo
+
+! -- compute the means of the subcolumns ---
+!      mean_cld_stoch(:) = 0._rb
+!      mean_clwp_stoch(:) = 0._rb
+!      mean_ciwp_stoch(:) = 0._rb
+!      mean_tauc_stoch(:) = 0._rb
+!      mean_ssac_stoch(:) = 0._rb
+!      mean_asmc_stoch(:) = 0._rb
+!      mean_fsfc_stoch(:) = 0._rb
+!      do i = 1, nsubcol
+!         mean_cld_stoch(:) =  cld_stoch(i,:) + mean_cld_stoch(:) 
+!         mean_clwp_stoch( :) =  clwp_stoch( i,:) + mean_clwp_stoch( :) 
+!         mean_ciwp_stoch( :) =  ciwp_stoch( i,:) + mean_ciwp_stoch( :) 
+!         mean_tauc_stoch( :) =  tauc_stoch( i,:) + mean_tauc_stoch( :) 
+!         mean_ssac_stoch( :) =  ssac_stoch( i,:) + mean_ssac_stoch( :) 
+!         mean_asmc_stoch( :) =  asmc_stoch( i,:) + mean_asmc_stoch( :) 
+!         mean_fsfc_stoch( :) =  fsfc_stoch( i,:) + mean_fsfc_stoch( :) 
+!      end do
+!      mean_cld_stoch(:) = mean_cld_stoch(:) / nsubcol
+!      mean_clwp_stoch( :) = mean_clwp_stoch( :) / nsubcol
+!      mean_ciwp_stoch( :) = mean_ciwp_stoch( :) / nsubcol
+!      mean_tauc_stoch( :) = mean_tauc_stoch( :) / nsubcol
+!      mean_ssac_stoch( :) = mean_ssac_stoch( :) / nsubcol
+!      mean_asmc_stoch( :) = mean_asmc_stoch( :) / nsubcol
+!      mean_fsfc_stoch( :) = mean_fsfc_stoch( :) / nsubcol
+
+      end subroutine generate_stochastic_clouds
+
+
+!-------------------------------------------------------------------------------------------------- 
+      subroutine kissvec(seed1,seed2,seed3,seed4,ran_arr)
+!-------------------------------------------------------------------------------------------------- 
+
+! public domain code
+! made available from http://www.fortran.com/
+! downloaded by pjr on 03/16/04
+! converted to vector form, functions inlined by pjr,mvr on 05/10/2004
+
+! The  KISS (Keep It Simple Stupid) random number generator. Combines:
+! (1) The congruential generator x(n)=69069*x(n-1)+1327217885, period 2^32.
+! (2) A 3-shift shift-register generator, period 2^32-1,
+! (3) Two 16-bit multiply-with-carry generators, period 597273182964842497>2^59
+!  Overall period>2^123; 
+!
+      real(kind=rb), intent(inout)  :: ran_arr
+      integer(kind=im), intent(inout) :: seed1,seed2,seed3,seed4
+!      integer(kind=im) :: i,sz,kiss
+      integer(kind=im) :: kiss
+      integer(kind=im) :: m, k, n
+
+! inline function 
+      m(k, n) = ieor (k, ishft (k, n) )
+
+!      sz = size(ran_arr)
+!      do i = 1, sz
+         seed1 = 69069_im * seed1 + 1327217885_im
+         seed2 = m (m (m (seed2, 13_im), - 17_im), 5_im)
+         seed3 = 18000_im * iand (seed3, 65535_im) + ishft (seed3, - 16_im)
+         seed4 = 30903_im * iand (seed4, 65535_im) + ishft (seed4, - 16_im)
+         kiss = seed1 + seed2 + ishft (seed3, 16_im) + seed4
+         ran_arr = kiss*2.328306e-10_rb + 0.5_rb
+!     end do
+    
+      end subroutine kissvec
+
+      end module mcica_subcol_gen_sw
+
+
diff --git a/radiation/src/mcica_subcol_gen_sw.f90 b/radiation/src/mcica_subcol_gen_sw.f90
new file mode 100644
index 0000000000000000000000000000000000000000..1a63df6d916df67fb4694bd0cc3d9056804c317c
--- /dev/null
+++ b/radiation/src/mcica_subcol_gen_sw.f90
@@ -0,0 +1,757 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+      module mcica_subcol_gen_sw
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! Purpose: Create McICA stochastic arrays for cloud physical or optical properties.   
+! Two options are possible:
+! 1) Input cloud physical properties: cloud fraction, ice and liquid water
+!    paths, ice fraction, and particle sizes.  Output will be stochastic
+!    arrays of these variables.  (inflag = 1)
+! 2) Input cloud optical properties directly: cloud optical depth, single
+!    scattering albedo and asymmetry parameter.  Output will be stochastic
+!    arrays of these variables.  (inflag = 0)
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only : nbndsw, ngptsw
+      use rrsw_con, only: grav
+      use rrsw_wvn, only: ngb
+      use rrsw_vsn
+
+      implicit none
+
+! public interfaces/functions/subroutines
+      public :: get_alpha, mcica_subcol_sw, generate_stochastic_clouds_sw
+
+      contains
+
+!------------------------------------------------------------------
+! Public subroutines
+!------------------------------------------------------------------
+
+      subroutine get_alpha(iplon, ncol, nlayers, icld, idcor, decorr_con, &
+                           dz, lat, juldat, cldfrac, alpha)
+
+! Subroutine alpha calculates the alpha parameter required for the 
+! exponential and exponential-random cloud overlap methods. Calling 
+! this subroutine is therefore only required when icld = 4 or 5.  
+!
+! This subroutine calculates the exponential transition, alpha, from 
+! maximum to random overlap required to define the fractional cloud
+! vertical correlations for the exponential or exponential-random
+! cloud overlap options. For exponential, the transition from maximum
+! to random with distance through model layers occurs without regard
+! to the configuration of clear and cloudy layers. For the exponential-
+! random method, each block of adjacent cloudy layers is treated with a
+! separate transition from maximum to random, and blocks of cloudy 
+! layers separated by one or more clear layers are correlated randomly. 
+
+! Inputs
+      integer(kind=im), intent(in) :: iplon           ! column/longitude dimension
+      integer(kind=im), intent(in) :: ncol            ! number of columns
+      integer(kind=im), intent(in) :: nlayers         ! number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+                                                      !  0 = clear
+                                                      !  1 = random
+                                                      !  2 = maximum-random
+                                                      !  3 = maximum
+                                                      !  4 = exponential
+                                                      !  5 = exponential-random
+      integer(kind=im), intent(in) :: idcor           ! decorrelation length method
+                                                      !  0 = constant
+                                                      !  1 = latitude-varying (Oreopolous et al, 2012)
+      integer(kind=im), intent(in) :: juldat          ! Julian day of year
+
+      real(kind=rb), intent(in) :: decorr_con         ! decorrelation length, constant (m) 
+
+      real(kind=rb), intent(in) :: dz(:,:)            ! layer thickness (m) 
+                                                      ! Dimensions: (ncol,nlayers)
+      real(kind=rb), intent(in) :: lat(:)             ! latitude (degrees)
+                                                      ! Dimensions: (ncol)
+      real(kind=rb), intent(in) :: cldfrac(:,:)       ! layer cloud fraction
+                                                      ! Dimensions: (ncol,nlayers)
+! Outputs
+      real(kind=rb), intent(out) :: alpha(:,:)        ! vertical cloud fraction correlation parameter
+                                                      ! Dimensions: (ncol,nlayers)
+
+! Local
+      integer :: i,k
+      real(kind=rb) :: decorr_lat                     ! decorrelation length, latitude-varying (m)
+      real(kind=rb) :: decorr_len(ncol)               ! final decorrelation length (m)
+      real(kind=rb) :: decorr_inv(ncol)               ! 1. / decorr_len
+
+! Constants for latitude and day-of-year depenendent decorrelation length (Oreopolous et al., 2012)
+! when idcor = 1
+      real(kind=rb), parameter :: am1 = 1.4315
+      real(kind=rb), parameter :: am2 = 2.1219
+      real(kind=rb), parameter :: am4 = -25.584
+      real(kind=rb), parameter :: amr = 7.0
+      real(kind=rb) :: am3
+
+      real(kind=rb), parameter :: f_one = 1.0
+
+! If exponential or exponential-random cloud overlap is used, 
+! Derive latitude-varying decorrelation length if requested; 
+! otherwise use the provided constant decorrelation length, decorr_con
+      decorr_inv(:ncol) = f_one
+      if (icld .eq. 4 .or. icld .eq. 5) then
+         if (idcor .eq. 1) then 
+            if (juldat .gt. 181) then
+               am3 = -4._rb * amr / 365._rb * (juldat - 272) 
+            else
+               am3 = 4._rb * amr / 365._rb * (juldat - 91)
+            endif
+! latitude in degrees, decorr_lat in km
+            do i = 1, ncol
+               decorr_lat = am1 + am2 * exp( -(lat(i) - am3)**2 / am4**2)
+               decorr_len(i) = decorr_lat * 1.e3_rb
+            enddo
+         else
+            decorr_len(:ncol) = decorr_con
+         endif
+         do i = 1, ncol
+            if (decorr_len(i) .ge. 0.0_rb)
+               decorr_inv(i) = f_one / decorr_len(i)
+            endif
+         enddo
+      endif
+
+! Atmosphere data defined from sfc to toa; define alpha from sfc to toa
+! Exponential cloud overlap
+      if (icld .eq. 4) then 
+         alpha(:ncol,1) = 0.0_rb
+         do i = 1, ncol
+            do k = 2, nlayers
+               alpha(i,k) = exp( -(0.5_rb * (dz(i,k) + dz(i,k-1))) * decorr_inv(i))
+            enddo
+         enddo
+      endif
+! Exponential-random cloud overlap
+      if (icld .eq. 5) then 
+         alpha(:ncol,1) = 0.0_rb
+         do i = 1, ncol
+            do k = 2, nlayers
+               alpha(i,k) = exp( -(0.5_rb * (dz(i,k) + dz(i,k-1))) * decorr_inv(i))
+      ! Decorrelate layers when a clear layer follows a cloudy layer to enforce
+      ! random correlation between non-adjacent blocks of cloudy layers
+               if (cldfrac(i,k) .eq. 0.0_rb .and. cldfrac(i,k-1) .gt. 0.0_rb) then
+                  alpha(i,k) = 0.0_rb
+               endif
+            enddo
+         enddo
+      endif
+
+      end subroutine get_alpha
+
+!-------------------------------------------------------------------------------------------------
+      subroutine mcica_subcol_sw(iplon, ncol, nlay, icld, permuteseed, irng, play, &
+                       cldfrac, ciwp, clwp, rei, rel, tauc, ssac, asmc, fsfc, &
+                       alpha, &
+                       cldfmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, &
+                       taucmcl, ssacmcl, asmcmcl, fsfcmcl)
+
+! ----- Input -----
+! Control
+      integer(kind=im), intent(in) :: iplon           ! column/longitude dimension
+      integer(kind=im), intent(in) :: ncol            ! number of columns
+      integer(kind=im), intent(in) :: nlay            ! number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+      integer(kind=im), intent(in) :: permuteseed     ! if the cloud generator is called multiple times,
+                                                      ! permute the seed between each call;
+                                                      ! between calls for LW and SW, recommended
+                                                      ! permuteseed differs by 'ngpt'
+      integer(kind=im), intent(inout) :: irng         ! flag for random number generator
+                                                      !  0 = kissvec
+                                                      !  1 = Mersenne Twister
+        
+! Atmosphere
+      real(kind=rb), intent(in) :: play(:,:)          ! layer pressures (mb) 
+                                                      !    Dimensions: (ncol,nlay)
+
+! Atmosphere/clouds - cldprop
+      real(kind=rb), intent(in) :: cldfrac(:,:)       ! layer cloud fraction
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tauc(:,:,:)        ! in-cloud optical depth
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: ssac(:,:,:)        ! in-cloud single scattering albedo (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: asmc(:,:,:)        ! in-cloud asymmetry parameter (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: fsfc(:,:,:)        ! in-cloud forward scattering fraction (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: ciwp(:,:)          ! in-cloud ice water path
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: clwp(:,:)          ! in-cloud liquid water path
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: rei(:,:)           ! cloud ice particle size
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: rel(:,:)           ! cloud liquid particle size
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: alpha(:,:)         ! cloud fraction decorrelation length (m)
+                                                      ! Dimensions: (ncol,nlay)
+
+! ----- Output -----
+! Atmosphere/clouds - cldprmc [mcica]
+      real(kind=rb), intent(out) :: cldfmcl(:,:,:)    ! cloud fraction [mcica]
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: ciwpmcl(:,:,:)    ! in-cloud ice water path [mcica]
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: clwpmcl(:,:,:)    ! in-cloud liquid water path [mcica]
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: relqmcl(:,:)      ! liquid particle size (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(out) :: reicmcl(:,:)      ! ice partcle size (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(out) :: taucmcl(:,:,:)    ! in-cloud optical depth [mcica]
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: ssacmcl(:,:,:)    ! in-cloud single scattering albedo [mcica]
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: asmcmcl(:,:,:)    ! in-cloud asymmetry parameter [mcica]
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: fsfcmcl(:,:,:)    ! in-cloud forward scattering fraction [mcica]
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+
+! ----- Local -----
+
+! Stochastic cloud generator variables [mcica]
+      integer(kind=im), parameter :: nsubcsw = ngptsw ! number of sub-columns (g-point intervals)
+      integer(kind=im) :: ilev                        ! loop index
+
+      real(kind=rb) :: pmid(ncol,nlay)                ! layer pressures (Pa) 
+!      real(kind=rb) :: pdel(ncol,nlay)               ! layer pressure thickness (Pa) 
+!      real(kind=rb) :: qi(ncol,nlay)                 ! ice water (specific humidity)
+!      real(kind=rb) :: ql(ncol,nlay)                 ! liq water (specific humidity)
+
+
+! Return if clear sky; or stop if icld out of range
+      if (icld.eq.0) return
+      if (icld.lt.0.or.icld.gt.5) then 
+         stop 'MCICA_SUBCOL: INVALID ICLD'
+      endif 
+
+! NOTE: For GCM mode, permuteseed must be offset between LW and SW by at least number of subcolumns
+
+
+! Pass particle sizes to new arrays, no subcolumns for these properties yet
+! Convert pressures from mb to Pa
+
+      reicmcl(:ncol,:nlay) = rei(:ncol,:nlay)
+      relqmcl(:ncol,:nlay) = rel(:ncol,:nlay)
+      pmid(:ncol,:nlay) = play(:ncol,:nlay)*1.e2_rb
+
+! Convert input ice and liquid cloud water paths to specific humidity ice and liquid components 
+
+!      cwp =  (q * pdel * 1000.) / gravit)
+!           = (kg/kg * kg m-1 s-2 *1000.) / m s-2
+!           = (g m-2)
+!
+!      q  = (cwp * gravit) / (pdel *1000.)
+!         = (g m-2 * m s-2) / (kg m-1 s-2 * 1000.)
+!         =  kg/kg
+
+!      do ilev = 1, nlay
+!         qi(ilev) = (ciwp(ilev) * grav) / (pdel(ilev) * 1000._rb)
+!         ql(ilev) = (clwp(ilev) * grav) / (pdel(ilev) * 1000._rb)
+!      enddo
+
+!  Generate the stochastic subcolumns of cloud optical properties for the shortwave;
+      call generate_stochastic_clouds_sw (ncol, nlay, nsubcsw, icld, irng, pmid, cldfrac, clwp, ciwp, &
+                               alpha, tauc, ssac, asmc, fsfc, cldfmcl, clwpmcl, ciwpmcl, &
+                               taucmcl, ssacmcl, asmcmcl, fsfcmcl, permuteseed)
+
+      end subroutine mcica_subcol_sw
+
+
+!-------------------------------------------------------------------------------------------------
+      subroutine generate_stochastic_clouds_sw(ncol, nlay, nsubcol, icld, irng, pmid, cld, clwp, ciwp, &
+                               alpha, tauc, ssac, asmc, fsfc, cld_stoch, clwp_stoch, ciwp_stoch, &
+                               tauc_stoch, ssac_stoch, asmc_stoch, fsfc_stoch, changeSeed) 
+!-------------------------------------------------------------------------------------------------
+
+  !----------------------------------------------------------------------------------------------------------------
+  ! ---------------------
+  ! Contact: Cecile Hannay (hannay@ucar.edu)
+  ! 
+  ! Original code: Based on Raisanen et al., QJRMS, 2004.
+  !
+  ! Modifications: Generalized for use with RRTMG and added Mersenne Twister as the default
+  !   random number generator, which can be changed to the optional kissvec random number generator
+  !   with flag 'irng'. Some extra functionality has been commented or removed.  
+  !   Michael J. Iacono, AER, Inc., February 2007
+  !
+  ! Given a profile of cloud fraction, cloud water and cloud ice, we produce a set of subcolumns.
+  ! Each layer within each subcolumn is homogeneous, with cloud fraction equal to zero or one 
+  ! and uniform cloud liquid and cloud ice concentration.
+  ! The ensemble as a whole reproduces the probability function of cloud liquid and ice within each layer 
+  ! and obeys an overlap assumption in the vertical.   
+  ! 
+  ! Overlap assumption:
+  !  The cloud are consistent with 4 overlap assumptions: random, maximum, maximum-random and exponential. 
+  !  The default option is maximum-random (option 3)
+  !  The options are: 1=random overlap, 2=max/random, 3=maximum overlap, 4=exponential overlap
+  !  This is set with the variable "overlap" 
+  !mji - Exponential overlap option (overlap=4) has been deactivated in this version
+  !  The exponential overlap uses also a length scale, Zo. (real,    parameter  :: Zo = 2500. ) 
+  ! 
+  ! Seed:
+  !  If the stochastic cloud generator is called several times during the same timestep, 
+  !  one should change the seed between the call to insure that the subcolumns are different.
+  !  This is done by changing the argument 'changeSeed'
+  !  For example, if one wants to create a set of columns for the shortwave and another set for the longwave ,
+  !  use 'changeSeed = 1' for the first call and'changeSeed = 2' for the second call 
+  !
+  ! PDF assumption:
+  !  We can use arbitrary complicated PDFS. 
+  !  In the present version, we produce homogeneuous clouds (the simplest case).  
+  !  Future developments include using the PDF scheme of Ben Johnson. 
+  !
+  ! History file:
+  !  Option to add diagnostics variables in the history file. (using FINCL in the namelist)
+  !  nsubcol = number of subcolumns
+  !  overlap = overlap type (1-3)
+  !  Zo = length scale 
+  !  CLOUD_S = mean of the subcolumn cloud fraction ('_S" means Stochastic)
+  !  CLDLIQ_S = mean of the subcolumn cloud water
+  !  CLDICE_S = mean of the subcolumn cloud ice 
+  !
+  ! Note:
+  !   Here: we force that the cloud condensate to be consistent with the cloud fraction 
+  !   i.e we only have cloud condensate when the cell is cloudy. 
+  !   In CAM: The cloud condensate and the cloud fraction are obtained from 2 different equations 
+  !   and the 2 quantities can be inconsistent (i.e. CAM can produce cloud fraction 
+  !   without cloud condensate or the opposite).
+  !---------------------------------------------------------------------------------------------------------------
+
+      use mcica_random_numbers
+! The Mersenne Twister random number engine
+      use MersenneTwister, only: randomNumberSequence, &   
+                                 new_RandomNumberSequence, getRandomReal
+
+      type(randomNumberSequence) :: randomNumbers
+
+! -- Arguments
+
+      integer(kind=im), intent(in) :: ncol            ! number of layers
+      integer(kind=im), intent(in) :: nlay            ! number of layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag
+      integer(kind=im), intent(inout) :: irng         ! flag for random number generator
+                                                      !  0 = kissvec
+                                                      !  1 = Mersenne Twister
+      integer(kind=im), intent(in) :: nsubcol         ! number of sub-columns (g-point intervals)
+      integer(kind=im), optional, intent(in) :: changeSeed     ! allows permuting seed
+
+! Column state (cloud fraction, cloud water, cloud ice) + variables needed to read physics state 
+      real(kind=rb), intent(in) :: pmid(:,:)          ! layer pressure (Pa)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cld(:,:)           ! cloud fraction 
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: clwp(:,:)          ! in-cloud liquid water path (g/m2)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ciwp(:,:)          ! in-cloud ice water path (g/m2)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tauc(:,:,:)        ! in-cloud optical depth (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: ssac(:,:,:)        ! in-cloud single scattering albedo (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: asmc(:,:,:)        ! in-cloud asymmetry parameter (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: fsfc(:,:,:)        ! in-cloud forward scattering fraction (non-delta scaled)
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: alpha(:,:)         ! vertical cloud fraction correlation parameter
+                                                      !    Dimensions: (ncol,nlay)
+
+      real(kind=rb), intent(out) :: cld_stoch(:,:,:)  ! subcolumn cloud fraction 
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: clwp_stoch(:,:,:) ! subcolumn in-cloud liquid water path
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: ciwp_stoch(:,:,:) ! subcolumn in-cloud ice water path
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: tauc_stoch(:,:,:) ! subcolumn in-cloud optical depth
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: ssac_stoch(:,:,:) ! subcolumn in-cloud single scattering albedo
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: asmc_stoch(:,:,:) ! subcolumn in-cloud asymmetry parameter
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(out) :: fsfc_stoch(:,:,:) ! subcolumn in-cloud forward scattering fraction
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+
+! -- Local variables
+      real(kind=rb) :: cldf(ncol,nlay)                ! cloud fraction 
+                                                      !    Dimensions: (ncol,nlay)
+
+! Mean over the subcolumns (cloud fraction, cloud water , cloud ice) - inactive
+!      real(kind=rb) :: mean_cld_stoch(ncol,nlay)     ! cloud fraction 
+!      real(kind=rb) :: mean_clwp_stoch(ncol,nlay)    ! cloud water
+!      real(kind=rb) :: mean_ciwp_stoch(ncol,nlay)    ! cloud ice
+!      real(kind=rb) :: mean_tauc_stoch(ncol,nlay)    ! cloud optical depth
+!      real(kind=rb) :: mean_ssac_stoch(ncol,nlay)    ! cloud single scattering albedo
+!      real(kind=rb) :: mean_asmc_stoch(ncol,nlay)    ! cloud asymmetry parameter
+!      real(kind=rb) :: mean_fsfc_stoch(ncol,nlay)    ! cloud forward scattering fraction
+
+! Set overlap
+      integer(kind=im) :: overlap                     ! 1 = random overlap, 2 = maximum_random,
+                                                      ! 3 = maximum overlap, 4 = exponential overlap
+                                                      ! 5 = exponential_random overlap
+
+! Constants (min value for cloud fraction and cloud water and ice)
+      real(kind=rb), parameter :: cldmin = 1.0e-20_rb ! min cloud fraction
+!      real(kind=rb), parameter :: qmin   = 1.0e-10_rb   ! min cloud water and cloud ice (not used)
+
+! Variables related to random number and seed 
+      real(kind=rb), dimension(nsubcol, ncol, nlay) :: CDF, CDF2       ! random numbers
+      integer(kind=im), dimension(ncol) :: seed1, seed2, seed3, seed4  ! seed to create random number
+      real(kind=rb), dimension(ncol) :: rand_num       ! random number (kissvec)
+      integer(kind=im) :: iseed                        ! seed to create random number (Mersenne Twister)
+      real(kind=rb) :: rand_num_mt                     ! random number (Mersenne Twister)
+
+! Flag to identify cloud fraction in subcolumns
+      logical,  dimension(nsubcol, ncol, nlay) :: isCloudy   ! flag that says whether a gridbox is cloudy
+
+! Indices
+      integer(kind=im) :: ilev, isubcol, i, n, ngbm    ! indices
+
+!------------------------------------------------------------------------------------------ 
+
+! Check that irng is in bounds; if not, set to default
+      if (irng .ne. 0) irng = 1
+
+! Pass input cloud overlap setting to local variable
+      overlap = icld
+
+! Ensure that cloud fractions are in bounds 
+      do ilev = 1, nlay
+         do i = 1, ncol
+            cldf(i,ilev) = cld(i,ilev)
+            if (cldf(i,ilev) < cldmin) then
+               cldf(i,ilev) = 0._rb
+            endif
+         enddo
+      enddo
+
+! ----- Create seed  --------
+   
+! Advance randum number generator by changeseed values
+      if (irng.eq.0) then   
+! For kissvec, create a seed that depends on the state of the columns. Maybe not the best way, but it works.  
+! Must use pmid from bottom four layers. 
+         do i=1,ncol
+            if (pmid(i,1).lt.pmid(i,2)) then
+               stop 'MCICA_SUBCOL: KISSVEC SEED GENERATOR REQUIRES PMID FROM BOTTOM FOUR LAYERS.'
+            endif
+            seed1(i) = (pmid(i,1) - int(pmid(i,1)))  * 1000000000_im
+            seed2(i) = (pmid(i,2) - int(pmid(i,2)))  * 1000000000_im
+            seed3(i) = (pmid(i,3) - int(pmid(i,3)))  * 1000000000_im
+            seed4(i) = (pmid(i,4) - int(pmid(i,4)))  * 1000000000_im
+          enddo
+         do i=1,changeSeed
+            call kissvec(seed1, seed2, seed3, seed4, rand_num)
+         enddo
+      elseif (irng.eq.1) then
+         randomNumbers = new_RandomNumberSequence(seed = changeSeed)
+      endif 
+
+
+! ------ Apply overlap assumption --------
+
+! generate the random numbers  
+
+      select case (overlap)
+
+      case(1) 
+! Random overlap
+! i) pick a random value at every level
+  
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               do ilev = 1,nlay
+                  call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                  CDF(isubcol,:,ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               do i = 1, ncol
+                  do ilev = 1, nlay
+                     rand_num_mt = getRandomReal(randomNumbers)
+                     CDF(isubcol,i,ilev) = rand_num_mt
+                  enddo
+               enddo
+             enddo
+         endif
+
+      case(2) 
+! Maximum_Random overlap
+! i) pick  a random number for top layer.
+! ii) walk down the column: 
+!    - if the layer above is cloudy, we use the same random number than in the layer above
+!    - if the layer above is clear, we use a new random number 
+
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               do ilev = 1,nlay
+                  call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                  CDF(isubcol,:,ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               do i = 1, ncol
+                  do ilev = 1, nlay
+                     rand_num_mt = getRandomReal(randomNumbers)
+                     CDF(isubcol,i,ilev) = rand_num_mt
+                  enddo
+               enddo
+             enddo
+         endif
+
+         do ilev = 2,nlay
+            do i = 1, ncol
+               do isubcol = 1, nsubcol
+                  if (CDF(isubcol, i, ilev-1) > 1._rb - cldf(i,ilev-1) ) then
+                     CDF(isubcol,i,ilev) = CDF(isubcol,i,ilev-1) 
+                  else
+                     CDF(isubcol,i,ilev) = CDF(isubcol,i,ilev) * (1._rb - cldf(i,ilev-1)) 
+                  endif
+               enddo
+            enddo
+         enddo
+
+      case(3) 
+! Maximum overlap
+! i) pick same random numebr at every level  
+
+         if (irng.eq.0) then 
+            do isubcol = 1,nsubcol
+               call kissvec(seed1, seed2, seed3, seed4, rand_num)
+               do ilev = 1,nlay
+                  CDF(isubcol,:,ilev) = rand_num
+               enddo
+            enddo
+         elseif (irng.eq.1) then
+            do isubcol = 1, nsubcol
+               do i = 1, ncol
+                  rand_num_mt = getRandomReal(randomNumbers)
+                  do ilev = 1, nlay
+                     CDF(isubcol,i,ilev) = rand_num_mt
+                  enddo
+               enddo
+             enddo
+         endif
+
+     case(4)
+       ! Exponential overlap: transition from maximum to random cloud overlap increases 
+       ! exponentially with layer thickness and distance through layers
+       !
+       ! generate 2 streams of random numbers
+       ! CDF2 is used to select which sub-columns are vertically correlated relative to alpha
+       ! CDF  is used to select which sub-columns are treated as cloudy relative to cloud fraction
+       if (irng.eq.0) then 
+          do isubcol = 1,nsubcol
+             do i = 1, ncol
+                do ilev = 1,nlayers
+                   call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                   CDF(isubcol,i,ilev) = rand_num
+                   call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                   CDF2(isubcol,i,ilev) = rand_num
+                end do
+             end do
+          end do
+       elseif (irng.eq.1) then
+          do isubcol = 1, nsubcol
+             do i = 1, ncol
+                do ilev = 1,nlayers
+                   rand_num_mt = getRandomReal(randomNumbers)
+                   CDF(isubcol,i,ilev) = rand_num_mt
+                   rand_num_mt = getRandomReal(randomNumbers)
+                   CDF2(isubcol,i,ilev) = rand_num_mt
+                enddo
+             enddo
+          enddo
+       endif
+
+       ! generate vertical correlations in random number arrays: bottom to top
+       do ilev = 2,nlayers
+          where (CDF2(:,:,ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) )
+             CDF(:,:,ilev) = CDF(:,:,ilev-1) 
+          end where
+       end do
+
+     case(5)
+       ! Exponential-Random overlap: transition from maximum to random cloud overlap increases 
+       ! exponentially with layer thickness and with distance through adjacent cloudy layers. 
+       ! Non-adjacent blocks of clouds are treated randomly, and each block begins a new 
+       ! exponential transition from maximum to random. 
+       !
+       ! generate 2 streams of random numbers
+       ! CDF2 is used to select which sub-columns are vertically correlated relative to alpha
+       ! CDF  is used to select which sub-columns are treated as cloudy relative to cloud fraction
+       if (irng.eq.0) then 
+          do isubcol = 1,nsubcol
+             do i = 1, ncol
+                do ilev = 1,nlayers
+                   call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                   CDF(isubcol,i,ilev) = rand_num
+                   call kissvec(seed1, seed2, seed3, seed4, rand_num)
+                   CDF2(isubcol,i,ilev) = rand_num
+                end do
+             end do
+          end do
+       elseif (irng.eq.1) then
+          do isubcol = 1, nsubcol
+             do i = 1, ncol
+                do ilev = 1,nlayers
+                   rand_num_mt = getRandomReal(randomNumbers)
+                   CDF(isubcol,i,ilev) = rand_num_mt
+                   rand_num_mt = getRandomReal(randomNumbers)
+                   CDF2(isubcol,i,ilev) = rand_num_mt
+                enddo
+             enddo
+          enddo
+       endif
+
+       ! generate vertical correlations in random number arrays - bottom to top
+       do ilev = 2,nlayers
+          where (CDF2(:,:,ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) )
+             CDF(:,:,ilev) = CDF(:,:,ilev-1) 
+          end where
+       end do
+
+      end select
+
+ 
+! -- generate subcolumns for homogeneous clouds -----
+      do ilev = 1, nlay
+         isCloudy(:,:,ilev) = (CDF(:,:,ilev) >= 1._rb - spread(cldf(:,ilev), dim=1, nCopies=nsubcol) )
+      enddo
+
+! where the subcolumn is cloudy, the subcolumn cloud fraction is 1;
+! where the subcolumn is not cloudy, the subcolumn cloud fraction is 0;
+! where there is a cloud, define the subcolumn cloud properties,
+! otherwise set these to zero
+
+      ngbm = ngb(1) - 1
+      do ilev = 1,nlay
+         do i = 1, ncol
+            do isubcol = 1, nsubcol
+               if ( iscloudy(isubcol,i,ilev) ) then
+                  cld_stoch(isubcol,i,ilev) = 1._rb
+                  clwp_stoch(isubcol,i,ilev) = clwp(i,ilev)
+                  ciwp_stoch(isubcol,i,ilev) = ciwp(i,ilev)
+                  n = ngb(isubcol) - ngbm
+                  tauc_stoch(isubcol,i,ilev) = tauc(n,i,ilev)
+                  ssac_stoch(isubcol,i,ilev) = ssac(n,i,ilev)
+                  asmc_stoch(isubcol,i,ilev) = asmc(n,i,ilev)
+                  fsfc_stoch(isubcol,i,ilev) = fsfc(n,i,ilev)
+               else
+                  cld_stoch(isubcol,i,ilev) = 0._rb
+                  clwp_stoch(isubcol,i,ilev) = 0._rb
+                  ciwp_stoch(isubcol,i,ilev) = 0._rb
+                  tauc_stoch(isubcol,i,ilev) = 0._rb
+                  ssac_stoch(isubcol,i,ilev) = 1._rb
+                  asmc_stoch(isubcol,i,ilev) = 0._rb
+                  fsfc_stoch(isubcol,i,ilev) = 0._rb
+               endif
+            enddo
+         enddo
+      enddo
+
+! -- compute the means of the subcolumns ---
+!      mean_cld_stoch(:,:) = 0._rb
+!      mean_clwp_stoch(:,:) = 0._rb
+!      mean_ciwp_stoch(:,:) = 0._rb
+!      mean_tauc_stoch(:,:) = 0._rb
+!      mean_ssac_stoch(:,:) = 0._rb
+!      mean_asmc_stoch(:,:) = 0._rb
+!      mean_fsfc_stoch(:,:) = 0._rb
+!      do i = 1, nsubcol
+!         mean_cld_stoch(:,:) =  cld_stoch(i,:,:) + mean_cld_stoch(:,:) 
+!         mean_clwp_stoch(:,:) =  clwp_stoch( i,:,:) + mean_clwp_stoch(:,:) 
+!         mean_ciwp_stoch(:,:) =  ciwp_stoch( i,:,:) + mean_ciwp_stoch(:,:) 
+!         mean_tauc_stoch(:,:) =  tauc_stoch( i,:,:) + mean_tauc_stoch(:,:) 
+!         mean_ssac_stoch(:,:) =  ssac_stoch( i,:,:) + mean_ssac_stoch(:,:) 
+!         mean_asmc_stoch(:,:) =  asmc_stoch( i,:,:) + mean_asmc_stoch(:,:) 
+!         mean_fsfc_stoch(:,:) =  fsfc_stoch( i,:,:) + mean_fsfc_stoch(:,:) 
+!      end do
+!      mean_cld_stoch(:,:) = mean_cld_stoch(:,:) / nsubcol
+!      mean_clwp_stoch(:,:) = mean_clwp_stoch(:,:) / nsubcol
+!      mean_ciwp_stoch(:,:) = mean_ciwp_stoch(:,:) / nsubcol
+!      mean_tauc_stoch(:,:) = mean_tauc_stoch(:,:) / nsubcol
+!      mean_ssac_stoch(:,:) = mean_ssac_stoch(:,:) / nsubcol
+!      mean_asmc_stoch(:,:) = mean_asmc_stoch(:,:) / nsubcol
+!      mean_fsfc_stoch(:,:) = mean_fsfc_stoch(:,:) / nsubcol
+
+      end subroutine generate_stochastic_clouds_sw
+
+
+!-------------------------------------------------------------------------------------------------- 
+      subroutine kissvec(seed1,seed2,seed3,seed4,ran_arr)
+!-------------------------------------------------------------------------------------------------- 
+
+! public domain code
+! made available from http://www.fortran.com/
+! downloaded by pjr on 03/16/04 for NCAR CAM
+! converted to vector form, functions inlined by pjr,mvr on 05/10/2004
+
+! The  KISS (Keep It Simple Stupid) random number generator. Combines:
+! (1) The congruential generator x(n)=69069*x(n-1)+1327217885, period 2^32.
+! (2) A 3-shift shift-register generator, period 2^32-1,
+! (3) Two 16-bit multiply-with-carry generators, period 597273182964842497>2^59
+!  Overall period>2^123; 
+!
+      real(kind=rb), dimension(:), intent(inout)  :: ran_arr
+      integer(kind=im), dimension(:), intent(inout) :: seed1,seed2,seed3,seed4
+      integer(kind=im) :: i,sz,kiss
+      integer(kind=im) :: m, k, n
+
+! inline function 
+      m(k, n) = ieor (k, ishft (k, n) )
+
+      sz = size(ran_arr)
+      do i = 1, sz
+         seed1(i) = 69069_im * seed1(i) + 1327217885_im
+         seed2(i) = m (m (m (seed2(i), 13_im), - 17_im), 5_im)
+         seed3(i) = 18000_im * iand (seed3(i), 65535_im) + ishft (seed3(i), - 16_im)
+         seed4(i) = 30903_im * iand (seed4(i), 65535_im) + ishft (seed4(i), - 16_im)
+         kiss = seed1(i) + seed2(i) + ishft (seed3(i), 16_im) + seed4(i)
+         ran_arr(i) = kiss*2.328306e-10_rb + 0.5_rb
+      end do
+    
+      end subroutine kissvec
+
+      end module mcica_subcol_gen_sw
+
+
diff --git a/radiation/src/rrtatm.f b/radiation/src/rrtatm.f
new file mode 100644
index 0000000000000000000000000000000000000000..2a14f65c6fd52bd583cc563aeda1f4b8cdc353cc
--- /dev/null
+++ b/radiation/src/rrtatm.f
@@ -0,0 +1,7939 @@
+C     path:      %P%                                                            
+C     revision:  $Revision: 27219 $                                              
+C     created:   $Date: 2015-05-13 09:56:46 -0400 (Wed, 13 May 2015) $                                   
+C     presently: %H%  %T%                                                       
+C                                                                               
+      SUBROUTINE RRTATM
+C       This routine has been modified from lblatm.f 
+C       (cvs revision 9.14) for use with RRTM,
+C      using the translation code, lbl2r_v9.14.f
+C
+C                                                                               
+C  --------------------------------------------------------------------------   
+C |                                                                          |  
+C |  Copyright 2002 - 2009, Atmospheric & Environmental Research, Inc. (AER).|  
+C |  This software may be used, copied, or redistributed as long as it is    |  
+C |  not sold and this copyright notice is reproduced on each copy made.     |  
+C |  This model is provided as is without any express or implied warranties. |  
+C |                       (http://www.rtweb.aer.com/)                        |  
+C |                                                                          |  
+C  --------------------------------------------------------------------------   
+C                                                                               
+C                                                                        FA00020
+      IMPLICIT REAL*8           (V)                                     !FA00030
+C                                                                        FA00040
+C**********************************************************************  FA00050
+C                                                                        FA00060
+C     LBLATM IS AN ATMOSPHERIC RAY TRACE PROGRAM.                        FA00070
+C     IT CREATES AND FORMATS THE ATMOSPHERIC INPUTS FOR THE AFGL         FA00080
+C     LINE-BY-LINE TRANSMITTANCE/RADIANCE PROGRAM LBLRTM.                FA00090
+C                                                                        FA00100
+C     SEE THE COMMENTS IN SUBROUTINE ATMPTH FOR DETAILED INSTRUCTIONS O  FA00110
+C     THE USAGE OF THE ATMOSPHERIC INPUTS.                               FA00120
+C                                                                               
+C     The geometry was modified for LBLRTM to reflect changes                   
+C     implemented in MODTRAN to solve problems with inconsistent                
+C     path parameters.                                                          
+C     These changes include changing some variables and functions to            
+C     double precision.                                                         
+C                                                                        FA00130
+C**********************************************************************  FA00140
+C-                                                                       FA00150
+C-                      STATEMENT FLAGS                                  FA00160
+C-                                                                       FA00170
+C-    LBLATM HAS BEEN STRUCTURED TO HAVE ENHANCED PORTABILITY UNDER      FA00180
+C-    FORTRAN 77.  TWO FLAGS (COLUMN73) HAVE BEEN USED TO FACILITATE     FA00190
+C-    PROGRAM CONVERSION.                                                FA00200
+C-                                                                       FA00210
+C-   &    IDENTIFIES STATEMENTS REQUIRED FOR WORD SIZE LESS THAN 8 CHAR  FA00220
+C-               ALL STATEMENTS FLAGGED WITH & IN COLUMN 73 HAVE         FA00230
+C-               STARTING IN COLUMN 1. THESE TWO CHARACTERS MUST         FA00240
+C-               BE CHANGED TO BLANKS FOR COMPUTERS WITH WORD SIZE       FA00250
+C-               LESS THAN 8 CHARACTERS.                                 FA00260
+C-                                                                       FA00270
+C-   !    IDENTIFIES STATEMENTS REQUIRED TO DOUBLE PRECISION THE         FA00280
+C-               VARIABLES NEEDED FOR CALCULATIONS WHICH NEED MORE       FA00290
+C-               THAN 32 BITS TO OBTAIN SUFFICIENT ACCURACY (I.E.        FA00300
+C-               THE FREQUENCIES). STATEMENTS FLAGGED WITH ! HAVE        FA00310
+C-               STARTING IN COLUMN 1. THESE TWO CHARACTERS SHOULD BE    FA00320
+C-               CHANGED TO BLANKS FOR COMPUTERS HAVING SINGLE           FA00330
+C-               PRECISION LESS THAN 10 SIGNIFICANT DIGITS.              FA00340
+C-                                                                       FA00350
+C-   >    IDENTIFIES STATEMENTS THAT MAY BE USEFUL FOR CONVERSION,       FA00360
+C-               TYPICALLY SYSTEM SPECIFIC CALLS (I.E. DATE, TIME,       FA00370
+C-               CPU TIME, RANDOM NUMBER, ETC.).                         FA00380
+C-                                                                       FA00390
+C----------------------------------------------------------------------  FA00400
+C                                                                        FA00410
+C     MXFSC IS THE MAXIMUM NUMBER OF LAYERS FOR OUTPUT TO LBLRTM         FA00420
+C     MXLAY IS THE MAXIMUM NUMBER OF OUTPUT LAYERS                       FA00430
+C     MXZMD IS THE MAX NUMBER OF LEVELS IN THE ATMOSPHERIC PROFILE       FA00440
+C         STORED IN ZMDL (INPUT)                                         FA00450
+C     MXPDIM IS THE MAXIMUM NUMBER OF LEVELS IN THE PROFILE ZPTH         FA00460
+C         OBTAINED BY MERGING ZMDL AND ZOUT                              FA00470
+C     MXMOL IS THE MAXIMUM NUMBER OF MOLECULES, KMXNOM IS THE DEFAULT    FA00480
+C                                                                        FA00490
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA00500
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA00510
+C                                                                        FA00520
+      COMMON /PROFILE/ NLAYRS,PBAR(MXLAY),TBAR(MXLAY),
+     *                 PZ(0:MXLAY),TZ(0:MXLAY)
+      COMMON /MANE1/ P0,TEMP0,DVXM,H2OSLF,WTOT,ALBAR,ADBAR,AVBAR,
+     *                 AVFIX,LAYRFX,SECNT0,SAMPLE,DVSET,ALFAL0,AVMASS,
+     *                 DPTMIN,DPTFAC,ALTAV,AVTRAT,TDIFF1,TDIFF2,ALTD1,
+     *                 ALTD2,ANGLE,IANT,LTGNT,LH1,LH2,IPFLAG,PLAY,TLAY,
+     *                 EXTID(10)
+      COMMON /SPECIES/ COLDRY(MXLAY),AMOUNT(MXMOL,MXLAY),WN2L(MXLAY),
+     *                 CDUM(MXLAY),NMOLEC
+      COMMON /PATHD1/ DVL(MXLAY),WTOTL(MXLAY),
+     *                 ALBL(MXLAY),ADBL(MXLAY),AVBL(MXLAY),
+     *                 H2OSL(MXLAY),IPATH(MXLAY),ITYL(MXLAY),
+     *                 SECNTA(MXLAY),HT1,HT2,ALTZ(0:MXLAY)
+      COMMON /XRRTATM/ IXSECT
+      CHARACTER*8  EXTID                                                        
+C                                                                        FA00630
+      CHARACTER*8      XID,       HMOLID,      YID                              
+      Real*8               SECANT,       XALTZ                                  
+C                                                                        FA00650
+      COMMON /CVRATM/ HNAMATM,HVRATM
+      CHARACTER*18 HNAMATM,HVRATM
+      COMMON /FILHDR/ XID(10),SECANT,PAVE,TAVE,HMOLID(60),XALTZ(4),      FA00660
+     *                WK(60),PZL,PZU,TZL,TZU,WN2   ,DV ,V1 ,V2 ,TBOUND,  FA00670
+     *           EMISIV,FSCDID(17),nmol_flhdr,LAYER ,YI1,YID(10),LSTWDF         
+C                                                                        FA00690
+      EQUIVALENCE (FSCDID(3),IXSCNT) , (FSCDID(5),IEMIT)                 FA00700
+C                                                                        FA00710
+      CHARACTER*8      HMOLS                                            &FA00720
+C                                                                        FA00730
+      COMMON /HMOLS/ HMOLS(MXMOL),JUNIT(MXMOL),WMOL(MXMOL),JUNITP,       FA00740
+     *               JUNITT                                              FA00750
+      COMMON /HMOLC/ HMOLC(MXMOL)                                        FA00760
+      CHARACTER*8 HMOLC                                                  FA00770
+      character*4 ht1,ht2                                                       
+C                                                                        FA00780
+C     ********************************************************           FA00790
+C                                                                        FA00800
+C        NEW DATA FORMAT - GENERIC UNITS                                 FA00810
+C                                                                        FA00820
+C                                                                        FA00830
+C     *********************************************************          FA00840
+C                                                                        FA00850
+C     IRD, IPR, IPU ARE UNIT NUMBERS FOR INPUT, OUTPUT, PUNCH            FA00860
+C                                                                        FA00870
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA00880
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA00890
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA00900
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA00920
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                             
+      COMMON /ADRIVE/ LOWFLG,IREAD,MODEL,ITYPE,n_zero,NOP,H1F,H2F,       FA00940
+     *                ANGLEF,RANGEF,BETAF,LENF,AV1,AV2,RO,IPUNCH,        FA00950
+     *                XVBAR, HMINF,PHIF,IERRF,HSPACE                     FA00960
+                                                                                
+      COMMON /c_drive/ ref_lat,hobs,ibmax_b,immax_b,                            
+     *                 lvl_1_2,jchar_st(10,2),wm(mxzmd)                         
+c                                                                               
+      character*1 jchar_st                                                      
+C                                                                        FA00970
+      CHARACTER*8      HDATE,HTIME                                      &FA00980
+C                                                                        FA00990
+      COMMON /BNDRY/ ZBND(MXFSC),PBND(MXFSC),TBND(MXFSC),ALORNZ(MXFSC),  FA01000
+     *               ADOPP(MXFSC),AVOIGT(MXFSC)                          FA01010
+      COMMON /ZOUTP/ ZOUT(MXLAY),SOUT(MXLAY),RHOSUM(MXLAY),              FA01020
+     *               AMTTOT(MXMOL),AMTCUM(MXMOL),ISKIP(MXMOL)            FA01030
+C                                                                               
+      CHARACTER*8      HMOD                                             &FA24840
+                                                                                
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+                                                                                
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)  FA03670
+                                                                                
+                                                                                
+      COMMON /CNTRL/ I1,I2,I3,I4,NBNDL,I6,I7,NBNDF,I9                    FA01040
+      COMMON /PCHINF/ MUNITS,CTYPE(MXLAY)                                       
+C                                                                               
+      CHARACTER*3 CTYPE                                                         
+C                                                                               
+C     ASSIGN CVS VERSION NUMBER TO MODULE                                       
+C                                                                               
+      HVRATM = '$Revision: 27219 $'                                              
+C                                                                        FA01050
+C     IBDIM IS THE MAXIMUM NUMBER OF LAYERS FOR OUTPUT TO LBLRTM         FA01060
+C     IOUTDM IS THE MAXIMUN NUMBER OF OUTPUT LAYERS                      FA01070
+C     IMDIM IS THE MAX NUMBER OF LEVELS IN THE ATMOSPHERIC PROFILE       FA01080
+C         STORED IN ZMDL (INPUT)                                         FA01090
+C     IPDIM IS THE MAXIMUM NUMBER OF LEVELS IN THE PROFILE ZPTH OBTAINE  FA01100
+C         BY MERGING ZMDL AND ZOUT                                       FA01110
+C     KDIM IS THE MAXIMUM NUMBER OF MOLECULES, KMXNOM IS THE DEFAULT     FA01120
+C                                                                        FA01130
+      KDIM = MXMOL                                                       FA01140
+      IMDIM = MXZMD                                                      FA01150
+      IOUTDM = MXLAY                                                     FA01160
+      IPDIM = MXPDIM                                                     FA01170
+      IBDIM = MXFSC                                                      FA01180
+C                                                                        FA01190
+      CALL LBLDAT(HDATE)                                                 FA01200
+      CALL FTIME (HTIME)                                                 FA01210
+      WRITE (IPR,900) HDATE,HTIME                                        FA01220
+C                                                                        FA01230
+      DO 10 M = 1, MXMOL                                                 FA01240
+         READ (HMOLC(M),905) HMOLS(M)                                    FA01250
+         HMOLID(M) = HMOLS(M)                                            FA01260
+   10 CONTINUE                                                           FA01270
+C                                                                        FA01280
+      CALL ATMPTH (xid,IEMIT)                                                FA0
+C                                                                        FA01300
+      SECANT = 1.0                                                       FA01310
+      nmol_flhdr = nmol                                                      FA0
+C                                                                        FA01330
+C     FOR IXSECT = 1, CALL XAMNTS                                        FA01340
+C                                                                        FA01350
+C     IXSECT = IXSCNT/10
+      XV1 = V1-25.                                                       FA01370
+      XV2 = V2+25.                                                       FA01380
+      IF (IXSECT.EQ.1) CALL XAMNTS (XV1,XV2)                             FA01390
+
+      print *,'rrtatm'
+      print *,coldry(1:10)
+      print *,amount(1,1:10)
+C                                                                        FA01400
+      RETURN                                                             FA01410
+C                                                                        FA01420
+  900 FORMAT ('1',20X,'*****PROGRAM LBLATM*****     ',A10,5X,A10,///)    FA01430
+  905 FORMAT (A8)                                                        FA01440
+C                                                                        FA01450
+      END                                                                FA01460
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE ATMPTH (xid,IEMIT)                                          FA0
+C                                                                        FA01480
+C**********************************************************************  FA01490
+C                                                                        FA01500
+C                                                                        FA01510
+C                                                                        FA01520
+C                                                                        FA01530
+C                  ATMPTH   (ATMOSPHERIC PATH)                           FA01540
+C                                                                        FA01550
+C                                                                        FA01560
+C                                                                        FA01570
+C                                                                        FA01580
+C                            WILLIAM O. GALLERY                          FA01590
+C                          + GAIL   P.  ANDERSON                         FA01600
+C                            FRANCIS X. KNEIZYS                          FA01610
+C                            JAMES   H. CHETWYND JR.                     FA01620
+C                            SHEPARD A. CLOUGH                           FA01630
+C                                                                        FA01640
+C                                                                        FA01650
+C                           +(POINT OF CONTACT FOR THIS PROGRAM)         FA01660
+C                                                                        FA01670
+C                                      AIR FORCE GEOPHYSICS LAB          FA01680
+C                                      OPTICAL PHYSICS DIVISION          FA01690
+C                                      HANSCOM AFB                       FA01700
+C                                      BEDFORD, MA.  01731               FA01710
+C                                      617-861-4774                      FA01720
+C                                                                        FA01730
+C                                                                        FA01740
+C                                      REVISED:   JULY 1990              FA01750
+C                                                                        FA01760
+C**********************************************************************  FA01770
+C                                                                        FA01780
+C                                                                        FA01790
+C     USER INSTRUCTIONS:                                                 FA01800
+C                                                                        FA01810
+C     ATMPTH CALCULATES THE DENSITY WEIGHTED MEAN TEMPERATURE AND        FA01820
+C     PRESSURE AND THE INTEGRATED ABSORBER AMOUNTS (IN MOLECULES         FA01830
+C     CM-2) FOR EACH LAYER ALONG A PATH THROUGH A LAYERED                FA01840
+C     ATMOSPHERE, INCLUDING THE EFFECTS OF REFRACTION AND THE  EARTH'S   FA01850
+C     CURVATURE.  ATMPTH IS DESIGNED TO PREPARE THE ATMOSPHERIC INPUTS   FA01860
+C     TO THE PROGRAM LBLRTM WHICH DOES A LINE-BY-LINE CALCULATION OF     FA01870
+C     ATMOSPHERIC TRANSMITTANCE OR RADIANCE AND IS DESCRIBED IN          FA01880
+C     REFERENCE (1).  THE CONTROL CARDS REQUIRED TO RUN ATMPTH ARE       FA01890
+C     DESCRIBED LATER IN THESE COMMENTS.  A DETAILED DESCRIPTION         FA01900
+C     OF THE ALGORITHM USED HERE AND A DISCUSSION OF THE EFFECTS OF      FA01910
+C     THE EARTH'S CURVATURE AND REFRACTION ARE GIVEN IN REFERENCE (2).   FA01920
+C                                                                        FA01930
+C     THE DEFINITIONS AND USES OF THE PATH PARAMETERS ITYPE, H1, H2,     FA01940
+C     ANGLE, RANGE, BETA, AND LEN ARE DESCRIBED IN REFERENCE (2) AND     FA01950
+C     ARE THE SAME AS IN REFERENCE (4).                                  FA01960
+C                                                                        FA01970
+C     THERE ARE SIX BUILT IN ATMOSPHERIC PROFILES WHICH DEFINE THE       FA01980
+C     PRESSURE, TEMPERATURE, AND MIXING RATIOS OF THE 28 MOLECULAR       FA01990
+C     SPECIES INCLUDING H2O, CO2, O3, N2O, CO, CH4, AND O2 ON THE AFGL   FA02000
+C     ATMOSPHERIC LINE PARAMETERS COMPILATION AT 50 STANDARD             FA02010
+C     ALTITUDES.  THESE MODEL ATMOSPHERES ARE DESCRIBED IN               FA02020
+C     REFERENCE (3).  THE USER MAY ALSO INPUT AN ATMOSPHERIC             FA02030
+C     PROFILE AS DESCRIBED LATER (SEE ALSO THE COMMENTS IN               FA02040
+C     THE SUBROUTINE NSMDL). TWENTY-0NE ADDITIONAL MIXING RATIO PROFILE  FA02050
+C     FOR SPECIES CORRESPONDING TO THE MOLECULES ON THE AFGL TRACE GAS   FA02060
+C     COMPILATION ARE INCLUDED.                                          FA02070
+C                                                                        FA02080
+C     THE PRINCIPAL OUTPUT CONSISTS OF THE INTEGRATED ABSORBER AMOUNTS   FA02090
+C     FOR A SET OF LAYERS TO BE INPUT TO THE LINE-BY-LINE CALCULATION.   FA02100
+C     THE NUMBER OF THESE LAYERS REPRESENTS A TRADEOFF BETWEEN ACCURACY  FA02110
+C     AND COMPUTATIONAL SPEED OF THE LINE-BY-LINE CALCULATION.  THE      FA02120
+C     USER HAS THE OPTION OF INPUTTING HIS OWN SET OF LAYER BOUNDARIES   FA02130
+C     OR OF LETTING THE SUBROUTINE AUTLAY GENERATE THESE LAYERS          FA02140
+C     AUTOMATICALLY.  IF THE USER INPUTS BOUNDARY ALTITUDES,  THEY NEED  FA02150
+C     NOT FALL ON THE ATMOSPHERIC PROFILE BOUNDARIES OR INCLUDE THE      FA02160
+C     PATH ENDPOINTS. IF AUTOMATIC LAYERING IS SELECTED, THE USER MAY    FA02170
+C     SPECIFY THE MAXIMUM HALFWIDTH RATIO ACROSS A LAYER AND THE         FA02180
+C     MAXIMUM TEMPERATURE DIFFERENCE ACROSS A LAYER.                     FA02190
+C                                                                        FA02200
+C     IT IS DIFFICULT TO SPECIFY APRIORI THE RELATIONSHIP BETWEEN        FA02210
+C     THE NUMBER OF LAYERS AND THE ACCURACY:  THE ACCURACY DEPENDS UPON  FA02220
+C     SUCH FACTORS AS THE SPECTRAL REGION, THE DISTRIBUTION OF THE       FA02230
+C     MOLECULES OF INTEREST, THE PARTICULAR PATH TAKEN, AND WHETHER      FA02240
+C     TRANSMITTANCE OR RADIANCE IS CALCULATED. THE LAYERING CREATED      FA02250
+C     BY THE DEFAULT VALUES OF AVTRAT (1.5) AND TDIFF1 (5.0 K) AND       FA02260
+C     TDIFF2 (8.0 K) SHOULD BE CONSIDERED A POINT OF DEPARTURE FOR       FA02270
+C     SUBSEQUENT CALCULATIONS. THE USER SHOULD THEN EXPERIMENT WITH      FA02280
+C     DIFFERENT LAYERING UNTIL THE RESULTS ARE CONSISTENT WITH           FA02290
+C     HIS ACCURACY REQUIREMENTS.                                         FA02300
+C                                                                        FA02310
+C     TO SAVE COMPUTER TIME IN LBLRTM, THE LAYER AMOUNTS ARE ZEROED      FA02320
+C     OUT WHEN                                                           FA02330
+C         1.  THE CUMULATIVE AMOUNT FOR THAT LAYER AND ABOVE IS LESS     FA02340
+C             THAN 0.1 PERCENT OF THE TOTAL,                             FA02350
+C         AND                                                            FA02360
+C         2.  A. TRANSMITTANCE IS CALCUALTED (IEMIT = 0)                 FA02370
+C             OR                                                         FA02380
+C             B. RADIANCE IS CALCULATED (IEMIT = 1) AND THE PATH IS      FA02390
+C                LOOKING UP ( IPATH = 3)                                 FA02400
+C     O2 IS  NOT CONSIDERED IN THIS SCHEME.  IF THE ABSORBER             FA02410
+C     FOR A LAYER FOR ALL THE MOLECULES (EXCEPT O2) ARE ZEROED           FA02420
+C     OUT, THEN THAT LAYER AND THOSE ABOVE ARE ELIMINATED                FA02430
+C                                                                        FA02440
+C     TO CALCULATE THE AMOUNTS FOR THE TRACE GASES (MOLECULES 8 THROUGH  FA02450
+C     31) THE USER MUST INCREASE NMOL ON CARD 3.1.                       FA02460
+C                                                                        FA02470
+C----------------------------------------------------------------------  FA02480
+C----------------------------------------------------------------------  FA02490
+C                                                                        FA02500
+C     OUTPUT :                                                           FA02510
+C                                                                        FA02520
+C     THE PRINTED OUTPUT IS ON FILE IPR (DEFAULT=6). SELECTING           FA02530
+C     NOPRNT=1 SUPRESSES THE PRINTING OF THE ATMOSPHERIC PROFILES        FA02540
+C     AND THE LAYER-BY-LAYER RESULTS FOR THE REFRACTED PATH.             FA02550
+C     IF IPUNCH = 1, THEN THE LBLRTM INPUT DATA IS ALSO PUT ON FILE      FA02560
+C     IPU (DEFAULT=7) AND CONSISTS OF A SINGLE CARD IMAGE GIVING THE     FA02570
+C     NUMBER OF LAYERS LMAX AND A 70 CHARACTER FIELD DESCRIBING THE      FA02580
+C     PROFILE AND THE PATH, FOLLOWED BY TWO (OR MORE) CARD IMAGES FOR    FA02590
+C     EACH OF THE LMAX LAYERS                                            FA02600
+C                                                                        FA02610
+C        CARD 2.1    IFORM,LMAX,NMOL,SECNT0,HMOD (1X,I1,I3,I5,F10.6,3A8) FA02620
+C             IFORM  = COLUMN AMOUNT FORMAT FLAG                                
+C             LMAX   = NUMBER OF LBLRTM LAYERS, MAY DIFFER FROM          FA02630
+C                      IBMAX DEPENDING ON THE PATH.                      FA02640
+C             NMOL   = NUMBER OF MOLECULES SELECTED                      FA02650
+C             SECNT0 = EFFECTIVE SECANT (SCALE FACTOR) FOR THE AMOUNTS   FA02660
+C             HMOD   = 24 CHARACTER FIELD.                               FA02670
+C                                                                        FA02680
+C        CARD 2.1.1  PBAR(L),TBAR(L),SECNTK(L),ITYL(L),IPATH(L),         FA02690
+C                    ALTZ(L-1),PZ(L-1),TZ(L-1),ALTZ(L),PZ(L),TZ(L)       FA02700
+C                  (E15.7,2F10.4,A3,I2,1X,F7.2,F8.3,F7.2,F7.2,F8.3,F7.2) FA02710
+C             PBAR   =  AVERAGE PRESSURE (MB)                            FA02720
+C             TBAR   =  AVERAGE TEMPERATURE (K)                          FA02730
+C             SECNTK = SCALE FACTOR FOR COLUMN AMOUNT (DEFAULT=0)        FA02740
+C             ITYL  : OVERRIDES THE LBLRTM INTERNAL CALCULATION FOR      FA02750
+C                     ITYPE, NORMALLY LEFT BLANK                         FA02760
+C             IPATH : IF THE PATH DOES NOT GO THROUGH A TANGENT HEIGHT,  FA02770
+C                         IF H1.LT.H2   IPATH = 3                        FA02780
+C                         IF H1.GT.H2   IPATH = 1                        FA02790
+C                      IF THE PATH GOES THROUGH A TANGENT HEIGHT, THEN   FA02800
+C                         FOR THE LAYERS FROM THE TANGENT HEIGHT TO      FA02810
+C                         MIN(H1,H2),   IPATH = 2                        FA02820
+C                         FOR THE LAYERS (IF ANY) FROM MIN(H1,H2)        FA02830
+C                         TO H1,  IPATH = 1                              FA02840
+C                         FOR THE LAYERS (IF ANY) FROM MIN(H1,H2)        FA02850
+C                         TO H2,  IPATH = 3                              FA02860
+C                      FOR A HORIZONTAL PATH,  IPATH = 0                 FA02870
+C             ALTZ(L)    UPPER BOUNDARY ALTITUDE (CURRENT LAYER)         FA02880
+C             ALTZ(L-1)  LOWER BOUNDARY ALTITUDE (FOR FIRST LAYER ONLY)  FA02890
+C             PZ(L)      PRESSURE AT ALTZ(L), MB                         FA02900
+C             PZ(L-1)    PRESSURE AT ATLZ(L-1),  (FOR FIRST LAYER ONLY)  FA02910
+C             TZ(L)      TEMPERATURE AT ALTZ(L), DEGREES K               FA02920
+C             TZ(L-1)    TEMPERATURE AT ALTZ(L-1),(FOR FIRST LAYER ONLY  FA02930
+C                                                                        FA02940
+C        CARD 2.1.2           (AMOUNT(K,L),K=1,7),WBROADL(L)             FA02950
+C                             (1P8E15.7)                                 FA02960
+C        CARD 2.1.3           (AMOUNT(K,L),K=8,NMOL)                     FA02970
+C                             (1P8E15.7)                                 FA02980
+C             AMOUNT(K)   COLUMN DENSITIES FOR THE K'TH MOLECULAR        FA02990
+C                         SPECIES (MOLECULES CM-2)                       FA03000
+C             WBROADL(L)  COLUMN DENSITY FOR BROADENING GASES            FA03010
+C                         (MOLECULES CM-2)                               FA03020
+C                                                                        FA03030
+C        CARDS 2.1 ARE REPEATED UNITL LMAX LAYERS ARE SPECIFIED.         FA03040
+C                                                                        FA03050
+C----------------------------------------------------------------------  FA03060
+C                                                                        FA03070
+C  REFERENCES:                                                           FA03080
+C                                                                        FA03090
+C (1) LBLRTM - A USERS' GUIDE (AVAILABLE FROM S.A. CLOUGH AT             FA03100
+C                    THE ABOVE ADDRESS)                                  FA03110
+C        SEE ALSO:                                                       FA03120
+C          FASCODE - FAST ATMOSPHERIC SIGNATURE CODE                     FA03130
+C          (SPECTRAL TRANSMITTANCE AND RADIANCE)                         FA03140
+C                                                       AFGL-TR-78-0081  FA03150
+C                                                                        FA03160
+C (2) AIR MASS COMPUTER PROGRAM FOR ATMOSPHERIC TRANSMITTANCE/RADIANCE:  FA03170
+C     FSCATM                                                             FA03180
+C        W. O. GALLERY, F. X. KNEIZYS, AND S. A. CLOUGH                  FA03190
+C                                                       AFGL-TR-83-0065  FA03200
+C                                                                        FA03210
+C (3) AFGL ATMOSPHERIC CONSTITUENT PROFILES (0-120 KM)                   FA03220
+C        G. P. ANDERSON, S. A. CLOUGH, F.X. KNEIZYS, J. H. CHETWYND      FA03230
+C        AND E. P. SHETTLE                                               FA03240
+C                                                       AFGL-TR-86-0110  FA03250
+C                                                                        FA03260
+C (4) ATMOSPHERIC TRANSMITTANCE/RADIANCE:                                FA03270
+C     COMPUTER CODE LOWTRAN 5                                            FA03280
+C                                                       AFGL-TR-80-0067  FA03290
+C                                                                        FA03300
+C**********************************************************************  FA03310
+C                                                                        FA03320
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA03330
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA03340
+      PARAMETER (NXZOUT=MXLAY*3+MXMOL*3)
+      PARAMETER (NX1=2*MXLAY,NX2=2*MXLAY+MXMOL*MXLAY,NX3=9*MXLAY+2)
+C                                                                        FA03360
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA03370
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA03380
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA03390
+      COMMON /MSACCT/ IOD,IDIR,ITOP,ISURF,MSPTS,MSPANL(MXLAY),           FA03400
+     *                MXPNL1(MXLAY),MSLAY1,ISFILE,JSFILE,KSFILE,         FA03410
+     *                LSFILE,MSFILE,IEFILE,JEFILE,KEFILE                 FA03420
+      COMMON /MSCONS/ AIRMSS(MXLAY),TGRND,SEMIS(3),HMINMS,HMAXMS,        FA03430
+     *                MSFLAG,MSWIT,IODFIL,MSTGLE                         FA03440
+      COMMON /ADRIVE/ LOWFLG,IREAD,MODEL,ITYPE,n_zero,NOP,H1F,H2F,       FA03450
+     *                ANGLEF,RANGEF,BETAF,LENF,V1,V2,RO,IPUNCH,XVBAR,    FA03460
+     *                HMINF,PHIF,IERRF,HSPACE                            FA03470
+                                                                                
+      COMMON /c_drive/ ref_lat,hobs,ibmax_b,immax_b,                            
+     *                 lvl_1_2,jchar_st(10,2),wm(mxzmd)                         
+c                                                                               
+      character*1 jchar_st                                                      
+c                                                                               
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,        FA03480
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA03490
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                             
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+C                                                                        FA03530
+C     BLANK COMMON FOR ZMDL                                              FA03540
+C                                                                        FA03550
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA03560
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA03570
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA03580
+C                                                                        FA03590
+      CHARACTER*8      HMOD                                             &FA03600
+C                                                                        FA03610
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),   FA03630
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),        FA03640
+     *       AMTP(MXMOL,MXPDIM)                                          FA03650
+C                                                                        FA03660
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)  FA03670
+C                                                                        FA03680
+      CHARACTER*8      HMOLS                                            &FA03690
+C                                                                        FA03700
+      COMMON /HMOLS/ HMOLS(MXMOL),JUNIT(MXMOL),WMOL(MXMOL),JUNITP,       FA03710
+     *               JUNITT                                              FA03720
+      COMMON /HMOLC/ HMOLC(MXMOL)                                        FA03730
+      CHARACTER*8 HMOLC                                                  FA03740
+C                                                                        FA03750
+C     ********************************************************           FA03760
+C                                                                        FA03770
+C        NEW DATA FORMAT : GENERIC UNITS                                 FA03780
+C                                                                        FA03790
+C                                                                        FA03800
+C     *********************************************************          FA03810
+C                                                                        FA03820
+      COMMON /PROFILE/ NLAYRS,PBAR(MXLAY),TBAR(MXLAY),
+     *                 PZ(0:MXLAY),TZ(0:MXLAY)
+      COMMON /MANE1/ P0,TEMP0,DVXM,H2OSLF,WTOT,ALBAR,ADBAR,AVBAR,
+     *                 AVFIX,LAYRFX,SECNT0,SAMPLE,DVSET,ALFAL0,AVMASS,
+     *                 DPTMIN,DPTFAC,ALTAV,AVTRAT,TDIFF1,TDIFF2,ALTD1,
+     *                 ALTD2,ANGLE,IANT,LTGNT,LH1,LH2,IPFLAG,PLAY,TLAY,
+     *                 EXTID(10)
+      COMMON /SPECIES/ COLDRY(MXLAY),AMOUNT(MXMOL,MXLAY),WN2L(MXLAY),
+     *                 CDUM(MXLAY),NMOLEC
+      COMMON /PATHD1/ DVL(MXLAY),WTOTL(MXLAY),
+     *                 ALBL(MXLAY),ADBL(MXLAY),AVBL(MXLAY),
+     *                 H2OSL(MXLAY),IPATH(MXLAY),ITYL(MXLAY),
+     *                 SECNTA(MXLAY),HT1,HT2,ALTZ(0:MXLAY)
+      CHARACTER*8  EXTID                                                        
+                                                                                
+      COMMON /BNDRY/ ZBND(MXFSC),PBND(MXFSC),TBND(MXFSC),ALORNZ(MXFSC),  FA03930
+     *              ADOPP(MXFSC),AVOIGT(MXFSC)                           FA03940
+      COMMON /ZOUTP/ ZOUT(MXLAY),SOUT(MXLAY),RHOSUM(MXLAY),              FA03950
+     *               AMTTOT(MXMOL),AMTCUM(MXMOL),ISKIP(MXMOL)            FA03960
+      COMMON /PCHINF/ MUNITS,CTYPE(MXLAY)                                       
+      COMMON /FIXITYL/ IFXTYP                                                   
+      DIMENSION XZOUT(NXZOUT),WMT(MXMOL)
+      DIMENSION X1(NX1),X2(NX2),X3(NX3)
+      DIMENSION TTMP(2),WVTMP(2),PTMP(2),ZTMP(2)                                
+                                                                                
+      COMMON /IADFLG/ NSPCRT,IMRGSAV                                            
+      dimension densave(mxzmd)                                                  
+C                                                                        FA03980
+      EQUIVALENCE (ZOUT(1),XZOUT(1))
+      EQUIVALENCE (PBAR(1),X1(1)),(COLDRY(1),X2(1)),(DVL(1),X3(1))
+C                                                                        FA04000
+      character*8 xid(10)                                                       
+      CHARACTER*48 CFORM1,CFORM2                                         FA04010
+      CHARACTER*8 COTHER                                                 FA04020
+      CHARACTER*7 PAFORM(2)                                              FA04030
+      CHARACTER*4 HT1HRZ,HT2HRZ,HT1SLT,HT2SLT,PZFORM(5),  ht1,ht2               
+      CHARACTER*3 CTYPE                                                         
+      CHARACTER*10 SREF_LAT                                                     
+      REAL REF_LAT                                                              
+C                                                                        FA04050
+                                                                                
+      DATA COTHER / 'OTHER   '/                                          FA04060
+      DATA AVRATS / 1.5 /,TDIF1S / 5.0 /,TDIF2S / 8.0 /                  FA04070
+      DATA HT1HRZ / ' AT '/,HT2HRZ / ' KM '/,HT1SLT / ' TO '/,           FA04080
+     *     HT2SLT / ' KM '/                                              FA04090
+      DATA PZFORM / 'F8.6','F8.5','F8.4','F8.3','F8.2'/                  FA04100
+      DATA PAFORM / '1PE15.7','  G15.7'/                                 FA04110
+      DATA CFORM1 / '(1PE15.7,0PF10.2,10X,A3,I2,1X,2(F7.3,F8.3,F7.2))'/  FA04120
+      DATA CFORM2 / '(  G15.7,0PF10.2,10X,A3,I2,23X,(F7.3,F8.3,F7.2))'/  FA04130
+      DATA IERROR / 0 /, IPASS / 0 /                                            
+      DATA T296 /296.0/                                                         
+C                                                                        FA04150
+C     IAMT = 1: CALCULATE AMOUNTS, IAMT = 2: DO NOT CALCULATE AMOUNTS    FA04160
+C                                                                        FA04170
+      DATA IAMT / 1 /                                                    FA04180
+C                                                                        FA04190
+C     AIRMS1 IS ONE AIRMASS OR THE TOTAL AMOUNT FOR A VERTICAL PATH      FA04200
+C     FROM GROUND TO SPACE                                               FA04210
+C                                                                        FA04220
+      DATA AIRMS1 / 2.153E25 /                                           FA04230
+      SECNT0 = 1.0                                                       FA04240
+c                                                                               
+      DEG = 180.0/PI                                                     FA04260
+C                                                                        FA04270
+C     GCAIR IS THE GAS CONSTANT FOR RHO IN MOL CM(-3), P IN MB, AND      FA04280
+C     T IN K                                                             FA04290
+C                                                                        FA04300
+      GCAIR = 1.0E-3*GASCON/AVOGAD                                       FA04310
+C                                                                        FA04320
+C     ADCON IS THE CONSTANT FOR THE DOPPLER HALFWIDTH                    FA04330
+C                                                                        FA04340
+      ADCON = SQRT(2.0* LOG(2.0)*GASCON/CLIGHT**2)                       FA04350
+C                                                                        FA04360
+C     ZERO OUT COMMON BLOCKS                                             FA04370
+C                                                                        FA04380
+      DO 10 N = 1, MXMOL                                                 FA04390
+         WMT(N) = 0.0                                                    FA04400
+   10 CONTINUE                                                           FA04410
+C                                                                        FA04420
+C       COMMON /DEAMT/ DRYAIR with BLANK COMMON RFNDXM                   FA04430
+C                                                                        FA04440
+      DO 20 N = 1, IMDIM                                                 FA04450
+         DRYAIR(N) = 0.                                                         
+         RFNDXM(N) = 0.                                                  FA04460
+   20 CONTINUE                                                           FA04470
+      DO 30 N = 1, IPDIM                                                 FA04480
+         IF (N.LE.IPDIM-2) THEN                                          FA04490
+            ZPTH(N) = 0.                                                 FA04500
+            PP(N) = 0.                                                   FA04510
+            TP(N) = 0.                                                   FA04520
+            RFNDXP(N) = 0.                                               FA04530
+            SP(N) = 0.                                                   FA04540
+            PPSUM(N) = 0.                                                FA04550
+            TPSUM(N) = 0.                                                FA04560
+            RHOPSM(N) = 0.                                               FA04570
+         ENDIF                                                           FA04580
+C                                                                        FA04590
+C     COMMON /DEAMT/ DENP  with BLANK COMMON AMTP                        FA04600
+C                                                                        FA04610
+         DO 28 M = 1, KDIM                                               FA04620
+            DENP(M,N) = 0.                                               FA04630
+            AMTP(M,N) = 0.                                               FA04640
+ 28      CONTINUE                                                               
+ 30   CONTINUE                                                           FA04650
+C                                                                        FA04660
+C     /PROFILE/, /SPECIES/, & /PATHD1/
+C                                                                        FA04680
+      DO 41 L=1,NX1
+         X1(L) = 0.0
+   41 CONTINUE
+      DO 42 L=1,NX2
+         X2(L) = 0.0
+   42 CONTINUE
+      DO 43 L=1,NX3
+         X3(L) = 0.0
+   43 CONTINUE
+C                                                                        FA04720
+C     /ZOUT/                                                             FA04730
+C                                                                        FA04740
+      DO 50 N = 1, NXZOUT                                                FA04750
+         XZOUT(N) = 0.0                                                  FA04760
+   50 CONTINUE                                                           FA04770
+C                                                                        FA04780
+      IF (IREAD.LE.0) THEN                                               FA04790
+C                                                                        FA04800
+C     READ CONTROL CARD 3.1                                              FA04810
+C                                                                        FA04820
+                                                                                
+         READ (IRD,900) MODEL,ITYPE,IBMAX_B,n_zero,NOPRNT,NMOL,IPUNCH,   FA04830
+     *                  IFXTYP,MUNITS,RE,HSPACE,XVBAR,dumrd,sref_lat            
+         XVBAR = 1.0
+         ITYPE = 2
+         NOZERO = 1
+                                                                                
+c Set REF_LAT variable based on input character string in SREF_LAT              
+         IF (SREF_LAT .eq. '          ') THEN                                   
+            REF_LAT = 45.0                                                      
+         ELSE                                                                   
+            READ(SREF_LAT,"(F10.3)") REF_LAT                                    
+         ENDIF                                                                  
+                                                                                
+c     check to see that a value for dumrd, formerly co2mx,                      
+c     has not been entered. Specified mixing ratios and accumulated             
+c     column amounts are now handled in lblrtm for all molecules.               
+                                                                                
+         if (dumrd .ne. 0.) then                                                
+            write (*,*) ' - a value has been read for co2mx'                    
+            write (*,*) ' - this option has been replaced by a'                 
+            write (*,*) '   similar option for all molecular species'           
+            write (*,*) ' - see latest instructions  '                          
+            stop ' lblatm.f:  co2mx '                                           
+         endif                                                                  
+                                                                                
+         IBMAX = ABS(IBMAX_B)                                                   
+      ENDIF                                                              FA04850
+C                                                                        FA04860
+      NOP = NOPRNT                                                       FA04870
+      RO = RE                                                            FA04880
+                                                                                
+      IF (NOPRNT.GE.0) THEN                                                     
+         WRITE (IPR,902)                                                    FA04
+         WRITE (IPR,904) MODEL,ITYPE,IBMAX,n_zero,NOPRNT,NMOL,IPUNCH,       FA04
+     *                   IFXTYP,MUNITS,RE,HSPACE,XVBAR,REF_LAT                  
+      ENDIF                                                                     
+c                                                                               
+      M = MODEL                                                          FA04940
+      IF (NMOL.EQ.0) NMOL = KMXNOM                                       FA04950
+      IF (ITYPE.LT.1.OR.ITYPE.GT.3) GO TO 290                            FA04960
+      IF (M.LT.0.OR.M.GT.6) GO TO 290                                    FA04970
+      IF (IBMAX.GT.IBDIM) GO TO 290                                      FA04980
+      IF (NMOL.GT.KDIM) GO TO 290                                        FA04990
+                                                                                
+      IF (IPUNCH.ge.1 .and. ipass.eq.0) then                                    
+                                                                                
+c        Tape7 only opened if ipu selected and first time through               
+         ipass = 1                                                              
+         OPEN (UNIT=IPU,FILE='TAPE7',STATUS='UNKNOWN')                          
+         write (ipu,905) ipass, xid                                             
+      endif                                                                     
+c                                                                               
+      if (ipunch.eq.2 .and. ipass.eq.1) then                                    
+                                                                                
+c     open these files if derivatives are being calculated                      
+         ipass = 2                                                              
+         open (97,FILE='AJ_atmosphere',                                         
+     *                          STATUS='UNKNOWN',FORM='UNFORMATTED')            
+         write (97)    xid                                                      
+                                                                                
+         if (IXSECT.GE.1) then                                                  
+            open (20,file='AJ_xs_amnts',                                        
+     *                        status='unknown',form = 'unformatted')            
+         endif                                                                  
+      endif                                                                     
+c                                                                               
+      IF (RE.NE.0.0) GO TO 60                                            FA05010
+      RE = 6371.23                                                       FA05020
+      IF (M.EQ.1) RE = 6378.39                                           FA05030
+      IF (M.EQ.4.OR.M.EQ.5) RE = 6356.91                                 FA05040
+      RO = RE                                                            FA05050
+   60 CONTINUE                                                           FA05060
+C                                                                        FA05070
+      IF (HSPACE.EQ.0.) HSPACE = 100.                                    FA05080
+      IF (XVBAR.LE.0.) THEN                                              FA05090
+         XVBAR = (V1+V2)/2.                                              FA05100
+         IF (V2.LT.V1) XVBAR = V1                                        FA05110
+      ENDIF                                                              FA05120
+c      if (REF_LAT .eq.0) REF_LAT = 45.                                         
+                                                                                
+C                                                                        FA05130
+      IF (NOPRNT.GE.0) THEN                                                     
+         WRITE (IPR,906)                                                        
+         WRITE (IPR,904) MODEL,ITYPE,IBMAX,n_zero,NOPRNT,NMOL,IPUNCH,       FA05
+     *                   IFXTYP,MUNITS,RE,HSPACE,XVBAR,REF_LAT              FA05
+      ENDIF                                                                     
+C                                                                        FA05170
+      IF (ITYPE.EQ.1) THEN                                               FA05180
+C                                                                        FA05190
+C                                                                        FA05200
+C     =>   HORIZONTAL PATH SELECTED                                      FA05210
+C                                                                        FA05220
+C                                                                        FA05230
+         IF (NOPRNT.GE.0) WRITE (IPR,908)                                       
+                                                                                
+C                                                                        FA05250
+C        READ IN CONTROL CARD 3.2                                        FA05260
+C                                                                        FA05270
+         IF (IREAD.LE.0) READ (IRD,910) H1F,RANGEF                       FA05280
+         RANGE = RANGEF                                                  FA05290
+         ZH = H1F                                                        FA05300
+         H1 = ZH                                                         FA05310
+         H2 = 0.                                                         FA05320
+         H2F = H2                                                        FA05330
+         ANGLE = 0.                                                      FA05340
+         ANGLEF = ANGLE                                                  FA05350
+         BETA = 0.                                                       FA05360
+         BETAF = BETA                                                    FA05370
+         LEN = 0                                                         FA05380
+         LENF = LEN                                                      FA05390
+         IF (NOPRNT.GE.0)  WRITE (IPR,912) ZH,RANGE                             
+C                                                                        FA05410
+C        SET UP THE ATMOSPHERIC PROFILE                                  FA05420
+C                                                                        FA05430
+         CALL MDLATM (ITYPE,M,IREAD,HSPACE)                                     
+C                                                                        FA05450
+         IF (IMMAX.EQ.1) THEN                                            FA05460
+            ZH = ZMDL(1)                                                 FA05470
+            H1F = ZH                                                     FA05480
+            H1 = ZH                                                      FA05490
+            PH = PM(1)                                                   FA05500
+            TH = TM(1)                                                   FA05510
+            RHOBAR = ALOSMT*PH*TZERO/(PZERO*TH)                          FA05520
+            DO 70 K = 1, NMOL                                            FA05530
+               DENP(K,1) = DENM(K,1)                                     FA05540
+   70       CONTINUE                                                     FA05550
+            DENW(1) = DENM(1,1)                                          FA05560
+            GO TO 110                                                    FA05570
+         ENDIF                                                           FA05580
+C                                                                        FA05590
+C        INTERPOLATE ATMOSPHERIC PROFILE DENSITIES TO ZH                 FA05600
+C                                                                        FA05610
+         DO 80 IM = 2, IMMAX                                             FA05620
+            IF (ZH.LT.ZMDL(IM)) GO TO 90                                 FA05630
+   80    CONTINUE                                                        FA05640
+         IM = IMMAX                                                      FA05650
+   90    CONTINUE                                                        FA05660
+         A = (ZH-ZMDL(IM-1))/(ZMDL(IM)-ZMDL(IM-1))                       FA05670
+         CALL EXPINT (PH,PM(IM-1),PM(IM),A)                              FA05680
+         TH = TM(IM-1)+(TM(IM)-TM(IM-1))*A                               FA05690
+         RHOBAR = ALOSMT*PH*TZERO/(PZERO*TH)                             FA05700
+         DO 100 K = 1, NMOL                                              FA05710
+            CALL EXPINT (DENP(K,1),DENM(K,IM-1),DENM(K,IM),A)            FA05720
+  100    CONTINUE                                                        FA05730
+C                                                                        FA05740
+  110    CONTINUE                                                               
+         IF (NOPRNT.GE.0) THEN                                                  
+            WRITE (IPR,914) HMOD,ZH,PH,TH,(HMOLS(K),K=1,NMOL)               FA05
+            WRITE (IPR,916) RHOBAR,(DENP(K,1),K=1,NMOL)                     FA05
+         ENDIF                                                                  
+C                                                                        FA05770
+C        COMPUTE AMOUNTS FOR A HORIZONTAL PATH                           FA05780
+C                                                                        FA05790
+         DO 120 K = 1, NMOL                                              FA05800
+            AMOUNT(K,1) = DENP(K,1)*RANGE*1.0E+5                         FA05810
+  120    CONTINUE                                                        FA05820
+         AMTAIR = RHOBAR*RANGE*1.0E+5                                    FA05830
+         IF (NOPRNT.GE.0) THEN                                                  
+            WRITE (IPR,918) HMOD,ZH,PH,TH,RANGE,(HMOLS(K),K=1,NMOL)         FA05
+            WRITE (IPR,920) AMTAIR,(AMOUNT(K,1),K=1,NMOL)                   FA05
+         ENDIF                                                                  
+         IPATH(1) = 0                                                    FA05860
+         LMAX = 1                                                        FA05870
+         NLAYRS = 1                                                      FA05880
+C                                                                        FA05890
+         SUMAMT = 0.                                                     FA05900
+         DO 130 K = 1, NMOL                                              FA05910
+            SUMAMT = SUMAMT+AMOUNT(K,1)                                  FA05920
+  130    CONTINUE                                                        FA05930
+         WN2L(1) = AMTAIR-SUMAMT                                         FA05940
+C                                                                        FA05950
+         PBAR(1) = PH                                                    FA05960
+         TBAR(1) = TH                                                    FA05970
+         ALTZ(0) = -RANGE                                                FA05980
+         ZOUT(1) = ZH                                                    FA05990
+         IOUTMX = 1                                                      FA06000
+         SECNTA(1) = 1.                                                  FA06010
+         ALTZ(1) = ZH                                                    FA06020
+         ht1 = ht1hrz                                                           
+         ht2 = ht2hrz                                                           
+C                                                                        FA06050
+C        > Write atmosphere to TAPE7 (in E15.7 format) <                 FA06060
+C                                                                        FA06070
+         IF (IPUNCH.ge.1) THEN                                           FA06080
+           IFORM = 1                                                            
+           WRITE (IPU,924) IFORM,LMAX,NMOL,SECNT0,HMOD,RANGE,ZH          FA06090
+C                                                                               
+C           -------------------------------------                               
+C           > Write molecular information in    <                               
+C           >  - mixing ratio if MUNITS is 1    <                               
+C           >  - column density if MUNITS is 0  <                               
+C           -------------------------------------                               
+C                                                                               
+           IF (MUNITS.EQ.1) THEN                                         FA06140
+              DRAIR =  WN2L(1)                                           FA06150
+              DO 135 M = 2,NMOL                                                 
+                 DRAIR = DRAIR + AMOUNT(M,1)                                    
+ 135          CONTINUE                                                          
+C                                                                               
+C             > If DRAIR is zero, then write out AMOUNT only    <               
+C             > (since AMOUNT zero => mixing ratio zero)        <               
+C                                                                               
+              IF (DRAIR.EQ.0 .AND. NOPRNT.GE.0) THEN                            
+                 WRITE (IPU,926) PH,TH,IPATH(1),ZH,ZH,                          
+     *                           (AMOUNT(K,1),K=1,7),WN2L(1),                   
+     *                           (AMOUNT(K,1),K=8,NMOL)                         
+              ELSEIF (NOPRNT.GE.0) THEN                                         
+                 WRITE (IPU,926) PH,TH,IPATH(1),ZH,ZH,                   FA06160
+     *                           (AMOUNT(K,1)/DRAIR,K=1,7),WN2L(1),      FA06170
+     *                           (AMOUNT(K,1)/DRAIR,K=8,NMOL)            FA06180
+              ENDIF                                                             
+           ELSE                                                          FA06190
+C                                                                               
+C             Test to make sure there are no fractional molecular               
+C             amounts written out (will cause PATH to assume                    
+C             mixing ratio)                                                     
+C                                                                               
+              DO 137 K=1,NMOL                                                   
+                 IF (AMOUNT(K,1).LT.1.) THEN                                    
+                    IF (NOPRNT.GE.0) WRITE(IPR,1000) K,AMOUNT(K,1)              
+                    AMOUNT(K,1) = 0.0                                           
+                 ENDIF                                                          
+ 137          CONTINUE                                                          
+C                                                                               
+              IF (NOPRNT.GE.0)                                                  
+     *             WRITE (IPU,926) PH,TH,IPATH(1),ZH,ZH,                 FA06240
+     *                            (AMOUNT(K,1),K=1,7),WN2L(1),                  
+     *                            (AMOUNT(K,1),K=8,NMOL)                        
+           ENDIF                                                         FA06270
+        ENDIF                                                            FA06280
+C                                                                        FA06770
+      ELSE                                                               FA06780
+C                                                                        FA06790
+C                                                                        FA06800
+C     =>   SLANT PATH SELECTED                                           FA06810
+C                                                                        FA06820
+C                                                                        FA06830
+C        ITYPE = 2 OR 3: SLANT PATH THROUGH THE ATMOSPHERE               FA06840
+C                                                                        FA06850
+         IF (NOPRNT.GE.0)   WRITE (IPR,930) ITYPE                               
+C                                                                        FA06870
+C      >  READ IN CONTROL CARD 3.2 CONTAINING SLANT PATH PARAMETERS <    FA06880
+C                                                                        FA06890
+         IF (IREAD.LE.0)                                                 FA06900
+     *         READ (IRD,932) H1F,H2F,ANGLEF,RANGEF,BETAF,LENF,HOBS      FA06910
+         ANGLEF = 0.
+         H1 = H1F                                                        FA06920
+         H2 = H2F                                                        FA06930
+         ANGLE = ANGLEF                                                  FA06940
+         RANGE = RANGEF                                                  FA06950
+         BETA = BETAF                                                    FA06960
+         LEN = LENF                                                      FA06970
+         IF (NOPRNT.GE.0) THEN                                                  
+            IF (IBMAX_B .LT. 0) THEN                                            
+               WRITE (IPR,933) H1,H2,ANGLE,RANGE,BETA,LEN                       
+            ELSE                                                                
+               WRITE (IPR,934) H1,H2,ANGLE,RANGE,BETA,LEN                   FA06
+            ENDIF                                                               
+         ENDIF                                                                  
+C                                                                        FA06990
+C        > GENERATE OR READ IN LBLRTM BOUNDARY LAYERS <                  FA07000
+C                                                                        FA07010
+         IF (IBMAX.EQ.0) THEN                                            FA07020
+C                                                                        FA07030
+C           > SELECT AUTOMATIC LAYERING <                                FA07040
+C                                                                        FA07050
+            IF (IREAD.LE.0) THEN                                         FA07060
+               READ (IRD,936) AVTRAT,TDIFF1,TDIFF2,ALTD1,ALTD2           FA07070
+               IF (AVTRAT.EQ.0.0) AVTRAT = AVRATS                        FA07080
+               IF (TDIFF1.EQ.0.0) TDIFF1 = TDIF1S                        FA07090
+               IF (TDIFF2.EQ.0.0) TDIFF2 = TDIF2S                        FA07100
+               IF ((ALTD2.LE.0).OR.(ALTD2.LE.ALTD1)) THEN                FA07110
+                  ALTD1 = 0.                                             FA07120
+                  ALTD2 = 100.                                           FA07130
+               ENDIF                                                     FA07140
+               IF (NOPRNT.GE.0)                                                 
+     *              WRITE (IPR,938) AVTRAT,TDIFF1,TDIFF2,ALTD1,ALTD2          FA
+               IF (AVTRAT.LE.1.0.OR.TDIFF1.LE.0.0.OR.TDIFF2.LE.0.0)      FA07160
+     *              GO TO 320                                            FA07170
+            ENDIF                                                        FA07180
+            GO TO 150                                                    FA07190
+C                                                                        FA07200
+         ENDIF                                                           FA07210
+C                                                                        FA07220
+C        > READ IN LBLRTM BOUNDARY LAYERS <                              FA07230
+C                                                                        FA07240
+         IF (IREAD.LE.0) THEN                                            FA07250
+            IF (IBMAX_B .LT. 0) THEN                                            
+               READ (IRD,940) (PBND(IB),IB=1,IBMAX)                             
+               IF (NOPRNT.GE.0)                                                 
+     *              WRITE (IPR,943) (IB,PBND(IB),IB=1,IBMAX)                    
+            ELSE                                                                
+               READ (IRD,940) (ZBND(IB),IB=1,IBMAX)                      FA07260
+               IF (NOPRNT.GE.0)                                                 
+     *              WRITE (IPR,942) (IB,ZBND(IB),IB=1,IBMAX)                  FA
+            ENDIF                                                               
+         ENDIF                                                           FA07280
+C                                                                        FA07290
+         IF (IBMAX.EQ.0) GO TO 150                                       FA07300
+                                                                                
+         IF (IBMAX_B .GT. 0) THEN                                               
+            DO 140 IB = 2, IBMAX                                         FA07310
+               IF (ZBND(IB).LE.ZBND(IB-1)) GO TO 300                     FA07320
+  140       CONTINUE                                                     FA07330
+         ENDIF                                                                  
+         IF (IBMAX_B .LT. 0) THEN                                               
+           DO 145 IB = 2,IBMAX                                                  
+               IF (PBND(IB) .GE. PBND(IB-1)) GO TO 305                          
+  145        CONTINUE                                                           
+         ENDIF                                                                  
+ 150    CONTINUE                                                        FA07340 
+                                                                                
+C                                                                        FA07350
+C        > SET UP ATMOSPHERIC PROFILE <                                  FA07360
+C                                                                        FA07370
+                                                                                
+         CALL MDLATM (ITYPE,M,IREAD,HSPACE)                                     
+                                                                                
+                                                                                
+C INTERPOLATE PBND GRID ONTO ZBND GRID.                                         
+                                                                                
+C TO ENSURE THAT CALCULATED/INPUT ZMDL'S WILL MATCH CALCULATED USER-LEVEL       
+C ALTITUDES, A COMBINATION OF INTERPOLATION AND HYDROSTATICS ARE USED.          
+C ZBND = A * F1(P) + (1 - A) * F2(P), WHERE                                     
+C F1(P) = INTERPOLATION IN LN(P), F2(P) = HYDROSTATIC CALCULATION               
+                                                                                
+         IF (IBMAX_B .LT. 0) THEN                                               
+                                                                                
+            ISTART = 2                                                          
+                                                                                
+            DO 160 IP=1,IBMAX                                                   
+               PTMP(1) = 0.0                                                    
+               TTMP(1) = 0.0                                                    
+               WVTMP(1) = 0.0                                                   
+               ZTMP(1) = 0.0                                                    
+                                                                                
+               PTMP(2) = 0.0                                                    
+               TTMP(2) = 0.0                                                    
+               WVTMP(2) = 0.0                                                   
+               ZTMP(2) = 0.0                                                    
+                                                                                
+               DO 161 LIP=ISTART,IMMAX                                          
+                  IF (PBND(IP) .GT. PM(LIP)) GO TO 162                          
+ 161              CONTINUE                                                      
+                  LIP=IMMAX                                                     
+ 162              CONTINUE                                                      
+                  IF (PBND(IP) .EQ. PM(LIP-1)) THEN                             
+                     ZBND(IP) = ZMDL(LIP-1)                                     
+                     TBND(IP) = TM(LIP-1)                                       
+                  ELSE                                                          
+                     IF(PBND(IP) .EQ. PM(LIP)) THEN                             
+                        ZBND(IP) = ZMDL(LIP)                                    
+                        TBND(IP) = TM(LIP)                                      
+                     ELSE                                                       
+                                                                                
+C PERFORM INTERPOLATION IN LN(PM)                                               
+                        HIP =  (ZMDL(LIP)-ZMDL(LIP-1))/                         
+     &                        LOG(PM(LIP)/PM(LIP-1))                            
+                        ZINT = ZMDL(LIP-1)+                                     
+     &                       HIP* LOG(PBND(IP)/PM(LIP-1))                       
+                                                                                
+C PERFORM ALTITUDE CALCULATION USING HYDROSTATIC EQUATION                       
+                        PTMP(1) = PM(LIP-1)                                     
+                        ZTMP(1) = ZMDL(LIP-1)                                   
+                        TTMP(1) = TM(LIP-1)                                     
+                        WVTMP(1) = DENW(LIP-1)                                  
+                                                                                
+                        PTMP(2) = PBND(IP)                                      
+                                                                                
+                        TIP = (TM(LIP)-TM(LIP-1))/                              
+     &                        LOG(PM(LIP)/PM(LIP-1))                            
+                        TTMP(2) = TM(LIP-1)+                                    
+     &                       TIP* LOG(PBND(IP)/PM(LIP-1))                       
+                                                                                
+                        WVIP =  (DENW(LIP)-DENW(LIP-1))/                        
+     &                        LOG(PM(LIP)/PM(LIP-1))                            
+                        WVTMP(2) =  DENW(LIP-1) +                               
+     &                       WVIP* LOG(PBND(IP)/PM(LIP-1))                      
+                        CALL CMPALT(2,PTMP,TTMP,                                
+     &                       WVTMP,ZTMP(1),REF_LAT,ZTMP)                        
+                                                                                
+C COMBINE THE INTERPOLATION AND THE HYDROSTATIC CALCULATION                     
+                                                                                
+                        RATP =  LOG(PBND(IP)/PM(LIP-1))/                        
+     &                        LOG(PM(LIP)/PM(LIP-1))                            
+                                                                                
+                        A = RATP**3                                             
+                                                                                
+                        ZBND(IP) = A*ZINT + (1-A)*ZTMP(2)                       
+                        TBND(IP) = TTMP(2)                                      
+                     ENDIF                                                      
+               ENDIF                                                            
+                                                                                
+               ISTART = LIP                                                     
+                                                                                
+ 160           CONTINUE                                                         
+                                                                                
+C INTERPOLATE H1, H2 ONTO ALTITUDE GRID                                         
+            PTMP(1) = 0.0                                                       
+            TTMP(1) = 0.0                                                       
+            WVTMP(1) = 0.0                                                      
+            ZTMP(1) = 0.0                                                       
+                                                                                
+            PTMP(2) = 0.0                                                       
+            TTMP(2) = 0.0                                                       
+            WVTMP(2) = 0.0                                                      
+            ZTMP(2) = 0.0                                                       
+                                                                                
+            DO 166 LIP = 2,IMMAX                                                
+               IF (H1 .GT. PM(LIP)) GO TO 167                                   
+ 166           CONTINUE                                                         
+               LIP = IMMAX                                                      
+ 167        CONTINUE                                                            
+            IF (H1 .EQ. PM(LIP-1)) THEN                                         
+               H1 = ZMDL(LIP-1)                                                 
+            ELSE                                                                
+               IF(H1 .EQ. PM(LIP)) THEN                                         
+                  H1 = ZMDL(LIP)                                                
+               ELSE                                                             
+                                                                                
+C PERFORM INTERPOLATION IN LN(PM)                                               
+                  HIP =  (ZMDL(LIP)-ZMDL(LIP-1))/                               
+     &                  LOG(PM(LIP)/PM(LIP-1))                                  
+                  ZINT = ZMDL(LIP-1)+                                           
+     &                 HIP* LOG(H1/PM(LIP-1))                                   
+                                                                                
+C PERFORM ALTITUDE CALCULATION USING HYDROSTATIC EQUATION                       
+                  PTMP(1) = PM(LIP-1)                                           
+                  ZTMP(1) = ZMDL(LIP-1)                                         
+                  TTMP(1) = TM(LIP-1)                                           
+                  WVTMP(1) = DENW(LIP-1)                                        
+                                                                                
+                  PTMP(2) = H1                                                  
+                                                                                
+                  TIP = (TM(LIP)-TM(LIP-1))/                                    
+     &                  LOG(PM(LIP)/PM(LIP-1))                                  
+                  TTMP(2) = TM(LIP-1)+                                          
+     &                 TIP* LOG(H1/PM(LIP-1))                                   
+                                                                                
+                  WVIP =  (DENW(LIP)-DENW(LIP-1))/                              
+     &                  LOG(PM(LIP)/PM(LIP-1))                                  
+                  WVTMP(2) =  DENW(LIP-1) +                                     
+     &                 WVIP* LOG(H1/PM(LIP-1))                                  
+                  CALL CMPALT(2,PTMP,TTMP,                                      
+     &                 WVTMP,ZTMP(1),REF_LAT,ZTMP)                              
+                                                                                
+C COMBINE THE INTERPOLATION AND THE HYDROSTATIC CALCULATION                     
+                                                                                
+                  RATP =  LOG(H1/PM(LIP-1))/                                    
+     &                        LOG(PM(LIP)/PM(LIP-1))                            
+                                                                                
+                  A = RATP**3                                                   
+                                                                                
+                  H1 = A*ZINT + (1-A)*ZTMP(2)                                   
+               ENDIF                                                            
+            ENDIF                                                               
+                                                                                
+            IF (H1 .LT. 0.0) THEN                                               
+               PRINT 946, H1,ZTMP(1)                                            
+               IF (NOPRNT.GE.0) WRITE (IPR,946) H1,ZTMP(1)                      
+               STOP ' COMPUTED ALTITUDE VALUE OF H1 IS NEGATIVE'                
+            ENDIF                                                               
+                                                                                
+            PTMP(1) = 0.0                                                       
+            TTMP(1) = 0.0                                                       
+            WVTMP(1) = 0.0                                                      
+            ZTMP(1) = 0.0                                                       
+                                                                                
+            PTMP(2) = 0.0                                                       
+            TTMP(2) = 0.0                                                       
+            WVTMP(2) = 0.0                                                      
+            ZTMP(2) = 0.0                                                       
+                                                                                
+            DO 168 LIP = 2,IMMAX                                                
+               IF (H2 .GT. PM(LIP)) GO TO 169                                   
+ 168           CONTINUE                                                         
+               LIP = IMMAX                                                      
+ 169        CONTINUE                                                            
+            IF (H2 .EQ. PM(LIP-1)) THEN                                         
+               H2 = ZMDL(LIP-1)                                                 
+            ELSE                                                                
+               IF(H2 .EQ. PM(LIP)) THEN                                         
+                  H2 = ZMDL(LIP)                                                
+               ELSE                                                             
+C PERFORM INTERPOLATION IN LN(PM)                                               
+                  HIP =  (ZMDL(LIP)-ZMDL(LIP-1))/                               
+     &                  LOG(PM(LIP)/PM(LIP-1))                                  
+                  ZINT = ZMDL(LIP-1)+                                           
+     &                 HIP* LOG(H2/PM(LIP-1))                                   
+                                                                                
+C PERFORM ALTITUDE CALCULATION USING HYDROSTATIC EQUATION                       
+                  PTMP(1) = PM(LIP-1)                                           
+                  ZTMP(1) = ZMDL(LIP-1)                                         
+                  TTMP(1) = TM(LIP-1)                                           
+                  WVTMP(1) = DENW(LIP-1)                                        
+                                                                                
+                  PTMP(2) = H2                                                  
+                                                                                
+                  TIP = (TM(LIP)-TM(LIP-1))/                                    
+     &                  LOG(PM(LIP)/PM(LIP-1))                                  
+                  TTMP(2) = TM(LIP-1)+                                          
+     &                 TIP* LOG(H2/PM(LIP-1))                                   
+                                                                                
+                  WVIP =  (DENW(LIP)-DENW(LIP-1))/                              
+     &                  LOG(PM(LIP)/PM(LIP-1))                                  
+                  WVTMP(2) =  DENW(LIP-1) +                                     
+     &                 WVIP* LOG(H2/PM(LIP-1))                                  
+                  CALL CMPALT(2,PTMP,TTMP,                                      
+     &                 WVTMP,ZTMP(1),REF_LAT,ZTMP)                              
+                                                                                
+C COMBINE THE INTERPOLATION AND THE HYDROSTATIC CALCULATION                     
+                                                                                
+                  RATP =  LOG(H2/PM(LIP-1))/                                    
+     &                        LOG(PM(LIP)/PM(LIP-1))                            
+                                                                                
+                  A = RATP**3                                                   
+                                                                                
+                  H2 = A*ZINT + (1-A)*ZTMP(2)                                   
+               ENDIF                                                            
+            ENDIF                                                               
+                                                                                
+            IF (H2 .LT. 0.0) THEN                                               
+               PRINT 946, H2,ZTMP(1)                                            
+               IF (NOPRNT.GE.0) WRITE (IPR,946) H2,ZTMP(1)                      
+               STOP ' COMPUTED ALTITUDE VALUE OF H2 IS NEGATIVE'                
+            ENDIF                                                               
+         ENDIF                                                                  
+                                                                                
+         IERB = 0                                                               
+         IF (IBMAX.GE.1) THEN                                            FA07400
+            IF (ZBND(1).LT.ZMDL(1)) THEN                                 FA07410
+               IERB = 1                                                  FA07420
+               IF (NOPRNT.GE.0) WRITE (IPR,944)                                 
+               IF (ABS(ZBND(1)-ZMDL(1)).LE.0.0001) THEN                  FA07440
+                  ZBND(1) = ZMDL(1)                                      FA07450
+               ELSE                                                      FA07460
+                  PRINT 946,ZBND(1),ZMDL(1)                              FA07470
+                  IF (NOPRNT.GE.0) WRITE (IPR,946) ZBND(1),ZMDL(1)              
+                  STOP ' BOUNDARIES OUTSIDE OF ATMOS'                    FA07490
+               ENDIF                                                     FA07500
+            ENDIF                                                        FA07510
+         ENDIF                                                           FA07520
+C                                                                        FA07530
+C                                                                        FA08330
+C        > COMPUTE THE REFRACTIVE INDEX PROFILE        <                 FA08340
+C        > RFNDXM IS 1.0-INDEX                         <                 FA08350
+C        > EQUATION FOR RFNDXM IS FROM LOWTRAN (REF 3) <                 FA08360
+C                                                                        FA08370
+         IF (NOPRNT.GE.0)                                                       
+     *        WRITE(IPR,*) '   - Using LOWTRAN6 refractive index -'             
+C                                                                               
+         DO 170 IM = 1, IMMAX                                            FA08380
+            PPH2O = DENM(1,IM)*PZERO*TM(IM)/(TZERO*ALOSMT)               FA08390
+C                                                                               
+C	    Approximation to refraction index (from LOWTRAN5)                         
+C                                                                               
+C           RFNDXM(IM) = ((77.46+0.459E-8*XVBAR**2)*PM(IM)/TM(IM)-       FA08400
+C    *                   (PPH2O/1013.0)*(43.49-0.347E-8*XVBAR**2))*      FA08410
+C    *                   1.0E-6                                          FA08420
+C                                                                               
+C	    Approximation to refraction index (from LOWTRAN6)                         
+C                                                                               
+            RFNDXM(IM)=((83.42+(185.08/(1.0-(XVBAR/1.14E+5)**2))+               
+     *     (4.11/(1.0-(XVBAR/6.24E+4)**2)))*(PM(IM)*288.15)/                    
+     *     (1013.25*TM(IM))-(43.49-(XVBAR/1.7E+4)**2)*(PPH2O/1013.25))          
+     *     *1.0E-06                                                             
+  170    CONTINUE                                                        FA08430
+C                                                                        FA08440
+C        > PRINT ATMOSPHERIC PROFILE <                                   FA08450
+C                                                                        FA08460
+         IF (NOPRNT.GE.0) WRITE (IPR,948) M,HMOD                                
+c                                                                               
+         IF (NOPRNT.EQ.0) THEN                                                  
+            WRITE (IPR,950) (HMOLS(K),K=1,NMOL)                             FA08
+            WRITE (IPR,952)                                                 FA08
+         ENDIF                                                                  
+c                                                                               
+         DO 180 IM = 1, IMMAX                                            FA08510
+C                                                                        FA08520
+C        > DENG=DENM(1,IM)*2.989641E-17 <                                FA08530
+C                                                                        FA08540
+            DENAIR = ALOSMT*(PM(IM)/PZERO)*(TZERO/TM(IM))                FA08550
+            densave(im) = denair                                                
+            IF (NOPRNT.EQ.0)                                                    
+     *           WRITE (IPR,954) IM,ZMDL(IM),PM(IM),TM(IM),RFNDXM(IM),          
+     *                           DENAIR,(DENM(K,IM),K=1,NMOL)                   
+                                                                                
+                                                                                
+ 180     CONTINUE                                                        FA08580
+                                                                                
+         IF (NOPRNT.EQ.0) WRITE (IPR,951) (HMOLS(K),K=1,NMOL)                   
+                                                                                
+         DO 188 IM = 1, IMMAX                                                   
+                                                                                
+c     Calculate mixing ratio, using dry air                                     
+                                                                                
+            dry_air = densave(im)-denm(1,im)                                    
+            IF (NOPRNT.EQ.0)                                                    
+     *           WRITE (IPR,954) IM,ZMDL(IM),PM(IM),TM(IM),RFNDXM(IM),          
+     *                DENsave(im),((DENM(K,IM)/DRY_AIR)*1.e6,K=1,NMOL)          
+                                                                                
+ 188     continue                                                               
+                                                                                
+c_____________________________________________________________________________  
+                                                                                
+C                                                                        FA08600
+C        > REDUCE SLANT PATH PARAMETERS TO STANDARD FORM <               FA08610
+C                                                                        FA08620
+         CALL FSCGEO (H1,H2,ANGLE,RANGE,BETA,ITYPE,LEN,HMIN,PHI,IERROR,         
+     *                HOBS)                                                     
+         IF (IERROR.NE.0) GO TO 310                                      FA08640
+C                                                                        FA08650
+C        > SET UP LBLRTM LAYER BOUNDARIES <                              FA08660
+C                                                                        FA08670
+         IF (IBMAX.NE.0) GO TO 200                                       FA08680
+C                                                                        FA08690
+C        > AUTOMATIC LAYERING SELECTED <                                 FA08700
+C                                                                        FA08710
+         HMAX =   MAX(H1,H2)                                             FA08720
+         CALL AUTLAY (HMIN,HMAX,XVBAR,AVTRAT,TDIFF1,TDIFF2,ALTD1,ALTD2,  FA08730
+     *                IERROR)                                            FA08740
+         GO TO 220                                                       FA08750
+  200    CONTINUE                                                        FA08760
+C                                                                        FA08770
+C        > USER SUPPLIED LAYERING <                                      FA08780
+C                                                                        FA08790
+         if (noprnt .ge. 0) WRITE (IPR,956)                                     
+         IF (IBMAX_B .LT. 0) THEN                                               
+            DO 205 IB = 1, IBMAX                                                
+               CALL HALFWD_P(ZBND(IB),XVBAR,PBND(IB),TBND(IB),           FA08820
+     *                   ALORNZ(IB),ADOPP(IB),AVOIGT(IB))                       
+ 205        CONTINUE                                                            
+         ELSE                                                                   
+            DO 210 IB = 1, IBMAX                                         FA08810
+               CALL HALFWD (ZBND(IB),XVBAR,PBND(IB),TBND(IB),                   
+     *                   ALORNZ(IB),ADOPP(IB),AVOIGT(IB))                FA08830
+  210    CONTINUE                                                        FA08840
+         ENDIF                                                                  
+  220    CONTINUE                                                        FA08850
+         if (noprnt .ge. 0) WRITE (IPR,958) ALZERO,AVMWT,XVBAR                  
+         DO 230 IB = 1, IBMAX                                            FA08870
+            ZETA = ALORNZ(IB)/(ALORNZ(IB)+ADOPP(IB))                     FA08880
+            RATIO = 0.0                                                  FA08890
+            DTEMP = 0.0                                                  FA08900
+            IF (IB.NE.IBMAX) RATIO = AVOIGT(IB)/AVOIGT(IB+1)             FA08910
+            IF (IB.NE.IBMAX) DTEMP = ABS(TBND(IB)-TBND(IB+1))            FA08920
+            if (noprnt .ge. 0) WRITE (IPR,960) IB,ZBND(IB),P                    
+     *                      BND(IB),TBND(IB),ALORNZ(IB),                        
+     *                      ADOPP(IB),ZETA,AVOIGT(IB),RATIO,DTEMP        FA08940
+  230    CONTINUE                                                        FA08950
+         IF (IERROR.NE.0) STOP ' IERROR'                                 FA08960
+C                                                                        FA08970
+C        > CALCULATE THE REFRACTED PATH THROUGH THE ATMOSPHERE <         FA08980
+C                                                                        FA08990
+         CALL RFPATH (H1,H2,ANGLE,PHI,LEN,HMIN,IAMT,RANGE,BETA,BENDNG)   FA09000
+C                                                                        FA09010
+C        > PRINT AMOUNTS BY LAYER AND ACCUMULATE TOTALS <                FA09020
+C                                                                        FA09030
+         IF (NOPRNT.ge.0) WRITE (IPR,962) (HMOLS(K),K=1,NMOL)            FA09040
+         I2 = IPMAX-1                                                    FA09050
+         AIRTOT = 0.0                                                    FA09060
+         DO 240 K = 1, NMOL                                              FA09070
+            AMTTOT(K) = 0.0                                              FA09080
+  240    CONTINUE                                                        FA09090
+         HMID =   MIN(H1,H2)                                             FA09100
+         DO 260 I = 1, I2                                                FA09110
+            FAC = 1.0                                                    FA09120
+            IF (LEN.EQ.1.AND.ZPTH(I+1).LE.HMID) FAC = 2.0                FA09130
+            AMTAIR = RHOPSM(I)*1.0E5                                     FA09140
+            AIRTOT = AIRTOT+FAC*AMTAIR                                   FA09150
+            DO 250 K = 1, NMOL                                           FA09160
+               AMTTOT(K) = AMTTOT(K)+FAC*AMTP(K,I)                       FA09170
+  250       CONTINUE                                                     FA09180
+            IF (NOPRNT.ge.0)                                             FA09190
+     *           WRITE (IPR,964) I,ZPTH(I),ZPTH(I+1),AMTAIR,             FA09200
+     *                           (AMTP(K,I),K=1,NMOL)                    FA09210
+  260    CONTINUE                                                        FA09220
+         IF (NOPRNT.ge.0)                                                FA09230
+     *        WRITE (IPR,966) H1,H2,AIRTOT,(AMTTOT(K),K=1,NMOL)          FA09240
+C                                                                        FA09250
+C        > PRINT SUMMARY OF PATH <                                       FA09260
+C                                                                        FA09270
+         AIRMAS = AIRTOT/AIRMS1                                          FA09280
+         if (noprnt .ge. 0) WRITE (IPR,968)                                     
+     *           HMOD,H1,H2,ANGLE,RANGE,BETA,PHI,HMIN,BENDNG,LEN,AIRMAS         
+         IF (ITYPE.EQ.3) ITYPE = 2                                       FA09310
+         H1F = H1                                                        FA09320
+         H2F = H2                                                        FA09330
+         ANGLEF = ANGLE                                                  FA09340
+         PHIF = PHI                                                      FA09350
+         IERRF = IERROR                                                  FA09360
+         LENF = LEN                                                      FA09370
+          HMINF = HMIN                                                    FA0938
+C                                                                        FA09390
+C        > CONDENSE THE AMOUNTS INTO THE LBLRTM OUTPUT LAYERS ZOUT, <    FA09400
+C        > WHICH ARE DEFINED BY THE BOUNDARIES ZBND FROM HMIN TO    <    FA09410
+C        > HMAX ALSO, ZERO OUT THE AMOUNT FOR A MOLECULE IF THE     <    FA09420
+C        > CUMULATIVE AMOUNT FOR THAT LAYER AND ABOVE IN LESS THAN  <    FA09430
+C        > 0.1 PERCENT OF THE TOTAL                                 <    FA09440
+C                                                                        FA09450
+         CALL FPACK (H1,H2,HMID,LEN,IEMIT,n_zero)                        FA09460
+C                                                                        FA09470
+C        > OUTPUT THE PROFILE <                                          FA09480
+C                                                                        FA09490
+         LMAX = IOUTMX-1                                                 FA09500
+         IF (NMOL.LE.7) THEN                                             FA09510
+            if (noprnt.ge.0) WRITE (IPR,970) (HMOLS(K),K=1,NMOL),COTHER         
+         ELSE                                                            FA09530
+            if (noprnt.ge.0) WRITE (IPR,970) (HMOLS(K),K=1,7),COTHER,           
+     *                                       (HMOLS(K),K=8,NMOL)                
+         ENDIF                                                           FA09560
+         IF (IPUNCH.ge.1) THEN                                           FA09570
+            IFORM = 1                                                           
+            WRITE (IPU,972) IFORM,LMAX,NMOL,SECNT0,(HMOD(I),I=1,2),      FA09580
+     *                      H1,H2,ANGLE,LEN                              FA09590
+         ENDIF                                                                  
+                                                                                
+         IF (IPUNCH.eq.2) THEN                                           FA09570
+            WRITE (97) LMAX,NMOL,SECNT0,(HMOD(I),I=1,2),H1,H2,ANGLE,LEN         
+         ENDIF                                                                  
+                                                                                
+         SUMN2 = 0.                                                      FA09600
+         SUMRS = 0.                                                      FA09610
+         PWTD = 0.                                                       FA09620
+         TWTD = 0.                                                       FA09630
+         WTOT = 0.                                                       FA09640
+         P_h2o = 0.                                                             
+         T_h2o = 0.                                                             
+C                                                                               
+c                                                                               
+c        Read from/Write to "IFIXTYPE" file: if IFXTYP = -2, use                
+C        preset ITYL values; if IFXTYP = 2, calculate and write out             
+C        ITYL values.                                                           
+                                                                                
+         IF (IFXTYP.eq.-2) then                                                 
+            open(99,file='IFIXTYPE',status='old',                               
+     *           form='formatted')                                              
+         elseif (IFXTYP.eq.2) then                                              
+            open(99,file='IFIXTYPE',status='unknown',                           
+     *           form='formatted')                                              
+         endif                                                                  
+                                                                                
+         DO 280 L = 1, LMAX                                              FA09650
+            FACTOR = 1.                                                  FA09660
+            IF (IPATH(L).EQ.2) FACTOR = 2.                               FA09670
+            SUMWK = 0.                                                   FA09680
+            DO 270 MOL = 1, NMOL                                         FA09690
+               SUMWK = SUMWK+AMOUNT(MOL,L)                               FA09700
+               WMT(MOL) = WMT(MOL)+AMOUNT(MOL,L)*FACTOR                  FA09710
+  270       CONTINUE                                                     FA09720
+            WTOTL(L) = SUMWK+WN2L(L)                                     FA09730
+            SUMN2 = SUMN2+WN2L(L)*FACTOR                                 FA09740
+            SUMRS = SUMRS+RHOSUM(L)*FACTOR                               FA09750
+            WTOT = WTOT+WTOTL(L)*FACTOR                                  FA09760
+            PWTD = PWTD+PBAR(L)*WTOTL(L)*FACTOR                          FA09770
+            TWTD = TWTD+TBAR(L)*WTOTL(L)*FACTOR                          FA09780
+            P_h2o = P_h2o+PBAR(L)*amount(1,l)*FACTOR                            
+            T_h2o = T_h2o+TBAR(L)*amount(1,l)*FACTOR                            
+C                                                                               
+C           > Determine ITYL(L), if desired (when setting the ratio <           
+C           > from layer to layer).  Default is ITYL(L) left blank, <           
+C           >                                                       <           
+C           >                    CTYPE(L) = '   '                   <           
+C                                                                               
+            CTYPE(L) = '   '                                                    
+            IF (IFXTYP.EQ.1) THEN                                               
+               FRH2O  = AMOUNT(1,L)/WTOTL(L)                                    
+               ALFCOR = (PBAR(L)/PZERO)*SQRT(T296/TBAR(L))                      
+               ADBAR = 3.581155E-07*XVBAR*SQRT(TBAR(L)/AVMWT)                   
+               CALL FIXTYP(IEMIT,FRH2O,ALFCOR,OLDDV,L,CTYPE(L))                 
+               read(ctype(L),1100) ityl(l)                                      
+            elseif (ifxtyp.eq.2) then                                           
+               FRH2O  = AMOUNT(1,L)/WTOTL(L)                                    
+               ALFCOR = (PBAR(L)/PZERO)*SQRT(T296/TBAR(L))                      
+               ADBAR = 3.581155E-07*XVBAR*SQRT(TBAR(L)/AVMWT)                   
+               CALL FIXTYP(IEMIT,FRH2O,ALFCOR,OLDDV,L,CTYPE(L))                 
+               read(ctype(l),1100) ityl(l)                                      
+               write(99,1100) ityl(l)                                           
+            elseif (ifxtyp.eq.-2) then                                          
+               read(99,1100) ityl(l)                                            
+               write(ctype(l),1100) ityl(l)                                     
+            ENDIF                                                               
+C                                                                               
+C                                                                               
+C           > Write atmosphere to TAPE6 in column density <                     
+C                                                                               
+            if (noprnt .ge. 0) then                                             
+               IF (NMOL.LE.7) THEN                                              
+                  WRITE (IPR,974) L,ZOUT(L),ZOUT(L+1),CTYPE(L),IPATH(L),        
+     *                            PBAR(L),TBAR(L),RHOSUM(L),                    
+     *                            (AMOUNT(K,L),K=1,NMOL),WN2L(L)                
+               ELSE                                                             
+                  WRITE (IPR,976) L,ZOUT(L),ZOUT(L+1),CTYPE(L),IPATH(L),        
+     *                            PBAR(L),TBAR(L),RHOSUM(L),                    
+     *                            (AMOUNT(K,L),K=1,7),WN2L(L),                  
+     *                            (AMOUNT(K,L),K=8,NMOL)                        
+               ENDIF                                                            
+            endif                                                               
+C                                                                               
+C           > Write atmosphere to TAPE7 <                                       
+C                                                                               
+            IF (IPUNCH.ge.1) THEN                                        FA09890
+               LTST = L                                                  FA09900
+               IF (L.EQ.1) LTST = 0                                      FA09910
+               PTST =  LOG10(PZ(LTST))                                   FA09920
+               NPTST = PTST+2                                            FA09930
+               IF (PTST.LT.0.0) NPTST = 1                                FA09940
+               CFORM1(38:41) = PZFORM(NPTST)                             FA09950
+               CFORM2(38:41) = PZFORM(NPTST)                             FA09960
+               NPTST = 1                                                 FA09970
+               IF (PBAR(L).GE.0.1) NPTST = 2                             FA09980
+               CFORM1(2:8) = PAFORM(NPTST)                               FA09990
+               CFORM2(2:8) = PAFORM(NPTST)                               FA10000
+               IF (L.EQ.1) THEN                                          FA10010
+                  WRITE (IPU,CFORM1) PBAR(L),TBAR(L),CTYPE(L),IPATH(L),  FA10020
+     *                               ALTZ(L-1),PZ(L-1),TZ(L-1),          FA10030
+     *                               ALTZ(L),  PZ(L),  TZ(L)             FA10040
+               ELSE                                                      FA10050
+                  WRITE (IPU,CFORM2) PBAR(L),TBAR(L),CTYPE(L),IPATH(L),  FA10060
+     *                               ALTZ(L),  PZ(L),  TZ(L)             FA10070
+               ENDIF                                                     FA10080
+C                                                                               
+C           -------------------------------------                               
+C           > Write molecular information in    <                               
+C           >  - mixing ratio if MUNITS is 1    <                               
+C           >  - column density if MUNITS is 0  <                               
+C           -------------------------------------                               
+C                                                                               
+               IF (MUNITS.EQ.1) THEN                                            
+                  DRAIR =  WN2L(L)                                              
+                  DO 275 M = 2,NMOL                                             
+                     DRAIR = DRAIR + AMOUNT(M,L)                                
+ 275              CONTINUE                                                      
+C                                                                               
+C                 > If DRAIR is zero, then write out AMOUNT only    <           
+C                 > (since AMOUNT zero => mixing ratio zero)        <           
+C                                                                               
+                  IF (DRAIR.EQ.0) THEN                                          
+                     WRITE (IPU,978) (AMOUNT(K,L),K=1,7),WN2L(L)                
+                     IF (NMOL.GT.7) WRITE (IPU,978)                             
+     *                                    (AMOUNT(K,L),K=8,NMOL)                
+                  ELSE                                                          
+                     WRITE (IPU,978) (AMOUNT(K,L)/DRAIR,K=1,7),WN2L(L)          
+                     IF (NMOL.GT.7) WRITE (IPU,978)                             
+     *                                    (AMOUNT(K,L)/DRAIR,K=8,NMOL)          
+                  ENDIF                                                         
+               ELSE                                                             
+C                                                                               
+C                 Test to make sure there are no fractional molecular           
+C                 amounts written out (will cause PATH to assume                
+C                 mixing ratio)                                                 
+C                                                                               
+                  DO 277 K=1,NMOL                                               
+                     IF (AMOUNT(K,L).LT.1.) THEN                                
+                        WRITE(IPR,1000) K,L                                     
+                        AMOUNT(K,L) = 0.0                                       
+                     ENDIF                                                      
+ 277              CONTINUE                                                      
+C                                                                               
+                  WRITE (IPU,978) (AMOUNT(K,L),K=1,7),WN2L(L)            FA10090
+                  IF (NMOL.GT.7) WRITE (IPU,978) (AMOUNT(K,L),K=8,NMOL)  FA10100
+               ENDIF                                                            
+            ENDIF                                                        FA10110
+  280    CONTINUE                                                        FA10120
+                                                                                
+C        Close "IFIXTYPE" file, if used                                         
+         IF (abs(IFXTYP).eq.2) then                                             
+            rewind(99)                                                          
+            close(99)                                                           
+         endif                                                                  
+C                                                                               
+C        > Write atmosphere to TAPE6 in mixing ratio <                          
+C                                                                               
+         if (noprnt .ge. 0) then                                                
+            IF (NMOL.LE.7) THEN                                                 
+               WRITE (IPR,973) (HMOLS(K),K=1,NMOL),COTHER                       
+            ELSE                                                                
+               WRITE (IPR,973) (HMOLS(K),K=1,7),COTHER,                         
+     *              (HMOLS(K),K=8,NMOL)                                         
+            ENDIF                                                               
+         endif                                                                  
+c                                                                               
+         DO 285 L = 1, LMAX                                                     
+            DRAIR = WN2L(L)                                                     
+            DO 283 M = 2,NMOL                                                   
+               DRAIR = DRAIR + AMOUNT(M,L)                                      
+ 283        CONTINUE                                                            
+            COLDRY(L) = DRAIR
+            NMOLEC = NMOL
+C                                                                               
+C           > If DRAIR is zero, then write out AMOUNT only    <                 
+C           > (since AMOUNT zero => mixing ratio zero)        <                 
+C                                                                               
+            IF (DRAIR.EQ.0 .and. noprnt.ge.0) THEN                              
+               IF (NMOL.LE.7) THEN                                              
+                  WRITE (IPR,974) L,ZOUT(L),ZOUT(L+1),CTYPE(L),IPATH(L),        
+     *                            PBAR(L),TBAR(L),RHOSUM(L),                    
+     *                            (AMOUNT(K,L),K=1,NMOL),WN2L(L)                
+               ELSE                                                             
+                  WRITE (IPR,976) L,ZOUT(L),ZOUT(L+1),CTYPE(L),IPATH(L),        
+     *                            PBAR(L),TBAR(L),RHOSUM(L),                    
+     *                            (AMOUNT(K,L),K=1,7),WN2L(L),                  
+     *                            (AMOUNT(K,L),K=8,NMOL)                        
+               ENDIF                                                            
+            ELSE if (noprnt.ge.0) then                                          
+               IF (NMOL.LE.7) THEN                                              
+                  WRITE (IPR,974) L,ZOUT(L),ZOUT(L+1),CTYPE(L),IPATH(L),        
+     *                            PBAR(L),TBAR(L),RHOSUM(L),                    
+     *                            (AMOUNT(K,L)/DRAIR,K=1,NMOL),WN2L(L)          
+               ELSE                                                             
+                  WRITE (IPR,976) L,ZOUT(L),ZOUT(L+1),CTYPE(L),IPATH(L),        
+     *                            PBAR(L),TBAR(L),RHOSUM(L),                    
+     *                            (AMOUNT(K,L)/DRAIR,K=1,7),WN2L(L),            
+     *                            (AMOUNT(K,L)/DRAIR,K=8,NMOL)                  
+               ENDIF                                                            
+            ENDIF                                                               
+285     CONTINUE                                                                
+C                                                                               
+         PWTD = PWTD/WTOT                                                FA10130
+         TWTD = TWTD/WTOT                                                FA10140
+         P_h2o = P_h2o/wmt(1)                                                   
+         T_h2o = T_h2o/wmt(1)                                                   
+                                                                                
+         L = LMAX                                                        FA10150
+         if (noprnt .ge. 0) then                                                
+               WRITE (IPR,979) L,ZOUT(1),ZOUT(L+1),P_h2o,T_h2o                  
+            IF (NMOL.LE.7) THEN                                                 
+               WRITE (IPR,980) (HMOLS(K),K=1,NMOL),COTHER                   FA10
+               WRITE (IPR,982) L,ZOUT(1),ZOUT(L+1),PWTD,TWTD,SUMRS,         FA10
+     *                         (WMT(K),K=1,NMOL),SUMN2                      FA10
+            ELSE                                                            FA10
+               WRITE (IPR,980) (HMOLS(K),K=1,7),COTHER,                     FA10
+     *                         (HMOLS(K),K=8,NMOL)                          FA10
+               WRITE (IPR,984) L,ZOUT(1),ZOUT(L+1),PWTD,TWTD,SUMRS,         FA10
+     *                         (WMT(K),K=1,7),SUMN2,(WMT(K),K=8,NMOL)       FA10
+            ENDIF                                                           FA10
+         endif                                                                  
+C                                                                        FA10260
+         NLAYRS = LMAX                                                   FA10270
+         HT1 = HT1SLT                                                           
+         HT2 = HT2SLT                                                           
+C                                                                        FA10300
+c-----------------------------------------------------------                    
+c write to ATMOSPHERE file (97) information needed for level to layer calculatio
+                                                                                
+         if (ipunch.eq.2) then                                                  
+            write (97) ibmax,(pbar(l),tbar(l),l=1,ibmax-1)                      
+            write (97) (pbnd(l),tbnd(l),(denm(k,l),k=1,nmol),l=1,ibmax)         
+            close (97)                                                          
+         endif                                                                  
+c-----------------------------------------------------------                    
+                                                                                
+      ENDIF                                                              FA10310
+C                                                                        FA10320
+      RETURN                                                             FA10330
+C                                                                        FA10340
+C     ERROR MESSAGES                                                     FA10350
+C                                                                        FA10360
+  290 WRITE (IPR,986) MODEL,ITYPE,NMOL,IBMAX                             FA10370
+C                                                                        FA10380
+      STOP ' CARD 3.1'                                                   FA10390
+C                                                                        FA10400
+C                                                                        FA10400
+  300 WRITE (IPR,988) (ZBND(I),I=1,IBMAX)                                FA10410
+      PRINT 988,(ZBND(I),I=1,IBMAX)                                      FA10420
+C                                                                        FA10430
+      STOP ' ZBND'                                                       FA10440
+                                                                                
+  301 PRINT 988,(ZTMP(I),I=2,IBMAX)                                             
+      STOP ' USER INPUT LEVELS TOO CLOSE - IBMAX'                               
+C                                                                               
+  305 WRITE (IPR,989) (PBND(I),I=1,IBMAX)                                       
+      PRINT 989,(PBND(I),I=1,IBMAX)                                             
+C                                                                        FA10430
+      STOP ' PBND'                                                       FA10440
+C                                                                        FA10450
+  310 WRITE (IPR,990)                                                    FA10460
+C                                                                        FA10470
+      STOP ' ERROR - FSCGEO'                                             FA10480
+C                                                                        FA10490
+  320 WRITE (IPR,992) AVTRAT,TDIFF1,TDIFF2                               FA10500
+C                                                                        FA10510
+      STOP ' AVTRAT,TDIFF'                                               FA10520
+C                                                                        FA10530
+  900 FORMAT (7I5,I2,1X,I2,4F10.3,A10)                                   FA10540
+  902 FORMAT (' CONTROL CARD 3.1: MODEL AND OPTIONS ')                   FA10550
+  904 FORMAT (/,10X,'MODEL   = ',I5,/,10X,'ITYPE   = ',I5,/,10X,         FA10560
+     *        'IBMAX   = ',I5,/,10X,'n_zero  = ',I5,/,10X,'NOPRNT  = ',  FA10570
+     *        I5,/,10X,'NMOL    = ',I5,/,10X,'IPUNCH  = ',I5,/,10X,      FA10580
+     *        'IFXTYP  = ',I5,/,10X,'MUNITS  = ',I5,/,10X,'RE      = ',  FA10590
+     *        F10.3,' KM',/,10X,'HSPACE  = ',F10.3,' KM',/,10X,          FA10600
+     *        'VBAR    = ',F10.3,' CM-1',                                       
+     *                     /,10X,'REF_LAT = ',F10.3, ' DEG')                    
+  905 format('$',i5, 10a8)                                                      
+  906 FORMAT (///,' CONTROL CARD 3.1 PARAMETERS WITH DEFAULTS:')         FA10620
+  908 FORMAT (///,' HORIZONTAL PATH SELECTED')                           FA10630
+  910 FORMAT (F10.3,10X,10X,F10.3)                                       FA10640
+  912 FORMAT (///,' CONTROL CARD 3.2:',//,10X,'Z     = ',F10.3,' KM',/,  FA10650
+     *       10X,'RANGE = ',F10.3,' KM')                                 FA10660
+  914 FORMAT (///' PRESSURE, TEMPERATURE, AND DENSITIES INTERPOLATED',   FA10670
+     *        ' FROM THE FOLLOWING ATMOSPHERIC MODEL: ',//,10X,3A8,//,   FA10680
+     *        10X, 'Z     = ',F10.3,' KM',/,10X,'P     = ',F10.3,' MB',  FA10690
+     *        /,10X,'T     = ',F10.3,' K',//,10X,'DENSITIES :',T26,      FA10700
+     *        'AIR',(T30,8A10))                                          FA10710
+  916 FORMAT (T63,'(MOL CM-3)',//,T20,1PE10.3,(T30,8E10.3))              FA10720
+  918 FORMAT ('0SINGLE LAYER INPUT TO LBLRTM',//,10X,'MODEL = ',3A8,/,   FA10730
+     *        10X,'Z     = ',F10.3,' KM',/,10X,'P     = ',F10.3,' MB',   FA10740
+     *        /,10X,'T     = ',F10.3,' K',/,10X,'RANGE = ',F10.3,' KM',  FA10750
+     *        //,10X,'AMOUNTS (MOL CM-2):',T36,'AIR',(T32,8A10))         FA10760
+  920 FORMAT (//,T30,1PE10.2,(T30,8E10.2))                               FA10770
+  922 FORMAT (A4)                                                        FA10780
+  924 FORMAT (1X,I1,I3,I5,F10.6,3A8,' * ',F7.3,' KM PATH AT ',F7.3,             
+     *        ' KM ALT')                                                 FA10790
+  926 FORMAT (E15.7,F10.4,10X,I5,1X,F7.3,15X,F7.3,/,(1P8E15.7))          FA10800
+  928 FORMAT (//,' MULTIPLE SCATTERING TURNED OFF, HMIN = ',F10.6,       FA10810
+     *        ' > HMAXMS = ',F10.6,/)                                    FA10820
+  930 FORMAT (///,' SLANT PATH SELECTED, ITYPE = ',I5)                   FA10830
+  932 FORMAT (5F10.4,I5,5X,F10.4)                                        FA10840
+  933 FORMAT (///' CONTROL CARD 3.2:  SLANT PATH PARAMETERS',//,10X,     FA10850
+     *       'H1      = ',F12.6,' MBAR',/,10X,'H2      = ',F12.6,' MBAR',FA10860
+     *        /,10X,'ANGLE   = ',F12.6,' DEG',/,10X,'RANGE   = ',F12.6,  FA10870
+     *        ' KM',/,10X,'BETA    = ',F12.6,' DEG',/,10X,'LEN     = ',  FA10880
+     *        I10)                                                       FA10890
+  934 FORMAT (///' CONTROL CARD 3.2:  SLANT PATH PARAMETERS',//,10X,     FA10850
+     *        'H1      = ',F12.6,' KM',/,10X,'H2      = ',F12.6,' KM',   FA10860
+     *        /,10X,'ANGLE   = ',F12.6,' DEG',/,10X,'RANGE   = ',F12.6,  FA10870
+     *        ' KM',/,10X,'BETA    = ',F12.6,' DEG',/,10X,'LEN     = ',  FA10880
+     *        I10)                                                       FA10890
+  936 FORMAT (5F10.3)                                                    FA10900
+  938 FORMAT (///,' AUTOLAYERING SELECTED',//,10X,'AVTRAT    = ',F8.2,   FA10910
+     *        /,10X,'TDIFF1    = ',F8.2,/,10X,'TDIFF2    = ',F8.2,/,     FA10920
+     *        10X,'ALTD1     = ',F8.2,/,10X,'ALTD2     = ',F8.2)         FA10930
+  940 FORMAT (8F10.3)                                                    FA10940
+  942 FORMAT (///,' USER DEFINED BOUNDARIES FOR LBLRTM LAYERS',/,10X,    FA10950
+     *        'I',4X,'Z (KM)',//,(10X,I4,F15.8))                         FA10960
+  943  FORMAT (///,' USER DEFINED BOUNDARIES FOR LBLRTM LAYERS',/,10X,          
+     *        'I',4X,'P (MB)',//,(10X,I4,F15.8))                                
+  944 FORMAT (' ERROR IN USER INPUT BOUNDARIES ')                        FA10970
+  946 FORMAT (' BOUNDARIES ARE OUTSIDE THE RANGE OF THE ATMOSPHERE',/,   FA10980
+     *        ' BOUNDARY = ',F10.2,' ATMOSPHERE =',F10.2,/,              FA10990
+     *        ' RESET BOUNDARY GT THAN ATMOSPHERE')                      FA11000
+  948 FORMAT ('1ATMOSPHERIC PROFILE SELECTED IS: M = ',I3,5X,3A8)        FA11010
+  950 FORMAT (/,T4,'I',T13,'Z',T24,'P',T38,'T',T46,'REFRACT',T73,               
+     *        'DENSITY  (MOLS CM-3)',/,T46,'INDEX-1',/,T12,'(KM)',T23,          
+     *        '(MB)',T37,'(K)',T46,'*1.0E6',T63,'AIR',(T68,8(6X,A9)))           
+ 951  FORMAT (/,T4,'I',T13,'Z',T24,'P',T38,'T',T46,'REFRACT',T55,               
+     *        'DENSITY',T70,'MIXING RATIO (BASED UPON DRY AIR) (ppmv)',/,       
+     *        T46,'INDEX-1',T56,                                                
+     *        '(MOL CM-3)'/,T12,                                                
+     *        '(KM)',T23,                                                       
+     *        '(MB)',T37,'(K)',T46,'*1.0E6',T61,'AIR',(T68,8(6X,A9)))    FA11040
+  952 FORMAT (/)                                                         FA11050
+  954 FORMAT (I4,F11.5,F15.8,F11.5,6P,F11.5,1P,E15.7,(T68,1P,8E15.7))           
+  956 FORMAT (///,' HALFWIDTH INFORMATION ON THE USER SUPPLIED ',        FA11070
+     *        'LBLRTM BOUNDARIES',/,' THE FOLLOWING VALUES ARE ',        FA11080
+     *        'ASSUMED:')                                                FA11090
+  958 FORMAT (10X,'ALZERO    = ',F9.3,' CM-1 = AVERAGE LORENTZ WIDTH ',  FA11100
+     *        'AT STP',/,10X,'AVMWT     = ',F8.2,                        FA11110
+     *        '       = AVERAGE  MOLECULAR WEIGHT',/,10X,                FA11120
+     *        'VBAR      = ',F8.2,'  CM-1 = AVERAGE WAVENUMBER',///,     FA11130
+     *        T5,'I',T12,'Z',T22,'P',T32,'T',T39,'LORENTZ',T49,          FA11140
+     *        'DOPPLER',T61,'ZETA',T70,'VOIGT',T80,'VOIGT',T90,          FA11150
+     *        'TEMP',/,T11,'(KM)',T21,'(MB)',T31,'(K)',T40,'(CM-1)',     FA11160
+     *        T50,'(CM-1)',T70,'(CM-1)',T80,'RATIO',T90,'DIFF (K)',/)    FA11170
+  960 FORMAT (I5,F10.3,F12.5,F9.2,F9.5,F10.5,F10.3,F10.5,F10.2,F10.1)    FA11180
+  962 FORMAT ('1INTEGRATED ABSORBER AMOUNTS BY LAYER',///,T5,            FA11190
+     *        'I  LAYER BOUNDARIES',T55,'INTEGRATED AMOUNTS ',           FA11200
+     *        '(MOL CM-2)',/,T11,'FROM',T22,'TO',T29,'AIR',T36,          FA11210
+     *        8(1X,A8,1X),/,T11,'(KM)',T21,'(KM)',(T37,8A10))            FA11220
+  964 FORMAT (I5,2F10.3,1P,E10.3,(T36,1P,8E10.3))                               
+  966 FORMAT ('0TOTAL',F9.3,F10.3,1P,E10.3,(T36,1P,8E10.3))                     
+  968 FORMAT ('1 SUMMARY OF THE GEOMETRY CALCULATION',//,10X,            FA11250
+     *        'MODEL   = ',4X,3A8,/10X,'H1      = ',F12.6,' KM',/,10X,   FA11260
+     *        'H2      = ',F12.6,' KM',/,10X,'ANGLE   = ',F12.6,' DEG',  FA11270
+     *        /,10X,'RANGE   = ',F12.6,' KM',/,10X,'BETA    = ',F12.6,   FA11280
+     *        ' DEG',/,10X,'PHI     = ',F12.6,' DEG',/,10X,              FA11290
+     *        'HMIN    = ',F12.6,' KM',/,10X,'BENDING = ',F12.6,' DEG',  FA11300
+     *        /,10X,'LEN     = ',I10,/,10X,'AIRMAS  = ',G12.6,           FA11310
+     *        'RELATIVE TO A VERTICAL PATH , GROUND TO SPACE')           FA11320
+  970 FORMAT ('0FINAL SET OF LAYERS FOR INPUT TO LBLRTM',/,              FA11330
+     *        ' A LAYER AMOUNT MAY BE SET TO ZERO IF THE CUMULATIVE ',   FA11340
+     *        'AMOUNT FOR THAT LAYER AND ABOVE IS LESS THAN 0.1 ',       FA11350
+     *        'PERCENT',/,' OF THE TOTAL AMOUNT. THIS IS DONE ONLY ',    FA11360
+     *        'FOR THE FOLLOWING CASES',/,5X,'1.  IEMIT = 0 ',           FA11370
+     *        '(TRANSMITTANCE)',/,5X,'2.  IEMIT = 1 (RADIANCE) AND ',    FA11380
+     *        'IPATH = 3 (PATH LOOKING UP)',/,' O2 IS NOT INCLUDED',/,   FA11390
+     *        ' IF THE AMOUNTS FOR ALL THE MOLECULES BUT O2 ARE ',       FA11400
+     *        'ZEROED, THE REMAINING LAYERS ARE ELIMINATED',///,T13,     FA11410
+     *        'LAYER',T23,'I',T25,'I',/,T4,'L',T10,'BOUNDARIES',T23,     FA11420
+     *        'T',T25,'P',T31,'PBAR',T40,'TBAR',T70,                            
+     *        'INTEGRATED AMOUNTS (MOLS CM-2)',/,T9,'FROM',T18,          FA11430
+     *        'TO',T23,'Y',T25,'T',/,T9,'(KM)',T17,'(KM)',T23,'P',T25,   FA11440
+     *        'H',T31,'(MB)',T41,'(K)',T53,'AIR',(T59,8(6X,A9)))         FA11450
+  972 FORMAT (1X,I1,I3,I5,F10.6,2A8,' H1=',F8.2,' H2=',F8.2,             FA11460
+     *        ' ANG=',F8.3,' LEN=',I2)                                   FA11470
+  973 FORMAT  (///,'1',3X,'------------------------------------',/,             
+     *        T13,'LAYER',T23,'I',T25,'I',/,T4,'L',T10,'BOUNDARIES',            
+     *        T23,'T',T25,'P',T31,'PBAR',T40,'TBAR',                            
+     *        T68,'MOLECULAR MIXING RATIOS BY LAYER',/,T9,'FROM',               
+     *        T18,'TO',T23,'Y',T25,'T',/,T9,'(KM)',T17,'(KM)',T23,'P',          
+     *        T25,'H',T31,'(MB)',T41,'(K)',T53,'AIR',(T59,8(6X,A9)))            
+  974 FORMAT ('0',I3,2F8.3,A3,I2,F11.5,F8.2,1X,1P9E15.7)                 FA11480
+  976 FORMAT ('0',I3,2F8.3,A3,I2,F11.5,F8.2,1X,1P9E15.7,/,                      
+     *            (60X,1P8E15.7))                                        FA11490
+  978 FORMAT (1P8E15.7)                                                  FA11500
+ 979  FORMAT ('0',/,'0',T4,'L  PATH BOUNDARIES',T28,'P_h2o',T37,'T_h2o'         
+     *           ,/,'0',I3,2F8.3,2X,F11.5,F8.2)                                 
+  980 FORMAT ('0',/,'0',T4,'L  PATH BOUNDARIES',T28,'PBAR',T37,'TBAR',   FA11510
+     *        T65,'ACCUMULATED MOLECULAR AMOUNTS FOR TOTAL PATH',/,T9,   FA11520
+     *        'FROM',T18,'TO',/,T9,'(KM)',T17,'(KM)',T28,'(MB)',T38,     FA11530
+     *        '(K)',T47,'AIR',(T54,8(1X,A9)))                            FA11540
+  982 FORMAT ('0',I3,2F8.3,2X,F11.5,F8.2,1X,1P,9E10.3)                    FA1155
+  984 FORMAT ('0',I3,2F8.3,2X,F11.5,F8.2,1X,1P,9E10.3,/,(52X,8E10.3))   FA11560 
+  986 FORMAT (///,' ERROR IN INPUT, CONTROL CARD 3.1: ONE OF THE ',      FA11570
+     *        'PARAMETERS MODEL, ITYPE, NMOL IS OUT OF RANGE',//,10X,    FA11580
+     *        'MODEL   = ',I5,/,10X,'ITYPE   = ',I5,/,10X,'NMOL    = ',  FA11590
+     *        I5,10X,' IBMAX =',I5)                                      FA11600
+  988 FORMAT (///,' ERROR: BOUNDARY ALTITUDES FOR LBLRTM LAYERS ',       FA11610
+     *        'ARE NEGATIVE OR NOT IN ASCENDING ORDER',//,5X,' ZBND ',   FA11620
+     *        /,(10F10.4))                                               FA11630
+  989 FORMAT (///,' ERROR: BOUNDARY PRESSURES FOR LBLRTM LAYERS ',              
+     *        'ARE POSITIVE OR NOT IN DESCENDING ORDER',//,5X,' PBND ',         
+     *        /,(10F10.4))                                                      
+  990 FORMAT ('0ERROR FLAG RETURNED FROM FSCGEO:  AN ERROR OCCURED ',    FA11640
+     *        'IN PROCESSING THE SLANT PATH PARAMETERS',/,'0PROGRAM ',   FA11650
+     *        'STOP')                                                    FA11660
+  992 FORMAT (///,' ERROR: EITHER AVTRAT.LE.1.0 OR TDIFF.LE.0',/,        FA11670
+     *        '0PROGRAM STOP  -  AVTRAT = ',E12.6,' TDIFF1 = ',F10.4,    FA11680
+     *        ' TDIFF2 = ',F10.4)                                        FA11690
+ 1000 FORMAT ('*** WARNING: Zeroing molecule #',i2.2,' amount ',                
+     *        'in layer #',i3.3)                                                
+ 1100 format (i3)                                                               
+ 1101 format (a3)                                                               
+C                                                                        FA11700
+      END                                                                FA11710
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      BLOCK DATA ATMCON                                                  FA11720
+C                                                                        FA11730
+C     *****************************************************************  FA11740
+C     THIS SUBROUTINE INITIALIZES THE CONSTANTS USED IN THE              FA11750
+C     PROGRAM. CONSTANTS RELATING TO THE ATMOSPHERIC PROFILES ARE STORE  FA11760
+C     IN BLOCK DATA MLATMB.                                              FA11770
+C     *****************************************************************  FA11780
+C                                                                        FA11790
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA11800
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA11810
+C                                                                        FA11820
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA11840
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA11850
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+C                                                                        FA11880
+      CHARACTER*8      HMOLS                                            &FA11890
+C                                                                        FA11900
+      COMMON /HMOLS/ HMOLS(MXMOL),JUNIT(MXMOL),WMOL(MXMOL),JUNITP,       FA11910
+     *               JUNITT                                              FA11920
+      COMMON /HMOLC/ HMOLC(MXMOL)                                        FA11930
+      COMMON /FIXITYL/ IFXTYP                                                   
+      CHARACTER*8 HMOLC                                                  FA11940
+C     IFXTYP is the flag for fixing the value of ITYL                           
+      DATA IFXTYP /0/                                                           
+C                                                                        FA11950
+C     IBDIM IS THE MAXIMUM NUMBER OF LAYERS FOR OUTPUT TO LBLRTM         FA11960
+C     IOUTDM IS THE MAXIMUN NUMBER OF OUTPUT LAYERS                      FA11970
+C     IMDIM IS THE MAX NUMBER OF LEVELS IN THE ATMOSPHERIC PROFILE       FA11980
+C         STORED IN ZMDL (INPUT)                                         FA11990
+C     IPDIM IS THE MAXIMUM NUMBER OF LEVELS IN THE PROFILE ZPTH OBTAINE  FA12000
+C         BY MERGING ZMDL AND ZOUT                                       FA12010
+C     KDIM IS THE MAXIMUM NUMBER OF MOLECULES, KMXNOM IS THE DEFAULT     FA12020
+C                                                                        FA12030
+      DATA KMXNOM / 7 /                                                  FA12040
+C                                                                        FA12050
+C     DELTAS IS THE NOMINAL SLANT PATH INCREMENT IN KM.                  FA12060
+C                                                                        FA12070
+      DATA DELTAS / 5.0 /                                                FA12080
+      DATA PZERO / 1013.25 /,TZERO / 273.15 /                            FA12090
+C                                                                        FA12130
+C     ALZERO IS THE MEAN LORENTZ HALFWIDTH AT PZERO AND 296.0 K.         FA12140
+C     AVMWT IS THE MEAN MOLECULAR WEIGHT USED TO AUTOMATICALLY           FA12150
+C     GENERATE THE LBLRTM BOUNDARIES IN AUTLAY                           FA12160
+C                                                                        FA12170
+      DATA ALZERO / 0.04 /,AVMWT / 36.0 /                                FA12180
+C                                                                        FA12190
+C     ORDER OF MOLECULES H2O(1), CO2(2), O3(3), N2O(4), CO(5), CH4(6),   FA12200
+C         O2(7), NO(8), SO2(9), NO2(10), NH3(11), HNO3(12), OH(13),      FA12210
+C         HF(14 ), HCL(15), HBR(16), HI(17), CLO(18), OCS(19), H2CO(20)  FA12220
+C         HOCL(21), N2(22), HCN(23), CH3CL(24), H2O2(25), C2H2(26),      FA12230
+C         C2H6(27), PH3(28), COF2(29), SF6(30), H2S(31), HCOOH(32)       FA12240
+C                                                                        FA12250
+      DATA HMOLC / '  H2O   ' , '  CO2   ' , '   O3   ' , '  N2O   ' ,   FA12260
+     *             '   CO   ' , '  CH4   ' , '   O2   ' , '   NO   ' ,   FA12270
+     *             '  SO2   ' , '  NO2   ' , '  NH3   ' , ' HNO3   ' ,   FA12280
+     *             '   OH   ' , '   HF   ' , '  HCL   ' , '  HBR   ' ,   FA12290
+     *             '   HI   ' , '  CLO   ' , '  OCS   ' , ' H2CO   ' ,   FA12300
+     *             ' HOCL   ' , '   N2   ' , '  HCN   ' , ' CH3CL  ' ,   FA12310
+     *             ' H2O2   ' , ' C2H2   ' , ' C2H6   ' , '  PH3   ' ,   FA12320
+     *             ' COF2   ' , '  SF6   ' , '  H2S   ' , ' HCOOH  ' ,   FA12330
+     *             '  HO2   ' , '   O+   ' , ' ClONO2 ' , '   NO+  ' ,          
+     *             '  HOBr  ' , ' C2H4   ' , ' CH3OH  '/                        
+C                                                                        FA12350
+C     MOLECULAR WEIGHTS                                                  FA12360
+C                                                                        FA12370
+c      DATA AIRMWT / 28.964 / ,                                           FA1238
+       DATA AMWT /  18.015 ,  44.010 , 47.998 , 44.01 ,                  FA12390
+     *              28.011 ,  16.043 , 31.999 , 30.01 ,                  FA12400
+     *              64.06  ,  46.01  , 17.03  , 63.01 ,                  FA12410
+     *              17.00  ,  20.01  , 36.46  , 80.92 ,                  FA12420
+     *             127.91  ,  51.45  , 60.08  , 30.03 ,                  FA12430
+     *              52.46  ,  28.014 , 27.03  , 50.49 ,                  FA12440
+     *              34.01  ,  26.03  , 30.07  , 34.00 ,                  FA12450
+     *              66.01  , 146.05  , 34.08  , 46.03 ,                  FA12460
+c     approx;                                                                   
+     *              33.00  ,  15.99  , 98.    , 30.00 ,                         
+     *              97.    ,  44.5   , 32.04  /                                 
+      END                                                                FA12480
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      BLOCK DATA MLATMB                                                  FA12490
+C                                                                        FA12500
+C     *****************************************************************  FA12510
+C     THIS SUBROUTINE INITIALIZES THE 6 BUILT-IN ATMOSPHERIC PROFILES    FA12520
+C     (FROM 'OPTICAL PROPERTIES OF THE ATMOSPHERE, THIRD EDITION'        FA12530
+C     AFCRL-72-0497 (AD 753 075), 'U.S. STANDARD ATMOSPHERE 1976' AND    FA12540
+C     'SUPPLEMENTS 1966'), PLUS COLLECTED CONSTITUENT PROFILES (REF)     FA12550
+C     AND SETS OTHER CONSTANTS RELATED TO THE ATMOSPHERIC PROFILES       FA12560
+C     *****************************************************************  FA12570
+C                                                                        FA12580
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA12590
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA12600
+      PARAMETER (MXZ50=MXZMD-50)                                         FA12610
+C                                                                        FA12620
+      COMMON /MLATM/ ALT(MXZMD),                                         FA12630
+     *     P1(MXZMD),P2(MXZMD),P3(MXZMD),P4(MXZMD),P5(MXZMD),P6(MXZMD),  FA12640
+     *     T1(MXZMD),T2(MXZMD),T3(MXZMD),T4(MXZMD),T5(MXZMD),T6(MXZMD),  FA12650
+     *     AMOL11(MXZMD),AMOL12(MXZMD),AMOL13(MXZMD),AMOL14(MXZMD),      FA12660
+     *     AMOL15(MXZMD),AMOL16(MXZMD),AMOL17(MXZMD),AMOL18(MXZMD),      FA12670
+     *     AMOL21(MXZMD),AMOL22(MXZMD),AMOL23(MXZMD),AMOL24(MXZMD),      FA12680
+     *     AMOL25(MXZMD),AMOL26(MXZMD),AMOL27(MXZMD),AMOL28(MXZMD),      FA12690
+     *     AMOL31(MXZMD),AMOL32(MXZMD),AMOL33(MXZMD),AMOL34(MXZMD),      FA12700
+     *     AMOL35(MXZMD),AMOL36(MXZMD),AMOL37(MXZMD),AMOL38(MXZMD),      FA12710
+     *     AMOL41(MXZMD),AMOL42(MXZMD),AMOL43(MXZMD),AMOL44(MXZMD),      FA12720
+     *     AMOL45(MXZMD),AMOL46(MXZMD),AMOL47(MXZMD),AMOL48(MXZMD),      FA12730
+     *     AMOL51(MXZMD),AMOL52(MXZMD),AMOL53(MXZMD),AMOL54(MXZMD),      FA12740
+     *     AMOL55(MXZMD),AMOL56(MXZMD),AMOL57(MXZMD),AMOL58(MXZMD),      FA12750
+     *     AMOL61(MXZMD),AMOL62(MXZMD),AMOL63(MXZMD),AMOL64(MXZMD),      FA12760
+     *     AMOL65(MXZMD),AMOL66(MXZMD),AMOL67(MXZMD),AMOL68(MXZMD),      FA12770
+     *     ZST(MXZMD),PST(MXZMD),TST(MXZMD),AMOLS(MXZMD,MXMOL)           FA12780
+      COMMON /MLATMC/ ATMNAM(6)                                          FA12790
+      CHARACTER*24 ATMNAM                                                FA12800
+C                                                                        FA12810
+C     COMMON /TRAC/ TRAC(MXZMD,MXTRAC)                                   FA12820
+C                                                                        FA12830
+      COMMON /TRAC/ ANO(MXZMD),SO2(MXZMD),ANO2(MXZMD),ANH3(MXZMD),       FA12840
+     *              HNO3(MXZMD),OH(MXZMD),HF(MXZMD),HCL(MXZMD),          FA12850
+     *              HBR(MXZMD),HI(MXZMD),CLO(MXZMD),OCS(MXZMD),          FA12860
+     *              H2CO(MXZMD),HOCL(MXZMD),AN2(MXZMD),HCN(MXZMD),       FA12870
+     *              CH3CL(MXZMD),H2O2(MXZMD),C2H2(MXZMD),C2H6(MXZMD),    FA12880
+     *              PH3(MXZMD),TDUM(MXZMD)                               FA12890
+C                                                                        FA12900
+      DATA ATMNAM(1) / 'TROPICAL                '/                       FA12910
+      DATA ATMNAM(2) / 'MIDLATITUDE SUMMER      '/                       FA12920
+      DATA ATMNAM(3) / 'MIDLATITUDE WINTER      '/                       FA12930
+      DATA ATMNAM(4) / 'SUBARCTIC SUMMER        '/                       FA12940
+      DATA ATMNAM(5) / 'SUBARCTIC WINTER        '/                       FA12950
+      DATA ATMNAM(6) / 'U. S. STANDARD,  1976   '/                       FA12960
+C                                                                        FA12970
+C     DATA ALT (KM) /                                                    FA12980
+C                                                                        FA12990
+      DATA ALT /       0.0,       1.0,       2.0,       3.0,       4.0,  FA13000
+     *                 5.0,       6.0,       7.0,       8.0,       9.0,  FA13010
+     *                10.0,      11.0,      12.0,      13.0,      14.0,  FA13020
+     *                15.0,      16.0,      17.0,      18.0,      19.0,  FA13030
+     *                20.0,      21.0,      22.0,      23.0,      24.0,  FA13040
+     *                25.0,      27.5,      30.0,      32.5,      35.0,  FA13050
+     *                37.5,      40.0,      42.5,      45.0,      47.5,  FA13060
+     *                50.0,      55.0,      60.0,      65.0,      70.0,  FA13070
+     *                75.0,      80.0,      85.0,      90.0,      95.0,  FA13080
+     *               100.0,     105.0,     110.0,     115.0,     120.0,  FA13090
+     *               MXZ50*0.0 /                                         FA13100
+C                                                                        FA13110
+C     DATA PRESSURE /                                                    FA13120
+C                                                                        FA13130
+      DATA P1 /  1.013E+03, 9.040E+02, 8.050E+02, 7.150E+02, 6.330E+02,  FA13140
+     *           5.590E+02, 4.920E+02, 4.320E+02, 3.780E+02, 3.290E+02,  FA13150
+     *           2.860E+02, 2.470E+02, 2.130E+02, 1.820E+02, 1.560E+02,  FA13160
+     *           1.320E+02, 1.110E+02, 9.370E+01, 7.890E+01, 6.660E+01,  FA13170
+     *           5.650E+01, 4.800E+01, 4.090E+01, 3.500E+01, 3.000E+01,  FA13180
+     *           2.570E+01, 1.763E+01, 1.220E+01, 8.520E+00, 6.000E+00,  FA13190
+     *           4.260E+00, 3.050E+00, 2.200E+00, 1.590E+00, 1.160E+00,  FA13200
+     *           8.540E-01, 4.560E-01, 2.390E-01, 1.210E-01, 5.800E-02,  FA13210
+     *           2.600E-02, 1.100E-02, 4.400E-03, 1.720E-03, 6.880E-04,  FA13220
+     *           2.890E-04, 1.300E-04, 6.470E-05, 3.600E-05, 2.250E-05,  FA13230
+     *           MXZ50*0.0 /                                             FA13240
+C                                                                        FA13250
+      DATA P2 /  1.013E+03, 9.020E+02, 8.020E+02, 7.100E+02, 6.280E+02,  FA13260
+     *           5.540E+02, 4.870E+02, 4.260E+02, 3.720E+02, 3.240E+02,  FA13270
+     *           2.810E+02, 2.430E+02, 2.090E+02, 1.790E+02, 1.530E+02,  FA13280
+     *           1.300E+02, 1.110E+02, 9.500E+01, 8.120E+01, 6.950E+01,  FA13290
+     *           5.950E+01, 5.100E+01, 4.370E+01, 3.760E+01, 3.220E+01,  FA13300
+     *           2.770E+01, 1.907E+01, 1.320E+01, 9.300E+00, 6.520E+00,  FA13310
+     *           4.640E+00, 3.330E+00, 2.410E+00, 1.760E+00, 1.290E+00,  FA13320
+     *           9.510E-01, 5.150E-01, 2.720E-01, 1.390E-01, 6.700E-02,  FA13330
+     *           3.000E-02, 1.200E-02, 4.480E-03, 1.640E-03, 6.250E-04,  FA13340
+     *           2.580E-04, 1.170E-04, 6.110E-05, 3.560E-05, 2.270E-05,  FA13350
+     *           MXZ50*0.0 /                                             FA13360
+C                                                                        FA13370
+      DATA P3 /  1.018E+03, 8.973E+02, 7.897E+02, 6.938E+02, 6.081E+02,  FA13380
+     *           5.313E+02, 4.627E+02, 4.016E+02, 3.473E+02, 2.993E+02,  FA13390
+     *           2.568E+02, 2.199E+02, 1.882E+02, 1.611E+02, 1.378E+02,  FA13400
+     *           1.178E+02, 1.007E+02, 8.610E+01, 7.360E+01, 6.280E+01,  FA13410
+     *           5.370E+01, 4.580E+01, 3.910E+01, 3.340E+01, 2.860E+01,  FA13420
+     *           2.440E+01, 1.646E+01, 1.110E+01, 7.560E+00, 5.180E+00,  FA13430
+     *           3.600E+00, 2.530E+00, 1.800E+00, 1.290E+00, 9.400E-01,  FA13440
+     *           6.830E-01, 3.620E-01, 1.880E-01, 9.500E-02, 4.700E-02,  FA13450
+     *           2.220E-02, 1.030E-02, 4.560E-03, 1.980E-03, 8.770E-04,  FA13460
+     *           4.074E-04, 2.000E-04, 1.057E-04, 5.980E-05, 3.600E-05,  FA13470
+     *           MXZ50*0.0 /                                             FA13480
+C                                                                        FA13490
+      DATA P4 /  1.010E+03, 8.960E+02, 7.929E+02, 7.000E+02, 6.160E+02,  FA13500
+     *           5.410E+02, 4.740E+02, 4.130E+02, 3.590E+02, 3.108E+02,  FA13510
+     *           2.677E+02, 2.300E+02, 1.977E+02, 1.700E+02, 1.460E+02,  FA13520
+     *           1.260E+02, 1.080E+02, 9.280E+01, 7.980E+01, 6.860E+01,  FA13530
+     *           5.900E+01, 5.070E+01, 4.360E+01, 3.750E+01, 3.228E+01,  FA13540
+     *           2.780E+01, 1.923E+01, 1.340E+01, 9.400E+00, 6.610E+00,  FA13550
+     *           4.720E+00, 3.400E+00, 2.480E+00, 1.820E+00, 1.340E+00,  FA13560
+     *           9.870E-01, 5.370E-01, 2.880E-01, 1.470E-01, 7.100E-02,  FA13570
+     *           3.200E-02, 1.250E-02, 4.510E-03, 1.610E-03, 6.060E-04,  FA13580
+     *           2.480E-04, 1.130E-04, 6.000E-05, 3.540E-05, 2.260E-05,  FA13590
+     *           MXZ50*0.0 /                                             FA13600
+C                                                                        FA13610
+      DATA P5 /  1.013E+03, 8.878E+02, 7.775E+02, 6.798E+02, 5.932E+02,  FA13620
+     *           5.158E+02, 4.467E+02, 3.853E+02, 3.308E+02, 2.829E+02,  FA13630
+     *           2.418E+02, 2.067E+02, 1.766E+02, 1.510E+02, 1.291E+02,  FA13640
+     *           1.103E+02, 9.431E+01, 8.058E+01, 6.882E+01, 5.875E+01,  FA13650
+     *           5.014E+01, 4.277E+01, 3.647E+01, 3.109E+01, 2.649E+01,  FA13660
+     *           2.256E+01, 1.513E+01, 1.020E+01, 6.910E+00, 4.701E+00,  FA13670
+     *           3.230E+00, 2.243E+00, 1.570E+00, 1.113E+00, 7.900E-01,  FA13680
+     *           5.719E-01, 2.990E-01, 1.550E-01, 7.900E-02, 4.000E-02,  FA13690
+     *           2.000E-02, 9.660E-03, 4.500E-03, 2.022E-03, 9.070E-04,  FA13700
+     *           4.230E-04, 2.070E-04, 1.080E-04, 6.000E-05, 3.590E-05,  FA13710
+     *           MXZ50*0.0 /                                             FA13720
+C                                                                        FA13730
+      DATA P6 /  1.013E+03, 8.988E+02, 7.950E+02, 7.012E+02, 6.166E+02,  FA13740
+     *           5.405E+02, 4.722E+02, 4.111E+02, 3.565E+02, 3.080E+02,  FA13750
+     *           2.650E+02, 2.270E+02, 1.940E+02, 1.658E+02, 1.417E+02,  FA13760
+     *           1.211E+02, 1.035E+02, 8.850E+01, 7.565E+01, 6.467E+01,  FA13770
+     *           5.529E+01, 4.729E+01, 4.047E+01, 3.467E+01, 2.972E+01,  FA13780
+     *           2.549E+01, 1.743E+01, 1.197E+01, 8.258E+00, 5.746E+00,  FA13790
+     *           4.041E+00, 2.871E+00, 2.060E+00, 1.491E+00, 1.090E+00,  FA13800
+     *           7.978E-01, 4.250E-01, 2.190E-01, 1.090E-01, 5.220E-02,  FA13810
+     *           2.400E-02, 1.050E-02, 4.460E-03, 1.840E-03, 7.600E-04,  FA13820
+     *           3.200E-04, 1.450E-04, 7.100E-05, 4.010E-05, 2.540E-05,  FA13830
+     *           MXZ50*0.0 /                                             FA13840
+C                                                                        FA13850
+C     DATA TEMPERATURE /                                                 FA13860
+C                                                                        FA13870
+      DATA T1 /     299.70,    293.70,    287.70,    283.70,    277.00,  FA13880
+     *              270.30,    263.60,    257.00,    250.30,    243.60,  FA13890
+     *              237.00,    230.10,    223.60,    217.00,    210.30,  FA13900
+     *              203.70,    197.00,    194.80,    198.80,    202.70,  FA13910
+     *              206.70,    210.70,    214.60,    217.00,    219.20,  FA13920
+     *              221.40,    227.00,    232.30,    237.70,    243.10,  FA13930
+     *              248.50,    254.00,    259.40,    264.80,    269.60,  FA13940
+     *              270.20,    263.40,    253.10,    236.00,    218.90,  FA13950
+     *              201.80,    184.80,    177.10,    177.00,    184.30,  FA13960
+     *              190.70,    212.00,    241.60,    299.70,    380.00,  FA13970
+     *              MXZ50*0.0 /                                          FA13980
+C                                                                        FA13990
+      DATA T2 /     294.20,    289.70,    285.20,    279.20,    273.20,  FA14000
+     *              267.20,    261.20,    254.70,    248.20,    241.70,  FA14010
+     *              235.30,    228.80,    222.30,    215.80,    215.70,  FA14020
+     *              215.70,    215.70,    215.70,    216.80,    217.90,  FA14030
+     *              219.20,    220.40,    221.60,    222.80,    223.90,  FA14040
+     *              225.10,    228.45,    233.70,    239.00,    245.20,  FA14050
+     *              251.30,    257.50,    263.70,    269.90,    275.20,  FA14060
+     *              275.70,    269.30,    257.10,    240.10,    218.10,  FA14070
+     *              196.10,    174.10,    165.10,    165.00,    178.30,  FA14080
+     *              190.50,    222.20,    262.40,    316.80,    380.00,  FA14090
+     *              MXZ50*0.0 /                                          FA14100
+C                                                                        FA14110
+      DATA T3 /     272.20,    268.70,    265.20,    261.70,    255.70,  FA14120
+     *              249.70,    243.70,    237.70,    231.70,    225.70,  FA14130
+     *              219.70,    219.20,    218.70,    218.20,    217.70,  FA14140
+     *              217.20,    216.70,    216.20,    215.70,    215.20,  FA14150
+     *              215.20,    215.20,    215.20,    215.20,    215.20,  FA14160
+     *              215.20,    215.50,    217.40,    220.40,    227.90,  FA14170
+     *              235.50,    243.20,    250.80,    258.50,    265.10,  FA14180
+     *              265.70,    260.60,    250.80,    240.90,    230.70,  FA14190
+     *              220.40,    210.10,    199.80,    199.50,    208.30,  FA14200
+     *              218.60,    237.10,    259.50,    293.00,    333.00,  FA14210
+     *              MXZ50*0.0 /                                          FA14220
+C                                                                        FA14230
+      DATA T4 /     287.20,    281.70,    276.30,    270.90,    265.50,  FA14240
+     *              260.10,    253.10,    246.10,    239.20,    232.20,  FA14250
+     *              225.20,    225.20,    225.20,    225.20,    225.20,  FA14260
+     *              225.20,    225.20,    225.20,    225.20,    225.20,  FA14270
+     *              225.20,    225.20,    225.20,    225.20,    226.60,  FA14280
+     *              228.10,    231.00,    235.10,    240.00,    247.20,  FA14290
+     *              254.60,    262.10,    269.50,    273.60,    276.20,  FA14300
+     *              277.20,    274.00,    262.70,    239.70,    216.60,  FA14310
+     *              193.60,    170.60,    161.70,    161.60,    176.80,  FA14320
+     *              190.40,    226.00,    270.10,    322.70,    380.00,  FA14330
+     *              MXZ50*0.0 /                                          FA14340
+C                                                                        FA14350
+      DATA T5 /     257.20,    259.10,    255.90,    252.70,    247.70,  FA14360
+     *              240.90,    234.10,    227.30,    220.60,    217.20,  FA14370
+     *              217.20,    217.20,    217.20,    217.20,    217.20,  FA14380
+     *              217.20,    216.60,    216.00,    215.40,    214.80,  FA14390
+     *              214.20,    213.60,    213.00,    212.40,    211.80,  FA14400
+     *              211.20,    213.60,    216.00,    218.50,    222.30,  FA14410
+     *              228.50,    234.70,    240.80,    247.00,    253.20,  FA14420
+     *              259.30,    259.10,    250.90,    248.40,    245.40,  FA14430
+     *              234.70,    223.90,    213.10,    202.30,    211.00,  FA14440
+     *              218.50,    234.00,    252.60,    288.50,    333.00,  FA14450
+     *              MXZ50*0.0 /                                          FA14460
+C                                                                        FA14470
+      DATA T6 /     288.20,    281.70,    275.20,    268.70,    262.20,  FA14480
+     *              255.70,    249.20,    242.70,    236.20,    229.70,  FA14490
+     *              223.30,    216.80,    216.70,    216.70,    216.70,  FA14500
+     *              216.70,    216.70,    216.70,    216.70,    216.70,  FA14510
+     *              216.70,    217.60,    218.60,    219.60,    220.60,  FA14520
+     *              221.60,    224.00,    226.50,    229.60,    236.50,  FA14530
+     *              243.40,    250.40,    257.30,    264.20,    270.60,  FA14540
+     *              270.70,    260.80,    247.00,    233.30,    219.60,  FA14550
+     *              208.40,    198.60,    188.90,    186.90,    188.40,  FA14560
+     *              195.10,    208.80,    240.00,    300.00,    360.00,  FA14570
+     *              MXZ50*0.0 /                                          FA14580
+C                                                                        FA14590
+C     DATA  H2O /                                                        FA14600
+C                                                                        FA14610
+      DATA AMOL11 /                                                      FA14620
+     *           2.593E+04, 1.949E+04, 1.534E+04, 8.600E+03, 4.441E+03,  FA14630
+     *           3.346E+03, 2.101E+03, 1.289E+03, 7.637E+02, 4.098E+02,  FA14640
+     *           1.912E+02, 7.306E+01, 2.905E+01, 9.900E+00, 6.220E+00,  FA14650
+     *           4.000E+00, 3.000E+00, 2.900E+00, 2.750E+00, 2.600E+00,  FA14660
+     *           2.600E+00, 2.650E+00, 2.800E+00, 2.900E+00, 3.200E+00,  FA14670
+     *           3.250E+00, 3.600E+00, 4.000E+00, 4.300E+00, 4.600E+00,  FA14680
+     *           4.900E+00, 5.200E+00, 5.500E+00, 5.700E+00, 5.900E+00,  FA14690
+     *           6.000E+00, 6.000E+00, 6.000E+00, 5.400E+00, 4.500E+00,  FA14700
+     *           3.300E+00, 2.100E+00, 1.300E+00, 8.500E-01, 5.400E-01,  FA14710
+     *           4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01,  FA14720
+     *           MXZ50*0.0 /                                             FA14730
+C                                                                        FA14740
+      DATA AMOL21 /                                                      FA14750
+     *           1.876E+04, 1.378E+04, 9.680E+03, 5.984E+03, 3.813E+03,  FA14760
+     *           2.225E+03, 1.510E+03, 1.020E+03, 6.464E+02, 4.129E+02,  FA14770
+     *           2.472E+02, 9.556E+01, 2.944E+01, 8.000E+00, 5.000E+00,  FA14780
+     *           3.400E+00, 3.300E+00, 3.200E+00, 3.150E+00, 3.200E+00,  FA14790
+     *           3.300E+00, 3.450E+00, 3.600E+00, 3.850E+00, 4.000E+00,  FA14800
+     *           4.200E+00, 4.450E+00, 4.700E+00, 4.850E+00, 4.950E+00,  FA14810
+     *           5.000E+00, 5.100E+00, 5.300E+00, 5.450E+00, 5.500E+00,  FA14820
+     *           5.500E+00, 5.350E+00, 5.000E+00, 4.400E+00, 3.700E+00,  FA14830
+     *           2.950E+00, 2.100E+00, 1.330E+00, 8.500E-01, 5.400E-01,  FA14840
+     *           4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01,  FA14850
+     *           MXZ50*0.0 /                                             FA14860
+C                                                                        FA14870
+      DATA AMOL31 /                                                      FA14880
+     *           4.316E+03, 3.454E+03, 2.788E+03, 2.088E+03, 1.280E+03,  FA14890
+     *           8.241E+02, 5.103E+02, 2.321E+02, 1.077E+02, 5.566E+01,  FA14900
+     *           2.960E+01, 1.000E+01, 6.000E+00, 5.000E+00, 4.800E+00,  FA14910
+     *           4.700E+00, 4.600E+00, 4.500E+00, 4.500E+00, 4.500E+00,  FA14920
+     *           4.500E+00, 4.500E+00, 4.530E+00, 4.550E+00, 4.600E+00,  FA14930
+     *           4.650E+00, 4.700E+00, 4.750E+00, 4.800E+00, 4.850E+00,  FA14940
+     *           4.900E+00, 4.950E+00, 5.000E+00, 5.000E+00, 5.000E+00,  FA14950
+     *           4.950E+00, 4.850E+00, 4.500E+00, 4.000E+00, 3.300E+00,  FA14960
+     *           2.700E+00, 2.000E+00, 1.330E+00, 8.500E-01, 5.400E-01,  FA14970
+     *           4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01,  FA14980
+     *           MXZ50*0.0 /                                             FA14990
+C                                                                        FA15000
+      DATA AMOL41 /                                                      FA15010
+     *           1.194E+04, 8.701E+03, 6.750E+03, 4.820E+03, 3.380E+03,  FA15020
+     *           2.218E+03, 1.330E+03, 7.971E+02, 3.996E+02, 1.300E+02,  FA15030
+     *           4.240E+01, 1.330E+01, 6.000E+00, 4.450E+00, 4.000E+00,  FA15040
+     *           4.000E+00, 4.000E+00, 4.050E+00, 4.300E+00, 4.500E+00,  FA15050
+     *           4.600E+00, 4.700E+00, 4.800E+00, 4.830E+00, 4.850E+00,  FA15060
+     *           4.900E+00, 4.950E+00, 5.000E+00, 5.000E+00, 5.000E+00,  FA15070
+     *           5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00,  FA15080
+     *           4.950E+00, 4.850E+00, 4.500E+00, 4.000E+00, 3.300E+00,  FA15090
+     *           2.700E+00, 2.000E+00, 1.330E+00, 8.500E-01, 5.400E-01,  FA15100
+     *           4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01,  FA15110
+     *           MXZ50*0.0 /                                             FA15120
+C                                                                        FA15130
+      DATA AMOL51 /                                                      FA15140
+     *           1.405E+03, 1.615E+03, 1.427E+03, 1.166E+03, 7.898E+02,  FA15150
+     *           4.309E+02, 2.369E+02, 1.470E+02, 3.384E+01, 2.976E+01,  FA15160
+     *           2.000E+01, 1.000E+01, 6.000E+00, 4.450E+00, 4.500E+00,  FA15170
+     *           4.550E+00, 4.600E+00, 4.650E+00, 4.700E+00, 4.750E+00,  FA15180
+     *           4.800E+00, 4.850E+00, 4.900E+00, 4.950E+00, 5.000E+00,  FA15190
+     *           5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00,  FA15200
+     *           5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00,  FA15210
+     *           4.950E+00, 4.850E+00, 4.500E+00, 4.000E+00, 3.300E+00,  FA15220
+     *           2.700E+00, 2.000E+00, 1.330E+00, 8.500E-01, 5.400E-01,  FA15230
+     *           4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01,  FA15240
+     *           MXZ50*0.0 /                                             FA15250
+C                                                                        FA15260
+      DATA AMOL61 /                                                      FA15270
+     *           7.745E+03, 6.071E+03, 4.631E+03, 3.182E+03, 2.158E+03,  FA15280
+     *           1.397E+03, 9.254E+02, 5.720E+02, 3.667E+02, 1.583E+02,  FA15290
+     *           6.996E+01, 3.613E+01, 1.906E+01, 1.085E+01, 5.927E+00,  FA15300
+     *           5.000E+00, 3.950E+00, 3.850E+00, 3.825E+00, 3.850E+00,  FA15310
+     *           3.900E+00, 3.975E+00, 4.065E+00, 4.200E+00, 4.300E+00,  FA15320
+     *           4.425E+00, 4.575E+00, 4.725E+00, 4.825E+00, 4.900E+00,  FA15330
+     *           4.950E+00, 5.025E+00, 5.150E+00, 5.225E+00, 5.250E+00,  FA15340
+     *           5.225E+00, 5.100E+00, 4.750E+00, 4.200E+00, 3.500E+00,  FA15350
+     *           2.825E+00, 2.050E+00, 1.330E+00, 8.500E-01, 5.400E-01,  FA15360
+     *           4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01,  FA15370
+     *           MXZ50*0.0 /                                             FA15380
+C                                                                        FA15390
+C     DATA CO2 /                                                         FA15400
+C                                                                        FA15410
+      DATA AMOL12 /                                                      FA15420
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15430
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15440
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15450
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15460
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15470
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15480
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15490
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15500
+     *           3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,  FA15510
+     *           1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01,  FA15520
+     *           MXZ50*0.0 /                                             FA15530
+C                                                                        FA15540
+      DATA AMOL22 /                                                      FA15550
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15560
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15570
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15580
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15590
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15600
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15610
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15620
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15630
+     *           3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,  FA15640
+     *           1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01,  FA15650
+     *           MXZ50*0.0 /                                             FA15660
+C                                                                        FA15670
+      DATA AMOL32 /                                                      FA15680
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15690
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15700
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15710
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15720
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15730
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15740
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15750
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15760
+     *           3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,  FA15770
+     *           1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01,  FA15780
+     *           MXZ50*0.0 /                                             FA15790
+C                                                                        FA15800
+      DATA AMOL42 /                                                      FA15810
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15820
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15830
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15840
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15850
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15860
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15870
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15880
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15890
+     *           3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,  FA15900
+     *           1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01,  FA15910
+     *           MXZ50*0.0 /                                             FA15920
+C                                                                        FA15930
+      DATA AMOL52 /                                                      FA15940
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15950
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15960
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15970
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15980
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA15990
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16000
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16010
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16020
+     *           3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,  FA16030
+     *           1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01,  FA16040
+     *           MXZ50*0.0 /                                             FA16050
+C                                                                        FA16060
+      DATA AMOL62 /                                                      FA16070
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16080
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16090
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16100
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16110
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16120
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16130
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16140
+     *           3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,  FA16150
+     *           3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,  FA16160
+     *           1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01,  FA16170
+     *           MXZ50*0.0 /                                             FA16180
+C                                                                        FA16190
+C     DATA OZONE /                                                       FA16200
+C                                                                        FA16210
+      DATA AMOL13 /                                                      FA16220
+     *           2.869E-02, 3.150E-02, 3.342E-02, 3.504E-02, 3.561E-02,  FA16230
+     *           3.767E-02, 3.989E-02, 4.223E-02, 4.471E-02, 5.000E-02,  FA16240
+     *           5.595E-02, 6.613E-02, 7.815E-02, 9.289E-02, 1.050E-01,  FA16250
+     *           1.256E-01, 1.444E-01, 2.500E-01, 5.000E-01, 9.500E-01,  FA16260
+     *           1.400E+00, 1.800E+00, 2.400E+00, 3.400E+00, 4.300E+00,  FA16270
+     *           5.400E+00, 7.800E+00, 9.300E+00, 9.850E+00, 9.700E+00,  FA16280
+     *           8.800E+00, 7.500E+00, 5.900E+00, 4.500E+00, 3.450E+00,  FA16290
+     *           2.800E+00, 1.800E+00, 1.100E+00, 6.500E-01, 3.000E-01,  FA16300
+     *           1.800E-01, 3.300E-01, 5.000E-01, 5.200E-01, 5.000E-01,  FA16310
+     *           4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04,  FA16320
+     *           MXZ50*0.0 /                                             FA16330
+C                                                                        FA16340
+      DATA AMOL23 /                                                      FA16350
+     *           3.017E-02, 3.337E-02, 3.694E-02, 4.222E-02, 4.821E-02,  FA16360
+     *           5.512E-02, 6.408E-02, 7.764E-02, 9.126E-02, 1.111E-01,  FA16370
+     *           1.304E-01, 1.793E-01, 2.230E-01, 3.000E-01, 4.400E-01,  FA16380
+     *           5.000E-01, 6.000E-01, 7.000E-01, 1.000E+00, 1.500E+00,  FA16390
+     *           2.000E+00, 2.400E+00, 2.900E+00, 3.400E+00, 4.000E+00,  FA16400
+     *           4.800E+00, 6.000E+00, 7.000E+00, 8.100E+00, 8.900E+00,  FA16410
+     *           8.700E+00, 7.550E+00, 5.900E+00, 4.500E+00, 3.500E+00,  FA16420
+     *           2.800E+00, 1.800E+00, 1.300E+00, 8.000E-01, 4.000E-01,  FA16430
+     *           1.900E-01, 2.000E-01, 5.700E-01, 7.500E-01, 7.000E-01,  FA16440
+     *           4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04,  FA16450
+     *           MXZ50*0.0 /                                             FA16460
+C                                                                        FA16470
+      DATA AMOL33 /                                                      FA16480
+     *           2.778E-02, 2.800E-02, 2.849E-02, 3.200E-02, 3.567E-02,  FA16490
+     *           4.720E-02, 5.837E-02, 7.891E-02, 1.039E-01, 1.567E-01,  FA16500
+     *           2.370E-01, 3.624E-01, 5.232E-01, 7.036E-01, 8.000E-01,  FA16510
+     *           9.000E-01, 1.100E+00, 1.400E+00, 1.800E+00, 2.300E+00,  FA16520
+     *           2.900E+00, 3.500E+00, 3.900E+00, 4.300E+00, 4.700E+00,  FA16530
+     *           5.100E+00, 5.600E+00, 6.100E+00, 6.800E+00, 7.100E+00,  FA16540
+     *           7.200E+00, 6.900E+00, 5.900E+00, 4.600E+00, 3.700E+00,  FA16550
+     *           2.750E+00, 1.700E+00, 1.000E-00, 5.500E-01, 3.200E-01,  FA16560
+     *           2.500E-01, 2.300E-01, 5.500E-01, 8.000E-01, 8.000E-01,  FA16570
+     *           4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04,  FA16580
+     *           MXZ50*0.0 /                                             FA16590
+C                                                                        FA16600
+      DATA AMOL43 /                                                      FA16610
+     *           2.412E-02, 2.940E-02, 3.379E-02, 3.887E-02, 4.478E-02,  FA16620
+     *           5.328E-02, 6.564E-02, 7.738E-02, 9.114E-02, 1.420E-01,  FA16630
+     *           1.890E-01, 3.050E-01, 4.100E-01, 5.000E-01, 6.000E-01,  FA16640
+     *           7.000E-01, 8.500E-01, 1.000E+00, 1.300E+00, 1.700E+00,  FA16650
+     *           2.100E+00, 2.700E+00, 3.300E+00, 3.700E+00, 4.200E+00,  FA16660
+     *           4.500E+00, 5.300E+00, 5.700E+00, 6.900E+00, 7.700E+00,  FA16670
+     *           7.800E+00, 7.000E+00, 5.400E+00, 4.200E+00, 3.200E+00,  FA16680
+     *           2.500E+00, 1.700E+00, 1.200E+00, 8.000E-01, 4.000E-01,  FA16690
+     *           2.000E-01, 1.800E-01, 6.500E-01, 9.000E-01, 8.000E-01,  FA16700
+     *           4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04,  FA16710
+     *           MXZ50*0.0 /                                             FA16720
+C                                                                        FA16730
+      DATA AMOL53 /                                                      FA16740
+     *           1.802E-02, 2.072E-02, 2.336E-02, 2.767E-02, 3.253E-02,  FA16750
+     *           3.801E-02, 4.446E-02, 7.252E-02, 1.040E-01, 2.100E-01,  FA16760
+     *           3.000E-01, 3.500E-01, 4.000E-01, 6.500E-01, 9.000E-01,  FA16770
+     *           1.200E+00, 1.500E+00, 1.900E+00, 2.450E+00, 3.100E+00,  FA16780
+     *           3.700E+00, 4.000E+00, 4.200E+00, 4.500E+00, 4.600E+00,  FA16790
+     *           4.700E+00, 4.900E+00, 5.400E+00, 5.900E+00, 6.200E+00,  FA16800
+     *           6.250E+00, 5.900E+00, 5.100E+00, 4.100E+00, 3.000E+00,  FA16810
+     *           2.600E+00, 1.600E+00, 9.500E-01, 6.500E-01, 5.000E-01,  FA16820
+     *           3.300E-01, 1.300E-01, 7.500E-01, 8.000E-01, 8.000E-01,  FA16830
+     *           4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04,  FA16840
+     *           MXZ50*0.0 /                                             FA16850
+C                                                                        FA16860
+      DATA AMOL63 /                                                      FA16870
+     *           2.660E-02, 2.931E-02, 3.237E-02, 3.318E-02, 3.387E-02,  FA16880
+     *           3.768E-02, 4.112E-02, 5.009E-02, 5.966E-02, 9.168E-02,  FA16890
+     *           1.313E-01, 2.149E-01, 3.095E-01, 3.846E-01, 5.030E-01,  FA16900
+     *           6.505E-01, 8.701E-01, 1.187E+00, 1.587E+00, 2.030E+00,  FA16910
+     *           2.579E+00, 3.028E+00, 3.647E+00, 4.168E+00, 4.627E+00,  FA16920
+     *           5.118E+00, 5.803E+00, 6.553E+00, 7.373E+00, 7.837E+00,  FA16930
+     *           7.800E+00, 7.300E+00, 6.200E+00, 5.250E+00, 4.100E+00,  FA16940
+     *           3.100E+00, 1.800E+00, 1.100E+00, 7.000E-01, 3.000E-01,  FA16950
+     *           2.500E-01, 3.000E-01, 5.000E-01, 7.000E-01, 7.000E-01,  FA16960
+     *           4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04,  FA16970
+     *           MXZ50*0.0 /                                             FA16980
+C                                                                        FA16990
+C     DATA  N2O /                                                        FA17000
+C                                                                        FA17010
+      DATA AMOL14 /                                                      FA17020
+     *           3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01,  FA17030
+     *           3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.195E-01,  FA17040
+     *           3.179E-01, 3.140E-01, 3.095E-01, 3.048E-01, 2.999E-01,  FA17050
+     *           2.944E-01, 2.877E-01, 2.783E-01, 2.671E-01, 2.527E-01,  FA17060
+     *           2.365E-01, 2.194E-01, 2.051E-01, 1.967E-01, 1.875E-01,  FA17070
+     *           1.756E-01, 1.588E-01, 1.416E-01, 1.165E-01, 9.275E-02,  FA17080
+     *           6.693E-02, 4.513E-02, 2.751E-02, 1.591E-02, 9.378E-03,  FA17090
+     *           4.752E-03, 3.000E-03, 2.065E-03, 1.507E-03, 1.149E-03,  FA17100
+     *           8.890E-04, 7.056E-04, 5.716E-04, 4.708E-04, 3.932E-04,  FA17110
+     *           3.323E-04, 2.837E-04, 2.443E-04, 2.120E-04, 1.851E-04,  FA17120
+     *           MXZ50*0.0 /                                             FA17130
+C                                                                        FA17140
+      DATA AMOL24 /                                                      FA17150
+     *           3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01,  FA17160
+     *           3.200E-01, 3.200E-01, 3.200E-01, 3.195E-01, 3.163E-01,  FA17170
+     *           3.096E-01, 2.989E-01, 2.936E-01, 2.860E-01, 2.800E-01,  FA17180
+     *           2.724E-01, 2.611E-01, 2.421E-01, 2.174E-01, 1.843E-01,  FA17190
+     *           1.607E-01, 1.323E-01, 1.146E-01, 1.035E-01, 9.622E-02,  FA17200
+     *           8.958E-02, 8.006E-02, 6.698E-02, 4.958E-02, 3.695E-02,  FA17210
+     *           2.519E-02, 1.736E-02, 1.158E-02, 7.665E-03, 5.321E-03,  FA17220
+     *           3.215E-03, 2.030E-03, 1.397E-03, 1.020E-03, 7.772E-04,  FA17230
+     *           6.257E-04, 5.166E-04, 4.352E-04, 3.727E-04, 3.237E-04,  FA17240
+     *           2.844E-04, 2.524E-04, 2.260E-04, 2.039E-04, 1.851E-04,  FA17250
+     *           MXZ50*0.0 /                                             FA17260
+C                                                                        FA17270
+      DATA AMOL34 /                                                      FA17280
+     *           3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01,  FA17290
+     *           3.200E-01, 3.200E-01, 3.200E-01, 3.195E-01, 3.163E-01,  FA17300
+     *           3.096E-01, 2.989E-01, 2.936E-01, 2.860E-01, 2.800E-01,  FA17310
+     *           2.724E-01, 2.611E-01, 2.421E-01, 2.174E-01, 1.843E-01,  FA17320
+     *           1.621E-01, 1.362E-01, 1.230E-01, 1.124E-01, 1.048E-01,  FA17330
+     *           9.661E-02, 8.693E-02, 7.524E-02, 6.126E-02, 5.116E-02,  FA17340
+     *           3.968E-02, 2.995E-02, 2.080E-02, 1.311E-02, 8.071E-03,  FA17350
+     *           4.164E-03, 2.629E-03, 1.809E-03, 1.321E-03, 1.007E-03,  FA17360
+     *           7.883E-04, 6.333E-04, 5.194E-04, 4.333E-04, 3.666E-04,  FA17370
+     *           3.140E-04, 2.717E-04, 2.373E-04, 2.089E-04, 1.851E-04,  FA17380
+     *           MXZ50*0.0 /                                             FA17390
+C                                                                        FA17400
+      DATA AMOL44 /                                                      FA17410
+     *           3.100E-01, 3.100E-01, 3.100E-01, 3.100E-01, 3.079E-01,  FA17420
+     *           3.024E-01, 2.906E-01, 2.822E-01, 2.759E-01, 2.703E-01,  FA17430
+     *           2.651E-01, 2.600E-01, 2.549E-01, 2.494E-01, 2.433E-01,  FA17440
+     *           2.355E-01, 2.282E-01, 2.179E-01, 2.035E-01, 1.817E-01,  FA17450
+     *           1.567E-01, 1.350E-01, 1.218E-01, 1.102E-01, 9.893E-02,  FA17460
+     *           8.775E-02, 7.327E-02, 5.941E-02, 4.154E-02, 3.032E-02,  FA17470
+     *           1.949E-02, 1.274E-02, 9.001E-03, 6.286E-03, 4.558E-03,  FA17480
+     *           2.795E-03, 1.765E-03, 1.214E-03, 8.866E-04, 6.756E-04,  FA17490
+     *           5.538E-04, 4.649E-04, 3.979E-04, 3.459E-04, 3.047E-04,  FA17500
+     *           2.713E-04, 2.439E-04, 2.210E-04, 2.017E-04, 1.851E-04,  FA17510
+     *           MXZ50*0.0 /                                             FA17520
+C                                                                        FA17530
+      DATA AMOL54 /                                                      FA17540
+     *           3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01,  FA17550
+     *           3.200E-01, 3.200E-01, 3.200E-01, 3.195E-01, 3.163E-01,  FA17560
+     *           3.096E-01, 2.989E-01, 2.936E-01, 2.860E-01, 2.800E-01,  FA17570
+     *           2.724E-01, 2.611E-01, 2.421E-01, 2.174E-01, 1.843E-01,  FA17580
+     *           1.621E-01, 1.362E-01, 1.230E-01, 1.122E-01, 1.043E-01,  FA17590
+     *           9.570E-02, 8.598E-02, 7.314E-02, 5.710E-02, 4.670E-02,  FA17600
+     *           3.439E-02, 2.471E-02, 1.631E-02, 1.066E-02, 7.064E-03,  FA17610
+     *           3.972E-03, 2.508E-03, 1.726E-03, 1.260E-03, 9.602E-04,  FA17620
+     *           7.554E-04, 6.097E-04, 5.024E-04, 4.210E-04, 3.579E-04,  FA17630
+     *           3.080E-04, 2.678E-04, 2.350E-04, 2.079E-04, 1.851E-04,  FA17640
+     *           MXZ50*0.0 /                                             FA17650
+C                                                                        FA17660
+      DATA AMOL64 /                                                      FA17670
+     *           3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01,  FA17680
+     *           3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.195E-01,  FA17690
+     *           3.179E-01, 3.140E-01, 3.095E-01, 3.048E-01, 2.999E-01,  FA17700
+     *           2.944E-01, 2.877E-01, 2.783E-01, 2.671E-01, 2.527E-01,  FA17710
+     *           2.365E-01, 2.194E-01, 2.051E-01, 1.967E-01, 1.875E-01,  FA17720
+     *           1.756E-01, 1.588E-01, 1.416E-01, 1.165E-01, 9.275E-02,  FA17730
+     *           6.693E-02, 4.513E-02, 2.751E-02, 1.591E-02, 9.378E-03,  FA17740
+     *           4.752E-03, 3.000E-03, 2.065E-03, 1.507E-03, 1.149E-03,  FA17750
+     *           8.890E-04, 7.056E-04, 5.716E-04, 4.708E-04, 3.932E-04,  FA17760
+     *           3.323E-04, 2.837E-04, 2.443E-04, 2.120E-04, 1.851E-04,  FA17770
+     *           MXZ50*0.0 /                                             FA17780
+C                                                                        FA17790
+C     DATA CO /                                                          FA17800
+C                                                                        FA17810
+      DATA AMOL15 /                                                      FA17820
+     *           1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,  FA17830
+     *           1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,  FA17840
+     *           9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,  FA17850
+     *           3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,  FA17860
+     *           1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,  FA17870
+     *           1.521E-02, 1.722E-02, 1.995E-02, 2.266E-02, 2.487E-02,  FA17880
+     *           2.738E-02, 3.098E-02, 3.510E-02, 3.987E-02, 4.482E-02,  FA17890
+     *           5.092E-02, 5.985E-02, 6.960E-02, 9.188E-02, 1.938E-01,  FA17900
+     *           5.688E-01, 1.549E+00, 3.849E+00, 6.590E+00, 1.044E+01,  FA17910
+     *           1.705E+01, 2.471E+01, 3.358E+01, 4.148E+01, 5.000E+01,  FA17920
+     *           MXZ50*0.0 /                                             FA17930
+C                                                                        FA17940
+      DATA AMOL25 /                                                      FA17950
+     *           1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,  FA17960
+     *           1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,  FA17970
+     *           9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,  FA17980
+     *           3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,  FA17990
+     *           1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,  FA18000
+     *           1.521E-02, 1.722E-02, 1.995E-02, 2.266E-02, 2.487E-02,  FA18010
+     *           2.716E-02, 2.962E-02, 3.138E-02, 3.307E-02, 3.487E-02,  FA18020
+     *           3.645E-02, 3.923E-02, 4.673E-02, 6.404E-02, 1.177E-01,  FA18030
+     *           2.935E-01, 6.815E-01, 1.465E+00, 2.849E+00, 5.166E+00,  FA18040
+     *           1.008E+01, 1.865E+01, 2.863E+01, 3.890E+01, 5.000E+01,  FA18050
+     *           MXZ50*0.0 /                                             FA18060
+C                                                                        FA18070
+      DATA AMOL35 /                                                      FA18080
+     *           1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,  FA18090
+     *           1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,  FA18100
+     *           9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,  FA18110
+     *           3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,  FA18120
+     *           1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,  FA18130
+     *           1.498E-02, 1.598E-02, 1.710E-02, 1.850E-02, 1.997E-02,  FA18140
+     *           2.147E-02, 2.331E-02, 2.622E-02, 3.057E-02, 3.803E-02,  FA18150
+     *           6.245E-02, 1.480E-01, 2.926E-01, 5.586E-01, 1.078E+00,  FA18160
+     *           1.897E+00, 2.960E+00, 4.526E+00, 6.862E+00, 1.054E+01,  FA18170
+     *           1.709E+01, 2.473E+01, 3.359E+01, 4.149E+01, 5.000E+01,  FA18180
+     *           MXZ50*0.0 /                                             FA18190
+C                                                                        FA18200
+      DATA AMOL45 /                                                      FA18210
+     *           1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,  FA18220
+     *           1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,  FA18230
+     *           9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,  FA18240
+     *           3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,  FA18250
+     *           1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,  FA18260
+     *           1.510E-02, 1.649E-02, 1.808E-02, 1.997E-02, 2.183E-02,  FA18270
+     *           2.343E-02, 2.496E-02, 2.647E-02, 2.809E-02, 2.999E-02,  FA18280
+     *           3.220E-02, 3.650E-02, 4.589E-02, 6.375E-02, 1.176E-01,  FA18290
+     *           3.033E-01, 7.894E-01, 1.823E+00, 3.402E+00, 5.916E+00,  FA18300
+     *           1.043E+01, 1.881E+01, 2.869E+01, 3.892E+01, 5.000E+01,  FA18310
+     *           MXZ50*0.0 /                                             FA18320
+C                                                                        FA18330
+      DATA AMOL55 /                                                      FA18340
+     *           1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,  FA18350
+     *           1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,  FA18360
+     *           9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,  FA18370
+     *           3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,  FA18380
+     *           1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,  FA18390
+     *           1.521E-02, 1.722E-02, 2.037E-02, 2.486E-02, 3.168E-02,  FA18400
+     *           4.429E-02, 6.472E-02, 1.041E-01, 1.507E-01, 2.163E-01,  FA18410
+     *           3.141E-01, 4.842E-01, 7.147E-01, 1.067E+00, 1.516E+00,  FA18420
+     *           2.166E+00, 3.060E+00, 4.564E+00, 6.877E+00, 1.055E+01,  FA18430
+     *           1.710E+01, 2.473E+01, 3.359E+01, 4.149E+01, 5.000E+01,  FA18440
+     *           MXZ50*0.0 /                                             FA18450
+C                                                                        FA18460
+      DATA AMOL65 /                                                      FA18470
+     *           1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,  FA18480
+     *           1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,  FA18490
+     *           9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,  FA18500
+     *           3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,  FA18510
+     *           1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,  FA18520
+     *           1.498E-02, 1.598E-02, 1.710E-02, 1.850E-02, 2.009E-02,  FA18530
+     *           2.220E-02, 2.497E-02, 2.824E-02, 3.241E-02, 3.717E-02,  FA18540
+     *           4.597E-02, 6.639E-02, 1.073E-01, 1.862E-01, 3.059E-01,  FA18550
+     *           6.375E-01, 1.497E+00, 3.239E+00, 5.843E+00, 1.013E+01,  FA18560
+     *           1.692E+01, 2.467E+01, 3.356E+01, 4.148E+01, 5.000E+01,  FA18570
+     *           MXZ50*0.0 /                                             FA18580
+C                                                                        FA18590
+C     DATA  CH4 /                                                        FA18600
+C                                                                        FA18610
+      DATA AMOL16 /                                                      FA18620
+     *           1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00,  FA18630
+     *           1.700E+00, 1.700E+00, 1.699E+00, 1.697E+00, 1.693E+00,  FA18640
+     *           1.685E+00, 1.675E+00, 1.662E+00, 1.645E+00, 1.626E+00,  FA18650
+     *           1.605E+00, 1.582E+00, 1.553E+00, 1.521E+00, 1.480E+00,  FA18660
+     *           1.424E+00, 1.355E+00, 1.272E+00, 1.191E+00, 1.118E+00,  FA18670
+     *           1.055E+00, 9.870E-01, 9.136E-01, 8.300E-01, 7.460E-01,  FA18680
+     *           6.618E-01, 5.638E-01, 4.614E-01, 3.631E-01, 2.773E-01,  FA18690
+     *           2.100E-01, 1.651E-01, 1.500E-01, 1.500E-01, 1.500E-01,  FA18700
+     *           1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,  FA18710
+     *           1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02,  FA18720
+     *           MXZ50*0.0 /                                             FA18730
+C                                                                        FA18740
+      DATA AMOL26 /                                                      FA18750
+     *           1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.697E+00,  FA18760
+     *           1.687E+00, 1.672E+00, 1.649E+00, 1.629E+00, 1.615E+00,  FA18770
+     *           1.579E+00, 1.542E+00, 1.508E+00, 1.479E+00, 1.451E+00,  FA18780
+     *           1.422E+00, 1.390E+00, 1.356E+00, 1.323E+00, 1.281E+00,  FA18790
+     *           1.224E+00, 1.154E+00, 1.066E+00, 9.730E-01, 8.800E-01,  FA18800
+     *           7.888E-01, 7.046E-01, 6.315E-01, 5.592E-01, 5.008E-01,  FA18810
+     *           4.453E-01, 3.916E-01, 3.389E-01, 2.873E-01, 2.384E-01,  FA18820
+     *           1.944E-01, 1.574E-01, 1.500E-01, 1.500E-01, 1.500E-01,  FA18830
+     *           1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,  FA18840
+     *           1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02,  FA18850
+     *           MXZ50*0.0 /                                             FA18860
+C                                                                        FA18870
+      DATA AMOL36 /                                                      FA18880
+     *           1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.697E+00,  FA18890
+     *           1.687E+00, 1.672E+00, 1.649E+00, 1.629E+00, 1.615E+00,  FA18900
+     *           1.579E+00, 1.542E+00, 1.508E+00, 1.479E+00, 1.451E+00,  FA18910
+     *           1.422E+00, 1.390E+00, 1.356E+00, 1.323E+00, 1.281E+00,  FA18920
+     *           1.224E+00, 1.154E+00, 1.066E+00, 9.730E-01, 8.800E-01,  FA18930
+     *           7.931E-01, 7.130E-01, 6.438E-01, 5.746E-01, 5.050E-01,  FA18940
+     *           4.481E-01, 3.931E-01, 3.395E-01, 2.876E-01, 2.386E-01,  FA18950
+     *           1.944E-01, 1.574E-01, 1.500E-01, 1.500E-01, 1.500E-01,  FA18960
+     *           1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,  FA18970
+     *           1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02,  FA18980
+     *           MXZ50*0.0 /                                             FA18990
+C                                                                        FA19000
+      DATA AMOL46 /                                                      FA19010
+     *           1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.697E+00,  FA19020
+     *           1.687E+00, 1.672E+00, 1.649E+00, 1.629E+00, 1.615E+00,  FA19030
+     *           1.579E+00, 1.542E+00, 1.506E+00, 1.471E+00, 1.434E+00,  FA19040
+     *           1.389E+00, 1.342E+00, 1.290E+00, 1.230E+00, 1.157E+00,  FA19050
+     *           1.072E+00, 9.903E-01, 9.170E-01, 8.574E-01, 8.013E-01,  FA19060
+     *           7.477E-01, 6.956E-01, 6.442E-01, 5.888E-01, 5.240E-01,  FA19070
+     *           4.506E-01, 3.708E-01, 2.992E-01, 2.445E-01, 2.000E-01,  FA19080
+     *           1.660E-01, 1.500E-01, 1.500E-01, 1.500E-01, 1.500E-01,  FA19090
+     *           1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,  FA19100
+     *           1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02,  FA19110
+     *           MXZ50*0.0 /                                             FA19120
+C                                                                        FA19130
+      DATA AMOL56 /                                                      FA19140
+     *           1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.697E+00,  FA19150
+     *           1.687E+00, 1.672E+00, 1.649E+00, 1.629E+00, 1.615E+00,  FA19160
+     *           1.579E+00, 1.542E+00, 1.506E+00, 1.471E+00, 1.434E+00,  FA19170
+     *           1.389E+00, 1.342E+00, 1.290E+00, 1.230E+00, 1.161E+00,  FA19180
+     *           1.084E+00, 1.014E+00, 9.561E-01, 9.009E-01, 8.479E-01,  FA19190
+     *           7.961E-01, 7.449E-01, 6.941E-01, 6.434E-01, 5.883E-01,  FA19200
+     *           5.238E-01, 4.505E-01, 3.708E-01, 3.004E-01, 2.453E-01,  FA19210
+     *           1.980E-01, 1.590E-01, 1.500E-01, 1.500E-01, 1.500E-01,  FA19220
+     *           1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,  FA19230
+     *           1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02,  FA19240
+     *           MXZ50*0.0 /                                             FA19250
+C                                                                        FA19260
+      DATA AMOL66 /                                                      FA19270
+     *           1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00,  FA19280
+     *           1.700E+00, 1.700E+00, 1.699E+00, 1.697E+00, 1.693E+00,  FA19290
+     *           1.685E+00, 1.675E+00, 1.662E+00, 1.645E+00, 1.626E+00,  FA19300
+     *           1.605E+00, 1.582E+00, 1.553E+00, 1.521E+00, 1.480E+00,  FA19310
+     *           1.424E+00, 1.355E+00, 1.272E+00, 1.191E+00, 1.118E+00,  FA19320
+     *           1.055E+00, 9.870E-01, 9.136E-01, 8.300E-01, 7.460E-01,  FA19330
+     *           6.618E-01, 5.638E-01, 4.614E-01, 3.631E-01, 2.773E-01,  FA19340
+     *           2.100E-01, 1.650E-01, 1.500E-01, 1.500E-01, 1.500E-01,  FA19350
+     *           1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,  FA19360
+     *           1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02,  FA19370
+     *           MXZ50*0.0 /                                             FA19380
+C                                                                        FA19390
+C     DATA O2 /                                                          FA19400
+C                                                                        FA19410
+      DATA AMOL17 /                                                      FA19420
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19430
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19440
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19450
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19460
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19470
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19480
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19490
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19500
+     *           2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,  FA19510
+     *           1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04,  FA19520
+     *           MXZ50*0.0 /                                             FA19530
+C                                                                        FA19540
+      DATA AMOL27 /                                                      FA19550
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19560
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19570
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19580
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19590
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19600
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19610
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19620
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19630
+     *           2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,  FA19640
+     *           1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04,  FA19650
+     *           MXZ50*0.0 /                                             FA19660
+C                                                                        FA19670
+      DATA AMOL37 /                                                      FA19680
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19690
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19700
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19710
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19720
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19730
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19740
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19750
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19760
+     *           2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,  FA19770
+     *           1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04,  FA19780
+     *           MXZ50*0.0 /                                             FA19790
+C                                                                        FA19800
+      DATA AMOL47 /                                                      FA19810
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19820
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19830
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19840
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19850
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19860
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19870
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19880
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19890
+     *           2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,  FA19900
+     *           1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04,  FA19910
+     *           MXZ50*0.0 /                                             FA19920
+C                                                                        FA19930
+      DATA AMOL57 /                                                      FA19940
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19950
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19960
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19970
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19980
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA19990
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20000
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20010
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20020
+     *           2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,  FA20030
+     *           1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04,  FA20040
+     *           MXZ50*0.0 /                                             FA20050
+C                                                                        FA20060
+      DATA AMOL67 /                                                      FA20070
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20080
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20090
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20100
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20110
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20120
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20130
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20140
+     *           2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,  FA20150
+     *           2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,  FA20160
+     *           1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04,  FA20170
+     *           MXZ50*0.0 /                                             FA20180
+C                                                                        FA20190
+C     DATA DENSITY /                                                     FA20200
+C                                                                        FA20210
+      DATA AMOL18 /                                                      FA20220
+     *           2.450E+19, 2.231E+19, 2.028E+19, 1.827E+19, 1.656E+19,  FA20230
+     *           1.499E+19, 1.353E+19, 1.218E+19, 1.095E+19, 9.789E+18,  FA20240
+     *           8.747E+18, 7.780E+18, 6.904E+18, 6.079E+18, 5.377E+18,  FA20250
+     *           4.697E+18, 4.084E+18, 3.486E+18, 2.877E+18, 2.381E+18,  FA20260
+     *           1.981E+18, 1.651E+18, 1.381E+18, 1.169E+18, 9.920E+17,  FA20270
+     *           8.413E+17, 5.629E+17, 3.807E+17, 2.598E+17, 1.789E+17,  FA20280
+     *           1.243E+17, 8.703E+16, 6.147E+16, 4.352E+16, 3.119E+16,  FA20290
+     *           2.291E+16, 1.255E+16, 6.844E+15, 3.716E+15, 1.920E+15,  FA20300
+     *           9.338E+14, 4.314E+14, 1.801E+14, 7.043E+13, 2.706E+13,  FA20310
+     *           1.098E+13, 4.445E+12, 1.941E+12, 8.706E+11, 4.225E+11,  FA20320
+     *           MXZ50*0.0 /                                             FA20330
+C                                                                        FA20340
+      DATA AMOL28 /                                                      FA20350
+     *           2.496E+19, 2.257E+19, 2.038E+19, 1.843E+19, 1.666E+19,  FA20360
+     *           1.503E+19, 1.351E+19, 1.212E+19, 1.086E+19, 9.716E+18,  FA20370
+     *           8.656E+18, 7.698E+18, 6.814E+18, 6.012E+18, 5.141E+18,  FA20380
+     *           4.368E+18, 3.730E+18, 3.192E+18, 2.715E+18, 2.312E+18,  FA20390
+     *           1.967E+18, 1.677E+18, 1.429E+18, 1.223E+18, 1.042E+18,  FA20400
+     *           8.919E+17, 6.050E+17, 4.094E+17, 2.820E+17, 1.927E+17,  FA20410
+     *           1.338E+17, 9.373E+16, 6.624E+16, 4.726E+16, 3.398E+16,  FA20420
+     *           2.500E+16, 1.386E+16, 7.668E+15, 4.196E+15, 2.227E+15,  FA20430
+     *           1.109E+15, 4.996E+14, 1.967E+14, 7.204E+13, 2.541E+13,  FA20440
+     *           9.816E+12, 3.816E+12, 1.688E+12, 8.145E+11, 4.330E+11,  FA20450
+     *           MXZ50*0.0 /                                             FA20460
+C                                                                        FA20470
+      DATA AMOL38 /                                                      FA20480
+     *           2.711E+19, 2.420E+19, 2.158E+19, 1.922E+19, 1.724E+19,  FA20490
+     *           1.542E+19, 1.376E+19, 1.225E+19, 1.086E+19, 9.612E+18,  FA20500
+     *           8.472E+18, 7.271E+18, 6.237E+18, 5.351E+18, 4.588E+18,  FA20510
+     *           3.931E+18, 3.368E+18, 2.886E+18, 2.473E+18, 2.115E+18,  FA20520
+     *           1.809E+18, 1.543E+18, 1.317E+18, 1.125E+18, 9.633E+17,  FA20530
+     *           8.218E+17, 5.536E+17, 3.701E+17, 2.486E+17, 1.647E+17,  FA20540
+     *           1.108E+17, 7.540E+16, 5.202E+16, 3.617E+16, 2.570E+16,  FA20550
+     *           1.863E+16, 1.007E+16, 5.433E+15, 2.858E+15, 1.477E+15,  FA20560
+     *           7.301E+14, 3.553E+14, 1.654E+14, 7.194E+13, 3.052E+13,  FA20570
+     *           1.351E+13, 6.114E+12, 2.952E+12, 1.479E+12, 7.836E+11,  FA20580
+     *           MXZ50*0.0 /                                             FA20590
+C                                                                        FA20600
+      DATA AMOL48 /                                                      FA20610
+     *           2.549E+19, 2.305E+19, 2.080E+19, 1.873E+19, 1.682E+19,  FA20620
+     *           1.508E+19, 1.357E+19, 1.216E+19, 1.088E+19, 9.701E+18,  FA20630
+     *           8.616E+18, 7.402E+18, 6.363E+18, 5.471E+18, 4.699E+18,  FA20640
+     *           4.055E+18, 3.476E+18, 2.987E+18, 2.568E+18, 2.208E+18,  FA20650
+     *           1.899E+18, 1.632E+18, 1.403E+18, 1.207E+18, 1.033E+18,  FA20660
+     *           8.834E+17, 6.034E+17, 4.131E+17, 2.839E+17, 1.938E+17,  FA20670
+     *           1.344E+17, 9.402E+16, 6.670E+16, 4.821E+16, 3.516E+16,  FA20680
+     *           2.581E+16, 1.421E+16, 7.946E+15, 4.445E+15, 2.376E+15,  FA20690
+     *           1.198E+15, 5.311E+14, 2.022E+14, 7.221E+13, 2.484E+13,  FA20700
+     *           9.441E+12, 3.624E+12, 1.610E+12, 7.951E+11, 4.311E+11,  FA20710
+     *           MXZ50*0.0 /                                             FA20720
+C                                                                        FA20730
+      DATA AMOL58 /                                                      FA20740
+     *           2.855E+19, 2.484E+19, 2.202E+19, 1.950E+19, 1.736E+19,  FA20750
+     *           1.552E+19, 1.383E+19, 1.229E+19, 1.087E+19, 9.440E+18,  FA20760
+     *           8.069E+18, 6.898E+18, 5.893E+18, 5.039E+18, 4.308E+18,  FA20770
+     *           3.681E+18, 3.156E+18, 2.704E+18, 2.316E+18, 1.982E+18,  FA20780
+     *           1.697E+18, 1.451E+18, 1.241E+18, 1.061E+18, 9.065E+17,  FA20790
+     *           7.742E+17, 5.134E+17, 3.423E+17, 2.292E+17, 1.533E+17,  FA20800
+     *           1.025E+17, 6.927E+16, 4.726E+16, 3.266E+16, 2.261E+16,  FA20810
+     *           1.599E+16, 8.364E+15, 4.478E+15, 2.305E+15, 1.181E+15,  FA20820
+     *           6.176E+14, 3.127E+14, 1.531E+14, 7.244E+13, 3.116E+13,  FA20830
+     *           1.403E+13, 6.412E+12, 3.099E+12, 1.507E+12, 7.814E+11,  FA20840
+     *           MXZ50*0.0 /                                             FA20850
+C                                                                        FA20860
+      DATA AMOL68 /                                                      FA20870
+     *           2.548E+19, 2.313E+19, 2.094E+19, 1.891E+19, 1.704E+19,  FA20880
+     *           1.532E+19, 1.373E+19, 1.228E+19, 1.094E+19, 9.719E+18,  FA20890
+     *           8.602E+18, 7.589E+18, 6.489E+18, 5.546E+18, 4.739E+18,  FA20900
+     *           4.050E+18, 3.462E+18, 2.960E+18, 2.530E+18, 2.163E+18,  FA20910
+     *           1.849E+18, 1.575E+18, 1.342E+18, 1.144E+18, 9.765E+17,  FA20920
+     *           8.337E+17, 5.640E+17, 3.830E+17, 2.524E+17, 1.761E+17,  FA20930
+     *           1.238E+17, 8.310E+16, 5.803E+16, 4.090E+16, 2.920E+16,  FA20940
+     *           2.136E+16, 1.181E+16, 6.426E+15, 3.386E+15, 1.723E+15,  FA20950
+     *           8.347E+14, 3.832E+14, 1.711E+14, 7.136E+13, 2.924E+13,  FA20960
+     *           1.189E+13, 5.033E+12, 2.144E+12, 9.688E+11, 5.114E+11,  FA20970
+     *           MXZ50*0.0 /                                             FA20980
+C                                                                        FA20990
+      DATA ANO /  3.00E-04,  3.00E-04,  3.00E-04,  3.00E-04,  3.00E-04,  FA21000
+     *            3.00E-04,  3.00E-04,  3.00E-04,  3.00E-04,  3.00E-04,  FA21010
+     *            3.00E-04,  3.00E-04,  3.00E-04,  2.99E-04,  2.95E-04,  FA21020
+     *            2.83E-04,  2.68E-04,  2.52E-04,  2.40E-04,  2.44E-04,  FA21030
+     *            2.55E-04,  2.77E-04,  3.07E-04,  3.60E-04,  4.51E-04,  FA21040
+     *            6.85E-04,  1.28E-03,  2.45E-03,  4.53E-03,  7.14E-03,  FA21050
+     *            9.34E-03,  1.12E-02,  1.19E-02,  1.17E-02,  1.10E-02,  FA21060
+     *            1.03E-02,  1.01E-02,  1.01E-02,  1.03E-02,  1.15E-02,  FA21070
+     *            1.61E-02,  2.68E-02,  7.01E-02,  2.13E-01,  7.12E-01,  FA21080
+     *            2.08E+00,  4.50E+00,  7.98E+00,  1.00E+01,  1.00E+01,  FA21090
+     *            MXZ50*0.0 /                                            FA21100
+C                                                                        FA21110
+      DATA SO2 /  3.00E-04,  2.74E-04,  2.36E-04,  1.90E-04,  1.46E-04,  FA21120
+     *            1.18E-04,  9.71E-05,  8.30E-05,  7.21E-05,  6.56E-05,  FA21130
+     *            6.08E-05,  5.79E-05,  5.60E-05,  5.59E-05,  5.64E-05,  FA21140
+     *            5.75E-05,  5.75E-05,  5.37E-05,  4.78E-05,  3.97E-05,  FA21150
+     *            3.19E-05,  2.67E-05,  2.28E-05,  2.07E-05,  1.90E-05,  FA21160
+     *            1.75E-05,  1.54E-05,  1.34E-05,  1.21E-05,  1.16E-05,  FA21170
+     *            1.21E-05,  1.36E-05,  1.65E-05,  2.10E-05,  2.77E-05,  FA21180
+     *            3.56E-05,  4.59E-05,  5.15E-05,  5.11E-05,  4.32E-05,  FA21190
+     *            2.83E-05,  1.33E-05,  5.56E-06,  2.24E-06,  8.96E-07,  FA21200
+     *            3.58E-07,  1.43E-07,  5.73E-08,  2.29E-08,  9.17E-09,  FA21210
+     *            MXZ50*0.0 /                                            FA21220
+C                                                                        FA21230
+      DATA ANO2 / 2.30E-05,  2.30E-05,  2.30E-05,  2.30E-05,  2.30E-05,  FA21240
+     *            2.30E-05,  2.30E-05,  2.30E-05,  2.30E-05,  2.32E-05,  FA21250
+     *            2.38E-05,  2.62E-05,  3.15E-05,  4.45E-05,  7.48E-05,  FA21260
+     *            1.71E-04,  3.19E-04,  5.19E-04,  7.71E-04,  1.06E-03,  FA21270
+     *            1.39E-03,  1.76E-03,  2.16E-03,  2.58E-03,  3.06E-03,  FA21280
+     *            3.74E-03,  4.81E-03,  6.16E-03,  7.21E-03,  7.28E-03,  FA21290
+     *            6.26E-03,  4.03E-03,  2.17E-03,  1.15E-03,  6.66E-04,  FA21300
+     *            4.43E-04,  3.39E-04,  2.85E-04,  2.53E-04,  2.31E-04,  FA21310
+     *            2.15E-04,  2.02E-04,  1.92E-04,  1.83E-04,  1.76E-04,  FA21320
+     *            1.70E-04,  1.64E-04,  1.59E-04,  1.55E-04,  1.51E-04,  FA21330
+     *            MXZ50*0.0 /                                            FA21340
+C                                                                        FA21350
+      DATA ANH3 / 5.00E-04,  5.00E-04,  4.63E-04,  3.80E-04,  2.88E-04,  FA21360
+     *            2.04E-04,  1.46E-04,  9.88E-05,  6.48E-05,  3.77E-05,  FA21370
+     *            2.03E-05,  1.09E-05,  6.30E-06,  3.12E-06,  1.11E-06,  FA21380
+     *            4.47E-07,  2.11E-07,  1.10E-07,  6.70E-08,  3.97E-08,  FA21390
+     *            2.41E-08,  1.92E-08,  1.72E-08,  1.59E-08,  1.44E-08,  FA21400
+     *            1.23E-08,  9.37E-09,  6.35E-09,  3.68E-09,  1.82E-09,  FA21410
+     *            9.26E-10,  2.94E-10,  8.72E-11,  2.98E-11,  1.30E-11,  FA21420
+     *            7.13E-12,  4.80E-12,  3.66E-12,  3.00E-12,  2.57E-12,  FA21430
+     *            2.27E-12,  2.04E-12,  1.85E-12,  1.71E-12,  1.59E-12,  FA21440
+     *            1.48E-12,  1.40E-12,  1.32E-12,  1.25E-12,  1.19E-12,  FA21450
+     *            MXZ50*0.0 /                                            FA21460
+C                                                                        FA21470
+      DATA HNO3 / 5.00E-05,  5.96E-05,  6.93E-05,  7.91E-05,  8.87E-05,  FA21480
+     *            9.75E-05,  1.11E-04,  1.26E-04,  1.39E-04,  1.53E-04,  FA21490
+     *            1.74E-04,  2.02E-04,  2.41E-04,  2.76E-04,  3.33E-04,  FA21500
+     *            4.52E-04,  7.37E-04,  1.31E-03,  2.11E-03,  3.17E-03,  FA21510
+     *            4.20E-03,  4.94E-03,  5.46E-03,  5.74E-03,  5.84E-03,  FA21520
+     *            5.61E-03,  4.82E-03,  3.74E-03,  2.59E-03,  1.64E-03,  FA21530
+     *            9.68E-04,  5.33E-04,  2.52E-04,  1.21E-04,  7.70E-05,  FA21540
+     *            5.55E-05,  4.45E-05,  3.84E-05,  3.49E-05,  3.27E-05,  FA21550
+     *            3.12E-05,  3.01E-05,  2.92E-05,  2.84E-05,  2.78E-05,  FA21560
+     *            2.73E-05,  2.68E-05,  2.64E-05,  2.60E-05,  2.57E-05,  FA21570
+     *            MXZ50*0.0 /                                            FA21580
+C                                                                        FA21590
+      DATA OH /   4.40E-08,  4.40E-08,  4.40E-08,  4.40E-08,  4.40E-08,  FA21600
+     *            4.40E-08,  4.40E-08,  4.41E-08,  4.45E-08,  4.56E-08,  FA21610
+     *            4.68E-08,  4.80E-08,  4.94E-08,  5.19E-08,  5.65E-08,  FA21620
+     *            6.75E-08,  8.25E-08,  1.04E-07,  1.30E-07,  1.64E-07,  FA21630
+     *            2.16E-07,  3.40E-07,  5.09E-07,  7.59E-07,  1.16E-06,  FA21640
+     *            2.18E-06,  5.00E-06,  1.17E-05,  3.40E-05,  8.35E-05,  FA21650
+     *            1.70E-04,  2.85E-04,  4.06E-04,  5.11E-04,  5.79E-04,  FA21660
+     *            6.75E-04,  9.53E-04,  1.76E-03,  3.74E-03,  7.19E-03,  FA21670
+     *            1.12E-02,  1.13E-02,  6.10E-03,  1.51E-03,  2.42E-04,  FA21680
+     *            4.47E-05,  1.77E-05,  1.19E-05,  1.35E-05,  2.20E-05,  FA21690
+     *            MXZ50*0.0 /                                            FA21700
+C                                                                        FA21710
+      DATA HF /   1.00E-08,  1.00E-08,  1.23E-08,  1.97E-08,  3.18E-08,  FA21720
+     *            5.63E-08,  9.18E-08,  1.53E-07,  2.41E-07,  4.04E-07,  FA21730
+     *            6.57E-07,  1.20E-06,  1.96E-06,  3.12E-06,  4.62E-06,  FA21740
+     *            7.09E-06,  1.05E-05,  1.69E-05,  2.57E-05,  4.02E-05,  FA21750
+     *            5.77E-05,  7.77E-05,  9.90E-05,  1.23E-04,  1.50E-04,  FA21760
+     *            1.82E-04,  2.30E-04,  2.83E-04,  3.20E-04,  3.48E-04,  FA21770
+     *            3.72E-04,  3.95E-04,  4.10E-04,  4.21E-04,  4.24E-04,  FA21780
+     *            4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,  FA21790
+     *            4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,  FA21800
+     *            4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,  FA21810
+     *            MXZ50*0.0 /                                            FA21820
+C                                                                        FA21830
+      DATA HCL /  1.00E-03,  7.49E-04,  5.61E-04,  4.22E-04,  3.19E-04,  FA21840
+     *            2.39E-04,  1.79E-04,  1.32E-04,  9.96E-05,  7.48E-05,  FA21850
+     *            5.68E-05,  4.59E-05,  4.36E-05,  6.51E-05,  1.01E-04,  FA21860
+     *            1.63E-04,  2.37E-04,  3.13E-04,  3.85E-04,  4.42E-04,  FA21870
+     *            4.89E-04,  5.22E-04,  5.49E-04,  5.75E-04,  6.04E-04,  FA21880
+     *            6.51E-04,  7.51E-04,  9.88E-04,  1.28E-03,  1.57E-03,  FA21890
+     *            1.69E-03,  1.74E-03,  1.76E-03,  1.79E-03,  1.80E-03,  FA21900
+     *            1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,  FA21910
+     *            1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,  FA21920
+     *            1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,  FA21930
+     *            MXZ50*0.0 /                                            FA21940
+C                                                                        FA21950
+      DATA HBR /  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  FA21960
+     *            1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  FA21970
+     *            1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  FA21980
+     *            1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  FA21990
+     *            1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  FA22000
+     *            1.71E-06,  1.76E-06,  1.90E-06,  2.26E-06,  2.82E-06,  FA22010
+     *            3.69E-06,  4.91E-06,  6.13E-06,  6.85E-06,  7.08E-06,  FA22020
+     *            7.14E-06,  7.15E-06,  7.15E-06,  7.15E-06,  7.15E-06,  FA22030
+     *            7.15E-06,  7.15E-06,  7.15E-06,  7.15E-06,  7.15E-06,  FA22040
+     *            7.15E-06,  7.15E-06,  7.15E-06,  7.15E-06,  7.15E-06,  FA22050
+     *            MXZ50*0.0 /                                            FA22060
+C                                                                        FA22070
+      DATA HI /   3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  FA22080
+     *            3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  FA22090
+     *            3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  FA22100
+     *            3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  FA22110
+     *            3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  FA22120
+     *            3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  FA22130
+     *            3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  FA22140
+     *            3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  FA22150
+     *            3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  FA22160
+     *            3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  FA22170
+     *            MXZ50*0.0 /                                            FA22180
+C                                                                        FA22190
+      DATA CLO /  1.00E-08,  1.00E-08,  1.00E-08,  1.00E-08,  1.00E-08,  FA22200
+     *            1.00E-08,  1.00E-08,  1.00E-08,  1.01E-08,  1.05E-08,  FA22210
+     *            1.21E-08,  1.87E-08,  3.18E-08,  5.61E-08,  9.99E-08,  FA22220
+     *            1.78E-07,  3.16E-07,  5.65E-07,  1.04E-06,  2.04E-06,  FA22230
+     *            4.64E-06,  8.15E-06,  1.07E-05,  1.52E-05,  2.24E-05,  FA22240
+     *            3.97E-05,  8.48E-05,  1.85E-04,  3.57E-04,  5.08E-04,  FA22250
+     *            6.07E-04,  5.95E-04,  4.33E-04,  2.51E-04,  1.56E-04,  FA22260
+     *            1.04E-04,  7.69E-05,  6.30E-05,  5.52E-05,  5.04E-05,  FA22270
+     *            4.72E-05,  4.49E-05,  4.30E-05,  4.16E-05,  4.03E-05,  FA22280
+     *            3.93E-05,  3.83E-05,  3.75E-05,  3.68E-05,  3.61E-05,  FA22290
+     *            MXZ50*0.0 /                                            FA22300
+C                                                                        FA22310
+      DATA OCS /  6.00E-04,  5.90E-04,  5.80E-04,  5.70E-04,  5.62E-04,  FA22320
+     *            5.55E-04,  5.48E-04,  5.40E-04,  5.32E-04,  5.25E-04,  FA22330
+     *            5.18E-04,  5.09E-04,  4.98E-04,  4.82E-04,  4.60E-04,  FA22340
+     *            4.26E-04,  3.88E-04,  3.48E-04,  3.09E-04,  2.74E-04,  FA22350
+     *            2.41E-04,  2.14E-04,  1.88E-04,  1.64E-04,  1.37E-04,  FA22360
+     *            1.08E-04,  6.70E-05,  2.96E-05,  1.21E-05,  4.31E-06,  FA22370
+     *            1.60E-06,  6.71E-07,  4.35E-07,  3.34E-07,  2.80E-07,  FA22380
+     *            2.47E-07,  2.28E-07,  2.16E-07,  2.08E-07,  2.03E-07,  FA22390
+     *            1.98E-07,  1.95E-07,  1.92E-07,  1.89E-07,  1.87E-07,  FA22400
+     *            1.85E-07,  1.83E-07,  1.81E-07,  1.80E-07,  1.78E-07,  FA22410
+     *            MXZ50*0.0 /                                            FA22420
+C                                                                        FA22430
+      DATA H2CO / 2.40E-03,  1.07E-03,  4.04E-04,  2.27E-04,  1.40E-04,  FA22440
+     *            1.00E-04,  7.44E-05,  6.04E-05,  5.01E-05,  4.22E-05,  FA22450
+     *            3.63E-05,  3.43E-05,  3.39E-05,  3.50E-05,  3.62E-05,  FA22460
+     *            3.62E-05,  3.58E-05,  3.50E-05,  3.42E-05,  3.39E-05,  FA22470
+     *            3.43E-05,  3.68E-05,  4.03E-05,  4.50E-05,  5.06E-05,  FA22480
+     *            5.82E-05,  7.21E-05,  8.73E-05,  1.01E-04,  1.11E-04,  FA22490
+     *            1.13E-04,  1.03E-04,  7.95E-05,  4.82E-05,  1.63E-05,  FA22500
+     *            5.10E-06,  2.00E-06,  1.05E-06,  6.86E-07,  5.14E-07,  FA22510
+     *            4.16E-07,  3.53E-07,  3.09E-07,  2.76E-07,  2.50E-07,  FA22520
+     *            2.30E-07,  2.13E-07,  1.98E-07,  1.86E-07,  1.75E-07,  FA22530
+     *            MXZ50*0.0 /                                            FA22540
+C                                                                        FA22550
+      DATA HOCL / 7.70E-06,  1.06E-05,  1.22E-05,  1.14E-05,  9.80E-06,  FA22560
+     *            8.01E-06,  6.42E-06,  5.42E-06,  4.70E-06,  4.41E-06,  FA22570
+     *            4.34E-06,  4.65E-06,  5.01E-06,  5.22E-06,  5.60E-06,  FA22580
+     *            6.86E-06,  8.77E-06,  1.20E-05,  1.63E-05,  2.26E-05,  FA22590
+     *            3.07E-05,  4.29E-05,  5.76E-05,  7.65E-05,  9.92E-05,  FA22600
+     *            1.31E-04,  1.84E-04,  2.45E-04,  2.96E-04,  3.21E-04,  FA22610
+     *            3.04E-04,  2.48E-04,  1.64E-04,  9.74E-05,  4.92E-05,  FA22620
+     *            2.53E-05,  1.50E-05,  1.05E-05,  8.34E-06,  7.11E-06,  FA22630
+     *            6.33E-06,  5.78E-06,  5.37E-06,  5.05E-06,  4.78E-06,  FA22640
+     *            4.56E-06,  4.37E-06,  4.21E-06,  4.06E-06,  3.93E-06,  FA22650
+     *            MXZ50*0.0 /                                            FA22660
+C                                                                        FA22670
+      DATA AN2 /  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  FA22680
+     *            7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  FA22690
+     *            7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  FA22700
+     *            7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  FA22710
+     *            7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  FA22720
+     *            7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  FA22730
+     *            7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  FA22740
+     *            7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  FA22750
+     *            7.81E+05,  7.81E+05,  7.81E+05,  7.80E+05,  7.79E+05,  FA22760
+     *            7.77E+05,  7.74E+05,  7.70E+05,  7.65E+05,  7.60E+05,  FA22770
+     *            MXZ50*0.0 /                                            FA22780
+C                                                                        FA22790
+      DATA HCN /  1.70E-04,  1.65E-04,  1.63E-04,  1.61E-04,  1.60E-04,  FA22800
+     *            1.60E-04,  1.60E-04,  1.60E-04,  1.60E-04,  1.60E-04,  FA22810
+     *            1.60E-04,  1.60E-04,  1.60E-04,  1.59E-04,  1.57E-04,  FA22820
+     *            1.55E-04,  1.52E-04,  1.49E-04,  1.45E-04,  1.41E-04,  FA22830
+     *            1.37E-04,  1.34E-04,  1.30E-04,  1.25E-04,  1.19E-04,  FA22840
+     *            1.13E-04,  1.05E-04,  9.73E-05,  9.04E-05,  8.46E-05,  FA22850
+     *            8.02E-05,  7.63E-05,  7.30E-05,  7.00E-05,  6.70E-05,  FA22860
+     *            6.43E-05,  6.21E-05,  6.02E-05,  5.88E-05,  5.75E-05,  FA22870
+     *            5.62E-05,  5.50E-05,  5.37E-05,  5.25E-05,  5.12E-05,  FA22880
+     *            5.00E-05,  4.87E-05,  4.75E-05,  4.62E-05,  4.50E-05,  FA22890
+     *            MXZ50*0.0 /                                            FA22900
+C                                                                        FA22910
+      DATA CH3CL/ 7.00E-04,  6.70E-04,  6.43E-04,  6.22E-04,  6.07E-04,  FA22920
+     *            6.02E-04,  6.00E-04,  6.00E-04,  5.98E-04,  5.94E-04,  FA22930
+     *            5.88E-04,  5.79E-04,  5.66E-04,  5.48E-04,  5.28E-04,  FA22940
+     *            5.03E-04,  4.77E-04,  4.49E-04,  4.21E-04,  3.95E-04,  FA22950
+     *            3.69E-04,  3.43E-04,  3.17E-04,  2.86E-04,  2.48E-04,  FA22960
+     *            1.91E-04,  1.10E-04,  4.72E-05,  1.79E-05,  7.35E-06,  FA22970
+     *            3.03E-06,  1.32E-06,  8.69E-07,  6.68E-07,  5.60E-07,  FA22980
+     *            4.94E-07,  4.56E-07,  4.32E-07,  4.17E-07,  4.05E-07,  FA22990
+     *            3.96E-07,  3.89E-07,  3.83E-07,  3.78E-07,  3.73E-07,  FA23000
+     *            3.69E-07,  3.66E-07,  3.62E-07,  3.59E-07,  3.56E-07,  FA23010
+     *            MXZ50*0.0 /                                            FA23020
+C                                                                        FA23030
+      DATA H2O2 / 2.00E-04,  1.95E-04,  1.92E-04,  1.89E-04,  1.84E-04,  FA23040
+     *            1.77E-04,  1.66E-04,  1.49E-04,  1.23E-04,  9.09E-05,  FA23050
+     *            5.79E-05,  3.43E-05,  1.95E-05,  1.08E-05,  6.59E-06,  FA23060
+     *            4.20E-06,  2.94E-06,  2.30E-06,  2.24E-06,  2.68E-06,  FA23070
+     *            3.68E-06,  5.62E-06,  1.03E-05,  1.97E-05,  3.70E-05,  FA23080
+     *            6.20E-05,  1.03E-04,  1.36E-04,  1.36E-04,  1.13E-04,  FA23090
+     *            8.51E-05,  6.37E-05,  5.17E-05,  4.44E-05,  3.80E-05,  FA23100
+     *            3.48E-05,  3.62E-05,  5.25E-05,  1.26E-04,  3.77E-04,  FA23110
+     *            1.12E-03,  2.00E-03,  1.68E-03,  4.31E-04,  4.98E-05,  FA23120
+     *            6.76E-06,  8.38E-07,  9.56E-08,  1.00E-08,  1.00E-09,  FA23130
+     *            MXZ50*0.0 /                                            FA23140
+C                                                                        FA23150
+      DATA C2H2 / 3.00E-04,  1.72E-04,  9.57E-05,  6.74E-05,  5.07E-05,  FA23160
+     *            3.99E-05,  3.19E-05,  2.80E-05,  2.55E-05,  2.40E-05,  FA23170
+     *            2.27E-05,  2.08E-05,  1.76E-05,  1.23E-05,  7.32E-06,  FA23180
+     *            4.52E-06,  2.59E-06,  1.55E-06,  8.63E-07,  5.30E-07,  FA23190
+     *            3.10E-07,  1.89E-07,  1.04E-07,  5.75E-08,  2.23E-08,  FA23200
+     *            8.51E-09,  4.09E-09,  2.52E-09,  1.86E-09,  1.52E-09,  FA23210
+     *            1.32E-09,  1.18E-09,  1.08E-09,  9.97E-10,  9.34E-10,  FA23220
+     *            8.83E-10,  8.43E-10,  8.10E-10,  7.83E-10,  7.60E-10,  FA23230
+     *            7.40E-10,  7.23E-10,  7.07E-10,  6.94E-10,  6.81E-10,  FA23240
+     *            6.70E-10,  6.59E-10,  6.49E-10,  6.40E-10,  6.32E-10,  FA23250
+     *            MXZ50*0.0 /                                            FA23260
+C                                                                        FA23270
+      DATA C2H6 / 2.00E-03,  2.00E-03,  2.00E-03,  2.00E-03,  1.98E-03,  FA23280
+     *            1.95E-03,  1.90E-03,  1.85E-03,  1.79E-03,  1.72E-03,  FA23290
+     *            1.58E-03,  1.30E-03,  9.86E-04,  7.22E-04,  4.96E-04,  FA23300
+     *            3.35E-04,  2.14E-04,  1.49E-04,  1.05E-04,  7.96E-05,  FA23310
+     *            6.01E-05,  4.57E-05,  3.40E-05,  2.60E-05,  1.89E-05,  FA23320
+     *            1.22E-05,  5.74E-06,  2.14E-06,  8.49E-07,  3.42E-07,  FA23330
+     *            1.34E-07,  5.39E-08,  2.25E-08,  1.04E-08,  6.57E-09,  FA23340
+     *            4.74E-09,  3.79E-09,  3.28E-09,  2.98E-09,  2.79E-09,  FA23350
+     *            2.66E-09,  2.56E-09,  2.49E-09,  2.43E-09,  2.37E-09,  FA23360
+     *            2.33E-09,  2.29E-09,  2.25E-09,  2.22E-09,  2.19E-09,  FA23370
+     *            MXZ50*0.0 /                                            FA23380
+C                                                                        FA23390
+      DATA PH3 /  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  FA23400
+     *            1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  FA23410
+     *            1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  FA23420
+     *            1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  FA23430
+     *            1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  FA23440
+     *            1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  FA23450
+     *            1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  FA23460
+     *            1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  FA23470
+     *            1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  FA23480
+     *            1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  FA23490
+     *            MXZ50*0.0 /                                            FA23500
+C                                                                        FA23510
+      END                                                                FA23520
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE MDLATM (ITYPE,MDL,IREAD,HSPACE)                                
+C                                                                        FA23540
+C     *****************************************************************  FA23550
+C     THIS SUBROUTINE LOADS ONE OF THE 6 BUILT IN ATMOSPHERIC PROFILES   FA23560
+C     OR CALLS NSMDL TO READ IN A USER SUPPLIED PROFILE.                 FA23570
+C     *****************************************************************  FA23580
+C                                                                        FA23590
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA23600
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA23610
+C                                                                        FA23620
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA23630
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA23640
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA23650
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA23670
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA23680
+      COMMON /MSACCT/ IOD,IDIR,ITOP,ISURF,MSPTS,MSPANL(MXLAY),           FA23690
+     *                MXPNL1(MXLAY),MSLAY1,ISFILE,JSFILE,KSFILE,         FA23700
+     *                LSFILE,MSFILE,IEFILE,JEFILE,KEFILE                 FA23710
+      COMMON /MSCONS/ AIRMSS(MXLAY),TGRND,SEMIS(3),HMINMS,HMAXMS,        FA23720
+     *                MSFLAG,MSWIT,IODFIL,MSTGLE                         FA23730
+                                                                                
+      COMMON /c_drive/ ref_lat,hobs,ibmax_b,immax_b,                            
+     *                 lvl_1_2,jchar_st(10,2),wm(mxzmd)                         
+c common block for layer-to-level analytical jacobians                          
+      common /dlaydlev/ilevdx,imoldx,iupdwn,                                    
+     &    dxdL(mxlay,0:mxmol),dxdU(mxlay,0:mxmol)                               
+c                                                                               
+      character*1 jchar_st                                                      
+c                                                                               
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA23740
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA23750
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA23760
+C                                                                        FA23770
+      CHARACTER*8      HMOD                                             &FA23780
+C                                                                        FA23790
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),   FA23810
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),        FA23820
+     *       AMTP(MXMOL,MXPDIM)                                          FA23830
+C                                                                        FA23840
+      COMMON /MLATM/ ALT(MXZMD),PMDL(MXZMD,6),TMDL(MXZMD,6),             FA23850
+     *               AMOL(MXZMD,8,6),ZST(MXZMD),PST(MXZMD),TST(MXZMD),   FA23860
+     *               AMOLS(MXZMD,MXMOL)                                  FA23870
+      COMMON /MLATMC/ ATMNAM(6)                                          FA23880
+      CHARACTER*24 ATMNAM                                                FA23890
+      COMMON /TRAC/ TRAC(MXZMD,MXTRAC)                                   FA23900
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)  FA23910
+C                                                                        FA23920
+C     ZMDL BLANK COMMON ALTITUDES FOR LBLRTM BOUNDRIES                   FA23930
+C     ZMAX /PARMTR/ HIGHEST LBLRTM ALT                                   FA23940
+C     ZMIN /PARMTR/ LOWEST LBLRTM ALT                                    FA23950
+C     ZPTH BLANK COMMON                                                  FA23960
+C     ZST /MLATM/ ORIGINAL LBLRTM ALTITUDES                              FA23970
+C                                                                        FA23980
+      IF (MDL.EQ.0) GO TO 40                                             FA23990
+      IF (MDL.GE.1) IMMAX = 50                                           FA24000
+      DO 30 I = 1, IMMAX                                                 FA24010
+         ZMDL(I) = ALT(I)                                                FA24020
+         PM(I) = PMDL(I,MDL)                                             FA24030
+         TM(I) = TMDL(I,MDL)                                             FA24040
+C                                                                               
+C        > Calculate water density and subtract from <                          
+C        > total density to obtain dry air density  <                           
+C                                                                               
+         DENM(1,I) = AMOL(I,1,MDL)*AMOL(I,8,MDL)*1.0E-6                         
+         DRYAIR(I) = AMOL(I,8,MDL) - DENM(1,I)                                  
+         DO 10 K = 1, 7                                                  FA24050
+            IF (K.GT.NMOL) GO TO 10                                      FA24060
+            DENM(K,I) = AMOL(I,K,MDL)*1.0E-6*DRYAIR(I)                   FA24070
+   10    CONTINUE                                                        FA24080
+                                                                                
+         DENW(I) = DENM(1,I)                                             FA24100
+         DO 20 K = 8, 28                                                 FA24110
+            IF (K.GT.NMOL) GO TO 30                                      FA24120
+            ITR = K-7                                                    FA24130
+C                                                                               
+C           < TRAC is the trace constituent information, >                      
+C           < obtained from LBLLOW                       >                      
+C                                                                               
+            DENM(K,I) = TRAC(I,ITR)*1.0E-6*DRYAIR(I)                     FA24140
+   20    CONTINUE                                                        FA24150
+C                                                                        FA24160
+   30 CONTINUE                                                           FA24170
+C                                                                        FA24180
+      READ (ATMNAM(MDL),900) (HMOD(L),L=1,3)                             FA24190
+      GO TO 50                                                           FA24200
+C                                                                        FA24210
+   40 CALL NSMDL (ITYPE,MDL)                                                    
+C                                                                        FA24230
+      if (imoldx.eq.-99) then                                                   
+          if (immax.ne.ibmax) then                                              
+              write(ipr,*) 'Error in Atmosphere Specification:'                 
+              write(ipr,*) '   Desired levels must match input grid'            
+              write(ipr,*) '   for analytic jacobian calculation'               
+              stop 'error in level grid:  see TAPE6'                            
+          endif                                                                 
+      endif                                                                     
+                                                                                
+   50 ZMIN = ZMDL(1)                                                     FA24240
+C                                                                        FA24250
+      DO 70 I = 1, IMMAX                                                 FA24260
+         ZST(I) = ZMDL(I)                                                FA24270
+         PST(I) = PM(I)                                                  FA24280
+         TST(I) = TM(I)                                                  FA24290
+         IF (HSPACE+0.001.GT.ZMDL(I)) ISPACE = I                         FA24300
+         DO 60 M = 1, NMOL                                               FA24310
+            AMOLS(I,M) = DENM(M,I)                                       FA24320
+   60    CONTINUE                                                        FA24330
+   70 CONTINUE                                                           FA24340
+C                                                                        FA24350
+      IMMAX = ISPACE                                                     FA24360
+      ZMAX = ZMDL(IMMAX)                                                 FA24370
+C                                                                        FA24380
+      IMLOW = IMMAX                                                      FA24390
+C                                                                        FA24410
+      RETURN                                                             FA24420
+C                                                                        FA24430
+  900 FORMAT (3A8)                                                       FA24440
+C                                                                        FA24450
+      END                                                                FA24460
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE NSMDL (ITYPE,MDL)                                              
+C                                                                        FA24480
+C     *****************************************************************  FA24490
+C                                                                        FA24500
+C                                                                        FA24510
+C     NOTES TO USER:                                                     FA24520
+C                                                                        FA24530
+C     THIS SUBROUTINE IS FOR READING IN AN ATMOSPHERIC PROFILE           FA24540
+C     CORRESPONDING TO MODEL = 0.  THE PROFILE IS READ IN AFTER          FA24550
+C     CONTROL CARD 3.4                                                   FA24560
+C                                                                        FA24570
+C     CARD 3.4    IMMAX,(HMOD(I),I=1,3)                                  FA24580
+C                   (I5,3A8)                                             FA24590
+C                                                                        FA24600
+C             IMMAX  NUMBER OF BOUNDARIES FOR THE PROFILE                FA24610
+C                                                                        FA24620
+C             HMOD   A 24 CHARACTER HEADER DESCRIBING THE PROFILE        FA24630
+C                                                                        FA24640
+C     SEE DETAILS IN RDUNIT ON CARDS 3.5 AND 3.6.1 ... 3.6.N             FA24650
+C                                                                        FA24660
+C     *****************************************************************  FA24670
+C                                                                        FA24680
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA24690
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA24700
+C                                                                        FA24710
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA24720
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA24730
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA24740
+                                                                                
+      COMMON /c_drive/ ref_lat,hobs,ibmax_b,immax_b,                            
+     *                 lvl_1_2,jchar_st(10,2),wm(mxzmd)                         
+c                                                                               
+      character*1 jchar_st                                                      
+c                                                                               
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA24760
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA24770
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA24800
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA24810
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA24820
+C                                                                        FA24830
+      CHARACTER*8      HMOD                                             &FA24840
+C                                                                        FA24850
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),   FA24870
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),         FA2488
+     *       AMTP(MXMOL,MXPDIM)                                          FA24890
+C                                                                        FA24900
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)  FA24910
+C                                                                        FA24920
+      CHARACTER*8      HMOLS                                            &FA24930
+C                                                                        FA24940
+      COMMON /HMOLS/ HMOLS(MXMOL),JUNIT(MXMOL),WMOL(MXMOL),JUNITP,       FA24950
+     *              JUNITT                                               FA24960
+C                                                                        FA24970
+C     ***********************************************************        FA24980
+C                                                                        FA24990
+C     COMMON BLOCK FOR GENERIC MOLECULAR DATA INPUT                      FA25000
+C                                                                        FA25010
+C     ************************************************************       FA25020
+C                                                                        FA25030
+      if (noprnt .ge.0)  WRITE (IPR,900)                                        
+      READ (IRD,905) IMMAX_B,HMOD                                               
+C                                                                        FA25060
+      IMMAX = ABS(IMMAX_B)                                                      
+      IMLOW = IMMAX                                                      FA25070
+      if (noprnt .ge.0) WRITE (IPR,910) IMMAX,HMOD                              
+      IF (IMMAX.GT.IMDIM) GO TO 30                                       FA25090
+c                                                                               
+      DO 20 IM = 1, IMMAX                                                FA25100
+C                                                                        FA25110
+C     READ IN GENERIC UNITS FOR USER MODEL                               FA25120
+C                                                                        FA25130
+         CALL RDUNIT (IMMAX_B,IM,ZMDL(IM),PM(IM),TM(IM),NMOL,NOPRNT)            
+C                                                                        FA25150
+C     CONVERSION OF GENERIC UNITS TO DENSITIES FOR LBLRTM RUNS           FA25200
+C                                                                        FA25210
+         CALL CONVRT (PM(IM),TM(IM),JUNIT,WMOL,IM,NMOL,NOPRNT)                  
+C                                                                        FA25240
+         DENW(IM) = DENM(1,IM)                                           FA25250
+   20 CONTINUE                                                           FA25270
+C                                                                               
+                                                                                
+      IF (IMMAX_B .LT. 0) THEN                                                  
+         CALL CMPALT (IMMAX,PM,TM,DENW,                                         
+     &        ZMDL(1),REF_LAT,ZMDL)                                             
+      ENDIF                                                                     
+                                                                                
+      DO 25 IM = 2,IMMAX                                                        
+         IF (ZMDL(IM) .LE. ZMDL(IM-1)) GO TO 35                                 
+ 25      CONTINUE                                                               
+                                                                                
+      RETURN                                                             FA25290
+C                                                                        FA25300
+   30 CONTINUE                                                           FA25310
+      if (noprnt .ge.0) WRITE (IPR,915) IMMAX,IMDIM                             
+C                                                                        FA25330
+      STOP ' LEVEL ERROR IN NSMDL '                                      FA25340
+C                                                                        FA25350
+   35 CONTINUE                                                                  
+                                                                                
+      if (noprnt .ge.0) WRITE (IPR,920) im,im+1,ZMDL(IM),ZMDL(IM+1)             
+                                                                                
+      STOP 'INPUT ALTITUDES NOT IN ASCENDING ORDER'                             
+                                                                                
+  900 FORMAT (///,' READING IN USER SUPPLIED MODEL ATMOSPHERE')          FA25360
+  905 FORMAT (I5,3A8)                                                           
+  910 FORMAT (//,10X,'IMMAX    = ',I5,/,10X,'PROFILE = ',3A8)                   
+  915 FORMAT (/,' NUMBER OF PROFILE LEVELS IMMAX = ',I5,                 FA25390
+     *        ' EXCEEDS THE MAXIMUM ALLOWED = ',I5)                      FA25400
+  920 FORMAT (///,' ERROR: INPUT ALTITUDES FOR LBLRTM LAYERS ',                 
+     *        'ARE NOT IN ASCENDING ORDER',//,5X,                               
+     *        ' ZMDL AT GRID PT I,I+1 = ',i5,i5,/,(2F10.4))                     
+C                                                                        FA25410
+      END                                                                FA25420
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE HEADPR (IPR,NOPRNT)                                     FA25430
+C                                                                        FA25440
+C     SUBROUTINE TO WRITE HEADER INFORMATION FOR MODEL  0                FA25450
+C                                                                        FA25460
+      CHARACTER*8      HMOLS                                            &FA25470
+C                                                                        FA25480
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA25490
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA25500
+C                                                                        FA25510
+      COMMON /HMOLS/ HMOLS(MXMOL),JUNIT(MXMOL),WMOL(MXMOL),JUNITP,       FA25520
+     *               JUNITT                                              FA25530
+C                                                                        FA25540
+      WRITE (IPR,900)                                                    FA25550
+      WRITE (IPR,905)                                                    FA25560
+      WRITE (IPR,910) (I,HMOLS(I),I=1,MXMOL)                             FA25570
+      WRITE (IPR,915)                                                    FA25580
+C                                                                        FA25590
+      RETURN                                                             FA25600
+C                                                                        FA25610
+  900 FORMAT (/,'  THE USER HAS ELECTED TO PROVIDE THE REQUIRED',/,      FA25620
+     *        '  MODEL ATMOSPHERE SPECIFICATIONS.',/,/,                  FA25630
+     *        '  SEE DOCUMENTATION OR "SUBROUTINE RDUNIT" FOR ',/,       FA25640
+     *        '  ADDITIONAL INFORMATION.',//)                            FA25650
+  905 FORMAT ('  USER OPTIONS FOR PRESSURE AND TEMPERATURE ',//,         FA25660
+     *        '               JCHAR   JUNIT ',//,                        FA25670
+     *        '    PRESSURE " ",A      10    PRESSURE IN (MB)',/,        FA25680
+     *        '                 B      11       "     "  (ATM)',/,       FA25690
+     *        '                 C      12       "     "  (TORR)',/,      FA25700
+     *        '                1-6    1-6    DEFAULT TO SPECIFIED',      FA25710
+     *        ' MODEL ATMOSPHERE',//,                                    FA25720
+     *        '    TEMP     " ",A      10    AMBIENT TEMP IN DEG(K)',/,  FA25730
+     *        '                 B      11       "     "   "   " (C)',/,  FA25740
+     *        '                1-6    1-6    DEFAULT TO SPECIFIED',      FA25750
+     *        ' MODEL ATMOSPHERE',//)                                    FA25760
+  910 FORMAT (/,' AVAILABLE     ',7('(',I2,')',A8),/,' MOL. SPECIES',    FA25770
+     *        (T16,7('(',I2,')',A8)))                                    FA25780
+  915 FORMAT (/,'  POTENTIAL CHOICE OF UNITS FOR ABOVE SPECIES',/,       FA25790
+     *        ' JCHAR = " ",A    - VOLUME MIXING RATIO (PPMV)',/,        FA25800
+     *        '       = B        - NUMBER DENSITY (CM-3)',/,             FA25810
+     *        '       = C        - MASS MIXING RATIO (GM/KG)',/,         FA25820
+     *        '       = D        - MASS DENSITY (GM M-3)',/,             FA25830
+     *        '       = E        - PARTIAL PRESSURE (MB)',/,             FA25840
+     *        '       = F        - DEW POINT TEMP (K) * H2O ONLY *',/,   FA25850
+     *        '       = G        - DEW POINT TEMP (C) * H2O ONLY *',/,   FA25860
+     *        '       = H        - RELATIVE HUMIDITY (PERCENT) ',        FA25870
+     *                             '*H2O ONLY*',/,                       FA25880
+     *        '       = I        - AVAILABLE FOR USER DEFINITION',/,     FA25890
+     *        '       = 1-6      - DEFAULT TO SPECIFIED MODEL ',         FA25900
+     *        'ATMOSPHERE',/,' JCHAR MUST BE LESS THAN "J"',/)           FA25910
+C                                                                        FA25920
+      END                                                                FA25930
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE RDUNIT (IMMAX_B,IM,ZMDL,PM,TM,NMOL,NOPRNT)                     
+C                                                                        FA25950
+C     *******************************************************            FA25960
+C                                                                        FA25970
+C       SUBROUTINE DESIGNED TO READ NEW MOLECULAR DATA INPUT             FA25980
+C        PARAMETERS - JCHAR = INPUT KEY (SEE BELOW)                      FA25990
+C                     WMOL  = INPUT VALUE FOR LAYER                      FA26000
+C                                                                        FA26010
+C     ***  ROUTINE ALSO ACCEPTS VARIABLE UNITS ON PRESS AND TEMP         FA26020
+C     ***  THE ASSOCIATED 'JUNIT' DEFINITIONS ARE CONTAINED IN           FA26030
+C               JUNITP, AND JUNITT                                       FA26040
+C          SEE INPUT KEY BELOW                                           FA26050
+C                                                                        FA26060
+C                                                                        FA26070
+C       NMOL = NUMBER OF MOLECULAR SPECIES TO BE CONSIDERED              FA26080
+C               (ORDER IS THAT OF AFGL LINE PARAMETER TAPE)              FA26090
+C                                                                        FA26100
+C     FOR MOLECULAR SPECIES ONLY                                         FA26110
+C                                                                        FA26120
+C       JCHAR   JUNIT                                                    FA26130
+C                                                                        FA26140
+C     " ",A      10    VOLUME MIXING RATIO (PPMV)                        FA26150
+C         B      11    NUMBER DENSITY (CM-3)                             FA26160
+C         C      12    MASS MIXING RATIO (GM(K)/KG(AIR))                 FA26170
+C         D      13    MASS DENSITY (GM M-3)                             FA26180
+C         E      14    PARTIAL PRESSURE (MB)                             FA26190
+C         F      15    DEW POINT TEMP (TD IN T(K)) - H2O ONLY            FA26200
+C         G      16     "    "     "  (TD IN T(C)) - H2O ONLY            FA26210
+C         H      17    RELATIVE HUMIDITY (RH IN PERCENT) - H2O ONLY      FA26220
+C         I      18    AVAILABLE FOR USER DEFINITION                     FA26230
+C        1-6    1-6    DEFAULT TO SPECIFIED MODEL ATMOSPHERE             FA26240
+C                                                (SEE KEY BELOW)         FA26250
+C                                                                        FA26260
+C     ****************************************************************   FA26270
+C     ****************************************************************   FA26280
+C                                                                        FA26290
+C     ***** OTHER 'JCHAR' SPECIFICATIONS - JCHARP,JCHART                 FA26300
+C                                                                        FA26310
+C       JCHAR   JUNIT                                                    FA26320
+C                                                                        FA26330
+C      " ",A     10    PRESSURE IN (MB)                                  FA26340
+C          B     11       "     "  (ATM)                                 FA26350
+C          C     12       "     "  (TORR)                                FA26360
+C         1-6   1-6    DEFAULT TO SPECIFIED MODEL ATMOSPHERE             FA26370
+C                                                                        FA26380
+C      " ",A     10    AMBIENT TEMPERATURE IN DEG(K)                     FA26390
+C          B     11       "         "       "  " (C)                     FA26400
+C          C     12       "         "       "  " (F)                     FA26410
+C         1-6   1-6    DEFAULT TO SPECIFIED MODEL ATMOSPHERE             FA26420
+C                                                                        FA26430
+C     ***** DEFINITION OF "DEFAULT" CHOICES FOR PROFILE SELECTION *****  FA26440
+C                                                                        FA26450
+C      FOR THE USER WHO WISHES TO ENTER ONLY SELECTED ORIGINAL           FA26460
+C      VERTICAL PROFILES AND WANTS STANDARD ATMOSPHERE SPECIFICATIONS    FA26470
+C      FOR THE OTHERS, THE FOLLOWING OPTION IS AVAILABLE                 FA26480
+C                                                                        FA26490
+C     *** JCHAR(P,T OR K) MUST = 1-6 (AS ABOVE)                          FA26500
+C                                                                        FA26510
+C      FOR MOLECULES 8-35, ONLY US STD PROFILES ARE AVIALABLE            FA26520
+C      THEREFORE, WHEN  'JCHAR(K) = 1-5', JCHAR(K) WILL BE RESET TO 6    FA26530
+C                                                                        FA26540
+C     *************************************************************      FA26550
+C     *************************************************************      FA26560
+C                                                                        FA26570
+C                                                                        FA26580
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA26590
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA26600
+C                                                                        FA26610
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA26620
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA26630
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA26640
+C                                                                        FA26650
+      CHARACTER*8      HMOLS                                            &FA26660
+C                                                                        FA26670
+      CHARACTER*8      HMOD                                             &FA24840
+      COMMON /CMN/HMOD(3),                                                      
+     *       ZMDL_st(MXZMD),PM_st(MXZMD),TM_st(MXZMD),RFNDXM_st(MXZMD),         
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),   FA24870
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),        FA24880
+     *       AMTP(MXMOL,MXPDIM)                                          FA24890
+C                                                                        FA24900
+      COMMON /HMOLS/ HMOLS(MXMOL),JUNIT(MXMOL),WMOL(MXMOL),JUNITP,       FA26680
+     *               JUNITT                                              FA26690
+      CHARACTER*1 JCHAR,JCHARP,JCHART,JLONG                              FA26700
+c                                                                               
+      COMMON /MCHAR/ JCHAR(MXMOL),JCHARP,JCHART,JLONG                    FA26710
+                                                                                
+      COMMON /c_drive/ ref_lat,hobs,ibmax_b,immax_dum,                          
+     *                 lvl_1_2,jchar_st(10,2),wm(mxzmd)                         
+c                                                                               
+      character*1 jchar_st                                                      
+c                                                                               
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+C                                                                        FA26740
+C     ***********************************************************        FA26750
+C                                                                        FA26760
+C       COMMON BLOCK FOR GENERIC MOLECULAR DATA INPUT                    FA26770
+C                                                                        FA26780
+C                                                                        FA26790
+C     ************************************************************       FA26800
+C                                                                        FA26810
+      DIMENSION JOLD(MXMOL),KUNIT(MXMOL)                                 FA26820
+C                                                                        FA26830
+      DATA JOLD / MXMOL*99 /                                             FA26840
+      DATA C1 / 18.9766 /,C2 / -14.9595 /,C3 / -2.4388 /                 FA26850
+C                                                                        FA26860
+      IF (IM.EQ.0) CALL HEADPR (IPR,NOPRNT)                              FA26870
+C                                                                        FA26880
+C     *********************************************************          FA26890
+C                                                                        FA26900
+C     INPUT READ FOR 'MODEL = 0", I.E. USER-SUPPLIED VERITCAL            FA26910
+C                                                                        FA26920
+C     **********************************************************         FA26930
+C                                                                        FA26940
+      READ (IRD,900) ZMDL,PM,TM,JCHARP,JCHART,JLONG,                            
+     *               (JCHAR(K),K=1,MXMOL)                                       
+      ISAME = 0                                                          FA26960
+      JUNITP = JOU(JCHARP)                                               FA26970
+      JUNITT = JOU(JCHART)                                               FA26980
+      DO 10 K = 1, NMOL                                                  FA26990
+         JUNIT(K) = JOU(JCHAR(K))                                        FA27000
+C                                                                        FA27010
+C    TEST TO SEE IF INPUT UNITS HAVE CHANGED FROM PREVIOUS READ          FA27020
+C                                                                        FA27030
+         IF (JOLD(K).NE.JUNIT(K)) ISAME = 1                              FA27040
+         KUNIT(K) = JUNIT(K)+1                                           FA27050
+   10 CONTINUE                                                           FA27060
+C                                                                        FA27070
+C     Read in moleclar information at E15.8 format for flag JLONG='L'           
+      IF (JLONG.EQ.'L') THEN                                                    
+         READ (IRD,906) (WMOL(K),K=1,NMOL)                                      
+      ELSEIF (JLONG.EQ.' ') THEN                                                
+         READ (IRD,905) (WMOL(K),K=1,NMOL)                                      
+      ELSE                                                                      
+         WRITE(*,*) 'INVALID VALUE FOR JLONG ON RECORD 3.5: ',JLONG             
+         STOP 'RDUNIT'                                                          
+      ENDIF                                                                     
+      IF (IM.EQ.0) WRITE (IPR,910)                                       FA27090
+C                                                                        FA27100
+      if (noprnt .ge. 0) then                                                   
+                                                                                
+         IF (JLONG.EQ.'L') THEN                                                 
+            WRITE (IPR,916) IM,ZMDL,JCHARP,PM,JCHART,TM,                        
+     *           (K,JCHAR(K),WMOL(K),K=1,NMOL)                                  
+         ELSE                                                                   
+            WRITE (IPR,915) IM,ZMDL,JCHARP,PM,JCHART,TM,                        
+     *           (K,JCHAR(K),WMOL(K),K=1,NMOL)                                  
+         ENDIF                                                                  
+      endif                                                                     
+                                                                                
+      DO 20 I = 1, NMOL                                                  FA27130
+         JOLD(I) = JUNIT(I)                                              FA27140
+   20 CONTINUE                                                           FA27150
+      CALL CHECK (PM,JUNITP,1)                                           FA27160
+      CALL CHECK (TM,JUNITT,2)                                           FA27170
+C                                                                        FA27180
+C     SUBROUTINE DEFAULT DEFINES WMOL  FOR JCHAR  1-6                    FA27190
+C                                                                        FA27200
+      IF (IMMAX_B .LT. 0) THEN                                                  
+         CALL DEFALT_P (PM,TM)                                                  
+      ELSE                                                                      
+         CALL DEFALT (ZMDL,PM,TM)                                               
+      ENDIF                                                                     
+                                                                                
+      RETURN                                                             FA27220
+C                                                                        FA27230
+  900 FORMAT (3E10.3,5X,2A1,1X,A1,1X,39A1)                               FA27240
+  905 FORMAT (8E10.3)                                                    FA27250
+  906 FORMAT (8E15.8)                                                    FA27250
+  910 FORMAT (//,'  ECHO INPUT PARAMETERS FOR USER PROVIDED MODEL',/,    FA27260
+     *        '0   (P : UNIT)=   ',5X,'(T : UNIT)=   ',5X,               FA27270
+     *        '(MOLECULE NUMBER : UNIT)=   ')                            FA27280
+ 915  FORMAT ('0',I4,1X,'(ALT:KM)=',F7.3,4X,'(P:',A1,')=',G11.5,4X,             
+     *        '(T:',A1,')=',F8.3,/,(5X,7(' (',I2,':',A1,')=',1PE10.3)))         
+ 916  FORMAT ('0',I4,1X,'(ALT:KM)=',F7.3,4X,'(P:',A1,')=',G11.5,4X,             
+     *        '(T:',A1,')=',F8.3,/,(5X,7(' (',I2,':',A1,')=',1PE15.8)))         
+C                                                                        FA27310
+      END                                                                FA27320
+      FUNCTION JOU (CHAR)                                                FA27330
+C                                                                        FA27340
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA27350
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA27360
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA27370
+C                                                                        FA27380
+      CHARACTER*1 CHAR,HOLVEC(22)                                        FA27390
+      DIMENSION INDX1(22)                                                FA27400
+C                                                                        FA27410
+      DATA (HOLVEC(I),I=1,22) /                                          FA27420
+     *                '1','2','3','4','5','6','0','0','0','0',' ','A',   FA27430
+     *                'B','C','D','E','F','G','H','I','J','K'/           FA27440
+      DATA (INDX1(I),I=1,22) /                                           FA27450
+     *                  1,  2,  3,  4,  5,  6,  0,  0,  0,  0, 10, 10,   FA27460
+     *                 11, 12, 13, 14, 15, 16, 17, 18, 19, 20/           FA27470
+C                                                                        FA27480
+      INDX = 0                                                           FA27490
+      DO 10 I = 1, 22                                                    FA27500
+         IF (HOLVEC(I).NE.CHAR) GO TO 10                                 FA27510
+         INDX = INDX1(I)                                                 FA27520
+         GO TO 20                                                        FA27530
+   10 CONTINUE                                                           FA27540
+   20 IF (INDX.EQ.0) THEN                                                FA27550
+         WRITE (IPR,900) CHAR                                            FA27560
+         STOP ' JOU: BAD PARAM '                                         FA27570
+      ENDIF                                                              FA27580
+      JOU = INDX                                                         FA27590
+C                                                                        FA27600
+      RETURN                                                             FA27610
+C                                                                        FA27620
+  900 FORMAT ('0 INVALID PARAMETER :',2X,A1)                             FA27630
+C                                                                        FA27640
+      END                                                                FA27650
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE CHECK (A,IA,KEY)                                        FA27660
+C                                                                        FA27670
+C      UNITS CONVERSION FOR P AND T                                      FA27680
+C                                                                        FA27690
+C     A = P OR T     AND  IA =JUNITP(I.E. MB,ATM,TORR)                   FA27700
+C                            =JUNITT(I.E. DEG K OR C)                    FA27710
+C                            =JUNITR(I.E. KM,M,OR CM)                    FA27720
+C                                                                        FA27730
+      DATA PMB / 1013.25 /,PTORR / 760. /,DEGK / 273.15 /                FA27740
+C                                                                        FA27750
+      IF (IA.LE.10) RETURN                                               FA27760
+C                                                                        FA27770
+      GO TO (10,20,30) KEY                                               FA27780
+C                                                                        FA27790
+C     PRESSURE CONVERSIONS                                               FA27800
+C                                                                        FA27810
+   10 IF (IA.EQ.11) THEN                                                 FA27820
+         A = A*PMB                                                       FA27830
+         RETURN                                                          FA27840
+      ELSEIF (IA.EQ.12) THEN                                             FA27850
+         A = A*PMB/PTORR                                                 FA27860
+         RETURN                                                          FA27870
+      ELSE                                                               FA27880
+         STOP ' CHECK(P)'                                                FA27890
+      ENDIF                                                              FA27900
+C                                                                        FA27910
+C     TEMPERATURE COMVERSIONS                                            FA27920
+C                                                                        FA27930
+   20 IF (IA.LE.11) THEN                                                 FA27940
+         A = A+DEGK                                                      FA27950
+         RETURN                                                          FA27960
+      ELSE                                                               FA27970
+         STOP ' CHECK(T)'                                                FA27980
+      ENDIF                                                              FA27990
+C                                                                        FA28000
+C      RANGE CONVERSIONS                                                 FA28010
+C                                                                        FA28020
+   30 IF (IA.EQ.11) THEN                                                 FA28030
+         A = A/1.E3                                                      FA28040
+         RETURN                                                          FA28050
+      ELSEIF (IA.EQ.12) THEN                                             FA28060
+         A = A/1.E5                                                      FA28070
+         RETURN                                                          FA28080
+      ELSE                                                               FA28090
+         STOP ' CHECK(R)'                                                FA28100
+      ENDIF                                                              FA28110
+C                                                                        FA28120
+      END                                                                FA28130
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE DEFALT (Z,P,T)                                                 
+C                                                                        FA28150
+C     *****************************************************************  FA28160
+C                                                                        FA28170
+C     THIS SUBROUTINE LOADS ONE OF THE 6 BUILT IN ATMOSPHERIC PROFILES   FA28180
+C     FROM WHICH IT WILL INTERPOLATE "DEFAULT" VALUES FOR ALTITUDE "Z"   FA28190
+C                                                                        FA28200
+C                                                                        FA28210
+C      ***  THIS SUBROUTINE IS CALLED BY "RDUNIT" WHICH                  FA28220
+C      ***  READS USER SUPPLIED INPUT PROFILES OR SINGLE VALUES          FA28230
+C      ***  UNDER "MODEL = 0     " SPECIFICATIONS                        FA28240
+C                                                                        FA28250
+C      *** SEE DOCUMENTATION FOR CLARIFICATION ***                       FA28260
+C                                                                        FA28270
+C     SUBROUTINE "DEFALT"IS TRIGGERRED WHENEVER ANY ONE OF               FA28280
+C     THE INPUT PARAMETERS JCHARP, JCART, (JCHAR(K),K=1,NMOL) IS = 1-6   FA28290
+C                                                                        FA28300
+C     FOR SIMPLICITY, ALL INTERPOLATIONS ARE DONE AT ONE TIME BECAUSE    FA28310
+C     THE LAGRANGE WEIGHTS (4PT), BASED ON (ALT-Z), REMAIN UNCHANGED     FA28320
+C                                                                        FA28330
+C     JCHARP,JCHART AND JCHAR(K) FOR K<8 ALLOW MODEL-DEPENDENT CHOICES   FA28340
+C                                                                        FA28350
+C                   JCHAR=JUNIT                                          FA28360
+C                                                                        FA28370
+C                        1       CHOOSES TROPICAL                        FA28380
+C                        2         "     MID-LATITUDE SUMMER             FA28390
+C                        3         "     MID-LATITUDE WINTER             FA28400
+C                        4         "     HIGH-LAT SUMMER                 FA28410
+C                        5         "     HIGH-LAT WINTER                 FA28420
+C                        6         "     US STANDARD                     FA28430
+C                                                                        FA28440
+C                                                                        FA28450
+C     JUNIT(K) FOR K>7 CHOOSES FROM THE SINGLE TRACE CONSTITUENT         FA28460
+C        PROFILES, ALL APPRORIATE FOR THE US STD ATMOSPHERE              FA28470
+C                                                                        FA28480
+C     ***  NOTE ***  T<0 WILL ALSO PRINT OUT A MESSAGE INDICATING        FA28490
+C     ***  A POSSIBLE MISAPPLICATION OF TEMPERATURE UNITS, (K) VS (C)    FA28500
+C                                                                        FA28510
+C     *****************************************************************  FA28520
+C                                                                        FA28530
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA28540
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA28550
+C                                                                        FA28560
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA28570
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA28580
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA28590
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA28610
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA28620
+C                                                                        FA28630
+      CHARACTER*8      HMOLS                                            &FA28640
+C                                                                        FA28650
+      COMMON /HMOLS/ HMOLS(MXMOL),JUNIT(MXMOL),WMOL(MXMOL),JUNITP,       FA28660
+     *               JUNITT                                              FA28670
+      COMMON /MLATM/ ALT(MXZMD),PMATM(MXZMD,6),TMATM(MXZMD,6),           FA28680
+     *               AMOL(MXZMD,8,6),ZST(MXZMD),PST(MXZMD),TST(MXZMD),   FA28690
+     *               AMOLS(MXZMD,MXMOL)                                  FA28700
+      COMMON /MLATMC/ ATMNAM(6)                                          FA28710
+      CHARACTER*24 ATMNAM                                                FA28720
+      COMMON /TRAC/ TRAC(MXZMD,MXTRAC)                                   FA28730
+C                                                                        FA28740
+C     *** 4PT INTERPOLATION FUNCTION                                     FA28750
+C                                                                        FA28760
+      VAL(A1,A2,A3,A4,X1,X2,X3,X4) = A1*X1+A2*X2+A3*X3+A4*X4             FA28770
+C                                                                        FA28780
+      ILOWER = 0                                                         FA28790
+      IUPPER = 0                                                         FA28800
+      IM50 = 50                                                          FA28810
+      DO 10 IM = 2, IM50                                                 FA28820
+         I2 = IM                                                         FA28830
+         IF (ALT(IM).GE.Z) GO TO 20                                      FA28840
+   10 CONTINUE                                                           FA28850
+      I2 = IM50                                                          FA28860
+   20 I1 = I2-1                                                          FA28870
+      I0 = I2-2                                                          FA28880
+      I3 = I2+1                                                          FA28890
+      IF (I0.LT.1) GO TO 30                                              FA28900
+      IF (I3.GT.IM50) GO TO 40                                           FA28910
+C                                                                        FA28920
+      GO TO 60                                                           FA28930
+C                                                                        FA28940
+C     LOWER ENDPOINT CORRECTION                                          FA28950
+C                                                                        FA28960
+   30 CONTINUE                                                           FA28970
+      ILOWER = 1                                                         FA28980
+      I0 = I1                                                            FA28990
+      I1 = I2                                                            FA29000
+      I2 = I3                                                            FA29010
+      I3 = I3+1                                                          FA29020
+      GO TO 60                                                           FA29030
+C                                                                        FA29040
+C     UPPER ENDPOINT CORRECTION                                          FA29050
+C                                                                        FA29060
+   40 CONTINUE                                                           FA29070
+      IUPPER = 1                                                         FA29080
+      IF (Z.GT.ALT(IM50)) GO TO 50                                       FA29090
+      I3 = I2                                                            FA29100
+      I2 = I1                                                            FA29110
+      I1 = I0                                                            FA29120
+      I0 = I1-1                                                          FA29130
+      GO TO 60                                                           FA29140
+C                                                                        FA29150
+C      UPPER ENDPOINT EXTRAPOLATION                                      FA29160
+C                                                                        FA29170
+   50 CONTINUE                                                           FA29180
+      Z0 = ALT(I0)                                                       FA29190
+      Z1 = ALT(I1)                                                       FA29200
+      Z2 = ALT(I2)                                                       FA29210
+      Z3 = Z2+2.*(Z-Z2)                                                  FA29220
+      IUPPER = 2                                                         FA29230
+      WRITE (IPR,900) Z                                                  FA29240
+C                                                                        FA29250
+      STOP 'DEFAULT Z'                                                   FA29260
+C                                                                        FA29270
+C     LAGRANGE CONTINUATION                                              FA29280
+C                                                                        FA29290
+   60 CONTINUE                                                           FA29300
+C                                                                        FA29310
+C     LAGRANGE COEF DETERMINATION                                        FA29320
+C                                                                        FA29330
+      Z1 = ALT(I1)                                                       FA29340
+      Z2 = ALT(I2)                                                       FA29350
+      Z0 = ALT(I0)                                                       FA29360
+      Z3 = ALT(I3)                                                       FA29370
+      DEN1 = (Z0-Z1)*(Z0-Z2)*(Z0-Z3)                                     FA29380
+      DEN2 = (Z1-Z2)*(Z1-Z3)*(Z1-Z0)                                     FA29390
+      DEN3 = (Z2-Z3)*(Z2-Z0)*(Z2-Z1)                                     FA29400
+      DEN4 = (Z3-Z0)*(Z3-Z1)*(Z3-Z2)                                     FA29410
+      A1 = ((Z-Z1)*(Z-Z2)*(Z-Z3))/DEN1                                   FA29420
+      A2 = ((Z-Z2)*(Z-Z3)*(Z-Z0))/DEN2                                   FA29430
+      A3 = ((Z-Z3)*(Z-Z0)*(Z-Z1))/DEN3                                   FA29440
+      A4 = ((Z-Z0)*(Z-Z1)*(Z-Z2))/DEN4                                   FA29450
+C                                                                        FA29460
+C     TEST INPUT PARAMETERS (JUNIT'S) SEQUENTIALLY FOR TRIGGER           FA29470
+C      I.E.  JUNIT(P,T,K) = 1-6                                          FA29480
+C                                                                        FA29490
+      IF (JUNITP.GT.6) GO TO 70                                          FA29500
+      MATM = JUNITP                                                      FA29510
+C                                                                        FA29520
+C     WRITE (IPR,60) Z,MATM                                              FA29530
+C                                                                        FA29540
+      X1 =  LOG(PMATM(I0,MATM))                                          FA29550
+      X2 =  LOG(PMATM(I1,MATM))                                          FA29560
+      X3 =  LOG(PMATM(I2,MATM))                                          FA29570
+      X4 =  LOG(PMATM(I3,MATM))                                          FA29580
+      IF (IUPPER.EQ.2) X4 = X3+2*(X3-X2)                                 FA29590
+      P = VAL(A1,A2,A3,A4,X1,X2,X3,X4)                                   FA29600
+      P = EXP(P)                                                         FA29610
+   70 IF (JUNITT.GT.6) GO TO 80                                          FA29620
+      MATM = JUNITT                                                      FA29630
+C                                                                        FA29640
+C     WRITE (IPR,65) Z,MATM                                              FA29650
+C                                                                        FA29660
+      X1 = TMATM(I0,MATM)                                                FA29670
+      X2 = TMATM(I1,MATM)                                                FA29680
+      X3 = TMATM(I2,MATM)                                                FA29690
+      X4 = TMATM(I3,MATM)                                                FA29700
+      T = VAL(A1,A2,A3,A4,X1,X2,X3,X4)                                   FA29710
+   80 DO 110 K = 1, NMOL                                                 FA29720
+         IF (JUNIT(K).GT.6) GO TO 110                                    FA29730
+C                                                                        FA29740
+         IF (K.GT.7) GO TO 90                                            FA29750
+         MATM = JUNIT(K)                                                 FA29760
+C                                                                        FA29770
+C     WRITE (IPR,70) K,HMOLS(K),Z,MATM                                   FA29780
+C                                                                        FA29790
+         X1 = AMOL(I0,K,MATM)                                            FA29800
+         X2 = AMOL(I1,K,MATM)                                            FA29810
+         X3 = AMOL(I2,K,MATM)                                            FA29820
+         X4 = AMOL(I3,K,MATM)                                            FA29830
+         GO TO 100                                                       FA29840
+   90    ITR = K-7                                                       FA29850
+         MATM = 6                                                        FA29860
+C                                                                        FA29870
+C     WRITE (IPR,70) K,HMOLS(K),Z,MATM                                   FA29880
+C                                                                        FA29890
+         X1 = TRAC(I0,ITR)                                               FA29900
+         X2 = TRAC(I1,ITR)                                               FA29910
+         X3 = TRAC(I2,ITR)                                               FA29920
+         X4 = TRAC(I3,ITR)                                               FA29930
+c                                                                               
+ 100     WMOL(K) = VAL(A1,A2,A3,A4,X1,X2,X3,X4)                          FA29940
+         JUNIT(K) = 10                                                   FA29960
+ 110  CONTINUE                                                           FA29970
+C                                                                        FA29980
+      RETURN                                                             FA29990
+C                                                                        FA30000
+  900 FORMAT (/,'   *** Z IS GREATER THAN 120 KM ***, Z = ',F10.3)       FA30010
+C                                                                        FA30020
+      END                                                                FA30030
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+                                                                                
+      SUBROUTINE DEFALT_P (P,T)                                                 
+C                                                                        FA28150
+C     *****************************************************************  FA28160
+C                                                                        FA28170
+C     THIS SUBROUTINE LOADS ONE OF THE 6 BUILT IN ATMOSPHERIC PROFILES   FA28180
+C     FROM WHICH IT WILL INTERPOLATE "DEFAULT" VALUES FOR PRESSURE "P"   FA28190
+C                                                                        FA28200
+C                                                                        FA28210
+C      ***  THIS SUBROUTINE IS CALLED BY "RDUNIT" WHICH                  FA28220
+C      ***  READS USER SUPPLIED INPUT PROFILES OR SINGLE VALUES          FA28230
+C      ***  UNDER "MODEL = 0     " SPECIFICATIONS                        FA28240
+C                                                                        FA28250
+C      *** SEE DOCUMENTATION FOR CLARIFICATION ***                       FA28260
+C                                                                        FA28270
+C     SUBROUTINE "DEFALT"IS TRIGGERRED WHENEVER ANY ONE OF               FA28280
+C     THE INPUT PARAMETERS JCHARP, JCART, (JCHAR(K),K=1,NMOL) IS = 1-6   FA28290
+C                                                                        FA28300
+C     FOR SIMPLICITY, ALL INTERPOLATIONS ARE DONE AT ONE TIME BECAUSE    FA28310
+C     THE LAGRANGE WEIGHTS (4PT), BASED ON (ALT-Z), REMAIN UNCHANGED     FA28320
+C                                                                        FA28330
+C     JCHARP,JCHART AND JCHAR(K) FOR K<8 ALLOW MODEL-DEPENDENT CHOICES   FA28340
+C                                                                        FA28350
+C                   JCHAR=JUNIT                                          FA28360
+C                                                                        FA28370
+C                        1       CHOOSES TROPICAL                        FA28380
+C                        2         "     MID-LATITUDE SUMMER             FA28390
+C                        3         "     MID-LATITUDE WINTER             FA28400
+C                        4         "     HIGH-LAT SUMMER                 FA28410
+C                        5         "     HIGH-LAT WINTER                 FA28420
+C                        6         "     US STANDARD                     FA28430
+C                                                                        FA28440
+C                                                                        FA28450
+C     JUNIT(K) FOR K>7 CHOOSES FROM THE SINGLE TRACE CONSTITUENT         FA28460
+C        PROFILES, ALL APPRORIATE FOR THE US STD ATMOSPHERE              FA28470
+C                                                                        FA28480
+C     ***  NOTE ***  T<0 WILL ALSO PRINT OUT A MESSAGE INDICATING        FA28490
+C     ***  A POSSIBLE MISAPPLICATION OF TEMPERATURE UNITS, (K) VS (C)    FA28500
+C                                                                        FA28510
+C     *****************************************************************  FA28520
+C                                                                        FA28530
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA28540
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA28550
+C                                                                        FA28560
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA28570
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA28580
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA28590
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA28610
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA28620
+C                                                                        FA28630
+      CHARACTER*8      HMOLS                                             FA28640
+C                                                                        FA28650
+      COMMON /HMOLS/ HMOLS(MXMOL),JUNIT(MXMOL),WMOL(MXMOL),JUNITP,       FA28660
+     *               JUNITT                                              FA28670
+      COMMON /MLATM/ ALT(MXZMD),PMATM(MXZMD,6),TMATM(MXZMD,6),           FA28680
+     *               AMOL(MXZMD,8,6),ZST(MXZMD),PST(MXZMD),TST(MXZMD),   FA28690
+     *               AMOLS(MXZMD,MXMOL)                                  FA28700
+      COMMON /MLATMC/ ATMNAM(6)                                          FA28710
+      CHARACTER*24 ATMNAM                                                FA28720
+      COMMON /TRAC/ TRAC(MXZMD,MXTRAC)                                   FA28730
+C                                                                        FA28740
+C     *** 4PT INTERPOLATION FUNCTION                                     FA28750
+C                                                                        FA28760
+      VAL(A1,A2,A3,A4,X1,X2,X3,X4) = A1*X1+A2*X2+A3*X3+A4*X4             FA28770
+C                                                                        FA28780
+      XLOG_P =  LOG(P)                                                          
+C                                                                               
+      DO 200 J_MDL=1,6                                                          
+                                                                                
+         ILOWER = 0                                                             
+         IUPPER = 0                                                      FA28800
+         LVL_50 = 50                                                     FA28810
+         DO 10 LVL = 2, LVL_50                                           FA28820
+            I2 = LVL                                                     FA28830
+            IF (P .GE. PMATM(LVL,J_MDL)) GO TO 20                               
+ 10      CONTINUE                                                        FA28850
+         I2 = LVL_50                                                     FA28860
+ 20      I1 = I2-1                                                       FA28870
+         I0 = I2-2                                                       FA28880
+         I3 = I2+1                                                       FA28890
+         IF (I0.LT.1) GO TO 30                                           FA28900
+         IF (I3.GT.LVL_50) GO TO 40                                      FA28910
+C                                                                        FA28920
+         GO TO 60                                                        FA28930
+C                                                                        FA28940
+C     LOWER ENDPOINT CORRECTION                                          FA28950
+C                                                                        FA28960
+ 30      CONTINUE                                                        FA28970
+         ILOWER = 1                                                      FA28980
+         I0 = I1                                                         FA28990
+         I1 = I2                                                         FA29000
+         I2 = I3                                                         FA29010
+         I3 = I3+1                                                       FA29020
+         GO TO 60                                                        FA29030
+C                                                                        FA29040
+C     UPPER ENDPOINT CORRECTION                                          FA29050
+C                                                                        FA29060
+ 40      CONTINUE                                                        FA29070
+         IUPPER = 1                                                      FA29080
+         IF (P .LE. PMATM(LVL_50,J_MDL)) GO TO 50                               
+         I3 = I2                                                         FA29100
+         I2 = I1                                                         FA29110
+         I1 = I0                                                         FA29120
+         I0 = I1-1                                                       FA29130
+         GO TO 60                                                        FA29140
+C                                                                        FA29150
+C      UPPER ENDPOINT EXTRAPOLATION                                      FA29160
+C                                                                        FA29170
+ 50      CONTINUE                                                        FA29180
+         P_0 =  LOG(PMATM(I0,J_MDL))                                            
+         P_1 =  LOG(PMATM(I1,J_MDL))                                            
+         P_2 =  LOG(PMATM(I2,J_MDL))                                            
+         P_3 = P_2+2.*(XLOG_P-P_2)                                       FA29220
+         IUPPER = 2                                                      FA29230
+         WRITE (IPR,900) P                                               FA29240
+C                                                                        FA29250
+         STOP 'DEFAULT P'                                                FA29260
+C                                                                        FA29270
+C     LAGRANGE CONTINUATION                                              FA29280
+C                                                                        FA29290
+ 60      CONTINUE                                                        FA29300
+C                                                                        FA29310
+C     LAGRANGE COEF DETERMINATION                                        FA29320
+C                                                                        FA29330
+         P_0 =  LOG(PMATM(I0,J_MDL))                                            
+         P_1 =  LOG(PMATM(I1,J_MDL))                                            
+         P_2 =  LOG(PMATM(I2,J_MDL))                                            
+         P_3 =  LOG(PMATM(I3,J_MDL))                                            
+         DEN1 = (P_0-P_1)*(P_0-P_2)*(P_0-P_3)                            FA29380
+         DEN2 = (P_1-P_2)*(P_1-P_3)*(P_1-P_0)                            FA29390
+         DEN3 = (P_2-P_3)*(P_2-P_0)*(P_2-P_1)                            FA29400
+         DEN4 = (P_3-P_0)*(P_3-P_1)*(P_3-P_2)                            FA29410
+         A1 = ((XLOG_P-P_1)*(XLOG_P-P_2)*(XLOG_P-P_3))/DEN1                     
+         A2 = ((XLOG_P-P_2)*(XLOG_P-P_3)*(XLOG_P-P_0))/DEN2                     
+         A3 = ((XLOG_P-P_3)*(XLOG_P-P_0)*(XLOG_P-P_1))/DEN3                     
+         A4 = ((XLOG_P-P_0)*(XLOG_P-P_1)*(XLOG_P-P_2))/DEN4                     
+C                                                                        FA29460
+C     TEST INPUT PARAMETERS (JUNIT'S) SEQUENTIALLY FOR TRIGGER           FA29470
+C      I.E.  JUNIT(P,T,K) = 1-6                                          FA29480
+C                                                                        FA29490
+C     FOR THIS VERSION OF THE SUBROUTINE DRIVEN BY PRESSURE P                   
+C     JUNITP IS THE MODEL ATMOSPHERES TO BE USED FOR THE ALTITUDE               
+C                                                                               
+ 70      IF (JUNITT.GT.6 .OR. JUNITT.NE.J_MDL) GO TO 80                         
+         MATM = JUNITT                                                   FA29630
+C                                                                        FA29640
+C     WRITE (IPR,65) P_,MATM                                             FA29650
+C                                                                        FA29660
+         X1 = TMATM(I0,MATM)                                             FA29670
+         X2 = TMATM(I1,MATM)                                             FA29680
+         X3 = TMATM(I2,MATM)                                             FA29690
+         X4 = TMATM(I3,MATM)                                             FA29700
+         T = VAL(A1,A2,A3,A4,X1,X2,X3,X4)                                FA29710
+                                                                                
+ 80      DO 110 K = 1, NMOL                                              FA29720
+            IF (JUNIT(K).GT.6  .OR. JUNIT(K).NE.J_MDL) GO TO 110                
+C                                                                        FA29740
+            IF (K.GT.7) GO TO 90                                         FA29750
+            MATM = JUNIT(K)                                              FA29760
+C                                                                        FA29770
+C     WRITE (IPR,70) K,HMOLS(K),P_,MATM                                  FA29780
+C                                                                        FA29790
+            X1 = AMOL(I0,K,MATM)                                         FA29800
+            X2 = AMOL(I1,K,MATM)                                         FA29810
+            X3 = AMOL(I2,K,MATM)                                         FA29820
+            X4 = AMOL(I3,K,MATM)                                         FA29830
+            GO TO 100                                                    FA29840
+ 90         ITR = K-7                                                    FA29850
+            MATM = 6                                                     FA29860
+C                                                                        FA29870
+C     WRITE (IPR,70) K,HMOLS(K),P_,MATM                                  FA29880
+C                                                                        FA29890
+            X1 = TRAC(I0,ITR)                                            FA29900
+            X2 = TRAC(I1,ITR)                                            FA29910
+            X3 = TRAC(I2,ITR)                                            FA29920
+            X4 = TRAC(I3,ITR)                                            FA29930
+                                                                                
+ 100        WMOL(K) = VAL(A1,A2,A3,A4,X1,X2,X3,X4)                       FA29940
+            JUNIT(K) = 10                                                FA29960
+c                                                                               
+ 110     CONTINUE                                                        FA29970
+C                                                                        FA29980
+ 200  CONTINUE                                                                  
+                                                                                
+      RETURN                                                             FA29990
+C                                                                        FA30000
+  900 FORMAT (/,'   *** P IS GREATER THAN P(120 KM)  ***, P = ',                
+     *     1PE10.4)                                                             
+C                                                                        FA30020
+      END                                                                FA30030
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+                                                                                
+      SUBROUTINE CONVRT (P,T,JUNIT,WMOL,IM,NMOL,NOPRNT)                         
+C                                                                        FA30050
+C*************************************************************           FA30060
+C                                                                        FA30070
+C        WRITTEN APR, 1985 TO ACCOMMODATE 'JCHAR' DEFINITIONS FOR        FA30080
+C        UNIFORM DATA INPUT -                                            FA30090
+C                                                                        FA30100
+C      JCHAR    JUNIT                                                    FA30110
+C                                                                        FA30120
+C    " ",A       10    VOLUME MIXING RATIO (PPMV)                        FA30130
+C        B       11    NUMBER DENSITY (CM-3)                             FA30140
+C        C       12    MASS MIXING RATIO (GM(K)/KG(AIR))                 FA30150
+C        D       13    MASS DENSITY (GM M-3)                             FA30160
+C        E       14    PARTIAL PRESSURE (MB)                             FA30170
+C        F       15    DEW POINT TEMP (TD IN T(K)) - H2O ONLY            FA30180
+C        G       16     "    "     "  (TD IN T(C)) - H2O ONLY            FA30190
+C        H       17    RELATIVE HUMIDITY (RH IN PERCENT) - H2O ONLY      FA30200
+C        I       18    AVAILABLE FOR USER DEFINITION                     FA30210
+C        J       19    REQUEST DEFAULT TO SPECIFIED MODEL ATMOSPHERE     FA30220
+C                                                                        FA30230
+C***************************************************************         FA30240
+C                                                                        FA30250
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA30260
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA30270
+C                                                                        FA30280
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA30290
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA30300
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA30310
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)         
+C                                                                        FA30340
+C                                                                               
+      INTEGER JUNIT(MXMOL)                                                      
+      DIMENSION WMOL(MXMOL)                                                     
+      DATA C1 / 18.9766 /,C2 / -14.9595 /,C3 / -2.4388 /                 FA30350
+C                                                                        FA30360
+      RHOAIR = ALOSMT*(P/PZERO)*(TZERO/T)                                FA30370
+      A = TZERO/T                                                        FA30380
+C                                                                               
+C     Get water vapor density                                            FA30390
+C                                                                               
+      CALL WATVAP (P,T,JUNIT(1),WMOL(1),DENM(1,IM),NOPRNT)               FA30400
+C                                                                               
+C     Determine density of dry air                                              
+C                                                                               
+      DRYAIR(IM) = RHOAIR - DENM(1,IM)                                   FA30410
+C                                                                               
+C     Loop through other molecules                                              
+C                                                                               
+      DO 70 K=2,NMOL                                                     FA30420
+         B = AVOGAD/AMWT(K)                                              FA30430
+         R = AIRMWT/AMWT(K)                                                     
+         DENM(K,IM) = 0.0                                                FA30440
+                                                                                
+         IF (JUNIT(K).GT.10) GO TO 20                                    FA30450
+C                                                                        FA30460
+C     GIVEN VOL. MIXING RATIO                                            FA30470
+C                                                                        FA30480
+         DENM(K,IM) = WMOL(K)*DRYAIR(IM)*1.E-6                           FA30490
+         GO TO 70                                                        FA30500
+ 20      IF (JUNIT(K).NE.11) GO TO 30                                    FA30510
+C                                                                        FA30520
+C     GIVEN NUMBER DENSITY (CM-3)                                        FA30530
+C                                                                        FA30540
+         DENM(K,IM) = WMOL(K)                                            FA30550
+         GO TO 70                                                        FA30560
+ 30      CONTINUE                                                        FA30570
+         IF (JUNIT(K).NE.12) GO TO 40                                    FA30580
+C                                                                        FA30590
+C     GIVEN MASS MIXING RATIO (GM KG-1)                                  FA30600
+C                                                                        FA30610
+         DENM(K,IM) = R*WMOL(K)*1.0E-3*DRYAIR(IM)                        FA30620
+         GO TO 70                                                        FA30630
+ 40      CONTINUE                                                        FA30640
+         IF (JUNIT(K).NE.13) GO TO 50                                    FA30650
+C                                                                        FA30660
+C     GIVEN MASS DENSITY (GM M-3)                                        FA30670
+C                                                                        FA30680
+         DENM(K,IM) = B*WMOL(K)*1.0E-6                                   FA30690
+         GO TO 70                                                        FA30700
+ 50      CONTINUE                                                        FA30710
+         IF (JUNIT(K).NE.14) GO TO 60                                    FA30720
+C                                                                        FA30730
+C     GIVEN PARTIAL PRESSURE (MB)                                        FA30740
+C                                                                        FA30750
+         DENM(K,IM) = ALOSMT*(WMOL(K)/PZERO)*(TZERO/T)                   FA30760
+         GO TO 70                                                        FA30770
+ 60      CONTINUE                                                        FA30780
+C                                                                        FA30790
+C     JUNIT(18) available for user definition here                       FA30800
+C                                                                               
+C                                                                               
+         IF (JUNIT(K).GT.14) THEN                                        FA30810
+            WRITE (IPR,900) K,JUNIT(K)                                   FA30820
+            STOP ' CONVRT '                                              FA30830
+         ENDIF                                                           FA30840
+C                                                                        FA30850
+ 70   CONTINUE                                                           FA30860
+C                                                                        FA30870
+  900 FORMAT (/,'   **** ERROR IN CONVRT ****, JUNIT(',I5,') = ',I5)     FA30880
+C                                                                        FA30890
+      RETURN                                                                    
+C                                                                               
+      END                                                                FA30900
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE WATVAP (P,T,JUNIT,WMOL,DENNUM,NOPRNT)                   FA30910
+C                                                                        FA30920
+C**********************************************************************  FA30930
+C                                                                        FA30940
+C        WRITTEN APR, 1985 TO ACCOMMODATE 'JCHAR' DEFINITIONS FOR        FA30950
+C        UNIFORM DATA INPUT -                                            FA30960
+C                                                                        FA30970
+C     JCHAR    JUNIT                                                     FA30980
+C                                                                        FA30990
+C    " ",A       10    VOLUME MIXING RATIO (PPMV)                        FA31000
+C        B       11    NUMBER DENSITY (CM-3)                             FA31010
+C        C       12    MASS MIXING RATIO (GM(K)/KG(AIR))                 FA31020
+C        D       13    MASS DENSITY (GM M-3)                             FA31030
+C        E       14    PARTIAL PRESSURE (MB)                             FA31040
+C        F       15    DEW POINT TEMP (TD IN T(K)) - H2O ONLY            FA31050
+C        G       16     "    "     "  (TD IN T(C)) - H2O ONLY            FA31060
+C        H       17    RELATIVE HUMIDITY (RH IN PERCENT) - H2O ONLY      FA31070
+C        I       18    AVAILABLE FOR USER DEFINITION                     FA31080
+C        J       19    REQUEST DEFAULT TO SPECIFIED MODEL ATMOSPHERE     FA31090
+C                                                                        FA31100
+C     THIS SUBROUTINE COMPUTES THE WATERVAPOR NUMBER DENSITY (MOL CM-3)  FA31110
+C     GIVE HUMIDITY  # TD = DEW POINT TEMP(K,C), RH = RELATIVE           FA31120
+C     (PERCENT), PPH2O = WATER VAPOR PARTIAL PRESSURE (MB), DENH2O =     FA31130
+C     WATER VAPOR MASS DENSITY (GM M-3),AMSMIX = MASS MIXING RATIO       FA31140
+C     (GM/KG).                                                           FA31150
+C                     THE FUNCTION DENSAT FOR THE SATURATION             FA31160
+C     WATER VAPOR DENSITY OVER WATER IS ACCURATE TO BETTER THAN 1        FA31170
+C     PERCENT FROM -50 TO +50 DEG C. (SEE THE LOWTRAN3 OR 5 REPORT)      FA31180
+C                                                                        FA31190
+C       'JUNIT' GOVERNS CHOICE OF UNITS -                                FA31200
+C                                                                        FA31210
+C**********************************************************************  FA31220
+C                                                                        FA31230
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA31240
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA31250
+C                                                                        FA31260
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA31270
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA31280
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA31290
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+C                                                                        FA31320
+      DATA C1 / 18.9766 /,C2 / -14.9595 /,C3 / -2.4388 /                 FA31330
+C                                                                        FA31340
+      DENSAT(ATEMP) = ATEMP*B*EXP(C1+C2*ATEMP+C3*ATEMP**2)*1.0E-6        FA31350
+C                                                                        FA31360
+      RHOAIR = ALOSMT*(P/PZERO)*(TZERO/T)                                FA31370
+      A = TZERO/T                                                        FA31380
+      B = AVOGAD/AMWT(1)                                                 FA31390
+      R = AIRMWT/AMWT(1)                                                 FA31400
+      IF (JUNIT.NE.10) GO TO 10                                          FA31410
+C                                                                        FA31420
+C     GIVEN VOL. MIXING RATIO                                            FA31430
+                                                                                
+C     Convert using density of dry air.                                         
+                                                                                
+      WMOL = WMOL*1.E-06                                                        
+      DENNUM = (WMOL/(1.+WMOL))*RHOAIR                                          
+      GO TO 90                                                           FA31460
+   10 IF (JUNIT.NE.11) GO TO 20                                          FA31470
+C                                                                        FA31480
+C     GIVEN NUMBER DENSITY (CM-3)                                        FA31490
+C                                                                        FA31500
+      DENNUM = WMOL                                                      FA31510
+      GO TO 90                                                           FA31520
+   20 CONTINUE                                                           FA31530
+      IF (JUNIT.NE.12) GO TO 30                                          FA31540
+C                                                                        FA31550
+C     GIVEN MASS MIXING RATIO (GM KG-1)                                  FA31560
+                                                                                
+C     Convert using density of dry air.  The following quadratic is             
+C                                                                        FA31570
+      WMOL = WMOL*R*1.0E-3                                                      
+      DENNUM = (WMOL/(1.+WMOL))*RHOAIR                                          
+      GO TO 90                                                           FA31590
+   30 CONTINUE                                                           FA31600
+      IF (JUNIT.NE.13) GO TO 40                                          FA31610
+C                                                                        FA31620
+C     GIVEN MASS DENSITY (GM M-3)                                        FA31630
+C                                                                        FA31640
+      DENNUM = B*WMOL*1.0E-6                                             FA31650
+      GO TO 90                                                           FA31660
+   40 CONTINUE                                                           FA31670
+      IF (JUNIT.NE.14) GO TO 50                                          FA31680
+C                                                                        FA31690
+C     GIVEN WATER VAPOR PARTIAL PRESSURE (MB)                            FA31700
+C                                                                        FA31710
+      DENNUM = ALOSMT*(WMOL/PZERO)*(TZERO/T)                             FA31720
+      GO TO 90                                                           FA31730
+   50 CONTINUE                                                           FA31740
+      IF (JUNIT.NE.15) GO TO 60                                          FA31750
+C                                                                        FA31760
+C     GIVEN DEWPOINT (DEG K)                                             FA31770
+C                                                                        FA31780
+      ATD = TZERO/(WMOL)                                                 FA31790
+      DENNUM = DENSAT(ATD)*(WMOL)/T                                      FA31800
+      GO TO 90                                                           FA31810
+   60 CONTINUE                                                           FA31820
+      IF (JUNIT.NE.16) GO TO 70                                          FA31830
+C                                                                        FA31840
+C     GIVEN DEWPOINT (DEG C)                                             FA31850
+C                                                                        FA31860
+      ATD = TZERO/(TZERO+WMOL)                                           FA31870
+      DENNUM = DENSAT(ATD)*(TZERO+WMOL)/T                                FA31880
+      GO TO 90                                                           FA31890
+   70 CONTINUE                                                           FA31900
+      IF (JUNIT.NE.17) GO TO 80                                          FA31910
+C                                                                        FA31920
+C     GIVEN RELATIVE HUMIDITY (PERCENT)                                  FA31930
+C                                                                        FA31940
+      DENNUM = DENSAT(A)*(WMOL/100.0)                                    FA31950
+      GO TO 90                                                           FA31960
+   80 WRITE (IPR,900) JUNIT                                              FA31970
+      STOP 'JUNIT'                                                       FA31980
+   90 CONTINUE                                                           FA31990
+      DENST = DENSAT(A)                                                  FA32000
+      RHP = 100.0*(DENNUM/DENST)                                         FA32010
+      IF (NOPRNT .ge. 0) WRITE (IPR,905) RHP                               FA320
+      IF (RHP.LE.100.0) GO TO 100                                        FA32030
+      if (noprnt .ge. 0) WRITE (IPR,910) RHP                                    
+  100 CONTINUE                                                           FA32050
+C                                                                        FA32060
+      RETURN                                                             FA32070
+C                                                                        FA32080
+  900 FORMAT (/,'  **** ERROR IN WATVAP ****, JUNIT = ',I5)              FA32090
+  905 FORMAT (8X,'RH = ',F6.2)                                           FA32100
+  910 FORMAT (/,' ****** WARNING (FROM WATVAP) # RELATIVE HUMIDTY = ',   FA32110
+     *        G10.3,' IS GREATER THAN 100 PERCENT')                      FA32120
+C                                                                        FA32130
+      END                                                                FA32140
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE FSCGEO (H1,H2,ANGLE,RANGE,BETA,ITYPE,LEN,HMIN,PHI,      FA32150
+     *                   IERROR,HOBS)                                    FA32160
+C                                                                        FA32170
+C     -------------------------------------------------------------             
+C     This routine was modified for LBLRTM to reflect changes                   
+C     implemented in MODTRAN to solve problems with inconsistent                
+C     path parameters.                                                          
+C     It was also modified to eliminate GOTO statements in order to             
+C     make the program easier to understand.                                    
+C     These changes were obtained from H. Snell (March, 1996).                  
+C     -------------------------------------------------------------             
+C                                                                               
+C     *****************************************************************  FA32180
+C     FSCGEO INTERPRETS THE ALLOWABLE COMBINATIONS OF INPUT PATH         FA32190
+C     PARAMETERS INTO THE STANDARD SET H1,H2,ANGLE,PHI,HMIN, AND LEN.    FA32200
+C     THE ALLOWABLE COMBINATIONS OF INPUT PARAMETERS ARE- FOR ITYPE = 2  FA32210
+C     (SLANT PATH H1 TO H2) A. H1, H2, AND ANGLE, B. H1, ANGLE, AND      FA32220
+C     RANGE, C. H1, H2, AND RANGE, D. H1, H2, AND BETA -                 FA32230
+C     FOR ITYPE = 3 (SLANT PATH H1 TO SPACE, H2 = ZMAX(=100 KM,M=1 TO 6  FA32240
+C     A. H1 AND ANGLE, B. H1 AND HMIN (INPUT AS H2).                     FA32250
+C     THE SUBROUTINE ALSO DETECTS BAD INPUT (IMPOSSIBLE GEOMETRY) AND    FA32260
+C     ITYPE = 2 CASES WHICH INTERSECT THE EARTH, AND RETURNS THESE       FA32270
+C     CASES WITH ERROR FLAGS.                                            FA32280
+C     THE SUBROUTINE FNDHMN IS CALLED TO CALCULATE HMIN, THE MINIMUM     FA32290
+C     HEIGHT ALONG THE PATH, AND PHI, THE ZENITH ANGLE AT H2, USING THE  FA32300
+C     ATMOSPHERIC PROFILE STORED IN /MDATA/                              FA32310
+C     *****************************************************************  FA32320
+C                                                                        FA32330
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA32340
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA32350
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA32360
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA32380
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA32390
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+C                                                                        FA32400
+      ITER = 0                                                           FA32410
+C                                                                               
+C     Check for error                                                           
+C                                                                               
+      IF ((ITYPE.NE.3).AND.(ITYPE.NE.2)) GOTO 90                                
+C                                                                        FA32430
+      IF (ITYPE.EQ.3) THEN                                                      
+C                                                                               
+C     Slant path to space                                                FA32440
+C     NOTE: If both HMIN and ANGLE are zero, then ANGLE is               FA32450
+C           assumed specified                                            FA32460
+C                                                                        FA32470
+          IF (H2.EQ.0) THEN                                                     
+C                                                                        FA32490
+C             Case 3A: H1,SPACE,ANGLE                                    FA32500
+C                                                                        FA32510
+              WRITE (IPR,900)                                            FA32520
+              H2 = ZMAX                                                  FA32530
+              CALL FNDHMN (H1,ANGLE,H2,LEN,ITER,HMIN,PHI,IERROR)         FA32540
+                                                                                
+          ELSE                                                                  
+C                                                                        FA32570
+C             Case 3B: H1,HMIN,SPACE                                     FA32580
+C                                                                        FA32590
+              WRITE (IPR,905)                                            FA32600
+              HMIN = H2                                                  FA32610
+              H2 = ZMAX                                                  FA32620
+              IF (H1.LT.HMIN) GO TO 80                                   FA32630
+              CALL FNDHMN (HMIN,90.0,H1,LEN,ITER,HMIN,ANGLE,IERROR)      FA32640
+              CALL FNDHMN (HMIN,90.0,H2,LEN,ITER,HMIN,PHI,IERROR)        FA32650
+              IF (HMIN.LT.H1) LEN = 1                                    FA32660
+          ENDIF                                                                 
+      ENDIF                                                                     
+C                                                                               
+      IF (ITYPE.EQ.2) THEN                                                      
+C                                                                               
+C       Assign the variable ISELCT to the following cases                       
+C       (depending on input parameters):                                        
+C                                                                               
+C       -----------------------------------------------                         
+C       H1   H2   ANGLE  RANGE  BETA  =>   CASE  ISELCT                         
+C       -----------------------------------------------                         
+C       X    X      X                       2A     21                           
+C       X           X      X                2B     22                           
+C       X    X             X                2C     23                           
+C       X    X                   X          2D     24                           
+C       -----------------------------------------------                         
+C                                                                               
+         IF (RANGE.GT.0.0) THEN                                                 
+C                                                                               
+C           Must be Case 2B or Case 2C                                          
+C                                                                               
+            IF (H2.GT.0.0) THEN                                                 
+C                                                                               
+C              Case 2C                                                          
+C                                                                               
+               ISELCT=23                                                        
+            ELSEIF (ANGLE.EQ.0.0) THEN                                          
+               WRITE(IPR,1000)                                                  
+               WRITE(*,1000)                                                    
+               ISELCT=23                                                        
+            ELSE                                                                
+C                                                                               
+C              Case 2B                                                          
+C                                                                               
+               ISELCT=22                                                        
+            ENDIF                                                               
+         ELSEIF (BETA.GT.0.0) THEN                                              
+C                                                                               
+C           Case 2D (beta cannot be zero)                                       
+C                                                                               
+            ISELCT=24                                                           
+         ELSE                                                                   
+C                                                                               
+C           Case 2A, since RANGE and BETA are both zero                         
+C                                                                               
+            ISELCT=21                                                           
+         ENDIF                                                                  
+C                                                                               
+         IF (ISELCT.EQ.21) THEN                                                 
+C                                                                        FA32710
+C           Case 2A: H1, H2, ANGLE                                       FA32720
+C                                                                        FA32730
+            if (noprnt .ge.0) WRITE (IPR,910)                                   
+            IF (H1.GE.H2.AND.ANGLE.LE.90.0) GO TO 110                    FA32750
+            IF (H1.EQ.0.0.AND.ANGLE.GT.90.0) GO TO 120                   FA32760
+            IF (H2.LT.H1.AND.ANGLE.GT.90.0) WRITE (IPR,915) LEN          FA32770
+            H2ST = H2                                                    FA32780
+            CALL FNDHMN (H1,ANGLE,H2,LEN,ITER,HMIN,PHI,IERROR)           FA32790
+            IF (H2.NE.H2ST) GO TO 120                                    FA32800
+         ENDIF                                                                  
+C                                                                               
+         IF (ISELCT.EQ.22) THEN                                                 
+C                                                                        FA32850
+C           Case 2B: H1, ANGLE, RANGE                                    FA32860
+C           Assume refraction                                            FA32870
+C                                                                        FA32880
+            if (noprnt .ge.0) WRITE (IPR,920)                                   
+            CALL NEWH2(H1,H2,ANGLE,RANGE,BETA,LEN,HMIN,PHI)                     
+         ENDIF                                                                  
+C                                                                               
+         IF (ISELCT.EQ.23) THEN                                                 
+C                                                                        FA33090
+C           Case 2C: H1, H2, RANGE                                       FA33100
+C                                                                        FA33110
+            if (noprnt .ge.0) WRITE (IPR,930)                                   
+            IF (ABS(H1-H2).GT.RANGE) GO TO 100                           FA33130
+            R1 = H1+RE                                                   FA33140
+            R2 = H2+RE                                                   FA33150
+C                                                                        FA33160
+            ZARG2 = (H1**2-H2**2+RANGE**2+2.0*RE*(H1-H2))                       
+     *              /(2.0*R1*RANGE)                                      FA33170
+            ERARG2 = ABS(ZARG2)-1.0                                      FA33180
+            IF ((ERARG2.LE.1.0E-6).AND.(ERARG2.GE.0.0)) THEN             FA33190
+               IF (ZARG2.LT.0.0) THEN                                    FA33200
+                  ZARG2 = -1.0                                           FA33210
+               ELSE                                                      FA33220
+                  ZARG2 = 1.0                                            FA33230
+               ENDIF                                                     FA33240
+            ENDIF                                                        FA33250
+            ANGLE = 180.0-ACOS(ZARG2)*DEG                                FA33260
+            ZARG3 = (H2**2-H1**2+RANGE**2+2*RE*(H2-H1))/(2.0*R2*RANGE)   FA33270
+            ERARG3 = ABS(ZARG3)-1.0                                      FA33280
+            IF ((ERARG3.LE.1.0E-6).AND.(ERARG3.GE.0.0)) THEN             FA33290
+               IF (ZARG3.LT.0.0) THEN                                    FA33300
+                 ZARG3 = -1.0                                            FA33310
+               ELSE                                                      FA33320
+                 ZARG3 = 1.0                                             FA33330
+               ENDIF                                                     FA33340
+            ENDIF                                                        FA33350
+            PHI = 180.0-ACOS(ZARG3)*DEG                                  FA33360
+            BETA = PHI+ANGLE-180.                                        FA33370
+C                                                                        FA33380
+            IF (RANGE.GT.2.0.AND.BETA.GT.0) THEN                         FA33390
+               CALL FDBETA (H1,H2,BETA,ANGLE,PHI,LEN,HMIN,IERROR)        FA33400
+            ELSE                                                         FA33410
+               LEN = 0                                                   FA33420
+               IF (ANGLE.GT.90.0.AND.PHI.GT.90.0) LEN = 1                FA33430
+               CALL FNDHMN (H1,ANGLE,H2,LEN,ITER,HMIN,PHI,IERROR)        FA33440
+            ENDIF                                                        FA33450
+         ENDIF                                                                  
+C                                                                               
+         IF (ISELCT.EQ.24) THEN                                                 
+C                                                                        FA33470
+C        Case 2D: H1, H2, BETA                                           FA33480
+C                                                                        FA33490
+            CALL FDBETA (H1,H2,BETA,ANGLE,PHI,LEN,HMIN,IERROR)           FA33510
+         ENDIF                                                                  
+      ENDIF                                                                     
+C                                                                        FA33530
+C     End of allowed cases                                               FA33540
+C                                                                        FA33550
+C     Test IERROR and recheck LEN                                        FA33580
+C                                                                        FA33590
+      IF (IERROR.NE.0) RETURN                                            FA33600
+      LEN = 0                                                            FA33610
+      IF (HMIN.LT.  MIN(H1,H2)) LEN = 1                                  FA33620
+C                                                                        FA33630
+C     Reduce path endpoints above ZMAX to ZMAX                           FA33640
+C                                                                        FA33650
+      IF (HMIN.GE.ZMAX) GO TO 130                                        FA33660
+      IF (H1.GT.ZMAX.OR.H2.GT.ZMAX) CALL REDUCE (H1,H2,ANGLE,PHI,ITER)   FA33670
+C                                                                        FA33680
+C     At this point the following parameters are defined-                FA33690
+C         H1,H2,ANGLE,PHI,HMIN,LEN                                       FA33700
+C                                                                               
+C     Calculate sin(PHI) and sin(ANGLE) and output                              
+C                                                                        FA33710
+      radconv = 2.*pi/360.                                                      
+      sinphi = sin(radconv*phi)                                                 
+      sinangle = sin(radconv*angle)                                             
+      if (noprnt .ge. 0) WRITE (IPR,935)                                        
+     *                   H1,H2,ANGLE,sinangle,PHI,sinphi,HMIN,LEN               
+                                                                                
+C                                                                               
+C     Calculate and output geometry from satellite above 120km.                 
+C     Subtract from 180 degrees to correctly place angle in the                 
+C     3rd quadrant.                                                             
+C                                                                               
+      if (hobs.gt.0.) then                                                      
+         if (h2.gt.h1) then                                                     
+            h_toa = h2                                                          
+            sintoa = sinphi                                                     
+            toa_ang = phi                                                       
+         else                                                                   
+            h_toa = h1                                                          
+            sintoa = sinangle                                                   
+            toa_ang = angle                                                     
+         endif                                                                  
+         sintoa_sat = ((re+h_toa)/(re+hobs))*sintoa                             
+         toa_sat = 180. - asin(sintoa_sat)/radconv                              
+         sintoa_sat = sin(radconv*toa_sat)                                      
+         diffangle = toa_sat - toa_ang                                          
+         WRITE (IPR,937) hobs,toa_sat,sintoa_sat,diffangle                      
+      endif                                                                     
+                                                                                
+                                                                                
+C                                                                               
+      RETURN                                                             FA33730
+C                                                                        FA33740
+C     Error messages                                                     FA33750
+C                                                                        FA33760
+   80 CONTINUE                                                           FA33770
+      WRITE (IPR,940) H1,HMIN                                            FA33780
+      GO TO 140                                                          FA33790
+   90 WRITE (IPR,945) ITYPE,ITYPE                                        FA33800
+      GO TO 140                                                          FA33810
+  100 WRITE (IPR,950) H1,H2,RANGE                                        FA33820
+      GO TO 140                                                          FA33830
+  110 CONTINUE                                                           FA33840
+      WRITE (IPR,955) H1,H2,ANGLE                                        FA33850
+      GO TO 140                                                          FA33860
+  120 WRITE (IPR,960)                                                    FA33870
+      GO TO 140                                                          FA33880
+  130 WRITE (IPR,965) ZMAX,H1,H2,HMIN                                    FA33890
+  140 IERROR = 1                                                         FA33900
+C                                                                        FA33910
+      RETURN                                                             FA33920
+C                                                                        FA33930
+  900 FORMAT (//,' CASE 3A: GIVEN H1,H2=SPACE,ANGLE')                    FA33940
+  905 FORMAT (//,' CASE 3B: GIVEN H1, HMIN, H2=SPACE')                   FA33950
+  910 FORMAT (//,' CASE 2A: GIVEN H1, H2, ANGLE')                        FA33960
+  915 FORMAT (//,' EITHER A SHORT PATH (LEN=0) OR A LONG PATH ',         FA33970
+     *        'THROUGH A TANGENT HEIGHT (LEN=1) IS POSSIBLE: LEN = ',    FA33980
+     *        I3)                                                        FA33990
+  920 FORMAT (//,' CASE 2B:, GIVEN H1, ANGLE, RANGE',//,10X,             FA34000
+     *        'NOTE: H2 IS COMPUTED FROM H1, ANGLE, AND RANGE ',         FA34010
+     *        'ASSUMING REFRACTION')                                     FA34020
+  925 FORMAT (//,10X,'CALCULATED H2 IS LESS THAN ZERO:',/,10X,           FA34030
+     *        'RESET H2 = 0.0 AND RANGE = ',F10.3)                       FA34040
+  930 FORMAT (//,' CASE 2C: GIVEN H1, H2, RANGE',//,10X,                 FA34050
+     *        'NOTE: ANGLE IS COMPUTED FROM H1, H2, AND RANGE ',         FA34060
+     *        'ASSUMING NO REFRACTION')                                  FA34070
+  935 FORMAT (///,' SLANT PATH PARAMETERS IN STANDARD FORM',/            FA34080
+     *        /,10X,'H1         = ',F12.6,' KM',                                
+     *        /,10X,'H2         = ',F12.6,' KM',                                
+     *        /,10X,'ANGLE      = ',F12.6,' DEG',                               
+     *        /,10X,'sin(ANGLE) = ',F12.6,                                      
+     *        /,10X,'PHI        = ',F12.6,' DEG',                               
+     *        /,10X,'sin(PHI)   = ',F12.6,                                      
+     *        /,10X,'HMIN       = ',F12.6,' KM',                                
+     *        /,10X,'LEN        = ',I10)                                        
+ 937  FORMAT (///,' SLANT PATH PARAMETERS AT SATELLITE',/                       
+     *        /,10X,'H_SAT        = ',F12.6,' KM',                              
+     *        /,10X,'PHI_SAT      = ',F12.6,' DEG'                              
+     *        /,10X,'sin(PHI_SAT) = ',F12.6,                                    
+     *        /,10X,'PHI_SAT-PHI  = ',F12.6,' DEG')                             
+  940 FORMAT ('0FSCGEO: CASE 3B (H1,HMIN,SPACE): ERROR IN INPUT DATA',   FA34130
+     *        //,10X,'H1 = ',F12.6,'    IS LESS THAN HMIN = ',F12.6)     FA34140
+  945 FORMAT ('0FSCGEO: ERROR IN INPUT DATA, ITYPE NOT EQUAL TO ',       FA34150
+     *        ' 2, OR 3.   ITYPE = ',I10,E23.14)                         FA34160
+  950 FORMAT ('0FSCGEO: CASE 2C (H1,H2,RANGE): ERROR IN INPUT DATA',     FA34170
+     *        //,10X,'ABS(H1-H2) GT RANGE;  H1 = ',F12.6,'    H2 = ',    FA34180
+     *        F12.6,'    RANGE = ',F12.6)                                FA34190
+  955 FORMAT ('0FSCGEO: CASE 2A (H1,H2,ANGLE): ERROR IN INPUT DATA',     FA34200
+     *        //,10X,'H1 = ',F12.6,'    IS GREATER THAN OR EQUAL TO',    FA34210
+     *        ' H2 = ',F12.6,/,10X,'AND ANGLE = ',F12.6,'    IS LESS',   FA34220
+     *        ' THAN OR EQUAL TO 90.0')                                  FA34230
+  960 FORMAT ('0FSCGEO: ITYPE = 2: SLANT PATH INTERSECTS THE EARTH',     FA34240
+     *        ' AND CANNOT REACH H2')                                    FA34250
+  965 FORMAT (' FSCGEO:  THE ENTIRE PATH LIES ABOVE THE TOP ZMAX ',      FA34260
+     *        'OF THE ATMOSPHERIC PROFILE',//,10X,'ZMAX = ',G12.6,5X,    FA34270
+     *        '  H1 = ',G12.6,5X,'  H2 = ',G12.6,'  HMIN = ',G12.6)      FA34280
+C                                                                        FA34290
+ 1000 FORMAT (/3X, 'Ambiguous Inputs:',/3X,'H1 and RANGE are both > 0',         
+     *    /3X,'but H2 and ANGLE = 0',//3X,'Path could be 2B or 2C',             
+     *    //5X,'will assume 2C',//3X,                                           
+     *    'change in FSCGEO if 2B is desired')                                  
+      END                                                                FA34300
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE REDUCE (H1,H2,ANGLE,PHI,ITER)                           FA34310
+C                                                                        FA34320
+C     *****************************************************************  FA34330
+C     ZMAX IS THE HIGHEST LEVEL IN THE ATMOSPHERIC PROFILE STORED IN     FA34340
+C     COMMON /MDATA/.  IF H1 AND/OR H2 ARE GREATER THAN ZMAX, THIS       FA34350
+C     SUBROUTINE REDUCES THEM TO ZMAX AND RESETS ANGLE AND/OR PHI        FA34360
+C     AS NECESSARY. THIS REDUCTION IS NECESSARY,FOR EXAMPLE FOR          FA34370
+C     SATELLITE ALTITUDES, BECAUSE (1) THE DENSITY PROFILES ARE          FA34380
+C     POORLY DEFINED ABOVE ZMAX AND (2) THE CALCULATION TIME FOR         FA34390
+C     PATHS ABOVE ZMAX CAN BE EXCESSIVE ( EG. FOR GEOSYNCRONOUS          FA34400
+C     ALTITUDES)                                                         FA34410
+C     *****************************************************************  FA34420
+C                                                                        FA34430
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA34440
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA34450
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA34460
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA34480
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA34490
+C                                                                        FA34500
+      IF (H1.LE.ZMAX.AND.H2.LE.ZMAX) RETURN                              FA34510
+      CALL FINDSH (H1,SH,GAMMA)                                          FA34520
+      CPATH = ANDEX(H1,SH,GAMMA)*(RE+H1)*SIN(ANGLE/DEG)                  FA34530
+      CALL FINDSH (ZMAX,SH,GAMMA)                                        FA34540
+      CZMAX = ANDEX(ZMAX,SH,GAMMA)*(RE+ZMAX)                             FA34550
+      ANGMAX = 180.0-ASIN(CPATH/CZMAX)*DEG                               FA34560
+      IF (H1.LE.ZMAX) GO TO 10                                           FA34570
+      H1 = ZMAX                                                          FA34580
+      ANGLE = ANGMAX                                                     FA34590
+   10 CONTINUE                                                           FA34600
+      IF (H2.LE.ZMAX) GO TO 20                                           FA34610
+      H2 = ZMAX                                                          FA34620
+      PHI = ANGMAX                                                       FA34630
+   20 CONTINUE                                                           FA34640
+      IF (ITER.EQ.0) WRITE (IPR,900) ZMAX,ANGMAX                         FA34650
+C                                                                        FA34660
+      RETURN                                                             FA34670
+C                                                                        FA34680
+  900 FORMAT (///,' FROM SUBROUTINE REDUCE : ',/,10X,'ONE OR BOTH OF',   FA34690
+     *        ' H1 AND H2 ARE ABOVE THE TOP OF THE ATMOSPHERIC ',        FA34700
+     *        'PROFILE ZMAX = ',F10.3,'  AND HAVE BEEN RESET TO ZMAX.',  FA34710
+     *        /,10X,'ANGLE AND/OR PHI HAVE ALSO BEEN RESET TO THE ',     FA34720
+     *        'ZENITH ANGLE AT ZMAX = ',F10.3,' DEG')                    FA34730
+C                                                                        FA34740
+      END                                                                FA34750
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE FDBETA (H1,H2,BETAS,ANGLE,PHI,LEN,HMIN,IERROR)          FA34760
+C                                                                        FA34770
+C     *****************************************************************  FA34780
+C     GIVEN H1,H2,AND BETA (THE EARTH CENTERED ANGLE) THIS SUBROUTINE    FA34790
+C     CALCULATES THE INITIAL ZENITH ANGLE AT H1 THROUGH AN ITERATIVE     FA34800
+C     PROCEDURE                                                          FA34810
+C     *****************************************************************  FA34820
+C                                                                        FA34830
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA34840
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA34850
+C                                                                        FA34860
+      REAL*8           RA,RB,SG,ANGLE1,ANGLE2,BETA,DBETA                !FA34870
+C                                                                        FA34880
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA34890
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA34900
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA34910
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA34930
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA34940
+      COMMON /BNDRY/ ZBND(MXFSC),PBND(MXFSC),TBND(MXFSC),ALORNZ(MXFSC),  FA34950
+     *               ADOPP(MXFSC),AVOIGT(MXFSC)                          FA34960
+C                                                                        FA34970
+      DATA TOLRNC / 5.0E-3 /,ITERMX / 10 /,BETD / 0.04 /                 FA34980
+      DATA ZER / 0. /                                                    FA34990
+C                                                                        FA35000
+      BETA = BETAS                                                       FA35010
+      IFLAG = 0                                                          FA35020
+      IF (H1.LE.H2) THEN                                                        
+          IORDER = 1                                                     FA35040
+          HA = H1                                                        FA35050
+          HB = H2                                                        FA35060
+      ELSE                                                                      
+          IORDER = -1                                                    FA35090
+          HA = H2                                                        FA35100
+          HB = H1                                                        FA35110
+      ENDIF                                                                     
+C                                                                        FA35130
+C     IF AUTOLAYERING SELECTED(IBMAX = 0) THEN SET UP DUMMY              FA35140
+C     LBLRTM OUTPUT LAYERS                                               FA35150
+C                                                                        FA35160
+      IBMSAV = IBMAX                                                     FA35170
+      IF (IBMAX.EQ.0) THEN                                                      
+          IBMAX = 2                                                      FA35190
+          ZBND(1) = ZMIN                                                 FA35200
+          ZBND(2) = ZMAX                                                 FA35210
+      ENDIF                                                                     
+C                                                                        FA35230
+C     SET PARAMETER TO SUPRESS CALCULATION OF AMOUNTS                    FA35240
+C                                                                        FA35250
+      IAMTB = 2                                                          FA35260
+C                                                                        FA35270
+C     GUESS AT ANGLE, INTEGRATE TO FIND BETA, TEST FOR                   FA35280
+C     CONVERGENCE, AND ITERATE                                           FA35290
+C     FIRST GUESS AT ANGLE: USE THE GEOMETRIC SOLUTION (NO REFRACTION)   FA35300
+C                                                                        FA35310
+      WRITE (IPR,900)                                                    FA35320
+      ITER = 0                                                           FA35330
+      RA = RE+HA                                                         FA35340
+      RB = RE+HB                                                         FA35350
+      SG = SQRT((HA-HB)**2+4.0*RA*RB*(SIN(BETA/(2.0*DEG)))**2)           FA35360
+      ANGLE1 = 180.0-ACOS((HA**2-HB**2+2.0*RE*(HA-HB)+SG**2)                    
+     *         /(2.0*RA*SG))*DEG                                         FA35370
+      HMIN = HA                                                          FA35380
+      IF (ANGLE1.GT.90.0) HMIN = RA*SIN(ANGLE1/DEG)-RE                   FA35390
+      HMING = HMIN                                                       FA35400
+      ANGLS1 = ANGLE1                                                    FA35410
+      CALL FNDHMN (HA,ANGLS1,HB,LEN,ITER,HMIN,PHI,IERROR)                FA35420
+      LEN = 0                                                            FA35430
+      IF (HMIN.LT.HA) LEN = 1                                            FA35440
+      CALL RFPATH (HA,HB,ANGLS1,PHI,LEN,HMIN,IAMTB,RANGE,BETA1,BENDNG)   FA35450
+      WRITE (IPR,905) ITER,ANGLS1,BETA,ZER,SG,HMING,ZER,ZER              FA35460
+C                                                                        FA35470
+C     OBTAIN DERIVATIVE                                                  FA35480
+C                                                                        FA35490
+      SG = SQRT((HA-HB)**2+4.0*RA*RB*(SIN((BETA+BETD)/(2.0*DEG)))**2)    FA35500
+      ANGLEP = 180.0-ACOS((HA**2-HB**2+2.0*RE*(HA-HB)+SG**2)                    
+     *         /(2.0*RA*SG))*DEG                                         FA35510
+      DANG = ANGLE1-ANGLEP                                               FA35520
+      IF (HMIN.LT.0.0) THEN                                              FA35530
+          IFLAG = 1                                                      FA35540
+          HMIN = 0.0                                                     FA35550
+          CALL FNDHMN (HMIN,90.0,HA,LEN,ITER,HMIN,ANGLS1,IERROR)         FA35560
+      ENDIF                                                              FA35570
+      ITER = 1                                                           FA35580
+      LEN = 0                                                            FA35590
+      IF (ANGLE1.GT.90.0) LEN = 1                                        FA35600
+      CALL FNDHMN (HA,ANGLS1,HB,LEN,ITER,HMIN,PHI,IERROR)                FA35610
+      LEN = 0                                                            FA35620
+      IF (HMIN.LT.HA) LEN = 1                                            FA35630
+      CALL RFPATH (HA,HB,ANGLS1,PHI,LEN,HMIN,IAMTB,RANGE,BETA1,BENDNG)   FA35640
+      DBETA = BETA-BETA1                                                 FA35650
+      WRITE (IPR,905) ITER,ANGLS1,BETA1,DBETA,RANGE,HMIN,PHI,BENDNG      FA35660
+      IF (IFLAG.EQ.1.AND.BETA1.LT.BETA) GO TO 90                         FA35670
+   50 CONTINUE                                                           FA35680
+      ANGLEP = ANGLE1-DANG                                               FA35690
+      LEN = 0                                                            FA35700
+      IF (ANGLEP.GT.90.0) LEN = 1                                        FA35710
+      CALL FNDHMN (HA,ANGLEP,HB,LEN,ITER,HMIN,PHI,IERROR)                FA35720
+      LEN = 0                                                            FA35730
+      IF (HMIN.LT.HA) LEN = 1                                            FA35740
+      CALL RFPATH (HA,HB,ANGLEP,PHI,LEN,HMIN,IAMTB,RANGE,BETAP,BENDNG)   FA35750
+      IF (ABS(BETA1-BETAP).LT.TOLRNC) GO TO 60                           FA35760
+      ITER = ITER+1                                                      FA35770
+      DC = BETAP-BETA1                                                   FA35780
+      DERIV = -DC/BETD                                                   FA35790
+      ANGLE2 = ANGLE1+(ANGLE1-ANGLEP)*(BETA-BETA1)/(BETA1-BETAP)         FA35800
+      ANGLS2 = ANGLE2                                                    FA35810
+      LEN = 0                                                            FA35820
+      IF (ANGLE2.GT.90.0) LEN = 1                                        FA35830
+      CALL FNDHMN (HA,ANGLS2,HB,LEN,ITER,HMIN,PHI,IERROR)                FA35840
+      LEN = 0                                                            FA35850
+      IF (HMIN.LT.HA) LEN = 1                                            FA35860
+      CALL RFPATH (HA,HB,ANGLS2,PHI,LEN,HMIN,IAMTB,RANGE,BETA2,BENDNG)   FA35870
+      DBETA = BETA-BETA2                                                 FA35880
+      WRITE (IPR,905) ITER,ANGLS2,BETA2,DBETA,RANGE,HMIN,PHI,BENDNG      FA35890
+      IF (BETA2.LT.BETA.AND.HMIN.LT.0.0) GO TO 90                        FA35900
+      ANGLE1 = ANGLE2                                                    FA35910
+      ANGLS1 = ANGLE1                                                    FA35920
+      BETA1 = BETA2                                                      FA35930
+      IF (ABS(BETA-BETA2).LT.TOLRNC) GO TO 70                            FA35940
+      IF (ITER.GT.ITERMX) GO TO 100                                      FA35950
+      GO TO 50                                                           FA35960
+   60 ANGLE2 = ANGLEP                                                    FA35970
+      ANGLS2 = ANGLE2                                                    FA35980
+      BETA = BETAP                                                       FA35990
+   70 CONTINUE                                                           FA36000
+      IF (HMIN.LT.0.0) GO TO 90                                          FA36010
+C                                                                        FA36020
+C     CONVERGED TO A SOLUTION                                            FA36030
+C                                                                        FA36040
+      ANGLE = ANGLE2                                                     FA36050
+      BETA = BETA2                                                       FA36060
+C                                                                        FA36070
+C     ASSIGN ANGLE AND PHI TO PROPER H1 AND H2                           FA36080
+C                                                                        FA36090
+      IF (IORDER.NE.1) THEN                                                     
+          TEMP = PHI                                                     FA36110
+          PHI = ANGLE                                                    FA36120
+          ANGLE = TEMP                                                   FA36130
+      ENDIF                                                                     
+      IBMAX = IBMSAV                                                     FA36150
+      BETAS = BETA                                                       FA36160
+C                                                                        FA36170
+      RETURN                                                             FA36180
+C                                                                        FA36190
+C     ERROR MESSAGES                                                     FA36200
+C                                                                        FA36210
+   90 CONTINUE                                                           FA36220
+      WRITE (IPR,910)                                                    FA36230
+      GO TO 110                                                          FA36240
+  100 CONTINUE                                                           FA36250
+      WRITE (IPR,915) H1,H2,BETA,ITER,ANGLE1,BETA1,ANGLE2,BETA2          FA36260
+C                                                                        FA36270
+  110 IERROR = 1                                                         FA36280
+C                                                                        FA36290
+      RETURN                                                             FA36300
+C                                                                        FA36310
+  900 FORMAT (///,' CASE 2D: GIVEN H1, H2,  BETA:',//,                   FA36320
+     *        ' ITERATE AROUND ANGLE UNTIL BETA CONVERGES',//,           FA36330
+     *        ' ITER    ANGLE',T21,'BETA',T30,'DBETA',T40,'RANGE',       FA36340
+     *        T51,'HMIN',T61,'PHI',T70,'BENDING',/,T10,'(DEG)',T21,      FA36350
+     *        '(DEG)',T30,'(DEG)',T41,'(KM)',T51,'(KM)',T60,'(DEG)',     FA36360
+     *        T71,'(DEG)',/)                                             FA36370
+  905 FORMAT (I5,3F10.4,2F10.3,2F10.4)                                   FA36380
+  910 FORMAT ('0FDBETA, CASE 2D(H1,H2,BETA): REFRACTED TANGENT ',        FA36390
+     *        'HEIGHT IS LESS THAN ZERO-PATH INTERSECTS THE EARTH',      FA36400
+     *        //,10X,'BETA IS TOO LARGE FOR THIS H1 AND H2')             FA36410
+  915 FORMAT ('0FDBETA, CASE 2D (H1,H2,BETA): SOLUTION DID NOT ',        FA36420
+     *        ' CONVERGE',//,10X,'H1 = ',F12.6,'    H2 = ',F12.6,        FA36430
+     *        '    BETA = ',F12.6,'    ITERATIONS = ',I4,//,10X,         FA36440
+     *        'LAST THREE ITERATIONS ',//,(10X,'ANGLE = ',F15.9,         FA36450
+     *        '    BETA = ',F15.9))                                      FA36460
+C                                                                        FA36470
+      END                                                                FA36480
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE FNDHMN (H1,ANGLE,H2,LEN,ITER,HMIN,PHI,IERROR)           FA36490
+C                                                                        FA36500
+C     *****************************************************************  FA36510
+C     THIS SUBROUTINE CALCULATES THE MINIMUM ALTITUDE HMIN ALONG         FA36520
+C     THE REFRACTED PATH AND THE FINAL ZENITH ANGLE PHI.                 FA36530
+C     THE PARAMETER LEN INDICATES WHETHER THE PATH GOES THROUGH          FA36540
+C     A TANGENT HEIGHT (LEN=1) OR NOT (LEN=0).  IF ANGLE > 90 AND        FA36550
+C     H1 > H2, THEN LEN CAN EITHER BE 1 OR 0, AND THE CHOICE IS          FA36560
+C     LEFT TO THE USER.                                                  FA36570
+C     THE (INDEX OF REFRACTION - 1.0) IS MODELED AS AN EXPONENTIAL       FA36580
+C     BETWEEN THE LAYER BOUNDARIES, WITH A SCALE HEIGHT SH AND AN        FA36590
+C     AMOUNT AT THE GROUND GAMMA.                                        FA36600
+C     CPATH IS THE REFRACTIVE CONSTANT FOR THIS PATH AND                 FA36610
+C     EQUALS  INDEX(H1)*(RE+H1)*SIN(ANGLE).                              FA36620
+C     *****************************************************************  FA36630
+C                                                                        FA36640
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA36650
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA36660
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA36670
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA36690
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA36700
+C                                                                        FA36710
+      REAL*8           CPATH,CRFRCT,ANDEXD,SH,GAMMA,CT1,CTP,                    
+     *                 CH2,CMIN                                                 
+C                                                                               
+      DATA DH / 0.2 /,ETA / 5.0E-7 /                                    >FA36720
+C                                                                        FA36730
+C>    ETA MAY BE TOO SMALL FOR SOME COMPUTERS. TRY 1.0E-7 FOR 32 BIT    >FA36740
+C>    WORD MACHINES                                                     >FA36750
+C                                                                        FA36760
+      CRFRCT(H) = (RE+H)*ANDEXD(H,SH,GAMMA)                              FA36770
+      N = 0                                                              FA36780
+      CALL FNDSHD (H1,SH,GAMMA)                                          FA36790
+      CPATH = CRFRCT(H1)*SIN(ANGLE/DEG)                                  FA36800
+      CALL FNDSHD (H2,SH,GAMMA)                                          FA36810
+      CH2 = CRFRCT(H2)                                                   FA36820
+      IF (ABS(CPATH/CH2).GT.1.0) GO TO 70                                FA36830
+      IF (ANGLE.LE.90.0) THEN                                            FA36840
+          LEN = 0                                                        FA36850
+          HMIN = H1                                                      FA36860
+          GO TO 60                                                       FA36870
+      ENDIF                                                              FA36880
+      IF (H1.LE.H2) LEN = 1                                              FA36890
+      IF (LEN.NE.1) THEN                                                 FA36900
+          LEN = 0                                                        FA36910
+          HMIN = H2                                                      FA36920
+          GO TO 60                                                       FA36930
+      ENDIF                                                              FA36940
+C                                                                        FA36950
+C     LONG PATH THROUGH A TANGENT HEIGHT.                                FA36960
+C     SOLVE ITERATIVELY FOR THE TANGENT HEIGHT HT.                       FA36970
+C     HT IS THE HEIGHT FOR WHICH  INDEX(HT)*(RE+HT) = CPATH.             FA36980
+C                                                                        FA36990
+      CALL FNDSHD (0.0,SH,GAMMA)                                         FA37000
+      CMIN = CRFRCT(0.0)                                                 FA37010
+C                                                                        FA37020
+C     FOR BETA CASES (ITER>0), ALLOW FOR HT < 0.0                        FA37030
+C                                                                        FA37040
+      IF (ITER.EQ.0.AND.CPATH.LT.CMIN) GO TO 50                          FA37050
+      HT1 = H1*SIN(ANGLE/DEG)+(SIN(ANGLE/DEG)-1.0)*RE                    FA37060
+C                                                                        FA37070
+C     ITERATE TO FIND HT                                                 FA37080
+C                                                                        FA37090
+   30 CONTINUE                                                           FA37100
+      N = N+1                                                            FA37110
+      CALL FNDSHD (HT1,SH,GAMMA)                                         FA37120
+      CT1 = CRFRCT(HT1)                                                  FA37130
+      IF (ABS((CPATH-CT1)/CPATH).LT.ETA) GO TO 40                        FA37140
+      IF (N.GT.15) GO TO 80                                              FA37150
+      HTP = HT1-DH                                                       FA37160
+      CALL FNDSHD (HTP,SH,GAMMA)                                         FA37170
+      CTP = CRFRCT(HTP)                                                  FA37180
+      DERIV=(CT1-CTP)/DH                                                        
+      HT1=HT1+(CPATH-CT1)/DERIV                                                 
+      GO TO 30                                                           FA37230
+   40 CONTINUE                                                           FA37240
+      HMIN=HT1                                                                  
+      GO TO 60                                                           FA37270
+   50 CONTINUE                                                           FA37280
+C                                                                        FA37290
+C     TANGENT PATH INTERSECTS EARTH                                      FA37300
+C                                                                        FA37310
+      H2 = 0.0                                                           FA37320
+      HMIN = 0.0                                                         FA37330
+      LEN = 0                                                            FA37340
+      CH2 = CMIN                                                         FA37350
+      WRITE (IPR,900) H1,ANGLE                                           FA37360
+   60 CONTINUE                                                           FA37370
+C                                                                        FA37380
+C     CALCULATE THE ZENITH ANGLE PHI AT H2                               FA37390
+C                                                                        FA37400
+      PHI = ASIN(CPATH/CH2)*DEG                                          FA37410
+      IF (ANGLE.LE.90.0.OR.LEN.EQ.1) PHI = 180.0-PHI                     FA37420
+C                                                                        FA37430
+      RETURN                                                             FA37440
+C                                                                        FA37450
+C     H2 LT TANGENT HEIGHT FOR THIS H1 AND ANGLE                         FA37460
+C                                                                        FA37470
+   70 CONTINUE                                                           FA37480
+      WRITE (IPR,905)                                                    FA37490
+      IERROR = 2                                                         FA37500
+C                                                                        FA37510
+      RETURN                                                             FA37520
+C                                                                        FA37530
+   80 CONTINUE                                                           FA37540
+      DC = CPATH-CT1                                                     FA37550
+      WRITE (IPR,910) N,CPATH,CT1,DC,HT1                                 FA37560
+C                                                                        FA37570
+      STOP ' FNDHMN '                                                    FA37580
+C                                                                        FA37590
+  900 FORMAT (///,' TANGENT PATH WITH H1 = ',F10.3,' AND ANGLE = ',      FA37600
+     *        F10.3,' INTERSECTS THE EARTH',//,10X,                      FA37610
+     *        'H2 HAS BEEN RESET TO 0.0 AND LEN TO 0')                   FA37620
+  905 FORMAT ('0H2 IS LESS THAN THE TANGENT HEIGHT FOR THIS PATH ',      FA37630
+     *        'AND CANNOT BE REACHED')                                   FA37640
+  910 FORMAT (///,'0FROM SUBROUTINE FNDHMN :',//,10X,                    FA37650
+     *        'THE PROCEEDURE TO FIND THE TANGENT HEIGHT DID NOT ',      FA37660
+     *        'CONVERG AFTER ',I3,'  ITERATIONS',//,10X,'CPATH   = ',    FA37670
+     *        F12.5,' KM',//,10X,'CT1     = ',F12.5,' KM',//,10X,        FA37680
+     *        'DC      = ',E12.3,' KM',//,10X,'HT1     = ',F12.5,' KM')  FA37690
+C                                                                        FA37700
+      END                                                                FA37710
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE FINDSH (H,SH,GAMMA)                                     FA37720
+C                                                                        FA37730
+C     *****************************************************************  FA37740
+C     GIVEN AN ALTITUDE H, THIS SUBROUTINE FINDS THE LAYER BOUNDARIES    FA37750
+C     Z(I1) AND Z(I2) WHICH CONTAIN H,  THEN CALCULATES THE SCALE        FA37760
+C     HEIGHT (SH) AND THE VALUE AT THE GROUND (GAMMA+1) FOR THE          FA37770
+C     REFRACTIVITY (INDEX OF REFRACTION -1)                              FA37780
+C     *****************************************************************  FA37790
+C                                                                        FA37800
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA37810
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA37820
+C                                                                        FA37830
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA37840
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA37850
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA37860
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA37880
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA37890
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA37900
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA37910
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA37920
+C                                                                        FA37930
+      CHARACTER*8      HMOD                                             &FA37940
+C                                                                        FA37950
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),   FA37970
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD) ,       FA37980
+     *       AMTP(MXMOL,MXPDIM)                                          FA37990
+C                                                                        FA38000
+      DO 10 IM = 2, IMMAX                                                FA38010
+         I2 = IM                                                         FA38020
+         IF (ZMDL(IM).GE.H) GO TO 20                                     FA38030
+   10 CONTINUE                                                           FA38040
+      I2 = IMMAX                                                         FA38050
+   20 CONTINUE                                                           FA38060
+      I1 = I2-1                                                          FA38070
+      CALL SCALHT (ZMDL(I1),ZMDL(I2),RFNDXM(I1),RFNDXM(I2),SH,GAMMA)     FA38080
+C                                                                        FA38090
+      RETURN                                                             FA38100
+C                                                                        FA38110
+      END                                                                FA38120
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE SCALHT (Z1,Z2,RFNDX1,RFNDX2,SH,GAMMA)                   FA38130
+C                                                                        FA38140
+C     *****************************************************************  FA38150
+C     THIS SUBROUTINE CALCULATES THE SCALE HEIGHT SH OF THE (INDEX OF    FA38160
+C     REFRACTION-1.0) FROM THE VALUES OF THE INDEX AT THE ALTITUDES Z1   FA38170
+C     AND Z2 ( Z1 < Z2). IT ALSO CALCULATES THE EXTRAPOLATED VALUE       FA38180
+C     GAMMA OF THE (INDEX-1.0) AT Z = 0.0                                FA38190
+C     *****************************************************************  FA38200
+C                                                                        FA38210
+      RF1 = RFNDX1+1.0E-20                                               FA38220
+      RF2 = RFNDX2+1.0E-20                                               FA38230
+      RATIO = RF1/RF2                                                    FA38240
+      IF (ABS(RATIO-1.0).LT.1.0E-05) GO TO 10                            FA38250
+      SH = (Z2-Z1)/ LOG(RATIO)                                           FA38260
+      GAMMA = RF1*(RF2/RF1)**(-Z1/(Z2-Z1))                               FA38270
+      GO TO 20                                                           FA38280
+   10 CONTINUE                                                           FA38290
+C                                                                        FA38300
+C     THE VARIATION IN THE INDEX OF REFRACTION WITH HEIGHT IS            FA38310
+C     INSIGNIFICANT OR ZERO                                              FA38320
+C                                                                        FA38330
+      SH = 0.0                                                           FA38340
+      GAMMA = RFNDX1                                                     FA38350
+   20 CONTINUE                                                           FA38360
+C                                                                        FA38370
+      RETURN                                                             FA38380
+C                                                                        FA38390
+      END                                                                FA38400
+      FUNCTION ANDEX (H,SH,GAMMA)                                        FA38410
+C                                                                        FA38420
+C     *****************************************************************  FA38430
+C     COMPUTES THE INDEX OF REFRACTION AT HEIGHT H, SH IS THE            FA38440
+C     SCALE HEIGHT, GAMMA IS THE VALUE AT H=0 OF THE REFRACTIVITY =      FA38450
+C     INDEX-1                                                            FA38460
+C     *****************************************************************  FA38470
+C                                                                        FA38480
+      IF (SH.EQ.0.0) THEN                                                FA38490
+         ANDEX = 1.0+GAMMA                                               FA38500
+      ELSE                                                               FA38510
+         ANDEX = 1.0+GAMMA*EXP(-H/SH)                                    FA38520
+      ENDIF                                                              FA38530
+C                                                                        FA38540
+      RETURN                                                             FA38550
+C                                                                        FA38560
+      END                                                                FA38570
+      FUNCTION RADREF (H,SH,GAMMA)                                       FA38580
+C                                                                        FA38590
+C     *****************************************************************  FA38600
+C     COMPUTES THE RADIUS OF CURVATURE OF THE REFRACTED RAY FOR          FA38610
+C     A HORIZONTAL PATH.  RADREF = ANDEX/ D(ANDEX)/D(RADIUS)             FA38620
+C     *****************************************************************  FA38630
+C                                                                        FA38640
+      DATA BIGNUM / 1.0E36 /                                             FA38650
+C                                                                        FA38660
+      IF (SH.EQ.0.0) GO TO 10                                            FA38670
+      RADREF = SH*(1.0+EXP(H/SH)/GAMMA)                                  FA38680
+C                                                                        FA38690
+      RETURN                                                             FA38700
+C                                                                        FA38710
+   10 RADREF = BIGNUM                                                    FA38720
+C                                                                        FA38730
+      RETURN                                                             FA38740
+C                                                                        FA38750
+      END                                                                FA38760
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE RFPATH (H1,H2,ANGLE,PHI,LEN,HMIN,IAMT,RANGE,BETA,       FA38770
+     *                   BENDNG)                                         FA38780
+C                                                                               
+C     -------------------------------------------------------------             
+C     This routine was modified for LBLRTM to reflect changes                   
+C     implemented in MODTRAN to solve problems with inconsistent                
+C     path parameters.                                                          
+C     It was also modified to eliminate GOTO statements in order to             
+C     make the program easier to understand.                                    
+C     These changes were obtained from H. Snell (March, 1996).                  
+C     -------------------------------------------------------------             
+C                                                                        FA38790
+C     *****************************************************************  FA38800
+C     THIS SUBROUTINE TRACES THE REFRACTED RAY FROM H1 WITH AN           FA38810
+C     INITIAL ZENITH ANGLE ANGLE TO H2 WHERE THE ZENITH ANGLE IS PHI,    FA38820
+C     AND CALCULATES THE ABSORBER AMOUNTS (IF IAMT.EQ.1) ALONG           FA38830
+C     THE PATH.  IT STARTS FROM THE LOWEST POINT ALONG THE PATH          FA38840
+C     (THE TANGENT HEIGHT HMIN IF LEN = 1 OR HA = MIN(H1,H2) IF LEN = 0  FA38850
+C     AND PROCEEDS TO THE HIGHEST POINT.  BETA AND RANGE ARE THE         FA38860
+C     EARTH CENTERED ANGLE AND THE TOTAL DISTANCE RESPECTIVELY           FA38870
+C     FOR THE REFRACTED PATH FROM H1 TO H2, AND BENDNG IS THE TOTAL      FA38880
+C     BENDING ALONG THE PATH                                             FA38890
+C     *****************************************************************  FA38900
+C                                                                        FA38910
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA38920
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA38930
+C                                                                        FA38940
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA38950
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA38960
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA38970
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA38990
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA39000
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA39010
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA39020
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA39030
+C                                                                        FA39040
+      CHARACTER*8      HMOD                                             &FA39050
+      REAL*8           DS,DBEND,S,SINAI,COSAI,CPATH,ANDEXD,SH,GAMMA             
+C                                                                        FA39060
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+C                                                                        FA39110
+      CHARACTER*2 HLOW(2)                                                FA39120
+      DATA HLOW / 'H1','H2'/                                             FA39130
+      DATA I_2/2/                                                               
+C                                                                        FA39140
+C     REORDER H1 AND H2 TO HA AND HB (HA .LE. HB)                        FA39150
+C                                                                        FA39160
+      IF (H1.LE.H2) THEN                                                        
+          IORDER = 1                                                     FA39180
+          HA = H1                                                        FA39190
+          HB = H2                                                        FA39200
+          ANGLEA = ANGLE                                                 FA39210
+      ELSE                                                                      
+          IORDER = -1                                                    FA39240
+          HA = H2                                                        FA39250
+          HB = H1                                                        FA39260
+          ANGLEA = PHI                                                   FA39270
+      ENDIF                                                                     
+C                                                                        FA39290
+C     MERGE THE ATMOSPHERIC PROFILE STORED IN ZMDL WITH H1,H2,(HMIN) AN  FA39300
+C     THE BOUNDARIES ZBND                                                FA39310
+C                                                                        FA39320
+      CALL AMERGE (H1,H2,HMIN,LEN)                                       FA39330
+      IF (IAMT.EQ.1.AND.NOPRNT.ge.0) WRITE (IPR,900)                     FA39340
+C                                                                        FA39350
+C     CALCULATE CPATH SEPERATELY FOR LEN = 0,1                           FA39360
+C                                                                        FA39370
+      IF (LEN.EQ.0) THEN                                                 FA39380
+          CALL FNDSHD (HA,SH,GAMMA)                                      FA39390
+          CPATH = (RE+HA)*ANDEXD(HA,SH,GAMMA)*SIN(ANGLEA/DEG)            FA39400
+      ELSE                                                               FA39410
+          CALL FNDSHD (HMIN,SH,GAMMA)                                    FA39420
+          CPATH = (RE+HMIN)*ANDEXD(HMIN,SH,GAMMA)                        FA39430
+      ENDIF                                                              FA39440
+C                                                                        FA39450
+      BETA = 0.0                                                         FA39460
+      S = 0.0                                                            FA39470
+      BENDNG = 0.0                                                       FA39480
+      IF (LEN.EQ.1) THEN                                                 FA39490
+C                                                                        FA39500
+C     TANGENT PATH                                                       FA39510
+C                                                                        FA39520
+          IF (IORDER.EQ.-1) THEN                                                
+              IHLOW = 2                                                         
+          ELSE                                                                  
+              IHLOW = 1                                                  FA39530
+          ENDIF                                                          FA39540
+          IF (IAMT.EQ.1.AND.NOPRNT.ge.0) WRITE (IPR,905) HLOW(IHLOW)     FA39550
+          SINAI = 1.0                                                    FA39560
+          COSAI = 0.0                                                    FA39570
+          THETA = 90.0                                                   FA39580
+      ELSE                                                               FA39590
+C                                                                        FA39600
+C     SHORT PATH                                                         FA39610
+C                                                                        FA39620
+C     ANGLEA IS THE ZENITH ANGLE AT HA IN DEG                            FA39650
+C     SINAI IS SIN OF THE INCIDENCE ANGLE                                FA39660
+C     COSAI IS CARRIED SEPERATELY TO AVOID A PRECISION PROBLEM           FA39670
+C     WHEN SINAI IS CLOSE TO 1.0                                         FA39680
+C                                                                        FA39690
+          THETA = ANGLEA                                                 FA39700
+          IF (ANGLEA.LE.45.0) THEN                                       FA39710
+              SINAI = SIN(ANGLEA/DEG)                                    FA39720
+              COSAI = -COS(ANGLEA/DEG)                                   FA39730
+          ELSE                                                           FA39740
+              SINAI = COS((90.0-ANGLEA)/DEG)                             FA39760
+              COSAI = -SIN((90.0-ANGLEA)/DEG)                            FA39770
+          ENDIF                                                                 
+          IF (IORDER.EQ.-1) THEN                                         FA39780
+              IHLOW = 2                                                         
+          ELSE                                                                  
+              IHLOW = 1                                                  FA39790
+          ENDIF                                                                 
+          IHIGH = MOD(IHLOW,I_2)+1                                         FA398
+          IF (IAMT.EQ.1.AND.NOPRNT.ge.0)                                 FA39820
+     *        WRITE (IPR,910) HLOW(IHLOW),HLOW(IHIGH)                    FA39830
+      ENDIF                                                              FA39840
+C                                                                        FA39850
+C     LOOP OVER THE LAYERS                                               FA39860
+C                                                                        FA39870
+      J2 = IPMAX-1                                                       FA39880
+      DO 100 J = 1, J2                                                   FA39890
+         CALL SCLHTD (ZPTH(J),ZPTH(J+1),RFNDXP(J),RFNDXP(J+1),SH,GAMMA)  FA39900
+         CALL ALAYER (J,SINAI,COSAI,CPATH,SH,GAMMA,IAMT,DS,DBEND)        FA39910
+         DBEND = DBEND*DEG                                               FA39920
+         PHI = ASIN(SINAI)*DEG                                           FA39930
+         DBETA = THETA-PHI+DBEND                                         FA39940
+         PHI = 180.0-PHI                                                 FA39950
+         S = S+DS                                                        FA39960
+         BENDNG = BENDNG+DBEND                                           FA39970
+         BETA = BETA+DBETA                                               FA39980
+         IF (IAMT.EQ.1) THEN                                                    
+             PBAR = PPSUM(J)/RHOPSM(J)                                   FA40000
+             TBAR = TPSUM(J)/RHOPSM(J)                                   FA40010
+             RHOBAR = RHOPSM(J)/DS                                       FA40020
+             IF (NOPRNT.ge.0) WRITE (IPR,915) J,ZPTH(J),ZPTH(J+1),       FA40030
+     *            THETA,DS,S,DBETA,BETA,PHI,DBEND,BENDNG,PBAR,           FA40040
+     *            TBAR,RHOBAR                                            FA40050
+         ENDIF                                                           FA40060
+         THETA = 180.0-PHI                                               FA40070
+C                                                                               
+         IF (LEN.EQ.1) THEN                                              FA40080
+C                                                                        FA40090
+C            For tangent paths, double the quantities BENDNG,BETA,       FA40100
+C            and S for the symmetric part of the path                    FA40110
+C                                                                        FA40120
+             IF ((J+1).EQ.IPHMID) THEN                                   FA40130
+                 BENDNG = 2.0*BENDNG                                     FA40140
+                 BETA = 2.0*BETA                                         FA40150
+                 S = 2.0*S                                               FA40160
+                 IF (IAMT.EQ.1.AND.NOPRNT.ge.0)                                 
+     *                         WRITE (IPR,920) S,BETA,BENDNG             FA40170
+                 IF (IPHMID.NE.IPMAX) THEN                               FA40180
+                     IF (IORDER.EQ.-1) THEN                              FA40190
+                         IHLOW = 2                                       FA40200
+                     ELSE                                                       
+                         IHLOW = 1                                              
+                     ENDIF                                                      
+                     IHIGH = MOD(IHLOW,I_2)+1                              FA402
+                     IF (IAMT.EQ.1.AND.NOPRNT.ge.0)                      FA40220
+     *                   WRITE (IPR,910) HLOW(IHLOW),HLOW(IHIGH)         FA40230
+                 ENDIF                                                          
+             ENDIF                                                              
+         ENDIF                                                                  
+  100 CONTINUE                                                           FA40240
+      IF (IORDER.EQ.-1) PHI = ANGLEA                                     FA40250
+      RANGE = S                                                          FA40260
+C                                                                        FA40270
+      RETURN                                                             FA40280
+C                                                                        FA40290
+  900 FORMAT ('1CALCULATION OF THE REFRACTED PATH THROUGH THE ',         FA40300
+     *        'ATMOSPHERE',///,T5,'I',T14,'ALTITUDE',T30,'THETA',T38,    FA40310
+     *        'DRANGE',T47,'RANGE',T57,'DBETA',T65,'BETA',T76,'PHI',     FA40320
+     *        T84,'DBEND',T91,'BENDING',T102,'PBAR',T111,'TBAR',T119,    FA40330
+     *        'RHOBAR',/,T11,'FROM',T22,'TO',/,T11,'(KM)',T21,'(KM)',    FA40340
+     *        T30,'(DEG)',T39,'(KM)',T48,'(KM)',T57,'(DEG)',T65,         FA40350
+     *        '(DEG)',T75,'(DEG)',T84,'(DEG)',T92,'(DEG)',T102,'(MB)',   FA40360
+     *        T112,'(K)',T117,'(MOL CM-3)',/)                            FA40370
+  905 FORMAT (' ',T10,'TANGENT',T20,A2,/,T10,'HEIGHT',/)                 FA40380
+  910 FORMAT (' ',T14,A2,' TO ',A2,/)                                    FA40390
+  915 FORMAT (' ',I4,2F10.3,10F9.3,1PE9.2)                               FA40400
+  920 FORMAT ('0',T10,'DOUBLE RANGE, BETA, BENDING',/,T10,               FA40410
+     *        'FOR SYMMETRIC PART OF PATH',T44,F9.3,T62,F9.3,T89,        FA40420
+     *        F9.3,/)                                                    FA40430
+C                                                                        FA40440
+      END                                                                FA40450
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE AMERGE (H1,H2,HMIN,LEN)                                 FA40460
+C                                                                        FA40470
+C     *****************************************************************  FA40480
+C     AMERGE CREATES A SET OF LAYER BOUNDARIES ZOUT WHICH INCLUDES       FA40490
+C     HMIN, (HMID), HMAX AND ALL OF ZBND BETWEEN HMIN AND HAMX.          FA40500
+C     ZOUT DEFINES THE LAYERS FOR THE LBLRTM CALCULATION.                FA40510
+C     ZOUT IS THEN MERGED WITH THE ATMOSPHERIC PROFILE IN ZMDL INTO ZPT  FA40520
+C     INTERPOLATING TO THE LEVELS ZOUT WHEN NECESSARY.  THE RAY          FA40530
+C     TRACE IS CALCULATED USING THE PROFILE IN ZPTH.                     FA40540
+C     *****************************************************************  FA40550
+C                                                                        FA40560
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA40570
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA40580
+C                                                                        FA40590
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA40600
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA40610
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA40620
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA40640
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA40650
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA40680
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA40690
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA40700
+C                                                                        FA40710
+      CHARACTER*8      HMOD                                             &FA40720
+C                                                                        FA40730
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+C                                                                        FA40780
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)  FA40790
+      COMMON /BNDRY/ ZBND(MXFSC),PBND(MXFSC),TBND(MXFSC),ALORNZ(MXFSC),  FA40800
+     *               ADOPP(MXFSC),AVOIGT(MXFSC)                          FA40810
+      COMMON /ZOUTP/ ZOUT(MXLAY),SOUT(MXLAY),RHOSUM(MXLAY),              FA40820
+     *               AMTTOT(MXMOL),AMTCUM(MXMOL),ISKIP(MXMOL)            FA40830
+      DIMENSION ZH(3)                                                    FA40840
+C                                                                        FA40850
+      DATA TOL / 5.E-4 /                                                 FA40860
+C                                                                        FA40870
+      DATA I_2/2/                                                               
+C                                                                               
+C     HMID .EQ. MINIMUM OF H1, H2                                        FA40880
+C                                                                        FA40890
+      HMID =   MIN(H1,H2)                                                FA40900
+      HMAX =   MAX(H1,H2)                                                FA40910
+      IHMAX = 2                                                          FA40920
+      ZH(1) = HMIN                                                       FA40930
+      IF (LEN.EQ.0) THEN                                                 FA40940
+          ZH(2) = HMAX                                                   FA40950
+      ELSE                                                               FA49060
+          ZH(2) = HMID                                                   FA40980
+          IF (ABS(H1-H2).LT.TOL) H1 = H2                                 FA40990
+          IF (H1.NE.H2) THEN                                             FA41000
+              IHMAX = 3                                                  FA41010
+              ZH(3) = HMAX                                               FA41020
+          ENDIF                                                          FA41030
+      ENDIF                                                                     
+C                                                                        FA41040
+C     MERGE ZH AND ZBND BETWEEN ZH(1) AND ZH(IHMAX) TO CREAT ZOUT        FA41050
+C                                                                        FA41060
+      ZOUT(1) = ZH(1)                                                    FA41070
+      DO 30 I1 = 1, IBMAX                                                FA41080
+         IF (ABS(ZBND(I1)-ZH(1)).LT.TOL) ZH(1) = ZBND(I1)                FA41090
+         IF (ZBND(I1).GT.ZH(1)) GO TO 40                                 FA41100
+   30 CONTINUE                                                           FA41110
+      I1 = IBMAX                                                         FA41120
+   40 CONTINUE                                                           FA41130
+C                                                                        FA41140
+C     ZBND(I1) IS SMALLEST ZBND .GT. ZH(1)                               FA41150
+C                                                                        FA41160
+      IOUT = 1                                                           FA41170
+      IB = I1                                                            FA41180
+      IH = 2                                                             FA41190
+   50 CONTINUE                                                           FA41200
+      IOUT = IOUT+1                                                      FA41210
+      IF (IB.GT.IBMAX) GO TO 60                                          FA41220
+      IF (ABS(ZBND(IB)-ZH(IH)).LT.TOL) ZH(IH) = ZBND(IB)                 FA41230
+      IF (ZBND(IB).LT.ZH(IH)) GO TO 70                                   FA41240
+      IF (ZBND(IB).EQ.ZH(IH)) IB = IB+1                                  FA41250
+C                                                                        FA41260
+C     INSERT ZH(IH)                                                      FA41270
+C                                                                        FA41280
+   60 CONTINUE                                                           FA41290
+      ZOUT(IOUT) = ZH(IH)                                                FA41300
+      IH = IH+1                                                          FA41310
+      IF (IH.GT.IHMAX) GO TO 80                                          FA41320
+      GO TO 50                                                           FA41330
+C                                                                        FA41340
+C     INSERT ZBND(IB)                                                    FA41350
+C                                                                        FA41360
+   70 CONTINUE                                                           FA41370
+      ZOUT(IOUT) = ZBND(IB)                                              FA41380
+      IB = IB+1                                                          FA41390
+      GO TO 50                                                           FA41400
+C                                                                        FA41410
+   80 CONTINUE                                                           FA41420
+      IOUTMX = IOUT                                                      FA41430
+C                                                                        FA41440
+C     NOW MERGE ZOUT AND ZMDL INTO ZPTH (FROM ZOUT(1) TO ZOUT(IOUTMX))   FA41450
+C     AND INTERPOLATE PRESSURE, TEMPERATURE, AND DENSITY WHEN            FA41460
+C     NECESSARY                                                          FA41470
+C                                                                        FA41480
+C     FIND SMALLEST ZMDL .GT. HMIN                                       FA41490
+C                                                                        FA41500
+      DO 90 IM = 1, IMMAX                                                FA41510
+         IF (ZMDL(IM).GE.HMIN) GO TO 100                                 FA41520
+   90 CONTINUE                                                           FA41530
+      WRITE (IPR,900) HMIN                                               FA41540
+      STOP ' AMERGE - HMIN '                                                    
+  100 CONTINUE                                                           FA41550
+      IPHMID = 0                                                         FA41560
+      IP = 0                                                             FA41570
+      IOUT = 1                                                           FA41580
+  110 CONTINUE                                                           FA41590
+      IP = IP+1                                                          FA41600
+      IF (IP.GT.IPDIM) THEN                                              FA41610
+          WRITE (IPR,905) IPDIM                                                 
+          STOP ' AMERGE - IPDIM '                                               
+      ENDIF                                                                     
+      IF (IM.GT.IMMAX) GO TO 130                                         FA41620
+      IF (ABS(ZOUT(IOUT)-ZMDL(IM)).LT.TOL) ZMDL(IM) = ZOUT(IOUT)         FA41630
+      IF (ZOUT(IOUT).LT.ZMDL(IM)) GO TO 130                              FA41640
+      IF (ZOUT(IOUT).EQ.ZMDL(IM)) IOUT = IOUT+1                          FA41650
+C                                                                        FA41660
+C     INSERT ZMDL(IM)                                                    FA41670
+C                                                                        FA41680
+      ZPTH(IP) = ZMDL(IM)                                                FA41690
+      PP(IP) = PM(IM)                                                    FA41700
+      TP(IP) = TM(IM)                                                    FA41710
+      RFNDXP(IP) = RFNDXM(IM)                                            FA41720
+      DO 120 K = 1, NMOL                                                 FA41730
+         DENP(K,IP) = DENM(K,IM)                                         FA41740
+  120 CONTINUE                                                           FA41750
+      IM = IM+1                                                          FA41760
+      IF (ABS(ZPTH(IP)-HMID).LT.TOL) HMID = ZPTH(IP)                     FA41770
+      IF (ZPTH(IP).EQ.HMID) IPHMID = IP                                  FA41780
+      IF (ABS(ZPTH(IP)-ZOUT(IOUTMX)).LT.TOL) ZOUT(IOUTMX) = ZPTH(IP)     FA41790
+      IF (ZPTH(IP).EQ.ZOUT(IOUTMX)) GO TO 150                            FA41800
+      GO TO 110                                                          FA41810
+C                                                                        FA41820
+C     INSERT LEVEL FROM ZOUT(IOUT) AND INTERPOLATE                       FA41830
+C                                                                        FA41840
+  130 CONTINUE                                                           FA41850
+      ZPTH(IP) = ZOUT(IOUT)                                              FA41860
+      JM = IM                                                            FA41870
+      JM = MAX(JM,I_2)                                                     FA418
+      A = (ZOUT(IOUT)-ZMDL(JM-1))/(ZMDL(JM)-ZMDL(JM-1))                  FA41890
+      CALL EXPINT (PP(IP),PM(JM-1),PM(JM),A)                             FA41900
+      TP(IP) = TM(JM-1)+(TM(JM)-TM(JM-1))*A                              FA41910
+      CALL EXPINT (RFNDXP(IP),RFNDXM(JM-1),RFNDXM(JM),A)                 FA41920
+      DO 140 K = 1, NMOL                                                 FA41930
+         CALL EXPINT (DENP(K,IP),DENM(K,JM-1),DENM(K,JM),A)              FA41940
+  140 CONTINUE                                                           FA41950
+      IF (ABS(ZPTH(IP)-HMID).LT.TOL) ZPTH(IP) = HMID                     FA41960
+      IF (ZPTH(IP).EQ.HMID) IPHMID = IP                                  FA41970
+      IOUT = IOUT+1                                                      FA41980
+      IF (ABS(ZPTH(IP)-ZOUT(IOUTMX)).LT.TOL) ZPTH(IP) = ZOUT(IOUTMX)     FA41990
+      IF (ZPTH(IP).EQ.ZOUT(IOUTMX)) GO TO 150                            FA42000
+      GO TO 110                                                          FA42010
+  150 CONTINUE                                                           FA42020
+      IPMAX = IP                                                         FA42030
+C                                                                        FA42040
+      RETURN                                                             FA42050
+C                                                                        FA42060
+  900 FORMAT ('0FROM AMERGE- ATMOSPHERIC PROFILE IN ZMDL DOES NOT',      FA42150
+     *        ' EXTEND UP TO HMIN = ',E12.5)                             FA42160
+  905 FORMAT ('0FROM AMERGE- MERGING THE ATMOSPHERIC PROFILE AND THE ',  FA42170
+     *        'LBLRTM BOUNDARIES INTO ZPTH(IPDIM) EXCEEDS THE ',         FA42180
+     *        'DIMENSION IPDIM = ',I5)                                   FA42190
+C                                                                        FA42200
+      END                                                                FA42210
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE ALAYER (J,SINAI,COSAI,CPATH,SH,GAMMA,IAMT,S,BEND)       FA42220
+C                                                                        FA42230
+C     -------------------------------------------------------------             
+C     This routine was modified for LBLRTM to reflect changes                   
+C     implemented in MODTRAN to solve problems with inconsistent                
+C     path parameters.                                                          
+C     It was also modified to eliminate GOTO statements in order to             
+C     make the program easier to understand.                                    
+C     These changes were obtained from H. Snell (March, 1996).                  
+C     -------------------------------------------------------------             
+C                                                                               
+C     *****************************************************************  FA42240
+C     THIS SUBROUTINE TRACES THE OPTICAL RAY THROUGH ONE LAYER FROM      FA42250
+C     Z1 TO Z2 AND IF IAMT.NE.2 CALCULATES THE INTEGRATED ABSORBER       FA42260
+C     AMOUNTS FOR THE LAYER. SINAI IS THE SIN OF THE INITIAL INCIDENCE   FA42270
+C     ANGLE (= 180 - ZENITH ANGLE). COSAI IS CARRIED SEPERATELY TO       FA42280
+C     AVOID A PRECISION PROBLEM NEAR SINAI = 1. CPATH IS THE CONSTANT    FA42290
+C     OF REFRACTION FOR THE PATH = INDEX*RADIUS*SINAI, SH AND GAMMA ARE  FA42300
+C     THE SCALE HEIGHT AND THE AMOUNT AT THE GROUND FOR THE REFRACTIVIT  FA42310
+C     (= 1-INDEX OF REFRACTION), S IS THE REFRACTED PATH LENGTH THROUGH  FA42320
+C     THE LAYER, BETA IS THE EARTH CENTERED ANGLE, AND BEND IS THE       FA42330
+C     BENDING THROUGH THE LAYER. IAMT CONTROLS WHETHER AMOUNTS ARE       FA42340
+C     CALCULATED OR NOT.                                                 FA42350
+C     *****************************************************************  FA42360
+C                                                                        FA42370
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA42380
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA42390
+C                                                                        FA42400
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA42410
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA42420
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA42430
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA42450
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA42460
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA42470
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA42480
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA42490
+C                                                                        FA42500
+      CHARACTER*8      HMOD                                             &FA42510
+C                                                                        FA42520
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+C                                                                        FA42570
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)  FA42580
+      DIMENSION HDEN(MXMOL),DENA(MXMOL),DENB(MXMOL)                      FA42590
+C                                                                               
+      REAL*8           S,BEND,DS,DBEND,W1,W2,W3,DSDX1,DSDX2,DSDX3,              
+     *       DBNDX1,DBNDX2,DBNDX3,R1,R2,R3,X1,X2,X3,RATIO1,RATIO2,              
+     *       RATIO3,SINAI1,SINAI2,SINAI3,COSAI1,COSAI2,COSAI3,Y1,Y3,            
+     *       CPATH,DX,DH,SINAI,COSAI,D31,D32,D21,DHMIN,                         
+     *       SH,GAMMA,ANDEXD,RADRFD                                             
+C                                                                        FA42600
+      DATA EPSILN / 1.0E-5 /                                             FA42610
+C                                                                        FA42620
+C     INITIALIZE VARIABLES FOR THE CALCULATION OF THE PATH               FA42630
+C                                                                        FA42640
+      N = 0                                                              FA42650
+      Z1 = ZPTH(J)                                                       FA42660
+      Z2 = ZPTH(J+1)                                                     FA42670
+      H1 = Z1                                                            FA42680
+      R1 = RE+H1                                                         FA42690
+      DHMIN = DELTAS**2/(2.0*R1)                                         FA42700
+      SINAI1 = SINAI                                                     FA42710
+      COSAI1 = COSAI                                                     FA42720
+      IF ((1.0-SINAI).LT.EPSILN)                                         FA42730
+     *     Y1 = COSAI1**2/2.0+COSAI1**4/8.0+COSAI1**6*3.0/48.0           FA42740
+      Y3 = 0.0                                                           FA42750
+      X1 = -R1*COSAI1                                                    FA42760
+      RATIO1 = R1/RADRFD(H1,SH,GAMMA)                                    FA42770
+      DSDX1 = 1.0/(1.0-RATIO1*SINAI1**2)                                 FA42780
+      DBNDX1 = DSDX1*SINAI1*RATIO1/R1                                    FA42790
+      S = 0.0                                                            FA42800
+      BEND = 0.0                                                         FA42810
+      IF (IAMT.NE.2) THEN                                                       
+C                                                                        FA42830
+C         Initialize the variables for the calculation of the            FA42840
+C         absorber amounts                                               FA42850
+C                                                                        FA42860
+          PA = PP(J)                                                     FA42870
+          PB = PP(J+1)                                                   FA42880
+          IF (PB.EQ.PA) THEN                                                    
+             WRITE(*,*) PB                                                      
+             STOP 'LBLATM: PRESSURES IN ADJOINING LAYERS MUST DIFFER'           
+          ENDIF                                                                 
+          TA = TP(J)                                                     FA42890
+          TB = TP(J+1)                                                   FA42900
+          RHOA = PA/(GCAIR*TA)                                           FA42910
+          RHOB = PB/(GCAIR*TB)                                           FA42920
+          DZ = ZPTH(J+1)-ZPTH(J)                                         FA42930
+          HP = -DZ/ LOG(PB/PA)                                           FA42940
+          IF (ABS(RHOB/RHOA-1.0).GE.EPSILN) THEN                         FA42950
+              HRHO = -DZ/ LOG(RHOB/RHOA)                                 FA42960
+          ELSE                                                           FA42970
+              HRHO = 1.0E30                                              FA42980
+          ENDIF                                                          FA42990
+          DO 40 K = 1, NMOL                                              FA43000
+              DENA(K) = DENP(K,J)                                        FA43010
+              DENB(K) = DENP(K,J+1)                                      FA43020
+              IF ((DENA(K).EQ.0.0.OR.DENB(K).EQ.0.0).OR.                 FA43030
+     *            (ABS(1.0-DENA(K)/DENB(K)).LE.EPSILN)) THEN             FA43040
+C                                                                               
+C                 Use linear interpolation                                      
+C                                                                               
+                  HDEN(K) = 0.0                                                 
+              ELSE                                                              
+C                                                                        FA43050
+C                 Use exponential interpolation                          FA43060
+C                                                                        FA43070
+                  HDEN(K) = -DZ/ LOG(DENB(K)/DENA(K))                    FA43080
+              ENDIF                                                             
+  40      CONTINUE                                                       FA43140
+      ENDIF                                                                     
+C                                                                        FA43160
+C     LOOP THROUGH PATH                                                  FA43170
+C     INTEGRATE PATH QUANTITIES USING QUADRATIC INTEGRATION WITH         FA43180
+C     UNEQUALLY SPACED POINTS                                            FA43190
+C                                                                        FA43200
+   60 CONTINUE                                                           FA43210
+      N = N+1                                                            FA43220
+      DH = -DELTAS*COSAI1                                                FA43230
+      DH = MAX(DH,DHMIN)                                                 FA43240
+      H3 = H1+DH                                                         FA43250
+      IF (H3.GT.Z2) H3 = Z2                                              FA43260
+      DH = H3-H1                                                         FA43270
+      R3 = RE+H3                                                         FA43280
+      H2 = H1+DH/2.0                                                     FA43290
+      R2 = RE+H2                                                         FA43300
+      SINAI2 = CPATH/(ANDEXD(H2,SH,GAMMA)*R2)                            FA43310
+      SINAI3 = CPATH/(ANDEXD(H3,SH,GAMMA)*R3)                            FA43320
+      RATIO2 = R2/RADRFD(H2,SH,GAMMA)                                    FA43330
+      RATIO3 = R3/RADRFD(H3,SH,GAMMA)                                    FA43340
+      IF ((1.0-SINAI2).LE.EPSILN) THEN                                          
+C                                                                        FA43360
+C        Near a tangent height, COSAI = -SQRT(1-SINAI**2) loses          FA43370
+C        precision. use the following algorithm to get COSAI.            FA43380
+C                                                                        FA43390
+         Y3 = Y1+(SINAI1*(1.0-RATIO1)/R1+4.0*SINAI2*(1.0-RATIO2)/R2+     FA43400
+     *        SINAI3*(1.0-RATIO3)/R3)*DH/6.0                             FA43410
+         COSAI3 = -SQRT(2.0*Y3-Y3**2)                                    FA43420
+         X3 = -R3*COSAI3                                                 FA43430
+         DX = X3-X1                                                      FA43440
+         W1 = 0.5*DX                                                     FA43450
+         W2 = 0.0                                                        FA43460
+         W3 = 0.5*DX                                                     FA43470
+      ELSE                                                               FA43480
+         COSAI2 = -SQRT(1.0-SINAI2**2)                                   FA43510
+         COSAI3 = -SQRT(1.0-SINAI3**2)                                   FA43520
+         X2 = -R2*COSAI2                                                 FA43530
+         X3 = -R3*COSAI3                                                 FA43540
+C                                                                        FA43550
+C        Calculate weights                                               FA43560
+C                                                                        FA43570
+         D31 = X3-X1                                                     FA43580
+         D32 = X3-X2                                                     FA43590
+         D21 = X2-X1                                                     FA43600
+         IF (D32.EQ.0.0.OR.D21.EQ.0.0) THEN                              FA43610
+            W1 = 0.5*D31                                                 FA43620
+            W2 = 0.0                                                     FA43630
+            W3 = 0.5*D31                                                 FA43640
+         ELSE                                                            FA43650
+            W1 = (2.0-D32/D21)*D31/6.0                                   FA43660
+            W2 = D31**3/(D32*D21*6.0)                                    FA43670
+            W3 = (2.0-D21/D32)*D31/6.0                                   FA43680
+         ENDIF                                                           FA43700
+      ENDIF                                                              FA43710
+      DSDX2 = 1.0/(1.0-RATIO2*SINAI2**2)                                 FA43720
+      DSDX3 = 1.0/(1.0-RATIO3*SINAI3**2)                                 FA43730
+      DBNDX2 = DSDX2*SINAI2*RATIO2/R2                                    FA43740
+      DBNDX3 = DSDX3*SINAI3*RATIO3/R3                                    FA43750
+C                                                                        FA43760
+C     INTEGRATE                                                          FA43770
+C                                                                        FA43780
+      DS = W1*DSDX1+W2*DSDX2+W3*DSDX3                                    FA43790
+      S = S+DS                                                           FA43800
+      DBEND = W1*DBNDX1+W2*DBNDX2+W3*DBNDX3                              FA43810
+      BEND = BEND+DBEND                                                  FA43820
+      IF (IAMT.NE.2) THEN                                                FA43830
+C                                                                        FA43840
+C         Calculate amounts                                              FA43850
+C                                                                        FA43860
+         DSDZ = DS/DH                                                    FA43870
+         PB = PA*EXP(-DH/HP)                                             FA43880
+         RHOB = RHOA*EXP(-DH/HRHO)                                       FA43890
+         IF ((DH/HRHO).GE.EPSILN) THEN                                          
+            PPSUM(J) = PPSUM(J)+DSDZ*(HP/(1.0+HP/HRHO))                  FA43900
+     *                 *(PA*RHOA-PB*RHOB)                                FA43910
+            TPSUM(J) = TPSUM(J)+DSDZ*HP*(PA-PB)/GCAIR                    FA43920
+            RHOPSM(J) = RHOPSM(J)+DSDZ*HRHO*(RHOA-RHOB)                  FA43930
+         ELSE                                                            FA43940
+            PPSUM(J) = PPSUM(J)+0.5*DS*(PA*RHOA+PB*RHOB)                 FA43960
+            TPSUM(J) = TPSUM(J)+0.5*DS*(PA+PB)/GCAIR                     FA43970
+            RHOPSM(J) = RHOPSM(J)+0.5*DS*(RHOA+RHOB)                     FA43980
+         ENDIF                                                           FA43990
+         DO 130 K = 1, NMOL                                              FA44000
+            IF ((HDEN(K).EQ.0.0).OR.                                     FA44010
+     *           (ABS(DH/HDEN(K)).LT.EPSILN)) THEN                       FA44020
+C                                                                        FA44130
+C                 Linear interpolation                                   FA44140
+C                 1.0E05 factor converts units km to cm                         
+C                                                                        FA44150
+               DENB(K)=DENP(K,J)+(DENP(K,J+1)-DENP(K,J))*(H3-Z1)/DZ      FA44160
+               AMTP(K,J) = AMTP(K,J)+0.5*(DENA(K)+DENB(K))*DS*1.0E5      FA44170
+            ELSE                                                                
+C                                                                               
+C                 Exponential interpolation                                     
+C                                                                               
+               DENB(K) = DENP(K,J)*EXP(-(H3-Z1)/HDEN(K))                        
+               AMTP(K,J) = AMTP(K,J)+DSDZ*HDEN(K)                               
+     *              *(DENA(K)-DENB(K))*1.0E5                                    
+            ENDIF                                                               
+ 130     CONTINUE                                                        FA44180
+         PA = PB                                                         FA44190
+         RHOA = RHOB                                                     FA44200
+         DO 140 K = 1, NMOL                                              FA44210
+            DENA(K) = DENB(K)                                            FA44220
+ 140     CONTINUE                                                        FA44230
+      ENDIF                                                              FA44240
+C                                                                               
+      IF (H3.LT.Z2) THEN                                                 FA44250
+         H1 = H3                                                         FA44260
+         R1 = R3                                                         FA44270
+         SINAI1 = SINAI3                                                 FA44280
+         RATIO1 = RATIO3                                                 FA44290
+         Y1 = Y3                                                         FA44300
+         COSAI1 = COSAI3                                                 FA44310
+         X1 = X3                                                         FA44320
+         DSDX1 = DSDX3                                                   FA44330
+         DBNDX1 = DBNDX3                                                 FA44340
+      ELSE                                                                      
+         SINAI = SINAI3                                                  FA44370
+         COSAI = COSAI3                                                  FA44380
+         SP(J) = S                                                       FA44390
+         RETURN                                                          FA44410
+      ENDIF                                                                     
+C                                                                               
+      GO TO 60                                                           FA44350
+C                                                                        FA44400
+      END                                                                FA44430
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE AUTLAY (HMIN,HMAX,XVBAR,AVTRAT,TDIFF1,TDIFF2,ALTD1,     FA44440
+     *                   ALTD2,IERROR)                                   FA44450
+C                                                                        FA44460
+C     *****************************************************************  FA44470
+C     THIS SUBROUTINE AUTOMATICALLY SELECTS A SET OF LBLRTM BOUNDARY     FA44480
+C     LEVELS WHICH SATISFY THE FOLLOWING TWO TESTS:                      FA44490
+C          1. THE RATIO OF THE VOIGT HALFWIDTHS BETWEEN BOUNDARIES       FA44500
+C             IS LESS THAN OR EQUAL TO AVTRAT, AND                       FA44510
+C          2. THE TEMPERATURE DIFFERENCE BETWEEN BOUNDARIES IS           FA44520
+C             LESS THAN OR EQUAL TO TDIFF                                FA44530
+C     TDIFF VARIES FROM TDIFF1 AT HMIN TO TDIFF2 AT HMAX,                FA44540
+C     WITH EXPONENTIAL INTERPOLATION BETWEEN                             FA44550
+C     THESE BOUNDARIES ARE ROUNDED DOWN TO THE NEAREST TENTH KM          FA44560
+C     NOTE THAT THESE TESTS APPLY TO THE LAYER BOUNDARIES                FA44570
+C     NOT TO THE AVERAGE VALUES FROM ONE LAYER TO THE NEXT.              FA44580
+C     *****************************************************************  FA44590
+C                                                                        FA44600
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA44610
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA44620
+C                                                                        FA44630
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA44640
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA44650
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA44660
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA44680
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA44690
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA44720
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA44730
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA44740
+C                                                                        FA44750
+      CHARACTER*8      HMOD                                             &FA44760
+C                                                                        FA44770
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+C                                                                        FA44820
+      COMMON /BNDRY/ ZBND(MXFSC),PBND(MXFSC),TBND(MXFSC),ALORNZ(MXFSC),  FA44830
+     *               ADOPP(MXFSC),AVOIGT(MXFSC)                          FA44840
+      DIMENSION AVTM(MXZMD)                                              FA44850
+C                                                                        FA44860
+C     FUNCTION ZROUND ROUNDS THE ALTITUDE Z DOWN TO THE                  FA44870
+C     NEAREST TENTH KM                                                   FA44880
+C                                                                        FA44890
+      ZROUND(ZX) = 0.1* REAL( INT(10.0*ZX))                              FA44900
+      HMIN = MAX(HMIN,ZMDL(1))                                           FA44910
+C                                                                        FA44920
+      DO 10 IM = 2, IMMAX                                                FA44930
+         IHMIN = IM                                                      FA44940
+         IF (ZMDL(IM).GT.HMIN) GO TO 20                                  FA44950
+   10 CONTINUE                                                           FA44960
+   20 CONTINUE                                                           FA44970
+      HTOP = HMAX                                                        FA44980
+      HTOP = MIN(HTOP,ZMAX)                                              FA44990
+      IM = IHMIN-1                                                       FA45000
+      ZZ = ZMDL(IM)                                                      FA45010
+      CALL HALFWD (ZZ,XVBAR,P,T,AL,AD,AVTM(IM))                          FA45020
+      IB = 1                                                             FA45030
+      ZBND(IB) = HMIN                                                    FA45040
+      IM = IHMIN                                                         FA45050
+      CALL HALFWD (ZBND(IB),XVBAR,PBND(IB),TBND(IB),ALORNZ(IB),          FA45060
+     *             ADOPP(IB),AVOIGT(IB))                                 FA45070
+C                                                                        FA45080
+C     BEGIN IM LOOP                                                      FA45090
+C                                                                        FA45100
+   30 CONTINUE                                                           FA45110
+      IB = IB+1                                                          FA45120
+      IF (IB.GT.IBDIM) GO TO 90                                          FA45130
+      IBM1 = IB-1                                                        FA45140
+      TMIN = TBND(IBM1)                                                  FA45150
+      TMAX = TBND(IBM1)                                                  FA45160
+      IND = 0                                                            FA45170
+C                                                                        FA45180
+C     BEGIN IB LOOP                                                      FA45190
+C                                                                        FA45200
+   40 CONTINUE                                                           FA45210
+      IPASS = 0                                                          FA45220
+      ZBND(IB) = ZMDL(IM)                                                FA45230
+      ZBNDTI = ZMDL(IM)                                                  FA45240
+      IF (ZBND(IB).GE.HTOP) ZBND(IB) = HTOP                              FA45250
+      CALL HALFWD (ZBND(IB),XVBAR,PBND(IB),TBND(IB),ALORNZ(IB),          FA45260
+     *             ADOPP(IB),AVOIGT(IB))                                 FA45270
+      AVTM(IM) = AVOIGT(IB)                                              FA45280
+C                                                                        FA45290
+C     TEST THE RATIO OF THE VOIGT WIDTHS AGAINST AVTRAT                  FA45300
+C                                                                        FA45310
+      IF ((AVOIGT(IB-1)/AVOIGT(IB)).LT.AVTRAT) GO TO 50                  FA45320
+C                                                                        FA45330
+C     ZMDL(IM) FAILS THE HALFWIDTH RATIO TEST                            FA45340
+C                                                                        FA45350
+      IPASS = 1                                                          FA45360
+      AVOIGT(IB) = AVOIGT(IB-1)/AVTRAT                                   FA45370
+      X = AVTM(IM)/AVTM(IM-1)                                            FA45380
+      ALOGX = 1.-X                                                       FA45390
+      IF (ABS(ALOGX).LT.0.001) THEN                                      FA45400
+         ZBND(IB) = (ZMDL(IM)+ZMDL(IM-1))/2.                             FA45410
+         GO TO 50                                                        FA45420
+      ELSE                                                               FA45430
+         ALOGX =  LOG(X)                                                 FA45440
+      ENDIF                                                              FA45450
+      Y = AVOIGT(IB)/AVTM(IM-1)                                          FA45460
+      ALOGY = 1.-Y                                                       FA45470
+      IF (ABS(ALOGY).GT.0.001) ALOGY =  LOG(Y)                           FA45480
+      ZBND(IB) = ZMDL(IM-1)+(ZMDL(IM)-ZMDL(IM-1))*ALOGY/ALOGX            FA45490
+   50 CONTINUE                                                           FA45500
+C                                                                        FA45510
+C     TEST THE TEMPERATURE DIFFERENCE AGAINST TDIFF                      FA45520
+C                                                                        FA45530
+      FAC = (ZBND(IB-1)-ALTD1)/(ALTD2-ALTD1)                             FA45540
+      CALL EXPINT (TDIFF,TDIFF1,TDIFF2,FAC)                              FA45550
+      IF (TM(IM).GT.TMAX) THEN                                           FA45560
+         IND = 1                                                         FA45570
+         TMAX = TM(IM)                                                   FA45580
+      ENDIF                                                              FA45590
+      IF (TM(IM).LT.TMIN) THEN                                           FA45600
+         IND = 2                                                         FA45610
+         TMIN = TM(IM)                                                   FA45620
+      ENDIF                                                              FA45630
+      IF (TMAX-TMIN.LE.TDIFF) GO TO 60                                   FA45640
+      IF (IND.EQ.1) TBND(IB) = TMIN+TDIFF                                FA45650
+      IF (IND.EQ.2) TBND(IB) = TMAX-TDIFF                                FA45660
+C                                                                        FA45670
+C     ZBND(IB) FAILS THE TEMPERATURE DIFFERENCE TEST                     FA45680
+C                                                                        FA45690
+      IPASS = 2                                                          FA45700
+      IF (ABS(TM(IM)-TM(IM-1)).LT.0.0001) THEN                           FA45710
+         ZBNDTI = (ZMDL(IM)+ZMDL(IM-1))/2.                               FA45720
+      ELSE                                                               FA45730
+         ZBNDTI = ZMDL(IM-1)+(ZMDL(IM)-ZMDL(IM-1))*                      FA45740
+     *            (TBND(IB)-TM(IM-1))/(TM(IM)-TM(IM-1))                  FA45750
+      ENDIF                                                              FA45760
+   60 CONTINUE                                                           FA45770
+      IF (ZBNDTI.LT.ZBND(IB)) ZBND(IB) = ZBNDTI                          FA45780
+      IF (ZBND(IB).GE.HTOP) THEN                                         FA45790
+         ZBND(IB) = HTOP                                                 FA45800
+         IF (ZBND(IB)-ZBND(IB-1).LE.0.1) THEN                            FA45810
+            IB = IB-1                                                    FA45820
+            ZBND(IB) = HTOP                                              FA45830
+            CALL HALFWD (ZBND(IB),XVBAR,PBND(IB),TBND(IB),ALORNZ(IB),    FA45840
+     *                   ADOPP(IB),AVOIGT(IB))                           FA45850
+         ENDIF                                                           FA45860
+         GO TO 80                                                        FA45870
+      ENDIF                                                              FA45880
+      IF (IPASS.NE.0) GO TO 70                                           FA45890
+C                                                                        FA45900
+C     BOTH HALFWIDTH AND TEMPERATURE TEST PASS FOR ZBND(IB) = ZMDL(IM),  FA45910
+C     NOW TRY ZBND(IB) = ZMDL(IM+1)                                      FA45920
+C                                                                        FA45930
+      IM = IM+1                                                          FA45940
+      GO TO 40                                                           FA45950
+   70 CONTINUE                                                           FA45960
+C                                                                        FA45970
+C     ONE OF THE TESTS FAILED AND A NEW BOUNDRY ZBND WAS PRODUCED        FA45980
+C                                                                        FA45990
+      ZBND(IB) = ZROUND(ZBND(IB))                                        FA46000
+      CALL HALFWD (ZBND(IB),XVBAR,PBND(IB),TBND(IB),ALORNZ(IB),          FA46010
+     *             ADOPP(IB),AVOIGT(IB))                                 FA46020
+      GO TO 30                                                           FA46030
+   80 CONTINUE                                                           FA46040
+      IBMAX = IB                                                         FA46050
+      WRITE (IPR,900) AVTRAT,TDIFF1,HMIN,TDIFF2,HMAX                     FA46060
+C                                                                        FA46070
+      RETURN                                                             FA46080
+C                                                                        FA46090
+   90 CONTINUE                                                           FA46100
+      WRITE (IPR,905) IBDIM                                              FA46110
+      IBMAX = IBDIM                                                      FA46120
+      IERROR = 5                                                         FA46130
+C                                                                        FA46140
+      RETURN                                                             FA46150
+C                                                                        FA46160
+  900 FORMAT (///,                                                       FA46170
+     *        ' LBLRTM LAYER BOUNDARIES PRODUCED BY THE AUTOMATIC ',     FA46180
+     *        'LAYERING ROUTINE AUTLAY',/,' THE USER SHOULD EXAMINE ',   FA46190
+     *        'THESE BOUNDARIES AND MODIFY THEM IF APPROPRIATE',/,       FA46200
+     *        ' THE FOLLOWING PARAMETERS ARE USED:',//,10X,              FA46210
+     *        'AVTRAT    = ',F8.2,'       = MAX RATIO OF VOIGT WIDTHS',  FA46220
+     *        /,10X,'TDIFF1    = ',F8.2,'       = MAX TEMP DIFF AT ',    FA46230
+     *        F4.0,' KM',/10X,'TDIFF2    = ',F8.2,                       FA46240
+     *        '       = MAX TEMP DIFF AT ',F4.0,' KM')                   FA46250
+  905 FORMAT (///,' ERROR IN AUTLAY:',/,5X,'THE NUMBER OF ',             FA46260
+     *        'GENERATED LAYER BOUNDARIES EXCEEDS THE DIMENSION IBDIM',  FA46270
+     *        ' OF THE ARRAY ZBND.  IBDIM = ',I5,/,5X,'PROBABLE CAUSE',  FA46280
+     *        ': EITHER AVTRAT AND/OF TDIFF ARE TOO SMALL',/,5X,         FA46290
+     *        'THE GENERATED LAYERS FOLLOW')                             FA46300
+C                                                                        FA46310
+      END                                                                FA46320
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE HALFWD_P (Z,XVBAR,P,T,ALORNZ,ADOPP,AVOIGT)              FA46330
+C                                                                        FA46340
+C     *****************************************************************  FA46350
+C     GIVEN AN PRESSURE AND TEMP. AND AVERAGE WAVENUMBER VBAR, THIS      FA46360
+C     SUBROUTINE                                                         FA46370
+C     CALCULATES THE LORENTZ, THE DOPPLER, AND THE VOIGT HALFWIDTHS      FA46380
+C     (AT HALFHEIGHT) ALORNZ, ADOPP, AND AVOIGT RESPECTIVELY FOR         FA46390
+C     THE ALTITUDE Z                                                     FA46400
+C     AN AVERAGE LORENTZ WIDTH ALZERO AND AN AVERAGE MOLECULAR           FA46410
+C     WEIGHT AVMWT ARE ASSUMED                                           FA46420
+C     *****************************************************************  FA46430
+C                                                                        FA46440
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA46450
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA46460
+C                                                                        FA46470
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA46480
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA46490
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA46500
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA46520
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA46530
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA46560
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA46570
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA46580
+C                                                                        FA46590
+      CHARACTER*8      HMOD                                             &FA46600
+C                                                                        FA46610
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+C                                                                        FA46660
+C     FUNCTIONS                                                          FA46670
+C     ALZERO IS AT 1013.25 MB AND 296.0 K                                FA46680
+C                                                                        FA46690
+      ALPHAL(P,T) = ALZERO*(P/PZERO)*SQRT(296.0/T)                       FA46700
+      ALPHAD(T,V) = ADCON*V*SQRT(T/AVMWT)                                FA46710
+      ALPHAV(AL,AD) = 0.5*(AL+SQRT(AL**2+4.0*AD**2))                     FA46720
+C                                                                        FA46730
+      ALORNZ = ALPHAL(P,T)                                               FA46830
+      ADOPP = ALPHAD(T,XVBAR)                                            FA46840
+      AVOIGT = ALPHAV(ALORNZ,ADOPP)                                      FA46850
+C                                                                        FA46860
+      RETURN                                                             FA46870
+C                                                                        FA46880
+      END                                                                FA46890
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE HALFWD (Z,XVBAR,P,T,ALORNZ,ADOPP,AVOIGT)                FA46330
+C                                                                        FA46340
+C     *****************************************************************  FA46350
+C     GIVEN AN ALTITUDE Z AND AN AVERAGE WAVENUMBER VBAR, THIS           FA46360
+C     SUBROUTINE INTERPOLATES P AND T FROM THE PROFILE IN ZMDL  AND      FA46370
+C     CALCULATES THE LORENTZ, THE DOPPLER, AND THE VOIGT HALFWIDTHS      FA46380
+C     (AT HALFHEIGHT) ALORNZ, ADOPP, AND AVOIGT RESPECTIVELY FOR         FA46390
+C     THE ALTITUDE Z                                                     FA46400
+C     AN AVERAGE LORENTZ WIDTH ALZERO AND AN AVERAGE MOLECULAR           FA46410
+C     WEIGHT AVMWT ARE ASSUMED                                           FA46420
+C     *****************************************************************  FA46430
+C                                                                        FA46440
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA46450
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA46460
+C                                                                        FA46470
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA46480
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA46490
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA46500
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA46520
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA46530
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA46560
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA46570
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA46580
+C                                                                        FA46590
+      CHARACTER*8      HMOD                                             &FA46600
+C                                                                        FA46610
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+C                                                                        FA46660
+C     FUNCTIONS                                                          FA46670
+C     ALZERO IS AT 1013.25 MB AND 296.0 K                                FA46680
+C                                                                        FA46690
+      ALPHAL(P,T) = ALZERO*(P/PZERO)*SQRT(296.0/T)                       FA46700
+      ALPHAD(T,V) = ADCON*V*SQRT(T/AVMWT)                                FA46710
+      ALPHAV(AL,AD) = 0.5*(AL+SQRT(AL**2+4.0*AD**2))                     FA46720
+C                                                                        FA46730
+      DO 10 I2 = 2, IMMAX                                                FA46740
+         IM = I2                                                         FA46750
+         IF (ZMDL(IM).GE.Z) GO TO 20                                     FA46760
+   10 CONTINUE                                                           FA46770
+      IM = IMMAX                                                         FA46780
+   20 CONTINUE                                                           FA46790
+      FAC = (Z-ZMDL(IM-1))/(ZMDL(IM)-ZMDL(IM-1))                         FA46800
+      CALL EXPINT (P,PM(IM-1),PM(IM),FAC)                                FA46810
+      T = TM(IM-1)+(TM(IM)-TM(IM-1))*FAC                                 FA46820
+      ALORNZ = ALPHAL(P,T)                                               FA46830
+      ADOPP = ALPHAD(T,XVBAR)                                            FA46840
+      AVOIGT = ALPHAV(ALORNZ,ADOPP)                                      FA46850
+C                                                                        FA46860
+      RETURN                                                             FA46870
+C                                                                        FA46880
+      END                                                                FA46890
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE FPACK (H1,H2,HMID,LEN,IEMIT,n_zero)                     FA46900
+C                                                                        FA46910
+C     *****************************************************************  FA46920
+C     FPACK TAKES THE AMOUNTS STORED IN THE LAYERS DEFINED BY ZPTH AND   FA46930
+C     PACKS THEM INTO THE LAYERS DEFINED BY ZOUT.  IT ALSO ZEROS OUT     FA46940
+C     LAYER AMOUNTS IF THE AMOUNT FOR THAT LAYER AND ABOVE IS LESS       FA46950
+C     THAN 0.1 PERCENT OF THE TOTAL FOR THAT MOLECULE if THE                    
+C     n_zero OPTION IS SELECTED.                                         FA46970
+C     *****************************************************************  FA46980
+C                                                                        FA46990
+      IMPLICIT REAL*8           (V)                                             
+c                                                                               
+      CHARACTER*8      XID,       HMOLID,      YID                      &FA00640
+      Real*8               SECANT,       XALTZ                                  
+C                                                                               
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                    FA47000
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)     FA47010
+C                                                                        FA47020
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA47030
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA47040
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA47050
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA47070
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FA47080
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FA47110
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FA47120
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FA47130
+C                                                                        FA47140
+      CHARACTER*8      HMOD                                             &FA47150
+C                                                                        FA47160
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+C                                                                        FA47210
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)  FA47220
+      COMMON /PROFILE/ NLAYRS,PBAR(MXLAY),TBAR(MXLAY),
+     *                 PZ(0:MXLAY),TZ(0:MXLAY)
+      COMMON /MANE1/ P0,TEMP0,DVXM,H2OSLF,WTOT,ALBAR,ADBAR,AVBAR,
+     *                 AVFIX,LAYRFX,SECNT0,SAMPLE,DVSET,ALFAL0,AVMASS,
+     *                 DPTMIN,DPTFAC,ALTAV,AVTRAT,TDIFF1,TDIFF2,ALTD1,
+     *                 ALTD2,ANGLE,IANT,LTGNT,LH1,LH2,IPFLAG,PLAY,TLAY,
+     *                 EXTID(10)
+      COMMON /SPECIES/ COLDRY(MXLAY),AMOUNT(MXMOL,MXLAY),WN2L(MXLAY),
+     *                 CDUM(MXLAY),NMOLEC
+      COMMON /PATHD1/ DVL(MXLAY),WTOTL(MXLAY),
+     *                 ALBL(MXLAY),ADBL(MXLAY),AVBL(MXLAY),
+     *                 H2OSL(MXLAY),IPATH(MXLAY),ITYL(MXLAY),
+     *                 SECNTA(MXLAY),HT1,HT2,ALTZ(0:MXLAY)
+      COMMON /ZOUTP/ ZOUT(MXLAY),SOUT(MXLAY),RHOSUM(MXLAY),              FA47280
+     *               AMTTOT(MXMOL),AMTCUM(MXMOL),ISKIP(MXMOL)            FA47290
+      COMMON /FILHDR/ XID(10),SECANT,PAVE,TAVE,HMOLID(60),XALTZ(4),             
+     *                WK(60),PZL,PZU,TZL,TZU,WN2   ,DV ,V1 ,V2 ,TBOUND,         
+     *                EMISIV,FSCDID(17),NDUM,LAYER ,YI1,YID(10),LSTWDF          
+C                                                                        FA47300
+      character*4 ht1,ht2                                                       
+                                                                                
+      I2 = IPMAX-1                                                       FA47310
+      IOUT = 1                                                           FA47320
+      PZ(0) = PP(1)                                                      FA47330
+      TZ(0) = TP(1)                                                      FA47340
+C                                                                               
+C     If entry in TAPE5 for TBOUND < 0, use TZ(O) as boundary                   
+C     temperature                                                               
+C                                                                               
+C     Card removed in RRTM
+C                                                                               
+      DO 20 IP = 1, I2                                                   FA47350
+         PBAR(IOUT) = PBAR(IOUT)+PPSUM(IP)                               FA47360
+         TBAR(IOUT) = TBAR(IOUT)+TPSUM(IP)                               FA47370
+         RHOSUM(IOUT) = RHOSUM(IOUT)+RHOPSM(IP)                          FA47380
+         SOUT(IOUT) = SOUT(IOUT)+SP(IP)                                  FA47390
+         DO 10 K = 1, NMOL                                               FA47400
+            AMOUNT(K,IOUT) = AMOUNT(K,IOUT)+AMTP(K,IP)                   FA47410
+   10    CONTINUE                                                        FA47420
+         IF (ZPTH(IP+1).EQ.ZOUT(IOUT+1)) THEN                            FA47430
+            PZ(IOUT) = PP(IP+1)                                          FA47440
+            TZ(IOUT) = TP(IP+1)                                          FA47450
+            IOUT = IOUT+1                                                FA47460
+         ENDIF                                                           FA47470
+   20 CONTINUE                                                           FA47480
+      IF (IOUT.NE.IOUTMX) GO TO 110                                      FA47490
+C                                                                        FA47500
+C     CALCULATE THE DENSITY WEIGHTED PRESSURE AND TEMPERATURE AND        FA47510
+C     ZERO OUT LAYER AMOUNTS AFTER 99.9 PERCENT OF THE TOTAL             FA47520
+C                                                                        FA47530
+      iskip(7) = 0                                                              
+c                                                                               
+      DO 30 K = 1, NMOL                                                  FA47540
+         AMTCUM(K) = 0.0                                                 FA47550
+         ISKIP(K) = 0                                                    FA47560
+         IF (AMTTOT(K).EQ.0.0) ISKIP(K) = 1                              FA47570
+   30 CONTINUE                                                           FA47580
+      L2 = IOUTMX-1                                                      FA47590
+      LMAX = L2                                                          FA47600
+      DO 90 L = 1, L2                                                    FA47610
+         PBAR(L) = PBAR(L)/RHOSUM(L)                                     FA47620
+         TBAR(L) = TBAR(L)/RHOSUM(L)                                     FA47630
+C                                                                        FA47640
+C     ADJUST RHOSUM FOR THE PATH LENGTH IN CM NOT KM                     FA47650
+C                                                                        FA47660
+         RHOSUM(L) = RHOSUM(L)*1.0E+5                                    FA47670
+C                                                                        FA47680
+         SUMAMT = 0.                                                     FA47690
+         DO 40 K = 1, NMOL                                               FA47700
+            SUMAMT = SUMAMT+AMOUNT(K,L)                                  FA47710
+   40    CONTINUE                                                        FA47720
+         WN2L(L) = RHOSUM(L)-SUMAMT                                      FA47730
+C                                                                        FA47740
+C     CALCULATE 'EFFECTIVE SECANT' SECNTA                                FA47750
+C                                                                        FA47760
+         SECNTA(L) = SOUT(L)/(ZOUT(L+1)-ZOUT(L))                         FA47770
+         IF (L.EQ.1) ALTZ(0) = ZOUT(1)                                   FA47780
+         ALTZ(L) = ZOUT(L+1)                                             FA47790
+C                                                                        FA47800
+C     SET  IPATH                                                         FA47810
+C                                                                        FA47820
+         IF (LEN.EQ.1) GO TO 50                                          FA47830
+         IF (H1.LT.H2) IPATH(L) = 3                                      FA47840
+         IF (H1.GT.H2) IPATH(L) = 1                                      FA47850
+         GO TO 60                                                        FA47860
+   50    CONTINUE                                                        FA47870
+         IF (ZOUT(L).LT.HMID) IPATH(L) = 2                               FA47880
+         IF (ZOUT(L).GE.HMID.AND.H1.GT.H2) IPATH(L) = 1                  FA47890
+         IF (ZOUT(L).GE.HMID.AND.H1.LT.H2) IPATH(L) = 3                  FA47900
+   60    CONTINUE                                                        FA47910
+C                                                                        FA47920
+C     TEST FOR ZEROING OF AMOUNTS                                        FA47930
+C                                                                        FA47940
+         ISKPT = 0                                                       FA47950
+         nmol_max = nmol                                                        
+         IF (ISKIP(7).EQ.1) nmol_max = nmol - 1                                 
+         FAC = 1.0                                                       FA47970
+         IF (IPATH(L).EQ.2) FAC = 2.0                                    FA47980
+C                                                                        FA47990
+         DO 80 K = 1, NMOL                                               FA48000
+                                                                                
+            IF (n_zero.ne.2) go to 70                                           
+                                                                                
+            IF (ISKIP(K).NE.1) THEN                                      FA48010
+               IF (K.EQ.7 .OR. (IEMIT.EQ.1.AND.IPATH(L).NE.3)) GO TO 70         
+               IF (((AMTTOT(K)-AMTCUM(K))/AMTTOT(K)).GT.0.001) GO TO 70  FA48040
+            ENDIF                                                        FA48050
+C                                                                        FA48060
+C     ZERO OUT THIS AMOUNT                                               FA48070
+C                                                                        FA48080
+            ISKIP(K) = 1                                                 FA48090
+            AMOUNT(K,L) = 0.0                                            FA48100
+            ISKPT = ISKPT+1                                              FA48110
+C                                                                        FA48120
+C     IF ALL BUT O2 ARE ZEROED, ELIMINATE ALL HIGHER LAYERS              FA48130
+C                                                                        FA48140
+            IF (ISKPT.GE.(NMOL_max))  GO TO 100                                 
+   70       CONTINUE                                                     FA48160
+            AMTCUM(K) = AMTCUM(K)+FAC*AMOUNT(K,L)                        FA48170
+   80    CONTINUE                                                        FA48180
+         LMAX = L                                                        FA48190
+   90 CONTINUE                                                           FA48200
+  100 CONTINUE                                                           FA48210
+      IOUTMX = LMAX+1                                                    FA48220
+C                                                                        FA48230
+      RETURN                                                             FA48240
+C                                                                        FA48250
+  110 WRITE (IPR,900) IOUT,IOUTMX                                        FA48260
+C                                                                        FA48270
+      STOP ' ERROR FPACK '                                               FA48280
+C                                                                        FA48290
+  900 FORMAT ('0FROM FPACK-  ERROR, IOUT = ',I5,'  DOES NOT MATCH ',     FA48300
+     *        'IOUTMX = ',I5)                                            FA48310
+C                                                                        FA48320
+      END                                                                FA48330
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+C                                                                               
+      SUBROUTINE FIXTYP(IEMIT,FRH2O,ALFCOR,OLDDV,L,CINP)                        
+C                                                                               
+C     *****************************************************************         
+C     This subroutine calculates ITYL, the ITYPE (ratio of DV from              
+C     one layer to the next) for each layer for output to TAPE7, if             
+C     desired (IFXTYP = 1).                                                     
+C     *****************************************************************         
+C                                                                               
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                           
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)            
+C                                                                               
+      CHARACTER*3 CINP                                                          
+C                                                                               
+      COMMON /PROFILE/ NLAYRS,PBAR(MXLAY),TBAR(MXLAY),
+     *                 PZ(0:MXLAY),TZ(0:MXLAY)
+      COMMON /MANE1/ P0,TEMP0,DVXM,H2OSLF,WTOT,ALBAR,ADBAR,AVBAR,
+     *                 AVFIX,LAYRFX,SECNT0,SAMPLE,DVSET,ALFAL0,AVMASS,
+     *                 DPTMIN,DPTFAC,ALTAV,AVTRAT,TDIFF1,TDIFF2,ALTD1,
+     *                 ALTD2,ANGLE,IANT,LTGNT,LH1,LH2,IPFLAG,PLAY,TLAY,
+     *                 EXTID(10)
+      COMMON /SPECIES/ COLDRY(MXLAY),AMOUNT(MXMOL,MXLAY),WN2L(MXLAY),
+     *                 CDUM(MXLAY),NMOLEC
+      COMMON /PATHD1/ DVL(MXLAY),WTOTL(MXLAY),
+     *                 ALBL(MXLAY),ADBL(MXLAY),AVBL(MXLAY),
+     *                 H2OSL(MXLAY),IPATH(MXLAY),ITYL(MXLAY),
+     *                 SECNTA(MXLAY),HT1,HT2,ALTZ(0:MXLAY)
+      CHARACTER*8  EXTID                                                        
+                                                                                
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+C                                                                               
+      DATA I_2/2/                                                               
+C                                                                               
+      DV = 0.                                                                   
+C                                                                               
+C     Correct for water self broadening                                         
+C                                                                               
+      H2OSLF = (1.-FRH2O+5.*FRH2O)                                              
+      ALBAR = ALZERO*ALFCOR*H2OSLF                                              
+C                                                                               
+      AVBAR = 0.5*(ALBAR+SQRT(ALBAR*ALBAR+4.*ADBAR*ADBAR))                      
+C                                                                               
+      DV = AVBAR/SAMPLE                                                         
+C                                                                               
+      TYPE = 0.                                                                 
+      ITYPE = 99                                                                
+C                                                                               
+C     DV is assumed to be less than 1                                           
+C     Set DV to 3 significant figures                                           
+C                                                                               
+      IF (L.EQ.1) THEN                                                          
+         ISCAL =  LOG10(DV)-3.                                                  
+         SCAL = 10.**ISCAL                                                      
+         IDV = (DV/SCAL)+0.5                                                    
+C                                                                               
+C        Set IDV to be even                                                     
+C                                                                               
+         IF (MOD(IDV,I_2).GT.0) IDV = IDV+1                                     
+         DV = SCAL* REAL(IDV)                                                   
+      ELSE                                                                      
+         TYPE = OLDDV/DV                                                        
+         TYPMAX = 2.5                                                           
+         IF (TYPE.GT.TYPMAX) THEN                                               
+            IPROB = 1                                                           
+            ISTOP = 1                                                           
+         ELSEIF (TYPE.GE.1.2) THEN                                              
+C                                                                               
+C           TYPE is between 1.2 and TYPMAX                                      
+C                                                                               
+            DV = OLDDV                                                          
+            ITYPE = 1./(TYPE-1.)+0.5                                            
+            IF (ITYPE.EQ.3) ITYPE = 2                                           
+            DV = OLDDV* REAL(ITYPE)/ REAL(ITYPE+1)                              
+         ELSEIF (TYPE.GE.0.8) THEN                                              
+C                                                                               
+C           TYPE is between 0.8 and 1.2 (set to 1.0)                            
+C                                                                               
+            DV = OLDDV                                                          
+            ITYPE = 0                                                           
+         ELSE                                                                   
+C                                                                               
+C           TYPE is less than 0.8                                               
+C                                                                               
+            DV = OLDDV                                                          
+            ITYPE = 0                                                           
+            IF (IEMIT.NE.1) THEN                                                
+               ITYPE = TYPE/(1.-TYPE)+0.5                                       
+               DV = DV* REAL(ITYPE+1)/ REAL(ITYPE)                              
+               ITYPE = -ITYPE                                                   
+            ENDIF                                                               
+         ENDIF                                                                  
+      ENDIF                                                                     
+C                                                                               
+      OLDDV = DV                                                                
+C                                                                               
+      WRITE(CINP,900) ITYPE                                                     
+C                                                                               
+      RETURN                                                                    
+C                                                                               
+ 900  FORMAT(I3)                                                                
+C                                                                               
+      END                                                                       
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE XAMNTS (XV1,XV2)                                        FX00010
+C                                                                        FX00020
+C     *****************************************************************  FX00030
+C     THIS SUBROUTINE GENERATES THE ABSORBER AMOUNTS FOR THE SELECTED    FX00040
+C     HEAVY MOLECULES FOR WHICH "CROSS-SECTION" SPECTRAL DATA IS         FX00050
+C     AVAILABLE.  THE USER SELECTS THE DESIRED MOLECULES BY              FX00060
+C     USING THE CHEMICAL FORMULA, E.G. "CF2CL2" OR BY AN ALIAS, IN       FX00070
+C     THIS CASE, "F12".  THEREAFTER, THE MOLECULES ARE IDENTIFIED BY     FX00080
+C     AN INDEX.  THE USER MAY EITHER SELECT A STANDARD PROFILE OR READ   FX00090
+C     IN ONE.                                                            FX00100
+C                                                                        FX00110
+C                             A.E.R. INC.     (AUGUST 1990)              FX00120
+C    *****************************************************************   FX00130
+C                                                                        FX00140
+      PARAMETER (MXFSC=600,MXLAY=MXFSC+3,MXZMD=6000,                            
+     *     MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,mx_xs=38,MXTRAC=22)         
+C                                                                        FX00170
+      IMPLICIT REAL*8           (V)                                     !FX00171
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FX00180
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FX00190
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FX00200
+C                                                                        FX00210
+      CHARACTER*8      HMOD                                             &FX00220
+C                                                                        FX00230
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+C                                                                        FX00280
+C     IFIL CARRIES FILE INFORMATION                                      FX00290
+C                                                                        FX00300
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FX00310
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FX00320
+     *              NLTEFL,LNFIL4,LNGTH4                                 FX00330
+C                                                                        FX00340
+C     LAMCHN CARRIES HARDWARE SPECIFIC PARAMETERS                        FX00350
+C                                                                        FX00360
+      COMMON /LAMCHN/ ONEPL,ONEMI,EXPMIN,ARGMIN                          FX00370
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+      COMMON /ADRIVE/ LOWFLG,IREAD,MODEL,ITYPE,n_zero,NOP,H1F,H2F,       FX00400
+     *                ANGLEF,RANGEF,BETAF,LENF,AV1,AV2,RO,IPUNCH,XVBAR,  FX00410
+     *                HMINF,PHIF,IERRF,HSPACE                            FX00420
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FX00440
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FX00450
+      COMMON /MLATM/ ALT(MXZMD),PMDL(MXZMD,6),TMDL(MXZMD,6),             FX00460
+     *               AMOL(MXZMD,8,6),ZST(MXZMD),PST(MXZMD),              FX00470
+     *               TST(MXZMD),AMOLS(MXZMD,MXMOL)                       FX00480
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)  FX00490
+C                                                                        FX00500
+C     COMMON BLOCKS AND PARAMETERS FOR THE PROFILES AND DENSITIES        FX00510
+C     FOR THE CROSS-SECTION MOLECULES.                                   FX00520
+C     XSNAME=NAMES, ALIAS=ALIASES OF THE CROSS-SECTION MOLECULES         FX00530
+C                                                                        FX00540
+      CHARACTER*10 XSFILE,XSNAME,ALIAS                                   FX00550
+      COMMON /XSECTF/ XSFILE(6,5,MX_XS),XSNAME(MX_XS),ALIAS(4,MX_XS)     FX00560
+      COMMON /XSECTR/ V1FX(5,MX_XS),V2FX(5,MX_XS),DVFX(5,MX_XS),         FX00570
+     *                WXM(MX_XS),NTEMPF(5,MX_XS),NSPECR(MX_XS),          FX00580
+     *                IXFORM(5,MX_XS),XSMASS(MX_XS),XDOPLR(5,MX_XS),     FX00590
+     *                NUMXS,IXSBIN                                       FX00595
+C                                                                        FX00600
+C     AMOLX(L,I)=MIXING RATIO (PPMV) OF THE I'TH MOLECULE FOR THE L'TH   FX00610
+C     LEVEL, ALTX(L)= ALTITUDE OF THE L'TH LEVEL, LAYXMX LEVELS MAX      FX00620
+C                                                                        FX00630
+      COMMON /MLATMX/ LAYXMX,ALTX(MXZMD),AMOLX(MXZMD,MX_XS)              FX00640
+      COMMON /PROFILE/ NLAYRS,PBAR(MXLAY),TBAR(MXLAY),
+     *                 PZ(0:MXLAY),TZ(0:MXLAY)
+      COMMON /MANE1/ P0,TEMP0,DVXM,H2OSLF,WTOT,ALBAR,ADBAR,AVBAR,
+     *                 AVFIX,LAYRFX,SECNT0,SAMPLE,DVSET,ALFAL0,AVMASS,
+     *                 DPTMIN,DPTFAC,ALTAV,AVTRAT,TDIFF1,TDIFF2,ALTD1,
+     *                 ALTD2,ANGLE,IANT,LTGNT,LH1,LH2,IPFLAG,PLAY,TLAY,
+     *                 EXTID(10)
+      COMMON /SPECIES/ COLDRY(MXLAY),AMOUNT(MXMOL,MXLAY),WN2L(MXLAY),
+     *                 CDUM(MXLAY),NMOLEC
+      COMMON /PATHD1/ DVL(MXLAY),WTOTL(MXLAY),
+     *                 ALBL(MXLAY),ADBL(MXLAY),AVBL(MXLAY),
+     *                 H2OSL(MXLAY),IPATH(MXLAY),ITYL(MXLAY),
+     *                 SECNTA(MXLAY),HT1,HT2,ALTZ(0:MXLAY)
+      CHARACTER*8  EXTID                                                        
+C                                                                        FX00750
+C     IXMAX=MAX NUMBER OF X-SECTION MOLECULES, IXMOLS=NUMBER OF THESE    FX00760
+C     MOLECULES SELECTED, IXINDX=INDEX VALUES OF SELECTED MOLECULES      FX00770
+C     (E.G. 1=CLONO2), XAMNT(I,L)=LAYER AMOUNTS FOR I'TH MOLECULE FOR    FX00780
+C     L'TH LAYER, ANALOGOUS TO AMOUNT IN /PATHD/ FOR THE STANDARD        FX00790
+C     MOLECULES.                                                         FX00800
+C                                                                        FX00810
+      COMMON /PATHX/ IXMAX,IXMOLS,IXINDX(MX_XS),XAMNT(MX_XS,MXLAY)       FX00820
+      COMMON /ZOUTP/ ZOUT(MXLAY),SOUT(MXLAY),RHOSUM(MXLAY),              FX00830
+     *               AMTTOT(MXMOL),AMTCUM(MXMOL),ISKIP(MXMOL)            FX00840
+      COMMON /PCHINF/ MUNITS,CTYPE(MXLAY)                                       
+C                                                                        FX00850
+      DIMENSION XAMNTT(MX_XS)                                            FX00860
+C                                                                        FX00870
+      CHARACTER*48 CFORM1,CFORM2                                         FX00880
+      CHARACTER*10 HOTHER                                                FX00890
+      CHARACTER*7 PAFORM(2)                                              FX00900
+      CHARACTER*4 PZFORM(5),ht1,ht2                                      FX00910
+      CHARACTER*3 CTYPE                                                         
+C                                                                        FX00920
+      DATA HOTHER / ' OTHER    '/                                        FX00930
+      DATA PZFORM / 'F8.6','F8.5','F8.4','F8.3','F8.2'/                  FX00940
+      DATA PAFORM / '1PE15.7','  G15.7'/                                 FX00950
+      DATA CFORM1 / '(1PE15.7,0PF10.2,10X,A3,I2,1X,2(F7.3,F8.3,F7.2))'/  FX00960
+      DATA CFORM2 / '(  G15.7,0PF10.2,10X,A3,I2,23X,(F7.3,F8.3,F7.2))'/  FX00970
+C                                                                        FX00980
+      WRITE (IPR,900)                                                    FX00990
+C                                                                        FX01000
+      NOZSAV = n_zero                                                    FX01010
+      n_zero = 1                                                         FX01020
+      IOMXSV = IOUTMX                                                    FX01030
+C                                                                        FX01040
+C     READ IN THE NUMBER OF MOLECULES IXMOLS, AND THE FLAG IPRFL         FX01050
+C     INDICATING WHETHER A STANDARD PROFILE (0) OR A USER-INPUT PROFILE  FX01060
+C     (1) WILL BE USED.                                                  FX01070
+C                                                                        FX01080
+      READ (IRD,905) IXMOLS,IPRFL,IXSBIN                                 FX01090
+      WRITE (IPR,910) IXMOLS,IPRFL                                       FX01100
+C                                                                        FX01110
+      IF (IPRFL.EQ.0) THEN                                               FX01120
+         WRITE (IPR,915)                                                 FX01130
+      ELSEIF (IPRFL.EQ.1) THEN                                           FX01140
+         WRITE (IPR,920)                                                 FX01150
+      ELSE                                                               FX01160
+         WRITE (IPR,925)                                                 FX01170
+         STOP 'STOPPED IN XAMNTS'                                        FX01180
+      ENDIF                                                              FX01190
+C                                                                        FX01200
+C     READ IN DESIRED 'CROSS SECTIONS'                                   FX01210
+C                                                                        FX01220
+      CALL XSREAD (XV1,XV2)                                              FX01230
+C                                                                        FX01240
+      WRITE (IPR,930) (I,XSNAME(I),I=1,IXMOLS)                           FX01250
+C                                                                        FX01260
+C     CALL XPROFL TO GENERATE THE DENSITY PROFILES OF THE CROSS-SECTION  FX01270
+C     MOLECULES.  THE PROFILES OF THE X-MOLECULES WILL BE STORED IN      FX01280
+C     DENM(J,I), J=1,IXMOLS, I=1,IMMAX, AT THE LEVELS ZMDL(IMMAX)        FX01290
+C                                                                        FX01300
+      CALL XPROFL (IPRFL)                                                FX01310
+C                                                                        FX01320
+C     SET NMOL = IXMOLS FOR THE AMOUNT CALCULATION, BUT RESET IT AFTER.  FX01330
+C     ALSO SET NOPRNT TO 1 TO SUPRESS PRINTING IN THE RAYTRACE.          FX01340
+C                                                                        FX01350
+      NMOLSV = NMOL                                                      FX01360
+      NMOL = IXMOLS                                                      FX01370
+      NOPRSV = NOPRNT                                                    FX01380
+      NOPRNT = 1                                                         FX01390
+C                                                                        FX01400
+      DO 10 I = 1, IOUTDM                                                FX01410
+         DO 8  K = 1, IXMAX                                              FX01420
+            XAMNT(K,I) = 0.0                                             FX01430
+ 8       CONTINUE                                                               
+ 10   CONTINUE                                                           FX01440
+C                                                                        FX01450
+C     GET THE STANDARD-FORM SLANT PATH PARAMETERS H1, H2, ANGLE, PHI,    FX01460
+C     HMIN, AND LEN FROM /ADRIVE/ AS H1F, H2F, ANGLEF, PHIF, HMINF       FX01470
+C     AND LENF. USE THESE AS THE INPUTS TO THE RAYTRACE SUBROUTINE       FX01480
+C     RFPATH TO CALCULATE THE ABSORBER AMOUNTS.                          FX01490
+C                                                                        FX01500
+      IF (ITYPE.EQ.1) THEN                                               FX01510
+C                                                                        FX01520
+C     =>  HORIZONTAL PATH                                                FX01530
+C                                                                               
+C        > GET NUMBER DENSITIES OF X-MOLECULES AT H1F <                  FX01540
+C                                                                        FX01550
+         IF (IMMAX.EQ.1) THEN                                            FX01560
+C                                                                        FX01570
+C           > ITYPE = 1, HOMOGENOUS PATH <                               FX01580
+C                                                                        FX01590
+            PH = PM(1)                                                   FX01600
+            TH = TM(1)                                                   FX01610
+            DO 20 K = 1, IXMOLS                                          FX01620
+               DENP(K,1) = DENM(K,1)                                     FX01630
+   20       CONTINUE                                                     FX01640
+C                                                                        FX01650
+         ELSE                                                            FX01660
+C                                                                        FX01670
+C           > INTERPOLATE NUMBER DENSITIES TO H1F <                      FX01680
+C                                                                        FX01690
+            ZH = H1F                                                     FX01700
+            DO 30 L = 1, IMMAX                                           FX01710
+               IF (ZH.LT.ZMDL(L)) GO TO 40                               FX01720
+   30       CONTINUE                                                     FX01730
+            L = IMMAX                                                    FX01740
+   40       CONTINUE                                                     FX01750
+            A = (ZH-ZMDL(L-1))/(ZMDL(L)-ZMDL(L-1))                       FX01760
+            CALL EXPINT (PH,PM(L-1),PM(L),A)                             FX01770
+            TH = TM(L-1)+(TM(L)-TM(L-1))*A                               FX01780
+            DO 50 K = 1, IXMOLS                                          FX01790
+               CALL EXPINT (DENP(K,1),DENM(K,L-1),DENM(K,L),A)           FX01800
+   50       CONTINUE                                                     FX01810
+         ENDIF                                                           FX01820
+C                                                                        FX01830
+C     > CALCULATE PATH AMOUNTS <                                         FX01840
+C                                                                        FX01850
+         DO 60 K = 1, IXMOLS                                             FX01860
+            XAMNT(K,1) = DENP(K,1)*RANGEF*1.0E+5                         FX01870
+   60    CONTINUE                                                        FX01880
+         RANGE = RANGEF                                                  FX01890
+C                                                                        FX01900
+         LMAX = NLAYRS                                                   FX01910
+         IOUTMX = LMAX+1                                                 FX01920
+C                                                                        FX01930
+      ELSE                                                               FX01940
+C                                                                        FX01950
+C     => SLANT PATH                                                      FX01960
+C                                                                               
+C        > ZERO OUT ARRAYS <                                             FX01970
+C                                                                        FX01980
+         DO 70 N = 1, IPDIM                                              FX01990
+            IF (N.LE.IPDIM-2) THEN                                       FX02000
+               ZPTH(N) = 0.0                                             FX02010
+               PP(N) = 0.0                                               FX02020
+               TP(N) = 0.0                                               FX02030
+               RFNDXP(N) = 0.0                                           FX02040
+               SP(N) = 0.0                                               FX02050
+               PPSUM(N) = 0.0                                            FX02060
+               TPSUM(N) = 0.0                                            FX02070
+               RHOPSM(N) = 0.0                                           FX02080
+            ENDIF                                                        FX02090
+            DO 68 M = 1, KDIM                                            FX02100
+               DENP(M,N) = 0.0                                           FX02110
+               AMTP(M,N) = 0.0                                           FX02120
+ 68         CONTINUE                                                            
+ 70      CONTINUE                                                        FX02130
+C                                                                        FX02140
+C        > CALCULATE THE REFRACTIVITY <                                  FX02150
+C                                                                        FX02160
+         WRITE(IPR,*) '   - Using LOWTRAN6 refractive index -'                  
+C                                                                               
+         DO 80 IM = 1, IMMAX                                             FX02170
+            PPH2O = AMOLS(IM,1)*PZERO*TM(IM)/(TZERO*ALOSMT)              FX02180
+C                                                                               
+C	    Approximation to refraction index (from LOWTRAN5)                         
+C                                                                               
+C           RFNDXM(IM) = ((77.46+0.459E-8*XVBAR**2)*PM(IM)/TM(IM)-              
+C    *                   (PPH2O/1013.0)*(43.49-0.347E-8*XVBAR**2))*             
+C    *                   1.0E-6                                                 
+C                                                                               
+C	    Approximation to refraction index (from LOWTRAN6)                         
+C                                                                               
+            RFNDXM(IM)=((83.42+(185.08/(1.0-(XVBAR/1.14E+5)**2))+        FX02190
+     *    (4.11/(1.0-(XVBAR/6.24E+4)**2)))*(PM(IM)*288.15)/              FX02200
+     *    (1013.25*TM(IM))-(43.49-(XVBAR/1.7E+4)**2)*(PPH2O/1013.25))           
+     *    *1.0E-06                                                              
+   80    CONTINUE                                                        FX02210
+         CALL RFPATH (H1F,H2F,ANGLEF,PHIF,LENF,HMINF,1,RANGE,BETA,       FX02220
+     *                BENDNG)                                            FX02230
+C                                                                        FX02240
+C        > CROSS-SECTION ABSORBER AMOUNTS ARE NOW IN AMTP(J,I).   <      FX02250
+C        > CONDENSE THE AMOUNTS INTO THE LAYERS DEFINDED BY ZOUT. <      FX02260
+C                                                                        FX02270
+         I2 = IPMAX-1                                                    FX02280
+         IOUT = 1                                                        FX02290
+         DO 100 IP = 1, I2                                               FX02300
+C                                                                        FX02310
+            DO 90 K = 1, IXMOLS                                          FX02320
+               XAMNT(K,IOUT) = XAMNT(K,IOUT)+AMTP(K,IP)                  FX02330
+   90       CONTINUE                                                     FX02340
+            IF (ZPTH(IP+1).EQ.ZOUT(IOUT+1)) IOUT = IOUT+1                FX02350
+C                                                                        FX02360
+  100    CONTINUE                                                        FX02370
+C                                                                        FX02380
+         IF (IOUT.NE.IOUTMX) THEN                                        FX02390
+            WRITE (IPR,935) IOUT,IOUTMX                                  FX02400
+            STOP 'STOPPED IN XAMNTS, IOUT .NE. IOUTMX'                   FX02410
+         ENDIF                                                           FX02420
+C                                                                        FX02430
+         IOUTMX = IOMXSV                                                 FX02440
+         LMAX = IOUTMX-1                                                 FX02450
+C                                                                               
+      ENDIF                                                              FX02460
+C                                                                        FX02470
+C     CROSS-SECTION AMOUNTS ARE NOW IN XAMNT. PRINT THEM OUT.            FX02480
+C                      (in E15.7 format)                                        
+C                                                                        FX02490
+      IF (IPUNCH.ge.1) THEN                                              FX02500
+         IFRMX = 1                                                              
+         WRITE (IPU,940) IXMOLS,IXSBIN                                   FX02510
+         WRITE (IPU,945) (XSNAME(K),K=1,7),HOTHER,(XSNAME(K),K=8,NMOL)   FX02520
+         IF (ITYPE.EQ.1) THEN                                            FX02530
+            WRITE (IPU,950) IFRMX,LMAX,NMOL,SECNT0,HMOD,RANGE,ZH         FX02540
+C                                                                               
+C           -------------------------------------                               
+C           > Write molecular information in    <                               
+C           >  - mixing ratio if MUNITS is 1    <                               
+C           >  - column density if MUNITS is 0  <                               
+C           -------------------------------------                               
+C                                                                               
+            IF (MUNITS.EQ.1) THEN                                               
+               DRAIR = WN2L(1)                                                  
+               DO 105 M = 2,NMOLSV                                              
+                  DRAIR = DRAIR + AMOUNT(M,1)                                   
+ 105           CONTINUE                                                         
+C                                                                               
+C              > If DRAIR is zero, then write out XAMNT only    <               
+C              > (since XAMNT zero => mixing ratio zero)        <               
+C                                                                               
+               IF (DRAIR.EQ.0) THEN                                             
+                  WRITE (IPU,955) PH,TH,IPATH(1),ZH,ZH,                         
+     *                            (XAMNT(K,1),K=1,7),WN2L(1),                   
+     *                            (XAMNT(K,1),K=8,NMOL)                         
+               ELSE                                                             
+                  WRITE (IPU,955) PH,TH,IPATH(1),ZH,ZH,                         
+     *                            (XAMNT(K,1)/DRAIR,K=1,7),WN2L(1),             
+     *                            (XAMNT(K,1)/DRAIR,K=8,NMOL)                   
+               ENDIF                                                            
+            ELSE                                                                
+C                                                                               
+C              Test to make sure there are no fractional molecular              
+C              amounts written out (will cause PATH to assume                   
+C              mixing ratio)                                                    
+C                                                                               
+               DO 107 K=1,NMOL                                                  
+                  IF (XAMNT(K,1).LT.1.) THEN                                    
+                     WRITE(IPR,1000) K,1                                        
+                     XAMNT(K,1) = 0.0                                           
+                  ENDIF                                                         
+ 107           CONTINUE                                                         
+C                                                                               
+               WRITE (IPU,955) PH,TH,IPATH(1),ZH,ZH,                     FX02550
+     *                         (XAMNT(K,1),K=1,7),WN2L(1),                      
+     *                         (XAMNT(K,1),K=8,NMOL)                     FX02560
+            ENDIF                                                               
+         ELSE                                                            FX02570
+            WRITE (IPU,960) IFRMX,LMAX,NMOL,SECNT0,(HMOD(I),I=1,2),      FX02580
+     *                      H1F,H2F,ANGLE,LENF                           FX02590
+         ENDIF                                                           FX02600
+      ENDIF                                                              FX02610
+C                                                                        FX02620
+      WRITE (IPR,965) (XSNAME(I),I=1,IXMOLS)                             FX02630
+C                                                                        FX02640
+      DO 110 K = 1, IXMOLS                                               FX02650
+         XAMNTT(K) = 0.0                                                 FX02660
+  110 CONTINUE                                                           FX02670
+C                                                                        FX02680
+      DO 130 L = 1, NLAYRS                                               FX02690
+C                                                                               
+C        > Write atmosphere to TAPE6 in column density <                        
+C                                                                               
+         IF (ITYPE.EQ.1) THEN                                            FX02700
+            WRITE (IPR,970) L,ZOUT(L),ZOUT(L),(XAMNT(K,L),K=1,IXMOLS)    FX02710
+         ELSE                                                            FX02720
+            WRITE (IPR,970) L,ZOUT(L),ZOUT(L+1),(XAMNT(K,L),K=1,IXMOLS)  FX02730
+         ENDIF                                                           FX02740
+         DO 120 K = 1, IXMOLS                                            FX02750
+            FAC = 1.0                                                    FX02760
+            IF (IPATH(L).EQ.2) FAC = 2.0                                 FX02770
+            XAMNTT(K) = XAMNTT(K)+FAC*XAMNT(K,L)                         FX02780
+  120    CONTINUE                                                        FX02790
+C                                                                        FX02800
+         IF (IPUNCH.ge.1.AND.ITYPE.NE.1) THEN                            FX02810
+            LTST = L                                                     FX02820
+            IF (L.EQ.1) LTST = 0                                         FX02830
+            PTST =  LOG10(PZ(LTST))                                      FX02840
+            NPTST = PTST+2                                               FX02850
+            IF (PTST.LT.0.0) NPTST = 1                                   FX02860
+            CFORM1(38:41) = PZFORM(NPTST)                                FX02870
+            CFORM2(38:41) = PZFORM(NPTST)                                FX02880
+            NPTST = 1                                                    FX02890
+            IF (PBAR(L).GE.0.1) NPTST = 2                                FX02900
+            CFORM1(2:8) = PAFORM(NPTST)                                  FX02910
+            CFORM2(2:8) = PAFORM(NPTST)                                  FX02920
+            IF (L.EQ.1) THEN                                             FX02930
+               WRITE (IPU,CFORM1) PBAR(L),TBAR(L),CTYPE(L),IPATH(L),            
+     *                            ALTZ(L-1),PZ(L-1),TZ(L-1),ALTZ(L),     FX02940
+     *                            PZ(L),TZ(L)                            FX02950
+            ELSE                                                         FX02960
+               WRITE (IPU,CFORM2) PBAR(L),TBAR(L),CTYPE(L),IPATH(L),     FX02970
+     *                            ALTZ(L),PZ(L),TZ(L)                    FX02980
+            ENDIF                                                        FX02990
+C                                                                               
+C           -------------------------------------                               
+C           > Write molecular information in    <                               
+C           >  - mixing ratio if MUNITS is 1    <                               
+C           >  - column density if MUNITS is 0  <                               
+C           -------------------------------------                               
+C                                                                               
+            IF (MUNITS.EQ.1) THEN                                               
+               DRAIR = WN2L(L)                                                  
+               DO 125 M = 2,NMOLSV                                              
+                  DRAIR = DRAIR + AMOUNT(M,L)                                   
+ 125           CONTINUE                                                         
+C                                                                               
+C              > If DRAIR is zero, then write out XAMNT only    <               
+C              > (since XAMNT zero => mixing ratio zero)        <               
+C                                                                               
+               IF (DRAIR.EQ.0) THEN                                             
+                  WRITE (IPU,975) (XAMNT(K,L),K=1,7),WN2L(L)                    
+                  IF (NMOL.GT.7) WRITE (IPU,975) (XAMNT(K,L),K=8,NMOL)          
+               ELSE                                                             
+                  WRITE (IPU,975) (XAMNT(K,L)/DRAIR,K=1,7),WN2L(L)              
+                  IF (NMOL.GT.7) WRITE (IPU,975)                                
+     *                                 (XAMNT(K,L)/DRAIR,K=8,NMOL)              
+               ENDIF                                                            
+            ELSE                                                                
+C                                                                               
+C              Test to make sure there are no fractional molecular              
+C              amounts written out (will cause PATH to assume                   
+C              mixing ratio)                                                    
+C                                                                               
+               DO 127 K=1,NMOL                                                  
+                  IF (XAMNT(K,L).LT.1.) THEN                                    
+                     WRITE(IPR,1000) K,L                                        
+                     XAMNT(K,L) = 0.0                                           
+                  ENDIF                                                         
+ 127           CONTINUE                                                         
+C                                                                               
+               WRITE (IPU,975) (XAMNT(K,L),K=1,7),WN2L(L)                FX03000
+               IF (NMOL.GT.7) WRITE (IPU,975) (XAMNT(K,L),K=8,NMOL)      FX03010
+            ENDIF                                                               
+         ENDIF                                                           FX03020
+C                                                                        FX03030
+  130 CONTINUE                                                           FX03040
+c                                                                               
+c_______________________________________________________________________        
+c     write cross sections to ifil_xs = 20 for derivatives                      
+                                                                                
+      if (ipunch.eq.2) then                                                     
+                                                                                
+         open (20,file='AJ_xs_amnts',                                           
+     *                        status='unknown',form = 'unformatted')            
+         write (20) IXMAX,IXMOLS,                                               
+     *        ( IXINDX(mol),(XAMNT(mol,l),l=1,nlayrs),mol=1,ixmols )            
+                                                                                
+         close (20)                                                             
+                                                                                
+      endif                                                                     
+c_______________________________________________________________________        
+C                                                                        FX03050
+C     > Write atmosphere to TAPE6 in mixing ratio <                             
+C                                                                               
+      WRITE(IPR,973)                                                            
+      DO 135 L = 1, NLAYRS                                                      
+         DRAIR = WN2L(L)                                                        
+         DO 133 M = 2,NMOLSV                                                    
+            DRAIR = DRAIR + AMOUNT(M,L)                                         
+ 133     CONTINUE                                                               
+C                                                                               
+C        > If DRAIR is zero, then write out XAMNT only    <                     
+C        > (since XAMNT zero => mixing ratio zero)        <                     
+C                                                                               
+         IF (DRAIR.EQ.0) THEN                                                   
+            IF (ITYPE.EQ.1) THEN                                                
+               WRITE (IPR,970) L,ZOUT(L),ZOUT(L),                               
+     *                         (XAMNT(K,L),K=1,IXMOLS)                          
+            ELSE                                                                
+               WRITE (IPR,970) L,ZOUT(L),ZOUT(L+1),                             
+     *                         (XAMNT(K,L),K=1,IXMOLS)                          
+            ENDIF                                                               
+         ELSE                                                                   
+            IF (ITYPE.EQ.1) THEN                                                
+               WRITE (IPR,970) L,ZOUT(L),ZOUT(L),                               
+     *                         (XAMNT(K,L)/DRAIR,K=1,IXMOLS)                    
+            ELSE                                                                
+               WRITE (IPR,970) L,ZOUT(L),ZOUT(L+1),                             
+     *                         (XAMNT(K,L)/DRAIR,K=1,IXMOLS)                    
+            ENDIF                                                               
+         ENDIF                                                                  
+ 135  CONTINUE                                                                  
+C                                                                               
+      WRITE (IPR,980) (XAMNTT(K),K=1,IXMOLS)                             FX03060
+C                                                                        FX03070
+C     DONE                                                               FX03080
+C                                                                        FX03090
+      n_zero = NOZSAV                                                    FX03100
+      NMOL = NMOLSV                                                      FX03110
+      NOPRNT = NOPRSV                                                    FX03120
+C                                                                        FX03130
+      RETURN                                                             FX03140
+C                                                                        FX03150
+  900 FORMAT ('1***** XAMNTS: ABSORBER AMOUNTS FOR THE CROSS-',          FX03160
+     *        'SECTION MOLECULES *****')                                 FX03170
+  905 FORMAT (3I5)                                                       FX03180
+  910 FORMAT (/,'     IXMOLS      ISTD',/,2I10)                          FX03190
+  915 FORMAT (/,'     USER INPUT PROFILE SELECTED')                      FX03200
+  920 FORMAT (/,'     STANDARD PROFILE SELECTED')                        FX03210
+  925 FORMAT (/,'  ERROR: IPRFL IS NOT 0 OR 1, STOP')                    FX03220
+  930 FORMAT (/,'  THE CROSS-SECTION MOLECULES SELECTED ARE: ',/,/,      FX03230
+     *        (5X,I5,3X,A))                                              FX03240
+  935 FORMAT (/,'  XAMNTS: ERROR- IOUT = ',I5,                           FX03250
+     *        '  DOES NOT MATCH IOUTMX = ',I5)                           FX03260
+  940 FORMAT (2(I5,5X),' THE FOLLOWING CROSS-SECTIONS WERE SELECTED:')   FX03270
+  945 FORMAT (8A10)                                                      FX03280
+  950 FORMAT (1X,I1,I3,I5,F10.6,3A8,' * ',F7.3,' KM PATH AT ',F7.3,      FX03290
+     *        ' KM ALT')                                                 FX03300
+  955 FORMAT (E15.7,F10.4,10X,I5,1X,F7.3,15X,F7.3,/,(1P8E15.7))          FX03310
+  960 FORMAT (1X,I1,I3,I5,F10.6,2A8,' H1=',F8.3,' H2=',F8.3,' ANG=',     FX03320
+     *        F8.3,' LEN=',I2)                                           FX03330
+  965 FORMAT (//,'  LAYER AMOUNTS FOR THE CROSS-SECTION MOLECULES',//,   FX03340
+     *        '           LAYER          AMOUNTS (MOLS/CM2)',/,          FX03350
+     *        '   L    FROM     TO ',/,'        (KM)    (KM)',4X,8A10,   FX03360
+     *        /,25X,8A10)                                                FX03370
+  970 FORMAT (1X,I3,2F8.3,3X,1P8E10.3,/,23X,1P8E15.7)                    FX03380
+  973 FORMAT ('1',3X,'------------------------------------',/,                  
+     *            3X,'  MOLECULAR MIXING RATIOS BY LAYER',/)                    
+  975 FORMAT (1P8E15.7)                                                  FX03390
+  980 FORMAT (//,1X,'TOTAL AMOUNT FOR PATH ',1P8E15.7)                   FX03400
+ 1000 FORMAT ('*** WARNING: Zeroing molecule #',i2.2,' amount ',                
+     *        'in layer #',i3.3)                                                
+C                                                                        FX03410
+      END                                                                FX03420
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE XPROFL (IPRFL)                                          FX03430
+C                                                                        FX03440
+C     *****************************************************************  FX03450
+C     THIS SUBROUTINE GENERATES THE DENSITY PROFILES OF THE CROSS-       FX03460
+C     SECTION MOLECULES.  IT STORES THE PROFILES IN THE ARRAY DENM IN    FX03470
+C     /DEAMT/ AT THE ALTITUDES ZMDL, WHICH ARE THE SAME ALTITUDES THAT   FX03480
+C     THE PROFILES OF THE MOLECULAR AMOUNTS ARE DEFINED ON.  (NOTE: THE  FX03490
+C     ACTUAL ALTITUDES USED ARE FROM ZST WHICH IS A COPY OF ZMDL.)       FX03500
+C     IPRFL IS A FLAG INDICATING THAT THE STANDARD PROFILES (0) OR A     FX03510
+C     USER-INPUT PROFILE (1) IS TO BE USED.                              FX03520
+C     *****************************************************************  FX03530
+C                                                                        FX03540
+      PARAMETER (MXFSC=600,MXLAY=MXFSC+3,MXZMD=6000,                            
+     *     MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,mx_xs=38,MXTRAC=22)         
+C                                                                        FX03570
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FX03580
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FX03590
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FX03600
+C                                                                        FX03610
+      CHARACTER*8      HMOD                                             &FX03620
+C                                                                        FX03630
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+                                                                        FX03680 
+C     IFIL CARRIES FILE INFORMATION                                      FX03690
+C                                                                        FX03700
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FX03710
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FX03720
+     *              NLTEFL,LNFIL4,LNGTH4                                 FX03730
+C                                                                        FX03740
+C     LAMCHN CARRIES HARDWARE SPECIFIC PARAMETERS                        FX03750
+C                                                                        FX03760
+      COMMON /LAMCHN/ ONEPL,ONEMI,EXPMIN,ARGMIN                          FX03770
+                                                                                
+      COMMON /c_drive/ ref_lat,hobs,ibmax_b,immax_b,                            
+     *                 lvl_1_2,jchar_st(10,2),wm(mxzmd)                         
+c                                                                               
+      character*1 jchar_st                                                      
+c                                                                               
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FX03790
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FX03800
+C                                                                        FX03810
+C     IXMAX=MAX NUMBER OF X-SECTION MOLECULES, IXMOLS=NUMBER OF THESE    FX03820
+C     MOLECULES SELECTED, IXINDX=INDEX VALUES OF SELECTED MOLECULES      FX03830
+C     (E.G. 1=CLONO2), XAMNT(I,L)=LAYER AMOUNTS FOR I'TH MOLECULE FOR    FX03840
+C     L'TH LAYER, ANALOGOUS TO AMOUNT IN /PATHD/ FOR THE STANDARD        FX03850
+C     MOLECULES.                                                         FX03860
+C                                                                        FX03870
+      COMMON /PATHX/ IXMAX,IXMOLS,IXINDX(MX_XS),XAMNT(MX_XS,MXLAY)       FX03880
+      COMMON /MLATM/ ALT(MXZMD),PMDL(MXZMD,6),TMDL(MXZMD,6),             FX03890
+     *               AMOL(MXZMD,8,6),ZST(MXZMD),PST(MXZMD),              FX03900
+     *               TST(MXZMD),AMOLS(MXZMD,MXMOL)                       FX03910
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)  FX03920
+C                                                                        FX03930
+C     COMMON BLOCKS AND PARAMETERS FOR THE PROFILES AND DENSITIES        FX03940
+C     FOR THE CROSS-SECTION MOLECULES.                                   FX03950
+C     XSNAME=NAMES, ALIAS=ALIASES OF THE CROSS-SECTION MOLECULES         FX03960
+C                                                                        FX03970
+      CHARACTER*10 XSFILE,XSNAME,ALIAS                                   FX03980
+      COMMON /XSECTF/ XSFILE(6,5,MX_XS),XSNAME(MX_XS),ALIAS(4,MX_XS)     FX03990
+C                                                                        FX04000
+C     AMOLX(L,I)=MIXING RATIO (PPMV) OF THE I'TH MOLECULE FOR THE L'TH   FX04010
+C     LEVEL, ALTX(L)= ALTITUDE OF THE L'TH LEVEL, LAYXMX LEVELS MAX      FX04020
+C                                                                        FX04030
+      COMMON /MLATMX/ LAYXMX,ALTX(MXZMD),AMOLX(MXZMD,MX_XS)              FX04040
+                                                                         FX04050
+      DIMENSION ZX(MXZMD),DTMP(MX_XS,MXZMD),DENX(MX_XS,MXZMD)            FX04060
+      DIMENSION PX(MXZMD)                                                       
+      DIMENSION ZTMP(2),PTMP(2),TTMP(2),WVTMP(2)                                
+      CHARACTER JCHAR(MX_XS,MXZMD)*1,XTITLE*50                           FX04070
+C                                                                        FX04080
+C     LOAD THE PROFILES OF ALTITUDE, PRESSURE, AND TEMPERATURE THAT      FX04090
+C     WERE USED TO CALCULATE THE MOLECULAR AMOUNTS BACK INTO THE         FX04100
+C     ARRAYS ZMDL, PM, AND TM FROM THE ARRAYS ZST, PST, AND TST          FX04110
+C                                                                        FX04120
+      DO 10 L = 1, IMMAX                                                 FX04130
+         ZMDL(L) = ZST(L)                                                FX04140
+         PM(L) = PST(L)                                                  FX04150
+         TM(L) = TST(L)                                                  FX04160
+   10 CONTINUE                                                           FX04170
+C                                                                        FX04180
+      IF (IPRFL.GT.0) THEN                                               FX04190
+C                                                                        FX04200
+C     A STANDARD PROFILE FOR X-MOLECULES DENSITY PROFILES HAS BEEN       FX04210
+C     SELECTED. THE PROFILES OF VOLUME MIXING RATIO ARE IN AMOLX         FX04220
+C     STORED AT THE LEVELS ALTX. LOAD THE ALTITUDES INTO ZX AND          FX04230
+C     DENX RESPECTIVELY.                                                 FX04240
+C                                                                        FX04250
+         LAYX = LAYXMX                                                   FX04260
+         DO 30 L = 1, LAYX                                               FX04270
+            ZX(L) = ALTX(L)                                              FX04280
+            DO 20 K = 1, IXMOLS                                          FX04290
+               DENX(K,L) = AMOLX(L,IXINDX(K))                            FX04300
+   20       CONTINUE                                                     FX04310
+   30    CONTINUE                                                        FX04320
+C                                                                        FX04330
+      ELSE                                                               FX04340
+C                                                                        FX04350
+C     A USER-INPUT PROFILE HAS BEEN SELECTED. READ IN THE PROFILES       FX04360
+C     AND INTERPOLATE THEM TO THE LEVELS ZMDL.                           FX04370
+C                                                                        FX04380
+C     READ IN THE PROFILES. NOTE THAT ZORP CAN BE EITHER ALTITUDE        FX04390
+C     OR PRESSURE, DEPENDING UPON THE VALUE OF IZORP: 0 FOR              FX04400
+C     ALTITUDE, 1 FOR PRESSURE.                                          FX04410
+C                                                                        FX04420
+         WRITE (IPR,900)                                                 FX04430
+         READ (IRD,905) LAYX,IZORP,XTITLE                                FX04440
+         WRITE (IPR,910) LAYX,IZORP,XTITLE                               FX04450
+         IF (LAYX.GT.LAYXMX) THEN                                        FX04460
+            WRITE (IPR,915) LAYXMX                                       FX04470
+            STOP 'STOPPED IN XPROFL'                                     FX04480
+         ENDIF                                                           FX04490
+C                                                                        FX04500
+         WRITE (IPR,920) (K,K=1,IXMOLS)                                  FX04510
+C                                                                        FX04520
+         IF (IZORP .EQ. 0) THEN                                                 
+            DO 50 L = 1, LAYX                                               FX04
+               READ (IRD,925) ZX(L),(JCHAR(I,L),I=1,IXMOLS)                 FX04
+               WRITE (IPR,930) ZX(L),(JCHAR(I,L),I=1,IXMOLS)                FX04
+C                                                                           FX04
+               READ (IRD,935) (DTMP(K,L),K=1,IXMOLS)                        FX04
+               WRITE (IPR,940) (DTMP(K,L),K=1,IXMOLS)                       FX04
+ 50         CONTINUE                                                        FX04
+         ELSE                                                                   
+            DO 60 L = 1, LAYX                                               FX04
+               READ (IRD,925) PX(L),(JCHAR(I,L),I=1,IXMOLS)                 FX04
+               WRITE (IPR,930) PX(L),(JCHAR(I,L),I=1,IXMOLS)                FX04
+C                                                                           FX04
+               READ (IRD,935) (DTMP(K,L),K=1,IXMOLS)                        FX04
+               WRITE (IPR,940) (DTMP(K,L),K=1,IXMOLS)                       FX04
+ 60         CONTINUE                                                            
+         ENDIF                                                                  
+c                                                                               
+         IF (IZORP .EQ. 1) THEN                                                 
+c                                                                               
+C INTERPOLATE PX GRID ONTO ZX GRID.                                             
+                                                                                
+C TO ENSURE THAT CALCULATED/INPUT ZMDL'S WILL MATCH CALCULATED USER-LEVEL       
+C ALTITUDES, A COMBINATION OF INTERPOLATION AND HYDROSTATICS ARE USED.          
+C ZBND = A * F1(P) + (1 - A) * F2(P), WHERE                                     
+C F1(P) = INTERPOLATION IN LN(P), F2(P) = HYDROSTATIC CALCULATION               
+            ISTART = 2                                                          
+                                                                                
+            DO 160 IP=1,LAYX                                                    
+               PTMP(1) = 0.0                                                    
+               TTMP(1) = 0.0                                                    
+               WVTMP(1) = 0.0                                                   
+               ZTMP(1) = 0.0                                                    
+                                                                                
+               PTMP(2) = 0.0                                                    
+               TTMP(2) = 0.0                                                    
+               WVTMP(2) = 0.0                                                   
+               ZTMP(2) = 0.0                                                    
+                                                                                
+               DO 161 LIP=ISTART,IMMAX                                          
+                  IF (PX(IP) .GT. PM(LIP)) GO TO 162                            
+ 161           CONTINUE                                                         
+               LIP=IMMAX                                                        
+ 162           CONTINUE                                                         
+                                                                                
+               IF (PX(IP) .EQ. PM(LIP-1)) THEN                                  
+                  ZX(IP) = ZMDL(LIP-1)                                          
+               ELSE                                                             
+                                                                                
+                  IF(PX(IP) .EQ. PM(LIP)) THEN                                  
+                     ZX(IP) = ZMDL(LIP)                                         
+                  ELSE                                                          
+                                                                                
+C     PERFORM INTERPOLATION IN LN(PM)                                           
+                     HIP =  (ZMDL(LIP)-ZMDL(LIP-1))/                            
+     &                    LOG(PM(LIP)/PM(LIP-1))                                
+                     ZINT = ZMDL(LIP-1)+                                        
+     &                    HIP* LOG(PX(IP)/PM(LIP-1))                            
+                                                                                
+C     PERFORM ALTITUDE CALCULATION USING HYDROSTATIC EQUATION                   
+                     PTMP(1) = PM(LIP-1)                                        
+                     ZTMP(1) = ZMDL(LIP-1)                                      
+                     TTMP(1) = TM(LIP-1)                                        
+                     WVTMP(1) = DENW(LIP-1)                                     
+                                                                                
+                     PTMP(2) = PX(IP)                                           
+                                                                                
+                     TIP = (TM(LIP)-TM(LIP-1))/                                 
+     &                    LOG(PM(LIP)/PM(LIP-1))                                
+                     TTMP(2) = TM(LIP-1)+                                       
+     &                    TIP* LOG(PX(IP)/PM(LIP-1))                            
+                                                                                
+                     WVIP =  (DENW(LIP)-DENW(LIP-1))/                           
+     &                    LOG(PM(LIP)/PM(LIP-1))                                
+                     WVTMP(2) =  DENW(LIP-1) +                                  
+     &                    WVIP* LOG(PX(IP)/PM(LIP-1))                           
+                                                                                
+                     CALL CMPALT(2,PTMP,TTMP,                                   
+     &                    WVTMP,ZTMP(1),REF_LAT,ZTMP)                           
+C     COMBINE THE INTERPOLATION AND THE HYDROSTATIC CALCULATION                 
+                                                                                
+                     RATP =  LOG(PX(IP)/PM(LIP-1))/                             
+     &                    LOG(PM(LIP)/PM(LIP-1))                                
+                                                                                
+                     A = RATP**3                                                
+                                                                                
+                     ZX(IP) = A*ZINT + (1-A)*ZTMP(2)                            
+                                                                                
+                  ENDIF                                                         
+               ENDIF                                                            
+                                                                                
+               IF (IP .NE. 1) THEN                                              
+                  IF (ZX(IP).LE.ZX(IP-1)) GO TO 300                             
+               ENDIF                                                            
+                                                                                
+               ISTART = LIP                                                     
+               CALL XTRACT (IP,DTMP,JCHAR,ZX(IP))                               
+               DO 40 K = 1, IXMOLS                                              
+                  DENX(K,IP) = DTMP(K,IP)                                       
+ 40            CONTINUE                                                         
+                                                                                
+ 160        CONTINUE                                                            
+c                                                                               
+         ELSE                                                                   
+c            stop 'do 171'                                                      
+c                                                                               
+c	   izorp is zero to get to this                                               
+c                                                                               
+            DO 171 L=1,LAYX                                                     
+               CALL XTRACT (L,DTMP,JCHAR,ZX(L))                                 
+               DO 41 K = 1, IXMOLS                                              
+                  DENX(K,L) = DTMP(K,L)                                         
+ 41            CONTINUE                                                         
+ 171        CONTINUE                                                            
+         ENDIF                                                                  
+c                                                                               
+      ENDIF                                                                     
+C                                                                        FX04810
+C     INTERPOLATE THE DENSITY PROFILE DENX DEFINED ON ZX TO DENM         FX04820
+C     DEFINED ON ZMDL, THEN CONVERT MIXING RATIO TO NUMBER DENSITY.      FX04830
+C                                                                        FX04840
+      CALL XINTRP (ZX,DENX,LAYX,IXMOLS)                                  FX04850
+C                                                                        FX04860
+      RETURN                                                             FX04870
+                                                                                
+C ERROR MESSAGES                                                                
+  300 WRITE(IPR,988) (ZX(I),I=1,LAYX)                                           
+      PRINT 988,(ZX(I),I=1,IP)                                                  
+                                                                                
+      STOP 'ZX IN XPROFL'                                                       
+C                                                                        FX04880
+  900 FORMAT (/,' READING IN A PROFILE FOR THE CROSS-SECTION',           FX04890
+     *        ' MOLECULES')                                              FX04900
+  905 FORMAT (2I5,A)                                                     FX04910
+  910 FORMAT (/,'  LAYERS = ',I5,/,'     IZORP = ',I5,                   FX04920
+     *        '  (0 FOR ALTITUDE, 1 FOR PRESSURE)',/,                    FX04930
+     *        '  TITLE  = ',A50)                                         FX04940
+  915 FORMAT (/,'  XPROFL: ERROR- LAYX > LAYXMX = ',I4)                  FX04950
+  920 FORMAT (/,'      Z OR P     JCHAR',/,'  ',                         FX04960
+     *        8('    DENX(',I2,')'))                                     FX04970
+  925 FORMAT (F10.3,5X,38A1)                                             FX04980
+  930 FORMAT (2X,F10.3,5X,38A1)                                           FX0499
+  935 FORMAT (8E10.3)                                                    FX05000
+  940 FORMAT (2X,1p,8E12.3)                                                 FX05
+  988 FORMAT (///,' ERROR: BOUNDARY ALTITUDES FOR CROSS_SECTION LEVELS',        
+     *        'ARE NEGATIVE OR NOT IN ASCENDING ORDER',//,5X,' ZX ',            
+     *        /,(10F10.4))                                                      
+C                                                                        FX05020
+      END                                                                FX05030
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE XTRACT (ILEV,DTMP,JCHAR,Z)                              FX05040
+C                                                                        FX05050
+C     *****************************************************************  FX05060
+C     FOR EACH MOLECULE K FOR WHICH JCHAR(K,ILEV) IS '1', THIS SUBROUTINEFX05070
+C     INTERPOLATES THE MIXING RATIO DTMP(K,ILEV) AT THE ALTITUDE Z              
+C     FROM THE STANDARD PROFILE IN AMOLX ON THE ALTITUDE GRID ALTX.      FX05090
+C     *****************************************************************  FX05100
+C                                                                        FX05110
+      PARAMETER (MXFSC=600,MXLAY=MXFSC+3,MXZMD=6000,                            
+     *     MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,mx_xs=38,MXTRAC=22)         
+C                                                                        FX05140
+C     COMMON BLOCKS AND PARAMETERS FOR THE PROFILES AND DENSITIES        FX05150
+C     FOR THE CROSS-SECTION MOLECULES.                                   FX05160
+C     XSNAME=NAMES, ALIAS=ALIASES OF THE CROSS-SECTION MOLECULES         FX05170
+C                                                                        FX05180
+      CHARACTER*10 XSFILE,XSNAME,ALIAS                                   FX05190
+      COMMON /XSECTF/ XSFILE(6,5,MX_XS),XSNAME(MX_XS),ALIAS(4,MX_XS)     FX05200
+C                                                                        FX05210
+C     AMOLX(L,I)=MIXING RATIO (PPMV) OF THE I'TH MOLECULE FOR THE L'TH   FX05220
+C     LEVEL, ALTX(L)= ALTITUDE OF THE L'TH LEVEL, LAYXMX LEVELS MAX      FX05230
+C                                                                        FX05240
+      COMMON /MLATMX/ LAYXMX,ALTX(MXZMD),AMOLX(MXZMD,MX_XS)              FX05250
+C                                                                        FX05260
+C     IXMAX=MAX NUMBER OF X-SECTION MOLECULES, IXMOLS=NUMBER OF THESE    FX05270
+C     MOLECULES SELECTED, IXINDX=INDEX VALUES OF SELECTED MOLECULES      FX05280
+C     (E.G. 1=CLONO2), XAMNT(I,L)=LAYER AMOUNTS FOR I'TH MOLECULE FOR    FX05290
+C     L'TH LAYER, ANALOGOUS TO AMOUNT IN /PATHD/ FOR THE STANDARD        FX05300
+C     MOLECULES.                                                         FX05310
+C                                                                        FX05320
+      COMMON /PATHX/ IXMAX,IXMOLS,IXINDX(MX_XS),XAMNT(MX_XS,MXLAY)       FX05330
+C                                                                        FX05340
+      DIMENSION DTMP(MX_XS,MXZMD)                                        FX05350
+      CHARACTER*1 JCHAR(MX_XS,MXZMD)                                     FX05360
+C                                                                        FX05370
+C     FIND SMALLEST ALTX(L) GT Z                                         FX05380
+C                                                                        FX05390
+      DO 10 L = 2, LAYXMX                                                FX05400
+         IF (Z.LE.ALTX(L)) GO TO 20                                      FX05410
+   10 CONTINUE                                                           FX05420
+      L = LAYXMX                                                         FX05430
+C                                                                        FX05440
+   20 CONTINUE                                                           FX05450
+C                                                                        FX05460
+      DO 30 K = 1, IXMOLS                                                FX05470
+         IF (JCHAR(K,ILEV).EQ.'1') THEN                                  FX05480
+C                                                                        FX05490
+C     INTERPOLATE MIXING RATIO FROM STANDARD PROFILE                     FX05500
+C                                                                        FX05510
+            A = (Z-ALTX(L-1))/(ALTX(L)-ALTX(L-1))                        FX05520
+            CALL EXPINT (DTMP(K,ILEV),AMOLX(L,IXINDX(K)),                FX05530
+     *                           AMOLX(L-1,IXINDX(K)),A)                 FX05540
+         ENDIF                                                           FX05550
+   30 CONTINUE                                                           FX05560
+C                                                                        FX05570
+      RETURN                                                             FX05580
+C                                                                        FX05590
+      END                                                                FX05600
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE XINTRP (ZX,DENX,LAYX,IXMOLS)                            FX05610
+C                                                                        FX05620
+C     *****************************************************************  FX05630
+C     THIS SUBROUTINE INTERPLOLATES THE PROFILE DENX ON THE ALTITUDE     FX05640
+C     GRID ZX INTO DENM ON THE GRID ZMDL.  EXPONENTIAL INTERPOLATION     FX05650
+C     IS USED.                                                           FX05660
+C     *****************************************************************  FX05670
+C                                                                        FX05680
+      PARAMETER (MXFSC=600,MXLAY=MXFSC+3,MXZMD=6000,                            
+     *     MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,mx_xs=38,MXTRAC=22)         
+C                                                                        FX05710
+C     IFIL CARRIES FILE INFORMATION                                      FX05720
+C                                                                        FX05730
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FX05740
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FX05750
+     *              NLTEFL,LNFIL4,LNGTH4                                 FX05760
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+      COMMON /CNSTATM/ PZERO,TZERO,ADCON,ALZERO,AVMWT,AMWT(MXMOL)               
+C                                                                        FX05790
+C     LAMCHN CARRIES HARDWARE SPECIFIC PARAMETERS                        FX05800
+C                                                                        FX05810
+      COMMON /LAMCHN/ ONEPL,ONEMI,EXPMIN,ARGMIN                          FX05820
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)      FX05830
+      COMMON WPATH(IM2,16),TBBY(IM2)                                     FX05840
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)         FX05850
+C                                                                        FX05860
+      CHARACTER*8      HMOD                                             &FX05870
+C                                                                        FX05880
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+      COMMON /MLATM/ ALT(MXZMD),PMDL(MXZMD,6),TMDL(MXZMD,6),             FX05930
+     *               AMOL(MXZMD,8,6),ZST(MXZMD),PST(MXZMD),              FX05940
+     *               TST(MXZMD),AMOLS(MXZMD,MXMOL)                       FX05950
+      COMMON /DEAMT/ DENM(MXMOL,MXZMD),DENP(MXMOL,MXPDIM),DRYAIR(MXZMD)  FX05960
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FX05980
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                      FX05990
+C                                                                        FX06000
+      DIMENSION ZX(MXZMD),DENX(MX_XS,MXZMD)                              FX06010
+C                                                                        FX06020
+      LX = 2                                                             FX06030
+      DO 30 L = 1, IMMAX                                                 FX06040
+C                                                                        FX06050
+C        > FIND THE SMALLEST ZX GE ZMDL(L) <                             FX06060
+C                                                                        FX06070
+   10    CONTINUE                                                        FX06080
+         IF (ZMDL(L).LE.ZX(LX).OR.LX.EQ.LAYX) THEN                       FX06090
+            A = (ZMDL(L)-ZX(LX-1))/(ZX(LX)-ZX(LX-1))                     FX06100
+            IF (A.LT.0.0 .OR. A.GT.1.0) WRITE (IPR,900)                  FX06110
+C                                                                        FX06120
+C           > IF DRYAIR FOR LAYER NOT CALCULATED PREVIOUSLY <                   
+C           > (USING NORMAL MOLECULES), THEN CALCULATE THE  <                   
+C           > NUMBER DENSITY OF AIR                         <            FX06130
+C                                                                        FX06140
+            IF (DRYAIR(L).EQ.0.)                                                
+     *           DRYAIR(L) = ALOSMT*(PM(L)/PZERO)/(TM(L)/TZERO)          FX06150
+C                                                                        FX06160
+            DO 20 K = 1, IXMOLS                                          FX06170
+               CALL EXPINT (DENM(K,L),DENX(K,LX-1),DENX(K,LX),A)         FX06180
+C                                                                        FX06190
+C              > CONVERT MIXING RATIO (PPMV) TO NUMBER DENSITY <         FX06200
+C                                                                        FX06210
+               DENM(K,L) = DRYAIR(L)*DENM(K,L)*1.0E-6                    FX06220
+   20       CONTINUE                                                     FX06230
+            GO TO 30                                                     FX06240
+         ELSE                                                            FX06250
+            LX = LX+1                                                    FX06260
+         ENDIF                                                           FX06270
+         GO TO 10                                                        FX06280
+C                                                                        FX06290
+   30 CONTINUE                                                           FX06300
+C                                                                        FX06310
+      RETURN                                                             FX06320
+C                                                                        FX06330
+  900 FORMAT (//,'  XINTPL: CAUTION- EXTRAPOLATING X-SECTION PROFILE')   FX06340
+C                                                                        FX06350
+      END                                                                FX06360
+C                                                                               
+C -------------------------------------------------------------------           
+C                                                                               
+      BLOCK DATA XMLATM                                                  FX06590
+C                                                                        FX06600
+C     *****************************************************************  FX06610
+C     THIS BLOCK DATA SUBROUTINE INITIALIZES THE STANDARD PROFILES       FX06620
+C     FOR THE "CROSS-SECTION" MOLECULES, THAT IS, THE MOLECULES FOR      FX06630
+C     WHICH THE SPECTRAL DATA IS IN THE FORM OF CROSS-SECTIONS           FX06640
+C     (ABSORPTION COEFFICIENTS) INSTEAD OF LINE PARAMETERS.              FX06650
+C     THE PROFILES OF VOLUME MIXING RATIOS GIVEN HERE ARE FROM:          FX06660
+C                                                                        FX06670
+C                ?????????????????????????????????                       FX06680
+C                                                                        FX06690
+C     *****************************************************************  FX06700
+C                                                                        FX06710
+C     COMMON BLOCKS AND PARAMETERS FOR THE PROFILES AND DENSITIES        FX06720
+C     FOR THE CROSS-SECTION MOLECULES.                                   FX06730
+C                                                                        FX06740
+C     AMOLX(L,I)=MIXING RATIO (PPMV) OF THE I'TH MOLECULE FOR THE L'TH   FX06750
+C     LEVEL, ALTX(L)= ALTITUDE OF THE L'TH LEVEL, LAYXMX LEVELS MAX      FX06760
+C                                                                        FX06770
+      PARAMETER (MXFSC=600,MXLAY=MXFSC+3,MXZMD=6000,                            
+     *     MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,mx_xs=38,MXTRAC=22)         
+      PARAMETER (MXZ50=MXZMD-50)                                         FX06800
+C                                                                        FX06810
+      COMMON /MLATMX/ LAYXMX,ALTX(MXZMD),                                FX06820
+     *                AMOL1(MXZMD),  AMOL2(MXZMD),  AMOL3(MXZMD),        FX06830
+     *                AMOL4(MXZMD),  AMOL5(MXZMD),  AMOL6(MXZMD),        FX06840
+     *                AMOL7(MXZMD),  AMOL8(MXZMD),  AMOL9(MXZMD),        FX06850
+     *                AMOL10(MXZMD), AMOL11(MXZMD), AMOL12(MXZMD),       FX06860
+     *                AMOL13(MXZMD), AMOL14(MXZMD), AMOL15(MXZMD),       FX06870
+     *                AMOL16(MXZMD), AMOL17(MXZMD), AMOL18(MXZMD),       FX06880
+     *                AMOL19(MXZMD), AMOL20(MXZMD), AMOL21(MXZMD),       FX06890
+     *                AMOL22(MXZMD), AMOL23(MXZMD), AMOL24(MXZMD),       FX06900
+     *                AMOL25(MXZMD), AMOL26(MXZMD), AMOL27(MXZMD),       FX06910
+     *                AMOL28(MXZMD), AMOL29(MXZMD), AMOL30(MXZMD),       FX06920
+     *                AMOL31(MXZMD), AMOL32(MXZMD), AMOL33(MXZMD),       FX06930
+     *                AMOL34(MXZMD), AMOL35(MXZMD), AMOL36(MXZMD),              
+     *                AMOL37(MXZMD), AMOL38(MXZMD)                              
+C                                                                        FX06950
+      DATA LAYXMX / 6000 /                                               FX06960
+C                                                                        FX06970
+      DATA ALTX /                                                        FX06980
+     *       0.0,       1.0,       2.0,       3.0,       4.0,            FX06990
+     *       5.0,       6.0,       7.0,       8.0,       9.0,            FX07000
+     *      10.0,      11.0,      12.0,      13.0,      14.0,            FX07010
+     *      15.0,      16.0,      17.0,      18.0,      19.0,            FX07020
+     *      20.0,      21.0,      22.0,      23.0,      24.0,            FX07030
+     *      25.0,      27.5,      30.0,      32.5,      35.0,            FX07040
+     *      37.5,      40.0,      42.5,      45.0,      47.5,            FX07050
+     *      50.0,      55.0,      60.0,      65.0,      70.0,            FX07060
+     *      75.0,      80.0,      85.0,      90.0,      95.0,            FX07070
+     *     100.0,     105.0,     110.0,     115.0,     120.0,            FX07080
+     *     MXZ50*0.0/                                                    FX07090
+C                                                                        FX07100
+C     DATA AMOL1 / CLONO2 /                                              FX07110
+C                                                                        FX07120
+      DATA AMOL1 /                                                       FX07130
+     *  4.737E-06, 4.162E-06, 3.587E-06, 2.891E-06, 2.195E-06,           FX07140
+     *  1.717E-06, 1.238E-06, 9.775E-07, 7.170E-07, 6.231E-07,           FX07150
+     *  5.292E-07, 5.313E-07, 5.334E-07, 1.451E-06, 2.368E-06,           FX07160
+     *  1.037E-05, 1.837E-05, 5.571E-05, 9.304E-05, 1.748E-04,           FX07170
+     *  2.566E-04, 3.681E-04, 4.796E-04, 5.910E-04, 7.024E-04,           FX07180
+     *  7.724E-04, 8.587E-04, 7.428E-04, 4.585E-04, 2.005E-04,           FX07190
+     *  5.867E-05, 8.818E-06, 1.319E-06, 1.610E-07, 1.889E-08,           FX07200
+     *  1.855E-09, 7.032E-11, 2.870E-12, 2.174E-13, 3.025E-14,           FX07210
+     *  3.257E-15, 2.634E-17, 3.313E-20, 2.134E-23, 1.366E-25,           FX07220
+     *  4.128E-28, 3.433E-30, 0.       , 0.       , 0.       ,           FX07230
+     *  MXZ50*0.0/                                                       FX07240
+C                                                                        FX07250
+C     DATA AMOL2 / HNO4 /                                                FX07260
+C                                                                        FX07270
+      DATA AMOL2 /                                                       FX07280
+     *  8.851E-07, 2.031E-06, 3.177E-06, 7.444E-06, 1.171E-05,           FX07290
+     *  1.962E-05, 2.752E-05, 3.284E-05, 3.816E-05, 3.576E-05,           FX07300
+     *  3.336E-05, 2.928E-05, 2.519E-05, 2.814E-05, 3.109E-05,           FX07310
+     *  4.406E-05, 5.703E-05, 8.127E-05, 1.055E-04, 1.344E-04,           FX07320
+     *  1.632E-04, 1.946E-04, 2.260E-04, 2.541E-04, 2.822E-04,           FX07330
+     *  3.010E-04, 3.016E-04, 2.175E-04, 1.151E-04, 4.626E-05,           FX07340
+     *  1.448E-05, 3.333E-06, 8.857E-07, 2.244E-07, 5.992E-08,           FX07350
+     *  1.669E-08, 2.490E-09, 3.659E-10, 7.913E-11, 3.168E-11,           FX07360
+     *  7.075E-12, 2.676E-13, 3.296E-15, 1.497E-18, 2.227E-21,           FX07370
+     *  1.918E-24, 2.507E-26, 3.283E-28, 1.605E-29, 2.026E-30,           FX07380
+     *  MXZ50*0.0/                                                       FX07390
+C                                                                        FX07400
+C     DATA AMOL3 / CHCL2F /                                              FX07410
+C                                                                        FX07420
+      DATA AMOL3 /                                                       FX07430
+     *  50*-99.                                              ,           FX07440
+     *  MXZ50*0.0/                                                       FX07450
+C                                                                        FX07460
+C     DATA AMOL4 / CCL4 /                                                FX07470
+C                                                                        FX07480
+      DATA AMOL4 /                                                       FX07490
+     *  1.300E-04, 1.300E-04, 1.299E-04, 1.299E-04, 1.298E-04,           FX07500
+     *  1.297E-04, 1.296E-04, 1.295E-04, 1.294E-04, 1.293E-04,           FX07510
+     *  1.292E-04, 1.289E-04, 1.285E-04, 1.266E-04, 1.247E-04,           FX07520
+     *  1.187E-04, 1.127E-04, 1.026E-04, 9.256E-05, 8.037E-05,           FX07530
+     *  6.817E-05, 5.611E-05, 4.405E-05, 3.395E-05, 2.385E-05,           FX07540
+     *  1.701E-05, 5.027E-06, 8.202E-07, 1.204E-07, 1.304E-08,           FX07550
+     *  1.050E-09, 4.864E-11, 5.081E-12, 5.372E-13, 5.548E-14,           FX07560
+     *  5.688E-15, 2.281E-16, 5.092E-18, 1.699E-19, 3.184E-21,           FX07570
+     *  9.600E-23, 1.638E-24, 4.605E-26, 6.985E-28, 1.743E-29,           FX07580
+     *  2.224E-31, 4.283E-33, 0.       , 0.       , 0.       ,           FX07590
+     *  MXZ50*0.0/                                                       FX07600
+C                                                                        FX07610
+C     DATA AMOL5 / CCL3F /                                               FX07620
+C                                                                        FX07630
+      DATA AMOL5 /                                                       FX07640
+     *  1.400E-04, 1.400E-04, 1.399E-04, 1.399E-04, 1.398E-04,           FX07650
+     *  1.397E-04, 1.396E-04, 1.396E-04, 1.395E-04, 1.394E-04,           FX07660
+     *  1.392E-04, 1.389E-04, 1.386E-04, 1.368E-04, 1.349E-04,           FX07670
+     *  1.292E-04, 1.234E-04, 1.138E-04, 1.041E-04, 9.216E-05,           FX07680
+     *  8.021E-05, 6.799E-05, 5.576E-05, 4.480E-05, 3.384E-05,           FX07690
+     *  2.550E-05, 9.634E-06, 2.441E-06, 5.553E-07, 1.024E-07,           FX07700
+     *  1.581E-08, 1.939E-09, 3.811E-10, 7.716E-11, 1.585E-11,           FX07710
+     *  3.658E-12, 4.173E-13, 3.465E-14, 3.353E-15, 2.383E-16,           FX07720
+     *  2.084E-17, 1.346E-18, 1.080E-19, 6.099E-21, 4.246E-22,           FX07730
+     *  1.923E-23, 1.110E-24, 5.158E-26, 3.393E-27, 3.738E-28,           FX07740
+     *  MXZ50*0.0/                                                       FX07750
+C                                                                        FX07760
+C     DATA AMOL6 / CCL2F2 /                                              FX07770
+C                                                                        FX07780
+      DATA AMOL6 /                                                       FX07790
+     *  2.400E-04, 2.400E-04, 2.399E-04, 2.399E-04, 2.398E-04,           FX07800
+     *  2.398E-04, 2.397E-04, 2.396E-04, 2.395E-04, 2.394E-04,           FX07810
+     *  2.393E-04, 2.390E-04, 2.387E-04, 2.370E-04, 2.353E-04,           FX07820
+     *  2.300E-04, 2.247E-04, 2.157E-04, 2.066E-04, 1.952E-04,           FX07830
+     *  1.838E-04, 1.712E-04, 1.585E-04, 1.452E-04, 1.319E-04,           FX07840
+     *  1.183E-04, 8.552E-05, 5.683E-05, 3.498E-05, 2.013E-05,           FX07850
+     *  1.111E-05, 6.014E-06, 3.446E-06, 1.998E-06, 1.181E-06,           FX07860
+     *  7.687E-07, 3.876E-07, 1.818E-07, 8.265E-08, 3.432E-08,           FX07870
+     *  1.380E-08, 4.984E-09, 1.704E-09, 4.917E-10, 1.272E-10,           FX07880
+     *  2.351E-11, 3.640E-12, 4.251E-13, 4.981E-14, 8.792E-15,           FX07890
+     *  MXZ50*0.0/                                                       FX07900
+C                                                                        FX07910
+C     DATA AMOL7 / C2CL2F4 /                                             FX07920
+C                                                                        FX07930
+      DATA AMOL7 /                                                       FX07940
+     *  1.200E-05, 1.200E-05, 1.200E-05, 1.200E-05, 1.199E-05,           FX07950
+     *  1.199E-05, 1.199E-05, 1.199E-05, 1.198E-05, 1.198E-05,           FX07960
+     *  1.198E-05, 1.197E-05, 1.196E-05, 1.191E-05, 1.185E-05,           FX07970
+     *  1.167E-05, 1.149E-05, 1.120E-05, 1.090E-05, 1.053E-05,           FX07980
+     *  1.015E-05, 9.731E-06, 9.311E-06, 8.865E-06, 8.419E-06,           FX07990
+     *  7.949E-06, 6.770E-06, 5.620E-06, 4.547E-06, 3.623E-06,           FX08000
+     *  2.884E-06, 2.315E-06, 1.906E-06, 1.600E-06, 1.375E-06,           FX08010
+     *  1.231E-06, 1.037E-06, 8.645E-07, 7.140E-07, 5.799E-07,           FX08020
+     *  4.610E-07, 3.530E-07, 2.524E-07, 1.588E-07, 7.585E-08,           FX08030
+     *  2.131E-08, 3.107E-09, 2.089E-10, 1.084E-11, 8.968E-13,           FX08040
+     *  MXZ50*0.0/                                                       FX08050
+C                                                                        FX08060
+C     DATA AMOL8 / C2CL3F3 /                                             FX08070
+C                                                                        FX08080
+      DATA AMOL8 /                                                       FX08090
+     *  1.900E-05, 1.900E-05, 1.899E-05, 1.899E-05, 1.898E-05,           FX08100
+     *  1.898E-05, 1.897E-05, 1.896E-05, 1.895E-05, 1.894E-05,           FX08110
+     *  1.893E-05, 1.890E-05, 1.887E-05, 1.871E-05, 1.854E-05,           FX08120
+     *  1.803E-05, 1.751E-05, 1.664E-05, 1.576E-05, 1.466E-05,           FX08130
+     *  1.356E-05, 1.236E-05, 1.116E-05, 9.931E-06, 8.702E-06,           FX08140
+     *  7.515E-06, 4.787E-06, 2.678E-06, 1.366E-06, 6.370E-07,           FX08150
+     *  2.820E-07, 1.222E-07, 5.930E-08, 2.949E-08, 1.507E-08,           FX08160
+     *  8.617E-09, 3.550E-09, 1.304E-09, 4.610E-10, 1.427E-10,           FX08170
+     *  4.322E-11, 1.131E-11, 2.861E-12, 5.798E-13, 1.059E-13,           FX08180
+     *  1.182E-14, 9.372E-16, 3.545E-17, 1.223E-18, 6.979E-20,           FX08190
+     *  MXZ50*0.0/                                                       FX08200
+C                                                                        FX08210
+C     DATA AMOL9 / N2O5 /                                                FX08220
+C                                                                        FX08230
+      DATA AMOL9 /                                                       FX08240
+     *  1.312E-10, 4.065E-10, 6.818E-10, 5.329E-08, 1.059E-07,           FX08250
+     *  1.177E-06, 2.248E-06, 2.435E-06, 2.622E-06, 2.526E-06,           FX08260
+     *  2.430E-06, 2.714E-06, 2.998E-06, 7.354E-06, 1.171E-05,           FX08270
+     *  3.638E-05, 6.105E-05, 1.157E-04, 1.703E-04, 2.471E-04,           FX08280
+     *  3.239E-04, 4.204E-04, 5.168E-04, 6.318E-04, 7.468E-04,           FX08290
+     *  8.576E-04, 9.888E-04, 7.845E-04, 4.140E-04, 1.556E-04,           FX08300
+     *  4.229E-05, 7.489E-06, 1.426E-06, 2.195E-07, 3.706E-08,           FX08310
+     *  6.586E-09, 4.858E-10, 7.919E-12, 1.913E-13, 2.626E-15,           FX08320
+     *  3.692E-17, 5.125E-19, 2.169E-21, 6.096E-25, 6.336E-28,           FX08330
+     *  9.855E-32, 0.       , 0.       , 0.       , 0.       ,           FX08340
+     *  MXZ50*0.0/                                                       FX08350
+C                                                                        FX08360
+C     DATA AMOL10 / HNO3 /                                               FX08370
+C                                                                        FX08380
+      DATA AMOL10 /                                                      FX08390
+     *  5.738E-05, 6.671E-05, 7.603E-05, 8.176E-05, 8.748E-05,           FX08400
+     *  9.153E-05, 9.558E-05, 9.914E-05, 1.027E-04, 1.111E-04,           FX08410
+     *  1.195E-04, 1.431E-04, 1.667E-04, 3.217E-04, 4.766E-04,           FX08420
+     *  9.273E-04, 1.378E-03, 2.070E-03, 2.762E-03, 3.514E-03,           FX08430
+     *  4.266E-03, 4.891E-03, 5.516E-03, 5.858E-03, 6.200E-03,           FX08440
+     *  6.170E-03, 5.684E-03, 4.611E-03, 3.245E-03, 1.978E-03,           FX08450
+     *  1.015E-03, 3.855E-04, 1.252E-04, 3.480E-05, 9.533E-06,           FX08460
+     *  2.792E-06, 5.898E-07, 1.885E-07, 4.912E-08, 1.021E-08,           FX08470
+     *  2.233E-09, 1.122E-09, 3.566E-11, 3.213E-14, 7.770E-17,           FX08480
+     *  9.752E-20, 1.129E-21, 2.151E-23, 1.720E-24, 2.813E-25,           FX08490
+     *  MXZ50*0.0/                                                       FX08500
+C                                                                        FX08510
+C     DATA AMOL11 / CF4 /                                                FX08520
+C                                                                        FX08530
+      DATA AMOL11 /                                                      FX08540
+     *  50*-99.                                              ,           FX08550
+     *  MXZ50*0.0/                                                       FX08560
+C                                                                        FX08570
+C     DATA AMOL12 / CHCLF2 /  ????                                       FX08580
+C                                                                        FX08590
+      DATA AMOL12 /                                                      FX08600
+     *  6.000E-05, 5.994E-05, 5.987E-05, 5.982E-05, 5.977E-05,           FX08610
+     *  5.974E-05, 5.970E-05, 5.968E-05, 5.966E-05, 5.963E-05,           FX08620
+     *  5.960E-05, 5.955E-05, 5.949E-05, 5.921E-05, 5.893E-05,           FX08630
+     *  5.808E-05, 5.723E-05, 5.582E-05, 5.441E-05, 5.265E-05,           FX08640
+     *  5.089E-05, 4.897E-05, 4.705E-05, 4.502E-05, 4.298E-05,           FX08650
+     *  4.084E-05, 3.548E-05, 3.021E-05, 2.514E-05, 2.062E-05,           FX08660
+     *  1.686E-05, 1.392E-05, 1.184E-05, 1.036E-05, 9.356E-06,           FX08670
+     *  8.784E-06, 8.163E-06, 7.741E-06, 7.449E-06, 7.201E-06,           FX08680
+     *  6.919E-06, 6.524E-06, 5.872E-06, 4.867E-06, 3.396E-06,           FX08690
+     *  1.808E-06, 6.935E-07, 2.066E-07, 5.485E-08, 1.930E-08,           FX08700
+     *  MXZ50*0.0/                                                       FX08710
+C                                                                        FX08720
+C     DATA AMOL13 / ?????? /                                             FX08730
+C                                                                        FX08740
+      DATA AMOL13 /                                                      FX08750
+     *  50*-99.                                              ,           FX08760
+     *  MXZ50*0.0/                                                       FX08770
+C                                                                        FX08780
+C     DATA AMOL14 / ?????? /                                             FX08790
+C                                                                        FX08800
+      DATA AMOL14 /                                                      FX08810
+     *  50*-99.                                              ,           FX08820
+     *  MXZ50*0.0/                                                       FX08830
+C                                                                        FX08840
+C     DATA AMOL15 / NO2 /                                                FX08730
+C                                                                        FX08740
+      DATA AMOL15 /                                                      FX08750
+     *  2.30E-05,  2.30E-05,  2.30E-05,  2.30E-05,  2.30E-05,            FA21240
+     *  2.30E-05,  2.30E-05,  2.30E-05,  2.30E-05,  2.32E-05,            FA21250
+     *  2.38E-05,  2.62E-05,  3.15E-05,  4.45E-05,  7.48E-05,            FA21260
+     *  1.71E-04,  3.19E-04,  5.19E-04,  7.71E-04,  1.06E-03,            FA21270
+     *  1.39E-03,  1.76E-03,  2.16E-03,  2.58E-03,  3.06E-03,            FA21280
+     *  3.74E-03,  4.81E-03,  6.16E-03,  7.21E-03,  7.28E-03,            FA21290
+     *  6.26E-03,  4.03E-03,  2.17E-03,  1.15E-03,  6.66E-04,            FA21300
+     *  4.43E-04,  3.39E-04,  2.85E-04,  2.53E-04,  2.31E-04,            FA21310
+     *  2.15E-04,  2.02E-04,  1.92E-04,  1.83E-04,  1.76E-04,            FA21320
+     *  1.70E-04,  1.64E-04,  1.59E-04,  1.55E-04,  1.51E-04,            FA21330
+     *  MXZ50*0.0 /                                                      FA21340
+C                                                                        FX08900
+C     DATA AMOL16 / ?????? /                                             FX08910
+C                                                                        FX08920
+      DATA AMOL16 /                                                      FX08930
+     *  50*-99.                                              ,           FX08940
+     *  MXZ50*0.0/                                                       FX08950
+C                                                                        FX08960
+C     DATA AMOL17 / ?????? /                                             FX08970
+C                                                                        FX08980
+      DATA AMOL17 /                                                      FX08990
+     *  50*-99.                                              ,           FX09000
+     *  MXZ50*0.0/                                                       FX09010
+C                                                                        FX09020
+C     DATA AMOL18 / ?????? /                                             FX09030
+C                                                                        FX09040
+      DATA AMOL18 /                                                      FX09050
+     *  50*-99.                                              ,           FX09060
+     *  MXZ50*0.0/                                                       FX09070
+C                                                                        FX09080
+C     DATA AMOL19 / ?????? /                                             FX09090
+C                                                                        FX09100
+      DATA AMOL19 /                                                      FX09110
+     *  50*-99.                                              ,           FX09120
+     *  MXZ50*0.0/                                                       FX09130
+C                                                                        FX09140
+C     DATA AMOL20 / ?????? /                                             FX09150
+C                                                                        FX09160
+      DATA AMOL20 /                                                      FX09170
+     *  50*-99.                                              ,           FX09180
+     *  MXZ50*0.0/                                                       FX09190
+C                                                                        FX09200
+C     DATA AMOL21 / ?????? /                                             FX09210
+C                                                                        FX09220
+      DATA AMOL21 /                                                      FX09230
+     *  50*-99.                                              ,           FX09240
+     *  MXZ50*0.0/                                                       FX09250
+C                                                                        FX09260
+C     DATA AMOL22 / ?????? /                                             FX09270
+C                                                                        FX09280
+      DATA AMOL22 /                                                      FX09290
+     *  50*-99.                                              ,           FX09300
+     *  MXZ50*0.0/                                                       FX09310
+C                                                                        FX09320
+C     DATA AMOL23 / ?????? /                                             FX09330
+C                                                                        FX09340
+      DATA AMOL23 /                                                      FX09350
+     *  50*-99.                                              ,           FX09360
+     *  MXZ50*0.0/                                                       FX09370
+C                                                                        FX09380
+C     DATA AMOL24 / ?????? /                                             FX09390
+C                                                                        FX09400
+      DATA AMOL24 /                                                      FX09410
+     *  50*-99.                                              ,           FX09420
+     *  MXZ50*0.0/                                                       FX09430
+C                                                                        FX09440
+C     DATA AMOL25 / ?????? /                                             FX09450
+C                                                                        FX09460
+      DATA AMOL25 /                                                      FX09470
+     *  50*-99.                                              ,           FX09480
+     *  MXZ50*0.0/                                                       FX09490
+C                                                                        FX09500
+C     DATA AMOL26 / ?????? /                                             FX09510
+C                                                                        FX09520
+      DATA AMOL26 /                                                      FX09530
+     *  50*-99.                                              ,           FX09540
+     *  MXZ50*0.0/                                                       FX09550
+C                                                                        FX09560
+C     DATA AMOL27 / ?????? /                                             FX09570
+C                                                                        FX09580
+      DATA AMOL27 /                                                      FX09590
+     *  50*-99.                                              ,           FX09600
+     *  MXZ50*0.0/                                                       FX09610
+C                                                                        FX09620
+C     DATA AMOL28 / ?????? /                                             FX09630
+C                                                                        FX09640
+      DATA AMOL28 /                                                      FX09650
+     *  50*-99.                                              ,           FX09660
+     *  MXZ50*0.0/                                                       FX09670
+C                                                                        FX09680
+C     DATA AMOL29 / ?????? /                                             FX09690
+C                                                                        FX09700
+      DATA AMOL29 /                                                      FX09710
+     *  50*-99.                                              ,           FX09720
+     *  MXZ50*0.0/                                                       FX09730
+C                                                                        FX09740
+C     DATA AMOL30 / ?????? /                                             FX09750
+C                                                                        FX09760
+      DATA AMOL30 /                                                      FX09770
+     *  50*-99.                                              ,           FX09780
+     *  MXZ50*0.0/                                                       FX09790
+C                                                                        FX09800
+C     DATA AMOL31 / ?????? /                                             FX09810
+C                                                                        FX09820
+      DATA AMOL31 /                                                      FX09830
+     *  50*-99.                                              ,           FX09840
+     *  MXZ50*0.0/                                                       FX09850
+C                                                                        FX09860
+C     DATA AMOL32 / ?????? /                                             FX09870
+C                                                                        FX09880
+      DATA AMOL32 /                                                      FX09890
+     *  50*-99.                                              ,           FX09900
+     *  MXZ50*0.0/                                                       FX09910
+C                                                                        FX09920
+C     DATA AMOL33 / ?????? /                                             FX09930
+C                                                                        FX09940
+      DATA AMOL33 /                                                      FX09950
+     *  50*-99.                                              ,           FX09960
+     *  MXZ50*0.0/                                                       FX09970
+C                                                                        FX09980
+C     DATA AMOL34 / ?????? /                                             FX09990
+C                                                                        FX10000
+      DATA AMOL34 /                                                      FX10010
+     *  50*-99.                                              ,           FX10020
+     *  MXZ50*0.0/                                                       FX10030
+C                                                                        FX10040
+C     DATA AMOL35 / ?????? /                                             FX10050
+C                                                                        FX10060
+      DATA AMOL35 /                                                      FX10070
+     *  50*-99.                                              ,           FX10080
+     *  MXZ50*0.0/                                                       FX10090
+C                                                                        FX10100
+C     DATA AMOL36 / ?????? /                                             FX10050
+C                                                                        FX10060
+      DATA AMOL36 /                                                      FX10070
+     *  50*-99.                                              ,           FX10080
+     *  MXZ50*0.0/                                                       FX10090
+C                                                                        FX10100
+C     DATA AMOL37 / ?????? /                                             FX10050
+C                                                                        FX10060
+      DATA AMOL37 /                                                      FX10070
+     *  50*-99.                                              ,           FX10080
+     *  MXZ50*0.0/                                                       FX10090
+C                                                                        FX10100
+C     DATA AMOL38 / ?????? /                                             FX10050
+C                                                                        FX10060
+      DATA AMOL38 /                                                      FX10070
+     *  50*-99.                                              ,           FX10080
+     *  MXZ50*0.0/                                                       FX10090
+C                                                                        FX10100
+      END                                                                FX10110
+C                                                                               
+C -------------------------------------------------------------------           
+C                                                                               
+      SUBROUTINE NEWH2(H1,H2,ANGLE,RANGE,BETA,LEN,HTAN,PHI)                     
+C                                                                               
+C     Changed for LBLRTM to correct geometry problems                           
+C                                                                               
+C     THIS ROUTINE DETERMINES H2,BETA, TANGENT HEIGHT AND LEN.                  
+C     ADOPTED FROM THE MODTRAN2 GEOMETRY PACKAGE                                
+C                                                                               
+C     INPUTS ARE: H1, ZENTIH ANGLE (ANGLE) AND RANGE.                           
+C     LEN = 1 IF THE PATH GOES THROUGH HTAN.                                    
+C                                                                               
+C     MXFSC IS THE MAXIMUM NUMBER OF LAYERS FOR OUTPUT TO FASE01                
+C     MXLAY IS THE MAXIMUM NUMBER OF OUTPUT LAYERS                              
+C     MXZMD IS THE MAX NUMBER OF LEVELS IN THE ATMOSPHERIC PROFILE              
+C         STORED IN ZMDL (INPUT)                                                
+C     MXPDIM IS THE MAXIMUM NUMBER OF LEVELS IN THE PROFILE ZPTH                
+C         OBTAINED BY MERGING ZMDL AND ZOUT                                     
+C     MXMOL IS THE MAXIMUM NUMBER OF MOLECULES, KMXNOM IS THE DEFAULT           
+C                                                                               
+      PARAMETER (MXFSC=600,MXLAY=MXFSC+3,MXZMD=6000,                            
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)            
+C                                                                               
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,               
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,              
+     *              NLTEFL,LNFIL4,LNGTH4                                        
+C                                                                               
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,                    
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                             
+C                                                                               
+C     BLANK COMMON FOR ZMDL                                                     
+C                                                                               
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)             
+      COMMON WPATH(IM2,16),TBBY(IM2)                                            
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)                
+C                                                                               
+      CHARACTER*8      HMOD                                                     
+C                                                                               
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+C                                                                               
+      REAL*8           CPATH,CPJ,CPJ1,SH,GAMMA,ANDEXD,CRFRCT,RE2                
+C                                                                               
+      CRFRCT(H)=(RE2+H)*ANDEXD(H,SH,GAMMA)                                      
+C                                                                               
+      RE2=RE                                                                    
+C     COMPUTE CPATH OR PATH CONSTANT                                            
+      CALL FNDSHD(H1,SH,GAMMA)                                                  
+      CPATH = CRFRCT(H1)*SIN(ANGLE/DEG)                                         
+C                                                                               
+C     ANGLE = 90 at H1 implies that H1 = tangent height                         
+C                                                                               
+      IF (ANGLE.EQ.90.0) THEN                                                   
+          HTAN=H1                                                               
+      ELSE                                                                      
+          DO 100 J=1,IMMAX                                                      
+              IF (H1.GE.ZMDL(J)) JMAX=J                                         
+  100     CONTINUE                                                              
+          JMAX=JMAX+1                                                           
+          ZJ1=ZMDL(JMAX)                                                        
+          CPJ1=CRFRCT(ZJ1)                                                      
+          HTAN=-1.0                                                             
+          DO 200 J=JMAX,1,-1                                                    
+              IF (HTAN.LT.0.0) THEN                                             
+                  IF (J.EQ.1) THEN                                              
+                      HTAN=0.0                                                  
+                  ELSE                                                          
+                      CPJ=CPJ1                                                  
+                      ZJ=ZJ1                                                    
+                      ZJ1=ZMDL(J-1)                                             
+                      CPJ1=CRFRCT(ZJ1)                                          
+                      IF ((CPATH.LE.CPJ).AND.(CPATH.GE.CPJ1)) THEN              
+                          HTAN=RTBIS(ZJ1,CPJ1,ZJ,CPJ,CPATH)                     
+                      ENDIF                                                     
+                  ENDIF                                                         
+              ENDIF                                                             
+  200     CONTINUE                                                              
+      ENDIF                                                                     
+C                                                                               
+C     Find H2, BETA AND LEN                                                     
+C                                                                               
+      CALL FNDPTH(CPATH,H1,HTAN,H2,RANGE,BETA,LEN,ANGLE,PHI)                    
+C                                                                               
+C     Ensure LEN is not reset in FSCGEO if direct path                          
+      IF (LEN.EQ.0) HTAN=H2                                                     
+C                                                                               
+C     IF (ANGLE .LE. 90.0) HTAN CARRIES HMIN NOT HTAN                           
+      IF (ANGLE .LE. 90.0) HTAN = MIN(H1,H2)                                    
+C                                                                               
+      RETURN                                                                    
+C                                                                               
+      END                                                                       
+C                                                                               
+C ----------------------------------------------------------------              
+C                                                                               
+      FUNCTION RTBIS(X1,CX1,X2,CX2,CPATH)                                       
+C                                                                               
+C     THIS FUNCTION FINDS THE ROOT OF                                           
+C            FUNC(X) = X*REFRACTIVE INDEX - CPA                                 
+C                                                                               
+C     THE ROOT IS ACTUALLY THE TANGENT HEIGHT, BETWEEN X1 AND X2.               
+C     THIS ROUTINE IS FROM "NUMERICAL RECIPES" BY PRESS, ET AL.                 
+C                                                                               
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,                    
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                             
+                                                                                
+      REAL*8           CX1,CX2,CPATH,F,FMID,SH,GAMMA,ANDEXD                     
+      DATA XACC/1E-5/                                                           
+      PARAMETER (JMAX=40)                                                       
+C                                                                               
+      FMID=CX2-CPATH                                                            
+      F=CX1-CPATH                                                               
+      IF(F*FMID.GE.0.) STOP 'ROOT MUST BE BRACKETED FOR BISECTION.'             
+      IF(F.LT.0.)THEN                                                           
+         RTBIS=X1                                                               
+         DX=X2-X1                                                               
+      ELSE                                                                      
+         RTBIS=X2                                                               
+         DX=X1-X2                                                               
+      ENDIF                                                                     
+      DO 11 J=1,JMAX                                                            
+         DX=DX*.5                                                               
+         XMID=RTBIS+DX                                                          
+         CALL FNDSHD(XMID,SH,GAMMA)                                             
+         FMID=ANDEXD(XMID,SH,GAMMA)*(XMID+RE)-CPATH                             
+         IF(FMID.LE.0.)RTBIS=XMID                                               
+         IF(ABS(DX).LT.XACC .OR. FMID.EQ.0.) RETURN                             
+ 11   CONTINUE                                                                  
+C                                                                               
+C     COMES HERE IF UNABLE TO SOLVE.                                            
+C                                                                               
+      IF (ABS(CX2) .LT. ABS(CX1)) THEN                                          
+         RTBIS = X2                                                             
+      ELSE                                                                      
+         RTBIS = X1                                                             
+      ENDIF                                                                     
+      RETURN                                                                    
+      END                                                                       
+C                                                                               
+C ----------------------------------------------------------------              
+C                                                                               
+      SUBROUTINE FNDPTH(CPATH,H1,HTAN,H2,RANGEI,BETA,LEN,ANGLE,PHI)             
+C                                                                               
+C     THIS ROUTINE DETERMINES H2, BETA AND LEN.                                 
+C     INPUTS ARE H1, HTAN (TANGENT HEIGHT), RANGE (RANGEI) AND                  
+C     THE PATH CONSTANT, CPATH.                                                 
+C     RANGEO IS THE OUTPUT RANGE WHICH SHOULD EQUAL THE INPUT RANGE.            
+C                                                                               
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,                    
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                             
+C                                                                               
+      REAL*8           SAVE,STHETA,CAPRJ,PNTGRN,CTHETA,CTHET1,DX,               
+     *     DRNG,DBETA,R,DIFF,CPATH,ANDEXD,SH,GAMMA,RX,RATIO,RPLDR               
+C                                                                               
+      DATA DR/0.005/                                                            
+C                                                                               
+      IF (RANGEI .LT. DR) STOP'STOPPED IN FNDPTH'                               
+C                                                                               
+C     (RANGEI .LT. DR) SHOULD NOT HAPPEN; SO THIS CHECK IS REDUNDANT.           
+C                                                                               
+      RANGEO = 0                                                                
+      BETA = 0                                                                  
+      DO 200 I = 1, 2                                                           
+C                                                                               
+         IF (ANGLE .LE. 90.0000 .AND. I .EQ. 1) GO TO 200                       
+C                                                                               
+C        IF (ANGLE .LE. 90.0000) THE PATH DOES NOT GO THROUGH HTAN.             
+C        IF (ANGLE .LE. 90.0000) THE I = 1 CALCULATION SHOULD NOT BE DONE       
+C        IF (ANGLE .LE. 90.0000) FOR I = 2, R1 = H1                             
+C                                                                               
+         IF (I .EQ. 1) THEN                                                     
+            R1 = H1                                                             
+            R2 = HTAN                                                           
+         ELSEIF (I .EQ. 2) THEN                                                 
+            IF (HTAN .LT. 0.001 .AND. ANGLE .GT. 90) GO TO 200                  
+C                                                                               
+C           IF (HTAN APPROXIMATELY 0) THEN YOU ARE ABOUT TO HIT THE EARTH       
+C                                                                               
+            R2 = ZMAX                                                           
+            IF (ANGLE .LE. 90.0000) THEN                                        
+               R1 = H1                                                          
+            ELSE                                                                
+               R1 =HTAN                                                         
+            ENDIF                                                               
+         ENDIF                                                                  
+         IF (R2 .LT. R1) THEN                                                   
+            DZ = -DR                                                            
+         ELSE                                                                   
+            DZ = DR                                                             
+         ENDIF                                                                  
+c                                                                               
+                                                                                
+         z = r1                                                                 
+         DO 100 while (z.lt.r2)                                                 
+            Z2=Z                                                                
+            R=Z+RE                                                              
+            CALL FNDSHD(Z2,SH,GAMMA)                                            
+            RX=ANDEXD(Z2,SH,GAMMA)                                              
+            STHETA = CPATH/(RX*R)                                               
+            IF (STHETA .GT. 1.0) STHETA = 1.                                    
+            IF (STHETA .LT.-1.0) STHETA =-1.                                    
+            SAVE = STHETA                                                       
+            CTHETA = SQRT(1.0-STHETA**2)                                        
+            IF (R1 .GT. R2) CTHETA = -CTHETA                                    
+C                                                                               
+C           IF (R1 .GT. R2) THEN CTHETA IS NEGATIVE BECAUSE THETA .GT. 90       
+C                                                                               
+            RATIO=-(RX*SH)/(RX-1.0)                                             
+            CAPRJ = -R/RATIO                                                    
+            PNTGRN = 1.0/(1.0-CAPRJ*STHETA*STHETA)                              
+            RPLDR = R+DZ                                                        
+            Z2 = Z+DZ                                                           
+            CALL FNDSHD(Z2,SH,GAMMA)                                            
+            RX=ANDEXD(Z2,SH,GAMMA)                                              
+            STHETA = CPATH/(RX*RPLDR)                                           
+            CTHET1 = CTHETA                                                     
+            CTHETA = SQRT(1.0-STHETA**2)                                        
+            IF (R1 .GT. R2) CTHETA = -CTHETA                                    
+            DX=CTHETA*DZ+(CTHETA-CTHET1)*R                                      
+            DRNG = PNTGRN*DX                                                    
+            RANGEO = RANGEO + DRNG                                              
+C                                                                               
+            DBETA = (((SAVE+STHETA)*0.5) * (PNTGRN*DX)) /                       
+     *              (Z-0.5*DZ+RE)                                               
+            BETA = BETA+DBETA                                                   
+            IF (RANGEO .GE. RANGEI) THEN                                        
+               DIFF = (RANGEI-(RANGEO-DRNG))                                    
+               H2 = Z + (DZ/DRNG)*DIFF                                          
+               BETA = BETA*DEG                                                  
+               IF (I .EQ. 2) THEN                                               
+                  LEN = 1                                                       
+                  IF (ANGLE .LE. 90.0000) LEN = 0                               
+                  IF (H2 .LT. HTAN) THEN                                        
+C                                                                               
+C                    THIS WILL BE THE CASE IF I = 2, AND YOU HAVE               
+C                    GONE THROUGH THE R-LOOP BARELY (ONLY) ONCE.                
+C                                                                               
+                     H2 = HTAN                                                  
+                     LEN = 0                                                    
+                  ENDIF                                                         
+               ELSE                                                             
+                  LEN = 0                                                       
+               ENDIF                                                            
+C                                                                               
+C              CORRECTION FOR VERY SHORT PATHS; HERE IT IS ABOUT 5 KM           
+C                                                                               
+               IF (RANGEI .LT. 5.0 .AND. RANGEO/RANGEI .GT. 1.05) THEN          
+C                                                                               
+C                 CALCULATE BETA BY STARIGHT LINE GEOMETRY.                     
+C                                                                               
+                  PERP  = SIN(ANGLE/DEG)*RANGEI                                 
+                  BASE = COS(ANGLE/DEG)*RANGEI + RE+H1                          
+                  BETA = ATAN(PERP/BASE)*DEG                                    
+                  RANGEO = RANGEI                                               
+C                                                                               
+C                 H2 = BASE - RE                                                
+C                                                                               
+                  H2 = COS(ANGLE/DEG)*RANGEI+H1                                 
+               ENDIF                                                            
+               PHI = 180.0 - ACOS(CTHETA)*DEG                                   
+               RETURN                                                           
+            ENDIF                                                               
+            z=z+dz                                                              
+ 100     CONTINUE                                                               
+ 200  CONTINUE                                                                  
+C                                                                               
+C     COMES HERE IF YOU HAVE REACHED ZMAX, BUT YOUR RANGEI IS STILL             
+C     NOT EQUAL TO OUTPUT VALUE.                                                
+C     IN THIS CASE DO THE FOLLOWING.                                            
+C                                                                               
+      RANGEI = RANGEO                                                           
+      H2 = ZMAX                                                                 
+      IF (ANGLE .LE. 90) THEN                                                   
+         LEN = 0                                                                
+      ELSE                                                                      
+         LEN = 1                                                                
+      ENDIF                                                                     
+      IF (HTAN .LT. 0.001 .AND. ANGLE .GT. 90) THEN                             
+C                                                                               
+C        YOU HAVE HIT THE EARTH IF YOU ARE AT THIS POINT OF THE CODE            
+C                                                                               
+         LEN = 0                                                                
+         H2 = 0                                                                 
+      ENDIF                                                                     
+      BETA = BETA*DEG                                                           
+      PHI = 180.0 - ACOS(CTHETA)*DEG                                            
+C                                                                               
+      RETURN                                                                    
+      END                                                                       
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE FNDSHD (H,SH,GAMMA)                                            
+C                                                                               
+C     Double precision version of FINDSH - needed for improved geometry         
+C                                                                               
+C     *****************************************************************         
+C     GIVEN AN ALTITUDE H, THIS SUBROUTINE FINDS THE LAYER BOUNDARIES           
+C     Z(I1) AND Z(I2) WHICH CONTAIN H,  THEN CALCULATES THE SCALE               
+C     HEIGHT (SH) AND THE VALUE AT THE GROUND (GAMMA+1) FOR THE                 
+C     REFRACTIVITY (INDEX OF REFRACTION -1)                                     
+C     *****************************************************************         
+C                                                                               
+      PARAMETER (MXFSC=600,MXLAY=MXFSC+3,MXZMD=6000,                            
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)            
+C                                                                               
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,               
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,              
+     *              NLTEFL,LNFIL4,LNGTH4                                        
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,                    
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                             
+      COMMON RELHUM(MXZMD),HSTOR(MXZMD),ICH(4),AVH(16),TX(16),W(16)             
+      COMMON WPATH(IM2,16),TBBY(IM2)                                            
+      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),AVX2(47),AWCCON(5)                
+C                                                                               
+      REAL*8                SH,GAMMA                                            
+      CHARACTER*8      HMOD                                                     
+C                                                                               
+      COMMON /CMN/HMOD(3),ZMDL(MXZMD),PM(MXZMD),TM(MXZMD),RFNDXM(MXZMD),        
+     *       ZPTH(IM2),PP(IM2),TP(IM2),RFNDXP(IM2),SP(IM2),PPSUM(IM2),          
+     *       TPSUM(IM2),RHOPSM(IM2),IMLOW,WGM(MXZMD),DENW(MXZMD),               
+     *       AMTP(MXMOL,MXPDIM)                                                 
+C                                                                               
+      DO 10 IM = 2, IMMAX                                                       
+         I2 = IM                                                                
+         IF (ZMDL(IM).GE.H) GO TO 20                                            
+   10 CONTINUE                                                                  
+      I2 = IMMAX                                                                
+   20 CONTINUE                                                                  
+      I1 = I2-1                                                                 
+      CALL SCLHTD (ZMDL(I1),ZMDL(I2),RFNDXM(I1),RFNDXM(I2),SH,GAMMA)            
+C                                                                               
+      RETURN                                                                    
+C                                                                               
+      END                                                                       
+C                                                                               
+C     ----------------------------------------------------------------          
+C                                                                               
+      SUBROUTINE SCLHTD (Z1,Z2,RFNDX1,RFNDX2,SH,GAMMA)                          
+C                                                                               
+C     Double precision version of SCALHT - needed for improved geometry         
+C                                                                               
+C     *****************************************************************         
+C     THIS SUBROUTINE CALCULATES THE SCALE HEIGHT SH OF THE (INDEX OF           
+C     REFRACTION-1.0) FROM THE VALUES OF THE INDEX AT THE ALTITUDES Z1          
+C     AND Z2 ( Z1 < Z2). IT ALSO CALCULATES THE EXTRAPOLATED VALUE              
+C     GAMMA OF THE (INDEX-1.0) AT Z = 0.0                                       
+C     *****************************************************************         
+C                                                                               
+      REAL*8           SH,GAMMA                                                 
+C                                                                               
+      RF1 = RFNDX1+1.0E-20                                                      
+      RF2 = RFNDX2+1.0E-20                                                      
+      RATIO = RF1/RF2                                                           
+      IF (ABS(RATIO-1.0).LT.1.0E-05) GO TO 10                                   
+      SH = (Z2-Z1)/ LOG(RATIO)                                                  
+      GAMMA = RF1*(RF2/RF1)**(-Z1/(Z2-Z1))                                      
+      GO TO 20                                                                  
+   10 CONTINUE                                                                  
+C                                                                               
+C     THE VARIATION IN THE INDEX OF REFRACTION WITH HEIGHT IS                   
+C     INSIGNIFICANT OR ZERO                                                     
+C                                                                               
+      SH = 0.0                                                                  
+      GAMMA = RFNDX1                                                            
+   20 CONTINUE                                                                  
+C                                                                               
+      RETURN                                                                    
+C                                                                               
+      END                                                                       
+C                                                                               
+C ----------------------------------------------------------------              
+C                                                                               
+      FUNCTION ANDEXD (H,SH,GAMMA)                                              
+C                                                                               
+C     Double precision version of ANDEX - needed for improved geometry          
+C                                                                               
+C     *****************************************************************         
+C     COMPUTES THE INDEX OF REFRACTION AT HEIGHT H, SH IS THE                   
+C     SCALE HEIGHT, GAMMA IS THE VALUE AT H=0 OF THE REFRACTIVITY =             
+C     INDEX-1                                                                   
+C     *****************************************************************         
+C                                                                               
+      REAL*8     andexd, SH,GAMMA                                               
+C                                                                               
+      IF (SH.EQ.0.0) THEN                                                       
+         ANDEXD = 1.0+GAMMA                                                     
+      ELSE                                                                      
+         ANDEXD = 1.0+GAMMA*EXP(-H/SH)                                          
+      ENDIF                                                                     
+C                                                                               
+      RETURN                                                                    
+C                                                                               
+      END                                                                       
+C                                                                               
+C ----------------------------------------------------------------              
+C                                                                               
+      FUNCTION RADRFD (H,SH,GAMMA)                                              
+C                                                                               
+C     Double precision version of RADREF - needed for improved geometry         
+C                                                                               
+C     *****************************************************************         
+C     COMPUTES THE RADIUS OF CURVATURE OF THE REFRACTED RAY FOR                 
+C     A HORIZONTAL PATH.  RADREF = ANDEX/ D(ANDEX)/D(RADIUS)                    
+C     *****************************************************************         
+C                                                                               
+      REAL*8     radrfd, SH,GAMMA,BIGNUM                                        
+      DATA BIGNUM / 1.0D36 /                                                    
+C                                                                               
+      IF (SH.EQ.0.0) GO TO 10                                                   
+      RADRFD = SH*(1.0+EXP(H/SH)/GAMMA)                                         
+C                                                                               
+      RETURN                                                                    
+C                                                                               
+   10 RADRFD = BIGNUM                                                           
+C                                                                               
+      RETURN                                                                    
+C                                                                               
+      END                                                                       
+C                                                                               
+                                                                                
+      SUBROUTINE CMPALT(ILVL,PM,TM,DENW,REF_Z,REF_LAT,ZMDL)                     
+                                                                                
+C**************************************************************                 
+C     AUTHOR: TONY CLOUGH, JENNIFER DELAMERE, JOHN WARDEN                       
+C             JANUARY 2001                                                      
+C     PROGRAM TO CALCULATE ALTITUDE LEVEL (ZMDL) GIVEN                          
+C     PRESSURE (PM), TEMPERATURE (TM) AND THE NUMBER DENSITY                    
+C     OF WATER VAPOR (DENW) USING THE HYDROSTATIC EQUATION                      
+C                                                                               
+C     INPUT:                                                                    
+C      A) PRESSURE (MBAR)                                                       
+C      B) TEMPERATURE (KELVIN)                                                  
+C      C) NUMBER DENSITY OF WATER VAPOR                                         
+C                                                                               
+C     OUTPUT:                                                                   
+C      A) ALTITUDE (KM)                                                         
+C      IDEAL GAS LAW: CRIDOR (1996)                                             
+C**************************************************************                 
+                                                                                
+      PARAMETER (MXFSC=600, MXLAY=MXFSC+3,MXZMD=6000,                           
+     *           MXPDIM=MXLAY+MXZMD,IM2=MXPDIM-2,MXMOL=39,MXTRAC=22)            
+                                                                                
+      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF,NPHDRF,NFHDRL,NPHDRL,        FA00880
+     *              NLNGTH,KFILE,KPANEL,LINFIL,NFILE,IAFIL,IEXFIL,       FA00890
+     *              NLTEFL,LNFIL4,LNGTH4                                 FA00900
+                                                                                
+      COMMON /PARMTR/ DEG,GCAIR,RE,DELTAS,ZMIN,ZMAX,NOPRNT,IMMAX,               
+     *                IMDIM,IBMAX,IBDIM,IOUTMX,IOUTDM,IPMAX,             FA00920
+     *                IPHMID,IPDIM,KDIM,KMXNOM,NMOL                             
+      COMMON /CONSTS/ PI,PLANCK,BOLTZ,CLIGHT,AVOGAD,ALOSMT,GASCON,              
+     *                RADCN1,RADCN2,GRAV,CPDAIR,AIRMWT,SECDY                    
+C                                                                               
+      REAL PM(MXZMD),TM(MXZMD),DENW(MXZMD),ZMDL(MXZMD)                          
+      REAL H2O_MIXRAT(MXZMD),COMP_FACTOR(MXZMD),ZTEMP(MXZMD)                    
+                                                                                
+      REAL Y                                                                    
+      REAL CHI0                                                                 
+      REAL T0,DT                                                                
+      REAL C1,C2,C3                                                             
+      REAL A, B, ALPHA                                                          
+c      REAL BTZ                                                                 
+      REAL XINT_TOT                                                             
+                                                                                
+      DATA CA0/1.58123E-6/,CA1/-2.9331E-8/,CA2/1.1043E-10/                      
+      DATA CB0/5.707E-6/,CB1/-2.051E-8/                                         
+      DATA CC0/1.9898E-4/,CC1/-2.376E-6/                                        
+      DATA CD/1.83E-11/,CE/-0.0765E-8/                                          
+                                                                                
+      DATA XMASS_H2O/0.018015/,XMASS_DRY/0.0289654/                             
+                                                                                
+C CALCULATE GRAVITY AT REFERENCE LATITUDE AT SURFACE (cm/s2)                            
+                                                                                
+      G0 = GRAV - 2.586*COS(2.0*PI*REF_LAT/180.0)                             
+                                                                                
+C CALCULATE THE NUMBER DENSITY OF TOTAL AIR MOLECULES [MOLEC/CM^3]              
+C CALCULATE THE COMPRESSIBILITY FACTOR (COMP_FAC) FOR THE                       
+C IDEAL GAS LAW                                                                 
+      XMASS_RATIO = XMASS_H2O/XMASS_DRY                                         
+      DO 10 J=1,ILVL                                                            
+         DT = TM(J) - 273.15                                                    
+
+c converting pressure to CGS
+         TOTAL_AIR = PM(J)*1.0E+3/(BOLTZ*TM(J))                                 
+         DRY_AIR = TOTAL_AIR - DENW(J)                                          
+         H2O_MIXRAT(J) = DENW(J)/DRY_AIR                                        
+         CHIM = XMASS_RATIO*H2O_MIXRAT(J)                                       
+         COMP_FACTOR(J) = 1. - (PM(J)*100/TM(J))*                               
+     *        (CA0 + CA1*DT + CA2*DT**2 +                                       
+     *        (CB0 + CB1*DT)*CHIM + (CC0 + CC1*DT)*CHIM**2) +                   
+     *        (CD + CE*CHIM**2)*(PM(J)*100./TM(J))**2                           
+ 10   CONTINUE                                                                  
+                                                                                
+C CONVERT REFERENCE ALTITUDE TO METERS                                          
+                                                                                
+      ZTEMP(1) = REF_Z*1000.0                                                   
+      ZMDL(1) = REF_Z                                                           
+      print *,'in CMPALT'
+                                                                                
+      DO 20 I=1, ILVL - 1                                                       
+         GAVE = G0*(RE/(RE+ZTEMP(I)/1000.0))**2                                 
+
+c Now convert to to m/s2 for use with xmass_dry (kg) below
+         GAVE = GAVE/100.
+         Y =  LOG(PM(I+1)/PM(I))                                                
+                                                                                
+         IF (Y. NE. 0.0) THEN                                                   
+            CHI0 = H2O_MIXRAT(I)                                                
+            DCHI = (H2O_MIXRAT(I+1)-H2O_MIXRAT(I))/Y                            
+                                                                                
+            T0 = TM(I)                                                          
+            DT = (TM(I+1) - TM(I))/Y                                            
+                                                                                
+            C1 = T0 + T0*CHI0                                                   
+            C2 = T0*DCHI + DT*CHI0 + DT                                         
+            C3 = DT*DCHI                                                        
+                                                                                
+            B = 1 + XMASS_RATIO*CHI0                                            
+            A = XMASS_RATIO*DCHI                                                
+            ALPHA = A/B                                                         
+                                                                                
+            IF ( ABS(ALPHA*Y) .GE. 0.01) THEN                                   
+               PRINT*,'LAYER TOO THICK'                                         
+               STOP                                                             
+            ENDIF                                                               
+                                                                                
+            XINT_TOT = C1*Y + 0.5*(C2-C1*ALPHA)*Y**2 +                          
+     &           0.3333*(C3-C2*ALPHA+C1*ALPHA**2)*Y**3                          
+
+c 1.0e-7 converts GASCON to MKS, for consistency with xmass_dry and gave
+            XINT_TOT =  -XINT_TOT*(GASCON*1.0e-7)/(XMASS_DRY*GAVE*B)                     
+                                                                                
+            ZTEMP(I+1) = ZTEMP(I) + XINT_TOT*COMP_FACTOR(I)                     
+            ZMDL(I+1) = ZTEMP(I+1)/1000.                                        
+        ELSE                                                                    
+           ZTEMP(I+1) = ZMDL(I)*1000.0                                          
+           ZMDL(I+1) = ZMDL(I)                                                  
+        ENDIF                                                                   
+ 20      CONTINUE                                                               
+                                                                                
+         RETURN                                                                 
+                                                                                
+      END                                                                       
+                                                                                
diff --git a/radiation/src/rrtmg_lw.1col.f90 b/radiation/src/rrtmg_lw.1col.f90
new file mode 100644
index 0000000000000000000000000000000000000000..221ebdbaf6fefc4a4b7ab426502c9f5bbcc1101d
--- /dev/null
+++ b/radiation/src/rrtmg_lw.1col.f90
@@ -0,0 +1,1366 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+      program rrtmg_lw
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+!
+! ****************************************************************************
+! *                                                                          *
+! *                              RRTMG_LW                                    *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                   a rapid radiative transfer model                       *
+! *                       for the longwave region                            * 
+! *             for application to general circulation models                *
+! *                                                                          *
+! *                                                                          *
+! *            Atmospheric and Environmental Research, Inc.                  *
+! *                        131 Hartwell Avenue                               *
+! *                        Lexington, MA 02421                               *
+! *                                                                          *
+! *                                                                          *
+! *                           Eli J. Mlawer                                  *
+! *                        Jennifer S. Delamere                              *
+! *                         Michael J. Iacono                                *
+! *                         Shepard A. Clough                                *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                       email:  miacono@aer.com                            *
+! *                       email:  emlawer@aer.com                            *
+! *                       email:  jdelamer@aer.com                           *
+! *                                                                          *
+! *        The authors wish to acknowledge the contributions of the          *
+! *        following people:  Steven J. Taubman, Karen Cady-Pereira,         *
+! *        Patrick D. Brown, Ronald E. Farren, Luke Chen, Robert Bergstrom.  *
+! *                                                                          *
+! ****************************************************************************
+
+! -------- Description --------
+
+! This program is the driver for RRTMG_LW, the AER LW radiation model for 
+! application to GCMs, that has been adapted from RRTM_LW for improved 
+! efficiency.
+!
+! This routine:
+!    a) calls RRTMG_LW_INI to intialize data and to perform
+!       the g-point interval reduction from 256 to 140. 
+!    b) calls READPROF to read in the atmospheric profile;
+!       all layering in RRTMG is ordered from surface to toa. 
+!    c) calls CLDPROP to set cloud optical depth based on input
+!       cloud properties, or CLDPRMC to set cloud optical depth
+!       for McICA
+!    d) calls SETCOEF to calculate various quantities needed for 
+!       the radiative transfer algorithm
+!    e) calls TAUMOL to calculate gaseous optical depths for each 
+!       of the 16 spectral bands
+!    f) calls RTRNMR (for both clear and cloudy profiles) to perform the
+!       radiative transfer calculation with a maximum-random cloud
+!       overlap method, or calls RTRN to use random cloud overlap,
+!       or calls RTRNMC to use McICA, the Monte-Carlo Independent 
+!       Column Approximation, to represent sub-grid scale cloud 
+!       variability
+!    g) writes out the calculated fluxes and cooling rates
+!
+! Two modes of operation are possible:
+!     The mode is chosen by setting flag imca below.  
+!
+!    1) Standard, single forward model calculation (imca = 0)
+!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., 
+!       JC, 2003) method is applied to the forward model calculation (imca = 1)
+!       For single column calculations, this method also requires setting flag
+!       nmca below to the sample size of the Monte Carlo calculation; 
+!       (nmca = 200 is recommended)
+!
+! Two random number generators are available for use when imca = 1
+!     This is chosen by setting flag irng below.  
+!
+!    1) KISSVEC (irng = 0)
+!    2) Mersenne Twister (irng = 1); the default setting
+!
+! Two methods of cloud property input are possible:
+!     Cloud properties can be input in one of two ways (controlled by input 
+!     flags inflag, iceflag and liqflag; see text file rrtmg_lw_instructions
+!     and subroutine rrtmg_lw_cldprop.f90 for further details):
+!
+!    1) Input cloud fraction and cloud optical depth directly (inflglw = 0)
+!    2) Input cloud fraction and cloud physical properties (inflglw = 1 or 2);  
+!       cloud optical properties are calculated by cldprop or cldprmc based
+!       on input settings of iceflglw and liqflglw.  Ice particle size provided
+!       must be appropriately defined for the ice parameterization selected. 
+!
+! One method of aerosol property input is possible:
+!     Aerosol properties can be input in only one way (controlled by input
+!     flag iaer; see text file rrtmg_lw_instructions further details):
+!
+!    1) Input aerosol optical depth directly by layer and spectral band (iaer=10);
+!       band average optical depth at the mid-point of each spectral band.
+!       RRTMG_LW currently treats only aerosol absorption;
+!       scattering capability is not presently available.
+!
+! The optional calculation of the change in upward flux as a function of surface 
+! temperature is available (controlled by input flag idrv).  This can be utilized 
+! to approximate adjustments to the upward flux profile caused only by a change in 
+! surface temperature between full radiation calls.  This feature uses the pre-
+! calculated derivative of the Planck function with respect to surface temperature. 
+!
+!    1) Normal forward calculation for the input profile (idrv=0)
+!    2) Normal forward calculation with optional calculation of the change
+!       in upward flux as a function of surface temperature for clear sky
+!       and total sky flux.  Flux partial derivatives are provided in arrays
+!       dtotuflux_dt and dtotuclfl_dt for total and clear sky.  (idrv=1)
+!
+!
+! ------- Modifications -------
+!
+! This version of RRTMG_LW has been modified from RRTM_LW to use a reduced 
+! set of g-points for application to GCMs.  
+!
+!-- Original version (derived from RRTM_LW), reduction of g-points, other
+!   revisions for use with GCMs.  
+!     1999: M. J. Iacono, AER, Inc.
+!-- Adapted for use with NCAR/CAM.
+!     May 2004: M. J. Iacono, AER, Inc.
+!-- Revised to add McICA capability. 
+!     Nov 2005: M. J. Iacono, AER, Inc.
+!-- Conversion to F90 formatting for consistency with rrtmg_sw.
+!     Feb 2007: M. J. Iacono, AER, Inc.
+!-- Added aerosol absorption capability.
+!     Mar 2008: M. J. Iacono, AER, Inc.
+!-- Added capability to adjust upward flux for a change only in surface temperature. 
+!     Nov 2009: M. J. Iacono, E. J. Mlawer, AER, Inc.
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrtm, only : mxlay, nbndlw, ngptlw, maxxsec, mxmol
+      use rrlw_con, only: fluxfac, heatfac, oneminus, pi
+      use rrlw_wvn, only: ng, ngb, nspa, nspb, wavenum1, wavenum2, delwave
+      use rrlw_vsn
+      use mcica_subcol_gen_lw, only: get_alpha, mcica_subcol_lw
+      use rrtmg_lw_cldprop, only: cldprop
+      use rrtmg_lw_cldprmc, only: cldprmc
+      use rrtmg_lw_init, only: rrtmg_lw_ini
+      use rrtmg_lw_rtrn, only: rtrn
+      use rrtmg_lw_rtrnmr, only: rtrnmr
+      use rrtmg_lw_rtrnmc, only: rtrnmc
+      use rrtmg_lw_setcoef, only: setcoef
+      use rrtmg_lw_taumol, only: taumol
+
+      implicit none
+
+! ------- Declarations -------
+
+! ----- Local -----
+
+! Control
+      integer(kind=im) :: nlayers             ! total number of layers
+      integer(kind=im) :: istart              ! beginning band of calculation
+      integer(kind=im) :: iend                ! ending band of calculation
+      integer(kind=im) :: icld                ! clear/cloud flag
+      integer(kind=im) :: iflag               ! control flag
+      integer(kind=im) :: iout                ! output option flag
+      integer(kind=im) :: iaer                ! aerosol option flag
+      integer(kind=im) :: ird                 ! input unit
+      integer(kind=im) :: iwr                 ! output unit
+      integer(kind=im) :: i                   ! output index
+      integer(kind=im) :: ig                  ! g-point index
+      integer(kind=im) :: iplon               ! column loop index
+      integer(kind=im) :: ims                 ! mcica statistical loop index
+      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]
+      integer(kind=im) :: nmca                ! number of mcica samples (mcica mode)
+      integer(kind=im) :: irng                ! flag for random number generator
+                                              ! [0=kissvec, 1=mersenne twister (default)]
+      integer(kind=im) :: idrv                ! flag for calculation of dFdT, the change
+                                              ! in upward flux as a function of surface 
+                                              ! temperature [0=off, 1=on]
+      integer(kind=im) :: lev, l              ! level indices
+      integer(kind=im), parameter :: ncol = 1 ! total number of columns
+      character page 
+
+! Atmosphere
+      real(kind=rb) :: pavel(mxlay)           ! layer pressures (mb) 
+      real(kind=rb) :: tavel(mxlay)           ! layer temperatures (K)
+      real(kind=rb) :: dz(mxlay)              ! layer thickness (m)
+      real(kind=rb) :: pz(0:mxlay)            ! level (interface) pressures (hPa, mb)
+      real(kind=rb) :: tz(0:mxlay)            ! level (interface) temperatures (K)
+      real(kind=rb) :: tbound                 ! surface temperature (K)
+      real(kind=rb) :: dtbound                ! change in surface temperature for idrv=1 (K)
+      real(kind=rb) :: coldry(mxlay)          ! dry air column density (mol/cm2)
+      real(kind=rb) :: wbrodl(mxlay)          ! broadening gas column density (mol/cm2)
+      real(kind=rb) :: wkl(mxmol,mxlay)       ! molecular amounts (mol/cm-2)
+      real(kind=rb) :: wx(maxxsec,mxlay)      ! cross-section amounts (mol/cm-2)
+      real(kind=rb) :: pwvcm                  ! precipitable water vapor (cm)
+      real(kind=rb) :: semiss(nbndlw)         ! lw surface emissivity
+      real(kind=rb) :: fracs(mxlay,ngptlw)    ! 
+      real(kind=rb) :: taug(mxlay,ngptlw)     ! gaseous optical depths
+      real(kind=rb) :: taut(mxlay,ngptlw)     ! gaseous + aerosol optical depths
+
+      real(kind=rb) :: tauaer(mxlay,nbndlw)   ! aerosol optical depth
+!      real(kind=rb) :: ssaaer(mxlay,nbndlw)  ! aerosol single scattering albedo
+                                              ! for future expansion 
+                                              !   (lw aerosol scattering not yet available)
+!      real(kind=rb) :: asmaer(mxlay,nbndlw)  ! aerosol asymmetry parameter
+                                              ! for future expansion 
+                                              !   (lw aerosol scattering not yet available)
+
+! Atmosphere - setcoef
+      integer(kind=im) :: laytrop             ! tropopause layer index
+      integer(kind=im) :: jp(mxlay)           ! 
+      integer(kind=im) :: jt(mxlay)           !
+      integer(kind=im) :: jt1(mxlay)          !
+      real(kind=rb) :: planklay(mxlay,nbndlw)   ! 
+      real(kind=rb) :: planklev(0:mxlay,nbndlw) ! 
+      real(kind=rb) :: plankbnd(nbndlw)       ! 
+      real(kind=rb) :: dplankbnd_dt(nbndlw)   ! 
+
+      real(kind=rb) :: colh2o(mxlay)          ! column amount (h2o)
+      real(kind=rb) :: colco2(mxlay)          ! column amount (co2)
+      real(kind=rb) :: colo3(mxlay)           ! column amount (o3)
+      real(kind=rb) :: coln2o(mxlay)          ! column amount (n2o)
+      real(kind=rb) :: colco(mxlay)           ! column amount (co)
+      real(kind=rb) :: colch4(mxlay)          ! column amount (ch4)
+      real(kind=rb) :: colo2(mxlay)           ! column amount (o2)
+      real(kind=rb) :: colbrd(mxlay)          ! column amount (broadening gases)
+
+      integer(kind=im) :: indself(mxlay)
+      integer(kind=im) :: indfor(mxlay)
+      real(kind=rb) :: selffac(mxlay)
+      real(kind=rb) :: selffrac(mxlay)
+      real(kind=rb) :: forfac(mxlay)
+      real(kind=rb) :: forfrac(mxlay)
+
+      integer(kind=im) :: indminor(mxlay)
+      real(kind=rb) :: minorfrac(mxlay)
+      real(kind=rb) :: scaleminor(mxlay)
+      real(kind=rb) :: scaleminorn2(mxlay)
+
+      real(kind=rb) :: &                      !
+                         fac00(mxlay), fac01(mxlay), &
+                         fac10(mxlay), fac11(mxlay) 
+      real(kind=rb) :: &                      !
+                         rat_h2oco2(mxlay),rat_h2oco2_1(mxlay), &
+                         rat_h2oo3(mxlay),rat_h2oo3_1(mxlay), &
+                         rat_h2on2o(mxlay),rat_h2on2o_1(mxlay), &
+                         rat_h2och4(mxlay),rat_h2och4_1(mxlay), &
+                         rat_n2oco2(mxlay),rat_n2oco2_1(mxlay), &
+                         rat_o3co2(mxlay),rat_o3co2_1(mxlay)
+
+! Atmosphere/clouds - cldprop
+      integer(kind=im) :: ncbands             ! number of cloud spectral bands
+      integer(kind=im) :: inflag              ! flag for cloud property method
+      integer(kind=im) :: iceflag             ! flag for ice cloud properties
+      integer(kind=im) :: liqflag             ! flag for liquid cloud properties
+
+      real(kind=rb) :: cldfrac(mxlay)         ! layer cloud fraction
+      real(kind=rb) :: tauc(nbndlw,mxlay)     ! in-cloud optical depth (non-delta scaled)
+!      real(kind=rb) :: ssac(nbndlw,mxlay)    ! in-cloud single scattering albedo (non-delta scaled)
+                                              ! for future expansion 
+                                              !   (lw scattering not yet available)
+!      real(kind=rb) :: asmc(nbndlw,mxlay)    ! in-cloud asymmetry parameter (non-delta scaled)
+                                              ! for future expansion 
+                                              !   (lw scattering not yet available)
+      real(kind=rb) :: ciwp(mxlay)            ! in-cloud ice water path
+      real(kind=rb) :: clwp(mxlay)            ! in-cloud liquid water path
+      real(kind=rb) :: rei(mxlay)             ! cloud ice particle effective size (microns)
+                                              ! specific definition of rei depends on setting of iceflag:
+                                              ! iceflag = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                              !              r_ec must be >= 10.0 microns
+                                              ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                              !              r_ec range is limited to 13.0 to 130.0 microns
+                                              ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+                                              !              r_k range is limited to 5.0 to 131.0 microns
+                                              ! iceflag = 3: generalized effective size, dge, (Fu, 1996),
+                                              !              dge range is limited to 5.0 to 140.0 microns
+                                              !              [dge = 1.0315 * r_ec]
+      real(kind=rb) :: rel(mxlay)             ! cloud liquid particle effective radius (microns)
+
+      real(kind=rb) :: taucloud(mxlay,nbndlw) ! in-cloud optical depth; delta scaled
+!      real(kind=rb) :: ssacloud(mxlay,nbndlw)! in-cloud single scattering albedo; delta scaled
+                                              ! for future expansion 
+                                              !   (lw scattering not yet available)
+!      real(kind=rb) :: asmcloud(mxlay,nbndlw)! in-cloud asymmetry parameter; delta scaled
+                                              ! for future expansion 
+                                              !   (lw scattering not yet available)
+
+! Atmosphere/clouds - cldprmc [mcica]
+      real(kind=rb) :: cldfmc(ngptlw,mxlay)   ! cloud fraction [mcica]
+      real(kind=rb) :: ciwpmc(ngptlw,mxlay)   ! in-cloud ice water path [mcica]
+      real(kind=rb) :: clwpmc(ngptlw,mxlay)   ! in-cloud liquid water path [mcica]
+      real(kind=rb) :: relqmc(mxlay)          ! liquid particle effective radius (microns)
+      real(kind=rb) :: reicmc(mxlay)          ! ice particle effective radius (microns)
+      real(kind=rb) :: taucmc(ngptlw,mxlay)   ! in-cloud optical depth [mcica]
+!      real(kind=rb) :: ssacmc(ngptlw,mxlay)  ! in-cloud single scattering albedo [mcica]
+                                              ! for future expansion 
+                                              !   (lw scattering not yet available)
+!      real(kind=rb) :: asmcmc(ngptlw,mxlay)  ! in-cloud asymmetry parameter [mcica]
+                                              ! for future expansion 
+
+                                              !   (lw scattering not yet available)
+
+      real(kind=rb) :: dtotuflux_dt(0:mxlay)  ! change in upward longwave flux (w/m2/k)
+                                              ! with respect to surface temperature
+      real(kind=rb) :: dtotuclfl_dt(0:mxlay)  ! change in clear sky upward longwave flux (w/m2/k)
+                                              ! with respect to surface temperature
+      real(kind=rb) :: alpha(mxlay)           ! vertical cloud fraction correlation parameter
+      real(kind=rb) :: decorr_con             ! cloud fraction decorrelation length, constant (meters)
+      integer(kind=im) :: juldat              ! Julian date (day of year)
+      integer(kind=im) :: idcor               ! Decorrelation length type
+      real(kind=rb) :: lat                    ! latitude (degrees)
+
+! Parameters
+      real(kind=rb), parameter :: cpdair = 1.004e3_rb  ! Specific heat capacity of dry air
+                                                       ! at constant pressure at 273 K
+                                                       ! (J kg-1 K-1)
+! Output
+      real(kind=rb) :: totuflux(0:mxlay)      ! upward longwave flux (w/m2)
+      real(kind=rb) :: totdflux(0:mxlay)      ! downward longwave flux (w/m2)
+      real(kind=rb) :: fnet(0:mxlay)          ! net longwave flux (w/m2)
+      real(kind=rb) :: htr(0:mxlay)           ! longwave heating rate (k/day)
+      real(kind=rb) :: totuclfl(0:mxlay)      ! clear sky upward longwave flux (w/m2)
+      real(kind=rb) :: totdclfl(0:mxlay)      ! clear sky downward longwave flux (w/m2)
+      real(kind=rb) :: fnetc(0:mxlay)         ! clear sky net longwave flux (w/m2)
+      real(kind=rb) :: htrc(0:mxlay)          ! clear sky longwave heating rate (k/day)
+! Output (mean output for McICA calculation)
+      real(kind=rb) :: uflxsum(0:mxlay)       ! upward longwave flux (w/m2)
+      real(kind=rb) :: dflxsum(0:mxlay)       ! downward longwave flux (w/m2)
+      real(kind=rb) :: fnetsum(0:mxlay)       ! net longwave flux (w/m2)
+      real(kind=rb) :: htrsum(0:mxlay)        ! longwave heating rate (k/day)
+
+!
+! Initializations
+
+      hvrrtm = '$Revision$'
+      hvrini = 'NOT USED'
+      hvrcld = 'NOT USED'
+      hvrclc = 'NOT USED'
+      hvrrtr = 'NOT USED'
+      hvrrtx = 'NOT USED'
+      hvrrtc = 'NOT USED'
+      hvrset = 'NOT USED'
+      hvrtau = 'NOT USED'
+      hvrkg  = '$Revision$'
+      hvratm = 'NOT USED'
+      hvrutl = 'NOT USED'
+      hvrext = 'NOT USED'
+
+      hnamrtm = '  rrtmg_lw.1col.f90:'
+      hnamini = '  rrtmg_lw_init.f90:'
+      hnamcld = 'rrtmglw_cldprop.f90:'
+      hnamclc = 'rrtmglw_cldprmc.f90:'
+      hnamrtr = '  rrtmg_lw_rtrn.f90:'
+      hnamrtx = 'rrtmg_lw_rtrnmr.f90:'
+      hnamrtc = 'rrtmg_lw_rtrnmc.f90:'
+      hnamset = 'rrtmglw_setcoef.f90:'
+      hnamtau = 'rrtmg_lw_taumol.f90:'
+      hnamkg  = '   rrtmg_lw_k_g.f90:'
+      hnamatm = '           rrtatm.f:'
+      hnamutl = '         util_xxx.f:'
+      hnamext = '            extra.f:'
+
+      oneminus = 1._rb - 1.e-6_rb
+      pi = 2._rb * asin(1._rb)
+      fluxfac = pi * 2.e4_rb                ! orig:   fluxfac = pi * 2.d4  
+      ird = 9
+      iwr = 10
+      page = char(12)
+
+      uflxsum(0:) = 0._rb
+      dflxsum(0:) = 0._rb
+      fnetsum(0:) = 0._rb
+      htrsum(0:) = 0._rb
+
+! Set imca to select calculation type
+!  (read by subroutine readprof from input file INPUT_RRTM):
+! imca = 0, use standard forward model calculation
+! imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability
+
+! Set irng to select random number generator for McICA (used when imca = 1)
+! irng = 0, KISSVEC
+! irng = 1, Mersenne Twister
+!      irng = 0
+      irng = 1
+
+! Set icld to select of clear or cloud calculation and cloud overlap method
+!  (read by subroutine readprof from input file INPUT_RRTM):  
+! icld = 0, clear only
+! icld = 1, with clouds using random cloud overlap
+! icld = 2, with clouds using maximum_random cloud overlap
+! icld = 3, with clouds using maximum cloud overlap (McICA only)
+! icld = 4, with clouds using exponential cloud overlap (McICA only)
+! icld = 5, with clouds using exponential_random cloud overlap (McICA only)
+
+! Call model and data initialization, compute lookup tables, perform
+! reduction of g-points from 256 to 140 for input absorption
+! coefficient data and other arrays.
+!
+! In a GCM this call should be placed in the model initialization
+! area, since this has to be called only once.  
+
+      call rrtmg_lw_ini(cpdair)
+
+! Open the input set of atmospheres
+      open (ird,file='INPUT_RRTM',form='formatted')
+! Open the output file
+      open (iwr,file='OUTPUT_RRTM',form='formatted')
+      
+! This is the main longitude/column loop within rrtmg.
+
+      do iplon = 1, ncol
+
+! Input atmospheric profile from INPUT_RRTM.
+         call readprof(ird, nlayers, iout, imca, icld, iaer, idrv, &
+                       pavel, tavel, pz, tz, tbound, dz, semiss, &
+                       dtbound, coldry, wkl, wbrodl, wx, pwvcm, &
+                       inflag, iceflag, liqflag, cldfrac, &
+                       tauc, ciwp, clwp, rei, rel, tauaer, &
+                       decorr_con, juldat, idcor, lat)
+
+         istart = 1
+         iend = 16
+         iflag = iout
+
+! Set nmca to sample size for Monte Carlo calculation
+         if (imca.eq.0) nmca = 1
+         if (imca.eq.1) nmca = 200
+
+! Return here for multiple band output
+ 1000    continue
+         if (iflag .gt. 0 .and. iflag .le. 40) then
+            istart = iflag
+            iend = iflag
+         endif
+
+! This is the statistical sampling loop for McICA
+
+         do ims = 1, nmca
+
+! Call sub-colum cloud generator for McICA calculations
+! Output will be written for all nmca samples.  This will be excessive if
+! band output (iout=99) option is selected. 
+
+            if (imca.eq.1) then
+               alpha(:) = 0.0_rb
+               if (icld .eq. 4 .or. icld .eq. 5) then 
+                  call get_alpha(iplon, nlayers, icld, idcor, decorr_con, &
+                                 dz, lat, juldat, cldfrac, alpha)
+               endif
+               call mcica_subcol_lw(iplon, nlayers, icld, ims, irng, pavel, &
+                          cldfrac, ciwp, clwp, rei, rel, tauc, alpha, &
+                          cldfmc, ciwpmc, clwpmc, reicmc, relqmc, taucmc)
+            endif
+
+!  For cloudy atmosphere, use cldprop to set cloud optical properties based on
+!  input cloud physical properties.  Select method based on choices described
+!  in cldprop.  Cloud fraction, water path, liquid droplet and ice particle
+!  effective radius must be passed into cldprop.  Cloud fraction and cloud
+!  optical depth are transferred to rrtmg_lw arrays in cldprop.  
+
+!  If McICA is requested use cloud fraction and cloud physical properties 
+!  generated by sub-column cloud generator above. 
+
+            if (imca.eq.0) then
+               call cldprop(nlayers, inflag, iceflag, liqflag, cldfrac, tauc, &
+                            ciwp, clwp, rei, rel, ncbands, taucloud)
+            else
+               call cldprmc(nlayers, inflag, iceflag, liqflag, cldfmc, &
+                            ciwpmc, clwpmc, reicmc, relqmc, ncbands, taucmc)
+            endif
+
+! Calculate information needed by the radiative transfer routine
+! that is specific to this atmosphere, especially some of the 
+! coefficients and indices needed to compute the optical depths
+! by interpolating data from stored reference atmospheres. 
+
+            call setcoef(nlayers, istart, pavel, tavel, tz, tbound, semiss, &
+                         coldry, wkl, wbrodl, &
+                         laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &
+                         idrv, dplankbnd_dt, &
+                         colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &
+                         colbrd, fac00, fac01, fac10, fac11, &
+                         rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &
+                         rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &
+                         rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &
+                         selffac, selffrac, indself, forfac, forfrac, indfor, &
+                         minorfrac, scaleminor, scaleminorn2, indminor)
+
+!  Calculate the gaseous optical depths and Planck fractions for 
+!  each longwave spectral band.
+
+            call taumol(nlayers, pavel, wx, coldry, &
+                        laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &
+                        colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &
+                        colbrd, fac00, fac01, fac10, fac11, &
+                        rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &
+                        rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &
+                        rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &
+                        selffac, selffrac, indself, forfac, forfrac, indfor, &
+                        minorfrac, scaleminor, scaleminorn2, indminor, &
+                        fracs, taug)
+
+! Combine gaseous and aerosol optical depths, if aerosol active
+            if (iaer .eq. 0) then
+               do i = 1, nlayers
+                  do ig = 1, ngptlw
+                     taut(i,ig) = taug(i,ig)
+                  enddo
+               enddo
+            elseif (iaer .eq. 10) then
+               do i = 1, nlayers
+                  do ig = 1, ngptlw
+                     taut(i,ig) = taug(i,ig) + tauaer(i,ngb(ig))
+                  enddo
+               enddo
+            endif
+
+! Call the radiative transfer routine.
+! Either routine can be called to do clear sky calculation.  If clouds
+! are present, then select routine based on cloud overlap assumption
+! to be used.  Clear sky calculation is done simultaneously.
+! For McICA, only RTRN is called for clear and cloudy calculations.
+
+            if (imca .eq. 0) then
+               if (icld .eq. 1) then
+                  call rtrn(nlayers, istart, iend, iout, pz, semiss, ncbands, &
+                            cldfrac, taucloud, planklay, planklev, plankbnd, &
+                            pwvcm, fracs, taut, &
+                            totuflux, totdflux, fnet, htr, &
+                            totuclfl, totdclfl, fnetc, htrc, &
+                            idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )
+               else
+                  call rtrnmr(nlayers, istart, iend, iout, pz, semiss, ncbands, &
+                              cldfrac, taucloud, planklay, planklev, plankbnd, &
+                              pwvcm, fracs, taut, &
+                              totuflux, totdflux, fnet, htr, &
+                              totuclfl, totdclfl, fnetc, htrc, &
+                              idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )
+               endif
+            elseif (imca .eq. 1) then
+               call rtrnmc(nlayers, istart, iend, iout, pz, semiss, ncbands, &
+                           cldfmc, taucmc, planklay, planklev, plankbnd, &
+                           pwvcm, fracs, taut, &
+                           totuflux, totdflux, fnet, htr, &
+                           totuclfl, totdclfl, fnetc, htrc, &
+                           idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )
+            endif
+
+! If requested (idrv=1), adjust upward fluxes and heating rate for the input 
+! change in surface temperature (dtbound) based on the calculated change in 
+! upward flux as a function of surface temperature for each layer.  Downward
+! fluxes are unchanged by this adjustment. 
+
+            if (idrv .eq. 1) then
+! Adjust fluxes at surface
+               totuflux(0) = totuflux(0) + dtotuflux_dt(0) * dtbound
+               fnet(0) = totuflux(0) - totdflux(0)
+               totuclfl(0) = totuclfl(0) + dtotuclfl_dt(0) * dtbound
+               fnetc(0) = totuclfl(0) - totdclfl(0)
+
+! Adjust fluxes at model levels
+               do lev = 1, nlayers
+                  totuflux(lev) = totuflux(lev) + dtotuflux_dt(lev) * dtbound
+                  fnet(lev) = totuflux(lev) - totdflux(lev)
+                  totuclfl(lev) = totuclfl(lev) + dtotuclfl_dt(lev) * dtbound
+                  fnetc(lev) = totuclfl(lev) - totdclfl(lev)
+                  l = lev - 1
+
+! Re-calculate heating rates at model layers
+                  htr(l)=heatfac*(fnet(l)-fnet(lev))/(pz(l)-pz(lev)) 
+                  htrc(l)=heatfac*(fnetc(l)-fnetc(lev))/(pz(l)-pz(lev)) 
+               enddo
+
+! Set heating rate to zero in top layer
+               htr(nlayers) = 0.0_rb
+               htrc(nlayers) = 0.0_rb
+            endif
+
+! Process output.
+            if (iout .lt. 0) goto 2000
+
+            if (imca .eq. 0) then
+     
+               write(iwr,9899)wavenum1(istart),wavenum2(iend),iplon
+               write(iwr,9900)
+               write(iwr,9901)
+
+               do i = nlayers, 0, -1
+                  if (pz(i) .lt. 1.e-2_rb) then
+                     write(iwr,9952) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+                  elseif (pz(i) .lt. 1.e-1) then
+                     write(iwr,9953) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+                  elseif (pz(i) .lt. 1.) then
+                     write(iwr,9954) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+                  elseif (pz(i) .lt. 10.) then
+                     write(iwr,9955) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+                  elseif (pz(i) .lt. 100.) then
+                     write(iwr,9956) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+                  elseif (pz(i) .lt. 1000.) then
+                     write(iwr,9957) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+                  else
+                     write(iwr,9958) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+                  endif
+               enddo
+               write(iwr,9903)page
+
+            elseif (imca .eq. 1) then 
+
+               do i = nlayers, 0, -1
+                  uflxsum(i) = uflxsum(i) + totuflux(i)
+                  dflxsum(i) = dflxsum(i) + totdflux(i)
+                  fnetsum(i) = fnetsum(i) + fnet(i)
+                  htrsum(i) = htrsum(i) + htr(i)
+               enddo
+
+! Output average over samples when last sample reached.  Comment this if-check
+! and swap flux output write statements below to output all McICA samples.
+               if (ims .eq. nmca) then
+
+                  do i = nlayers, 0, -1
+                     uflxsum(i) = uflxsum(i)/nmca
+                     dflxsum(i) = dflxsum(i)/nmca
+                     fnetsum(i) = fnetsum(i)/nmca
+                     htrsum(i) = htrsum(i)/nmca
+                  enddo
+
+                  write(iwr,9899) wavenum1(istart),wavenum2(iend),iplon
+                  write(iwr,9900)
+                  write(iwr,9901)
+
+                  do i = nlayers, 0, -1
+                     if (pz(i) .lt. 1.e-2_rb) then
+                        write(iwr,9952) i,pz(i),uflxsum(i),dflxsum(i),fnetsum(i),htrsum(i)
+                     elseif (pz(i) .lt. 1.e-1) then
+                        write(iwr,9953) i,pz(i),uflxsum(i),dflxsum(i),fnetsum(i),htrsum(i)
+                     elseif (pz(i) .lt. 1.) then
+                        write(iwr,9954) i,pz(i),uflxsum(i),dflxsum(i),fnetsum(i),htrsum(i)
+                     elseif (pz(i) .lt. 10.) then
+                        write(iwr,9955) i,pz(i),uflxsum(i),dflxsum(i),fnetsum(i),htrsum(i)
+                     elseif (pz(i) .lt. 100.) then
+                        write(iwr,9956) i,pz(i),uflxsum(i),dflxsum(i),fnetsum(i),htrsum(i)
+                     elseif (pz(i) .lt. 1000.) then
+                        write(iwr,9957) i,pz(i),uflxsum(i),dflxsum(i),fnetsum(i),htrsum(i)
+                     else
+                        write(iwr,9958) i,pz(i),uflxsum(i),dflxsum(i),fnetsum(i),htrsum(i)
+                     endif
+                  enddo
+                  write(iwr,9903)page
+
+!               do i = nlayers, 0, -1
+!                  if (pz(i) .lt. 1.e-2_rb) then
+!                     write(iwr,9952) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+!                  elseif (pz(i) .lt. 1.e-1) then
+!                     write(iwr,9953) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+!                  elseif (pz(i) .lt. 1.) then
+!                     write(iwr,9954) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+!                  elseif (pz(i) .lt. 10.) then
+!                     write(iwr,9955) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+!                  elseif (pz(i) .lt. 100.) then
+!                     write(iwr,9956) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+!                  elseif (pz(i) .lt. 1000.) then
+!                     write(iwr,9957) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+!                  else
+!                     write(iwr,9958) i,pz(i),totuflux(i),totdflux(i),fnet(i),htr(i)
+!                  endif
+!               enddo
+!               write(iwr,9903)page
+
+               endif
+
+            endif
+
+ 2000       continue
+! End statistical loop for McICA
+         enddo
+
+         if (iout .le. 40 .or. iflag .eq. 16) goto 3500
+         if (iflag .eq. 99) then
+            iflag = 1
+         elseif (iout .eq. 99) then
+            iflag = iflag + 1
+         endif
+         goto 1000
+
+ 3500    continue
+
+!
+! Output module version numbers
+!
+         write(iwr,9910) hnamrtm,hvrrtm,hnamini,hvrini,hnamcld,hvrcld, &
+           hnamclc,hvrclc,hnamrtr,hvrrtr,hnamrtx,hvrrtx,hnamrtc,hvrrtc, &
+           hnamset,hvrset,hnamtau,hvrtau,hnamatm,hvratm,hnamutl,hvrutl, &
+           hnamext,hvrext,hnamkg,hvrkg
+
+ 4000    continue
+! 4444    continue
+
+! End longitude/column loop
+      enddo
+
+      close(ird)
+      close(iwr)
+
+ 9952 format(1x,i3,9x,f7.6,3x,f8.4,6x,f8.4,6x,f12.7,10x,f9.5)
+ 9953 format(1x,i3,9x,f6.5,4x,f8.4,6x,f8.4,6x,f12.7,10x,f9.5)
+ 9954 format(1x,i3,8x,f6.4,5x,f8.4,6x,f8.4,6x,f12.7,10x,f9.5)
+ 9955 format(1x,i3,7x,f6.3,6x,f8.4,6x,f8.4,6x,f12.7,10x,f9.5)
+ 9956 format(1x,i3,6x,f6.2,7x,f8.4,6x,f8.4,6x,f12.7,10x,f9.5)
+ 9957 format(1x,i3,5x,f6.1,8x,f8.4,6x,f8.4,6x,f12.7,10x,f9.5)
+ 9958 format(1x,i3,5x,f6.1,8x,f8.4,6x,f8.4,6x,f12.7,10x,f9.5)
+ 9899 format(1x,'Wavenumbers: ',f6.1,' - ',f6.1,' cm-1, ATM ',i6)
+ 9900 format(1x,'LEVEL    PRESSURE   UPWARD FLUX   DOWNWARD FLUX    NET FLUX       HEATING RATE')
+ 9901 format(1x,'            mb          W/m2          W/m2           W/m2          degree/day')
+ 9902 format(1x,i3,3x,f11.6,4x,1p,2(g12.6,2x),g13.6,3x,g16.9,0p)
+ 9903 format(a)
+ 9910 format('  Modules and versions used in this calculation:',/,/, &
+              7(5x,a20,2x,a18,10x,a20,2x,a18,/))
+
+      contains
+
+!************************************************************************
+      subroutine readprof(ird_in, nlayers_out, iout_out, imca, icld_out, &
+          iaer_out, idrv, pavel_out, tavel_out, pz_out, tz_out, tbound_out, dz_out, &
+          semiss_out, dtbound_out, coldry_out, wkl_out, wbrodl_out, wx_out, &
+          pwvcm_out, inflag_out, iceflag_out, liqflag_out, cldfrac_out, &
+          tauc, ciwp, clwp, rei, rel, tauaer_out, &
+          decorr_con_out, juldat_out, idcor_out, lat_out)
+!************************************************************************
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_con, only: pi, grav, planck, boltz, clight, avogad, alosmt, &
+                          gascon, radcn1, radcn2 
+
+! Note: COMMON blocks are left in this routine for array passing with 
+!       rrtatm.f for reading input profiles in single column mode.
+!       Scalars and arrays in subroutine call are renamed to avoid conflict
+!       with COMMON blocks. Variable mxlay is the maximum possible number of
+!       layers, which is used to dimension the input arrays, while nlayers
+!       is the actual number of input layers. 
+!
+! Purpose: Read in atmospheric profile.
+
+      implicit integer(i-n), real (a-h,o-z)
+
+! ------- Parameters -------
+      parameter (mxlay = 603)
+      parameter (mxmol = 39)
+      parameter (nbndlw = 16)
+      parameter (maxinpx = mxmol)
+      parameter (maxxsec = 4)
+      parameter (maxprod = mxlay*maxxsec)
+      parameter (amd = 28.9660_rb)         ! Effective molecular weight of dry air (g/mol)
+      parameter (amw = 18.0160_rb)         ! Molecular weight of water vapor (g/mol)
+
+      dimension altz(0:mxlay),ixtrans(14),semis(nbndlw)
+
+      common /consts/   pic,planckc,boltzc,clightc,avogadc,alosmtc,gasconc, &
+                        radcn1c,radcn2c
+      common /control/  numangs, iout, istart, iend, icld, iaer
+      common /profile/  nlayers,pavel(mxlay),tavel(mxlay),pz(0:mxlay),tz(0:mxlay)
+      common /surface/  tbound,ireflect,semiss(nbndlw)
+      common /species/  coldry(mxlay),wkl(mxmol,mxlay),wbrodl(mxlay),colmol(mxlay),nmol
+      common /ifil/     ird,ipr,ipu,idum(15)
+      common /xsecctrl/ nxmol,ixindx(maxinpx)
+      common /xsec/     wx(maxxsec,mxlay)
+      common /pathx/    ixmax,nxmol0,ixindx0(maxinpx),wx0(maxinpx,mxlay)    
+      common /xrrtatm/  ixsect
+      common /c_drive/  ref_lat
+
+      common /cloudin/   inflag,clddat1(mxlay),clddat2(mxlay), &
+                         iceflag,liqflag,clddat3(mxlay),clddat4(mxlay)
+      common /clouddat/  ncbands,cldfrac(mxlay),taucloud(mxlay,nbndlw)
+      common /aerdat/    tauaer(mxlay,nbndlw)
+
+      character*80 form1(0:1),form2(0:1),form3(0:1)
+      character*1 ctest, cdollar, cprcnt,cdum
+      character*3 cinp
+
+! Dimensions for transfer to rrtmg
+      integer(kind=im), intent(in) :: ird_in              ! input file unit
+      integer(kind=im), intent(out) :: nlayers_out        ! total number of layers
+      integer(kind=im), intent(out) :: icld_out           ! clear/cloud flag
+      integer(kind=im), intent(out) :: imca               ! McICA on/off flag (1 = use McICA)
+      integer(kind=im), intent(out) :: iout_out           ! output option flag
+      integer(kind=im), intent(out) :: iaer_out           ! aerosol option flag
+      integer(kind=im), intent(out) :: idrv               ! Planck derivative option on/off flag 
+                                                          ! (1 = provide upward flux adjustment
+                                                          ! for change in surface temperature
+
+      real(kind=rb), intent(out) :: pavel_out(mxlay)      ! layer pressures (mb) 
+      real(kind=rb), intent(out) :: tavel_out(mxlay)      ! layer temperatures (K)
+      real(kind=rb), intent(out) :: dz_out(mxlay)         ! layer thickness (m)
+      real(kind=rb), intent(out) :: pz_out(0:mxlay)       ! level (interface) pressures (hPa, mb)
+      real(kind=rb), intent(out) :: tz_out(0:mxlay)       ! level (interface) temperatures (K)
+      real(kind=rb), intent(out) :: tbound_out            ! surface temperature (K)
+      real(kind=rb), intent(out) :: dtbound_out           ! surface temperature change for idrv=1 (K)
+      real(kind=rb), intent(out) :: coldry_out(mxlay)     ! dry air column density (mol/cm2)
+      real(kind=rb), intent(out) :: wbrodl_out(mxlay)     ! broadening gas column density (mol/cm2)
+      real(kind=rb), intent(out) :: wkl_out(mxmol,mxlay)  ! molecular amounts (mol/cm2)
+      real(kind=rb), intent(out) :: wx_out(maxxsec,mxlay) ! cross-section amounts (mol/cm2)
+      real(kind=rb), intent(out) :: pwvcm_out             ! precipitable water vapor (cm)
+      real(kind=rb), intent(out) :: semiss_out(nbndlw)    ! lw surface emissivity
+      real(kind=rb), intent(out) :: decorr_con_out        ! cloud fraction decorrelation length, constant (meters)
+      real(kind=rb), intent(out) :: lat_out               ! latitude 
+      integer(kind=im), intent(out) :: juldat_out         ! Julian date (day of year)
+      integer(kind=im), intent(out) :: idcor_out          ! Decorrelation length type
+
+      integer(kind=im), intent(out) :: inflag_out         ! cloud property option flag
+      integer(kind=im), intent(out) :: iceflag_out        ! ice cloud property flag
+      integer(kind=im), intent(out) :: liqflag_out        ! liquid cloud property flag
+
+      real(kind=rb), intent(out) :: cldfrac_out(mxlay)    ! cloud fraction
+      real(kind=rb), intent(out) :: tauc(nbndlw,mxlay)    ! in-cloud optical depth
+!      real(kind=rb), intent(out) :: ssac(nbndlw,mxlay)   ! in-cloud single scattering albedo
+                                                          !   for future expansion
+!      real(kind=rb), intent(out) :: asmc(nbndlw,mxlay)   ! in-cloud asymmetry parameter
+                                                          !   for future expansion
+      real(kind=rb), intent(out) :: ciwp(mxlay)           ! in-cloud ice water path
+      real(kind=rb), intent(out) :: clwp(mxlay)           ! in-cloud liquid water path
+      real(kind=rb), intent(out) :: rel(mxlay)            ! cloud liquid particle effective radius (microns)
+      real(kind=rb), intent(out) :: rei(mxlay)            ! cloud ice particle effective size (microns)
+      real(kind=rb), intent(out) :: tauaer_out(mxlay,nbndlw)  ! aerosol optical depth
+!      real(kind=rb), intent(out) :: ssaaer_out(mxlay,nbndlw)  ! aerosol single scattering albedo
+                                                               !   for future expansion
+!      real(kind=rb), intent(out) :: asmaer_out(mxlay,nbndlw)  ! aerosol asymmetry parameter
+                                                               !   for future expansion
+
+! Local
+      real(kind=rb) :: fice(mxlay)                        ! cloud ice fraction
+
+      real(kind=rb) :: amttl                              ! moist air vertical sum (molecular amount)
+      real(kind=rb) :: wvttl                              ! water vapor vertical sum (molecular amount)
+      real(kind=rb) :: summol                             ! sum over non-water molecules
+      real(kind=rb) :: wvsh                               ! water vapor vertical total specific humitidy
+      real(kind=rb) :: pwvcm                              ! precipitable water vapor (cm)
+      real(kind=rb) :: dtbound                            ! change in surface temperature for idrv=1 (K)
+
+! Local inputs for EXP or ER cloud overlap
+      integer(kind=im) :: idcor                           ! decorrelation length type 
+                                                          !  0 = constant
+                                                          !  1 = latitude and day of year dependent
+      real(kind=rb) :: decorr_con                         ! cloud fraction decorrelation length, constant (meters)
+      integer(kind=im) :: juldat                          ! Julian date (day of year)
+      real(kind=rb) :: lat                                ! latitude (degrees)
+
+!
+
+! Initializations
+
+      data cdollar /'$'/
+      data cprcnt /'%'/
+      data ixtrans /0,0,0,1,2,3,0,0,0,0,0,4,0,0/
+
+      form1(0) = '(3f10.4,a3,i2,1x,2(f7.2,f8.3,f7.2))'
+      form2(0) = '(3f10.4,a3,i2,23x,(f7.2,f8.3,f7.2))'
+      form3(0) = '(8e10.3)'
+      form1(1) = '(g15.7,g10.4,g10.4,a3,i2,1x,2(g7.2,g8.3,g7.2))'
+      form2(1) = '(g15.7,g10.4,g10.4,a3,i2,23x,(g7.2,g8.3,g7.2))'
+      form3(1) = '(8g15.7)'
+
+! Pass constants to common block names for rrtatm
+      pic = pi
+      planckc = planck
+      boltzc = boltz
+      clightc = clight
+      avogadc = avogad
+      alosmtc = alosmt
+      gasconc = gascon
+      radcn1c = radcn1
+      radcn2c = radcn2 
+
+      ixmax = maxinpx
+
+      ird = ird_in
+
+      do l = 1, mxlay
+         do ix = 1, maxxsec
+           wx(ix,l) = 0.0_rb
+         enddo
+      enddo
+
+! Top of read input loop
+ 1000 continue
+      read (ird,9010,end=8800) ctest
+      if (ctest .eq. cprcnt) goto 8900 
+      if (ctest .ne. cdollar) goto 1000
+
+      read (ird,9011) iaer, iatm, ixsect, numangs, iout, idrv, imca, icld
+
+!  If numangs set to -1, reset to default rt code for
+!  backwards compatibility with original rrtm
+      if (numangs .eq. -1) numangs = 0
+
+!  If clouds are present, read in appropriate input file, IN_CLD_RRTM.
+      if (icld .ge. 1) call readcld
+
+!  If aerosols are present, read in appropriate input file, IN_AER_RRTM.
+      if (iaer .eq. 10) call readaer
+
+!  Read in surface information.
+      read (ird,9012) tbound,iemiss,ireflect,semis(1:nbndlw)
+
+!  Read in change in surface temperature for upward flux derivative adjustment 
+      dtbound = 0.0_rb
+      if (idrv .eq. 1) then
+         read (ird,9012) dtbound
+      endif
+
+!  Read in extra records for EXP or ER cloud overlap
+      if (icld .eq. 4 .or. icld .eq. 5) then
+         read (ird,9014) idcor
+         if (idcor .eq. 0) then 
+            read (ird,9015) decorr_con
+         endif
+         if (idcor .eq. 1) then 
+            read (ird,9016) juldat, lat
+            if (iatm .eq. 1) lat = ref_lat
+         endif
+      endif
+
+      do iband = 1, nbndlw
+         semiss(iband) = 1.0_rb
+         if (iemiss .eq. 1 .and. semis(1) .ne. 0._rb) then
+            semiss(iband) = semis(1)
+         elseif (iemiss .eq. 2) then
+            if (semis(iband) .ne. 0._rb) then
+               semiss(iband) = semis(iband)
+            endif
+         endif
+      enddo
+
+      if (iatm .eq. 0) then
+         read (ird,9013) iform,nlayers,nmol
+         if (nmol.eq.0) nmol = 7                                    
+         read (ird,form1(iform)) pavel(1),tavel(1),secntk,cinp, &
+              ipthak,altz(0),pz(0),tz(0),altz(1),pz(1),tz(1)
+         read (ird,form3(iform)) (wkl(m,1),m=1,7), wbrodl(1)
+         if(nmol .gt. 7) read (ird,form3(iform)) (wkl(m,1),m=8,nmol)
+
+         do l = 2, nlayers
+            read (ird,form2(iform)) pavel(l),tavel(l),secntk,cinp, &
+                 ipthrk,altz(l),pz(l),tz(l)
+            read (ird,form3(iform)) (wkl(m,l),m=1,7), wbrodl(l)
+            if(nmol .gt. 7) read (ird,form3(iform)) (wkl(m,l),m=8,nmol)
+         enddo
+           
+         if (ixsect .eq. 1) then                                 
+            read (ird,9300) nxmol0
+            nxmol = nxmol0
+            call xsident(ird)
+            read (ird,9301) iformx
+     
+            do l = 1, nlayers       
+               read (ird,9010) cdum
+               read (ird, form3(iformx)) (wx0(m,l),m=1,7),wbrodx    
+               if (nxmol0 .gt. 7) read (ird,form3(iformx)) (wx0(m,l),m=8,nxmol0)
+            enddo
+         endif
+! calculate approximate layer thickness
+         do l = 1,nlayers
+            dz(l) = altz(l) - altz(l-1)
+         enddo
+      else
+         ipu = 7
+         ipr = 66
+         open(unit=ipr,file='TAPE6',status='unknown')
+         call rrtatm
+         if (ixsect .eq. 1) then
+            do mx = 1, nxmol0
+               ixindx(mx) = ixtrans(ixindx0(mx))
+            enddo
+         endif
+      endif
+      if (tbound .lt. 0) tbound = tz(0)
+
+!  Test for mixing ratio input.
+      imix = 1
+      do m = 1, nmol
+         if (wkl(m,1) .gt. 1.0_rb) then
+            imix = 0
+            goto 3600
+         endif
+      enddo
+ 3600 continue
+
+      if (ixsect .eq. 1) then
+         imixx = 0
+         if (wx0(1,1) .le. 1.0_rb) imixx = 1
+      endif
+      amttl = 0.0_rb
+      wvttl = 0.0_rb
+      do l = 1, nlayers
+         summol = 0.0_rb
+         do imol = 2, nmol
+            summol = summol + wkl(imol,l)
+         enddo
+         if (imix .eq. 1) then
+            coldry(l) = wbrodl(l) / (1._rb - summol)
+            do imol = 1, nmol
+               wkl(imol,l) = coldry(l) * wkl(imol,l)
+            enddo
+         else
+            coldry(l) = wbrodl(l) + summol
+         endif
+         amttl = amttl + coldry(l)+wkl(1,l)
+         wvttl = wvttl + wkl(1,l)
+         if (ixsect .eq. 1) then
+            do ix = 1, nxmol0
+               if (ixindx(ix) .ne. 0) then
+                  if (imixx .eq. 1) then
+                     wx(ixindx(ix),l) = coldry(l) * wx0(ix,l) * 1.e-20_rb
+                  else
+                     wx(ixindx(ix),l) = wx0(ix,l) * 1.e-20_rb
+                  endif
+               endif
+            enddo
+         endif
+      enddo
+
+!  Calculate total precipitable water 
+      wvsh = (amw * wvttl) / (amd * amttl)
+      pwvcm = wvsh * (1.e3_rb * pz(0)) / (1.e2_rb * grav)
+
+! Pass output arrays to new variables for transfer to rrtmg through subroutine call.
+      nlayers_out = nlayers
+      iout_out = iout
+      icld_out = icld
+      iaer_out = iaer
+      tbound_out = tbound
+      dtbound_out = dtbound
+      pwvcm_out = pwvcm
+      inflag_out = inflag
+      iceflag_out = iceflag
+      liqflag_out = liqflag
+
+      pz_out(0) = pz(0)
+      tz_out(0) = tz(0)
+      do l = 1, nlayers
+         pavel_out(l) = pavel(l)
+         tavel_out(l) = tavel(l)
+! convert layer thickness from km to m
+         dz_out(l) = dz(l) * 1000._rb
+         pz_out(l) = pz(l)
+         tz_out(l) = tz(l)
+         coldry_out(l) = coldry(l)
+         wbrodl_out(l) = wbrodl(l)
+         cldfrac_out(l) = cldfrac(l)
+         do m = 1, mxmol
+            wkl_out(m,l) = wkl(m,l)
+         enddo  
+         do ix = 1, maxxsec
+            wx_out(ix,l) = wx(ix,l)
+         enddo  
+      enddo
+      do n = 1, nbndlw
+         semiss_out(n) = semiss(n)
+      enddo
+      decorr_con_out = decorr_con
+      juldat_out = juldat
+      idcor_out = idcor
+      lat_out = lat
+
+      do l = 1, nlayers
+         if (inflag.eq.0) then
+            do n = 1, nbndlw
+               tauc(n,l) = clddat1(l)
+!               ssac(n,l) = 1._rb
+!               asmc(n,l) = 1._rb
+            enddo
+            ciwp(l) = 0._rb
+            clwp(l) = 0._rb
+            fice(l) = 0._rb
+            rei(l) = 0._rb
+            rel(l) = 0._rb
+         else
+            do n = 1, nbndlw
+               tauc(n,l) = 0._rb
+!               ssac(n,l) = 1._rb
+!               asmc(n,l) = 1._rb
+            enddo
+            cwp = clddat1(l)
+            fice(l) = clddat2(l)
+            ciwp(l) = cwp * fice(l)
+            clwp(l) = cwp * (1._rb - fice(l))
+            rei(l) = clddat3(l)
+            rel(l) = clddat4(l)
+         endif 
+      enddo
+
+      do l = 1, nlayers
+         do n = 1, nbndlw
+            tauaer_out(l,n) = tauaer(l,n)
+!            ssaaer_out(l,n) = 1._rb
+!            asmaer_out(l,n) = 0._rb
+         enddo
+      enddo
+
+      goto 9000
+
+ 8800 continue
+ 8900 if (ctest.eq.'%') stop 'END OF INPUT FILE'
+ 9000 continue
+
+ 9010 format (a1)
+ 9011 format (18x,i2,29x,i1,19x,i1,13x,i2,2x,i3,1x,i1,1x,i1,i1)
+ 9012 format (e10.3,1x,i1,2x,i1,16e5.3)
+ 9013 format (1x,i1,i3,i5)                                     
+ 9014 format (8x,i2)
+ 9015 format (f10.3)
+ 9016 format (5x,i5,f10.3)
+ 9300 format (i5)
+ 9301 format (1x,i1)
+
+      end subroutine readprof
+
+!*************************************************************************
+      subroutine readcld
+!*************************************************************************
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+
+! Purpose:  To read in IN_CLD_RRTM, the file that contains input 
+!           cloud properties.
+
+      implicit integer(i-n), real (a-h,o-z)
+
+! ------- Parameters -------
+      parameter (mxlay=603)
+      parameter (nbndlw = 16)
+
+      common /profile/   nlayers,pavel(mxlay),tavel(mxlay),pz(0:mxlay),tz(0:mxlay)
+      common /cloudin/   inflag,clddat1(mxlay),clddat2(mxlay), &
+                         iceflag,liqflag,clddat3(mxlay),clddat4(mxlay)
+      common /clouddat/  ncbands,cldfrac(mxlay),taucloud(mxlay,nbndlw)
+
+      character*1 ctest, cpercent
+
+      data cpercent /'%'/
+      irdcld = 11
+
+      open(irdcld,file='IN_CLD_RRTM',form='formatted')
+
+! Read in cloud input option.  
+      read(irdcld,9050) inflag, iceflag, liqflag
+
+      do lay = 1, nlayers
+         cldfrac(lay) = 0._rb
+      enddo
+
+! Top of read input loop
+ 1000 continue
+
+!  For INFLAG = 0 or 1, for each cloudy layer only LAY, FRAC, and
+!  DAT1 are pertinent.  If CTEST = '%', then there are no more 
+!  cloudy layers to process.
+      read (irdcld,9100,end=9000) ctest,lay,frac,dat1,dat2,dat3,dat4
+      if (ctest .eq. cpercent) goto 9000
+      cldfrac(lay) = frac
+      clddat1(lay) = dat1
+      clddat2(lay) = dat2
+      clddat3(lay) = dat3
+      clddat4(lay) = dat4
+      goto 1000
+
+ 9000 continue
+      close(irdcld)
+
+ 9050 format (3x,i2,4x,i1,4x,i1)
+ 9100 format (a1,1x,i3,5e10.5)
+
+      end subroutine readcld
+
+!***************************************************************************
+      subroutine readaer
+!***************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb
+
+! Purpose:  To read in IN_AER_RRTM, the file that contains input
+!           aerosol properties.
+
+! -------- Modules --------
+
+      use rrlw_wvn, only : wavenum1, wavenum2
+
+      implicit integer(i-n), real(a-h,o-z)
+
+! ------- Parameters -------
+      parameter (mxlay = 603)
+      parameter (nbndlw  = 16)
+!      parameter (mg = 16)
+!      parameter (mxstr = 16)
+!      parameter (mcmu = 32)
+
+      real aod(mxlay),aod1(nbndlw)
+      integer lay(mxlay),ivec(mxlay)
+
+      common /control/  numangs, iout, istart, iend, icld, iaer
+      common /profile/  nlayers,pavel(mxlay),tavel(mxlay),pz(0:mxlay),tz(0:mxlay)
+
+      common /aerdat/  tauaer(mxlay,nbndlw)
+
+      character*1 ctest, cpercent
+
+      data cpercent /'%'/
+
+      eps = 1.e-10_rb
+      irdaer = 12
+      open(irdaer,file='IN_AER_RRTM',form='formatted')
+
+      aod(:) = 0.0_rb
+      tauaer(:,:) = 0.0_rb
+
+! Read in number of different aerosol models option.
+      read (irdaer, 9010) naer
+!       if (naer .gt. 4) then
+!          print *, 'NAER (= ', naer, ') IS GREATER THAN 4'
+!          stop
+!       endif
+        
+! For each aerosol read in optical properties and layer aerosol 
+! optical depths.
+      do ia = 1, naer
+	 read (irdaer, 9011) nlay, iaod
+
+! Input restricted to direct input of aerosol optical depths
+         iaod = 1
+
+! For this aerosol, read in layers and optical depth information.
+! Store a nonzero optical depth in aod to check for double specification.
+         do il = 1, nlay
+            read(irdaer, 9012) lay(il), (aod1(ib), ib = 1,nbndlw)
+            if (aod(lay(il)) .lt. eps) then
+               if (iaod .eq. 1) then
+                  do ib = 1, nbndlw
+                     aod(lay(il)) = max(aod(lay(il)),aod1(ib))
+                     tauaer(lay(il),ib) = aod1(ib)
+                  enddo
+               endif
+            else
+               print *,'LAYER ',lay(il),' HAS MORE THAN ONE AEROSOL TYPE'
+               stop
+            endif
+         enddo
+
+! End of naer loop
+      enddo
+
+ 9000 continue
+      close(irdaer)
+
+ 9010 format (3x, i2)
+ 9011 format (2x, i3, 4x, i1)
+ 9012 format (2x, i3, 16f7.4)
+
+      end subroutine readaer
+
+!**********************************************************************
+      subroutine xsident(ird)
+!**********************************************************************
+
+! Purpose:  This subroutine identifies which cross-sections are to be used.
+
+      implicit integer(i-n), real (a-h,o-z)
+
+! ------- Parameters -------
+      parameter (maxinpx=39)
+      parameter (maxxsec=4)
+
+      common /xsecctrl/ nxmol,ixindx(maxinpx)
+
+!     nxmol     - number of cross-sections input by user
+!     ixindx(i) - index of cross-section molecule corresponding to Ith
+!                 cross-section specified by user
+!                 = 0 -- not allowed in rrtm
+!                 = 1 -- ccl4
+!                 = 2 -- cfc11
+!                 = 3 -- cfc12
+!                 = 4 -- cfc22
+!                                                                         
+!     xsname=names, alias=aliases of the cross-section molecules          
+!                                                                         
+      character*10 xsname(maxinpx),alias(maxxsec,4),blank               
+                                                                         
+      data (alias(1,i),i=1,4)/ &
+         'CCL4      ', 'CCL3F     ', 'CCL2F2    ', 'CHCLF2    '/ 
+      data (alias(2,i),i=1,4)/ &
+         ' ZZZZZZZZ ', 'CFCL3     ', 'CF2CL2    ', 'CHF2CL    '/         
+      data (alias(3,i),i=1,4)/ &
+         ' ZZZZZZZZ ', 'CFC11     ', 'CFC12     ', 'CFC22     '/         
+      data (alias(4,i),i=1,4)/ &
+          ' ZZZZZZZZ ', 'F11       ', 'F12       ', 'F22       '/        
+
+      data blank / '          '/                                          
+                                                                         
+      do i = 1, nxmol                                                 
+         xsname(i) = blank                                                
+      enddo
+                                                                         
+! Read in the names of the molecules                                  
+                                                                         
+      if (nxmol.gt.7) then                                               
+         read (ird,'(7a10)') (xsname(i),i=1,7)                            
+         read (ird,'(8a10)') (xsname(i),i=8,nxmol)                       
+      else                                                                
+         read (ird,'(7a10)') (xsname(i),i=1,nxmol)                       
+      endif                                                               
+
+!  Match the names read in against the names stored in alias           
+!  and determine the index value.  
+      ixmax = 4                                                          
+      do i = 1, nxmol                                                 
+!  Left-justify all inputed names.                                      
+         call cljust (xsname(i),10)
+         ixindx(i) = 0
+         do j = 1, ixmax
+            if ((xsname(i).eq.alias(1,j)) .or. &
+                (xsname(i).eq.alias(2,j)) .or. &
+                (xsname(i).eq.alias(3,j)) .or. &
+                (xsname(i).eq.alias(4,j))) then                           
+               ixindx(i) = j                                              
+            endif                                                         
+         enddo
+      enddo
+
+      end subroutine xsident
+
+      end program rrtmg_lw
+
diff --git a/radiation/src/rrtmg_lw_cldprmc.f90 b/radiation/src/rrtmg_lw_cldprmc.f90
new file mode 100644
index 0000000000000000000000000000000000000000..18d4a2daf54f900b9a38b0ea9941e33d80918990
--- /dev/null
+++ b/radiation/src/rrtmg_lw_cldprmc.f90
@@ -0,0 +1,275 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+      module rrtmg_lw_cldprmc
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrtm, only : ngptlw, nbndlw
+      use rrlw_cld, only: abscld1, absliq0, absliq1, &
+                          absice0, absice1, absice2, absice3
+      use rrlw_wvn, only: ngb
+      use rrlw_vsn, only: hvrclc, hnamclc
+
+      implicit none
+
+      contains
+
+! ------------------------------------------------------------------------------
+      subroutine cldprmc(nlayers, inflag, iceflag, liqflag, cldfmc, &
+                         ciwpmc, clwpmc, reicmc, relqmc, ncbands, taucmc)
+! ------------------------------------------------------------------------------
+
+! Purpose:  Compute the cloud optical depth(s) for each cloudy layer.
+
+! ------- Input -------
+
+      integer(kind=im), intent(in) :: nlayers         ! total number of layers
+      integer(kind=im), intent(in) :: inflag          ! see definitions
+      integer(kind=im), intent(in) :: iceflag         ! see definitions
+      integer(kind=im), intent(in) :: liqflag         ! see definitions
+
+      real(kind=rb), intent(in) :: cldfmc(:,:)        ! cloud fraction [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+      real(kind=rb), intent(in) :: ciwpmc(:,:)        ! cloud ice water path [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+      real(kind=rb), intent(in) :: clwpmc(:,:)        ! cloud liquid water path [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+      real(kind=rb), intent(in) :: relqmc(:)          ! liquid particle effective radius (microns)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: reicmc(:)          ! ice particle effective radius (microns)
+                                                      !    Dimensions: (nlayers)
+                                                      ! specific definition of reicmc depends on setting of iceflag:
+                                                      ! iceflag = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !              r_ec must be >= 10.0 microns
+                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !              r_ec range is limited to 13.0 to 130.0 microns
+                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+                                                      !              r_k range is limited to 5.0 to 131.0 microns
+                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),
+                                                      !              dge range is limited to 5.0 to 140.0 microns
+                                                      !              [dge = 1.0315 * r_ec]
+
+! ------- Output -------
+
+      integer(kind=im), intent(out) :: ncbands        ! number of cloud spectral bands
+      real(kind=rb), intent(inout) :: taucmc(:,:)     ! cloud optical depth [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+
+! ------- Local -------
+
+      integer(kind=im) :: lay                         ! Layer index
+      integer(kind=im) :: ib                          ! spectral band index
+      integer(kind=im) :: ig                          ! g-point interval index
+      integer(kind=im) :: index 
+      integer(kind=im) :: icb(nbndlw)
+
+      real(kind=rb) :: abscoice(ngptlw)               ! ice absorption coefficients
+      real(kind=rb) :: abscoliq(ngptlw)               ! liquid absorption coefficients
+      real(kind=rb) :: cwp                            ! cloud water path
+      real(kind=rb) :: radice                         ! cloud ice effective size (microns)
+      real(kind=rb) :: factor                         ! 
+      real(kind=rb) :: fint                           ! 
+      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)
+      real(kind=rb), parameter :: eps = 1.e-6_rb      ! epsilon
+      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities
+
+! ------- Definitions -------
+
+!     Explanation of the method for each value of INFLAG.  Values of
+!     0 or 1 for INFLAG do not distingish being liquid and ice clouds.
+!     INFLAG = 2 does distinguish between liquid and ice clouds, and
+!     requires further user input to specify the method to be used to 
+!     compute the aborption due to each.
+!     INFLAG = 0:  For each cloudy layer, the cloud fraction and (gray)
+!                  optical depth are input.  
+!     INFLAG = 1:  For each cloudy layer, the cloud fraction and cloud
+!                  water path (g/m2) are input.  The (gray) cloud optical 
+!                  depth is computed as in CCM2.
+!     INFLAG = 2:  For each cloudy layer, the cloud fraction, cloud 
+!                  water path (g/m2), and cloud ice fraction are input.
+!       ICEFLAG = 0:  The ice effective radius (microns) is input and the
+!                     optical depths due to ice clouds are computed as in CCM3.
+!       ICEFLAG = 1:  The ice effective radius (microns) is input and the
+!                     optical depths due to ice clouds are computed as in 
+!                     Ebert and Curry, JGR, 97, 3831-3836 (1992).  The 
+!                     spectral regions in this work have been matched with
+!                     the spectral bands in RRTM to as great an extent 
+!                     as possible:  
+!                     E&C 1      IB = 5      RRTM bands 9-16
+!                     E&C 2      IB = 4      RRTM bands 6-8
+!                     E&C 3      IB = 3      RRTM bands 3-5
+!                     E&C 4      IB = 2      RRTM band 2
+!                     E&C 5      IB = 1      RRTM band 1
+!       ICEFLAG = 2:  The ice effective radius (microns) is input and the
+!                     optical properties due to ice clouds are computed from
+!                     the optical properties stored in the RT code,
+!                     STREAMER v3.0 (Reference: Key. J., Streamer 
+!                     User's Guide, Cooperative Institute for
+!                     Meteorological Satellite Studies, 2001, 96 pp.).
+!                     Valid range of values for re are between 5.0 and
+!                     131.0 micron.
+!       ICEFLAG = 3: The ice generalized effective size (dge) is input
+!                    and the optical properties, are calculated as in
+!                    Q. Fu, J. Climate, (1998). Q. Fu provided high resolution
+!                    tables which were appropriately averaged for the
+!                    bands in RRTM_LW.  Linear interpolation is used to
+!                    get the coefficients from the stored tables.
+!                    Valid range of values for dge are between 5.0 and
+!                    140.0 micron.
+!       LIQFLAG = 0:  The optical depths due to water clouds are computed as
+!                     in CCM3.
+!       LIQFLAG = 1:  The water droplet effective radius (microns) is input 
+!                     and the optical depths due to water clouds are computed 
+!                     as in Hu and Stamnes, J., Clim., 6, 728-742, (1993).
+!                     The values for absorption coefficients appropriate for
+!                     the spectral bands in RRTM have been obtained for a 
+!                     range of effective radii by an averaging procedure 
+!                     based on the work of J. Pinto (private communication).
+!                     Linear interpolation is used to get the absorption 
+!                     coefficients for the input effective radius.
+
+      data icb /1,2,3,3,3,4,4,4,5, 5, 5, 5, 5, 5, 5, 5/
+
+      hvrclc = '$Revision$'
+
+      ncbands = 1
+
+! This initialization is done in rrtmg_lw_subcol.F90.
+!      do lay = 1, nlayers
+!         do ig = 1, ngptlw
+!            taucmc(ig,lay) = 0.0_rb
+!         enddo
+!      enddo
+
+! Main layer loop
+      do lay = 1, nlayers
+
+        do ig = 1, ngptlw
+          cwp = ciwpmc(ig,lay) + clwpmc(ig,lay)
+          if (cldfmc(ig,lay) .ge. cldmin .and. &
+             (cwp .ge. cldmin .or. taucmc(ig,lay) .ge. cldmin)) then
+
+! Ice clouds and water clouds combined.
+            if (inflag .eq. 0) then
+! Cloud optical depth already defined in taucmc, return to main program
+               return
+
+            elseif(inflag .eq. 1) then 
+                stop 'INFLAG = 1 OPTION NOT AVAILABLE WITH MCICA'
+!               cwp = ciwpmc(ig,lay) + clwpmc(ig,lay)
+!               taucmc(ig,lay) = abscld1 * cwp
+
+! Separate treatement of ice clouds and water clouds.
+            elseif(inflag .eq. 2) then
+               radice = reicmc(lay)
+
+! Calculation of absorption coefficients due to ice clouds.
+               if (ciwpmc(ig,lay) .eq. 0.0_rb) then
+                  abscoice(ig) = 0.0_rb
+
+               elseif (iceflag .eq. 0) then
+                  if (radice .lt. 10.0_rb) stop 'ICE RADIUS TOO SMALL'
+                  abscoice(ig) = absice0(1) + absice0(2)/radice
+
+               elseif (iceflag .eq. 1) then
+                  if (radice .lt. 13.0_rb .or. radice .gt. 130._rb) stop &
+                      'ICE RADIUS OUT OF BOUNDS'
+                  ncbands = 5
+                  ib = icb(ngb(ig))
+                  abscoice(ig) = absice1(1,ib) + absice1(2,ib)/radice
+
+! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns
+
+               elseif (iceflag .eq. 2) then
+                  if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) stop 'ICE RADIUS OUT OF BOUNDS'
+                     ncbands = 16
+                     factor = (radice - 2._rb)/3._rb
+                     index = int(factor)
+                     if (index .gt. 43) index = 42
+                     fint = factor - real(index)
+                     ib = ngb(ig)
+                     abscoice(ig) = &
+                         absice2(index,ib) + fint * &
+                         (absice2(index+1,ib) - (absice2(index,ib))) 
+               
+! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns
+
+               elseif (iceflag .eq. 3) then
+                  if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) stop 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'
+                     ncbands = 16
+                     factor = (radice - 2._rb)/3._rb
+                     index = int(factor)
+                     if (index .eq. 46) index = 45
+                     fint = factor - real(index)
+                     ib = ngb(ig)
+                     abscoice(ig) = &
+                         absice3(index,ib) + fint * &
+                         (absice3(index+1,ib) - (absice3(index,ib)))
+   
+               endif
+                  
+! Calculation of absorption coefficients due to water clouds.
+               if (clwpmc(ig,lay) .eq. 0.0_rb) then
+                  abscoliq(ig) = 0.0_rb
+
+               elseif (liqflag .eq. 0) then
+                   abscoliq(ig) = absliq0
+
+               elseif (liqflag .eq. 1) then
+                  radliq = relqmc(lay)
+                  if (radliq .lt. 2.5_rb .or. radliq .gt. 60._rb) stop &
+                       'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'
+                  index = int(radliq - 1.5_rb)
+                  if (index .lt. 1) index = 1
+                  if (index .gt. 58) index = 57
+                  fint = radliq - 1.5_rb - real(index)
+                  ib = ngb(ig)
+                  abscoliq(ig) = &
+                        absliq1(index,ib) + fint * &
+                        (absliq1(index+1,ib) - (absliq1(index,ib)))
+               endif
+
+               taucmc(ig,lay) = ciwpmc(ig,lay) * abscoice(ig) + &
+                                clwpmc(ig,lay) * abscoliq(ig)
+
+            endif
+         endif
+         enddo
+      enddo
+
+      end subroutine cldprmc
+
+      end module rrtmg_lw_cldprmc
diff --git a/radiation/src/rrtmg_lw_cldprop.f90 b/radiation/src/rrtmg_lw_cldprop.f90
new file mode 100644
index 0000000000000000000000000000000000000000..f0255e22cfde7e13473f46559b38beafaa31168e
--- /dev/null
+++ b/radiation/src/rrtmg_lw_cldprop.f90
@@ -0,0 +1,297 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+      module rrtmg_lw_cldprop
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrtm, only : nbndlw
+      use rrlw_cld, only: abscld1, absliq0, absliq1, &
+                          absice0, absice1, absice2, absice3
+      use rrlw_vsn, only: hvrcld, hnamcld
+
+      implicit none
+
+      contains
+
+! ------------------------------------------------------------------------------
+      subroutine cldprop(nlayers, inflag, iceflag, liqflag, cldfrac, tauc, &
+                         ciwp, clwp, rei, rel, ncbands, taucloud)
+! ------------------------------------------------------------------------------
+
+! Purpose:  Compute the cloud optical depth(s) for each cloudy layer.
+
+! ------- Input -------
+
+      integer(kind=im), intent(in) :: nlayers         ! total number of layers
+      integer(kind=im), intent(in) :: inflag          ! see definitions
+      integer(kind=im), intent(in) :: iceflag         ! see definitions
+      integer(kind=im), intent(in) :: liqflag         ! see definitions
+
+      real(kind=rb), intent(in) :: cldfrac(:)         ! cloud fraction
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: ciwp(:)            ! cloud ice water path
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: clwp(:)            ! cloud liquid water path
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: rei(:)             ! cloud ice particle effective size (microns)
+                                                      !    Dimensions: (nlayers)
+                                                      ! specific definition of rei depends on setting of iceflag:
+                                                      ! iceflag = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !              r_ec must be >= 10.0 microns
+                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !              r_ec range is limited to 13.0 to 130.0 microns
+                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+                                                      !              r_k range is limited to 5.0 to 131.0 microns
+                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),
+                                                      !              dge range is limited to 5.0 to 140.0 microns
+                                                      !              [dge = 1.0315 * r_ec]
+      real(kind=rb), intent(in) :: rel(:)             ! cloud liquid particle effective radius (microns)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tauc(:,:)          ! cloud optical depth
+                                                      !    Dimensions: (nbndlw,nlayers)
+
+! ------- Output -------
+
+      integer(kind=im), intent(out) :: ncbands        ! number of cloud spectral bands
+      real(kind=rb), intent(out) :: taucloud(:,:)     ! cloud optical depth
+                                                      !    Dimensions: (nlayers,nbndlw)
+
+! ------- Local -------
+
+      integer(kind=im) :: lay                         ! Layer index
+      integer(kind=im) :: ib                          ! spectral band index
+      integer(kind=im) :: index 
+      integer(kind=im) :: iceind
+      integer(kind=im) :: liqind
+      integer(kind=im) :: icb(nbndlw,0:2)
+
+      real(kind=rb) :: abscoice(nbndlw)               ! ice absorption coefficients
+      real(kind=rb) :: abscoliq(nbndlw)               ! liquid absorption coefficients
+      real(kind=rb) :: cwp                            ! cloud water path
+      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)
+      real(kind=rb) :: radice                         ! cloud ice effective size (microns)
+      real(kind=rb) :: factor                         ! 
+      real(kind=rb) :: fint                           ! 
+      real(kind=rb) :: tauctot(nlayers)               ! band integrated cloud optical depth
+      real(kind=rb), parameter :: eps = 1.e-6_rb      ! epsilon
+      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities
+
+! ------- Definitions -------
+
+!     Explanation of the method for each value of INFLAG.  Values of
+!     0 or 1 for INFLAG do not distingish being liquid and ice clouds.
+!     INFLAG = 2 does distinguish between liquid and ice clouds, and
+!     requires further user input to specify the method to be used to 
+!     compute the aborption due to each.
+!     INFLAG = 0:  For each cloudy layer, the cloud fraction and (gray)
+!                  optical depth are input.  
+!     INFLAG = 1:  For each cloudy layer, the cloud fraction and cloud
+!                  water path (g/m2) are input.  The (gray) cloud optical 
+!                  depth is computed as in CCM2.
+!     INFLAG = 2:  For each cloudy layer, the cloud fraction, cloud 
+!                  water path (g/m2), and cloud ice fraction are input.
+!       ICEFLAG = 0:  The ice effective radius (microns) is input and the
+!                     optical depths due to ice clouds are computed as in CCM3.
+!       ICEFLAG = 1:  The ice effective radius (microns) is input and the
+!                     optical depths due to ice clouds are computed as in 
+!                     Ebert and Curry, JGR, 97, 3831-3836 (1992).  The 
+!                     spectral regions in this work have been matched with
+!                     the spectral bands in RRTM to as great an extent 
+!                     as possible:  
+!                     E&C 1      IB = 5      RRTM bands 9-16
+!                     E&C 2      IB = 4      RRTM bands 6-8
+!                     E&C 3      IB = 3      RRTM bands 3-5
+!                     E&C 4      IB = 2      RRTM band 2
+!                     E&C 5      IB = 1      RRTM band 1
+!       ICEFLAG = 2:  The ice effective radius (microns) is input and the
+!                     optical properties due to ice clouds are computed from
+!                     the optical properties stored in the RT code,
+!                     STREAMER v3.0 (Reference: Key. J., Streamer 
+!                     User's Guide, Cooperative Institute for
+!                     Meteorological Satellite Studies, 2001, 96 pp.).
+!                     Valid range of values for re are between 5.0 and
+!                     131.0 micron.
+!       ICEFLAG = 3: The ice generalized effective size (dge) is input
+!                    and the optical properties, are calculated as in
+!                    Q. Fu, J. Climate, (1998). Q. Fu provided high resolution
+!                    tables which were appropriately averaged for the
+!                    bands in RRTM_LW.  Linear interpolation is used to
+!                    get the coefficients from the stored tables.
+!                    Valid range of values for dge are between 5.0 and
+!                    140.0 micron.
+!       LIQFLAG = 0:  The optical depths due to water clouds are computed as
+!                     in CCM3.
+!       LIQFLAG = 1:  The water droplet effective radius (microns) is input 
+!                     and the optical depths due to water clouds are computed 
+!                     as in Hu and Stamnes, J., Clim., 6, 728-742, (1993).
+!                     The values for absorption coefficients appropriate for
+!                     the spectral bands in RRTM have been obtained for a 
+!                     range of effective radii by an averaging procedure 
+!                     based on the work of J. Pinto (private communication).
+!                     Linear interpolation is used to get the absorption 
+!                     coefficients for the input effective radius.
+
+      data icb /1,1,1,1,1,1,1,1,1, 1, 1, 1, 1, 1, 1, 1, &
+                1,2,3,3,3,4,4,4,5, 5, 5, 5, 5, 5, 5, 5, &
+                1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/
+
+      hvrcld = '$Revision$'
+
+      ncbands = 1
+      tauctot(:) = 0._rb
+
+      do lay = 1, nlayers
+         do ib = 1, nbndlw
+            taucloud(lay,ib) = 0.0_rb
+            tauctot(lay) = tauctot(lay) + tauc(ib,lay)
+         enddo
+      enddo
+
+! Main layer loop
+      do lay = 1, nlayers
+         cwp = ciwp(lay) + clwp(lay)
+         if (cldfrac(lay) .ge. cldmin .and. &
+            (cwp .ge. cldmin .or. tauctot(lay) .ge. cldmin)) then
+
+! Ice clouds and water clouds combined.
+            if (inflag .eq. 0) then
+               ncbands = 16
+               do ib = 1, ncbands
+                  taucloud(lay,ib) = tauc(ib,lay)
+               end do
+
+            elseif (inflag .eq. 1) then
+               ncbands = 16
+               do ib = 1, ncbands
+                  taucloud(lay,ib) = abscld1 * cwp
+               end do
+
+! Separate treatement of ice clouds and water clouds.
+            elseif (inflag .eq. 2) then
+               radice = rei(lay)
+
+! Calculation of absorption coefficients due to ice clouds.
+               if (ciwp(lay) .eq. 0.0_rb) then
+                  abscoice(1) = 0.0_rb
+                  iceind = 0
+
+               elseif (iceflag .eq. 0) then
+                  if (radice .lt. 10.0_rb) stop 'ICE RADIUS TOO SMALL'
+                  abscoice(1) = absice0(1) + absice0(2)/radice
+                  iceind = 0
+
+               elseif (iceflag .eq. 1) then
+                  if (radice .lt. 13.0_rb .or. radice .gt. 130._rb) stop &
+                       'ICE RADIUS OUT OF BOUNDS'
+                  ncbands = 5
+                  do ib = 1, ncbands
+                     abscoice(ib) = absice1(1,ib) + absice1(2,ib)/radice
+                  enddo
+                  iceind = 1
+
+! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns
+
+               elseif (iceflag .eq. 2) then
+                  if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) stop 'ICE RADIUS OUT OF BOUNDS'
+                     ncbands = 16
+                     factor = (radice - 2._rb)/3._rb
+                     index = int(factor)
+                     if (index .eq. 43) index = 42
+                     fint = factor - real(index)
+                     do ib = 1, ncbands
+                        abscoice(ib) = &
+                            absice2(index,ib) + fint * &
+                            (absice2(index+1,ib) - (absice2(index,ib)))
+                     enddo
+                     iceind = 2
+
+! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns
+
+               elseif (iceflag .eq. 3) then
+                  if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) stop 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'
+                     ncbands = 16
+                     factor = (radice - 2._rb)/3._rb
+                     index = int(factor)
+                     if (index .eq. 46) index = 45
+                     fint = factor - real(index)
+                     do ib = 1, ncbands
+                        abscoice(ib) = &
+                          absice3(index,ib) + fint * &
+                          (absice3(index+1,ib) - (absice3(index,ib)))
+                     enddo
+                     iceind = 2
+   
+               endif
+                  
+! Calculation of absorption coefficients due to water clouds.
+               if (clwp(lay) .eq. 0.0_rb) then
+                  abscoliq(1) = 0.0_rb
+                  liqind = 0
+                  if (iceind .eq. 1) iceind = 2
+
+               elseif (liqflag .eq. 0) then
+                  abscoliq(1) = absliq0
+                  liqind = 0
+                  if (iceind .eq. 1) iceind = 2
+
+               elseif (liqflag .eq. 1) then
+                  radliq = rel(lay)
+                  if (radliq .lt. 2.5_rb .or. radliq .gt. 60._rb) stop &
+                       'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'
+                  index = int(radliq - 1.5_rb)
+                  if (index .eq. 0) index = 1
+                  if (index .eq. 58) index = 57
+                  fint = radliq - 1.5_rb - real(index)
+                  ncbands = 16
+                  do ib = 1, ncbands
+                     abscoliq(ib) = &
+                         absliq1(index,ib) + fint * &
+                         (absliq1(index+1,ib) - (absliq1(index,ib)))
+                  enddo
+                  liqind = 2
+               endif
+
+               do ib = 1, ncbands
+                  taucloud(lay,ib) = ciwp(lay) * abscoice(icb(ib,iceind)) + &
+                                     clwp(lay) * abscoliq(icb(ib,liqind))
+               enddo
+            endif
+         endif
+      enddo
+
+      end subroutine cldprop
+
+      end module rrtmg_lw_cldprop
diff --git a/radiation/src/rrtmg_lw_init.f90 b/radiation/src/rrtmg_lw_init.f90
new file mode 100644
index 0000000000000000000000000000000000000000..2a4a9e2ecccbccb0ed86d1218ded4e09e16004c7
--- /dev/null
+++ b/radiation/src/rrtmg_lw_init.f90
@@ -0,0 +1,2677 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+      module rrtmg_lw_init
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+      use parkind, only : im => kind_im, rb => kind_rb
+      use rrlw_wvn
+      use rrtmg_lw_setcoef, only: lwatmref, lwavplank, lwavplankderiv
+
+      implicit none
+
+      contains
+
+! **************************************************************************
+      subroutine rrtmg_lw_ini(cpdair)
+! **************************************************************************
+!
+!  Original version:       Michael J. Iacono; July, 1998
+!  First revision for GCMs:   September, 1998
+!  Second revision for RRTM_V3.0:  September, 2002
+!
+!  This subroutine performs calculations necessary for the initialization
+!  of the longwave model.  Lookup tables are computed for use in the LW
+!  radiative transfer, and input absorption coefficient data for each
+!  spectral band are reduced from 256 g-point intervals to 140.
+! **************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw
+      use rrlw_tbl, only: ntbl, tblint, pade, bpade, tau_tbl, exp_tbl, tfn_tbl
+      use rrlw_vsn, only: hvrini, hnamini
+
+      real(kind=rb), intent(in) :: cpdair     ! Specific heat capacity of dry air
+                                              ! at constant pressure at 273 K
+                                              ! (J kg-1 K-1)
+
+! ------- Local -------
+
+      integer(kind=im) :: itr, ibnd, igc, ig, ind, ipr 
+      integer(kind=im) :: igcsm, iprsm
+
+      real(kind=rb) :: wtsum, wtsm(mg)        !
+      real(kind=rb) :: tfn                    !
+
+      real(kind=rb), parameter :: expeps = 1.e-20_rb   ! Smallest value for exponential table
+
+! ------- Definitions -------
+!     Arrays for 10000-point look-up tables:
+!     TAU_TBL Clear-sky optical depth (used in cloudy radiative transfer)
+!     EXP_TBL Exponential lookup table for ransmittance
+!     TFN_TBL Tau transition function; i.e. the transition of the Planck
+!             function from that for the mean layer temperature to that for
+!             the layer boundary temperature as a function of optical depth.
+!             The "linear in tau" method is used to make the table.
+!     PADE    Pade approximation constant (= 0.278)
+!     BPADE   Inverse of the Pade approximation constant
+!
+
+      hvrini = '$Revision$'
+! Initialize model data
+      call lwdatinit(cpdair)
+      call lwcmbdat               ! g-point interval reduction data
+      call lwcldpr                ! cloud optical properties
+      call lwatmref               ! reference MLS profile
+      call lwavplank              ! Planck function 
+      call lwavplankderiv         ! Planck function derivative wrt temp
+      call lw_kgb01               ! molecular absorption coefficients
+      call lw_kgb02
+      call lw_kgb03
+      call lw_kgb04
+      call lw_kgb05
+      call lw_kgb06
+      call lw_kgb07
+      call lw_kgb08
+      call lw_kgb09
+      call lw_kgb10
+      call lw_kgb11
+      call lw_kgb12
+      call lw_kgb13
+      call lw_kgb14
+      call lw_kgb15
+      call lw_kgb16
+
+! Compute lookup tables for transmittance, tau transition function,
+! and clear sky tau (for the cloudy sky radiative transfer).  Tau is 
+! computed as a function of the tau transition function, transmittance 
+! is calculated as a function of tau, and the tau transition function 
+! is calculated using the linear in tau formulation at values of tau 
+! above 0.01.  TF is approximated as tau/6 for tau < 0.01.  All tables 
+! are computed at intervals of 0.001.  The inverse of the constant used
+! in the Pade approximation to the tau transition function is set to b.
+
+      tau_tbl(0) = 0.0_rb
+      tau_tbl(ntbl) = 1.e10_rb
+      exp_tbl(0) = 1.0_rb
+      exp_tbl(ntbl) = expeps
+      tfn_tbl(0) = 0.0_rb
+      tfn_tbl(ntbl) = 1.0_rb
+      bpade = 1.0_rb / pade
+      do itr = 1, ntbl-1
+         tfn = real(itr) / real(ntbl)
+         tau_tbl(itr) = bpade * tfn / (1._rb - tfn)
+         exp_tbl(itr) = exp(-tau_tbl(itr))
+         if (exp_tbl(itr) .le. expeps) exp_tbl(itr) = expeps
+         if (tau_tbl(itr) .lt. 0.06_rb) then
+            tfn_tbl(itr) = tau_tbl(itr)/6._rb
+         else
+            tfn_tbl(itr) = 1._rb-2._rb*((1._rb/tau_tbl(itr))-(exp_tbl(itr)/(1.-exp_tbl(itr))))
+         endif
+      enddo
+
+! Perform g-point reduction from 16 per band (256 total points) to
+! a band dependant number (140 total points) for all absorption
+! coefficient input data and Planck fraction input data.
+! Compute relative weighting for new g-point combinations.
+
+      igcsm = 0
+      do ibnd = 1,nbndlw
+         iprsm = 0
+         if (ngc(ibnd).lt.mg) then
+            do igc = 1,ngc(ibnd) 
+               igcsm = igcsm + 1
+               wtsum = 0._rb
+               do ipr = 1, ngn(igcsm)
+                  iprsm = iprsm + 1
+                  wtsum = wtsum + wt(iprsm)
+               enddo
+               wtsm(igc) = wtsum
+            enddo
+            do ig = 1, ng(ibnd)
+               ind = (ibnd-1)*mg + ig
+               rwgt(ind) = wt(ig)/wtsm(ngm(ind))
+            enddo
+         else
+            do ig = 1, ng(ibnd)
+               igcsm = igcsm + 1
+               ind = (ibnd-1)*mg + ig
+               rwgt(ind) = 1.0_rb
+            enddo
+         endif
+      enddo
+
+! Reduce g-points for absorption coefficient data in each LW spectral band.
+
+      call cmbgb1
+      call cmbgb2
+      call cmbgb3
+      call cmbgb4
+      call cmbgb5
+      call cmbgb6
+      call cmbgb7
+      call cmbgb8
+      call cmbgb9
+      call cmbgb10
+      call cmbgb11
+      call cmbgb12
+      call cmbgb13
+      call cmbgb14
+      call cmbgb15
+      call cmbgb16
+
+      end subroutine rrtmg_lw_ini
+
+!***************************************************************************
+      subroutine lwdatinit(cpdair)
+!***************************************************************************
+
+! --------- Modules ----------
+
+      use parrrtm, only : maxxsec, maxinpx
+      use rrlw_con, only: heatfac, grav, planck, boltz, &
+                          clight, avogad, alosmt, gascon, radcn1, radcn2, &
+                          sbcnst, secdy 
+      use rrlw_vsn
+
+      save 
+ 
+      real(kind=rb), intent(in) :: cpdair      ! Specific heat capacity of dry air
+                                               ! at constant pressure at 273 K
+                                               ! (J kg-1 K-1)
+
+! Longwave spectral band limits (wavenumbers)
+      wavenum1(:) = (/ 10._rb, 350._rb, 500._rb, 630._rb, 700._rb, 820._rb, &
+                      980._rb,1080._rb,1180._rb,1390._rb,1480._rb,1800._rb, &
+                     2080._rb,2250._rb,2380._rb,2600._rb/)
+      wavenum2(:) = (/350._rb, 500._rb, 630._rb, 700._rb, 820._rb, 980._rb, &
+                     1080._rb,1180._rb,1390._rb,1480._rb,1800._rb,2080._rb, &
+                     2250._rb,2380._rb,2600._rb,3250._rb/)
+      delwave(:) =  (/340._rb, 150._rb, 130._rb,  70._rb, 120._rb, 160._rb, &
+                      100._rb, 100._rb, 210._rb,  90._rb, 320._rb, 280._rb, &
+                      170._rb, 130._rb, 220._rb, 650._rb/)
+
+! Spectral band information
+      ng(:) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16/)
+      nspa(:) = (/1,1,9,9,9,1,9,1,9,1,1,9,9,1,9,9/)
+      nspb(:) = (/1,1,5,5,5,0,1,1,1,1,1,0,0,1,0,0/)
+
+!     nxmol     - number of cross-sections input by user
+!     ixindx(i) - index of cross-section molecule corresponding to Ith
+!                 cross-section specified by user
+!                 = 0 -- not allowed in rrtm
+!                 = 1 -- ccl4
+!                 = 2 -- cfc11
+!                 = 3 -- cfc12
+!                 = 4 -- cfc22
+      nxmol = 4
+      ixindx(1) = 1
+      ixindx(2) = 2
+      ixindx(3) = 3
+      ixindx(4) = 4
+      ixindx(5:maxinpx) = 0
+
+! Fundamental physical constants from NIST 2002
+
+      grav = 9.8066_rb                        ! Acceleration of gravity
+                                              ! (m s-2)
+      planck = 6.62606876e-27_rb              ! Planck constant
+                                              ! (ergs s; g cm2 s-1)
+      boltz = 1.3806503e-16_rb                ! Boltzmann constant
+                                              ! (ergs K-1; g cm2 s-2 K-1)
+      clight = 2.99792458e+10_rb              ! Speed of light in a vacuum  
+                                              ! (cm s-1)
+      avogad = 6.02214199e+23_rb              ! Avogadro constant
+                                              ! (mol-1)
+      alosmt = 2.6867775e+19_rb               ! Loschmidt constant
+                                              ! (cm-3)
+      gascon = 8.31447200e+07_rb              ! Molar gas constant
+                                              ! (ergs mol-1 K-1)
+      radcn1 = 1.191042722e-12_rb             ! First radiation constant
+                                              ! (W cm2 sr-1)
+      radcn2 = 1.4387752_rb                   ! Second radiation constant
+                                              ! (cm K)
+      sbcnst = 5.670400e-04_rb                ! Stefan-Boltzmann constant
+                                              ! (W cm-2 K-4)
+      secdy = 8.6400e4_rb                     ! Number of seconds per day
+                                              ! (s d-1)
+!
+!     units are generally cgs
+!
+!     The first and second radiation constants are taken from NIST.
+!     They were previously obtained from the relations:
+!          radcn1 = 2.*planck*clight*clight*1.e-07
+!          radcn2 = planck*clight/boltz
+
+!     Heatfac is the factor by which delta-flux / delta-pressure is
+!     multiplied, with flux in W/m-2 and pressure in mbar, to get 
+!     the heating rate in units of degrees/day.  It is equal to:
+!     Original value:
+!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)
+!           Here, cpdair (1.004) is in units of J g-1 K-1, and the 
+!           constant (1.e-5) converts mb to Pa and g-1 to kg-1.
+!        =  (9.8066)(86400)(1e-5)/(1.004)
+!      heatfac = 8.4391_rb
+!
+!     Modified value for consistency with CAM3:
+!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)
+!           Here, cpdair (1.00464) is in units of J g-1 K-1, and the
+!           constant (1.e-5) converts mb to Pa and g-1 to kg-1.
+!        =  (9.80616)(86400)(1e-5)/(1.00464)
+!      heatfac = 8.43339130434_rb
+!
+!     Calculated value:
+!        (grav) x (#sec/day) / (specific heat of dry air at const. p x 1.e2)
+!           Here, cpdair is in units of J kg-1 K-1, and the constant (1.e2) 
+!           converts mb to Pa when heatfac is multiplied by W m-2 mb-1. 
+      heatfac = grav * secdy / (cpdair * 1.e2_rb)
+
+      end subroutine lwdatinit
+
+!***************************************************************************
+      subroutine lwcmbdat
+!***************************************************************************
+
+      save
+ 
+! ------- Definitions -------
+!     Arrays for the g-point reduction from 256 to 140 for the 16 LW bands:
+!     This mapping from 256 to 140 points has been carefully selected to 
+!     minimize the effect on the resulting fluxes and cooling rates, and
+!     caution should be used if the mapping is modified.  The full 256
+!     g-point set can be restored with ngptlw=256, ngc=16*16, ngn=256*1., etc.
+!     ngptlw  The total number of new g-points
+!     ngc     The number of new g-points in each band
+!     ngs     The cumulative sum of new g-points for each band
+!     ngm     The index of each new g-point relative to the original
+!             16 g-points for each band.  
+!     ngn     The number of original g-points that are combined to make
+!             each new g-point in each band.
+!     ngb     The band index for each new g-point.
+!     wt      RRTM weights for 16 g-points.
+
+! ------- Data statements -------
+      ngc(:) = (/10,12,16,14,16,8,12,8,12,6,8,8,4,2,2,2/)
+      ngs(:) = (/10,22,38,52,68,76,88,96,108,114,122,130,134,136,138,140/)
+      ngm(:) = (/1,2,3,3,4,4,5,5,6,6,7,7,8,8,9,10, &          ! band 1
+                 1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12, &     ! band 2
+                 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 3
+                 1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,14, &    ! band 4
+                 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 5
+                 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &           ! band 6
+                 1,1,2,2,3,4,5,6,7,8,9,10,11,11,12,12, &      ! band 7
+                 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &           ! band 8
+                 1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12, &     ! band 9
+                 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, &           ! band 10
+                 1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,8, &           ! band 11
+                 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! band 12
+                 1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4, &           ! band 13
+                 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &           ! band 14
+                 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &           ! band 15
+                 1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2/)            ! band 16
+      ngn(:) = (/1,1,2,2,2,2,2,2,1,1, &                       ! band 1
+                 1,1,1,1,1,1,1,1,2,2,2,2, &                   ! band 2
+                 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 3
+                 1,1,1,1,1,1,1,1,1,1,1,1,1,3, &               ! band 4
+                 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 5
+                 2,2,2,2,2,2,2,2, &                           ! band 6
+                 2,2,1,1,1,1,1,1,1,1,2,2, &                   ! band 7
+                 2,2,2,2,2,2,2,2, &                           ! band 8
+                 1,1,1,1,1,1,1,1,2,2,2,2, &                   ! band 9
+                 2,2,2,2,4,4, &                               ! band 10
+                 1,1,2,2,2,2,3,3, &                           ! band 11
+                 1,1,1,1,2,2,4,4, &                           ! band 12
+                 3,3,4,6, &                                   ! band 13
+                 8,8, &                                       ! band 14
+                 8,8, &                                       ! band 15
+                 4,12/)                                       ! band 16
+      ngb(:) = (/1,1,1,1,1,1,1,1,1,1, &                       ! band 1
+                 2,2,2,2,2,2,2,2,2,2,2,2, &                   ! band 2
+                 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, &           ! band 3
+                 4,4,4,4,4,4,4,4,4,4,4,4,4,4, &               ! band 4
+                 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, &           ! band 5
+                 6,6,6,6,6,6,6,6, &                           ! band 6
+                 7,7,7,7,7,7,7,7,7,7,7,7, &                   ! band 7
+                 8,8,8,8,8,8,8,8, &                           ! band 8
+                 9,9,9,9,9,9,9,9,9,9,9,9, &                   ! band 9
+                 10,10,10,10,10,10, &                         ! band 10
+                 11,11,11,11,11,11,11,11, &                   ! band 11
+                 12,12,12,12,12,12,12,12, &                   ! band 12
+                 13,13,13,13, &                               ! band 13
+                 14,14, &                                     ! band 14
+                 15,15, &                                     ! band 15
+                 16,16/)                                      ! band 16
+      wt(:) = (/ 0.1527534276_rb, 0.1491729617_rb, 0.1420961469_rb, &
+                 0.1316886544_rb, 0.1181945205_rb, 0.1019300893_rb, &
+                 0.0832767040_rb, 0.0626720116_rb, 0.0424925000_rb, &
+                 0.0046269894_rb, 0.0038279891_rb, 0.0030260086_rb, &
+                 0.0022199750_rb, 0.0014140010_rb, 0.0005330000_rb, &
+                 0.0000750000_rb/)
+
+      end subroutine lwcmbdat
+
+!***************************************************************************
+      subroutine cmbgb1
+!***************************************************************************
+!
+!  Original version:    MJIacono; July 1998
+!  Revision for GCMs:   MJIacono; September 1998
+!  Revision for RRTMG:  MJIacono, September 2002
+!  Revision for F90 reformatting:  MJIacono, June 2006
+!
+!  The subroutines CMBGB1->CMBGB16 input the absorption coefficient
+!  data for each band, which are defined for 16 g-points and 16 spectral
+!  bands. The data are combined with appropriate weighting following the
+!  g-point mapping arrays specified in RRTMINIT.  Plank fraction data
+!  in arrays FRACREFA and FRACREFB are combined without weighting.  All
+!  g-point reduced data are put into new arrays for use in RRTM.
+!
+!  band 1:  10-350 cm-1 (low key - h2o; low minor - n2)
+!                       (high key - h2o; high minor - n2)
+!  note: previous versions of rrtm band 1: 
+!        10-250 cm-1 (low - h2o; high - h2o)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng1
+      use rrlw_kg01, only: fracrefao, fracrefbo, kao, kbo, kao_mn2, kbo_mn2, &
+                           selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, absb, kb, ka_mn2, kb_mn2, &
+                           selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumk1, sumk2, sumf1, sumf2
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(1)
+               sumk = 0.
+               do ipr = 1, ngn(igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(1)
+               sumk = 0.
+               do ipr = 1, ngn(igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(1)
+            sumk = 0.
+            do ipr = 1, ngn(igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(1)
+            sumk = 0.
+            do ipr = 1, ngn(igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,19
+         iprsm = 0
+         do igc = 1,ngc(1)
+            sumk1 = 0.
+            sumk2 = 0.
+            do ipr = 1, ngn(igc)
+               iprsm = iprsm + 1
+               sumk1 = sumk1 + kao_mn2(jt,iprsm)*rwgt(iprsm)
+               sumk2 = sumk2 + kbo_mn2(jt,iprsm)*rwgt(iprsm)
+            enddo
+            ka_mn2(jt,igc) = sumk1
+            kb_mn2(jt,igc) = sumk2
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(1)
+         sumf1 = 0.
+         sumf2 = 0.
+         do ipr = 1, ngn(igc)
+            iprsm = iprsm + 1
+            sumf1= sumf1+ fracrefao(iprsm)
+            sumf2= sumf2+ fracrefbo(iprsm)
+         enddo
+         fracrefa(igc) = sumf1
+         fracrefb(igc) = sumf2
+      enddo
+
+      end subroutine cmbgb1
+
+!***************************************************************************
+      subroutine cmbgb2
+!***************************************************************************
+!
+!     band 2:  350-500 cm-1 (low key - h2o; high key - h2o)
+!
+!     note: previous version of rrtm band 2: 
+!           250 - 500 cm-1 (low - h2o; high - h2o)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng2
+      use rrlw_kg02, only: fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, absb, kb, selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf1, sumf2
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(2)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(1)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+16)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(2)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(1)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+16)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(2)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(1)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+16)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(2)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(1)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+16)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(2)
+         sumf1 = 0.
+         sumf2 = 0.
+         do ipr = 1, ngn(ngs(1)+igc)
+            iprsm = iprsm + 1
+            sumf1= sumf1+ fracrefao(iprsm)
+            sumf2= sumf2+ fracrefbo(iprsm)
+         enddo
+         fracrefa(igc) = sumf1
+         fracrefb(igc) = sumf2
+      enddo
+
+      end subroutine cmbgb2
+
+!***************************************************************************
+      subroutine cmbgb3
+!***************************************************************************
+!
+!     band 3:  500-630 cm-1 (low key - h2o,co2; low minor - n2o)
+!                           (high key - h2o,co2; high minor - n2o)
+!
+! old band 3:  500-630 cm-1 (low - h2o,co2; high - h2o,co2)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng3
+      use rrlw_kg03, only: fracrefao, fracrefbo, kao, kbo, kao_mn2o, kbo_mn2o, &
+                           selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, absb, kb, ka_mn2o, kb_mn2o, &
+                           selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(3)
+                 sumk = 0.
+                  do ipr = 1, ngn(ngs(2)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+32)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+      do jn = 1,5
+         do jt = 1,5
+            do jp = 13,59
+               iprsm = 0
+               do igc = 1,ngc(3)
+                  sumk = 0.
+                  do ipr = 1, ngn(ngs(2)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+32)
+                  enddo
+                  kb(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jn = 1,9
+         do jt = 1,19
+            iprsm = 0
+            do igc = 1,ngc(3)
+              sumk = 0.
+               do ipr = 1, ngn(ngs(2)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao_mn2o(jn,jt,iprsm)*rwgt(iprsm+32)
+               enddo
+               ka_mn2o(jn,jt,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jn = 1,5
+         do jt = 1,19
+            iprsm = 0
+            do igc = 1,ngc(3)
+              sumk = 0.
+               do ipr = 1, ngn(ngs(2)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo_mn2o(jn,jt,iprsm)*rwgt(iprsm+32)
+               enddo
+               kb_mn2o(jn,jt,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(3)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(2)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+32)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(3)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(2)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+32)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(3)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(2)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefao(iprsm,jp)
+            enddo
+            fracrefa(igc,jp) = sumf
+         enddo
+      enddo
+
+      do jp = 1,5
+         iprsm = 0
+         do igc = 1,ngc(3)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(2)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefbo(iprsm,jp)
+            enddo
+            fracrefb(igc,jp) = sumf
+         enddo
+      enddo
+
+      end subroutine cmbgb3
+
+!***************************************************************************
+      subroutine cmbgb4
+!***************************************************************************
+!
+!     band 4:  630-700 cm-1 (low key - h2o,co2; high key - o3,co2)
+!
+! old band 4:  630-700 cm-1 (low - h2o,co2; high - o3,co2)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng4
+      use rrlw_kg04, only: fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, absb, kb, selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(4)
+                 sumk = 0.
+                  do ipr = 1, ngn(ngs(3)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+48)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+      do jn = 1,5
+         do jt = 1,5
+            do jp = 13,59
+               iprsm = 0
+               do igc = 1,ngc(4)
+                  sumk = 0.
+                  do ipr = 1, ngn(ngs(3)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+48)
+                  enddo
+                  kb(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(4)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(3)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+48)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(4)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(3)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+48)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(4)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(3)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefao(iprsm,jp)
+            enddo
+            fracrefa(igc,jp) = sumf
+         enddo
+      enddo
+
+      do jp = 1,5
+         iprsm = 0
+         do igc = 1,ngc(4)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(3)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefbo(iprsm,jp)
+            enddo
+            fracrefb(igc,jp) = sumf
+         enddo
+      enddo
+
+      end subroutine cmbgb4
+
+!***************************************************************************
+      subroutine cmbgb5
+!***************************************************************************
+!
+!     band 5:  700-820 cm-1 (low key - h2o,co2; low minor - o3, ccl4)
+!                           (high key - o3,co2)
+!
+! old band 5:  700-820 cm-1 (low - h2o,co2; high - o3,co2)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng5
+      use rrlw_kg05, only: fracrefao, fracrefbo, kao, kbo, kao_mo3, ccl4o, &
+                           selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, absb, kb, ka_mo3, ccl4, &
+                           selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(5)
+                 sumk = 0.
+                  do ipr = 1, ngn(ngs(4)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+64)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+      do jn = 1,5
+         do jt = 1,5
+            do jp = 13,59
+               iprsm = 0
+               do igc = 1,ngc(5)
+                  sumk = 0.
+                  do ipr = 1, ngn(ngs(4)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+64)
+                  enddo
+                  kb(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jn = 1,9
+         do jt = 1,19
+            iprsm = 0
+            do igc = 1,ngc(5)
+              sumk = 0.
+               do ipr = 1, ngn(ngs(4)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao_mo3(jn,jt,iprsm)*rwgt(iprsm+64)
+               enddo
+               ka_mo3(jn,jt,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(5)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(4)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+64)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(5)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(4)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+64)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(5)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(4)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefao(iprsm,jp)
+            enddo
+            fracrefa(igc,jp) = sumf
+         enddo
+      enddo
+
+      do jp = 1,5
+         iprsm = 0
+         do igc = 1,ngc(5)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(4)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefbo(iprsm,jp)
+            enddo
+            fracrefb(igc,jp) = sumf
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(5)
+         sumk = 0.
+         do ipr = 1, ngn(ngs(4)+igc)
+            iprsm = iprsm + 1
+            sumk = sumk + ccl4o(iprsm)*rwgt(iprsm+64)
+         enddo
+         ccl4(igc) = sumk
+      enddo
+
+      end subroutine cmbgb5
+
+!***************************************************************************
+      subroutine cmbgb6
+!***************************************************************************
+!
+!     band 6:  820-980 cm-1 (low key - h2o; low minor - co2)
+!                           (high key - nothing; high minor - cfc11, cfc12)
+!
+! old band 6:  820-980 cm-1 (low - h2o; high - nothing)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng6
+      use rrlw_kg06, only: fracrefao, kao, kao_mco2, cfc11adjo, cfc12o, &
+                           selfrefo, forrefo, &
+                           fracrefa, absa, ka, ka_mco2, cfc11adj, cfc12, &
+                           selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf, sumk1, sumk2
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(6)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(5)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+80)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,19
+         iprsm = 0
+         do igc = 1,ngc(6)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(5)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + kao_mco2(jt,iprsm)*rwgt(iprsm+80)
+            enddo
+            ka_mco2(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(6)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(5)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+80)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(6)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(5)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+80)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(6)
+         sumf = 0.
+         sumk1= 0.
+         sumk2= 0.
+         do ipr = 1, ngn(ngs(5)+igc)
+            iprsm = iprsm + 1
+            sumf = sumf + fracrefao(iprsm)
+            sumk1= sumk1+ cfc11adjo(iprsm)*rwgt(iprsm+80)
+            sumk2= sumk2+ cfc12o(iprsm)*rwgt(iprsm+80)
+         enddo
+         fracrefa(igc) = sumf
+         cfc11adj(igc) = sumk1
+         cfc12(igc) = sumk2
+      enddo
+
+      end subroutine cmbgb6
+
+!***************************************************************************
+      subroutine cmbgb7
+!***************************************************************************
+!
+!     band 7:  980-1080 cm-1 (low key - h2o,o3; low minor - co2)
+!                            (high key - o3; high minor - co2)
+!
+! old band 7:  980-1080 cm-1 (low - h2o,o3; high - o3)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng7
+      use rrlw_kg07, only: fracrefao, fracrefbo, kao, kbo, kao_mco2, kbo_mco2, &
+                           selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, absb, kb, ka_mco2, kb_mco2, &
+                           selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(7)
+                 sumk = 0.
+                  do ipr = 1, ngn(ngs(6)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+96)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(7)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(6)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+96)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jn = 1,9
+         do jt = 1,19
+            iprsm = 0
+            do igc = 1,ngc(7)
+              sumk = 0.
+               do ipr = 1, ngn(ngs(6)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao_mco2(jn,jt,iprsm)*rwgt(iprsm+96)
+               enddo
+               ka_mco2(jn,jt,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,19
+         iprsm = 0
+         do igc = 1,ngc(7)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(6)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + kbo_mco2(jt,iprsm)*rwgt(iprsm+96)
+            enddo
+            kb_mco2(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(7)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(6)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+96)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(7)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(6)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+96)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(7)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(6)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefao(iprsm,jp)
+            enddo
+            fracrefa(igc,jp) = sumf
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(7)
+         sumf = 0.
+         do ipr = 1, ngn(ngs(6)+igc)
+            iprsm = iprsm + 1
+            sumf = sumf + fracrefbo(iprsm)
+         enddo
+         fracrefb(igc) = sumf
+      enddo
+
+      end subroutine cmbgb7
+
+!***************************************************************************
+      subroutine cmbgb8
+!***************************************************************************
+!
+!     band 8:  1080-1180 cm-1 (low key - h2o; low minor - co2,o3,n2o)
+!                             (high key - o3; high minor - co2, n2o)
+!
+! old band 8:  1080-1180 cm-1 (low (i.e.>~300mb) - h2o; high - o3)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng8
+      use rrlw_kg08, only: fracrefao, fracrefbo, kao, kao_mco2, kao_mn2o, &
+                           kao_mo3, kbo, kbo_mco2, kbo_mn2o, selfrefo, forrefo, &
+                           cfc12o, cfc22adjo, &
+                           fracrefa, fracrefb, absa, ka, ka_mco2, ka_mn2o, &
+                           ka_mo3, absb, kb, kb_mco2, kb_mn2o, selfref, forref, &
+                           cfc12, cfc22adj
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumk1, sumk2, sumk3, sumk4, sumk5, sumf1, sumf2
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(8)
+              sumk = 0.
+               do ipr = 1, ngn(ngs(7)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+112)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(8)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(7)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+112)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(8)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(7)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+112)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(8)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(7)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+112)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,19
+         iprsm = 0
+         do igc = 1,ngc(8)
+            sumk1 = 0.
+            sumk2 = 0.
+            sumk3 = 0.
+            sumk4 = 0.
+            sumk5 = 0.
+            do ipr = 1, ngn(ngs(7)+igc)
+               iprsm = iprsm + 1
+               sumk1 = sumk1 + kao_mco2(jt,iprsm)*rwgt(iprsm+112)
+               sumk2 = sumk2 + kbo_mco2(jt,iprsm)*rwgt(iprsm+112)
+               sumk3 = sumk3 + kao_mo3(jt,iprsm)*rwgt(iprsm+112)
+               sumk4 = sumk4 + kao_mn2o(jt,iprsm)*rwgt(iprsm+112)
+               sumk5 = sumk5 + kbo_mn2o(jt,iprsm)*rwgt(iprsm+112)
+            enddo
+            ka_mco2(jt,igc) = sumk1
+            kb_mco2(jt,igc) = sumk2
+            ka_mo3(jt,igc) = sumk3
+            ka_mn2o(jt,igc) = sumk4
+            kb_mn2o(jt,igc) = sumk5
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(8)
+         sumf1= 0.
+         sumf2= 0.
+         sumk1= 0.
+         sumk2= 0.
+         do ipr = 1, ngn(ngs(7)+igc)
+            iprsm = iprsm + 1
+            sumf1= sumf1+ fracrefao(iprsm)
+            sumf2= sumf2+ fracrefbo(iprsm)
+            sumk1= sumk1+ cfc12o(iprsm)*rwgt(iprsm+112)
+            sumk2= sumk2+ cfc22adjo(iprsm)*rwgt(iprsm+112)
+         enddo
+         fracrefa(igc) = sumf1
+         fracrefb(igc) = sumf2
+         cfc12(igc) = sumk1
+         cfc22adj(igc) = sumk2
+      enddo
+
+      end subroutine cmbgb8
+
+!***************************************************************************
+      subroutine cmbgb9
+!***************************************************************************
+!
+!     band 9:  1180-1390 cm-1 (low key - h2o,ch4; low minor - n2o)
+!                             (high key - ch4; high minor - n2o)!
+
+! old band 9:  1180-1390 cm-1 (low - h2o,ch4; high - ch4)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng9
+      use rrlw_kg09, only: fracrefao, fracrefbo, kao, kao_mn2o, &
+                           kbo, kbo_mn2o, selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, ka_mn2o, &
+                           absb, kb, kb_mn2o, selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(9)
+                  sumk = 0.
+                  do ipr = 1, ngn(ngs(8)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+128)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(9)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(8)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+128)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jn = 1,9
+         do jt = 1,19
+            iprsm = 0
+            do igc = 1,ngc(9)
+              sumk = 0.
+               do ipr = 1, ngn(ngs(8)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao_mn2o(jn,jt,iprsm)*rwgt(iprsm+128)
+               enddo
+               ka_mn2o(jn,jt,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,19
+         iprsm = 0
+         do igc = 1,ngc(9)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(8)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + kbo_mn2o(jt,iprsm)*rwgt(iprsm+128)
+            enddo
+            kb_mn2o(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(9)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(8)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+128)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(9)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(8)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+128)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(9)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(8)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefao(iprsm,jp)
+            enddo
+            fracrefa(igc,jp) = sumf
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(9)
+         sumf = 0.
+         do ipr = 1, ngn(ngs(8)+igc)
+            iprsm = iprsm + 1
+            sumf = sumf + fracrefbo(iprsm)
+         enddo
+         fracrefb(igc) = sumf
+      enddo
+
+      end subroutine cmbgb9
+
+!***************************************************************************
+      subroutine cmbgb10
+!***************************************************************************
+!
+!     band 10:  1390-1480 cm-1 (low key - h2o; high key - h2o)
+!
+! old band 10:  1390-1480 cm-1 (low - h2o; high - h2o)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng10
+      use rrlw_kg10, only: fracrefao, fracrefbo, kao, kbo, &
+                           selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, absb, kb, &
+                           selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf1, sumf2
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(10)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(9)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+144)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(10)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(9)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+144)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(10)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(9)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+144)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(10)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(9)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+144)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(10)
+         sumf1= 0.
+         sumf2= 0.
+         do ipr = 1, ngn(ngs(9)+igc)
+            iprsm = iprsm + 1
+            sumf1= sumf1+ fracrefao(iprsm)
+            sumf2= sumf2+ fracrefbo(iprsm)
+         enddo
+         fracrefa(igc) = sumf1
+         fracrefb(igc) = sumf2
+      enddo
+
+      end subroutine cmbgb10
+
+!***************************************************************************
+      subroutine cmbgb11
+!***************************************************************************
+!
+!     band 11:  1480-1800 cm-1 (low - h2o; low minor - o2)
+!                              (high key - h2o; high minor - o2)
+!
+! old band 11:  1480-1800 cm-1 (low - h2o; low minor - o2)
+!                              (high key - h2o; high minor - o2)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng11
+      use rrlw_kg11, only: fracrefao, fracrefbo, kao, kao_mo2, &
+                           kbo, kbo_mo2, selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, ka_mo2, &
+                           absb, kb, kb_mo2, selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumk1, sumk2, sumf1, sumf2
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(11)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(10)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+160)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(11)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(10)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+160)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,19
+         iprsm = 0
+         do igc = 1,ngc(11)
+            sumk1 = 0.
+            sumk2 = 0.
+            do ipr = 1, ngn(ngs(10)+igc)
+               iprsm = iprsm + 1
+               sumk1 = sumk1 + kao_mo2(jt,iprsm)*rwgt(iprsm+160)
+               sumk2 = sumk2 + kbo_mo2(jt,iprsm)*rwgt(iprsm+160)
+            enddo
+            ka_mo2(jt,igc) = sumk1
+            kb_mo2(jt,igc) = sumk2
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(11)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(10)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+160)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(11)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(10)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+160)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(11)
+         sumf1= 0.
+         sumf2= 0.
+         do ipr = 1, ngn(ngs(10)+igc)
+            iprsm = iprsm + 1
+            sumf1= sumf1+ fracrefao(iprsm)
+            sumf2= sumf2+ fracrefbo(iprsm)
+         enddo
+         fracrefa(igc) = sumf1
+         fracrefb(igc) = sumf2
+      enddo
+
+      end subroutine cmbgb11
+
+!***************************************************************************
+      subroutine cmbgb12
+!***************************************************************************
+!
+!     band 12:  1800-2080 cm-1 (low - h2o,co2; high - nothing)
+!
+! old band 12:  1800-2080 cm-1 (low - h2o,co2; high - nothing)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng12
+      use rrlw_kg12, only: fracrefao, kao, selfrefo, forrefo, &
+                           fracrefa, absa, ka, selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(12)
+                  sumk = 0.
+                  do ipr = 1, ngn(ngs(11)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+176)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(12)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(11)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+176)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(12)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(11)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+176)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(12)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(11)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefao(iprsm,jp)
+            enddo
+            fracrefa(igc,jp) = sumf
+         enddo
+      enddo
+
+      end subroutine cmbgb12
+
+!***************************************************************************
+      subroutine cmbgb13
+!***************************************************************************
+!
+!     band 13:  2080-2250 cm-1 (low key - h2o,n2o; high minor - o3 minor)
+!
+! old band 13:  2080-2250 cm-1 (low - h2o,n2o; high - nothing)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng13
+      use rrlw_kg13, only: fracrefao, fracrefbo, kao, kao_mco2, kao_mco, &
+                           kbo_mo3, selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, ka_mco2, ka_mco, &
+                           kb_mo3, selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumk1, sumk2, sumf
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(13)
+                  sumk = 0.
+                  do ipr = 1, ngn(ngs(12)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+192)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jn = 1,9
+         do jt = 1,19
+            iprsm = 0
+            do igc = 1,ngc(13)
+              sumk1 = 0.
+              sumk2 = 0.
+               do ipr = 1, ngn(ngs(12)+igc)
+                  iprsm = iprsm + 1
+                  sumk1 = sumk1 + kao_mco2(jn,jt,iprsm)*rwgt(iprsm+192)
+                  sumk2 = sumk2 + kao_mco(jn,jt,iprsm)*rwgt(iprsm+192)
+               enddo
+               ka_mco2(jn,jt,igc) = sumk1
+               ka_mco(jn,jt,igc) = sumk2
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,19
+         iprsm = 0
+         do igc = 1,ngc(13)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(12)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + kbo_mo3(jt,iprsm)*rwgt(iprsm+192)
+            enddo
+            kb_mo3(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(13)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(12)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+192)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(13)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(12)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+192)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(13)
+         sumf = 0.
+         do ipr = 1, ngn(ngs(12)+igc)
+            iprsm = iprsm + 1
+            sumf = sumf + fracrefbo(iprsm)
+         enddo
+         fracrefb(igc) = sumf
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(13)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(12)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefao(iprsm,jp)
+            enddo
+            fracrefa(igc,jp) = sumf
+         enddo
+      enddo
+
+      end subroutine cmbgb13
+
+!***************************************************************************
+      subroutine cmbgb14
+!***************************************************************************
+!
+!     band 14:  2250-2380 cm-1 (low - co2; high - co2)
+!
+! old band 14:  2250-2380 cm-1 (low - co2; high - co2)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng14
+      use rrlw_kg14, only: fracrefao, fracrefbo, kao, kbo, &
+                           selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, absb, kb, &
+                           selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf1, sumf2
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(14)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(13)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+208)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(14)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(13)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+208)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(14)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(13)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+208)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(14)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(13)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+208)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(14)
+         sumf1= 0.
+         sumf2= 0.
+         do ipr = 1, ngn(ngs(13)+igc)
+            iprsm = iprsm + 1
+            sumf1= sumf1+ fracrefao(iprsm)
+            sumf2= sumf2+ fracrefbo(iprsm)
+         enddo
+         fracrefa(igc) = sumf1
+         fracrefb(igc) = sumf2
+      enddo
+
+      end subroutine cmbgb14
+
+!***************************************************************************
+      subroutine cmbgb15
+!***************************************************************************
+!
+!     band 15:  2380-2600 cm-1 (low - n2o,co2; low minor - n2)
+!                              (high - nothing)
+!
+! old band 15:  2380-2600 cm-1 (low - n2o,co2; high - nothing)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng15
+      use rrlw_kg15, only: fracrefao, kao, kao_mn2, selfrefo, forrefo, &
+                           fracrefa, absa, ka, ka_mn2, selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(15)
+                  sumk = 0.
+                  do ipr = 1, ngn(ngs(14)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+224)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jn = 1,9
+         do jt = 1,19
+            iprsm = 0
+            do igc = 1,ngc(15)
+              sumk = 0.
+               do ipr = 1, ngn(ngs(14)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao_mn2(jn,jt,iprsm)*rwgt(iprsm+224)
+               enddo
+               ka_mn2(jn,jt,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(15)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(14)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+224)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(15)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(14)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+224)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(15)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(14)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefao(iprsm,jp)
+            enddo
+            fracrefa(igc,jp) = sumf
+         enddo
+      enddo
+
+      end subroutine cmbgb15
+
+!***************************************************************************
+      subroutine cmbgb16
+!***************************************************************************
+!
+!     band 16:  2600-3250 cm-1 (low key- h2o,ch4; high key - ch4)
+!
+! old band 16:  2600-3000 cm-1 (low - h2o,ch4; high - nothing)
+!***************************************************************************
+
+      use parrrtm, only : mg, nbndlw, ngptlw, ng16
+      use rrlw_kg16, only: fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, &
+                           fracrefa, fracrefb, absa, ka, absb, kb, selfref, forref
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm 
+      real(kind=rb) :: sumk, sumf
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(16)
+                  sumk = 0.
+                  do ipr = 1, ngn(ngs(15)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+240)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(16)
+               sumk = 0.
+               do ipr = 1, ngn(ngs(15)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+240)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(16)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(15)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+240)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(16)
+            sumk = 0.
+            do ipr = 1, ngn(ngs(15)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+240)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(16)
+         sumf = 0.
+         do ipr = 1, ngn(ngs(15)+igc)
+            iprsm = iprsm + 1
+            sumf = sumf + fracrefbo(iprsm)
+         enddo
+         fracrefb(igc) = sumf
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(16)
+            sumf = 0.
+            do ipr = 1, ngn(ngs(15)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + fracrefao(iprsm,jp)
+            enddo
+            fracrefa(igc,jp) = sumf
+         enddo
+      enddo
+
+      end subroutine cmbgb16
+
+!***************************************************************************
+      subroutine lwcldpr
+!***************************************************************************
+
+! --------- Modules ----------
+
+      use rrlw_cld, only: abscld1, absliq0, absliq1, &
+                          absice0, absice1, absice2, absice3
+
+      save
+
+! ABSCLDn is the liquid water absorption coefficient (m2/g). 
+! For INFLAG = 1.
+      abscld1 = 0.0602410_rb
+!  
+! Everything below is for INFLAG = 2.
+
+! ABSICEn(J,IB) are the parameters needed to compute the liquid water 
+! absorption coefficient in spectral region IB for ICEFLAG=n.  The units
+! of ABSICEn(1,IB) are m2/g and ABSICEn(2,IB) has units (microns (m2/g)).
+! For ICEFLAG = 0.
+
+      absice0(:)= (/0.005_rb,  1.0_rb/)
+
+! For ICEFLAG = 1.
+      absice1(1,:) = (/0.0036_rb, 0.0068_rb, 0.0003_rb, 0.0016_rb, 0.0020_rb/)
+      absice1(2,:) = (/1.136_rb , 0.600_rb , 1.338_rb , 1.166_rb , 1.118_rb /)
+
+! For ICEFLAG = 2.  In each band, the absorption
+! coefficients are listed for a range of effective radii from 5.0
+! to 131.0 microns in increments of 3.0 microns.
+! Spherical Ice Particle Parameterization
+! absorption units (abs coef/iwc): [(m^-1)/(g m^-3)]
+      absice2(:,1) = (/ &
+! band 1
+       7.798999e-02_rb,6.340479e-02_rb,5.417973e-02_rb,4.766245e-02_rb,4.272663e-02_rb, &
+       3.880939e-02_rb,3.559544e-02_rb,3.289241e-02_rb,3.057511e-02_rb,2.855800e-02_rb, &
+       2.678022e-02_rb,2.519712e-02_rb,2.377505e-02_rb,2.248806e-02_rb,2.131578e-02_rb, &
+       2.024194e-02_rb,1.925337e-02_rb,1.833926e-02_rb,1.749067e-02_rb,1.670007e-02_rb, &
+       1.596113e-02_rb,1.526845e-02_rb,1.461739e-02_rb,1.400394e-02_rb,1.342462e-02_rb, &
+       1.287639e-02_rb,1.235656e-02_rb,1.186279e-02_rb,1.139297e-02_rb,1.094524e-02_rb, &
+       1.051794e-02_rb,1.010956e-02_rb,9.718755e-03_rb,9.344316e-03_rb,8.985139e-03_rb, &
+       8.640223e-03_rb,8.308656e-03_rb,7.989606e-03_rb,7.682312e-03_rb,7.386076e-03_rb, &
+       7.100255e-03_rb,6.824258e-03_rb,6.557540e-03_rb/)
+      absice2(:,2) = (/ &
+! band 2
+       2.784879e-02_rb,2.709863e-02_rb,2.619165e-02_rb,2.529230e-02_rb,2.443225e-02_rb, &
+       2.361575e-02_rb,2.284021e-02_rb,2.210150e-02_rb,2.139548e-02_rb,2.071840e-02_rb, &
+       2.006702e-02_rb,1.943856e-02_rb,1.883064e-02_rb,1.824120e-02_rb,1.766849e-02_rb, &
+       1.711099e-02_rb,1.656737e-02_rb,1.603647e-02_rb,1.551727e-02_rb,1.500886e-02_rb, &
+       1.451045e-02_rb,1.402132e-02_rb,1.354084e-02_rb,1.306842e-02_rb,1.260355e-02_rb, &
+       1.214575e-02_rb,1.169460e-02_rb,1.124971e-02_rb,1.081072e-02_rb,1.037731e-02_rb, &
+       9.949167e-03_rb,9.526021e-03_rb,9.107615e-03_rb,8.693714e-03_rb,8.284096e-03_rb, &
+       7.878558e-03_rb,7.476910e-03_rb,7.078974e-03_rb,6.684586e-03_rb,6.293589e-03_rb, &
+       5.905839e-03_rb,5.521200e-03_rb,5.139543e-03_rb/)
+      absice2(:,3) = (/ &
+! band 3
+       1.065397e-01_rb,8.005726e-02_rb,6.546428e-02_rb,5.589131e-02_rb,4.898681e-02_rb, &
+       4.369932e-02_rb,3.947901e-02_rb,3.600676e-02_rb,3.308299e-02_rb,3.057561e-02_rb, &
+       2.839325e-02_rb,2.647040e-02_rb,2.475872e-02_rb,2.322164e-02_rb,2.183091e-02_rb, &
+       2.056430e-02_rb,1.940407e-02_rb,1.833586e-02_rb,1.734787e-02_rb,1.643034e-02_rb, &
+       1.557512e-02_rb,1.477530e-02_rb,1.402501e-02_rb,1.331924e-02_rb,1.265364e-02_rb, &
+       1.202445e-02_rb,1.142838e-02_rb,1.086257e-02_rb,1.032445e-02_rb,9.811791e-03_rb, &
+       9.322587e-03_rb,8.855053e-03_rb,8.407591e-03_rb,7.978763e-03_rb,7.567273e-03_rb, &
+       7.171949e-03_rb,6.791728e-03_rb,6.425642e-03_rb,6.072809e-03_rb,5.732424e-03_rb, &
+       5.403748e-03_rb,5.086103e-03_rb,4.778865e-03_rb/)
+      absice2(:,4) = (/ &
+! band 4
+       1.804566e-01_rb,1.168987e-01_rb,8.680442e-02_rb,6.910060e-02_rb,5.738174e-02_rb, &
+       4.902332e-02_rb,4.274585e-02_rb,3.784923e-02_rb,3.391734e-02_rb,3.068690e-02_rb, &
+       2.798301e-02_rb,2.568480e-02_rb,2.370600e-02_rb,2.198337e-02_rb,2.046940e-02_rb, &
+       1.912777e-02_rb,1.793016e-02_rb,1.685420e-02_rb,1.588193e-02_rb,1.499882e-02_rb, &
+       1.419293e-02_rb,1.345440e-02_rb,1.277496e-02_rb,1.214769e-02_rb,1.156669e-02_rb, &
+       1.102694e-02_rb,1.052412e-02_rb,1.005451e-02_rb,9.614854e-03_rb,9.202335e-03_rb, &
+       8.814470e-03_rb,8.449077e-03_rb,8.104223e-03_rb,7.778195e-03_rb,7.469466e-03_rb, &
+       7.176671e-03_rb,6.898588e-03_rb,6.634117e-03_rb,6.382264e-03_rb,6.142134e-03_rb, &
+       5.912913e-03_rb,5.693862e-03_rb,5.484308e-03_rb/)
+      absice2(:,5) = (/ &
+! band 5
+       2.131806e-01_rb,1.311372e-01_rb,9.407171e-02_rb,7.299442e-02_rb,5.941273e-02_rb, &
+       4.994043e-02_rb,4.296242e-02_rb,3.761113e-02_rb,3.337910e-02_rb,2.994978e-02_rb, &
+       2.711556e-02_rb,2.473461e-02_rb,2.270681e-02_rb,2.095943e-02_rb,1.943839e-02_rb, &
+       1.810267e-02_rb,1.692057e-02_rb,1.586719e-02_rb,1.492275e-02_rb,1.407132e-02_rb, &
+       1.329989e-02_rb,1.259780e-02_rb,1.195618e-02_rb,1.136761e-02_rb,1.082583e-02_rb, &
+       1.032552e-02_rb,9.862158e-03_rb,9.431827e-03_rb,9.031157e-03_rb,8.657217e-03_rb, &
+       8.307449e-03_rb,7.979609e-03_rb,7.671724e-03_rb,7.382048e-03_rb,7.109032e-03_rb, &
+       6.851298e-03_rb,6.607615e-03_rb,6.376881e-03_rb,6.158105e-03_rb,5.950394e-03_rb, &
+       5.752942e-03_rb,5.565019e-03_rb,5.385963e-03_rb/)
+      absice2(:,6) = (/ &
+! band 6
+       1.546177e-01_rb,1.039251e-01_rb,7.910347e-02_rb,6.412429e-02_rb,5.399997e-02_rb, &
+       4.664937e-02_rb,4.104237e-02_rb,3.660781e-02_rb,3.300218e-02_rb,3.000586e-02_rb, &
+       2.747148e-02_rb,2.529633e-02_rb,2.340647e-02_rb,2.174723e-02_rb,2.027731e-02_rb, &
+       1.896487e-02_rb,1.778492e-02_rb,1.671761e-02_rb,1.574692e-02_rb,1.485978e-02_rb, &
+       1.404543e-02_rb,1.329489e-02_rb,1.260066e-02_rb,1.195636e-02_rb,1.135657e-02_rb, &
+       1.079664e-02_rb,1.027257e-02_rb,9.780871e-03_rb,9.318505e-03_rb,8.882815e-03_rb, &
+       8.471458e-03_rb,8.082364e-03_rb,7.713696e-03_rb,7.363817e-03_rb,7.031264e-03_rb, &
+       6.714725e-03_rb,6.413021e-03_rb,6.125086e-03_rb,5.849958e-03_rb,5.586764e-03_rb, &
+       5.334707e-03_rb,5.093066e-03_rb,4.861179e-03_rb/)
+      absice2(:,7) = (/ &
+! band 7
+       7.583404e-02_rb,6.181558e-02_rb,5.312027e-02_rb,4.696039e-02_rb,4.225986e-02_rb, &
+       3.849735e-02_rb,3.538340e-02_rb,3.274182e-02_rb,3.045798e-02_rb,2.845343e-02_rb, &
+       2.667231e-02_rb,2.507353e-02_rb,2.362606e-02_rb,2.230595e-02_rb,2.109435e-02_rb, &
+       1.997617e-02_rb,1.893916e-02_rb,1.797328e-02_rb,1.707016e-02_rb,1.622279e-02_rb, &
+       1.542523e-02_rb,1.467241e-02_rb,1.395997e-02_rb,1.328414e-02_rb,1.264164e-02_rb, &
+       1.202958e-02_rb,1.144544e-02_rb,1.088697e-02_rb,1.035218e-02_rb,9.839297e-03_rb, &
+       9.346733e-03_rb,8.873057e-03_rb,8.416980e-03_rb,7.977335e-03_rb,7.553066e-03_rb, &
+       7.143210e-03_rb,6.746888e-03_rb,6.363297e-03_rb,5.991700e-03_rb,5.631422e-03_rb, &
+       5.281840e-03_rb,4.942378e-03_rb,4.612505e-03_rb/)
+      absice2(:,8) = (/ &
+! band 8
+       9.022185e-02_rb,6.922700e-02_rb,5.710674e-02_rb,4.898377e-02_rb,4.305946e-02_rb, &
+       3.849553e-02_rb,3.484183e-02_rb,3.183220e-02_rb,2.929794e-02_rb,2.712627e-02_rb, &
+       2.523856e-02_rb,2.357810e-02_rb,2.210286e-02_rb,2.078089e-02_rb,1.958747e-02_rb, &
+       1.850310e-02_rb,1.751218e-02_rb,1.660205e-02_rb,1.576232e-02_rb,1.498440e-02_rb, &
+       1.426107e-02_rb,1.358624e-02_rb,1.295474e-02_rb,1.236212e-02_rb,1.180456e-02_rb, &
+       1.127874e-02_rb,1.078175e-02_rb,1.031106e-02_rb,9.864433e-03_rb,9.439878e-03_rb, &
+       9.035637e-03_rb,8.650140e-03_rb,8.281981e-03_rb,7.929895e-03_rb,7.592746e-03_rb, &
+       7.269505e-03_rb,6.959238e-03_rb,6.661100e-03_rb,6.374317e-03_rb,6.098185e-03_rb, &
+       5.832059e-03_rb,5.575347e-03_rb,5.327504e-03_rb/)
+      absice2(:,9) = (/ &
+! band 9
+       1.294087e-01_rb,8.788217e-02_rb,6.728288e-02_rb,5.479720e-02_rb,4.635049e-02_rb, &
+       4.022253e-02_rb,3.555576e-02_rb,3.187259e-02_rb,2.888498e-02_rb,2.640843e-02_rb, &
+       2.431904e-02_rb,2.253038e-02_rb,2.098024e-02_rb,1.962267e-02_rb,1.842293e-02_rb, &
+       1.735426e-02_rb,1.639571e-02_rb,1.553060e-02_rb,1.474552e-02_rb,1.402953e-02_rb, &
+       1.337363e-02_rb,1.277033e-02_rb,1.221336e-02_rb,1.169741e-02_rb,1.121797e-02_rb, &
+       1.077117e-02_rb,1.035369e-02_rb,9.962643e-03_rb,9.595509e-03_rb,9.250088e-03_rb, &
+       8.924447e-03_rb,8.616876e-03_rb,8.325862e-03_rb,8.050057e-03_rb,7.788258e-03_rb, &
+       7.539388e-03_rb,7.302478e-03_rb,7.076656e-03_rb,6.861134e-03_rb,6.655197e-03_rb, &
+       6.458197e-03_rb,6.269543e-03_rb,6.088697e-03_rb/)
+      absice2(:,10) = (/ &
+! band 10
+       1.593628e-01_rb,1.014552e-01_rb,7.458955e-02_rb,5.903571e-02_rb,4.887582e-02_rb, &
+       4.171159e-02_rb,3.638480e-02_rb,3.226692e-02_rb,2.898717e-02_rb,2.631256e-02_rb, &
+       2.408925e-02_rb,2.221156e-02_rb,2.060448e-02_rb,1.921325e-02_rb,1.799699e-02_rb, &
+       1.692456e-02_rb,1.597177e-02_rb,1.511961e-02_rb,1.435289e-02_rb,1.365933e-02_rb, &
+       1.302890e-02_rb,1.245334e-02_rb,1.192576e-02_rb,1.144037e-02_rb,1.099230e-02_rb, &
+       1.057739e-02_rb,1.019208e-02_rb,9.833302e-03_rb,9.498395e-03_rb,9.185047e-03_rb, &
+       8.891237e-03_rb,8.615185e-03_rb,8.355325e-03_rb,8.110267e-03_rb,7.878778e-03_rb, &
+       7.659759e-03_rb,7.452224e-03_rb,7.255291e-03_rb,7.068166e-03_rb,6.890130e-03_rb, &
+       6.720536e-03_rb,6.558794e-03_rb,6.404371e-03_rb/)
+      absice2(:,11) = (/ &
+! band 11
+       1.656227e-01_rb,1.032129e-01_rb,7.487359e-02_rb,5.871431e-02_rb,4.828355e-02_rb, &
+       4.099989e-02_rb,3.562924e-02_rb,3.150755e-02_rb,2.824593e-02_rb,2.560156e-02_rb, &
+       2.341503e-02_rb,2.157740e-02_rb,2.001169e-02_rb,1.866199e-02_rb,1.748669e-02_rb, &
+       1.645421e-02_rb,1.554015e-02_rb,1.472535e-02_rb,1.399457e-02_rb,1.333553e-02_rb, &
+       1.273821e-02_rb,1.219440e-02_rb,1.169725e-02_rb,1.124104e-02_rb,1.082096e-02_rb, &
+       1.043290e-02_rb,1.007336e-02_rb,9.739338e-03_rb,9.428223e-03_rb,9.137756e-03_rb, &
+       8.865964e-03_rb,8.611115e-03_rb,8.371686e-03_rb,8.146330e-03_rb,7.933852e-03_rb, &
+       7.733187e-03_rb,7.543386e-03_rb,7.363597e-03_rb,7.193056e-03_rb,7.031072e-03_rb, &
+       6.877024e-03_rb,6.730348e-03_rb,6.590531e-03_rb/)
+      absice2(:,12) = (/ &
+! band 12
+       9.194591e-02_rb,6.446867e-02_rb,4.962034e-02_rb,4.042061e-02_rb,3.418456e-02_rb, &
+       2.968856e-02_rb,2.629900e-02_rb,2.365572e-02_rb,2.153915e-02_rb,1.980791e-02_rb, &
+       1.836689e-02_rb,1.714979e-02_rb,1.610900e-02_rb,1.520946e-02_rb,1.442476e-02_rb, &
+       1.373468e-02_rb,1.312345e-02_rb,1.257858e-02_rb,1.209010e-02_rb,1.164990e-02_rb, &
+       1.125136e-02_rb,1.088901e-02_rb,1.055827e-02_rb,1.025531e-02_rb,9.976896e-03_rb, &
+       9.720255e-03_rb,9.483022e-03_rb,9.263160e-03_rb,9.058902e-03_rb,8.868710e-03_rb, &
+       8.691240e-03_rb,8.525312e-03_rb,8.369886e-03_rb,8.224042e-03_rb,8.086961e-03_rb, &
+       7.957917e-03_rb,7.836258e-03_rb,7.721400e-03_rb,7.612821e-03_rb,7.510045e-03_rb, &
+       7.412648e-03_rb,7.320242e-03_rb,7.232476e-03_rb/)
+      absice2(:,13) = (/ &
+! band 13
+       1.437021e-01_rb,8.872535e-02_rb,6.392420e-02_rb,4.991833e-02_rb,4.096790e-02_rb, &
+       3.477881e-02_rb,3.025782e-02_rb,2.681909e-02_rb,2.412102e-02_rb,2.195132e-02_rb, &
+       2.017124e-02_rb,1.868641e-02_rb,1.743044e-02_rb,1.635529e-02_rb,1.542540e-02_rb, &
+       1.461388e-02_rb,1.390003e-02_rb,1.326766e-02_rb,1.270395e-02_rb,1.219860e-02_rb, &
+       1.174326e-02_rb,1.133107e-02_rb,1.095637e-02_rb,1.061442e-02_rb,1.030126e-02_rb, &
+       1.001352e-02_rb,9.748340e-03_rb,9.503256e-03_rb,9.276155e-03_rb,9.065205e-03_rb, &
+       8.868808e-03_rb,8.685571e-03_rb,8.514268e-03_rb,8.353820e-03_rb,8.203272e-03_rb, &
+       8.061776e-03_rb,7.928578e-03_rb,7.803001e-03_rb,7.684443e-03_rb,7.572358e-03_rb, &
+       7.466258e-03_rb,7.365701e-03_rb,7.270286e-03_rb/)
+      absice2(:,14) = (/ &
+! band 14
+       1.288870e-01_rb,8.160295e-02_rb,5.964745e-02_rb,4.703790e-02_rb,3.888637e-02_rb, &
+       3.320115e-02_rb,2.902017e-02_rb,2.582259e-02_rb,2.330224e-02_rb,2.126754e-02_rb, &
+       1.959258e-02_rb,1.819130e-02_rb,1.700289e-02_rb,1.598320e-02_rb,1.509942e-02_rb, &
+       1.432666e-02_rb,1.364572e-02_rb,1.304156e-02_rb,1.250220e-02_rb,1.201803e-02_rb, &
+       1.158123e-02_rb,1.118537e-02_rb,1.082513e-02_rb,1.049605e-02_rb,1.019440e-02_rb, &
+       9.916989e-03_rb,9.661116e-03_rb,9.424457e-03_rb,9.205005e-03_rb,9.001022e-03_rb, &
+       8.810992e-03_rb,8.633588e-03_rb,8.467646e-03_rb,8.312137e-03_rb,8.166151e-03_rb, &
+       8.028878e-03_rb,7.899597e-03_rb,7.777663e-03_rb,7.662498e-03_rb,7.553581e-03_rb, &
+       7.450444e-03_rb,7.352662e-03_rb,7.259851e-03_rb/)
+      absice2(:,15) = (/ &
+! band 15
+       8.254229e-02_rb,5.808787e-02_rb,4.492166e-02_rb,3.675028e-02_rb,3.119623e-02_rb, &
+       2.718045e-02_rb,2.414450e-02_rb,2.177073e-02_rb,1.986526e-02_rb,1.830306e-02_rb, &
+       1.699991e-02_rb,1.589698e-02_rb,1.495199e-02_rb,1.413374e-02_rb,1.341870e-02_rb, &
+       1.278883e-02_rb,1.223002e-02_rb,1.173114e-02_rb,1.128322e-02_rb,1.087900e-02_rb, &
+       1.051254e-02_rb,1.017890e-02_rb,9.873991e-03_rb,9.594347e-03_rb,9.337044e-03_rb, &
+       9.099589e-03_rb,8.879842e-03_rb,8.675960e-03_rb,8.486341e-03_rb,8.309594e-03_rb, &
+       8.144500e-03_rb,7.989986e-03_rb,7.845109e-03_rb,7.709031e-03_rb,7.581007e-03_rb, &
+       7.460376e-03_rb,7.346544e-03_rb,7.238978e-03_rb,7.137201e-03_rb,7.040780e-03_rb, &
+       6.949325e-03_rb,6.862483e-03_rb,6.779931e-03_rb/)
+      absice2(:,16) = (/ &
+! band 16
+       1.382062e-01_rb,8.643227e-02_rb,6.282935e-02_rb,4.934783e-02_rb,4.063891e-02_rb, &
+       3.455591e-02_rb,3.007059e-02_rb,2.662897e-02_rb,2.390631e-02_rb,2.169972e-02_rb, &
+       1.987596e-02_rb,1.834393e-02_rb,1.703924e-02_rb,1.591513e-02_rb,1.493679e-02_rb, &
+       1.407780e-02_rb,1.331775e-02_rb,1.264061e-02_rb,1.203364e-02_rb,1.148655e-02_rb, &
+       1.099099e-02_rb,1.054006e-02_rb,1.012807e-02_rb,9.750215e-03_rb,9.402477e-03_rb, &
+       9.081428e-03_rb,8.784143e-03_rb,8.508107e-03_rb,8.251146e-03_rb,8.011373e-03_rb, &
+       7.787140e-03_rb,7.577002e-03_rb,7.379687e-03_rb,7.194071e-03_rb,7.019158e-03_rb, &
+       6.854061e-03_rb,6.697986e-03_rb,6.550224e-03_rb,6.410138e-03_rb,6.277153e-03_rb, &
+       6.150751e-03_rb,6.030462e-03_rb,5.915860e-03_rb/)
+
+! ICEFLAG = 3; Fu parameterization. Particle size 5 - 140 micron in 
+! increments of 3 microns.
+! units = m2/g
+! Hexagonal Ice Particle Parameterization
+! absorption units (abs coef/iwc): [(m^-1)/(g m^-3)]
+      absice3(:,1) = (/ &
+! band 1
+       3.110649e-03_rb,4.666352e-02_rb,6.606447e-02_rb,6.531678e-02_rb,6.012598e-02_rb, &
+       5.437494e-02_rb,4.906411e-02_rb,4.441146e-02_rb,4.040585e-02_rb,3.697334e-02_rb, &
+       3.403027e-02_rb,3.149979e-02_rb,2.931596e-02_rb,2.742365e-02_rb,2.577721e-02_rb, &
+       2.433888e-02_rb,2.307732e-02_rb,2.196644e-02_rb,2.098437e-02_rb,2.011264e-02_rb, &
+       1.933561e-02_rb,1.863992e-02_rb,1.801407e-02_rb,1.744812e-02_rb,1.693346e-02_rb, &
+       1.646252e-02_rb,1.602866e-02_rb,1.562600e-02_rb,1.524933e-02_rb,1.489399e-02_rb, &
+       1.455580e-02_rb,1.423098e-02_rb,1.391612e-02_rb,1.360812e-02_rb,1.330413e-02_rb, &
+       1.300156e-02_rb,1.269801e-02_rb,1.239127e-02_rb,1.207928e-02_rb,1.176014e-02_rb, &
+       1.143204e-02_rb,1.109334e-02_rb,1.074243e-02_rb,1.037786e-02_rb,9.998198e-03_rb, &
+       9.602126e-03_rb/)
+      absice3(:,2) = (/ &
+! band 2
+       3.984966e-04_rb,1.681097e-02_rb,2.627680e-02_rb,2.767465e-02_rb,2.700722e-02_rb, &
+       2.579180e-02_rb,2.448677e-02_rb,2.323890e-02_rb,2.209096e-02_rb,2.104882e-02_rb, &
+       2.010547e-02_rb,1.925003e-02_rb,1.847128e-02_rb,1.775883e-02_rb,1.710358e-02_rb, &
+       1.649769e-02_rb,1.593449e-02_rb,1.540829e-02_rb,1.491429e-02_rb,1.444837e-02_rb, &
+       1.400704e-02_rb,1.358729e-02_rb,1.318654e-02_rb,1.280258e-02_rb,1.243346e-02_rb, &
+       1.207750e-02_rb,1.173325e-02_rb,1.139941e-02_rb,1.107487e-02_rb,1.075861e-02_rb, &
+       1.044975e-02_rb,1.014753e-02_rb,9.851229e-03_rb,9.560240e-03_rb,9.274003e-03_rb, &
+       8.992020e-03_rb,8.713845e-03_rb,8.439074e-03_rb,8.167346e-03_rb,7.898331e-03_rb, &
+       7.631734e-03_rb,7.367286e-03_rb,7.104742e-03_rb,6.843882e-03_rb,6.584504e-03_rb, &
+       6.326424e-03_rb/)
+      absice3(:,3) = (/ &
+! band 3
+       6.933163e-02_rb,8.540475e-02_rb,7.701816e-02_rb,6.771158e-02_rb,5.986953e-02_rb, &
+       5.348120e-02_rb,4.824962e-02_rb,4.390563e-02_rb,4.024411e-02_rb,3.711404e-02_rb, &
+       3.440426e-02_rb,3.203200e-02_rb,2.993478e-02_rb,2.806474e-02_rb,2.638464e-02_rb, &
+       2.486516e-02_rb,2.348288e-02_rb,2.221890e-02_rb,2.105780e-02_rb,1.998687e-02_rb, &
+       1.899552e-02_rb,1.807490e-02_rb,1.721750e-02_rb,1.641693e-02_rb,1.566773e-02_rb, &
+       1.496515e-02_rb,1.430509e-02_rb,1.368398e-02_rb,1.309865e-02_rb,1.254634e-02_rb, &
+       1.202456e-02_rb,1.153114e-02_rb,1.106409e-02_rb,1.062166e-02_rb,1.020224e-02_rb, &
+       9.804381e-03_rb,9.426771e-03_rb,9.068205e-03_rb,8.727578e-03_rb,8.403876e-03_rb, &
+       8.096160e-03_rb,7.803564e-03_rb,7.525281e-03_rb,7.260560e-03_rb,7.008697e-03_rb, &
+       6.769036e-03_rb/)
+      absice3(:,4) = (/ &
+! band 4
+       1.765735e-01_rb,1.382700e-01_rb,1.095129e-01_rb,8.987475e-02_rb,7.591185e-02_rb, &
+       6.554169e-02_rb,5.755500e-02_rb,5.122083e-02_rb,4.607610e-02_rb,4.181475e-02_rb, &
+       3.822697e-02_rb,3.516432e-02_rb,3.251897e-02_rb,3.021073e-02_rb,2.817876e-02_rb, &
+       2.637607e-02_rb,2.476582e-02_rb,2.331871e-02_rb,2.201113e-02_rb,2.082388e-02_rb, &
+       1.974115e-02_rb,1.874983e-02_rb,1.783894e-02_rb,1.699922e-02_rb,1.622280e-02_rb, &
+       1.550296e-02_rb,1.483390e-02_rb,1.421064e-02_rb,1.362880e-02_rb,1.308460e-02_rb, &
+       1.257468e-02_rb,1.209611e-02_rb,1.164628e-02_rb,1.122287e-02_rb,1.082381e-02_rb, &
+       1.044725e-02_rb,1.009154e-02_rb,9.755166e-03_rb,9.436783e-03_rb,9.135163e-03_rb, &
+       8.849193e-03_rb,8.577856e-03_rb,8.320225e-03_rb,8.075451e-03_rb,7.842755e-03_rb, &
+       7.621418e-03_rb/)
+      absice3(:,5) = (/ &
+! band 5
+       2.339673e-01_rb,1.692124e-01_rb,1.291656e-01_rb,1.033837e-01_rb,8.562949e-02_rb, &
+       7.273526e-02_rb,6.298262e-02_rb,5.537015e-02_rb,4.927787e-02_rb,4.430246e-02_rb, &
+       4.017061e-02_rb,3.669072e-02_rb,3.372455e-02_rb,3.116995e-02_rb,2.894977e-02_rb, &
+       2.700471e-02_rb,2.528842e-02_rb,2.376420e-02_rb,2.240256e-02_rb,2.117959e-02_rb, &
+       2.007567e-02_rb,1.907456e-02_rb,1.816271e-02_rb,1.732874e-02_rb,1.656300e-02_rb, &
+       1.585725e-02_rb,1.520445e-02_rb,1.459852e-02_rb,1.403419e-02_rb,1.350689e-02_rb, &
+       1.301260e-02_rb,1.254781e-02_rb,1.210941e-02_rb,1.169468e-02_rb,1.130118e-02_rb, &
+       1.092675e-02_rb,1.056945e-02_rb,1.022757e-02_rb,9.899560e-03_rb,9.584021e-03_rb, &
+       9.279705e-03_rb,8.985479e-03_rb,8.700322e-03_rb,8.423306e-03_rb,8.153590e-03_rb, &
+       7.890412e-03_rb/)
+      absice3(:,6) = (/ &
+! band 6
+       1.145369e-01_rb,1.174566e-01_rb,9.917866e-02_rb,8.332990e-02_rb,7.104263e-02_rb, &
+       6.153370e-02_rb,5.405472e-02_rb,4.806281e-02_rb,4.317918e-02_rb,3.913795e-02_rb, &
+       3.574916e-02_rb,3.287437e-02_rb,3.041067e-02_rb,2.828017e-02_rb,2.642292e-02_rb, &
+       2.479206e-02_rb,2.335051e-02_rb,2.206851e-02_rb,2.092195e-02_rb,1.989108e-02_rb, &
+       1.895958e-02_rb,1.811385e-02_rb,1.734245e-02_rb,1.663573e-02_rb,1.598545e-02_rb, &
+       1.538456e-02_rb,1.482700e-02_rb,1.430750e-02_rb,1.382150e-02_rb,1.336499e-02_rb, &
+       1.293447e-02_rb,1.252685e-02_rb,1.213939e-02_rb,1.176968e-02_rb,1.141555e-02_rb, &
+       1.107508e-02_rb,1.074655e-02_rb,1.042839e-02_rb,1.011923e-02_rb,9.817799e-03_rb, &
+       9.522962e-03_rb,9.233688e-03_rb,8.949041e-03_rb,8.668171e-03_rb,8.390301e-03_rb, &
+       8.114723e-03_rb/)
+      absice3(:,7) = (/ &
+! band 7
+       1.222345e-02_rb,5.344230e-02_rb,5.523465e-02_rb,5.128759e-02_rb,4.676925e-02_rb, &
+       4.266150e-02_rb,3.910561e-02_rb,3.605479e-02_rb,3.342843e-02_rb,3.115052e-02_rb, &
+       2.915776e-02_rb,2.739935e-02_rb,2.583499e-02_rb,2.443266e-02_rb,2.316681e-02_rb, &
+       2.201687e-02_rb,2.096619e-02_rb,2.000112e-02_rb,1.911044e-02_rb,1.828481e-02_rb, &
+       1.751641e-02_rb,1.679866e-02_rb,1.612598e-02_rb,1.549360e-02_rb,1.489742e-02_rb, &
+       1.433392e-02_rb,1.380002e-02_rb,1.329305e-02_rb,1.281068e-02_rb,1.235084e-02_rb, &
+       1.191172e-02_rb,1.149171e-02_rb,1.108936e-02_rb,1.070341e-02_rb,1.033271e-02_rb, &
+       9.976220e-03_rb,9.633021e-03_rb,9.302273e-03_rb,8.983216e-03_rb,8.675161e-03_rb, &
+       8.377478e-03_rb,8.089595e-03_rb,7.810986e-03_rb,7.541170e-03_rb,7.279706e-03_rb, &
+       7.026186e-03_rb/)
+      absice3(:,8) = (/ &
+! band 8
+       6.711058e-02_rb,6.918198e-02_rb,6.127484e-02_rb,5.411944e-02_rb,4.836902e-02_rb, &
+       4.375293e-02_rb,3.998077e-02_rb,3.683587e-02_rb,3.416508e-02_rb,3.186003e-02_rb, &
+       2.984290e-02_rb,2.805671e-02_rb,2.645895e-02_rb,2.501733e-02_rb,2.370689e-02_rb, &
+       2.250808e-02_rb,2.140532e-02_rb,2.038609e-02_rb,1.944018e-02_rb,1.855918e-02_rb, &
+       1.773609e-02_rb,1.696504e-02_rb,1.624106e-02_rb,1.555990e-02_rb,1.491793e-02_rb, &
+       1.431197e-02_rb,1.373928e-02_rb,1.319743e-02_rb,1.268430e-02_rb,1.219799e-02_rb, &
+       1.173682e-02_rb,1.129925e-02_rb,1.088393e-02_rb,1.048961e-02_rb,1.011516e-02_rb, &
+       9.759543e-03_rb,9.421813e-03_rb,9.101089e-03_rb,8.796559e-03_rb,8.507464e-03_rb, &
+       8.233098e-03_rb,7.972798e-03_rb,7.725942e-03_rb,7.491940e-03_rb,7.270238e-03_rb, &
+       7.060305e-03_rb/)
+      absice3(:,9) = (/ &
+! band 9
+       1.236780e-01_rb,9.222386e-02_rb,7.383997e-02_rb,6.204072e-02_rb,5.381029e-02_rb, &
+       4.770678e-02_rb,4.296928e-02_rb,3.916131e-02_rb,3.601540e-02_rb,3.335878e-02_rb, &
+       3.107493e-02_rb,2.908247e-02_rb,2.732282e-02_rb,2.575276e-02_rb,2.433968e-02_rb, &
+       2.305852e-02_rb,2.188966e-02_rb,2.081757e-02_rb,1.982974e-02_rb,1.891599e-02_rb, &
+       1.806794e-02_rb,1.727865e-02_rb,1.654227e-02_rb,1.585387e-02_rb,1.520924e-02_rb, &
+       1.460476e-02_rb,1.403730e-02_rb,1.350416e-02_rb,1.300293e-02_rb,1.253153e-02_rb, &
+       1.208808e-02_rb,1.167094e-02_rb,1.127862e-02_rb,1.090979e-02_rb,1.056323e-02_rb, &
+       1.023786e-02_rb,9.932665e-03_rb,9.646744e-03_rb,9.379250e-03_rb,9.129409e-03_rb, &
+       8.896500e-03_rb,8.679856e-03_rb,8.478852e-03_rb,8.292904e-03_rb,8.121463e-03_rb, &
+       7.964013e-03_rb/)
+      absice3(:,10) = (/ &
+! band 10
+       1.655966e-01_rb,1.134205e-01_rb,8.714344e-02_rb,7.129241e-02_rb,6.063739e-02_rb, &
+       5.294203e-02_rb,4.709309e-02_rb,4.247476e-02_rb,3.871892e-02_rb,3.559206e-02_rb, &
+       3.293893e-02_rb,3.065226e-02_rb,2.865558e-02_rb,2.689288e-02_rb,2.532221e-02_rb, &
+       2.391150e-02_rb,2.263582e-02_rb,2.147549e-02_rb,2.041476e-02_rb,1.944089e-02_rb, &
+       1.854342e-02_rb,1.771371e-02_rb,1.694456e-02_rb,1.622989e-02_rb,1.556456e-02_rb, &
+       1.494415e-02_rb,1.436491e-02_rb,1.382354e-02_rb,1.331719e-02_rb,1.284339e-02_rb, &
+       1.239992e-02_rb,1.198486e-02_rb,1.159647e-02_rb,1.123323e-02_rb,1.089375e-02_rb, &
+       1.057679e-02_rb,1.028124e-02_rb,1.000607e-02_rb,9.750376e-03_rb,9.513303e-03_rb, &
+       9.294082e-03_rb,9.092003e-03_rb,8.906412e-03_rb,8.736702e-03_rb,8.582314e-03_rb, &
+       8.442725e-03_rb/)
+      absice3(:,11) = (/ &
+! band 11
+       1.775615e-01_rb,1.180046e-01_rb,8.929607e-02_rb,7.233500e-02_rb,6.108333e-02_rb, &
+       5.303642e-02_rb,4.696927e-02_rb,4.221206e-02_rb,3.836768e-02_rb,3.518576e-02_rb, &
+       3.250063e-02_rb,3.019825e-02_rb,2.819758e-02_rb,2.643943e-02_rb,2.487953e-02_rb, &
+       2.348414e-02_rb,2.222705e-02_rb,2.108762e-02_rb,2.004936e-02_rb,1.909892e-02_rb, &
+       1.822539e-02_rb,1.741975e-02_rb,1.667449e-02_rb,1.598330e-02_rb,1.534084e-02_rb, &
+       1.474253e-02_rb,1.418446e-02_rb,1.366325e-02_rb,1.317597e-02_rb,1.272004e-02_rb, &
+       1.229321e-02_rb,1.189350e-02_rb,1.151915e-02_rb,1.116859e-02_rb,1.084042e-02_rb, &
+       1.053338e-02_rb,1.024636e-02_rb,9.978326e-03_rb,9.728357e-03_rb,9.495613e-03_rb, &
+       9.279327e-03_rb,9.078798e-03_rb,8.893383e-03_rb,8.722488e-03_rb,8.565568e-03_rb, &
+       8.422115e-03_rb/)
+      absice3(:,12) = (/ &
+! band 12
+       9.465447e-02_rb,6.432047e-02_rb,5.060973e-02_rb,4.267283e-02_rb,3.741843e-02_rb, &
+       3.363096e-02_rb,3.073531e-02_rb,2.842405e-02_rb,2.651789e-02_rb,2.490518e-02_rb, &
+       2.351273e-02_rb,2.229056e-02_rb,2.120335e-02_rb,2.022541e-02_rb,1.933763e-02_rb, &
+       1.852546e-02_rb,1.777763e-02_rb,1.708528e-02_rb,1.644134e-02_rb,1.584009e-02_rb, &
+       1.527684e-02_rb,1.474774e-02_rb,1.424955e-02_rb,1.377957e-02_rb,1.333549e-02_rb, &
+       1.291534e-02_rb,1.251743e-02_rb,1.214029e-02_rb,1.178265e-02_rb,1.144337e-02_rb, &
+       1.112148e-02_rb,1.081609e-02_rb,1.052642e-02_rb,1.025178e-02_rb,9.991540e-03_rb, &
+       9.745130e-03_rb,9.512038e-03_rb,9.291797e-03_rb,9.083980e-03_rb,8.888195e-03_rb, &
+       8.704081e-03_rb,8.531306e-03_rb,8.369560e-03_rb,8.218558e-03_rb,8.078032e-03_rb, &
+       7.947730e-03_rb/)
+      absice3(:,13) = (/ &
+! band 13
+       1.560311e-01_rb,9.961097e-02_rb,7.502949e-02_rb,6.115022e-02_rb,5.214952e-02_rb, &
+       4.578149e-02_rb,4.099731e-02_rb,3.724174e-02_rb,3.419343e-02_rb,3.165356e-02_rb, &
+       2.949251e-02_rb,2.762222e-02_rb,2.598073e-02_rb,2.452322e-02_rb,2.321642e-02_rb, &
+       2.203516e-02_rb,2.096002e-02_rb,1.997579e-02_rb,1.907036e-02_rb,1.823401e-02_rb, &
+       1.745879e-02_rb,1.673819e-02_rb,1.606678e-02_rb,1.544003e-02_rb,1.485411e-02_rb, &
+       1.430574e-02_rb,1.379215e-02_rb,1.331092e-02_rb,1.285996e-02_rb,1.243746e-02_rb, &
+       1.204183e-02_rb,1.167164e-02_rb,1.132567e-02_rb,1.100281e-02_rb,1.070207e-02_rb, &
+       1.042258e-02_rb,1.016352e-02_rb,9.924197e-03_rb,9.703953e-03_rb,9.502199e-03_rb, &
+       9.318400e-03_rb,9.152066e-03_rb,9.002749e-03_rb,8.870038e-03_rb,8.753555e-03_rb, &
+       8.652951e-03_rb/)
+      absice3(:,14) = (/ &
+! band 14
+       1.559547e-01_rb,9.896700e-02_rb,7.441231e-02_rb,6.061469e-02_rb,5.168730e-02_rb, &
+       4.537821e-02_rb,4.064106e-02_rb,3.692367e-02_rb,3.390714e-02_rb,3.139438e-02_rb, &
+       2.925702e-02_rb,2.740783e-02_rb,2.578547e-02_rb,2.434552e-02_rb,2.305506e-02_rb, &
+       2.188910e-02_rb,2.082842e-02_rb,1.985789e-02_rb,1.896553e-02_rb,1.814165e-02_rb, &
+       1.737839e-02_rb,1.666927e-02_rb,1.600891e-02_rb,1.539279e-02_rb,1.481712e-02_rb, &
+       1.427865e-02_rb,1.377463e-02_rb,1.330266e-02_rb,1.286068e-02_rb,1.244689e-02_rb, &
+       1.205973e-02_rb,1.169780e-02_rb,1.135989e-02_rb,1.104492e-02_rb,1.075192e-02_rb, &
+       1.048004e-02_rb,1.022850e-02_rb,9.996611e-03_rb,9.783753e-03_rb,9.589361e-03_rb, &
+       9.412924e-03_rb,9.253977e-03_rb,9.112098e-03_rb,8.986903e-03_rb,8.878039e-03_rb, &
+       8.785184e-03_rb/)
+      absice3(:,15) = (/ &
+! band 15
+       1.102926e-01_rb,7.176622e-02_rb,5.530316e-02_rb,4.606056e-02_rb,4.006116e-02_rb, &
+       3.579628e-02_rb,3.256909e-02_rb,3.001360e-02_rb,2.791920e-02_rb,2.615617e-02_rb, &
+       2.464023e-02_rb,2.331426e-02_rb,2.213817e-02_rb,2.108301e-02_rb,2.012733e-02_rb, &
+       1.925493e-02_rb,1.845331e-02_rb,1.771269e-02_rb,1.702531e-02_rb,1.638493e-02_rb, &
+       1.578648e-02_rb,1.522579e-02_rb,1.469940e-02_rb,1.420442e-02_rb,1.373841e-02_rb, &
+       1.329931e-02_rb,1.288535e-02_rb,1.249502e-02_rb,1.212700e-02_rb,1.178015e-02_rb, &
+       1.145348e-02_rb,1.114612e-02_rb,1.085730e-02_rb,1.058633e-02_rb,1.033263e-02_rb, &
+       1.009564e-02_rb,9.874895e-03_rb,9.669960e-03_rb,9.480449e-03_rb,9.306014e-03_rb, &
+       9.146339e-03_rb,9.001138e-03_rb,8.870154e-03_rb,8.753148e-03_rb,8.649907e-03_rb, &
+       8.560232e-03_rb/)
+      absice3(:,16) = (/ &
+! band 16
+       1.688344e-01_rb,1.077072e-01_rb,7.994467e-02_rb,6.403862e-02_rb,5.369850e-02_rb, &
+       4.641582e-02_rb,4.099331e-02_rb,3.678724e-02_rb,3.342069e-02_rb,3.065831e-02_rb, &
+       2.834557e-02_rb,2.637680e-02_rb,2.467733e-02_rb,2.319286e-02_rb,2.188299e-02_rb, &
+       2.071701e-02_rb,1.967121e-02_rb,1.872692e-02_rb,1.786931e-02_rb,1.708641e-02_rb, &
+       1.636846e-02_rb,1.570743e-02_rb,1.509665e-02_rb,1.453052e-02_rb,1.400433e-02_rb, &
+       1.351407e-02_rb,1.305631e-02_rb,1.262810e-02_rb,1.222688e-02_rb,1.185044e-02_rb, &
+       1.149683e-02_rb,1.116436e-02_rb,1.085153e-02_rb,1.055701e-02_rb,1.027961e-02_rb, &
+       1.001831e-02_rb,9.772141e-03_rb,9.540280e-03_rb,9.321966e-03_rb,9.116517e-03_rb, &
+       8.923315e-03_rb,8.741803e-03_rb,8.571472e-03_rb,8.411860e-03_rb,8.262543e-03_rb, &
+       8.123136e-03_rb/)
+
+! For LIQFLAG = 0.
+      absliq0 = 0.0903614_rb
+
+! For LIQFLAG = 1.  In each band, the absorption
+! coefficients are listed for a range of effective radii from 2.5
+! to 59.5 microns in increments of 1.0 micron.
+      absliq1(:, 1) = (/ &
+! band  1
+       1.64047e-03_rb, 6.90533e-02_rb, 7.72017e-02_rb, 7.78054e-02_rb, 7.69523e-02_rb, &
+       7.58058e-02_rb, 7.46400e-02_rb, 7.35123e-02_rb, 7.24162e-02_rb, 7.13225e-02_rb, &
+       6.99145e-02_rb, 6.66409e-02_rb, 6.36582e-02_rb, 6.09425e-02_rb, 5.84593e-02_rb, &
+       5.61743e-02_rb, 5.40571e-02_rb, 5.20812e-02_rb, 5.02245e-02_rb, 4.84680e-02_rb, &
+       4.67959e-02_rb, 4.51944e-02_rb, 4.36516e-02_rb, 4.21570e-02_rb, 4.07015e-02_rb, &
+       3.92766e-02_rb, 3.78747e-02_rb, 3.64886e-02_rb, 3.53632e-02_rb, 3.41992e-02_rb, &
+       3.31016e-02_rb, 3.20643e-02_rb, 3.10817e-02_rb, 3.01490e-02_rb, 2.92620e-02_rb, &
+       2.84171e-02_rb, 2.76108e-02_rb, 2.68404e-02_rb, 2.61031e-02_rb, 2.53966e-02_rb, &
+       2.47189e-02_rb, 2.40678e-02_rb, 2.34418e-02_rb, 2.28392e-02_rb, 2.22586e-02_rb, &
+       2.16986e-02_rb, 2.11580e-02_rb, 2.06356e-02_rb, 2.01305e-02_rb, 1.96417e-02_rb, &
+       1.91682e-02_rb, 1.87094e-02_rb, 1.82643e-02_rb, 1.78324e-02_rb, 1.74129e-02_rb, &
+       1.70052e-02_rb, 1.66088e-02_rb, 1.62231e-02_rb/)
+      absliq1(:, 2) = (/ &
+! band  2
+       2.19486e-01_rb, 1.80687e-01_rb, 1.59150e-01_rb, 1.44731e-01_rb, 1.33703e-01_rb, &
+       1.24355e-01_rb, 1.15756e-01_rb, 1.07318e-01_rb, 9.86119e-02_rb, 8.92739e-02_rb, &
+       8.34911e-02_rb, 7.70773e-02_rb, 7.15240e-02_rb, 6.66615e-02_rb, 6.23641e-02_rb, &
+       5.85359e-02_rb, 5.51020e-02_rb, 5.20032e-02_rb, 4.91916e-02_rb, 4.66283e-02_rb, &
+       4.42813e-02_rb, 4.21236e-02_rb, 4.01330e-02_rb, 3.82905e-02_rb, 3.65797e-02_rb, &
+       3.49869e-02_rb, 3.35002e-02_rb, 3.21090e-02_rb, 3.08957e-02_rb, 2.97601e-02_rb, &
+       2.86966e-02_rb, 2.76984e-02_rb, 2.67599e-02_rb, 2.58758e-02_rb, 2.50416e-02_rb, &
+       2.42532e-02_rb, 2.35070e-02_rb, 2.27997e-02_rb, 2.21284e-02_rb, 2.14904e-02_rb, &
+       2.08834e-02_rb, 2.03051e-02_rb, 1.97536e-02_rb, 1.92271e-02_rb, 1.87239e-02_rb, &
+       1.82425e-02_rb, 1.77816e-02_rb, 1.73399e-02_rb, 1.69162e-02_rb, 1.65094e-02_rb, &
+       1.61187e-02_rb, 1.57430e-02_rb, 1.53815e-02_rb, 1.50334e-02_rb, 1.46981e-02_rb, &
+       1.43748e-02_rb, 1.40628e-02_rb, 1.37617e-02_rb/)
+      absliq1(:, 3) = (/ &
+! band  3
+       2.95174e-01_rb, 2.34765e-01_rb, 1.98038e-01_rb, 1.72114e-01_rb, 1.52083e-01_rb, &
+       1.35654e-01_rb, 1.21613e-01_rb, 1.09252e-01_rb, 9.81263e-02_rb, 8.79448e-02_rb, &
+       8.12566e-02_rb, 7.44563e-02_rb, 6.86374e-02_rb, 6.36042e-02_rb, 5.92094e-02_rb, &
+       5.53402e-02_rb, 5.19087e-02_rb, 4.88455e-02_rb, 4.60951e-02_rb, 4.36124e-02_rb, &
+       4.13607e-02_rb, 3.93096e-02_rb, 3.74338e-02_rb, 3.57119e-02_rb, 3.41261e-02_rb, &
+       3.26610e-02_rb, 3.13036e-02_rb, 3.00425e-02_rb, 2.88497e-02_rb, 2.78077e-02_rb, &
+       2.68317e-02_rb, 2.59158e-02_rb, 2.50545e-02_rb, 2.42430e-02_rb, 2.34772e-02_rb, &
+       2.27533e-02_rb, 2.20679e-02_rb, 2.14181e-02_rb, 2.08011e-02_rb, 2.02145e-02_rb, &
+       1.96561e-02_rb, 1.91239e-02_rb, 1.86161e-02_rb, 1.81311e-02_rb, 1.76673e-02_rb, &
+       1.72234e-02_rb, 1.67981e-02_rb, 1.63903e-02_rb, 1.59989e-02_rb, 1.56230e-02_rb, &
+       1.52615e-02_rb, 1.49138e-02_rb, 1.45791e-02_rb, 1.42565e-02_rb, 1.39455e-02_rb, &
+       1.36455e-02_rb, 1.33559e-02_rb, 1.30761e-02_rb/)
+      absliq1(:, 4) = (/ &
+! band  4
+       3.00925e-01_rb, 2.36949e-01_rb, 1.96947e-01_rb, 1.68692e-01_rb, 1.47190e-01_rb, &
+       1.29986e-01_rb, 1.15719e-01_rb, 1.03568e-01_rb, 9.30028e-02_rb, 8.36658e-02_rb, &
+       7.71075e-02_rb, 7.07002e-02_rb, 6.52284e-02_rb, 6.05024e-02_rb, 5.63801e-02_rb, &
+       5.27534e-02_rb, 4.95384e-02_rb, 4.66690e-02_rb, 4.40925e-02_rb, 4.17664e-02_rb, &
+       3.96559e-02_rb, 3.77326e-02_rb, 3.59727e-02_rb, 3.43561e-02_rb, 3.28662e-02_rb, &
+       3.14885e-02_rb, 3.02110e-02_rb, 2.90231e-02_rb, 2.78948e-02_rb, 2.69109e-02_rb, &
+       2.59884e-02_rb, 2.51217e-02_rb, 2.43058e-02_rb, 2.35364e-02_rb, 2.28096e-02_rb, &
+       2.21218e-02_rb, 2.14700e-02_rb, 2.08515e-02_rb, 2.02636e-02_rb, 1.97041e-02_rb, &
+       1.91711e-02_rb, 1.86625e-02_rb, 1.81769e-02_rb, 1.77126e-02_rb, 1.72683e-02_rb, &
+       1.68426e-02_rb, 1.64344e-02_rb, 1.60427e-02_rb, 1.56664e-02_rb, 1.53046e-02_rb, &
+       1.49565e-02_rb, 1.46214e-02_rb, 1.42985e-02_rb, 1.39871e-02_rb, 1.36866e-02_rb, &
+       1.33965e-02_rb, 1.31162e-02_rb, 1.28453e-02_rb/)
+      absliq1(:, 5) = (/ &
+! band  5
+       2.64691e-01_rb, 2.12018e-01_rb, 1.78009e-01_rb, 1.53539e-01_rb, 1.34721e-01_rb, &
+       1.19580e-01_rb, 1.06996e-01_rb, 9.62772e-02_rb, 8.69710e-02_rb, 7.87670e-02_rb, &
+       7.29272e-02_rb, 6.70920e-02_rb, 6.20977e-02_rb, 5.77732e-02_rb, 5.39910e-02_rb, &
+       5.06538e-02_rb, 4.76866e-02_rb, 4.50301e-02_rb, 4.26374e-02_rb, 4.04704e-02_rb, &
+       3.84981e-02_rb, 3.66948e-02_rb, 3.50394e-02_rb, 3.35141e-02_rb, 3.21038e-02_rb, &
+       3.07957e-02_rb, 2.95788e-02_rb, 2.84438e-02_rb, 2.73790e-02_rb, 2.64390e-02_rb, &
+       2.55565e-02_rb, 2.47263e-02_rb, 2.39437e-02_rb, 2.32047e-02_rb, 2.25056e-02_rb, &
+       2.18433e-02_rb, 2.12149e-02_rb, 2.06177e-02_rb, 2.00495e-02_rb, 1.95081e-02_rb, &
+       1.89917e-02_rb, 1.84984e-02_rb, 1.80269e-02_rb, 1.75755e-02_rb, 1.71431e-02_rb, &
+       1.67283e-02_rb, 1.63303e-02_rb, 1.59478e-02_rb, 1.55801e-02_rb, 1.52262e-02_rb, &
+       1.48853e-02_rb, 1.45568e-02_rb, 1.42400e-02_rb, 1.39342e-02_rb, 1.36388e-02_rb, &
+       1.33533e-02_rb, 1.30773e-02_rb, 1.28102e-02_rb/)
+      absliq1(:, 6) = (/ &
+! band  6
+       8.81182e-02_rb, 1.06745e-01_rb, 9.79753e-02_rb, 8.99625e-02_rb, 8.35200e-02_rb, &
+       7.81899e-02_rb, 7.35939e-02_rb, 6.94696e-02_rb, 6.56266e-02_rb, 6.19148e-02_rb, &
+       5.83355e-02_rb, 5.49306e-02_rb, 5.19642e-02_rb, 4.93325e-02_rb, 4.69659e-02_rb, &
+       4.48148e-02_rb, 4.28431e-02_rb, 4.10231e-02_rb, 3.93332e-02_rb, 3.77563e-02_rb, &
+       3.62785e-02_rb, 3.48882e-02_rb, 3.35758e-02_rb, 3.23333e-02_rb, 3.11536e-02_rb, &
+       3.00310e-02_rb, 2.89601e-02_rb, 2.79365e-02_rb, 2.70502e-02_rb, 2.62618e-02_rb, &
+       2.55025e-02_rb, 2.47728e-02_rb, 2.40726e-02_rb, 2.34013e-02_rb, 2.27583e-02_rb, &
+       2.21422e-02_rb, 2.15522e-02_rb, 2.09869e-02_rb, 2.04453e-02_rb, 1.99260e-02_rb, &
+       1.94280e-02_rb, 1.89501e-02_rb, 1.84913e-02_rb, 1.80506e-02_rb, 1.76270e-02_rb, &
+       1.72196e-02_rb, 1.68276e-02_rb, 1.64500e-02_rb, 1.60863e-02_rb, 1.57357e-02_rb, &
+       1.53975e-02_rb, 1.50710e-02_rb, 1.47558e-02_rb, 1.44511e-02_rb, 1.41566e-02_rb, &
+       1.38717e-02_rb, 1.35960e-02_rb, 1.33290e-02_rb/)
+      absliq1(:, 7) = (/ &
+! band  7
+       4.32174e-02_rb, 7.36078e-02_rb, 6.98340e-02_rb, 6.65231e-02_rb, 6.41948e-02_rb, &
+       6.23551e-02_rb, 6.06638e-02_rb, 5.88680e-02_rb, 5.67124e-02_rb, 5.38629e-02_rb, &
+       4.99579e-02_rb, 4.86289e-02_rb, 4.70120e-02_rb, 4.52854e-02_rb, 4.35466e-02_rb, &
+       4.18480e-02_rb, 4.02169e-02_rb, 3.86658e-02_rb, 3.71992e-02_rb, 3.58168e-02_rb, &
+       3.45155e-02_rb, 3.32912e-02_rb, 3.21390e-02_rb, 3.10538e-02_rb, 3.00307e-02_rb, &
+       2.90651e-02_rb, 2.81524e-02_rb, 2.72885e-02_rb, 2.62821e-02_rb, 2.55744e-02_rb, &
+       2.48799e-02_rb, 2.42029e-02_rb, 2.35460e-02_rb, 2.29108e-02_rb, 2.22981e-02_rb, &
+       2.17079e-02_rb, 2.11402e-02_rb, 2.05945e-02_rb, 2.00701e-02_rb, 1.95663e-02_rb, &
+       1.90824e-02_rb, 1.86174e-02_rb, 1.81706e-02_rb, 1.77411e-02_rb, 1.73281e-02_rb, &
+       1.69307e-02_rb, 1.65483e-02_rb, 1.61801e-02_rb, 1.58254e-02_rb, 1.54835e-02_rb, &
+       1.51538e-02_rb, 1.48358e-02_rb, 1.45288e-02_rb, 1.42322e-02_rb, 1.39457e-02_rb, &
+       1.36687e-02_rb, 1.34008e-02_rb, 1.31416e-02_rb/)
+      absliq1(:, 8) = (/ &
+! band  8
+       1.41881e-01_rb, 7.15419e-02_rb, 6.30335e-02_rb, 6.11132e-02_rb, 6.01931e-02_rb, &
+       5.92420e-02_rb, 5.78968e-02_rb, 5.58876e-02_rb, 5.28923e-02_rb, 4.84462e-02_rb, &
+       4.60839e-02_rb, 4.56013e-02_rb, 4.45410e-02_rb, 4.31866e-02_rb, 4.17026e-02_rb, &
+       4.01850e-02_rb, 3.86892e-02_rb, 3.72461e-02_rb, 3.58722e-02_rb, 3.45749e-02_rb, &
+       3.33564e-02_rb, 3.22155e-02_rb, 3.11494e-02_rb, 3.01541e-02_rb, 2.92253e-02_rb, &
+       2.83584e-02_rb, 2.75488e-02_rb, 2.67925e-02_rb, 2.57692e-02_rb, 2.50704e-02_rb, &
+       2.43918e-02_rb, 2.37350e-02_rb, 2.31005e-02_rb, 2.24888e-02_rb, 2.18996e-02_rb, &
+       2.13325e-02_rb, 2.07870e-02_rb, 2.02623e-02_rb, 1.97577e-02_rb, 1.92724e-02_rb, &
+       1.88056e-02_rb, 1.83564e-02_rb, 1.79241e-02_rb, 1.75079e-02_rb, 1.71070e-02_rb, &
+       1.67207e-02_rb, 1.63482e-02_rb, 1.59890e-02_rb, 1.56424e-02_rb, 1.53077e-02_rb, &
+       1.49845e-02_rb, 1.46722e-02_rb, 1.43702e-02_rb, 1.40782e-02_rb, 1.37955e-02_rb, &
+       1.35219e-02_rb, 1.32569e-02_rb, 1.30000e-02_rb/)
+      absliq1(:, 9) = (/ &
+! band  9
+       6.72726e-02_rb, 6.61013e-02_rb, 6.47866e-02_rb, 6.33780e-02_rb, 6.18985e-02_rb, &
+       6.03335e-02_rb, 5.86136e-02_rb, 5.65876e-02_rb, 5.39839e-02_rb, 5.03536e-02_rb, &
+       4.71608e-02_rb, 4.63630e-02_rb, 4.50313e-02_rb, 4.34526e-02_rb, 4.17876e-02_rb, &
+       4.01261e-02_rb, 3.85171e-02_rb, 3.69860e-02_rb, 3.55442e-02_rb, 3.41954e-02_rb, &
+       3.29384e-02_rb, 3.17693e-02_rb, 3.06832e-02_rb, 2.96745e-02_rb, 2.87374e-02_rb, &
+       2.78662e-02_rb, 2.70557e-02_rb, 2.63008e-02_rb, 2.52450e-02_rb, 2.45424e-02_rb, &
+       2.38656e-02_rb, 2.32144e-02_rb, 2.25885e-02_rb, 2.19873e-02_rb, 2.14099e-02_rb, &
+       2.08554e-02_rb, 2.03230e-02_rb, 1.98116e-02_rb, 1.93203e-02_rb, 1.88482e-02_rb, &
+       1.83944e-02_rb, 1.79578e-02_rb, 1.75378e-02_rb, 1.71335e-02_rb, 1.67440e-02_rb, &
+       1.63687e-02_rb, 1.60069e-02_rb, 1.56579e-02_rb, 1.53210e-02_rb, 1.49958e-02_rb, &
+       1.46815e-02_rb, 1.43778e-02_rb, 1.40841e-02_rb, 1.37999e-02_rb, 1.35249e-02_rb, &
+       1.32585e-02_rb, 1.30004e-02_rb, 1.27502e-02_rb/)
+      absliq1(:,10) = (/ &
+! band 10
+       7.97040e-02_rb, 7.63844e-02_rb, 7.36499e-02_rb, 7.13525e-02_rb, 6.93043e-02_rb, &
+       6.72807e-02_rb, 6.50227e-02_rb, 6.22395e-02_rb, 5.86093e-02_rb, 5.37815e-02_rb, &
+       5.14682e-02_rb, 4.97214e-02_rb, 4.77392e-02_rb, 4.56961e-02_rb, 4.36858e-02_rb, &
+       4.17569e-02_rb, 3.99328e-02_rb, 3.82224e-02_rb, 3.66265e-02_rb, 3.51416e-02_rb, &
+       3.37617e-02_rb, 3.24798e-02_rb, 3.12887e-02_rb, 3.01812e-02_rb, 2.91505e-02_rb, &
+       2.81900e-02_rb, 2.72939e-02_rb, 2.64568e-02_rb, 2.54165e-02_rb, 2.46832e-02_rb, &
+       2.39783e-02_rb, 2.33017e-02_rb, 2.26531e-02_rb, 2.20314e-02_rb, 2.14359e-02_rb, &
+       2.08653e-02_rb, 2.03187e-02_rb, 1.97947e-02_rb, 1.92924e-02_rb, 1.88106e-02_rb, &
+       1.83483e-02_rb, 1.79043e-02_rb, 1.74778e-02_rb, 1.70678e-02_rb, 1.66735e-02_rb, &
+       1.62941e-02_rb, 1.59286e-02_rb, 1.55766e-02_rb, 1.52371e-02_rb, 1.49097e-02_rb, &
+       1.45937e-02_rb, 1.42885e-02_rb, 1.39936e-02_rb, 1.37085e-02_rb, 1.34327e-02_rb, &
+       1.31659e-02_rb, 1.29075e-02_rb, 1.26571e-02_rb/)
+      absliq1(:,11) = (/ &
+! band 11
+       1.49438e-01_rb, 1.33535e-01_rb, 1.21542e-01_rb, 1.11743e-01_rb, 1.03263e-01_rb, &
+       9.55774e-02_rb, 8.83382e-02_rb, 8.12943e-02_rb, 7.42533e-02_rb, 6.70609e-02_rb, &
+       6.38761e-02_rb, 5.97788e-02_rb, 5.59841e-02_rb, 5.25318e-02_rb, 4.94132e-02_rb, &
+       4.66014e-02_rb, 4.40644e-02_rb, 4.17706e-02_rb, 3.96910e-02_rb, 3.77998e-02_rb, &
+       3.60742e-02_rb, 3.44947e-02_rb, 3.30442e-02_rb, 3.17079e-02_rb, 3.04730e-02_rb, &
+       2.93283e-02_rb, 2.82642e-02_rb, 2.72720e-02_rb, 2.61789e-02_rb, 2.53277e-02_rb, &
+       2.45237e-02_rb, 2.37635e-02_rb, 2.30438e-02_rb, 2.23615e-02_rb, 2.17140e-02_rb, &
+       2.10987e-02_rb, 2.05133e-02_rb, 1.99557e-02_rb, 1.94241e-02_rb, 1.89166e-02_rb, &
+       1.84317e-02_rb, 1.79679e-02_rb, 1.75238e-02_rb, 1.70983e-02_rb, 1.66901e-02_rb, &
+       1.62983e-02_rb, 1.59219e-02_rb, 1.55599e-02_rb, 1.52115e-02_rb, 1.48761e-02_rb, &
+       1.45528e-02_rb, 1.42411e-02_rb, 1.39402e-02_rb, 1.36497e-02_rb, 1.33690e-02_rb, &
+       1.30976e-02_rb, 1.28351e-02_rb, 1.25810e-02_rb/)
+      absliq1(:,12) = (/ &
+! band 12
+       3.71985e-02_rb, 3.88586e-02_rb, 3.99070e-02_rb, 4.04351e-02_rb, 4.04610e-02_rb, &
+       3.99834e-02_rb, 3.89953e-02_rb, 3.74886e-02_rb, 3.54551e-02_rb, 3.28870e-02_rb, &
+       3.32576e-02_rb, 3.22444e-02_rb, 3.12384e-02_rb, 3.02584e-02_rb, 2.93146e-02_rb, &
+       2.84120e-02_rb, 2.75525e-02_rb, 2.67361e-02_rb, 2.59618e-02_rb, 2.52280e-02_rb, &
+       2.45327e-02_rb, 2.38736e-02_rb, 2.32487e-02_rb, 2.26558e-02_rb, 2.20929e-02_rb, &
+       2.15579e-02_rb, 2.10491e-02_rb, 2.05648e-02_rb, 1.99749e-02_rb, 1.95704e-02_rb, &
+       1.91731e-02_rb, 1.87839e-02_rb, 1.84032e-02_rb, 1.80315e-02_rb, 1.76689e-02_rb, &
+       1.73155e-02_rb, 1.69712e-02_rb, 1.66362e-02_rb, 1.63101e-02_rb, 1.59928e-02_rb, &
+       1.56842e-02_rb, 1.53840e-02_rb, 1.50920e-02_rb, 1.48080e-02_rb, 1.45318e-02_rb, &
+       1.42631e-02_rb, 1.40016e-02_rb, 1.37472e-02_rb, 1.34996e-02_rb, 1.32586e-02_rb, &
+       1.30239e-02_rb, 1.27954e-02_rb, 1.25728e-02_rb, 1.23559e-02_rb, 1.21445e-02_rb, &
+       1.19385e-02_rb, 1.17376e-02_rb, 1.15417e-02_rb/)
+      absliq1(:,13) = (/ &
+! band 13
+       3.11868e-02_rb, 4.48357e-02_rb, 4.90224e-02_rb, 4.96406e-02_rb, 4.86806e-02_rb, &
+       4.69610e-02_rb, 4.48630e-02_rb, 4.25795e-02_rb, 4.02138e-02_rb, 3.78236e-02_rb, &
+       3.74266e-02_rb, 3.60384e-02_rb, 3.47074e-02_rb, 3.34434e-02_rb, 3.22499e-02_rb, &
+       3.11264e-02_rb, 3.00704e-02_rb, 2.90784e-02_rb, 2.81463e-02_rb, 2.72702e-02_rb, &
+       2.64460e-02_rb, 2.56698e-02_rb, 2.49381e-02_rb, 2.42475e-02_rb, 2.35948e-02_rb, &
+       2.29774e-02_rb, 2.23925e-02_rb, 2.18379e-02_rb, 2.11793e-02_rb, 2.07076e-02_rb, &
+       2.02470e-02_rb, 1.97981e-02_rb, 1.93613e-02_rb, 1.89367e-02_rb, 1.85243e-02_rb, &
+       1.81240e-02_rb, 1.77356e-02_rb, 1.73588e-02_rb, 1.69935e-02_rb, 1.66392e-02_rb, &
+       1.62956e-02_rb, 1.59624e-02_rb, 1.56393e-02_rb, 1.53259e-02_rb, 1.50219e-02_rb, &
+       1.47268e-02_rb, 1.44404e-02_rb, 1.41624e-02_rb, 1.38925e-02_rb, 1.36302e-02_rb, &
+       1.33755e-02_rb, 1.31278e-02_rb, 1.28871e-02_rb, 1.26530e-02_rb, 1.24253e-02_rb, &
+       1.22038e-02_rb, 1.19881e-02_rb, 1.17782e-02_rb/)
+      absliq1(:,14) = (/ &
+! band 14
+       1.58988e-02_rb, 3.50652e-02_rb, 4.00851e-02_rb, 4.07270e-02_rb, 3.98101e-02_rb, &
+       3.83306e-02_rb, 3.66829e-02_rb, 3.50327e-02_rb, 3.34497e-02_rb, 3.19609e-02_rb, &
+       3.13712e-02_rb, 3.03348e-02_rb, 2.93415e-02_rb, 2.83973e-02_rb, 2.75037e-02_rb, &
+       2.66604e-02_rb, 2.58654e-02_rb, 2.51161e-02_rb, 2.44100e-02_rb, 2.37440e-02_rb, &
+       2.31154e-02_rb, 2.25215e-02_rb, 2.19599e-02_rb, 2.14282e-02_rb, 2.09242e-02_rb, &
+       2.04459e-02_rb, 1.99915e-02_rb, 1.95594e-02_rb, 1.90254e-02_rb, 1.86598e-02_rb, &
+       1.82996e-02_rb, 1.79455e-02_rb, 1.75983e-02_rb, 1.72584e-02_rb, 1.69260e-02_rb, &
+       1.66013e-02_rb, 1.62843e-02_rb, 1.59752e-02_rb, 1.56737e-02_rb, 1.53799e-02_rb, &
+       1.50936e-02_rb, 1.48146e-02_rb, 1.45429e-02_rb, 1.42782e-02_rb, 1.40203e-02_rb, &
+       1.37691e-02_rb, 1.35243e-02_rb, 1.32858e-02_rb, 1.30534e-02_rb, 1.28270e-02_rb, &
+       1.26062e-02_rb, 1.23909e-02_rb, 1.21810e-02_rb, 1.19763e-02_rb, 1.17766e-02_rb, &
+       1.15817e-02_rb, 1.13915e-02_rb, 1.12058e-02_rb/)
+      absliq1(:,15) = (/ &
+! band 15
+       5.02079e-03_rb, 2.17615e-02_rb, 2.55449e-02_rb, 2.59484e-02_rb, 2.53650e-02_rb, &
+       2.45281e-02_rb, 2.36843e-02_rb, 2.29159e-02_rb, 2.22451e-02_rb, 2.16716e-02_rb, &
+       2.11451e-02_rb, 2.05817e-02_rb, 2.00454e-02_rb, 1.95372e-02_rb, 1.90567e-02_rb, &
+       1.86028e-02_rb, 1.81742e-02_rb, 1.77693e-02_rb, 1.73866e-02_rb, 1.70244e-02_rb, &
+       1.66815e-02_rb, 1.63563e-02_rb, 1.60477e-02_rb, 1.57544e-02_rb, 1.54755e-02_rb, &
+       1.52097e-02_rb, 1.49564e-02_rb, 1.47146e-02_rb, 1.43684e-02_rb, 1.41728e-02_rb, &
+       1.39762e-02_rb, 1.37797e-02_rb, 1.35838e-02_rb, 1.33891e-02_rb, 1.31961e-02_rb, &
+       1.30051e-02_rb, 1.28164e-02_rb, 1.26302e-02_rb, 1.24466e-02_rb, 1.22659e-02_rb, &
+       1.20881e-02_rb, 1.19131e-02_rb, 1.17412e-02_rb, 1.15723e-02_rb, 1.14063e-02_rb, &
+       1.12434e-02_rb, 1.10834e-02_rb, 1.09264e-02_rb, 1.07722e-02_rb, 1.06210e-02_rb, &
+       1.04725e-02_rb, 1.03269e-02_rb, 1.01839e-02_rb, 1.00436e-02_rb, 9.90593e-03_rb, &
+       9.77080e-03_rb, 9.63818e-03_rb, 9.50800e-03_rb/)
+      absliq1(:,16) = (/ &
+! band 16
+       5.64971e-02_rb, 9.04736e-02_rb, 8.11726e-02_rb, 7.05450e-02_rb, 6.20052e-02_rb, &
+       5.54286e-02_rb, 5.03503e-02_rb, 4.63791e-02_rb, 4.32290e-02_rb, 4.06959e-02_rb, &
+       3.74690e-02_rb, 3.52964e-02_rb, 3.33799e-02_rb, 3.16774e-02_rb, 3.01550e-02_rb, &
+       2.87856e-02_rb, 2.75474e-02_rb, 2.64223e-02_rb, 2.53953e-02_rb, 2.44542e-02_rb, &
+       2.35885e-02_rb, 2.27894e-02_rb, 2.20494e-02_rb, 2.13622e-02_rb, 2.07222e-02_rb, &
+       2.01246e-02_rb, 1.95654e-02_rb, 1.90408e-02_rb, 1.84398e-02_rb, 1.80021e-02_rb, &
+       1.75816e-02_rb, 1.71775e-02_rb, 1.67889e-02_rb, 1.64152e-02_rb, 1.60554e-02_rb, &
+       1.57089e-02_rb, 1.53751e-02_rb, 1.50531e-02_rb, 1.47426e-02_rb, 1.44428e-02_rb, &
+       1.41532e-02_rb, 1.38734e-02_rb, 1.36028e-02_rb, 1.33410e-02_rb, 1.30875e-02_rb, &
+       1.28420e-02_rb, 1.26041e-02_rb, 1.23735e-02_rb, 1.21497e-02_rb, 1.19325e-02_rb, &
+       1.17216e-02_rb, 1.15168e-02_rb, 1.13177e-02_rb, 1.11241e-02_rb, 1.09358e-02_rb, &
+       1.07525e-02_rb, 1.05741e-02_rb, 1.04003e-02_rb/)
+
+      end subroutine lwcldpr
+
+      end module rrtmg_lw_init
+
diff --git a/radiation/src/rrtmg_lw_k_g.f90 b/radiation/src/rrtmg_lw_k_g.f90
new file mode 100644
index 0000000000000000000000000000000000000000..bde22a5c72153e47d8f95aa8385ff0b2a38972c3
--- /dev/null
+++ b/radiation/src/rrtmg_lw_k_g.f90
@@ -0,0 +1,76237 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! **************************************************************************
+!      subroutine lw_kgbnn
+! **************************************************************************
+!  RRTM Longwave Radiative Transfer Model
+!  Atmospheric and Environmental Research, Inc., Cambridge, MA
+!
+!  Original version:   E. J. Mlawer, et al.
+!  Revision for GCMs:  Michael J. Iacono; October, 2002
+!  Revision for F90 formatting:  Michael J. Iacono; June 2006
+!
+!  This file contains 16 subroutines that include the 
+!  absorption coefficients and other data for each of the 16 longwave
+!  spectral bands used in RRTM.  Here, the data are defined for 16
+!  g-points, or sub-intervals, per band.  These data are combined and
+!  weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce
+!  the total number of g-points from 256 to 140 for use in the GCM.
+! **************************************************************************
+      subroutine lw_kgb01
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg01, only : fracrefao, fracrefbo, kao, kbo, kao_mn2, kbo_mn2, &
+                            selfrefo, forrefo
+      use rrlw_vsn, only: hvrkg, hnamkg
+
+      implicit none
+      save
+
+      hvrkg = '$Revision$'
+
+! Planck fraction mapping level: P = 212.7250 mbar, T = 223.06 K
+      fracrefao(:) = (/ &
+        2.1227E-01_rb,1.8897E-01_rb,1.3934E-01_rb,1.1557E-01_rb,9.5282E-02_rb,8.3359E-02_rb, &
+        6.5333E-02_rb,5.2016E-02_rb,3.4272E-02_rb,4.0257E-03_rb,3.1857E-03_rb,2.6014E-03_rb, &
+        1.9141E-03_rb,1.2612E-03_rb,5.3169E-04_rb,7.6476E-05_rb/)
+
+! Planck fraction mapping level: P = 212.7250 mbar, T = 223.06 K
+! These Planck fractions were calculated using lower atmosphere
+! parameters.
+      fracrefbo(:) = (/ &
+        2.1227E-01_rb,1.8897E-01_rb,1.3934E-01_rb,1.1557E-01_rb,9.5282E-02_rb,8.3359E-02_rb, &
+        6.5333E-02_rb,5.2016E-02_rb,3.4272E-02_rb,4.0257E-03_rb,3.1857E-03_rb,2.6014E-03_rb, &
+        1.9141E-03_rb,1.2612E-03_rb,5.3169E-04_rb,7.6476E-05_rb/)
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     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 corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1) = (/ &
+     &1.1936e-01_rb,1.2127e-01_rb,1.2290e-01_rb,1.2324e-01_rb,1.2302e-01_rb/)
+      kao(:, 2, 1) = (/ &
+     &9.3666e-02_rb,9.6336e-02_rb,9.8457e-02_rb,9.9155e-02_rb,9.9330e-02_rb/)
+      kao(:, 3, 1) = (/ &
+     &7.3480e-02_rb,7.5571e-02_rb,7.7998e-02_rb,7.9619e-02_rb,8.0000e-02_rb/)
+      kao(:, 4, 1) = (/ &
+     &5.8417e-02_rb,6.0062e-02_rb,6.2150e-02_rb,6.4024e-02_rb,6.4943e-02_rb/)
+      kao(:, 5, 1) = (/ &
+     &4.6742e-02_rb,4.8171e-02_rb,4.9840e-02_rb,5.1580e-02_rb,5.2974e-02_rb/)
+      kao(:, 6, 1) = (/ &
+     &3.7093e-02_rb,3.8712e-02_rb,4.0031e-02_rb,4.1473e-02_rb,4.2868e-02_rb/)
+      kao(:, 7, 1) = (/ &
+     &2.9515e-02_rb,3.1114e-02_rb,3.2344e-02_rb,3.3496e-02_rb,3.4715e-02_rb/)
+      kao(:, 8, 1) = (/ &
+     &2.3548e-02_rb,2.5012e-02_rb,2.6176e-02_rb,2.7253e-02_rb,2.8263e-02_rb/)
+      kao(:, 9, 1) = (/ &
+     &1.9136e-02_rb,2.0420e-02_rb,2.1607e-02_rb,2.2607e-02_rb,2.3502e-02_rb/)
+      kao(:,10, 1) = (/ &
+     &1.6947e-02_rb,1.8986e-02_rb,2.0617e-02_rb,2.1896e-02_rb,2.2928e-02_rb/)
+      kao(:,11, 1) = (/ &
+     &1.4724e-02_rb,1.6490e-02_rb,1.8468e-02_rb,1.9875e-02_rb,2.1095e-02_rb/)
+      kao(:,12, 1) = (/ &
+     &1.2332e-02_rb,1.3992e-02_rb,1.5549e-02_rb,1.7137e-02_rb,1.8190e-02_rb/)
+      kao(:,13, 1) = (/ &
+     &1.0144e-02_rb,1.1539e-02_rb,1.2861e-02_rb,1.4225e-02_rb,1.5224e-02_rb/)
+      kao(:, 1, 2) = (/ &
+     &3.5138e-01_rb,3.5502e-01_rb,3.5774e-01_rb,3.5894e-01_rb,3.5740e-01_rb/)
+      kao(:, 2, 2) = (/ &
+     &2.8740e-01_rb,2.8961e-01_rb,2.9119e-01_rb,2.9268e-01_rb,2.9128e-01_rb/)
+      kao(:, 3, 2) = (/ &
+     &2.3142e-01_rb,2.3495e-01_rb,2.3595e-01_rb,2.3731e-01_rb,2.3828e-01_rb/)
+      kao(:, 4, 2) = (/ &
+     &1.8684e-01_rb,1.9090e-01_rb,1.9387e-01_rb,1.9355e-01_rb,1.9518e-01_rb/)
+      kao(:, 5, 2) = (/ &
+     &1.5108e-01_rb,1.5525e-01_rb,1.5832e-01_rb,1.5904e-01_rb,1.5962e-01_rb/)
+      kao(:, 6, 2) = (/ &
+     &1.2219e-01_rb,1.2585e-01_rb,1.2901e-01_rb,1.3090e-01_rb,1.3158e-01_rb/)
+      kao(:, 7, 2) = (/ &
+     &9.8743e-02_rb,1.0185e-01_rb,1.0506e-01_rb,1.0763e-01_rb,1.0820e-01_rb/)
+      kao(:, 8, 2) = (/ &
+     &7.9966e-02_rb,8.2922e-02_rb,8.5859e-02_rb,8.8462e-02_rb,8.9282e-02_rb/)
+      kao(:, 9, 2) = (/ &
+     &6.5726e-02_rb,6.8954e-02_rb,7.1786e-02_rb,7.3678e-02_rb,7.5233e-02_rb/)
+      kao(:,10, 2) = (/ &
+     &6.0011e-02_rb,6.2230e-02_rb,6.5254e-02_rb,6.7031e-02_rb,6.9052e-02_rb/)
+      kao(:,11, 2) = (/ &
+     &5.5743e-02_rb,5.7099e-02_rb,5.8802e-02_rb,6.0875e-02_rb,6.2690e-02_rb/)
+      kao(:,12, 2) = (/ &
+     &4.9598e-02_rb,5.1234e-02_rb,5.2659e-02_rb,5.3951e-02_rb,5.5431e-02_rb/)
+      kao(:,13, 2) = (/ &
+     &4.1938e-02_rb,4.3540e-02_rb,4.4990e-02_rb,4.6074e-02_rb,4.6999e-02_rb/)
+      kao(:, 1, 3) = (/ &
+     &8.4590e-01_rb,8.4151e-01_rb,8.3682e-01_rb,8.3729e-01_rb,8.3944e-01_rb/)
+      kao(:, 2, 3) = (/ &
+     &6.8809e-01_rb,6.8696e-01_rb,6.8512e-01_rb,6.8470e-01_rb,6.8864e-01_rb/)
+      kao(:, 3, 3) = (/ &
+     &5.6065e-01_rb,5.5891e-01_rb,5.5871e-01_rb,5.5784e-01_rb,5.6029e-01_rb/)
+      kao(:, 4, 3) = (/ &
+     &4.6097e-01_rb,4.6021e-01_rb,4.5874e-01_rb,4.6110e-01_rb,4.6088e-01_rb/)
+      kao(:, 5, 3) = (/ &
+     &3.8076e-01_rb,3.8128e-01_rb,3.8007e-01_rb,3.8126e-01_rb,3.8214e-01_rb/)
+      kao(:, 6, 3) = (/ &
+     &3.1396e-01_rb,3.1576e-01_rb,3.1554e-01_rb,3.1478e-01_rb,3.1602e-01_rb/)
+      kao(:, 7, 3) = (/ &
+     &2.5841e-01_rb,2.6039e-01_rb,2.6160e-01_rb,2.6034e-01_rb,2.6147e-01_rb/)
+      kao(:, 8, 3) = (/ &
+     &2.1354e-01_rb,2.1540e-01_rb,2.1664e-01_rb,2.1675e-01_rb,2.1689e-01_rb/)
+      kao(:, 9, 3) = (/ &
+     &1.8409e-01_rb,1.8340e-01_rb,1.8423e-01_rb,1.8535e-01_rb,1.8550e-01_rb/)
+      kao(:,10, 3) = (/ &
+     &1.7687e-01_rb,1.8149e-01_rb,1.8138e-01_rb,1.8043e-01_rb,1.8050e-01_rb/)
+      kao(:,11, 3) = (/ &
+     &1.6660e-01_rb,1.6980e-01_rb,1.7005e-01_rb,1.7156e-01_rb,1.6983e-01_rb/)
+      kao(:,12, 3) = (/ &
+     &1.4699e-01_rb,1.5037e-01_rb,1.5032e-01_rb,1.5012e-01_rb,1.5041e-01_rb/)
+      kao(:,13, 3) = (/ &
+     &1.2497e-01_rb,1.2733e-01_rb,1.2732e-01_rb,1.2710e-01_rb,1.2722e-01_rb/)
+      kao(:, 1, 4) = (/ &
+     &1.8528e+00_rb,1.8358e+00_rb,1.8100e+00_rb,1.7728e+00_rb,1.7348e+00_rb/)
+      kao(:, 2, 4) = (/ &
+     &1.5191e+00_rb,1.5067e+00_rb,1.4864e+00_rb,1.4586e+00_rb,1.4273e+00_rb/)
+      kao(:, 3, 4) = (/ &
+     &1.2421e+00_rb,1.2332e+00_rb,1.2184e+00_rb,1.1999e+00_rb,1.1763e+00_rb/)
+      kao(:, 4, 4) = (/ &
+     &1.0235e+00_rb,1.0199e+00_rb,1.0105e+00_rb,9.9649e-01_rb,9.8141e-01_rb/)
+      kao(:, 5, 4) = (/ &
+     &8.4444e-01_rb,8.4579e-01_rb,8.4104e-01_rb,8.3201e-01_rb,8.2148e-01_rb/)
+      kao(:, 6, 4) = (/ &
+     &6.9623e-01_rb,7.0066e-01_rb,6.9879e-01_rb,6.9507e-01_rb,6.8745e-01_rb/)
+      kao(:, 7, 4) = (/ &
+     &5.7271e-01_rb,5.7848e-01_rb,5.7971e-01_rb,5.7773e-01_rb,5.7376e-01_rb/)
+      kao(:, 8, 4) = (/ &
+     &4.7082e-01_rb,4.7730e-01_rb,4.8061e-01_rb,4.7996e-01_rb,4.7783e-01_rb/)
+      kao(:, 9, 4) = (/ &
+     &3.8997e-01_rb,3.9821e-01_rb,4.0249e-01_rb,4.0315e-01_rb,4.0145e-01_rb/)
+      kao(:,10, 4) = (/ &
+     &3.5012e-01_rb,3.4335e-01_rb,3.3833e-01_rb,3.3654e-01_rb,3.3448e-01_rb/)
+      kao(:,11, 4) = (/ &
+     &3.1060e-01_rb,3.1084e-01_rb,3.0440e-01_rb,2.9201e-01_rb,2.8482e-01_rb/)
+      kao(:,12, 4) = (/ &
+     &2.7883e-01_rb,2.7190e-01_rb,2.6805e-01_rb,2.5917e-01_rb,2.4860e-01_rb/)
+      kao(:,13, 4) = (/ &
+     &2.3244e-01_rb,2.2666e-01_rb,2.2365e-01_rb,2.1647e-01_rb,2.0828e-01_rb/)
+      kao(:, 1, 5) = (/ &
+     &3.3225e+00_rb,3.2784e+00_rb,3.2423e+00_rb,3.2074e+00_rb,3.1704e+00_rb/)
+      kao(:, 2, 5) = (/ &
+     &2.7581e+00_rb,2.7256e+00_rb,2.6962e+00_rb,2.6686e+00_rb,2.6375e+00_rb/)
+      kao(:, 3, 5) = (/ &
+     &2.2798e+00_rb,2.2570e+00_rb,2.2330e+00_rb,2.2089e+00_rb,2.1829e+00_rb/)
+      kao(:, 4, 5) = (/ &
+     &1.8979e+00_rb,1.8796e+00_rb,1.8601e+00_rb,1.8393e+00_rb,1.8181e+00_rb/)
+      kao(:, 5, 5) = (/ &
+     &1.5861e+00_rb,1.5695e+00_rb,1.5550e+00_rb,1.5372e+00_rb,1.5203e+00_rb/)
+      kao(:, 6, 5) = (/ &
+     &1.3252e+00_rb,1.3124e+00_rb,1.3013e+00_rb,1.2872e+00_rb,1.2740e+00_rb/)
+      kao(:, 7, 5) = (/ &
+     &1.1027e+00_rb,1.0966e+00_rb,1.0870e+00_rb,1.0776e+00_rb,1.0667e+00_rb/)
+      kao(:, 8, 5) = (/ &
+     &9.1563e-01_rb,9.1410e-01_rb,9.0764e-01_rb,8.9982e-01_rb,8.9251e-01_rb/)
+      kao(:, 9, 5) = (/ &
+     &7.6595e-01_rb,7.6784e-01_rb,7.6494e-01_rb,7.5888e-01_rb,7.5288e-01_rb/)
+      kao(:,10, 5) = (/ &
+     &6.3388e-01_rb,6.4169e-01_rb,6.4724e-01_rb,6.4562e-01_rb,6.3971e-01_rb/)
+      kao(:,11, 5) = (/ &
+     &5.2794e-01_rb,5.2411e-01_rb,5.2455e-01_rb,5.2936e-01_rb,5.2927e-01_rb/)
+      kao(:,12, 5) = (/ &
+     &4.3721e-01_rb,4.3826e-01_rb,4.3490e-01_rb,4.3598e-01_rb,4.3794e-01_rb/)
+      kao(:,13, 5) = (/ &
+     &3.6693e-01_rb,3.6670e-01_rb,3.6374e-01_rb,3.6513e-01_rb,3.6694e-01_rb/)
+      kao(:, 1, 6) = (/ &
+     &6.6283e+00_rb,6.5357e+00_rb,6.4205e+00_rb,6.3046e+00_rb,6.1937e+00_rb/)
+      kao(:, 2, 6) = (/ &
+     &5.5921e+00_rb,5.5122e+00_rb,5.4227e+00_rb,5.3355e+00_rb,5.2548e+00_rb/)
+      kao(:, 3, 6) = (/ &
+     &4.6918e+00_rb,4.6295e+00_rb,4.5667e+00_rb,4.5016e+00_rb,4.4390e+00_rb/)
+      kao(:, 4, 6) = (/ &
+     &3.9477e+00_rb,3.9046e+00_rb,3.8607e+00_rb,3.8148e+00_rb,3.7628e+00_rb/)
+      kao(:, 5, 6) = (/ &
+     &3.3255e+00_rb,3.2963e+00_rb,3.2647e+00_rb,3.2299e+00_rb,3.1875e+00_rb/)
+      kao(:, 6, 6) = (/ &
+     &2.7972e+00_rb,2.7784e+00_rb,2.7561e+00_rb,2.7282e+00_rb,2.6941e+00_rb/)
+      kao(:, 7, 6) = (/ &
+     &2.3458e+00_rb,2.3342e+00_rb,2.3185e+00_rb,2.2969e+00_rb,2.2704e+00_rb/)
+      kao(:, 8, 6) = (/ &
+     &1.9572e+00_rb,1.9527e+00_rb,1.9423e+00_rb,1.9266e+00_rb,1.9056e+00_rb/)
+      kao(:, 9, 6) = (/ &
+     &1.6385e+00_rb,1.6357e+00_rb,1.6281e+00_rb,1.6171e+00_rb,1.6000e+00_rb/)
+      kao(:,10, 6) = (/ &
+     &1.4144e+00_rb,1.4143e+00_rb,1.4078e+00_rb,1.4009e+00_rb,1.3895e+00_rb/)
+      kao(:,11, 6) = (/ &
+     &1.1820e+00_rb,1.1847e+00_rb,1.1842e+00_rb,1.1773e+00_rb,1.1681e+00_rb/)
+      kao(:,12, 6) = (/ &
+     &9.7725e-01_rb,9.8091e-01_rb,9.8204e-01_rb,9.7703e-01_rb,9.7159e-01_rb/)
+      kao(:,13, 6) = (/ &
+     &8.1815e-01_rb,8.2185e-01_rb,8.2056e-01_rb,8.1693e-01_rb,8.1119e-01_rb/)
+      kao(:, 1, 7) = (/ &
+     &1.4313e+01_rb,1.4082e+01_rb,1.3850e+01_rb,1.3623e+01_rb,1.3382e+01_rb/)
+      kao(:, 2, 7) = (/ &
+     &1.2515e+01_rb,1.2314e+01_rb,1.2108e+01_rb,1.1882e+01_rb,1.1633e+01_rb/)
+      kao(:, 3, 7) = (/ &
+     &1.0802e+01_rb,1.0631e+01_rb,1.0439e+01_rb,1.0228e+01_rb,1.0005e+01_rb/)
+      kao(:, 4, 7) = (/ &
+     &9.2958e+00_rb,9.1469e+00_rb,8.9753e+00_rb,8.7884e+00_rb,8.6020e+00_rb/)
+      kao(:, 5, 7) = (/ &
+     &7.9646e+00_rb,7.8400e+00_rb,7.6929e+00_rb,7.5385e+00_rb,7.3901e+00_rb/)
+      kao(:, 6, 7) = (/ &
+     &6.7986e+00_rb,6.6983e+00_rb,6.5761e+00_rb,6.4518e+00_rb,6.3346e+00_rb/)
+      kao(:, 7, 7) = (/ &
+     &5.7703e+00_rb,5.6909e+00_rb,5.5962e+00_rb,5.4989e+00_rb,5.4062e+00_rb/)
+      kao(:, 8, 7) = (/ &
+     &4.8763e+00_rb,4.8159e+00_rb,4.7441e+00_rb,4.6692e+00_rb,4.5978e+00_rb/)
+      kao(:, 9, 7) = (/ &
+     &4.0868e+00_rb,4.0475e+00_rb,3.9918e+00_rb,3.9346e+00_rb,3.8784e+00_rb/)
+      kao(:,10, 7) = (/ &
+     &3.5589e+00_rb,3.5215e+00_rb,3.4698e+00_rb,3.4096e+00_rb,3.3531e+00_rb/)
+      kao(:,11, 7) = (/ &
+     &3.0702e+00_rb,3.0357e+00_rb,2.9927e+00_rb,2.9456e+00_rb,2.8950e+00_rb/)
+      kao(:,12, 7) = (/ &
+     &2.6022e+00_rb,2.5722e+00_rb,2.5392e+00_rb,2.5002e+00_rb,2.4548e+00_rb/)
+      kao(:,13, 7) = (/ &
+     &2.1727e+00_rb,2.1507e+00_rb,2.1220e+00_rb,2.0892e+00_rb,2.0541e+00_rb/)
+      kao(:, 1, 8) = (/ &
+     &3.4174e+01_rb,3.3741e+01_rb,3.3273e+01_rb,3.2762e+01_rb,3.2231e+01_rb/)
+      kao(:, 2, 8) = (/ &
+     &3.1501e+01_rb,3.1077e+01_rb,3.0621e+01_rb,3.0167e+01_rb,2.9717e+01_rb/)
+      kao(:, 3, 8) = (/ &
+     &2.8624e+01_rb,2.8247e+01_rb,2.7846e+01_rb,2.7455e+01_rb,2.7037e+01_rb/)
+      kao(:, 4, 8) = (/ &
+     &2.5860e+01_rb,2.5530e+01_rb,2.5179e+01_rb,2.4813e+01_rb,2.4424e+01_rb/)
+      kao(:, 5, 8) = (/ &
+     &2.3133e+01_rb,2.2868e+01_rb,2.2552e+01_rb,2.2222e+01_rb,2.1874e+01_rb/)
+      kao(:, 6, 8) = (/ &
+     &2.0417e+01_rb,2.0203e+01_rb,1.9954e+01_rb,1.9685e+01_rb,1.9370e+01_rb/)
+      kao(:, 7, 8) = (/ &
+     &1.7808e+01_rb,1.7656e+01_rb,1.7468e+01_rb,1.7234e+01_rb,1.6957e+01_rb/)
+      kao(:, 8, 8) = (/ &
+     &1.5349e+01_rb,1.5257e+01_rb,1.5109e+01_rb,1.4918e+01_rb,1.4683e+01_rb/)
+      kao(:, 9, 8) = (/ &
+     &1.3085e+01_rb,1.3031e+01_rb,1.2930e+01_rb,1.2779e+01_rb,1.2590e+01_rb/)
+      kao(:,10, 8) = (/ &
+     &1.0971e+01_rb,1.0917e+01_rb,1.0852e+01_rb,1.0748e+01_rb,1.0603e+01_rb/)
+      kao(:,11, 8) = (/ &
+     &9.5673e+00_rb,9.4985e+00_rb,9.4337e+00_rb,9.3153e+00_rb,9.1800e+00_rb/)
+      kao(:,12, 8) = (/ &
+     &8.2885e+00_rb,8.2471e+00_rb,8.1591e+00_rb,8.0541e+00_rb,7.9348e+00_rb/)
+      kao(:,13, 8) = (/ &
+     &7.1017e+00_rb,7.0462e+00_rb,6.9629e+00_rb,6.8569e+00_rb,6.7518e+00_rb/)
+      kao(:, 1, 9) = (/ &
+     &9.9761e+01_rb,9.8762e+01_rb,9.7605e+01_rb,9.6340e+01_rb,9.4995e+01_rb/)
+      kao(:, 2, 9) = (/ &
+     &9.9948e+01_rb,9.8866e+01_rb,9.7644e+01_rb,9.6363e+01_rb,9.4985e+01_rb/)
+      kao(:, 3, 9) = (/ &
+     &9.9007e+01_rb,9.8007e+01_rb,9.6838e+01_rb,9.5570e+01_rb,9.4251e+01_rb/)
+      kao(:, 4, 9) = (/ &
+     &9.6662e+01_rb,9.5791e+01_rb,9.4804e+01_rb,9.3746e+01_rb,9.2558e+01_rb/)
+      kao(:, 5, 9) = (/ &
+     &9.3093e+01_rb,9.2470e+01_rb,9.1704e+01_rb,9.0779e+01_rb,8.9739e+01_rb/)
+      kao(:, 6, 9) = (/ &
+     &8.8508e+01_rb,8.8114e+01_rb,8.7530e+01_rb,8.6816e+01_rb,8.5948e+01_rb/)
+      kao(:, 7, 9) = (/ &
+     &8.2974e+01_rb,8.2771e+01_rb,8.2394e+01_rb,8.1879e+01_rb,8.1118e+01_rb/)
+      kao(:, 8, 9) = (/ &
+     &7.6684e+01_rb,7.6645e+01_rb,7.6457e+01_rb,7.6020e+01_rb,7.5326e+01_rb/)
+      kao(:, 9, 9) = (/ &
+     &6.9973e+01_rb,7.0055e+01_rb,6.9978e+01_rb,6.9596e+01_rb,6.8941e+01_rb/)
+      kao(:,10, 9) = (/ &
+     &6.2676e+01_rb,6.2928e+01_rb,6.2907e+01_rb,6.2549e+01_rb,6.1993e+01_rb/)
+      kao(:,11, 9) = (/ &
+     &5.5263e+01_rb,5.5480e+01_rb,5.5306e+01_rb,5.4944e+01_rb,5.4442e+01_rb/)
+      kao(:,12, 9) = (/ &
+     &4.8636e+01_rb,4.8624e+01_rb,4.8458e+01_rb,4.8148e+01_rb,4.7712e+01_rb/)
+      kao(:,13, 9) = (/ &
+     &4.2167e+01_rb,4.2169e+01_rb,4.2037e+01_rb,4.1794e+01_rb,4.1453e+01_rb/)
+      kao(:, 1,10) = (/ &
+     &2.2059e+02_rb,2.1997e+02_rb,2.1921e+02_rb,2.1843e+02_rb,2.1743e+02_rb/)
+      kao(:, 2,10) = (/ &
+     &2.3102e+02_rb,2.3132e+02_rb,2.3151e+02_rb,2.3081e+02_rb,2.3008e+02_rb/)
+      kao(:, 3,10) = (/ &
+     &2.4111e+02_rb,2.4197e+02_rb,2.4166e+02_rb,2.4016e+02_rb,2.3836e+02_rb/)
+      kao(:, 4,10) = (/ &
+     &2.5158e+02_rb,2.5229e+02_rb,2.5082e+02_rb,2.4795e+02_rb,2.4522e+02_rb/)
+      kao(:, 5,10) = (/ &
+     &2.5765e+02_rb,2.5772e+02_rb,2.5582e+02_rb,2.5268e+02_rb,2.4923e+02_rb/)
+      kao(:, 6,10) = (/ &
+     &2.5856e+02_rb,2.5749e+02_rb,2.5502e+02_rb,2.5166e+02_rb,2.4826e+02_rb/)
+      kao(:, 7,10) = (/ &
+     &2.5368e+02_rb,2.5237e+02_rb,2.4999e+02_rb,2.4711e+02_rb,2.4470e+02_rb/)
+      kao(:, 8,10) = (/ &
+     &2.4476e+02_rb,2.4415e+02_rb,2.4213e+02_rb,2.4060e+02_rb,2.3968e+02_rb/)
+      kao(:, 9,10) = (/ &
+     &2.3178e+02_rb,2.3169e+02_rb,2.3048e+02_rb,2.3066e+02_rb,2.3132e+02_rb/)
+      kao(:,10,10) = (/ &
+     &2.1736e+02_rb,2.1726e+02_rb,2.1730e+02_rb,2.1880e+02_rb,2.1934e+02_rb/)
+      kao(:,11,10) = (/ &
+     &2.0114e+02_rb,2.0172e+02_rb,2.0351e+02_rb,2.0457e+02_rb,2.0387e+02_rb/)
+      kao(:,12,10) = (/ &
+     &1.8488e+02_rb,1.8650e+02_rb,1.8715e+02_rb,1.8619e+02_rb,1.8458e+02_rb/)
+      kao(:,13,10) = (/ &
+     &1.7142e+02_rb,1.7281e+02_rb,1.7236e+02_rb,1.7114e+02_rb,1.6934e+02_rb/)
+      kao(:, 1,11) = (/ &
+     &2.9459e+02_rb,2.9267e+02_rb,2.9151e+02_rb,2.8931e+02_rb,2.8695e+02_rb/)
+      kao(:, 2,11) = (/ &
+     &3.1654e+02_rb,3.1722e+02_rb,3.1773e+02_rb,3.1519e+02_rb,3.1185e+02_rb/)
+      kao(:, 3,11) = (/ &
+     &3.3345e+02_rb,3.3361e+02_rb,3.3487e+02_rb,3.3474e+02_rb,3.3330e+02_rb/)
+      kao(:, 4,11) = (/ &
+     &3.4222e+02_rb,3.4143e+02_rb,3.4230e+02_rb,3.4254e+02_rb,3.4132e+02_rb/)
+      kao(:, 5,11) = (/ &
+     &3.5206e+02_rb,3.5057e+02_rb,3.4997e+02_rb,3.4857e+02_rb,3.4588e+02_rb/)
+      kao(:, 6,11) = (/ &
+     &3.6028e+02_rb,3.6070e+02_rb,3.6119e+02_rb,3.5790e+02_rb,3.5262e+02_rb/)
+      kao(:, 7,11) = (/ &
+     &3.6620e+02_rb,3.6652e+02_rb,3.6631e+02_rb,3.6276e+02_rb,3.5799e+02_rb/)
+      kao(:, 8,11) = (/ &
+     &3.6855e+02_rb,3.6845e+02_rb,3.6741e+02_rb,3.6316e+02_rb,3.5815e+02_rb/)
+      kao(:, 9,11) = (/ &
+     &3.6490e+02_rb,3.6506e+02_rb,3.6353e+02_rb,3.5922e+02_rb,3.5455e+02_rb/)
+      kao(:,10,11) = (/ &
+     &3.5317e+02_rb,3.5433e+02_rb,3.5339e+02_rb,3.5013e+02_rb,3.4719e+02_rb/)
+      kao(:,11,11) = (/ &
+     &3.3639e+02_rb,3.3748e+02_rb,3.3591e+02_rb,3.3444e+02_rb,3.3466e+02_rb/)
+      kao(:,12,11) = (/ &
+     &3.1388e+02_rb,3.1454e+02_rb,3.1501e+02_rb,3.1656e+02_rb,3.1666e+02_rb/)
+      kao(:,13,11) = (/ &
+     &2.9044e+02_rb,2.9107e+02_rb,2.9274e+02_rb,2.9324e+02_rb,2.9124e+02_rb/)
+      kao(:, 1,12) = (/ &
+     &3.8243e+02_rb,3.8335e+02_rb,3.8560e+02_rb,3.8967e+02_rb,3.9390e+02_rb/)
+      kao(:, 2,12) = (/ &
+     &4.2476e+02_rb,4.2018e+02_rb,4.1643e+02_rb,4.1764e+02_rb,4.1841e+02_rb/)
+      kao(:, 3,12) = (/ &
+     &4.5902e+02_rb,4.5366e+02_rb,4.4789e+02_rb,4.4616e+02_rb,4.4366e+02_rb/)
+      kao(:, 4,12) = (/ &
+     &4.8576e+02_rb,4.8192e+02_rb,4.7838e+02_rb,4.7712e+02_rb,4.7436e+02_rb/)
+      kao(:, 5,12) = (/ &
+     &5.0548e+02_rb,5.0130e+02_rb,4.9886e+02_rb,4.9965e+02_rb,4.9992e+02_rb/)
+      kao(:, 6,12) = (/ &
+     &5.2714e+02_rb,5.1902e+02_rb,5.1379e+02_rb,5.1543e+02_rb,5.1780e+02_rb/)
+      kao(:, 7,12) = (/ &
+     &5.5149e+02_rb,5.4136e+02_rb,5.3395e+02_rb,5.3343e+02_rb,5.3337e+02_rb/)
+      kao(:, 8,12) = (/ &
+     &5.7260e+02_rb,5.6332e+02_rb,5.5702e+02_rb,5.5596e+02_rb,5.5242e+02_rb/)
+      kao(:, 9,12) = (/ &
+     &5.8640e+02_rb,5.7843e+02_rb,5.7443e+02_rb,5.7374e+02_rb,5.6970e+02_rb/)
+      kao(:,10,12) = (/ &
+     &5.9437e+02_rb,5.8760e+02_rb,5.8375e+02_rb,5.8166e+02_rb,5.7639e+02_rb/)
+      kao(:,11,12) = (/ &
+     &5.8998e+02_rb,5.8468e+02_rb,5.8336e+02_rb,5.7943e+02_rb,5.7161e+02_rb/)
+      kao(:,12,12) = (/ &
+     &5.7429e+02_rb,5.7360e+02_rb,5.7128e+02_rb,5.6564e+02_rb,5.6011e+02_rb/)
+      kao(:,13,12) = (/ &
+     &5.5035e+02_rb,5.5083e+02_rb,5.4893e+02_rb,5.4549e+02_rb,5.4357e+02_rb/)
+      kao(:, 1,13) = (/ &
+     &4.9343e+02_rb,4.9586e+02_rb,4.9750e+02_rb,4.9873e+02_rb,4.9898e+02_rb/)
+      kao(:, 2,13) = (/ &
+     &5.4485e+02_rb,5.4781e+02_rb,5.5082e+02_rb,5.5168e+02_rb,5.5417e+02_rb/)
+      kao(:, 3,13) = (/ &
+     &6.1399e+02_rb,6.1257e+02_rb,6.1216e+02_rb,6.1051e+02_rb,6.1193e+02_rb/)
+      kao(:, 4,13) = (/ &
+     &6.9330e+02_rb,6.8682e+02_rb,6.8040e+02_rb,6.7417e+02_rb,6.7247e+02_rb/)
+      kao(:, 5,13) = (/ &
+     &7.6881e+02_rb,7.6265e+02_rb,7.5375e+02_rb,7.4386e+02_rb,7.3721e+02_rb/)
+      kao(:, 6,13) = (/ &
+     &8.3052e+02_rb,8.2987e+02_rb,8.2363e+02_rb,8.1336e+02_rb,8.0445e+02_rb/)
+      kao(:, 7,13) = (/ &
+     &8.8082e+02_rb,8.8344e+02_rb,8.8117e+02_rb,8.7395e+02_rb,8.6653e+02_rb/)
+      kao(:, 8,13) = (/ &
+     &9.2485e+02_rb,9.2603e+02_rb,9.2355e+02_rb,9.1727e+02_rb,9.1414e+02_rb/)
+      kao(:, 9,13) = (/ &
+     &9.7276e+02_rb,9.7146e+02_rb,9.6566e+02_rb,9.5635e+02_rb,9.5212e+02_rb/)
+      kao(:,10,13) = (/ &
+     &1.0175e+03_rb,1.0163e+03_rb,1.0069e+03_rb,9.9610e+02_rb,9.9075e+02_rb/)
+      kao(:,11,13) = (/ &
+     &1.0564e+03_rb,1.0547e+03_rb,1.0423e+03_rb,1.0316e+03_rb,1.0272e+03_rb/)
+      kao(:,12,13) = (/ &
+     &1.0856e+03_rb,1.0807e+03_rb,1.0716e+03_rb,1.0657e+03_rb,1.0617e+03_rb/)
+      kao(:,13,13) = (/ &
+     &1.1006e+03_rb,1.0930e+03_rb,1.0868e+03_rb,1.0845e+03_rb,1.0783e+03_rb/)
+      kao(:, 1,14) = (/ &
+     &7.0211e+02_rb,7.0175e+02_rb,7.0131e+02_rb,6.9909e+02_rb,6.9776e+02_rb/)
+      kao(:, 2,14) = (/ &
+     &7.9113e+02_rb,7.9461e+02_rb,7.9834e+02_rb,7.9969e+02_rb,7.9813e+02_rb/)
+      kao(:, 3,14) = (/ &
+     &8.8896e+02_rb,8.9686e+02_rb,9.0679e+02_rb,9.1320e+02_rb,9.1562e+02_rb/)
+      kao(:, 4,14) = (/ &
+     &9.9457e+02_rb,1.0048e+03_rb,1.0163e+03_rb,1.0256e+03_rb,1.0309e+03_rb/)
+      kao(:, 5,14) = (/ &
+     &1.1171e+03_rb,1.1226e+03_rb,1.1342e+03_rb,1.1464e+03_rb,1.1541e+03_rb/)
+      kao(:, 6,14) = (/ &
+     &1.2650e+03_rb,1.2607e+03_rb,1.2659e+03_rb,1.2764e+03_rb,1.2854e+03_rb/)
+      kao(:, 7,14) = (/ &
+     &1.4362e+03_rb,1.4239e+03_rb,1.4228e+03_rb,1.4266e+03_rb,1.4315e+03_rb/)
+      kao(:, 8,14) = (/ &
+     &1.6263e+03_rb,1.6088e+03_rb,1.5994e+03_rb,1.5975e+03_rb,1.5958e+03_rb/)
+      kao(:, 9,14) = (/ &
+     &1.8039e+03_rb,1.7901e+03_rb,1.7817e+03_rb,1.7757e+03_rb,1.7698e+03_rb/)
+      kao(:,10,14) = (/ &
+     &1.9623e+03_rb,1.9495e+03_rb,1.9467e+03_rb,1.9462e+03_rb,1.9411e+03_rb/)
+      kao(:,11,14) = (/ &
+     &2.1010e+03_rb,2.0894e+03_rb,2.0912e+03_rb,2.0963e+03_rb,2.0914e+03_rb/)
+      kao(:,12,14) = (/ &
+     &2.2319e+03_rb,2.2209e+03_rb,2.2201e+03_rb,2.2217e+03_rb,2.2137e+03_rb/)
+      kao(:,13,14) = (/ &
+     &2.3516e+03_rb,2.3425e+03_rb,2.3393e+03_rb,2.3344e+03_rb,2.3274e+03_rb/)
+      kao(:, 1,15) = (/ &
+     &1.0409e+03_rb,1.0602e+03_rb,1.0710e+03_rb,1.0853e+03_rb,1.1018e+03_rb/)
+      kao(:, 2,15) = (/ &
+     &1.2151e+03_rb,1.2303e+03_rb,1.2347e+03_rb,1.2478e+03_rb,1.2680e+03_rb/)
+      kao(:, 3,15) = (/ &
+     &1.4193e+03_rb,1.4320e+03_rb,1.4382e+03_rb,1.4463e+03_rb,1.4605e+03_rb/)
+      kao(:, 4,15) = (/ &
+     &1.6341e+03_rb,1.6472e+03_rb,1.6601e+03_rb,1.6700e+03_rb,1.6846e+03_rb/)
+      kao(:, 5,15) = (/ &
+     &1.8786e+03_rb,1.8904e+03_rb,1.9028e+03_rb,1.9104e+03_rb,1.9250e+03_rb/)
+      kao(:, 6,15) = (/ &
+     &2.1492e+03_rb,2.1663e+03_rb,2.1776e+03_rb,2.1833e+03_rb,2.1940e+03_rb/)
+      kao(:, 7,15) = (/ &
+     &2.4310e+03_rb,2.4567e+03_rb,2.4727e+03_rb,2.4804e+03_rb,2.4891e+03_rb/)
+      kao(:, 8,15) = (/ &
+     &2.7261e+03_rb,2.7552e+03_rb,2.7803e+03_rb,2.7970e+03_rb,2.8141e+03_rb/)
+      kao(:, 9,15) = (/ &
+     &3.0867e+03_rb,3.0994e+03_rb,3.1170e+03_rb,3.1402e+03_rb,3.1679e+03_rb/)
+      kao(:,10,15) = (/ &
+     &3.5269e+03_rb,3.5204e+03_rb,3.5225e+03_rb,3.5345e+03_rb,3.5601e+03_rb/)
+      kao(:,11,15) = (/ &
+     &4.0271e+03_rb,4.0096e+03_rb,4.0024e+03_rb,4.0052e+03_rb,4.0246e+03_rb/)
+      kao(:,12,15) = (/ &
+     &4.5798e+03_rb,4.5585e+03_rb,4.5503e+03_rb,4.5442e+03_rb,4.5532e+03_rb/)
+      kao(:,13,15) = (/ &
+     &5.1911e+03_rb,5.1717e+03_rb,5.1553e+03_rb,5.1395e+03_rb,5.1397e+03_rb/)
+      kao(:, 1,16) = (/ &
+     &1.2071e+03_rb,1.2414e+03_rb,1.3062e+03_rb,1.3645e+03_rb,1.4123e+03_rb/)
+      kao(:, 2,16) = (/ &
+     &1.4670e+03_rb,1.4886e+03_rb,1.5547e+03_rb,1.6269e+03_rb,1.6875e+03_rb/)
+      kao(:, 3,16) = (/ &
+     &1.7847e+03_rb,1.7994e+03_rb,1.8394e+03_rb,1.9097e+03_rb,1.9863e+03_rb/)
+      kao(:, 4,16) = (/ &
+     &2.1409e+03_rb,2.1717e+03_rb,2.1953e+03_rb,2.2438e+03_rb,2.3059e+03_rb/)
+      kao(:, 5,16) = (/ &
+     &2.5417e+03_rb,2.5918e+03_rb,2.6196e+03_rb,2.6591e+03_rb,2.7124e+03_rb/)
+      kao(:, 6,16) = (/ &
+     &3.0242e+03_rb,3.0688e+03_rb,3.1113e+03_rb,3.1534e+03_rb,3.2074e+03_rb/)
+      kao(:, 7,16) = (/ &
+     &3.6491e+03_rb,3.6695e+03_rb,3.6939e+03_rb,3.7229e+03_rb,3.7906e+03_rb/)
+      kao(:, 8,16) = (/ &
+     &4.4223e+03_rb,4.4232e+03_rb,4.4297e+03_rb,4.4268e+03_rb,4.4608e+03_rb/)
+      kao(:, 9,16) = (/ &
+     &5.3502e+03_rb,5.3400e+03_rb,5.3338e+03_rb,5.3140e+03_rb,5.2816e+03_rb/)
+      kao(:,10,16) = (/ &
+     &6.4333e+03_rb,6.4257e+03_rb,6.4093e+03_rb,6.3744e+03_rb,6.3162e+03_rb/)
+      kao(:,11,16) = (/ &
+     &7.6805e+03_rb,7.6778e+03_rb,7.6466e+03_rb,7.5865e+03_rb,7.5106e+03_rb/)
+      kao(:,12,16) = (/ &
+     &9.1073e+03_rb,9.0972e+03_rb,9.0428e+03_rb,8.9445e+03_rb,8.8997e+03_rb/)
+      kao(:,13,16) = (/ &
+     &1.0699e+04_rb,1.0668e+04_rb,1.0580e+04_rb,1.0493e+04_rb,1.0473e+04_rb/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:,13, 1) = (/ &
+     &1.0144e-02_rb,1.1539e-02_rb,1.2861e-02_rb,1.4225e-02_rb,1.5224e-02_rb/)
+      kbo(:,14, 1) = (/ &
+     &8.4327e-03_rb,9.5989e-03_rb,1.0734e-02_rb,1.1890e-02_rb,1.2872e-02_rb/)
+      kbo(:,15, 1) = (/ &
+     &6.9967e-03_rb,7.9676e-03_rb,8.9559e-03_rb,9.9119e-03_rb,1.0533e-02_rb/)
+      kbo(:,16, 1) = (/ &
+     &5.7988e-03_rb,6.6068e-03_rb,7.4553e-03_rb,8.2402e-03_rb,8.5310e-03_rb/)
+      kbo(:,17, 1) = (/ &
+     &4.8055e-03_rb,5.4781e-03_rb,6.1884e-03_rb,6.8148e-03_rb,6.9563e-03_rb/)
+      kbo(:,18, 1) = (/ &
+     &3.9877e-03_rb,4.5423e-03_rb,5.1325e-03_rb,5.5098e-03_rb,5.6946e-03_rb/)
+      kbo(:,19, 1) = (/ &
+     &3.3110e-03_rb,3.7880e-03_rb,4.2806e-03_rb,4.4996e-03_rb,4.6784e-03_rb/)
+      kbo(:,20, 1) = (/ &
+     &2.7631e-03_rb,3.1756e-03_rb,3.5803e-03_rb,3.7100e-03_rb,3.8598e-03_rb/)
+      kbo(:,21, 1) = (/ &
+     &2.3113e-03_rb,2.6584e-03_rb,2.9347e-03_rb,3.0481e-03_rb,3.1824e-03_rb/)
+      kbo(:,22, 1) = (/ &
+     &1.9510e-03_rb,2.2389e-03_rb,2.4076e-03_rb,2.5106e-03_rb,2.6293e-03_rb/)
+      kbo(:,23, 1) = (/ &
+     &1.6490e-03_rb,1.8833e-03_rb,1.9839e-03_rb,2.0707e-03_rb,2.1757e-03_rb/)
+      kbo(:,24, 1) = (/ &
+     &1.3921e-03_rb,1.5822e-03_rb,1.6416e-03_rb,1.7136e-03_rb,1.8019e-03_rb/)
+      kbo(:,25, 1) = (/ &
+     &1.1754e-03_rb,1.2986e-03_rb,1.3546e-03_rb,1.4184e-03_rb,1.4951e-03_rb/)
+      kbo(:,26, 1) = (/ &
+     &9.9384e-04_rb,1.0692e-03_rb,1.1181e-03_rb,1.1767e-03_rb,1.2423e-03_rb/)
+      kbo(:,27, 1) = (/ &
+     &8.3932e-04_rb,8.8446e-04_rb,9.2496e-04_rb,9.7555e-04_rb,1.0286e-03_rb/)
+      kbo(:,28, 1) = (/ &
+     &7.0655e-04_rb,7.3418e-04_rb,7.6647e-04_rb,8.0853e-04_rb,8.5091e-04_rb/)
+      kbo(:,29, 1) = (/ &
+     &5.8016e-04_rb,6.0558e-04_rb,6.3439e-04_rb,6.6940e-04_rb,7.0187e-04_rb/)
+      kbo(:,30, 1) = (/ &
+     &4.7757e-04_rb,4.9924e-04_rb,5.2442e-04_rb,5.5397e-04_rb,5.7829e-04_rb/)
+      kbo(:,31, 1) = (/ &
+     &3.9420e-04_rb,4.1123e-04_rb,4.3298e-04_rb,4.5563e-04_rb,4.7437e-04_rb/)
+      kbo(:,32, 1) = (/ &
+     &3.2571e-04_rb,3.3960e-04_rb,3.5704e-04_rb,3.7387e-04_rb,3.8849e-04_rb/)
+      kbo(:,33, 1) = (/ &
+     &2.6741e-04_rb,2.8027e-04_rb,2.9349e-04_rb,3.0636e-04_rb,3.1790e-04_rb/)
+      kbo(:,34, 1) = (/ &
+     &2.2029e-04_rb,2.3073e-04_rb,2.4120e-04_rb,2.5116e-04_rb,2.5977e-04_rb/)
+      kbo(:,35, 1) = (/ &
+     &1.8092e-04_rb,1.8913e-04_rb,1.9723e-04_rb,2.0490e-04_rb,2.1120e-04_rb/)
+      kbo(:,36, 1) = (/ &
+     &1.4775e-04_rb,1.5426e-04_rb,1.6038e-04_rb,1.6643e-04_rb,1.7137e-04_rb/)
+      kbo(:,37, 1) = (/ &
+     &1.2005e-04_rb,1.2534e-04_rb,1.3001e-04_rb,1.3495e-04_rb,1.3888e-04_rb/)
+      kbo(:,38, 1) = (/ &
+     &9.7560e-05_rb,1.0177e-04_rb,1.0540e-04_rb,1.0924e-04_rb,1.1256e-04_rb/)
+      kbo(:,39, 1) = (/ &
+     &7.9344e-05_rb,8.2615e-05_rb,8.5368e-05_rb,8.8405e-05_rb,9.1186e-05_rb/)
+      kbo(:,40, 1) = (/ &
+     &6.4575e-05_rb,6.7008e-05_rb,6.9369e-05_rb,7.1740e-05_rb,7.4003e-05_rb/)
+      kbo(:,41, 1) = (/ &
+     &5.2697e-05_rb,5.4334e-05_rb,5.6409e-05_rb,5.8228e-05_rb,6.0014e-05_rb/)
+      kbo(:,42, 1) = (/ &
+     &4.3089e-05_rb,4.4120e-05_rb,4.5815e-05_rb,4.7218e-05_rb,4.8658e-05_rb/)
+      kbo(:,43, 1) = (/ &
+     &3.4429e-05_rb,3.5847e-05_rb,3.7149e-05_rb,3.8380e-05_rb,3.9479e-05_rb/)
+      kbo(:,44, 1) = (/ &
+     &2.7169e-05_rb,2.9300e-05_rb,3.0128e-05_rb,3.1175e-05_rb,3.2021e-05_rb/)
+      kbo(:,45, 1) = (/ &
+     &2.1411e-05_rb,2.3782e-05_rb,2.4360e-05_rb,2.5287e-05_rb,2.6025e-05_rb/)
+      kbo(:,46, 1) = (/ &
+     &1.6754e-05_rb,1.8795e-05_rb,1.9931e-05_rb,2.0532e-05_rb,2.1145e-05_rb/)
+      kbo(:,47, 1) = (/ &
+     &1.3067e-05_rb,1.4757e-05_rb,1.6247e-05_rb,1.6575e-05_rb,1.7184e-05_rb/)
+      kbo(:,48, 1) = (/ &
+     &1.0193e-05_rb,1.1527e-05_rb,1.2841e-05_rb,1.3599e-05_rb,1.3946e-05_rb/)
+      kbo(:,49, 1) = (/ &
+     &7.9417e-06_rb,8.9971e-06_rb,1.0112e-05_rb,1.1045e-05_rb,1.1285e-05_rb/)
+      kbo(:,50, 1) = (/ &
+     &6.1950e-06_rb,7.0678e-06_rb,7.9571e-06_rb,8.7859e-06_rb,9.3116e-06_rb/)
+      kbo(:,51, 1) = (/ &
+     &4.8121e-06_rb,5.5540e-06_rb,6.2634e-06_rb,6.9968e-06_rb,7.5750e-06_rb/)
+      kbo(:,52, 1) = (/ &
+     &3.7732e-06_rb,4.3400e-06_rb,4.9368e-06_rb,5.5255e-06_rb,6.0507e-06_rb/)
+      kbo(:,53, 1) = (/ &
+     &2.9588e-06_rb,3.3855e-06_rb,3.8934e-06_rb,4.3558e-06_rb,4.8377e-06_rb/)
+      kbo(:,54, 1) = (/ &
+     &2.2637e-06_rb,2.6550e-06_rb,3.0640e-06_rb,3.4670e-06_rb,3.8645e-06_rb/)
+      kbo(:,55, 1) = (/ &
+     &1.7394e-06_rb,2.1318e-06_rb,2.4092e-06_rb,2.7718e-06_rb,3.0969e-06_rb/)
+      kbo(:,56, 1) = (/ &
+     &1.3379e-06_rb,1.6962e-06_rb,1.9182e-06_rb,2.2019e-06_rb,2.5057e-06_rb/)
+      kbo(:,57, 1) = (/ &
+     &1.0894e-06_rb,1.3086e-06_rb,1.5250e-06_rb,1.7825e-06_rb,2.0078e-06_rb/)
+      kbo(:,58, 1) = (/ &
+     &8.2505e-07_rb,1.0180e-06_rb,1.2548e-06_rb,1.4584e-06_rb,1.7398e-06_rb/)
+      kbo(:,59, 1) = (/ &
+     &7.1802e-07_rb,8.6784e-07_rb,1.0974e-06_rb,1.3504e-06_rb,1.4314e-06_rb/)
+      kbo(:,13, 2) = (/ &
+     &4.1938e-02_rb,4.3540e-02_rb,4.4990e-02_rb,4.6074e-02_rb,4.6999e-02_rb/)
+      kbo(:,14, 2) = (/ &
+     &3.5928e-02_rb,3.7447e-02_rb,3.8935e-02_rb,3.9816e-02_rb,4.0666e-02_rb/)
+      kbo(:,15, 2) = (/ &
+     &3.0539e-02_rb,3.1836e-02_rb,3.3086e-02_rb,3.4096e-02_rb,3.5203e-02_rb/)
+      kbo(:,16, 2) = (/ &
+     &2.5542e-02_rb,2.6607e-02_rb,2.7654e-02_rb,2.8622e-02_rb,2.9849e-02_rb/)
+      kbo(:,17, 2) = (/ &
+     &2.1059e-02_rb,2.2159e-02_rb,2.3097e-02_rb,2.3970e-02_rb,2.5021e-02_rb/)
+      kbo(:,18, 2) = (/ &
+     &1.7420e-02_rb,1.8344e-02_rb,1.9223e-02_rb,2.0092e-02_rb,2.0887e-02_rb/)
+      kbo(:,19, 2) = (/ &
+     &1.4527e-02_rb,1.5294e-02_rb,1.6071e-02_rb,1.6950e-02_rb,1.7660e-02_rb/)
+      kbo(:,20, 2) = (/ &
+     &1.2057e-02_rb,1.2740e-02_rb,1.3375e-02_rb,1.4212e-02_rb,1.4836e-02_rb/)
+      kbo(:,21, 2) = (/ &
+     &1.0024e-02_rb,1.0630e-02_rb,1.1202e-02_rb,1.1918e-02_rb,1.2460e-02_rb/)
+      kbo(:,22, 2) = (/ &
+     &8.3586e-03_rb,8.8721e-03_rb,9.4319e-03_rb,1.0016e-02_rb,1.0451e-02_rb/)
+      kbo(:,23, 2) = (/ &
+     &7.0023e-03_rb,7.4292e-03_rb,7.9425e-03_rb,8.4001e-03_rb,8.6668e-03_rb/)
+      kbo(:,24, 2) = (/ &
+     &5.8805e-03_rb,6.2414e-03_rb,6.6855e-03_rb,7.0380e-03_rb,7.1881e-03_rb/)
+      kbo(:,25, 2) = (/ &
+     &4.9300e-03_rb,5.2659e-03_rb,5.6130e-03_rb,5.8139e-03_rb,5.9744e-03_rb/)
+      kbo(:,26, 2) = (/ &
+     &4.1346e-03_rb,4.4268e-03_rb,4.6994e-03_rb,4.8189e-03_rb,4.9700e-03_rb/)
+      kbo(:,27, 2) = (/ &
+     &3.4478e-03_rb,3.6949e-03_rb,3.8760e-03_rb,3.9800e-03_rb,4.1083e-03_rb/)
+      kbo(:,28, 2) = (/ &
+     &2.8662e-03_rb,3.0720e-03_rb,3.1855e-03_rb,3.2844e-03_rb,3.3841e-03_rb/)
+      kbo(:,29, 2) = (/ &
+     &2.3700e-03_rb,2.5289e-03_rb,2.6049e-03_rb,2.6846e-03_rb,2.7555e-03_rb/)
+      kbo(:,30, 2) = (/ &
+     &1.9529e-03_rb,2.0734e-03_rb,2.1236e-03_rb,2.1766e-03_rb,2.2279e-03_rb/)
+      kbo(:,31, 2) = (/ &
+     &1.5951e-03_rb,1.6761e-03_rb,1.7103e-03_rb,1.7458e-03_rb,1.7856e-03_rb/)
+      kbo(:,32, 2) = (/ &
+     &1.2965e-03_rb,1.3546e-03_rb,1.3767e-03_rb,1.4016e-03_rb,1.4345e-03_rb/)
+      kbo(:,33, 2) = (/ &
+     &1.0497e-03_rb,1.0916e-03_rb,1.1061e-03_rb,1.1259e-03_rb,1.1490e-03_rb/)
+      kbo(:,34, 2) = (/ &
+     &8.5263e-04_rb,8.8439e-04_rb,8.9299e-04_rb,9.0901e-04_rb,9.2683e-04_rb/)
+      kbo(:,35, 2) = (/ &
+     &6.8961e-04_rb,7.1452e-04_rb,7.2125e-04_rb,7.3408e-04_rb,7.4718e-04_rb/)
+      kbo(:,36, 2) = (/ &
+     &5.5538e-04_rb,5.7454e-04_rb,5.8468e-04_rb,5.9295e-04_rb,6.0312e-04_rb/)
+      kbo(:,37, 2) = (/ &
+     &4.4687e-04_rb,4.6228e-04_rb,4.7485e-04_rb,4.8052e-04_rb,4.8826e-04_rb/)
+      kbo(:,38, 2) = (/ &
+     &3.5911e-04_rb,3.7176e-04_rb,3.8278e-04_rb,3.8998e-04_rb,3.9487e-04_rb/)
+      kbo(:,39, 2) = (/ &
+     &2.8825e-04_rb,2.9868e-04_rb,3.0761e-04_rb,3.1500e-04_rb,3.2065e-04_rb/)
+      kbo(:,40, 2) = (/ &
+     &2.3221e-04_rb,2.4117e-04_rb,2.4916e-04_rb,2.5539e-04_rb,2.6149e-04_rb/)
+      kbo(:,41, 2) = (/ &
+     &1.8711e-04_rb,1.9520e-04_rb,2.0184e-04_rb,2.0732e-04_rb,2.1208e-04_rb/)
+      kbo(:,42, 2) = (/ &
+     &1.5044e-04_rb,1.5806e-04_rb,1.6349e-04_rb,1.6813e-04_rb,1.7186e-04_rb/)
+      kbo(:,43, 2) = (/ &
+     &1.2147e-04_rb,1.2754e-04_rb,1.3202e-04_rb,1.3603e-04_rb,1.3922e-04_rb/)
+      kbo(:,44, 2) = (/ &
+     &9.7631e-05_rb,1.0254e-04_rb,1.0664e-04_rb,1.1000e-04_rb,1.1278e-04_rb/)
+      kbo(:,45, 2) = (/ &
+     &7.8551e-05_rb,8.2386e-05_rb,8.6252e-05_rb,8.8821e-05_rb,9.1113e-05_rb/)
+      kbo(:,46, 2) = (/ &
+     &6.3082e-05_rb,6.6217e-05_rb,6.9264e-05_rb,7.1597e-05_rb,7.3596e-05_rb/)
+      kbo(:,47, 2) = (/ &
+     &5.0668e-05_rb,5.3148e-05_rb,5.5648e-05_rb,5.8023e-05_rb,5.9460e-05_rb/)
+      kbo(:,48, 2) = (/ &
+     &4.0723e-05_rb,4.2652e-05_rb,4.4714e-05_rb,4.6562e-05_rb,4.8110e-05_rb/)
+      kbo(:,49, 2) = (/ &
+     &3.2577e-05_rb,3.4241e-05_rb,3.5845e-05_rb,3.7418e-05_rb,3.8704e-05_rb/)
+      kbo(:,50, 2) = (/ &
+     &2.6548e-05_rb,2.7645e-05_rb,2.8887e-05_rb,3.0243e-05_rb,3.1285e-05_rb/)
+      kbo(:,51, 2) = (/ &
+     &2.1632e-05_rb,2.2305e-05_rb,2.3402e-05_rb,2.4420e-05_rb,2.5424e-05_rb/)
+      kbo(:,52, 2) = (/ &
+     &1.7494e-05_rb,1.8158e-05_rb,1.8946e-05_rb,1.9746e-05_rb,2.0626e-05_rb/)
+      kbo(:,53, 2) = (/ &
+     &1.4060e-05_rb,1.4924e-05_rb,1.5296e-05_rb,1.6047e-05_rb,1.6661e-05_rb/)
+      kbo(:,54, 2) = (/ &
+     &1.1502e-05_rb,1.2189e-05_rb,1.2591e-05_rb,1.3072e-05_rb,1.3585e-05_rb/)
+      kbo(:,55, 2) = (/ &
+     &9.4731e-06_rb,9.9000e-06_rb,1.0499e-05_rb,1.0730e-05_rb,1.1201e-05_rb/)
+      kbo(:,56, 2) = (/ &
+     &7.7842e-06_rb,8.0609e-06_rb,8.6328e-06_rb,8.9073e-06_rb,9.2258e-06_rb/)
+      kbo(:,57, 2) = (/ &
+     &6.1271e-06_rb,6.6999e-06_rb,7.0368e-06_rb,7.4466e-06_rb,7.6395e-06_rb/)
+      kbo(:,58, 2) = (/ &
+     &4.7873e-06_rb,5.5615e-06_rb,5.7470e-06_rb,6.1637e-06_rb,6.3705e-06_rb/)
+      kbo(:,59, 2) = (/ &
+     &3.8649e-06_rb,4.5966e-06_rb,4.7965e-06_rb,5.1490e-06_rb,5.3880e-06_rb/)
+      kbo(:,13, 3) = (/ &
+     &1.2497e-01_rb,1.2733e-01_rb,1.2732e-01_rb,1.2710e-01_rb,1.2722e-01_rb/)
+      kbo(:,14, 3) = (/ &
+     &1.0770e-01_rb,1.1044e-01_rb,1.0994e-01_rb,1.0972e-01_rb,1.0842e-01_rb/)
+      kbo(:,15, 3) = (/ &
+     &9.2313e-02_rb,9.4782e-02_rb,9.3928e-02_rb,9.2439e-02_rb,9.0946e-02_rb/)
+      kbo(:,16, 3) = (/ &
+     &7.7737e-02_rb,7.9134e-02_rb,7.7340e-02_rb,7.6811e-02_rb,7.6114e-02_rb/)
+      kbo(:,17, 3) = (/ &
+     &6.5446e-02_rb,6.4598e-02_rb,6.3955e-02_rb,6.3795e-02_rb,6.3695e-02_rb/)
+      kbo(:,18, 3) = (/ &
+     &5.3197e-02_rb,5.2989e-02_rb,5.2755e-02_rb,5.2824e-02_rb,5.2780e-02_rb/)
+      kbo(:,19, 3) = (/ &
+     &4.3741e-02_rb,4.3850e-02_rb,4.3971e-02_rb,4.3934e-02_rb,4.3215e-02_rb/)
+      kbo(:,20, 3) = (/ &
+     &3.6203e-02_rb,3.6356e-02_rb,3.6481e-02_rb,3.6039e-02_rb,3.5482e-02_rb/)
+      kbo(:,21, 3) = (/ &
+     &2.9983e-02_rb,3.0109e-02_rb,3.0136e-02_rb,2.9600e-02_rb,2.9205e-02_rb/)
+      kbo(:,22, 3) = (/ &
+     &2.4798e-02_rb,2.4802e-02_rb,2.4628e-02_rb,2.4239e-02_rb,2.4061e-02_rb/)
+      kbo(:,23, 3) = (/ &
+     &2.0477e-02_rb,2.0405e-02_rb,2.0149e-02_rb,1.9990e-02_rb,1.9997e-02_rb/)
+      kbo(:,24, 3) = (/ &
+     &1.6953e-02_rb,1.6782e-02_rb,1.6632e-02_rb,1.6618e-02_rb,1.6673e-02_rb/)
+      kbo(:,25, 3) = (/ &
+     &1.3995e-02_rb,1.3802e-02_rb,1.3748e-02_rb,1.3853e-02_rb,1.3849e-02_rb/)
+      kbo(:,26, 3) = (/ &
+     &1.1507e-02_rb,1.1388e-02_rb,1.1372e-02_rb,1.1472e-02_rb,1.1479e-02_rb/)
+      kbo(:,27, 3) = (/ &
+     &9.4100e-03_rb,9.3552e-03_rb,9.3927e-03_rb,9.4480e-03_rb,9.4683e-03_rb/)
+      kbo(:,28, 3) = (/ &
+     &7.6709e-03_rb,7.6555e-03_rb,7.7364e-03_rb,7.7513e-03_rb,7.7691e-03_rb/)
+      kbo(:,29, 3) = (/ &
+     &6.2318e-03_rb,6.2179e-03_rb,6.2783e-03_rb,6.2823e-03_rb,6.2984e-03_rb/)
+      kbo(:,30, 3) = (/ &
+     &5.0369e-03_rb,5.0223e-03_rb,5.0690e-03_rb,5.0675e-03_rb,5.0877e-03_rb/)
+      kbo(:,31, 3) = (/ &
+     &4.0270e-03_rb,4.0248e-03_rb,4.0530e-03_rb,4.0550e-03_rb,4.0668e-03_rb/)
+      kbo(:,32, 3) = (/ &
+     &3.2266e-03_rb,3.2233e-03_rb,3.2444e-03_rb,3.2484e-03_rb,3.2485e-03_rb/)
+      kbo(:,33, 3) = (/ &
+     &2.5826e-03_rb,2.5793e-03_rb,2.5980e-03_rb,2.5954e-03_rb,2.5860e-03_rb/)
+      kbo(:,34, 3) = (/ &
+     &2.0751e-03_rb,2.0785e-03_rb,2.0913e-03_rb,2.0819e-03_rb,2.0719e-03_rb/)
+      kbo(:,35, 3) = (/ &
+     &1.6732e-03_rb,1.6746e-03_rb,1.6840e-03_rb,1.6712e-03_rb,1.6630e-03_rb/)
+      kbo(:,36, 3) = (/ &
+     &1.3540e-03_rb,1.3534e-03_rb,1.3539e-03_rb,1.3458e-03_rb,1.3380e-03_rb/)
+      kbo(:,37, 3) = (/ &
+     &1.1025e-03_rb,1.0986e-03_rb,1.0965e-03_rb,1.0906e-03_rb,1.0838e-03_rb/)
+      kbo(:,38, 3) = (/ &
+     &8.9827e-04_rb,8.9144e-04_rb,8.8894e-04_rb,8.8260e-04_rb,8.7601e-04_rb/)
+      kbo(:,39, 3) = (/ &
+     &7.3039e-04_rb,7.2351e-04_rb,7.1956e-04_rb,7.1446e-04_rb,7.0735e-04_rb/)
+      kbo(:,40, 3) = (/ &
+     &6.0257e-04_rb,5.9335e-04_rb,5.8899e-04_rb,5.8497e-04_rb,5.7809e-04_rb/)
+      kbo(:,41, 3) = (/ &
+     &4.9748e-04_rb,4.8829e-04_rb,4.8330e-04_rb,4.7897e-04_rb,4.7418e-04_rb/)
+      kbo(:,42, 3) = (/ &
+     &4.0962e-04_rb,4.0192e-04_rb,3.9631e-04_rb,3.9272e-04_rb,3.8922e-04_rb/)
+      kbo(:,43, 3) = (/ &
+     &3.3511e-04_rb,3.3335e-04_rb,3.2739e-04_rb,3.2309e-04_rb,3.2009e-04_rb/)
+      kbo(:,44, 3) = (/ &
+     &2.7494e-04_rb,2.7440e-04_rb,2.7166e-04_rb,2.6681e-04_rb,2.6291e-04_rb/)
+      kbo(:,45, 3) = (/ &
+     &2.2409e-04_rb,2.2465e-04_rb,2.2546e-04_rb,2.2120e-04_rb,2.1688e-04_rb/)
+      kbo(:,46, 3) = (/ &
+     &1.8344e-04_rb,1.8445e-04_rb,1.8370e-04_rb,1.8435e-04_rb,1.8060e-04_rb/)
+      kbo(:,47, 3) = (/ &
+     &1.5220e-04_rb,1.5094e-04_rb,1.5093e-04_rb,1.5107e-04_rb,1.5073e-04_rb/)
+      kbo(:,48, 3) = (/ &
+     &1.2685e-04_rb,1.2406e-04_rb,1.2418e-04_rb,1.2347e-04_rb,1.2407e-04_rb/)
+      kbo(:,49, 3) = (/ &
+     &1.0283e-04_rb,1.0360e-04_rb,1.0186e-04_rb,1.0181e-04_rb,1.0123e-04_rb/)
+      kbo(:,50, 3) = (/ &
+     &8.3231e-05_rb,8.5593e-05_rb,8.4616e-05_rb,8.3839e-05_rb,8.3224e-05_rb/)
+      kbo(:,51, 3) = (/ &
+     &6.6892e-05_rb,7.0153e-05_rb,7.0699e-05_rb,6.9691e-05_rb,6.9167e-05_rb/)
+      kbo(:,52, 3) = (/ &
+     &5.4090e-05_rb,5.6975e-05_rb,5.8223e-05_rb,5.8345e-05_rb,5.7364e-05_rb/)
+      kbo(:,53, 3) = (/ &
+     &4.3363e-05_rb,4.5702e-05_rb,4.7865e-05_rb,4.7887e-05_rb,4.7945e-05_rb/)
+      kbo(:,54, 3) = (/ &
+     &3.4722e-05_rb,3.7579e-05_rb,3.9122e-05_rb,3.9883e-05_rb,3.9754e-05_rb/)
+      kbo(:,55, 3) = (/ &
+     &2.7984e-05_rb,3.0530e-05_rb,3.1930e-05_rb,3.3227e-05_rb,3.3134e-05_rb/)
+      kbo(:,56, 3) = (/ &
+     &2.2565e-05_rb,2.4737e-05_rb,2.6495e-05_rb,2.7386e-05_rb,2.7845e-05_rb/)
+      kbo(:,57, 3) = (/ &
+     &1.8624e-05_rb,1.9996e-05_rb,2.1604e-05_rb,2.2454e-05_rb,2.3200e-05_rb/)
+      kbo(:,58, 3) = (/ &
+     &1.5567e-05_rb,1.6215e-05_rb,1.7630e-05_rb,1.8795e-05_rb,1.9192e-05_rb/)
+      kbo(:,59, 3) = (/ &
+     &1.3180e-05_rb,1.3591e-05_rb,1.4748e-05_rb,1.5698e-05_rb,1.6153e-05_rb/)
+      kbo(:,13, 4) = (/ &
+     &2.3244e-01_rb,2.2666e-01_rb,2.2365e-01_rb,2.1647e-01_rb,2.0828e-01_rb/)
+      kbo(:,14, 4) = (/ &
+     &1.9358e-01_rb,1.8830e-01_rb,1.8743e-01_rb,1.8019e-01_rb,1.7506e-01_rb/)
+      kbo(:,15, 4) = (/ &
+     &1.6047e-01_rb,1.5782e-01_rb,1.5488e-01_rb,1.5178e-01_rb,1.4896e-01_rb/)
+      kbo(:,16, 4) = (/ &
+     &1.3221e-01_rb,1.3030e-01_rb,1.2930e-01_rb,1.2731e-01_rb,1.2502e-01_rb/)
+      kbo(:,17, 4) = (/ &
+     &1.0863e-01_rb,1.0862e-01_rb,1.0815e-01_rb,1.0706e-01_rb,1.0464e-01_rb/)
+      kbo(:,18, 4) = (/ &
+     &9.0031e-02_rb,9.0210e-02_rb,9.0179e-02_rb,8.8891e-02_rb,8.7072e-02_rb/)
+      kbo(:,19, 4) = (/ &
+     &7.4933e-02_rb,7.5517e-02_rb,7.5432e-02_rb,7.4716e-02_rb,7.4259e-02_rb/)
+      kbo(:,20, 4) = (/ &
+     &6.2292e-02_rb,6.2900e-02_rb,6.2796e-02_rb,6.2799e-02_rb,6.2655e-02_rb/)
+      kbo(:,21, 4) = (/ &
+     &5.1753e-02_rb,5.2259e-02_rb,5.2338e-02_rb,5.2648e-02_rb,5.2692e-02_rb/)
+      kbo(:,22, 4) = (/ &
+     &4.2879e-02_rb,4.3337e-02_rb,4.3671e-02_rb,4.3911e-02_rb,4.3964e-02_rb/)
+      kbo(:,23, 4) = (/ &
+     &3.5511e-02_rb,3.5957e-02_rb,3.6400e-02_rb,3.6560e-02_rb,3.6588e-02_rb/)
+      kbo(:,24, 4) = (/ &
+     &2.9490e-02_rb,3.0002e-02_rb,3.0363e-02_rb,3.0503e-02_rb,3.0607e-02_rb/)
+      kbo(:,25, 4) = (/ &
+     &2.4491e-02_rb,2.5028e-02_rb,2.5370e-02_rb,2.5485e-02_rb,2.5616e-02_rb/)
+      kbo(:,26, 4) = (/ &
+     &2.0405e-02_rb,2.0858e-02_rb,2.1166e-02_rb,2.1267e-02_rb,2.1358e-02_rb/)
+      kbo(:,27, 4) = (/ &
+     &1.6966e-02_rb,1.7305e-02_rb,1.7522e-02_rb,1.7603e-02_rb,1.7664e-02_rb/)
+      kbo(:,28, 4) = (/ &
+     &1.4041e-02_rb,1.4283e-02_rb,1.4398e-02_rb,1.4482e-02_rb,1.4540e-02_rb/)
+      kbo(:,29, 4) = (/ &
+     &1.1473e-02_rb,1.1643e-02_rb,1.1712e-02_rb,1.1784e-02_rb,1.1808e-02_rb/)
+      kbo(:,30, 4) = (/ &
+     &9.3128e-03_rb,9.4393e-03_rb,9.4816e-03_rb,9.5274e-03_rb,9.5277e-03_rb/)
+      kbo(:,31, 4) = (/ &
+     &7.5018e-03_rb,7.5697e-03_rb,7.5938e-03_rb,7.6234e-03_rb,7.6068e-03_rb/)
+      kbo(:,32, 4) = (/ &
+     &6.0276e-03_rb,6.0587e-03_rb,6.0760e-03_rb,6.0793e-03_rb,6.0890e-03_rb/)
+      kbo(:,33, 4) = (/ &
+     &4.8317e-03_rb,4.8465e-03_rb,4.8480e-03_rb,4.8590e-03_rb,4.8679e-03_rb/)
+      kbo(:,34, 4) = (/ &
+     &3.8930e-03_rb,3.8936e-03_rb,3.8908e-03_rb,3.9081e-03_rb,3.9148e-03_rb/)
+      kbo(:,35, 4) = (/ &
+     &3.1327e-03_rb,3.1329e-03_rb,3.1313e-03_rb,3.1437e-03_rb,3.1485e-03_rb/)
+      kbo(:,36, 4) = (/ &
+     &2.5288e-03_rb,2.5255e-03_rb,2.5228e-03_rb,2.5303e-03_rb,2.5349e-03_rb/)
+      kbo(:,37, 4) = (/ &
+     &2.0481e-03_rb,2.0483e-03_rb,2.0398e-03_rb,2.0467e-03_rb,2.0499e-03_rb/)
+      kbo(:,38, 4) = (/ &
+     &1.6558e-03_rb,1.6596e-03_rb,1.6492e-03_rb,1.6534e-03_rb,1.6569e-03_rb/)
+      kbo(:,39, 4) = (/ &
+     &1.3374e-03_rb,1.3400e-03_rb,1.3351e-03_rb,1.3347e-03_rb,1.3383e-03_rb/)
+      kbo(:,40, 4) = (/ &
+     &1.0845e-03_rb,1.0921e-03_rb,1.0887e-03_rb,1.0875e-03_rb,1.0897e-03_rb/)
+      kbo(:,41, 4) = (/ &
+     &8.8154e-04_rb,8.8864e-04_rb,8.8779e-04_rb,8.8674e-04_rb,8.8749e-04_rb/)
+      kbo(:,42, 4) = (/ &
+     &7.1843e-04_rb,7.2263e-04_rb,7.2341e-04_rb,7.2250e-04_rb,7.2207e-04_rb/)
+      kbo(:,43, 4) = (/ &
+     &5.8799e-04_rb,5.8635e-04_rb,5.8966e-04_rb,5.8857e-04_rb,5.8778e-04_rb/)
+      kbo(:,44, 4) = (/ &
+     &4.7968e-04_rb,4.7905e-04_rb,4.7843e-04_rb,4.7895e-04_rb,4.7900e-04_rb/)
+      kbo(:,45, 4) = (/ &
+     &3.9220e-04_rb,3.9274e-04_rb,3.8844e-04_rb,3.8841e-04_rb,3.8937e-04_rb/)
+      kbo(:,46, 4) = (/ &
+     &3.2002e-04_rb,3.2007e-04_rb,3.1928e-04_rb,3.1499e-04_rb,3.1489e-04_rb/)
+      kbo(:,47, 4) = (/ &
+     &2.6159e-04_rb,2.6272e-04_rb,2.6214e-04_rb,2.5941e-04_rb,2.5552e-04_rb/)
+      kbo(:,48, 4) = (/ &
+     &2.1397e-04_rb,2.1500e-04_rb,2.1426e-04_rb,2.1370e-04_rb,2.0956e-04_rb/)
+      kbo(:,49, 4) = (/ &
+     &1.7795e-04_rb,1.7554e-04_rb,1.7551e-04_rb,1.7452e-04_rb,1.7328e-04_rb/)
+      kbo(:,50, 4) = (/ &
+     &1.4762e-04_rb,1.4610e-04_rb,1.4428e-04_rb,1.4351e-04_rb,1.4273e-04_rb/)
+      kbo(:,51, 4) = (/ &
+     &1.2354e-04_rb,1.2144e-04_rb,1.1938e-04_rb,1.1805e-04_rb,1.1688e-04_rb/)
+      kbo(:,52, 4) = (/ &
+     &1.0353e-04_rb,1.0111e-04_rb,9.9958e-05_rb,9.7469e-05_rb,9.6574e-05_rb/)
+      kbo(:,53, 4) = (/ &
+     &8.8311e-05_rb,8.4522e-05_rb,8.3164e-05_rb,8.1847e-05_rb,7.9623e-05_rb/)
+      kbo(:,54, 4) = (/ &
+     &7.5002e-05_rb,7.1277e-05_rb,6.9429e-05_rb,6.8546e-05_rb,6.7044e-05_rb/)
+      kbo(:,55, 4) = (/ &
+     &6.4688e-05_rb,6.1558e-05_rb,5.8597e-05_rb,5.7310e-05_rb,5.6741e-05_rb/)
+      kbo(:,56, 4) = (/ &
+     &5.4545e-05_rb,5.2835e-05_rb,4.9722e-05_rb,4.8222e-05_rb,4.7437e-05_rb/)
+      kbo(:,57, 4) = (/ &
+     &4.5567e-05_rb,4.5770e-05_rb,4.3541e-05_rb,4.1141e-05_rb,3.9867e-05_rb/)
+      kbo(:,58, 4) = (/ &
+     &3.8423e-05_rb,3.8314e-05_rb,3.7767e-05_rb,3.5438e-05_rb,3.3984e-05_rb/)
+      kbo(:,59, 4) = (/ &
+     &3.2695e-05_rb,3.2545e-05_rb,3.2199e-05_rb,3.0741e-05_rb,2.9151e-05_rb/)
+      kbo(:,13, 5) = (/ &
+     &3.6693e-01_rb,3.6670e-01_rb,3.6374e-01_rb,3.6513e-01_rb,3.6694e-01_rb/)
+      kbo(:,14, 5) = (/ &
+     &3.1193e-01_rb,3.1009e-01_rb,3.0785e-01_rb,3.1108e-01_rb,3.1338e-01_rb/)
+      kbo(:,15, 5) = (/ &
+     &2.6635e-01_rb,2.6398e-01_rb,2.6603e-01_rb,2.6792e-01_rb,2.6974e-01_rb/)
+      kbo(:,16, 5) = (/ &
+     &2.2560e-01_rb,2.2536e-01_rb,2.2722e-01_rb,2.2790e-01_rb,2.2934e-01_rb/)
+      kbo(:,17, 5) = (/ &
+     &1.9102e-01_rb,1.9205e-01_rb,1.9235e-01_rb,1.9256e-01_rb,1.9454e-01_rb/)
+      kbo(:,18, 5) = (/ &
+     &1.6220e-01_rb,1.6268e-01_rb,1.6247e-01_rb,1.6354e-01_rb,1.6555e-01_rb/)
+      kbo(:,19, 5) = (/ &
+     &1.3796e-01_rb,1.3803e-01_rb,1.3823e-01_rb,1.3977e-01_rb,1.4117e-01_rb/)
+      kbo(:,20, 5) = (/ &
+     &1.1636e-01_rb,1.1631e-01_rb,1.1719e-01_rb,1.1821e-01_rb,1.1915e-01_rb/)
+      kbo(:,21, 5) = (/ &
+     &9.7502e-02_rb,9.7703e-02_rb,9.8615e-02_rb,9.9561e-02_rb,1.0025e-01_rb/)
+      kbo(:,22, 5) = (/ &
+     &8.1562e-02_rb,8.1981e-02_rb,8.2659e-02_rb,8.3450e-02_rb,8.3918e-02_rb/)
+      kbo(:,23, 5) = (/ &
+     &6.8080e-02_rb,6.8683e-02_rb,6.9366e-02_rb,6.9894e-02_rb,7.0282e-02_rb/)
+      kbo(:,24, 5) = (/ &
+     &5.7119e-02_rb,5.7682e-02_rb,5.8192e-02_rb,5.8547e-02_rb,5.9029e-02_rb/)
+      kbo(:,25, 5) = (/ &
+     &4.7811e-02_rb,4.8293e-02_rb,4.8606e-02_rb,4.8996e-02_rb,4.9473e-02_rb/)
+      kbo(:,26, 5) = (/ &
+     &3.9890e-02_rb,4.0316e-02_rb,4.0576e-02_rb,4.1016e-02_rb,4.1455e-02_rb/)
+      kbo(:,27, 5) = (/ &
+     &3.3117e-02_rb,3.3470e-02_rb,3.3770e-02_rb,3.4189e-02_rb,3.4527e-02_rb/)
+      kbo(:,28, 5) = (/ &
+     &2.7406e-02_rb,2.7694e-02_rb,2.7971e-02_rb,2.8332e-02_rb,2.8599e-02_rb/)
+      kbo(:,29, 5) = (/ &
+     &2.2401e-02_rb,2.2630e-02_rb,2.2890e-02_rb,2.3150e-02_rb,2.3396e-02_rb/)
+      kbo(:,30, 5) = (/ &
+     &1.8227e-02_rb,1.8399e-02_rb,1.8623e-02_rb,1.8850e-02_rb,1.9028e-02_rb/)
+      kbo(:,31, 5) = (/ &
+     &1.4683e-02_rb,1.4830e-02_rb,1.5011e-02_rb,1.5187e-02_rb,1.5326e-02_rb/)
+      kbo(:,32, 5) = (/ &
+     &1.1826e-02_rb,1.1971e-02_rb,1.2101e-02_rb,1.2245e-02_rb,1.2313e-02_rb/)
+      kbo(:,33, 5) = (/ &
+     &9.5307e-03_rb,9.6419e-03_rb,9.7421e-03_rb,9.8284e-03_rb,9.8826e-03_rb/)
+      kbo(:,34, 5) = (/ &
+     &7.7176e-03_rb,7.8031e-03_rb,7.8838e-03_rb,7.9405e-03_rb,7.9679e-03_rb/)
+      kbo(:,35, 5) = (/ &
+     &6.2512e-03_rb,6.3124e-03_rb,6.3712e-03_rb,6.4126e-03_rb,6.4324e-03_rb/)
+      kbo(:,36, 5) = (/ &
+     &5.0560e-03_rb,5.1076e-03_rb,5.1576e-03_rb,5.1918e-03_rb,5.2018e-03_rb/)
+      kbo(:,37, 5) = (/ &
+     &4.0965e-03_rb,4.1427e-03_rb,4.1869e-03_rb,4.2164e-03_rb,4.2222e-03_rb/)
+      kbo(:,38, 5) = (/ &
+     &3.3169e-03_rb,3.3541e-03_rb,3.3940e-03_rb,3.4174e-03_rb,3.4236e-03_rb/)
+      kbo(:,39, 5) = (/ &
+     &2.6806e-03_rb,2.7157e-03_rb,2.7440e-03_rb,2.7658e-03_rb,2.7739e-03_rb/)
+      kbo(:,40, 5) = (/ &
+     &2.1766e-03_rb,2.2105e-03_rb,2.2356e-03_rb,2.2533e-03_rb,2.2654e-03_rb/)
+      kbo(:,41, 5) = (/ &
+     &1.7690e-03_rb,1.7997e-03_rb,1.8217e-03_rb,1.8373e-03_rb,1.8492e-03_rb/)
+      kbo(:,42, 5) = (/ &
+     &1.4370e-03_rb,1.4625e-03_rb,1.4833e-03_rb,1.4970e-03_rb,1.5072e-03_rb/)
+      kbo(:,43, 5) = (/ &
+     &1.1671e-03_rb,1.1863e-03_rb,1.2051e-03_rb,1.2193e-03_rb,1.2276e-03_rb/)
+      kbo(:,44, 5) = (/ &
+     &9.4820e-04_rb,9.6187e-04_rb,9.7830e-04_rb,9.9143e-04_rb,9.9963e-04_rb/)
+      kbo(:,45, 5) = (/ &
+     &7.6916e-04_rb,7.7831e-04_rb,7.9153e-04_rb,8.0495e-04_rb,8.1281e-04_rb/)
+      kbo(:,46, 5) = (/ &
+     &6.2348e-04_rb,6.3114e-04_rb,6.4009e-04_rb,6.5199e-04_rb,6.6002e-04_rb/)
+      kbo(:,47, 5) = (/ &
+     &5.0390e-04_rb,5.1138e-04_rb,5.1807e-04_rb,5.2655e-04_rb,5.3606e-04_rb/)
+      kbo(:,48, 5) = (/ &
+     &4.0606e-04_rb,4.1379e-04_rb,4.1952e-04_rb,4.2537e-04_rb,4.3314e-04_rb/)
+      kbo(:,49, 5) = (/ &
+     &3.2659e-04_rb,3.3285e-04_rb,3.3902e-04_rb,3.4315e-04_rb,3.4880e-04_rb/)
+      kbo(:,50, 5) = (/ &
+     &2.6466e-04_rb,2.6781e-04_rb,2.7393e-04_rb,2.7826e-04_rb,2.8216e-04_rb/)
+      kbo(:,51, 5) = (/ &
+     &2.1507e-04_rb,2.1721e-04_rb,2.2109e-04_rb,2.2570e-04_rb,2.2911e-04_rb/)
+      kbo(:,52, 5) = (/ &
+     &1.7470e-04_rb,1.7639e-04_rb,1.7813e-04_rb,1.8197e-04_rb,1.8512e-04_rb/)
+      kbo(:,53, 5) = (/ &
+     &1.4115e-04_rb,1.4348e-04_rb,1.4425e-04_rb,1.4633e-04_rb,1.4939e-04_rb/)
+      kbo(:,54, 5) = (/ &
+     &1.1575e-04_rb,1.1704e-04_rb,1.1812e-04_rb,1.1890e-04_rb,1.2106e-04_rb/)
+      kbo(:,55, 5) = (/ &
+     &9.4726e-05_rb,9.5455e-05_rb,9.6825e-05_rb,9.7465e-05_rb,9.8412e-05_rb/)
+      kbo(:,56, 5) = (/ &
+     &7.9719e-05_rb,7.8475e-05_rb,7.9571e-05_rb,8.0057e-05_rb,8.0565e-05_rb/)
+      kbo(:,57, 5) = (/ &
+     &6.7373e-05_rb,6.4174e-05_rb,6.4600e-05_rb,6.5492e-05_rb,6.6130e-05_rb/)
+      kbo(:,58, 5) = (/ &
+     &5.8248e-05_rb,5.4990e-05_rb,5.3012e-05_rb,5.3610e-05_rb,5.4283e-05_rb/)
+      kbo(:,59, 5) = (/ &
+     &5.0210e-05_rb,4.6885e-05_rb,4.4678e-05_rb,4.4690e-05_rb,4.5330e-05_rb/)
+      kbo(:,13, 6) = (/ &
+     &8.1815e-01_rb,8.2185e-01_rb,8.2056e-01_rb,8.1693e-01_rb,8.1119e-01_rb/)
+      kbo(:,14, 6) = (/ &
+     &6.9938e-01_rb,7.0403e-01_rb,7.0310e-01_rb,6.9893e-01_rb,6.9382e-01_rb/)
+      kbo(:,15, 6) = (/ &
+     &6.0306e-01_rb,6.0562e-01_rb,6.0433e-01_rb,6.0124e-01_rb,5.9539e-01_rb/)
+      kbo(:,16, 6) = (/ &
+     &5.1717e-01_rb,5.1741e-01_rb,5.1602e-01_rb,5.1303e-01_rb,5.0799e-01_rb/)
+      kbo(:,17, 6) = (/ &
+     &4.3954e-01_rb,4.3996e-01_rb,4.3917e-01_rb,4.3585e-01_rb,4.3144e-01_rb/)
+      kbo(:,18, 6) = (/ &
+     &3.7098e-01_rb,3.7164e-01_rb,3.7046e-01_rb,3.6778e-01_rb,3.6412e-01_rb/)
+      kbo(:,19, 6) = (/ &
+     &3.1410e-01_rb,3.1452e-01_rb,3.1318e-01_rb,3.1054e-01_rb,3.0829e-01_rb/)
+      kbo(:,20, 6) = (/ &
+     &2.6425e-01_rb,2.6434e-01_rb,2.6287e-01_rb,2.6129e-01_rb,2.6054e-01_rb/)
+      kbo(:,21, 6) = (/ &
+     &2.2166e-01_rb,2.2161e-01_rb,2.2078e-01_rb,2.2017e-01_rb,2.1929e-01_rb/)
+      kbo(:,22, 6) = (/ &
+     &1.8499e-01_rb,1.8512e-01_rb,1.8480e-01_rb,1.8474e-01_rb,1.8395e-01_rb/)
+      kbo(:,23, 6) = (/ &
+     &1.5462e-01_rb,1.5460e-01_rb,1.5448e-01_rb,1.5440e-01_rb,1.5366e-01_rb/)
+      kbo(:,24, 6) = (/ &
+     &1.2929e-01_rb,1.2940e-01_rb,1.2953e-01_rb,1.2932e-01_rb,1.2872e-01_rb/)
+      kbo(:,25, 6) = (/ &
+     &1.0802e-01_rb,1.0819e-01_rb,1.0834e-01_rb,1.0817e-01_rb,1.0761e-01_rb/)
+      kbo(:,26, 6) = (/ &
+     &9.0060e-02_rb,9.0350e-02_rb,9.0334e-02_rb,9.0150e-02_rb,8.9781e-02_rb/)
+      kbo(:,27, 6) = (/ &
+     &7.4680e-02_rb,7.4863e-02_rb,7.4908e-02_rb,7.4831e-02_rb,7.4608e-02_rb/)
+      kbo(:,28, 6) = (/ &
+     &6.1687e-02_rb,6.1865e-02_rb,6.1970e-02_rb,6.1917e-02_rb,6.1874e-02_rb/)
+      kbo(:,29, 6) = (/ &
+     &5.0513e-02_rb,5.0701e-02_rb,5.0801e-02_rb,5.0773e-02_rb,5.0734e-02_rb/)
+      kbo(:,30, 6) = (/ &
+     &4.1201e-02_rb,4.1379e-02_rb,4.1449e-02_rb,4.1422e-02_rb,4.1408e-02_rb/)
+      kbo(:,31, 6) = (/ &
+     &3.3339e-02_rb,3.3480e-02_rb,3.3517e-02_rb,3.3503e-02_rb,3.3496e-02_rb/)
+      kbo(:,32, 6) = (/ &
+     &2.6941e-02_rb,2.7025e-02_rb,2.7045e-02_rb,2.7032e-02_rb,2.7041e-02_rb/)
+      kbo(:,33, 6) = (/ &
+     &2.1746e-02_rb,2.1784e-02_rb,2.1791e-02_rb,2.1788e-02_rb,2.1780e-02_rb/)
+      kbo(:,34, 6) = (/ &
+     &1.7618e-02_rb,1.7652e-02_rb,1.7653e-02_rb,1.7651e-02_rb,1.7645e-02_rb/)
+      kbo(:,35, 6) = (/ &
+     &1.4278e-02_rb,1.4314e-02_rb,1.4305e-02_rb,1.4306e-02_rb,1.4294e-02_rb/)
+      kbo(:,36, 6) = (/ &
+     &1.1580e-02_rb,1.1612e-02_rb,1.1606e-02_rb,1.1608e-02_rb,1.1605e-02_rb/)
+      kbo(:,37, 6) = (/ &
+     &9.4219e-03_rb,9.4537e-03_rb,9.4624e-03_rb,9.4565e-03_rb,9.4577e-03_rb/)
+      kbo(:,38, 6) = (/ &
+     &7.6536e-03_rb,7.6870e-03_rb,7.7033e-03_rb,7.6954e-03_rb,7.6994e-03_rb/)
+      kbo(:,39, 6) = (/ &
+     &6.2054e-03_rb,6.2357e-03_rb,6.2573e-03_rb,6.2573e-03_rb,6.2600e-03_rb/)
+      kbo(:,40, 6) = (/ &
+     &5.0787e-03_rb,5.1000e-03_rb,5.1231e-03_rb,5.1304e-03_rb,5.1270e-03_rb/)
+      kbo(:,41, 6) = (/ &
+     &4.1553e-03_rb,4.1734e-03_rb,4.1950e-03_rb,4.2100e-03_rb,4.2073e-03_rb/)
+      kbo(:,42, 6) = (/ &
+     &3.3951e-03_rb,3.4115e-03_rb,3.4321e-03_rb,3.4456e-03_rb,3.4459e-03_rb/)
+      kbo(:,43, 6) = (/ &
+     &2.7739e-03_rb,2.7892e-03_rb,2.8063e-03_rb,2.8198e-03_rb,2.8248e-03_rb/)
+      kbo(:,44, 6) = (/ &
+     &2.2638e-03_rb,2.2784e-03_rb,2.2918e-03_rb,2.3046e-03_rb,2.3113e-03_rb/)
+      kbo(:,45, 6) = (/ &
+     &1.8451e-03_rb,1.8580e-03_rb,1.8678e-03_rb,1.8806e-03_rb,1.8860e-03_rb/)
+      kbo(:,46, 6) = (/ &
+     &1.5013e-03_rb,1.5134e-03_rb,1.5237e-03_rb,1.5316e-03_rb,1.5391e-03_rb/)
+      kbo(:,47, 6) = (/ &
+     &1.2205e-03_rb,1.2340e-03_rb,1.2429e-03_rb,1.2503e-03_rb,1.2568e-03_rb/)
+      kbo(:,48, 6) = (/ &
+     &9.8959e-04_rb,1.0036e-03_rb,1.0115e-03_rb,1.0182e-03_rb,1.0235e-03_rb/)
+      kbo(:,49, 6) = (/ &
+     &8.0128e-04_rb,8.1327e-04_rb,8.2211e-04_rb,8.2807e-04_rb,8.3181e-04_rb/)
+      kbo(:,50, 6) = (/ &
+     &6.5077e-04_rb,6.6049e-04_rb,6.6942e-04_rb,6.7493e-04_rb,6.7909e-04_rb/)
+      kbo(:,51, 6) = (/ &
+     &5.2860e-04_rb,5.3765e-04_rb,5.4562e-04_rb,5.5099e-04_rb,5.5519e-04_rb/)
+      kbo(:,52, 6) = (/ &
+     &4.2741e-04_rb,4.3678e-04_rb,4.4379e-04_rb,4.4944e-04_rb,4.5321e-04_rb/)
+      kbo(:,53, 6) = (/ &
+     &3.4420e-04_rb,3.5368e-04_rb,3.5979e-04_rb,3.6513e-04_rb,3.6858e-04_rb/)
+      kbo(:,54, 6) = (/ &
+     &2.7911e-04_rb,2.8752e-04_rb,2.9393e-04_rb,2.9865e-04_rb,3.0238e-04_rb/)
+      kbo(:,55, 6) = (/ &
+     &2.2659e-04_rb,2.3415e-04_rb,2.4084e-04_rb,2.4534e-04_rb,2.4896e-04_rb/)
+      kbo(:,56, 6) = (/ &
+     &1.8317e-04_rb,1.9078e-04_rb,1.9656e-04_rb,2.0135e-04_rb,2.0466e-04_rb/)
+      kbo(:,57, 6) = (/ &
+     &1.4828e-04_rb,1.5527e-04_rb,1.6035e-04_rb,1.6503e-04_rb,1.6825e-04_rb/)
+      kbo(:,58, 6) = (/ &
+     &1.1818e-04_rb,1.2542e-04_rb,1.3082e-04_rb,1.3476e-04_rb,1.3831e-04_rb/)
+      kbo(:,59, 6) = (/ &
+     &9.6673e-05_rb,1.0368e-04_rb,1.0861e-04_rb,1.1211e-04_rb,1.1553e-04_rb/)
+      kbo(:,13, 7) = (/ &
+     &2.1727e+00_rb,2.1507e+00_rb,2.1220e+00_rb,2.0892e+00_rb,2.0541e+00_rb/)
+      kbo(:,14, 7) = (/ &
+     &1.7980e+00_rb,1.7753e+00_rb,1.7493e+00_rb,1.7241e+00_rb,1.6941e+00_rb/)
+      kbo(:,15, 7) = (/ &
+     &1.5327e+00_rb,1.5148e+00_rb,1.4951e+00_rb,1.4705e+00_rb,1.4480e+00_rb/)
+      kbo(:,16, 7) = (/ &
+     &1.3007e+00_rb,1.2909e+00_rb,1.2720e+00_rb,1.2527e+00_rb,1.2359e+00_rb/)
+      kbo(:,17, 7) = (/ &
+     &1.1117e+00_rb,1.1002e+00_rb,1.0859e+00_rb,1.0728e+00_rb,1.0608e+00_rb/)
+      kbo(:,18, 7) = (/ &
+     &9.4895e-01_rb,9.3669e-01_rb,9.2658e-01_rb,9.1630e-01_rb,9.0461e-01_rb/)
+      kbo(:,19, 7) = (/ &
+     &8.0771e-01_rb,7.9960e-01_rb,7.9052e-01_rb,7.8134e-01_rb,7.7103e-01_rb/)
+      kbo(:,20, 7) = (/ &
+     &6.8397e-01_rb,6.7733e-01_rb,6.6931e-01_rb,6.6104e-01_rb,6.5276e-01_rb/)
+      kbo(:,21, 7) = (/ &
+     &5.7680e-01_rb,5.7078e-01_rb,5.6416e-01_rb,5.5706e-01_rb,5.4996e-01_rb/)
+      kbo(:,22, 7) = (/ &
+     &4.8402e-01_rb,4.7901e-01_rb,4.7292e-01_rb,4.6701e-01_rb,4.6224e-01_rb/)
+      kbo(:,23, 7) = (/ &
+     &4.0435e-01_rb,4.0004e-01_rb,3.9588e-01_rb,3.9219e-01_rb,3.8835e-01_rb/)
+      kbo(:,24, 7) = (/ &
+     &3.3766e-01_rb,3.3478e-01_rb,3.3178e-01_rb,3.2887e-01_rb,3.2604e-01_rb/)
+      kbo(:,25, 7) = (/ &
+     &2.8141e-01_rb,2.7941e-01_rb,2.7716e-01_rb,2.7469e-01_rb,2.7266e-01_rb/)
+      kbo(:,26, 7) = (/ &
+     &2.3429e-01_rb,2.3260e-01_rb,2.3087e-01_rb,2.2897e-01_rb,2.2751e-01_rb/)
+      kbo(:,27, 7) = (/ &
+     &1.9420e-01_rb,1.9275e-01_rb,1.9122e-01_rb,1.8991e-01_rb,1.8923e-01_rb/)
+      kbo(:,28, 7) = (/ &
+     &1.6015e-01_rb,1.5905e-01_rb,1.5800e-01_rb,1.5718e-01_rb,1.5696e-01_rb/)
+      kbo(:,29, 7) = (/ &
+     &1.3094e-01_rb,1.3014e-01_rb,1.2944e-01_rb,1.2906e-01_rb,1.2899e-01_rb/)
+      kbo(:,30, 7) = (/ &
+     &1.0666e-01_rb,1.0604e-01_rb,1.0563e-01_rb,1.0549e-01_rb,1.0548e-01_rb/)
+      kbo(:,31, 7) = (/ &
+     &8.6275e-02_rb,8.5845e-02_rb,8.5617e-02_rb,8.5505e-02_rb,8.5535e-02_rb/)
+      kbo(:,32, 7) = (/ &
+     &6.9798e-02_rb,6.9528e-02_rb,6.9393e-02_rb,6.9336e-02_rb,6.9374e-02_rb/)
+      kbo(:,33, 7) = (/ &
+     &5.6418e-02_rb,5.6253e-02_rb,5.6185e-02_rb,5.6126e-02_rb,5.6165e-02_rb/)
+      kbo(:,34, 7) = (/ &
+     &4.5866e-02_rb,4.5727e-02_rb,4.5682e-02_rb,4.5616e-02_rb,4.5707e-02_rb/)
+      kbo(:,35, 7) = (/ &
+     &3.7274e-02_rb,3.7180e-02_rb,3.7143e-02_rb,3.7120e-02_rb,3.7200e-02_rb/)
+      kbo(:,36, 7) = (/ &
+     &3.0350e-02_rb,3.0274e-02_rb,3.0257e-02_rb,3.0235e-02_rb,3.0299e-02_rb/)
+      kbo(:,37, 7) = (/ &
+     &2.4821e-02_rb,2.4753e-02_rb,2.4742e-02_rb,2.4741e-02_rb,2.4790e-02_rb/)
+      kbo(:,38, 7) = (/ &
+     &2.0268e-02_rb,2.0223e-02_rb,2.0196e-02_rb,2.0200e-02_rb,2.0236e-02_rb/)
+      kbo(:,39, 7) = (/ &
+     &1.6521e-02_rb,1.6487e-02_rb,1.6459e-02_rb,1.6462e-02_rb,1.6499e-02_rb/)
+      kbo(:,40, 7) = (/ &
+     &1.3551e-02_rb,1.3542e-02_rb,1.3531e-02_rb,1.3538e-02_rb,1.3571e-02_rb/)
+      kbo(:,41, 7) = (/ &
+     &1.1139e-02_rb,1.1135e-02_rb,1.1130e-02_rb,1.1141e-02_rb,1.1171e-02_rb/)
+      kbo(:,42, 7) = (/ &
+     &9.1492e-03_rb,9.1515e-03_rb,9.1518e-03_rb,9.1649e-03_rb,9.1900e-03_rb/)
+      kbo(:,43, 7) = (/ &
+     &7.5083e-03_rb,7.5191e-03_rb,7.5258e-03_rb,7.5334e-03_rb,7.5552e-03_rb/)
+      kbo(:,44, 7) = (/ &
+     &6.1594e-03_rb,6.1707e-03_rb,6.1785e-03_rb,6.1865e-03_rb,6.2090e-03_rb/)
+      kbo(:,45, 7) = (/ &
+     &5.0436e-03_rb,5.0526e-03_rb,5.0656e-03_rb,5.0711e-03_rb,5.0867e-03_rb/)
+      kbo(:,46, 7) = (/ &
+     &4.1291e-03_rb,4.1408e-03_rb,4.1483e-03_rb,4.1539e-03_rb,4.1670e-03_rb/)
+      kbo(:,47, 7) = (/ &
+     &3.3808e-03_rb,3.3903e-03_rb,3.4014e-03_rb,3.4059e-03_rb,3.4179e-03_rb/)
+      kbo(:,48, 7) = (/ &
+     &2.7630e-03_rb,2.7730e-03_rb,2.7794e-03_rb,2.7876e-03_rb,2.7961e-03_rb/)
+      kbo(:,49, 7) = (/ &
+     &2.2529e-03_rb,2.2614e-03_rb,2.2681e-03_rb,2.2743e-03_rb,2.2825e-03_rb/)
+      kbo(:,50, 7) = (/ &
+     &1.8409e-03_rb,1.8507e-03_rb,1.8571e-03_rb,1.8629e-03_rb,1.8694e-03_rb/)
+      kbo(:,51, 7) = (/ &
+     &1.5059e-03_rb,1.5160e-03_rb,1.5224e-03_rb,1.5287e-03_rb,1.5343e-03_rb/)
+      kbo(:,52, 7) = (/ &
+     &1.2303e-03_rb,1.2392e-03_rb,1.2461e-03_rb,1.2522e-03_rb,1.2570e-03_rb/)
+      kbo(:,53, 7) = (/ &
+     &1.0020e-03_rb,1.0115e-03_rb,1.0178e-03_rb,1.0227e-03_rb,1.0281e-03_rb/)
+      kbo(:,54, 7) = (/ &
+     &8.2130e-04_rb,8.3060e-04_rb,8.3778e-04_rb,8.4304e-04_rb,8.4741e-04_rb/)
+      kbo(:,55, 7) = (/ &
+     &6.7498e-04_rb,6.8670e-04_rb,6.9292e-04_rb,6.9895e-04_rb,7.0313e-04_rb/)
+      kbo(:,56, 7) = (/ &
+     &5.5427e-04_rb,5.6524e-04_rb,5.7318e-04_rb,5.7892e-04_rb,5.8355e-04_rb/)
+      kbo(:,57, 7) = (/ &
+     &4.5437e-04_rb,4.6585e-04_rb,4.7333e-04_rb,4.7899e-04_rb,4.8346e-04_rb/)
+      kbo(:,58, 7) = (/ &
+     &3.7314e-04_rb,3.8385e-04_rb,3.9164e-04_rb,3.9732e-04_rb,4.0183e-04_rb/)
+      kbo(:,59, 7) = (/ &
+     &3.1164e-04_rb,3.2163e-04_rb,3.2929e-04_rb,3.3498e-04_rb,3.3967e-04_rb/)
+      kbo(:,13, 8) = (/ &
+     &7.1017e+00_rb,7.0462e+00_rb,6.9629e+00_rb,6.8569e+00_rb,6.7518e+00_rb/)
+      kbo(:,14, 8) = (/ &
+     &5.9884e+00_rb,5.9470e+00_rb,5.8924e+00_rb,5.8216e+00_rb,5.7342e+00_rb/)
+      kbo(:,15, 8) = (/ &
+     &4.9849e+00_rb,4.9563e+00_rb,4.9071e+00_rb,4.8502e+00_rb,4.7771e+00_rb/)
+      kbo(:,16, 8) = (/ &
+     &4.1453e+00_rb,4.1136e+00_rb,4.0790e+00_rb,4.0345e+00_rb,3.9753e+00_rb/)
+      kbo(:,17, 8) = (/ &
+     &3.5269e+00_rb,3.5022e+00_rb,3.4717e+00_rb,3.4323e+00_rb,3.3830e+00_rb/)
+      kbo(:,18, 8) = (/ &
+     &3.0258e+00_rb,3.0139e+00_rb,2.9887e+00_rb,2.9518e+00_rb,2.9096e+00_rb/)
+      kbo(:,19, 8) = (/ &
+     &2.6100e+00_rb,2.6057e+00_rb,2.5839e+00_rb,2.5531e+00_rb,2.5181e+00_rb/)
+      kbo(:,20, 8) = (/ &
+     &2.2532e+00_rb,2.2444e+00_rb,2.2242e+00_rb,2.2015e+00_rb,2.1737e+00_rb/)
+      kbo(:,21, 8) = (/ &
+     &1.9361e+00_rb,1.9257e+00_rb,1.9080e+00_rb,1.8885e+00_rb,1.8663e+00_rb/)
+      kbo(:,22, 8) = (/ &
+     &1.6493e+00_rb,1.6394e+00_rb,1.6256e+00_rb,1.6084e+00_rb,1.5911e+00_rb/)
+      kbo(:,23, 8) = (/ &
+     &1.3971e+00_rb,1.3901e+00_rb,1.3774e+00_rb,1.3628e+00_rb,1.3482e+00_rb/)
+      kbo(:,24, 8) = (/ &
+     &1.1828e+00_rb,1.1757e+00_rb,1.1653e+00_rb,1.1541e+00_rb,1.1420e+00_rb/)
+      kbo(:,25, 8) = (/ &
+     &9.9841e-01_rb,9.9173e-01_rb,9.8314e-01_rb,9.7419e-01_rb,9.6526e-01_rb/)
+      kbo(:,26, 8) = (/ &
+     &8.3815e-01_rb,8.3237e-01_rb,8.2631e-01_rb,8.2072e-01_rb,8.1439e-01_rb/)
+      kbo(:,27, 8) = (/ &
+     &6.9885e-01_rb,6.9534e-01_rb,6.9172e-01_rb,6.8787e-01_rb,6.8202e-01_rb/)
+      kbo(:,28, 8) = (/ &
+     &5.8056e-01_rb,5.7858e-01_rb,5.7609e-01_rb,5.7252e-01_rb,5.6730e-01_rb/)
+      kbo(:,29, 8) = (/ &
+     &4.7795e-01_rb,4.7646e-01_rb,4.7447e-01_rb,4.7127e-01_rb,4.6716e-01_rb/)
+      kbo(:,30, 8) = (/ &
+     &3.9180e-01_rb,3.9040e-01_rb,3.8874e-01_rb,3.8567e-01_rb,3.8256e-01_rb/)
+      kbo(:,31, 8) = (/ &
+     &3.1850e-01_rb,3.1735e-01_rb,3.1544e-01_rb,3.1324e-01_rb,3.1109e-01_rb/)
+      kbo(:,32, 8) = (/ &
+     &2.5851e-01_rb,2.5736e-01_rb,2.5590e-01_rb,2.5439e-01_rb,2.5264e-01_rb/)
+      kbo(:,33, 8) = (/ &
+     &2.0938e-01_rb,2.0841e-01_rb,2.0741e-01_rb,2.0615e-01_rb,2.0501e-01_rb/)
+      kbo(:,34, 8) = (/ &
+     &1.7037e-01_rb,1.6964e-01_rb,1.6891e-01_rb,1.6812e-01_rb,1.6728e-01_rb/)
+      kbo(:,35, 8) = (/ &
+     &1.3875e-01_rb,1.3827e-01_rb,1.3776e-01_rb,1.3724e-01_rb,1.3661e-01_rb/)
+      kbo(:,36, 8) = (/ &
+     &1.1324e-01_rb,1.1288e-01_rb,1.1260e-01_rb,1.1226e-01_rb,1.1182e-01_rb/)
+      kbo(:,37, 8) = (/ &
+     &9.2766e-02_rb,9.2595e-02_rb,9.2422e-02_rb,9.2186e-02_rb,9.1910e-02_rb/)
+      kbo(:,38, 8) = (/ &
+     &7.5939e-02_rb,7.5826e-02_rb,7.5761e-02_rb,7.5637e-02_rb,7.5518e-02_rb/)
+      kbo(:,39, 8) = (/ &
+     &6.2076e-02_rb,6.2014e-02_rb,6.2019e-02_rb,6.2000e-02_rb,6.1957e-02_rb/)
+      kbo(:,40, 8) = (/ &
+     &5.1067e-02_rb,5.1119e-02_rb,5.1147e-02_rb,5.1217e-02_rb,5.1232e-02_rb/)
+      kbo(:,41, 8) = (/ &
+     &4.2004e-02_rb,4.2110e-02_rb,4.2194e-02_rb,4.2288e-02_rb,4.2348e-02_rb/)
+      kbo(:,42, 8) = (/ &
+     &3.4565e-02_rb,3.4686e-02_rb,3.4772e-02_rb,3.4891e-02_rb,3.5001e-02_rb/)
+      kbo(:,43, 8) = (/ &
+     &2.8439e-02_rb,2.8558e-02_rb,2.8651e-02_rb,2.8781e-02_rb,2.8908e-02_rb/)
+      kbo(:,44, 8) = (/ &
+     &2.3381e-02_rb,2.3495e-02_rb,2.3607e-02_rb,2.3736e-02_rb,2.3863e-02_rb/)
+      kbo(:,45, 8) = (/ &
+     &1.9178e-02_rb,1.9302e-02_rb,1.9411e-02_rb,1.9527e-02_rb,1.9645e-02_rb/)
+      kbo(:,46, 8) = (/ &
+     &1.5718e-02_rb,1.5824e-02_rb,1.5935e-02_rb,1.6052e-02_rb,1.6161e-02_rb/)
+      kbo(:,47, 8) = (/ &
+     &1.2888e-02_rb,1.2994e-02_rb,1.3091e-02_rb,1.3201e-02_rb,1.3310e-02_rb/)
+      kbo(:,48, 8) = (/ &
+     &1.0534e-02_rb,1.0644e-02_rb,1.0741e-02_rb,1.0828e-02_rb,1.0922e-02_rb/)
+      kbo(:,49, 8) = (/ &
+     &8.5773e-03_rb,8.6840e-03_rb,8.7716e-03_rb,8.8561e-03_rb,8.9344e-03_rb/)
+      kbo(:,50, 8) = (/ &
+     &7.0118e-03_rb,7.1121e-03_rb,7.1954e-03_rb,7.2655e-03_rb,7.3372e-03_rb/)
+      kbo(:,51, 8) = (/ &
+     &5.7344e-03_rb,5.8326e-03_rb,5.9098e-03_rb,5.9770e-03_rb,6.0423e-03_rb/)
+      kbo(:,52, 8) = (/ &
+     &4.6784e-03_rb,4.7703e-03_rb,4.8415e-03_rb,4.9016e-03_rb,4.9646e-03_rb/)
+      kbo(:,53, 8) = (/ &
+     &3.8084e-03_rb,3.8892e-03_rb,3.9565e-03_rb,4.0107e-03_rb,4.0624e-03_rb/)
+      kbo(:,54, 8) = (/ &
+     &3.1302e-03_rb,3.1988e-03_rb,3.2604e-03_rb,3.3140e-03_rb,3.3627e-03_rb/)
+      kbo(:,55, 8) = (/ &
+     &2.5815e-03_rb,2.6417e-03_rb,2.7045e-03_rb,2.7548e-03_rb,2.8045e-03_rb/)
+      kbo(:,56, 8) = (/ &
+     &2.1299e-03_rb,2.1858e-03_rb,2.2412e-03_rb,2.2906e-03_rb,2.3394e-03_rb/)
+      kbo(:,57, 8) = (/ &
+     &1.7549e-03_rb,1.8058e-03_rb,1.8577e-03_rb,1.9050e-03_rb,1.9496e-03_rb/)
+      kbo(:,58, 8) = (/ &
+     &1.4508e-03_rb,1.4946e-03_rb,1.5437e-03_rb,1.5867e-03_rb,1.6288e-03_rb/)
+      kbo(:,59, 8) = (/ &
+     &1.2226e-03_rb,1.2669e-03_rb,1.3143e-03_rb,1.3547e-03_rb,1.3969e-03_rb/)
+      kbo(:,13, 9) = (/ &
+     &4.2167e+01_rb,4.2169e+01_rb,4.2037e+01_rb,4.1794e+01_rb,4.1453e+01_rb/)
+      kbo(:,14, 9) = (/ &
+     &3.6302e+01_rb,3.6287e+01_rb,3.6134e+01_rb,3.5895e+01_rb,3.5553e+01_rb/)
+      kbo(:,15, 9) = (/ &
+     &3.1018e+01_rb,3.0974e+01_rb,3.0831e+01_rb,3.0595e+01_rb,3.0284e+01_rb/)
+      kbo(:,16, 9) = (/ &
+     &2.6381e+01_rb,2.6327e+01_rb,2.6171e+01_rb,2.5940e+01_rb,2.5630e+01_rb/)
+      kbo(:,17, 9) = (/ &
+     &2.2159e+01_rb,2.2069e+01_rb,2.1921e+01_rb,2.1709e+01_rb,2.1443e+01_rb/)
+      kbo(:,18, 9) = (/ &
+     &1.8546e+01_rb,1.8422e+01_rb,1.8249e+01_rb,1.8049e+01_rb,1.7832e+01_rb/)
+      kbo(:,19, 9) = (/ &
+     &1.5581e+01_rb,1.5418e+01_rb,1.5257e+01_rb,1.5071e+01_rb,1.4880e+01_rb/)
+      kbo(:,20, 9) = (/ &
+     &1.3153e+01_rb,1.2997e+01_rb,1.2837e+01_rb,1.2663e+01_rb,1.2482e+01_rb/)
+      kbo(:,21, 9) = (/ &
+     &1.1154e+01_rb,1.1003e+01_rb,1.0876e+01_rb,1.0723e+01_rb,1.0559e+01_rb/)
+      kbo(:,22, 9) = (/ &
+     &9.6248e+00_rb,9.4985e+00_rb,9.3603e+00_rb,9.2175e+00_rb,9.0746e+00_rb/)
+      kbo(:,23, 9) = (/ &
+     &8.3452e+00_rb,8.2318e+00_rb,8.1134e+00_rb,7.9935e+00_rb,7.8653e+00_rb/)
+      kbo(:,24, 9) = (/ &
+     &7.2560e+00_rb,7.1534e+00_rb,7.0580e+00_rb,6.9498e+00_rb,6.8440e+00_rb/)
+      kbo(:,25, 9) = (/ &
+     &6.3013e+00_rb,6.2279e+00_rb,6.1411e+00_rb,6.0460e+00_rb,5.9566e+00_rb/)
+      kbo(:,26, 9) = (/ &
+     &5.4473e+00_rb,5.3837e+00_rb,5.3066e+00_rb,5.2353e+00_rb,5.1609e+00_rb/)
+      kbo(:,27, 9) = (/ &
+     &4.6665e+00_rb,4.6055e+00_rb,4.5477e+00_rb,4.4876e+00_rb,4.4277e+00_rb/)
+      kbo(:,28, 9) = (/ &
+     &3.9616e+00_rb,3.9145e+00_rb,3.8668e+00_rb,3.8180e+00_rb,3.7694e+00_rb/)
+      kbo(:,29, 9) = (/ &
+     &3.3226e+00_rb,3.2862e+00_rb,3.2469e+00_rb,3.2091e+00_rb,3.1718e+00_rb/)
+      kbo(:,30, 9) = (/ &
+     &2.7659e+00_rb,2.7390e+00_rb,2.7094e+00_rb,2.6815e+00_rb,2.6543e+00_rb/)
+      kbo(:,31, 9) = (/ &
+     &2.2826e+00_rb,2.2617e+00_rb,2.2409e+00_rb,2.2203e+00_rb,2.1979e+00_rb/)
+      kbo(:,32, 9) = (/ &
+     &1.8802e+00_rb,1.8648e+00_rb,1.8493e+00_rb,1.8340e+00_rb,1.8168e+00_rb/)
+      kbo(:,33, 9) = (/ &
+     &1.5466e+00_rb,1.5353e+00_rb,1.5232e+00_rb,1.5114e+00_rb,1.4999e+00_rb/)
+      kbo(:,34, 9) = (/ &
+     &1.2752e+00_rb,1.2674e+00_rb,1.2588e+00_rb,1.2512e+00_rb,1.2426e+00_rb/)
+      kbo(:,35, 9) = (/ &
+     &1.0520e+00_rb,1.0466e+00_rb,1.0412e+00_rb,1.0356e+00_rb,1.0296e+00_rb/)
+      kbo(:,36, 9) = (/ &
+     &8.6897e-01_rb,8.6546e-01_rb,8.6220e-01_rb,8.5818e-01_rb,8.5421e-01_rb/)
+      kbo(:,37, 9) = (/ &
+     &7.1978e-01_rb,7.1767e-01_rb,7.1572e-01_rb,7.1373e-01_rb,7.1176e-01_rb/)
+      kbo(:,38, 9) = (/ &
+     &5.9482e-01_rb,5.9396e-01_rb,5.9353e-01_rb,5.9295e-01_rb,5.9232e-01_rb/)
+      kbo(:,39, 9) = (/ &
+     &4.9071e-01_rb,4.9116e-01_rb,4.9162e-01_rb,4.9173e-01_rb,4.9201e-01_rb/)
+      kbo(:,40, 9) = (/ &
+     &4.0707e-01_rb,4.0846e-01_rb,4.0948e-01_rb,4.1018e-01_rb,4.1089e-01_rb/)
+      kbo(:,41, 9) = (/ &
+     &3.3813e-01_rb,3.3959e-01_rb,3.4089e-01_rb,3.4218e-01_rb,3.4329e-01_rb/)
+      kbo(:,42, 9) = (/ &
+     &2.8061e-01_rb,2.8231e-01_rb,2.8363e-01_rb,2.8501e-01_rb,2.8630e-01_rb/)
+      kbo(:,43, 9) = (/ &
+     &2.3284e-01_rb,2.3448e-01_rb,2.3606e-01_rb,2.3737e-01_rb,2.3893e-01_rb/)
+      kbo(:,44, 9) = (/ &
+     &1.9306e-01_rb,1.9456e-01_rb,1.9627e-01_rb,1.9759e-01_rb,1.9913e-01_rb/)
+      kbo(:,45, 9) = (/ &
+     &1.5984e-01_rb,1.6139e-01_rb,1.6282e-01_rb,1.6435e-01_rb,1.6569e-01_rb/)
+      kbo(:,46, 9) = (/ &
+     &1.3218e-01_rb,1.3367e-01_rb,1.3504e-01_rb,1.3656e-01_rb,1.3780e-01_rb/)
+      kbo(:,47, 9) = (/ &
+     &1.0925e-01_rb,1.1079e-01_rb,1.1209e-01_rb,1.1337e-01_rb,1.1463e-01_rb/)
+      kbo(:,48, 9) = (/ &
+     &9.0249e-02_rb,9.1522e-02_rb,9.2774e-02_rb,9.3960e-02_rb,9.5177e-02_rb/)
+      kbo(:,49, 9) = (/ &
+     &7.4377e-02_rb,7.5400e-02_rb,7.6569e-02_rb,7.7633e-02_rb,7.8742e-02_rb/)
+      kbo(:,50, 9) = (/ &
+     &6.1418e-02_rb,6.2415e-02_rb,6.3422e-02_rb,6.4413e-02_rb,6.5389e-02_rb/)
+      kbo(:,51, 9) = (/ &
+     &5.0729e-02_rb,5.1644e-02_rb,5.2564e-02_rb,5.3444e-02_rb,5.4353e-02_rb/)
+      kbo(:,52, 9) = (/ &
+     &4.1908e-02_rb,4.2660e-02_rb,4.3502e-02_rb,4.4323e-02_rb,4.5095e-02_rb/)
+      kbo(:,53, 9) = (/ &
+     &3.4462e-02_rb,3.5223e-02_rb,3.5939e-02_rb,3.6640e-02_rb,3.7360e-02_rb/)
+      kbo(:,54, 9) = (/ &
+     &2.8588e-02_rb,2.9269e-02_rb,2.9929e-02_rb,3.0560e-02_rb,3.1160e-02_rb/)
+      kbo(:,55, 9) = (/ &
+     &2.3807e-02_rb,2.4406e-02_rb,2.4997e-02_rb,2.5573e-02_rb,2.6196e-02_rb/)
+      kbo(:,56, 9) = (/ &
+     &1.9841e-02_rb,2.0395e-02_rb,2.0945e-02_rb,2.1491e-02_rb,2.2006e-02_rb/)
+      kbo(:,57, 9) = (/ &
+     &1.6519e-02_rb,1.7032e-02_rb,1.7546e-02_rb,1.8054e-02_rb,1.8550e-02_rb/)
+      kbo(:,58, 9) = (/ &
+     &1.3793e-02_rb,1.4292e-02_rb,1.4753e-02_rb,1.5213e-02_rb,1.5695e-02_rb/)
+      kbo(:,59, 9) = (/ &
+     &1.1809e-02_rb,1.2269e-02_rb,1.2713e-02_rb,1.3163e-02_rb,1.3635e-02_rb/)
+      kbo(:,13,10) = (/ &
+     &1.7142e+02_rb,1.7281e+02_rb,1.7236e+02_rb,1.7114e+02_rb,1.6934e+02_rb/)
+      kbo(:,14,10) = (/ &
+     &1.5574e+02_rb,1.5556e+02_rb,1.5469e+02_rb,1.5334e+02_rb,1.5193e+02_rb/)
+      kbo(:,15,10) = (/ &
+     &1.3728e+02_rb,1.3704e+02_rb,1.3637e+02_rb,1.3560e+02_rb,1.3459e+02_rb/)
+      kbo(:,16,10) = (/ &
+     &1.1953e+02_rb,1.1932e+02_rb,1.1895e+02_rb,1.1818e+02_rb,1.1715e+02_rb/)
+      kbo(:,17,10) = (/ &
+     &1.0359e+02_rb,1.0375e+02_rb,1.0320e+02_rb,1.0240e+02_rb,1.0131e+02_rb/)
+      kbo(:,18,10) = (/ &
+     &8.8878e+01_rb,8.9020e+01_rb,8.8706e+01_rb,8.7973e+01_rb,8.6746e+01_rb/)
+      kbo(:,19,10) = (/ &
+     &7.4020e+01_rb,7.4305e+01_rb,7.4019e+01_rb,7.3466e+01_rb,7.2562e+01_rb/)
+      kbo(:,20,10) = (/ &
+     &6.0721e+01_rb,6.1015e+01_rb,6.0921e+01_rb,6.0532e+01_rb,5.9983e+01_rb/)
+      kbo(:,21,10) = (/ &
+     &5.0465e+01_rb,5.0665e+01_rb,5.0241e+01_rb,4.9849e+01_rb,4.9385e+01_rb/)
+      kbo(:,22,10) = (/ &
+     &4.0819e+01_rb,4.0731e+01_rb,4.0529e+01_rb,4.0271e+01_rb,3.9749e+01_rb/)
+      kbo(:,23,10) = (/ &
+     &3.4205e+01_rb,3.4202e+01_rb,3.4020e+01_rb,3.3582e+01_rb,3.3186e+01_rb/)
+      kbo(:,24,10) = (/ &
+     &2.9307e+01_rb,2.9168e+01_rb,2.8849e+01_rb,2.8552e+01_rb,2.8160e+01_rb/)
+      kbo(:,25,10) = (/ &
+     &2.5427e+01_rb,2.5125e+01_rb,2.4814e+01_rb,2.4511e+01_rb,2.4195e+01_rb/)
+      kbo(:,26,10) = (/ &
+     &2.2227e+01_rb,2.1953e+01_rb,2.1723e+01_rb,2.1344e+01_rb,2.1061e+01_rb/)
+      kbo(:,27,10) = (/ &
+     &1.9562e+01_rb,1.9387e+01_rb,1.9087e+01_rb,1.8779e+01_rb,1.8567e+01_rb/)
+      kbo(:,28,10) = (/ &
+     &1.7147e+01_rb,1.6935e+01_rb,1.6668e+01_rb,1.6479e+01_rb,1.6263e+01_rb/)
+      kbo(:,29,10) = (/ &
+     &1.4781e+01_rb,1.4573e+01_rb,1.4404e+01_rb,1.4242e+01_rb,1.4093e+01_rb/)
+      kbo(:,30,10) = (/ &
+     &1.2615e+01_rb,1.2471e+01_rb,1.2325e+01_rb,1.2193e+01_rb,1.2047e+01_rb/)
+      kbo(:,31,10) = (/ &
+     &1.0637e+01_rb,1.0540e+01_rb,1.0405e+01_rb,1.0303e+01_rb,1.0219e+01_rb/)
+      kbo(:,32,10) = (/ &
+     &8.9113e+00_rb,8.8364e+00_rb,8.7502e+00_rb,8.6801e+00_rb,8.6141e+00_rb/)
+      kbo(:,33,10) = (/ &
+     &7.4220e+00_rb,7.3714e+00_rb,7.3296e+00_rb,7.2916e+00_rb,7.2335e+00_rb/)
+      kbo(:,34,10) = (/ &
+     &6.2166e+00_rb,6.1844e+00_rb,6.1565e+00_rb,6.1097e+00_rb,6.0839e+00_rb/)
+      kbo(:,35,10) = (/ &
+     &5.1978e+00_rb,5.1804e+00_rb,5.1597e+00_rb,5.1357e+00_rb,5.1182e+00_rb/)
+      kbo(:,36,10) = (/ &
+     &4.3470e+00_rb,4.3385e+00_rb,4.3233e+00_rb,4.3177e+00_rb,4.3104e+00_rb/)
+      kbo(:,37,10) = (/ &
+     &3.6398e+00_rb,3.6424e+00_rb,3.6345e+00_rb,3.6386e+00_rb,3.6334e+00_rb/)
+      kbo(:,38,10) = (/ &
+     &3.0434e+00_rb,3.0512e+00_rb,3.0559e+00_rb,3.0639e+00_rb,3.0639e+00_rb/)
+      kbo(:,39,10) = (/ &
+     &2.5458e+00_rb,2.5538e+00_rb,2.5569e+00_rb,2.5728e+00_rb,2.5769e+00_rb/)
+      kbo(:,40,10) = (/ &
+     &2.1317e+00_rb,2.1438e+00_rb,2.1539e+00_rb,2.1706e+00_rb,2.1835e+00_rb/)
+      kbo(:,41,10) = (/ &
+     &1.7848e+00_rb,1.8052e+00_rb,1.8158e+00_rb,1.8336e+00_rb,1.8470e+00_rb/)
+      kbo(:,42,10) = (/ &
+     &1.4932e+00_rb,1.5091e+00_rb,1.5289e+00_rb,1.5466e+00_rb,1.5621e+00_rb/)
+      kbo(:,43,10) = (/ &
+     &1.2466e+00_rb,1.2672e+00_rb,1.2843e+00_rb,1.3063e+00_rb,1.3216e+00_rb/)
+      kbo(:,44,10) = (/ &
+     &1.0395e+00_rb,1.0592e+00_rb,1.0758e+00_rb,1.0990e+00_rb,1.1149e+00_rb/)
+      kbo(:,45,10) = (/ &
+     &8.6570e-01_rb,8.8331e-01_rb,9.0051e-01_rb,9.1956e-01_rb,9.3855e-01_rb/)
+      kbo(:,46,10) = (/ &
+     &7.2006e-01_rb,7.3467e-01_rb,7.5104e-01_rb,7.6845e-01_rb,7.8787e-01_rb/)
+      kbo(:,47,10) = (/ &
+     &5.9818e-01_rb,6.0970e-01_rb,6.2444e-01_rb,6.4248e-01_rb,6.5898e-01_rb/)
+      kbo(:,48,10) = (/ &
+     &4.9441e-01_rb,5.0661e-01_rb,5.1925e-01_rb,5.3379e-01_rb,5.5029e-01_rb/)
+      kbo(:,49,10) = (/ &
+     &4.0883e-01_rb,4.1946e-01_rb,4.3019e-01_rb,4.4310e-01_rb,4.5870e-01_rb/)
+      kbo(:,50,10) = (/ &
+     &3.3724e-01_rb,3.4698e-01_rb,3.5791e-01_rb,3.6811e-01_rb,3.8262e-01_rb/)
+      kbo(:,51,10) = (/ &
+     &2.7937e-01_rb,2.8820e-01_rb,2.9748e-01_rb,3.0671e-01_rb,3.1956e-01_rb/)
+      kbo(:,52,10) = (/ &
+     &2.3100e-01_rb,2.3806e-01_rb,2.4610e-01_rb,2.5504e-01_rb,2.6621e-01_rb/)
+      kbo(:,53,10) = (/ &
+     &1.9108e-01_rb,1.9654e-01_rb,2.0325e-01_rb,2.1194e-01_rb,2.2154e-01_rb/)
+      kbo(:,54,10) = (/ &
+     &1.5899e-01_rb,1.6347e-01_rb,1.6947e-01_rb,1.7655e-01_rb,1.8610e-01_rb/)
+      kbo(:,55,10) = (/ &
+     &1.3326e-01_rb,1.3696e-01_rb,1.4221e-01_rb,1.4834e-01_rb,1.5647e-01_rb/)
+      kbo(:,56,10) = (/ &
+     &1.1049e-01_rb,1.1469e-01_rb,1.1935e-01_rb,1.2428e-01_rb,1.3176e-01_rb/)
+      kbo(:,57,10) = (/ &
+     &9.2761e-02_rb,9.6003e-02_rb,9.9705e-02_rb,1.0515e-01_rb,1.1098e-01_rb/)
+      kbo(:,58,10) = (/ &
+     &7.7951e-02_rb,8.0603e-02_rb,8.4255e-02_rb,8.8708e-02_rb,9.3824e-02_rb/)
+      kbo(:,59,10) = (/ &
+     &6.6831e-02_rb,6.9853e-02_rb,7.3196e-02_rb,7.7714e-02_rb,8.2447e-02_rb/)
+      kbo(:,13,11) = (/ &
+     &2.9044e+02_rb,2.9107e+02_rb,2.9274e+02_rb,2.9324e+02_rb,2.9124e+02_rb/)
+      kbo(:,14,11) = (/ &
+     &2.7118e+02_rb,2.7257e+02_rb,2.7251e+02_rb,2.7007e+02_rb,2.6710e+02_rb/)
+      kbo(:,15,11) = (/ &
+     &2.5062e+02_rb,2.5131e+02_rb,2.4974e+02_rb,2.4698e+02_rb,2.4378e+02_rb/)
+      kbo(:,16,11) = (/ &
+     &2.2673e+02_rb,2.2541e+02_rb,2.2341e+02_rb,2.2106e+02_rb,2.1873e+02_rb/)
+      kbo(:,17,11) = (/ &
+     &1.9976e+02_rb,1.9861e+02_rb,1.9716e+02_rb,1.9539e+02_rb,1.9362e+02_rb/)
+      kbo(:,18,11) = (/ &
+     &1.7313e+02_rb,1.7242e+02_rb,1.7179e+02_rb,1.7065e+02_rb,1.6917e+02_rb/)
+      kbo(:,19,11) = (/ &
+     &1.5014e+02_rb,1.4982e+02_rb,1.4894e+02_rb,1.4750e+02_rb,1.4584e+02_rb/)
+      kbo(:,20,11) = (/ &
+     &1.2916e+02_rb,1.2859e+02_rb,1.2771e+02_rb,1.2637e+02_rb,1.2459e+02_rb/)
+      kbo(:,21,11) = (/ &
+     &1.0806e+02_rb,1.0775e+02_rb,1.0718e+02_rb,1.0610e+02_rb,1.0475e+02_rb/)
+      kbo(:,22,11) = (/ &
+     &8.9165e+01_rb,8.9073e+01_rb,8.8652e+01_rb,8.7815e+01_rb,8.6979e+01_rb/)
+      kbo(:,23,11) = (/ &
+     &7.2556e+01_rb,7.2172e+01_rb,7.1575e+01_rb,7.1058e+01_rb,7.0305e+01_rb/)
+      kbo(:,24,11) = (/ &
+     &5.8830e+01_rb,5.8306e+01_rb,5.7758e+01_rb,5.7080e+01_rb,5.6291e+01_rb/)
+      kbo(:,25,11) = (/ &
+     &4.9821e+01_rb,4.9499e+01_rb,4.8965e+01_rb,4.8414e+01_rb,4.7810e+01_rb/)
+      kbo(:,26,11) = (/ &
+     &4.2622e+01_rb,4.2267e+01_rb,4.1876e+01_rb,4.1470e+01_rb,4.0806e+01_rb/)
+      kbo(:,27,11) = (/ &
+     &3.6706e+01_rb,3.6324e+01_rb,3.5968e+01_rb,3.5540e+01_rb,3.5058e+01_rb/)
+      kbo(:,28,11) = (/ &
+     &3.1978e+01_rb,3.1566e+01_rb,3.1237e+01_rb,3.0772e+01_rb,3.0454e+01_rb/)
+      kbo(:,29,11) = (/ &
+     &2.7828e+01_rb,2.7575e+01_rb,2.7171e+01_rb,2.6860e+01_rb,2.6508e+01_rb/)
+      kbo(:,30,11) = (/ &
+     &2.4147e+01_rb,2.3835e+01_rb,2.3571e+01_rb,2.3332e+01_rb,2.3114e+01_rb/)
+      kbo(:,31,11) = (/ &
+     &2.0703e+01_rb,2.0408e+01_rb,2.0254e+01_rb,2.0067e+01_rb,1.9883e+01_rb/)
+      kbo(:,32,11) = (/ &
+     &1.7639e+01_rb,1.7476e+01_rb,1.7324e+01_rb,1.7159e+01_rb,1.7076e+01_rb/)
+      kbo(:,33,11) = (/ &
+     &1.4975e+01_rb,1.4865e+01_rb,1.4744e+01_rb,1.4668e+01_rb,1.4624e+01_rb/)
+      kbo(:,34,11) = (/ &
+     &1.2711e+01_rb,1.2631e+01_rb,1.2589e+01_rb,1.2550e+01_rb,1.2508e+01_rb/)
+      kbo(:,35,11) = (/ &
+     &1.0751e+01_rb,1.0723e+01_rb,1.0704e+01_rb,1.0702e+01_rb,1.0681e+01_rb/)
+      kbo(:,36,11) = (/ &
+     &9.0814e+00_rb,9.0752e+00_rb,9.0908e+00_rb,9.1081e+00_rb,9.1217e+00_rb/)
+      kbo(:,37,11) = (/ &
+     &7.6820e+00_rb,7.7040e+00_rb,7.7379e+00_rb,7.7515e+00_rb,7.7864e+00_rb/)
+      kbo(:,38,11) = (/ &
+     &6.4923e+00_rb,6.5176e+00_rb,6.5490e+00_rb,6.5779e+00_rb,6.6281e+00_rb/)
+      kbo(:,39,11) = (/ &
+     &5.4567e+00_rb,5.4975e+00_rb,5.5468e+00_rb,5.5843e+00_rb,5.6396e+00_rb/)
+      kbo(:,40,11) = (/ &
+     &4.6201e+00_rb,4.6597e+00_rb,4.7074e+00_rb,4.7531e+00_rb,4.8054e+00_rb/)
+      kbo(:,41,11) = (/ &
+     &3.8974e+00_rb,3.9399e+00_rb,3.9967e+00_rb,4.0418e+00_rb,4.1011e+00_rb/)
+      kbo(:,42,11) = (/ &
+     &3.2907e+00_rb,3.3361e+00_rb,3.3839e+00_rb,3.4382e+00_rb,3.4997e+00_rb/)
+      kbo(:,43,11) = (/ &
+     &2.7732e+00_rb,2.8146e+00_rb,2.8677e+00_rb,2.9201e+00_rb,2.9866e+00_rb/)
+      kbo(:,44,11) = (/ &
+     &2.3284e+00_rb,2.3728e+00_rb,2.4251e+00_rb,2.4785e+00_rb,2.5440e+00_rb/)
+      kbo(:,45,11) = (/ &
+     &1.9528e+00_rb,1.9951e+00_rb,2.0498e+00_rb,2.1003e+00_rb,2.1644e+00_rb/)
+      kbo(:,46,11) = (/ &
+     &1.6318e+00_rb,1.6755e+00_rb,1.7227e+00_rb,1.7737e+00_rb,1.8354e+00_rb/)
+      kbo(:,47,11) = (/ &
+     &1.3599e+00_rb,1.4032e+00_rb,1.4486e+00_rb,1.4978e+00_rb,1.5556e+00_rb/)
+      kbo(:,48,11) = (/ &
+     &1.1311e+00_rb,1.1685e+00_rb,1.2136e+00_rb,1.2615e+00_rb,1.3144e+00_rb/)
+      kbo(:,49,11) = (/ &
+     &9.3555e-01_rb,9.7341e-01_rb,1.0126e+00_rb,1.0587e+00_rb,1.1063e+00_rb/)
+      kbo(:,50,11) = (/ &
+     &7.7693e-01_rb,8.0966e-01_rb,8.4684e-01_rb,8.9020e-01_rb,9.3317e-01_rb/)
+      kbo(:,51,11) = (/ &
+     &6.4536e-01_rb,6.7488e-01_rb,7.0604e-01_rb,7.4875e-01_rb,7.8723e-01_rb/)
+      kbo(:,52,11) = (/ &
+     &5.3457e-01_rb,5.5971e-01_rb,5.9092e-01_rb,6.2609e-01_rb,6.6312e-01_rb/)
+      kbo(:,53,11) = (/ &
+     &4.4222e-01_rb,4.6435e-01_rb,4.9056e-01_rb,5.2208e-01_rb,5.5614e-01_rb/)
+      kbo(:,54,11) = (/ &
+     &3.6743e-01_rb,3.8638e-01_rb,4.1127e-01_rb,4.3844e-01_rb,4.6892e-01_rb/)
+      kbo(:,55,11) = (/ &
+     &3.0658e-01_rb,3.2360e-01_rb,3.4391e-01_rb,3.6924e-01_rb,3.9670e-01_rb/)
+      kbo(:,56,11) = (/ &
+     &2.5551e-01_rb,2.6954e-01_rb,2.8819e-01_rb,3.1080e-01_rb,3.3508e-01_rb/)
+      kbo(:,57,11) = (/ &
+     &2.1322e-01_rb,2.2632e-01_rb,2.4139e-01_rb,2.5957e-01_rb,2.8310e-01_rb/)
+      kbo(:,58,11) = (/ &
+     &1.7898e-01_rb,1.8948e-01_rb,2.0228e-01_rb,2.1870e-01_rb,2.4000e-01_rb/)
+      kbo(:,59,11) = (/ &
+     &1.5351e-01_rb,1.6320e-01_rb,1.7439e-01_rb,1.8953e-01_rb,2.0982e-01_rb/)
+      kbo(:,13,12) = (/ &
+     &5.5035e+02_rb,5.5083e+02_rb,5.4893e+02_rb,5.4549e+02_rb,5.4357e+02_rb/)
+      kbo(:,14,12) = (/ &
+     &5.1666e+02_rb,5.1747e+02_rb,5.1731e+02_rb,5.1865e+02_rb,5.1926e+02_rb/)
+      kbo(:,15,12) = (/ &
+     &4.8259e+02_rb,4.8322e+02_rb,4.8500e+02_rb,4.8625e+02_rb,4.8440e+02_rb/)
+      kbo(:,16,12) = (/ &
+     &4.4814e+02_rb,4.5080e+02_rb,4.5253e+02_rb,4.5080e+02_rb,4.4664e+02_rb/)
+      kbo(:,17,12) = (/ &
+     &4.1611e+02_rb,4.1780e+02_rb,4.1594e+02_rb,4.1174e+02_rb,4.0672e+02_rb/)
+      kbo(:,18,12) = (/ &
+     &3.8097e+02_rb,3.8017e+02_rb,3.7694e+02_rb,3.7269e+02_rb,3.6847e+02_rb/)
+      kbo(:,19,12) = (/ &
+     &3.3900e+02_rb,3.3735e+02_rb,3.3499e+02_rb,3.3205e+02_rb,3.2864e+02_rb/)
+      kbo(:,20,12) = (/ &
+     &2.9644e+02_rb,2.9567e+02_rb,2.9387e+02_rb,2.9171e+02_rb,2.8914e+02_rb/)
+      kbo(:,21,12) = (/ &
+     &2.5711e+02_rb,2.5659e+02_rb,2.5545e+02_rb,2.5349e+02_rb,2.5090e+02_rb/)
+      kbo(:,22,12) = (/ &
+     &2.2227e+02_rb,2.2144e+02_rb,2.1973e+02_rb,2.1742e+02_rb,2.1472e+02_rb/)
+      kbo(:,23,12) = (/ &
+     &1.8874e+02_rb,1.8786e+02_rb,1.8655e+02_rb,1.8434e+02_rb,1.8190e+02_rb/)
+      kbo(:,24,12) = (/ &
+     &1.5708e+02_rb,1.5682e+02_rb,1.5564e+02_rb,1.5414e+02_rb,1.5250e+02_rb/)
+      kbo(:,25,12) = (/ &
+     &1.2691e+02_rb,1.2649e+02_rb,1.2582e+02_rb,1.2476e+02_rb,1.2335e+02_rb/)
+      kbo(:,26,12) = (/ &
+     &1.0261e+02_rb,1.0208e+02_rb,1.0124e+02_rb,1.0027e+02_rb,9.9263e+01_rb/)
+      kbo(:,27,12) = (/ &
+     &8.5769e+01_rb,8.4989e+01_rb,8.4207e+01_rb,8.3351e+01_rb,8.2249e+01_rb/)
+      kbo(:,28,12) = (/ &
+     &7.3314e+01_rb,7.2801e+01_rb,7.2005e+01_rb,7.1293e+01_rb,7.0277e+01_rb/)
+      kbo(:,29,12) = (/ &
+     &6.2526e+01_rb,6.2052e+01_rb,6.1497e+01_rb,6.0774e+01_rb,6.0060e+01_rb/)
+      kbo(:,30,12) = (/ &
+     &5.3636e+01_rb,5.3199e+01_rb,5.2692e+01_rb,5.1970e+01_rb,5.1392e+01_rb/)
+      kbo(:,31,12) = (/ &
+     &4.6032e+01_rb,4.5690e+01_rb,4.5122e+01_rb,4.4615e+01_rb,4.4345e+01_rb/)
+      kbo(:,32,12) = (/ &
+     &3.9736e+01_rb,3.9262e+01_rb,3.8850e+01_rb,3.8552e+01_rb,3.8247e+01_rb/)
+      kbo(:,33,12) = (/ &
+     &3.4154e+01_rb,3.3807e+01_rb,3.3534e+01_rb,3.3264e+01_rb,3.3008e+01_rb/)
+      kbo(:,34,12) = (/ &
+     &2.9451e+01_rb,2.9219e+01_rb,2.9024e+01_rb,2.8833e+01_rb,2.8685e+01_rb/)
+      kbo(:,35,12) = (/ &
+     &2.5346e+01_rb,2.5246e+01_rb,2.5119e+01_rb,2.4977e+01_rb,2.4976e+01_rb/)
+      kbo(:,36,12) = (/ &
+     &2.1817e+01_rb,2.1779e+01_rb,2.1703e+01_rb,2.1681e+01_rb,2.1750e+01_rb/)
+      kbo(:,37,12) = (/ &
+     &1.8813e+01_rb,1.8767e+01_rb,1.8799e+01_rb,1.8847e+01_rb,1.8941e+01_rb/)
+      kbo(:,38,12) = (/ &
+     &1.6125e+01_rb,1.6141e+01_rb,1.6208e+01_rb,1.6337e+01_rb,1.6455e+01_rb/)
+      kbo(:,39,12) = (/ &
+     &1.3770e+01_rb,1.3861e+01_rb,1.3953e+01_rb,1.4099e+01_rb,1.4238e+01_rb/)
+      kbo(:,40,12) = (/ &
+     &1.1787e+01_rb,1.1887e+01_rb,1.2028e+01_rb,1.2178e+01_rb,1.2352e+01_rb/)
+      kbo(:,41,12) = (/ &
+     &1.0073e+01_rb,1.0213e+01_rb,1.0351e+01_rb,1.0547e+01_rb,1.0724e+01_rb/)
+      kbo(:,42,12) = (/ &
+     &8.5925e+00_rb,8.7331e+00_rb,8.9300e+00_rb,9.0948e+00_rb,9.2833e+00_rb/)
+      kbo(:,43,12) = (/ &
+     &7.3118e+00_rb,7.4895e+00_rb,7.6577e+00_rb,7.8465e+00_rb,8.0457e+00_rb/)
+      kbo(:,44,12) = (/ &
+     &6.2222e+00_rb,6.3886e+00_rb,6.5774e+00_rb,6.7646e+00_rb,6.9710e+00_rb/)
+      kbo(:,45,12) = (/ &
+     &5.2923e+00_rb,5.4528e+00_rb,5.6365e+00_rb,5.8147e+00_rb,6.0122e+00_rb/)
+      kbo(:,46,12) = (/ &
+     &4.4844e+00_rb,4.6394e+00_rb,4.8198e+00_rb,4.9986e+00_rb,5.1861e+00_rb/)
+      kbo(:,47,12) = (/ &
+     &3.7915e+00_rb,3.9458e+00_rb,4.1119e+00_rb,4.2905e+00_rb,4.4702e+00_rb/)
+      kbo(:,48,12) = (/ &
+     &3.2031e+00_rb,3.3449e+00_rb,3.4984e+00_rb,3.6554e+00_rb,3.8276e+00_rb/)
+      kbo(:,49,12) = (/ &
+     &2.6829e+00_rb,2.8156e+00_rb,2.9666e+00_rb,3.1113e+00_rb,3.2647e+00_rb/)
+      kbo(:,50,12) = (/ &
+     &2.2570e+00_rb,2.3778e+00_rb,2.5052e+00_rb,2.6542e+00_rb,2.7988e+00_rb/)
+      kbo(:,51,12) = (/ &
+     &1.8957e+00_rb,2.0048e+00_rb,2.1275e+00_rb,2.2538e+00_rb,2.3944e+00_rb/)
+      kbo(:,52,12) = (/ &
+     &1.5859e+00_rb,1.6936e+00_rb,1.7982e+00_rb,1.9164e+00_rb,2.0433e+00_rb/)
+      kbo(:,53,12) = (/ &
+     &1.3268e+00_rb,1.4138e+00_rb,1.5132e+00_rb,1.6183e+00_rb,1.7346e+00_rb/)
+      kbo(:,54,12) = (/ &
+     &1.1132e+00_rb,1.1981e+00_rb,1.2847e+00_rb,1.3880e+00_rb,1.4926e+00_rb/)
+      kbo(:,55,12) = (/ &
+     &9.3399e-01_rb,1.0137e+00_rb,1.0949e+00_rb,1.1891e+00_rb,1.2944e+00_rb/)
+      kbo(:,56,12) = (/ &
+     &7.8822e-01_rb,8.5806e-01_rb,9.3275e-01_rb,1.0165e+00_rb,1.1194e+00_rb/)
+      kbo(:,57,12) = (/ &
+     &6.5846e-01_rb,7.2237e-01_rb,7.9487e-01_rb,8.7625e-01_rb,9.6708e-01_rb/)
+      kbo(:,58,12) = (/ &
+     &5.5082e-01_rb,6.0932e-01_rb,6.7677e-01_rb,7.5228e-01_rb,8.3907e-01_rb/)
+      kbo(:,59,12) = (/ &
+     &4.7097e-01_rb,5.2693e-01_rb,5.8955e-01_rb,6.6574e-01_rb,7.5245e-01_rb/)
+      kbo(:,13,13) = (/ &
+     &1.1006e+03_rb,1.0930e+03_rb,1.0868e+03_rb,1.0845e+03_rb,1.0783e+03_rb/)
+      kbo(:,14,13) = (/ &
+     &1.0959e+03_rb,1.0919e+03_rb,1.0910e+03_rb,1.0859e+03_rb,1.0743e+03_rb/)
+      kbo(:,15,13) = (/ &
+     &1.0739e+03_rb,1.0736e+03_rb,1.0715e+03_rb,1.0637e+03_rb,1.0554e+03_rb/)
+      kbo(:,16,13) = (/ &
+     &1.0348e+03_rb,1.0368e+03_rb,1.0336e+03_rb,1.0297e+03_rb,1.0251e+03_rb/)
+      kbo(:,17,13) = (/ &
+     &9.8104e+02_rb,9.8318e+02_rb,9.8416e+02_rb,9.8388e+02_rb,9.8177e+02_rb/)
+      kbo(:,18,13) = (/ &
+     &9.1939e+02_rb,9.2259e+02_rb,9.2492e+02_rb,9.2597e+02_rb,9.2235e+02_rb/)
+      kbo(:,19,13) = (/ &
+     &8.5744e+02_rb,8.6138e+02_rb,8.6320e+02_rb,8.6092e+02_rb,8.5380e+02_rb/)
+      kbo(:,20,13) = (/ &
+     &7.9222e+02_rb,7.9480e+02_rb,7.9309e+02_rb,7.8688e+02_rb,7.7879e+02_rb/)
+      kbo(:,21,13) = (/ &
+     &7.2352e+02_rb,7.2196e+02_rb,7.1706e+02_rb,7.1061e+02_rb,7.0329e+02_rb/)
+      kbo(:,22,13) = (/ &
+     &6.4947e+02_rb,6.4590e+02_rb,6.4130e+02_rb,6.3579e+02_rb,6.2875e+02_rb/)
+      kbo(:,23,13) = (/ &
+     &5.7230e+02_rb,5.6958e+02_rb,5.6554e+02_rb,5.6079e+02_rb,5.5572e+02_rb/)
+      kbo(:,24,13) = (/ &
+     &4.9907e+02_rb,4.9687e+02_rb,4.9379e+02_rb,4.8982e+02_rb,4.8472e+02_rb/)
+      kbo(:,25,13) = (/ &
+     &4.3090e+02_rb,4.2914e+02_rb,4.2610e+02_rb,4.2208e+02_rb,4.1721e+02_rb/)
+      kbo(:,26,13) = (/ &
+     &3.6834e+02_rb,3.6617e+02_rb,3.6313e+02_rb,3.5932e+02_rb,3.5509e+02_rb/)
+      kbo(:,27,13) = (/ &
+     &3.0815e+02_rb,3.0692e+02_rb,3.0435e+02_rb,3.0103e+02_rb,2.9773e+02_rb/)
+      kbo(:,28,13) = (/ &
+     &2.5402e+02_rb,2.5274e+02_rb,2.5083e+02_rb,2.4862e+02_rb,2.4624e+02_rb/)
+      kbo(:,29,13) = (/ &
+     &2.0985e+02_rb,2.0878e+02_rb,2.0729e+02_rb,2.0573e+02_rb,2.0375e+02_rb/)
+      kbo(:,30,13) = (/ &
+     &1.7400e+02_rb,1.7284e+02_rb,1.7160e+02_rb,1.7041e+02_rb,1.6891e+02_rb/)
+      kbo(:,31,13) = (/ &
+     &1.4590e+02_rb,1.4515e+02_rb,1.4409e+02_rb,1.4281e+02_rb,1.4174e+02_rb/)
+      kbo(:,32,13) = (/ &
+     &1.2352e+02_rb,1.2281e+02_rb,1.2185e+02_rb,1.2095e+02_rb,1.2000e+02_rb/)
+      kbo(:,33,13) = (/ &
+     &1.0504e+02_rb,1.0445e+02_rb,1.0374e+02_rb,1.0318e+02_rb,1.0254e+02_rb/)
+      kbo(:,34,13) = (/ &
+     &8.9914e+01_rb,8.9264e+01_rb,8.8774e+01_rb,8.8232e+01_rb,8.7968e+01_rb/)
+      kbo(:,35,13) = (/ &
+     &7.7137e+01_rb,7.6673e+01_rb,7.6351e+01_rb,7.5989e+01_rb,7.5812e+01_rb/)
+      kbo(:,36,13) = (/ &
+     &6.6630e+01_rb,6.6370e+01_rb,6.6000e+01_rb,6.5870e+01_rb,6.5834e+01_rb/)
+      kbo(:,37,13) = (/ &
+     &5.7835e+01_rb,5.7711e+01_rb,5.7500e+01_rb,5.7478e+01_rb,5.7625e+01_rb/)
+      kbo(:,38,13) = (/ &
+     &5.0326e+01_rb,5.0239e+01_rb,5.0196e+01_rb,5.0287e+01_rb,5.0433e+01_rb/)
+      kbo(:,39,13) = (/ &
+     &4.3783e+01_rb,4.3749e+01_rb,4.3859e+01_rb,4.3984e+01_rb,4.4262e+01_rb/)
+      kbo(:,40,13) = (/ &
+     &3.8311e+01_rb,3.8366e+01_rb,3.8494e+01_rb,3.8770e+01_rb,3.9082e+01_rb/)
+      kbo(:,41,13) = (/ &
+     &3.3505e+01_rb,3.3696e+01_rb,3.3809e+01_rb,3.4139e+01_rb,3.4534e+01_rb/)
+      kbo(:,42,13) = (/ &
+     &2.9251e+01_rb,2.9507e+01_rb,2.9744e+01_rb,3.0106e+01_rb,3.0543e+01_rb/)
+      kbo(:,43,13) = (/ &
+     &2.5517e+01_rb,2.5852e+01_rb,2.6152e+01_rb,2.6566e+01_rb,2.7067e+01_rb/)
+      kbo(:,44,13) = (/ &
+     &2.2216e+01_rb,2.2648e+01_rb,2.3006e+01_rb,2.3424e+01_rb,2.3903e+01_rb/)
+      kbo(:,45,13) = (/ &
+     &1.9313e+01_rb,1.9753e+01_rb,2.0163e+01_rb,2.0601e+01_rb,2.1122e+01_rb/)
+      kbo(:,46,13) = (/ &
+     &1.6765e+01_rb,1.7207e+01_rb,1.7660e+01_rb,1.8173e+01_rb,1.8710e+01_rb/)
+      kbo(:,47,13) = (/ &
+     &1.4512e+01_rb,1.4984e+01_rb,1.5402e+01_rb,1.5957e+01_rb,1.6479e+01_rb/)
+      kbo(:,48,13) = (/ &
+     &1.2486e+01_rb,1.2967e+01_rb,1.3459e+01_rb,1.3983e+01_rb,1.4524e+01_rb/)
+      kbo(:,49,13) = (/ &
+     &1.0733e+01_rb,1.1206e+01_rb,1.1665e+01_rb,1.2207e+01_rb,1.2773e+01_rb/)
+      kbo(:,50,13) = (/ &
+     &9.2157e+00_rb,9.6749e+00_rb,1.0151e+01_rb,1.0704e+01_rb,1.1247e+01_rb/)
+      kbo(:,51,13) = (/ &
+     &7.9591e+00_rb,8.3907e+00_rb,8.8535e+00_rb,9.3811e+00_rb,9.9247e+00_rb/)
+      kbo(:,52,13) = (/ &
+     &6.8068e+00_rb,7.2371e+00_rb,7.6934e+00_rb,8.2063e+00_rb,8.7553e+00_rb/)
+      kbo(:,53,13) = (/ &
+     &5.7967e+00_rb,6.2085e+00_rb,6.6421e+00_rb,7.1263e+00_rb,7.6815e+00_rb/)
+      kbo(:,54,13) = (/ &
+     &4.9653e+00_rb,5.3639e+00_rb,5.8069e+00_rb,6.2889e+00_rb,6.8002e+00_rb/)
+      kbo(:,55,13) = (/ &
+     &4.2889e+00_rb,4.6915e+00_rb,5.1242e+00_rb,5.6024e+00_rb,6.0981e+00_rb/)
+      kbo(:,56,13) = (/ &
+     &3.6900e+00_rb,4.0833e+00_rb,4.5086e+00_rb,4.9809e+00_rb,5.4831e+00_rb/)
+      kbo(:,57,13) = (/ &
+     &3.1898e+00_rb,3.5703e+00_rb,3.9801e+00_rb,4.4470e+00_rb,4.9431e+00_rb/)
+      kbo(:,58,13) = (/ &
+     &2.7316e+00_rb,3.0989e+00_rb,3.5187e+00_rb,3.9710e+00_rb,4.4675e+00_rb/)
+      kbo(:,59,13) = (/ &
+     &2.4661e+00_rb,2.8142e+00_rb,3.2518e+00_rb,3.7206e+00_rb,4.2604e+00_rb/)
+      kbo(:,13,14) = (/ &
+     &2.3516e+03_rb,2.3425e+03_rb,2.3393e+03_rb,2.3344e+03_rb,2.3274e+03_rb/)
+      kbo(:,14,14) = (/ &
+     &2.4560e+03_rb,2.4460e+03_rb,2.4416e+03_rb,2.4361e+03_rb,2.4328e+03_rb/)
+      kbo(:,15,14) = (/ &
+     &2.5504e+03_rb,2.5434e+03_rb,2.5388e+03_rb,2.5327e+03_rb,2.5248e+03_rb/)
+      kbo(:,16,14) = (/ &
+     &2.6346e+03_rb,2.6312e+03_rb,2.6203e+03_rb,2.6088e+03_rb,2.5971e+03_rb/)
+      kbo(:,17,14) = (/ &
+     &2.7008e+03_rb,2.6935e+03_rb,2.6794e+03_rb,2.6636e+03_rb,2.6477e+03_rb/)
+      kbo(:,18,14) = (/ &
+     &2.7305e+03_rb,2.7239e+03_rb,2.7111e+03_rb,2.6981e+03_rb,2.6813e+03_rb/)
+      kbo(:,19,14) = (/ &
+     &2.7180e+03_rb,2.7110e+03_rb,2.7049e+03_rb,2.6968e+03_rb,2.6814e+03_rb/)
+      kbo(:,20,14) = (/ &
+     &2.6672e+03_rb,2.6665e+03_rb,2.6675e+03_rb,2.6606e+03_rb,2.6429e+03_rb/)
+      kbo(:,21,14) = (/ &
+     &2.5815e+03_rb,2.5893e+03_rb,2.5905e+03_rb,2.5819e+03_rb,2.5661e+03_rb/)
+      kbo(:,22,14) = (/ &
+     &2.4673e+03_rb,2.4773e+03_rb,2.4773e+03_rb,2.4699e+03_rb,2.4562e+03_rb/)
+      kbo(:,23,14) = (/ &
+     &2.3326e+03_rb,2.3404e+03_rb,2.3409e+03_rb,2.3341e+03_rb,2.3220e+03_rb/)
+      kbo(:,24,14) = (/ &
+     &2.1770e+03_rb,2.1831e+03_rb,2.1839e+03_rb,2.1779e+03_rb,2.1650e+03_rb/)
+      kbo(:,25,14) = (/ &
+     &2.0113e+03_rb,2.0166e+03_rb,2.0154e+03_rb,2.0063e+03_rb,1.9910e+03_rb/)
+      kbo(:,26,14) = (/ &
+     &1.8365e+03_rb,1.8415e+03_rb,1.8363e+03_rb,1.8253e+03_rb,1.8117e+03_rb/)
+      kbo(:,27,14) = (/ &
+     &1.6595e+03_rb,1.6581e+03_rb,1.6515e+03_rb,1.6428e+03_rb,1.6322e+03_rb/)
+      kbo(:,28,14) = (/ &
+     &1.4809e+03_rb,1.4771e+03_rb,1.4724e+03_rb,1.4658e+03_rb,1.4569e+03_rb/)
+      kbo(:,29,14) = (/ &
+     &1.3089e+03_rb,1.3068e+03_rb,1.3044e+03_rb,1.2991e+03_rb,1.2930e+03_rb/)
+      kbo(:,30,14) = (/ &
+     &1.1460e+03_rb,1.1478e+03_rb,1.1472e+03_rb,1.1450e+03_rb,1.1415e+03_rb/)
+      kbo(:,31,14) = (/ &
+     &9.9693e+02_rb,1.0002e+03_rb,1.0008e+03_rb,1.0017e+03_rb,1.0008e+03_rb/)
+      kbo(:,32,14) = (/ &
+     &8.6070e+02_rb,8.6544e+02_rb,8.6833e+02_rb,8.7044e+02_rb,8.7331e+02_rb/)
+      kbo(:,33,14) = (/ &
+     &7.4260e+02_rb,7.4642e+02_rb,7.5058e+02_rb,7.5528e+02_rb,7.5991e+02_rb/)
+      kbo(:,34,14) = (/ &
+     &6.3829e+02_rb,6.4348e+02_rb,6.4940e+02_rb,6.5551e+02_rb,6.6078e+02_rb/)
+      kbo(:,35,14) = (/ &
+     &5.4846e+02_rb,5.5540e+02_rb,5.6285e+02_rb,5.6932e+02_rb,5.7603e+02_rb/)
+      kbo(:,36,14) = (/ &
+     &4.7198e+02_rb,4.7993e+02_rb,4.8784e+02_rb,4.9478e+02_rb,5.0307e+02_rb/)
+      kbo(:,37,14) = (/ &
+     &4.0498e+02_rb,4.1318e+02_rb,4.2147e+02_rb,4.2948e+02_rb,4.3820e+02_rb/)
+      kbo(:,38,14) = (/ &
+     &3.4831e+02_rb,3.5680e+02_rb,3.6471e+02_rb,3.7305e+02_rb,3.8282e+02_rb/)
+      kbo(:,39,14) = (/ &
+     &3.0154e+02_rb,3.0929e+02_rb,3.1734e+02_rb,3.2632e+02_rb,3.3596e+02_rb/)
+      kbo(:,40,14) = (/ &
+     &2.6084e+02_rb,2.6836e+02_rb,2.7578e+02_rb,2.8455e+02_rb,2.9457e+02_rb/)
+      kbo(:,41,14) = (/ &
+     &2.2737e+02_rb,2.3379e+02_rb,2.4131e+02_rb,2.4917e+02_rb,2.5928e+02_rb/)
+      kbo(:,42,14) = (/ &
+     &1.9807e+02_rb,2.0493e+02_rb,2.1238e+02_rb,2.2005e+02_rb,2.2904e+02_rb/)
+      kbo(:,43,14) = (/ &
+     &1.7261e+02_rb,1.7936e+02_rb,1.8667e+02_rb,1.9473e+02_rb,2.0355e+02_rb/)
+      kbo(:,44,14) = (/ &
+     &1.5104e+02_rb,1.5759e+02_rb,1.6444e+02_rb,1.7229e+02_rb,1.8143e+02_rb/)
+      kbo(:,45,14) = (/ &
+     &1.3320e+02_rb,1.3908e+02_rb,1.4536e+02_rb,1.5288e+02_rb,1.6210e+02_rb/)
+      kbo(:,46,14) = (/ &
+     &1.1788e+02_rb,1.2339e+02_rb,1.2957e+02_rb,1.3630e+02_rb,1.4477e+02_rb/)
+      kbo(:,47,14) = (/ &
+     &1.0441e+02_rb,1.0994e+02_rb,1.1542e+02_rb,1.2186e+02_rb,1.2998e+02_rb/)
+      kbo(:,48,14) = (/ &
+     &9.2989e+01_rb,9.8393e+01_rb,1.0367e+02_rb,1.0970e+02_rb,1.1684e+02_rb/)
+      kbo(:,49,14) = (/ &
+     &8.3245e+01_rb,8.8109e+01_rb,9.3736e+01_rb,9.8882e+01_rb,1.0570e+02_rb/)
+      kbo(:,50,14) = (/ &
+     &7.4420e+01_rb,7.9603e+01_rb,8.4592e+01_rb,9.0187e+01_rb,9.6226e+01_rb/)
+      kbo(:,51,14) = (/ &
+     &6.6553e+01_rb,7.2000e+01_rb,7.7144e+01_rb,8.2193e+01_rb,8.8503e+01_rb/)
+      kbo(:,52,14) = (/ &
+     &5.9519e+01_rb,6.4793e+01_rb,7.0321e+01_rb,7.5806e+01_rb,8.1580e+01_rb/)
+      kbo(:,53,14) = (/ &
+     &5.3233e+01_rb,5.8402e+01_rb,6.4217e+01_rb,6.9900e+01_rb,7.5580e+01_rb/)
+      kbo(:,54,14) = (/ &
+     &4.7589e+01_rb,5.2923e+01_rb,5.8451e+01_rb,6.4196e+01_rb,7.0322e+01_rb/)
+      kbo(:,55,14) = (/ &
+     &4.2742e+01_rb,4.7820e+01_rb,5.3445e+01_rb,5.9447e+01_rb,6.5405e+01_rb/)
+      kbo(:,56,14) = (/ &
+     &3.8175e+01_rb,4.3483e+01_rb,4.9069e+01_rb,5.5046e+01_rb,6.1266e+01_rb/)
+      kbo(:,57,14) = (/ &
+     &3.4510e+01_rb,3.9326e+01_rb,4.4806e+01_rb,5.1166e+01_rb,5.7169e+01_rb/)
+      kbo(:,58,14) = (/ &
+     &3.1419e+01_rb,3.6120e+01_rb,4.1281e+01_rb,4.7436e+01_rb,5.4030e+01_rb/)
+      kbo(:,59,14) = (/ &
+     &3.0087e+01_rb,3.4624e+01_rb,3.9514e+01_rb,4.5129e+01_rb,5.1873e+01_rb/)
+      kbo(:,13,15) = (/ &
+     &5.1911e+03_rb,5.1717e+03_rb,5.1553e+03_rb,5.1395e+03_rb,5.1397e+03_rb/)
+      kbo(:,14,15) = (/ &
+     &5.8547e+03_rb,5.8285e+03_rb,5.7963e+03_rb,5.7766e+03_rb,5.7715e+03_rb/)
+      kbo(:,15,15) = (/ &
+     &6.5298e+03_rb,6.4858e+03_rb,6.4506e+03_rb,6.4312e+03_rb,6.4243e+03_rb/)
+      kbo(:,16,15) = (/ &
+     &7.2117e+03_rb,7.1510e+03_rb,7.1189e+03_rb,7.1000e+03_rb,7.0870e+03_rb/)
+      kbo(:,17,15) = (/ &
+     &7.8953e+03_rb,7.8291e+03_rb,7.7890e+03_rb,7.7670e+03_rb,7.7489e+03_rb/)
+      kbo(:,18,15) = (/ &
+     &8.5855e+03_rb,8.5208e+03_rb,8.4668e+03_rb,8.4206e+03_rb,8.3980e+03_rb/)
+      kbo(:,19,15) = (/ &
+     &9.2674e+03_rb,9.2049e+03_rb,9.1326e+03_rb,9.0736e+03_rb,9.0525e+03_rb/)
+      kbo(:,20,15) = (/ &
+     &9.9108e+03_rb,9.8356e+03_rb,9.7636e+03_rb,9.7141e+03_rb,9.6905e+03_rb/)
+      kbo(:,21,15) = (/ &
+     &1.0486e+04_rb,1.0415e+04_rb,1.0355e+04_rb,1.0317e+04_rb,1.0287e+04_rb/)
+      kbo(:,22,15) = (/ &
+     &1.0985e+04_rb,1.0920e+04_rb,1.0875e+04_rb,1.0845e+04_rb,1.0804e+04_rb/)
+      kbo(:,23,15) = (/ &
+     &1.1398e+04_rb,1.1342e+04_rb,1.1308e+04_rb,1.1276e+04_rb,1.1234e+04_rb/)
+      kbo(:,24,15) = (/ &
+     &1.1709e+04_rb,1.1672e+04_rb,1.1645e+04_rb,1.1614e+04_rb,1.1576e+04_rb/)
+      kbo(:,25,15) = (/ &
+     &1.1914e+04_rb,1.1896e+04_rb,1.1878e+04_rb,1.1862e+04_rb,1.1837e+04_rb/)
+      kbo(:,26,15) = (/ &
+     &1.2040e+04_rb,1.2031e+04_rb,1.2029e+04_rb,1.2020e+04_rb,1.1998e+04_rb/)
+      kbo(:,27,15) = (/ &
+     &1.2071e+04_rb,1.2081e+04_rb,1.2089e+04_rb,1.2085e+04_rb,1.2069e+04_rb/)
+      kbo(:,28,15) = (/ &
+     &1.2021e+04_rb,1.2058e+04_rb,1.2068e+04_rb,1.2068e+04_rb,1.2073e+04_rb/)
+      kbo(:,29,15) = (/ &
+     &1.1886e+04_rb,1.1940e+04_rb,1.1970e+04_rb,1.1995e+04_rb,1.2017e+04_rb/)
+      kbo(:,30,15) = (/ &
+     &1.1676e+04_rb,1.1749e+04_rb,1.1808e+04_rb,1.1861e+04_rb,1.1908e+04_rb/)
+      kbo(:,31,15) = (/ &
+     &1.1416e+04_rb,1.1515e+04_rb,1.1609e+04_rb,1.1694e+04_rb,1.1764e+04_rb/)
+      kbo(:,32,15) = (/ &
+     &1.1108e+04_rb,1.1250e+04_rb,1.1385e+04_rb,1.1503e+04_rb,1.1598e+04_rb/)
+      kbo(:,33,15) = (/ &
+     &1.0773e+04_rb,1.0963e+04_rb,1.1141e+04_rb,1.1294e+04_rb,1.1425e+04_rb/)
+      kbo(:,34,15) = (/ &
+     &1.0438e+04_rb,1.0673e+04_rb,1.0885e+04_rb,1.1077e+04_rb,1.1249e+04_rb/)
+      kbo(:,35,15) = (/ &
+     &1.0089e+04_rb,1.0368e+04_rb,1.0621e+04_rb,1.0852e+04_rb,1.1064e+04_rb/)
+      kbo(:,36,15) = (/ &
+     &9.7201e+03_rb,1.0041e+04_rb,1.0341e+04_rb,1.0614e+04_rb,1.0861e+04_rb/)
+      kbo(:,37,15) = (/ &
+     &9.3163e+03_rb,9.6805e+03_rb,1.0024e+04_rb,1.0342e+04_rb,1.0632e+04_rb/)
+      kbo(:,38,15) = (/ &
+     &8.9272e+03_rb,9.3307e+03_rb,9.7169e+03_rb,1.0074e+04_rb,1.0402e+04_rb/)
+      kbo(:,39,15) = (/ &
+     &8.5526e+03_rb,8.9993e+03_rb,9.4206e+03_rb,9.8154e+03_rb,1.0180e+04_rb/)
+      kbo(:,40,15) = (/ &
+     &8.1494e+03_rb,8.6355e+03_rb,9.0962e+03_rb,9.5285e+03_rb,9.9305e+03_rb/)
+      kbo(:,41,15) = (/ &
+     &7.7529e+03_rb,8.2788e+03_rb,8.7766e+03_rb,9.2446e+03_rb,9.6773e+03_rb/)
+      kbo(:,42,15) = (/ &
+     &7.3760e+03_rb,7.9339e+03_rb,8.4681e+03_rb,8.9681e+03_rb,9.4340e+03_rb/)
+      kbo(:,43,15) = (/ &
+     &6.9819e+03_rb,7.5721e+03_rb,8.1409e+03_rb,8.6746e+03_rb,9.1691e+03_rb/)
+      kbo(:,44,15) = (/ &
+     &6.5827e+03_rb,7.2081e+03_rb,7.8084e+03_rb,8.3740e+03_rb,8.8982e+03_rb/)
+      kbo(:,45,15) = (/ &
+     &6.1901e+03_rb,6.8485e+03_rb,7.4795e+03_rb,8.0786e+03_rb,8.6303e+03_rb/)
+      kbo(:,46,15) = (/ &
+     &5.8024e+03_rb,6.4801e+03_rb,7.1413e+03_rb,7.7702e+03_rb,8.3548e+03_rb/)
+      kbo(:,47,15) = (/ &
+     &5.3938e+03_rb,6.0870e+03_rb,6.7778e+03_rb,7.4341e+03_rb,8.0495e+03_rb/)
+      kbo(:,48,15) = (/ &
+     &5.0092e+03_rb,5.7052e+03_rb,6.4111e+03_rb,7.0962e+03_rb,7.7409e+03_rb/)
+      kbo(:,49,15) = (/ &
+     &4.6045e+03_rb,5.3446e+03_rb,6.0469e+03_rb,6.7562e+03_rb,7.4302e+03_rb/)
+      kbo(:,50,15) = (/ &
+     &4.2414e+03_rb,4.9940e+03_rb,5.7177e+03_rb,6.4318e+03_rb,7.1308e+03_rb/)
+      kbo(:,51,15) = (/ &
+     &3.9058e+03_rb,4.6435e+03_rb,5.4144e+03_rb,6.1320e+03_rb,6.8340e+03_rb/)
+      kbo(:,52,15) = (/ &
+     &3.5828e+03_rb,4.3242e+03_rb,5.0835e+03_rb,5.8308e+03_rb,6.5455e+03_rb/)
+      kbo(:,53,15) = (/ &
+     &3.2733e+03_rb,3.9950e+03_rb,4.7590e+03_rb,5.5300e+03_rb,6.2613e+03_rb/)
+      kbo(:,54,15) = (/ &
+     &2.9973e+03_rb,3.7033e+03_rb,4.4798e+03_rb,5.2468e+03_rb,6.0054e+03_rb/)
+      kbo(:,55,15) = (/ &
+     &2.7347e+03_rb,3.4529e+03_rb,4.2020e+03_rb,4.9932e+03_rb,5.7360e+03_rb/)
+      kbo(:,56,15) = (/ &
+     &2.4953e+03_rb,3.1956e+03_rb,3.9366e+03_rb,4.7176e+03_rb,5.4818e+03_rb/)
+      kbo(:,57,15) = (/ &
+     &2.2617e+03_rb,2.9413e+03_rb,3.6881e+03_rb,4.4499e+03_rb,5.2349e+03_rb/)
+      kbo(:,58,15) = (/ &
+     &2.0370e+03_rb,2.7148e+03_rb,3.4460e+03_rb,4.2224e+03_rb,4.9906e+03_rb/)
+      kbo(:,59,15) = (/ &
+     &1.9478e+03_rb,2.6130e+03_rb,3.3529e+03_rb,4.1205e+03_rb,4.8990e+03_rb/)
+      kbo(:,13,16) = (/ &
+     &1.0699e+04_rb,1.0668e+04_rb,1.0580e+04_rb,1.0493e+04_rb,1.0473e+04_rb/)
+      kbo(:,14,16) = (/ &
+     &1.2469e+04_rb,1.2443e+04_rb,1.2338e+04_rb,1.2279e+04_rb,1.2260e+04_rb/)
+      kbo(:,15,16) = (/ &
+     &1.4513e+04_rb,1.4466e+04_rb,1.4361e+04_rb,1.4360e+04_rb,1.4376e+04_rb/)
+      kbo(:,16,16) = (/ &
+     &1.6769e+04_rb,1.6706e+04_rb,1.6727e+04_rb,1.6775e+04_rb,1.6795e+04_rb/)
+      kbo(:,17,16) = (/ &
+     &1.9233e+04_rb,1.9285e+04_rb,1.9387e+04_rb,1.9445e+04_rb,1.9443e+04_rb/)
+      kbo(:,18,16) = (/ &
+     &2.2082e+04_rb,2.2141e+04_rb,2.2296e+04_rb,2.2362e+04_rb,2.2373e+04_rb/)
+      kbo(:,19,16) = (/ &
+     &2.5392e+04_rb,2.5419e+04_rb,2.5533e+04_rb,2.5623e+04_rb,2.5622e+04_rb/)
+      kbo(:,20,16) = (/ &
+     &2.9227e+04_rb,2.9228e+04_rb,2.9232e+04_rb,2.9272e+04_rb,2.9286e+04_rb/)
+      kbo(:,21,16) = (/ &
+     &3.3689e+04_rb,3.3556e+04_rb,3.3511e+04_rb,3.3436e+04_rb,3.3399e+04_rb/)
+      kbo(:,22,16) = (/ &
+     &3.8640e+04_rb,3.8494e+04_rb,3.8304e+04_rb,3.8118e+04_rb,3.8006e+04_rb/)
+      kbo(:,23,16) = (/ &
+     &4.4135e+04_rb,4.3894e+04_rb,4.3600e+04_rb,4.3191e+04_rb,4.3063e+04_rb/)
+      kbo(:,24,16) = (/ &
+     &5.0120e+04_rb,4.9723e+04_rb,4.9276e+04_rb,4.8847e+04_rb,4.8550e+04_rb/)
+      kbo(:,25,16) = (/ &
+     &5.6400e+04_rb,5.5824e+04_rb,5.5260e+04_rb,5.4753e+04_rb,5.4318e+04_rb/)
+      kbo(:,26,16) = (/ &
+     &6.2742e+04_rb,6.2101e+04_rb,6.1449e+04_rb,6.0838e+04_rb,6.0246e+04_rb/)
+      kbo(:,27,16) = (/ &
+     &6.9256e+04_rb,6.8498e+04_rb,6.7755e+04_rb,6.7035e+04_rb,6.6255e+04_rb/)
+      kbo(:,28,16) = (/ &
+     &7.5845e+04_rb,7.4890e+04_rb,7.4038e+04_rb,7.3125e+04_rb,7.2119e+04_rb/)
+      kbo(:,29,16) = (/ &
+     &8.2416e+04_rb,8.1292e+04_rb,8.0172e+04_rb,7.8988e+04_rb,7.7733e+04_rb/)
+      kbo(:,30,16) = (/ &
+     &8.8923e+04_rb,8.7524e+04_rb,8.6114e+04_rb,8.4633e+04_rb,8.3083e+04_rb/)
+      kbo(:,31,16) = (/ &
+     &9.5128e+04_rb,9.3474e+04_rb,9.1409e+04_rb,8.9609e+04_rb,8.8121e+04_rb/)
+      kbo(:,32,16) = (/ &
+     &1.0109e+05_rb,9.9056e+04_rb,9.6959e+04_rb,9.4838e+04_rb,9.2728e+04_rb/)
+      kbo(:,33,16) = (/ &
+     &1.0668e+05_rb,1.0426e+05_rb,1.0177e+05_rb,9.9309e+04_rb,9.6864e+04_rb/)
+      kbo(:,34,16) = (/ &
+     &1.1181e+05_rb,1.0901e+05_rb,1.0619e+05_rb,1.0339e+05_rb,1.0062e+05_rb/)
+      kbo(:,35,16) = (/ &
+     &1.1669e+05_rb,1.1352e+05_rb,1.1036e+05_rb,1.0724e+05_rb,1.0414e+05_rb/)
+      kbo(:,36,16) = (/ &
+     &1.2143e+05_rb,1.1741e+05_rb,1.1444e+05_rb,1.1099e+05_rb,1.0759e+05_rb/)
+      kbo(:,37,16) = (/ &
+     &1.2629e+05_rb,1.2248e+05_rb,1.1868e+05_rb,1.1492e+05_rb,1.1120e+05_rb/)
+      kbo(:,38,16) = (/ &
+     &1.3077e+05_rb,1.2669e+05_rb,1.2260e+05_rb,1.1857e+05_rb,1.1458e+05_rb/)
+      kbo(:,39,16) = (/ &
+     &1.3413e+05_rb,1.3013e+05_rb,1.2620e+05_rb,1.2191e+05_rb,1.1768e+05_rb/)
+      kbo(:,40,16) = (/ &
+     &1.3905e+05_rb,1.3448e+05_rb,1.2993e+05_rb,1.2540e+05_rb,1.2095e+05_rb/)
+      kbo(:,41,16) = (/ &
+     &1.4302e+05_rb,1.3822e+05_rb,1.3346e+05_rb,1.2873e+05_rb,1.2407e+05_rb/)
+      kbo(:,42,16) = (/ &
+     &1.4675e+05_rb,1.4173e+05_rb,1.3673e+05_rb,1.3182e+05_rb,1.2698e+05_rb/)
+      kbo(:,43,16) = (/ &
+     &1.5047e+05_rb,1.4528e+05_rb,1.4010e+05_rb,1.3500e+05_rb,1.2941e+05_rb/)
+      kbo(:,44,16) = (/ &
+     &1.5413e+05_rb,1.4878e+05_rb,1.4344e+05_rb,1.3816e+05_rb,1.3300e+05_rb/)
+      kbo(:,45,16) = (/ &
+     &1.5764e+05_rb,1.5214e+05_rb,1.4665e+05_rb,1.4055e+05_rb,1.3586e+05_rb/)
+      kbo(:,46,16) = (/ &
+     &1.6104e+05_rb,1.5546e+05_rb,1.4981e+05_rb,1.4422e+05_rb,1.3874e+05_rb/)
+      kbo(:,47,16) = (/ &
+     &1.6453e+05_rb,1.5891e+05_rb,1.5314e+05_rb,1.4742e+05_rb,1.4180e+05_rb/)
+      kbo(:,48,16) = (/ &
+     &1.6775e+05_rb,1.6219e+05_rb,1.5640e+05_rb,1.5054e+05_rb,1.4481e+05_rb/)
+      kbo(:,49,16) = (/ &
+     &1.7104e+05_rb,1.6528e+05_rb,1.5957e+05_rb,1.5363e+05_rb,1.4773e+05_rb/)
+      kbo(:,50,16) = (/ &
+     &1.7401e+05_rb,1.6818e+05_rb,1.6240e+05_rb,1.5648e+05_rb,1.5051e+05_rb/)
+      kbo(:,51,16) = (/ &
+     &1.7667e+05_rb,1.7104e+05_rb,1.6499e+05_rb,1.5912e+05_rb,1.5318e+05_rb/)
+      kbo(:,52,16) = (/ &
+     &1.7922e+05_rb,1.7356e+05_rb,1.6772e+05_rb,1.6169e+05_rb,1.5572e+05_rb/)
+      kbo(:,53,16) = (/ &
+     &1.8153e+05_rb,1.7622e+05_rb,1.7035e+05_rb,1.6422e+05_rb,1.5819e+05_rb/)
+      kbo(:,54,16) = (/ &
+     &1.8363e+05_rb,1.7848e+05_rb,1.7259e+05_rb,1.6657e+05_rb,1.6042e+05_rb/)
+      kbo(:,55,16) = (/ &
+     &1.8551e+05_rb,1.8043e+05_rb,1.7479e+05_rb,1.6867e+05_rb,1.6267e+05_rb/)
+      kbo(:,56,16) = (/ &
+     &1.8723e+05_rb,1.8233e+05_rb,1.7687e+05_rb,1.7089e+05_rb,1.6480e+05_rb/)
+      kbo(:,57,16) = (/ &
+     &1.8886e+05_rb,1.8420e+05_rb,1.7883e+05_rb,1.7299e+05_rb,1.6681e+05_rb/)
+      kbo(:,58,16) = (/ &
+     &1.9037e+05_rb,1.8581e+05_rb,1.8067e+05_rb,1.7477e+05_rb,1.6881e+05_rb/)
+      kbo(:,59,16) = (/ &
+     &1.9100e+05_rb,1.8659e+05_rb,1.8132e+05_rb,1.7562e+05_rb,1.6956e+05_rb/)
+
+      kao_mn2(:, 1) = (/ &
+     & 5.12042e-08_rb, 5.51239e-08_rb, 5.93436e-08_rb, 6.38863e-08_rb, 6.87767e-08_rb, &
+     & 7.40415e-08_rb, 7.97093e-08_rb, 8.58110e-08_rb, 9.23797e-08_rb, 9.94513e-08_rb, &
+     & 1.07064e-07_rb, 1.15260e-07_rb, 1.24083e-07_rb, 1.33581e-07_rb, 1.43807e-07_rb, &
+     & 1.54815e-07_rb, 1.66666e-07_rb, 1.79424e-07_rb, 1.93159e-07_rb/)
+      kao_mn2(:, 2) = (/ &
+     & 2.30938e-07_rb, 2.41696e-07_rb, 2.52955e-07_rb, 2.64738e-07_rb, 2.77071e-07_rb, &
+     & 2.89978e-07_rb, 3.03486e-07_rb, 3.17623e-07_rb, 3.32419e-07_rb, 3.47904e-07_rb, &
+     & 3.64111e-07_rb, 3.81072e-07_rb, 3.98824e-07_rb, 4.17402e-07_rb, 4.36846e-07_rb, &
+     & 4.57196e-07_rb, 4.78494e-07_rb, 5.00784e-07_rb, 5.24112e-07_rb/)
+      kao_mn2(:, 3) = (/ &
+     & 6.70458e-07_rb, 7.04274e-07_rb, 7.39795e-07_rb, 7.77109e-07_rb, 8.16304e-07_rb, &
+     & 8.57476e-07_rb, 9.00724e-07_rb, 9.46154e-07_rb, 9.93876e-07_rb, 1.04400e-06_rb, &
+     & 1.09666e-06_rb, 1.15197e-06_rb, 1.21008e-06_rb, 1.27111e-06_rb, 1.33522e-06_rb, &
+     & 1.40256e-06_rb, 1.47331e-06_rb, 1.54761e-06_rb, 1.62567e-06_rb/)
+      kao_mn2(:, 4) = (/ &
+     & 1.84182e-06_rb, 1.89203e-06_rb, 1.94360e-06_rb, 1.99658e-06_rb, 2.05101e-06_rb, &
+     & 2.10692e-06_rb, 2.16435e-06_rb, 2.22335e-06_rb, 2.28396e-06_rb, 2.34622e-06_rb, &
+     & 2.41017e-06_rb, 2.47587e-06_rb, 2.54337e-06_rb, 2.61270e-06_rb, 2.68392e-06_rb, &
+     & 2.75708e-06_rb, 2.83224e-06_rb, 2.90944e-06_rb, 2.98875e-06_rb/)
+      kao_mn2(:, 5) = (/ &
+     & 3.41996e-06_rb, 3.32758e-06_rb, 3.23770e-06_rb, 3.15024e-06_rb, 3.06515e-06_rb, &
+     & 2.98235e-06_rb, 2.90180e-06_rb, 2.82341e-06_rb, 2.74715e-06_rb, 2.67294e-06_rb, &
+     & 2.60074e-06_rb, 2.53049e-06_rb, 2.46214e-06_rb, 2.39563e-06_rb, 2.33092e-06_rb, &
+     & 2.26796e-06_rb, 2.20670e-06_rb, 2.14709e-06_rb, 2.08910e-06_rb/)
+      kao_mn2(:, 6) = (/ &
+     & 3.38746e-06_rb, 3.25966e-06_rb, 3.13669e-06_rb, 3.01836e-06_rb, 2.90449e-06_rb, &
+     & 2.79491e-06_rb, 2.68947e-06_rb, 2.58801e-06_rb, 2.49037e-06_rb, 2.39642e-06_rb, &
+     & 2.30601e-06_rb, 2.21902e-06_rb, 2.13530e-06_rb, 2.05475e-06_rb, 1.97723e-06_rb, &
+     & 1.90264e-06_rb, 1.83086e-06_rb, 1.76179e-06_rb, 1.69532e-06_rb/)
+      kao_mn2(:, 7) = (/ &
+     & 3.17530e-06_rb, 3.07196e-06_rb, 2.97199e-06_rb, 2.87527e-06_rb, 2.78170e-06_rb, &
+     & 2.69118e-06_rb, 2.60360e-06_rb, 2.51887e-06_rb, 2.43690e-06_rb, 2.35759e-06_rb, &
+     & 2.28087e-06_rb, 2.20664e-06_rb, 2.13483e-06_rb, 2.06536e-06_rb, 1.99814e-06_rb, &
+     & 1.93312e-06_rb, 1.87021e-06_rb, 1.80934e-06_rb, 1.75046e-06_rb/)
+      kao_mn2(:, 8) = (/ &
+     & 2.84701e-06_rb, 2.77007e-06_rb, 2.69521e-06_rb, 2.62237e-06_rb, 2.55150e-06_rb, &
+     & 2.48254e-06_rb, 2.41545e-06_rb, 2.35017e-06_rb, 2.28666e-06_rb, 2.22486e-06_rb, &
+     & 2.16473e-06_rb, 2.10623e-06_rb, 2.04930e-06_rb, 1.99392e-06_rb, 1.94003e-06_rb, &
+     & 1.88760e-06_rb, 1.83659e-06_rb, 1.78695e-06_rb, 1.73866e-06_rb/)
+      kao_mn2(:, 9) = (/ &
+     & 2.79917e-06_rb, 2.73207e-06_rb, 2.66658e-06_rb, 2.60266e-06_rb, 2.54027e-06_rb, &
+     & 2.47937e-06_rb, 2.41994e-06_rb, 2.36192e-06_rb, 2.30530e-06_rb, 2.25004e-06_rb, &
+     & 2.19610e-06_rb, 2.14346e-06_rb, 2.09208e-06_rb, 2.04193e-06_rb, 1.99298e-06_rb, &
+     & 1.94520e-06_rb, 1.89857e-06_rb, 1.85306e-06_rb, 1.80864e-06_rb/)
+      kao_mn2(:,10) = (/ &
+     & 2.74910e-06_rb, 2.64462e-06_rb, 2.54412e-06_rb, 2.44743e-06_rb, 2.35442e-06_rb, &
+     & 2.26495e-06_rb, 2.17887e-06_rb, 2.09606e-06_rb, 2.01641e-06_rb, 1.93978e-06_rb, &
+     & 1.86606e-06_rb, 1.79514e-06_rb, 1.72692e-06_rb, 1.66129e-06_rb, 1.59815e-06_rb, &
+     & 1.53742e-06_rb, 1.47899e-06_rb, 1.42278e-06_rb, 1.36871e-06_rb/)
+      kao_mn2(:,11) = (/ &
+     & 2.63952e-06_rb, 2.60263e-06_rb, 2.56626e-06_rb, 2.53039e-06_rb, 2.49503e-06_rb, &
+     & 2.46016e-06_rb, 2.42578e-06_rb, 2.39188e-06_rb, 2.35845e-06_rb, 2.32549e-06_rb, &
+     & 2.29299e-06_rb, 2.26094e-06_rb, 2.22934e-06_rb, 2.19819e-06_rb, 2.16747e-06_rb, &
+     & 2.13717e-06_rb, 2.10731e-06_rb, 2.07786e-06_rb, 2.04882e-06_rb/)
+      kao_mn2(:,12) = (/ &
+     & 2.94106e-06_rb, 2.82819e-06_rb, 2.71966e-06_rb, 2.61528e-06_rb, 2.51492e-06_rb, &
+     & 2.41841e-06_rb, 2.32560e-06_rb, 2.23635e-06_rb, 2.15053e-06_rb, 2.06800e-06_rb, &
+     & 1.98863e-06_rb, 1.91232e-06_rb, 1.83893e-06_rb, 1.76836e-06_rb, 1.70049e-06_rb, &
+     & 1.63524e-06_rb, 1.57248e-06_rb, 1.51214e-06_rb, 1.45411e-06_rb/)
+      kao_mn2(:,13) = (/ &
+     & 2.94607e-06_rb, 2.87369e-06_rb, 2.80309e-06_rb, 2.73422e-06_rb, 2.66705e-06_rb, &
+     & 2.60152e-06_rb, 2.53760e-06_rb, 2.47526e-06_rb, 2.41445e-06_rb, 2.35513e-06_rb, &
+     & 2.29726e-06_rb, 2.24082e-06_rb, 2.18577e-06_rb, 2.13207e-06_rb, 2.07969e-06_rb, &
+     & 2.02859e-06_rb, 1.97875e-06_rb, 1.93014e-06_rb, 1.88272e-06_rb/)
+      kao_mn2(:,14) = (/ &
+     & 2.58051e-06_rb, 2.48749e-06_rb, 2.39782e-06_rb, 2.31139e-06_rb, 2.22807e-06_rb, &
+     & 2.14775e-06_rb, 2.07033e-06_rb, 1.99570e-06_rb, 1.92376e-06_rb, 1.85441e-06_rb, &
+     & 1.78756e-06_rb, 1.72313e-06_rb, 1.66101e-06_rb, 1.60114e-06_rb, 1.54342e-06_rb, &
+     & 1.48778e-06_rb, 1.43415e-06_rb, 1.38245e-06_rb, 1.33262e-06_rb/)
+      kao_mn2(:,15) = (/ &
+     & 3.03447e-06_rb, 2.88559e-06_rb, 2.74401e-06_rb, 2.60938e-06_rb, 2.48135e-06_rb, &
+     & 2.35961e-06_rb, 2.24384e-06_rb, 2.13375e-06_rb, 2.02906e-06_rb, 1.92951e-06_rb, &
+     & 1.83484e-06_rb, 1.74481e-06_rb, 1.65921e-06_rb, 1.57780e-06_rb, 1.50039e-06_rb, &
+     & 1.42677e-06_rb, 1.35677e-06_rb, 1.29020e-06_rb, 1.22690e-06_rb/)
+      kao_mn2(:,16) = (/ &
+     & 1.48655e-06_rb, 1.48283e-06_rb, 1.47913e-06_rb, 1.47543e-06_rb, 1.47174e-06_rb, &
+     & 1.46806e-06_rb, 1.46439e-06_rb, 1.46072e-06_rb, 1.45707e-06_rb, 1.45343e-06_rb, &
+     & 1.44979e-06_rb, 1.44617e-06_rb, 1.44255e-06_rb, 1.43894e-06_rb, 1.43534e-06_rb, &
+     & 1.43176e-06_rb, 1.42817e-06_rb, 1.42460e-06_rb, 1.42104e-06_rb/)
+      kbo_mn2(:, 1) = (/ &
+     & 5.12042e-08_rb, 5.51239e-08_rb, 5.93436e-08_rb, 6.38863e-08_rb, 6.87767e-08_rb, &
+     & 7.40415e-08_rb, 7.97093e-08_rb, 8.58110e-08_rb, 9.23797e-08_rb, 9.94513e-08_rb, &
+     & 1.07064e-07_rb, 1.15260e-07_rb, 1.24083e-07_rb, 1.33581e-07_rb, 1.43807e-07_rb, &
+     & 1.54815e-07_rb, 1.66666e-07_rb, 1.79424e-07_rb, 1.93159e-07_rb/)
+      kbo_mn2(:, 2) = (/ &
+     & 2.30938e-07_rb, 2.41696e-07_rb, 2.52955e-07_rb, 2.64738e-07_rb, 2.77071e-07_rb, &
+     & 2.89978e-07_rb, 3.03486e-07_rb, 3.17623e-07_rb, 3.32419e-07_rb, 3.47904e-07_rb, &
+     & 3.64111e-07_rb, 3.81072e-07_rb, 3.98824e-07_rb, 4.17402e-07_rb, 4.36846e-07_rb, &
+     & 4.57196e-07_rb, 4.78494e-07_rb, 5.00784e-07_rb, 5.24112e-07_rb/)
+      kbo_mn2(:, 3) = (/ &
+     & 6.70458e-07_rb, 7.04274e-07_rb, 7.39795e-07_rb, 7.77109e-07_rb, 8.16304e-07_rb, &
+     & 8.57476e-07_rb, 9.00724e-07_rb, 9.46154e-07_rb, 9.93876e-07_rb, 1.04400e-06_rb, &
+     & 1.09666e-06_rb, 1.15197e-06_rb, 1.21008e-06_rb, 1.27111e-06_rb, 1.33522e-06_rb, &
+     & 1.40256e-06_rb, 1.47331e-06_rb, 1.54761e-06_rb, 1.62567e-06_rb/)
+      kbo_mn2(:, 4) = (/ &
+     & 1.84182e-06_rb, 1.89203e-06_rb, 1.94360e-06_rb, 1.99658e-06_rb, 2.05101e-06_rb, &
+     & 2.10692e-06_rb, 2.16435e-06_rb, 2.22335e-06_rb, 2.28396e-06_rb, 2.34622e-06_rb, &
+     & 2.41017e-06_rb, 2.47587e-06_rb, 2.54337e-06_rb, 2.61270e-06_rb, 2.68392e-06_rb, &
+     & 2.75708e-06_rb, 2.83224e-06_rb, 2.90944e-06_rb, 2.98875e-06_rb/)
+      kbo_mn2(:, 5) = (/ &
+     & 3.41996e-06_rb, 3.32758e-06_rb, 3.23770e-06_rb, 3.15024e-06_rb, 3.06515e-06_rb, &
+     & 2.98235e-06_rb, 2.90180e-06_rb, 2.82341e-06_rb, 2.74715e-06_rb, 2.67294e-06_rb, &
+     & 2.60074e-06_rb, 2.53049e-06_rb, 2.46214e-06_rb, 2.39563e-06_rb, 2.33092e-06_rb, &
+     & 2.26796e-06_rb, 2.20670e-06_rb, 2.14709e-06_rb, 2.08910e-06_rb/)
+      kbo_mn2(:, 6) = (/ &
+     & 3.38746e-06_rb, 3.25966e-06_rb, 3.13669e-06_rb, 3.01836e-06_rb, 2.90449e-06_rb, &
+     & 2.79491e-06_rb, 2.68947e-06_rb, 2.58801e-06_rb, 2.49037e-06_rb, 2.39642e-06_rb, &
+     & 2.30601e-06_rb, 2.21902e-06_rb, 2.13530e-06_rb, 2.05475e-06_rb, 1.97723e-06_rb, &
+     & 1.90264e-06_rb, 1.83086e-06_rb, 1.76179e-06_rb, 1.69532e-06_rb/)
+      kbo_mn2(:, 7) = (/ &
+     & 3.17530e-06_rb, 3.07196e-06_rb, 2.97199e-06_rb, 2.87527e-06_rb, 2.78170e-06_rb, &
+     & 2.69118e-06_rb, 2.60360e-06_rb, 2.51887e-06_rb, 2.43690e-06_rb, 2.35759e-06_rb, &
+     & 2.28087e-06_rb, 2.20664e-06_rb, 2.13483e-06_rb, 2.06536e-06_rb, 1.99814e-06_rb, &
+     & 1.93312e-06_rb, 1.87021e-06_rb, 1.80934e-06_rb, 1.75046e-06_rb/)
+      kbo_mn2(:, 8) = (/ &
+     & 2.84701e-06_rb, 2.77007e-06_rb, 2.69521e-06_rb, 2.62237e-06_rb, 2.55150e-06_rb, &
+     & 2.48254e-06_rb, 2.41545e-06_rb, 2.35017e-06_rb, 2.28666e-06_rb, 2.22486e-06_rb, &
+     & 2.16473e-06_rb, 2.10623e-06_rb, 2.04930e-06_rb, 1.99392e-06_rb, 1.94003e-06_rb, &
+     & 1.88760e-06_rb, 1.83659e-06_rb, 1.78695e-06_rb, 1.73866e-06_rb/)
+      kbo_mn2(:, 9) = (/ &
+     & 2.79917e-06_rb, 2.73207e-06_rb, 2.66658e-06_rb, 2.60266e-06_rb, 2.54027e-06_rb, &
+     & 2.47937e-06_rb, 2.41994e-06_rb, 2.36192e-06_rb, 2.30530e-06_rb, 2.25004e-06_rb, &
+     & 2.19610e-06_rb, 2.14346e-06_rb, 2.09208e-06_rb, 2.04193e-06_rb, 1.99298e-06_rb, &
+     & 1.94520e-06_rb, 1.89857e-06_rb, 1.85306e-06_rb, 1.80864e-06_rb/)
+      kbo_mn2(:,10) = (/ &
+     & 2.74910e-06_rb, 2.64462e-06_rb, 2.54412e-06_rb, 2.44743e-06_rb, 2.35442e-06_rb, &
+     & 2.26495e-06_rb, 2.17887e-06_rb, 2.09606e-06_rb, 2.01641e-06_rb, 1.93978e-06_rb, &
+     & 1.86606e-06_rb, 1.79514e-06_rb, 1.72692e-06_rb, 1.66129e-06_rb, 1.59815e-06_rb, &
+     & 1.53742e-06_rb, 1.47899e-06_rb, 1.42278e-06_rb, 1.36871e-06_rb/)
+      kbo_mn2(:,11) = (/ &
+     & 2.63952e-06_rb, 2.60263e-06_rb, 2.56626e-06_rb, 2.53039e-06_rb, 2.49503e-06_rb, &
+     & 2.46016e-06_rb, 2.42578e-06_rb, 2.39188e-06_rb, 2.35845e-06_rb, 2.32549e-06_rb, &
+     & 2.29299e-06_rb, 2.26094e-06_rb, 2.22934e-06_rb, 2.19819e-06_rb, 2.16747e-06_rb, &
+     & 2.13717e-06_rb, 2.10731e-06_rb, 2.07786e-06_rb, 2.04882e-06_rb/)
+      kbo_mn2(:,12) = (/ &
+     & 2.94106e-06_rb, 2.82819e-06_rb, 2.71966e-06_rb, 2.61528e-06_rb, 2.51492e-06_rb, &
+     & 2.41841e-06_rb, 2.32560e-06_rb, 2.23635e-06_rb, 2.15053e-06_rb, 2.06800e-06_rb, &
+     & 1.98863e-06_rb, 1.91232e-06_rb, 1.83893e-06_rb, 1.76836e-06_rb, 1.70049e-06_rb, &
+     & 1.63524e-06_rb, 1.57248e-06_rb, 1.51214e-06_rb, 1.45411e-06_rb/)
+      kbo_mn2(:,13) = (/ &
+     & 2.94607e-06_rb, 2.87369e-06_rb, 2.80309e-06_rb, 2.73422e-06_rb, 2.66705e-06_rb, &
+     & 2.60152e-06_rb, 2.53760e-06_rb, 2.47526e-06_rb, 2.41445e-06_rb, 2.35513e-06_rb, &
+     & 2.29726e-06_rb, 2.24082e-06_rb, 2.18577e-06_rb, 2.13207e-06_rb, 2.07969e-06_rb, &
+     & 2.02859e-06_rb, 1.97875e-06_rb, 1.93014e-06_rb, 1.88272e-06_rb/)
+      kbo_mn2(:,14) = (/ &
+     & 2.58051e-06_rb, 2.48749e-06_rb, 2.39782e-06_rb, 2.31139e-06_rb, 2.22807e-06_rb, &
+     & 2.14775e-06_rb, 2.07033e-06_rb, 1.99570e-06_rb, 1.92376e-06_rb, 1.85441e-06_rb, &
+     & 1.78756e-06_rb, 1.72313e-06_rb, 1.66101e-06_rb, 1.60114e-06_rb, 1.54342e-06_rb, &
+     & 1.48778e-06_rb, 1.43415e-06_rb, 1.38245e-06_rb, 1.33262e-06_rb/)
+      kbo_mn2(:,15) = (/ &
+     & 3.03447e-06_rb, 2.88559e-06_rb, 2.74401e-06_rb, 2.60938e-06_rb, 2.48135e-06_rb, &
+     & 2.35961e-06_rb, 2.24384e-06_rb, 2.13375e-06_rb, 2.02906e-06_rb, 1.92951e-06_rb, &
+     & 1.83484e-06_rb, 1.74481e-06_rb, 1.65921e-06_rb, 1.57780e-06_rb, 1.50039e-06_rb, &
+     & 1.42677e-06_rb, 1.35677e-06_rb, 1.29020e-06_rb, 1.22690e-06_rb/)
+      kbo_mn2(:,16) = (/ &
+     & 1.48655e-06_rb, 1.48283e-06_rb, 1.47913e-06_rb, 1.47543e-06_rb, 1.47174e-06_rb, &
+     & 1.46806e-06_rb, 1.46439e-06_rb, 1.46072e-06_rb, 1.45707e-06_rb, 1.45343e-06_rb, &
+     & 1.44979e-06_rb, 1.44617e-06_rb, 1.44255e-06_rb, 1.43894e-06_rb, 1.43534e-06_rb, &
+     & 1.43176e-06_rb, 1.42817e-06_rb, 1.42460e-06_rb, 1.42104e-06_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &3.6742e-02_rb,1.0664e-01_rb,2.6132e-01_rb,2.7906e-01_rb,2.8151e-01_rb,2.7465e-01_rb, &
+     &2.8530e-01_rb,2.9123e-01_rb,3.0697e-01_rb,3.1801e-01_rb,3.2444e-01_rb,2.7746e-01_rb, &
+     &3.1994e-01_rb,2.9750e-01_rb,2.1226e-01_rb,1.2847e-01_rb/)
+      forrefo(2,:) = (/ &
+     &4.0450e-02_rb,1.1085e-01_rb,2.9205e-01_rb,3.1934e-01_rb,3.1739e-01_rb,3.1450e-01_rb, &
+     &3.2797e-01_rb,3.2223e-01_rb,3.3099e-01_rb,3.4800e-01_rb,3.4046e-01_rb,3.5700e-01_rb, &
+     &3.8264e-01_rb,3.6679e-01_rb,3.3481e-01_rb,3.2113e-01_rb/)
+      forrefo(3,:) = (/ &
+     &4.6952e-02_rb,1.1999e-01_rb,3.1473e-01_rb,3.7015e-01_rb,3.6913e-01_rb,3.6352e-01_rb, &
+     &3.7754e-01_rb,3.7402e-01_rb,3.7113e-01_rb,3.7720e-01_rb,3.8365e-01_rb,4.0876e-01_rb, &
+     &4.2968e-01_rb,4.4186e-01_rb,4.3468e-01_rb,4.7083e-01_rb/)
+      forrefo(4,:) = (/ &
+     &7.0645e-02_rb,1.6618e-01_rb,2.8516e-01_rb,3.1819e-01_rb,3.0131e-01_rb,2.9552e-01_rb, &
+     &2.8972e-01_rb,2.9348e-01_rb,2.8668e-01_rb,2.8483e-01_rb,2.8130e-01_rb,2.7757e-01_rb, &
+     &2.9735e-01_rb,3.1684e-01_rb,3.0681e-01_rb,3.6778e-01_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 2.16803e+00_rb, 1.98236e+00_rb, 1.81260e+00_rb, 1.65737e+00_rb, 1.51544e+00_rb, &
+     & 1.38567e+00_rb, 1.26700e+00_rb, 1.15850e+00_rb, 1.05929e+00_rb, 9.68576e-01_rb/)
+      selfrefo(:, 2) = (/ &
+     & 3.70149e+00_rb, 3.43145e+00_rb, 3.18110e+00_rb, 2.94902e+00_rb, 2.73387e+00_rb, &
+     & 2.53441e+00_rb, 2.34951e+00_rb, 2.17810e+00_rb, 2.01919e+00_rb, 1.87188e+00_rb/)
+      selfrefo(:, 3) = (/ &
+     & 6.17433e+00_rb, 5.62207e+00_rb, 5.11920e+00_rb, 4.66131e+00_rb, 4.24438e+00_rb, &
+     & 3.86474e+00_rb, 3.51906e+00_rb, 3.20430e+00_rb, 2.91769e+00_rb, 2.65672e+00_rb/)
+      selfrefo(:, 4) = (/ &
+     & 6.56459e+00_rb, 5.94787e+00_rb, 5.38910e+00_rb, 4.88282e+00_rb, 4.42410e+00_rb, &
+     & 4.00848e+00_rb, 3.63190e+00_rb, 3.29070e+00_rb, 2.98155e+00_rb, 2.70145e+00_rb/)
+      selfrefo(:, 5) = (/ &
+     & 6.49581e+00_rb, 5.91114e+00_rb, 5.37910e+00_rb, 4.89494e+00_rb, 4.45436e+00_rb, &
+     & 4.05344e+00_rb, 3.68860e+00_rb, 3.35660e+00_rb, 3.05448e+00_rb, 2.77956e+00_rb/)
+      selfrefo(:, 6) = (/ &
+     & 6.50189e+00_rb, 5.89381e+00_rb, 5.34260e+00_rb, 4.84294e+00_rb, 4.39001e+00_rb, &
+     & 3.97944e+00_rb, 3.60727e+00_rb, 3.26990e+00_rb, 2.96409e+00_rb, 2.68687e+00_rb/)
+      selfrefo(:, 7) = (/ &
+     & 6.64768e+00_rb, 6.01719e+00_rb, 5.44650e+00_rb, 4.92993e+00_rb, 4.46236e+00_rb, &
+     & 4.03914e+00_rb, 3.65605e+00_rb, 3.30930e+00_rb, 2.99543e+00_rb, 2.71134e+00_rb/)
+      selfrefo(:, 8) = (/ &
+     & 6.43744e+00_rb, 5.87166e+00_rb, 5.35560e+00_rb, 4.88490e+00_rb, 4.45557e+00_rb, &
+     & 4.06397e+00_rb, 3.70679e+00_rb, 3.38100e+00_rb, 3.08384e+00_rb, 2.81281e+00_rb/)
+      selfrefo(:, 9) = (/ &
+     & 6.55466e+00_rb, 5.99777e+00_rb, 5.48820e+00_rb, 5.02192e+00_rb, 4.59525e+00_rb, &
+     & 4.20484e+00_rb, 3.84759e+00_rb, 3.52070e+00_rb, 3.22158e+00_rb, 2.94787e+00_rb/)
+      selfrefo(:,10) = (/ &
+     & 6.84510e+00_rb, 6.26933e+00_rb, 5.74200e+00_rb, 5.25902e+00_rb, 4.81667e+00_rb, &
+     & 4.41152e+00_rb, 4.04046e+00_rb, 3.70060e+00_rb, 3.38933e+00_rb, 3.10424e+00_rb/)
+      selfrefo(:,11) = (/ &
+     & 6.83128e+00_rb, 6.25536e+00_rb, 5.72800e+00_rb, 5.24510e+00_rb, 4.80291e+00_rb, &
+     & 4.39799e+00_rb, 4.02722e+00_rb, 3.68770e+00_rb, 3.37681e+00_rb, 3.09212e+00_rb/)
+      selfrefo(:,12) = (/ &
+     & 7.35969e+00_rb, 6.61719e+00_rb, 5.94960e+00_rb, 5.34936e+00_rb, 4.80968e+00_rb, &
+     & 4.32445e+00_rb, 3.88817e+00_rb, 3.49590e+00_rb, 3.14321e+00_rb, 2.82610e+00_rb/)
+      selfrefo(:,13) = (/ &
+     & 7.50064e+00_rb, 6.80749e+00_rb, 6.17840e+00_rb, 5.60744e+00_rb, 5.08925e+00_rb, &
+     & 4.61894e+00_rb, 4.19210e+00_rb, 3.80470e+00_rb, 3.45310e+00_rb, 3.13399e+00_rb/)
+      selfrefo(:,14) = (/ &
+     & 7.40801e+00_rb, 6.71328e+00_rb, 6.08370e+00_rb, 5.51316e+00_rb, 4.99613e+00_rb, &
+     & 4.52759e+00_rb, 4.10298e+00_rb, 3.71820e+00_rb, 3.36950e+00_rb, 3.05351e+00_rb/)
+      selfrefo(:,15) = (/ &
+     & 7.51895e+00_rb, 6.68846e+00_rb, 5.94970e+00_rb, 5.29254e+00_rb, 4.70796e+00_rb, &
+     & 4.18795e+00_rb, 3.72538e+00_rb, 3.31390e+00_rb, 2.94787e+00_rb, 2.62227e+00_rb/)
+      selfrefo(:,16) = (/ &
+     & 7.84774e+00_rb, 6.80673e+00_rb, 5.90380e+00_rb, 5.12065e+00_rb, 4.44138e+00_rb, &
+     & 3.85223e+00_rb, 3.34122e+00_rb, 2.89800e+00_rb, 2.51357e+00_rb, 2.18014e+00_rb/)
+
+      end subroutine lw_kgb01
+
+! **************************************************************************
+      subroutine lw_kgb02
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg02, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level: P = 1053.630 mbar, T = 294.2 K
+      fracrefao(:) = (/ &
+        1.6388e-01_rb, 1.5241e-01_rb, 1.4290e-01_rb, 1.2864e-01_rb, &
+        1.1615e-01_rb, 1.0047e-01_rb, 8.0013e-02_rb, 6.0445e-02_rb, &
+        4.0530e-02_rb, 4.3879e-03_rb, 3.5726e-03_rb, 2.7669e-03_rb, &
+        2.0078e-03_rb, 1.2864e-03_rb, 4.7630e-04_rb, 6.9109e-05_rb/)
+
+! Planck fraction mapping level: P = 3.206e-2 mb, T = 197.92 K
+      fracrefbo(:) = (/ &
+        1.4697e-01_rb, 1.4826e-01_rb, 1.4278e-01_rb, 1.3320e-01_rb, &
+        1.1965e-01_rb, 1.0297e-01_rb, 8.4170e-02_rb, 6.3282e-02_rb, &
+        4.2868e-02_rb, 4.6644e-03_rb, 3.8619e-03_rb, 3.0533e-03_rb, &
+        2.2359e-03_rb, 1.4226e-03_rb, 5.3642e-04_rb, 7.6316e-05_rb/)
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     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 corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1) = (/ &
+     &4.9444e-03_rb,5.9459e-03_rb,7.0909e-03_rb,8.2082e-03_rb,9.2071e-03_rb/)
+      kao(:, 2, 1) = (/ &
+     &3.6253e-03_rb,4.3860e-03_rb,5.2541e-03_rb,6.0419e-03_rb,6.8835e-03_rb/)
+      kao(:, 3, 1) = (/ &
+     &2.5338e-03_rb,3.0985e-03_rb,3.7400e-03_rb,4.2996e-03_rb,4.9675e-03_rb/)
+      kao(:, 4, 1) = (/ &
+     &1.7755e-03_rb,2.1973e-03_rb,2.6664e-03_rb,3.1111e-03_rb,3.6091e-03_rb/)
+      kao(:, 5, 1) = (/ &
+     &1.2565e-03_rb,1.5789e-03_rb,1.9196e-03_rb,2.3096e-03_rb,2.6519e-03_rb/)
+      kao(:, 6, 1) = (/ &
+     &8.8624e-04_rb,1.1175e-03_rb,1.3818e-03_rb,1.6934e-03_rb,1.9635e-03_rb/)
+      kao(:, 7, 1) = (/ &
+     &6.2843e-04_rb,7.9253e-04_rb,1.0012e-03_rb,1.2222e-03_rb,1.4734e-03_rb/)
+      kao(:, 8, 1) = (/ &
+     &4.5023e-04_rb,5.6483e-04_rb,7.1568e-04_rb,8.9026e-04_rb,1.0929e-03_rb/)
+      kao(:, 9, 1) = (/ &
+     &3.2520e-04_rb,4.0407e-04_rb,5.1209e-04_rb,6.4949e-04_rb,7.9581e-04_rb/)
+      kao(:,10, 1) = (/ &
+     &2.4126e-04_rb,2.9581e-04_rb,3.7404e-04_rb,4.7585e-04_rb,5.9085e-04_rb/)
+      kao(:,11, 1) = (/ &
+     &1.9501e-04_rb,2.4152e-04_rb,3.0649e-04_rb,3.9104e-04_rb,4.8881e-04_rb/)
+      kao(:,12, 1) = (/ &
+     &1.5881e-04_rb,1.9763e-04_rb,2.5177e-04_rb,3.2441e-04_rb,4.0632e-04_rb/)
+      kao(:,13, 1) = (/ &
+     &1.3003e-04_rb,1.6216e-04_rb,2.0768e-04_rb,2.6864e-04_rb,3.3497e-04_rb/)
+      kao(:, 1, 2) = (/ &
+     &1.0027e-02_rb,1.1791e-02_rb,1.3932e-02_rb,1.6666e-02_rb,2.0126e-02_rb/)
+      kao(:, 2, 2) = (/ &
+     &7.4056e-03_rb,8.8285e-03_rb,1.0460e-02_rb,1.2669e-02_rb,1.5282e-02_rb/)
+      kao(:, 3, 2) = (/ &
+     &5.2661e-03_rb,6.2928e-03_rb,7.5540e-03_rb,9.2387e-03_rb,1.1182e-02_rb/)
+      kao(:, 4, 2) = (/ &
+     &3.7830e-03_rb,4.5144e-03_rb,5.4622e-03_rb,6.6869e-03_rb,8.1435e-03_rb/)
+      kao(:, 5, 2) = (/ &
+     &2.7480e-03_rb,3.3042e-03_rb,3.9726e-03_rb,4.8258e-03_rb,5.9510e-03_rb/)
+      kao(:, 6, 2) = (/ &
+     &2.0063e-03_rb,2.3984e-03_rb,2.8713e-03_rb,3.4864e-03_rb,4.3135e-03_rb/)
+      kao(:, 7, 2) = (/ &
+     &1.4846e-03_rb,1.7453e-03_rb,2.0981e-03_rb,2.5444e-03_rb,3.1056e-03_rb/)
+      kao(:, 8, 2) = (/ &
+     &1.1210e-03_rb,1.2879e-03_rb,1.5449e-03_rb,1.8524e-03_rb,2.2562e-03_rb/)
+      kao(:, 9, 2) = (/ &
+     &8.5574e-04_rb,9.6423e-04_rb,1.1336e-03_rb,1.3659e-03_rb,1.6594e-03_rb/)
+      kao(:,10, 2) = (/ &
+     &6.6848e-04_rb,7.4016e-04_rb,8.5479e-04_rb,1.0274e-03_rb,1.2343e-03_rb/)
+      kao(:,11, 2) = (/ &
+     &5.5022e-04_rb,6.0473e-04_rb,6.9963e-04_rb,8.4106e-04_rb,1.0097e-03_rb/)
+      kao(:,12, 2) = (/ &
+     &4.4972e-04_rb,4.9436e-04_rb,5.7239e-04_rb,6.8738e-04_rb,8.3038e-04_rb/)
+      kao(:,13, 2) = (/ &
+     &3.6745e-04_rb,4.0460e-04_rb,4.6828e-04_rb,5.6427e-04_rb,6.8387e-04_rb/)
+      kao(:, 1, 3) = (/ &
+     &2.0475e-02_rb,2.4886e-02_rb,2.8056e-02_rb,3.1687e-02_rb,3.6011e-02_rb/)
+      kao(:, 2, 3) = (/ &
+     &1.5293e-02_rb,1.8649e-02_rb,2.1197e-02_rb,2.4106e-02_rb,2.7485e-02_rb/)
+      kao(:, 3, 3) = (/ &
+     &1.0918e-02_rb,1.3480e-02_rb,1.5496e-02_rb,1.7769e-02_rb,2.0398e-02_rb/)
+      kao(:, 4, 3) = (/ &
+     &7.7395e-03_rb,9.6625e-03_rb,1.1379e-02_rb,1.3130e-02_rb,1.5170e-02_rb/)
+      kao(:, 5, 3) = (/ &
+     &5.4995e-03_rb,6.9063e-03_rb,8.5233e-03_rb,9.8125e-03_rb,1.1368e-02_rb/)
+      kao(:, 6, 3) = (/ &
+     &3.9002e-03_rb,4.9307e-03_rb,6.2037e-03_rb,7.3100e-03_rb,8.4689e-03_rb/)
+      kao(:, 7, 3) = (/ &
+     &2.7369e-03_rb,3.5078e-03_rb,4.4352e-03_rb,5.5098e-03_rb,6.3463e-03_rb/)
+      kao(:, 8, 3) = (/ &
+     &1.9294e-03_rb,2.5028e-03_rb,3.1751e-03_rb,4.0255e-03_rb,4.7593e-03_rb/)
+      kao(:, 9, 3) = (/ &
+     &1.2806e-03_rb,1.7659e-03_rb,2.2786e-03_rb,2.8933e-03_rb,3.6112e-03_rb/)
+      kao(:,10, 3) = (/ &
+     &8.6429e-04_rb,1.2871e-03_rb,1.6661e-03_rb,2.1207e-03_rb,2.6956e-03_rb/)
+      kao(:,11, 3) = (/ &
+     &7.0989e-04_rb,1.0555e-03_rb,1.3691e-03_rb,1.7450e-03_rb,2.2184e-03_rb/)
+      kao(:,12, 3) = (/ &
+     &5.8630e-04_rb,8.6615e-04_rb,1.1265e-03_rb,1.4357e-03_rb,1.8221e-03_rb/)
+      kao(:,13, 3) = (/ &
+     &4.8372e-04_rb,7.1031e-04_rb,9.2618e-04_rb,1.1787e-03_rb,1.4998e-03_rb/)
+      kao(:, 1, 4) = (/ &
+     &3.4150e-02_rb,4.0367e-02_rb,4.9280e-02_rb,5.9100e-02_rb,6.9499e-02_rb/)
+      kao(:, 2, 4) = (/ &
+     &2.5504e-02_rb,3.0447e-02_rb,3.7321e-02_rb,4.4944e-02_rb,5.3298e-02_rb/)
+      kao(:, 3, 4) = (/ &
+     &1.8371e-02_rb,2.2085e-02_rb,2.7226e-02_rb,3.2994e-02_rb,3.9403e-02_rb/)
+      kao(:, 4, 4) = (/ &
+     &1.3235e-02_rb,1.6046e-02_rb,1.9813e-02_rb,2.4156e-02_rb,2.9082e-02_rb/)
+      kao(:, 5, 4) = (/ &
+     &9.5998e-03_rb,1.1709e-02_rb,1.4338e-02_rb,1.7707e-02_rb,2.1505e-02_rb/)
+      kao(:, 6, 4) = (/ &
+     &6.9022e-03_rb,8.5630e-03_rb,1.0395e-02_rb,1.2869e-02_rb,1.5787e-02_rb/)
+      kao(:, 7, 4) = (/ &
+     &5.0622e-03_rb,6.1861e-03_rb,7.5642e-03_rb,9.2835e-03_rb,1.1530e-02_rb/)
+      kao(:, 8, 4) = (/ &
+     &3.7734e-03_rb,4.4956e-03_rb,5.5749e-03_rb,6.7721e-03_rb,8.4253e-03_rb/)
+      kao(:, 9, 4) = (/ &
+     &2.9619e-03_rb,3.3315e-03_rb,4.0621e-03_rb,4.9694e-03_rb,6.1117e-03_rb/)
+      kao(:,10, 4) = (/ &
+     &2.2204e-03_rb,2.5123e-03_rb,3.0176e-03_rb,3.7321e-03_rb,4.5545e-03_rb/)
+      kao(:,11, 4) = (/ &
+     &1.8288e-03_rb,2.0602e-03_rb,2.4838e-03_rb,3.0685e-03_rb,3.7508e-03_rb/)
+      kao(:,12, 4) = (/ &
+     &1.5051e-03_rb,1.6916e-03_rb,2.0466e-03_rb,2.5239e-03_rb,3.0905e-03_rb/)
+      kao(:,13, 4) = (/ &
+     &1.2373e-03_rb,1.3907e-03_rb,1.6848e-03_rb,2.0764e-03_rb,2.5455e-03_rb/)
+      kao(:, 1, 5) = (/ &
+     &7.4128e-02_rb,9.0328e-02_rb,1.0845e-01_rb,1.2842e-01_rb,1.4993e-01_rb/)
+      kao(:, 2, 5) = (/ &
+     &5.6421e-02_rb,6.8932e-02_rb,8.3294e-02_rb,9.9111e-02_rb,1.1617e-01_rb/)
+      kao(:, 3, 5) = (/ &
+     &4.0916e-02_rb,5.0385e-02_rb,6.1257e-02_rb,7.3474e-02_rb,8.6732e-02_rb/)
+      kao(:, 4, 5) = (/ &
+     &2.9430e-02_rb,3.6556e-02_rb,4.4742e-02_rb,5.4199e-02_rb,6.4580e-02_rb/)
+      kao(:, 5, 5) = (/ &
+     &2.1212e-02_rb,2.6602e-02_rb,3.2780e-02_rb,4.0084e-02_rb,4.8236e-02_rb/)
+      kao(:, 6, 5) = (/ &
+     &1.5151e-02_rb,1.9129e-02_rb,2.3897e-02_rb,2.9436e-02_rb,3.5798e-02_rb/)
+      kao(:, 7, 5) = (/ &
+     &1.0718e-02_rb,1.3802e-02_rb,1.7389e-02_rb,2.1505e-02_rb,2.6440e-02_rb/)
+      kao(:, 8, 5) = (/ &
+     &7.4917e-03_rb,9.9125e-03_rb,1.2578e-02_rb,1.5770e-02_rb,1.9483e-02_rb/)
+      kao(:, 9, 5) = (/ &
+     &5.1168e-03_rb,7.0368e-03_rb,9.1089e-03_rb,1.1527e-02_rb,1.4293e-02_rb/)
+      kao(:,10, 5) = (/ &
+     &3.6983e-03_rb,5.0627e-03_rb,6.6991e-03_rb,8.5275e-03_rb,1.0696e-02_rb/)
+      kao(:,11, 5) = (/ &
+     &3.0484e-03_rb,4.1916e-03_rb,5.5346e-03_rb,7.0513e-03_rb,8.8498e-03_rb/)
+      kao(:,12, 5) = (/ &
+     &2.5174e-03_rb,3.4714e-03_rb,4.5718e-03_rb,5.8341e-03_rb,7.3195e-03_rb/)
+      kao(:,13, 5) = (/ &
+     &2.0770e-03_rb,2.8684e-03_rb,3.7718e-03_rb,4.8192e-03_rb,6.0412e-03_rb/)
+      kao(:, 1, 6) = (/ &
+     &2.0613e-01_rb,2.5157e-01_rb,3.0178e-01_rb,3.5683e-01_rb,4.1542e-01_rb/)
+      kao(:, 2, 6) = (/ &
+     &1.5819e-01_rb,1.9432e-01_rb,2.3452e-01_rb,2.7858e-01_rb,3.2587e-01_rb/)
+      kao(:, 3, 6) = (/ &
+     &1.1531e-01_rb,1.4306e-01_rb,1.7435e-01_rb,2.0876e-01_rb,2.4632e-01_rb/)
+      kao(:, 4, 6) = (/ &
+     &8.3284e-02_rb,1.0444e-01_rb,1.2864e-01_rb,1.5560e-01_rb,1.8535e-01_rb/)
+      kao(:, 5, 6) = (/ &
+     &6.0166e-02_rb,7.6315e-02_rb,9.4937e-02_rb,1.1604e-01_rb,1.3958e-01_rb/)
+      kao(:, 6, 6) = (/ &
+     &4.3003e-02_rb,5.5230e-02_rb,6.9447e-02_rb,8.5781e-02_rb,1.0424e-01_rb/)
+      kao(:, 7, 6) = (/ &
+     &3.0490e-02_rb,3.9769e-02_rb,5.0618e-02_rb,6.3200e-02_rb,7.7597e-02_rb/)
+      kao(:, 8, 6) = (/ &
+     &2.1570e-02_rb,2.8573e-02_rb,3.6803e-02_rb,4.6437e-02_rb,5.7626e-02_rb/)
+      kao(:, 9, 6) = (/ &
+     &1.5155e-02_rb,2.0450e-02_rb,2.6673e-02_rb,3.4004e-02_rb,4.2620e-02_rb/)
+      kao(:,10, 6) = (/ &
+     &1.0852e-02_rb,1.4893e-02_rb,1.9668e-02_rb,2.5324e-02_rb,3.1992e-02_rb/)
+      kao(:,11, 6) = (/ &
+     &9.0511e-03_rb,1.2422e-02_rb,1.6374e-02_rb,2.1084e-02_rb,2.6643e-02_rb/)
+      kao(:,12, 6) = (/ &
+     &7.5332e-03_rb,1.0338e-02_rb,1.3623e-02_rb,1.7531e-02_rb,2.2174e-02_rb/)
+      kao(:,13, 6) = (/ &
+     &6.2568e-03_rb,8.5754e-03_rb,1.1313e-02_rb,1.4562e-02_rb,1.8439e-02_rb/)
+      kao(:, 1, 7) = (/ &
+     &6.4924e-01_rb,7.7307e-01_rb,9.0386e-01_rb,1.0388e+00_rb,1.1773e+00_rb/)
+      kao(:, 2, 7) = (/ &
+     &5.0577e-01_rb,6.0786e-01_rb,7.1639e-01_rb,8.2855e-01_rb,9.4493e-01_rb/)
+      kao(:, 3, 7) = (/ &
+     &3.7384e-01_rb,4.5638e-01_rb,5.4361e-01_rb,6.3563e-01_rb,7.3108e-01_rb/)
+      kao(:, 4, 7) = (/ &
+     &2.7157e-01_rb,3.3769e-01_rb,4.0798e-01_rb,4.8298e-01_rb,5.6158e-01_rb/)
+      kao(:, 5, 7) = (/ &
+     &1.9648e-01_rb,2.4838e-01_rb,3.0521e-01_rb,3.6590e-01_rb,4.3005e-01_rb/)
+      kao(:, 6, 7) = (/ &
+     &1.3966e-01_rb,1.7987e-01_rb,2.2524e-01_rb,2.7405e-01_rb,3.2593e-01_rb/)
+      kao(:, 7, 7) = (/ &
+     &9.8353e-02_rb,1.2917e-01_rb,1.6445e-01_rb,2.0365e-01_rb,2.4531e-01_rb/)
+      kao(:, 8, 7) = (/ &
+     &6.8795e-02_rb,9.2244e-02_rb,1.1951e-01_rb,1.5053e-01_rb,1.8392e-01_rb/)
+      kao(:, 9, 7) = (/ &
+     &4.7720e-02_rb,6.5374e-02_rb,8.6294e-02_rb,1.1044e-01_rb,1.3721e-01_rb/)
+      kao(:,10, 7) = (/ &
+     &3.3881e-02_rb,4.7211e-02_rb,6.3377e-02_rb,8.2294e-02_rb,1.0374e-01_rb/)
+      kao(:,11, 7) = (/ &
+     &2.8304e-02_rb,3.9386e-02_rb,5.2911e-02_rb,6.8671e-02_rb,8.6477e-02_rb/)
+      kao(:,12, 7) = (/ &
+     &2.3643e-02_rb,3.2849e-02_rb,4.4121e-02_rb,5.7246e-02_rb,7.2052e-02_rb/)
+      kao(:,13, 7) = (/ &
+     &1.9678e-02_rb,2.7339e-02_rb,3.6693e-02_rb,4.7583e-02_rb,5.9838e-02_rb/)
+      kao(:, 1, 8) = (/ &
+     &1.5852e+00_rb,1.8937e+00_rb,2.2233e+00_rb,2.5759e+00_rb,2.9447e+00_rb/)
+      kao(:, 2, 8) = (/ &
+     &1.3020e+00_rb,1.5608e+00_rb,1.8408e+00_rb,2.1415e+00_rb,2.4614e+00_rb/)
+      kao(:, 3, 8) = (/ &
+     &1.0126e+00_rb,1.2239e+00_rb,1.4553e+00_rb,1.7040e+00_rb,1.9702e+00_rb/)
+      kao(:, 4, 8) = (/ &
+     &7.6856e-01_rb,9.4025e-01_rb,1.1316e+00_rb,1.3386e+00_rb,1.5605e+00_rb/)
+      kao(:, 5, 8) = (/ &
+     &5.7616e-01_rb,7.1359e-01_rb,8.6832e-01_rb,1.0388e+00_rb,1.2228e+00_rb/)
+      kao(:, 6, 8) = (/ &
+     &4.2350e-01_rb,5.3268e-01_rb,6.5605e-01_rb,7.9334e-01_rb,9.4223e-01_rb/)
+      kao(:, 7, 8) = (/ &
+     &3.0686e-01_rb,3.9225e-01_rb,4.9010e-01_rb,5.9944e-01_rb,7.1967e-01_rb/)
+      kao(:, 8, 8) = (/ &
+     &2.2070e-01_rb,2.8688e-01_rb,3.6348e-01_rb,4.5007e-01_rb,5.4597e-01_rb/)
+      kao(:, 9, 8) = (/ &
+     &1.5750e-01_rb,2.0832e-01_rb,2.6774e-01_rb,3.3584e-01_rb,4.1169e-01_rb/)
+      kao(:,10, 8) = (/ &
+     &1.1458e-01_rb,1.5398e-01_rb,2.0047e-01_rb,2.5420e-01_rb,3.1452e-01_rb/)
+      kao(:,11, 8) = (/ &
+     &9.6352e-02_rb,1.2945e-01_rb,1.6850e-01_rb,2.1343e-01_rb,2.6418e-01_rb/)
+      kao(:,12, 8) = (/ &
+     &8.0859e-02_rb,1.0869e-01_rb,1.4142e-01_rb,1.7905e-01_rb,2.2159e-01_rb/)
+      kao(:,13, 8) = (/ &
+     &6.7685e-02_rb,9.1028e-02_rb,1.1838e-01_rb,1.4990e-01_rb,1.8559e-01_rb/)
+      kao(:, 1, 9) = (/ &
+     &5.2550e+00_rb,6.3269e+00_rb,7.5188e+00_rb,8.8046e+00_rb,1.0194e+01_rb/)
+      kao(:, 2, 9) = (/ &
+     &4.6603e+00_rb,5.6500e+00_rb,6.7441e+00_rb,7.9369e+00_rb,9.2112e+00_rb/)
+      kao(:, 3, 9) = (/ &
+     &3.9124e+00_rb,4.7902e+00_rb,5.7591e+00_rb,6.8243e+00_rb,7.9677e+00_rb/)
+      kao(:, 4, 9) = (/ &
+     &3.2096e+00_rb,3.9597e+00_rb,4.8029e+00_rb,5.7377e+00_rb,6.7626e+00_rb/)
+      kao(:, 5, 9) = (/ &
+     &2.5970e+00_rb,3.2435e+00_rb,3.9726e+00_rb,4.7826e+00_rb,5.6814e+00_rb/)
+      kao(:, 6, 9) = (/ &
+     &2.0409e+00_rb,2.5854e+00_rb,3.2065e+00_rb,3.9078e+00_rb,4.6887e+00_rb/)
+      kao(:, 7, 9) = (/ &
+     &1.5708e+00_rb,2.0187e+00_rb,2.5381e+00_rb,3.1327e+00_rb,3.8016e+00_rb/)
+      kao(:, 8, 9) = (/ &
+     &1.1892e+00_rb,1.5546e+00_rb,1.9836e+00_rb,2.4782e+00_rb,3.0361e+00_rb/)
+      kao(:, 9, 9) = (/ &
+     &8.8412e-01_rb,1.1765e+00_rb,1.5263e+00_rb,1.9325e+00_rb,2.3921e+00_rb/)
+      kao(:,10, 9) = (/ &
+     &6.6160e-01_rb,8.9598e-01_rb,1.1789e+00_rb,1.5110e+00_rb,1.8897e+00_rb/)
+      kao(:,11, 9) = (/ &
+     &5.6952e-01_rb,7.7339e-01_rb,1.0185e+00_rb,1.3041e+00_rb,1.6292e+00_rb/)
+      kao(:,12, 9) = (/ &
+     &4.8820e-01_rb,6.6319e-01_rb,8.7290e-01_rb,1.1167e+00_rb,1.3956e+00_rb/)
+      kao(:,13, 9) = (/ &
+     &4.1555e-01_rb,5.6459e-01_rb,7.4208e-01_rb,9.4959e-01_rb,1.1894e+00_rb/)
+      kao(:, 1,10) = (/ &
+     &1.2977e+01_rb,1.5399e+01_rb,1.8084e+01_rb,2.1107e+01_rb,2.4279e+01_rb/)
+      kao(:, 2,10) = (/ &
+     &1.2242e+01_rb,1.4713e+01_rb,1.7530e+01_rb,2.0660e+01_rb,2.4161e+01_rb/)
+      kao(:, 3,10) = (/ &
+     &1.0793e+01_rb,1.3120e+01_rb,1.5954e+01_rb,1.9118e+01_rb,2.2561e+01_rb/)
+      kao(:, 4,10) = (/ &
+     &9.2115e+00_rb,1.1467e+01_rb,1.4090e+01_rb,1.6870e+01_rb,1.9865e+01_rb/)
+      kao(:, 5,10) = (/ &
+     &7.7076e+00_rb,9.6964e+00_rb,1.2018e+01_rb,1.4581e+01_rb,1.7283e+01_rb/)
+      kao(:, 6,10) = (/ &
+     &6.3938e+00_rb,8.1632e+00_rb,1.0170e+01_rb,1.2328e+01_rb,1.4702e+01_rb/)
+      kao(:, 7,10) = (/ &
+     &5.2643e+00_rb,6.8431e+00_rb,8.5879e+00_rb,1.0497e+01_rb,1.2599e+01_rb/)
+      kao(:, 8,10) = (/ &
+     &4.2306e+00_rb,5.5592e+00_rb,7.0542e+00_rb,8.7515e+00_rb,1.0687e+01_rb/)
+      kao(:, 9,10) = (/ &
+     &3.3029e+00_rb,4.4196e+00_rb,5.6740e+00_rb,7.1182e+00_rb,8.8343e+00_rb/)
+      kao(:,10,10) = (/ &
+     &2.6002e+00_rb,3.5171e+00_rb,4.6049e+00_rb,5.8654e+00_rb,7.3550e+00_rb/)
+      kao(:,11,10) = (/ &
+     &2.3411e+00_rb,3.1582e+00_rb,4.1576e+00_rb,5.3440e+00_rb,6.7154e+00_rb/)
+      kao(:,12,10) = (/ &
+     &2.0671e+00_rb,2.8097e+00_rb,3.7158e+00_rb,4.7938e+00_rb,5.9967e+00_rb/)
+      kao(:,13,10) = (/ &
+     &1.8130e+00_rb,2.4724e+00_rb,3.2908e+00_rb,4.2191e+00_rb,5.2351e+00_rb/)
+      kao(:, 1,11) = (/ &
+     &1.7369e+01_rb,2.0982e+01_rb,2.4652e+01_rb,2.8692e+01_rb,3.3179e+01_rb/)
+      kao(:, 2,11) = (/ &
+     &1.6823e+01_rb,2.0457e+01_rb,2.4236e+01_rb,2.8171e+01_rb,3.2333e+01_rb/)
+      kao(:, 3,11) = (/ &
+     &1.5375e+01_rb,1.8905e+01_rb,2.2457e+01_rb,2.6420e+01_rb,3.0766e+01_rb/)
+      kao(:, 4,11) = (/ &
+     &1.3375e+01_rb,1.6618e+01_rb,2.0128e+01_rb,2.4207e+01_rb,2.8664e+01_rb/)
+      kao(:, 5,11) = (/ &
+     &1.1552e+01_rb,1.4477e+01_rb,1.7747e+01_rb,2.1616e+01_rb,2.5966e+01_rb/)
+      kao(:, 6,11) = (/ &
+     &9.7662e+00_rb,1.2339e+01_rb,1.5425e+01_rb,1.9082e+01_rb,2.3024e+01_rb/)
+      kao(:, 7,11) = (/ &
+     &8.0435e+00_rb,1.0356e+01_rb,1.3162e+01_rb,1.6422e+01_rb,1.9976e+01_rb/)
+      kao(:, 8,11) = (/ &
+     &6.6475e+00_rb,8.6800e+00_rb,1.1208e+01_rb,1.4127e+01_rb,1.7194e+01_rb/)
+      kao(:, 9,11) = (/ &
+     &5.4286e+00_rb,7.1938e+00_rb,9.4274e+00_rb,1.1995e+01_rb,1.4788e+01_rb/)
+      kao(:,10,11) = (/ &
+     &4.4519e+00_rb,5.9777e+00_rb,7.8591e+00_rb,1.0067e+01_rb,1.2572e+01_rb/)
+      kao(:,11,11) = (/ &
+     &4.1097e+00_rb,5.5519e+00_rb,7.2615e+00_rb,9.2610e+00_rb,1.1615e+01_rb/)
+      kao(:,12,11) = (/ &
+     &3.7565e+00_rb,5.0648e+00_rb,6.6341e+00_rb,8.4916e+00_rb,1.0710e+01_rb/)
+      kao(:,13,11) = (/ &
+     &3.3842e+00_rb,4.5598e+00_rb,5.9909e+00_rb,7.7387e+00_rb,9.7720e+00_rb/)
+      kao(:, 1,12) = (/ &
+     &2.2275e+01_rb,2.7471e+01_rb,3.3492e+01_rb,4.0225e+01_rb,4.7465e+01_rb/)
+      kao(:, 2,12) = (/ &
+     &2.2476e+01_rb,2.7446e+01_rb,3.3072e+01_rb,3.9336e+01_rb,4.6205e+01_rb/)
+      kao(:, 3,12) = (/ &
+     &2.1150e+01_rb,2.6276e+01_rb,3.1885e+01_rb,3.7595e+01_rb,4.3863e+01_rb/)
+      kao(:, 4,12) = (/ &
+     &1.9455e+01_rb,2.4367e+01_rb,2.9875e+01_rb,3.5713e+01_rb,4.1802e+01_rb/)
+      kao(:, 5,12) = (/ &
+     &1.7406e+01_rb,2.2244e+01_rb,2.7648e+01_rb,3.3299e+01_rb,3.9489e+01_rb/)
+      kao(:, 6,12) = (/ &
+     &1.5271e+01_rb,1.9641e+01_rb,2.4614e+01_rb,3.0133e+01_rb,3.6348e+01_rb/)
+      kao(:, 7,12) = (/ &
+     &1.3343e+01_rb,1.7102e+01_rb,2.1495e+01_rb,2.6582e+01_rb,3.2562e+01_rb/)
+      kao(:, 8,12) = (/ &
+     &1.1399e+01_rb,1.4767e+01_rb,1.8657e+01_rb,2.3239e+01_rb,2.8870e+01_rb/)
+      kao(:, 9,12) = (/ &
+     &9.4462e+00_rb,1.2437e+01_rb,1.5942e+01_rb,2.0083e+01_rb,2.5175e+01_rb/)
+      kao(:,10,12) = (/ &
+     &7.9561e+00_rb,1.0576e+01_rb,1.3751e+01_rb,1.7625e+01_rb,2.2224e+01_rb/)
+      kao(:,11,12) = (/ &
+     &7.6703e+00_rb,1.0214e+01_rb,1.3362e+01_rb,1.7172e+01_rb,2.1565e+01_rb/)
+      kao(:,12,12) = (/ &
+     &7.3002e+00_rb,9.7613e+00_rb,1.2808e+01_rb,1.6448e+01_rb,2.0508e+01_rb/)
+      kao(:,13,12) = (/ &
+     &6.8227e+00_rb,9.1662e+00_rb,1.2005e+01_rb,1.5291e+01_rb,1.9104e+01_rb/)
+      kao(:, 1,13) = (/ &
+     &2.8154e+01_rb,3.5750e+01_rb,4.4791e+01_rb,5.4873e+01_rb,6.6140e+01_rb/)
+      kao(:, 2,13) = (/ &
+     &2.8745e+01_rb,3.6229e+01_rb,4.5340e+01_rb,5.5950e+01_rb,6.7860e+01_rb/)
+      kao(:, 3,13) = (/ &
+     &2.8731e+01_rb,3.5740e+01_rb,4.4190e+01_rb,5.4581e+01_rb,6.6390e+01_rb/)
+      kao(:, 4,13) = (/ &
+     &2.7586e+01_rb,3.5028e+01_rb,4.3053e+01_rb,5.2513e+01_rb,6.3590e+01_rb/)
+      kao(:, 5,13) = (/ &
+     &2.6083e+01_rb,3.3437e+01_rb,4.1632e+01_rb,5.0781e+01_rb,6.1113e+01_rb/)
+      kao(:, 6,13) = (/ &
+     &2.3829e+01_rb,3.1109e+01_rb,3.9228e+01_rb,4.8371e+01_rb,5.8278e+01_rb/)
+      kao(:, 7,13) = (/ &
+     &2.1209e+01_rb,2.8372e+01_rb,3.6376e+01_rb,4.5363e+01_rb,5.5372e+01_rb/)
+      kao(:, 8,13) = (/ &
+     &1.8790e+01_rb,2.5354e+01_rb,3.3043e+01_rb,4.1793e+01_rb,5.1443e+01_rb/)
+      kao(:, 9,13) = (/ &
+     &1.6798e+01_rb,2.2642e+01_rb,2.9578e+01_rb,3.7822e+01_rb,4.7058e+01_rb/)
+      kao(:,10,13) = (/ &
+     &1.4972e+01_rb,2.0558e+01_rb,2.6854e+01_rb,3.4253e+01_rb,4.2864e+01_rb/)
+      kao(:,11,13) = (/ &
+     &1.5310e+01_rb,2.0781e+01_rb,2.6920e+01_rb,3.4183e+01_rb,4.2625e+01_rb/)
+      kao(:,12,13) = (/ &
+     &1.5266e+01_rb,2.0520e+01_rb,2.6628e+01_rb,3.3712e+01_rb,4.2182e+01_rb/)
+      kao(:,13,13) = (/ &
+     &1.4957e+01_rb,1.9939e+01_rb,2.5957e+01_rb,3.3111e+01_rb,4.1486e+01_rb/)
+      kao(:, 1,14) = (/ &
+     &4.6330e+01_rb,6.0030e+01_rb,7.5480e+01_rb,9.2536e+01_rb,1.1059e+02_rb/)
+      kao(:, 2,14) = (/ &
+     &4.4855e+01_rb,5.8960e+01_rb,7.5059e+01_rb,9.2958e+01_rb,1.1209e+02_rb/)
+      kao(:, 3,14) = (/ &
+     &4.1447e+01_rb,5.4787e+01_rb,7.1113e+01_rb,8.9291e+01_rb,1.0911e+02_rb/)
+      kao(:, 4,14) = (/ &
+     &3.9104e+01_rb,5.0668e+01_rb,6.5934e+01_rb,8.3732e+01_rb,1.0396e+02_rb/)
+      kao(:, 5,14) = (/ &
+     &3.8023e+01_rb,4.8275e+01_rb,6.1835e+01_rb,7.8920e+01_rb,9.8684e+01_rb/)
+      kao(:, 6,14) = (/ &
+     &3.6671e+01_rb,4.6928e+01_rb,5.9373e+01_rb,7.4910e+01_rb,9.4120e+01_rb/)
+      kao(:, 7,14) = (/ &
+     &3.4713e+01_rb,4.5254e+01_rb,5.8164e+01_rb,7.3270e+01_rb,9.1067e+01_rb/)
+      kao(:, 8,14) = (/ &
+     &3.2317e+01_rb,4.2931e+01_rb,5.6350e+01_rb,7.1845e+01_rb,8.9533e+01_rb/)
+      kao(:, 9,14) = (/ &
+     &2.9466e+01_rb,3.9947e+01_rb,5.3450e+01_rb,6.9454e+01_rb,8.7436e+01_rb/)
+      kao(:,10,14) = (/ &
+     &2.7304e+01_rb,3.7491e+01_rb,5.1151e+01_rb,6.7458e+01_rb,8.6217e+01_rb/)
+      kao(:,11,14) = (/ &
+     &2.9371e+01_rb,4.0579e+01_rb,5.5614e+01_rb,7.3135e+01_rb,9.3406e+01_rb/)
+      kao(:,12,14) = (/ &
+     &3.1557e+01_rb,4.3832e+01_rb,5.9668e+01_rb,7.8288e+01_rb,9.9282e+01_rb/)
+      kao(:,13,14) = (/ &
+     &3.3702e+01_rb,4.7002e+01_rb,6.3302e+01_rb,8.2327e+01_rb,1.0363e+02_rb/)
+      kao(:, 1,15) = (/ &
+     &7.1097e+01_rb,9.1809e+01_rb,1.1513e+02_rb,1.4077e+02_rb,1.6931e+02_rb/)
+      kao(:, 2,15) = (/ &
+     &7.6481e+01_rb,9.9988e+01_rb,1.2655e+02_rb,1.5641e+02_rb,1.9001e+02_rb/)
+      kao(:, 3,15) = (/ &
+     &7.6089e+01_rb,1.0186e+02_rb,1.3121e+02_rb,1.6509e+02_rb,2.0316e+02_rb/)
+      kao(:, 4,15) = (/ &
+     &7.1689e+01_rb,9.8693e+01_rb,1.3061e+02_rb,1.6745e+02_rb,2.0924e+02_rb/)
+      kao(:, 5,15) = (/ &
+     &6.5396e+01_rb,9.2850e+01_rb,1.2644e+02_rb,1.6569e+02_rb,2.1030e+02_rb/)
+      kao(:, 6,15) = (/ &
+     &5.9839e+01_rb,8.4120e+01_rb,1.1791e+02_rb,1.5835e+02_rb,2.0497e+02_rb/)
+      kao(:, 7,15) = (/ &
+     &5.7504e+01_rb,7.7966e+01_rb,1.0776e+02_rb,1.4729e+02_rb,1.9476e+02_rb/)
+      kao(:, 8,15) = (/ &
+     &5.7004e+01_rb,7.5268e+01_rb,1.0086e+02_rb,1.3678e+02_rb,1.8339e+02_rb/)
+      kao(:, 9,15) = (/ &
+     &5.5577e+01_rb,7.3906e+01_rb,9.7044e+01_rb,1.2904e+02_rb,1.7226e+02_rb/)
+      kao(:,10,15) = (/ &
+     &5.5416e+01_rb,7.4211e+01_rb,9.6440e+01_rb,1.2687e+02_rb,1.6750e+02_rb/)
+      kao(:,11,15) = (/ &
+     &6.2860e+01_rb,8.4332e+01_rb,1.0913e+02_rb,1.4265e+02_rb,1.8694e+02_rb/)
+      kao(:,12,15) = (/ &
+     &7.1048e+01_rb,9.5286e+01_rb,1.2362e+02_rb,1.6046e+02_rb,2.0975e+02_rb/)
+      kao(:,13,15) = (/ &
+     &7.9451e+01_rb,1.0631e+02_rb,1.3951e+02_rb,1.8076e+02_rb,2.3534e+02_rb/)
+      kao(:, 1,16) = (/ &
+     &7.6064e+01_rb,1.0164e+02_rb,1.3126e+02_rb,1.6469e+02_rb,2.0152e+02_rb/)
+      kao(:, 2,16) = (/ &
+     &8.3803e+01_rb,1.1323e+02_rb,1.4816e+02_rb,1.8796e+02_rb,2.3219e+02_rb/)
+      kao(:, 3,16) = (/ &
+     &8.7402e+01_rb,1.1813e+02_rb,1.5778e+02_rb,2.0377e+02_rb,2.5553e+02_rb/)
+      kao(:, 4,16) = (/ &
+     &8.7865e+01_rb,1.1968e+02_rb,1.6142e+02_rb,2.1263e+02_rb,2.7144e+02_rb/)
+      kao(:, 5,16) = (/ &
+     &8.6499e+01_rb,1.2062e+02_rb,1.6367e+02_rb,2.1790e+02_rb,2.8301e+02_rb/)
+      kao(:, 6,16) = (/ &
+     &8.2494e+01_rb,1.1893e+02_rb,1.6400e+02_rb,2.2086e+02_rb,2.8964e+02_rb/)
+      kao(:, 7,16) = (/ &
+     &7.7078e+01_rb,1.1526e+02_rb,1.6302e+02_rb,2.2306e+02_rb,2.9645e+02_rb/)
+      kao(:, 8,16) = (/ &
+     &7.0841e+01_rb,1.1011e+02_rb,1.6059e+02_rb,2.2458e+02_rb,3.0342e+02_rb/)
+      kao(:, 9,16) = (/ &
+     &7.4013e+01_rb,1.0313e+02_rb,1.5566e+02_rb,2.2324e+02_rb,3.0785e+02_rb/)
+      kao(:,10,16) = (/ &
+     &8.3043e+01_rb,1.0119e+02_rb,1.5304e+02_rb,2.2535e+02_rb,3.1705e+02_rb/)
+      kao(:,11,16) = (/ &
+     &1.0007e+02_rb,1.2237e+02_rb,1.8107e+02_rb,2.6762e+02_rb,3.7672e+02_rb/)
+      kao(:,12,16) = (/ &
+     &1.1998e+02_rb,1.4801e+02_rb,2.1370e+02_rb,3.1623e+02_rb,4.4496e+02_rb/)
+      kao(:,13,16) = (/ &
+     &1.4282e+02_rb,1.7830e+02_rb,2.5018e+02_rb,3.7037e+02_rb,5.2070e+02_rb/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:,13, 1) = (/ &
+     &1.3000e-04_rb,1.6216e-04_rb,2.0768e-04_rb,2.6864e-04_rb,3.3497e-04_rb/)
+      kbo(:,14, 1) = (/ &
+     &1.0850e-04_rb,1.3602e-04_rb,1.7553e-04_rb,2.2686e-04_rb,2.8162e-04_rb/)
+      kbo(:,15, 1) = (/ &
+     &9.0864e-05_rb,1.1476e-04_rb,1.4832e-04_rb,1.9081e-04_rb,2.3698e-04_rb/)
+      kbo(:,16, 1) = (/ &
+     &7.6202e-05_rb,9.6897e-05_rb,1.2521e-04_rb,1.6032e-04_rb,1.9925e-04_rb/)
+      kbo(:,17, 1) = (/ &
+     &6.3984e-05_rb,8.1671e-05_rb,1.0565e-04_rb,1.3448e-04_rb,1.6696e-04_rb/)
+      kbo(:,18, 1) = (/ &
+     &5.3749e-05_rb,6.8759e-05_rb,8.9036e-05_rb,1.1274e-04_rb,1.3824e-04_rb/)
+      kbo(:,19, 1) = (/ &
+     &4.5160e-05_rb,5.7874e-05_rb,7.4954e-05_rb,9.4487e-05_rb,1.1485e-04_rb/)
+      kbo(:,20, 1) = (/ &
+     &3.8050e-05_rb,4.8934e-05_rb,6.3376e-05_rb,7.9393e-05_rb,9.5565e-05_rb/)
+      kbo(:,21, 1) = (/ &
+     &3.2121e-05_rb,4.1368e-05_rb,5.3585e-05_rb,6.6749e-05_rb,7.9704e-05_rb/)
+      kbo(:,22, 1) = (/ &
+     &2.7597e-05_rb,3.5606e-05_rb,4.6066e-05_rb,5.6919e-05_rb,6.7252e-05_rb/)
+      kbo(:,23, 1) = (/ &
+     &2.3703e-05_rb,3.0672e-05_rb,3.9251e-05_rb,4.8622e-05_rb,5.6783e-05_rb/)
+      kbo(:,24, 1) = (/ &
+     &2.0444e-05_rb,2.6471e-05_rb,3.3535e-05_rb,4.1441e-05_rb,4.8070e-05_rb/)
+      kbo(:,25, 1) = (/ &
+     &1.7691e-05_rb,2.2899e-05_rb,2.8737e-05_rb,3.4776e-05_rb,4.0820e-05_rb/)
+      kbo(:,26, 1) = (/ &
+     &1.5391e-05_rb,1.9900e-05_rb,2.4708e-05_rb,2.9438e-05_rb,3.4884e-05_rb/)
+      kbo(:,27, 1) = (/ &
+     &1.3401e-05_rb,1.7231e-05_rb,2.1300e-05_rb,2.5041e-05_rb,2.9843e-05_rb/)
+      kbo(:,28, 1) = (/ &
+     &1.1671e-05_rb,1.4827e-05_rb,1.8383e-05_rb,2.1307e-05_rb,2.5549e-05_rb/)
+      kbo(:,29, 1) = (/ &
+     &1.0183e-05_rb,1.2798e-05_rb,1.5535e-05_rb,1.8197e-05_rb,2.1838e-05_rb/)
+      kbo(:,30, 1) = (/ &
+     &8.8844e-06_rb,1.1043e-05_rb,1.3172e-05_rb,1.5593e-05_rb,1.8678e-05_rb/)
+      kbo(:,31, 1) = (/ &
+     &7.7313e-06_rb,9.5518e-06_rb,1.1237e-05_rb,1.3382e-05_rb,1.5999e-05_rb/)
+      kbo(:,32, 1) = (/ &
+     &6.6794e-06_rb,8.2781e-06_rb,9.5924e-06_rb,1.1496e-05_rb,1.3717e-05_rb/)
+      kbo(:,33, 1) = (/ &
+     &5.7815e-06_rb,7.0042e-06_rb,8.2098e-06_rb,9.8489e-06_rb,1.1766e-05_rb/)
+      kbo(:,34, 1) = (/ &
+     &4.9641e-06_rb,5.9235e-06_rb,7.0090e-06_rb,8.3895e-06_rb,1.0037e-05_rb/)
+      kbo(:,35, 1) = (/ &
+     &4.1780e-06_rb,4.9520e-06_rb,5.8797e-06_rb,7.0288e-06_rb,8.4123e-06_rb/)
+      kbo(:,36, 1) = (/ &
+     &3.4370e-06_rb,4.0690e-06_rb,4.8335e-06_rb,5.7766e-06_rb,6.9140e-06_rb/)
+      kbo(:,37, 1) = (/ &
+     &2.7366e-06_rb,3.2617e-06_rb,3.8617e-06_rb,4.6224e-06_rb,5.5308e-06_rb/)
+      kbo(:,38, 1) = (/ &
+     &2.1763e-06_rb,2.6155e-06_rb,3.0811e-06_rb,3.6939e-06_rb,4.4152e-06_rb/)
+      kbo(:,39, 1) = (/ &
+     &1.7313e-06_rb,2.1017e-06_rb,2.4606e-06_rb,2.9519e-06_rb,3.5266e-06_rb/)
+      kbo(:,40, 1) = (/ &
+     &1.3469e-06_rb,1.6693e-06_rb,1.9344e-06_rb,2.3182e-06_rb,2.7667e-06_rb/)
+      kbo(:,41, 1) = (/ &
+     &1.0461e-06_rb,1.2927e-06_rb,1.5201e-06_rb,1.8107e-06_rb,2.1653e-06_rb/)
+      kbo(:,42, 1) = (/ &
+     &8.0658e-07_rb,1.0022e-06_rb,1.1943e-06_rb,1.4143e-06_rb,1.6945e-06_rb/)
+      kbo(:,43, 1) = (/ &
+     &6.1022e-07_rb,7.6847e-07_rb,9.3637e-07_rb,1.0945e-06_rb,1.3137e-06_rb/)
+      kbo(:,44, 1) = (/ &
+     &4.5840e-07_rb,5.8613e-07_rb,7.2558e-07_rb,8.4731e-07_rb,1.0130e-06_rb/)
+      kbo(:,45, 1) = (/ &
+     &3.4424e-07_rb,4.4504e-07_rb,5.5242e-07_rb,6.5691e-07_rb,7.7925e-07_rb/)
+      kbo(:,46, 1) = (/ &
+     &2.5697e-07_rb,3.3261e-07_rb,4.1921e-07_rb,5.1218e-07_rb,5.9773e-07_rb/)
+      kbo(:,47, 1) = (/ &
+     &1.8987e-07_rb,2.4567e-07_rb,3.1544e-07_rb,3.9053e-07_rb,4.5787e-07_rb/)
+      kbo(:,48, 1) = (/ &
+     &1.4058e-07_rb,1.8138e-07_rb,2.3483e-07_rb,2.9330e-07_rb,3.5197e-07_rb/)
+      kbo(:,49, 1) = (/ &
+     &1.0462e-07_rb,1.3385e-07_rb,1.7347e-07_rb,2.2053e-07_rb,2.7396e-07_rb/)
+      kbo(:,50, 1) = (/ &
+     &7.9205e-08_rb,9.9611e-08_rb,1.2890e-07_rb,1.6695e-07_rb,2.0670e-07_rb/)
+      kbo(:,51, 1) = (/ &
+     &6.0628e-08_rb,7.4396e-08_rb,9.6049e-08_rb,1.2454e-07_rb,1.5638e-07_rb/)
+      kbo(:,52, 1) = (/ &
+     &4.5002e-08_rb,5.5943e-08_rb,7.1532e-08_rb,9.2844e-08_rb,1.1852e-07_rb/)
+      kbo(:,53, 1) = (/ &
+     &3.2555e-08_rb,4.2490e-08_rb,5.3383e-08_rb,6.9149e-08_rb,8.9727e-08_rb/)
+      kbo(:,54, 1) = (/ &
+     &2.3696e-08_rb,3.2653e-08_rb,4.0140e-08_rb,5.1914e-08_rb,6.7441e-08_rb/)
+      kbo(:,55, 1) = (/ &
+     &1.7247e-08_rb,2.4546e-08_rb,3.0469e-08_rb,3.9087e-08_rb,5.0840e-08_rb/)
+      kbo(:,56, 1) = (/ &
+     &1.2515e-08_rb,1.8025e-08_rb,2.3296e-08_rb,2.9456e-08_rb,3.8300e-08_rb/)
+      kbo(:,57, 1) = (/ &
+     &9.0211e-09_rb,1.3183e-08_rb,1.7891e-08_rb,2.2220e-08_rb,2.8857e-08_rb/)
+      kbo(:,58, 1) = (/ &
+     &6.4935e-09_rb,9.6472e-09_rb,1.3706e-08_rb,1.6858e-08_rb,2.1803e-08_rb/)
+      kbo(:,59, 1) = (/ &
+     &5.0413e-09_rb,7.5477e-09_rb,1.0800e-08_rb,1.3392e-08_rb,1.7290e-08_rb/)
+      kbo(:,13, 2) = (/ &
+     &3.6782e-04_rb,4.0460e-04_rb,4.6828e-04_rb,5.6427e-04_rb,6.8387e-04_rb/)
+      kbo(:,14, 2) = (/ &
+     &3.0206e-04_rb,3.3534e-04_rb,3.8904e-04_rb,4.6908e-04_rb,5.7354e-04_rb/)
+      kbo(:,15, 2) = (/ &
+     &2.4903e-04_rb,2.7718e-04_rb,3.2574e-04_rb,3.9271e-04_rb,4.8202e-04_rb/)
+      kbo(:,16, 2) = (/ &
+     &2.0570e-04_rb,2.3043e-04_rb,2.7323e-04_rb,3.2940e-04_rb,4.0539e-04_rb/)
+      kbo(:,17, 2) = (/ &
+     &1.6973e-04_rb,1.9226e-04_rb,2.2908e-04_rb,2.7627e-04_rb,3.4057e-04_rb/)
+      kbo(:,18, 2) = (/ &
+     &1.4059e-04_rb,1.6018e-04_rb,1.9182e-04_rb,2.3171e-04_rb,2.8730e-04_rb/)
+      kbo(:,19, 2) = (/ &
+     &1.1617e-04_rb,1.3358e-04_rb,1.6042e-04_rb,1.9424e-04_rb,2.4177e-04_rb/)
+      kbo(:,20, 2) = (/ &
+     &9.6546e-05_rb,1.1187e-04_rb,1.3461e-04_rb,1.6319e-04_rb,2.0430e-04_rb/)
+      kbo(:,21, 2) = (/ &
+     &8.0465e-05_rb,9.3512e-05_rb,1.1260e-04_rb,1.3712e-04_rb,1.7240e-04_rb/)
+      kbo(:,22, 2) = (/ &
+     &6.7521e-05_rb,7.9100e-05_rb,9.4853e-05_rb,1.1694e-04_rb,1.4756e-04_rb/)
+      kbo(:,23, 2) = (/ &
+     &5.6632e-05_rb,6.7211e-05_rb,8.0875e-05_rb,9.9624e-05_rb,1.2638e-04_rb/)
+      kbo(:,24, 2) = (/ &
+     &4.7866e-05_rb,5.7310e-05_rb,6.9154e-05_rb,8.5301e-05_rb,1.0831e-04_rb/)
+      kbo(:,25, 2) = (/ &
+     &4.0652e-05_rb,4.8933e-05_rb,5.9257e-05_rb,7.3835e-05_rb,9.2951e-05_rb/)
+      kbo(:,26, 2) = (/ &
+     &3.4655e-05_rb,4.1694e-05_rb,5.0935e-05_rb,6.3979e-05_rb,8.0042e-05_rb/)
+      kbo(:,27, 2) = (/ &
+     &2.9633e-05_rb,3.5562e-05_rb,4.3853e-05_rb,5.5348e-05_rb,6.8920e-05_rb/)
+      kbo(:,28, 2) = (/ &
+     &2.5432e-05_rb,3.0614e-05_rb,3.7665e-05_rb,4.7871e-05_rb,5.9328e-05_rb/)
+      kbo(:,29, 2) = (/ &
+     &2.1848e-05_rb,2.6432e-05_rb,3.2844e-05_rb,4.1383e-05_rb,5.1047e-05_rb/)
+      kbo(:,30, 2) = (/ &
+     &1.8680e-05_rb,2.2782e-05_rb,2.8578e-05_rb,3.5766e-05_rb,4.3772e-05_rb/)
+      kbo(:,31, 2) = (/ &
+     &1.5971e-05_rb,1.9690e-05_rb,2.4825e-05_rb,3.0907e-05_rb,3.7564e-05_rb/)
+      kbo(:,32, 2) = (/ &
+     &1.3804e-05_rb,1.6977e-05_rb,2.1562e-05_rb,2.6712e-05_rb,3.2275e-05_rb/)
+      kbo(:,33, 2) = (/ &
+     &1.1945e-05_rb,1.4856e-05_rb,1.8696e-05_rb,2.3037e-05_rb,2.7659e-05_rb/)
+      kbo(:,34, 2) = (/ &
+     &1.0252e-05_rb,1.2851e-05_rb,1.6075e-05_rb,1.9670e-05_rb,2.3561e-05_rb/)
+      kbo(:,35, 2) = (/ &
+     &8.6288e-06_rb,1.0847e-05_rb,1.3532e-05_rb,1.6502e-05_rb,1.9733e-05_rb/)
+      kbo(:,36, 2) = (/ &
+     &7.0970e-06_rb,8.9246e-06_rb,1.1130e-05_rb,1.3564e-05_rb,1.6217e-05_rb/)
+      kbo(:,37, 2) = (/ &
+     &5.6546e-06_rb,7.0912e-06_rb,8.8667e-06_rb,1.0842e-05_rb,1.2980e-05_rb/)
+      kbo(:,38, 2) = (/ &
+     &4.4964e-06_rb,5.6180e-06_rb,7.0484e-06_rb,8.6481e-06_rb,1.0377e-05_rb/)
+      kbo(:,39, 2) = (/ &
+     &3.5794e-06_rb,4.4460e-06_rb,5.6006e-06_rb,6.9055e-06_rb,8.2935e-06_rb/)
+      kbo(:,40, 2) = (/ &
+     &2.7849e-06_rb,3.4244e-06_rb,4.3497e-06_rb,5.3888e-06_rb,6.5103e-06_rb/)
+      kbo(:,41, 2) = (/ &
+     &2.1634e-06_rb,2.6661e-06_rb,3.3623e-06_rb,4.1856e-06_rb,5.0849e-06_rb/)
+      kbo(:,42, 2) = (/ &
+     &1.6951e-06_rb,2.0688e-06_rb,2.5958e-06_rb,3.2479e-06_rb,3.9733e-06_rb/)
+      kbo(:,43, 2) = (/ &
+     &1.3156e-06_rb,1.5889e-06_rb,1.9703e-06_rb,2.4872e-06_rb,3.0727e-06_rb/)
+      kbo(:,44, 2) = (/ &
+     &1.0083e-06_rb,1.2108e-06_rb,1.4918e-06_rb,1.8898e-06_rb,2.3484e-06_rb/)
+      kbo(:,45, 2) = (/ &
+     &7.7597e-07_rb,9.3178e-07_rb,1.1396e-06_rb,1.4323e-06_rb,1.7919e-06_rb/)
+      kbo(:,46, 2) = (/ &
+     &5.9640e-07_rb,7.1743e-07_rb,8.6664e-07_rb,1.0739e-06_rb,1.3585e-06_rb/)
+      kbo(:,47, 2) = (/ &
+     &4.5875e-07_rb,5.4303e-07_rb,6.5202e-07_rb,8.0415e-07_rb,1.0165e-06_rb/)
+      kbo(:,48, 2) = (/ &
+     &3.5634e-07_rb,4.1385e-07_rb,4.9968e-07_rb,6.0505e-07_rb,7.5779e-07_rb/)
+      kbo(:,49, 2) = (/ &
+     &2.7966e-07_rb,3.1607e-07_rb,3.7849e-07_rb,4.5539e-07_rb,5.6073e-07_rb/)
+      kbo(:,50, 2) = (/ &
+     &2.2335e-07_rb,2.4619e-07_rb,2.8832e-07_rb,3.4563e-07_rb,4.2520e-07_rb/)
+      kbo(:,51, 2) = (/ &
+     &1.6810e-07_rb,1.9184e-07_rb,2.2126e-07_rb,2.6681e-07_rb,3.2272e-07_rb/)
+      kbo(:,52, 2) = (/ &
+     &1.2477e-07_rb,1.5183e-07_rb,1.7051e-07_rb,2.0325e-07_rb,2.4465e-07_rb/)
+      kbo(:,53, 2) = (/ &
+     &9.1697e-08_rb,1.2163e-07_rb,1.3293e-07_rb,1.5546e-07_rb,1.8654e-07_rb/)
+      kbo(:,54, 2) = (/ &
+     &6.8066e-08_rb,9.0724e-08_rb,1.0426e-07_rb,1.1988e-07_rb,1.4459e-07_rb/)
+      kbo(:,55, 2) = (/ &
+     &5.0853e-08_rb,6.8116e-08_rb,8.2949e-08_rb,9.3086e-08_rb,1.1106e-07_rb/)
+      kbo(:,56, 2) = (/ &
+     &3.8097e-08_rb,5.0708e-08_rb,6.6601e-08_rb,7.3097e-08_rb,8.5626e-08_rb/)
+      kbo(:,57, 2) = (/ &
+     &2.8575e-08_rb,3.7778e-08_rb,5.0543e-08_rb,5.7226e-08_rb,6.6193e-08_rb/)
+      kbo(:,58, 2) = (/ &
+     &2.1274e-08_rb,2.8319e-08_rb,3.8061e-08_rb,4.5485e-08_rb,5.1336e-08_rb/)
+      kbo(:,59, 2) = (/ &
+     &1.6785e-08_rb,2.2389e-08_rb,3.0047e-08_rb,3.6850e-08_rb,4.1308e-08_rb/)
+      kbo(:,13, 3) = (/ &
+     &4.8329e-04_rb,7.1031e-04_rb,9.2618e-04_rb,1.1787e-03_rb,1.4998e-03_rb/)
+      kbo(:,14, 3) = (/ &
+     &4.1573e-04_rb,5.9621e-04_rb,7.7781e-04_rb,9.9253e-04_rb,1.2561e-03_rb/)
+      kbo(:,15, 3) = (/ &
+     &3.5745e-04_rb,5.0356e-04_rb,6.5391e-04_rb,8.3999e-04_rb,1.0559e-03_rb/)
+      kbo(:,16, 3) = (/ &
+     &3.0758e-04_rb,4.2512e-04_rb,5.5063e-04_rb,7.1032e-04_rb,8.8405e-04_rb/)
+      kbo(:,17, 3) = (/ &
+     &2.6428e-04_rb,3.5939e-04_rb,4.6476e-04_rb,5.9990e-04_rb,7.3444e-04_rb/)
+      kbo(:,18, 3) = (/ &
+     &2.2620e-04_rb,3.0371e-04_rb,3.9242e-04_rb,5.0569e-04_rb,6.1057e-04_rb/)
+      kbo(:,19, 3) = (/ &
+     &1.9349e-04_rb,2.5703e-04_rb,3.3045e-04_rb,4.2572e-04_rb,5.0885e-04_rb/)
+      kbo(:,20, 3) = (/ &
+     &1.6601e-04_rb,2.1679e-04_rb,2.7938e-04_rb,3.5877e-04_rb,4.2456e-04_rb/)
+      kbo(:,21, 3) = (/ &
+     &1.3973e-04_rb,1.8356e-04_rb,2.3660e-04_rb,3.0163e-04_rb,3.5438e-04_rb/)
+      kbo(:,22, 3) = (/ &
+     &1.2024e-04_rb,1.5775e-04_rb,2.0424e-04_rb,2.5718e-04_rb,2.9870e-04_rb/)
+      kbo(:,23, 3) = (/ &
+     &1.0421e-04_rb,1.3581e-04_rb,1.7576e-04_rb,2.1785e-04_rb,2.5256e-04_rb/)
+      kbo(:,24, 3) = (/ &
+     &9.0642e-05_rb,1.1736e-04_rb,1.5142e-04_rb,1.8334e-04_rb,2.1432e-04_rb/)
+      kbo(:,25, 3) = (/ &
+     &7.8653e-05_rb,1.0139e-04_rb,1.3046e-04_rb,1.5520e-04_rb,1.8200e-04_rb/)
+      kbo(:,26, 3) = (/ &
+     &6.8347e-05_rb,8.8330e-05_rb,1.1221e-04_rb,1.3139e-04_rb,1.5501e-04_rb/)
+      kbo(:,27, 3) = (/ &
+     &5.9438e-05_rb,7.7110e-05_rb,9.6484e-05_rb,1.1163e-04_rb,1.3198e-04_rb/)
+      kbo(:,28, 3) = (/ &
+     &5.1865e-05_rb,6.7062e-05_rb,8.1622e-05_rb,9.5189e-05_rb,1.1250e-04_rb/)
+      kbo(:,29, 3) = (/ &
+     &4.5229e-05_rb,5.8248e-05_rb,6.9371e-05_rb,8.1305e-05_rb,9.5987e-05_rb/)
+      kbo(:,30, 3) = (/ &
+     &3.9548e-05_rb,5.0236e-05_rb,5.8927e-05_rb,6.9361e-05_rb,8.1985e-05_rb/)
+      kbo(:,31, 3) = (/ &
+     &3.4672e-05_rb,4.3357e-05_rb,5.0119e-05_rb,5.9230e-05_rb,7.0087e-05_rb/)
+      kbo(:,32, 3) = (/ &
+     &3.0291e-05_rb,3.6761e-05_rb,4.2859e-05_rb,5.0621e-05_rb,5.9826e-05_rb/)
+      kbo(:,33, 3) = (/ &
+     &2.6343e-05_rb,3.1291e-05_rb,3.6685e-05_rb,4.3251e-05_rb,5.1136e-05_rb/)
+      kbo(:,34, 3) = (/ &
+     &2.2619e-05_rb,2.6479e-05_rb,3.1160e-05_rb,3.6817e-05_rb,4.3454e-05_rb/)
+      kbo(:,35, 3) = (/ &
+     &1.9044e-05_rb,2.2094e-05_rb,2.6069e-05_rb,3.0814e-05_rb,3.6332e-05_rb/)
+      kbo(:,36, 3) = (/ &
+     &1.5660e-05_rb,1.8150e-05_rb,2.1420e-05_rb,2.5318e-05_rb,2.9845e-05_rb/)
+      kbo(:,37, 3) = (/ &
+     &1.2481e-05_rb,1.4567e-05_rb,1.7160e-05_rb,2.0273e-05_rb,2.3924e-05_rb/)
+      kbo(:,38, 3) = (/ &
+     &9.9229e-06_rb,1.1707e-05_rb,1.3728e-05_rb,1.6208e-05_rb,1.9147e-05_rb/)
+      kbo(:,39, 3) = (/ &
+     &7.8980e-06_rb,9.3824e-06_rb,1.0994e-05_rb,1.2956e-05_rb,1.5319e-05_rb/)
+      kbo(:,40, 3) = (/ &
+     &6.1214e-06_rb,7.4148e-06_rb,8.6411e-06_rb,1.0203e-05_rb,1.2052e-05_rb/)
+      kbo(:,41, 3) = (/ &
+     &4.7079e-06_rb,5.8792e-06_rb,6.7814e-06_rb,8.0075e-06_rb,9.4649e-06_rb/)
+      kbo(:,42, 3) = (/ &
+     &3.6048e-06_rb,4.5698e-06_rb,5.3449e-06_rb,6.2854e-06_rb,7.4263e-06_rb/)
+      kbo(:,43, 3) = (/ &
+     &2.7216e-06_rb,3.5076e-06_rb,4.1783e-06_rb,4.8932e-06_rb,5.7661e-06_rb/)
+      kbo(:,44, 3) = (/ &
+     &2.0468e-06_rb,2.6504e-06_rb,3.2648e-06_rb,3.7820e-06_rb,4.4701e-06_rb/)
+      kbo(:,45, 3) = (/ &
+     &1.5361e-06_rb,1.9893e-06_rb,2.5184e-06_rb,2.9393e-06_rb,3.4602e-06_rb/)
+      kbo(:,46, 3) = (/ &
+     &1.1503e-06_rb,1.4832e-06_rb,1.9137e-06_rb,2.2823e-06_rb,2.6719e-06_rb/)
+      kbo(:,47, 3) = (/ &
+     &8.3777e-07_rb,1.0971e-06_rb,1.4217e-06_rb,1.7739e-06_rb,2.0443e-06_rb/)
+      kbo(:,48, 3) = (/ &
+     &6.1407e-07_rb,8.0972e-07_rb,1.0453e-06_rb,1.3363e-06_rb,1.5776e-06_rb/)
+      kbo(:,49, 3) = (/ &
+     &4.3890e-07_rb,5.9676e-07_rb,7.7449e-07_rb,1.0018e-06_rb,1.2151e-06_rb/)
+      kbo(:,50, 3) = (/ &
+     &3.0232e-07_rb,4.3632e-07_rb,5.7501e-07_rb,7.4600e-07_rb,9.3964e-07_rb/)
+      kbo(:,51, 3) = (/ &
+     &2.1820e-07_rb,3.2558e-07_rb,4.2933e-07_rb,5.5411e-07_rb,7.1236e-07_rb/)
+      kbo(:,52, 3) = (/ &
+     &1.6142e-07_rb,2.3096e-07_rb,3.1815e-07_rb,4.1428e-07_rb,5.3670e-07_rb/)
+      kbo(:,53, 3) = (/ &
+     &1.2239e-07_rb,1.5927e-07_rb,2.3415e-07_rb,3.0848e-07_rb,4.0010e-07_rb/)
+      kbo(:,54, 3) = (/ &
+     &9.4287e-08_rb,1.1772e-07_rb,1.7609e-07_rb,2.3226e-07_rb,2.9972e-07_rb/)
+      kbo(:,55, 3) = (/ &
+     &7.3559e-08_rb,8.8158e-08_rb,1.2627e-07_rb,1.7401e-07_rb,2.2659e-07_rb/)
+      kbo(:,56, 3) = (/ &
+     &5.7474e-08_rb,6.7419e-08_rb,8.9064e-08_rb,1.2949e-07_rb,1.7067e-07_rb/)
+      kbo(:,57, 3) = (/ &
+     &4.5317e-08_rb,5.2043e-08_rb,6.5424e-08_rb,9.7761e-08_rb,1.2882e-07_rb/)
+      kbo(:,58, 3) = (/ &
+     &3.4988e-08_rb,4.0617e-08_rb,4.8970e-08_rb,7.1601e-08_rb,9.7431e-08_rb/)
+      kbo(:,59, 3) = (/ &
+     &2.8131e-08_rb,3.2653e-08_rb,3.8986e-08_rb,5.5678e-08_rb,7.6933e-08_rb/)
+      kbo(:,13, 4) = (/ &
+     &1.2375e-03_rb,1.3907e-03_rb,1.6848e-03_rb,2.0764e-03_rb,2.5455e-03_rb/)
+      kbo(:,14, 4) = (/ &
+     &1.0352e-03_rb,1.1626e-03_rb,1.4153e-03_rb,1.7410e-03_rb,2.1410e-03_rb/)
+      kbo(:,15, 4) = (/ &
+     &8.6916e-04_rb,9.7450e-04_rb,1.1918e-03_rb,1.4617e-03_rb,1.8090e-03_rb/)
+      kbo(:,16, 4) = (/ &
+     &7.1556e-04_rb,8.1812e-04_rb,1.0040e-03_rb,1.2311e-03_rb,1.5286e-03_rb/)
+      kbo(:,17, 4) = (/ &
+     &5.8965e-04_rb,6.8521e-04_rb,8.4372e-04_rb,1.0375e-03_rb,1.2976e-03_rb/)
+      kbo(:,18, 4) = (/ &
+     &4.8726e-04_rb,5.7342e-04_rb,7.0979e-04_rb,8.7350e-04_rb,1.0996e-03_rb/)
+      kbo(:,19, 4) = (/ &
+     &4.0346e-04_rb,4.7923e-04_rb,5.9512e-04_rb,7.3474e-04_rb,9.2909e-04_rb/)
+      kbo(:,20, 4) = (/ &
+     &3.3252e-04_rb,4.0340e-04_rb,5.0129e-04_rb,6.2120e-04_rb,7.8738e-04_rb/)
+      kbo(:,21, 4) = (/ &
+     &2.7824e-04_rb,3.3959e-04_rb,4.2206e-04_rb,5.2456e-04_rb,6.6651e-04_rb/)
+      kbo(:,22, 4) = (/ &
+     &2.3686e-04_rb,2.9111e-04_rb,3.6067e-04_rb,4.4836e-04_rb,5.7225e-04_rb/)
+      kbo(:,23, 4) = (/ &
+     &2.0203e-04_rb,2.4985e-04_rb,3.0880e-04_rb,3.8545e-04_rb,4.9113e-04_rb/)
+      kbo(:,24, 4) = (/ &
+     &1.7215e-04_rb,2.1409e-04_rb,2.6491e-04_rb,3.3340e-04_rb,4.2129e-04_rb/)
+      kbo(:,25, 4) = (/ &
+     &1.4744e-04_rb,1.8341e-04_rb,2.2761e-04_rb,2.8826e-04_rb,3.6138e-04_rb/)
+      kbo(:,26, 4) = (/ &
+     &1.2712e-04_rb,1.5795e-04_rb,1.9671e-04_rb,2.5046e-04_rb,3.1109e-04_rb/)
+      kbo(:,27, 4) = (/ &
+     &1.1012e-04_rb,1.3626e-04_rb,1.6969e-04_rb,2.1697e-04_rb,2.6764e-04_rb/)
+      kbo(:,28, 4) = (/ &
+     &9.5268e-05_rb,1.1775e-04_rb,1.4811e-04_rb,1.8739e-04_rb,2.3002e-04_rb/)
+      kbo(:,29, 4) = (/ &
+     &8.1990e-05_rb,1.0183e-04_rb,1.2887e-04_rb,1.6155e-04_rb,1.9779e-04_rb/)
+      kbo(:,30, 4) = (/ &
+     &7.0812e-05_rb,8.8197e-05_rb,1.1209e-04_rb,1.3932e-04_rb,1.6990e-04_rb/)
+      kbo(:,31, 4) = (/ &
+     &6.1297e-05_rb,7.6242e-05_rb,9.7371e-05_rb,1.2004e-04_rb,1.4578e-04_rb/)
+      kbo(:,32, 4) = (/ &
+     &5.3068e-05_rb,6.6743e-05_rb,8.4358e-05_rb,1.0341e-04_rb,1.2514e-04_rb/)
+      kbo(:,33, 4) = (/ &
+     &4.6021e-05_rb,5.8210e-05_rb,7.2823e-05_rb,8.9095e-05_rb,1.0732e-04_rb/)
+      kbo(:,34, 4) = (/ &
+     &3.9611e-05_rb,5.0325e-05_rb,6.2484e-05_rb,7.6131e-05_rb,9.1418e-05_rb/)
+      kbo(:,35, 4) = (/ &
+     &3.3314e-05_rb,4.2493e-05_rb,5.2519e-05_rb,6.3851e-05_rb,7.6543e-05_rb/)
+      kbo(:,36, 4) = (/ &
+     &2.7397e-05_rb,3.4956e-05_rb,4.3170e-05_rb,5.2466e-05_rb,6.2879e-05_rb/)
+      kbo(:,37, 4) = (/ &
+     &2.1842e-05_rb,2.7769e-05_rb,3.4424e-05_rb,4.1912e-05_rb,5.0314e-05_rb/)
+      kbo(:,38, 4) = (/ &
+     &1.7352e-05_rb,2.1971e-05_rb,2.7389e-05_rb,3.3429e-05_rb,4.0195e-05_rb/)
+      kbo(:,39, 4) = (/ &
+     &1.3770e-05_rb,1.7414e-05_rb,2.1778e-05_rb,2.6648e-05_rb,3.2100e-05_rb/)
+      kbo(:,40, 4) = (/ &
+     &1.0696e-05_rb,1.3450e-05_rb,1.6968e-05_rb,2.0795e-05_rb,2.5164e-05_rb/)
+      kbo(:,41, 4) = (/ &
+     &8.2926e-06_rb,1.0301e-05_rb,1.3150e-05_rb,1.6196e-05_rb,1.9663e-05_rb/)
+      kbo(:,42, 4) = (/ &
+     &6.4321e-06_rb,7.9930e-06_rb,1.0153e-05_rb,1.2599e-05_rb,1.5345e-05_rb/)
+      kbo(:,43, 4) = (/ &
+     &4.9294e-06_rb,6.1147e-06_rb,7.7222e-06_rb,9.6711e-06_rb,1.1840e-05_rb/)
+      kbo(:,44, 4) = (/ &
+     &3.7796e-06_rb,4.6518e-06_rb,5.8136e-06_rb,7.3808e-06_rb,9.0677e-06_rb/)
+      kbo(:,45, 4) = (/ &
+     &2.8649e-06_rb,3.5446e-06_rb,4.4045e-06_rb,5.6003e-06_rb,6.9419e-06_rb/)
+      kbo(:,46, 4) = (/ &
+     &2.1636e-06_rb,2.6897e-06_rb,3.3348e-06_rb,4.2109e-06_rb,5.2785e-06_rb/)
+      kbo(:,47, 4) = (/ &
+     &1.6423e-06_rb,2.0325e-06_rb,2.5019e-06_rb,3.1092e-06_rb,3.9697e-06_rb/)
+      kbo(:,48, 4) = (/ &
+     &1.2438e-06_rb,1.5176e-06_rb,1.8805e-06_rb,2.3386e-06_rb,2.9598e-06_rb/)
+      kbo(:,49, 4) = (/ &
+     &9.6637e-07_rb,1.1421e-06_rb,1.4184e-06_rb,1.7520e-06_rb,2.2027e-06_rb/)
+      kbo(:,50, 4) = (/ &
+     &7.6681e-07_rb,8.7015e-07_rb,1.0718e-06_rb,1.3233e-06_rb,1.6436e-06_rb/)
+      kbo(:,51, 4) = (/ &
+     &5.7638e-07_rb,6.6674e-07_rb,8.0765e-07_rb,1.0019e-06_rb,1.2448e-06_rb/)
+      kbo(:,52, 4) = (/ &
+     &4.3579e-07_rb,5.2641e-07_rb,6.1480e-07_rb,7.6360e-07_rb,9.4101e-07_rb/)
+      kbo(:,53, 4) = (/ &
+     &3.2630e-07_rb,4.1175e-07_rb,4.6866e-07_rb,5.7670e-07_rb,7.1273e-07_rb/)
+      kbo(:,54, 4) = (/ &
+     &2.4508e-07_rb,3.1226e-07_rb,3.6234e-07_rb,4.3785e-07_rb,5.4334e-07_rb/)
+      kbo(:,55, 4) = (/ &
+     &1.8867e-07_rb,2.3849e-07_rb,2.8812e-07_rb,3.3656e-07_rb,4.1795e-07_rb/)
+      kbo(:,56, 4) = (/ &
+     &1.3888e-07_rb,1.8052e-07_rb,2.2770e-07_rb,2.5896e-07_rb,3.1922e-07_rb/)
+      kbo(:,57, 4) = (/ &
+     &9.9211e-08_rb,1.3628e-07_rb,1.7309e-07_rb,2.0040e-07_rb,2.4315e-07_rb/)
+      kbo(:,58, 4) = (/ &
+     &7.2311e-08_rb,1.0440e-07_rb,1.3249e-07_rb,1.5839e-07_rb,1.8707e-07_rb/)
+      kbo(:,59, 4) = (/ &
+     &5.6449e-08_rb,8.3969e-08_rb,1.0579e-07_rb,1.2870e-07_rb,1.4987e-07_rb/)
+      kbo(:,13, 5) = (/ &
+     &2.0768e-03_rb,2.8684e-03_rb,3.7718e-03_rb,4.8192e-03_rb,6.0412e-03_rb/)
+      kbo(:,14, 5) = (/ &
+     &1.7564e-03_rb,2.4332e-03_rb,3.1824e-03_rb,4.0625e-03_rb,5.0889e-03_rb/)
+      kbo(:,15, 5) = (/ &
+     &1.4908e-03_rb,2.0712e-03_rb,2.6934e-03_rb,3.4353e-03_rb,4.2909e-03_rb/)
+      kbo(:,16, 5) = (/ &
+     &1.2837e-03_rb,1.7624e-03_rb,2.2850e-03_rb,2.9120e-03_rb,3.6366e-03_rb/)
+      kbo(:,17, 5) = (/ &
+     &1.1007e-03_rb,1.4970e-03_rb,1.9372e-03_rb,2.4633e-03_rb,3.0868e-03_rb/)
+      kbo(:,18, 5) = (/ &
+     &9.3998e-04_rb,1.2697e-03_rb,1.6378e-03_rb,2.0802e-03_rb,2.6082e-03_rb/)
+      kbo(:,19, 5) = (/ &
+     &8.0100e-04_rb,1.0742e-03_rb,1.3849e-03_rb,1.7569e-03_rb,2.2030e-03_rb/)
+      kbo(:,20, 5) = (/ &
+     &6.8663e-04_rb,9.1195e-04_rb,1.1757e-03_rb,1.4883e-03_rb,1.8647e-03_rb/)
+      kbo(:,21, 5) = (/ &
+     &5.8705e-04_rb,7.7399e-04_rb,9.9752e-04_rb,1.2607e-03_rb,1.5771e-03_rb/)
+      kbo(:,22, 5) = (/ &
+     &5.1050e-04_rb,6.6826e-04_rb,8.5880e-04_rb,1.0835e-03_rb,1.3514e-03_rb/)
+      kbo(:,23, 5) = (/ &
+     &4.4216e-04_rb,5.7700e-04_rb,7.3906e-04_rb,9.3102e-04_rb,1.1572e-03_rb/)
+      kbo(:,24, 5) = (/ &
+     &3.8397e-04_rb,4.9926e-04_rb,6.3682e-04_rb,8.0099e-04_rb,9.9155e-04_rb/)
+      kbo(:,25, 5) = (/ &
+     &3.3452e-04_rb,4.3352e-04_rb,5.4972e-04_rb,6.8946e-04_rb,8.5204e-04_rb/)
+      kbo(:,26, 5) = (/ &
+     &2.9253e-04_rb,3.7705e-04_rb,4.7637e-04_rb,5.9546e-04_rb,7.3410e-04_rb/)
+      kbo(:,27, 5) = (/ &
+     &2.5516e-04_rb,3.2740e-04_rb,4.1271e-04_rb,5.1423e-04_rb,6.3183e-04_rb/)
+      kbo(:,28, 5) = (/ &
+     &2.2216e-04_rb,2.8389e-04_rb,3.5748e-04_rb,4.4367e-04_rb,5.4344e-04_rb/)
+      kbo(:,29, 5) = (/ &
+     &1.9425e-04_rb,2.4642e-04_rb,3.0966e-04_rb,3.8285e-04_rb,4.6743e-04_rb/)
+      kbo(:,30, 5) = (/ &
+     &1.6916e-04_rb,2.1405e-04_rb,2.6782e-04_rb,3.3008e-04_rb,4.0176e-04_rb/)
+      kbo(:,31, 5) = (/ &
+     &1.4722e-04_rb,1.8596e-04_rb,2.3162e-04_rb,2.8455e-04_rb,3.4535e-04_rb/)
+      kbo(:,32, 5) = (/ &
+     &1.2822e-04_rb,1.6146e-04_rb,2.0021e-04_rb,2.4528e-04_rb,2.9677e-04_rb/)
+      kbo(:,33, 5) = (/ &
+     &1.1158e-04_rb,1.4011e-04_rb,1.7313e-04_rb,2.1133e-04_rb,2.5496e-04_rb/)
+      kbo(:,34, 5) = (/ &
+     &9.6356e-05_rb,1.2055e-04_rb,1.4854e-04_rb,1.8079e-04_rb,2.1758e-04_rb/)
+      kbo(:,35, 5) = (/ &
+     &8.1343e-05_rb,1.0151e-04_rb,1.2490e-04_rb,1.5178e-04_rb,1.8239e-04_rb/)
+      kbo(:,36, 5) = (/ &
+     &6.6965e-05_rb,8.3520e-05_rb,1.0275e-04_rb,1.2482e-04_rb,1.4993e-04_rb/)
+      kbo(:,37, 5) = (/ &
+     &5.3206e-05_rb,6.6545e-05_rb,8.1990e-05_rb,9.9764e-05_rb,1.2001e-04_rb/)
+      kbo(:,38, 5) = (/ &
+     &4.2208e-05_rb,5.2902e-05_rb,6.5299e-05_rb,7.9577e-05_rb,9.5895e-05_rb/)
+      kbo(:,39, 5) = (/ &
+     &3.3472e-05_rb,4.2041e-05_rb,5.1984e-05_rb,6.3462e-05_rb,7.6593e-05_rb/)
+      kbo(:,40, 5) = (/ &
+     &2.5925e-05_rb,3.2660e-05_rb,4.0509e-05_rb,4.9627e-05_rb,6.0037e-05_rb/)
+      kbo(:,41, 5) = (/ &
+     &2.0003e-05_rb,2.5267e-05_rb,3.1469e-05_rb,3.8672e-05_rb,4.6923e-05_rb/)
+      kbo(:,42, 5) = (/ &
+     &1.5411e-05_rb,1.9519e-05_rb,2.4420e-05_rb,3.0101e-05_rb,3.6637e-05_rb/)
+      kbo(:,43, 5) = (/ &
+     &1.1687e-05_rb,1.4867e-05_rb,1.8698e-05_rb,2.3140e-05_rb,2.8269e-05_rb/)
+      kbo(:,44, 5) = (/ &
+     &8.7679e-06_rb,1.1261e-05_rb,1.4209e-05_rb,1.7673e-05_rb,2.1693e-05_rb/)
+      kbo(:,45, 5) = (/ &
+     &6.5931e-06_rb,8.5087e-06_rb,1.0776e-05_rb,1.3478e-05_rb,1.6614e-05_rb/)
+      kbo(:,46, 5) = (/ &
+     &4.9080e-06_rb,6.3755e-06_rb,8.1160e-06_rb,1.0213e-05_rb,1.2647e-05_rb/)
+      kbo(:,47, 5) = (/ &
+     &3.5919e-06_rb,4.7038e-06_rb,6.0534e-06_rb,7.6485e-06_rb,9.5281e-06_rb/)
+      kbo(:,48, 5) = (/ &
+     &2.6062e-06_rb,3.4739e-06_rb,4.4987e-06_rb,5.7085e-06_rb,7.1618e-06_rb/)
+      kbo(:,49, 5) = (/ &
+     &1.8621e-06_rb,2.5496e-06_rb,3.3246e-06_rb,4.2578e-06_rb,5.3684e-06_rb/)
+      kbo(:,50, 5) = (/ &
+     &1.3311e-06_rb,1.8748e-06_rb,2.4717e-06_rb,3.1893e-06_rb,4.0386e-06_rb/)
+      kbo(:,51, 5) = (/ &
+     &9.8374e-07_rb,1.3665e-06_rb,1.8393e-06_rb,2.3887e-06_rb,3.0388e-06_rb/)
+      kbo(:,52, 5) = (/ &
+     &7.2293e-07_rb,9.8525e-07_rb,1.3616e-06_rb,1.7795e-06_rb,2.2858e-06_rb/)
+      kbo(:,53, 5) = (/ &
+     &5.3539e-07_rb,7.1322e-07_rb,1.0025e-06_rb,1.3275e-06_rb,1.7157e-06_rb/)
+      kbo(:,54, 5) = (/ &
+     &3.9532e-07_rb,5.3074e-07_rb,7.3585e-07_rb,9.9485e-07_rb,1.2941e-06_rb/)
+      kbo(:,55, 5) = (/ &
+     &2.9574e-07_rb,3.9534e-07_rb,5.3898e-07_rb,7.4534e-07_rb,9.7510e-07_rb/)
+      kbo(:,56, 5) = (/ &
+     &2.2158e-07_rb,2.9575e-07_rb,3.9553e-07_rb,5.5662e-07_rb,7.3612e-07_rb/)
+      kbo(:,57, 5) = (/ &
+     &1.7387e-07_rb,2.1999e-07_rb,2.9597e-07_rb,4.1152e-07_rb,5.5434e-07_rb/)
+      kbo(:,58, 5) = (/ &
+     &1.3813e-07_rb,1.6569e-07_rb,2.2197e-07_rb,3.0386e-07_rb,4.1774e-07_rb/)
+      kbo(:,59, 5) = (/ &
+     &1.1153e-07_rb,1.3014e-07_rb,1.7513e-07_rb,2.3832e-07_rb,3.3096e-07_rb/)
+      kbo(:,13, 6) = (/ &
+     &6.2563e-03_rb,8.5754e-03_rb,1.1313e-02_rb,1.4562e-02_rb,1.8439e-02_rb/)
+      kbo(:,14, 6) = (/ &
+     &5.3407e-03_rb,7.2874e-03_rb,9.6031e-03_rb,1.2344e-02_rb,1.5616e-02_rb/)
+      kbo(:,15, 6) = (/ &
+     &4.5624e-03_rb,6.2026e-03_rb,8.1616e-03_rb,1.0480e-02_rb,1.3236e-02_rb/)
+      kbo(:,16, 6) = (/ &
+     &3.8957e-03_rb,5.2793e-03_rb,6.9259e-03_rb,8.8846e-03_rb,1.1202e-02_rb/)
+      kbo(:,17, 6) = (/ &
+     &3.3209e-03_rb,4.4815e-03_rb,5.8698e-03_rb,7.5204e-03_rb,9.4486e-03_rb/)
+      kbo(:,18, 6) = (/ &
+     &2.8290e-03_rb,3.8089e-03_rb,4.9773e-03_rb,6.3684e-03_rb,7.9890e-03_rb/)
+      kbo(:,19, 6) = (/ &
+     &2.4112e-03_rb,3.2462e-03_rb,4.2316e-03_rb,5.4060e-03_rb,6.7720e-03_rb/)
+      kbo(:,20, 6) = (/ &
+     &2.0691e-03_rb,2.7791e-03_rb,3.6122e-03_rb,4.6028e-03_rb,5.7715e-03_rb/)
+      kbo(:,21, 6) = (/ &
+     &1.7739e-03_rb,2.3724e-03_rb,3.0729e-03_rb,3.9123e-03_rb,4.9081e-03_rb/)
+      kbo(:,22, 6) = (/ &
+     &1.5468e-03_rb,2.0535e-03_rb,2.6512e-03_rb,3.3770e-03_rb,4.2260e-03_rb/)
+      kbo(:,23, 6) = (/ &
+     &1.3475e-03_rb,1.7768e-03_rb,2.2959e-03_rb,2.9141e-03_rb,3.6373e-03_rb/)
+      kbo(:,24, 6) = (/ &
+     &1.1752e-03_rb,1.5439e-03_rb,1.9895e-03_rb,2.5170e-03_rb,3.1328e-03_rb/)
+      kbo(:,25, 6) = (/ &
+     &1.0263e-03_rb,1.3444e-03_rb,1.7264e-03_rb,2.1761e-03_rb,2.6990e-03_rb/)
+      kbo(:,26, 6) = (/ &
+     &9.0166e-04_rb,1.1758e-03_rb,1.5031e-03_rb,1.8871e-03_rb,2.3306e-03_rb/)
+      kbo(:,27, 6) = (/ &
+     &7.9141e-04_rb,1.0269e-03_rb,1.3074e-03_rb,1.6348e-03_rb,2.0092e-03_rb/)
+      kbo(:,28, 6) = (/ &
+     &6.9371e-04_rb,8.9592e-04_rb,1.1355e-03_rb,1.4137e-03_rb,1.7327e-03_rb/)
+      kbo(:,29, 6) = (/ &
+     &6.0795e-04_rb,7.8166e-04_rb,9.8572e-04_rb,1.2233e-03_rb,1.4938e-03_rb/)
+      kbo(:,30, 6) = (/ &
+     &5.3230e-04_rb,6.8106e-04_rb,8.5522e-04_rb,1.0576e-03_rb,1.2859e-03_rb/)
+      kbo(:,31, 6) = (/ &
+     &4.6592e-04_rb,5.9303e-04_rb,7.4221e-04_rb,9.1346e-04_rb,1.1061e-03_rb/)
+      kbo(:,32, 6) = (/ &
+     &4.0751e-04_rb,5.1643e-04_rb,6.4366e-04_rb,7.8848e-04_rb,9.5095e-04_rb/)
+      kbo(:,33, 6) = (/ &
+     &3.5610e-04_rb,4.4934e-04_rb,5.5753e-04_rb,6.8015e-04_rb,8.1668e-04_rb/)
+      kbo(:,34, 6) = (/ &
+     &3.0849e-04_rb,3.8773e-04_rb,4.7909e-04_rb,5.8242e-04_rb,6.9697e-04_rb/)
+      kbo(:,35, 6) = (/ &
+     &2.6100e-04_rb,3.2729e-04_rb,4.0344e-04_rb,4.8961e-04_rb,5.8449e-04_rb/)
+      kbo(:,36, 6) = (/ &
+     &2.1525e-04_rb,2.6972e-04_rb,3.3236e-04_rb,4.0320e-04_rb,4.8106e-04_rb/)
+      kbo(:,37, 6) = (/ &
+     &1.7127e-04_rb,2.1505e-04_rb,2.6562e-04_rb,3.2288e-04_rb,3.8605e-04_rb/)
+      kbo(:,38, 6) = (/ &
+     &1.3592e-04_rb,1.7107e-04_rb,2.1184e-04_rb,2.5803e-04_rb,3.0917e-04_rb/)
+      kbo(:,39, 6) = (/ &
+     &1.0785e-04_rb,1.3607e-04_rb,1.6885e-04_rb,2.0614e-04_rb,2.4755e-04_rb/)
+      kbo(:,40, 6) = (/ &
+     &8.3445e-05_rb,1.0573e-04_rb,1.3174e-04_rb,1.6145e-04_rb,1.9465e-04_rb/)
+      kbo(:,41, 6) = (/ &
+     &6.4274e-05_rb,8.1836e-05_rb,1.0238e-04_rb,1.2600e-04_rb,1.5256e-04_rb/)
+      kbo(:,42, 6) = (/ &
+     &4.9425e-05_rb,6.3242e-05_rb,7.9461e-05_rb,9.8197e-05_rb,1.1940e-04_rb/)
+      kbo(:,43, 6) = (/ &
+     &3.7393e-05_rb,4.8142e-05_rb,6.0818e-05_rb,7.5575e-05_rb,9.2337e-05_rb/)
+      kbo(:,44, 6) = (/ &
+     &2.8031e-05_rb,3.6364e-05_rb,4.6223e-05_rb,5.7754e-05_rb,7.0960e-05_rb/)
+      kbo(:,45, 6) = (/ &
+     &2.0952e-05_rb,2.7396e-05_rb,3.5050e-05_rb,4.4048e-05_rb,5.4413e-05_rb/)
+      kbo(:,46, 6) = (/ &
+     &1.5504e-05_rb,2.0469e-05_rb,2.6380e-05_rb,3.3353e-05_rb,4.1465e-05_rb/)
+      kbo(:,47, 6) = (/ &
+     &1.1285e-05_rb,1.5071e-05_rb,1.9596e-05_rb,2.4961e-05_rb,3.1243e-05_rb/)
+      kbo(:,48, 6) = (/ &
+     &8.1713e-06_rb,1.1048e-05_rb,1.4507e-05_rb,1.8626e-05_rb,2.3478e-05_rb/)
+      kbo(:,49, 6) = (/ &
+     &5.8892e-06_rb,8.0594e-06_rb,1.0700e-05_rb,1.3854e-05_rb,1.7591e-05_rb/)
+      kbo(:,50, 6) = (/ &
+     &4.2527e-06_rb,5.8989e-06_rb,7.9160e-06_rb,1.0341e-05_rb,1.3223e-05_rb/)
+      kbo(:,51, 6) = (/ &
+     &3.0672e-06_rb,4.3146e-06_rb,5.8537e-06_rb,7.7179e-06_rb,9.9420e-06_rb/)
+      kbo(:,52, 6) = (/ &
+     &2.1919e-06_rb,3.1415e-06_rb,4.3130e-06_rb,5.7435e-06_rb,7.4576e-06_rb/)
+      kbo(:,53, 6) = (/ &
+     &1.5489e-06_rb,2.2740e-06_rb,3.1638e-06_rb,4.2575e-06_rb,5.5767e-06_rb/)
+      kbo(:,54, 6) = (/ &
+     &1.1055e-06_rb,1.6569e-06_rb,2.3353e-06_rb,3.1738e-06_rb,4.1929e-06_rb/)
+      kbo(:,55, 6) = (/ &
+     &7.7959e-07_rb,1.2025e-06_rb,1.7241e-06_rb,2.3677e-06_rb,3.1567e-06_rb/)
+      kbo(:,56, 6) = (/ &
+     &5.5393e-07_rb,8.6666e-07_rb,1.2673e-06_rb,1.7619e-06_rb,2.3695e-06_rb/)
+      kbo(:,57, 6) = (/ &
+     &3.8362e-07_rb,6.2174e-07_rb,9.3002e-07_rb,1.3068e-06_rb,1.7740e-06_rb/)
+      kbo(:,58, 6) = (/ &
+     &2.6381e-07_rb,4.4330e-07_rb,6.7991e-07_rb,9.7066e-07_rb,1.3310e-06_rb/)
+      kbo(:,59, 6) = (/ &
+     &2.0120e-07_rb,3.4415e-07_rb,5.3237e-07_rb,7.6501e-07_rb,1.0533e-06_rb/)
+      kbo(:,13, 7) = (/ &
+     &1.9678e-02_rb,2.7339e-02_rb,3.6693e-02_rb,4.7583e-02_rb,5.9838e-02_rb/)
+      kbo(:,14, 7) = (/ &
+     &1.6855e-02_rb,2.3332e-02_rb,3.1200e-02_rb,4.0354e-02_rb,5.0549e-02_rb/)
+      kbo(:,15, 7) = (/ &
+     &1.4447e-02_rb,1.9926e-02_rb,2.6539e-02_rb,3.4203e-02_rb,4.2741e-02_rb/)
+      kbo(:,16, 7) = (/ &
+     &1.2375e-02_rb,1.7007e-02_rb,2.2570e-02_rb,2.9011e-02_rb,3.6155e-02_rb/)
+      kbo(:,17, 7) = (/ &
+     &1.0572e-02_rb,1.4480e-02_rb,1.9148e-02_rb,2.4557e-02_rb,3.0543e-02_rb/)
+      kbo(:,18, 7) = (/ &
+     &9.0187e-03_rb,1.2308e-02_rb,1.6230e-02_rb,2.0762e-02_rb,2.5754e-02_rb/)
+      kbo(:,19, 7) = (/ &
+     &7.6960e-03_rb,1.0462e-02_rb,1.3757e-02_rb,1.7553e-02_rb,2.1712e-02_rb/)
+      kbo(:,20, 7) = (/ &
+     &6.5947e-03_rb,8.9295e-03_rb,1.1707e-02_rb,1.4880e-02_rb,1.8332e-02_rb/)
+      kbo(:,21, 7) = (/ &
+     &5.6518e-03_rb,7.6362e-03_rb,9.9897e-03_rb,1.2646e-02_rb,1.5515e-02_rb/)
+      kbo(:,22, 7) = (/ &
+     &4.9551e-03_rb,6.6562e-03_rb,8.6611e-03_rb,1.0883e-02_rb,1.3285e-02_rb/)
+      kbo(:,23, 7) = (/ &
+     &4.3463e-03_rb,5.8019e-03_rb,7.4874e-03_rb,9.3424e-03_rb,1.1393e-02_rb/)
+      kbo(:,24, 7) = (/ &
+     &3.8088e-03_rb,5.0439e-03_rb,6.4617e-03_rb,8.0406e-03_rb,9.7631e-03_rb/)
+      kbo(:,25, 7) = (/ &
+     &3.3364e-03_rb,4.3855e-03_rb,5.5891e-03_rb,6.9199e-03_rb,8.3730e-03_rb/)
+      kbo(:,26, 7) = (/ &
+     &2.9302e-03_rb,3.8269e-03_rb,4.8484e-03_rb,5.9724e-03_rb,7.1930e-03_rb/)
+      kbo(:,27, 7) = (/ &
+     &2.5694e-03_rb,3.3414e-03_rb,4.2035e-03_rb,5.1445e-03_rb,6.1710e-03_rb/)
+      kbo(:,28, 7) = (/ &
+     &2.2557e-03_rb,2.9117e-03_rb,3.6362e-03_rb,4.4284e-03_rb,5.2859e-03_rb/)
+      kbo(:,29, 7) = (/ &
+     &1.9791e-03_rb,2.5337e-03_rb,3.1431e-03_rb,3.8083e-03_rb,4.5227e-03_rb/)
+      kbo(:,30, 7) = (/ &
+     &1.7348e-03_rb,2.2004e-03_rb,2.7128e-03_rb,3.2695e-03_rb,3.8671e-03_rb/)
+      kbo(:,31, 7) = (/ &
+     &1.5168e-03_rb,1.9090e-03_rb,2.3389e-03_rb,2.8042e-03_rb,3.3063e-03_rb/)
+      kbo(:,32, 7) = (/ &
+     &1.3245e-03_rb,1.6546e-03_rb,2.0148e-03_rb,2.4067e-03_rb,2.8256e-03_rb/)
+      kbo(:,33, 7) = (/ &
+     &1.1547e-03_rb,1.4322e-03_rb,1.7355e-03_rb,2.0639e-03_rb,2.4127e-03_rb/)
+      kbo(:,34, 7) = (/ &
+     &9.9732e-04_rb,1.2299e-03_rb,1.4851e-03_rb,1.7585e-03_rb,2.0486e-03_rb/)
+      kbo(:,35, 7) = (/ &
+     &8.4240e-04_rb,1.0365e-03_rb,1.2482e-03_rb,1.4745e-03_rb,1.7149e-03_rb/)
+      kbo(:,36, 7) = (/ &
+     &6.9459e-04_rb,8.5479e-04_rb,1.0290e-03_rb,1.2151e-03_rb,1.4131e-03_rb/)
+      kbo(:,37, 7) = (/ &
+     &5.5418e-04_rb,6.8431e-04_rb,8.2605e-04_rb,9.7772e-04_rb,1.1393e-03_rb/)
+      kbo(:,38, 7) = (/ &
+     &4.4103e-04_rb,5.4666e-04_rb,6.6164e-04_rb,7.8531e-04_rb,9.1717e-04_rb/)
+      kbo(:,39, 7) = (/ &
+     &3.5078e-04_rb,4.3647e-04_rb,5.2986e-04_rb,6.3056e-04_rb,7.3809e-04_rb/)
+      kbo(:,40, 7) = (/ &
+     &2.7223e-04_rb,3.4099e-04_rb,4.1623e-04_rb,4.9763e-04_rb,5.8479e-04_rb/)
+      kbo(:,41, 7) = (/ &
+     &2.1016e-04_rb,2.6529e-04_rb,3.2578e-04_rb,3.9146e-04_rb,4.6190e-04_rb/)
+      kbo(:,42, 7) = (/ &
+     &1.6186e-04_rb,2.0599e-04_rb,2.5454e-04_rb,3.0749e-04_rb,3.6441e-04_rb/)
+      kbo(:,43, 7) = (/ &
+     &1.2244e-04_rb,1.5755e-04_rb,1.9631e-04_rb,2.3871e-04_rb,2.8458e-04_rb/)
+      kbo(:,44, 7) = (/ &
+     &9.1656e-05_rb,1.1940e-04_rb,1.5021e-04_rb,1.8408e-04_rb,2.2084e-04_rb/)
+      kbo(:,45, 7) = (/ &
+     &6.8343e-05_rb,9.0130e-05_rb,1.1460e-04_rb,1.4155e-04_rb,1.7102e-04_rb/)
+      kbo(:,46, 7) = (/ &
+     &5.0438e-05_rb,6.7336e-05_rb,8.6692e-05_rb,1.0813e-04_rb,1.3160e-04_rb/)
+      kbo(:,47, 7) = (/ &
+     &3.6553e-05_rb,4.9462e-05_rb,6.4648e-05_rb,8.1563e-05_rb,1.0018e-04_rb/)
+      kbo(:,48, 7) = (/ &
+     &2.6343e-05_rb,3.6142e-05_rb,4.7933e-05_rb,6.1264e-05_rb,7.5986e-05_rb/)
+      kbo(:,49, 7) = (/ &
+     &1.8866e-05_rb,2.6263e-05_rb,3.5311e-05_rb,4.5778e-05_rb,5.7425e-05_rb/)
+      kbo(:,50, 7) = (/ &
+     &1.3557e-05_rb,1.9139e-05_rb,2.6064e-05_rb,3.4268e-05_rb,4.3473e-05_rb/)
+      kbo(:,51, 7) = (/ &
+     &9.7297e-06_rb,1.3926e-05_rb,1.9216e-05_rb,2.5597e-05_rb,3.2867e-05_rb/)
+      kbo(:,52, 7) = (/ &
+     &6.9563e-06_rb,1.0085e-05_rb,1.4103e-05_rb,1.9022e-05_rb,2.4754e-05_rb/)
+      kbo(:,53, 7) = (/ &
+     &4.9502e-06_rb,7.2644e-06_rb,1.0302e-05_rb,1.4070e-05_rb,1.8558e-05_rb/)
+      kbo(:,54, 7) = (/ &
+     &3.5499e-06_rb,5.2696e-06_rb,7.5685e-06_rb,1.0462e-05_rb,1.3965e-05_rb/)
+      kbo(:,55, 7) = (/ &
+     &2.5517e-06_rb,3.8332e-06_rb,5.5671e-06_rb,7.7870e-06_rb,1.0502e-05_rb/)
+      kbo(:,56, 7) = (/ &
+     &1.8250e-06_rb,2.7802e-06_rb,4.0807e-06_rb,5.7760e-06_rb,7.8765e-06_rb/)
+      kbo(:,57, 7) = (/ &
+     &1.3020e-06_rb,2.0096e-06_rb,2.9783e-06_rb,4.2688e-06_rb,5.8872e-06_rb/)
+      kbo(:,58, 7) = (/ &
+     &9.3216e-07_rb,1.4580e-06_rb,2.1842e-06_rb,3.1634e-06_rb,4.4097e-06_rb/)
+      kbo(:,59, 7) = (/ &
+     &7.2634e-07_rb,1.1405e-06_rb,1.7167e-06_rb,2.4950e-06_rb,3.4919e-06_rb/)
+      kbo(:,13, 8) = (/ &
+     &6.7703e-02_rb,9.1028e-02_rb,1.1838e-01_rb,1.4990e-01_rb,1.8559e-01_rb/)
+      kbo(:,14, 8) = (/ &
+     &5.8222e-02_rb,7.8007e-02_rb,1.0118e-01_rb,1.2784e-01_rb,1.5811e-01_rb/)
+      kbo(:,15, 8) = (/ &
+     &5.0069e-02_rb,6.6838e-02_rb,8.6469e-02_rb,1.0901e-01_rb,1.3468e-01_rb/)
+      kbo(:,16, 8) = (/ &
+     &4.3038e-02_rb,5.7247e-02_rb,7.3838e-02_rb,9.2876e-02_rb,1.1462e-01_rb/)
+      kbo(:,17, 8) = (/ &
+     &3.6905e-02_rb,4.8922e-02_rb,6.2921e-02_rb,7.8980e-02_rb,9.7249e-02_rb/)
+      kbo(:,18, 8) = (/ &
+     &3.1539e-02_rb,4.1670e-02_rb,5.3450e-02_rb,6.6951e-02_rb,8.2335e-02_rb/)
+      kbo(:,19, 8) = (/ &
+     &2.6840e-02_rb,3.5366e-02_rb,4.5264e-02_rb,5.6569e-02_rb,6.9496e-02_rb/)
+      kbo(:,20, 8) = (/ &
+     &2.2918e-02_rb,3.0090e-02_rb,3.8404e-02_rb,4.7928e-02_rb,5.8831e-02_rb/)
+      kbo(:,21, 8) = (/ &
+     &1.9556e-02_rb,2.5586e-02_rb,3.2570e-02_rb,4.0587e-02_rb,4.9753e-02_rb/)
+      kbo(:,22, 8) = (/ &
+     &1.6988e-02_rb,2.2111e-02_rb,2.8028e-02_rb,3.4852e-02_rb,4.2609e-02_rb/)
+      kbo(:,23, 8) = (/ &
+     &1.4811e-02_rb,1.9201e-02_rb,2.4269e-02_rb,3.0112e-02_rb,3.6663e-02_rb/)
+      kbo(:,24, 8) = (/ &
+     &1.2965e-02_rb,1.6745e-02_rb,2.1118e-02_rb,2.6093e-02_rb,3.1689e-02_rb/)
+      kbo(:,25, 8) = (/ &
+     &1.1393e-02_rb,1.4643e-02_rb,1.8383e-02_rb,2.2644e-02_rb,2.7400e-02_rb/)
+      kbo(:,26, 8) = (/ &
+     &1.0038e-02_rb,1.2830e-02_rb,1.6015e-02_rb,1.9632e-02_rb,2.3704e-02_rb/)
+      kbo(:,27, 8) = (/ &
+     &8.8123e-03_rb,1.1178e-02_rb,1.3890e-02_rb,1.6992e-02_rb,2.0492e-02_rb/)
+      kbo(:,28, 8) = (/ &
+     &7.6974e-03_rb,9.7127e-03_rb,1.2040e-02_rb,1.4716e-02_rb,1.7696e-02_rb/)
+      kbo(:,29, 8) = (/ &
+     &6.7206e-03_rb,8.4382e-03_rb,1.0458e-02_rb,1.2740e-02_rb,1.5282e-02_rb/)
+      kbo(:,30, 8) = (/ &
+     &5.8552e-03_rb,7.3524e-03_rb,9.0759e-03_rb,1.1022e-02_rb,1.3175e-02_rb/)
+      kbo(:,31, 8) = (/ &
+     &5.1145e-03_rb,6.3996e-03_rb,7.8758e-03_rb,9.5283e-03_rb,1.1351e-02_rb/)
+      kbo(:,32, 8) = (/ &
+     &4.4686e-03_rb,5.5753e-03_rb,6.8326e-03_rb,8.2331e-03_rb,9.7798e-03_rb/)
+      kbo(:,33, 8) = (/ &
+     &3.9075e-03_rb,4.8544e-03_rb,5.9240e-03_rb,7.1154e-03_rb,8.4216e-03_rb/)
+      kbo(:,34, 8) = (/ &
+     &3.3885e-03_rb,4.1943e-03_rb,5.1017e-03_rb,6.1096e-03_rb,7.2102e-03_rb/)
+      kbo(:,35, 8) = (/ &
+     &2.8755e-03_rb,3.5515e-03_rb,4.3142e-03_rb,5.1540e-03_rb,6.0867e-03_rb/)
+      kbo(:,36, 8) = (/ &
+     &2.3819e-03_rb,2.9429e-03_rb,3.5744e-03_rb,4.2743e-03_rb,5.0503e-03_rb/)
+      kbo(:,37, 8) = (/ &
+     &1.9080e-03_rb,2.3651e-03_rb,2.8794e-03_rb,3.4539e-03_rb,4.0906e-03_rb/)
+      kbo(:,38, 8) = (/ &
+     &1.5252e-03_rb,1.8961e-03_rb,2.3154e-03_rb,2.7875e-03_rb,3.3076e-03_rb/)
+      kbo(:,39, 8) = (/ &
+     &1.2186e-03_rb,1.5204e-03_rb,1.8625e-03_rb,2.2483e-03_rb,2.6746e-03_rb/)
+      kbo(:,40, 8) = (/ &
+     &9.5047e-04_rb,1.1919e-03_rb,1.4679e-03_rb,1.7800e-03_rb,2.1255e-03_rb/)
+      kbo(:,41, 8) = (/ &
+     &7.3797e-04_rb,9.3055e-04_rb,1.1523e-03_rb,1.4042e-03_rb,1.6837e-03_rb/)
+      kbo(:,42, 8) = (/ &
+     &5.7195e-04_rb,7.2531e-04_rb,9.0341e-04_rb,1.1062e-03_rb,1.3320e-03_rb/)
+      kbo(:,43, 8) = (/ &
+     &4.3632e-04_rb,5.5716e-04_rb,6.9866e-04_rb,8.6074e-04_rb,1.0421e-03_rb/)
+      kbo(:,44, 8) = (/ &
+     &3.2967e-04_rb,4.2439e-04_rb,5.3607e-04_rb,6.6494e-04_rb,8.0995e-04_rb/)
+      kbo(:,45, 8) = (/ &
+     &2.4830e-04_rb,3.2230e-04_rb,4.1025e-04_rb,5.1229e-04_rb,6.2794e-04_rb/)
+      kbo(:,46, 8) = (/ &
+     &1.8517e-04_rb,2.4270e-04_rb,3.1143e-04_rb,3.9189e-04_rb,4.8363e-04_rb/)
+      kbo(:,47, 8) = (/ &
+     &1.3585e-04_rb,1.8008e-04_rb,2.3317e-04_rb,2.9603e-04_rb,3.6826e-04_rb/)
+      kbo(:,48, 8) = (/ &
+     &9.9135e-05_rb,1.3301e-04_rb,1.7388e-04_rb,2.2278e-04_rb,2.7947e-04_rb/)
+      kbo(:,49, 8) = (/ &
+     &7.1904e-05_rb,9.7733e-05_rb,1.2918e-04_rb,1.6699e-04_rb,2.1129e-04_rb/)
+      kbo(:,50, 8) = (/ &
+     &5.2307e-05_rb,7.2019e-05_rb,9.6216e-05_rb,1.2554e-04_rb,1.6020e-04_rb/)
+      kbo(:,51, 8) = (/ &
+     &3.7969e-05_rb,5.2997e-05_rb,7.1620e-05_rb,9.4315e-05_rb,1.2143e-04_rb/)
+      kbo(:,52, 8) = (/ &
+     &2.7413e-05_rb,3.8825e-05_rb,5.3093e-05_rb,7.0665e-05_rb,9.1720e-05_rb/)
+      kbo(:,53, 8) = (/ &
+     &1.9654e-05_rb,2.8289e-05_rb,3.9179e-05_rb,5.2708e-05_rb,6.9024e-05_rb/)
+      kbo(:,54, 8) = (/ &
+     &1.4176e-05_rb,2.0734e-05_rb,2.9077e-05_rb,3.9534e-05_rb,5.2234e-05_rb/)
+      kbo(:,55, 8) = (/ &
+     &1.0223e-05_rb,1.5194e-05_rb,2.1592e-05_rb,2.9664e-05_rb,3.9585e-05_rb/)
+      kbo(:,56, 8) = (/ &
+     &7.3305e-06_rb,1.1089e-05_rb,1.5976e-05_rb,2.2196e-05_rb,2.9906e-05_rb/)
+      kbo(:,57, 8) = (/ &
+     &5.2231e-06_rb,8.0475e-06_rb,1.1769e-05_rb,1.6548e-05_rb,2.2524e-05_rb/)
+      kbo(:,58, 8) = (/ &
+     &3.7230e-06_rb,5.8489e-06_rb,8.6848e-06_rb,1.2363e-05_rb,1.6999e-05_rb/)
+      kbo(:,59, 8) = (/ &
+     &2.8893e-06_rb,4.5778e-06_rb,6.8447e-06_rb,9.7955e-06_rb,1.3534e-05_rb/)
+      kbo(:,13, 9) = (/ &
+     &4.1576e-01_rb,5.6459e-01_rb,7.4208e-01_rb,9.4959e-01_rb,1.1894e+00_rb/)
+      kbo(:,14, 9) = (/ &
+     &3.6259e-01_rb,4.8996e-01_rb,6.4236e-01_rb,8.2178e-01_rb,1.0273e+00_rb/)
+      kbo(:,15, 9) = (/ &
+     &3.1572e-01_rb,4.2505e-01_rb,5.5650e-01_rb,7.1044e-01_rb,8.8534e-01_rb/)
+      kbo(:,16, 9) = (/ &
+     &2.7461e-01_rb,3.6869e-01_rb,4.8148e-01_rb,6.1276e-01_rb,7.6136e-01_rb/)
+      kbo(:,17, 9) = (/ &
+     &2.3842e-01_rb,3.1920e-01_rb,4.1566e-01_rb,5.2724e-01_rb,6.5339e-01_rb/)
+      kbo(:,18, 9) = (/ &
+     &2.0643e-01_rb,2.7580e-01_rb,3.5808e-01_rb,4.5284e-01_rb,5.5957e-01_rb/)
+      kbo(:,19, 9) = (/ &
+     &1.7844e-01_rb,2.3768e-01_rb,3.0746e-01_rb,3.8778e-01_rb,4.7826e-01_rb/)
+      kbo(:,20, 9) = (/ &
+     &1.5457e-01_rb,2.0515e-01_rb,2.6455e-01_rb,3.3275e-01_rb,4.0945e-01_rb/)
+      kbo(:,21, 9) = (/ &
+     &1.3372e-01_rb,1.7673e-01_rb,2.2718e-01_rb,2.8500e-01_rb,3.5014e-01_rb/)
+      kbo(:,22, 9) = (/ &
+     &1.1755e-01_rb,1.5455e-01_rb,1.9772e-01_rb,2.4719e-01_rb,3.0287e-01_rb/)
+      kbo(:,23, 9) = (/ &
+     &1.0319e-01_rb,1.3488e-01_rb,1.7188e-01_rb,2.1417e-01_rb,2.6161e-01_rb/)
+      kbo(:,24, 9) = (/ &
+     &9.0543e-02_rb,1.1778e-01_rb,1.4943e-01_rb,1.8553e-01_rb,2.2596e-01_rb/)
+      kbo(:,25, 9) = (/ &
+     &7.9491e-02_rb,1.0285e-01_rb,1.2998e-01_rb,1.6082e-01_rb,1.9540e-01_rb/)
+      kbo(:,26, 9) = (/ &
+     &7.0023e-02_rb,9.0152e-02_rb,1.1342e-01_rb,1.3988e-01_rb,1.6957e-01_rb/)
+      kbo(:,27, 9) = (/ &
+     &6.1675e-02_rb,7.9028e-02_rb,9.9049e-02_rb,1.2176e-01_rb,1.4715e-01_rb/)
+      kbo(:,28, 9) = (/ &
+     &5.4332e-02_rb,6.9290e-02_rb,8.6538e-02_rb,1.0602e-01_rb,1.2768e-01_rb/)
+      kbo(:,29, 9) = (/ &
+     &4.8016e-02_rb,6.0968e-02_rb,7.5734e-02_rb,9.2386e-02_rb,1.1090e-01_rb/)
+      kbo(:,30, 9) = (/ &
+     &4.2494e-02_rb,5.3680e-02_rb,6.6413e-02_rb,8.0729e-02_rb,9.6539e-02_rb/)
+      kbo(:,31, 9) = (/ &
+     &3.7548e-02_rb,4.7237e-02_rb,5.8255e-02_rb,7.0556e-02_rb,8.4102e-02_rb/)
+      kbo(:,32, 9) = (/ &
+     &3.3189e-02_rb,4.1551e-02_rb,5.1044e-02_rb,6.1646e-02_rb,7.3306e-02_rb/)
+      kbo(:,33, 9) = (/ &
+     &2.9274e-02_rb,3.6514e-02_rb,4.4704e-02_rb,5.3824e-02_rb,6.3833e-02_rb/)
+      kbo(:,34, 9) = (/ &
+     &2.5627e-02_rb,3.1864e-02_rb,3.8903e-02_rb,4.6747e-02_rb,5.5596e-02_rb/)
+      kbo(:,35, 9) = (/ &
+     &2.1952e-02_rb,2.7259e-02_rb,3.3247e-02_rb,4.0073e-02_rb,4.7679e-02_rb/)
+      kbo(:,36, 9) = (/ &
+     &1.8347e-02_rb,2.2808e-02_rb,2.7904e-02_rb,3.3738e-02_rb,4.0178e-02_rb/)
+      kbo(:,37, 9) = (/ &
+     &1.4833e-02_rb,1.8504e-02_rb,2.2807e-02_rb,2.7664e-02_rb,3.3111e-02_rb/)
+      kbo(:,38, 9) = (/ &
+     &1.1957e-02_rb,1.5000e-02_rb,1.8592e-02_rb,2.2638e-02_rb,2.7241e-02_rb/)
+      kbo(:,39, 9) = (/ &
+     &9.6263e-03_rb,1.2169e-02_rb,1.5133e-02_rb,1.8540e-02_rb,2.2409e-02_rb/)
+      kbo(:,40, 9) = (/ &
+     &7.5755e-03_rb,9.6595e-03_rb,1.2095e-02_rb,1.4919e-02_rb,1.8126e-02_rb/)
+      kbo(:,41, 9) = (/ &
+     &5.9308e-03_rb,7.6313e-03_rb,9.6291e-03_rb,1.1965e-02_rb,1.4606e-02_rb/)
+      kbo(:,42, 9) = (/ &
+     &4.6365e-03_rb,6.0158e-03_rb,7.6539e-03_rb,9.5769e-03_rb,1.1776e-02_rb/)
+      kbo(:,43, 9) = (/ &
+     &3.5646e-03_rb,4.6692e-03_rb,5.9951e-03_rb,7.5584e-03_rb,9.3611e-03_rb/)
+      kbo(:,44, 9) = (/ &
+     &2.7083e-03_rb,3.5831e-03_rb,4.6545e-03_rb,5.9178e-03_rb,7.3883e-03_rb/)
+      kbo(:,45, 9) = (/ &
+     &2.0498e-03_rb,2.7405e-03_rb,3.5962e-03_rb,4.6175e-03_rb,5.8123e-03_rb/)
+      kbo(:,46, 9) = (/ &
+     &1.5335e-03_rb,2.0746e-03_rb,2.7520e-03_rb,3.5687e-03_rb,4.5390e-03_rb/)
+      kbo(:,47, 9) = (/ &
+     &1.1263e-03_rb,1.5445e-03_rb,2.0740e-03_rb,2.7200e-03_rb,3.4958e-03_rb/)
+      kbo(:,48, 9) = (/ &
+     &8.2184e-04_rb,1.1429e-03_rb,1.5538e-03_rb,2.0625e-03_rb,2.6781e-03_rb/)
+      kbo(:,49, 9) = (/ &
+     &5.9594e-04_rb,8.3975e-04_rb,1.1570e-03_rb,1.5542e-03_rb,2.0406e-03_rb/)
+      kbo(:,50, 9) = (/ &
+     &4.3385e-04_rb,6.1951e-04_rb,8.6528e-04_rb,1.1761e-03_rb,1.5615e-03_rb/)
+      kbo(:,51, 9) = (/ &
+     &3.1545e-04_rb,4.5652e-04_rb,6.4640e-04_rb,8.8983e-04_rb,1.1948e-03_rb/)
+      kbo(:,52, 9) = (/ &
+     &2.2788e-04_rb,3.3444e-04_rb,4.7984e-04_rb,6.6976e-04_rb,9.1050e-04_rb/)
+      kbo(:,53, 9) = (/ &
+     &1.6338e-04_rb,2.4338e-04_rb,3.5401e-04_rb,5.0057e-04_rb,6.8907e-04_rb/)
+      kbo(:,54, 9) = (/ &
+     &1.1823e-04_rb,1.7879e-04_rb,2.6356e-04_rb,3.7767e-04_rb,5.2615e-04_rb/)
+      kbo(:,55, 9) = (/ &
+     &8.5773e-05_rb,1.3160e-04_rb,1.9666e-04_rb,2.8549e-04_rb,4.0286e-04_rb/)
+      kbo(:,56, 9) = (/ &
+     &6.1815e-05_rb,9.6294e-05_rb,1.4602e-04_rb,2.1495e-04_rb,3.0724e-04_rb/)
+      kbo(:,57, 9) = (/ &
+     &4.4282e-05_rb,7.0071e-05_rb,1.0785e-04_rb,1.6097e-04_rb,2.3304e-04_rb/)
+      kbo(:,58, 9) = (/ &
+     &3.1779e-05_rb,5.1099e-05_rb,7.9795e-05_rb,1.2084e-04_rb,1.7730e-04_rb/)
+      kbo(:,59, 9) = (/ &
+     &2.4962e-05_rb,4.0511e-05_rb,6.3843e-05_rb,9.7519e-05_rb,1.4426e-04_rb/)
+      kbo(:,13,10) = (/ &
+     &1.8139e+00_rb,2.4724e+00_rb,3.2908e+00_rb,4.2191e+00_rb,5.2351e+00_rb/)
+      kbo(:,14,10) = (/ &
+     &1.6219e+00_rb,2.2181e+00_rb,2.9298e+00_rb,3.7301e+00_rb,4.6329e+00_rb/)
+      kbo(:,15,10) = (/ &
+     &1.4445e+00_rb,1.9645e+00_rb,2.5717e+00_rb,3.2739e+00_rb,4.0834e+00_rb/)
+      kbo(:,16,10) = (/ &
+     &1.2756e+00_rb,1.7196e+00_rb,2.2454e+00_rb,2.8649e+00_rb,3.5710e+00_rb/)
+      kbo(:,17,10) = (/ &
+     &1.1121e+00_rb,1.4934e+00_rb,1.9517e+00_rb,2.4879e+00_rb,3.0883e+00_rb/)
+      kbo(:,18,10) = (/ &
+     &9.6871e-01_rb,1.2953e+00_rb,1.6900e+00_rb,2.1475e+00_rb,2.6630e+00_rb/)
+      kbo(:,19,10) = (/ &
+     &8.4238e-01_rb,1.1243e+00_rb,1.4633e+00_rb,1.8537e+00_rb,2.2906e+00_rb/)
+      kbo(:,20,10) = (/ &
+     &7.3459e-01_rb,9.7958e-01_rb,1.2711e+00_rb,1.6026e+00_rb,1.9721e+00_rb/)
+      kbo(:,21,10) = (/ &
+     &6.4101e-01_rb,8.5278e-01_rb,1.0998e+00_rb,1.3825e+00_rb,1.6970e+00_rb/)
+      kbo(:,22,10) = (/ &
+     &5.6942e-01_rb,7.5220e-01_rb,9.6596e-01_rb,1.2079e+00_rb,1.4762e+00_rb/)
+      kbo(:,23,10) = (/ &
+     &5.0503e-01_rb,6.6296e-01_rb,8.4599e-01_rb,1.0531e+00_rb,1.2851e+00_rb/)
+      kbo(:,24,10) = (/ &
+     &4.4682e-01_rb,5.8292e-01_rb,7.4005e-01_rb,9.1863e-01_rb,1.1187e+00_rb/)
+      kbo(:,25,10) = (/ &
+     &3.9593e-01_rb,5.1361e-01_rb,6.4951e-01_rb,8.0398e-01_rb,9.7427e-01_rb/)
+      kbo(:,26,10) = (/ &
+     &3.5212e-01_rb,4.5450e-01_rb,5.7266e-01_rb,7.0571e-01_rb,8.5181e-01_rb/)
+      kbo(:,27,10) = (/ &
+     &3.1284e-01_rb,4.0173e-01_rb,5.0408e-01_rb,6.1838e-01_rb,7.4572e-01_rb/)
+      kbo(:,28,10) = (/ &
+     &2.7721e-01_rb,3.5447e-01_rb,4.4231e-01_rb,5.4145e-01_rb,6.5404e-01_rb/)
+      kbo(:,29,10) = (/ &
+     &2.4517e-01_rb,3.1175e-01_rb,3.8832e-01_rb,4.7588e-01_rb,5.7437e-01_rb/)
+      kbo(:,30,10) = (/ &
+     &2.1578e-01_rb,2.7344e-01_rb,3.4039e-01_rb,4.1657e-01_rb,5.0271e-01_rb/)
+      kbo(:,31,10) = (/ &
+     &1.9067e-01_rb,2.4099e-01_rb,2.9914e-01_rb,3.6552e-01_rb,4.4046e-01_rb/)
+      kbo(:,32,10) = (/ &
+     &1.6874e-01_rb,2.1279e-01_rb,2.6352e-01_rb,3.2154e-01_rb,3.8678e-01_rb/)
+      kbo(:,33,10) = (/ &
+     &1.4979e-01_rb,1.8828e-01_rb,2.3277e-01_rb,2.8345e-01_rb,3.4103e-01_rb/)
+      kbo(:,34,10) = (/ &
+     &1.3170e-01_rb,1.6528e-01_rb,2.0425e-01_rb,2.4841e-01_rb,2.9642e-01_rb/)
+      kbo(:,35,10) = (/ &
+     &1.1324e-01_rb,1.4235e-01_rb,1.7590e-01_rb,2.1287e-01_rb,2.5375e-01_rb/)
+      kbo(:,36,10) = (/ &
+     &9.5231e-02_rb,1.1973e-01_rb,1.4778e-01_rb,1.7871e-01_rb,2.1338e-01_rb/)
+      kbo(:,37,10) = (/ &
+     &7.7445e-02_rb,9.7552e-02_rb,1.1991e-01_rb,1.4578e-01_rb,1.7559e-01_rb/)
+      kbo(:,38,10) = (/ &
+     &6.2913e-02_rb,7.9354e-02_rb,9.7396e-02_rb,1.1872e-01_rb,1.4502e-01_rb/)
+      kbo(:,39,10) = (/ &
+     &5.1069e-02_rb,6.4406e-02_rb,7.9431e-02_rb,9.7751e-02_rb,1.1994e-01_rb/)
+      kbo(:,40,10) = (/ &
+     &4.0487e-02_rb,5.1192e-02_rb,6.3494e-02_rb,7.8782e-02_rb,9.6672e-02_rb/)
+      kbo(:,41,10) = (/ &
+     &3.1933e-02_rb,4.0574e-02_rb,5.0815e-02_rb,6.3454e-02_rb,7.7908e-02_rb/)
+      kbo(:,42,10) = (/ &
+     &2.5104e-02_rb,3.2117e-02_rb,4.0690e-02_rb,5.1132e-02_rb,6.3360e-02_rb/)
+      kbo(:,43,10) = (/ &
+     &1.9359e-02_rb,2.4985e-02_rb,3.2134e-02_rb,4.0672e-02_rb,5.0944e-02_rb/)
+      kbo(:,44,10) = (/ &
+     &1.4822e-02_rb,1.9377e-02_rb,2.5087e-02_rb,3.2083e-02_rb,4.0842e-02_rb/)
+      kbo(:,45,10) = (/ &
+     &1.1292e-02_rb,1.4912e-02_rb,1.9592e-02_rb,2.5310e-02_rb,3.2495e-02_rb/)
+      kbo(:,46,10) = (/ &
+     &8.5215e-03_rb,1.1374e-02_rb,1.5134e-02_rb,1.9829e-02_rb,2.5701e-02_rb/)
+      kbo(:,47,10) = (/ &
+     &6.3304e-03_rb,8.5539e-03_rb,1.1519e-02_rb,1.5304e-02_rb,2.0043e-02_rb/)
+      kbo(:,48,10) = (/ &
+     &4.6596e-03_rb,6.3842e-03_rb,8.7184e-03_rb,1.1727e-02_rb,1.5575e-02_rb/)
+      kbo(:,49,10) = (/ &
+     &3.3978e-03_rb,4.7268e-03_rb,6.5354e-03_rb,8.9194e-03_rb,1.1986e-02_rb/)
+      kbo(:,50,10) = (/ &
+     &2.4889e-03_rb,3.5204e-03_rb,4.9247e-03_rb,6.8240e-03_rb,9.2921e-03_rb/)
+      kbo(:,51,10) = (/ &
+     &1.8182e-03_rb,2.6209e-03_rb,3.7132e-03_rb,5.2128e-03_rb,7.2010e-03_rb/)
+      kbo(:,52,10) = (/ &
+     &1.3186e-03_rb,1.9376e-03_rb,2.7823e-03_rb,3.9639e-03_rb,5.5462e-03_rb/)
+      kbo(:,53,10) = (/ &
+     &9.4728e-04_rb,1.4218e-03_rb,2.0704e-03_rb,2.9919e-03_rb,4.2442e-03_rb/)
+      kbo(:,54,10) = (/ &
+     &6.9069e-04_rb,1.0561e-03_rb,1.5627e-03_rb,2.2955e-03_rb,3.3049e-03_rb/)
+      kbo(:,55,10) = (/ &
+     &5.0377e-04_rb,7.8848e-04_rb,1.1876e-03_rb,1.7754e-03_rb,2.5917e-03_rb/)
+      kbo(:,56,10) = (/ &
+     &3.6627e-04_rb,5.8682e-04_rb,8.9763e-04_rb,1.3649e-03_rb,2.0311e-03_rb/)
+      kbo(:,57,10) = (/ &
+     &2.6429e-04_rb,4.3296e-04_rb,6.7428e-04_rb,1.0407e-03_rb,1.5759e-03_rb/)
+      kbo(:,58,10) = (/ &
+     &1.9120e-04_rb,3.1987e-04_rb,5.0621e-04_rb,7.9436e-04_rb,1.2215e-03_rb/)
+      kbo(:,59,10) = (/ &
+     &1.5379e-04_rb,2.5891e-04_rb,4.1558e-04_rb,6.6123e-04_rb,1.0327e-03_rb/)
+      kbo(:,13,11) = (/ &
+     &3.3861e+00_rb,4.5598e+00_rb,5.9909e+00_rb,7.7387e+00_rb,9.7720e+00_rb/)
+      kbo(:,14,11) = (/ &
+     &3.0835e+00_rb,4.1638e+00_rb,5.4907e+00_rb,7.0868e+00_rb,8.8764e+00_rb/)
+      kbo(:,15,11) = (/ &
+     &2.7946e+00_rb,3.7805e+00_rb,4.9918e+00_rb,6.3780e+00_rb,7.9256e+00_rb/)
+      kbo(:,16,11) = (/ &
+     &2.5106e+00_rb,3.4021e+00_rb,4.4602e+00_rb,5.6582e+00_rb,7.0321e+00_rb/)
+      kbo(:,17,11) = (/ &
+     &2.2366e+00_rb,3.0111e+00_rb,3.9217e+00_rb,4.9755e+00_rb,6.2040e+00_rb/)
+      kbo(:,18,11) = (/ &
+     &1.9672e+00_rb,2.6349e+00_rb,3.4220e+00_rb,4.3497e+00_rb,5.4155e+00_rb/)
+      kbo(:,19,11) = (/ &
+     &1.7131e+00_rb,2.2896e+00_rb,2.9754e+00_rb,3.7775e+00_rb,4.6830e+00_rb/)
+      kbo(:,20,11) = (/ &
+     &1.4996e+00_rb,1.9951e+00_rb,2.5864e+00_rb,3.2729e+00_rb,4.0503e+00_rb/)
+      kbo(:,21,11) = (/ &
+     &1.3113e+00_rb,1.7407e+00_rb,2.2502e+00_rb,2.8371e+00_rb,3.4967e+00_rb/)
+      kbo(:,22,11) = (/ &
+     &1.1682e+00_rb,1.5452e+00_rb,1.9872e+00_rb,2.4911e+00_rb,3.0547e+00_rb/)
+      kbo(:,23,11) = (/ &
+     &1.0421e+00_rb,1.3707e+00_rb,1.7516e+00_rb,2.1846e+00_rb,2.6659e+00_rb/)
+      kbo(:,24,11) = (/ &
+     &9.2979e-01_rb,1.2143e+00_rb,1.5435e+00_rb,1.9148e+00_rb,2.3275e+00_rb/)
+      kbo(:,25,11) = (/ &
+     &8.2875e-01_rb,1.0753e+00_rb,1.3588e+00_rb,1.6784e+00_rb,2.0353e+00_rb/)
+      kbo(:,26,11) = (/ &
+     &7.3934e-01_rb,9.5318e-01_rb,1.1984e+00_rb,1.4754e+00_rb,1.7853e+00_rb/)
+      kbo(:,27,11) = (/ &
+     &6.5883e-01_rb,8.4429e-01_rb,1.0568e+00_rb,1.2987e+00_rb,1.5650e+00_rb/)
+      kbo(:,28,11) = (/ &
+     &5.8647e-01_rb,7.4845e-01_rb,9.3430e-01_rb,1.1424e+00_rb,1.3714e+00_rb/)
+      kbo(:,29,11) = (/ &
+     &5.2333e-01_rb,6.6481e-01_rb,8.2647e-01_rb,1.0068e+00_rb,1.2071e+00_rb/)
+      kbo(:,30,11) = (/ &
+     &4.6646e-01_rb,5.9039e-01_rb,7.3092e-01_rb,8.8855e-01_rb,1.0662e+00_rb/)
+      kbo(:,31,11) = (/ &
+     &4.1617e-01_rb,5.2426e-01_rb,6.4699e-01_rb,7.8730e-01_rb,9.4645e-01_rb/)
+      kbo(:,32,11) = (/ &
+     &3.7143e-01_rb,4.6600e-01_rb,5.7506e-01_rb,6.9984e-01_rb,8.4024e-01_rb/)
+      kbo(:,33,11) = (/ &
+     &3.3164e-01_rb,4.1539e-01_rb,5.1227e-01_rb,6.2282e-01_rb,7.4734e-01_rb/)
+      kbo(:,34,11) = (/ &
+     &2.9391e-01_rb,3.6839e-01_rb,4.5381e-01_rb,5.5129e-01_rb,6.6077e-01_rb/)
+      kbo(:,35,11) = (/ &
+     &2.5539e-01_rb,3.2000e-01_rb,3.9467e-01_rb,4.7981e-01_rb,5.7557e-01_rb/)
+      kbo(:,36,11) = (/ &
+     &2.1634e-01_rb,2.7190e-01_rb,3.3604e-01_rb,4.0953e-01_rb,4.9314e-01_rb/)
+      kbo(:,37,11) = (/ &
+     &1.7643e-01_rb,2.2324e-01_rb,2.7784e-01_rb,3.4019e-01_rb,4.0996e-01_rb/)
+      kbo(:,38,11) = (/ &
+     &1.4359e-01_rb,1.8284e-01_rb,2.2947e-01_rb,2.8247e-01_rb,3.3992e-01_rb/)
+      kbo(:,39,11) = (/ &
+     &1.1703e-01_rb,1.4999e-01_rb,1.8946e-01_rb,2.3346e-01_rb,2.8235e-01_rb/)
+      kbo(:,40,11) = (/ &
+     &9.2508e-02_rb,1.1962e-01_rb,1.5225e-01_rb,1.8852e-01_rb,2.3037e-01_rb/)
+      kbo(:,41,11) = (/ &
+     &7.2812e-02_rb,9.4920e-02_rb,1.2149e-01_rb,1.5155e-01_rb,1.8718e-01_rb/)
+      kbo(:,42,11) = (/ &
+     &5.7212e-02_rb,7.5261e-02_rb,9.6717e-02_rb,1.2163e-01_rb,1.5109e-01_rb/)
+      kbo(:,43,11) = (/ &
+     &4.4118e-02_rb,5.8641e-02_rb,7.5812e-02_rb,9.6186e-02_rb,1.2035e-01_rb/)
+      kbo(:,44,11) = (/ &
+     &3.3705e-02_rb,4.5203e-02_rb,5.8991e-02_rb,7.5535e-02_rb,9.5312e-02_rb/)
+      kbo(:,45,11) = (/ &
+     &2.5795e-02_rb,3.4826e-02_rb,4.5764e-02_rb,5.9102e-02_rb,7.5973e-02_rb/)
+      kbo(:,46,11) = (/ &
+     &1.9500e-02_rb,2.6666e-02_rb,3.5264e-02_rb,4.5887e-02_rb,6.0050e-02_rb/)
+      kbo(:,47,11) = (/ &
+     &1.4478e-02_rb,2.0069e-02_rb,2.6758e-02_rb,3.5119e-02_rb,4.6750e-02_rb/)
+      kbo(:,48,11) = (/ &
+     &1.0673e-02_rb,1.5022e-02_rb,2.0274e-02_rb,2.6837e-02_rb,3.6213e-02_rb/)
+      kbo(:,49,11) = (/ &
+     &7.8044e-03_rb,1.1183e-02_rb,1.5301e-02_rb,2.0457e-02_rb,2.8037e-02_rb/)
+      kbo(:,50,11) = (/ &
+     &5.7286e-03_rb,8.3541e-03_rb,1.1590e-02_rb,1.5692e-02_rb,2.1700e-02_rb/)
+      kbo(:,51,11) = (/ &
+     &4.2038e-03_rb,6.2320e-03_rb,8.7867e-03_rb,1.2044e-02_rb,1.6737e-02_rb/)
+      kbo(:,52,11) = (/ &
+     &3.0623e-03_rb,4.6247e-03_rb,6.6271e-03_rb,9.2102e-03_rb,1.2933e-02_rb/)
+      kbo(:,53,11) = (/ &
+     &2.2163e-03_rb,3.3976e-03_rb,4.9642e-03_rb,7.0028e-03_rb,9.9664e-03_rb/)
+      kbo(:,54,11) = (/ &
+     &1.6196e-03_rb,2.5242e-03_rb,3.7641e-03_rb,5.3709e-03_rb,7.7537e-03_rb/)
+      kbo(:,55,11) = (/ &
+     &1.1913e-03_rb,1.8900e-03_rb,2.8670e-03_rb,4.1465e-03_rb,6.0719e-03_rb/)
+      kbo(:,56,11) = (/ &
+     &8.6854e-04_rb,1.4072e-03_rb,2.1797e-03_rb,3.2039e-03_rb,4.7482e-03_rb/)
+      kbo(:,57,11) = (/ &
+     &6.2940e-04_rb,1.0423e-03_rb,1.6521e-03_rb,2.4738e-03_rb,3.7243e-03_rb/)
+      kbo(:,58,11) = (/ &
+     &4.5766e-04_rb,7.7541e-04_rb,1.2578e-03_rb,1.9222e-03_rb,2.9509e-03_rb/)
+      kbo(:,59,11) = (/ &
+     &3.7158e-04_rb,6.4512e-04_rb,1.0666e-03_rb,1.6673e-03_rb,2.6085e-03_rb/)
+      kbo(:,13,12) = (/ &
+     &6.8265e+00_rb,9.1662e+00_rb,1.2005e+01_rb,1.5291e+01_rb,1.9104e+01_rb/)
+      kbo(:,14,12) = (/ &
+     &6.4505e+00_rb,8.6663e+00_rb,1.1302e+01_rb,1.4372e+01_rb,1.8022e+01_rb/)
+      kbo(:,15,12) = (/ &
+     &6.0333e+00_rb,8.0721e+00_rb,1.0531e+01_rb,1.3476e+01_rb,1.6920e+01_rb/)
+      kbo(:,16,12) = (/ &
+     &5.5683e+00_rb,7.4562e+00_rb,9.7508e+00_rb,1.2490e+01_rb,1.5606e+01_rb/)
+      kbo(:,17,12) = (/ &
+     &5.0713e+00_rb,6.8025e+00_rb,8.9065e+00_rb,1.1361e+01_rb,1.4093e+01_rb/)
+      kbo(:,18,12) = (/ &
+     &4.5774e+00_rb,6.1450e+00_rb,8.0133e+00_rb,1.0144e+01_rb,1.2548e+01_rb/)
+      kbo(:,19,12) = (/ &
+     &4.0864e+00_rb,5.4694e+00_rb,7.0931e+00_rb,8.9659e+00_rb,1.1117e+01_rb/)
+      kbo(:,20,12) = (/ &
+     &3.6294e+00_rb,4.8248e+00_rb,6.2421e+00_rb,7.9048e+00_rb,9.7882e+00_rb/)
+      kbo(:,21,12) = (/ &
+     &3.1876e+00_rb,4.2266e+00_rb,5.4689e+00_rb,6.9148e+00_rb,8.5415e+00_rb/)
+      kbo(:,22,12) = (/ &
+     &2.8446e+00_rb,3.7580e+00_rb,4.8472e+00_rb,6.1036e+00_rb,7.5044e+00_rb/)
+      kbo(:,23,12) = (/ &
+     &2.5375e+00_rb,3.3389e+00_rb,4.2884e+00_rb,5.3709e+00_rb,6.5794e+00_rb/)
+      kbo(:,24,12) = (/ &
+     &2.2687e+00_rb,2.9742e+00_rb,3.7979e+00_rb,4.7327e+00_rb,5.7691e+00_rb/)
+      kbo(:,25,12) = (/ &
+     &2.0354e+00_rb,2.6539e+00_rb,3.3704e+00_rb,4.1780e+00_rb,5.0680e+00_rb/)
+      kbo(:,26,12) = (/ &
+     &1.8347e+00_rb,2.3795e+00_rb,3.0035e+00_rb,3.7009e+00_rb,4.4678e+00_rb/)
+      kbo(:,27,12) = (/ &
+     &1.6539e+00_rb,2.1288e+00_rb,2.6709e+00_rb,3.2754e+00_rb,3.9447e+00_rb/)
+      kbo(:,28,12) = (/ &
+     &1.4848e+00_rb,1.8995e+00_rb,2.3700e+00_rb,2.8962e+00_rb,3.4805e+00_rb/)
+      kbo(:,29,12) = (/ &
+     &1.3323e+00_rb,1.6945e+00_rb,2.1064e+00_rb,2.5664e+00_rb,3.0755e+00_rb/)
+      kbo(:,30,12) = (/ &
+     &1.1951e+00_rb,1.5124e+00_rb,1.8729e+00_rb,2.2771e+00_rb,2.7207e+00_rb/)
+      kbo(:,31,12) = (/ &
+     &1.0723e+00_rb,1.3520e+00_rb,1.6707e+00_rb,2.0245e+00_rb,2.4134e+00_rb/)
+      kbo(:,32,12) = (/ &
+     &9.6436e-01_rb,1.2123e+00_rb,1.4924e+00_rb,1.8027e+00_rb,2.1488e+00_rb/)
+      kbo(:,33,12) = (/ &
+     &8.6875e-01_rb,1.0883e+00_rb,1.3350e+00_rb,1.6111e+00_rb,1.9241e+00_rb/)
+      kbo(:,34,12) = (/ &
+     &7.7744e-01_rb,9.7074e-01_rb,1.1897e+00_rb,1.4382e+00_rb,1.7216e+00_rb/)
+      kbo(:,35,12) = (/ &
+     &6.8108e-01_rb,8.5081e-01_rb,1.0447e+00_rb,1.2673e+00_rb,1.5231e+00_rb/)
+      kbo(:,36,12) = (/ &
+     &5.8251e-01_rb,7.3036e-01_rb,9.0117e-01_rb,1.0985e+00_rb,1.3262e+00_rb/)
+      kbo(:,37,12) = (/ &
+     &4.8147e-01_rb,6.0751e-01_rb,7.5487e-01_rb,9.2714e-01_rb,1.1257e+00_rb/)
+      kbo(:,38,12) = (/ &
+     &3.9749e-01_rb,5.0467e-01_rb,6.3154e-01_rb,7.8124e-01_rb,9.5438e-01_rb/)
+      kbo(:,39,12) = (/ &
+     &3.2829e-01_rb,4.1995e-01_rb,5.2901e-01_rb,6.5861e-01_rb,8.0986e-01_rb/)
+      kbo(:,40,12) = (/ &
+     &2.6399e-01_rb,3.4098e-01_rb,4.3333e-01_rb,5.4338e-01_rb,6.7333e-01_rb/)
+      kbo(:,41,12) = (/ &
+     &2.1121e-01_rb,2.7554e-01_rb,3.5340e-01_rb,4.4699e-01_rb,5.5819e-01_rb/)
+      kbo(:,42,12) = (/ &
+     &1.6875e-01_rb,2.2242e-01_rb,2.8790e-01_rb,3.6718e-01_rb,4.6248e-01_rb/)
+      kbo(:,43,12) = (/ &
+     &1.3242e-01_rb,1.7649e-01_rb,2.3091e-01_rb,2.9729e-01_rb,3.7802e-01_rb/)
+      kbo(:,44,12) = (/ &
+     &1.0268e-01_rb,1.3874e-01_rb,1.8350e-01_rb,2.3873e-01_rb,3.0615e-01_rb/)
+      kbo(:,45,12) = (/ &
+     &7.9157e-02_rb,1.0857e-01_rb,1.4543e-01_rb,1.9132e-01_rb,2.4703e-01_rb/)
+      kbo(:,46,12) = (/ &
+     &6.0349e-02_rb,8.3945e-02_rb,1.1412e-01_rb,1.5200e-01_rb,1.9783e-01_rb/)
+      kbo(:,47,12) = (/ &
+     &4.5026e-02_rb,6.3638e-02_rb,8.7982e-02_rb,1.1888e-01_rb,1.5630e-01_rb/)
+      kbo(:,48,12) = (/ &
+     &3.3400e-02_rb,4.7982e-02_rb,6.7403e-02_rb,9.2494e-02_rb,1.2316e-01_rb/)
+      kbo(:,49,12) = (/ &
+     &2.4633e-02_rb,3.5960e-02_rb,5.1349e-02_rb,7.1624e-02_rb,9.6517e-02_rb/)
+      kbo(:,50,12) = (/ &
+     &1.8199e-02_rb,2.7006e-02_rb,3.9181e-02_rb,5.5479e-02_rb,7.5913e-02_rb/)
+      kbo(:,51,12) = (/ &
+     &1.3397e-02_rb,2.0251e-02_rb,2.9827e-02_rb,4.2894e-02_rb,5.9697e-02_rb/)
+      kbo(:,52,12) = (/ &
+     &9.8047e-03_rb,1.5092e-02_rb,2.2613e-02_rb,3.3016e-02_rb,4.6660e-02_rb/)
+      kbo(:,53,12) = (/ &
+     &7.1233e-03_rb,1.1184e-02_rb,1.7048e-02_rb,2.5317e-02_rb,3.6316e-02_rb/)
+      kbo(:,54,12) = (/ &
+     &5.1904e-03_rb,8.3108e-03_rb,1.2872e-02_rb,1.9462e-02_rb,2.8342e-02_rb/)
+      kbo(:,55,12) = (/ &
+     &3.7706e-03_rb,6.1523e-03_rb,9.6915e-03_rb,1.4909e-02_rb,2.2083e-02_rb/)
+      kbo(:,56,12) = (/ &
+     &2.7214e-03_rb,4.5313e-03_rb,7.2581e-03_rb,1.1344e-02_rb,1.7112e-02_rb/)
+      kbo(:,57,12) = (/ &
+     &1.9679e-03_rb,3.3305e-03_rb,5.4024e-03_rb,8.5896e-03_rb,1.3181e-02_rb/)
+      kbo(:,58,12) = (/ &
+     &1.4312e-03_rb,2.4830e-03_rb,4.0992e-03_rb,6.5707e-03_rb,1.0148e-02_rb/)
+      kbo(:,59,12) = (/ &
+     &1.1735e-03_rb,2.0715e-03_rb,3.4672e-03_rb,5.6187e-03_rb,8.6747e-03_rb/)
+      kbo(:,13,13) = (/ &
+     &1.4965e+01_rb,1.9939e+01_rb,2.5957e+01_rb,3.3111e+01_rb,4.1486e+01_rb/)
+      kbo(:,14,13) = (/ &
+     &1.4891e+01_rb,1.9752e+01_rb,2.5714e+01_rb,3.2877e+01_rb,4.1201e+01_rb/)
+      kbo(:,15,13) = (/ &
+     &1.4632e+01_rb,1.9464e+01_rb,2.5349e+01_rb,3.2327e+01_rb,4.0239e+01_rb/)
+      kbo(:,16,13) = (/ &
+     &1.4224e+01_rb,1.8920e+01_rb,2.4612e+01_rb,3.1240e+01_rb,3.8764e+01_rb/)
+      kbo(:,17,13) = (/ &
+     &1.3596e+01_rb,1.8071e+01_rb,2.3399e+01_rb,2.9603e+01_rb,3.6827e+01_rb/)
+      kbo(:,18,13) = (/ &
+     &1.2765e+01_rb,1.6956e+01_rb,2.1940e+01_rb,2.7801e+01_rb,3.4621e+01_rb/)
+      kbo(:,19,13) = (/ &
+     &1.1845e+01_rb,1.5708e+01_rb,2.0355e+01_rb,2.5828e+01_rb,3.2043e+01_rb/)
+      kbo(:,20,13) = (/ &
+     &1.0881e+01_rb,1.4480e+01_rb,1.8761e+01_rb,2.3735e+01_rb,2.9355e+01_rb/)
+      kbo(:,21,13) = (/ &
+     &9.9388e+00_rb,1.3181e+01_rb,1.7060e+01_rb,2.1504e+01_rb,2.6520e+01_rb/)
+      kbo(:,22,13) = (/ &
+     &9.1395e+00_rb,1.2102e+01_rb,1.5540e+01_rb,1.9513e+01_rb,2.4061e+01_rb/)
+      kbo(:,23,13) = (/ &
+     &8.3446e+00_rb,1.0972e+01_rb,1.4055e+01_rb,1.7623e+01_rb,2.1727e+01_rb/)
+      kbo(:,24,13) = (/ &
+     &7.5591e+00_rb,9.8924e+00_rb,1.2651e+01_rb,1.5869e+01_rb,1.9520e+01_rb/)
+      kbo(:,25,13) = (/ &
+     &6.8143e+00_rb,8.8970e+00_rb,1.1359e+01_rb,1.4218e+01_rb,1.7424e+01_rb/)
+      kbo(:,26,13) = (/ &
+     &6.1698e+00_rb,8.0210e+00_rb,1.0220e+01_rb,1.2729e+01_rb,1.5532e+01_rb/)
+      kbo(:,27,13) = (/ &
+     &5.5728e+00_rb,7.2306e+00_rb,9.1639e+00_rb,1.1369e+01_rb,1.3833e+01_rb/)
+      kbo(:,28,13) = (/ &
+     &5.0450e+00_rb,6.5146e+00_rb,8.2221e+00_rb,1.0165e+01_rb,1.2320e+01_rb/)
+      kbo(:,29,13) = (/ &
+     &4.5820e+00_rb,5.8856e+00_rb,7.3962e+00_rb,9.1032e+00_rb,1.0999e+01_rb/)
+      kbo(:,30,13) = (/ &
+     &4.1619e+00_rb,5.3258e+00_rb,6.6581e+00_rb,8.1640e+00_rb,9.8348e+00_rb/)
+      kbo(:,31,13) = (/ &
+     &3.7986e+00_rb,4.8336e+00_rb,6.0169e+00_rb,7.3498e+00_rb,8.8372e+00_rb/)
+      kbo(:,32,13) = (/ &
+     &3.4747e+00_rb,4.3988e+00_rb,5.4556e+00_rb,6.6497e+00_rb,7.9860e+00_rb/)
+      kbo(:,33,13) = (/ &
+     &3.1806e+00_rb,4.0134e+00_rb,4.9644e+00_rb,6.0424e+00_rb,7.2445e+00_rb/)
+      kbo(:,34,13) = (/ &
+     &2.8901e+00_rb,3.6383e+00_rb,4.4979e+00_rb,5.4687e+00_rb,6.5591e+00_rb/)
+      kbo(:,35,13) = (/ &
+     &2.5701e+00_rb,3.2361e+00_rb,4.0067e+00_rb,4.8794e+00_rb,5.8576e+00_rb/)
+      kbo(:,36,13) = (/ &
+     &2.2323e+00_rb,2.8199e+00_rb,3.4998e+00_rb,4.2791e+00_rb,5.1575e+00_rb/)
+      kbo(:,37,13) = (/ &
+     &1.8736e+00_rb,2.3827e+00_rb,2.9738e+00_rb,3.6564e+00_rb,4.4360e+00_rb/)
+      kbo(:,38,13) = (/ &
+     &1.5728e+00_rb,2.0148e+00_rb,2.5311e+00_rb,3.1303e+00_rb,3.8226e+00_rb/)
+      kbo(:,39,13) = (/ &
+     &1.3237e+00_rb,1.7072e+00_rb,2.1603e+00_rb,2.6914e+00_rb,3.3072e+00_rb/)
+      kbo(:,40,13) = (/ &
+     &1.0847e+00_rb,1.4132e+00_rb,1.8059e+00_rb,2.2702e+00_rb,2.8143e+00_rb/)
+      kbo(:,41,13) = (/ &
+     &8.8581e-01_rb,1.1668e+00_rb,1.5064e+00_rb,1.9133e+00_rb,2.3935e+00_rb/)
+      kbo(:,42,13) = (/ &
+     &7.2374e-01_rb,9.6367e-01_rb,1.2577e+00_rb,1.6144e+00_rb,2.0403e+00_rb/)
+      kbo(:,43,13) = (/ &
+     &5.8123e-01_rb,7.8367e-01_rb,1.0353e+00_rb,1.3440e+00_rb,1.7177e+00_rb/)
+      kbo(:,44,13) = (/ &
+     &4.6198e-01_rb,6.3195e-01_rb,8.4539e-01_rb,1.1117e+00_rb,1.4376e+00_rb/)
+      kbo(:,45,13) = (/ &
+     &3.6584e-01_rb,5.0822e-01_rb,6.8932e-01_rb,9.1864e-01_rb,1.2028e+00_rb/)
+      kbo(:,46,13) = (/ &
+     &2.8644e-01_rb,4.0442e-01_rb,5.5738e-01_rb,7.5306e-01_rb,9.9957e-01_rb/)
+      kbo(:,47,13) = (/ &
+     &2.1956e-01_rb,3.1585e-01_rb,4.4303e-01_rb,6.0814e-01_rb,8.1897e-01_rb/)
+      kbo(:,48,13) = (/ &
+     &1.6674e-01_rb,2.4495e-01_rb,3.5019e-01_rb,4.8911e-01_rb,6.6858e-01_rb/)
+      kbo(:,49,13) = (/ &
+     &1.2553e-01_rb,1.8856e-01_rb,2.7515e-01_rb,3.9103e-01_rb,5.4421e-01_rb/)
+      kbo(:,50,13) = (/ &
+     &9.4665e-02_rb,1.4544e-01_rb,2.1677e-01_rb,3.1374e-01_rb,4.4454e-01_rb/)
+      kbo(:,51,13) = (/ &
+     &7.1191e-02_rb,1.1194e-01_rb,1.7036e-01_rb,2.5168e-01_rb,3.6277e-01_rb/)
+      kbo(:,52,13) = (/ &
+     &5.3052e-02_rb,8.5501e-02_rb,1.3304e-01_rb,2.0087e-01_rb,2.9517e-01_rb/)
+      kbo(:,53,13) = (/ &
+     &3.9132e-02_rb,6.4715e-02_rb,1.0314e-01_rb,1.5924e-01_rb,2.3881e-01_rb/)
+      kbo(:,54,13) = (/ &
+     &2.9043e-02_rb,4.9273e-02_rb,8.0552e-02_rb,1.2707e-01_rb,1.9473e-01_rb/)
+      kbo(:,55,13) = (/ &
+     &2.1525e-02_rb,3.7498e-02_rb,6.2875e-02_rb,1.0150e-01_rb,1.5889e-01_rb/)
+      kbo(:,56,13) = (/ &
+     &1.5833e-02_rb,2.8322e-02_rb,4.8765e-02_rb,8.0651e-02_rb,1.2905e-01_rb/)
+      kbo(:,57,13) = (/ &
+     &1.1526e-02_rb,2.1205e-02_rb,3.7510e-02_rb,6.3651e-02_rb,1.0431e-01_rb/)
+      kbo(:,58,13) = (/ &
+     &8.3779e-03_rb,1.5855e-02_rb,2.8776e-02_rb,5.0260e-02_rb,8.4604e-02_rb/)
+      kbo(:,59,13) = (/ &
+     &6.7851e-03_rb,1.3119e-02_rb,2.4293e-02_rb,4.3321e-02_rb,7.4531e-02_rb/)
+      kbo(:,13,14) = (/ &
+     &3.3721e+01_rb,4.7002e+01_rb,6.3302e+01_rb,8.2327e+01_rb,1.0363e+02_rb/)
+      kbo(:,14,14) = (/ &
+     &3.6911e+01_rb,5.0874e+01_rb,6.7511e+01_rb,8.6774e+01_rb,1.0872e+02_rb/)
+      kbo(:,15,14) = (/ &
+     &3.9962e+01_rb,5.4067e+01_rb,7.0780e+01_rb,9.0289e+01_rb,1.1312e+02_rb/)
+      kbo(:,16,14) = (/ &
+     &4.2338e+01_rb,5.6683e+01_rb,7.3332e+01_rb,9.3095e+01_rb,1.1626e+02_rb/)
+      kbo(:,17,14) = (/ &
+     &4.3916e+01_rb,5.8217e+01_rb,7.5023e+01_rb,9.4925e+01_rb,1.1793e+02_rb/)
+      kbo(:,18,14) = (/ &
+     &4.4576e+01_rb,5.8845e+01_rb,7.5702e+01_rb,9.5514e+01_rb,1.1830e+02_rb/)
+      kbo(:,19,14) = (/ &
+     &4.4328e+01_rb,5.8466e+01_rb,7.5196e+01_rb,9.4726e+01_rb,1.1748e+02_rb/)
+      kbo(:,20,14) = (/ &
+     &4.3798e+01_rb,5.7631e+01_rb,7.4169e+01_rb,9.3518e+01_rb,1.1584e+02_rb/)
+      kbo(:,21,14) = (/ &
+     &4.2847e+01_rb,5.6429e+01_rb,7.2627e+01_rb,9.1567e+01_rb,1.1316e+02_rb/)
+      kbo(:,22,14) = (/ &
+     &4.2232e+01_rb,5.5705e+01_rb,7.1694e+01_rb,9.0118e+01_rb,1.1101e+02_rb/)
+      kbo(:,23,14) = (/ &
+     &4.1301e+01_rb,5.4371e+01_rb,6.9797e+01_rb,8.7676e+01_rb,1.0772e+02_rb/)
+      kbo(:,24,14) = (/ &
+     &4.0036e+01_rb,5.2522e+01_rb,6.7301e+01_rb,8.4384e+01_rb,1.0387e+02_rb/)
+      kbo(:,25,14) = (/ &
+     &3.8535e+01_rb,5.0451e+01_rb,6.4572e+01_rb,8.0891e+01_rb,9.9814e+01_rb/)
+      kbo(:,26,14) = (/ &
+     &3.6990e+01_rb,4.8476e+01_rb,6.1896e+01_rb,7.7604e+01_rb,9.5632e+01_rb/)
+      kbo(:,27,14) = (/ &
+     &3.5439e+01_rb,4.6349e+01_rb,5.9201e+01_rb,7.4166e+01_rb,9.1237e+01_rb/)
+      kbo(:,28,14) = (/ &
+     &3.3799e+01_rb,4.4185e+01_rb,5.6512e+01_rb,7.0702e+01_rb,8.6988e+01_rb/)
+      kbo(:,29,14) = (/ &
+     &3.2225e+01_rb,4.2139e+01_rb,5.3908e+01_rb,6.7503e+01_rb,8.3109e+01_rb/)
+      kbo(:,30,14) = (/ &
+     &3.0748e+01_rb,4.0218e+01_rb,5.1459e+01_rb,6.4621e+01_rb,7.9612e+01_rb/)
+      kbo(:,31,14) = (/ &
+     &2.9425e+01_rb,3.8499e+01_rb,4.9352e+01_rb,6.2118e+01_rb,7.6745e+01_rb/)
+      kbo(:,32,14) = (/ &
+     &2.8242e+01_rb,3.7039e+01_rb,4.7648e+01_rb,6.0092e+01_rb,7.4536e+01_rb/)
+      kbo(:,33,14) = (/ &
+     &2.7263e+01_rb,3.5883e+01_rb,4.6290e+01_rb,5.8616e+01_rb,7.3025e+01_rb/)
+      kbo(:,34,14) = (/ &
+     &2.6245e+01_rb,3.4728e+01_rb,4.4963e+01_rb,5.7211e+01_rb,7.1614e+01_rb/)
+      kbo(:,35,14) = (/ &
+     &2.4792e+01_rb,3.3010e+01_rb,4.3016e+01_rb,5.5082e+01_rb,6.9332e+01_rb/)
+      kbo(:,36,14) = (/ &
+     &2.2854e+01_rb,3.0681e+01_rb,4.0335e+01_rb,5.2076e+01_rb,6.5971e+01_rb/)
+      kbo(:,37,14) = (/ &
+     &2.0215e+01_rb,2.7477e+01_rb,3.6561e+01_rb,4.7698e+01_rb,6.0990e+01_rb/)
+      kbo(:,38,14) = (/ &
+     &1.7901e+01_rb,2.4657e+01_rb,3.3200e+01_rb,4.3777e+01_rb,5.6518e+01_rb/)
+      kbo(:,39,14) = (/ &
+     &1.5916e+01_rb,2.2229e+01_rb,3.0285e+01_rb,4.0352e+01_rb,5.2594e+01_rb/)
+      kbo(:,40,14) = (/ &
+     &1.3687e+01_rb,1.9453e+01_rb,2.6865e+01_rb,3.6273e+01_rb,4.7801e+01_rb/)
+      kbo(:,41,14) = (/ &
+     &1.1706e+01_rb,1.6957e+01_rb,2.3775e+01_rb,3.2529e+01_rb,4.3345e+01_rb/)
+      kbo(:,42,14) = (/ &
+     &1.0015e+01_rb,1.4777e+01_rb,2.1056e+01_rb,2.9181e+01_rb,3.9336e+01_rb/)
+      kbo(:,43,14) = (/ &
+     &8.3602e+00_rb,1.2595e+01_rb,1.8289e+01_rb,2.5700e+01_rb,3.5139e+01_rb/)
+      kbo(:,44,14) = (/ &
+     &6.8842e+00_rb,1.0588e+01_rb,1.5702e+01_rb,2.2421e+01_rb,3.1090e+01_rb/)
+      kbo(:,45,14) = (/ &
+     &5.6505e+00_rb,8.8697e+00_rb,1.3428e+01_rb,1.9525e+01_rb,2.7445e+01_rb/)
+      kbo(:,46,14) = (/ &
+     &4.5669e+00_rb,7.3282e+00_rb,1.1331e+01_rb,1.6810e+01_rb,2.3987e+01_rb/)
+      kbo(:,47,14) = (/ &
+     &3.5910e+00_rb,5.9011e+00_rb,9.3338e+00_rb,1.4162e+01_rb,2.0590e+01_rb/)
+      kbo(:,48,14) = (/ &
+     &2.8046e+00_rb,4.7156e+00_rb,7.6334e+00_rb,1.1848e+01_rb,1.7577e+01_rb/)
+      kbo(:,49,14) = (/ &
+     &2.1748e+00_rb,3.7383e+00_rb,6.1955e+00_rb,9.8356e+00_rb,1.4909e+01_rb/)
+      kbo(:,50,14) = (/ &
+     &1.6968e+00_rb,2.9824e+00_rb,5.0552e+00_rb,8.1970e+00_rb,1.2692e+01_rb/)
+      kbo(:,51,14) = (/ &
+     &1.3228e+00_rb,2.3793e+00_rb,4.1196e+00_rb,6.8244e+00_rb,1.0784e+01_rb/)
+      kbo(:,52,14) = (/ &
+     &1.0245e+00_rb,1.8865e+00_rb,3.3355e+00_rb,5.6478e+00_rb,9.1028e+00_rb/)
+      kbo(:,53,14) = (/ &
+     &7.8728e-01_rb,1.4840e+00_rb,2.6816e+00_rb,4.6391e+00_rb,7.6341e+00_rb/)
+      kbo(:,54,14) = (/ &
+     &6.1018e-01_rb,1.1815e+00_rb,2.1812e+00_rb,3.8474e+00_rb,6.4584e+00_rb/)
+      kbo(:,55,14) = (/ &
+     &4.7246e-01_rb,9.4354e-01_rb,1.7799e+00_rb,3.1974e+00_rb,5.4714e+00_rb/)
+      kbo(:,56,14) = (/ &
+     &3.6268e-01_rb,7.4897e-01_rb,1.4435e+00_rb,2.6438e+00_rb,4.6110e+00_rb/)
+      kbo(:,57,14) = (/ &
+     &2.7617e-01_rb,5.8818e-01_rb,1.1638e+00_rb,2.1763e+00_rb,3.8632e+00_rb/)
+      kbo(:,58,14) = (/ &
+     &2.1026e-01_rb,4.6281e-01_rb,9.4334e-01_rb,1.8002e+00_rb,3.2506e+00_rb/)
+      kbo(:,59,14) = (/ &
+     &1.8510e-01_rb,4.1578e-01_rb,8.6198e-01_rb,1.6609e+00_rb,3.0231e+00_rb/)
+      kbo(:,13,15) = (/ &
+     &7.9497e+01_rb,1.0631e+02_rb,1.3951e+02_rb,1.8076e+02_rb,2.3534e+02_rb/)
+      kbo(:,14,15) = (/ &
+     &9.0008e+01_rb,1.2102e+02_rb,1.6070e+02_rb,2.0844e+02_rb,2.6891e+02_rb/)
+      kbo(:,15,15) = (/ &
+     &1.0142e+02_rb,1.3773e+02_rb,1.8424e+02_rb,2.3942e+02_rb,3.0596e+02_rb/)
+      kbo(:,16,15) = (/ &
+     &1.1444e+02_rb,1.5595e+02_rb,2.0951e+02_rb,2.7261e+02_rb,3.4599e+02_rb/)
+      kbo(:,17,15) = (/ &
+     &1.2871e+02_rb,1.7599e+02_rb,2.3611e+02_rb,3.0737e+02_rb,3.8849e+02_rb/)
+      kbo(:,18,15) = (/ &
+     &1.4444e+02_rb,1.9729e+02_rb,2.6334e+02_rb,3.4204e+02_rb,4.3103e+02_rb/)
+      kbo(:,19,15) = (/ &
+     &1.6121e+02_rb,2.1913e+02_rb,2.9095e+02_rb,3.7632e+02_rb,4.7170e+02_rb/)
+      kbo(:,20,15) = (/ &
+     &1.7880e+02_rb,2.4196e+02_rb,3.1956e+02_rb,4.1027e+02_rb,5.1312e+02_rb/)
+      kbo(:,21,15) = (/ &
+     &1.9582e+02_rb,2.6409e+02_rb,3.4675e+02_rb,4.4276e+02_rb,5.5264e+02_rb/)
+      kbo(:,22,15) = (/ &
+     &2.1631e+02_rb,2.9018e+02_rb,3.7825e+02_rb,4.8067e+02_rb,5.9651e+02_rb/)
+      kbo(:,23,15) = (/ &
+     &2.3693e+02_rb,3.1638e+02_rb,4.0986e+02_rb,5.1726e+02_rb,6.3877e+02_rb/)
+      kbo(:,24,15) = (/ &
+     &2.5815e+02_rb,3.4252e+02_rb,4.4099e+02_rb,5.5343e+02_rb,6.7985e+02_rb/)
+      kbo(:,25,15) = (/ &
+     &2.7940e+02_rb,3.6830e+02_rb,4.7141e+02_rb,5.8880e+02_rb,7.2036e+02_rb/)
+      kbo(:,26,15) = (/ &
+     &3.0147e+02_rb,3.9459e+02_rb,5.0246e+02_rb,6.2482e+02_rb,7.6276e+02_rb/)
+      kbo(:,27,15) = (/ &
+     &3.2318e+02_rb,4.2065e+02_rb,5.3313e+02_rb,6.6087e+02_rb,8.0529e+02_rb/)
+      kbo(:,28,15) = (/ &
+     &3.4508e+02_rb,4.4657e+02_rb,5.6379e+02_rb,6.9725e+02_rb,8.4792e+02_rb/)
+      kbo(:,29,15) = (/ &
+     &3.6777e+02_rb,4.7381e+02_rb,5.9626e+02_rb,7.3554e+02_rb,8.9251e+02_rb/)
+      kbo(:,30,15) = (/ &
+     &3.9103e+02_rb,5.0185e+02_rb,6.2997e+02_rb,7.7485e+02_rb,9.3819e+02_rb/)
+      kbo(:,31,15) = (/ &
+     &4.1560e+02_rb,5.3166e+02_rb,6.6523e+02_rb,8.1615e+02_rb,9.8559e+02_rb/)
+      kbo(:,32,15) = (/ &
+     &4.4194e+02_rb,5.6341e+02_rb,7.0244e+02_rb,8.5957e+02_rb,1.0345e+03_rb/)
+      kbo(:,33,15) = (/ &
+     &4.7004e+02_rb,5.9690e+02_rb,7.4161e+02_rb,9.0465e+02_rb,1.0849e+03_rb/)
+      kbo(:,34,15) = (/ &
+     &4.9560e+02_rb,6.2720e+02_rb,7.7702e+02_rb,9.4526e+02_rb,1.1301e+03_rb/)
+      kbo(:,35,15) = (/ &
+     &5.1020e+02_rb,6.4498e+02_rb,7.9798e+02_rb,9.6921e+02_rb,1.1571e+03_rb/)
+      kbo(:,36,15) = (/ &
+     &5.1153e+02_rb,6.4732e+02_rb,8.0146e+02_rb,9.7374e+02_rb,1.1629e+03_rb/)
+      kbo(:,37,15) = (/ &
+     &4.9411e+02_rb,6.2784e+02_rb,7.8019e+02_rb,9.5084e+02_rb,1.1384e+03_rb/)
+      kbo(:,38,15) = (/ &
+     &4.7607e+02_rb,6.0738e+02_rb,7.5785e+02_rb,9.2634e+02_rb,1.1122e+03_rb/)
+      kbo(:,39,15) = (/ &
+     &4.5860e+02_rb,5.8729e+02_rb,7.3571e+02_rb,9.0212e+02_rb,1.0835e+03_rb/)
+      kbo(:,40,15) = (/ &
+     &4.2990e+02_rb,5.5385e+02_rb,6.9803e+02_rb,8.6039e+02_rb,1.0406e+03_rb/)
+      kbo(:,41,15) = (/ &
+     &4.0087e+02_rb,5.1992e+02_rb,6.5921e+02_rb,8.1732e+02_rb,9.9347e+02_rb/)
+      kbo(:,42,15) = (/ &
+     &3.7298e+02_rb,4.8724e+02_rb,6.2146e+02_rb,7.7537e+02_rb,9.4699e+02_rb/)
+      kbo(:,43,15) = (/ &
+     &3.4053e+02_rb,4.4909e+02_rb,5.7712e+02_rb,7.2520e+02_rb,8.9154e+02_rb/)
+      kbo(:,44,15) = (/ &
+     &3.0753e+02_rb,4.1020e+02_rb,5.3144e+02_rb,6.7302e+02_rb,8.3358e+02_rb/)
+      kbo(:,45,15) = (/ &
+     &2.7654e+02_rb,3.7323e+02_rb,4.8808e+02_rb,6.2285e+02_rb,7.7741e+02_rb/)
+      kbo(:,46,15) = (/ &
+     &2.4531e+02_rb,3.3622e+02_rb,4.4437e+02_rb,5.7189e+02_rb,7.1969e+02_rb/)
+      kbo(:,47,15) = (/ &
+     &2.1302e+02_rb,2.9761e+02_rb,3.9853e+02_rb,5.1809e+02_rb,6.5783e+02_rb/)
+      kbo(:,48,15) = (/ &
+     &1.8355e+02_rb,2.6147e+02_rb,3.5562e+02_rb,4.6754e+02_rb,5.9909e+02_rb/)
+      kbo(:,49,15) = (/ &
+     &1.5701e+02_rb,2.2791e+02_rb,3.1569e+02_rb,4.2021e+02_rb,5.4365e+02_rb/)
+      kbo(:,50,15) = (/ &
+     &1.3468e+02_rb,1.9893e+02_rb,2.8071e+02_rb,3.7858e+02_rb,4.9472e+02_rb/)
+      kbo(:,51,15) = (/ &
+     &1.1526e+02_rb,1.7331e+02_rb,2.4880e+02_rb,3.4068e+02_rb,4.5000e+02_rb/)
+      kbo(:,52,15) = (/ &
+     &9.7991e+01_rb,1.5012e+02_rb,2.1915e+02_rb,3.0532e+02_rb,4.0798e+02_rb/)
+      kbo(:,53,15) = (/ &
+     &8.2622e+01_rb,1.2914e+02_rb,1.9179e+02_rb,2.7194e+02_rb,3.6825e+02_rb/)
+      kbo(:,54,15) = (/ &
+     &7.0111e+01_rb,1.1182e+02_rb,1.6882e+02_rb,2.4316e+02_rb,3.3408e+02_rb/)
+      kbo(:,55,15) = (/ &
+     &5.9451e+01_rb,9.6898e+01_rb,1.4869e+02_rb,2.1737e+02_rb,3.0323e+02_rb/)
+      kbo(:,56,15) = (/ &
+     &4.9982e+01_rb,8.3446e+01_rb,1.3033e+02_rb,1.9338e+02_rb,2.7397e+02_rb/)
+      kbo(:,57,15) = (/ &
+     &4.1621e+01_rb,7.1384e+01_rb,1.1363e+02_rb,1.7127e+02_rb,2.4633e+02_rb/)
+      kbo(:,58,15) = (/ &
+     &3.4650e+01_rb,6.1162e+01_rb,9.9313e+01_rb,1.5200e+02_rb,2.2168e+02_rb/)
+      kbo(:,59,15) = (/ &
+     &3.2067e+01_rb,5.7347e+01_rb,9.3961e+01_rb,1.4472e+02_rb,2.1224e+02_rb/)
+      kbo(:,13,16) = (/ &
+     &1.4292e+02_rb,1.7830e+02_rb,2.5018e+02_rb,3.7037e+02_rb,5.2070e+02_rb/)
+      kbo(:,14,16) = (/ &
+     &1.7229e+02_rb,2.1935e+02_rb,3.0306e+02_rb,4.4388e+02_rb,6.2020e+02_rb/)
+      kbo(:,15,16) = (/ &
+     &2.0873e+02_rb,2.6972e+02_rb,3.6756e+02_rb,5.2712e+02_rb,7.3393e+02_rb/)
+      kbo(:,16,16) = (/ &
+     &2.5439e+02_rb,3.3072e+02_rb,4.4570e+02_rb,6.2226e+02_rb,8.6517e+02_rb/)
+      kbo(:,17,16) = (/ &
+     &3.0902e+02_rb,4.0145e+02_rb,5.3763e+02_rb,7.3415e+02_rb,1.0082e+03_rb/)
+      kbo(:,18,16) = (/ &
+     &3.7239e+02_rb,4.8343e+02_rb,6.4354e+02_rb,8.6401e+02_rb,1.1697e+03_rb/)
+      kbo(:,19,16) = (/ &
+     &4.4344e+02_rb,5.7744e+02_rb,7.6245e+02_rb,1.0126e+03_rb,1.3544e+03_rb/)
+      kbo(:,20,16) = (/ &
+     &5.2591e+02_rb,6.8473e+02_rb,8.9843e+02_rb,1.1879e+03_rb,1.5662e+03_rb/)
+      kbo(:,21,16) = (/ &
+     &6.1975e+02_rb,8.0389e+02_rb,1.0527e+03_rb,1.3850e+03_rb,1.8066e+03_rb/)
+      kbo(:,22,16) = (/ &
+     &7.3890e+02_rb,9.5515e+02_rb,1.2474e+03_rb,1.6302e+03_rb,2.1130e+03_rb/)
+      kbo(:,23,16) = (/ &
+     &8.7503e+02_rb,1.1289e+03_rb,1.4705e+03_rb,1.9102e+03_rb,2.4554e+03_rb/)
+      kbo(:,24,16) = (/ &
+     &1.0277e+03_rb,1.3283e+03_rb,1.7241e+03_rb,2.2247e+03_rb,2.8319e+03_rb/)
+      kbo(:,25,16) = (/ &
+     &1.2034e+03_rb,1.5543e+03_rb,2.0073e+03_rb,2.5693e+03_rb,3.2356e+03_rb/)
+      kbo(:,26,16) = (/ &
+     &1.4042e+03_rb,1.8088e+03_rb,2.3218e+03_rb,2.9229e+03_rb,3.6714e+03_rb/)
+      kbo(:,27,16) = (/ &
+     &1.6234e+03_rb,2.0833e+03_rb,2.6544e+03_rb,3.3382e+03_rb,4.1196e+03_rb/)
+      kbo(:,28,16) = (/ &
+     &1.8563e+03_rb,2.3730e+03_rb,3.0002e+03_rb,3.7388e+03_rb,4.5730e+03_rb/)
+      kbo(:,29,16) = (/ &
+     &2.1060e+03_rb,2.6609e+03_rb,3.3576e+03_rb,4.1487e+03_rb,5.0295e+03_rb/)
+      kbo(:,30,16) = (/ &
+     &2.3669e+03_rb,2.9882e+03_rb,3.7190e+03_rb,4.5573e+03_rb,5.4823e+03_rb/)
+      kbo(:,31,16) = (/ &
+     &2.6382e+03_rb,3.3079e+03_rb,4.0851e+03_rb,4.9669e+03_rb,5.9326e+03_rb/)
+      kbo(:,32,16) = (/ &
+     &2.9162e+03_rb,3.6311e+03_rb,4.4535e+03_rb,5.3188e+03_rb,6.3774e+03_rb/)
+      kbo(:,33,16) = (/ &
+     &3.1977e+03_rb,3.9546e+03_rb,4.8182e+03_rb,5.7741e+03_rb,6.8136e+03_rb/)
+      kbo(:,34,16) = (/ &
+     &3.4540e+03_rb,4.2467e+03_rb,5.1445e+03_rb,6.1305e+03_rb,7.1986e+03_rb/)
+      kbo(:,35,16) = (/ &
+     &3.6329e+03_rb,4.4502e+03_rb,5.3698e+03_rb,6.3759e+03_rb,7.4635e+03_rb/)
+      kbo(:,36,16) = (/ &
+     &3.7190e+03_rb,4.5470e+03_rb,5.4751e+03_rb,6.4918e+03_rb,7.5883e+03_rb/)
+      kbo(:,37,16) = (/ &
+     &3.6766e+03_rb,4.4979e+03_rb,5.4194e+03_rb,6.4326e+03_rb,7.5253e+03_rb/)
+      kbo(:,38,16) = (/ &
+     &3.6175e+03_rb,4.4311e+03_rb,5.3444e+03_rb,6.3514e+03_rb,7.4384e+03_rb/)
+      kbo(:,39,16) = (/ &
+     &3.5511e+03_rb,4.3577e+03_rb,5.2603e+03_rb,6.2593e+03_rb,7.3011e+03_rb/)
+      kbo(:,40,16) = (/ &
+     &3.4038e+03_rb,4.1899e+03_rb,5.0730e+03_rb,6.0546e+03_rb,7.1202e+03_rb/)
+      kbo(:,41,16) = (/ &
+     &3.2449e+03_rb,4.0090e+03_rb,4.8718e+03_rb,5.8306e+03_rb,6.8794e+03_rb/)
+      kbo(:,42,16) = (/ &
+     &3.0878e+03_rb,3.8270e+03_rb,4.6679e+03_rb,5.6043e+03_rb,6.6342e+03_rb/)
+      kbo(:,43,16) = (/ &
+     &2.8974e+03_rb,3.6038e+03_rb,4.4171e+03_rb,5.3250e+03_rb,6.3295e+03_rb/)
+      kbo(:,44,16) = (/ &
+     &2.6963e+03_rb,3.3670e+03_rb,4.1477e+03_rb,5.0263e+03_rb,5.9993e+03_rb/)
+      kbo(:,45,16) = (/ &
+     &2.5060e+03_rb,3.1396e+03_rb,3.8862e+03_rb,4.7337e+03_rb,5.6766e+03_rb/)
+      kbo(:,46,16) = (/ &
+     &2.3164e+03_rb,2.9079e+03_rb,3.6158e+03_rb,4.4299e+03_rb,5.3398e+03_rb/)
+      kbo(:,47,16) = (/ &
+     &2.1174e+03_rb,2.6621e+03_rb,3.3261e+03_rb,4.0998e+03_rb,4.9727e+03_rb/)
+      kbo(:,48,16) = (/ &
+     &1.9329e+03_rb,2.4347e+03_rb,3.0518e+03_rb,3.7834e+03_rb,4.6186e+03_rb/)
+      kbo(:,49,16) = (/ &
+     &1.7595e+03_rb,2.2251e+03_rb,2.7943e+03_rb,3.4811e+03_rb,4.2776e+03_rb/)
+      kbo(:,50,16) = (/ &
+     &1.6082e+03_rb,2.0431e+03_rb,2.5690e+03_rb,3.2137e+03_rb,3.9707e+03_rb/)
+      kbo(:,51,16) = (/ &
+     &1.4710e+03_rb,1.8773e+03_rb,2.3673e+03_rb,2.9684e+03_rb,3.6854e+03_rb/)
+      kbo(:,52,16) = (/ &
+     &1.3426e+03_rb,1.7222e+03_rb,2.1800e+03_rb,2.7371e+03_rb,3.4141e+03_rb/)
+      kbo(:,53,16) = (/ &
+     &1.2224e+03_rb,1.5765e+03_rb,2.0045e+03_rb,2.5219e+03_rb,3.1562e+03_rb/)
+      kbo(:,54,16) = (/ &
+     &1.1196e+03_rb,1.4516e+03_rb,1.8541e+03_rb,2.3387e+03_rb,2.9325e+03_rb/)
+      kbo(:,55,16) = (/ &
+     &1.0267e+03_rb,1.3387e+03_rb,1.7175e+03_rb,2.1745e+03_rb,2.7302e+03_rb/)
+      kbo(:,56,16) = (/ &
+     &9.3987e+02_rb,1.2326e+03_rb,1.5894e+03_rb,2.0202e+03_rb,2.5405e+03_rb/)
+      kbo(:,57,16) = (/ &
+     &8.5792e+02_rb,1.1333e+03_rb,1.4474e+03_rb,1.8742e+03_rb,2.3631e+03_rb/)
+      kbo(:,58,16) = (/ &
+     &7.8443e+02_rb,1.0443e+03_rb,1.3605e+03_rb,1.7435e+03_rb,2.2055e+03_rb/)
+      kbo(:,59,16) = (/ &
+     &7.5656e+02_rb,1.0103e+03_rb,1.3189e+03_rb,1.6936e+03_rb,2.1455e+03_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &2.8549e-03_rb,4.8281e-03_rb,6.2570e-03_rb,8.2731e-03_rb,7.9056e-03_rb,7.7840e-03_rb, &
+     &1.0115e-02_rb,9.6599e-03_rb,1.0153e-02_rb,1.0921e-02_rb,1.2408e-02_rb,1.3496e-02_rb, &
+     &1.5059e-02_rb,1.4636e-02_rb,1.6483e-02_rb,1.2394e-02_rb/)
+      forrefo(2,:) = (/ &
+     &3.0036e-03_rb,5.1093e-03_rb,5.7317e-03_rb,9.2246e-03_rb,8.9829e-03_rb,8.6477e-03_rb, &
+     &1.1448e-02_rb,1.0391e-02_rb,1.0211e-02_rb,1.2921e-02_rb,1.2726e-02_rb,1.2426e-02_rb, &
+     &1.4609e-02_rb,1.5783e-02_rb,1.6617e-02_rb,1.6858e-02_rb/)
+      forrefo(3,:) = (/ &
+     &3.0771e-03_rb,5.1206e-03_rb,5.8426e-03_rb,9.5727e-03_rb,1.0338e-02_rb,9.3737e-03_rb, &
+     &1.2805e-02_rb,1.1272e-02_rb,1.1353e-02_rb,1.1837e-02_rb,1.1550e-02_rb,1.3020e-02_rb, &
+     &1.3536e-02_rb,1.6226e-02_rb,1.6039e-02_rb,2.2578e-02_rb/)
+      forrefo(4,:) = (/ &
+     &3.3072e-03_rb,5.0240e-03_rb,6.8474e-03_rb,8.2736e-03_rb,8.6151e-03_rb,8.6762e-03_rb, &
+     &1.1476e-02_rb,1.0246e-02_rb,1.0819e-02_rb,1.0640e-02_rb,1.0545e-02_rb,1.0533e-02_rb, &
+     &1.0496e-02_rb,1.0142e-02_rb,9.7979e-03_rb,1.5255e-02_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 7.25695e-01_rb, 6.53591e-01_rb, 5.88650e-01_rb, 5.30162e-01_rb, 4.77485e-01_rb, &
+     & 4.30042e-01_rb, 3.87313e-01_rb, 3.48830e-01_rb, 3.14170e-01_rb, 2.82954e-01_rb/)
+      selfrefo(:, 2) = (/ &
+     & 9.61996e-01_rb, 8.77853e-01_rb, 8.01070e-01_rb, 7.31003e-01_rb, 6.67064e-01_rb, &
+     & 6.08718e-01_rb, 5.55476e-01_rb, 5.06890e-01_rb, 4.62554e-01_rb, 4.22096e-01_rb/)
+      selfrefo(:, 3) = (/ &
+     & 9.72584e-01_rb, 9.02658e-01_rb, 8.37760e-01_rb, 7.77527e-01_rb, 7.21626e-01_rb, &
+     & 6.69743e-01_rb, 6.21591e-01_rb, 5.76900e-01_rb, 5.35423e-01_rb, 4.96927e-01_rb/)
+      selfrefo(:, 4) = (/ &
+     & 1.24790e+00_rb, 1.14353e+00_rb, 1.04790e+00_rb, 9.60263e-01_rb, 8.79956e-01_rb, &
+     & 8.06364e-01_rb, 7.38927e-01_rb, 6.77130e-01_rb, 6.20501e-01_rb, 5.68608e-01_rb/)
+      selfrefo(:, 5) = (/ &
+     & 1.23574e+00_rb, 1.12928e+00_rb, 1.03200e+00_rb, 9.43096e-01_rb, 8.61851e-01_rb, &
+     & 7.87605e-01_rb, 7.19755e-01_rb, 6.57750e-01_rb, 6.01087e-01_rb, 5.49305e-01_rb/)
+      selfrefo(:, 6) = (/ &
+     & 1.20921e+00_rb, 1.10660e+00_rb, 1.01270e+00_rb, 9.26766e-01_rb, 8.48124e-01_rb, &
+     & 7.76155e-01_rb, 7.10293e-01_rb, 6.50020e-01_rb, 5.94861e-01_rb, 5.44384e-01_rb/)
+      selfrefo(:, 7) = (/ &
+     & 1.38112e+00_rb, 1.26727e+00_rb, 1.16280e+00_rb, 1.06694e+00_rb, 9.78990e-01_rb, &
+     & 8.98287e-01_rb, 8.24236e-01_rb, 7.56290e-01_rb, 6.93945e-01_rb, 6.36739e-01_rb/)
+      selfrefo(:, 8) = (/ &
+     & 1.30321e+00_rb, 1.20127e+00_rb, 1.10730e+00_rb, 1.02068e+00_rb, 9.40840e-01_rb, &
+     & 8.67243e-01_rb, 7.99403e-01_rb, 7.36870e-01_rb, 6.79229e-01_rb, 6.26096e-01_rb/)
+      selfrefo(:, 9) = (/ &
+     & 1.26713e+00_rb, 1.17927e+00_rb, 1.09750e+00_rb, 1.02140e+00_rb, 9.50575e-01_rb, &
+     & 8.84662e-01_rb, 8.23319e-01_rb, 7.66230e-01_rb, 7.13099e-01_rb, 6.63653e-01_rb/)
+      selfrefo(:,10) = (/ &
+     & 1.49824e+00_rb, 1.37053e+00_rb, 1.25370e+00_rb, 1.14683e+00_rb, 1.04908e+00_rb, &
+     & 9.59651e-01_rb, 8.77849e-01_rb, 8.03020e-01_rb, 7.34569e-01_rb, 6.71954e-01_rb/)
+      selfrefo(:,11) = (/ &
+     & 1.44786e+00_rb, 1.34594e+00_rb, 1.25120e+00_rb, 1.16313e+00_rb, 1.08125e+00_rb, &
+     & 1.00514e+00_rb, 9.34392e-01_rb, 8.68620e-01_rb, 8.07477e-01_rb, 7.50639e-01_rb/)
+      selfrefo(:,12) = (/ &
+     & 1.38460e+00_rb, 1.30437e+00_rb, 1.22880e+00_rb, 1.15760e+00_rb, 1.09053e+00_rb, &
+     & 1.02735e+00_rb, 9.67825e-01_rb, 9.11750e-01_rb, 8.58924e-01_rb, 8.09159e-01_rb/)
+      selfrefo(:,13) = (/ &
+     & 1.51953e+00_rb, 1.42822e+00_rb, 1.34240e+00_rb, 1.26173e+00_rb, 1.18592e+00_rb, &
+     & 1.11465e+00_rb, 1.04768e+00_rb, 9.84720e-01_rb, 9.25548e-01_rb, 8.69932e-01_rb/)
+      selfrefo(:,14) = (/ &
+     & 1.62608e+00_rb, 1.51021e+00_rb, 1.40260e+00_rb, 1.30266e+00_rb, 1.20983e+00_rb, &
+     & 1.12363e+00_rb, 1.04356e+00_rb, 9.69200e-01_rb, 9.00138e-01_rb, 8.35998e-01_rb/)
+      selfrefo(:,15) = (/ &
+     & 1.65383e+00_rb, 1.54808e+00_rb, 1.44910e+00_rb, 1.35644e+00_rb, 1.26971e+00_rb, &
+     & 1.18853e+00_rb, 1.11254e+00_rb, 1.04140e+00_rb, 9.74813e-01_rb, 9.12484e-01_rb/)
+      selfrefo(:,16) = (/ &
+     & 1.78105e+00_rb, 1.61421e+00_rb, 1.46300e+00_rb, 1.32595e+00_rb, 1.20174e+00_rb, &
+     & 1.08917e+00_rb, 9.87141e-01_rb, 8.94670e-01_rb, 8.10861e-01_rb, 7.34904e-01_rb/)
+
+      end subroutine lw_kgb02
+
+! **************************************************************************
+      subroutine lw_kgb03
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg03, only : fracrefao, fracrefbo, kao, kbo, kao_mn2o, &
+                            kbo_mn2o, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level: P=212.7250 mbar, T = 223.06 K
+      fracrefao(:, 1) = (/ &
+     &   1.6251e-01_rb,1.5572e-01_rb,1.4557e-01_rb,1.3208e-01_rb,1.1582e-01_rb,9.6895e-02_rb, &
+     &   7.8720e-02_rb,5.8462e-02_rb,3.9631e-02_rb,4.3001e-03_rb,3.5555e-03_rb,2.8101e-03_rb, &
+     &   2.0547e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)
+      fracrefao(:, 2) = (/ &
+     &   1.6006e-01_rb,1.5576e-01_rb,1.4609e-01_rb,1.3276e-01_rb,1.1594e-01_rb,9.7336e-02_rb, &
+     &   7.9035e-02_rb,5.8696e-02_rb,3.9723e-02_rb,4.3001e-03_rb,3.5555e-03_rb,2.8101e-03_rb, &
+     &   2.0547e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)
+      fracrefao(:, 3) = (/ &
+     &   1.5952e-01_rb,1.5566e-01_rb,1.4590e-01_rb,1.3294e-01_rb,1.1599e-01_rb,9.7511e-02_rb, &
+     &   7.9127e-02_rb,5.8888e-02_rb,3.9874e-02_rb,4.3001e-03_rb,3.5555e-03_rb,2.8102e-03_rb, &
+     &   2.0547e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)
+      fracrefao(:, 4) = (/ &
+     &   1.5907e-01_rb,1.5541e-01_rb,1.4585e-01_rb,1.3316e-01_rb,1.1596e-01_rb,9.7647e-02_rb, &
+     &   7.9243e-02_rb,5.9024e-02_rb,4.0028e-02_rb,4.3112e-03_rb,3.5555e-03_rb,2.8102e-03_rb, &
+     &   2.0547e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)
+      fracrefao(:, 5) = (/ &
+     &   1.5862e-01_rb,1.5517e-01_rb,1.4588e-01_rb,1.3328e-01_rb,1.1585e-01_rb,9.7840e-02_rb, &
+     &   7.9364e-02_rb,5.9174e-02_rb,4.0160e-02_rb,4.3403e-03_rb,3.5900e-03_rb,2.8102e-03_rb, &
+     &   2.0547e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)
+      fracrefao(:, 6) = (/ &
+     &   1.5830e-01_rb,1.5490e-01_rb,1.4582e-01_rb,1.3331e-01_rb,1.1567e-01_rb,9.8079e-02_rb, &
+     &   7.9510e-02_rb,5.9369e-02_rb,4.0326e-02_rb,4.3343e-03_rb,3.5908e-03_rb,2.8527e-03_rb, &
+     &   2.0655e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)
+      fracrefao(:, 7) = (/ &
+     &   1.5789e-01_rb,1.5435e-01_rb,1.4595e-01_rb,1.3304e-01_rb,1.1566e-01_rb,9.8426e-02_rb, &
+     &   7.9704e-02_rb,5.9618e-02_rb,4.0520e-02_rb,4.3812e-03_rb,3.6147e-03_rb,2.8395e-03_rb, &
+     &   2.1301e-03_rb,1.3145e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)
+      fracrefao(:, 8) = (/ &
+     &   1.5704e-01_rb,1.5398e-01_rb,1.4564e-01_rb,1.3222e-01_rb,1.1586e-01_rb,9.9230e-02_rb, &
+     &   8.0011e-02_rb,6.0149e-02_rb,4.0790e-02_rb,4.4253e-03_rb,3.6534e-03_rb,2.9191e-03_rb, &
+     &   2.1373e-03_rb,1.3558e-03_rb,5.1631e-04_rb,7.8794e-05_rb/)
+      fracrefao(:, 9) = (/ &
+     &   1.5270e-01_rb,1.5126e-01_rb,1.4264e-01_rb,1.3106e-01_rb,1.1740e-01_rb,1.0137e-01_rb, &
+     &   8.3057e-02_rb,6.2282e-02_rb,4.2301e-02_rb,4.6486e-03_rb,3.8159e-03_rb,3.0472e-03_rb, &
+     &   2.2870e-03_rb,1.4818e-03_rb,5.6773e-04_rb,7.8794e-05_rb/)
+
+! Planck fraction mapping level: p = 95.8 mbar, t = 215.7 k
+      fracrefbo(:, 1) = (/ &
+     &   1.6413e-01_rb,1.5665e-01_rb,1.4606e-01_rb,1.3184e-01_rb,1.1517e-01_rb,9.6243e-02_rb, &
+     &   7.7982e-02_rb,5.8165e-02_rb,3.9311e-02_rb,4.2586e-03_rb,3.5189e-03_rb,2.7793e-03_rb, &
+     &   2.0376e-03_rb,1.2938e-03_rb,4.8853e-04_rb,6.8745e-05_rb/)
+      fracrefbo(:, 2) = (/ &
+     &   1.6254e-01_rb,1.5674e-01_rb,1.4652e-01_rb,1.3221e-01_rb,1.1535e-01_rb,9.6439e-02_rb, &
+     &   7.8155e-02_rb,5.8254e-02_rb,3.9343e-02_rb,4.2586e-03_rb,3.5189e-03_rb,2.7793e-03_rb, &
+     &   2.0376e-03_rb,1.2938e-03_rb,4.8853e-04_rb,6.8745e-05_rb/)
+      fracrefbo(:, 3) = (/ &
+     &   1.6177e-01_rb,1.5664e-01_rb,1.4669e-01_rb,1.3242e-01_rb,1.1541e-01_rb,9.6536e-02_rb, &
+     &   7.8257e-02_rb,5.8387e-02_rb,3.9431e-02_rb,4.2587e-03_rb,3.5189e-03_rb,2.7793e-03_rb, &
+     &   2.0376e-03_rb,1.2938e-03_rb,4.8853e-04_rb,6.8745e-05_rb/)
+      fracrefbo(:, 4) = (/ &
+     &   1.6077e-01_rb,1.5679e-01_rb,1.4648e-01_rb,1.3273e-01_rb,1.1546e-01_rb,9.6779e-02_rb, &
+     &   7.8371e-02_rb,5.8546e-02_rb,3.9611e-02_rb,4.2772e-03_rb,3.5190e-03_rb,2.7793e-03_rb, &
+     &   2.0376e-03_rb,1.2938e-03_rb,4.8853e-04_rb,6.8745e-05_rb/)
+      fracrefbo(:, 5) = (/ &
+     &   1.6067e-01_rb,1.5608e-01_rb,1.4247e-01_rb,1.2881e-01_rb,1.1449e-01_rb,9.8802e-02_rb, &
+     &   8.0828e-02_rb,6.0977e-02_rb,4.1494e-02_rb,4.5116e-03_rb,3.7290e-03_rb,2.9460e-03_rb, &
+     &   2.1948e-03_rb,1.3778e-03_rb,5.4552e-04_rb,7.9969e-05_rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1, 1) = (/ &
+     &3.1886e-07_rb,1.8969e-04_rb,4.1239e-04_rb,6.4667e-04_rb,8.5292e-04_rb,1.1836e-03_rb, &
+     &1.4006e-03_rb,1.5411e-03_rb,8.3293e-04_rb/)
+      kao(:, 2, 1, 1) = (/ &
+     &4.3208e-07_rb,2.2286e-04_rb,4.4627e-04_rb,7.2330e-04_rb,9.3694e-04_rb,1.2337e-03_rb, &
+     &1.5482e-03_rb,1.7773e-03_rb,1.0038e-03_rb/)
+      kao(:, 3, 1, 1) = (/ &
+     &5.8834e-07_rb,2.6143e-04_rb,5.0441e-04_rb,7.7424e-04_rb,1.0403e-03_rb,1.3331e-03_rb, &
+     &1.7908e-03_rb,2.0845e-03_rb,1.1619e-03_rb/)
+      kao(:, 4, 1, 1) = (/ &
+     &7.9926e-07_rb,3.0532e-04_rb,5.7655e-04_rb,8.4667e-04_rb,1.1189e-03_rb,1.4849e-03_rb, &
+     &1.7793e-03_rb,2.3392e-03_rb,1.2758e-03_rb/)
+      kao(:, 5, 1, 1) = (/ &
+     &1.0726e-06_rb,3.5559e-04_rb,6.6472e-04_rb,9.5586e-04_rb,1.2287e-03_rb,1.5629e-03_rb, &
+     &1.9684e-03_rb,2.6521e-03_rb,1.4781e-03_rb/)
+      kao(:, 1, 2, 1) = (/ &
+     &3.7301e-07_rb,1.5101e-04_rb,3.0613e-04_rb,5.2444e-04_rb,6.6785e-04_rb,9.0347e-04_rb, &
+     &1.1047e-03_rb,1.2717e-03_rb,6.0920e-04_rb/)
+      kao(:, 2, 2, 1) = (/ &
+     &5.0464e-07_rb,1.7900e-04_rb,3.4606e-04_rb,5.4112e-04_rb,7.7706e-04_rb,9.3108e-04_rb, &
+     &1.2909e-03_rb,1.4671e-03_rb,7.3637e-04_rb/)
+      kao(:, 3, 2, 1) = (/ &
+     &6.9109e-07_rb,2.1210e-04_rb,4.0308e-04_rb,5.9670e-04_rb,8.3572e-04_rb,1.0539e-03_rb, &
+     &1.2895e-03_rb,1.6281e-03_rb,8.3917e-04_rb/)
+      kao(:, 4, 2, 1) = (/ &
+     &9.4449e-07_rb,2.4973e-04_rb,4.6862e-04_rb,6.7662e-04_rb,9.0294e-04_rb,1.1388e-03_rb, &
+     &1.4230e-03_rb,1.8780e-03_rb,9.5236e-04_rb/)
+      kao(:, 5, 2, 1) = (/ &
+     &1.2785e-06_rb,2.9283e-04_rb,5.4407e-04_rb,7.7522e-04_rb,1.0053e-03_rb,1.2254e-03_rb, &
+     &1.5592e-03_rb,1.9031e-03_rb,1.1164e-03_rb/)
+      kao(:, 1, 3, 1) = (/ &
+     &5.5921e-07_rb,1.1924e-04_rb,2.2509e-04_rb,3.4318e-04_rb,5.2308e-04_rb,6.5616e-04_rb, &
+     &8.5230e-04_rb,1.0069e-03_rb,4.1268e-04_rb/)
+      kao(:, 2, 3, 1) = (/ &
+     &7.5055e-07_rb,1.4483e-04_rb,2.6805e-04_rb,3.9345e-04_rb,5.4245e-04_rb,7.6863e-04_rb, &
+     &8.6931e-04_rb,1.1266e-03_rb,5.0829e-04_rb/)
+      kao(:, 3, 3, 1) = (/ &
+     &1.0282e-06_rb,1.7418e-04_rb,3.1823e-04_rb,4.6052e-04_rb,6.0646e-04_rb,8.0699e-04_rb, &
+     &9.9010e-04_rb,1.2822e-03_rb,5.8353e-04_rb/)
+      kao(:, 4, 3, 1) = (/ &
+     &1.4165e-06_rb,2.0776e-04_rb,3.7640e-04_rb,5.3896e-04_rb,6.9736e-04_rb,8.7108e-04_rb, &
+     &1.0948e-03_rb,1.3035e-03_rb,6.8429e-04_rb/)
+      kao(:, 5, 3, 1) = (/ &
+     &1.9344e-06_rb,2.4744e-04_rb,4.4263e-04_rb,6.2983e-04_rb,8.0258e-04_rb,9.7503e-04_rb, &
+     &1.1651e-03_rb,1.4497e-03_rb,8.1461e-04_rb/)
+      kao(:, 1, 4, 1) = (/ &
+     &8.5732e-07_rb,9.6467e-05_rb,1.7424e-04_rb,2.5100e-04_rb,3.3065e-04_rb,4.8724e-04_rb, &
+     &6.0299e-04_rb,7.8582e-04_rb,2.9808e-04_rb/)
+      kao(:, 2, 4, 1) = (/ &
+     &1.1308e-06_rb,1.1826e-04_rb,2.1303e-04_rb,3.0261e-04_rb,3.9186e-04_rb,5.0849e-04_rb, &
+     &7.0322e-04_rb,8.2275e-04_rb,3.5462e-04_rb/)
+      kao(:, 3, 4, 1) = (/ &
+     &1.5409e-06_rb,1.4413e-04_rb,2.5818e-04_rb,3.6263e-04_rb,4.6469e-04_rb,5.7592e-04_rb, &
+     &7.3867e-04_rb,8.7496e-04_rb,4.2760e-04_rb/)
+      kao(:, 4, 4, 1) = (/ &
+     &2.1300e-06_rb,1.7563e-04_rb,3.1026e-04_rb,4.3228e-04_rb,5.4859e-04_rb,6.6681e-04_rb, &
+     &7.9581e-04_rb,9.9932e-04_rb,5.0892e-04_rb/)
+      kao(:, 5, 4, 1) = (/ &
+     &2.9291e-06_rb,2.1272e-04_rb,3.6864e-04_rb,5.1165e-04_rb,6.4677e-04_rb,7.7619e-04_rb, &
+     &8.9814e-04_rb,1.0897e-03_rb,6.0064e-04_rb/)
+      kao(:, 1, 5, 1) = (/ &
+     &1.2415e-06_rb,7.8277e-05_rb,1.3778e-04_rb,1.9284e-04_rb,2.4740e-04_rb,3.0422e-04_rb, &
+     &4.5046e-04_rb,5.5097e-04_rb,2.1557e-04_rb/)
+      kao(:, 2, 5, 1) = (/ &
+     &1.5909e-06_rb,9.7521e-05_rb,1.7125e-04_rb,2.3852e-04_rb,3.0221e-04_rb,3.6563e-04_rb, &
+     &4.6525e-04_rb,6.1320e-04_rb,2.5987e-04_rb/)
+      kao(:, 3, 5, 1) = (/ &
+     &2.1423e-06_rb,1.2163e-04_rb,2.0881e-04_rb,2.9129e-04_rb,3.6625e-04_rb,4.3908e-04_rb, &
+     &5.2524e-04_rb,7.1422e-04_rb,3.1853e-04_rb/)
+      kao(:, 4, 5, 1) = (/ &
+     &2.9538e-06_rb,1.5072e-04_rb,2.5416e-04_rb,3.5255e-04_rb,4.4063e-04_rb,5.2156e-04_rb, &
+     &6.0639e-04_rb,7.4820e-04_rb,3.8686e-04_rb/)
+      kao(:, 5, 5, 1) = (/ &
+     &4.0808e-06_rb,1.8492e-04_rb,3.0793e-04_rb,4.2155e-04_rb,5.2630e-04_rb,6.1892e-04_rb, &
+     &7.0820e-04_rb,8.0049e-04_rb,4.6257e-04_rb/)
+      kao(:, 1, 6, 1) = (/ &
+     &1.7276e-06_rb,6.3066e-05_rb,1.0985e-04_rb,1.5043e-04_rb,1.8792e-04_rb,2.2547e-04_rb, &
+     &2.7278e-04_rb,4.0029e-04_rb,1.5625e-04_rb/)
+      kao(:, 2, 6, 1) = (/ &
+     &2.1189e-06_rb,8.0476e-05_rb,1.3664e-04_rb,1.8841e-04_rb,2.3492e-04_rb,2.7888e-04_rb, &
+     &3.2236e-04_rb,4.6057e-04_rb,1.9653e-04_rb/)
+      kao(:, 3, 6, 1) = (/ &
+     &2.7917e-06_rb,1.0200e-04_rb,1.6954e-04_rb,2.3141e-04_rb,2.8961e-04_rb,3.4143e-04_rb, &
+     &3.9023e-04_rb,4.8352e-04_rb,2.3947e-04_rb/)
+      kao(:, 4, 6, 1) = (/ &
+     &3.8168e-06_rb,1.2811e-04_rb,2.1054e-04_rb,2.8370e-04_rb,3.5217e-04_rb,4.1385e-04_rb, &
+     &4.6780e-04_rb,5.3253e-04_rb,2.9421e-04_rb/)
+      kao(:, 5, 6, 1) = (/ &
+     &5.2799e-06_rb,1.5893e-04_rb,2.5910e-04_rb,3.4517e-04_rb,4.2434e-04_rb,4.9842e-04_rb, &
+     &5.5728e-04_rb,6.1195e-04_rb,3.4978e-04_rb/)
+      kao(:, 1, 7, 1) = (/ &
+     &2.6141e-06_rb,5.1662e-05_rb,8.7249e-05_rb,1.2099e-04_rb,1.4820e-04_rb,1.7386e-04_rb, &
+     &1.9973e-04_rb,2.8823e-04_rb,1.2462e-04_rb/)
+      kao(:, 2, 7, 1) = (/ &
+     &3.0451e-06_rb,6.6903e-05_rb,1.1099e-04_rb,1.5079e-04_rb,1.8779e-04_rb,2.1746e-04_rb, &
+     &2.4532e-04_rb,2.8791e-04_rb,1.5686e-04_rb/)
+      kao(:, 3, 7, 1) = (/ &
+     &3.8821e-06_rb,8.6234e-05_rb,1.4155e-04_rb,1.8817e-04_rb,2.3079e-04_rb,2.7142e-04_rb, &
+     &3.0362e-04_rb,3.3424e-04_rb,1.9309e-04_rb/)
+      kao(:, 4, 7, 1) = (/ &
+     &5.2168e-06_rb,1.0990e-04_rb,1.7879e-04_rb,2.3488e-04_rb,2.8585e-04_rb,3.3138e-04_rb, &
+     &3.7038e-04_rb,4.0029e-04_rb,2.2841e-04_rb/)
+      kao(:, 5, 7, 1) = (/ &
+     &7.1879e-06_rb,1.3891e-04_rb,2.2275e-04_rb,2.9114e-04_rb,3.5068e-04_rb,4.0298e-04_rb, &
+     &4.4929e-04_rb,4.7758e-04_rb,2.7333e-04_rb/)
+      kao(:, 1, 8, 1) = (/ &
+     &4.8895e-06_rb,4.6642e-05_rb,7.3353e-05_rb,9.8230e-05_rb,1.2186e-04_rb,1.4040e-04_rb, &
+     &1.5472e-04_rb,1.7158e-04_rb,1.2116e-04_rb/)
+      kao(:, 2, 8, 1) = (/ &
+     &5.4032e-06_rb,6.0479e-05_rb,9.5191e-05_rb,1.2606e-04_rb,1.5260e-04_rb,1.7774e-04_rb, &
+     &1.9641e-04_rb,2.0965e-04_rb,1.4264e-04_rb/)
+      kao(:, 3, 8, 1) = (/ &
+     &6.5997e-06_rb,7.8772e-05_rb,1.2353e-04_rb,1.6212e-04_rb,1.9427e-04_rb,2.2313e-04_rb, &
+     &2.4636e-04_rb,2.5986e-04_rb,1.7188e-04_rb/)
+      kao(:, 4, 8, 1) = (/ &
+     &8.6548e-06_rb,1.0205e-04_rb,1.5903e-04_rb,2.0720e-04_rb,2.4581e-04_rb,2.7759e-04_rb, &
+     &3.0314e-04_rb,3.2037e-04_rb,2.0203e-04_rb/)
+      kao(:, 5, 8, 1) = (/ &
+     &1.1792e-05_rb,1.3168e-04_rb,2.0236e-04_rb,2.6066e-04_rb,3.0759e-04_rb,3.4497e-04_rb, &
+     &3.7389e-04_rb,3.8968e-04_rb,2.4008e-04_rb/)
+      kao(:, 1, 9, 1) = (/ &
+     &1.7686e-05_rb,6.2925e-05_rb,8.5198e-05_rb,1.0213e-04_rb,1.1543e-04_rb,1.2780e-04_rb, &
+     &1.3994e-04_rb,1.4164e-04_rb,1.0306e-04_rb/)
+      kao(:, 2, 9, 1) = (/ &
+     &1.8629e-05_rb,7.9145e-05_rb,1.0839e-04_rb,1.3177e-04_rb,1.5002e-04_rb,1.6481e-04_rb, &
+     &1.7578e-04_rb,1.8331e-04_rb,1.3692e-04_rb/)
+      kao(:, 3, 9, 1) = (/ &
+     &2.1655e-05_rb,1.0259e-04_rb,1.4047e-04_rb,1.7139e-04_rb,1.9624e-04_rb,2.1451e-04_rb, &
+     &2.2698e-04_rb,2.2863e-04_rb,1.7350e-04_rb/)
+      kao(:, 4, 9, 1) = (/ &
+     &2.7461e-05_rb,1.3575e-04_rb,1.8409e-04_rb,2.2366e-04_rb,2.5484e-04_rb,2.7815e-04_rb, &
+     &2.9152e-04_rb,2.8719e-04_rb,2.1425e-04_rb/)
+      kao(:, 5, 9, 1) = (/ &
+     &3.6727e-05_rb,1.8189e-04_rb,2.4258e-04_rb,2.9022e-04_rb,3.2921e-04_rb,3.5617e-04_rb, &
+     &3.6983e-04_rb,3.5850e-04_rb,2.5866e-04_rb/)
+      kao(:, 1,10, 1) = (/ &
+     &7.2663e-05_rb,1.2805e-04_rb,1.4610e-04_rb,1.5523e-04_rb,1.5931e-04_rb,1.5768e-04_rb, &
+     &1.4950e-04_rb,1.3593e-04_rb,1.1207e-04_rb/)
+      kao(:, 2,10, 1) = (/ &
+     &7.4019e-05_rb,1.5108e-04_rb,1.7625e-04_rb,1.9103e-04_rb,1.9729e-04_rb,1.9817e-04_rb, &
+     &1.9144e-04_rb,1.7408e-04_rb,1.5499e-04_rb/)
+      kao(:, 3,10, 1) = (/ &
+     &8.2403e-05_rb,1.8863e-04_rb,2.2414e-04_rb,2.4536e-04_rb,2.5373e-04_rb,2.5549e-04_rb, &
+     &2.4939e-04_rb,2.2811e-04_rb,2.0551e-04_rb/)
+      kao(:, 4,10, 1) = (/ &
+     &1.0093e-04_rb,2.4723e-04_rb,2.9626e-04_rb,3.2296e-04_rb,3.3348e-04_rb,3.3522e-04_rb, &
+     &3.2677e-04_rb,2.9826e-04_rb,2.6379e-04_rb/)
+      kao(:, 5,10, 1) = (/ &
+     &1.3200e-04_rb,3.3367e-04_rb,4.0011e-04_rb,4.3332e-04_rb,4.4493e-04_rb,4.4261e-04_rb, &
+     &4.2611e-04_rb,3.8581e-04_rb,3.2912e-04_rb/)
+      kao(:, 1,11, 1) = (/ &
+     &1.0393e-04_rb,1.5840e-04_rb,1.7203e-04_rb,1.7648e-04_rb,1.7454e-04_rb,1.6667e-04_rb, &
+     &1.5308e-04_rb,1.2939e-04_rb,1.0993e-04_rb/)
+      kao(:, 2,11, 1) = (/ &
+     &1.0623e-04_rb,1.8473e-04_rb,2.0510e-04_rb,2.1424e-04_rb,2.1529e-04_rb,2.0732e-04_rb, &
+     &1.9332e-04_rb,1.6735e-04_rb,1.5034e-04_rb/)
+      kao(:, 3,11, 1) = (/ &
+     &1.1880e-04_rb,2.2821e-04_rb,2.5935e-04_rb,2.7369e-04_rb,2.7717e-04_rb,2.6782e-04_rb, &
+     &2.5002e-04_rb,2.1993e-04_rb,1.9822e-04_rb/)
+      kao(:, 4,11, 1) = (/ &
+     &1.4561e-04_rb,2.9665e-04_rb,3.4318e-04_rb,3.6287e-04_rb,3.6642e-04_rb,3.5386e-04_rb, &
+     &3.2944e-04_rb,2.8811e-04_rb,2.5319e-04_rb/)
+      kao(:, 5,11, 1) = (/ &
+     &1.9054e-04_rb,3.9809e-04_rb,4.6486e-04_rb,4.9198e-04_rb,4.9373e-04_rb,4.7462e-04_rb, &
+     &4.3676e-04_rb,3.7664e-04_rb,3.1222e-04_rb/)
+      kao(:, 1,12, 1) = (/ &
+     &1.1070e-04_rb,1.5948e-04_rb,1.6935e-04_rb,1.7123e-04_rb,1.6742e-04_rb,1.5636e-04_rb, &
+     &1.4108e-04_rb,1.1641e-04_rb,9.3609e-05_rb/)
+      kao(:, 2,12, 1) = (/ &
+     &1.1350e-04_rb,1.8499e-04_rb,2.0156e-04_rb,2.0690e-04_rb,2.0458e-04_rb,1.9450e-04_rb, &
+     &1.7678e-04_rb,1.4985e-04_rb,1.2839e-04_rb/)
+      kao(:, 3,12, 1) = (/ &
+     &1.2733e-04_rb,2.2735e-04_rb,2.5402e-04_rb,2.6442e-04_rb,2.6348e-04_rb,2.5189e-04_rb, &
+     &2.2992e-04_rb,1.9655e-04_rb,1.6928e-04_rb/)
+      kao(:, 4,12, 1) = (/ &
+     &1.5627e-04_rb,2.9456e-04_rb,3.3549e-04_rb,3.5142e-04_rb,3.5055e-04_rb,3.3475e-04_rb, &
+     &3.0473e-04_rb,2.5892e-04_rb,2.1653e-04_rb/)
+      kao(:, 5,12, 1) = (/ &
+     &2.0441e-04_rb,3.9462e-04_rb,4.5461e-04_rb,4.7637e-04_rb,4.7456e-04_rb,4.5071e-04_rb, &
+     &4.0805e-04_rb,3.4047e-04_rb,2.6779e-04_rb/)
+      kao(:, 1,13, 1) = (/ &
+     &9.4796e-05_rb,1.3566e-04_rb,1.4361e-04_rb,1.4479e-04_rb,1.4118e-04_rb,1.3147e-04_rb, &
+     &1.1819e-04_rb,9.7170e-05_rb,7.6303e-05_rb/)
+      kao(:, 2,13, 1) = (/ &
+     &9.7387e-05_rb,1.5742e-04_rb,1.7115e-04_rb,1.7535e-04_rb,1.7300e-04_rb,1.6383e-04_rb, &
+     &1.4824e-04_rb,1.2513e-04_rb,1.0469e-04_rb/)
+      kao(:, 3,13, 1) = (/ &
+     &1.0948e-04_rb,1.9354e-04_rb,2.1601e-04_rb,2.2450e-04_rb,2.2321e-04_rb,2.1287e-04_rb, &
+     &1.9350e-04_rb,1.6433e-04_rb,1.3819e-04_rb/)
+      kao(:, 4,13, 1) = (/ &
+     &1.3445e-04_rb,2.5083e-04_rb,2.8549e-04_rb,2.9847e-04_rb,2.9725e-04_rb,2.8343e-04_rb, &
+     &2.5763e-04_rb,2.1720e-04_rb,1.7601e-04_rb/)
+      kao(:, 5,13, 1) = (/ &
+     &1.7573e-04_rb,3.3657e-04_rb,3.8710e-04_rb,4.0560e-04_rb,4.0357e-04_rb,3.8257e-04_rb, &
+     &3.4653e-04_rb,2.8685e-04_rb,2.1855e-04_rb/)
+      kao(:, 1, 1, 2) = (/ &
+     &1.3073e-06_rb,4.2059e-04_rb,6.7561e-04_rb,8.6609e-04_rb,1.3520e-03_rb,1.6085e-03_rb, &
+     &2.0908e-03_rb,3.5262e-03_rb,1.7846e-03_rb/)
+      kao(:, 2, 1, 2) = (/ &
+     &1.8197e-06_rb,5.0768e-04_rb,8.4110e-04_rb,1.0238e-03_rb,1.3765e-03_rb,1.9239e-03_rb, &
+     &2.2997e-03_rb,3.5756e-03_rb,2.0767e-03_rb/)
+      kao(:, 3, 1, 2) = (/ &
+     &2.5084e-06_rb,6.1290e-04_rb,1.0202e-03_rb,1.2693e-03_rb,1.5516e-03_rb,2.0078e-03_rb, &
+     &2.5461e-03_rb,3.4922e-03_rb,2.2668e-03_rb/)
+      kao(:, 4, 1, 2) = (/ &
+     &3.4224e-06_rb,7.3392e-04_rb,1.2104e-03_rb,1.5455e-03_rb,1.8866e-03_rb,2.1966e-03_rb, &
+     &2.9624e-03_rb,3.8708e-03_rb,2.5909e-03_rb/)
+      kao(:, 5, 1, 2) = (/ &
+     &4.5990e-06_rb,8.7030e-04_rb,1.4253e-03_rb,1.8395e-03_rb,2.2537e-03_rb,2.6314e-03_rb, &
+     &3.0779e-03_rb,4.2442e-03_rb,2.9663e-03_rb/)
+      kao(:, 1, 2, 2) = (/ &
+     &1.5178e-06_rb,3.4269e-04_rb,6.0748e-04_rb,7.1986e-04_rb,9.3674e-04_rb,1.3121e-03_rb, &
+     &1.6102e-03_rb,2.4069e-03_rb,1.3247e-03_rb/)
+      kao(:, 2, 2, 2) = (/ &
+     &2.1299e-06_rb,4.2524e-04_rb,7.3703e-04_rb,9.3776e-04_rb,1.0398e-03_rb,1.4367e-03_rb, &
+     &1.7353e-03_rb,2.4061e-03_rb,1.5243e-03_rb/)
+      kao(:, 3, 2, 2) = (/ &
+     &2.9612e-06_rb,5.1753e-04_rb,8.8626e-04_rb,1.1500e-03_rb,1.2896e-03_rb,1.5263e-03_rb, &
+     &2.0876e-03_rb,2.6389e-03_rb,1.6966e-03_rb/)
+      kao(:, 4, 2, 2) = (/ &
+     &4.0897e-06_rb,6.2596e-04_rb,1.0597e-03_rb,1.3843e-03_rb,1.5850e-03_rb,1.8098e-03_rb, &
+     &2.1268e-03_rb,2.8656e-03_rb,1.9584e-03_rb/)
+      kao(:, 5, 2, 2) = (/ &
+     &5.5687e-06_rb,7.4555e-04_rb,1.2600e-03_rb,1.6347e-03_rb,1.9070e-03_rb,2.1914e-03_rb, &
+     &2.4166e-03_rb,3.3007e-03_rb,2.2669e-03_rb/)
+      kao(:, 1, 3, 2) = (/ &
+     &2.2234e-06_rb,2.7444e-04_rb,5.0085e-04_rb,6.9534e-04_rb,7.7629e-04_rb,8.8854e-04_rb, &
+     &1.1917e-03_rb,1.5373e-03_rb,9.1595e-04_rb/)
+      kao(:, 2, 3, 2) = (/ &
+     &3.1317e-06_rb,3.4263e-04_rb,6.2257e-04_rb,8.4941e-04_rb,1.0127e-03_rb,1.0143e-03_rb, &
+     &1.3362e-03_rb,1.6583e-03_rb,1.0393e-03_rb/)
+      kao(:, 3, 3, 2) = (/ &
+     &4.4080e-06_rb,4.2422e-04_rb,7.6347e-04_rb,1.0279e-03_rb,1.2387e-03_rb,1.2967e-03_rb, &
+     &1.3932e-03_rb,1.8408e-03_rb,1.2152e-03_rb/)
+      kao(:, 4, 3, 2) = (/ &
+     &6.1670e-06_rb,5.2130e-04_rb,9.2425e-04_rb,1.2412e-03_rb,1.4849e-03_rb,1.6022e-03_rb, &
+     &1.6415e-03_rb,2.0935e-03_rb,1.4201e-03_rb/)
+      kao(:, 5, 3, 2) = (/ &
+     &8.5264e-06_rb,6.3507e-04_rb,1.1072e-03_rb,1.4843e-03_rb,1.7747e-03_rb,1.9362e-03_rb, &
+     &2.0233e-03_rb,2.1572e-03_rb,1.6619e-03_rb/)
+      kao(:, 1, 4, 2) = (/ &
+     &3.2835e-06_rb,2.2111e-04_rb,3.9199e-04_rb,5.4782e-04_rb,7.1479e-04_rb,7.6154e-04_rb, &
+     &8.2345e-04_rb,1.0888e-03_rb,6.1749e-04_rb/)
+      kao(:, 2, 4, 2) = (/ &
+     &4.6177e-06_rb,2.8239e-04_rb,4.9392e-04_rb,6.9299e-04_rb,8.7089e-04_rb,1.0035e-03_rb, &
+     &9.4113e-04_rb,1.2776e-03_rb,7.2212e-04_rb/)
+      kao(:, 3, 4, 2) = (/ &
+     &6.5470e-06_rb,3.5777e-04_rb,6.1550e-04_rb,8.6066e-04_rb,1.0686e-03_rb,1.2181e-03_rb, &
+     &1.2204e-03_rb,1.3196e-03_rb,8.5856e-04_rb/)
+      kao(:, 4, 4, 2) = (/ &
+     &9.2896e-06_rb,4.4826e-04_rb,7.6106e-04_rb,1.0547e-03_rb,1.2989e-03_rb,1.4671e-03_rb, &
+     &1.5260e-03_rb,1.4238e-03_rb,1.0237e-03_rb/)
+      kao(:, 5, 4, 2) = (/ &
+     &1.3071e-05_rb,5.5733e-04_rb,9.3625e-04_rb,1.2821e-03_rb,1.5559e-03_rb,1.7516e-03_rb, &
+     &1.8364e-03_rb,1.7115e-03_rb,1.2165e-03_rb/)
+      kao(:, 1, 5, 2) = (/ &
+     &4.5002e-06_rb,1.7869e-04_rb,3.1112e-04_rb,4.2906e-04_rb,5.3570e-04_rb,6.6321e-04_rb, &
+     &6.6606e-04_rb,8.0088e-04_rb,4.3845e-04_rb/)
+      kao(:, 2, 5, 2) = (/ &
+     &6.2709e-06_rb,2.3526e-04_rb,3.9946e-04_rb,5.4822e-04_rb,6.8446e-04_rb,8.1650e-04_rb, &
+     &8.9841e-04_rb,8.3661e-04_rb,5.3250e-04_rb/)
+      kao(:, 3, 5, 2) = (/ &
+     &8.9215e-06_rb,3.0515e-04_rb,5.1007e-04_rb,6.9053e-04_rb,8.5739e-04_rb,1.0092e-03_rb, &
+     &1.0997e-03_rb,9.5118e-04_rb,6.4123e-04_rb/)
+      kao(:, 4, 5, 2) = (/ &
+     &1.2814e-05_rb,3.9188e-04_rb,6.4418e-04_rb,8.6120e-04_rb,1.0618e-03_rb,1.2430e-03_rb, &
+     &1.3327e-03_rb,1.2360e-03_rb,7.6830e-04_rb/)
+      kao(:, 5, 5, 2) = (/ &
+     &1.8376e-05_rb,4.9865e-04_rb,8.0644e-04_rb,1.0670e-03_rb,1.3038e-03_rb,1.5043e-03_rb, &
+     &1.6049e-03_rb,1.5432e-03_rb,9.1314e-04_rb/)
+      kao(:, 1, 6, 2) = (/ &
+     &5.7892e-06_rb,1.4663e-04_rb,2.4065e-04_rb,3.3064e-04_rb,4.1135e-04_rb,4.8169e-04_rb, &
+     &5.8379e-04_rb,5.7710e-04_rb,3.1814e-04_rb/)
+      kao(:, 2, 6, 2) = (/ &
+     &7.9690e-06_rb,1.9590e-04_rb,3.2041e-04_rb,4.3222e-04_rb,5.3334e-04_rb,6.2056e-04_rb, &
+     &7.1751e-04_rb,6.6758e-04_rb,3.9067e-04_rb/)
+      kao(:, 3, 6, 2) = (/ &
+     &1.1323e-05_rb,2.6004e-04_rb,4.1914e-04_rb,5.5855e-04_rb,6.8140e-04_rb,7.8989e-04_rb, &
+     &8.8852e-04_rb,8.8775e-04_rb,4.8310e-04_rb/)
+      kao(:, 4, 6, 2) = (/ &
+     &1.6358e-05_rb,3.4053e-04_rb,5.4044e-04_rb,7.1305e-04_rb,8.6088e-04_rb,9.8765e-04_rb, &
+     &1.0974e-03_rb,1.1000e-03_rb,5.7948e-04_rb/)
+      kao(:, 5, 6, 2) = (/ &
+     &2.3775e-05_rb,4.4089e-04_rb,6.9082e-04_rb,9.0148e-04_rb,1.0783e-03_rb,1.2236e-03_rb, &
+     &1.3409e-03_rb,1.3317e-03_rb,6.9627e-04_rb/)
+      kao(:, 1, 7, 2) = (/ &
+     &8.0091e-06_rb,1.2605e-04_rb,1.9716e-04_rb,2.5635e-04_rb,3.1697e-04_rb,3.6727e-04_rb, &
+     &4.1064e-04_rb,4.3234e-04_rb,2.4150e-04_rb/)
+      kao(:, 2, 7, 2) = (/ &
+     &1.0776e-05_rb,1.7034e-04_rb,2.6589e-04_rb,3.4715e-04_rb,4.2062e-04_rb,4.8583e-04_rb, &
+     &5.3757e-04_rb,5.9551e-04_rb,2.9725e-04_rb/)
+      kao(:, 3, 7, 2) = (/ &
+     &1.5189e-05_rb,2.2959e-04_rb,3.5476e-04_rb,4.5964e-04_rb,5.5426e-04_rb,6.3049e-04_rb, &
+     &6.9328e-04_rb,7.3902e-04_rb,3.6802e-04_rb/)
+      kao(:, 4, 7, 2) = (/ &
+     &2.2007e-05_rb,3.0657e-04_rb,4.6692e-04_rb,5.9983e-04_rb,7.1322e-04_rb,8.0913e-04_rb, &
+     &8.7898e-04_rb,9.1398e-04_rb,4.5358e-04_rb/)
+      kao(:, 5, 7, 2) = (/ &
+     &3.2377e-05_rb,4.0363e-04_rb,6.0728e-04_rb,7.7481e-04_rb,9.1139e-04_rb,1.0238e-03_rb, &
+     &1.0988e-03_rb,1.1244e-03_rb,5.4283e-04_rb/)
+      kao(:, 1, 8, 2) = (/ &
+     &1.3646e-05_rb,1.1718e-04_rb,1.7739e-04_rb,2.2327e-04_rb,2.5768e-04_rb,2.9227e-04_rb, &
+     &3.2168e-04_rb,3.3945e-04_rb,2.0435e-04_rb/)
+      kao(:, 2, 8, 2) = (/ &
+     &1.7797e-05_rb,1.5982e-04_rb,2.4160e-04_rb,3.0351e-04_rb,3.5441e-04_rb,3.9644e-04_rb, &
+     &4.3035e-04_rb,4.4547e-04_rb,2.6027e-04_rb/)
+      kao(:, 3, 8, 2) = (/ &
+     &2.4726e-05_rb,2.1816e-04_rb,3.2650e-04_rb,4.0893e-04_rb,4.7479e-04_rb,5.2784e-04_rb, &
+     &5.6990e-04_rb,5.8414e-04_rb,3.2342e-04_rb/)
+      kao(:, 4, 8, 2) = (/ &
+     &3.5739e-05_rb,2.9719e-04_rb,4.3967e-04_rb,5.4459e-04_rb,6.2961e-04_rb,6.9435e-04_rb, &
+     &7.4016e-04_rb,7.4703e-04_rb,3.9508e-04_rb/)
+      kao(:, 5, 8, 2) = (/ &
+     &5.2993e-05_rb,4.0333e-04_rb,5.8500e-04_rb,7.1845e-04_rb,8.2505e-04_rb,9.0108e-04_rb, &
+     &9.4665e-04_rb,9.4587e-04_rb,4.7280e-04_rb/)
+      kao(:, 1, 9, 2) = (/ &
+     &4.5250e-05_rb,1.4686e-04_rb,2.0230e-04_rb,2.4828e-04_rb,2.8036e-04_rb,2.9801e-04_rb, &
+     &2.9921e-04_rb,2.8815e-04_rb,2.4577e-04_rb/)
+      kao(:, 2, 9, 2) = (/ &
+     &5.6592e-05_rb,2.0110e-04_rb,2.8181e-04_rb,3.4405e-04_rb,3.8167e-04_rb,4.0863e-04_rb, &
+     &4.1514e-04_rb,3.9115e-04_rb,3.2441e-04_rb/)
+      kao(:, 3, 9, 2) = (/ &
+     &7.7017e-05_rb,2.8027e-04_rb,3.9316e-04_rb,4.7187e-04_rb,5.1925e-04_rb,5.5669e-04_rb, &
+     &5.6308e-04_rb,5.3177e-04_rb,4.1003e-04_rb/)
+      kao(:, 4, 9, 2) = (/ &
+     &1.1025e-04_rb,3.9471e-04_rb,5.4612e-04_rb,6.4824e-04_rb,7.1055e-04_rb,7.5245e-04_rb, &
+     &7.5557e-04_rb,7.0714e-04_rb,5.0547e-04_rb/)
+      kao(:, 5, 9, 2) = (/ &
+     &1.6377e-04_rb,5.5266e-04_rb,7.5260e-04_rb,8.8463e-04_rb,9.6217e-04_rb,1.0084e-03_rb, &
+     &1.0010e-03_rb,9.2831e-04_rb,5.9992e-04_rb/)
+      kao(:, 1,10, 2) = (/ &
+     &1.7408e-04_rb,2.8709e-04_rb,3.2527e-04_rb,3.4835e-04_rb,3.5894e-04_rb,3.5919e-04_rb, &
+     &3.5263e-04_rb,3.1484e-04_rb,2.7571e-04_rb/)
+      kao(:, 2,10, 2) = (/ &
+     &2.0961e-04_rb,3.6816e-04_rb,4.3143e-04_rb,4.6881e-04_rb,4.9659e-04_rb,5.0147e-04_rb, &
+     &4.9272e-04_rb,4.3339e-04_rb,3.8859e-04_rb/)
+      kao(:, 3,10, 2) = (/ &
+     &2.7776e-04_rb,5.0192e-04_rb,5.9603e-04_rb,6.5181e-04_rb,6.9357e-04_rb,7.0312e-04_rb, &
+     &6.7864e-04_rb,5.9253e-04_rb,5.1467e-04_rb/)
+      kao(:, 4,10, 2) = (/ &
+     &3.9424e-04_rb,7.1243e-04_rb,8.4498e-04_rb,9.2473e-04_rb,9.7484e-04_rb,9.8216e-04_rb, &
+     &9.3644e-04_rb,8.0724e-04_rb,6.5632e-04_rb/)
+      kao(:, 5,10, 2) = (/ &
+     &5.8403e-04_rb,1.0226e-03_rb,1.2011e-03_rb,1.3089e-03_rb,1.3689e-03_rb,1.3686e-03_rb, &
+     &1.2847e-03_rb,1.0916e-03_rb,8.0745e-04_rb/)
+      kao(:, 1,11, 2) = (/ &
+     &2.5093e-04_rb,3.5665e-04_rb,3.8701e-04_rb,3.9631e-04_rb,3.9372e-04_rb,3.8144e-04_rb, &
+     &3.5373e-04_rb,3.1423e-04_rb,3.0104e-04_rb/)
+      kao(:, 2,11, 2) = (/ &
+     &3.0561e-04_rb,4.5397e-04_rb,5.0521e-04_rb,5.3017e-04_rb,5.3366e-04_rb,5.2816e-04_rb, &
+     &4.9620e-04_rb,4.3115e-04_rb,4.1409e-04_rb/)
+      kao(:, 3,11, 2) = (/ &
+     &4.0935e-04_rb,6.2197e-04_rb,6.9995e-04_rb,7.3845e-04_rb,7.4646e-04_rb,7.4054e-04_rb, &
+     &7.0035e-04_rb,5.8985e-04_rb,5.4448e-04_rb/)
+      kao(:, 4,11, 2) = (/ &
+     &5.8584e-04_rb,8.9030e-04_rb,1.0016e-03_rb,1.0495e-03_rb,1.0645e-03_rb,1.0487e-03_rb, &
+     &9.8184e-04_rb,8.1405e-04_rb,6.7706e-04_rb/)
+      kao(:, 5,11, 2) = (/ &
+     &8.7589e-04_rb,1.3050e-03_rb,1.4464e-03_rb,1.5053e-03_rb,1.5175e-03_rb,1.4779e-03_rb, &
+     &1.3691e-03_rb,1.1154e-03_rb,8.3668e-04_rb/)
+      kao(:, 1,12, 2) = (/ &
+     &2.6981e-04_rb,3.6165e-04_rb,3.8393e-04_rb,3.8621e-04_rb,3.7773e-04_rb,3.5863e-04_rb, &
+     &3.2723e-04_rb,2.8136e-04_rb,2.7937e-04_rb/)
+      kao(:, 2,12, 2) = (/ &
+     &3.3189e-04_rb,4.6172e-04_rb,5.0224e-04_rb,5.1546e-04_rb,5.1134e-04_rb,4.9419e-04_rb, &
+     &4.6078e-04_rb,3.9503e-04_rb,3.8165e-04_rb/)
+      kao(:, 3,12, 2) = (/ &
+     &4.4945e-04_rb,6.3614e-04_rb,7.0015e-04_rb,7.2309e-04_rb,7.1840e-04_rb,6.9882e-04_rb, &
+     &6.5062e-04_rb,5.4697e-04_rb,5.0283e-04_rb/)
+      kao(:, 4,12, 2) = (/ &
+     &6.4949e-04_rb,9.2459e-04_rb,1.0096e-03_rb,1.0404e-03_rb,1.0301e-03_rb,9.9704e-04_rb, &
+     &9.2064e-04_rb,7.5726e-04_rb,6.3715e-04_rb/)
+      kao(:, 5,12, 2) = (/ &
+     &9.7948e-04_rb,1.3695e-03_rb,1.4755e-03_rb,1.5098e-03_rb,1.4823e-03_rb,1.4173e-03_rb, &
+     &1.2918e-03_rb,1.0472e-03_rb,7.8120e-04_rb/)
+      kao(:, 1,13, 2) = (/ &
+     &2.3347e-04_rb,3.0984e-04_rb,3.2740e-04_rb,3.2836e-04_rb,3.1964e-04_rb,3.0307e-04_rb, &
+     &2.7562e-04_rb,2.3564e-04_rb,2.3674e-04_rb/)
+      kao(:, 2,13, 2) = (/ &
+     &2.9027e-04_rb,3.9857e-04_rb,4.3170e-04_rb,4.4144e-04_rb,4.3482e-04_rb,4.1943e-04_rb, &
+     &3.8943e-04_rb,3.3194e-04_rb,3.2365e-04_rb/)
+      kao(:, 3,13, 2) = (/ &
+     &3.9524e-04_rb,5.5472e-04_rb,6.0676e-04_rb,6.2319e-04_rb,6.1597e-04_rb,5.9710e-04_rb, &
+     &5.5278e-04_rb,4.6213e-04_rb,4.2552e-04_rb/)
+      kao(:, 4,13, 2) = (/ &
+     &5.7486e-04_rb,8.1393e-04_rb,8.8216e-04_rb,9.0454e-04_rb,8.9206e-04_rb,8.5566e-04_rb, &
+     &7.8499e-04_rb,6.4422e-04_rb,5.3476e-04_rb/)
+      kao(:, 5,13, 2) = (/ &
+     &8.7246e-04_rb,1.2122e-03_rb,1.2989e-03_rb,1.3221e-03_rb,1.2955e-03_rb,1.2260e-03_rb, &
+     &1.1071e-03_rb,8.9174e-04_rb,6.5849e-04_rb/)
+      kao(:, 1, 1, 3) = (/ &
+     &5.2546e-06_rb,7.1189e-04_rb,1.0882e-03_rb,1.5407e-03_rb,1.6694e-03_rb,2.0484e-03_rb, &
+     &2.8523e-03_rb,4.1696e-03_rb,2.5067e-03_rb/)
+      kao(:, 2, 1, 3) = (/ &
+     &7.7092e-06_rb,8.7649e-04_rb,1.3426e-03_rb,1.8360e-03_rb,2.2345e-03_rb,2.3018e-03_rb, &
+     &2.9500e-03_rb,4.8247e-03_rb,2.8678e-03_rb/)
+      kao(:, 3, 1, 3) = (/ &
+     &1.1096e-05_rb,1.0569e-03_rb,1.6133e-03_rb,2.2145e-03_rb,2.7396e-03_rb,3.0159e-03_rb, &
+     &3.2179e-03_rb,5.1113e-03_rb,3.6024e-03_rb/)
+      kao(:, 4, 1, 3) = (/ &
+     &1.5736e-05_rb,1.2601e-03_rb,1.9380e-03_rb,2.6510e-03_rb,3.2424e-03_rb,3.7893e-03_rb, &
+     &3.9992e-03_rb,5.0794e-03_rb,4.4455e-03_rb/)
+      kao(:, 5, 1, 3) = (/ &
+     &2.1768e-05_rb,1.4881e-03_rb,2.3013e-03_rb,3.1272e-03_rb,3.8505e-03_rb,4.4934e-03_rb, &
+     &5.1336e-03_rb,5.8796e-03_rb,5.3642e-03_rb/)
+      kao(:, 1, 2, 3) = (/ &
+     &6.4189e-06_rb,6.4436e-04_rb,9.4389e-04_rb,1.2239e-03_rb,1.5862e-03_rb,1.5943e-03_rb, &
+     &2.1761e-03_rb,2.9768e-03_rb,1.8319e-03_rb/)
+      kao(:, 2, 2, 3) = (/ &
+     &9.5139e-06_rb,7.9863e-04_rb,1.1748e-03_rb,1.5104e-03_rb,1.9094e-03_rb,2.0876e-03_rb, &
+     &2.2172e-03_rb,3.3690e-03_rb,2.2079e-03_rb/)
+      kao(:, 3, 2, 3) = (/ &
+     &1.3920e-05_rb,9.7738e-04_rb,1.4337e-03_rb,1.8422e-03_rb,2.2904e-03_rb,2.6664e-03_rb, &
+     &2.6655e-03_rb,3.3322e-03_rb,2.7973e-03_rb/)
+      kao(:, 4, 2, 3) = (/ &
+     &1.9815e-05_rb,1.1745e-03_rb,1.7255e-03_rb,2.2150e-03_rb,2.7638e-03_rb,3.1950e-03_rb, &
+     &3.5144e-03_rb,3.6601e-03_rb,3.4291e-03_rb/)
+      kao(:, 5, 2, 3) = (/ &
+     &2.7567e-05_rb,1.3937e-03_rb,2.0553e-03_rb,2.6513e-03_rb,3.2736e-03_rb,3.7952e-03_rb, &
+     &4.2837e-03_rb,4.4922e-03_rb,4.1160e-03_rb/)
+      kao(:, 1, 3, 3) = (/ &
+     &9.6319e-06_rb,5.9789e-04_rb,9.0789e-04_rb,1.1077e-03_rb,1.2525e-03_rb,1.5120e-03_rb, &
+     &1.4959e-03_rb,2.1276e-03_rb,1.3456e-03_rb/)
+      kao(:, 2, 3, 3) = (/ &
+     &1.4531e-05_rb,7.5640e-04_rb,1.1412e-03_rb,1.3989e-03_rb,1.5703e-03_rb,1.7944e-03_rb, &
+     &1.9386e-03_rb,2.1696e-03_rb,1.7109e-03_rb/)
+      kao(:, 3, 3, 3) = (/ &
+     &2.1457e-05_rb,9.3610e-04_rb,1.4115e-03_rb,1.7272e-03_rb,1.9369e-03_rb,2.2003e-03_rb, &
+     &2.5012e-03_rb,2.3167e-03_rb,2.1265e-03_rb/)
+      kao(:, 4, 3, 3) = (/ &
+     &3.1112e-05_rb,1.1388e-03_rb,1.7200e-03_rb,2.0901e-03_rb,2.3590e-03_rb,2.6864e-03_rb, &
+     &2.9768e-03_rb,2.9114e-03_rb,2.5844e-03_rb/)
+      kao(:, 5, 3, 3) = (/ &
+     &4.3735e-05_rb,1.3632e-03_rb,2.0663e-03_rb,2.5031e-03_rb,2.8359e-03_rb,3.2124e-03_rb, &
+     &3.5643e-03_rb,3.8138e-03_rb,3.0766e-03_rb/)
+      kao(:, 1, 4, 3) = (/ &
+     &1.4332e-05_rb,5.0481e-04_rb,8.3885e-04_rb,1.0386e-03_rb,1.1528e-03_rb,1.2153e-03_rb, &
+     &1.3236e-03_rb,1.3236e-03_rb,9.9177e-04_rb/)
+      kao(:, 2, 4, 3) = (/ &
+     &2.1745e-05_rb,6.5797e-04_rb,1.0771e-03_rb,1.3282e-03_rb,1.4860e-03_rb,1.5492e-03_rb, &
+     &1.6188e-03_rb,1.5468e-03_rb,1.2757e-03_rb/)
+      kao(:, 3, 4, 3) = (/ &
+     &3.2667e-05_rb,8.3614e-04_rb,1.3479e-03_rb,1.6673e-03_rb,1.8582e-03_rb,1.9416e-03_rb, &
+     &2.0036e-03_rb,2.1024e-03_rb,1.5754e-03_rb/)
+      kao(:, 4, 4, 3) = (/ &
+     &4.8093e-05_rb,1.0472e-03_rb,1.6541e-03_rb,2.0462e-03_rb,2.2910e-03_rb,2.3927e-03_rb, &
+     &2.4569e-03_rb,2.6010e-03_rb,1.9210e-03_rb/)
+      kao(:, 5, 4, 3) = (/ &
+     &6.8610e-05_rb,1.2933e-03_rb,1.9995e-03_rb,2.4752e-03_rb,2.7858e-03_rb,2.9107e-03_rb, &
+     &2.9847e-03_rb,3.0912e-03_rb,2.3242e-03_rb/)
+      kao(:, 1, 5, 3) = (/ &
+     &1.9357e-05_rb,4.3188e-04_rb,6.9760e-04_rb,9.1881e-04_rb,1.0444e-03_rb,1.0861e-03_rb, &
+     &1.0808e-03_rb,1.0528e-03_rb,7.6202e-04_rb/)
+      kao(:, 2, 5, 3) = (/ &
+     &2.9833e-05_rb,5.6548e-04_rb,9.1440e-04_rb,1.2005e-03_rb,1.3604e-03_rb,1.4256e-03_rb, &
+     &1.3945e-03_rb,1.3872e-03_rb,9.4421e-04_rb/)
+      kao(:, 3, 5, 3) = (/ &
+     &4.5578e-05_rb,7.2730e-04_rb,1.1762e-03_rb,1.5269e-03_rb,1.7329e-03_rb,1.8168e-03_rb, &
+     &1.7751e-03_rb,1.6935e-03_rb,1.1652e-03_rb/)
+      kao(:, 4, 5, 3) = (/ &
+     &6.7915e-05_rb,9.2227e-04_rb,1.4839e-03_rb,1.8964e-03_rb,2.1540e-03_rb,2.2580e-03_rb, &
+     &2.2284e-03_rb,2.0768e-03_rb,1.4187e-03_rb/)
+      kao(:, 5, 5, 3) = (/ &
+     &9.8232e-05_rb,1.1614e-03_rb,1.8417e-03_rb,2.3162e-03_rb,2.6333e-03_rb,2.7678e-03_rb, &
+     &2.7278e-03_rb,2.5343e-03_rb,1.7135e-03_rb/)
+      kao(:, 1, 6, 3) = (/ &
+     &2.4087e-05_rb,3.6023e-04_rb,5.7620e-04_rb,7.4775e-04_rb,8.9007e-04_rb,9.5429e-04_rb, &
+     &9.1764e-04_rb,8.4636e-04_rb,5.7959e-04_rb/)
+      kao(:, 2, 6, 3) = (/ &
+     &3.7139e-05_rb,4.8232e-04_rb,7.6564e-04_rb,9.9341e-04_rb,1.1781e-03_rb,1.2665e-03_rb, &
+     &1.2330e-03_rb,1.0918e-03_rb,7.2688e-04_rb/)
+      kao(:, 3, 6, 3) = (/ &
+     &5.7836e-05_rb,6.3457e-04_rb,9.9482e-04_rb,1.2902e-03_rb,1.5235e-03_rb,1.6284e-03_rb, &
+     &1.5983e-03_rb,1.4005e-03_rb,8.9110e-04_rb/)
+      kao(:, 4, 6, 3) = (/ &
+     &8.7827e-05_rb,8.3029e-04_rb,1.2776e-03_rb,1.6365e-03_rb,1.9214e-03_rb,2.0538e-03_rb, &
+     &2.0181e-03_rb,1.7675e-03_rb,1.0912e-03_rb/)
+      kao(:, 5, 6, 3) = (/ &
+     &1.2951e-04_rb,1.0725e-03_rb,1.6206e-03_rb,2.0554e-03_rb,2.3768e-03_rb,2.5369e-03_rb, &
+     &2.5004e-03_rb,2.2047e-03_rb,1.3222e-03_rb/)
+      kao(:, 1, 7, 3) = (/ &
+     &3.1610e-05_rb,3.0736e-04_rb,4.8099e-04_rb,6.1875e-04_rb,7.2425e-04_rb,8.0714e-04_rb, &
+     &8.2765e-04_rb,7.1397e-04_rb,4.2627e-04_rb/)
+      kao(:, 2, 7, 3) = (/ &
+     &4.8734e-05_rb,4.2352e-04_rb,6.5473e-04_rb,8.3909e-04_rb,9.8036e-04_rb,1.0919e-03_rb, &
+     &1.1195e-03_rb,9.5621e-04_rb,5.5009e-04_rb/)
+      kao(:, 3, 7, 3) = (/ &
+     &7.5777e-05_rb,5.7189e-04_rb,8.6982e-04_rb,1.1085e-03_rb,1.2941e-03_rb,1.4332e-03_rb, &
+     &1.4595e-03_rb,1.2666e-03_rb,6.8930e-04_rb/)
+      kao(:, 4, 7, 3) = (/ &
+     &1.1758e-04_rb,7.6635e-04_rb,1.1428e-03_rb,1.4431e-03_rb,1.6723e-03_rb,1.8359e-03_rb, &
+     &1.8555e-03_rb,1.6214e-03_rb,8.4503e-04_rb/)
+      kao(:, 5, 7, 3) = (/ &
+     &1.7719e-04_rb,1.0176e-03_rb,1.4892e-03_rb,1.8529e-03_rb,2.1284e-03_rb,2.3074e-03_rb, &
+     &2.3192e-03_rb,2.0277e-03_rb,1.0269e-03_rb/)
+      kao(:, 1, 8, 3) = (/ &
+     &5.0016e-05_rb,3.0350e-04_rb,4.3130e-04_rb,5.4117e-04_rb,6.2740e-04_rb,6.8603e-04_rb, &
+     &7.1531e-04_rb,6.7206e-04_rb,3.4534e-04_rb/)
+      kao(:, 2, 8, 3) = (/ &
+     &7.6305e-05_rb,4.2110e-04_rb,6.0202e-04_rb,7.5262e-04_rb,8.6967e-04_rb,9.4998e-04_rb, &
+     &9.8539e-04_rb,9.2682e-04_rb,4.4615e-04_rb/)
+      kao(:, 3, 8, 3) = (/ &
+     &1.1911e-04_rb,5.8304e-04_rb,8.2209e-04_rb,1.0213e-03_rb,1.1738e-03_rb,1.2774e-03_rb, &
+     &1.3191e-03_rb,1.2307e-03_rb,5.5948e-04_rb/)
+      kao(:, 4, 8, 3) = (/ &
+     &1.8649e-04_rb,7.9923e-04_rb,1.1102e-03_rb,1.3602e-03_rb,1.5530e-03_rb,1.6805e-03_rb, &
+     &1.7288e-03_rb,1.5932e-03_rb,6.8951e-04_rb/)
+      kao(:, 5, 8, 3) = (/ &
+     &2.8664e-04_rb,1.0891e-03_rb,1.4894e-03_rb,1.7956e-03_rb,2.0238e-03_rb,2.1795e-03_rb, &
+     &2.2144e-03_rb,2.0105e-03_rb,8.3262e-04_rb/)
+      kao(:, 1, 9, 3) = (/ &
+     &1.5293e-04_rb,4.6711e-04_rb,5.9429e-04_rb,6.7143e-04_rb,7.0270e-04_rb,7.2578e-04_rb, &
+     &7.2031e-04_rb,6.7023e-04_rb,4.6857e-04_rb/)
+      kao(:, 2, 9, 3) = (/ &
+     &2.2743e-04_rb,6.5435e-04_rb,8.3260e-04_rb,9.2221e-04_rb,9.8476e-04_rb,1.0204e-03_rb, &
+     &1.0235e-03_rb,9.4955e-04_rb,5.6708e-04_rb/)
+      kao(:, 3, 9, 3) = (/ &
+     &3.5601e-04_rb,9.4855e-04_rb,1.1602e-03_rb,1.2875e-03_rb,1.3640e-03_rb,1.4067e-03_rb, &
+     &1.4070e-03_rb,1.3032e-03_rb,6.4714e-04_rb/)
+      kao(:, 4, 9, 3) = (/ &
+     &5.5911e-04_rb,1.3606e-03_rb,1.6272e-03_rb,1.7782e-03_rb,1.8671e-03_rb,1.9159e-03_rb, &
+     &1.8899e-03_rb,1.7374e-03_rb,7.3858e-04_rb/)
+      kao(:, 5, 9, 3) = (/ &
+     &8.7081e-04_rb,1.9356e-03_rb,2.2669e-03_rb,2.4429e-03_rb,2.5498e-03_rb,2.5834e-03_rb, &
+     &2.5150e-03_rb,2.2763e-03_rb,8.7139e-04_rb/)
+      kao(:, 1,10, 3) = (/ &
+     &5.5025e-04_rb,9.1638e-04_rb,1.0524e-03_rb,1.1151e-03_rb,1.1173e-03_rb,1.0672e-03_rb, &
+     &9.7649e-04_rb,7.7345e-04_rb,6.5002e-04_rb/)
+      kao(:, 2,10, 3) = (/ &
+     &7.9126e-04_rb,1.3002e-03_rb,1.4860e-03_rb,1.5598e-03_rb,1.5441e-03_rb,1.5015e-03_rb, &
+     &1.3399e-03_rb,1.0909e-03_rb,8.3499e-04_rb/)
+      kao(:, 3,10, 3) = (/ &
+     &1.2237e-03_rb,1.9321e-03_rb,2.1587e-03_rb,2.2526e-03_rb,2.2235e-03_rb,2.1040e-03_rb, &
+     &1.8744e-03_rb,1.5238e-03_rb,1.0298e-03_rb/)
+      kao(:, 4,10, 3) = (/ &
+     &1.9295e-03_rb,2.9068e-03_rb,3.1939e-03_rb,3.2884e-03_rb,3.1828e-03_rb,2.9739e-03_rb, &
+     &2.6100e-03_rb,2.0967e-03_rb,1.2389e-03_rb/)
+      kao(:, 5,10, 3) = (/ &
+     &3.0420e-03_rb,4.3560e-03_rb,4.6911e-03_rb,4.7252e-03_rb,4.5246e-03_rb,4.1666e-03_rb, &
+     &3.6292e-03_rb,2.8608e-03_rb,1.4677e-03_rb/)
+      kao(:, 1,11, 3) = (/ &
+     &8.0124e-04_rb,1.1600e-03_rb,1.2577e-03_rb,1.2913e-03_rb,1.2758e-03_rb,1.1948e-03_rb, &
+     &1.0607e-03_rb,8.2464e-04_rb,6.8579e-04_rb/)
+      kao(:, 2,11, 3) = (/ &
+     &1.1673e-03_rb,1.6642e-03_rb,1.8003e-03_rb,1.8395e-03_rb,1.7987e-03_rb,1.6759e-03_rb, &
+     &1.4977e-03_rb,1.1597e-03_rb,8.7714e-04_rb/)
+      kao(:, 3,11, 3) = (/ &
+     &1.8208e-03_rb,2.5072e-03_rb,2.6736e-03_rb,2.6935e-03_rb,2.6255e-03_rb,2.4196e-03_rb, &
+     &2.1072e-03_rb,1.6350e-03_rb,1.1070e-03_rb/)
+      kao(:, 4,11, 3) = (/ &
+     &2.8872e-03_rb,3.8298e-03_rb,4.0028e-03_rb,4.0090e-03_rb,3.8400e-03_rb,3.4828e-03_rb, &
+     &2.9827e-03_rb,2.2825e-03_rb,1.3306e-03_rb/)
+      kao(:, 5,11, 3) = (/ &
+     &4.5758e-03_rb,5.8214e-03_rb,5.9954e-03_rb,5.8806e-03_rb,5.5457e-03_rb,4.9671e-03_rb, &
+     &4.1979e-03_rb,3.1537e-03_rb,1.5896e-03_rb/)
+      kao(:, 1,12, 3) = (/ &
+     &8.6957e-04_rb,1.1918e-03_rb,1.2597e-03_rb,1.2688e-03_rb,1.2375e-03_rb,1.1513e-03_rb, &
+     &1.0110e-03_rb,7.8620e-04_rb,6.6607e-04_rb/)
+      kao(:, 2,12, 3) = (/ &
+     &1.2841e-03_rb,1.7262e-03_rb,1.8227e-03_rb,1.8310e-03_rb,1.7702e-03_rb,1.6364e-03_rb, &
+     &1.4379e-03_rb,1.0990e-03_rb,8.6314e-04_rb/)
+      kao(:, 3,12, 3) = (/ &
+     &2.0183e-03_rb,2.6229e-03_rb,2.7286e-03_rb,2.7135e-03_rb,2.6112e-03_rb,2.3987e-03_rb, &
+     &2.0472e-03_rb,1.5496e-03_rb,1.0681e-03_rb/)
+      kao(:, 4,12, 3) = (/ &
+     &3.2212e-03_rb,4.0504e-03_rb,4.1472e-03_rb,4.0702e-03_rb,3.8583e-03_rb,3.4748e-03_rb, &
+     &2.9262e-03_rb,2.1914e-03_rb,1.2601e-03_rb/)
+      kao(:, 5,12, 3) = (/ &
+     &5.1511e-03_rb,6.2196e-03_rb,6.2591e-03_rb,6.0402e-03_rb,5.6302e-03_rb,4.9946e-03_rb, &
+     &4.1641e-03_rb,3.0581e-03_rb,1.4932e-03_rb/)
+      kao(:, 1,13, 3) = (/ &
+     &7.5570e-04_rb,1.0245e-03_rb,1.0772e-03_rb,1.0860e-03_rb,1.0524e-03_rb,9.7557e-04_rb, &
+     &8.5610e-04_rb,6.6220e-04_rb,5.7960e-04_rb/)
+      kao(:, 2,13, 3) = (/ &
+     &1.1289e-03_rb,1.4995e-03_rb,1.5736e-03_rb,1.5761e-03_rb,1.5191e-03_rb,1.4055e-03_rb, &
+     &1.2213e-03_rb,9.3390e-04_rb,7.5295e-04_rb/)
+      kao(:, 3,13, 3) = (/ &
+     &1.7891e-03_rb,2.2942e-03_rb,2.3709e-03_rb,2.3513e-03_rb,2.2646e-03_rb,2.0616e-03_rb, &
+     &1.7545e-03_rb,1.3283e-03_rb,9.2119e-04_rb/)
+      kao(:, 4,13, 3) = (/ &
+     &2.8872e-03_rb,3.5675e-03_rb,3.6372e-03_rb,3.5628e-03_rb,3.3407e-03_rb,3.0031e-03_rb, &
+     &2.5207e-03_rb,1.8863e-03_rb,1.0888e-03_rb/)
+      kao(:, 5,13, 3) = (/ &
+     &4.6509e-03_rb,5.5327e-03_rb,5.4994e-03_rb,5.2862e-03_rb,4.8993e-03_rb,4.3534e-03_rb, &
+     &3.6092e-03_rb,2.6447e-03_rb,1.2715e-03_rb/)
+      kao(:, 1, 1, 4) = (/ &
+     &2.0197e-05_rb,1.1667e-03_rb,1.8703e-03_rb,2.3597e-03_rb,2.8442e-03_rb,3.3004e-03_rb, &
+     &3.9209e-03_rb,5.1050e-03_rb,4.4032e-03_rb/)
+      kao(:, 2, 1, 4) = (/ &
+     &2.9878e-05_rb,1.4283e-03_rb,2.2934e-03_rb,2.9621e-03_rb,3.4763e-03_rb,4.1665e-03_rb, &
+     &4.8948e-03_rb,5.8620e-03_rb,5.4661e-03_rb/)
+      kao(:, 3, 1, 4) = (/ &
+     &4.2867e-05_rb,1.7152e-03_rb,2.7742e-03_rb,3.5744e-03_rb,4.2361e-03_rb,5.0272e-03_rb, &
+     &5.9642e-03_rb,7.9378e-03_rb,6.6044e-03_rb/)
+      kao(:, 4, 1, 4) = (/ &
+     &5.9869e-05_rb,2.0335e-03_rb,3.2827e-03_rb,4.2442e-03_rb,5.1046e-03_rb,5.9179e-03_rb, &
+     &7.1401e-03_rb,9.6601e-03_rb,7.8490e-03_rb/)
+      kao(:, 5, 1, 4) = (/ &
+     &8.1517e-05_rb,2.3834e-03_rb,3.8440e-03_rb,4.9959e-03_rb,6.0214e-03_rb,7.0692e-03_rb, &
+     &8.4265e-03_rb,1.1443e-02_rb,9.2888e-03_rb/)
+      kao(:, 1, 2, 4) = (/ &
+     &2.5366e-05_rb,1.0671e-03_rb,1.6131e-03_rb,2.1123e-03_rb,2.3685e-03_rb,2.7185e-03_rb, &
+     &3.0418e-03_rb,3.4879e-03_rb,3.3143e-03_rb/)
+      kao(:, 2, 2, 4) = (/ &
+     &3.7671e-05_rb,1.3088e-03_rb,2.0014e-03_rb,2.6106e-03_rb,3.0312e-03_rb,3.3873e-03_rb, &
+     &3.9017e-03_rb,4.5215e-03_rb,4.1143e-03_rb/)
+      kao(:, 3, 2, 4) = (/ &
+     &5.4541e-05_rb,1.5795e-03_rb,2.4306e-03_rb,3.1726e-03_rb,3.7137e-03_rb,4.1208e-03_rb, &
+     &4.7737e-03_rb,5.7376e-03_rb,4.9901e-03_rb/)
+      kao(:, 4, 2, 4) = (/ &
+     &7.7056e-05_rb,1.8857e-03_rb,2.9009e-03_rb,3.7836e-03_rb,4.4364e-03_rb,5.0235e-03_rb, &
+     &5.6427e-03_rb,6.9365e-03_rb,5.9848e-03_rb/)
+      kao(:, 5, 2, 4) = (/ &
+     &1.0566e-04_rb,2.2344e-03_rb,3.4137e-03_rb,4.4552e-03_rb,5.2671e-03_rb,5.9853e-03_rb, &
+     &6.7249e-03_rb,8.2397e-03_rb,7.1296e-03_rb/)
+      kao(:, 1, 3, 4) = (/ &
+     &3.9558e-05_rb,1.0742e-03_rb,1.5248e-03_rb,1.8501e-03_rb,2.1830e-03_rb,2.3261e-03_rb, &
+     &2.4391e-03_rb,2.5890e-03_rb,2.3829e-03_rb/)
+      kao(:, 2, 3, 4) = (/ &
+     &5.9594e-05_rb,1.3476e-03_rb,1.8940e-03_rb,2.3182e-03_rb,2.7486e-03_rb,3.0410e-03_rb, &
+     &3.0839e-03_rb,3.3287e-03_rb,2.9662e-03_rb/)
+      kao(:, 3, 3, 4) = (/ &
+     &8.7495e-05_rb,1.6651e-03_rb,2.3108e-03_rb,2.8515e-03_rb,3.3798e-03_rb,3.7359e-03_rb, &
+     &3.8327e-03_rb,4.1905e-03_rb,3.5949e-03_rb/)
+      kao(:, 4, 3, 4) = (/ &
+     &1.2450e-04_rb,2.0293e-03_rb,2.7849e-03_rb,3.4502e-03_rb,4.0760e-03_rb,4.5002e-03_rb, &
+     &4.7432e-03_rb,5.0708e-03_rb,4.3551e-03_rb/)
+      kao(:, 5, 3, 4) = (/ &
+     &1.7405e-04_rb,2.4316e-03_rb,3.3182e-03_rb,4.1142e-03_rb,4.8387e-03_rb,5.3673e-03_rb, &
+     &5.6716e-03_rb,6.0036e-03_rb,5.2554e-03_rb/)
+      kao(:, 1, 4, 4) = (/ &
+     &6.0993e-05_rb,1.0865e-03_rb,1.5064e-03_rb,1.7956e-03_rb,1.9492e-03_rb,2.0758e-03_rb, &
+     &2.1376e-03_rb,1.9974e-03_rb,1.7194e-03_rb/)
+      kao(:, 2, 4, 4) = (/ &
+     &9.3739e-05_rb,1.3938e-03_rb,1.9090e-03_rb,2.2655e-03_rb,2.4714e-03_rb,2.6468e-03_rb, &
+     &2.7998e-03_rb,2.5993e-03_rb,2.1766e-03_rb/)
+      kao(:, 3, 4, 4) = (/ &
+     &1.3999e-04_rb,1.7512e-03_rb,2.3888e-03_rb,2.8018e-03_rb,3.0687e-03_rb,3.3097e-03_rb, &
+     &3.4825e-03_rb,3.2297e-03_rb,2.6912e-03_rb/)
+      kao(:, 4, 4, 4) = (/ &
+     &2.0284e-04_rb,2.1576e-03_rb,2.9507e-03_rb,3.4179e-03_rb,3.7408e-03_rb,4.0628e-03_rb, &
+     &4.2589e-03_rb,4.0554e-03_rb,3.2822e-03_rb/)
+      kao(:, 5, 4, 4) = (/ &
+     &2.8653e-04_rb,2.6101e-03_rb,3.5917e-03_rb,4.1189e-03_rb,4.5031e-03_rb,4.8876e-03_rb, &
+     &5.1085e-03_rb,4.9728e-03_rb,3.9394e-03_rb/)
+      kao(:, 1, 5, 4) = (/ &
+     &8.6213e-05_rb,1.0235e-03_rb,1.4463e-03_rb,1.6932e-03_rb,1.8586e-03_rb,1.8899e-03_rb, &
+     &1.8325e-03_rb,1.6931e-03_rb,1.2167e-03_rb/)
+      kao(:, 2, 5, 4) = (/ &
+     &1.3497e-04_rb,1.3639e-03_rb,1.8867e-03_rb,2.1813e-03_rb,2.3731e-03_rb,2.4352e-03_rb, &
+     &2.3757e-03_rb,2.2169e-03_rb,1.5707e-03_rb/)
+      kao(:, 3, 5, 4) = (/ &
+     &2.0469e-04_rb,1.7684e-03_rb,2.3970e-03_rb,2.7679e-03_rb,2.9816e-03_rb,3.0549e-03_rb, &
+     &3.0098e-03_rb,2.8798e-03_rb,1.9802e-03_rb/)
+      kao(:, 4, 5, 4) = (/ &
+     &3.0118e-04_rb,2.2412e-03_rb,2.9952e-03_rb,3.4514e-03_rb,3.7055e-03_rb,3.7675e-03_rb, &
+     &3.7358e-03_rb,3.5681e-03_rb,2.4524e-03_rb/)
+      kao(:, 5, 5, 4) = (/ &
+     &4.3178e-04_rb,2.7692e-03_rb,3.6699e-03_rb,4.2507e-03_rb,4.5341e-03_rb,4.5904e-03_rb, &
+     &4.5606e-03_rb,4.3497e-03_rb,2.9904e-03_rb/)
+      kao(:, 1, 6, 4) = (/ &
+     &1.1224e-04_rb,9.6248e-04_rb,1.3486e-03_rb,1.5651e-03_rb,1.6739e-03_rb,1.7217e-03_rb, &
+     &1.6200e-03_rb,1.3812e-03_rb,9.3024e-04_rb/)
+      kao(:, 2, 6, 4) = (/ &
+     &1.7788e-04_rb,1.2979e-03_rb,1.7963e-03_rb,2.0621e-03_rb,2.2013e-03_rb,2.2377e-03_rb, &
+     &2.1278e-03_rb,1.8809e-03_rb,1.2042e-03_rb/)
+      kao(:, 3, 6, 4) = (/ &
+     &2.7340e-04_rb,1.7148e-03_rb,2.3323e-03_rb,2.6619e-03_rb,2.8238e-03_rb,2.8631e-03_rb, &
+     &2.7284e-03_rb,2.4183e-03_rb,1.5217e-03_rb/)
+      kao(:, 4, 6, 4) = (/ &
+     &4.0959e-04_rb,2.2331e-03_rb,2.9678e-03_rb,3.3799e-03_rb,3.5736e-03_rb,3.5928e-03_rb, &
+     &3.4271e-03_rb,3.0552e-03_rb,1.8843e-03_rb/)
+      kao(:, 5, 6, 4) = (/ &
+     &5.9620e-04_rb,2.8328e-03_rb,3.7008e-03_rb,4.1972e-03_rb,4.4330e-03_rb,4.4525e-03_rb, &
+     &4.2185e-03_rb,3.7711e-03_rb,2.2988e-03_rb/)
+      kao(:, 1, 7, 4) = (/ &
+     &1.5344e-04_rb,9.2316e-04_rb,1.2773e-03_rb,1.5000e-03_rb,1.6102e-03_rb,1.6127e-03_rb, &
+     &1.5115e-03_rb,1.2377e-03_rb,7.0764e-04_rb/)
+      kao(:, 2, 7, 4) = (/ &
+     &2.4398e-04_rb,1.2809e-03_rb,1.7477e-03_rb,2.0347e-03_rb,2.1522e-03_rb,2.1311e-03_rb, &
+     &1.9950e-03_rb,1.6669e-03_rb,9.1774e-04_rb/)
+      kao(:, 3, 7, 4) = (/ &
+     &3.8058e-04_rb,1.7477e-03_rb,2.3440e-03_rb,2.6829e-03_rb,2.8039e-03_rb,2.7555e-03_rb, &
+     &2.5876e-03_rb,2.1763e-03_rb,1.1586e-03_rb/)
+      kao(:, 4, 7, 4) = (/ &
+     &5.7739e-04_rb,2.3349e-03_rb,3.0698e-03_rb,3.4470e-03_rb,3.5790e-03_rb,3.5331e-03_rb, &
+     &3.3054e-03_rb,2.7805e-03_rb,1.4458e-03_rb/)
+      kao(:, 5, 7, 4) = (/ &
+     &8.5208e-04_rb,3.0383e-03_rb,3.9002e-03_rb,4.3347e-03_rb,4.5004e-03_rb,4.4415e-03_rb, &
+     &4.1236e-03_rb,3.4788e-03_rb,1.7825e-03_rb/)
+      kao(:, 1, 8, 4) = (/ &
+     &2.5035e-04_rb,9.8089e-04_rb,1.3026e-03_rb,1.5173e-03_rb,1.6357e-03_rb,1.6535e-03_rb, &
+     &1.5386e-03_rb,1.2613e-03_rb,5.4812e-04_rb/)
+      kao(:, 2, 8, 4) = (/ &
+     &3.9983e-04_rb,1.4074e-03_rb,1.8431e-03_rb,2.1183e-03_rb,2.2695e-03_rb,2.2610e-03_rb, &
+     &2.0892e-03_rb,1.6966e-03_rb,7.0487e-04_rb/)
+      kao(:, 3, 8, 4) = (/ &
+     &6.2524e-04_rb,1.9883e-03_rb,2.5535e-03_rb,2.8971e-03_rb,3.0599e-03_rb,3.0259e-03_rb, &
+     &2.7534e-03_rb,2.2128e-03_rb,8.9347e-04_rb/)
+      kao(:, 4, 8, 4) = (/ &
+     &9.6475e-04_rb,2.7489e-03_rb,3.4725e-03_rb,3.8856e-03_rb,4.0355e-03_rb,3.9357e-03_rb, &
+     &3.5484e-03_rb,2.8450e-03_rb,1.1141e-03_rb/)
+      kao(:, 5, 8, 4) = (/ &
+     &1.4492e-03_rb,3.7234e-03_rb,4.6023e-03_rb,5.0761e-03_rb,5.1898e-03_rb,5.0041e-03_rb, &
+     &4.4962e-03_rb,3.6082e-03_rb,1.3876e-03_rb/)
+      kao(:, 1, 9, 4) = (/ &
+     &7.7717e-04_rb,1.6076e-03_rb,1.9327e-03_rb,2.0950e-03_rb,2.1727e-03_rb,2.1507e-03_rb, &
+     &2.0239e-03_rb,1.6619e-03_rb,6.5283e-04_rb/)
+      kao(:, 2, 9, 4) = (/ &
+     &1.2257e-03_rb,2.4216e-03_rb,2.8205e-03_rb,3.0706e-03_rb,3.1558e-03_rb,3.0893e-03_rb, &
+     &2.8639e-03_rb,2.3215e-03_rb,8.1326e-04_rb/)
+      kao(:, 3, 9, 4) = (/ &
+     &1.9258e-03_rb,3.5788e-03_rb,4.1331e-03_rb,4.4121e-03_rb,4.4825e-03_rb,4.3456e-03_rb, &
+     &3.9751e-03_rb,3.1546e-03_rb,1.0072e-03_rb/)
+      kao(:, 4, 9, 4) = (/ &
+     &3.0058e-03_rb,5.1816e-03_rb,5.8926e-03_rb,6.2133e-03_rb,6.2513e-03_rb,5.9943e-03_rb, &
+     &5.4160e-03_rb,4.1735e-03_rb,1.2133e-03_rb/)
+      kao(:, 5, 9, 4) = (/ &
+     &4.5860e-03_rb,7.3561e-03_rb,8.1694e-03_rb,8.5315e-03_rb,8.5009e-03_rb,8.0696e-03_rb, &
+     &7.1597e-03_rb,5.3914e-03_rb,1.4524e-03_rb/)
+      kao(:, 1,10, 4) = (/ &
+     &2.7632e-03_rb,3.7578e-03_rb,3.8929e-03_rb,3.8648e-03_rb,3.7150e-03_rb,3.4386e-03_rb, &
+     &2.9824e-03_rb,2.3042e-03_rb,1.1595e-03_rb/)
+      kao(:, 2,10, 4) = (/ &
+     &4.3618e-03_rb,5.8439e-03_rb,6.0237e-03_rb,5.9173e-03_rb,5.6198e-03_rb,5.0739e-03_rb, &
+     &4.3966e-03_rb,3.3846e-03_rb,1.3310e-03_rb/)
+      kao(:, 3,10, 4) = (/ &
+     &6.8076e-03_rb,8.8616e-03_rb,9.0867e-03_rb,8.8297e-03_rb,8.2980e-03_rb,7.5120e-03_rb, &
+     &6.4366e-03_rb,4.8357e-03_rb,1.4427e-03_rb/)
+      kao(:, 4,10, 4) = (/ &
+     &1.0727e-02_rb,1.3247e-02_rb,1.3386e-02_rb,1.2895e-02_rb,1.2079e-02_rb,1.0841e-02_rb, &
+     &9.1826e-03_rb,6.8074e-03_rb,1.5623e-03_rb/)
+      kao(:, 5,10, 4) = (/ &
+     &1.6578e-02_rb,1.9641e-02_rb,1.9517e-02_rb,1.8627e-02_rb,1.7184e-02_rb,1.5227e-02_rb, &
+     &1.2710e-02_rb,9.3140e-03_rb,1.8266e-03_rb/)
+      kao(:, 1,11, 4) = (/ &
+     &4.3397e-03_rb,5.2633e-03_rb,5.2314e-03_rb,5.0017e-03_rb,4.6314e-03_rb,4.1308e-03_rb, &
+     &3.4621e-03_rb,2.5597e-03_rb,1.2582e-03_rb/)
+      kao(:, 2,11, 4) = (/ &
+     &6.6934e-03_rb,8.1477e-03_rb,8.0949e-03_rb,7.7188e-03_rb,7.1188e-03_rb,6.2977e-03_rb, &
+     &5.1713e-03_rb,3.7779e-03_rb,1.4574e-03_rb/)
+      kao(:, 3,11, 4) = (/ &
+     &1.0432e-02_rb,1.2428e-02_rb,1.2196e-02_rb,1.1560e-02_rb,1.0566e-02_rb,9.2464e-03_rb, &
+     &7.6156e-03_rb,5.5141e-03_rb,1.6582e-03_rb/)
+      kao(:, 4,11, 4) = (/ &
+     &1.6491e-02_rb,1.8759e-02_rb,1.8258e-02_rb,1.7109e-02_rb,1.5472e-02_rb,1.3463e-02_rb, &
+     &1.0963e-02_rb,7.7973e-03_rb,1.8335e-03_rb/)
+      kao(:, 5,11, 4) = (/ &
+     &2.5430e-02_rb,2.8078e-02_rb,2.7002e-02_rb,2.5032e-02_rb,2.2392e-02_rb,1.9261e-02_rb, &
+     &1.5474e-02_rb,1.0784e-02_rb,2.0075e-03_rb/)
+      kao(:, 1,12, 4) = (/ &
+     &4.9273e-03_rb,5.7931e-03_rb,5.6746e-03_rb,5.3611e-03_rb,4.8847e-03_rb,4.2709e-03_rb, &
+     &3.4855e-03_rb,2.4889e-03_rb,1.1526e-03_rb/)
+      kao(:, 2,12, 4) = (/ &
+     &7.6884e-03_rb,8.9132e-03_rb,8.6777e-03_rb,8.1782e-03_rb,7.4327e-03_rb,6.4648e-03_rb, &
+     &5.2372e-03_rb,3.6981e-03_rb,1.3373e-03_rb/)
+      kao(:, 3,12, 4) = (/ &
+     &1.2107e-02_rb,1.3711e-02_rb,1.3177e-02_rb,1.2250e-02_rb,1.1036e-02_rb,9.5160e-03_rb, &
+     &7.6801e-03_rb,5.4155e-03_rb,1.5194e-03_rb/)
+      kao(:, 4,12, 4) = (/ &
+     &1.8869e-02_rb,2.0811e-02_rb,1.9833e-02_rb,1.8325e-02_rb,1.6361e-02_rb,1.3983e-02_rb, &
+     &1.1160e-02_rb,7.6837e-03_rb,1.7468e-03_rb/)
+      kao(:, 5,12, 4) = (/ &
+     &2.9063e-02_rb,3.1131e-02_rb,2.9461e-02_rb,2.6993e-02_rb,2.3838e-02_rb,2.0192e-02_rb, &
+     &1.5924e-02_rb,1.0737e-02_rb,1.9884e-03_rb/)
+      kao(:, 1,13, 4) = (/ &
+     &4.3869e-03_rb,5.1798e-03_rb,5.0989e-03_rb,4.8169e-03_rb,4.3794e-03_rb,3.7839e-03_rb, &
+     &3.0521e-03_rb,2.1587e-03_rb,9.4784e-04_rb/)
+      kao(:, 2,13, 4) = (/ &
+     &6.9481e-03_rb,8.0525e-03_rb,7.8458e-03_rb,7.3314e-03_rb,6.6078e-03_rb,5.7100e-03_rb, &
+     &4.5663e-03_rb,3.2136e-03_rb,1.0961e-03_rb/)
+      kao(:, 3,13, 4) = (/ &
+     &1.1021e-02_rb,1.2458e-02_rb,1.1977e-02_rb,1.1021e-02_rb,9.8258e-03_rb,8.4083e-03_rb, &
+     &6.7419e-03_rb,4.6947e-03_rb,1.2238e-03_rb/)
+      kao(:, 4,13, 4) = (/ &
+     &1.7310e-02_rb,1.8923e-02_rb,1.8001e-02_rb,1.6509e-02_rb,1.4657e-02_rb,1.2419e-02_rb, &
+     &9.8548e-03_rb,6.6916e-03_rb,1.4326e-03_rb/)
+      kao(:, 5,13, 4) = (/ &
+     &2.6619e-02_rb,2.8296e-02_rb,2.6623e-02_rb,2.4187e-02_rb,2.1294e-02_rb,1.7939e-02_rb, &
+     &1.4103e-02_rb,9.4141e-03_rb,1.6712e-03_rb/)
+      kao(:, 1, 1, 5) = (/ &
+     &1.5033e-04_rb,2.0446e-03_rb,3.1681e-03_rb,4.0928e-03_rb,4.9645e-03_rb,5.8752e-03_rb, &
+     &6.8891e-03_rb,9.7460e-03_rb,8.2375e-03_rb/)
+      kao(:, 2, 1, 5) = (/ &
+     &2.0389e-04_rb,2.4966e-03_rb,3.8465e-03_rb,4.9929e-03_rb,6.1245e-03_rb,7.2940e-03_rb, &
+     &8.7776e-03_rb,1.1499e-02_rb,1.0182e-02_rb/)
+      kao(:, 3, 1, 5) = (/ &
+     &2.6769e-04_rb,3.0079e-03_rb,4.6076e-03_rb,5.9938e-03_rb,7.3703e-03_rb,8.8250e-03_rb, &
+     &1.0916e-02_rb,1.3468e-02_rb,1.2268e-02_rb/)
+      kao(:, 4, 1, 5) = (/ &
+     &3.4024e-04_rb,3.5831e-03_rb,5.4751e-03_rb,7.1124e-03_rb,8.7423e-03_rb,1.0600e-02_rb, &
+     &1.2985e-02_rb,1.6757e-02_rb,1.4652e-02_rb/)
+      kao(:, 5, 1, 5) = (/ &
+     &4.2020e-04_rb,4.2180e-03_rb,6.4294e-03_rb,8.3453e-03_rb,1.0248e-02_rb,1.2449e-02_rb, &
+     &1.5350e-02_rb,1.9955e-02_rb,1.7214e-02_rb/)
+      kao(:, 1, 2, 5) = (/ &
+     &1.8399e-04_rb,1.8419e-03_rb,2.8498e-03_rb,3.5822e-03_rb,4.2442e-03_rb,4.8814e-03_rb, &
+     &5.3141e-03_rb,6.9582e-03_rb,6.1890e-03_rb/)
+      kao(:, 2, 2, 5) = (/ &
+     &2.5292e-04_rb,2.2771e-03_rb,3.4958e-03_rb,4.3938e-03_rb,5.2283e-03_rb,6.0330e-03_rb, &
+     &6.8353e-03_rb,8.0230e-03_rb,7.6976e-03_rb/)
+      kao(:, 3, 2, 5) = (/ &
+     &3.3540e-04_rb,2.7711e-03_rb,4.2257e-03_rb,5.3109e-03_rb,6.3352e-03_rb,7.3450e-03_rb, &
+     &8.3567e-03_rb,1.0142e-02_rb,9.3716e-03_rb/)
+      kao(:, 4, 2, 5) = (/ &
+     &4.2928e-04_rb,3.3267e-03_rb,5.0595e-03_rb,6.3597e-03_rb,7.5719e-03_rb,8.7753e-03_rb, &
+     &1.0137e-02_rb,1.2487e-02_rb,1.1226e-02_rb/)
+      kao(:, 5, 2, 5) = (/ &
+     &5.3326e-04_rb,3.9397e-03_rb,5.9807e-03_rb,7.5174e-03_rb,8.9383e-03_rb,1.0365e-02_rb, &
+     &1.1992e-02_rb,1.4789e-02_rb,1.3251e-02_rb/)
+      kao(:, 1, 3, 5) = (/ &
+     &2.8126e-04_rb,1.8765e-03_rb,2.6588e-03_rb,3.3485e-03_rb,3.8221e-03_rb,4.1636e-03_rb, &
+     &4.4682e-03_rb,4.4846e-03_rb,4.3919e-03_rb/)
+      kao(:, 2, 3, 5) = (/ &
+     &3.9449e-04_rb,2.3306e-03_rb,3.3231e-03_rb,4.1650e-03_rb,4.7241e-03_rb,5.1684e-03_rb, &
+     &5.5884e-03_rb,5.9167e-03_rb,5.5074e-03_rb/)
+      kao(:, 3, 3, 5) = (/ &
+     &5.3269e-04_rb,2.8500e-03_rb,4.0835e-03_rb,5.0834e-03_rb,5.7677e-03_rb,6.3235e-03_rb, &
+     &6.8829e-03_rb,7.4745e-03_rb,6.8347e-03_rb/)
+      kao(:, 4, 3, 5) = (/ &
+     &6.9304e-04_rb,3.4418e-03_rb,4.9465e-03_rb,6.1263e-03_rb,6.9668e-03_rb,7.6366e-03_rb, &
+     &8.3133e-03_rb,9.1010e-03_rb,8.2831e-03_rb/)
+      kao(:, 5, 3, 5) = (/ &
+     &8.7133e-04_rb,4.1178e-03_rb,5.9088e-03_rb,7.3026e-03_rb,8.3125e-03_rb,9.0996e-03_rb, &
+     &9.9113e-03_rb,1.0888e-02_rb,9.8539e-03_rb/)
+      kao(:, 1, 4, 5) = (/ &
+     &4.2942e-04_rb,2.1209e-03_rb,2.6611e-03_rb,3.0954e-03_rb,3.5092e-03_rb,3.7795e-03_rb, &
+     &3.7536e-03_rb,3.6803e-03_rb,3.1833e-03_rb/)
+      kao(:, 2, 4, 5) = (/ &
+     &6.1278e-04_rb,2.6801e-03_rb,3.3648e-03_rb,3.9108e-03_rb,4.4289e-03_rb,4.7305e-03_rb, &
+     &4.7677e-03_rb,4.7187e-03_rb,4.0112e-03_rb/)
+      kao(:, 3, 4, 5) = (/ &
+     &8.4431e-04_rb,3.3316e-03_rb,4.1648e-03_rb,4.8597e-03_rb,5.4829e-03_rb,5.8484e-03_rb, &
+     &5.9135e-03_rb,5.9451e-03_rb,4.9891e-03_rb/)
+      kao(:, 4, 4, 5) = (/ &
+     &1.1175e-03_rb,4.0506e-03_rb,5.0747e-03_rb,5.9647e-03_rb,6.6966e-03_rb,7.1102e-03_rb, &
+     &7.2127e-03_rb,7.2668e-03_rb,6.0794e-03_rb/)
+      kao(:, 5, 4, 5) = (/ &
+     &1.4334e-03_rb,4.8948e-03_rb,6.1056e-03_rb,7.2069e-03_rb,8.0737e-03_rb,8.5555e-03_rb, &
+     &8.6934e-03_rb,8.7560e-03_rb,7.1896e-03_rb/)
+      kao(:, 1, 5, 5) = (/ &
+     &6.0926e-04_rb,2.3529e-03_rb,2.8355e-03_rb,3.0797e-03_rb,3.2149e-03_rb,3.3400e-03_rb, &
+     &3.3910e-03_rb,2.9801e-03_rb,2.2681e-03_rb/)
+      kao(:, 2, 5, 5) = (/ &
+     &8.8131e-04_rb,3.0196e-03_rb,3.6353e-03_rb,3.9718e-03_rb,4.1316e-03_rb,4.2694e-03_rb, &
+     &4.3037e-03_rb,3.9012e-03_rb,2.9392e-03_rb/)
+      kao(:, 3, 5, 5) = (/ &
+     &1.2303e-03_rb,3.8066e-03_rb,4.5787e-03_rb,4.9631e-03_rb,5.1972e-03_rb,5.3645e-03_rb, &
+     &5.3804e-03_rb,4.9263e-03_rb,3.6983e-03_rb/)
+      kao(:, 4, 5, 5) = (/ &
+     &1.6619e-03_rb,4.7363e-03_rb,5.6662e-03_rb,6.1253e-03_rb,6.4225e-03_rb,6.6560e-03_rb, &
+     &6.6051e-03_rb,6.0844e-03_rb,4.5482e-03_rb/)
+      kao(:, 5, 5, 5) = (/ &
+     &2.1681e-03_rb,5.8273e-03_rb,6.8808e-03_rb,7.4389e-03_rb,7.8269e-03_rb,8.1204e-03_rb, &
+     &8.0166e-03_rb,7.4003e-03_rb,5.4950e-03_rb/)
+      kao(:, 1, 6, 5) = (/ &
+     &8.3319e-04_rb,2.4541e-03_rb,2.9309e-03_rb,3.1239e-03_rb,3.1232e-03_rb,3.0304e-03_rb, &
+     &2.8953e-03_rb,2.6232e-03_rb,1.6854e-03_rb/)
+      kao(:, 2, 6, 5) = (/ &
+     &1.2038e-03_rb,3.2544e-03_rb,3.8397e-03_rb,4.0740e-03_rb,4.0835e-03_rb,3.9879e-03_rb, &
+     &3.7753e-03_rb,3.4082e-03_rb,2.1468e-03_rb/)
+      kao(:, 3, 6, 5) = (/ &
+     &1.6852e-03_rb,4.1990e-03_rb,4.9217e-03_rb,5.1945e-03_rb,5.2325e-03_rb,5.0738e-03_rb, &
+     &4.7918e-03_rb,4.2939e-03_rb,2.6825e-03_rb/)
+      kao(:, 4, 6, 5) = (/ &
+     &2.3055e-03_rb,5.2874e-03_rb,6.1886e-03_rb,6.5148e-03_rb,6.5533e-03_rb,6.3614e-03_rb, &
+     &5.9949e-03_rb,5.3440e-03_rb,3.2990e-03_rb/)
+      kao(:, 5, 6, 5) = (/ &
+     &3.0550e-03_rb,6.5592e-03_rb,7.6795e-03_rb,8.0591e-03_rb,8.0426e-03_rb,7.8256e-03_rb, &
+     &7.4185e-03_rb,6.5412e-03_rb,4.0170e-03_rb/)
+      kao(:, 1, 7, 5) = (/ &
+     &1.2030e-03_rb,2.7895e-03_rb,3.1932e-03_rb,3.3085e-03_rb,3.2497e-03_rb,3.0373e-03_rb, &
+     &2.6860e-03_rb,2.2491e-03_rb,1.3507e-03_rb/)
+      kao(:, 2, 7, 5) = (/ &
+     &1.7561e-03_rb,3.7366e-03_rb,4.1989e-03_rb,4.3780e-03_rb,4.3275e-03_rb,4.0454e-03_rb, &
+     &3.5823e-03_rb,2.9962e-03_rb,1.7424e-03_rb/)
+      kao(:, 3, 7, 5) = (/ &
+     &2.4695e-03_rb,4.8641e-03_rb,5.4890e-03_rb,5.7046e-03_rb,5.6266e-03_rb,5.2456e-03_rb, &
+     &4.6755e-03_rb,3.8694e-03_rb,2.1970e-03_rb/)
+      kao(:, 4, 7, 5) = (/ &
+     &3.4036e-03_rb,6.2572e-03_rb,7.0247e-03_rb,7.3182e-03_rb,7.1220e-03_rb,6.6595e-03_rb, &
+     &5.9470e-03_rb,4.8905e-03_rb,2.7089e-03_rb/)
+      kao(:, 5, 7, 5) = (/ &
+     &4.5461e-03_rb,7.9331e-03_rb,8.8637e-03_rb,9.1326e-03_rb,8.9102e-03_rb,8.3275e-03_rb, &
+     &7.4120e-03_rb,6.0989e-03_rb,3.2778e-03_rb/)
+      kao(:, 1, 8, 5) = (/ &
+     &2.0449e-03_rb,3.7053e-03_rb,4.0860e-03_rb,4.1499e-03_rb,3.9922e-03_rb,3.6227e-03_rb, &
+     &3.0421e-03_rb,2.2282e-03_rb,1.0954e-03_rb/)
+      kao(:, 2, 8, 5) = (/ &
+     &3.0260e-03_rb,5.1232e-03_rb,5.5625e-03_rb,5.5873e-03_rb,5.3321e-03_rb,4.8458e-03_rb, &
+     &4.0703e-03_rb,3.0319e-03_rb,1.4218e-03_rb/)
+      kao(:, 3, 8, 5) = (/ &
+     &4.3499e-03_rb,6.8685e-03_rb,7.3484e-03_rb,7.3183e-03_rb,6.9565e-03_rb,6.3086e-03_rb, &
+     &5.3805e-03_rb,3.9991e-03_rb,1.7827e-03_rb/)
+      kao(:, 4, 8, 5) = (/ &
+     &6.0988e-03_rb,9.0048e-03_rb,9.4728e-03_rb,9.3798e-03_rb,8.9487e-03_rb,8.1669e-03_rb, &
+     &6.9162e-03_rb,5.1727e-03_rb,2.2090e-03_rb/)
+      kao(:, 5, 8, 5) = (/ &
+     &8.2301e-03_rb,1.1592e-02_rb,1.2058e-02_rb,1.1936e-02_rb,1.1386e-02_rb,1.0345e-02_rb, &
+     &8.7069e-03_rb,6.5415e-03_rb,2.6879e-03_rb/)
+      kao(:, 1, 9, 5) = (/ &
+     &6.4341e-03_rb,8.4932e-03_rb,8.6319e-03_rb,8.3108e-03_rb,7.7018e-03_rb,6.7763e-03_rb, &
+     &5.5115e-03_rb,3.7767e-03_rb,9.5475e-04_rb/)
+      kao(:, 2, 9, 5) = (/ &
+     &9.6759e-03_rb,1.2213e-02_rb,1.2266e-02_rb,1.1725e-02_rb,1.0741e-02_rb,9.3855e-03_rb, &
+     &7.5654e-03_rb,5.1517e-03_rb,1.1933e-03_rb/)
+      kao(:, 3, 9, 5) = (/ &
+     &1.4274e-02_rb,1.7116e-02_rb,1.6970e-02_rb,1.6030e-02_rb,1.4545e-02_rb,1.2624e-02_rb, &
+     &1.0092e-02_rb,6.8273e-03_rb,1.4956e-03_rb/)
+      kao(:, 4, 9, 5) = (/ &
+     &2.0348e-02_rb,2.3456e-02_rb,2.2925e-02_rb,2.1415e-02_rb,1.9260e-02_rb,1.6502e-02_rb, &
+     &1.3098e-02_rb,8.8597e-03_rb,1.8913e-03_rb/)
+      kao(:, 5, 9, 5) = (/ &
+     &2.7947e-02_rb,3.1392e-02_rb,3.0350e-02_rb,2.8042e-02_rb,2.4920e-02_rb,2.1171e-02_rb, &
+     &1.6720e-02_rb,1.1275e-02_rb,2.3159e-03_rb/)
+      kao(:, 1,10, 5) = (/ &
+     &2.3218e-02_rb,2.4547e-02_rb,2.3456e-02_rb,2.1452e-02_rb,1.8855e-02_rb,1.5703e-02_rb, &
+     &1.2047e-02_rb,7.7884e-03_rb,1.4115e-03_rb/)
+      kao(:, 2,10, 5) = (/ &
+     &3.5352e-02_rb,3.6479e-02_rb,3.4471e-02_rb,3.1299e-02_rb,2.7239e-02_rb,2.2668e-02_rb, &
+     &1.7318e-02_rb,1.0990e-02_rb,1.7428e-03_rb/)
+      kao(:, 3,10, 5) = (/ &
+     &5.3041e-02_rb,5.3290e-02_rb,4.9753e-02_rb,4.4634e-02_rb,3.8593e-02_rb,3.1830e-02_rb, &
+     &2.4004e-02_rb,1.5032e-02_rb,2.1711e-03_rb/)
+      kao(:, 4,10, 5) = (/ &
+     &7.6819e-02_rb,7.5905e-02_rb,7.0118e-02_rb,6.2386e-02_rb,5.3448e-02_rb,4.3595e-02_rb, &
+     &3.2572e-02_rb,2.0010e-02_rb,2.6405e-03_rb/)
+      kao(:, 5,10, 5) = (/ &
+     &1.0741e-01_rb,1.0446e-01_rb,9.5780e-02_rb,8.4676e-02_rb,7.2117e-02_rb,5.8406e-02_rb, &
+     &4.3338e-02_rb,2.6148e-02_rb,3.0152e-03_rb/)
+      kao(:, 1,11, 5) = (/ &
+     &3.5267e-02_rb,3.5419e-02_rb,3.3018e-02_rb,2.9652e-02_rb,2.5661e-02_rb,2.1081e-02_rb, &
+     &1.5812e-02_rb,9.8203e-03_rb,1.5039e-03_rb/)
+      kao(:, 2,11, 5) = (/ &
+     &5.4088e-02_rb,5.3137e-02_rb,4.9102e-02_rb,4.3719e-02_rb,3.7498e-02_rb,3.0622e-02_rb, &
+     &2.2914e-02_rb,1.4036e-02_rb,1.8588e-03_rb/)
+      kao(:, 3,11, 5) = (/ &
+     &8.1309e-02_rb,7.8515e-02_rb,7.1873e-02_rb,6.3455e-02_rb,5.4008e-02_rb,4.3709e-02_rb, &
+     &3.2277e-02_rb,1.9424e-02_rb,2.2498e-03_rb/)
+      kao(:, 4,11, 5) = (/ &
+     &1.1800e-01_rb,1.1244e-01_rb,1.0217e-01_rb,8.9567e-02_rb,7.5664e-02_rb,6.0559e-02_rb, &
+     &4.4387e-02_rb,2.6353e-02_rb,2.7248e-03_rb/)
+      kao(:, 5,11, 5) = (/ &
+     &1.6472e-01_rb,1.5538e-01_rb,1.4035e-01_rb,1.2265e-01_rb,1.0315e-01_rb,8.2131e-02_rb, &
+     &5.9771e-02_rb,3.4979e-02_rb,3.2176e-03_rb/)
+      kao(:, 1,12, 5) = (/ &
+     &3.9647e-02_rb,3.8955e-02_rb,3.5866e-02_rb,3.1882e-02_rb,2.7372e-02_rb,2.2283e-02_rb, &
+     &1.6581e-02_rb,1.0137e-02_rb,1.4428e-03_rb/)
+      kao(:, 2,12, 5) = (/ &
+     &6.1147e-02_rb,5.9154e-02_rb,5.3991e-02_rb,4.7633e-02_rb,4.0515e-02_rb,3.2821e-02_rb, &
+     &2.4231e-02_rb,1.4611e-02_rb,1.7795e-03_rb/)
+      kao(:, 3,12, 5) = (/ &
+     &9.1962e-02_rb,8.7537e-02_rb,7.9486e-02_rb,6.9739e-02_rb,5.8957e-02_rb,4.7222e-02_rb, &
+     &3.4488e-02_rb,2.0425e-02_rb,2.1548e-03_rb/)
+      kao(:, 4,12, 5) = (/ &
+     &1.3375e-01_rb,1.2593e-01_rb,1.1362e-01_rb,9.8983e-02_rb,8.2938e-02_rb,6.5961e-02_rb, &
+     &4.7849e-02_rb,2.7977e-02_rb,2.5823e-03_rb/)
+      kao(:, 5,12, 5) = (/ &
+     &1.8619e-01_rb,1.7389e-01_rb,1.5614e-01_rb,1.3563e-01_rb,1.1356e-01_rb,8.9900e-02_rb, &
+     &6.4743e-02_rb,3.7437e-02_rb,3.0416e-03_rb/)
+      kao(:, 1,13, 5) = (/ &
+     &3.5348e-02_rb,3.4594e-02_rb,3.1651e-02_rb,2.8032e-02_rb,2.3972e-02_rb,1.9476e-02_rb, &
+     &1.4520e-02_rb,8.8483e-03_rb,1.2073e-03_rb/)
+      kao(:, 2,13, 5) = (/ &
+     &5.4657e-02_rb,5.2717e-02_rb,4.7880e-02_rb,4.2169e-02_rb,3.5919e-02_rb,2.9028e-02_rb, &
+     &2.1424e-02_rb,1.2832e-02_rb,1.4997e-03_rb/)
+      kao(:, 3,13, 5) = (/ &
+     &8.2593e-02_rb,7.8668e-02_rb,7.1038e-02_rb,6.2226e-02_rb,5.2555e-02_rb,4.1980e-02_rb, &
+     &3.0595e-02_rb,1.8057e-02_rb,1.8484e-03_rb/)
+      kao(:, 4,13, 5) = (/ &
+     &1.1968e-01_rb,1.1269e-01_rb,1.0134e-01_rb,8.8277e-02_rb,7.4125e-02_rb,5.9019e-02_rb, &
+     &4.2726e-02_rb,2.4879e-02_rb,2.2113e-03_rb/)
+      kao(:, 5,13, 5) = (/ &
+     &1.6694e-01_rb,1.5606e-01_rb,1.3993e-01_rb,1.2146e-01_rb,1.0158e-01_rb,8.0368e-02_rb, &
+     &5.7742e-02_rb,3.3361e-02_rb,2.6209e-03_rb/)
+      kao(:, 1, 1, 6) = (/ &
+     &5.8710e-04_rb,3.7447e-03_rb,5.6598e-03_rb,7.4215e-03_rb,9.2308e-03_rb,1.1302e-02_rb, &
+     &1.3745e-02_rb,1.7130e-02_rb,1.6376e-02_rb/)
+      kao(:, 2, 1, 6) = (/ &
+     &7.1095e-04_rb,4.5295e-03_rb,6.8956e-03_rb,9.1329e-03_rb,1.1441e-02_rb,1.4069e-02_rb, &
+     &1.7260e-02_rb,2.1984e-02_rb,2.0159e-02_rb/)
+      kao(:, 3, 1, 6) = (/ &
+     &8.4824e-04_rb,5.3994e-03_rb,8.2567e-03_rb,1.1010e-02_rb,1.3909e-02_rb,1.7204e-02_rb, &
+     &2.1091e-02_rb,2.7132e-02_rb,2.4524e-02_rb/)
+      kao(:, 4, 1, 6) = (/ &
+     &9.9962e-04_rb,6.3675e-03_rb,9.7929e-03_rb,1.3116e-02_rb,1.6664e-02_rb,2.0670e-02_rb, &
+     &2.5520e-02_rb,3.3009e-02_rb,2.9504e-02_rb/)
+      kao(:, 5, 1, 6) = (/ &
+     &1.1677e-03_rb,7.4449e-03_rb,1.1517e-02_rb,1.5476e-02_rb,1.9740e-02_rb,2.4530e-02_rb, &
+     &3.0349e-02_rb,3.9385e-02_rb,3.5028e-02_rb/)
+      kao(:, 1, 2, 6) = (/ &
+     &7.3151e-04_rb,3.6448e-03_rb,5.2016e-03_rb,6.6421e-03_rb,7.9400e-03_rb,9.1018e-03_rb, &
+     &1.0516e-02_rb,1.2549e-02_rb,1.2514e-02_rb/)
+      kao(:, 2, 2, 6) = (/ &
+     &8.8990e-04_rb,4.4216e-03_rb,6.3659e-03_rb,8.1663e-03_rb,9.8302e-03_rb,1.1392e-02_rb, &
+     &1.3321e-02_rb,1.6283e-02_rb,1.5469e-02_rb/)
+      kao(:, 3, 2, 6) = (/ &
+     &1.0714e-03_rb,5.2883e-03_rb,7.6564e-03_rb,9.8457e-03_rb,1.1909e-02_rb,1.3940e-02_rb, &
+     &1.6405e-02_rb,2.0166e-02_rb,1.8847e-02_rb/)
+      kao(:, 4, 2, 6) = (/ &
+     &1.2782e-03_rb,6.2637e-03_rb,9.0995e-03_rb,1.1738e-02_rb,1.4242e-02_rb,1.6761e-02_rb, &
+     &1.9871e-02_rb,2.4604e-02_rb,2.2753e-02_rb/)
+      kao(:, 5, 2, 6) = (/ &
+     &1.5101e-03_rb,7.3491e-03_rb,1.0728e-02_rb,1.3865e-02_rb,1.6850e-02_rb,1.9892e-02_rb, &
+     &2.3687e-02_rb,2.9581e-02_rb,2.7171e-02_rb/)
+      kao(:, 1, 3, 6) = (/ &
+     &1.1614e-03_rb,3.9286e-03_rb,5.2992e-03_rb,6.2920e-03_rb,7.1803e-03_rb,7.9571e-03_rb, &
+     &8.5455e-03_rb,9.0349e-03_rb,9.0567e-03_rb/)
+      kao(:, 2, 3, 6) = (/ &
+     &1.4526e-03_rb,4.8338e-03_rb,6.5076e-03_rb,7.7704e-03_rb,8.9197e-03_rb,9.9629e-03_rb, &
+     &1.0799e-02_rb,1.1625e-02_rb,1.1298e-02_rb/)
+      kao(:, 3, 3, 6) = (/ &
+     &1.7725e-03_rb,5.8343e-03_rb,7.8680e-03_rb,9.4298e-03_rb,1.0866e-02_rb,1.2179e-02_rb, &
+     &1.3264e-02_rb,1.4525e-02_rb,1.3847e-02_rb/)
+      kao(:, 4, 3, 6) = (/ &
+     &2.1368e-03_rb,6.9576e-03_rb,9.3967e-03_rb,1.1298e-02_rb,1.3038e-02_rb,1.4633e-02_rb, &
+     &1.6013e-02_rb,1.7774e-02_rb,1.6807e-02_rb/)
+      kao(:, 5, 3, 6) = (/ &
+     &2.5530e-03_rb,8.2213e-03_rb,1.1119e-02_rb,1.3386e-02_rb,1.5467e-02_rb,1.7396e-02_rb, &
+     &1.9105e-02_rb,2.1405e-02_rb,2.0198e-02_rb/)
+      kao(:, 1, 4, 6) = (/ &
+     &1.8393e-03_rb,4.2719e-03_rb,5.6108e-03_rb,6.4238e-03_rb,6.8867e-03_rb,7.1924e-03_rb, &
+     &7.4060e-03_rb,7.2862e-03_rb,6.3156e-03_rb/)
+      kao(:, 2, 4, 6) = (/ &
+     &2.3510e-03_rb,5.3330e-03_rb,6.9923e-03_rb,7.9801e-03_rb,8.5829e-03_rb,9.0352e-03_rb, &
+     &9.3670e-03_rb,9.3790e-03_rb,7.9787e-03_rb/)
+      kao(:, 3, 4, 6) = (/ &
+     &2.9328e-03_rb,6.5477e-03_rb,8.5524e-03_rb,9.7522e-03_rb,1.0523e-02_rb,1.1105e-02_rb, &
+     &1.1571e-02_rb,1.1684e-02_rb,9.9124e-03_rb/)
+      kao(:, 4, 4, 6) = (/ &
+     &3.6136e-03_rb,7.9708e-03_rb,1.0306e-02_rb,1.1748e-02_rb,1.2708e-02_rb,1.3440e-02_rb, &
+     &1.4032e-02_rb,1.4271e-02_rb,1.2172e-02_rb/)
+      kao(:, 5, 4, 6) = (/ &
+     &4.3442e-03_rb,9.5761e-03_rb,1.2277e-02_rb,1.3997e-02_rb,1.5163e-02_rb,1.6053e-02_rb, &
+     &1.6795e-02_rb,1.7163e-02_rb,1.4922e-02_rb/)
+      kao(:, 1, 5, 6) = (/ &
+     &2.6688e-03_rb,4.8052e-03_rb,5.7832e-03_rb,6.4797e-03_rb,6.8502e-03_rb,6.8218e-03_rb, &
+     &6.5242e-03_rb,6.0722e-03_rb,4.6753e-03_rb/)
+      kao(:, 2, 5, 6) = (/ &
+     &3.4688e-03_rb,6.1297e-03_rb,7.3230e-03_rb,8.1782e-03_rb,8.6322e-03_rb,8.6195e-03_rb, &
+     &8.3126e-03_rb,7.8540e-03_rb,5.9385e-03_rb/)
+      kao(:, 3, 5, 6) = (/ &
+     &4.4058e-03_rb,7.6630e-03_rb,9.1013e-03_rb,1.0147e-02_rb,1.0667e-02_rb,1.0680e-02_rb, &
+     &1.0355e-02_rb,9.8543e-03_rb,7.3828e-03_rb/)
+      kao(:, 4, 5, 6) = (/ &
+     &5.5115e-03_rb,9.4361e-03_rb,1.1163e-02_rb,1.2385e-02_rb,1.2986e-02_rb,1.3010e-02_rb, &
+     &1.2662e-02_rb,1.2099e-02_rb,9.0803e-03_rb/)
+      kao(:, 5, 5, 6) = (/ &
+     &6.7862e-03_rb,1.1482e-02_rb,1.3563e-02_rb,1.4942e-02_rb,1.5588e-02_rb,1.5643e-02_rb, &
+     &1.5261e-02_rb,1.4627e-02_rb,1.1026e-02_rb/)
+      kao(:, 1, 6, 6) = (/ &
+     &3.5724e-03_rb,5.4370e-03_rb,6.0294e-03_rb,6.3914e-03_rb,6.6047e-03_rb,6.5232e-03_rb, &
+     &6.0277e-03_rb,5.0661e-03_rb,3.1530e-03_rb/)
+      kao(:, 2, 6, 6) = (/ &
+     &4.7182e-03_rb,7.1382e-03_rb,7.8365e-03_rb,8.2706e-03_rb,8.5053e-03_rb,8.3495e-03_rb, &
+     &7.7282e-03_rb,6.6198e-03_rb,4.1407e-03_rb/)
+      kao(:, 3, 6, 6) = (/ &
+     &6.1150e-03_rb,9.1981e-03_rb,9.9430e-03_rb,1.0464e-02_rb,1.0671e-02_rb,1.0482e-02_rb, &
+     &9.6931e-03_rb,8.3868e-03_rb,5.3331e-03_rb/)
+      kao(:, 4, 6, 6) = (/ &
+     &7.7447e-03_rb,1.1494e-02_rb,1.2445e-02_rb,1.3024e-02_rb,1.3207e-02_rb,1.2894e-02_rb, &
+     &1.1946e-02_rb,1.0395e-02_rb,6.6921e-03_rb/)
+      kao(:, 5, 6, 6) = (/ &
+     &9.6796e-03_rb,1.4190e-02_rb,1.5330e-02_rb,1.5967e-02_rb,1.6158e-02_rb,1.5661e-02_rb, &
+     &1.4492e-02_rb,1.2674e-02_rb,8.2498e-03_rb/)
+      kao(:, 1, 7, 6) = (/ &
+     &4.9616e-03_rb,6.6121e-03_rb,6.8416e-03_rb,6.8101e-03_rb,6.6768e-03_rb,6.3696e-03_rb, &
+     &5.8141e-03_rb,4.6733e-03_rb,2.5227e-03_rb/)
+      kao(:, 2, 7, 6) = (/ &
+     &6.6954e-03_rb,8.8189e-03_rb,9.1778e-03_rb,9.1281e-03_rb,8.8939e-03_rb,8.4196e-03_rb, &
+     &7.6478e-03_rb,6.1227e-03_rb,3.2129e-03_rb/)
+      kao(:, 3, 7, 6) = (/ &
+     &8.9023e-03_rb,1.1584e-02_rb,1.1984e-02_rb,1.1899e-02_rb,1.1446e-02_rb,1.0830e-02_rb, &
+     &9.7223e-03_rb,7.7935e-03_rb,4.0071e-03_rb/)
+      kao(:, 4, 7, 6) = (/ &
+     &1.1382e-02_rb,1.4883e-02_rb,1.5340e-02_rb,1.5077e-02_rb,1.4572e-02_rb,1.3613e-02_rb, &
+     &1.2124e-02_rb,9.7242e-03_rb,4.9238e-03_rb/)
+      kao(:, 5, 7, 6) = (/ &
+     &1.4371e-02_rb,1.8723e-02_rb,1.9154e-02_rb,1.8910e-02_rb,1.8193e-02_rb,1.6854e-02_rb, &
+     &1.4917e-02_rb,1.1939e-02_rb,6.0317e-03_rb/)
+      kao(:, 1, 8, 6) = (/ &
+     &8.7001e-03_rb,9.7747e-03_rb,9.5071e-03_rb,8.9379e-03_rb,8.2227e-03_rb,7.2962e-03_rb, &
+     &6.1868e-03_rb,4.7953e-03_rb,2.0794e-03_rb/)
+      kao(:, 2, 8, 6) = (/ &
+     &1.1618e-02_rb,1.3178e-02_rb,1.2958e-02_rb,1.2245e-02_rb,1.1180e-02_rb,9.8759e-03_rb, &
+     &8.4959e-03_rb,6.4689e-03_rb,2.6798e-03_rb/)
+      kao(:, 3, 8, 6) = (/ &
+     &1.5351e-02_rb,1.7665e-02_rb,1.7319e-02_rb,1.6267e-02_rb,1.4838e-02_rb,1.3188e-02_rb, &
+     &1.1167e-02_rb,8.4425e-03_rb,3.4113e-03_rb/)
+      kao(:, 4, 8, 6) = (/ &
+     &2.0092e-02_rb,2.2911e-02_rb,2.2431e-02_rb,2.1181e-02_rb,1.9393e-02_rb,1.7119e-02_rb, &
+     &1.4369e-02_rb,1.0695e-02_rb,4.2567e-03_rb/)
+      kao(:, 5, 8, 6) = (/ &
+     &2.5625e-02_rb,2.9136e-02_rb,2.8640e-02_rb,2.6980e-02_rb,2.4612e-02_rb,2.1703e-02_rb, &
+     &1.8202e-02_rb,1.3310e-02_rb,5.2101e-03_rb/)
+      kao(:, 1, 9, 6) = (/ &
+     &2.8411e-02_rb,2.7805e-02_rb,2.5436e-02_rb,2.2677e-02_rb,1.9516e-02_rb,1.5867e-02_rb, &
+     &1.1958e-02_rb,7.5969e-03_rb,2.0612e-03_rb/)
+      kao(:, 2, 9, 6) = (/ &
+     &3.8814e-02_rb,3.7908e-02_rb,3.4867e-02_rb,3.0948e-02_rb,2.6641e-02_rb,2.1668e-02_rb, &
+     &1.6345e-02_rb,1.0429e-02_rb,2.5903e-03_rb/)
+      kao(:, 3, 9, 6) = (/ &
+     &5.1537e-02_rb,5.0347e-02_rb,4.6262e-02_rb,4.1144e-02_rb,3.5324e-02_rb,2.8924e-02_rb, &
+     &2.1923e-02_rb,1.4064e-02_rb,3.2116e-03_rb/)
+      kao(:, 4, 9, 6) = (/ &
+     &6.6909e-02_rb,6.5234e-02_rb,6.0364e-02_rb,5.3943e-02_rb,4.6443e-02_rb,3.8124e-02_rb, &
+     &2.8947e-02_rb,1.8549e-02_rb,3.8623e-03_rb/)
+      kao(:, 5, 9, 6) = (/ &
+     &8.6078e-02_rb,8.4018e-02_rb,7.7843e-02_rb,6.9506e-02_rb,5.9853e-02_rb,4.9159e-02_rb, &
+     &3.7146e-02_rb,2.3977e-02_rb,4.6095e-03_rb/)
+      kao(:, 1,10, 6) = (/ &
+     &1.0479e-01_rb,9.4804e-02_rb,8.4158e-02_rb,7.2419e-02_rb,5.9897e-02_rb,4.7014e-02_rb, &
+     &3.3513e-02_rb,1.8915e-02_rb,2.3959e-03_rb/)
+      kao(:, 2,10, 6) = (/ &
+     &1.4593e-01_rb,1.3214e-01_rb,1.1705e-01_rb,1.0074e-01_rb,8.3547e-02_rb,6.5542e-02_rb, &
+     &4.6772e-02_rb,2.6375e-02_rb,2.8756e-03_rb/)
+      kao(:, 3,10, 6) = (/ &
+     &1.9678e-01_rb,1.7825e-01_rb,1.5773e-01_rb,1.3590e-01_rb,1.1277e-01_rb,8.8462e-02_rb, &
+     &6.3144e-02_rb,3.5733e-02_rb,3.4719e-03_rb/)
+      kao(:, 4,10, 6) = (/ &
+     &2.5901e-01_rb,2.3451e-01_rb,2.0787e-01_rb,1.7931e-01_rb,1.4891e-01_rb,1.1693e-01_rb, &
+     &8.3230e-02_rb,4.7067e-02_rb,4.3129e-03_rb/)
+      kao(:, 5,10, 6) = (/ &
+     &3.3485e-01_rb,3.0286e-01_rb,2.6808e-01_rb,2.3135e-01_rb,1.9236e-01_rb,1.5087e-01_rb, &
+     &1.0672e-01_rb,6.0498e-02_rb,5.2412e-03_rb/)
+      kao(:, 1,11, 6) = (/ &
+     &1.5729e-01_rb,1.4058e-01_rb,1.2399e-01_rb,1.0596e-01_rb,8.6953e-02_rb,6.7449e-02_rb, &
+     &4.7388e-02_rb,2.6098e-02_rb,2.4928e-03_rb/)
+      kao(:, 2,11, 6) = (/ &
+     &2.1957e-01_rb,1.9641e-01_rb,1.7272e-01_rb,1.4763e-01_rb,1.2135e-01_rb,9.4358e-02_rb, &
+     &6.6246e-02_rb,3.6579e-02_rb,3.1141e-03_rb/)
+      kao(:, 3,11, 6) = (/ &
+     &2.9796e-01_rb,2.6647e-01_rb,2.3432e-01_rb,2.0028e-01_rb,1.6476e-01_rb,1.2810e-01_rb, &
+     &8.9989e-02_rb,4.9741e-02_rb,3.7347e-03_rb/)
+      kao(:, 4,11, 6) = (/ &
+     &3.9483e-01_rb,3.5349e-01_rb,3.1058e-01_rb,2.6565e-01_rb,2.1911e-01_rb,1.7032e-01_rb, &
+     &1.1939e-01_rb,6.5674e-02_rb,4.4794e-03_rb/)
+      kao(:, 5,11, 6) = (/ &
+     &5.1293e-01_rb,4.5889e-01_rb,4.0288e-01_rb,3.4402e-01_rb,2.8339e-01_rb,2.1998e-01_rb, &
+     &1.5383e-01_rb,8.4493e-02_rb,5.3916e-03_rb/)
+      kao(:, 1,12, 6) = (/ &
+     &1.7496e-01_rb,1.5620e-01_rb,1.3720e-01_rb,1.1692e-01_rb,9.5664e-02_rb,7.3896e-02_rb, &
+     &5.1517e-02_rb,2.8131e-02_rb,2.4011e-03_rb/)
+      kao(:, 2,12, 6) = (/ &
+     &2.4535e-01_rb,2.1911e-01_rb,1.9222e-01_rb,1.6394e-01_rb,1.3439e-01_rb,1.0379e-01_rb, &
+     &7.2409e-02_rb,3.9528e-02_rb,2.9367e-03_rb/)
+      kao(:, 3,12, 6) = (/ &
+     &3.3489e-01_rb,2.9916e-01_rb,2.6204e-01_rb,2.2337e-01_rb,1.8311e-01_rb,1.4171e-01_rb, &
+     &9.8967e-02_rb,5.4062e-02_rb,3.5110e-03_rb/)
+      kao(:, 4,12, 6) = (/ &
+     &4.4645e-01_rb,3.9881e-01_rb,3.4940e-01_rb,2.9764e-01_rb,2.4438e-01_rb,1.8899e-01_rb, &
+     &1.3169e-01_rb,7.1745e-02_rb,4.2744e-03_rb/)
+      kao(:, 5,12, 6) = (/ &
+     &5.8440e-01_rb,5.2135e-01_rb,4.5608e-01_rb,3.8804e-01_rb,3.1784e-01_rb,2.4555e-01_rb, &
+     &1.7082e-01_rb,9.2836e-02_rb,5.0546e-03_rb/)
+      kao(:, 1,13, 6) = (/ &
+     &1.5548e-01_rb,1.3934e-01_rb,1.2226e-01_rb,1.0396e-01_rb,8.5068e-02_rb,6.5711e-02_rb, &
+     &4.5702e-02_rb,2.4873e-02_rb,2.0740e-03_rb/)
+      kao(:, 2,13, 6) = (/ &
+     &2.1897e-01_rb,1.9631e-01_rb,1.7240e-01_rb,1.4676e-01_rb,1.2003e-01_rb,9.2645e-02_rb, &
+     &6.4538e-02_rb,3.5191e-02_rb,2.5124e-03_rb/)
+      kao(:, 3,13, 6) = (/ &
+     &3.0093e-01_rb,2.6954e-01_rb,2.3618e-01_rb,2.0119e-01_rb,1.6478e-01_rb,1.2740e-01_rb, &
+     &8.8848e-02_rb,4.8366e-02_rb,3.0385e-03_rb/)
+      kao(:, 4,13, 6) = (/ &
+     &4.0480e-01_rb,3.6240e-01_rb,3.1715e-01_rb,2.6983e-01_rb,2.2076e-01_rb,1.7039e-01_rb, &
+     &1.1847e-01_rb,6.4388e-02_rb,3.6949e-03_rb/)
+      kao(:, 5,13, 6) = (/ &
+     &5.3109e-01_rb,4.7451e-01_rb,4.1461e-01_rb,3.5239e-01_rb,2.8790e-01_rb,2.2202e-01_rb, &
+     &1.5435e-01_rb,8.3628e-02_rb,4.3087e-03_rb/)
+      kao(:, 1, 1, 7) = (/ &
+     &1.3848e-03_rb,7.4265e-03_rb,1.1328e-02_rb,1.5765e-02_rb,2.0617e-02_rb,2.5760e-02_rb, &
+     &3.1394e-02_rb,3.9174e-02_rb,3.7962e-02_rb/)
+      kao(:, 2, 1, 7) = (/ &
+     &1.6671e-03_rb,8.9945e-03_rb,1.3803e-02_rb,1.9211e-02_rb,2.5130e-02_rb,3.1434e-02_rb, &
+     &3.8541e-02_rb,4.9244e-02_rb,4.6325e-02_rb/)
+      kao(:, 3, 1, 7) = (/ &
+     &1.9714e-03_rb,1.0738e-02_rb,1.6621e-02_rb,2.3153e-02_rb,3.0242e-02_rb,3.7827e-02_rb, &
+     &4.6470e-02_rb,6.0286e-02_rb,5.5806e-02_rb/)
+      kao(:, 4, 1, 7) = (/ &
+     &2.3028e-03_rb,1.2683e-02_rb,1.9788e-02_rb,2.7634e-02_rb,3.6042e-02_rb,4.5063e-02_rb, &
+     &5.5400e-02_rb,7.2329e-02_rb,6.6551e-02_rb/)
+      kao(:, 5, 1, 7) = (/ &
+     &2.6597e-03_rb,1.4839e-02_rb,2.3341e-02_rb,3.2680e-02_rb,4.2600e-02_rb,5.3211e-02_rb, &
+     &6.5429e-02_rb,8.5816e-02_rb,7.8751e-02_rb/)
+      kao(:, 1, 2, 7) = (/ &
+     &1.7365e-03_rb,7.5104e-03_rb,1.0855e-02_rb,1.3649e-02_rb,1.6794e-02_rb,2.0487e-02_rb, &
+     &2.4622e-02_rb,2.9785e-02_rb,2.9296e-02_rb/)
+      kao(:, 2, 2, 7) = (/ &
+     &2.1191e-03_rb,9.1841e-03_rb,1.3246e-02_rb,1.6722e-02_rb,2.0613e-02_rb,2.5164e-02_rb, &
+     &3.0319e-02_rb,3.7310e-02_rb,3.6002e-02_rb/)
+      kao(:, 3, 2, 7) = (/ &
+     &2.5333e-03_rb,1.1030e-02_rb,1.5921e-02_rb,2.0206e-02_rb,2.4966e-02_rb,3.0432e-02_rb, &
+     &3.6701e-02_rb,4.5559e-02_rb,4.3603e-02_rb/)
+      kao(:, 4, 2, 7) = (/ &
+     &2.9828e-03_rb,1.3051e-02_rb,1.8932e-02_rb,2.4145e-02_rb,2.9915e-02_rb,3.6454e-02_rb, &
+     &4.3919e-02_rb,5.4674e-02_rb,5.2233e-02_rb/)
+      kao(:, 5, 2, 7) = (/ &
+     &3.4709e-03_rb,1.5291e-02_rb,2.2279e-02_rb,2.8573e-02_rb,3.5520e-02_rb,4.3284e-02_rb, &
+     &5.2127e-02_rb,6.5008e-02_rb,6.1979e-02_rb/)
+      kao(:, 1, 3, 7) = (/ &
+     &2.8092e-03_rb,8.4318e-03_rb,1.1352e-02_rb,1.3672e-02_rb,1.5434e-02_rb,1.6834e-02_rb, &
+     &1.8680e-02_rb,2.1551e-02_rb,2.1437e-02_rb/)
+      kao(:, 2, 3, 7) = (/ &
+     &3.4524e-03_rb,1.0436e-02_rb,1.4060e-02_rb,1.6891e-02_rb,1.9071e-02_rb,2.0847e-02_rb, &
+     &2.3206e-02_rb,2.6955e-02_rb,2.6565e-02_rb/)
+      kao(:, 3, 3, 7) = (/ &
+     &4.1827e-03_rb,1.2653e-02_rb,1.7072e-02_rb,2.0477e-02_rb,2.3160e-02_rb,2.5389e-02_rb, &
+     &2.8361e-02_rb,3.3016e-02_rb,3.2451e-02_rb/)
+      kao(:, 4, 3, 7) = (/ &
+     &4.9958e-03_rb,1.5103e-02_rb,2.0380e-02_rb,2.4512e-02_rb,2.7790e-02_rb,3.0621e-02_rb, &
+     &3.4270e-02_rb,3.9878e-02_rb,3.9158e-02_rb/)
+      kao(:, 5, 3, 7) = (/ &
+     &5.8802e-03_rb,1.7776e-02_rb,2.4055e-02_rb,2.9030e-02_rb,3.2999e-02_rb,3.6516e-02_rb, &
+     &4.0970e-02_rb,4.7651e-02_rb,4.6784e-02_rb/)
+      kao(:, 1, 4, 7) = (/ &
+     &4.5589e-03_rb,1.0079e-02_rb,1.2337e-02_rb,1.3994e-02_rb,1.5249e-02_rb,1.6070e-02_rb, &
+     &1.6321e-02_rb,1.6191e-02_rb,1.5492e-02_rb/)
+      kao(:, 2, 4, 7) = (/ &
+     &5.6834e-03_rb,1.2638e-02_rb,1.5464e-02_rb,1.7583e-02_rb,1.9154e-02_rb,2.0166e-02_rb, &
+     &2.0456e-02_rb,2.0438e-02_rb,1.9456e-02_rb/)
+      kao(:, 3, 4, 7) = (/ &
+     &6.9619e-03_rb,1.5492e-02_rb,1.8969e-02_rb,2.1612e-02_rb,2.3568e-02_rb,2.4770e-02_rb, &
+     &2.5120e-02_rb,2.5223e-02_rb,2.3997e-02_rb/)
+      kao(:, 4, 4, 7) = (/ &
+     &8.4006e-03_rb,1.8644e-02_rb,2.2892e-02_rb,2.6108e-02_rb,2.8487e-02_rb,2.9981e-02_rb, &
+     &3.0457e-02_rb,3.0724e-02_rb,2.9183e-02_rb/)
+      kao(:, 5, 4, 7) = (/ &
+     &1.0053e-02_rb,2.2099e-02_rb,2.7239e-02_rb,3.1080e-02_rb,3.3975e-02_rb,3.5831e-02_rb, &
+     &3.6496e-02_rb,3.6989e-02_rb,3.5086e-02_rb/)
+      kao(:, 1, 5, 7) = (/ &
+     &6.7689e-03_rb,1.1903e-02_rb,1.3648e-02_rb,1.4571e-02_rb,1.5091e-02_rb,1.5249e-02_rb, &
+     &1.4963e-02_rb,1.3941e-02_rb,1.1072e-02_rb/)
+      kao(:, 2, 5, 7) = (/ &
+     &8.5889e-03_rb,1.5080e-02_rb,1.7390e-02_rb,1.8530e-02_rb,1.9222e-02_rb,1.9473e-02_rb, &
+     &1.9084e-02_rb,1.7764e-02_rb,1.3833e-02_rb/)
+      kao(:, 3, 5, 7) = (/ &
+     &1.0679e-02_rb,1.8745e-02_rb,2.1599e-02_rb,2.3039e-02_rb,2.3924e-02_rb,2.4268e-02_rb, &
+     &2.3807e-02_rb,2.2090e-02_rb,1.7335e-02_rb/)
+      kao(:, 4, 5, 7) = (/ &
+     &1.3055e-02_rb,2.2828e-02_rb,2.6303e-02_rb,2.8136e-02_rb,2.9230e-02_rb,2.9685e-02_rb, &
+     &2.9170e-02_rb,2.7046e-02_rb,2.1372e-02_rb/)
+      kao(:, 5, 5, 7) = (/ &
+     &1.5751e-02_rb,2.7271e-02_rb,3.1547e-02_rb,3.3833e-02_rb,3.5204e-02_rb,3.5707e-02_rb, &
+     &3.5181e-02_rb,3.2654e-02_rb,2.6029e-02_rb/)
+      kao(:, 1, 6, 7) = (/ &
+     &9.2094e-03_rb,1.3724e-02_rb,1.5036e-02_rb,1.5371e-02_rb,1.5106e-02_rb,1.4473e-02_rb, &
+     &1.3532e-02_rb,1.2020e-02_rb,8.1670e-03_rb/)
+      kao(:, 2, 6, 7) = (/ &
+     &1.1986e-02_rb,1.7634e-02_rb,1.9365e-02_rb,1.9834e-02_rb,1.9516e-02_rb,1.8750e-02_rb, &
+     &1.7602e-02_rb,1.5593e-02_rb,1.0511e-02_rb/)
+      kao(:, 3, 6, 7) = (/ &
+     &1.5180e-02_rb,2.2067e-02_rb,2.4393e-02_rb,2.4963e-02_rb,2.4596e-02_rb,2.3680e-02_rb, &
+     &2.2274e-02_rb,1.9750e-02_rb,1.3124e-02_rb/)
+      kao(:, 4, 6, 7) = (/ &
+     &1.8879e-02_rb,2.7272e-02_rb,3.0068e-02_rb,3.0821e-02_rb,3.0411e-02_rb,2.9355e-02_rb, &
+     &2.7616e-02_rb,2.4539e-02_rb,1.6137e-02_rb/)
+      kao(:, 5, 6, 7) = (/ &
+     &2.3118e-02_rb,3.3049e-02_rb,3.6382e-02_rb,3.7419e-02_rb,3.7019e-02_rb,3.5790e-02_rb, &
+     &3.3628e-02_rb,2.9915e-02_rb,1.9032e-02_rb/)
+      kao(:, 1, 7, 7) = (/ &
+     &1.3180e-02_rb,1.6672e-02_rb,1.7592e-02_rb,1.7458e-02_rb,1.6513e-02_rb,1.5058e-02_rb, &
+     &1.3095e-02_rb,1.0650e-02_rb,5.4642e-03_rb/)
+      kao(:, 2, 7, 7) = (/ &
+     &1.7434e-02_rb,2.2125e-02_rb,2.3174e-02_rb,2.2835e-02_rb,2.1611e-02_rb,1.9729e-02_rb, &
+     &1.7181e-02_rb,1.4117e-02_rb,7.1375e-03_rb/)
+      kao(:, 3, 7, 7) = (/ &
+     &2.2566e-02_rb,2.8274e-02_rb,2.9519e-02_rb,2.9093e-02_rb,2.7592e-02_rb,2.5177e-02_rb, &
+     &2.2032e-02_rb,1.8185e-02_rb,9.3084e-03_rb/)
+      kao(:, 4, 7, 7) = (/ &
+     &2.8653e-02_rb,3.5321e-02_rb,3.6780e-02_rb,3.6287e-02_rb,3.4434e-02_rb,3.1535e-02_rb, &
+     &2.7705e-02_rb,2.2900e-02_rb,1.1848e-02_rb/)
+      kao(:, 5, 7, 7) = (/ &
+     &3.5765e-02_rb,4.3430e-02_rb,4.5100e-02_rb,4.4435e-02_rb,4.2245e-02_rb,3.8834e-02_rb, &
+     &3.4253e-02_rb,2.8260e-02_rb,1.4688e-02_rb/)
+      kao(:, 1, 8, 7) = (/ &
+     &2.1747e-02_rb,2.4454e-02_rb,2.4292e-02_rb,2.3080e-02_rb,2.1111e-02_rb,1.8543e-02_rb, &
+     &1.5300e-02_rb,1.1054e-02_rb,4.8558e-03_rb/)
+      kao(:, 2, 8, 7) = (/ &
+     &3.0389e-02_rb,3.3327e-02_rb,3.2926e-02_rb,3.1134e-02_rb,2.8533e-02_rb,2.5003e-02_rb, &
+     &2.0402e-02_rb,1.4724e-02_rb,6.1788e-03_rb/)
+      kao(:, 3, 8, 7) = (/ &
+     &4.0290e-02_rb,4.3505e-02_rb,4.2950e-02_rb,4.0676e-02_rb,3.7191e-02_rb,3.2422e-02_rb, &
+     &2.6427e-02_rb,1.9111e-02_rb,7.6799e-03_rb/)
+      kao(:, 4, 8, 7) = (/ &
+     &5.2072e-02_rb,5.5809e-02_rb,5.4895e-02_rb,5.1714e-02_rb,4.6978e-02_rb,4.0907e-02_rb, &
+     &3.3411e-02_rb,2.4362e-02_rb,9.3208e-03_rb/)
+      kao(:, 5, 8, 7) = (/ &
+     &6.6160e-02_rb,7.0258e-02_rb,6.8654e-02_rb,6.4320e-02_rb,5.8240e-02_rb,5.0667e-02_rb, &
+     &4.1561e-02_rb,3.0531e-02_rb,1.1097e-02_rb/)
+      kao(:, 1, 9, 7) = (/ &
+     &6.9879e-02_rb,6.6386e-02_rb,6.1416e-02_rb,5.4862e-02_rb,4.7283e-02_rb,3.9112e-02_rb, &
+     &2.9846e-02_rb,1.9026e-02_rb,5.0281e-03_rb/)
+      kao(:, 2, 9, 7) = (/ &
+     &9.7072e-02_rb,9.2199e-02_rb,8.5540e-02_rb,7.6855e-02_rb,6.6492e-02_rb,5.4707e-02_rb, &
+     &4.1549e-02_rb,2.6366e-02_rb,6.3749e-03_rb/)
+      kao(:, 3, 9, 7) = (/ &
+     &1.3274e-01_rb,1.2639e-01_rb,1.1670e-01_rb,1.0412e-01_rb,8.9576e-02_rb,7.3400e-02_rb, &
+     &5.5548e-02_rb,3.5017e-02_rb,7.9283e-03_rb/)
+      kao(:, 4, 9, 7) = (/ &
+     &1.7725e-01_rb,1.6726e-01_rb,1.5276e-01_rb,1.3606e-01_rb,1.1668e-01_rb,9.5385e-02_rb, &
+     &7.1895e-02_rb,4.5017e-02_rb,9.7700e-03_rb/)
+      kao(:, 5, 9, 7) = (/ &
+     &2.2900e-01_rb,2.1469e-01_rb,1.9562e-01_rb,1.7346e-01_rb,1.4892e-01_rb,1.2126e-01_rb, &
+     &9.1015e-02_rb,5.6621e-02_rb,1.1851e-02_rb/)
+      kao(:, 1,10, 7) = (/ &
+     &2.6110e-01_rb,2.3191e-01_rb,2.0431e-01_rb,1.7643e-01_rb,1.4693e-01_rb,1.1545e-01_rb, &
+     &8.1908e-02_rb,4.6480e-02_rb,5.5448e-03_rb/)
+      kao(:, 2,10, 7) = (/ &
+     &3.6304e-01_rb,3.2305e-01_rb,2.8523e-01_rb,2.4612e-01_rb,2.0468e-01_rb,1.6117e-01_rb, &
+     &1.1489e-01_rb,6.5350e-02_rb,7.0032e-03_rb/)
+      kao(:, 3,10, 7) = (/ &
+     &5.0185e-01_rb,4.4688e-01_rb,3.9417e-01_rb,3.3909e-01_rb,2.8117e-01_rb,2.2056e-01_rb, &
+     &1.5648e-01_rb,8.9037e-02_rb,8.6105e-03_rb/)
+      kao(:, 4,10, 7) = (/ &
+     &6.7448e-01_rb,6.0038e-01_rb,5.2817e-01_rb,4.5305e-01_rb,3.7479e-01_rb,2.9367e-01_rb, &
+     &2.0933e-01_rb,1.1852e-01_rb,1.0215e-02_rb/)
+      kao(:, 5,10, 7) = (/ &
+     &8.8770e-01_rb,7.8961e-01_rb,6.9429e-01_rb,5.9500e-01_rb,4.9158e-01_rb,3.8401e-01_rb, &
+     &2.7292e-01_rb,1.5364e-01_rb,1.2140e-02_rb/)
+      kao(:, 1,11, 7) = (/ &
+     &4.0532e-01_rb,3.5824e-01_rb,3.1239e-01_rb,2.6732e-01_rb,2.2024e-01_rb,1.7123e-01_rb, &
+     &1.1969e-01_rb,6.6094e-02_rb,5.4214e-03_rb/)
+      kao(:, 2,11, 7) = (/ &
+     &5.6606e-01_rb,5.0050e-01_rb,4.3693e-01_rb,3.7301e-01_rb,3.0650e-01_rb,2.3759e-01_rb, &
+     &1.6618e-01_rb,9.1406e-02_rb,6.5476e-03_rb/)
+      kao(:, 3,11, 7) = (/ &
+     &7.7109e-01_rb,6.8230e-01_rb,5.9547e-01_rb,5.0803e-01_rb,4.1719e-01_rb,3.2299e-01_rb, &
+     &2.2593e-01_rb,1.2450e-01_rb,7.8892e-03_rb/)
+      kao(:, 4,11, 7) = (/ &
+     &1.0345e+00_rb,9.1439e-01_rb,7.9746e-01_rb,6.7877e-01_rb,5.5627e-01_rb,4.3053e-01_rb, &
+     &3.0103e-01_rb,1.6533e-01_rb,9.6823e-03_rb/)
+      kao(:, 5,11, 7) = (/ &
+     &1.3462e+00_rb,1.1891e+00_rb,1.0362e+00_rb,8.8065e-01_rb,7.2071e-01_rb,5.5791e-01_rb, &
+     &3.9044e-01_rb,2.1464e-01_rb,1.1736e-02_rb/)
+      kao(:, 1,12, 7) = (/ &
+     &4.6420e-01_rb,4.0988e-01_rb,3.5698e-01_rb,3.0422e-01_rb,2.4918e-01_rb,1.9252e-01_rb, &
+     &1.3423e-01_rb,7.3160e-02_rb,4.7396e-03_rb/)
+      kao(:, 2,12, 7) = (/ &
+     &6.5450e-01_rb,5.7811e-01_rb,5.0333e-01_rb,4.2804e-01_rb,3.4996e-01_rb,2.7019e-01_rb, &
+     &1.8778e-01_rb,1.0212e-01_rb,5.9506e-03_rb/)
+      kao(:, 3,12, 7) = (/ &
+     &8.9348e-01_rb,7.8900e-01_rb,6.8666e-01_rb,5.8272e-01_rb,4.7603e-01_rb,3.6677e-01_rb, &
+     &2.5473e-01_rb,1.3789e-01_rb,7.3179e-03_rb/)
+      kao(:, 4,12, 7) = (/ &
+     &1.1756e+00_rb,1.0374e+00_rb,9.0174e-01_rb,7.6533e-01_rb,6.2509e-01_rb,4.8180e-01_rb, &
+     &3.3511e-01_rb,1.8185e-01_rb,8.9523e-03_rb/)
+      kao(:, 5,12, 7) = (/ &
+     &1.5297e+00_rb,1.3494e+00_rb,1.1729e+00_rb,9.9401e-01_rb,8.1052e-01_rb,6.2387e-01_rb, &
+     &4.3290e-01_rb,2.3433e-01_rb,1.0845e-02_rb/)
+      kao(:, 1,13, 7) = (/ &
+     &4.2167e-01_rb,3.7276e-01_rb,3.2553e-01_rb,2.7726e-01_rb,2.2695e-01_rb,1.7522e-01_rb, &
+     &1.2184e-01_rb,6.6143e-02_rb,4.0030e-03_rb/)
+      kao(:, 2,13, 7) = (/ &
+     &6.0140e-01_rb,5.3188e-01_rb,4.6380e-01_rb,3.9365e-01_rb,3.2184e-01_rb,2.4778e-01_rb, &
+     &1.7190e-01_rb,9.3023e-02_rb,5.1104e-03_rb/)
+      kao(:, 3,13, 7) = (/ &
+     &8.1807e-01_rb,7.2295e-01_rb,6.3004e-01_rb,5.3457e-01_rb,4.3643e-01_rb,3.3605e-01_rb, &
+     &2.3292e-01_rb,1.2549e-01_rb,6.4347e-03_rb/)
+      kao(:, 4,13, 7) = (/ &
+     &1.0778e+00_rb,9.5216e-01_rb,8.2890e-01_rb,7.0211e-01_rb,5.7259e-01_rb,4.4078e-01_rb, &
+     &3.0511e-01_rb,1.6456e-01_rb,7.8490e-03_rb/)
+      kao(:, 5,13, 7) = (/ &
+     &1.3868e+00_rb,1.2246e+00_rb,1.0647e+00_rb,9.0150e-01_rb,7.3547e-01_rb,5.6615e-01_rb, &
+     &3.9191e-01_rb,2.1135e-01_rb,9.6903e-03_rb/)
+      kao(:, 1, 1, 8) = (/ &
+     &3.5696e-03_rb,1.6007e-02_rb,2.9119e-02_rb,4.2110e-02_rb,5.4860e-02_rb,6.8076e-02_rb, &
+     &8.3917e-02_rb,1.0558e-01_rb,1.0534e-01_rb/)
+      kao(:, 2, 1, 8) = (/ &
+     &4.2863e-03_rb,1.9722e-02_rb,3.5791e-02_rb,5.1660e-02_rb,6.7170e-02_rb,8.3493e-02_rb, &
+     &1.0314e-01_rb,1.2980e-01_rb,1.2936e-01_rb/)
+      kao(:, 3, 1, 8) = (/ &
+     &5.0567e-03_rb,2.3939e-02_rb,4.3341e-02_rb,6.2437e-02_rb,8.1028e-02_rb,1.0094e-01_rb, &
+     &1.2485e-01_rb,1.5697e-01_rb,1.5657e-01_rb/)
+      kao(:, 4, 1, 8) = (/ &
+     &5.8865e-03_rb,2.8699e-02_rb,5.1840e-02_rb,7.4548e-02_rb,9.6669e-02_rb,1.2066e-01_rb, &
+     &1.4947e-01_rb,1.8794e-01_rb,1.8748e-01_rb/)
+      kao(:, 5, 1, 8) = (/ &
+     &6.7695e-03_rb,3.4031e-02_rb,6.1358e-02_rb,8.8096e-02_rb,1.1420e-01_rb,1.4289e-01_rb, &
+     &1.7720e-01_rb,2.2237e-01_rb,2.2240e-01_rb/)
+      kao(:, 1, 2, 8) = (/ &
+     &4.7118e-03_rb,1.5877e-02_rb,2.5399e-02_rb,3.5918e-02_rb,4.6457e-02_rb,5.6939e-02_rb, &
+     &6.8068e-02_rb,8.4536e-02_rb,8.5555e-02_rb/)
+      kao(:, 2, 2, 8) = (/ &
+     &5.7108e-03_rb,1.9571e-02_rb,3.1487e-02_rb,4.4433e-02_rb,5.7366e-02_rb,7.0154e-02_rb, &
+     &8.4052e-02_rb,1.0472e-01_rb,1.0570e-01_rb/)
+      kao(:, 3, 2, 8) = (/ &
+     &6.7866e-03_rb,2.3743e-02_rb,3.8403e-02_rb,5.4069e-02_rb,6.9657e-02_rb,8.4997e-02_rb, &
+     &1.0211e-01_rb,1.2762e-01_rb,1.2838e-01_rb/)
+      kao(:, 4, 2, 8) = (/ &
+     &7.9436e-03_rb,2.8460e-02_rb,4.6231e-02_rb,6.4990e-02_rb,8.3598e-02_rb,1.0182e-01_rb, &
+     &1.2260e-01_rb,1.5356e-01_rb,1.5440e-01_rb/)
+      kao(:, 5, 2, 8) = (/ &
+     &9.1873e-03_rb,3.3722e-02_rb,5.4999e-02_rb,7.7194e-02_rb,9.9137e-02_rb,1.2068e-01_rb, &
+     &1.4584e-01_rb,1.8285e-01_rb,1.8375e-01_rb/)
+      kao(:, 1, 3, 8) = (/ &
+     &7.9289e-03_rb,1.8898e-02_rb,2.5653e-02_rb,3.1610e-02_rb,3.8347e-02_rb,4.5822e-02_rb, &
+     &5.3494e-02_rb,6.2174e-02_rb,6.4789e-02_rb/)
+      kao(:, 2, 3, 8) = (/ &
+     &9.7250e-03_rb,2.3378e-02_rb,3.1960e-02_rb,3.9650e-02_rb,4.8157e-02_rb,5.7463e-02_rb, &
+     &6.6987e-02_rb,7.7905e-02_rb,8.1125e-02_rb/)
+      kao(:, 3, 3, 8) = (/ &
+     &1.1690e-02_rb,2.8477e-02_rb,3.9050e-02_rb,4.8735e-02_rb,5.9251e-02_rb,7.0590e-02_rb, &
+     &8.2118e-02_rb,9.5596e-02_rb,9.9562e-02_rb/)
+      kao(:, 4, 3, 8) = (/ &
+     &1.3819e-02_rb,3.4230e-02_rb,4.7053e-02_rb,5.8936e-02_rb,7.1761e-02_rb,8.5391e-02_rb, &
+     &9.9148e-02_rb,1.1547e-01_rb,1.2059e-01_rb/)
+      kao(:, 5, 3, 8) = (/ &
+     &1.6126e-02_rb,4.0610e-02_rb,5.5935e-02_rb,7.0350e-02_rb,8.5758e-02_rb,1.0193e-01_rb, &
+     &1.1815e-01_rb,1.3794e-01_rb,1.4428e-01_rb/)
+      kao(:, 1, 4, 8) = (/ &
+     &1.3217e-02_rb,2.3479e-02_rb,2.9539e-02_rb,3.3751e-02_rb,3.6721e-02_rb,3.9161e-02_rb, &
+     &4.2339e-02_rb,4.7025e-02_rb,4.7847e-02_rb/)
+      kao(:, 2, 4, 8) = (/ &
+     &1.6447e-02_rb,2.9417e-02_rb,3.7093e-02_rb,4.2546e-02_rb,4.6456e-02_rb,4.9765e-02_rb, &
+     &5.3922e-02_rb,5.9724e-02_rb,6.0703e-02_rb/)
+      kao(:, 3, 4, 8) = (/ &
+     &2.0055e-02_rb,3.6163e-02_rb,4.5727e-02_rb,5.2541e-02_rb,5.7472e-02_rb,6.1844e-02_rb, &
+     &6.7058e-02_rb,7.4090e-02_rb,7.5241e-02_rb/)
+      kao(:, 4, 4, 8) = (/ &
+     &2.4006e-02_rb,4.3785e-02_rb,5.5469e-02_rb,6.3755e-02_rb,6.9920e-02_rb,7.5527e-02_rb, &
+     &8.2000e-02_rb,9.0387e-02_rb,9.1968e-02_rb/)
+      kao(:, 5, 4, 8) = (/ &
+     &2.8301e-02_rb,5.2295e-02_rb,6.6272e-02_rb,7.6263e-02_rb,8.3883e-02_rb,9.0941e-02_rb, &
+     &9.8884e-02_rb,1.0876e-01_rb,1.1102e-01_rb/)
+      kao(:, 1, 5, 8) = (/ &
+     &1.9932e-02_rb,2.8909e-02_rb,3.3929e-02_rb,3.6963e-02_rb,3.8599e-02_rb,3.9090e-02_rb, &
+     &3.8100e-02_rb,3.6647e-02_rb,3.4570e-02_rb/)
+      kao(:, 2, 5, 8) = (/ &
+     &2.5221e-02_rb,3.6867e-02_rb,4.3184e-02_rb,4.7147e-02_rb,4.9394e-02_rb,5.0060e-02_rb, &
+     &4.9016e-02_rb,4.7379e-02_rb,4.4959e-02_rb/)
+      kao(:, 3, 5, 8) = (/ &
+     &3.1232e-02_rb,4.5824e-02_rb,5.3773e-02_rb,5.8918e-02_rb,6.1826e-02_rb,6.2626e-02_rb, &
+     &6.1399e-02_rb,5.9643e-02_rb,5.6358e-02_rb/)
+      kao(:, 4, 5, 8) = (/ &
+     &3.7911e-02_rb,5.5890e-02_rb,6.5835e-02_rb,7.2317e-02_rb,7.5820e-02_rb,7.6769e-02_rb, &
+     &7.5408e-02_rb,7.3611e-02_rb,6.9498e-02_rb/)
+      kao(:, 5, 5, 8) = (/ &
+     &4.5225e-02_rb,6.7203e-02_rb,7.9322e-02_rb,8.7058e-02_rb,9.1394e-02_rb,9.2728e-02_rb, &
+     &9.1290e-02_rb,8.9467e-02_rb,8.4545e-02_rb/)
+      kao(:, 1, 6, 8) = (/ &
+     &2.7668e-02_rb,3.4842e-02_rb,3.8147e-02_rb,3.9719e-02_rb,4.0056e-02_rb,3.9073e-02_rb, &
+     &3.6625e-02_rb,3.2055e-02_rb,2.4026e-02_rb/)
+      kao(:, 2, 6, 8) = (/ &
+     &3.5525e-02_rb,4.5073e-02_rb,4.9553e-02_rb,5.1630e-02_rb,5.2026e-02_rb,5.0818e-02_rb, &
+     &4.7728e-02_rb,4.1935e-02_rb,3.1627e-02_rb/)
+      kao(:, 3, 6, 8) = (/ &
+     &4.4689e-02_rb,5.6776e-02_rb,6.2560e-02_rb,6.5413e-02_rb,6.6041e-02_rb,6.4568e-02_rb, &
+     &6.0721e-02_rb,5.3252e-02_rb,4.0421e-02_rb/)
+      kao(:, 4, 6, 8) = (/ &
+     &5.5122e-02_rb,7.0187e-02_rb,7.7371e-02_rb,8.1166e-02_rb,8.2060e-02_rb,8.0200e-02_rb, &
+     &7.5289e-02_rb,6.6107e-02_rb,5.0711e-02_rb/)
+      kao(:, 5, 6, 8) = (/ &
+     &6.6674e-02_rb,8.5247e-02_rb,9.4184e-02_rb,9.8741e-02_rb,9.9891e-02_rb,9.7702e-02_rb, &
+     &9.1660e-02_rb,8.0784e-02_rb,6.3321e-02_rb/)
+      kao(:, 1, 7, 8) = (/ &
+     &4.0056e-02_rb,4.4898e-02_rb,4.5971e-02_rb,4.5352e-02_rb,4.3659e-02_rb,4.0747e-02_rb, &
+     &3.6554e-02_rb,3.0205e-02_rb,1.8196e-02_rb/)
+      kao(:, 2, 7, 8) = (/ &
+     &5.2185e-02_rb,5.8633e-02_rb,6.0480e-02_rb,6.0085e-02_rb,5.7874e-02_rb,5.4080e-02_rb, &
+     &4.8546e-02_rb,4.0072e-02_rb,2.4060e-02_rb/)
+      kao(:, 3, 7, 8) = (/ &
+     &6.6434e-02_rb,7.5122e-02_rb,7.7544e-02_rb,7.7216e-02_rb,7.4584e-02_rb,6.9858e-02_rb, &
+     &6.2703e-02_rb,5.1788e-02_rb,3.0507e-02_rb/)
+      kao(:, 4, 7, 8) = (/ &
+     &8.3239e-02_rb,9.4089e-02_rb,9.7312e-02_rb,9.7000e-02_rb,9.3885e-02_rb,8.8076e-02_rb, &
+     &7.9042e-02_rb,6.5047e-02_rb,3.6382e-02_rb/)
+      kao(:, 5, 7, 8) = (/ &
+     &1.0221e-01_rb,1.1561e-01_rb,1.1992e-01_rb,1.1954e-01_rb,1.1572e-01_rb,1.0845e-01_rb, &
+     &9.7278e-02_rb,8.0126e-02_rb,4.5426e-02_rb/)
+      kao(:, 1, 8, 8) = (/ &
+     &6.9306e-02_rb,6.9494e-02_rb,6.7600e-02_rb,6.3267e-02_rb,5.7322e-02_rb,5.0091e-02_rb, &
+     &4.1741e-02_rb,3.1433e-02_rb,1.2053e-02_rb/)
+      kao(:, 2, 8, 8) = (/ &
+     &9.1357e-02_rb,9.2237e-02_rb,8.9335e-02_rb,8.3857e-02_rb,7.6444e-02_rb,6.7451e-02_rb, &
+     &5.6474e-02_rb,4.2659e-02_rb,1.6127e-02_rb/)
+      kao(:, 3, 8, 8) = (/ &
+     &1.1801e-01_rb,1.1955e-01_rb,1.1588e-01_rb,1.0908e-01_rb,9.9881e-02_rb,8.8243e-02_rb, &
+     &7.4146e-02_rb,5.6165e-02_rb,2.1600e-02_rb/)
+      kao(:, 4, 8, 8) = (/ &
+     &1.4950e-01_rb,1.5197e-01_rb,1.4749e-01_rb,1.3894e-01_rb,1.2736e-01_rb,1.1271e-01_rb, &
+     &9.4953e-02_rb,7.1880e-02_rb,2.7972e-02_rb/)
+      kao(:, 5, 8, 8) = (/ &
+     &1.8646e-01_rb,1.8942e-01_rb,1.8392e-01_rb,1.7346e-01_rb,1.5924e-01_rb,1.4113e-01_rb, &
+     &1.1856e-01_rb,8.9580e-02_rb,3.5566e-02_rb/)
+      kao(:, 1, 9, 8) = (/ &
+     &2.2096e-01_rb,1.9931e-01_rb,1.8126e-01_rb,1.6106e-01_rb,1.3834e-01_rb,1.1283e-01_rb, &
+     &8.4790e-02_rb,5.3465e-02_rb,1.3124e-02_rb/)
+      kao(:, 2, 9, 8) = (/ &
+     &3.0111e-01_rb,2.7269e-01_rb,2.4731e-01_rb,2.1828e-01_rb,1.8616e-01_rb,1.5202e-01_rb, &
+     &1.1457e-01_rb,7.2434e-02_rb,1.6890e-02_rb/)
+      kao(:, 3, 9, 8) = (/ &
+     &3.9547e-01_rb,3.5811e-01_rb,3.2380e-01_rb,2.8636e-01_rb,2.4465e-01_rb,1.9968e-01_rb, &
+     &1.5075e-01_rb,9.6319e-02_rb,2.1030e-02_rb/)
+      kao(:, 4, 9, 8) = (/ &
+     &5.0622e-01_rb,4.6008e-01_rb,4.1701e-01_rb,3.6806e-01_rb,3.1477e-01_rb,2.5740e-01_rb, &
+     &1.9504e-01_rb,1.2517e-01_rb,2.5567e-02_rb/)
+      kao(:, 5, 9, 8) = (/ &
+     &6.3970e-01_rb,5.8282e-01_rb,5.2753e-01_rb,4.6589e-01_rb,3.9821e-01_rb,3.2594e-01_rb, &
+     &2.4744e-01_rb,1.5892e-01_rb,3.0707e-02_rb/)
+      kao(:, 1,10, 8) = (/ &
+     &7.9609e-01_rb,6.9877e-01_rb,6.0631e-01_rb,5.1323e-01_rb,4.2176e-01_rb,3.3040e-01_rb, &
+     &2.3557e-01_rb,1.3340e-01_rb,1.8364e-02_rb/)
+      kao(:, 2,10, 8) = (/ &
+     &1.1185e+00_rb,9.8179e-01_rb,8.5163e-01_rb,7.2111e-01_rb,5.9292e-01_rb,4.6368e-01_rb, &
+     &3.2777e-01_rb,1.8494e-01_rb,2.2731e-02_rb/)
+      kao(:, 3,10, 8) = (/ &
+     &1.4977e+00_rb,1.3152e+00_rb,1.1422e+00_rb,9.6927e-01_rb,7.9815e-01_rb,6.2269e-01_rb, &
+     &4.4054e-01_rb,2.4719e-01_rb,2.7714e-02_rb/)
+      kao(:, 4,10, 8) = (/ &
+     &1.9588e+00_rb,1.7209e+00_rb,1.4963e+00_rb,1.2699e+00_rb,1.0440e+00_rb,8.1231e-01_rb, &
+     &5.7215e-01_rb,3.2165e-01_rb,3.3541e-02_rb/)
+      kao(:, 5,10, 8) = (/ &
+     &2.4948e+00_rb,2.1931e+00_rb,1.9066e+00_rb,1.6194e+00_rb,1.3305e+00_rb,1.0363e+00_rb, &
+     &7.3187e-01_rb,4.1258e-01_rb,3.9461e-02_rb/)
+      kao(:, 1,11, 8) = (/ &
+     &1.1786e+00_rb,1.0326e+00_rb,8.9194e-01_rb,7.5040e-01_rb,6.1100e-01_rb,4.7311e-01_rb, &
+     &3.3100e-01_rb,1.8184e-01_rb,1.9912e-02_rb/)
+      kao(:, 2,11, 8) = (/ &
+     &1.6577e+00_rb,1.4527e+00_rb,1.2557e+00_rb,1.0583e+00_rb,8.6330e-01_rb,6.6758e-01_rb, &
+     &4.6659e-01_rb,2.5585e-01_rb,2.4574e-02_rb/)
+      kao(:, 3,11, 8) = (/ &
+     &2.2529e+00_rb,1.9745e+00_rb,1.7078e+00_rb,1.4395e+00_rb,1.1743e+00_rb,9.0668e-01_rb, &
+     &6.3142e-01_rb,3.4477e-01_rb,2.9771e-02_rb/)
+      kao(:, 4,11, 8) = (/ &
+     &2.9660e+00_rb,2.6012e+00_rb,2.2499e+00_rb,1.8975e+00_rb,1.5469e+00_rb,1.1941e+00_rb, &
+     &8.2956e-01_rb,4.5247e-01_rb,3.5340e-02_rb/)
+      kao(:, 5,11, 8) = (/ &
+     &3.8252e+00_rb,3.3560e+00_rb,2.9025e+00_rb,2.4493e+00_rb,1.9962e+00_rb,1.5364e+00_rb, &
+     &1.0662e+00_rb,5.8207e-01_rb,4.0740e-02_rb/)
+      kao(:, 1,12, 8) = (/ &
+     &1.3334e+00_rb,1.1683e+00_rb,1.0080e+00_rb,8.4695e-01_rb,6.8881e-01_rb,5.3043e-01_rb, &
+     &3.6715e-01_rb,1.9749e-01_rb,1.8810e-02_rb/)
+      kao(:, 2,12, 8) = (/ &
+     &1.8510e+00_rb,1.6221e+00_rb,1.4015e+00_rb,1.1795e+00_rb,9.6045e-01_rb,7.4002e-01_rb, &
+     &5.1281e-01_rb,2.7717e-01_rb,2.2865e-02_rb/)
+      kao(:, 3,12, 8) = (/ &
+     &2.5252e+00_rb,2.2140e+00_rb,1.9140e+00_rb,1.6128e+00_rb,1.3137e+00_rb,1.0115e+00_rb, &
+     &6.9957e-01_rb,3.7776e-01_rb,2.7421e-02_rb/)
+      kao(:, 4,12, 8) = (/ &
+     &3.3724e+00_rb,2.9581e+00_rb,2.5564e+00_rb,2.1530e+00_rb,1.7520e+00_rb,1.3471e+00_rb, &
+     &9.2947e-01_rb,5.0112e-01_rb,3.2393e-02_rb/)
+      kao(:, 5,12, 8) = (/ &
+     &4.3792e+00_rb,3.8422e+00_rb,3.3210e+00_rb,2.7983e+00_rb,2.2755e+00_rb,1.7461e+00_rb, &
+     &1.2059e+00_rb,6.4752e-01_rb,3.7070e-02_rb/)
+      kao(:, 1,13, 8) = (/ &
+     &1.2116e+00_rb,1.0627e+00_rb,9.1758e-01_rb,7.7277e-01_rb,6.2996e-01_rb,4.8487e-01_rb, &
+     &3.3536e-01_rb,1.7964e-01_rb,1.5468e-02_rb/)
+      kao(:, 2,13, 8) = (/ &
+     &1.6818e+00_rb,1.4755e+00_rb,1.2746e+00_rb,1.0748e+00_rb,8.7634e-01_rb,6.7377e-01_rb, &
+     &4.6518e-01_rb,2.4901e-01_rb,1.8709e-02_rb/)
+      kao(:, 3,13, 8) = (/ &
+     &2.2861e+00_rb,2.0071e+00_rb,1.7358e+00_rb,1.4644e+00_rb,1.1940e+00_rb,9.1837e-01_rb, &
+     &6.3513e-01_rb,3.4226e-01_rb,2.2464e-02_rb/)
+      kao(:, 4,13, 8) = (/ &
+     &3.0747e+00_rb,2.7003e+00_rb,2.3365e+00_rb,1.9712e+00_rb,1.6050e+00_rb,1.2324e+00_rb, &
+     &8.5082e-01_rb,4.5761e-01_rb,2.6279e-02_rb/)
+      kao(:, 5,13, 8) = (/ &
+     &4.0462e+00_rb,3.5547e+00_rb,3.0752e+00_rb,2.5948e+00_rb,2.1107e+00_rb,1.6188e+00_rb, &
+     &1.1159e+00_rb,5.9825e-01_rb,3.0261e-02_rb/)
+      kao(:, 1, 1, 9) = (/ &
+     &7.9433e-03_rb,4.9696e-02_rb,8.9399e-02_rb,1.2891e-01_rb,1.7031e-01_rb,2.1327e-01_rb, &
+     &2.5635e-01_rb,2.9834e-01_rb,3.4005e-01_rb/)
+      kao(:, 2, 1, 9) = (/ &
+     &9.5773e-03_rb,6.0610e-02_rb,1.0882e-01_rb,1.5730e-01_rb,2.0827e-01_rb,2.6089e-01_rb, &
+     &3.1374e-01_rb,3.6559e-01_rb,4.1584e-01_rb/)
+      kao(:, 3, 1, 9) = (/ &
+     &1.1355e-02_rb,7.2723e-02_rb,1.3048e-01_rb,1.8917e-01_rb,2.5096e-01_rb,3.1435e-01_rb, &
+     &3.7828e-01_rb,4.4211e-01_rb,5.0107e-01_rb/)
+      kao(:, 4, 1, 9) = (/ &
+     &1.3277e-02_rb,8.6204e-02_rb,1.5483e-01_rb,2.2520e-01_rb,2.9933e-01_rb,3.7480e-01_rb, &
+     &4.5117e-01_rb,5.2865e-01_rb,5.9762e-01_rb/)
+      kao(:, 5, 1, 9) = (/ &
+     &1.5326e-02_rb,1.0116e-01_rb,1.8188e-01_rb,2.6559e-01_rb,3.5380e-01_rb,4.4327e-01_rb, &
+     &5.3402e-01_rb,6.2664e-01_rb,7.0640e-01_rb/)
+      kao(:, 1, 2, 9) = (/ &
+     &1.1776e-02_rb,4.7878e-02_rb,8.4972e-02_rb,1.1878e-01_rb,1.5366e-01_rb,1.9061e-01_rb, &
+     &2.3033e-01_rb,2.7211e-01_rb,3.0314e-01_rb/)
+      kao(:, 2, 2, 9) = (/ &
+     &1.4294e-02_rb,5.8956e-02_rb,1.0416e-01_rb,1.4559e-01_rb,1.8871e-01_rb,2.3457e-01_rb, &
+     &2.8358e-01_rb,3.3549e-01_rb,3.7290e-01_rb/)
+      kao(:, 3, 2, 9) = (/ &
+     &1.7066e-02_rb,7.1345e-02_rb,1.2565e-01_rb,1.7589e-01_rb,2.2857e-01_rb,2.8471e-01_rb, &
+     &3.4402e-01_rb,4.0658e-01_rb,4.5272e-01_rb/)
+      kao(:, 4, 2, 9) = (/ &
+     &2.0089e-02_rb,8.5201e-02_rb,1.4972e-01_rb,2.1022e-01_rb,2.7384e-01_rb,3.4170e-01_rb, &
+     &4.1272e-01_rb,4.8704e-01_rb,5.4350e-01_rb/)
+      kao(:, 5, 2, 9) = (/ &
+     &2.3307e-02_rb,1.0059e-01_rb,1.7602e-01_rb,2.4834e-01_rb,3.2442e-01_rb,4.0570e-01_rb, &
+     &4.8998e-01_rb,5.7844e-01_rb,6.4523e-01_rb/)
+      kao(:, 1, 3, 9) = (/ &
+     &2.2348e-02_rb,5.0240e-02_rb,8.0496e-02_rb,1.1072e-01_rb,1.3814e-01_rb,1.6488e-01_rb, &
+     &1.9401e-01_rb,2.2881e-01_rb,2.5470e-01_rb/)
+      kao(:, 2, 3, 9) = (/ &
+     &2.7442e-02_rb,6.2748e-02_rb,1.0008e-01_rb,1.3702e-01_rb,1.7047e-01_rb,2.0379e-01_rb, &
+     &2.4015e-01_rb,2.8371e-01_rb,3.1563e-01_rb/)
+      kao(:, 3, 3, 9) = (/ &
+     &3.3066e-02_rb,7.6711e-02_rb,1.2229e-01_rb,1.6700e-01_rb,2.0740e-01_rb,2.4849e-01_rb, &
+     &2.9339e-01_rb,3.4685e-01_rb,3.8604e-01_rb/)
+      kao(:, 4, 3, 9) = (/ &
+     &3.9269e-02_rb,9.2366e-02_rb,1.4749e-01_rb,2.0103e-01_rb,2.4924e-01_rb,2.9944e-01_rb, &
+     &3.5443e-01_rb,4.1958e-01_rb,4.6663e-01_rb/)
+      kao(:, 5, 3, 9) = (/ &
+     &4.5933e-02_rb,1.0972e-01_rb,1.7562e-01_rb,2.3869e-01_rb,2.9592e-01_rb,3.5671e-01_rb, &
+     &4.2354e-01_rb,5.0205e-01_rb,5.5762e-01_rb/)
+      kao(:, 1, 4, 9) = (/ &
+     &4.2106e-02_rb,6.4369e-02_rb,8.4555e-02_rb,1.0542e-01_rb,1.2690e-01_rb,1.4750e-01_rb, &
+     &1.6487e-01_rb,1.8576e-01_rb,2.0651e-01_rb/)
+      kao(:, 2, 4, 9) = (/ &
+     &5.2576e-02_rb,8.1026e-02_rb,1.0683e-01_rb,1.3280e-01_rb,1.5950e-01_rb,1.8491e-01_rb, &
+     &2.0655e-01_rb,2.3307e-01_rb,2.5966e-01_rb/)
+      kao(:, 3, 4, 9) = (/ &
+     &6.4079e-02_rb,9.9622e-02_rb,1.3194e-01_rb,1.6392e-01_rb,1.9672e-01_rb,2.2769e-01_rb, &
+     &2.5451e-01_rb,2.8781e-01_rb,3.2142e-01_rb/)
+      kao(:, 4, 4, 9) = (/ &
+     &7.6781e-02_rb,1.2036e-01_rb,1.6040e-01_rb,1.9955e-01_rb,2.3909e-01_rb,2.7584e-01_rb, &
+     &3.0872e-01_rb,3.5017e-01_rb,3.9149e-01_rb/)
+      kao(:, 5, 4, 9) = (/ &
+     &9.0605e-02_rb,1.4314e-01_rb,1.9223e-01_rb,2.3943e-01_rb,2.8645e-01_rb,3.2911e-01_rb, &
+     &3.6945e-01_rb,4.2071e-01_rb,4.7061e-01_rb/)
+      kao(:, 1, 5, 9) = (/ &
+     &7.1850e-02_rb,8.9617e-02_rb,1.0358e-01_rb,1.1417e-01_rb,1.2410e-01_rb,1.3445e-01_rb, &
+     &1.4500e-01_rb,1.5289e-01_rb,1.6393e-01_rb/)
+      kao(:, 2, 5, 9) = (/ &
+     &9.1160e-02_rb,1.1411e-01_rb,1.3218e-01_rb,1.4610e-01_rb,1.5890e-01_rb,1.7194e-01_rb, &
+     &1.8487e-01_rb,1.9440e-01_rb,2.0899e-01_rb/)
+      kao(:, 3, 5, 9) = (/ &
+     &1.1266e-01_rb,1.4163e-01_rb,1.6452e-01_rb,1.8216e-01_rb,1.9856e-01_rb,2.1504e-01_rb, &
+     &2.3093e-01_rb,2.4255e-01_rb,2.6179e-01_rb/)
+      kao(:, 4, 5, 9) = (/ &
+     &1.3642e-01_rb,1.7249e-01_rb,2.0078e-01_rb,2.2297e-01_rb,2.4396e-01_rb,2.6433e-01_rb, &
+     &2.8347e-01_rb,2.9753e-01_rb,3.2213e-01_rb/)
+      kao(:, 5, 5, 9) = (/ &
+     &1.6239e-01_rb,2.0660e-01_rb,2.4114e-01_rb,2.6894e-01_rb,2.9484e-01_rb,3.1958e-01_rb, &
+     &3.4207e-01_rb,3.5958e-01_rb,3.9095e-01_rb/)
+      kao(:, 1, 6, 9) = (/ &
+     &1.1140e-01_rb,1.2144e-01_rb,1.3218e-01_rb,1.3718e-01_rb,1.3653e-01_rb,1.3402e-01_rb, &
+     &1.3174e-01_rb,1.2946e-01_rb,1.2677e-01_rb/)
+      kao(:, 2, 6, 9) = (/ &
+     &1.4420e-01_rb,1.5827e-01_rb,1.7119e-01_rb,1.7776e-01_rb,1.7742e-01_rb,1.7454e-01_rb, &
+     &1.7134e-01_rb,1.6760e-01_rb,1.6399e-01_rb/)
+      kao(:, 3, 6, 9) = (/ &
+     &1.8124e-01_rb,2.0002e-01_rb,2.1589e-01_rb,2.2389e-01_rb,2.2423e-01_rb,2.2127e-01_rb, &
+     &2.1711e-01_rb,2.1204e-01_rb,2.0793e-01_rb/)
+      kao(:, 4, 6, 9) = (/ &
+     &2.2248e-01_rb,2.4636e-01_rb,2.6609e-01_rb,2.7594e-01_rb,2.7715e-01_rb,2.7479e-01_rb, &
+     &2.7017e-01_rb,2.6283e-01_rb,2.5856e-01_rb/)
+      kao(:, 5, 6, 9) = (/ &
+     &2.6774e-01_rb,2.9748e-01_rb,3.2183e-01_rb,3.3450e-01_rb,3.3675e-01_rb,3.3499e-01_rb, &
+     &3.3006e-01_rb,3.2020e-01_rb,3.1680e-01_rb/)
+      kao(:, 1, 7, 9) = (/ &
+     &1.7732e-01_rb,1.7534e-01_rb,1.7803e-01_rb,1.7714e-01_rb,1.7022e-01_rb,1.5702e-01_rb, &
+     &1.3821e-01_rb,1.1726e-01_rb,9.2624e-02_rb/)
+      kao(:, 2, 7, 9) = (/ &
+     &2.3477e-01_rb,2.3316e-01_rb,2.3664e-01_rb,2.3403e-01_rb,2.2497e-01_rb,2.0771e-01_rb, &
+     &1.8285e-01_rb,1.5521e-01_rb,1.2312e-01_rb/)
+      kao(:, 3, 7, 9) = (/ &
+     &3.0054e-01_rb,2.9947e-01_rb,3.0371e-01_rb,2.9989e-01_rb,2.8797e-01_rb,2.6596e-01_rb, &
+     &2.3476e-01_rb,1.9945e-01_rb,1.5929e-01_rb/)
+      kao(:, 4, 7, 9) = (/ &
+     &3.7459e-01_rb,3.7495e-01_rb,3.7937e-01_rb,3.7465e-01_rb,3.5915e-01_rb,3.3235e-01_rb, &
+     &2.9471e-01_rb,2.5108e-01_rb,2.0370e-01_rb/)
+      kao(:, 5, 7, 9) = (/ &
+     &4.5653e-01_rb,4.5857e-01_rb,4.6346e-01_rb,4.5781e-01_rb,4.3887e-01_rb,4.0748e-01_rb, &
+     &3.6268e-01_rb,3.0976e-01_rb,2.5195e-01_rb/)
+      kao(:, 1, 8, 9) = (/ &
+     &3.3219e-01_rb,3.0467e-01_rb,2.8618e-01_rb,2.6721e-01_rb,2.4601e-01_rb,2.1811e-01_rb, &
+     &1.8145e-01_rb,1.3269e-01_rb,6.6401e-02_rb/)
+      kao(:, 2, 8, 9) = (/ &
+     &4.4950e-01_rb,4.1374e-01_rb,3.8999e-01_rb,3.6461e-01_rb,3.3388e-01_rb,2.9490e-01_rb, &
+     &2.4508e-01_rb,1.7935e-01_rb,9.0026e-02_rb/)
+      kao(:, 3, 8, 9) = (/ &
+     &5.8717e-01_rb,5.4166e-01_rb,5.1100e-01_rb,4.7736e-01_rb,4.3579e-01_rb,3.8461e-01_rb, &
+     &3.1925e-01_rb,2.3358e-01_rb,1.1833e-01_rb/)
+      kao(:, 4, 8, 9) = (/ &
+     &7.4406e-01_rb,6.8778e-01_rb,6.4996e-01_rb,6.0622e-01_rb,5.5241e-01_rb,4.8728e-01_rb, &
+     &4.0419e-01_rb,2.9657e-01_rb,1.5189e-01_rb/)
+      kao(:, 5, 8, 9) = (/ &
+     &9.1907e-01_rb,8.5125e-01_rb,8.0569e-01_rb,7.5012e-01_rb,6.8369e-01_rb,6.0185e-01_rb, &
+     &4.9995e-01_rb,3.6832e-01_rb,1.9101e-01_rb/)
+      kao(:, 1, 9, 9) = (/ &
+     &1.1485e+00_rb,1.0089e+00_rb,8.7880e-01_rb,7.5762e-01_rb,6.3622e-01_rb,5.1377e-01_rb, &
+     &3.9068e-01_rb,2.5323e-01_rb,5.4057e-02_rb/)
+      kao(:, 2, 9, 9) = (/ &
+     &1.5919e+00_rb,1.3983e+00_rb,1.2193e+00_rb,1.0539e+00_rb,8.8759e-01_rb,7.1827e-01_rb, &
+     &5.4603e-01_rb,3.5236e-01_rb,7.3567e-02_rb/)
+      kao(:, 3, 9, 9) = (/ &
+     &2.1202e+00_rb,1.8629e+00_rb,1.6282e+00_rb,1.4084e+00_rb,1.1875e+00_rb,9.6283e-01_rb, &
+     &7.2992e-01_rb,4.6911e-01_rb,9.7269e-02_rb/)
+      kao(:, 4, 9, 9) = (/ &
+     &2.7354e+00_rb,2.4050e+00_rb,2.1038e+00_rb,1.8214e+00_rb,1.5366e+00_rb,1.2471e+00_rb, &
+     &9.4177e-01_rb,6.0391e-01_rb,1.2338e-01_rb/)
+      kao(:, 5, 9, 9) = (/ &
+     &3.4317e+00_rb,3.0176e+00_rb,2.6421e+00_rb,2.2877e+00_rb,1.9310e+00_rb,1.5677e+00_rb, &
+     &1.1814e+00_rb,7.5635e-01_rb,1.5353e-01_rb/)
+      kao(:, 1,10, 9) = (/ &
+     &4.4436e+00_rb,3.8882e+00_rb,3.3348e+00_rb,2.7888e+00_rb,2.2477e+00_rb,1.7134e+00_rb, &
+     &1.1871e+00_rb,6.5782e-01_rb,7.0663e-02_rb/)
+      kao(:, 2,10, 9) = (/ &
+     &6.2997e+00_rb,5.5124e+00_rb,4.7288e+00_rb,3.9559e+00_rb,3.1897e+00_rb,2.4334e+00_rb, &
+     &1.6915e+00_rb,9.3954e-01_rb,8.7418e-02_rb/)
+      kao(:, 3,10, 9) = (/ &
+     &8.5619e+00_rb,7.4925e+00_rb,6.4279e+00_rb,5.3771e+00_rb,4.3365e+00_rb,3.3136e+00_rb, &
+     &2.3060e+00_rb,1.2843e+00_rb,1.0436e-01_rb/)
+      kao(:, 4,10, 9) = (/ &
+     &1.1219e+01_rb,9.8180e+00_rb,8.4228e+00_rb,7.0486e+00_rb,5.6898e+00_rb,4.3532e+00_rb, &
+     &3.0319e+00_rb,1.6916e+00_rb,1.2593e-01_rb/)
+      kao(:, 5,10, 9) = (/ &
+     &1.4295e+01_rb,1.2510e+01_rb,1.0734e+01_rb,8.9819e+00_rb,7.2530e+00_rb,5.5514e+00_rb, &
+     &3.8643e+00_rb,2.1564e+00_rb,1.5004e-01_rb/)
+      kao(:, 1,11, 9) = (/ &
+     &7.0050e+00_rb,6.1296e+00_rb,5.2549e+00_rb,4.3868e+00_rb,3.5242e+00_rb,2.6669e+00_rb, &
+     &1.8245e+00_rb,9.8168e-01_rb,8.5745e-02_rb/)
+      kao(:, 2,11, 9) = (/ &
+     &9.9554e+00_rb,8.7114e+00_rb,7.4687e+00_rb,6.2351e+00_rb,5.0098e+00_rb,3.7942e+00_rb, &
+     &2.5980e+00_rb,1.4001e+00_rb,1.0478e-01_rb/)
+      kao(:, 3,11, 9) = (/ &
+     &1.3533e+01_rb,1.1842e+01_rb,1.0152e+01_rb,8.4771e+00_rb,6.8123e+00_rb,5.1640e+00_rb, &
+     &3.5405e+00_rb,1.9111e+00_rb,1.2573e-01_rb/)
+      kao(:, 4,11, 9) = (/ &
+     &1.7771e+01_rb,1.5551e+01_rb,1.3333e+01_rb,1.1134e+01_rb,8.9512e+00_rb,6.7876e+00_rb, &
+     &4.6577e+00_rb,2.5172e+00_rb,1.4855e-01_rb/)
+      kao(:, 5,11, 9) = (/ &
+     &2.2680e+01_rb,1.9846e+01_rb,1.7019e+01_rb,1.4214e+01_rb,1.1430e+01_rb,8.6745e+00_rb, &
+     &5.9538e+00_rb,3.2175e+00_rb,1.7203e-01_rb/)
+      kao(:, 1,12, 9) = (/ &
+     &8.1047e+00_rb,7.0920e+00_rb,6.0802e+00_rb,5.0761e+00_rb,4.0767e+00_rb,3.0841e+00_rb, &
+     &2.1058e+00_rb,1.1266e+00_rb,9.0852e-02_rb/)
+      kao(:, 2,12, 9) = (/ &
+     &1.1567e+01_rb,1.0121e+01_rb,8.6775e+00_rb,7.2441e+00_rb,5.8181e+00_rb,4.4027e+00_rb, &
+     &3.0080e+00_rb,1.6091e+00_rb,1.1081e-01_rb/)
+      kao(:, 3,12, 9) = (/ &
+     &1.5756e+01_rb,1.3787e+01_rb,1.1820e+01_rb,9.8684e+00_rb,7.9263e+00_rb,6.0014e+00_rb, &
+     &4.1030e+00_rb,2.1969e+00_rb,1.3256e-01_rb/)
+      kao(:, 4,12, 9) = (/ &
+     &2.0731e+01_rb,1.8141e+01_rb,1.5554e+01_rb,1.2989e+01_rb,1.0436e+01_rb,7.9047e+00_rb, &
+     &5.4071e+00_rb,2.8962e+00_rb,1.5690e-01_rb/)
+      kao(:, 5,12, 9) = (/ &
+     &2.6483e+01_rb,2.3176e+01_rb,1.9872e+01_rb,1.6594e+01_rb,1.3339e+01_rb,1.0111e+01_rb, &
+     &6.9150e+00_rb,3.7095e+00_rb,1.8186e-01_rb/)
+      kao(:, 1,13, 9) = (/ &
+     &7.4699e+00_rb,6.5364e+00_rb,5.6062e+00_rb,4.6835e+00_rb,3.7650e+00_rb,2.8555e+00_rb, &
+     &1.9560e+00_rb,1.0515e+00_rb,8.5273e-02_rb/)
+      kao(:, 2,13, 9) = (/ &
+     &1.0680e+01_rb,9.3454e+00_rb,8.0165e+00_rb,6.6976e+00_rb,5.3854e+00_rb,4.0877e+00_rb, &
+     &2.8036e+00_rb,1.5078e+00_rb,1.0411e-01_rb/)
+      kao(:, 3,13, 9) = (/ &
+     &1.4620e+01_rb,1.2793e+01_rb,1.0973e+01_rb,9.1678e+00_rb,7.3735e+00_rb,5.5972e+00_rb, &
+     &3.8382e+00_rb,2.0618e+00_rb,1.2386e-01_rb/)
+      kao(:, 4,13, 9) = (/ &
+     &1.9258e+01_rb,1.6852e+01_rb,1.4455e+01_rb,1.2079e+01_rb,9.7197e+00_rb,7.3817e+00_rb, &
+     &5.0639e+00_rb,2.7225e+00_rb,1.4610e-01_rb/)
+      kao(:, 5,13, 9) = (/ &
+     &2.4621e+01_rb,2.1546e+01_rb,1.8485e+01_rb,1.5448e+01_rb,1.2432e+01_rb,9.4454e+00_rb, &
+     &6.4771e+00_rb,3.4853e+00_rb,1.7007e-01_rb/)
+      kao(:, 1, 1,10) = (/ &
+     &1.3879e-02_rb,1.0986e-01_rb,1.9192e-01_rb,2.8700e-01_rb,3.8129e-01_rb,4.7527e-01_rb, &
+     &5.7067e-01_rb,6.6779e-01_rb,7.6243e-01_rb/)
+      kao(:, 2, 1,10) = (/ &
+     &1.6954e-02_rb,1.3303e-01_rb,2.3564e-01_rb,3.5200e-01_rb,4.6702e-01_rb,5.8054e-01_rb, &
+     &6.9523e-01_rb,8.1372e-01_rb,9.3367e-01_rb/)
+      kao(:, 3, 1,10) = (/ &
+     &2.0369e-02_rb,1.5906e-01_rb,2.8523e-01_rb,4.2640e-01_rb,5.6627e-01_rb,7.0405e-01_rb, &
+     &8.3748e-01_rb,9.6604e-01_rb,1.1321e+00_rb/)
+      kao(:, 4, 1,10) = (/ &
+     &2.4061e-02_rb,1.8742e-01_rb,3.4065e-01_rb,5.0987e-01_rb,6.7810e-01_rb,8.4492e-01_rb, &
+     &1.0078e+00_rb,1.1403e+00_rb,1.3558e+00_rb/)
+      kao(:, 5, 1,10) = (/ &
+     &2.7911e-02_rb,2.1680e-01_rb,4.0347e-01_rb,6.0365e-01_rb,8.0163e-01_rb,9.9663e-01_rb, &
+     &1.1842e+00_rb,1.3430e+00_rb,1.6028e+00_rb/)
+      kao(:, 1, 2,10) = (/ &
+     &2.2158e-02_rb,1.1276e-01_rb,1.8891e-01_rb,2.7518e-01_rb,3.6524e-01_rb,4.5317e-01_rb, &
+     &5.3652e-01_rb,6.1296e-01_rb,7.3020e-01_rb/)
+      kao(:, 2, 2,10) = (/ &
+     &2.7256e-02_rb,1.3808e-01_rb,2.3100e-01_rb,3.4051e-01_rb,4.5180e-01_rb,5.6015e-01_rb, &
+     &6.6160e-01_rb,7.4973e-01_rb,9.0314e-01_rb/)
+      kao(:, 3, 2,10) = (/ &
+     &3.2742e-02_rb,1.6645e-01_rb,2.7575e-01_rb,4.1007e-01_rb,5.4427e-01_rb,6.7555e-01_rb, &
+     &8.0050e-01_rb,9.1019e-01_rb,1.0879e+00_rb/)
+      kao(:, 4, 2,10) = (/ &
+     &3.8593e-02_rb,1.9807e-01_rb,3.2475e-01_rb,4.8552e-01_rb,6.4531e-01_rb,8.0341e-01_rb, &
+     &9.5786e-01_rb,1.0994e+00_rb,1.2898e+00_rb/)
+      kao(:, 5, 2,10) = (/ &
+     &4.4713e-02_rb,2.3139e-01_rb,3.8401e-01_rb,5.7431e-01_rb,7.6329e-01_rb,9.5026e-01_rb, &
+     &1.1317e+00_rb,1.3007e+00_rb,1.5256e+00_rb/)
+      kao(:, 1, 3,10) = (/ &
+     &4.4889e-02_rb,1.1945e-01_rb,1.9910e-01_rb,2.6592e-01_rb,3.2716e-01_rb,4.0820e-01_rb, &
+     &4.8832e-01_rb,5.6450e-01_rb,6.5333e-01_rb/)
+      kao(:, 2, 3,10) = (/ &
+     &5.6096e-02_rb,1.4847e-01_rb,2.4845e-01_rb,3.3071e-01_rb,4.1171e-01_rb,5.1418e-01_rb, &
+     &6.1578e-01_rb,7.1081e-01_rb,8.2224e-01_rb/)
+      kao(:, 3, 3,10) = (/ &
+     &6.8702e-02_rb,1.8161e-01_rb,3.0124e-01_rb,3.9617e-01_rb,5.0089e-01_rb,6.2554e-01_rb, &
+     &7.4933e-01_rb,8.6662e-01_rb,1.0003e+00_rb/)
+      kao(:, 4, 3,10) = (/ &
+     &8.1949e-02_rb,2.1813e-01_rb,3.5788e-01_rb,4.6675e-01_rb,6.0112e-01_rb,7.4982e-01_rb, &
+     &8.9722e-01_rb,1.0369e+00_rb,1.1996e+00_rb/)
+      kao(:, 5, 3,10) = (/ &
+     &9.5752e-02_rb,2.5792e-01_rb,4.1860e-01_rb,5.4742e-01_rb,7.1669e-01_rb,8.9255e-01_rb, &
+     &1.0648e+00_rb,1.2234e+00_rb,1.4293e+00_rb/)
+      kao(:, 1, 4,10) = (/ &
+     &9.2779e-02_rb,1.3647e-01_rb,2.0374e-01_rb,2.6880e-01_rb,3.2474e-01_rb,3.6630e-01_rb, &
+     &4.2915e-01_rb,4.9644e-01_rb,5.7357e-01_rb/)
+      kao(:, 2, 4,10) = (/ &
+     &1.1604e-01_rb,1.7477e-01_rb,2.5924e-01_rb,3.4288e-01_rb,4.1143e-01_rb,4.5661e-01_rb, &
+     &5.3933e-01_rb,6.2792e-01_rb,7.1853e-01_rb/)
+      kao(:, 3, 4,10) = (/ &
+     &1.4325e-01_rb,2.1810e-01_rb,3.2204e-01_rb,4.2345e-01_rb,5.0270e-01_rb,5.5390e-01_rb, &
+     &6.5839e-01_rb,7.6862e-01_rb,8.7526e-01_rb/)
+      kao(:, 4, 4,10) = (/ &
+     &1.7320e-01_rb,2.6694e-01_rb,3.8938e-01_rb,5.0945e-01_rb,6.0406e-01_rb,6.6936e-01_rb, &
+     &8.0058e-01_rb,9.3405e-01_rb,1.0639e+00_rb/)
+      kao(:, 5, 4,10) = (/ &
+     &2.0528e-01_rb,3.2153e-01_rb,4.6268e-01_rb,6.0392e-01_rb,7.1636e-01_rb,8.0678e-01_rb, &
+     &9.6596e-01_rb,1.1248e+00_rb,1.2848e+00_rb/)
+      kao(:, 1, 5,10) = (/ &
+     &1.7241e-01_rb,1.8815e-01_rb,2.2088e-01_rb,2.6810e-01_rb,3.2220e-01_rb,3.6810e-01_rb, &
+     &3.9585e-01_rb,4.3476e-01_rb,4.9559e-01_rb/)
+      kao(:, 2, 5,10) = (/ &
+     &2.1928e-01_rb,2.4297e-01_rb,2.8762e-01_rb,3.4907e-01_rb,4.1506e-01_rb,4.6919e-01_rb, &
+     &4.9756e-01_rb,5.5222e-01_rb,6.2884e-01_rb/)
+      kao(:, 3, 5,10) = (/ &
+     &2.7265e-01_rb,3.0607e-01_rb,3.6483e-01_rb,4.4370e-01_rb,5.1761e-01_rb,5.7690e-01_rb, &
+     &6.0530e-01_rb,6.7866e-01_rb,7.7290e-01_rb/)
+      kao(:, 4, 5,10) = (/ &
+     &3.3288e-01_rb,3.7610e-01_rb,4.5166e-01_rb,5.4662e-01_rb,6.2951e-01_rb,6.9865e-01_rb, &
+     &7.2973e-01_rb,8.2842e-01_rb,9.4575e-01_rb/)
+      kao(:, 5, 5,10) = (/ &
+     &3.9915e-01_rb,4.5195e-01_rb,5.4707e-01_rb,6.6103e-01_rb,7.5773e-01_rb,8.3891e-01_rb, &
+     &8.7097e-01_rb,1.0005e+00_rb,1.1404e+00_rb/)
+      kao(:, 1, 6,10) = (/ &
+     &2.9778e-01_rb,2.8967e-01_rb,2.9242e-01_rb,2.9076e-01_rb,3.1606e-01_rb,3.5216e-01_rb, &
+     &3.7514e-01_rb,3.6360e-01_rb,4.0286e-01_rb/)
+      kao(:, 2, 6,10) = (/ &
+     &3.8364e-01_rb,3.7347e-01_rb,3.8384e-01_rb,3.8402e-01_rb,4.1811e-01_rb,4.6141e-01_rb, &
+     &4.8908e-01_rb,4.6937e-01_rb,5.2349e-01_rb/)
+      kao(:, 3, 6,10) = (/ &
+     &4.8196e-01_rb,4.7366e-01_rb,4.8805e-01_rb,4.9747e-01_rb,5.3761e-01_rb,5.8138e-01_rb, &
+     &6.1239e-01_rb,5.8662e-01_rb,6.5890e-01_rb/)
+      kao(:, 4, 6,10) = (/ &
+     &5.9004e-01_rb,5.9246e-01_rb,6.0698e-01_rb,6.2535e-01_rb,6.7125e-01_rb,7.1432e-01_rb, &
+     &7.4926e-01_rb,7.2627e-01_rb,8.2202e-01_rb/)
+      kao(:, 5, 6,10) = (/ &
+     &7.1225e-01_rb,7.2336e-01_rb,7.3969e-01_rb,7.6299e-01_rb,8.2248e-01_rb,8.6951e-01_rb, &
+     &9.0679e-01_rb,8.7991e-01_rb,1.0003e+00_rb/)
+      kao(:, 1, 7,10) = (/ &
+     &5.2983e-01_rb,4.8709e-01_rb,4.4813e-01_rb,4.1883e-01_rb,3.8710e-01_rb,3.5910e-01_rb, &
+     &3.5198e-01_rb,3.4364e-01_rb,3.2708e-01_rb/)
+      kao(:, 2, 7,10) = (/ &
+     &6.9820e-01_rb,6.4182e-01_rb,5.9773e-01_rb,5.6199e-01_rb,5.1585e-01_rb,4.8198e-01_rb, &
+     &4.7538e-01_rb,4.5593e-01_rb,4.2838e-01_rb/)
+      kao(:, 3, 7,10) = (/ &
+     &8.9166e-01_rb,8.2011e-01_rb,7.7520e-01_rb,7.2195e-01_rb,6.6977e-01_rb,6.2908e-01_rb, &
+     &6.1720e-01_rb,5.8358e-01_rb,5.4876e-01_rb/)
+      kao(:, 4, 7,10) = (/ &
+     &1.1048e+00_rb,1.0150e+00_rb,9.7493e-01_rb,9.0555e-01_rb,8.5261e-01_rb,7.9496e-01_rb, &
+     &7.7495e-01_rb,7.2954e-01_rb,6.9328e-01_rb/)
+      kao(:, 5, 7,10) = (/ &
+     &1.3386e+00_rb,1.2295e+00_rb,1.1950e+00_rb,1.1151e+00_rb,1.0543e+00_rb,9.8064e-01_rb, &
+     &9.5591e-01_rb,8.9484e-01_rb,8.5404e-01_rb/)
+      kao(:, 1, 8,10) = (/ &
+     &1.0881e+00_rb,9.5225e-01_rb,8.5699e-01_rb,7.4043e-01_rb,6.3719e-01_rb,5.4699e-01_rb, &
+     &4.4366e-01_rb,3.3722e-01_rb,2.5365e-01_rb/)
+      kao(:, 2, 8,10) = (/ &
+     &1.4729e+00_rb,1.2892e+00_rb,1.1603e+00_rb,1.0057e+00_rb,8.7735e-01_rb,7.4624e-01_rb, &
+     &6.0685e-01_rb,4.5839e-01_rb,3.4968e-01_rb/)
+      kao(:, 3, 8,10) = (/ &
+     &1.9193e+00_rb,1.6816e+00_rb,1.5156e+00_rb,1.3265e+00_rb,1.1534e+00_rb,9.7741e-01_rb, &
+     &7.9951e-01_rb,6.0809e-01_rb,4.5275e-01_rb/)
+      kao(:, 4, 8,10) = (/ &
+     &2.4196e+00_rb,2.1220e+00_rb,1.9097e+00_rb,1.6942e+00_rb,1.4693e+00_rb,1.2439e+00_rb, &
+     &1.0194e+00_rb,7.8139e-01_rb,5.7536e-01_rb/)
+      kao(:, 5, 8,10) = (/ &
+     &2.9662e+00_rb,2.6064e+00_rb,2.3390e+00_rb,2.0966e+00_rb,1.8122e+00_rb,1.5517e+00_rb, &
+     &1.2698e+00_rb,9.8175e-01_rb,7.1420e-01_rb/)
+      kao(:, 1, 9,10) = (/ &
+     &4.0693e+00_rb,3.5609e+00_rb,3.0521e+00_rb,2.5470e+00_rb,2.0946e+00_rb,1.6231e+00_rb, &
+     &1.1342e+00_rb,6.9341e-01_rb,2.3254e-01_rb/)
+      kao(:, 2, 9,10) = (/ &
+     &5.6525e+00_rb,4.9459e+00_rb,4.2396e+00_rb,3.5367e+00_rb,2.9143e+00_rb,2.2533e+00_rb, &
+     &1.5867e+00_rb,9.6567e-01_rb,2.9706e-01_rb/)
+      kao(:, 3, 9,10) = (/ &
+     &7.5336e+00_rb,6.5921e+00_rb,5.6502e+00_rb,4.7197e+00_rb,3.8915e+00_rb,3.0030e+00_rb, &
+     &2.1420e+00_rb,1.2862e+00_rb,3.6402e-01_rb/)
+      kao(:, 4, 9,10) = (/ &
+     &9.6696e+00_rb,8.4608e+00_rb,7.2526e+00_rb,6.0675e+00_rb,4.9886e+00_rb,3.8558e+00_rb, &
+     &2.7779e+00_rb,1.6618e+00_rb,4.0961e-01_rb/)
+      kao(:, 5, 9,10) = (/ &
+     &1.2059e+01_rb,1.0552e+01_rb,9.0447e+00_rb,7.5858e+00_rb,6.2136e+00_rb,4.8233e+00_rb, &
+     &3.4799e+00_rb,2.0915e+00_rb,3.7531e-01_rb/)
+      kao(:, 1,10,10) = (/ &
+     &1.7088e+01_rb,1.4952e+01_rb,1.2816e+01_rb,1.0681e+01_rb,8.5444e+00_rb,6.4081e+00_rb, &
+     &4.3169e+00_rb,2.2612e+00_rb,1.5325e-01_rb/)
+      kao(:, 2,10,10) = (/ &
+     &2.4265e+01_rb,2.1232e+01_rb,1.8199e+01_rb,1.5167e+01_rb,1.2132e+01_rb,9.0996e+00_rb, &
+     &6.1194e+00_rb,3.2115e+00_rb,2.0907e-01_rb/)
+      kao(:, 3,10,10) = (/ &
+     &3.2859e+01_rb,2.8752e+01_rb,2.4646e+01_rb,2.0537e+01_rb,1.6430e+01_rb,1.2323e+01_rb, &
+     &8.2885e+00_rb,4.3528e+00_rb,2.8093e-01_rb/)
+      kao(:, 4,10,10) = (/ &
+     &4.2869e+01_rb,3.7512e+01_rb,3.2153e+01_rb,2.6795e+01_rb,2.1435e+01_rb,1.6077e+01_rb, &
+     &1.0833e+01_rb,5.6764e+00_rb,3.4638e-01_rb/)
+      kao(:, 5,10,10) = (/ &
+     &5.4098e+01_rb,4.7336e+01_rb,4.0575e+01_rb,3.3816e+01_rb,2.7052e+01_rb,2.0291e+01_rb, &
+     &1.3707e+01_rb,7.1952e+00_rb,4.8935e-01_rb/)
+      kao(:, 1,11,10) = (/ &
+     &2.9317e+01_rb,2.5652e+01_rb,2.1987e+01_rb,1.8324e+01_rb,1.4658e+01_rb,1.0994e+01_rb, &
+     &7.3313e+00_rb,3.7877e+00_rb,2.2554e-01_rb/)
+      kao(:, 2,11,10) = (/ &
+     &4.1549e+01_rb,3.6355e+01_rb,3.1162e+01_rb,2.5968e+01_rb,2.0775e+01_rb,1.5581e+01_rb, &
+     &1.0388e+01_rb,5.3868e+00_rb,2.3983e-01_rb/)
+      kao(:, 3,11,10) = (/ &
+     &5.6191e+01_rb,4.9168e+01_rb,4.2143e+01_rb,3.5117e+01_rb,2.8096e+01_rb,2.1071e+01_rb, &
+     &1.4052e+01_rb,7.2903e+00_rb,2.8347e-01_rb/)
+      kao(:, 4,11,10) = (/ &
+     &7.3162e+01_rb,6.4016e+01_rb,5.4871e+01_rb,4.5729e+01_rb,3.6583e+01_rb,2.7439e+01_rb, &
+     &1.8309e+01_rb,9.4965e+00_rb,3.4363e-01_rb/)
+      kao(:, 5,11,10) = (/ &
+     &9.2126e+01_rb,8.0611e+01_rb,6.9095e+01_rb,5.7582e+01_rb,4.6068e+01_rb,3.4554e+01_rb, &
+     &2.3073e+01_rb,1.1954e+01_rb,4.6470e-01_rb/)
+      kao(:, 1,12,10) = (/ &
+     &3.6684e+01_rb,3.2099e+01_rb,2.7514e+01_rb,2.2927e+01_rb,1.8342e+01_rb,1.3757e+01_rb, &
+     &9.1743e+00_rb,4.7217e+00_rb,2.6068e-01_rb/)
+      kao(:, 2,12,10) = (/ &
+     &5.1868e+01_rb,4.5387e+01_rb,3.8901e+01_rb,3.2419e+01_rb,2.5934e+01_rb,1.9452e+01_rb, &
+     &1.2967e+01_rb,6.6916e+00_rb,2.7916e-01_rb/)
+      kao(:, 3,12,10) = (/ &
+     &7.0081e+01_rb,6.1322e+01_rb,5.2561e+01_rb,4.3801e+01_rb,3.5043e+01_rb,2.6282e+01_rb, &
+     &1.7526e+01_rb,9.0530e+00_rb,3.3145e-01_rb/)
+      kao(:, 4,12,10) = (/ &
+     &9.0957e+01_rb,7.9591e+01_rb,6.8227e+01_rb,5.6859e+01_rb,4.5488e+01_rb,3.4114e+01_rb, &
+     &2.2760e+01_rb,1.1751e+01_rb,3.6053e-01_rb/)
+      kao(:, 5,12,10) = (/ &
+     &1.1478e+02_rb,1.0044e+02_rb,8.6086e+01_rb,7.1743e+01_rb,5.7394e+01_rb,4.3046e+01_rb, &
+     &2.8737e+01_rb,1.4814e+01_rb,4.5144e-01_rb/)
+      kao(:, 1,13,10) = (/ &
+     &3.5965e+01_rb,3.1472e+01_rb,2.6975e+01_rb,2.2479e+01_rb,1.7984e+01_rb,1.3488e+01_rb, &
+     &9.0232e+00_rb,4.6648e+00_rb,2.4705e-01_rb/)
+      kao(:, 2,13,10) = (/ &
+     &5.0800e+01_rb,4.4451e+01_rb,3.8101e+01_rb,3.1752e+01_rb,2.5403e+01_rb,1.9053e+01_rb, &
+     &1.2739e+01_rb,6.5982e+00_rb,2.8941e-01_rb/)
+      kao(:, 3,13,10) = (/ &
+     &6.8393e+01_rb,5.9846e+01_rb,5.1296e+01_rb,4.2746e+01_rb,3.4199e+01_rb,2.5650e+01_rb, &
+     &1.7151e+01_rb,8.8890e+00_rb,3.3776e-01_rb/)
+      kao(:, 4,13,10) = (/ &
+     &8.8957e+01_rb,7.7837e+01_rb,6.6721e+01_rb,5.5604e+01_rb,4.4485e+01_rb,3.3364e+01_rb, &
+     &2.2331e+01_rb,1.1554e+01_rb,3.9400e-01_rb/)
+      kao(:, 5,13,10) = (/ &
+     &1.1248e+02_rb,9.8422e+01_rb,8.4359e+01_rb,7.0296e+01_rb,5.6240e+01_rb,4.2182e+01_rb, &
+     &2.8274e+01_rb,1.4614e+01_rb,4.6294e-01_rb/)
+      kao(:, 1, 1,11) = (/ &
+     &2.0991e-02_rb,1.4510e-01_rb,2.7530e-01_rb,4.1253e-01_rb,5.4888e-01_rb,6.8317e-01_rb, &
+     &8.1040e-01_rb,9.0204e-01_rb,1.0977e+00_rb/)
+      kao(:, 2, 1,11) = (/ &
+     &2.6377e-02_rb,1.7420e-01_rb,3.3534e-01_rb,5.0284e-01_rb,6.6978e-01_rb,8.3508e-01_rb, &
+     &9.9362e-01_rb,1.1152e+00_rb,1.3395e+00_rb/)
+      kao(:, 3, 1,11) = (/ &
+     &3.2301e-02_rb,2.0470e-01_rb,4.0014e-01_rb,5.9936e-01_rb,7.9730e-01_rb,9.9294e-01_rb, &
+     &1.1840e+00_rb,1.3371e+00_rb,1.5943e+00_rb/)
+      kao(:, 4, 1,11) = (/ &
+     &3.8610e-02_rb,2.3990e-01_rb,4.7445e-01_rb,7.0939e-01_rb,9.4186e-01_rb,1.1687e+00_rb, &
+     &1.3842e+00_rb,1.5657e+00_rb,1.8832e+00_rb/)
+      kao(:, 5, 1,11) = (/ &
+     &4.5285e-02_rb,2.8044e-01_rb,5.5866e-01_rb,8.3454e-01_rb,1.1074e+00_rb,1.3742e+00_rb, &
+     &1.6243e+00_rb,1.8087e+00_rb,2.2141e+00_rb/)
+      kao(:, 1, 2,11) = (/ &
+     &3.0334e-02_rb,1.5806e-01_rb,2.5391e-01_rb,3.8056e-01_rb,5.0695e-01_rb,6.3318e-01_rb, &
+     &7.5908e-01_rb,8.7813e-01_rb,1.0138e+00_rb/)
+      kao(:, 2, 2,11) = (/ &
+     &3.8224e-02_rb,1.9234e-01_rb,3.1173e-01_rb,4.6706e-01_rb,6.2209e-01_rb,7.7707e-01_rb, &
+     &9.3334e-01_rb,1.0857e+00_rb,1.2438e+00_rb/)
+      kao(:, 3, 2,11) = (/ &
+     &4.7042e-02_rb,2.2793e-01_rb,3.7775e-01_rb,5.6573e-01_rb,7.5275e-01_rb,9.3856e-01_rb, &
+     &1.1227e+00_rb,1.3034e+00_rb,1.5049e+00_rb/)
+      kao(:, 4, 2,11) = (/ &
+     &5.6790e-02_rb,2.6663e-01_rb,4.5515e-01_rb,6.8101e-01_rb,9.0489e-01_rb,1.1244e+00_rb, &
+     &1.3363e+00_rb,1.5352e+00_rb,1.8090e+00_rb/)
+      kao(:, 5, 2,11) = (/ &
+     &6.7198e-02_rb,3.0909e-01_rb,5.3855e-01_rb,8.0620e-01_rb,1.0720e+00_rb,1.3339e+00_rb, &
+     &1.5872e+00_rb,1.8075e+00_rb,2.1432e+00_rb/)
+      kao(:, 1, 3,11) = (/ &
+     &5.8386e-02_rb,1.7533e-01_rb,2.7134e-01_rb,3.4280e-01_rb,4.5327e-01_rb,5.6550e-01_rb, &
+     &6.7606e-01_rb,7.8244e-01_rb,9.0646e-01_rb/)
+      kao(:, 2, 3,11) = (/ &
+     &7.4136e-02_rb,2.1912e-01_rb,3.3311e-01_rb,4.2266e-01_rb,5.6203e-01_rb,7.0075e-01_rb, &
+     &8.3707e-01_rb,9.6959e-01_rb,1.1236e+00_rb/)
+      kao(:, 3, 3,11) = (/ &
+     &9.1573e-02_rb,2.6509e-01_rb,4.0096e-01_rb,5.1730e-01_rb,6.8812e-01_rb,8.5747e-01_rb, &
+     &1.0237e+00_rb,1.1823e+00_rb,1.3753e+00_rb/)
+      kao(:, 4, 3,11) = (/ &
+     &1.1115e-01_rb,3.1410e-01_rb,4.7626e-01_rb,6.2447e-01_rb,8.3118e-01_rb,1.0365e+00_rb, &
+     &1.2383e+00_rb,1.4280e+00_rb,1.6615e+00_rb/)
+      kao(:, 5, 3,11) = (/ &
+     &1.3245e-01_rb,3.6725e-01_rb,5.5683e-01_rb,7.4336e-01_rb,9.8988e-01_rb,1.2355e+00_rb, &
+     &1.4780e+00_rb,1.7132e+00_rb,1.9788e+00_rb/)
+      kao(:, 1, 4,11) = (/ &
+     &1.1641e-01_rb,1.9770e-01_rb,2.9439e-01_rb,3.7525e-01_rb,4.3722e-01_rb,5.0094e-01_rb, &
+     &6.0009e-01_rb,6.9731e-01_rb,8.0196e-01_rb/)
+      kao(:, 2, 4,11) = (/ &
+     &1.4966e-01_rb,2.5765e-01_rb,3.7252e-01_rb,4.6834e-01_rb,5.4216e-01_rb,6.3606e-01_rb, &
+     &7.6075e-01_rb,8.7975e-01_rb,1.0184e+00_rb/)
+      kao(:, 3, 4,11) = (/ &
+     &1.8710e-01_rb,3.2245e-01_rb,4.5679e-01_rb,5.7205e-01_rb,6.6194e-01_rb,7.9151e-01_rb, &
+     &9.4643e-01_rb,1.0919e+00_rb,1.2671e+00_rb/)
+      kao(:, 4, 4,11) = (/ &
+     &2.2853e-01_rb,3.9201e-01_rb,5.5041e-01_rb,6.8810e-01_rb,7.8876e-01_rb,9.5787e-01_rb, &
+     &1.1458e+00_rb,1.3241e+00_rb,1.5335e+00_rb/)
+      kao(:, 5, 4,11) = (/ &
+     &2.7304e-01_rb,4.6530e-01_rb,6.5411e-01_rb,8.1513e-01_rb,9.2682e-01_rb,1.1406e+00_rb, &
+     &1.3653e+00_rb,1.5825e+00_rb,1.8252e+00_rb/)
+      kao(:, 1, 5,11) = (/ &
+     &2.2361e-01_rb,2.4318e-01_rb,3.1539e-01_rb,3.9443e-01_rb,4.5716e-01_rb,5.0109e-01_rb, &
+     &5.2154e-01_rb,6.0679e-01_rb,6.9571e-01_rb/)
+      kao(:, 2, 5,11) = (/ &
+     &2.8781e-01_rb,3.2451e-01_rb,4.1536e-01_rb,5.0630e-01_rb,5.8344e-01_rb,6.3855e-01_rb, &
+     &6.7297e-01_rb,7.8266e-01_rb,8.9726e-01_rb/)
+      kao(:, 3, 5,11) = (/ &
+     &3.6159e-01_rb,4.1915e-01_rb,5.2707e-01_rb,6.2976e-01_rb,7.2674e-01_rb,7.9740e-01_rb, &
+     &8.4985e-01_rb,9.8938e-01_rb,1.1325e+00_rb/)
+      kao(:, 4, 5,11) = (/ &
+     &4.4416e-01_rb,5.2452e-01_rb,6.5017e-01_rb,7.6880e-01_rb,8.8658e-01_rb,9.6270e-01_rb, &
+     &1.0399e+00_rb,1.2125e+00_rb,1.3846e+00_rb/)
+      kao(:, 5, 5,11) = (/ &
+     &5.3394e-01_rb,6.3638e-01_rb,7.8407e-01_rb,9.2197e-01_rb,1.0572e+00_rb,1.1328e+00_rb, &
+     &1.2555e+00_rb,1.4611e+00_rb,1.6711e+00_rb/)
+      kao(:, 1, 6,11) = (/ &
+     &3.9154e-01_rb,3.6960e-01_rb,3.6660e-01_rb,4.0826e-01_rb,4.6123e-01_rb,5.0084e-01_rb, &
+     &5.2154e-01_rb,5.2728e-01_rb,6.0320e-01_rb/)
+      kao(:, 2, 6,11) = (/ &
+     &5.1275e-01_rb,4.8556e-01_rb,4.9732e-01_rb,5.4788e-01_rb,6.0699e-01_rb,6.5333e-01_rb, &
+     &6.7418e-01_rb,6.8648e-01_rb,7.8580e-01_rb/)
+      kao(:, 3, 6,11) = (/ &
+     &6.5141e-01_rb,6.2128e-01_rb,6.5130e-01_rb,7.0712e-01_rb,7.7202e-01_rb,8.3303e-01_rb, &
+     &8.5314e-01_rb,8.6953e-01_rb,9.9315e-01_rb/)
+      kao(:, 4, 6,11) = (/ &
+     &8.1112e-01_rb,7.6989e-01_rb,8.2193e-01_rb,8.8492e-01_rb,9.6073e-01_rb,1.0362e+00_rb, &
+     &1.0443e+00_rb,1.0666e+00_rb,1.2159e+00_rb/)
+      kao(:, 5, 6,11) = (/ &
+     &9.8628e-01_rb,9.3596e-01_rb,1.0065e+00_rb,1.0840e+00_rb,1.1687e+00_rb,1.2489e+00_rb, &
+     &1.2474e+00_rb,1.2983e+00_rb,1.4796e+00_rb/)
+      kao(:, 1, 7,11) = (/ &
+     &6.9811e-01_rb,6.2404e-01_rb,5.7431e-01_rb,5.2596e-01_rb,5.0219e-01_rb,5.1011e-01_rb, &
+     &5.2289e-01_rb,4.9946e-01_rb,5.0228e-01_rb/)
+      kao(:, 2, 7,11) = (/ &
+     &9.3257e-01_rb,8.3430e-01_rb,7.6751e-01_rb,7.1360e-01_rb,6.8353e-01_rb,6.8813e-01_rb, &
+     &6.9358e-01_rb,6.6018e-01_rb,6.7200e-01_rb/)
+      kao(:, 3, 7,11) = (/ &
+     &1.1984e+00_rb,1.0755e+00_rb,9.9660e-01_rb,9.4008e-01_rb,8.9760e-01_rb,8.9906e-01_rb, &
+     &8.9631e-01_rb,8.4016e-01_rb,8.6247e-01_rb/)
+      kao(:, 4, 7,11) = (/ &
+     &1.5061e+00_rb,1.3555e+00_rb,1.2704e+00_rb,1.2009e+00_rb,1.1418e+00_rb,1.1469e+00_rb, &
+     &1.1302e+00_rb,1.0283e+00_rb,1.0687e+00_rb/)
+      kao(:, 5, 7,11) = (/ &
+     &1.8551e+00_rb,1.6736e+00_rb,1.5791e+00_rb,1.4850e+00_rb,1.4175e+00_rb,1.4225e+00_rb, &
+     &1.3804e+00_rb,1.2333e+00_rb,1.3098e+00_rb/)
+      kao(:, 1, 8,11) = (/ &
+     &1.4751e+00_rb,1.2907e+00_rb,1.1413e+00_rb,9.9788e-01_rb,8.3765e-01_rb,7.0312e-01_rb, &
+     &5.8437e-01_rb,5.1212e-01_rb,4.0848e-01_rb/)
+      kao(:, 2, 8,11) = (/ &
+     &2.0110e+00_rb,1.7597e+00_rb,1.5595e+00_rb,1.3603e+00_rb,1.1539e+00_rb,9.7291e-01_rb, &
+     &7.9698e-01_rb,7.0110e-01_rb,5.5259e-01_rb/)
+      kao(:, 3, 8,11) = (/ &
+     &2.6286e+00_rb,2.3001e+00_rb,2.0385e+00_rb,1.7785e+00_rb,1.5362e+00_rb,1.2889e+00_rb, &
+     &1.0590e+00_rb,9.2250e-01_rb,7.2275e-01_rb/)
+      kao(:, 4, 8,11) = (/ &
+     &3.3350e+00_rb,2.9182e+00_rb,2.5850e+00_rb,2.2617e+00_rb,1.9780e+00_rb,1.6580e+00_rb, &
+     &1.3758e+00_rb,1.1729e+00_rb,9.1532e-01_rb/)
+      kao(:, 5, 8,11) = (/ &
+     &4.1346e+00_rb,3.6181e+00_rb,3.2106e+00_rb,2.8264e+00_rb,2.4835e+00_rb,2.0714e+00_rb, &
+     &1.7385e+00_rb,1.4468e+00_rb,1.1430e+00_rb/)
+      kao(:, 1, 9,11) = (/ &
+     &5.7681e+00_rb,5.0468e+00_rb,4.3260e+00_rb,3.6050e+00_rb,2.9109e+00_rb,2.2673e+00_rb, &
+     &1.5776e+00_rb,9.1302e-01_rb,3.3856e-01_rb/)
+      kao(:, 2, 9,11) = (/ &
+     &8.0519e+00_rb,7.0463e+00_rb,6.0395e+00_rb,5.0331e+00_rb,4.0586e+00_rb,3.1762e+00_rb, &
+     &2.2073e+00_rb,1.2968e+00_rb,3.9705e-01_rb/)
+      kao(:, 3, 9,11) = (/ &
+     &1.0740e+01_rb,9.3971e+00_rb,8.0549e+00_rb,6.7129e+00_rb,5.4190e+00_rb,4.2355e+00_rb, &
+     &2.9531e+00_rb,1.7521e+00_rb,4.0437e-01_rb/)
+      kao(:, 4, 9,11) = (/ &
+     &1.3840e+01_rb,1.2110e+01_rb,1.0380e+01_rb,8.6502e+00_rb,7.0077e+00_rb,5.4549e+00_rb, &
+     &3.8354e+00_rb,2.2704e+00_rb,5.4385e-01_rb/)
+      kao(:, 5, 9,11) = (/ &
+     &1.7291e+01_rb,1.5129e+01_rb,1.2969e+01_rb,1.0808e+01_rb,8.7913e+00_rb,6.8118e+00_rb, &
+     &4.8594e+00_rb,2.8643e+00_rb,9.3844e-01_rb/)
+      kao(:, 1,10,11) = (/ &
+     &2.5281e+01_rb,2.2121e+01_rb,1.8961e+01_rb,1.5801e+01_rb,1.2641e+01_rb,9.4806e+00_rb, &
+     &6.3207e+00_rb,3.2921e+00_rb,2.8225e-01_rb/)
+      kao(:, 2,10,11) = (/ &
+     &3.6089e+01_rb,3.1577e+01_rb,2.7066e+01_rb,2.2555e+01_rb,1.8044e+01_rb,1.3532e+01_rb, &
+     &9.0226e+00_rb,4.7197e+00_rb,3.9375e-01_rb/)
+      kao(:, 3,10,11) = (/ &
+     &4.8997e+01_rb,4.2873e+01_rb,3.6749e+01_rb,3.0623e+01_rb,2.4498e+01_rb,1.8373e+01_rb, &
+     &1.2249e+01_rb,6.4130e+00_rb,6.0950e-01_rb/)
+      kao(:, 4,10,11) = (/ &
+     &6.4090e+01_rb,5.6079e+01_rb,4.8068e+01_rb,4.0059e+01_rb,3.2048e+01_rb,2.4036e+01_rb, &
+     &1.6029e+01_rb,8.3902e+00_rb,8.3229e-01_rb/)
+      kao(:, 5,10,11) = (/ &
+     &8.0977e+01_rb,7.0856e+01_rb,6.0735e+01_rb,5.0611e+01_rb,4.0489e+01_rb,3.0368e+01_rb, &
+     &2.0260e+01_rb,1.0591e+01_rb,9.6456e-01_rb/)
+      kao(:, 1,11,11) = (/ &
+     &4.5405e+01_rb,3.9730e+01_rb,3.4055e+01_rb,2.8379e+01_rb,2.2704e+01_rb,1.7027e+01_rb, &
+     &1.1352e+01_rb,5.7629e+00_rb,2.2978e-01_rb/)
+      kao(:, 2,11,11) = (/ &
+     &6.4516e+01_rb,5.6450e+01_rb,4.8385e+01_rb,4.0321e+01_rb,3.2258e+01_rb,2.4193e+01_rb, &
+     &1.6129e+01_rb,8.1743e+00_rb,3.8450e-01_rb/)
+      kao(:, 3,11,11) = (/ &
+     &8.7570e+01_rb,7.6629e+01_rb,6.5678e+01_rb,5.4738e+01_rb,4.3785e+01_rb,3.2840e+01_rb, &
+     &2.1894e+01_rb,1.1105e+01_rb,5.0528e-01_rb/)
+      kao(:, 4,11,11) = (/ &
+     &1.1421e+02_rb,9.9924e+01_rb,8.5650e+01_rb,7.1372e+01_rb,5.7099e+01_rb,4.2826e+01_rb, &
+     &2.8549e+01_rb,1.4506e+01_rb,6.3580e-01_rb/)
+      kao(:, 5,11,11) = (/ &
+     &1.4404e+02_rb,1.2604e+02_rb,1.0803e+02_rb,9.0033e+01_rb,7.2026e+01_rb,5.4020e+01_rb, &
+     &3.6011e+01_rb,1.8334e+01_rb,7.9612e-01_rb/)
+      kao(:, 1,12,11) = (/ &
+     &5.9271e+01_rb,5.1859e+01_rb,4.4453e+01_rb,3.7044e+01_rb,2.9635e+01_rb,2.2226e+01_rb, &
+     &1.4818e+01_rb,7.4861e+00_rb,2.2024e-01_rb/)
+      kao(:, 2,12,11) = (/ &
+     &8.4185e+01_rb,7.3665e+01_rb,6.3138e+01_rb,5.2615e+01_rb,4.2094e+01_rb,3.1570e+01_rb, &
+     &2.1046e+01_rb,1.0615e+01_rb,3.8802e-01_rb/)
+      kao(:, 3,12,11) = (/ &
+     &1.1399e+02_rb,9.9749e+01_rb,8.5496e+01_rb,7.1245e+01_rb,5.6997e+01_rb,4.2749e+01_rb, &
+     &2.8499e+01_rb,1.4383e+01_rb,4.9342e-01_rb/)
+      kao(:, 4,12,11) = (/ &
+     &1.4842e+02_rb,1.2987e+02_rb,1.1132e+02_rb,9.2770e+01_rb,7.4216e+01_rb,5.5662e+01_rb, &
+     &3.7107e+01_rb,1.8761e+01_rb,6.8194e-01_rb/)
+      kao(:, 5,12,11) = (/ &
+     &1.8694e+02_rb,1.6356e+02_rb,1.4020e+02_rb,1.1683e+02_rb,9.3474e+01_rb,7.0107e+01_rb, &
+     &4.6738e+01_rb,2.3682e+01_rb,7.5051e-01_rb/)
+      kao(:, 1,13,11) = (/ &
+     &6.1162e+01_rb,5.3516e+01_rb,4.5871e+01_rb,3.8225e+01_rb,3.0581e+01_rb,2.2936e+01_rb, &
+     &1.5291e+01_rb,7.7722e+00_rb,3.0501e-01_rb/)
+      kao(:, 2,13,11) = (/ &
+     &8.6643e+01_rb,7.5815e+01_rb,6.4984e+01_rb,5.4153e+01_rb,4.3324e+01_rb,3.2493e+01_rb, &
+     &2.1662e+01_rb,1.1016e+01_rb,3.8069e-01_rb/)
+      kao(:, 3,13,11) = (/ &
+     &1.1697e+02_rb,1.0235e+02_rb,8.7727e+01_rb,7.3107e+01_rb,5.8486e+01_rb,4.3863e+01_rb, &
+     &2.9242e+01_rb,1.4879e+01_rb,4.9510e-01_rb/)
+      kao(:, 4,13,11) = (/ &
+     &1.5186e+02_rb,1.3288e+02_rb,1.1389e+02_rb,9.4916e+01_rb,7.5936e+01_rb,5.6949e+01_rb, &
+     &3.7967e+01_rb,1.9342e+01_rb,5.7912e-01_rb/)
+      kao(:, 5,13,11) = (/ &
+     &1.9078e+02_rb,1.6694e+02_rb,1.4309e+02_rb,1.1924e+02_rb,9.5394e+01_rb,7.1546e+01_rb, &
+     &4.7697e+01_rb,2.4327e+01_rb,6.7000e-01_rb/)
+      kao(:, 1, 1,12) = (/ &
+     &4.4327e-02_rb,1.9901e-01_rb,3.9567e-01_rb,5.8848e-01_rb,7.7476e-01_rb,9.4853e-01_rb, &
+     &1.0934e+00_rb,1.1527e+00_rb,1.5495e+00_rb/)
+      kao(:, 2, 1,12) = (/ &
+     &5.3905e-02_rb,2.4740e-01_rb,4.9242e-01_rb,7.3367e-01_rb,9.6823e-01_rb,1.1892e+00_rb, &
+     &1.3767e+00_rb,1.4534e+00_rb,1.9364e+00_rb/)
+      kao(:, 3, 1,12) = (/ &
+     &6.4069e-02_rb,2.9762e-01_rb,5.9267e-01_rb,8.8396e-01_rb,1.1680e+00_rb,1.4379e+00_rb, &
+     &1.6734e+00_rb,1.7853e+00_rb,2.3359e+00_rb/)
+      kao(:, 4, 1,12) = (/ &
+     &7.4599e-02_rb,3.4908e-01_rb,6.9548e-01_rb,1.0378e+00_rb,1.3725e+00_rb,1.6921e+00_rb, &
+     &1.9734e+00_rb,2.1192e+00_rb,2.7449e+00_rb/)
+      kao(:, 5, 1,12) = (/ &
+     &8.5274e-02_rb,4.0394e-01_rb,8.0404e-01_rb,1.1983e+00_rb,1.5830e+00_rb,1.9477e+00_rb, &
+     &2.2662e+00_rb,2.4521e+00_rb,3.1659e+00_rb/)
+      kao(:, 1, 2,12) = (/ &
+     &6.1665e-02_rb,2.1077e-01_rb,3.8355e-01_rb,5.7339e-01_rb,7.6055e-01_rb,9.4236e-01_rb, &
+     &1.1091e+00_rb,1.2168e+00_rb,1.5210e+00_rb/)
+      kao(:, 2, 2,12) = (/ &
+     &7.6234e-02_rb,2.5639e-01_rb,4.7826e-01_rb,7.1532e-01_rb,9.5007e-01_rb,1.1793e+00_rb, &
+     &1.3941e+00_rb,1.5452e+00_rb,1.9001e+00_rb/)
+      kao(:, 3, 2,12) = (/ &
+     &9.1892e-02_rb,3.0376e-01_rb,5.7761e-01_rb,8.6445e-01_rb,1.1488e+00_rb,1.4281e+00_rb, &
+     &1.6923e+00_rb,1.8917e+00_rb,2.2975e+00_rb/)
+      kao(:, 4, 2,12) = (/ &
+     &1.0837e-01_rb,3.5273e-01_rb,6.8106e-01_rb,1.0192e+00_rb,1.3548e+00_rb,1.6858e+00_rb, &
+     &2.0012e+00_rb,2.2488e+00_rb,2.7094e+00_rb/)
+      kao(:, 5, 2,12) = (/ &
+     &1.2523e-01_rb,4.0526e-01_rb,7.9735e-01_rb,1.1921e+00_rb,1.5816e+00_rb,1.9625e+00_rb, &
+     &2.3213e+00_rb,2.6087e+00_rb,3.1625e+00_rb/)
+      kao(:, 1, 3,12) = (/ &
+     &1.1120e-01_rb,2.4868e-01_rb,3.6808e-01_rb,5.1840e-01_rb,6.9017e-01_rb,8.6056e-01_rb, &
+     &1.0271e+00_rb,1.1758e+00_rb,1.3802e+00_rb/)
+      kao(:, 2, 3,12) = (/ &
+     &1.4053e-01_rb,3.1536e-01_rb,4.5583e-01_rb,6.5442e-01_rb,8.7173e-01_rb,1.0879e+00_rb, &
+     &1.3003e+00_rb,1.4947e+00_rb,1.7433e+00_rb/)
+      kao(:, 3, 3,12) = (/ &
+     &1.7249e-01_rb,3.8643e-01_rb,5.4830e-01_rb,7.9885e-01_rb,1.0645e+00_rb,1.3292e+00_rb, &
+     &1.5905e+00_rb,1.8338e+00_rb,2.1288e+00_rb/)
+      kao(:, 4, 3,12) = (/ &
+     &2.0676e-01_rb,4.5780e-01_rb,6.4549e-01_rb,9.5437e-01_rb,1.2710e+00_rb,1.5864e+00_rb, &
+     &1.8970e+00_rb,2.1896e+00_rb,2.5411e+00_rb/)
+      kao(:, 5, 3,12) = (/ &
+     &2.4212e-01_rb,5.2871e-01_rb,7.5484e-01_rb,1.1269e+00_rb,1.5000e+00_rb,1.8700e+00_rb, &
+     &2.2336e+00_rb,2.5647e+00_rb,2.9987e+00_rb/)
+      kao(:, 1, 4,12) = (/ &
+     &2.0092e-01_rb,3.0566e-01_rb,4.3321e-01_rb,5.2770e-01_rb,6.0160e-01_rb,7.5023e-01_rb, &
+     &8.9870e-01_rb,1.0432e+00_rb,1.2013e+00_rb/)
+      kao(:, 2, 4,12) = (/ &
+     &2.6071e-01_rb,3.8703e-01_rb,5.5757e-01_rb,6.5930e-01_rb,7.6619e-01_rb,9.5732e-01_rb, &
+     &1.1477e+00_rb,1.3364e+00_rb,1.5321e+00_rb/)
+      kao(:, 3, 4,12) = (/ &
+     &3.2640e-01_rb,4.7994e-01_rb,6.8737e-01_rb,7.9575e-01_rb,9.4617e-01_rb,1.1821e+00_rb, &
+     &1.4178e+00_rb,1.6541e+00_rb,1.8914e+00_rb/)
+      kao(:, 4, 4,12) = (/ &
+     &3.9855e-01_rb,5.8348e-01_rb,8.2078e-01_rb,9.3830e-01_rb,1.1490e+00_rb,1.4352e+00_rb, &
+     &1.7207e+00_rb,2.0041e+00_rb,2.2963e+00_rb/)
+      kao(:, 5, 4,12) = (/ &
+     &4.7570e-01_rb,6.9415e-01_rb,9.5472e-01_rb,1.0922e+00_rb,1.3776e+00_rb,1.7196e+00_rb, &
+     &2.0594e+00_rb,2.3902e+00_rb,2.7528e+00_rb/)
+      kao(:, 1, 5,12) = (/ &
+     &3.3247e-01_rb,3.9594e-01_rb,4.9056e-01_rb,5.8813e-01_rb,6.5607e-01_rb,6.8035e-01_rb, &
+     &7.9032e-01_rb,9.1840e-01_rb,1.0557e+00_rb/)
+      kao(:, 2, 5,12) = (/ &
+     &4.4282e-01_rb,5.1203e-01_rb,6.4486e-01_rb,7.7152e-01_rb,8.4090e-01_rb,8.6628e-01_rb, &
+     &1.0179e+00_rb,1.1841e+00_rb,1.3589e+00_rb/)
+      kao(:, 3, 5,12) = (/ &
+     &5.6912e-01_rb,6.3900e-01_rb,8.2247e-01_rb,9.6727e-01_rb,1.0369e+00_rb,1.0698e+00_rb, &
+     &1.2706e+00_rb,1.4785e+00_rb,1.6959e+00_rb/)
+      kao(:, 4, 5,12) = (/ &
+     &7.0931e-01_rb,7.8069e-01_rb,1.0153e+00_rb,1.1726e+00_rb,1.2423e+00_rb,1.3043e+00_rb, &
+     &1.5604e+00_rb,1.8146e+00_rb,2.0829e+00_rb/)
+      kao(:, 5, 5,12) = (/ &
+     &8.5949e-01_rb,9.3825e-01_rb,1.2105e+00_rb,1.3829e+00_rb,1.4592e+00_rb,1.5748e+00_rb, &
+     &1.8870e+00_rb,2.1938e+00_rb,2.5189e+00_rb/)
+      kao(:, 1, 6,12) = (/ &
+     &5.2509e-01_rb,5.1721e-01_rb,5.7378e-01_rb,6.3384e-01_rb,6.9692e-01_rb,7.3419e-01_rb, &
+     &7.1864e-01_rb,7.9317e-01_rb,9.0866e-01_rb/)
+      kao(:, 2, 6,12) = (/ &
+     &7.0957e-01_rb,6.9625e-01_rb,7.6638e-01_rb,8.5821e-01_rb,9.3314e-01_rb,9.6244e-01_rb, &
+     &9.2911e-01_rb,1.0410e+00_rb,1.1915e+00_rb/)
+      kao(:, 3, 6,12) = (/ &
+     &9.2892e-01_rb,9.0647e-01_rb,9.9421e-01_rb,1.1180e+00_rb,1.1912e+00_rb,1.2074e+00_rb, &
+     &1.1606e+00_rb,1.3214e+00_rb,1.5144e+00_rb/)
+      kao(:, 4, 6,12) = (/ &
+     &1.1749e+00_rb,1.1432e+00_rb,1.2560e+00_rb,1.3977e+00_rb,1.4686e+00_rb,1.4691e+00_rb, &
+     &1.4281e+00_rb,1.6462e+00_rb,1.8876e+00_rb/)
+      kao(:, 5, 6,12) = (/ &
+     &1.4442e+00_rb,1.4016e+00_rb,1.5480e+00_rb,1.6922e+00_rb,1.7621e+00_rb,1.7564e+00_rb, &
+     &1.7321e+00_rb,2.0105e+00_rb,2.3048e+00_rb/)
+      kao(:, 1, 7,12) = (/ &
+     &9.1849e-01_rb,8.0624e-01_rb,7.9050e-01_rb,7.5675e-01_rb,7.6178e-01_rb,7.8133e-01_rb, &
+     &7.7608e-01_rb,6.9116e-01_rb,7.7991e-01_rb/)
+      kao(:, 2, 7,12) = (/ &
+     &1.2413e+00_rb,1.0918e+00_rb,1.0769e+00_rb,1.0420e+00_rb,1.0608e+00_rb,1.0726e+00_rb, &
+     &1.0404e+00_rb,9.1318e-01_rb,1.0358e+00_rb/)
+      kao(:, 3, 7,12) = (/ &
+     &1.6444e+00_rb,1.4500e+00_rb,1.4209e+00_rb,1.3929e+00_rb,1.4200e+00_rb,1.3992e+00_rb, &
+     &1.3321e+00_rb,1.1740e+00_rb,1.3388e+00_rb/)
+      kao(:, 4, 7,12) = (/ &
+     &2.1122e+00_rb,1.8669e+00_rb,1.8040e+00_rb,1.8049e+00_rb,1.8188e+00_rb,1.7570e+00_rb, &
+     &1.6501e+00_rb,1.4861e+00_rb,1.6989e+00_rb/)
+      kao(:, 5, 7,12) = (/ &
+     &2.6250e+00_rb,2.3265e+00_rb,2.2289e+00_rb,2.2673e+00_rb,2.2456e+00_rb,2.1426e+00_rb, &
+     &2.0040e+00_rb,1.8373e+00_rb,2.0997e+00_rb/)
+      kao(:, 1, 8,12) = (/ &
+     &1.9827e+00_rb,1.7349e+00_rb,1.4981e+00_rb,1.3371e+00_rb,1.1453e+00_rb,9.6602e-01_rb, &
+     &8.7309e-01_rb,7.7254e-01_rb,6.6571e-01_rb/)
+      kao(:, 2, 8,12) = (/ &
+     &2.7151e+00_rb,2.3758e+00_rb,2.0507e+00_rb,1.8313e+00_rb,1.5691e+00_rb,1.3551e+00_rb, &
+     &1.2325e+00_rb,1.0537e+00_rb,8.9966e-01_rb/)
+      kao(:, 3, 8,12) = (/ &
+     &3.5997e+00_rb,3.1499e+00_rb,2.7291e+00_rb,2.4373e+00_rb,2.1034e+00_rb,1.8593e+00_rb, &
+     &1.6579e+00_rb,1.3773e+00_rb,1.1789e+00_rb/)
+      kao(:, 4, 8,12) = (/ &
+     &4.6665e+00_rb,4.0832e+00_rb,3.5519e+00_rb,3.1544e+00_rb,2.7468e+00_rb,2.4617e+00_rb, &
+     &2.1388e+00_rb,1.7464e+00_rb,1.5079e+00_rb/)
+      kao(:, 5, 8,12) = (/ &
+     &5.8669e+00_rb,5.1335e+00_rb,4.4792e+00_rb,3.9559e+00_rb,3.4817e+00_rb,3.1241e+00_rb, &
+     &2.6649e+00_rb,2.1629e+00_rb,1.8732e+00_rb/)
+      kao(:, 1, 9,12) = (/ &
+     &8.0387e+00_rb,7.0340e+00_rb,6.0293e+00_rb,5.0245e+00_rb,4.0196e+00_rb,3.0957e+00_rb, &
+     &2.1773e+00_rb,1.2357e+00_rb,4.2050e-01_rb/)
+      kao(:, 2, 9,12) = (/ &
+     &1.1280e+01_rb,9.8705e+00_rb,8.4601e+00_rb,7.0501e+00_rb,5.6402e+00_rb,4.3334e+00_rb, &
+     &3.0492e+00_rb,1.7467e+00_rb,4.6837e-01_rb/)
+      kao(:, 3, 9,12) = (/ &
+     &1.5202e+01_rb,1.3302e+01_rb,1.1401e+01_rb,9.5008e+00_rb,7.6009e+00_rb,5.8446e+00_rb, &
+     &4.1033e+00_rb,2.4072e+00_rb,9.0067e-01_rb/)
+      kao(:, 4, 9,12) = (/ &
+     &1.9804e+01_rb,1.7328e+01_rb,1.4853e+01_rb,1.2377e+01_rb,9.9040e+00_rb,7.6319e+00_rb, &
+     &5.3589e+00_rb,3.2206e+00_rb,1.3277e+00_rb/)
+      kao(:, 5, 9,12) = (/ &
+     &2.5091e+01_rb,2.1955e+01_rb,1.8819e+01_rb,1.5683e+01_rb,1.2554e+01_rb,9.6970e+00_rb, &
+     &6.8190e+00_rb,4.1412e+00_rb,1.6570e+00_rb/)
+      kao(:, 1,10,12) = (/ &
+     &3.6853e+01_rb,3.2247e+01_rb,2.7641e+01_rb,2.3035e+01_rb,1.8427e+01_rb,1.3820e+01_rb, &
+     &9.2142e+00_rb,4.7017e+00_rb,5.2096e-01_rb/)
+      kao(:, 2,10,12) = (/ &
+     &5.2866e+01_rb,4.6255e+01_rb,3.9648e+01_rb,3.3040e+01_rb,2.6431e+01_rb,1.9825e+01_rb, &
+     &1.3217e+01_rb,6.7223e+00_rb,8.5705e-01_rb/)
+      kao(:, 3,10,12) = (/ &
+     &7.2440e+01_rb,6.3382e+01_rb,5.4326e+01_rb,4.5272e+01_rb,3.6218e+01_rb,2.7164e+01_rb, &
+     &1.8108e+01_rb,9.2103e+00_rb,9.7984e-01_rb/)
+      kao(:, 4,10,12) = (/ &
+     &9.5327e+01_rb,8.3414e+01_rb,7.1501e+01_rb,5.9582e+01_rb,4.7667e+01_rb,3.5750e+01_rb, &
+     &2.3834e+01_rb,1.2146e+01_rb,1.1774e+00_rb/)
+      kao(:, 5,10,12) = (/ &
+     &1.2143e+02_rb,1.0625e+02_rb,9.1069e+01_rb,7.5889e+01_rb,6.0713e+01_rb,4.5537e+01_rb, &
+     &3.0358e+01_rb,1.5516e+01_rb,1.3416e+00_rb/)
+      kao(:, 1,11,12) = (/ &
+     &6.9348e+01_rb,6.0680e+01_rb,5.2012e+01_rb,4.3342e+01_rb,3.4673e+01_rb,2.6006e+01_rb, &
+     &1.7338e+01_rb,8.6702e+00_rb,3.0466e-01_rb/)
+      kao(:, 2,11,12) = (/ &
+     &9.9352e+01_rb,8.6930e+01_rb,7.4511e+01_rb,6.2093e+01_rb,4.9676e+01_rb,3.7257e+01_rb, &
+     &2.4839e+01_rb,1.2419e+01_rb,6.8510e-01_rb/)
+      kao(:, 3,11,12) = (/ &
+     &1.3563e+02_rb,1.1868e+02_rb,1.0173e+02_rb,8.4769e+01_rb,6.7818e+01_rb,5.0866e+01_rb, &
+     &3.3908e+01_rb,1.6957e+01_rb,1.0467e+00_rb/)
+      kao(:, 4,11,12) = (/ &
+     &1.7753e+02_rb,1.5535e+02_rb,1.3315e+02_rb,1.1096e+02_rb,8.8765e+01_rb,6.6576e+01_rb, &
+     &4.4384e+01_rb,2.2206e+01_rb,1.3289e+00_rb/)
+      kao(:, 5,11,12) = (/ &
+     &2.2508e+02_rb,1.9694e+02_rb,1.6881e+02_rb,1.4068e+02_rb,1.1255e+02_rb,8.4405e+01_rb, &
+     &5.6267e+01_rb,2.8168e+01_rb,1.6371e+00_rb/)
+      kao(:, 1,12,12) = (/ &
+     &9.5815e+01_rb,8.3836e+01_rb,7.1860e+01_rb,5.9885e+01_rb,4.7907e+01_rb,3.5931e+01_rb, &
+     &2.3953e+01_rb,1.1977e+01_rb,2.4035e-01_rb/)
+      kao(:, 2,12,12) = (/ &
+     &1.3694e+02_rb,1.1982e+02_rb,1.0270e+02_rb,8.5588e+01_rb,6.8468e+01_rb,5.1352e+01_rb, &
+     &3.4234e+01_rb,1.7118e+01_rb,5.7126e-01_rb/)
+      kao(:, 3,12,12) = (/ &
+     &1.8607e+02_rb,1.6282e+02_rb,1.3956e+02_rb,1.1630e+02_rb,9.3038e+01_rb,6.9781e+01_rb, &
+     &4.6518e+01_rb,2.3259e+01_rb,8.8813e-01_rb/)
+      kao(:, 4,12,12) = (/ &
+     &2.4268e+02_rb,2.1235e+02_rb,1.8201e+02_rb,1.5168e+02_rb,1.2134e+02_rb,9.1010e+01_rb, &
+     &6.0670e+01_rb,3.0335e+01_rb,1.1237e+00_rb/)
+      kao(:, 5,12,12) = (/ &
+     &3.0642e+02_rb,2.6813e+02_rb,2.2982e+02_rb,1.9152e+02_rb,1.5322e+02_rb,1.1491e+02_rb, &
+     &7.6606e+01_rb,3.8310e+01_rb,1.5308e+00_rb/)
+      kao(:, 1,13,12) = (/ &
+     &1.0396e+02_rb,9.0973e+01_rb,7.7973e+01_rb,6.4982e+01_rb,5.1984e+01_rb,3.8991e+01_rb, &
+     &2.5992e+01_rb,1.3003e+01_rb,2.8896e-01_rb/)
+      kao(:, 2,13,12) = (/ &
+     &1.4817e+02_rb,1.2965e+02_rb,1.1113e+02_rb,9.2604e+01_rb,7.4089e+01_rb,5.5562e+01_rb, &
+     &3.7043e+01_rb,1.8523e+01_rb,6.4071e-01_rb/)
+      kao(:, 3,13,12) = (/ &
+     &2.0056e+02_rb,1.7549e+02_rb,1.5042e+02_rb,1.2535e+02_rb,1.0028e+02_rb,7.5210e+01_rb, &
+     &5.0138e+01_rb,2.5080e+01_rb,7.6073e-01_rb/)
+      kao(:, 4,13,12) = (/ &
+     &2.6107e+02_rb,2.2842e+02_rb,1.9581e+02_rb,1.6317e+02_rb,1.3054e+02_rb,9.7901e+01_rb, &
+     &6.5267e+01_rb,3.2665e+01_rb,1.0550e+00_rb/)
+      kao(:, 5,13,12) = (/ &
+     &3.2818e+02_rb,2.8717e+02_rb,2.4613e+02_rb,2.0512e+02_rb,1.6409e+02_rb,1.2307e+02_rb, &
+     &8.2040e+01_rb,4.1093e+01_rb,1.4069e+00_rb/)
+      kao(:, 1, 1,13) = (/ &
+     &8.9189e-02_rb,2.7547e-01_rb,5.4755e-01_rb,8.1466e-01_rb,1.0734e+00_rb,1.3167e+00_rb, &
+     &1.5262e+00_rb,1.6545e+00_rb,2.1467e+00_rb/)
+      kao(:, 2, 1,13) = (/ &
+     &1.0564e-01_rb,3.3448e-01_rb,6.6333e-01_rb,9.8354e-01_rb,1.2897e+00_rb,1.5719e+00_rb, &
+     &1.8097e+00_rb,1.9474e+00_rb,2.5794e+00_rb/)
+      kao(:, 3, 1,13) = (/ &
+     &1.2232e-01_rb,4.0251e-01_rb,7.9745e-01_rb,1.1809e+00_rb,1.5463e+00_rb,1.8798e+00_rb, &
+     &2.1512e+00_rb,2.2853e+00_rb,3.0925e+00_rb/)
+      kao(:, 4, 1,13) = (/ &
+     &1.3906e-01_rb,4.8151e-01_rb,9.5370e-01_rb,1.4117e+00_rb,1.8477e+00_rb,2.2440e+00_rb, &
+     &2.5627e+00_rb,2.7054e+00_rb,3.6953e+00_rb/)
+      kao(:, 5, 1,13) = (/ &
+     &1.5537e-01_rb,5.6891e-01_rb,1.1282e+00_rb,1.6723e+00_rb,2.1918e+00_rb,2.6654e+00_rb, &
+     &3.0480e+00_rb,3.1989e+00_rb,4.3834e+00_rb/)
+      kao(:, 1, 2,13) = (/ &
+     &1.2651e-01_rb,2.7511e-01_rb,5.4811e-01_rb,8.1792e-01_rb,1.0822e+00_rb,1.3369e+00_rb, &
+     &1.5702e+00_rb,1.7388e+00_rb,2.1643e+00_rb/)
+      kao(:, 2, 2,13) = (/ &
+     &1.5153e-01_rb,3.4384e-01_rb,6.8417e-01_rb,1.0197e+00_rb,1.3466e+00_rb,1.6574e+00_rb, &
+     &1.9318e+00_rb,2.0933e+00_rb,2.6930e+00_rb/)
+      kao(:, 3, 2,13) = (/ &
+     &1.7716e-01_rb,4.2323e-01_rb,8.4160e-01_rb,1.2530e+00_rb,1.6525e+00_rb,2.0285e+00_rb, &
+     &2.3523e+00_rb,2.5052e+00_rb,3.3049e+00_rb/)
+      kao(:, 4, 2,13) = (/ &
+     &2.0304e-01_rb,5.0914e-01_rb,1.0128e+00_rb,1.5083e+00_rb,1.9894e+00_rb,2.4425e+00_rb, &
+     &2.8273e+00_rb,2.9947e+00_rb,3.9785e+00_rb/)
+      kao(:, 5, 2,13) = (/ &
+     &2.2856e-01_rb,5.9708e-01_rb,1.1882e+00_rb,1.7705e+00_rb,2.3375e+00_rb,2.8753e+00_rb, &
+     &3.3417e+00_rb,3.5598e+00_rb,4.6746e+00_rb/)
+      kao(:, 1, 3,13) = (/ &
+     &2.3155e-01_rb,3.6106e-01_rb,5.1524e-01_rb,7.7074e-01_rb,1.0237e+00_rb,1.2717e+00_rb, &
+     &1.5079e+00_rb,1.7067e+00_rb,2.0474e+00_rb/)
+      kao(:, 2, 3,13) = (/ &
+     &2.8222e-01_rb,4.3122e-01_rb,6.6114e-01_rb,9.8854e-01_rb,1.3120e+00_rb,1.6278e+00_rb, &
+     &1.9248e+00_rb,2.1616e+00_rb,2.6238e+00_rb/)
+      kao(:, 3, 3,13) = (/ &
+     &3.3490e-01_rb,5.0925e-01_rb,8.3049e-01_rb,1.2417e+00_rb,1.6476e+00_rb,2.0430e+00_rb, &
+     &2.4133e+00_rb,2.6954e+00_rb,3.2949e+00_rb/)
+      kao(:, 4, 3,13) = (/ &
+     &3.8898e-01_rb,5.9951e-01_rb,1.0132e+00_rb,1.5151e+00_rb,2.0114e+00_rb,2.4964e+00_rb, &
+     &2.9531e+00_rb,3.3043e+00_rb,4.0224e+00_rb/)
+      kao(:, 5, 3,13) = (/ &
+     &4.4295e-01_rb,6.9228e-01_rb,1.1941e+00_rb,1.7863e+00_rb,2.3719e+00_rb,2.9449e+00_rb, &
+     &3.4879e+00_rb,3.9170e+00_rb,4.7434e+00_rb/)
+      kao(:, 1, 4,13) = (/ &
+     &4.2438e-01_rb,5.0777e-01_rb,6.1519e-01_rb,7.0596e-01_rb,9.3438e-01_rb,1.1645e+00_rb, &
+     &1.3892e+00_rb,1.5946e+00_rb,1.8686e+00_rb/)
+      kao(:, 2, 4,13) = (/ &
+     &5.2911e-01_rb,6.2653e-01_rb,7.5903e-01_rb,9.2591e-01_rb,1.2320e+00_rb,1.5352e+00_rb, &
+     &1.8307e+00_rb,2.0955e+00_rb,2.4637e+00_rb/)
+      kao(:, 3, 4,13) = (/ &
+     &6.3945e-01_rb,7.5086e-01_rb,9.2902e-01_rb,1.1816e+00_rb,1.5728e+00_rb,1.9600e+00_rb, &
+     &2.3380e+00_rb,2.6793e+00_rb,3.1453e+00_rb/)
+      kao(:, 4, 4,13) = (/ &
+     &7.5432e-01_rb,8.7946e-01_rb,1.1073e+00_rb,1.4569e+00_rb,1.9394e+00_rb,2.4183e+00_rb, &
+     &2.8875e+00_rb,3.3173e+00_rb,3.8782e+00_rb/)
+      kao(:, 5, 4,13) = (/ &
+     &8.7134e-01_rb,1.0123e+00_rb,1.2829e+00_rb,1.7403e+00_rb,2.3172e+00_rb,2.8902e+00_rb, &
+     &3.4528e+00_rb,3.9744e+00_rb,4.6335e+00_rb/)
+      kao(:, 1, 5,13) = (/ &
+     &7.1207e-01_rb,6.8711e-01_rb,8.3241e-01_rb,8.6529e-01_rb,8.8550e-01_rb,1.0406e+00_rb, &
+     &1.2451e+00_rb,1.4407e+00_rb,1.6670e+00_rb/)
+      kao(:, 2, 5,13) = (/ &
+     &9.0944e-01_rb,8.8418e-01_rb,1.0384e+00_rb,1.0957e+00_rb,1.1610e+00_rb,1.4029e+00_rb, &
+     &1.6788e+00_rb,1.9429e+00_rb,2.2472e+00_rb/)
+      kao(:, 3, 5,13) = (/ &
+     &1.1217e+00_rb,1.1051e+00_rb,1.2550e+00_rb,1.3677e+00_rb,1.4770e+00_rb,1.8154e+00_rb, &
+     &2.1738e+00_rb,2.5182e+00_rb,2.9077e+00_rb/)
+      kao(:, 4, 5,13) = (/ &
+     &1.3460e+00_rb,1.3429e+00_rb,1.4887e+00_rb,1.6567e+00_rb,1.8206e+00_rb,2.2609e+00_rb, &
+     &2.7082e+00_rb,3.1425e+00_rb,3.6199e+00_rb/)
+      kao(:, 5, 5,13) = (/ &
+     &1.5795e+00_rb,1.5881e+00_rb,1.7517e+00_rb,1.9324e+00_rb,2.1859e+00_rb,2.7284e+00_rb, &
+     &3.2694e+00_rb,3.7971e+00_rb,4.3676e+00_rb/)
+      kao(:, 1, 6,13) = (/ &
+     &1.1023e+00_rb,9.7526e-01_rb,1.0617e+00_rb,1.1008e+00_rb,1.0651e+00_rb,1.0178e+00_rb, &
+     &1.0836e+00_rb,1.2590e+00_rb,1.4474e+00_rb/)
+      kao(:, 2, 6,13) = (/ &
+     &1.4464e+00_rb,1.2819e+00_rb,1.3748e+00_rb,1.4078e+00_rb,1.3857e+00_rb,1.3476e+00_rb, &
+     &1.4882e+00_rb,1.7304e+00_rb,1.9875e+00_rb/)
+      kao(:, 3, 6,13) = (/ &
+     &1.8308e+00_rb,1.6242e+00_rb,1.7155e+00_rb,1.7456e+00_rb,1.7675e+00_rb,1.7237e+00_rb, &
+     &1.9554e+00_rb,2.2760e+00_rb,2.6094e+00_rb/)
+      kao(:, 4, 6,13) = (/ &
+     &2.2453e+00_rb,1.9975e+00_rb,2.0781e+00_rb,2.1295e+00_rb,2.1828e+00_rb,2.1327e+00_rb, &
+     &2.4652e+00_rb,2.8713e+00_rb,3.2893e+00_rb/)
+      kao(:, 5, 6,13) = (/ &
+     &2.6836e+00_rb,2.3986e+00_rb,2.4577e+00_rb,2.5567e+00_rb,2.5877e+00_rb,2.5663e+00_rb, &
+     &3.0104e+00_rb,3.5064e+00_rb,4.0161e+00_rb/)
+      kao(:, 1, 7,13) = (/ &
+     &1.7788e+00_rb,1.5565e+00_rb,1.4296e+00_rb,1.4541e+00_rb,1.3809e+00_rb,1.2482e+00_rb, &
+     &1.1009e+00_rb,1.0852e+00_rb,1.2442e+00_rb/)
+      kao(:, 2, 7,13) = (/ &
+     &2.4100e+00_rb,2.1089e+00_rb,1.9246e+00_rb,1.9363e+00_rb,1.8185e+00_rb,1.6636e+00_rb, &
+     &1.4819e+00_rb,1.5124e+00_rb,1.7324e+00_rb/)
+      kao(:, 3, 7,13) = (/ &
+     &3.1319e+00_rb,2.7405e+00_rb,2.5003e+00_rb,2.4636e+00_rb,2.3111e+00_rb,2.1652e+00_rb, &
+     &1.9114e+00_rb,2.0080e+00_rb,2.2982e+00_rb/)
+      kao(:, 4, 7,13) = (/ &
+     &3.9360e+00_rb,3.4440e+00_rb,3.1598e+00_rb,3.0372e+00_rb,2.8747e+00_rb,2.7334e+00_rb, &
+     &2.3814e+00_rb,2.5579e+00_rb,2.9254e+00_rb/)
+      kao(:, 5, 7,13) = (/ &
+     &4.8010e+00_rb,4.2009e+00_rb,3.8764e+00_rb,3.6526e+00_rb,3.5065e+00_rb,3.3078e+00_rb, &
+     &2.8824e+00_rb,3.1625e+00_rb,3.6156e+00_rb/)
+      kao(:, 1, 8,13) = (/ &
+     &3.4656e+00_rb,3.0324e+00_rb,2.5993e+00_rb,2.2536e+00_rb,2.0768e+00_rb,1.8323e+00_rb, &
+     &1.4794e+00_rb,1.1100e+00_rb,1.0719e+00_rb/)
+      kao(:, 2, 8,13) = (/ &
+     &4.7953e+00_rb,4.1960e+00_rb,3.5964e+00_rb,3.1195e+00_rb,2.8558e+00_rb,2.4960e+00_rb, &
+     &2.0234e+00_rb,1.5264e+00_rb,1.5151e+00_rb/)
+      kao(:, 3, 8,13) = (/ &
+     &6.4119e+00_rb,5.6106e+00_rb,4.8091e+00_rb,4.1637e+00_rb,3.7658e+00_rb,3.2529e+00_rb, &
+     &2.6777e+00_rb,1.9921e+00_rb,2.0306e+00_rb/)
+      kao(:, 4, 8,13) = (/ &
+     &8.2532e+00_rb,7.2211e+00_rb,6.1898e+00_rb,5.3688e+00_rb,4.7948e+00_rb,4.1025e+00_rb, &
+     &3.4458e+00_rb,2.5062e+00_rb,2.6143e+00_rb/)
+      kao(:, 5, 8,13) = (/ &
+     &1.0283e+01_rb,8.9971e+00_rb,7.7118e+00_rb,6.7087e+00_rb,5.9163e+00_rb,5.0630e+00_rb, &
+     &4.2877e+00_rb,3.0597e+00_rb,3.2702e+00_rb/)
+      kao(:, 1, 9,13) = (/ &
+     &1.3039e+01_rb,1.1409e+01_rb,9.7786e+00_rb,8.1486e+00_rb,6.5192e+00_rb,4.9000e+00_rb, &
+     &3.5526e+00_rb,2.2083e+00_rb,6.1249e-01_rb/)
+      kao(:, 2, 9,13) = (/ &
+     &1.8190e+01_rb,1.5916e+01_rb,1.3643e+01_rb,1.1369e+01_rb,9.0953e+00_rb,6.8331e+00_rb, &
+     &4.9544e+00_rb,3.0917e+00_rb,1.3174e+00_rb/)
+      kao(:, 3, 9,13) = (/ &
+     &2.4717e+01_rb,2.1628e+01_rb,1.8538e+01_rb,1.5449e+01_rb,1.2359e+01_rb,9.2996e+00_rb, &
+     &6.7414e+00_rb,4.1578e+00_rb,1.7841e+00_rb/)
+      kao(:, 4, 9,13) = (/ &
+     &3.2573e+01_rb,2.8503e+01_rb,2.4432e+01_rb,2.0359e+01_rb,1.6288e+01_rb,1.2267e+01_rb, &
+     &8.8606e+00_rb,5.4011e+00_rb,2.3241e+00_rb/)
+      kao(:, 5, 9,13) = (/ &
+     &4.1562e+01_rb,3.6368e+01_rb,3.1173e+01_rb,2.5977e+01_rb,2.0781e+01_rb,1.5678e+01_rb, &
+     &1.1261e+01_rb,6.8301e+00_rb,2.9541e+00_rb/)
+      kao(:, 1,10,13) = (/ &
+     &5.7951e+01_rb,5.0708e+01_rb,4.3464e+01_rb,3.6220e+01_rb,2.8976e+01_rb,2.1732e+01_rb, &
+     &1.4488e+01_rb,7.2520e+00_rb,5.6538e-01_rb/)
+      kao(:, 2,10,13) = (/ &
+     &8.1306e+01_rb,7.1141e+01_rb,6.0979e+01_rb,5.0813e+01_rb,4.0652e+01_rb,3.0489e+01_rb, &
+     &2.0326e+01_rb,1.0163e+01_rb,6.5761e-01_rb/)
+      kao(:, 3,10,13) = (/ &
+     &1.1158e+02_rb,9.7625e+01_rb,8.3679e+01_rb,6.9730e+01_rb,5.5786e+01_rb,4.1839e+01_rb, &
+     &2.7893e+01_rb,1.3953e+01_rb,1.0530e+00_rb/)
+      kao(:, 4,10,13) = (/ &
+     &1.4877e+02_rb,1.3018e+02_rb,1.1158e+02_rb,9.2984e+01_rb,7.4388e+01_rb,5.5791e+01_rb, &
+     &3.7194e+01_rb,1.8619e+01_rb,1.0469e+00_rb/)
+      kao(:, 5,10,13) = (/ &
+     &1.9259e+02_rb,1.6851e+02_rb,1.4444e+02_rb,1.2037e+02_rb,9.6298e+01_rb,7.2222e+01_rb, &
+     &4.8145e+01_rb,2.4115e+01_rb,9.0336e-01_rb/)
+      kao(:, 1,11,13) = (/ &
+     &1.0724e+02_rb,9.3834e+01_rb,8.0425e+01_rb,6.7028e+01_rb,5.3621e+01_rb,4.0215e+01_rb, &
+     &2.6808e+01_rb,1.3405e+01_rb,7.5947e-01_rb/)
+      kao(:, 2,11,13) = (/ &
+     &1.5135e+02_rb,1.3244e+02_rb,1.1352e+02_rb,9.4596e+01_rb,7.5677e+01_rb,5.6758e+01_rb, &
+     &3.7839e+01_rb,1.8919e+01_rb,7.7568e-01_rb/)
+      kao(:, 3,11,13) = (/ &
+     &2.0634e+02_rb,1.8056e+02_rb,1.5476e+02_rb,1.2896e+02_rb,1.0317e+02_rb,7.7384e+01_rb, &
+     &5.1587e+01_rb,2.5792e+01_rb,1.1446e+00_rb/)
+      kao(:, 4,11,13) = (/ &
+     &2.7388e+02_rb,2.3963e+02_rb,2.0540e+02_rb,1.7116e+02_rb,1.3692e+02_rb,1.0270e+02_rb, &
+     &6.8464e+01_rb,3.4233e+01_rb,1.4967e+00_rb/)
+      kao(:, 5,11,13) = (/ &
+     &3.5254e+02_rb,3.0844e+02_rb,2.6442e+02_rb,2.2035e+02_rb,1.7628e+02_rb,1.3220e+02_rb, &
+     &8.8134e+01_rb,4.4067e+01_rb,1.3951e+00_rb/)
+      kao(:, 1,12,13) = (/ &
+     &1.4929e+02_rb,1.3063e+02_rb,1.1197e+02_rb,9.3306e+01_rb,7.4648e+01_rb,5.5984e+01_rb, &
+     &3.7322e+01_rb,1.8661e+01_rb,7.7179e-01_rb/)
+      kao(:, 2,12,13) = (/ &
+     &2.1213e+02_rb,1.8562e+02_rb,1.5909e+02_rb,1.3258e+02_rb,1.0606e+02_rb,7.9546e+01_rb, &
+     &5.3033e+01_rb,2.6517e+01_rb,8.3102e-01_rb/)
+      kao(:, 3,12,13) = (/ &
+     &2.8848e+02_rb,2.5242e+02_rb,2.1635e+02_rb,1.8030e+02_rb,1.4425e+02_rb,1.0818e+02_rb, &
+     &7.2116e+01_rb,3.6059e+01_rb,1.2769e+00_rb/)
+      kao(:, 4,12,13) = (/ &
+     &3.7976e+02_rb,3.3226e+02_rb,2.8481e+02_rb,2.3733e+02_rb,1.8986e+02_rb,1.4240e+02_rb, &
+     &9.4932e+01_rb,4.7464e+01_rb,1.6812e+00_rb/)
+      kao(:, 5,12,13) = (/ &
+     &4.8508e+02_rb,4.2444e+02_rb,3.6380e+02_rb,3.0318e+02_rb,2.4253e+02_rb,1.8190e+02_rb, &
+     &1.2127e+02_rb,6.0633e+01_rb,1.6837e+00_rb/)
+      kao(:, 1,13,13) = (/ &
+     &1.6844e+02_rb,1.4739e+02_rb,1.2633e+02_rb,1.0528e+02_rb,8.4219e+01_rb,6.3167e+01_rb, &
+     &4.2110e+01_rb,2.1055e+01_rb,6.4746e-01_rb/)
+      kao(:, 2,13,13) = (/ &
+     &2.3974e+02_rb,2.0978e+02_rb,1.7981e+02_rb,1.4983e+02_rb,1.1987e+02_rb,8.9901e+01_rb, &
+     &5.9937e+01_rb,2.9967e+01_rb,7.7977e-01_rb/)
+      kao(:, 3,13,13) = (/ &
+     &3.2617e+02_rb,2.8540e+02_rb,2.4462e+02_rb,2.0386e+02_rb,1.6309e+02_rb,1.2231e+02_rb, &
+     &8.1544e+01_rb,4.0770e+01_rb,1.5118e+00_rb/)
+      kao(:, 4,13,13) = (/ &
+     &4.2665e+02_rb,3.7332e+02_rb,3.1999e+02_rb,2.6667e+02_rb,2.1333e+02_rb,1.5999e+02_rb, &
+     &1.0667e+02_rb,5.3332e+01_rb,1.6652e+00_rb/)
+      kao(:, 5,13,13) = (/ &
+     &5.4098e+02_rb,4.7336e+02_rb,4.0573e+02_rb,3.3811e+02_rb,2.7048e+02_rb,2.0286e+02_rb, &
+     &1.3525e+02_rb,6.7619e+01_rb,1.7274e+00_rb/)
+      kao(:, 1, 1,14) = (/ &
+     &1.4473e-01_rb,4.5196e-01_rb,8.9698e-01_rb,1.3316e+00_rb,1.7483e+00_rb,2.1329e+00_rb, &
+     &2.4492e+00_rb,2.5366e+00_rb,3.4967e+00_rb/)
+      kao(:, 2, 1,14) = (/ &
+     &1.6846e-01_rb,5.5554e-01_rb,1.1039e+00_rb,1.6417e+00_rb,2.1611e+00_rb,2.6456e+00_rb, &
+     &3.0463e+00_rb,3.1695e+00_rb,4.3222e+00_rb/)
+      kao(:, 3, 1,14) = (/ &
+     &1.9174e-01_rb,6.6749e-01_rb,1.3276e+00_rb,1.9756e+00_rb,2.6027e+00_rb,3.1886e+00_rb, &
+     &3.6789e+00_rb,3.8433e+00_rb,5.2055e+00_rb/)
+      kao(:, 4, 1,14) = (/ &
+     &2.1490e-01_rb,7.8476e-01_rb,1.5609e+00_rb,2.3233e+00_rb,3.0639e+00_rb,3.7563e+00_rb, &
+     &4.3396e+00_rb,4.5493e+00_rb,6.1279e+00_rb/)
+      kao(:, 5, 1,14) = (/ &
+     &2.3691e-01_rb,9.0765e-01_rb,1.8042e+00_rb,2.6834e+00_rb,3.5348e+00_rb,4.3362e+00_rb, &
+     &5.0160e+00_rb,5.2774e+00_rb,7.0696e+00_rb/)
+      kao(:, 1, 2,14) = (/ &
+     &2.1296e-01_rb,4.6215e-01_rb,9.1984e-01_rb,1.3706e+00_rb,1.8091e+00_rb,2.2245e+00_rb, &
+     &2.5860e+00_rb,2.7730e+00_rb,3.6182e+00_rb/)
+      kao(:, 2, 2,14) = (/ &
+     &2.5016e-01_rb,5.6432e-01_rb,1.1237e+00_rb,1.6756e+00_rb,2.2151e+00_rb,2.7294e+00_rb, &
+     &3.1864e+00_rb,3.4606e+00_rb,4.4301e+00_rb/)
+      kao(:, 3, 2,14) = (/ &
+     &2.8692e-01_rb,6.7375e-01_rb,1.3425e+00_rb,2.0033e+00_rb,2.6512e+00_rb,3.2743e+00_rb, &
+     &3.8384e+00_rb,4.2145e+00_rb,5.3023e+00_rb/)
+      kao(:, 4, 2,14) = (/ &
+     &3.2327e-01_rb,7.9645e-01_rb,1.5866e+00_rb,2.3669e+00_rb,3.1323e+00_rb,3.8679e+00_rb, &
+     &4.5425e+00_rb,5.0100e+00_rb,6.2645e+00_rb/)
+      kao(:, 5, 2,14) = (/ &
+     &3.5851e-01_rb,9.3518e-01_rb,1.8621e+00_rb,2.7777e+00_rb,3.6730e+00_rb,4.5297e+00_rb, &
+     &5.3029e+00_rb,5.8281e+00_rb,7.3458e+00_rb/)
+      kao(:, 1, 3,14) = (/ &
+     &4.0569e-01_rb,4.7346e-01_rb,9.0139e-01_rb,1.3483e+00_rb,1.7892e+00_rb,2.2204e+00_rb, &
+     &2.6252e+00_rb,2.9358e+00_rb,3.5784e+00_rb/)
+      kao(:, 2, 3,14) = (/ &
+     &4.8357e-01_rb,5.7585e-01_rb,1.1016e+00_rb,1.6482e+00_rb,2.1888e+00_rb,2.7185e+00_rb, &
+     &3.2205e+00_rb,3.6184e+00_rb,4.3777e+00_rb/)
+      kao(:, 3, 3,14) = (/ &
+     &5.6184e-01_rb,6.8539e-01_rb,1.3182e+00_rb,1.9726e+00_rb,2.6206e+00_rb,3.2555e+00_rb, &
+     &3.8616e+00_rb,4.3597e+00_rb,5.2411e+00_rb/)
+      kao(:, 4, 3,14) = (/ &
+     &6.3937e-01_rb,8.0074e-01_rb,1.5659e+00_rb,2.3420e+00_rb,3.1101e+00_rb,3.8617e+00_rb, &
+     &4.5735e+00_rb,5.1595e+00_rb,6.2201e+00_rb/)
+      kao(:, 5, 3,14) = (/ &
+     &7.1542e-01_rb,9.3290e-01_rb,1.8594e+00_rb,2.7803e+00_rb,3.6907e+00_rb,4.5815e+00_rb, &
+     &5.4228e+00_rb,6.0997e+00_rb,7.3811e+00_rb/)
+      kao(:, 1, 4,14) = (/ &
+     &7.7613e-01_rb,7.2482e-01_rb,8.8213e-01_rb,1.2906e+00_rb,1.7174e+00_rb,2.1406e+00_rb, &
+     &2.5536e+00_rb,2.9272e+00_rb,3.4348e+00_rb/)
+      kao(:, 2, 4,14) = (/ &
+     &9.4054e-01_rb,9.0136e-01_rb,1.0781e+00_rb,1.5850e+00_rb,2.1098e+00_rb,2.6295e+00_rb, &
+     &3.1372e+00_rb,3.6020e+00_rb,4.2194e+00_rb/)
+      kao(:, 3, 4,14) = (/ &
+     &1.1095e+00_rb,1.0843e+00_rb,1.2887e+00_rb,1.9170e+00_rb,2.5512e+00_rb,3.1791e+00_rb, &
+     &3.7919e+00_rb,4.3511e+00_rb,5.1021e+00_rb/)
+      kao(:, 4, 4,14) = (/ &
+     &1.2791e+00_rb,1.2603e+00_rb,1.5382e+00_rb,2.3038e+00_rb,3.0649e+00_rb,3.8173e+00_rb, &
+     &4.5513e+00_rb,5.2083e+00_rb,6.1294e+00_rb/)
+      kao(:, 5, 4,14) = (/ &
+     &1.4465e+00_rb,1.4292e+00_rb,1.8362e+00_rb,2.7499e+00_rb,3.6579e+00_rb,4.5561e+00_rb, &
+     &5.4280e+00_rb,6.2050e+00_rb,7.3150e+00_rb/)
+      kao(:, 1, 5,14) = (/ &
+     &1.3553e+00_rb,1.1859e+00_rb,1.1889e+00_rb,1.2820e+00_rb,1.6126e+00_rb,2.0133e+00_rb, &
+     &2.4100e+00_rb,2.7917e+00_rb,3.2251e+00_rb/)
+      kao(:, 2, 5,14) = (/ &
+     &1.6746e+00_rb,1.4653e+00_rb,1.4722e+00_rb,1.5790e+00_rb,2.0132e+00_rb,2.5133e+00_rb, &
+     &3.0071e+00_rb,3.4795e+00_rb,4.0262e+00_rb/)
+      kao(:, 3, 5,14) = (/ &
+     &2.0071e+00_rb,1.7563e+00_rb,1.7644e+00_rb,1.8926e+00_rb,2.4705e+00_rb,3.0826e+00_rb, &
+     &3.6880e+00_rb,4.2630e+00_rb,4.9404e+00_rb/)
+      kao(:, 4, 5,14) = (/ &
+     &2.3461e+00_rb,2.0539e+00_rb,2.0623e+00_rb,2.2628e+00_rb,3.0107e+00_rb,3.7562e+00_rb, &
+     &4.4918e+00_rb,5.1850e+00_rb,6.0203e+00_rb/)
+      kao(:, 5, 5,14) = (/ &
+     &2.6832e+00_rb,2.3569e+00_rb,2.3578e+00_rb,2.7266e+00_rb,3.6306e+00_rb,4.5292e+00_rb, &
+     &5.4146e+00_rb,6.2480e+00_rb,7.2595e+00_rb/)
+      kao(:, 1, 6,14) = (/ &
+     &2.1798e+00_rb,1.9076e+00_rb,1.6634e+00_rb,1.6610e+00_rb,1.6126e+00_rb,1.8086e+00_rb, &
+     &2.1681e+00_rb,2.5212e+00_rb,2.8955e+00_rb/)
+      kao(:, 2, 6,14) = (/ &
+     &2.7568e+00_rb,2.4124e+00_rb,2.1319e+00_rb,2.0890e+00_rb,2.0379e+00_rb,2.3402e+00_rb, &
+     &2.8045e+00_rb,3.2592e+00_rb,3.7464e+00_rb/)
+      kao(:, 3, 6,14) = (/ &
+     &3.3653e+00_rb,2.9447e+00_rb,2.6494e+00_rb,2.5260e+00_rb,2.4774e+00_rb,2.9464e+00_rb, &
+     &3.5300e+00_rb,4.0980e+00_rb,4.7178e+00_rb/)
+      kao(:, 4, 6,14) = (/ &
+     &3.9980e+00_rb,3.4981e+00_rb,3.2081e+00_rb,2.9759e+00_rb,2.9694e+00_rb,3.6441e+00_rb, &
+     &4.3643e+00_rb,5.0633e+00_rb,5.8364e+00_rb/)
+      kao(:, 5, 6,14) = (/ &
+     &4.6371e+00_rb,4.0569e+00_rb,3.7676e+00_rb,3.4231e+00_rb,3.5724e+00_rb,4.4465e+00_rb, &
+     &5.3245e+00_rb,6.1747e+00_rb,7.1186e+00_rb/)
+      kao(:, 1, 7,14) = (/ &
+     &3.6500e+00_rb,3.1940e+00_rb,2.7377e+00_rb,2.3521e+00_rb,2.2005e+00_rb,1.9226e+00_rb, &
+     &1.8951e+00_rb,2.2032e+00_rb,2.5224e+00_rb/)
+      kao(:, 2, 7,14) = (/ &
+     &4.7380e+00_rb,4.1460e+00_rb,3.5535e+00_rb,3.0746e+00_rb,2.8560e+00_rb,2.4862e+00_rb, &
+     &2.5325e+00_rb,2.9498e+00_rb,3.3790e+00_rb/)
+      kao(:, 3, 7,14) = (/ &
+     &5.9099e+00_rb,5.1713e+00_rb,4.4326e+00_rb,3.9038e+00_rb,3.5341e+00_rb,3.0823e+00_rb, &
+     &3.2930e+00_rb,3.8333e+00_rb,4.3949e+00_rb/)
+      kao(:, 4, 7,14) = (/ &
+     &7.1406e+00_rb,6.2480e+00_rb,5.3561e+00_rb,4.7936e+00_rb,4.2290e+00_rb,3.7296e+00_rb, &
+     &4.1867e+00_rb,4.8720e+00_rb,5.5890e+00_rb/)
+      kao(:, 5, 7,14) = (/ &
+     &8.4067e+00_rb,7.3559e+00_rb,6.3050e+00_rb,5.6953e+00_rb,4.9319e+00_rb,4.4981e+00_rb, &
+     &5.2053e+00_rb,6.0551e+00_rb,6.9478e+00_rb/)
+      kao(:, 1, 8,14) = (/ &
+     &7.2793e+00_rb,6.3695e+00_rb,5.4593e+00_rb,4.5496e+00_rb,3.6668e+00_rb,3.0739e+00_rb, &
+     &2.3812e+00_rb,1.8850e+00_rb,2.1414e+00_rb/)
+      kao(:, 2, 8,14) = (/ &
+     &9.7148e+00_rb,8.5004e+00_rb,7.2858e+00_rb,6.0719e+00_rb,4.9067e+00_rb,4.1050e+00_rb, &
+     &3.1504e+00_rb,2.5960e+00_rb,2.9698e+00_rb/)
+      kao(:, 3, 8,14) = (/ &
+     &1.2408e+01_rb,1.0858e+01_rb,9.3058e+00_rb,7.7549e+00_rb,6.3008e+00_rb,5.2586e+00_rb, &
+     &3.9820e+00_rb,3.4865e+00_rb,3.9886e+00_rb/)
+      kao(:, 4, 8,14) = (/ &
+     &1.5301e+01_rb,1.3388e+01_rb,1.1476e+01_rb,9.5632e+00_rb,7.8364e+00_rb,6.4696e+00_rb, &
+     &4.8601e+00_rb,4.5513e+00_rb,5.2081e+00_rb/)
+      kao(:, 5, 8,14) = (/ &
+     &1.8319e+01_rb,1.6029e+01_rb,1.3740e+01_rb,1.1449e+01_rb,9.4798e+00_rb,7.7150e+00_rb, &
+     &5.8215e+00_rb,5.7877e+00_rb,6.6226e+00_rb/)
+      kao(:, 1, 9,14) = (/ &
+     &2.7093e+01_rb,2.3706e+01_rb,2.0321e+01_rb,1.6934e+01_rb,1.3547e+01_rb,1.0161e+01_rb, &
+     &6.7735e+00_rb,3.8947e+00_rb,1.7904e+00_rb/)
+      kao(:, 2, 9,14) = (/ &
+     &3.7356e+01_rb,3.2687e+01_rb,2.8017e+01_rb,2.3347e+01_rb,1.8679e+01_rb,1.4008e+01_rb, &
+     &9.3393e+00_rb,5.3672e+00_rb,2.5563e+00_rb/)
+      kao(:, 3, 9,14) = (/ &
+     &4.9010e+01_rb,4.2883e+01_rb,3.6757e+01_rb,3.0630e+01_rb,2.4505e+01_rb,1.8379e+01_rb, &
+     &1.2257e+01_rb,7.0400e+00_rb,3.5347e+00_rb/)
+      kao(:, 4, 9,14) = (/ &
+     &6.1735e+01_rb,5.4018e+01_rb,4.6300e+01_rb,3.8583e+01_rb,3.0868e+01_rb,2.3150e+01_rb, &
+     &1.5458e+01_rb,8.8071e+00_rb,4.7393e+00_rb/)
+      kao(:, 5, 9,14) = (/ &
+     &7.5284e+01_rb,6.5873e+01_rb,5.6463e+01_rb,4.7052e+01_rb,3.7640e+01_rb,2.8233e+01_rb, &
+     &1.8889e+01_rb,1.0654e+01_rb,6.1635e+00_rb/)
+      kao(:, 1,10,14) = (/ &
+     &1.1501e+02_rb,1.0064e+02_rb,8.6262e+01_rb,7.1883e+01_rb,5.7506e+01_rb,4.3130e+01_rb, &
+     &2.8755e+01_rb,1.4378e+01_rb,5.7116e-01_rb/)
+      kao(:, 2,10,14) = (/ &
+     &1.6323e+02_rb,1.4283e+02_rb,1.2242e+02_rb,1.0202e+02_rb,8.1614e+01_rb,6.1213e+01_rb, &
+     &4.0807e+01_rb,2.0405e+01_rb,4.6944e-01_rb/)
+      kao(:, 3,10,14) = (/ &
+     &2.1950e+02_rb,1.9206e+02_rb,1.6462e+02_rb,1.3718e+02_rb,1.0975e+02_rb,8.2311e+01_rb, &
+     &5.4875e+01_rb,2.7438e+01_rb,1.0245e+00_rb/)
+      kao(:, 4,10,14) = (/ &
+     &2.8264e+02_rb,2.4730e+02_rb,2.1197e+02_rb,1.7666e+02_rb,1.4132e+02_rb,1.0599e+02_rb, &
+     &7.0664e+01_rb,3.5330e+01_rb,2.8560e+00_rb/)
+      kao(:, 5,10,14) = (/ &
+     &3.5102e+02_rb,3.0716e+02_rb,2.6326e+02_rb,2.1939e+02_rb,1.7551e+02_rb,1.3164e+02_rb, &
+     &8.7759e+01_rb,4.3879e+01_rb,5.5928e+00_rb/)
+      kao(:, 1,11,14) = (/ &
+     &2.0513e+02_rb,1.7948e+02_rb,1.5384e+02_rb,1.2821e+02_rb,1.0256e+02_rb,7.6924e+01_rb, &
+     &5.1281e+01_rb,2.5640e+01_rb,9.4489e-01_rb/)
+      kao(:, 2,11,14) = (/ &
+     &2.8915e+02_rb,2.5300e+02_rb,2.1687e+02_rb,1.8072e+02_rb,1.4458e+02_rb,1.0844e+02_rb, &
+     &7.2287e+01_rb,3.6146e+01_rb,1.0101e+00_rb/)
+      kao(:, 3,11,14) = (/ &
+     &3.8981e+02_rb,3.4108e+02_rb,2.9236e+02_rb,2.4364e+02_rb,1.9490e+02_rb,1.4617e+02_rb, &
+     &9.7460e+01_rb,4.8730e+01_rb,5.8913e-01_rb/)
+      kao(:, 4,11,14) = (/ &
+     &5.0429e+02_rb,4.4124e+02_rb,3.7819e+02_rb,3.1515e+02_rb,2.5212e+02_rb,1.8910e+02_rb, &
+     &1.2606e+02_rb,6.3034e+01_rb,1.0227e+00_rb/)
+      kao(:, 5,11,14) = (/ &
+     &6.2985e+02_rb,5.5113e+02_rb,4.7241e+02_rb,3.9368e+02_rb,3.1495e+02_rb,2.3621e+02_rb, &
+     &1.5747e+02_rb,7.8734e+01_rb,3.1704e+00_rb/)
+      kao(:, 1,12,14) = (/ &
+     &2.7480e+02_rb,2.4043e+02_rb,2.0609e+02_rb,1.7173e+02_rb,1.3740e+02_rb,1.0305e+02_rb, &
+     &6.8696e+01_rb,3.4350e+01_rb,1.0331e+00_rb/)
+      kao(:, 2,12,14) = (/ &
+     &3.8434e+02_rb,3.3629e+02_rb,2.8824e+02_rb,2.4020e+02_rb,1.9217e+02_rb,1.4412e+02_rb, &
+     &9.6082e+01_rb,4.8041e+01_rb,1.0697e+00_rb/)
+      kao(:, 3,12,14) = (/ &
+     &5.1835e+02_rb,4.5357e+02_rb,3.8876e+02_rb,3.2398e+02_rb,2.5917e+02_rb,1.9438e+02_rb, &
+     &1.2959e+02_rb,6.4795e+01_rb,6.6152e-01_rb/)
+      kao(:, 4,12,14) = (/ &
+     &6.7292e+02_rb,5.8878e+02_rb,5.0467e+02_rb,4.2055e+02_rb,3.3645e+02_rb,2.5234e+02_rb, &
+     &1.6823e+02_rb,8.4112e+01_rb,1.1390e+00_rb/)
+      kao(:, 5,12,14) = (/ &
+     &8.4273e+02_rb,7.3739e+02_rb,6.3205e+02_rb,5.2668e+02_rb,4.2135e+02_rb,3.1602e+02_rb, &
+     &2.1069e+02_rb,1.0534e+02_rb,2.2409e+00_rb/)
+      kao(:, 1,13,14) = (/ &
+     &2.9725e+02_rb,2.6009e+02_rb,2.2295e+02_rb,1.8578e+02_rb,1.4862e+02_rb,1.1147e+02_rb, &
+     &7.4314e+01_rb,3.7158e+01_rb,8.5883e-01_rb/)
+      kao(:, 2,13,14) = (/ &
+     &4.1294e+02_rb,3.6134e+02_rb,3.0971e+02_rb,2.5809e+02_rb,2.0649e+02_rb,1.5487e+02_rb, &
+     &1.0324e+02_rb,5.1621e+01_rb,7.4403e-01_rb/)
+      kao(:, 3,13,14) = (/ &
+     &5.5484e+02_rb,4.8548e+02_rb,4.1611e+02_rb,3.4677e+02_rb,2.7741e+02_rb,2.0806e+02_rb, &
+     &1.3871e+02_rb,6.9351e+01_rb,6.5779e-01_rb/)
+      kao(:, 4,13,14) = (/ &
+     &7.2016e+02_rb,6.3017e+02_rb,5.4015e+02_rb,4.5013e+02_rb,3.6010e+02_rb,2.7007e+02_rb, &
+     &1.8004e+02_rb,9.0025e+01_rb,1.1133e+00_rb/)
+      kao(:, 5,13,14) = (/ &
+     &9.0551e+02_rb,7.9235e+02_rb,6.7916e+02_rb,5.6596e+02_rb,4.5276e+02_rb,3.3958e+02_rb, &
+     &2.2638e+02_rb,1.1319e+02_rb,2.5474e+00_rb/)
+      kao(:, 1, 1,15) = (/ &
+     &1.6993e-01_rb,6.2319e-01_rb,1.2302e+00_rb,1.8117e+00_rb,2.3534e+00_rb,2.8224e+00_rb, &
+     &3.1427e+00_rb,3.0683e+00_rb,4.7067e+00_rb/)
+      kao(:, 2, 1,15) = (/ &
+     &1.9652e-01_rb,7.8355e-01_rb,1.5463e+00_rb,2.2775e+00_rb,2.9572e+00_rb,3.5450e+00_rb, &
+     &3.9419e+00_rb,3.8320e+00_rb,5.9144e+00_rb/)
+      kao(:, 3, 1,15) = (/ &
+     &2.2200e-01_rb,9.5617e-01_rb,1.8872e+00_rb,2.7806e+00_rb,3.6114e+00_rb,4.3315e+00_rb, &
+     &4.8212e+00_rb,4.6828e+00_rb,7.2228e+00_rb/)
+      kao(:, 4, 1,15) = (/ &
+     &2.4720e-01_rb,1.1411e+00_rb,2.2528e+00_rb,3.3193e+00_rb,4.3116e+00_rb,5.1713e+00_rb, &
+     &5.7552e+00_rb,5.5959e+00_rb,8.6231e+00_rb/)
+      kao(:, 5, 1,15) = (/ &
+     &2.7067e-01_rb,1.3368e+00_rb,2.6392e+00_rb,3.8885e+00_rb,5.0531e+00_rb,6.0617e+00_rb, &
+     &6.7490e+00_rb,6.5681e+00_rb,1.0106e+01_rb/)
+      kao(:, 1, 2,15) = (/ &
+     &2.5495e-01_rb,6.7714e-01_rb,1.3429e+00_rb,1.9911e+00_rb,2.6102e+00_rb,3.1741e+00_rb, &
+     &3.6176e+00_rb,3.6989e+00_rb,5.2204e+00_rb/)
+      kao(:, 2, 2,15) = (/ &
+     &2.9713e-01_rb,8.6139e-01_rb,1.7085e+00_rb,2.5326e+00_rb,3.3191e+00_rb,4.0358e+00_rb, &
+     &4.5977e+00_rb,4.6904e+00_rb,6.6382e+00_rb/)
+      kao(:, 3, 2,15) = (/ &
+     &3.3791e-01_rb,1.0632e+00_rb,2.1089e+00_rb,3.1273e+00_rb,4.0996e+00_rb,4.9862e+00_rb, &
+     &5.6823e+00_rb,5.7948e+00_rb,8.1990e+00_rb/)
+      kao(:, 4, 2,15) = (/ &
+     &3.7751e-01_rb,1.2778e+00_rb,2.5347e+00_rb,3.7591e+00_rb,4.9277e+00_rb,5.9944e+00_rb, &
+     &6.8345e+00_rb,6.9830e+00_rb,9.8554e+00_rb/)
+      kao(:, 5, 2,15) = (/ &
+     &4.1544e-01_rb,1.5054e+00_rb,2.9855e+00_rb,4.4278e+00_rb,5.8067e+00_rb,7.0647e+00_rb, &
+     &8.0557e+00_rb,8.2364e+00_rb,1.1613e+01_rb/)
+      kao(:, 1, 3,15) = (/ &
+     &4.9608e-01_rb,6.8984e-01_rb,1.3746e+00_rb,2.0502e+00_rb,2.7121e+00_rb,3.3455e+00_rb, &
+     &3.9122e+00_rb,4.2490e+00_rb,5.4242e+00_rb/)
+      kao(:, 2, 3,15) = (/ &
+     &5.8591e-01_rb,8.9422e-01_rb,1.7812e+00_rb,2.6579e+00_rb,3.5151e+00_rb,4.3360e+00_rb, &
+     &5.0694e+00_rb,5.5020e+00_rb,7.0303e+00_rb/)
+      kao(:, 3, 3,15) = (/ &
+     &6.7409e-01_rb,1.1231e+00_rb,2.2377e+00_rb,3.3379e+00_rb,4.4153e+00_rb,5.4452e+00_rb, &
+     &6.3666e+00_rb,6.9097e+00_rb,8.8307e+00_rb/)
+      kao(:, 4, 3,15) = (/ &
+     &7.5926e-01_rb,1.3688e+00_rb,2.7271e+00_rb,4.0692e+00_rb,5.3814e+00_rb,6.6410e+00_rb, &
+     &7.7706e+00_rb,8.4452e+00_rb,1.0763e+01_rb/)
+      kao(:, 5, 3,15) = (/ &
+     &8.4200e-01_rb,1.6284e+00_rb,3.2443e+00_rb,4.8405e+00_rb,6.4040e+00_rb,7.9036e+00_rb, &
+     &9.2460e+00_rb,1.0057e+01_rb,1.2808e+01_rb/)
+      kao(:, 1, 4,15) = (/ &
+     &9.7215e-01_rb,8.5067e-01_rb,1.3532e+00_rb,2.0247e+00_rb,2.6895e+00_rb,3.3419e+00_rb, &
+     &3.9624e+00_rb,4.4662e+00_rb,5.3791e+00_rb/)
+      kao(:, 2, 4,15) = (/ &
+     &1.1632e+00_rb,1.0264e+00_rb,1.7937e+00_rb,2.6847e+00_rb,3.5667e+00_rb,4.4317e+00_rb, &
+     &5.2538e+00_rb,5.9212e+00_rb,7.1333e+00_rb/)
+      kao(:, 3, 4,15) = (/ &
+     &1.3574e+00_rb,1.2217e+00_rb,2.2951e+00_rb,3.4352e+00_rb,4.5625e+00_rb,5.6686e+00_rb, &
+     &6.7222e+00_rb,7.5788e+00_rb,9.1250e+00_rb/)
+      kao(:, 4, 4,15) = (/ &
+     &1.5473e+00_rb,1.4621e+00_rb,2.8487e+00_rb,4.2635e+00_rb,5.6651e+00_rb,7.0387e+00_rb, &
+     &8.3491e+00_rb,9.4177e+00_rb,1.1330e+01_rb/)
+      kao(:, 5, 4,15) = (/ &
+     &1.7305e+00_rb,1.7312e+00_rb,3.4330e+00_rb,5.1366e+00_rb,6.8257e+00_rb,8.4825e+00_rb, &
+     &1.0065e+01_rb,1.1356e+01_rb,1.3651e+01_rb/)
+      kao(:, 1, 5,15) = (/ &
+     &1.7388e+00_rb,1.5215e+00_rb,1.3772e+00_rb,1.9641e+00_rb,2.6140e+00_rb,3.2573e+00_rb, &
+     &3.8853e+00_rb,4.4515e+00_rb,5.2280e+00_rb/)
+      kao(:, 2, 5,15) = (/ &
+     &2.1169e+00_rb,1.8521e+00_rb,1.7962e+00_rb,2.6470e+00_rb,3.5230e+00_rb,4.3915e+00_rb, &
+     &5.2396e+00_rb,6.0117e+00_rb,7.0460e+00_rb/)
+      kao(:, 3, 5,15) = (/ &
+     &2.5041e+00_rb,2.1909e+00_rb,2.3110e+00_rb,3.4553e+00_rb,4.5986e+00_rb,5.7308e+00_rb, &
+     &6.8405e+00_rb,7.8473e+00_rb,9.1972e+00_rb/)
+      kao(:, 4, 5,15) = (/ &
+     &2.8915e+00_rb,2.5301e+00_rb,2.9136e+00_rb,4.3640e+00_rb,5.8101e+00_rb,7.2418e+00_rb, &
+     &8.6447e+00_rb,9.9184e+00_rb,1.1620e+01_rb/)
+      kao(:, 5, 5,15) = (/ &
+     &3.2655e+00_rb,2.8574e+00_rb,3.5660e+00_rb,5.3438e+00_rb,7.1123e+00_rb,8.8675e+00_rb, &
+     &1.0583e+01_rb,1.2152e+01_rb,1.4224e+01_rb/)
+      kao(:, 1, 6,15) = (/ &
+     &2.8657e+00_rb,2.5077e+00_rb,2.1495e+00_rb,1.9426e+00_rb,2.5509e+00_rb,3.1827e+00_rb, &
+     &3.8069e+00_rb,4.3973e+00_rb,5.1017e+00_rb/)
+      kao(:, 2, 6,15) = (/ &
+     &3.5656e+00_rb,3.1200e+00_rb,2.6742e+00_rb,2.5857e+00_rb,3.4175e+00_rb,4.2650e+00_rb, &
+     &5.1021e+00_rb,5.8962e+00_rb,6.8350e+00_rb/)
+      kao(:, 3, 6,15) = (/ &
+     &4.2807e+00_rb,3.7458e+00_rb,3.2105e+00_rb,3.3891e+00_rb,4.4929e+00_rb,5.6082e+00_rb, &
+     &6.7100e+00_rb,7.7616e+00_rb,8.9857e+00_rb/)
+      kao(:, 4, 6,15) = (/ &
+     &5.0170e+00_rb,4.3893e+00_rb,3.7667e+00_rb,4.3378e+00_rb,5.7738e+00_rb,7.2087e+00_rb, &
+     &8.6270e+00_rb,9.9837e+00_rb,1.1548e+01_rb/)
+      kao(:, 5, 6,15) = (/ &
+     &5.7403e+00_rb,5.0226e+00_rb,4.3725e+00_rb,5.3984e+00_rb,7.1936e+00_rb,8.9774e+00_rb, &
+     &1.0747e+01_rb,1.2440e+01_rb,1.4387e+01_rb/)
+      kao(:, 1, 7,15) = (/ &
+     &4.9113e+00_rb,4.2974e+00_rb,3.6835e+00_rb,3.0697e+00_rb,2.6153e+00_rb,3.1091e+00_rb, &
+     &3.7251e+00_rb,4.3239e+00_rb,4.9783e+00_rb/)
+      kao(:, 2, 7,15) = (/ &
+     &6.2562e+00_rb,5.4743e+00_rb,4.6920e+00_rb,3.9102e+00_rb,3.4334e+00_rb,4.1812e+00_rb, &
+     &5.0095e+00_rb,5.8168e+00_rb,6.6958e+00_rb/)
+      kao(:, 3, 7,15) = (/ &
+     &7.6604e+00_rb,6.7031e+00_rb,5.7453e+00_rb,4.7880e+00_rb,4.4844e+00_rb,5.5063e+00_rb, &
+     &6.5975e+00_rb,7.6628e+00_rb,8.8178e+00_rb/)
+      kao(:, 4, 7,15) = (/ &
+     &9.1018e+00_rb,7.9643e+00_rb,6.8268e+00_rb,5.7331e+00_rb,5.7498e+00_rb,7.0854e+00_rb, &
+     &8.4900e+00_rb,9.8659e+00_rb,1.1347e+01_rb/)
+      kao(:, 5, 7,15) = (/ &
+     &1.0558e+01_rb,9.2378e+00_rb,7.9183e+00_rb,6.7553e+00_rb,7.1878e+00_rb,8.8933e+00_rb, &
+     &1.0658e+01_rb,1.2385e+01_rb,1.4238e+01_rb/)
+      kao(:, 1, 8,15) = (/ &
+     &1.0009e+01_rb,8.7571e+00_rb,7.5061e+00_rb,6.2547e+00_rb,5.0042e+00_rb,3.7993e+00_rb, &
+     &3.6112e+00_rb,4.2052e+00_rb,4.8194e+00_rb/)
+      kao(:, 2, 8,15) = (/ &
+     &1.3089e+01_rb,1.1454e+01_rb,9.8171e+00_rb,8.1811e+00_rb,6.5451e+00_rb,5.0064e+00_rb, &
+     &4.9059e+00_rb,5.7129e+00_rb,6.5481e+00_rb/)
+      kao(:, 3, 8,15) = (/ &
+     &1.6387e+01_rb,1.4339e+01_rb,1.2290e+01_rb,1.0242e+01_rb,8.1941e+00_rb,6.3517e+00_rb, &
+     &6.5066e+00_rb,7.5778e+00_rb,8.6840e+00_rb/)
+      kao(:, 4, 8,15) = (/ &
+     &1.9809e+01_rb,1.7333e+01_rb,1.4856e+01_rb,1.2381e+01_rb,9.9047e+00_rb,7.9569e+00_rb, &
+     &8.4189e+00_rb,9.8052e+00_rb,1.1235e+01_rb/)
+      kao(:, 5, 8,15) = (/ &
+     &2.3310e+01_rb,2.0396e+01_rb,1.7482e+01_rb,1.4569e+01_rb,1.1654e+01_rb,9.7998e+00_rb, &
+     &1.0613e+01_rb,1.2362e+01_rb,1.4162e+01_rb/)
+      kao(:, 1, 9,15) = (/ &
+     &3.8130e+01_rb,3.3362e+01_rb,2.8596e+01_rb,2.3830e+01_rb,1.9065e+01_rb,1.4298e+01_rb, &
+     &9.5322e+00_rb,4.9254e+00_rb,4.5210e+00_rb/)
+      kao(:, 2, 9,15) = (/ &
+     &5.1350e+01_rb,4.4933e+01_rb,3.8514e+01_rb,3.2094e+01_rb,2.5677e+01_rb,1.9258e+01_rb, &
+     &1.2838e+01_rb,6.6242e+00_rb,6.3225e+00_rb/)
+      kao(:, 3, 9,15) = (/ &
+     &6.5865e+01_rb,5.7633e+01_rb,4.9398e+01_rb,4.1167e+01_rb,3.2931e+01_rb,2.4701e+01_rb, &
+     &1.6465e+01_rb,8.5406e+00_rb,8.4711e+00_rb/)
+      kao(:, 4, 9,15) = (/ &
+     &8.1194e+01_rb,7.1041e+01_rb,6.0891e+01_rb,5.0738e+01_rb,4.0591e+01_rb,3.0449e+01_rb, &
+     &2.0297e+01_rb,1.0902e+01_rb,1.1050e+01_rb/)
+      kao(:, 5, 9,15) = (/ &
+     &9.6976e+01_rb,8.4851e+01_rb,7.2734e+01_rb,6.0609e+01_rb,4.8485e+01_rb,3.6366e+01_rb, &
+     &2.4244e+01_rb,1.3609e+01_rb,1.4022e+01_rb/)
+      kao(:, 1,10,15) = (/ &
+     &1.6495e+02_rb,1.4434e+02_rb,1.2371e+02_rb,1.0308e+02_rb,8.2478e+01_rb,6.1862e+01_rb, &
+     &4.1240e+01_rb,2.0620e+01_rb,1.6305e+00_rb/)
+      kao(:, 2,10,15) = (/ &
+     &2.2828e+02_rb,1.9973e+02_rb,1.7121e+02_rb,1.4267e+02_rb,1.1414e+02_rb,8.5604e+01_rb, &
+     &5.7062e+01_rb,2.8536e+01_rb,5.3393e+00_rb/)
+      kao(:, 3,10,15) = (/ &
+     &2.9925e+02_rb,2.6184e+02_rb,2.2444e+02_rb,1.8703e+02_rb,1.4963e+02_rb,1.1222e+02_rb, &
+     &7.4815e+01_rb,3.7408e+01_rb,8.3308e+00_rb/)
+      kao(:, 4,10,15) = (/ &
+     &3.7719e+02_rb,3.3003e+02_rb,2.8287e+02_rb,2.3573e+02_rb,1.8859e+02_rb,1.4144e+02_rb, &
+     &9.4294e+01_rb,4.7146e+01_rb,1.0953e+01_rb/)
+      kao(:, 5,10,15) = (/ &
+     &4.5955e+02_rb,4.0214e+02_rb,3.4467e+02_rb,2.8724e+02_rb,2.2979e+02_rb,1.7235e+02_rb, &
+     &1.1490e+02_rb,5.7448e+01_rb,1.3975e+01_rb/)
+      kao(:, 1,11,15) = (/ &
+     &2.9347e+02_rb,2.5677e+02_rb,2.2010e+02_rb,1.8342e+02_rb,1.4673e+02_rb,1.1005e+02_rb, &
+     &7.3365e+01_rb,3.6685e+01_rb,2.5030e-01_rb/)
+      kao(:, 2,11,15) = (/ &
+     &4.0846e+02_rb,3.5738e+02_rb,3.0635e+02_rb,2.5530e+02_rb,2.0423e+02_rb,1.5319e+02_rb, &
+     &1.0212e+02_rb,5.1058e+01_rb,2.2261e+00_rb/)
+      kao(:, 3,11,15) = (/ &
+     &5.3934e+02_rb,4.7191e+02_rb,4.0450e+02_rb,3.3708e+02_rb,2.6969e+02_rb,2.0225e+02_rb, &
+     &1.3483e+02_rb,6.7419e+01_rb,7.0745e+00_rb/)
+      kao(:, 4,11,15) = (/ &
+     &6.8280e+02_rb,5.9745e+02_rb,5.1209e+02_rb,4.2676e+02_rb,3.4141e+02_rb,2.5605e+02_rb, &
+     &1.7070e+02_rb,8.5353e+01_rb,1.1909e+01_rb/)
+      kao(:, 5,11,15) = (/ &
+     &8.3619e+02_rb,7.3167e+02_rb,6.2713e+02_rb,5.2262e+02_rb,4.1810e+02_rb,3.1359e+02_rb, &
+     &2.0904e+02_rb,1.0453e+02_rb,1.5372e+01_rb/)
+      kao(:, 1,12,15) = (/ &
+     &3.9587e+02_rb,3.4637e+02_rb,2.9690e+02_rb,2.4742e+02_rb,1.9794e+02_rb,1.4844e+02_rb, &
+     &9.8964e+01_rb,4.9484e+01_rb,3.4642e-05_rb/)
+      kao(:, 2,12,15) = (/ &
+     &5.5272e+02_rb,4.8359e+02_rb,4.1455e+02_rb,3.4543e+02_rb,2.7636e+02_rb,2.0725e+02_rb, &
+     &1.3818e+02_rb,6.9086e+01_rb,1.7207e+00_rb/)
+      kao(:, 3,12,15) = (/ &
+     &7.3408e+02_rb,6.4226e+02_rb,5.5052e+02_rb,4.5884e+02_rb,3.6704e+02_rb,2.7529e+02_rb, &
+     &1.8352e+02_rb,9.1757e+01_rb,6.4555e+00_rb/)
+      kao(:, 4,12,15) = (/ &
+     &9.3778e+02_rb,8.2044e+02_rb,7.0331e+02_rb,5.8607e+02_rb,4.6883e+02_rb,3.5166e+02_rb, &
+     &2.3443e+02_rb,1.1722e+02_rb,1.0884e+01_rb/)
+      kao(:, 5,12,15) = (/ &
+     &1.1629e+03_rb,1.0175e+03_rb,8.7216e+02_rb,7.2684e+02_rb,5.8142e+02_rb,4.3609e+02_rb, &
+     &2.9073e+02_rb,1.4537e+02_rb,1.6871e+01_rb/)
+      kao(:, 1,13,15) = (/ &
+     &4.3408e+02_rb,3.7980e+02_rb,3.2553e+02_rb,2.7129e+02_rb,2.1704e+02_rb,1.6278e+02_rb, &
+     &1.0851e+02_rb,5.4254e+01_rb,3.3387e-01_rb/)
+      kao(:, 2,13,15) = (/ &
+     &6.1113e+02_rb,5.3482e+02_rb,4.5841e+02_rb,3.8201e+02_rb,3.0560e+02_rb,2.2920e+02_rb, &
+     &1.5279e+02_rb,7.6397e+01_rb,3.4060e+00_rb/)
+      kao(:, 3,13,15) = (/ &
+     &8.2033e+02_rb,7.1780e+02_rb,6.1525e+02_rb,5.1272e+02_rb,4.1017e+02_rb,3.0764e+02_rb, &
+     &2.0509e+02_rb,1.0254e+02_rb,7.3848e+00_rb/)
+      kao(:, 4,13,15) = (/ &
+     &1.0623e+03_rb,9.2952e+02_rb,7.9671e+02_rb,6.6390e+02_rb,5.3111e+02_rb,3.9834e+02_rb, &
+     &2.6556e+02_rb,1.3278e+02_rb,1.3310e+01_rb/)
+      kao(:, 5,13,15) = (/ &
+     &1.3308e+03_rb,1.1645e+03_rb,9.9813e+02_rb,8.3174e+02_rb,6.6542e+02_rb,4.9907e+02_rb, &
+     &3.3271e+02_rb,1.6635e+02_rb,1.8499e+01_rb/)
+      kao(:, 1, 1,16) = (/ &
+     &1.7254e-01_rb,6.6462e-01_rb,1.3115e+00_rb,1.9318e+00_rb,2.5084e+00_rb,3.0076e+00_rb, &
+     &3.3449e+00_rb,3.2523e+00_rb,5.0169e+00_rb/)
+      kao(:, 2, 1,16) = (/ &
+     &1.9945e-01_rb,8.1688e-01_rb,1.6118e+00_rb,2.3741e+00_rb,3.0836e+00_rb,3.6966e+00_rb, &
+     &4.1116e+00_rb,3.9980e+00_rb,6.1673e+00_rb/)
+      kao(:, 3, 1,16) = (/ &
+     &2.2510e-01_rb,1.0070e+00_rb,1.9841e+00_rb,2.9159e+00_rb,3.7748e+00_rb,4.5037e+00_rb, &
+     &4.9689e+00_rb,4.7883e+00_rb,7.5495e+00_rb/)
+      kao(:, 4, 1,16) = (/ &
+     &2.5048e-01_rb,1.2252e+00_rb,2.4140e+00_rb,3.5479e+00_rb,4.5928e+00_rb,5.4806e+00_rb, &
+     &6.0471e+00_rb,5.7831e+00_rb,9.1856e+00_rb/)
+      kao(:, 5, 1,16) = (/ &
+     &2.7413e-01_rb,1.4585e+00_rb,2.8735e+00_rb,4.2233e+00_rb,5.4678e+00_rb,6.4913e+00_rb, &
+     &7.1996e+00_rb,6.8835e+00_rb,1.0936e+01_rb/)
+      kao(:, 1, 2,16) = (/ &
+     &2.5949e-01_rb,7.4073e-01_rb,1.4685e+00_rb,2.1764e+00_rb,2.8509e+00_rb,3.4639e+00_rb, &
+     &3.9405e+00_rb,4.0097e+00_rb,5.7017e+00_rb/)
+      kao(:, 2, 2,16) = (/ &
+     &3.0220e-01_rb,9.2128e-01_rb,1.8172e+00_rb,2.6931e+00_rb,3.5460e+00_rb,4.3080e+00_rb, &
+     &4.9007e+00_rb,4.9876e+00_rb,7.0918e+00_rb/)
+      kao(:, 3, 2,16) = (/ &
+     &3.4341e-01_rb,1.1291e+00_rb,2.2360e+00_rb,3.3088e+00_rb,4.3252e+00_rb,5.2383e+00_rb, &
+     &5.9360e+00_rb,6.0318e+00_rb,8.6502e+00_rb/)
+      kao(:, 4, 2,16) = (/ &
+     &3.8325e-01_rb,1.3874e+00_rb,2.7481e+00_rb,4.0666e+00_rb,5.3159e+00_rb,6.4367e+00_rb, &
+     &7.2790e+00_rb,7.3059e+00_rb,1.0632e+01_rb/)
+      kao(:, 5, 2,16) = (/ &
+     &4.2153e-01_rb,1.6660e+00_rb,3.2992e+00_rb,4.8823e+00_rb,6.3819e+00_rb,7.7290e+00_rb, &
+     &8.7410e+00_rb,8.7737e+00_rb,1.2764e+01_rb/)
+      kao(:, 1, 3,16) = (/ &
+     &5.0644e-01_rb,7.8255e-01_rb,1.5587e+00_rb,2.3239e+00_rb,3.0716e+00_rb,3.7848e+00_rb, &
+     &4.4177e+00_rb,4.7740e+00_rb,6.1431e+00_rb/)
+      kao(:, 2, 3,16) = (/ &
+     &5.9759e-01_rb,9.9169e-01_rb,1.9751e+00_rb,2.9450e+00_rb,3.8926e+00_rb,4.7966e+00_rb, &
+     &5.5986e+00_rb,6.0493e+00_rb,7.7852e+00_rb/)
+      kao(:, 3, 3,16) = (/ &
+     &6.8696e-01_rb,1.2186e+00_rb,2.4265e+00_rb,3.6186e+00_rb,4.7825e+00_rb,5.8630e+00_rb, &
+     &6.8786e+00_rb,7.4328e+00_rb,9.5649e+00_rb/)
+      kao(:, 4, 3,16) = (/ &
+     &7.7291e-01_rb,1.5044e+00_rb,2.9942e+00_rb,4.4622e+00_rb,5.8918e+00_rb,7.2471e+00_rb, &
+     &8.4308e+00_rb,9.0321e+00_rb,1.1784e+01_rb/)
+      kao(:, 5, 3,16) = (/ &
+     &8.5655e-01_rb,1.8308e+00_rb,3.6443e+00_rb,5.4303e+00_rb,7.1696e+00_rb,8.8191e+00_rb, &
+     &1.0261e+01_rb,1.0994e+01_rb,1.4339e+01_rb/)
+      kao(:, 1, 4,16) = (/ &
+     &9.9660e-01_rb,8.7187e-01_rb,1.6058e+00_rb,2.4020e+00_rb,3.1900e+00_rb,3.9596e+00_rb, &
+     &4.6884e+00_rb,5.2602e+00_rb,6.3800e+00_rb/)
+      kao(:, 2, 4,16) = (/ &
+     &1.1909e+00_rb,1.0454e+00_rb,2.0813e+00_rb,3.1135e+00_rb,4.1338e+00_rb,5.1320e+00_rb, &
+     &6.0754e+00_rb,6.8176e+00_rb,8.2675e+00_rb/)
+      kao(:, 3, 4,16) = (/ &
+     &1.3883e+00_rb,1.3053e+00_rb,2.6054e+00_rb,3.8972e+00_rb,5.1746e+00_rb,6.4245e+00_rb, &
+     &7.6056e+00_rb,8.5415e+00_rb,1.0349e+01_rb/)
+      kao(:, 4, 4,16) = (/ &
+     &1.5813e+00_rb,1.6017e+00_rb,3.1965e+00_rb,4.7803e+00_rb,6.3446e+00_rb,7.8728e+00_rb, &
+     &9.3118e+00_rb,1.0423e+01_rb,1.2689e+01_rb/)
+      kao(:, 5, 4,16) = (/ &
+     &1.7666e+00_rb,1.9742e+00_rb,3.9398e+00_rb,5.8918e+00_rb,7.8191e+00_rb,9.6976e+00_rb, &
+     &1.1463e+01_rb,1.2804e+01_rb,1.5638e+01_rb/)
+      kao(:, 1, 5,16) = (/ &
+     &1.7905e+00_rb,1.5668e+00_rb,1.6306e+00_rb,2.4424e+00_rb,3.2499e+00_rb,4.0478e+00_rb, &
+     &4.8237e+00_rb,5.5141e+00_rb,6.4998e+00_rb/)
+      kao(:, 2, 5,16) = (/ &
+     &2.1763e+00_rb,1.9041e+00_rb,2.1658e+00_rb,3.2440e+00_rb,4.3166e+00_rb,5.3771e+00_rb, &
+     &6.4071e+00_rb,7.3247e+00_rb,8.6332e+00_rb/)
+      kao(:, 3, 5,16) = (/ &
+     &2.5702e+00_rb,2.2488e+00_rb,2.7671e+00_rb,4.1446e+00_rb,5.5145e+00_rb,6.8692e+00_rb, &
+     &8.1862e+00_rb,9.3584e+00_rb,1.1029e+01_rb/)
+      kao(:, 4, 5,16) = (/ &
+     &2.9652e+00_rb,2.5941e+00_rb,3.4291e+00_rb,5.1370e+00_rb,6.8346e+00_rb,8.5115e+00_rb, &
+     &1.0142e+01_rb,1.1590e+01_rb,1.3669e+01_rb/)
+      kao(:, 5, 5,16) = (/ &
+     &3.3442e+00_rb,2.9260e+00_rb,4.2225e+00_rb,6.3231e+00_rb,8.4117e+00_rb,1.0473e+01_rb, &
+     &1.2473e+01_rb,1.4226e+01_rb,1.6823e+01_rb/)
+      kao(:, 1, 6,16) = (/ &
+     &2.9659e+00_rb,2.5957e+00_rb,2.2251e+00_rb,2.4192e+00_rb,3.2212e+00_rb,4.0191e+00_rb, &
+     &4.8055e+00_rb,5.5432e+00_rb,6.4424e+00_rb/)
+      kao(:, 2, 6,16) = (/ &
+     &3.6832e+00_rb,3.2223e+00_rb,2.7616e+00_rb,3.3057e+00_rb,4.4026e+00_rb,5.4931e+00_rb, &
+     &6.5666e+00_rb,7.5768e+00_rb,8.8051e+00_rb/)
+      kao(:, 3, 6,16) = (/ &
+     &4.4116e+00_rb,3.8604e+00_rb,3.3096e+00_rb,4.3238e+00_rb,5.7589e+00_rb,7.1852e+00_rb, &
+     &8.5905e+00_rb,9.9138e+00_rb,1.1518e+01_rb/)
+      kao(:, 4, 6,16) = (/ &
+     &5.1628e+00_rb,4.5167e+00_rb,3.8530e+00_rb,5.4598e+00_rb,7.2711e+00_rb,9.0722e+00_rb, &
+     &1.0846e+01_rb,1.2515e+01_rb,1.4542e+01_rb/)
+      kao(:, 5, 6,16) = (/ &
+     &5.8968e+00_rb,5.1602e+00_rb,4.5054e+00_rb,6.7527e+00_rb,8.9935e+00_rb,1.1218e+01_rb, &
+     &1.3409e+01_rb,1.5457e+01_rb,1.7987e+01_rb/)
+      kao(:, 1, 7,16) = (/ &
+     &5.1220e+00_rb,4.4578e+00_rb,3.8412e+00_rb,3.1847e+00_rb,3.1367e+00_rb,3.9170e+00_rb, &
+     &4.6915e+00_rb,5.4417e+00_rb,6.2734e+00_rb/)
+      kao(:, 2, 7,16) = (/ &
+     &6.5146e+00_rb,5.7005e+00_rb,4.8852e+00_rb,4.0720e+00_rb,4.4224e+00_rb,5.5237e+00_rb, &
+     &6.6151e+00_rb,7.6744e+00_rb,8.8447e+00_rb/)
+      kao(:, 3, 7,16) = (/ &
+     &7.9642e+00_rb,6.9679e+00_rb,5.9715e+00_rb,4.9772e+00_rb,5.9352e+00_rb,7.4116e+00_rb, &
+     &8.8775e+00_rb,1.0298e+01_rb,1.1870e+01_rb/)
+      kao(:, 4, 7,16) = (/ &
+     &9.4454e+00_rb,8.2650e+00_rb,7.0847e+00_rb,5.9047e+00_rb,7.6537e+00_rb,9.5584e+00_rb, &
+     &1.1448e+01_rb,1.3281e+01_rb,1.5307e+01_rb/)
+      kao(:, 5, 7,16) = (/ &
+     &1.0942e+01_rb,9.5731e+00_rb,8.2052e+00_rb,7.1985e+00_rb,9.5915e+00_rb,1.1978e+01_rb, &
+     &1.4344e+01_rb,1.6634e+01_rb,1.9183e+01_rb/)
+      kao(:, 1, 8,16) = (/ &
+     &1.0533e+01_rb,9.2146e+00_rb,7.8983e+00_rb,6.5814e+00_rb,5.2661e+00_rb,3.9493e+00_rb, &
+     &4.5315e+00_rb,5.2737e+00_rb,6.0497e+00_rb/)
+      kao(:, 2, 8,16) = (/ &
+     &1.3750e+01_rb,1.2032e+01_rb,1.0313e+01_rb,8.5934e+00_rb,6.8745e+00_rb,5.4846e+00_rb, &
+     &6.5763e+00_rb,7.6139e+00_rb,8.7787e+00_rb/)
+      kao(:, 3, 8,16) = (/ &
+     &1.7175e+01_rb,1.5029e+01_rb,1.2881e+01_rb,1.0735e+01_rb,8.5883e+00_rb,7.5634e+00_rb, &
+     &9.0692e+00_rb,1.0555e+01_rb,1.2107e+01_rb/)
+      kao(:, 4, 8,16) = (/ &
+     &2.0707e+01_rb,1.8120e+01_rb,1.5532e+01_rb,1.2944e+01_rb,1.0356e+01_rb,9.9766e+00_rb, &
+     &1.1963e+01_rb,1.3921e+01_rb,1.5970e+01_rb/)
+      kao(:, 5, 8,16) = (/ &
+     &2.4320e+01_rb,2.1282e+01_rb,1.8238e+01_rb,1.5200e+01_rb,1.2161e+01_rb,1.2723e+01_rb, &
+     &1.5254e+01_rb,1.7752e+01_rb,2.0364e+01_rb/)
+      kao(:, 1, 9,16) = (/ &
+     &4.0363e+01_rb,3.5318e+01_rb,3.0273e+01_rb,2.5227e+01_rb,2.0181e+01_rb,1.5134e+01_rb, &
+     &1.0090e+01_rb,5.4212e+00_rb,6.1996e+00_rb/)
+      kao(:, 2, 9,16) = (/ &
+     &5.4231e+01_rb,4.7444e+01_rb,4.0667e+01_rb,3.3896e+01_rb,2.7114e+01_rb,2.0336e+01_rb, &
+     &1.3557e+01_rb,7.4876e+00_rb,8.5638e+00_rb/)
+      kao(:, 3, 9,16) = (/ &
+     &6.9375e+01_rb,6.0706e+01_rb,5.2030e+01_rb,4.3363e+01_rb,3.4693e+01_rb,2.6019e+01_rb, &
+     &1.7346e+01_rb,1.0642e+01_rb,1.2169e+01_rb/)
+      kao(:, 4, 9,16) = (/ &
+     &8.5364e+01_rb,7.4694e+01_rb,6.4003e+01_rb,5.3349e+01_rb,4.2675e+01_rb,3.2007e+01_rb, &
+     &2.1338e+01_rb,1.4379e+01_rb,1.6444e+01_rb/)
+      kao(:, 5, 9,16) = (/ &
+     &1.0173e+02_rb,8.9011e+01_rb,7.6294e+01_rb,6.3578e+01_rb,5.0858e+01_rb,3.8147e+01_rb, &
+     &2.5431e+01_rb,1.8715e+01_rb,2.1406e+01_rb/)
+      kao(:, 1,10,16) = (/ &
+     &1.7518e+02_rb,1.5326e+02_rb,1.3138e+02_rb,1.0946e+02_rb,8.7589e+01_rb,6.5684e+01_rb, &
+     &4.3795e+01_rb,2.1898e+01_rb,6.6096e+00_rb/)
+      kao(:, 2,10,16) = (/ &
+     &2.4209e+02_rb,2.1181e+02_rb,1.8152e+02_rb,1.5127e+02_rb,1.2102e+02_rb,9.0779e+01_rb, &
+     &6.0510e+01_rb,3.0258e+01_rb,8.7477e+00_rb/)
+      kao(:, 3,10,16) = (/ &
+     &3.1702e+02_rb,2.7739e+02_rb,2.3777e+02_rb,1.9810e+02_rb,1.5849e+02_rb,1.1888e+02_rb, &
+     &7.9249e+01_rb,3.9623e+01_rb,1.2377e+01_rb/)
+      kao(:, 4,10,16) = (/ &
+     &3.9791e+02_rb,3.4817e+02_rb,2.9841e+02_rb,2.4869e+02_rb,1.9896e+02_rb,1.4923e+02_rb, &
+     &9.9472e+01_rb,4.9736e+01_rb,1.7102e+01_rb/)
+      kao(:, 5,10,16) = (/ &
+     &4.8342e+02_rb,4.2295e+02_rb,3.6251e+02_rb,3.0211e+02_rb,2.4169e+02_rb,1.8128e+02_rb, &
+     &1.2083e+02_rb,6.0427e+01_rb,2.2752e+01_rb/)
+      kao(:, 1,11,16) = (/ &
+     &3.1380e+02_rb,2.7453e+02_rb,2.3526e+02_rb,1.9609e+02_rb,1.5686e+02_rb,1.1764e+02_rb, &
+     &7.8455e+01_rb,3.9219e+01_rb,4.1702e-05_rb/)
+      kao(:, 2,11,16) = (/ &
+     &4.3458e+02_rb,3.8032e+02_rb,3.2596e+02_rb,2.7165e+02_rb,2.1736e+02_rb,1.6300e+02_rb, &
+     &1.0866e+02_rb,5.4331e+01_rb,1.0603e+01_rb/)
+      kao(:, 3,11,16) = (/ &
+     &5.7279e+02_rb,5.0121e+02_rb,4.2963e+02_rb,3.5802e+02_rb,2.8639e+02_rb,2.1479e+02_rb, &
+     &1.4321e+02_rb,7.1606e+01_rb,1.4737e+01_rb/)
+      kao(:, 4,11,16) = (/ &
+     &7.2603e+02_rb,6.3199e+02_rb,5.4450e+02_rb,4.5379e+02_rb,3.6299e+02_rb,2.7226e+02_rb, &
+     &1.8150e+02_rb,9.0755e+01_rb,2.0418e+01_rb/)
+      kao(:, 5,11,16) = (/ &
+     &8.9810e+02_rb,7.8584e+02_rb,6.7355e+02_rb,5.6126e+02_rb,4.4901e+02_rb,3.3674e+02_rb, &
+     &2.2451e+02_rb,1.1225e+02_rb,2.7345e+01_rb/)
+      kao(:, 1,12,16) = (/ &
+     &4.2564e+02_rb,3.7252e+02_rb,3.1927e+02_rb,2.6605e+02_rb,2.1287e+02_rb,1.5962e+02_rb, &
+     &1.0643e+02_rb,5.3212e+01_rb,3.3974e-05_rb/)
+      kao(:, 2,12,16) = (/ &
+     &5.9696e+02_rb,5.2232e+02_rb,4.4774e+02_rb,3.7307e+02_rb,2.9847e+02_rb,2.2385e+02_rb, &
+     &1.4924e+02_rb,7.4619e+01_rb,1.2841e+01_rb/)
+      kao(:, 3,12,16) = (/ &
+     &8.0130e+02_rb,7.0109e+02_rb,6.0095e+02_rb,5.0082e+02_rb,4.0064e+02_rb,3.0049e+02_rb, &
+     &2.0030e+02_rb,1.0016e+02_rb,1.7604e+01_rb/)
+      kao(:, 4,12,16) = (/ &
+     &1.0424e+03_rb,9.1209e+02_rb,7.8186e+02_rb,6.5151e+02_rb,5.2121e+02_rb,3.9092e+02_rb, &
+     &2.6059e+02_rb,1.3030e+02_rb,2.4408e+01_rb/)
+      kao(:, 5,12,16) = (/ &
+     &1.3107e+03_rb,1.1467e+03_rb,9.8296e+02_rb,8.1915e+02_rb,6.5538e+02_rb,4.9148e+02_rb, &
+     &3.2766e+02_rb,1.6385e+02_rb,3.2853e+01_rb/)
+      kao(:, 1,13,16) = (/ &
+     &4.8122e+02_rb,4.2105e+02_rb,3.6087e+02_rb,3.0076e+02_rb,2.4060e+02_rb,1.8046e+02_rb, &
+     &1.2030e+02_rb,6.0148e+01_rb,7.3993e+00_rb/)
+      kao(:, 2,13,16) = (/ &
+     &6.9206e+02_rb,6.0557e+02_rb,5.1907e+02_rb,4.3255e+02_rb,3.4603e+02_rb,2.5955e+02_rb, &
+     &1.7302e+02_rb,8.6508e+01_rb,1.5501e+01_rb/)
+      kao(:, 3,13,16) = (/ &
+     &9.4703e+02_rb,8.2867e+02_rb,7.1030e+02_rb,5.9189e+02_rb,4.7354e+02_rb,3.5512e+02_rb, &
+     &2.3675e+02_rb,1.1838e+02_rb,2.1029e+01_rb/)
+      kao(:, 4,13,16) = (/ &
+     &1.2338e+03_rb,1.0854e+03_rb,9.3026e+02_rb,7.7526e+02_rb,6.2018e+02_rb,4.6513e+02_rb, &
+     &3.1009e+02_rb,1.5423e+02_rb,2.9122e+01_rb/)
+      kao(:, 5,13,16) = (/ &
+     &1.5695e+03_rb,1.3734e+03_rb,1.1772e+03_rb,9.8104e+02_rb,7.8484e+02_rb,5.8860e+02_rb, &
+     &3.9240e+02_rb,1.9620e+02_rb,3.9289e+01_rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:, 1,13, 1) = (/ &
+     &9.4796e-05_rb,1.4361e-04_rb,1.4118e-04_rb,1.1819e-04_rb,7.6303e-05_rb/)
+      kbo(:, 2,13, 1) = (/ &
+     &9.7387e-05_rb,1.7115e-04_rb,1.7300e-04_rb,1.4824e-04_rb,1.0469e-04_rb/)
+      kbo(:, 3,13, 1) = (/ &
+     &1.0951e-04_rb,2.1604e-04_rb,2.2323e-04_rb,1.9350e-04_rb,1.3818e-04_rb/)
+      kbo(:, 4,13, 1) = (/ &
+     &1.3449e-04_rb,2.8552e-04_rb,2.9728e-04_rb,2.5764e-04_rb,1.7597e-04_rb/)
+      kbo(:, 5,13, 1) = (/ &
+     &1.7577e-04_rb,3.8714e-04_rb,4.0359e-04_rb,3.4654e-04_rb,2.1851e-04_rb/)
+      kbo(:, 1,14, 1) = (/ &
+     &7.9000e-05_rb,1.2113e-04_rb,1.1920e-04_rb,9.9664e-05_rb,6.3646e-05_rb/)
+      kbo(:, 2,14, 1) = (/ &
+     &8.1870e-05_rb,1.4526e-04_rb,1.4705e-04_rb,1.2557e-04_rb,8.6376e-05_rb/)
+      kbo(:, 3,14, 1) = (/ &
+     &9.2975e-05_rb,1.8451e-04_rb,1.9063e-04_rb,1.6489e-04_rb,1.1348e-04_rb/)
+      kbo(:, 4,14, 1) = (/ &
+     &1.1499e-04_rb,2.4478e-04_rb,2.5460e-04_rb,2.2031e-04_rb,1.4451e-04_rb/)
+      kbo(:, 5,14, 1) = (/ &
+     &1.5077e-04_rb,3.3228e-04_rb,3.4580e-04_rb,2.9716e-04_rb,1.7798e-04_rb/)
+      kbo(:, 1,15, 1) = (/ &
+     &6.3146e-05_rb,9.9373e-05_rb,9.8373e-05_rb,8.2691e-05_rb,5.2397e-05_rb/)
+      kbo(:, 2,15, 1) = (/ &
+     &6.6078e-05_rb,1.2006e-04_rb,1.2228e-04_rb,1.0469e-04_rb,7.0411e-05_rb/)
+      kbo(:, 3,15, 1) = (/ &
+     &7.5821e-05_rb,1.5360e-04_rb,1.5869e-04_rb,1.3814e-04_rb,9.1603e-05_rb/)
+      kbo(:, 4,15, 1) = (/ &
+     &9.4372e-05_rb,2.0448e-04_rb,2.1279e-04_rb,1.8521e-04_rb,1.1587e-04_rb/)
+      kbo(:, 5,15, 1) = (/ &
+     &1.2416e-04_rb,2.7753e-04_rb,2.8967e-04_rb,2.5010e-04_rb,1.4409e-04_rb/)
+      kbo(:, 1,16, 1) = (/ &
+     &4.9335e-05_rb,8.0237e-05_rb,8.0247e-05_rb,6.8036e-05_rb,4.2623e-05_rb/)
+      kbo(:, 2,16, 1) = (/ &
+     &5.2173e-05_rb,9.7834e-05_rb,1.0022e-04_rb,8.6725e-05_rb,5.7211e-05_rb/)
+      kbo(:, 3,16, 1) = (/ &
+     &6.0461e-05_rb,1.2605e-04_rb,1.3061e-04_rb,1.1470e-04_rb,7.4324e-05_rb/)
+      kbo(:, 4,16, 1) = (/ &
+     &7.5694e-05_rb,1.6827e-04_rb,1.7572e-04_rb,1.5404e-04_rb,9.3686e-05_rb/)
+      kbo(:, 5,16, 1) = (/ &
+     &9.9955e-05_rb,2.2866e-04_rb,2.3956e-04_rb,2.0826e-04_rb,1.1548e-04_rb/)
+      kbo(:, 1,17, 1) = (/ &
+     &3.8266e-05_rb,6.4449e-05_rb,6.5172e-05_rb,5.5789e-05_rb,3.5130e-05_rb/)
+      kbo(:, 2,17, 1) = (/ &
+     &4.0895e-05_rb,7.9297e-05_rb,8.1758e-05_rb,7.1548e-05_rb,4.6781e-05_rb/)
+      kbo(:, 3,17, 1) = (/ &
+     &4.7807e-05_rb,1.0278e-04_rb,1.0697e-04_rb,9.4840e-05_rb,6.0133e-05_rb/)
+      kbo(:, 4,17, 1) = (/ &
+     &6.0159e-05_rb,1.3765e-04_rb,1.4446e-04_rb,1.2759e-04_rb,7.5139e-05_rb/)
+      kbo(:, 5,17, 1) = (/ &
+     &7.9747e-05_rb,1.8704e-04_rb,1.9692e-04_rb,1.7259e-04_rb,9.1648e-05_rb/)
+      kbo(:, 1,18, 1) = (/ &
+     &2.9184e-05_rb,5.1211e-05_rb,5.2362e-05_rb,4.5451e-05_rb,2.8937e-05_rb/)
+      kbo(:, 2,18, 1) = (/ &
+     &3.1502e-05_rb,6.3605e-05_rb,6.6096e-05_rb,5.8591e-05_rb,3.8202e-05_rb/)
+      kbo(:, 3,18, 1) = (/ &
+     &3.7129e-05_rb,8.2865e-05_rb,8.6932e-05_rb,7.7931e-05_rb,4.8777e-05_rb/)
+      kbo(:, 4,18, 1) = (/ &
+     &4.6953e-05_rb,1.1128e-04_rb,1.1763e-04_rb,1.0496e-04_rb,6.0806e-05_rb/)
+      kbo(:, 5,18, 1) = (/ &
+     &6.2502e-05_rb,1.5129e-04_rb,1.6025e-04_rb,1.4184e-04_rb,7.4536e-05_rb/)
+      kbo(:, 1,19, 1) = (/ &
+     &2.2672e-05_rb,4.1242e-05_rb,4.2527e-05_rb,3.7342e-05_rb,2.3934e-05_rb/)
+      kbo(:, 2,19, 1) = (/ &
+     &2.4699e-05_rb,5.1600e-05_rb,5.3953e-05_rb,4.8350e-05_rb,3.1473e-05_rb/)
+      kbo(:, 3,19, 1) = (/ &
+     &2.9334e-05_rb,6.7547e-05_rb,7.1294e-05_rb,6.4461e-05_rb,4.0025e-05_rb/)
+      kbo(:, 4,19, 1) = (/ &
+     &3.7286e-05_rb,9.0838e-05_rb,9.6625e-05_rb,8.6862e-05_rb,4.9869e-05_rb/)
+      kbo(:, 5,19, 1) = (/ &
+     &4.9822e-05_rb,1.2352e-04_rb,1.3152e-04_rb,1.1713e-04_rb,6.1219e-05_rb/)
+      kbo(:, 1,20, 1) = (/ &
+     &1.8003e-05_rb,3.3802e-05_rb,3.5042e-05_rb,3.1068e-05_rb,2.0074e-05_rb/)
+      kbo(:, 2,20, 1) = (/ &
+     &1.9811e-05_rb,4.2600e-05_rb,4.4765e-05_rb,4.0426e-05_rb,2.6188e-05_rb/)
+      kbo(:, 3,20, 1) = (/ &
+     &2.3740e-05_rb,5.5990e-05_rb,5.9400e-05_rb,5.4019e-05_rb,3.3275e-05_rb/)
+      kbo(:, 4,20, 1) = (/ &
+     &3.0362e-05_rb,7.5435e-05_rb,8.0630e-05_rb,7.2808e-05_rb,4.1380e-05_rb/)
+      kbo(:, 5,20, 1) = (/ &
+     &4.0743e-05_rb,1.0263e-04_rb,1.0963e-04_rb,9.7998e-05_rb,5.0442e-05_rb/)
+      kbo(:, 1,21, 1) = (/ &
+     &1.4410e-05_rb,2.7872e-05_rb,2.9027e-05_rb,2.5943e-05_rb,1.6820e-05_rb/)
+      kbo(:, 2,21, 1) = (/ &
+     &1.6018e-05_rb,3.5348e-05_rb,3.7320e-05_rb,3.3900e-05_rb,2.1893e-05_rb/)
+      kbo(:, 3,21, 1) = (/ &
+     &1.9364e-05_rb,4.6630e-05_rb,4.9701e-05_rb,4.5376e-05_rb,2.7723e-05_rb/)
+      kbo(:, 4,21, 1) = (/ &
+     &2.4923e-05_rb,6.2936e-05_rb,6.7505e-05_rb,6.1129e-05_rb,3.4253e-05_rb/)
+      kbo(:, 5,21, 1) = (/ &
+     &3.3581e-05_rb,8.5657e-05_rb,9.1740e-05_rb,8.2183e-05_rb,4.1502e-05_rb/)
+      kbo(:, 1,22, 1) = (/ &
+     &1.1606e-05_rb,2.3345e-05_rb,2.4458e-05_rb,2.2044e-05_rb,1.4341e-05_rb/)
+      kbo(:, 2,22, 1) = (/ &
+     &1.3108e-05_rb,2.9860e-05_rb,3.1703e-05_rb,2.8973e-05_rb,1.8544e-05_rb/)
+      kbo(:, 3,22, 1) = (/ &
+     &1.6058e-05_rb,3.9598e-05_rb,4.2399e-05_rb,3.8843e-05_rb,2.3272e-05_rb/)
+      kbo(:, 4,22, 1) = (/ &
+     &2.0871e-05_rb,5.3592e-05_rb,5.7668e-05_rb,5.2303e-05_rb,2.8594e-05_rb/)
+      kbo(:, 5,22, 1) = (/ &
+     &2.8287e-05_rb,7.2910e-05_rb,7.8274e-05_rb,7.0191e-05_rb,3.4495e-05_rb/)
+      kbo(:, 1,23, 1) = (/ &
+     &9.3973e-06_rb,1.9636e-05_rb,2.0704e-05_rb,1.8793e-05_rb,1.2204e-05_rb/)
+      kbo(:, 2,23, 1) = (/ &
+     &1.0787e-05_rb,2.5322e-05_rb,2.7025e-05_rb,2.4831e-05_rb,1.5654e-05_rb/)
+      kbo(:, 3,23, 1) = (/ &
+     &1.3385e-05_rb,3.3729e-05_rb,3.6290e-05_rb,3.3307e-05_rb,1.9609e-05_rb/)
+      kbo(:, 4,23, 1) = (/ &
+     &1.7566e-05_rb,4.5745e-05_rb,4.9368e-05_rb,4.4833e-05_rb,2.3893e-05_rb/)
+      kbo(:, 5,23, 1) = (/ &
+     &2.3931e-05_rb,6.2215e-05_rb,6.6919e-05_rb,6.0045e-05_rb,2.8668e-05_rb/)
+      kbo(:, 1,24, 1) = (/ &
+     &7.7170e-06_rb,1.6679e-05_rb,1.7685e-05_rb,1.6128e-05_rb,1.0358e-05_rb/)
+      kbo(:, 2,24, 1) = (/ &
+     &9.0120e-06_rb,2.1659e-05_rb,2.3221e-05_rb,2.1395e-05_rb,1.3206e-05_rb/)
+      kbo(:, 3,24, 1) = (/ &
+     &1.1319e-05_rb,2.8989e-05_rb,3.1289e-05_rb,2.8717e-05_rb,1.6361e-05_rb/)
+      kbo(:, 4,24, 1) = (/ &
+     &1.4992e-05_rb,3.9385e-05_rb,4.2555e-05_rb,3.8633e-05_rb,1.9891e-05_rb/)
+      kbo(:, 5,24, 1) = (/ &
+     &2.0520e-05_rb,5.3479e-05_rb,5.7600e-05_rb,5.1654e-05_rb,2.3746e-05_rb/)
+      kbo(:, 1,25, 1) = (/ &
+     &6.3838e-06_rb,1.4248e-05_rb,1.5168e-05_rb,1.3906e-05_rb,8.8251e-06_rb/)
+      kbo(:, 2,25, 1) = (/ &
+     &7.5878e-06_rb,1.8635e-05_rb,2.0050e-05_rb,1.8513e-05_rb,1.1119e-05_rb/)
+      kbo(:, 3,25, 1) = (/ &
+     &9.6475e-06_rb,2.5052e-05_rb,2.7110e-05_rb,2.4846e-05_rb,1.3734e-05_rb/)
+      kbo(:, 4,25, 1) = (/ &
+     &1.2889e-05_rb,3.4075e-05_rb,3.6834e-05_rb,3.3385e-05_rb,1.6609e-05_rb/)
+      kbo(:, 5,25, 1) = (/ &
+     &1.7706e-05_rb,4.6181e-05_rb,4.9751e-05_rb,4.4544e-05_rb,1.9735e-05_rb/)
+      kbo(:, 1,26, 1) = (/ &
+     &5.3393e-06_rb,1.2288e-05_rb,1.3132e-05_rb,1.2096e-05_rb,7.5264e-06_rb/)
+      kbo(:, 2,26, 1) = (/ &
+     &6.4609e-06_rb,1.6189e-05_rb,1.7467e-05_rb,1.6131e-05_rb,9.4332e-06_rb/)
+      kbo(:, 3,26, 1) = (/ &
+     &8.3200e-06_rb,2.1853e-05_rb,2.3681e-05_rb,2.1653e-05_rb,1.1593e-05_rb/)
+      kbo(:, 4,26, 1) = (/ &
+     &1.1209e-05_rb,2.9737e-05_rb,3.2133e-05_rb,2.9046e-05_rb,1.3941e-05_rb/)
+      kbo(:, 5,26, 1) = (/ &
+     &1.5443e-05_rb,4.0196e-05_rb,4.3302e-05_rb,3.8639e-05_rb,1.6481e-05_rb/)
+      kbo(:, 1,27, 1) = (/ &
+     &4.5029e-06_rb,1.0646e-05_rb,1.1429e-05_rb,1.0549e-05_rb,6.4263e-06_rb/)
+      kbo(:, 2,27, 1) = (/ &
+     &5.5408e-06_rb,1.4124e-05_rb,1.5272e-05_rb,1.4080e-05_rb,8.0128e-06_rb/)
+      kbo(:, 3,27, 1) = (/ &
+     &7.2235e-06_rb,1.9128e-05_rb,2.0734e-05_rb,1.8902e-05_rb,9.7874e-06_rb/)
+      kbo(:, 4,27, 1) = (/ &
+     &9.8044e-06_rb,2.6022e-05_rb,2.8102e-05_rb,2.5321e-05_rb,1.1642e-05_rb/)
+      kbo(:, 5,27, 1) = (/ &
+     &1.3531e-05_rb,3.5058e-05_rb,3.7762e-05_rb,3.3580e-05_rb,1.3712e-05_rb/)
+      kbo(:, 1,28, 1) = (/ &
+     &3.8267e-06_rb,9.2605e-06_rb,9.9753e-06_rb,9.2087e-06_rb,5.4910e-06_rb/)
+      kbo(:, 2,28, 1) = (/ &
+     &4.7813e-06_rb,1.2361e-05_rb,1.3381e-05_rb,1.2301e-05_rb,6.7809e-06_rb/)
+      kbo(:, 3,28, 1) = (/ &
+     &6.3052e-06_rb,1.6784e-05_rb,1.8184e-05_rb,1.6520e-05_rb,8.1872e-06_rb/)
+      kbo(:, 4,28, 1) = (/ &
+     &8.6092e-06_rb,2.2800e-05_rb,2.4603e-05_rb,2.2078e-05_rb,9.6541e-06_rb/)
+      kbo(:, 5,28, 1) = (/ &
+     &1.1891e-05_rb,3.0613e-05_rb,3.2964e-05_rb,2.9199e-05_rb,1.1371e-05_rb/)
+      kbo(:, 1,29, 1) = (/ &
+     &3.2554e-06_rb,8.0646e-06_rb,8.7115e-06_rb,8.0443e-06_rb,4.6597e-06_rb/)
+      kbo(:, 2,29, 1) = (/ &
+     &4.1267e-06_rb,1.0826e-05_rb,1.1737e-05_rb,1.0754e-05_rb,5.7169e-06_rb/)
+      kbo(:, 3,29, 1) = (/ &
+     &5.4998e-06_rb,1.4722e-05_rb,1.5944e-05_rb,1.4441e-05_rb,6.8326e-06_rb/)
+      kbo(:, 4,29, 1) = (/ &
+     &7.5454e-06_rb,1.9957e-05_rb,2.1533e-05_rb,1.9256e-05_rb,8.0674e-06_rb/)
+      kbo(:, 5,29, 1) = (/ &
+     &1.0421e-05_rb,2.6692e-05_rb,2.8752e-05_rb,2.5378e-05_rb,9.4635e-06_rb/)
+      kbo(:, 1,30, 1) = (/ &
+     &2.7722e-06_rb,7.0257e-06_rb,7.6070e-06_rb,7.0209e-06_rb,3.9148e-06_rb/)
+      kbo(:, 2,30, 1) = (/ &
+     &3.5629e-06_rb,9.4753e-06_rb,1.0287e-05_rb,9.3951e-06_rb,4.7641e-06_rb/)
+      kbo(:, 3,30, 1) = (/ &
+     &4.7932e-06_rb,1.2893e-05_rb,1.3959e-05_rb,1.2600e-05_rb,5.6708e-06_rb/)
+      kbo(:, 4,30, 1) = (/ &
+     &6.5982e-06_rb,1.7431e-05_rb,1.8810e-05_rb,1.6759e-05_rb,6.6902e-06_rb/)
+      kbo(:, 5,30, 1) = (/ &
+     &9.1066e-06_rb,2.3231e-05_rb,2.5041e-05_rb,2.2031e-05_rb,7.8394e-06_rb/)
+      kbo(:, 1,31, 1) = (/ &
+     &2.3506e-06_rb,6.1052e-06_rb,6.6305e-06_rb,6.1196e-06_rb,3.2861e-06_rb/)
+      kbo(:, 2,31, 1) = (/ &
+     &3.0616e-06_rb,8.2670e-06_rb,8.9874e-06_rb,8.1933e-06_rb,3.9690e-06_rb/)
+      kbo(:, 3,31, 1) = (/ &
+     &4.1518e-06_rb,1.1245e-05_rb,1.2180e-05_rb,1.0973e-05_rb,4.7077e-06_rb/)
+      kbo(:, 4,31, 1) = (/ &
+     &5.7278e-06_rb,1.5154e-05_rb,1.6366e-05_rb,1.4549e-05_rb,5.5398e-06_rb/)
+      kbo(:, 5,31, 1) = (/ &
+     &7.8906e-06_rb,2.0109e-05_rb,2.1708e-05_rb,1.9053e-05_rb,6.4566e-06_rb/)
+      kbo(:, 1,32, 1) = (/ &
+     &2.0097e-06_rb,5.3323e-06_rb,5.8021e-06_rb,5.3502e-06_rb,2.7241e-06_rb/)
+      kbo(:, 2,32, 1) = (/ &
+     &2.6508e-06_rb,7.2383e-06_rb,7.8773e-06_rb,7.1648e-06_rb,3.2755e-06_rb/)
+      kbo(:, 3,32, 1) = (/ &
+     &3.6184e-06_rb,9.8348e-06_rb,1.0656e-05_rb,9.5737e-06_rb,3.8774e-06_rb/)
+      kbo(:, 4,32, 1) = (/ &
+     &4.9951e-06_rb,1.3205e-05_rb,1.4271e-05_rb,1.2656e-05_rb,4.5194e-06_rb/)
+      kbo(:, 5,32, 1) = (/ &
+     &6.8654e-06_rb,1.7445e-05_rb,1.8860e-05_rb,1.6511e-05_rb,5.2597e-06_rb/)
+      kbo(:, 1,33, 1) = (/ &
+     &1.7307e-06_rb,4.6719e-06_rb,5.0926e-06_rb,4.6864e-06_rb,2.2504e-06_rb/)
+      kbo(:, 2,33, 1) = (/ &
+     &2.3079e-06_rb,6.3540e-06_rb,6.9152e-06_rb,6.2764e-06_rb,2.6926e-06_rb/)
+      kbo(:, 3,33, 1) = (/ &
+     &3.1665e-06_rb,8.6147e-06_rb,9.3343e-06_rb,8.3614e-06_rb,3.1814e-06_rb/)
+      kbo(:, 4,33, 1) = (/ &
+     &4.3731e-06_rb,1.1528e-05_rb,1.2464e-05_rb,1.1023e-05_rb,3.7164e-06_rb/)
+      kbo(:, 5,33, 1) = (/ &
+     &5.9878e-06_rb,1.5151e-05_rb,1.6400e-05_rb,1.4316e-05_rb,4.2974e-06_rb/)
+      kbo(:, 1,34, 1) = (/ &
+     &1.4981e-06_rb,4.0834e-06_rb,4.4531e-06_rb,4.0843e-06_rb,1.8539e-06_rb/)
+      kbo(:, 2,34, 1) = (/ &
+     &2.0150e-06_rb,5.5569e-06_rb,6.0419e-06_rb,5.4716e-06_rb,2.2285e-06_rb/)
+      kbo(:, 3,34, 1) = (/ &
+     &2.7725e-06_rb,7.5151e-06_rb,8.1387e-06_rb,7.2690e-06_rb,2.6334e-06_rb/)
+      kbo(:, 4,34, 1) = (/ &
+     &3.8256e-06_rb,1.0019e-05_rb,1.0836e-05_rb,9.5549e-06_rb,3.0709e-06_rb/)
+      kbo(:, 5,34, 1) = (/ &
+     &5.2217e-06_rb,1.3116e-05_rb,1.4207e-05_rb,1.2368e-05_rb,3.5492e-06_rb/)
+      kbo(:, 1,35, 1) = (/ &
+     &1.2683e-06_rb,3.4717e-06_rb,3.7843e-06_rb,3.4639e-06_rb,1.5033e-06_rb/)
+      kbo(:, 2,35, 1) = (/ &
+     &1.7130e-06_rb,4.7242e-06_rb,5.1321e-06_rb,4.6386e-06_rb,1.8045e-06_rb/)
+      kbo(:, 3,35, 1) = (/ &
+     &2.3598e-06_rb,6.3794e-06_rb,6.9043e-06_rb,6.1552e-06_rb,2.1312e-06_rb/)
+      kbo(:, 4,35, 1) = (/ &
+     &3.2533e-06_rb,8.4861e-06_rb,9.1773e-06_rb,8.0771e-06_rb,2.4797e-06_rb/)
+      kbo(:, 5,35, 1) = (/ &
+     &4.4317e-06_rb,1.1084e-05_rb,1.2009e-05_rb,1.0436e-05_rb,2.8460e-06_rb/)
+      kbo(:, 1,36, 1) = (/ &
+     &1.0446e-06_rb,2.8596e-06_rb,3.1142e-06_rb,2.8488e-06_rb,1.1841e-06_rb/)
+      kbo(:, 2,36, 1) = (/ &
+     &1.4115e-06_rb,3.8911e-06_rb,4.2236e-06_rb,3.8148e-06_rb,1.4188e-06_rb/)
+      kbo(:, 3,36, 1) = (/ &
+     &1.9447e-06_rb,5.2529e-06_rb,5.6822e-06_rb,5.0612e-06_rb,1.6763e-06_rb/)
+      kbo(:, 4,36, 1) = (/ &
+     &2.6806e-06_rb,6.9854e-06_rb,7.5506e-06_rb,6.6402e-06_rb,1.9492e-06_rb/)
+      kbo(:, 5,36, 1) = (/ &
+     &3.6503e-06_rb,9.1210e-06_rb,9.8800e-06_rb,8.5784e-06_rb,2.2478e-06_rb/)
+      kbo(:, 1,37, 1) = (/ &
+     &8.3141e-07_rb,2.2606e-06_rb,2.4589e-06_rb,2.2521e-06_rb,9.1953e-07_rb/)
+      kbo(:, 2,37, 1) = (/ &
+     &1.1186e-06_rb,3.0759e-06_rb,3.3374e-06_rb,3.0170e-06_rb,1.1075e-06_rb/)
+      kbo(:, 3,37, 1) = (/ &
+     &1.5392e-06_rb,4.1590e-06_rb,4.4972e-06_rb,4.0085e-06_rb,1.3109e-06_rb/)
+      kbo(:, 4,37, 1) = (/ &
+     &2.1232e-06_rb,5.5433e-06_rb,5.9872e-06_rb,5.2697e-06_rb,1.5318e-06_rb/)
+      kbo(:, 5,37, 1) = (/ &
+     &2.8971e-06_rb,7.2549e-06_rb,7.8520e-06_rb,6.8216e-06_rb,1.7720e-06_rb/)
+      kbo(:, 1,38, 1) = (/ &
+     &6.6100e-07_rb,1.7834e-06_rb,1.9371e-06_rb,1.7763e-06_rb,7.1225e-07_rb/)
+      kbo(:, 2,38, 1) = (/ &
+     &8.8499e-07_rb,2.4255e-06_rb,2.6307e-06_rb,2.3793e-06_rb,8.6302e-07_rb/)
+      kbo(:, 3,38, 1) = (/ &
+     &1.2155e-06_rb,3.2848e-06_rb,3.5503e-06_rb,3.1675e-06_rb,1.0267e-06_rb/)
+      kbo(:, 4,38, 1) = (/ &
+     &1.6779e-06_rb,4.3885e-06_rb,4.7364e-06_rb,4.1721e-06_rb,1.2041e-06_rb/)
+      kbo(:, 5,38, 1) = (/ &
+     &2.2938e-06_rb,5.7578e-06_rb,6.2256e-06_rb,5.4129e-06_rb,1.3941e-06_rb/)
+      kbo(:, 1,39, 1) = (/ &
+     &5.2622e-07_rb,1.4074e-06_rb,1.5268e-06_rb,1.4013e-06_rb,5.4821e-07_rb/)
+      kbo(:, 2,39, 1) = (/ &
+     &7.0069e-07_rb,1.9130e-06_rb,2.0737e-06_rb,1.8765e-06_rb,6.6832e-07_rb/)
+      kbo(:, 3,39, 1) = (/ &
+     &9.6029e-07_rb,2.5942e-06_rb,2.8023e-06_rb,2.5024e-06_rb,8.0073e-07_rb/)
+      kbo(:, 4,39, 1) = (/ &
+     &1.3259e-06_rb,3.4737e-06_rb,3.7464e-06_rb,3.3022e-06_rb,9.3841e-07_rb/)
+      kbo(:, 5,39, 1) = (/ &
+     &1.8162e-06_rb,4.5691e-06_rb,4.9354e-06_rb,4.2944e-06_rb,1.0896e-06_rb/)
+      kbo(:, 1,40, 1) = (/ &
+     &4.1271e-07_rb,1.0842e-06_rb,1.1736e-06_rb,1.0777e-06_rb,4.1787e-07_rb/)
+      kbo(:, 2,40, 1) = (/ &
+     &5.4389e-07_rb,1.4709e-06_rb,1.5926e-06_rb,1.4421e-06_rb,5.1017e-07_rb/)
+      kbo(:, 3,40, 1) = (/ &
+     &7.4188e-07_rb,1.9982e-06_rb,2.1561e-06_rb,1.9284e-06_rb,6.1575e-07_rb/)
+      kbo(:, 4,40, 1) = (/ &
+     &1.0242e-06_rb,2.6854e-06_rb,2.8924e-06_rb,2.5529e-06_rb,7.2613e-07_rb/)
+      kbo(:, 5,40, 1) = (/ &
+     &1.4067e-06_rb,3.5476e-06_rb,3.8249e-06_rb,3.3331e-06_rb,8.4610e-07_rb/)
+      kbo(:, 1,41, 1) = (/ &
+     &3.2432e-07_rb,8.3392e-07_rb,9.0025e-07_rb,8.2659e-07_rb,3.1699e-07_rb/)
+      kbo(:, 2,41, 1) = (/ &
+     &4.2215e-07_rb,1.1277e-06_rb,1.2186e-06_rb,1.1049e-06_rb,3.8959e-07_rb/)
+      kbo(:, 3,41, 1) = (/ &
+     &5.7203e-07_rb,1.5335e-06_rb,1.6530e-06_rb,1.4808e-06_rb,4.7229e-07_rb/)
+      kbo(:, 4,41, 1) = (/ &
+     &7.8892e-07_rb,2.0682e-06_rb,2.2251e-06_rb,1.9663e-06_rb,5.6019e-07_rb/)
+      kbo(:, 5,41, 1) = (/ &
+     &1.0862e-06_rb,2.7447e-06_rb,2.9535e-06_rb,2.5776e-06_rb,6.5591e-07_rb/)
+      kbo(:, 1,42, 1) = (/ &
+     &2.5587e-07_rb,6.4253e-07_rb,6.9167e-07_rb,6.3420e-07_rb,2.3952e-07_rb/)
+      kbo(:, 2,42, 1) = (/ &
+     &3.2863e-07_rb,8.6497e-07_rb,9.3264e-07_rb,8.4649e-07_rb,2.9775e-07_rb/)
+      kbo(:, 3,42, 1) = (/ &
+     &4.4164e-07_rb,1.1761e-06_rb,1.2667e-06_rb,1.1361e-06_rb,3.6120e-07_rb/)
+      kbo(:, 4,42, 1) = (/ &
+     &6.0774e-07_rb,1.5914e-06_rb,1.7100e-06_rb,1.5131e-06_rb,4.3157e-07_rb/)
+      kbo(:, 5,42, 1) = (/ &
+     &8.3802e-07_rb,2.1211e-06_rb,2.2785e-06_rb,1.9912e-06_rb,5.0721e-07_rb/)
+      kbo(:, 1,43, 1) = (/ &
+     &2.0233e-07_rb,4.9120e-07_rb,5.2639e-07_rb,4.8089e-07_rb,1.7965e-07_rb/)
+      kbo(:, 2,43, 1) = (/ &
+     &2.5538e-07_rb,6.5692e-07_rb,7.0547e-07_rb,6.4075e-07_rb,2.2496e-07_rb/)
+      kbo(:, 3,43, 1) = (/ &
+     &3.3917e-07_rb,8.9179e-07_rb,9.5869e-07_rb,8.5986e-07_rb,2.7469e-07_rb/)
+      kbo(:, 4,43, 1) = (/ &
+     &4.6446e-07_rb,1.2101e-06_rb,1.2978e-06_rb,1.1498e-06_rb,3.3044e-07_rb/)
+      kbo(:, 5,43, 1) = (/ &
+     &6.4112e-07_rb,1.6212e-06_rb,1.7373e-06_rb,1.5201e-06_rb,3.9028e-07_rb/)
+      kbo(:, 1,44, 1) = (/ &
+     &1.6122e-07_rb,3.7551e-07_rb,3.9960e-07_rb,3.6377e-07_rb,1.3351e-07_rb/)
+      kbo(:, 2,44, 1) = (/ &
+     &1.9938e-07_rb,4.9773e-07_rb,5.3195e-07_rb,4.8258e-07_rb,1.6857e-07_rb/)
+      kbo(:, 3,44, 1) = (/ &
+     &2.6075e-07_rb,6.7334e-07_rb,7.2162e-07_rb,6.4719e-07_rb,2.0768e-07_rb/)
+      kbo(:, 4,44, 1) = (/ &
+     &3.5440e-07_rb,9.1528e-07_rb,9.7926e-07_rb,8.6831e-07_rb,2.5128e-07_rb/)
+      kbo(:, 5,44, 1) = (/ &
+     &4.8882e-07_rb,1.2321e-06_rb,1.3171e-06_rb,1.1536e-06_rb,2.9843e-07_rb/)
+      kbo(:, 1,45, 1) = (/ &
+     &1.2988e-07_rb,2.8870e-07_rb,3.0532e-07_rb,2.7582e-07_rb,9.8684e-08_rb/)
+      kbo(:, 2,45, 1) = (/ &
+     &1.5689e-07_rb,3.7846e-07_rb,4.0235e-07_rb,3.6402e-07_rb,1.2561e-07_rb/)
+      kbo(:, 3,45, 1) = (/ &
+     &2.0165e-07_rb,5.0920e-07_rb,5.4343e-07_rb,4.8733e-07_rb,1.5620e-07_rb/)
+      kbo(:, 4,45, 1) = (/ &
+     &2.7120e-07_rb,6.9216e-07_rb,7.3881e-07_rb,6.5533e-07_rb,1.9009e-07_rb/)
+      kbo(:, 5,45, 1) = (/ &
+     &3.7310e-07_rb,9.3568e-07_rb,9.9762e-07_rb,8.7425e-07_rb,2.2785e-07_rb/)
+      kbo(:, 1,46, 1) = (/ &
+     &1.0564e-07_rb,2.2197e-07_rb,2.3290e-07_rb,2.0875e-07_rb,7.2454e-08_rb/)
+      kbo(:, 2,46, 1) = (/ &
+     &1.2404e-07_rb,2.8745e-07_rb,3.0379e-07_rb,2.7335e-07_rb,9.2971e-08_rb/)
+      kbo(:, 3,46, 1) = (/ &
+     &1.5624e-07_rb,3.8369e-07_rb,4.0737e-07_rb,3.6500e-07_rb,1.1671e-07_rb/)
+      kbo(:, 4,46, 1) = (/ &
+     &2.0727e-07_rb,5.2051e-07_rb,5.5407e-07_rb,4.9156e-07_rb,1.4314e-07_rb/)
+      kbo(:, 5,46, 1) = (/ &
+     &2.8357e-07_rb,7.0586e-07_rb,7.5047e-07_rb,6.5798e-07_rb,1.7235e-07_rb/)
+      kbo(:, 1,47, 1) = (/ &
+     &8.6916e-08_rb,1.7066e-07_rb,1.7731e-07_rb,1.5740e-07_rb,5.2956e-08_rb/)
+      kbo(:, 2,47, 1) = (/ &
+     &9.8603e-08_rb,2.1737e-07_rb,2.2800e-07_rb,2.0365e-07_rb,6.8355e-08_rb/)
+      kbo(:, 3,47, 1) = (/ &
+     &1.2114e-07_rb,2.8693e-07_rb,3.0257e-07_rb,2.7060e-07_rb,8.6098e-08_rb/)
+      kbo(:, 4,47, 1) = (/ &
+     &1.5770e-07_rb,3.8735e-07_rb,4.1075e-07_rb,3.6401e-07_rb,1.0681e-07_rb/)
+      kbo(:, 5,47, 1) = (/ &
+     &2.1366e-07_rb,5.2607e-07_rb,5.5766e-07_rb,4.8899e-07_rb,1.2936e-07_rb/)
+      kbo(:, 1,48, 1) = (/ &
+     &7.2690e-08_rb,1.3243e-07_rb,1.3635e-07_rb,1.1959e-07_rb,3.9422e-08_rb/)
+      kbo(:, 2,48, 1) = (/ &
+     &7.9634e-08_rb,1.6556e-07_rb,1.7235e-07_rb,1.5270e-07_rb,4.9882e-08_rb/)
+      kbo(:, 3,48, 1) = (/ &
+     &9.5002e-08_rb,2.1570e-07_rb,2.2592e-07_rb,2.0102e-07_rb,6.3148e-08_rb/)
+      kbo(:, 4,48, 1) = (/ &
+     &1.2105e-07_rb,2.8907e-07_rb,3.0482e-07_rb,2.6976e-07_rb,7.9242e-08_rb/)
+      kbo(:, 5,48, 1) = (/ &
+     &1.6180e-07_rb,3.9224e-07_rb,4.1437e-07_rb,3.6322e-07_rb,9.6936e-08_rb/)
+      kbo(:, 1,49, 1) = (/ &
+     &6.1774e-08_rb,1.0401e-07_rb,1.0607e-07_rb,9.1394e-08_rb,2.9238e-08_rb/)
+      kbo(:, 2,49, 1) = (/ &
+     &6.5366e-08_rb,1.2732e-07_rb,1.3151e-07_rb,1.1526e-07_rb,3.6075e-08_rb/)
+      kbo(:, 3,49, 1) = (/ &
+     &7.5416e-08_rb,1.6321e-07_rb,1.6967e-07_rb,1.4985e-07_rb,4.6286e-08_rb/)
+      kbo(:, 4,49, 1) = (/ &
+     &9.3863e-08_rb,2.1656e-07_rb,2.2682e-07_rb,2.0018e-07_rb,5.8261e-08_rb/)
+      kbo(:, 5,49, 1) = (/ &
+     &1.2334e-07_rb,2.9285e-07_rb,3.0807e-07_rb,2.6986e-07_rb,7.1843e-08_rb/)
+      kbo(:, 1,50, 1) = (/ &
+     &5.3206e-08_rb,8.3103e-08_rb,8.3626e-08_rb,7.1042e-08_rb,2.0418e-08_rb/)
+      kbo(:, 2,50, 1) = (/ &
+     &5.4599e-08_rb,9.9314e-08_rb,1.0171e-07_rb,8.8074e-08_rb,2.6669e-08_rb/)
+      kbo(:, 3,50, 1) = (/ &
+     &6.0981e-08_rb,1.2515e-07_rb,1.2917e-07_rb,1.1305e-07_rb,3.4171e-08_rb/)
+      kbo(:, 4,50, 1) = (/ &
+     &7.3992e-08_rb,1.6416e-07_rb,1.7066e-07_rb,1.4995e-07_rb,4.3100e-08_rb/)
+      kbo(:, 5,50, 1) = (/ &
+     &9.5401e-08_rb,2.2074e-07_rb,2.3106e-07_rb,2.0200e-07_rb,5.3679e-08_rb/)
+      kbo(:, 1,51, 1) = (/ &
+     &4.6282e-08_rb,6.7151e-08_rb,6.6436e-08_rb,5.6117e-08_rb,1.4310e-08_rb/)
+      kbo(:, 2,51, 1) = (/ &
+     &4.6293e-08_rb,7.8464e-08_rb,7.9611e-08_rb,6.7952e-08_rb,2.0313e-08_rb/)
+      kbo(:, 3,51, 1) = (/ &
+     &5.0084e-08_rb,9.7036e-08_rb,9.9288e-08_rb,8.6023e-08_rb,2.5137e-08_rb/)
+      kbo(:, 4,51, 1) = (/ &
+     &5.9071e-08_rb,1.2553e-07_rb,1.2948e-07_rb,1.1300e-07_rb,3.2036e-08_rb/)
+      kbo(:, 5,51, 1) = (/ &
+     &7.4640e-08_rb,1.6747e-07_rb,1.7423e-07_rb,1.5170e-07_rb,4.0217e-08_rb/)
+      kbo(:, 1,52, 1) = (/ &
+     &4.0629e-08_rb,5.4875e-08_rb,5.3346e-08_rb,4.4940e-08_rb,9.9095e-09_rb/)
+      kbo(:, 2,52, 1) = (/ &
+     &3.9810e-08_rb,6.2753e-08_rb,6.2779e-08_rb,5.3045e-08_rb,1.4355e-08_rb/)
+      kbo(:, 3,52, 1) = (/ &
+     &4.1749e-08_rb,7.5935e-08_rb,7.6945e-08_rb,6.5932e-08_rb,1.8547e-08_rb/)
+      kbo(:, 4,52, 1) = (/ &
+     &4.7734e-08_rb,9.6672e-08_rb,9.8927e-08_rb,8.5559e-08_rb,2.3788e-08_rb/)
+      kbo(:, 5,52, 1) = (/ &
+     &5.9002e-08_rb,1.2763e-07_rb,1.3186e-07_rb,1.1423e-07_rb,2.9932e-08_rb/)
+      kbo(:, 1,53, 1) = (/ &
+     &3.5975e-08_rb,4.5399e-08_rb,4.2771e-08_rb,3.6200e-08_rb,6.7635e-09_rb/)
+      kbo(:, 2,53, 1) = (/ &
+     &3.4672e-08_rb,5.0776e-08_rb,4.9763e-08_rb,4.1778e-08_rb,1.0001e-08_rb/)
+      kbo(:, 3,53, 1) = (/ &
+     &3.5325e-08_rb,6.0020e-08_rb,6.0156e-08_rb,5.0998e-08_rb,1.3726e-08_rb/)
+      kbo(:, 4,53, 1) = (/ &
+     &3.9133e-08_rb,7.5038e-08_rb,7.6143e-08_rb,6.5063e-08_rb,1.7480e-08_rb/)
+      kbo(:, 5,53, 1) = (/ &
+     &4.7140e-08_rb,9.7792e-08_rb,1.0026e-07_rb,8.6276e-08_rb,2.2211e-08_rb/)
+      kbo(:, 1,54, 1) = (/ &
+     &3.2026e-08_rb,3.8173e-08_rb,3.4913e-08_rb,2.9554e-08_rb,4.7895e-09_rb/)
+      kbo(:, 2,54, 1) = (/ &
+     &3.0459e-08_rb,4.1712e-08_rb,4.0172e-08_rb,3.3417e-08_rb,7.2202e-09_rb/)
+      kbo(:, 3,54, 1) = (/ &
+     &3.0344e-08_rb,4.8248e-08_rb,4.7728e-08_rb,3.9999e-08_rb,1.0387e-08_rb/)
+      kbo(:, 4,54, 1) = (/ &
+     &3.2650e-08_rb,5.9169e-08_rb,5.9453e-08_rb,5.0241e-08_rb,1.3202e-08_rb/)
+      kbo(:, 5,54, 1) = (/ &
+     &3.8298e-08_rb,7.6040e-08_rb,7.7304e-08_rb,6.5975e-08_rb,1.6815e-08_rb/)
+      kbo(:, 1,55, 1) = (/ &
+     &2.8677e-08_rb,3.2441e-08_rb,2.8748e-08_rb,2.4151e-08_rb,3.5459e-09_rb/)
+      kbo(:, 2,55, 1) = (/ &
+     &2.6981e-08_rb,3.4720e-08_rb,3.2391e-08_rb,2.6974e-08_rb,5.3560e-09_rb/)
+      kbo(:, 3,55, 1) = (/ &
+     &2.6409e-08_rb,3.9355e-08_rb,3.8167e-08_rb,3.1739e-08_rb,7.7448e-09_rb/)
+      kbo(:, 4,55, 1) = (/ &
+     &2.7649e-08_rb,4.7215e-08_rb,4.6970e-08_rb,3.9144e-08_rb,1.0056e-08_rb/)
+      kbo(:, 5,55, 1) = (/ &
+     &3.1553e-08_rb,5.9776e-08_rb,6.0219e-08_rb,5.0851e-08_rb,1.2897e-08_rb/)
+      kbo(:, 1,56, 1) = (/ &
+     &2.5871e-08_rb,2.7896e-08_rb,2.4025e-08_rb,1.9941e-08_rb,2.5789e-09_rb/)
+      kbo(:, 2,56, 1) = (/ &
+     &2.4111e-08_rb,2.9230e-08_rb,2.6562e-08_rb,2.2012e-08_rb,3.9211e-09_rb/)
+      kbo(:, 3,56, 1) = (/ &
+     &2.3260e-08_rb,3.2443e-08_rb,3.0891e-08_rb,2.5392e-08_rb,5.7991e-09_rb/)
+      kbo(:, 4,56, 1) = (/ &
+     &2.3744e-08_rb,3.8105e-08_rb,3.7441e-08_rb,3.0750e-08_rb,7.7370e-09_rb/)
+      kbo(:, 5,56, 1) = (/ &
+     &2.6357e-08_rb,4.7419e-08_rb,4.7264e-08_rb,3.9435e-08_rb,9.8948e-09_rb/)
+      kbo(:, 1,57, 1) = (/ &
+     &2.3535e-08_rb,2.4259e-08_rb,2.0309e-08_rb,1.6435e-08_rb,1.8424e-09_rb/)
+      kbo(:, 2,57, 1) = (/ &
+     &2.1750e-08_rb,2.4981e-08_rb,2.1975e-08_rb,1.7965e-08_rb,2.8485e-09_rb/)
+      kbo(:, 3,57, 1) = (/ &
+     &2.0716e-08_rb,2.7095e-08_rb,2.5073e-08_rb,2.0518e-08_rb,4.3296e-09_rb/)
+      kbo(:, 4,57, 1) = (/ &
+     &2.0688e-08_rb,3.1150e-08_rb,2.9998e-08_rb,2.4389e-08_rb,6.0949e-09_rb/)
+      kbo(:, 5,57, 1) = (/ &
+     &2.2336e-08_rb,3.7957e-08_rb,3.7415e-08_rb,3.0783e-08_rb,7.5649e-09_rb/)
+      kbo(:, 1,58, 1) = (/ &
+     &1.0425e-08_rb,1.1830e-08_rb,1.1340e-08_rb,1.0982e-08_rb,1.3443e-09_rb/)
+      kbo(:, 2,58, 1) = (/ &
+     &9.5648e-09_rb,1.2002e-08_rb,1.2045e-08_rb,1.1710e-08_rb,2.0849e-09_rb/)
+      kbo(:, 3,58, 1) = (/ &
+     &9.0146e-09_rb,1.2747e-08_rb,1.3512e-08_rb,1.3201e-08_rb,3.2654e-09_rb/)
+      kbo(:, 4,58, 1) = (/ &
+     &8.8493e-09_rb,1.4369e-08_rb,1.5929e-08_rb,1.5466e-08_rb,4.7356e-09_rb/)
+      kbo(:, 5,58, 1) = (/ &
+     &9.3086e-09_rb,1.7138e-08_rb,1.9573e-08_rb,1.9214e-08_rb,5.8278e-09_rb/)
+      kbo(:, 1,59, 1) = (/ &
+     &9.0380e-09_rb,1.0080e-08_rb,9.6059e-09_rb,9.1584e-09_rb,1.1081e-09_rb/)
+      kbo(:, 2,59, 1) = (/ &
+     &8.2691e-09_rb,1.0165e-08_rb,1.0115e-08_rb,9.7014e-09_rb,1.7533e-09_rb/)
+      kbo(:, 3,59, 1) = (/ &
+     &7.7641e-09_rb,1.0688e-08_rb,1.1200e-08_rb,1.0889e-08_rb,2.7394e-09_rb/)
+      kbo(:, 4,59, 1) = (/ &
+     &7.5756e-09_rb,1.1927e-08_rb,1.3083e-08_rb,1.2667e-08_rb,3.9313e-09_rb/)
+      kbo(:, 5,59, 1) = (/ &
+     &7.8886e-09_rb,1.4088e-08_rb,1.5992e-08_rb,1.5688e-08_rb,4.8202e-09_rb/)
+      kbo(:, 1,13, 2) = (/ &
+     &2.3347e-04_rb,3.2740e-04_rb,3.1964e-04_rb,2.7562e-04_rb,2.3674e-04_rb/)
+      kbo(:, 2,13, 2) = (/ &
+     &2.9027e-04_rb,4.3170e-04_rb,4.3482e-04_rb,3.8943e-04_rb,3.2365e-04_rb/)
+      kbo(:, 3,13, 2) = (/ &
+     &3.9534e-04_rb,6.0684e-04_rb,6.1602e-04_rb,5.5281e-04_rb,4.2550e-04_rb/)
+      kbo(:, 4,13, 2) = (/ &
+     &5.7501e-04_rb,8.8229e-04_rb,8.9214e-04_rb,7.8504e-04_rb,5.3481e-04_rb/)
+      kbo(:, 5,13, 2) = (/ &
+     &8.7274e-04_rb,1.2992e-03_rb,1.2957e-03_rb,1.1072e-03_rb,6.5845e-04_rb/)
+      kbo(:, 1,14, 2) = (/ &
+     &2.0019e-04_rb,2.7999e-04_rb,2.7248e-04_rb,2.3561e-04_rb,2.0892e-04_rb/)
+      kbo(:, 2,14, 2) = (/ &
+     &2.5252e-04_rb,3.7448e-04_rb,3.7546e-04_rb,3.3478e-04_rb,2.8574e-04_rb/)
+      kbo(:, 3,14, 2) = (/ &
+     &3.4599e-04_rb,5.3246e-04_rb,5.3788e-04_rb,4.7751e-04_rb,3.6978e-04_rb/)
+      kbo(:, 4,14, 2) = (/ &
+     &5.0873e-04_rb,7.7992e-04_rb,7.8607e-04_rb,6.8145e-04_rb,4.6369e-04_rb/)
+      kbo(:, 5,14, 2) = (/ &
+     &7.7937e-04_rb,1.1544e-03_rb,1.1464e-03_rb,9.6300e-04_rb,5.7084e-04_rb/)
+      kbo(:, 1,15, 2) = (/ &
+     &1.6496e-04_rb,2.3313e-04_rb,2.2745e-04_rb,1.9815e-04_rb,1.7191e-04_rb/)
+      kbo(:, 2,15, 2) = (/ &
+     &2.0995e-04_rb,3.1642e-04_rb,3.1725e-04_rb,2.8352e-04_rb,2.3300e-04_rb/)
+      kbo(:, 3,15, 2) = (/ &
+     &2.9058e-04_rb,4.5406e-04_rb,4.6090e-04_rb,4.0582e-04_rb,3.0079e-04_rb/)
+      kbo(:, 4,15, 2) = (/ &
+     &4.3180e-04_rb,6.6786e-04_rb,6.7439e-04_rb,5.7938e-04_rb,3.7802e-04_rb/)
+      kbo(:, 5,15, 2) = (/ &
+     &6.6674e-04_rb,9.9697e-04_rb,9.8451e-04_rb,8.2076e-04_rb,4.7099e-04_rb/)
+      kbo(:, 1,16, 2) = (/ &
+     &1.3273e-04_rb,1.9160e-04_rb,1.8863e-04_rb,1.6534e-04_rb,1.4034e-04_rb/)
+      kbo(:, 2,16, 2) = (/ &
+     &1.7022e-04_rb,2.6274e-04_rb,2.6590e-04_rb,2.3774e-04_rb,1.8655e-04_rb/)
+      kbo(:, 3,16, 2) = (/ &
+     &2.3798e-04_rb,3.7894e-04_rb,3.8748e-04_rb,3.4032e-04_rb,2.3998e-04_rb/)
+      kbo(:, 4,16, 2) = (/ &
+     &3.5812e-04_rb,5.6381e-04_rb,5.6807e-04_rb,4.8599e-04_rb,3.0617e-04_rb/)
+      kbo(:, 5,16, 2) = (/ &
+     &5.5540e-04_rb,8.4478e-04_rb,8.3109e-04_rb,6.8770e-04_rb,3.7973e-04_rb/)
+      kbo(:, 1,17, 2) = (/ &
+     &1.0577e-04_rb,1.5680e-04_rb,1.5536e-04_rb,1.3786e-04_rb,1.1416e-04_rb/)
+      kbo(:, 2,17, 2) = (/ &
+     &1.3659e-04_rb,2.1658e-04_rb,2.2147e-04_rb,1.9766e-04_rb,1.5136e-04_rb/)
+      kbo(:, 3,17, 2) = (/ &
+     &1.9353e-04_rb,3.1591e-04_rb,3.2447e-04_rb,2.8337e-04_rb,1.9661e-04_rb/)
+      kbo(:, 4,17, 2) = (/ &
+     &2.9393e-04_rb,4.7241e-04_rb,4.7609e-04_rb,4.0460e-04_rb,2.4887e-04_rb/)
+      kbo(:, 5,17, 2) = (/ &
+     &4.5598e-04_rb,7.0740e-04_rb,6.9589e-04_rb,5.7452e-04_rb,3.0304e-04_rb/)
+      kbo(:, 1,18, 2) = (/ &
+     &8.2750e-05_rb,1.2686e-04_rb,1.2742e-04_rb,1.1403e-04_rb,9.3961e-05_rb/)
+      kbo(:, 2,18, 2) = (/ &
+     &1.0793e-04_rb,1.7707e-04_rb,1.8353e-04_rb,1.6336e-04_rb,1.2524e-04_rb/)
+      kbo(:, 3,18, 2) = (/ &
+     &1.5481e-04_rb,2.6078e-04_rb,2.6950e-04_rb,2.3444e-04_rb,1.6211e-04_rb/)
+      kbo(:, 4,18, 2) = (/ &
+     &2.3641e-04_rb,3.9024e-04_rb,3.9536e-04_rb,3.3586e-04_rb,2.0255e-04_rb/)
+      kbo(:, 5,18, 2) = (/ &
+     &3.6699e-04_rb,5.8299e-04_rb,5.7531e-04_rb,4.7694e-04_rb,2.4459e-04_rb/)
+      kbo(:, 1,19, 2) = (/ &
+     &6.5789e-05_rb,1.0377e-04_rb,1.0573e-04_rb,9.4747e-05_rb,7.8309e-05_rb/)
+      kbo(:, 2,19, 2) = (/ &
+     &8.6739e-05_rb,1.4667e-04_rb,1.5321e-04_rb,1.3630e-04_rb,1.0400e-04_rb/)
+      kbo(:, 3,19, 2) = (/ &
+     &1.2570e-04_rb,2.1696e-04_rb,2.2493e-04_rb,1.9585e-04_rb,1.3355e-04_rb/)
+      kbo(:, 4,19, 2) = (/ &
+     &1.9254e-04_rb,3.2492e-04_rb,3.2972e-04_rb,2.8110e-04_rb,1.6478e-04_rb/)
+      kbo(:, 5,19, 2) = (/ &
+     &2.9952e-04_rb,4.8402e-04_rb,4.8010e-04_rb,3.9892e-04_rb,1.9831e-04_rb/)
+      kbo(:, 1,20, 2) = (/ &
+     &5.3588e-05_rb,8.6632e-05_rb,8.9247e-05_rb,8.0067e-05_rb,6.5775e-05_rb/)
+      kbo(:, 2,20, 2) = (/ &
+     &7.1606e-05_rb,1.2377e-04_rb,1.3011e-04_rb,1.1561e-04_rb,8.7374e-05_rb/)
+      kbo(:, 3,20, 2) = (/ &
+     &1.0490e-04_rb,1.8400e-04_rb,1.9125e-04_rb,1.6630e-04_rb,1.1025e-04_rb/)
+      kbo(:, 4,20, 2) = (/ &
+     &1.6107e-04_rb,2.7570e-04_rb,2.7972e-04_rb,2.3864e-04_rb,1.3590e-04_rb/)
+      kbo(:, 5,20, 2) = (/ &
+     &2.5044e-04_rb,4.0870e-04_rb,4.0643e-04_rb,3.3832e-04_rb,1.6243e-04_rb/)
+      kbo(:, 1,21, 2) = (/ &
+     &4.3995e-05_rb,7.2776e-05_rb,7.5695e-05_rb,6.8050e-05_rb,5.5495e-05_rb/)
+      kbo(:, 2,21, 2) = (/ &
+     &5.9611e-05_rb,1.0482e-04_rb,1.1056e-04_rb,9.8202e-05_rb,7.3158e-05_rb/)
+      kbo(:, 3,21, 2) = (/ &
+     &8.7989e-05_rb,1.5634e-04_rb,1.6268e-04_rb,1.4172e-04_rb,9.0987e-05_rb/)
+      kbo(:, 4,21, 2) = (/ &
+     &1.3548e-04_rb,2.3394e-04_rb,2.3798e-04_rb,2.0295e-04_rb,1.1189e-04_rb/)
+      kbo(:, 5,21, 2) = (/ &
+     &2.1032e-04_rb,3.4525e-04_rb,3.4399e-04_rb,2.8683e-04_rb,1.3326e-04_rb/)
+      kbo(:, 1,22, 2) = (/ &
+     &3.6803e-05_rb,6.2518e-05_rb,6.5746e-05_rb,5.8989e-05_rb,4.7547e-05_rb/)
+      kbo(:, 2,22, 2) = (/ &
+     &5.0761e-05_rb,9.1003e-05_rb,9.6193e-05_rb,8.5393e-05_rb,6.0785e-05_rb/)
+      kbo(:, 3,22, 2) = (/ &
+     &7.5680e-05_rb,1.3601e-04_rb,1.4124e-04_rb,1.2316e-04_rb,7.5929e-05_rb/)
+      kbo(:, 4,22, 2) = (/ &
+     &1.1711e-04_rb,2.0303e-04_rb,2.0625e-04_rb,1.7599e-04_rb,9.2008e-05_rb/)
+      kbo(:, 5,22, 2) = (/ &
+     &1.8108e-04_rb,2.9768e-04_rb,2.9683e-04_rb,2.4768e-04_rb,1.0998e-04_rb/)
+      kbo(:, 1,23, 2) = (/ &
+     &3.1003e-05_rb,5.3823e-05_rb,5.7061e-05_rb,5.1271e-05_rb,4.0280e-05_rb/)
+      kbo(:, 2,23, 2) = (/ &
+     &4.3496e-05_rb,7.9103e-05_rb,8.3635e-05_rb,7.4369e-05_rb,5.0624e-05_rb/)
+      kbo(:, 3,23, 2) = (/ &
+     &6.5401e-05_rb,1.1830e-04_rb,1.2269e-04_rb,1.0707e-04_rb,6.2127e-05_rb/)
+      kbo(:, 4,23, 2) = (/ &
+     &1.0147e-04_rb,1.7576e-04_rb,1.7852e-04_rb,1.5248e-04_rb,7.5578e-05_rb/)
+      kbo(:, 5,23, 2) = (/ &
+     &1.5625e-04_rb,2.5690e-04_rb,2.5634e-04_rb,2.1357e-04_rb,9.0733e-05_rb/)
+      kbo(:, 1,24, 2) = (/ &
+     &2.6471e-05_rb,4.6863e-05_rb,4.9818e-05_rb,4.4807e-05_rb,3.2886e-05_rb/)
+      kbo(:, 2,24, 2) = (/ &
+     &3.7731e-05_rb,6.9280e-05_rb,7.2915e-05_rb,6.4892e-05_rb,4.1198e-05_rb/)
+      kbo(:, 3,24, 2) = (/ &
+     &5.7248e-05_rb,1.0347e-04_rb,1.0698e-04_rb,9.3403e-05_rb,5.0808e-05_rb/)
+      kbo(:, 4,24, 2) = (/ &
+     &8.8791e-05_rb,1.5319e-04_rb,1.5530e-04_rb,1.3247e-04_rb,6.1812e-05_rb/)
+      kbo(:, 5,24, 2) = (/ &
+     &1.3624e-04_rb,2.2303e-04_rb,2.2220e-04_rb,1.8474e-04_rb,7.4324e-05_rb/)
+      kbo(:, 1,25, 2) = (/ &
+     &2.2808e-05_rb,4.1048e-05_rb,4.3589e-05_rb,3.9316e-05_rb,2.6891e-05_rb/)
+      kbo(:, 2,25, 2) = (/ &
+     &3.2985e-05_rb,6.0936e-05_rb,6.3907e-05_rb,5.6898e-05_rb,3.3888e-05_rb/)
+      kbo(:, 3,25, 2) = (/ &
+     &5.0481e-05_rb,9.0713e-05_rb,9.3687e-05_rb,8.1693e-05_rb,4.1615e-05_rb/)
+      kbo(:, 4,25, 2) = (/ &
+     &7.8151e-05_rb,1.3406e-04_rb,1.3563e-04_rb,1.1547e-04_rb,5.0834e-05_rb/)
+      kbo(:, 5,25, 2) = (/ &
+     &1.1946e-04_rb,1.9452e-04_rb,1.9337e-04_rb,1.6037e-04_rb,6.0346e-05_rb/)
+      kbo(:, 1,26, 2) = (/ &
+     &1.9934e-05_rb,3.6349e-05_rb,3.8562e-05_rb,3.4809e-05_rb,2.2369e-05_rb/)
+      kbo(:, 2,26, 2) = (/ &
+     &2.9291e-05_rb,5.4051e-05_rb,5.6667e-05_rb,5.0301e-05_rb,2.7895e-05_rb/)
+      kbo(:, 3,26, 2) = (/ &
+     &4.5044e-05_rb,8.0419e-05_rb,8.2812e-05_rb,7.2007e-05_rb,3.4611e-05_rb/)
+      kbo(:, 4,26, 2) = (/ &
+     &6.9643e-05_rb,1.1855e-04_rb,1.1958e-04_rb,1.0144e-04_rb,4.1836e-05_rb/)
+      kbo(:, 5,26, 2) = (/ &
+     &1.0589e-04_rb,1.7128e-04_rb,1.6969e-04_rb,1.4033e-04_rb,4.9219e-05_rb/)
+      kbo(:, 1,27, 2) = (/ &
+     &1.7559e-05_rb,3.2313e-05_rb,3.4216e-05_rb,3.0835e-05_rb,1.8255e-05_rb/)
+      kbo(:, 2,27, 2) = (/ &
+     &2.6182e-05_rb,4.8079e-05_rb,5.0267e-05_rb,4.4498e-05_rb,2.3042e-05_rb/)
+      kbo(:, 3,27, 2) = (/ &
+     &4.0350e-05_rb,7.1540e-05_rb,7.3359e-05_rb,6.3538e-05_rb,2.8359e-05_rb/)
+      kbo(:, 4,27, 2) = (/ &
+     &6.2227e-05_rb,1.0500e-04_rb,1.0550e-04_rb,8.9231e-05_rb,3.3804e-05_rb/)
+      kbo(:, 5,27, 2) = (/ &
+     &9.4129e-05_rb,1.5114e-04_rb,1.4903e-04_rb,1.2285e-04_rb,4.0082e-05_rb/)
+      kbo(:, 1,28, 2) = (/ &
+     &1.5570e-05_rb,2.8729e-05_rb,3.0391e-05_rb,2.7331e-05_rb,1.4928e-05_rb/)
+      kbo(:, 2,28, 2) = (/ &
+     &2.3454e-05_rb,4.2868e-05_rb,4.4647e-05_rb,3.9416e-05_rb,1.8685e-05_rb/)
+      kbo(:, 3,28, 2) = (/ &
+     &3.6218e-05_rb,6.3627e-05_rb,6.4995e-05_rb,5.6106e-05_rb,2.2770e-05_rb/)
+      kbo(:, 4,28, 2) = (/ &
+     &5.5686e-05_rb,9.3113e-05_rb,9.3100e-05_rb,7.8497e-05_rb,2.7363e-05_rb/)
+      kbo(:, 5,28, 2) = (/ &
+     &8.3686e-05_rb,1.3339e-04_rb,1.3104e-04_rb,1.0755e-04_rb,3.2541e-05_rb/)
+      kbo(:, 1,29, 2) = (/ &
+     &1.3843e-05_rb,2.5623e-05_rb,2.7065e-05_rb,2.4295e-05_rb,1.2134e-05_rb/)
+      kbo(:, 2,29, 2) = (/ &
+     &2.1009e-05_rb,3.8248e-05_rb,3.9732e-05_rb,3.4977e-05_rb,1.5044e-05_rb/)
+      kbo(:, 3,29, 2) = (/ &
+     &3.2483e-05_rb,5.6676e-05_rb,5.7569e-05_rb,4.9592e-05_rb,1.8408e-05_rb/)
+      kbo(:, 4,29, 2) = (/ &
+     &4.9712e-05_rb,8.2574e-05_rb,8.2234e-05_rb,6.9025e-05_rb,2.2259e-05_rb/)
+      kbo(:, 5,29, 2) = (/ &
+     &7.4303e-05_rb,1.1753e-04_rb,1.1526e-04_rb,9.4159e-05_rb,2.6343e-05_rb/)
+      kbo(:, 1,30, 2) = (/ &
+     &1.2283e-05_rb,2.2826e-05_rb,2.4077e-05_rb,2.1586e-05_rb,9.7017e-06_rb/)
+      kbo(:, 2,30, 2) = (/ &
+     &1.8796e-05_rb,3.4070e-05_rb,3.5216e-05_rb,3.0990e-05_rb,1.2060e-05_rb/)
+      kbo(:, 3,30, 2) = (/ &
+     &2.9052e-05_rb,5.0361e-05_rb,5.0950e-05_rb,4.3716e-05_rb,1.4847e-05_rb/)
+      kbo(:, 4,30, 2) = (/ &
+     &4.4245e-05_rb,7.2929e-05_rb,7.2487e-05_rb,6.0571e-05_rb,1.7868e-05_rb/)
+      kbo(:, 5,30, 2) = (/ &
+     &6.5686e-05_rb,1.0336e-04_rb,1.0108e-04_rb,8.2235e-05_rb,2.0877e-05_rb/)
+      kbo(:, 1,31, 2) = (/ &
+     &1.0864e-05_rb,2.0303e-05_rb,2.1341e-05_rb,1.9138e-05_rb,7.8312e-06_rb/)
+      kbo(:, 2,31, 2) = (/ &
+     &1.6718e-05_rb,3.0263e-05_rb,3.1180e-05_rb,2.7363e-05_rb,9.6909e-06_rb/)
+      kbo(:, 3,31, 2) = (/ &
+     &2.5784e-05_rb,4.4485e-05_rb,4.4959e-05_rb,3.8436e-05_rb,1.1703e-05_rb/)
+      kbo(:, 4,31, 2) = (/ &
+     &3.9035e-05_rb,6.4113e-05_rb,6.3593e-05_rb,5.2930e-05_rb,1.4083e-05_rb/)
+      kbo(:, 5,31, 2) = (/ &
+     &5.7600e-05_rb,9.0427e-05_rb,8.8190e-05_rb,7.1491e-05_rb,1.6696e-05_rb/)
+      kbo(:, 1,32, 2) = (/ &
+     &9.6861e-06_rb,1.8129e-05_rb,1.9009e-05_rb,1.7005e-05_rb,6.3389e-06_rb/)
+      kbo(:, 2,32, 2) = (/ &
+     &1.4957e-05_rb,2.6929e-05_rb,2.7692e-05_rb,2.4209e-05_rb,7.7689e-06_rb/)
+      kbo(:, 3,32, 2) = (/ &
+     &2.2989e-05_rb,3.9434e-05_rb,3.9744e-05_rb,3.3837e-05_rb,9.3738e-06_rb/)
+      kbo(:, 4,32, 2) = (/ &
+     &3.4606e-05_rb,5.6545e-05_rb,5.5926e-05_rb,4.6356e-05_rb,1.1253e-05_rb/)
+      kbo(:, 5,32, 2) = (/ &
+     &5.0712e-05_rb,7.9301e-05_rb,7.7059e-05_rb,6.2285e-05_rb,1.3276e-05_rb/)
+      kbo(:, 1,33, 2) = (/ &
+     &8.6881e-06_rb,1.6215e-05_rb,1.6965e-05_rb,1.5122e-05_rb,5.0839e-06_rb/)
+      kbo(:, 2,33, 2) = (/ &
+     &1.3426e-05_rb,2.4037e-05_rb,2.4628e-05_rb,2.1434e-05_rb,6.2318e-06_rb/)
+      kbo(:, 3,33, 2) = (/ &
+     &2.0550e-05_rb,3.5027e-05_rb,3.5160e-05_rb,2.9820e-05_rb,7.5123e-06_rb/)
+      kbo(:, 4,33, 2) = (/ &
+     &3.0762e-05_rb,4.9971e-05_rb,4.9236e-05_rb,4.0640e-05_rb,8.9286e-06_rb/)
+      kbo(:, 5,33, 2) = (/ &
+     &4.4719e-05_rb,6.9592e-05_rb,6.7432e-05_rb,5.4322e-05_rb,1.0569e-05_rb/)
+      kbo(:, 1,34, 2) = (/ &
+     &7.7791e-06_rb,1.4442e-05_rb,1.5046e-05_rb,1.3360e-05_rb,4.1600e-06_rb/)
+      kbo(:, 2,34, 2) = (/ &
+     &1.2019e-05_rb,2.1346e-05_rb,2.1771e-05_rb,1.8857e-05_rb,5.0353e-06_rb/)
+      kbo(:, 3,34, 2) = (/ &
+     &1.8324e-05_rb,3.0972e-05_rb,3.0949e-05_rb,2.6117e-05_rb,6.0447e-06_rb/)
+      kbo(:, 4,34, 2) = (/ &
+     &2.7261e-05_rb,4.3932e-05_rb,4.3157e-05_rb,3.5442e-05_rb,7.1905e-06_rb/)
+      kbo(:, 5,34, 2) = (/ &
+     &3.9385e-05_rb,6.0888e-05_rb,5.8795e-05_rb,4.7179e-05_rb,8.5133e-06_rb/)
+      kbo(:, 1,35, 2) = (/ &
+     &6.6949e-06_rb,1.2390e-05_rb,1.2873e-05_rb,1.1410e-05_rb,3.2837e-06_rb/)
+      kbo(:, 2,35, 2) = (/ &
+     &1.0342e-05_rb,1.8289e-05_rb,1.8599e-05_rb,1.6068e-05_rb,4.0072e-06_rb/)
+      kbo(:, 3,35, 2) = (/ &
+     &1.5729e-05_rb,2.6447e-05_rb,2.6382e-05_rb,2.2198e-05_rb,4.8111e-06_rb/)
+      kbo(:, 4,35, 2) = (/ &
+     &2.3326e-05_rb,3.7424e-05_rb,3.6694e-05_rb,3.0052e-05_rb,5.7503e-06_rb/)
+      kbo(:, 5,35, 2) = (/ &
+     &3.3582e-05_rb,5.1735e-05_rb,4.9852e-05_rb,3.9921e-05_rb,6.8317e-06_rb/)
+      kbo(:, 1,36, 2) = (/ &
+     &5.5116e-06_rb,1.0195e-05_rb,1.0585e-05_rb,9.3814e-06_rb,2.5556e-06_rb/)
+      kbo(:, 2,36, 2) = (/ &
+     &8.5137e-06_rb,1.5037e-05_rb,1.5296e-05_rb,1.3209e-05_rb,3.1325e-06_rb/)
+      kbo(:, 3,36, 2) = (/ &
+     &1.2948e-05_rb,2.1753e-05_rb,2.1694e-05_rb,1.8250e-05_rb,3.7680e-06_rb/)
+      kbo(:, 4,36, 2) = (/ &
+     &1.9198e-05_rb,3.0787e-05_rb,3.0171e-05_rb,2.4706e-05_rb,4.5193e-06_rb/)
+      kbo(:, 5,36, 2) = (/ &
+     &2.7624e-05_rb,4.2550e-05_rb,4.0975e-05_rb,3.2811e-05_rb,5.3463e-06_rb/)
+      kbo(:, 1,37, 2) = (/ &
+     &4.2943e-06_rb,7.9625e-06_rb,8.2825e-06_rb,7.3555e-06_rb,1.9862e-06_rb/)
+      kbo(:, 2,37, 2) = (/ &
+     &6.6379e-06_rb,1.1772e-05_rb,1.1998e-05_rb,1.0386e-05_rb,2.4388e-06_rb/)
+      kbo(:, 3,37, 2) = (/ &
+     &1.0124e-05_rb,1.7087e-05_rb,1.7068e-05_rb,1.4395e-05_rb,2.9448e-06_rb/)
+      kbo(:, 4,37, 2) = (/ &
+     &1.5070e-05_rb,2.4266e-05_rb,2.3812e-05_rb,1.9543e-05_rb,3.5287e-06_rb/)
+      kbo(:, 5,37, 2) = (/ &
+     &2.1767e-05_rb,3.3653e-05_rb,3.2450e-05_rb,2.6024e-05_rb,4.1879e-06_rb/)
+      kbo(:, 1,38, 2) = (/ &
+     &3.3357e-06_rb,6.1963e-06_rb,6.4603e-06_rb,5.7499e-06_rb,1.5402e-06_rb/)
+      kbo(:, 2,38, 2) = (/ &
+     &5.1578e-06_rb,9.1863e-06_rb,9.3819e-06_rb,8.1434e-06_rb,1.8945e-06_rb/)
+      kbo(:, 3,38, 2) = (/ &
+     &7.8901e-06_rb,1.3380e-05_rb,1.3389e-05_rb,1.1321e-05_rb,2.2920e-06_rb/)
+      kbo(:, 4,38, 2) = (/ &
+     &1.1791e-05_rb,1.9066e-05_rb,1.8739e-05_rb,1.5418e-05_rb,2.7521e-06_rb/)
+      kbo(:, 5,38, 2) = (/ &
+     &1.7101e-05_rb,2.6537e-05_rb,2.5629e-05_rb,2.0591e-05_rb,3.2788e-06_rb/)
+      kbo(:, 1,39, 2) = (/ &
+     &2.5925e-06_rb,4.8221e-06_rb,5.0377e-06_rb,4.4928e-06_rb,1.1896e-06_rb/)
+      kbo(:, 2,39, 2) = (/ &
+     &4.0080e-06_rb,7.1657e-06_rb,7.3339e-06_rb,6.3822e-06_rb,1.4636e-06_rb/)
+      kbo(:, 3,39, 2) = (/ &
+     &6.1480e-06_rb,1.0471e-05_rb,1.0498e-05_rb,8.8998e-06_rb,1.7757e-06_rb/)
+      kbo(:, 4,39, 2) = (/ &
+     &9.2224e-06_rb,1.4975e-05_rb,1.4740e-05_rb,1.2159e-05_rb,2.1407e-06_rb/)
+      kbo(:, 5,39, 2) = (/ &
+     &1.3430e-05_rb,2.0919e-05_rb,2.0232e-05_rb,1.6286e-05_rb,2.5517e-06_rb/)
+      kbo(:, 1,40, 2) = (/ &
+     &1.9503e-06_rb,3.6256e-06_rb,3.7983e-06_rb,3.3983e-06_rb,9.0970e-07_rb/)
+      kbo(:, 2,40, 2) = (/ &
+     &3.0096e-06_rb,5.4072e-06_rb,5.5509e-06_rb,4.8509e-06_rb,1.1295e-06_rb/)
+      kbo(:, 3,40, 2) = (/ &
+     &4.6341e-06_rb,7.9436e-06_rb,7.9881e-06_rb,6.7974e-06_rb,1.3749e-06_rb/)
+      kbo(:, 4,40, 2) = (/ &
+     &6.9959e-06_rb,1.1429e-05_rb,1.1278e-05_rb,9.3390e-06_rb,1.6560e-06_rb/)
+      kbo(:, 5,40, 2) = (/ &
+     &1.0262e-05_rb,1.6061e-05_rb,1.5575e-05_rb,1.2573e-05_rb,1.9765e-06_rb/)
+      kbo(:, 1,41, 2) = (/ &
+     &1.4645e-06_rb,2.7131e-06_rb,2.8491e-06_rb,2.5571e-06_rb,6.9451e-07_rb/)
+      kbo(:, 2,41, 2) = (/ &
+     &2.2502e-06_rb,4.0586e-06_rb,4.1799e-06_rb,3.6674e-06_rb,8.6660e-07_rb/)
+      kbo(:, 3,41, 2) = (/ &
+     &3.4750e-06_rb,5.9931e-06_rb,6.0465e-06_rb,5.1654e-06_rb,1.0602e-06_rb/)
+      kbo(:, 4,41, 2) = (/ &
+     &5.2792e-06_rb,8.6774e-06_rb,8.5850e-06_rb,7.1396e-06_rb,1.2820e-06_rb/)
+      kbo(:, 5,41, 2) = (/ &
+     &7.8024e-06_rb,1.2273e-05_rb,1.1934e-05_rb,9.6653e-06_rb,1.5281e-06_rb/)
+      kbo(:, 1,42, 2) = (/ &
+     &1.1030e-06_rb,2.0298e-06_rb,2.1354e-06_rb,1.9220e-06_rb,5.2769e-07_rb/)
+      kbo(:, 2,42, 2) = (/ &
+     &1.6830e-06_rb,3.0429e-06_rb,3.1437e-06_rb,2.7680e-06_rb,6.5992e-07_rb/)
+      kbo(:, 3,42, 2) = (/ &
+     &2.6031e-06_rb,4.5149e-06_rb,4.5688e-06_rb,3.9192e-06_rb,8.1465e-07_rb/)
+      kbo(:, 4,42, 2) = (/ &
+     &3.9772e-06_rb,6.5768e-06_rb,6.5252e-06_rb,5.4495e-06_rb,9.8750e-07_rb/)
+      kbo(:, 5,42, 2) = (/ &
+     &5.9212e-06_rb,9.3604e-06_rb,9.1253e-06_rb,7.4182e-06_rb,1.1776e-06_rb/)
+      kbo(:, 1,43, 2) = (/ &
+     &8.2428e-07_rb,1.4953e-06_rb,1.5737e-06_rb,1.4196e-06_rb,3.9479e-07_rb/)
+      kbo(:, 2,43, 2) = (/ &
+     &1.2422e-06_rb,2.2430e-06_rb,2.3243e-06_rb,2.0532e-06_rb,4.9846e-07_rb/)
+      kbo(:, 3,43, 2) = (/ &
+     &1.9204e-06_rb,3.3444e-06_rb,3.3959e-06_rb,2.9263e-06_rb,6.1792e-07_rb/)
+      kbo(:, 4,43, 2) = (/ &
+     &2.9515e-06_rb,4.9083e-06_rb,4.8847e-06_rb,4.0977e-06_rb,7.5196e-07_rb/)
+      kbo(:, 5,43, 2) = (/ &
+     &4.4328e-06_rb,7.0409e-06_rb,6.8831e-06_rb,5.6178e-06_rb,9.0060e-07_rb/)
+      kbo(:, 1,44, 2) = (/ &
+     &6.1791e-07_rb,1.0964e-06_rb,1.1526e-06_rb,1.0396e-06_rb,2.9276e-07_rb/)
+      kbo(:, 2,44, 2) = (/ &
+     &9.1458e-07_rb,1.6410e-06_rb,1.7044e-06_rb,1.5103e-06_rb,3.7305e-07_rb/)
+      kbo(:, 3,44, 2) = (/ &
+     &1.4081e-06_rb,2.4567e-06_rb,2.5035e-06_rb,2.1667e-06_rb,4.6414e-07_rb/)
+      kbo(:, 4,44, 2) = (/ &
+     &2.1742e-06_rb,3.6323e-06_rb,3.6267e-06_rb,3.0560e-06_rb,5.6825e-07_rb/)
+      kbo(:, 5,44, 2) = (/ &
+     &3.2939e-06_rb,5.2553e-06_rb,5.1516e-06_rb,4.2228e-06_rb,6.8470e-07_rb/)
+      kbo(:, 1,45, 2) = (/ &
+     &4.6818e-07_rb,8.0720e-07_rb,8.4515e-07_rb,7.6099e-07_rb,2.1643e-07_rb/)
+      kbo(:, 2,45, 2) = (/ &
+     &6.7728e-07_rb,1.2013e-06_rb,1.2493e-06_rb,1.1096e-06_rb,2.7840e-07_rb/)
+      kbo(:, 3,45, 2) = (/ &
+     &1.0340e-06_rb,1.8032e-06_rb,1.8431e-06_rb,1.6011e-06_rb,3.4809e-07_rb/)
+      kbo(:, 4,45, 2) = (/ &
+     &1.6004e-06_rb,2.6834e-06_rb,2.6875e-06_rb,2.2740e-06_rb,4.2767e-07_rb/)
+      kbo(:, 5,45, 2) = (/ &
+     &2.4431e-06_rb,3.9144e-06_rb,3.8469e-06_rb,3.1675e-06_rb,5.1847e-07_rb/)
+      kbo(:, 1,46, 2) = (/ &
+     &3.5715e-07_rb,5.9421e-07_rb,6.1734e-07_rb,5.5305e-07_rb,1.5800e-07_rb/)
+      kbo(:, 2,46, 2) = (/ &
+     &5.0187e-07_rb,8.7381e-07_rb,9.0848e-07_rb,8.0843e-07_rb,2.0563e-07_rb/)
+      kbo(:, 3,46, 2) = (/ &
+     &7.5515e-07_rb,1.3118e-06_rb,1.3445e-06_rb,1.1721e-06_rb,2.5967e-07_rb/)
+      kbo(:, 4,46, 2) = (/ &
+     &1.1677e-06_rb,1.9633e-06_rb,1.9726e-06_rb,1.6766e-06_rb,3.2108e-07_rb/)
+      kbo(:, 5,46, 2) = (/ &
+     &1.7950e-06_rb,2.8885e-06_rb,2.8468e-06_rb,2.3553e-06_rb,3.9011e-07_rb/)
+      kbo(:, 1,47, 2) = (/ &
+     &2.7398e-07_rb,4.3581e-07_rb,4.4704e-07_rb,3.9668e-07_rb,1.1323e-07_rb/)
+      kbo(:, 2,47, 2) = (/ &
+     &3.7103e-07_rb,6.2850e-07_rb,6.5163e-07_rb,5.8000e-07_rb,1.4990e-07_rb/)
+      kbo(:, 3,47, 2) = (/ &
+     &5.4577e-07_rb,9.3956e-07_rb,9.6531e-07_rb,8.4415e-07_rb,1.9262e-07_rb/)
+      kbo(:, 4,47, 2) = (/ &
+     &8.3895e-07_rb,1.4116e-06_rb,1.4241e-06_rb,1.2169e-06_rb,2.3951e-07_rb/)
+      kbo(:, 5,47, 2) = (/ &
+     &1.2964e-06_rb,2.0956e-06_rb,2.0729e-06_rb,1.7247e-06_rb,2.9208e-07_rb/)
+      kbo(:, 1,48, 2) = (/ &
+     &2.1387e-07_rb,3.2471e-07_rb,3.2631e-07_rb,2.8559e-07_rb,7.9995e-08_rb/)
+      kbo(:, 2,48, 2) = (/ &
+     &2.7873e-07_rb,4.5569e-07_rb,4.6902e-07_rb,4.1584e-07_rb,1.0856e-07_rb/)
+      kbo(:, 3,48, 2) = (/ &
+     &3.9810e-07_rb,6.7425e-07_rb,6.9287e-07_rb,6.0740e-07_rb,1.4073e-07_rb/)
+      kbo(:, 4,48, 2) = (/ &
+     &6.0448e-07_rb,1.0143e-06_rb,1.0265e-06_rb,8.8097e-07_rb,1.7712e-07_rb/)
+      kbo(:, 5,48, 2) = (/ &
+     &9.3542e-07_rb,1.5166e-06_rb,1.5052e-06_rb,1.2587e-06_rb,2.1758e-07_rb/)
+      kbo(:, 1,49, 2) = (/ &
+     &1.6983e-07_rb,2.4624e-07_rb,2.4047e-07_rb,2.0742e-07_rb,5.5874e-08_rb/)
+      kbo(:, 2,49, 2) = (/ &
+     &2.1316e-07_rb,3.3392e-07_rb,3.3939e-07_rb,2.9852e-07_rb,7.7373e-08_rb/)
+      kbo(:, 3,49, 2) = (/ &
+     &2.9400e-07_rb,4.8579e-07_rb,4.9802e-07_rb,4.3681e-07_rb,1.0173e-07_rb/)
+      kbo(:, 4,49, 2) = (/ &
+     &4.3777e-07_rb,7.2867e-07_rb,7.3912e-07_rb,6.3632e-07_rb,1.2966e-07_rb/)
+      kbo(:, 5,49, 2) = (/ &
+     &6.7522e-07_rb,1.0953e-06_rb,1.0905e-06_rb,9.1600e-07_rb,1.6042e-07_rb/)
+      kbo(:, 1,50, 2) = (/ &
+     &1.3748e-07_rb,1.9105e-07_rb,1.8074e-07_rb,1.5294e-07_rb,4.0734e-08_rb/)
+      kbo(:, 2,50, 2) = (/ &
+     &1.6685e-07_rb,2.5027e-07_rb,2.4971e-07_rb,2.1712e-07_rb,5.5541e-08_rb/)
+      kbo(:, 3,50, 2) = (/ &
+     &2.2205e-07_rb,3.5580e-07_rb,3.6241e-07_rb,3.1709e-07_rb,7.4088e-08_rb/)
+      kbo(:, 4,50, 2) = (/ &
+     &3.2265e-07_rb,5.2953e-07_rb,5.3723e-07_rb,4.6323e-07_rb,9.5830e-08_rb/)
+      kbo(:, 5,50, 2) = (/ &
+     &4.9355e-07_rb,7.9777e-07_rb,7.9617e-07_rb,6.7111e-07_rb,1.2000e-07_rb/)
+      kbo(:, 1,51, 2) = (/ &
+     &1.1310e-07_rb,1.5095e-07_rb,1.3873e-07_rb,1.1416e-07_rb,2.8930e-08_rb/)
+      kbo(:, 2,51, 2) = (/ &
+     &1.3297e-07_rb,1.9104e-07_rb,1.8603e-07_rb,1.5944e-07_rb,3.9649e-08_rb/)
+      kbo(:, 3,51, 2) = (/ &
+     &1.7089e-07_rb,2.6387e-07_rb,2.6609e-07_rb,2.3142e-07_rb,5.4118e-08_rb/)
+      kbo(:, 4,51, 2) = (/ &
+     &2.4121e-07_rb,3.8782e-07_rb,3.9262e-07_rb,3.3860e-07_rb,7.0920e-08_rb/)
+      kbo(:, 5,51, 2) = (/ &
+     &3.6391e-07_rb,5.8370e-07_rb,5.8331e-07_rb,4.9304e-07_rb,8.9643e-08_rb/)
+      kbo(:, 1,52, 2) = (/ &
+     &9.4432e-08_rb,1.2100e-07_rb,1.0830e-07_rb,8.6173e-08_rb,2.0454e-08_rb/)
+      kbo(:, 2,52, 2) = (/ &
+     &1.0754e-07_rb,1.4816e-07_rb,1.4031e-07_rb,1.1784e-07_rb,2.8884e-08_rb/)
+      kbo(:, 3,52, 2) = (/ &
+     &1.3365e-07_rb,1.9803e-07_rb,1.9664e-07_rb,1.6925e-07_rb,3.9314e-08_rb/)
+      kbo(:, 4,52, 2) = (/ &
+     &1.8256e-07_rb,2.8565e-07_rb,2.8767e-07_rb,2.4757e-07_rb,5.1552e-08_rb/)
+      kbo(:, 5,52, 2) = (/ &
+     &2.7006e-07_rb,4.2782e-07_rb,4.2750e-07_rb,3.6187e-07_rb,6.6239e-08_rb/)
+      kbo(:, 1,53, 2) = (/ &
+     &7.9939e-08_rb,9.8272e-08_rb,8.6307e-08_rb,6.6012e-08_rb,1.4604e-08_rb/)
+      kbo(:, 2,53, 2) = (/ &
+     &8.8279e-08_rb,1.1673e-07_rb,1.0758e-07_rb,8.7937e-08_rb,2.0451e-08_rb/)
+      kbo(:, 3,53, 2) = (/ &
+     &1.0623e-07_rb,1.5078e-07_rb,1.4654e-07_rb,1.2425e-07_rb,2.8208e-08_rb/)
+      kbo(:, 4,53, 2) = (/ &
+     &1.4011e-07_rb,2.1203e-07_rb,2.1153e-07_rb,1.8129e-07_rb,3.7255e-08_rb/)
+      kbo(:, 5,53, 2) = (/ &
+     &2.0211e-07_rb,3.1443e-07_rb,3.1357e-07_rb,2.6539e-07_rb,4.8314e-08_rb/)
+      kbo(:, 1,54, 2) = (/ &
+     &6.8612e-08_rb,8.0858e-08_rb,7.0080e-08_rb,5.1088e-08_rb,1.0952e-08_rb/)
+      kbo(:, 2,54, 2) = (/ &
+     &7.3786e-08_rb,9.3902e-08_rb,8.4431e-08_rb,6.7059e-08_rb,1.4950e-08_rb/)
+      kbo(:, 3,54, 2) = (/ &
+     &8.6236e-08_rb,1.1751e-07_rb,1.1148e-07_rb,9.2909e-08_rb,2.0689e-08_rb/)
+      kbo(:, 4,54, 2) = (/ &
+     &1.1017e-07_rb,1.6065e-07_rb,1.5823e-07_rb,1.3458e-07_rb,2.7837e-08_rb/)
+      kbo(:, 5,54, 2) = (/ &
+     &1.5462e-07_rb,2.3495e-07_rb,2.3325e-07_rb,1.9698e-07_rb,3.6383e-08_rb/)
+      kbo(:, 1,55, 2) = (/ &
+     &5.9732e-08_rb,6.7403e-08_rb,5.7777e-08_rb,3.9915e-08_rb,8.5037e-09_rb/)
+      kbo(:, 2,55, 2) = (/ &
+     &6.2576e-08_rb,7.6690e-08_rb,6.7863e-08_rb,5.1930e-08_rb,1.1059e-08_rb/)
+      kbo(:, 3,55, 2) = (/ &
+     &7.1126e-08_rb,9.3200e-08_rb,8.6382e-08_rb,7.0395e-08_rb,1.5573e-08_rb/)
+      kbo(:, 4,55, 2) = (/ &
+     &8.8230e-08_rb,1.2378e-07_rb,1.1984e-07_rb,1.0085e-07_rb,2.1225e-08_rb/)
+      kbo(:, 5,55, 2) = (/ &
+     &1.2026e-07_rb,1.7765e-07_rb,1.7500e-07_rb,1.4721e-07_rb,2.7783e-08_rb/)
+      kbo(:, 1,56, 2) = (/ &
+     &5.2687e-08_rb,5.6857e-08_rb,4.7895e-08_rb,3.2001e-08_rb,6.6275e-09_rb/)
+      kbo(:, 2,56, 2) = (/ &
+     &5.3766e-08_rb,6.3415e-08_rb,5.5171e-08_rb,4.0341e-08_rb,8.2176e-09_rb/)
+      kbo(:, 3,56, 2) = (/ &
+     &5.9487e-08_rb,7.5070e-08_rb,6.7900e-08_rb,5.3874e-08_rb,1.1605e-08_rb/)
+      kbo(:, 4,56, 2) = (/ &
+     &7.1736e-08_rb,9.6663e-08_rb,9.1606e-08_rb,7.5983e-08_rb,1.6105e-08_rb/)
+      kbo(:, 5,56, 2) = (/ &
+     &9.4811e-08_rb,1.3547e-07_rb,1.3204e-07_rb,1.1036e-07_rb,2.1203e-08_rb/)
+      kbo(:, 1,57, 2) = (/ &
+     &4.7030e-08_rb,4.8568e-08_rb,3.9988e-08_rb,2.6219e-08_rb,4.9408e-09_rb/)
+      kbo(:, 2,57, 2) = (/ &
+     &4.6811e-08_rb,5.3015e-08_rb,4.5546e-08_rb,3.1769e-08_rb,6.1353e-09_rb/)
+      kbo(:, 3,57, 2) = (/ &
+     &5.0494e-08_rb,6.1370e-08_rb,5.4487e-08_rb,4.1710e-08_rb,8.6536e-09_rb/)
+      kbo(:, 4,57, 2) = (/ &
+     &5.9216e-08_rb,7.6592e-08_rb,7.0994e-08_rb,5.7693e-08_rb,1.1916e-08_rb/)
+      kbo(:, 5,57, 2) = (/ &
+     &7.5908e-08_rb,1.0451e-07_rb,1.0035e-07_rb,8.3097e-08_rb,1.6230e-08_rb/)
+      kbo(:, 1,58, 2) = (/ &
+     &2.0524e-08_rb,2.3377e-08_rb,2.2103e-08_rb,1.7291e-08_rb,3.6303e-09_rb/)
+      kbo(:, 2,58, 2) = (/ &
+     &2.0023e-08_rb,2.5008e-08_rb,2.4831e-08_rb,2.0273e-08_rb,4.7070e-09_rb/)
+      kbo(:, 3,58, 2) = (/ &
+     &2.1076e-08_rb,2.8356e-08_rb,2.8987e-08_rb,2.5840e-08_rb,6.5048e-09_rb/)
+      kbo(:, 4,58, 2) = (/ &
+     &2.4072e-08_rb,3.4377e-08_rb,3.6577e-08_rb,3.5144e-08_rb,8.9689e-09_rb/)
+      kbo(:, 5,58, 2) = (/ &
+     &3.0004e-08_rb,4.5626e-08_rb,5.0474e-08_rb,4.9976e-08_rb,1.2428e-08_rb/)
+      kbo(:, 1,59, 2) = (/ &
+     &1.7700e-08_rb,1.9843e-08_rb,1.8643e-08_rb,1.4520e-08_rb,2.9679e-09_rb/)
+      kbo(:, 2,59, 2) = (/ &
+     &1.7149e-08_rb,2.1008e-08_rb,2.0747e-08_rb,1.6830e-08_rb,3.9081e-09_rb/)
+      kbo(:, 3,59, 2) = (/ &
+     &1.7873e-08_rb,2.3612e-08_rb,2.4046e-08_rb,2.1098e-08_rb,5.4593e-09_rb/)
+      kbo(:, 4,59, 2) = (/ &
+     &2.0201e-08_rb,2.8287e-08_rb,2.9905e-08_rb,2.8473e-08_rb,7.4791e-09_rb/)
+      kbo(:, 5,59, 2) = (/ &
+     &2.4905e-08_rb,3.7065e-08_rb,4.0703e-08_rb,4.0125e-08_rb,1.0391e-08_rb/)
+      kbo(:, 1,13, 3) = (/ &
+     &7.5570e-04_rb,1.0772e-03_rb,1.0524e-03_rb,8.5610e-04_rb,5.7960e-04_rb/)
+      kbo(:, 2,13, 3) = (/ &
+     &1.1289e-03_rb,1.5736e-03_rb,1.5191e-03_rb,1.2213e-03_rb,7.5295e-04_rb/)
+      kbo(:, 3,13, 3) = (/ &
+     &1.7896e-03_rb,2.3714e-03_rb,2.2650e-03_rb,1.7547e-03_rb,9.2113e-04_rb/)
+      kbo(:, 4,13, 3) = (/ &
+     &2.8881e-03_rb,3.6381e-03_rb,3.3414e-03_rb,2.5211e-03_rb,1.0886e-03_rb/)
+      kbo(:, 5,13, 3) = (/ &
+     &4.6526e-03_rb,5.5012e-03_rb,4.9005e-03_rb,3.6099e-03_rb,1.2715e-03_rb/)
+      kbo(:, 1,14, 3) = (/ &
+     &6.5628e-04_rb,9.2369e-04_rb,9.0249e-04_rb,7.3144e-04_rb,5.2166e-04_rb/)
+      kbo(:, 2,14, 3) = (/ &
+     &1.0001e-03_rb,1.3681e-03_rb,1.3197e-03_rb,1.0469e-03_rb,6.6148e-04_rb/)
+      kbo(:, 3,14, 3) = (/ &
+     &1.6037e-03_rb,2.0859e-03_rb,1.9738e-03_rb,1.5151e-03_rb,7.9350e-04_rb/)
+      kbo(:, 4,14, 3) = (/ &
+     &2.6225e-03_rb,3.2284e-03_rb,2.9281e-03_rb,2.1941e-03_rb,9.2716e-04_rb/)
+      kbo(:, 5,14, 3) = (/ &
+     &4.2437e-03_rb,4.9002e-03_rb,4.3187e-03_rb,3.1691e-03_rb,1.0609e-03_rb/)
+      kbo(:, 1,15, 3) = (/ &
+     &5.5021e-04_rb,7.7058e-04_rb,7.4997e-04_rb,6.0721e-04_rb,4.5513e-04_rb/)
+      kbo(:, 2,15, 3) = (/ &
+     &8.5046e-04_rb,1.1533e-03_rb,1.1173e-03_rb,8.7626e-04_rb,5.6093e-04_rb/)
+      kbo(:, 3,15, 3) = (/ &
+     &1.3828e-03_rb,1.7898e-03_rb,1.6630e-03_rb,1.2772e-03_rb,6.6129e-04_rb/)
+      kbo(:, 4,15, 3) = (/ &
+     &2.2885e-03_rb,2.7671e-03_rb,2.4977e-03_rb,1.8674e-03_rb,7.6057e-04_rb/)
+      kbo(:, 5,15, 3) = (/ &
+     &3.7000e-03_rb,4.2354e-03_rb,3.7118e-03_rb,2.7146e-03_rb,8.7024e-04_rb/)
+      kbo(:, 1,16, 3) = (/ &
+     &4.5181e-04_rb,6.3192e-04_rb,6.1748e-04_rb,4.9522e-04_rb,3.6566e-04_rb/)
+      kbo(:, 2,16, 3) = (/ &
+     &7.0837e-04_rb,9.6443e-04_rb,9.2028e-04_rb,7.2449e-04_rb,4.4224e-04_rb/)
+      kbo(:, 3,16, 3) = (/ &
+     &1.1719e-03_rb,1.5071e-03_rb,1.3916e-03_rb,1.0704e-03_rb,5.1878e-04_rb/)
+      kbo(:, 4,16, 3) = (/ &
+     &1.9347e-03_rb,2.3410e-03_rb,2.1054e-03_rb,1.5750e-03_rb,5.9381e-04_rb/)
+      kbo(:, 5,16, 3) = (/ &
+     &3.1267e-03_rb,3.5933e-03_rb,3.1446e-03_rb,2.3012e-03_rb,6.8790e-04_rb/)
+      kbo(:, 1,17, 3) = (/ &
+     &3.7149e-04_rb,5.2008e-04_rb,5.0762e-04_rb,4.0757e-04_rb,2.8847e-04_rb/)
+      kbo(:, 2,17, 3) = (/ &
+     &5.8832e-04_rb,8.0612e-04_rb,7.6169e-04_rb,6.0348e-04_rb,3.4723e-04_rb/)
+      kbo(:, 3,17, 3) = (/ &
+     &9.7995e-04_rb,1.2582e-03_rb,1.1654e-03_rb,8.9803e-04_rb,4.0483e-04_rb/)
+      kbo(:, 4,17, 3) = (/ &
+     &1.6147e-03_rb,1.9685e-03_rb,1.7733e-03_rb,1.3298e-03_rb,4.7136e-04_rb/)
+      kbo(:, 5,17, 3) = (/ &
+     &2.6071e-03_rb,3.0247e-03_rb,2.6450e-03_rb,1.9458e-03_rb,5.5921e-04_rb/)
+      kbo(:, 1,18, 3) = (/ &
+     &3.0061e-04_rb,4.2884e-04_rb,4.1648e-04_rb,3.3754e-04_rb,2.3127e-04_rb/)
+      kbo(:, 2,18, 3) = (/ &
+     &4.8246e-04_rb,6.6793e-04_rb,6.3270e-04_rb,5.0432e-04_rb,2.7279e-04_rb/)
+      kbo(:, 3,18, 3) = (/ &
+     &8.0392e-04_rb,1.0486e-03_rb,9.7147e-04_rb,7.5301e-04_rb,3.2007e-04_rb/)
+      kbo(:, 4,18, 3) = (/ &
+     &1.3260e-03_rb,1.6386e-03_rb,1.4792e-03_rb,1.1164e-03_rb,3.8144e-04_rb/)
+      kbo(:, 5,18, 3) = (/ &
+     &2.1473e-03_rb,2.5126e-03_rb,2.2067e-03_rb,1.6276e-03_rb,4.4653e-04_rb/)
+      kbo(:, 1,19, 3) = (/ &
+     &2.4724e-04_rb,3.5910e-04_rb,3.4734e-04_rb,2.8349e-04_rb,1.8511e-04_rb/)
+      kbo(:, 2,19, 3) = (/ &
+     &4.0125e-04_rb,5.6017e-04_rb,5.3189e-04_rb,4.2493e-04_rb,2.2055e-04_rb/)
+      kbo(:, 3,19, 3) = (/ &
+     &6.6924e-04_rb,8.8342e-04_rb,8.2067e-04_rb,6.3860e-04_rb,2.6260e-04_rb/)
+      kbo(:, 4,19, 3) = (/ &
+     &1.1061e-03_rb,1.3792e-03_rb,1.2462e-03_rb,9.4376e-04_rb,3.1226e-04_rb/)
+      kbo(:, 5,19, 3) = (/ &
+     &1.7964e-03_rb,2.1126e-03_rb,1.8583e-03_rb,1.3721e-03_rb,3.6746e-04_rb/)
+      kbo(:, 1,20, 3) = (/ &
+     &2.0934e-04_rb,3.0700e-04_rb,2.9722e-04_rb,2.4267e-04_rb,1.4926e-04_rb/)
+      kbo(:, 2,20, 3) = (/ &
+     &3.4260e-04_rb,4.8187e-04_rb,4.5763e-04_rb,3.6566e-04_rb,1.7991e-04_rb/)
+      kbo(:, 3,20, 3) = (/ &
+     &5.7163e-04_rb,7.5991e-04_rb,7.0644e-04_rb,5.4990e-04_rb,2.1557e-04_rb/)
+      kbo(:, 4,20, 3) = (/ &
+     &9.4873e-04_rb,1.1845e-03_rb,1.0719e-03_rb,8.1150e-04_rb,2.5564e-04_rb/)
+      kbo(:, 5,20, 3) = (/ &
+     &1.5383e-03_rb,1.8175e-03_rb,1.5965e-03_rb,1.1755e-03_rb,3.0407e-04_rb/)
+      kbo(:, 1,21, 3) = (/ &
+     &1.7843e-04_rb,2.6350e-04_rb,2.5564e-04_rb,2.0870e-04_rb,1.2133e-04_rb/)
+      kbo(:, 2,21, 3) = (/ &
+     &2.9332e-04_rb,4.1557e-04_rb,3.9544e-04_rb,3.1597e-04_rb,1.4677e-04_rb/)
+      kbo(:, 3,21, 3) = (/ &
+     &4.9132e-04_rb,6.5537e-04_rb,6.0874e-04_rb,4.7437e-04_rb,1.7728e-04_rb/)
+      kbo(:, 4,21, 3) = (/ &
+     &8.1854e-04_rb,1.0220e-03_rb,9.2374e-04_rb,6.9881e-04_rb,2.1085e-04_rb/)
+      kbo(:, 5,21, 3) = (/ &
+     &1.3233e-03_rb,1.5674e-03_rb,1.3737e-03_rb,1.0105e-03_rb,2.5000e-04_rb/)
+      kbo(:, 1,22, 3) = (/ &
+     &1.5600e-04_rb,2.3165e-04_rb,2.2455e-04_rb,1.8380e-04_rb,9.8965e-05_rb/)
+      kbo(:, 2,22, 3) = (/ &
+     &2.5879e-04_rb,3.6647e-04_rb,3.4891e-04_rb,2.7934e-04_rb,1.2038e-04_rb/)
+      kbo(:, 3,22, 3) = (/ &
+     &4.3583e-04_rb,5.7888e-04_rb,5.3753e-04_rb,4.1782e-04_rb,1.4492e-04_rb/)
+      kbo(:, 4,22, 3) = (/ &
+     &7.2393e-04_rb,9.0328e-04_rb,8.1451e-04_rb,6.1366e-04_rb,1.7404e-04_rb/)
+      kbo(:, 5,22, 3) = (/ &
+     &1.1641e-03_rb,1.3807e-03_rb,1.2062e-03_rb,8.8532e-04_rb,2.0548e-04_rb/)
+      kbo(:, 1,23, 3) = (/ &
+     &1.3677e-04_rb,2.0433e-04_rb,1.9788e-04_rb,1.6232e-04_rb,8.0071e-05_rb/)
+      kbo(:, 2,23, 3) = (/ &
+     &2.2851e-04_rb,3.2392e-04_rb,3.0774e-04_rb,2.4623e-04_rb,9.8059e-05_rb/)
+      kbo(:, 3,23, 3) = (/ &
+     &3.8639e-04_rb,5.1167e-04_rb,4.7457e-04_rb,3.6749e-04_rb,1.1880e-04_rb/)
+      kbo(:, 4,23, 3) = (/ &
+     &6.3801e-04_rb,7.9694e-04_rb,7.1675e-04_rb,5.3954e-04_rb,1.4295e-04_rb/)
+      kbo(:, 5,23, 3) = (/ &
+     &1.0211e-03_rb,1.2096e-03_rb,1.0561e-03_rb,7.7552e-04_rb,1.6841e-04_rb/)
+      kbo(:, 1,24, 3) = (/ &
+     &1.2065e-04_rb,1.8059e-04_rb,1.7513e-04_rb,1.4381e-04_rb,6.4790e-05_rb/)
+      kbo(:, 2,24, 3) = (/ &
+     &2.0387e-04_rb,2.8742e-04_rb,2.7331e-04_rb,2.1771e-04_rb,7.9169e-05_rb/)
+      kbo(:, 3,24, 3) = (/ &
+     &3.4413e-04_rb,4.5518e-04_rb,4.2044e-04_rb,3.2458e-04_rb,9.5995e-05_rb/)
+      kbo(:, 4,24, 3) = (/ &
+     &5.6569e-04_rb,7.0542e-04_rb,6.3169e-04_rb,4.7542e-04_rb,1.1593e-04_rb/)
+      kbo(:, 5,24, 3) = (/ &
+     &8.9817e-04_rb,1.0616e-03_rb,9.2695e-04_rb,6.8043e-04_rb,1.3621e-04_rb/)
+      kbo(:, 1,25, 3) = (/ &
+     &1.0740e-04_rb,1.6092e-04_rb,1.5588e-04_rb,1.2763e-04_rb,5.2835e-05_rb/)
+      kbo(:, 2,25, 3) = (/ &
+     &1.8277e-04_rb,2.5653e-04_rb,2.4346e-04_rb,1.9325e-04_rb,6.4708e-05_rb/)
+      kbo(:, 3,25, 3) = (/ &
+     &3.0775e-04_rb,4.0577e-04_rb,3.7301e-04_rb,2.8766e-04_rb,7.8479e-05_rb/)
+      kbo(:, 4,25, 3) = (/ &
+     &5.0348e-04_rb,6.2434e-04_rb,5.5838e-04_rb,4.1972e-04_rb,9.2999e-05_rb/)
+      kbo(:, 5,25, 3) = (/ &
+     &7.9236e-04_rb,9.3393e-04_rb,8.1486e-04_rb,5.9712e-04_rb,1.1091e-04_rb/)
+      kbo(:, 1,26, 3) = (/ &
+     &9.7543e-05_rb,1.4515e-04_rb,1.4079e-04_rb,1.1469e-04_rb,4.3203e-05_rb/)
+      kbo(:, 2,26, 3) = (/ &
+     &1.6637e-04_rb,2.3211e-04_rb,2.1906e-04_rb,1.7338e-04_rb,5.3501e-05_rb/)
+      kbo(:, 3,26, 3) = (/ &
+     &2.7898e-04_rb,3.6497e-04_rb,3.3420e-04_rb,2.5717e-04_rb,6.4391e-05_rb/)
+      kbo(:, 4,26, 3) = (/ &
+     &4.5278e-04_rb,5.5785e-04_rb,4.9753e-04_rb,3.7293e-04_rb,7.6357e-05_rb/)
+      kbo(:, 5,26, 3) = (/ &
+     &7.0495e-04_rb,8.2859e-04_rb,7.2055e-04_rb,5.2702e-04_rb,9.1483e-05_rb/)
+      kbo(:, 1,27, 3) = (/ &
+     &8.8905e-05_rb,1.3136e-04_rb,1.2690e-04_rb,1.0312e-04_rb,3.5556e-05_rb/)
+      kbo(:, 2,27, 3) = (/ &
+     &1.5157e-04_rb,2.0993e-04_rb,1.9708e-04_rb,1.5550e-04_rb,4.3708e-05_rb/)
+      kbo(:, 3,27, 3) = (/ &
+     &2.5313e-04_rb,3.2779e-04_rb,2.9943e-04_rb,2.2974e-04_rb,5.2449e-05_rb/)
+      kbo(:, 4,27, 3) = (/ &
+     &4.0707e-04_rb,4.9850e-04_rb,4.4267e-04_rb,3.3107e-04_rb,6.3153e-05_rb/)
+      kbo(:, 5,27, 3) = (/ &
+     &6.2804e-04_rb,7.3434e-04_rb,6.3748e-04_rb,4.6470e-04_rb,7.4410e-05_rb/)
+      kbo(:, 1,28, 3) = (/ &
+     &8.1071e-05_rb,1.1893e-04_rb,1.1441e-04_rb,9.2670e-05_rb,2.9048e-05_rb/)
+      kbo(:, 2,28, 3) = (/ &
+     &1.3818e-04_rb,1.8937e-04_rb,1.7730e-04_rb,1.3932e-04_rb,3.5467e-05_rb/)
+      kbo(:, 3,28, 3) = (/ &
+     &2.2925e-04_rb,2.9449e-04_rb,2.6762e-04_rb,2.0484e-04_rb,4.2994e-05_rb/)
+      kbo(:, 4,28, 3) = (/ &
+     &3.6544e-04_rb,4.4427e-04_rb,3.9356e-04_rb,2.9338e-04_rb,5.1335e-05_rb/)
+      kbo(:, 5,28, 3) = (/ &
+     &5.5873e-04_rb,6.5113e-04_rb,5.6346e-04_rb,4.0933e-04_rb,6.0144e-05_rb/)
+      kbo(:, 1,29, 3) = (/ &
+     &7.4203e-05_rb,1.0781e-04_rb,1.0341e-04_rb,8.3458e-05_rb,2.3671e-05_rb/)
+      kbo(:, 2,29, 3) = (/ &
+     &1.2605e-04_rb,1.7113e-04_rb,1.5936e-04_rb,1.2487e-04_rb,2.9121e-05_rb/)
+      kbo(:, 3,29, 3) = (/ &
+     &2.0703e-04_rb,2.6395e-04_rb,2.3919e-04_rb,1.8248e-04_rb,3.5057e-05_rb/)
+      kbo(:, 4,29, 3) = (/ &
+     &3.2741e-04_rb,3.9598e-04_rb,3.4952e-04_rb,2.5961e-04_rb,4.1444e-05_rb/)
+      kbo(:, 5,29, 3) = (/ &
+     &4.9624e-04_rb,5.7661e-04_rb,4.9724e-04_rb,3.6006e-04_rb,4.8751e-05_rb/)
+      kbo(:, 1,30, 3) = (/ &
+     &6.7677e-05_rb,9.7468e-05_rb,9.3138e-05_rb,7.4923e-05_rb,1.9287e-05_rb/)
+      kbo(:, 2,30, 3) = (/ &
+     &1.1431e-04_rb,1.5374e-04_rb,1.4284e-04_rb,1.1153e-04_rb,2.3591e-05_rb/)
+      kbo(:, 3,30, 3) = (/ &
+     &1.8623e-04_rb,2.3583e-04_rb,2.1291e-04_rb,1.6193e-04_rb,2.8158e-05_rb/)
+      kbo(:, 4,30, 3) = (/ &
+     &2.9180e-04_rb,3.5163e-04_rb,3.0921e-04_rb,2.2892e-04_rb,3.3328e-05_rb/)
+      kbo(:, 5,30, 3) = (/ &
+     &4.3918e-04_rb,5.0854e-04_rb,4.3751e-04_rb,3.1569e-04_rb,3.9501e-05_rb/)
+      kbo(:, 1,31, 3) = (/ &
+     &6.1393e-05_rb,8.7694e-05_rb,8.3630e-05_rb,6.7048e-05_rb,1.5382e-05_rb/)
+      kbo(:, 2,31, 3) = (/ &
+     &1.0290e-04_rb,1.3743e-04_rb,1.2731e-04_rb,9.9241e-05_rb,1.8651e-05_rb/)
+      kbo(:, 3,31, 3) = (/ &
+     &1.6626e-04_rb,2.0956e-04_rb,1.8851e-04_rb,1.4301e-04_rb,2.2748e-05_rb/)
+      kbo(:, 4,31, 3) = (/ &
+     &2.5819e-04_rb,3.1016e-04_rb,2.7211e-04_rb,2.0081e-04_rb,2.7039e-05_rb/)
+      kbo(:, 5,31, 3) = (/ &
+     &3.8535e-04_rb,4.4535e-04_rb,3.8254e-04_rb,2.7522e-04_rb,3.1790e-05_rb/)
+      kbo(:, 1,32, 3) = (/ &
+     &5.5908e-05_rb,7.9178e-05_rb,7.5227e-05_rb,6.0166e-05_rb,1.2301e-05_rb/)
+      kbo(:, 2,32, 3) = (/ &
+     &9.3029e-05_rb,1.2336e-04_rb,1.1373e-04_rb,8.8415e-05_rb,1.5236e-05_rb/)
+      kbo(:, 3,32, 3) = (/ &
+     &1.4900e-04_rb,1.8677e-04_rb,1.6744e-04_rb,1.2652e-04_rb,1.8544e-05_rb/)
+      kbo(:, 4,32, 3) = (/ &
+     &2.2938e-04_rb,2.7443e-04_rb,2.4002e-04_rb,1.7648e-04_rb,2.2012e-05_rb/)
+      kbo(:, 5,32, 3) = (/ &
+     &3.3936e-04_rb,3.9112e-04_rb,3.3532e-04_rb,2.4040e-04_rb,2.5885e-05_rb/)
+      kbo(:, 1,33, 3) = (/ &
+     &5.1027e-05_rb,7.1592e-05_rb,6.7752e-05_rb,5.3984e-05_rb,1.0069e-05_rb/)
+      kbo(:, 2,33, 3) = (/ &
+     &8.4306e-05_rb,1.1082e-04_rb,1.0178e-04_rb,7.8786e-05_rb,1.2424e-05_rb/)
+      kbo(:, 3,33, 3) = (/ &
+     &1.3378e-04_rb,1.6666e-04_rb,1.4886e-04_rb,1.1198e-04_rb,1.5017e-05_rb/)
+      kbo(:, 4,33, 3) = (/ &
+     &2.0407e-04_rb,2.4310e-04_rb,2.1204e-04_rb,1.5519e-04_rb,1.7833e-05_rb/)
+      kbo(:, 5,33, 3) = (/ &
+     &2.9932e-04_rb,3.4399e-04_rb,2.9425e-04_rb,2.1002e-04_rb,2.0751e-05_rb/)
+      kbo(:, 1,34, 3) = (/ &
+     &4.6423e-05_rb,6.4385e-05_rb,6.0651e-05_rb,4.8084e-05_rb,8.2313e-06_rb/)
+      kbo(:, 2,34, 3) = (/ &
+     &7.6075e-05_rb,9.9124e-05_rb,9.0586e-05_rb,6.9780e-05_rb,1.0168e-05_rb/)
+      kbo(:, 3,34, 3) = (/ &
+     &1.1981e-04_rb,1.4811e-04_rb,1.3176e-04_rb,9.8597e-05_rb,1.2205e-05_rb/)
+      kbo(:, 4,34, 3) = (/ &
+     &1.8123e-04_rb,2.1472e-04_rb,1.8662e-04_rb,1.3590e-04_rb,1.4492e-05_rb/)
+      kbo(:, 5,34, 3) = (/ &
+     &2.6376e-04_rb,3.0190e-04_rb,2.5753e-04_rb,1.8301e-04_rb,1.6946e-05_rb/)
+      kbo(:, 1,35, 3) = (/ &
+     &4.0215e-05_rb,5.5516e-05_rb,5.2178e-05_rb,4.1265e-05_rb,6.6300e-06_rb/)
+      kbo(:, 2,35, 3) = (/ &
+     &6.5646e-05_rb,8.5207e-05_rb,7.7691e-05_rb,5.9694e-05_rb,8.1351e-06_rb/)
+      kbo(:, 3,35, 3) = (/ &
+     &1.0298e-04_rb,1.2694e-04_rb,1.1266e-04_rb,8.4059e-05_rb,9.8103e-06_rb/)
+      kbo(:, 4,35, 3) = (/ &
+     &1.5503e-04_rb,1.8334e-04_rb,1.5905e-04_rb,1.1551e-04_rb,1.1630e-05_rb/)
+      kbo(:, 5,35, 3) = (/ &
+     &2.2476e-04_rb,2.5697e-04_rb,2.1886e-04_rb,1.5514e-04_rb,1.3591e-05_rb/)
+      kbo(:, 1,36, 3) = (/ &
+     &3.2994e-05_rb,4.5660e-05_rb,4.2930e-05_rb,3.3969e-05_rb,5.1542e-06_rb/)
+      kbo(:, 2,36, 3) = (/ &
+     &5.3916e-05_rb,7.0104e-05_rb,6.3946e-05_rb,4.9132e-05_rb,6.3498e-06_rb/)
+      kbo(:, 3,36, 3) = (/ &
+     &8.4552e-05_rb,1.0443e-04_rb,9.2717e-05_rb,6.9170e-05_rb,7.6665e-06_rb/)
+      kbo(:, 4,36, 3) = (/ &
+     &1.2731e-04_rb,1.5086e-04_rb,1.3088e-04_rb,9.4999e-05_rb,9.0883e-06_rb/)
+      kbo(:, 5,36, 3) = (/ &
+     &1.8455e-04_rb,2.1131e-04_rb,1.8000e-04_rb,1.2756e-04_rb,1.0606e-05_rb/)
+      kbo(:, 1,37, 3) = (/ &
+     &2.5429e-05_rb,3.5502e-05_rb,3.3507e-05_rb,2.6612e-05_rb,3.9872e-06_rb/)
+      kbo(:, 2,37, 3) = (/ &
+     &4.1789e-05_rb,5.4774e-05_rb,5.0118e-05_rb,3.8644e-05_rb,4.9244e-06_rb/)
+      kbo(:, 3,37, 3) = (/ &
+     &6.5920e-05_rb,8.1963e-05_rb,7.2974e-05_rb,5.4610e-05_rb,5.9794e-06_rb/)
+      kbo(:, 4,37, 3) = (/ &
+     &9.9825e-05_rb,1.1892e-04_rb,1.0339e-04_rb,7.5254e-05_rb,7.1021e-06_rb/)
+      kbo(:, 5,37, 3) = (/ &
+     &1.4543e-04_rb,1.6731e-04_rb,1.4273e-04_rb,1.0135e-04_rb,8.2993e-06_rb/)
+      kbo(:, 1,38, 3) = (/ &
+     &1.9510e-05_rb,2.7499e-05_rb,2.6048e-05_rb,2.0774e-05_rb,3.0726e-06_rb/)
+      kbo(:, 2,38, 3) = (/ &
+     &3.2252e-05_rb,4.2623e-05_rb,3.9146e-05_rb,3.0291e-05_rb,3.8102e-06_rb/)
+      kbo(:, 3,38, 3) = (/ &
+     &5.1187e-05_rb,6.4097e-05_rb,5.7223e-05_rb,4.2970e-05_rb,4.6390e-06_rb/)
+      kbo(:, 4,38, 3) = (/ &
+     &7.8004e-05_rb,9.3430e-05_rb,8.1421e-05_rb,5.9437e-05_rb,5.5099e-06_rb/)
+      kbo(:, 5,38, 3) = (/ &
+     &1.1424e-04_rb,1.3207e-04_rb,1.1286e-04_rb,8.0305e-05_rb,6.4580e-06_rb/)
+      kbo(:, 1,39, 3) = (/ &
+     &1.4955e-05_rb,2.1282e-05_rb,2.0237e-05_rb,1.6208e-05_rb,2.3414e-06_rb/)
+      kbo(:, 2,39, 3) = (/ &
+     &2.4867e-05_rb,3.3144e-05_rb,3.0547e-05_rb,2.3724e-05_rb,2.9298e-06_rb/)
+      kbo(:, 3,39, 3) = (/ &
+     &3.9718e-05_rb,5.0092e-05_rb,4.4848e-05_rb,3.3792e-05_rb,3.5597e-06_rb/)
+      kbo(:, 4,39, 3) = (/ &
+     &6.0902e-05_rb,7.3365e-05_rb,6.4080e-05_rb,4.6913e-05_rb,4.2665e-06_rb/)
+      kbo(:, 5,39, 3) = (/ &
+     &8.9673e-05_rb,1.0416e-04_rb,8.9163e-05_rb,6.3592e-05_rb,5.0003e-06_rb/)
+      kbo(:, 1,40, 3) = (/ &
+     &1.0973e-05_rb,1.5834e-05_rb,1.5141e-05_rb,1.2207e-05_rb,1.7695e-06_rb/)
+      kbo(:, 2,40, 3) = (/ &
+     &1.8417e-05_rb,2.4851e-05_rb,2.3037e-05_rb,1.7992e-05_rb,2.2304e-06_rb/)
+      kbo(:, 3,40, 3) = (/ &
+     &2.9718e-05_rb,3.7867e-05_rb,3.4065e-05_rb,2.5810e-05_rb,2.7325e-06_rb/)
+      kbo(:, 4,40, 3) = (/ &
+     &4.6050e-05_rb,5.5927e-05_rb,4.9024e-05_rb,3.6065e-05_rb,3.2836e-06_rb/)
+      kbo(:, 5,40, 3) = (/ &
+     &6.8462e-05_rb,8.0022e-05_rb,6.8684e-05_rb,4.9179e-05_rb,3.8780e-06_rb/)
+      kbo(:, 1,41, 3) = (/ &
+     &7.9936e-06_rb,1.1702e-05_rb,1.1250e-05_rb,9.1326e-06_rb,1.3289e-06_rb/)
+      kbo(:, 2,41, 3) = (/ &
+     &1.3541e-05_rb,1.8510e-05_rb,1.7261e-05_rb,1.3563e-05_rb,1.6876e-06_rb/)
+      kbo(:, 3,41, 3) = (/ &
+     &2.2085e-05_rb,2.8450e-05_rb,2.5728e-05_rb,1.9606e-05_rb,2.0896e-06_rb/)
+      kbo(:, 4,41, 3) = (/ &
+     &3.4599e-05_rb,4.2393e-05_rb,3.7310e-05_rb,2.7591e-05_rb,2.5142e-06_rb/)
+      kbo(:, 5,41, 3) = (/ &
+     &5.1973e-05_rb,6.1166e-05_rb,5.2649e-05_rb,3.7859e-05_rb,2.9985e-06_rb/)
+      kbo(:, 1,42, 3) = (/ &
+     &5.8131e-06_rb,8.6287e-06_rb,8.3395e-06_rb,6.8180e-06_rb,9.9321e-07_rb/)
+      kbo(:, 2,42, 3) = (/ &
+     &9.9286e-06_rb,1.3753e-05_rb,1.2903e-05_rb,1.0201e-05_rb,1.2739e-06_rb/)
+      kbo(:, 3,42, 3) = (/ &
+     &1.6369e-05_rb,2.1324e-05_rb,1.9387e-05_rb,1.4861e-05_rb,1.5862e-06_rb/)
+      kbo(:, 4,42, 3) = (/ &
+     &2.5917e-05_rb,3.2058e-05_rb,2.8333e-05_rb,2.1064e-05_rb,1.9289e-06_rb/)
+      kbo(:, 5,42, 3) = (/ &
+     &3.9355e-05_rb,4.6652e-05_rb,4.0275e-05_rb,2.9099e-05_rb,2.3091e-06_rb/)
+      kbo(:, 1,43, 3) = (/ &
+     &4.1379e-06_rb,6.2276e-06_rb,6.0505e-06_rb,4.9862e-06_rb,7.3153e-07_rb/)
+      kbo(:, 2,43, 3) = (/ &
+     &7.1228e-06_rb,1.0012e-05_rb,9.4538e-06_rb,7.5288e-06_rb,9.4466e-07_rb/)
+      kbo(:, 3,43, 3) = (/ &
+     &1.1889e-05_rb,1.5688e-05_rb,1.4350e-05_rb,1.1075e-05_rb,1.1892e-06_rb/)
+      kbo(:, 4,43, 3) = (/ &
+     &1.9074e-05_rb,2.3844e-05_rb,2.1179e-05_rb,1.5845e-05_rb,1.4637e-06_rb/)
+      kbo(:, 5,43, 3) = (/ &
+     &2.9351e-05_rb,3.5073e-05_rb,3.0382e-05_rb,2.2068e-05_rb,1.7581e-06_rb/)
+      kbo(:, 1,44, 3) = (/ &
+     &2.9204e-06_rb,4.4462e-06_rb,4.3423e-06_rb,3.6069e-06_rb,5.3481e-07_rb/)
+      kbo(:, 2,44, 3) = (/ &
+     &5.0527e-06_rb,7.2110e-06_rb,6.8508e-06_rb,5.4982e-06_rb,6.9481e-07_rb/)
+      kbo(:, 3,44, 3) = (/ &
+     &8.5402e-06_rb,1.1419e-05_rb,1.0515e-05_rb,8.1724e-06_rb,8.8543e-07_rb/)
+      kbo(:, 4,44, 3) = (/ &
+     &1.3894e-05_rb,1.7562e-05_rb,1.5682e-05_rb,1.1814e-05_rb,1.0984e-06_rb/)
+      kbo(:, 5,44, 3) = (/ &
+     &2.1692e-05_rb,2.6150e-05_rb,2.2738e-05_rb,1.6619e-05_rb,1.3258e-06_rb/)
+      kbo(:, 1,45, 3) = (/ &
+     &2.0654e-06_rb,3.1706e-06_rb,3.1106e-06_rb,2.6027e-06_rb,3.8843e-07_rb/)
+      kbo(:, 2,45, 3) = (/ &
+     &3.5785e-06_rb,5.1800e-06_rb,4.9498e-06_rb,4.0029e-06_rb,5.0552e-07_rb/)
+      kbo(:, 3,45, 3) = (/ &
+     &6.1156e-06_rb,8.2899e-06_rb,7.6825e-06_rb,6.0114e-06_rb,6.4899e-07_rb/)
+      kbo(:, 4,45, 3) = (/ &
+     &1.0090e-05_rb,1.2899e-05_rb,1.1584e-05_rb,8.7849e-06_rb,8.1182e-07_rb/)
+      kbo(:, 5,45, 3) = (/ &
+     &1.5974e-05_rb,1.9436e-05_rb,1.6972e-05_rb,1.2481e-05_rb,9.9260e-07_rb/)
+      kbo(:, 1,46, 3) = (/ &
+     &1.4538e-06_rb,2.2381e-06_rb,2.2044e-06_rb,1.8570e-06_rb,2.7780e-07_rb/)
+      kbo(:, 2,46, 3) = (/ &
+     &2.5054e-06_rb,3.6761e-06_rb,3.5333e-06_rb,2.8803e-06_rb,3.6666e-07_rb/)
+      kbo(:, 3,46, 3) = (/ &
+     &4.3205e-06_rb,5.9430e-06_rb,5.5451e-06_rb,4.3709e-06_rb,4.7052e-07_rb/)
+      kbo(:, 4,46, 3) = (/ &
+     &7.2299e-06_rb,9.3616e-06_rb,8.4601e-06_rb,6.4628e-06_rb,5.9539e-07_rb/)
+      kbo(:, 5,46, 3) = (/ &
+     &1.1621e-05_rb,1.4285e-05_rb,1.2535e-05_rb,9.2836e-06_rb,7.3565e-07_rb/)
+      kbo(:, 1,47, 3) = (/ &
+     &1.0143e-06_rb,1.5538e-06_rb,1.5325e-06_rb,1.2979e-06_rb,1.9733e-07_rb/)
+      kbo(:, 2,47, 3) = (/ &
+     &1.7208e-06_rb,2.5538e-06_rb,2.4694e-06_rb,2.0305e-06_rb,2.6304e-07_rb/)
+      kbo(:, 3,47, 3) = (/ &
+     &2.9828e-06_rb,4.1702e-06_rb,3.9202e-06_rb,3.1167e-06_rb,3.4065e-07_rb/)
+      kbo(:, 4,47, 3) = (/ &
+     &5.0644e-06_rb,6.6541e-06_rb,6.0593e-06_rb,4.6660e-06_rb,4.3326e-07_rb/)
+      kbo(:, 5,47, 3) = (/ &
+     &8.2782e-06_rb,1.0300e-05_rb,9.0956e-06_rb,6.7879e-06_rb,5.4017e-07_rb/)
+      kbo(:, 1,48, 3) = (/ &
+     &7.2030e-07_rb,1.0845e-06_rb,1.0676e-06_rb,9.0611e-07_rb,1.3761e-07_rb/)
+      kbo(:, 2,48, 3) = (/ &
+     &1.1872e-06_rb,1.7730e-06_rb,1.7228e-06_rb,1.4271e-06_rb,1.8706e-07_rb/)
+      kbo(:, 3,48, 3) = (/ &
+     &2.0561e-06_rb,2.9161e-06_rb,2.7609e-06_rb,2.2135e-06_rb,2.4544e-07_rb/)
+      kbo(:, 4,48, 3) = (/ &
+     &3.5327e-06_rb,4.7102e-06_rb,4.3223e-06_rb,3.3540e-06_rb,3.1231e-07_rb/)
+      kbo(:, 5,48, 3) = (/ &
+     &5.8701e-06_rb,7.3943e-06_rb,6.5729e-06_rb,4.9432e-06_rb,3.9364e-07_rb/)
+      kbo(:, 1,49, 3) = (/ &
+     &5.2463e-07_rb,7.6406e-07_rb,7.4789e-07_rb,6.3224e-07_rb,9.4269e-08_rb/)
+      kbo(:, 2,49, 3) = (/ &
+     &8.2733e-07_rb,1.2326e-06_rb,1.2007e-06_rb,1.0005e-06_rb,1.3092e-07_rb/)
+      kbo(:, 3,49, 3) = (/ &
+     &1.4174e-06_rb,2.0342e-06_rb,1.9376e-06_rb,1.5657e-06_rb,1.7460e-07_rb/)
+      kbo(:, 4,49, 3) = (/ &
+     &2.4552e-06_rb,3.3221e-06_rb,3.0702e-06_rb,2.4004e-06_rb,2.2553e-07_rb/)
+      kbo(:, 5,49, 3) = (/ &
+     &4.1423e-06_rb,5.2851e-06_rb,4.7305e-06_rb,3.5840e-06_rb,2.8424e-07_rb/)
+      kbo(:, 1,50, 3) = (/ &
+     &3.9659e-07_rb,5.5178e-07_rb,5.3440e-07_rb,4.4722e-07_rb,6.5930e-08_rb/)
+      kbo(:, 2,50, 3) = (/ &
+     &5.9210e-07_rb,8.7140e-07_rb,8.4803e-07_rb,7.0817e-07_rb,9.3562e-08_rb/)
+      kbo(:, 3,50, 3) = (/ &
+     &9.9396e-07_rb,1.4345e-06_rb,1.3722e-06_rb,1.1160e-06_rb,1.2619e-07_rb/)
+      kbo(:, 4,50, 3) = (/ &
+     &1.7258e-06_rb,2.3624e-06_rb,2.1973e-06_rb,1.7292e-06_rb,1.6444e-07_rb/)
+      kbo(:, 5,50, 3) = (/ &
+     &2.9480e-06_rb,3.8052e-06_rb,3.4270e-06_rb,2.6131e-06_rb,2.0855e-07_rb/)
+      kbo(:, 1,51, 3) = (/ &
+     &3.0780e-07_rb,4.0724e-07_rb,3.8772e-07_rb,3.1909e-07_rb,4.7152e-08_rb/)
+      kbo(:, 2,51, 3) = (/ &
+     &4.3389e-07_rb,6.2376e-07_rb,6.0442e-07_rb,5.0387e-07_rb,6.6848e-08_rb/)
+      kbo(:, 3,51, 3) = (/ &
+     &7.0578e-07_rb,1.0183e-06_rb,9.7661e-07_rb,7.9773e-07_rb,9.1673e-08_rb/)
+      kbo(:, 4,51, 3) = (/ &
+     &1.2202e-06_rb,1.6857e-06_rb,1.5762e-06_rb,1.2481e-06_rb,1.2080e-07_rb/)
+      kbo(:, 5,51, 3) = (/ &
+     &2.1050e-06_rb,2.7463e-06_rb,2.4878e-06_rb,1.9078e-06_rb,1.5488e-07_rb/)
+      kbo(:, 1,52, 3) = (/ &
+     &2.4467e-07_rb,3.0672e-07_rb,2.8540e-07_rb,2.2927e-07_rb,3.3766e-08_rb/)
+      kbo(:, 2,52, 3) = (/ &
+     &3.2577e-07_rb,4.5139e-07_rb,4.3382e-07_rb,3.5906e-07_rb,4.7409e-08_rb/)
+      kbo(:, 3,52, 3) = (/ &
+     &5.0672e-07_rb,7.2555e-07_rb,6.9595e-07_rb,5.7001e-07_rb,6.5991e-08_rb/)
+      kbo(:, 4,52, 3) = (/ &
+     &8.6516e-07_rb,1.2018e-06_rb,1.1289e-06_rb,8.9884e-07_rb,8.8646e-08_rb/)
+      kbo(:, 5,52, 3) = (/ &
+     &1.5011e-06_rb,1.9777e-06_rb,1.8012e-06_rb,1.3890e-06_rb,1.1411e-07_rb/)
+      kbo(:, 1,53, 3) = (/ &
+     &1.9893e-07_rb,2.3655e-07_rb,2.1398e-07_rb,1.6650e-07_rb,2.3697e-08_rb/)
+      kbo(:, 2,53, 3) = (/ &
+     &2.5083e-07_rb,3.3159e-07_rb,3.1422e-07_rb,2.5680e-07_rb,3.3792e-08_rb/)
+      kbo(:, 3,53, 3) = (/ &
+     &3.6925e-07_rb,5.1963e-07_rb,4.9710e-07_rb,4.0705e-07_rb,4.7057e-08_rb/)
+      kbo(:, 4,53, 3) = (/ &
+     &6.1624e-07_rb,8.5716e-07_rb,8.0760e-07_rb,6.4558e-07_rb,6.4327e-08_rb/)
+      kbo(:, 5,53, 3) = (/ &
+     &1.0701e-06_rb,1.4207e-06_rb,1.3006e-06_rb,1.0081e-06_rb,8.3703e-08_rb/)
+      kbo(:, 1,54, 3) = (/ &
+     &1.6569e-07_rb,1.8826e-07_rb,1.6516e-07_rb,1.2463e-07_rb,1.7341e-08_rb/)
+      kbo(:, 2,54, 3) = (/ &
+     &1.9916e-07_rb,2.5095e-07_rb,2.3323e-07_rb,1.8716e-07_rb,2.4743e-08_rb/)
+      kbo(:, 3,54, 3) = (/ &
+     &2.7800e-07_rb,3.8083e-07_rb,3.6198e-07_rb,2.9489e-07_rb,3.4593e-08_rb/)
+      kbo(:, 4,54, 3) = (/ &
+     &4.4953e-07_rb,6.2218e-07_rb,5.8637e-07_rb,4.6947e-07_rb,4.7657e-08_rb/)
+      kbo(:, 5,54, 3) = (/ &
+     &7.7653e-07_rb,1.0348e-06_rb,9.5106e-07_rb,7.3964e-07_rb,6.2914e-08_rb/)
+      kbo(:, 1,55, 3) = (/ &
+     &1.4043e-07_rb,1.5348e-07_rb,1.3050e-07_rb,9.5790e-08_rb,1.3021e-08_rb/)
+      kbo(:, 2,55, 3) = (/ &
+     &1.6195e-07_rb,1.9454e-07_rb,1.7661e-07_rb,1.3842e-07_rb,1.8310e-08_rb/)
+      kbo(:, 3,55, 3) = (/ &
+     &2.1498e-07_rb,2.8400e-07_rb,2.6714e-07_rb,2.1561e-07_rb,2.5769e-08_rb/)
+      kbo(:, 4,55, 3) = (/ &
+     &3.3384e-07_rb,4.5663e-07_rb,4.2946e-07_rb,3.4367e-07_rb,3.5731e-08_rb/)
+      kbo(:, 5,55, 3) = (/ &
+     &5.6980e-07_rb,7.5956e-07_rb,6.9954e-07_rb,5.4544e-07_rb,4.7978e-08_rb/)
+      kbo(:, 1,56, 3) = (/ &
+     &1.2086e-07_rb,1.2723e-07_rb,1.0539e-07_rb,7.4446e-08_rb,9.2261e-09_rb/)
+      kbo(:, 2,56, 3) = (/ &
+     &1.3434e-07_rb,1.5407e-07_rb,1.3616e-07_rb,1.0396e-07_rb,1.3447e-08_rb/)
+      kbo(:, 3,56, 3) = (/ &
+     &1.7000e-07_rb,2.1506e-07_rb,1.9916e-07_rb,1.5861e-07_rb,1.9233e-08_rb/)
+      kbo(:, 4,56, 3) = (/ &
+     &2.5155e-07_rb,3.3746e-07_rb,3.1592e-07_rb,2.5204e-07_rb,2.6859e-08_rb/)
+      kbo(:, 5,56, 3) = (/ &
+     &4.2088e-07_rb,5.5907e-07_rb,5.1525e-07_rb,4.0220e-07_rb,3.6549e-08_rb/)
+      kbo(:, 1,57, 3) = (/ &
+     &1.0553e-07_rb,1.0707e-07_rb,8.7153e-08_rb,5.8944e-08_rb,6.8033e-09_rb/)
+      kbo(:, 2,57, 3) = (/ &
+     &1.1362e-07_rb,1.2487e-07_rb,1.0708e-07_rb,7.9506e-08_rb,9.8943e-09_rb/)
+      kbo(:, 3,57, 3) = (/ &
+     &1.3729e-07_rb,1.6577e-07_rb,1.5039e-07_rb,1.1755e-07_rb,1.4310e-08_rb/)
+      kbo(:, 4,57, 3) = (/ &
+     &1.9303e-07_rb,2.5185e-07_rb,2.3386e-07_rb,1.8533e-07_rb,2.0155e-08_rb/)
+      kbo(:, 5,57, 3) = (/ &
+     &3.1378e-07_rb,4.1313e-07_rb,3.8025e-07_rb,2.9656e-07_rb,2.7619e-08_rb/)
+      kbo(:, 1,58, 3) = (/ &
+     &4.5186e-08_rb,5.0890e-08_rb,4.7832e-08_rb,3.7472e-08_rb,5.1696e-09_rb/)
+      kbo(:, 2,58, 3) = (/ &
+     &4.7401e-08_rb,5.7618e-08_rb,5.6357e-08_rb,4.8955e-08_rb,7.4243e-09_rb/)
+      kbo(:, 3,58, 3) = (/ &
+     &5.5010e-08_rb,7.2882e-08_rb,7.5797e-08_rb,7.0136e-08_rb,1.0687e-08_rb/)
+      kbo(:, 4,58, 3) = (/ &
+     &7.3718e-08_rb,1.0653e-07_rb,1.1470e-07_rb,1.0884e-07_rb,1.5198e-08_rb/)
+      kbo(:, 5,58, 3) = (/ &
+     &1.1547e-07_rb,1.7203e-07_rb,1.8517e-07_rb,1.7422e-07_rb,2.1153e-08_rb/)
+      kbo(:, 1,59, 3) = (/ &
+     &3.8720e-08_rb,4.3027e-08_rb,4.0190e-08_rb,3.1252e-08_rb,4.1397e-09_rb/)
+      kbo(:, 2,59, 3) = (/ &
+     &4.0213e-08_rb,4.8103e-08_rb,4.6638e-08_rb,4.0062e-08_rb,6.0380e-09_rb/)
+      kbo(:, 3,59, 3) = (/ &
+     &4.5994e-08_rb,5.9694e-08_rb,6.1452e-08_rb,5.6505e-08_rb,8.8443e-09_rb/)
+      kbo(:, 4,59, 3) = (/ &
+     &6.0487e-08_rb,8.5685e-08_rb,9.1743e-08_rb,8.6818e-08_rb,1.2879e-08_rb/)
+      kbo(:, 5,59, 3) = (/ &
+     &9.3188e-08_rb,1.3722e-07_rb,1.4752e-07_rb,1.3892e-07_rb,1.7999e-08_rb/)
+      kbo(:, 1,13, 4) = (/ &
+     &4.3869e-03_rb,5.0989e-03_rb,4.3794e-03_rb,3.0521e-03_rb,9.4784e-04_rb/)
+      kbo(:, 2,13, 4) = (/ &
+     &6.9481e-03_rb,7.8458e-03_rb,6.6078e-03_rb,4.5663e-03_rb,1.0961e-03_rb/)
+      kbo(:, 3,13, 4) = (/ &
+     &1.1023e-02_rb,1.1980e-02_rb,9.8280e-03_rb,6.7431e-03_rb,1.2240e-03_rb/)
+      kbo(:, 4,13, 4) = (/ &
+     &1.7316e-02_rb,1.8007e-02_rb,1.4661e-02_rb,9.8568e-03_rb,1.4326e-03_rb/)
+      kbo(:, 5,13, 4) = (/ &
+     &2.6628e-02_rb,2.6632e-02_rb,2.1301e-02_rb,1.4107e-02_rb,1.6715e-03_rb/)
+      kbo(:, 1,14, 4) = (/ &
+     &3.8856e-03_rb,4.5615e-03_rb,3.8907e-03_rb,2.6924e-03_rb,7.6763e-04_rb/)
+      kbo(:, 2,14, 4) = (/ &
+     &6.2253e-03_rb,7.0528e-03_rb,5.8968e-03_rb,4.0418e-03_rb,8.6051e-04_rb/)
+      kbo(:, 3,14, 4) = (/ &
+     &1.0002e-02_rb,1.0752e-02_rb,8.8582e-03_rb,6.0065e-03_rb,1.0065e-03_rb/)
+      kbo(:, 4,14, 4) = (/ &
+     &1.5699e-02_rb,1.6229e-02_rb,1.3163e-02_rb,8.7970e-03_rb,1.2227e-03_rb/)
+      kbo(:, 5,14, 4) = (/ &
+     &2.4269e-02_rb,2.4030e-02_rb,1.9137e-02_rb,1.2536e-02_rb,1.4474e-03_rb/)
+      kbo(:, 1,15, 4) = (/ &
+     &3.2659e-03_rb,3.8770e-03_rb,3.3101e-03_rb,2.3048e-03_rb,5.7573e-04_rb/)
+      kbo(:, 2,15, 4) = (/ &
+     &5.3241e-03_rb,6.0372e-03_rb,5.0494e-03_rb,3.4916e-03_rb,6.8321e-04_rb/)
+      kbo(:, 3,15, 4) = (/ &
+     &8.6002e-03_rb,9.2086e-03_rb,7.6334e-03_rb,5.1974e-03_rb,8.4736e-04_rb/)
+      kbo(:, 4,15, 4) = (/ &
+     &1.3547e-02_rb,1.3992e-02_rb,1.1347e-02_rb,7.5834e-03_rb,1.0287e-03_rb/)
+      kbo(:, 5,15, 4) = (/ &
+     &2.1009e-02_rb,2.0762e-02_rb,1.6574e-02_rb,1.0811e-02_rb,1.2066e-03_rb/)
+      kbo(:, 1,16, 4) = (/ &
+     &2.6697e-03_rb,3.2234e-03_rb,2.7529e-03_rb,1.9451e-03_rb,4.4184e-04_rb/)
+      kbo(:, 2,16, 4) = (/ &
+     &4.4186e-03_rb,5.0347e-03_rb,4.2523e-03_rb,2.9486e-03_rb,5.5826e-04_rb/)
+      kbo(:, 3,16, 4) = (/ &
+     &7.1546e-03_rb,7.7280e-03_rb,6.4040e-03_rb,4.4001e-03_rb,6.8881e-04_rb/)
+      kbo(:, 4,16, 4) = (/ &
+     &1.1406e-02_rb,1.1811e-02_rb,9.5855e-03_rb,6.4241e-03_rb,8.3295e-04_rb/)
+      kbo(:, 5,16, 4) = (/ &
+     &1.7781e-02_rb,1.7577e-02_rb,1.4001e-02_rb,9.1645e-03_rb,9.7098e-04_rb/)
+      kbo(:, 1,17, 4) = (/ &
+     &2.1896e-03_rb,2.6538e-03_rb,2.2904e-03_rb,1.6414e-03_rb,3.5480e-04_rb/)
+      kbo(:, 2,17, 4) = (/ &
+     &3.6444e-03_rb,4.1897e-03_rb,3.5440e-03_rb,2.4805e-03_rb,4.4971e-04_rb/)
+      kbo(:, 3,17, 4) = (/ &
+     &5.9916e-03_rb,6.4686e-03_rb,5.3743e-03_rb,3.6974e-03_rb,5.5799e-04_rb/)
+      kbo(:, 4,17, 4) = (/ &
+     &9.5963e-03_rb,9.9128e-03_rb,8.0553e-03_rb,5.4068e-03_rb,6.7241e-04_rb/)
+      kbo(:, 5,17, 4) = (/ &
+     &1.5025e-02_rb,1.4809e-02_rb,1.1810e-02_rb,7.7160e-03_rb,7.7063e-04_rb/)
+      kbo(:, 1,18, 4) = (/ &
+     &1.7997e-03_rb,2.1886e-03_rb,1.9082e-03_rb,1.3670e-03_rb,2.9021e-04_rb/)
+      kbo(:, 2,18, 4) = (/ &
+     &3.0120e-03_rb,3.4746e-03_rb,2.9450e-03_rb,2.0706e-03_rb,3.7282e-04_rb/)
+      kbo(:, 3,18, 4) = (/ &
+     &4.9798e-03_rb,5.3990e-03_rb,4.4938e-03_rb,3.0816e-03_rb,4.5930e-04_rb/)
+      kbo(:, 4,18, 4) = (/ &
+     &8.0081e-03_rb,8.2644e-03_rb,6.7223e-03_rb,4.5032e-03_rb,5.4734e-04_rb/)
+      kbo(:, 5,18, 4) = (/ &
+     &1.2492e-02_rb,1.2373e-02_rb,9.8644e-03_rb,6.4255e-03_rb,6.3020e-04_rb/)
+      kbo(:, 1,19, 4) = (/ &
+     &1.5064e-03_rb,1.8451e-03_rb,1.6056e-03_rb,1.1522e-03_rb,2.4682e-04_rb/)
+      kbo(:, 2,19, 4) = (/ &
+     &2.5474e-03_rb,2.9294e-03_rb,2.4915e-03_rb,1.7507e-03_rb,3.1538e-04_rb/)
+      kbo(:, 3,19, 4) = (/ &
+     &4.2186e-03_rb,4.5798e-03_rb,3.8063e-03_rb,2.5988e-03_rb,3.8674e-04_rb/)
+      kbo(:, 4,19, 4) = (/ &
+     &6.8019e-03_rb,7.0063e-03_rb,5.6982e-03_rb,3.8032e-03_rb,4.6124e-04_rb/)
+      kbo(:, 5,19, 4) = (/ &
+     &1.0595e-02_rb,1.0486e-02_rb,8.3528e-03_rb,5.4249e-03_rb,5.3320e-04_rb/)
+      kbo(:, 1,20, 4) = (/ &
+     &1.3102e-03_rb,1.5983e-03_rb,1.3859e-03_rb,9.9291e-04_rb,2.1228e-04_rb/)
+      kbo(:, 2,20, 4) = (/ &
+     &2.2269e-03_rb,2.5410e-03_rb,2.1563e-03_rb,1.5072e-03_rb,2.6816e-04_rb/)
+      kbo(:, 3,20, 4) = (/ &
+     &3.6896e-03_rb,3.9778e-03_rb,3.2977e-03_rb,2.2454e-03_rb,3.2819e-04_rb/)
+      kbo(:, 4,20, 4) = (/ &
+     &5.9414e-03_rb,6.0960e-03_rb,4.9353e-03_rb,3.2744e-03_rb,3.9225e-04_rb/)
+      kbo(:, 5,20, 4) = (/ &
+     &9.2578e-03_rb,9.1102e-03_rb,7.2255e-03_rb,4.6712e-03_rb,4.5336e-04_rb/)
+      kbo(:, 1,21, 4) = (/ &
+     &1.1473e-03_rb,1.3888e-03_rb,1.2016e-03_rb,8.6011e-04_rb,1.8127e-04_rb/)
+      kbo(:, 2,21, 4) = (/ &
+     &1.9565e-03_rb,2.2181e-03_rb,1.8746e-03_rb,1.3038e-03_rb,2.2830e-04_rb/)
+      kbo(:, 3,21, 4) = (/ &
+     &3.2520e-03_rb,3.4808e-03_rb,2.8694e-03_rb,1.9461e-03_rb,2.7800e-04_rb/)
+      kbo(:, 4,21, 4) = (/ &
+     &5.2204e-03_rb,5.3317e-03_rb,4.2972e-03_rb,2.8342e-03_rb,3.3105e-04_rb/)
+      kbo(:, 5,21, 4) = (/ &
+     &8.1069e-03_rb,7.9508e-03_rb,6.2747e-03_rb,4.0360e-03_rb,3.8585e-04_rb/)
+      kbo(:, 1,22, 4) = (/ &
+     &1.0382e-03_rb,1.2396e-03_rb,1.0678e-03_rb,7.6273e-04_rb,1.5466e-04_rb/)
+      kbo(:, 2,22, 4) = (/ &
+     &1.7720e-03_rb,1.9893e-03_rb,1.6695e-03_rb,1.1556e-03_rb,1.9356e-04_rb/)
+      kbo(:, 3,22, 4) = (/ &
+     &2.9369e-03_rb,3.1200e-03_rb,2.5557e-03_rb,1.7237e-03_rb,2.3624e-04_rb/)
+      kbo(:, 4,22, 4) = (/ &
+     &4.6992e-03_rb,4.7636e-03_rb,3.8178e-03_rb,2.5063e-03_rb,2.7855e-04_rb/)
+      kbo(:, 5,22, 4) = (/ &
+     &7.2282e-03_rb,7.0542e-03_rb,5.5487e-03_rb,3.5490e-03_rb,3.2630e-04_rb/)
+      kbo(:, 1,23, 4) = (/ &
+     &9.4131e-04_rb,1.1095e-03_rb,9.5148e-04_rb,6.7660e-04_rb,1.3244e-04_rb/)
+      kbo(:, 2,23, 4) = (/ &
+     &1.6035e-03_rb,1.7844e-03_rb,1.4894e-03_rb,1.0262e-03_rb,1.6442e-04_rb/)
+      kbo(:, 3,23, 4) = (/ &
+     &2.6522e-03_rb,2.7950e-03_rb,2.2775e-03_rb,1.5271e-03_rb,2.0008e-04_rb/)
+      kbo(:, 4,23, 4) = (/ &
+     &4.2106e-03_rb,4.2402e-03_rb,3.3871e-03_rb,2.2131e-03_rb,2.3445e-04_rb/)
+      kbo(:, 5,23, 4) = (/ &
+     &6.4196e-03_rb,6.2427e-03_rb,4.8940e-03_rb,3.1130e-03_rb,2.7496e-04_rb/)
+      kbo(:, 1,24, 4) = (/ &
+     &8.5493e-04_rb,1.0008e-03_rb,8.5274e-04_rb,6.0213e-04_rb,1.1224e-04_rb/)
+      kbo(:, 2,24, 4) = (/ &
+     &1.4576e-03_rb,1.6070e-03_rb,1.3354e-03_rb,9.1642e-04_rb,1.3965e-04_rb/)
+      kbo(:, 3,24, 4) = (/ &
+     &2.4005e-03_rb,2.5083e-03_rb,2.0375e-03_rb,1.3606e-03_rb,1.6869e-04_rb/)
+      kbo(:, 4,24, 4) = (/ &
+     &3.7805e-03_rb,3.7882e-03_rb,3.0168e-03_rb,1.9590e-03_rb,1.9824e-04_rb/)
+      kbo(:, 5,24, 4) = (/ &
+     &5.7340e-03_rb,5.5429e-03_rb,4.3252e-03_rb,2.7397e-03_rb,2.2899e-04_rb/)
+      kbo(:, 1,25, 4) = (/ &
+     &7.8083e-04_rb,9.0613e-04_rb,7.6855e-04_rb,5.3955e-04_rb,9.3397e-05_rb/)
+      kbo(:, 2,25, 4) = (/ &
+     &1.3293e-03_rb,1.4516e-03_rb,1.2021e-03_rb,8.2125e-04_rb,1.1644e-04_rb/)
+      kbo(:, 3,25, 4) = (/ &
+     &2.1730e-03_rb,2.2546e-03_rb,1.8276e-03_rb,1.2136e-03_rb,1.4039e-04_rb/)
+      kbo(:, 4,25, 4) = (/ &
+     &3.3994e-03_rb,3.3901e-03_rb,2.6854e-03_rb,1.7374e-03_rb,1.6529e-04_rb/)
+      kbo(:, 5,25, 4) = (/ &
+     &5.1177e-03_rb,4.9296e-03_rb,3.8308e-03_rb,2.4138e-03_rb,1.9292e-04_rb/)
+      kbo(:, 1,26, 4) = (/ &
+     &7.2414e-04_rb,8.2998e-04_rb,6.9991e-04_rb,4.8962e-04_rb,7.9259e-05_rb/)
+      kbo(:, 2,26, 4) = (/ &
+     &1.2259e-03_rb,1.3255e-03_rb,1.0917e-03_rb,7.4177e-04_rb,9.7580e-05_rb/)
+      kbo(:, 3,26, 4) = (/ &
+     &1.9848e-03_rb,2.0462e-03_rb,1.6503e-03_rb,1.0895e-03_rb,1.1629e-04_rb/)
+      kbo(:, 4,26, 4) = (/ &
+     &3.0863e-03_rb,3.0554e-03_rb,2.4123e-03_rb,1.5502e-03_rb,1.3732e-04_rb/)
+      kbo(:, 5,26, 4) = (/ &
+     &4.5999e-03_rb,4.4081e-03_rb,3.4159e-03_rb,2.1402e-03_rb,1.6386e-04_rb/)
+      kbo(:, 1,27, 4) = (/ &
+     &6.7040e-04_rb,7.6049e-04_rb,6.3931e-04_rb,4.4424e-04_rb,6.5890e-05_rb/)
+      kbo(:, 2,27, 4) = (/ &
+     &1.1282e-03_rb,1.2096e-03_rb,9.9105e-04_rb,6.6941e-04_rb,8.0876e-05_rb/)
+      kbo(:, 3,27, 4) = (/ &
+     &1.8147e-03_rb,1.8556e-03_rb,1.4889e-03_rb,9.7714e-04_rb,9.6344e-05_rb/)
+      kbo(:, 4,27, 4) = (/ &
+     &2.7940e-03_rb,2.7516e-03_rb,2.1627e-03_rb,1.3811e-03_rb,1.1546e-04_rb/)
+      kbo(:, 5,27, 4) = (/ &
+     &4.1206e-03_rb,3.9340e-03_rb,3.0363e-03_rb,1.8956e-03_rb,1.3791e-04_rb/)
+      kbo(:, 1,28, 4) = (/ &
+     &6.1963e-04_rb,6.9617e-04_rb,5.8205e-04_rb,4.0239e-04_rb,5.3842e-05_rb/)
+      kbo(:, 2,28, 4) = (/ &
+     &1.0354e-03_rb,1.1013e-03_rb,8.9815e-04_rb,6.0298e-04_rb,6.6022e-05_rb/)
+      kbo(:, 3,28, 4) = (/ &
+     &1.6516e-03_rb,1.6797e-03_rb,1.3412e-03_rb,8.7507e-04_rb,8.0123e-05_rb/)
+      kbo(:, 4,28, 4) = (/ &
+     &2.5197e-03_rb,2.4709e-03_rb,1.9338e-03_rb,1.2274e-03_rb,9.7074e-05_rb/)
+      kbo(:, 5,28, 4) = (/ &
+     &3.6744e-03_rb,3.4958e-03_rb,2.6900e-03_rb,1.6731e-03_rb,1.1603e-04_rb/)
+      kbo(:, 1,29, 4) = (/ &
+     &5.7255e-04_rb,6.3719e-04_rb,5.3001e-04_rb,3.6415e-04_rb,4.3783e-05_rb/)
+      kbo(:, 2,29, 4) = (/ &
+     &9.4899e-04_rb,1.0006e-03_rb,8.1341e-04_rb,5.4243e-04_rb,5.3930e-05_rb/)
+      kbo(:, 3,29, 4) = (/ &
+     &1.4973e-03_rb,1.5143e-03_rb,1.2048e-03_rb,7.8083e-04_rb,6.6803e-05_rb/)
+      kbo(:, 4,29, 4) = (/ &
+     &2.2572e-03_rb,2.2044e-03_rb,1.7199e-03_rb,1.0861e-03_rb,8.0985e-05_rb/)
+      kbo(:, 5,29, 4) = (/ &
+     &3.2527e-03_rb,3.0849e-03_rb,2.3685e-03_rb,1.4686e-03_rb,9.6201e-05_rb/)
+      kbo(:, 1,30, 4) = (/ &
+     &5.2637e-04_rb,5.8081e-04_rb,4.8010e-04_rb,3.2816e-04_rb,3.5536e-05_rb/)
+      kbo(:, 2,30, 4) = (/ &
+     &8.6289e-04_rb,9.0357e-04_rb,7.3215e-04_rb,4.8521e-04_rb,4.4824e-05_rb/)
+      kbo(:, 3,30, 4) = (/ &
+     &1.3456e-03_rb,1.3553e-03_rb,1.0747e-03_rb,6.9223e-04_rb,5.5319e-05_rb/)
+      kbo(:, 4,30, 4) = (/ &
+     &2.0065e-03_rb,1.9507e-03_rb,1.5172e-03_rb,9.5518e-04_rb,6.6828e-05_rb/)
+      kbo(:, 5,30, 4) = (/ &
+     &2.8573e-03_rb,2.7008e-03_rb,2.0712e-03_rb,1.2802e-03_rb,7.9313e-05_rb/)
+      kbo(:, 1,31, 4) = (/ &
+     &4.7945e-04_rb,5.2447e-04_rb,4.3249e-04_rb,2.9383e-04_rb,2.9390e-05_rb/)
+      kbo(:, 2,31, 4) = (/ &
+     &7.7587e-04_rb,8.0972e-04_rb,6.5328e-04_rb,4.3065e-04_rb,3.6906e-05_rb/)
+      kbo(:, 3,31, 4) = (/ &
+     &1.1974e-03_rb,1.2004e-03_rb,9.4868e-04_rb,6.0827e-04_rb,4.5016e-05_rb/)
+      kbo(:, 4,31, 4) = (/ &
+     &1.7617e-03_rb,1.7074e-03_rb,1.3255e-03_rb,8.3172e-04_rb,5.4252e-05_rb/)
+      kbo(:, 5,31, 4) = (/ &
+     &2.4825e-03_rb,2.3423e-03_rb,1.7933e-03_rb,1.1061e-03_rb,6.4138e-05_rb/)
+      kbo(:, 1,32, 4) = (/ &
+     &4.3738e-04_rb,4.7509e-04_rb,3.9041e-04_rb,2.6369e-04_rb,2.4019e-05_rb/)
+      kbo(:, 2,32, 4) = (/ &
+     &6.9937e-04_rb,7.2599e-04_rb,5.8354e-04_rb,3.8245e-04_rb,2.9892e-05_rb/)
+      kbo(:, 3,32, 4) = (/ &
+     &1.0660e-03_rb,1.0639e-03_rb,8.3776e-04_rb,5.3497e-04_rb,3.6437e-05_rb/)
+      kbo(:, 4,32, 4) = (/ &
+     &1.5490e-03_rb,1.4965e-03_rb,1.1588e-03_rb,7.2497e-04_rb,4.3698e-05_rb/)
+      kbo(:, 5,32, 4) = (/ &
+     &2.1609e-03_rb,2.0352e-03_rb,1.5553e-03_rb,9.5666e-04_rb,5.1532e-05_rb/)
+      kbo(:, 1,33, 4) = (/ &
+     &3.9889e-04_rb,4.2999e-04_rb,3.5197e-04_rb,2.3634e-04_rb,1.9311e-05_rb/)
+      kbo(:, 2,33, 4) = (/ &
+     &6.2991e-04_rb,6.5021e-04_rb,5.2059e-04_rb,3.3932e-04_rb,2.4117e-05_rb/)
+      kbo(:, 3,33, 4) = (/ &
+     &9.4755e-04_rb,9.4129e-04_rb,7.3904e-04_rb,4.6991e-04_rb,2.9354e-05_rb/)
+      kbo(:, 4,33, 4) = (/ &
+     &1.3617e-03_rb,1.3113e-03_rb,1.0129e-03_rb,6.3180e-04_rb,3.5029e-05_rb/)
+      kbo(:, 5,33, 4) = (/ &
+     &1.8805e-03_rb,1.7688e-03_rb,1.3485e-03_rb,8.2760e-04_rb,4.1309e-05_rb/)
+      kbo(:, 1,34, 4) = (/ &
+     &3.6214e-04_rb,3.8716e-04_rb,3.1549e-04_rb,2.1059e-04_rb,1.5692e-05_rb/)
+      kbo(:, 2,34, 4) = (/ &
+     &5.6474e-04_rb,5.7963e-04_rb,4.6204e-04_rb,2.9966e-04_rb,1.9450e-05_rb/)
+      kbo(:, 3,34, 4) = (/ &
+     &8.4034e-04_rb,8.3067e-04_rb,6.4971e-04_rb,4.1144e-04_rb,2.3693e-05_rb/)
+      kbo(:, 4,34, 4) = (/ &
+     &1.1957e-03_rb,1.1475e-03_rb,8.8389e-04_rb,5.4962e-04_rb,2.8253e-05_rb/)
+      kbo(:, 5,34, 4) = (/ &
+     &1.6380e-03_rb,1.5373e-03_rb,1.1695e-03_rb,7.1576e-04_rb,3.2957e-05_rb/)
+      kbo(:, 1,35, 4) = (/ &
+     &3.1359e-04_rb,3.3446e-04_rb,2.7193e-04_rb,1.8091e-04_rb,1.2437e-05_rb/)
+      kbo(:, 2,35, 4) = (/ &
+     &4.8583e-04_rb,4.9752e-04_rb,3.9566e-04_rb,2.5593e-04_rb,1.5305e-05_rb/)
+      kbo(:, 3,35, 4) = (/ &
+     &7.1875e-04_rb,7.0909e-04_rb,5.5358e-04_rb,3.4993e-04_rb,1.8635e-05_rb/)
+      kbo(:, 4,35, 4) = (/ &
+     &1.0171e-03_rb,9.7513e-04_rb,7.5023e-04_rb,4.6569e-04_rb,2.2205e-05_rb/)
+      kbo(:, 5,35, 4) = (/ &
+     &1.3872e-03_rb,1.3015e-03_rb,9.8912e-04_rb,6.0449e-04_rb,2.6045e-05_rb/)
+      kbo(:, 1,36, 4) = (/ &
+     &2.5808e-04_rb,2.7599e-04_rb,2.2440e-04_rb,1.4937e-04_rb,9.6631e-06_rb/)
+      kbo(:, 2,36, 4) = (/ &
+     &3.9964e-04_rb,4.1003e-04_rb,3.2602e-04_rb,2.1097e-04_rb,1.1834e-05_rb/)
+      kbo(:, 3,36, 4) = (/ &
+     &5.9092e-04_rb,5.8383e-04_rb,4.5590e-04_rb,2.8824e-04_rb,1.4353e-05_rb/)
+      kbo(:, 4,36, 4) = (/ &
+     &8.3595e-04_rb,8.0277e-04_rb,6.1763e-04_rb,3.8334e-04_rb,1.7189e-05_rb/)
+      kbo(:, 5,36, 4) = (/ &
+     &1.1396e-03_rb,1.0707e-03_rb,8.1375e-04_rb,4.9743e-04_rb,2.0326e-05_rb/)
+      kbo(:, 1,37, 4) = (/ &
+     &2.0121e-04_rb,2.1647e-04_rb,1.7647e-04_rb,1.1785e-04_rb,7.4310e-06_rb/)
+      kbo(:, 2,37, 4) = (/ &
+     &3.1330e-04_rb,3.2327e-04_rb,2.5768e-04_rb,1.6717e-04_rb,9.1199e-06_rb/)
+      kbo(:, 3,37, 4) = (/ &
+     &4.6580e-04_rb,4.6262e-04_rb,3.6181e-04_rb,2.2919e-04_rb,1.1050e-05_rb/)
+      kbo(:, 4,37, 4) = (/ &
+     &6.6212e-04_rb,6.3859e-04_rb,4.9190e-04_rb,3.0576e-04_rb,1.3280e-05_rb/)
+      kbo(:, 5,37, 4) = (/ &
+     &9.0672e-04_rb,8.5472e-04_rb,6.5027e-04_rb,3.9796e-04_rb,1.5719e-05_rb/)
+      kbo(:, 1,38, 4) = (/ &
+     &1.5610e-04_rb,1.6913e-04_rb,1.3823e-04_rb,9.2645e-05_rb,5.6716e-06_rb/)
+      kbo(:, 2,38, 4) = (/ &
+     &2.4467e-04_rb,2.5398e-04_rb,2.0295e-04_rb,1.3206e-04_rb,6.9811e-06_rb/)
+      kbo(:, 3,38, 4) = (/ &
+     &3.6591e-04_rb,3.6541e-04_rb,2.8633e-04_rb,1.8175e-04_rb,8.4645e-06_rb/)
+      kbo(:, 4,38, 4) = (/ &
+     &5.2302e-04_rb,5.0671e-04_rb,3.9077e-04_rb,2.4331e-04_rb,1.0160e-05_rb/)
+      kbo(:, 5,38, 4) = (/ &
+     &7.1953e-04_rb,6.8071e-04_rb,5.1841e-04_rb,3.1771e-04_rb,1.2087e-05_rb/)
+      kbo(:, 1,39, 4) = (/ &
+     &1.2096e-04_rb,1.3199e-04_rb,1.0815e-04_rb,7.2736e-05_rb,4.3132e-06_rb/)
+      kbo(:, 2,39, 4) = (/ &
+     &1.9086e-04_rb,1.9937e-04_rb,1.5970e-04_rb,1.0426e-04_rb,5.3181e-06_rb/)
+      kbo(:, 3,39, 4) = (/ &
+     &2.8720e-04_rb,2.8844e-04_rb,2.2641e-04_rb,1.4405e-04_rb,6.4566e-06_rb/)
+      kbo(:, 4,39, 4) = (/ &
+     &4.1286e-04_rb,4.0180e-04_rb,3.1020e-04_rb,1.9350e-04_rb,7.7296e-06_rb/)
+      kbo(:, 5,39, 4) = (/ &
+     &5.7063e-04_rb,5.4191e-04_rb,4.1317e-04_rb,2.5355e-04_rb,9.2083e-06_rb/)
+      kbo(:, 1,40, 4) = (/ &
+     &9.0120e-05_rb,9.9405e-05_rb,8.1774e-05_rb,5.5348e-05_rb,3.2802e-06_rb/)
+      kbo(:, 2,40, 4) = (/ &
+     &1.4396e-04_rb,1.5172e-04_rb,1.2199e-04_rb,8.0081e-05_rb,4.0450e-06_rb/)
+      kbo(:, 3,40, 4) = (/ &
+     &2.1897e-04_rb,2.2172e-04_rb,1.7453e-04_rb,1.1150e-04_rb,4.9391e-06_rb/)
+      kbo(:, 4,40, 4) = (/ &
+     &3.1818e-04_rb,3.1148e-04_rb,2.4096e-04_rb,1.5075e-04_rb,5.9260e-06_rb/)
+      kbo(:, 5,40, 4) = (/ &
+     &4.4338e-04_rb,4.2299e-04_rb,3.2304e-04_rb,1.9869e-04_rb,7.0429e-06_rb/)
+      kbo(:, 1,41, 4) = (/ &
+     &6.6586e-05_rb,7.4344e-05_rb,6.1391e-05_rb,4.1826e-05_rb,2.4789e-06_rb/)
+      kbo(:, 2,41, 4) = (/ &
+     &1.0786e-04_rb,1.1471e-04_rb,9.2627e-05_rb,6.1134e-05_rb,3.0831e-06_rb/)
+      kbo(:, 3,41, 4) = (/ &
+     &1.6588e-04_rb,1.6943e-04_rb,1.3383e-04_rb,8.5899e-05_rb,3.7712e-06_rb/)
+      kbo(:, 4,41, 4) = (/ &
+     &2.4383e-04_rb,2.4037e-04_rb,1.8645e-04_rb,1.1700e-04_rb,4.5478e-06_rb/)
+      kbo(:, 5,41, 4) = (/ &
+     &3.4300e-04_rb,3.2889e-04_rb,2.5168e-04_rb,1.5514e-04_rb,5.3910e-06_rb/)
+      kbo(:, 1,42, 4) = (/ &
+     &4.8998e-05_rb,5.5419e-05_rb,4.5947e-05_rb,3.1516e-05_rb,1.8667e-06_rb/)
+      kbo(:, 2,42, 4) = (/ &
+     &8.0484e-05_rb,8.6481e-05_rb,7.0103e-05_rb,4.6544e-05_rb,2.3354e-06_rb/)
+      kbo(:, 3,42, 4) = (/ &
+     &1.2531e-04_rb,1.2923e-04_rb,1.0238e-04_rb,6.6044e-05_rb,2.8708e-06_rb/)
+      kbo(:, 4,42, 4) = (/ &
+     &1.8633e-04_rb,1.8503e-04_rb,1.4397e-04_rb,9.0645e-05_rb,3.4606e-06_rb/)
+      kbo(:, 5,42, 4) = (/ &
+     &2.6476e-04_rb,2.5534e-04_rb,1.9578e-04_rb,1.2098e-04_rb,4.1084e-06_rb/)
+      kbo(:, 1,43, 4) = (/ &
+     &3.5242e-05_rb,4.0436e-05_rb,3.3714e-05_rb,2.3281e-05_rb,1.3919e-06_rb/)
+      kbo(:, 2,43, 4) = (/ &
+     &5.8897e-05_rb,6.4054e-05_rb,5.2168e-05_rb,3.4865e-05_rb,1.7548e-06_rb/)
+      kbo(:, 3,43, 4) = (/ &
+     &9.3170e-05_rb,9.7046e-05_rb,7.7251e-05_rb,5.0106e-05_rb,2.1668e-06_rb/)
+      kbo(:, 4,43, 4) = (/ &
+     &1.4048e-04_rb,1.4075e-04_rb,1.0986e-04_rb,6.9448e-05_rb,2.6074e-06_rb/)
+      kbo(:, 5,43, 4) = (/ &
+     &2.0220e-04_rb,1.9644e-04_rb,1.5089e-04_rb,9.3492e-05_rb,3.1278e-06_rb/)
+      kbo(:, 1,44, 4) = (/ &
+     &2.5004e-05_rb,2.9138e-05_rb,2.4437e-05_rb,1.6989e-05_rb,1.0250e-06_rb/)
+      kbo(:, 2,44, 4) = (/ &
+     &4.2585e-05_rb,4.6938e-05_rb,3.8422e-05_rb,2.5865e-05_rb,1.3112e-06_rb/)
+      kbo(:, 3,44, 4) = (/ &
+     &6.8563e-05_rb,7.2232e-05_rb,5.7761e-05_rb,3.7700e-05_rb,1.6186e-06_rb/)
+      kbo(:, 4,44, 4) = (/ &
+     &1.0501e-04_rb,1.0630e-04_rb,8.3253e-05_rb,5.2860e-05_rb,1.9651e-06_rb/)
+      kbo(:, 5,44, 4) = (/ &
+     &1.5343e-04_rb,1.5019e-04_rb,1.1567e-04_rb,7.1872e-05_rb,2.3710e-06_rb/)
+      kbo(:, 1,45, 4) = (/ &
+     &1.7648e-05_rb,2.0899e-05_rb,1.7624e-05_rb,1.2332e-05_rb,7.4778e-07_rb/)
+      kbo(:, 2,45, 4) = (/ &
+     &3.0648e-05_rb,3.4228e-05_rb,2.8145e-05_rb,1.9101e-05_rb,9.7150e-07_rb/)
+      kbo(:, 3,45, 4) = (/ &
+     &5.0244e-05_rb,5.3520e-05_rb,4.3001e-05_rb,2.8243e-05_rb,1.2073e-06_rb/)
+      kbo(:, 4,45, 4) = (/ &
+     &7.8191e-05_rb,7.9995e-05_rb,6.2888e-05_rb,4.0157e-05_rb,1.4831e-06_rb/)
+      kbo(:, 5,45, 4) = (/ &
+     &1.1605e-04_rb,1.1449e-04_rb,8.8448e-05_rb,5.5140e-05_rb,1.7858e-06_rb/)
+      kbo(:, 1,46, 4) = (/ &
+     &1.2241e-05_rb,1.4754e-05_rb,1.2528e-05_rb,8.8151e-06_rb,5.3848e-07_rb/)
+      kbo(:, 2,46, 4) = (/ &
+     &2.1731e-05_rb,2.4625e-05_rb,2.0352e-05_rb,1.3921e-05_rb,7.0792e-07_rb/)
+      kbo(:, 3,46, 4) = (/ &
+     &3.6328e-05_rb,3.9139e-05_rb,3.1626e-05_rb,2.0940e-05_rb,8.9555e-07_rb/)
+      kbo(:, 4,46, 4) = (/ &
+     &5.7531e-05_rb,5.9510e-05_rb,4.7024e-05_rb,3.0210e-05_rb,1.1090e-06_rb/)
+      kbo(:, 5,46, 4) = (/ &
+     &8.6821e-05_rb,8.6443e-05_rb,6.7046e-05_rb,4.1968e-05_rb,1.3451e-06_rb/)
+      kbo(:, 1,47, 4) = (/ &
+     &8.2449e-06_rb,1.0146e-05_rb,8.6807e-06_rb,6.1518e-06_rb,3.8332e-07_rb/)
+      kbo(:, 2,47, 4) = (/ &
+     &1.4999e-05_rb,1.7293e-05_rb,1.4384e-05_rb,9.9184e-06_rb,5.1069e-07_rb/)
+      kbo(:, 3,47, 4) = (/ &
+     &2.5663e-05_rb,2.8031e-05_rb,2.2776e-05_rb,1.5214e-05_rb,6.5507e-07_rb/)
+      kbo(:, 4,47, 4) = (/ &
+     &4.1483e-05_rb,4.3442e-05_rb,3.4514e-05_rb,2.2339e-05_rb,8.2140e-07_rb/)
+      kbo(:, 5,47, 4) = (/ &
+     &6.3807e-05_rb,6.4263e-05_rb,5.0034e-05_rb,3.1504e-05_rb,1.0057e-06_rb/)
+      kbo(:, 1,48, 4) = (/ &
+     &5.5161e-06_rb,6.9345e-06_rb,5.9711e-06_rb,4.2630e-06_rb,2.7090e-07_rb/)
+      kbo(:, 2,48, 4) = (/ &
+     &1.0274e-05_rb,1.2067e-05_rb,1.0101e-05_rb,7.0075e-06_rb,3.6468e-07_rb/)
+      kbo(:, 3,48, 4) = (/ &
+     &1.7999e-05_rb,1.9964e-05_rb,1.6291e-05_rb,1.0982e-05_rb,4.7593e-07_rb/)
+      kbo(:, 4,48, 4) = (/ &
+     &2.9748e-05_rb,3.1502e-05_rb,2.5173e-05_rb,1.6424e-05_rb,6.0510e-07_rb/)
+      kbo(:, 5,48, 4) = (/ &
+     &4.6627e-05_rb,4.7519e-05_rb,3.7159e-05_rb,2.3556e-05_rb,7.4697e-07_rb/)
+      kbo(:, 1,49, 4) = (/ &
+     &3.6712e-06_rb,4.7085e-06_rb,4.0821e-06_rb,2.9344e-06_rb,1.8902e-07_rb/)
+      kbo(:, 2,49, 4) = (/ &
+     &6.9808e-06_rb,8.3574e-06_rb,7.0495e-06_rb,4.9158e-06_rb,2.5862e-07_rb/)
+      kbo(:, 3,49, 4) = (/ &
+     &1.2533e-05_rb,1.4129e-05_rb,1.1598e-05_rb,7.8741e-06_rb,3.4164e-07_rb/)
+      kbo(:, 4,49, 4) = (/ &
+     &2.1199e-05_rb,2.2725e-05_rb,1.8253e-05_rb,1.2008e-05_rb,4.3895e-07_rb/)
+      kbo(:, 5,49, 4) = (/ &
+     &3.3893e-05_rb,3.4945e-05_rb,2.7461e-05_rb,1.7529e-05_rb,5.4985e-07_rb/)
+      kbo(:, 1,50, 4) = (/ &
+     &2.4835e-06_rb,3.2299e-06_rb,2.8168e-06_rb,2.0358e-06_rb,1.3342e-07_rb/)
+      kbo(:, 2,50, 4) = (/ &
+     &4.7895e-06_rb,5.8338e-06_rb,4.9516e-06_rb,3.4721e-06_rb,1.8475e-07_rb/)
+      kbo(:, 3,50, 4) = (/ &
+     &8.7933e-06_rb,1.0062e-05_rb,8.3077e-06_rb,5.6722e-06_rb,2.4761e-07_rb/)
+      kbo(:, 4,50, 4) = (/ &
+     &1.5202e-05_rb,1.6503e-05_rb,1.3305e-05_rb,8.8168e-06_rb,3.2240e-07_rb/)
+      kbo(:, 5,50, 4) = (/ &
+     &2.4800e-05_rb,2.5828e-05_rb,2.0397e-05_rb,1.3093e-05_rb,4.0814e-07_rb/)
+      kbo(:, 1,51, 4) = (/ &
+     &1.7011e-06_rb,2.2256e-06_rb,1.9504e-06_rb,1.4154e-06_rb,9.4900e-08_rb/)
+      kbo(:, 2,51, 4) = (/ &
+     &3.2953e-06_rb,4.0790e-06_rb,3.4794e-06_rb,2.4537e-06_rb,1.3273e-07_rb/)
+      kbo(:, 3,51, 4) = (/ &
+     &6.1746e-06_rb,7.1689e-06_rb,5.9544e-06_rb,4.0832e-06_rb,1.8014e-07_rb/)
+      kbo(:, 4,51, 4) = (/ &
+     &1.0912e-05_rb,1.1993e-05_rb,9.7046e-06_rb,6.4754e-06_rb,2.3777e-07_rb/)
+      kbo(:, 5,51, 4) = (/ &
+     &1.8173e-05_rb,1.9097e-05_rb,1.5144e-05_rb,9.7867e-06_rb,3.0334e-07_rb/)
+      kbo(:, 1,52, 4) = (/ &
+     &1.1779e-06_rb,1.5381e-06_rb,1.3497e-06_rb,9.8158e-07_rb,6.6305e-08_rb/)
+      kbo(:, 2,52, 4) = (/ &
+     &2.2623e-06_rb,2.8412e-06_rb,2.4342e-06_rb,1.7266e-06_rb,9.4865e-08_rb/)
+      kbo(:, 3,52, 4) = (/ &
+     &4.3170e-06_rb,5.0854e-06_rb,4.2468e-06_rb,2.9260e-06_rb,1.3026e-07_rb/)
+      kbo(:, 4,52, 4) = (/ &
+     &7.7969e-06_rb,8.6772e-06_rb,7.0531e-06_rb,4.7333e-06_rb,1.7384e-07_rb/)
+      kbo(:, 5,52, 4) = (/ &
+     &1.3261e-05_rb,1.4075e-05_rb,1.1203e-05_rb,7.2837e-06_rb,2.2485e-07_rb/)
+      kbo(:, 1,53, 4) = (/ &
+     &8.3089e-07_rb,1.0687e-06_rb,9.3518e-07_rb,6.7997e-07_rb,4.5831e-08_rb/)
+      kbo(:, 2,53, 4) = (/ &
+     &1.5556e-06_rb,1.9711e-06_rb,1.6966e-06_rb,1.2083e-06_rb,6.7497e-08_rb/)
+      kbo(:, 3,53, 4) = (/ &
+     &3.0048e-06_rb,3.5908e-06_rb,3.0131e-06_rb,2.0844e-06_rb,9.3485e-08_rb/)
+      kbo(:, 4,53, 4) = (/ &
+     &5.5438e-06_rb,6.2468e-06_rb,5.1016e-06_rb,3.4387e-06_rb,1.2594e-07_rb/)
+      kbo(:, 5,53, 4) = (/ &
+     &9.6328e-06_rb,1.0329e-05_rb,8.2446e-06_rb,5.3978e-06_rb,1.6450e-07_rb/)
+      kbo(:, 1,54, 4) = (/ &
+     &6.1034e-07_rb,7.6407e-07_rb,6.6371e-07_rb,4.8016e-07_rb,3.1960e-08_rb/)
+      kbo(:, 2,54, 4) = (/ &
+     &1.0977e-06_rb,1.3930e-06_rb,1.2021e-06_rb,8.5784e-07_rb,4.9012e-08_rb/)
+      kbo(:, 3,54, 4) = (/ &
+     &2.1270e-06_rb,2.5705e-06_rb,2.1637e-06_rb,1.5024e-06_rb,6.8673e-08_rb/)
+      kbo(:, 4,54, 4) = (/ &
+     &3.9965e-06_rb,4.5514e-06_rb,3.7320e-06_rb,2.5226e-06_rb,9.3587e-08_rb/)
+      kbo(:, 5,54, 4) = (/ &
+     &7.0830e-06_rb,7.6654e-06_rb,6.1329e-06_rb,4.0351e-06_rb,1.2382e-07_rb/)
+      kbo(:, 1,55, 4) = (/ &
+     &4.6385e-07_rb,5.5921e-07_rb,4.8019e-07_rb,3.4337e-07_rb,2.2394e-08_rb/)
+      kbo(:, 2,55, 4) = (/ &
+     &7.8989e-07_rb,9.9640e-07_rb,8.5986e-07_rb,6.1313e-07_rb,3.5977e-08_rb/)
+      kbo(:, 3,55, 4) = (/ &
+     &1.5192e-06_rb,1.8516e-06_rb,1.5624e-06_rb,1.0878e-06_rb,5.1500e-08_rb/)
+      kbo(:, 4,55, 4) = (/ &
+     &2.8980e-06_rb,3.3321e-06_rb,2.7426e-06_rb,1.8581e-06_rb,7.0762e-08_rb/)
+      kbo(:, 5,55, 4) = (/ &
+     &5.2356e-06_rb,5.7136e-06_rb,4.5826e-06_rb,3.0253e-06_rb,9.4338e-08_rb/)
+      kbo(:, 1,56, 4) = (/ &
+     &3.6371e-07_rb,4.1822e-07_rb,3.5281e-07_rb,2.4786e-07_rb,1.6072e-08_rb/)
+      kbo(:, 2,56, 4) = (/ &
+     &5.7786e-07_rb,7.1776e-07_rb,6.1684e-07_rb,4.3889e-07_rb,2.6450e-08_rb/)
+      kbo(:, 3,56, 4) = (/ &
+     &1.0893e-06_rb,1.3335e-06_rb,1.1271e-06_rb,7.8636e-07_rb,3.8603e-08_rb/)
+      kbo(:, 4,56, 4) = (/ &
+     &2.1010e-06_rb,2.4368e-06_rb,2.0114e-06_rb,1.3652e-06_rb,5.3303e-08_rb/)
+      kbo(:, 5,56, 4) = (/ &
+     &3.8675e-06_rb,4.2536e-06_rb,3.4205e-06_rb,2.2622e-06_rb,7.1626e-08_rb/)
+      kbo(:, 1,57, 4) = (/ &
+     &2.9431e-07_rb,3.2133e-07_rb,2.6457e-07_rb,1.8146e-07_rb,1.1259e-08_rb/)
+      kbo(:, 2,57, 4) = (/ &
+     &4.3212e-07_rb,5.2280e-07_rb,4.4601e-07_rb,3.1527e-07_rb,1.9122e-08_rb/)
+      kbo(:, 3,57, 4) = (/ &
+     &7.8679e-07_rb,9.6129e-07_rb,8.1340e-07_rb,5.6766e-07_rb,2.8681e-08_rb/)
+      kbo(:, 4,57, 4) = (/ &
+     &1.5240e-06_rb,1.7810e-06_rb,1.4725e-06_rb,1.0013e-06_rb,4.0212e-08_rb/)
+      kbo(:, 5,57, 4) = (/ &
+     &2.8546e-06_rb,3.1617e-06_rb,2.5494e-06_rb,1.6875e-06_rb,5.4480e-08_rb/)
+      kbo(:, 1,58, 4) = (/ &
+     &1.1920e-07_rb,1.4193e-07_rb,1.3380e-07_rb,1.0782e-07_rb,7.9525e-09_rb/)
+      kbo(:, 2,58, 4) = (/ &
+     &1.6186e-07_rb,2.1696e-07_rb,2.1477e-07_rb,1.8165e-07_rb,1.3814e-08_rb/)
+      kbo(:, 3,58, 4) = (/ &
+     &2.8087e-07_rb,3.9076e-07_rb,3.8760e-07_rb,3.2679e-07_rb,2.1394e-08_rb/)
+      kbo(:, 4,58, 4) = (/ &
+     &5.4191e-07_rb,7.3009e-07_rb,7.0916e-07_rb,5.8413e-07_rb,3.0724e-08_rb/)
+      kbo(:, 5,58, 4) = (/ &
+     &1.0299e-06_rb,1.3167e-06_rb,1.2488e-06_rb,1.0008e-06_rb,4.1885e-08_rb/)
+      kbo(:, 1,59, 4) = (/ &
+     &1.0039e-07_rb,1.1714e-07_rb,1.0974e-07_rb,8.7504e-08_rb,6.4674e-09_rb/)
+      kbo(:, 2,59, 4) = (/ &
+     &1.3241e-07_rb,1.7435e-07_rb,1.7189e-07_rb,1.4496e-07_rb,1.1458e-08_rb/)
+      kbo(:, 3,59, 4) = (/ &
+     &2.2493e-07_rb,3.1060e-07_rb,3.0841e-07_rb,2.6052e-07_rb,1.7735e-08_rb/)
+      kbo(:, 4,59, 4) = (/ &
+     &4.3202e-07_rb,5.8172e-07_rb,5.6654e-07_rb,4.6829e-07_rb,2.5818e-08_rb/)
+      kbo(:, 5,59, 4) = (/ &
+     &8.2523e-07_rb,1.0563e-06_rb,1.0053e-06_rb,8.0852e-07_rb,3.5572e-08_rb/)
+      kbo(:, 1,13, 5) = (/ &
+     &3.5348e-02_rb,3.1651e-02_rb,2.3972e-02_rb,1.4520e-02_rb,1.2073e-03_rb/)
+      kbo(:, 2,13, 5) = (/ &
+     &5.4657e-02_rb,4.7880e-02_rb,3.5919e-02_rb,2.1424e-02_rb,1.4997e-03_rb/)
+      kbo(:, 3,13, 5) = (/ &
+     &8.2602e-02_rb,7.1045e-02_rb,5.2562e-02_rb,3.0599e-02_rb,1.8487e-03_rb/)
+      kbo(:, 4,13, 5) = (/ &
+     &1.1970e-01_rb,1.0136e-01_rb,7.4139e-02_rb,4.2733e-02_rb,2.2117e-03_rb/)
+      kbo(:, 5,13, 5) = (/ &
+     &1.6697e-01_rb,1.3996e-01_rb,1.0160e-01_rb,5.7755e-02_rb,2.6210e-03_rb/)
+      kbo(:, 1,14, 5) = (/ &
+     &3.1413e-02_rb,2.7971e-02_rb,2.1089e-02_rb,1.2782e-02_rb,9.9834e-04_rb/)
+      kbo(:, 2,14, 5) = (/ &
+     &4.9001e-02_rb,4.2669e-02_rb,3.1890e-02_rb,1.8901e-02_rb,1.2749e-03_rb/)
+      kbo(:, 3,14, 5) = (/ &
+     &7.3648e-02_rb,6.3169e-02_rb,4.6557e-02_rb,2.7140e-02_rb,1.5545e-03_rb/)
+      kbo(:, 4,14, 5) = (/ &
+     &1.0633e-01_rb,9.0035e-02_rb,6.5788e-02_rb,3.7842e-02_rb,1.8680e-03_rb/)
+      kbo(:, 5,14, 5) = (/ &
+     &1.4847e-01_rb,1.2452e-01_rb,9.0180e-02_rb,5.1123e-02_rb,2.2124e-03_rb/)
+      kbo(:, 1,15, 5) = (/ &
+     &2.6691e-02_rb,2.3767e-02_rb,1.7918e-02_rb,1.0846e-02_rb,8.4376e-04_rb/)
+      kbo(:, 2,15, 5) = (/ &
+     &4.1563e-02_rb,3.6328e-02_rb,2.7130e-02_rb,1.6082e-02_rb,1.0611e-03_rb/)
+      kbo(:, 3,15, 5) = (/ &
+     &6.2559e-02_rb,5.3858e-02_rb,3.9632e-02_rb,2.3133e-02_rb,1.2845e-03_rb/)
+      kbo(:, 4,15, 5) = (/ &
+     &9.0477e-02_rb,7.6844e-02_rb,5.6216e-02_rb,3.2223e-02_rb,1.5617e-03_rb/)
+      kbo(:, 5,15, 5) = (/ &
+     &1.2655e-01_rb,1.0613e-01_rb,7.6652e-02_rb,4.3561e-02_rb,1.9061e-03_rb/)
+      kbo(:, 1,16, 5) = (/ &
+     &2.1986e-02_rb,1.9716e-02_rb,1.4938e-02_rb,9.0172e-03_rb,6.9426e-04_rb/)
+      kbo(:, 2,16, 5) = (/ &
+     &3.4448e-02_rb,3.0201e-02_rb,2.2563e-02_rb,1.3402e-02_rb,8.6528e-04_rb/)
+      kbo(:, 3,16, 5) = (/ &
+     &5.1943e-02_rb,4.4837e-02_rb,3.3116e-02_rb,1.9274e-02_rb,1.0580e-03_rb/)
+      kbo(:, 4,16, 5) = (/ &
+     &7.5192e-02_rb,6.4048e-02_rb,4.6767e-02_rb,2.6829e-02_rb,1.3132e-03_rb/)
+      kbo(:, 5,16, 5) = (/ &
+     &1.0492e-01_rb,8.8109e-02_rb,6.3827e-02_rb,3.6312e-02_rb,1.6006e-03_rb/)
+      kbo(:, 1,17, 5) = (/ &
+     &1.8067e-02_rb,1.6242e-02_rb,1.2317e-02_rb,7.4587e-03_rb,5.8084e-04_rb/)
+      kbo(:, 2,17, 5) = (/ &
+     &2.8443e-02_rb,2.5054e-02_rb,1.8720e-02_rb,1.1098e-02_rb,7.2334e-04_rb/)
+      kbo(:, 3,17, 5) = (/ &
+     &4.2795e-02_rb,3.7062e-02_rb,2.7408e-02_rb,1.5965e-02_rb,9.0099e-04_rb/)
+      kbo(:, 4,17, 5) = (/ &
+     &6.1919e-02_rb,5.2891e-02_rb,3.8653e-02_rb,2.2221e-02_rb,1.1193e-03_rb/)
+      kbo(:, 5,17, 5) = (/ &
+     &8.6219e-02_rb,7.2608e-02_rb,5.2687e-02_rb,2.9957e-02_rb,1.3671e-03_rb/)
+      kbo(:, 1,18, 5) = (/ &
+     &1.4708e-02_rb,1.3327e-02_rb,1.0113e-02_rb,6.1290e-03_rb,4.8316e-04_rb/)
+      kbo(:, 2,18, 5) = (/ &
+     &2.3136e-02_rb,2.0491e-02_rb,1.5341e-02_rb,9.1147e-03_rb,6.0374e-04_rb/)
+      kbo(:, 3,18, 5) = (/ &
+     &3.4747e-02_rb,3.0283e-02_rb,2.2393e-02_rb,1.3077e-02_rb,7.6598e-04_rb/)
+      kbo(:, 4,18, 5) = (/ &
+     &5.0288e-02_rb,4.3057e-02_rb,3.1490e-02_rb,1.8130e-02_rb,9.5069e-04_rb/)
+      kbo(:, 5,18, 5) = (/ &
+     &6.9756e-02_rb,5.9005e-02_rb,4.2850e-02_rb,2.4412e-02_rb,1.1633e-03_rb/)
+      kbo(:, 1,19, 5) = (/ &
+     &1.2271e-02_rb,1.1130e-02_rb,8.4511e-03_rb,5.1168e-03_rb,4.1293e-04_rb/)
+      kbo(:, 2,19, 5) = (/ &
+     &1.9205e-02_rb,1.7036e-02_rb,1.2763e-02_rb,7.5902e-03_rb,5.1993e-04_rb/)
+      kbo(:, 3,19, 5) = (/ &
+     &2.8789e-02_rb,2.5103e-02_rb,1.8579e-02_rb,1.0864e-02_rb,6.5561e-04_rb/)
+      kbo(:, 4,19, 5) = (/ &
+     &4.1470e-02_rb,3.5549e-02_rb,2.6049e-02_rb,1.5006e-02_rb,8.1395e-04_rb/)
+      kbo(:, 5,19, 5) = (/ &
+     &5.7470e-02_rb,4.8743e-02_rb,3.5383e-02_rb,2.0175e-02_rb,9.9598e-04_rb/)
+      kbo(:, 1,20, 5) = (/ &
+     &1.0604e-02_rb,9.5861e-03_rb,7.2655e-03_rb,4.3823e-03_rb,3.5617e-04_rb/)
+      kbo(:, 2,20, 5) = (/ &
+     &1.6495e-02_rb,1.4613e-02_rb,1.0934e-02_rb,6.4798e-03_rb,4.4865e-04_rb/)
+      kbo(:, 3,20, 5) = (/ &
+     &2.4651e-02_rb,2.1430e-02_rb,1.5803e-02_rb,9.2155e-03_rb,5.6360e-04_rb/)
+      kbo(:, 4,20, 5) = (/ &
+     &3.5214e-02_rb,3.0218e-02_rb,2.2119e-02_rb,1.2722e-02_rb,7.0046e-04_rb/)
+      kbo(:, 5,20, 5) = (/ &
+     &4.8685e-02_rb,4.1243e-02_rb,2.9948e-02_rb,1.7048e-02_rb,8.5450e-04_rb/)
+      kbo(:, 1,21, 5) = (/ &
+     &9.2365e-03_rb,8.3349e-03_rb,6.3064e-03_rb,3.7870e-03_rb,3.0556e-04_rb/)
+      kbo(:, 2,21, 5) = (/ &
+     &1.4270e-02_rb,1.2642e-02_rb,9.4383e-03_rb,5.5694e-03_rb,3.8499e-04_rb/)
+      kbo(:, 3,21, 5) = (/ &
+     &2.1188e-02_rb,1.8415e-02_rb,1.3582e-02_rb,7.8888e-03_rb,4.8632e-04_rb/)
+      kbo(:, 4,21, 5) = (/ &
+     &3.0204e-02_rb,2.5895e-02_rb,1.8922e-02_rb,1.0859e-02_rb,6.0144e-04_rb/)
+      kbo(:, 5,21, 5) = (/ &
+     &4.1738e-02_rb,3.5266e-02_rb,2.5553e-02_rb,1.4491e-02_rb,7.3167e-04_rb/)
+      kbo(:, 1,22, 5) = (/ &
+     &8.2084e-03_rb,7.4154e-03_rb,5.5986e-03_rb,3.3447e-03_rb,2.6030e-04_rb/)
+      kbo(:, 2,22, 5) = (/ &
+     &1.2593e-02_rb,1.1132e-02_rb,8.2855e-03_rb,4.8830e-03_rb,3.3150e-04_rb/)
+      kbo(:, 3,22, 5) = (/ &
+     &1.8558e-02_rb,1.6118e-02_rb,1.1879e-02_rb,6.8818e-03_rb,4.1718e-04_rb/)
+      kbo(:, 4,22, 5) = (/ &
+     &2.6423e-02_rb,2.2608e-02_rb,1.6490e-02_rb,9.4242e-03_rb,5.1837e-04_rb/)
+      kbo(:, 5,22, 5) = (/ &
+     &3.6423e-02_rb,3.0712e-02_rb,2.2210e-02_rb,1.2556e-02_rb,6.2757e-04_rb/)
+      kbo(:, 1,23, 5) = (/ &
+     &7.2962e-03_rb,6.5767e-03_rb,4.9576e-03_rb,2.9518e-03_rb,2.2147e-04_rb/)
+      kbo(:, 2,23, 5) = (/ &
+     &1.1116e-02_rb,9.7878e-03_rb,7.2822e-03_rb,4.2736e-03_rb,2.8452e-04_rb/)
+      kbo(:, 3,23, 5) = (/ &
+     &1.6294e-02_rb,1.4142e-02_rb,1.0397e-02_rb,6.0039e-03_rb,3.5768e-04_rb/)
+      kbo(:, 4,23, 5) = (/ &
+     &2.3164e-02_rb,1.9768e-02_rb,1.4383e-02_rb,8.1899e-03_rb,4.4507e-04_rb/)
+      kbo(:, 5,23, 5) = (/ &
+     &3.1815e-02_rb,2.6782e-02_rb,1.9341e-02_rb,1.0913e-02_rb,5.3593e-04_rb/)
+      kbo(:, 1,24, 5) = (/ &
+     &6.5132e-03_rb,5.8530e-03_rb,4.4011e-03_rb,2.6156e-03_rb,1.8866e-04_rb/)
+      kbo(:, 2,24, 5) = (/ &
+     &9.8979e-03_rb,8.6925e-03_rb,6.4521e-03_rb,3.7670e-03_rb,2.4398e-04_rb/)
+      kbo(:, 3,24, 5) = (/ &
+     &1.4458e-02_rb,1.2498e-02_rb,9.1615e-03_rb,5.2667e-03_rb,3.0838e-04_rb/)
+      kbo(:, 4,24, 5) = (/ &
+     &2.0434e-02_rb,1.7400e-02_rb,1.2635e-02_rb,7.1775e-03_rb,3.8038e-04_rb/)
+      kbo(:, 5,24, 5) = (/ &
+     &2.8011e-02_rb,2.3552e-02_rb,1.6988e-02_rb,9.5542e-03_rb,4.5842e-04_rb/)
+      kbo(:, 1,25, 5) = (/ &
+     &5.8496e-03_rb,5.2463e-03_rb,3.9347e-03_rb,2.3271e-03_rb,1.6445e-04_rb/)
+      kbo(:, 2,25, 5) = (/ &
+     &8.8417e-03_rb,7.7604e-03_rb,5.7347e-03_rb,3.3321e-03_rb,2.1081e-04_rb/)
+      kbo(:, 3,25, 5) = (/ &
+     &1.2868e-02_rb,1.1077e-02_rb,8.0978e-03_rb,4.6433e-03_rb,2.6559e-04_rb/)
+      kbo(:, 4,25, 5) = (/ &
+     &1.8100e-02_rb,1.5382e-02_rb,1.1156e-02_rb,6.3115e-03_rb,3.2583e-04_rb/)
+      kbo(:, 5,25, 5) = (/ &
+     &2.4695e-02_rb,2.0722e-02_rb,1.4925e-02_rb,8.3824e-03_rb,3.9105e-04_rb/)
+      kbo(:, 1,26, 5) = (/ &
+     &5.3224e-03_rb,4.7440e-03_rb,3.5455e-03_rb,2.0856e-03_rb,1.4273e-04_rb/)
+      kbo(:, 2,26, 5) = (/ &
+     &7.9880e-03_rb,6.9773e-03_rb,5.1401e-03_rb,2.9750e-03_rb,1.8261e-04_rb/)
+      kbo(:, 3,26, 5) = (/ &
+     &1.1564e-02_rb,9.9215e-03_rb,7.2343e-03_rb,4.1334e-03_rb,2.2903e-04_rb/)
+      kbo(:, 4,26, 5) = (/ &
+     &1.6157e-02_rb,1.3698e-02_rb,9.9057e-03_rb,5.5934e-03_rb,2.7897e-04_rb/)
+      kbo(:, 5,26, 5) = (/ &
+     &2.1895e-02_rb,1.8349e-02_rb,1.3199e-02_rb,7.3992e-03_rb,3.3238e-04_rb/)
+      kbo(:, 1,27, 5) = (/ &
+     &4.8372e-03_rb,4.2909e-03_rb,3.1935e-03_rb,1.8703e-03_rb,1.2222e-04_rb/)
+      kbo(:, 2,27, 5) = (/ &
+     &7.2219e-03_rb,6.2785e-03_rb,4.6150e-03_rb,2.6594e-03_rb,1.5564e-04_rb/)
+      kbo(:, 3,27, 5) = (/ &
+     &1.0384e-02_rb,8.8912e-03_rb,6.4664e-03_rb,3.6778e-03_rb,1.9361e-04_rb/)
+      kbo(:, 4,27, 5) = (/ &
+     &1.4401e-02_rb,1.2183e-02_rb,8.7984e-03_rb,4.9566e-03_rb,2.3445e-04_rb/)
+      kbo(:, 5,27, 5) = (/ &
+     &1.9400e-02_rb,1.6243e-02_rb,1.1670e-02_rb,6.5316e-03_rb,2.7869e-04_rb/)
+      kbo(:, 1,28, 5) = (/ &
+     &4.3907e-03_rb,3.8800e-03_rb,2.8785e-03_rb,1.6793e-03_rb,1.0352e-04_rb/)
+      kbo(:, 2,28, 5) = (/ &
+     &6.5180e-03_rb,5.6500e-03_rb,4.1431e-03_rb,2.3781e-03_rb,1.3090e-04_rb/)
+      kbo(:, 3,28, 5) = (/ &
+     &9.2995e-03_rb,7.9428e-03_rb,5.7641e-03_rb,3.2684e-03_rb,1.6163e-04_rb/)
+      kbo(:, 4,28, 5) = (/ &
+     &1.2806e-02_rb,1.0816e-02_rb,7.7992e-03_rb,4.3863e-03_rb,1.9422e-04_rb/)
+      kbo(:, 5,28, 5) = (/ &
+     &1.7155e-02_rb,1.4361e-02_rb,1.0305e-02_rb,5.7599e-03_rb,2.3020e-04_rb/)
+      kbo(:, 1,29, 5) = (/ &
+     &3.9730e-03_rb,3.5033e-03_rb,2.5903e-03_rb,1.5043e-03_rb,8.6138e-05_rb/)
+      kbo(:, 2,29, 5) = (/ &
+     &5.8501e-03_rb,5.0589e-03_rb,3.6981e-03_rb,2.1165e-03_rb,1.0866e-04_rb/)
+      kbo(:, 3,29, 5) = (/ &
+     &8.2752e-03_rb,7.0540e-03_rb,5.1122e-03_rb,2.8938e-03_rb,1.3206e-04_rb/)
+      kbo(:, 4,29, 5) = (/ &
+     &1.1323e-02_rb,9.5548e-03_rb,6.8809e-03_rb,3.8639e-03_rb,1.5770e-04_rb/)
+      kbo(:, 5,29, 5) = (/ &
+     &1.5087e-02_rb,1.2624e-02_rb,9.0498e-03_rb,5.0491e-03_rb,1.8805e-04_rb/)
+      kbo(:, 1,30, 5) = (/ &
+     &3.5719e-03_rb,3.1399e-03_rb,2.3162e-03_rb,1.3392e-03_rb,7.1373e-05_rb/)
+      kbo(:, 2,30, 5) = (/ &
+     &5.2107e-03_rb,4.4986e-03_rb,3.2816e-03_rb,1.8730e-03_rb,8.8119e-05_rb/)
+      kbo(:, 3,30, 5) = (/ &
+     &7.3165e-03_rb,6.2315e-03_rb,4.5078e-03_rb,2.5469e-03_rb,1.0662e-04_rb/)
+      kbo(:, 4,30, 5) = (/ &
+     &9.9520e-03_rb,8.3892e-03_rb,6.0327e-03_rb,3.3847e-03_rb,1.2803e-04_rb/)
+      kbo(:, 5,30, 5) = (/ &
+     &1.3166e-02_rb,1.1029e-02_rb,7.9003e-03_rb,4.4030e-03_rb,1.5121e-04_rb/)
+      kbo(:, 1,31, 5) = (/ &
+     &3.1788e-03_rb,2.7864e-03_rb,2.0507e-03_rb,1.1825e-03_rb,5.7200e-05_rb/)
+      kbo(:, 2,31, 5) = (/ &
+     &4.5964e-03_rb,3.9617e-03_rb,2.8849e-03_rb,1.6429e-03_rb,7.0401e-05_rb/)
+      kbo(:, 3,31, 5) = (/ &
+     &6.4014e-03_rb,5.4495e-03_rb,3.9350e-03_rb,2.2208e-03_rb,8.5247e-05_rb/)
+      kbo(:, 4,31, 5) = (/ &
+     &8.6375e-03_rb,7.2878e-03_rb,5.2393e-03_rb,2.9385e-03_rb,1.0146e-04_rb/)
+      kbo(:, 5,31, 5) = (/ &
+     &1.1347e-02_rb,9.5229e-03_rb,6.8169e-03_rb,3.7997e-03_rb,1.1891e-04_rb/)
+      kbo(:, 1,32, 5) = (/ &
+     &2.8359e-03_rb,2.4792e-03_rb,1.8198e-03_rb,1.0462e-03_rb,4.5712e-05_rb/)
+      kbo(:, 2,32, 5) = (/ &
+     &4.0627e-03_rb,3.4962e-03_rb,2.5410e-03_rb,1.4431e-03_rb,5.6022e-05_rb/)
+      kbo(:, 3,32, 5) = (/ &
+     &5.6078e-03_rb,4.7711e-03_rb,3.4442e-03_rb,1.9418e-03_rb,6.7267e-05_rb/)
+      kbo(:, 4,32, 5) = (/ &
+     &7.5047e-03_rb,6.3406e-03_rb,4.5581e-03_rb,2.5548e-03_rb,7.9547e-05_rb/)
+      kbo(:, 5,32, 5) = (/ &
+     &9.7792e-03_rb,8.2213e-03_rb,5.8868e-03_rb,3.2848e-03_rb,9.2763e-05_rb/)
+      kbo(:, 1,33, 5) = (/ &
+     &2.5284e-03_rb,2.2057e-03_rb,1.6155e-03_rb,9.2588e-04_rb,3.6267e-05_rb/)
+      kbo(:, 2,33, 5) = (/ &
+     &3.5886e-03_rb,3.0844e-03_rb,2.2382e-03_rb,1.2695e-03_rb,4.4003e-05_rb/)
+      kbo(:, 3,33, 5) = (/ &
+     &4.9097e-03_rb,4.1805e-03_rb,3.0157e-03_rb,1.6993e-03_rb,5.2825e-05_rb/)
+      kbo(:, 4,33, 5) = (/ &
+     &6.5165e-03_rb,5.5167e-03_rb,3.9645e-03_rb,2.2215e-03_rb,6.1889e-05_rb/)
+      kbo(:, 5,33, 5) = (/ &
+     &8.4209e-03_rb,7.0899e-03_rb,5.0775e-03_rb,2.8354e-03_rb,7.2610e-05_rb/)
+      kbo(:, 1,34, 5) = (/ &
+     &2.2520e-03_rb,1.9602e-03_rb,1.4328e-03_rb,8.1868e-04_rb,2.9417e-05_rb/)
+      kbo(:, 2,34, 5) = (/ &
+     &3.1681e-03_rb,2.7215e-03_rb,1.9717e-03_rb,1.1166e-03_rb,3.5490e-05_rb/)
+      kbo(:, 3,34, 5) = (/ &
+     &4.2977e-03_rb,3.6615e-03_rb,2.6403e-03_rb,1.4869e-03_rb,4.1854e-05_rb/)
+      kbo(:, 4,34, 5) = (/ &
+     &5.6597e-03_rb,4.7967e-03_rb,3.4462e-03_rb,1.9298e-03_rb,4.9348e-05_rb/)
+      kbo(:, 5,34, 5) = (/ &
+     &7.2681e-03_rb,6.1253e-03_rb,4.3873e-03_rb,2.4514e-03_rb,5.8186e-05_rb/)
+      kbo(:, 1,35, 5) = (/ &
+     &1.9366e-03_rb,1.6854e-03_rb,1.2304e-03_rb,7.0199e-04_rb,2.3008e-05_rb/)
+      kbo(:, 2,35, 5) = (/ &
+     &2.7102e-03_rb,2.3296e-03_rb,1.6872e-03_rb,9.5490e-04_rb,2.7664e-05_rb/)
+      kbo(:, 3,35, 5) = (/ &
+     &3.6574e-03_rb,3.1206e-03_rb,2.2499e-03_rb,1.2662e-03_rb,3.3089e-05_rb/)
+      kbo(:, 4,35, 5) = (/ &
+     &4.7963e-03_rb,4.0694e-03_rb,2.9228e-03_rb,1.6371e-03_rb,3.9372e-05_rb/)
+      kbo(:, 5,35, 5) = (/ &
+     &6.1352e-03_rb,5.1795e-03_rb,3.7111e-03_rb,2.0740e-03_rb,4.6276e-05_rb/)
+      kbo(:, 1,36, 5) = (/ &
+     &1.6034e-03_rb,1.3976e-03_rb,1.0202e-03_rb,5.8186e-04_rb,1.7663e-05_rb/)
+      kbo(:, 2,36, 5) = (/ &
+     &2.2421e-03_rb,1.9307e-03_rb,1.3983e-03_rb,7.9118e-04_rb,2.1547e-05_rb/)
+      kbo(:, 3,36, 5) = (/ &
+     &3.0206e-03_rb,2.5824e-03_rb,1.8623e-03_rb,1.0484e-03_rb,2.5886e-05_rb/)
+      kbo(:, 4,36, 5) = (/ &
+     &3.9570e-03_rb,3.3630e-03_rb,2.4161e-03_rb,1.3541e-03_rb,3.0872e-05_rb/)
+      kbo(:, 5,36, 5) = (/ &
+     &5.0582e-03_rb,4.2785e-03_rb,3.0668e-03_rb,1.7150e-03_rb,3.6301e-05_rb/)
+      kbo(:, 1,37, 5) = (/ &
+     &1.2748e-03_rb,1.1146e-03_rb,8.1407e-04_rb,4.6450e-04_rb,1.3581e-05_rb/)
+      kbo(:, 2,37, 5) = (/ &
+     &1.7898e-03_rb,1.5447e-03_rb,1.1192e-03_rb,6.3354e-04_rb,1.6729e-05_rb/)
+      kbo(:, 3,37, 5) = (/ &
+     &2.4187e-03_rb,2.0714e-03_rb,1.4947e-03_rb,8.4187e-04_rb,2.0205e-05_rb/)
+      kbo(:, 4,37, 5) = (/ &
+     &3.1762e-03_rb,2.7057e-03_rb,1.9449e-03_rb,1.0902e-03_rb,2.4038e-05_rb/)
+      kbo(:, 5,37, 5) = (/ &
+     &4.0701e-03_rb,3.4504e-03_rb,2.4741e-03_rb,1.3836e-03_rb,2.8365e-05_rb/)
+      kbo(:, 1,38, 5) = (/ &
+     &1.0102e-03_rb,8.8559e-04_rb,6.4741e-04_rb,3.6947e-04_rb,1.0412e-05_rb/)
+      kbo(:, 2,38, 5) = (/ &
+     &1.4249e-03_rb,1.2327e-03_rb,8.9319e-04_rb,5.0584e-04_rb,1.2901e-05_rb/)
+      kbo(:, 3,38, 5) = (/ &
+     &1.9318e-03_rb,1.6579e-03_rb,1.1967e-03_rb,6.7434e-04_rb,1.5672e-05_rb/)
+      kbo(:, 4,38, 5) = (/ &
+     &2.5434e-03_rb,2.1714e-03_rb,1.5616e-03_rb,8.7562e-04_rb,1.8795e-05_rb/)
+      kbo(:, 5,38, 5) = (/ &
+     &3.2683e-03_rb,2.7765e-03_rb,1.9923e-03_rb,1.1142e-03_rb,2.2145e-05_rb/)
+      kbo(:, 1,39, 5) = (/ &
+     &7.9946e-04_rb,7.0298e-04_rb,5.1416e-04_rb,2.9368e-04_rb,7.9720e-06_rb/)
+      kbo(:, 2,39, 5) = (/ &
+     &1.1333e-03_rb,9.8290e-04_rb,7.1255e-04_rb,4.0353e-04_rb,9.9223e-06_rb/)
+      kbo(:, 3,39, 5) = (/ &
+     &1.5418e-03_rb,1.3259e-03_rb,9.5739e-04_rb,5.3970e-04_rb,1.2141e-05_rb/)
+      kbo(:, 4,39, 5) = (/ &
+     &2.0355e-03_rb,1.7418e-03_rb,1.2533e-03_rb,7.0303e-04_rb,1.4591e-05_rb/)
+      kbo(:, 5,39, 5) = (/ &
+     &2.6233e-03_rb,2.2332e-03_rb,1.6027e-03_rb,8.9673e-04_rb,1.7278e-05_rb/)
+      kbo(:, 1,40, 5) = (/ &
+     &6.1558e-04_rb,5.4339e-04_rb,3.9799e-04_rb,2.2761e-04_rb,6.0679e-06_rb/)
+      kbo(:, 2,40, 5) = (/ &
+     &8.8100e-04_rb,7.6638e-04_rb,5.5623e-04_rb,3.1507e-04_rb,7.6104e-06_rb/)
+      kbo(:, 3,40, 5) = (/ &
+     &1.2072e-03_rb,1.0404e-03_rb,7.5136e-04_rb,4.2373e-04_rb,9.3444e-06_rb/)
+      kbo(:, 4,40, 5) = (/ &
+     &1.6029e-03_rb,1.3742e-03_rb,9.8944e-04_rb,5.5501e-04_rb,1.1318e-05_rb/)
+      kbo(:, 5,40, 5) = (/ &
+     &2.0762e-03_rb,1.7710e-03_rb,1.2711e-03_rb,7.1134e-04_rb,1.3497e-05_rb/)
+      kbo(:, 1,41, 5) = (/ &
+     &4.7150e-04_rb,4.1786e-04_rb,3.0641e-04_rb,1.7559e-04_rb,4.6077e-06_rb/)
+      kbo(:, 2,41, 5) = (/ &
+     &6.8147e-04_rb,5.9486e-04_rb,4.3209e-04_rb,2.4498e-04_rb,5.8135e-06_rb/)
+      kbo(:, 3,41, 5) = (/ &
+     &9.4213e-04_rb,8.1372e-04_rb,5.8780e-04_rb,3.3145e-04_rb,7.1715e-06_rb/)
+      kbo(:, 4,41, 5) = (/ &
+     &1.2582e-03_rb,1.0809e-03_rb,7.7844e-04_rb,4.3685e-04_rb,8.7285e-06_rb/)
+      kbo(:, 5,41, 5) = (/ &
+     &1.6388e-03_rb,1.4010e-03_rb,1.0055e-03_rb,5.6266e-04_rb,1.0465e-05_rb/)
+      kbo(:, 1,42, 5) = (/ &
+     &3.6009e-04_rb,3.2039e-04_rb,2.3540e-04_rb,1.3511e-04_rb,3.4818e-06_rb/)
+      kbo(:, 2,42, 5) = (/ &
+     &5.2591e-04_rb,4.6075e-04_rb,3.3505e-04_rb,1.9005e-04_rb,4.4174e-06_rb/)
+      kbo(:, 3,42, 5) = (/ &
+     &7.3377e-04_rb,6.3539e-04_rb,4.5927e-04_rb,2.5904e-04_rb,5.4797e-06_rb/)
+      kbo(:, 4,42, 5) = (/ &
+     &9.8665e-04_rb,8.4900e-04_rb,6.1152e-04_rb,3.4335e-04_rb,6.7219e-06_rb/)
+      kbo(:, 5,42, 5) = (/ &
+     &1.2919e-03_rb,1.1071e-03_rb,7.9454e-04_rb,4.4455e-04_rb,8.0996e-06_rb/)
+      kbo(:, 1,43, 5) = (/ &
+     &2.7068e-04_rb,2.4195e-04_rb,1.7816e-04_rb,1.0249e-04_rb,2.5837e-06_rb/)
+      kbo(:, 2,43, 5) = (/ &
+     &4.0104e-04_rb,3.5254e-04_rb,2.5672e-04_rb,1.4582e-04_rb,3.3146e-06_rb/)
+      kbo(:, 3,43, 5) = (/ &
+     &5.6618e-04_rb,4.9150e-04_rb,3.5538e-04_rb,2.0045e-04_rb,4.1432e-06_rb/)
+      kbo(:, 4,43, 5) = (/ &
+     &7.6835e-04_rb,6.6216e-04_rb,4.7675e-04_rb,2.6781e-04_rb,5.1315e-06_rb/)
+      kbo(:, 5,43, 5) = (/ &
+     &1.0127e-03_rb,8.6923e-04_rb,6.2405e-04_rb,3.4899e-04_rb,6.1983e-06_rb/)
+      kbo(:, 1,44, 5) = (/ &
+     &2.0139e-04_rb,1.8106e-04_rb,1.3358e-04_rb,7.7094e-05_rb,1.8960e-06_rb/)
+      kbo(:, 2,44, 5) = (/ &
+     &3.0345e-04_rb,2.6774e-04_rb,1.9525e-04_rb,1.1112e-04_rb,2.4595e-06_rb/)
+      kbo(:, 3,44, 5) = (/ &
+     &4.3439e-04_rb,3.7822e-04_rb,2.7355e-04_rb,1.5433e-04_rb,3.1158e-06_rb/)
+      kbo(:, 4,44, 5) = (/ &
+     &5.9600e-04_rb,5.1425e-04_rb,3.7025e-04_rb,2.0795e-04_rb,3.8746e-06_rb/)
+      kbo(:, 5,44, 5) = (/ &
+     &7.9184e-04_rb,6.8038e-04_rb,4.8839e-04_rb,2.7303e-04_rb,4.7113e-06_rb/)
+      kbo(:, 1,45, 5) = (/ &
+     &1.4924e-04_rb,1.3479e-04_rb,9.9739e-05_rb,5.7756e-05_rb,1.3827e-06_rb/)
+      kbo(:, 2,45, 5) = (/ &
+     &2.2880e-04_rb,2.0270e-04_rb,1.4808e-04_rb,8.4395e-05_rb,1.8081e-06_rb/)
+      kbo(:, 3,45, 5) = (/ &
+     &3.3229e-04_rb,2.9032e-04_rb,2.1015e-04_rb,1.1857e-04_rb,2.3261e-06_rb/)
+      kbo(:, 4,45, 5) = (/ &
+     &4.6152e-04_rb,3.9893e-04_rb,2.8721e-04_rb,1.6120e-04_rb,2.9080e-06_rb/)
+      kbo(:, 5,45, 5) = (/ &
+     &6.1857e-04_rb,5.3204e-04_rb,3.8190e-04_rb,2.1341e-04_rb,3.5612e-06_rb/)
+      kbo(:, 1,46, 5) = (/ &
+     &1.0906e-04_rb,9.9059e-05_rb,7.3477e-05_rb,4.2734e-05_rb,1.0024e-06_rb/)
+      kbo(:, 2,46, 5) = (/ &
+     &1.7043e-04_rb,1.5165e-04_rb,1.1108e-04_rb,6.3473e-05_rb,1.3227e-06_rb/)
+      kbo(:, 3,46, 5) = (/ &
+     &2.5193e-04_rb,2.2079e-04_rb,1.6005e-04_rb,9.0376e-05_rb,1.7191e-06_rb/)
+      kbo(:, 4,46, 5) = (/ &
+     &3.5457e-04_rb,3.0711e-04_rb,2.2121e-04_rb,1.2412e-04_rb,2.1640e-06_rb/)
+      kbo(:, 5,46, 5) = (/ &
+     &4.8016e-04_rb,4.1350e-04_rb,2.9669e-04_rb,1.6585e-04_rb,2.6681e-06_rb/)
+      kbo(:, 1,47, 5) = (/ &
+     &7.7791e-05_rb,7.1164e-05_rb,5.2966e-05_rb,3.0950e-05_rb,7.1979e-07_rb/)
+      kbo(:, 2,47, 5) = (/ &
+     &1.2436e-04_rb,1.1134e-04_rb,8.1758e-05_rb,4.6856e-05_rb,9.5466e-07_rb/)
+      kbo(:, 3,47, 5) = (/ &
+     &1.8767e-04_rb,1.6518e-04_rb,1.1995e-04_rb,6.7855e-05_rb,1.2553e-06_rb/)
+      kbo(:, 4,47, 5) = (/ &
+     &2.6877e-04_rb,2.3350e-04_rb,1.6823e-04_rb,9.4438e-05_rb,1.6001e-06_rb/)
+      kbo(:, 5,47, 5) = (/ &
+     &3.6855e-04_rb,3.1774e-04_rb,2.2797e-04_rb,1.2742e-04_rb,1.9855e-06_rb/)
+      kbo(:, 1,48, 5) = (/ &
+     &5.5044e-05_rb,5.0693e-05_rb,3.7891e-05_rb,2.2267e-05_rb,5.1420e-07_rb/)
+      kbo(:, 2,48, 5) = (/ &
+     &9.0215e-05_rb,8.1170e-05_rb,5.9770e-05_rb,3.4413e-05_rb,6.9075e-07_rb/)
+      kbo(:, 3,48, 5) = (/ &
+     &1.3907e-04_rb,1.2292e-04_rb,8.9447e-05_rb,5.0716e-05_rb,9.0307e-07_rb/)
+      kbo(:, 4,48, 5) = (/ &
+     &2.0282e-04_rb,1.7688e-04_rb,1.2753e-04_rb,7.1593e-05_rb,1.1665e-06_rb/)
+      kbo(:, 5,48, 5) = (/ &
+     &2.8252e-04_rb,2.4382e-04_rb,1.7492e-04_rb,9.7702e-05_rb,1.4649e-06_rb/)
+      kbo(:, 1,49, 5) = (/ &
+     &3.8587e-05_rb,3.5798e-05_rb,2.6873e-05_rb,1.5895e-05_rb,3.6284e-07_rb/)
+      kbo(:, 2,49, 5) = (/ &
+     &6.4973e-05_rb,5.8784e-05_rb,4.3404e-05_rb,2.5118e-05_rb,4.9340e-07_rb/)
+      kbo(:, 3,49, 5) = (/ &
+     &1.0247e-04_rb,9.0960e-05_rb,6.6355e-05_rb,3.7720e-05_rb,6.5251e-07_rb/)
+      kbo(:, 4,49, 5) = (/ &
+     &1.5241e-04_rb,1.3334e-04_rb,9.6283e-05_rb,5.4131e-05_rb,8.4176e-07_rb/)
+      kbo(:, 5,49, 5) = (/ &
+     &2.1585e-04_rb,1.8661e-04_rb,1.3387e-04_rb,7.4762e-05_rb,1.0688e-06_rb/)
+      kbo(:, 1,50, 5) = (/ &
+     &2.7204e-05_rb,2.5412e-05_rb,1.9146e-05_rb,1.1397e-05_rb,2.5753e-07_rb/)
+      kbo(:, 2,50, 5) = (/ &
+     &4.7009e-05_rb,4.2778e-05_rb,3.1689e-05_rb,1.8416e-05_rb,3.5668e-07_rb/)
+      kbo(:, 3,50, 5) = (/ &
+     &7.5923e-05_rb,6.7680e-05_rb,4.9459e-05_rb,2.8188e-05_rb,4.7630e-07_rb/)
+      kbo(:, 4,50, 5) = (/ &
+     &1.1516e-04_rb,1.0107e-04_rb,7.3089e-05_rb,4.1129e-05_rb,6.1736e-07_rb/)
+      kbo(:, 5,50, 5) = (/ &
+     &1.6568e-04_rb,1.4364e-04_rb,1.0307e-04_rb,5.7556e-05_rb,7.8811e-07_rb/)
+      kbo(:, 1,51, 5) = (/ &
+     &1.9132e-05_rb,1.8022e-05_rb,1.3620e-05_rb,8.1585e-06_rb,1.8251e-07_rb/)
+      kbo(:, 2,51, 5) = (/ &
+     &3.4015e-05_rb,3.1104e-05_rb,2.3112e-05_rb,1.3493e-05_rb,2.5742e-07_rb/)
+      kbo(:, 3,51, 5) = (/ &
+     &5.6251e-05_rb,5.0351e-05_rb,3.6864e-05_rb,2.1082e-05_rb,3.4853e-07_rb/)
+      kbo(:, 4,51, 5) = (/ &
+     &8.7117e-05_rb,7.6686e-05_rb,5.5526e-05_rb,3.1296e-05_rb,4.5614e-07_rb/)
+      kbo(:, 5,51, 5) = (/ &
+     &1.2742e-04_rb,1.1075e-04_rb,7.9490e-05_rb,4.4386e-05_rb,5.8324e-07_rb/)
+      kbo(:, 1,52, 5) = (/ &
+     &1.3343e-05_rb,1.2680e-05_rb,9.6205e-06_rb,5.7937e-06_rb,1.2757e-07_rb/)
+      kbo(:, 2,52, 5) = (/ &
+     &2.4457e-05_rb,2.2489e-05_rb,1.6762e-05_rb,9.8342e-06_rb,1.8427e-07_rb/)
+      kbo(:, 3,52, 5) = (/ &
+     &4.1490e-05_rb,3.7272e-05_rb,2.7347e-05_rb,1.5697e-05_rb,2.5311e-07_rb/)
+      kbo(:, 4,52, 5) = (/ &
+     &6.5698e-05_rb,5.8019e-05_rb,4.2067e-05_rb,2.3741e-05_rb,3.3454e-07_rb/)
+      kbo(:, 5,52, 5) = (/ &
+     &9.7769e-05_rb,8.5199e-05_rb,6.1200e-05_rb,3.4184e-05_rb,4.3074e-07_rb/)
+      kbo(:, 1,53, 5) = (/ &
+     &9.2286e-06_rb,8.8438e-06_rb,6.7394e-06_rb,4.0796e-06_rb,8.7990e-08_rb/)
+      kbo(:, 2,53, 5) = (/ &
+     &1.7462e-05_rb,1.6145e-05_rb,1.2071e-05_rb,7.1204e-06_rb,1.3004e-07_rb/)
+      kbo(:, 3,53, 5) = (/ &
+     &3.0397e-05_rb,2.7436e-05_rb,2.0177e-05_rb,1.1626e-05_rb,1.8173e-07_rb/)
+      kbo(:, 4,53, 5) = (/ &
+     &4.9319e-05_rb,4.3681e-05_rb,3.1722e-05_rb,1.7943e-05_rb,2.4392e-07_rb/)
+      kbo(:, 5,53, 5) = (/ &
+     &7.4848e-05_rb,6.5369e-05_rb,4.7021e-05_rb,2.6269e-05_rb,3.1719e-07_rb/)
+      kbo(:, 1,54, 5) = (/ &
+     &6.4770e-06_rb,6.2515e-06_rb,4.7770e-06_rb,2.9074e-06_rb,6.2611e-08_rb/)
+      kbo(:, 2,54, 5) = (/ &
+     &1.2608e-05_rb,1.1724e-05_rb,8.7837e-06_rb,5.2044e-06_rb,9.4222e-08_rb/)
+      kbo(:, 3,54, 5) = (/ &
+     &2.2532e-05_rb,2.0405e-05_rb,1.5043e-05_rb,8.6950e-06_rb,1.3411e-07_rb/)
+      kbo(:, 4,54, 5) = (/ &
+     &3.7397e-05_rb,3.3212e-05_rb,2.4145e-05_rb,1.3685e-05_rb,1.8245e-07_rb/)
+      kbo(:, 5,54, 5) = (/ &
+     &5.7878e-05_rb,5.0645e-05_rb,3.6444e-05_rb,2.0382e-05_rb,2.3871e-07_rb/)
+      kbo(:, 1,55, 5) = (/ &
+     &4.5852e-06_rb,4.4390e-06_rb,3.4016e-06_rb,2.0767e-06_rb,4.4961e-08_rb/)
+      kbo(:, 2,55, 5) = (/ &
+     &9.1363e-06_rb,8.5468e-06_rb,6.4138e-06_rb,3.8136e-06_rb,6.9204e-08_rb/)
+      kbo(:, 3,55, 5) = (/ &
+     &1.6770e-05_rb,1.5238e-05_rb,1.1251e-05_rb,6.5245e-06_rb,1.0020e-07_rb/)
+      kbo(:, 4,55, 5) = (/ &
+     &2.8475e-05_rb,2.5343e-05_rb,1.8439e-05_rb,1.0474e-05_rb,1.3796e-07_rb/)
+      kbo(:, 5,55, 5) = (/ &
+     &4.4988e-05_rb,3.9423e-05_rb,2.8373e-05_rb,1.5872e-05_rb,1.8258e-07_rb/)
+      kbo(:, 1,56, 5) = (/ &
+     &3.2543e-06_rb,3.1469e-06_rb,2.4158e-06_rb,1.4787e-06_rb,3.1932e-08_rb/)
+      kbo(:, 2,56, 5) = (/ &
+     &6.5989e-06_rb,6.2038e-06_rb,4.6696e-06_rb,2.7831e-06_rb,5.0531e-08_rb/)
+      kbo(:, 3,56, 5) = (/ &
+     &1.2453e-05_rb,1.1352e-05_rb,8.3945e-06_rb,4.8820e-06_rb,7.4538e-08_rb/)
+      kbo(:, 4,56, 5) = (/ &
+     &2.1655e-05_rb,1.9314e-05_rb,1.4065e-05_rb,8.0028e-06_rb,1.0397e-07_rb/)
+      kbo(:, 5,56, 5) = (/ &
+     &3.4950e-05_rb,3.0673e-05_rb,2.2085e-05_rb,1.2363e-05_rb,1.3925e-07_rb/)
+      kbo(:, 1,57, 5) = (/ &
+     &2.3166e-06_rb,2.2390e-06_rb,1.7142e-06_rb,1.0504e-06_rb,2.2682e-08_rb/)
+      kbo(:, 2,57, 5) = (/ &
+     &4.7540e-06_rb,4.4892e-06_rb,3.3846e-06_rb,2.0245e-06_rb,3.6988e-08_rb/)
+      kbo(:, 3,57, 5) = (/ &
+     &9.2246e-06_rb,8.4320e-06_rb,6.2438e-06_rb,3.6425e-06_rb,5.5328e-08_rb/)
+      kbo(:, 4,57, 5) = (/ &
+     &1.6448e-05_rb,1.4704e-05_rb,1.0717e-05_rb,6.1069e-06_rb,7.8210e-08_rb/)
+      kbo(:, 5,57, 5) = (/ &
+     &2.7140e-05_rb,2.3849e-05_rb,1.7182e-05_rb,9.6233e-06_rb,1.0611e-07_rb/)
+      kbo(:, 1,58, 5) = (/ &
+     &8.1594e-07_rb,9.0016e-07_rb,8.0661e-07_rb,5.9543e-07_rb,1.6269e-08_rb/)
+      kbo(:, 2,58, 5) = (/ &
+     &1.6728e-06_rb,1.8193e-06_rb,1.6122e-06_rb,1.1689e-06_rb,2.7161e-08_rb/)
+      kbo(:, 3,58, 5) = (/ &
+     &3.3325e-06_rb,3.5076e-06_rb,3.0497e-06_rb,2.1581e-06_rb,4.1468e-08_rb/)
+      kbo(:, 4,58, 5) = (/ &
+     &6.0908e-06_rb,6.2615e-06_rb,5.3621e-06_rb,3.7018e-06_rb,5.9556e-08_rb/)
+      kbo(:, 5,58, 5) = (/ &
+     &1.0274e-05_rb,1.0375e-05_rb,8.7754e-06_rb,5.9519e-06_rb,8.1351e-08_rb/)
+      kbo(:, 1,59, 5) = (/ &
+     &6.5199e-07_rb,7.1682e-07_rb,6.4285e-07_rb,4.7533e-07_rb,1.3398e-08_rb/)
+      kbo(:, 2,59, 5) = (/ &
+     &1.3361e-06_rb,1.4531e-06_rb,1.2913e-06_rb,9.4099e-07_rb,2.2445e-08_rb/)
+      kbo(:, 3,59, 5) = (/ &
+     &2.6852e-06_rb,2.8341e-06_rb,2.4717e-06_rb,1.7572e-06_rb,3.4660e-08_rb/)
+      kbo(:, 4,59, 5) = (/ &
+     &4.9575e-06_rb,5.1104e-06_rb,4.3915e-06_rb,3.0485e-06_rb,4.9566e-08_rb/)
+      kbo(:, 5,59, 5) = (/ &
+     &8.4320e-06_rb,8.5398e-06_rb,7.2464e-06_rb,4.9418e-06_rb,6.8105e-08_rb/)
+      kbo(:, 1,13, 6) = (/ &
+     &1.5548e-01_rb,1.2226e-01_rb,8.5068e-02_rb,4.5702e-02_rb,2.0740e-03_rb/)
+      kbo(:, 2,13, 6) = (/ &
+     &2.1897e-01_rb,1.7240e-01_rb,1.2003e-01_rb,6.4538e-02_rb,2.5124e-03_rb/)
+      kbo(:, 3,13, 6) = (/ &
+     &3.0095e-01_rb,2.3621e-01_rb,1.6479e-01_rb,8.8859e-02_rb,3.0382e-03_rb/)
+      kbo(:, 4,13, 6) = (/ &
+     &4.0485e-01_rb,3.1719e-01_rb,2.2079e-01_rb,1.1848e-01_rb,3.6959e-03_rb/)
+      kbo(:, 5,13, 6) = (/ &
+     &5.3118e-01_rb,4.1467e-01_rb,2.8796e-01_rb,1.5438e-01_rb,4.3103e-03_rb/)
+      kbo(:, 1,14, 6) = (/ &
+     &1.3732e-01_rb,1.0825e-01_rb,7.5397e-02_rb,4.0495e-02_rb,1.7538e-03_rb/)
+      kbo(:, 2,14, 6) = (/ &
+     &1.9463e-01_rb,1.5344e-01_rb,1.0670e-01_rb,5.7417e-02_rb,2.1725e-03_rb/)
+      kbo(:, 3,14, 6) = (/ &
+     &2.6896e-01_rb,2.1173e-01_rb,1.4739e-01_rb,7.9254e-02_rb,2.6810e-03_rb/)
+      kbo(:, 4,14, 6) = (/ &
+     &3.6294e-01_rb,2.8446e-01_rb,1.9761e-01_rb,1.0591e-01_rb,3.1748e-03_rb/)
+      kbo(:, 5,14, 6) = (/ &
+     &4.7752e-01_rb,3.7323e-01_rb,2.5905e-01_rb,1.3864e-01_rb,3.7684e-03_rb/)
+      kbo(:, 1,15, 6) = (/ &
+     &1.1609e-01_rb,9.1864e-02_rb,6.4056e-02_rb,3.4496e-02_rb,1.4724e-03_rb/)
+      kbo(:, 2,15, 6) = (/ &
+     &1.6575e-01_rb,1.3099e-01_rb,9.1234e-02_rb,4.9161e-02_rb,1.8695e-03_rb/)
+      kbo(:, 3,15, 6) = (/ &
+     &2.2962e-01_rb,1.8109e-01_rb,1.2603e-01_rb,6.7814e-02_rb,2.2935e-03_rb/)
+      kbo(:, 4,15, 6) = (/ &
+     &3.1077e-01_rb,2.4430e-01_rb,1.6934e-01_rb,9.0957e-02_rb,2.7633e-03_rb/)
+      kbo(:, 5,15, 6) = (/ &
+     &4.0968e-01_rb,3.2160e-01_rb,2.2302e-01_rb,1.1925e-01_rb,3.2819e-03_rb/)
+      kbo(:, 1,16, 6) = (/ &
+     &9.6387e-02_rb,7.6493e-02_rb,5.3335e-02_rb,2.8835e-02_rb,1.2273e-03_rb/)
+      kbo(:, 2,16, 6) = (/ &
+     &1.3769e-01_rb,1.0917e-01_rb,7.6074e-02_rb,4.1117e-02_rb,1.5607e-03_rb/)
+      kbo(:, 3,16, 6) = (/ &
+     &1.9131e-01_rb,1.5123e-01_rb,1.0523e-01_rb,5.6738e-02_rb,1.9638e-03_rb/)
+      kbo(:, 4,16, 6) = (/ &
+     &2.5899e-01_rb,2.0399e-01_rb,1.4165e-01_rb,7.6203e-02_rb,2.3618e-03_rb/)
+      kbo(:, 5,16, 6) = (/ &
+     &3.4214e-01_rb,2.6934e-01_rb,1.8675e-01_rb,1.0014e-01_rb,2.8281e-03_rb/)
+      kbo(:, 1,17, 6) = (/ &
+     &7.9271e-02_rb,6.3126e-02_rb,4.4100e-02_rb,2.3917e-02_rb,1.0217e-03_rb/)
+      kbo(:, 2,17, 6) = (/ &
+     &1.1345e-01_rb,9.0182e-02_rb,6.2977e-02_rb,3.4156e-02_rb,1.3299e-03_rb/)
+      kbo(:, 3,17, 6) = (/ &
+     &1.5797e-01_rb,1.2511e-01_rb,8.7087e-02_rb,4.7059e-02_rb,1.6628e-03_rb/)
+      kbo(:, 4,17, 6) = (/ &
+     &2.1402e-01_rb,1.6897e-01_rb,1.1752e-01_rb,6.3332e-02_rb,2.0151e-03_rb/)
+      kbo(:, 5,17, 6) = (/ &
+     &2.8305e-01_rb,2.2332e-01_rb,1.5502e-01_rb,8.3415e-02_rb,2.4638e-03_rb/)
+      kbo(:, 1,18, 6) = (/ &
+     &6.4211e-02_rb,5.1302e-02_rb,3.5902e-02_rb,1.9554e-02_rb,8.7983e-04_rb/)
+      kbo(:, 2,18, 6) = (/ &
+     &9.2120e-02_rb,7.3433e-02_rb,5.1355e-02_rb,2.7890e-02_rb,1.1536e-03_rb/)
+      kbo(:, 3,18, 6) = (/ &
+     &1.2833e-01_rb,1.0186e-01_rb,7.1081e-02_rb,3.8483e-02_rb,1.4378e-03_rb/)
+      kbo(:, 4,18, 6) = (/ &
+     &1.7390e-01_rb,1.3787e-01_rb,9.6012e-02_rb,5.1930e-02_rb,1.7641e-03_rb/)
+      kbo(:, 5,18, 6) = (/ &
+     &2.3011e-01_rb,1.8206e-01_rb,1.2668e-01_rb,6.8404e-02_rb,2.1654e-03_rb/)
+      kbo(:, 1,19, 6) = (/ &
+     &5.2788e-02_rb,4.2299e-02_rb,2.9673e-02_rb,1.6227e-02_rb,7.6310e-04_rb/)
+      kbo(:, 2,19, 6) = (/ &
+     &7.5889e-02_rb,6.0648e-02_rb,4.2457e-02_rb,2.3108e-02_rb,1.0035e-03_rb/)
+      kbo(:, 3,19, 6) = (/ &
+     &1.0575e-01_rb,8.4190e-02_rb,5.8852e-02_rb,3.1993e-02_rb,1.2648e-03_rb/)
+      kbo(:, 4,19, 6) = (/ &
+     &1.4328e-01_rb,1.1394e-01_rb,7.9533e-02_rb,4.3155e-02_rb,1.5714e-03_rb/)
+      kbo(:, 5,19, 6) = (/ &
+     &1.8940e-01_rb,1.5028e-01_rb,1.0488e-01_rb,5.6817e-02_rb,1.9149e-03_rb/)
+      kbo(:, 1,20, 6) = (/ &
+     &4.4520e-02_rb,3.5758e-02_rb,2.5128e-02_rb,1.3753e-02_rb,6.6571e-04_rb/)
+      kbo(:, 2,20, 6) = (/ &
+     &6.4045e-02_rb,5.1271e-02_rb,3.5901e-02_rb,1.9582e-02_rb,8.7391e-04_rb/)
+      kbo(:, 3,20, 6) = (/ &
+     &8.9082e-02_rb,7.1164e-02_rb,4.9821e-02_rb,2.7122e-02_rb,1.1092e-03_rb/)
+      kbo(:, 4,20, 6) = (/ &
+     &1.2061e-01_rb,9.6051e-02_rb,6.7127e-02_rb,3.6518e-02_rb,1.3635e-03_rb/)
+      kbo(:, 5,20, 6) = (/ &
+     &1.5922e-01_rb,1.2658e-01_rb,8.8405e-02_rb,4.7977e-02_rb,1.6664e-03_rb/)
+      kbo(:, 1,21, 6) = (/ &
+     &3.7777e-02_rb,3.0383e-02_rb,2.1331e-02_rb,1.1694e-02_rb,5.7845e-04_rb/)
+      kbo(:, 2,21, 6) = (/ &
+     &5.4331e-02_rb,4.3484e-02_rb,3.0481e-02_rb,1.6684e-02_rb,7.5762e-04_rb/)
+      kbo(:, 3,21, 6) = (/ &
+     &7.5428e-02_rb,6.0294e-02_rb,4.2245e-02_rb,2.3058e-02_rb,9.5396e-04_rb/)
+      kbo(:, 4,21, 6) = (/ &
+     &1.0181e-01_rb,8.1193e-02_rb,5.6844e-02_rb,3.0978e-02_rb,1.1796e-03_rb/)
+      kbo(:, 5,21, 6) = (/ &
+     &1.3419e-01_rb,1.0693e-01_rb,7.4825e-02_rb,4.0693e-02_rb,1.4376e-03_rb/)
+      kbo(:, 1,22, 6) = (/ &
+     &3.2832e-02_rb,2.6387e-02_rb,1.8543e-02_rb,1.0190e-02_rb,5.0764e-04_rb/)
+      kbo(:, 2,22, 6) = (/ &
+     &4.6987e-02_rb,3.7684e-02_rb,2.6458e-02_rb,1.4480e-02_rb,6.6076e-04_rb/)
+      kbo(:, 3,22, 6) = (/ &
+     &6.5046e-02_rb,5.2018e-02_rb,3.6448e-02_rb,1.9932e-02_rb,8.2689e-04_rb/)
+      kbo(:, 4,22, 6) = (/ &
+     &8.7447e-02_rb,6.9814e-02_rb,4.8898e-02_rb,2.6679e-02_rb,1.0180e-03_rb/)
+      kbo(:, 5,22, 6) = (/ &
+     &1.1504e-01_rb,9.1878e-02_rb,6.4286e-02_rb,3.4972e-02_rb,1.2412e-03_rb/)
+      kbo(:, 1,23, 6) = (/ &
+     &2.8625e-02_rb,2.3013e-02_rb,1.6180e-02_rb,8.8954e-03_rb,4.4551e-04_rb/)
+      kbo(:, 2,23, 6) = (/ &
+     &4.0740e-02_rb,3.2715e-02_rb,2.2979e-02_rb,1.2589e-02_rb,5.7081e-04_rb/)
+      kbo(:, 3,23, 6) = (/ &
+     &5.6140e-02_rb,4.4931e-02_rb,3.1539e-02_rb,1.7244e-02_rb,7.1483e-04_rb/)
+      kbo(:, 4,23, 6) = (/ &
+     &7.5282e-02_rb,6.0221e-02_rb,4.2218e-02_rb,2.3054e-02_rb,8.7570e-04_rb/)
+      kbo(:, 5,23, 6) = (/ &
+     &9.9200e-02_rb,7.9197e-02_rb,5.5422e-02_rb,3.0138e-02_rb,1.0690e-03_rb/)
+      kbo(:, 1,24, 6) = (/ &
+     &2.5225e-02_rb,2.0294e-02_rb,1.4276e-02_rb,7.8427e-03_rb,3.8602e-04_rb/)
+      kbo(:, 2,24, 6) = (/ &
+     &3.5712e-02_rb,2.8695e-02_rb,2.0149e-02_rb,1.1049e-02_rb,4.9372e-04_rb/)
+      kbo(:, 3,24, 6) = (/ &
+     &4.9060e-02_rb,3.9310e-02_rb,2.7586e-02_rb,1.5091e-02_rb,6.1539e-04_rb/)
+      kbo(:, 4,24, 6) = (/ &
+     &6.5785e-02_rb,5.2643e-02_rb,3.6889e-02_rb,2.0124e-02_rb,7.5365e-04_rb/)
+      kbo(:, 5,24, 6) = (/ &
+     &8.6520e-02_rb,6.9119e-02_rb,4.8335e-02_rb,2.6295e-02_rb,9.2000e-04_rb/)
+      kbo(:, 1,25, 6) = (/ &
+     &2.2344e-02_rb,1.7976e-02_rb,1.2645e-02_rb,6.9412e-03_rb,3.3195e-04_rb/)
+      kbo(:, 2,25, 6) = (/ &
+     &3.1531e-02_rb,2.5281e-02_rb,1.7784e-02_rb,9.7415e-03_rb,4.2393e-04_rb/)
+      kbo(:, 3,25, 6) = (/ &
+     &4.3153e-02_rb,3.4621e-02_rb,2.4312e-02_rb,1.3288e-02_rb,5.2565e-04_rb/)
+      kbo(:, 4,25, 6) = (/ &
+     &5.7875e-02_rb,4.6285e-02_rb,3.2426e-02_rb,1.7676e-02_rb,6.4832e-04_rb/)
+      kbo(:, 5,25, 6) = (/ &
+     &7.6134e-02_rb,6.0793e-02_rb,4.2524e-02_rb,2.3109e-02_rb,7.8380e-04_rb/)
+      kbo(:, 1,26, 6) = (/ &
+     &1.9994e-02_rb,1.6102e-02_rb,1.1323e-02_rb,6.2216e-03_rb,2.8629e-04_rb/)
+      kbo(:, 2,26, 6) = (/ &
+     &2.8079e-02_rb,2.2581e-02_rb,1.5869e-02_rb,8.6875e-03_rb,3.6314e-04_rb/)
+      kbo(:, 3,26, 6) = (/ &
+     &3.8417e-02_rb,3.0834e-02_rb,2.1637e-02_rb,1.1805e-02_rb,4.5229e-04_rb/)
+      kbo(:, 4,26, 6) = (/ &
+     &5.1448e-02_rb,4.1174e-02_rb,2.8844e-02_rb,1.5712e-02_rb,5.5890e-04_rb/)
+      kbo(:, 5,26, 6) = (/ &
+     &6.7708e-02_rb,5.4151e-02_rb,3.7876e-02_rb,2.0559e-02_rb,6.6983e-04_rb/)
+      kbo(:, 1,27, 6) = (/ &
+     &1.7896e-02_rb,1.4429e-02_rb,1.0152e-02_rb,5.5772e-03_rb,2.4427e-04_rb/)
+      kbo(:, 2,27, 6) = (/ &
+     &2.5042e-02_rb,2.0157e-02_rb,1.4173e-02_rb,7.7571e-03_rb,3.0979e-04_rb/)
+      kbo(:, 3,27, 6) = (/ &
+     &3.4208e-02_rb,2.7475e-02_rb,1.9284e-02_rb,1.0527e-02_rb,3.8671e-04_rb/)
+      kbo(:, 4,27, 6) = (/ &
+     &4.5837e-02_rb,3.6717e-02_rb,2.5729e-02_rb,1.4005e-02_rb,4.7399e-04_rb/)
+      kbo(:, 5,27, 6) = (/ &
+     &6.0284e-02_rb,4.8205e-02_rb,3.3722e-02_rb,1.8275e-02_rb,5.6657e-04_rb/)
+      kbo(:, 1,28, 6) = (/ &
+     &1.6009e-02_rb,1.2912e-02_rb,9.0950e-03_rb,4.9907e-03_rb,2.0749e-04_rb/)
+      kbo(:, 2,28, 6) = (/ &
+     &2.2344e-02_rb,1.7993e-02_rb,1.2646e-02_rb,6.9273e-03_rb,2.6196e-04_rb/)
+      kbo(:, 3,28, 6) = (/ &
+     &3.0516e-02_rb,2.4521e-02_rb,1.7216e-02_rb,9.3897e-03_rb,3.2594e-04_rb/)
+      kbo(:, 4,28, 6) = (/ &
+     &4.0856e-02_rb,3.2755e-02_rb,2.2958e-02_rb,1.2475e-02_rb,3.9748e-04_rb/)
+      kbo(:, 5,28, 6) = (/ &
+     &5.3627e-02_rb,4.2900e-02_rb,3.0014e-02_rb,1.6247e-02_rb,4.7387e-04_rb/)
+      kbo(:, 1,29, 6) = (/ &
+     &1.4262e-02_rb,1.1522e-02_rb,8.1115e-03_rb,4.4530e-03_rb,1.7407e-04_rb/)
+      kbo(:, 2,29, 6) = (/ &
+     &1.9887e-02_rb,1.6027e-02_rb,1.1276e-02_rb,6.1687e-03_rb,2.1854e-04_rb/)
+      kbo(:, 3,29, 6) = (/ &
+     &2.7141e-02_rb,2.1827e-02_rb,1.5323e-02_rb,8.3518e-03_rb,2.7116e-04_rb/)
+      kbo(:, 4,29, 6) = (/ &
+     &3.6246e-02_rb,2.9092e-02_rb,2.0386e-02_rb,1.1064e-02_rb,3.2874e-04_rb/)
+      kbo(:, 5,29, 6) = (/ &
+     &4.7427e-02_rb,3.8019e-02_rb,2.6585e-02_rb,1.4385e-02_rb,3.8972e-04_rb/)
+      kbo(:, 1,30, 6) = (/ &
+     &1.2676e-02_rb,1.0246e-02_rb,7.2173e-03_rb,3.9637e-03_rb,1.4416e-04_rb/)
+      kbo(:, 2,30, 6) = (/ &
+     &1.7653e-02_rb,1.4244e-02_rb,1.0017e-02_rb,5.4770e-03_rb,1.8113e-04_rb/)
+      kbo(:, 3,30, 6) = (/ &
+     &2.4022e-02_rb,1.9341e-02_rb,1.3583e-02_rb,7.3998e-03_rb,2.2282e-04_rb/)
+      kbo(:, 4,30, 6) = (/ &
+     &3.1996e-02_rb,2.5721e-02_rb,1.8027e-02_rb,9.7785e-03_rb,2.6784e-04_rb/)
+      kbo(:, 5,30, 6) = (/ &
+     &4.1773e-02_rb,3.3512e-02_rb,2.3450e-02_rb,1.2688e-02_rb,3.1737e-04_rb/)
+      kbo(:, 1,31, 6) = (/ &
+     &1.1178e-02_rb,9.0514e-03_rb,6.3801e-03_rb,3.5048e-03_rb,1.1770e-04_rb/)
+      kbo(:, 2,31, 6) = (/ &
+     &1.5523e-02_rb,1.2547e-02_rb,8.8303e-03_rb,4.8276e-03_rb,1.4724e-04_rb/)
+      kbo(:, 3,31, 6) = (/ &
+     &2.1060e-02_rb,1.6992e-02_rb,1.1943e-02_rb,6.5025e-03_rb,1.7875e-04_rb/)
+      kbo(:, 4,31, 6) = (/ &
+     &2.7976e-02_rb,2.2531e-02_rb,1.5799e-02_rb,8.5667e-03_rb,2.1450e-04_rb/)
+      kbo(:, 5,31, 6) = (/ &
+     &3.6405e-02_rb,2.9271e-02_rb,2.0490e-02_rb,1.1088e-02_rb,2.5503e-04_rb/)
+      kbo(:, 1,32, 6) = (/ &
+     &9.9013e-03_rb,8.0343e-03_rb,5.6674e-03_rb,3.1129e-03_rb,9.6361e-05_rb/)
+      kbo(:, 2,32, 6) = (/ &
+     &1.3706e-02_rb,1.1101e-02_rb,7.8125e-03_rb,4.2746e-03_rb,1.1902e-04_rb/)
+      kbo(:, 3,32, 6) = (/ &
+     &1.8546e-02_rb,1.4995e-02_rb,1.0536e-02_rb,5.7328e-03_rb,1.4373e-04_rb/)
+      kbo(:, 4,32, 6) = (/ &
+     &2.4550e-02_rb,1.9811e-02_rb,1.3886e-02_rb,7.5313e-03_rb,1.7332e-04_rb/)
+      kbo(:, 5,32, 6) = (/ &
+     &3.1853e-02_rb,2.5667e-02_rb,1.7969e-02_rb,9.7246e-03_rb,2.0625e-04_rb/)
+      kbo(:, 1,33, 6) = (/ &
+     &8.7980e-03_rb,7.1519e-03_rb,5.0451e-03_rb,2.7712e-03_rb,7.8202e-05_rb/)
+      kbo(:, 2,33, 6) = (/ &
+     &1.2135e-02_rb,9.8435e-03_rb,6.9325e-03_rb,3.7902e-03_rb,9.6250e-05_rb/)
+      kbo(:, 3,33, 6) = (/ &
+     &1.6367e-02_rb,1.3251e-02_rb,9.3075e-03_rb,5.0637e-03_rb,1.1723e-04_rb/)
+      kbo(:, 4,33, 6) = (/ &
+     &2.1594e-02_rb,1.7451e-02_rb,1.2238e-02_rb,6.6390e-03_rb,1.4129e-04_rb/)
+      kbo(:, 5,33, 6) = (/ &
+     &2.7922e-02_rb,2.2553e-02_rb,1.5798e-02_rb,8.5480e-03_rb,1.6598e-04_rb/)
+      kbo(:, 1,34, 6) = (/ &
+     &7.8297e-03_rb,6.3727e-03_rb,4.4952e-03_rb,2.4671e-03_rb,6.3879e-05_rb/)
+      kbo(:, 2,34, 6) = (/ &
+     &1.0770e-02_rb,8.7510e-03_rb,6.1616e-03_rb,3.3644e-03_rb,7.9137e-05_rb/)
+      kbo(:, 3,34, 6) = (/ &
+     &1.4484e-02_rb,1.1741e-02_rb,8.2482e-03_rb,4.4844e-03_rb,9.6600e-05_rb/)
+      kbo(:, 4,34, 6) = (/ &
+     &1.9050e-02_rb,1.5427e-02_rb,1.0820e-02_rb,5.8678e-03_rb,1.1495e-04_rb/)
+      kbo(:, 5,34, 6) = (/ &
+     &2.4524e-02_rb,1.9867e-02_rb,1.3919e-02_rb,7.5292e-03_rb,1.3453e-04_rb/)
+      kbo(:, 1,35, 6) = (/ &
+     &6.7630e-03_rb,5.5126e-03_rb,3.8884e-03_rb,2.1340e-03_rb,5.1721e-05_rb/)
+      kbo(:, 2,35, 6) = (/ &
+     &9.2985e-03_rb,7.5662e-03_rb,5.3252e-03_rb,2.9070e-03_rb,6.4032e-05_rb/)
+      kbo(:, 3,35, 6) = (/ &
+     &1.2489e-02_rb,1.0141e-02_rb,7.1246e-03_rb,3.8749e-03_rb,7.6974e-05_rb/)
+      kbo(:, 4,35, 6) = (/ &
+     &1.6400e-02_rb,1.3312e-02_rb,9.3389e-03_rb,5.0659e-03_rb,9.1148e-05_rb/)
+      kbo(:, 5,35, 6) = (/ &
+     &2.1049e-02_rb,1.7098e-02_rb,1.1985e-02_rb,6.4857e-03_rb,1.0683e-04_rb/)
+      kbo(:, 1,36, 6) = (/ &
+     &5.6496e-03_rb,4.6119e-03_rb,3.2530e-03_rb,1.7852e-03_rb,4.0312e-05_rb/)
+      kbo(:, 2,36, 6) = (/ &
+     &7.7767e-03_rb,6.3372e-03_rb,4.4630e-03_rb,2.4380e-03_rb,4.9929e-05_rb/)
+      kbo(:, 3,36, 6) = (/ &
+     &1.0461e-02_rb,8.5144e-03_rb,5.9836e-03_rb,3.2549e-03_rb,6.0118e-05_rb/)
+      kbo(:, 4,36, 6) = (/ &
+     &1.3740e-02_rb,1.1182e-02_rb,7.8492e-03_rb,4.2598e-03_rb,7.1064e-05_rb/)
+      kbo(:, 5,36, 6) = (/ &
+     &1.7612e-02_rb,1.4350e-02_rb,1.0064e-02_rb,5.4485e-03_rb,8.3577e-05_rb/)
+      kbo(:, 1,37, 6) = (/ &
+     &4.5423e-03_rb,3.7134e-03_rb,2.6216e-03_rb,1.4392e-03_rb,3.1256e-05_rb/)
+      kbo(:, 2,37, 6) = (/ &
+     &6.2879e-03_rb,5.1321e-03_rb,3.6149e-03_rb,1.9739e-03_rb,3.8734e-05_rb/)
+      kbo(:, 3,37, 6) = (/ &
+     &8.4900e-03_rb,6.9227e-03_rb,4.8667e-03_rb,2.6482e-03_rb,4.6682e-05_rb/)
+      kbo(:, 4,37, 6) = (/ &
+     &1.1183e-02_rb,9.1172e-03_rb,6.4017e-03_rb,3.4761e-03_rb,5.5592e-05_rb/)
+      kbo(:, 5,37, 6) = (/ &
+     &1.4352e-02_rb,1.1719e-02_rb,8.2209e-03_rb,4.4549e-03_rb,6.5503e-05_rb/)
+      kbo(:, 1,38, 6) = (/ &
+     &3.6392e-03_rb,2.9801e-03_rb,2.1050e-03_rb,1.1562e-03_rb,2.4090e-05_rb/)
+      kbo(:, 2,38, 6) = (/ &
+     &5.0658e-03_rb,4.1416e-03_rb,2.9194e-03_rb,1.5946e-03_rb,2.9868e-05_rb/)
+      kbo(:, 3,38, 6) = (/ &
+     &6.8711e-03_rb,5.6107e-03_rb,3.9454e-03_rb,2.1481e-03_rb,3.6072e-05_rb/)
+      kbo(:, 4,38, 6) = (/ &
+     &9.0731e-03_rb,7.4127e-03_rb,5.2066e-03_rb,2.8281e-03_rb,4.3140e-05_rb/)
+      kbo(:, 5,38, 6) = (/ &
+     &1.1663e-02_rb,9.5418e-03_rb,6.6954e-03_rb,3.6310e-03_rb,5.1139e-05_rb/)
+      kbo(:, 1,39, 6) = (/ &
+     &2.9118e-03_rb,2.3886e-03_rb,1.6882e-03_rb,9.2755e-04_rb,1.8391e-05_rb/)
+      kbo(:, 2,39, 6) = (/ &
+     &4.0750e-03_rb,3.3381e-03_rb,2.3540e-03_rb,1.2863e-03_rb,2.2806e-05_rb/)
+      kbo(:, 3,39, 6) = (/ &
+     &5.5513e-03_rb,4.5420e-03_rb,3.1948e-03_rb,1.7397e-03_rb,2.7682e-05_rb/)
+      kbo(:, 4,39, 6) = (/ &
+     &7.3492e-03_rb,6.0179e-03_rb,4.2285e-03_rb,2.2979e-03_rb,3.3352e-05_rb/)
+      kbo(:, 5,39, 6) = (/ &
+     &9.4667e-03_rb,7.7616e-03_rb,5.4485e-03_rb,2.9560e-03_rb,3.9651e-05_rb/)
+      kbo(:, 1,40, 6) = (/ &
+     &2.2712e-03_rb,1.8658e-03_rb,1.3192e-03_rb,7.2479e-04_rb,1.3995e-05_rb/)
+      kbo(:, 2,40, 6) = (/ &
+     &3.2040e-03_rb,2.6288e-03_rb,1.8549e-03_rb,1.0140e-03_rb,1.7455e-05_rb/)
+      kbo(:, 3,40, 6) = (/ &
+     &4.3985e-03_rb,3.6050e-03_rb,2.5372e-03_rb,1.3813e-03_rb,2.1295e-05_rb/)
+      kbo(:, 4,40, 6) = (/ &
+     &5.8565e-03_rb,4.8013e-03_rb,3.3753e-03_rb,1.8342e-03_rb,2.5756e-05_rb/)
+      kbo(:, 5,40, 6) = (/ &
+     &7.5776e-03_rb,6.2219e-03_rb,4.3685e-03_rb,2.3699e-03_rb,3.0715e-05_rb/)
+      kbo(:, 1,41, 6) = (/ &
+     &1.7612e-03_rb,1.4492e-03_rb,1.0250e-03_rb,5.6325e-04_rb,1.0604e-05_rb/)
+      kbo(:, 2,41, 6) = (/ &
+     &2.5080e-03_rb,2.0608e-03_rb,1.4546e-03_rb,7.9552e-04_rb,1.3310e-05_rb/)
+      kbo(:, 3,41, 6) = (/ &
+     &3.4681e-03_rb,2.8477e-03_rb,2.0051e-03_rb,1.0923e-03_rb,1.6349e-05_rb/)
+      kbo(:, 4,41, 6) = (/ &
+     &4.6501e-03_rb,3.8188e-03_rb,2.6845e-03_rb,1.4588e-03_rb,1.9855e-05_rb/)
+      kbo(:, 5,41, 6) = (/ &
+     &6.0491e-03_rb,4.9741e-03_rb,3.4944e-03_rb,1.8953e-03_rb,2.3793e-05_rb/)
+      kbo(:, 1,42, 6) = (/ &
+     &1.3619e-03_rb,1.1225e-03_rb,7.9390e-04_rb,4.3654e-04_rb,7.9892e-06_rb/)
+      kbo(:, 2,42, 6) = (/ &
+     &1.9585e-03_rb,1.6109e-03_rb,1.1375e-03_rb,6.2244e-04_rb,1.0111e-05_rb/)
+      kbo(:, 3,42, 6) = (/ &
+     &2.7289e-03_rb,2.2437e-03_rb,1.5805e-03_rb,8.6127e-04_rb,1.2500e-05_rb/)
+      kbo(:, 4,42, 6) = (/ &
+     &3.6852e-03_rb,3.0311e-03_rb,2.1316e-03_rb,1.1583e-03_rb,1.5248e-05_rb/)
+      kbo(:, 5,42, 6) = (/ &
+     &4.8235e-03_rb,3.9702e-03_rb,2.7892e-03_rb,1.5134e-03_rb,1.8350e-05_rb/)
+      kbo(:, 1,43, 6) = (/ &
+     &1.0392e-03_rb,8.5695e-04_rb,6.0598e-04_rb,3.3332e-04_rb,5.9552e-06_rb/)
+      kbo(:, 2,43, 6) = (/ &
+     &1.5101e-03_rb,1.2436e-03_rb,8.7832e-04_rb,4.8071e-04_rb,7.5961e-06_rb/)
+      kbo(:, 3,43, 6) = (/ &
+     &2.1254e-03_rb,1.7498e-03_rb,1.2325e-03_rb,6.7181e-04_rb,9.4477e-06_rb/)
+      kbo(:, 4,43, 6) = (/ &
+     &2.8974e-03_rb,2.3860e-03_rb,1.6788e-03_rb,9.1195e-04_rb,1.1585e-05_rb/)
+      kbo(:, 5,43, 6) = (/ &
+     &3.8244e-03_rb,3.1517e-03_rb,2.2140e-03_rb,1.2005e-03_rb,1.4013e-05_rb/)
+      kbo(:, 1,44, 6) = (/ &
+     &7.8683e-04_rb,6.4875e-04_rb,4.5878e-04_rb,2.5223e-04_rb,4.3968e-06_rb/)
+      kbo(:, 2,44, 6) = (/ &
+     &1.1559e-03_rb,9.5305e-04_rb,6.7277e-04_rb,3.6830e-04_rb,5.6394e-06_rb/)
+      kbo(:, 3,44, 6) = (/ &
+     &1.6454e-03_rb,1.3558e-03_rb,9.5534e-04_rb,5.2055e-04_rb,7.0859e-06_rb/)
+      kbo(:, 4,44, 6) = (/ &
+     &2.2669e-03_rb,1.8686e-03_rb,1.3148e-03_rb,7.1399e-04_rb,8.7462e-06_rb/)
+      kbo(:, 5,44, 6) = (/ &
+     &3.0201e-03_rb,2.4917e-03_rb,1.7509e-03_rb,9.4904e-04_rb,1.0639e-05_rb/)
+      kbo(:, 1,45, 6) = (/ &
+     &5.9365e-04_rb,4.8959e-04_rb,3.4607e-04_rb,1.9020e-04_rb,3.2229e-06_rb/)
+      kbo(:, 2,45, 6) = (/ &
+     &8.8218e-04_rb,7.2803e-04_rb,5.1390e-04_rb,2.8115e-04_rb,4.1709e-06_rb/)
+      kbo(:, 3,45, 6) = (/ &
+     &1.2705e-03_rb,1.0482e-03_rb,7.3838e-04_rb,4.0225e-04_rb,5.2818e-06_rb/)
+      kbo(:, 4,45, 6) = (/ &
+     &1.7692e-03_rb,1.4597e-03_rb,1.0269e-03_rb,5.5768e-04_rb,6.5567e-06_rb/)
+      kbo(:, 5,45, 6) = (/ &
+     &2.3806e-03_rb,1.9657e-03_rb,1.3812e-03_rb,7.4841e-04_rb,8.0347e-06_rb/)
+      kbo(:, 1,46, 6) = (/ &
+     &4.4335e-04_rb,3.6560e-04_rb,2.5820e-04_rb,1.4186e-04_rb,2.3394e-06_rb/)
+      kbo(:, 2,46, 6) = (/ &
+     &6.6652e-04_rb,5.5048e-04_rb,3.8857e-04_rb,2.1254e-04_rb,3.0543e-06_rb/)
+      kbo(:, 3,46, 6) = (/ &
+     &9.7139e-04_rb,8.0233e-04_rb,5.6521e-04_rb,3.0796e-04_rb,3.9016e-06_rb/)
+      kbo(:, 4,46, 6) = (/ &
+     &1.3697e-03_rb,1.1313e-03_rb,7.9539e-04_rb,4.3177e-04_rb,4.8930e-06_rb/)
+      kbo(:, 5,46, 6) = (/ &
+     &1.8630e-03_rb,1.5401e-03_rb,1.0822e-03_rb,5.8603e-04_rb,6.0211e-06_rb/)
+      kbo(:, 1,47, 6) = (/ &
+     &3.2494e-04_rb,2.6781e-04_rb,1.8906e-04_rb,1.0379e-04_rb,1.6703e-06_rb/)
+      kbo(:, 2,47, 6) = (/ &
+     &4.9477e-04_rb,4.0876e-04_rb,2.8822e-04_rb,1.5780e-04_rb,2.2235e-06_rb/)
+      kbo(:, 3,47, 6) = (/ &
+     &7.3190e-04_rb,6.0441e-04_rb,4.2581e-04_rb,2.3196e-04_rb,2.8600e-06_rb/)
+      kbo(:, 4,47, 6) = (/ &
+     &1.0450e-03_rb,8.6362e-04_rb,6.0711e-04_rb,3.2954e-04_rb,3.6203e-06_rb/)
+      kbo(:, 5,47, 6) = (/ &
+     &1.4403e-03_rb,1.1920e-03_rb,8.3715e-04_rb,4.5311e-04_rb,4.4864e-06_rb/)
+      kbo(:, 1,48, 6) = (/ &
+     &2.3680e-04_rb,1.9527e-04_rb,1.3764e-04_rb,7.5497e-05_rb,1.1789e-06_rb/)
+      kbo(:, 2,48, 6) = (/ &
+     &3.6634e-04_rb,3.0233e-04_rb,2.1313e-04_rb,1.1661e-04_rb,1.5963e-06_rb/)
+      kbo(:, 3,48, 6) = (/ &
+     &5.4895e-04_rb,4.5372e-04_rb,3.1944e-04_rb,1.7402e-04_rb,2.0888e-06_rb/)
+      kbo(:, 4,48, 6) = (/ &
+     &7.9543e-04_rb,6.5717e-04_rb,4.6181e-04_rb,2.5062e-04_rb,2.6621e-06_rb/)
+      kbo(:, 5,48, 6) = (/ &
+     &1.1099e-03_rb,9.1890e-04_rb,6.4520e-04_rb,3.4917e-04_rb,3.3226e-06_rb/)
+      kbo(:, 1,49, 6) = (/ &
+     &1.7167e-04_rb,1.4156e-04_rb,9.9697e-05_rb,5.4621e-05_rb,8.2177e-07_rb/)
+      kbo(:, 2,49, 6) = (/ &
+     &2.6978e-04_rb,2.2270e-04_rb,1.5688e-04_rb,8.5772e-05_rb,1.1335e-06_rb/)
+      kbo(:, 3,49, 6) = (/ &
+     &4.1033e-04_rb,3.3911e-04_rb,2.3859e-04_rb,1.2993e-04_rb,1.5022e-06_rb/)
+      kbo(:, 4,49, 6) = (/ &
+     &6.0289e-04_rb,4.9870e-04_rb,3.5040e-04_rb,1.9001e-04_rb,1.9421e-06_rb/)
+      kbo(:, 5,49, 6) = (/ &
+     &8.5268e-04_rb,7.0612e-04_rb,4.9559e-04_rb,2.6808e-04_rb,2.4464e-06_rb/)
+      kbo(:, 1,50, 6) = (/ &
+     &1.2531e-04_rb,1.0333e-04_rb,7.2754e-05_rb,3.9781e-05_rb,5.8260e-07_rb/)
+      kbo(:, 2,50, 6) = (/ &
+     &2.0028e-04_rb,1.6520e-04_rb,1.1625e-04_rb,6.3517e-05_rb,8.1312e-07_rb/)
+      kbo(:, 3,50, 6) = (/ &
+     &3.0881e-04_rb,2.5524e-04_rb,1.7955e-04_rb,9.7765e-05_rb,1.0963e-06_rb/)
+      kbo(:, 4,50, 6) = (/ &
+     &4.6015e-04_rb,3.8061e-04_rb,2.6731e-04_rb,1.4488e-04_rb,1.4340e-06_rb/)
+      kbo(:, 5,50, 6) = (/ &
+     &6.5988e-04_rb,5.4636e-04_rb,3.8320e-04_rb,2.0709e-04_rb,1.8202e-06_rb/)
+      kbo(:, 1,51, 6) = (/ &
+     &9.1633e-05_rb,7.5509e-05_rb,5.3128e-05_rb,2.9020e-05_rb,4.1464e-07_rb/)
+      kbo(:, 2,51, 6) = (/ &
+     &1.4891e-04_rb,1.2270e-04_rb,8.6279e-05_rb,4.7099e-05_rb,5.8807e-07_rb/)
+      kbo(:, 3,51, 6) = (/ &
+     &2.3292e-04_rb,1.9249e-04_rb,1.3529e-04_rb,7.3646e-05_rb,8.0371e-07_rb/)
+      kbo(:, 4,51, 6) = (/ &
+     &3.5233e-04_rb,2.9123e-04_rb,2.0433e-04_rb,1.1072e-04_rb,1.0615e-06_rb/)
+      kbo(:, 5,51, 6) = (/ &
+     &5.1166e-04_rb,4.2368e-04_rb,2.9697e-04_rb,1.6038e-04_rb,1.3623e-06_rb/)
+      kbo(:, 1,52, 6) = (/ &
+     &6.6748e-05_rb,5.4951e-05_rb,3.8637e-05_rb,2.1072e-05_rb,2.9423e-07_rb/)
+      kbo(:, 2,52, 6) = (/ &
+     &1.1034e-04_rb,9.0898e-05_rb,6.3804e-05_rb,3.4773e-05_rb,4.2185e-07_rb/)
+      kbo(:, 3,52, 6) = (/ &
+     &1.7525e-04_rb,1.4472e-04_rb,1.0161e-04_rb,5.5277e-05_rb,5.8386e-07_rb/)
+      kbo(:, 4,52, 6) = (/ &
+     &2.6896e-04_rb,2.2246e-04_rb,1.5598e-04_rb,8.4497e-05_rb,7.8029e-07_rb/)
+      kbo(:, 5,52, 6) = (/ &
+     &3.9638e-04_rb,3.2814e-04_rb,2.2978e-04_rb,1.2397e-04_rb,1.0114e-06_rb/)
+      kbo(:, 1,53, 6) = (/ &
+     &4.8387e-05_rb,3.9789e-05_rb,2.7956e-05_rb,1.5224e-05_rb,2.0710e-07_rb/)
+      kbo(:, 2,53, 6) = (/ &
+     &8.1422e-05_rb,6.7055e-05_rb,4.7034e-05_rb,2.5569e-05_rb,3.0032e-07_rb/)
+      kbo(:, 3,53, 6) = (/ &
+     &1.3143e-04_rb,1.0846e-04_rb,7.6092e-05_rb,4.1325e-05_rb,4.2132e-07_rb/)
+      kbo(:, 4,53, 6) = (/ &
+     &2.0478e-04_rb,1.6937e-04_rb,1.1872e-04_rb,6.4236e-05_rb,5.6954e-07_rb/)
+      kbo(:, 5,53, 6) = (/ &
+     &3.0662e-04_rb,2.5374e-04_rb,1.7755e-04_rb,9.5705e-05_rb,7.4673e-07_rb/)
+      kbo(:, 1,54, 6) = (/ &
+     &3.5548e-05_rb,2.9201e-05_rb,2.0499e-05_rb,1.1142e-05_rb,1.4888e-07_rb/)
+      kbo(:, 2,54, 6) = (/ &
+     &6.0867e-05_rb,5.0080e-05_rb,3.5102e-05_rb,1.9053e-05_rb,2.1957e-07_rb/)
+      kbo(:, 3,54, 6) = (/ &
+     &9.9905e-05_rb,8.2294e-05_rb,5.7679e-05_rb,3.1278e-05_rb,3.1167e-07_rb/)
+      kbo(:, 4,54, 6) = (/ &
+     &1.5784e-04_rb,1.3048e-04_rb,9.1376e-05_rb,4.9396e-05_rb,4.2569e-07_rb/)
+      kbo(:, 5,54, 6) = (/ &
+     &2.3990e-04_rb,1.9844e-04_rb,1.3879e-04_rb,7.4726e-05_rb,5.6432e-07_rb/)
+      kbo(:, 1,55, 6) = (/ &
+     &2.6254e-05_rb,2.1551e-05_rb,1.5109e-05_rb,8.2013e-06_rb,1.0776e-07_rb/)
+      kbo(:, 2,55, 6) = (/ &
+     &4.5756e-05_rb,3.7594e-05_rb,2.6330e-05_rb,1.4266e-05_rb,1.6227e-07_rb/)
+      kbo(:, 3,55, 6) = (/ &
+     &7.6387e-05_rb,6.2840e-05_rb,4.3983e-05_rb,2.3813e-05_rb,2.3322e-07_rb/)
+      kbo(:, 4,55, 6) = (/ &
+     &1.2233e-04_rb,1.0105e-04_rb,7.0729e-05_rb,3.8184e-05_rb,3.2242e-07_rb/)
+      kbo(:, 5,55, 6) = (/ &
+     &1.8866e-04_rb,1.5604e-04_rb,1.0907e-04_rb,5.8660e-05_rb,4.3190e-07_rb/)
+      kbo(:, 1,56, 6) = (/ &
+     &1.9352e-05_rb,1.5886e-05_rb,1.1124e-05_rb,6.0284e-06_rb,7.7832e-08_rb/)
+      kbo(:, 2,56, 6) = (/ &
+     &3.4378e-05_rb,2.8197e-05_rb,1.9721e-05_rb,1.0667e-05_rb,1.1948e-07_rb/)
+      kbo(:, 3,56, 6) = (/ &
+     &5.8349e-05_rb,4.7950e-05_rb,3.3520e-05_rb,1.8111e-05_rb,1.7363e-07_rb/)
+      kbo(:, 4,56, 6) = (/ &
+     &9.4866e-05_rb,7.8290e-05_rb,5.4723e-05_rb,2.9510e-05_rb,2.4385e-07_rb/)
+      kbo(:, 5,56, 6) = (/ &
+     &1.4839e-04_rb,1.2273e-04_rb,8.5680e-05_rb,4.6045e-05_rb,3.3022e-07_rb/)
+      kbo(:, 1,57, 6) = (/ &
+     &1.4255e-05_rb,1.1680e-05_rb,8.1776e-06_rb,4.4235e-06_rb,5.5927e-08_rb/)
+      kbo(:, 2,57, 6) = (/ &
+     &2.5815e-05_rb,2.1132e-05_rb,1.4763e-05_rb,7.9663e-06_rb,8.7522e-08_rb/)
+      kbo(:, 3,57, 6) = (/ &
+     &4.4552e-05_rb,3.6579e-05_rb,2.5531e-05_rb,1.3761e-05_rb,1.2925e-07_rb/)
+      kbo(:, 4,57, 6) = (/ &
+     &7.3589e-05_rb,6.0640e-05_rb,4.2341e-05_rb,2.2797e-05_rb,1.8364e-07_rb/)
+      kbo(:, 5,57, 6) = (/ &
+     &1.1687e-04_rb,9.6565e-05_rb,6.7349e-05_rb,3.6145e-05_rb,2.5190e-07_rb/)
+      kbo(:, 1,58, 6) = (/ &
+     &5.1283e-06_rb,4.8164e-06_rb,3.9533e-06_rb,2.5844e-06_rb,4.0411e-08_rb/)
+      kbo(:, 2,58, 6) = (/ &
+     &9.4663e-06_rb,8.8829e-06_rb,7.2756e-06_rb,4.7397e-06_rb,6.4616e-08_rb/)
+      kbo(:, 3,58, 6) = (/ &
+     &1.6608e-05_rb,1.5628e-05_rb,1.2791e-05_rb,8.3232e-06_rb,9.6916e-08_rb/)
+      kbo(:, 4,58, 6) = (/ &
+     &2.7869e-05_rb,2.6331e-05_rb,2.1549e-05_rb,1.4010e-05_rb,1.3884e-07_rb/)
+      kbo(:, 5,58, 6) = (/ &
+     &4.4916e-05_rb,4.2582e-05_rb,3.4830e-05_rb,2.2586e-05_rb,1.9305e-07_rb/)
+      kbo(:, 1,59, 6) = (/ &
+     &4.1166e-06_rb,3.8763e-06_rb,3.1932e-06_rb,2.0984e-06_rb,3.3138e-08_rb/)
+      kbo(:, 2,59, 6) = (/ &
+     &7.6679e-06_rb,7.2183e-06_rb,5.9356e-06_rb,3.8849e-06_rb,5.3542e-08_rb/)
+      kbo(:, 3,59, 6) = (/ &
+     &1.3578e-05_rb,1.2809e-05_rb,1.0527e-05_rb,6.8844e-06_rb,8.1037e-08_rb/)
+      kbo(:, 4,59, 6) = (/ &
+     &2.2972e-05_rb,2.1775e-05_rb,1.7891e-05_rb,1.1690e-05_rb,1.1735e-07_rb/)
+      kbo(:, 5,59, 6) = (/ &
+     &3.7296e-05_rb,3.5490e-05_rb,2.9150e-05_rb,1.9007e-05_rb,1.6270e-07_rb/)
+      kbo(:, 1,13, 7) = (/ &
+     &4.2167e-01_rb,3.2553e-01_rb,2.2695e-01_rb,1.2184e-01_rb,4.0030e-03_rb/)
+      kbo(:, 2,13, 7) = (/ &
+     &6.0140e-01_rb,4.6380e-01_rb,3.2184e-01_rb,1.7190e-01_rb,5.1104e-03_rb/)
+      kbo(:, 3,13, 7) = (/ &
+     &8.1816e-01_rb,6.3015e-01_rb,4.3650e-01_rb,2.3296e-01_rb,6.4365e-03_rb/)
+      kbo(:, 4,13, 7) = (/ &
+     &1.0780e+00_rb,8.2908e-01_rb,5.7271e-01_rb,3.0519e-01_rb,7.8514e-03_rb/)
+      kbo(:, 5,13, 7) = (/ &
+     &1.3871e+00_rb,1.0650e+00_rb,7.3566e-01_rb,3.9202e-01_rb,9.6931e-03_rb/)
+      kbo(:, 1,14, 7) = (/ &
+     &3.8425e-01_rb,2.9801e-01_rb,2.0688e-01_rb,1.1055e-01_rb,3.4668e-03_rb/)
+      kbo(:, 2,14, 7) = (/ &
+     &5.4386e-01_rb,4.2093e-01_rb,2.9177e-01_rb,1.5544e-01_rb,4.5429e-03_rb/)
+      kbo(:, 3,14, 7) = (/ &
+     &7.3998e-01_rb,5.7137e-01_rb,3.9497e-01_rb,2.0995e-01_rb,5.6171e-03_rb/)
+      kbo(:, 4,14, 7) = (/ &
+     &9.7642e-01_rb,7.5246e-01_rb,5.1952e-01_rb,2.7577e-01_rb,6.9867e-03_rb/)
+      kbo(:, 5,14, 7) = (/ &
+     &1.2610e+00_rb,9.7017e-01_rb,6.6888e-01_rb,3.5427e-01_rb,8.6535e-03_rb/)
+      kbo(:, 1,15, 7) = (/ &
+     &3.3299e-01_rb,2.5933e-01_rb,1.7991e-01_rb,9.5905e-02_rb,2.9886e-03_rb/)
+      kbo(:, 2,15, 7) = (/ &
+     &4.6962e-01_rb,3.6448e-01_rb,2.5234e-01_rb,1.3421e-01_rb,3.8718e-03_rb/)
+      kbo(:, 3,15, 7) = (/ &
+     &6.3987e-01_rb,4.9512e-01_rb,3.4211e-01_rb,1.8150e-01_rb,4.8805e-03_rb/)
+      kbo(:, 4,15, 7) = (/ &
+     &8.4586e-01_rb,6.5388e-01_rb,4.5155e-01_rb,2.3908e-01_rb,6.1279e-03_rb/)
+      kbo(:, 5,15, 7) = (/ &
+     &1.0948e+00_rb,8.4428e-01_rb,5.8246e-01_rb,3.0839e-01_rb,7.4849e-03_rb/)
+      kbo(:, 1,16, 7) = (/ &
+     &2.8051e-01_rb,2.1899e-01_rb,1.5183e-01_rb,8.0896e-02_rb,2.5509e-03_rb/)
+      kbo(:, 2,16, 7) = (/ &
+     &3.9506e-01_rb,3.0781e-01_rb,2.1302e-01_rb,1.1324e-01_rb,3.3108e-03_rb/)
+      kbo(:, 3,16, 7) = (/ &
+     &5.3870e-01_rb,4.1855e-01_rb,2.8938e-01_rb,1.5357e-01_rb,4.2013e-03_rb/)
+      kbo(:, 4,16, 7) = (/ &
+     &7.1526e-01_rb,5.5449e-01_rb,3.8283e-01_rb,2.0269e-01_rb,5.1902e-03_rb/)
+      kbo(:, 5,16, 7) = (/ &
+     &9.2727e-01_rb,7.1785e-01_rb,4.9548e-01_rb,2.6200e-01_rb,6.4068e-03_rb/)
+      kbo(:, 1,17, 7) = (/ &
+     &2.3378e-01_rb,1.8318e-01_rb,1.2698e-01_rb,6.7717e-02_rb,2.1927e-03_rb/)
+      kbo(:, 2,17, 7) = (/ &
+     &3.2948e-01_rb,2.5742e-01_rb,1.7822e-01_rb,9.4896e-02_rb,2.8584e-03_rb/)
+      kbo(:, 3,17, 7) = (/ &
+     &4.5000e-01_rb,3.5080e-01_rb,2.4241e-01_rb,1.2872e-01_rb,3.6126e-03_rb/)
+      kbo(:, 4,17, 7) = (/ &
+     &5.9887e-01_rb,4.6579e-01_rb,3.2151e-01_rb,1.7042e-01_rb,4.5208e-03_rb/)
+      kbo(:, 5,17, 7) = (/ &
+     &7.7711e-01_rb,6.0357e-01_rb,4.1660e-01_rb,2.2035e-01_rb,5.5539e-03_rb/)
+      kbo(:, 1,18, 7) = (/ &
+     &1.9227e-01_rb,1.5110e-01_rb,1.0483e-01_rb,5.6032e-02_rb,1.9220e-03_rb/)
+      kbo(:, 2,18, 7) = (/ &
+     &2.7135e-01_rb,2.1238e-01_rb,1.4707e-01_rb,7.8382e-02_rb,2.4923e-03_rb/)
+      kbo(:, 3,18, 7) = (/ &
+     &3.7049e-01_rb,2.8960e-01_rb,2.0022e-01_rb,1.0642e-01_rb,3.1976e-03_rb/)
+      kbo(:, 4,18, 7) = (/ &
+     &4.9231e-01_rb,3.8398e-01_rb,2.6515e-01_rb,1.4069e-01_rb,3.9529e-03_rb/)
+      kbo(:, 5,18, 7) = (/ &
+     &6.4035e-01_rb,4.9892e-01_rb,3.4418e-01_rb,1.8220e-01_rb,4.8074e-03_rb/)
+      kbo(:, 1,19, 7) = (/ &
+     &1.6097e-01_rb,1.2681e-01_rb,8.7983e-02_rb,4.7067e-02_rb,1.6998e-03_rb/)
+      kbo(:, 2,19, 7) = (/ &
+     &2.2674e-01_rb,1.7812e-01_rb,1.2337e-01_rb,6.5758e-02_rb,2.2148e-03_rb/)
+      kbo(:, 3,19, 7) = (/ &
+     &3.0942e-01_rb,2.4239e-01_rb,1.6768e-01_rb,8.9247e-02_rb,2.8171e-03_rb/)
+      kbo(:, 4,19, 7) = (/ &
+     &4.1121e-01_rb,3.2156e-01_rb,2.2226e-01_rb,1.1805e-01_rb,3.4852e-03_rb/)
+      kbo(:, 5,19, 7) = (/ &
+     &5.3661e-01_rb,4.1891e-01_rb,2.8897e-01_rb,1.5308e-01_rb,4.2703e-03_rb/)
+      kbo(:, 1,20, 7) = (/ &
+     &1.3816e-01_rb,1.0899e-01_rb,7.5568e-02_rb,4.0384e-02_rb,1.5084e-03_rb/)
+      kbo(:, 2,20, 7) = (/ &
+     &1.9390e-01_rb,1.5237e-01_rb,1.0558e-01_rb,5.6347e-02_rb,1.9533e-03_rb/)
+      kbo(:, 3,20, 7) = (/ &
+     &2.6431e-01_rb,2.0734e-01_rb,1.4349e-01_rb,7.6381e-02_rb,2.4829e-03_rb/)
+      kbo(:, 4,20, 7) = (/ &
+     &3.5230e-01_rb,2.7579e-01_rb,1.9049e-01_rb,1.0107e-01_rb,3.1175e-03_rb/)
+      kbo(:, 5,20, 7) = (/ &
+     &4.5959e-01_rb,3.5917e-01_rb,2.4774e-01_rb,1.3132e-01_rb,3.8257e-03_rb/)
+      kbo(:, 1,21, 7) = (/ &
+     &1.1885e-01_rb,9.3725e-02_rb,6.5041e-02_rb,3.4803e-02_rb,1.3411e-03_rb/)
+      kbo(:, 2,21, 7) = (/ &
+     &1.6635e-01_rb,1.3102e-01_rb,9.0813e-02_rb,4.8481e-02_rb,1.7301e-03_rb/)
+      kbo(:, 3,21, 7) = (/ &
+     &2.2707e-01_rb,1.7845e-01_rb,1.2348e-01_rb,6.5731e-02_rb,2.2027e-03_rb/)
+      kbo(:, 4,21, 7) = (/ &
+     &3.0299e-01_rb,2.3748e-01_rb,1.6403e-01_rb,8.7154e-02_rb,2.7646e-03_rb/)
+      kbo(:, 5,21, 7) = (/ &
+     &3.9491e-01_rb,3.0909e-01_rb,2.1323e-01_rb,1.1320e-01_rb,3.3663e-03_rb/)
+      kbo(:, 1,22, 7) = (/ &
+     &1.0371e-01_rb,8.1936e-02_rb,5.6886e-02_rb,3.0452e-02_rb,1.1973e-03_rb/)
+      kbo(:, 2,22, 7) = (/ &
+     &1.4515e-01_rb,1.1443e-01_rb,7.9345e-02_rb,4.2377e-02_rb,1.5408e-03_rb/)
+      kbo(:, 3,22, 7) = (/ &
+     &1.9815e-01_rb,1.5584e-01_rb,1.0788e-01_rb,5.7461e-02_rb,1.9609e-03_rb/)
+      kbo(:, 4,22, 7) = (/ &
+     &2.6352e-01_rb,2.0697e-01_rb,1.4313e-01_rb,7.6128e-02_rb,2.4333e-03_rb/)
+      kbo(:, 5,22, 7) = (/ &
+     &3.4221e-01_rb,2.6821e-01_rb,1.8537e-01_rb,9.8647e-02_rb,2.9393e-03_rb/)
+      kbo(:, 1,23, 7) = (/ &
+     &9.0639e-02_rb,7.1734e-02_rb,4.9824e-02_rb,2.6695e-02_rb,1.0611e-03_rb/)
+      kbo(:, 2,23, 7) = (/ &
+     &1.2684e-01_rb,1.0014e-01_rb,6.9426e-02_rb,3.7107e-02_rb,1.3714e-03_rb/)
+      kbo(:, 3,23, 7) = (/ &
+     &1.7268e-01_rb,1.3597e-01_rb,9.4123e-02_rb,5.0237e-02_rb,1.7212e-03_rb/)
+      kbo(:, 4,23, 7) = (/ &
+     &2.2866e-01_rb,1.7972e-01_rb,1.2432e-01_rb,6.6277e-02_rb,2.1161e-03_rb/)
+      kbo(:, 5,23, 7) = (/ &
+     &2.9584e-01_rb,2.3227e-01_rb,1.6067e-01_rb,8.5547e-02_rb,2.5346e-03_rb/)
+      kbo(:, 1,24, 7) = (/ &
+     &8.0071e-02_rb,6.3444e-02_rb,4.4064e-02_rb,2.3644e-02_rb,9.3348e-04_rb/)
+      kbo(:, 2,24, 7) = (/ &
+     &1.1181e-01_rb,8.8354e-02_rb,6.1271e-02_rb,3.2794e-02_rb,1.1882e-03_rb/)
+      kbo(:, 3,24, 7) = (/ &
+     &1.5149e-01_rb,1.1939e-01_rb,8.2725e-02_rb,4.4223e-02_rb,1.4832e-03_rb/)
+      kbo(:, 4,24, 7) = (/ &
+     &1.9978e-01_rb,1.5722e-01_rb,1.0888e-01_rb,5.8128e-02_rb,1.8190e-03_rb/)
+      kbo(:, 5,24, 7) = (/ &
+     &2.5770e-01_rb,2.0260e-01_rb,1.4030e-01_rb,7.4844e-02_rb,2.1747e-03_rb/)
+      kbo(:, 1,25, 7) = (/ &
+     &7.0951e-02_rb,5.6269e-02_rb,3.9108e-02_rb,2.1016e-02_rb,8.0964e-04_rb/)
+      kbo(:, 2,25, 7) = (/ &
+     &9.8623e-02_rb,7.8013e-02_rb,5.4088e-02_rb,2.9015e-02_rb,1.0247e-03_rb/)
+      kbo(:, 3,25, 7) = (/ &
+     &1.3295e-01_rb,1.0488e-01_rb,7.2709e-02_rb,3.8919e-02_rb,1.2776e-03_rb/)
+      kbo(:, 4,25, 7) = (/ &
+     &1.7470e-01_rb,1.3764e-01_rb,9.5373e-02_rb,5.0958e-02_rb,1.5592e-03_rb/)
+      kbo(:, 5,25, 7) = (/ &
+     &2.2493e-01_rb,1.7708e-01_rb,1.2270e-01_rb,6.5502e-02_rb,1.8657e-03_rb/)
+      kbo(:, 1,26, 7) = (/ &
+     &6.3451e-02_rb,5.0352e-02_rb,3.4999e-02_rb,1.8811e-02_rb,7.0696e-04_rb/)
+      kbo(:, 2,26, 7) = (/ &
+     &8.7646e-02_rb,6.9321e-02_rb,4.8128e-02_rb,2.5820e-02_rb,8.9108e-04_rb/)
+      kbo(:, 3,26, 7) = (/ &
+     &1.1756e-01_rb,9.2804e-02_rb,6.4336e-02_rb,3.4465e-02_rb,1.1063e-03_rb/)
+      kbo(:, 4,26, 7) = (/ &
+     &1.5401e-01_rb,1.2150e-01_rb,8.4218e-02_rb,4.5022e-02_rb,1.3420e-03_rb/)
+      kbo(:, 5,26, 7) = (/ &
+     &1.9847e-01_rb,1.5626e-01_rb,1.0822e-01_rb,5.7833e-02_rb,1.6057e-03_rb/)
+      kbo(:, 1,27, 7) = (/ &
+     &5.6793e-02_rb,4.5057e-02_rb,3.1339e-02_rb,1.6842e-02_rb,6.0571e-04_rb/)
+      kbo(:, 2,27, 7) = (/ &
+     &7.8027e-02_rb,6.1732e-02_rb,4.2853e-02_rb,2.2968e-02_rb,7.6180e-04_rb/)
+      kbo(:, 3,27, 7) = (/ &
+     &1.0421e-01_rb,8.2314e-02_rb,5.7109e-02_rb,3.0579e-02_rb,9.4573e-04_rb/)
+      kbo(:, 4,27, 7) = (/ &
+     &1.3651e-01_rb,1.0769e-01_rb,7.4645e-02_rb,3.9915e-02_rb,1.1425e-03_rb/)
+      kbo(:, 5,27, 7) = (/ &
+     &1.7591e-01_rb,1.3862e-01_rb,9.6018e-02_rb,5.1325e-02_rb,1.3608e-03_rb/)
+      kbo(:, 1,28, 7) = (/ &
+     &5.0832e-02_rb,4.0335e-02_rb,2.8062e-02_rb,1.5080e-02_rb,5.0959e-04_rb/)
+      kbo(:, 2,28, 7) = (/ &
+     &6.9491e-02_rb,5.4973e-02_rb,3.8187e-02_rb,2.0466e-02_rb,6.4488e-04_rb/)
+      kbo(:, 3,28, 7) = (/ &
+     &9.2684e-02_rb,7.3230e-02_rb,5.0823e-02_rb,2.7216e-02_rb,7.9606e-04_rb/)
+      kbo(:, 4,28, 7) = (/ &
+     &1.2155e-01_rb,9.5886e-02_rb,6.6455e-02_rb,3.5548e-02_rb,9.5678e-04_rb/)
+      kbo(:, 5,28, 7) = (/ &
+     &1.5688e-01_rb,1.2363e-01_rb,8.5583e-02_rb,4.5732e-02_rb,1.1415e-03_rb/)
+      kbo(:, 1,29, 7) = (/ &
+     &4.5296e-02_rb,3.5922e-02_rb,2.4992e-02_rb,1.3423e-02_rb,4.2743e-04_rb/)
+      kbo(:, 2,29, 7) = (/ &
+     &6.1694e-02_rb,4.8833e-02_rb,3.3922e-02_rb,1.8191e-02_rb,5.3907e-04_rb/)
+      kbo(:, 3,29, 7) = (/ &
+     &8.2276e-02_rb,6.5053e-02_rb,4.5148e-02_rb,2.4171e-02_rb,6.5935e-04_rb/)
+      kbo(:, 4,29, 7) = (/ &
+     &1.0791e-01_rb,8.5197e-02_rb,5.9066e-02_rb,3.1598e-02_rb,7.9358e-04_rb/)
+      kbo(:, 5,29, 7) = (/ &
+     &1.3964e-01_rb,1.1005e-01_rb,7.6235e-02_rb,4.0713e-02_rb,9.4519e-04_rb/)
+      kbo(:, 1,30, 7) = (/ &
+     &4.0185e-02_rb,3.1886e-02_rb,2.2195e-02_rb,1.1919e-02_rb,3.5485e-04_rb/)
+      kbo(:, 2,30, 7) = (/ &
+     &5.4626e-02_rb,4.3278e-02_rb,3.0084e-02_rb,1.6135e-02_rb,4.4303e-04_rb/)
+      kbo(:, 3,30, 7) = (/ &
+     &7.2953e-02_rb,5.7701e-02_rb,4.0048e-02_rb,2.1442e-02_rb,5.4169e-04_rb/)
+      kbo(:, 4,30, 7) = (/ &
+     &9.5812e-02_rb,7.5701e-02_rb,5.2497e-02_rb,2.8075e-02_rb,6.5509e-04_rb/)
+      kbo(:, 5,30, 7) = (/ &
+     &1.2402e-01_rb,9.7862e-02_rb,6.7806e-02_rb,3.6235e-02_rb,7.7850e-04_rb/)
+      kbo(:, 1,31, 7) = (/ &
+     &3.5348e-02_rb,2.8090e-02_rb,1.9559e-02_rb,1.0513e-02_rb,2.9039e-04_rb/)
+      kbo(:, 2,31, 7) = (/ &
+     &4.8053e-02_rb,3.8118e-02_rb,2.6496e-02_rb,1.4221e-02_rb,3.5964e-04_rb/)
+      kbo(:, 3,31, 7) = (/ &
+     &6.4212e-02_rb,5.0845e-02_rb,3.5309e-02_rb,1.8919e-02_rb,4.4117e-04_rb/)
+      kbo(:, 4,31, 7) = (/ &
+     &8.4429e-02_rb,6.6772e-02_rb,4.6322e-02_rb,2.4787e-02_rb,5.3116e-04_rb/)
+      kbo(:, 5,31, 7) = (/ &
+     &1.0928e-01_rb,8.6339e-02_rb,5.9901e-02_rb,3.2032e-02_rb,6.3348e-04_rb/)
+      kbo(:, 1,32, 7) = (/ &
+     &3.1311e-02_rb,2.4896e-02_rb,1.7336e-02_rb,9.3247e-03_rb,2.3608e-04_rb/)
+      kbo(:, 2,32, 7) = (/ &
+     &4.2575e-02_rb,3.3801e-02_rb,2.3511e-02_rb,1.2616e-02_rb,2.9452e-04_rb/)
+      kbo(:, 3,32, 7) = (/ &
+     &5.6935e-02_rb,4.5129e-02_rb,3.1359e-02_rb,1.6809e-02_rb,3.6093e-04_rb/)
+      kbo(:, 4,32, 7) = (/ &
+     &7.4842e-02_rb,5.9256e-02_rb,4.1156e-02_rb,2.2039e-02_rb,4.3435e-04_rb/)
+      kbo(:, 5,32, 7) = (/ &
+     &9.6933e-02_rb,7.6740e-02_rb,5.3274e-02_rb,2.8476e-02_rb,5.1533e-04_rb/)
+      kbo(:, 1,33, 7) = (/ &
+     &2.7886e-02_rb,2.2206e-02_rb,1.5465e-02_rb,8.3176e-03_rb,1.9330e-04_rb/)
+      kbo(:, 2,33, 7) = (/ &
+     &3.7954e-02_rb,3.0161e-02_rb,2.0981e-02_rb,1.1260e-02_rb,2.4048e-04_rb/)
+      kbo(:, 3,33, 7) = (/ &
+     &5.0729e-02_rb,4.0269e-02_rb,2.7996e-02_rb,1.5008e-02_rb,2.9283e-04_rb/)
+      kbo(:, 4,33, 7) = (/ &
+     &6.6680e-02_rb,5.2910e-02_rb,3.6768e-02_rb,1.9685e-02_rb,3.5174e-04_rb/)
+      kbo(:, 5,33, 7) = (/ &
+     &8.6325e-02_rb,6.8491e-02_rb,4.7579e-02_rb,2.5448e-02_rb,4.1781e-04_rb/)
+      kbo(:, 1,34, 7) = (/ &
+     &2.4971e-02_rb,1.9901e-02_rb,1.3860e-02_rb,7.4508e-03_rb,1.5943e-04_rb/)
+      kbo(:, 2,34, 7) = (/ &
+     &3.3993e-02_rb,2.7044e-02_rb,1.8817e-02_rb,1.0102e-02_rb,1.9737e-04_rb/)
+      kbo(:, 3,34, 7) = (/ &
+     &4.5431e-02_rb,3.6116e-02_rb,2.5118e-02_rb,1.3468e-02_rb,2.4097e-04_rb/)
+      kbo(:, 4,34, 7) = (/ &
+     &5.9751e-02_rb,4.7485e-02_rb,3.3007e-02_rb,1.7673e-02_rb,2.8983e-04_rb/)
+      kbo(:, 5,34, 7) = (/ &
+     &7.7416e-02_rb,6.1530e-02_rb,4.2751e-02_rb,2.2863e-02_rb,3.4328e-04_rb/)
+      kbo(:, 1,35, 7) = (/ &
+     &2.1796e-02_rb,1.7387e-02_rb,1.2111e-02_rb,6.5084e-03_rb,1.2835e-04_rb/)
+      kbo(:, 2,35, 7) = (/ &
+     &2.9698e-02_rb,2.3666e-02_rb,1.6479e-02_rb,8.8433e-03_rb,1.5863e-04_rb/)
+      kbo(:, 3,35, 7) = (/ &
+     &3.9760e-02_rb,3.1675e-02_rb,2.2035e-02_rb,1.1812e-02_rb,1.9396e-04_rb/)
+      kbo(:, 4,35, 7) = (/ &
+     &5.2402e-02_rb,4.1735e-02_rb,2.9029e-02_rb,1.5538e-02_rb,2.3292e-04_rb/)
+      kbo(:, 5,35, 7) = (/ &
+     &6.8053e-02_rb,5.4173e-02_rb,3.7664e-02_rb,2.0141e-02_rb,2.7598e-04_rb/)
+      kbo(:, 1,36, 7) = (/ &
+     &1.8439e-02_rb,1.4736e-02_rb,1.0269e-02_rb,5.5181e-03_rb,1.0059e-04_rb/)
+      kbo(:, 2,36, 7) = (/ &
+     &2.5228e-02_rb,2.0135e-02_rb,1.4024e-02_rb,7.5257e-03_rb,1.2421e-04_rb/)
+      kbo(:, 3,36, 7) = (/ &
+     &3.3891e-02_rb,2.7058e-02_rb,1.8832e-02_rb,1.0097e-02_rb,1.5179e-04_rb/)
+      kbo(:, 4,36, 7) = (/ &
+     &4.4855e-02_rb,3.5783e-02_rb,2.4899e-02_rb,1.3331e-02_rb,1.8254e-04_rb/)
+      kbo(:, 5,36, 7) = (/ &
+     &5.8411e-02_rb,4.6611e-02_rb,3.2419e-02_rb,1.7335e-02_rb,2.1654e-04_rb/)
+      kbo(:, 1,37, 7) = (/ &
+     &1.5025e-02_rb,1.2025e-02_rb,8.3808e-03_rb,4.5043e-03_rb,7.8293e-05_rb/)
+      kbo(:, 2,37, 7) = (/ &
+     &2.0678e-02_rb,1.6540e-02_rb,1.1522e-02_rb,6.1849e-03_rb,9.7252e-05_rb/)
+      kbo(:, 3,37, 7) = (/ &
+     &2.7964e-02_rb,2.2364e-02_rb,1.5572e-02_rb,8.3486e-03_rb,1.1926e-04_rb/)
+      kbo(:, 4,37, 7) = (/ &
+     &3.7225e-02_rb,2.9764e-02_rb,2.0719e-02_rb,1.1092e-02_rb,1.4386e-04_rb/)
+      kbo(:, 5,37, 7) = (/ &
+     &4.8779e-02_rb,3.9013e-02_rb,2.7143e-02_rb,1.4513e-02_rb,1.7127e-04_rb/)
+      kbo(:, 1,38, 7) = (/ &
+     &1.2194e-02_rb,9.7772e-03_rb,6.8154e-03_rb,3.6630e-03_rb,6.0721e-05_rb/)
+      kbo(:, 2,38, 7) = (/ &
+     &1.6892e-02_rb,1.3540e-02_rb,9.4349e-03_rb,5.0655e-03_rb,7.5931e-05_rb/)
+      kbo(:, 3,38, 7) = (/ &
+     &2.2993e-02_rb,1.8427e-02_rb,1.2834e-02_rb,6.8825e-03_rb,9.3480e-05_rb/)
+      kbo(:, 4,38, 7) = (/ &
+     &3.0804e-02_rb,2.4686e-02_rb,1.7192e-02_rb,9.2065e-03_rb,1.1312e-04_rb/)
+      kbo(:, 5,38, 7) = (/ &
+     &4.0626e-02_rb,3.2569e-02_rb,2.2673e-02_rb,1.2127e-02_rb,1.3481e-04_rb/)
+      kbo(:, 1,39, 7) = (/ &
+     &9.8863e-03_rb,7.9385e-03_rb,5.5336e-03_rb,2.9753e-03_rb,4.6829e-05_rb/)
+      kbo(:, 2,39, 7) = (/ &
+     &1.3782e-02_rb,1.1068e-02_rb,7.7135e-03_rb,4.1426e-03_rb,5.8903e-05_rb/)
+      kbo(:, 3,39, 7) = (/ &
+     &1.8884e-02_rb,1.5163e-02_rb,1.0568e-02_rb,5.6692e-03_rb,7.2758e-05_rb/)
+      kbo(:, 4,39, 7) = (/ &
+     &2.5472e-02_rb,2.0459e-02_rb,1.4252e-02_rb,7.6329e-03_rb,8.8280e-05_rb/)
+      kbo(:, 5,39, 7) = (/ &
+     &3.3793e-02_rb,2.7159e-02_rb,1.8912e-02_rb,1.0123e-02_rb,1.0549e-04_rb/)
+      kbo(:, 1,40, 7) = (/ &
+     &7.8183e-03_rb,6.2872e-03_rb,4.3840e-03_rb,2.3583e-03_rb,3.5934e-05_rb/)
+      kbo(:, 2,40, 7) = (/ &
+     &1.1002e-02_rb,8.8456e-03_rb,6.1665e-03_rb,3.3129e-03_rb,4.5505e-05_rb/)
+      kbo(:, 3,40, 7) = (/ &
+     &1.5204e-02_rb,1.2224e-02_rb,8.5201e-03_rb,4.5727e-03_rb,5.6603e-05_rb/)
+      kbo(:, 4,40, 7) = (/ &
+     &2.0667e-02_rb,1.6639e-02_rb,1.1596e-02_rb,6.2148e-03_rb,6.8922e-05_rb/)
+      kbo(:, 5,40, 7) = (/ &
+     &2.7656e-02_rb,2.2280e-02_rb,1.5521e-02_rb,8.3102e-03_rb,8.2779e-05_rb/)
+      kbo(:, 1,41, 7) = (/ &
+     &6.1500e-03_rb,4.9524e-03_rb,3.4538e-03_rb,1.8579e-03_rb,2.7494e-05_rb/)
+      kbo(:, 2,41, 7) = (/ &
+     &8.7326e-03_rb,7.0361e-03_rb,4.9035e-03_rb,2.6349e-03_rb,3.5036e-05_rb/)
+      kbo(:, 3,41, 7) = (/ &
+     &1.2182e-02_rb,9.8121e-03_rb,6.8364e-03_rb,3.6704e-03_rb,4.3900e-05_rb/)
+      kbo(:, 4,41, 7) = (/ &
+     &1.6698e-02_rb,1.3470e-02_rb,9.3901e-03_rb,5.0360e-03_rb,5.3809e-05_rb/)
+      kbo(:, 5,41, 7) = (/ &
+     &2.2541e-02_rb,1.8202e-02_rb,1.2686e-02_rb,6.7978e-03_rb,6.4784e-05_rb/)
+      kbo(:, 1,42, 7) = (/ &
+     &4.8216e-03_rb,3.8878e-03_rb,2.7121e-03_rb,1.4585e-03_rb,2.0930e-05_rb/)
+      kbo(:, 2,42, 7) = (/ &
+     &6.9151e-03_rb,5.5793e-03_rb,3.8882e-03_rb,2.0902e-03_rb,2.6862e-05_rb/)
+      kbo(:, 3,42, 7) = (/ &
+     &9.7317e-03_rb,7.8533e-03_rb,5.4747e-03_rb,2.9388e-03_rb,3.3897e-05_rb/)
+      kbo(:, 4,42, 7) = (/ &
+     &1.3459e-02_rb,1.0876e-02_rb,7.5844e-03_rb,4.0697e-03_rb,4.1759e-05_rb/)
+      kbo(:, 5,42, 7) = (/ &
+     &1.8320e-02_rb,1.4838e-02_rb,1.0343e-02_rb,5.5456e-03_rb,5.0540e-05_rb/)
+      kbo(:, 1,43, 7) = (/ &
+     &3.7271e-03_rb,3.0076e-03_rb,2.0983e-03_rb,1.1283e-03_rb,1.5715e-05_rb/)
+      kbo(:, 2,43, 7) = (/ &
+     &5.4034e-03_rb,4.3650e-03_rb,3.0427e-03_rb,1.6347e-03_rb,2.0366e-05_rb/)
+      kbo(:, 3,43, 7) = (/ &
+     &7.6865e-03_rb,6.2120e-03_rb,4.3312e-03_rb,2.3251e-03_rb,2.5938e-05_rb/)
+      kbo(:, 4,43, 7) = (/ &
+     &1.0735e-02_rb,8.6871e-03_rb,6.0565e-03_rb,3.2504e-03_rb,3.2151e-05_rb/)
+      kbo(:, 5,43, 7) = (/ &
+     &1.4744e-02_rb,1.1965e-02_rb,8.3459e-03_rb,4.4756e-03_rb,3.9126e-05_rb/)
+      kbo(:, 1,44, 7) = (/ &
+     &2.8560e-03_rb,2.3067e-03_rb,1.6088e-03_rb,8.6423e-04_rb,1.1691e-05_rb/)
+      kbo(:, 2,44, 7) = (/ &
+     &4.1914e-03_rb,3.3878e-03_rb,2.3617e-03_rb,1.2680e-03_rb,1.5336e-05_rb/)
+      kbo(:, 3,44, 7) = (/ &
+     &6.0257e-03_rb,4.8753e-03_rb,3.3991e-03_rb,1.8248e-03_rb,1.9674e-05_rb/)
+      kbo(:, 4,44, 7) = (/ &
+     &8.5074e-03_rb,6.8953e-03_rb,4.8067e-03_rb,2.5783e-03_rb,2.4601e-05_rb/)
+      kbo(:, 5,44, 7) = (/ &
+     &1.1798e-02_rb,9.5893e-03_rb,6.6876e-03_rb,3.5866e-03_rb,3.0110e-05_rb/)
+      kbo(:, 1,45, 7) = (/ &
+     &2.1795e-03_rb,1.7620e-03_rb,1.2288e-03_rb,6.5976e-04_rb,8.6355e-06_rb/)
+      kbo(:, 2,45, 7) = (/ &
+     &3.2384e-03_rb,2.6190e-03_rb,1.8255e-03_rb,9.8000e-04_rb,1.1470e-05_rb/)
+      kbo(:, 3,45, 7) = (/ &
+     &4.7095e-03_rb,3.8135e-03_rb,2.6589e-03_rb,1.4269e-03_rb,1.4819e-05_rb/)
+      kbo(:, 4,45, 7) = (/ &
+     &6.7188e-03_rb,5.4533e-03_rb,3.8021e-03_rb,2.0391e-03_rb,1.8692e-05_rb/)
+      kbo(:, 5,45, 7) = (/ &
+     &9.4160e-03_rb,7.6627e-03_rb,5.3428e-03_rb,2.8648e-03_rb,2.3071e-05_rb/)
+      kbo(:, 1,46, 7) = (/ &
+     &1.6442e-03_rb,1.3301e-03_rb,9.2731e-04_rb,4.9724e-04_rb,6.3123e-06_rb/)
+      kbo(:, 2,46, 7) = (/ &
+     &2.4756e-03_rb,2.0038e-03_rb,1.3961e-03_rb,7.4858e-04_rb,8.4887e-06_rb/)
+      kbo(:, 3,46, 7) = (/ &
+     &3.6430e-03_rb,2.9527e-03_rb,2.0584e-03_rb,1.1034e-03_rb,1.1065e-05_rb/)
+      kbo(:, 4,46, 7) = (/ &
+     &5.2551e-03_rb,4.2702e-03_rb,2.9775e-03_rb,1.5960e-03_rb,1.4093e-05_rb/)
+      kbo(:, 5,46, 7) = (/ &
+     &7.4490e-03_rb,6.0700e-03_rb,4.2323e-03_rb,2.2675e-03_rb,1.7540e-05_rb/)
+      kbo(:, 1,47, 7) = (/ &
+     &1.2145e-03_rb,9.8337e-04_rb,6.8536e-04_rb,3.6730e-04_rb,4.5517e-06_rb/)
+      kbo(:, 2,47, 7) = (/ &
+     &1.8591e-03_rb,1.5045e-03_rb,1.0482e-03_rb,5.6130e-04_rb,6.1946e-06_rb/)
+      kbo(:, 3,47, 7) = (/ &
+     &2.7714e-03_rb,2.2470e-03_rb,1.5654e-03_rb,8.3875e-04_rb,8.1842e-06_rb/)
+      kbo(:, 4,47, 7) = (/ &
+     &4.0468e-03_rb,3.2903e-03_rb,2.2941e-03_rb,1.2283e-03_rb,1.0514e-05_rb/)
+      kbo(:, 5,47, 7) = (/ &
+     &5.8053e-03_rb,4.7349e-03_rb,3.3018e-03_rb,1.7685e-03_rb,1.3244e-05_rb/)
+      kbo(:, 1,48, 7) = (/ &
+     &8.9209e-04_rb,7.2273e-04_rb,5.0348e-04_rb,2.6958e-04_rb,3.2450e-06_rb/)
+      kbo(:, 2,48, 7) = (/ &
+     &1.3877e-03_rb,1.1243e-03_rb,7.8261e-04_rb,4.1863e-04_rb,4.4867e-06_rb/)
+      kbo(:, 3,48, 7) = (/ &
+     &2.0991e-03_rb,1.7020e-03_rb,1.1852e-03_rb,6.3416e-04_rb,6.0052e-06_rb/)
+      kbo(:, 4,48, 7) = (/ &
+     &3.1030e-03_rb,2.5246e-03_rb,1.7595e-03_rb,9.4166e-04_rb,7.8064e-06_rb/)
+      kbo(:, 5,48, 7) = (/ &
+     &4.5012e-03_rb,3.6752e-03_rb,2.5627e-03_rb,1.3716e-03_rb,9.9188e-06_rb/)
+      kbo(:, 1,49, 7) = (/ &
+     &6.5052e-04_rb,5.2741e-04_rb,3.6738e-04_rb,1.9665e-04_rb,2.2928e-06_rb/)
+      kbo(:, 2,49, 7) = (/ &
+     &1.0291e-03_rb,8.3378e-04_rb,5.8035e-04_rb,3.1024e-04_rb,3.2141e-06_rb/)
+      kbo(:, 3,49, 7) = (/ &
+     &1.5816e-03_rb,1.2832e-03_rb,8.9291e-04_rb,4.7687e-04_rb,4.3608e-06_rb/)
+      kbo(:, 4,49, 7) = (/ &
+     &2.3687e-03_rb,1.9273e-03_rb,1.3422e-03_rb,7.1737e-04_rb,5.7390e-06_rb/)
+      kbo(:, 5,49, 7) = (/ &
+     &3.4765e-03_rb,2.8403e-03_rb,1.9797e-03_rb,1.0580e-03_rb,7.3616e-06_rb/)
+      kbo(:, 1,50, 7) = (/ &
+     &4.7889e-04_rb,3.8798e-04_rb,2.7009e-04_rb,1.4448e-04_rb,1.6356e-06_rb/)
+      kbo(:, 2,50, 7) = (/ &
+     &7.6956e-04_rb,6.2385e-04_rb,4.3396e-04_rb,2.3170e-04_rb,2.3299e-06_rb/)
+      kbo(:, 3,50, 7) = (/ &
+     &1.1998e-03_rb,9.7385e-04_rb,6.7714e-04_rb,3.6138e-04_rb,3.2007e-06_rb/)
+      kbo(:, 4,50, 7) = (/ &
+     &1.8222e-03_rb,1.4833e-03_rb,1.0320e-03_rb,5.5070e-04_rb,4.2632e-06_rb/)
+      kbo(:, 5,50, 7) = (/ &
+     &2.7064e-03_rb,2.2113e-03_rb,1.5405e-03_rb,8.2234e-04_rb,5.5273e-06_rb/)
+      kbo(:, 1,51, 7) = (/ &
+     &3.5344e-04_rb,2.8635e-04_rb,1.9912e-04_rb,1.0636e-04_rb,1.1680e-06_rb/)
+      kbo(:, 2,51, 7) = (/ &
+     &5.7631e-04_rb,4.6738e-04_rb,3.2502e-04_rb,1.7332e-04_rb,1.6902e-06_rb/)
+      kbo(:, 3,51, 7) = (/ &
+     &9.1142e-04_rb,7.3982e-04_rb,5.1424e-04_rb,2.7410e-04_rb,2.3543e-06_rb/)
+      kbo(:, 4,51, 7) = (/ &
+     &1.4045e-03_rb,1.1437e-03_rb,7.9544e-04_rb,4.2395e-04_rb,3.1729e-06_rb/)
+      kbo(:, 5,51, 7) = (/ &
+     &2.1131e-03_rb,1.7268e-03_rb,1.2023e-03_rb,6.4090e-04_rb,4.1620e-06_rb/)
+      kbo(:, 1,52, 7) = (/ &
+     &2.5933e-04_rb,2.1020e-04_rb,1.4608e-04_rb,7.7951e-05_rb,8.2759e-07_rb/)
+      kbo(:, 2,52, 7) = (/ &
+     &4.3070e-04_rb,3.4917e-04_rb,2.4257e-04_rb,1.2919e-04_rb,1.2165e-06_rb/)
+      kbo(:, 3,52, 7) = (/ &
+     &6.9048e-04_rb,5.6079e-04_rb,3.8962e-04_rb,2.0733e-04_rb,1.7208e-06_rb/)
+      kbo(:, 4,52, 7) = (/ &
+     &1.0785e-03_rb,8.7815e-04_rb,6.1039e-04_rb,3.2491e-04_rb,2.3474e-06_rb/)
+      kbo(:, 5,52, 7) = (/ &
+     &1.6449e-03_rb,1.3448e-03_rb,9.3585e-04_rb,4.9830e-04_rb,3.1177e-06_rb/)
+      kbo(:, 1,53, 7) = (/ &
+     &1.8893e-04_rb,1.5324e-04_rb,1.0643e-04_rb,5.6765e-05_rb,5.8012e-07_rb/)
+      kbo(:, 2,53, 7) = (/ &
+     &3.2030e-04_rb,2.5977e-04_rb,1.8033e-04_rb,9.5988e-05_rb,8.6790e-07_rb/)
+      kbo(:, 3,53, 7) = (/ &
+     &5.2133e-04_rb,4.2303e-04_rb,2.9359e-04_rb,1.5604e-04_rb,1.2459e-06_rb/)
+      kbo(:, 4,53, 7) = (/ &
+     &8.2474e-04_rb,6.7149e-04_rb,4.6612e-04_rb,2.4781e-04_rb,1.7256e-06_rb/)
+      kbo(:, 5,53, 7) = (/ &
+     &1.2742e-03_rb,1.0424e-03_rb,7.2493e-04_rb,3.8558e-04_rb,2.3164e-06_rb/)
+      kbo(:, 1,54, 7) = (/ &
+     &1.3969e-04_rb,1.1317e-04_rb,7.8561e-05_rb,4.1870e-05_rb,4.1563e-07_rb/)
+      kbo(:, 2,54, 7) = (/ &
+     &2.4197e-04_rb,1.9607e-04_rb,1.3602e-04_rb,7.2325e-05_rb,6.3273e-07_rb/)
+      kbo(:, 3,54, 7) = (/ &
+     &4.0015e-04_rb,3.2487e-04_rb,2.2527e-04_rb,1.1951e-04_rb,9.2081e-07_rb/)
+      kbo(:, 4,54, 7) = (/ &
+     &6.4075e-04_rb,5.2162e-04_rb,3.6218e-04_rb,1.9219e-04_rb,1.2926e-06_rb/)
+      kbo(:, 5,54, 7) = (/ &
+     &1.0011e-03_rb,8.1978e-04_rb,5.6992e-04_rb,3.0275e-04_rb,1.7539e-06_rb/)
+      kbo(:, 1,55, 7) = (/ &
+     &1.0370e-04_rb,8.4064e-05_rb,5.8320e-05_rb,3.1035e-05_rb,3.0125e-07_rb/)
+      kbo(:, 2,55, 7) = (/ &
+     &1.8386e-04_rb,1.4899e-04_rb,1.0330e-04_rb,5.4881e-05_rb,4.6624e-07_rb/)
+      kbo(:, 3,55, 7) = (/ &
+     &3.0954e-04_rb,2.5123e-04_rb,1.7413e-04_rb,9.2312e-05_rb,6.8850e-07_rb/)
+      kbo(:, 4,55, 7) = (/ &
+     &5.0203e-04_rb,4.0855e-04_rb,2.8330e-04_rb,1.5019e-04_rb,9.7772e-07_rb/)
+      kbo(:, 5,55, 7) = (/ &
+     &7.9354e-04_rb,6.4976e-04_rb,4.5113e-04_rb,2.3954e-04_rb,1.3409e-06_rb/)
+      kbo(:, 1,56, 7) = (/ &
+     &7.6693e-05_rb,6.2162e-05_rb,4.3120e-05_rb,2.2933e-05_rb,2.1684e-07_rb/)
+      kbo(:, 2,56, 7) = (/ &
+     &1.3934e-04_rb,1.1294e-04_rb,7.8219e-05_rb,4.1520e-05_rb,3.4179e-07_rb/)
+      kbo(:, 3,56, 7) = (/ &
+     &2.3910e-04_rb,1.9403e-04_rb,1.3441e-04_rb,7.1189e-05_rb,5.1274e-07_rb/)
+      kbo(:, 4,56, 7) = (/ &
+     &3.9378e-04_rb,3.2054e-04_rb,2.2198e-04_rb,1.1748e-04_rb,7.3840e-07_rb/)
+      kbo(:, 5,56, 7) = (/ &
+     &6.2957e-04_rb,5.1531e-04_rb,3.5753e-04_rb,1.8952e-04_rb,1.0222e-06_rb/)
+      kbo(:, 1,57, 7) = (/ &
+     &5.6535e-05_rb,4.5829e-05_rb,3.1754e-05_rb,1.6880e-05_rb,1.5535e-07_rb/)
+      kbo(:, 2,57, 7) = (/ &
+     &1.0543e-04_rb,8.5393e-05_rb,5.9099e-05_rb,3.1336e-05_rb,2.4941e-07_rb/)
+      kbo(:, 3,57, 7) = (/ &
+     &1.8447e-04_rb,1.4976e-04_rb,1.0364e-04_rb,5.4850e-05_rb,3.7980e-07_rb/)
+      kbo(:, 4,57, 7) = (/ &
+     &3.0910e-04_rb,2.5132e-04_rb,1.7397e-04_rb,9.1976e-05_rb,5.5506e-07_rb/)
+      kbo(:, 5,57, 7) = (/ &
+     &4.9998e-04_rb,4.0888e-04_rb,2.8341e-04_rb,1.4999e-04_rb,7.7934e-07_rb/)
+      kbo(:, 1,58, 7) = (/ &
+     &2.0338e-05_rb,1.8913e-05_rb,1.5378e-05_rb,9.8853e-06_rb,1.1183e-07_rb/)
+      kbo(:, 2,58, 7) = (/ &
+     &3.8917e-05_rb,3.6144e-05_rb,2.9335e-05_rb,1.8800e-05_rb,1.8309e-07_rb/)
+      kbo(:, 3,58, 7) = (/ &
+     &6.9478e-05_rb,6.4684e-05_rb,5.2517e-05_rb,3.3620e-05_rb,2.8333e-07_rb/)
+      kbo(:, 4,58, 7) = (/ &
+     &1.1843e-04_rb,1.1052e-04_rb,8.9713e-05_rb,5.7328e-05_rb,4.1951e-07_rb/)
+      kbo(:, 5,58, 7) = (/ &
+     &1.9434e-04_rb,1.8218e-04_rb,1.4806e-04_rb,9.4685e-05_rb,5.9796e-07_rb/)
+      kbo(:, 1,59, 7) = (/ &
+     &1.6486e-05_rb,1.5394e-05_rb,1.2565e-05_rb,8.1204e-06_rb,9.1178e-08_rb/)
+      kbo(:, 2,59, 7) = (/ &
+     &3.1937e-05_rb,2.9800e-05_rb,2.4292e-05_rb,1.5665e-05_rb,1.5065e-07_rb/)
+      kbo(:, 3,59, 7) = (/ &
+     &5.7683e-05_rb,5.3905e-05_rb,4.3942e-05_rb,2.8299e-05_rb,2.3496e-07_rb/)
+      kbo(:, 4,59, 7) = (/ &
+     &9.9323e-05_rb,9.3088e-05_rb,7.5927e-05_rb,4.8813e-05_rb,3.4922e-07_rb/)
+      kbo(:, 5,59, 7) = (/ &
+     &1.6451e-04_rb,1.5507e-04_rb,1.2661e-04_rb,8.1439e-05_rb,5.0093e-07_rb/)
+      kbo(:, 1,13, 8) = (/ &
+     &1.2116e+00_rb,9.1758e-01_rb,6.2996e-01_rb,3.3536e-01_rb,1.5468e-02_rb/)
+      kbo(:, 2,13, 8) = (/ &
+     &1.6818e+00_rb,1.2746e+00_rb,8.7634e-01_rb,4.6518e-01_rb,1.8709e-02_rb/)
+      kbo(:, 3,13, 8) = (/ &
+     &2.2865e+00_rb,1.7360e+00_rb,1.1942e+00_rb,6.3525e-01_rb,2.2469e-02_rb/)
+      kbo(:, 4,13, 8) = (/ &
+     &3.0754e+00_rb,2.3371e+00_rb,1.6054e+00_rb,8.5102e-01_rb,2.6288e-02_rb/)
+      kbo(:, 5,13, 8) = (/ &
+     &4.0473e+00_rb,3.0761e+00_rb,2.1113e+00_rb,1.1162e+00_rb,3.0276e-02_rb/)
+      kbo(:, 1,14, 8) = (/ &
+     &1.1078e+00_rb,8.4059e-01_rb,5.7946e-01_rb,3.0612e-01_rb,1.2063e-02_rb/)
+      kbo(:, 2,14, 8) = (/ &
+     &1.5335e+00_rb,1.1661e+00_rb,8.0499e-01_rb,4.2627e-01_rb,1.4718e-02_rb/)
+      kbo(:, 3,14, 8) = (/ &
+     &2.0884e+00_rb,1.5886e+00_rb,1.0949e+00_rb,5.8050e-01_rb,1.7857e-02_rb/)
+      kbo(:, 4,14, 8) = (/ &
+     &2.8120e+00_rb,2.1413e+00_rb,1.4745e+00_rb,7.8098e-01_rb,2.1007e-02_rb/)
+      kbo(:, 5,14, 8) = (/ &
+     &3.6989e+00_rb,2.8189e+00_rb,1.9396e+00_rb,1.0257e+00_rb,2.4295e-02_rb/)
+      kbo(:, 1,15, 8) = (/ &
+     &9.7042e-01_rb,7.3947e-01_rb,5.1034e-01_rb,2.6949e-01_rb,9.7938e-03_rb/)
+      kbo(:, 2,15, 8) = (/ &
+     &1.3436e+00_rb,1.0262e+00_rb,7.0874e-01_rb,3.7517e-01_rb,1.2203e-02_rb/)
+      kbo(:, 3,15, 8) = (/ &
+     &1.8449e+00_rb,1.4109e+00_rb,9.7248e-01_rb,5.1316e-01_rb,1.4807e-02_rb/)
+      kbo(:, 4,15, 8) = (/ &
+     &2.4626e+00_rb,1.8840e+00_rb,1.3006e+00_rb,6.9030e-01_rb,1.7518e-02_rb/)
+      kbo(:, 5,15, 8) = (/ &
+     &3.2241e+00_rb,2.4640e+00_rb,1.6957e+00_rb,8.9766e-01_rb,2.0767e-02_rb/)
+      kbo(:, 1,16, 8) = (/ &
+     &8.2995e-01_rb,6.3671e-01_rb,4.3954e-01_rb,2.3206e-01_rb,8.0720e-03_rb/)
+      kbo(:, 2,16, 8) = (/ &
+     &1.1570e+00_rb,8.8835e-01_rb,6.1260e-01_rb,3.2369e-01_rb,1.0091e-02_rb/)
+      kbo(:, 3,16, 8) = (/ &
+     &1.5781e+00_rb,1.2128e+00_rb,8.3725e-01_rb,4.4354e-01_rb,1.2349e-02_rb/)
+      kbo(:, 4,16, 8) = (/ &
+     &2.1038e+00_rb,1.6176e+00_rb,1.1171e+00_rb,5.9216e-01_rb,1.4755e-02_rb/)
+      kbo(:, 5,16, 8) = (/ &
+     &2.7385e+00_rb,2.1023e+00_rb,1.4490e+00_rb,7.6892e-01_rb,1.7667e-02_rb/)
+      kbo(:, 1,17, 8) = (/ &
+     &7.0692e-01_rb,5.4586e-01_rb,3.7661e-01_rb,1.9889e-01_rb,6.7483e-03_rb/)
+      kbo(:, 2,17, 8) = (/ &
+     &9.8295e-01_rb,7.5893e-01_rb,5.2307e-01_rb,2.7659e-01_rb,8.4850e-03_rb/)
+      kbo(:, 3,17, 8) = (/ &
+     &1.3367e+00_rb,1.0327e+00_rb,7.1373e-01_rb,3.7884e-01_rb,1.0478e-02_rb/)
+      kbo(:, 4,17, 8) = (/ &
+     &1.7756e+00_rb,1.3697e+00_rb,9.4344e-01_rb,4.9980e-01_rb,1.2797e-02_rb/)
+      kbo(:, 5,17, 8) = (/ &
+     &2.3127e+00_rb,1.7838e+00_rb,1.2303e+00_rb,6.5347e-01_rb,1.5355e-02_rb/)
+      kbo(:, 1,18, 8) = (/ &
+     &5.9108e-01_rb,4.5836e-01_rb,3.1625e-01_rb,1.6744e-01_rb,5.7287e-03_rb/)
+      kbo(:, 2,18, 8) = (/ &
+     &8.2052e-01_rb,6.3681e-01_rb,4.3945e-01_rb,2.3289e-01_rb,7.3032e-03_rb/)
+      kbo(:, 3,18, 8) = (/ &
+     &1.1131e+00_rb,8.6338e-01_rb,5.9577e-01_rb,3.1578e-01_rb,9.0895e-03_rb/)
+      kbo(:, 4,18, 8) = (/ &
+     &1.4765e+00_rb,1.1444e+00_rb,7.8909e-01_rb,4.1827e-01_rb,1.1179e-02_rb/)
+      kbo(:, 5,18, 8) = (/ &
+     &1.9250e+00_rb,1.4898e+00_rb,1.0284e+00_rb,5.4576e-01_rb,1.3498e-02_rb/)
+      kbo(:, 1,19, 8) = (/ &
+     &5.0114e-01_rb,3.9028e-01_rb,2.6968e-01_rb,1.4303e-01_rb,5.0299e-03_rb/)
+      kbo(:, 2,19, 8) = (/ &
+     &6.9768e-01_rb,5.4308e-01_rb,3.7493e-01_rb,1.9896e-01_rb,6.4752e-03_rb/)
+      kbo(:, 3,19, 8) = (/ &
+     &9.4555e-01_rb,7.3537e-01_rb,5.0733e-01_rb,2.6864e-01_rb,8.1323e-03_rb/)
+      kbo(:, 4,19, 8) = (/ &
+     &1.2515e+00_rb,9.7204e-01_rb,6.7090e-01_rb,3.5577e-01_rb,1.0007e-02_rb/)
+      kbo(:, 5,19, 8) = (/ &
+     &1.6326e+00_rb,1.2674e+00_rb,8.7478e-01_rb,4.6363e-01_rb,1.2144e-02_rb/)
+      kbo(:, 1,20, 8) = (/ &
+     &4.3618e-01_rb,3.4070e-01_rb,2.3544e-01_rb,1.2514e-01_rb,4.4918e-03_rb/)
+      kbo(:, 2,20, 8) = (/ &
+     &6.0844e-01_rb,4.7506e-01_rb,3.2779e-01_rb,1.7405e-01_rb,5.8213e-03_rb/)
+      kbo(:, 3,20, 8) = (/ &
+     &8.2504e-01_rb,6.4315e-01_rb,4.4377e-01_rb,2.3521e-01_rb,7.3449e-03_rb/)
+      kbo(:, 4,20, 8) = (/ &
+     &1.0904e+00_rb,8.4892e-01_rb,5.8560e-01_rb,3.1033e-01_rb,9.1136e-03_rb/)
+      kbo(:, 5,20, 8) = (/ &
+     &1.4182e+00_rb,1.1040e+00_rb,7.6212e-01_rb,4.0404e-01_rb,1.1084e-02_rb/)
+      kbo(:, 1,21, 8) = (/ &
+     &3.8157e-01_rb,2.9889e-01_rb,2.0662e-01_rb,1.0989e-01_rb,4.0172e-03_rb/)
+      kbo(:, 2,21, 8) = (/ &
+     &5.3249e-01_rb,4.1652e-01_rb,2.8764e-01_rb,1.5288e-01_rb,5.2442e-03_rb/)
+      kbo(:, 3,21, 8) = (/ &
+     &7.2280e-01_rb,5.6456e-01_rb,3.8951e-01_rb,2.0661e-01_rb,6.6692e-03_rb/)
+      kbo(:, 4,21, 8) = (/ &
+     &9.5675e-01_rb,7.4634e-01_rb,5.1474e-01_rb,2.7285e-01_rb,8.2754e-03_rb/)
+      kbo(:, 5,21, 8) = (/ &
+     &1.2430e+00_rb,9.6862e-01_rb,6.6782e-01_rb,3.5364e-01_rb,1.0090e-02_rb/)
+      kbo(:, 1,22, 8) = (/ &
+     &3.4101e-01_rb,2.6749e-01_rb,1.8491e-01_rb,9.8339e-02_rb,3.6398e-03_rb/)
+      kbo(:, 2,22, 8) = (/ &
+     &4.7480e-01_rb,3.7184e-01_rb,2.5674e-01_rb,1.3643e-01_rb,4.7506e-03_rb/)
+      kbo(:, 3,22, 8) = (/ &
+     &6.4273e-01_rb,5.0295e-01_rb,3.4722e-01_rb,1.8435e-01_rb,6.0333e-03_rb/)
+      kbo(:, 4,22, 8) = (/ &
+     &8.5104e-01_rb,6.6530e-01_rb,4.5905e-01_rb,2.4340e-01_rb,7.4888e-03_rb/)
+      kbo(:, 5,22, 8) = (/ &
+     &1.1079e+00_rb,8.6526e-01_rb,5.9621e-01_rb,3.1544e-01_rb,9.1269e-03_rb/)
+      kbo(:, 1,23, 8) = (/ &
+     &3.0421e-01_rb,2.3897e-01_rb,1.6516e-01_rb,8.7923e-02_rb,3.2631e-03_rb/)
+      kbo(:, 2,23, 8) = (/ &
+     &4.2200e-01_rb,3.3116e-01_rb,2.2888e-01_rb,1.2169e-01_rb,4.2529e-03_rb/)
+      kbo(:, 3,23, 8) = (/ &
+     &5.7072e-01_rb,4.4747e-01_rb,3.0900e-01_rb,1.6407e-01_rb,5.3912e-03_rb/)
+      kbo(:, 4,23, 8) = (/ &
+     &7.5672e-01_rb,5.9253e-01_rb,4.0891e-01_rb,2.1688e-01_rb,6.6960e-03_rb/)
+      kbo(:, 5,23, 8) = (/ &
+     &9.8731e-01_rb,7.7239e-01_rb,5.3220e-01_rb,2.8204e-01_rb,8.2651e-03_rb/)
+      kbo(:, 1,24, 8) = (/ &
+     &2.7335e-01_rb,2.1493e-01_rb,1.4863e-01_rb,7.9120e-02_rb,2.9206e-03_rb/)
+      kbo(:, 2,24, 8) = (/ &
+     &3.7818e-01_rb,2.9704e-01_rb,2.0533e-01_rb,1.0922e-01_rb,3.7959e-03_rb/)
+      kbo(:, 3,24, 8) = (/ &
+     &5.1197e-01_rb,4.0167e-01_rb,2.7730e-01_rb,1.4723e-01_rb,4.8218e-03_rb/)
+      kbo(:, 4,24, 8) = (/ &
+     &6.8021e-01_rb,5.3323e-01_rb,3.6769e-01_rb,1.9508e-01_rb,6.0367e-03_rb/)
+      kbo(:, 5,24, 8) = (/ &
+     &8.8740e-01_rb,6.9520e-01_rb,4.7892e-01_rb,2.5373e-01_rb,7.4083e-03_rb/)
+      kbo(:, 1,25, 8) = (/ &
+     &2.4667e-01_rb,1.9408e-01_rb,1.3424e-01_rb,7.1436e-02_rb,2.6098e-03_rb/)
+      kbo(:, 2,25, 8) = (/ &
+     &3.4107e-01_rb,2.6809e-01_rb,1.8527e-01_rb,9.8480e-02_rb,3.3820e-03_rb/)
+      kbo(:, 3,25, 8) = (/ &
+     &4.6237e-01_rb,3.6308e-01_rb,2.5057e-01_rb,1.3298e-01_rb,4.3157e-03_rb/)
+      kbo(:, 4,25, 8) = (/ &
+     &6.1385e-01_rb,4.8168e-01_rb,3.3224e-01_rb,1.7632e-01_rb,5.3399e-03_rb/)
+      kbo(:, 5,25, 8) = (/ &
+     &7.9905e-01_rb,6.2682e-01_rb,4.3186e-01_rb,2.2913e-01_rb,6.4913e-03_rb/)
+      kbo(:, 1,26, 8) = (/ &
+     &2.2404e-01_rb,1.7649e-01_rb,1.2214e-01_rb,6.5022e-02_rb,2.3384e-03_rb/)
+      kbo(:, 2,26, 8) = (/ &
+     &3.1013e-01_rb,2.4403e-01_rb,1.6870e-01_rb,8.9741e-02_rb,3.0179e-03_rb/)
+      kbo(:, 3,26, 8) = (/ &
+     &4.2049e-01_rb,3.3066e-01_rb,2.2838e-01_rb,1.2138e-01_rb,3.8039e-03_rb/)
+      kbo(:, 4,26, 8) = (/ &
+     &5.5790e-01_rb,4.3821e-01_rb,3.0237e-01_rb,1.6056e-01_rb,4.6658e-03_rb/)
+      kbo(:, 5,26, 8) = (/ &
+     &7.2377e-01_rb,5.6837e-01_rb,3.9196e-01_rb,2.0795e-01_rb,5.6275e-03_rb/)
+      kbo(:, 1,27, 8) = (/ &
+     &2.0411e-01_rb,1.6088e-01_rb,1.1131e-01_rb,5.9303e-02_rb,2.0568e-03_rb/)
+      kbo(:, 2,27, 8) = (/ &
+     &2.8256e-01_rb,2.2260e-01_rb,1.5392e-01_rb,8.1961e-02_rb,2.6349e-03_rb/)
+      kbo(:, 3,27, 8) = (/ &
+     &3.8251e-01_rb,3.0112e-01_rb,2.0805e-01_rb,1.1068e-01_rb,3.2772e-03_rb/)
+      kbo(:, 4,27, 8) = (/ &
+     &5.0562e-01_rb,3.9785e-01_rb,2.7464e-01_rb,1.4598e-01_rb,4.0077e-03_rb/)
+      kbo(:, 5,27, 8) = (/ &
+     &6.5445e-01_rb,5.1441e-01_rb,3.5497e-01_rb,1.8851e-01_rb,4.8055e-03_rb/)
+      kbo(:, 1,28, 8) = (/ &
+     &1.8628e-01_rb,1.4699e-01_rb,1.0171e-01_rb,5.4235e-02_rb,1.7799e-03_rb/)
+      kbo(:, 2,28, 8) = (/ &
+     &2.5749e-01_rb,2.0322e-01_rb,1.4053e-01_rb,7.4881e-02_rb,2.2515e-03_rb/)
+      kbo(:, 3,28, 8) = (/ &
+     &3.4728e-01_rb,2.7380e-01_rb,1.8920e-01_rb,1.0075e-01_rb,2.7863e-03_rb/)
+      kbo(:, 4,28, 8) = (/ &
+     &4.5755e-01_rb,3.6044e-01_rb,2.4894e-01_rb,1.3243e-01_rb,3.3903e-03_rb/)
+      kbo(:, 5,28, 8) = (/ &
+     &5.9045e-01_rb,4.6494e-01_rb,3.2101e-01_rb,1.7052e-01_rb,4.0404e-03_rb/)
+      kbo(:, 1,29, 8) = (/ &
+     &1.6897e-01_rb,1.3358e-01_rb,9.2501e-02_rb,4.9422e-02_rb,1.5070e-03_rb/)
+      kbo(:, 2,29, 8) = (/ &
+     &2.3294e-01_rb,1.8406e-01_rb,1.2733e-01_rb,6.7942e-02_rb,1.8975e-03_rb/)
+      kbo(:, 3,29, 8) = (/ &
+     &3.1307e-01_rb,2.4704e-01_rb,1.7081e-01_rb,9.1043e-02_rb,2.3375e-03_rb/)
+      kbo(:, 4,29, 8) = (/ &
+     &4.1126e-01_rb,3.2432e-01_rb,2.2417e-01_rb,1.1931e-01_rb,2.8199e-03_rb/)
+      kbo(:, 5,29, 8) = (/ &
+     &5.2992e-01_rb,4.1770e-01_rb,2.8860e-01_rb,1.5337e-01_rb,3.3535e-03_rb/)
+      kbo(:, 1,30, 8) = (/ &
+     &1.5242e-01_rb,1.2071e-01_rb,8.3664e-02_rb,4.4778e-02_rb,1.2669e-03_rb/)
+      kbo(:, 2,30, 8) = (/ &
+     &2.0927e-01_rb,1.6559e-01_rb,1.1465e-01_rb,6.1290e-02_rb,1.5824e-03_rb/)
+      kbo(:, 3,30, 8) = (/ &
+     &2.8036e-01_rb,2.2167e-01_rb,1.5340e-01_rb,8.1865e-02_rb,1.9342e-03_rb/)
+      kbo(:, 4,30, 8) = (/ &
+     &3.6796e-01_rb,2.9065e-01_rb,2.0100e-01_rb,1.0707e-01_rb,2.3143e-03_rb/)
+      kbo(:, 5,30, 8) = (/ &
+     &4.7407e-01_rb,3.7431e-01_rb,2.5849e-01_rb,1.3745e-01_rb,2.7612e-03_rb/)
+      kbo(:, 1,31, 8) = (/ &
+     &1.3611e-01_rb,1.0796e-01_rb,7.4865e-02_rb,4.0122e-02_rb,1.0479e-03_rb/)
+      kbo(:, 2,31, 8) = (/ &
+     &1.8611e-01_rb,1.4751e-01_rb,1.0224e-01_rb,5.4734e-02_rb,1.2997e-03_rb/)
+      kbo(:, 3,31, 8) = (/ &
+     &2.4882e-01_rb,1.9706e-01_rb,1.3650e-01_rb,7.2954e-02_rb,1.5789e-03_rb/)
+      kbo(:, 4,31, 8) = (/ &
+     &3.2631e-01_rb,2.5819e-01_rb,1.7872e-01_rb,9.5286e-02_rb,1.8990e-03_rb/)
+      kbo(:, 5,31, 8) = (/ &
+     &4.2088e-01_rb,3.3264e-01_rb,2.2986e-01_rb,1.2231e-01_rb,2.2523e-03_rb/)
+      kbo(:, 1,32, 8) = (/ &
+     &1.2210e-01_rb,9.6994e-02_rb,6.7326e-02_rb,3.6123e-02_rb,8.5904e-04_rb/)
+      kbo(:, 2,32, 8) = (/ &
+     &1.6652e-01_rb,1.3210e-01_rb,9.1670e-02_rb,4.9107e-02_rb,1.0623e-03_rb/)
+      kbo(:, 3,32, 8) = (/ &
+     &2.2222e-01_rb,1.7626e-01_rb,1.2220e-01_rb,6.5357e-02_rb,1.2931e-03_rb/)
+      kbo(:, 4,32, 8) = (/ &
+     &2.9160e-01_rb,2.3096e-01_rb,1.5993e-01_rb,8.5342e-02_rb,1.5468e-03_rb/)
+      kbo(:, 5,32, 8) = (/ &
+     &3.7617e-01_rb,2.9768e-01_rb,2.0589e-01_rb,1.0971e-01_rb,1.8394e-03_rb/)
+      kbo(:, 1,33, 8) = (/ &
+     &1.0986e-01_rb,8.7382e-02_rb,6.0737e-02_rb,3.2609e-02_rb,7.0177e-04_rb/)
+      kbo(:, 2,33, 8) = (/ &
+     &1.4961e-01_rb,1.1887e-01_rb,8.2542e-02_rb,4.4260e-02_rb,8.6489e-04_rb/)
+      kbo(:, 3,33, 8) = (/ &
+     &1.9974e-01_rb,1.5861e-01_rb,1.0995e-01_rb,5.8836e-02_rb,1.0533e-03_rb/)
+      kbo(:, 4,33, 8) = (/ &
+     &2.6219e-01_rb,2.0793e-01_rb,1.4396e-01_rb,7.6884e-02_rb,1.2624e-03_rb/)
+      kbo(:, 5,33, 8) = (/ &
+     &3.3855e-01_rb,2.6852e-01_rb,1.8574e-01_rb,9.9060e-02_rb,1.4976e-03_rb/)
+      kbo(:, 1,34, 8) = (/ &
+     &9.9355e-02_rb,7.9091e-02_rb,5.5001e-02_rb,2.9534e-02_rb,5.8155e-04_rb/)
+      kbo(:, 2,34, 8) = (/ &
+     &1.3530e-01_rb,1.0764e-01_rb,7.4771e-02_rb,4.0076e-02_rb,7.1503e-04_rb/)
+      kbo(:, 3,34, 8) = (/ &
+     &1.8087e-01_rb,1.4373e-01_rb,9.9666e-02_rb,5.3339e-02_rb,8.6827e-04_rb/)
+      kbo(:, 4,34, 8) = (/ &
+     &2.3750e-01_rb,1.8867e-01_rb,1.3063e-01_rb,6.9822e-02_rb,1.0409e-03_rb/)
+      kbo(:, 5,34, 8) = (/ &
+     &3.0762e-01_rb,2.4432e-01_rb,1.6897e-01_rb,9.0140e-02_rb,1.2357e-03_rb/)
+      kbo(:, 1,35, 8) = (/ &
+     &8.7519e-02_rb,6.9769e-02_rb,4.8552e-02_rb,2.6085e-02_rb,4.6868e-04_rb/)
+      kbo(:, 2,35, 8) = (/ &
+     &1.1953e-01_rb,9.5204e-02_rb,6.6129e-02_rb,3.5470e-02_rb,5.7740e-04_rb/)
+      kbo(:, 3,35, 8) = (/ &
+     &1.6035e-01_rb,1.2756e-01_rb,8.8463e-02_rb,4.7361e-02_rb,7.0118e-04_rb/)
+      kbo(:, 4,35, 8) = (/ &
+     &2.1123e-01_rb,1.6801e-01_rb,1.1639e-01_rb,6.2235e-02_rb,8.4220e-04_rb/)
+      kbo(:, 5,35, 8) = (/ &
+     &2.7484e-01_rb,2.1861e-01_rb,1.5121e-01_rb,8.0717e-02_rb,1.0033e-03_rb/)
+      kbo(:, 1,36, 8) = (/ &
+     &7.4849e-02_rb,5.9737e-02_rb,4.1593e-02_rb,2.2353e-02_rb,3.6660e-04_rb/)
+      kbo(:, 2,36, 8) = (/ &
+     &1.0278e-01_rb,8.1972e-02_rb,5.6955e-02_rb,3.0544e-02_rb,4.5336e-04_rb/)
+      kbo(:, 3,36, 8) = (/ &
+     &1.3843e-01_rb,1.1029e-01_rb,7.6519e-02_rb,4.1000e-02_rb,5.5390e-04_rb/)
+      kbo(:, 4,36, 8) = (/ &
+     &1.8385e-01_rb,1.4649e-01_rb,1.0149e-01_rb,5.4257e-02_rb,6.6682e-04_rb/)
+      kbo(:, 5,36, 8) = (/ &
+     &2.4059e-01_rb,1.9160e-01_rb,1.3256e-01_rb,7.0808e-02_rb,7.9593e-04_rb/)
+      kbo(:, 1,37, 8) = (/ &
+     &6.1778e-02_rb,4.9350e-02_rb,3.4377e-02_rb,1.8481e-02_rb,2.8834e-04_rb/)
+      kbo(:, 2,37, 8) = (/ &
+     &8.5595e-02_rb,6.8343e-02_rb,4.7513e-02_rb,2.5474e-02_rb,3.5693e-04_rb/)
+      kbo(:, 3,37, 8) = (/ &
+     &1.1627e-01_rb,9.2744e-02_rb,6.4387e-02_rb,3.4481e-02_rb,4.3707e-04_rb/)
+      kbo(:, 4,37, 8) = (/ &
+     &1.5562e-01_rb,1.2411e-01_rb,8.6025e-02_rb,4.6007e-02_rb,5.2965e-04_rb/)
+      kbo(:, 5,37, 8) = (/ &
+     &2.0514e-01_rb,1.6357e-01_rb,1.1324e-01_rb,6.0461e-02_rb,6.3315e-04_rb/)
+      kbo(:, 1,38, 8) = (/ &
+     &5.0881e-02_rb,4.0678e-02_rb,2.8356e-02_rb,1.5247e-02_rb,2.2603e-04_rb/)
+      kbo(:, 2,38, 8) = (/ &
+     &7.1115e-02_rb,5.6873e-02_rb,3.9548e-02_rb,2.1211e-02_rb,2.8054e-04_rb/)
+      kbo(:, 3,38, 8) = (/ &
+     &9.7490e-02_rb,7.7896e-02_rb,5.4103e-02_rb,2.8959e-02_rb,3.4399e-04_rb/)
+      kbo(:, 4,38, 8) = (/ &
+     &1.3157e-01_rb,1.0506e-01_rb,7.2849e-02_rb,3.8945e-02_rb,4.1860e-04_rb/)
+      kbo(:, 5,38, 8) = (/ &
+     &1.7483e-01_rb,1.3966e-01_rb,9.6758e-02_rb,5.1645e-02_rb,5.0365e-04_rb/)
+      kbo(:, 1,39, 8) = (/ &
+     &4.1872e-02_rb,3.3548e-02_rb,2.3398e-02_rb,1.2576e-02_rb,1.7614e-04_rb/)
+      kbo(:, 2,39, 8) = (/ &
+     &5.9094e-02_rb,4.7316e-02_rb,3.2924e-02_rb,1.7662e-02_rb,2.1952e-04_rb/)
+      kbo(:, 3,39, 8) = (/ &
+     &8.1814e-02_rb,6.5458e-02_rb,4.5468e-02_rb,2.4343e-02_rb,2.7005e-04_rb/)
+      kbo(:, 4,39, 8) = (/ &
+     &1.1129e-01_rb,8.9026e-02_rb,6.1776e-02_rb,3.3031e-02_rb,3.3030e-04_rb/)
+      kbo(:, 5,39, 8) = (/ &
+     &1.4922e-01_rb,1.1944e-01_rb,8.2784e-02_rb,4.4132e-02_rb,4.0030e-04_rb/)
+      kbo(:, 1,40, 8) = (/ &
+     &3.3647e-02_rb,2.6996e-02_rb,1.8830e-02_rb,1.0123e-02_rb,1.3664e-04_rb/)
+      kbo(:, 2,40, 8) = (/ &
+     &4.8077e-02_rb,3.8535e-02_rb,2.6836e-02_rb,1.4394e-02_rb,1.7115e-04_rb/)
+      kbo(:, 3,40, 8) = (/ &
+     &6.7356e-02_rb,5.3948e-02_rb,3.7498e-02_rb,2.0063e-02_rb,2.1194e-04_rb/)
+      kbo(:, 4,40, 8) = (/ &
+     &9.2612e-02_rb,7.4161e-02_rb,5.1473e-02_rb,2.7514e-02_rb,2.6017e-04_rb/)
+      kbo(:, 5,40, 8) = (/ &
+     &1.2534e-01_rb,1.0040e-01_rb,6.9623e-02_rb,3.7148e-02_rb,3.1694e-04_rb/)
+      kbo(:, 1,41, 8) = (/ &
+     &2.6919e-02_rb,2.1625e-02_rb,1.5091e-02_rb,8.1073e-03_rb,1.0569e-04_rb/)
+      kbo(:, 2,41, 8) = (/ &
+     &3.8959e-02_rb,3.1258e-02_rb,2.1769e-02_rb,1.1674e-02_rb,1.3335e-04_rb/)
+      kbo(:, 3,41, 8) = (/ &
+     &5.5227e-02_rb,4.4304e-02_rb,3.0810e-02_rb,1.6485e-02_rb,1.6620e-04_rb/)
+      kbo(:, 4,41, 8) = (/ &
+     &7.6819e-02_rb,6.1609e-02_rb,4.2770e-02_rb,2.2843e-02_rb,2.0484e-04_rb/)
+      kbo(:, 5,41, 8) = (/ &
+     &1.0504e-01_rb,8.4290e-02_rb,5.8439e-02_rb,3.1171e-02_rb,2.5031e-04_rb/)
+      kbo(:, 1,42, 8) = (/ &
+     &2.1470e-02_rb,1.7281e-02_rb,1.2058e-02_rb,6.4788e-03_rb,8.1238e-05_rb/)
+      kbo(:, 2,42, 8) = (/ &
+     &3.1494e-02_rb,2.5316e-02_rb,1.7631e-02_rb,9.4523e-03_rb,1.0344e-04_rb/)
+      kbo(:, 3,42, 8) = (/ &
+     &4.5222e-02_rb,3.6333e-02_rb,2.5262e-02_rb,1.3522e-02_rb,1.2977e-04_rb/)
+      kbo(:, 4,42, 8) = (/ &
+     &6.3644e-02_rb,5.1128e-02_rb,3.5506e-02_rb,1.8951e-02_rb,1.6105e-04_rb/)
+      kbo(:, 5,42, 8) = (/ &
+     &8.7974e-02_rb,7.0671e-02_rb,4.9043e-02_rb,2.6143e-02_rb,1.9719e-04_rb/)
+      kbo(:, 1,43, 8) = (/ &
+     &1.6861e-02_rb,1.3590e-02_rb,9.4853e-03_rb,5.0945e-03_rb,6.1844e-05_rb/)
+      kbo(:, 2,43, 8) = (/ &
+     &2.5102e-02_rb,2.0210e-02_rb,1.4080e-02_rb,7.5450e-03_rb,7.9573e-05_rb/)
+      kbo(:, 3,43, 8) = (/ &
+     &3.6570e-02_rb,2.9430e-02_rb,2.0473e-02_rb,1.0954e-02_rb,1.0063e-04_rb/)
+      kbo(:, 4,43, 8) = (/ &
+     &5.2231e-02_rb,4.1980e-02_rb,2.9163e-02_rb,1.5562e-02_rb,1.2552e-04_rb/)
+      kbo(:, 5,43, 8) = (/ &
+     &7.3055e-02_rb,5.8741e-02_rb,4.0761e-02_rb,2.1719e-02_rb,1.5491e-04_rb/)
+      kbo(:, 1,44, 8) = (/ &
+     &1.3112e-02_rb,1.0583e-02_rb,7.3867e-03_rb,3.9656e-03_rb,4.6708e-05_rb/)
+      kbo(:, 2,44, 8) = (/ &
+     &1.9838e-02_rb,1.5995e-02_rb,1.1144e-02_rb,5.9703e-03_rb,6.0776e-05_rb/)
+      kbo(:, 3,44, 8) = (/ &
+     &2.9345e-02_rb,2.3649e-02_rb,1.6458e-02_rb,8.7984e-03_rb,7.7487e-05_rb/)
+      kbo(:, 4,44, 8) = (/ &
+     &4.2542e-02_rb,3.4237e-02_rb,2.3782e-02_rb,1.2696e-02_rb,9.7391e-05_rb/)
+      kbo(:, 5,44, 8) = (/ &
+     &6.0327e-02_rb,4.8544e-02_rb,3.3677e-02_rb,1.7934e-02_rb,1.2115e-04_rb/)
+      kbo(:, 1,45, 8) = (/ &
+     &1.0146e-02_rb,8.1985e-03_rb,5.7225e-03_rb,3.0712e-03_rb,3.5068e-05_rb/)
+      kbo(:, 2,45, 8) = (/ &
+     &1.5607e-02_rb,1.2601e-02_rb,8.7806e-03_rb,4.7019e-03_rb,4.6144e-05_rb/)
+      kbo(:, 3,45, 8) = (/ &
+     &2.3451e-02_rb,1.8930e-02_rb,1.3177e-02_rb,7.0434e-03_rb,5.9457e-05_rb/)
+      kbo(:, 4,45, 8) = (/ &
+     &3.4514e-02_rb,2.7825e-02_rb,1.9327e-02_rb,1.0311e-02_rb,7.5434e-05_rb/)
+      kbo(:, 5,45, 8) = (/ &
+     &4.9675e-02_rb,4.0043e-02_rb,2.7784e-02_rb,1.4786e-02_rb,9.4540e-05_rb/)
+      kbo(:, 1,46, 8) = (/ &
+     &7.7351e-03_rb,6.2590e-03_rb,4.3712e-03_rb,2.3470e-03_rb,2.6024e-05_rb/)
+      kbo(:, 2,46, 8) = (/ &
+     &1.2117e-02_rb,9.8019e-03_rb,6.8312e-03_rb,3.6581e-03_rb,3.4737e-05_rb/)
+      kbo(:, 3,46, 8) = (/ &
+     &1.8521e-02_rb,1.4972e-02_rb,1.0423e-02_rb,5.5707e-03_rb,4.5227e-05_rb/)
+      kbo(:, 4,46, 8) = (/ &
+     &2.7718e-02_rb,2.2376e-02_rb,1.5549e-02_rb,8.2942e-03_rb,5.8064e-05_rb/)
+      kbo(:, 5,46, 8) = (/ &
+     &4.0521e-02_rb,3.2720e-02_rb,2.2708e-02_rb,1.2084e-02_rb,7.3480e-05_rb/)
+      kbo(:, 1,47, 8) = (/ &
+     &5.7592e-03_rb,4.6672e-03_rb,3.2593e-03_rb,1.7501e-03_rb,1.9095e-05_rb/)
+      kbo(:, 2,47, 8) = (/ &
+     &9.2060e-03_rb,7.4576e-03_rb,5.1997e-03_rb,2.7848e-03_rb,2.5839e-05_rb/)
+      kbo(:, 3,47, 8) = (/ &
+     &1.4346e-02_rb,1.1614e-02_rb,8.0835e-03_rb,4.3208e-03_rb,3.4203e-05_rb/)
+      kbo(:, 4,47, 8) = (/ &
+     &2.1845e-02_rb,1.7678e-02_rb,1.2284e-02_rb,6.5493e-03_rb,4.4407e-05_rb/)
+      kbo(:, 5,47, 8) = (/ &
+     &3.2496e-02_rb,2.6280e-02_rb,1.8234e-02_rb,9.7018e-03_rb,5.6773e-05_rb/)
+      kbo(:, 1,48, 8) = (/ &
+     &4.2511e-03_rb,3.4498e-03_rb,2.4093e-03_rb,1.2936e-03_rb,1.3859e-05_rb/)
+      kbo(:, 2,48, 8) = (/ &
+     &6.9347e-03_rb,5.6254e-03_rb,3.9226e-03_rb,2.1019e-03_rb,1.9117e-05_rb/)
+      kbo(:, 3,48, 8) = (/ &
+     &1.1018e-02_rb,8.9390e-03_rb,6.2242e-03_rb,3.3284e-03_rb,2.5648e-05_rb/)
+      kbo(:, 4,48, 8) = (/ &
+     &1.7113e-02_rb,1.3870e-02_rb,9.6439e-03_rb,5.1401e-03_rb,3.3736e-05_rb/)
+      kbo(:, 5,48, 8) = (/ &
+     &2.5919e-02_rb,2.1005e-02_rb,1.4575e-02_rb,7.7539e-03_rb,4.3617e-05_rb/)
+      kbo(:, 1,49, 8) = (/ &
+     &3.1098e-03_rb,2.5273e-03_rb,1.7645e-03_rb,9.4708e-04_rb,9.9370e-06_rb/)
+      kbo(:, 2,49, 8) = (/ &
+     &5.1784e-03_rb,4.2068e-03_rb,2.9339e-03_rb,1.5725e-03_rb,1.3987e-05_rb/)
+      kbo(:, 3,49, 8) = (/ &
+     &8.3947e-03_rb,6.8228e-03_rb,4.7538e-03_rb,2.5418e-03_rb,1.9085e-05_rb/)
+      kbo(:, 4,49, 8) = (/ &
+     &1.3293e-02_rb,1.0799e-02_rb,7.5113e-03_rb,4.0058e-03_rb,2.5451e-05_rb/)
+      kbo(:, 5,49, 8) = (/ &
+     &2.0521e-02_rb,1.6668e-02_rb,1.1574e-02_rb,6.1522e-03_rb,3.3363e-05_rb/)
+      kbo(:, 1,50, 8) = (/ &
+     &2.2918e-03_rb,1.8636e-03_rb,1.3008e-03_rb,6.9789e-04_rb,7.1979e-06_rb/)
+      kbo(:, 2,50, 8) = (/ &
+     &3.8913e-03_rb,3.1670e-03_rb,2.2089e-03_rb,1.1842e-03_rb,1.0331e-05_rb/)
+      kbo(:, 3,50, 8) = (/ &
+     &6.4390e-03_rb,5.2441e-03_rb,3.6531e-03_rb,1.9538e-03_rb,1.4344e-05_rb/)
+      kbo(:, 4,50, 8) = (/ &
+     &1.0397e-02_rb,8.4649e-03_rb,5.8892e-03_rb,3.1423e-03_rb,1.9397e-05_rb/)
+      kbo(:, 5,50, 8) = (/ &
+     &1.6371e-02_rb,1.3317e-02_rb,9.2504e-03_rb,4.9185e-03_rb,2.5741e-05_rb/)
+      kbo(:, 1,51, 8) = (/ &
+     &1.6928e-03_rb,1.3767e-03_rb,9.6023e-04_rb,5.1382e-04_rb,5.2246e-06_rb/)
+      kbo(:, 2,51, 8) = (/ &
+     &2.9272e-03_rb,2.3839e-03_rb,1.6628e-03_rb,8.9103e-04_rb,7.6388e-06_rb/)
+      kbo(:, 3,51, 8) = (/ &
+     &4.9429e-03_rb,4.0319e-03_rb,2.8087e-03_rb,1.5020e-03_rb,1.0781e-05_rb/)
+      kbo(:, 4,51, 8) = (/ &
+     &8.1364e-03_rb,6.6389e-03_rb,4.6188e-03_rb,2.4654e-03_rb,1.4827e-05_rb/)
+      kbo(:, 5,51, 8) = (/ &
+     &1.3068e-02_rb,1.0656e-02_rb,7.4020e-03_rb,3.9372e-03_rb,1.9921e-05_rb/)
+      kbo(:, 1,52, 8) = (/ &
+     &1.2399e-03_rb,1.0091e-03_rb,7.0357e-04_rb,3.7650e-04_rb,3.7522e-06_rb/)
+      kbo(:, 2,52, 8) = (/ &
+     &2.1899e-03_rb,1.7829e-03_rb,1.2430e-03_rb,6.6579e-04_rb,5.6100e-06_rb/)
+      kbo(:, 3,52, 8) = (/ &
+     &3.7665e-03_rb,3.0795e-03_rb,2.1447e-03_rb,1.1464e-03_rb,8.0632e-06_rb/)
+      kbo(:, 4,52, 8) = (/ &
+     &6.3261e-03_rb,5.1729e-03_rb,3.5994e-03_rb,1.9224e-03_rb,1.1265e-05_rb/)
+      kbo(:, 5,52, 8) = (/ &
+     &1.0363e-02_rb,8.4710e-03_rb,5.8842e-03_rb,3.1302e-03_rb,1.5370e-05_rb/)
+      kbo(:, 1,53, 8) = (/ &
+     &9.0216e-04_rb,7.3408e-04_rb,5.1164e-04_rb,2.7340e-04_rb,2.6590e-06_rb/)
+      kbo(:, 2,53, 8) = (/ &
+     &1.6262e-03_rb,1.3270e-03_rb,9.2425e-04_rb,4.9425e-04_rb,4.0810e-06_rb/)
+      kbo(:, 3,53, 8) = (/ &
+     &2.8513e-03_rb,2.3327e-03_rb,1.6237e-03_rb,8.6789e-04_rb,5.9668e-06_rb/)
+      kbo(:, 4,53, 8) = (/ &
+     &4.8843e-03_rb,4.0007e-03_rb,2.7846e-03_rb,1.4866e-03_rb,8.4879e-06_rb/)
+      kbo(:, 5,53, 8) = (/ &
+     &8.1619e-03_rb,6.6885e-03_rb,4.6478e-03_rb,2.4735e-03_rb,1.1744e-05_rb/)
+      kbo(:, 1,54, 8) = (/ &
+     &6.6939e-04_rb,5.4497e-04_rb,3.7910e-04_rb,2.0225e-04_rb,1.9239e-06_rb/)
+      kbo(:, 2,54, 8) = (/ &
+     &1.2278e-03_rb,1.0030e-03_rb,6.9836e-04_rb,3.7314e-04_rb,3.0194e-06_rb/)
+      kbo(:, 3,54, 8) = (/ &
+     &2.1984e-03_rb,1.7996e-03_rb,1.2511e-03_rb,6.6777e-04_rb,4.5056e-06_rb/)
+      kbo(:, 4,54, 8) = (/ &
+     &3.8331e-03_rb,3.1457e-03_rb,2.1886e-03_rb,1.1687e-03_rb,6.4964e-06_rb/)
+      kbo(:, 5,54, 8) = (/ &
+     &6.5432e-03_rb,5.3709e-03_rb,3.7307e-03_rb,1.9859e-03_rb,9.1107e-06_rb/)
+      kbo(:, 1,55, 8) = (/ &
+     &5.0111e-04_rb,4.0755e-04_rb,2.8321e-04_rb,1.5081e-04_rb,1.4025e-06_rb/)
+      kbo(:, 2,55, 8) = (/ &
+     &9.3502e-04_rb,7.6365e-04_rb,5.3113e-04_rb,2.8338e-04_rb,2.2498e-06_rb/)
+      kbo(:, 3,55, 8) = (/ &
+     &1.7077e-03_rb,1.3993e-03_rb,9.7261e-04_rb,5.1891e-04_rb,3.4289e-06_rb/)
+      kbo(:, 4,55, 8) = (/ &
+     &3.0342e-03_rb,2.4941e-03_rb,1.7338e-03_rb,9.2454e-04_rb,5.0131e-06_rb/)
+      kbo(:, 5,55, 8) = (/ &
+     &5.2834e-03_rb,4.3447e-03_rb,3.0182e-03_rb,1.6053e-03_rb,7.1210e-06_rb/)
+      kbo(:, 1,56, 8) = (/ &
+     &3.7616e-04_rb,3.0519e-04_rb,2.1170e-04_rb,1.1247e-04_rb,1.0140e-06_rb/)
+      kbo(:, 2,56, 8) = (/ &
+     &7.1281e-04_rb,5.8173e-04_rb,4.0420e-04_rb,2.1505e-04_rb,1.6673e-06_rb/)
+      kbo(:, 3,56, 8) = (/ &
+     &1.3229e-03_rb,1.0846e-03_rb,7.5367e-04_rb,4.0126e-04_rb,2.5921e-06_rb/)
+      kbo(:, 4,56, 8) = (/ &
+     &2.4034e-03_rb,1.9754e-03_rb,1.3714e-03_rb,7.3027e-04_rb,3.8577e-06_rb/)
+      kbo(:, 5,56, 8) = (/ &
+     &4.2589e-03_rb,3.5089e-03_rb,2.4364e-03_rb,1.2956e-03_rb,5.5656e-06_rb/)
+      kbo(:, 1,57, 8) = (/ &
+     &2.8163e-04_rb,2.2851e-04_rb,1.5825e-04_rb,8.3801e-05_rb,7.2920e-07_rb/)
+      kbo(:, 2,57, 8) = (/ &
+     &5.4316e-04_rb,4.4288e-04_rb,3.0736e-04_rb,1.6324e-04_rb,1.2275e-06_rb/)
+      kbo(:, 3,57, 8) = (/ &
+     &1.0242e-03_rb,8.3907e-04_rb,5.8250e-04_rb,3.0984e-04_rb,1.9504e-06_rb/)
+      kbo(:, 4,57, 8) = (/ &
+     &1.8977e-03_rb,1.5630e-03_rb,1.0848e-03_rb,5.7691e-04_rb,2.9526e-06_rb/)
+      kbo(:, 5,57, 8) = (/ &
+     &3.4290e-03_rb,2.8298e-03_rb,1.9639e-03_rb,1.0437e-03_rb,4.3203e-06_rb/)
+      kbo(:, 1,58, 8) = (/ &
+     &1.0299e-04_rb,9.5896e-05_rb,7.7844e-05_rb,4.9788e-05_rb,5.2623e-07_rb/)
+      kbo(:, 2,58, 8) = (/ &
+     &2.0307e-04_rb,1.9013e-04_rb,1.5450e-04_rb,9.9035e-05_rb,9.0616e-07_rb/)
+      kbo(:, 3,58, 8) = (/ &
+     &3.8839e-04_rb,3.6515e-04_rb,2.9695e-04_rb,1.9078e-04_rb,1.4737e-06_rb/)
+      kbo(:, 4,58, 8) = (/ &
+     &7.3294e-04_rb,6.9303e-04_rb,5.6426e-04_rb,3.6255e-04_rb,2.2710e-06_rb/)
+      kbo(:, 5,58, 8) = (/ &
+     &1.3532e-03_rb,1.2806e-03_rb,1.0426e-03_rb,6.7017e-04_rb,3.3698e-06_rb/)
+      kbo(:, 1,59, 8) = (/ &
+     &8.5450e-05_rb,7.9848e-05_rb,6.5073e-05_rb,4.1875e-05_rb,4.3253e-07_rb/)
+      kbo(:, 2,59, 8) = (/ &
+     &1.7170e-04_rb,1.6133e-04_rb,1.3170e-04_rb,8.4866e-05_rb,7.5223e-07_rb/)
+      kbo(:, 3,59, 8) = (/ &
+     &3.3324e-04_rb,3.1480e-04_rb,2.5716e-04_rb,1.6610e-04_rb,1.2329e-06_rb/)
+      kbo(:, 4,59, 8) = (/ &
+     &6.4000e-04_rb,6.0786e-04_rb,4.9691e-04_rb,3.2112e-04_rb,1.9165e-06_rb/)
+      kbo(:, 5,59, 8) = (/ &
+     &1.2020e-03_rb,1.1456e-03_rb,9.3584e-04_rb,6.0398e-04_rb,2.8638e-06_rb/)
+      kbo(:, 1,13, 9) = (/ &
+     &7.4699e+00_rb,5.6062e+00_rb,3.7650e+00_rb,1.9560e+00_rb,8.5273e-02_rb/)
+      kbo(:, 2,13, 9) = (/ &
+     &1.0680e+01_rb,8.0165e+00_rb,5.3854e+00_rb,2.8036e+00_rb,1.0411e-01_rb/)
+      kbo(:, 3,13, 9) = (/ &
+     &1.4623e+01_rb,1.0976e+01_rb,7.3752e+00_rb,3.8391e+00_rb,1.2390e-01_rb/)
+      kbo(:, 4,13, 9) = (/ &
+     &1.9264e+01_rb,1.4459e+01_rb,9.7226e+00_rb,5.0654e+00_rb,1.4616e-01_rb/)
+      kbo(:, 5,13, 9) = (/ &
+     &2.4629e+01_rb,1.8491e+01_rb,1.2437e+01_rb,6.4792e+00_rb,1.7014e-01_rb/)
+      kbo(:, 1,14, 9) = (/ &
+     &6.8938e+00_rb,5.1783e+00_rb,3.4875e+00_rb,1.8264e+00_rb,7.6714e-02_rb/)
+      kbo(:, 2,14, 9) = (/ &
+     &9.8527e+00_rb,7.4006e+00_rb,4.9851e+00_rb,2.6106e+00_rb,9.2077e-02_rb/)
+      kbo(:, 3,14, 9) = (/ &
+     &1.3464e+01_rb,1.0115e+01_rb,6.8188e+00_rb,3.5707e+00_rb,1.0926e-01_rb/)
+      kbo(:, 4,14, 9) = (/ &
+     &1.7717e+01_rb,1.3311e+01_rb,8.9749e+00_rb,4.7000e+00_rb,1.2815e-01_rb/)
+      kbo(:, 5,14, 9) = (/ &
+     &2.2681e+01_rb,1.7041e+01_rb,1.1492e+01_rb,6.0178e+00_rb,1.4885e-01_rb/)
+      kbo(:, 1,15, 9) = (/ &
+     &6.1047e+00_rb,4.5908e+00_rb,3.1074e+00_rb,1.6392e+00_rb,6.2768e-02_rb/)
+      kbo(:, 2,15, 9) = (/ &
+     &8.7019e+00_rb,6.5442e+00_rb,4.4301e+00_rb,2.3356e+00_rb,7.5768e-02_rb/)
+      kbo(:, 3,15, 9) = (/ &
+     &1.1847e+01_rb,8.9091e+00_rb,6.0354e+00_rb,3.1840e+00_rb,9.0152e-02_rb/)
+      kbo(:, 4,15, 9) = (/ &
+     &1.5627e+01_rb,1.1753e+01_rb,7.9592e+00_rb,4.1918e+00_rb,1.0596e-01_rb/)
+      kbo(:, 5,15, 9) = (/ &
+     &2.0065e+01_rb,1.5096e+01_rb,1.0229e+01_rb,5.3867e+00_rb,1.2348e-01_rb/)
+      kbo(:, 1,16, 9) = (/ &
+     &5.2710e+00_rb,3.9706e+00_rb,2.7052e+00_rb,1.4383e+00_rb,5.0640e-02_rb/)
+      kbo(:, 2,16, 9) = (/ &
+     &7.4843e+00_rb,5.6386e+00_rb,3.8435e+00_rb,2.0428e+00_rb,6.0690e-02_rb/)
+      kbo(:, 3,16, 9) = (/ &
+     &1.0203e+01_rb,7.6869e+00_rb,5.2380e+00_rb,2.7809e+00_rb,7.2017e-02_rb/)
+      kbo(:, 4,16, 9) = (/ &
+     &1.3478e+01_rb,1.0155e+01_rb,6.9170e+00_rb,3.6687e+00_rb,8.5243e-02_rb/)
+      kbo(:, 5,16, 9) = (/ &
+     &1.7365e+01_rb,1.3088e+01_rb,8.9123e+00_rb,4.7182e+00_rb,9.9040e-02_rb/)
+      kbo(:, 1,17, 9) = (/ &
+     &4.4902e+00_rb,3.3911e+00_rb,2.3244e+00_rb,1.2481e+00_rb,4.0283e-02_rb/)
+      kbo(:, 2,17, 9) = (/ &
+     &6.3739e+00_rb,4.8152e+00_rb,3.3005e+00_rb,1.7693e+00_rb,4.9025e-02_rb/)
+      kbo(:, 3,17, 9) = (/ &
+     &8.7028e+00_rb,6.5740e+00_rb,4.5022e+00_rb,2.4070e+00_rb,5.9283e-02_rb/)
+      kbo(:, 4,17, 9) = (/ &
+     &1.1530e+01_rb,8.7139e+00_rb,5.9683e+00_rb,3.1839e+00_rb,7.0217e-02_rb/)
+      kbo(:, 5,17, 9) = (/ &
+     &1.4910e+01_rb,1.1266e+01_rb,7.7058e+00_rb,4.0973e+00_rb,8.1092e-02_rb/)
+      kbo(:, 1,18, 9) = (/ &
+     &3.7512e+00_rb,2.8459e+00_rb,1.9612e+00_rb,1.0622e+00_rb,3.4382e-02_rb/)
+      kbo(:, 2,18, 9) = (/ &
+     &5.3265e+00_rb,4.0412e+00_rb,2.7835e+00_rb,1.5026e+00_rb,4.2209e-02_rb/)
+      kbo(:, 3,18, 9) = (/ &
+     &7.2937e+00_rb,5.5341e+00_rb,3.8093e+00_rb,2.0485e+00_rb,5.1165e-02_rb/)
+      kbo(:, 4,18, 9) = (/ &
+     &9.7044e+00_rb,7.3625e+00_rb,5.0637e+00_rb,2.7136e+00_rb,6.0247e-02_rb/)
+      kbo(:, 5,18, 9) = (/ &
+     &1.2597e+01_rb,9.5561e+00_rb,6.5653e+00_rb,3.5052e+00_rb,7.0721e-02_rb/)
+      kbo(:, 1,19, 9) = (/ &
+     &3.1949e+00_rb,2.4358e+00_rb,1.6862e+00_rb,9.1523e-01_rb,2.9755e-02_rb/)
+      kbo(:, 2,19, 9) = (/ &
+     &4.5382e+00_rb,3.4601e+00_rb,2.3940e+00_rb,1.2945e+00_rb,3.7026e-02_rb/)
+      kbo(:, 3,19, 9) = (/ &
+     &6.2344e+00_rb,4.7532e+00_rb,3.2851e+00_rb,1.7697e+00_rb,4.5045e-02_rb/)
+      kbo(:, 4,19, 9) = (/ &
+     &8.3349e+00_rb,6.3521e+00_rb,4.3827e+00_rb,2.3518e+00_rb,5.3532e-02_rb/)
+      kbo(:, 5,19, 9) = (/ &
+     &1.0858e+01_rb,8.2689e+00_rb,5.6978e+00_rb,3.0490e+00_rb,6.2338e-02_rb/)
+      kbo(:, 1,20, 9) = (/ &
+     &2.7983e+00_rb,2.1430e+00_rb,1.4907e+00_rb,8.0787e-01_rb,2.6638e-02_rb/)
+      kbo(:, 2,20, 9) = (/ &
+     &3.9801e+00_rb,3.0473e+00_rb,2.1167e+00_rb,1.1423e+00_rb,3.3344e-02_rb/)
+      kbo(:, 3,20, 9) = (/ &
+     &5.4854e+00_rb,4.1978e+00_rb,2.9095e+00_rb,1.5650e+00_rb,4.0067e-02_rb/)
+      kbo(:, 4,20, 9) = (/ &
+     &7.3522e+00_rb,5.6240e+00_rb,3.8910e+00_rb,2.0868e+00_rb,4.7603e-02_rb/)
+      kbo(:, 5,20, 9) = (/ &
+     &9.6006e+00_rb,7.3375e+00_rb,5.0662e+00_rb,2.7087e+00_rb,5.5504e-02_rb/)
+      kbo(:, 1,21, 9) = (/ &
+     &2.4723e+00_rb,1.9017e+00_rb,1.3269e+00_rb,7.1717e-01_rb,2.3842e-02_rb/)
+      kbo(:, 2,21, 9) = (/ &
+     &3.5234e+00_rb,2.7089e+00_rb,1.8854e+00_rb,1.0156e+00_rb,2.9423e-02_rb/)
+      kbo(:, 3,21, 9) = (/ &
+     &4.8624e+00_rb,3.7359e+00_rb,2.5948e+00_rb,1.3934e+00_rb,3.5538e-02_rb/)
+      kbo(:, 4,21, 9) = (/ &
+     &6.5245e+00_rb,5.0095e+00_rb,3.4715e+00_rb,1.8586e+00_rb,4.1992e-02_rb/)
+      kbo(:, 5,21, 9) = (/ &
+     &8.5269e+00_rb,6.5419e+00_rb,4.5264e+00_rb,2.4180e+00_rb,4.9380e-02_rb/)
+      kbo(:, 1,22, 9) = (/ &
+     &2.2453e+00_rb,1.7353e+00_rb,1.2110e+00_rb,6.5234e-01_rb,2.1295e-02_rb/)
+      kbo(:, 2,22, 9) = (/ &
+     &3.1933e+00_rb,2.4664e+00_rb,1.7176e+00_rb,9.2252e-01_rb,2.6174e-02_rb/)
+      kbo(:, 3,22, 9) = (/ &
+     &4.4012e+00_rb,3.3958e+00_rb,2.3595e+00_rb,1.2638e+00_rb,3.1657e-02_rb/)
+      kbo(:, 4,22, 9) = (/ &
+     &5.8834e+00_rb,4.5350e+00_rb,3.1467e+00_rb,1.6824e+00_rb,3.7644e-02_rb/)
+      kbo(:, 5,22, 9) = (/ &
+     &7.6501e+00_rb,5.8912e+00_rb,4.0828e+00_rb,2.1806e+00_rb,4.4263e-02_rb/)
+      kbo(:, 1,23, 9) = (/ &
+     &2.0571e+00_rb,1.5967e+00_rb,1.1115e+00_rb,5.9605e-01_rb,1.8827e-02_rb/)
+      kbo(:, 2,23, 9) = (/ &
+     &2.9057e+00_rb,2.2535e+00_rb,1.5681e+00_rb,8.3999e-01_rb,2.3337e-02_rb/)
+      kbo(:, 3,23, 9) = (/ &
+     &3.9800e+00_rb,3.0833e+00_rb,2.1434e+00_rb,1.1464e+00_rb,2.8190e-02_rb/)
+      kbo(:, 4,23, 9) = (/ &
+     &5.2885e+00_rb,4.0922e+00_rb,2.8421e+00_rb,1.5182e+00_rb,3.3828e-02_rb/)
+      kbo(:, 5,23, 9) = (/ &
+     &6.8471e+00_rb,5.2918e+00_rb,3.6724e+00_rb,1.9594e+00_rb,3.9956e-02_rb/)
+      kbo(:, 1,24, 9) = (/ &
+     &1.9070e+00_rb,1.4857e+00_rb,1.0329e+00_rb,5.5181e-01_rb,1.6663e-02_rb/)
+      kbo(:, 2,24, 9) = (/ &
+     &2.6677e+00_rb,2.0773e+00_rb,1.4448e+00_rb,7.7214e-01_rb,2.0662e-02_rb/)
+      kbo(:, 3,24, 9) = (/ &
+     &3.6252e+00_rb,2.8187e+00_rb,1.9595e+00_rb,1.0463e+00_rb,2.5179e-02_rb/)
+      kbo(:, 4,24, 9) = (/ &
+     &4.7921e+00_rb,3.7213e+00_rb,2.5847e+00_rb,1.3784e+00_rb,3.0300e-02_rb/)
+      kbo(:, 5,24, 9) = (/ &
+     &6.1875e+00_rb,4.7981e+00_rb,3.3299e+00_rb,1.7738e+00_rb,3.5858e-02_rb/)
+      kbo(:, 1,25, 9) = (/ &
+     &1.7679e+00_rb,1.3823e+00_rb,9.6005e-01_rb,5.1215e-01_rb,1.4756e-02_rb/)
+      kbo(:, 2,25, 9) = (/ &
+     &2.4506e+00_rb,1.9149e+00_rb,1.3310e+00_rb,7.1009e-01_rb,1.8413e-02_rb/)
+      kbo(:, 3,25, 9) = (/ &
+     &3.3092e+00_rb,2.5821e+00_rb,1.7930e+00_rb,9.5566e-01_rb,2.2613e-02_rb/)
+      kbo(:, 4,25, 9) = (/ &
+     &4.3581e+00_rb,3.3956e+00_rb,2.3561e+00_rb,1.2539e+00_rb,2.7407e-02_rb/)
+      kbo(:, 5,25, 9) = (/ &
+     &5.6148e+00_rb,4.3684e+00_rb,3.0296e+00_rb,1.6108e+00_rb,3.2730e-02_rb/)
+      kbo(:, 1,26, 9) = (/ &
+     &1.6550e+00_rb,1.2970e+00_rb,8.9910e-01_rb,4.7856e-01_rb,1.3235e-02_rb/)
+      kbo(:, 2,26, 9) = (/ &
+     &2.2724e+00_rb,1.7804e+00_rb,1.2348e+00_rb,6.5702e-01_rb,1.6632e-02_rb/)
+      kbo(:, 3,26, 9) = (/ &
+     &3.0501e+00_rb,2.3862e+00_rb,1.6545e+00_rb,8.7945e-01_rb,2.0602e-02_rb/)
+      kbo(:, 4,26, 9) = (/ &
+     &3.9998e+00_rb,3.1253e+00_rb,2.1658e+00_rb,1.1505e+00_rb,2.5120e-02_rb/)
+      kbo(:, 5,26, 9) = (/ &
+     &5.1417e+00_rb,4.0125e+00_rb,2.7805e+00_rb,1.4756e+00_rb,3.0188e-02_rb/)
+      kbo(:, 1,27, 9) = (/ &
+     &1.5517e+00_rb,1.2181e+00_rb,8.4303e-01_rb,4.4762e-01_rb,1.1922e-02_rb/)
+      kbo(:, 2,27, 9) = (/ &
+     &2.1187e+00_rb,1.6625e+00_rb,1.1508e+00_rb,6.1078e-01_rb,1.5090e-02_rb/)
+      kbo(:, 3,27, 9) = (/ &
+     &2.8285e+00_rb,2.2174e+00_rb,1.5344e+00_rb,8.1390e-01_rb,1.8733e-02_rb/)
+      kbo(:, 4,27, 9) = (/ &
+     &3.6946e+00_rb,2.8938e+00_rb,2.0026e+00_rb,1.0611e+00_rb,2.2964e-02_rb/)
+      kbo(:, 5,27, 9) = (/ &
+     &4.7297e+00_rb,3.7026e+00_rb,2.5639e+00_rb,1.3585e+00_rb,2.7799e-02_rb/)
+      kbo(:, 1,28, 9) = (/ &
+     &1.4557e+00_rb,1.1450e+00_rb,7.9124e-01_rb,4.1922e-01_rb,1.0671e-02_rb/)
+      kbo(:, 2,28, 9) = (/ &
+     &1.9807e+00_rb,1.5572e+00_rb,1.0762e+00_rb,5.7024e-01_rb,1.3585e-02_rb/)
+      kbo(:, 3,28, 9) = (/ &
+     &2.6353e+00_rb,2.0694e+00_rb,1.4297e+00_rb,7.5652e-01_rb,1.7012e-02_rb/)
+      kbo(:, 4,28, 9) = (/ &
+     &3.4268e+00_rb,2.6900e+00_rb,1.8600e+00_rb,9.8357e-01_rb,2.1005e-02_rb/)
+      kbo(:, 5,28, 9) = (/ &
+     &4.3754e+00_rb,3.4337e+00_rb,2.3745e+00_rb,1.2550e+00_rb,2.5556e-02_rb/)
+      kbo(:, 1,29, 9) = (/ &
+     &1.3575e+00_rb,1.0707e+00_rb,7.3899e-01_rb,3.9163e-01_rb,9.5187e-03_rb/)
+      kbo(:, 2,29, 9) = (/ &
+     &1.8443e+00_rb,1.4534e+00_rb,1.0029e+00_rb,5.3089e-01_rb,1.2207e-02_rb/)
+      kbo(:, 3,29, 9) = (/ &
+     &2.4443e+00_rb,1.9245e+00_rb,1.3293e+00_rb,7.0249e-01_rb,1.5292e-02_rb/)
+      kbo(:, 4,29, 9) = (/ &
+     &3.1715e+00_rb,2.4958e+00_rb,1.7237e+00_rb,9.1036e-01_rb,1.8851e-02_rb/)
+      kbo(:, 5,29, 9) = (/ &
+     &4.0410e+00_rb,3.1790e+00_rb,2.1964e+00_rb,1.1590e+00_rb,2.3121e-02_rb/)
+      kbo(:, 1,30, 9) = (/ &
+     &1.2615e+00_rb,9.9705e-01_rb,6.8810e-01_rb,3.6451e-01_rb,8.4241e-03_rb/)
+      kbo(:, 2,30, 9) = (/ &
+     &1.7102e+00_rb,1.3510e+00_rb,9.3203e-01_rb,4.9262e-01_rb,1.0769e-02_rb/)
+      kbo(:, 3,30, 9) = (/ &
+     &2.2602e+00_rb,1.7845e+00_rb,1.2315e+00_rb,6.5024e-01_rb,1.3569e-02_rb/)
+      kbo(:, 4,30, 9) = (/ &
+     &2.9275e+00_rb,2.3103e+00_rb,1.5947e+00_rb,8.4085e-01_rb,1.6868e-02_rb/)
+      kbo(:, 5,30, 9) = (/ &
+     &3.7272e+00_rb,2.9401e+00_rb,2.0301e+00_rb,1.0701e+00_rb,2.0720e-02_rb/)
+      kbo(:, 1,31, 9) = (/ &
+     &1.1628e+00_rb,9.2130e-01_rb,6.3548e-01_rb,3.3629e-01_rb,7.3212e-03_rb/)
+      kbo(:, 2,31, 9) = (/ &
+     &1.5710e+00_rb,1.2442e+00_rb,8.5840e-01_rb,4.5341e-01_rb,9.4089e-03_rb/)
+      kbo(:, 3,31, 9) = (/ &
+     &2.0741e+00_rb,1.6418e+00_rb,1.1326e+00_rb,5.9743e-01_rb,1.1908e-02_rb/)
+      kbo(:, 4,31, 9) = (/ &
+     &2.6838e+00_rb,2.1236e+00_rb,1.4650e+00_rb,7.7246e-01_rb,1.4841e-02_rb/)
+      kbo(:, 5,31, 9) = (/ &
+     &3.4158e+00_rb,2.7036e+00_rb,1.8662e+00_rb,9.8360e-01_rb,1.8280e-02_rb/)
+      kbo(:, 1,32, 9) = (/ &
+     &1.0770e+00_rb,8.5530e-01_rb,5.8998e-01_rb,3.1205e-01_rb,6.3886e-03_rb/)
+      kbo(:, 2,32, 9) = (/ &
+     &1.4521e+00_rb,1.1529e+00_rb,7.9467e-01_rb,4.1942e-01_rb,8.2479e-03_rb/)
+      kbo(:, 3,32, 9) = (/ &
+     &1.9141e+00_rb,1.5187e+00_rb,1.0473e+00_rb,5.5229e-01_rb,1.0468e-02_rb/)
+      kbo(:, 4,32, 9) = (/ &
+     &2.4773e+00_rb,1.9665e+00_rb,1.3565e+00_rb,7.1494e-01_rb,1.3077e-02_rb/)
+      kbo(:, 5,32, 9) = (/ &
+     &3.1536e+00_rb,2.5044e+00_rb,1.7279e+00_rb,9.1011e-01_rb,1.6196e-02_rb/)
+      kbo(:, 1,33, 9) = (/ &
+     &1.0004e+00_rb,7.9686e-01_rb,5.4943e-01_rb,2.9036e-01_rb,5.6169e-03_rb/)
+      kbo(:, 2,33, 9) = (/ &
+     &1.3472e+00_rb,1.0720e+00_rb,7.3887e-01_rb,3.9002e-01_rb,7.2464e-03_rb/)
+      kbo(:, 3,33, 9) = (/ &
+     &1.7767e+00_rb,1.4145e+00_rb,9.7493e-01_rb,5.1400e-01_rb,9.1682e-03_rb/)
+      kbo(:, 4,33, 9) = (/ &
+     &2.3006e+00_rb,1.8321e+00_rb,1.2634e+00_rb,6.6568e-01_rb,1.1493e-02_rb/)
+      kbo(:, 5,33, 9) = (/ &
+     &2.9306e+00_rb,2.3339e+00_rb,1.6102e+00_rb,8.4827e-01_rb,1.4147e-02_rb/)
+      kbo(:, 1,34, 9) = (/ &
+     &9.3256e-01_rb,7.4416e-01_rb,5.1264e-01_rb,2.7079e-01_rb,4.9465e-03_rb/)
+      kbo(:, 2,34, 9) = (/ &
+     &1.2561e+00_rb,1.0020e+00_rb,6.9034e-01_rb,3.6434e-01_rb,6.3960e-03_rb/)
+      kbo(:, 3,34, 9) = (/ &
+     &1.6587e+00_rb,1.3239e+00_rb,9.1206e-01_rb,4.8092e-01_rb,8.1576e-03_rb/)
+      kbo(:, 4,34, 9) = (/ &
+     &2.1501e+00_rb,1.7167e+00_rb,1.1837e+00_rb,6.2351e-01_rb,1.0194e-02_rb/)
+      kbo(:, 5,34, 9) = (/ &
+     &2.7413e+00_rb,2.1905e+00_rb,1.5115e+00_rb,7.9635e-01_rb,1.2542e-02_rb/)
+      kbo(:, 1,35, 9) = (/ &
+     &8.4840e-01_rb,6.7846e-01_rb,4.6725e-01_rb,2.4678e-01_rb,4.2581e-03_rb/)
+      kbo(:, 2,35, 9) = (/ &
+     &1.1466e+00_rb,9.1713e-01_rb,6.3179e-01_rb,3.3319e-01_rb,5.5317e-03_rb/)
+      kbo(:, 3,35, 9) = (/ &
+     &1.5185e+00_rb,1.2151e+00_rb,8.3727e-01_rb,4.4133e-01_rb,7.0625e-03_rb/)
+      kbo(:, 4,35, 9) = (/ &
+     &1.9737e+00_rb,1.5810e+00_rb,1.0899e+00_rb,5.7421e-01_rb,8.8571e-03_rb/)
+      kbo(:, 5,35, 9) = (/ &
+     &2.5262e+00_rb,2.0251e+00_rb,1.3975e+00_rb,7.3625e-01_rb,1.0897e-02_rb/)
+      kbo(:, 1,36, 9) = (/ &
+     &7.5165e-01_rb,6.0226e-01_rb,4.1465e-01_rb,2.1892e-01_rb,3.5512e-03_rb/)
+      kbo(:, 2,36, 9) = (/ &
+     &1.0210e+00_rb,8.1866e-01_rb,5.6371e-01_rb,2.9729e-01_rb,4.6496e-03_rb/)
+      kbo(:, 3,36, 9) = (/ &
+     &1.3584e+00_rb,1.0902e+00_rb,7.5109e-01_rb,3.9583e-01_rb,5.9580e-03_rb/)
+      kbo(:, 4,36, 9) = (/ &
+     &1.7752e+00_rb,1.4261e+00_rb,9.8305e-01_rb,5.1817e-01_rb,7.4947e-03_rb/)
+      kbo(:, 5,36, 9) = (/ &
+     &2.2842e+00_rb,1.8370e+00_rb,1.2679e+00_rb,6.6806e-01_rb,9.2616e-03_rb/)
+      kbo(:, 1,37, 9) = (/ &
+     &6.4071e-01_rb,5.1457e-01_rb,3.5423e-01_rb,1.8691e-01_rb,2.9273e-03_rb/)
+      kbo(:, 2,37, 9) = (/ &
+     &8.7819e-01_rb,7.0566e-01_rb,4.8576e-01_rb,2.5612e-01_rb,3.8482e-03_rb/)
+      kbo(:, 3,37, 9) = (/ &
+     &1.1781e+00_rb,9.4755e-01_rb,6.5255e-01_rb,3.4395e-01_rb,4.9507e-03_rb/)
+      kbo(:, 4,37, 9) = (/ &
+     &1.5513e+00_rb,1.2498e+00_rb,8.6132e-01_rb,4.5404e-01_rb,6.2679e-03_rb/)
+      kbo(:, 5,37, 9) = (/ &
+     &2.0117e+00_rb,1.6227e+00_rb,1.1201e+00_rb,5.9042e-01_rb,7.7688e-03_rb/)
+      kbo(:, 1,38, 9) = (/ &
+     &5.4507e-01_rb,4.3885e-01_rb,3.0197e-01_rb,1.5934e-01_rb,2.3915e-03_rb/)
+      kbo(:, 2,38, 9) = (/ &
+     &7.5435e-01_rb,6.0772e-01_rb,4.1826e-01_rb,2.2053e-01_rb,3.1638e-03_rb/)
+      kbo(:, 3,38, 9) = (/ &
+     &1.0211e+00_rb,8.2323e-01_rb,5.6695e-01_rb,2.9883e-01_rb,4.0903e-03_rb/)
+      kbo(:, 4,38, 9) = (/ &
+     &1.3557e+00_rb,1.0950e+00_rb,7.5476e-01_rb,3.9799e-01_rb,5.2077e-03_rb/)
+      kbo(:, 5,38, 9) = (/ &
+     &1.7730e+00_rb,1.4345e+00_rb,9.9017e-01_rb,5.2203e-01_rb,6.5004e-03_rb/)
+      kbo(:, 1,39, 9) = (/ &
+     &4.6353e-01_rb,3.7406e-01_rb,2.5754e-01_rb,1.3588e-01_rb,1.9343e-03_rb/)
+      kbo(:, 2,39, 9) = (/ &
+     &6.4812e-01_rb,5.2360e-01_rb,3.6039e-01_rb,1.9002e-01_rb,2.5847e-03_rb/)
+      kbo(:, 3,39, 9) = (/ &
+     &8.8607e-01_rb,7.1665e-01_rb,4.9365e-01_rb,2.6013e-01_rb,3.3630e-03_rb/)
+      kbo(:, 4,39, 9) = (/ &
+     &1.1877e+00_rb,9.6199e-01_rb,6.6338e-01_rb,3.4986e-01_rb,4.2963e-03_rb/)
+      kbo(:, 5,39, 9) = (/ &
+     &1.5671e+00_rb,1.2712e+00_rb,8.7761e-01_rb,4.6286e-01_rb,5.3839e-03_rb/)
+      kbo(:, 1,40, 9) = (/ &
+     &3.8448e-01_rb,3.1107e-01_rb,2.1410e-01_rb,1.1297e-01_rb,1.5568e-03_rb/)
+      kbo(:, 2,40, 9) = (/ &
+     &5.4501e-01_rb,4.4126e-01_rb,3.0380e-01_rb,1.6009e-01_rb,2.1042e-03_rb/)
+      kbo(:, 3,40, 9) = (/ &
+     &7.5403e-01_rb,6.1132e-01_rb,4.2098e-01_rb,2.2180e-01_rb,2.7494e-03_rb/)
+      kbo(:, 4,40, 9) = (/ &
+     &1.0220e+00_rb,8.2995e-01_rb,5.7215e-01_rb,3.0165e-01_rb,3.5443e-03_rb/)
+      kbo(:, 5,40, 9) = (/ &
+     &1.3627e+00_rb,1.1080e+00_rb,7.6492e-01_rb,4.0348e-01_rb,4.4643e-03_rb/)
+      kbo(:, 1,41, 9) = (/ &
+     &3.1745e-01_rb,2.5733e-01_rb,1.7713e-01_rb,9.3436e-02_rb,1.2472e-03_rb/)
+      kbo(:, 2,41, 9) = (/ &
+     &4.5638e-01_rb,3.7042e-01_rb,2.5491e-01_rb,1.3436e-01_rb,1.6993e-03_rb/)
+      kbo(:, 3,41, 9) = (/ &
+     &6.3982e-01_rb,5.1972e-01_rb,3.5784e-01_rb,1.8851e-01_rb,2.2393e-03_rb/)
+      kbo(:, 4,41, 9) = (/ &
+     &8.7763e-01_rb,7.1397e-01_rb,4.9232e-01_rb,2.5948e-01_rb,2.9086e-03_rb/)
+      kbo(:, 5,41, 9) = (/ &
+     &1.1829e+00_rb,9.6420e-01_rb,6.6569e-01_rb,3.5114e-01_rb,3.6948e-03_rb/)
+      kbo(:, 1,42, 9) = (/ &
+     &2.6148e-01_rb,2.1244e-01_rb,1.4620e-01_rb,7.7106e-02_rb,9.9249e-04_rb/)
+      kbo(:, 2,42, 9) = (/ &
+     &3.8152e-01_rb,3.1036e-01_rb,2.1367e-01_rb,1.1258e-01_rb,1.3669e-03_rb/)
+      kbo(:, 3,42, 9) = (/ &
+     &5.4219e-01_rb,4.4152e-01_rb,3.0416e-01_rb,1.6017e-01_rb,1.8223e-03_rb/)
+      kbo(:, 4,42, 9) = (/ &
+     &7.5310e-01_rb,6.1412e-01_rb,4.2345e-01_rb,2.2321e-01_rb,2.3766e-03_rb/)
+      kbo(:, 5,42, 9) = (/ &
+     &1.0272e+00_rb,8.3945e-01_rb,5.7960e-01_rb,3.0577e-01_rb,3.0463e-03_rb/)
+      kbo(:, 1,43, 9) = (/ &
+     &2.1184e-01_rb,1.7233e-01_rb,1.1866e-01_rb,6.2577e-02_rb,7.7589e-04_rb/)
+      kbo(:, 2,43, 9) = (/ &
+     &3.1451e-01_rb,2.5652e-01_rb,1.7660e-01_rb,9.2987e-02_rb,1.0831e-03_rb/)
+      kbo(:, 3,43, 9) = (/ &
+     &4.5438e-01_rb,3.7074e-01_rb,2.5543e-01_rb,1.3448e-01_rb,1.4611e-03_rb/)
+      kbo(:, 4,43, 9) = (/ &
+     &6.4007e-01_rb,5.2328e-01_rb,3.6079e-01_rb,1.9007e-01_rb,1.9178e-03_rb/)
+      kbo(:, 5,43, 9) = (/ &
+     &8.8479e-01_rb,7.2477e-01_rb,5.0046e-01_rb,2.6398e-01_rb,2.4774e-03_rb/)
+      kbo(:, 1,44, 9) = (/ &
+     &1.6982e-01_rb,1.3846e-01_rb,9.5299e-02_rb,5.0248e-02_rb,5.9857e-04_rb/)
+      kbo(:, 2,44, 9) = (/ &
+     &2.5706e-01_rb,2.1005e-01_rb,1.4462e-01_rb,7.6126e-02_rb,8.4785e-04_rb/)
+      kbo(:, 3,44, 9) = (/ &
+     &3.7786e-01_rb,3.0904e-01_rb,2.1286e-01_rb,1.1204e-01_rb,1.1605e-03_rb/)
+      kbo(:, 4,44, 9) = (/ &
+     &5.4071e-01_rb,4.4303e-01_rb,3.0555e-01_rb,1.6090e-01_rb,1.5453e-03_rb/)
+      kbo(:, 5,44, 9) = (/ &
+     &7.5841e-01_rb,6.2258e-01_rb,4.2996e-01_rb,2.2675e-01_rb,1.9959e-03_rb/)
+      kbo(:, 1,45, 9) = (/ &
+     &1.3545e-01_rb,1.1062e-01_rb,7.6155e-02_rb,4.0151e-02_rb,4.5711e-04_rb/)
+      kbo(:, 2,45, 9) = (/ &
+     &2.0919e-01_rb,1.7120e-01_rb,1.1790e-01_rb,6.2073e-02_rb,6.5798e-04_rb/)
+      kbo(:, 3,45, 9) = (/ &
+     &3.1316e-01_rb,2.5663e-01_rb,1.7679e-01_rb,9.2995e-02_rb,9.1164e-04_rb/)
+      kbo(:, 4,45, 9) = (/ &
+     &4.5567e-01_rb,3.7416e-01_rb,2.5813e-01_rb,1.3590e-01_rb,1.2287e-03_rb/)
+      kbo(:, 5,45, 9) = (/ &
+     &6.4919e-01_rb,5.3401e-01_rb,3.6882e-01_rb,1.9448e-01_rb,1.6029e-03_rb/)
+      kbo(:, 1,46, 9) = (/ &
+     &1.0668e-01_rb,8.7165e-02_rb,6.0007e-02_rb,3.1628e-02_rb,3.4444e-04_rb/)
+      kbo(:, 2,46, 9) = (/ &
+     &1.6793e-01_rb,1.3770e-01_rb,9.4805e-02_rb,4.9929e-02_rb,5.0372e-04_rb/)
+      kbo(:, 3,46, 9) = (/ &
+     &2.5640e-01_rb,2.1057e-01_rb,1.4511e-01_rb,7.6324e-02_rb,7.0786e-04_rb/)
+      kbo(:, 4,46, 9) = (/ &
+     &3.8014e-01_rb,3.1276e-01_rb,2.1587e-01_rb,1.1362e-01_rb,9.6784e-04_rb/)
+      kbo(:, 5,46, 9) = (/ &
+     &5.5078e-01_rb,4.5406e-01_rb,3.1364e-01_rb,1.6534e-01_rb,1.2803e-03_rb/)
+      kbo(:, 1,47, 9) = (/ &
+     &8.2159e-02_rb,6.7194e-02_rb,4.6255e-02_rb,2.4369e-02_rb,2.5696e-04_rb/)
+      kbo(:, 2,47, 9) = (/ &
+     &1.3183e-01_rb,1.0829e-01_rb,7.4558e-02_rb,3.9260e-02_rb,3.8064e-04_rb/)
+      kbo(:, 3,47, 9) = (/ &
+     &2.0579e-01_rb,1.6932e-01_rb,1.1664e-01_rb,6.1365e-02_rb,5.4299e-04_rb/)
+      kbo(:, 4,47, 9) = (/ &
+     &3.1127e-01_rb,2.5673e-01_rb,1.7713e-01_rb,9.3234e-02_rb,7.5354e-04_rb/)
+      kbo(:, 5,47, 9) = (/ &
+     &4.5944e-01_rb,3.7947e-01_rb,2.6220e-01_rb,1.3818e-01_rb,1.0123e-03_rb/)
+      kbo(:, 1,48, 9) = (/ &
+     &6.2805e-02_rb,5.1372e-02_rb,3.5337e-02_rb,1.8627e-02_rb,1.8799e-04_rb/)
+      kbo(:, 2,48, 9) = (/ &
+     &1.0282e-01_rb,8.4440e-02_rb,5.8150e-02_rb,3.0624e-02_rb,2.8497e-04_rb/)
+      kbo(:, 3,48, 9) = (/ &
+     &1.6397e-01_rb,1.3516e-01_rb,9.3148e-02_rb,4.8994e-02_rb,4.1296e-04_rb/)
+      kbo(:, 4,48, 9) = (/ &
+     &2.5353e-01_rb,2.0948e-01_rb,1.4454e-01_rb,7.6030e-02_rb,5.7970e-04_rb/)
+      kbo(:, 5,48, 9) = (/ &
+     &3.8151e-01_rb,3.1578e-01_rb,2.1823e-01_rb,1.1499e-01_rb,7.9062e-04_rb/)
+      kbo(:, 1,49, 9) = (/ &
+     &4.7675e-02_rb,3.9033e-02_rb,2.6875e-02_rb,1.4167e-02_rb,1.3591e-04_rb/)
+      kbo(:, 2,49, 9) = (/ &
+     &7.9683e-02_rb,6.5540e-02_rb,4.5120e-02_rb,2.3756e-02_rb,2.0952e-04_rb/)
+      kbo(:, 3,49, 9) = (/ &
+     &1.2966e-01_rb,1.0708e-01_rb,7.3804e-02_rb,3.8837e-02_rb,3.0991e-04_rb/)
+      kbo(:, 4,49, 9) = (/ &
+     &2.0506e-01_rb,1.6980e-01_rb,1.1714e-01_rb,6.1628e-02_rb,4.4095e-04_rb/)
+      kbo(:, 5,49, 9) = (/ &
+     &3.1515e-01_rb,2.6147e-01_rb,1.8074e-01_rb,9.5226e-02_rb,6.0820e-04_rb/)
+      kbo(:, 1,50, 9) = (/ &
+     &3.6548e-02_rb,2.9943e-02_rb,2.0610e-02_rb,1.0865e-02_rb,9.9917e-05_rb/)
+      kbo(:, 2,50, 9) = (/ &
+     &6.2279e-02_rb,5.1209e-02_rb,3.5254e-02_rb,1.8566e-02_rb,1.5653e-04_rb/)
+      kbo(:, 3,50, 9) = (/ &
+     &1.0318e-01_rb,8.5332e-02_rb,5.8808e-02_rb,3.0962e-02_rb,2.3703e-04_rb/)
+      kbo(:, 4,50, 9) = (/ &
+     &1.6688e-01_rb,1.3839e-01_rb,9.5487e-02_rb,5.0236e-02_rb,3.4171e-04_rb/)
+      kbo(:, 5,50, 9) = (/ &
+     &2.6185e-01_rb,2.1767e-01_rb,1.5045e-01_rb,7.9263e-02_rb,4.7617e-04_rb/)
+      kbo(:, 1,51, 9) = (/ &
+     &2.7952e-02_rb,2.2969e-02_rb,1.5811e-02_rb,8.3417e-03_rb,7.4671e-05_rb/)
+      kbo(:, 2,51, 9) = (/ &
+     &4.8817e-02_rb,4.0171e-02_rb,2.7641e-02_rb,1.4555e-02_rb,1.1814e-04_rb/)
+      kbo(:, 3,51, 9) = (/ &
+     &8.2508e-02_rb,6.8219e-02_rb,4.6983e-02_rb,2.4707e-02_rb,1.8096e-04_rb/)
+      kbo(:, 4,51, 9) = (/ &
+     &1.3588e-01_rb,1.1285e-01_rb,7.7859e-02_rb,4.0970e-02_rb,2.6754e-04_rb/)
+      kbo(:, 5,51, 9) = (/ &
+     &2.1776e-01_rb,1.8131e-01_rb,1.2532e-01_rb,6.5999e-02_rb,3.7856e-04_rb/)
+      kbo(:, 1,52, 9) = (/ &
+     &2.1199e-02_rb,1.7459e-02_rb,1.2025e-02_rb,6.3452e-03_rb,5.5107e-05_rb/)
+      kbo(:, 2,52, 9) = (/ &
+     &3.8088e-02_rb,3.1354e-02_rb,2.1571e-02_rb,1.1353e-02_rb,8.8069e-05_rb/)
+      kbo(:, 3,52, 9) = (/ &
+     &6.5619e-02_rb,5.4321e-02_rb,3.7416e-02_rb,1.9692e-02_rb,1.3680e-04_rb/)
+      kbo(:, 4,52, 9) = (/ &
+     &1.1018e-01_rb,9.1593e-02_rb,6.3191e-02_rb,3.3254e-02_rb,2.0641e-04_rb/)
+      kbo(:, 5,52, 9) = (/ &
+     &1.8039e-01_rb,1.5044e-01_rb,1.0398e-01_rb,5.4762e-02_rb,2.9766e-04_rb/)
+      kbo(:, 1,53, 9) = (/ &
+     &1.5917e-02_rb,1.3124e-02_rb,9.0469e-03_rb,4.7728e-03_rb,4.0227e-05_rb/)
+      kbo(:, 2,53, 9) = (/ &
+     &2.9453e-02_rb,2.4295e-02_rb,1.6728e-02_rb,8.8064e-03_rb,6.5428e-05_rb/)
+      kbo(:, 3,53, 9) = (/ &
+     &5.2020e-02_rb,4.3058e-02_rb,2.9653e-02_rb,1.5599e-02_rb,1.0270e-04_rb/)
+      kbo(:, 4,53, 9) = (/ &
+     &8.9031e-02_rb,7.3955e-02_rb,5.0990e-02_rb,2.6843e-02_rb,1.5632e-04_rb/)
+      kbo(:, 5,53, 9) = (/ &
+     &1.4878e-01_rb,1.2427e-01_rb,8.5889e-02_rb,4.5242e-02_rb,2.3095e-04_rb/)
+      kbo(:, 1,54, 9) = (/ &
+     &1.2118e-02_rb,1.0014e-02_rb,6.9093e-03_rb,3.6479e-03_rb,3.0413e-05_rb/)
+      kbo(:, 2,54, 9) = (/ &
+     &2.3157e-02_rb,1.9122e-02_rb,1.3172e-02_rb,6.9364e-03_rb,5.0720e-05_rb/)
+      kbo(:, 3,54, 9) = (/ &
+     &4.1929e-02_rb,3.4711e-02_rb,2.3913e-02_rb,1.2578e-02_rb,8.0499e-05_rb/)
+      kbo(:, 4,54, 9) = (/ &
+     &7.3182e-02_rb,6.0821e-02_rb,4.1911e-02_rb,2.2054e-02_rb,1.2452e-04_rb/)
+      kbo(:, 5,54, 9) = (/ &
+     &1.2434e-01_rb,1.0391e-01_rb,7.1807e-02_rb,3.7810e-02_rb,1.8706e-04_rb/)
+      kbo(:, 1,55, 9) = (/ &
+     &9.2663e-03_rb,7.6785e-03_rb,5.3030e-03_rb,2.7962e-03_rb,2.3331e-05_rb/)
+      kbo(:, 2,55, 9) = (/ &
+     &1.8303e-02_rb,1.5169e-02_rb,1.0453e-02_rb,5.5039e-03_rb,4.0062e-05_rb/)
+      kbo(:, 3,55, 9) = (/ &
+     &3.4131e-02_rb,2.8258e-02_rb,1.9454e-02_rb,1.0230e-02_rb,6.4887e-05_rb/)
+      kbo(:, 4,55, 9) = (/ &
+     &6.0672e-02_rb,5.0398e-02_rb,3.4733e-02_rb,1.8270e-02_rb,1.0169e-04_rb/)
+      kbo(:, 5,55, 9) = (/ &
+     &1.0468e-01_rb,8.7488e-02_rb,6.0450e-02_rb,3.1810e-02_rb,1.5537e-04_rb/)
+      kbo(:, 1,56, 9) = (/ &
+     &7.0383e-03_rb,5.8452e-03_rb,4.0381e-03_rb,2.1288e-03_rb,1.7811e-05_rb/)
+      kbo(:, 2,56, 9) = (/ &
+     &1.4408e-02_rb,1.1966e-02_rb,8.2523e-03_rb,4.3448e-03_rb,3.1488e-05_rb/)
+      kbo(:, 3,56, 9) = (/ &
+     &2.7695e-02_rb,2.2953e-02_rb,1.5811e-02_rb,8.3080e-03_rb,5.2239e-05_rb/)
+      kbo(:, 4,56, 9) = (/ &
+     &5.0327e-02_rb,4.1815e-02_rb,2.8827e-02_rb,1.5149e-02_rb,8.2952e-05_rb/)
+      kbo(:, 5,56, 9) = (/ &
+     &8.8477e-02_rb,7.3786e-02_rb,5.0905e-02_rb,2.6783e-02_rb,1.2900e-04_rb/)
+      kbo(:, 1,57, 9) = (/ &
+     &5.2984e-03_rb,4.4048e-03_rb,3.0442e-03_rb,1.6062e-03_rb,1.3485e-05_rb/)
+      kbo(:, 2,57, 9) = (/ &
+     &1.1277e-02_rb,9.3839e-03_rb,6.4745e-03_rb,3.4126e-03_rb,2.4664e-05_rb/)
+      kbo(:, 3,57, 9) = (/ &
+     &2.2383e-02_rb,1.8598e-02_rb,1.2810e-02_rb,6.7278e-03_rb,4.2073e-05_rb/)
+      kbo(:, 4,57, 9) = (/ &
+     &4.1793e-02_rb,3.4722e-02_rb,2.3901e-02_rb,1.2561e-02_rb,6.8099e-05_rb/)
+      kbo(:, 5,57, 9) = (/ &
+     &7.4879e-02_rb,6.2449e-02_rb,4.3075e-02_rb,2.2643e-02_rb,1.0701e-04_rb/)
+      kbo(:, 1,58, 9) = (/ &
+     &1.9422e-03_rb,1.8562e-03_rb,1.5070e-03_rb,9.6178e-04_rb,1.0242e-05_rb/)
+      kbo(:, 2,58, 9) = (/ &
+     &4.2963e-03_rb,4.1126e-03_rb,3.3378e-03_rb,2.1278e-03_rb,1.9475e-05_rb/)
+      kbo(:, 3,58, 9) = (/ &
+     &8.8321e-03_rb,8.4312e-03_rb,6.8267e-03_rb,4.3437e-03_rb,3.4347e-05_rb/)
+      kbo(:, 4,58, 9) = (/ &
+     &1.7006e-02_rb,1.6220e-02_rb,1.3112e-02_rb,8.3245e-03_rb,5.6453e-05_rb/)
+      kbo(:, 5,58, 9) = (/ &
+     &3.1001e-02_rb,2.9664e-02_rb,2.4013e-02_rb,1.5274e-02_rb,9.0315e-05_rb/)
+      kbo(:, 1,59, 9) = (/ &
+     &1.6680e-03_rb,1.5995e-03_rb,1.3049e-03_rb,8.3836e-04_rb,9.2179e-06_rb/)
+      kbo(:, 2,59, 9) = (/ &
+     &3.7712e-03_rb,3.6258e-03_rb,2.9561e-03_rb,1.8979e-03_rb,1.8017e-05_rb/)
+      kbo(:, 3,59, 9) = (/ &
+     &7.9144e-03_rb,7.6082e-03_rb,6.1886e-03_rb,3.9647e-03_rb,3.2435e-05_rb/)
+      kbo(:, 4,59, 9) = (/ &
+     &1.5562e-02_rb,1.4917e-02_rb,1.2127e-02_rb,7.7579e-03_rb,5.4862e-05_rb/)
+      kbo(:, 5,59, 9) = (/ &
+     &2.8789e-02_rb,2.7607e-02_rb,2.2446e-02_rb,1.4356e-02_rb,8.9155e-05_rb/)
+      kbo(:, 1,13,10) = (/ &
+     &3.5965e+01_rb,2.6975e+01_rb,1.7984e+01_rb,9.0232e+00_rb,2.4705e-01_rb/)
+      kbo(:, 2,13,10) = (/ &
+     &5.0800e+01_rb,3.8101e+01_rb,2.5403e+01_rb,1.2739e+01_rb,2.8941e-01_rb/)
+      kbo(:, 3,13,10) = (/ &
+     &6.8409e+01_rb,5.1309e+01_rb,3.4208e+01_rb,1.7156e+01_rb,3.3771e-01_rb/)
+      kbo(:, 4,13,10) = (/ &
+     &8.8981e+01_rb,6.6739e+01_rb,4.4497e+01_rb,2.2337e+01_rb,3.9418e-01_rb/)
+      kbo(:, 5,13,10) = (/ &
+     &1.1252e+02_rb,8.4389e+01_rb,5.6260e+01_rb,2.8284e+01_rb,4.6348e-01_rb/)
+      kbo(:, 1,14,10) = (/ &
+     &3.4773e+01_rb,2.6079e+01_rb,1.7386e+01_rb,8.7850e+00_rb,2.3514e-01_rb/)
+      kbo(:, 2,14,10) = (/ &
+     &4.8754e+01_rb,3.6565e+01_rb,2.4376e+01_rb,1.2316e+01_rb,2.9035e-01_rb/)
+      kbo(:, 3,14,10) = (/ &
+     &6.5535e+01_rb,4.9151e+01_rb,3.2769e+01_rb,1.6566e+01_rb,3.5401e-01_rb/)
+      kbo(:, 4,14,10) = (/ &
+     &8.5152e+01_rb,6.3871e+01_rb,4.2583e+01_rb,2.1543e+01_rb,4.0952e-01_rb/)
+      kbo(:, 5,14,10) = (/ &
+     &1.0714e+02_rb,8.0354e+01_rb,5.3570e+01_rb,2.7127e+01_rb,4.6861e-01_rb/)
+      kbo(:, 1,15,10) = (/ &
+     &3.1708e+01_rb,2.3780e+01_rb,1.5854e+01_rb,8.0780e+00_rb,2.2725e-01_rb/)
+      kbo(:, 2,15,10) = (/ &
+     &4.4299e+01_rb,3.3227e+01_rb,2.2149e+01_rb,1.1301e+01_rb,2.7237e-01_rb/)
+      kbo(:, 3,15,10) = (/ &
+     &5.9451e+01_rb,4.4587e+01_rb,2.9727e+01_rb,1.5175e+01_rb,3.1480e-01_rb/)
+      kbo(:, 4,15,10) = (/ &
+     &7.6914e+01_rb,5.7688e+01_rb,3.8460e+01_rb,1.9633e+01_rb,3.5895e-01_rb/)
+      kbo(:, 5,15,10) = (/ &
+     &9.6187e+01_rb,7.2137e+01_rb,4.8097e+01_rb,2.4537e+01_rb,4.0136e-01_rb/)
+      kbo(:, 1,16,10) = (/ &
+     &2.8000e+01_rb,2.1001e+01_rb,1.4008e+01_rb,7.1879e+00_rb,1.8684e-01_rb/)
+      kbo(:, 2,16,10) = (/ &
+     &3.8983e+01_rb,2.9238e+01_rb,1.9500e+01_rb,1.0007e+01_rb,2.3111e-01_rb/)
+      kbo(:, 3,16,10) = (/ &
+     &5.2090e+01_rb,3.9071e+01_rb,2.6063e+01_rb,1.3380e+01_rb,2.7168e-01_rb/)
+      kbo(:, 4,16,10) = (/ &
+     &6.6962e+01_rb,5.0223e+01_rb,3.3517e+01_rb,1.7217e+01_rb,3.1091e-01_rb/)
+      kbo(:, 5,16,10) = (/ &
+     &8.3570e+01_rb,6.2687e+01_rb,4.1858e+01_rb,2.1531e+01_rb,3.6276e-01_rb/)
+      kbo(:, 1,17,10) = (/ &
+     &2.4264e+01_rb,1.8198e+01_rb,1.2195e+01_rb,6.2664e+00_rb,1.7021e-01_rb/)
+      kbo(:, 2,17,10) = (/ &
+     &3.3645e+01_rb,2.5234e+01_rb,1.6913e+01_rb,8.7049e+00_rb,1.9751e-01_rb/)
+      kbo(:, 3,17,10) = (/ &
+     &4.4643e+01_rb,3.3486e+01_rb,2.2452e+01_rb,1.1586e+01_rb,2.2201e-01_rb/)
+      kbo(:, 4,17,10) = (/ &
+     &5.7207e+01_rb,4.2902e+01_rb,2.8791e+01_rb,1.4899e+01_rb,2.5554e-01_rb/)
+      kbo(:, 5,17,10) = (/ &
+     &7.1193e+01_rb,5.3402e+01_rb,3.5856e+01_rb,1.8608e+01_rb,2.9547e-01_rb/)
+      kbo(:, 1,18,10) = (/ &
+     &2.0477e+01_rb,1.5356e+01_rb,1.0367e+01_rb,5.3622e+00_rb,1.3534e-01_rb/)
+      kbo(:, 2,18,10) = (/ &
+     &2.8178e+01_rb,2.1132e+01_rb,1.4278e+01_rb,7.4149e+00_rb,1.5634e-01_rb/)
+      kbo(:, 3,18,10) = (/ &
+     &3.7210e+01_rb,2.7911e+01_rb,1.8862e+01_rb,9.8384e+00_rb,1.8020e-01_rb/)
+      kbo(:, 4,18,10) = (/ &
+     &4.7546e+01_rb,3.5659e+01_rb,2.4100e+01_rb,1.2600e+01_rb,2.1507e-01_rb/)
+      kbo(:, 5,18,10) = (/ &
+     &5.8973e+01_rb,4.4229e+01_rb,2.9880e+01_rb,1.5650e+01_rb,2.3467e-01_rb/)
+      kbo(:, 1,19,10) = (/ &
+     &1.7373e+01_rb,1.3040e+01_rb,8.8390e+00_rb,4.6588e+00_rb,1.1972e-01_rb/)
+      kbo(:, 2,19,10) = (/ &
+     &2.3793e+01_rb,1.7857e+01_rb,1.2109e+01_rb,6.3963e+00_rb,1.3774e-01_rb/)
+      kbo(:, 3,19,10) = (/ &
+     &3.1336e+01_rb,2.3520e+01_rb,1.5961e+01_rb,8.4390e+00_rb,1.6091e-01_rb/)
+      kbo(:, 4,19,10) = (/ &
+     &3.9866e+01_rb,2.9935e+01_rb,2.0331e+01_rb,1.0756e+01_rb,1.7955e-01_rb/)
+      kbo(:, 5,19,10) = (/ &
+     &4.9495e+01_rb,3.7175e+01_rb,2.5257e+01_rb,1.3339e+01_rb,2.0663e-01_rb/)
+      kbo(:, 1,20,10) = (/ &
+     &1.5037e+01_rb,1.1322e+01_rb,7.6844e+00_rb,4.1127e+00_rb,1.0485e-01_rb/)
+      kbo(:, 2,20,10) = (/ &
+     &2.0515e+01_rb,1.5450e+01_rb,1.0499e+01_rb,5.6182e+00_rb,1.2148e-01_rb/)
+      kbo(:, 3,20,10) = (/ &
+     &2.6886e+01_rb,2.0252e+01_rb,1.3792e+01_rb,7.3741e+00_rb,1.4561e-01_rb/)
+      kbo(:, 4,20,10) = (/ &
+     &3.4287e+01_rb,2.5832e+01_rb,1.7615e+01_rb,9.3860e+00_rb,1.6294e-01_rb/)
+      kbo(:, 5,20,10) = (/ &
+     &4.2841e+01_rb,3.2278e+01_rb,2.2023e+01_rb,1.1711e+01_rb,1.8624e-01_rb/)
+      kbo(:, 1,21,10) = (/ &
+     &1.3152e+01_rb,9.9438e+00_rb,6.7780e+00_rb,3.6471e+00_rb,9.1853e-02_rb/)
+      kbo(:, 2,21,10) = (/ &
+     &1.7866e+01_rb,1.3511e+01_rb,9.2298e+00_rb,4.9595e+00_rb,1.1141e-01_rb/)
+      kbo(:, 3,21,10) = (/ &
+     &2.3469e+01_rb,1.7747e+01_rb,1.2135e+01_rb,6.5086e+00_rb,1.2785e-01_rb/)
+      kbo(:, 4,21,10) = (/ &
+     &3.0120e+01_rb,2.2761e+01_rb,1.5567e+01_rb,8.3305e+00_rb,1.5176e-01_rb/)
+      kbo(:, 5,21,10) = (/ &
+     &3.7884e+01_rb,2.8609e+01_rb,1.9560e+01_rb,1.0448e+01_rb,1.7309e-01_rb/)
+      kbo(:, 1,22,10) = (/ &
+     &1.1757e+01_rb,8.9118e+00_rb,6.1382e+00_rb,3.3115e+00_rb,8.1057e-02_rb/)
+      kbo(:, 2,22,10) = (/ &
+     &1.5980e+01_rb,1.2109e+01_rb,8.3336e+00_rb,4.4832e+00_rb,9.8906e-02_rb/)
+      kbo(:, 3,22,10) = (/ &
+     &2.1108e+01_rb,1.5991e+01_rb,1.0992e+01_rb,5.8971e+00_rb,1.1586e-01_rb/)
+      kbo(:, 4,22,10) = (/ &
+     &2.7285e+01_rb,2.0659e+01_rb,1.4174e+01_rb,7.5863e+00_rb,1.3507e-01_rb/)
+      kbo(:, 5,22,10) = (/ &
+     &3.4676e+01_rb,2.6248e+01_rb,1.7966e+01_rb,9.5810e+00_rb,1.5851e-01_rb/)
+      kbo(:, 1,23,10) = (/ &
+     &1.0481e+01_rb,7.9685e+00_rb,5.5490e+00_rb,2.9996e+00_rb,7.4309e-02_rb/)
+      kbo(:, 2,23,10) = (/ &
+     &1.4420e+01_rb,1.0955e+01_rb,7.5878e+00_rb,4.0805e+00_rb,8.6253e-02_rb/)
+      kbo(:, 3,23,10) = (/ &
+     &1.9219e+01_rb,1.4600e+01_rb,1.0073e+01_rb,5.3977e+00_rb,1.0580e-01_rb/)
+      kbo(:, 4,23,10) = (/ &
+     &2.5108e+01_rb,1.9069e+01_rb,1.3115e+01_rb,7.0020e+00_rb,1.2265e-01_rb/)
+      kbo(:, 5,23,10) = (/ &
+     &3.2043e+01_rb,2.4337e+01_rb,1.6704e+01_rb,8.8942e+00_rb,1.4381e-01_rb/)
+      kbo(:, 1,24,10) = (/ &
+     &9.5276e+00_rb,7.2768e+00_rb,5.0826e+00_rb,2.7465e+00_rb,6.4655e-02_rb/)
+      kbo(:, 2,24,10) = (/ &
+     &1.3271e+01_rb,1.0121e+01_rb,7.0214e+00_rb,3.7657e+00_rb,7.9291e-02_rb/)
+      kbo(:, 3,24,10) = (/ &
+     &1.7863e+01_rb,1.3622e+01_rb,9.4201e+00_rb,5.0307e+00_rb,9.5461e-02_rb/)
+      kbo(:, 4,24,10) = (/ &
+     &2.3325e+01_rb,1.7783e+01_rb,1.2273e+01_rb,6.5420e+00_rb,1.1274e-01_rb/)
+      kbo(:, 5,24,10) = (/ &
+     &2.9564e+01_rb,2.2536e+01_rb,1.5537e+01_rb,8.2816e+00_rb,1.3418e-01_rb/)
+      kbo(:, 1,25,10) = (/ &
+     &8.8160e+00_rb,6.7673e+00_rb,4.7220e+00_rb,2.5379e+00_rb,5.8489e-02_rb/)
+      kbo(:, 2,25,10) = (/ &
+     &1.2357e+01_rb,9.4685e+00_rb,6.5735e+00_rb,3.5130e+00_rb,7.2064e-02_rb/)
+      kbo(:, 3,25,10) = (/ &
+     &1.6557e+01_rb,1.2678e+01_rb,8.7976e+00_rb,4.6917e+00_rb,8.6281e-02_rb/)
+      kbo(:, 4,25,10) = (/ &
+     &2.1444e+01_rb,1.6408e+01_rb,1.1376e+01_rb,6.0717e+00_rb,1.0416e-01_rb/)
+      kbo(:, 5,25,10) = (/ &
+     &2.7072e+01_rb,2.0703e+01_rb,1.4347e+01_rb,7.6551e+00_rb,1.2572e-01_rb/)
+      kbo(:, 1,26,10) = (/ &
+     &8.2437e+00_rb,6.3645e+00_rb,4.4442e+00_rb,2.3799e+00_rb,5.3046e-02_rb/)
+      kbo(:, 2,26,10) = (/ &
+     &1.1483e+01_rb,8.8437e+00_rb,6.1605e+00_rb,3.2883e+00_rb,6.5278e-02_rb/)
+      kbo(:, 3,26,10) = (/ &
+     &1.5261e+01_rb,1.1739e+01_rb,8.1695e+00_rb,4.3593e+00_rb,8.0191e-02_rb/)
+      kbo(:, 4,26,10) = (/ &
+     &1.9700e+01_rb,1.5135e+01_rb,1.0534e+01_rb,5.6197e+00_rb,9.7601e-02_rb/)
+      kbo(:, 5,26,10) = (/ &
+     &2.4857e+01_rb,1.9072e+01_rb,1.3248e+01_rb,7.0653e+00_rb,1.1704e-01_rb/)
+      kbo(:, 1,27,10) = (/ &
+     &7.7081e+00_rb,5.9885e+00_rb,4.1814e+00_rb,2.2306e+00_rb,4.7409e-02_rb/)
+      kbo(:, 2,27,10) = (/ &
+     &1.0576e+01_rb,8.1915e+00_rb,5.7182e+00_rb,3.0504e+00_rb,5.8512e-02_rb/)
+      kbo(:, 3,27,10) = (/ &
+     &1.4014e+01_rb,1.0837e+01_rb,7.5629e+00_rb,4.0315e+00_rb,7.3955e-02_rb/)
+      kbo(:, 4,27,10) = (/ &
+     &1.8113e+01_rb,1.3973e+01_rb,9.7390e+00_rb,5.1847e+00_rb,9.0794e-02_rb/)
+      kbo(:, 5,27,10) = (/ &
+     &2.2862e+01_rb,1.7593e+01_rb,1.2246e+01_rb,6.5228e+00_rb,1.0871e-01_rb/)
+      kbo(:, 1,28,10) = (/ &
+     &7.2063e+00_rb,5.6196e+00_rb,3.9203e+00_rb,2.0882e+00_rb,4.3129e-02_rb/)
+      kbo(:, 2,28,10) = (/ &
+     &9.7817e+00_rb,7.6085e+00_rb,5.3084e+00_rb,2.8196e+00_rb,5.4812e-02_rb/)
+      kbo(:, 3,28,10) = (/ &
+     &1.2904e+01_rb,1.0029e+01_rb,7.0025e+00_rb,3.7236e+00_rb,6.8395e-02_rb/)
+      kbo(:, 4,28,10) = (/ &
+     &1.6696e+01_rb,1.2935e+01_rb,9.0135e+00_rb,4.7943e+00_rb,8.2716e-02_rb/)
+      kbo(:, 5,28,10) = (/ &
+     &2.1096e+01_rb,1.6309e+01_rb,1.1368e+01_rb,6.0506e+00_rb,9.9935e-02_rb/)
+      kbo(:, 1,29,10) = (/ &
+     &6.7278e+00_rb,5.2636e+00_rb,3.6717e+00_rb,1.9437e+00_rb,3.9266e-02_rb/)
+      kbo(:, 2,29,10) = (/ &
+     &9.0515e+00_rb,7.0710e+00_rb,4.9355e+00_rb,2.6130e+00_rb,4.9834e-02_rb/)
+      kbo(:, 3,29,10) = (/ &
+     &1.1919e+01_rb,9.2978e+00_rb,6.4770e+00_rb,3.4412e+00_rb,6.2077e-02_rb/)
+      kbo(:, 4,29,10) = (/ &
+     &1.5380e+01_rb,1.1978e+01_rb,8.3499e+00_rb,4.4362e+00_rb,7.6798e-02_rb/)
+      kbo(:, 5,29,10) = (/ &
+     &1.9420e+01_rb,1.5097e+01_rb,1.0536e+01_rb,5.6045e+00_rb,9.1669e-02_rb/)
+      kbo(:, 1,30,10) = (/ &
+     &6.2882e+00_rb,4.9355e+00_rb,3.4323e+00_rb,1.8115e+00_rb,3.5713e-02_rb/)
+      kbo(:, 2,30,10) = (/ &
+     &8.4169e+00_rb,6.5906e+00_rb,4.5841e+00_rb,2.4262e+00_rb,4.5752e-02_rb/)
+      kbo(:, 3,30,10) = (/ &
+     &1.1024e+01_rb,8.6363e+00_rb,6.0145e+00_rb,3.1864e+00_rb,5.7473e-02_rb/)
+      kbo(:, 4,30,10) = (/ &
+     &1.4192e+01_rb,1.1103e+01_rb,7.7439e+00_rb,4.1120e+00_rb,7.0729e-02_rb/)
+      kbo(:, 5,30,10) = (/ &
+     &1.7890e+01_rb,1.3978e+01_rb,9.7651e+00_rb,5.1860e+00_rb,8.5534e-02_rb/)
+      kbo(:, 1,31,10) = (/ &
+     &5.8439e+00_rb,4.6051e+00_rb,3.1957e+00_rb,1.6863e+00_rb,3.2654e-02_rb/)
+      kbo(:, 2,31,10) = (/ &
+     &7.8033e+00_rb,6.1378e+00_rb,4.2622e+00_rb,2.2515e+00_rb,4.2183e-02_rb/)
+      kbo(:, 3,31,10) = (/ &
+     &1.0196e+01_rb,8.0235e+00_rb,5.5836e+00_rb,2.9533e+00_rb,5.3011e-02_rb/)
+      kbo(:, 4,31,10) = (/ &
+     &1.3072e+01_rb,1.0286e+01_rb,7.1778e+00_rb,3.8005e+00_rb,6.4875e-02_rb/)
+      kbo(:, 5,31,10) = (/ &
+     &1.6463e+01_rb,1.2924e+01_rb,9.0292e+00_rb,4.7849e+00_rb,7.7772e-02_rb/)
+      kbo(:, 1,32,10) = (/ &
+     &5.4664e+00_rb,4.3291e+00_rb,2.9999e+00_rb,1.5808e+00_rb,2.9923e-02_rb/)
+      kbo(:, 2,32,10) = (/ &
+     &7.2874e+00_rb,5.7710e+00_rb,4.0068e+00_rb,2.1122e+00_rb,3.8267e-02_rb/)
+      kbo(:, 3,32,10) = (/ &
+     &9.5041e+00_rb,7.5231e+00_rb,5.2374e+00_rb,2.7661e+00_rb,4.7331e-02_rb/)
+      kbo(:, 4,32,10) = (/ &
+     &1.2176e+01_rb,9.6156e+00_rb,6.7066e+00_rb,3.5449e+00_rb,5.8625e-02_rb/)
+      kbo(:, 5,32,10) = (/ &
+     &1.5322e+01_rb,1.2084e+01_rb,8.4483e+00_rb,4.4709e+00_rb,6.9340e-02_rb/)
+      kbo(:, 1,33,10) = (/ &
+     &5.1512e+00_rb,4.0967e+00_rb,2.8362e+00_rb,1.4933e+00_rb,2.6393e-02_rb/)
+      kbo(:, 2,33,10) = (/ &
+     &6.8599e+00_rb,5.4552e+00_rb,3.7902e+00_rb,1.9993e+00_rb,3.4040e-02_rb/)
+      kbo(:, 3,33,10) = (/ &
+     &8.9395e+00_rb,7.1038e+00_rb,4.9489e+00_rb,2.6104e+00_rb,4.2820e-02_rb/)
+      kbo(:, 4,33,10) = (/ &
+     &1.1449e+01_rb,9.0816e+00_rb,6.3367e+00_rb,3.3421e+00_rb,5.1919e-02_rb/)
+      kbo(:, 5,33,10) = (/ &
+     &1.4423e+01_rb,1.1426e+01_rb,7.9850e+00_rb,4.2179e+00_rb,6.2402e-02_rb/)
+      kbo(:, 1,34,10) = (/ &
+     &4.8646e+00_rb,3.8880e+00_rb,2.6932e+00_rb,1.4194e+00_rb,2.3781e-02_rb/)
+      kbo(:, 2,34,10) = (/ &
+     &6.4672e+00_rb,5.1782e+00_rb,3.6018e+00_rb,1.8962e+00_rb,3.0492e-02_rb/)
+      kbo(:, 3,34,10) = (/ &
+     &8.4535e+00_rb,6.7497e+00_rb,4.7054e+00_rb,2.4770e+00_rb,3.8339e-02_rb/)
+      kbo(:, 4,34,10) = (/ &
+     &1.0856e+01_rb,8.6484e+00_rb,6.0350e+00_rb,3.1793e+00_rb,4.6570e-02_rb/)
+      kbo(:, 5,34,10) = (/ &
+     &1.3723e+01_rb,1.0909e+01_rb,7.6246e+00_rb,4.0214e+00_rb,5.6226e-02_rb/)
+      kbo(:, 1,35,10) = (/ &
+     &4.4902e+00_rb,3.6079e+00_rb,2.5027e+00_rb,1.3156e+00_rb,2.1238e-02_rb/)
+      kbo(:, 2,35,10) = (/ &
+     &5.9918e+00_rb,4.8154e+00_rb,3.3497e+00_rb,1.7639e+00_rb,2.7153e-02_rb/)
+      kbo(:, 3,35,10) = (/ &
+     &7.8693e+00_rb,6.3098e+00_rb,4.3964e+00_rb,2.3124e+00_rb,3.3573e-02_rb/)
+      kbo(:, 4,35,10) = (/ &
+     &1.0156e+01_rb,8.1193e+00_rb,5.6658e+00_rb,2.9812e+00_rb,4.1298e-02_rb/)
+      kbo(:, 5,35,10) = (/ &
+     &1.2867e+01_rb,1.0277e+01_rb,7.1860e+00_rb,3.7872e+00_rb,4.9619e-02_rb/)
+      kbo(:, 1,36,10) = (/ &
+     &4.0317e+00_rb,3.2575e+00_rb,2.2591e+00_rb,1.1864e+00_rb,1.8322e-02_rb/)
+      kbo(:, 2,36,10) = (/ &
+     &5.4230e+00_rb,4.3764e+00_rb,3.0444e+00_rb,1.6008e+00_rb,2.3437e-02_rb/)
+      kbo(:, 3,36,10) = (/ &
+     &7.1807e+00_rb,5.7770e+00_rb,4.0236e+00_rb,2.1147e+00_rb,2.8934e-02_rb/)
+      kbo(:, 4,36,10) = (/ &
+     &9.3214e+00_rb,7.4860e+00_rb,5.2247e+00_rb,2.7453e+00_rb,3.5476e-02_rb/)
+      kbo(:, 5,36,10) = (/ &
+     &1.1871e+01_rb,9.5152e+00_rb,6.6538e+00_rb,3.5057e+00_rb,4.2476e-02_rb/)
+      kbo(:, 1,37,10) = (/ &
+     &3.4945e+00_rb,2.8322e+00_rb,1.9642e+00_rb,1.0316e+00_rb,1.5292e-02_rb/)
+      kbo(:, 2,37,10) = (/ &
+     &4.7474e+00_rb,3.8477e+00_rb,2.6749e+00_rb,1.4057e+00_rb,1.9829e-02_rb/)
+      kbo(:, 3,37,10) = (/ &
+     &6.3563e+00_rb,5.1351e+00_rb,3.5754e+00_rb,1.8774e+00_rb,2.4925e-02_rb/)
+      kbo(:, 4,37,10) = (/ &
+     &8.3333e+00_rb,6.7182e+00_rb,4.6872e+00_rb,2.4610e+00_rb,3.0513e-02_rb/)
+      kbo(:, 5,37,10) = (/ &
+     &1.0705e+01_rb,8.6094e+00_rb,6.0143e+00_rb,3.1664e+00_rb,3.6834e-02_rb/)
+      kbo(:, 1,38,10) = (/ &
+     &3.0288e+00_rb,2.4619e+00_rb,1.7084e+00_rb,8.9674e-01_rb,1.2715e-02_rb/)
+      kbo(:, 2,38,10) = (/ &
+     &4.1608e+00_rb,3.3834e+00_rb,2.3515e+00_rb,1.2353e+00_rb,1.6555e-02_rb/)
+      kbo(:, 3,38,10) = (/ &
+     &5.6346e+00_rb,4.5721e+00_rb,3.1807e+00_rb,1.6688e+00_rb,2.1253e-02_rb/)
+      kbo(:, 4,38,10) = (/ &
+     &7.4639e+00_rb,6.0370e+00_rb,4.2092e+00_rb,2.2090e+00_rb,2.6215e-02_rb/)
+      kbo(:, 5,38,10) = (/ &
+     &9.6723e+00_rb,7.8054e+00_rb,5.4498e+00_rb,2.8669e+00_rb,3.1673e-02_rb/)
+      kbo(:, 1,39,10) = (/ &
+     &2.6346e+00_rb,2.1501e+00_rb,1.4897e+00_rb,7.8179e-01_rb,1.0494e-02_rb/)
+      kbo(:, 2,39,10) = (/ &
+     &3.6623e+00_rb,2.9868e+00_rb,2.0748e+00_rb,1.0900e+00_rb,1.3801e-02_rb/)
+      kbo(:, 3,39,10) = (/ &
+     &5.0149e+00_rb,4.0819e+00_rb,2.8376e+00_rb,1.4889e+00_rb,1.7948e-02_rb/)
+      kbo(:, 4,39,10) = (/ &
+     &6.7074e+00_rb,5.4432e+00_rb,3.7906e+00_rb,1.9883e+00_rb,2.2190e-02_rb/)
+      kbo(:, 5,39,10) = (/ &
+     &8.7675e+00_rb,7.1019e+00_rb,4.9572e+00_rb,2.6054e+00_rb,2.6961e-02_rb/)
+      kbo(:, 1,40,10) = (/ &
+     &2.2414e+00_rb,1.8312e+00_rb,1.2669e+00_rb,6.6464e-01_rb,8.6033e-03_rb/)
+      kbo(:, 2,40,10) = (/ &
+     &3.1461e+00_rb,2.5731e+00_rb,1.7855e+00_rb,9.3826e-01_rb,1.1425e-02_rb/)
+      kbo(:, 3,40,10) = (/ &
+     &4.3645e+00_rb,3.5639e+00_rb,2.4772e+00_rb,1.3001e+00_rb,1.5150e-02_rb/)
+      kbo(:, 4,40,10) = (/ &
+     &5.9195e+00_rb,4.8196e+00_rb,3.3561e+00_rb,1.7603e+00_rb,1.8984e-02_rb/)
+      kbo(:, 5,40,10) = (/ &
+     &7.8344e+00_rb,6.3662e+00_rb,4.4409e+00_rb,2.3324e+00_rb,2.3286e-02_rb/)
+      kbo(:, 1,41,10) = (/ &
+     &1.9009e+00_rb,1.5581e+00_rb,1.0772e+00_rb,5.6390e-01_rb,7.0145e-03_rb/)
+      kbo(:, 2,41,10) = (/ &
+     &2.6997e+00_rb,2.2094e+00_rb,1.5334e+00_rb,8.0488e-01_rb,9.5005e-03_rb/)
+      kbo(:, 3,41,10) = (/ &
+     &3.7885e+00_rb,3.1035e+00_rb,2.1567e+00_rb,1.1320e+00_rb,1.2665e-02_rb/)
+      kbo(:, 4,41,10) = (/ &
+     &5.2083e+00_rb,4.2587e+00_rb,2.9632e+00_rb,1.5552e+00_rb,1.6096e-02_rb/)
+      kbo(:, 5,41,10) = (/ &
+     &6.9899e+00_rb,5.6957e+00_rb,3.9715e+00_rb,2.0851e+00_rb,2.0007e-02_rb/)
+      kbo(:, 1,42,10) = (/ &
+     &1.6073e+00_rb,1.3214e+00_rb,9.1410e-01_rb,4.7869e-01_rb,5.6658e-03_rb/)
+      kbo(:, 2,42,10) = (/ &
+     &2.3166e+00_rb,1.9016e+00_rb,1.3175e+00_rb,6.9100e-01_rb,7.8082e-03_rb/)
+      kbo(:, 3,42,10) = (/ &
+     &3.2935e+00_rb,2.7045e+00_rb,1.8773e+00_rb,9.8575e-01_rb,1.0484e-02_rb/)
+      kbo(:, 4,42,10) = (/ &
+     &4.5881e+00_rb,3.7639e+00_rb,2.6177e+00_rb,1.3737e+00_rb,1.3601e-02_rb/)
+      kbo(:, 5,42,10) = (/ &
+     &6.2370e+00_rb,5.0967e+00_rb,3.5534e+00_rb,1.8654e+00_rb,1.7039e-02_rb/)
+      kbo(:, 1,43,10) = (/ &
+     &1.3404e+00_rb,1.1058e+00_rb,7.6461e-01_rb,4.0031e-01_rb,4.4847e-03_rb/)
+      kbo(:, 2,43,10) = (/ &
+     &1.9669e+00_rb,1.6173e+00_rb,1.1194e+00_rb,5.8704e-01_rb,6.2717e-03_rb/)
+      kbo(:, 3,43,10) = (/ &
+     &2.8361e+00_rb,2.3337e+00_rb,1.6185e+00_rb,8.4949e-01_rb,8.5308e-03_rb/)
+      kbo(:, 4,43,10) = (/ &
+     &4.0094e+00_rb,3.2948e+00_rb,2.2900e+00_rb,1.2020e+00_rb,1.1259e-02_rb/)
+      kbo(:, 5,43,10) = (/ &
+     &5.5262e+00_rb,4.5280e+00_rb,3.1542e+00_rb,1.6556e+00_rb,1.4384e-02_rb/)
+      kbo(:, 1,44,10) = (/ &
+     &1.1066e+00_rb,9.1547e-01_rb,6.3275e-01_rb,3.3150e-01_rb,3.4897e-03_rb/)
+      kbo(:, 2,44,10) = (/ &
+     &1.6542e+00_rb,1.3635e+00_rb,9.4399e-01_rb,4.9494e-01_rb,4.9430e-03_rb/)
+      kbo(:, 3,44,10) = (/ &
+     &2.4266e+00_rb,2.0020e+00_rb,1.3887e+00_rb,7.2847e-01_rb,6.8682e-03_rb/)
+      kbo(:, 4,44,10) = (/ &
+     &3.4886e+00_rb,2.8708e+00_rb,1.9931e+00_rb,1.0459e+00_rb,9.1381e-03_rb/)
+      kbo(:, 5,44,10) = (/ &
+     &4.8773e+00_rb,4.0046e+00_rb,2.7873e+00_rb,1.4630e+00_rb,1.1960e-02_rb/)
+      kbo(:, 1,45,10) = (/ &
+     &9.0739e-01_rb,7.5424e-01_rb,5.2128e-01_rb,2.7273e-01_rb,2.7098e-03_rb/)
+      kbo(:, 2,45,10) = (/ &
+     &1.3852e+00_rb,1.1467e+00_rb,7.9304e-01_rb,4.1578e-01_rb,3.8548e-03_rb/)
+      kbo(:, 3,45,10) = (/ &
+     &2.0713e+00_rb,1.7151e+00_rb,1.1892e+00_rb,6.2426e-01_rb,5.4604e-03_rb/)
+      kbo(:, 4,45,10) = (/ &
+     &3.0326e+00_rb,2.5006e+00_rb,1.7345e+00_rb,9.0988e-01_rb,7.3887e-03_rb/)
+      kbo(:, 5,45,10) = (/ &
+     &4.3008e+00_rb,3.5387e+00_rb,2.4612e+00_rb,1.2914e+00_rb,9.7321e-03_rb/)
+      kbo(:, 1,46,10) = (/ &
+     &7.3199e-01_rb,6.1145e-01_rb,4.2240e-01_rb,2.2117e-01_rb,2.0785e-03_rb/)
+      kbo(:, 2,46,10) = (/ &
+     &1.1438e+00_rb,9.5098e-01_rb,6.5833e-01_rb,3.4471e-01_rb,2.9805e-03_rb/)
+      kbo(:, 3,46,10) = (/ &
+     &1.7481e+00_rb,1.4525e+00_rb,1.0068e+00_rb,5.2845e-01_rb,4.2717e-03_rb/)
+      kbo(:, 4,46,10) = (/ &
+     &2.6098e+00_rb,2.1582e+00_rb,1.4963e+00_rb,7.8501e-01_rb,5.8631e-03_rb/)
+      kbo(:, 5,46,10) = (/ &
+     &3.7663e+00_rb,3.1031e+00_rb,2.1564e+00_rb,1.1312e+00_rb,7.7831e-03_rb/)
+      kbo(:, 1,47,10) = (/ &
+     &5.7232e-01_rb,4.8032e-01_rb,3.3210e-01_rb,1.7403e-01_rb,1.5461e-03_rb/)
+      kbo(:, 2,47,10) = (/ &
+     &9.2386e-01_rb,7.7116e-01_rb,5.3364e-01_rb,2.7934e-01_rb,2.3209e-03_rb/)
+      kbo(:, 3,47,10) = (/ &
+     &1.4429e+00_rb,1.2024e+00_rb,8.3406e-01_rb,4.3757e-01_rb,3.2763e-03_rb/)
+      kbo(:, 4,47,10) = (/ &
+     &2.2047e+00_rb,1.8273e+00_rb,1.2675e+00_rb,6.6495e-01_rb,4.5628e-03_rb/)
+      kbo(:, 5,47,10) = (/ &
+     &3.2456e+00_rb,2.6812e+00_rb,1.8614e+00_rb,9.7623e-01_rb,6.1070e-03_rb/)
+      kbo(:, 1,48,10) = (/ &
+     &4.4270e-01_rb,3.7313e-01_rb,2.5809e-01_rb,1.3535e-01_rb,1.1374e-03_rb/)
+      kbo(:, 2,48,10) = (/ &
+     &7.3749e-01_rb,6.1935e-01_rb,4.2906e-01_rb,2.2453e-01_rb,1.7379e-03_rb/)
+      kbo(:, 3,48,10) = (/ &
+     &1.1839e+00_rb,9.8928e-01_rb,6.8613e-01_rb,3.6002e-01_rb,2.5032e-03_rb/)
+      kbo(:, 4,48,10) = (/ &
+     &1.8512e+00_rb,1.5395e+00_rb,1.0677e+00_rb,5.6075e-01_rb,3.5238e-03_rb/)
+      kbo(:, 5,48,10) = (/ &
+     &2.7862e+00_rb,2.3065e+00_rb,1.6009e+00_rb,8.3981e-01_rb,4.7398e-03_rb/)
+      kbo(:, 1,49,10) = (/ &
+     &3.3829e-01_rb,2.8482e-01_rb,1.9699e-01_rb,1.0339e-01_rb,8.1861e-04_rb/)
+      kbo(:, 2,49,10) = (/ &
+     &5.8200e-01_rb,4.9068e-01_rb,3.4013e-01_rb,1.7816e-01_rb,1.2634e-03_rb/)
+      kbo(:, 3,49,10) = (/ &
+     &9.6365e-01_rb,8.0857e-01_rb,5.6081e-01_rb,2.9418e-01_rb,1.8795e-03_rb/)
+      kbo(:, 4,49,10) = (/ &
+     &1.5457e+00_rb,1.2894e+00_rb,8.9458e-01_rb,4.6973e-01_rb,2.7104e-03_rb/)
+      kbo(:, 5,49,10) = (/ &
+     &2.3812e+00_rb,1.9755e+00_rb,1.3708e+00_rb,7.1925e-01_rb,3.6105e-03_rb/)
+      kbo(:, 1,50,10) = (/ &
+     &2.5998e-01_rb,2.1962e-01_rb,1.5188e-01_rb,7.9506e-02_rb,6.0363e-04_rb/)
+      kbo(:, 2,50,10) = (/ &
+     &4.5974e-01_rb,3.8940e-01_rb,2.6982e-01_rb,1.4155e-01_rb,9.5023e-04_rb/)
+      kbo(:, 3,50,10) = (/ &
+     &7.8578e-01_rb,6.6189e-01_rb,4.5931e-01_rb,2.4091e-01_rb,1.4366e-03_rb/)
+      kbo(:, 4,50,10) = (/ &
+     &1.2930e+00_rb,1.0829e+00_rb,7.5147e-01_rb,3.9450e-01_rb,2.1250e-03_rb/)
+      kbo(:, 5,50,10) = (/ &
+     &2.0418e+00_rb,1.6990e+00_rb,1.1790e+00_rb,6.1880e-01_rb,2.8716e-03_rb/)
+      kbo(:, 1,51,10) = (/ &
+     &2.0132e-01_rb,1.6910e-01_rb,1.1674e-01_rb,6.1107e-02_rb,4.4485e-04_rb/)
+      kbo(:, 2,51,10) = (/ &
+     &3.6041e-01_rb,3.0656e-01_rb,2.1282e-01_rb,1.1161e-01_rb,7.3157e-04_rb/)
+      kbo(:, 3,51,10) = (/ &
+     &6.3582e-01_rb,5.3869e-01_rb,3.7423e-01_rb,1.9656e-01_rb,1.1225e-03_rb/)
+      kbo(:, 4,51,10) = (/ &
+     &1.0802e+00_rb,9.0777e-01_rb,6.3030e-01_rb,3.3074e-01_rb,1.6531e-03_rb/)
+      kbo(:, 5,51,10) = (/ &
+     &1.7498e+00_rb,1.4602e+00_rb,1.0135e+00_rb,5.3219e-01_rb,2.3172e-03_rb/)
+      kbo(:, 1,52,10) = (/ &
+     &1.5547e-01_rb,1.3052e-01_rb,9.0061e-02_rb,4.7075e-02_rb,3.3160e-04_rb/)
+      kbo(:, 2,52,10) = (/ &
+     &2.8347e-01_rb,2.4049e-01_rb,1.6666e-01_rb,8.7433e-02_rb,5.5078e-04_rb/)
+      kbo(:, 3,52,10) = (/ &
+     &5.1184e-01_rb,4.3501e-01_rb,3.0211e-01_rb,1.5868e-01_rb,8.7008e-04_rb/)
+      kbo(:, 4,52,10) = (/ &
+     &8.9697e-01_rb,7.5690e-01_rb,5.2561e-01_rb,2.7576e-01_rb,1.2672e-03_rb/)
+      kbo(:, 5,52,10) = (/ &
+     &1.4927e+00_rb,1.2493e+00_rb,8.6741e-01_rb,4.5551e-01_rb,1.8458e-03_rb/)
+      kbo(:, 1,53,10) = (/ &
+     &1.2003e-01_rb,1.0051e-01_rb,6.9268e-02_rb,3.6248e-02_rb,2.4457e-04_rb/)
+      kbo(:, 2,53,10) = (/ &
+     &2.2120e-01_rb,1.8754e-01_rb,1.2989e-01_rb,6.8226e-02_rb,4.0791e-04_rb/)
+      kbo(:, 3,53,10) = (/ &
+     &4.0694e-01_rb,3.4775e-01_rb,2.4176e-01_rb,1.2712e-01_rb,6.5057e-04_rb/)
+      kbo(:, 4,53,10) = (/ &
+     &7.3824e-01_rb,6.2670e-01_rb,4.3556e-01_rb,2.2862e-01_rb,9.8738e-04_rb/)
+      kbo(:, 5,53,10) = (/ &
+     &1.2666e+00_rb,1.0632e+00_rb,7.3852e-01_rb,3.8765e-01_rb,1.4077e-03_rb/)
+      kbo(:, 1,54,10) = (/ &
+     &9.3960e-02_rb,7.8771e-02_rb,5.4240e-02_rb,2.8401e-02_rb,1.9316e-04_rb/)
+      kbo(:, 2,54,10) = (/ &
+     &1.7676e-01_rb,1.4984e-01_rb,1.0336e-01_rb,5.4121e-02_rb,3.1568e-04_rb/)
+      kbo(:, 3,54,10) = (/ &
+     &3.2867e-01_rb,2.7969e-01_rb,1.9447e-01_rb,1.0231e-01_rb,5.2512e-04_rb/)
+      kbo(:, 4,54,10) = (/ &
+     &6.0965e-01_rb,5.1980e-01_rb,3.6169e-01_rb,1.9003e-01_rb,8.0976e-04_rb/)
+      kbo(:, 5,54,10) = (/ &
+     &1.0822e+00_rb,9.1223e-01_rb,6.3374e-01_rb,3.3269e-01_rb,1.1750e-03_rb/)
+      kbo(:, 1,55,10) = (/ &
+     &7.3906e-02_rb,6.2107e-02_rb,4.2864e-02_rb,2.2445e-02_rb,1.5599e-04_rb/)
+      kbo(:, 2,55,10) = (/ &
+     &1.4369e-01_rb,1.2050e-01_rb,8.3134e-02_rb,4.3567e-02_rb,2.5335e-04_rb/)
+      kbo(:, 3,55,10) = (/ &
+     &2.6760e-01_rb,2.2827e-01_rb,1.5835e-01_rb,8.3096e-02_rb,4.2909e-04_rb/)
+      kbo(:, 4,55,10) = (/ &
+     &5.0351e-01_rb,4.3105e-01_rb,3.0006e-01_rb,1.5782e-01_rb,6.9202e-04_rb/)
+      kbo(:, 5,55,10) = (/ &
+     &9.2458e-01_rb,7.8288e-01_rb,5.4396e-01_rb,2.8582e-01_rb,1.0207e-03_rb/)
+      kbo(:, 1,56,10) = (/ &
+     &5.7777e-02_rb,4.8496e-02_rb,3.3489e-02_rb,1.7579e-02_rb,1.2442e-04_rb/)
+      kbo(:, 2,56,10) = (/ &
+     &1.1665e-01_rb,9.7805e-02_rb,6.7433e-02_rb,3.5342e-02_rb,2.0689e-04_rb/)
+      kbo(:, 3,56,10) = (/ &
+     &2.1880e-01_rb,1.8636e-01_rb,1.2905e-01_rb,6.7804e-02_rb,3.5149e-04_rb/)
+      kbo(:, 4,56,10) = (/ &
+     &4.1579e-01_rb,3.5633e-01_rb,2.4779e-01_rb,1.3043e-01_rb,5.7437e-04_rb/)
+      kbo(:, 5,56,10) = (/ &
+     &7.8392e-01_rb,6.6810e-01_rb,4.6498e-01_rb,2.4434e-01_rb,8.7392e-04_rb/)
+      kbo(:, 1,57,10) = (/ &
+     &4.4962e-02_rb,3.7745e-02_rb,2.6020e-02_rb,1.3669e-02_rb,1.0074e-04_rb/)
+      kbo(:, 2,57,10) = (/ &
+     &9.3975e-02_rb,7.9039e-02_rb,5.4468e-02_rb,2.8583e-02_rb,1.6888e-04_rb/)
+      kbo(:, 3,57,10) = (/ &
+     &1.8083e-01_rb,1.5305e-01_rb,1.0598e-01_rb,5.5519e-02_rb,2.8180e-04_rb/)
+      kbo(:, 4,57,10) = (/ &
+     &3.4541e-01_rb,2.9431e-01_rb,2.0476e-01_rb,1.0780e-01_rb,4.7931e-04_rb/)
+      kbo(:, 5,57,10) = (/ &
+     &6.6212e-01_rb,5.6589e-01_rb,3.9390e-01_rb,2.0726e-01_rb,7.5979e-04_rb/)
+      kbo(:, 1,58,10) = (/ &
+     &1.7062e-02_rb,1.6422e-02_rb,1.3301e-02_rb,8.4676e-03_rb,8.2142e-05_rb/)
+      kbo(:, 2,58,10) = (/ &
+     &3.7044e-02_rb,3.5791e-02_rb,2.8933e-02_rb,1.8344e-02_rb,1.3979e-04_rb/)
+      kbo(:, 3,58,10) = (/ &
+     &7.3627e-02_rb,7.1176e-02_rb,5.7648e-02_rb,3.6534e-02_rb,2.3072e-04_rb/)
+      kbo(:, 4,58,10) = (/ &
+     &1.4036e-01_rb,1.3776e-01_rb,1.1219e-01_rb,7.1459e-02_rb,4.0521e-04_rb/)
+      kbo(:, 5,58,10) = (/ &
+     &2.7375e-01_rb,2.6857e-01_rb,2.1925e-01_rb,1.3965e-01_rb,6.6868e-04_rb/)
+      kbo(:, 1,59,10) = (/ &
+     &1.5026e-02_rb,1.4620e-02_rb,1.1891e-02_rb,7.6139e-03_rb,7.7772e-05_rb/)
+      kbo(:, 2,59,10) = (/ &
+     &3.3598e-02_rb,3.2618e-02_rb,2.6475e-02_rb,1.6873e-02_rb,1.3363e-04_rb/)
+      kbo(:, 3,59,10) = (/ &
+     &6.7778e-02_rb,6.5724e-02_rb,5.3548e-02_rb,3.4085e-02_rb,2.3127e-04_rb/)
+      kbo(:, 4,59,10) = (/ &
+     &1.2973e-01_rb,1.2749e-01_rb,1.0439e-01_rb,6.6705e-02_rb,3.9949e-04_rb/)
+      kbo(:, 5,59,10) = (/ &
+     &2.5383e-01_rb,2.5006e-01_rb,2.0520e-01_rb,1.3156e-01_rb,6.6551e-04_rb/)
+      kbo(:, 1,13,11) = (/ &
+     &6.1162e+01_rb,4.5871e+01_rb,3.0581e+01_rb,1.5291e+01_rb,3.0501e-01_rb/)
+      kbo(:, 2,13,11) = (/ &
+     &8.6643e+01_rb,6.4984e+01_rb,4.3324e+01_rb,2.1662e+01_rb,3.8069e-01_rb/)
+      kbo(:, 3,13,11) = (/ &
+     &1.1700e+02_rb,8.7751e+01_rb,5.8502e+01_rb,2.9250e+01_rb,4.9491e-01_rb/)
+      kbo(:, 4,13,11) = (/ &
+     &1.5190e+02_rb,1.1392e+02_rb,7.5955e+01_rb,3.7977e+01_rb,5.7908e-01_rb/)
+      kbo(:, 5,13,11) = (/ &
+     &1.9085e+02_rb,1.4314e+02_rb,9.5429e+01_rb,4.7715e+01_rb,6.6979e-01_rb/)
+      kbo(:, 1,14,11) = (/ &
+     &6.2014e+01_rb,4.6511e+01_rb,3.1007e+01_rb,1.5504e+01_rb,3.5592e-01_rb/)
+      kbo(:, 2,14,11) = (/ &
+     &8.7238e+01_rb,6.5431e+01_rb,4.3621e+01_rb,2.1811e+01_rb,3.9219e-01_rb/)
+      kbo(:, 3,14,11) = (/ &
+     &1.1714e+02_rb,8.7851e+01_rb,5.8570e+01_rb,2.9287e+01_rb,4.4292e-01_rb/)
+      kbo(:, 4,14,11) = (/ &
+     &1.5139e+02_rb,1.1354e+02_rb,7.5699e+01_rb,3.7864e+01_rb,5.2460e-01_rb/)
+      kbo(:, 5,14,11) = (/ &
+     &1.8982e+02_rb,1.4235e+02_rb,9.4908e+01_rb,4.7484e+01_rb,6.6257e-01_rb/)
+      kbo(:, 1,15,11) = (/ &
+     &5.9186e+01_rb,4.4388e+01_rb,2.9592e+01_rb,1.4841e+01_rb,3.2021e-01_rb/)
+      kbo(:, 2,15,11) = (/ &
+     &8.2638e+01_rb,6.1979e+01_rb,4.1319e+01_rb,2.0713e+01_rb,3.7708e-01_rb/)
+      kbo(:, 3,15,11) = (/ &
+     &1.1028e+02_rb,8.2716e+01_rb,5.5144e+01_rb,2.7652e+01_rb,4.6488e-01_rb/)
+      kbo(:, 4,15,11) = (/ &
+     &1.4201e+02_rb,1.0651e+02_rb,7.1008e+01_rb,3.5635e+01_rb,5.3643e-01_rb/)
+      kbo(:, 5,15,11) = (/ &
+     &1.7780e+02_rb,1.3336e+02_rb,8.8908e+01_rb,4.4680e+01_rb,6.1809e-01_rb/)
+      kbo(:, 1,16,11) = (/ &
+     &5.3877e+01_rb,4.0407e+01_rb,2.6940e+01_rb,1.3617e+01_rb,3.0459e-01_rb/)
+      kbo(:, 2,16,11) = (/ &
+     &7.4732e+01_rb,5.6052e+01_rb,3.7368e+01_rb,1.8895e+01_rb,3.6381e-01_rb/)
+      kbo(:, 3,16,11) = (/ &
+     &9.9303e+01_rb,7.4473e+01_rb,4.9649e+01_rb,2.5124e+01_rb,4.2325e-01_rb/)
+      kbo(:, 4,16,11) = (/ &
+     &1.2768e+02_rb,9.5754e+01_rb,6.3837e+01_rb,3.2325e+01_rb,4.7285e-01_rb/)
+      kbo(:, 5,16,11) = (/ &
+     &1.5927e+02_rb,1.1945e+02_rb,7.9632e+01_rb,4.0351e+01_rb,5.0976e-01_rb/)
+      kbo(:, 1,17,11) = (/ &
+     &4.7648e+01_rb,3.5735e+01_rb,2.3823e+01_rb,1.2164e+01_rb,2.5744e-01_rb/)
+      kbo(:, 2,17,11) = (/ &
+     &6.5724e+01_rb,4.9293e+01_rb,3.2863e+01_rb,1.6792e+01_rb,3.1059e-01_rb/)
+      kbo(:, 3,17,11) = (/ &
+     &8.7138e+01_rb,6.5349e+01_rb,4.3569e+01_rb,2.2270e+01_rb,3.5847e-01_rb/)
+      kbo(:, 4,17,11) = (/ &
+     &1.1169e+02_rb,8.3769e+01_rb,5.5845e+01_rb,2.8543e+01_rb,4.0184e-01_rb/)
+      kbo(:, 5,17,11) = (/ &
+     &1.3846e+02_rb,1.0385e+02_rb,6.9237e+01_rb,3.5386e+01_rb,4.6254e-01_rb/)
+      kbo(:, 1,18,11) = (/ &
+     &4.0731e+01_rb,3.0550e+01_rb,2.0398e+01_rb,1.0482e+01_rb,2.2929e-01_rb/)
+      kbo(:, 2,18,11) = (/ &
+     &5.6038e+01_rb,4.2027e+01_rb,2.8058e+01_rb,1.4421e+01_rb,2.6841e-01_rb/)
+      kbo(:, 3,18,11) = (/ &
+     &7.4130e+01_rb,5.5602e+01_rb,3.7127e+01_rb,1.9095e+01_rb,3.0083e-01_rb/)
+      kbo(:, 4,18,11) = (/ &
+     &9.4414e+01_rb,7.0811e+01_rb,4.7323e+01_rb,2.4371e+01_rb,3.4142e-01_rb/)
+      kbo(:, 5,18,11) = (/ &
+     &1.1687e+02_rb,8.7655e+01_rb,5.8604e+01_rb,3.0228e+01_rb,3.9932e-01_rb/)
+      kbo(:, 1,19,11) = (/ &
+     &3.5043e+01_rb,2.6281e+01_rb,1.7645e+01_rb,9.0880e+00_rb,1.9041e-01_rb/)
+      kbo(:, 2,19,11) = (/ &
+     &4.8095e+01_rb,3.6072e+01_rb,2.4224e+01_rb,1.2500e+01_rb,2.2005e-01_rb/)
+      kbo(:, 3,19,11) = (/ &
+     &6.3280e+01_rb,4.7465e+01_rb,3.1884e+01_rb,1.6505e+01_rb,2.5190e-01_rb/)
+      kbo(:, 4,19,11) = (/ &
+     &8.0459e+01_rb,6.0352e+01_rb,4.0562e+01_rb,2.1050e+01_rb,3.0347e-01_rb/)
+      kbo(:, 5,19,11) = (/ &
+     &9.9405e+01_rb,7.4555e+01_rb,5.0141e+01_rb,2.6072e+01_rb,3.3814e-01_rb/)
+      kbo(:, 1,20,11) = (/ &
+     &3.0698e+01_rb,2.3028e+01_rb,1.5559e+01_rb,8.0744e+00_rb,1.6851e-01_rb/)
+      kbo(:, 2,20,11) = (/ &
+     &4.1938e+01_rb,3.1449e+01_rb,2.1266e+01_rb,1.1075e+01_rb,1.9604e-01_rb/)
+      kbo(:, 3,20,11) = (/ &
+     &5.4971e+01_rb,4.1226e+01_rb,2.7873e+01_rb,1.4553e+01_rb,2.3334e-01_rb/)
+      kbo(:, 4,20,11) = (/ &
+     &6.9683e+01_rb,5.2264e+01_rb,3.5322e+01_rb,1.8474e+01_rb,2.8155e-01_rb/)
+      kbo(:, 5,20,11) = (/ &
+     &8.5796e+01_rb,6.4350e+01_rb,4.3496e+01_rb,2.2781e+01_rb,3.1819e-01_rb/)
+      kbo(:, 1,21,11) = (/ &
+     &2.6961e+01_rb,2.0239e+01_rb,1.3721e+01_rb,7.2357e+00_rb,1.5633e-01_rb/)
+      kbo(:, 2,21,11) = (/ &
+     &3.6624e+01_rb,2.7486e+01_rb,1.8642e+01_rb,9.8382e+00_rb,1.8477e-01_rb/)
+      kbo(:, 3,21,11) = (/ &
+     &4.7842e+01_rb,3.5913e+01_rb,2.4362e+01_rb,1.2852e+01_rb,2.2793e-01_rb/)
+      kbo(:, 4,21,11) = (/ &
+     &6.0403e+01_rb,4.5355e+01_rb,3.0794e+01_rb,1.6247e+01_rb,2.5875e-01_rb/)
+      kbo(:, 5,21,11) = (/ &
+     &7.4328e+01_rb,5.5827e+01_rb,3.7921e+01_rb,1.9978e+01_rb,3.0003e-01_rb/)
+      kbo(:, 1,22,11) = (/ &
+     &2.4106e+01_rb,1.8145e+01_rb,1.2318e+01_rb,6.5788e+00_rb,1.4346e-01_rb/)
+      kbo(:, 2,22,11) = (/ &
+     &3.2489e+01_rb,2.4455e+01_rb,1.6620e+01_rb,8.8645e+00_rb,1.7673e-01_rb/)
+      kbo(:, 3,22,11) = (/ &
+     &4.2111e+01_rb,3.1704e+01_rb,2.1585e+01_rb,1.1502e+01_rb,2.1135e-01_rb/)
+      kbo(:, 4,22,11) = (/ &
+     &5.3091e+01_rb,3.9979e+01_rb,2.7248e+01_rb,1.4479e+01_rb,2.4545e-01_rb/)
+      kbo(:, 5,22,11) = (/ &
+     &6.5531e+01_rb,4.9344e+01_rb,3.3661e+01_rb,1.7840e+01_rb,2.8184e-01_rb/)
+      kbo(:, 1,23,11) = (/ &
+     &2.1586e+01_rb,1.6314e+01_rb,1.1115e+01_rb,5.9696e+00_rb,1.3118e-01_rb/)
+      kbo(:, 2,23,11) = (/ &
+     &2.8872e+01_rb,2.1824e+01_rb,1.4900e+01_rb,7.9884e+00_rb,1.6791e-01_rb/)
+      kbo(:, 3,23,11) = (/ &
+     &3.7392e+01_rb,2.8256e+01_rb,1.9318e+01_rb,1.0333e+01_rb,1.9239e-01_rb/)
+      kbo(:, 4,23,11) = (/ &
+     &4.7286e+01_rb,3.5715e+01_rb,2.4417e+01_rb,1.3025e+01_rb,2.2854e-01_rb/)
+      kbo(:, 5,23,11) = (/ &
+     &5.8587e+01_rb,4.4225e+01_rb,3.0228e+01_rb,1.6103e+01_rb,2.6383e-01_rb/)
+      kbo(:, 1,24,11) = (/ &
+     &1.9610e+01_rb,1.4859e+01_rb,1.0204e+01_rb,5.4843e+00_rb,1.2305e-01_rb/)
+      kbo(:, 2,24,11) = (/ &
+     &2.6168e+01_rb,1.9825e+01_rb,1.3617e+01_rb,7.3028e+00_rb,1.4696e-01_rb/)
+      kbo(:, 3,24,11) = (/ &
+     &3.4009e+01_rb,2.5754e+01_rb,1.7666e+01_rb,9.4475e+00_rb,1.7619e-01_rb/)
+      kbo(:, 4,24,11) = (/ &
+     &4.3202e+01_rb,3.2697e+01_rb,2.2398e+01_rb,1.1966e+01_rb,2.0711e-01_rb/)
+      kbo(:, 5,24,11) = (/ &
+     &5.3950e+01_rb,4.0810e+01_rb,2.7914e+01_rb,1.4881e+01_rb,2.4491e-01_rb/)
+      kbo(:, 1,25,11) = (/ &
+     &1.7913e+01_rb,1.3599e+01_rb,9.4137e+00_rb,5.0616e+00_rb,1.1244e-01_rb/)
+      kbo(:, 2,25,11) = (/ &
+     &2.4002e+01_rb,1.8218e+01_rb,1.2577e+01_rb,6.7433e+00_rb,1.3574e-01_rb/)
+      kbo(:, 3,25,11) = (/ &
+     &3.1373e+01_rb,2.3808e+01_rb,1.6390e+01_rb,8.7732e+00_rb,1.6587e-01_rb/)
+      kbo(:, 4,25,11) = (/ &
+     &4.0212e+01_rb,3.0510e+01_rb,2.0949e+01_rb,1.1182e+01_rb,1.9353e-01_rb/)
+      kbo(:, 5,25,11) = (/ &
+     &5.0507e+01_rb,3.8314e+01_rb,2.6252e+01_rb,1.3993e+01_rb,2.2689e-01_rb/)
+      kbo(:, 1,26,11) = (/ &
+     &1.6610e+01_rb,1.2648e+01_rb,8.7899e+00_rb,4.7180e+00_rb,1.0410e-01_rb/)
+      kbo(:, 2,26,11) = (/ &
+     &2.2395e+01_rb,1.7048e+01_rb,1.1804e+01_rb,6.3257e+00_rb,1.2812e-01_rb/)
+      kbo(:, 3,26,11) = (/ &
+     &2.9495e+01_rb,2.2453e+01_rb,1.5498e+01_rb,8.2851e+00_rb,1.5321e-01_rb/)
+      kbo(:, 4,26,11) = (/ &
+     &3.7868e+01_rb,2.8829e+01_rb,1.9854e+01_rb,1.0593e+01_rb,1.8381e-01_rb/)
+      kbo(:, 5,26,11) = (/ &
+     &4.7321e+01_rb,3.6030e+01_rb,2.4795e+01_rb,1.3247e+01_rb,2.1577e-01_rb/)
+      kbo(:, 1,27,11) = (/ &
+     &1.5552e+01_rb,1.1893e+01_rb,8.2787e+00_rb,4.4401e+00_rb,9.5478e-02_rb/)
+      kbo(:, 2,27,11) = (/ &
+     &2.1129e+01_rb,1.6157e+01_rb,1.1211e+01_rb,5.9970e+00_rb,1.1930e-01_rb/)
+      kbo(:, 3,27,11) = (/ &
+     &2.7798e+01_rb,2.1248e+01_rb,1.4714e+01_rb,7.8588e+00_rb,1.4147e-01_rb/)
+      kbo(:, 4,27,11) = (/ &
+     &3.5437e+01_rb,2.7084e+01_rb,1.8740e+01_rb,1.0024e+01_rb,1.6966e-01_rb/)
+      kbo(:, 5,27,11) = (/ &
+     &4.4196e+01_rb,3.3778e+01_rb,2.3350e+01_rb,1.2494e+01_rb,2.0142e-01_rb/)
+      kbo(:, 1,28,11) = (/ &
+     &1.4683e+01_rb,1.1292e+01_rb,7.8718e+00_rb,4.2106e+00_rb,8.7356e-02_rb/)
+      kbo(:, 2,28,11) = (/ &
+     &1.9886e+01_rb,1.5281e+01_rb,1.0638e+01_rb,5.6861e+00_rb,1.0714e-01_rb/)
+      kbo(:, 3,28,11) = (/ &
+     &2.5973e+01_rb,1.9937e+01_rb,1.3871e+01_rb,7.4210e+00_rb,1.3061e-01_rb/)
+      kbo(:, 4,28,11) = (/ &
+     &3.3032e+01_rb,2.5345e+01_rb,1.7630e+01_rb,9.4399e+00_rb,1.5744e-01_rb/)
+      kbo(:, 5,28,11) = (/ &
+     &4.1210e+01_rb,3.1582e+01_rb,2.1933e+01_rb,1.1759e+01_rb,1.8456e-01_rb/)
+      kbo(:, 1,29,11) = (/ &
+     &1.3790e+01_rb,1.0662e+01_rb,7.4451e+00_rb,3.9766e+00_rb,7.8021e-02_rb/)
+      kbo(:, 2,29,11) = (/ &
+     &1.8507e+01_rb,1.4288e+01_rb,9.9758e+00_rb,5.3363e+00_rb,9.5820e-02_rb/)
+      kbo(:, 3,29,11) = (/ &
+     &2.4091e+01_rb,1.8575e+01_rb,1.2977e+01_rb,6.9398e+00_rb,1.1898e-01_rb/)
+      kbo(:, 4,29,11) = (/ &
+     &3.0652e+01_rb,2.3593e+01_rb,1.6474e+01_rb,8.8251e+00_rb,1.4373e-01_rb/)
+      kbo(:, 5,29,11) = (/ &
+     &3.8268e+01_rb,2.9419e+01_rb,2.0534e+01_rb,1.1026e+01_rb,1.6837e-01_rb/)
+      kbo(:, 1,30,11) = (/ &
+     &1.2835e+01_rb,9.9842e+00_rb,6.9893e+00_rb,3.7286e+00_rb,6.9765e-02_rb/)
+      kbo(:, 2,30,11) = (/ &
+     &1.7126e+01_rb,1.3305e+01_rb,9.3238e+00_rb,4.9785e+00_rb,8.7990e-02_rb/)
+      kbo(:, 3,30,11) = (/ &
+     &2.2319e+01_rb,1.7278e+01_rb,1.2100e+01_rb,6.4728e+00_rb,1.0830e-01_rb/)
+      kbo(:, 4,30,11) = (/ &
+     &2.8412e+01_rb,2.1956e+01_rb,1.5383e+01_rb,8.2493e+00_rb,1.2854e-01_rb/)
+      kbo(:, 5,30,11) = (/ &
+     &3.5540e+01_rb,2.7422e+01_rb,1.9221e+01_rb,1.0332e+01_rb,1.5041e-01_rb/)
+      kbo(:, 1,31,11) = (/ &
+     &1.1866e+01_rb,9.2840e+00_rb,6.5153e+00_rb,3.4693e+00_rb,6.2880e-02_rb/)
+      kbo(:, 2,31,11) = (/ &
+     &1.5808e+01_rb,1.2342e+01_rb,8.6596e+00_rb,4.6193e+00_rb,7.8616e-02_rb/)
+      kbo(:, 3,31,11) = (/ &
+     &2.0587e+01_rb,1.6022e+01_rb,1.1250e+01_rb,6.0171e+00_rb,9.4908e-02_rb/)
+      kbo(:, 4,31,11) = (/ &
+     &2.6251e+01_rb,2.0378e+01_rb,1.4318e+01_rb,7.6818e+00_rb,1.1384e-01_rb/)
+      kbo(:, 5,31,11) = (/ &
+     &3.2893e+01_rb,2.5487e+01_rb,1.7928e+01_rb,9.6467e+00_rb,1.3241e-01_rb/)
+      kbo(:, 1,32,11) = (/ &
+     &1.1095e+01_rb,8.7224e+00_rb,6.1226e+00_rb,3.2519e+00_rb,5.6839e-02_rb/)
+      kbo(:, 2,32,11) = (/ &
+     &1.4751e+01_rb,1.1560e+01_rb,8.1226e+00_rb,4.3325e+00_rb,7.0855e-02_rb/)
+      kbo(:, 3,32,11) = (/ &
+     &1.9205e+01_rb,1.5015e+01_rb,1.0554e+01_rb,5.6424e+00_rb,8.5721e-02_rb/)
+      kbo(:, 4,32,11) = (/ &
+     &2.4504e+01_rb,1.9119e+01_rb,1.3461e+01_rb,7.2214e+00_rb,1.0137e-01_rb/)
+      kbo(:, 5,32,11) = (/ &
+     &3.0723e+01_rb,2.3918e+01_rb,1.6887e+01_rb,9.0922e+00_rb,1.2101e-01_rb/)
+      kbo(:, 1,33,11) = (/ &
+     &1.0469e+01_rb,8.2653e+00_rb,5.8027e+00_rb,3.0803e+00_rb,5.1389e-02_rb/)
+      kbo(:, 2,33,11) = (/ &
+     &1.3905e+01_rb,1.0963e+01_rb,7.7038e+00_rb,4.0998e+00_rb,6.3408e-02_rb/)
+      kbo(:, 3,33,11) = (/ &
+     &1.8080e+01_rb,1.4209e+01_rb,9.9969e+00_rb,5.3421e+00_rb,7.7128e-02_rb/)
+      kbo(:, 4,33,11) = (/ &
+     &2.3055e+01_rb,1.8085e+01_rb,1.2765e+01_rb,6.8504e+00_rb,9.2141e-02_rb/)
+      kbo(:, 5,33,11) = (/ &
+     &2.8901e+01_rb,2.2629e+01_rb,1.6031e+01_rb,8.6400e+00_rb,1.0949e-01_rb/)
+      kbo(:, 1,34,11) = (/ &
+     &9.9524e+00_rb,7.8988e+00_rb,5.5437e+00_rb,2.9382e+00_rb,4.7321e-02_rb/)
+      kbo(:, 2,34,11) = (/ &
+     &1.3224e+01_rb,1.0461e+01_rb,7.3463e+00_rb,3.9087e+00_rb,5.8418e-02_rb/)
+      kbo(:, 3,34,11) = (/ &
+     &1.7166e+01_rb,1.3560e+01_rb,9.5537e+00_rb,5.1034e+00_rb,7.0181e-02_rb/)
+      kbo(:, 4,34,11) = (/ &
+     &2.1887e+01_rb,1.7264e+01_rb,1.2211e+01_rb,6.5526e+00_rb,8.4706e-02_rb/)
+      kbo(:, 5,34,11) = (/ &
+     &2.7487e+01_rb,2.1622e+01_rb,1.5350e+01_rb,8.2698e+00_rb,9.8588e-02_rb/)
+      kbo(:, 1,35,11) = (/ &
+     &9.2896e+00_rb,7.3988e+00_rb,5.1836e+00_rb,2.7478e+00_rb,4.1417e-02_rb/)
+      kbo(:, 2,35,11) = (/ &
+     &1.2346e+01_rb,9.8120e+00_rb,6.8895e+00_rb,3.6621e+00_rb,5.1614e-02_rb/)
+      kbo(:, 3,35,11) = (/ &
+     &1.6038e+01_rb,1.2737e+01_rb,8.9856e+00_rb,4.7992e+00_rb,6.2173e-02_rb/)
+      kbo(:, 4,35,11) = (/ &
+     &2.0501e+01_rb,1.6246e+01_rb,1.1507e+01_rb,6.1715e+00_rb,7.4346e-02_rb/)
+      kbo(:, 5,35,11) = (/ &
+     &2.5865e+01_rb,2.0429e+01_rb,1.4515e+01_rb,7.8139e+00_rb,8.6989e-02_rb/)
+      kbo(:, 1,36,11) = (/ &
+     &8.4641e+00_rb,6.7680e+00_rb,4.7384e+00_rb,2.5089e+00_rb,3.5370e-02_rb/)
+      kbo(:, 2,36,11) = (/ &
+     &1.1283e+01_rb,9.0077e+00_rb,6.3272e+00_rb,3.3586e+00_rb,4.3427e-02_rb/)
+      kbo(:, 3,36,11) = (/ &
+     &1.4709e+01_rb,1.1740e+01_rb,8.2852e+00_rb,4.4192e+00_rb,5.3699e-02_rb/)
+      kbo(:, 4,36,11) = (/ &
+     &1.8892e+01_rb,1.5035e+01_rb,1.0652e+01_rb,5.7082e+00_rb,6.4287e-02_rb/)
+      kbo(:, 5,36,11) = (/ &
+     &2.3976e+01_rb,1.9028e+01_rb,1.3526e+01_rb,7.2706e+00_rb,7.5870e-02_rb/)
+      kbo(:, 1,37,11) = (/ &
+     &7.4506e+00_rb,5.9897e+00_rb,4.1905e+00_rb,2.2153e+00_rb,2.9963e-02_rb/)
+      kbo(:, 2,37,11) = (/ &
+     &1.0029e+01_rb,8.0389e+00_rb,5.6426e+00_rb,2.9898e+00_rb,3.7220e-02_rb/)
+      kbo(:, 3,37,11) = (/ &
+     &1.3144e+01_rb,1.0534e+01_rb,7.4309e+00_rb,3.9559e+00_rb,4.6416e-02_rb/)
+      kbo(:, 4,37,11) = (/ &
+     &1.6999e+01_rb,1.3585e+01_rb,9.6217e+00_rb,5.1490e+00_rb,5.5486e-02_rb/)
+      kbo(:, 5,37,11) = (/ &
+     &2.1741e+01_rb,1.7327e+01_rb,1.2322e+01_rb,6.6152e+00_rb,6.5816e-02_rb/)
+      kbo(:, 1,38,11) = (/ &
+     &6.5566e+00_rb,5.3014e+00_rb,3.7057e+00_rb,1.9579e+00_rb,2.5356e-02_rb/)
+      kbo(:, 2,38,11) = (/ &
+     &8.9151e+00_rb,7.1841e+00_rb,5.0400e+00_rb,2.6656e+00_rb,3.1891e-02_rb/)
+      kbo(:, 3,38,11) = (/ &
+     &1.1778e+01_rb,9.4689e+00_rb,6.6768e+00_rb,3.5488e+00_rb,3.9709e-02_rb/)
+      kbo(:, 4,38,11) = (/ &
+     &1.5333e+01_rb,1.2304e+01_rb,8.7122e+00_rb,4.6542e+00_rb,4.7360e-02_rb/)
+      kbo(:, 5,38,11) = (/ &
+     &1.9762e+01_rb,1.5812e+01_rb,1.1244e+01_rb,6.0319e+00_rb,5.6650e-02_rb/)
+      kbo(:, 1,39,11) = (/ &
+     &5.7815e+00_rb,4.6987e+00_rb,3.2839e+00_rb,1.7336e+00_rb,2.1361e-02_rb/)
+      kbo(:, 2,39,11) = (/ &
+     &7.9403e+00_rb,6.4302e+00_rb,4.5109e+00_rb,2.3848e+00_rb,2.6909e-02_rb/)
+      kbo(:, 3,39,11) = (/ &
+     &1.0589e+01_rb,8.5486e+00_rb,6.0232e+00_rb,3.1966e+00_rb,3.3274e-02_rb/)
+      kbo(:, 4,39,11) = (/ &
+     &1.3890e+01_rb,1.1188e+01_rb,7.9191e+00_rb,4.2244e+00_rb,4.0390e-02_rb/)
+      kbo(:, 5,39,11) = (/ &
+     &1.8032e+01_rb,1.4487e+01_rb,1.0297e+01_rb,5.5201e+00_rb,4.8824e-02_rb/)
+      kbo(:, 1,40,11) = (/ &
+     &4.9663e+00_rb,4.0580e+00_rb,2.8368e+00_rb,1.4961e+00_rb,1.7977e-02_rb/)
+      kbo(:, 2,40,11) = (/ &
+     &6.9269e+00_rb,5.6391e+00_rb,3.9540e+00_rb,2.0894e+00_rb,2.2949e-02_rb/)
+      kbo(:, 3,40,11) = (/ &
+     &9.3578e+00_rb,7.5891e+00_rb,5.3452e+00_rb,2.8327e+00_rb,2.8350e-02_rb/)
+      kbo(:, 4,40,11) = (/ &
+     &1.2407e+01_rb,1.0028e+01_rb,7.0894e+00_rb,3.7744e+00_rb,3.4399e-02_rb/)
+      kbo(:, 5,40,11) = (/ &
+     &1.6240e+01_rb,1.3091e+01_rb,9.2991e+00_rb,4.9787e+00_rb,4.2027e-02_rb/)
+      kbo(:, 1,41,11) = (/ &
+     &4.2485e+00_rb,3.4862e+00_rb,2.4352e+00_rb,1.2849e+00_rb,1.5088e-02_rb/)
+      kbo(:, 2,41,11) = (/ &
+     &6.0166e+00_rb,4.9271e+00_rb,3.4537e+00_rb,1.8243e+00_rb,1.9453e-02_rb/)
+      kbo(:, 3,41,11) = (/ &
+     &8.2485e+00_rb,6.7221e+00_rb,4.7321e+00_rb,2.5060e+00_rb,2.4198e-02_rb/)
+      kbo(:, 4,41,11) = (/ &
+     &1.1066e+01_rb,8.9791e+00_rb,6.3459e+00_rb,3.3734e+00_rb,2.9570e-02_rb/)
+      kbo(:, 5,41,11) = (/ &
+     &1.4636e+01_rb,1.1834e+01_rb,8.3996e+00_rb,4.4886e+00_rb,3.6128e-02_rb/)
+      kbo(:, 1,42,11) = (/ &
+     &3.6346e+00_rb,2.9948e+00_rb,2.0896e+00_rb,1.1018e+00_rb,1.2599e-02_rb/)
+      kbo(:, 2,42,11) = (/ &
+     &5.2244e+00_rb,4.2974e+00_rb,3.0116e+00_rb,1.5911e+00_rb,1.6323e-02_rb/)
+      kbo(:, 3,42,11) = (/ &
+     &7.2643e+00_rb,5.9499e+00_rb,4.1877e+00_rb,2.2172e+00_rb,2.0619e-02_rb/)
+      kbo(:, 4,42,11) = (/ &
+     &9.8747e+00_rb,8.0447e+00_rb,5.6854e+00_rb,3.0206e+00_rb,2.5282e-02_rb/)
+      kbo(:, 5,42,11) = (/ &
+     &1.3206e+01_rb,1.0716e+01_rb,7.6001e+00_rb,4.0544e+00_rb,3.0876e-02_rb/)
+      kbo(:, 1,43,11) = (/ &
+     &3.0660e+00_rb,2.5370e+00_rb,1.7687e+00_rb,9.3216e-01_rb,1.0308e-02_rb/)
+      kbo(:, 2,43,11) = (/ &
+     &4.4856e+00_rb,3.7056e+00_rb,2.5945e+00_rb,1.3700e+00_rb,1.3601e-02_rb/)
+      kbo(:, 3,43,11) = (/ &
+     &6.3372e+00_rb,5.2140e+00_rb,3.6676e+00_rb,1.9419e+00_rb,1.7306e-02_rb/)
+      kbo(:, 4,43,11) = (/ &
+     &8.7409e+00_rb,7.1536e+00_rb,5.0545e+00_rb,2.6839e+00_rb,2.1526e-02_rb/)
+      kbo(:, 5,43,11) = (/ &
+     &1.1846e+01_rb,9.6432e+00_rb,6.8374e+00_rb,3.6437e+00_rb,2.6238e-02_rb/)
+      kbo(:, 1,44,11) = (/ &
+     &2.5664e+00_rb,2.1306e+00_rb,1.4853e+00_rb,7.8185e-01_rb,8.3390e-03_rb/)
+      kbo(:, 2,44,11) = (/ &
+     &3.8265e+00_rb,3.1748e+00_rb,2.2204e+00_rb,1.1717e+00_rb,1.1111e-02_rb/)
+      kbo(:, 3,44,11) = (/ &
+     &5.5006e+00_rb,4.5418e+00_rb,3.1915e+00_rb,1.6892e+00_rb,1.4312e-02_rb/)
+      kbo(:, 4,44,11) = (/ &
+     &7.6990e+00_rb,6.3295e+00_rb,4.4707e+00_rb,2.3728e+00_rb,1.8022e-02_rb/)
+      kbo(:, 5,44,11) = (/ &
+     &1.0590e+01_rb,8.6508e+00_rb,6.1308e+00_rb,3.2656e+00_rb,2.2284e-02_rb/)
+      kbo(:, 1,45,11) = (/ &
+     &2.1449e+00_rb,1.7852e+00_rb,1.2434e+00_rb,6.5459e-01_rb,6.5374e-03_rb/)
+      kbo(:, 2,45,11) = (/ &
+     &3.2586e+00_rb,2.7120e+00_rb,1.8962e+00_rb,1.0002e+00_rb,8.9661e-03_rb/)
+      kbo(:, 3,45,11) = (/ &
+     &4.7677e+00_rb,3.9512e+00_rb,2.7729e+00_rb,1.4668e+00_rb,1.1723e-02_rb/)
+      kbo(:, 4,45,11) = (/ &
+     &6.7759e+00_rb,5.5907e+00_rb,3.9459e+00_rb,2.0943e+00_rb,1.4893e-02_rb/)
+      kbo(:, 5,45,11) = (/ &
+     &9.4617e+00_rb,7.7574e+00_rb,5.4954e+00_rb,2.9257e+00_rb,1.8879e-02_rb/)
+      kbo(:, 1,46,11) = (/ &
+     &1.7693e+00_rb,1.4778e+00_rb,1.0286e+00_rb,5.4110e-01_rb,5.0474e-03_rb/)
+      kbo(:, 2,46,11) = (/ &
+     &2.7478e+00_rb,2.2930e+00_rb,1.6009e+00_rb,8.4457e-01_rb,7.0726e-03_rb/)
+      kbo(:, 3,46,11) = (/ &
+     &4.0941e+00_rb,3.4053e+00_rb,2.3875e+00_rb,1.2626e+00_rb,9.5023e-03_rb/)
+      kbo(:, 4,46,11) = (/ &
+     &5.9189e+00_rb,4.8999e+00_rb,3.4535e+00_rb,1.8324e+00_rb,1.2322e-02_rb/)
+      kbo(:, 5,46,11) = (/ &
+     &8.3887e+00_rb,6.9026e+00_rb,4.8893e+00_rb,2.6020e+00_rb,1.5617e-02_rb/)
+      kbo(:, 1,47,11) = (/ &
+     &1.4241e+00_rb,1.1941e+00_rb,8.3002e-01_rb,4.3643e-01_rb,3.7828e-03_rb/)
+      kbo(:, 2,47,11) = (/ &
+     &2.2698e+00_rb,1.8986e+00_rb,1.3247e+00_rb,6.9822e-01_rb,5.4676e-03_rb/)
+      kbo(:, 3,47,11) = (/ &
+     &3.4547e+00_rb,2.8836e+00_rb,2.0196e+00_rb,1.0678e+00_rb,7.6213e-03_rb/)
+      kbo(:, 4,47,11) = (/ &
+     &5.0871e+00_rb,4.2288e+00_rb,2.9766e+00_rb,1.5778e+00_rb,9.9658e-03_rb/)
+      kbo(:, 5,47,11) = (/ &
+     &7.3321e+00_rb,6.0542e+00_rb,4.2837e+00_rb,2.2790e+00_rb,1.3055e-02_rb/)
+      kbo(:, 1,48,11) = (/ &
+     &1.1337e+00_rb,9.5606e-01_rb,6.6479e-01_rb,3.4941e-01_rb,2.8319e-03_rb/)
+      kbo(:, 2,48,11) = (/ &
+     &1.8661e+00_rb,1.5653e+00_rb,1.0902e+00_rb,5.7432e-01_rb,4.1758e-03_rb/)
+      kbo(:, 3,48,11) = (/ &
+     &2.9045e+00_rb,2.4321e+00_rb,1.7012e+00_rb,8.9870e-01_rb,5.9617e-03_rb/)
+      kbo(:, 4,48,11) = (/ &
+     &4.3570e+00_rb,3.6357e+00_rb,2.5565e+00_rb,1.3546e+00_rb,7.9840e-03_rb/)
+      kbo(:, 5,48,11) = (/ &
+     &6.3922e+00_rb,5.2980e+00_rb,3.7432e+00_rb,1.9904e+00_rb,1.0519e-02_rb/)
+      kbo(:, 1,49,11) = (/ &
+     &8.9211e-01_rb,7.5781e-01_rb,5.2674e-01_rb,2.7699e-01_rb,2.0587e-03_rb/)
+      kbo(:, 2,49,11) = (/ &
+     &1.5203e+00_rb,1.2812e+00_rb,8.9206e-01_rb,4.6970e-01_rb,3.1077e-03_rb/)
+      kbo(:, 3,49,11) = (/ &
+     &2.4343e+00_rb,2.0415e+00_rb,1.4265e+00_rb,7.5292e-01_rb,4.5062e-03_rb/)
+      kbo(:, 4,49,11) = (/ &
+     &3.7205e+00_rb,3.1142e+00_rb,2.1868e+00_rb,1.1585e+00_rb,6.1377e-03_rb/)
+      kbo(:, 5,49,11) = (/ &
+     &5.5564e+00_rb,4.6243e+00_rb,3.2638e+00_rb,1.7346e+00_rb,8.3879e-03_rb/)
+      kbo(:, 1,50,11) = (/ &
+     &6.9944e-01_rb,5.9730e-01_rb,4.1544e-01_rb,2.1892e-01_rb,1.5159e-03_rb/)
+      kbo(:, 2,50,11) = (/ &
+     &1.2386e+00_rb,1.0495e+00_rb,7.3105e-01_rb,3.8493e-01_rb,2.3639e-03_rb/)
+      kbo(:, 3,50,11) = (/ &
+     &2.0475e+00_rb,1.7233e+00_rb,1.2030e+00_rb,6.3443e-01_rb,3.5129e-03_rb/)
+      kbo(:, 4,50,11) = (/ &
+     &3.1987e+00_rb,2.6838e+00_rb,1.8828e+00_rb,9.9721e-01_rb,4.9131e-03_rb/)
+      kbo(:, 5,50,11) = (/ &
+     &4.8613e+00_rb,4.0604e+00_rb,2.8638e+00_rb,1.5216e+00_rb,6.8102e-03_rb/)
+      kbo(:, 1,51,11) = (/ &
+     &5.4324e-01_rb,4.6725e-01_rb,3.2546e-01_rb,1.7172e-01_rb,1.1297e-03_rb/)
+      kbo(:, 2,51,11) = (/ &
+     &1.0054e+00_rb,8.5632e-01_rb,5.9623e-01_rb,3.1426e-01_rb,1.7844e-03_rb/)
+      kbo(:, 3,51,11) = (/ &
+     &1.7180e+00_rb,1.4523e+00_rb,1.0136e+00_rb,5.3456e-01_rb,2.7288e-03_rb/)
+      kbo(:, 4,51,11) = (/ &
+     &2.7560e+00_rb,2.3178e+00_rb,1.6244e+00_rb,8.6011e-01_rb,3.9147e-03_rb/)
+      kbo(:, 5,51,11) = (/ &
+     &4.2636e+00_rb,3.5725e+00_rb,2.5176e+00_rb,1.3376e+00_rb,5.4601e-03_rb/)
+      kbo(:, 1,52,11) = (/ &
+     &4.1659e-01_rb,3.6012e-01_rb,2.5102e-01_rb,1.3270e-01_rb,8.3775e-04_rb/)
+      kbo(:, 2,52,11) = (/ &
+     &8.0451e-01_rb,6.9074e-01_rb,4.8148e-01_rb,2.5404e-01_rb,1.3424e-03_rb/)
+      kbo(:, 3,52,11) = (/ &
+     &1.4303e+00_rb,1.2146e+00_rb,8.4783e-01_rb,4.4730e-01_rb,2.0961e-03_rb/)
+      kbo(:, 4,52,11) = (/ &
+     &2.3661e+00_rb,1.9968e+00_rb,1.3985e+00_rb,7.3984e-01_rb,3.0912e-03_rb/)
+      kbo(:, 5,52,11) = (/ &
+     &3.7364e+00_rb,3.1393e+00_rb,2.2101e+00_rb,1.1738e+00_rb,4.3230e-03_rb/)
+      kbo(:, 1,53,11) = (/ &
+     &3.1784e-01_rb,2.7470e-01_rb,1.9112e-01_rb,1.0099e-01_rb,6.0100e-04_rb/)
+      kbo(:, 2,53,11) = (/ &
+     &6.3733e-01_rb,5.5043e-01_rb,3.8376e-01_rb,2.0263e-01_rb,1.0152e-03_rb/)
+      kbo(:, 3,53,11) = (/ &
+     &1.1810e+00_rb,1.0077e+00_rb,7.0333e-01_rb,3.7118e-01_rb,1.5799e-03_rb/)
+      kbo(:, 4,53,11) = (/ &
+     &2.0184e+00_rb,1.7109e+00_rb,1.1985e+00_rb,6.3377e-01_rb,2.3636e-03_rb/)
+      kbo(:, 5,53,11) = (/ &
+     &3.2693e+00_rb,2.7525e+00_rb,1.9355e+00_rb,1.0278e+00_rb,3.4086e-03_rb/)
+      kbo(:, 1,54,11) = (/ &
+     &2.4587e-01_rb,2.1298e-01_rb,1.4829e-01_rb,7.8206e-02_rb,4.4874e-04_rb/)
+      kbo(:, 2,54,11) = (/ &
+     &5.0524e-01_rb,4.3896e-01_rb,3.0674e-01_rb,1.6236e-01_rb,7.8054e-04_rb/)
+      kbo(:, 3,54,11) = (/ &
+     &9.7870e-01_rb,8.4204e-01_rb,5.8784e-01_rb,3.1052e-01_rb,1.2701e-03_rb/)
+      kbo(:, 4,54,11) = (/ &
+     &1.7368e+00_rb,1.4787e+00_rb,1.0357e+00_rb,5.4775e-01_rb,1.9340e-03_rb/)
+      kbo(:, 5,54,11) = (/ &
+     &2.8933e+00_rb,2.4419e+00_rb,1.7163e+00_rb,9.1082e-01_rb,2.8443e-03_rb/)
+      kbo(:, 1,55,11) = (/ &
+     &1.9418e-01_rb,1.6698e-01_rb,1.1582e-01_rb,6.0924e-02_rb,3.5209e-04_rb/)
+      kbo(:, 2,55,11) = (/ &
+     &3.9791e-01_rb,3.4892e-01_rb,2.4392e-01_rb,1.2929e-01_rb,6.3188e-04_rb/)
+      kbo(:, 3,55,11) = (/ &
+     &8.0845e-01_rb,6.9946e-01_rb,4.8912e-01_rb,2.5894e-01_rb,1.0591e-03_rb/)
+      kbo(:, 4,55,11) = (/ &
+     &1.4970e+00_rb,1.2804e+00_rb,8.9678e-01_rb,4.7424e-01_rb,1.6138e-03_rb/)
+      kbo(:, 5,55,11) = (/ &
+     &2.5700e+00_rb,2.1774e+00_rb,1.5304e+00_rb,8.1150e-01_rb,2.4277e-03_rb/)
+      kbo(:, 1,56,11) = (/ &
+     &1.5370e-01_rb,1.3145e-01_rb,9.1321e-02_rb,4.8124e-02_rb,2.7531e-04_rb/)
+      kbo(:, 2,56,11) = (/ &
+     &3.1616e-01_rb,2.7583e-01_rb,1.9245e-01_rb,1.0171e-01_rb,5.0269e-04_rb/)
+      kbo(:, 3,56,11) = (/ &
+     &6.6199e-01_rb,5.7649e-01_rb,4.0352e-01_rb,2.1386e-01_rb,8.6775e-04_rb/)
+      kbo(:, 4,56,11) = (/ &
+     &1.2822e+00_rb,1.1021e+00_rb,7.7256e-01_rb,4.0891e-01_rb,1.3519e-03_rb/)
+      kbo(:, 5,56,11) = (/ &
+     &2.2783e+00_rb,1.9368e+00_rb,1.3622e+00_rb,7.2221e-01_rb,2.0801e-03_rb/)
+      kbo(:, 1,57,11) = (/ &
+     &1.2165e-01_rb,1.0433e-01_rb,7.2303e-02_rb,3.8009e-02_rb,2.1938e-04_rb/)
+      kbo(:, 2,57,11) = (/ &
+     &2.5198e-01_rb,2.1938e-01_rb,1.5311e-01_rb,8.0877e-02_rb,3.9875e-04_rb/)
+      kbo(:, 3,57,11) = (/ &
+     &5.3606e-01_rb,4.7039e-01_rb,3.2945e-01_rb,1.7508e-01_rb,6.9954e-04_rb/)
+      kbo(:, 4,57,11) = (/ &
+     &1.0880e+00_rb,9.4273e-01_rb,6.6142e-01_rb,3.5027e-01_rb,1.1454e-03_rb/)
+      kbo(:, 5,57,11) = (/ &
+     &2.0139e+00_rb,1.7191e+00_rb,1.2097e+00_rb,6.4100e-01_rb,1.7901e-03_rb/)
+      kbo(:, 1,58,11) = (/ &
+     &4.6919e-02_rb,4.6268e-02_rb,3.7584e-02_rb,2.3911e-02_rb,1.7988e-04_rb/)
+      kbo(:, 2,58,11) = (/ &
+     &9.9628e-02_rb,9.8832e-02_rb,8.0744e-02_rb,5.1438e-02_rb,3.2482e-04_rb/)
+      kbo(:, 3,58,11) = (/ &
+     &2.1097e-01_rb,2.1358e-01_rb,1.7570e-01_rb,1.1318e-01_rb,5.8194e-04_rb/)
+      kbo(:, 4,58,11) = (/ &
+     &4.4837e-01_rb,4.4802e-01_rb,3.6936e-01_rb,2.3727e-01_rb,9.7962e-04_rb/)
+      kbo(:, 5,58,11) = (/ &
+     &8.6568e-01_rb,8.5230e-01_rb,7.0456e-01_rb,4.5178e-01_rb,1.5789e-03_rb/)
+      kbo(:, 1,59,11) = (/ &
+     &4.1955e-02_rb,4.1496e-02_rb,3.3924e-02_rb,2.1748e-02_rb,1.7054e-04_rb/)
+      kbo(:, 2,59,11) = (/ &
+     &9.0096e-02_rb,8.9872e-02_rb,7.3696e-02_rb,4.7378e-02_rb,3.1638e-04_rb/)
+      kbo(:, 3,59,11) = (/ &
+     &1.9169e-01_rb,1.9390e-01_rb,1.6037e-01_rb,1.0394e-01_rb,5.9374e-04_rb/)
+      kbo(:, 4,59,11) = (/ &
+     &4.1170e-01_rb,4.1459e-01_rb,3.4386e-01_rb,2.2297e-01_rb,1.0082e-03_rb/)
+      kbo(:, 5,59,11) = (/ &
+     &8.1839e-01_rb,8.1107e-01_rb,6.7470e-01_rb,4.3624e-01_rb,1.6869e-03_rb/)
+      kbo(:, 1,13,12) = (/ &
+     &1.0396e+02_rb,7.7973e+01_rb,5.1984e+01_rb,2.5992e+01_rb,2.8896e-01_rb/)
+      kbo(:, 2,13,12) = (/ &
+     &1.4817e+02_rb,1.1113e+02_rb,7.4089e+01_rb,3.7043e+01_rb,6.4071e-01_rb/)
+      kbo(:, 3,13,12) = (/ &
+     &2.0061e+02_rb,1.5046e+02_rb,1.0030e+02_rb,5.0152e+01_rb,7.6116e-01_rb/)
+      kbo(:, 4,13,12) = (/ &
+     &2.6114e+02_rb,1.9586e+02_rb,1.3057e+02_rb,6.5284e+01_rb,1.0553e+00_rb/)
+      kbo(:, 5,13,12) = (/ &
+     &3.2831e+02_rb,2.4622e+02_rb,1.6415e+02_rb,8.2071e+01_rb,1.4067e+00_rb/)
+      kbo(:, 1,14,12) = (/ &
+     &1.1135e+02_rb,8.3512e+01_rb,5.5676e+01_rb,2.7839e+01_rb,4.1053e-01_rb/)
+      kbo(:, 2,14,12) = (/ &
+     &1.5695e+02_rb,1.1771e+02_rb,7.8475e+01_rb,3.9240e+01_rb,6.2372e-01_rb/)
+      kbo(:, 3,14,12) = (/ &
+     &2.1121e+02_rb,1.5841e+02_rb,1.0560e+02_rb,5.2802e+01_rb,8.0301e-01_rb/)
+      kbo(:, 4,14,12) = (/ &
+     &2.7313e+02_rb,2.0485e+02_rb,1.3657e+02_rb,6.8283e+01_rb,1.0170e+00_rb/)
+      kbo(:, 5,14,12) = (/ &
+     &3.4124e+02_rb,2.5592e+02_rb,1.7062e+02_rb,8.5308e+01_rb,1.1064e+00_rb/)
+      kbo(:, 1,15,12) = (/ &
+     &1.1186e+02_rb,8.3897e+01_rb,5.5935e+01_rb,2.7966e+01_rb,4.8952e-01_rb/)
+      kbo(:, 2,15,12) = (/ &
+     &1.5638e+02_rb,1.1729e+02_rb,7.8194e+01_rb,3.9097e+01_rb,5.8507e-01_rb/)
+      kbo(:, 3,15,12) = (/ &
+     &2.0878e+02_rb,1.5659e+02_rb,1.0439e+02_rb,5.2197e+01_rb,6.7687e-01_rb/)
+      kbo(:, 4,15,12) = (/ &
+     &2.6790e+02_rb,2.0092e+02_rb,1.3395e+02_rb,6.6979e+01_rb,7.8981e-01_rb/)
+      kbo(:, 5,15,12) = (/ &
+     &3.3305e+02_rb,2.4981e+02_rb,1.6654e+02_rb,8.3272e+01_rb,9.5540e-01_rb/)
+      kbo(:, 1,16,12) = (/ &
+     &1.0741e+02_rb,8.0552e+01_rb,5.3706e+01_rb,2.6852e+01_rb,4.1874e-01_rb/)
+      kbo(:, 2,16,12) = (/ &
+     &1.4898e+02_rb,1.1174e+02_rb,7.4489e+01_rb,3.7244e+01_rb,5.0405e-01_rb/)
+      kbo(:, 3,16,12) = (/ &
+     &1.9721e+02_rb,1.4789e+02_rb,9.8599e+01_rb,4.9301e+01_rb,6.1901e-01_rb/)
+      kbo(:, 4,16,12) = (/ &
+     &2.5144e+02_rb,1.8859e+02_rb,1.2573e+02_rb,6.2879e+01_rb,7.4947e-01_rb/)
+      kbo(:, 5,16,12) = (/ &
+     &3.1058e+02_rb,2.3295e+02_rb,1.5529e+02_rb,7.7686e+01_rb,8.7491e-01_rb/)
+      kbo(:, 1,17,12) = (/ &
+     &9.9838e+01_rb,7.4879e+01_rb,4.9919e+01_rb,2.5012e+01_rb,3.9338e-01_rb/)
+      kbo(:, 2,17,12) = (/ &
+     &1.3717e+02_rb,1.0287e+02_rb,6.8583e+01_rb,3.4361e+01_rb,4.7893e-01_rb/)
+      kbo(:, 3,17,12) = (/ &
+     &1.8052e+02_rb,1.3539e+02_rb,9.0259e+01_rb,4.5242e+01_rb,5.7262e-01_rb/)
+      kbo(:, 4,17,12) = (/ &
+     &2.2880e+02_rb,1.7160e+02_rb,1.1440e+02_rb,5.7395e+01_rb,6.8306e-01_rb/)
+      kbo(:, 5,17,12) = (/ &
+     &2.8220e+02_rb,2.1165e+02_rb,1.4109e+02_rb,7.0870e+01_rb,7.6022e-01_rb/)
+      kbo(:, 1,18,12) = (/ &
+     &8.8836e+01_rb,6.6627e+01_rb,4.4421e+01_rb,2.2423e+01_rb,3.7355e-01_rb/)
+      kbo(:, 2,18,12) = (/ &
+     &1.2136e+02_rb,9.1017e+01_rb,6.0679e+01_rb,3.0651e+01_rb,4.3123e-01_rb/)
+      kbo(:, 3,18,12) = (/ &
+     &1.5857e+02_rb,1.1893e+02_rb,7.9284e+01_rb,4.0088e+01_rb,5.1039e-01_rb/)
+      kbo(:, 4,18,12) = (/ &
+     &2.0050e+02_rb,1.5036e+02_rb,1.0025e+02_rb,5.0735e+01_rb,5.8388e-01_rb/)
+      kbo(:, 5,18,12) = (/ &
+     &2.4631e+02_rb,1.8473e+02_rb,1.2316e+02_rb,6.2388e+01_rb,6.7078e-01_rb/)
+      kbo(:, 1,19,12) = (/ &
+     &7.8886e+01_rb,5.9167e+01_rb,3.9445e+01_rb,2.0119e+01_rb,3.3866e-01_rb/)
+      kbo(:, 2,19,12) = (/ &
+     &1.0689e+02_rb,8.0167e+01_rb,5.3444e+01_rb,2.7289e+01_rb,4.0283e-01_rb/)
+      kbo(:, 3,19,12) = (/ &
+     &1.3921e+02_rb,1.0440e+02_rb,6.9601e+01_rb,3.5553e+01_rb,4.5001e-01_rb/)
+      kbo(:, 4,19,12) = (/ &
+     &1.7541e+02_rb,1.3156e+02_rb,8.7714e+01_rb,4.4793e+01_rb,5.0843e-01_rb/)
+      kbo(:, 5,19,12) = (/ &
+     &2.1523e+02_rb,1.6142e+02_rb,1.0764e+02_rb,5.4993e+01_rb,5.9607e-01_rb/)
+      kbo(:, 1,20,12) = (/ &
+     &7.0328e+01_rb,5.2750e+01_rb,3.5209e+01_rb,1.8081e+01_rb,3.1237e-01_rb/)
+      kbo(:, 2,20,12) = (/ &
+     &9.4812e+01_rb,7.1110e+01_rb,4.7453e+01_rb,2.4387e+01_rb,3.6655e-01_rb/)
+      kbo(:, 3,20,12) = (/ &
+     &1.2307e+02_rb,9.2305e+01_rb,6.1607e+01_rb,3.1685e+01_rb,4.1127e-01_rb/)
+      kbo(:, 4,20,12) = (/ &
+     &1.5482e+02_rb,1.1612e+02_rb,7.7556e+01_rb,3.9922e+01_rb,4.7264e-01_rb/)
+      kbo(:, 5,20,12) = (/ &
+     &1.8921e+02_rb,1.4190e+02_rb,9.4818e+01_rb,4.8866e+01_rb,5.5288e-01_rb/)
+      kbo(:, 1,21,12) = (/ &
+     &6.2329e+01_rb,4.6745e+01_rb,3.1314e+01_rb,1.6132e+01_rb,2.8533e-01_rb/)
+      kbo(:, 2,21,12) = (/ &
+     &8.3734e+01_rb,6.2791e+01_rb,4.2073e+01_rb,2.1717e+01_rb,3.3097e-01_rb/)
+      kbo(:, 3,21,12) = (/ &
+     &1.0843e+02_rb,8.1321e+01_rb,5.4516e+01_rb,2.8198e+01_rb,3.8205e-01_rb/)
+      kbo(:, 4,21,12) = (/ &
+     &1.3597e+02_rb,1.0198e+02_rb,6.8398e+01_rb,3.5455e+01_rb,4.6172e-01_rb/)
+      kbo(:, 5,21,12) = (/ &
+     &1.6566e+02_rb,1.2424e+02_rb,8.3370e+01_rb,4.3320e+01_rb,5.2289e-01_rb/)
+      kbo(:, 1,22,12) = (/ &
+     &5.5853e+01_rb,4.1896e+01_rb,2.8239e+01_rb,1.4630e+01_rb,2.6479e-01_rb/)
+      kbo(:, 2,22,12) = (/ &
+     &7.4659e+01_rb,5.5993e+01_rb,3.7758e+01_rb,1.9621e+01_rb,3.0587e-01_rb/)
+      kbo(:, 3,22,12) = (/ &
+     &9.6287e+01_rb,7.2215e+01_rb,4.8710e+01_rb,2.5388e+01_rb,3.6961e-01_rb/)
+      kbo(:, 4,22,12) = (/ &
+     &1.2002e+02_rb,9.0023e+01_rb,6.0736e+01_rb,3.1753e+01_rb,4.4273e-01_rb/)
+      kbo(:, 5,22,12) = (/ &
+     &1.4596e+02_rb,1.0947e+02_rb,7.3878e+01_rb,3.8690e+01_rb,5.0560e-01_rb/)
+      kbo(:, 1,23,12) = (/ &
+     &4.9987e+01_rb,3.7501e+01_rb,2.5418e+01_rb,1.3325e+01_rb,2.4880e-01_rb/)
+      kbo(:, 2,23,12) = (/ &
+     &6.6514e+01_rb,4.9903e+01_rb,3.3828e+01_rb,1.7769e+01_rb,2.9089e-01_rb/)
+      kbo(:, 3,23,12) = (/ &
+     &8.5155e+01_rb,6.3887e+01_rb,4.3325e+01_rb,2.2796e+01_rb,3.6730e-01_rb/)
+      kbo(:, 4,23,12) = (/ &
+     &1.0588e+02_rb,7.9440e+01_rb,5.3898e+01_rb,2.8390e+01_rb,4.2226e-01_rb/)
+      kbo(:, 5,23,12) = (/ &
+     &1.2867e+02_rb,9.6554e+01_rb,6.5521e+01_rb,3.4526e+01_rb,4.8786e-01_rb/)
+      kbo(:, 1,24,12) = (/ &
+     &4.5237e+01_rb,3.3990e+01_rb,2.3082e+01_rb,1.2266e+01_rb,2.3374e-01_rb/)
+      kbo(:, 2,24,12) = (/ &
+     &5.9731e+01_rb,4.4882e+01_rb,3.0518e+01_rb,1.6222e+01_rb,2.9093e-01_rb/)
+      kbo(:, 3,24,12) = (/ &
+     &7.6147e+01_rb,5.7227e+01_rb,3.8961e+01_rb,2.0700e+01_rb,3.4607e-01_rb/)
+      kbo(:, 4,24,12) = (/ &
+     &9.4592e+01_rb,7.1092e+01_rb,4.8449e+01_rb,2.5703e+01_rb,4.0338e-01_rb/)
+      kbo(:, 5,24,12) = (/ &
+     &1.1508e+02_rb,8.6507e+01_rb,5.8986e+01_rb,3.1241e+01_rb,4.6347e-01_rb/)
+      kbo(:, 1,25,12) = (/ &
+     &4.1207e+01_rb,3.1054e+01_rb,2.1145e+01_rb,1.1344e+01_rb,2.1959e-01_rb/)
+      kbo(:, 2,25,12) = (/ &
+     &5.4029e+01_rb,4.0717e+01_rb,2.7774e+01_rb,1.4878e+01_rb,2.7843e-01_rb/)
+      kbo(:, 3,25,12) = (/ &
+     &6.8735e+01_rb,5.1802e+01_rb,3.5391e+01_rb,1.8919e+01_rb,3.2302e-01_rb/)
+      kbo(:, 4,25,12) = (/ &
+     &8.5416e+01_rb,6.4368e+01_rb,4.4030e+01_rb,2.3485e+01_rb,3.8140e-01_rb/)
+      kbo(:, 5,25,12) = (/ &
+     &1.0430e+02_rb,7.8570e+01_rb,5.3767e+01_rb,2.8613e+01_rb,4.3338e-01_rb/)
+      kbo(:, 1,26,12) = (/ &
+     &3.7870e+01_rb,2.8646e+01_rb,1.9592e+01_rb,1.0560e+01_rb,2.1067e-01_rb/)
+      kbo(:, 2,26,12) = (/ &
+     &4.9486e+01_rb,3.7425e+01_rb,2.5645e+01_rb,1.3791e+01_rb,2.5277e-01_rb/)
+      kbo(:, 3,26,12) = (/ &
+     &6.2993e+01_rb,4.7626e+01_rb,3.2666e+01_rb,1.7516e+01_rb,3.0077e-01_rb/)
+      kbo(:, 4,26,12) = (/ &
+     &7.8659e+01_rb,5.9439e+01_rb,4.0756e+01_rb,2.1814e+01_rb,3.5095e-01_rb/)
+      kbo(:, 5,26,12) = (/ &
+     &9.6658e+01_rb,7.2997e+01_rb,5.0039e+01_rb,2.6742e+01_rb,4.0727e-01_rb/)
+      kbo(:, 1,27,12) = (/ &
+     &3.5089e+01_rb,2.6619e+01_rb,1.8325e+01_rb,9.8881e+00_rb,1.9876e-01_rb/)
+      kbo(:, 2,27,12) = (/ &
+     &4.5899e+01_rb,3.4800e+01_rb,2.3944e+01_rb,1.2890e+01_rb,2.3298e-01_rb/)
+      kbo(:, 3,27,12) = (/ &
+     &5.8737e+01_rb,4.4506e+01_rb,3.0596e+01_rb,1.6445e+01_rb,2.8191e-01_rb/)
+      kbo(:, 4,27,12) = (/ &
+     &7.3770e+01_rb,5.5858e+01_rb,3.8369e+01_rb,2.0601e+01_rb,3.2481e-01_rb/)
+      kbo(:, 5,27,12) = (/ &
+     &9.1107e+01_rb,6.8940e+01_rb,4.7296e+01_rb,2.5356e+01_rb,3.8171e-01_rb/)
+      kbo(:, 1,28,12) = (/ &
+     &3.2818e+01_rb,2.4943e+01_rb,1.7280e+01_rb,9.3226e+00_rb,1.7817e-01_rb/)
+      kbo(:, 2,28,12) = (/ &
+     &4.3184e+01_rb,3.2811e+01_rb,2.2668e+01_rb,1.2208e+01_rb,2.1857e-01_rb/)
+      kbo(:, 3,28,12) = (/ &
+     &5.5616e+01_rb,4.2235e+01_rb,2.9105e+01_rb,1.5656e+01_rb,2.5762e-01_rb/)
+      kbo(:, 4,28,12) = (/ &
+     &7.0259e+01_rb,5.3319e+01_rb,3.6659e+01_rb,1.9693e+01_rb,3.0371e-01_rb/)
+      kbo(:, 5,28,12) = (/ &
+     &8.7123e+01_rb,6.6079e+01_rb,4.5396e+01_rb,2.4379e+01_rb,3.5478e-01_rb/)
+      kbo(:, 1,29,12) = (/ &
+     &3.0859e+01_rb,2.3511e+01_rb,1.6360e+01_rb,8.8280e+00_rb,1.6679e-01_rb/)
+      kbo(:, 2,29,12) = (/ &
+     &4.0867e+01_rb,3.1128e+01_rb,2.1584e+01_rb,1.1631e+01_rb,2.0451e-01_rb/)
+      kbo(:, 3,29,12) = (/ &
+     &5.2915e+01_rb,4.0294e+01_rb,2.7845e+01_rb,1.4987e+01_rb,2.3670e-01_rb/)
+      kbo(:, 4,29,12) = (/ &
+     &6.7028e+01_rb,5.1030e+01_rb,3.5190e+01_rb,1.8944e+01_rb,2.7999e-01_rb/)
+      kbo(:, 5,29,12) = (/ &
+     &8.3169e+01_rb,6.3273e+01_rb,4.3571e+01_rb,2.3474e+01_rb,3.2963e-01_rb/)
+      kbo(:, 1,30,12) = (/ &
+     &2.9181e+01_rb,2.2308e+01_rb,1.5570e+01_rb,8.4046e+00_rb,1.5217e-01_rb/)
+      kbo(:, 2,30,12) = (/ &
+     &3.8810e+01_rb,2.9664e+01_rb,2.0634e+01_rb,1.1131e+01_rb,1.8255e-01_rb/)
+      kbo(:, 3,30,12) = (/ &
+     &5.0316e+01_rb,3.8456e+01_rb,2.6686e+01_rb,1.4393e+01_rb,2.1489e-01_rb/)
+      kbo(:, 4,30,12) = (/ &
+     &6.3652e+01_rb,4.8625e+01_rb,3.3675e+01_rb,1.8188e+01_rb,2.5258e-01_rb/)
+      kbo(:, 5,30,12) = (/ &
+     &7.8956e+01_rb,6.0282e+01_rb,4.1671e+01_rb,2.2569e+01_rb,2.9642e-01_rb/)
+      kbo(:, 1,31,12) = (/ &
+     &2.7538e+01_rb,2.1159e+01_rb,1.4815e+01_rb,8.0002e+00_rb,1.3523e-01_rb/)
+      kbo(:, 2,31,12) = (/ &
+     &3.6621e+01_rb,2.8123e+01_rb,1.9646e+01_rb,1.0617e+01_rb,1.6072e-01_rb/)
+      kbo(:, 3,31,12) = (/ &
+     &4.7347e+01_rb,3.6341e+01_rb,2.5341e+01_rb,1.3718e+01_rb,1.9204e-01_rb/)
+      kbo(:, 4,31,12) = (/ &
+     &5.9881e+01_rb,4.5936e+01_rb,3.1977e+01_rb,1.7350e+01_rb,2.2658e-01_rb/)
+      kbo(:, 5,31,12) = (/ &
+     &7.4375e+01_rb,5.6987e+01_rb,3.9602e+01_rb,2.1563e+01_rb,2.6205e-01_rb/)
+      kbo(:, 1,32,12) = (/ &
+     &2.6147e+01_rb,2.0200e+01_rb,1.4192e+01_rb,7.6720e+00_rb,1.1829e-01_rb/)
+      kbo(:, 2,32,12) = (/ &
+     &3.4618e+01_rb,2.6728e+01_rb,1.8768e+01_rb,1.0173e+01_rb,1.4448e-01_rb/)
+      kbo(:, 3,32,12) = (/ &
+     &4.4733e+01_rb,3.4488e+01_rb,2.4181e+01_rb,1.3140e+01_rb,1.7290e-01_rb/)
+      kbo(:, 4,32,12) = (/ &
+     &5.6644e+01_rb,4.3620e+01_rb,3.0542e+01_rb,1.6653e+01_rb,2.0200e-01_rb/)
+      kbo(:, 5,32,12) = (/ &
+     &7.0667e+01_rb,5.4331e+01_rb,3.7949e+01_rb,2.0755e+01_rb,2.3023e-01_rb/)
+      kbo(:, 1,33,12) = (/ &
+     &2.4867e+01_rb,1.9325e+01_rb,1.3642e+01_rb,7.3884e+00_rb,1.0477e-01_rb/)
+      kbo(:, 2,33,12) = (/ &
+     &3.2857e+01_rb,2.5486e+01_rb,1.7993e+01_rb,9.7748e+00_rb,1.2807e-01_rb/)
+      kbo(:, 3,33,12) = (/ &
+     &4.2482e+01_rb,3.2899e+01_rb,2.3208e+01_rb,1.2658e+01_rb,1.5122e-01_rb/)
+      kbo(:, 4,33,12) = (/ &
+     &5.4028e+01_rb,4.1749e+01_rb,2.9378e+01_rb,1.6087e+01_rb,1.7656e-01_rb/)
+      kbo(:, 5,33,12) = (/ &
+     &6.7699e+01_rb,5.2220e+01_rb,3.6682e+01_rb,2.0157e+01_rb,2.0029e-01_rb/)
+      kbo(:, 1,34,12) = (/ &
+     &2.3698e+01_rb,1.8505e+01_rb,1.3121e+01_rb,7.1187e+00_rb,9.5888e-02_rb/)
+      kbo(:, 2,34,12) = (/ &
+     &3.1359e+01_rb,2.4427e+01_rb,1.7335e+01_rb,9.4402e+00_rb,1.1540e-01_rb/)
+      kbo(:, 3,34,12) = (/ &
+     &4.0701e+01_rb,3.1624e+01_rb,2.2413e+01_rb,1.2266e+01_rb,1.3371e-01_rb/)
+      kbo(:, 4,34,12) = (/ &
+     &5.2041e+01_rb,4.0338e+01_rb,2.8530e+01_rb,1.5676e+01_rb,1.5490e-01_rb/)
+      kbo(:, 5,34,12) = (/ &
+     &6.5491e+01_rb,5.0663e+01_rb,3.5768e+01_rb,1.9755e+01_rb,1.8157e-01_rb/)
+      kbo(:, 1,35,12) = (/ &
+     &2.2108e+01_rb,1.7359e+01_rb,1.2354e+01_rb,6.7085e+00_rb,8.3925e-02_rb/)
+      kbo(:, 2,35,12) = (/ &
+     &2.9390e+01_rb,2.2999e+01_rb,1.6388e+01_rb,8.9464e+00_rb,9.9962e-02_rb/)
+      kbo(:, 3,35,12) = (/ &
+     &3.8435e+01_rb,2.9966e+01_rb,2.1324e+01_rb,1.1694e+01_rb,1.1806e-01_rb/)
+      kbo(:, 4,35,12) = (/ &
+     &4.9418e+01_rb,3.8439e+01_rb,2.7323e+01_rb,1.5063e+01_rb,1.3630e-01_rb/)
+      kbo(:, 5,35,12) = (/ &
+     &6.2546e+01_rb,4.8535e+01_rb,3.4447e+01_rb,1.9092e+01_rb,1.6585e-01_rb/)
+      kbo(:, 1,36,12) = (/ &
+     &2.0129e+01_rb,1.5891e+01_rb,1.1346e+01_rb,6.1643e+00_rb,7.2166e-02_rb/)
+      kbo(:, 2,36,12) = (/ &
+     &2.6967e+01_rb,2.1198e+01_rb,1.5154e+01_rb,8.2858e+00_rb,8.5917e-02_rb/)
+      kbo(:, 3,36,12) = (/ &
+     &3.5568e+01_rb,2.7847e+01_rb,1.9901e+01_rb,1.0934e+01_rb,1.0193e-01_rb/)
+      kbo(:, 4,36,12) = (/ &
+     &4.6092e+01_rb,3.5975e+01_rb,2.5697e+01_rb,1.4200e+01_rb,1.2167e-01_rb/)
+      kbo(:, 5,36,12) = (/ &
+     &5.8785e+01_rb,4.5750e+01_rb,3.2634e+01_rb,1.8141e+01_rb,1.4958e-01_rb/)
+      kbo(:, 1,37,12) = (/ &
+     &1.7737e+01_rb,1.4074e+01_rb,1.0069e+01_rb,5.4659e+00_rb,6.3045e-02_rb/)
+      kbo(:, 2,37,12) = (/ &
+     &2.3991e+01_rb,1.8955e+01_rb,1.3586e+01_rb,7.4275e+00_rb,7.4702e-02_rb/)
+      kbo(:, 3,37,12) = (/ &
+     &3.1985e+01_rb,2.5160e+01_rb,1.8048e+01_rb,9.9281e+00_rb,8.9095e-02_rb/)
+      kbo(:, 4,37,12) = (/ &
+     &4.1889e+01_rb,3.2824e+01_rb,2.3555e+01_rb,1.3031e+01_rb,1.0656e-01_rb/)
+      kbo(:, 5,37,12) = (/ &
+     &5.3988e+01_rb,4.2162e+01_rb,3.0205e+01_rb,1.6815e+01_rb,1.3149e-01_rb/)
+      kbo(:, 1,38,12) = (/ &
+     &1.5671e+01_rb,1.2491e+01_rb,8.9462e+00_rb,4.8489e+00_rb,5.4067e-02_rb/)
+      kbo(:, 2,38,12) = (/ &
+     &2.1387e+01_rb,1.6974e+01_rb,1.2184e+01_rb,6.6604e+00_rb,6.5509e-02_rb/)
+      kbo(:, 3,38,12) = (/ &
+     &2.8785e+01_rb,2.2756e+01_rb,1.6373e+01_rb,9.0146e+00_rb,7.7568e-02_rb/)
+      kbo(:, 4,38,12) = (/ &
+     &3.8117e+01_rb,2.9996e+01_rb,2.1601e+01_rb,1.1967e+01_rb,9.4071e-02_rb/)
+      kbo(:, 5,38,12) = (/ &
+     &4.9667e+01_rb,3.8921e+01_rb,2.7995e+01_rb,1.5610e+01_rb,1.1469e-01_rb/)
+      kbo(:, 1,39,12) = (/ &
+     &1.3901e+01_rb,1.1137e+01_rb,7.9846e+00_rb,4.3195e+00_rb,4.6183e-02_rb/)
+      kbo(:, 2,39,12) = (/ &
+     &1.9150e+01_rb,1.5270e+01_rb,1.0976e+01_rb,5.9905e+00_rb,5.6093e-02_rb/)
+      kbo(:, 3,39,12) = (/ &
+     &2.6010e+01_rb,2.0653e+01_rb,1.4897e+01_rb,8.2086e+00_rb,6.7656e-02_rb/)
+      kbo(:, 4,39,12) = (/ &
+     &3.4809e+01_rb,2.7511e+01_rb,1.9872e+01_rb,1.1026e+01_rb,8.1649e-02_rb/)
+      kbo(:, 5,39,12) = (/ &
+     &4.5848e+01_rb,3.6052e+01_rb,2.6039e+01_rb,1.4537e+01_rb,9.9747e-02_rb/)
+      kbo(:, 1,40,12) = (/ &
+     &1.2081e+01_rb,9.7243e+00_rb,6.9733e+00_rb,3.7653e+00_rb,3.9581e-02_rb/)
+      kbo(:, 2,40,12) = (/ &
+     &1.6838e+01_rb,1.3484e+01_rb,9.6953e+00_rb,5.2801e+00_rb,4.8568e-02_rb/)
+      kbo(:, 3,40,12) = (/ &
+     &2.3104e+01_rb,1.8425e+01_rb,1.3302e+01_rb,7.3218e+00_rb,5.8955e-02_rb/)
+      kbo(:, 4,40,12) = (/ &
+     &3.1273e+01_rb,2.4818e+01_rb,1.7967e+01_rb,9.9757e+00_rb,7.0859e-02_rb/)
+      kbo(:, 5,40,12) = (/ &
+     &4.1711e+01_rb,3.2920e+01_rb,2.3848e+01_rb,1.3319e+01_rb,8.6539e-02_rb/)
+      kbo(:, 1,41,12) = (/ &
+     &1.0485e+01_rb,8.4800e+00_rb,6.0787e+00_rb,3.2769e+00_rb,3.3606e-02_rb/)
+      kbo(:, 2,41,12) = (/ &
+     &1.4786e+01_rb,1.1894e+01_rb,8.5576e+00_rb,4.6493e+00_rb,4.1457e-02_rb/)
+      kbo(:, 3,41,12) = (/ &
+     &2.0530e+01_rb,1.6437e+01_rb,1.1871e+01_rb,6.5218e+00_rb,5.0842e-02_rb/)
+      kbo(:, 4,41,12) = (/ &
+     &2.8093e+01_rb,2.2374e+01_rb,1.6223e+01_rb,9.0068e+00_rb,6.1229e-02_rb/)
+      kbo(:, 5,41,12) = (/ &
+     &3.7921e+01_rb,3.0039e+01_rb,2.1812e+01_rb,1.2190e+01_rb,7.5282e-02_rb/)
+      kbo(:, 1,42,12) = (/ &
+     &9.1079e+00_rb,7.3993e+00_rb,5.3023e+00_rb,2.8534e+00_rb,2.8075e-02_rb/)
+      kbo(:, 2,42,12) = (/ &
+     &1.3005e+01_rb,1.0510e+01_rb,7.5619e+00_rb,4.1019e+00_rb,3.5441e-02_rb/)
+      kbo(:, 3,42,12) = (/ &
+     &1.8277e+01_rb,1.4697e+01_rb,1.0617e+01_rb,5.8190e+00_rb,4.3089e-02_rb/)
+      kbo(:, 4,42,12) = (/ &
+     &2.5289e+01_rb,2.0221e+01_rb,1.4670e+01_rb,8.1365e+00_rb,5.2317e-02_rb/)
+      kbo(:, 5,42,12) = (/ &
+     &3.4535e+01_rb,2.7452e+01_rb,1.9969e+01_rb,1.1164e+01_rb,6.5436e-02_rb/)
+      kbo(:, 1,43,12) = (/ &
+     &7.8247e+00_rb,6.3834e+00_rb,4.5697e+00_rb,2.4551e+00_rb,2.3117e-02_rb/)
+      kbo(:, 2,43,12) = (/ &
+     &1.1336e+01_rb,9.1978e+00_rb,6.6143e+00_rb,3.5804e+00_rb,2.9659e-02_rb/)
+      kbo(:, 3,43,12) = (/ &
+     &1.6137e+01_rb,1.3030e+01_rb,9.4153e+00_rb,5.1449e+00_rb,3.6857e-02_rb/)
+      kbo(:, 4,43,12) = (/ &
+     &2.2622e+01_rb,1.8150e+01_rb,1.3165e+01_rb,7.2856e+00_rb,4.4557e-02_rb/)
+      kbo(:, 5,43,12) = (/ &
+     &3.1253e+01_rb,2.4925e+01_rb,1.8144e+01_rb,1.0136e+01_rb,5.5864e-02_rb/)
+      kbo(:, 1,44,12) = (/ &
+     &6.6782e+00_rb,5.4729e+00_rb,3.9116e+00_rb,2.0984e+00_rb,1.9194e-02_rb/)
+      kbo(:, 2,44,12) = (/ &
+     &9.8370e+00_rb,8.0127e+00_rb,5.7576e+00_rb,3.1087e+00_rb,2.4741e-02_rb/)
+      kbo(:, 3,44,12) = (/ &
+     &1.4194e+01_rb,1.1506e+01_rb,8.3119e+00_rb,4.5308e+00_rb,3.1291e-02_rb/)
+      kbo(:, 4,44,12) = (/ &
+     &2.0172e+01_rb,1.6246e+01_rb,1.1781e+01_rb,6.4997e+00_rb,3.7622e-02_rb/)
+      kbo(:, 5,44,12) = (/ &
+     &2.8219e+01_rb,2.2570e+01_rb,1.6428e+01_rb,9.1628e+00_rb,4.7831e-02_rb/)
+      kbo(:, 1,45,12) = (/ &
+     &5.6770e+00_rb,4.6794e+00_rb,3.3425e+00_rb,1.7902e+00_rb,1.5806e-02_rb/)
+      kbo(:, 2,45,12) = (/ &
+     &8.5322e+00_rb,6.9760e+00_rb,5.0078e+00_rb,2.6991e+00_rb,2.0417e-02_rb/)
+      kbo(:, 3,45,12) = (/ &
+     &1.2498e+01_rb,1.0162e+01_rb,7.3367e+00_rb,3.9899e+00_rb,2.6093e-02_rb/)
+      kbo(:, 4,45,12) = (/ &
+     &1.7997e+01_rb,1.4548e+01_rb,1.0552e+01_rb,5.8018e+00_rb,3.2356e-02_rb/)
+      kbo(:, 5,45,12) = (/ &
+     &2.5510e+01_rb,2.0455e+01_rb,1.4885e+01_rb,8.2823e+00_rb,4.0610e-02_rb/)
+      kbo(:, 1,46,12) = (/ &
+     &4.7638e+00_rb,3.9496e+00_rb,2.8218e+00_rb,1.5105e+00_rb,1.2604e-02_rb/)
+      kbo(:, 2,46,12) = (/ &
+     &7.3248e+00_rb,6.0189e+00_rb,4.3157e+00_rb,2.3220e+00_rb,1.6943e-02_rb/)
+      kbo(:, 3,46,12) = (/ &
+     &1.0931e+01_rb,8.9155e+00_rb,6.4285e+00_rb,3.4858e+00_rb,2.1734e-02_rb/)
+      kbo(:, 4,46,12) = (/ &
+     &1.5948e+01_rb,1.2933e+01_rb,9.3805e+00_rb,5.1432e+00_rb,2.7407e-02_rb/)
+      kbo(:, 5,46,12) = (/ &
+     &2.2923e+01_rb,1.8438e+01_rb,1.3407e+01_rb,7.4358e+00_rb,3.4309e-02_rb/)
+      kbo(:, 1,47,12) = (/ &
+     &3.9080e+00_rb,3.2569e+00_rb,2.3263e+00_rb,1.2446e+00_rb,1.0169e-02_rb/)
+      kbo(:, 2,47,12) = (/ &
+     &6.1567e+00_rb,5.0883e+00_rb,3.6497e+00_rb,1.9607e+00_rb,1.3733e-02_rb/)
+      kbo(:, 3,47,12) = (/ &
+     &9.4053e+00_rb,7.6982e+00_rb,5.5432e+00_rb,2.9978e+00_rb,1.8162e-02_rb/)
+      kbo(:, 4,47,12) = (/ &
+     &1.3941e+01_rb,1.1337e+01_rb,8.2150e+00_rb,4.4897e+00_rb,2.3207e-02_rb/)
+      kbo(:, 5,47,12) = (/ &
+     &2.0314e+01_rb,1.6396e+01_rb,1.1915e+01_rb,6.5825e+00_rb,2.8974e-02_rb/)
+      kbo(:, 1,48,12) = (/ &
+     &3.1887e+00_rb,2.6690e+00_rb,1.9049e+00_rb,1.0177e+00_rb,7.9795e-03_rb/)
+      kbo(:, 2,48,12) = (/ &
+     &5.1425e+00_rb,4.2754e+00_rb,3.0657e+00_rb,1.6476e+00_rb,1.1064e-02_rb/)
+      kbo(:, 3,48,12) = (/ &
+     &8.0497e+00_rb,6.6225e+00_rb,4.7642e+00_rb,2.5722e+00_rb,1.4743e-02_rb/)
+      kbo(:, 4,48,12) = (/ &
+     &1.2183e+01_rb,9.9349e+00_rb,7.1838e+00_rb,3.9122e+00_rb,1.9211e-02_rb/)
+      kbo(:, 5,48,12) = (/ &
+     &1.7984e+01_rb,1.4555e+01_rb,1.0573e+01_rb,5.8220e+00_rb,2.4214e-02_rb/)
+      kbo(:, 1,49,12) = (/ &
+     &2.5869e+00_rb,2.1741e+00_rb,1.5486e+00_rb,8.2603e-01_rb,6.2330e-03_rb/)
+      kbo(:, 2,49,12) = (/ &
+     &4.2741e+00_rb,3.5702e+00_rb,2.5591e+00_rb,1.3745e+00_rb,8.6780e-03_rb/)
+      kbo(:, 3,49,12) = (/ &
+     &6.8485e+00_rb,5.6671e+00_rb,4.0787e+00_rb,2.1997e+00_rb,1.1935e-02_rb/)
+      kbo(:, 4,49,12) = (/ &
+     &1.0623e+01_rb,8.6880e+00_rb,6.2733e+00_rb,3.4054e+00_rb,1.5780e-02_rb/)
+      kbo(:, 5,49,12) = (/ &
+     &1.5914e+01_rb,1.2906e+01_rb,9.3651e+00_rb,5.1392e+00_rb,2.0415e-02_rb/)
+      kbo(:, 1,50,12) = (/ &
+     &2.1098e+00_rb,1.7804e+00_rb,1.2663e+00_rb,6.7426e-01_rb,4.8509e-03_rb/)
+      kbo(:, 2,50,12) = (/ &
+     &3.5764e+00_rb,2.9999e+00_rb,2.1487e+00_rb,1.1529e+00_rb,6.9665e-03_rb/)
+      kbo(:, 3,50,12) = (/ &
+     &5.8619e+00_rb,4.8746e+00_rb,3.5094e+00_rb,1.8934e+00_rb,9.7336e-03_rb/)
+      kbo(:, 4,50,12) = (/ &
+     &9.3128e+00_rb,7.6488e+00_rb,5.5163e+00_rb,2.9881e+00_rb,1.3124e-02_rb/)
+      kbo(:, 5,50,12) = (/ &
+     &1.4210e+01_rb,1.1543e+01_rb,8.3635e+00_rb,4.5727e+00_rb,1.7352e-02_rb/)
+      kbo(:, 1,51,12) = (/ &
+     &1.7153e+00_rb,1.4551e+00_rb,1.0341e+00_rb,5.4981e-01_rb,3.8011e-03_rb/)
+      kbo(:, 2,51,12) = (/ &
+     &2.9969e+00_rb,2.5231e+00_rb,1.8054e+00_rb,9.6765e-01_rb,5.5539e-03_rb/)
+      kbo(:, 3,51,12) = (/ &
+     &5.0265e+00_rb,4.1972e+00_rb,3.0205e+00_rb,1.6294e+00_rb,8.0318e-03_rb/)
+      kbo(:, 4,51,12) = (/ &
+     &8.1641e+00_rb,6.7342e+00_rb,4.8593e+00_rb,2.6284e+00_rb,1.0987e-02_rb/)
+      kbo(:, 5,51,12) = (/ &
+     &1.2731e+01_rb,1.0364e+01_rb,7.4966e+00_rb,4.0842e+00_rb,1.4784e-02_rb/)
+      kbo(:, 1,52,12) = (/ &
+     &1.3829e+00_rb,1.1793e+00_rb,8.3692e-01_rb,4.4489e-01_rb,2.9111e-03_rb/)
+      kbo(:, 2,52,12) = (/ &
+     &2.5001e+00_rb,2.1140e+00_rb,1.5110e+00_rb,8.0824e-01_rb,4.4285e-03_rb/)
+      kbo(:, 3,52,12) = (/ &
+     &4.2993e+00_rb,3.6038e+00_rb,2.5920e+00_rb,1.3972e+00_rb,6.4988e-03_rb/)
+      kbo(:, 4,52,12) = (/ &
+     &7.1362e+00_rb,5.9093e+00_rb,4.2654e+00_rb,2.3076e+00_rb,9.0777e-03_rb/)
+      kbo(:, 5,52,12) = (/ &
+     &1.1388e+01_rb,9.2949e+00_rb,6.7113e+00_rb,3.6475e+00_rb,1.2584e-02_rb/)
+      kbo(:, 1,53,12) = (/ &
+     &1.0996e+00_rb,9.4448e-01_rb,6.6999e-01_rb,3.5618e-01_rb,2.1752e-03_rb/)
+      kbo(:, 2,53,12) = (/ &
+     &2.0714e+00_rb,1.7598e+00_rb,1.2567e+00_rb,6.7105e-01_rb,3.4164e-03_rb/)
+      kbo(:, 3,53,12) = (/ &
+     &3.6653e+00_rb,3.0827e+00_rb,2.2148e+00_rb,1.1926e+00_rb,5.1289e-03_rb/)
+      kbo(:, 4,53,12) = (/ &
+     &6.2207e+00_rb,5.1680e+00_rb,3.7282e+00_rb,2.0166e+00_rb,7.4836e-03_rb/)
+      kbo(:, 5,53,12) = (/ &
+     &1.0144e+01_rb,8.3054e+00_rb,5.9967e+00_rb,3.2508e+00_rb,1.0390e-02_rb/)
+      kbo(:, 1,54,12) = (/ &
+     &8.8096e-01_rb,7.6003e-01_rb,5.3828e-01_rb,2.8652e-01_rb,1.7028e-03_rb/)
+      kbo(:, 2,54,12) = (/ &
+     &1.7342e+00_rb,1.4790e+00_rb,1.0559e+00_rb,5.6372e-01_rb,2.7715e-03_rb/)
+      kbo(:, 3,54,12) = (/ &
+     &3.1660e+00_rb,2.6700e+00_rb,1.9162e+00_rb,1.0305e+00_rb,4.2409e-03_rb/)
+      kbo(:, 4,54,12) = (/ &
+     &5.4916e+00_rb,4.5733e+00_rb,3.2967e+00_rb,1.7833e+00_rb,6.3614e-03_rb/)
+      kbo(:, 5,54,12) = (/ &
+     &9.1316e+00_rb,7.4962e+00_rb,5.4128e+00_rb,2.9325e+00_rb,9.0996e-03_rb/)
+      kbo(:, 1,55,12) = (/ &
+     &7.0080e-01_rb,6.0941e-01_rb,4.3132e-01_rb,2.2991e-01_rb,1.3497e-03_rb/)
+      kbo(:, 2,55,12) = (/ &
+     &1.4554e+00_rb,1.2471e+00_rb,8.8937e-01_rb,4.7463e-01_rb,2.3282e-03_rb/)
+      kbo(:, 3,55,12) = (/ &
+     &2.7458e+00_rb,2.3243e+00_rb,1.6671e+00_rb,8.9493e-01_rb,3.6585e-03_rb/)
+      kbo(:, 4,55,12) = (/ &
+     &4.8778e+00_rb,4.0704e+00_rb,2.9318e+00_rb,1.5851e+00_rb,5.5673e-03_rb/)
+      kbo(:, 5,55,12) = (/ &
+     &8.2670e+00_rb,6.7971e+00_rb,4.9063e+00_rb,2.6581e+00_rb,8.0481e-03_rb/)
+      kbo(:, 1,56,12) = (/ &
+     &5.5050e-01_rb,4.8277e-01_rb,3.4128e-01_rb,1.8181e-01_rb,1.0666e-03_rb/)
+      kbo(:, 2,56,12) = (/ &
+     &1.2088e+00_rb,1.0426e+00_rb,7.4350e-01_rb,3.9744e-01_rb,1.9421e-03_rb/)
+      kbo(:, 3,56,12) = (/ &
+     &2.3753e+00_rb,2.0178e+00_rb,1.4463e+00_rb,7.7559e-01_rb,3.1486e-03_rb/)
+      kbo(:, 4,56,12) = (/ &
+     &4.3336e+00_rb,3.6227e+00_rb,2.6061e+00_rb,1.4075e+00_rb,4.8772e-03_rb/)
+      kbo(:, 5,56,12) = (/ &
+     &7.4871e+00_rb,6.1648e+00_rb,4.4455e+00_rb,2.4084e+00_rb,7.2633e-03_rb/)
+      kbo(:, 1,57,12) = (/ &
+     &4.2691e-01_rb,3.7593e-01_rb,2.6606e-01_rb,1.4195e-01_rb,8.3793e-04_rb/)
+      kbo(:, 2,57,12) = (/ &
+     &9.9567e-01_rb,8.6325e-01_rb,6.1463e-01_rb,3.2859e-01_rb,1.6242e-03_rb/)
+      kbo(:, 3,57,12) = (/ &
+     &2.0486e+00_rb,1.7449e+00_rb,1.2502e+00_rb,6.7018e-01_rb,2.7399e-03_rb/)
+      kbo(:, 4,57,12) = (/ &
+     &3.8496e+00_rb,3.2234e+00_rb,2.3159e+00_rb,1.2492e+00_rb,4.2649e-03_rb/)
+      kbo(:, 5,57,12) = (/ &
+     &6.7867e+00_rb,5.5927e+00_rb,4.0285e+00_rb,2.1823e+00_rb,6.5093e-03_rb/)
+      kbo(:, 1,58,12) = (/ &
+     &1.6356e-01_rb,1.6482e-01_rb,1.3630e-01_rb,8.7916e-02_rb,6.5877e-04_rb/)
+      kbo(:, 2,58,12) = (/ &
+     &3.9653e-01_rb,3.9771e-01_rb,3.3219e-01_rb,2.1522e-01_rb,1.3561e-03_rb/)
+      kbo(:, 3,58,12) = (/ &
+     &8.5978e-01_rb,8.4388e-01_rb,7.0959e-01_rb,4.6009e-01_rb,2.4231e-03_rb/)
+      kbo(:, 4,58,12) = (/ &
+     &1.6685e+00_rb,1.6071e+00_rb,1.3546e+00_rb,8.8295e-01_rb,3.8944e-03_rb/)
+      kbo(:, 5,58,12) = (/ &
+     &3.0057e+00_rb,2.8445e+00_rb,2.4022e+00_rb,1.5741e+00_rb,5.9596e-03_rb/)
+      kbo(:, 1,59,12) = (/ &
+     &1.4551e-01_rb,1.4725e-01_rb,1.2251e-01_rb,7.9561e-02_rb,6.8074e-04_rb/)
+      kbo(:, 2,59,12) = (/ &
+     &3.6080e-01_rb,3.6451e-01_rb,3.0649e-01_rb,2.0003e-01_rb,1.4324e-03_rb/)
+      kbo(:, 3,59,12) = (/ &
+     &8.0811e-01_rb,7.9823e-01_rb,6.7489e-01_rb,4.4138e-01_rb,2.5709e-03_rb/)
+      kbo(:, 4,59,12) = (/ &
+     &1.6058e+00_rb,1.5512e+00_rb,1.3138e+00_rb,8.6244e-01_rb,4.2753e-03_rb/)
+      kbo(:, 5,59,12) = (/ &
+     &2.9249e+00_rb,2.7730e+00_rb,2.3517e+00_rb,1.5520e+00_rb,6.3367e-03_rb/)
+      kbo(:, 1,13,13) = (/ &
+     &1.6844e+02_rb,1.2633e+02_rb,8.4219e+01_rb,4.2110e+01_rb,6.4746e-01_rb/)
+      kbo(:, 2,13,13) = (/ &
+     &2.3974e+02_rb,1.7981e+02_rb,1.1987e+02_rb,5.9937e+01_rb,7.7977e-01_rb/)
+      kbo(:, 3,13,13) = (/ &
+     &3.2626e+02_rb,2.4469e+02_rb,1.6313e+02_rb,8.1566e+01_rb,1.5118e+00_rb/)
+      kbo(:, 4,13,13) = (/ &
+     &4.2676e+02_rb,3.2006e+02_rb,2.1338e+02_rb,1.0669e+02_rb,1.6642e+00_rb/)
+      kbo(:, 5,13,13) = (/ &
+     &5.4119e+02_rb,4.0589e+02_rb,2.7059e+02_rb,1.3530e+02_rb,1.7313e+00_rb/)
+      kbo(:, 1,14,13) = (/ &
+     &1.9041e+02_rb,1.4281e+02_rb,9.5205e+01_rb,4.7604e+01_rb,4.8593e-01_rb/)
+      kbo(:, 2,14,13) = (/ &
+     &2.6943e+02_rb,2.0207e+02_rb,1.3472e+02_rb,6.7360e+01_rb,1.0523e+00_rb/)
+      kbo(:, 3,14,13) = (/ &
+     &3.6326e+02_rb,2.7244e+02_rb,1.8162e+02_rb,9.0813e+01_rb,1.4658e+00_rb/)
+      kbo(:, 4,14,13) = (/ &
+     &4.7082e+02_rb,3.5312e+02_rb,2.3542e+02_rb,1.1771e+02_rb,1.6120e+00_rb/)
+      kbo(:, 5,14,13) = (/ &
+     &5.9086e+02_rb,4.4312e+02_rb,2.9542e+02_rb,1.4771e+02_rb,1.8462e+00_rb/)
+      kbo(:, 1,15,13) = (/ &
+     &2.0331e+02_rb,1.5249e+02_rb,1.0165e+02_rb,5.0828e+01_rb,7.0211e-01_rb/)
+      kbo(:, 2,15,13) = (/ &
+     &2.8491e+02_rb,2.1369e+02_rb,1.4246e+02_rb,7.1232e+01_rb,1.1193e+00_rb/)
+      kbo(:, 3,15,13) = (/ &
+     &3.8104e+02_rb,2.8579e+02_rb,1.9054e+02_rb,9.5263e+01_rb,1.3482e+00_rb/)
+      kbo(:, 4,15,13) = (/ &
+     &4.8986e+02_rb,3.6740e+02_rb,2.4492e+02_rb,1.2246e+02_rb,1.6094e+00_rb/)
+      kbo(:, 5,15,13) = (/ &
+     &6.0932e+02_rb,4.5699e+02_rb,3.0468e+02_rb,1.5233e+02_rb,1.6798e+00_rb/)
+      kbo(:, 1,16,13) = (/ &
+     &2.0774e+02_rb,1.5583e+02_rb,1.0388e+02_rb,5.1937e+01_rb,8.3999e-01_rb/)
+      kbo(:, 2,16,13) = (/ &
+     &2.8883e+02_rb,2.1662e+02_rb,1.4442e+02_rb,7.2209e+01_rb,1.0268e+00_rb/)
+      kbo(:, 3,16,13) = (/ &
+     &3.8302e+02_rb,2.8729e+02_rb,1.9153e+02_rb,9.5770e+01_rb,1.2054e+00_rb/)
+      kbo(:, 4,16,13) = (/ &
+     &4.8856e+02_rb,3.6642e+02_rb,2.4427e+02_rb,1.2213e+02_rb,1.2630e+00_rb/)
+      kbo(:, 5,16,13) = (/ &
+     &6.0471e+02_rb,4.5354e+02_rb,3.0235e+02_rb,1.5118e+02_rb,1.5611e+00_rb/)
+      kbo(:, 1,17,13) = (/ &
+     &2.0589e+02_rb,1.5442e+02_rb,1.0294e+02_rb,5.1473e+01_rb,7.0898e-01_rb/)
+      kbo(:, 2,17,13) = (/ &
+     &2.8383e+02_rb,2.1287e+02_rb,1.4191e+02_rb,7.0957e+01_rb,8.7566e-01_rb/)
+      kbo(:, 3,17,13) = (/ &
+     &3.7354e+02_rb,2.8016e+02_rb,1.8678e+02_rb,9.3389e+01_rb,1.0083e+00_rb/)
+      kbo(:, 4,17,13) = (/ &
+     &4.7406e+02_rb,3.5553e+02_rb,2.3702e+02_rb,1.1851e+02_rb,1.2409e+00_rb/)
+      kbo(:, 5,17,13) = (/ &
+     &5.8252e+02_rb,4.3688e+02_rb,2.9126e+02_rb,1.4563e+02_rb,1.5701e+00_rb/)
+      kbo(:, 1,18,13) = (/ &
+     &1.9631e+02_rb,1.4723e+02_rb,9.8151e+01_rb,4.9076e+01_rb,6.5277e-01_rb/)
+      kbo(:, 2,18,13) = (/ &
+     &2.6794e+02_rb,2.0095e+02_rb,1.3397e+02_rb,6.6983e+01_rb,7.9253e-01_rb/)
+      kbo(:, 3,18,13) = (/ &
+     &3.5060e+02_rb,2.6297e+02_rb,1.7531e+02_rb,8.7658e+01_rb,9.7984e-01_rb/)
+      kbo(:, 4,18,13) = (/ &
+     &4.4214e+02_rb,3.3161e+02_rb,2.2107e+02_rb,1.1054e+02_rb,1.2414e+00_rb/)
+      kbo(:, 5,18,13) = (/ &
+     &5.4117e+02_rb,4.0586e+02_rb,2.7058e+02_rb,1.3530e+02_rb,1.5487e+00_rb/)
+      kbo(:, 1,19,13) = (/ &
+     &1.8546e+02_rb,1.3909e+02_rb,9.2728e+01_rb,4.6396e+01_rb,6.1789e-01_rb/)
+      kbo(:, 2,19,13) = (/ &
+     &2.5191e+02_rb,1.8893e+02_rb,1.2596e+02_rb,6.3020e+01_rb,7.3049e-01_rb/)
+      kbo(:, 3,19,13) = (/ &
+     &3.2752e+02_rb,2.4563e+02_rb,1.6376e+02_rb,8.1963e+01_rb,9.1418e-01_rb/)
+      kbo(:, 4,19,13) = (/ &
+     &4.1109e+02_rb,3.0832e+02_rb,2.0555e+02_rb,1.0295e+02_rb,1.1663e+00_rb/)
+      kbo(:, 5,19,13) = (/ &
+     &5.0069e+02_rb,3.7554e+02_rb,2.5035e+02_rb,1.2551e+02_rb,1.4682e+00_rb/)
+      kbo(:, 1,20,13) = (/ &
+     &1.7660e+02_rb,1.3245e+02_rb,8.8301e+01_rb,4.4344e+01_rb,5.8624e-01_rb/)
+      kbo(:, 2,20,13) = (/ &
+     &2.3782e+02_rb,1.7835e+02_rb,1.1891e+02_rb,5.9734e+01_rb,7.0627e-01_rb/)
+      kbo(:, 3,20,13) = (/ &
+     &3.0729e+02_rb,2.3046e+02_rb,1.5365e+02_rb,7.7248e+01_rb,8.6369e-01_rb/)
+      kbo(:, 4,20,13) = (/ &
+     &3.8357e+02_rb,2.8768e+02_rb,1.9179e+02_rb,9.6513e+01_rb,1.0255e+00_rb/)
+      kbo(:, 5,20,13) = (/ &
+     &4.6652e+02_rb,3.4991e+02_rb,2.3327e+02_rb,1.1751e+02_rb,1.3105e+00_rb/)
+      kbo(:, 1,21,13) = (/ &
+     &1.6552e+02_rb,1.2414e+02_rb,8.2761e+01_rb,4.1834e+01_rb,5.4233e-01_rb/)
+      kbo(:, 2,21,13) = (/ &
+     &2.2144e+02_rb,1.6608e+02_rb,1.1072e+02_rb,5.6006e+01_rb,6.6551e-01_rb/)
+      kbo(:, 3,21,13) = (/ &
+     &2.8447e+02_rb,2.1334e+02_rb,1.4223e+02_rb,7.2029e+01_rb,7.8267e-01_rb/)
+      kbo(:, 4,21,13) = (/ &
+     &3.5426e+02_rb,2.6570e+02_rb,1.7714e+02_rb,8.9791e+01_rb,9.3322e-01_rb/)
+      kbo(:, 5,21,13) = (/ &
+     &4.3028e+02_rb,3.2271e+02_rb,2.1513e+02_rb,1.0915e+02_rb,1.1469e+00_rb/)
+      kbo(:, 1,22,13) = (/ &
+     &1.5536e+02_rb,1.1652e+02_rb,7.7681e+01_rb,3.9611e+01_rb,5.1617e-01_rb/)
+      kbo(:, 2,22,13) = (/ &
+     &2.0596e+02_rb,1.5446e+02_rb,1.0298e+02_rb,5.2572e+01_rb,6.2474e-01_rb/)
+      kbo(:, 3,22,13) = (/ &
+     &2.6312e+02_rb,1.9733e+02_rb,1.3157e+02_rb,6.7220e+01_rb,7.4033e-01_rb/)
+      kbo(:, 4,22,13) = (/ &
+     &3.2670e+02_rb,2.4500e+02_rb,1.6337e+02_rb,8.3538e+01_rb,8.8562e-01_rb/)
+      kbo(:, 5,22,13) = (/ &
+     &3.9539e+02_rb,2.9656e+02_rb,1.9778e+02_rb,1.0126e+02_rb,1.0777e+00_rb/)
+      kbo(:, 1,23,13) = (/ &
+     &1.4370e+02_rb,1.0779e+02_rb,7.1941e+01_rb,3.6979e+01_rb,5.0881e-01_rb/)
+      kbo(:, 2,23,13) = (/ &
+     &1.8910e+02_rb,1.4182e+02_rb,9.4675e+01_rb,4.8747e+01_rb,5.9561e-01_rb/)
+      kbo(:, 3,23,13) = (/ &
+     &2.4065e+02_rb,1.8048e+02_rb,1.2051e+02_rb,6.2134e+01_rb,7.0317e-01_rb/)
+      kbo(:, 4,23,13) = (/ &
+     &2.9775e+02_rb,2.2332e+02_rb,1.4916e+02_rb,7.6994e+01_rb,8.5956e-01_rb/)
+      kbo(:, 5,23,13) = (/ &
+     &3.5987e+02_rb,2.6990e+02_rb,1.8034e+02_rb,9.3182e+01_rb,1.0114e+00_rb/)
+      kbo(:, 1,24,13) = (/ &
+     &1.3242e+02_rb,9.9313e+01_rb,6.6507e+01_rb,3.4403e+01_rb,4.7778e-01_rb/)
+      kbo(:, 2,24,13) = (/ &
+     &1.7334e+02_rb,1.3001e+02_rb,8.7073e+01_rb,4.5133e+01_rb,5.5652e-01_rb/)
+      kbo(:, 3,24,13) = (/ &
+     &2.1981e+02_rb,1.6486e+02_rb,1.1045e+02_rb,5.7389e+01_rb,6.8303e-01_rb/)
+      kbo(:, 4,24,13) = (/ &
+     &2.7150e+02_rb,2.0360e+02_rb,1.3644e+02_rb,7.1035e+01_rb,8.3312e-01_rb/)
+      kbo(:, 5,24,13) = (/ &
+     &3.2837e+02_rb,2.4630e+02_rb,1.6509e+02_rb,8.6103e+01_rb,9.5638e-01_rb/)
+      kbo(:, 1,25,13) = (/ &
+     &1.2137e+02_rb,9.1042e+01_rb,6.1224e+01_rb,3.1886e+01_rb,4.5611e-01_rb/)
+      kbo(:, 2,25,13) = (/ &
+     &1.5823e+02_rb,1.1867e+02_rb,7.9841e+01_rb,4.1707e+01_rb,5.3430e-01_rb/)
+      kbo(:, 3,25,13) = (/ &
+     &2.0017e+02_rb,1.5012e+02_rb,1.0102e+02_rb,5.2903e+01_rb,6.6826e-01_rb/)
+      kbo(:, 4,25,13) = (/ &
+     &2.4727e+02_rb,1.8545e+02_rb,1.2481e+02_rb,6.5530e+01_rb,7.9106e-01_rb/)
+      kbo(:, 5,25,13) = (/ &
+     &2.9868e+02_rb,2.2401e+02_rb,1.5081e+02_rb,7.9363e+01_rb,9.2773e-01_rb/)
+      kbo(:, 1,26,13) = (/ &
+     &1.1166e+02_rb,8.3750e+01_rb,5.6641e+01_rb,2.9761e+01_rb,4.3741e-01_rb/)
+      kbo(:, 2,26,13) = (/ &
+     &1.4505e+02_rb,1.0880e+02_rb,7.3586e+01_rb,3.8778e+01_rb,5.3620e-01_rb/)
+      kbo(:, 3,26,13) = (/ &
+     &1.8336e+02_rb,1.3753e+02_rb,9.3041e+01_rb,4.9168e+01_rb,6.5727e-01_rb/)
+      kbo(:, 4,26,13) = (/ &
+     &2.2613e+02_rb,1.6961e+02_rb,1.1481e+02_rb,6.0809e+01_rb,7.5877e-01_rb/)
+      kbo(:, 5,26,13) = (/ &
+     &2.7339e+02_rb,2.0507e+02_rb,1.3883e+02_rb,7.3616e+01_rb,9.0221e-01_rb/)
+      kbo(:, 1,27,13) = (/ &
+     &1.0286e+02_rb,7.7197e+01_rb,5.2520e+01_rb,2.7881e+01_rb,4.2067e-01_rb/)
+      kbo(:, 2,27,13) = (/ &
+     &1.3339e+02_rb,1.0010e+02_rb,6.8159e+01_rb,3.6272e+01_rb,5.2994e-01_rb/)
+      kbo(:, 3,27,13) = (/ &
+     &1.6841e+02_rb,1.2640e+02_rb,8.6087e+01_rb,4.5886e+01_rb,6.2144e-01_rb/)
+      kbo(:, 4,27,13) = (/ &
+     &2.0796e+02_rb,1.5610e+02_rb,1.0629e+02_rb,5.6702e+01_rb,7.2963e-01_rb/)
+      kbo(:, 5,27,13) = (/ &
+     &2.5159e+02_rb,1.8888e+02_rb,1.2865e+02_rb,6.8691e+01_rb,8.6563e-01_rb/)
+      kbo(:, 1,28,13) = (/ &
+     &9.5256e+01_rb,7.1619e+01_rb,4.8936e+01_rb,2.6277e+01_rb,4.0676e-01_rb/)
+      kbo(:, 2,28,13) = (/ &
+     &1.2337e+02_rb,9.2726e+01_rb,6.3443e+01_rb,3.4072e+01_rb,4.9978e-01_rb/)
+      kbo(:, 3,28,13) = (/ &
+     &1.5583e+02_rb,1.1712e+02_rb,8.0174e+01_rb,4.3046e+01_rb,5.7218e-01_rb/)
+      kbo(:, 4,28,13) = (/ &
+     &1.9223e+02_rb,1.4447e+02_rb,9.8926e+01_rb,5.3164e+01_rb,6.9683e-01_rb/)
+      kbo(:, 5,28,13) = (/ &
+     &2.3315e+02_rb,1.7521e+02_rb,1.1992e+02_rb,6.4418e+01_rb,8.1878e-01_rb/)
+      kbo(:, 1,29,13) = (/ &
+     &8.8532e+01_rb,6.6695e+01_rb,4.5757e+01_rb,2.4810e+01_rb,3.8492e-01_rb/)
+      kbo(:, 2,29,13) = (/ &
+     &1.1463e+02_rb,8.6325e+01_rb,5.9300e+01_rb,3.2087e+01_rb,4.4646e-01_rb/)
+      kbo(:, 3,29,13) = (/ &
+     &1.4438e+02_rb,1.0869e+02_rb,7.4772e+01_rb,4.0468e+01_rb,5.3953e-01_rb/)
+      kbo(:, 4,29,13) = (/ &
+     &1.7851e+02_rb,1.3434e+02_rb,9.2412e+01_rb,4.9954e+01_rb,6.4107e-01_rb/)
+      kbo(:, 5,29,13) = (/ &
+     &2.1752e+02_rb,1.6365e+02_rb,1.1246e+02_rb,6.0724e+01_rb,7.6365e-01_rb/)
+      kbo(:, 1,30,13) = (/ &
+     &8.2710e+01_rb,6.2476e+01_rb,4.3045e+01_rb,2.3511e+01_rb,3.4189e-01_rb/)
+      kbo(:, 2,30,13) = (/ &
+     &1.0675e+02_rb,8.0586e+01_rb,5.5620e+01_rb,3.0345e+01_rb,4.0578e-01_rb/)
+      kbo(:, 3,30,13) = (/ &
+     &1.3482e+02_rb,1.0169e+02_rb,7.0226e+01_rb,3.8224e+01_rb,5.0418e-01_rb/)
+      kbo(:, 4,30,13) = (/ &
+     &1.6752e+02_rb,1.2628e+02_rb,8.7179e+01_rb,4.7334e+01_rb,5.9789e-01_rb/)
+      kbo(:, 5,30,13) = (/ &
+     &2.0548e+02_rb,1.5477e+02_rb,1.0678e+02_rb,5.7811e+01_rb,7.2304e-01_rb/)
+      kbo(:, 1,31,13) = (/ &
+     &7.6989e+01_rb,5.8322e+01_rb,4.0414e+01_rb,2.2252e+01_rb,3.0592e-01_rb/)
+      kbo(:, 2,31,13) = (/ &
+     &9.9596e+01_rb,7.5380e+01_rb,5.2274e+01_rb,2.8707e+01_rb,3.7677e-01_rb/)
+      kbo(:, 3,31,13) = (/ &
+     &1.2653e+02_rb,9.5656e+01_rb,6.6313e+01_rb,3.6293e+01_rb,4.5864e-01_rb/)
+      kbo(:, 4,31,13) = (/ &
+     &1.5839e+02_rb,1.1960e+02_rb,8.2835e+01_rb,4.5152e+01_rb,5.5168e-01_rb/)
+      kbo(:, 5,31,13) = (/ &
+     &1.9525e+02_rb,1.4733e+02_rb,1.0199e+02_rb,5.5418e+01_rb,6.7878e-01_rb/)
+      kbo(:, 1,32,13) = (/ &
+     &7.2617e+01_rb,5.5198e+01_rb,3.8454e+01_rb,2.1285e+01_rb,2.7831e-01_rb/)
+      kbo(:, 2,32,13) = (/ &
+     &9.4496e+01_rb,7.1727e+01_rb,4.9927e+01_rb,2.7539e+01_rb,3.4616e-01_rb/)
+      kbo(:, 3,32,13) = (/ &
+     &1.2095e+02_rb,9.1662e+01_rb,6.3739e+01_rb,3.5032e+01_rb,4.1226e-01_rb/)
+      kbo(:, 4,32,13) = (/ &
+     &1.5220e+02_rb,1.1521e+02_rb,8.0042e+01_rb,4.3833e+01_rb,5.1531e-01_rb/)
+      kbo(:, 5,32,13) = (/ &
+     &1.8837e+02_rb,1.4240e+02_rb,9.8836e+01_rb,5.3991e+01_rb,6.4895e-01_rb/)
+      kbo(:, 1,33,13) = (/ &
+     &6.9586e+01_rb,5.3075e+01_rb,3.7119e+01_rb,2.0620e+01_rb,2.5421e-01_rb/)
+      kbo(:, 2,33,13) = (/ &
+     &9.1190e+01_rb,6.9432e+01_rb,4.8467e+01_rb,2.6834e+01_rb,3.0964e-01_rb/)
+      kbo(:, 3,33,13) = (/ &
+     &1.1725e+02_rb,8.9117e+01_rb,6.2134e+01_rb,3.4318e+01_rb,3.8320e-01_rb/)
+      kbo(:, 4,33,13) = (/ &
+     &1.4810e+02_rb,1.1236e+02_rb,7.8257e+01_rb,4.3108e+01_rb,4.8588e-01_rb/)
+      kbo(:, 5,33,13) = (/ &
+     &1.8404e+02_rb,1.3940e+02_rb,9.6928e+01_rb,5.3246e+01_rb,6.2021e-01_rb/)
+      kbo(:, 1,34,13) = (/ &
+     &6.7703e+01_rb,5.1785e+01_rb,3.6334e+01_rb,2.0214e+01_rb,2.2826e-01_rb/)
+      kbo(:, 2,34,13) = (/ &
+     &8.9165e+01_rb,6.8046e+01_rb,4.7643e+01_rb,2.6485e+01_rb,2.7978e-01_rb/)
+      kbo(:, 3,34,13) = (/ &
+     &1.1511e+02_rb,8.7692e+01_rb,6.1290e+01_rb,3.4007e+01_rb,3.5723e-01_rb/)
+      kbo(:, 4,34,13) = (/ &
+     &1.4598e+02_rb,1.1096e+02_rb,7.7422e+01_rb,4.2877e+01_rb,4.6377e-01_rb/)
+      kbo(:, 5,34,13) = (/ &
+     &1.8238e+02_rb,1.3836e+02_rb,9.6327e+01_rb,5.3168e+01_rb,5.7690e-01_rb/)
+      kbo(:, 1,35,13) = (/ &
+     &6.4861e+01_rb,4.9746e+01_rb,3.5026e+01_rb,1.9551e+01_rb,2.0156e-01_rb/)
+      kbo(:, 2,35,13) = (/ &
+     &8.5976e+01_rb,6.5785e+01_rb,4.6175e+01_rb,2.5782e+01_rb,2.5401e-01_rb/)
+      kbo(:, 3,35,13) = (/ &
+     &1.1165e+02_rb,8.5245e+01_rb,5.9716e+01_rb,3.3273e+01_rb,3.2846e-01_rb/)
+      kbo(:, 4,35,13) = (/ &
+     &1.4250e+02_rb,1.0853e+02_rb,7.5838e+01_rb,4.2162e+01_rb,4.2675e-01_rb/)
+      kbo(:, 5,35,13) = (/ &
+     &1.7910e+02_rb,1.3608e+02_rb,9.4891e+01_rb,5.2581e+01_rb,5.2256e-01_rb/)
+      kbo(:, 1,36,13) = (/ &
+     &6.0764e+01_rb,4.6732e+01_rb,3.3052e+01_rb,1.8514e+01_rb,1.7227e-01_rb/)
+      kbo(:, 2,36,13) = (/ &
+     &8.1347e+01_rb,6.2416e+01_rb,4.3933e+01_rb,2.4619e+01_rb,2.3170e-01_rb/)
+      kbo(:, 3,36,13) = (/ &
+     &1.0653e+02_rb,8.1514e+01_rb,5.7203e+01_rb,3.2018e+01_rb,2.9859e-01_rb/)
+      kbo(:, 4,36,13) = (/ &
+     &1.3711e+02_rb,1.0461e+02_rb,7.3196e+01_rb,4.0838e+01_rb,3.8265e-01_rb/)
+      kbo(:, 5,36,13) = (/ &
+     &1.7349e+02_rb,1.3202e+02_rb,9.2179e+01_rb,5.1271e+01_rb,4.7154e-01_rb/)
+      kbo(:, 1,37,13) = (/ &
+     &5.5040e+01_rb,4.2456e+01_rb,3.0166e+01_rb,1.6967e+01_rb,1.4686e-01_rb/)
+      kbo(:, 2,37,13) = (/ &
+     &7.4751e+01_rb,5.7522e+01_rb,4.0627e+01_rb,2.2828e+01_rb,1.9745e-01_rb/)
+      kbo(:, 3,37,13) = (/ &
+     &9.9126e+01_rb,7.6001e+01_rb,5.3446e+01_rb,3.0003e+01_rb,2.5830e-01_rb/)
+      kbo(:, 4,37,13) = (/ &
+     &1.2888e+02_rb,9.8527e+01_rb,6.9056e+01_rb,3.8643e+01_rb,3.3278e-01_rb/)
+      kbo(:, 5,37,13) = (/ &
+     &1.6453e+02_rb,1.2541e+02_rb,8.7685e+01_rb,4.8918e+01_rb,4.1260e-01_rb/)
+      kbo(:, 1,38,13) = (/ &
+     &4.9859e+01_rb,3.8586e+01_rb,2.7550e+01_rb,1.5547e+01_rb,1.2396e-01_rb/)
+      kbo(:, 2,38,13) = (/ &
+     &6.8738e+01_rb,5.3032e+01_rb,3.7612e+01_rb,2.1200e+01_rb,1.6720e-01_rb/)
+      kbo(:, 3,38,13) = (/ &
+     &9.2373e+01_rb,7.0999e+01_rb,5.0053e+01_rb,2.8170e+01_rb,2.2370e-01_rb/)
+      kbo(:, 4,38,13) = (/ &
+     &1.2130e+02_rb,9.2918e+01_rb,6.5279e+01_rb,3.6626e+01_rb,2.8704e-01_rb/)
+      kbo(:, 5,38,13) = (/ &
+     &1.5627e+02_rb,1.1930e+02_rb,8.3547e+01_rb,4.6739e+01_rb,3.6180e-01_rb/)
+      kbo(:, 1,39,13) = (/ &
+     &4.5302e+01_rb,3.5171e+01_rb,2.5236e+01_rb,1.4286e+01_rb,1.0568e-01_rb/)
+      kbo(:, 2,39,13) = (/ &
+     &6.3391e+01_rb,4.9041e+01_rb,3.4923e+01_rb,1.9751e+01_rb,1.4249e-01_rb/)
+      kbo(:, 3,39,13) = (/ &
+     &8.6323e+01_rb,6.6507e+01_rb,4.7040e+01_rb,2.6533e+01_rb,1.9303e-01_rb/)
+      kbo(:, 4,39,13) = (/ &
+     &1.1457e+02_rb,8.7914e+01_rb,6.1899e+01_rb,3.4824e+01_rb,2.4868e-01_rb/)
+      kbo(:, 5,39,13) = (/ &
+     &1.4887e+02_rb,1.1383e+02_rb,7.9847e+01_rb,4.4779e+01_rb,3.1416e-01_rb/)
+      kbo(:, 1,40,13) = (/ &
+     &4.0177e+01_rb,3.1298e+01_rb,2.2565e+01_rb,1.2805e+01_rb,8.8138e-02_rb/)
+      kbo(:, 2,40,13) = (/ &
+     &5.7199e+01_rb,4.4376e+01_rb,3.1743e+01_rb,1.8006e+01_rb,1.1856e-01_rb/)
+      kbo(:, 3,40,13) = (/ &
+     &7.9150e+01_rb,6.1135e+01_rb,4.3398e+01_rb,2.4540e+01_rb,1.6359e-01_rb/)
+      kbo(:, 4,40,13) = (/ &
+     &1.0651e+02_rb,8.1890e+01_rb,5.7786e+01_rb,3.2576e+01_rb,2.1421e-01_rb/)
+      kbo(:, 5,40,13) = (/ &
+     &1.3985e+02_rb,1.0710e+02_rb,7.5255e+01_rb,4.2282e+01_rb,2.7560e-01_rb/)
+      kbo(:, 1,41,13) = (/ &
+     &3.5483e+01_rb,2.7745e+01_rb,2.0104e+01_rb,1.1435e+01_rb,7.4578e-02_rb/)
+      kbo(:, 2,41,13) = (/ &
+     &5.1443e+01_rb,4.0033e+01_rb,2.8766e+01_rb,1.6358e+01_rb,1.0080e-01_rb/)
+      kbo(:, 3,41,13) = (/ &
+     &7.2353e+01_rb,5.6024e+01_rb,3.9928e+01_rb,2.2644e+01_rb,1.3798e-01_rb/)
+      kbo(:, 4,41,13) = (/ &
+     &9.8821e+01_rb,7.6124e+01_rb,5.3862e+01_rb,3.0414e+01_rb,1.8395e-01_rb/)
+      kbo(:, 5,41,13) = (/ &
+     &1.3121e+02_rb,1.0062e+02_rb,7.0817e+01_rb,3.9858e+01_rb,2.3971e-01_rb/)
+      kbo(:, 1,42,13) = (/ &
+     &3.1312e+01_rb,2.4582e+01_rb,1.7898e+01_rb,1.0203e+01_rb,6.3311e-02_rb/)
+      kbo(:, 2,42,13) = (/ &
+     &4.6257e+01_rb,3.6106e+01_rb,2.6059e+01_rb,1.4850e+01_rb,8.5987e-02_rb/)
+      kbo(:, 3,42,13) = (/ &
+     &6.6134e+01_rb,5.1324e+01_rb,3.6711e+01_rb,2.0879e+01_rb,1.1696e-01_rb/)
+      kbo(:, 4,42,13) = (/ &
+     &9.1649e+01_rb,7.0739e+01_rb,5.0191e+01_rb,2.8396e+01_rb,1.5868e-01_rb/)
+      kbo(:, 5,42,13) = (/ &
+     &1.2315e+02_rb,9.4550e+01_rb,6.6649e+01_rb,3.7570e+01_rb,2.0886e-01_rb/)
+      kbo(:, 1,43,13) = (/ &
+     &2.7228e+01_rb,2.1458e+01_rb,1.5694e+01_rb,8.9614e+00_rb,5.3608e-02_rb/)
+      kbo(:, 2,43,13) = (/ &
+     &4.1053e+01_rb,3.2140e+01_rb,2.3306e+01_rb,1.3302e+01_rb,7.1800e-02_rb/)
+      kbo(:, 3,43,13) = (/ &
+     &5.9801e+01_rb,4.6516e+01_rb,3.3390e+01_rb,1.9030e+01_rb,9.7105e-02_rb/)
+      kbo(:, 4,43,13) = (/ &
+     &8.4239e+01_rb,6.5135e+01_rb,4.6335e+01_rb,2.6274e+01_rb,1.3391e-01_rb/)
+      kbo(:, 5,43,13) = (/ &
+     &1.1479e+02_rb,8.8247e+01_rb,6.2314e+01_rb,3.5145e+01_rb,1.7840e-01_rb/)
+      kbo(:, 1,44,13) = (/ &
+     &2.3465e+01_rb,1.8562e+01_rb,1.3638e+01_rb,7.7925e+00_rb,4.4874e-02_rb/)
+      kbo(:, 2,44,13) = (/ &
+     &3.6146e+01_rb,2.8382e+01_rb,2.0672e+01_rb,1.1814e+01_rb,5.9063e-02_rb/)
+      kbo(:, 3,44,13) = (/ &
+     &5.3714e+01_rb,4.1873e+01_rb,3.0165e+01_rb,1.7212e+01_rb,7.9828e-02_rb/)
+      kbo(:, 4,44,13) = (/ &
+     &7.6981e+01_rb,5.9614e+01_rb,4.2519e+01_rb,2.4160e+01_rb,1.1248e-01_rb/)
+      kbo(:, 5,44,13) = (/ &
+     &1.0651e+02_rb,8.1983e+01_rb,5.8013e+01_rb,3.2734e+01_rb,1.4901e-01_rb/)
+      kbo(:, 1,45,13) = (/ &
+     &2.0186e+01_rb,1.6021e+01_rb,1.1808e+01_rb,6.7511e+00_rb,3.7575e-02_rb/)
+      kbo(:, 2,45,13) = (/ &
+     &3.1735e+01_rb,2.4996e+01_rb,1.8280e+01_rb,1.0459e+01_rb,4.9524e-02_rb/)
+      kbo(:, 3,45,13) = (/ &
+     &4.8111e+01_rb,3.7595e+01_rb,2.7182e+01_rb,1.5526e+01_rb,6.7700e-02_rb/)
+      kbo(:, 4,45,13) = (/ &
+     &7.0180e+01_rb,5.4438e+01_rb,3.8926e+01_rb,2.2155e+01_rb,9.2168e-02_rb/)
+      kbo(:, 5,45,13) = (/ &
+     &9.8620e+01_rb,7.6015e+01_rb,5.3889e+01_rb,3.0449e+01_rb,1.2546e-01_rb/)
+      kbo(:, 1,46,13) = (/ &
+     &1.7168e+01_rb,1.3674e+01_rb,1.0102e+01_rb,5.7721e+00_rb,3.1506e-02_rb/)
+      kbo(:, 2,46,13) = (/ &
+     &2.7551e+01_rb,2.1759e+01_rb,1.5975e+01_rb,9.1472e+00_rb,4.1368e-02_rb/)
+      kbo(:, 3,46,13) = (/ &
+     &4.2631e+01_rb,3.3389e+01_rb,2.4233e+01_rb,1.3855e+01_rb,5.6581e-02_rb/)
+      kbo(:, 4,46,13) = (/ &
+     &6.3374e+01_rb,4.9245e+01_rb,3.5311e+01_rb,2.0117e+01_rb,7.4981e-02_rb/)
+      kbo(:, 5,46,13) = (/ &
+     &9.0545e+01_rb,6.9872e+01_rb,4.9627e+01_rb,2.8091e+01_rb,1.0356e-01_rb/)
+      kbo(:, 1,47,13) = (/ &
+     &1.4285e+01_rb,1.1420e+01_rb,8.4474e+00_rb,4.8173e+00_rb,2.6647e-02_rb/)
+      kbo(:, 2,47,13) = (/ &
+     &2.3421e+01_rb,1.8547e+01_rb,1.3658e+01_rb,7.8222e+00_rb,3.5142e-02_rb/)
+      kbo(:, 3,47,13) = (/ &
+     &3.7014e+01_rb,2.9064e+01_rb,2.1182e+01_rb,1.2119e+01_rb,4.6223e-02_rb/)
+      kbo(:, 4,47,13) = (/ &
+     &5.6196e+01_rb,4.3754e+01_rb,3.1477e+01_rb,1.7951e+01_rb,6.2561e-02_rb/)
+      kbo(:, 5,47,13) = (/ &
+     &8.1804e+01_rb,6.3215e+01_rb,4.5000e+01_rb,2.5512e+01_rb,8.4936e-02_rb/)
+      kbo(:, 1,48,13) = (/ &
+     &1.1839e+01_rb,9.5013e+00_rb,7.0342e+00_rb,3.9991e+00_rb,2.2276e-02_rb/)
+      kbo(:, 2,48,13) = (/ &
+     &1.9820e+01_rb,1.5737e+01_rb,1.1620e+01_rb,6.6464e+00_rb,2.9148e-02_rb/)
+      kbo(:, 3,48,13) = (/ &
+     &3.1994e+01_rb,2.5174e+01_rb,1.8417e+01_rb,1.0540e+01_rb,3.8297e-02_rb/)
+      kbo(:, 4,48,13) = (/ &
+     &4.9572e+01_rb,3.8675e+01_rb,2.7923e+01_rb,1.5936e+01_rb,5.2300e-02_rb/)
+      kbo(:, 5,48,13) = (/ &
+     &7.3600e+01_rb,5.6966e+01_rb,4.0638e+01_rb,2.3068e+01_rb,6.9650e-02_rb/)
+      kbo(:, 1,49,13) = (/ &
+     &9.7471e+00_rb,7.8584e+00_rb,5.8267e+00_rb,3.3020e+00_rb,1.8196e-02_rb/)
+      kbo(:, 2,49,13) = (/ &
+     &1.6704e+01_rb,1.3302e+01_rb,9.8376e+00_rb,5.6165e+00_rb,2.4552e-02_rb/)
+      kbo(:, 3,49,13) = (/ &
+     &2.7532e+01_rb,2.1706e+01_rb,1.5922e+01_rb,9.1112e+00_rb,3.1859e-02_rb/)
+      kbo(:, 4,49,13) = (/ &
+     &4.3516e+01_rb,3.4017e+01_rb,2.4645e+01_rb,1.4071e+01_rb,4.2368e-02_rb/)
+      kbo(:, 5,49,13) = (/ &
+     &6.5913e+01_rb,5.1094e+01_rb,3.6540e+01_rb,2.0762e+01_rb,5.7956e-02_rb/)
+      kbo(:, 1,50,13) = (/ &
+     &8.0804e+00_rb,6.5442e+00_rb,4.8528e+00_rb,2.7471e+00_rb,1.5480e-02_rb/)
+      kbo(:, 2,50,13) = (/ &
+     &1.4208e+01_rb,1.1343e+01_rb,8.3916e+00_rb,4.7793e+00_rb,2.1108e-02_rb/)
+      kbo(:, 3,50,13) = (/ &
+     &2.3865e+01_rb,1.8845e+01_rb,1.3856e+01_rb,7.9173e+00_rb,2.8070e-02_rb/)
+      kbo(:, 4,50,13) = (/ &
+     &3.8439e+01_rb,3.0084e+01_rb,2.1861e+01_rb,1.2484e+01_rb,3.6716e-02_rb/)
+      kbo(:, 5,50,13) = (/ &
+     &5.9311e+01_rb,4.6040e+01_rb,3.3007e+01_rb,1.8765e+01_rb,4.7982e-02_rb/)
+      kbo(:, 1,51,13) = (/ &
+     &6.6974e+00_rb,5.4506e+00_rb,4.0401e+00_rb,2.2835e+00_rb,1.2897e-02_rb/)
+      kbo(:, 2,51,13) = (/ &
+     &1.2105e+01_rb,9.6894e+00_rb,7.1742e+00_rb,4.0729e+00_rb,1.8234e-02_rb/)
+      kbo(:, 3,51,13) = (/ &
+     &2.0726e+01_rb,1.6392e+01_rb,1.2076e+01_rb,6.8856e+00_rb,2.4297e-02_rb/)
+      kbo(:, 4,51,13) = (/ &
+     &3.4010e+01_rb,2.6646e+01_rb,1.9402e+01_rb,1.1077e+01_rb,3.1447e-02_rb/)
+      kbo(:, 5,51,13) = (/ &
+     &5.3414e+01_rb,4.1508e+01_rb,2.9825e+01_rb,1.6965e+01_rb,4.1659e-02_rb/)
+      kbo(:, 1,52,13) = (/ &
+     &5.5139e+00_rb,4.5099e+00_rb,3.3452e+00_rb,1.8859e+00_rb,1.0839e-02_rb/)
+      kbo(:, 2,52,13) = (/ &
+     &1.0265e+01_rb,8.2392e+00_rb,6.1066e+00_rb,3.4594e+00_rb,1.5307e-02_rb/)
+      kbo(:, 3,52,13) = (/ &
+     &1.7969e+01_rb,1.4231e+01_rb,1.0492e+01_rb,5.9702e+00_rb,2.0782e-02_rb/)
+      kbo(:, 4,52,13) = (/ &
+     &3.0022e+01_rb,2.3539e+01_rb,1.7173e+01_rb,9.7942e+00_rb,2.7615e-02_rb/)
+      kbo(:, 5,52,13) = (/ &
+     &4.7976e+01_rb,3.7311e+01_rb,2.6868e+01_rb,1.5284e+01_rb,3.5883e-02_rb/)
+      kbo(:, 1,53,13) = (/ &
+     &4.5089e+00_rb,3.7050e+00_rb,2.7486e+00_rb,1.5449e+00_rb,8.8988e-03_rb/)
+      kbo(:, 2,53,13) = (/ &
+     &8.6595e+00_rb,6.9701e+00_rb,5.1646e+00_rb,2.9217e+00_rb,1.2928e-02_rb/)
+      kbo(:, 3,53,13) = (/ &
+     &1.5539e+01_rb,1.2324e+01_rb,9.0856e+00_rb,5.1569e+00_rb,1.7922e-02_rb/)
+      kbo(:, 4,53,13) = (/ &
+     &2.6425e+01_rb,2.0735e+01_rb,1.5153e+01_rb,8.6253e+00_rb,2.3907e-02_rb/)
+      kbo(:, 5,53,13) = (/ &
+     &4.2979e+01_rb,3.3444e+01_rb,2.4119e+01_rb,1.3719e+01_rb,3.1307e-02_rb/)
+      kbo(:, 1,54,13) = (/ &
+     &3.7369e+00_rb,3.0844e+00_rb,2.2855e+00_rb,1.2806e+00_rb,7.5969e-03_rb/)
+      kbo(:, 2,54,13) = (/ &
+     &7.3945e+00_rb,5.9700e+00_rb,4.4241e+00_rb,2.4976e+00_rb,1.1170e-02_rb/)
+      kbo(:, 3,54,13) = (/ &
+     &1.3610e+01_rb,1.0807e+01_rb,7.9714e+00_rb,4.5128e+00_rb,1.6129e-02_rb/)
+      kbo(:, 4,54,13) = (/ &
+     &2.3560e+01_rb,1.8494e+01_rb,1.3530e+01_rb,7.6837e+00_rb,2.1838e-02_rb/)
+      kbo(:, 5,54,13) = (/ &
+     &3.8949e+01_rb,3.0311e+01_rb,2.1882e+01_rb,1.2434e+01_rb,2.8239e-02_rb/)
+      kbo(:, 1,55,13) = (/ &
+     &3.1147e+00_rb,2.5777e+00_rb,1.9050e+00_rb,1.0637e+00_rb,6.5369e-03_rb/)
+      kbo(:, 2,55,13) = (/ &
+     &6.3439e+00_rb,5.1347e+00_rb,3.8054e+00_rb,2.1454e+00_rb,1.0024e-02_rb/)
+      kbo(:, 3,55,13) = (/ &
+     &1.1985e+01_rb,9.5229e+00_rb,7.0258e+00_rb,3.9713e+00_rb,1.4330e-02_rb/)
+      kbo(:, 4,55,13) = (/ &
+     &2.1145e+01_rb,1.6600e+01_rb,1.2148e+01_rb,6.8814e+00_rb,1.9929e-02_rb/)
+      kbo(:, 5,55,13) = (/ &
+     &3.5505e+01_rb,2.7628e+01_rb,1.9956e+01_rb,1.1323e+01_rb,2.6070e-02_rb/)
+      kbo(:, 1,56,13) = (/ &
+     &2.5841e+00_rb,2.1412e+00_rb,1.5792e+00_rb,8.7847e-01_rb,5.7272e-03_rb/)
+      kbo(:, 2,56,13) = (/ &
+     &5.4279e+00_rb,4.4047e+00_rb,3.2621e+00_rb,1.8370e+00_rb,9.0085e-03_rb/)
+      kbo(:, 3,56,13) = (/ &
+     &1.0541e+01_rb,8.3802e+00_rb,6.1801e+00_rb,3.4870e+00_rb,1.2894e-02_rb/)
+      kbo(:, 4,56,13) = (/ &
+     &1.8998e+01_rb,1.4914e+01_rb,1.0910e+01_rb,6.1631e+00_rb,1.8216e-02_rb/)
+      kbo(:, 5,56,13) = (/ &
+     &3.2387e+01_rb,2.5195e+01_rb,1.8200e+01_rb,1.0311e+01_rb,2.5017e-02_rb/)
+      kbo(:, 1,57,13) = (/ &
+     &2.1273e+00_rb,1.7663e+00_rb,1.2997e+00_rb,7.2182e-01_rb,4.9990e-03_rb/)
+      kbo(:, 2,57,13) = (/ &
+     &4.6288e+00_rb,3.7653e+00_rb,2.7876e+00_rb,1.5653e+00_rb,7.9939e-03_rb/)
+      kbo(:, 3,57,13) = (/ &
+     &9.2459e+00_rb,7.3572e+00_rb,5.4258e+00_rb,3.0550e+00_rb,1.1761e-02_rb/)
+      kbo(:, 4,57,13) = (/ &
+     &1.7067e+01_rb,1.3395e+01_rb,9.7952e+00_rb,5.5222e+00_rb,1.6851e-02_rb/)
+      kbo(:, 5,57,13) = (/ &
+     &2.9574e+01_rb,2.2993e+01_rb,1.6606e+01_rb,9.3912e+00_rb,2.2852e-02_rb/)
+      kbo(:, 1,58,13) = (/ &
+     &8.4744e-01_rb,8.1145e-01_rb,7.0194e-01_rb,4.7172e-01_rb,4.4639e-03_rb/)
+      kbo(:, 2,58,13) = (/ &
+     &1.9303e+00_rb,1.8049e+00_rb,1.5645e+00_rb,1.0595e+00_rb,7.1718e-03_rb/)
+      kbo(:, 3,58,13) = (/ &
+     &3.9593e+00_rb,3.6185e+00_rb,3.1318e+00_rb,2.1308e+00_rb,1.0759e-02_rb/)
+      kbo(:, 4,58,13) = (/ &
+     &7.4878e+00_rb,6.7423e+00_rb,5.7807e+00_rb,3.9390e+00_rb,1.5270e-02_rb/)
+      kbo(:, 5,58,13) = (/ &
+     &1.3201e+01_rb,1.1774e+01_rb,9.9717e+00_rb,6.8098e+00_rb,2.1046e-02_rb/)
+      kbo(:, 1,59,13) = (/ &
+     &7.8389e-01_rb,7.5361e-01_rb,6.5545e-01_rb,4.4390e-01_rb,4.7731e-03_rb/)
+      kbo(:, 2,59,13) = (/ &
+     &1.8316e+00_rb,1.7144e+00_rb,1.4906e+00_rb,1.0154e+00_rb,7.3182e-03_rb/)
+      kbo(:, 3,59,13) = (/ &
+     &3.8012e+00_rb,3.4796e+00_rb,3.0220e+00_rb,2.0697e+00_rb,1.0970e-02_rb/)
+      kbo(:, 4,59,13) = (/ &
+     &7.2668e+00_rb,6.5534e+00_rb,5.6332e+00_rb,3.8611e+00_rb,1.5317e-02_rb/)
+      kbo(:, 5,59,13) = (/ &
+     &1.2911e+01_rb,1.1536e+01_rb,9.7915e+00_rb,6.7229e+00_rb,2.2015e-02_rb/)
+      kbo(:, 1,13,14) = (/ &
+     &2.9725e+02_rb,2.2295e+02_rb,1.4862e+02_rb,7.4314e+01_rb,8.5883e-01_rb/)
+      kbo(:, 2,13,14) = (/ &
+     &4.1294e+02_rb,3.0971e+02_rb,2.0649e+02_rb,1.0324e+02_rb,7.4403e-01_rb/)
+      kbo(:, 3,13,14) = (/ &
+     &5.5502e+02_rb,4.1625e+02_rb,2.7751e+02_rb,1.3875e+02_rb,6.6008e-01_rb/)
+      kbo(:, 4,13,14) = (/ &
+     &7.2029e+02_rb,5.4024e+02_rb,3.6017e+02_rb,1.8008e+02_rb,1.1155e+00_rb/)
+      kbo(:, 5,13,14) = (/ &
+     &9.0592e+02_rb,6.7946e+02_rb,4.5296e+02_rb,2.2648e+02_rb,2.5465e+00_rb/)
+      kbo(:, 1,14,14) = (/ &
+     &3.2435e+02_rb,2.4326e+02_rb,1.6217e+02_rb,8.1092e+01_rb,7.8098e-01_rb/)
+      kbo(:, 2,14,14) = (/ &
+     &4.4892e+02_rb,3.3668e+02_rb,2.2444e+02_rb,1.1223e+02_rb,5.4602e-01_rb/)
+      kbo(:, 3,14,14) = (/ &
+     &6.0099e+02_rb,4.5075e+02_rb,3.0049e+02_rb,1.5025e+02_rb,1.0325e+00_rb/)
+      kbo(:, 4,14,14) = (/ &
+     &7.7937e+02_rb,5.8453e+02_rb,3.8969e+02_rb,1.9485e+02_rb,1.5016e+00_rb/)
+      kbo(:, 5,14,14) = (/ &
+     &9.8034e+02_rb,7.3527e+02_rb,4.9018e+02_rb,2.4510e+02_rb,3.4894e+00_rb/)
+      kbo(:, 1,15,14) = (/ &
+     &3.4430e+02_rb,2.5823e+02_rb,1.7215e+02_rb,8.6071e+01_rb,4.7442e-01_rb/)
+      kbo(:, 2,15,14) = (/ &
+     &4.7694e+02_rb,3.5770e+02_rb,2.3846e+02_rb,1.1924e+02_rb,9.8957e-01_rb/)
+      kbo(:, 3,15,14) = (/ &
+     &6.3659e+02_rb,4.7745e+02_rb,3.1829e+02_rb,1.5915e+02_rb,1.3277e+00_rb/)
+      kbo(:, 4,15,14) = (/ &
+     &8.2316e+02_rb,6.1735e+02_rb,4.1157e+02_rb,2.0578e+02_rb,2.6545e+00_rb/)
+      kbo(:, 5,15,14) = (/ &
+     &1.0339e+03_rb,7.7536e+02_rb,5.1695e+02_rb,2.5844e+02_rb,4.8753e+00_rb/)
+      kbo(:, 1,16,14) = (/ &
+     &3.6224e+02_rb,2.7168e+02_rb,1.8111e+02_rb,9.0555e+01_rb,8.6361e-01_rb/)
+      kbo(:, 2,16,14) = (/ &
+     &5.0155e+02_rb,3.7615e+02_rb,2.5077e+02_rb,1.2539e+02_rb,1.3098e+00_rb/)
+      kbo(:, 3,16,14) = (/ &
+     &6.6682e+02_rb,5.0012e+02_rb,3.3343e+02_rb,1.6672e+02_rb,2.0810e+00_rb/)
+      kbo(:, 4,16,14) = (/ &
+     &8.5980e+02_rb,6.4485e+02_rb,4.2990e+02_rb,2.1496e+02_rb,4.0118e+00_rb/)
+      kbo(:, 5,16,14) = (/ &
+     &1.0768e+03_rb,8.0756e+02_rb,5.3838e+02_rb,2.6919e+02_rb,6.0151e+00_rb/)
+      kbo(:, 1,17,14) = (/ &
+     &3.8011e+02_rb,2.8509e+02_rb,1.9007e+02_rb,9.5029e+01_rb,1.2720e+00_rb/)
+      kbo(:, 2,17,14) = (/ &
+     &5.2601e+02_rb,3.9448e+02_rb,2.6301e+02_rb,1.3150e+02_rb,1.5543e+00_rb/)
+      kbo(:, 3,17,14) = (/ &
+     &6.9761e+02_rb,5.2320e+02_rb,3.4880e+02_rb,1.7439e+02_rb,2.9841e+00_rb/)
+      kbo(:, 4,17,14) = (/ &
+     &8.9515e+02_rb,6.7136e+02_rb,4.4757e+02_rb,2.2378e+02_rb,4.6409e+00_rb/)
+      kbo(:, 5,17,14) = (/ &
+     &1.1181e+03_rb,8.3857e+02_rb,5.5903e+02_rb,2.7954e+02_rb,6.6157e+00_rb/)
+      kbo(:, 1,18,14) = (/ &
+     &3.9222e+02_rb,2.9415e+02_rb,1.9611e+02_rb,9.8051e+01_rb,1.3802e+00_rb/)
+      kbo(:, 2,18,14) = (/ &
+     &5.4105e+02_rb,4.0577e+02_rb,2.7053e+02_rb,1.3526e+02_rb,2.0079e+00_rb/)
+      kbo(:, 3,18,14) = (/ &
+     &7.1441e+02_rb,5.3583e+02_rb,3.5723e+02_rb,1.7861e+02_rb,3.3624e+00_rb/)
+      kbo(:, 4,18,14) = (/ &
+     &9.1265e+02_rb,6.8450e+02_rb,4.5632e+02_rb,2.2816e+02_rb,4.9650e+00_rb/)
+      kbo(:, 5,18,14) = (/ &
+     &1.1336e+03_rb,8.5015e+02_rb,5.6679e+02_rb,2.8338e+02_rb,6.8761e+00_rb/)
+      kbo(:, 1,19,14) = (/ &
+     &4.0839e+02_rb,3.0630e+02_rb,2.0420e+02_rb,1.0209e+02_rb,1.4198e+00_rb/)
+      kbo(:, 2,19,14) = (/ &
+     &5.5968e+02_rb,4.1977e+02_rb,2.7985e+02_rb,1.3992e+02_rb,2.2241e+00_rb/)
+      kbo(:, 3,19,14) = (/ &
+     &7.3637e+02_rb,5.5226e+02_rb,3.6818e+02_rb,1.8410e+02_rb,3.5653e+00_rb/)
+      kbo(:, 4,19,14) = (/ &
+     &9.3504e+02_rb,7.0126e+02_rb,4.6751e+02_rb,2.3375e+02_rb,5.1035e+00_rb/)
+      kbo(:, 5,19,14) = (/ &
+     &1.1560e+03_rb,8.6697e+02_rb,5.7801e+02_rb,2.8901e+02_rb,6.9044e+00_rb/)
+      kbo(:, 1,20,14) = (/ &
+     &4.2971e+02_rb,3.2229e+02_rb,2.1485e+02_rb,1.0743e+02_rb,1.5393e+00_rb/)
+      kbo(:, 2,20,14) = (/ &
+     &5.8587e+02_rb,4.3942e+02_rb,2.9293e+02_rb,1.4647e+02_rb,2.2601e+00_rb/)
+      kbo(:, 3,20,14) = (/ &
+     &7.6617e+02_rb,5.7464e+02_rb,3.8311e+02_rb,1.9155e+02_rb,3.5353e+00_rb/)
+      kbo(:, 4,20,14) = (/ &
+     &9.6798e+02_rb,7.2594e+02_rb,4.8398e+02_rb,2.4197e+02_rb,5.0919e+00_rb/)
+      kbo(:, 5,20,14) = (/ &
+     &1.1898e+03_rb,8.9235e+02_rb,5.9489e+02_rb,2.9744e+02_rb,6.7835e+00_rb/)
+      kbo(:, 1,21,14) = (/ &
+     &4.4889e+02_rb,3.3666e+02_rb,2.2444e+02_rb,1.1222e+02_rb,1.6427e+00_rb/)
+      kbo(:, 2,21,14) = (/ &
+     &6.0830e+02_rb,4.5623e+02_rb,3.0417e+02_rb,1.5208e+02_rb,2.2298e+00_rb/)
+      kbo(:, 3,21,14) = (/ &
+     &7.9080e+02_rb,5.9312e+02_rb,3.9541e+02_rb,1.9769e+02_rb,3.4367e+00_rb/)
+      kbo(:, 4,21,14) = (/ &
+     &9.9371e+02_rb,7.4527e+02_rb,4.9684e+02_rb,2.4842e+02_rb,4.8609e+00_rb/)
+      kbo(:, 5,21,14) = (/ &
+     &1.2155e+03_rb,9.1159e+02_rb,6.0771e+02_rb,3.0387e+02_rb,6.5479e+00_rb/)
+      kbo(:, 1,22,14) = (/ &
+     &4.7127e+02_rb,3.5343e+02_rb,2.3563e+02_rb,1.1782e+02_rb,1.6925e+00_rb/)
+      kbo(:, 2,22,14) = (/ &
+     &6.3239e+02_rb,4.7428e+02_rb,3.1618e+02_rb,1.5809e+02_rb,2.2427e+00_rb/)
+      kbo(:, 3,22,14) = (/ &
+     &8.1553e+02_rb,6.1164e+02_rb,4.0775e+02_rb,2.0390e+02_rb,3.3409e+00_rb/)
+      kbo(:, 4,22,14) = (/ &
+     &1.0189e+03_rb,7.6417e+02_rb,5.0944e+02_rb,2.5480e+02_rb,4.6697e+00_rb/)
+      kbo(:, 5,22,14) = (/ &
+     &1.2378e+03_rb,9.2835e+02_rb,6.1890e+02_rb,3.0965e+02_rb,6.2760e+00_rb/)
+      kbo(:, 1,23,14) = (/ &
+     &4.8713e+02_rb,3.6534e+02_rb,2.4356e+02_rb,1.2192e+02_rb,1.6599e+00_rb/)
+      kbo(:, 2,23,14) = (/ &
+     &6.4775e+02_rb,4.8583e+02_rb,3.2387e+02_rb,1.6212e+02_rb,2.1938e+00_rb/)
+      kbo(:, 3,23,14) = (/ &
+     &8.3023e+02_rb,6.2268e+02_rb,4.1512e+02_rb,2.0786e+02_rb,3.2003e+00_rb/)
+      kbo(:, 4,23,14) = (/ &
+     &1.0300e+03_rb,7.7249e+02_rb,5.1499e+02_rb,2.5803e+02_rb,4.4341e+00_rb/)
+      kbo(:, 5,23,14) = (/ &
+     &1.2450e+03_rb,9.3374e+02_rb,6.2249e+02_rb,3.1208e+02_rb,5.9729e+00_rb/)
+      kbo(:, 1,24,14) = (/ &
+     &5.0112e+02_rb,3.7583e+02_rb,2.5056e+02_rb,1.2575e+02_rb,1.5724e+00_rb/)
+      kbo(:, 2,24,14) = (/ &
+     &6.6153e+02_rb,4.9614e+02_rb,3.3076e+02_rb,1.6604e+02_rb,2.1250e+00_rb/)
+      kbo(:, 3,24,14) = (/ &
+     &8.4162e+02_rb,6.3120e+02_rb,4.2079e+02_rb,2.1132e+02_rb,3.0488e+00_rb/)
+      kbo(:, 4,24,14) = (/ &
+     &1.0387e+03_rb,7.7903e+02_rb,5.1934e+02_rb,2.6092e+02_rb,4.1964e+00_rb/)
+      kbo(:, 5,24,14) = (/ &
+     &1.2497e+03_rb,9.3727e+02_rb,6.2485e+02_rb,3.1407e+02_rb,5.6661e+00_rb/)
+      kbo(:, 1,25,14) = (/ &
+     &5.0957e+02_rb,3.8217e+02_rb,2.5479e+02_rb,1.2836e+02_rb,1.4865e+00_rb/)
+      kbo(:, 2,25,14) = (/ &
+     &6.6771e+02_rb,5.0078e+02_rb,3.3385e+02_rb,1.6824e+02_rb,2.0184e+00_rb/)
+      kbo(:, 3,25,14) = (/ &
+     &8.4466e+02_rb,6.3351e+02_rb,4.2233e+02_rb,2.1290e+02_rb,2.8760e+00_rb/)
+      kbo(:, 4,25,14) = (/ &
+     &1.0379e+03_rb,7.7843e+02_rb,5.1895e+02_rb,2.6171e+02_rb,3.9646e+00_rb/)
+      kbo(:, 5,25,14) = (/ &
+     &1.2454e+03_rb,9.3411e+02_rb,6.2273e+02_rb,3.1409e+02_rb,5.3432e+00_rb/)
+      kbo(:, 1,26,14) = (/ &
+     &5.1543e+02_rb,3.8657e+02_rb,2.5772e+02_rb,1.3040e+02_rb,1.4310e+00_rb/)
+      kbo(:, 2,26,14) = (/ &
+     &6.7055e+02_rb,5.0292e+02_rb,3.3528e+02_rb,1.6969e+02_rb,1.9779e+00_rb/)
+      kbo(:, 3,26,14) = (/ &
+     &8.4393e+02_rb,6.3294e+02_rb,4.2195e+02_rb,2.1362e+02_rb,2.7140e+00_rb/)
+      kbo(:, 4,26,14) = (/ &
+     &1.0339e+03_rb,7.7538e+02_rb,5.1691e+02_rb,2.6173e+02_rb,3.7614e+00_rb/)
+      kbo(:, 5,26,14) = (/ &
+     &1.2377e+03_rb,9.2822e+02_rb,6.1881e+02_rb,3.1339e+02_rb,5.0524e+00_rb/)
+      kbo(:, 1,27,14) = (/ &
+     &5.1680e+02_rb,3.8760e+02_rb,2.5844e+02_rb,1.3139e+02_rb,1.4644e+00_rb/)
+      kbo(:, 2,27,14) = (/ &
+     &6.6877e+02_rb,5.0158e+02_rb,3.3442e+02_rb,1.7006e+02_rb,1.9743e+00_rb/)
+      kbo(:, 3,27,14) = (/ &
+     &8.3912e+02_rb,6.2935e+02_rb,4.1964e+02_rb,2.1343e+02_rb,2.6423e+00_rb/)
+      kbo(:, 4,27,14) = (/ &
+     &1.0255e+03_rb,7.6907e+02_rb,5.1284e+02_rb,2.6091e+02_rb,3.5939e+00_rb/)
+      kbo(:, 5,27,14) = (/ &
+     &1.2273e+03_rb,9.2048e+02_rb,6.1378e+02_rb,3.1226e+02_rb,4.8265e+00_rb/)
+      kbo(:, 1,28,14) = (/ &
+     &5.1471e+02_rb,3.8604e+02_rb,2.5761e+02_rb,1.3161e+02_rb,1.4975e+00_rb/)
+      kbo(:, 2,28,14) = (/ &
+     &6.6390e+02_rb,4.9793e+02_rb,3.3227e+02_rb,1.6984e+02_rb,1.9755e+00_rb/)
+      kbo(:, 3,28,14) = (/ &
+     &8.3099e+02_rb,6.2328e+02_rb,4.1590e+02_rb,2.1266e+02_rb,2.6592e+00_rb/)
+      kbo(:, 4,28,14) = (/ &
+     &1.0159e+03_rb,7.6197e+02_rb,5.0842e+02_rb,2.5994e+02_rb,3.4854e+00_rb/)
+      kbo(:, 5,28,14) = (/ &
+     &1.2168e+03_rb,9.1262e+02_rb,6.0898e+02_rb,3.1138e+02_rb,4.6837e+00_rb/)
+      kbo(:, 1,29,14) = (/ &
+     &5.0817e+02_rb,3.8113e+02_rb,2.5474e+02_rb,1.3092e+02_rb,1.4861e+00_rb/)
+      kbo(:, 2,29,14) = (/ &
+     &6.5385e+02_rb,4.9038e+02_rb,3.2768e+02_rb,1.6851e+02_rb,1.9807e+00_rb/)
+      kbo(:, 3,29,14) = (/ &
+     &8.1862e+02_rb,6.1397e+02_rb,4.1013e+02_rb,2.1090e+02_rb,2.6083e+00_rb/)
+      kbo(:, 4,29,14) = (/ &
+     &1.0015e+03_rb,7.5115e+02_rb,5.0169e+02_rb,2.5799e+02_rb,3.4366e+00_rb/)
+      kbo(:, 5,29,14) = (/ &
+     &1.2004e+03_rb,9.0023e+02_rb,6.0130e+02_rb,3.0911e+02_rb,4.6309e+00_rb/)
+      kbo(:, 1,30,14) = (/ &
+     &4.9890e+02_rb,3.7416e+02_rb,2.5051e+02_rb,1.2967e+02_rb,1.4792e+00_rb/)
+      kbo(:, 2,30,14) = (/ &
+     &6.4183e+02_rb,4.8137e+02_rb,3.2213e+02_rb,1.6671e+02_rb,1.9639e+00_rb/)
+      kbo(:, 3,30,14) = (/ &
+     &8.0457e+02_rb,6.0342e+02_rb,4.0369e+02_rb,2.0889e+02_rb,2.5564e+00_rb/)
+      kbo(:, 4,30,14) = (/ &
+     &9.8521e+02_rb,7.3890e+02_rb,4.9415e+02_rb,2.5564e+02_rb,3.4162e+00_rb/)
+      kbo(:, 5,30,14) = (/ &
+     &1.1820e+03_rb,8.8651e+02_rb,5.9274e+02_rb,3.0646e+02_rb,4.6345e+00_rb/)
+      kbo(:, 1,31,14) = (/ &
+     &4.8682e+02_rb,3.6513e+02_rb,2.4494e+02_rb,1.2775e+02_rb,1.4549e+00_rb/)
+      kbo(:, 2,31,14) = (/ &
+     &6.2686e+02_rb,4.7014e+02_rb,3.1520e+02_rb,1.6432e+02_rb,1.8973e+00_rb/)
+      kbo(:, 3,31,14) = (/ &
+     &7.8640e+02_rb,5.8981e+02_rb,3.9524e+02_rb,2.0591e+02_rb,2.5203e+00_rb/)
+      kbo(:, 4,31,14) = (/ &
+     &9.6406e+02_rb,7.2305e+02_rb,4.8423e+02_rb,2.5217e+02_rb,3.4800e+00_rb/)
+      kbo(:, 5,31,14) = (/ &
+     &1.1586e+03_rb,8.6894e+02_rb,5.8171e+02_rb,3.0260e+02_rb,4.7311e+00_rb/)
+      kbo(:, 1,32,14) = (/ &
+     &4.7960e+02_rb,3.5970e+02_rb,2.4176e+02_rb,1.2713e+02_rb,1.4049e+00_rb/)
+      kbo(:, 2,32,14) = (/ &
+     &6.1788e+02_rb,4.6339e+02_rb,3.1125e+02_rb,1.6347e+02_rb,1.8610e+00_rb/)
+      kbo(:, 3,32,14) = (/ &
+     &7.7566e+02_rb,5.8175e+02_rb,3.9047e+02_rb,2.0479e+02_rb,2.5736e+00_rb/)
+      kbo(:, 4,32,14) = (/ &
+     &9.5231e+02_rb,7.1420e+02_rb,4.7904e+02_rb,2.5086e+02_rb,3.5724e+00_rb/)
+      kbo(:, 5,32,14) = (/ &
+     &1.1464e+03_rb,8.5978e+02_rb,5.7626e+02_rb,3.0128e+02_rb,4.8525e+00_rb/)
+      kbo(:, 1,33,14) = (/ &
+     &4.7673e+02_rb,3.5758e+02_rb,2.4086e+02_rb,1.2764e+02_rb,1.3592e+00_rb/)
+      kbo(:, 2,33,14) = (/ &
+     &6.1463e+02_rb,4.6099e+02_rb,3.1024e+02_rb,1.6404e+02_rb,1.8844e+00_rb/)
+      kbo(:, 3,33,14) = (/ &
+     &7.7253e+02_rb,5.7937e+02_rb,3.8948e+02_rb,2.0544e+02_rb,2.6672e+00_rb/)
+      kbo(:, 4,33,14) = (/ &
+     &9.4922e+02_rb,7.1189e+02_rb,4.7815e+02_rb,2.5158e+02_rb,3.7054e+00_rb/)
+      kbo(:, 5,33,14) = (/ &
+     &1.1446e+03_rb,8.5842e+02_rb,5.7603e+02_rb,3.0239e+02_rb,5.0353e+00_rb/)
+      kbo(:, 1,34,14) = (/ &
+     &4.7829e+02_rb,3.5882e+02_rb,2.4214e+02_rb,1.2917e+02_rb,1.3360e+00_rb/)
+      kbo(:, 2,34,14) = (/ &
+     &6.1765e+02_rb,4.6331e+02_rb,3.1226e+02_rb,1.6594e+02_rb,1.9203e+00_rb/)
+      kbo(:, 3,34,14) = (/ &
+     &7.7743e+02_rb,5.8310e+02_rb,3.9256e+02_rb,2.0792e+02_rb,2.7349e+00_rb/)
+      kbo(:, 4,34,14) = (/ &
+     &9.5686e+02_rb,7.1762e+02_rb,4.8256e+02_rb,2.5475e+02_rb,3.8031e+00_rb/)
+      kbo(:, 5,34,14) = (/ &
+     &1.1550e+03_rb,8.6629e+02_rb,5.8189e+02_rb,3.0631e+02_rb,5.2021e+00_rb/)
+      kbo(:, 1,35,14) = (/ &
+     &4.7226e+02_rb,3.5443e+02_rb,2.3957e+02_rb,1.2851e+02_rb,1.3086e+00_rb/)
+      kbo(:, 2,35,14) = (/ &
+     &6.1214e+02_rb,4.5923e+02_rb,3.0998e+02_rb,1.6546e+02_rb,1.9154e+00_rb/)
+      kbo(:, 3,35,14) = (/ &
+     &7.7280e+02_rb,5.7976e+02_rb,3.9077e+02_rb,2.0773e+02_rb,2.7357e+00_rb/)
+      kbo(:, 4,35,14) = (/ &
+     &9.5397e+02_rb,7.1554e+02_rb,4.8165e+02_rb,2.5508e+02_rb,3.8286e+00_rb/)
+      kbo(:, 5,35,14) = (/ &
+     &1.1540e+03_rb,8.6552e+02_rb,5.8187e+02_rb,3.0708e+02_rb,5.2636e+00_rb/)
+      kbo(:, 1,36,14) = (/ &
+     &4.5693e+02_rb,3.4301e+02_rb,2.3220e+02_rb,1.2520e+02_rb,1.2533e+00_rb/)
+      kbo(:, 2,36,14) = (/ &
+     &5.9574e+02_rb,4.4710e+02_rb,3.0221e+02_rb,1.6199e+02_rb,1.8411e+00_rb/)
+      kbo(:, 3,36,14) = (/ &
+     &7.5609e+02_rb,5.6723e+02_rb,3.8282e+02_rb,2.0421e+02_rb,2.6504e+00_rb/)
+      kbo(:, 4,36,14) = (/ &
+     &9.3751e+02_rb,7.0328e+02_rb,4.7386e+02_rb,2.5165e+02_rb,3.7407e+00_rb/)
+      kbo(:, 5,36,14) = (/ &
+     &1.1381e+03_rb,8.5353e+02_rb,5.7430e+02_rb,3.0378e+02_rb,5.1704e+00_rb/)
+      kbo(:, 1,37,14) = (/ &
+     &4.2922e+02_rb,3.2232e+02_rb,2.1847e+02_rb,1.1834e+02_rb,1.1213e+00_rb/)
+      kbo(:, 2,37,14) = (/ &
+     &5.6522e+02_rb,4.2422e+02_rb,2.8713e+02_rb,1.5453e+02_rb,1.6760e+00_rb/)
+      kbo(:, 3,37,14) = (/ &
+     &7.2332e+02_rb,5.4281e+02_rb,3.6673e+02_rb,1.9621e+02_rb,2.4344e+00_rb/)
+      kbo(:, 4,37,14) = (/ &
+     &9.0338e+02_rb,6.7777e+02_rb,4.5711e+02_rb,2.4334e+02_rb,3.4735e+00_rb/)
+      kbo(:, 5,37,14) = (/ &
+     &1.1034e+03_rb,8.2764e+02_rb,5.5725e+02_rb,2.9534e+02_rb,4.8510e+00_rb/)
+      kbo(:, 1,38,14) = (/ &
+     &4.0355e+02_rb,3.0314e+02_rb,2.0578e+02_rb,1.1195e+02_rb,1.0088e+00_rb/)
+      kbo(:, 2,38,14) = (/ &
+     &5.3660e+02_rb,4.0286e+02_rb,2.7296e+02_rb,1.4742e+02_rb,1.5281e+00_rb/)
+      kbo(:, 3,38,14) = (/ &
+     &6.9245e+02_rb,5.1973e+02_rb,3.5152e+02_rb,1.8858e+02_rb,2.2407e+00_rb/)
+      kbo(:, 4,38,14) = (/ &
+     &8.7113e+02_rb,6.5360e+02_rb,4.4117e+02_rb,2.3535e+02_rb,3.2324e+00_rb/)
+      kbo(:, 5,38,14) = (/ &
+     &1.0703e+03_rb,8.0291e+02_rb,5.4092e+02_rb,2.8714e+02_rb,4.5526e+00_rb/)
+      kbo(:, 1,39,14) = (/ &
+     &3.8048e+02_rb,2.8595e+02_rb,1.9433e+02_rb,1.0614e+02_rb,9.1242e-01_rb/)
+      kbo(:, 2,39,14) = (/ &
+     &5.1067e+02_rb,3.8348e+02_rb,2.6010e+02_rb,1.4089e+02_rb,1.4025e+00_rb/)
+      kbo(:, 3,39,14) = (/ &
+     &6.6451e+02_rb,4.9880e+02_rb,3.3759e+02_rb,1.8159e+02_rb,2.0765e+00_rb/)
+      kbo(:, 4,39,14) = (/ &
+     &8.4141e+02_rb,6.3140e+02_rb,4.2638e+02_rb,2.2792e+02_rb,3.0229e+00_rb/)
+      kbo(:, 5,39,14) = (/ &
+     &1.0396e+03_rb,7.7992e+02_rb,5.2571e+02_rb,2.7947e+02_rb,4.2952e+00_rb/)
+      kbo(:, 1,40,14) = (/ &
+     &3.5133e+02_rb,2.6415e+02_rb,1.7970e+02_rb,9.8495e+01_rb,7.8366e-01_rb/)
+      kbo(:, 2,40,14) = (/ &
+     &4.7771e+02_rb,3.5880e+02_rb,2.4356e+02_rb,1.3227e+02_rb,1.2276e+00_rb/)
+      kbo(:, 3,40,14) = (/ &
+     &6.2817e+02_rb,4.7163e+02_rb,3.1937e+02_rb,1.7209e+02_rb,1.8434e+00_rb/)
+      kbo(:, 4,40,14) = (/ &
+     &8.0277e+02_rb,6.0241e+02_rb,4.0711e+02_rb,2.1788e+02_rb,2.7123e+00_rb/)
+      kbo(:, 5,40,14) = (/ &
+     &9.9978e+02_rb,7.5011e+02_rb,5.0577e+02_rb,2.6911e+02_rb,3.8911e+00_rb/)
+      kbo(:, 1,41,14) = (/ &
+     &3.2342e+02_rb,2.4324e+02_rb,1.6567e+02_rb,9.1094e+01_rb,6.6818e-01_rb/)
+      kbo(:, 2,41,14) = (/ &
+     &4.4573e+02_rb,3.3493e+02_rb,2.2747e+02_rb,1.2382e+02_rb,1.0662e+00_rb/)
+      kbo(:, 3,41,14) = (/ &
+     &5.9252e+02_rb,4.4488e+02_rb,3.0145e+02_rb,1.6269e+02_rb,1.6310e+00_rb/)
+      kbo(:, 4,41,14) = (/ &
+     &7.6447e+02_rb,5.7369e+02_rb,3.8787e+02_rb,2.0780e+02_rb,2.4231e+00_rb/)
+      kbo(:, 5,41,14) = (/ &
+     &9.6002e+02_rb,7.2027e+02_rb,4.8589e+02_rb,2.5869e+02_rb,3.5110e+00_rb/)
+      kbo(:, 1,42,14) = (/ &
+     &2.9741e+02_rb,2.2375e+02_rb,1.5256e+02_rb,8.4130e+01_rb,5.7099e-01_rb/)
+      kbo(:, 2,42,14) = (/ &
+     &4.1545e+02_rb,3.1224e+02_rb,2.1217e+02_rb,1.1576e+02_rb,9.2628e-01_rb/)
+      kbo(:, 3,42,14) = (/ &
+     &5.5858e+02_rb,4.1944e+02_rb,2.8433e+02_rb,1.5367e+02_rb,1.4426e+00_rb/)
+      kbo(:, 4,42,14) = (/ &
+     &7.2759e+02_rb,5.4609e+02_rb,3.6933e+02_rb,1.9808e+02_rb,2.1657e+00_rb/)
+      kbo(:, 5,42,14) = (/ &
+     &9.2131e+02_rb,6.9128e+02_rb,4.6648e+02_rb,2.4850e+02_rb,3.1673e+00_rb/)
+      kbo(:, 1,43,14) = (/ &
+     &2.7012e+02_rb,2.0330e+02_rb,1.3875e+02_rb,7.6704e+01_rb,4.7188e-01_rb/)
+      kbo(:, 2,43,14) = (/ &
+     &3.8333e+02_rb,2.8816e+02_rb,1.9596e+02_rb,1.0707e+02_rb,7.8390e-01_rb/)
+      kbo(:, 3,43,14) = (/ &
+     &5.2268e+02_rb,3.9255e+02_rb,2.6617e+02_rb,1.4400e+02_rb,1.2434e+00_rb/)
+      kbo(:, 4,43,14) = (/ &
+     &6.8847e+02_rb,5.1676e+02_rb,3.4954e+02_rb,1.8752e+02_rb,1.8919e+00_rb/)
+      kbo(:, 5,43,14) = (/ &
+     &8.8050e+02_rb,6.6068e+02_rb,4.4591e+02_rb,2.3760e+02_rb,2.7970e+00_rb/)
+      kbo(:, 1,44,14) = (/ &
+     &2.4333e+02_rb,1.8320e+02_rb,1.2513e+02_rb,6.9324e+01_rb,3.8543e-01_rb/)
+      kbo(:, 2,44,14) = (/ &
+     &3.5160e+02_rb,2.6439e+02_rb,1.7983e+02_rb,9.8391e+01_rb,6.5410e-01_rb/)
+      kbo(:, 3,44,14) = (/ &
+     &4.8672e+02_rb,3.6559e+02_rb,2.4794e+02_rb,1.3422e+02_rb,1.0574e+00_rb/)
+      kbo(:, 4,44,14) = (/ &
+     &6.4907e+02_rb,4.8721e+02_rb,3.2959e+02_rb,1.7683e+02_rb,1.6338e+00_rb/)
+      kbo(:, 5,44,14) = (/ &
+     &8.3935e+02_rb,6.2981e+02_rb,4.2512e+02_rb,2.2646e+02_rb,2.4460e+00_rb/)
+      kbo(:, 1,45,14) = (/ &
+     &2.1826e+02_rb,1.6439e+02_rb,1.1240e+02_rb,6.2387e+01_rb,3.1362e-01_rb/)
+      kbo(:, 2,45,14) = (/ &
+     &3.2151e+02_rb,2.4179e+02_rb,1.6452e+02_rb,9.0130e+01_rb,5.4229e-01_rb/)
+      kbo(:, 3,45,14) = (/ &
+     &4.5202e+02_rb,3.3957e+02_rb,2.3034e+02_rb,1.2476e+02_rb,8.9432e-01_rb/)
+      kbo(:, 4,45,14) = (/ &
+     &6.1098e+02_rb,4.5864e+02_rb,3.1027e+02_rb,1.6648e+02_rb,1.4094e+00_rb/)
+      kbo(:, 5,45,14) = (/ &
+     &7.9903e+02_rb,5.9956e+02_rb,4.0465e+02_rb,2.1549e+02_rb,2.1336e+00_rb/)
+      kbo(:, 1,46,14) = (/ &
+     &1.9334e+02_rb,1.4567e+02_rb,9.9705e+01_rb,5.5445e+01_rb,2.5106e-01_rb/)
+      kbo(:, 2,46,14) = (/ &
+     &2.9084e+02_rb,2.1878e+02_rb,1.4895e+02_rb,8.1712e+01_rb,4.4167e-01_rb/)
+      kbo(:, 3,46,14) = (/ &
+     &4.1605e+02_rb,3.1260e+02_rb,2.1206e+02_rb,1.1494e+02_rb,7.4589e-01_rb/)
+      kbo(:, 4,46,14) = (/ &
+     &5.7087e+02_rb,4.2857e+02_rb,2.8993e+02_rb,1.5559e+02_rb,1.1995e+00_rb/)
+      kbo(:, 5,46,14) = (/ &
+     &7.5566e+02_rb,5.6703e+02_rb,3.8272e+02_rb,2.0372e+02_rb,1.8420e+00_rb/)
+      kbo(:, 1,47,14) = (/ &
+     &1.6734e+02_rb,1.2615e+02_rb,8.6467e+01_rb,4.8182e+01_rb,1.9607e-01_rb/)
+      kbo(:, 2,47,14) = (/ &
+     &2.5798e+02_rb,1.9414e+02_rb,1.3227e+02_rb,7.2690e+01_rb,3.4728e-01_rb/)
+      kbo(:, 3,47,14) = (/ &
+     &3.7682e+02_rb,2.8319e+02_rb,1.9216e+02_rb,1.0425e+02_rb,6.0496e-01_rb/)
+      kbo(:, 4,47,14) = (/ &
+     &5.2596e+02_rb,3.9489e+02_rb,2.6718e+02_rb,1.4343e+02_rb,9.9190e-01_rb/)
+      kbo(:, 5,47,14) = (/ &
+     &7.0637e+02_rb,5.3006e+02_rb,3.5776e+02_rb,1.9039e+02_rb,1.5539e+00_rb/)
+      kbo(:, 1,48,14) = (/ &
+     &1.4359e+02_rb,1.0831e+02_rb,7.4350e+01_rb,4.1515e+01_rb,1.5112e-01_rb/)
+      kbo(:, 2,48,14) = (/ &
+     &2.2736e+02_rb,1.7115e+02_rb,1.1670e+02_rb,6.4242e+01_rb,2.7228e-01_rb/)
+      kbo(:, 3,48,14) = (/ &
+     &3.3955e+02_rb,2.5527e+02_rb,1.7326e+02_rb,9.4064e+01_rb,4.8587e-01_rb/)
+      kbo(:, 4,48,14) = (/ &
+     &4.8257e+02_rb,3.6236e+02_rb,2.4521e+02_rb,1.3165e+02_rb,8.1598e-01_rb/)
+      kbo(:, 5,48,14) = (/ &
+     &6.5841e+02_rb,4.9408e+02_rb,3.3351e+02_rb,1.7744e+02_rb,1.3043e+00_rb/)
+      kbo(:, 1,49,14) = (/ &
+     &1.2205e+02_rb,9.2102e+01_rb,6.3332e+01_rb,3.5432e+01_rb,1.1595e-01_rb/)
+      kbo(:, 2,49,14) = (/ &
+     &1.9899e+02_rb,1.4985e+02_rb,1.0228e+02_rb,5.6393e+01_rb,2.1177e-01_rb/)
+      kbo(:, 3,49,14) = (/ &
+     &3.0425e+02_rb,2.2876e+02_rb,1.5534e+02_rb,8.4415e+01_rb,3.8749e-01_rb/)
+      kbo(:, 4,49,14) = (/ &
+     &4.4104e+02_rb,3.3122e+02_rb,2.2413e+02_rb,1.2036e+02_rb,6.6950e-01_rb/)
+      kbo(:, 5,49,14) = (/ &
+     &6.1182e+02_rb,4.5914e+02_rb,3.0987e+02_rb,1.6480e+02_rb,1.0872e+00_rb/)
+      kbo(:, 1,50,14) = (/ &
+     &1.0410e+02_rb,7.8601e+01_rb,5.4134e+01_rb,3.0320e+01_rb,8.9437e-02_rb/)
+      kbo(:, 2,50,14) = (/ &
+     &1.7476e+02_rb,1.3166e+02_rb,8.9943e+01_rb,4.9647e+01_rb,1.6487e-01_rb/)
+      kbo(:, 3,50,14) = (/ &
+     &2.7363e+02_rb,2.0578e+02_rb,1.3977e+02_rb,7.5998e+01_rb,3.0880e-01_rb/)
+      kbo(:, 4,50,14) = (/ &
+     &4.0470e+02_rb,3.0398e+02_rb,2.0569e+02_rb,1.1045e+02_rb,5.4711e-01_rb/)
+      kbo(:, 5,50,14) = (/ &
+     &5.7059e+02_rb,4.2823e+02_rb,2.8900e+02_rb,1.5363e+02_rb,9.1135e-01_rb/)
+      kbo(:, 1,51,14) = (/ &
+     &8.8591e+01_rb,6.6918e+01_rb,4.6161e+01_rb,2.5881e+01_rb,7.0825e-02_rb/)
+      kbo(:, 2,51,14) = (/ &
+     &1.5315e+02_rb,1.1542e+02_rb,7.8914e+01_rb,4.3611e+01_rb,1.2808e-01_rb/)
+      kbo(:, 3,51,14) = (/ &
+     &2.4591e+02_rb,1.8497e+02_rb,1.2567e+02_rb,6.8391e+01_rb,2.4633e-01_rb/)
+      kbo(:, 4,51,14) = (/ &
+     &3.7125e+02_rb,2.7889e+02_rb,1.8871e+02_rb,1.0133e+02_rb,4.4644e-01_rb/)
+      kbo(:, 5,51,14) = (/ &
+     &5.3232e+02_rb,3.9953e+02_rb,2.6959e+02_rb,1.4324e+02_rb,7.6098e-01_rb/)
+      kbo(:, 1,52,14) = (/ &
+     &7.4832e+01_rb,5.6551e+01_rb,3.9072e+01_rb,2.1921e+01_rb,5.8568e-02_rb/)
+      kbo(:, 2,52,14) = (/ &
+     &1.3340e+02_rb,1.0056e+02_rb,6.8804e+01_rb,3.8048e+01_rb,9.9737e-02_rb/)
+      kbo(:, 3,52,14) = (/ &
+     &2.2000e+02_rb,1.6553e+02_rb,1.1251e+02_rb,6.1251e+01_rb,1.9573e-01_rb/)
+      kbo(:, 4,52,14) = (/ &
+     &3.3944e+02_rb,2.5503e+02_rb,1.7256e+02_rb,9.2621e+01_rb,3.6167e-01_rb/)
+      kbo(:, 5,52,14) = (/ &
+     &4.9563e+02_rb,3.7201e+02_rb,2.5099e+02_rb,1.3326e+02_rb,6.3209e-01_rb/)
+      kbo(:, 1,53,14) = (/ &
+     &6.2655e+01_rb,4.7378e+01_rb,3.2786e+01_rb,1.8402e+01_rb,5.0324e-02_rb/)
+      kbo(:, 2,53,14) = (/ &
+     &1.1533e+02_rb,8.6961e+01_rb,5.9562e+01_rb,3.2947e+01_rb,7.6555e-02_rb/)
+      kbo(:, 3,53,14) = (/ &
+     &1.9565e+02_rb,1.4725e+02_rb,1.0014e+02_rb,5.4560e+01_rb,1.5441e-01_rb/)
+      kbo(:, 4,53,14) = (/ &
+     &3.0901e+02_rb,2.3220e+02_rb,1.5711e+02_rb,8.4327e+01_rb,2.9159e-01_rb/)
+      kbo(:, 5,53,14) = (/ &
+     &4.6024e+02_rb,3.4547e+02_rb,2.3304e+02_rb,1.2363e+02_rb,5.2012e-01_rb/)
+      kbo(:, 1,54,14) = (/ &
+     &5.3046e+01_rb,4.0133e+01_rb,2.7816e+01_rb,1.5611e+01_rb,4.2542e-02_rb/)
+      kbo(:, 2,54,14) = (/ &
+     &1.0074e+02_rb,7.5982e+01_rb,5.2075e+01_rb,2.8803e+01_rb,6.4322e-02_rb/)
+      kbo(:, 3,54,14) = (/ &
+     &1.7557e+02_rb,1.3215e+02_rb,8.9882e+01_rb,4.8976e+01_rb,1.2163e-01_rb/)
+      kbo(:, 4,54,14) = (/ &
+     &2.8382e+02_rb,2.1329e+02_rb,1.4431e+02_rb,7.7417e+01_rb,2.3542e-01_rb/)
+      kbo(:, 5,54,14) = (/ &
+     &4.3075e+02_rb,3.2335e+02_rb,2.1806e+02_rb,1.1557e+02_rb,4.2927e-01_rb/)
+      kbo(:, 1,55,14) = (/ &
+     &4.5010e+01_rb,3.4076e+01_rb,2.3656e+01_rb,1.3271e+01_rb,3.8508e-02_rb/)
+      kbo(:, 2,55,14) = (/ &
+     &8.8262e+01_rb,6.6580e+01_rb,4.5655e+01_rb,2.5232e+01_rb,5.7123e-02_rb/)
+      kbo(:, 3,55,14) = (/ &
+     &1.5805e+02_rb,1.1897e+02_rb,8.0930e+01_rb,4.4073e+01_rb,9.5519e-02_rb/)
+      kbo(:, 4,55,14) = (/ &
+     &2.6161e+02_rb,1.9662e+02_rb,1.3302e+02_rb,7.1301e+01_rb,1.9000e-01_rb/)
+      kbo(:, 5,55,14) = (/ &
+     &4.0466e+02_rb,3.0378e+02_rb,2.0480e+02_rb,1.0841e+02_rb,3.5396e-01_rb/)
+      kbo(:, 1,56,14) = (/ &
+     &3.7999e+01_rb,2.8791e+01_rb,2.0014e+01_rb,1.1214e+01_rb,3.4994e-02_rb/)
+      kbo(:, 2,56,14) = (/ &
+     &7.7059e+01_rb,5.8140e+01_rb,3.9888e+01_rb,2.2021e+01_rb,5.1685e-02_rb/)
+      kbo(:, 3,56,14) = (/ &
+     &1.4187e+02_rb,1.0680e+02_rb,7.2655e+01_rb,3.9531e+01_rb,7.7408e-02_rb/)
+      kbo(:, 4,56,14) = (/ &
+     &2.4069e+02_rb,1.8091e+02_rb,1.2237e+02_rb,6.5530e+01_rb,1.5216e-01_rb/)
+      kbo(:, 5,56,14) = (/ &
+     &3.8007e+02_rb,2.8533e+02_rb,1.9230e+02_rb,1.0164e+02_rb,2.8842e-01_rb/)
+      kbo(:, 1,57,14) = (/ &
+     &3.1951e+01_rb,2.4226e+01_rb,1.6863e+01_rb,9.4281e+00_rb,3.3086e-02_rb/)
+      kbo(:, 2,57,14) = (/ &
+     &6.6995e+01_rb,5.0555e+01_rb,3.4699e+01_rb,1.9133e+01_rb,4.5516e-02_rb/)
+      kbo(:, 3,57,14) = (/ &
+     &1.2705e+02_rb,9.5650e+01_rb,6.5062e+01_rb,3.5359e+01_rb,6.7958e-02_rb/)
+      kbo(:, 4,57,14) = (/ &
+     &2.2106e+02_rb,1.6616e+02_rb,1.1237e+02_rb,6.0096e+01_rb,1.2025e-01_rb/)
+      kbo(:, 5,57,14) = (/ &
+     &3.5683e+02_rb,2.6789e+02_rb,1.8049e+02_rb,9.5240e+01_rb,2.3463e-01_rb/)
+      kbo(:, 1,58,14) = (/ &
+     &1.3120e+01_rb,1.1427e+01_rb,9.3421e+00_rb,6.3041e+00_rb,2.9290e-02_rb/)
+      kbo(:, 2,58,14) = (/ &
+     &2.8375e+01_rb,2.4586e+01_rb,1.9815e+01_rb,1.3205e+01_rb,4.1783e-02_rb/)
+      kbo(:, 3,58,14) = (/ &
+     &5.5462e+01_rb,4.7938e+01_rb,3.8264e+01_rb,2.5126e+01_rb,6.2497e-02_rb/)
+      kbo(:, 4,58,14) = (/ &
+     &9.8962e+01_rb,8.5397e+01_rb,6.7764e+01_rb,4.3784e+01_rb,9.9579e-02_rb/)
+      kbo(:, 5,58,14) = (/ &
+     &1.6330e+02_rb,1.4075e+02_rb,1.1126e+02_rb,7.0923e+01_rb,1.9106e-01_rb/)
+      kbo(:, 1,59,14) = (/ &
+     &1.2384e+01_rb,1.0821e+01_rb,8.8760e+00_rb,6.0092e+00_rb,2.9802e-02_rb/)
+      kbo(:, 2,59,14) = (/ &
+     &2.7135e+01_rb,2.3592e+01_rb,1.9085e+01_rb,1.2767e+01_rb,4.3735e-02_rb/)
+      kbo(:, 3,59,14) = (/ &
+     &5.3692e+01_rb,4.6568e+01_rb,3.7314e+01_rb,2.4591e+01_rb,6.7061e-02_rb/)
+      kbo(:, 4,59,14) = (/ &
+     &9.6831e+01_rb,8.3852e+01_rb,6.6810e+01_rb,4.3324e+01_rb,1.0825e-01_rb/)
+      kbo(:, 5,59,14) = (/ &
+     &1.6129e+02_rb,1.3951e+02_rb,1.1076e+02_rb,7.0881e+01_rb,1.7652e-01_rb/)
+      kbo(:, 1,13,15) = (/ &
+     &4.3408e+02_rb,3.2553e+02_rb,2.1704e+02_rb,1.0851e+02_rb,3.3387e-01_rb/)
+      kbo(:, 2,13,15) = (/ &
+     &6.1113e+02_rb,4.5841e+02_rb,3.0560e+02_rb,1.5279e+02_rb,3.4060e+00_rb/)
+      kbo(:, 3,13,15) = (/ &
+     &8.2062e+02_rb,6.1547e+02_rb,4.1031e+02_rb,2.0516e+02_rb,7.3889e+00_rb/)
+      kbo(:, 4,13,15) = (/ &
+     &1.0625e+03_rb,7.9684e+02_rb,5.3120e+02_rb,2.6560e+02_rb,1.3324e+01_rb/)
+      kbo(:, 5,13,15) = (/ &
+     &1.3314e+03_rb,9.9861e+02_rb,6.6575e+02_rb,3.3287e+02_rb,1.8510e+01_rb/)
+      kbo(:, 1,14,15) = (/ &
+     &4.8927e+02_rb,3.6696e+02_rb,2.4465e+02_rb,1.2233e+02_rb,1.4639e+00_rb/)
+      kbo(:, 2,14,15) = (/ &
+     &6.9247e+02_rb,5.1938e+02_rb,3.4624e+02_rb,1.7311e+02_rb,5.0161e+00_rb/)
+      kbo(:, 3,14,15) = (/ &
+     &9.3693e+02_rb,7.0263e+02_rb,4.6839e+02_rb,2.3422e+02_rb,9.2136e+00_rb/)
+      kbo(:, 4,14,15) = (/ &
+     &1.2198e+03_rb,9.1484e+02_rb,6.0989e+02_rb,3.0495e+02_rb,1.6015e+01_rb/)
+      kbo(:, 5,14,15) = (/ &
+     &1.5424e+03_rb,1.1568e+03_rb,7.7122e+02_rb,3.8560e+02_rb,2.0607e+01_rb/)
+      kbo(:, 1,15,15) = (/ &
+     &5.4419e+02_rb,4.0815e+02_rb,2.7209e+02_rb,1.3605e+02_rb,3.3205e+00_rb/)
+      kbo(:, 2,15,15) = (/ &
+     &7.6785e+02_rb,5.7588e+02_rb,3.8392e+02_rb,1.9198e+02_rb,6.4585e+00_rb/)
+      kbo(:, 3,15,15) = (/ &
+     &1.0420e+03_rb,7.8154e+02_rb,5.2102e+02_rb,2.6050e+02_rb,1.2593e+01_rb/)
+      kbo(:, 4,15,15) = (/ &
+     &1.3650e+03_rb,1.0239e+03_rb,6.8254e+02_rb,3.4127e+02_rb,1.7743e+01_rb/)
+      kbo(:, 5,15,15) = (/ &
+     &1.7328e+03_rb,1.2995e+03_rb,8.6636e+02_rb,4.3319e+02_rb,2.2779e+01_rb/)
+      kbo(:, 1,16,15) = (/ &
+     &5.9961e+02_rb,4.4968e+02_rb,2.9978e+02_rb,1.4989e+02_rb,4.3949e+00_rb/)
+      kbo(:, 2,16,15) = (/ &
+     &8.4044e+02_rb,6.3032e+02_rb,4.2019e+02_rb,2.1011e+02_rb,9.1201e+00_rb/)
+      kbo(:, 3,16,15) = (/ &
+     &1.1438e+03_rb,8.5770e+02_rb,5.7195e+02_rb,2.8595e+02_rb,1.4709e+01_rb/)
+      kbo(:, 4,16,15) = (/ &
+     &1.4993e+03_rb,1.1245e+03_rb,7.4965e+02_rb,3.7484e+02_rb,1.9517e+01_rb/)
+      kbo(:, 5,16,15) = (/ &
+     &1.9026e+03_rb,1.4270e+03_rb,9.5133e+02_rb,4.7569e+02_rb,2.4995e+01_rb/)
+      kbo(:, 1,17,15) = (/ &
+     &6.5740e+02_rb,4.9304e+02_rb,3.2868e+02_rb,1.6434e+02_rb,5.9877e+00_rb/)
+      kbo(:, 2,17,15) = (/ &
+     &9.1769e+02_rb,6.8825e+02_rb,4.5884e+02_rb,2.2941e+02_rb,1.1589e+01_rb/)
+      kbo(:, 3,17,15) = (/ &
+     &1.2441e+03_rb,9.3311e+02_rb,6.2203e+02_rb,3.1103e+02_rb,1.6070e+01_rb/)
+      kbo(:, 4,17,15) = (/ &
+     &1.6286e+03_rb,1.2214e+03_rb,8.1435e+02_rb,4.0716e+02_rb,2.1263e+01_rb/)
+      kbo(:, 5,17,15) = (/ &
+     &2.0647e+03_rb,1.5485e+03_rb,1.0323e+03_rb,5.1617e+02_rb,2.7194e+01_rb/)
+      kbo(:, 1,18,15) = (/ &
+     &7.0743e+02_rb,5.3056e+02_rb,3.5371e+02_rb,1.7685e+02_rb,7.5465e+00_rb/)
+      kbo(:, 2,18,15) = (/ &
+     &9.8473e+02_rb,7.3856e+02_rb,4.9235e+02_rb,2.4618e+02_rb,1.2708e+01_rb/)
+      kbo(:, 3,18,15) = (/ &
+     &1.3299e+03_rb,9.9741e+02_rb,6.6495e+02_rb,3.3248e+02_rb,1.7433e+01_rb/)
+      kbo(:, 4,18,15) = (/ &
+     &1.7379e+03_rb,1.3034e+03_rb,8.6887e+02_rb,4.3447e+02_rb,2.2996e+01_rb/)
+      kbo(:, 5,18,15) = (/ &
+     &2.2009e+03_rb,1.6506e+03_rb,1.1004e+03_rb,5.5020e+02_rb,2.9358e+01_rb/)
+      kbo(:, 1,19,15) = (/ &
+     &7.7797e+02_rb,5.8347e+02_rb,3.8898e+02_rb,1.9449e+02_rb,8.9058e+00_rb/)
+      kbo(:, 2,19,15) = (/ &
+     &1.0795e+03_rb,8.0964e+02_rb,5.3974e+02_rb,2.6988e+02_rb,1.3760e+01_rb/)
+      kbo(:, 3,19,15) = (/ &
+     &1.4503e+03_rb,1.0877e+03_rb,7.2515e+02_rb,3.6258e+02_rb,1.8739e+01_rb/)
+      kbo(:, 4,19,15) = (/ &
+     &1.8906e+03_rb,1.4179e+03_rb,9.4523e+02_rb,4.7263e+02_rb,2.4641e+01_rb/)
+      kbo(:, 5,19,15) = (/ &
+     &2.3863e+03_rb,1.7897e+03_rb,1.1933e+03_rb,5.9656e+02_rb,3.1485e+01_rb/)
+      kbo(:, 1,20,15) = (/ &
+     &8.7874e+02_rb,6.5907e+02_rb,4.3939e+02_rb,2.1969e+02_rb,9.7556e+00_rb/)
+      kbo(:, 2,20,15) = (/ &
+     &1.2128e+03_rb,9.0962e+02_rb,6.0638e+02_rb,3.0319e+02_rb,1.4896e+01_rb/)
+      kbo(:, 3,20,15) = (/ &
+     &1.6209e+03_rb,1.2157e+03_rb,8.1051e+02_rb,4.0524e+02_rb,2.0180e+01_rb/)
+      kbo(:, 4,20,15) = (/ &
+     &2.1009e+03_rb,1.5756e+03_rb,1.0504e+03_rb,5.2525e+02_rb,2.6433e+01_rb/)
+      kbo(:, 5,20,15) = (/ &
+     &2.6410e+03_rb,1.9808e+03_rb,1.3205e+03_rb,6.6026e+02_rb,3.3724e+01_rb/)
+      kbo(:, 1,21,15) = (/ &
+     &9.9673e+02_rb,7.4761e+02_rb,4.9839e+02_rb,2.4919e+02_rb,1.0524e+01_rb/)
+      kbo(:, 2,21,15) = (/ &
+     &1.3673e+03_rb,1.0255e+03_rb,6.8366e+02_rb,3.4184e+02_rb,1.6075e+01_rb/)
+      kbo(:, 3,21,15) = (/ &
+     &1.8166e+03_rb,1.3625e+03_rb,9.0829e+02_rb,4.5412e+02_rb,2.1690e+01_rb/)
+      kbo(:, 4,21,15) = (/ &
+     &2.3404e+03_rb,1.7553e+03_rb,1.1702e+03_rb,5.8508e+02_rb,2.8346e+01_rb/)
+      kbo(:, 5,21,15) = (/ &
+     &2.9258e+03_rb,2.1942e+03_rb,1.4629e+03_rb,7.3140e+02_rb,3.6033e+01_rb/)
+      kbo(:, 1,22,15) = (/ &
+     &1.1483e+03_rb,8.6125e+02_rb,5.7415e+02_rb,2.8707e+02_rb,1.1768e+01_rb/)
+      kbo(:, 2,22,15) = (/ &
+     &1.5630e+03_rb,1.1723e+03_rb,7.8152e+02_rb,3.9076e+02_rb,1.7624e+01_rb/)
+      kbo(:, 3,22,15) = (/ &
+     &2.0593e+03_rb,1.5445e+03_rb,1.0296e+03_rb,5.1484e+02_rb,2.3654e+01_rb/)
+      kbo(:, 4,22,15) = (/ &
+     &2.6282e+03_rb,1.9711e+03_rb,1.3140e+03_rb,6.5702e+02_rb,3.0777e+01_rb/)
+      kbo(:, 5,22,15) = (/ &
+     &3.2625e+03_rb,2.4468e+03_rb,1.6313e+03_rb,8.1566e+02_rb,3.8871e+01_rb/)
+      kbo(:, 1,23,15) = (/ &
+     &1.3167e+03_rb,9.8756e+02_rb,6.5833e+02_rb,3.2919e+02_rb,1.3119e+01_rb/)
+      kbo(:, 2,23,15) = (/ &
+     &1.7766e+03_rb,1.3324e+03_rb,8.8830e+02_rb,4.4413e+02_rb,1.9267e+01_rb/)
+      kbo(:, 3,23,15) = (/ &
+     &2.3173e+03_rb,1.7380e+03_rb,1.1586e+03_rb,5.7933e+02_rb,2.5707e+01_rb/)
+      kbo(:, 4,23,15) = (/ &
+     &2.9343e+03_rb,2.2007e+03_rb,1.4671e+03_rb,7.3355e+02_rb,3.3186e+01_rb/)
+      kbo(:, 5,23,15) = (/ &
+     &3.6141e+03_rb,2.7105e+03_rb,1.8070e+03_rb,9.0351e+02_rb,4.1634e+01_rb/)
+      kbo(:, 1,24,15) = (/ &
+     &1.5139e+03_rb,1.1354e+03_rb,7.5695e+02_rb,3.7848e+02_rb,1.4766e+01_rb/)
+      kbo(:, 2,24,15) = (/ &
+     &2.0213e+03_rb,1.5159e+03_rb,1.0107e+03_rb,5.0532e+02_rb,2.1039e+01_rb/)
+      kbo(:, 3,24,15) = (/ &
+     &2.6132e+03_rb,1.9598e+03_rb,1.3066e+03_rb,6.5328e+02_rb,2.7799e+01_rb/)
+      kbo(:, 4,24,15) = (/ &
+     &3.2798e+03_rb,2.4598e+03_rb,1.6399e+03_rb,8.1993e+02_rb,3.5585e+01_rb/)
+      kbo(:, 5,24,15) = (/ &
+     &4.0096e+03_rb,3.0073e+03_rb,2.0048e+03_rb,1.0024e+03_rb,4.4343e+01_rb/)
+      kbo(:, 1,25,15) = (/ &
+     &1.7311e+03_rb,1.2983e+03_rb,8.6555e+02_rb,4.3279e+02_rb,1.6410e+01_rb/)
+      kbo(:, 2,25,15) = (/ &
+     &2.2880e+03_rb,1.7160e+03_rb,1.1440e+03_rb,5.7204e+02_rb,2.2852e+01_rb/)
+      kbo(:, 3,25,15) = (/ &
+     &2.9293e+03_rb,2.1970e+03_rb,1.4646e+03_rb,7.3234e+02_rb,2.9897e+01_rb/)
+      kbo(:, 4,25,15) = (/ &
+     &3.6441e+03_rb,2.7331e+03_rb,1.8220e+03_rb,9.1101e+02_rb,3.8003e+01_rb/)
+      kbo(:, 5,25,15) = (/ &
+     &4.4209e+03_rb,3.3157e+03_rb,2.2104e+03_rb,1.1052e+03_rb,4.7037e+01_rb/)
+      kbo(:, 1,26,15) = (/ &
+     &1.9753e+03_rb,1.4814e+03_rb,9.8766e+02_rb,4.9382e+02_rb,1.8018e+01_rb/)
+      kbo(:, 2,26,15) = (/ &
+     &2.5844e+03_rb,1.9383e+03_rb,1.2922e+03_rb,6.4606e+02_rb,2.4551e+01_rb/)
+      kbo(:, 3,26,15) = (/ &
+     &3.2758e+03_rb,2.4567e+03_rb,1.6379e+03_rb,8.1896e+02_rb,3.2091e+01_rb/)
+      kbo(:, 4,26,15) = (/ &
+     &4.0392e+03_rb,3.0293e+03_rb,2.0196e+03_rb,1.0098e+03_rb,4.0504e+01_rb/)
+      kbo(:, 5,26,15) = (/ &
+     &4.8643e+03_rb,3.6484e+03_rb,2.4323e+03_rb,1.2161e+03_rb,4.9853e+01_rb/)
+      kbo(:, 1,27,15) = (/ &
+     &2.2372e+03_rb,1.6779e+03_rb,1.1187e+03_rb,5.5932e+02_rb,1.9412e+01_rb/)
+      kbo(:, 2,27,15) = (/ &
+     &2.8964e+03_rb,2.1723e+03_rb,1.4482e+03_rb,7.2410e+02_rb,2.6199e+01_rb/)
+      kbo(:, 3,27,15) = (/ &
+     &3.6363e+03_rb,2.7272e+03_rb,1.8181e+03_rb,9.0912e+02_rb,3.4164e+01_rb/)
+      kbo(:, 4,27,15) = (/ &
+     &4.4487e+03_rb,3.3365e+03_rb,2.2244e+03_rb,1.1122e+03_rb,4.3003e+01_rb/)
+      kbo(:, 5,27,15) = (/ &
+     &5.3193e+03_rb,3.9894e+03_rb,2.6596e+03_rb,1.3298e+03_rb,5.2701e+01_rb/)
+      kbo(:, 1,28,15) = (/ &
+     &2.5116e+03_rb,1.8837e+03_rb,1.2558e+03_rb,6.2784e+02_rb,2.0876e+01_rb/)
+      kbo(:, 2,28,15) = (/ &
+     &3.2189e+03_rb,2.4142e+03_rb,1.6096e+03_rb,8.0476e+02_rb,2.7949e+01_rb/)
+      kbo(:, 3,28,15) = (/ &
+     &4.0085e+03_rb,3.0060e+03_rb,2.0042e+03_rb,1.0021e+03_rb,3.6156e+01_rb/)
+      kbo(:, 4,28,15) = (/ &
+     &4.8660e+03_rb,3.6495e+03_rb,2.4329e+03_rb,1.2165e+03_rb,4.5448e+01_rb/)
+      kbo(:, 5,28,15) = (/ &
+     &5.7764e+03_rb,4.3322e+03_rb,2.8883e+03_rb,1.4442e+03_rb,5.5591e+01_rb/)
+      kbo(:, 1,29,15) = (/ &
+     &2.7788e+03_rb,2.0842e+03_rb,1.3895e+03_rb,6.9477e+02_rb,2.2561e+01_rb/)
+      kbo(:, 2,29,15) = (/ &
+     &3.5298e+03_rb,2.6472e+03_rb,1.7648e+03_rb,8.8246e+02_rb,2.9936e+01_rb/)
+      kbo(:, 3,29,15) = (/ &
+     &4.3597e+03_rb,3.2696e+03_rb,2.1798e+03_rb,1.0899e+03_rb,3.8464e+01_rb/)
+      kbo(:, 4,29,15) = (/ &
+     &5.2526e+03_rb,3.9395e+03_rb,2.6263e+03_rb,1.3131e+03_rb,4.8125e+01_rb/)
+      kbo(:, 5,29,15) = (/ &
+     &6.1956e+03_rb,4.6467e+03_rb,3.0979e+03_rb,1.5489e+03_rb,5.8615e+01_rb/)
+      kbo(:, 1,30,15) = (/ &
+     &3.0369e+03_rb,2.2777e+03_rb,1.5185e+03_rb,7.5926e+02_rb,2.4413e+01_rb/)
+      kbo(:, 2,30,15) = (/ &
+     &3.8244e+03_rb,2.8684e+03_rb,1.9122e+03_rb,9.5609e+02_rb,3.2061e+01_rb/)
+      kbo(:, 3,30,15) = (/ &
+     &4.6859e+03_rb,3.5141e+03_rb,2.3430e+03_rb,1.1715e+03_rb,4.0933e+01_rb/)
+      kbo(:, 4,30,15) = (/ &
+     &5.6065e+03_rb,4.2050e+03_rb,2.8032e+03_rb,1.4016e+03_rb,5.0897e+01_rb/)
+      kbo(:, 5,30,15) = (/ &
+     &6.5717e+03_rb,4.9287e+03_rb,3.2858e+03_rb,1.6429e+03_rb,6.1721e+01_rb/)
+      kbo(:, 1,31,15) = (/ &
+     &3.2648e+03_rb,2.4486e+03_rb,1.6324e+03_rb,8.1618e+02_rb,2.6426e+01_rb/)
+      kbo(:, 2,31,15) = (/ &
+     &4.0756e+03_rb,3.0566e+03_rb,2.0378e+03_rb,1.0190e+03_rb,3.4471e+01_rb/)
+      kbo(:, 3,31,15) = (/ &
+     &4.9563e+03_rb,3.7173e+03_rb,2.4782e+03_rb,1.2392e+03_rb,4.3666e+01_rb/)
+      kbo(:, 4,31,15) = (/ &
+     &5.8911e+03_rb,4.4181e+03_rb,2.9455e+03_rb,1.4727e+03_rb,5.3750e+01_rb/)
+      kbo(:, 5,31,15) = (/ &
+     &6.8637e+03_rb,5.1477e+03_rb,3.4319e+03_rb,1.7160e+03_rb,6.4980e+01_rb/)
+      kbo(:, 1,32,15) = (/ &
+     &3.4972e+03_rb,2.6230e+03_rb,1.7487e+03_rb,8.7434e+02_rb,2.8607e+01_rb/)
+      kbo(:, 2,32,15) = (/ &
+     &4.3306e+03_rb,3.2480e+03_rb,2.1653e+03_rb,1.0827e+03_rb,3.6943e+01_rb/)
+      kbo(:, 3,32,15) = (/ &
+     &5.2288e+03_rb,3.9216e+03_rb,2.6144e+03_rb,1.3072e+03_rb,4.6342e+01_rb/)
+      kbo(:, 4,32,15) = (/ &
+     &6.1756e+03_rb,4.6314e+03_rb,3.0875e+03_rb,1.5439e+03_rb,5.6744e+01_rb/)
+      kbo(:, 5,32,15) = (/ &
+     &7.1543e+03_rb,5.3657e+03_rb,3.5769e+03_rb,1.7884e+03_rb,6.8387e+01_rb/)
+      kbo(:, 1,33,15) = (/ &
+     &3.7323e+03_rb,2.7993e+03_rb,1.8662e+03_rb,9.3310e+02_rb,3.0880e+01_rb/)
+      kbo(:, 2,33,15) = (/ &
+     &4.5855e+03_rb,3.4391e+03_rb,2.2927e+03_rb,1.1463e+03_rb,3.9458e+01_rb/)
+      kbo(:, 3,33,15) = (/ &
+     &5.4988e+03_rb,4.1239e+03_rb,2.7494e+03_rb,1.3747e+03_rb,4.9066e+01_rb/)
+      kbo(:, 4,33,15) = (/ &
+     &6.4556e+03_rb,4.8415e+03_rb,3.2279e+03_rb,1.6139e+03_rb,5.9834e+01_rb/)
+      kbo(:, 5,33,15) = (/ &
+     &7.4364e+03_rb,5.5775e+03_rb,3.7183e+03_rb,1.8591e+03_rb,7.1936e+01_rb/)
+      kbo(:, 1,34,15) = (/ &
+     &3.9743e+03_rb,2.9808e+03_rb,1.9872e+03_rb,9.9359e+02_rb,3.2850e+01_rb/)
+      kbo(:, 2,34,15) = (/ &
+     &4.8517e+03_rb,3.6384e+03_rb,2.4257e+03_rb,1.2129e+03_rb,4.1615e+01_rb/)
+      kbo(:, 3,34,15) = (/ &
+     &5.7848e+03_rb,4.3386e+03_rb,2.8923e+03_rb,1.4462e+03_rb,5.1514e+01_rb/)
+      kbo(:, 4,34,15) = (/ &
+     &6.7566e+03_rb,5.0673e+03_rb,3.3783e+03_rb,1.6891e+03_rb,6.2632e+01_rb/)
+      kbo(:, 5,34,15) = (/ &
+     &7.7467e+03_rb,5.8099e+03_rb,3.8734e+03_rb,1.9367e+03_rb,7.5129e+01_rb/)
+      kbo(:, 1,35,15) = (/ &
+     &4.1392e+03_rb,3.1044e+03_rb,2.0697e+03_rb,1.0348e+03_rb,3.4005e+01_rb/)
+      kbo(:, 2,35,15) = (/ &
+     &5.0338e+03_rb,3.7756e+03_rb,2.5169e+03_rb,1.2585e+03_rb,4.2889e+01_rb/)
+      kbo(:, 3,35,15) = (/ &
+     &5.9824e+03_rb,4.4867e+03_rb,2.9910e+03_rb,1.4955e+03_rb,5.2983e+01_rb/)
+      kbo(:, 4,35,15) = (/ &
+     &6.9652e+03_rb,5.2239e+03_rb,3.4826e+03_rb,1.7414e+03_rb,6.4327e+01_rb/)
+      kbo(:, 5,35,15) = (/ &
+     &7.9642e+03_rb,5.9733e+03_rb,3.9822e+03_rb,1.9911e+03_rb,7.7087e+01_rb/)
+      kbo(:, 1,36,15) = (/ &
+     &4.2146e+03_rb,3.1608e+03_rb,2.1072e+03_rb,1.0536e+03_rb,3.4225e+01_rb/)
+      kbo(:, 2,36,15) = (/ &
+     &5.1200e+03_rb,3.8401e+03_rb,2.5599e+03_rb,1.2800e+03_rb,4.3139e+01_rb/)
+      kbo(:, 3,36,15) = (/ &
+     &6.0791e+03_rb,4.5594e+03_rb,3.0396e+03_rb,1.5198e+03_rb,5.3291e+01_rb/)
+      kbo(:, 4,36,15) = (/ &
+     &7.0718e+03_rb,5.3037e+03_rb,3.5357e+03_rb,1.7679e+03_rb,6.4713e+01_rb/)
+      kbo(:, 5,36,15) = (/ &
+     &8.0803e+03_rb,6.0601e+03_rb,4.0401e+03_rb,2.0201e+03_rb,7.7535e+01_rb/)
+      kbo(:, 1,37,15) = (/ &
+     &4.1830e+03_rb,3.1372e+03_rb,2.0915e+03_rb,1.0457e+03_rb,3.3171e+01_rb/)
+      kbo(:, 2,37,15) = (/ &
+     &5.0955e+03_rb,3.8218e+03_rb,2.5477e+03_rb,1.2739e+03_rb,4.1938e+01_rb/)
+      kbo(:, 3,37,15) = (/ &
+     &6.0651e+03_rb,4.5490e+03_rb,3.0327e+03_rb,1.5163e+03_rb,5.1957e+01_rb/)
+      kbo(:, 4,37,15) = (/ &
+     &7.0708e+03_rb,5.3029e+03_rb,3.5354e+03_rb,1.7678e+03_rb,6.3244e+01_rb/)
+      kbo(:, 5,37,15) = (/ &
+     &8.0937e+03_rb,6.0708e+03_rb,4.0470e+03_rb,2.0235e+03_rb,7.5914e+01_rb/)
+      kbo(:, 1,38,15) = (/ &
+     &4.1367e+03_rb,3.1023e+03_rb,2.0683e+03_rb,1.0342e+03_rb,3.2061e+01_rb/)
+      kbo(:, 2,38,15) = (/ &
+     &5.0552e+03_rb,3.7913e+03_rb,2.5275e+03_rb,1.2638e+03_rb,4.0668e+01_rb/)
+      kbo(:, 3,38,15) = (/ &
+     &6.0331e+03_rb,4.5250e+03_rb,3.0168e+03_rb,1.5083e+03_rb,5.0542e+01_rb/)
+      kbo(:, 4,38,15) = (/ &
+     &7.0503e+03_rb,5.2874e+03_rb,3.5252e+03_rb,1.7626e+03_rb,6.1670e+01_rb/)
+      kbo(:, 5,38,15) = (/ &
+     &8.0886e+03_rb,6.0662e+03_rb,4.0441e+03_rb,2.0220e+03_rb,7.4175e+01_rb/)
+      kbo(:, 1,39,15) = (/ &
+     &4.0836e+03_rb,3.0625e+03_rb,2.0418e+03_rb,1.0208e+03_rb,3.0973e+01_rb/)
+      kbo(:, 2,39,15) = (/ &
+     &5.0068e+03_rb,3.7549e+03_rb,2.5034e+03_rb,1.2516e+03_rb,3.9423e+01_rb/)
+      kbo(:, 3,39,15) = (/ &
+     &5.9917e+03_rb,4.4934e+03_rb,2.9959e+03_rb,1.4979e+03_rb,4.9140e+01_rb/)
+      kbo(:, 4,39,15) = (/ &
+     &7.0190e+03_rb,5.2646e+03_rb,3.5096e+03_rb,1.7548e+03_rb,6.0110e+01_rb/)
+      kbo(:, 5,39,15) = (/ &
+     &8.0703e+03_rb,6.0526e+03_rb,4.0352e+03_rb,2.0176e+03_rb,7.2442e+01_rb/)
+      kbo(:, 1,40,15) = (/ &
+     &3.9731e+03_rb,2.9800e+03_rb,1.9865e+03_rb,9.9327e+02_rb,2.9119e+01_rb/)
+      kbo(:, 2,40,15) = (/ &
+     &4.9010e+03_rb,3.6760e+03_rb,2.4505e+03_rb,1.2252e+03_rb,3.7284e+01_rb/)
+      kbo(:, 3,40,15) = (/ &
+     &5.8967e+03_rb,4.4226e+03_rb,2.9482e+03_rb,1.4742e+03_rb,4.6706e+01_rb/)
+      kbo(:, 4,40,15) = (/ &
+     &6.9401e+03_rb,5.2049e+03_rb,3.4701e+03_rb,1.7350e+03_rb,5.7383e+01_rb/)
+      kbo(:, 5,40,15) = (/ &
+     &8.0134e+03_rb,6.0096e+03_rb,4.0066e+03_rb,2.0033e+03_rb,6.9395e+01_rb/)
+      kbo(:, 1,41,15) = (/ &
+     &3.8503e+03_rb,2.8877e+03_rb,1.9252e+03_rb,9.6258e+02_rb,2.7224e+01_rb/)
+      kbo(:, 2,41,15) = (/ &
+     &4.7815e+03_rb,3.5862e+03_rb,2.3908e+03_rb,1.1953e+03_rb,3.5101e+01_rb/)
+      kbo(:, 3,41,15) = (/ &
+     &5.7872e+03_rb,4.3401e+03_rb,2.8935e+03_rb,1.4467e+03_rb,4.4197e+01_rb/)
+      kbo(:, 4,41,15) = (/ &
+     &6.8458e+03_rb,5.1341e+03_rb,3.4225e+03_rb,1.7115e+03_rb,5.4583e+01_rb/)
+      kbo(:, 5,41,15) = (/ &
+     &7.9396e+03_rb,5.9547e+03_rb,3.9699e+03_rb,1.9849e+03_rb,6.6259e+01_rb/)
+      kbo(:, 1,42,15) = (/ &
+     &3.7218e+03_rb,2.7913e+03_rb,1.8581e+03_rb,9.3043e+02_rb,2.5397e+01_rb/)
+      kbo(:, 2,42,15) = (/ &
+     &4.6552e+03_rb,3.4913e+03_rb,2.3275e+03_rb,1.1638e+03_rb,3.2985e+01_rb/)
+      kbo(:, 3,42,15) = (/ &
+     &5.6676e+03_rb,4.2515e+03_rb,2.8342e+03_rb,1.4169e+03_rb,4.1777e+01_rb/)
+      kbo(:, 4,42,15) = (/ &
+     &6.7404e+03_rb,5.0552e+03_rb,3.3706e+03_rb,1.6852e+03_rb,5.1833e+01_rb/)
+      kbo(:, 5,42,15) = (/ &
+     &7.8548e+03_rb,5.8911e+03_rb,3.9277e+03_rb,1.9637e+03_rb,6.3188e+01_rb/)
+      kbo(:, 1,43,15) = (/ &
+     &3.5738e+03_rb,2.6801e+03_rb,1.7870e+03_rb,8.9342e+02_rb,2.3264e+01_rb/)
+      kbo(:, 2,43,15) = (/ &
+     &4.5111e+03_rb,3.3834e+03_rb,2.2559e+03_rb,1.1277e+03_rb,3.0494e+01_rb/)
+      kbo(:, 3,43,15) = (/ &
+     &5.5364e+03_rb,4.1522e+03_rb,2.7681e+03_rb,1.3841e+03_rb,3.8909e+01_rb/)
+      kbo(:, 4,43,15) = (/ &
+     &6.6297e+03_rb,4.9723e+03_rb,3.3147e+03_rb,1.6574e+03_rb,4.8575e+01_rb/)
+      kbo(:, 5,43,15) = (/ &
+     &7.7713e+03_rb,5.8285e+03_rb,3.8856e+03_rb,1.9429e+03_rb,5.9539e+01_rb/)
+      kbo(:, 1,44,15) = (/ &
+     &3.4144e+03_rb,2.5608e+03_rb,1.7072e+03_rb,8.5364e+02_rb,2.1065e+01_rb/)
+      kbo(:, 2,44,15) = (/ &
+     &4.3569e+03_rb,3.2674e+03_rb,2.1784e+03_rb,1.0893e+03_rb,2.7929e+01_rb/)
+      kbo(:, 3,44,15) = (/ &
+     &5.3944e+03_rb,4.0458e+03_rb,2.6971e+03_rb,1.3486e+03_rb,3.5943e+01_rb/)
+      kbo(:, 4,44,15) = (/ &
+     &6.5105e+03_rb,4.8828e+03_rb,3.2554e+03_rb,1.6276e+03_rb,4.5182e+01_rb/)
+      kbo(:, 5,44,15) = (/ &
+     &7.6829e+03_rb,5.7622e+03_rb,3.8414e+03_rb,1.9208e+03_rb,5.5715e+01_rb/)
+      kbo(:, 1,45,15) = (/ &
+     &3.2505e+03_rb,2.4379e+03_rb,1.6254e+03_rb,8.1271e+02_rb,1.8984e+01_rb/)
+      kbo(:, 2,45,15) = (/ &
+     &4.1974e+03_rb,3.1481e+03_rb,2.0989e+03_rb,1.0493e+03_rb,2.5493e+01_rb/)
+      kbo(:, 3,45,15) = (/ &
+     &5.2466e+03_rb,3.9350e+03_rb,2.6232e+03_rb,1.3117e+03_rb,3.3113e+01_rb/)
+      kbo(:, 4,45,15) = (/ &
+     &6.3833e+03_rb,4.7875e+03_rb,3.1918e+03_rb,1.5958e+03_rb,4.1930e+01_rb/)
+      kbo(:, 5,45,15) = (/ &
+     &7.5868e+03_rb,5.6901e+03_rb,3.7934e+03_rb,1.8967e+03_rb,5.2027e+01_rb/)
+      kbo(:, 1,46,15) = (/ &
+     &3.0662e+03_rb,2.2996e+03_rb,1.5331e+03_rb,7.6672e+02_rb,1.6905e+01_rb/)
+      kbo(:, 2,46,15) = (/ &
+     &4.0155e+03_rb,3.0116e+03_rb,2.0079e+03_rb,1.0039e+03_rb,2.3041e+01_rb/)
+      kbo(:, 3,46,15) = (/ &
+     &5.0741e+03_rb,3.8056e+03_rb,2.5370e+03_rb,1.2685e+03_rb,3.0241e+01_rb/)
+      kbo(:, 4,46,15) = (/ &
+     &6.2294e+03_rb,4.6721e+03_rb,3.1149e+03_rb,1.5573e+03_rb,3.8622e+01_rb/)
+      kbo(:, 5,46,15) = (/ &
+     &7.4637e+03_rb,5.5978e+03_rb,3.7320e+03_rb,1.8660e+03_rb,4.8257e+01_rb/)
+      kbo(:, 1,47,15) = (/ &
+     &2.8472e+03_rb,2.1354e+03_rb,1.4236e+03_rb,7.1208e+02_rb,1.4723e+01_rb/)
+      kbo(:, 2,47,15) = (/ &
+     &3.7952e+03_rb,2.8464e+03_rb,1.8976e+03_rb,9.4874e+02_rb,2.0451e+01_rb/)
+      kbo(:, 3,47,15) = (/ &
+     &4.8581e+03_rb,3.6436e+03_rb,2.4290e+03_rb,1.2145e+03_rb,2.7203e+01_rb/)
+      kbo(:, 4,47,15) = (/ &
+     &6.0303e+03_rb,4.5227e+03_rb,3.0151e+03_rb,1.5075e+03_rb,3.5112e+01_rb/)
+      kbo(:, 5,47,15) = (/ &
+     &7.2931e+03_rb,5.4698e+03_rb,3.6467e+03_rb,1.8233e+03_rb,4.4239e+01_rb/)
+      kbo(:, 1,48,15) = (/ &
+     &2.6253e+03_rb,1.9691e+03_rb,1.3127e+03_rb,6.5679e+02_rb,1.2715e+01_rb/)
+      kbo(:, 2,48,15) = (/ &
+     &3.5692e+03_rb,2.6769e+03_rb,1.7846e+03_rb,8.9231e+02_rb,1.8030e+01_rb/)
+      kbo(:, 3,48,15) = (/ &
+     &4.6375e+03_rb,3.4782e+03_rb,2.3188e+03_rb,1.1595e+03_rb,2.4364e+01_rb/)
+      kbo(:, 4,48,15) = (/ &
+     &5.8244e+03_rb,4.3683e+03_rb,2.9120e+03_rb,1.4560e+03_rb,3.1792e+01_rb/)
+      kbo(:, 5,48,15) = (/ &
+     &7.1141e+03_rb,5.3356e+03_rb,3.5570e+03_rb,1.7785e+03_rb,4.0424e+01_rb/)
+      kbo(:, 1,49,15) = (/ &
+     &2.4040e+03_rb,1.8030e+03_rb,1.2020e+03_rb,6.0155e+02_rb,1.0861e+01_rb/)
+      kbo(:, 2,49,15) = (/ &
+     &3.3401e+03_rb,2.5051e+03_rb,1.6700e+03_rb,8.3512e+02_rb,1.5777e+01_rb/)
+      kbo(:, 3,49,15) = (/ &
+     &4.4127e+03_rb,3.3095e+03_rb,2.2063e+03_rb,1.1031e+03_rb,2.1693e+01_rb/)
+      kbo(:, 4,49,15) = (/ &
+     &5.6115e+03_rb,4.2087e+03_rb,2.8058e+03_rb,1.4030e+03_rb,2.8659e+01_rb/)
+      kbo(:, 5,49,15) = (/ &
+     &6.9274e+03_rb,5.1956e+03_rb,3.4636e+03_rb,1.7318e+03_rb,3.6808e+01_rb/)
+      kbo(:, 1,50,15) = (/ &
+     &2.2030e+03_rb,1.6523e+03_rb,1.1015e+03_rb,5.5137e+02_rb,9.2813e+00_rb/)
+      kbo(:, 2,50,15) = (/ &
+     &3.1297e+03_rb,2.3473e+03_rb,1.5649e+03_rb,7.8265e+02_rb,1.3818e+01_rb/)
+      kbo(:, 3,50,15) = (/ &
+     &4.2081e+03_rb,3.1561e+03_rb,2.1041e+03_rb,1.0519e+03_rb,1.9341e+01_rb/)
+      kbo(:, 4,50,15) = (/ &
+     &5.4214e+03_rb,4.0660e+03_rb,2.7107e+03_rb,1.3553e+03_rb,2.5902e+01_rb/)
+      kbo(:, 5,50,15) = (/ &
+     &6.7641e+03_rb,5.0731e+03_rb,3.3821e+03_rb,1.6910e+03_rb,3.3602e+01_rb/)
+      kbo(:, 1,51,15) = (/ &
+     &2.0128e+03_rb,1.5096e+03_rb,1.0064e+03_rb,5.0390e+02_rb,7.8927e+00_rb/)
+      kbo(:, 2,51,15) = (/ &
+     &2.9276e+03_rb,2.1957e+03_rb,1.4638e+03_rb,7.3206e+02_rb,1.2046e+01_rb/)
+      kbo(:, 3,51,15) = (/ &
+     &4.0098e+03_rb,3.0073e+03_rb,2.0049e+03_rb,1.0025e+03_rb,1.7204e+01_rb/)
+      kbo(:, 4,51,15) = (/ &
+     &5.2399e+03_rb,3.9299e+03_rb,2.6200e+03_rb,1.3100e+03_rb,2.3387e+01_rb/)
+      kbo(:, 5,51,15) = (/ &
+     &6.6101e+03_rb,4.9575e+03_rb,3.3050e+03_rb,1.6525e+03_rb,3.0654e+01_rb/)
+      kbo(:, 1,52,15) = (/ &
+     &1.8272e+03_rb,1.3704e+03_rb,9.1373e+02_rb,4.5761e+02_rb,6.6428e+00_rb/)
+      kbo(:, 2,52,15) = (/ &
+     &2.7256e+03_rb,2.0442e+03_rb,1.3627e+03_rb,6.8167e+02_rb,1.0409e+01_rb/)
+      kbo(:, 3,52,15) = (/ &
+     &3.8098e+03_rb,2.8573e+03_rb,1.9049e+03_rb,9.5240e+02_rb,1.5205e+01_rb/)
+      kbo(:, 4,52,15) = (/ &
+     &5.0575e+03_rb,3.7931e+03_rb,2.5288e+03_rb,1.2643e+03_rb,2.1008e+01_rb/)
+      kbo(:, 5,52,15) = (/ &
+     &6.4544e+03_rb,4.8408e+03_rb,3.2272e+03_rb,1.6135e+03_rb,2.7863e+01_rb/)
+      kbo(:, 1,53,15) = (/ &
+     &1.6455e+03_rb,1.2341e+03_rb,8.2275e+02_rb,4.1218e+02_rb,5.5292e+00_rb/)
+      kbo(:, 2,53,15) = (/ &
+     &2.5225e+03_rb,1.8919e+03_rb,1.2613e+03_rb,6.3102e+02_rb,8.9199e+00_rb/)
+      kbo(:, 3,53,15) = (/ &
+     &3.6054e+03_rb,2.7042e+03_rb,1.8028e+03_rb,9.0141e+02_rb,1.3342e+01_rb/)
+      kbo(:, 4,53,15) = (/ &
+     &4.8703e+03_rb,3.6527e+03_rb,2.4352e+03_rb,1.2176e+03_rb,1.8766e+01_rb/)
+      kbo(:, 5,53,15) = (/ &
+     &6.2970e+03_rb,4.7228e+03_rb,3.1485e+03_rb,1.5742e+03_rb,2.5231e+01_rb/)
+      kbo(:, 1,54,15) = (/ &
+     &1.4905e+03_rb,1.1179e+03_rb,7.4526e+02_rb,3.7343e+02_rb,4.6241e+00_rb/)
+      kbo(:, 2,54,15) = (/ &
+     &2.3494e+03_rb,1.7621e+03_rb,1.1747e+03_rb,5.8778e+02_rb,7.6666e+00_rb/)
+      kbo(:, 3,54,15) = (/ &
+     &3.4317e+03_rb,2.5738e+03_rb,1.7159e+03_rb,8.5793e+02_rb,1.1744e+01_rb/)
+      kbo(:, 4,54,15) = (/ &
+     &4.7173e+03_rb,3.5380e+03_rb,2.3587e+03_rb,1.1793e+03_rb,1.6836e+01_rb/)
+      kbo(:, 5,54,15) = (/ &
+     &6.1810e+03_rb,4.6357e+03_rb,3.0905e+03_rb,1.5452e+03_rb,2.2955e+01_rb/)
+      kbo(:, 1,55,15) = (/ &
+     &1.3503e+03_rb,1.0127e+03_rb,6.7517e+02_rb,3.3837e+02_rb,3.8496e+00_rb/)
+      kbo(:, 2,55,15) = (/ &
+     &2.1922e+03_rb,1.6441e+03_rb,1.0961e+03_rb,5.4853e+02_rb,6.5708e+00_rb/)
+      kbo(:, 3,55,15) = (/ &
+     &3.2739e+03_rb,2.4554e+03_rb,1.6370e+03_rb,8.1853e+02_rb,1.0320e+01_rb/)
+      kbo(:, 4,55,15) = (/ &
+     &4.5818e+03_rb,3.4364e+03_rb,2.2910e+03_rb,1.1455e+03_rb,1.5094e+01_rb/)
+      kbo(:, 5,55,15) = (/ &
+     &6.0888e+03_rb,4.5666e+03_rb,3.0444e+03_rb,1.5222e+03_rb,2.0876e+01_rb/)
+      kbo(:, 1,56,15) = (/ &
+     &1.2164e+03_rb,9.1227e+02_rb,6.0818e+02_rb,3.0487e+02_rb,3.1724e+00_rb/)
+      kbo(:, 2,56,15) = (/ &
+     &2.0376e+03_rb,1.5282e+03_rb,1.0188e+03_rb,5.0989e+02_rb,5.5890e+00_rb/)
+      kbo(:, 3,56,15) = (/ &
+     &3.1175e+03_rb,2.3381e+03_rb,1.5588e+03_rb,7.7947e+02_rb,9.0060e+00_rb/)
+      kbo(:, 4,56,15) = (/ &
+     &4.4491e+03_rb,3.3368e+03_rb,2.2246e+03_rb,1.1123e+03_rb,1.3463e+01_rb/)
+      kbo(:, 5,56,15) = (/ &
+     &6.0027e+03_rb,4.5020e+03_rb,3.0014e+03_rb,1.5007e+03_rb,1.8912e+01_rb/)
+      kbo(:, 1,57,15) = (/ &
+     &1.0889e+03_rb,8.1664e+02_rb,5.4443e+02_rb,2.7298e+02_rb,2.5821e+00_rb/)
+      kbo(:, 2,57,15) = (/ &
+     &1.8871e+03_rb,1.4154e+03_rb,9.4357e+02_rb,4.7231e+02_rb,4.7102e+00_rb/)
+      kbo(:, 3,57,15) = (/ &
+     &2.9648e+03_rb,2.2236e+03_rb,1.4824e+03_rb,7.4131e+02_rb,7.7911e+00_rb/)
+      kbo(:, 4,57,15) = (/ &
+     &4.3194e+03_rb,3.2395e+03_rb,2.1597e+03_rb,1.0798e+03_rb,1.1924e+01_rb/)
+      kbo(:, 5,57,15) = (/ &
+     &5.9252e+03_rb,4.4439e+03_rb,2.9626e+03_rb,1.4813e+03_rb,1.7058e+01_rb/)
+      kbo(:, 1,58,15) = (/ &
+     &4.7296e+02_rb,4.0724e+02_rb,3.1867e+02_rb,1.9341e+02_rb,2.1052e+00_rb/)
+      kbo(:, 2,58,15) = (/ &
+     &8.4958e+02_rb,7.3152e+02_rb,5.7242e+02_rb,3.4682e+02_rb,3.9643e+00_rb/)
+      kbo(:, 3,58,15) = (/ &
+     &1.3719e+03_rb,1.1812e+03_rb,9.2434e+02_rb,5.5948e+02_rb,6.7352e+00_rb/)
+      kbo(:, 4,58,15) = (/ &
+     &2.0410e+03_rb,1.7574e+03_rb,1.3752e+03_rb,8.3221e+02_rb,1.0550e+01_rb/)
+      kbo(:, 5,58,15) = (/ &
+     &2.8472e+03_rb,2.4515e+03_rb,1.9184e+03_rb,1.1609e+03_rb,1.5395e+01_rb/)
+      kbo(:, 1,59,15) = (/ &
+     &4.5680e+02_rb,3.9477e+02_rb,3.1046e+02_rb,1.8976e+02_rb,1.9256e+00_rb/)
+      kbo(:, 2,59,15) = (/ &
+     &8.3327e+02_rb,7.2012e+02_rb,5.6632e+02_rb,3.4555e+02_rb,3.6779e+00_rb/)
+      kbo(:, 3,59,15) = (/ &
+     &1.3611e+03_rb,1.1763e+03_rb,9.2510e+02_rb,5.6393e+02_rb,6.3201e+00_rb/)
+      kbo(:, 4,59,15) = (/ &
+     &2.0429e+03_rb,1.7655e+03_rb,1.3884e+03_rb,8.4623e+02_rb,9.9804e+00_rb/)
+      kbo(:, 5,59,15) = (/ &
+     &2.8700e+03_rb,2.4803e+03_rb,1.9506e+03_rb,1.1889e+03_rb,1.4739e+01_rb/)
+      kbo(:, 1,13,16) = (/ &
+     &4.8122e+02_rb,3.6087e+02_rb,2.4060e+02_rb,1.2030e+02_rb,7.3993e+00_rb/)
+      kbo(:, 2,13,16) = (/ &
+     &6.9206e+02_rb,5.1907e+02_rb,3.4603e+02_rb,1.7302e+02_rb,1.5501e+01_rb/)
+      kbo(:, 3,13,16) = (/ &
+     &9.4738e+02_rb,7.1056e+02_rb,4.7372e+02_rb,2.3683e+02_rb,2.1040e+01_rb/)
+      kbo(:, 4,13,16) = (/ &
+     &1.2406e+03_rb,9.3042e+02_rb,6.2029e+02_rb,3.1014e+02_rb,2.9139e+01_rb/)
+      kbo(:, 5,13,16) = (/ &
+     &1.5703e+03_rb,1.1778e+03_rb,7.8522e+02_rb,3.9259e+02_rb,3.9308e+01_rb/)
+      kbo(:, 1,14,16) = (/ &
+     &5.7576e+02_rb,4.3182e+02_rb,2.8788e+02_rb,1.4394e+02_rb,1.4009e+01_rb/)
+      kbo(:, 2,14,16) = (/ &
+     &8.3244e+02_rb,6.2431e+02_rb,4.1619e+02_rb,2.0809e+02_rb,1.9135e+01_rb/)
+      kbo(:, 3,14,16) = (/ &
+     &1.1392e+03_rb,8.5436e+02_rb,5.6956e+02_rb,2.8480e+02_rb,2.5798e+01_rb/)
+      kbo(:, 4,14,16) = (/ &
+     &1.4970e+03_rb,1.1226e+03_rb,7.4844e+02_rb,3.7423e+02_rb,3.5612e+01_rb/)
+      kbo(:, 5,14,16) = (/ &
+     &1.8999e+03_rb,1.4249e+03_rb,9.4985e+02_rb,4.7498e+02_rb,4.7897e+01_rb/)
+      kbo(:, 1,15,16) = (/ &
+     &6.7686e+02_rb,5.0758e+02_rb,3.3845e+02_rb,1.6922e+02_rb,1.7232e+01_rb/)
+      kbo(:, 2,15,16) = (/ &
+     &9.7585e+02_rb,7.3193e+02_rb,4.8790e+02_rb,2.4395e+02_rb,2.3521e+01_rb/)
+      kbo(:, 3,15,16) = (/ &
+     &1.3377e+03_rb,1.0032e+03_rb,6.6881e+02_rb,3.3441e+02_rb,3.1740e+01_rb/)
+      kbo(:, 4,15,16) = (/ &
+     &1.7575e+03_rb,1.3181e+03_rb,8.7876e+02_rb,4.3935e+02_rb,4.3321e+01_rb/)
+      kbo(:, 5,15,16) = (/ &
+     &2.2308e+03_rb,1.6730e+03_rb,1.1154e+03_rb,5.5774e+02_rb,5.7999e+01_rb/)
+      kbo(:, 1,16,16) = (/ &
+     &7.8637e+02_rb,5.8983e+02_rb,3.9321e+02_rb,1.9661e+02_rb,2.1088e+01_rb/)
+      kbo(:, 2,16,16) = (/ &
+     &1.1333e+03_rb,8.4995e+02_rb,5.6666e+02_rb,2.8332e+02_rb,2.8690e+01_rb/)
+      kbo(:, 3,16,16) = (/ &
+     &1.5497e+03_rb,1.1623e+03_rb,7.7493e+02_rb,3.8745e+02_rb,3.8949e+01_rb/)
+      kbo(:, 4,16,16) = (/ &
+     &2.0330e+03_rb,1.5247e+03_rb,1.0164e+03_rb,5.0821e+02_rb,5.2500e+01_rb/)
+      kbo(:, 5,16,16) = (/ &
+     &2.5789e+03_rb,1.9342e+03_rb,1.2895e+03_rb,6.4478e+02_rb,6.9505e+01_rb/)
+      kbo(:, 1,17,16) = (/ &
+     &9.1371e+02_rb,6.8529e+02_rb,4.5686e+02_rb,2.2843e+02_rb,2.5518e+01_rb/)
+      kbo(:, 2,17,16) = (/ &
+     &1.3116e+03_rb,9.8366e+02_rb,6.5574e+02_rb,3.2788e+02_rb,3.4904e+01_rb/)
+      kbo(:, 3,17,16) = (/ &
+     &1.7880e+03_rb,1.3410e+03_rb,8.9396e+02_rb,4.4698e+02_rb,4.7412e+01_rb/)
+      kbo(:, 4,17,16) = (/ &
+     &2.3411e+03_rb,1.7558e+03_rb,1.1705e+03_rb,5.8526e+02_rb,6.3218e+01_rb/)
+      kbo(:, 5,17,16) = (/ &
+     &2.9603e+03_rb,2.2204e+03_rb,1.4801e+03_rb,7.4006e+02_rb,8.2344e+01_rb/)
+      kbo(:, 1,18,16) = (/ &
+     &1.0453e+03_rb,7.8401e+02_rb,5.2267e+02_rb,2.6132e+02_rb,3.0565e+01_rb/)
+      kbo(:, 2,18,16) = (/ &
+     &1.4935e+03_rb,1.1202e+03_rb,7.4674e+02_rb,3.7341e+02_rb,4.2204e+01_rb/)
+      kbo(:, 3,18,16) = (/ &
+     &2.0309e+03_rb,1.5232e+03_rb,1.0154e+03_rb,5.0502e+02_rb,5.7127e+01_rb/)
+      kbo(:, 4,18,16) = (/ &
+     &2.6479e+03_rb,1.9862e+03_rb,1.3241e+03_rb,6.6202e+02_rb,7.5429e+01_rb/)
+      kbo(:, 5,18,16) = (/ &
+     &3.3399e+03_rb,2.5049e+03_rb,1.6700e+03_rb,8.3500e+02_rb,9.7021e+01_rb/)
+      kbo(:, 1,19,16) = (/ &
+     &1.2157e+03_rb,9.1179e+02_rb,6.0790e+02_rb,3.0394e+02_rb,3.6497e+01_rb/)
+      kbo(:, 2,19,16) = (/ &
+     &1.7308e+03_rb,1.2981e+03_rb,8.6539e+02_rb,4.3270e+02_rb,5.0186e+01_rb/)
+      kbo(:, 3,19,16) = (/ &
+     &2.3421e+03_rb,1.7565e+03_rb,1.1710e+03_rb,5.8556e+02_rb,6.7960e+01_rb/)
+      kbo(:, 4,19,16) = (/ &
+     &3.0436e+03_rb,2.2829e+03_rb,1.5219e+03_rb,7.6093e+02_rb,8.8940e+01_rb/)
+      kbo(:, 5,19,16) = (/ &
+     &3.8257e+03_rb,2.8691e+03_rb,1.9129e+03_rb,9.5637e+02_rb,1.1320e+02_rb/)
+      kbo(:, 1,20,16) = (/ &
+     &1.4499e+03_rb,1.0875e+03_rb,7.2502e+02_rb,3.6250e+02_rb,4.3451e+01_rb/)
+      kbo(:, 2,20,16) = (/ &
+     &2.0494e+03_rb,1.5371e+03_rb,1.0247e+03_rb,5.1236e+02_rb,5.9923e+01_rb/)
+      kbo(:, 3,20,16) = (/ &
+     &2.7595e+03_rb,2.0695e+03_rb,1.3797e+03_rb,6.8984e+02_rb,8.0107e+01_rb/)
+      kbo(:, 4,20,16) = (/ &
+     &3.5702e+03_rb,2.6775e+03_rb,1.7850e+03_rb,8.9253e+02_rb,1.0388e+02_rb/)
+      kbo(:, 5,20,16) = (/ &
+     &4.4675e+03_rb,3.3505e+03_rb,2.2337e+03_rb,1.1168e+03_rb,1.3102e+02_rb/)
+      kbo(:, 1,21,16) = (/ &
+     &1.7354e+03_rb,1.3015e+03_rb,8.6762e+02_rb,4.3383e+02_rb,5.1121e+01_rb/)
+      kbo(:, 2,21,16) = (/ &
+     &2.4333e+03_rb,1.8248e+03_rb,1.2166e+03_rb,6.0831e+02_rb,7.0122e+01_rb/)
+      kbo(:, 3,21,16) = (/ &
+     &3.2566e+03_rb,2.4426e+03_rb,1.6283e+03_rb,8.1420e+02_rb,9.3037e+01_rb/)
+      kbo(:, 4,21,16) = (/ &
+     &4.1875e+03_rb,3.1404e+03_rb,2.0937e+03_rb,1.0468e+03_rb,1.1968e+02_rb/)
+      kbo(:, 5,21,16) = (/ &
+     &5.2269e+03_rb,3.9201e+03_rb,2.6133e+03_rb,1.3066e+03_rb,1.4963e+02_rb/)
+      kbo(:, 1,22,16) = (/ &
+     &2.1136e+03_rb,1.5853e+03_rb,1.0569e+03_rb,5.2844e+02_rb,6.0581e+01_rb/)
+      kbo(:, 2,22,16) = (/ &
+     &2.9316e+03_rb,2.1987e+03_rb,1.4659e+03_rb,7.3292e+02_rb,8.2385e+01_rb/)
+      kbo(:, 3,22,16) = (/ &
+     &3.8802e+03_rb,2.9101e+03_rb,1.9401e+03_rb,9.7007e+02_rb,1.0823e+02_rb/)
+      kbo(:, 4,22,16) = (/ &
+     &4.9544e+03_rb,3.7156e+03_rb,2.4770e+03_rb,1.2386e+03_rb,1.3781e+02_rb/)
+      kbo(:, 5,22,16) = (/ &
+     &6.1512e+03_rb,4.6135e+03_rb,3.0579e+03_rb,1.5378e+03_rb,1.7127e+02_rb/)
+      kbo(:, 1,23,16) = (/ &
+     &2.5612e+03_rb,1.9208e+03_rb,1.2805e+03_rb,6.4031e+02_rb,7.0795e+01_rb/)
+      kbo(:, 2,23,16) = (/ &
+     &3.5078e+03_rb,2.6308e+03_rb,1.7538e+03_rb,8.7684e+02_rb,9.5347e+01_rb/)
+      kbo(:, 3,23,16) = (/ &
+     &4.5972e+03_rb,3.4475e+03_rb,2.2984e+03_rb,1.1493e+03_rb,1.2411e+02_rb/)
+      kbo(:, 4,23,16) = (/ &
+     &5.8246e+03_rb,4.3680e+03_rb,2.9119e+03_rb,1.4559e+03_rb,1.5734e+02_rb/)
+      kbo(:, 5,23,16) = (/ &
+     &7.1749e+03_rb,5.3812e+03_rb,3.5874e+03_rb,1.7937e+03_rb,1.9485e+02_rb/)
+      kbo(:, 1,24,16) = (/ &
+     &3.1040e+03_rb,2.3279e+03_rb,1.5520e+03_rb,7.7603e+02_rb,8.1731e+01_rb/)
+      kbo(:, 2,24,16) = (/ &
+     &4.2015e+03_rb,3.1511e+03_rb,2.1007e+03_rb,1.0503e+03_rb,1.0915e+02_rb/)
+      kbo(:, 3,24,16) = (/ &
+     &5.4526e+03_rb,4.0896e+03_rb,2.7263e+03_rb,1.3632e+03_rb,1.4142e+02_rb/)
+      kbo(:, 4,24,16) = (/ &
+     &6.8486e+03_rb,5.1365e+03_rb,3.4243e+03_rb,1.7120e+03_rb,1.7856e+02_rb/)
+      kbo(:, 5,24,16) = (/ &
+     &8.3592e+03_rb,6.2694e+03_rb,4.1793e+03_rb,2.0896e+03_rb,2.2042e+02_rb/)
+      kbo(:, 1,25,16) = (/ &
+     &3.7353e+03_rb,2.8011e+03_rb,1.8675e+03_rb,9.3379e+02_rb,9.3752e+01_rb/)
+      kbo(:, 2,25,16) = (/ &
+     &4.9915e+03_rb,3.7438e+03_rb,2.4959e+03_rb,1.2479e+03_rb,1.2447e+02_rb/)
+      kbo(:, 3,25,16) = (/ &
+     &6.4159e+03_rb,4.8120e+03_rb,3.2081e+03_rb,1.6040e+03_rb,1.6041e+02_rb/)
+      kbo(:, 4,25,16) = (/ &
+     &7.9803e+03_rb,5.9849e+03_rb,3.9899e+03_rb,1.9951e+03_rb,2.0157e+02_rb/)
+      kbo(:, 5,25,16) = (/ &
+     &9.6532e+03_rb,7.2408e+03_rb,4.8272e+03_rb,2.4135e+03_rb,2.4756e+02_rb/)
+      kbo(:, 1,26,16) = (/ &
+     &4.4736e+03_rb,3.3551e+03_rb,2.2367e+03_rb,1.1183e+03_rb,1.0731e+02_rb/)
+      kbo(:, 2,26,16) = (/ &
+     &5.9023e+03_rb,4.4264e+03_rb,2.9511e+03_rb,1.4756e+03_rb,1.4156e+02_rb/)
+      kbo(:, 3,26,16) = (/ &
+     &7.5046e+03_rb,5.6279e+03_rb,3.7521e+03_rb,1.8761e+03_rb,1.8123e+02_rb/)
+      kbo(:, 4,26,16) = (/ &
+     &9.2412e+03_rb,6.9304e+03_rb,4.6207e+03_rb,2.3102e+03_rb,2.2639e+02_rb/)
+      kbo(:, 5,26,16) = (/ &
+     &1.1070e+04_rb,8.3029e+03_rb,5.5351e+03_rb,2.7676e+03_rb,2.7645e+02_rb/)
+      kbo(:, 1,27,16) = (/ &
+     &5.2658e+03_rb,3.9745e+03_rb,2.6497e+03_rb,1.3248e+03_rb,1.2199e+02_rb/)
+      kbo(:, 2,27,16) = (/ &
+     &6.9046e+03_rb,5.1781e+03_rb,3.4305e+03_rb,1.7261e+03_rb,1.5967e+02_rb/)
+      kbo(:, 3,27,16) = (/ &
+     &8.6809e+03_rb,6.5105e+03_rb,4.3403e+03_rb,2.1700e+03_rb,2.0317e+02_rb/)
+      kbo(:, 4,27,16) = (/ &
+     &1.0514e+04_rb,7.9337e+03_rb,5.2893e+03_rb,2.6448e+03_rb,2.5202e+02_rb/)
+      kbo(:, 5,27,16) = (/ &
+     &1.2548e+04_rb,9.4115e+03_rb,6.2746e+03_rb,3.1373e+03_rb,3.0568e+02_rb/)
+      kbo(:, 1,28,16) = (/ &
+     &6.2040e+03_rb,4.6529e+03_rb,3.1020e+03_rb,1.5511e+03_rb,1.3749e+02_rb/)
+      kbo(:, 2,28,16) = (/ &
+     &7.9799e+03_rb,5.9854e+03_rb,3.9901e+03_rb,1.9952e+03_rb,1.7869e+02_rb/)
+      kbo(:, 3,28,16) = (/ &
+     &9.9157e+03_rb,7.4385e+03_rb,4.9578e+03_rb,2.4793e+03_rb,2.2573e+02_rb/)
+      kbo(:, 4,28,16) = (/ &
+     &1.1961e+04_rb,8.9706e+03_rb,5.9799e+03_rb,2.9900e+03_rb,2.7806e+02_rb/)
+      kbo(:, 5,28,16) = (/ &
+     &1.4060e+04_rb,1.0545e+04_rb,7.0300e+03_rb,3.5151e+03_rb,3.3499e+02_rb/)
+      kbo(:, 1,29,16) = (/ &
+     &7.1341e+03_rb,5.3506e+03_rb,3.5671e+03_rb,1.7835e+03_rb,1.5398e+02_rb/)
+      kbo(:, 2,29,16) = (/ &
+     &9.0577e+03_rb,6.7935e+03_rb,4.5290e+03_rb,2.2643e+03_rb,1.9863e+02_rb/)
+      kbo(:, 3,29,16) = (/ &
+     &1.1122e+04_rb,8.3426e+03_rb,5.5615e+03_rb,2.7806e+03_rb,2.4903e+02_rb/)
+      kbo(:, 4,29,16) = (/ &
+     &1.3280e+04_rb,9.9609e+03_rb,6.6400e+03_rb,3.3199e+03_rb,3.0450e+02_rb/)
+      kbo(:, 5,29,16) = (/ &
+     &1.5478e+04_rb,1.1609e+04_rb,7.7394e+03_rb,3.8697e+03_rb,3.6431e+02_rb/)
+      kbo(:, 1,30,16) = (/ &
+     &8.0566e+03_rb,6.0423e+03_rb,4.0284e+03_rb,2.0142e+03_rb,1.7115e+02_rb/)
+      kbo(:, 2,30,16) = (/ &
+     &1.0101e+04_rb,7.5759e+03_rb,5.0505e+03_rb,2.5252e+03_rb,2.1901e+02_rb/)
+      kbo(:, 3,30,16) = (/ &
+     &1.2267e+04_rb,9.1995e+03_rb,6.1334e+03_rb,3.0668e+03_rb,2.7243e+02_rb/)
+      kbo(:, 4,30,16) = (/ &
+     &1.4511e+04_rb,1.0883e+04_rb,7.2556e+03_rb,3.6279e+03_rb,3.3082e+02_rb/)
+      kbo(:, 5,30,16) = (/ &
+     &1.6772e+04_rb,1.2579e+04_rb,8.3858e+03_rb,4.1931e+03_rb,3.9317e+02_rb/)
+      kbo(:, 1,31,16) = (/ &
+     &8.8982e+03_rb,6.6739e+03_rb,4.4493e+03_rb,2.2245e+03_rb,1.8901e+02_rb/)
+      kbo(:, 2,31,16) = (/ &
+     &1.1025e+04_rb,8.2681e+03_rb,5.5122e+03_rb,2.7560e+03_rb,2.3984e+02_rb/)
+      kbo(:, 3,31,16) = (/ &
+     &1.3250e+04_rb,9.9387e+03_rb,6.6258e+03_rb,3.3127e+03_rb,2.9609e+02_rb/)
+      kbo(:, 4,31,16) = (/ &
+     &1.5535e+04_rb,1.1652e+04_rb,7.7678e+03_rb,3.8841e+03_rb,3.5699e+02_rb/)
+      kbo(:, 5,31,16) = (/ &
+     &1.7813e+04_rb,1.3361e+04_rb,8.9075e+03_rb,4.4535e+03_rb,4.2172e+02_rb/)
+      kbo(:, 1,32,16) = (/ &
+     &9.7468e+03_rb,7.3100e+03_rb,4.8729e+03_rb,2.4366e+03_rb,2.0736e+02_rb/)
+      kbo(:, 2,32,16) = (/ &
+     &1.1942e+04_rb,8.9562e+03_rb,5.9708e+03_rb,2.9855e+03_rb,2.6092e+02_rb/)
+      kbo(:, 3,32,16) = (/ &
+     &1.4217e+04_rb,1.0663e+04_rb,7.1086e+03_rb,3.5542e+03_rb,3.1978e+02_rb/)
+      kbo(:, 4,32,16) = (/ &
+     &1.6526e+04_rb,1.2394e+04_rb,8.2625e+03_rb,4.1313e+03_rb,3.8300e+02_rb/)
+      kbo(:, 5,32,16) = (/ &
+     &1.8815e+04_rb,1.4111e+04_rb,9.4077e+03_rb,4.7034e+03_rb,4.4968e+02_rb/)
+      kbo(:, 1,33,16) = (/ &
+     &1.0585e+04_rb,7.8868e+03_rb,5.2924e+03_rb,2.6461e+03_rb,2.2603e+02_rb/)
+      kbo(:, 2,33,16) = (/ &
+     &1.2835e+04_rb,9.6280e+03_rb,6.4182e+03_rb,3.2091e+03_rb,2.8215e+02_rb/)
+      kbo(:, 3,33,16) = (/ &
+     &1.5147e+04_rb,1.1359e+04_rb,7.5723e+03_rb,3.7863e+03_rb,3.3983e+02_rb/)
+      kbo(:, 4,33,16) = (/ &
+     &1.7461e+04_rb,1.3096e+04_rb,8.7313e+03_rb,4.3654e+03_rb,4.0847e+02_rb/)
+      kbo(:, 5,33,16) = (/ &
+     &1.9631e+04_rb,1.4815e+04_rb,9.8770e+03_rb,4.9389e+03_rb,4.7201e+02_rb/)
+      kbo(:, 1,34,16) = (/ &
+     &1.1432e+04_rb,8.5737e+03_rb,5.7158e+03_rb,2.8579e+03_rb,2.4293e+02_rb/)
+      kbo(:, 2,34,16) = (/ &
+     &1.3656e+04_rb,1.0308e+04_rb,6.8715e+03_rb,3.4360e+03_rb,3.0114e+02_rb/)
+      kbo(:, 3,34,16) = (/ &
+     &1.6096e+04_rb,1.2073e+04_rb,8.0473e+03_rb,4.0240e+03_rb,3.6423e+02_rb/)
+      kbo(:, 4,34,16) = (/ &
+     &1.8435e+04_rb,1.3744e+04_rb,9.2181e+03_rb,4.6088e+03_rb,4.3111e+02_rb/)
+      kbo(:, 5,34,16) = (/ &
+     &2.0743e+04_rb,1.5458e+04_rb,1.0371e+04_rb,5.1857e+03_rb,5.0086e+02_rb/)
+      kbo(:, 1,35,16) = (/ &
+     &1.2052e+04_rb,9.0391e+03_rb,6.0261e+03_rb,3.0130e+03_rb,2.5425e+02_rb/)
+      kbo(:, 2,35,16) = (/ &
+     &1.4410e+04_rb,1.0808e+04_rb,7.2046e+03_rb,3.6026e+03_rb,3.1392e+02_rb/)
+      kbo(:, 3,35,16) = (/ &
+     &1.6796e+04_rb,1.2598e+04_rb,8.3987e+03_rb,4.1994e+03_rb,3.7832e+02_rb/)
+      kbo(:, 4,35,16) = (/ &
+     &1.9160e+04_rb,1.4370e+04_rb,9.5799e+03_rb,4.7904e+03_rb,4.4634e+02_rb/)
+      kbo(:, 5,35,16) = (/ &
+     &2.1483e+04_rb,1.6114e+04_rb,1.0742e+04_rb,5.3711e+03_rb,5.1708e+02_rb/)
+      kbo(:, 1,36,16) = (/ &
+     &1.2411e+04_rb,9.3078e+03_rb,6.2050e+03_rb,3.1026e+03_rb,2.5887e+02_rb/)
+      kbo(:, 2,36,16) = (/ &
+     &1.4808e+04_rb,1.1106e+04_rb,7.4043e+03_rb,3.7021e+03_rb,3.1927e+02_rb/)
+      kbo(:, 3,36,16) = (/ &
+     &1.7228e+04_rb,1.2921e+04_rb,8.6130e+03_rb,4.3067e+03_rb,3.8442e+02_rb/)
+      kbo(:, 4,36,16) = (/ &
+     &1.9618e+04_rb,1.4714e+04_rb,9.8092e+03_rb,4.9047e+03_rb,4.5297e+02_rb/)
+      kbo(:, 5,36,16) = (/ &
+     &2.1965e+04_rb,1.6474e+04_rb,1.0982e+04_rb,5.4915e+03_rb,5.1909e+02_rb/)
+      kbo(:, 1,37,16) = (/ &
+     &1.2464e+04_rb,9.3487e+03_rb,6.2318e+03_rb,3.1159e+03_rb,2.5416e+02_rb/)
+      kbo(:, 2,37,16) = (/ &
+     &1.4910e+04_rb,1.1181e+04_rb,7.4551e+03_rb,3.7272e+03_rb,3.1436e+02_rb/)
+      kbo(:, 3,37,16) = (/ &
+     &1.7377e+04_rb,1.3033e+04_rb,8.6893e+03_rb,4.3442e+03_rb,3.7942e+02_rb/)
+      kbo(:, 4,37,16) = (/ &
+     &1.9817e+04_rb,1.4862e+04_rb,9.9088e+03_rb,4.9531e+03_rb,4.4815e+02_rb/)
+      kbo(:, 5,37,16) = (/ &
+     &2.2212e+04_rb,1.6660e+04_rb,1.1107e+04_rb,5.5531e+03_rb,5.1970e+02_rb/)
+      kbo(:, 1,38,16) = (/ &
+     &1.2455e+04_rb,9.3421e+03_rb,6.2277e+03_rb,3.1139e+03_rb,2.4843e+02_rb/)
+      kbo(:, 2,38,16) = (/ &
+     &1.4944e+04_rb,1.1208e+04_rb,7.4715e+03_rb,3.7356e+03_rb,3.0837e+02_rb/)
+      kbo(:, 3,38,16) = (/ &
+     &1.7458e+04_rb,1.3093e+04_rb,8.7289e+03_rb,4.3646e+03_rb,3.7326e+02_rb/)
+      kbo(:, 4,38,16) = (/ &
+     &1.9945e+04_rb,1.4959e+04_rb,9.9720e+03_rb,4.9866e+03_rb,4.4198e+02_rb/)
+      kbo(:, 5,38,16) = (/ &
+     &2.2391e+04_rb,1.6792e+04_rb,1.1195e+04_rb,5.5974e+03_rb,5.1349e+02_rb/)
+      kbo(:, 1,39,16) = (/ &
+     &1.2406e+04_rb,9.3076e+03_rb,6.2035e+03_rb,3.1024e+03_rb,2.4239e+02_rb/)
+      kbo(:, 2,39,16) = (/ &
+     &1.4934e+04_rb,1.1200e+04_rb,7.4672e+03_rb,3.7337e+03_rb,3.0193e+02_rb/)
+      kbo(:, 3,39,16) = (/ &
+     &1.7492e+04_rb,1.3118e+04_rb,8.7456e+03_rb,4.3725e+03_rb,3.6650e+02_rb/)
+      kbo(:, 4,39,16) = (/ &
+     &2.0028e+04_rb,1.5022e+04_rb,1.0013e+04_rb,5.0072e+03_rb,4.3512e+02_rb/)
+      kbo(:, 5,39,16) = (/ &
+     &2.2512e+04_rb,1.6885e+04_rb,1.1257e+04_rb,5.6280e+03_rb,5.0671e+02_rb/)
+      kbo(:, 1,40,16) = (/ &
+     &1.2191e+04_rb,9.1428e+03_rb,6.0955e+03_rb,3.0476e+03_rb,2.3031e+02_rb/)
+      kbo(:, 2,40,16) = (/ &
+     &1.4768e+04_rb,1.1076e+04_rb,7.3840e+03_rb,3.6920e+03_rb,2.8879e+02_rb/)
+      kbo(:, 3,40,16) = (/ &
+     &1.7391e+04_rb,1.3044e+04_rb,8.6959e+03_rb,4.3483e+03_rb,3.5253e+02_rb/)
+      kbo(:, 4,40,16) = (/ &
+     &2.0001e+04_rb,1.5001e+04_rb,1.0001e+04_rb,5.0007e+03_rb,4.2055e+02_rb/)
+      kbo(:, 5,40,16) = (/ &
+     &2.2559e+04_rb,1.6919e+04_rb,1.1281e+04_rb,5.6404e+03_rb,4.9160e+02_rb/)
+      kbo(:, 1,41,16) = (/ &
+     &1.1918e+04_rb,8.9381e+03_rb,5.9590e+03_rb,2.9794e+03_rb,2.1766e+02_rb/)
+      kbo(:, 2,41,16) = (/ &
+     &1.4546e+04_rb,1.0910e+04_rb,7.2239e+03_rb,3.6364e+03_rb,2.7473e+02_rb/)
+      kbo(:, 3,41,16) = (/ &
+     &1.7237e+04_rb,1.2927e+04_rb,8.6187e+03_rb,4.3092e+03_rb,3.3421e+02_rb/)
+      kbo(:, 4,41,16) = (/ &
+     &1.9925e+04_rb,1.4942e+04_rb,9.9613e+03_rb,4.9808e+03_rb,4.0468e+02_rb/)
+      kbo(:, 5,41,16) = (/ &
+     &2.2566e+04_rb,1.6925e+04_rb,1.1282e+04_rb,5.6408e+03_rb,4.7546e+02_rb/)
+      kbo(:, 1,42,16) = (/ &
+     &1.1611e+04_rb,8.7088e+03_rb,5.8053e+03_rb,2.9027e+03_rb,2.0505e+02_rb/)
+      kbo(:, 2,42,16) = (/ &
+     &1.4284e+04_rb,1.0639e+04_rb,7.1417e+03_rb,3.5709e+03_rb,2.6066e+02_rb/)
+      kbo(:, 3,42,16) = (/ &
+     &1.7038e+04_rb,1.2778e+04_rb,8.5196e+03_rb,4.2591e+03_rb,3.2228e+02_rb/)
+      kbo(:, 4,42,16) = (/ &
+     &1.9799e+04_rb,1.4850e+04_rb,9.8997e+03_rb,4.9502e+03_rb,3.8865e+02_rb/)
+      kbo(:, 5,42,16) = (/ &
+     &2.2525e+04_rb,1.6894e+04_rb,1.1262e+04_rb,5.6311e+03_rb,4.5874e+02_rb/)
+      kbo(:, 1,43,16) = (/ &
+     &1.1239e+04_rb,8.4296e+03_rb,5.6199e+03_rb,2.8098e+03_rb,1.8981e+02_rb/)
+      kbo(:, 2,43,16) = (/ &
+     &1.3966e+04_rb,1.0473e+04_rb,6.9839e+03_rb,3.4914e+03_rb,2.4348e+02_rb/)
+      kbo(:, 3,43,16) = (/ &
+     &1.6803e+04_rb,1.2602e+04_rb,8.4011e+03_rb,4.2005e+03_rb,3.0350e+02_rb/)
+      kbo(:, 4,43,16) = (/ &
+     &1.9668e+04_rb,1.4751e+04_rb,9.8339e+03_rb,4.9166e+03_rb,3.6865e+02_rb/)
+      kbo(:, 5,43,16) = (/ &
+     &2.2506e+04_rb,1.6879e+04_rb,1.1254e+04_rb,5.6261e+03_rb,4.3789e+02_rb/)
+      kbo(:, 1,44,16) = (/ &
+     &1.0825e+04_rb,8.1186e+03_rb,5.4125e+03_rb,2.7064e+03_rb,1.7391e+02_rb/)
+      kbo(:, 2,44,16) = (/ &
+     &1.3603e+04_rb,1.0202e+04_rb,6.8014e+03_rb,3.4006e+03_rb,2.2526e+02_rb/)
+      kbo(:, 3,44,16) = (/ &
+     &1.6530e+04_rb,1.2398e+04_rb,8.2649e+03_rb,4.1327e+03_rb,2.8337e+02_rb/)
+      kbo(:, 4,44,16) = (/ &
+     &1.9511e+04_rb,1.4634e+04_rb,9.7557e+03_rb,4.8778e+03_rb,3.4703e+02_rb/)
+      kbo(:, 5,44,16) = (/ &
+     &2.2482e+04_rb,1.6861e+04_rb,1.1241e+04_rb,5.6203e+03_rb,4.1512e+02_rb/)
+      kbo(:, 1,45,16) = (/ &
+     &1.0398e+04_rb,7.7989e+03_rb,5.1994e+03_rb,2.5997e+03_rb,1.5876e+02_rb/)
+      kbo(:, 2,45,16) = (/ &
+     &1.3207e+04_rb,9.9052e+03_rb,6.6032e+03_rb,3.3018e+03_rb,2.0761e+02_rb/)
+      kbo(:, 3,45,16) = (/ &
+     &1.6220e+04_rb,1.2165e+04_rb,8.1095e+03_rb,4.0543e+03_rb,2.6368e+02_rb/)
+      kbo(:, 4,45,16) = (/ &
+     &1.9318e+04_rb,1.4390e+04_rb,9.6588e+03_rb,4.8297e+03_rb,3.2574e+02_rb/)
+      kbo(:, 5,45,16) = (/ &
+     &2.2424e+04_rb,1.6818e+04_rb,1.1212e+04_rb,5.6061e+03_rb,3.9259e+02_rb/)
+      kbo(:, 1,46,16) = (/ &
+     &9.9189e+03_rb,7.4400e+03_rb,4.9600e+03_rb,2.4797e+03_rb,1.4342e+02_rb/)
+      kbo(:, 2,46,16) = (/ &
+     &1.2731e+04_rb,9.5482e+03_rb,6.3653e+03_rb,3.1826e+03_rb,1.8954e+02_rb/)
+      kbo(:, 3,46,16) = (/ &
+     &1.5820e+04_rb,1.1865e+04_rb,7.9099e+03_rb,3.9548e+03_rb,2.4324e+02_rb/)
+      kbo(:, 4,46,16) = (/ &
+     &1.9036e+04_rb,1.4277e+04_rb,9.5173e+03_rb,4.7590e+03_rb,3.0340e+02_rb/)
+      kbo(:, 5,46,16) = (/ &
+     &2.2283e+04_rb,1.6712e+04_rb,1.1068e+04_rb,5.5708e+03_rb,3.6873e+02_rb/)
+      kbo(:, 1,47,16) = (/ &
+     &9.3465e+03_rb,7.0098e+03_rb,4.6733e+03_rb,2.3366e+03_rb,1.2741e+02_rb/)
+      kbo(:, 2,47,16) = (/ &
+     &1.2131e+04_rb,9.0979e+03_rb,6.0653e+03_rb,3.0325e+03_rb,1.7033e+02_rb/)
+      kbo(:, 3,47,16) = (/ &
+     &1.5279e+04_rb,1.1459e+04_rb,7.6395e+03_rb,3.8199e+03_rb,2.2121e+02_rb/)
+      kbo(:, 4,47,16) = (/ &
+     &1.8609e+04_rb,1.3956e+04_rb,9.3042e+03_rb,4.6522e+03_rb,2.7888e+02_rb/)
+      kbo(:, 5,47,16) = (/ &
+     &2.2011e+04_rb,1.6508e+04_rb,1.1006e+04_rb,5.5025e+03_rb,3.4244e+02_rb/)
+      kbo(:, 1,48,16) = (/ &
+     &8.7925e+03_rb,6.5945e+03_rb,4.3966e+03_rb,2.1981e+03_rb,1.1262e+02_rb/)
+      kbo(:, 2,48,16) = (/ &
+     &1.1529e+04_rb,8.6468e+03_rb,5.7644e+03_rb,2.8824e+03_rb,1.5232e+02_rb/)
+      kbo(:, 3,48,16) = (/ &
+     &1.4702e+04_rb,1.1027e+04_rb,7.3513e+03_rb,3.6755e+03_rb,2.0009e+02_rb/)
+      kbo(:, 4,48,16) = (/ &
+     &1.8139e+04_rb,1.3604e+04_rb,9.0700e+03_rb,4.5350e+03_rb,2.5528e+02_rb/)
+      kbo(:, 5,48,16) = (/ &
+     &2.1696e+04_rb,1.6272e+04_rb,1.0846e+04_rb,5.4236e+03_rb,3.1666e+02_rb/)
+      kbo(:, 1,49,16) = (/ &
+     &8.2532e+03_rb,6.1899e+03_rb,4.1262e+03_rb,2.0633e+03_rb,9.9158e+01_rb/)
+      kbo(:, 2,49,16) = (/ &
+     &1.0925e+04_rb,8.1939e+03_rb,5.4625e+03_rb,2.7312e+03_rb,1.3556e+02_rb/)
+      kbo(:, 3,49,16) = (/ &
+     &1.4098e+04_rb,1.0574e+04_rb,7.0499e+03_rb,3.5250e+03_rb,1.8015e+02_rb/)
+      kbo(:, 4,49,16) = (/ &
+     &1.7628e+04_rb,1.3221e+04_rb,8.8139e+03_rb,4.4071e+03_rb,2.3258e+02_rb/)
+      kbo(:, 5,49,16) = (/ &
+     &2.1334e+04_rb,1.6000e+04_rb,1.0668e+04_rb,5.3338e+03_rb,2.8877e+02_rb/)
+      kbo(:, 1,50,16) = (/ &
+     &7.7886e+03_rb,5.8414e+03_rb,3.8943e+03_rb,1.9471e+03_rb,8.7562e+01_rb/)
+      kbo(:, 2,50,16) = (/ &
+     &1.0399e+04_rb,7.7996e+03_rb,5.1995e+03_rb,2.6000e+03_rb,1.2099e+02_rb/)
+      kbo(:, 3,50,16) = (/ &
+     &1.3554e+04_rb,1.0165e+04_rb,6.7769e+03_rb,3.3882e+03_rb,1.6257e+02_rb/)
+      kbo(:, 4,50,16) = (/ &
+     &1.7158e+04_rb,1.2869e+04_rb,8.5791e+03_rb,4.2889e+03_rb,2.1215e+02_rb/)
+      kbo(:, 5,50,16) = (/ &
+     &2.1011e+04_rb,1.5758e+04_rb,1.0505e+04_rb,5.2531e+03_rb,2.6885e+02_rb/)
+      kbo(:, 1,51,16) = (/ &
+     &7.3653e+03_rb,5.5240e+03_rb,3.6827e+03_rb,1.8412e+03_rb,7.7231e+01_rb/)
+      kbo(:, 2,51,16) = (/ &
+     &9.9189e+03_rb,7.4392e+03_rb,4.9594e+03_rb,2.4660e+03_rb,1.0798e+02_rb/)
+      kbo(:, 3,51,16) = (/ &
+     &1.3047e+04_rb,9.7852e+03_rb,6.5235e+03_rb,3.2615e+03_rb,1.4656e+02_rb/)
+      kbo(:, 4,51,16) = (/ &
+     &1.6702e+04_rb,1.2527e+04_rb,8.3510e+03_rb,4.1752e+03_rb,1.9328e+02_rb/)
+      kbo(:, 5,51,16) = (/ &
+     &2.0693e+04_rb,1.5520e+04_rb,1.0347e+04_rb,5.1734e+03_rb,2.4760e+02_rb/)
+      kbo(:, 1,52,16) = (/ &
+     &6.9562e+03_rb,5.2172e+03_rb,3.4778e+03_rb,1.7389e+03_rb,6.7762e+01_rb/)
+      kbo(:, 2,52,16) = (/ &
+     &9.4563e+03_rb,7.0922e+03_rb,4.7284e+03_rb,2.3642e+03_rb,9.6034e+01_rb/)
+      kbo(:, 3,52,16) = (/ &
+     &1.2544e+04_rb,9.4081e+03_rb,6.2721e+03_rb,3.1358e+03_rb,1.3163e+02_rb/)
+      kbo(:, 4,52,16) = (/ &
+     &1.6228e+04_rb,1.2171e+04_rb,8.1139e+03_rb,4.0563e+03_rb,1.7544e+02_rb/)
+      kbo(:, 5,52,16) = (/ &
+     &2.0214e+04_rb,1.5266e+04_rb,1.0177e+04_rb,5.0897e+03_rb,2.2714e+02_rb/)
+      kbo(:, 1,53,16) = (/ &
+     &6.5707e+03_rb,4.8896e+03_rb,3.2854e+03_rb,1.6428e+03_rb,5.9086e+01_rb/)
+      kbo(:, 2,53,16) = (/ &
+     &9.0178e+03_rb,6.7633e+03_rb,4.5088e+03_rb,2.2544e+03_rb,8.4973e+01_rb/)
+      kbo(:, 3,53,16) = (/ &
+     &1.2063e+04_rb,9.0476e+03_rb,6.0317e+03_rb,3.0159e+03_rb,1.1770e+02_rb/)
+      kbo(:, 4,53,16) = (/ &
+     &1.5755e+04_rb,1.1816e+04_rb,7.8772e+03_rb,3.9386e+03_rb,1.5858e+02_rb/)
+      kbo(:, 5,53,16) = (/ &
+     &1.9999e+04_rb,1.4999e+04_rb,9.9995e+03_rb,5.0000e+03_rb,2.0751e+02_rb/)
+      kbo(:, 1,54,16) = (/ &
+     &6.2721e+03_rb,4.7041e+03_rb,3.1362e+03_rb,1.5681e+03_rb,5.1875e+01_rb/)
+      kbo(:, 2,54,16) = (/ &
+     &8.6741e+03_rb,6.5056e+03_rb,4.3370e+03_rb,2.1682e+03_rb,7.5628e+01_rb/)
+      kbo(:, 3,54,16) = (/ &
+     &1.1700e+04_rb,8.7748e+03_rb,5.8499e+03_rb,2.9249e+03_rb,1.0596e+02_rb/)
+      kbo(:, 4,54,16) = (/ &
+     &1.5404e+04_rb,1.1553e+04_rb,7.7020e+03_rb,3.8510e+03_rb,1.4404e+02_rb/)
+      kbo(:, 5,54,16) = (/ &
+     &1.9752e+04_rb,1.4814e+04_rb,9.8758e+03_rb,4.9379e+03_rb,1.9030e+02_rb/)
+      kbo(:, 1,55,16) = (/ &
+     &6.0231e+03_rb,4.5173e+03_rb,3.0116e+03_rb,1.5058e+03_rb,4.5583e+01_rb/)
+      kbo(:, 2,55,16) = (/ &
+     &8.3823e+03_rb,6.2868e+03_rb,4.1912e+03_rb,2.0956e+03_rb,6.7362e+01_rb/)
+      kbo(:, 3,55,16) = (/ &
+     &1.1398e+04_rb,8.5488e+03_rb,5.6992e+03_rb,2.8496e+03_rb,9.5542e+01_rb/)
+      kbo(:, 4,55,16) = (/ &
+     &1.5124e+04_rb,1.1343e+04_rb,7.5617e+03_rb,3.7808e+03_rb,1.3099e+02_rb/)
+      kbo(:, 5,55,16) = (/ &
+     &1.9568e+04_rb,1.4676e+04_rb,9.7841e+03_rb,4.8920e+03_rb,1.7464e+02_rb/)
+      kbo(:, 1,56,16) = (/ &
+     &5.7989e+03_rb,4.3492e+03_rb,2.8995e+03_rb,1.4497e+03_rb,3.9828e+01_rb/)
+      kbo(:, 2,56,16) = (/ &
+     &8.1232e+03_rb,6.0924e+03_rb,4.0616e+03_rb,2.0308e+03_rb,5.9729e+01_rb/)
+      kbo(:, 3,56,16) = (/ &
+     &1.1139e+04_rb,8.3546e+03_rb,5.5697e+03_rb,2.7849e+03_rb,8.5801e+01_rb/)
+      kbo(:, 4,56,16) = (/ &
+     &1.4890e+04_rb,1.1167e+04_rb,7.4448e+03_rb,3.7224e+03_rb,1.1874e+02_rb/)
+      kbo(:, 5,56,16) = (/ &
+     &1.9429e+04_rb,1.4572e+04_rb,9.7148e+03_rb,4.8574e+03_rb,1.5988e+02_rb/)
+      kbo(:, 1,57,16) = (/ &
+     &5.6021e+03_rb,4.2016e+03_rb,2.8010e+03_rb,1.4005e+03_rb,3.4593e+01_rb/)
+      kbo(:, 2,57,16) = (/ &
+     &7.9032e+03_rb,5.9274e+03_rb,3.9516e+03_rb,1.9758e+03_rb,5.2766e+01_rb/)
+      kbo(:, 3,57,16) = (/ &
+     &1.0919e+04_rb,8.1889e+03_rb,5.4593e+03_rb,2.7295e+03_rb,7.6784e+01_rb/)
+      kbo(:, 4,57,16) = (/ &
+     &1.4709e+04_rb,1.1031e+04_rb,7.3542e+03_rb,3.6771e+03_rb,1.0741e+02_rb/)
+      kbo(:, 5,57,16) = (/ &
+     &1.9344e+04_rb,1.4508e+04_rb,9.6719e+03_rb,4.8359e+03_rb,1.4582e+02_rb/)
+      kbo(:, 1,58,16) = (/ &
+     &2.6461e+03_rb,2.2784e+03_rb,1.7829e+03_rb,1.0638e+03_rb,3.0084e+01_rb/)
+      kbo(:, 2,58,16) = (/ &
+     &3.7547e+03_rb,3.2329e+03_rb,2.5298e+03_rb,1.5309e+03_rb,4.6706e+01_rb/)
+      kbo(:, 3,58,16) = (/ &
+     &5.2182e+03_rb,4.4930e+03_rb,3.5159e+03_rb,2.1276e+03_rb,6.8855e+01_rb/)
+      kbo(:, 4,58,16) = (/ &
+     &7.0852e+03_rb,6.1006e+03_rb,4.7738e+03_rb,2.8889e+03_rb,9.7411e+01_rb/)
+      kbo(:, 5,58,16) = (/ &
+     &9.3867e+03_rb,8.0822e+03_rb,6.3244e+03_rb,3.8273e+03_rb,1.3335e+02_rb/)
+      kbo(:, 1,59,16) = (/ &
+     &2.6519e+03_rb,2.2918e+03_rb,1.8023e+03_rb,1.0985e+03_rb,2.8399e+01_rb/)
+      kbo(:, 2,59,16) = (/ &
+     &3.7709e+03_rb,3.2589e+03_rb,2.5629e+03_rb,1.5620e+03_rb,4.4429e+01_rb/)
+      kbo(:, 3,59,16) = (/ &
+     &5.2534e+03_rb,4.5401e+03_rb,3.5704e+03_rb,2.1761e+03_rb,6.5844e+01_rb/)
+      kbo(:, 4,59,16) = (/ &
+     &7.1555e+03_rb,6.1839e+03_rb,4.8632e+03_rb,2.9640e+03_rb,9.3608e+01_rb/)
+      kbo(:, 5,59,16) = (/ &
+     &9.5069e+03_rb,8.2160e+03_rb,6.4613e+03_rb,3.9381e+03_rb,1.2854e+02_rb/)
+
+!     The array KAO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level below 100~ mb.   The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.  The second index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index 
+!     runs over the g-channel (1 to 16).
+
+      kao_mn2o( 1, :, 1) = (/ &
+     & 1.28178e-05_rb, 1.55472e-05_rb, 1.88578e-05_rb, 2.28735e-05_rb, 2.77442e-05_rb, &
+     & 3.36520e-05_rb, 4.08179e-05_rb, 4.95098e-05_rb, 6.00525e-05_rb, 7.28401e-05_rb, &
+     & 8.83508e-05_rb, 1.07164e-04_rb, 1.29984e-04_rb, 1.57663e-04_rb, 1.91236e-04_rb, &
+     & 2.31958e-04_rb, 2.81352e-04_rb, 3.41263e-04_rb, 4.13932e-04_rb/)
+      kao_mn2o( 2, :, 1) = (/ &
+     & 1.00725e-01_rb, 1.04470e-01_rb, 1.08355e-01_rb, 1.12384e-01_rb, 1.16563e-01_rb, &
+     & 1.20898e-01_rb, 1.25394e-01_rb, 1.30057e-01_rb, 1.34893e-01_rb, 1.39909e-01_rb, &
+     & 1.45112e-01_rb, 1.50508e-01_rb, 1.56104e-01_rb, 1.61909e-01_rb, 1.67930e-01_rb, &
+     & 1.74175e-01_rb, 1.80652e-01_rb, 1.87369e-01_rb, 1.94337e-01_rb/)
+      kao_mn2o( 3, :, 1) = (/ &
+     & 1.94143e-01_rb, 1.97380e-01_rb, 2.00670e-01_rb, 2.04016e-01_rb, 2.07417e-01_rb, &
+     & 2.10875e-01_rb, 2.14390e-01_rb, 2.17964e-01_rb, 2.21598e-01_rb, 2.25292e-01_rb, &
+     & 2.29048e-01_rb, 2.32867e-01_rb, 2.36749e-01_rb, 2.40696e-01_rb, 2.44708e-01_rb, &
+     & 2.48788e-01_rb, 2.52936e-01_rb, 2.57152e-01_rb, 2.61439e-01_rb/)
+      kao_mn2o( 4, :, 1) = (/ &
+     & 2.98127e-01_rb, 3.00016e-01_rb, 3.01916e-01_rb, 3.03829e-01_rb, 3.05754e-01_rb, &
+     & 3.07691e-01_rb, 3.09640e-01_rb, 3.11601e-01_rb, 3.13575e-01_rb, 3.15562e-01_rb, &
+     & 3.17561e-01_rb, 3.19572e-01_rb, 3.21597e-01_rb, 3.23634e-01_rb, 3.25684e-01_rb, &
+     & 3.27748e-01_rb, 3.29824e-01_rb, 3.31913e-01_rb, 3.34016e-01_rb/)
+      kao_mn2o( 5, :, 1) = (/ &
+     & 4.45029e-01_rb, 4.45243e-01_rb, 4.45458e-01_rb, 4.45673e-01_rb, 4.45889e-01_rb, &
+     & 4.46104e-01_rb, 4.46319e-01_rb, 4.46535e-01_rb, 4.46750e-01_rb, 4.46966e-01_rb, &
+     & 4.47182e-01_rb, 4.47398e-01_rb, 4.47614e-01_rb, 4.47830e-01_rb, 4.48046e-01_rb, &
+     & 4.48262e-01_rb, 4.48479e-01_rb, 4.48695e-01_rb, 4.48912e-01_rb/)
+      kao_mn2o( 6, :, 1) = (/ &
+     & 7.15677e-01_rb, 7.14564e-01_rb, 7.13452e-01_rb, 7.12342e-01_rb, 7.11234e-01_rb, &
+     & 7.10127e-01_rb, 7.09022e-01_rb, 7.07919e-01_rb, 7.06818e-01_rb, 7.05718e-01_rb, &
+     & 7.04620e-01_rb, 7.03524e-01_rb, 7.02429e-01_rb, 7.01336e-01_rb, 7.00245e-01_rb, &
+     & 6.99156e-01_rb, 6.98068e-01_rb, 6.96982e-01_rb, 6.95898e-01_rb/)
+      kao_mn2o( 7, :, 1) = (/ &
+     & 9.89605e-01_rb, 9.85128e-01_rb, 9.80671e-01_rb, 9.76234e-01_rb, 9.71817e-01_rb, &
+     & 9.67421e-01_rb, 9.63044e-01_rb, 9.58687e-01_rb, 9.54350e-01_rb, 9.50032e-01_rb, &
+     & 9.45734e-01_rb, 9.41455e-01_rb, 9.37196e-01_rb, 9.32956e-01_rb, 9.28735e-01_rb, &
+     & 9.24533e-01_rb, 9.20350e-01_rb, 9.16187e-01_rb, 9.12042e-01_rb/)
+      kao_mn2o( 8, :, 1) = (/ &
+     & 1.12229e+00_rb, 1.11502e+00_rb, 1.10779e+00_rb, 1.10061e+00_rb, 1.09348e+00_rb, &
+     & 1.08639e+00_rb, 1.07935e+00_rb, 1.07235e+00_rb, 1.06540e+00_rb, 1.05850e+00_rb, &
+     & 1.05164e+00_rb, 1.04482e+00_rb, 1.03805e+00_rb, 1.03132e+00_rb, 1.02464e+00_rb, &
+     & 1.01799e+00_rb, 1.01140e+00_rb, 1.00484e+00_rb, 9.98328e-01_rb/)
+      kao_mn2o( 9, :, 1) = (/ &
+     & 7.20959e-01_rb, 7.22839e-01_rb, 7.24723e-01_rb, 7.26612e-01_rb, 7.28506e-01_rb, &
+     & 7.30405e-01_rb, 7.32309e-01_rb, 7.34218e-01_rb, 7.36132e-01_rb, 7.38051e-01_rb, &
+     & 7.39975e-01_rb, 7.41904e-01_rb, 7.43838e-01_rb, 7.45777e-01_rb, 7.47721e-01_rb, &
+     & 7.49670e-01_rb, 7.51624e-01_rb, 7.53584e-01_rb, 7.55548e-01_rb/)
+      kao_mn2o( 1, :, 2) = (/ &
+     & 1.62152e-03_rb, 1.81627e-03_rb, 2.03443e-03_rb, 2.27878e-03_rb, 2.55248e-03_rb, &
+     & 2.85906e-03_rb, 3.20245e-03_rb, 3.58710e-03_rb, 4.01794e-03_rb, 4.50053e-03_rb, &
+     & 5.04109e-03_rb, 5.64657e-03_rb, 6.32477e-03_rb, 7.08444e-03_rb, 7.93534e-03_rb, &
+     & 8.88845e-03_rb, 9.95603e-03_rb, 1.11518e-02_rb, 1.24913e-02_rb/)
+      kao_mn2o( 2, :, 2) = (/ &
+     & 3.73716e-01_rb, 3.72491e-01_rb, 3.71271e-01_rb, 3.70054e-01_rb, 3.68841e-01_rb, &
+     & 3.67633e-01_rb, 3.66428e-01_rb, 3.65227e-01_rb, 3.64031e-01_rb, 3.62838e-01_rb, &
+     & 3.61649e-01_rb, 3.60464e-01_rb, 3.59283e-01_rb, 3.58106e-01_rb, 3.56932e-01_rb, &
+     & 3.55763e-01_rb, 3.54597e-01_rb, 3.53435e-01_rb, 3.52277e-01_rb/)
+      kao_mn2o( 3, :, 2) = (/ &
+     & 5.46240e-01_rb, 5.42972e-01_rb, 5.39724e-01_rb, 5.36495e-01_rb, 5.33285e-01_rb, &
+     & 5.30095e-01_rb, 5.26923e-01_rb, 5.23771e-01_rb, 5.20637e-01_rb, 5.17523e-01_rb, &
+     & 5.14426e-01_rb, 5.11349e-01_rb, 5.08290e-01_rb, 5.05249e-01_rb, 5.02226e-01_rb, &
+     & 4.99221e-01_rb, 4.96235e-01_rb, 4.93266e-01_rb, 4.90315e-01_rb/)
+      kao_mn2o( 4, :, 2) = (/ &
+     & 8.35399e-01_rb, 8.36766e-01_rb, 8.38135e-01_rb, 8.39507e-01_rb, 8.40880e-01_rb, &
+     & 8.42256e-01_rb, 8.43635e-01_rb, 8.45015e-01_rb, 8.46398e-01_rb, 8.47783e-01_rb, &
+     & 8.49170e-01_rb, 8.50559e-01_rb, 8.51951e-01_rb, 8.53345e-01_rb, 8.54742e-01_rb, &
+     & 8.56140e-01_rb, 8.57541e-01_rb, 8.58944e-01_rb, 8.60350e-01_rb/)
+      kao_mn2o( 5, :, 2) = (/ &
+     & 1.04433e+00_rb, 1.04864e+00_rb, 1.05297e+00_rb, 1.05731e+00_rb, 1.06168e+00_rb, &
+     & 1.06606e+00_rb, 1.07046e+00_rb, 1.07488e+00_rb, 1.07932e+00_rb, 1.08377e+00_rb, &
+     & 1.08824e+00_rb, 1.09274e+00_rb, 1.09725e+00_rb, 1.10178e+00_rb, 1.10632e+00_rb, &
+     & 1.11089e+00_rb, 1.11547e+00_rb, 1.12008e+00_rb, 1.12470e+00_rb/)
+      kao_mn2o( 6, :, 2) = (/ &
+     & 1.22341e+00_rb, 1.22885e+00_rb, 1.23431e+00_rb, 1.23980e+00_rb, 1.24531e+00_rb, &
+     & 1.25084e+00_rb, 1.25640e+00_rb, 1.26199e+00_rb, 1.26760e+00_rb, 1.27323e+00_rb, &
+     & 1.27889e+00_rb, 1.28458e+00_rb, 1.29029e+00_rb, 1.29602e+00_rb, 1.30178e+00_rb, &
+     & 1.30757e+00_rb, 1.31338e+00_rb, 1.31922e+00_rb, 1.32508e+00_rb/)
+      kao_mn2o( 7, :, 2) = (/ &
+     & 1.67595e+00_rb, 1.68296e+00_rb, 1.69000e+00_rb, 1.69707e+00_rb, 1.70417e+00_rb, &
+     & 1.71130e+00_rb, 1.71846e+00_rb, 1.72565e+00_rb, 1.73287e+00_rb, 1.74012e+00_rb, &
+     & 1.74740e+00_rb, 1.75471e+00_rb, 1.76206e+00_rb, 1.76943e+00_rb, 1.77683e+00_rb, &
+     & 1.78426e+00_rb, 1.79173e+00_rb, 1.79922e+00_rb, 1.80675e+00_rb/)
+      kao_mn2o( 8, :, 2) = (/ &
+     & 2.76890e+00_rb, 2.76981e+00_rb, 2.77072e+00_rb, 2.77163e+00_rb, 2.77254e+00_rb, &
+     & 2.77345e+00_rb, 2.77436e+00_rb, 2.77527e+00_rb, 2.77618e+00_rb, 2.77709e+00_rb, &
+     & 2.77800e+00_rb, 2.77891e+00_rb, 2.77982e+00_rb, 2.78074e+00_rb, 2.78165e+00_rb, &
+     & 2.78256e+00_rb, 2.78348e+00_rb, 2.78439e+00_rb, 2.78530e+00_rb/)
+      kao_mn2o( 9, :, 2) = (/ &
+     & 8.00944e-01_rb, 7.95531e-01_rb, 7.90155e-01_rb, 7.84815e-01_rb, 7.79511e-01_rb, &
+     & 7.74243e-01_rb, 7.69011e-01_rb, 7.63813e-01_rb, 7.58652e-01_rb, 7.53525e-01_rb, &
+     & 7.48432e-01_rb, 7.43374e-01_rb, 7.38350e-01_rb, 7.33360e-01_rb, 7.28404e-01_rb, &
+     & 7.23482e-01_rb, 7.18592e-01_rb, 7.13736e-01_rb, 7.08912e-01_rb/)
+      kao_mn2o( 1, :, 3) = (/ &
+     & 5.26578e-02_rb, 5.59000e-02_rb, 5.93419e-02_rb, 6.29957e-02_rb, 6.68744e-02_rb, &
+     & 7.09920e-02_rb, 7.53631e-02_rb, 8.00034e-02_rb, 8.49294e-02_rb, 9.01586e-02_rb, &
+     & 9.57099e-02_rb, 1.01603e-01_rb, 1.07859e-01_rb, 1.14500e-01_rb, 1.21550e-01_rb, &
+     & 1.29034e-01_rb, 1.36979e-01_rb, 1.45413e-01_rb, 1.54366e-01_rb/)
+      kao_mn2o( 2, :, 3) = (/ &
+     & 8.18393e-01_rb, 8.20623e-01_rb, 8.22860e-01_rb, 8.25103e-01_rb, 8.27352e-01_rb, &
+     & 8.29608e-01_rb, 8.31869e-01_rb, 8.34137e-01_rb, 8.36410e-01_rb, 8.38690e-01_rb, &
+     & 8.40976e-01_rb, 8.43269e-01_rb, 8.45567e-01_rb, 8.47872e-01_rb, 8.50183e-01_rb, &
+     & 8.52501e-01_rb, 8.54825e-01_rb, 8.57155e-01_rb, 8.59491e-01_rb/)
+      kao_mn2o( 3, :, 3) = (/ &
+     & 1.02454e+00_rb, 1.03210e+00_rb, 1.03972e+00_rb, 1.04740e+00_rb, 1.05514e+00_rb, &
+     & 1.06293e+00_rb, 1.07077e+00_rb, 1.07868e+00_rb, 1.08665e+00_rb, 1.09467e+00_rb, &
+     & 1.10275e+00_rb, 1.11089e+00_rb, 1.11910e+00_rb, 1.12736e+00_rb, 1.13568e+00_rb, &
+     & 1.14407e+00_rb, 1.15252e+00_rb, 1.16103e+00_rb, 1.16960e+00_rb/)
+      kao_mn2o( 4, :, 3) = (/ &
+     & 1.11755e+00_rb, 1.12348e+00_rb, 1.12944e+00_rb, 1.13543e+00_rb, 1.14146e+00_rb, &
+     & 1.14752e+00_rb, 1.15360e+00_rb, 1.15972e+00_rb, 1.16588e+00_rb, 1.17206e+00_rb, &
+     & 1.17828e+00_rb, 1.18453e+00_rb, 1.19082e+00_rb, 1.19714e+00_rb, 1.20349e+00_rb, &
+     & 1.20988e+00_rb, 1.21630e+00_rb, 1.22275e+00_rb, 1.22924e+00_rb/)
+      kao_mn2o( 5, :, 3) = (/ &
+     & 1.41993e+00_rb, 1.42353e+00_rb, 1.42713e+00_rb, 1.43074e+00_rb, 1.43436e+00_rb, &
+     & 1.43799e+00_rb, 1.44163e+00_rb, 1.44528e+00_rb, 1.44894e+00_rb, 1.45261e+00_rb, &
+     & 1.45628e+00_rb, 1.45997e+00_rb, 1.46367e+00_rb, 1.46737e+00_rb, 1.47108e+00_rb, &
+     & 1.47481e+00_rb, 1.47854e+00_rb, 1.48228e+00_rb, 1.48603e+00_rb/)
+      kao_mn2o( 6, :, 3) = (/ &
+     & 1.37725e+00_rb, 1.38029e+00_rb, 1.38334e+00_rb, 1.38640e+00_rb, 1.38947e+00_rb, &
+     & 1.39254e+00_rb, 1.39562e+00_rb, 1.39870e+00_rb, 1.40179e+00_rb, 1.40489e+00_rb, &
+     & 1.40800e+00_rb, 1.41111e+00_rb, 1.41423e+00_rb, 1.41736e+00_rb, 1.42049e+00_rb, &
+     & 1.42363e+00_rb, 1.42678e+00_rb, 1.42993e+00_rb, 1.43309e+00_rb/)
+      kao_mn2o( 7, :, 3) = (/ &
+     & 1.34579e+00_rb, 1.34584e+00_rb, 1.34589e+00_rb, 1.34594e+00_rb, 1.34599e+00_rb, &
+     & 1.34603e+00_rb, 1.34608e+00_rb, 1.34613e+00_rb, 1.34618e+00_rb, 1.34623e+00_rb, &
+     & 1.34627e+00_rb, 1.34632e+00_rb, 1.34637e+00_rb, 1.34642e+00_rb, 1.34647e+00_rb, &
+     & 1.34651e+00_rb, 1.34656e+00_rb, 1.34661e+00_rb, 1.34666e+00_rb/)
+      kao_mn2o( 8, :, 3) = (/ &
+     & 9.15268e-01_rb, 9.12779e-01_rb, 9.10298e-01_rb, 9.07823e-01_rb, 9.05355e-01_rb, &
+     & 9.02893e-01_rb, 9.00438e-01_rb, 8.97990e-01_rb, 8.95549e-01_rb, 8.93114e-01_rb, &
+     & 8.90686e-01_rb, 8.88264e-01_rb, 8.85849e-01_rb, 8.83441e-01_rb, 8.81039e-01_rb, &
+     & 8.78644e-01_rb, 8.76255e-01_rb, 8.73873e-01_rb, 8.71497e-01_rb/)
+      kao_mn2o( 9, :, 3) = (/ &
+     & 1.12514e+00_rb, 1.13523e+00_rb, 1.14541e+00_rb, 1.15568e+00_rb, 1.16604e+00_rb, &
+     & 1.17649e+00_rb, 1.18704e+00_rb, 1.19768e+00_rb, 1.20841e+00_rb, 1.21925e+00_rb, &
+     & 1.23018e+00_rb, 1.24121e+00_rb, 1.25233e+00_rb, 1.26356e+00_rb, 1.27489e+00_rb, &
+     & 1.28632e+00_rb, 1.29785e+00_rb, 1.30948e+00_rb, 1.32122e+00_rb/)
+      kao_mn2o( 1, :, 4) = (/ &
+     & 4.65135e-01_rb, 4.69677e-01_rb, 4.74264e-01_rb, 4.78895e-01_rb, 4.83572e-01_rb, &
+     & 4.88294e-01_rb, 4.93063e-01_rb, 4.97878e-01_rb, 5.02740e-01_rb, 5.07649e-01_rb, &
+     & 5.12607e-01_rb, 5.17613e-01_rb, 5.22667e-01_rb, 5.27771e-01_rb, 5.32925e-01_rb, &
+     & 5.38130e-01_rb, 5.43385e-01_rb, 5.48691e-01_rb, 5.54049e-01_rb/)
+      kao_mn2o( 2, :, 4) = (/ &
+     & 9.71592e-01_rb, 9.74472e-01_rb, 9.77360e-01_rb, 9.80257e-01_rb, 9.83163e-01_rb, &
+     & 9.86077e-01_rb, 9.89000e-01_rb, 9.91931e-01_rb, 9.94871e-01_rb, 9.97820e-01_rb, &
+     & 1.00078e+00_rb, 1.00374e+00_rb, 1.00672e+00_rb, 1.00970e+00_rb, 1.01270e+00_rb, &
+     & 1.01570e+00_rb, 1.01871e+00_rb, 1.02173e+00_rb, 1.02476e+00_rb/)
+      kao_mn2o( 3, :, 4) = (/ &
+     & 1.48090e+00_rb, 1.48238e+00_rb, 1.48385e+00_rb, 1.48532e+00_rb, 1.48680e+00_rb, &
+     & 1.48828e+00_rb, 1.48976e+00_rb, 1.49124e+00_rb, 1.49272e+00_rb, 1.49420e+00_rb, &
+     & 1.49569e+00_rb, 1.49717e+00_rb, 1.49866e+00_rb, 1.50015e+00_rb, 1.50164e+00_rb, &
+     & 1.50313e+00_rb, 1.50463e+00_rb, 1.50612e+00_rb, 1.50762e+00_rb/)
+      kao_mn2o( 4, :, 4) = (/ &
+     & 1.50599e+00_rb, 1.50541e+00_rb, 1.50483e+00_rb, 1.50426e+00_rb, 1.50368e+00_rb, &
+     & 1.50310e+00_rb, 1.50252e+00_rb, 1.50195e+00_rb, 1.50137e+00_rb, 1.50079e+00_rb, &
+     & 1.50022e+00_rb, 1.49964e+00_rb, 1.49906e+00_rb, 1.49849e+00_rb, 1.49791e+00_rb, &
+     & 1.49734e+00_rb, 1.49676e+00_rb, 1.49619e+00_rb, 1.49561e+00_rb/)
+      kao_mn2o( 5, :, 4) = (/ &
+     & 1.25396e+00_rb, 1.25230e+00_rb, 1.25065e+00_rb, 1.24900e+00_rb, 1.24735e+00_rb, &
+     & 1.24570e+00_rb, 1.24405e+00_rb, 1.24241e+00_rb, 1.24077e+00_rb, 1.23913e+00_rb, &
+     & 1.23749e+00_rb, 1.23586e+00_rb, 1.23423e+00_rb, 1.23260e+00_rb, 1.23097e+00_rb, &
+     & 1.22934e+00_rb, 1.22772e+00_rb, 1.22610e+00_rb, 1.22448e+00_rb/)
+      kao_mn2o( 6, :, 4) = (/ &
+     & 1.27104e+00_rb, 1.26416e+00_rb, 1.25731e+00_rb, 1.25050e+00_rb, 1.24373e+00_rb, &
+     & 1.23700e+00_rb, 1.23030e+00_rb, 1.22364e+00_rb, 1.21701e+00_rb, 1.21043e+00_rb, &
+     & 1.20387e+00_rb, 1.19735e+00_rb, 1.19087e+00_rb, 1.18442e+00_rb, 1.17801e+00_rb, &
+     & 1.17163e+00_rb, 1.16529e+00_rb, 1.15898e+00_rb, 1.15270e+00_rb/)
+      kao_mn2o( 7, :, 4) = (/ &
+     & 9.57877e-01_rb, 9.49712e-01_rb, 9.41617e-01_rb, 9.33591e-01_rb, 9.25633e-01_rb, &
+     & 9.17743e-01_rb, 9.09920e-01_rb, 9.02164e-01_rb, 8.94473e-01_rb, 8.86849e-01_rb, &
+     & 8.79289e-01_rb, 8.71794e-01_rb, 8.64363e-01_rb, 8.56995e-01_rb, 8.49690e-01_rb, &
+     & 8.42447e-01_rb, 8.35266e-01_rb, 8.28147e-01_rb, 8.21087e-01_rb/)
+      kao_mn2o( 8, :, 4) = (/ &
+     & 4.75787e-01_rb, 4.77208e-01_rb, 4.78633e-01_rb, 4.80063e-01_rb, 4.81496e-01_rb, &
+     & 4.82934e-01_rb, 4.84377e-01_rb, 4.85823e-01_rb, 4.87274e-01_rb, 4.88730e-01_rb, &
+     & 4.90189e-01_rb, 4.91653e-01_rb, 4.93122e-01_rb, 4.94595e-01_rb, 4.96072e-01_rb, &
+     & 4.97553e-01_rb, 4.99039e-01_rb, 5.00530e-01_rb, 5.02025e-01_rb/)
+      kao_mn2o( 9, :, 4) = (/ &
+     & 2.42533e+00_rb, 2.41357e+00_rb, 2.40188e+00_rb, 2.39024e+00_rb, 2.37866e+00_rb, &
+     & 2.36713e+00_rb, 2.35566e+00_rb, 2.34425e+00_rb, 2.33289e+00_rb, 2.32158e+00_rb, &
+     & 2.31033e+00_rb, 2.29914e+00_rb, 2.28800e+00_rb, 2.27691e+00_rb, 2.26588e+00_rb, &
+     & 2.25490e+00_rb, 2.24397e+00_rb, 2.23310e+00_rb, 2.22228e+00_rb/)
+      kao_mn2o( 1, :, 5) = (/ &
+     & 1.53885e+00_rb, 1.53590e+00_rb, 1.53297e+00_rb, 1.53004e+00_rb, 1.52711e+00_rb, &
+     & 1.52419e+00_rb, 1.52128e+00_rb, 1.51837e+00_rb, 1.51547e+00_rb, 1.51257e+00_rb, &
+     & 1.50968e+00_rb, 1.50679e+00_rb, 1.50391e+00_rb, 1.50104e+00_rb, 1.49817e+00_rb, &
+     & 1.49530e+00_rb, 1.49245e+00_rb, 1.48959e+00_rb, 1.48675e+00_rb/)
+      kao_mn2o( 2, :, 5) = (/ &
+     & 1.83368e+00_rb, 1.83530e+00_rb, 1.83692e+00_rb, 1.83854e+00_rb, 1.84016e+00_rb, &
+     & 1.84178e+00_rb, 1.84340e+00_rb, 1.84503e+00_rb, 1.84665e+00_rb, 1.84828e+00_rb, &
+     & 1.84991e+00_rb, 1.85154e+00_rb, 1.85317e+00_rb, 1.85480e+00_rb, 1.85644e+00_rb, &
+     & 1.85807e+00_rb, 1.85971e+00_rb, 1.86135e+00_rb, 1.86299e+00_rb/)
+      kao_mn2o( 3, :, 5) = (/ &
+     & 1.49593e+00_rb, 1.49279e+00_rb, 1.48965e+00_rb, 1.48652e+00_rb, 1.48340e+00_rb, &
+     & 1.48028e+00_rb, 1.47717e+00_rb, 1.47406e+00_rb, 1.47096e+00_rb, 1.46787e+00_rb, &
+     & 1.46479e+00_rb, 1.46171e+00_rb, 1.45863e+00_rb, 1.45557e+00_rb, 1.45251e+00_rb, &
+     & 1.44946e+00_rb, 1.44641e+00_rb, 1.44337e+00_rb, 1.44033e+00_rb/)
+      kao_mn2o( 4, :, 5) = (/ &
+     & 1.40048e+00_rb, 1.39228e+00_rb, 1.38413e+00_rb, 1.37603e+00_rb, 1.36798e+00_rb, &
+     & 1.35997e+00_rb, 1.35201e+00_rb, 1.34410e+00_rb, 1.33623e+00_rb, 1.32841e+00_rb, &
+     & 1.32064e+00_rb, 1.31291e+00_rb, 1.30522e+00_rb, 1.29758e+00_rb, 1.28999e+00_rb, &
+     & 1.28244e+00_rb, 1.27493e+00_rb, 1.26747e+00_rb, 1.26005e+00_rb/)
+      kao_mn2o( 5, :, 5) = (/ &
+     & 1.22253e+00_rb, 1.21202e+00_rb, 1.20160e+00_rb, 1.19126e+00_rb, 1.18102e+00_rb, &
+     & 1.17087e+00_rb, 1.16080e+00_rb, 1.15082e+00_rb, 1.14092e+00_rb, 1.13111e+00_rb, &
+     & 1.12139e+00_rb, 1.11174e+00_rb, 1.10219e+00_rb, 1.09271e+00_rb, 1.08331e+00_rb, &
+     & 1.07400e+00_rb, 1.06476e+00_rb, 1.05561e+00_rb, 1.04653e+00_rb/)
+      kao_mn2o( 6, :, 5) = (/ &
+     & 1.07930e+00_rb, 1.06998e+00_rb, 1.06075e+00_rb, 1.05159e+00_rb, 1.04251e+00_rb, &
+     & 1.03352e+00_rb, 1.02459e+00_rb, 1.01575e+00_rb, 1.00698e+00_rb, 9.98291e-01_rb, &
+     & 9.89674e-01_rb, 9.81131e-01_rb, 9.72663e-01_rb, 9.64267e-01_rb, 9.55944e-01_rb, &
+     & 9.47692e-01_rb, 9.39512e-01_rb, 9.31402e-01_rb, 9.23363e-01_rb/)
+      kao_mn2o( 7, :, 5) = (/ &
+     & 7.87066e-01_rb, 7.82767e-01_rb, 7.78490e-01_rb, 7.74237e-01_rb, 7.70008e-01_rb, &
+     & 7.65801e-01_rb, 7.61617e-01_rb, 7.57457e-01_rb, 7.53319e-01_rb, 7.49203e-01_rb, &
+     & 7.45110e-01_rb, 7.41040e-01_rb, 7.36991e-01_rb, 7.32965e-01_rb, 7.28961e-01_rb, &
+     & 7.24979e-01_rb, 7.21018e-01_rb, 7.17079e-01_rb, 7.13161e-01_rb/)
+      kao_mn2o( 8, :, 5) = (/ &
+     & 3.83362e-01_rb, 3.84405e-01_rb, 3.85452e-01_rb, 3.86501e-01_rb, 3.87552e-01_rb, &
+     & 3.88607e-01_rb, 3.89665e-01_rb, 3.90725e-01_rb, 3.91788e-01_rb, 3.92855e-01_rb, &
+     & 3.93924e-01_rb, 3.94996e-01_rb, 3.96071e-01_rb, 3.97149e-01_rb, 3.98229e-01_rb, &
+     & 3.99313e-01_rb, 4.00400e-01_rb, 4.01489e-01_rb, 4.02582e-01_rb/)
+      kao_mn2o( 9, :, 5) = (/ &
+     & 8.97278e-01_rb, 8.92873e-01_rb, 8.88490e-01_rb, 8.84128e-01_rb, 8.79787e-01_rb, &
+     & 8.75468e-01_rb, 8.71170e-01_rb, 8.66893e-01_rb, 8.62637e-01_rb, 8.58402e-01_rb, &
+     & 8.54187e-01_rb, 8.49994e-01_rb, 8.45821e-01_rb, 8.41668e-01_rb, 8.37536e-01_rb, &
+     & 8.33424e-01_rb, 8.29333e-01_rb, 8.25261e-01_rb, 8.21209e-01_rb/)
+      kao_mn2o( 1, :, 6) = (/ &
+     & 1.83809e+00_rb, 1.84036e+00_rb, 1.84264e+00_rb, 1.84491e+00_rb, 1.84720e+00_rb, &
+     & 1.84948e+00_rb, 1.85177e+00_rb, 1.85406e+00_rb, 1.85635e+00_rb, 1.85864e+00_rb, &
+     & 1.86094e+00_rb, 1.86324e+00_rb, 1.86555e+00_rb, 1.86785e+00_rb, 1.87016e+00_rb, &
+     & 1.87247e+00_rb, 1.87479e+00_rb, 1.87711e+00_rb, 1.87943e+00_rb/)
+      kao_mn2o( 2, :, 6) = (/ &
+     & 1.82624e+00_rb, 1.81564e+00_rb, 1.80510e+00_rb, 1.79463e+00_rb, 1.78421e+00_rb, &
+     & 1.77386e+00_rb, 1.76356e+00_rb, 1.75333e+00_rb, 1.74315e+00_rb, 1.73304e+00_rb, &
+     & 1.72298e+00_rb, 1.71298e+00_rb, 1.70304e+00_rb, 1.69316e+00_rb, 1.68333e+00_rb, &
+     & 1.67356e+00_rb, 1.66385e+00_rb, 1.65419e+00_rb, 1.64459e+00_rb/)
+      kao_mn2o( 3, :, 6) = (/ &
+     & 1.35442e+00_rb, 1.34174e+00_rb, 1.32918e+00_rb, 1.31673e+00_rb, 1.30440e+00_rb, &
+     & 1.29219e+00_rb, 1.28010e+00_rb, 1.26811e+00_rb, 1.25624e+00_rb, 1.24448e+00_rb, &
+     & 1.23283e+00_rb, 1.22129e+00_rb, 1.20985e+00_rb, 1.19853e+00_rb, 1.18731e+00_rb, &
+     & 1.17619e+00_rb, 1.16518e+00_rb, 1.15427e+00_rb, 1.14347e+00_rb/)
+      kao_mn2o( 4, :, 6) = (/ &
+     & 1.10510e+00_rb, 1.09473e+00_rb, 1.08446e+00_rb, 1.07429e+00_rb, 1.06420e+00_rb, &
+     & 1.05422e+00_rb, 1.04433e+00_rb, 1.03453e+00_rb, 1.02482e+00_rb, 1.01520e+00_rb, &
+     & 1.00568e+00_rb, 9.96238e-01_rb, 9.86890e-01_rb, 9.77629e-01_rb, 9.68455e-01_rb, &
+     & 9.59367e-01_rb, 9.50365e-01_rb, 9.41447e-01_rb, 9.32612e-01_rb/)
+      kao_mn2o( 5, :, 6) = (/ &
+     & 1.01083e+00_rb, 1.00221e+00_rb, 9.93656e-01_rb, 9.85178e-01_rb, 9.76772e-01_rb, &
+     & 9.68437e-01_rb, 9.60174e-01_rb, 9.51981e-01_rb, 9.43859e-01_rb, 9.35805e-01_rb, &
+     & 9.27821e-01_rb, 9.19904e-01_rb, 9.12055e-01_rb, 9.04273e-01_rb, 8.96557e-01_rb, &
+     & 8.88907e-01_rb, 8.81323e-01_rb, 8.73803e-01_rb, 8.66347e-01_rb/)
+      kao_mn2o( 6, :, 6) = (/ &
+     & 5.91415e-01_rb, 5.90427e-01_rb, 5.89441e-01_rb, 5.88457e-01_rb, 5.87474e-01_rb, &
+     & 5.86493e-01_rb, 5.85514e-01_rb, 5.84536e-01_rb, 5.83559e-01_rb, 5.82585e-01_rb, &
+     & 5.81612e-01_rb, 5.80640e-01_rb, 5.79671e-01_rb, 5.78703e-01_rb, 5.77736e-01_rb, &
+     & 5.76771e-01_rb, 5.75808e-01_rb, 5.74846e-01_rb, 5.73886e-01_rb/)
+      kao_mn2o( 7, :, 6) = (/ &
+     & 3.68189e-01_rb, 3.70029e-01_rb, 3.71877e-01_rb, 3.73735e-01_rb, 3.75603e-01_rb, &
+     & 3.77479e-01_rb, 3.79365e-01_rb, 3.81260e-01_rb, 3.83165e-01_rb, 3.85079e-01_rb, &
+     & 3.87003e-01_rb, 3.88937e-01_rb, 3.90880e-01_rb, 3.92833e-01_rb, 3.94795e-01_rb, &
+     & 3.96768e-01_rb, 3.98750e-01_rb, 4.00742e-01_rb, 4.02744e-01_rb/)
+      kao_mn2o( 8, :, 6) = (/ &
+     & 2.98721e-01_rb, 2.99932e-01_rb, 3.01149e-01_rb, 3.02370e-01_rb, 3.03597e-01_rb, &
+     & 3.04828e-01_rb, 3.06064e-01_rb, 3.07306e-01_rb, 3.08552e-01_rb, 3.09804e-01_rb, &
+     & 3.11060e-01_rb, 3.12322e-01_rb, 3.13589e-01_rb, 3.14860e-01_rb, 3.16138e-01_rb, &
+     & 3.17420e-01_rb, 3.18707e-01_rb, 3.20000e-01_rb, 3.21298e-01_rb/)
+      kao_mn2o( 9, :, 6) = (/ &
+     & 3.76116e-01_rb, 3.77276e-01_rb, 3.78439e-01_rb, 3.79606e-01_rb, 3.80777e-01_rb, &
+     & 3.81951e-01_rb, 3.83129e-01_rb, 3.84310e-01_rb, 3.85495e-01_rb, 3.86684e-01_rb, &
+     & 3.87876e-01_rb, 3.89072e-01_rb, 3.90272e-01_rb, 3.91475e-01_rb, 3.92682e-01_rb, &
+     & 3.93893e-01_rb, 3.95107e-01_rb, 3.96326e-01_rb, 3.97548e-01_rb/)
+      kao_mn2o( 1, :, 7) = (/ &
+     & 3.22705e+00_rb, 3.21966e+00_rb, 3.21230e+00_rb, 3.20494e+00_rb, 3.19761e+00_rb, &
+     & 3.19029e+00_rb, 3.18299e+00_rb, 3.17571e+00_rb, 3.16844e+00_rb, 3.16119e+00_rb, &
+     & 3.15395e+00_rb, 3.14673e+00_rb, 3.13953e+00_rb, 3.13235e+00_rb, 3.12518e+00_rb, &
+     & 3.11803e+00_rb, 3.11089e+00_rb, 3.10377e+00_rb, 3.09667e+00_rb/)
+      kao_mn2o( 2, :, 7) = (/ &
+     & 1.43811e+00_rb, 1.42367e+00_rb, 1.40938e+00_rb, 1.39522e+00_rb, 1.38121e+00_rb, &
+     & 1.36735e+00_rb, 1.35362e+00_rb, 1.34002e+00_rb, 1.32657e+00_rb, 1.31325e+00_rb, &
+     & 1.30006e+00_rb, 1.28701e+00_rb, 1.27408e+00_rb, 1.26129e+00_rb, 1.24862e+00_rb, &
+     & 1.23609e+00_rb, 1.22367e+00_rb, 1.21139e+00_rb, 1.19922e+00_rb/)
+      kao_mn2o( 3, :, 7) = (/ &
+     & 1.22586e+00_rb, 1.21639e+00_rb, 1.20700e+00_rb, 1.19767e+00_rb, 1.18842e+00_rb, &
+     & 1.17924e+00_rb, 1.17014e+00_rb, 1.16110e+00_rb, 1.15213e+00_rb, 1.14323e+00_rb, &
+     & 1.13440e+00_rb, 1.12564e+00_rb, 1.11695e+00_rb, 1.10832e+00_rb, 1.09976e+00_rb, &
+     & 1.09127e+00_rb, 1.08284e+00_rb, 1.07447e+00_rb, 1.06618e+00_rb/)
+      kao_mn2o( 4, :, 7) = (/ &
+     & 7.94380e-01_rb, 7.92795e-01_rb, 7.91213e-01_rb, 7.89634e-01_rb, 7.88059e-01_rb, &
+     & 7.86486e-01_rb, 7.84917e-01_rb, 7.83351e-01_rb, 7.81787e-01_rb, 7.80227e-01_rb, &
+     & 7.78671e-01_rb, 7.77117e-01_rb, 7.75566e-01_rb, 7.74019e-01_rb, 7.72474e-01_rb, &
+     & 7.70933e-01_rb, 7.69394e-01_rb, 7.67859e-01_rb, 7.66327e-01_rb/)
+      kao_mn2o( 5, :, 7) = (/ &
+     & 4.46935e-01_rb, 4.49760e-01_rb, 4.52602e-01_rb, 4.55462e-01_rb, 4.58340e-01_rb, &
+     & 4.61237e-01_rb, 4.64152e-01_rb, 4.67085e-01_rb, 4.70037e-01_rb, 4.73007e-01_rb, &
+     & 4.75996e-01_rb, 4.79004e-01_rb, 4.82031e-01_rb, 4.85078e-01_rb, 4.88143e-01_rb, &
+     & 4.91228e-01_rb, 4.94332e-01_rb, 4.97456e-01_rb, 5.00600e-01_rb/)
+      kao_mn2o( 6, :, 7) = (/ &
+     & 4.20211e-01_rb, 4.21711e-01_rb, 4.23216e-01_rb, 4.24726e-01_rb, 4.26242e-01_rb, &
+     & 4.27763e-01_rb, 4.29290e-01_rb, 4.30822e-01_rb, 4.32359e-01_rb, 4.33902e-01_rb, &
+     & 4.35450e-01_rb, 4.37004e-01_rb, 4.38564e-01_rb, 4.40129e-01_rb, 4.41700e-01_rb, &
+     & 4.43276e-01_rb, 4.44858e-01_rb, 4.46445e-01_rb, 4.48038e-01_rb/)
+      kao_mn2o( 7, :, 7) = (/ &
+     & 3.42094e-01_rb, 3.43589e-01_rb, 3.45091e-01_rb, 3.46600e-01_rb, 3.48115e-01_rb, &
+     & 3.49637e-01_rb, 3.51165e-01_rb, 3.52700e-01_rb, 3.54242e-01_rb, 3.55791e-01_rb, &
+     & 3.57346e-01_rb, 3.58908e-01_rb, 3.60477e-01_rb, 3.62053e-01_rb, 3.63636e-01_rb, &
+     & 3.65225e-01_rb, 3.66822e-01_rb, 3.68426e-01_rb, 3.70036e-01_rb/)
+      kao_mn2o( 8, :, 7) = (/ &
+     & 2.94919e-01_rb, 2.97460e-01_rb, 3.00022e-01_rb, 3.02606e-01_rb, 3.05212e-01_rb, &
+     & 3.07841e-01_rb, 3.10492e-01_rb, 3.13167e-01_rb, 3.15864e-01_rb, 3.18584e-01_rb, &
+     & 3.21328e-01_rb, 3.24096e-01_rb, 3.26887e-01_rb, 3.29703e-01_rb, 3.32543e-01_rb, &
+     & 3.35407e-01_rb, 3.38296e-01_rb, 3.41210e-01_rb, 3.44148e-01_rb/)
+      kao_mn2o( 9, :, 7) = (/ &
+     & 2.97441e-01_rb, 2.99207e-01_rb, 3.00984e-01_rb, 3.02772e-01_rb, 3.04570e-01_rb, &
+     & 3.06379e-01_rb, 3.08199e-01_rb, 3.10029e-01_rb, 3.11870e-01_rb, 3.13723e-01_rb, &
+     & 3.15586e-01_rb, 3.17460e-01_rb, 3.19345e-01_rb, 3.21242e-01_rb, 3.23150e-01_rb, &
+     & 3.25069e-01_rb, 3.27000e-01_rb, 3.28942e-01_rb, 3.30895e-01_rb/)
+      kao_mn2o( 1, :, 8) = (/ &
+     & 2.14641e+00_rb, 2.12585e+00_rb, 2.10549e+00_rb, 2.08532e+00_rb, 2.06534e+00_rb, &
+     & 2.04556e+00_rb, 2.02596e+00_rb, 2.00656e+00_rb, 1.98733e+00_rb, 1.96830e+00_rb, &
+     & 1.94944e+00_rb, 1.93077e+00_rb, 1.91227e+00_rb, 1.89395e+00_rb, 1.87581e+00_rb, &
+     & 1.85784e+00_rb, 1.84004e+00_rb, 1.82242e+00_rb, 1.80496e+00_rb/)
+      kao_mn2o( 2, :, 8) = (/ &
+     & 8.83687e-01_rb, 8.83170e-01_rb, 8.82654e-01_rb, 8.82137e-01_rb, 8.81621e-01_rb, &
+     & 8.81106e-01_rb, 8.80590e-01_rb, 8.80075e-01_rb, 8.79560e-01_rb, 8.79046e-01_rb, &
+     & 8.78531e-01_rb, 8.78017e-01_rb, 8.77504e-01_rb, 8.76990e-01_rb, 8.76477e-01_rb, &
+     & 8.75965e-01_rb, 8.75452e-01_rb, 8.74940e-01_rb, 8.74428e-01_rb/)
+      kao_mn2o( 3, :, 8) = (/ &
+     & 4.49840e-01_rb, 4.52683e-01_rb, 4.55543e-01_rb, 4.58421e-01_rb, 4.61318e-01_rb, &
+     & 4.64233e-01_rb, 4.67166e-01_rb, 4.70118e-01_rb, 4.73088e-01_rb, 4.76078e-01_rb, &
+     & 4.79086e-01_rb, 4.82113e-01_rb, 4.85159e-01_rb, 4.88225e-01_rb, 4.91310e-01_rb, &
+     & 4.94414e-01_rb, 4.97538e-01_rb, 5.00682e-01_rb, 5.03845e-01_rb/)
+      kao_mn2o( 4, :, 8) = (/ &
+     & 3.92292e-01_rb, 3.93574e-01_rb, 3.94861e-01_rb, 3.96151e-01_rb, 3.97446e-01_rb, &
+     & 3.98746e-01_rb, 4.00049e-01_rb, 4.01357e-01_rb, 4.02669e-01_rb, 4.03985e-01_rb, &
+     & 4.05306e-01_rb, 4.06630e-01_rb, 4.07960e-01_rb, 4.09293e-01_rb, 4.10631e-01_rb, &
+     & 4.11973e-01_rb, 4.13320e-01_rb, 4.14671e-01_rb, 4.16027e-01_rb/)
+      kao_mn2o( 5, :, 8) = (/ &
+     & 3.38920e-01_rb, 3.41151e-01_rb, 3.43397e-01_rb, 3.45658e-01_rb, 3.47934e-01_rb, &
+     & 3.50225e-01_rb, 3.52531e-01_rb, 3.54852e-01_rb, 3.57189e-01_rb, 3.59541e-01_rb, &
+     & 3.61908e-01_rb, 3.64291e-01_rb, 3.66689e-01_rb, 3.69104e-01_rb, 3.71534e-01_rb, &
+     & 3.73980e-01_rb, 3.76443e-01_rb, 3.78921e-01_rb, 3.81416e-01_rb/)
+      kao_mn2o( 6, :, 8) = (/ &
+     & 3.01673e-01_rb, 3.04752e-01_rb, 3.07863e-01_rb, 3.11005e-01_rb, 3.14180e-01_rb, &
+     & 3.17387e-01_rb, 3.20626e-01_rb, 3.23899e-01_rb, 3.27205e-01_rb, 3.30545e-01_rb, &
+     & 3.33919e-01_rb, 3.37328e-01_rb, 3.40771e-01_rb, 3.44249e-01_rb, 3.47763e-01_rb, &
+     & 3.51313e-01_rb, 3.54899e-01_rb, 3.58521e-01_rb, 3.62181e-01_rb/)
+      kao_mn2o( 7, :, 8) = (/ &
+     & 2.99381e-01_rb, 3.02431e-01_rb, 3.05512e-01_rb, 3.08624e-01_rb, 3.11768e-01_rb, &
+     & 3.14945e-01_rb, 3.18153e-01_rb, 3.21394e-01_rb, 3.24668e-01_rb, 3.27976e-01_rb, &
+     & 3.31317e-01_rb, 3.34693e-01_rb, 3.38102e-01_rb, 3.41547e-01_rb, 3.45026e-01_rb, &
+     & 3.48541e-01_rb, 3.52092e-01_rb, 3.55679e-01_rb, 3.59302e-01_rb/)
+      kao_mn2o( 8, :, 8) = (/ &
+     & 2.87559e-01_rb, 2.89153e-01_rb, 2.90756e-01_rb, 2.92367e-01_rb, 2.93987e-01_rb, &
+     & 2.95617e-01_rb, 2.97255e-01_rb, 2.98902e-01_rb, 3.00559e-01_rb, 3.02225e-01_rb, &
+     & 3.03899e-01_rb, 3.05584e-01_rb, 3.07277e-01_rb, 3.08980e-01_rb, 3.10693e-01_rb, &
+     & 3.12414e-01_rb, 3.14146e-01_rb, 3.15887e-01_rb, 3.17638e-01_rb/)
+      kao_mn2o( 9, :, 8) = (/ &
+     & 2.96238e-01_rb, 2.97588e-01_rb, 2.98945e-01_rb, 3.00309e-01_rb, 3.01678e-01_rb, &
+     & 3.03054e-01_rb, 3.04436e-01_rb, 3.05824e-01_rb, 3.07219e-01_rb, 3.08620e-01_rb, &
+     & 3.10027e-01_rb, 3.11441e-01_rb, 3.12861e-01_rb, 3.14288e-01_rb, 3.15721e-01_rb, &
+     & 3.17161e-01_rb, 3.18607e-01_rb, 3.20060e-01_rb, 3.21520e-01_rb/)
+      kao_mn2o( 1, :, 9) = (/ &
+     & 1.56483e+00_rb, 1.55792e+00_rb, 1.55105e+00_rb, 1.54420e+00_rb, 1.53739e+00_rb, &
+     & 1.53060e+00_rb, 1.52384e+00_rb, 1.51712e+00_rb, 1.51042e+00_rb, 1.50376e+00_rb, &
+     & 1.49712e+00_rb, 1.49051e+00_rb, 1.48393e+00_rb, 1.47738e+00_rb, 1.47086e+00_rb, &
+     & 1.46437e+00_rb, 1.45791e+00_rb, 1.45147e+00_rb, 1.44507e+00_rb/)
+      kao_mn2o( 2, :, 9) = (/ &
+     & 4.09526e-01_rb, 4.10301e-01_rb, 4.11078e-01_rb, 4.11857e-01_rb, 4.12637e-01_rb, &
+     & 4.13418e-01_rb, 4.14201e-01_rb, 4.14986e-01_rb, 4.15771e-01_rb, 4.16559e-01_rb, &
+     & 4.17348e-01_rb, 4.18138e-01_rb, 4.18930e-01_rb, 4.19723e-01_rb, 4.20518e-01_rb, &
+     & 4.21315e-01_rb, 4.22112e-01_rb, 4.22912e-01_rb, 4.23713e-01_rb/)
+      kao_mn2o( 3, :, 9) = (/ &
+     & 3.35672e-01_rb, 3.38982e-01_rb, 3.42326e-01_rb, 3.45702e-01_rb, 3.49111e-01_rb, &
+     & 3.52554e-01_rb, 3.56031e-01_rb, 3.59543e-01_rb, 3.63089e-01_rb, 3.66670e-01_rb, &
+     & 3.70286e-01_rb, 3.73938e-01_rb, 3.77626e-01_rb, 3.81350e-01_rb, 3.85111e-01_rb, &
+     & 3.88909e-01_rb, 3.92745e-01_rb, 3.96618e-01_rb, 4.00530e-01_rb/)
+      kao_mn2o( 4, :, 9) = (/ &
+     & 3.19130e-01_rb, 3.23028e-01_rb, 3.26973e-01_rb, 3.30966e-01_rb, 3.35008e-01_rb, &
+     & 3.39100e-01_rb, 3.43241e-01_rb, 3.47433e-01_rb, 3.51676e-01_rb, 3.55971e-01_rb, &
+     & 3.60319e-01_rb, 3.64719e-01_rb, 3.69173e-01_rb, 3.73682e-01_rb, 3.78246e-01_rb, &
+     & 3.82865e-01_rb, 3.87541e-01_rb, 3.92274e-01_rb, 3.97065e-01_rb/)
+      kao_mn2o( 5, :, 9) = (/ &
+     & 3.04385e-01_rb, 3.07155e-01_rb, 3.09949e-01_rb, 3.12770e-01_rb, 3.15616e-01_rb, &
+     & 3.18488e-01_rb, 3.21386e-01_rb, 3.24310e-01_rb, 3.27261e-01_rb, 3.30239e-01_rb, &
+     & 3.33244e-01_rb, 3.36276e-01_rb, 3.39336e-01_rb, 3.42424e-01_rb, 3.45540e-01_rb, &
+     & 3.48684e-01_rb, 3.51857e-01_rb, 3.55059e-01_rb, 3.58289e-01_rb/)
+      kao_mn2o( 6, :, 9) = (/ &
+     & 2.98789e-01_rb, 3.00996e-01_rb, 3.03220e-01_rb, 3.05460e-01_rb, 3.07717e-01_rb, &
+     & 3.09990e-01_rb, 3.12281e-01_rb, 3.14588e-01_rb, 3.16912e-01_rb, 3.19253e-01_rb, &
+     & 3.21612e-01_rb, 3.23988e-01_rb, 3.26382e-01_rb, 3.28793e-01_rb, 3.31222e-01_rb, &
+     & 3.33669e-01_rb, 3.36134e-01_rb, 3.38618e-01_rb, 3.41119e-01_rb/)
+      kao_mn2o( 7, :, 9) = (/ &
+     & 3.08712e-01_rb, 3.10491e-01_rb, 3.12281e-01_rb, 3.14080e-01_rb, 3.15890e-01_rb, &
+     & 3.17710e-01_rb, 3.19541e-01_rb, 3.21382e-01_rb, 3.23234e-01_rb, 3.25097e-01_rb, &
+     & 3.26970e-01_rb, 3.28854e-01_rb, 3.30749e-01_rb, 3.32655e-01_rb, 3.34572e-01_rb, &
+     & 3.36500e-01_rb, 3.38439e-01_rb, 3.40390e-01_rb, 3.42351e-01_rb/)
+      kao_mn2o( 8, :, 9) = (/ &
+     & 3.10571e-01_rb, 3.12262e-01_rb, 3.13961e-01_rb, 3.15670e-01_rb, 3.17388e-01_rb, &
+     & 3.19115e-01_rb, 3.20852e-01_rb, 3.22598e-01_rb, 3.24354e-01_rb, 3.26120e-01_rb, &
+     & 3.27895e-01_rb, 3.29679e-01_rb, 3.31474e-01_rb, 3.33278e-01_rb, 3.35092e-01_rb, &
+     & 3.36915e-01_rb, 3.38749e-01_rb, 3.40593e-01_rb, 3.42447e-01_rb/)
+      kao_mn2o( 9, :, 9) = (/ &
+     & 3.16436e-01_rb, 3.18200e-01_rb, 3.19974e-01_rb, 3.21759e-01_rb, 3.23553e-01_rb, &
+     & 3.25357e-01_rb, 3.27172e-01_rb, 3.28996e-01_rb, 3.30831e-01_rb, 3.32675e-01_rb, &
+     & 3.34530e-01_rb, 3.36396e-01_rb, 3.38272e-01_rb, 3.40158e-01_rb, 3.42055e-01_rb, &
+     & 3.43962e-01_rb, 3.45880e-01_rb, 3.47809e-01_rb, 3.49749e-01_rb/)
+      kao_mn2o( 1, :,10) = (/ &
+     & 7.68616e-01_rb, 7.63263e-01_rb, 7.57948e-01_rb, 7.52669e-01_rb, 7.47428e-01_rb, &
+     & 7.42223e-01_rb, 7.37054e-01_rb, 7.31921e-01_rb, 7.26824e-01_rb, 7.21762e-01_rb, &
+     & 7.16736e-01_rb, 7.11744e-01_rb, 7.06788e-01_rb, 7.01866e-01_rb, 6.96978e-01_rb, &
+     & 6.92124e-01_rb, 6.87304e-01_rb, 6.82517e-01_rb, 6.77764e-01_rb/)
+      kao_mn2o( 2, :,10) = (/ &
+     & 4.97271e-01_rb, 5.10054e-01_rb, 5.23165e-01_rb, 5.36614e-01_rb, 5.50408e-01_rb, &
+     & 5.64556e-01_rb, 5.79069e-01_rb, 5.93954e-01_rb, 6.09222e-01_rb, 6.24883e-01_rb, &
+     & 6.40946e-01_rb, 6.57422e-01_rb, 6.74321e-01_rb, 6.91655e-01_rb, 7.09435e-01_rb, &
+     & 7.27671e-01_rb, 7.46377e-01_rb, 7.65563e-01_rb, 7.85242e-01_rb/)
+      kao_mn2o( 3, :,10) = (/ &
+     & 2.44443e-01_rb, 2.47096e-01_rb, 2.49778e-01_rb, 2.52489e-01_rb, 2.55229e-01_rb, &
+     & 2.57999e-01_rb, 2.60799e-01_rb, 2.63630e-01_rb, 2.66491e-01_rb, 2.69383e-01_rb, &
+     & 2.72307e-01_rb, 2.75262e-01_rb, 2.78250e-01_rb, 2.81269e-01_rb, 2.84322e-01_rb, &
+     & 2.87408e-01_rb, 2.90527e-01_rb, 2.93680e-01_rb, 2.96868e-01_rb/)
+      kao_mn2o( 4, :,10) = (/ &
+     & 2.01964e-01_rb, 2.02869e-01_rb, 2.03777e-01_rb, 2.04690e-01_rb, 2.05606e-01_rb, &
+     & 2.06527e-01_rb, 2.07452e-01_rb, 2.08381e-01_rb, 2.09314e-01_rb, 2.10251e-01_rb, &
+     & 2.11193e-01_rb, 2.12139e-01_rb, 2.13089e-01_rb, 2.14043e-01_rb, 2.15002e-01_rb, &
+     & 2.15964e-01_rb, 2.16932e-01_rb, 2.17903e-01_rb, 2.18879e-01_rb/)
+      kao_mn2o( 5, :,10) = (/ &
+     & 2.56972e-01_rb, 2.56837e-01_rb, 2.56702e-01_rb, 2.56567e-01_rb, 2.56432e-01_rb, &
+     & 2.56297e-01_rb, 2.56162e-01_rb, 2.56027e-01_rb, 2.55893e-01_rb, 2.55758e-01_rb, &
+     & 2.55624e-01_rb, 2.55489e-01_rb, 2.55355e-01_rb, 2.55220e-01_rb, 2.55086e-01_rb, &
+     & 2.54952e-01_rb, 2.54818e-01_rb, 2.54684e-01_rb, 2.54550e-01_rb/)
+      kao_mn2o( 6, :,10) = (/ &
+     & 2.57322e-01_rb, 2.57187e-01_rb, 2.57052e-01_rb, 2.56917e-01_rb, 2.56782e-01_rb, &
+     & 2.56647e-01_rb, 2.56512e-01_rb, 2.56377e-01_rb, 2.56243e-01_rb, 2.56108e-01_rb, &
+     & 2.55974e-01_rb, 2.55839e-01_rb, 2.55705e-01_rb, 2.55570e-01_rb, 2.55436e-01_rb, &
+     & 2.55302e-01_rb, 2.55168e-01_rb, 2.55034e-01_rb, 2.54900e-01_rb/)
+      kao_mn2o( 7, :,10) = (/ &
+     & 2.56551e-01_rb, 2.56421e-01_rb, 2.56291e-01_rb, 2.56161e-01_rb, 2.56030e-01_rb, &
+     & 2.55900e-01_rb, 2.55770e-01_rb, 2.55640e-01_rb, 2.55511e-01_rb, 2.55381e-01_rb, &
+     & 2.55251e-01_rb, 2.55121e-01_rb, 2.54992e-01_rb, 2.54862e-01_rb, 2.54733e-01_rb, &
+     & 2.54603e-01_rb, 2.54474e-01_rb, 2.54345e-01_rb, 2.54215e-01_rb/)
+      kao_mn2o( 8, :,10) = (/ &
+     & 2.73629e-01_rb, 2.73460e-01_rb, 2.73291e-01_rb, 2.73122e-01_rb, 2.72953e-01_rb, &
+     & 2.72784e-01_rb, 2.72615e-01_rb, 2.72447e-01_rb, 2.72279e-01_rb, 2.72110e-01_rb, &
+     & 2.71942e-01_rb, 2.71774e-01_rb, 2.71606e-01_rb, 2.71438e-01_rb, 2.71270e-01_rb, &
+     & 2.71102e-01_rb, 2.70935e-01_rb, 2.70767e-01_rb, 2.70600e-01_rb/)
+      kao_mn2o( 9, :,10) = (/ &
+     & 2.57294e-01_rb, 2.57149e-01_rb, 2.57004e-01_rb, 2.56860e-01_rb, 2.56715e-01_rb, &
+     & 2.56570e-01_rb, 2.56426e-01_rb, 2.56282e-01_rb, 2.56137e-01_rb, 2.55993e-01_rb, &
+     & 2.55849e-01_rb, 2.55705e-01_rb, 2.55561e-01_rb, 2.55417e-01_rb, 2.55273e-01_rb, &
+     & 2.55129e-01_rb, 2.54986e-01_rb, 2.54842e-01_rb, 2.54698e-01_rb/)
+      kao_mn2o( 1, :,11) = (/ &
+     & 6.91062e-01_rb, 6.84151e-01_rb, 6.77309e-01_rb, 6.70535e-01_rb, 6.63829e-01_rb, &
+     & 6.57190e-01_rb, 6.50617e-01_rb, 6.44111e-01_rb, 6.37669e-01_rb, 6.31292e-01_rb, &
+     & 6.24978e-01_rb, 6.18728e-01_rb, 6.12540e-01_rb, 6.06414e-01_rb, 6.00349e-01_rb, &
+     & 5.94345e-01_rb, 5.88401e-01_rb, 5.82517e-01_rb, 5.76691e-01_rb/)
+      kao_mn2o( 2, :,11) = (/ &
+     & 1.98698e-01_rb, 2.01182e-01_rb, 2.03698e-01_rb, 2.06244e-01_rb, 2.08823e-01_rb, &
+     & 2.11433e-01_rb, 2.14077e-01_rb, 2.16753e-01_rb, 2.19463e-01_rb, 2.22207e-01_rb, &
+     & 2.24985e-01_rb, 2.27798e-01_rb, 2.30646e-01_rb, 2.33529e-01_rb, 2.36449e-01_rb, &
+     & 2.39405e-01_rb, 2.42398e-01_rb, 2.45429e-01_rb, 2.48497e-01_rb/)
+      kao_mn2o( 3, :,11) = (/ &
+     & 2.11950e-01_rb, 2.13560e-01_rb, 2.15184e-01_rb, 2.16819e-01_rb, 2.18467e-01_rb, &
+     & 2.20127e-01_rb, 2.21800e-01_rb, 2.23486e-01_rb, 2.25185e-01_rb, 2.26896e-01_rb, &
+     & 2.28621e-01_rb, 2.30358e-01_rb, 2.32109e-01_rb, 2.33873e-01_rb, 2.35651e-01_rb, &
+     & 2.37442e-01_rb, 2.39247e-01_rb, 2.41065e-01_rb, 2.42897e-01_rb/)
+      kao_mn2o( 4, :,11) = (/ &
+     & 3.14210e-01_rb, 3.13143e-01_rb, 3.12080e-01_rb, 3.11021e-01_rb, 3.09965e-01_rb, &
+     & 3.08913e-01_rb, 3.07864e-01_rb, 3.06819e-01_rb, 3.05777e-01_rb, 3.04739e-01_rb, &
+     & 3.03705e-01_rb, 3.02674e-01_rb, 3.01646e-01_rb, 3.00622e-01_rb, 2.99602e-01_rb, &
+     & 2.98584e-01_rb, 2.97571e-01_rb, 2.96561e-01_rb, 2.95554e-01_rb/)
+      kao_mn2o( 5, :,11) = (/ &
+     & 3.13536e-01_rb, 3.12459e-01_rb, 3.11386e-01_rb, 3.10316e-01_rb, 3.09250e-01_rb, &
+     & 3.08188e-01_rb, 3.07129e-01_rb, 3.06074e-01_rb, 3.05022e-01_rb, 3.03974e-01_rb, &
+     & 3.02930e-01_rb, 3.01889e-01_rb, 3.00852e-01_rb, 2.99819e-01_rb, 2.98789e-01_rb, &
+     & 2.97762e-01_rb, 2.96739e-01_rb, 2.95720e-01_rb, 2.94704e-01_rb/)
+      kao_mn2o( 6, :,11) = (/ &
+     & 3.13215e-01_rb, 3.12123e-01_rb, 3.11034e-01_rb, 3.09949e-01_rb, 3.08867e-01_rb, &
+     & 3.07790e-01_rb, 3.06716e-01_rb, 3.05646e-01_rb, 3.04579e-01_rb, 3.03517e-01_rb, &
+     & 3.02458e-01_rb, 3.01403e-01_rb, 3.00351e-01_rb, 2.99303e-01_rb, 2.98259e-01_rb, &
+     & 2.97219e-01_rb, 2.96182e-01_rb, 2.95148e-01_rb, 2.94119e-01_rb/)
+      kao_mn2o( 7, :,11) = (/ &
+     & 3.14236e-01_rb, 3.13123e-01_rb, 3.12014e-01_rb, 3.10908e-01_rb, 3.09806e-01_rb, &
+     & 3.08709e-01_rb, 3.07615e-01_rb, 3.06525e-01_rb, 3.05439e-01_rb, 3.04357e-01_rb, &
+     & 3.03278e-01_rb, 3.02204e-01_rb, 3.01133e-01_rb, 3.00066e-01_rb, 2.99003e-01_rb, &
+     & 2.97944e-01_rb, 2.96888e-01_rb, 2.95836e-01_rb, 2.94788e-01_rb/)
+      kao_mn2o( 8, :,11) = (/ &
+     & 2.97453e-01_rb, 2.96420e-01_rb, 2.95391e-01_rb, 2.94366e-01_rb, 2.93344e-01_rb, &
+     & 2.92325e-01_rb, 2.91311e-01_rb, 2.90299e-01_rb, 2.89291e-01_rb, 2.88287e-01_rb, &
+     & 2.87286e-01_rb, 2.86289e-01_rb, 2.85295e-01_rb, 2.84304e-01_rb, 2.83317e-01_rb, &
+     & 2.82334e-01_rb, 2.81354e-01_rb, 2.80377e-01_rb, 2.79404e-01_rb/)
+      kao_mn2o( 9, :,11) = (/ &
+     & 3.12694e-01_rb, 3.11622e-01_rb, 3.10554e-01_rb, 3.09489e-01_rb, 3.08428e-01_rb, &
+     & 3.07370e-01_rb, 3.06316e-01_rb, 3.05266e-01_rb, 3.04220e-01_rb, 3.03177e-01_rb, &
+     & 3.02137e-01_rb, 3.01101e-01_rb, 3.00069e-01_rb, 2.99040e-01_rb, 2.98015e-01_rb, &
+     & 2.96993e-01_rb, 2.95975e-01_rb, 2.94960e-01_rb, 2.93949e-01_rb/)
+      kao_mn2o( 1, :,12) = (/ &
+     & 5.30796e-01_rb, 5.50444e-01_rb, 5.70818e-01_rb, 5.91947e-01_rb, 6.13857e-01_rb, &
+     & 6.36579e-01_rb, 6.60142e-01_rb, 6.84577e-01_rb, 7.09916e-01_rb, 7.36194e-01_rb, &
+     & 7.63444e-01_rb, 7.91702e-01_rb, 8.21007e-01_rb, 8.51396e-01_rb, 8.82910e-01_rb, &
+     & 9.15591e-01_rb, 9.49481e-01_rb, 9.84626e-01_rb, 1.02107e+00_rb/)
+      kao_mn2o( 2, :,12) = (/ &
+     & 1.38469e-01_rb, 1.40959e-01_rb, 1.43493e-01_rb, 1.46073e-01_rb, 1.48699e-01_rb, &
+     & 1.51373e-01_rb, 1.54094e-01_rb, 1.56865e-01_rb, 1.59685e-01_rb, 1.62556e-01_rb, &
+     & 1.65478e-01_rb, 1.68454e-01_rb, 1.71482e-01_rb, 1.74565e-01_rb, 1.77704e-01_rb, &
+     & 1.80899e-01_rb, 1.84151e-01_rb, 1.87462e-01_rb, 1.90833e-01_rb/)
+      kao_mn2o( 3, :,12) = (/ &
+     & 1.50741e-01_rb, 1.50855e-01_rb, 1.50969e-01_rb, 1.51084e-01_rb, 1.51198e-01_rb, &
+     & 1.51313e-01_rb, 1.51427e-01_rb, 1.51542e-01_rb, 1.51657e-01_rb, 1.51772e-01_rb, &
+     & 1.51887e-01_rb, 1.52002e-01_rb, 1.52117e-01_rb, 1.52233e-01_rb, 1.52348e-01_rb, &
+     & 1.52463e-01_rb, 1.52579e-01_rb, 1.52695e-01_rb, 1.52810e-01_rb/)
+      kao_mn2o( 4, :,12) = (/ &
+     & 1.80444e-01_rb, 1.79944e-01_rb, 1.79445e-01_rb, 1.78948e-01_rb, 1.78452e-01_rb, &
+     & 1.77958e-01_rb, 1.77465e-01_rb, 1.76973e-01_rb, 1.76483e-01_rb, 1.75994e-01_rb, &
+     & 1.75506e-01_rb, 1.75020e-01_rb, 1.74535e-01_rb, 1.74051e-01_rb, 1.73569e-01_rb, &
+     & 1.73088e-01_rb, 1.72609e-01_rb, 1.72131e-01_rb, 1.71654e-01_rb/)
+      kao_mn2o( 5, :,12) = (/ &
+     & 1.80595e-01_rb, 1.80033e-01_rb, 1.79474e-01_rb, 1.78916e-01_rb, 1.78359e-01_rb, &
+     & 1.77805e-01_rb, 1.77252e-01_rb, 1.76701e-01_rb, 1.76152e-01_rb, 1.75604e-01_rb, &
+     & 1.75058e-01_rb, 1.74514e-01_rb, 1.73971e-01_rb, 1.73430e-01_rb, 1.72891e-01_rb, &
+     & 1.72354e-01_rb, 1.71818e-01_rb, 1.71284e-01_rb, 1.70751e-01_rb/)
+      kao_mn2o( 6, :,12) = (/ &
+     & 1.79904e-01_rb, 1.79254e-01_rb, 1.78607e-01_rb, 1.77962e-01_rb, 1.77320e-01_rb, &
+     & 1.76680e-01_rb, 1.76042e-01_rb, 1.75406e-01_rb, 1.74773e-01_rb, 1.74142e-01_rb, &
+     & 1.73513e-01_rb, 1.72887e-01_rb, 1.72262e-01_rb, 1.71640e-01_rb, 1.71021e-01_rb, &
+     & 1.70403e-01_rb, 1.69788e-01_rb, 1.69175e-01_rb, 1.68564e-01_rb/)
+      kao_mn2o( 7, :,12) = (/ &
+     & 1.78712e-01_rb, 1.77868e-01_rb, 1.77027e-01_rb, 1.76190e-01_rb, 1.75357e-01_rb, &
+     & 1.74528e-01_rb, 1.73703e-01_rb, 1.72882e-01_rb, 1.72064e-01_rb, 1.71251e-01_rb, &
+     & 1.70441e-01_rb, 1.69636e-01_rb, 1.68834e-01_rb, 1.68036e-01_rb, 1.67241e-01_rb, &
+     & 1.66451e-01_rb, 1.65664e-01_rb, 1.64881e-01_rb, 1.64101e-01_rb/)
+      kao_mn2o( 8, :,12) = (/ &
+     & 1.72346e-01_rb, 1.70873e-01_rb, 1.69413e-01_rb, 1.67965e-01_rb, 1.66530e-01_rb, &
+     & 1.65107e-01_rb, 1.63696e-01_rb, 1.62297e-01_rb, 1.60910e-01_rb, 1.59535e-01_rb, &
+     & 1.58171e-01_rb, 1.56819e-01_rb, 1.55479e-01_rb, 1.54150e-01_rb, 1.52833e-01_rb, &
+     & 1.51527e-01_rb, 1.50232e-01_rb, 1.48948e-01_rb, 1.47675e-01_rb/)
+      kao_mn2o( 9, :,12) = (/ &
+     & 1.80517e-01_rb, 1.79951e-01_rb, 1.79386e-01_rb, 1.78823e-01_rb, 1.78262e-01_rb, &
+     & 1.77702e-01_rb, 1.77144e-01_rb, 1.76588e-01_rb, 1.76034e-01_rb, 1.75481e-01_rb, &
+     & 1.74931e-01_rb, 1.74382e-01_rb, 1.73834e-01_rb, 1.73289e-01_rb, 1.72745e-01_rb, &
+     & 1.72202e-01_rb, 1.71662e-01_rb, 1.71123e-01_rb, 1.70586e-01_rb/)
+      kao_mn2o( 1, :,13) = (/ &
+     & 2.41966e-01_rb, 2.50534e-01_rb, 2.59406e-01_rb, 2.68591e-01_rb, 2.78102e-01_rb, &
+     & 2.87950e-01_rb, 2.98146e-01_rb, 3.08704e-01_rb, 3.19635e-01_rb, 3.30953e-01_rb, &
+     & 3.42672e-01_rb, 3.54806e-01_rb, 3.67370e-01_rb, 3.80379e-01_rb, 3.93848e-01_rb, &
+     & 4.07794e-01_rb, 4.22234e-01_rb, 4.37186e-01_rb, 4.52667e-01_rb/)
+      kao_mn2o( 2, :,13) = (/ &
+     & 1.54385e-01_rb, 1.54015e-01_rb, 1.53646e-01_rb, 1.53279e-01_rb, 1.52912e-01_rb, &
+     & 1.52545e-01_rb, 1.52180e-01_rb, 1.51816e-01_rb, 1.51452e-01_rb, 1.51089e-01_rb, &
+     & 1.50728e-01_rb, 1.50367e-01_rb, 1.50007e-01_rb, 1.49647e-01_rb, 1.49289e-01_rb, &
+     & 1.48932e-01_rb, 1.48575e-01_rb, 1.48219e-01_rb, 1.47864e-01_rb/)
+      kao_mn2o( 3, :,13) = (/ &
+     & 2.00518e-01_rb, 1.94901e-01_rb, 1.89442e-01_rb, 1.84136e-01_rb, 1.78978e-01_rb, &
+     & 1.73965e-01_rb, 1.69092e-01_rb, 1.64356e-01_rb, 1.59752e-01_rb, 1.55278e-01_rb, &
+     & 1.50928e-01_rb, 1.46701e-01_rb, 1.42592e-01_rb, 1.38598e-01_rb, 1.34715e-01_rb, &
+     & 1.30942e-01_rb, 1.27274e-01_rb, 1.23709e-01_rb, 1.20244e-01_rb/)
+      kao_mn2o( 4, :,13) = (/ &
+     & 2.03974e-01_rb, 1.98258e-01_rb, 1.92703e-01_rb, 1.87302e-01_rb, 1.82054e-01_rb, &
+     & 1.76952e-01_rb, 1.71993e-01_rb, 1.67173e-01_rb, 1.62489e-01_rb, 1.57935e-01_rb, &
+     & 1.53509e-01_rb, 1.49207e-01_rb, 1.45026e-01_rb, 1.40962e-01_rb, 1.37012e-01_rb, &
+     & 1.33172e-01_rb, 1.29440e-01_rb, 1.25813e-01_rb, 1.22287e-01_rb/)
+      kao_mn2o( 5, :,13) = (/ &
+     & 2.09410e-01_rb, 2.03543e-01_rb, 1.97841e-01_rb, 1.92298e-01_rb, 1.86911e-01_rb, &
+     & 1.81674e-01_rb, 1.76585e-01_rb, 1.71637e-01_rb, 1.66829e-01_rb, 1.62155e-01_rb, &
+     & 1.57612e-01_rb, 1.53196e-01_rb, 1.48904e-01_rb, 1.44733e-01_rb, 1.40678e-01_rb, &
+     & 1.36736e-01_rb, 1.32906e-01_rb, 1.29182e-01_rb, 1.25563e-01_rb/)
+      kao_mn2o( 6, :,13) = (/ &
+     & 2.19808e-01_rb, 2.13643e-01_rb, 2.07651e-01_rb, 2.01827e-01_rb, 1.96166e-01_rb, &
+     & 1.90664e-01_rb, 1.85317e-01_rb, 1.80119e-01_rb, 1.75067e-01_rb, 1.70157e-01_rb, &
+     & 1.65385e-01_rb, 1.60746e-01_rb, 1.56238e-01_rb, 1.51856e-01_rb, 1.47596e-01_rb, &
+     & 1.43457e-01_rb, 1.39433e-01_rb, 1.35523e-01_rb, 1.31722e-01_rb/)
+      kao_mn2o( 7, :,13) = (/ &
+     & 2.47074e-01_rb, 2.40127e-01_rb, 2.33375e-01_rb, 2.26813e-01_rb, 2.20436e-01_rb, &
+     & 2.14238e-01_rb, 2.08215e-01_rb, 2.02360e-01_rb, 1.96671e-01_rb, 1.91141e-01_rb, &
+     & 1.85767e-01_rb, 1.80544e-01_rb, 1.75467e-01_rb, 1.70534e-01_rb, 1.65739e-01_rb, &
+     & 1.61079e-01_rb, 1.56550e-01_rb, 1.52148e-01_rb, 1.47870e-01_rb/)
+      kao_mn2o( 8, :,13) = (/ &
+     & 2.55282e-01_rb, 2.48105e-01_rb, 2.41130e-01_rb, 2.34350e-01_rb, 2.27762e-01_rb, &
+     & 2.21358e-01_rb, 2.15135e-01_rb, 2.09086e-01_rb, 2.03208e-01_rb, 1.97495e-01_rb, &
+     & 1.91942e-01_rb, 1.86546e-01_rb, 1.81301e-01_rb, 1.76204e-01_rb, 1.71250e-01_rb, &
+     & 1.66435e-01_rb, 1.61756e-01_rb, 1.57208e-01_rb, 1.52788e-01_rb/)
+      kao_mn2o( 9, :,13) = (/ &
+     & 2.09991e-01_rb, 2.04103e-01_rb, 1.98380e-01_rb, 1.92818e-01_rb, 1.87411e-01_rb, &
+     & 1.82156e-01_rb, 1.77048e-01_rb, 1.72084e-01_rb, 1.67259e-01_rb, 1.62569e-01_rb, &
+     & 1.58010e-01_rb, 1.53580e-01_rb, 1.49273e-01_rb, 1.45087e-01_rb, 1.41019e-01_rb, &
+     & 1.37065e-01_rb, 1.33222e-01_rb, 1.29486e-01_rb, 1.25855e-01_rb/)
+      kao_mn2o( 1, :,14) = (/ &
+     & 9.08340e-02_rb, 9.50421e-02_rb, 9.94452e-02_rb, 1.04052e-01_rb, 1.08873e-01_rb, &
+     & 1.13917e-01_rb, 1.19194e-01_rb, 1.24716e-01_rb, 1.30494e-01_rb, 1.36540e-01_rb, &
+     & 1.42865e-01_rb, 1.49484e-01_rb, 1.56409e-01_rb, 1.63655e-01_rb, 1.71237e-01_rb, &
+     & 1.79170e-01_rb, 1.87471e-01_rb, 1.96156e-01_rb, 2.05243e-01_rb/)
+      kao_mn2o( 2, :,14) = (/ &
+     & 3.36945e-02_rb, 3.45144e-02_rb, 3.53542e-02_rb, 3.62144e-02_rb, 3.70956e-02_rb, &
+     & 3.79982e-02_rb, 3.89228e-02_rb, 3.98698e-02_rb, 4.08399e-02_rb, 4.18336e-02_rb, &
+     & 4.28515e-02_rb, 4.38942e-02_rb, 4.49622e-02_rb, 4.60562e-02_rb, 4.71769e-02_rb, &
+     & 4.83248e-02_rb, 4.95006e-02_rb, 5.07051e-02_rb, 5.19388e-02_rb/)
+      kao_mn2o( 3, :,14) = (/ &
+     & 9.11678e-02_rb, 8.85761e-02_rb, 8.60580e-02_rb, 8.36116e-02_rb, 8.12347e-02_rb, &
+     & 7.89253e-02_rb, 7.66817e-02_rb, 7.45017e-02_rb, 7.23838e-02_rb, 7.03261e-02_rb, &
+     & 6.83269e-02_rb, 6.63845e-02_rb, 6.44973e-02_rb, 6.26638e-02_rb, 6.08824e-02_rb, &
+     & 5.91516e-02_rb, 5.74700e-02_rb, 5.58363e-02_rb, 5.42490e-02_rb/)
+      kao_mn2o( 4, :,14) = (/ &
+     & 8.43999e-02_rb, 8.20004e-02_rb, 7.96692e-02_rb, 7.74042e-02_rb, 7.52037e-02_rb, &
+     & 7.30656e-02_rb, 7.09884e-02_rb, 6.89702e-02_rb, 6.70094e-02_rb, 6.51044e-02_rb, &
+     & 6.32535e-02_rb, 6.14552e-02_rb, 5.97081e-02_rb, 5.80106e-02_rb, 5.63614e-02_rb, &
+     & 5.47590e-02_rb, 5.32022e-02_rb, 5.16897e-02_rb, 5.02202e-02_rb/)
+      kao_mn2o( 5, :,14) = (/ &
+     & 7.41279e-02_rb, 7.20196e-02_rb, 6.99712e-02_rb, 6.79811e-02_rb, 6.60476e-02_rb, &
+     & 6.41691e-02_rb, 6.23440e-02_rb, 6.05708e-02_rb, 5.88481e-02_rb, 5.71743e-02_rb, &
+     & 5.55482e-02_rb, 5.39683e-02_rb, 5.24334e-02_rb, 5.09421e-02_rb, 4.94932e-02_rb, &
+     & 4.80855e-02_rb, 4.67179e-02_rb, 4.53891e-02_rb, 4.40982e-02_rb/)
+      kao_mn2o( 6, :,14) = (/ &
+     & 5.66805e-02_rb, 5.50676e-02_rb, 5.35006e-02_rb, 5.19782e-02_rb, 5.04991e-02_rb, &
+     & 4.90621e-02_rb, 4.76659e-02_rb, 4.63096e-02_rb, 4.49918e-02_rb, 4.37115e-02_rb, &
+     & 4.24676e-02_rb, 4.12592e-02_rb, 4.00851e-02_rb, 3.89444e-02_rb, 3.78362e-02_rb, &
+     & 3.67595e-02_rb, 3.57135e-02_rb, 3.46972e-02_rb, 3.37099e-02_rb/)
+      kao_mn2o( 7, :,14) = (/ &
+     & 1.23018e-02_rb, 1.19517e-02_rb, 1.16116e-02_rb, 1.12811e-02_rb, 1.09601e-02_rb, &
+     & 1.06482e-02_rb, 1.03452e-02_rb, 1.00508e-02_rb, 9.76474e-03_rb, 9.48685e-03_rb, &
+     & 9.21687e-03_rb, 8.95458e-03_rb, 8.69974e-03_rb, 8.45216e-03_rb, 8.21163e-03_rb, &
+     & 7.97794e-03_rb, 7.75091e-03_rb, 7.53033e-03_rb, 7.31603e-03_rb/)
+      kao_mn2o( 8, :,14) = (/ &
+     & 3.22403e-07_rb, 3.75986e-07_rb, 4.38475e-07_rb, 5.11349e-07_rb, 5.96335e-07_rb, &
+     & 6.95446e-07_rb, 8.11028e-07_rb, 9.45821e-07_rb, 1.10302e-06_rb, 1.28634e-06_rb, &
+     & 1.50012e-06_rb, 1.74944e-06_rb, 2.04020e-06_rb, 2.37928e-06_rb, 2.77472e-06_rb, &
+     & 3.23587e-06_rb, 3.77367e-06_rb, 4.40085e-06_rb, 5.13227e-06_rb/)
+      kao_mn2o( 9, :,14) = (/ &
+     & 7.33052e-02_rb, 7.12199e-02_rb, 6.91939e-02_rb, 6.72255e-02_rb, 6.53131e-02_rb, &
+     & 6.34551e-02_rb, 6.16500e-02_rb, 5.98963e-02_rb, 5.81924e-02_rb, 5.65370e-02_rb, &
+     & 5.49287e-02_rb, 5.33661e-02_rb, 5.18480e-02_rb, 5.03730e-02_rb, 4.89401e-02_rb, &
+     & 4.75479e-02_rb, 4.61953e-02_rb, 4.48811e-02_rb, 4.36044e-02_rb/)
+      kao_mn2o( 1, :,15) = (/ &
+     & 8.80247e-02_rb, 9.01793e-02_rb, 9.23868e-02_rb, 9.46482e-02_rb, 9.69650e-02_rb, &
+     & 9.93385e-02_rb, 1.01770e-01_rb, 1.04261e-01_rb, 1.06813e-01_rb, 1.09428e-01_rb, &
+     & 1.12107e-01_rb, 1.14851e-01_rb, 1.17662e-01_rb, 1.20542e-01_rb, 1.23493e-01_rb, &
+     & 1.26516e-01_rb, 1.29613e-01_rb, 1.32785e-01_rb, 1.36036e-01_rb/)
+      kao_mn2o( 2, :,15) = (/ &
+     & 3.89107e-07_rb, 4.53768e-07_rb, 5.29173e-07_rb, 6.17109e-07_rb, 7.19658e-07_rb, &
+     & 8.39248e-07_rb, 9.78710e-07_rb, 1.14135e-06_rb, 1.33101e-06_rb, 1.55220e-06_rb, &
+     & 1.81013e-06_rb, 2.11094e-06_rb, 2.46172e-06_rb, 2.87080e-06_rb, 3.34786e-06_rb, &
+     & 3.90420e-06_rb, 4.55298e-06_rb, 5.30958e-06_rb, 6.19190e-06_rb/)
+      kao_mn2o( 3, :,15) = (/ &
+     & 3.86537e-07_rb, 4.50763e-07_rb, 5.25662e-07_rb, 6.13006e-07_rb, 7.14863e-07_rb, &
+     & 8.33644e-07_rb, 9.72162e-07_rb, 1.13370e-06_rb, 1.32207e-06_rb, 1.54175e-06_rb, &
+     & 1.79792e-06_rb, 2.09666e-06_rb, 2.44504e-06_rb, 2.85131e-06_rb, 3.32508e-06_rb, &
+     & 3.87758e-06_rb, 4.52188e-06_rb, 5.27323e-06_rb, 6.14943e-06_rb/)
+      kao_mn2o( 4, :,15) = (/ &
+     & 3.81913e-07_rb, 4.45369e-07_rb, 5.19369e-07_rb, 6.05664e-07_rb, 7.06297e-07_rb, &
+     & 8.23651e-07_rb, 9.60503e-07_rb, 1.12009e-06_rb, 1.30620e-06_rb, 1.52323e-06_rb, &
+     & 1.77632e-06_rb, 2.07147e-06_rb, 2.41565e-06_rb, 2.81701e-06_rb, 3.28507e-06_rb, &
+     & 3.83090e-06_rb, 4.46741e-06_rb, 5.20969e-06_rb, 6.07529e-06_rb/)
+      kao_mn2o( 5, :,15) = (/ &
+     & 3.77265e-07_rb, 4.39951e-07_rb, 5.13053e-07_rb, 5.98303e-07_rb, 6.97717e-07_rb, &
+     & 8.13650e-07_rb, 9.48846e-07_rb, 1.10651e-06_rb, 1.29036e-06_rb, 1.50477e-06_rb, &
+     & 1.75480e-06_rb, 2.04638e-06_rb, 2.38641e-06_rb, 2.78294e-06_rb, 3.24535e-06_rb, &
+     & 3.78460e-06_rb, 4.41345e-06_rb, 5.14679e-06_rb, 6.00198e-06_rb/)
+      kao_mn2o( 6, :,15) = (/ &
+     & 3.77877e-07_rb, 4.40670e-07_rb, 5.13897e-07_rb, 5.99292e-07_rb, 6.98878e-07_rb, &
+     & 8.15012e-07_rb, 9.50444e-07_rb, 1.10838e-06_rb, 1.29256e-06_rb, 1.50735e-06_rb, &
+     & 1.75783e-06_rb, 2.04993e-06_rb, 2.39057e-06_rb, 2.78782e-06_rb, 3.25107e-06_rb, &
+     & 3.79131e-06_rb, 4.42132e-06_rb, 5.15602e-06_rb, 6.01280e-06_rb/)
+      kao_mn2o( 7, :,15) = (/ &
+     & 3.80495e-07_rb, 4.43726e-07_rb, 5.17465e-07_rb, 6.03458e-07_rb, 7.03741e-07_rb, &
+     & 8.20689e-07_rb, 9.57072e-07_rb, 1.11612e-06_rb, 1.30160e-06_rb, 1.51790e-06_rb, &
+     & 1.77014e-06_rb, 2.06430e-06_rb, 2.40735e-06_rb, 2.80741e-06_rb, 3.27394e-06_rb, &
+     & 3.81801e-06_rb, 4.45249e-06_rb, 5.19241e-06_rb, 6.05528e-06_rb/)
+      kao_mn2o( 8, :,15) = (/ &
+     & 3.87881e-07_rb, 4.52329e-07_rb, 5.27486e-07_rb, 6.15129e-07_rb, 7.17335e-07_rb, &
+     & 8.36523e-07_rb, 9.75515e-07_rb, 1.13760e-06_rb, 1.32662e-06_rb, 1.54704e-06_rb, &
+     & 1.80409e-06_rb, 2.10384e-06_rb, 2.45340e-06_rb, 2.86105e-06_rb, 3.33642e-06_rb, &
+     & 3.89078e-06_rb, 4.53725e-06_rb, 5.29112e-06_rb, 6.17026e-06_rb/)
+      kao_mn2o( 9, :,15) = (/ &
+     & 3.77265e-07_rb, 4.39951e-07_rb, 5.13053e-07_rb, 5.98303e-07_rb, 6.97717e-07_rb, &
+     & 8.13650e-07_rb, 9.48846e-07_rb, 1.10651e-06_rb, 1.29036e-06_rb, 1.50477e-06_rb, &
+     & 1.75480e-06_rb, 2.04638e-06_rb, 2.38641e-06_rb, 2.78294e-06_rb, 3.24535e-06_rb, &
+     & 3.78460e-06_rb, 4.41345e-06_rb, 5.14679e-06_rb, 6.00198e-06_rb/)
+      kao_mn2o( 1, :,16) = (/ &
+     & 8.84606e-02_rb, 9.05971e-02_rb, 9.27852e-02_rb, 9.50261e-02_rb, 9.73212e-02_rb, &
+     & 9.96717e-02_rb, 1.02079e-01_rb, 1.04544e-01_rb, 1.07069e-01_rb, 1.09655e-01_rb, &
+     & 1.12304e-01_rb, 1.15016e-01_rb, 1.17794e-01_rb, 1.20639e-01_rb, 1.23553e-01_rb, &
+     & 1.26537e-01_rb, 1.29593e-01_rb, 1.32723e-01_rb, 1.35928e-01_rb/)
+      kao_mn2o( 2, :,16) = (/ &
+     & 8.13898e-07_rb, 9.49130e-07_rb, 1.10683e-06_rb, 1.29073e-06_rb, 1.50519e-06_rb, &
+     & 1.75528e-06_rb, 2.04693e-06_rb, 2.38703e-06_rb, 2.78364e-06_rb, 3.24615e-06_rb, &
+     & 3.78551e-06_rb, 4.41449e-06_rb, 5.14796e-06_rb, 6.00331e-06_rb, 7.00078e-06_rb, &
+     & 8.16398e-06_rb, 9.52045e-06_rb, 1.11023e-05_rb, 1.29470e-05_rb/)
+      kao_mn2o( 3, :,16) = (/ &
+     & 8.32666e-07_rb, 9.71021e-07_rb, 1.13237e-06_rb, 1.32052e-06_rb, 1.53994e-06_rb, &
+     & 1.79581e-06_rb, 2.09420e-06_rb, 2.44217e-06_rb, 2.84796e-06_rb, 3.32117e-06_rb, &
+     & 3.87302e-06_rb, 4.51656e-06_rb, 5.26703e-06_rb, 6.14219e-06_rb, 7.16277e-06_rb, &
+     & 8.35294e-06_rb, 9.74086e-06_rb, 1.13594e-05_rb, 1.32468e-05_rb/)
+      kao_mn2o( 4, :,16) = (/ &
+     & 8.70348e-07_rb, 1.01496e-06_rb, 1.18360e-06_rb, 1.38026e-06_rb, 1.60959e-06_rb, &
+     & 1.87703e-06_rb, 2.18890e-06_rb, 2.55259e-06_rb, 2.97671e-06_rb, 3.47130e-06_rb, &
+     & 4.04807e-06_rb, 4.72067e-06_rb, 5.50502e-06_rb, 6.41970e-06_rb, 7.48635e-06_rb, &
+     & 8.73023e-06_rb, 1.01808e-05_rb, 1.18724e-05_rb, 1.38450e-05_rb/)
+      kao_mn2o( 5, :,16) = (/ &
+     & 9.07957e-07_rb, 1.05882e-06_rb, 1.23475e-06_rb, 1.43991e-06_rb, 1.67916e-06_rb, &
+     & 1.95816e-06_rb, 2.28352e-06_rb, 2.66294e-06_rb, 3.10541e-06_rb, 3.62139e-06_rb, &
+     & 4.22310e-06_rb, 4.92480e-06_rb, 5.74308e-06_rb, 6.69733e-06_rb, 7.81013e-06_rb, &
+     & 9.10784e-06_rb, 1.06212e-05_rb, 1.23859e-05_rb, 1.44439e-05_rb/)
+      kao_mn2o( 6, :,16) = (/ &
+     & 8.59072e-04_rb, 9.19773e-04_rb, 9.84764e-04_rb, 1.05435e-03_rb, 1.12885e-03_rb, &
+     & 1.20861e-03_rb, 1.29401e-03_rb, 1.38544e-03_rb, 1.48334e-03_rb, 1.58815e-03_rb, &
+     & 1.70037e-03_rb, 1.82052e-03_rb, 1.94915e-03_rb, 2.08688e-03_rb, 2.23434e-03_rb, &
+     & 2.39222e-03_rb, 2.56125e-03_rb, 2.74223e-03_rb, 2.93599e-03_rb/)
+      kao_mn2o( 7, :,16) = (/ &
+     & 9.17294e-07_rb, 1.06971e-06_rb, 1.24746e-06_rb, 1.45474e-06_rb, 1.69646e-06_rb, &
+     & 1.97835e-06_rb, 2.30708e-06_rb, 2.69043e-06_rb, 3.13748e-06_rb, 3.65880e-06_rb, &
+     & 4.26676e-06_rb, 4.97574e-06_rb, 5.80251e-06_rb, 6.76667e-06_rb, 7.89104e-06_rb, &
+     & 9.20223e-06_rb, 1.07313e-05_rb, 1.25144e-05_rb, 1.45939e-05_rb/)
+      kao_mn2o( 8, :,16) = (/ &
+     & 9.17341e-07_rb, 1.06977e-06_rb, 1.24752e-06_rb, 1.45480e-06_rb, 1.69653e-06_rb, &
+     & 1.97843e-06_rb, 2.30716e-06_rb, 2.69051e-06_rb, 3.13757e-06_rb, 3.65890e-06_rb, &
+     & 4.26686e-06_rb, 4.97584e-06_rb, 5.80261e-06_rb, 6.76677e-06_rb, 7.89113e-06_rb, &
+     & 9.20231e-06_rb, 1.07314e-05_rb, 1.25145e-05_rb, 1.45939e-05_rb/)
+      kao_mn2o( 9, :,16) = (/ &
+     & 9.07957e-07_rb, 1.05882e-06_rb, 1.23475e-06_rb, 1.43991e-06_rb, 1.67916e-06_rb, &
+     & 1.95816e-06_rb, 2.28352e-06_rb, 2.66294e-06_rb, 3.10541e-06_rb, 3.62139e-06_rb, &
+     & 4.22310e-06_rb, 4.92480e-06_rb, 5.74308e-06_rb, 6.69733e-06_rb, 7.81013e-06_rb, &
+     & 9.10784e-06_rb, 1.06212e-05_rb, 1.23859e-05_rb, 1.44439e-05_rb/)
+
+!     The array KBO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level above 100~ mb.   The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amounts ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 to 
+!     that of gas2.  The second index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index 
+!     runs over the g-channel (1 to 16).
+
+      kbo_mn2o( 1, :, 1) = (/ &
+     & 7.72009e-08_rb, 1.15883e-07_rb, 1.73947e-07_rb, 2.61104e-07_rb, 3.91932e-07_rb, &
+     & 5.88311e-07_rb, 8.83088e-07_rb, 1.32556e-06_rb, 1.98975e-06_rb, 2.98672e-06_rb, &
+     & 4.48324e-06_rb, 6.72960e-06_rb, 1.01015e-05_rb, 1.51629e-05_rb, 2.27604e-05_rb, &
+     & 3.41646e-05_rb, 5.12831e-05_rb, 7.69787e-05_rb, 1.15549e-04_rb/)
+      kbo_mn2o( 2, :, 1) = (/ &
+     & 1.29932e-05_rb, 1.78207e-05_rb, 2.44419e-05_rb, 3.35232e-05_rb, 4.59786e-05_rb, &
+     & 6.30617e-05_rb, 8.64920e-05_rb, 1.18628e-04_rb, 1.62703e-04_rb, 2.23155e-04_rb, &
+     & 3.06067e-04_rb, 4.19784e-04_rb, 5.75753e-04_rb, 7.89671e-04_rb, 1.08307e-03_rb, &
+     & 1.48548e-03_rb, 2.03740e-03_rb, 2.79439e-03_rb, 3.83262e-03_rb/)
+      kbo_mn2o( 3, :, 1) = (/ &
+     & 6.44518e-05_rb, 8.10996e-05_rb, 1.02047e-04_rb, 1.28406e-04_rb, 1.61573e-04_rb, &
+     & 2.03307e-04_rb, 2.55821e-04_rb, 3.21899e-04_rb, 4.05045e-04_rb, 5.09667e-04_rb, &
+     & 6.41313e-04_rb, 8.06964e-04_rb, 1.01540e-03_rb, 1.27768e-03_rb, 1.60770e-03_rb, &
+     & 2.02296e-03_rb, 2.54549e-03_rb, 3.20298e-03_rb, 4.03031e-03_rb/)
+      kbo_mn2o( 4, :, 1) = (/ &
+     & 3.23454e-04_rb, 3.82112e-04_rb, 4.51408e-04_rb, 5.33270e-04_rb, 6.29978e-04_rb, &
+     & 7.44223e-04_rb, 8.79187e-04_rb, 1.03863e-03_rb, 1.22698e-03_rb, 1.44949e-03_rb, &
+     & 1.71235e-03_rb, 2.02289e-03_rb, 2.38974e-03_rb, 2.82311e-03_rb, 3.33508e-03_rb, &
+     & 3.93989e-03_rb, 4.65439e-03_rb, 5.49845e-03_rb, 6.49558e-03_rb/)
+      kbo_mn2o( 5, :, 1) = (/ &
+     & 1.45978e-04_rb, 1.75646e-04_rb, 2.11344e-04_rb, 2.54296e-04_rb, 3.05978e-04_rb, &
+     & 3.68163e-04_rb, 4.42986e-04_rb, 5.33017e-04_rb, 6.41344e-04_rb, 7.71687e-04_rb, &
+     & 9.28522e-04_rb, 1.11723e-03_rb, 1.34429e-03_rb, 1.61750e-03_rb, 1.94623e-03_rb, &
+     & 2.34177e-03_rb, 2.81770e-03_rb, 3.39035e-03_rb, 4.07939e-03_rb/)
+      kbo_mn2o( 1, :, 2) = (/ &
+     & 1.94527e-04_rb, 2.38609e-04_rb, 2.92680e-04_rb, 3.59005e-04_rb, 4.40360e-04_rb, &
+     & 5.40150e-04_rb, 6.62554e-04_rb, 8.12697e-04_rb, 9.96864e-04_rb, 1.22276e-03_rb, &
+     & 1.49986e-03_rb, 1.83974e-03_rb, 2.25665e-03_rb, 2.76803e-03_rb, 3.39530e-03_rb, &
+     & 4.16472e-03_rb, 5.10849e-03_rb, 6.26613e-03_rb, 7.68611e-03_rb/)
+      kbo_mn2o( 2, :, 2) = (/ &
+     & 7.49615e-04_rb, 8.82716e-04_rb, 1.03945e-03_rb, 1.22401e-03_rb, 1.44135e-03_rb, &
+     & 1.69727e-03_rb, 1.99863e-03_rb, 2.35351e-03_rb, 2.77139e-03_rb, 3.26347e-03_rb, &
+     & 3.84293e-03_rb, 4.52528e-03_rb, 5.32878e-03_rb, 6.27495e-03_rb, 7.38911e-03_rb, &
+     & 8.70111e-03_rb, 1.02461e-02_rb, 1.20653e-02_rb, 1.42076e-02_rb/)
+      kbo_mn2o( 3, :, 2) = (/ &
+     & 1.39162e-03_rb, 1.59859e-03_rb, 1.83634e-03_rb, 2.10946e-03_rb, 2.42319e-03_rb, &
+     & 2.78358e-03_rb, 3.19758e-03_rb, 3.67314e-03_rb, 4.21944e-03_rb, 4.84698e-03_rb, &
+     & 5.56786e-03_rb, 6.39595e-03_rb, 7.34720e-03_rb, 8.43992e-03_rb, 9.69516e-03_rb, &
+     & 1.11371e-02_rb, 1.27935e-02_rb, 1.46962e-02_rb, 1.68819e-02_rb/)
+      kbo_mn2o( 4, :, 2) = (/ &
+     & 2.42354e-03_rb, 2.73623e-03_rb, 3.08926e-03_rb, 3.48783e-03_rb, 3.93783e-03_rb, &
+     & 4.44589e-03_rb, 5.01950e-03_rb, 5.66712e-03_rb, 6.39829e-03_rb, 7.22379e-03_rb, &
+     & 8.15581e-03_rb, 9.20807e-03_rb, 1.03961e-02_rb, 1.17374e-02_rb, 1.32517e-02_rb, &
+     & 1.49615e-02_rb, 1.68918e-02_rb, 1.90712e-02_rb, 2.15318e-02_rb/)
+      kbo_mn2o( 5, :, 2) = (/ &
+     & 1.39908e-03_rb, 1.59133e-03_rb, 1.81000e-03_rb, 2.05872e-03_rb, 2.34161e-03_rb, &
+     & 2.66338e-03_rb, 3.02937e-03_rb, 3.44564e-03_rb, 3.91912e-03_rb, 4.45766e-03_rb, &
+     & 5.07021e-03_rb, 5.76693e-03_rb, 6.55938e-03_rb, 7.46073e-03_rb, 8.48594e-03_rb, &
+     & 9.65202e-03_rb, 1.09783e-02_rb, 1.24869e-02_rb, 1.42028e-02_rb/)
+      kbo_mn2o( 1, :, 3) = (/ &
+     & 8.74797e-03_rb, 9.66828e-03_rb, 1.06854e-02_rb, 1.18095e-02_rb, 1.30519e-02_rb, &
+     & 1.44250e-02_rb, 1.59426e-02_rb, 1.76198e-02_rb, 1.94735e-02_rb, 2.15221e-02_rb, &
+     & 2.37863e-02_rb, 2.62887e-02_rb, 2.90544e-02_rb, 3.21110e-02_rb, 3.54891e-02_rb, &
+     & 3.92227e-02_rb, 4.33491e-02_rb, 4.79095e-02_rb, 5.29497e-02_rb/)
+      kbo_mn2o( 2, :, 3) = (/ &
+     & 1.43974e-02_rb, 1.56118e-02_rb, 1.69286e-02_rb, 1.83564e-02_rb, 1.99047e-02_rb, &
+     & 2.15836e-02_rb, 2.34041e-02_rb, 2.53781e-02_rb, 2.75187e-02_rb, 2.98397e-02_rb, &
+     & 3.23566e-02_rb, 3.50857e-02_rb, 3.80451e-02_rb, 4.12540e-02_rb, 4.47336e-02_rb, &
+     & 4.85067e-02_rb, 5.25980e-02_rb, 5.70344e-02_rb, 6.18450e-02_rb/)
+      kbo_mn2o( 3, :, 3) = (/ &
+     & 1.83051e-02_rb, 1.96851e-02_rb, 2.11692e-02_rb, 2.27651e-02_rb, 2.44813e-02_rb, &
+     & 2.63270e-02_rb, 2.83117e-02_rb, 3.04461e-02_rb, 3.27414e-02_rb, 3.52097e-02_rb, &
+     & 3.78642e-02_rb, 4.07187e-02_rb, 4.37884e-02_rb, 4.70896e-02_rb, 5.06396e-02_rb, &
+     & 5.44573e-02_rb, 5.85628e-02_rb, 6.29777e-02_rb, 6.77256e-02_rb/)
+      kbo_mn2o( 4, :, 3) = (/ &
+     & 2.81258e-02_rb, 2.97806e-02_rb, 3.15328e-02_rb, 3.33880e-02_rb, 3.53524e-02_rb, &
+     & 3.74324e-02_rb, 3.96348e-02_rb, 4.19667e-02_rb, 4.44358e-02_rb, 4.70502e-02_rb, &
+     & 4.98185e-02_rb, 5.27496e-02_rb, 5.58531e-02_rb, 5.91393e-02_rb, 6.26187e-02_rb, &
+     & 6.63030e-02_rb, 7.02039e-02_rb, 7.43344e-02_rb, 7.87079e-02_rb/)
+      kbo_mn2o( 5, :, 3) = (/ &
+     & 8.82958e-03_rb, 9.53842e-03_rb, 1.03042e-02_rb, 1.11314e-02_rb, 1.20250e-02_rb, &
+     & 1.29904e-02_rb, 1.40333e-02_rb, 1.51599e-02_rb, 1.63769e-02_rb, 1.76917e-02_rb, &
+     & 1.91120e-02_rb, 2.06463e-02_rb, 2.23038e-02_rb, 2.40944e-02_rb, 2.60287e-02_rb, &
+     & 2.81183e-02_rb, 3.03757e-02_rb, 3.28142e-02_rb, 3.54486e-02_rb/)
+      kbo_mn2o( 1, :, 4) = (/ &
+     & 1.18673e-01_rb, 1.22983e-01_rb, 1.27449e-01_rb, 1.32077e-01_rb, 1.36874e-01_rb, &
+     & 1.41845e-01_rb, 1.46996e-01_rb, 1.52334e-01_rb, 1.57866e-01_rb, 1.63599e-01_rb, &
+     & 1.69541e-01_rb, 1.75698e-01_rb, 1.82078e-01_rb, 1.88691e-01_rb, 1.95543e-01_rb, &
+     & 2.02645e-01_rb, 2.10004e-01_rb, 2.17631e-01_rb, 2.25534e-01_rb/)
+      kbo_mn2o( 2, :, 4) = (/ &
+     & 1.32161e-01_rb, 1.36550e-01_rb, 1.41084e-01_rb, 1.45769e-01_rb, 1.50610e-01_rb, &
+     & 1.55611e-01_rb, 1.60779e-01_rb, 1.66118e-01_rb, 1.71634e-01_rb, 1.77334e-01_rb, &
+     & 1.83223e-01_rb, 1.89307e-01_rb, 1.95594e-01_rb, 2.02089e-01_rb, 2.08800e-01_rb, &
+     & 2.15734e-01_rb, 2.22898e-01_rb, 2.30300e-01_rb, 2.37947e-01_rb/)
+      kbo_mn2o( 3, :, 4) = (/ &
+     & 1.44384e-01_rb, 1.48820e-01_rb, 1.53392e-01_rb, 1.58104e-01_rb, 1.62962e-01_rb, &
+     & 1.67968e-01_rb, 1.73128e-01_rb, 1.78447e-01_rb, 1.83929e-01_rb, 1.89580e-01_rb, &
+     & 1.95404e-01_rb, 2.01407e-01_rb, 2.07594e-01_rb, 2.13972e-01_rb, 2.20546e-01_rb, &
+     & 2.27321e-01_rb, 2.34305e-01_rb, 2.41503e-01_rb, 2.48922e-01_rb/)
+      kbo_mn2o( 4, :, 4) = (/ &
+     & 1.58026e-01_rb, 1.62626e-01_rb, 1.67360e-01_rb, 1.72232e-01_rb, 1.77245e-01_rb, &
+     & 1.82405e-01_rb, 1.87714e-01_rb, 1.93179e-01_rb, 1.98802e-01_rb, 2.04589e-01_rb, &
+     & 2.10544e-01_rb, 2.16673e-01_rb, 2.22980e-01_rb, 2.29471e-01_rb, 2.36151e-01_rb, &
+     & 2.43025e-01_rb, 2.50100e-01_rb, 2.57380e-01_rb, 2.64872e-01_rb/)
+      kbo_mn2o( 5, :, 4) = (/ &
+     & 4.04885e-02_rb, 4.16064e-02_rb, 4.27551e-02_rb, 4.39355e-02_rb, 4.51485e-02_rb, &
+     & 4.63950e-02_rb, 4.76759e-02_rb, 4.89921e-02_rb, 5.03448e-02_rb, 5.17347e-02_rb, &
+     & 5.31630e-02_rb, 5.46308e-02_rb, 5.61391e-02_rb, 5.76890e-02_rb, 5.92817e-02_rb, &
+     & 6.09184e-02_rb, 6.26003e-02_rb, 6.43286e-02_rb, 6.61047e-02_rb/)
+      kbo_mn2o( 1, :, 5) = (/ &
+     & 3.97757e-01_rb, 4.01082e-01_rb, 4.04434e-01_rb, 4.07814e-01_rb, 4.11223e-01_rb, &
+     & 4.14659e-01_rb, 4.18125e-01_rb, 4.21620e-01_rb, 4.25144e-01_rb, 4.28697e-01_rb, &
+     & 4.32280e-01_rb, 4.35893e-01_rb, 4.39536e-01_rb, 4.43209e-01_rb, 4.46913e-01_rb, &
+     & 4.50649e-01_rb, 4.54415e-01_rb, 4.58213e-01_rb, 4.62043e-01_rb/)
+      kbo_mn2o( 2, :, 5) = (/ &
+     & 3.99425e-01_rb, 4.02035e-01_rb, 4.04662e-01_rb, 4.07306e-01_rb, 4.09968e-01_rb, &
+     & 4.12647e-01_rb, 4.15343e-01_rb, 4.18057e-01_rb, 4.20789e-01_rb, 4.23539e-01_rb, &
+     & 4.26307e-01_rb, 4.29092e-01_rb, 4.31896e-01_rb, 4.34719e-01_rb, 4.37559e-01_rb, &
+     & 4.40419e-01_rb, 4.43296e-01_rb, 4.46193e-01_rb, 4.49109e-01_rb/)
+      kbo_mn2o( 3, :, 5) = (/ &
+     & 4.00527e-01_rb, 4.02848e-01_rb, 4.05182e-01_rb, 4.07530e-01_rb, 4.09892e-01_rb, &
+     & 4.12267e-01_rb, 4.14656e-01_rb, 4.17058e-01_rb, 4.19475e-01_rb, 4.21906e-01_rb, &
+     & 4.24351e-01_rb, 4.26809e-01_rb, 4.29283e-01_rb, 4.31770e-01_rb, 4.34272e-01_rb, &
+     & 4.36788e-01_rb, 4.39319e-01_rb, 4.41865e-01_rb, 4.44426e-01_rb/)
+      kbo_mn2o( 4, :, 5) = (/ &
+     & 4.11455e-01_rb, 4.13077e-01_rb, 4.14705e-01_rb, 4.16340e-01_rb, 4.17981e-01_rb, &
+     & 4.19629e-01_rb, 4.21283e-01_rb, 4.22944e-01_rb, 4.24611e-01_rb, 4.26285e-01_rb, &
+     & 4.27966e-01_rb, 4.29653e-01_rb, 4.31346e-01_rb, 4.33047e-01_rb, 4.34754e-01_rb, &
+     & 4.36468e-01_rb, 4.38188e-01_rb, 4.39916e-01_rb, 4.41650e-01_rb/)
+      kbo_mn2o( 5, :, 5) = (/ &
+     & 8.65576e-02_rb, 8.83622e-02_rb, 9.02044e-02_rb, 9.20850e-02_rb, 9.40049e-02_rb, &
+     & 9.59647e-02_rb, 9.79655e-02_rb, 1.00008e-01_rb, 1.02093e-01_rb, 1.04221e-01_rb, &
+     & 1.06394e-01_rb, 1.08612e-01_rb, 1.10877e-01_rb, 1.13188e-01_rb, 1.15548e-01_rb, &
+     & 1.17957e-01_rb, 1.20417e-01_rb, 1.22927e-01_rb, 1.25490e-01_rb/)
+      kbo_mn2o( 1, :, 6) = (/ &
+     & 6.98675e-01_rb, 7.00999e-01_rb, 7.03331e-01_rb, 7.05671e-01_rb, 7.08019e-01_rb, &
+     & 7.10375e-01_rb, 7.12738e-01_rb, 7.15110e-01_rb, 7.17489e-01_rb, 7.19876e-01_rb, &
+     & 7.22271e-01_rb, 7.24674e-01_rb, 7.27085e-01_rb, 7.29504e-01_rb, 7.31931e-01_rb, &
+     & 7.34366e-01_rb, 7.36809e-01_rb, 7.39261e-01_rb, 7.41720e-01_rb/)
+      kbo_mn2o( 2, :, 6) = (/ &
+     & 6.98858e-01_rb, 7.01424e-01_rb, 7.03999e-01_rb, 7.06583e-01_rb, 7.09177e-01_rb, &
+     & 7.11780e-01_rb, 7.14393e-01_rb, 7.17016e-01_rb, 7.19648e-01_rb, 7.22289e-01_rb, &
+     & 7.24941e-01_rb, 7.27602e-01_rb, 7.30273e-01_rb, 7.32954e-01_rb, 7.35644e-01_rb, &
+     & 7.38345e-01_rb, 7.41055e-01_rb, 7.43775e-01_rb, 7.46506e-01_rb/)
+      kbo_mn2o( 3, :, 6) = (/ &
+     & 7.08151e-01_rb, 7.10727e-01_rb, 7.13311e-01_rb, 7.15905e-01_rb, 7.18508e-01_rb, &
+     & 7.21121e-01_rb, 7.23743e-01_rb, 7.26375e-01_rb, 7.29017e-01_rb, 7.31668e-01_rb, &
+     & 7.34329e-01_rb, 7.36999e-01_rb, 7.39679e-01_rb, 7.42369e-01_rb, 7.45068e-01_rb, &
+     & 7.47778e-01_rb, 7.50497e-01_rb, 7.53226e-01_rb, 7.55965e-01_rb/)
+      kbo_mn2o( 4, :, 6) = (/ &
+     & 7.22269e-01_rb, 7.24981e-01_rb, 7.27704e-01_rb, 7.30437e-01_rb, 7.33180e-01_rb, &
+     & 7.35933e-01_rb, 7.38697e-01_rb, 7.41471e-01_rb, 7.44256e-01_rb, 7.47051e-01_rb, &
+     & 7.49856e-01_rb, 7.52672e-01_rb, 7.55499e-01_rb, 7.58336e-01_rb, 7.61184e-01_rb, &
+     & 7.64043e-01_rb, 7.66912e-01_rb, 7.69792e-01_rb, 7.72683e-01_rb/)
+      kbo_mn2o( 5, :, 6) = (/ &
+     & 1.75877e-01_rb, 1.78578e-01_rb, 1.81321e-01_rb, 1.84107e-01_rb, 1.86935e-01_rb, &
+     & 1.89806e-01_rb, 1.92722e-01_rb, 1.95682e-01_rb, 1.98688e-01_rb, 2.01740e-01_rb, &
+     & 2.04839e-01_rb, 2.07986e-01_rb, 2.11181e-01_rb, 2.14425e-01_rb, 2.17719e-01_rb, &
+     & 2.21063e-01_rb, 2.24459e-01_rb, 2.27907e-01_rb, 2.31408e-01_rb/)
+      kbo_mn2o( 1, :, 7) = (/ &
+     & 1.82985e+00_rb, 1.83684e+00_rb, 1.84386e+00_rb, 1.85091e+00_rb, 1.85798e+00_rb, &
+     & 1.86508e+00_rb, 1.87221e+00_rb, 1.87937e+00_rb, 1.88655e+00_rb, 1.89376e+00_rb, &
+     & 1.90100e+00_rb, 1.90827e+00_rb, 1.91556e+00_rb, 1.92288e+00_rb, 1.93023e+00_rb, &
+     & 1.93761e+00_rb, 1.94502e+00_rb, 1.95245e+00_rb, 1.95991e+00_rb/)
+      kbo_mn2o( 2, :, 7) = (/ &
+     & 1.83229e+00_rb, 1.83943e+00_rb, 1.84659e+00_rb, 1.85379e+00_rb, 1.86100e+00_rb, &
+     & 1.86825e+00_rb, 1.87553e+00_rb, 1.88283e+00_rb, 1.89016e+00_rb, 1.89753e+00_rb, &
+     & 1.90492e+00_rb, 1.91233e+00_rb, 1.91978e+00_rb, 1.92726e+00_rb, 1.93476e+00_rb, &
+     & 1.94230e+00_rb, 1.94986e+00_rb, 1.95746e+00_rb, 1.96508e+00_rb/)
+      kbo_mn2o( 3, :, 7) = (/ &
+     & 1.84946e+00_rb, 1.85707e+00_rb, 1.86471e+00_rb, 1.87238e+00_rb, 1.88008e+00_rb, &
+     & 1.88781e+00_rb, 1.89558e+00_rb, 1.90338e+00_rb, 1.91120e+00_rb, 1.91907e+00_rb, &
+     & 1.92696e+00_rb, 1.93489e+00_rb, 1.94285e+00_rb, 1.95084e+00_rb, 1.95886e+00_rb, &
+     & 1.96692e+00_rb, 1.97501e+00_rb, 1.98313e+00_rb, 1.99129e+00_rb/)
+      kbo_mn2o( 4, :, 7) = (/ &
+     & 1.88354e+00_rb, 1.89167e+00_rb, 1.89983e+00_rb, 1.90803e+00_rb, 1.91626e+00_rb, &
+     & 1.92453e+00_rb, 1.93283e+00_rb, 1.94117e+00_rb, 1.94955e+00_rb, 1.95796e+00_rb, &
+     & 1.96641e+00_rb, 1.97489e+00_rb, 1.98341e+00_rb, 1.99197e+00_rb, 2.00056e+00_rb, &
+     & 2.00920e+00_rb, 2.01787e+00_rb, 2.02657e+00_rb, 2.03532e+00_rb/)
+      kbo_mn2o( 5, :, 7) = (/ &
+     & 3.35154e-01_rb, 3.43258e-01_rb, 3.51557e-01_rb, 3.60058e-01_rb, 3.68764e-01_rb, &
+     & 3.77680e-01_rb, 3.86812e-01_rb, 3.96164e-01_rb, 4.05743e-01_rb, 4.15553e-01_rb, &
+     & 4.25601e-01_rb, 4.35892e-01_rb, 4.46431e-01_rb, 4.57225e-01_rb, 4.68280e-01_rb, &
+     & 4.79603e-01_rb, 4.91199e-01_rb, 5.03075e-01_rb, 5.15239e-01_rb/)
+      kbo_mn2o( 1, :, 8) = (/ &
+     & 4.46843e+00_rb, 4.49793e+00_rb, 4.52763e+00_rb, 4.55752e+00_rb, 4.58761e+00_rb, &
+     & 4.61790e+00_rb, 4.64839e+00_rb, 4.67908e+00_rb, 4.70997e+00_rb, 4.74106e+00_rb, &
+     & 4.77236e+00_rb, 4.80387e+00_rb, 4.83559e+00_rb, 4.86751e+00_rb, 4.89965e+00_rb, &
+     & 4.93200e+00_rb, 4.96456e+00_rb, 4.99733e+00_rb, 5.03033e+00_rb/)
+      kbo_mn2o( 2, :, 8) = (/ &
+     & 4.44347e+00_rb, 4.47278e+00_rb, 4.50228e+00_rb, 4.53198e+00_rb, 4.56188e+00_rb, &
+     & 4.59197e+00_rb, 4.62227e+00_rb, 4.65276e+00_rb, 4.68345e+00_rb, 4.71435e+00_rb, &
+     & 4.74544e+00_rb, 4.77675e+00_rb, 4.80826e+00_rb, 4.83998e+00_rb, 4.87191e+00_rb, &
+     & 4.90405e+00_rb, 4.93640e+00_rb, 4.96896e+00_rb, 5.00174e+00_rb/)
+      kbo_mn2o( 3, :, 8) = (/ &
+     & 4.43138e+00_rb, 4.46017e+00_rb, 4.48916e+00_rb, 4.51834e+00_rb, 4.54770e+00_rb, &
+     & 4.57725e+00_rb, 4.60700e+00_rb, 4.63694e+00_rb, 4.66708e+00_rb, 4.69741e+00_rb, &
+     & 4.72793e+00_rb, 4.75866e+00_rb, 4.78958e+00_rb, 4.82071e+00_rb, 4.85204e+00_rb, &
+     & 4.88357e+00_rb, 4.91531e+00_rb, 4.94725e+00_rb, 4.97941e+00_rb/)
+      kbo_mn2o( 4, :, 8) = (/ &
+     & 4.47437e+00_rb, 4.50396e+00_rb, 4.53375e+00_rb, 4.56374e+00_rb, 4.59392e+00_rb, &
+     & 4.62431e+00_rb, 4.65490e+00_rb, 4.68569e+00_rb, 4.71668e+00_rb, 4.74788e+00_rb, &
+     & 4.77928e+00_rb, 4.81089e+00_rb, 4.84271e+00_rb, 4.87474e+00_rb, 4.90698e+00_rb, &
+     & 4.93944e+00_rb, 4.97211e+00_rb, 5.00500e+00_rb, 5.03810e+00_rb/)
+      kbo_mn2o( 5, :, 8) = (/ &
+     & 8.82838e-01_rb, 8.92257e-01_rb, 9.01777e-01_rb, 9.11398e-01_rb, 9.21122e-01_rb, &
+     & 9.30950e-01_rb, 9.40883e-01_rb, 9.50921e-01_rb, 9.61067e-01_rb, 9.71321e-01_rb, &
+     & 9.81685e-01_rb, 9.92159e-01_rb, 1.00274e+00_rb, 1.01344e+00_rb, 1.02426e+00_rb, &
+     & 1.03518e+00_rb, 1.04623e+00_rb, 1.05739e+00_rb, 1.06867e+00_rb/)
+      kbo_mn2o( 1, :, 9) = (/ &
+     & 7.92826e+00_rb, 7.83168e+00_rb, 7.73628e+00_rb, 7.64204e+00_rb, 7.54895e+00_rb, &
+     & 7.45699e+00_rb, 7.36616e+00_rb, 7.27643e+00_rb, 7.18779e+00_rb, 7.10023e+00_rb, &
+     & 7.01374e+00_rb, 6.92831e+00_rb, 6.84391e+00_rb, 6.76054e+00_rb, 6.67819e+00_rb, &
+     & 6.59684e+00_rb, 6.51648e+00_rb, 6.43710e+00_rb, 6.35869e+00_rb/)
+      kbo_mn2o( 2, :, 9) = (/ &
+     & 7.89244e+00_rb, 7.79570e+00_rb, 7.70014e+00_rb, 7.60576e+00_rb, 7.51253e+00_rb, &
+     & 7.42045e+00_rb, 7.32949e+00_rb, 7.23965e+00_rb, 7.15091e+00_rb, 7.06325e+00_rb, &
+     & 6.97668e+00_rb, 6.89116e+00_rb, 6.80669e+00_rb, 6.72326e+00_rb, 6.64085e+00_rb, &
+     & 6.55945e+00_rb, 6.47904e+00_rb, 6.39963e+00_rb, 6.32118e+00_rb/)
+      kbo_mn2o( 3, :, 9) = (/ &
+     & 7.79799e+00_rb, 7.70076e+00_rb, 7.60474e+00_rb, 7.50991e+00_rb, 7.41627e+00_rb, &
+     & 7.32379e+00_rb, 7.23247e+00_rb, 7.14229e+00_rb, 7.05323e+00_rb, 6.96528e+00_rb, &
+     & 6.87843e+00_rb, 6.79266e+00_rb, 6.70797e+00_rb, 6.62432e+00_rb, 6.54172e+00_rb, &
+     & 6.46015e+00_rb, 6.37960e+00_rb, 6.30005e+00_rb, 6.22150e+00_rb/)
+      kbo_mn2o( 4, :, 9) = (/ &
+     & 7.53750e+00_rb, 7.43715e+00_rb, 7.33814e+00_rb, 7.24045e+00_rb, 7.14406e+00_rb, &
+     & 7.04895e+00_rb, 6.95510e+00_rb, 6.86251e+00_rb, 6.77115e+00_rb, 6.68101e+00_rb, &
+     & 6.59206e+00_rb, 6.50430e+00_rb, 6.41771e+00_rb, 6.33227e+00_rb, 6.24797e+00_rb, &
+     & 6.16479e+00_rb, 6.08272e+00_rb, 6.00174e+00_rb, 5.92184e+00_rb/)
+      kbo_mn2o( 5, :, 9) = (/ &
+     & 5.06319e+00_rb, 5.08595e+00_rb, 5.10881e+00_rb, 5.13177e+00_rb, 5.15483e+00_rb, &
+     & 5.17800e+00_rb, 5.20127e+00_rb, 5.22464e+00_rb, 5.24813e+00_rb, 5.27171e+00_rb, &
+     & 5.29540e+00_rb, 5.31920e+00_rb, 5.34311e+00_rb, 5.36712e+00_rb, 5.39124e+00_rb, &
+     & 5.41547e+00_rb, 5.43981e+00_rb, 5.46426e+00_rb, 5.48882e+00_rb/)
+      kbo_mn2o( 1, :,10) = (/ &
+     & 1.05265e+00_rb, 1.03986e+00_rb, 1.02723e+00_rb, 1.01475e+00_rb, 1.00243e+00_rb, &
+     & 9.90250e-01_rb, 9.78220e-01_rb, 9.66338e-01_rb, 9.54599e-01_rb, 9.43003e-01_rb, &
+     & 9.31548e-01_rb, 9.20232e-01_rb, 9.09054e-01_rb, 8.98011e-01_rb, 8.87102e-01_rb, &
+     & 8.76326e-01_rb, 8.65681e-01_rb, 8.55165e-01_rb, 8.44777e-01_rb/)
+      kbo_mn2o( 2, :,10) = (/ &
+     & 1.05246e+00_rb, 1.03973e+00_rb, 1.02714e+00_rb, 1.01471e+00_rb, 1.00243e+00_rb, &
+     & 9.90303e-01_rb, 9.78319e-01_rb, 9.66480e-01_rb, 9.54784e-01_rb, 9.43230e-01_rb, &
+     & 9.31815e-01_rb, 9.20539e-01_rb, 9.09399e-01_rb, 8.98394e-01_rb, 8.87522e-01_rb, &
+     & 8.76782e-01_rb, 8.66171e-01_rb, 8.55690e-01_rb, 8.45335e-01_rb/)
+      kbo_mn2o( 3, :,10) = (/ &
+     & 1.05236e+00_rb, 1.03963e+00_rb, 1.02704e+00_rb, 1.01461e+00_rb, 1.00233e+00_rb, &
+     & 9.90203e-01_rb, 9.78219e-01_rb, 9.66380e-01_rb, 9.54684e-01_rb, 9.43130e-01_rb, &
+     & 9.31715e-01_rb, 9.20439e-01_rb, 9.09300e-01_rb, 8.98295e-01_rb, 8.87423e-01_rb, &
+     & 8.76683e-01_rb, 8.66073e-01_rb, 8.55591e-01_rb, 8.45236e-01_rb/)
+      kbo_mn2o( 4, :,10) = (/ &
+     & 9.30836e-01_rb, 9.21099e-01_rb, 9.11464e-01_rb, 9.01930e-01_rb, 8.92495e-01_rb, &
+     & 8.83159e-01_rb, 8.73921e-01_rb, 8.64779e-01_rb, 8.55733e-01_rb, 8.46781e-01_rb, &
+     & 8.37923e-01_rb, 8.29158e-01_rb, 8.20485e-01_rb, 8.11902e-01_rb, 8.03409e-01_rb, &
+     & 7.95005e-01_rb, 7.86689e-01_rb, 7.78460e-01_rb, 7.70316e-01_rb/)
+      kbo_mn2o( 5, :,10) = (/ &
+     & 1.65786e+01_rb, 1.66541e+01_rb, 1.67299e+01_rb, 1.68062e+01_rb, 1.68827e+01_rb, &
+     & 1.69596e+01_rb, 1.70369e+01_rb, 1.71145e+01_rb, 1.71925e+01_rb, 1.72708e+01_rb, &
+     & 1.73495e+01_rb, 1.74285e+01_rb, 1.75079e+01_rb, 1.75877e+01_rb, 1.76678e+01_rb, &
+     & 1.77483e+01_rb, 1.78291e+01_rb, 1.79103e+01_rb, 1.79919e+01_rb/)
+      kbo_mn2o( 1, :,11) = (/ &
+     & 1.74239e-01_rb, 1.77873e-01_rb, 1.81583e-01_rb, 1.85370e-01_rb, 1.89236e-01_rb, &
+     & 1.93182e-01_rb, 1.97211e-01_rb, 2.01324e-01_rb, 2.05523e-01_rb, 2.09809e-01_rb, &
+     & 2.14185e-01_rb, 2.18652e-01_rb, 2.23212e-01_rb, 2.27867e-01_rb, 2.32620e-01_rb, &
+     & 2.37471e-01_rb, 2.42424e-01_rb, 2.47479e-01_rb, 2.52641e-01_rb/)
+      kbo_mn2o( 2, :,11) = (/ &
+     & 1.74114e-01_rb, 1.77756e-01_rb, 1.81475e-01_rb, 1.85271e-01_rb, 1.89147e-01_rb, &
+     & 1.93104e-01_rb, 1.97144e-01_rb, 2.01268e-01_rb, 2.05479e-01_rb, 2.09778e-01_rb, &
+     & 2.14166e-01_rb, 2.18647e-01_rb, 2.23221e-01_rb, 2.27890e-01_rb, 2.32658e-01_rb, &
+     & 2.37525e-01_rb, 2.42494e-01_rb, 2.47567e-01_rb, 2.52746e-01_rb/)
+      kbo_mn2o( 3, :,11) = (/ &
+     & 1.74142e-01_rb, 1.77780e-01_rb, 1.81494e-01_rb, 1.85286e-01_rb, 1.89157e-01_rb, &
+     & 1.93108e-01_rb, 1.97143e-01_rb, 2.01261e-01_rb, 2.05466e-01_rb, 2.09759e-01_rb, &
+     & 2.14141e-01_rb, 2.18615e-01_rb, 2.23182e-01_rb, 2.27845e-01_rb, 2.32605e-01_rb, &
+     & 2.37464e-01_rb, 2.42425e-01_rb, 2.47490e-01_rb, 2.52661e-01_rb/)
+      kbo_mn2o( 4, :,11) = (/ &
+     & 1.74074e-01_rb, 1.77716e-01_rb, 1.81435e-01_rb, 1.85231e-01_rb, 1.89107e-01_rb, &
+     & 1.93064e-01_rb, 1.97104e-01_rb, 2.01229e-01_rb, 2.05439e-01_rb, 2.09738e-01_rb, &
+     & 2.14127e-01_rb, 2.18607e-01_rb, 2.23181e-01_rb, 2.27852e-01_rb, 2.32619e-01_rb, &
+     & 2.37487e-01_rb, 2.42456e-01_rb, 2.47529e-01_rb, 2.52709e-01_rb/)
+      kbo_mn2o( 5, :,11) = (/ &
+     & 2.31905e+01_rb, 2.33011e+01_rb, 2.34123e+01_rb, 2.35240e+01_rb, 2.36362e+01_rb, &
+     & 2.37489e+01_rb, 2.38622e+01_rb, 2.39760e+01_rb, 2.40904e+01_rb, 2.42053e+01_rb, &
+     & 2.43208e+01_rb, 2.44368e+01_rb, 2.45533e+01_rb, 2.46705e+01_rb, 2.47881e+01_rb, &
+     & 2.49064e+01_rb, 2.50252e+01_rb, 2.51446e+01_rb, 2.52645e+01_rb/)
+      kbo_mn2o( 1, :,12) = (/ &
+     & 1.60269e-01_rb, 1.62873e-01_rb, 1.65519e-01_rb, 1.68208e-01_rb, 1.70940e-01_rb, &
+     & 1.73717e-01_rb, 1.76540e-01_rb, 1.79408e-01_rb, 1.82322e-01_rb, 1.85284e-01_rb, &
+     & 1.88295e-01_rb, 1.91354e-01_rb, 1.94462e-01_rb, 1.97622e-01_rb, 2.00832e-01_rb, &
+     & 2.04095e-01_rb, 2.07411e-01_rb, 2.10780e-01_rb, 2.14205e-01_rb/)
+      kbo_mn2o( 2, :,12) = (/ &
+     & 1.60497e-01_rb, 1.63096e-01_rb, 1.65738e-01_rb, 1.68422e-01_rb, 1.71150e-01_rb, &
+     & 1.73922e-01_rb, 1.76738e-01_rb, 1.79601e-01_rb, 1.82510e-01_rb, 1.85466e-01_rb, &
+     & 1.88469e-01_rb, 1.91522e-01_rb, 1.94624e-01_rb, 1.97776e-01_rb, 2.00979e-01_rb, &
+     & 2.04234e-01_rb, 2.07542e-01_rb, 2.10903e-01_rb, 2.14319e-01_rb/)
+      kbo_mn2o( 3, :,12) = (/ &
+     & 1.60407e-01_rb, 1.63006e-01_rb, 1.65648e-01_rb, 1.68332e-01_rb, 1.71060e-01_rb, &
+     & 1.73832e-01_rb, 1.76649e-01_rb, 1.79511e-01_rb, 1.82420e-01_rb, 1.85376e-01_rb, &
+     & 1.88380e-01_rb, 1.91433e-01_rb, 1.94535e-01_rb, 1.97687e-01_rb, 2.00891e-01_rb, &
+     & 2.04146e-01_rb, 2.07454e-01_rb, 2.10816e-01_rb, 2.14232e-01_rb/)
+      kbo_mn2o( 4, :,12) = (/ &
+     & 1.60475e-01_rb, 1.63070e-01_rb, 1.65706e-01_rb, 1.68386e-01_rb, 1.71109e-01_rb, &
+     & 1.73876e-01_rb, 1.76687e-01_rb, 1.79544e-01_rb, 1.82448e-01_rb, 1.85398e-01_rb, &
+     & 1.88396e-01_rb, 1.91442e-01_rb, 1.94538e-01_rb, 1.97684e-01_rb, 2.00881e-01_rb, &
+     & 2.04129e-01_rb, 2.07430e-01_rb, 2.10784e-01_rb, 2.14192e-01_rb/)
+      kbo_mn2o( 5, :,12) = (/ &
+     & 3.25743e+01_rb, 3.27992e+01_rb, 3.30256e+01_rb, 3.32536e+01_rb, 3.34832e+01_rb, &
+     & 3.37143e+01_rb, 3.39471e+01_rb, 3.41815e+01_rb, 3.44174e+01_rb, 3.46550e+01_rb, &
+     & 3.48943e+01_rb, 3.51352e+01_rb, 3.53778e+01_rb, 3.56220e+01_rb, 3.58679e+01_rb, &
+     & 3.61156e+01_rb, 3.63649e+01_rb, 3.66159e+01_rb, 3.68687e+01_rb/)
+      kbo_mn2o( 1, :,13) = (/ &
+     & 2.01846e-01_rb, 2.03110e-01_rb, 2.04381e-01_rb, 2.05660e-01_rb, 2.06947e-01_rb, &
+     & 2.08242e-01_rb, 2.09546e-01_rb, 2.10857e-01_rb, 2.12177e-01_rb, 2.13505e-01_rb, &
+     & 2.14841e-01_rb, 2.16186e-01_rb, 2.17539e-01_rb, 2.18900e-01_rb, 2.20270e-01_rb, &
+     & 2.21649e-01_rb, 2.23036e-01_rb, 2.24432e-01_rb, 2.25837e-01_rb/)
+      kbo_mn2o( 2, :,13) = (/ &
+     & 2.01756e-01_rb, 2.03020e-01_rb, 2.04291e-01_rb, 2.05570e-01_rb, 2.06857e-01_rb, &
+     & 2.08152e-01_rb, 2.09456e-01_rb, 2.10767e-01_rb, 2.12087e-01_rb, 2.13415e-01_rb, &
+     & 2.14751e-01_rb, 2.16096e-01_rb, 2.17449e-01_rb, 2.18810e-01_rb, 2.20181e-01_rb, &
+     & 2.21559e-01_rb, 2.22946e-01_rb, 2.24342e-01_rb, 2.25747e-01_rb/)
+      kbo_mn2o( 3, :,13) = (/ &
+     & 2.01836e-01_rb, 2.03100e-01_rb, 2.04371e-01_rb, 2.05650e-01_rb, 2.06937e-01_rb, &
+     & 2.08232e-01_rb, 2.09536e-01_rb, 2.10847e-01_rb, 2.12167e-01_rb, 2.13495e-01_rb, &
+     & 2.14831e-01_rb, 2.16176e-01_rb, 2.17529e-01_rb, 2.18890e-01_rb, 2.20260e-01_rb, &
+     & 2.21639e-01_rb, 2.23026e-01_rb, 2.24422e-01_rb, 2.25827e-01_rb/)
+      kbo_mn2o( 4, :,13) = (/ &
+     & 2.01845e-01_rb, 2.03103e-01_rb, 2.04370e-01_rb, 2.05644e-01_rb, 2.06926e-01_rb, &
+     & 2.08217e-01_rb, 2.09515e-01_rb, 2.10822e-01_rb, 2.12136e-01_rb, 2.13459e-01_rb, &
+     & 2.14790e-01_rb, 2.16129e-01_rb, 2.17477e-01_rb, 2.18833e-01_rb, 2.20198e-01_rb, &
+     & 2.21571e-01_rb, 2.22952e-01_rb, 2.24343e-01_rb, 2.25741e-01_rb/)
+      kbo_mn2o( 5, :,13) = (/ &
+     & 5.34154e+01_rb, 5.31954e+01_rb, 5.29763e+01_rb, 5.27582e+01_rb, 5.25409e+01_rb, &
+     & 5.23245e+01_rb, 5.21090e+01_rb, 5.18943e+01_rb, 5.16806e+01_rb, 5.14677e+01_rb, &
+     & 5.12558e+01_rb, 5.10446e+01_rb, 5.08344e+01_rb, 5.06250e+01_rb, 5.04165e+01_rb, &
+     & 5.02089e+01_rb, 5.00021e+01_rb, 4.97961e+01_rb, 4.95910e+01_rb/)
+      kbo_mn2o( 1, :,14) = (/ &
+     & 2.87818e-02_rb, 3.17868e-02_rb, 3.51056e-02_rb, 3.87708e-02_rb, 4.28187e-02_rb, &
+     & 4.72893e-02_rb, 5.22266e-02_rb, 5.76794e-02_rb, 6.37015e-02_rb, 7.03523e-02_rb, &
+     & 7.76976e-02_rb, 8.58097e-02_rb, 9.47688e-02_rb, 1.04663e-01_rb, 1.15591e-01_rb, &
+     & 1.27659e-01_rb, 1.40988e-01_rb, 1.55708e-01_rb, 1.71965e-01_rb/)
+      kbo_mn2o( 2, :,14) = (/ &
+     & 2.88500e-02_rb, 3.18494e-02_rb, 3.51606e-02_rb, 3.88161e-02_rb, 4.28517e-02_rb, &
+     & 4.73068e-02_rb, 5.22251e-02_rb, 5.76547e-02_rb, 6.36488e-02_rb, 7.02661e-02_rb, &
+     & 7.75714e-02_rb, 8.56362e-02_rb, 9.45395e-02_rb, 1.04368e-01_rb, 1.15219e-01_rb, &
+     & 1.27198e-01_rb, 1.40422e-01_rb, 1.55021e-01_rb, 1.71138e-01_rb/)
+      kbo_mn2o( 3, :,14) = (/ &
+     & 2.88036e-02_rb, 3.18109e-02_rb, 3.51322e-02_rb, 3.88002e-02_rb, 4.28512e-02_rb, &
+     & 4.73252e-02_rb, 5.22663e-02_rb, 5.77232e-02_rb, 6.37499e-02_rb, 7.04058e-02_rb, &
+     & 7.77567e-02_rb, 8.58751e-02_rb, 9.48410e-02_rb, 1.04743e-01_rb, 1.15679e-01_rb, &
+     & 1.27757e-01_rb, 1.41095e-01_rb, 1.55827e-01_rb, 1.72096e-01_rb/)
+      kbo_mn2o( 4, :,14) = (/ &
+     & 2.87750e-02_rb, 3.17783e-02_rb, 3.50951e-02_rb, 3.87580e-02_rb, 4.28033e-02_rb, &
+     & 4.72708e-02_rb, 5.22046e-02_rb, 5.76533e-02_rb, 6.36707e-02_rb, 7.03162e-02_rb, &
+     & 7.76553e-02_rb, 8.57604e-02_rb, 9.47114e-02_rb, 1.04597e-01_rb, 1.15514e-01_rb, &
+     & 1.27570e-01_rb, 1.40885e-01_rb, 1.55589e-01_rb, 1.71829e-01_rb/)
+      kbo_mn2o( 5, :,14) = (/ &
+     & 1.11848e+02_rb, 1.09489e+02_rb, 1.07179e+02_rb, 1.04918e+02_rb, 1.02705e+02_rb, &
+     & 1.00538e+02_rb, 9.84175e+01_rb, 9.63414e+01_rb, 9.43091e+01_rb, 9.23196e+01_rb, &
+     & 9.03722e+01_rb, 8.84658e+01_rb, 8.65996e+01_rb, 8.47728e+01_rb, 8.29845e+01_rb, &
+     & 8.12339e+01_rb, 7.95203e+01_rb, 7.78428e+01_rb, 7.62007e+01_rb/)
+      kbo_mn2o( 1, :,15) = (/ &
+     & 1.52234e-02_rb, 1.69256e-02_rb, 1.88181e-02_rb, 2.09222e-02_rb, 2.32617e-02_rb, &
+     & 2.58626e-02_rb, 2.87545e-02_rb, 3.19696e-02_rb, 3.55443e-02_rb, 3.95187e-02_rb, &
+     & 4.39374e-02_rb, 4.88503e-02_rb, 5.43124e-02_rb, 6.03854e-02_rb, 6.71373e-02_rb, &
+     & 7.46443e-02_rb, 8.29906e-02_rb, 9.22701e-02_rb, 1.02587e-01_rb/)
+      kbo_mn2o( 2, :,15) = (/ &
+     & 1.52234e-02_rb, 1.69256e-02_rb, 1.88181e-02_rb, 2.09222e-02_rb, 2.32617e-02_rb, &
+     & 2.58626e-02_rb, 2.87545e-02_rb, 3.19696e-02_rb, 3.55443e-02_rb, 3.95187e-02_rb, &
+     & 4.39374e-02_rb, 4.88503e-02_rb, 5.43124e-02_rb, 6.03854e-02_rb, 6.71373e-02_rb, &
+     & 7.46443e-02_rb, 8.29906e-02_rb, 9.22701e-02_rb, 1.02587e-01_rb/)
+      kbo_mn2o( 3, :,15) = (/ &
+     & 1.52076e-02_rb, 1.69049e-02_rb, 1.87916e-02_rb, 2.08890e-02_rb, 2.32203e-02_rb, &
+     & 2.58119e-02_rb, 2.86928e-02_rb, 3.18951e-02_rb, 3.54549e-02_rb, 3.94120e-02_rb, &
+     & 4.38107e-02_rb, 4.87003e-02_rb, 5.41357e-02_rb, 6.01777e-02_rb, 6.68940e-02_rb, &
+     & 7.43600e-02_rb, 8.26593e-02_rb, 9.18847e-02_rb, 1.02140e-01_rb/)
+      kbo_mn2o( 4, :,15) = (/ &
+     & 1.52422e-02_rb, 1.69488e-02_rb, 1.88464e-02_rb, 2.09565e-02_rb, 2.33028e-02_rb, &
+     & 2.59118e-02_rb, 2.88129e-02_rb, 3.20389e-02_rb, 3.56260e-02_rb, 3.96148e-02_rb, &
+     & 4.40501e-02_rb, 4.89821e-02_rb, 5.44662e-02_rb, 6.05643e-02_rb, 6.73452e-02_rb, &
+     & 7.48853e-02_rb, 8.32696e-02_rb, 9.25927e-02_rb, 1.02959e-01_rb/)
+      kbo_mn2o( 5, :,15) = (/ &
+     & 6.94782e+01_rb, 6.73469e+01_rb, 6.52810e+01_rb, 6.32785e+01_rb, 6.13373e+01_rb, &
+     & 5.94558e+01_rb, 5.76319e+01_rb, 5.58640e+01_rb, 5.41503e+01_rb, 5.24892e+01_rb, &
+     & 5.08791e+01_rb, 4.93183e+01_rb, 4.78055e+01_rb, 4.63390e+01_rb, 4.49175e+01_rb, &
+     & 4.35396e+01_rb, 4.22040e+01_rb, 4.09094e+01_rb, 3.96544e+01_rb/)
+      kbo_mn2o( 1, :,16) = (/ &
+     & 1.08257e-02_rb, 1.15188e-02_rb, 1.22563e-02_rb, 1.30410e-02_rb, 1.38759e-02_rb, &
+     & 1.47643e-02_rb, 1.57096e-02_rb, 1.67154e-02_rb, 1.77857e-02_rb, 1.89244e-02_rb, &
+     & 2.01360e-02_rb, 2.14252e-02_rb, 2.27970e-02_rb, 2.42565e-02_rb, 2.58096e-02_rb, &
+     & 2.74620e-02_rb, 2.92203e-02_rb, 3.10911e-02_rb, 3.30817e-02_rb/)
+      kbo_mn2o( 2, :,16) = (/ &
+     & 1.08257e-02_rb, 1.15188e-02_rb, 1.22563e-02_rb, 1.30410e-02_rb, 1.38759e-02_rb, &
+     & 1.47643e-02_rb, 1.57096e-02_rb, 1.67154e-02_rb, 1.77857e-02_rb, 1.89244e-02_rb, &
+     & 2.01360e-02_rb, 2.14252e-02_rb, 2.27970e-02_rb, 2.42565e-02_rb, 2.58096e-02_rb, &
+     & 2.74620e-02_rb, 2.92203e-02_rb, 3.10911e-02_rb, 3.30817e-02_rb/)
+      kbo_mn2o( 3, :,16) = (/ &
+     & 1.08257e-02_rb, 1.15188e-02_rb, 1.22563e-02_rb, 1.30410e-02_rb, 1.38759e-02_rb, &
+     & 1.47643e-02_rb, 1.57096e-02_rb, 1.67154e-02_rb, 1.77857e-02_rb, 1.89244e-02_rb, &
+     & 2.01360e-02_rb, 2.14252e-02_rb, 2.27970e-02_rb, 2.42565e-02_rb, 2.58096e-02_rb, &
+     & 2.74620e-02_rb, 2.92203e-02_rb, 3.10911e-02_rb, 3.30817e-02_rb/)
+      kbo_mn2o( 4, :,16) = (/ &
+     & 1.08263e-02_rb, 1.15191e-02_rb, 1.22562e-02_rb, 1.30404e-02_rb, 1.38749e-02_rb, &
+     & 1.47627e-02_rb, 1.57073e-02_rb, 1.67124e-02_rb, 1.77818e-02_rb, 1.89196e-02_rb, &
+     & 2.01302e-02_rb, 2.14183e-02_rb, 2.27888e-02_rb, 2.42470e-02_rb, 2.57986e-02_rb, &
+     & 2.74494e-02_rb, 2.92058e-02_rb, 3.10746e-02_rb, 3.30630e-02_rb/)
+      kbo_mn2o( 5, :,16) = (/ &
+     & 4.53450e-08_rb, 5.75193e-08_rb, 7.29620e-08_rb, 9.25509e-08_rb, 1.17399e-07_rb, &
+     & 1.48918e-07_rb, 1.88900e-07_rb, 2.39616e-07_rb, 3.03948e-07_rb, 3.85551e-07_rb, &
+     & 4.89064e-07_rb, 6.20369e-07_rb, 7.86925e-07_rb, 9.98199e-07_rb, 1.26619e-06_rb, &
+     & 1.60614e-06_rb, 2.03736e-06_rb, 2.58435e-06_rb, 3.27819e-06_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &9.0039e-04_rb,1.1081e-03_rb,1.0732e-03_rb,1.1881e-03_rb,1.2488e-03_rb,1.3170e-03_rb, &
+     &1.3317e-03_rb,1.3168e-03_rb,1.3369e-03_rb,1.4228e-03_rb,1.5385e-03_rb,1.7376e-03_rb, &
+     &1.7122e-03_rb,1.9002e-03_rb,1.8881e-03_rb,2.1595e-03_rb/)
+      forrefo(2,:) = (/ &
+     &1.2726e-03_rb,1.3680e-03_rb,1.2494e-03_rb,1.2049e-03_rb,1.2048e-03_rb,1.1256e-03_rb, &
+     &1.1170e-03_rb,1.0697e-03_rb,1.1177e-03_rb,1.1883e-03_rb,1.2219e-03_rb,1.2179e-03_rb, &
+     &1.5692e-03_rb,1.9103e-03_rb,2.0219e-03_rb,1.6937e-03_rb/)
+      forrefo(3,:) = (/ &
+     &1.5527e-03_rb,1.6477e-03_rb,1.4973e-03_rb,1.3400e-03_rb,1.0820e-03_rb,9.3315e-04_rb, &
+     &8.8132e-04_rb,8.1508e-04_rb,8.3559e-04_rb,7.6492e-04_rb,8.2343e-04_rb,7.1274e-04_rb, &
+     &6.6011e-04_rb,6.7179e-04_rb,6.7039e-04_rb,6.7021e-04_rb/)
+      forrefo(4,:) = (/ &
+     &1.6763e-03_rb,1.6066e-03_rb,1.3927e-03_rb,1.2087e-03_rb,9.8463e-04_rb,8.8414e-04_rb, &
+     &8.0976e-04_rb,7.8758e-04_rb,7.7376e-04_rb,7.5785e-04_rb,7.4152e-04_rb,7.3814e-04_rb, &
+     &7.4278e-04_rb,7.1745e-04_rb,6.7216e-04_rb,6.4097e-04_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 5.11926e-01_rb, 4.32863e-01_rb, 3.66010e-01_rb, 3.09482e-01_rb, 2.61685e-01_rb, &
+     & 2.21269e-01_rb, 1.87096e-01_rb, 1.58200e-01_rb, 1.33767e-01_rb, 1.13108e-01_rb/)
+      selfrefo(:, 2) = (/ &
+     & 5.02863e-01_rb, 4.35008e-01_rb, 3.76310e-01_rb, 3.25532e-01_rb, 2.81606e-01_rb, &
+     & 2.43607e-01_rb, 2.10736e-01_rb, 1.82300e-01_rb, 1.57701e-01_rb, 1.36422e-01_rb/)
+      selfrefo(:, 3) = (/ &
+     & 4.57628e-01_rb, 3.99663e-01_rb, 3.49040e-01_rb, 3.04829e-01_rb, 2.66218e-01_rb, &
+     & 2.32498e-01_rb, 2.03049e-01_rb, 1.77330e-01_rb, 1.54869e-01_rb, 1.35252e-01_rb/)
+      selfrefo(:, 4) = (/ &
+     & 4.28634e-01_rb, 3.81736e-01_rb, 3.39970e-01_rb, 3.02773e-01_rb, 2.69647e-01_rb, &
+     & 2.40144e-01_rb, 2.13870e-01_rb, 1.90470e-01_rb, 1.69630e-01_rb, 1.51071e-01_rb/)
+      selfrefo(:, 5) = (/ &
+     & 4.21002e-01_rb, 3.77493e-01_rb, 3.38480e-01_rb, 3.03499e-01_rb, 2.72133e-01_rb, &
+     & 2.44009e-01_rb, 2.18792e-01_rb, 1.96180e-01_rb, 1.75905e-01_rb, 1.57726e-01_rb/)
+      selfrefo(:, 6) = (/ &
+     & 3.97517e-01_rb, 3.61167e-01_rb, 3.28140e-01_rb, 2.98133e-01_rb, 2.70871e-01_rb, &
+     & 2.46101e-01_rb, 2.23597e-01_rb, 2.03150e-01_rb, 1.84573e-01_rb, 1.67695e-01_rb/)
+      selfrefo(:, 7) = (/ &
+     & 3.92114e-01_rb, 3.57554e-01_rb, 3.26040e-01_rb, 2.97304e-01_rb, 2.71100e-01_rb, &
+     & 2.47206e-01_rb, 2.25418e-01_rb, 2.05550e-01_rb, 1.87433e-01_rb, 1.70913e-01_rb/)
+      selfrefo(:, 8) = (/ &
+     & 3.79555e-01_rb, 3.47264e-01_rb, 3.17720e-01_rb, 2.90690e-01_rb, 2.65959e-01_rb, &
+     & 2.43332e-01_rb, 2.22631e-01_rb, 2.03690e-01_rb, 1.86361e-01_rb, 1.70506e-01_rb/)
+      selfrefo(:, 9) = (/ &
+     & 3.92644e-01_rb, 3.58048e-01_rb, 3.26500e-01_rb, 2.97732e-01_rb, 2.71498e-01_rb, &
+     & 2.47576e-01_rb, 2.25762e-01_rb, 2.05870e-01_rb, 1.87731e-01_rb, 1.71190e-01_rb/)
+      selfrefo(:,10) = (/ &
+     & 4.06542e-01_rb, 3.71200e-01_rb, 3.38930e-01_rb, 3.09465e-01_rb, 2.82562e-01_rb, &
+     & 2.57998e-01_rb, 2.35569e-01_rb, 2.15090e-01_rb, 1.96391e-01_rb, 1.79318e-01_rb/)
+      selfrefo(:,11) = (/ &
+     & 4.09672e-01_rb, 3.76237e-01_rb, 3.45530e-01_rb, 3.17329e-01_rb, 2.91430e-01_rb, &
+     & 2.67645e-01_rb, 2.45801e-01_rb, 2.25740e-01_rb, 2.07316e-01_rb, 1.90396e-01_rb/)
+      selfrefo(:,12) = (/ &
+     & 3.85140e-01_rb, 3.61989e-01_rb, 3.40230e-01_rb, 3.19779e-01_rb, 3.00557e-01_rb, &
+     & 2.82490e-01_rb, 2.65510e-01_rb, 2.49550e-01_rb, 2.34549e-01_rb, 2.20451e-01_rb/)
+      selfrefo(:,13) = (/ &
+     & 4.87349e-01_rb, 4.42192e-01_rb, 4.01220e-01_rb, 3.64044e-01_rb, 3.30313e-01_rb, &
+     & 2.99707e-01_rb, 2.71937e-01_rb, 2.46740e-01_rb, 2.23878e-01_rb, 2.03134e-01_rb/)
+      selfrefo(:,14) = (/ &
+     & 5.64339e-01_rb, 5.06194e-01_rb, 4.54040e-01_rb, 4.07259e-01_rb, 3.65298e-01_rb, &
+     & 3.27661e-01_rb, 2.93901e-01_rb, 2.63620e-01_rb, 2.36459e-01_rb, 2.12096e-01_rb/)
+      selfrefo(:,15) = (/ &
+     & 5.91123e-01_rb, 5.26420e-01_rb, 4.68800e-01_rb, 4.17486e-01_rb, 3.71790e-01_rb, &
+     & 3.31095e-01_rb, 2.94854e-01_rb, 2.62580e-01_rb, 2.33839e-01_rb, 2.08243e-01_rb/)
+      selfrefo(:,16) = (/ &
+     & 5.04590e-01_rb, 4.65235e-01_rb, 4.28950e-01_rb, 3.95495e-01_rb, 3.64649e-01_rb, &
+     & 3.36209e-01_rb, 3.09987e-01_rb, 2.85810e-01_rb, 2.63519e-01_rb, 2.42966e-01_rb/)
+
+      end subroutine lw_kgb03 
+
+! **************************************************************************
+      subroutine lw_kgb04
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg04, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P = 142.5940 mbar, T = 215.70 K
+      fracrefao(:, 1) = (/ &
+     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &
+     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7965e-03_rb,2.9744e-03_rb, &
+     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)
+      fracrefao(:, 2) = (/ &
+     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &
+     &   8.2949e-02_rb,6.2392e-02_rb,4.2146e-02_rb,4.5906e-03_rb,3.7965e-03_rb,2.9745e-03_rb, &
+     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)
+      fracrefao(:, 3) = (/ &
+     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &
+     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7965e-03_rb,2.9745e-03_rb, &
+     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)
+      fracrefao(:, 4) = (/ &
+     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &
+     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7964e-03_rb,2.9744e-03_rb, &
+     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)
+      fracrefao(:, 5) = (/ &
+     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &
+     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7965e-03_rb,2.9744e-03_rb, &
+     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)
+      fracrefao(:, 6) = (/ &
+     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &
+     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7965e-03_rb,2.9744e-03_rb, &
+     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)
+      fracrefao(:, 7) = (/ &
+     &   1.5572e-01_rb,1.4926e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &
+     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5908e-03_rb,3.7964e-03_rb,2.9745e-03_rb, &
+     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)
+      fracrefao(:, 8) = (/ &
+     &   1.5571e-01_rb,1.4926e-01_rb,1.4107e-01_rb,1.3125e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &
+     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7964e-03_rb,2.9744e-03_rb, &
+     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)
+      fracrefao(:, 9) = (/ &
+     &   1.5952e-01_rb,1.5155e-01_rb,1.4217e-01_rb,1.3077e-01_rb,1.1667e-01_rb,1.0048e-01_rb, &
+     &   8.1511e-02_rb,6.1076e-02_rb,4.1111e-02_rb,4.4432e-03_rb,3.6910e-03_rb,2.9076e-03_rb, &
+     &   2.1329e-03_rb,1.3566e-03_rb,5.2235e-04_rb,7.9935e-05_rb/)
+
+! Planck fraction mapping level : P = 95.58350 mb, T = 215.70 K
+      fracrefbo(:, 1) = (/ &
+     &   1.5558e-01_rb,1.4931e-01_rb,1.4104e-01_rb,1.3124e-01_rb,1.1793e-01_rb,1.0160e-01_rb, &
+     &   8.3142e-02_rb,6.2403e-02_rb,4.2170e-02_rb,4.5935e-03_rb,3.7976e-03_rb,2.9986e-03_rb, &
+     &   2.1890e-03_rb,1.4061e-03_rb,5.3005e-04_rb,7.4587e-05_rb/)
+      fracrefbo(:, 2) = (/ &
+     &   1.5558e-01_rb,1.4932e-01_rb,1.4104e-01_rb,1.3124e-01_rb,1.1792e-01_rb,1.0159e-01_rb, &
+     &   8.3142e-02_rb,6.2403e-02_rb,4.2170e-02_rb,4.5935e-03_rb,3.7976e-03_rb,2.9986e-03_rb, &
+     &   2.1890e-03_rb,1.4061e-03_rb,5.3005e-04_rb,7.4587e-05_rb/)
+      fracrefbo(:, 3) = (/ &
+     &   1.5558e-01_rb,1.4933e-01_rb,1.4103e-01_rb,1.3124e-01_rb,1.1792e-01_rb,1.0159e-01_rb, &
+     &   8.3142e-02_rb,6.2403e-02_rb,4.2170e-02_rb,4.5935e-03_rb,3.7976e-03_rb,2.9986e-03_rb, &
+     &   2.1890e-03_rb,1.4061e-03_rb,5.3005e-04_rb,7.4587e-05_rb/)
+      fracrefbo(:, 4) = (/ &
+     &   1.5569e-01_rb,1.4926e-01_rb,1.4102e-01_rb,1.3122e-01_rb,1.1791e-01_rb,1.0159e-01_rb, &
+     &   8.3141e-02_rb,6.2403e-02_rb,4.2170e-02_rb,4.5935e-03_rb,3.7976e-03_rb,2.9986e-03_rb, &
+     &   2.1890e-03_rb,1.4061e-03_rb,5.3005e-04_rb,7.4587e-05_rb/)
+      fracrefbo(:, 5) = (/ &
+     &   1.5947e-01_rb,1.5132e-01_rb,1.4195e-01_rb,1.3061e-01_rb,1.1680e-01_rb,1.0054e-01_rb, &
+     &   8.1785e-02_rb,6.1212e-02_rb,4.1276e-02_rb,4.4424e-03_rb,3.6628e-03_rb,2.8943e-03_rb, &
+     &   2.1134e-03_rb,1.3457e-03_rb,5.1024e-04_rb,7.3998e-05_rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1, 1) = (/ &
+     &1.0697e-02_rb,1.0151e-02_rb,9.2549e-03_rb,8.2645e-03_rb,7.2061e-03_rb,6.0662e-03_rb, &
+     &4.9816e-03_rb,4.8867e-03_rb,2.0269e-04_rb/)
+      kao(:, 2, 1, 1) = (/ &
+     &1.1677e-02_rb,1.1138e-02_rb,1.0216e-02_rb,9.1909e-03_rb,8.0553e-03_rb,6.8223e-03_rb, &
+     &5.5408e-03_rb,4.6854e-03_rb,2.3825e-04_rb/)
+      kao(:, 3, 1, 1) = (/ &
+     &1.2605e-02_rb,1.2092e-02_rb,1.1179e-02_rb,1.0121e-02_rb,8.9159e-03_rb,7.6027e-03_rb, &
+     &6.0392e-03_rb,4.3498e-03_rb,2.8245e-04_rb/)
+      kao(:, 4, 1, 1) = (/ &
+     &1.3484e-02_rb,1.3046e-02_rb,1.2153e-02_rb,1.1041e-02_rb,9.7806e-03_rb,8.2921e-03_rb, &
+     &6.5023e-03_rb,4.3023e-03_rb,3.0318e-04_rb/)
+      kao(:, 5, 1, 1) = (/ &
+     &1.4330e-02_rb,1.3997e-02_rb,1.3114e-02_rb,1.1943e-02_rb,1.0557e-02_rb,8.8567e-03_rb, &
+     &6.8709e-03_rb,4.3577e-03_rb,3.2751e-04_rb/)
+      kao(:, 1, 2, 1) = (/ &
+     &1.3833e-02_rb,1.2806e-02_rb,1.1465e-02_rb,1.0025e-02_rb,8.5208e-03_rb,6.9589e-03_rb, &
+     &5.3336e-03_rb,4.2294e-03_rb,1.4419e-04_rb/)
+      kao(:, 2, 2, 1) = (/ &
+     &1.5144e-02_rb,1.4068e-02_rb,1.2644e-02_rb,1.1119e-02_rb,9.5204e-03_rb,7.8236e-03_rb, &
+     &6.0220e-03_rb,4.4086e-03_rb,1.7355e-04_rb/)
+      kao(:, 3, 2, 1) = (/ &
+     &1.6397e-02_rb,1.5299e-02_rb,1.3819e-02_rb,1.2230e-02_rb,1.0525e-02_rb,8.6894e-03_rb, &
+     &6.7322e-03_rb,4.5883e-03_rb,2.1022e-04_rb/)
+      kao(:, 4, 2, 1) = (/ &
+     &1.7608e-02_rb,1.6518e-02_rb,1.5010e-02_rb,1.3349e-02_rb,1.1524e-02_rb,9.5665e-03_rb, &
+     &7.3586e-03_rb,4.7702e-03_rb,2.1845e-04_rb/)
+      kao(:, 5, 2, 1) = (/ &
+     &1.8795e-02_rb,1.7739e-02_rb,1.6211e-02_rb,1.4458e-02_rb,1.2504e-02_rb,1.0367e-02_rb, &
+     &7.8746e-03_rb,4.9505e-03_rb,2.4452e-04_rb/)
+      kao(:, 1, 3, 1) = (/ &
+     &2.3349e-02_rb,2.1073e-02_rb,1.8534e-02_rb,1.5886e-02_rb,1.3154e-02_rb,1.0346e-02_rb, &
+     &7.4749e-03_rb,4.5440e-03_rb,9.5522e-05_rb/)
+      kao(:, 2, 3, 1) = (/ &
+     &2.5718e-02_rb,2.3272e-02_rb,2.0503e-02_rb,1.7622e-02_rb,1.4648e-02_rb,1.1596e-02_rb, &
+     &8.4531e-03_rb,5.1652e-03_rb,1.1957e-04_rb/)
+      kao(:, 3, 3, 1) = (/ &
+     &2.8025e-02_rb,2.5421e-02_rb,2.2452e-02_rb,1.9353e-02_rb,1.6163e-02_rb,1.2876e-02_rb, &
+     &9.4440e-03_rb,5.8151e-03_rb,1.4638e-04_rb/)
+      kao(:, 4, 3, 1) = (/ &
+     &3.0273e-02_rb,2.7542e-02_rb,2.4400e-02_rb,2.1110e-02_rb,1.7713e-02_rb,1.4169e-02_rb, &
+     &1.0445e-02_rb,6.4078e-03_rb,1.5375e-04_rb/)
+      kao(:, 5, 3, 1) = (/ &
+     &3.2488e-02_rb,2.9668e-02_rb,2.6366e-02_rb,2.2912e-02_rb,1.9285e-02_rb,1.5463e-02_rb, &
+     &1.1411e-02_rb,6.9035e-03_rb,1.7414e-04_rb/)
+      kao(:, 1, 4, 1) = (/ &
+     &3.9680e-02_rb,3.5246e-02_rb,3.0687e-02_rb,2.5989e-02_rb,2.1199e-02_rb,1.6340e-02_rb, &
+     &1.1394e-02_rb,6.3232e-03_rb,6.3142e-05_rb/)
+      kao(:, 2, 4, 1) = (/ &
+     &4.4067e-02_rb,3.9245e-02_rb,3.4186e-02_rb,2.8983e-02_rb,2.3690e-02_rb,1.8315e-02_rb, &
+     &1.2835e-02_rb,7.2156e-03_rb,8.2154e-05_rb/)
+      kao(:, 3, 4, 1) = (/ &
+     &4.8382e-02_rb,4.3189e-02_rb,3.7634e-02_rb,3.1955e-02_rb,2.6184e-02_rb,2.0317e-02_rb, &
+     &1.4329e-02_rb,8.1343e-03_rb,1.0015e-04_rb/)
+      kao(:, 4, 4, 1) = (/ &
+     &5.2631e-02_rb,4.7051e-02_rb,4.1069e-02_rb,3.4945e-02_rb,2.8716e-02_rb,2.2361e-02_rb, &
+     &1.5856e-02_rb,9.0735e-03_rb,1.0763e-04_rb/)
+      kao(:, 5, 4, 1) = (/ &
+     &5.6812e-02_rb,5.0879e-02_rb,4.4486e-02_rb,3.7949e-02_rb,3.1266e-02_rb,2.4439e-02_rb, &
+     &1.7397e-02_rb,9.9865e-03_rb,1.2433e-04_rb/)
+      kao(:, 1, 5, 1) = (/ &
+     &6.1659e-02_rb,5.4360e-02_rb,4.7000e-02_rb,3.9571e-02_rb,3.2046e-02_rb,2.4431e-02_rb, &
+     &1.6731e-02_rb,8.9002e-03_rb,4.4135e-05_rb/)
+      kao(:, 2, 5, 1) = (/ &
+     &6.9177e-02_rb,6.1077e-02_rb,5.2885e-02_rb,4.4540e-02_rb,3.6083e-02_rb,2.7553e-02_rb, &
+     &1.8920e-02_rb,1.0138e-02_rb,5.7278e-05_rb/)
+      kao(:, 3, 5, 1) = (/ &
+     &7.6561e-02_rb,6.7721e-02_rb,5.8676e-02_rb,4.9436e-02_rb,4.0109e-02_rb,3.0675e-02_rb, &
+     &2.1149e-02_rb,1.1429e-02_rb,6.8177e-05_rb/)
+      kao(:, 4, 5, 1) = (/ &
+     &8.3855e-02_rb,7.4287e-02_rb,6.4398e-02_rb,5.4317e-02_rb,4.4139e-02_rb,3.3855e-02_rb, &
+     &2.3434e-02_rb,1.2758e-02_rb,7.5655e-05_rb/)
+      kao(:, 5, 5, 1) = (/ &
+     &9.1112e-02_rb,8.0836e-02_rb,7.0093e-02_rb,5.9205e-02_rb,4.8195e-02_rb,3.7076e-02_rb, &
+     &2.5757e-02_rb,1.4110e-02_rb,8.9921e-05_rb/)
+      kao(:, 1, 6, 1) = (/ &
+     &8.8882e-02_rb,7.8094e-02_rb,6.7257e-02_rb,5.6376e-02_rb,4.5468e-02_rb,3.4471e-02_rb, &
+     &2.3372e-02_rb,1.2141e-02_rb,3.4008e-05_rb/)
+      kao(:, 2, 6, 1) = (/ &
+     &1.0088e-01_rb,8.8690e-02_rb,7.6454e-02_rb,6.4166e-02_rb,5.1764e-02_rb,3.9256e-02_rb, &
+     &2.6651e-02_rb,1.3906e-02_rb,4.1496e-05_rb/)
+      kao(:, 3, 6, 1) = (/ &
+     &1.1268e-01_rb,9.9170e-02_rb,8.5584e-02_rb,7.1867e-02_rb,5.7997e-02_rb,4.4019e-02_rb, &
+     &2.9951e-02_rb,1.5714e-02_rb,4.7587e-05_rb/)
+      kao(:, 4, 6, 1) = (/ &
+     &1.2443e-01_rb,1.0961e-01_rb,9.4686e-02_rb,7.9524e-02_rb,6.4216e-02_rb,4.8825e-02_rb, &
+     &3.3307e-02_rb,1.7586e-02_rb,5.4734e-05_rb/)
+      kao(:, 5, 6, 1) = (/ &
+     &1.3608e-01_rb,1.2003e-01_rb,1.0372e-01_rb,8.7155e-02_rb,7.0466e-02_rb,5.3660e-02_rb, &
+     &3.6716e-02_rb,1.9490e-02_rb,6.4532e-05_rb/)
+      kao(:, 1, 7, 1) = (/ &
+     &1.3393e-01_rb,1.1743e-01_rb,1.0091e-01_rb,8.4366e-02_rb,6.7796e-02_rb,5.1191e-02_rb, &
+     &3.4487e-02_rb,1.7647e-02_rb,2.6258e-05_rb/)
+      kao(:, 2, 7, 1) = (/ &
+     &1.5385e-01_rb,1.3496e-01_rb,1.1603e-01_rb,9.7081e-02_rb,7.8079e-02_rb,5.8981e-02_rb, &
+     &3.9763e-02_rb,2.0387e-02_rb,3.2089e-05_rb/)
+      kao(:, 3, 7, 1) = (/ &
+     &1.7362e-01_rb,1.5237e-01_rb,1.3107e-01_rb,1.0975e-01_rb,8.8299e-02_rb,6.6730e-02_rb, &
+     &4.5023e-02_rb,2.3161e-02_rb,4.0067e-05_rb/)
+      kao(:, 4, 7, 1) = (/ &
+     &1.9325e-01_rb,1.6971e-01_rb,1.4609e-01_rb,1.2238e-01_rb,9.8509e-02_rb,7.4481e-02_rb, &
+     &5.0334e-02_rb,2.5995e-02_rb,4.6630e-05_rb/)
+      kao(:, 5, 7, 1) = (/ &
+     &2.1303e-01_rb,1.8717e-01_rb,1.6126e-01_rb,1.3511e-01_rb,1.0879e-01_rb,8.2319e-02_rb, &
+     &5.5720e-02_rb,2.8900e-02_rb,5.5874e-05_rb/)
+      kao(:, 1, 8, 1) = (/ &
+     &2.4085e-01_rb,2.1093e-01_rb,1.8102e-01_rb,1.5107e-01_rb,1.2112e-01_rb,9.1137e-02_rb, &
+     &6.1112e-02_rb,3.0964e-02_rb,2.6704e-05_rb/)
+      kao(:, 2, 8, 1) = (/ &
+     &2.8040e-01_rb,2.4563e-01_rb,2.1082e-01_rb,1.7598e-01_rb,1.4114e-01_rb,1.0627e-01_rb, &
+     &7.1313e-02_rb,3.6159e-02_rb,3.4463e-05_rb/)
+      kao(:, 3, 8, 1) = (/ &
+     &3.1986e-01_rb,2.8024e-01_rb,2.4058e-01_rb,2.0091e-01_rb,1.6119e-01_rb,1.2143e-01_rb, &
+     &8.1504e-02_rb,4.1377e-02_rb,4.2885e-05_rb/)
+      kao(:, 4, 8, 1) = (/ &
+     &3.5910e-01_rb,3.1468e-01_rb,2.7026e-01_rb,2.2578e-01_rb,1.8126e-01_rb,1.3658e-01_rb, &
+     &9.1734e-02_rb,4.6641e-02_rb,5.1508e-05_rb/)
+      kao(:, 5, 8, 1) = (/ &
+     &3.9881e-01_rb,3.4958e-01_rb,3.0035e-01_rb,2.5107e-01_rb,2.0163e-01_rb,1.5198e-01_rb, &
+     &1.0212e-01_rb,5.2034e-02_rb,5.9872e-05_rb/)
+      kao(:, 1, 9, 1) = (/ &
+     &8.1251e-01_rb,7.1113e-01_rb,6.0978e-01_rb,5.0834e-01_rb,4.0692e-01_rb,3.0549e-01_rb, &
+     &2.0401e-01_rb,1.0247e-01_rb,4.2060e-05_rb/)
+      kao(:, 2, 9, 1) = (/ &
+     &9.6024e-01_rb,8.4039e-01_rb,7.2060e-01_rb,6.0079e-01_rb,4.8095e-01_rb,3.6106e-01_rb, &
+     &2.4120e-01_rb,1.2123e-01_rb,5.7363e-05_rb/)
+      kao(:, 3, 9, 1) = (/ &
+     &1.1088e+00_rb,9.7056e-01_rb,8.3222e-01_rb,6.9393e-01_rb,5.5555e-01_rb,4.1720e-01_rb, &
+     &2.7875e-01_rb,1.4021e-01_rb,7.4113e-05_rb/)
+      kao(:, 4, 9, 1) = (/ &
+     &1.2568e+00_rb,1.1001e+00_rb,9.4342e-01_rb,7.8665e-01_rb,6.2985e-01_rb,4.7311e-01_rb, &
+     &3.1630e-01_rb,1.5915e-01_rb,9.2862e-05_rb/)
+      kao(:, 5, 9, 1) = (/ &
+     &1.4062e+00_rb,1.2309e+00_rb,1.0557e+00_rb,8.8039e-01_rb,7.0513e-01_rb,5.2977e-01_rb, &
+     &3.5432e-01_rb,1.7839e-01_rb,1.0954e-04_rb/)
+      kao(:, 1,10, 1) = (/ &
+     &3.0868e+00_rb,2.7010e+00_rb,2.3154e+00_rb,1.9296e+00_rb,1.5440e+00_rb,1.1583e+00_rb, &
+     &7.7257e-01_rb,3.8682e-01_rb,7.9650e-05_rb/)
+      kao(:, 2,10, 1) = (/ &
+     &3.6992e+00_rb,3.2371e+00_rb,2.7749e+00_rb,2.3126e+00_rb,1.8504e+00_rb,1.3883e+00_rb, &
+     &9.2595e-01_rb,4.6361e-01_rb,1.1315e-04_rb/)
+      kao(:, 3,10, 1) = (/ &
+     &4.3239e+00_rb,3.7838e+00_rb,3.2436e+00_rb,2.7034e+00_rb,2.1630e+00_rb,1.6228e+00_rb, &
+     &1.0824e+00_rb,5.4204e-01_rb,1.4419e-04_rb/)
+      kao(:, 4,10, 1) = (/ &
+     &4.9483e+00_rb,4.3302e+00_rb,3.7121e+00_rb,3.0937e+00_rb,2.4754e+00_rb,1.8572e+00_rb, &
+     &1.2389e+00_rb,6.2062e-01_rb,1.7752e-04_rb/)
+      kao(:, 5,10, 1) = (/ &
+     &5.5745e+00_rb,4.8780e+00_rb,4.1816e+00_rb,3.4855e+00_rb,2.7890e+00_rb,2.0926e+00_rb, &
+     &1.3962e+00_rb,6.9963e-01_rb,2.1449e-04_rb/)
+      kao(:, 1,11, 1) = (/ &
+     &4.4731e+00_rb,3.9138e+00_rb,3.3549e+00_rb,2.7960e+00_rb,2.2371e+00_rb,1.6781e+00_rb, &
+     &1.1191e+00_rb,5.6013e-01_rb,1.1739e-04_rb/)
+      kao(:, 2,11, 1) = (/ &
+     &5.3673e+00_rb,4.6967e+00_rb,4.0260e+00_rb,3.3552e+00_rb,2.6847e+00_rb,2.0138e+00_rb, &
+     &1.3431e+00_rb,6.7224e-01_rb,1.4272e-04_rb/)
+      kao(:, 3,11, 1) = (/ &
+     &6.2805e+00_rb,5.4954e+00_rb,4.7109e+00_rb,3.9260e+00_rb,3.1412e+00_rb,2.3563e+00_rb, &
+     &1.5716e+00_rb,7.8663e-01_rb,1.8731e-04_rb/)
+      kao(:, 4,11, 1) = (/ &
+     &7.1941e+00_rb,6.2951e+00_rb,5.3963e+00_rb,4.4973e+00_rb,3.5984e+00_rb,2.6993e+00_rb, &
+     &1.8005e+00_rb,9.0138e-01_rb,2.2429e-04_rb/)
+      kao(:, 5,11, 1) = (/ &
+     &8.1084e+00_rb,7.0952e+00_rb,6.0822e+00_rb,5.0692e+00_rb,4.0560e+00_rb,3.0428e+00_rb, &
+     &2.0297e+00_rb,1.0163e+00_rb,2.6588e-04_rb/)
+      kao(:, 1,12, 1) = (/ &
+     &4.8324e+00_rb,4.2285e+00_rb,3.6244e+00_rb,3.0205e+00_rb,2.4167e+00_rb,1.8130e+00_rb, &
+     &1.2091e+00_rb,6.0509e-01_rb,1.2228e-04_rb/)
+      kao(:, 2,12, 1) = (/ &
+     &5.8007e+00_rb,5.0761e+00_rb,4.3512e+00_rb,3.6264e+00_rb,2.9012e+00_rb,2.1763e+00_rb, &
+     &1.4515e+00_rb,7.2651e-01_rb,1.6183e-04_rb/)
+      kao(:, 3,12, 1) = (/ &
+     &6.7955e+00_rb,5.9463e+00_rb,5.0972e+00_rb,4.2481e+00_rb,3.3989e+00_rb,2.5498e+00_rb, &
+     &1.7005e+00_rb,8.5109e-01_rb,1.9622e-04_rb/)
+      kao(:, 4,12, 1) = (/ &
+     &7.7871e+00_rb,6.8141e+00_rb,5.8412e+00_rb,4.8680e+00_rb,3.8949e+00_rb,2.9218e+00_rb, &
+     &1.9487e+00_rb,9.7554e-01_rb,2.4527e-04_rb/)
+      kao(:, 5,12, 1) = (/ &
+     &8.7731e+00_rb,7.6770e+00_rb,6.5805e+00_rb,5.4843e+00_rb,4.3883e+00_rb,3.2921e+00_rb, &
+     &2.1959e+00_rb,1.0994e+00_rb,2.9421e-04_rb/)
+      kao(:, 1,13, 1) = (/ &
+     &4.1936e+00_rb,3.6695e+00_rb,3.1456e+00_rb,2.6217e+00_rb,2.0976e+00_rb,1.5735e+00_rb, &
+     &1.0495e+00_rb,5.2527e-01_rb,1.1808e-04_rb/)
+      kao(:, 2,13, 1) = (/ &
+     &5.0398e+00_rb,4.4101e+00_rb,3.7804e+00_rb,3.1506e+00_rb,2.5209e+00_rb,1.8912e+00_rb, &
+     &1.2614e+00_rb,6.3136e-01_rb,1.5519e-04_rb/)
+      kao(:, 3,13, 1) = (/ &
+     &5.9030e+00_rb,5.1655e+00_rb,4.4278e+00_rb,3.6903e+00_rb,2.9527e+00_rb,2.2152e+00_rb, &
+     &1.4774e+00_rb,7.3950e-01_rb,1.9283e-04_rb/)
+      kao(:, 4,13, 1) = (/ &
+     &6.7598e+00_rb,5.9151e+00_rb,5.0706e+00_rb,4.2260e+00_rb,3.3815e+00_rb,2.5368e+00_rb, &
+     &1.6919e+00_rb,8.4706e-01_rb,2.3479e-04_rb/)
+      kao(:, 5,13, 1) = (/ &
+     &7.6160e+00_rb,6.6645e+00_rb,5.7130e+00_rb,4.7615e+00_rb,3.8100e+00_rb,2.8583e+00_rb, &
+     &1.9066e+00_rb,9.5472e-01_rb,2.9034e-04_rb/)
+      kao(:, 1, 1, 2) = (/ &
+     &2.4501e-02_rb,2.2546e-02_rb,2.0206e-02_rb,1.7580e-02_rb,1.4733e-02_rb,1.1757e-02_rb, &
+     &8.5871e-03_rb,4.9715e-03_rb,4.1358e-04_rb/)
+      kao(:, 2, 1, 2) = (/ &
+     &2.5392e-02_rb,2.3504e-02_rb,2.1061e-02_rb,1.8282e-02_rb,1.5340e-02_rb,1.2238e-02_rb, &
+     &8.8921e-03_rb,5.1114e-03_rb,3.8966e-04_rb/)
+      kao(:, 3, 1, 2) = (/ &
+     &2.6027e-02_rb,2.4221e-02_rb,2.1673e-02_rb,1.8830e-02_rb,1.5807e-02_rb,1.2525e-02_rb, &
+     &9.1668e-03_rb,5.5997e-03_rb,3.7711e-04_rb/)
+      kao(:, 4, 1, 2) = (/ &
+     &2.6673e-02_rb,2.4919e-02_rb,2.2282e-02_rb,1.9349e-02_rb,1.6139e-02_rb,1.2835e-02_rb, &
+     &9.4247e-03_rb,5.9143e-03_rb,4.3807e-04_rb/)
+      kao(:, 5, 1, 2) = (/ &
+     &2.7193e-02_rb,2.5447e-02_rb,2.2733e-02_rb,1.9712e-02_rb,1.6469e-02_rb,1.3190e-02_rb, &
+     &9.7078e-03_rb,6.2746e-03_rb,5.1500e-04_rb/)
+      kao(:, 1, 2, 2) = (/ &
+     &3.1935e-02_rb,2.8971e-02_rb,2.5689e-02_rb,2.2139e-02_rb,1.8357e-02_rb,1.4398e-02_rb, &
+     &1.0314e-02_rb,5.7860e-03_rb,2.7704e-04_rb/)
+      kao(:, 2, 2, 2) = (/ &
+     &3.3322e-02_rb,3.0388e-02_rb,2.6935e-02_rb,2.3180e-02_rb,1.9196e-02_rb,1.5076e-02_rb, &
+     &1.0778e-02_rb,6.0195e-03_rb,2.7933e-04_rb/)
+      kao(:, 3, 2, 2) = (/ &
+     &3.4372e-02_rb,3.1484e-02_rb,2.7888e-02_rb,2.3966e-02_rb,1.9860e-02_rb,1.5585e-02_rb, &
+     &1.1079e-02_rb,6.3448e-03_rb,2.7118e-04_rb/)
+      kao(:, 4, 2, 2) = (/ &
+     &3.5247e-02_rb,3.2382e-02_rb,2.8654e-02_rb,2.4627e-02_rb,2.0404e-02_rb,1.5949e-02_rb, &
+     &1.1392e-02_rb,6.6539e-03_rb,3.3360e-04_rb/)
+      kao(:, 5, 2, 2) = (/ &
+     &3.6022e-02_rb,3.3132e-02_rb,2.9304e-02_rb,2.5200e-02_rb,2.0861e-02_rb,1.6331e-02_rb, &
+     &1.1785e-02_rb,6.9927e-03_rb,3.9477e-04_rb/)
+      kao(:, 1, 3, 2) = (/ &
+     &5.5981e-02_rb,4.9895e-02_rb,4.3680e-02_rb,3.7190e-02_rb,3.0485e-02_rb,2.3562e-02_rb, &
+     &1.6425e-02_rb,9.0449e-03_rb,1.7015e-04_rb/)
+      kao(:, 2, 3, 2) = (/ &
+     &5.8799e-02_rb,5.2631e-02_rb,4.6091e-02_rb,3.9226e-02_rb,3.2137e-02_rb,2.4836e-02_rb, &
+     &1.7301e-02_rb,9.5109e-03_rb,1.8305e-04_rb/)
+      kao(:, 3, 3, 2) = (/ &
+     &6.0996e-02_rb,5.4813e-02_rb,4.8006e-02_rb,4.0820e-02_rb,3.3414e-02_rb,2.5787e-02_rb, &
+     &1.7985e-02_rb,9.8187e-03_rb,1.8905e-04_rb/)
+      kao(:, 4, 3, 2) = (/ &
+     &6.2707e-02_rb,5.6481e-02_rb,4.9388e-02_rb,4.1983e-02_rb,3.4344e-02_rb,2.6526e-02_rb, &
+     &1.8461e-02_rb,1.0117e-02_rb,2.4096e-04_rb/)
+      kao(:, 5, 3, 2) = (/ &
+     &6.4195e-02_rb,5.7890e-02_rb,5.0593e-02_rb,4.2977e-02_rb,3.5166e-02_rb,2.7170e-02_rb, &
+     &1.8910e-02_rb,1.0511e-02_rb,2.9172e-04_rb/)
+      kao(:, 1, 4, 2) = (/ &
+     &1.0046e-01_rb,8.8696e-02_rb,7.6950e-02_rb,6.5010e-02_rb,5.2854e-02_rb,4.0445e-02_rb, &
+     &2.7753e-02_rb,1.4715e-02_rb,1.1527e-04_rb/)
+      kao(:, 2, 4, 2) = (/ &
+     &1.0584e-01_rb,9.3644e-02_rb,8.1343e-02_rb,6.8725e-02_rb,5.5817e-02_rb,4.2663e-02_rb, &
+     &2.9258e-02_rb,1.5519e-02_rb,1.2102e-04_rb/)
+      kao(:, 3, 4, 2) = (/ &
+     &1.1041e-01_rb,9.7926e-02_rb,8.5123e-02_rb,7.1882e-02_rb,5.8341e-02_rb,4.4558e-02_rb, &
+     &3.0554e-02_rb,1.6224e-02_rb,1.3450e-04_rb/)
+      kao(:, 4, 4, 2) = (/ &
+     &1.1403e-01_rb,1.0136e-01_rb,8.8078e-02_rb,7.4319e-02_rb,6.0266e-02_rb,4.6028e-02_rb, &
+     &3.1549e-02_rb,1.6730e-02_rb,1.7483e-04_rb/)
+      kao(:, 5, 4, 2) = (/ &
+     &1.1675e-01_rb,1.0391e-01_rb,9.0226e-02_rb,7.6062e-02_rb,6.1699e-02_rb,4.7119e-02_rb, &
+     &3.2315e-02_rb,1.7160e-02_rb,2.1415e-04_rb/)
+      kao(:, 1, 5, 2) = (/ &
+     &1.6440e-01_rb,1.4448e-01_rb,1.2464e-01_rb,1.0475e-01_rb,8.4706e-02_rb,6.4458e-02_rb, &
+     &4.3883e-02_rb,2.2824e-02_rb,7.5213e-05_rb/)
+      kao(:, 2, 5, 2) = (/ &
+     &1.7418e-01_rb,1.5330e-01_rb,1.3243e-01_rb,1.1140e-01_rb,9.0109e-02_rb,6.8519e-02_rb, &
+     &4.6576e-02_rb,2.4202e-02_rb,8.0510e-05_rb/)
+      kao(:, 3, 5, 2) = (/ &
+     &1.8254e-01_rb,1.6088e-01_rb,1.3912e-01_rb,1.1702e-01_rb,9.4586e-02_rb,7.1837e-02_rb, &
+     &4.8767e-02_rb,2.5350e-02_rb,9.6196e-05_rb/)
+      kao(:, 4, 5, 2) = (/ &
+     &1.8937e-01_rb,1.6713e-01_rb,1.4454e-01_rb,1.2155e-01_rb,9.8195e-02_rb,7.4514e-02_rb, &
+     &5.0569e-02_rb,2.6308e-02_rb,1.2696e-04_rb/)
+      kao(:, 5, 5, 2) = (/ &
+     &1.9452e-01_rb,1.7183e-01_rb,1.4864e-01_rb,1.2495e-01_rb,1.0086e-01_rb,7.6520e-02_rb, &
+     &5.1964e-02_rb,2.7040e-02_rb,1.5611e-04_rb/)
+      kao(:, 1, 6, 2) = (/ &
+     &2.4921e-01_rb,2.1859e-01_rb,1.8798e-01_rb,1.5740e-01_rb,1.2679e-01_rb,9.6030e-02_rb, &
+     &6.5011e-02_rb,3.3513e-02_rb,4.7816e-05_rb/)
+      kao(:, 2, 6, 2) = (/ &
+     &2.6657e-01_rb,2.3398e-01_rb,2.0147e-01_rb,1.6890e-01_rb,1.3619e-01_rb,1.0322e-01_rb, &
+     &6.9866e-02_rb,3.5915e-02_rb,5.5771e-05_rb/)
+      kao(:, 3, 6, 2) = (/ &
+     &2.8078e-01_rb,2.4667e-01_rb,2.1258e-01_rb,1.7831e-01_rb,1.4376e-01_rb,1.0887e-01_rb, &
+     &7.3553e-02_rb,3.7752e-02_rb,7.2324e-05_rb/)
+      kao(:, 4, 6, 2) = (/ &
+     &2.9281e-01_rb,2.5752e-01_rb,2.2202e-01_rb,1.8622e-01_rb,1.5008e-01_rb,1.1356e-01_rb, &
+     &7.6693e-02_rb,3.9339e-02_rb,9.1831e-05_rb/)
+      kao(:, 5, 6, 2) = (/ &
+     &3.0221e-01_rb,2.6598e-01_rb,2.2929e-01_rb,1.9231e-01_rb,1.5490e-01_rb,1.1717e-01_rb, &
+     &7.9072e-02_rb,4.0614e-02_rb,1.1670e-04_rb/)
+      kao(:, 1, 7, 2) = (/ &
+     &3.9471e-01_rb,3.4576e-01_rb,2.9687e-01_rb,2.4797e-01_rb,1.9909e-01_rb,1.5016e-01_rb, &
+     &1.0112e-01_rb,5.1719e-02_rb,4.5280e-05_rb/)
+      kao(:, 2, 7, 2) = (/ &
+     &4.2660e-01_rb,3.7391e-01_rb,3.2118e-01_rb,2.6853e-01_rb,2.1577e-01_rb,1.6297e-01_rb, &
+     &1.0986e-01_rb,5.6145e-02_rb,5.4459e-05_rb/)
+      kao(:, 3, 7, 2) = (/ &
+     &4.5301e-01_rb,3.9723e-01_rb,3.4149e-01_rb,2.8568e-01_rb,2.2975e-01_rb,1.7359e-01_rb, &
+     &1.1695e-01_rb,5.9583e-02_rb,6.4819e-05_rb/)
+      kao(:, 4, 7, 2) = (/ &
+     &4.7467e-01_rb,4.1649e-01_rb,3.5820e-01_rb,2.9973e-01_rb,2.4109e-01_rb,1.8208e-01_rb, &
+     &1.2251e-01_rb,6.2380e-02_rb,7.8660e-05_rb/)
+      kao(:, 5, 7, 2) = (/ &
+     &4.9199e-01_rb,4.3192e-01_rb,3.7144e-01_rb,3.1090e-01_rb,2.5000e-01_rb,1.8865e-01_rb, &
+     &1.2686e-01_rb,6.4563e-02_rb,9.4184e-05_rb/)
+      kao(:, 1, 8, 2) = (/ &
+     &7.4598e-01_rb,6.5300e-01_rb,5.6009e-01_rb,4.6718e-01_rb,3.7433e-01_rb,2.8142e-01_rb, &
+     &1.8848e-01_rb,9.5403e-02_rb,4.9176e-05_rb/)
+      kao(:, 2, 8, 2) = (/ &
+     &8.1434e-01_rb,7.1301e-01_rb,6.1173e-01_rb,5.1044e-01_rb,4.0917e-01_rb,3.0788e-01_rb, &
+     &2.0653e-01_rb,1.0477e-01_rb,6.1468e-05_rb/)
+      kao(:, 3, 8, 2) = (/ &
+     &8.7268e-01_rb,7.6440e-01_rb,6.5604e-01_rb,5.4759e-01_rb,4.3920e-01_rb,3.3065e-01_rb, &
+     &2.2200e-01_rb,1.1269e-01_rb,7.5902e-05_rb/)
+      kao(:, 4, 8, 2) = (/ &
+     &9.2025e-01_rb,8.0619e-01_rb,6.9208e-01_rb,5.7794e-01_rb,4.6363e-01_rb,3.4928e-01_rb, &
+     &2.3455e-01_rb,1.1876e-01_rb,9.2466e-05_rb/)
+      kao(:, 5, 8, 2) = (/ &
+     &9.5892e-01_rb,8.4025e-01_rb,7.2136e-01_rb,6.0245e-01_rb,4.8344e-01_rb,3.6420e-01_rb, &
+     &2.4431e-01_rb,1.2353e-01_rb,1.1186e-04_rb/)
+      kao(:, 1, 9, 2) = (/ &
+     &2.6457e+00_rb,2.3152e+00_rb,1.9846e+00_rb,1.6541e+00_rb,1.3236e+00_rb,9.9317e-01_rb, &
+     &6.6276e-01_rb,3.3240e-01_rb,8.9892e-05_rb/)
+      kao(:, 2, 9, 2) = (/ &
+     &2.9186e+00_rb,2.5541e+00_rb,2.1896e+00_rb,1.8252e+00_rb,1.4607e+00_rb,1.0963e+00_rb, &
+     &7.3190e-01_rb,3.6751e-01_rb,1.0914e-04_rb/)
+      kao(:, 3, 9, 2) = (/ &
+     &3.1587e+00_rb,2.7643e+00_rb,2.3700e+00_rb,1.9759e+00_rb,1.5816e+00_rb,1.1873e+00_rb, &
+     &7.9301e-01_rb,3.9869e-01_rb,1.2624e-04_rb/)
+      kao(:, 4, 9, 2) = (/ &
+     &3.3556e+00_rb,2.9370e+00_rb,2.5183e+00_rb,2.0996e+00_rb,1.6808e+00_rb,1.2622e+00_rb, &
+     &8.4339e-01_rb,4.2436e-01_rb,1.5596e-04_rb/)
+      kao(:, 5, 9, 2) = (/ &
+     &3.5177e+00_rb,3.0788e+00_rb,2.6401e+00_rb,2.2013e+00_rb,1.7625e+00_rb,1.3234e+00_rb, &
+     &8.8445e-01_rb,4.4528e-01_rb,1.9369e-04_rb/)
+      kao(:, 1,10, 2) = (/ &
+     &1.0501e+01_rb,9.1884e+00_rb,7.8763e+00_rb,6.5637e+00_rb,5.2509e+00_rb,3.9387e+00_rb, &
+     &2.6260e+00_rb,1.3137e+00_rb,1.7951e-04_rb/)
+      kao(:, 2,10, 2) = (/ &
+     &1.1694e+01_rb,1.0233e+01_rb,8.7714e+00_rb,7.3095e+00_rb,5.8477e+00_rb,4.3863e+00_rb, &
+     &2.9249e+00_rb,1.4636e+00_rb,2.1880e-04_rb/)
+      kao(:, 3,10, 2) = (/ &
+     &1.2771e+01_rb,1.1175e+01_rb,9.5787e+00_rb,7.9832e+00_rb,6.3867e+00_rb,4.7910e+00_rb, &
+     &3.1952e+00_rb,1.5993e+00_rb,2.5504e-04_rb/)
+      kao(:, 4,10, 2) = (/ &
+     &1.3661e+01_rb,1.1954e+01_rb,1.0247e+01_rb,8.5403e+00_rb,6.8331e+00_rb,5.1260e+00_rb, &
+     &3.4191e+00_rb,1.7121e+00_rb,3.1556e-04_rb/)
+      kao(:, 5,10, 2) = (/ &
+     &1.4403e+01_rb,1.2603e+01_rb,1.0804e+01_rb,9.0041e+00_rb,7.2046e+00_rb,5.4047e+00_rb, &
+     &3.6050e+00_rb,1.8055e+00_rb,3.5095e-04_rb/)
+      kao(:, 1,11, 2) = (/ &
+     &1.5305e+01_rb,1.3391e+01_rb,1.1479e+01_rb,9.5654e+00_rb,7.6527e+00_rb,5.7399e+00_rb, &
+     &3.8269e+00_rb,1.9139e+00_rb,2.5263e-04_rb/)
+      kao(:, 2,11, 2) = (/ &
+     &1.7053e+01_rb,1.4921e+01_rb,1.2790e+01_rb,1.0658e+01_rb,8.5272e+00_rb,6.3954e+00_rb, &
+     &4.2646e+00_rb,2.1334e+00_rb,3.2671e-04_rb/)
+      kao(:, 3,11, 2) = (/ &
+     &1.8597e+01_rb,1.6273e+01_rb,1.3949e+01_rb,1.1625e+01_rb,9.3007e+00_rb,6.9759e+00_rb, &
+     &4.6520e+00_rb,2.3277e+00_rb,3.9618e-04_rb/)
+      kao(:, 4,11, 2) = (/ &
+     &1.9894e+01_rb,1.7409e+01_rb,1.4922e+01_rb,1.2436e+01_rb,9.9497e+00_rb,7.4632e+00_rb, &
+     &4.9771e+00_rb,2.4907e+00_rb,4.6029e-04_rb/)
+      kao(:, 5,11, 2) = (/ &
+     &2.0957e+01_rb,1.8337e+01_rb,1.5718e+01_rb,1.3099e+01_rb,1.0480e+01_rb,7.8611e+00_rb, &
+     &5.2427e+00_rb,2.6238e+00_rb,5.1000e-04_rb/)
+      kao(:, 1,12, 2) = (/ &
+     &1.6595e+01_rb,1.4521e+01_rb,1.2446e+01_rb,1.0372e+01_rb,8.2975e+00_rb,6.2234e+00_rb, &
+     &4.1492e+00_rb,2.0749e+00_rb,2.8721e-04_rb/)
+      kao(:, 2,12, 2) = (/ &
+     &1.8487e+01_rb,1.6178e+01_rb,1.3866e+01_rb,1.1556e+01_rb,9.2444e+00_rb,6.9339e+00_rb, &
+     &4.6231e+00_rb,2.3126e+00_rb,3.5210e-04_rb/)
+      kao(:, 3,12, 2) = (/ &
+     &2.0157e+01_rb,1.7638e+01_rb,1.5119e+01_rb,1.2600e+01_rb,1.0080e+01_rb,7.5607e+00_rb, &
+     &5.0414e+00_rb,2.5223e+00_rb,4.4248e-04_rb/)
+      kao(:, 4,12, 2) = (/ &
+     &2.1568e+01_rb,1.8872e+01_rb,1.6176e+01_rb,1.3480e+01_rb,1.0785e+01_rb,8.0897e+00_rb, &
+     &5.3945e+00_rb,2.6993e+00_rb,5.0244e-04_rb/)
+      kao(:, 5,12, 2) = (/ &
+     &2.2671e+01_rb,1.9838e+01_rb,1.7004e+01_rb,1.4170e+01_rb,1.1337e+01_rb,8.5042e+00_rb, &
+     &5.6711e+00_rb,2.8381e+00_rb,5.5567e-04_rb/)
+      kao(:, 1,13, 2) = (/ &
+     &1.4451e+01_rb,1.2644e+01_rb,1.0838e+01_rb,9.0321e+00_rb,7.2259e+00_rb,5.4197e+00_rb, &
+     &3.6133e+00_rb,1.8070e+00_rb,2.7932e-04_rb/)
+      kao(:, 2,13, 2) = (/ &
+     &1.6097e+01_rb,1.4085e+01_rb,1.2073e+01_rb,1.0061e+01_rb,8.0489e+00_rb,6.0372e+00_rb, &
+     &4.0253e+00_rb,2.0137e+00_rb,3.2799e-04_rb/)
+      kao(:, 3,13, 2) = (/ &
+     &1.7564e+01_rb,1.5369e+01_rb,1.3173e+01_rb,1.0978e+01_rb,8.7826e+00_rb,6.5876e+00_rb, &
+     &4.3925e+00_rb,2.1975e+00_rb,4.0780e-04_rb/)
+      kao(:, 4,13, 2) = (/ &
+     &1.8771e+01_rb,1.6426e+01_rb,1.4079e+01_rb,1.1733e+01_rb,9.3868e+00_rb,7.0409e+00_rb, &
+     &4.6954e+00_rb,2.3495e+00_rb,5.0230e-04_rb/)
+      kao(:, 5,13, 2) = (/ &
+     &1.9694e+01_rb,1.7232e+01_rb,1.4771e+01_rb,1.2310e+01_rb,9.8489e+00_rb,7.3875e+00_rb, &
+     &4.9264e+00_rb,2.4656e+00_rb,5.5102e-04_rb/)
+      kao(:, 1, 1, 3) = (/ &
+     &3.7564e-02_rb,3.3492e-02_rb,2.9385e-02_rb,2.5064e-02_rb,2.0679e-02_rb,1.6159e-02_rb, &
+     &1.1502e-02_rb,6.5367e-03_rb,3.9794e-04_rb/)
+      kao(:, 2, 1, 3) = (/ &
+     &3.6916e-02_rb,3.3151e-02_rb,2.9160e-02_rb,2.5018e-02_rb,2.0751e-02_rb,1.6389e-02_rb, &
+     &1.1901e-02_rb,7.2678e-03_rb,5.4686e-04_rb/)
+      kao(:, 3, 1, 3) = (/ &
+     &3.6399e-02_rb,3.2903e-02_rb,2.9031e-02_rb,2.5012e-02_rb,2.0900e-02_rb,1.6718e-02_rb, &
+     &1.2389e-02_rb,8.0801e-03_rb,7.4220e-04_rb/)
+      kao(:, 4, 1, 3) = (/ &
+     &3.6126e-02_rb,3.2782e-02_rb,2.9047e-02_rb,2.5198e-02_rb,2.1279e-02_rb,1.7152e-02_rb, &
+     &1.3045e-02_rb,8.9482e-03_rb,8.9478e-04_rb/)
+      kao(:, 5, 1, 3) = (/ &
+     &3.5996e-02_rb,3.2833e-02_rb,2.9270e-02_rb,2.5593e-02_rb,2.1712e-02_rb,1.7723e-02_rb, &
+     &1.3812e-02_rb,9.7243e-03_rb,1.0975e-03_rb/)
+      kao(:, 1, 2, 3) = (/ &
+     &4.9545e-02_rb,4.3840e-02_rb,3.8273e-02_rb,3.2472e-02_rb,2.6558e-02_rb,2.0510e-02_rb, &
+     &1.4332e-02_rb,7.7992e-03_rb,3.0769e-04_rb/)
+      kao(:, 2, 2, 3) = (/ &
+     &4.8709e-02_rb,4.3359e-02_rb,3.7969e-02_rb,3.2304e-02_rb,2.6513e-02_rb,2.0603e-02_rb, &
+     &1.4626e-02_rb,8.4051e-03_rb,4.1476e-04_rb/)
+      kao(:, 3, 2, 3) = (/ &
+     &4.8165e-02_rb,4.3120e-02_rb,3.7795e-02_rb,3.2248e-02_rb,2.6570e-02_rb,2.0838e-02_rb, &
+     &1.4977e-02_rb,8.9685e-03_rb,5.6832e-04_rb/)
+      kao(:, 4, 2, 3) = (/ &
+     &4.7962e-02_rb,4.3077e-02_rb,3.7844e-02_rb,3.2393e-02_rb,2.6873e-02_rb,2.1238e-02_rb, &
+     &1.5407e-02_rb,9.6431e-03_rb,6.7745e-04_rb/)
+      kao(:, 5, 2, 3) = (/ &
+     &4.8025e-02_rb,4.3378e-02_rb,3.8202e-02_rb,3.2847e-02_rb,2.7374e-02_rb,2.1742e-02_rb, &
+     &1.5999e-02_rb,1.0391e-02_rb,8.3539e-04_rb/)
+      kao(:, 1, 3, 3) = (/ &
+     &8.8120e-02_rb,7.7386e-02_rb,6.6977e-02_rb,5.6500e-02_rb,4.5838e-02_rb,3.5027e-02_rb, &
+     &2.3995e-02_rb,1.2704e-02_rb,2.2676e-04_rb/)
+      kao(:, 2, 3, 3) = (/ &
+     &8.6799e-02_rb,7.6419e-02_rb,6.6419e-02_rb,5.6119e-02_rb,4.5623e-02_rb,3.4916e-02_rb, &
+     &2.4025e-02_rb,1.3004e-02_rb,3.0168e-04_rb/)
+      kao(:, 3, 3, 3) = (/ &
+     &8.6001e-02_rb,7.6005e-02_rb,6.6184e-02_rb,5.6008e-02_rb,4.5591e-02_rb,3.4990e-02_rb, &
+     &2.4263e-02_rb,1.3424e-02_rb,3.9676e-04_rb/)
+      kao(:, 4, 3, 3) = (/ &
+     &8.5691e-02_rb,7.5994e-02_rb,6.6270e-02_rb,5.6158e-02_rb,4.5788e-02_rb,3.5296e-02_rb, &
+     &2.4707e-02_rb,1.3830e-02_rb,4.9186e-04_rb/)
+      kao(:, 5, 3, 3) = (/ &
+     &8.6172e-02_rb,7.6716e-02_rb,6.6965e-02_rb,5.6820e-02_rb,4.6489e-02_rb,3.5977e-02_rb, &
+     &2.5332e-02_rb,1.4387e-02_rb,6.1173e-04_rb/)
+      kao(:, 1, 4, 3) = (/ &
+     &1.6100e-01_rb,1.4106e-01_rb,1.2117e-01_rb,1.0160e-01_rb,8.1953e-02_rb,6.2189e-02_rb, &
+     &4.2184e-02_rb,2.1860e-02_rb,1.5920e-04_rb/)
+      kao(:, 2, 4, 3) = (/ &
+     &1.5854e-01_rb,1.3897e-01_rb,1.1977e-01_rb,1.0067e-01_rb,8.1408e-02_rb,6.1866e-02_rb, &
+     &4.2083e-02_rb,2.1896e-02_rb,2.1901e-04_rb/)
+      kao(:, 3, 4, 3) = (/ &
+     &1.5713e-01_rb,1.3793e-01_rb,1.1924e-01_rb,1.0046e-01_rb,8.1310e-02_rb,6.1926e-02_rb, &
+     &4.2176e-02_rb,2.2134e-02_rb,2.8281e-04_rb/)
+      kao(:, 4, 4, 3) = (/ &
+     &1.5680e-01_rb,1.3795e-01_rb,1.1956e-01_rb,1.0071e-01_rb,8.1588e-02_rb,6.2136e-02_rb, &
+     &4.2469e-02_rb,2.2574e-02_rb,3.5509e-04_rb/)
+      kao(:, 5, 4, 3) = (/ &
+     &1.5807e-01_rb,1.3940e-01_rb,1.2093e-01_rb,1.0191e-01_rb,8.2580e-02_rb,6.3036e-02_rb, &
+     &4.3252e-02_rb,2.3169e-02_rb,4.4437e-04_rb/)
+      kao(:, 1, 5, 3) = (/ &
+     &2.7295e-01_rb,2.3896e-01_rb,2.0497e-01_rb,1.7107e-01_rb,1.3742e-01_rb,1.0372e-01_rb, &
+     &6.9897e-02_rb,3.5756e-02_rb,1.1345e-04_rb/)
+      kao(:, 2, 5, 3) = (/ &
+     &2.6909e-01_rb,2.3567e-01_rb,2.0228e-01_rb,1.6922e-01_rb,1.3618e-01_rb,1.0303e-01_rb, &
+     &6.9598e-02_rb,3.5741e-02_rb,1.5887e-04_rb/)
+      kao(:, 3, 5, 3) = (/ &
+     &2.6654e-01_rb,2.3348e-01_rb,2.0077e-01_rb,1.6833e-01_rb,1.3583e-01_rb,1.0288e-01_rb, &
+     &6.9627e-02_rb,3.5834e-02_rb,2.0432e-04_rb/)
+      kao(:, 4, 5, 3) = (/ &
+     &2.6633e-01_rb,2.3346e-01_rb,2.0125e-01_rb,1.6903e-01_rb,1.3632e-01_rb,1.0334e-01_rb, &
+     &6.9968e-02_rb,3.6152e-02_rb,2.5784e-04_rb/)
+      kao(:, 5, 5, 3) = (/ &
+     &2.6868e-01_rb,2.3592e-01_rb,2.0366e-01_rb,1.7109e-01_rb,1.3803e-01_rb,1.0467e-01_rb, &
+     &7.0932e-02_rb,3.6877e-02_rb,3.2436e-04_rb/)
+      kao(:, 1, 6, 3) = (/ &
+     &4.3357e-01_rb,3.7951e-01_rb,3.2542e-01_rb,2.7129e-01_rb,2.1728e-01_rb,1.6346e-01_rb, &
+     &1.0964e-01_rb,5.5662e-02_rb,8.3325e-05_rb/)
+      kao(:, 2, 6, 3) = (/ &
+     &4.2794e-01_rb,3.7459e-01_rb,3.2123e-01_rb,2.6798e-01_rb,2.1494e-01_rb,1.6197e-01_rb, &
+     &1.0894e-01_rb,5.5488e-02_rb,1.1433e-04_rb/)
+      kao(:, 3, 6, 3) = (/ &
+     &4.2362e-01_rb,3.7090e-01_rb,3.1822e-01_rb,2.6585e-01_rb,2.1359e-01_rb,1.6133e-01_rb, &
+     &1.0870e-01_rb,5.5444e-02_rb,1.4294e-04_rb/)
+      kao(:, 4, 6, 3) = (/ &
+     &4.2356e-01_rb,3.7092e-01_rb,3.1860e-01_rb,2.6656e-01_rb,2.1457e-01_rb,1.6217e-01_rb, &
+     &1.0928e-01_rb,5.5858e-02_rb,1.8487e-04_rb/)
+      kao(:, 5, 6, 3) = (/ &
+     &4.2732e-01_rb,3.7444e-01_rb,3.2213e-01_rb,2.6992e-01_rb,2.1742e-01_rb,1.6433e-01_rb, &
+     &1.1084e-01_rb,5.6756e-02_rb,2.3367e-04_rb/)
+      kao(:, 1, 7, 3) = (/ &
+     &7.2201e-01_rb,6.3185e-01_rb,5.4168e-01_rb,4.5148e-01_rb,3.6131e-01_rb,2.7123e-01_rb, &
+     &1.8131e-01_rb,9.1347e-02_rb,6.1051e-05_rb/)
+      kao(:, 2, 7, 3) = (/ &
+     &7.1295e-01_rb,6.2391e-01_rb,5.3487e-01_rb,4.4585e-01_rb,3.5694e-01_rb,2.6824e-01_rb, &
+     &1.7961e-01_rb,9.0876e-02_rb,8.2662e-05_rb/)
+      kao(:, 3, 7, 3) = (/ &
+     &7.0704e-01_rb,6.1882e-01_rb,5.3061e-01_rb,4.4252e-01_rb,3.5463e-01_rb,2.6681e-01_rb, &
+     &1.7908e-01_rb,9.0926e-02_rb,1.0796e-04_rb/)
+      kao(:, 4, 7, 3) = (/ &
+     &7.0657e-01_rb,6.1841e-01_rb,5.3039e-01_rb,4.4278e-01_rb,3.5513e-01_rb,2.6769e-01_rb, &
+     &1.7995e-01_rb,9.1305e-02_rb,1.3920e-04_rb/)
+      kao(:, 5, 7, 3) = (/ &
+     &7.1310e-01_rb,6.2430e-01_rb,5.3600e-01_rb,4.4782e-01_rb,3.5976e-01_rb,2.7158e-01_rb, &
+     &1.8261e-01_rb,9.2814e-02_rb,1.7572e-04_rb/)
+      kao(:, 1, 8, 3) = (/ &
+     &1.4344e+00_rb,1.2551e+00_rb,1.0759e+00_rb,8.9667e-01_rb,7.1735e-01_rb,5.3821e-01_rb, &
+     &3.5899e-01_rb,1.8011e-01_rb,7.5748e-05_rb/)
+      kao(:, 2, 8, 3) = (/ &
+     &1.4191e+00_rb,1.2419e+00_rb,1.0645e+00_rb,8.8713e-01_rb,7.0979e-01_rb,5.3268e-01_rb, &
+     &3.5557e-01_rb,1.7867e-01_rb,9.9921e-05_rb/)
+      kao(:, 3, 8, 3) = (/ &
+     &1.4086e+00_rb,1.2327e+00_rb,1.0566e+00_rb,8.8065e-01_rb,7.0478e-01_rb,5.2920e-01_rb, &
+     &3.5364e-01_rb,1.7813e-01_rb,1.2236e-04_rb/)
+      kao(:, 4, 8, 3) = (/ &
+     &1.4087e+00_rb,1.2327e+00_rb,1.0568e+00_rb,8.8106e-01_rb,7.0553e-01_rb,5.2998e-01_rb, &
+     &3.5460e-01_rb,1.7919e-01_rb,1.5414e-04_rb/)
+      kao(:, 5, 8, 3) = (/ &
+     &1.4217e+00_rb,1.2444e+00_rb,1.0672e+00_rb,8.9025e-01_rb,7.1327e-01_rb,5.3627e-01_rb, &
+     &3.5965e-01_rb,1.8202e-01_rb,1.9115e-04_rb/)
+      kao(:, 1, 9, 3) = (/ &
+     &5.3656e+00_rb,4.6949e+00_rb,4.0244e+00_rb,3.3536e+00_rb,2.6829e+00_rb,2.0124e+00_rb, &
+     &1.3418e+00_rb,6.7121e-01_rb,1.2938e-04_rb/)
+      kao(:, 2, 9, 3) = (/ &
+     &5.3249e+00_rb,4.6593e+00_rb,3.9938e+00_rb,3.3284e+00_rb,2.6628e+00_rb,1.9972e+00_rb, &
+     &1.3317e+00_rb,6.6623e-01_rb,1.6248e-04_rb/)
+      kao(:, 3, 9, 3) = (/ &
+     &5.2842e+00_rb,4.6238e+00_rb,3.9633e+00_rb,3.3029e+00_rb,2.6426e+00_rb,1.9822e+00_rb, &
+     &1.3219e+00_rb,6.6174e-01_rb,2.1505e-04_rb/)
+      kao(:, 4, 9, 3) = (/ &
+     &5.2909e+00_rb,4.6297e+00_rb,3.9685e+00_rb,3.3074e+00_rb,2.6461e+00_rb,1.9850e+00_rb, &
+     &1.3243e+00_rb,6.6344e-01_rb,2.5323e-04_rb/)
+      kao(:, 5, 9, 3) = (/ &
+     &5.3328e+00_rb,4.6665e+00_rb,4.0003e+00_rb,3.3342e+00_rb,2.6682e+00_rb,2.0021e+00_rb, &
+     &1.3361e+00_rb,6.6998e-01_rb,2.8724e-04_rb/)
+      kao(:, 1,10, 3) = (/ &
+     &2.2338e+01_rb,1.9545e+01_rb,1.6753e+01_rb,1.3961e+01_rb,1.1170e+01_rb,8.3767e+00_rb, &
+     &5.5849e+00_rb,2.7925e+00_rb,2.7123e-04_rb/)
+      kao(:, 2,10, 3) = (/ &
+     &2.2247e+01_rb,1.9467e+01_rb,1.6686e+01_rb,1.3905e+01_rb,1.1124e+01_rb,8.3431e+00_rb, &
+     &5.5623e+00_rb,2.7817e+00_rb,3.3076e-04_rb/)
+      kao(:, 3,10, 3) = (/ &
+     &2.2079e+01_rb,1.9319e+01_rb,1.6560e+01_rb,1.3800e+01_rb,1.1040e+01_rb,8.2801e+00_rb, &
+     &5.5205e+00_rb,2.7607e+00_rb,4.2235e-04_rb/)
+      kao(:, 4,10, 3) = (/ &
+     &2.2133e+01_rb,1.9366e+01_rb,1.6600e+01_rb,1.3833e+01_rb,1.1067e+01_rb,8.3005e+00_rb, &
+     &5.5343e+00_rb,2.7680e+00_rb,4.8628e-04_rb/)
+      kao(:, 5,10, 3) = (/ &
+     &2.2337e+01_rb,1.9545e+01_rb,1.6754e+01_rb,1.3962e+01_rb,1.1171e+01_rb,8.3788e+00_rb, &
+     &5.5873e+00_rb,2.7956e+00_rb,6.0636e-04_rb/)
+      kao(:, 1,11, 3) = (/ &
+     &3.2372e+01_rb,2.8324e+01_rb,2.4279e+01_rb,2.0232e+01_rb,1.6186e+01_rb,1.2140e+01_rb, &
+     &8.0929e+00_rb,4.0469e+00_rb,3.8659e-04_rb/)
+      kao(:, 2,11, 3) = (/ &
+     &3.2225e+01_rb,2.8197e+01_rb,2.4169e+01_rb,2.0141e+01_rb,1.6113e+01_rb,1.2085e+01_rb, &
+     &8.0568e+00_rb,4.0284e+00_rb,4.6837e-04_rb/)
+      kao(:, 3,11, 3) = (/ &
+     &3.2089e+01_rb,2.8078e+01_rb,2.4068e+01_rb,2.0057e+01_rb,1.6046e+01_rb,1.2035e+01_rb, &
+     &8.0232e+00_rb,4.0121e+00_rb,5.6676e-04_rb/)
+      kao(:, 4,11, 3) = (/ &
+     &3.2281e+01_rb,2.8246e+01_rb,2.4212e+01_rb,2.0176e+01_rb,1.6141e+01_rb,1.2106e+01_rb, &
+     &8.0716e+00_rb,4.0370e+00_rb,7.3031e-04_rb/)
+      kao(:, 5,11, 3) = (/ &
+     &3.2736e+01_rb,2.8646e+01_rb,2.4553e+01_rb,2.0462e+01_rb,1.6370e+01_rb,1.2278e+01_rb, &
+     &8.1864e+00_rb,4.0949e+00_rb,8.3516e-04_rb/)
+      kao(:, 1,12, 3) = (/ &
+     &3.4882e+01_rb,3.0522e+01_rb,2.6162e+01_rb,2.1802e+01_rb,1.7441e+01_rb,1.3081e+01_rb, &
+     &8.7208e+00_rb,4.3607e+00_rb,4.1853e-04_rb/)
+      kao(:, 2,12, 3) = (/ &
+     &3.4744e+01_rb,3.0400e+01_rb,2.6058e+01_rb,2.1715e+01_rb,1.7372e+01_rb,1.3029e+01_rb, &
+     &8.6862e+00_rb,4.3435e+00_rb,5.1635e-04_rb/)
+      kao(:, 3,12, 3) = (/ &
+     &3.4694e+01_rb,3.0356e+01_rb,2.6020e+01_rb,2.1683e+01_rb,1.7347e+01_rb,1.3010e+01_rb, &
+     &8.6737e+00_rb,4.3374e+00_rb,5.8258e-04_rb/)
+      kao(:, 4,12, 3) = (/ &
+     &3.4999e+01_rb,3.0625e+01_rb,2.6249e+01_rb,2.1876e+01_rb,1.7501e+01_rb,1.3126e+01_rb, &
+     &8.7513e+00_rb,4.3768e+00_rb,7.2545e-04_rb/)
+      kao(:, 5,12, 3) = (/ &
+     &3.5658e+01_rb,3.1201e+01_rb,2.6744e+01_rb,2.2288e+01_rb,1.7831e+01_rb,1.3374e+01_rb, &
+     &8.9165e+00_rb,4.4593e+00_rb,9.3950e-04_rb/)
+      kao(:, 1,13, 3) = (/ &
+     &3.0168e+01_rb,2.6399e+01_rb,2.2627e+01_rb,1.8855e+01_rb,1.5085e+01_rb,1.1314e+01_rb, &
+     &7.5425e+00_rb,3.7715e+00_rb,4.1524e-04_rb/)
+      kao(:, 2,13, 3) = (/ &
+     &3.0082e+01_rb,2.6321e+01_rb,2.2562e+01_rb,1.8800e+01_rb,1.5040e+01_rb,1.1280e+01_rb, &
+     &7.5203e+00_rb,3.7604e+00_rb,5.1897e-04_rb/)
+      kao(:, 3,13, 3) = (/ &
+     &3.0098e+01_rb,2.6336e+01_rb,2.2574e+01_rb,1.8812e+01_rb,1.5049e+01_rb,1.1287e+01_rb, &
+     &7.5253e+00_rb,3.7634e+00_rb,6.3490e-04_rb/)
+      kao(:, 4,13, 3) = (/ &
+     &3.0488e+01_rb,2.6677e+01_rb,2.2867e+01_rb,1.9056e+01_rb,1.5245e+01_rb,1.1434e+01_rb, &
+     &7.6233e+00_rb,3.8122e+00_rb,7.3304e-04_rb/)
+      kao(:, 5,13, 3) = (/ &
+     &3.1139e+01_rb,2.7247e+01_rb,2.3355e+01_rb,1.9463e+01_rb,1.5570e+01_rb,1.1678e+01_rb, &
+     &7.7859e+00_rb,3.8940e+00_rb,8.6573e-04_rb/)
+      kao(:, 1, 1, 4) = (/ &
+     &5.2057e-02_rb,4.6191e-02_rb,4.0791e-02_rb,3.5264e-02_rb,2.9386e-02_rb,2.3311e-02_rb, &
+     &1.6933e-02_rb,9.9741e-03_rb,9.4742e-04_rb/)
+      kao(:, 2, 1, 4) = (/ &
+     &5.1799e-02_rb,4.6370e-02_rb,4.1424e-02_rb,3.5942e-02_rb,3.0151e-02_rb,2.4090e-02_rb, &
+     &1.7827e-02_rb,1.1138e-02_rb,1.1643e-03_rb/)
+      kao(:, 3, 1, 4) = (/ &
+     &5.1774e-02_rb,4.6875e-02_rb,4.2240e-02_rb,3.6825e-02_rb,3.1105e-02_rb,2.5101e-02_rb, &
+     &1.8967e-02_rb,1.2189e-02_rb,1.4467e-03_rb/)
+      kao(:, 4, 1, 4) = (/ &
+     &5.2049e-02_rb,4.7822e-02_rb,4.3286e-02_rb,3.7962e-02_rb,3.2336e-02_rb,2.6505e-02_rb, &
+     &2.0163e-02_rb,1.3176e-02_rb,1.8457e-03_rb/)
+      kao(:, 5, 1, 4) = (/ &
+     &5.2435e-02_rb,4.8877e-02_rb,4.4449e-02_rb,3.9288e-02_rb,3.3894e-02_rb,2.7971e-02_rb, &
+     &2.1357e-02_rb,1.4142e-02_rb,2.2765e-03_rb/)
+      kao(:, 1, 2, 4) = (/ &
+     &6.9283e-02_rb,6.1124e-02_rb,5.3312e-02_rb,4.5637e-02_rb,3.7639e-02_rb,2.9444e-02_rb, &
+     &2.0926e-02_rb,1.1987e-02_rb,6.7708e-04_rb/)
+      kao(:, 2, 2, 4) = (/ &
+     &6.9230e-02_rb,6.1365e-02_rb,5.4052e-02_rb,4.6528e-02_rb,3.8569e-02_rb,3.0382e-02_rb, &
+     &2.1758e-02_rb,1.2938e-02_rb,8.4618e-04_rb/)
+      kao(:, 3, 2, 4) = (/ &
+     &6.9474e-02_rb,6.2065e-02_rb,5.5235e-02_rb,4.7695e-02_rb,3.9803e-02_rb,3.1502e-02_rb, &
+     &2.2924e-02_rb,1.3989e-02_rb,1.0726e-03_rb/)
+      kao(:, 4, 2, 4) = (/ &
+     &7.0041e-02_rb,6.3262e-02_rb,5.6631e-02_rb,4.9140e-02_rb,4.1246e-02_rb,3.2954e-02_rb, &
+     &2.4393e-02_rb,1.5061e-02_rb,1.3926e-03_rb/)
+      kao(:, 5, 2, 4) = (/ &
+     &7.0798e-02_rb,6.4648e-02_rb,5.8174e-02_rb,5.0781e-02_rb,4.2976e-02_rb,3.4744e-02_rb, &
+     &2.5864e-02_rb,1.6092e-02_rb,1.7223e-03_rb/)
+      kao(:, 1, 3, 4) = (/ &
+     &1.2468e-01_rb,1.0948e-01_rb,9.4277e-02_rb,7.9471e-02_rb,6.4703e-02_rb,4.9713e-02_rb, &
+     &3.4483e-02_rb,1.8729e-02_rb,4.6220e-04_rb/)
+      kao(:, 2, 3, 4) = (/ &
+     &1.2473e-01_rb,1.0972e-01_rb,9.4939e-02_rb,8.0505e-02_rb,6.5924e-02_rb,5.0895e-02_rb, &
+     &3.5571e-02_rb,1.9546e-02_rb,5.8785e-04_rb/)
+      kao(:, 3, 3, 4) = (/ &
+     &1.2557e-01_rb,1.1074e-01_rb,9.6443e-02_rb,8.2330e-02_rb,6.7617e-02_rb,5.2547e-02_rb, &
+     &3.6938e-02_rb,2.0666e-02_rb,7.7467e-04_rb/)
+      kao(:, 4, 3, 4) = (/ &
+     &1.2675e-01_rb,1.1231e-01_rb,9.8604e-02_rb,8.4502e-02_rb,6.9700e-02_rb,5.4472e-02_rb, &
+     &3.8553e-02_rb,2.2075e-02_rb,9.9922e-04_rb/)
+      kao(:, 5, 3, 4) = (/ &
+     &1.2846e-01_rb,1.1449e-01_rb,1.0119e-01_rb,8.7016e-02_rb,7.2084e-02_rb,5.6669e-02_rb, &
+     &4.0555e-02_rb,2.3518e-02_rb,1.2453e-03_rb/)
+      kao(:, 1, 4, 4) = (/ &
+     &2.3029e-01_rb,2.0185e-01_rb,1.7335e-01_rb,1.4485e-01_rb,1.1669e-01_rb,8.8611e-02_rb, &
+     &6.0409e-02_rb,3.1699e-02_rb,3.0371e-04_rb/)
+      kao(:, 2, 4, 4) = (/ &
+     &2.2988e-01_rb,2.0158e-01_rb,1.7329e-01_rb,1.4525e-01_rb,1.1751e-01_rb,8.9738e-02_rb, &
+     &6.1449e-02_rb,3.2569e-02_rb,4.0236e-04_rb/)
+      kao(:, 3, 4, 4) = (/ &
+     &2.3229e-01_rb,2.0393e-01_rb,1.7566e-01_rb,1.4780e-01_rb,1.2020e-01_rb,9.2062e-02_rb, &
+     &6.3397e-02_rb,3.3957e-02_rb,5.4454e-04_rb/)
+      kao(:, 4, 4, 4) = (/ &
+     &2.3507e-01_rb,2.0665e-01_rb,1.7868e-01_rb,1.5121e-01_rb,1.2350e-01_rb,9.4964e-02_rb, &
+     &6.5854e-02_rb,3.5604e-02_rb,7.0998e-04_rb/)
+      kao(:, 5, 4, 4) = (/ &
+     &2.3825e-01_rb,2.0990e-01_rb,1.8240e-01_rb,1.5515e-01_rb,1.2704e-01_rb,9.8075e-02_rb, &
+     &6.8384e-02_rb,3.7494e-02_rb,8.9536e-04_rb/)
+      kao(:, 1, 5, 4) = (/ &
+     &3.8945e-01_rb,3.4103e-01_rb,2.9259e-01_rb,2.4415e-01_rb,1.9571e-01_rb,1.4754e-01_rb, &
+     &9.9565e-02_rb,5.1352e-02_rb,2.0409e-04_rb/)
+      kao(:, 2, 5, 4) = (/ &
+     &3.8981e-01_rb,3.4147e-01_rb,2.9305e-01_rb,2.4466e-01_rb,1.9659e-01_rb,1.4875e-01_rb, &
+     &1.0088e-01_rb,5.2387e-02_rb,2.7339e-04_rb/)
+      kao(:, 3, 5, 4) = (/ &
+     &3.9497e-01_rb,3.4612e-01_rb,2.9724e-01_rb,2.4861e-01_rb,2.0028e-01_rb,1.5226e-01_rb, &
+     &1.0369e-01_rb,5.4177e-02_rb,3.7984e-04_rb/)
+      kao(:, 4, 5, 4) = (/ &
+     &4.0149e-01_rb,3.5204e-01_rb,3.0270e-01_rb,2.5382e-01_rb,2.0546e-01_rb,1.5684e-01_rb, &
+     &1.0724e-01_rb,5.6458e-02_rb,5.0160e-04_rb/)
+      kao(:, 5, 5, 4) = (/ &
+     &4.0773e-01_rb,3.5786e-01_rb,3.0839e-01_rb,2.5956e-01_rb,2.1090e-01_rb,1.6141e-01_rb, &
+     &1.1086e-01_rb,5.8838e-02_rb,6.4384e-04_rb/)
+      kao(:, 1, 6, 4) = (/ &
+     &6.2109e-01_rb,5.4370e-01_rb,4.6619e-01_rb,3.8877e-01_rb,3.1132e-01_rb,2.3383e-01_rb, &
+     &1.5671e-01_rb,7.9602e-02_rb,1.3341e-04_rb/)
+      kao(:, 2, 6, 4) = (/ &
+     &6.2314e-01_rb,5.4556e-01_rb,4.6793e-01_rb,3.9037e-01_rb,3.1270e-01_rb,2.3534e-01_rb, &
+     &1.5827e-01_rb,8.0992e-02_rb,1.8152e-04_rb/)
+      kao(:, 3, 6, 4) = (/ &
+     &6.2957e-01_rb,5.5136e-01_rb,4.7308e-01_rb,3.9475e-01_rb,3.1676e-01_rb,2.3906e-01_rb, &
+     &1.6147e-01_rb,8.3225e-02_rb,2.5970e-04_rb/)
+      kao(:, 4, 6, 4) = (/ &
+     &6.4091e-01_rb,5.6147e-01_rb,4.8196e-01_rb,4.0265e-01_rb,3.2370e-01_rb,2.4515e-01_rb, &
+     &1.6638e-01_rb,8.6255e-02_rb,3.5139e-04_rb/)
+      kao(:, 5, 6, 4) = (/ &
+     &6.5388e-01_rb,5.7307e-01_rb,4.9223e-01_rb,4.1191e-01_rb,3.3205e-01_rb,2.5237e-01_rb, &
+     &1.7171e-01_rb,8.9448e-02_rb,4.5531e-04_rb/)
+      kao(:, 1, 7, 4) = (/ &
+     &1.0457e+00_rb,9.1519e-01_rb,7.8460e-01_rb,6.5401e-01_rb,5.2349e-01_rb,3.9292e-01_rb, &
+     &2.6230e-01_rb,1.3220e-01_rb,1.0032e-04_rb/)
+      kao(:, 2, 7, 4) = (/ &
+     &1.0500e+00_rb,9.1906e-01_rb,7.8807e-01_rb,6.5699e-01_rb,5.2599e-01_rb,3.9492e-01_rb, &
+     &2.6410e-01_rb,1.3358e-01_rb,1.3899e-04_rb/)
+      kao(:, 3, 7, 4) = (/ &
+     &1.0598e+00_rb,9.2774e-01_rb,7.9565e-01_rb,6.6349e-01_rb,5.3130e-01_rb,3.9936e-01_rb, &
+     &2.6782e-01_rb,1.3620e-01_rb,1.8444e-04_rb/)
+      kao(:, 4, 7, 4) = (/ &
+     &1.0743e+00_rb,9.4059e-01_rb,8.0685e-01_rb,6.7311e-01_rb,5.3945e-01_rb,4.0621e-01_rb, &
+     &2.7331e-01_rb,1.3995e-01_rb,2.4657e-04_rb/)
+      kao(:, 5, 7, 4) = (/ &
+     &1.0996e+00_rb,9.6289e-01_rb,8.2608e-01_rb,6.8953e-01_rb,5.5342e-01_rb,4.1738e-01_rb, &
+     &2.8182e-01_rb,1.4485e-01_rb,3.2431e-04_rb/)
+      kao(:, 1, 8, 4) = (/ &
+     &2.1071e+00_rb,1.8438e+00_rb,1.5804e+00_rb,1.3173e+00_rb,1.0540e+00_rb,7.9071e-01_rb, &
+     &5.2749e-01_rb,2.6416e-01_rb,1.1085e-04_rb/)
+      kao(:, 2, 8, 4) = (/ &
+     &2.1142e+00_rb,1.8501e+00_rb,1.5861e+00_rb,1.3219e+00_rb,1.0578e+00_rb,7.9379e-01_rb, &
+     &5.2971e-01_rb,2.6585e-01_rb,1.4810e-04_rb/)
+      kao(:, 3, 8, 4) = (/ &
+     &2.1318e+00_rb,1.8656e+00_rb,1.5995e+00_rb,1.3333e+00_rb,1.0671e+00_rb,8.0094e-01_rb, &
+     &5.3475e-01_rb,2.6918e-01_rb,1.9501e-04_rb/)
+      kao(:, 4, 8, 4) = (/ &
+     &2.1555e+00_rb,1.8865e+00_rb,1.6175e+00_rb,1.3486e+00_rb,1.0795e+00_rb,8.1059e-01_rb, &
+     &5.4205e-01_rb,2.7386e-01_rb,2.4224e-04_rb/)
+      kao(:, 5, 8, 4) = (/ &
+     &2.2062e+00_rb,1.9311e+00_rb,1.6560e+00_rb,1.3807e+00_rb,1.1056e+00_rb,8.3087e-01_rb, &
+     &5.5626e-01_rb,2.8214e-01_rb,2.8558e-04_rb/)
+      kao(:, 1, 9, 4) = (/ &
+     &7.9972e+00_rb,6.9979e+00_rb,5.9979e+00_rb,4.9986e+00_rb,3.9987e+00_rb,2.9994e+00_rb, &
+     &1.9999e+00_rb,1.0002e+00_rb,1.8668e-04_rb/)
+      kao(:, 2, 9, 4) = (/ &
+     &8.0128e+00_rb,7.0114e+00_rb,6.0097e+00_rb,5.0085e+00_rb,4.0070e+00_rb,3.0056e+00_rb, &
+     &2.0042e+00_rb,1.0027e+00_rb,2.5150e-04_rb/)
+      kao(:, 3, 9, 4) = (/ &
+     &8.0805e+00_rb,7.0702e+00_rb,6.0607e+00_rb,5.0509e+00_rb,4.0412e+00_rb,3.0319e+00_rb, &
+     &2.0219e+00_rb,1.0119e+00_rb,3.0396e-04_rb/)
+      kao(:, 4, 9, 4) = (/ &
+     &8.1743e+00_rb,7.1533e+00_rb,6.1315e+00_rb,5.1108e+00_rb,4.0892e+00_rb,3.0678e+00_rb, &
+     &2.0462e+00_rb,1.0247e+00_rb,3.5321e-04_rb/)
+      kao(:, 5, 9, 4) = (/ &
+     &8.3409e+00_rb,7.2988e+00_rb,6.2567e+00_rb,5.2146e+00_rb,4.1728e+00_rb,3.1306e+00_rb, &
+     &2.0885e+00_rb,1.0471e+00_rb,4.4198e-04_rb/)
+      kao(:, 1,10, 4) = (/ &
+     &3.3771e+01_rb,2.9548e+01_rb,2.5328e+01_rb,2.1105e+01_rb,1.6886e+01_rb,1.2665e+01_rb, &
+     &8.4427e+00_rb,4.2216e+00_rb,4.3200e-04_rb/)
+      kao(:, 2,10, 4) = (/ &
+     &3.3810e+01_rb,2.9587e+01_rb,2.5358e+01_rb,2.1131e+01_rb,1.6905e+01_rb,1.2680e+01_rb, &
+     &8.4534e+00_rb,4.2274e+00_rb,5.4393e-04_rb/)
+      kao(:, 3,10, 4) = (/ &
+     &3.4144e+01_rb,2.9876e+01_rb,2.5609e+01_rb,2.1340e+01_rb,1.7073e+01_rb,1.2805e+01_rb, &
+     &8.5375e+00_rb,4.2697e+00_rb,6.4726e-04_rb/)
+      kao(:, 4,10, 4) = (/ &
+     &3.4577e+01_rb,3.0255e+01_rb,2.5934e+01_rb,2.1613e+01_rb,1.7291e+01_rb,1.2969e+01_rb, &
+     &8.6471e+00_rb,4.3251e+00_rb,7.9967e-04_rb/)
+      kao(:, 5,10, 4) = (/ &
+     &3.5279e+01_rb,3.0869e+01_rb,2.6459e+01_rb,2.2050e+01_rb,1.7642e+01_rb,1.3232e+01_rb, &
+     &8.8233e+00_rb,4.4139e+00_rb,8.8613e-04_rb/)
+      kao(:, 1,11, 4) = (/ &
+     &4.9379e+01_rb,4.3210e+01_rb,3.7035e+01_rb,3.0865e+01_rb,2.4692e+01_rb,1.8519e+01_rb, &
+     &1.2346e+01_rb,6.1734e+00_rb,5.9531e-04_rb/)
+      kao(:, 2,11, 4) = (/ &
+     &4.9664e+01_rb,4.3455e+01_rb,3.7247e+01_rb,3.1040e+01_rb,2.4833e+01_rb,1.8625e+01_rb, &
+     &1.2417e+01_rb,6.2092e+00_rb,7.3911e-04_rb/)
+      kao(:, 3,11, 4) = (/ &
+     &5.0351e+01_rb,4.4056e+01_rb,3.7762e+01_rb,3.1470e+01_rb,2.5175e+01_rb,1.8882e+01_rb, &
+     &1.2589e+01_rb,6.2954e+00_rb,9.0535e-04_rb/)
+      kao(:, 4,11, 4) = (/ &
+     &5.1310e+01_rb,4.4899e+01_rb,3.8484e+01_rb,3.2071e+01_rb,2.5657e+01_rb,1.9244e+01_rb, &
+     &1.2831e+01_rb,6.4171e+00_rb,1.0300e-03_rb/)
+      kao(:, 5,11, 4) = (/ &
+     &5.2691e+01_rb,4.6105e+01_rb,3.9519e+01_rb,3.2933e+01_rb,2.6348e+01_rb,1.9763e+01_rb, &
+     &1.3176e+01_rb,6.5918e+00_rb,1.3056e-03_rb/)
+      kao(:, 1,12, 4) = (/ &
+     &5.3682e+01_rb,4.6971e+01_rb,4.0260e+01_rb,3.3552e+01_rb,2.6842e+01_rb,2.0131e+01_rb, &
+     &1.3420e+01_rb,6.7107e+00_rb,5.9618e-04_rb/)
+      kao(:, 2,12, 4) = (/ &
+     &5.4209e+01_rb,4.7433e+01_rb,4.0657e+01_rb,3.3879e+01_rb,2.7104e+01_rb,2.0329e+01_rb, &
+     &1.3553e+01_rb,6.7772e+00_rb,7.6649e-04_rb/)
+      kao(:, 3,12, 4) = (/ &
+     &5.5191e+01_rb,4.8293e+01_rb,4.1395e+01_rb,3.4495e+01_rb,2.7597e+01_rb,2.0697e+01_rb, &
+     &1.3799e+01_rb,6.9009e+00_rb,9.6570e-04_rb/)
+      kao(:, 4,12, 4) = (/ &
+     &5.6606e+01_rb,4.9530e+01_rb,4.2455e+01_rb,3.5382e+01_rb,2.8306e+01_rb,2.1230e+01_rb, &
+     &1.4154e+01_rb,7.0794e+00_rb,1.1503e-03_rb/)
+      kao(:, 5,12, 4) = (/ &
+     &5.8604e+01_rb,5.1279e+01_rb,4.3956e+01_rb,3.6631e+01_rb,2.9306e+01_rb,2.1982e+01_rb, &
+     &1.4657e+01_rb,7.3321e+00_rb,1.3037e-03_rb/)
+      kao(:, 1,13, 4) = (/ &
+     &4.6897e+01_rb,4.1036e+01_rb,3.5173e+01_rb,2.9311e+01_rb,2.3449e+01_rb,1.7586e+01_rb, &
+     &1.1724e+01_rb,5.8626e+00_rb,5.3404e-04_rb/)
+      kao(:, 2,13, 4) = (/ &
+     &4.7510e+01_rb,4.1569e+01_rb,3.5631e+01_rb,2.9695e+01_rb,2.3756e+01_rb,1.7817e+01_rb, &
+     &1.1878e+01_rb,5.9396e+00_rb,7.0585e-04_rb/)
+      kao(:, 3,13, 4) = (/ &
+     &4.8599e+01_rb,4.2525e+01_rb,3.6450e+01_rb,3.0375e+01_rb,2.4299e+01_rb,1.8226e+01_rb, &
+     &1.2152e+01_rb,6.0774e+00_rb,8.6599e-04_rb/)
+      kao(:, 4,13, 4) = (/ &
+     &5.0122e+01_rb,4.3856e+01_rb,3.7591e+01_rb,3.1328e+01_rb,2.5063e+01_rb,1.8798e+01_rb, &
+     &1.2534e+01_rb,6.2697e+00_rb,1.0053e-03_rb/)
+      kao(:, 5,13, 4) = (/ &
+     &5.2215e+01_rb,4.5689e+01_rb,3.9164e+01_rb,3.2638e+01_rb,2.6111e+01_rb,1.9586e+01_rb, &
+     &1.3060e+01_rb,6.5334e+00_rb,1.2313e-03_rb/)
+      kao(:, 1, 1, 5) = (/ &
+     &8.2901e-02_rb,7.3924e-02_rb,6.4657e-02_rb,5.5597e-02_rb,4.6472e-02_rb,3.6796e-02_rb, &
+     &2.6709e-02_rb,1.5948e-02_rb,1.7802e-03_rb/)
+      kao(:, 2, 1, 5) = (/ &
+     &8.3370e-02_rb,7.4618e-02_rb,6.5698e-02_rb,5.7019e-02_rb,4.7812e-02_rb,3.7978e-02_rb, &
+     &2.7855e-02_rb,1.7146e-02_rb,2.3935e-03_rb/)
+      kao(:, 3, 1, 5) = (/ &
+     &8.4235e-02_rb,7.5730e-02_rb,6.7257e-02_rb,5.8667e-02_rb,4.9229e-02_rb,3.9298e-02_rb, &
+     &2.8966e-02_rb,1.8334e-02_rb,3.0382e-03_rb/)
+      kao(:, 4, 1, 5) = (/ &
+     &8.5176e-02_rb,7.7019e-02_rb,6.8972e-02_rb,6.0287e-02_rb,5.0680e-02_rb,4.0612e-02_rb, &
+     &3.0271e-02_rb,1.9679e-02_rb,3.7478e-03_rb/)
+      kao(:, 5, 1, 5) = (/ &
+     &8.6230e-02_rb,7.8450e-02_rb,7.0705e-02_rb,6.1832e-02_rb,5.2066e-02_rb,4.2065e-02_rb, &
+     &3.1638e-02_rb,2.1127e-02_rb,4.5344e-03_rb/)
+      kao(:, 1, 2, 5) = (/ &
+     &1.1319e-01_rb,1.0032e-01_rb,8.7141e-02_rb,7.4086e-02_rb,6.1196e-02_rb,4.7903e-02_rb, &
+     &3.4053e-02_rb,1.9479e-02_rb,1.3324e-03_rb/)
+      kao(:, 2, 2, 5) = (/ &
+     &1.1444e-01_rb,1.0174e-01_rb,8.8783e-02_rb,7.6019e-02_rb,6.3135e-02_rb,4.9508e-02_rb, &
+     &3.5403e-02_rb,2.0488e-02_rb,1.7827e-03_rb/)
+      kao(:, 3, 2, 5) = (/ &
+     &1.1608e-01_rb,1.0349e-01_rb,9.0802e-02_rb,7.8322e-02_rb,6.5118e-02_rb,5.1198e-02_rb, &
+     &3.6801e-02_rb,2.1623e-02_rb,2.2789e-03_rb/)
+      kao(:, 4, 2, 5) = (/ &
+     &1.1786e-01_rb,1.0545e-01_rb,9.3147e-02_rb,8.0587e-02_rb,6.7042e-02_rb,5.2943e-02_rb, &
+     &3.8201e-02_rb,2.2798e-02_rb,2.8272e-03_rb/)
+      kao(:, 5, 2, 5) = (/ &
+     &1.1969e-01_rb,1.0757e-01_rb,9.5567e-02_rb,8.2763e-02_rb,6.8961e-02_rb,5.4626e-02_rb, &
+     &3.9785e-02_rb,2.4020e-02_rb,3.4454e-03_rb/)
+      kao(:, 1, 3, 5) = (/ &
+     &2.0690e-01_rb,1.8215e-01_rb,1.5725e-01_rb,1.3219e-01_rb,1.0725e-01_rb,8.2467e-02_rb, &
+     &5.7330e-02_rb,3.1338e-02_rb,9.1573e-04_rb/)
+      kao(:, 2, 3, 5) = (/ &
+     &2.1013e-01_rb,1.8537e-01_rb,1.6026e-01_rb,1.3517e-01_rb,1.1017e-01_rb,8.5255e-02_rb, &
+     &5.9448e-02_rb,3.2689e-02_rb,1.2507e-03_rb/)
+      kao(:, 3, 3, 5) = (/ &
+     &2.1385e-01_rb,1.8904e-01_rb,1.6379e-01_rb,1.3865e-01_rb,1.1374e-01_rb,8.8133e-02_rb, &
+     &6.1604e-02_rb,3.4070e-02_rb,1.6182e-03_rb/)
+      kao(:, 4, 3, 5) = (/ &
+     &2.1772e-01_rb,1.9276e-01_rb,1.6753e-01_rb,1.4253e-01_rb,1.1723e-01_rb,9.0813e-02_rb, &
+     &6.3766e-02_rb,3.5513e-02_rb,2.0311e-03_rb/)
+      kao(:, 5, 3, 5) = (/ &
+     &2.2143e-01_rb,1.9638e-01_rb,1.7123e-01_rb,1.4633e-01_rb,1.2052e-01_rb,9.3556e-02_rb, &
+     &6.5944e-02_rb,3.7115e-02_rb,2.5088e-03_rb/)
+      kao(:, 1, 4, 5) = (/ &
+     &3.8507e-01_rb,3.3780e-01_rb,2.9048e-01_rb,2.4314e-01_rb,1.9570e-01_rb,1.4827e-01_rb, &
+     &1.0100e-01_rb,5.3296e-02_rb,6.2147e-04_rb/)
+      kao(:, 2, 4, 5) = (/ &
+     &3.9146e-01_rb,3.4379e-01_rb,2.9605e-01_rb,2.4819e-01_rb,2.0018e-01_rb,1.5228e-01_rb, &
+     &1.0449e-01_rb,5.5540e-02_rb,8.6088e-04_rb/)
+      kao(:, 3, 4, 5) = (/ &
+     &3.9930e-01_rb,3.5111e-01_rb,3.0278e-01_rb,2.5411e-01_rb,2.0550e-01_rb,1.5718e-01_rb, &
+     &1.0825e-01_rb,5.7768e-02_rb,1.1308e-03_rb/)
+      kao(:, 4, 4, 5) = (/ &
+     &4.0750e-01_rb,3.5883e-01_rb,3.0957e-01_rb,2.6026e-01_rb,2.1112e-01_rb,1.6215e-01_rb, &
+     &1.1175e-01_rb,5.9905e-02_rb,1.4435e-03_rb/)
+      kao(:, 5, 4, 5) = (/ &
+     &4.1540e-01_rb,3.6624e-01_rb,3.1618e-01_rb,2.6641e-01_rb,2.1709e-01_rb,1.6699e-01_rb, &
+     &1.1521e-01_rb,6.2079e-02_rb,1.8081e-03_rb/)
+      kao(:, 1, 5, 5) = (/ &
+     &6.6039e-01_rb,5.7849e-01_rb,4.9659e-01_rb,4.1465e-01_rb,3.3268e-01_rb,2.5068e-01_rb, &
+     &1.6878e-01_rb,8.6906e-02_rb,4.1392e-04_rb/)
+      kao(:, 2, 5, 5) = (/ &
+     &6.7138e-01_rb,5.8843e-01_rb,5.0538e-01_rb,4.2238e-01_rb,3.3940e-01_rb,2.5633e-01_rb, &
+     &1.7334e-01_rb,9.0010e-02_rb,5.9039e-04_rb/)
+      kao(:, 3, 5, 5) = (/ &
+     &6.8434e-01_rb,6.0014e-01_rb,5.1596e-01_rb,4.3167e-01_rb,3.4721e-01_rb,2.6273e-01_rb, &
+     &1.7850e-01_rb,9.3277e-02_rb,7.8856e-04_rb/)
+      kao(:, 4, 5, 5) = (/ &
+     &6.9935e-01_rb,6.1381e-01_rb,5.2821e-01_rb,4.4224e-01_rb,3.5606e-01_rb,2.7005e-01_rb, &
+     &1.8435e-01_rb,9.6630e-02_rb,1.0256e-03_rb/)
+      kao(:, 5, 5, 5) = (/ &
+     &7.1524e-01_rb,6.2827e-01_rb,5.4104e-01_rb,4.5319e-01_rb,3.6550e-01_rb,2.7828e-01_rb, &
+     &1.9025e-01_rb,9.9988e-02_rb,1.3023e-03_rb/)
+      kao(:, 1, 6, 5) = (/ &
+     &1.0605e+00_rb,9.2835e-01_rb,7.9638e-01_rb,6.6416e-01_rb,5.3204e-01_rb,3.9988e-01_rb, &
+     &2.6772e-01_rb,1.3599e-01_rb,2.6665e-04_rb/)
+      kao(:, 2, 6, 5) = (/ &
+     &1.0793e+00_rb,9.4508e-01_rb,8.1097e-01_rb,6.7669e-01_rb,5.4239e-01_rb,4.0816e-01_rb, &
+     &2.7396e-01_rb,1.4011e-01_rb,3.9578e-04_rb/)
+      kao(:, 3, 6, 5) = (/ &
+     &1.0996e+00_rb,9.6312e-01_rb,8.2674e-01_rb,6.9026e-01_rb,5.5385e-01_rb,4.1734e-01_rb, &
+     &2.8093e-01_rb,1.4437e-01_rb,5.4281e-04_rb/)
+      kao(:, 4, 6, 5) = (/ &
+     &1.1270e+00_rb,9.8758e-01_rb,8.4814e-01_rb,7.0877e-01_rb,5.6910e-01_rb,4.2937e-01_rb, &
+     &2.8968e-01_rb,1.4948e-01_rb,7.1692e-04_rb/)
+      kao(:, 5, 6, 5) = (/ &
+     &1.1549e+00_rb,1.0125e+00_rb,8.7022e-01_rb,7.2764e-01_rb,5.8478e-01_rb,4.4170e-01_rb, &
+     &2.9907e-01_rb,1.5477e-01_rb,9.2735e-04_rb/)
+      kao(:, 1, 7, 5) = (/ &
+     &1.7902e+00_rb,1.5666e+00_rb,1.3432e+00_rb,1.1198e+00_rb,8.9630e-01_rb,6.7291e-01_rb, &
+     &4.4939e-01_rb,2.2594e-01_rb,1.7788e-04_rb/)
+      kao(:, 2, 7, 5) = (/ &
+     &1.8253e+00_rb,1.5977e+00_rb,1.3701e+00_rb,1.1424e+00_rb,9.1476e-01_rb,6.8709e-01_rb, &
+     &4.5936e-01_rb,2.3207e-01_rb,2.6007e-04_rb/)
+      kao(:, 3, 7, 5) = (/ &
+     &1.8661e+00_rb,1.6335e+00_rb,1.4010e+00_rb,1.1685e+00_rb,9.3601e-01_rb,7.0359e-01_rb, &
+     &4.7118e-01_rb,2.3911e-01_rb,3.6579e-04_rb/)
+      kao(:, 4, 7, 5) = (/ &
+     &1.9131e+00_rb,1.6751e+00_rb,1.4368e+00_rb,1.1989e+00_rb,9.6095e-01_rb,7.2299e-01_rb, &
+     &4.8503e-01_rb,2.4706e-01_rb,4.9009e-04_rb/)
+      kao(:, 5, 7, 5) = (/ &
+     &1.9618e+00_rb,1.7182e+00_rb,1.4745e+00_rb,1.2310e+00_rb,9.8739e-01_rb,7.4364e-01_rb, &
+     &4.9951e-01_rb,2.5543e-01_rb,6.4417e-04_rb/)
+      kao(:, 1, 8, 5) = (/ &
+     &3.6222e+00_rb,3.1697e+00_rb,2.7175e+00_rb,2.2647e+00_rb,1.8122e+00_rb,1.3595e+00_rb, &
+     &9.0703e-01_rb,4.5436e-01_rb,1.7700e-04_rb/)
+      kao(:, 2, 8, 5) = (/ &
+     &3.6989e+00_rb,3.2367e+00_rb,2.7747e+00_rb,2.3129e+00_rb,1.8509e+00_rb,1.3888e+00_rb, &
+     &9.2689e-01_rb,4.6487e-01_rb,2.2396e-04_rb/)
+      kao(:, 3, 8, 5) = (/ &
+     &3.7900e+00_rb,3.3168e+00_rb,2.8434e+00_rb,2.3702e+00_rb,1.8972e+00_rb,1.4240e+00_rb, &
+     &9.5085e-01_rb,4.7797e-01_rb,2.7417e-04_rb/)
+      kao(:, 4, 8, 5) = (/ &
+     &3.8908e+00_rb,3.4054e+00_rb,2.9198e+00_rb,2.4343e+00_rb,1.9488e+00_rb,1.4634e+00_rb, &
+     &9.7805e-01_rb,4.9296e-01_rb,3.4875e-04_rb/)
+      kao(:, 5, 8, 5) = (/ &
+     &3.9856e+00_rb,3.4886e+00_rb,2.9916e+00_rb,2.4947e+00_rb,1.9978e+00_rb,1.5012e+00_rb, &
+     &1.0044e+00_rb,5.0758e-01_rb,4.5934e-04_rb/)
+      kao(:, 1, 9, 5) = (/ &
+     &1.3794e+01_rb,1.2070e+01_rb,1.0346e+01_rb,8.6224e+00_rb,6.8983e+00_rb,5.1738e+00_rb, &
+     &3.4497e+00_rb,1.7256e+00_rb,2.3317e-04_rb/)
+      kao(:, 2, 9, 5) = (/ &
+     &1.4093e+01_rb,1.2332e+01_rb,1.0571e+01_rb,8.8090e+00_rb,7.0478e+00_rb,5.2864e+00_rb, &
+     &3.5250e+00_rb,1.7636e+00_rb,2.9550e-04_rb/)
+      kao(:, 3, 9, 5) = (/ &
+     &1.4464e+01_rb,1.2658e+01_rb,1.0848e+01_rb,9.0415e+00_rb,7.2337e+00_rb,5.4264e+00_rb, &
+     &3.6184e+00_rb,1.8107e+00_rb,3.8639e-04_rb/)
+      kao(:, 4, 9, 5) = (/ &
+     &1.4855e+01_rb,1.2999e+01_rb,1.1143e+01_rb,9.2862e+00_rb,7.4306e+00_rb,5.5737e+00_rb, &
+     &3.7173e+00_rb,1.8614e+00_rb,5.0786e-04_rb/)
+      kao(:, 5, 9, 5) = (/ &
+     &1.5210e+01_rb,1.3311e+01_rb,1.1410e+01_rb,9.5097e+00_rb,7.6091e+00_rb,5.7087e+00_rb, &
+     &3.8087e+00_rb,1.9087e+00_rb,5.8982e-04_rb/)
+      kao(:, 1,10, 5) = (/ &
+     &5.8496e+01_rb,5.1180e+01_rb,4.3867e+01_rb,3.6556e+01_rb,2.9247e+01_rb,2.1935e+01_rb, &
+     &1.4623e+01_rb,7.3123e+00_rb,5.6403e-04_rb/)
+      kao(:, 2,10, 5) = (/ &
+     &5.9786e+01_rb,5.2317e+01_rb,4.4840e+01_rb,3.7369e+01_rb,2.9895e+01_rb,2.2423e+01_rb, &
+     &1.4947e+01_rb,7.4749e+00_rb,6.9685e-04_rb/)
+      kao(:, 3,10, 5) = (/ &
+     &6.1366e+01_rb,5.3692e+01_rb,4.6022e+01_rb,3.8353e+01_rb,3.0682e+01_rb,2.3012e+01_rb, &
+     &1.5344e+01_rb,7.6729e+00_rb,8.6661e-04_rb/)
+      kao(:, 4,10, 5) = (/ &
+     &6.3002e+01_rb,5.5128e+01_rb,4.7254e+01_rb,3.9377e+01_rb,3.1505e+01_rb,2.3630e+01_rb, &
+     &1.5753e+01_rb,7.8780e+00_rb,1.0403e-03_rb/)
+      kao(:, 5,10, 5) = (/ &
+     &6.4493e+01_rb,5.6436e+01_rb,4.8374e+01_rb,4.0310e+01_rb,3.2253e+01_rb,2.4189e+01_rb, &
+     &1.6127e+01_rb,8.0668e+00_rb,1.2361e-03_rb/)
+      kao(:, 1,11, 5) = (/ &
+     &8.7182e+01_rb,7.6287e+01_rb,6.5394e+01_rb,5.4493e+01_rb,4.3594e+01_rb,3.2696e+01_rb, &
+     &2.1798e+01_rb,1.0900e+01_rb,7.4362e-04_rb/)
+      kao(:, 2,11, 5) = (/ &
+     &8.9336e+01_rb,7.8172e+01_rb,6.7002e+01_rb,5.5836e+01_rb,4.4668e+01_rb,3.3502e+01_rb, &
+     &2.2335e+01_rb,1.1168e+01_rb,9.0702e-04_rb/)
+      kao(:, 3,11, 5) = (/ &
+     &9.1581e+01_rb,8.0131e+01_rb,6.8688e+01_rb,5.7237e+01_rb,4.5792e+01_rb,3.4345e+01_rb, &
+     &2.2896e+01_rb,1.1449e+01_rb,1.0809e-03_rb/)
+      kao(:, 4,11, 5) = (/ &
+     &9.3839e+01_rb,8.2107e+01_rb,7.0383e+01_rb,5.8658e+01_rb,4.6921e+01_rb,3.5193e+01_rb, &
+     &2.3462e+01_rb,1.1732e+01_rb,1.3235e-03_rb/)
+      kao(:, 5,11, 5) = (/ &
+     &9.5958e+01_rb,8.3967e+01_rb,7.1970e+01_rb,5.9973e+01_rb,4.7982e+01_rb,3.5987e+01_rb, &
+     &2.3994e+01_rb,1.1998e+01_rb,1.5458e-03_rb/)
+      kao(:, 1,12, 5) = (/ &
+     &9.6680e+01_rb,8.4597e+01_rb,7.2516e+01_rb,6.0430e+01_rb,4.8347e+01_rb,3.6257e+01_rb, &
+     &2.4172e+01_rb,1.2087e+01_rb,8.8792e-04_rb/)
+      kao(:, 2,12, 5) = (/ &
+     &9.9039e+01_rb,8.6662e+01_rb,7.4284e+01_rb,6.1903e+01_rb,4.9522e+01_rb,3.7144e+01_rb, &
+     &2.4762e+01_rb,1.2382e+01_rb,1.0348e-03_rb/)
+      kao(:, 3,12, 5) = (/ &
+     &1.0152e+02_rb,8.8834e+01_rb,7.6150e+01_rb,6.3450e+01_rb,5.0765e+01_rb,3.8071e+01_rb, &
+     &2.5383e+01_rb,1.2692e+01_rb,1.2734e-03_rb/)
+      kao(:, 4,12, 5) = (/ &
+     &1.0389e+02_rb,9.0902e+01_rb,7.7912e+01_rb,6.4935e+01_rb,5.1946e+01_rb,3.8960e+01_rb, &
+     &2.5973e+01_rb,1.2989e+01_rb,1.5461e-03_rb/)
+      kao(:, 5,12, 5) = (/ &
+     &1.0614e+02_rb,9.2872e+01_rb,7.9616e+01_rb,6.6343e+01_rb,5.3076e+01_rb,3.9807e+01_rb, &
+     &2.6538e+01_rb,1.3271e+01_rb,1.7863e-03_rb/)
+      kao(:, 1,13, 5) = (/ &
+     &8.5924e+01_rb,7.5190e+01_rb,6.4446e+01_rb,5.3705e+01_rb,4.2964e+01_rb,3.2222e+01_rb, &
+     &2.1482e+01_rb,1.0742e+01_rb,9.3650e-04_rb/)
+      kao(:, 2,13, 5) = (/ &
+     &8.8011e+01_rb,7.7009e+01_rb,6.6010e+01_rb,5.5012e+01_rb,4.4009e+01_rb,3.3008e+01_rb, &
+     &2.2004e+01_rb,1.1003e+01_rb,1.0453e-03_rb/)
+      kao(:, 3,13, 5) = (/ &
+     &9.0165e+01_rb,7.8893e+01_rb,6.7623e+01_rb,5.6350e+01_rb,4.5080e+01_rb,3.3811e+01_rb, &
+     &2.2542e+01_rb,1.1273e+01_rb,1.2632e-03_rb/)
+      kao(:, 4,13, 5) = (/ &
+     &9.2294e+01_rb,8.0759e+01_rb,6.9218e+01_rb,5.7683e+01_rb,4.6146e+01_rb,3.4609e+01_rb, &
+     &2.3075e+01_rb,1.1539e+01_rb,1.5901e-03_rb/)
+      kao(:, 5,13, 5) = (/ &
+     &9.4515e+01_rb,8.2699e+01_rb,7.0891e+01_rb,5.9075e+01_rb,4.7260e+01_rb,3.5445e+01_rb, &
+     &2.3631e+01_rb,1.1818e+01_rb,1.9283e-03_rb/)
+      kao(:, 1, 1, 6) = (/ &
+     &1.3664e-01_rb,1.2142e-01_rb,1.0604e-01_rb,9.0673e-02_rb,7.5307e-02_rb,5.9951e-02_rb, &
+     &4.4049e-02_rb,2.7037e-02_rb,3.4200e-03_rb/)
+      kao(:, 2, 1, 6) = (/ &
+     &1.3479e-01_rb,1.2041e-01_rb,1.0581e-01_rb,9.1114e-02_rb,7.6669e-02_rb,6.1851e-02_rb, &
+     &4.6009e-02_rb,2.9151e-02_rb,4.4244e-03_rb/)
+      kao(:, 3, 1, 6) = (/ &
+     &1.3313e-01_rb,1.1956e-01_rb,1.0561e-01_rb,9.1887e-02_rb,7.8237e-02_rb,6.3771e-02_rb, &
+     &4.8109e-02_rb,3.1604e-02_rb,5.5644e-03_rb/)
+      kao(:, 4, 1, 6) = (/ &
+     &1.3195e-01_rb,1.1904e-01_rb,1.0583e-01_rb,9.3212e-02_rb,7.9889e-02_rb,6.5652e-02_rb, &
+     &5.0318e-02_rb,3.4334e-02_rb,6.8097e-03_rb/)
+      kao(:, 5, 1, 6) = (/ &
+     &1.3100e-01_rb,1.1871e-01_rb,1.0645e-01_rb,9.4491e-02_rb,8.1510e-02_rb,6.7455e-02_rb, &
+     &5.2648e-02_rb,3.7142e-02_rb,8.1798e-03_rb/)
+      kao(:, 1, 2, 6) = (/ &
+     &1.8948e-01_rb,1.6745e-01_rb,1.4512e-01_rb,1.2300e-01_rb,1.0098e-01_rb,7.9021e-02_rb, &
+     &5.6595e-02_rb,3.3068e-02_rb,2.5064e-03_rb/)
+      kao(:, 2, 2, 6) = (/ &
+     &1.8719e-01_rb,1.6582e-01_rb,1.4439e-01_rb,1.2310e-01_rb,1.0186e-01_rb,8.0667e-02_rb, &
+     &5.8428e-02_rb,3.4918e-02_rb,3.2805e-03_rb/)
+      kao(:, 3, 2, 6) = (/ &
+     &1.8550e-01_rb,1.6475e-01_rb,1.4416e-01_rb,1.2351e-01_rb,1.0330e-01_rb,8.2465e-02_rb, &
+     &6.0314e-02_rb,3.6962e-02_rb,4.1499e-03_rb/)
+      kao(:, 4, 2, 6) = (/ &
+     &1.8451e-01_rb,1.6460e-01_rb,1.4454e-01_rb,1.2487e-01_rb,1.0515e-01_rb,8.4419e-02_rb, &
+     &6.2353e-02_rb,3.9320e-02_rb,5.1265e-03_rb/)
+      kao(:, 5, 2, 6) = (/ &
+     &1.8423e-01_rb,1.6501e-01_rb,1.4553e-01_rb,1.2672e-01_rb,1.0715e-01_rb,8.6338e-02_rb, &
+     &6.4353e-02_rb,4.1893e-02_rb,6.2102e-03_rb/)
+      kao(:, 1, 3, 6) = (/ &
+     &3.5249e-01_rb,3.0976e-01_rb,2.6683e-01_rb,2.2378e-01_rb,1.8098e-01_rb,1.3846e-01_rb, &
+     &9.6219e-02_rb,5.2862e-02_rb,1.7476e-03_rb/)
+      kao(:, 2, 3, 6) = (/ &
+     &3.4945e-01_rb,3.0729e-01_rb,2.6503e-01_rb,2.2304e-01_rb,1.8135e-01_rb,1.3971e-01_rb, &
+     &9.8147e-02_rb,5.4704e-02_rb,2.3082e-03_rb/)
+      kao(:, 3, 3, 6) = (/ &
+     &3.4786e-01_rb,3.0616e-01_rb,2.6475e-01_rb,2.2367e-01_rb,1.8257e-01_rb,1.4178e-01_rb, &
+     &1.0043e-01_rb,5.6633e-02_rb,2.9556e-03_rb/)
+      kao(:, 4, 3, 6) = (/ &
+     &3.4805e-01_rb,3.0690e-01_rb,2.6623e-01_rb,2.2552e-01_rb,1.8508e-01_rb,1.4480e-01_rb, &
+     &1.0306e-01_rb,5.8846e-02_rb,3.6970e-03_rb/)
+      kao(:, 5, 3, 6) = (/ &
+     &3.5013e-01_rb,3.0948e-01_rb,2.6918e-01_rb,2.2850e-01_rb,1.8865e-01_rb,1.4799e-01_rb, &
+     &1.0568e-01_rb,6.1131e-02_rb,4.5281e-03_rb/)
+      kao(:, 1, 4, 6) = (/ &
+     &6.6623e-01_rb,5.8386e-01_rb,5.0153e-01_rb,4.1899e-01_rb,3.3640e-01_rb,2.5407e-01_rb, &
+     &1.7225e-01_rb,9.1058e-02_rb,1.1958e-03_rb/)
+      kao(:, 2, 4, 6) = (/ &
+     &6.6340e-01_rb,5.8167e-01_rb,4.9974e-01_rb,4.1776e-01_rb,3.3619e-01_rb,2.5503e-01_rb, &
+     &1.7423e-01_rb,9.3289e-02_rb,1.6080e-03_rb/)
+      kao(:, 3, 4, 6) = (/ &
+     &6.6480e-01_rb,5.8306e-01_rb,5.0121e-01_rb,4.1990e-01_rb,3.3893e-01_rb,2.5818e-01_rb, &
+     &1.7768e-01_rb,9.5987e-02_rb,2.0929e-03_rb/)
+      kao(:, 4, 4, 6) = (/ &
+     &6.7003e-01_rb,5.8789e-01_rb,5.0627e-01_rb,4.2518e-01_rb,3.4417e-01_rb,2.6306e-01_rb, &
+     &1.8230e-01_rb,9.9134e-02_rb,2.6527e-03_rb/)
+      kao(:, 5, 4, 6) = (/ &
+     &6.7815e-01_rb,5.9566e-01_rb,5.1416e-01_rb,4.3281e-01_rb,3.5098e-01_rb,2.6952e-01_rb, &
+     &1.8764e-01_rb,1.0249e-01_rb,3.2896e-03_rb/)
+      kao(:, 1, 5, 6) = (/ &
+     &1.1550e+00_rb,1.0112e+00_rb,8.6772e-01_rb,7.2399e-01_rb,5.8018e-01_rb,4.3620e-01_rb, &
+     &2.9244e-01_rb,1.4976e-01_rb,8.1069e-04_rb/)
+      kao(:, 2, 5, 6) = (/ &
+     &1.1564e+00_rb,1.0128e+00_rb,8.6891e-01_rb,7.2534e-01_rb,5.8147e-01_rb,4.3781e-01_rb, &
+     &2.9477e-01_rb,1.5282e-01_rb,1.1157e-03_rb/)
+      kao(:, 3, 5, 6) = (/ &
+     &1.1669e+00_rb,1.0223e+00_rb,8.7752e-01_rb,7.3265e-01_rb,5.8799e-01_rb,4.4399e-01_rb, &
+     &3.0054e-01_rb,1.5735e-01_rb,1.4779e-03_rb/)
+      kao(:, 4, 5, 6) = (/ &
+     &1.1830e+00_rb,1.0368e+00_rb,8.9030e-01_rb,7.4407e-01_rb,5.9861e-01_rb,4.5354e-01_rb, &
+     &3.0826e-01_rb,1.6275e-01_rb,1.9001e-03_rb/)
+      kao(:, 5, 5, 6) = (/ &
+     &1.2016e+00_rb,1.0534e+00_rb,9.0529e-01_rb,7.5813e-01_rb,6.1140e-01_rb,4.6432e-01_rb, &
+     &3.1746e-01_rb,1.6866e-01_rb,2.3885e-03_rb/)
+      kao(:, 1, 6, 6) = (/ &
+     &1.8728e+00_rb,1.6394e+00_rb,1.4057e+00_rb,1.1724e+00_rb,9.3873e-01_rb,7.0502e-01_rb, &
+     &4.7119e-01_rb,2.3746e-01_rb,5.3401e-04_rb/)
+      kao(:, 2, 6, 6) = (/ &
+     &1.8855e+00_rb,1.6506e+00_rb,1.4159e+00_rb,1.1808e+00_rb,9.4575e-01_rb,7.1049e-01_rb, &
+     &4.7534e-01_rb,2.4122e-01_rb,7.5510e-04_rb/)
+      kao(:, 3, 6, 6) = (/ &
+     &1.9127e+00_rb,1.6747e+00_rb,1.4367e+00_rb,1.1985e+00_rb,9.6017e-01_rb,7.2202e-01_rb, &
+     &4.8438e-01_rb,2.4807e-01_rb,1.0228e-03_rb/)
+      kao(:, 4, 6, 6) = (/ &
+     &1.9458e+00_rb,1.7041e+00_rb,1.4622e+00_rb,1.2202e+00_rb,9.7826e-01_rb,7.3694e-01_rb, &
+     &4.9644e-01_rb,2.5634e-01_rb,1.3413e-03_rb/)
+      kao(:, 5, 6, 6) = (/ &
+     &1.9819e+00_rb,1.7360e+00_rb,1.4899e+00_rb,1.2440e+00_rb,9.9883e-01_rb,7.5442e-01_rb, &
+     &5.0981e-01_rb,2.6524e-01_rb,1.7130e-03_rb/)
+      kao(:, 1, 7, 6) = (/ &
+     &3.1956e+00_rb,2.7964e+00_rb,2.3973e+00_rb,1.9983e+00_rb,1.5994e+00_rb,1.2005e+00_rb, &
+     &8.0140e-01_rb,4.0204e-01_rb,3.4739e-04_rb/)
+      kao(:, 2, 7, 6) = (/ &
+     &3.2319e+00_rb,2.8287e+00_rb,2.4254e+00_rb,2.0219e+00_rb,1.6186e+00_rb,1.2150e+00_rb, &
+     &8.1138e-01_rb,4.0767e-01_rb,4.9767e-04_rb/)
+      kao(:, 3, 7, 6) = (/ &
+     &3.2870e+00_rb,2.8773e+00_rb,2.4673e+00_rb,2.0573e+00_rb,1.6471e+00_rb,1.2367e+00_rb, &
+     &8.2648e-01_rb,4.1699e-01_rb,6.8883e-04_rb/)
+      kao(:, 4, 7, 6) = (/ &
+     &3.3536e+00_rb,2.9357e+00_rb,2.5178e+00_rb,2.0997e+00_rb,1.6816e+00_rb,1.2633e+00_rb, &
+     &8.4550e-01_rb,4.2915e-01_rb,9.2075e-04_rb/)
+      kao(:, 5, 7, 6) = (/ &
+     &3.4247e+00_rb,2.9983e+00_rb,2.5718e+00_rb,2.1451e+00_rb,1.7185e+00_rb,1.2924e+00_rb, &
+     &8.6745e-01_rb,4.4266e-01_rb,1.1994e-03_rb/)
+      kao(:, 1, 8, 6) = (/ &
+     &6.5522e+00_rb,5.7333e+00_rb,4.9154e+00_rb,4.0958e+00_rb,3.2773e+00_rb,2.4586e+00_rb, &
+     &1.6399e+00_rb,8.2128e-01_rb,2.5000e-04_rb/)
+      kao(:, 2, 8, 6) = (/ &
+     &6.6534e+00_rb,5.8224e+00_rb,4.9909e+00_rb,4.1598e+00_rb,3.3284e+00_rb,2.4975e+00_rb, &
+     &1.6667e+00_rb,8.3486e-01_rb,3.5933e-04_rb/)
+      kao(:, 3, 8, 6) = (/ &
+     &6.7871e+00_rb,5.9396e+00_rb,5.0919e+00_rb,4.2443e+00_rb,3.3968e+00_rb,2.5492e+00_rb, &
+     &1.7012e+00_rb,8.5283e-01_rb,4.9387e-04_rb/)
+      kao(:, 4, 8, 6) = (/ &
+     &6.9317e+00_rb,6.0662e+00_rb,5.2009e+00_rb,4.3357e+00_rb,3.4705e+00_rb,2.6048e+00_rb, &
+     &1.7389e+00_rb,8.7334e-01_rb,6.4756e-04_rb/)
+      kao(:, 5, 8, 6) = (/ &
+     &7.0935e+00_rb,6.2081e+00_rb,5.3230e+00_rb,4.4380e+00_rb,3.5524e+00_rb,2.6671e+00_rb, &
+     &1.7815e+00_rb,8.9762e-01_rb,8.2195e-04_rb/)
+      kao(:, 1, 9, 6) = (/ &
+     &2.5444e+01_rb,2.2265e+01_rb,1.9084e+01_rb,1.5904e+01_rb,1.2723e+01_rb,9.5428e+00_rb, &
+     &6.3622e+00_rb,3.1820e+00_rb,4.0178e-04_rb/)
+      kao(:, 2, 9, 6) = (/ &
+     &2.5907e+01_rb,2.2668e+01_rb,1.9432e+01_rb,1.6194e+01_rb,1.2956e+01_rb,9.7177e+00_rb, &
+     &6.4794e+00_rb,3.2416e+00_rb,4.9820e-04_rb/)
+      kao(:, 3, 9, 6) = (/ &
+     &2.6491e+01_rb,2.3181e+01_rb,1.9870e+01_rb,1.6559e+01_rb,1.3249e+01_rb,9.9392e+00_rb, &
+     &6.6274e+00_rb,3.3163e+00_rb,5.8675e-04_rb/)
+      kao(:, 4, 9, 6) = (/ &
+     &2.7100e+01_rb,2.3714e+01_rb,2.0326e+01_rb,1.6941e+01_rb,1.3555e+01_rb,1.0168e+01_rb, &
+     &6.7813e+00_rb,3.3943e+00_rb,7.0841e-04_rb/)
+      kao(:, 5, 9, 6) = (/ &
+     &2.7765e+01_rb,2.4297e+01_rb,2.0827e+01_rb,1.7358e+01_rb,1.3889e+01_rb,1.0420e+01_rb, &
+     &6.9499e+00_rb,3.4794e+00_rb,8.5424e-04_rb/)
+      kao(:, 1,10, 6) = (/ &
+     &1.1023e+02_rb,9.6432e+01_rb,8.2664e+01_rb,6.8898e+01_rb,5.5114e+01_rb,4.1339e+01_rb, &
+     &2.7555e+01_rb,1.3778e+01_rb,8.1537e-04_rb/)
+      kao(:, 2,10, 6) = (/ &
+     &1.1247e+02_rb,9.8427e+01_rb,8.4346e+01_rb,7.0300e+01_rb,5.6236e+01_rb,4.2180e+01_rb, &
+     &2.8118e+01_rb,1.4061e+01_rb,9.9310e-04_rb/)
+      kao(:, 3,10, 6) = (/ &
+     &1.1514e+02_rb,1.0076e+02_rb,8.6358e+01_rb,7.1971e+01_rb,5.7576e+01_rb,4.3183e+01_rb, &
+     &2.8789e+01_rb,1.4396e+01_rb,1.1831e-03_rb/)
+      kao(:, 4,10, 6) = (/ &
+     &1.1802e+02_rb,1.0327e+02_rb,8.8510e+01_rb,7.3765e+01_rb,5.9016e+01_rb,4.4263e+01_rb, &
+     &2.9511e+01_rb,1.4759e+01_rb,1.3868e-03_rb/)
+      kao(:, 5,10, 6) = (/ &
+     &1.2130e+02_rb,1.0614e+02_rb,9.0978e+01_rb,7.5815e+01_rb,6.0657e+01_rb,4.5493e+01_rb, &
+     &3.0333e+01_rb,1.5172e+01_rb,1.7070e-03_rb/)
+      kao(:, 1,11, 6) = (/ &
+     &1.6690e+02_rb,1.4603e+02_rb,1.2516e+02_rb,1.0431e+02_rb,8.3442e+01_rb,6.2583e+01_rb, &
+     &4.1722e+01_rb,2.0862e+01_rb,1.5727e-03_rb/)
+      kao(:, 2,11, 6) = (/ &
+     &1.7086e+02_rb,1.4949e+02_rb,1.2814e+02_rb,1.0678e+02_rb,8.5424e+01_rb,6.4067e+01_rb, &
+     &4.2718e+01_rb,2.1360e+01_rb,1.6234e-03_rb/)
+      kao(:, 3,11, 6) = (/ &
+     &1.7519e+02_rb,1.5329e+02_rb,1.3139e+02_rb,1.0949e+02_rb,8.7589e+01_rb,6.5698e+01_rb, &
+     &4.3799e+01_rb,2.1903e+01_rb,1.7884e-03_rb/)
+      kao(:, 4,11, 6) = (/ &
+     &1.8016e+02_rb,1.5762e+02_rb,1.3510e+02_rb,1.1259e+02_rb,9.0076e+01_rb,6.7557e+01_rb, &
+     &4.5039e+01_rb,2.2524e+01_rb,2.1215e-03_rb/)
+      kao(:, 5,11, 6) = (/ &
+     &1.8518e+02_rb,1.6203e+02_rb,1.3888e+02_rb,1.1573e+02_rb,9.2591e+01_rb,6.9449e+01_rb, &
+     &4.6302e+01_rb,2.3157e+01_rb,2.4813e-03_rb/)
+      kao(:, 1,12, 6) = (/ &
+     &1.8707e+02_rb,1.6368e+02_rb,1.4030e+02_rb,1.1692e+02_rb,9.3541e+01_rb,7.0153e+01_rb, &
+     &4.6766e+01_rb,2.3384e+01_rb,1.9770e-03_rb/)
+      kao(:, 2,12, 6) = (/ &
+     &1.9183e+02_rb,1.6788e+02_rb,1.4389e+02_rb,1.1990e+02_rb,9.5932e+01_rb,7.1949e+01_rb, &
+     &4.7966e+01_rb,2.3985e+01_rb,2.1043e-03_rb/)
+      kao(:, 3,12, 6) = (/ &
+     &1.9710e+02_rb,1.7246e+02_rb,1.4784e+02_rb,1.2320e+02_rb,9.8552e+01_rb,7.3917e+01_rb, &
+     &4.9278e+01_rb,2.4644e+01_rb,2.2289e-03_rb/)
+      kao(:, 4,12, 6) = (/ &
+     &2.0265e+02_rb,1.7731e+02_rb,1.5198e+02_rb,1.2666e+02_rb,1.0133e+02_rb,7.5997e+01_rb, &
+     &5.0665e+01_rb,2.5338e+01_rb,2.5070e-03_rb/)
+      kao(:, 5,12, 6) = (/ &
+     &2.0830e+02_rb,1.8227e+02_rb,1.5623e+02_rb,1.3019e+02_rb,1.0416e+02_rb,7.8120e+01_rb, &
+     &5.2086e+01_rb,2.6047e+01_rb,2.9426e-03_rb/)
+      kao(:, 1,13, 6) = (/ &
+     &1.6768e+02_rb,1.4672e+02_rb,1.2576e+02_rb,1.0480e+02_rb,8.3836e+01_rb,6.2874e+01_rb, &
+     &4.1918e+01_rb,2.0960e+01_rb,1.9900e-03_rb/)
+      kao(:, 2,13, 6) = (/ &
+     &1.7225e+02_rb,1.5072e+02_rb,1.2919e+02_rb,1.0767e+02_rb,8.6132e+01_rb,6.4601e+01_rb, &
+     &4.3064e+01_rb,2.1534e+01_rb,2.2115e-03_rb/)
+      kao(:, 3,13, 6) = (/ &
+     &1.7710e+02_rb,1.5497e+02_rb,1.3283e+02_rb,1.1069e+02_rb,8.8549e+01_rb,6.6413e+01_rb, &
+     &4.4281e+01_rb,2.2144e+01_rb,2.4087e-03_rb/)
+      kao(:, 4,13, 6) = (/ &
+     &1.8201e+02_rb,1.5926e+02_rb,1.3651e+02_rb,1.1376e+02_rb,9.1007e+01_rb,6.8257e+01_rb, &
+     &4.5512e+01_rb,2.2758e+01_rb,2.6872e-03_rb/)
+      kao(:, 5,13, 6) = (/ &
+     &1.8703e+02_rb,1.6366e+02_rb,1.4029e+02_rb,1.1690e+02_rb,9.3529e+01_rb,7.0144e+01_rb, &
+     &4.6769e+01_rb,2.3390e+01_rb,2.9430e-03_rb/)
+      kao(:, 1, 1, 7) = (/ &
+     &2.6412e-01_rb,2.3209e-01_rb,2.0136e-01_rb,1.7041e-01_rb,1.3987e-01_rb,1.0997e-01_rb, &
+     &7.9977e-02_rb,4.8294e-02_rb,7.1406e-03_rb/)
+      kao(:, 2, 1, 7) = (/ &
+     &2.6114e-01_rb,2.3041e-01_rb,2.0084e-01_rb,1.7141e-01_rb,1.4253e-01_rb,1.1370e-01_rb, &
+     &8.4426e-02_rb,5.2292e-02_rb,9.2339e-03_rb/)
+      kao(:, 3, 1, 7) = (/ &
+     &2.5746e-01_rb,2.2846e-01_rb,2.0043e-01_rb,1.7294e-01_rb,1.4558e-01_rb,1.1774e-01_rb, &
+     &8.8686e-02_rb,5.6161e-02_rb,1.1607e-02_rb/)
+      kao(:, 4, 1, 7) = (/ &
+     &2.5329e-01_rb,2.2641e-01_rb,2.0046e-01_rb,1.7465e-01_rb,1.4868e-01_rb,1.2202e-01_rb, &
+     &9.2933e-02_rb,6.0129e-02_rb,1.4258e-02_rb/)
+      kao(:, 5, 1, 7) = (/ &
+     &2.4914e-01_rb,2.2449e-01_rb,2.0080e-01_rb,1.7670e-01_rb,1.5234e-01_rb,1.2632e-01_rb, &
+     &9.7469e-02_rb,6.4803e-02_rb,1.7193e-02_rb/)
+      kao(:, 1, 2, 7) = (/ &
+     &3.8226e-01_rb,3.3530e-01_rb,2.8943e-01_rb,2.4384e-01_rb,1.9786e-01_rb,1.5259e-01_rb, &
+     &1.0817e-01_rb,6.3161e-02_rb,5.4372e-03_rb/)
+      kao(:, 2, 2, 7) = (/ &
+     &3.7769e-01_rb,3.3226e-01_rb,2.8798e-01_rb,2.4326e-01_rb,1.9923e-01_rb,1.5589e-01_rb, &
+     &1.1262e-01_rb,6.7329e-02_rb,7.0870e-03_rb/)
+      kao(:, 3, 2, 7) = (/ &
+     &3.7182e-01_rb,3.2842e-01_rb,2.8559e-01_rb,2.4304e-01_rb,2.0123e-01_rb,1.5952e-01_rb, &
+     &1.1734e-01_rb,7.1516e-02_rb,8.9693e-03_rb/)
+      kao(:, 4, 2, 7) = (/ &
+     &3.6545e-01_rb,3.2421e-01_rb,2.8324e-01_rb,2.4318e-01_rb,2.0343e-01_rb,1.6337e-01_rb, &
+     &1.2179e-01_rb,7.5704e-02_rb,1.1062e-02_rb/)
+      kao(:, 5, 2, 7) = (/ &
+     &3.5934e-01_rb,3.2018e-01_rb,2.8184e-01_rb,2.4404e-01_rb,2.0628e-01_rb,1.6781e-01_rb, &
+     &1.2654e-01_rb,8.0391e-02_rb,1.3382e-02_rb/)
+      kao(:, 1, 3, 7) = (/ &
+     &7.3419e-01_rb,6.4302e-01_rb,5.5249e-01_rb,4.6249e-01_rb,3.7279e-01_rb,2.8244e-01_rb, &
+     &1.9254e-01_rb,1.0461e-01_rb,3.8320e-03_rb/)
+      kao(:, 2, 3, 7) = (/ &
+     &7.2438e-01_rb,6.3531e-01_rb,5.4697e-01_rb,4.5910e-01_rb,3.7055e-01_rb,2.8234e-01_rb, &
+     &1.9553e-01_rb,1.0953e-01_rb,5.0607e-03_rb/)
+      kao(:, 3, 3, 7) = (/ &
+     &7.1308e-01_rb,6.2644e-01_rb,5.4060e-01_rb,4.5437e-01_rb,3.6826e-01_rb,2.8333e-01_rb, &
+     &1.9916e-01_rb,1.1441e-01_rb,6.4784e-03_rb/)
+      kao(:, 4, 3, 7) = (/ &
+     &7.0097e-01_rb,6.1696e-01_rb,5.3353e-01_rb,4.4963e-01_rb,3.6700e-01_rb,2.8530e-01_rb, &
+     &2.0351e-01_rb,1.1914e-01_rb,8.0908e-03_rb/)
+      kao(:, 5, 3, 7) = (/ &
+     &6.8962e-01_rb,6.0838e-01_rb,5.2688e-01_rb,4.4648e-01_rb,3.6708e-01_rb,2.8814e-01_rb, &
+     &2.0859e-01_rb,1.2387e-01_rb,9.8988e-03_rb/)
+      kao(:, 1, 4, 7) = (/ &
+     &1.4238e+00_rb,1.2465e+00_rb,1.0693e+00_rb,8.9242e-01_rb,7.1591e-01_rb,5.3976e-01_rb, &
+     &3.6322e-01_rb,1.8668e-01_rb,2.6351e-03_rb/)
+      kao(:, 2, 4, 7) = (/ &
+     &1.4051e+00_rb,1.2306e+00_rb,1.0566e+00_rb,8.8285e-01_rb,7.0951e-01_rb,5.3582e-01_rb, &
+     &3.6165e-01_rb,1.8980e-01_rb,3.5337e-03_rb/)
+      kao(:, 3, 4, 7) = (/ &
+     &1.3826e+00_rb,1.2117e+00_rb,1.0413e+00_rb,8.7137e-01_rb,7.0120e-01_rb,5.3024e-01_rb, &
+     &3.6085e-01_rb,1.9367e-01_rb,4.5912e-03_rb/)
+      kao(:, 4, 4, 7) = (/ &
+     &1.3609e+00_rb,1.1937e+00_rb,1.0271e+00_rb,8.6049e-01_rb,6.9280e-01_rb,5.2650e-01_rb, &
+     &3.6231e-01_rb,1.9848e-01_rb,5.8142e-03_rb/)
+      kao(:, 5, 4, 7) = (/ &
+     &1.3409e+00_rb,1.1773e+00_rb,1.0140e+00_rb,8.4932e-01_rb,6.8606e-01_rb,5.2486e-01_rb, &
+     &3.6482e-01_rb,2.0369e-01_rb,7.2048e-03_rb/)
+      kao(:, 1, 5, 7) = (/ &
+     &2.5206e+00_rb,2.2062e+00_rb,1.8917e+00_rb,1.5773e+00_rb,1.2631e+00_rb,9.4923e-01_rb, &
+     &6.3588e-01_rb,3.2194e-01_rb,1.8039e-03_rb/)
+      kao(:, 2, 5, 7) = (/ &
+     &2.4864e+00_rb,2.1765e+00_rb,1.8669e+00_rb,1.5575e+00_rb,1.2483e+00_rb,9.3953e-01_rb, &
+     &6.3051e-01_rb,3.2080e-01_rb,2.4598e-03_rb/)
+      kao(:, 3, 5, 7) = (/ &
+     &2.4502e+00_rb,2.1455e+00_rb,1.8410e+00_rb,1.5370e+00_rb,1.2333e+00_rb,9.2942e-01_rb, &
+     &6.2403e-01_rb,3.2160e-01_rb,3.2471e-03_rb/)
+      kao(:, 4, 5, 7) = (/ &
+     &2.4176e+00_rb,2.1177e+00_rb,1.8181e+00_rb,1.5189e+00_rb,1.2193e+00_rb,9.1845e-01_rb, &
+     &6.1937e-01_rb,3.2415e-01_rb,4.1727e-03_rb/)
+      kao(:, 5, 5, 7) = (/ &
+     &2.3943e+00_rb,2.0977e+00_rb,1.8015e+00_rb,1.5055e+00_rb,1.2082e+00_rb,9.1210e-01_rb, &
+     &6.1892e-01_rb,3.2856e-01_rb,5.2383e-03_rb/)
+      kao(:, 1, 6, 7) = (/ &
+     &4.1535e+00_rb,3.6349e+00_rb,3.1163e+00_rb,2.5976e+00_rb,2.0789e+00_rb,1.5604e+00_rb, &
+     &1.0424e+00_rb,5.2499e-01_rb,1.2119e-03_rb/)
+      kao(:, 2, 6, 7) = (/ &
+     &4.0999e+00_rb,3.5882e+00_rb,3.0765e+00_rb,2.5650e+00_rb,2.0536e+00_rb,1.5426e+00_rb, &
+     &1.0319e+00_rb,5.2076e-01_rb,1.6878e-03_rb/)
+      kao(:, 3, 6, 7) = (/ &
+     &4.0501e+00_rb,3.5452e+00_rb,3.0400e+00_rb,2.5354e+00_rb,2.0310e+00_rb,1.5269e+00_rb, &
+     &1.0226e+00_rb,5.1681e-01_rb,2.2703e-03_rb/)
+      kao(:, 4, 6, 7) = (/ &
+     &4.0172e+00_rb,3.5170e+00_rb,3.0163e+00_rb,2.5163e+00_rb,2.0166e+00_rb,1.5168e+00_rb, &
+     &1.0153e+00_rb,5.1695e-01_rb,2.9634e-03_rb/)
+      kao(:, 5, 6, 7) = (/ &
+     &4.0047e+00_rb,3.5059e+00_rb,3.0081e+00_rb,2.5099e+00_rb,2.0120e+00_rb,1.5128e+00_rb, &
+     &1.0149e+00_rb,5.2194e-01_rb,3.7748e-03_rb/)
+      kao(:, 1, 7, 7) = (/ &
+     &7.1454e+00_rb,6.2526e+00_rb,5.3597e+00_rb,4.4669e+00_rb,3.5744e+00_rb,2.6816e+00_rb, &
+     &1.7891e+00_rb,8.9724e-01_rb,7.5005e-04_rb/)
+      kao(:, 2, 7, 7) = (/ &
+     &7.0662e+00_rb,6.1833e+00_rb,5.3006e+00_rb,4.4177e+00_rb,3.5356e+00_rb,2.6534e+00_rb, &
+     &1.7715e+00_rb,8.9007e-01_rb,1.0984e-03_rb/)
+      kao(:, 3, 7, 7) = (/ &
+     &7.0091e+00_rb,6.1337e+00_rb,5.2586e+00_rb,4.3836e+00_rb,3.5085e+00_rb,2.6339e+00_rb, &
+     &1.7596e+00_rb,8.8470e-01_rb,1.5427e-03_rb/)
+      kao(:, 4, 7, 7) = (/ &
+     &6.9967e+00_rb,6.1229e+00_rb,5.2499e+00_rb,4.3767e+00_rb,3.5037e+00_rb,2.6314e+00_rb, &
+     &1.7589e+00_rb,8.8464e-01_rb,2.0814e-03_rb/)
+      kao(:, 5, 7, 7) = (/ &
+     &7.0262e+00_rb,6.1495e+00_rb,5.2733e+00_rb,4.3969e+00_rb,3.5208e+00_rb,2.6451e+00_rb, &
+     &1.7672e+00_rb,8.9234e-01_rb,2.7067e-03_rb/)
+      kao(:, 1, 8, 7) = (/ &
+     &1.4691e+01_rb,1.2856e+01_rb,1.1019e+01_rb,9.1832e+00_rb,7.3472e+00_rb,5.5112e+00_rb, &
+     &3.6752e+00_rb,1.8392e+00_rb,5.0466e-04_rb/)
+      kao(:, 2, 8, 7) = (/ &
+     &1.4561e+01_rb,1.2741e+01_rb,1.0922e+01_rb,9.1018e+00_rb,7.2824e+00_rb,5.4631e+00_rb, &
+     &3.6434e+00_rb,1.8247e+00_rb,7.0108e-04_rb/)
+      kao(:, 3, 8, 7) = (/ &
+     &1.4517e+01_rb,1.2702e+01_rb,1.0889e+01_rb,9.0751e+00_rb,7.2609e+00_rb,5.4474e+00_rb, &
+     &3.6338e+00_rb,1.8215e+00_rb,9.5134e-04_rb/)
+      kao(:, 4, 8, 7) = (/ &
+     &1.4592e+01_rb,1.2768e+01_rb,1.0945e+01_rb,9.1223e+00_rb,7.2994e+00_rb,5.4774e+00_rb, &
+     &3.6552e+00_rb,1.8334e+00_rb,1.2923e-03_rb/)
+      kao(:, 5, 8, 7) = (/ &
+     &1.4780e+01_rb,1.2933e+01_rb,1.1086e+01_rb,9.2409e+00_rb,7.3952e+00_rb,5.5498e+00_rb, &
+     &3.7048e+00_rb,1.8578e+00_rb,1.7359e-03_rb/)
+      kao(:, 1, 9, 7) = (/ &
+     &5.6885e+01_rb,4.9776e+01_rb,4.2665e+01_rb,3.5554e+01_rb,2.8444e+01_rb,2.1332e+01_rb, &
+     &1.4224e+01_rb,7.1126e+00_rb,6.2609e-04_rb/)
+      kao(:, 2, 9, 7) = (/ &
+     &5.6580e+01_rb,4.9509e+01_rb,4.2436e+01_rb,3.5363e+01_rb,2.8291e+01_rb,2.1219e+01_rb, &
+     &1.4147e+01_rb,7.0751e+00_rb,8.0177e-04_rb/)
+      kao(:, 3, 9, 7) = (/ &
+     &5.6732e+01_rb,4.9637e+01_rb,4.2548e+01_rb,3.5458e+01_rb,2.8366e+01_rb,2.1276e+01_rb, &
+     &1.4184e+01_rb,7.0949e+00_rb,1.0220e-03_rb/)
+      kao(:, 4, 9, 7) = (/ &
+     &5.7468e+01_rb,5.0286e+01_rb,4.3101e+01_rb,3.5920e+01_rb,2.8736e+01_rb,2.1553e+01_rb, &
+     &1.4371e+01_rb,7.1892e+00_rb,1.2387e-03_rb/)
+      kao(:, 5, 9, 7) = (/ &
+     &5.8635e+01_rb,5.1306e+01_rb,4.3977e+01_rb,3.6648e+01_rb,2.9321e+01_rb,2.1992e+01_rb, &
+     &1.4665e+01_rb,7.3378e+00_rb,1.5501e-03_rb/)
+      kao(:, 1,10, 7) = (/ &
+     &2.4487e+02_rb,2.1424e+02_rb,1.8364e+02_rb,1.5304e+02_rb,1.2243e+02_rb,9.1825e+01_rb, &
+     &6.1214e+01_rb,3.0606e+01_rb,1.7354e-03_rb/)
+      kao(:, 2,10, 7) = (/ &
+     &2.4490e+02_rb,2.1431e+02_rb,1.8369e+02_rb,1.5309e+02_rb,1.2247e+02_rb,9.1851e+01_rb, &
+     &6.1230e+01_rb,3.0619e+01_rb,1.7748e-03_rb/)
+      kao(:, 3,10, 7) = (/ &
+     &2.4755e+02_rb,2.1661e+02_rb,1.8568e+02_rb,1.5472e+02_rb,1.2378e+02_rb,9.2834e+01_rb, &
+     &6.1889e+01_rb,3.0945e+01_rb,1.9607e-03_rb/)
+      kao(:, 4,10, 7) = (/ &
+     &2.5293e+02_rb,2.2132e+02_rb,1.8970e+02_rb,1.5807e+02_rb,1.2647e+02_rb,9.4852e+01_rb, &
+     &6.3238e+01_rb,3.1620e+01_rb,2.3523e-03_rb/)
+      kao(:, 5,10, 7) = (/ &
+     &2.5940e+02_rb,2.2699e+02_rb,1.9456e+02_rb,1.6213e+02_rb,1.2971e+02_rb,9.7282e+01_rb, &
+     &6.4856e+01_rb,3.2431e+01_rb,2.7354e-03_rb/)
+      kao(:, 1,11, 7) = (/ &
+     &3.6899e+02_rb,3.2288e+02_rb,2.7677e+02_rb,2.3063e+02_rb,1.8452e+02_rb,1.3837e+02_rb, &
+     &9.2255e+01_rb,4.6125e+01_rb,2.1265e-03_rb/)
+      kao(:, 2,11, 7) = (/ &
+     &3.7335e+02_rb,3.2670e+02_rb,2.8002e+02_rb,2.3334e+02_rb,1.8669e+02_rb,1.4002e+02_rb, &
+     &9.3341e+01_rb,4.6674e+01_rb,3.2080e-03_rb/)
+      kao(:, 3,11, 7) = (/ &
+     &3.8233e+02_rb,3.3453e+02_rb,2.8674e+02_rb,2.3896e+02_rb,1.9116e+02_rb,1.4337e+02_rb, &
+     &9.5577e+01_rb,4.7794e+01_rb,3.4910e-03_rb/)
+      kao(:, 4,11, 7) = (/ &
+     &3.9299e+02_rb,3.4383e+02_rb,2.9472e+02_rb,2.4561e+02_rb,1.9648e+02_rb,1.4736e+02_rb, &
+     &9.8242e+01_rb,4.9120e+01_rb,3.8208e-03_rb/)
+      kao(:, 5,11, 7) = (/ &
+     &4.0483e+02_rb,3.5423e+02_rb,3.0363e+02_rb,2.5301e+02_rb,2.0242e+02_rb,1.5182e+02_rb, &
+     &1.0121e+02_rb,5.0609e+01_rb,4.2123e-03_rb/)
+      kao(:, 1,12, 7) = (/ &
+     &4.1937e+02_rb,3.6695e+02_rb,3.1452e+02_rb,2.6211e+02_rb,2.0969e+02_rb,1.5726e+02_rb, &
+     &1.0485e+02_rb,5.2423e+01_rb,2.2784e-03_rb/)
+      kao(:, 2,12, 7) = (/ &
+     &4.2956e+02_rb,3.7586e+02_rb,3.2216e+02_rb,2.6848e+02_rb,2.1478e+02_rb,1.6108e+02_rb, &
+     &1.0739e+02_rb,5.3697e+01_rb,3.5938e-03_rb/)
+      kao(:, 3,12, 7) = (/ &
+     &4.4222e+02_rb,3.8693e+02_rb,3.3164e+02_rb,2.7638e+02_rb,2.2109e+02_rb,1.6582e+02_rb, &
+     &1.1055e+02_rb,5.5277e+01_rb,4.4037e-03_rb/)
+      kao(:, 4,12, 7) = (/ &
+     &4.5624e+02_rb,3.9921e+02_rb,3.4220e+02_rb,2.8517e+02_rb,2.2812e+02_rb,1.7109e+02_rb, &
+     &1.1406e+02_rb,5.7035e+01_rb,4.5266e-03_rb/)
+      kao(:, 5,12, 7) = (/ &
+     &4.7013e+02_rb,4.1136e+02_rb,3.5259e+02_rb,2.9384e+02_rb,2.3506e+02_rb,1.7630e+02_rb, &
+     &1.1754e+02_rb,5.8765e+01_rb,5.1545e-03_rb/)
+      kao(:, 1,13, 7) = (/ &
+     &3.8573e+02_rb,3.3753e+02_rb,2.8932e+02_rb,2.4110e+02_rb,1.9287e+02_rb,1.4465e+02_rb, &
+     &9.6435e+01_rb,4.8220e+01_rb,2.4127e-03_rb/)
+      kao(:, 2,13, 7) = (/ &
+     &3.9713e+02_rb,3.4748e+02_rb,2.9784e+02_rb,2.4821e+02_rb,1.9856e+02_rb,1.4893e+02_rb, &
+     &9.9282e+01_rb,4.9641e+01_rb,3.8706e-03_rb/)
+      kao(:, 3,13, 7) = (/ &
+     &4.1029e+02_rb,3.5900e+02_rb,3.0771e+02_rb,2.5644e+02_rb,2.0514e+02_rb,1.5386e+02_rb, &
+     &1.0257e+02_rb,5.1288e+01_rb,4.7695e-03_rb/)
+      kao(:, 4,13, 7) = (/ &
+     &4.2344e+02_rb,3.7050e+02_rb,3.1756e+02_rb,2.6463e+02_rb,2.1170e+02_rb,1.5878e+02_rb, &
+     &1.0586e+02_rb,5.2932e+01_rb,4.9706e-03_rb/)
+      kao(:, 5,13, 7) = (/ &
+     &4.3615e+02_rb,3.8165e+02_rb,3.2713e+02_rb,2.7260e+02_rb,2.1808e+02_rb,1.6356e+02_rb, &
+     &1.0904e+02_rb,5.4523e+01_rb,5.6617e-03_rb/)
+      kao(:, 1, 1, 8) = (/ &
+     &5.2022e-01_rb,4.5635e-01_rb,3.9252e-01_rb,3.3010e-01_rb,2.6823e-01_rb,2.0567e-01_rb, &
+     &1.4452e-01_rb,8.4865e-02_rb,1.8396e-02_rb/)
+      kao(:, 2, 1, 8) = (/ &
+     &5.2177e-01_rb,4.5789e-01_rb,3.9474e-01_rb,3.3342e-01_rb,2.7114e-01_rb,2.1031e-01_rb, &
+     &1.5104e-01_rb,9.2174e-02_rb,2.3774e-02_rb/)
+      kao(:, 3, 1, 8) = (/ &
+     &5.2246e-01_rb,4.5863e-01_rb,3.9708e-01_rb,3.3604e-01_rb,2.7541e-01_rb,2.1692e-01_rb, &
+     &1.5876e-01_rb,9.9961e-02_rb,3.0156e-02_rb/)
+      kao(:, 4, 1, 8) = (/ &
+     &5.2222e-01_rb,4.5904e-01_rb,3.9936e-01_rb,3.3918e-01_rb,2.8145e-01_rb,2.2396e-01_rb, &
+     &1.6789e-01_rb,1.0815e-01_rb,3.7634e-02_rb/)
+      kao(:, 5, 1, 8) = (/ &
+     &5.2130e-01_rb,4.5967e-01_rb,4.0135e-01_rb,3.4393e-01_rb,2.8807e-01_rb,2.3225e-01_rb, &
+     &1.7760e-01_rb,1.1669e-01_rb,4.6345e-02_rb/)
+      kao(:, 1, 2, 8) = (/ &
+     &8.1852e-01_rb,7.1745e-01_rb,6.1633e-01_rb,5.1564e-01_rb,4.1643e-01_rb,3.1732e-01_rb, &
+     &2.1786e-01_rb,1.2067e-01_rb,1.4675e-02_rb/)
+      kao(:, 2, 2, 8) = (/ &
+     &8.1998e-01_rb,7.1886e-01_rb,6.1787e-01_rb,5.1883e-01_rb,4.2047e-01_rb,3.2108e-01_rb, &
+     &2.2369e-01_rb,1.2867e-01_rb,1.9122e-02_rb/)
+      kao(:, 3, 2, 8) = (/ &
+     &8.2161e-01_rb,7.2051e-01_rb,6.2063e-01_rb,5.2305e-01_rb,4.2413e-01_rb,3.2660e-01_rb, &
+     &2.3145e-01_rb,1.3782e-01_rb,2.4473e-02_rb/)
+      kao(:, 4, 2, 8) = (/ &
+     &8.2149e-01_rb,7.2071e-01_rb,6.2301e-01_rb,5.2587e-01_rb,4.2865e-01_rb,3.3407e-01_rb, &
+     &2.4032e-01_rb,1.4761e-01_rb,3.0869e-02_rb/)
+      kao(:, 5, 2, 8) = (/ &
+     &8.1957e-01_rb,7.1986e-01_rb,6.2436e-01_rb,5.2838e-01_rb,4.3462e-01_rb,3.4210e-01_rb, &
+     &2.5070e-01_rb,1.5726e-01_rb,3.8311e-02_rb/)
+      kao(:, 1, 3, 8) = (/ &
+     &1.7050e+00_rb,1.4932e+00_rb,1.2814e+00_rb,1.0695e+00_rb,8.5775e-01_rb,6.4751e-01_rb, &
+     &4.3833e-01_rb,2.2806e-01_rb,1.0910e-02_rb/)
+      kao(:, 2, 3, 8) = (/ &
+     &1.7093e+00_rb,1.4971e+00_rb,1.2848e+00_rb,1.0726e+00_rb,8.6216e-01_rb,6.5288e-01_rb, &
+     &4.4261e-01_rb,2.3435e-01_rb,1.4370e-02_rb/)
+      kao(:, 3, 3, 8) = (/ &
+     &1.7123e+00_rb,1.5000e+00_rb,1.2874e+00_rb,1.0764e+00_rb,8.6711e-01_rb,6.5794e-01_rb, &
+     &4.4842e-01_rb,2.4360e-01_rb,1.8590e-02_rb/)
+      kao(:, 4, 3, 8) = (/ &
+     &1.7121e+00_rb,1.4998e+00_rb,1.2880e+00_rb,1.0792e+00_rb,8.7145e-01_rb,6.6223e-01_rb, &
+     &4.5614e-01_rb,2.5394e-01_rb,2.3699e-02_rb/)
+      kao(:, 5, 3, 8) = (/ &
+     &1.7072e+00_rb,1.4957e+00_rb,1.2869e+00_rb,1.0807e+00_rb,8.7401e-01_rb,6.6818e-01_rb, &
+     &4.6582e-01_rb,2.6619e-01_rb,2.9551e-02_rb/)
+      kao(:, 1, 4, 8) = (/ &
+     &3.5671e+00_rb,3.1226e+00_rb,2.6780e+00_rb,2.2334e+00_rb,1.7887e+00_rb,1.3439e+00_rb, &
+     &9.0030e-01_rb,4.5879e-01_rb,7.8646e-03_rb/)
+      kao(:, 2, 4, 8) = (/ &
+     &3.5784e+00_rb,3.1324e+00_rb,2.6867e+00_rb,2.2405e+00_rb,1.7945e+00_rb,1.3495e+00_rb, &
+     &9.0658e-01_rb,4.6395e-01_rb,1.0548e-02_rb/)
+      kao(:, 3, 4, 8) = (/ &
+     &3.5832e+00_rb,3.1369e+00_rb,2.6902e+00_rb,2.2437e+00_rb,1.7981e+00_rb,1.3549e+00_rb, &
+     &9.1305e-01_rb,4.7036e-01_rb,1.3834e-02_rb/)
+      kao(:, 4, 4, 8) = (/ &
+     &3.5802e+00_rb,3.1343e+00_rb,2.6882e+00_rb,2.2430e+00_rb,1.8006e+00_rb,1.3596e+00_rb, &
+     &9.1785e-01_rb,4.7927e-01_rb,1.7787e-02_rb/)
+      kao(:, 5, 4, 8) = (/ &
+     &3.5714e+00_rb,3.1267e+00_rb,2.6827e+00_rb,2.2417e+00_rb,1.8022e+00_rb,1.3635e+00_rb, &
+     &9.2392e-01_rb,4.9076e-01_rb,2.2306e-02_rb/)
+      kao(:, 1, 5, 8) = (/ &
+     &6.7418e+00_rb,5.9003e+00_rb,5.0587e+00_rb,4.2171e+00_rb,3.3754e+00_rb,2.5338e+00_rb, &
+     &1.6921e+00_rb,8.5173e-01_rb,5.5269e-03_rb/)
+      kao(:, 2, 5, 8) = (/ &
+     &6.7656e+00_rb,5.9212e+00_rb,5.0765e+00_rb,4.2319e+00_rb,3.3873e+00_rb,2.5428e+00_rb, &
+     &1.6990e+00_rb,8.5857e-01_rb,7.5732e-03_rb/)
+      kao(:, 3, 5, 8) = (/ &
+     &6.7746e+00_rb,5.9289e+00_rb,5.0835e+00_rb,4.2380e+00_rb,3.3924e+00_rb,2.5474e+00_rb, &
+     &1.7057e+00_rb,8.6548e-01_rb,1.0137e-02_rb/)
+      kao(:, 4, 5, 8) = (/ &
+     &6.7641e+00_rb,5.9200e+00_rb,5.0759e+00_rb,4.2320e+00_rb,3.3891e+00_rb,2.5487e+00_rb, &
+     &1.7099e+00_rb,8.7100e-01_rb,1.3219e-02_rb/)
+      kao(:, 5, 5, 8) = (/ &
+     &6.7413e+00_rb,5.9008e+00_rb,5.0606e+00_rb,4.2207e+00_rb,3.3833e+00_rb,2.5475e+00_rb, &
+     &1.7128e+00_rb,8.7813e-01_rb,1.6736e-02_rb/)
+      kao(:, 1, 6, 8) = (/ &
+     &1.1755e+01_rb,1.0287e+01_rb,8.8182e+00_rb,7.3494e+00_rb,5.8812e+00_rb,4.4127e+00_rb, &
+     &2.9442e+00_rb,1.4757e+00_rb,3.7670e-03_rb/)
+      kao(:, 2, 6, 8) = (/ &
+     &1.1790e+01_rb,1.0318e+01_rb,8.8444e+00_rb,7.3718e+00_rb,5.8990e+00_rb,4.4261e+00_rb, &
+     &2.9535e+00_rb,1.4824e+00_rb,5.2756e-03_rb/)
+      kao(:, 3, 6, 8) = (/ &
+     &1.1802e+01_rb,1.0328e+01_rb,8.8538e+00_rb,7.3796e+00_rb,5.9055e+00_rb,4.4312e+00_rb, &
+     &2.9580e+00_rb,1.4892e+00_rb,7.2031e-03_rb/)
+      kao(:, 4, 6, 8) = (/ &
+     &1.1771e+01_rb,1.0301e+01_rb,8.8310e+00_rb,7.3612e+00_rb,5.8917e+00_rb,4.4224e+00_rb, &
+     &2.9568e+00_rb,1.4927e+00_rb,9.5398e-03_rb/)
+      kao(:, 5, 6, 8) = (/ &
+     &1.1717e+01_rb,1.0254e+01_rb,8.7912e+00_rb,7.3292e+00_rb,5.8672e+00_rb,4.4080e+00_rb, &
+     &2.9504e+00_rb,1.4942e+00_rb,1.2264e-02_rb/)
+      kao(:, 1, 7, 8) = (/ &
+     &2.1201e+01_rb,1.8552e+01_rb,1.5902e+01_rb,1.3253e+01_rb,1.0604e+01_rb,7.9546e+00_rb, &
+     &5.3049e+00_rb,2.6554e+00_rb,2.5163e-03_rb/)
+      kao(:, 2, 7, 8) = (/ &
+     &2.1258e+01_rb,1.8602e+01_rb,1.5945e+01_rb,1.3288e+01_rb,1.0632e+01_rb,7.9754e+00_rb, &
+     &5.3196e+00_rb,2.6631e+00_rb,3.6166e-03_rb/)
+      kao(:, 3, 7, 8) = (/ &
+     &2.1271e+01_rb,1.8614e+01_rb,1.5957e+01_rb,1.3298e+01_rb,1.0640e+01_rb,7.9825e+00_rb, &
+     &5.3244e+00_rb,2.6683e+00_rb,5.0339e-03_rb/)
+      kao(:, 4, 7, 8) = (/ &
+     &2.1213e+01_rb,1.8564e+01_rb,1.5913e+01_rb,1.3262e+01_rb,1.0612e+01_rb,7.9619e+00_rb, &
+     &5.3122e+00_rb,2.6672e+00_rb,6.7768e-03_rb/)
+      kao(:, 5, 7, 8) = (/ &
+     &2.1089e+01_rb,1.8455e+01_rb,1.5820e+01_rb,1.3186e+01_rb,1.0552e+01_rb,7.9178e+00_rb, &
+     &5.2873e+00_rb,2.6593e+00_rb,8.8413e-03_rb/)
+      kao(:, 1, 8, 8) = (/ &
+     &4.5180e+01_rb,3.9535e+01_rb,3.3887e+01_rb,2.8239e+01_rb,2.2591e+01_rb,1.6944e+01_rb, &
+     &1.1298e+01_rb,5.6517e+00_rb,1.3715e-03_rb/)
+      kao(:, 2, 8, 8) = (/ &
+     &4.5290e+01_rb,3.9627e+01_rb,3.3969e+01_rb,2.8308e+01_rb,2.2647e+01_rb,1.6987e+01_rb, &
+     &1.1327e+01_rb,5.6660e+00_rb,2.0845e-03_rb/)
+      kao(:, 3, 8, 8) = (/ &
+     &4.5261e+01_rb,3.9605e+01_rb,3.3948e+01_rb,2.8290e+01_rb,2.2633e+01_rb,1.6977e+01_rb, &
+     &1.1320e+01_rb,5.6637e+00_rb,3.2057e-03_rb/)
+      kao(:, 4, 8, 8) = (/ &
+     &4.5126e+01_rb,3.9486e+01_rb,3.3848e+01_rb,2.8205e+01_rb,2.2567e+01_rb,1.6928e+01_rb, &
+     &1.1288e+01_rb,5.6493e+00_rb,4.5853e-03_rb/)
+      kao(:, 5, 8, 8) = (/ &
+     &4.4865e+01_rb,3.9259e+01_rb,3.3651e+01_rb,2.8046e+01_rb,2.2438e+01_rb,1.6832e+01_rb, &
+     &1.1226e+01_rb,5.6233e+00_rb,6.2243e-03_rb/)
+      kao(:, 1, 9, 8) = (/ &
+     &1.7982e+02_rb,1.5734e+02_rb,1.3487e+02_rb,1.1239e+02_rb,8.9912e+01_rb,6.7434e+01_rb, &
+     &4.4957e+01_rb,2.2481e+01_rb,1.3106e-03_rb/)
+      kao(:, 2, 9, 8) = (/ &
+     &1.7996e+02_rb,1.5746e+02_rb,1.3497e+02_rb,1.1247e+02_rb,8.9976e+01_rb,6.7488e+01_rb, &
+     &4.4992e+01_rb,2.2498e+01_rb,1.6404e-03_rb/)
+      kao(:, 3, 9, 8) = (/ &
+     &1.7965e+02_rb,1.5719e+02_rb,1.3473e+02_rb,1.1228e+02_rb,8.9821e+01_rb,6.7370e+01_rb, &
+     &4.4914e+01_rb,2.2461e+01_rb,2.0268e-03_rb/)
+      kao(:, 4, 9, 8) = (/ &
+     &1.7888e+02_rb,1.5653e+02_rb,1.3416e+02_rb,1.1181e+02_rb,8.9443e+01_rb,6.7088e+01_rb, &
+     &4.4727e+01_rb,2.2367e+01_rb,2.6824e-03_rb/)
+      kao(:, 5, 9, 8) = (/ &
+     &1.7801e+02_rb,1.5576e+02_rb,1.3351e+02_rb,1.1126e+02_rb,8.9014e+01_rb,6.6762e+01_rb, &
+     &4.4512e+01_rb,2.2261e+01_rb,3.2961e-03_rb/)
+      kao(:, 1,10, 8) = (/ &
+     &7.9186e+02_rb,6.9285e+02_rb,5.9387e+02_rb,4.9485e+02_rb,3.9587e+02_rb,2.9692e+02_rb, &
+     &1.9795e+02_rb,9.8980e+01_rb,2.6434e-03_rb/)
+      kao(:, 2,10, 8) = (/ &
+     &7.9156e+02_rb,6.9260e+02_rb,5.9370e+02_rb,4.9476e+02_rb,3.9580e+02_rb,2.9685e+02_rb, &
+     &1.9789e+02_rb,9.8956e+01_rb,3.6689e-03_rb/)
+      kao(:, 3,10, 8) = (/ &
+     &7.8897e+02_rb,6.9037e+02_rb,5.9173e+02_rb,4.9309e+02_rb,3.9450e+02_rb,2.9589e+02_rb, &
+     &1.9725e+02_rb,9.8635e+01_rb,4.1214e-03_rb/)
+      kao(:, 4,10, 8) = (/ &
+     &7.8518e+02_rb,6.8703e+02_rb,5.8889e+02_rb,4.9073e+02_rb,3.9258e+02_rb,2.9444e+02_rb, &
+     &1.9631e+02_rb,9.8149e+01_rb,4.6533e-03_rb/)
+      kao(:, 5,10, 8) = (/ &
+     &7.8271e+02_rb,6.8490e+02_rb,5.8707e+02_rb,4.8922e+02_rb,3.9137e+02_rb,2.9354e+02_rb, &
+     &1.9568e+02_rb,9.7851e+01_rb,5.3114e-03_rb/)
+      kao(:, 1,11, 8) = (/ &
+     &1.2023e+03_rb,1.0521e+03_rb,9.0173e+02_rb,7.5144e+02_rb,6.0116e+02_rb,4.5091e+02_rb, &
+     &3.0058e+02_rb,1.5029e+02_rb,2.8585e-03_rb/)
+      kao(:, 2,11, 8) = (/ &
+     &1.1987e+03_rb,1.0489e+03_rb,8.9906e+02_rb,7.4919e+02_rb,5.9938e+02_rb,4.4951e+02_rb, &
+     &2.9969e+02_rb,1.4984e+02_rb,4.2381e-03_rb/)
+      kao(:, 3,11, 8) = (/ &
+     &1.1938e+03_rb,1.0446e+03_rb,8.9539e+02_rb,7.4611e+02_rb,5.9694e+02_rb,4.4768e+02_rb, &
+     &2.9847e+02_rb,1.4923e+02_rb,6.1776e-03_rb/)
+      kao(:, 4,11, 8) = (/ &
+     &1.1919e+03_rb,1.0429e+03_rb,8.9396e+02_rb,7.4498e+02_rb,5.9597e+02_rb,4.4698e+02_rb, &
+     &2.9797e+02_rb,1.4900e+02_rb,6.8124e-03_rb/)
+      kao(:, 5,11, 8) = (/ &
+     &1.1943e+03_rb,1.0450e+03_rb,8.9567e+02_rb,7.4646e+02_rb,5.9716e+02_rb,4.4786e+02_rb, &
+     &2.9857e+02_rb,1.4929e+02_rb,7.2330e-03_rb/)
+      kao(:, 1,12, 8) = (/ &
+     &1.3468e+03_rb,1.1784e+03_rb,1.0101e+03_rb,8.4170e+02_rb,6.7334e+02_rb,5.0503e+02_rb, &
+     &3.3668e+02_rb,1.6834e+02_rb,3.2180e-03_rb/)
+      kao(:, 2,12, 8) = (/ &
+     &1.3417e+03_rb,1.1740e+03_rb,1.0062e+03_rb,8.3855e+02_rb,6.7082e+02_rb,5.0314e+02_rb, &
+     &3.3541e+02_rb,1.6772e+02_rb,4.6846e-03_rb/)
+      kao(:, 3,12, 8) = (/ &
+     &1.3409e+03_rb,1.1734e+03_rb,1.0058e+03_rb,8.3814e+02_rb,6.7048e+02_rb,5.0287e+02_rb, &
+     &3.3524e+02_rb,1.6763e+02_rb,6.5606e-03_rb/)
+      kao(:, 4,12, 8) = (/ &
+     &1.3471e+03_rb,1.1787e+03_rb,1.0103e+03_rb,8.4192e+02_rb,6.7354e+02_rb,5.0515e+02_rb, &
+     &3.3677e+02_rb,1.6839e+02_rb,8.6936e-03_rb/)
+      kao(:, 5,12, 8) = (/ &
+     &1.3615e+03_rb,1.1913e+03_rb,1.0211e+03_rb,8.5093e+02_rb,6.8072e+02_rb,5.1056e+02_rb, &
+     &3.4035e+02_rb,1.7018e+02_rb,9.2918e-03_rb/)
+      kao(:, 1,13, 8) = (/ &
+     &1.2096e+03_rb,1.0584e+03_rb,9.0717e+02_rb,7.5599e+02_rb,6.0478e+02_rb,4.5359e+02_rb, &
+     &3.0240e+02_rb,1.5119e+02_rb,3.1447e-03_rb/)
+      kao(:, 2,13, 8) = (/ &
+     &1.2095e+03_rb,1.0583e+03_rb,9.0711e+02_rb,7.5597e+02_rb,6.0474e+02_rb,4.5355e+02_rb, &
+     &3.0238e+02_rb,1.5119e+02_rb,4.9163e-03_rb/)
+      kao(:, 3,13, 8) = (/ &
+     &1.2161e+03_rb,1.0641e+03_rb,9.1208e+02_rb,7.6006e+02_rb,6.0804e+02_rb,4.5603e+02_rb, &
+     &3.0401e+02_rb,1.5201e+02_rb,6.8865e-03_rb/)
+      kao(:, 4,13, 8) = (/ &
+     &1.2328e+03_rb,1.0787e+03_rb,9.2458e+02_rb,7.7050e+02_rb,6.1637e+02_rb,4.6230e+02_rb, &
+     &3.0819e+02_rb,1.5410e+02_rb,9.4613e-03_rb/)
+      kao(:, 5,13, 8) = (/ &
+     &1.2601e+03_rb,1.1026e+03_rb,9.4505e+02_rb,7.8755e+02_rb,6.3004e+02_rb,4.7254e+02_rb, &
+     &3.1501e+02_rb,1.5751e+02_rb,1.0283e-02_rb/)
+      kao(:, 1, 1, 9) = (/ &
+     &1.0370e+00_rb,9.0857e-01_rb,7.8023e-01_rb,6.5192e-01_rb,5.2457e-01_rb,4.0025e-01_rb, &
+     &2.7828e-01_rb,1.5804e-01_rb,5.8897e-02_rb/)
+      kao(:, 2, 1, 9) = (/ &
+     &1.0492e+00_rb,9.1962e-01_rb,7.9014e-01_rb,6.6101e-01_rb,5.3535e-01_rb,4.1219e-01_rb, &
+     &2.9064e-01_rb,1.7381e-01_rb,7.6414e-02_rb/)
+      kao(:, 3, 1, 9) = (/ &
+     &1.0617e+00_rb,9.3102e-01_rb,8.0032e-01_rb,6.7200e-01_rb,5.4761e-01_rb,4.2620e-01_rb, &
+     &3.0674e-01_rb,1.9538e-01_rb,9.6701e-02_rb/)
+      kao(:, 4, 1, 9) = (/ &
+     &1.0715e+00_rb,9.3980e-01_rb,8.0850e-01_rb,6.8264e-01_rb,5.6043e-01_rb,4.4205e-01_rb, &
+     &3.2592e-01_rb,2.2229e-01_rb,1.1943e-01_rb/)
+      kao(:, 5, 1, 9) = (/ &
+     &1.0801e+00_rb,9.4751e-01_rb,8.1733e-01_rb,6.9368e-01_rb,5.7613e-01_rb,4.6079e-01_rb, &
+     &3.5014e-01_rb,2.5319e-01_rb,1.4487e-01_rb/)
+      kao(:, 1, 2, 9) = (/ &
+     &1.7442e+00_rb,1.5272e+00_rb,1.3102e+00_rb,1.0933e+00_rb,8.7649e-01_rb,6.6091e-01_rb, &
+     &4.4902e-01_rb,2.3891e-01_rb,5.2362e-02_rb/)
+      kao(:, 2, 2, 9) = (/ &
+     &1.7617e+00_rb,1.5427e+00_rb,1.3238e+00_rb,1.1049e+00_rb,8.8687e-01_rb,6.7276e-01_rb, &
+     &4.6180e-01_rb,2.5188e-01_rb,6.8691e-02_rb/)
+      kao(:, 3, 2, 9) = (/ &
+     &1.7768e+00_rb,1.5563e+00_rb,1.3359e+00_rb,1.1155e+00_rb,8.9933e-01_rb,6.8666e-01_rb, &
+     &4.7568e-01_rb,2.6925e-01_rb,8.7599e-02_rb/)
+      kao(:, 4, 2, 9) = (/ &
+     &1.7902e+00_rb,1.5683e+00_rb,1.3467e+00_rb,1.1272e+00_rb,9.1292e-01_rb,7.0212e-01_rb, &
+     &4.9313e-01_rb,2.9218e-01_rb,1.0892e-01_rb/)
+      kao(:, 5, 2, 9) = (/ &
+     &1.8007e+00_rb,1.5781e+00_rb,1.3558e+00_rb,1.1390e+00_rb,9.2668e-01_rb,7.1895e-01_rb, &
+     &5.1345e-01_rb,3.2009e-01_rb,1.3290e-01_rb/)
+      kao(:, 1, 3, 9) = (/ &
+     &3.9769e+00_rb,3.4805e+00_rb,2.9839e+00_rb,2.4875e+00_rb,1.9912e+00_rb,1.4948e+00_rb, &
+     &9.9892e-01_rb,5.0928e-01_rb,4.2777e-02_rb/)
+      kao(:, 2, 3, 9) = (/ &
+     &4.0084e+00_rb,3.5082e+00_rb,3.0084e+00_rb,2.5082e+00_rb,2.0082e+00_rb,1.5084e+00_rb, &
+     &1.0123e+00_rb,5.2189e-01_rb,5.7041e-02_rb/)
+      kao(:, 3, 3, 9) = (/ &
+     &4.0345e+00_rb,3.5316e+00_rb,3.0286e+00_rb,2.5259e+00_rb,2.0232e+00_rb,1.5223e+00_rb, &
+     &1.0275e+00_rb,5.3508e-01_rb,7.3780e-02_rb/)
+      kao(:, 4, 3, 9) = (/ &
+     &4.0588e+00_rb,3.5535e+00_rb,3.0482e+00_rb,2.5430e+00_rb,2.0380e+00_rb,1.5389e+00_rb, &
+     &1.0447e+00_rb,5.5284e-01_rb,9.2939e-02_rb/)
+      kao(:, 5, 3, 9) = (/ &
+     &4.0766e+00_rb,3.5694e+00_rb,3.0624e+00_rb,2.5553e+00_rb,2.0517e+00_rb,1.5545e+00_rb, &
+     &1.0614e+00_rb,5.7409e-01_rb,1.1487e-01_rb/)
+      kao(:, 1, 4, 9) = (/ &
+     &9.2347e+00_rb,8.0808e+00_rb,6.9267e+00_rb,5.7730e+00_rb,4.6191e+00_rb,3.4653e+00_rb, &
+     &2.3115e+00_rb,1.1586e+00_rb,3.3639e-02_rb/)
+      kao(:, 2, 4, 9) = (/ &
+     &9.3231e+00_rb,8.1587e+00_rb,6.9942e+00_rb,5.8295e+00_rb,4.6650e+00_rb,3.5006e+00_rb, &
+     &2.3364e+00_rb,1.1757e+00_rb,4.5584e-02_rb/)
+      kao(:, 3, 4, 9) = (/ &
+     &9.3883e+00_rb,8.2160e+00_rb,7.0435e+00_rb,5.8714e+00_rb,4.6992e+00_rb,3.5271e+00_rb, &
+     &2.3555e+00_rb,1.1930e+00_rb,5.9759e-02_rb/)
+      kao(:, 4, 4, 9) = (/ &
+     &9.4383e+00_rb,8.2599e+00_rb,7.0821e+00_rb,5.9042e+00_rb,4.7261e+00_rb,3.5482e+00_rb, &
+     &2.3742e+00_rb,1.2110e+00_rb,7.6294e-02_rb/)
+      kao(:, 5, 4, 9) = (/ &
+     &9.4750e+00_rb,8.2926e+00_rb,7.1106e+00_rb,5.9283e+00_rb,4.7463e+00_rb,3.5648e+00_rb, &
+     &2.3926e+00_rb,1.2283e+00_rb,9.5542e-02_rb/)
+      kao(:, 1, 5, 9) = (/ &
+     &1.9585e+01_rb,1.7137e+01_rb,1.4689e+01_rb,1.2242e+01_rb,9.7941e+00_rb,7.3465e+00_rb, &
+     &4.8988e+00_rb,2.4515e+00_rb,2.6102e-02_rb/)
+      kao(:, 2, 5, 9) = (/ &
+     &1.9780e+01_rb,1.7309e+01_rb,1.4837e+01_rb,1.2365e+01_rb,9.8932e+00_rb,7.4216e+00_rb, &
+     &4.9500e+00_rb,2.4789e+00_rb,3.5859e-02_rb/)
+      kao(:, 3, 5, 9) = (/ &
+     &1.9935e+01_rb,1.7444e+01_rb,1.4954e+01_rb,1.2463e+01_rb,9.9721e+00_rb,7.4814e+00_rb, &
+     &4.9911e+00_rb,2.5017e+00_rb,4.7575e-02_rb/)
+      kao(:, 4, 5, 9) = (/ &
+     &2.0051e+01_rb,1.7546e+01_rb,1.5041e+01_rb,1.2537e+01_rb,1.0032e+01_rb,7.5273e+00_rb, &
+     &5.0227e+00_rb,2.5239e+00_rb,6.1484e-02_rb/)
+      kao(:, 5, 5, 9) = (/ &
+     &2.0135e+01_rb,1.7620e+01_rb,1.5106e+01_rb,1.2591e+01_rb,1.0076e+01_rb,7.5609e+00_rb, &
+     &5.0463e+00_rb,2.5450e+00_rb,7.7952e-02_rb/)
+      kao(:, 1, 6, 9) = (/ &
+     &3.8631e+01_rb,3.3801e+01_rb,2.8974e+01_rb,2.4144e+01_rb,1.9316e+01_rb,1.4488e+01_rb, &
+     &9.6597e+00_rb,4.8315e+00_rb,1.9604e-02_rb/)
+      kao(:, 2, 6, 9) = (/ &
+     &3.9022e+01_rb,3.4145e+01_rb,2.9268e+01_rb,2.4390e+01_rb,1.9513e+01_rb,1.4636e+01_rb, &
+     &9.7595e+00_rb,4.8831e+00_rb,2.7435e-02_rb/)
+      kao(:, 3, 6, 9) = (/ &
+     &3.9348e+01_rb,3.4431e+01_rb,2.9514e+01_rb,2.4596e+01_rb,1.9679e+01_rb,1.4761e+01_rb, &
+     &9.8442e+00_rb,4.9267e+00_rb,3.6949e-02_rb/)
+      kao(:, 4, 6, 9) = (/ &
+     &3.9594e+01_rb,3.4646e+01_rb,2.9698e+01_rb,2.4751e+01_rb,1.9803e+01_rb,1.4855e+01_rb, &
+     &9.9079e+00_rb,4.9603e+00_rb,4.8442e-02_rb/)
+      kao(:, 5, 6, 9) = (/ &
+     &3.9770e+01_rb,3.4801e+01_rb,2.9832e+01_rb,2.4862e+01_rb,1.9893e+01_rb,1.4924e+01_rb, &
+     &9.9544e+00_rb,4.9871e+00_rb,6.2169e-02_rb/)
+      kao(:, 1, 7, 9) = (/ &
+     &7.9230e+01_rb,6.9326e+01_rb,5.9424e+01_rb,4.9520e+01_rb,3.9617e+01_rb,2.9713e+01_rb, &
+     &1.9810e+01_rb,9.9063e+00_rb,1.4333e-02_rb/)
+      kao(:, 2, 7, 9) = (/ &
+     &8.0053e+01_rb,7.0047e+01_rb,6.0041e+01_rb,5.0034e+01_rb,4.0029e+01_rb,3.0023e+01_rb, &
+     &2.0018e+01_rb,1.0011e+01_rb,2.0474e-02_rb/)
+      kao(:, 3, 7, 9) = (/ &
+     &8.0747e+01_rb,7.0654e+01_rb,6.0562e+01_rb,5.0470e+01_rb,4.0378e+01_rb,3.0286e+01_rb, &
+     &2.0193e+01_rb,1.0101e+01_rb,2.8098e-02_rb/)
+      kao(:, 4, 7, 9) = (/ &
+     &8.1303e+01_rb,7.1142e+01_rb,6.0980e+01_rb,5.0819e+01_rb,4.0658e+01_rb,3.0496e+01_rb, &
+     &2.0334e+01_rb,1.0173e+01_rb,3.7439e-02_rb/)
+      kao(:, 5, 7, 9) = (/ &
+     &8.1680e+01_rb,7.1472e+01_rb,6.1265e+01_rb,5.1057e+01_rb,4.0847e+01_rb,3.0638e+01_rb, &
+     &2.0431e+01_rb,1.0223e+01_rb,4.8718e-02_rb/)
+      kao(:, 1, 8, 9) = (/ &
+     &1.9140e+02_rb,1.6747e+02_rb,1.4355e+02_rb,1.1962e+02_rb,9.5701e+01_rb,7.1775e+01_rb, &
+     &4.7850e+01_rb,2.3927e+01_rb,1.0137e-02_rb/)
+      kao(:, 2, 8, 9) = (/ &
+     &1.9353e+02_rb,1.6934e+02_rb,1.4515e+02_rb,1.2096e+02_rb,9.6769e+01_rb,7.2577e+01_rb, &
+     &4.8385e+01_rb,2.4195e+01_rb,1.4960e-02_rb/)
+      kao(:, 3, 8, 9) = (/ &
+     &1.9528e+02_rb,1.7086e+02_rb,1.4646e+02_rb,1.2205e+02_rb,9.7642e+01_rb,7.3231e+01_rb, &
+     &4.8824e+01_rb,2.4416e+01_rb,2.0883e-02_rb/)
+      kao(:, 4, 8, 9) = (/ &
+     &1.9672e+02_rb,1.7213e+02_rb,1.4754e+02_rb,1.2295e+02_rb,9.8361e+01_rb,7.3773e+01_rb, &
+     &4.9186e+01_rb,2.4598e+01_rb,2.8267e-02_rb/)
+      kao(:, 5, 8, 9) = (/ &
+     &1.9763e+02_rb,1.7293e+02_rb,1.4824e+02_rb,1.2352e+02_rb,9.8820e+01_rb,7.4120e+01_rb, &
+     &4.9417e+01_rb,2.4716e+01_rb,3.7324e-02_rb/)
+      kao(:, 1, 9, 9) = (/ &
+     &8.5696e+02_rb,7.4986e+02_rb,6.4272e+02_rb,5.3561e+02_rb,4.2849e+02_rb,3.2137e+02_rb, &
+     &2.1425e+02_rb,1.0712e+02_rb,4.9710e-03_rb/)
+      kao(:, 2, 9, 9) = (/ &
+     &8.6661e+02_rb,7.5827e+02_rb,6.4996e+02_rb,5.4164e+02_rb,4.3331e+02_rb,3.2498e+02_rb, &
+     &2.1666e+02_rb,1.0833e+02_rb,7.7324e-03_rb/)
+      kao(:, 3, 9, 9) = (/ &
+     &8.7472e+02_rb,7.6537e+02_rb,6.5602e+02_rb,5.4669e+02_rb,4.3735e+02_rb,3.2801e+02_rb, &
+     &2.1868e+02_rb,1.0935e+02_rb,1.2302e-02_rb/)
+      kao(:, 4, 9, 9) = (/ &
+     &8.8128e+02_rb,7.7113e+02_rb,6.6095e+02_rb,5.5081e+02_rb,4.4064e+02_rb,3.3048e+02_rb, &
+     &2.2033e+02_rb,1.1017e+02_rb,1.8205e-02_rb/)
+      kao(:, 5, 9, 9) = (/ &
+     &8.8594e+02_rb,7.7518e+02_rb,6.6448e+02_rb,5.5372e+02_rb,4.4298e+02_rb,3.3223e+02_rb, &
+     &2.2150e+02_rb,1.1076e+02_rb,2.5853e-02_rb/)
+      kao(:, 1,10, 9) = (/ &
+     &4.2110e+03_rb,3.6847e+03_rb,3.1582e+03_rb,2.6319e+03_rb,2.1055e+03_rb,1.5792e+03_rb, &
+     &1.0527e+03_rb,5.2637e+02_rb,5.0235e-03_rb/)
+      kao(:, 2,10, 9) = (/ &
+     &4.2578e+03_rb,3.7256e+03_rb,3.1934e+03_rb,2.6613e+03_rb,2.1289e+03_rb,1.5967e+03_rb, &
+     &1.0645e+03_rb,5.3224e+02_rb,7.3952e-03_rb/)
+      kao(:, 3,10, 9) = (/ &
+     &4.2976e+03_rb,3.7604e+03_rb,3.2232e+03_rb,2.6860e+03_rb,2.1488e+03_rb,1.6116e+03_rb, &
+     &1.0744e+03_rb,5.3720e+02_rb,1.0255e-02_rb/)
+      kao(:, 4,10, 9) = (/ &
+     &4.3279e+03_rb,3.7869e+03_rb,3.2460e+03_rb,2.7049e+03_rb,2.1640e+03_rb,1.6230e+03_rb, &
+     &1.0820e+03_rb,5.4099e+02_rb,1.2154e-02_rb/)
+      kao(:, 5,10, 9) = (/ &
+     &4.3496e+03_rb,3.8060e+03_rb,3.2622e+03_rb,2.7186e+03_rb,2.1748e+03_rb,1.6311e+03_rb, &
+     &1.0874e+03_rb,5.4372e+02_rb,1.4719e-02_rb/)
+      kao(:, 1,11, 9) = (/ &
+     &7.1173e+03_rb,6.2277e+03_rb,5.3380e+03_rb,4.4482e+03_rb,3.5586e+03_rb,2.6690e+03_rb, &
+     &1.7793e+03_rb,8.8967e+02_rb,4.7950e-03_rb/)
+      kao(:, 2,11, 9) = (/ &
+     &7.1866e+03_rb,6.2881e+03_rb,5.3900e+03_rb,4.4917e+03_rb,3.5933e+03_rb,2.6950e+03_rb, &
+     &1.7967e+03_rb,8.9836e+02_rb,1.0381e-02_rb/)
+      kao(:, 3,11, 9) = (/ &
+     &7.2420e+03_rb,6.3363e+03_rb,5.4313e+03_rb,4.5262e+03_rb,3.6209e+03_rb,2.7156e+03_rb, &
+     &1.8104e+03_rb,9.0520e+02_rb,1.1192e-02_rb/)
+      kao(:, 4,11, 9) = (/ &
+     &7.2818e+03_rb,6.3715e+03_rb,5.4613e+03_rb,4.5511e+03_rb,3.6409e+03_rb,2.7307e+03_rb, &
+     &1.8205e+03_rb,9.1025e+02_rb,1.5145e-02_rb/)
+      kao(:, 5,11, 9) = (/ &
+     &7.3078e+03_rb,6.3944e+03_rb,5.4808e+03_rb,4.5675e+03_rb,3.6540e+03_rb,2.7404e+03_rb, &
+     &1.8270e+03_rb,9.1351e+02_rb,1.9391e-02_rb/)
+      kao(:, 1,12, 9) = (/ &
+     &8.7768e+03_rb,7.6797e+03_rb,6.5826e+03_rb,5.4853e+03_rb,4.3884e+03_rb,3.2912e+03_rb, &
+     &2.1942e+03_rb,1.0970e+03_rb,4.5625e-03_rb/)
+      kao(:, 2,12, 9) = (/ &
+     &8.8507e+03_rb,7.7442e+03_rb,6.6378e+03_rb,5.5316e+03_rb,4.4251e+03_rb,3.3189e+03_rb, &
+     &2.2126e+03_rb,1.1063e+03_rb,8.7877e-03_rb/)
+      kao(:, 3,12, 9) = (/ &
+     &8.9020e+03_rb,7.7891e+03_rb,6.6765e+03_rb,5.5638e+03_rb,4.4512e+03_rb,3.3383e+03_rb, &
+     &2.2256e+03_rb,1.1128e+03_rb,1.5209e-02_rb/)
+      kao(:, 4,12, 9) = (/ &
+     &8.9305e+03_rb,7.8144e+03_rb,6.6981e+03_rb,5.5817e+03_rb,4.4653e+03_rb,3.3489e+03_rb, &
+     &2.2326e+03_rb,1.1163e+03_rb,1.7795e-02_rb/)
+      kao(:, 5,12, 9) = (/ &
+     &8.9442e+03_rb,7.8262e+03_rb,6.7079e+03_rb,5.5901e+03_rb,4.4720e+03_rb,3.3539e+03_rb, &
+     &2.2360e+03_rb,1.1180e+03_rb,2.1474e-02_rb/)
+      kao(:, 1,13, 9) = (/ &
+     &8.5284e+03_rb,7.4622e+03_rb,6.3962e+03_rb,5.3302e+03_rb,4.2643e+03_rb,3.1981e+03_rb, &
+     &2.1321e+03_rb,1.0660e+03_rb,6.4304e-03_rb/)
+      kao(:, 2,13, 9) = (/ &
+     &8.5795e+03_rb,7.5072e+03_rb,6.4348e+03_rb,5.3623e+03_rb,4.2900e+03_rb,3.2173e+03_rb, &
+     &2.1449e+03_rb,1.0725e+03_rb,8.8022e-03_rb/)
+      kao(:, 3,13, 9) = (/ &
+     &8.6101e+03_rb,7.5338e+03_rb,6.4575e+03_rb,5.3813e+03_rb,4.3050e+03_rb,3.2288e+03_rb, &
+     &2.1525e+03_rb,1.0763e+03_rb,1.7025e-02_rb/)
+      kao(:, 4,13, 9) = (/ &
+     &8.6267e+03_rb,7.5481e+03_rb,6.4701e+03_rb,5.3916e+03_rb,4.3132e+03_rb,3.2351e+03_rb, &
+     &2.1567e+03_rb,1.0783e+03_rb,2.0223e-02_rb/)
+      kao(:, 5,13, 9) = (/ &
+     &8.6229e+03_rb,7.5451e+03_rb,6.4669e+03_rb,5.3892e+03_rb,4.3114e+03_rb,3.2335e+03_rb, &
+     &2.1558e+03_rb,1.0779e+03_rb,2.3841e-02_rb/)
+      kao(:, 1, 1,10) = (/ &
+     &3.0277e+00_rb,2.6495e+00_rb,2.2716e+00_rb,1.8933e+00_rb,1.5153e+00_rb,1.1372e+00_rb, &
+     &7.5951e-01_rb,4.2431e-01_rb,1.1653e-01_rb/)
+      kao(:, 2, 1,10) = (/ &
+     &3.0877e+00_rb,2.7021e+00_rb,2.3167e+00_rb,1.9311e+00_rb,1.5454e+00_rb,1.1599e+00_rb, &
+     &7.9480e-01_rb,4.6158e-01_rb,1.5133e-01_rb/)
+      kao(:, 3, 1,10) = (/ &
+     &3.1443e+00_rb,2.7514e+00_rb,2.3589e+00_rb,1.9665e+00_rb,1.5738e+00_rb,1.1839e+00_rb, &
+     &8.4936e-01_rb,4.8883e-01_rb,1.8963e-01_rb/)
+      kao(:, 4, 1,10) = (/ &
+     &3.1902e+00_rb,2.7921e+00_rb,2.3935e+00_rb,1.9952e+00_rb,1.5971e+00_rb,1.2268e+00_rb, &
+     &8.9927e-01_rb,5.1426e-01_rb,2.3885e-01_rb/)
+      kao(:, 5, 1,10) = (/ &
+     &3.2311e+00_rb,2.8275e+00_rb,2.4242e+00_rb,2.0206e+00_rb,1.6182e+00_rb,1.2846e+00_rb, &
+     &9.3468e-01_rb,5.5470e-01_rb,2.9337e-01_rb/)
+      kao(:, 1, 2,10) = (/ &
+     &4.5362e+00_rb,3.9696e+00_rb,3.4027e+00_rb,2.8358e+00_rb,2.2692e+00_rb,1.7025e+00_rb, &
+     &1.1358e+00_rb,5.9446e-01_rb,1.1450e-01_rb/)
+      kao(:, 2, 2,10) = (/ &
+     &4.6490e+00_rb,4.0681e+00_rb,3.4874e+00_rb,2.9068e+00_rb,2.3258e+00_rb,1.7450e+00_rb, &
+     &1.1656e+00_rb,6.4847e-01_rb,1.4911e-01_rb/)
+      kao(:, 3, 2,10) = (/ &
+     &4.7559e+00_rb,4.1617e+00_rb,3.5676e+00_rb,2.9735e+00_rb,2.3793e+00_rb,1.7851e+00_rb, &
+     &1.2174e+00_rb,6.9018e-01_rb,1.9066e-01_rb/)
+      kao(:, 4, 2,10) = (/ &
+     &4.8499e+00_rb,4.2438e+00_rb,3.6378e+00_rb,3.0322e+00_rb,2.4263e+00_rb,1.8213e+00_rb, &
+     &1.2864e+00_rb,7.2155e-01_rb,2.3838e-01_rb/)
+      kao(:, 5, 2,10) = (/ &
+     &4.9283e+00_rb,4.3130e+00_rb,3.6972e+00_rb,3.0815e+00_rb,2.4657e+00_rb,1.8737e+00_rb, &
+     &1.3480e+00_rb,7.6180e-01_rb,2.9224e-01_rb/)
+      kao(:, 1, 3,10) = (/ &
+     &9.1512e+00_rb,8.0077e+00_rb,6.8647e+00_rb,5.7202e+00_rb,4.5764e+00_rb,3.4330e+00_rb, &
+     &2.2893e+00_rb,1.1456e+00_rb,1.0238e-01_rb/)
+      kao(:, 2, 3,10) = (/ &
+     &9.4295e+00_rb,8.2512e+00_rb,7.0726e+00_rb,5.8941e+00_rb,4.7160e+00_rb,3.5376e+00_rb, &
+     &2.3591e+00_rb,1.1894e+00_rb,1.3683e-01_rb/)
+      kao(:, 3, 3,10) = (/ &
+     &9.6929e+00_rb,8.4812e+00_rb,7.2704e+00_rb,6.0594e+00_rb,4.8479e+00_rb,3.6364e+00_rb, &
+     &2.4250e+00_rb,1.2581e+00_rb,1.7750e-01_rb/)
+      kao(:, 4, 3,10) = (/ &
+     &9.9289e+00_rb,8.6885e+00_rb,7.4477e+00_rb,6.2066e+00_rb,4.9652e+00_rb,3.7251e+00_rb, &
+     &2.4842e+00_rb,1.3376e+00_rb,2.2412e-01_rb/)
+      kao(:, 5, 3,10) = (/ &
+     &1.0116e+01_rb,8.8511e+00_rb,7.5880e+00_rb,6.3233e+00_rb,5.0592e+00_rb,3.7951e+00_rb, &
+     &2.5511e+00_rb,1.3941e+00_rb,2.7545e-01_rb/)
+      kao(:, 1, 4,10) = (/ &
+     &1.9425e+01_rb,1.6997e+01_rb,1.4568e+01_rb,1.2141e+01_rb,9.7127e+00_rb,7.2856e+00_rb, &
+     &4.8569e+00_rb,2.4292e+00_rb,8.5208e-02_rb/)
+      kao(:, 2, 4,10) = (/ &
+     &1.9954e+01_rb,1.7460e+01_rb,1.4965e+01_rb,1.2471e+01_rb,9.9767e+00_rb,7.4831e+00_rb, &
+     &4.9893e+00_rb,2.4954e+00_rb,1.1708e-01_rb/)
+      kao(:, 3, 4,10) = (/ &
+     &2.0423e+01_rb,1.7870e+01_rb,1.5318e+01_rb,1.2764e+01_rb,1.0212e+01_rb,7.6596e+00_rb, &
+     &5.1068e+00_rb,2.5544e+00_rb,1.5673e-01_rb/)
+      kao(:, 4, 4,10) = (/ &
+     &2.0864e+01_rb,1.8257e+01_rb,1.5649e+01_rb,1.3042e+01_rb,1.0433e+01_rb,7.8250e+00_rb, &
+     &5.2173e+00_rb,2.6098e+00_rb,2.0293e-01_rb/)
+      kao(:, 5, 4,10) = (/ &
+     &2.1248e+01_rb,1.8592e+01_rb,1.5938e+01_rb,1.3281e+01_rb,1.0624e+01_rb,7.9692e+00_rb, &
+     &5.3131e+00_rb,2.6931e+00_rb,2.5421e-01_rb/)
+      kao(:, 1, 5,10) = (/ &
+     &4.0147e+01_rb,3.5130e+01_rb,3.0111e+01_rb,2.5093e+01_rb,2.0073e+01_rb,1.5056e+01_rb, &
+     &1.0038e+01_rb,5.0189e+00_rb,6.8359e-02_rb/)
+      kao(:, 2, 5,10) = (/ &
+     &4.0924e+01_rb,3.5810e+01_rb,3.0692e+01_rb,2.5576e+01_rb,2.0461e+01_rb,1.5346e+01_rb, &
+     &1.0232e+01_rb,5.1160e+00_rb,9.6926e-02_rb/)
+      kao(:, 3, 5,10) = (/ &
+     &4.1536e+01_rb,3.6343e+01_rb,3.1153e+01_rb,2.5962e+01_rb,2.0769e+01_rb,1.5577e+01_rb, &
+     &1.0385e+01_rb,5.1928e+00_rb,1.3304e-01_rb/)
+      kao(:, 4, 5,10) = (/ &
+     &4.2166e+01_rb,3.6896e+01_rb,3.1624e+01_rb,2.6353e+01_rb,2.1083e+01_rb,1.5813e+01_rb, &
+     &1.0542e+01_rb,5.2715e+00_rb,1.7579e-01_rb/)
+      kao(:, 5, 5,10) = (/ &
+     &4.2771e+01_rb,3.7425e+01_rb,3.2079e+01_rb,2.6732e+01_rb,2.1385e+01_rb,1.6040e+01_rb, &
+     &1.0693e+01_rb,5.3473e+00_rb,2.2393e-01_rb/)
+      kao(:, 1, 6,10) = (/ &
+     &8.0027e+01_rb,7.0022e+01_rb,6.0023e+01_rb,5.0019e+01_rb,4.0013e+01_rb,3.0011e+01_rb, &
+     &2.0007e+01_rb,1.0004e+01_rb,5.3924e-02_rb/)
+      kao(:, 2, 6,10) = (/ &
+     &8.1173e+01_rb,7.1024e+01_rb,6.0878e+01_rb,5.0731e+01_rb,4.0584e+01_rb,3.0439e+01_rb, &
+     &2.0293e+01_rb,1.0147e+01_rb,7.8165e-02_rb/)
+      kao(:, 3, 6,10) = (/ &
+     &8.2280e+01_rb,7.1996e+01_rb,6.1710e+01_rb,5.1425e+01_rb,4.1141e+01_rb,3.0855e+01_rb, &
+     &2.0570e+01_rb,1.0285e+01_rb,1.0934e-01_rb/)
+      kao(:, 4, 6,10) = (/ &
+     &8.3115e+01_rb,7.2722e+01_rb,6.2336e+01_rb,5.1947e+01_rb,4.1558e+01_rb,3.1167e+01_rb, &
+     &2.0778e+01_rb,1.0390e+01_rb,1.4595e-01_rb/)
+      kao(:, 5, 6,10) = (/ &
+     &8.3819e+01_rb,7.3349e+01_rb,6.2867e+01_rb,5.2391e+01_rb,4.1913e+01_rb,3.1434e+01_rb, &
+     &2.0957e+01_rb,1.0479e+01_rb,1.8806e-01_rb/)
+      kao(:, 1, 7,10) = (/ &
+     &1.6996e+02_rb,1.4871e+02_rb,1.2747e+02_rb,1.0622e+02_rb,8.4977e+01_rb,6.3734e+01_rb, &
+     &4.2490e+01_rb,2.1246e+01_rb,4.2588e-02_rb/)
+      kao(:, 2, 7,10) = (/ &
+     &1.7243e+02_rb,1.5088e+02_rb,1.2932e+02_rb,1.0776e+02_rb,8.6211e+01_rb,6.4660e+01_rb, &
+     &4.3106e+01_rb,2.1553e+01_rb,6.2851e-02_rb/)
+      kao(:, 3, 7,10) = (/ &
+     &1.7457e+02_rb,1.5274e+02_rb,1.3092e+02_rb,1.0910e+02_rb,8.7283e+01_rb,6.5459e+01_rb, &
+     &4.3641e+01_rb,2.1821e+01_rb,8.8704e-02_rb/)
+      kao(:, 4, 7,10) = (/ &
+     &1.7636e+02_rb,1.5432e+02_rb,1.3227e+02_rb,1.1023e+02_rb,8.8183e+01_rb,6.6138e+01_rb, &
+     &4.4090e+01_rb,2.2046e+01_rb,1.1966e-01_rb/)
+      kao(:, 5, 7,10) = (/ &
+     &1.7764e+02_rb,1.5544e+02_rb,1.3323e+02_rb,1.1102e+02_rb,8.8816e+01_rb,6.6613e+01_rb, &
+     &4.4410e+01_rb,2.2206e+01_rb,1.5600e-01_rb/)
+      kao(:, 1, 8,10) = (/ &
+     &4.3531e+02_rb,3.8090e+02_rb,3.2647e+02_rb,2.7207e+02_rb,2.1766e+02_rb,1.6325e+02_rb, &
+     &1.0883e+02_rb,5.4412e+01_rb,3.2634e-02_rb/)
+      kao(:, 2, 8,10) = (/ &
+     &4.4098e+02_rb,3.8585e+02_rb,3.3074e+02_rb,2.7562e+02_rb,2.2050e+02_rb,1.6536e+02_rb, &
+     &1.1025e+02_rb,5.5123e+01_rb,4.9788e-02_rb/)
+      kao(:, 3, 8,10) = (/ &
+     &4.4650e+02_rb,3.9069e+02_rb,3.3490e+02_rb,2.7906e+02_rb,2.2325e+02_rb,1.6744e+02_rb, &
+     &1.1162e+02_rb,5.5816e+01_rb,7.2094e-02_rb/)
+      kao(:, 4, 8,10) = (/ &
+     &4.5108e+02_rb,3.9470e+02_rb,3.3831e+02_rb,2.8194e+02_rb,2.2555e+02_rb,1.6915e+02_rb, &
+     &1.1277e+02_rb,5.6387e+01_rb,9.8901e-02_rb/)
+      kao(:, 5, 8,10) = (/ &
+     &4.5442e+02_rb,3.9761e+02_rb,3.4081e+02_rb,2.8400e+02_rb,2.2721e+02_rb,1.7040e+02_rb, &
+     &1.1360e+02_rb,5.6798e+01_rb,1.3038e-01_rb/)
+      kao(:, 1, 9,10) = (/ &
+     &2.1147e+03_rb,1.8504e+03_rb,1.5860e+03_rb,1.3217e+03_rb,1.0574e+03_rb,7.9304e+02_rb, &
+     &5.2867e+02_rb,2.6435e+02_rb,1.9424e-02_rb/)
+      kao(:, 2, 9,10) = (/ &
+     &2.1442e+03_rb,1.8762e+03_rb,1.6082e+03_rb,1.3401e+03_rb,1.0721e+03_rb,8.0408e+02_rb, &
+     &5.3608e+02_rb,2.6803e+02_rb,3.6865e-02_rb/)
+      kao(:, 3, 9,10) = (/ &
+     &2.1685e+03_rb,1.8976e+03_rb,1.6264e+03_rb,1.3553e+03_rb,1.0842e+03_rb,8.1317e+02_rb, &
+     &5.4213e+02_rb,2.7107e+02_rb,5.5684e-02_rb/)
+      kao(:, 4, 9,10) = (/ &
+     &2.1886e+03_rb,1.9151e+03_rb,1.6415e+03_rb,1.3680e+03_rb,1.0943e+03_rb,8.2077e+02_rb, &
+     &5.4720e+02_rb,2.7360e+02_rb,7.8135e-02_rb/)
+      kao(:, 5, 9,10) = (/ &
+     &2.2035e+03_rb,1.9281e+03_rb,1.6526e+03_rb,1.3772e+03_rb,1.1018e+03_rb,8.2634e+02_rb, &
+     &5.5093e+02_rb,2.7546e+02_rb,1.0558e-01_rb/)
+      kao(:, 1,10,10) = (/ &
+     &1.1340e+04_rb,9.9225e+03_rb,8.5053e+03_rb,7.0882e+03_rb,5.6700e+03_rb,4.2524e+03_rb, &
+     &2.8350e+03_rb,1.4175e+03_rb,1.1591e-02_rb/)
+      kao(:, 2,10,10) = (/ &
+     &1.1483e+04_rb,1.0048e+04_rb,8.6127e+03_rb,7.1771e+03_rb,5.7419e+03_rb,4.3066e+03_rb, &
+     &2.8709e+03_rb,1.4354e+03_rb,1.2588e-02_rb/)
+      kao(:, 3,10,10) = (/ &
+     &1.1610e+04_rb,1.0159e+04_rb,8.7071e+03_rb,7.2559e+03_rb,5.8048e+03_rb,4.3532e+03_rb, &
+     &2.9023e+03_rb,1.4511e+03_rb,2.5538e-02_rb/)
+      kao(:, 4,10,10) = (/ &
+     &1.1702e+04_rb,1.0239e+04_rb,8.7766e+03_rb,7.3135e+03_rb,5.8511e+03_rb,4.3884e+03_rb, &
+     &2.9255e+03_rb,1.4628e+03_rb,4.5275e-02_rb/)
+      kao(:, 5,10,10) = (/ &
+     &1.1737e+04_rb,1.0270e+04_rb,8.8031e+03_rb,7.3358e+03_rb,5.8688e+03_rb,4.4014e+03_rb, &
+     &2.9344e+03_rb,1.4670e+03_rb,5.8192e-02_rb/)
+      kao(:, 1,11,10) = (/ &
+     &2.0903e+04_rb,1.8291e+04_rb,1.5678e+04_rb,1.3065e+04_rb,1.0451e+04_rb,7.8389e+03_rb, &
+     &5.2261e+03_rb,2.6129e+03_rb,7.1886e-03_rb/)
+      kao(:, 2,11,10) = (/ &
+     &2.1095e+04_rb,1.8459e+04_rb,1.5821e+04_rb,1.3184e+04_rb,1.0548e+04_rb,7.9109e+03_rb, &
+     &5.2736e+03_rb,2.6368e+03_rb,6.0460e-03_rb/)
+      kao(:, 3,11,10) = (/ &
+     &2.1210e+04_rb,1.8559e+04_rb,1.5908e+04_rb,1.3256e+04_rb,1.0605e+04_rb,7.9536e+03_rb, &
+     &5.3027e+03_rb,2.6511e+03_rb,2.6262e-02_rb/)
+      kao(:, 4,11,10) = (/ &
+     &2.1260e+04_rb,1.8603e+04_rb,1.5945e+04_rb,1.3287e+04_rb,1.0630e+04_rb,7.9726e+03_rb, &
+     &5.3149e+03_rb,2.6575e+03_rb,3.1824e-02_rb/)
+      kao(:, 5,11,10) = (/ &
+     &2.1221e+04_rb,1.8569e+04_rb,1.5915e+04_rb,1.3263e+04_rb,1.0611e+04_rb,7.9580e+03_rb, &
+     &5.3053e+03_rb,2.6525e+03_rb,4.2831e-02_rb/)
+      kao(:, 1,12,10) = (/ &
+     &2.8005e+04_rb,2.4506e+04_rb,2.1003e+04_rb,1.7504e+04_rb,1.4003e+04_rb,1.0502e+04_rb, &
+     &7.0018e+03_rb,3.5007e+03_rb,1.9282e-02_rb/)
+      kao(:, 2,12,10) = (/ &
+     &2.8178e+04_rb,2.4656e+04_rb,2.1135e+04_rb,1.7611e+04_rb,1.4090e+04_rb,1.0567e+04_rb, &
+     &7.0445e+03_rb,3.5221e+03_rb,8.6382e-03_rb/)
+      kao(:, 3,12,10) = (/ &
+     &2.8205e+04_rb,2.4680e+04_rb,2.1153e+04_rb,1.7628e+04_rb,1.4103e+04_rb,1.0577e+04_rb, &
+     &7.0512e+03_rb,3.5256e+03_rb,2.9773e-02_rb/)
+      kao(:, 4,12,10) = (/ &
+     &2.8170e+04_rb,2.4648e+04_rb,2.1126e+04_rb,1.7606e+04_rb,1.4084e+04_rb,1.0563e+04_rb, &
+     &7.0421e+03_rb,3.5211e+03_rb,3.9720e-02_rb/)
+      kao(:, 5,12,10) = (/ &
+     &2.8047e+04_rb,2.4540e+04_rb,2.1034e+04_rb,1.7529e+04_rb,1.4023e+04_rb,1.0517e+04_rb, &
+     &7.0115e+03_rb,3.5058e+03_rb,4.1794e-02_rb/)
+      kao(:, 1,13,10) = (/ &
+     &2.9533e+04_rb,2.5841e+04_rb,2.2150e+04_rb,1.8457e+04_rb,1.4766e+04_rb,1.1075e+04_rb, &
+     &7.3833e+03_rb,3.6917e+03_rb,1.5098e-03_rb/)
+      kao(:, 2,13,10) = (/ &
+     &2.9558e+04_rb,2.5865e+04_rb,2.2169e+04_rb,1.8475e+04_rb,1.4779e+04_rb,1.1085e+04_rb, &
+     &7.3900e+03_rb,3.6949e+03_rb,1.2533e-02_rb/)
+      kao(:, 3,13,10) = (/ &
+     &2.9540e+04_rb,2.5844e+04_rb,2.2155e+04_rb,1.8463e+04_rb,1.4769e+04_rb,1.1077e+04_rb, &
+     &7.3851e+03_rb,3.6924e+03_rb,1.7410e-02_rb/)
+      kao(:, 4,13,10) = (/ &
+     &2.9338e+04_rb,2.5670e+04_rb,2.2004e+04_rb,1.8336e+04_rb,1.4669e+04_rb,1.1002e+04_rb, &
+     &7.3346e+03_rb,3.6671e+03_rb,4.5009e-02_rb/)
+      kao(:, 5,13,10) = (/ &
+     &2.9073e+04_rb,2.5440e+04_rb,2.1806e+04_rb,1.8171e+04_rb,1.4537e+04_rb,1.0903e+04_rb, &
+     &7.2684e+03_rb,3.6344e+03_rb,5.0725e-02_rb/)
+      kao(:, 1, 1,11) = (/ &
+     &5.0284e+00_rb,4.3997e+00_rb,3.7713e+00_rb,3.1433e+00_rb,2.5148e+00_rb,1.8867e+00_rb, &
+     &1.2585e+00_rb,6.3034e-01_rb,1.3324e-01_rb/)
+      kao(:, 2, 1,11) = (/ &
+     &5.0428e+00_rb,4.4122e+00_rb,3.7822e+00_rb,3.1521e+00_rb,2.5223e+00_rb,1.8921e+00_rb, &
+     &1.2620e+00_rb,6.6040e-01_rb,1.7160e-01_rb/)
+      kao(:, 3, 1,11) = (/ &
+     &5.0450e+00_rb,4.4148e+00_rb,3.7841e+00_rb,3.1540e+00_rb,2.5234e+00_rb,1.8930e+00_rb, &
+     &1.2629e+00_rb,7.0553e-01_rb,2.2033e-01_rb/)
+      kao(:, 4, 1,11) = (/ &
+     &5.0314e+00_rb,4.4027e+00_rb,3.7741e+00_rb,3.1454e+00_rb,2.5166e+00_rb,1.8879e+00_rb, &
+     &1.2828e+00_rb,7.2981e-01_rb,2.7819e-01_rb/)
+      kao(:, 5, 1,11) = (/ &
+     &5.0061e+00_rb,4.3808e+00_rb,3.7550e+00_rb,3.1298e+00_rb,2.5041e+00_rb,1.8785e+00_rb, &
+     &1.3311e+00_rb,7.4514e-01_rb,3.4945e-01_rb/)
+      kao(:, 1, 2,11) = (/ &
+     &7.7109e+00_rb,6.7474e+00_rb,5.7839e+00_rb,4.8201e+00_rb,3.8564e+00_rb,2.8926e+00_rb, &
+     &1.9289e+00_rb,9.6516e-01_rb,1.3538e-01_rb/)
+      kao(:, 2, 2,11) = (/ &
+     &7.7553e+00_rb,6.7857e+00_rb,5.8167e+00_rb,4.8473e+00_rb,3.8784e+00_rb,2.9091e+00_rb, &
+     &1.9400e+00_rb,9.7434e-01_rb,1.7899e-01_rb/)
+      kao(:, 3, 2,11) = (/ &
+     &7.7777e+00_rb,6.8060e+00_rb,5.8332e+00_rb,4.8617e+00_rb,3.8897e+00_rb,2.9178e+00_rb, &
+     &1.9457e+00_rb,1.0175e+00_rb,2.2662e-01_rb/)
+      kao(:, 4, 2,11) = (/ &
+     &7.7756e+00_rb,6.8039e+00_rb,5.8323e+00_rb,4.8602e+00_rb,3.8885e+00_rb,2.9169e+00_rb, &
+     &1.9452e+00_rb,1.0634e+00_rb,2.8531e-01_rb/)
+      kao(:, 5, 2,11) = (/ &
+     &7.7495e+00_rb,6.7817e+00_rb,5.8131e+00_rb,4.8446e+00_rb,3.8758e+00_rb,2.9075e+00_rb, &
+     &1.9643e+00_rb,1.0863e+00_rb,3.5634e-01_rb/)
+      kao(:, 1, 3,11) = (/ &
+     &1.5932e+01_rb,1.3941e+01_rb,1.1949e+01_rb,9.9578e+00_rb,7.9671e+00_rb,5.9754e+00_rb, &
+     &3.9840e+00_rb,1.9926e+00_rb,1.2714e-01_rb/)
+      kao(:, 2, 3,11) = (/ &
+     &1.6076e+01_rb,1.4067e+01_rb,1.2058e+01_rb,1.0048e+01_rb,8.0387e+00_rb,6.0296e+00_rb, &
+     &4.0199e+00_rb,2.0105e+00_rb,1.7056e-01_rb/)
+      kao(:, 3, 3,11) = (/ &
+     &1.6164e+01_rb,1.4145e+01_rb,1.2124e+01_rb,1.0103e+01_rb,8.0829e+00_rb,6.0627e+00_rb, &
+     &4.0424e+00_rb,2.0217e+00_rb,2.2135e-01_rb/)
+      kao(:, 4, 3,11) = (/ &
+     &1.6211e+01_rb,1.4185e+01_rb,1.2159e+01_rb,1.0132e+01_rb,8.1062e+00_rb,6.0800e+00_rb, &
+     &4.0538e+00_rb,2.0361e+00_rb,2.7967e-01_rb/)
+      kao(:, 5, 3,11) = (/ &
+     &1.6213e+01_rb,1.4187e+01_rb,1.2160e+01_rb,1.0134e+01_rb,8.1068e+00_rb,6.0810e+00_rb, &
+     &4.0544e+00_rb,2.0887e+00_rb,3.5085e-01_rb/)
+      kao(:, 1, 4,11) = (/ &
+     &3.3505e+01_rb,2.9316e+01_rb,2.5128e+01_rb,2.0940e+01_rb,1.6753e+01_rb,1.2564e+01_rb, &
+     &8.3770e+00_rb,4.1888e+00_rb,1.1343e-01_rb/)
+      kao(:, 2, 4,11) = (/ &
+     &3.3957e+01_rb,2.9712e+01_rb,2.5469e+01_rb,2.1224e+01_rb,1.6979e+01_rb,1.2735e+01_rb, &
+     &8.4899e+00_rb,4.2456e+00_rb,1.5601e-01_rb/)
+      kao(:, 3, 4,11) = (/ &
+     &3.4273e+01_rb,2.9992e+01_rb,2.5707e+01_rb,2.1421e+01_rb,1.7138e+01_rb,1.2854e+01_rb, &
+     &8.5693e+00_rb,4.2852e+00_rb,2.0536e-01_rb/)
+      kao(:, 4, 4,11) = (/ &
+     &3.4537e+01_rb,3.0216e+01_rb,2.5901e+01_rb,2.1585e+01_rb,1.7269e+01_rb,1.2951e+01_rb, &
+     &8.6346e+00_rb,4.3178e+00_rb,2.6462e-01_rb/)
+      kao(:, 5, 4,11) = (/ &
+     &3.4713e+01_rb,3.0370e+01_rb,2.6032e+01_rb,2.1696e+01_rb,1.7356e+01_rb,1.3018e+01_rb, &
+     &8.6791e+00_rb,4.3400e+00_rb,3.3230e-01_rb/)
+      kao(:, 1, 5,11) = (/ &
+     &6.4813e+01_rb,5.6712e+01_rb,4.8608e+01_rb,4.0507e+01_rb,3.2408e+01_rb,2.4306e+01_rb, &
+     &1.6204e+01_rb,8.1017e+00_rb,9.6356e-02_rb/)
+      kao(:, 2, 5,11) = (/ &
+     &6.6164e+01_rb,5.7895e+01_rb,4.9623e+01_rb,4.1352e+01_rb,3.3084e+01_rb,2.4813e+01_rb, &
+     &1.6542e+01_rb,8.2707e+00_rb,1.3652e-01_rb/)
+      kao(:, 3, 5,11) = (/ &
+     &6.7228e+01_rb,5.8826e+01_rb,5.0425e+01_rb,4.2018e+01_rb,3.3613e+01_rb,2.5211e+01_rb, &
+     &1.6808e+01_rb,8.4044e+00_rb,1.8472e-01_rb/)
+      kao(:, 4, 5,11) = (/ &
+     &6.8035e+01_rb,5.9536e+01_rb,5.1024e+01_rb,4.2523e+01_rb,3.4019e+01_rb,2.5513e+01_rb, &
+     &1.7010e+01_rb,8.5064e+00_rb,2.4242e-01_rb/)
+      kao(:, 5, 5,11) = (/ &
+     &6.8554e+01_rb,5.9987e+01_rb,5.1420e+01_rb,4.2849e+01_rb,3.4277e+01_rb,2.5710e+01_rb, &
+     &1.7140e+01_rb,8.5702e+00_rb,3.0919e-01_rb/)
+      kao(:, 1, 6,11) = (/ &
+     &1.1801e+02_rb,1.0326e+02_rb,8.8506e+01_rb,7.3757e+01_rb,5.9002e+01_rb,4.4254e+01_rb, &
+     &2.9503e+01_rb,1.4751e+01_rb,7.7344e-02_rb/)
+      kao(:, 2, 6,11) = (/ &
+     &1.2108e+02_rb,1.0594e+02_rb,9.0808e+01_rb,7.5672e+01_rb,6.0541e+01_rb,4.5406e+01_rb, &
+     &3.0271e+01_rb,1.5134e+01_rb,1.1263e-01_rb/)
+      kao(:, 3, 6,11) = (/ &
+     &1.2354e+02_rb,1.0810e+02_rb,9.2652e+01_rb,7.7213e+01_rb,6.1769e+01_rb,4.6330e+01_rb, &
+     &3.0886e+01_rb,1.5443e+01_rb,1.5682e-01_rb/)
+      kao(:, 4, 6,11) = (/ &
+     &1.2526e+02_rb,1.0960e+02_rb,9.3943e+01_rb,7.8284e+01_rb,6.2629e+01_rb,4.6975e+01_rb, &
+     &3.1316e+01_rb,1.5657e+01_rb,2.1207e-01_rb/)
+      kao(:, 5, 6,11) = (/ &
+     &1.2664e+02_rb,1.1081e+02_rb,9.4976e+01_rb,7.9149e+01_rb,6.3321e+01_rb,4.7490e+01_rb, &
+     &3.1658e+01_rb,1.5831e+01_rb,2.7724e-01_rb/)
+      kao(:, 1, 7,11) = (/ &
+     &2.3249e+02_rb,2.0341e+02_rb,1.7435e+02_rb,1.4529e+02_rb,1.1624e+02_rb,8.7178e+01_rb, &
+     &5.8117e+01_rb,2.9059e+01_rb,6.0308e-02_rb/)
+      kao(:, 2, 7,11) = (/ &
+     &2.3796e+02_rb,2.0820e+02_rb,1.7846e+02_rb,1.4871e+02_rb,1.1897e+02_rb,8.9231e+01_rb, &
+     &5.9488e+01_rb,2.9745e+01_rb,9.0208e-02_rb/)
+      kao(:, 3, 7,11) = (/ &
+     &2.4226e+02_rb,2.1197e+02_rb,1.8170e+02_rb,1.5141e+02_rb,1.2113e+02_rb,9.0843e+01_rb, &
+     &6.0568e+01_rb,3.0281e+01_rb,1.2927e-01_rb/)
+      kao(:, 4, 7,11) = (/ &
+     &2.4544e+02_rb,2.1477e+02_rb,1.8409e+02_rb,1.5341e+02_rb,1.2272e+02_rb,9.2044e+01_rb, &
+     &6.1361e+01_rb,3.0682e+01_rb,1.7878e-01_rb/)
+      kao(:, 5, 7,11) = (/ &
+     &2.4764e+02_rb,2.1668e+02_rb,1.8573e+02_rb,1.5477e+02_rb,1.2381e+02_rb,9.2866e+01_rb, &
+     &6.1907e+01_rb,3.0956e+01_rb,2.3824e-01_rb/)
+      kao(:, 1, 8,11) = (/ &
+     &5.7428e+02_rb,5.0249e+02_rb,4.3070e+02_rb,3.5893e+02_rb,2.8714e+02_rb,2.1536e+02_rb, &
+     &1.4357e+02_rb,7.1786e+01_rb,4.7227e-02_rb/)
+      kao(:, 2, 8,11) = (/ &
+     &5.8499e+02_rb,5.1190e+02_rb,4.3878e+02_rb,3.6564e+02_rb,2.9252e+02_rb,2.1939e+02_rb, &
+     &1.4626e+02_rb,7.3130e+01_rb,7.2171e-02_rb/)
+      kao(:, 3, 8,11) = (/ &
+     &5.9291e+02_rb,5.1879e+02_rb,4.4470e+02_rb,3.7058e+02_rb,2.9645e+02_rb,2.2235e+02_rb, &
+     &1.4822e+02_rb,7.4114e+01_rb,1.0536e-01_rb/)
+      kao(:, 4, 8,11) = (/ &
+     &5.9816e+02_rb,5.2341e+02_rb,4.4862e+02_rb,3.7386e+02_rb,2.9908e+02_rb,2.2431e+02_rb, &
+     &1.4954e+02_rb,7.4773e+01_rb,1.4833e-01_rb/)
+      kao(:, 5, 8,11) = (/ &
+     &6.0144e+02_rb,5.2627e+02_rb,4.5109e+02_rb,3.7590e+02_rb,3.0070e+02_rb,2.2554e+02_rb, &
+     &1.5036e+02_rb,7.5181e+01_rb,1.9981e-01_rb/)
+      kao(:, 1, 9,11) = (/ &
+     &2.7514e+03_rb,2.4073e+03_rb,2.0635e+03_rb,1.7196e+03_rb,1.3757e+03_rb,1.0318e+03_rb, &
+     &6.8788e+02_rb,3.4393e+02_rb,3.3107e-02_rb/)
+      kao(:, 2, 9,11) = (/ &
+     &2.7973e+03_rb,2.4476e+03_rb,2.0979e+03_rb,1.7482e+03_rb,1.3986e+03_rb,1.0490e+03_rb, &
+     &6.9932e+02_rb,3.4966e+02_rb,5.6998e-02_rb/)
+      kao(:, 3, 9,11) = (/ &
+     &2.8265e+03_rb,2.4731e+03_rb,2.1197e+03_rb,1.7664e+03_rb,1.4131e+03_rb,1.0599e+03_rb, &
+     &7.0662e+02_rb,3.5330e+02_rb,8.5901e-02_rb/)
+      kao(:, 4, 9,11) = (/ &
+     &2.8388e+03_rb,2.4841e+03_rb,2.1291e+03_rb,1.7743e+03_rb,1.4194e+03_rb,1.0646e+03_rb, &
+     &7.0974e+02_rb,3.5484e+02_rb,1.2233e-01_rb/)
+      kao(:, 5, 9,11) = (/ &
+     &2.8373e+03_rb,2.4828e+03_rb,2.1280e+03_rb,1.7734e+03_rb,1.4187e+03_rb,1.0640e+03_rb, &
+     &7.0933e+02_rb,3.5467e+02_rb,1.6642e-01_rb/)
+      kao(:, 1,10,11) = (/ &
+     &1.4796e+04_rb,1.2947e+04_rb,1.1097e+04_rb,9.2476e+03_rb,7.3982e+03_rb,5.5489e+03_rb, &
+     &3.6992e+03_rb,1.8496e+03_rb,1.7335e-02_rb/)
+      kao(:, 2,10,11) = (/ &
+     &1.4975e+04_rb,1.3103e+04_rb,1.1231e+04_rb,9.3585e+03_rb,7.4871e+03_rb,5.6155e+03_rb, &
+     &3.7435e+03_rb,1.8717e+03_rb,3.1226e-02_rb/)
+      kao(:, 3,10,11) = (/ &
+     &1.5074e+04_rb,1.3189e+04_rb,1.1305e+04_rb,9.4210e+03_rb,7.5370e+03_rb,5.6528e+03_rb, &
+     &3.7685e+03_rb,1.8842e+03_rb,4.3228e-02_rb/)
+      kao(:, 4,10,11) = (/ &
+     &1.5109e+04_rb,1.3220e+04_rb,1.1331e+04_rb,9.4424e+03_rb,7.5542e+03_rb,5.6659e+03_rb, &
+     &3.7773e+03_rb,1.8886e+03_rb,5.6685e-02_rb/)
+      kao(:, 5,10,11) = (/ &
+     &1.5082e+04_rb,1.3196e+04_rb,1.1311e+04_rb,9.4257e+03_rb,7.5405e+03_rb,5.6555e+03_rb, &
+     &3.7704e+03_rb,1.8852e+03_rb,8.6311e-02_rb/)
+      kao(:, 1,11,11) = (/ &
+     &2.7889e+04_rb,2.4402e+04_rb,2.0916e+04_rb,1.7430e+04_rb,1.3944e+04_rb,1.0458e+04_rb, &
+     &6.9720e+03_rb,3.4860e+03_rb,1.1432e-02_rb/)
+      kao(:, 2,11,11) = (/ &
+     &2.8116e+04_rb,2.4602e+04_rb,2.1087e+04_rb,1.7573e+04_rb,1.4058e+04_rb,1.0543e+04_rb, &
+     &7.0292e+03_rb,3.5144e+03_rb,1.1075e-02_rb/)
+      kao(:, 3,11,11) = (/ &
+     &2.8224e+04_rb,2.4695e+04_rb,2.1166e+04_rb,1.7640e+04_rb,1.4112e+04_rb,1.0583e+04_rb, &
+     &7.0560e+03_rb,3.5276e+03_rb,4.6547e-02_rb/)
+      kao(:, 4,11,11) = (/ &
+     &2.8217e+04_rb,2.4690e+04_rb,2.1162e+04_rb,1.7636e+04_rb,1.4108e+04_rb,1.0581e+04_rb, &
+     &7.0540e+03_rb,3.5272e+03_rb,6.2488e-02_rb/)
+      kao(:, 5,11,11) = (/ &
+     &2.8126e+04_rb,2.4609e+04_rb,2.1093e+04_rb,1.7578e+04_rb,1.4063e+04_rb,1.0547e+04_rb, &
+     &7.0311e+03_rb,3.5155e+03_rb,7.5051e-02_rb/)
+      kao(:, 1,12,11) = (/ &
+     &3.8808e+04_rb,3.3958e+04_rb,2.9106e+04_rb,2.4255e+04_rb,1.9403e+04_rb,1.4552e+04_rb, &
+     &9.7020e+03_rb,4.8510e+03_rb,3.0879e-04_rb/)
+      kao(:, 2,12,11) = (/ &
+     &3.8964e+04_rb,3.4093e+04_rb,2.9222e+04_rb,2.4351e+04_rb,1.9482e+04_rb,1.4612e+04_rb, &
+     &9.7411e+03_rb,4.8703e+03_rb,1.3840e-02_rb/)
+      kao(:, 3,12,11) = (/ &
+     &3.8935e+04_rb,3.4067e+04_rb,2.9198e+04_rb,2.4333e+04_rb,1.9466e+04_rb,1.4600e+04_rb, &
+     &9.7333e+03_rb,4.8667e+03_rb,2.1306e-02_rb/)
+      kao(:, 4,12,11) = (/ &
+     &3.8831e+04_rb,3.3979e+04_rb,2.9123e+04_rb,2.4270e+04_rb,1.9417e+04_rb,1.4562e+04_rb, &
+     &9.7077e+03_rb,4.8538e+03_rb,6.5973e-02_rb/)
+      kao(:, 5,12,11) = (/ &
+     &3.8549e+04_rb,3.3728e+04_rb,2.8909e+04_rb,2.4091e+04_rb,1.9273e+04_rb,1.4455e+04_rb, &
+     &9.6358e+03_rb,4.8182e+03_rb,7.9959e-02_rb/)
+      kao(:, 1,13,11) = (/ &
+     &4.2486e+04_rb,3.7175e+04_rb,3.1864e+04_rb,2.6552e+04_rb,2.1242e+04_rb,1.5932e+04_rb, &
+     &1.0621e+04_rb,5.3106e+03_rb,2.4053e-04_rb/)
+      kao(:, 2,13,11) = (/ &
+     &4.2536e+04_rb,3.7221e+04_rb,3.1903e+04_rb,2.6585e+04_rb,2.1268e+04_rb,1.5951e+04_rb, &
+     &1.0634e+04_rb,5.3169e+03_rb,2.3604e-02_rb/)
+      kao(:, 3,13,11) = (/ &
+     &4.2342e+04_rb,3.7047e+04_rb,3.1757e+04_rb,2.6467e+04_rb,2.1172e+04_rb,1.5879e+04_rb, &
+     &1.0585e+04_rb,5.2925e+03_rb,1.5018e-02_rb/)
+      kao(:, 4,13,11) = (/ &
+     &4.2048e+04_rb,3.6792e+04_rb,3.1537e+04_rb,2.6281e+04_rb,2.1024e+04_rb,1.5767e+04_rb, &
+     &1.0512e+04_rb,5.2560e+03_rb,5.3807e-02_rb/)
+      kao(:, 5,13,11) = (/ &
+     &4.1662e+04_rb,3.6457e+04_rb,3.1248e+04_rb,2.6040e+04_rb,2.0833e+04_rb,1.5623e+04_rb, &
+     &1.0416e+04_rb,5.2082e+03_rb,6.8318e-02_rb/)
+      kao(:, 1, 1,12) = (/ &
+     &7.2849e+00_rb,6.3745e+00_rb,5.4643e+00_rb,4.5537e+00_rb,3.6431e+00_rb,2.7326e+00_rb, &
+     &1.8223e+00_rb,9.1190e-01_rb,1.6091e-01_rb/)
+      kao(:, 2, 1,12) = (/ &
+     &7.1530e+00_rb,6.2588e+00_rb,5.3648e+00_rb,4.4709e+00_rb,3.5770e+00_rb,2.6830e+00_rb, &
+     &1.7891e+00_rb,8.9548e-01_rb,2.2421e-01_rb/)
+      kao(:, 3, 1,12) = (/ &
+     &7.0158e+00_rb,6.1389e+00_rb,5.2624e+00_rb,4.3853e+00_rb,3.5089e+00_rb,2.6317e+00_rb, &
+     &1.7551e+00_rb,9.0204e-01_rb,3.0513e-01_rb/)
+      kao(:, 4, 1,12) = (/ &
+     &6.8752e+00_rb,6.0158e+00_rb,5.1568e+00_rb,4.2975e+00_rb,3.4386e+00_rb,2.5792e+00_rb, &
+     &1.7200e+00_rb,9.2056e-01_rb,4.0130e-01_rb/)
+      kao(:, 5, 1,12) = (/ &
+     &6.7312e+00_rb,5.8897e+00_rb,5.0486e+00_rb,4.2075e+00_rb,3.3663e+00_rb,2.5251e+00_rb, &
+     &1.6886e+00_rb,9.1312e-01_rb,5.1163e-01_rb/)
+      kao(:, 1, 2,12) = (/ &
+     &1.1380e+01_rb,9.9571e+00_rb,8.5349e+00_rb,7.1126e+00_rb,5.6896e+00_rb,4.2680e+00_rb, &
+     &2.8456e+00_rb,1.4234e+00_rb,1.6023e-01_rb/)
+      kao(:, 2, 2,12) = (/ &
+     &1.1190e+01_rb,9.7913e+00_rb,8.3926e+00_rb,6.9944e+00_rb,5.5956e+00_rb,4.1971e+00_rb, &
+     &2.7983e+00_rb,1.3998e+00_rb,2.1092e-01_rb/)
+      kao(:, 3, 2,12) = (/ &
+     &1.0994e+01_rb,9.6196e+00_rb,8.2451e+00_rb,6.8714e+00_rb,5.4970e+00_rb,4.1233e+00_rb, &
+     &2.7491e+00_rb,1.3753e+00_rb,2.8249e-01_rb/)
+      kao(:, 4, 2,12) = (/ &
+     &1.0789e+01_rb,9.4404e+00_rb,8.0917e+00_rb,6.7431e+00_rb,5.3950e+00_rb,4.0464e+00_rb, &
+     &2.6980e+00_rb,1.3854e+00_rb,3.7167e-01_rb/)
+      kao(:, 5, 2,12) = (/ &
+     &1.0574e+01_rb,9.2528e+00_rb,7.9306e+00_rb,6.6095e+00_rb,5.2877e+00_rb,3.9662e+00_rb, &
+     &2.6446e+00_rb,1.3862e+00_rb,4.7628e-01_rb/)
+      kao(:, 1, 3,12) = (/ &
+     &2.4019e+01_rb,2.1015e+01_rb,1.8012e+01_rb,1.5011e+01_rb,1.2010e+01_rb,9.0070e+00_rb, &
+     &6.0051e+00_rb,3.0029e+00_rb,1.5458e-01_rb/)
+      kao(:, 2, 3,12) = (/ &
+     &2.3668e+01_rb,2.0712e+01_rb,1.7752e+01_rb,1.4794e+01_rb,1.1835e+01_rb,8.8764e+00_rb, &
+     &5.9181e+00_rb,2.9594e+00_rb,2.0548e-01_rb/)
+      kao(:, 3, 3,12) = (/ &
+     &2.3299e+01_rb,2.0389e+01_rb,1.7475e+01_rb,1.4563e+01_rb,1.1650e+01_rb,8.7378e+00_rb, &
+     &5.8256e+00_rb,2.9134e+00_rb,2.6510e-01_rb/)
+      kao(:, 4, 3,12) = (/ &
+     &2.2895e+01_rb,2.0033e+01_rb,1.7172e+01_rb,1.4310e+01_rb,1.1449e+01_rb,8.5868e+00_rb, &
+     &5.7250e+00_rb,2.8629e+00_rb,3.4340e-01_rb/)
+      kao(:, 5, 3,12) = (/ &
+     &2.2457e+01_rb,1.9650e+01_rb,1.6845e+01_rb,1.4036e+01_rb,1.1229e+01_rb,8.4225e+00_rb, &
+     &5.6152e+00_rb,2.8081e+00_rb,4.3834e-01_rb/)
+      kao(:, 1, 4,12) = (/ &
+     &5.1943e+01_rb,4.5448e+01_rb,3.8958e+01_rb,3.2464e+01_rb,2.5972e+01_rb,1.9479e+01_rb, &
+     &1.2986e+01_rb,6.4930e+00_rb,1.4248e-01_rb/)
+      kao(:, 2, 4,12) = (/ &
+     &5.1352e+01_rb,4.4935e+01_rb,3.8514e+01_rb,3.2094e+01_rb,2.5675e+01_rb,1.9257e+01_rb, &
+     &1.2838e+01_rb,6.4195e+00_rb,1.9502e-01_rb/)
+      kao(:, 3, 4,12) = (/ &
+     &5.0623e+01_rb,4.4294e+01_rb,3.7964e+01_rb,3.1639e+01_rb,2.5309e+01_rb,1.8983e+01_rb, &
+     &1.2655e+01_rb,6.3280e+00_rb,2.5898e-01_rb/)
+      kao(:, 4, 4,12) = (/ &
+     &4.9799e+01_rb,4.3576e+01_rb,3.7352e+01_rb,3.1124e+01_rb,2.4901e+01_rb,1.8676e+01_rb, &
+     &1.2451e+01_rb,6.2257e+00_rb,3.3035e-01_rb/)
+      kao(:, 5, 4,12) = (/ &
+     &4.8898e+01_rb,4.2791e+01_rb,3.6677e+01_rb,3.0566e+01_rb,2.4452e+01_rb,1.8340e+01_rb, &
+     &1.2226e+01_rb,6.1134e+00_rb,4.1835e-01_rb/)
+      kao(:, 1, 5,12) = (/ &
+     &1.0373e+02_rb,9.0759e+01_rb,7.7796e+01_rb,6.4826e+01_rb,5.1857e+01_rb,3.8894e+01_rb, &
+     &2.5931e+01_rb,1.2966e+01_rb,1.2887e-01_rb/)
+      kao(:, 2, 5,12) = (/ &
+     &1.0276e+02_rb,8.9908e+01_rb,7.7065e+01_rb,6.4222e+01_rb,5.1382e+01_rb,3.8535e+01_rb, &
+     &2.5690e+01_rb,1.2845e+01_rb,1.8027e-01_rb/)
+      kao(:, 3, 5,12) = (/ &
+     &1.0148e+02_rb,8.8794e+01_rb,7.6113e+01_rb,6.3420e+01_rb,5.0736e+01_rb,3.8055e+01_rb, &
+     &2.5371e+01_rb,1.2686e+01_rb,2.4350e-01_rb/)
+      kao(:, 4, 5,12) = (/ &
+     &9.9981e+01_rb,8.7486e+01_rb,7.4989e+01_rb,6.2492e+01_rb,4.9992e+01_rb,3.7496e+01_rb, &
+     &2.4996e+01_rb,1.2498e+01_rb,3.1895e-01_rb/)
+      kao(:, 5, 5,12) = (/ &
+     &9.8403e+01_rb,8.6098e+01_rb,7.3801e+01_rb,6.1498e+01_rb,4.9199e+01_rb,3.6902e+01_rb, &
+     &2.4598e+01_rb,1.2301e+01_rb,4.0491e-01_rb/)
+      kao(:, 1, 6,12) = (/ &
+     &1.9449e+02_rb,1.7021e+02_rb,1.4589e+02_rb,1.2157e+02_rb,9.7258e+01_rb,7.2943e+01_rb, &
+     &4.8628e+01_rb,2.4314e+01_rb,1.1014e-01_rb/)
+      kao(:, 2, 6,12) = (/ &
+     &1.9309e+02_rb,1.6897e+02_rb,1.4483e+02_rb,1.2070e+02_rb,9.6559e+01_rb,7.2419e+01_rb, &
+     &4.8279e+01_rb,2.4139e+01_rb,1.6004e-01_rb/)
+      kao(:, 3, 6,12) = (/ &
+     &1.9140e+02_rb,1.6747e+02_rb,1.4356e+02_rb,1.1963e+02_rb,9.5709e+01_rb,7.1777e+01_rb, &
+     &4.7853e+01_rb,2.3926e+01_rb,2.2190e-01_rb/)
+      kao(:, 4, 6,12) = (/ &
+     &1.8899e+02_rb,1.6537e+02_rb,1.4174e+02_rb,1.1810e+02_rb,9.4493e+01_rb,7.0867e+01_rb, &
+     &4.7246e+01_rb,2.3622e+01_rb,2.9571e-01_rb/)
+      kao(:, 5, 6,12) = (/ &
+     &1.8566e+02_rb,1.6245e+02_rb,1.3925e+02_rb,1.1603e+02_rb,9.2834e+01_rb,6.9623e+01_rb, &
+     &4.6415e+01_rb,2.3209e+01_rb,3.8274e-01_rb/)
+      kao(:, 1, 7,12) = (/ &
+     &3.8417e+02_rb,3.3613e+02_rb,2.8811e+02_rb,2.4009e+02_rb,1.9205e+02_rb,1.4405e+02_rb, &
+     &9.6037e+01_rb,4.8023e+01_rb,9.0335e-02_rb/)
+      kao(:, 2, 7,12) = (/ &
+     &3.8253e+02_rb,3.3473e+02_rb,2.8690e+02_rb,2.3908e+02_rb,1.9128e+02_rb,1.4345e+02_rb, &
+     &9.5632e+01_rb,4.7816e+01_rb,1.3557e-01_rb/)
+      kao(:, 3, 7,12) = (/ &
+     &3.7949e+02_rb,3.3204e+02_rb,2.8460e+02_rb,2.3719e+02_rb,1.8975e+02_rb,1.4230e+02_rb, &
+     &9.4872e+01_rb,4.7438e+01_rb,1.9476e-01_rb/)
+      kao(:, 4, 7,12) = (/ &
+     &3.7465e+02_rb,3.2783e+02_rb,2.8099e+02_rb,2.3416e+02_rb,1.8732e+02_rb,1.4050e+02_rb, &
+     &9.3670e+01_rb,4.6831e+01_rb,2.6694e-01_rb/)
+      kao(:, 5, 7,12) = (/ &
+     &3.6931e+02_rb,3.2313e+02_rb,2.7696e+02_rb,2.3080e+02_rb,1.8464e+02_rb,1.3849e+02_rb, &
+     &9.2317e+01_rb,4.6160e+01_rb,3.5213e-01_rb/)
+      kao(:, 1, 8,12) = (/ &
+     &9.0810e+02_rb,7.9455e+02_rb,6.8107e+02_rb,5.6755e+02_rb,4.5403e+02_rb,3.4053e+02_rb, &
+     &2.2701e+02_rb,1.1352e+02_rb,7.1564e-02_rb/)
+      kao(:, 2, 8,12) = (/ &
+     &9.0605e+02_rb,7.9275e+02_rb,6.7956e+02_rb,5.6628e+02_rb,4.5302e+02_rb,3.3978e+02_rb, &
+     &2.2652e+02_rb,1.1325e+02_rb,1.1086e-01_rb/)
+      kao(:, 3, 8,12) = (/ &
+     &9.0093e+02_rb,7.8832e+02_rb,6.7569e+02_rb,5.6306e+02_rb,4.5046e+02_rb,3.3783e+02_rb, &
+     &2.2521e+02_rb,1.1262e+02_rb,1.6463e-01_rb/)
+      kao(:, 4, 8,12) = (/ &
+     &8.9363e+02_rb,7.8197e+02_rb,6.7027e+02_rb,5.5850e+02_rb,4.4681e+02_rb,3.3513e+02_rb, &
+     &2.2342e+02_rb,1.1170e+02_rb,2.3145e-01_rb/)
+      kao(:, 5, 8,12) = (/ &
+     &8.8174e+02_rb,7.7148e+02_rb,6.6129e+02_rb,5.5110e+02_rb,4.4085e+02_rb,3.3064e+02_rb, &
+     &2.2045e+02_rb,1.1021e+02_rb,3.1429e-01_rb/)
+      kao(:, 1, 9,12) = (/ &
+     &4.0575e+03_rb,3.5502e+03_rb,3.0431e+03_rb,2.5358e+03_rb,2.0286e+03_rb,1.5215e+03_rb, &
+     &1.0143e+03_rb,5.0720e+02_rb,5.5603e-02_rb/)
+      kao(:, 2, 9,12) = (/ &
+     &4.0575e+03_rb,3.5503e+03_rb,3.0431e+03_rb,2.5359e+03_rb,2.0286e+03_rb,1.5216e+03_rb, &
+     &1.0143e+03_rb,5.0715e+02_rb,8.8381e-02_rb/)
+      kao(:, 3, 9,12) = (/ &
+     &4.0490e+03_rb,3.5425e+03_rb,3.0365e+03_rb,2.5303e+03_rb,2.0243e+03_rb,1.5183e+03_rb, &
+     &1.0122e+03_rb,5.0611e+02_rb,1.3462e-01_rb/)
+      kao(:, 4, 9,12) = (/ &
+     &4.0163e+03_rb,3.5141e+03_rb,3.0122e+03_rb,2.5100e+03_rb,2.0082e+03_rb,1.5061e+03_rb, &
+     &1.0041e+03_rb,5.0202e+02_rb,1.9418e-01_rb/)
+      kao(:, 5, 9,12) = (/ &
+     &3.9738e+03_rb,3.4768e+03_rb,2.9801e+03_rb,2.4835e+03_rb,1.9868e+03_rb,1.4900e+03_rb, &
+     &9.9338e+02_rb,4.9668e+02_rb,2.7001e-01_rb/)
+      kao(:, 1,10,12) = (/ &
+     &2.0782e+04_rb,1.8184e+04_rb,1.5586e+04_rb,1.2989e+04_rb,1.0391e+04_rb,7.7931e+03_rb, &
+     &5.1956e+03_rb,2.5977e+03_rb,1.5076e-02_rb/)
+      kao(:, 2,10,12) = (/ &
+     &2.0847e+04_rb,1.8242e+04_rb,1.5636e+04_rb,1.3030e+04_rb,1.0424e+04_rb,7.8180e+03_rb, &
+     &5.2120e+03_rb,2.6061e+03_rb,3.9283e-02_rb/)
+      kao(:, 3,10,12) = (/ &
+     &2.0776e+04_rb,1.8179e+04_rb,1.5582e+04_rb,1.2985e+04_rb,1.0387e+04_rb,7.7905e+03_rb, &
+     &5.1937e+03_rb,2.5968e+03_rb,5.3678e-02_rb/)
+      kao(:, 4,10,12) = (/ &
+     &2.0635e+04_rb,1.8055e+04_rb,1.5476e+04_rb,1.2897e+04_rb,1.0317e+04_rb,7.7379e+03_rb, &
+     &5.1584e+03_rb,2.5793e+03_rb,8.4869e-02_rb/)
+      kao(:, 5,10,12) = (/ &
+     &2.0468e+04_rb,1.7910e+04_rb,1.5352e+04_rb,1.2793e+04_rb,1.0235e+04_rb,7.6761e+03_rb, &
+     &5.1174e+03_rb,2.5585e+03_rb,1.7840e-01_rb/)
+      kao(:, 1,11,12) = (/ &
+     &3.8086e+04_rb,3.3327e+04_rb,2.8563e+04_rb,2.3804e+04_rb,1.9042e+04_rb,1.4282e+04_rb, &
+     &9.5217e+03_rb,4.7607e+03_rb,3.5535e-02_rb/)
+      kao(:, 2,11,12) = (/ &
+     &3.8167e+04_rb,3.3395e+04_rb,2.8624e+04_rb,2.3853e+04_rb,1.9083e+04_rb,1.4312e+04_rb, &
+     &9.5414e+03_rb,4.7707e+03_rb,2.0336e-02_rb/)
+      kao(:, 3,11,12) = (/ &
+     &3.8095e+04_rb,3.3333e+04_rb,2.8571e+04_rb,2.3809e+04_rb,1.9048e+04_rb,1.4285e+04_rb, &
+     &9.5235e+03_rb,4.7617e+03_rb,7.3058e-02_rb/)
+      kao(:, 4,11,12) = (/ &
+     &3.7840e+04_rb,3.3110e+04_rb,2.8380e+04_rb,2.3651e+04_rb,1.8921e+04_rb,1.4191e+04_rb, &
+     &9.4603e+03_rb,4.7302e+03_rb,9.2342e-02_rb/)
+      kao(:, 5,11,12) = (/ &
+     &3.7466e+04_rb,3.2782e+04_rb,2.8098e+04_rb,2.3416e+04_rb,1.8732e+04_rb,1.4049e+04_rb, &
+     &9.3659e+03_rb,4.6831e+03_rb,1.1387e-01_rb/)
+      kao(:, 1,12,12) = (/ &
+     &5.3068e+04_rb,4.6434e+04_rb,3.9801e+04_rb,3.3167e+04_rb,2.6533e+04_rb,1.9901e+04_rb, &
+     &1.3266e+04_rb,6.6334e+03_rb,5.3631e-05_rb/)
+      kao(:, 2,12,12) = (/ &
+     &5.2912e+04_rb,4.6296e+04_rb,3.9684e+04_rb,3.3067e+04_rb,2.6455e+04_rb,1.9841e+04_rb, &
+     &1.3228e+04_rb,6.6136e+03_rb,3.3045e-02_rb/)
+      kao(:, 3,12,12) = (/ &
+     &5.2742e+04_rb,4.6150e+04_rb,3.9556e+04_rb,3.2963e+04_rb,2.6372e+04_rb,1.9779e+04_rb, &
+     &1.3186e+04_rb,6.5925e+03_rb,2.4038e-02_rb/)
+      kao(:, 4,12,12) = (/ &
+     &5.2329e+04_rb,4.5788e+04_rb,3.9248e+04_rb,3.2707e+04_rb,2.6165e+04_rb,1.9623e+04_rb, &
+     &1.3082e+04_rb,6.5410e+03_rb,8.8033e-02_rb/)
+      kao(:, 5,12,12) = (/ &
+     &5.1702e+04_rb,4.5237e+04_rb,3.8772e+04_rb,3.2311e+04_rb,2.5848e+04_rb,1.9386e+04_rb, &
+     &1.2925e+04_rb,6.4623e+03_rb,1.0528e-01_rb/)
+      kao(:, 1,13,12) = (/ &
+     &5.9181e+04_rb,5.1784e+04_rb,4.4385e+04_rb,3.6986e+04_rb,2.9590e+04_rb,2.2192e+04_rb, &
+     &1.4795e+04_rb,7.3976e+03_rb,6.3472e-05_rb/)
+      kao(:, 2,13,12) = (/ &
+     &5.9042e+04_rb,5.1661e+04_rb,4.4282e+04_rb,3.6901e+04_rb,2.9521e+04_rb,2.2141e+04_rb, &
+     &1.4760e+04_rb,7.3802e+03_rb,8.2093e-03_rb/)
+      kao(:, 3,13,12) = (/ &
+     &5.8661e+04_rb,5.1328e+04_rb,4.3997e+04_rb,3.6663e+04_rb,2.9331e+04_rb,2.1998e+04_rb, &
+     &1.4665e+04_rb,7.3324e+03_rb,2.9843e-02_rb/)
+      kao(:, 4,13,12) = (/ &
+     &5.8145e+04_rb,5.0874e+04_rb,4.3608e+04_rb,3.6342e+04_rb,2.9072e+04_rb,2.1804e+04_rb, &
+     &1.4536e+04_rb,7.2678e+03_rb,5.7821e-02_rb/)
+      kao(:, 5,13,12) = (/ &
+     &5.7447e+04_rb,5.0266e+04_rb,4.3086e+04_rb,3.5905e+04_rb,2.8722e+04_rb,2.1542e+04_rb, &
+     &1.4361e+04_rb,7.1808e+03_rb,1.1510e-01_rb/)
+      kao(:, 1, 1,13) = (/ &
+     &9.2441e+00_rb,8.0893e+00_rb,6.9334e+00_rb,5.7782e+00_rb,4.6228e+00_rb,3.4672e+00_rb, &
+     &2.3119e+00_rb,1.1567e+00_rb,2.2855e-01_rb/)
+      kao(:, 2, 1,13) = (/ &
+     &8.8623e+00_rb,7.7552e+00_rb,6.6473e+00_rb,5.5397e+00_rb,4.4320e+00_rb,3.3245e+00_rb, &
+     &2.2168e+00_rb,1.1091e+00_rb,3.2335e-01_rb/)
+      kao(:, 3, 1,13) = (/ &
+     &8.4833e+00_rb,7.4233e+00_rb,6.3625e+00_rb,5.3026e+00_rb,4.2423e+00_rb,3.1825e+00_rb, &
+     &2.1219e+00_rb,1.0618e+00_rb,4.4367e-01_rb/)
+      kao(:, 4, 1,13) = (/ &
+     &8.1215e+00_rb,7.1065e+00_rb,6.0917e+00_rb,5.0761e+00_rb,4.0614e+00_rb,3.0468e+00_rb, &
+     &2.0316e+00_rb,1.0641e+00_rb,5.9167e-01_rb/)
+      kao(:, 5, 1,13) = (/ &
+     &7.7672e+00_rb,6.7964e+00_rb,5.8258e+00_rb,4.8545e+00_rb,3.8845e+00_rb,2.9137e+00_rb, &
+     &1.9430e+00_rb,1.0446e+00_rb,7.6901e-01_rb/)
+      kao(:, 1, 2,13) = (/ &
+     &1.4699e+01_rb,1.2863e+01_rb,1.1024e+01_rb,9.1876e+00_rb,7.3499e+00_rb,5.5129e+00_rb, &
+     &3.6758e+00_rb,1.8383e+00_rb,2.1901e-01_rb/)
+      kao(:, 2, 2,13) = (/ &
+     &1.4081e+01_rb,1.2321e+01_rb,1.0561e+01_rb,8.8012e+00_rb,7.0414e+00_rb,5.2809e+00_rb, &
+     &3.5211e+00_rb,1.7613e+00_rb,3.1665e-01_rb/)
+      kao(:, 3, 2,13) = (/ &
+     &1.3470e+01_rb,1.1786e+01_rb,1.0102e+01_rb,8.4178e+00_rb,6.7345e+00_rb,5.0512e+00_rb, &
+     &3.3678e+00_rb,1.6847e+00_rb,4.4141e-01_rb/)
+      kao(:, 4, 2,13) = (/ &
+     &1.2871e+01_rb,1.1263e+01_rb,9.6542e+00_rb,8.0452e+00_rb,6.4365e+00_rb,4.8276e+00_rb, &
+     &3.2187e+00_rb,1.6111e+00_rb,5.9558e-01_rb/)
+      kao(:, 5, 2,13) = (/ &
+     &1.2298e+01_rb,1.0761e+01_rb,9.2242e+00_rb,7.6869e+00_rb,6.1502e+00_rb,4.6127e+00_rb, &
+     &3.0756e+00_rb,1.6035e+00_rb,7.7652e-01_rb/)
+      kao(:, 1, 3,13) = (/ &
+     &3.1779e+01_rb,2.7807e+01_rb,2.3834e+01_rb,1.9863e+01_rb,1.5890e+01_rb,1.1918e+01_rb, &
+     &7.9454e+00_rb,3.9733e+00_rb,1.9638e-01_rb/)
+      kao(:, 2, 3,13) = (/ &
+     &3.0431e+01_rb,2.6628e+01_rb,2.2823e+01_rb,1.9020e+01_rb,1.5217e+01_rb,1.1412e+01_rb, &
+     &7.6086e+00_rb,3.8049e+00_rb,2.7736e-01_rb/)
+      kao(:, 3, 3,13) = (/ &
+     &2.9103e+01_rb,2.5465e+01_rb,2.1826e+01_rb,1.8188e+01_rb,1.4551e+01_rb,1.0914e+01_rb, &
+     &7.2766e+00_rb,3.6387e+00_rb,3.9551e-01_rb/)
+      kao(:, 4, 3,13) = (/ &
+     &2.7810e+01_rb,2.4334e+01_rb,2.0858e+01_rb,1.7381e+01_rb,1.3906e+01_rb,1.0429e+01_rb, &
+     &6.9532e+00_rb,3.4769e+00_rb,5.4452e-01_rb/)
+      kao(:, 5, 3,13) = (/ &
+     &2.6585e+01_rb,2.3262e+01_rb,1.9938e+01_rb,1.6616e+01_rb,1.3293e+01_rb,9.9693e+00_rb, &
+     &6.6465e+00_rb,3.3243e+00_rb,7.1925e-01_rb/)
+      kao(:, 1, 4,13) = (/ &
+     &7.0542e+01_rb,6.1725e+01_rb,5.2909e+01_rb,4.4087e+01_rb,3.5272e+01_rb,2.6453e+01_rb, &
+     &1.7635e+01_rb,8.8184e+00_rb,1.8199e-01_rb/)
+      kao(:, 2, 4,13) = (/ &
+     &6.7511e+01_rb,5.9069e+01_rb,5.0634e+01_rb,4.2192e+01_rb,3.3755e+01_rb,2.5317e+01_rb, &
+     &1.6878e+01_rb,8.4389e+00_rb,2.4599e-01_rb/)
+      kao(:, 3, 4,13) = (/ &
+     &6.4633e+01_rb,5.6554e+01_rb,4.8477e+01_rb,4.0397e+01_rb,3.2316e+01_rb,2.4237e+01_rb, &
+     &1.6158e+01_rb,8.0799e+00_rb,3.3970e-01_rb/)
+      kao(:, 4, 4,13) = (/ &
+     &6.1828e+01_rb,5.4103e+01_rb,4.6370e+01_rb,3.8643e+01_rb,3.0915e+01_rb,2.3186e+01_rb, &
+     &1.5458e+01_rb,7.7299e+00_rb,4.6987e-01_rb/)
+      kao(:, 5, 4,13) = (/ &
+     &5.9112e+01_rb,5.1730e+01_rb,4.4337e+01_rb,3.6946e+01_rb,2.9558e+01_rb,2.2169e+01_rb, &
+     &1.4779e+01_rb,7.3903e+00_rb,6.3062e-01_rb/)
+      kao(:, 1, 5,13) = (/ &
+     &1.4439e+02_rb,1.2634e+02_rb,1.0830e+02_rb,9.0248e+01_rb,7.2199e+01_rb,5.4151e+01_rb, &
+     &3.6099e+01_rb,1.8050e+01_rb,1.6579e-01_rb/)
+      kao(:, 2, 5,13) = (/ &
+     &1.3838e+02_rb,1.2109e+02_rb,1.0378e+02_rb,8.6480e+01_rb,6.9180e+01_rb,5.1890e+01_rb, &
+     &3.4593e+01_rb,1.7299e+01_rb,2.2988e-01_rb/)
+      kao(:, 3, 5,13) = (/ &
+     &1.3259e+02_rb,1.1602e+02_rb,9.9432e+01_rb,8.2860e+01_rb,6.6285e+01_rb,4.9718e+01_rb, &
+     &3.3146e+01_rb,1.6573e+01_rb,3.1063e-01_rb/)
+      kao(:, 4, 5,13) = (/ &
+     &1.2697e+02_rb,1.1110e+02_rb,9.5219e+01_rb,7.9357e+01_rb,6.3482e+01_rb,4.7609e+01_rb, &
+     &3.1740e+01_rb,1.5871e+01_rb,4.1510e-01_rb/)
+      kao(:, 5, 5,13) = (/ &
+     &1.2152e+02_rb,1.0632e+02_rb,9.1129e+01_rb,7.5942e+01_rb,6.0752e+01_rb,4.5568e+01_rb, &
+     &3.0378e+01_rb,1.5190e+01_rb,5.5503e-01_rb/)
+      kao(:, 1, 6,13) = (/ &
+     &2.7815e+02_rb,2.4339e+02_rb,2.0862e+02_rb,1.7384e+02_rb,1.3908e+02_rb,1.0430e+02_rb, &
+     &6.9541e+01_rb,3.4769e+01_rb,1.4932e-01_rb/)
+      kao(:, 2, 6,13) = (/ &
+     &2.6703e+02_rb,2.3365e+02_rb,2.0028e+02_rb,1.6690e+02_rb,1.3351e+02_rb,1.0014e+02_rb, &
+     &6.6764e+01_rb,3.3381e+01_rb,2.1038e-01_rb/)
+      kao(:, 3, 6,13) = (/ &
+     &2.5610e+02_rb,2.2409e+02_rb,1.9207e+02_rb,1.6007e+02_rb,1.2805e+02_rb,9.6039e+01_rb, &
+     &6.4025e+01_rb,3.2016e+01_rb,2.9193e-01_rb/)
+      kao(:, 4, 6,13) = (/ &
+     &2.4602e+02_rb,2.1527e+02_rb,1.8451e+02_rb,1.5376e+02_rb,1.2300e+02_rb,9.2253e+01_rb, &
+     &6.1503e+01_rb,3.0752e+01_rb,3.8735e-01_rb/)
+      kao(:, 5, 6,13) = (/ &
+     &2.3698e+02_rb,2.0737e+02_rb,1.7775e+02_rb,1.4811e+02_rb,1.1849e+02_rb,8.8866e+01_rb, &
+     &5.9248e+01_rb,2.9622e+01_rb,5.0567e-01_rb/)
+      kao(:, 1, 7,13) = (/ &
+     &5.6531e+02_rb,4.9465e+02_rb,4.2396e+02_rb,3.5331e+02_rb,2.8267e+02_rb,2.1198e+02_rb, &
+     &1.4132e+02_rb,7.0665e+01_rb,1.3236e-01_rb/)
+      kao(:, 2, 7,13) = (/ &
+     &5.4477e+02_rb,4.7663e+02_rb,4.0854e+02_rb,3.4045e+02_rb,2.7236e+02_rb,2.0426e+02_rb, &
+     &1.3618e+02_rb,6.8089e+01_rb,1.9224e-01_rb/)
+      kao(:, 3, 7,13) = (/ &
+     &5.2553e+02_rb,4.5986e+02_rb,3.9416e+02_rb,3.2848e+02_rb,2.6277e+02_rb,1.9706e+02_rb, &
+     &1.3138e+02_rb,6.5693e+01_rb,2.7007e-01_rb/)
+      kao(:, 4, 7,13) = (/ &
+     &5.0736e+02_rb,4.4395e+02_rb,3.8050e+02_rb,3.1709e+02_rb,2.5367e+02_rb,1.9026e+02_rb, &
+     &1.2684e+02_rb,6.3421e+01_rb,3.6853e-01_rb/)
+      kao(:, 5, 7,13) = (/ &
+     &4.8966e+02_rb,4.2846e+02_rb,3.6727e+02_rb,3.0605e+02_rb,2.4484e+02_rb,1.8364e+02_rb, &
+     &1.2242e+02_rb,6.1208e+01_rb,4.8516e-01_rb/)
+      kao(:, 1, 8,13) = (/ &
+     &1.3865e+03_rb,1.2132e+03_rb,1.0399e+03_rb,8.6656e+02_rb,6.9323e+02_rb,5.1995e+02_rb, &
+     &3.4663e+02_rb,1.7332e+02_rb,1.1342e-01_rb/)
+      kao(:, 2, 8,13) = (/ &
+     &1.3418e+03_rb,1.1740e+03_rb,1.0063e+03_rb,8.3858e+02_rb,6.7084e+02_rb,5.0312e+02_rb, &
+     &3.3544e+02_rb,1.6771e+02_rb,1.7153e-01_rb/)
+      kao(:, 3, 8,13) = (/ &
+     &1.2982e+03_rb,1.1360e+03_rb,9.7362e+02_rb,8.1138e+02_rb,6.4912e+02_rb,4.8683e+02_rb, &
+     &3.2456e+02_rb,1.6229e+02_rb,2.4648e-01_rb/)
+      kao(:, 4, 8,13) = (/ &
+     &1.2554e+03_rb,1.0986e+03_rb,9.4155e+02_rb,7.8470e+02_rb,6.2776e+02_rb,4.7081e+02_rb, &
+     &3.1388e+02_rb,1.5694e+02_rb,3.4456e-01_rb/)
+      kao(:, 5, 8,13) = (/ &
+     &1.2173e+03_rb,1.0650e+03_rb,9.1289e+02_rb,7.6069e+02_rb,6.0860e+02_rb,4.5645e+02_rb, &
+     &3.0428e+02_rb,1.5215e+02_rb,4.6320e-01_rb/)
+      kao(:, 1, 9,13) = (/ &
+     &6.4287e+03_rb,5.6254e+03_rb,4.8220e+03_rb,4.0184e+03_rb,3.2146e+03_rb,2.4108e+03_rb, &
+     &1.6072e+03_rb,8.0366e+02_rb,9.3435e-02_rb/)
+      kao(:, 2, 9,13) = (/ &
+     &6.2433e+03_rb,5.4627e+03_rb,4.6824e+03_rb,3.9018e+03_rb,3.1215e+03_rb,2.3411e+03_rb, &
+     &1.5608e+03_rb,7.8032e+02_rb,1.4681e-01_rb/)
+      kao(:, 3, 9,13) = (/ &
+     &6.0612e+03_rb,5.3034e+03_rb,4.5455e+03_rb,3.7883e+03_rb,3.0305e+03_rb,2.2728e+03_rb, &
+     &1.5153e+03_rb,7.5756e+02_rb,2.1819e-01_rb/)
+      kao(:, 4, 9,13) = (/ &
+     &5.8977e+03_rb,5.1604e+03_rb,4.4231e+03_rb,3.6861e+03_rb,2.9487e+03_rb,2.2117e+03_rb, &
+     &1.4744e+03_rb,7.3720e+02_rb,3.1394e-01_rb/)
+      kao(:, 5, 9,13) = (/ &
+     &5.7293e+03_rb,5.0131e+03_rb,4.2969e+03_rb,3.5807e+03_rb,2.8646e+03_rb,2.1484e+03_rb, &
+     &1.4323e+03_rb,7.1617e+02_rb,4.3083e-01_rb/)
+      kao(:, 1,10,13) = (/ &
+     &3.3200e+04_rb,2.9050e+04_rb,2.4899e+04_rb,2.0749e+04_rb,1.6600e+04_rb,1.2450e+04_rb, &
+     &8.2998e+03_rb,4.1501e+03_rb,1.3035e-02_rb/)
+      kao(:, 2,10,13) = (/ &
+     &3.2379e+04_rb,2.8331e+04_rb,2.4286e+04_rb,2.0236e+04_rb,1.6189e+04_rb,1.2142e+04_rb, &
+     &8.0946e+03_rb,4.0474e+03_rb,6.4014e-02_rb/)
+      kao(:, 3,10,13) = (/ &
+     &3.1566e+04_rb,2.7621e+04_rb,2.3674e+04_rb,1.9730e+04_rb,1.5784e+04_rb,1.1837e+04_rb, &
+     &7.8919e+03_rb,3.9461e+03_rb,1.0897e-01_rb/)
+      kao(:, 4,10,13) = (/ &
+     &3.0728e+04_rb,2.6888e+04_rb,2.3048e+04_rb,1.9205e+04_rb,1.5364e+04_rb,1.1523e+04_rb, &
+     &7.6820e+03_rb,3.8409e+03_rb,2.5342e-01_rb/)
+      kao(:, 5,10,13) = (/ &
+     &2.9824e+04_rb,2.6098e+04_rb,2.2369e+04_rb,1.8641e+04_rb,1.4913e+04_rb,1.1185e+04_rb, &
+     &7.4563e+03_rb,3.7282e+03_rb,3.9865e-01_rb/)
+      kao(:, 1,11,13) = (/ &
+     &5.8997e+04_rb,5.1626e+04_rb,4.4246e+04_rb,3.6876e+04_rb,2.9498e+04_rb,2.2124e+04_rb, &
+     &1.4750e+04_rb,7.3749e+03_rb,3.4853e-05_rb/)
+      kao(:, 2,11,13) = (/ &
+     &5.7601e+04_rb,5.0403e+04_rb,4.3203e+04_rb,3.6002e+04_rb,2.8802e+04_rb,2.1601e+04_rb, &
+     &1.4400e+04_rb,7.2004e+03_rb,3.9149e-02_rb/)
+      kao(:, 3,11,13) = (/ &
+     &5.6184e+04_rb,4.9162e+04_rb,4.2136e+04_rb,3.5117e+04_rb,2.8092e+04_rb,2.1068e+04_rb, &
+     &1.4046e+04_rb,7.0226e+03_rb,4.1745e-02_rb/)
+      kao(:, 4,11,13) = (/ &
+     &5.4639e+04_rb,4.7807e+04_rb,4.0979e+04_rb,3.4149e+04_rb,2.7319e+04_rb,2.0489e+04_rb, &
+     &1.3659e+04_rb,6.8303e+03_rb,1.4397e-01_rb/)
+      kao(:, 5,11,13) = (/ &
+     &5.3017e+04_rb,4.6389e+04_rb,3.9763e+04_rb,3.3137e+04_rb,2.6509e+04_rb,1.9881e+04_rb, &
+     &1.3255e+04_rb,6.6269e+03_rb,2.2772e-01_rb/)
+      kao(:, 1,12,13) = (/ &
+     &7.7971e+04_rb,6.8226e+04_rb,5.8475e+04_rb,4.8732e+04_rb,3.8985e+04_rb,2.9238e+04_rb, &
+     &1.9491e+04_rb,9.7458e+03_rb,2.6211e-05_rb/)
+      kao(:, 2,12,13) = (/ &
+     &7.6358e+04_rb,6.6812e+04_rb,5.7265e+04_rb,4.7721e+04_rb,3.8180e+04_rb,2.8631e+04_rb, &
+     &1.9088e+04_rb,9.5449e+03_rb,1.6658e-02_rb/)
+      kao(:, 3,12,13) = (/ &
+     &7.4598e+04_rb,6.5272e+04_rb,5.5949e+04_rb,4.6623e+04_rb,3.7300e+04_rb,2.7976e+04_rb, &
+     &1.8650e+04_rb,9.3250e+03_rb,6.1472e-02_rb/)
+      kao(:, 4,12,13) = (/ &
+     &7.2683e+04_rb,6.3600e+04_rb,5.4513e+04_rb,4.5429e+04_rb,3.6343e+04_rb,2.7256e+04_rb, &
+     &1.8171e+04_rb,9.0852e+03_rb,8.7020e-02_rb/)
+      kao(:, 5,12,13) = (/ &
+     &7.0749e+04_rb,6.1901e+04_rb,5.3059e+04_rb,4.4221e+04_rb,3.5375e+04_rb,2.6529e+04_rb, &
+     &1.7687e+04_rb,8.8438e+03_rb,2.2135e-01_rb/)
+      kao(:, 1,13,13) = (/ &
+     &8.4389e+04_rb,7.3841e+04_rb,6.3292e+04_rb,5.2741e+04_rb,4.2193e+04_rb,3.1646e+04_rb, &
+     &2.1097e+04_rb,1.0548e+04_rb,3.5977e-05_rb/)
+      kao(:, 2,13,13) = (/ &
+     &8.2810e+04_rb,7.2462e+04_rb,6.2107e+04_rb,5.1755e+04_rb,4.1404e+04_rb,3.1055e+04_rb, &
+     &2.0703e+04_rb,1.0351e+04_rb,2.8201e-02_rb/)
+      kao(:, 3,13,13) = (/ &
+     &8.1175e+04_rb,7.1028e+04_rb,6.0878e+04_rb,5.0733e+04_rb,4.0585e+04_rb,3.0440e+04_rb, &
+     &2.0293e+04_rb,1.0147e+04_rb,3.8140e-02_rb/)
+      kao(:, 4,13,13) = (/ &
+     &7.9409e+04_rb,6.9476e+04_rb,5.9554e+04_rb,4.9626e+04_rb,3.9700e+04_rb,2.9777e+04_rb, &
+     &1.9850e+04_rb,9.9254e+03_rb,1.0573e-01_rb/)
+      kao(:, 5,13,13) = (/ &
+     &7.7670e+04_rb,6.7959e+04_rb,5.8251e+04_rb,4.8545e+04_rb,3.8836e+04_rb,2.9127e+04_rb, &
+     &1.9417e+04_rb,9.7081e+03_rb,2.2322e-01_rb/)
+      kao(:, 1, 1,14) = (/ &
+     &1.0586e+01_rb,9.2639e+00_rb,7.9401e+00_rb,6.6170e+00_rb,5.2941e+00_rb,3.9707e+00_rb, &
+     &2.6478e+00_rb,1.3250e+00_rb,4.3918e-01_rb/)
+      kao(:, 2, 1,14) = (/ &
+     &1.0067e+01_rb,8.8090e+00_rb,7.5510e+00_rb,6.2924e+00_rb,5.0343e+00_rb,3.7761e+00_rb, &
+     &2.5179e+00_rb,1.2597e+00_rb,5.9709e-01_rb/)
+      kao(:, 3, 1,14) = (/ &
+     &9.5510e+00_rb,8.3580e+00_rb,7.1635e+00_rb,5.9699e+00_rb,4.7763e+00_rb,3.5829e+00_rb, &
+     &2.3891e+00_rb,1.1957e+00_rb,7.8623e-01_rb/)
+      kao(:, 4, 1,14) = (/ &
+     &9.0745e+00_rb,7.9402e+00_rb,6.8068e+00_rb,5.6724e+00_rb,4.5382e+00_rb,3.4039e+00_rb, &
+     &2.2698e+00_rb,1.1544e+00_rb,1.0064e+00_rb/)
+      kao(:, 5, 1,14) = (/ &
+     &8.6119e+00_rb,7.5354e+00_rb,6.4586e+00_rb,5.3823e+00_rb,4.3069e+00_rb,3.2305e+00_rb, &
+     &2.1544e+00_rb,1.1513e+00_rb,1.2568e+00_rb/)
+      kao(:, 1, 2,14) = (/ &
+     &1.7127e+01_rb,1.4988e+01_rb,1.2847e+01_rb,1.0706e+01_rb,8.5644e+00_rb,6.4237e+00_rb, &
+     &4.2830e+00_rb,2.1424e+00_rb,4.0087e-01_rb/)
+      kao(:, 2, 2,14) = (/ &
+     &1.6266e+01_rb,1.4233e+01_rb,1.2199e+01_rb,1.0167e+01_rb,8.1334e+00_rb,6.1003e+00_rb, &
+     &4.0675e+00_rb,2.0344e+00_rb,5.5811e-01_rb/)
+      kao(:, 3, 2,14) = (/ &
+     &1.5417e+01_rb,1.3492e+01_rb,1.1564e+01_rb,9.6364e+00_rb,7.7096e+00_rb,5.7829e+00_rb, &
+     &3.8557e+00_rb,1.9285e+00_rb,7.4958e-01_rb/)
+      kao(:, 4, 2,14) = (/ &
+     &1.4610e+01_rb,1.2785e+01_rb,1.0958e+01_rb,9.1323e+00_rb,7.3057e+00_rb,5.4803e+00_rb, &
+     &3.6538e+00_rb,1.8278e+00_rb,9.7668e-01_rb/)
+      kao(:, 5, 2,14) = (/ &
+     &1.3849e+01_rb,1.2118e+01_rb,1.0388e+01_rb,8.6567e+00_rb,6.9253e+00_rb,5.1944e+00_rb, &
+     &3.4637e+00_rb,1.7621e+00_rb,1.2463e+00_rb/)
+      kao(:, 1, 3,14) = (/ &
+     &3.7731e+01_rb,3.3014e+01_rb,2.8298e+01_rb,2.3584e+01_rb,1.8865e+01_rb,1.4149e+01_rb, &
+     &9.4337e+00_rb,4.7180e+00_rb,3.4082e-01_rb/)
+      kao(:, 2, 3,14) = (/ &
+     &3.5785e+01_rb,3.1314e+01_rb,2.6842e+01_rb,2.2368e+01_rb,1.7895e+01_rb,1.3421e+01_rb, &
+     &8.9480e+00_rb,4.4747e+00_rb,4.8919e-01_rb/)
+      kao(:, 3, 3,14) = (/ &
+     &3.3896e+01_rb,2.9659e+01_rb,2.5426e+01_rb,2.1185e+01_rb,1.6948e+01_rb,1.2712e+01_rb, &
+     &8.4759e+00_rb,4.2386e+00_rb,6.7406e-01_rb/)
+      kao(:, 4, 3,14) = (/ &
+     &3.2057e+01_rb,2.8051e+01_rb,2.4047e+01_rb,2.0037e+01_rb,1.6031e+01_rb,1.2024e+01_rb, &
+     &8.0158e+00_rb,4.0086e+00_rb,8.9895e-01_rb/)
+      kao(:, 5, 3,14) = (/ &
+     &3.0352e+01_rb,2.6560e+01_rb,2.2767e+01_rb,1.8972e+01_rb,1.5176e+01_rb,1.1383e+01_rb, &
+     &7.5899e+00_rb,3.7954e+00_rb,1.1745e+00_rb/)
+      kao(:, 1, 4,14) = (/ &
+     &8.5512e+01_rb,7.4816e+01_rb,6.4130e+01_rb,5.3439e+01_rb,4.2750e+01_rb,3.2066e+01_rb, &
+     &2.1376e+01_rb,1.0689e+01_rb,2.7979e-01_rb/)
+      kao(:, 2, 4,14) = (/ &
+     &8.0825e+01_rb,7.0719e+01_rb,6.0615e+01_rb,5.0514e+01_rb,4.0410e+01_rb,3.0306e+01_rb, &
+     &2.0206e+01_rb,1.0104e+01_rb,4.1456e-01_rb/)
+      kao(:, 3, 4,14) = (/ &
+     &7.6512e+01_rb,6.6951e+01_rb,5.7383e+01_rb,4.7821e+01_rb,3.8259e+01_rb,2.8694e+01_rb, &
+     &1.9130e+01_rb,9.5655e+00_rb,5.8875e-01_rb/)
+      kao(:, 4, 4,14) = (/ &
+     &7.2339e+01_rb,6.3299e+01_rb,5.4254e+01_rb,4.5213e+01_rb,3.6173e+01_rb,2.7127e+01_rb, &
+     &1.8087e+01_rb,9.0435e+00_rb,8.0998e-01_rb/)
+      kao(:, 5, 4,14) = (/ &
+     &6.8331e+01_rb,5.9800e+01_rb,5.1253e+01_rb,4.2714e+01_rb,3.4172e+01_rb,2.5627e+01_rb, &
+     &1.7086e+01_rb,8.5443e+00_rb,1.0852e+00_rb/)
+      kao(:, 1, 5,14) = (/ &
+     &1.7862e+02_rb,1.5630e+02_rb,1.3397e+02_rb,1.1164e+02_rb,8.9317e+01_rb,6.6992e+01_rb, &
+     &4.4659e+01_rb,2.2329e+01_rb,2.4222e-01_rb/)
+      kao(:, 2, 5,14) = (/ &
+     &1.6866e+02_rb,1.4756e+02_rb,1.2649e+02_rb,1.0541e+02_rb,8.4332e+01_rb,6.3244e+01_rb, &
+     &4.2162e+01_rb,2.1082e+01_rb,3.4856e-01_rb/)
+      kao(:, 3, 5,14) = (/ &
+     &1.5941e+02_rb,1.3948e+02_rb,1.1955e+02_rb,9.9631e+01_rb,7.9709e+01_rb,5.9780e+01_rb, &
+     &3.9852e+01_rb,1.9927e+01_rb,5.0734e-01_rb/)
+      kao(:, 4, 5,14) = (/ &
+     &1.5067e+02_rb,1.3184e+02_rb,1.1302e+02_rb,9.4183e+01_rb,7.5341e+01_rb,5.6507e+01_rb, &
+     &3.7674e+01_rb,1.8837e+01_rb,7.2180e-01_rb/)
+      kao(:, 5, 5,14) = (/ &
+     &1.4230e+02_rb,1.2451e+02_rb,1.0671e+02_rb,8.8935e+01_rb,7.1153e+01_rb,5.3363e+01_rb, &
+     &3.5577e+01_rb,1.7789e+01_rb,9.9362e-01_rb/)
+      kao(:, 1, 6,14) = (/ &
+     &3.5096e+02_rb,3.0703e+02_rb,2.6318e+02_rb,2.1933e+02_rb,1.7546e+02_rb,1.3159e+02_rb, &
+     &8.7733e+01_rb,4.3865e+01_rb,2.1734e-01_rb/)
+      kao(:, 2, 6,14) = (/ &
+     &3.3138e+02_rb,2.8996e+02_rb,2.4854e+02_rb,2.0711e+02_rb,1.6569e+02_rb,1.2426e+02_rb, &
+     &8.2845e+01_rb,4.1423e+01_rb,3.0507e-01_rb/)
+      kao(:, 3, 6,14) = (/ &
+     &3.1254e+02_rb,2.7346e+02_rb,2.3441e+02_rb,1.9532e+02_rb,1.5627e+02_rb,1.1720e+02_rb, &
+     &7.8130e+01_rb,3.9066e+01_rb,4.3270e-01_rb/)
+      kao(:, 4, 6,14) = (/ &
+     &2.9529e+02_rb,2.5841e+02_rb,2.2148e+02_rb,1.8456e+02_rb,1.4764e+02_rb,1.1074e+02_rb, &
+     &7.3826e+01_rb,3.6914e+01_rb,6.2701e-01_rb/)
+      kao(:, 5, 6,14) = (/ &
+     &2.7880e+02_rb,2.4396e+02_rb,2.0911e+02_rb,1.7424e+02_rb,1.3940e+02_rb,1.0455e+02_rb, &
+     &6.9706e+01_rb,3.4852e+01_rb,8.8890e-01_rb/)
+      kao(:, 1, 7,14) = (/ &
+     &7.2513e+02_rb,6.3446e+02_rb,5.4381e+02_rb,4.5320e+02_rb,3.6257e+02_rb,2.7191e+02_rb, &
+     &1.8128e+02_rb,9.0650e+01_rb,1.9831e-01_rb/)
+      kao(:, 2, 7,14) = (/ &
+     &6.8456e+02_rb,5.9902e+02_rb,5.1343e+02_rb,4.2785e+02_rb,3.4230e+02_rb,2.5672e+02_rb, &
+     &1.7115e+02_rb,8.5572e+01_rb,2.7818e-01_rb/)
+      kao(:, 3, 7,14) = (/ &
+     &6.4547e+02_rb,5.6482e+02_rb,4.8412e+02_rb,4.0342e+02_rb,3.2273e+02_rb,2.4204e+02_rb, &
+     &1.6137e+02_rb,8.0688e+01_rb,3.8833e-01_rb/)
+      kao(:, 4, 7,14) = (/ &
+     &6.0978e+02_rb,5.3357e+02_rb,4.5735e+02_rb,3.8114e+02_rb,3.0489e+02_rb,2.2868e+02_rb, &
+     &1.5246e+02_rb,7.6224e+01_rb,5.4866e-01_rb/)
+      kao(:, 5, 7,14) = (/ &
+     &5.7729e+02_rb,5.0509e+02_rb,4.3294e+02_rb,3.6078e+02_rb,2.8862e+02_rb,2.1646e+02_rb, &
+     &1.4432e+02_rb,7.2163e+01_rb,7.7837e-01_rb/)
+      kao(:, 1, 8,14) = (/ &
+     &1.7967e+03_rb,1.5721e+03_rb,1.3476e+03_rb,1.1230e+03_rb,8.9837e+02_rb,6.7379e+02_rb, &
+     &4.4917e+02_rb,2.2458e+02_rb,1.7788e-01_rb/)
+      kao(:, 2, 8,14) = (/ &
+     &1.7006e+03_rb,1.4881e+03_rb,1.2754e+03_rb,1.0629e+03_rb,8.5028e+02_rb,6.3778e+02_rb, &
+     &4.2515e+02_rb,2.1258e+02_rb,2.5421e-01_rb/)
+      kao(:, 3, 8,14) = (/ &
+     &1.6106e+03_rb,1.4094e+03_rb,1.2079e+03_rb,1.0068e+03_rb,8.0532e+02_rb,6.0404e+02_rb, &
+     &4.0268e+02_rb,2.0135e+02_rb,3.5995e-01_rb/)
+      kao(:, 4, 8,14) = (/ &
+     &1.5246e+03_rb,1.3340e+03_rb,1.1435e+03_rb,9.5278e+02_rb,7.6226e+02_rb,5.7172e+02_rb, &
+     &3.8114e+02_rb,1.9058e+02_rb,4.9908e-01_rb/)
+      kao(:, 5, 8,14) = (/ &
+     &1.4465e+03_rb,1.2656e+03_rb,1.0849e+03_rb,9.0407e+02_rb,7.2320e+02_rb,5.4242e+02_rb, &
+     &3.6158e+02_rb,1.8081e+02_rb,6.9586e-01_rb/)
+      kao(:, 1, 9,14) = (/ &
+     &8.4840e+03_rb,7.4233e+03_rb,6.3628e+03_rb,5.3023e+03_rb,4.2423e+03_rb,3.1813e+03_rb, &
+     &2.1210e+03_rb,1.0605e+03_rb,1.5591e-01_rb/)
+      kao(:, 2, 9,14) = (/ &
+     &8.0479e+03_rb,7.0418e+03_rb,6.0359e+03_rb,5.0301e+03_rb,4.0241e+03_rb,3.0180e+03_rb, &
+     &2.0121e+03_rb,1.0060e+03_rb,2.2879e-01_rb/)
+      kao(:, 3, 9,14) = (/ &
+     &7.6325e+03_rb,6.6786e+03_rb,5.7241e+03_rb,4.7707e+03_rb,3.8161e+03_rb,2.8622e+03_rb, &
+     &1.9081e+03_rb,9.5403e+02_rb,3.3113e-01_rb/)
+      kao(:, 4, 9,14) = (/ &
+     &7.2431e+03_rb,6.3376e+03_rb,5.4325e+03_rb,4.5268e+03_rb,3.6217e+03_rb,2.7162e+03_rb, &
+     &1.8109e+03_rb,9.0539e+02_rb,4.6545e-01_rb/)
+      kao(:, 5, 9,14) = (/ &
+     &6.8956e+03_rb,6.0340e+03_rb,5.1720e+03_rb,4.3099e+03_rb,3.4482e+03_rb,2.5859e+03_rb, &
+     &1.7240e+03_rb,8.6204e+02_rb,6.4091e-01_rb/)
+      kao(:, 1,10,14) = (/ &
+     &4.4703e+04_rb,3.9114e+04_rb,3.3523e+04_rb,2.7938e+04_rb,2.2351e+04_rb,1.6764e+04_rb, &
+     &1.1175e+04_rb,5.5874e+03_rb,4.1455e-02_rb/)
+      kao(:, 2,10,14) = (/ &
+     &4.2474e+04_rb,3.7167e+04_rb,3.1854e+04_rb,2.6544e+04_rb,2.1238e+04_rb,1.5927e+04_rb, &
+     &1.0619e+04_rb,5.3089e+03_rb,6.6750e-02_rb/)
+      kao(:, 3,10,14) = (/ &
+     &4.0460e+04_rb,3.5405e+04_rb,3.0347e+04_rb,2.5289e+04_rb,2.0232e+04_rb,1.5174e+04_rb, &
+     &1.0116e+04_rb,5.0578e+03_rb,2.7442e-01_rb/)
+      kao(:, 4,10,14) = (/ &
+     &3.8625e+04_rb,3.3797e+04_rb,2.8970e+04_rb,2.4141e+04_rb,1.9313e+04_rb,1.4484e+04_rb, &
+     &9.6562e+03_rb,4.8282e+03_rb,4.4714e-01_rb/)
+      kao(:, 5,10,14) = (/ &
+     &3.6998e+04_rb,3.2375e+04_rb,2.7750e+04_rb,2.3124e+04_rb,1.8498e+04_rb,1.3874e+04_rb, &
+     &9.2495e+03_rb,4.6247e+03_rb,6.1795e-01_rb/)
+      kao(:, 1,11,14) = (/ &
+     &8.0689e+04_rb,7.0605e+04_rb,6.0514e+04_rb,5.0431e+04_rb,4.0345e+04_rb,3.0258e+04_rb, &
+     &2.0175e+04_rb,1.0088e+04_rb,2.7556e-05_rb/)
+      kao(:, 2,11,14) = (/ &
+     &7.7103e+04_rb,6.7463e+04_rb,5.7832e+04_rb,4.8186e+04_rb,3.8550e+04_rb,2.8913e+04_rb, &
+     &1.9275e+04_rb,9.6376e+03_rb,4.0930e-02_rb/)
+      kao(:, 3,11,14) = (/ &
+     &7.3820e+04_rb,6.4596e+04_rb,5.5369e+04_rb,4.6139e+04_rb,3.6913e+04_rb,2.7687e+04_rb, &
+     &1.8457e+04_rb,9.2272e+03_rb,8.1894e-02_rb/)
+      kao(:, 4,11,14) = (/ &
+     &7.1047e+04_rb,6.2162e+04_rb,5.3281e+04_rb,4.4402e+04_rb,3.5522e+04_rb,2.6643e+04_rb, &
+     &1.7761e+04_rb,8.8802e+03_rb,2.3203e-01_rb/)
+      kao(:, 5,11,14) = (/ &
+     &6.8729e+04_rb,6.0139e+04_rb,5.1549e+04_rb,4.2956e+04_rb,3.4366e+04_rb,2.5774e+04_rb, &
+     &1.7184e+04_rb,8.5912e+03_rb,5.4821e-01_rb/)
+      kao(:, 1,12,14) = (/ &
+     &1.0931e+05_rb,9.5652e+04_rb,8.1990e+04_rb,6.8319e+04_rb,5.4655e+04_rb,4.0991e+04_rb, &
+     &2.7328e+04_rb,1.3665e+04_rb,2.8846e-05_rb/)
+      kao(:, 2,12,14) = (/ &
+     &1.0521e+05_rb,9.2062e+04_rb,7.8903e+04_rb,6.5759e+04_rb,5.2606e+04_rb,3.9453e+04_rb, &
+     &2.6301e+04_rb,1.3151e+04_rb,4.7358e-02_rb/)
+      kao(:, 3,12,14) = (/ &
+     &1.0163e+05_rb,8.8927e+04_rb,7.6219e+04_rb,6.3520e+04_rb,5.0816e+04_rb,3.8110e+04_rb, &
+     &2.5405e+04_rb,1.2704e+04_rb,2.4382e-02_rb/)
+      kao(:, 4,12,14) = (/ &
+     &9.8710e+04_rb,8.6365e+04_rb,7.4034e+04_rb,6.1691e+04_rb,4.9353e+04_rb,3.7016e+04_rb, &
+     &2.4677e+04_rb,1.2338e+04_rb,1.4381e-01_rb/)
+      kao(:, 5,12,14) = (/ &
+     &9.6361e+04_rb,8.4318e+04_rb,7.2271e+04_rb,6.0231e+04_rb,4.8183e+04_rb,3.6135e+04_rb, &
+     &2.4090e+04_rb,1.2044e+04_rb,3.4843e-01_rb/)
+      kao(:, 1,13,14) = (/ &
+     &1.2026e+05_rb,1.0522e+05_rb,9.0197e+04_rb,7.5158e+04_rb,6.0121e+04_rb,4.5095e+04_rb, &
+     &3.0062e+04_rb,1.5030e+04_rb,2.3562e-05_rb/)
+      kao(:, 2,13,14) = (/ &
+     &1.1659e+05_rb,1.0201e+05_rb,8.7436e+04_rb,7.2864e+04_rb,5.8293e+04_rb,4.3717e+04_rb, &
+     &2.9144e+04_rb,1.4573e+04_rb,1.6351e-02_rb/)
+      kao(:, 3,13,14) = (/ &
+     &1.1367e+05_rb,9.9464e+04_rb,8.5255e+04_rb,7.1046e+04_rb,5.6835e+04_rb,4.2627e+04_rb, &
+     &2.8420e+04_rb,1.4209e+04_rb,2.9522e-02_rb/)
+      kao(:, 4,13,14) = (/ &
+     &1.1129e+05_rb,9.7380e+04_rb,8.3472e+04_rb,6.9552e+04_rb,5.5648e+04_rb,4.1732e+04_rb, &
+     &2.7823e+04_rb,1.3911e+04_rb,7.5810e-02_rb/)
+      kao(:, 5,13,14) = (/ &
+     &1.0918e+05_rb,9.5534e+04_rb,8.1880e+04_rb,6.8241e+04_rb,5.4595e+04_rb,4.0946e+04_rb, &
+     &2.7297e+04_rb,1.3648e+04_rb,2.4333e-01_rb/)
+      kao(:, 1, 1,15) = (/ &
+     &1.0978e+01_rb,9.6088e+00_rb,8.2350e+00_rb,6.8632e+00_rb,5.4910e+00_rb,4.1182e+00_rb, &
+     &2.7459e+00_rb,1.3741e+00_rb,7.5097e-01_rb/)
+      kao(:, 2, 1,15) = (/ &
+     &1.0420e+01_rb,9.1192e+00_rb,7.8159e+00_rb,6.5136e+00_rb,5.2114e+00_rb,3.9092e+00_rb, &
+     &2.6067e+00_rb,1.3044e+00_rb,1.0341e+00_rb/)
+      kao(:, 3, 1,15) = (/ &
+     &9.8688e+00_rb,8.6360e+00_rb,7.4026e+00_rb,6.1689e+00_rb,4.9358e+00_rb,3.7018e+00_rb, &
+     &2.4689e+00_rb,1.2355e+00_rb,1.3726e+00_rb/)
+      kao(:, 4, 1,15) = (/ &
+     &9.3623e+00_rb,8.1910e+00_rb,7.0229e+00_rb,5.8526e+00_rb,4.6825e+00_rb,3.5124e+00_rb, &
+     &2.3423e+00_rb,1.1838e+00_rb,1.7645e+00_rb/)
+      kao(:, 5, 1,15) = (/ &
+     &8.8716e+00_rb,7.7621e+00_rb,6.6540e+00_rb,5.5450e+00_rb,4.4367e+00_rb,3.3283e+00_rb, &
+     &2.2197e+00_rb,1.4532e+00_rb,2.2082e+00_rb/)
+      kao(:, 1, 2,15) = (/ &
+     &1.7872e+01_rb,1.5635e+01_rb,1.3402e+01_rb,1.1169e+01_rb,8.9360e+00_rb,6.7019e+00_rb, &
+     &4.4692e+00_rb,2.2349e+00_rb,7.8713e-01_rb/)
+      kao(:, 2, 2,15) = (/ &
+     &1.6936e+01_rb,1.4818e+01_rb,1.2703e+01_rb,1.0586e+01_rb,8.4684e+00_rb,6.3517e+00_rb, &
+     &4.2352e+00_rb,2.1186e+00_rb,1.1015e+00_rb/)
+      kao(:, 3, 2,15) = (/ &
+     &1.6019e+01_rb,1.4019e+01_rb,1.2014e+01_rb,1.0011e+01_rb,8.0107e+00_rb,6.0080e+00_rb, &
+     &4.0069e+00_rb,2.0039e+00_rb,1.4812e+00_rb/)
+      kao(:, 4, 2,15) = (/ &
+     &1.5152e+01_rb,1.3257e+01_rb,1.1364e+01_rb,9.4698e+00_rb,7.5770e+00_rb,5.6829e+00_rb, &
+     &3.7895e+00_rb,1.8958e+00_rb,1.9253e+00_rb/)
+      kao(:, 5, 2,15) = (/ &
+     &1.4341e+01_rb,1.2547e+01_rb,1.0755e+01_rb,8.9625e+00_rb,7.1702e+00_rb,5.3783e+00_rb, &
+     &3.5866e+00_rb,1.8251e+00_rb,2.4314e+00_rb/)
+      kao(:, 1, 3,15) = (/ &
+     &3.9644e+01_rb,3.4688e+01_rb,2.9736e+01_rb,2.4782e+01_rb,1.9827e+01_rb,1.4870e+01_rb, &
+     &9.9132e+00_rb,4.9569e+00_rb,7.5098e-01_rb/)
+      kao(:, 2, 3,15) = (/ &
+     &3.7522e+01_rb,3.2831e+01_rb,2.8147e+01_rb,2.3453e+01_rb,1.8762e+01_rb,1.4073e+01_rb, &
+     &9.3827e+00_rb,4.6920e+00_rb,1.0782e+00_rb/)
+      kao(:, 3, 3,15) = (/ &
+     &3.5460e+01_rb,3.1027e+01_rb,2.6599e+01_rb,2.2162e+01_rb,1.7731e+01_rb,1.3300e+01_rb, &
+     &8.8666e+00_rb,4.4344e+00_rb,1.4809e+00_rb/)
+      kao(:, 4, 3,15) = (/ &
+     &3.3460e+01_rb,2.9273e+01_rb,2.5092e+01_rb,2.0911e+01_rb,1.6733e+01_rb,1.2547e+01_rb, &
+     &8.3663e+00_rb,4.1837e+00_rb,1.9598e+00_rb/)
+      kao(:, 5, 3,15) = (/ &
+     &3.1621e+01_rb,2.7670e+01_rb,2.3718e+01_rb,1.9764e+01_rb,1.5811e+01_rb,1.1859e+01_rb, &
+     &7.9074e+00_rb,3.9548e+00_rb,2.5132e+00_rb/)
+      kao(:, 1, 4,15) = (/ &
+     &9.0592e+01_rb,7.9274e+01_rb,6.7952e+01_rb,5.6623e+01_rb,4.5292e+01_rb,3.3974e+01_rb, &
+     &2.2650e+01_rb,1.1327e+01_rb,6.7358e-01_rb/)
+      kao(:, 2, 4,15) = (/ &
+     &8.5357e+01_rb,7.4682e+01_rb,6.4009e+01_rb,5.3347e+01_rb,4.2676e+01_rb,3.2015e+01_rb, &
+     &2.1340e+01_rb,1.0671e+01_rb,9.9693e-01_rb/)
+      kao(:, 3, 4,15) = (/ &
+     &8.0608e+01_rb,7.0531e+01_rb,6.0449e+01_rb,5.0384e+01_rb,4.0308e+01_rb,3.0230e+01_rb, &
+     &2.0154e+01_rb,1.0079e+01_rb,1.4044e+00_rb/)
+      kao(:, 4, 4,15) = (/ &
+     &7.6021e+01_rb,6.6519e+01_rb,5.7017e+01_rb,4.7513e+01_rb,3.8009e+01_rb,2.8510e+01_rb, &
+     &1.9006e+01_rb,9.5047e+00_rb,1.8983e+00_rb/)
+      kao(:, 5, 4,15) = (/ &
+     &7.1646e+01_rb,6.2695e+01_rb,5.3735e+01_rb,4.4783e+01_rb,3.5822e+01_rb,2.6870e+01_rb, &
+     &1.7917e+01_rb,8.9586e+00_rb,2.4776e+00_rb/)
+      kao(:, 1, 5,15) = (/ &
+     &1.9065e+02_rb,1.6683e+02_rb,1.4299e+02_rb,1.1917e+02_rb,9.5320e+01_rb,7.1489e+01_rb, &
+     &4.7665e+01_rb,2.3834e+01_rb,5.8170e-01_rb/)
+      kao(:, 2, 5,15) = (/ &
+     &1.7924e+02_rb,1.5681e+02_rb,1.3443e+02_rb,1.1201e+02_rb,8.9613e+01_rb,6.7209e+01_rb, &
+     &4.4814e+01_rb,2.2406e+01_rb,8.9003e-01_rb/)
+      kao(:, 3, 5,15) = (/ &
+     &1.6878e+02_rb,1.4769e+02_rb,1.2660e+02_rb,1.0549e+02_rb,8.4396e+01_rb,6.3295e+01_rb, &
+     &4.2198e+01_rb,2.1098e+01_rb,1.2889e+00_rb/)
+      kao(:, 4, 5,15) = (/ &
+     &1.5901e+02_rb,1.3914e+02_rb,1.1927e+02_rb,9.9403e+01_rb,7.9524e+01_rb,5.9641e+01_rb, &
+     &3.9759e+01_rb,1.9881e+01_rb,1.7818e+00_rb/)
+      kao(:, 5, 5,15) = (/ &
+     &1.4967e+02_rb,1.3098e+02_rb,1.1227e+02_rb,9.3560e+01_rb,7.4846e+01_rb,5.6123e+01_rb, &
+     &3.7423e+01_rb,1.8714e+01_rb,2.3703e+00_rb/)
+      kao(:, 1, 6,15) = (/ &
+     &3.7689e+02_rb,3.2969e+02_rb,2.8264e+02_rb,2.3553e+02_rb,1.8841e+02_rb,1.4134e+02_rb, &
+     &9.4214e+01_rb,4.7104e+01_rb,4.7634e-01_rb/)
+      kao(:, 2, 6,15) = (/ &
+     &3.5386e+02_rb,3.0960e+02_rb,2.6540e+02_rb,2.2119e+02_rb,1.7694e+02_rb,1.3270e+02_rb, &
+     &8.8456e+01_rb,4.4232e+01_rb,7.5759e-01_rb/)
+      kao(:, 3, 6,15) = (/ &
+     &3.3202e+02_rb,2.9052e+02_rb,2.4901e+02_rb,2.0752e+02_rb,1.6601e+02_rb,1.2451e+02_rb, &
+     &8.3003e+01_rb,4.1506e+01_rb,1.1321e+00_rb/)
+      kao(:, 4, 6,15) = (/ &
+     &3.1280e+02_rb,2.7368e+02_rb,2.3460e+02_rb,1.9550e+02_rb,1.5640e+02_rb,1.1729e+02_rb, &
+     &7.8200e+01_rb,3.9102e+01_rb,1.6067e+00_rb/)
+      kao(:, 5, 6,15) = (/ &
+     &2.9457e+02_rb,2.5772e+02_rb,2.2093e+02_rb,1.8412e+02_rb,1.4729e+02_rb,1.1048e+02_rb, &
+     &7.3641e+01_rb,3.6825e+01_rb,2.1838e+00_rb/)
+      kao(:, 1, 7,15) = (/ &
+     &7.8539e+02_rb,6.8719e+02_rb,5.8900e+02_rb,4.9081e+02_rb,3.9268e+02_rb,2.9449e+02_rb, &
+     &1.9633e+02_rb,9.8167e+01_rb,3.8693e-01_rb/)
+      kao(:, 2, 7,15) = (/ &
+     &7.3697e+02_rb,6.4481e+02_rb,5.5276e+02_rb,4.6063e+02_rb,3.6848e+02_rb,2.7636e+02_rb, &
+     &1.8426e+02_rb,9.2135e+01_rb,6.2265e-01_rb/)
+      kao(:, 3, 7,15) = (/ &
+     &6.9166e+02_rb,6.0516e+02_rb,5.1875e+02_rb,4.3231e+02_rb,3.4580e+02_rb,2.5935e+02_rb, &
+     &1.7293e+02_rb,8.6458e+01_rb,9.6225e-01_rb/)
+      kao(:, 4, 7,15) = (/ &
+     &6.5012e+02_rb,5.6880e+02_rb,4.8758e+02_rb,4.0634e+02_rb,3.2506e+02_rb,2.4380e+02_rb, &
+     &1.6251e+02_rb,8.1260e+01_rb,1.4063e+00_rb/)
+      kao(:, 5, 7,15) = (/ &
+     &6.1251e+02_rb,5.3595e+02_rb,4.5937e+02_rb,3.8280e+02_rb,3.0627e+02_rb,2.2970e+02_rb, &
+     &1.5314e+02_rb,7.6572e+01_rb,1.9665e+00_rb/)
+      kao(:, 1, 8,15) = (/ &
+     &1.9678e+03_rb,1.7217e+03_rb,1.4759e+03_rb,1.2298e+03_rb,9.8389e+02_rb,7.3793e+02_rb, &
+     &4.9200e+02_rb,2.4597e+02_rb,3.3326e-01_rb/)
+      kao(:, 2, 8,15) = (/ &
+     &1.8454e+03_rb,1.6147e+03_rb,1.3840e+03_rb,1.1533e+03_rb,9.2274e+02_rb,6.9199e+02_rb, &
+     &4.6133e+02_rb,2.3066e+02_rb,5.2281e-01_rb/)
+      kao(:, 3, 8,15) = (/ &
+     &1.7316e+03_rb,1.5151e+03_rb,1.2986e+03_rb,1.0821e+03_rb,8.6576e+02_rb,6.4926e+02_rb, &
+     &4.3287e+02_rb,2.1643e+02_rb,8.0537e-01_rb/)
+      kao(:, 4, 8,15) = (/ &
+     &1.6274e+03_rb,1.4239e+03_rb,1.2204e+03_rb,1.0169e+03_rb,8.1360e+02_rb,6.1025e+02_rb, &
+     &4.0681e+02_rb,2.0342e+02_rb,1.2167e+00_rb/)
+      kao(:, 5, 8,15) = (/ &
+     &1.5364e+03_rb,1.3443e+03_rb,1.1523e+03_rb,9.6013e+02_rb,7.6820e+02_rb,5.7614e+02_rb, &
+     &3.8407e+02_rb,1.9205e+02_rb,1.7524e+00_rb/)
+      kao(:, 1, 9,15) = (/ &
+     &9.3073e+03_rb,8.1544e+03_rb,6.9894e+03_rb,5.8248e+03_rb,4.6604e+03_rb,3.4950e+03_rb, &
+     &2.3299e+03_rb,1.1651e+03_rb,2.9954e-01_rb/)
+      kao(:, 2, 9,15) = (/ &
+     &8.7551e+03_rb,7.6608e+03_rb,6.5662e+03_rb,5.4720e+03_rb,4.3776e+03_rb,3.2831e+03_rb, &
+     &2.1886e+03_rb,1.0944e+03_rb,4.5642e-01_rb/)
+      kao(:, 3, 9,15) = (/ &
+     &8.2482e+03_rb,7.2167e+03_rb,6.1860e+03_rb,5.1552e+03_rb,4.1239e+03_rb,3.0929e+03_rb, &
+     &2.0618e+03_rb,1.0309e+03_rb,6.9066e-01_rb/)
+      kao(:, 4, 9,15) = (/ &
+     &7.8082e+03_rb,6.8324e+03_rb,5.8568e+03_rb,4.8805e+03_rb,3.9039e+03_rb,2.9280e+03_rb, &
+     &1.9520e+03_rb,9.7612e+02_rb,1.0400e+00_rb/)
+      kao(:, 5, 9,15) = (/ &
+     &7.4317e+03_rb,6.5021e+03_rb,5.5734e+03_rb,4.6446e+03_rb,3.7157e+03_rb,2.7869e+03_rb, &
+     &1.8578e+03_rb,9.2892e+02_rb,1.5452e+00_rb/)
+      kao(:, 1,10,15) = (/ &
+     &4.9432e+04_rb,4.3258e+04_rb,3.7074e+04_rb,3.0897e+04_rb,2.4721e+04_rb,1.8537e+04_rb, &
+     &1.2358e+04_rb,6.1790e+03_rb,1.8223e-01_rb/)
+      kao(:, 2,10,15) = (/ &
+     &4.6742e+04_rb,4.0903e+04_rb,3.5058e+04_rb,2.9212e+04_rb,2.3371e+04_rb,1.7528e+04_rb, &
+     &1.1686e+04_rb,5.8428e+03_rb,4.2300e-01_rb/)
+      kao(:, 3,10,15) = (/ &
+     &4.4467e+04_rb,3.8905e+04_rb,3.3347e+04_rb,2.7787e+04_rb,2.2232e+04_rb,1.6675e+04_rb, &
+     &1.1116e+04_rb,5.5580e+03_rb,6.2837e-01_rb/)
+      kao(:, 4,10,15) = (/ &
+     &4.2571e+04_rb,3.7248e+04_rb,3.1929e+04_rb,2.6604e+04_rb,2.1284e+04_rb,1.5965e+04_rb, &
+     &1.0643e+04_rb,5.3212e+03_rb,9.2886e-01_rb/)
+      kao(:, 5,10,15) = (/ &
+     &4.1045e+04_rb,3.5912e+04_rb,3.0783e+04_rb,2.5652e+04_rb,2.0522e+04_rb,1.5392e+04_rb, &
+     &1.0261e+04_rb,5.1304e+03_rb,1.3856e+00_rb/)
+      kao(:, 1,11,15) = (/ &
+     &9.0769e+04_rb,7.9427e+04_rb,6.8076e+04_rb,5.6731e+04_rb,4.5387e+04_rb,3.4039e+04_rb, &
+     &2.2692e+04_rb,1.1348e+04_rb,6.3351e-06_rb/)
+      kao(:, 2,11,15) = (/ &
+     &8.7118e+04_rb,7.6228e+04_rb,6.5339e+04_rb,5.4453e+04_rb,4.3558e+04_rb,3.2668e+04_rb, &
+     &2.1780e+04_rb,1.0890e+04_rb,1.2897e-01_rb/)
+      kao(:, 3,11,15) = (/ &
+     &8.4111e+04_rb,7.3597e+04_rb,6.3086e+04_rb,5.2568e+04_rb,4.2058e+04_rb,3.1544e+04_rb, &
+     &2.1027e+04_rb,1.0514e+04_rb,3.6063e-01_rb/)
+      kao(:, 4,11,15) = (/ &
+     &8.1812e+04_rb,7.1584e+04_rb,6.1356e+04_rb,5.1132e+04_rb,4.0904e+04_rb,3.0678e+04_rb, &
+     &2.0453e+04_rb,1.0225e+04_rb,8.1674e-01_rb/)
+      kao(:, 5,11,15) = (/ &
+     &7.9895e+04_rb,6.9910e+04_rb,5.9923e+04_rb,4.9935e+04_rb,3.9950e+04_rb,2.9961e+04_rb, &
+     &1.9975e+04_rb,9.9870e+03_rb,1.4894e+00_rb/)
+      kao(:, 1,12,15) = (/ &
+     &1.2814e+05_rb,1.1213e+05_rb,9.6104e+04_rb,8.0085e+04_rb,6.4069e+04_rb,4.8051e+04_rb, &
+     &3.2036e+04_rb,1.6017e+04_rb,4.6990e-06_rb/)
+      kao(:, 2,12,15) = (/ &
+     &1.2486e+05_rb,1.0925e+05_rb,9.3637e+04_rb,7.8034e+04_rb,6.2430e+04_rb,4.6820e+04_rb, &
+     &3.1210e+04_rb,1.5606e+04_rb,1.4051e-05_rb/)
+      kao(:, 3,12,15) = (/ &
+     &1.2228e+05_rb,1.0700e+05_rb,9.1710e+04_rb,7.6429e+04_rb,6.1136e+04_rb,4.5856e+04_rb, &
+     &3.0569e+04_rb,1.5285e+04_rb,1.5080e-01_rb/)
+      kao(:, 4,12,15) = (/ &
+     &1.2022e+05_rb,1.0520e+05_rb,9.0163e+04_rb,7.5135e+04_rb,6.0115e+04_rb,4.5084e+04_rb, &
+     &3.0055e+04_rb,1.5027e+04_rb,4.4115e-01_rb/)
+      kao(:, 5,12,15) = (/ &
+     &1.1876e+05_rb,1.0392e+05_rb,8.9071e+04_rb,7.4229e+04_rb,5.9383e+04_rb,4.4534e+04_rb, &
+     &2.9691e+04_rb,1.4845e+04_rb,1.2230e+00_rb/)
+      kao(:, 1,13,15) = (/ &
+     &1.4959e+05_rb,1.3089e+05_rb,1.1219e+05_rb,9.3492e+04_rb,7.4791e+04_rb,5.6100e+04_rb, &
+     &3.7396e+04_rb,1.8698e+04_rb,1.6068e-05_rb/)
+      kao(:, 2,13,15) = (/ &
+     &1.4739e+05_rb,1.2897e+05_rb,1.1053e+05_rb,9.2121e+04_rb,7.3693e+04_rb,5.5270e+04_rb, &
+     &3.6845e+04_rb,1.8424e+04_rb,2.4216e-05_rb/)
+      kao(:, 3,13,15) = (/ &
+     &1.4569e+05_rb,1.2748e+05_rb,1.0927e+05_rb,9.1057e+04_rb,7.2849e+04_rb,5.4630e+04_rb, &
+     &3.6423e+04_rb,1.8211e+04_rb,2.3267e-01_rb/)
+      kao(:, 4,13,15) = (/ &
+     &1.4449e+05_rb,1.2643e+05_rb,1.0837e+05_rb,9.0297e+04_rb,7.2240e+04_rb,5.4184e+04_rb, &
+     &3.6121e+04_rb,1.8059e+04_rb,3.2297e-01_rb/)
+      kao(:, 5,13,15) = (/ &
+     &1.4334e+05_rb,1.2542e+05_rb,1.0750e+05_rb,8.9583e+04_rb,7.1673e+04_rb,5.3754e+04_rb, &
+     &3.5834e+04_rb,1.7916e+04_rb,9.5703e-01_rb/)
+      kao(:, 1, 1,16) = (/ &
+     &1.1012e+01_rb,9.6385e+00_rb,8.2597e+00_rb,6.8841e+00_rb,5.5077e+00_rb,4.1310e+00_rb, &
+     &2.7545e+00_rb,1.3780e+00_rb,8.0170e-01_rb/)
+      kao(:, 2, 1,16) = (/ &
+     &1.0449e+01_rb,9.1438e+00_rb,7.8382e+00_rb,6.5335e+00_rb,5.2262e+00_rb,3.9202e+00_rb, &
+     &2.6149e+00_rb,1.3083e+00_rb,1.1089e+00_rb/)
+      kao(:, 3, 1,16) = (/ &
+     &9.8963e+00_rb,8.6604e+00_rb,7.4233e+00_rb,6.1853e+00_rb,4.9489e+00_rb,3.7122e+00_rb, &
+     &2.4757e+00_rb,1.2390e+00_rb,1.4762e+00_rb/)
+      kao(:, 4, 1,16) = (/ &
+     &9.3879e+00_rb,8.2127e+00_rb,7.0407e+00_rb,5.8670e+00_rb,4.6947e+00_rb,3.5210e+00_rb, &
+     &2.3483e+00_rb,1.2086e+00_rb,1.9022e+00_rb/)
+      kao(:, 5, 1,16) = (/ &
+     &8.8935e+00_rb,7.7813e+00_rb,6.6705e+00_rb,5.5589e+00_rb,4.4480e+00_rb,3.3366e+00_rb, &
+     &2.2250e+00_rb,1.5141e+00_rb,2.3892e+00_rb/)
+      kao(:, 1, 2,16) = (/ &
+     &1.7937e+01_rb,1.5695e+01_rb,1.3452e+01_rb,1.1211e+01_rb,8.9664e+00_rb,6.7267e+00_rb, &
+     &4.4861e+00_rb,2.2435e+00_rb,8.6848e-01_rb/)
+      kao(:, 2, 2,16) = (/ &
+     &1.6997e+01_rb,1.4871e+01_rb,1.2749e+01_rb,1.0624e+01_rb,8.4984e+00_rb,6.3745e+00_rb, &
+     &4.2497e+00_rb,2.1262e+00_rb,1.2205e+00_rb/)
+      kao(:, 3, 2,16) = (/ &
+     &1.6073e+01_rb,1.4067e+01_rb,1.2054e+01_rb,1.0046e+01_rb,8.0383e+00_rb,6.0294e+00_rb, &
+     &4.0202e+00_rb,2.0108e+00_rb,1.6477e+00_rb/)
+      kao(:, 4, 2,16) = (/ &
+     &1.5204e+01_rb,1.3304e+01_rb,1.1402e+01_rb,9.4999e+00_rb,7.6031e+00_rb,5.7017e+00_rb, &
+     &3.8022e+00_rb,1.9021e+00_rb,2.1539e+00_rb/)
+      kao(:, 5, 2,16) = (/ &
+     &1.4385e+01_rb,1.2589e+01_rb,1.0791e+01_rb,8.9907e+00_rb,7.1928e+00_rb,5.3962e+00_rb, &
+     &3.5994e+00_rb,1.9006e+00_rb,2.7317e+00_rb/)
+      kao(:, 1, 3,16) = (/ &
+     &3.9826e+01_rb,3.4837e+01_rb,2.9874e+01_rb,2.4893e+01_rb,1.9916e+01_rb,1.4937e+01_rb, &
+     &9.9605e+00_rb,4.9801e+00_rb,8.6605e-01_rb/)
+      kao(:, 2, 3,16) = (/ &
+     &3.7687e+01_rb,3.2981e+01_rb,2.8272e+01_rb,2.3555e+01_rb,1.8843e+01_rb,1.4136e+01_rb, &
+     &9.4254e+00_rb,4.7126e+00_rb,1.2506e+00_rb/)
+      kao(:, 3, 3,16) = (/ &
+     &3.5608e+01_rb,3.1162e+01_rb,2.6711e+01_rb,2.2256e+01_rb,1.7812e+01_rb,1.3358e+01_rb, &
+     &8.9032e+00_rb,4.4535e+00_rb,1.7305e+00_rb/)
+      kao(:, 4, 3,16) = (/ &
+     &3.3599e+01_rb,2.9402e+01_rb,2.5206e+01_rb,2.1000e+01_rb,1.6804e+01_rb,1.2601e+01_rb, &
+     &8.4019e+00_rb,4.2020e+00_rb,2.3040e+00_rb/)
+      kao(:, 5, 3,16) = (/ &
+     &3.1757e+01_rb,2.7783e+01_rb,2.3809e+01_rb,1.9848e+01_rb,1.5875e+01_rb,1.1908e+01_rb, &
+     &7.9407e+00_rb,3.9713e+00_rb,2.9736e+00_rb/)
+      kao(:, 1, 4,16) = (/ &
+     &9.1010e+01_rb,7.9617e+01_rb,6.8261e+01_rb,5.6883e+01_rb,4.5501e+01_rb,3.4135e+01_rb, &
+     &2.2756e+01_rb,1.1381e+01_rb,8.2098e-01_rb/)
+      kao(:, 2, 4,16) = (/ &
+     &8.5710e+01_rb,7.5003e+01_rb,6.4275e+01_rb,5.3587e+01_rb,4.2849e+01_rb,3.2139e+01_rb, &
+     &2.1425e+01_rb,1.0717e+01_rb,1.2260e+00_rb/)
+      kao(:, 3, 4,16) = (/ &
+     &8.0903e+01_rb,7.0806e+01_rb,6.0673e+01_rb,5.0561e+01_rb,4.0455e+01_rb,3.0343e+01_rb, &
+     &2.0221e+01_rb,1.0019e+01_rb,1.7427e+00_rb/)
+      kao(:, 4, 4,16) = (/ &
+     &7.6250e+01_rb,6.6729e+01_rb,5.7190e+01_rb,4.7658e+01_rb,3.8119e+01_rb,2.8596e+01_rb, &
+     &1.9064e+01_rb,9.5357e+00_rb,2.3756e+00_rb/)
+      kao(:, 5, 4,16) = (/ &
+     &7.1845e+01_rb,6.2892e+01_rb,5.3881e+01_rb,4.4904e+01_rb,3.5931e+01_rb,2.6946e+01_rb, &
+     &1.7968e+01_rb,8.9829e+00_rb,3.1270e+00_rb/)
+      kao(:, 1, 5,16) = (/ &
+     &1.9171e+02_rb,1.6775e+02_rb,1.4380e+02_rb,1.1981e+02_rb,9.5875e+01_rb,7.1871e+01_rb, &
+     &4.7928e+01_rb,2.3964e+01_rb,7.5940e-01_rb/)
+      kao(:, 2, 5,16) = (/ &
+     &1.8016e+02_rb,1.5760e+02_rb,1.3509e+02_rb,1.1260e+02_rb,9.0071e+01_rb,6.7551e+01_rb, &
+     &4.5046e+01_rb,2.2517e+01_rb,1.1757e+00_rb/)
+      kao(:, 3, 5,16) = (/ &
+     &1.6962e+02_rb,1.4839e+02_rb,1.2718e+02_rb,1.0601e+02_rb,8.4813e+01_rb,6.3608e+01_rb, &
+     &4.2403e+01_rb,2.1198e+01_rb,1.7223e+00_rb/)
+      kao(:, 4, 5,16) = (/ &
+     &1.5982e+02_rb,1.3980e+02_rb,1.1984e+02_rb,9.9881e+01_rb,7.9889e+01_rb,5.9924e+01_rb, &
+     &3.9950e+01_rb,1.9975e+01_rb,2.4076e+00_rb/)
+      kao(:, 5, 5,16) = (/ &
+     &1.5041e+02_rb,1.3158e+02_rb,1.1281e+02_rb,9.3993e+01_rb,7.5196e+01_rb,5.6401e+01_rb, &
+     &3.7598e+01_rb,1.8805e+01_rb,3.2368e+00_rb/)
+      kao(:, 1, 6,16) = (/ &
+     &3.8096e+02_rb,3.3337e+02_rb,2.8576e+02_rb,2.3807e+02_rb,1.9047e+02_rb,1.4289e+02_rb, &
+     &9.5250e+01_rb,4.7621e+01_rb,6.7593e-01_rb/)
+      kao(:, 2, 6,16) = (/ &
+     &3.5801e+02_rb,3.1325e+02_rb,2.6851e+02_rb,2.2376e+02_rb,1.7905e+02_rb,1.3426e+02_rb, &
+     &8.9499e+01_rb,4.4742e+01_rb,1.0913e+00_rb/)
+      kao(:, 3, 6,16) = (/ &
+     &3.3608e+02_rb,2.9405e+02_rb,2.5208e+02_rb,2.1010e+02_rb,1.6803e+02_rb,1.2602e+02_rb, &
+     &8.4040e+01_rb,4.2005e+01_rb,1.6542e+00_rb/)
+      kao(:, 4, 6,16) = (/ &
+     &3.1667e+02_rb,2.7704e+02_rb,2.3752e+02_rb,1.9794e+02_rb,1.5835e+02_rb,1.1877e+02_rb, &
+     &7.9157e+01_rb,3.9584e+01_rb,2.3801e+00_rb/)
+      kao(:, 5, 6,16) = (/ &
+     &2.9810e+02_rb,2.6093e+02_rb,2.2364e+02_rb,1.8637e+02_rb,1.4910e+02_rb,1.1183e+02_rb, &
+     &7.4550e+01_rb,3.7278e+01_rb,3.2789e+00_rb/)
+      kao(:, 1, 7,16) = (/ &
+     &7.9749e+02_rb,6.9796e+02_rb,5.9825e+02_rb,4.9855e+02_rb,3.9886e+02_rb,2.9907e+02_rb, &
+     &1.9939e+02_rb,9.9689e+01_rb,5.8719e-01_rb/)
+      kao(:, 2, 7,16) = (/ &
+     &7.4948e+02_rb,6.5592e+02_rb,5.6211e+02_rb,4.6855e+02_rb,3.7478e+02_rb,2.8116e+02_rb, &
+     &1.8738e+02_rb,9.3692e+01_rb,9.9296e-01_rb/)
+      kao(:, 3, 7,16) = (/ &
+     &7.0403e+02_rb,6.1598e+02_rb,5.2804e+02_rb,4.4008e+02_rb,3.5206e+02_rb,2.6406e+02_rb, &
+     &1.7605e+02_rb,8.8000e+01_rb,1.5629e+00_rb/)
+      kao(:, 4, 7,16) = (/ &
+     &6.6205e+02_rb,5.7919e+02_rb,4.9648e+02_rb,4.1378e+02_rb,3.3107e+02_rb,2.4827e+02_rb, &
+     &1.6552e+02_rb,8.2766e+01_rb,2.3202e+00_rb/)
+      kao(:, 5, 7,16) = (/ &
+     &6.2380e+02_rb,5.4580e+02_rb,4.6792e+02_rb,3.8985e+02_rb,3.1191e+02_rb,2.3394e+02_rb, &
+     &1.5598e+02_rb,7.7978e+01_rb,3.2803e+00_rb/)
+      kao(:, 1, 8,16) = (/ &
+     &2.0029e+03_rb,1.7526e+03_rb,1.5027e+03_rb,1.2518e+03_rb,1.0017e+03_rb,7.5137e+02_rb, &
+     &5.0076e+02_rb,2.5041e+02_rb,5.0039e-01_rb/)
+      kao(:, 2, 8,16) = (/ &
+     &1.8839e+03_rb,1.6487e+03_rb,1.4132e+03_rb,1.1775e+03_rb,9.4211e+02_rb,7.0656e+02_rb, &
+     &4.7103e+02_rb,2.3550e+02_rb,8.8968e-01_rb/)
+      kao(:, 3, 8,16) = (/ &
+     &1.7724e+03_rb,1.5508e+03_rb,1.3295e+03_rb,1.1080e+03_rb,8.8638e+02_rb,6.6461e+02_rb, &
+     &4.4304e+02_rb,2.2162e+02_rb,1.4586e+00_rb/)
+      kao(:, 4, 8,16) = (/ &
+     &1.6681e+03_rb,1.4594e+03_rb,1.2510e+03_rb,1.0422e+03_rb,8.3394e+02_rb,6.2548e+02_rb, &
+     &4.1698e+02_rb,2.0850e+02_rb,2.2386e+00_rb/)
+      kao(:, 5, 8,16) = (/ &
+     &1.5734e+03_rb,1.3768e+03_rb,1.1803e+03_rb,9.8337e+02_rb,7.8678e+02_rb,5.9008e+02_rb, &
+     &3.9340e+02_rb,1.9668e+02_rb,3.2542e+00_rb/)
+      kao(:, 1, 9,16) = (/ &
+     &9.5422e+03_rb,8.3482e+03_rb,7.1572e+03_rb,5.9648e+03_rb,4.7724e+03_rb,3.5785e+03_rb, &
+     &2.3856e+03_rb,1.1929e+03_rb,4.1531e-01_rb/)
+      kao(:, 2, 9,16) = (/ &
+     &8.9979e+03_rb,7.8727e+03_rb,6.7481e+03_rb,5.6240e+03_rb,4.4988e+03_rb,3.3743e+03_rb, &
+     &2.2493e+03_rb,1.1247e+03_rb,7.8014e-01_rb/)
+      kao(:, 3, 9,16) = (/ &
+     &8.4879e+03_rb,7.4273e+03_rb,6.3662e+03_rb,5.3047e+03_rb,4.2442e+03_rb,3.1830e+03_rb, &
+     &2.1217e+03_rb,1.0610e+03_rb,1.3368e+00_rb/)
+      kao(:, 4, 9,16) = (/ &
+     &8.0145e+03_rb,7.0116e+03_rb,6.0099e+03_rb,5.0094e+03_rb,4.0072e+03_rb,3.0052e+03_rb, &
+     &2.0036e+03_rb,1.0018e+03_rb,2.1276e+00_rb/)
+      kao(:, 5, 9,16) = (/ &
+     &7.6138e+03_rb,6.6618e+03_rb,5.7100e+03_rb,4.7582e+03_rb,3.8067e+03_rb,2.8551e+03_rb, &
+     &1.9031e+03_rb,9.5177e+02_rb,3.1866e+00_rb/)
+      kao(:, 1,10,16) = (/ &
+     &5.0991e+04_rb,4.4616e+04_rb,3.8235e+04_rb,3.1865e+04_rb,2.5493e+04_rb,1.9119e+04_rb, &
+     &1.2748e+04_rb,6.3734e+03_rb,3.5386e-01_rb/)
+      kao(:, 2,10,16) = (/ &
+     &4.8246e+04_rb,4.2216e+04_rb,3.6189e+04_rb,3.0155e+04_rb,2.4122e+04_rb,1.8092e+04_rb, &
+     &1.2062e+04_rb,6.0316e+03_rb,7.0256e-01_rb/)
+      kao(:, 3,10,16) = (/ &
+     &4.5828e+04_rb,4.0101e+04_rb,3.4373e+04_rb,2.8642e+04_rb,2.2916e+04_rb,1.7187e+04_rb, &
+     &1.1458e+04_rb,5.7294e+03_rb,1.2547e+00_rb/)
+      kao(:, 4,10,16) = (/ &
+     &4.3978e+04_rb,3.8481e+04_rb,3.2983e+04_rb,2.7486e+04_rb,2.1988e+04_rb,1.6492e+04_rb, &
+     &1.0995e+04_rb,5.4969e+03_rb,2.0651e+00_rb/)
+      kao(:, 5,10,16) = (/ &
+     &4.2519e+04_rb,3.7205e+04_rb,3.1889e+04_rb,2.6577e+04_rb,2.1264e+04_rb,1.5948e+04_rb, &
+     &1.0631e+04_rb,5.3154e+03_rb,3.1779e+00_rb/)
+      kao(:, 1,11,16) = (/ &
+     &9.4155e+04_rb,8.2392e+04_rb,7.0618e+04_rb,5.8856e+04_rb,4.7081e+04_rb,3.5308e+04_rb, &
+     &2.3542e+04_rb,1.1770e+04_rb,6.1346e-06_rb/)
+      kao(:, 2,11,16) = (/ &
+     &9.0590e+04_rb,7.9258e+04_rb,6.7935e+04_rb,5.6620e+04_rb,4.5292e+04_rb,3.3967e+04_rb, &
+     &2.2646e+04_rb,1.1323e+04_rb,3.3281e-01_rb/)
+      kao(:, 3,11,16) = (/ &
+     &8.8119e+04_rb,7.7104e+04_rb,6.6094e+04_rb,5.5078e+04_rb,4.4061e+04_rb,3.3053e+04_rb, &
+     &2.2031e+04_rb,1.1015e+04_rb,1.5023e+00_rb/)
+      kao(:, 4,11,16) = (/ &
+     &8.6175e+04_rb,7.5401e+04_rb,6.4627e+04_rb,5.3860e+04_rb,4.3092e+04_rb,3.2317e+04_rb, &
+     &2.1545e+04_rb,1.0771e+04_rb,2.4696e+00_rb/)
+      kao(:, 5,11,16) = (/ &
+     &8.4570e+04_rb,7.4002e+04_rb,6.3432e+04_rb,5.2859e+04_rb,4.2288e+04_rb,3.1714e+04_rb, &
+     &2.1142e+04_rb,1.0572e+04_rb,3.7979e+00_rb/)
+      kao(:, 1,12,16) = (/ &
+     &1.3547e+05_rb,1.1853e+05_rb,1.0160e+05_rb,8.4660e+04_rb,6.7729e+04_rb,5.0794e+04_rb, &
+     &3.3867e+04_rb,1.6929e+04_rb,5.0265e-06_rb/)
+      kao(:, 2,12,16) = (/ &
+     &1.3284e+05_rb,1.1623e+05_rb,9.9623e+04_rb,8.3023e+04_rb,6.6416e+04_rb,4.9810e+04_rb, &
+     &3.3206e+04_rb,1.6603e+04_rb,9.0705e-06_rb/)
+      kao(:, 3,12,16) = (/ &
+     &1.3111e+05_rb,1.1471e+05_rb,9.8324e+04_rb,8.1946e+04_rb,6.5544e+04_rb,4.9165e+04_rb, &
+     &3.2777e+04_rb,1.6388e+04_rb,1.7901e+00_rb/)
+      kao(:, 4,12,16) = (/ &
+     &1.2947e+05_rb,1.1329e+05_rb,9.7103e+04_rb,8.0920e+04_rb,6.4734e+04_rb,4.8090e+04_rb, &
+     &3.2370e+04_rb,1.6184e+04_rb,2.9393e+00_rb/)
+      kao(:, 5,12,16) = (/ &
+     &1.2773e+05_rb,1.1176e+05_rb,9.5799e+04_rb,7.9830e+04_rb,6.3866e+04_rb,4.7901e+04_rb, &
+     &3.1932e+04_rb,1.5966e+04_rb,4.5138e+00_rb/)
+      kao(:, 1,13,16) = (/ &
+     &1.6206e+05_rb,1.4180e+05_rb,1.2155e+05_rb,1.0128e+05_rb,8.1025e+04_rb,6.0775e+04_rb, &
+     &4.0514e+04_rb,2.0257e+04_rb,4.1164e-06_rb/)
+      kao(:, 2,13,16) = (/ &
+     &1.6103e+05_rb,1.4091e+05_rb,1.2078e+05_rb,1.0065e+05_rb,8.0525e+04_rb,6.0389e+04_rb, &
+     &4.0260e+04_rb,2.0131e+04_rb,7.4285e-06_rb/)
+      kao(:, 3,13,16) = (/ &
+     &1.6003e+05_rb,1.4003e+05_rb,1.2001e+05_rb,1.0001e+05_rb,8.0009e+04_rb,6.0009e+04_rb, &
+     &4.0005e+04_rb,2.0004e+04_rb,8.7132e-01_rb/)
+      kao(:, 4,13,16) = (/ &
+     &1.5863e+05_rb,1.3882e+05_rb,1.1899e+05_rb,9.9157e+04_rb,7.9319e+04_rb,5.9492e+04_rb, &
+     &3.9661e+04_rb,1.9830e+04_rb,3.4650e+00_rb/)
+      kao(:, 5,13,16) = (/ &
+     &1.5756e+05_rb,1.3786e+05_rb,1.1816e+05_rb,9.8476e+04_rb,7.8780e+04_rb,5.9085e+04_rb, &
+     &3.9388e+04_rb,1.9695e+04_rb,5.3123e+00_rb/) 
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of H2O to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the 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 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:, 1,13, 1) = (/ &
+     &1.9283e+01_rb,1.4533e+01_rb,9.7765e+00_rb,4.9986e+00_rb,1.2562e-02_rb/)
+      kbo(:, 2,13, 1) = (/ &
+     &2.3187e+01_rb,1.7461e+01_rb,1.1734e+01_rb,5.9860e+00_rb,1.4622e-02_rb/)
+      kbo(:, 3,13, 1) = (/ &
+     &2.7169e+01_rb,2.0447e+01_rb,1.3724e+01_rb,6.9897e+00_rb,1.6755e-02_rb/)
+      kbo(:, 4,13, 1) = (/ &
+     &3.1114e+01_rb,2.3405e+01_rb,1.5695e+01_rb,7.9803e+00_rb,1.8932e-02_rb/)
+      kbo(:, 5,13, 1) = (/ &
+     &3.5056e+01_rb,2.6360e+01_rb,1.7664e+01_rb,8.9659e+00_rb,2.1071e-02_rb/)
+      kbo(:, 1,14, 1) = (/ &
+     &1.0180e+01_rb,7.7052e+00_rb,5.2175e+00_rb,2.7059e+00_rb,1.0725e-02_rb/)
+      kbo(:, 2,14, 1) = (/ &
+     &1.2216e+01_rb,9.2332e+00_rb,6.2420e+00_rb,3.2235e+00_rb,1.2472e-02_rb/)
+      kbo(:, 3,14, 1) = (/ &
+     &1.4258e+01_rb,1.0764e+01_rb,7.2673e+00_rb,3.7434e+00_rb,1.4271e-02_rb/)
+      kbo(:, 4,14, 1) = (/ &
+     &1.6297e+01_rb,1.2292e+01_rb,8.2867e+00_rb,4.2597e+00_rb,1.6035e-02_rb/)
+      kbo(:, 5,14, 1) = (/ &
+     &1.8337e+01_rb,1.3822e+01_rb,9.3061e+00_rb,4.7742e+00_rb,1.7777e-02_rb/)
+      kbo(:, 1,15, 1) = (/ &
+     &5.4843e+00_rb,4.1814e+00_rb,2.8583e+00_rb,1.5122e+00_rb,9.1712e-03_rb/)
+      kbo(:, 2,15, 1) = (/ &
+     &6.5509e+00_rb,4.9839e+00_rb,3.3981e+00_rb,1.7878e+00_rb,1.0654e-02_rb/)
+      kbo(:, 3,15, 1) = (/ &
+     &7.6172e+00_rb,5.7836e+00_rb,3.9371e+00_rb,2.0620e+00_rb,1.2109e-02_rb/)
+      kbo(:, 4,15, 1) = (/ &
+     &8.6919e+00_rb,6.5886e+00_rb,4.4776e+00_rb,2.3372e+00_rb,1.3585e-02_rb/)
+      kbo(:, 5,15, 1) = (/ &
+     &9.7770e+00_rb,7.4027e+00_rb,5.0231e+00_rb,2.6136e+00_rb,1.5008e-02_rb/)
+      kbo(:, 1,16, 1) = (/ &
+     &3.5143e+00_rb,2.7004e+00_rb,1.8632e+00_rb,1.0005e+00_rb,7.8549e-03_rb/)
+      kbo(:, 2,16, 1) = (/ &
+     &4.1782e+00_rb,3.2010e+00_rb,2.2008e+00_rb,1.1754e+00_rb,9.0596e-03_rb/)
+      kbo(:, 3,16, 1) = (/ &
+     &4.8461e+00_rb,3.7036e+00_rb,2.5395e+00_rb,1.3499e+00_rb,1.0291e-02_rb/)
+      kbo(:, 4,16, 1) = (/ &
+     &5.5241e+00_rb,4.2125e+00_rb,2.8833e+00_rb,1.5266e+00_rb,1.1500e-02_rb/)
+      kbo(:, 5,16, 1) = (/ &
+     &6.2095e+00_rb,4.7270e+00_rb,3.2297e+00_rb,1.7035e+00_rb,1.2669e-02_rb/)
+      kbo(:, 1,17, 1) = (/ &
+     &2.3317e+00_rb,1.8082e+00_rb,1.2606e+00_rb,6.8451e-01_rb,6.6638e-03_rb/)
+      kbo(:, 2,17, 1) = (/ &
+     &2.7625e+00_rb,2.1339e+00_rb,1.4816e+00_rb,7.9994e-01_rb,7.6839e-03_rb/)
+      kbo(:, 3,17, 1) = (/ &
+     &3.1980e+00_rb,2.4632e+00_rb,1.7043e+00_rb,9.1671e-01_rb,8.7134e-03_rb/)
+      kbo(:, 4,17, 1) = (/ &
+     &3.6437e+00_rb,2.7995e+00_rb,1.9319e+00_rb,1.0349e+00_rb,9.7011e-03_rb/)
+      kbo(:, 5,17, 1) = (/ &
+     &4.0944e+00_rb,3.1388e+00_rb,2.1608e+00_rb,1.1535e+00_rb,1.0621e-02_rb/)
+      kbo(:, 1,18, 1) = (/ &
+     &1.5862e+00_rb,1.2436e+00_rb,8.7489e-01_rb,4.7986e-01_rb,5.6356e-03_rb/)
+      kbo(:, 2,18, 1) = (/ &
+     &1.8744e+00_rb,1.4623e+00_rb,1.0242e+00_rb,5.5874e-01_rb,6.4918e-03_rb/)
+      kbo(:, 3,18, 1) = (/ &
+     &2.1671e+00_rb,1.6845e+00_rb,1.1763e+00_rb,6.3905e-01_rb,7.3340e-03_rb/)
+      kbo(:, 4,18, 1) = (/ &
+     &2.4666e+00_rb,1.9117e+00_rb,1.3311e+00_rb,7.2008e-01_rb,8.1312e-03_rb/)
+      kbo(:, 5,18, 1) = (/ &
+     &2.7713e+00_rb,2.1418e+00_rb,1.4869e+00_rb,8.0122e-01_rb,8.8525e-03_rb/)
+      kbo(:, 1,19, 1) = (/ &
+     &1.0610e+00_rb,8.4360e-01_rb,5.9805e-01_rb,3.3172e-01_rb,4.7490e-03_rb/)
+      kbo(:, 2,19, 1) = (/ &
+     &1.2512e+00_rb,9.8882e-01_rb,6.9811e-01_rb,3.8521e-01_rb,5.4538e-03_rb/)
+      kbo(:, 3,19, 1) = (/ &
+     &1.4451e+00_rb,1.1370e+00_rb,8.0056e-01_rb,4.3959e-01_rb,6.1291e-03_rb/)
+      kbo(:, 4,19, 1) = (/ &
+     &1.6437e+00_rb,1.2883e+00_rb,9.0437e-01_rb,4.9444e-01_rb,6.7635e-03_rb/)
+      kbo(:, 5,19, 1) = (/ &
+     &1.8467e+00_rb,1.4425e+00_rb,1.0099e+00_rb,5.4929e-01_rb,7.3353e-03_rb/)
+      kbo(:, 1,20, 1) = (/ &
+     &7.7133e-01_rb,6.2032e-01_rb,4.4197e-01_rb,2.4707e-01_rb,4.0032e-03_rb/)
+      kbo(:, 2,20, 1) = (/ &
+     &9.0743e-01_rb,7.2503e-01_rb,5.1466e-01_rb,2.8622e-01_rb,4.5715e-03_rb/)
+      kbo(:, 3,20, 1) = (/ &
+     &1.0470e+00_rb,8.3267e-01_rb,5.8918e-01_rb,3.2603e-01_rb,5.1125e-03_rb/)
+      kbo(:, 4,20, 1) = (/ &
+     &1.1900e+00_rb,9.4226e-01_rb,6.6481e-01_rb,3.6603e-01_rb,5.6145e-03_rb/)
+      kbo(:, 5,20, 1) = (/ &
+     &1.3362e+00_rb,1.0539e+00_rb,7.4130e-01_rb,4.0582e-01_rb,6.0699e-03_rb/)
+      kbo(:, 1,21, 1) = (/ &
+     &5.7866e-01_rb,4.6986e-01_rb,3.3621e-01_rb,1.8917e-01_rb,3.3621e-03_rb/)
+      kbo(:, 2,21, 1) = (/ &
+     &6.7950e-01_rb,5.4811e-01_rb,3.9072e-01_rb,2.1877e-01_rb,3.8183e-03_rb/)
+      kbo(:, 3,21, 1) = (/ &
+     &7.8326e-01_rb,6.2869e-01_rb,4.4658e-01_rb,2.4873e-01_rb,4.2512e-03_rb/)
+      kbo(:, 4,21, 1) = (/ &
+     &8.8933e-01_rb,7.1063e-01_rb,5.0334e-01_rb,2.7872e-01_rb,4.6532e-03_rb/)
+      kbo(:, 5,21, 1) = (/ &
+     &9.9790e-01_rb,7.9397e-01_rb,5.6013e-01_rb,3.0841e-01_rb,5.0189e-03_rb/)
+      kbo(:, 1,22, 1) = (/ &
+     &4.5035e-01_rb,3.6838e-01_rb,2.6449e-01_rb,1.4961e-01_rb,2.8371e-03_rb/)
+      kbo(:, 2,22, 1) = (/ &
+     &5.2710e-01_rb,4.2854e-01_rb,3.0641e-01_rb,1.7248e-01_rb,3.2033e-03_rb/)
+      kbo(:, 3,22, 1) = (/ &
+     &6.0621e-01_rb,4.9027e-01_rb,3.4931e-01_rb,1.9546e-01_rb,3.5507e-03_rb/)
+      kbo(:, 4,22, 1) = (/ &
+     &6.8687e-01_rb,5.5302e-01_rb,3.9268e-01_rb,2.1836e-01_rb,3.8721e-03_rb/)
+      kbo(:, 5,22, 1) = (/ &
+     &7.6986e-01_rb,6.1676e-01_rb,4.3619e-01_rb,2.4105e-01_rb,4.1644e-03_rb/)
+      kbo(:, 1,23, 1) = (/ &
+     &3.5288e-01_rb,2.9059e-01_rb,2.0929e-01_rb,1.1896e-01_rb,2.3878e-03_rb/)
+      kbo(:, 2,23, 1) = (/ &
+     &4.1165e-01_rb,3.3703e-01_rb,2.4169e-01_rb,1.3668e-01_rb,2.6830e-03_rb/)
+      kbo(:, 3,23, 1) = (/ &
+     &4.7210e-01_rb,3.8447e-01_rb,2.7478e-01_rb,1.5435e-01_rb,2.9616e-03_rb/)
+      kbo(:, 4,23, 1) = (/ &
+     &5.3412e-01_rb,4.3294e-01_rb,3.0818e-01_rb,1.7203e-01_rb,3.2196e-03_rb/)
+      kbo(:, 5,23, 1) = (/ &
+     &5.9758e-01_rb,4.8162e-01_rb,3.4147e-01_rb,1.8925e-01_rb,3.4517e-03_rb/)
+      kbo(:, 1,24, 1) = (/ &
+     &2.7554e-01_rb,2.2847e-01_rb,1.6509e-01_rb,9.4305e-02_rb,2.0058e-03_rb/)
+      kbo(:, 2,24, 1) = (/ &
+     &3.2038e-01_rb,2.6411e-01_rb,1.9003e-01_rb,1.0793e-01_rb,2.2440e-03_rb/)
+      kbo(:, 3,24, 1) = (/ &
+     &3.6644e-01_rb,3.0049e-01_rb,2.1543e-01_rb,1.2148e-01_rb,2.4688e-03_rb/)
+      kbo(:, 4,24, 1) = (/ &
+     &4.1394e-01_rb,3.3761e-01_rb,2.4100e-01_rb,1.3500e-01_rb,2.6754e-03_rb/)
+      kbo(:, 5,24, 1) = (/ &
+     &4.6205e-01_rb,3.7459e-01_rb,2.6626e-01_rb,1.4798e-01_rb,2.8597e-03_rb/)
+      kbo(:, 1,25, 1) = (/ &
+     &2.1831e-01_rb,1.8211e-01_rb,1.3197e-01_rb,7.5672e-02_rb,1.6848e-03_rb/)
+      kbo(:, 2,25, 1) = (/ &
+     &2.5300e-01_rb,2.0977e-01_rb,1.5139e-01_rb,8.6229e-02_rb,1.8770e-03_rb/)
+      kbo(:, 3,25, 1) = (/ &
+     &2.8861e-01_rb,2.3809e-01_rb,1.7109e-01_rb,9.6778e-02_rb,2.0567e-03_rb/)
+      kbo(:, 4,25, 1) = (/ &
+     &3.2559e-01_rb,2.6686e-01_rb,1.9096e-01_rb,1.0719e-01_rb,2.2230e-03_rb/)
+      kbo(:, 5,25, 1) = (/ &
+     &3.6217e-01_rb,2.9511e-01_rb,2.1013e-01_rb,1.1707e-01_rb,2.3678e-03_rb/)
+      kbo(:, 1,26, 1) = (/ &
+     &1.7639e-01_rb,1.4786e-01_rb,1.0735e-01_rb,6.1680e-02_rb,1.4167e-03_rb/)
+      kbo(:, 2,26, 1) = (/ &
+     &2.0373e-01_rb,1.6972e-01_rb,1.2271e-01_rb,7.0008e-02_rb,1.5712e-03_rb/)
+      kbo(:, 3,26, 1) = (/ &
+     &2.3189e-01_rb,1.9218e-01_rb,1.3830e-01_rb,7.8351e-02_rb,1.7155e-03_rb/)
+      kbo(:, 4,26, 1) = (/ &
+     &2.6096e-01_rb,2.1478e-01_rb,1.5388e-01_rb,8.6437e-02_rb,1.8482e-03_rb/)
+      kbo(:, 5,26, 1) = (/ &
+     &2.8921e-01_rb,2.3658e-01_rb,1.6864e-01_rb,9.4016e-02_rb,1.9628e-03_rb/)
+      kbo(:, 1,27, 1) = (/ &
+     &1.4816e-01_rb,1.2446e-01_rb,9.0381e-02_rb,5.1884e-02_rb,1.1905e-03_rb/)
+      kbo(:, 2,27, 1) = (/ &
+     &1.7052e-01_rb,1.4243e-01_rb,1.0297e-01_rb,5.8708e-02_rb,1.3153e-03_rb/)
+      kbo(:, 3,27, 1) = (/ &
+     &1.9369e-01_rb,1.6085e-01_rb,1.1575e-01_rb,6.5493e-02_rb,1.4309e-03_rb/)
+      kbo(:, 4,27, 1) = (/ &
+     &2.1729e-01_rb,1.7923e-01_rb,1.2834e-01_rb,7.1951e-02_rb,1.5370e-03_rb/)
+      kbo(:, 5,27, 1) = (/ &
+     &2.3994e-01_rb,1.9663e-01_rb,1.4015e-01_rb,7.7968e-02_rb,1.6265e-03_rb/)
+      kbo(:, 1,28, 1) = (/ &
+     &1.2786e-01_rb,1.0743e-01_rb,7.7947e-02_rb,4.4624e-02_rb,1.0001e-03_rb/)
+      kbo(:, 2,28, 1) = (/ &
+     &1.4668e-01_rb,1.2262e-01_rb,8.8533e-02_rb,5.0350e-02_rb,1.1007e-03_rb/)
+      kbo(:, 3,28, 1) = (/ &
+     &1.6624e-01_rb,1.3809e-01_rb,9.9259e-02_rb,5.5949e-02_rb,1.1936e-03_rb/)
+      kbo(:, 4,28, 1) = (/ &
+     &1.8582e-01_rb,1.5336e-01_rb,1.0964e-01_rb,6.1251e-02_rb,1.2774e-03_rb/)
+      kbo(:, 5,28, 1) = (/ &
+     &2.0447e-01_rb,1.6760e-01_rb,1.1929e-01_rb,6.6127e-02_rb,1.3481e-03_rb/)
+      kbo(:, 1,29, 1) = (/ &
+     &1.1723e-01_rb,9.8203e-02_rb,7.1006e-02_rb,4.0413e-02_rb,8.4082e-04_rb/)
+      kbo(:, 2,29, 1) = (/ &
+     &1.3410e-01_rb,1.1181e-01_rb,8.0444e-02_rb,4.5462e-02_rb,9.2201e-04_rb/)
+      kbo(:, 3,29, 1) = (/ &
+     &1.5159e-01_rb,1.2556e-01_rb,8.9943e-02_rb,5.0342e-02_rb,9.9652e-04_rb/)
+      kbo(:, 4,29, 1) = (/ &
+     &1.6878e-01_rb,1.3892e-01_rb,9.8991e-02_rb,5.4945e-02_rb,1.0624e-03_rb/)
+      kbo(:, 5,29, 1) = (/ &
+     &1.8506e-01_rb,1.5133e-01_rb,1.0733e-01_rb,5.9130e-02_rb,1.1186e-03_rb/)
+      kbo(:, 1,30, 1) = (/ &
+     &1.1017e-01_rb,9.1915e-02_rb,6.6158e-02_rb,3.7385e-02_rb,7.0716e-04_rb/)
+      kbo(:, 2,30, 1) = (/ &
+     &1.2571e-01_rb,1.0438e-01_rb,7.4791e-02_rb,4.1937e-02_rb,7.7222e-04_rb/)
+      kbo(:, 3,30, 1) = (/ &
+     &1.4165e-01_rb,1.1688e-01_rb,8.3361e-02_rb,4.6295e-02_rb,8.3205e-04_rb/)
+      kbo(:, 4,30, 1) = (/ &
+     &1.5709e-01_rb,1.2882e-01_rb,9.1412e-02_rb,5.0358e-02_rb,8.8422e-04_rb/)
+      kbo(:, 5,30, 1) = (/ &
+     &1.7161e-01_rb,1.3989e-01_rb,9.8798e-02_rb,5.4060e-02_rb,9.2829e-04_rb/)
+      kbo(:, 1,31, 1) = (/ &
+     &1.0894e-01_rb,9.0338e-02_rb,6.4636e-02_rb,3.6175e-02_rb,5.9489e-04_rb/)
+      kbo(:, 2,31, 1) = (/ &
+     &1.2399e-01_rb,1.0230e-01_rb,7.2900e-02_rb,4.0465e-02_rb,6.4753e-04_rb/)
+      kbo(:, 3,31, 1) = (/ &
+     &1.3920e-01_rb,1.1419e-01_rb,8.0980e-02_rb,4.4552e-02_rb,6.9507e-04_rb/)
+      kbo(:, 4,31, 1) = (/ &
+     &1.5373e-01_rb,1.2537e-01_rb,8.8479e-02_rb,4.8317e-02_rb,7.3661e-04_rb/)
+      kbo(:, 5,31, 1) = (/ &
+     &1.6735e-01_rb,1.3577e-01_rb,9.5380e-02_rb,5.1770e-02_rb,7.7104e-04_rb/)
+      kbo(:, 1,32, 1) = (/ &
+     &1.0900e-01_rb,8.9827e-02_rb,6.3903e-02_rb,3.5410e-02_rb,5.0043e-04_rb/)
+      kbo(:, 2,32, 1) = (/ &
+     &1.2373e-01_rb,1.0144e-01_rb,7.1880e-02_rb,3.9506e-02_rb,5.4269e-04_rb/)
+      kbo(:, 3,32, 1) = (/ &
+     &1.3829e-01_rb,1.1278e-01_rb,7.9528e-02_rb,4.3367e-02_rb,5.8080e-04_rb/)
+      kbo(:, 4,32, 1) = (/ &
+     &1.5213e-01_rb,1.2340e-01_rb,8.6611e-02_rb,4.6908e-02_rb,6.1297e-04_rb/)
+      kbo(:, 5,32, 1) = (/ &
+     &1.6513e-01_rb,1.3334e-01_rb,9.3188e-02_rb,5.0191e-02_rb,6.4067e-04_rb/)
+      kbo(:, 1,33, 1) = (/ &
+     &1.1105e-01_rb,9.0919e-02_rb,6.4301e-02_rb,3.5277e-02_rb,4.2055e-04_rb/)
+      kbo(:, 2,33, 1) = (/ &
+     &1.2562e-01_rb,1.0235e-01_rb,7.2096e-02_rb,3.9245e-02_rb,4.5474e-04_rb/)
+      kbo(:, 3,33, 1) = (/ &
+     &1.3981e-01_rb,1.1334e-01_rb,7.9473e-02_rb,4.2949e-02_rb,4.8461e-04_rb/)
+      kbo(:, 4,33, 1) = (/ &
+     &1.5326e-01_rb,1.2363e-01_rb,8.6303e-02_rb,4.6360e-02_rb,5.1014e-04_rb/)
+      kbo(:, 5,33, 1) = (/ &
+     &1.6587e-01_rb,1.3331e-01_rb,9.2704e-02_rb,4.9561e-02_rb,5.3252e-04_rb/)
+      kbo(:, 1,34, 1) = (/ &
+     &1.0980e-01_rb,8.9454e-02_rb,6.2967e-02_rb,3.4264e-02_rb,3.5179e-04_rb/)
+      kbo(:, 2,34, 1) = (/ &
+     &1.2374e-01_rb,1.0037e-01_rb,7.0363e-02_rb,3.8004e-02_rb,3.7955e-04_rb/)
+      kbo(:, 3,34, 1) = (/ &
+     &1.3725e-01_rb,1.1080e-01_rb,7.7340e-02_rb,4.1494e-02_rb,4.0292e-04_rb/)
+      kbo(:, 4,34, 1) = (/ &
+     &1.5005e-01_rb,1.2058e-01_rb,8.3803e-02_rb,4.4722e-02_rb,4.2388e-04_rb/)
+      kbo(:, 5,34, 1) = (/ &
+     &1.6190e-01_rb,1.2971e-01_rb,8.9844e-02_rb,4.7765e-02_rb,4.4175e-04_rb/)
+      kbo(:, 1,35, 1) = (/ &
+     &1.0733e-01_rb,8.7091e-02_rb,6.1056e-02_rb,3.2994e-02_rb,2.9230e-04_rb/)
+      kbo(:, 2,35, 1) = (/ &
+     &1.2074e-01_rb,9.7561e-02_rb,6.8117e-02_rb,3.6550e-02_rb,3.1434e-04_rb/)
+      kbo(:, 3,35, 1) = (/ &
+     &1.3369e-01_rb,1.0755e-01_rb,7.4768e-02_rb,3.9873e-02_rb,3.3363e-04_rb/)
+      kbo(:, 4,35, 1) = (/ &
+     &1.4588e-01_rb,1.1689e-01_rb,8.0950e-02_rb,4.2958e-02_rb,3.5062e-04_rb/)
+      kbo(:, 5,35, 1) = (/ &
+     &1.5707e-01_rb,1.2552e-01_rb,8.6668e-02_rb,4.5847e-02_rb,3.6479e-04_rb/)
+      kbo(:, 1,36, 1) = (/ &
+     &1.0289e-01_rb,8.3241e-02_rb,5.8159e-02_rb,3.1253e-02_rb,2.4069e-04_rb/)
+      kbo(:, 2,36, 1) = (/ &
+     &1.1571e-01_rb,9.3253e-02_rb,6.4895e-02_rb,3.4641e-02_rb,2.5868e-04_rb/)
+      kbo(:, 3,36, 1) = (/ &
+     &1.2815e-01_rb,1.0284e-01_rb,7.1277e-02_rb,3.7824e-02_rb,2.7449e-04_rb/)
+      kbo(:, 4,36, 1) = (/ &
+     &1.3974e-01_rb,1.1174e-01_rb,7.7168e-02_rb,4.0766e-02_rb,2.8849e-04_rb/)
+      kbo(:, 5,36, 1) = (/ &
+     &1.5033e-01_rb,1.1990e-01_rb,8.2576e-02_rb,4.3496e-02_rb,2.9983e-04_rb/)
+      kbo(:, 1,37, 1) = (/ &
+     &9.4340e-02_rb,7.6226e-02_rb,5.3140e-02_rb,2.8456e-02_rb,1.9559e-04_rb/)
+      kbo(:, 2,37, 1) = (/ &
+     &1.0634e-01_rb,8.5612e-02_rb,5.9452e-02_rb,3.1630e-02_rb,2.1059e-04_rb/)
+      kbo(:, 3,37, 1) = (/ &
+     &1.1803e-01_rb,9.4641e-02_rb,6.5469e-02_rb,3.4631e-02_rb,2.2381e-04_rb/)
+      kbo(:, 4,37, 1) = (/ &
+     &1.2893e-01_rb,1.0302e-01_rb,7.1019e-02_rb,3.7400e-02_rb,2.3549e-04_rb/)
+      kbo(:, 5,37, 1) = (/ &
+     &1.3882e-01_rb,1.1066e-01_rb,7.6074e-02_rb,3.9944e-02_rb,2.4505e-04_rb/)
+      kbo(:, 1,38, 1) = (/ &
+     &8.7666e-02_rb,7.0724e-02_rb,4.9189e-02_rb,2.6244e-02_rb,1.5881e-04_rb/)
+      kbo(:, 2,38, 1) = (/ &
+     &9.9075e-02_rb,7.9666e-02_rb,5.5208e-02_rb,2.9270e-02_rb,1.7135e-04_rb/)
+      kbo(:, 3,38, 1) = (/ &
+     &1.1022e-01_rb,8.8294e-02_rb,6.0961e-02_rb,3.2140e-02_rb,1.8248e-04_rb/)
+      kbo(:, 4,38, 1) = (/ &
+     &1.2063e-01_rb,9.6310e-02_rb,6.6270e-02_rb,3.4786e-02_rb,1.9228e-04_rb/)
+      kbo(:, 5,38, 1) = (/ &
+     &1.3002e-01_rb,1.0355e-01_rb,7.1058e-02_rb,3.7188e-02_rb,2.0028e-04_rb/)
+      kbo(:, 1,39, 1) = (/ &
+     &8.3319e-02_rb,6.7083e-02_rb,4.6540e-02_rb,2.4732e-02_rb,1.2903e-04_rb/)
+      kbo(:, 2,39, 1) = (/ &
+     &9.4409e-02_rb,7.5788e-02_rb,5.2401e-02_rb,2.7679e-02_rb,1.3958e-04_rb/)
+      kbo(:, 3,39, 1) = (/ &
+     &1.0530e-01_rb,8.4225e-02_rb,5.8027e-02_rb,3.0486e-02_rb,1.4894e-04_rb/)
+      kbo(:, 4,39, 1) = (/ &
+     &1.1544e-01_rb,9.2061e-02_rb,6.3226e-02_rb,3.3071e-02_rb,1.5713e-04_rb/)
+      kbo(:, 5,39, 1) = (/ &
+     &1.2457e-01_rb,9.9102e-02_rb,6.7879e-02_rb,3.5400e-02_rb,1.6372e-04_rb/)
+      kbo(:, 1,40, 1) = (/ &
+     &7.3382e-02_rb,5.9091e-02_rb,4.0949e-02_rb,2.1720e-02_rb,1.0369e-04_rb/)
+      kbo(:, 2,40, 1) = (/ &
+     &8.3492e-02_rb,6.7054e-02_rb,4.6317e-02_rb,2.4422e-02_rb,1.1258e-04_rb/)
+      kbo(:, 3,40, 1) = (/ &
+     &9.3502e-02_rb,7.4845e-02_rb,5.1514e-02_rb,2.7021e-02_rb,1.2049e-04_rb/)
+      kbo(:, 4,40, 1) = (/ &
+     &1.0289e-01_rb,8.2115e-02_rb,5.6339e-02_rb,2.9419e-02_rb,1.2744e-04_rb/)
+      kbo(:, 5,40, 1) = (/ &
+     &1.1132e-01_rb,8.8604e-02_rb,6.0629e-02_rb,3.1559e-02_rb,1.3317e-04_rb/)
+      kbo(:, 1,41, 1) = (/ &
+     &6.4289e-02_rb,5.1783e-02_rb,3.5851e-02_rb,1.8983e-02_rb,8.3205e-05_rb/)
+      kbo(:, 2,41, 1) = (/ &
+     &7.3486e-02_rb,5.9047e-02_rb,4.0756e-02_rb,2.1456e-02_rb,9.0601e-05_rb/)
+      kbo(:, 3,41, 1) = (/ &
+     &8.2657e-02_rb,6.6211e-02_rb,4.5539e-02_rb,2.3850e-02_rb,9.7309e-05_rb/)
+      kbo(:, 4,41, 1) = (/ &
+     &9.1325e-02_rb,7.2956e-02_rb,5.0013e-02_rb,2.6075e-02_rb,1.0320e-04_rb/)
+      kbo(:, 5,41, 1) = (/ &
+     &9.9149e-02_rb,7.8969e-02_rb,5.3991e-02_rb,2.8057e-02_rb,1.0825e-04_rb/)
+      kbo(:, 1,42, 1) = (/ &
+     &5.6899e-02_rb,4.5812e-02_rb,3.1686e-02_rb,1.6747e-02_rb,6.6719e-05_rb/)
+      kbo(:, 2,42, 1) = (/ &
+     &6.5316e-02_rb,5.2494e-02_rb,3.6198e-02_rb,1.9026e-02_rb,7.2862e-05_rb/)
+      kbo(:, 3,42, 1) = (/ &
+     &7.3779e-02_rb,5.9136e-02_rb,4.0639e-02_rb,2.1249e-02_rb,7.8557e-05_rb/)
+      kbo(:, 4,42, 1) = (/ &
+     &8.1877e-02_rb,6.5448e-02_rb,4.4826e-02_rb,2.3334e-02_rb,8.3575e-05_rb/)
+      kbo(:, 5,42, 1) = (/ &
+     &8.9207e-02_rb,7.1094e-02_rb,4.8562e-02_rb,2.5195e-02_rb,8.7912e-05_rb/)
+      kbo(:, 1,43, 1) = (/ &
+     &5.0334e-02_rb,4.0495e-02_rb,2.7979e-02_rb,1.4764e-02_rb,5.3104e-05_rb/)
+      kbo(:, 2,43, 1) = (/ &
+     &5.8063e-02_rb,4.6679e-02_rb,3.2159e-02_rb,1.6880e-02_rb,5.8298e-05_rb/)
+      kbo(:, 3,43, 1) = (/ &
+     &6.5961e-02_rb,5.2905e-02_rb,3.6327e-02_rb,1.8968e-02_rb,6.3123e-05_rb/)
+      kbo(:, 4,43, 1) = (/ &
+     &7.3585e-02_rb,5.8862e-02_rb,4.0291e-02_rb,2.0945e-02_rb,6.7425e-05_rb/)
+      kbo(:, 5,43, 1) = (/ &
+     &8.0560e-02_rb,6.4257e-02_rb,4.3859e-02_rb,2.2720e-02_rb,7.1177e-05_rb/)
+      kbo(:, 1,44, 1) = (/ &
+     &4.4899e-02_rb,3.6074e-02_rb,2.4891e-02_rb,1.3115e-02_rb,4.2029e-05_rb/)
+      kbo(:, 2,44, 1) = (/ &
+     &5.2065e-02_rb,4.1850e-02_rb,2.8809e-02_rb,1.5097e-02_rb,4.6479e-05_rb/)
+      kbo(:, 3,44, 1) = (/ &
+     &5.9485e-02_rb,4.7740e-02_rb,3.2758e-02_rb,1.7077e-02_rb,5.0599e-05_rb/)
+      kbo(:, 4,44, 1) = (/ &
+     &6.6781e-02_rb,5.3454e-02_rb,3.6566e-02_rb,1.8982e-02_rb,5.4263e-05_rb/)
+      kbo(:, 5,44, 1) = (/ &
+     &7.3522e-02_rb,5.8690e-02_rb,4.0031e-02_rb,2.0702e-02_rb,5.7530e-05_rb/)
+      kbo(:, 1,45, 1) = (/ &
+     &4.0792e-02_rb,3.2725e-02_rb,2.2543e-02_rb,1.1850e-02_rb,3.3244e-05_rb/)
+      kbo(:, 2,45, 1) = (/ &
+     &4.7552e-02_rb,3.8195e-02_rb,2.6267e-02_rb,1.3739e-02_rb,3.7011e-05_rb/)
+      kbo(:, 3,45, 1) = (/ &
+     &5.4656e-02_rb,4.3858e-02_rb,3.0076e-02_rb,1.5653e-02_rb,4.0475e-05_rb/)
+      kbo(:, 4,45, 1) = (/ &
+     &6.1725e-02_rb,4.9413e-02_rb,3.3782e-02_rb,1.7505e-02_rb,4.3662e-05_rb/)
+      kbo(:, 5,45, 1) = (/ &
+     &6.8362e-02_rb,5.4599e-02_rb,3.7216e-02_rb,1.9215e-02_rb,4.6426e-05_rb/)
+      kbo(:, 1,46, 1) = (/ &
+     &3.7210e-02_rb,2.9813e-02_rb,2.0505e-02_rb,1.0753e-02_rb,2.6192e-05_rb/)
+      kbo(:, 2,46, 1) = (/ &
+     &4.3666e-02_rb,3.5023e-02_rb,2.4062e-02_rb,1.2564e-02_rb,2.9338e-05_rb/)
+      kbo(:, 3,46, 1) = (/ &
+     &5.0484e-02_rb,4.0487e-02_rb,2.7746e-02_rb,1.4418e-02_rb,3.2269e-05_rb/)
+      kbo(:, 4,46, 1) = (/ &
+     &5.7389e-02_rb,4.5948e-02_rb,3.1393e-02_rb,1.6243e-02_rb,3.5047e-05_rb/)
+      kbo(:, 5,46, 1) = (/ &
+     &6.3983e-02_rb,5.1116e-02_rb,3.4828e-02_rb,1.7955e-02_rb,3.7412e-05_rb/)
+      kbo(:, 1,47, 1) = (/ &
+     &3.3307e-02_rb,2.6647e-02_rb,1.8307e-02_rb,9.5851e-03_rb,2.0446e-05_rb/)
+      kbo(:, 2,47, 1) = (/ &
+     &3.9395e-02_rb,3.1552e-02_rb,2.1654e-02_rb,1.1293e-02_rb,2.3124e-05_rb/)
+      kbo(:, 3,47, 1) = (/ &
+     &4.5832e-02_rb,3.6752e-02_rb,2.5172e-02_rb,1.3065e-02_rb,2.5601e-05_rb/)
+      kbo(:, 4,47, 1) = (/ &
+     &5.2491e-02_rb,4.2052e-02_rb,2.8722e-02_rb,1.4843e-02_rb,2.7940e-05_rb/)
+      kbo(:, 5,47, 1) = (/ &
+     &5.8958e-02_rb,4.7137e-02_rb,3.2108e-02_rb,1.6536e-02_rb,3.0007e-05_rb/)
+      kbo(:, 1,48, 1) = (/ &
+     &3.0577e-02_rb,2.4411e-02_rb,1.6745e-02_rb,8.7495e-03_rb,1.5922e-05_rb/)
+      kbo(:, 2,48, 1) = (/ &
+     &3.6464e-02_rb,2.9147e-02_rb,1.9975e-02_rb,1.0397e-02_rb,1.8148e-05_rb/)
+      kbo(:, 3,48, 1) = (/ &
+     &4.2691e-02_rb,3.4197e-02_rb,2.3406e-02_rb,1.2132e-02_rb,2.0290e-05_rb/)
+      kbo(:, 4,48, 1) = (/ &
+     &4.9243e-02_rb,3.9438e-02_rb,2.6932e-02_rb,1.3903e-02_rb,2.2244e-05_rb/)
+      kbo(:, 5,48, 1) = (/ &
+     &5.5751e-02_rb,4.4571e-02_rb,3.0355e-02_rb,1.5610e-02_rb,2.4044e-05_rb/)
+      kbo(:, 1,49, 1) = (/ &
+     &2.9139e-02_rb,2.3202e-02_rb,1.5887e-02_rb,8.2788e-03_rb,1.2379e-05_rb/)
+      kbo(:, 2,49, 1) = (/ &
+     &3.5049e-02_rb,2.7954e-02_rb,1.9124e-02_rb,9.9302e-03_rb,1.4214e-05_rb/)
+      kbo(:, 3,49, 1) = (/ &
+     &4.1342e-02_rb,3.3034e-02_rb,2.2588e-02_rb,1.1686e-02_rb,1.6044e-05_rb/)
+      kbo(:, 4,49, 1) = (/ &
+     &4.8011e-02_rb,3.8402e-02_rb,2.6208e-02_rb,1.3508e-02_rb,1.7733e-05_rb/)
+      kbo(:, 5,49, 1) = (/ &
+     &5.4790e-02_rb,4.3771e-02_rb,2.9799e-02_rb,1.5302e-02_rb,1.9282e-05_rb/)
+      kbo(:, 1,50, 1) = (/ &
+     &2.6464e-02_rb,2.1057e-02_rb,1.4400e-02_rb,7.4918e-03_rb,9.6160e-06_rb/)
+      kbo(:, 2,50, 1) = (/ &
+     &3.2138e-02_rb,2.5589e-02_rb,1.7489e-02_rb,9.0674e-03_rb,1.1117e-05_rb/)
+      kbo(:, 3,50, 1) = (/ &
+     &3.8201e-02_rb,3.0472e-02_rb,2.0816e-02_rb,1.0758e-02_rb,1.2650e-05_rb/)
+      kbo(:, 4,50, 1) = (/ &
+     &4.4627e-02_rb,3.5684e-02_rb,2.4344e-02_rb,1.2533e-02_rb,1.4094e-05_rb/)
+      kbo(:, 5,50, 1) = (/ &
+     &5.1304e-02_rb,4.1009e-02_rb,2.7917e-02_rb,1.4322e-02_rb,1.5452e-05_rb/)
+      kbo(:, 1,51, 1) = (/ &
+     &2.3471e-02_rb,1.8670e-02_rb,1.2760e-02_rb,6.6303e-03_rb,7.4600e-06_rb/)
+      kbo(:, 2,51, 1) = (/ &
+     &2.8809e-02_rb,2.2911e-02_rb,1.5642e-02_rb,8.0988e-03_rb,8.6870e-06_rb/)
+      kbo(:, 3,51, 1) = (/ &
+     &3.4515e-02_rb,2.7502e-02_rb,1.8771e-02_rb,9.6885e-03_rb,9.9502e-06_rb/)
+      kbo(:, 4,51, 1) = (/ &
+     &4.0564e-02_rb,3.2426e-02_rb,2.2116e-02_rb,1.1378e-02_rb,1.1172e-05_rb/)
+      kbo(:, 5,51, 1) = (/ &
+     &4.6952e-02_rb,3.7546e-02_rb,2.5560e-02_rb,1.3107e-02_rb,1.2317e-05_rb/)
+      kbo(:, 1,52, 1) = (/ &
+     &2.1330e-02_rb,1.6945e-02_rb,1.1569e-02_rb,6.0043e-03_rb,5.7740e-06_rb/)
+      kbo(:, 2,52, 1) = (/ &
+     &2.6486e-02_rb,2.1033e-02_rb,1.4344e-02_rb,7.4158e-03_rb,6.7739e-06_rb/)
+      kbo(:, 3,52, 1) = (/ &
+     &3.1984e-02_rb,2.5459e-02_rb,1.7358e-02_rb,8.9483e-03_rb,7.8163e-06_rb/)
+      kbo(:, 4,52, 1) = (/ &
+     &3.7859e-02_rb,3.0220e-02_rb,2.0602e-02_rb,1.0589e-02_rb,8.8379e-06_rb/)
+      kbo(:, 5,52, 1) = (/ &
+     &4.4095e-02_rb,3.5255e-02_rb,2.3994e-02_rb,1.2295e-02_rb,9.8102e-06_rb/)
+      kbo(:, 1,53, 1) = (/ &
+     &2.0104e-02_rb,1.5937e-02_rb,1.0867e-02_rb,5.6295e-03_rb,4.4532e-06_rb/)
+      kbo(:, 2,53, 1) = (/ &
+     &2.5267e-02_rb,2.0039e-02_rb,1.3647e-02_rb,7.0429e-03_rb,5.2727e-06_rb/)
+      kbo(:, 3,53, 1) = (/ &
+     &3.0800e-02_rb,2.4464e-02_rb,1.6661e-02_rb,8.5763e-03_rb,6.1352e-06_rb/)
+      kbo(:, 4,53, 1) = (/ &
+     &3.6739e-02_rb,2.9255e-02_rb,1.9925e-02_rb,1.0232e-02_rb,6.9843e-06_rb/)
+      kbo(:, 5,53, 1) = (/ &
+     &4.3045e-02_rb,3.4379e-02_rb,2.3392e-02_rb,1.1975e-02_rb,7.8095e-06_rb/)
+      kbo(:, 1,54, 1) = (/ &
+     &1.6441e-02_rb,1.3030e-02_rb,8.8847e-03_rb,4.6022e-03_rb,3.4230e-06_rb/)
+      kbo(:, 2,54, 1) = (/ &
+     &2.0888e-02_rb,1.6582e-02_rb,1.1293e-02_rb,5.8278e-03_rb,4.0956e-06_rb/)
+      kbo(:, 3,54, 1) = (/ &
+     &2.5721e-02_rb,2.0433e-02_rb,1.3910e-02_rb,7.1575e-03_rb,4.7876e-06_rb/)
+      kbo(:, 4,54, 1) = (/ &
+     &3.0904e-02_rb,2.4618e-02_rb,1.6759e-02_rb,8.6032e-03_rb,5.4982e-06_rb/)
+      kbo(:, 5,54, 1) = (/ &
+     &3.6412e-02_rb,2.9120e-02_rb,1.9814e-02_rb,1.0143e-02_rb,6.1750e-06_rb/)
+      kbo(:, 1,55, 1) = (/ &
+     &1.2258e-02_rb,9.7268e-03_rb,6.6366e-03_rb,3.4428e-03_rb,2.6213e-06_rb/)
+      kbo(:, 2,55, 1) = (/ &
+     &1.5748e-02_rb,1.2527e-02_rb,8.5365e-03_rb,4.4115e-03_rb,3.1717e-06_rb/)
+      kbo(:, 3,55, 1) = (/ &
+     &1.9594e-02_rb,1.5595e-02_rb,1.0619e-02_rb,5.4666e-03_rb,3.7237e-06_rb/)
+      kbo(:, 4,55, 1) = (/ &
+     &2.3710e-02_rb,1.8931e-02_rb,1.2889e-02_rb,6.6186e-03_rb,4.3031e-06_rb/)
+      kbo(:, 5,55, 1) = (/ &
+     &2.8112e-02_rb,2.2537e-02_rb,1.5336e-02_rb,7.8537e-03_rb,4.8648e-06_rb/)
+      kbo(:, 1,56, 1) = (/ &
+     &9.1055e-03_rb,7.2363e-03_rb,4.9401e-03_rb,2.5664e-03_rb,1.9997e-06_rb/)
+      kbo(:, 2,56, 1) = (/ &
+     &1.1834e-02_rb,9.4303e-03_rb,6.4310e-03_rb,3.3278e-03_rb,2.4479e-06_rb/)
+      kbo(:, 3,56, 1) = (/ &
+     &1.4882e-02_rb,1.1870e-02_rb,8.0848e-03_rb,4.1651e-03_rb,2.8963e-06_rb/)
+      kbo(:, 4,56, 1) = (/ &
+     &1.8155e-02_rb,1.4526e-02_rb,9.8917e-03_rb,5.0809e-03_rb,3.3616e-06_rb/)
+      kbo(:, 5,56, 1) = (/ &
+     &2.1671e-02_rb,1.7405e-02_rb,1.1845e-02_rb,6.0691e-03_rb,3.8293e-06_rb/)
+      kbo(:, 1,57, 1) = (/ &
+     &6.7286e-03_rb,5.3591e-03_rb,3.6618e-03_rb,1.9048e-03_rb,1.5179e-06_rb/)
+      kbo(:, 2,57, 1) = (/ &
+     &8.8620e-03_rb,7.0733e-03_rb,4.8264e-03_rb,2.5013e-03_rb,1.8807e-06_rb/)
+      kbo(:, 3,57, 1) = (/ &
+     &1.1265e-02_rb,9.0088e-03_rb,6.1382e-03_rb,3.1650e-03_rb,2.2483e-06_rb/)
+      kbo(:, 4,57, 1) = (/ &
+     &1.3873e-02_rb,1.1116e-02_rb,7.5709e-03_rb,3.8911e-03_rb,2.6184e-06_rb/)
+      kbo(:, 5,57, 1) = (/ &
+     &1.6676e-02_rb,1.3415e-02_rb,9.1296e-03_rb,4.6803e-03_rb,3.0020e-06_rb/)
+      kbo(:, 1,58, 1) = (/ &
+     &1.3112e-03_rb,1.2811e-03_rb,1.1274e-03_rb,8.2340e-04_rb,1.1519e-06_rb/)
+      kbo(:, 2,58, 1) = (/ &
+     &1.7518e-03_rb,1.7126e-03_rb,1.5045e-03_rb,1.0941e-03_rb,1.4467e-06_rb/)
+      kbo(:, 3,58, 1) = (/ &
+     &2.2498e-03_rb,2.2053e-03_rb,1.9345e-03_rb,1.3994e-03_rb,1.7445e-06_rb/)
+      kbo(:, 4,58, 1) = (/ &
+     &2.7980e-03_rb,2.7467e-03_rb,2.4064e-03_rb,1.7337e-03_rb,2.0427e-06_rb/)
+      kbo(:, 5,58, 1) = (/ &
+     &3.3868e-03_rb,3.3394e-03_rb,2.9224e-03_rb,2.0998e-03_rb,2.3542e-06_rb/)
+      kbo(:, 1,59, 1) = (/ &
+     &1.2094e-03_rb,1.1351e-03_rb,9.3340e-04_rb,6.0964e-04_rb,9.0654e-07_rb/)
+      kbo(:, 2,59, 1) = (/ &
+     &1.6257e-03_rb,1.5254e-03_rb,1.2509e-03_rb,8.1260e-04_rb,1.1440e-06_rb/)
+      kbo(:, 3,59, 1) = (/ &
+     &2.0981e-03_rb,1.9741e-03_rb,1.6151e-03_rb,1.0426e-03_rb,1.3852e-06_rb/)
+      kbo(:, 4,59, 1) = (/ &
+     &2.6203e-03_rb,2.4691e-03_rb,2.0150e-03_rb,1.2943e-03_rb,1.6270e-06_rb/)
+      kbo(:, 5,59, 1) = (/ &
+     &3.1814e-03_rb,3.0122e-03_rb,2.4540e-03_rb,1.5709e-03_rb,1.8687e-06_rb/)
+      kbo(:, 1,13, 2) = (/ &
+     &6.6529e+01_rb,4.9985e+01_rb,3.3446e+01_rb,1.6923e+01_rb,3.5914e-02_rb/)
+      kbo(:, 2,13, 2) = (/ &
+     &7.4095e+01_rb,5.5661e+01_rb,3.7226e+01_rb,1.8804e+01_rb,3.9958e-02_rb/)
+      kbo(:, 3,13, 2) = (/ &
+     &8.0840e+01_rb,6.0720e+01_rb,4.0598e+01_rb,2.0484e+01_rb,4.3881e-02_rb/)
+      kbo(:, 4,13, 2) = (/ &
+     &8.6396e+01_rb,6.4888e+01_rb,4.3378e+01_rb,2.1867e+01_rb,4.7563e-02_rb/)
+      kbo(:, 5,13, 2) = (/ &
+     &9.0642e+01_rb,6.8073e+01_rb,4.5503e+01_rb,2.2931e+01_rb,5.1188e-02_rb/)
+      kbo(:, 1,14, 2) = (/ &
+     &3.4987e+01_rb,2.6327e+01_rb,1.7678e+01_rb,9.0444e+00_rb,3.1025e-02_rb/)
+      kbo(:, 2,14, 2) = (/ &
+     &3.8934e+01_rb,2.9288e+01_rb,1.9648e+01_rb,1.0023e+01_rb,3.4459e-02_rb/)
+      kbo(:, 3,14, 2) = (/ &
+     &4.2399e+01_rb,3.1888e+01_rb,2.1376e+01_rb,1.0881e+01_rb,3.7786e-02_rb/)
+      kbo(:, 4,14, 2) = (/ &
+     &4.5141e+01_rb,3.3946e+01_rb,2.2749e+01_rb,1.1559e+01_rb,4.1037e-02_rb/)
+      kbo(:, 5,14, 2) = (/ &
+     &4.7193e+01_rb,3.5485e+01_rb,2.3775e+01_rb,1.2071e+01_rb,4.3970e-02_rb/)
+      kbo(:, 1,15, 2) = (/ &
+     &1.8797e+01_rb,1.4186e+01_rb,9.5905e+00_rb,4.9916e+00_rb,2.6741e-02_rb/)
+      kbo(:, 2,15, 2) = (/ &
+     &2.0897e+01_rb,1.5761e+01_rb,1.0636e+01_rb,5.5075e+00_rb,2.9658e-02_rb/)
+      kbo(:, 3,15, 2) = (/ &
+     &2.2675e+01_rb,1.7093e+01_rb,1.1518e+01_rb,5.9424e+00_rb,3.2475e-02_rb/)
+      kbo(:, 4,15, 2) = (/ &
+     &2.4040e+01_rb,1.8121e+01_rb,1.2200e+01_rb,6.2773e+00_rb,3.5159e-02_rb/)
+      kbo(:, 5,15, 2) = (/ &
+     &2.5038e+01_rb,1.8870e+01_rb,1.2700e+01_rb,6.5270e+00_rb,3.7635e-02_rb/)
+      kbo(:, 1,16, 2) = (/ &
+     &1.2062e+01_rb,9.1374e+00_rb,6.2260e+00_rb,3.2778e+00_rb,2.3010e-02_rb/)
+      kbo(:, 2,16, 2) = (/ &
+     &1.3368e+01_rb,1.0114e+01_rb,6.8731e+00_rb,3.5955e+00_rb,2.5515e-02_rb/)
+      kbo(:, 3,16, 2) = (/ &
+     &1.4432e+01_rb,1.0911e+01_rb,7.4005e+00_rb,3.8523e+00_rb,2.7873e-02_rb/)
+      kbo(:, 4,16, 2) = (/ &
+     &1.5210e+01_rb,1.1498e+01_rb,7.7878e+00_rb,4.0427e+00_rb,3.0096e-02_rb/)
+      kbo(:, 5,16, 2) = (/ &
+     &1.5795e+01_rb,1.1938e+01_rb,8.0810e+00_rb,4.1897e+00_rb,3.2123e-02_rb/)
+      kbo(:, 1,17, 2) = (/ &
+     &8.0343e+00_rb,6.1202e+00_rb,4.2057e+00_rb,2.2416e+00_rb,1.9722e-02_rb/)
+      kbo(:, 2,17, 2) = (/ &
+     &8.8550e+00_rb,6.7335e+00_rb,4.6112e+00_rb,2.4399e+00_rb,2.1833e-02_rb/)
+      kbo(:, 3,17, 2) = (/ &
+     &9.5028e+00_rb,7.2176e+00_rb,4.9290e+00_rb,2.5918e+00_rb,2.3771e-02_rb/)
+      kbo(:, 4,17, 2) = (/ &
+     &9.9681e+00_rb,7.5665e+00_rb,5.1592e+00_rb,2.7054e+00_rb,2.5587e-02_rb/)
+      kbo(:, 5,17, 2) = (/ &
+     &1.0341e+01_rb,7.8464e+00_rb,5.3464e+00_rb,2.7998e+00_rb,2.7262e-02_rb/)
+      kbo(:, 1,18, 2) = (/ &
+     &5.4784e+00_rb,4.2063e+00_rb,2.9118e+00_rb,1.5707e+00_rb,1.6843e-02_rb/)
+      kbo(:, 2,18, 2) = (/ &
+     &6.0003e+00_rb,4.5949e+00_rb,3.1671e+00_rb,1.6950e+00_rb,1.8568e-02_rb/)
+      kbo(:, 3,18, 2) = (/ &
+     &6.4044e+00_rb,4.8955e+00_rb,3.3617e+00_rb,1.7866e+00_rb,2.0170e-02_rb/)
+      kbo(:, 4,18, 2) = (/ &
+     &6.7000e+00_rb,5.1163e+00_rb,3.5087e+00_rb,1.8600e+00_rb,2.1658e-02_rb/)
+      kbo(:, 5,18, 2) = (/ &
+     &6.9467e+00_rb,5.3017e+00_rb,3.6339e+00_rb,1.9245e+00_rb,2.2992e-02_rb/)
+      kbo(:, 1,19, 2) = (/ &
+     &3.6607e+00_rb,2.8397e+00_rb,1.9832e+00_rb,1.0810e+00_rb,1.4294e-02_rb/)
+      kbo(:, 2,19, 2) = (/ &
+     &3.9888e+00_rb,3.0825e+00_rb,2.1422e+00_rb,1.1564e+00_rb,1.5700e-02_rb/)
+      kbo(:, 3,19, 2) = (/ &
+     &4.2403e+00_rb,3.2678e+00_rb,2.2604e+00_rb,1.2129e+00_rb,1.7026e-02_rb/)
+      kbo(:, 4,19, 2) = (/ &
+     &4.4304e+00_rb,3.4105e+00_rb,2.3562e+00_rb,1.2611e+00_rb,1.8223e-02_rb/)
+      kbo(:, 5,19, 2) = (/ &
+     &4.5892e+00_rb,3.5305e+00_rb,2.4376e+00_rb,1.3052e+00_rb,1.9250e-02_rb/)
+      kbo(:, 1,20, 2) = (/ &
+     &2.6484e+00_rb,2.0725e+00_rb,1.4576e+00_rb,7.9887e-01_rb,1.2095e-02_rb/)
+      kbo(:, 2,20, 2) = (/ &
+     &2.8723e+00_rb,2.2377e+00_rb,1.5638e+00_rb,8.4850e-01_rb,1.3258e-02_rb/)
+      kbo(:, 3,20, 2) = (/ &
+     &3.0432e+00_rb,2.3620e+00_rb,1.6433e+00_rb,8.8749e-01_rb,1.4323e-02_rb/)
+      kbo(:, 4,20, 2) = (/ &
+     &3.1766e+00_rb,2.4628e+00_rb,1.7113e+00_rb,9.2233e-01_rb,1.5251e-02_rb/)
+      kbo(:, 5,20, 2) = (/ &
+     &3.2896e+00_rb,2.5490e+00_rb,1.7710e+00_rb,9.5551e-01_rb,1.6040e-02_rb/)
+      kbo(:, 1,21, 2) = (/ &
+     &1.9737e+00_rb,1.5589e+00_rb,1.1005e+00_rb,6.0564e-01_rb,1.0202e-02_rb/)
+      kbo(:, 2,21, 2) = (/ &
+     &2.1324e+00_rb,1.6743e+00_rb,1.1736e+00_rb,6.4004e-01_rb,1.1146e-02_rb/)
+      kbo(:, 3,21, 2) = (/ &
+     &2.2543e+00_rb,1.7630e+00_rb,1.2313e+00_rb,6.6865e-01_rb,1.1981e-02_rb/)
+      kbo(:, 4,21, 2) = (/ &
+     &2.3508e+00_rb,1.8360e+00_rb,1.2809e+00_rb,6.9497e-01_rb,1.2686e-02_rb/)
+      kbo(:, 5,21, 2) = (/ &
+     &2.4312e+00_rb,1.8986e+00_rb,1.3258e+00_rb,7.2010e-01_rb,1.3291e-02_rb/)
+      kbo(:, 1,22, 2) = (/ &
+     &1.5156e+00_rb,1.2064e+00_rb,8.5276e-01_rb,4.7037e-01_rb,8.6256e-03_rb/)
+      kbo(:, 2,22, 2) = (/ &
+     &1.6299e+00_rb,1.2880e+00_rb,9.0439e-01_rb,4.9507e-01_rb,9.3659e-03_rb/)
+      kbo(:, 3,22, 2) = (/ &
+     &1.7167e+00_rb,1.3521e+00_rb,9.4701e-01_rb,5.1663e-01_rb,1.0004e-02_rb/)
+      kbo(:, 4,22, 2) = (/ &
+     &1.7876e+00_rb,1.4059e+00_rb,9.8421e-01_rb,5.3690e-01_rb,1.0541e-02_rb/)
+      kbo(:, 5,22, 2) = (/ &
+     &1.8482e+00_rb,1.4540e+00_rb,1.0190e+00_rb,5.5667e-01_rb,1.1012e-02_rb/)
+      kbo(:, 1,23, 2) = (/ &
+     &1.1701e+00_rb,9.3735e-01_rb,6.6344e-01_rb,3.6672e-01_rb,7.2585e-03_rb/)
+      kbo(:, 2,23, 2) = (/ &
+     &1.2526e+00_rb,9.9560e-01_rb,7.0066e-01_rb,3.8497e-01_rb,7.8298e-03_rb/)
+      kbo(:, 3,23, 2) = (/ &
+     &1.3157e+00_rb,1.0429e+00_rb,7.3247e-01_rb,4.0155e-01_rb,8.3206e-03_rb/)
+      kbo(:, 4,23, 2) = (/ &
+     &1.3685e+00_rb,1.0835e+00_rb,7.6114e-01_rb,4.1717e-01_rb,8.7383e-03_rb/)
+      kbo(:, 5,23, 2) = (/ &
+     &1.4146e+00_rb,1.1207e+00_rb,7.8818e-01_rb,4.3301e-01_rb,9.1036e-03_rb/)
+      kbo(:, 1,24, 2) = (/ &
+     &8.9949e-01_rb,7.2462e-01_rb,5.1357e-01_rb,2.8470e-01_rb,6.0789e-03_rb/)
+      kbo(:, 2,24, 2) = (/ &
+     &9.5867e-01_rb,7.6639e-01_rb,5.4063e-01_rb,2.9829e-01_rb,6.5218e-03_rb/)
+      kbo(:, 3,24, 2) = (/ &
+     &1.0042e+00_rb,8.0114e-01_rb,5.6436e-01_rb,3.1100e-01_rb,6.9029e-03_rb/)
+      kbo(:, 4,24, 2) = (/ &
+     &1.0431e+00_rb,8.3179e-01_rb,5.8619e-01_rb,3.2299e-01_rb,7.2295e-03_rb/)
+      kbo(:, 5,24, 2) = (/ &
+     &1.0790e+00_rb,8.6138e-01_rb,6.0791e-01_rb,3.3588e-01_rb,7.5120e-03_rb/)
+      kbo(:, 1,25, 2) = (/ &
+     &7.0112e-01_rb,5.6715e-01_rb,4.0233e-01_rb,2.2369e-01_rb,5.0763e-03_rb/)
+      kbo(:, 2,25, 2) = (/ &
+     &7.4350e-01_rb,5.9764e-01_rb,4.2250e-01_rb,2.3404e-01_rb,5.4222e-03_rb/)
+      kbo(:, 3,25, 2) = (/ &
+     &7.7710e-01_rb,6.2349e-01_rb,4.4048e-01_rb,2.4369e-01_rb,5.7195e-03_rb/)
+      kbo(:, 4,25, 2) = (/ &
+     &8.0619e-01_rb,6.4737e-01_rb,4.5753e-01_rb,2.5334e-01_rb,5.9744e-03_rb/)
+      kbo(:, 5,25, 2) = (/ &
+     &8.3531e-01_rb,6.7147e-01_rb,4.7545e-01_rb,2.6391e-01_rb,6.1951e-03_rb/)
+      kbo(:, 1,26, 2) = (/ &
+     &5.5605e-01_rb,4.5118e-01_rb,3.2039e-01_rb,1.7855e-01_rb,4.2346e-03_rb/)
+      kbo(:, 2,26, 2) = (/ &
+     &5.8683e-01_rb,4.7392e-01_rb,3.3566e-01_rb,1.8647e-01_rb,4.5042e-03_rb/)
+      kbo(:, 3,26, 2) = (/ &
+     &6.1229e-01_rb,4.9380e-01_rb,3.4972e-01_rb,1.9404e-01_rb,4.7382e-03_rb/)
+      kbo(:, 4,26, 2) = (/ &
+     &6.3488e-01_rb,5.1281e-01_rb,3.6343e-01_rb,2.0206e-01_rb,4.9373e-03_rb/)
+      kbo(:, 5,26, 2) = (/ &
+     &6.5886e-01_rb,5.3298e-01_rb,3.7847e-01_rb,2.1092e-01_rb,5.1112e-03_rb/)
+      kbo(:, 1,27, 2) = (/ &
+     &4.5766e-01_rb,3.7194e-01_rb,2.6418e-01_rb,1.4728e-01_rb,3.5266e-03_rb/)
+      kbo(:, 2,27, 2) = (/ &
+     &4.8116e-01_rb,3.8971e-01_rb,2.7627e-01_rb,1.5359e-01_rb,3.7388e-03_rb/)
+      kbo(:, 3,27, 2) = (/ &
+     &5.0141e-01_rb,4.0592e-01_rb,2.8779e-01_rb,1.5989e-01_rb,3.9220e-03_rb/)
+      kbo(:, 4,27, 2) = (/ &
+     &5.1998e-01_rb,4.2171e-01_rb,2.9940e-01_rb,1.6680e-01_rb,4.0803e-03_rb/)
+      kbo(:, 5,27, 2) = (/ &
+     &5.4049e-01_rb,4.3926e-01_rb,3.1241e-01_rb,1.7445e-01_rb,4.2171e-03_rb/)
+      kbo(:, 1,28, 2) = (/ &
+     &3.8656e-01_rb,3.1440e-01_rb,2.2322e-01_rb,1.2431e-01_rb,2.9341e-03_rb/)
+      kbo(:, 2,28, 2) = (/ &
+     &4.0539e-01_rb,3.2888e-01_rb,2.3321e-01_rb,1.2952e-01_rb,3.1008e-03_rb/)
+      kbo(:, 3,28, 2) = (/ &
+     &4.2208e-01_rb,3.4256e-01_rb,2.4291e-01_rb,1.3505e-01_rb,3.2456e-03_rb/)
+      kbo(:, 4,28, 2) = (/ &
+     &4.3788e-01_rb,3.5618e-01_rb,2.5311e-01_rb,1.4108e-01_rb,3.3707e-03_rb/)
+      kbo(:, 5,28, 2) = (/ &
+     &4.5599e-01_rb,3.7197e-01_rb,2.6475e-01_rb,1.4784e-01_rb,3.4778e-03_rb/)
+      kbo(:, 1,29, 2) = (/ &
+     &3.4663e-01_rb,2.8147e-01_rb,1.9935e-01_rb,1.1053e-01_rb,2.4407e-03_rb/)
+      kbo(:, 2,29, 2) = (/ &
+     &3.6288e-01_rb,2.9416e-01_rb,2.0825e-01_rb,1.1525e-01_rb,2.5726e-03_rb/)
+      kbo(:, 3,29, 2) = (/ &
+     &3.7738e-01_rb,3.0636e-01_rb,2.1696e-01_rb,1.2034e-01_rb,2.6876e-03_rb/)
+      kbo(:, 4,29, 2) = (/ &
+     &3.9208e-01_rb,3.1911e-01_rb,2.2648e-01_rb,1.2589e-01_rb,2.7881e-03_rb/)
+      kbo(:, 5,29, 2) = (/ &
+     &4.0886e-01_rb,3.3389e-01_rb,2.3740e-01_rb,1.3220e-01_rb,2.8698e-03_rb/)
+      kbo(:, 1,30, 2) = (/ &
+     &3.1859e-01_rb,2.5807e-01_rb,1.8226e-01_rb,1.0052e-01_rb,2.0286e-03_rb/)
+      kbo(:, 2,30, 2) = (/ &
+     &3.3300e-01_rb,2.6960e-01_rb,1.9038e-01_rb,1.0493e-01_rb,2.1345e-03_rb/)
+      kbo(:, 3,30, 2) = (/ &
+     &3.4608e-01_rb,2.8079e-01_rb,1.9849e-01_rb,1.0968e-01_rb,2.2264e-03_rb/)
+      kbo(:, 4,30, 2) = (/ &
+     &3.6002e-01_rb,2.9303e-01_rb,2.0760e-01_rb,1.1495e-01_rb,2.3052e-03_rb/)
+      kbo(:, 5,30, 2) = (/ &
+     &3.7616e-01_rb,3.0718e-01_rb,2.1802e-01_rb,1.2086e-01_rb,2.3703e-03_rb/)
+      kbo(:, 1,31, 2) = (/ &
+     &3.0804e-01_rb,2.4854e-01_rb,1.7488e-01_rb,9.5771e-02_rb,1.6879e-03_rb/)
+      kbo(:, 2,31, 2) = (/ &
+     &3.2148e-01_rb,2.5954e-01_rb,1.8261e-01_rb,1.0007e-01_rb,1.7724e-03_rb/)
+      kbo(:, 3,31, 2) = (/ &
+     &3.3418e-01_rb,2.7047e-01_rb,1.9064e-01_rb,1.0472e-01_rb,1.8461e-03_rb/)
+      kbo(:, 4,31, 2) = (/ &
+     &3.4816e-01_rb,2.8282e-01_rb,1.9976e-01_rb,1.0990e-01_rb,1.9082e-03_rb/)
+      kbo(:, 5,31, 2) = (/ &
+     &3.6451e-01_rb,2.9706e-01_rb,2.1019e-01_rb,1.1572e-01_rb,1.9578e-03_rb/)
+      kbo(:, 1,32, 2) = (/ &
+     &3.0134e-01_rb,2.4222e-01_rb,1.6982e-01_rb,9.2391e-02_rb,1.4045e-03_rb/)
+      kbo(:, 2,32, 2) = (/ &
+     &3.1413e-01_rb,2.5288e-01_rb,1.7732e-01_rb,9.6600e-02_rb,1.4719e-03_rb/)
+      kbo(:, 3,32, 2) = (/ &
+     &3.2677e-01_rb,2.6386e-01_rb,1.8545e-01_rb,1.0123e-01_rb,1.5309e-03_rb/)
+      kbo(:, 4,32, 2) = (/ &
+     &3.4104e-01_rb,2.7646e-01_rb,1.9466e-01_rb,1.0637e-01_rb,1.5796e-03_rb/)
+      kbo(:, 5,32, 2) = (/ &
+     &3.5782e-01_rb,2.9105e-01_rb,2.0529e-01_rb,1.1222e-01_rb,1.6199e-03_rb/)
+      kbo(:, 1,33, 2) = (/ &
+     &3.0007e-01_rb,2.4036e-01_rb,1.6789e-01_rb,9.0749e-02_rb,1.1692e-03_rb/)
+      kbo(:, 2,33, 2) = (/ &
+     &3.1257e-01_rb,2.5093e-01_rb,1.7540e-01_rb,9.4970e-02_rb,1.2231e-03_rb/)
+      kbo(:, 3,33, 2) = (/ &
+     &3.2551e-01_rb,2.6224e-01_rb,1.8373e-01_rb,9.9635e-02_rb,1.2703e-03_rb/)
+      kbo(:, 4,33, 2) = (/ &
+     &3.4043e-01_rb,2.7535e-01_rb,1.9325e-01_rb,1.0486e-01_rb,1.3103e-03_rb/)
+      kbo(:, 5,33, 2) = (/ &
+     &3.5814e-01_rb,2.9066e-01_rb,2.0432e-01_rb,1.1086e-01_rb,1.3413e-03_rb/)
+      kbo(:, 1,34, 2) = (/ &
+     &2.9092e-01_rb,2.3257e-01_rb,1.6200e-01_rb,8.7114e-02_rb,9.7104e-04_rb/)
+      kbo(:, 2,34, 2) = (/ &
+     &3.0301e-01_rb,2.4286e-01_rb,1.6939e-01_rb,9.1256e-02_rb,1.0146e-03_rb/)
+      kbo(:, 3,34, 2) = (/ &
+     &3.1600e-01_rb,2.5431e-01_rb,1.7773e-01_rb,9.5863e-02_rb,1.0532e-03_rb/)
+      kbo(:, 4,34, 2) = (/ &
+     &3.3116e-01_rb,2.6756e-01_rb,1.8732e-01_rb,1.0106e-01_rb,1.0840e-03_rb/)
+      kbo(:, 5,34, 2) = (/ &
+     &3.4944e-01_rb,2.8336e-01_rb,1.9862e-01_rb,1.0710e-01_rb,1.1076e-03_rb/)
+      kbo(:, 1,35, 2) = (/ &
+     &2.8133e-01_rb,2.2448e-01_rb,1.5598e-01_rb,8.3470e-02_rb,8.0326e-04_rb/)
+      kbo(:, 2,35, 2) = (/ &
+     &2.9315e-01_rb,2.3461e-01_rb,1.6327e-01_rb,8.7518e-02_rb,8.3948e-04_rb/)
+      kbo(:, 3,35, 2) = (/ &
+     &3.0606e-01_rb,2.4602e-01_rb,1.7152e-01_rb,9.2018e-02_rb,8.6953e-04_rb/)
+      kbo(:, 4,35, 2) = (/ &
+     &3.2135e-01_rb,2.5937e-01_rb,1.8112e-01_rb,9.7174e-02_rb,8.9330e-04_rb/)
+      kbo(:, 5,35, 2) = (/ &
+     &3.3996e-01_rb,2.7548e-01_rb,1.9256e-01_rb,1.0324e-01_rb,9.1326e-04_rb/)
+      kbo(:, 1,36, 2) = (/ &
+     &2.6927e-01_rb,2.1450e-01_rb,1.4871e-01_rb,7.9228e-02_rb,6.6044e-04_rb/)
+      kbo(:, 2,36, 2) = (/ &
+     &2.8072e-01_rb,2.2434e-01_rb,1.5577e-01_rb,8.3114e-02_rb,6.9019e-04_rb/)
+      kbo(:, 3,36, 2) = (/ &
+     &2.9329e-01_rb,2.3546e-01_rb,1.6379e-01_rb,8.7445e-02_rb,7.1471e-04_rb/)
+      kbo(:, 4,36, 2) = (/ &
+     &3.0843e-01_rb,2.4872e-01_rb,1.7326e-01_rb,9.2498e-02_rb,7.3506e-04_rb/)
+      kbo(:, 5,36, 2) = (/ &
+     &3.2685e-01_rb,2.6470e-01_rb,1.8459e-01_rb,9.8476e-02_rb,7.5121e-04_rb/)
+      kbo(:, 1,37, 2) = (/ &
+     &2.4965e-01_rb,1.9865e-01_rb,1.3749e-01_rb,7.2983e-02_rb,5.3914e-04_rb/)
+      kbo(:, 2,37, 2) = (/ &
+     &2.6042e-01_rb,2.0789e-01_rb,1.4407e-01_rb,7.6575e-02_rb,5.6372e-04_rb/)
+      kbo(:, 3,37, 2) = (/ &
+     &2.7217e-01_rb,2.1833e-01_rb,1.5157e-01_rb,8.0593e-02_rb,5.8448e-04_rb/)
+      kbo(:, 4,37, 2) = (/ &
+     &2.8633e-01_rb,2.3076e-01_rb,1.6043e-01_rb,8.5310e-02_rb,6.0216e-04_rb/)
+      kbo(:, 5,37, 2) = (/ &
+     &3.0356e-01_rb,2.4582e-01_rb,1.7110e-01_rb,9.0929e-02_rb,6.1615e-04_rb/)
+      kbo(:, 1,38, 2) = (/ &
+     &2.3485e-01_rb,1.8661e-01_rb,1.2891e-01_rb,6.8178e-02_rb,4.3970e-04_rb/)
+      kbo(:, 2,38, 2) = (/ &
+     &2.4515e-01_rb,1.9543e-01_rb,1.3515e-01_rb,7.1546e-02_rb,4.6052e-04_rb/)
+      kbo(:, 3,38, 2) = (/ &
+     &2.5629e-01_rb,2.0533e-01_rb,1.4225e-01_rb,7.5330e-02_rb,4.7811e-04_rb/)
+      kbo(:, 4,38, 2) = (/ &
+     &2.6971e-01_rb,2.1715e-01_rb,1.5065e-01_rb,7.9788e-02_rb,4.9330e-04_rb/)
+      kbo(:, 5,38, 2) = (/ &
+     &2.8605e-01_rb,2.3151e-01_rb,1.6083e-01_rb,8.5133e-02_rb,5.0547e-04_rb/)
+      kbo(:, 1,39, 2) = (/ &
+     &2.2602e-01_rb,1.7927e-01_rb,1.2358e-01_rb,6.5103e-02_rb,3.5893e-04_rb/)
+      kbo(:, 2,39, 2) = (/ &
+     &2.3611e-01_rb,1.8789e-01_rb,1.2965e-01_rb,6.8347e-02_rb,3.7626e-04_rb/)
+      kbo(:, 3,39, 2) = (/ &
+     &2.4693e-01_rb,1.9751e-01_rb,1.3653e-01_rb,7.1994e-02_rb,3.9112e-04_rb/)
+      kbo(:, 4,39, 2) = (/ &
+     &2.5998e-01_rb,2.0903e-01_rb,1.4470e-01_rb,7.6316e-02_rb,4.0431e-04_rb/)
+      kbo(:, 5,39, 2) = (/ &
+     &2.7577e-01_rb,2.2297e-01_rb,1.5458e-01_rb,8.1500e-02_rb,4.1520e-04_rb/)
+      kbo(:, 1,40, 2) = (/ &
+     &2.0347e-01_rb,1.6128e-01_rb,1.1107e-01_rb,5.8373e-02_rb,2.9088e-04_rb/)
+      kbo(:, 2,40, 2) = (/ &
+     &2.1275e-01_rb,1.6921e-01_rb,1.1659e-01_rb,6.1296e-02_rb,3.0550e-04_rb/)
+      kbo(:, 3,40, 2) = (/ &
+     &2.2248e-01_rb,1.7787e-01_rb,1.2279e-01_rb,6.4562e-02_rb,3.1830e-04_rb/)
+      kbo(:, 4,40, 2) = (/ &
+     &2.3419e-01_rb,1.8824e-01_rb,1.3013e-01_rb,6.8434e-02_rb,3.2975e-04_rb/)
+      kbo(:, 5,40, 2) = (/ &
+     &2.4824e-01_rb,2.0081e-01_rb,1.3903e-01_rb,7.3098e-02_rb,3.3913e-04_rb/)
+      kbo(:, 1,41, 2) = (/ &
+     &1.8258e-01_rb,1.4470e-01_rb,9.9535e-02_rb,5.2202e-02_rb,2.3535e-04_rb/)
+      kbo(:, 2,41, 2) = (/ &
+     &1.9113e-01_rb,1.5197e-01_rb,1.0458e-01_rb,5.4844e-02_rb,2.4773e-04_rb/)
+      kbo(:, 3,41, 2) = (/ &
+     &1.9995e-01_rb,1.5977e-01_rb,1.1015e-01_rb,5.7766e-02_rb,2.5866e-04_rb/)
+      kbo(:, 4,41, 2) = (/ &
+     &2.1035e-01_rb,1.6906e-01_rb,1.1672e-01_rb,6.1215e-02_rb,2.6866e-04_rb/)
+      kbo(:, 5,41, 2) = (/ &
+     &2.2281e-01_rb,1.8031e-01_rb,1.2469e-01_rb,6.5393e-02_rb,2.7675e-04_rb/)
+      kbo(:, 1,42, 2) = (/ &
+     &1.6555e-01_rb,1.3118e-01_rb,9.0125e-02_rb,4.7172e-02_rb,1.9035e-04_rb/)
+      kbo(:, 2,42, 2) = (/ &
+     &1.7351e-01_rb,1.3791e-01_rb,9.4797e-02_rb,4.9586e-02_rb,2.0086e-04_rb/)
+      kbo(:, 3,42, 2) = (/ &
+     &1.8167e-01_rb,1.4504e-01_rb,9.9843e-02_rb,5.2229e-02_rb,2.1016e-04_rb/)
+      kbo(:, 4,42, 2) = (/ &
+     &1.9101e-01_rb,1.5346e-01_rb,1.0581e-01_rb,5.5333e-02_rb,2.1875e-04_rb/)
+      kbo(:, 5,42, 2) = (/ &
+     &2.0220e-01_rb,1.6362e-01_rb,1.1299e-01_rb,5.9103e-02_rb,2.2587e-04_rb/)
+      kbo(:, 1,43, 2) = (/ &
+     &1.5093e-01_rb,1.1961e-01_rb,8.2075e-02_rb,4.2874e-02_rb,1.5326e-04_rb/)
+      kbo(:, 2,43, 2) = (/ &
+     &1.5853e-01_rb,1.2589e-01_rb,8.6428e-02_rb,4.5110e-02_rb,1.6227e-04_rb/)
+      kbo(:, 3,43, 2) = (/ &
+     &1.6609e-01_rb,1.3244e-01_rb,9.1034e-02_rb,4.7504e-02_rb,1.7029e-04_rb/)
+      kbo(:, 4,43, 2) = (/ &
+     &1.7452e-01_rb,1.4008e-01_rb,9.6428e-02_rb,5.0296e-02_rb,1.7773e-04_rb/)
+      kbo(:, 5,43, 2) = (/ &
+     &1.8456e-01_rb,1.4921e-01_rb,1.0290e-01_rb,5.3684e-02_rb,1.8398e-04_rb/)
+      kbo(:, 1,44, 2) = (/ &
+     &1.3921e-01_rb,1.1030e-01_rb,7.5620e-02_rb,3.9420e-02_rb,1.2316e-04_rb/)
+      kbo(:, 2,44, 2) = (/ &
+     &1.4661e-01_rb,1.1628e-01_rb,7.9723e-02_rb,4.1521e-02_rb,1.3084e-04_rb/)
+      kbo(:, 3,44, 2) = (/ &
+     &1.5377e-01_rb,1.2242e-01_rb,8.4004e-02_rb,4.3727e-02_rb,1.3764e-04_rb/)
+      kbo(:, 4,44, 2) = (/ &
+     &1.6148e-01_rb,1.2941e-01_rb,8.8933e-02_rb,4.6269e-02_rb,1.4416e-04_rb/)
+      kbo(:, 5,44, 2) = (/ &
+     &1.7060e-01_rb,1.3772e-01_rb,9.4815e-02_rb,4.9343e-02_rb,1.4964e-04_rb/)
+      kbo(:, 1,45, 2) = (/ &
+     &1.3086e-01_rb,1.0364e-01_rb,7.0980e-02_rb,3.6935e-02_rb,9.8771e-05_rb/)
+      kbo(:, 2,45, 2) = (/ &
+     &1.3832e-01_rb,1.0957e-01_rb,7.5010e-02_rb,3.8986e-02_rb,1.0533e-04_rb/)
+      kbo(:, 3,45, 2) = (/ &
+     &1.4520e-01_rb,1.1543e-01_rb,7.9072e-02_rb,4.1056e-02_rb,1.1127e-04_rb/)
+      kbo(:, 4,45, 2) = (/ &
+     &1.5249e-01_rb,1.2195e-01_rb,8.3674e-02_rb,4.3425e-02_rb,1.1690e-04_rb/)
+      kbo(:, 5,45, 2) = (/ &
+     &1.6094e-01_rb,1.2967e-01_rb,8.9124e-02_rb,4.6256e-02_rb,1.2176e-04_rb/)
+      kbo(:, 1,46, 2) = (/ &
+     &1.2395e-01_rb,9.8133e-02_rb,6.7135e-02_rb,3.4876e-02_rb,7.8972e-05_rb/)
+      kbo(:, 2,46, 2) = (/ &
+     &1.3154e-01_rb,1.0413e-01_rb,7.1186e-02_rb,3.6923e-02_rb,8.4580e-05_rb/)
+      kbo(:, 3,46, 2) = (/ &
+     &1.3835e-01_rb,1.0981e-01_rb,7.5111e-02_rb,3.8913e-02_rb,8.9707e-05_rb/)
+      kbo(:, 4,46, 2) = (/ &
+     &1.4539e-01_rb,1.1598e-01_rb,7.9454e-02_rb,4.1140e-02_rb,9.4570e-05_rb/)
+      kbo(:, 5,46, 2) = (/ &
+     &1.5328e-01_rb,1.2322e-01_rb,8.4552e-02_rb,4.3768e-02_rb,9.8952e-05_rb/)
+      kbo(:, 1,47, 2) = (/ &
+     &1.1561e-01_rb,9.1621e-02_rb,6.2646e-02_rb,3.2504e-02_rb,6.2836e-05_rb/)
+      kbo(:, 2,47, 2) = (/ &
+     &1.2359e-01_rb,9.7799e-02_rb,6.6803e-02_rb,3.4586e-02_rb,6.7612e-05_rb/)
+      kbo(:, 3,47, 2) = (/ &
+     &1.3036e-01_rb,1.0330e-01_rb,7.0567e-02_rb,3.6497e-02_rb,7.2040e-05_rb/)
+      kbo(:, 4,47, 2) = (/ &
+     &1.3710e-01_rb,1.0912e-01_rb,7.4632e-02_rb,3.8567e-02_rb,7.6196e-05_rb/)
+      kbo(:, 5,47, 2) = (/ &
+     &1.4440e-01_rb,1.1580e-01_rb,7.9334e-02_rb,4.0981e-02_rb,8.0080e-05_rb/)
+      kbo(:, 1,48, 2) = (/ &
+     &1.1035e-01_rb,8.7581e-02_rb,5.9868e-02_rb,3.1032e-02_rb,4.9884e-05_rb/)
+      kbo(:, 2,48, 2) = (/ &
+     &1.1928e-01_rb,9.4310e-02_rb,6.4353e-02_rb,3.3267e-02_rb,5.4019e-05_rb/)
+      kbo(:, 3,48, 2) = (/ &
+     &1.2628e-01_rb,9.9898e-02_rb,6.8156e-02_rb,3.5187e-02_rb,5.7777e-05_rb/)
+      kbo(:, 4,48, 2) = (/ &
+     &1.3294e-01_rb,1.0557e-01_rb,7.2080e-02_rb,3.7168e-02_rb,6.1393e-05_rb/)
+      kbo(:, 5,48, 2) = (/ &
+     &1.3996e-01_rb,1.1191e-01_rb,7.6553e-02_rb,3.9465e-02_rb,6.4815e-05_rb/)
+      kbo(:, 1,49, 2) = (/ &
+     &1.0914e-01_rb,8.6684e-02_rb,5.9236e-02_rb,3.0679e-02_rb,3.9521e-05_rb/)
+      kbo(:, 2,49, 2) = (/ &
+     &1.1962e-01_rb,9.4485e-02_rb,6.4406e-02_rb,3.3233e-02_rb,4.3077e-05_rb/)
+      kbo(:, 3,49, 2) = (/ &
+     &1.2732e-01_rb,1.0058e-01_rb,6.8523e-02_rb,3.5308e-02_rb,4.6318e-05_rb/)
+      kbo(:, 4,49, 2) = (/ &
+     &1.3429e-01_rb,1.0636e-01_rb,7.2504e-02_rb,3.7320e-02_rb,4.9451e-05_rb/)
+      kbo(:, 5,49, 2) = (/ &
+     &1.4147e-01_rb,1.1268e-01_rb,7.6951e-02_rb,3.9591e-02_rb,5.2405e-05_rb/)
+      kbo(:, 1,50, 2) = (/ &
+     &1.0267e-01_rb,8.1582e-02_rb,5.5735e-02_rb,2.8850e-02_rb,3.1268e-05_rb/)
+      kbo(:, 2,50, 2) = (/ &
+     &1.1402e-01_rb,9.0165e-02_rb,6.1437e-02_rb,3.1671e-02_rb,3.4319e-05_rb/)
+      kbo(:, 3,50, 2) = (/ &
+     &1.2234e-01_rb,9.6602e-02_rb,6.5766e-02_rb,3.3840e-02_rb,3.7076e-05_rb/)
+      kbo(:, 4,50, 2) = (/ &
+     &1.2939e-01_rb,1.0230e-01_rb,6.9668e-02_rb,3.5813e-02_rb,3.9737e-05_rb/)
+      kbo(:, 5,50, 2) = (/ &
+     &1.3639e-01_rb,1.0837e-01_rb,7.3903e-02_rb,3.7967e-02_rb,4.2232e-05_rb/)
+      kbo(:, 1,51, 2) = (/ &
+     &9.4284e-02_rb,7.4953e-02_rb,5.1186e-02_rb,2.6482e-02_rb,2.4659e-05_rb/)
+      kbo(:, 2,51, 2) = (/ &
+     &1.0593e-01_rb,8.3948e-02_rb,5.7209e-02_rb,2.9486e-02_rb,2.7298e-05_rb/)
+      kbo(:, 3,51, 2) = (/ &
+     &1.1492e-01_rb,9.0727e-02_rb,6.1733e-02_rb,3.1740e-02_rb,2.9657e-05_rb/)
+      kbo(:, 4,51, 2) = (/ &
+     &1.2197e-01_rb,9.6371e-02_rb,6.5573e-02_rb,3.3673e-02_rb,3.1882e-05_rb/)
+      kbo(:, 5,51, 2) = (/ &
+     &1.2870e-01_rb,1.0212e-01_rb,6.9569e-02_rb,3.5694e-02_rb,3.4030e-05_rb/)
+      kbo(:, 1,52, 2) = (/ &
+     &8.8743e-02_rb,7.0542e-02_rb,4.8148e-02_rb,2.4885e-02_rb,1.9415e-05_rb/)
+      kbo(:, 2,52, 2) = (/ &
+     &1.0078e-01_rb,7.9976e-02_rb,5.4503e-02_rb,2.8085e-02_rb,2.1689e-05_rb/)
+      kbo(:, 3,52, 2) = (/ &
+     &1.1078e-01_rb,8.7454e-02_rb,5.9476e-02_rb,3.0551e-02_rb,2.3703e-05_rb/)
+      kbo(:, 4,52, 2) = (/ &
+     &1.1817e-01_rb,9.3325e-02_rb,6.3448e-02_rb,3.2545e-02_rb,2.5596e-05_rb/)
+      kbo(:, 5,52, 2) = (/ &
+     &1.2490e-01_rb,9.8940e-02_rb,6.7340e-02_rb,3.4514e-02_rb,2.7422e-05_rb/)
+      kbo(:, 1,53, 2) = (/ &
+     &8.6662e-02_rb,6.8864e-02_rb,4.6962e-02_rb,2.4236e-02_rb,1.5263e-05_rb/)
+      kbo(:, 2,53, 2) = (/ &
+     &9.9515e-02_rb,7.8952e-02_rb,5.3787e-02_rb,2.7692e-02_rb,1.7200e-05_rb/)
+      kbo(:, 3,53, 2) = (/ &
+     &1.1085e-01_rb,8.7554e-02_rb,5.9520e-02_rb,3.0542e-02_rb,1.8920e-05_rb/)
+      kbo(:, 4,53, 2) = (/ &
+     &1.1918e-01_rb,9.4022e-02_rb,6.3885e-02_rb,3.2726e-02_rb,2.0582e-05_rb/)
+      kbo(:, 5,53, 2) = (/ &
+     &1.2628e-01_rb,9.9818e-02_rb,6.7862e-02_rb,3.4747e-02_rb,2.2128e-05_rb/)
+      kbo(:, 1,54, 2) = (/ &
+     &7.3195e-02_rb,5.8286e-02_rb,3.9755e-02_rb,2.0520e-02_rb,1.1967e-05_rb/)
+      kbo(:, 2,54, 2) = (/ &
+     &8.4972e-02_rb,6.7544e-02_rb,4.6023e-02_rb,2.3702e-02_rb,1.3585e-05_rb/)
+      kbo(:, 3,54, 2) = (/ &
+     &9.5709e-02_rb,7.5855e-02_rb,5.1595e-02_rb,2.6489e-02_rb,1.5051e-05_rb/)
+      kbo(:, 4,54, 2) = (/ &
+     &1.0394e-01_rb,8.2096e-02_rb,5.5779e-02_rb,2.8575e-02_rb,1.6406e-05_rb/)
+      kbo(:, 5,54, 2) = (/ &
+     &1.1051e-01_rb,8.7391e-02_rb,5.9394e-02_rb,3.0393e-02_rb,1.7745e-05_rb/)
+      kbo(:, 1,55, 2) = (/ &
+     &5.6277e-02_rb,4.4947e-02_rb,3.0672e-02_rb,1.5850e-02_rb,9.3585e-06_rb/)
+      kbo(:, 2,55, 2) = (/ &
+     &6.6102e-02_rb,5.2729e-02_rb,3.5949e-02_rb,1.8531e-02_rb,1.0684e-05_rb/)
+      kbo(:, 3,55, 2) = (/ &
+     &7.5193e-02_rb,5.9877e-02_rb,4.0765e-02_rb,2.0959e-02_rb,1.1938e-05_rb/)
+      kbo(:, 4,55, 2) = (/ &
+     &8.2620e-02_rb,6.5458e-02_rb,4.4488e-02_rb,2.2798e-02_rb,1.3050e-05_rb/)
+      kbo(:, 5,55, 2) = (/ &
+     &8.8216e-02_rb,6.9936e-02_rb,4.7530e-02_rb,2.4316e-02_rb,1.4154e-05_rb/)
+      kbo(:, 1,56, 2) = (/ &
+     &4.3039e-02_rb,3.4453e-02_rb,2.3524e-02_rb,1.2170e-02_rb,7.2880e-06_rb/)
+      kbo(:, 2,56, 2) = (/ &
+     &5.1258e-02_rb,4.1038e-02_rb,2.7994e-02_rb,1.4446e-02_rb,8.3961e-06_rb/)
+      kbo(:, 3,56, 2) = (/ &
+     &5.8906e-02_rb,4.7098e-02_rb,3.2089e-02_rb,1.6519e-02_rb,9.4488e-06_rb/)
+      kbo(:, 4,56, 2) = (/ &
+     &6.5506e-02_rb,5.2094e-02_rb,3.5421e-02_rb,1.8161e-02_rb,1.0382e-05_rb/)
+      kbo(:, 5,56, 2) = (/ &
+     &7.0360e-02_rb,5.5940e-02_rb,3.8018e-02_rb,1.9445e-02_rb,1.1248e-05_rb/)
+      kbo(:, 1,57, 2) = (/ &
+     &3.2674e-02_rb,2.6237e-02_rb,1.7922e-02_rb,9.2805e-03_rb,5.6715e-06_rb/)
+      kbo(:, 2,57, 2) = (/ &
+     &3.9609e-02_rb,3.1835e-02_rb,2.1730e-02_rb,1.1223e-02_rb,6.5904e-06_rb/)
+      kbo(:, 3,57, 2) = (/ &
+     &4.6006e-02_rb,3.6922e-02_rb,2.5172e-02_rb,1.2973e-02_rb,7.4542e-06_rb/)
+      kbo(:, 4,57, 2) = (/ &
+     &5.1740e-02_rb,4.1352e-02_rb,2.8137e-02_rb,1.4436e-02_rb,8.2537e-06_rb/)
+      kbo(:, 5,57, 2) = (/ &
+     &5.6054e-02_rb,4.4686e-02_rb,3.0382e-02_rb,1.5541e-02_rb,8.9675e-06_rb/)
+      kbo(:, 1,58, 2) = (/ &
+     &6.5163e-03_rb,6.4215e-03_rb,5.6470e-03_rb,4.1032e-03_rb,4.4127e-06_rb/)
+      kbo(:, 2,58, 2) = (/ &
+     &8.0617e-03_rb,7.9508e-03_rb,6.9853e-03_rb,5.0619e-03_rb,5.1550e-06_rb/)
+      kbo(:, 3,58, 2) = (/ &
+     &9.4685e-03_rb,9.3297e-03_rb,8.1872e-03_rb,5.9187e-03_rb,5.8809e-06_rb/)
+      kbo(:, 4,58, 2) = (/ &
+     &1.0753e-02_rb,1.0568e-02_rb,9.2585e-03_rb,6.6629e-03_rb,6.5571e-06_rb/)
+      kbo(:, 5,58, 2) = (/ &
+     &1.1773e-02_rb,1.1514e-02_rb,1.0073e-02_rb,7.2198e-03_rb,7.1478e-06_rb/)
+      kbo(:, 1,59, 2) = (/ &
+     &6.0678e-03_rb,5.7484e-03_rb,4.7181e-03_rb,3.0625e-03_rb,3.5292e-06_rb/)
+      kbo(:, 2,59, 2) = (/ &
+     &7.5775e-03_rb,7.1843e-03_rb,5.8871e-03_rb,3.8076e-03_rb,4.1244e-06_rb/)
+      kbo(:, 3,59, 2) = (/ &
+     &8.9504e-03_rb,8.4793e-03_rb,6.9385e-03_rb,4.4706e-03_rb,4.7056e-06_rb/)
+      kbo(:, 4,59, 2) = (/ &
+     &1.0202e-02_rb,9.6400e-03_rb,7.8732e-03_rb,5.0416e-03_rb,5.2546e-06_rb/)
+      kbo(:, 5,59, 2) = (/ &
+     &1.1221e-02_rb,1.0539e-02_rb,8.5853e-03_rb,5.4711e-03_rb,5.7591e-06_rb/)
+      kbo(:, 1,13, 3) = (/ &
+     &1.3886e+02_rb,1.0424e+02_rb,6.9618e+01_rb,3.4998e+01_rb,6.8908e-02_rb/)
+      kbo(:, 2,13, 3) = (/ &
+     &1.3847e+02_rb,1.0394e+02_rb,6.9423e+01_rb,3.4905e+01_rb,7.3584e-02_rb/)
+      kbo(:, 3,13, 3) = (/ &
+     &1.3854e+02_rb,1.0400e+02_rb,6.9461e+01_rb,3.4924e+01_rb,7.8137e-02_rb/)
+      kbo(:, 4,13, 3) = (/ &
+     &1.4034e+02_rb,1.0534e+02_rb,7.0354e+01_rb,3.5368e+01_rb,8.2835e-02_rb/)
+      kbo(:, 5,13, 3) = (/ &
+     &1.4333e+02_rb,1.0759e+02_rb,7.1853e+01_rb,3.6116e+01_rb,8.7500e-02_rb/)
+      kbo(:, 1,14, 3) = (/ &
+     &7.1765e+01_rb,5.3918e+01_rb,3.6073e+01_rb,1.8228e+01_rb,5.9867e-02_rb/)
+      kbo(:, 2,14, 3) = (/ &
+     &7.1567e+01_rb,5.3771e+01_rb,3.5977e+01_rb,1.8183e+01_rb,6.3947e-02_rb/)
+      kbo(:, 3,14, 3) = (/ &
+     &7.1902e+01_rb,5.4021e+01_rb,3.6141e+01_rb,1.8266e+01_rb,6.8160e-02_rb/)
+      kbo(:, 4,14, 3) = (/ &
+     &7.3101e+01_rb,5.4919e+01_rb,3.6739e+01_rb,1.8569e+01_rb,7.2138e-02_rb/)
+      kbo(:, 5,14, 3) = (/ &
+     &7.4813e+01_rb,5.6202e+01_rb,3.7593e+01_rb,1.8992e+01_rb,7.6299e-02_rb/)
+      kbo(:, 1,15, 3) = (/ &
+     &3.7762e+01_rb,2.8418e+01_rb,1.9073e+01_rb,9.7323e+00_rb,5.1937e-02_rb/)
+      kbo(:, 2,15, 3) = (/ &
+     &3.7725e+01_rb,2.8390e+01_rb,1.9057e+01_rb,9.7303e+00_rb,5.5591e-02_rb/)
+      kbo(:, 3,15, 3) = (/ &
+     &3.8048e+01_rb,2.8634e+01_rb,1.9221e+01_rb,9.8224e+00_rb,5.9263e-02_rb/)
+      kbo(:, 4,15, 3) = (/ &
+     &3.8784e+01_rb,2.9182e+01_rb,1.9585e+01_rb,1.0010e+01_rb,6.2883e-02_rb/)
+      kbo(:, 5,15, 3) = (/ &
+     &3.9804e+01_rb,2.9945e+01_rb,2.0089e+01_rb,1.0260e+01_rb,6.6326e-02_rb/)
+      kbo(:, 1,16, 3) = (/ &
+     &2.3667e+01_rb,1.7845e+01_rb,1.2024e+01_rb,6.2150e+00_rb,4.4961e-02_rb/)
+      kbo(:, 2,16, 3) = (/ &
+     &2.3710e+01_rb,1.7881e+01_rb,1.2053e+01_rb,6.2413e+00_rb,4.8227e-02_rb/)
+      kbo(:, 3,16, 3) = (/ &
+     &2.3983e+01_rb,1.8085e+01_rb,1.2193e+01_rb,6.3263e+00_rb,5.1418e-02_rb/)
+      kbo(:, 4,16, 3) = (/ &
+     &2.4541e+01_rb,1.8499e+01_rb,1.2468e+01_rb,6.4708e+00_rb,5.4587e-02_rb/)
+      kbo(:, 5,16, 3) = (/ &
+     &2.5247e+01_rb,1.9026e+01_rb,1.2815e+01_rb,6.6457e+00_rb,5.7578e-02_rb/)
+      kbo(:, 1,17, 3) = (/ &
+     &1.5411e+01_rb,1.1654e+01_rb,7.9029e+00_rb,4.1290e+00_rb,3.8761e-02_rb/)
+      kbo(:, 2,17, 3) = (/ &
+     &1.5483e+01_rb,1.1712e+01_rb,7.9484e+00_rb,4.1656e+00_rb,4.1564e-02_rb/)
+      kbo(:, 3,17, 3) = (/ &
+     &1.5715e+01_rb,1.1885e+01_rb,8.0713e+00_rb,4.2451e+00_rb,4.4369e-02_rb/)
+      kbo(:, 4,17, 3) = (/ &
+     &1.6109e+01_rb,1.2177e+01_rb,8.2663e+00_rb,4.3534e+00_rb,4.7100e-02_rb/)
+      kbo(:, 5,17, 3) = (/ &
+     &1.6611e+01_rb,1.2551e+01_rb,8.5125e+00_rb,4.4825e+00_rb,4.9594e-02_rb/)
+      kbo(:, 1,18, 3) = (/ &
+     &1.0325e+01_rb,7.8390e+00_rb,5.3612e+00_rb,2.8294e+00_rb,3.3186e-02_rb/)
+      kbo(:, 2,18, 3) = (/ &
+     &1.0398e+01_rb,7.8984e+00_rb,5.4111e+00_rb,2.8675e+00_rb,3.5625e-02_rb/)
+      kbo(:, 3,18, 3) = (/ &
+     &1.0571e+01_rb,8.0297e+00_rb,5.5102e+00_rb,2.9332e+00_rb,3.8042e-02_rb/)
+      kbo(:, 4,18, 3) = (/ &
+     &1.0854e+01_rb,8.2395e+00_rb,5.6528e+00_rb,3.0140e+00_rb,4.0327e-02_rb/)
+      kbo(:, 5,18, 3) = (/ &
+     &1.1221e+01_rb,8.5111e+00_rb,5.8333e+00_rb,3.1124e+00_rb,4.2414e-02_rb/)
+      kbo(:, 1,19, 3) = (/ &
+     &6.8208e+00_rb,5.2153e+00_rb,3.5957e+00_rb,1.9227e+00_rb,2.8261e-02_rb/)
+      kbo(:, 2,19, 3) = (/ &
+     &6.8751e+00_rb,5.2621e+00_rb,3.6379e+00_rb,1.9560e+00_rb,3.0383e-02_rb/)
+      kbo(:, 3,19, 3) = (/ &
+     &7.0006e+00_rb,5.3588e+00_rb,3.7145e+00_rb,2.0054e+00_rb,3.2394e-02_rb/)
+      kbo(:, 4,19, 3) = (/ &
+     &7.2016e+00_rb,5.5069e+00_rb,3.8180e+00_rb,2.0649e+00_rb,3.4293e-02_rb/)
+      kbo(:, 5,19, 3) = (/ &
+     &7.4662e+00_rb,5.7018e+00_rb,3.9518e+00_rb,2.1403e+00_rb,3.6047e-02_rb/)
+      kbo(:, 1,20, 3) = (/ &
+     &4.8794e+00_rb,3.7616e+00_rb,2.6099e+00_rb,1.4082e+00_rb,2.4010e-02_rb/)
+      kbo(:, 2,20, 3) = (/ &
+     &4.9222e+00_rb,3.8008e+00_rb,2.6471e+00_rb,1.4364e+00_rb,2.5795e-02_rb/)
+      kbo(:, 3,20, 3) = (/ &
+     &5.0241e+00_rb,3.8811e+00_rb,2.7106e+00_rb,1.4758e+00_rb,2.7487e-02_rb/)
+      kbo(:, 4,20, 3) = (/ &
+     &5.1822e+00_rb,3.9983e+00_rb,2.7942e+00_rb,1.5252e+00_rb,2.9078e-02_rb/)
+      kbo(:, 5,20, 3) = (/ &
+     &5.3938e+00_rb,4.1543e+00_rb,2.9036e+00_rb,1.5872e+00_rb,3.0457e-02_rb/)
+      kbo(:, 1,21, 3) = (/ &
+     &3.5976e+00_rb,2.7957e+00_rb,1.9525e+00_rb,1.0602e+00_rb,2.0310e-02_rb/)
+      kbo(:, 2,21, 3) = (/ &
+     &3.6356e+00_rb,2.8321e+00_rb,1.9867e+00_rb,1.0846e+00_rb,2.1803e-02_rb/)
+      kbo(:, 3,21, 3) = (/ &
+     &3.7222e+00_rb,2.9011e+00_rb,2.0401e+00_rb,1.1175e+00_rb,2.3227e-02_rb/)
+      kbo(:, 4,21, 3) = (/ &
+     &3.8497e+00_rb,2.9972e+00_rb,2.1098e+00_rb,1.1593e+00_rb,2.4505e-02_rb/)
+      kbo(:, 5,21, 3) = (/ &
+     &4.0214e+00_rb,3.1255e+00_rb,2.2004e+00_rb,1.2111e+00_rb,2.5550e-02_rb/)
+      kbo(:, 1,22, 3) = (/ &
+     &2.7203e+00_rb,2.1314e+00_rb,1.4964e+00_rb,8.1782e-01_rb,1.7205e-02_rb/)
+      kbo(:, 2,22, 3) = (/ &
+     &2.7584e+00_rb,2.1682e+00_rb,1.5287e+00_rb,8.3963e-01_rb,1.8458e-02_rb/)
+      kbo(:, 3,22, 3) = (/ &
+     &2.8354e+00_rb,2.2296e+00_rb,1.5749e+00_rb,8.6850e-01_rb,1.9598e-02_rb/)
+      kbo(:, 4,22, 3) = (/ &
+     &2.9415e+00_rb,2.3111e+00_rb,1.6346e+00_rb,9.0426e-01_rb,2.0559e-02_rb/)
+      kbo(:, 5,22, 3) = (/ &
+     &3.0867e+00_rb,2.4212e+00_rb,1.7134e+00_rb,9.4960e-01_rb,2.1311e-02_rb/)
+      kbo(:, 1,23, 3) = (/ &
+     &2.0695e+00_rb,1.6369e+00_rb,1.1532e+00_rb,6.3485e-01_rb,1.4544e-02_rb/)
+      kbo(:, 2,23, 3) = (/ &
+     &2.1080e+00_rb,1.6730e+00_rb,1.1833e+00_rb,6.5423e-01_rb,1.5557e-02_rb/)
+      kbo(:, 3,23, 3) = (/ &
+     &2.1745e+00_rb,1.7262e+00_rb,1.2233e+00_rb,6.7947e-01_rb,1.6419e-02_rb/)
+      kbo(:, 4,23, 3) = (/ &
+     &2.2647e+00_rb,1.7970e+00_rb,1.2752e+00_rb,7.1089e-01_rb,1.7120e-02_rb/)
+      kbo(:, 5,23, 3) = (/ &
+     &2.3823e+00_rb,1.8879e+00_rb,1.3412e+00_rb,7.4903e-01_rb,1.7674e-02_rb/)
+      kbo(:, 1,24, 3) = (/ &
+     &1.5697e+00_rb,1.2531e+00_rb,8.8637e-01_rb,4.9139e-01_rb,1.2257e-02_rb/)
+      kbo(:, 2,24, 3) = (/ &
+     &1.6055e+00_rb,1.2864e+00_rb,9.1332e-01_rb,5.0866e-01_rb,1.3031e-02_rb/)
+      kbo(:, 3,24, 3) = (/ &
+     &1.6631e+00_rb,1.3329e+00_rb,9.4834e-01_rb,5.3086e-01_rb,1.3670e-02_rb/)
+      kbo(:, 4,24, 3) = (/ &
+     &1.7374e+00_rb,1.3923e+00_rb,9.9245e-01_rb,5.5764e-01_rb,1.4194e-02_rb/)
+      kbo(:, 5,24, 3) = (/ &
+     &1.8327e+00_rb,1.4671e+00_rb,1.0467e+00_rb,5.8890e-01_rb,1.4611e-02_rb/)
+      kbo(:, 1,25, 3) = (/ &
+     &1.2086e+00_rb,9.7309e-01_rb,6.9155e-01_rb,3.8568e-01_rb,1.0281e-02_rb/)
+      kbo(:, 2,25, 3) = (/ &
+     &1.2420e+00_rb,1.0035e+00_rb,7.1528e-01_rb,4.0109e-01_rb,1.0857e-02_rb/)
+      kbo(:, 3,25, 3) = (/ &
+     &1.2906e+00_rb,1.0433e+00_rb,7.4566e-01_rb,4.2042e-01_rb,1.1339e-02_rb/)
+      kbo(:, 4,25, 3) = (/ &
+     &1.3533e+00_rb,1.0941e+00_rb,7.8339e-01_rb,4.4308e-01_rb,1.1737e-02_rb/)
+      kbo(:, 5,25, 3) = (/ &
+     &1.4315e+00_rb,1.1563e+00_rb,8.2868e-01_rb,4.6855e-01_rb,1.2054e-02_rb/)
+      kbo(:, 1,26, 3) = (/ &
+     &9.4867e-01_rb,7.6987e-01_rb,5.4929e-01_rb,3.0788e-01_rb,8.5827e-03_rb/)
+      kbo(:, 2,26, 3) = (/ &
+     &9.7957e-01_rb,7.9721e-01_rb,5.7050e-01_rb,3.2189e-01_rb,9.0225e-03_rb/)
+      kbo(:, 3,26, 3) = (/ &
+     &1.0209e+00_rb,8.3198e-01_rb,5.9699e-01_rb,3.3862e-01_rb,9.3908e-03_rb/)
+      kbo(:, 4,26, 3) = (/ &
+     &1.0742e+00_rb,8.7561e-01_rb,6.2951e-01_rb,3.5776e-01_rb,9.6952e-03_rb/)
+      kbo(:, 5,26, 3) = (/ &
+     &1.1410e+00_rb,9.2907e-01_rb,6.6837e-01_rb,3.7907e-01_rb,9.9345e-03_rb/)
+      kbo(:, 1,27, 3) = (/ &
+     &7.7558e-01_rb,6.3324e-01_rb,4.5279e-01_rb,2.5468e-01_rb,7.1414e-03_rb/)
+      kbo(:, 2,27, 3) = (/ &
+     &8.0374e-01_rb,6.5793e-01_rb,4.7219e-01_rb,2.6746e-01_rb,7.4832e-03_rb/)
+      kbo(:, 3,27, 3) = (/ &
+     &8.4002e-01_rb,6.8874e-01_rb,4.9567e-01_rb,2.8203e-01_rb,7.7674e-03_rb/)
+      kbo(:, 4,27, 3) = (/ &
+     &8.8798e-01_rb,7.2827e-01_rb,5.2483e-01_rb,2.9866e-01_rb,7.9993e-03_rb/)
+      kbo(:, 5,27, 3) = (/ &
+     &9.4670e-01_rb,7.7585e-01_rb,5.5890e-01_rb,3.1722e-01_rb,8.1810e-03_rb/)
+      kbo(:, 1,28, 3) = (/ &
+     &6.5247e-01_rb,5.3505e-01_rb,3.8309e-01_rb,2.1606e-01_rb,5.9313e-03_rb/)
+      kbo(:, 2,28, 3) = (/ &
+     &6.7805e-01_rb,5.5765e-01_rb,4.0088e-01_rb,2.2763e-01_rb,6.1964e-03_rb/)
+      kbo(:, 3,28, 3) = (/ &
+     &7.1138e-01_rb,5.8602e-01_rb,4.2234e-01_rb,2.4051e-01_rb,6.4170e-03_rb/)
+      kbo(:, 4,28, 3) = (/ &
+     &7.5565e-01_rb,6.2271e-01_rb,4.4913e-01_rb,2.5531e-01_rb,6.5956e-03_rb/)
+      kbo(:, 5,28, 3) = (/ &
+     &8.0810e-01_rb,6.6536e-01_rb,4.7931e-01_rb,2.7186e-01_rb,6.7356e-03_rb/)
+      kbo(:, 1,29, 3) = (/ &
+     &5.8359e-01_rb,4.7922e-01_rb,3.4299e-01_rb,1.9330e-01_rb,4.9222e-03_rb/)
+      kbo(:, 2,29, 3) = (/ &
+     &6.0836e-01_rb,5.0105e-01_rb,3.5992e-01_rb,2.0402e-01_rb,5.1279e-03_rb/)
+      kbo(:, 3,29, 3) = (/ &
+     &6.4169e-01_rb,5.2929e-01_rb,3.8096e-01_rb,2.1613e-01_rb,5.2989e-03_rb/)
+      kbo(:, 4,29, 3) = (/ &
+     &6.8418e-01_rb,5.6479e-01_rb,4.0659e-01_rb,2.3010e-01_rb,5.4376e-03_rb/)
+      kbo(:, 5,29, 3) = (/ &
+     &7.3388e-01_rb,6.0487e-01_rb,4.3487e-01_rb,2.4554e-01_rb,5.5459e-03_rb/)
+      kbo(:, 1,30, 3) = (/ &
+     &5.3559e-01_rb,4.3987e-01_rb,3.1446e-01_rb,1.7681e-01_rb,4.0812e-03_rb/)
+      kbo(:, 2,30, 3) = (/ &
+     &5.6092e-01_rb,4.6195e-01_rb,3.3123e-01_rb,1.8699e-01_rb,4.2410e-03_rb/)
+      kbo(:, 3,30, 3) = (/ &
+     &5.9467e-01_rb,4.9061e-01_rb,3.5234e-01_rb,1.9880e-01_rb,4.3756e-03_rb/)
+      kbo(:, 4,30, 3) = (/ &
+     &6.3620e-01_rb,5.2529e-01_rb,3.7692e-01_rb,2.1218e-01_rb,4.4820e-03_rb/)
+      kbo(:, 5,30, 3) = (/ &
+     &6.8416e-01_rb,5.6390e-01_rb,4.0420e-01_rb,2.2692e-01_rb,4.5637e-03_rb/)
+      kbo(:, 1,31, 3) = (/ &
+     &5.1816e-01_rb,4.2464e-01_rb,3.0261e-01_rb,1.6922e-01_rb,3.3825e-03_rb/)
+      kbo(:, 2,31, 3) = (/ &
+     &5.4536e-01_rb,4.4814e-01_rb,3.2013e-01_rb,1.7945e-01_rb,3.5084e-03_rb/)
+      kbo(:, 3,31, 3) = (/ &
+     &5.8079e-01_rb,4.7822e-01_rb,3.4203e-01_rb,1.9145e-01_rb,3.6133e-03_rb/)
+      kbo(:, 4,31, 3) = (/ &
+     &6.2360e-01_rb,5.1355e-01_rb,3.6685e-01_rb,2.0495e-01_rb,3.6964e-03_rb/)
+      kbo(:, 5,31, 3) = (/ &
+     &6.7136e-01_rb,5.5242e-01_rb,3.9433e-01_rb,2.1968e-01_rb,3.7632e-03_rb/)
+      kbo(:, 1,32, 3) = (/ &
+     &5.0836e-01_rb,4.1565e-01_rb,2.9513e-01_rb,1.6401e-01_rb,2.8023e-03_rb/)
+      kbo(:, 2,32, 3) = (/ &
+     &5.3755e-01_rb,4.4081e-01_rb,3.1373e-01_rb,1.7458e-01_rb,2.9031e-03_rb/)
+      kbo(:, 3,32, 3) = (/ &
+     &5.7518e-01_rb,4.7260e-01_rb,3.3647e-01_rb,1.8685e-01_rb,2.9841e-03_rb/)
+      kbo(:, 4,32, 3) = (/ &
+     &6.1917e-01_rb,5.0863e-01_rb,3.6188e-01_rb,2.0060e-01_rb,3.0523e-03_rb/)
+      kbo(:, 5,32, 3) = (/ &
+     &6.6737e-01_rb,5.4799e-01_rb,3.8954e-01_rb,2.1543e-01_rb,3.1032e-03_rb/)
+      kbo(:, 1,33, 3) = (/ &
+     &5.0907e-01_rb,4.1513e-01_rb,2.9365e-01_rb,1.6205e-01_rb,2.3233e-03_rb/)
+      kbo(:, 2,33, 3) = (/ &
+     &5.4095e-01_rb,4.4243e-01_rb,3.1363e-01_rb,1.7315e-01_rb,2.4017e-03_rb/)
+      kbo(:, 3,33, 3) = (/ &
+     &5.8099e-01_rb,4.7617e-01_rb,3.3742e-01_rb,1.8595e-01_rb,2.4676e-03_rb/)
+      kbo(:, 4,33, 3) = (/ &
+     &6.2648e-01_rb,5.1328e-01_rb,3.6375e-01_rb,2.0009e-01_rb,2.5196e-03_rb/)
+      kbo(:, 5,33, 3) = (/ &
+     &6.7646e-01_rb,5.5394e-01_rb,3.9218e-01_rb,2.1533e-01_rb,2.5609e-03_rb/)
+      kbo(:, 1,34, 3) = (/ &
+     &4.9704e-01_rb,4.0480e-01_rb,2.8555e-01_rb,1.5673e-01_rb,1.9225e-03_rb/)
+      kbo(:, 2,34, 3) = (/ &
+     &5.3069e-01_rb,4.3364e-01_rb,3.0643e-01_rb,1.6807e-01_rb,1.9847e-03_rb/)
+      kbo(:, 3,34, 3) = (/ &
+     &5.7151e-01_rb,4.6776e-01_rb,3.3046e-01_rb,1.8101e-01_rb,2.0370e-03_rb/)
+      kbo(:, 4,34, 3) = (/ &
+     &6.1711e-01_rb,5.0510e-01_rb,3.5686e-01_rb,1.9508e-01_rb,2.0801e-03_rb/)
+      kbo(:, 5,34, 3) = (/ &
+     &6.6746e-01_rb,5.4585e-01_rb,3.8550e-01_rb,2.1045e-01_rb,2.1144e-03_rb/)
+      kbo(:, 1,35, 3) = (/ &
+     &4.8386e-01_rb,3.9362e-01_rb,2.7689e-01_rb,1.5116e-01_rb,1.5847e-03_rb/)
+      kbo(:, 2,35, 3) = (/ &
+     &5.1832e-01_rb,4.2323e-01_rb,2.9822e-01_rb,1.6263e-01_rb,1.6362e-03_rb/)
+      kbo(:, 3,35, 3) = (/ &
+     &5.5929e-01_rb,4.5721e-01_rb,3.2219e-01_rb,1.7550e-01_rb,1.6795e-03_rb/)
+      kbo(:, 4,35, 3) = (/ &
+     &6.0482e-01_rb,4.9463e-01_rb,3.4852e-01_rb,1.8949e-01_rb,1.7156e-03_rb/)
+      kbo(:, 5,35, 3) = (/ &
+     &6.5512e-01_rb,5.3534e-01_rb,3.7729e-01_rb,2.0487e-01_rb,1.7410e-03_rb/)
+      kbo(:, 1,36, 3) = (/ &
+     &4.6553e-01_rb,3.7836e-01_rb,2.6548e-01_rb,1.4421e-01_rb,1.3024e-03_rb/)
+      kbo(:, 2,36, 3) = (/ &
+     &4.9953e-01_rb,4.0773e-01_rb,2.8657e-01_rb,1.5552e-01_rb,1.3449e-03_rb/)
+      kbo(:, 3,36, 3) = (/ &
+     &5.3980e-01_rb,4.4109e-01_rb,3.1015e-01_rb,1.6814e-01_rb,1.3813e-03_rb/)
+      kbo(:, 4,36, 3) = (/ &
+     &5.8461e-01_rb,4.7793e-01_rb,3.3603e-01_rb,1.8187e-01_rb,1.4105e-03_rb/)
+      kbo(:, 5,36, 3) = (/ &
+     &6.3401e-01_rb,5.1804e-01_rb,3.6447e-01_rb,1.9702e-01_rb,1.4329e-03_rb/)
+      kbo(:, 1,37, 3) = (/ &
+     &4.3247e-01_rb,3.5136e-01_rb,2.4603e-01_rb,1.3313e-01_rb,1.0644e-03_rb/)
+      kbo(:, 2,37, 3) = (/ &
+     &4.6409e-01_rb,3.7893e-01_rb,2.6588e-01_rb,1.4378e-01_rb,1.1011e-03_rb/)
+      kbo(:, 3,37, 3) = (/ &
+     &5.0193e-01_rb,4.1040e-01_rb,2.8814e-01_rb,1.5568e-01_rb,1.1313e-03_rb/)
+      kbo(:, 4,37, 3) = (/ &
+     &5.4423e-01_rb,4.4538e-01_rb,3.1275e-01_rb,1.6870e-01_rb,1.1563e-03_rb/)
+      kbo(:, 5,37, 3) = (/ &
+     &5.9125e-01_rb,4.8359e-01_rb,3.3982e-01_rb,1.8310e-01_rb,1.1762e-03_rb/)
+      kbo(:, 1,38, 3) = (/ &
+     &4.0752e-01_rb,3.3084e-01_rb,2.3116e-01_rb,1.2457e-01_rb,8.6985e-04_rb/)
+      kbo(:, 2,38, 3) = (/ &
+     &4.3734e-01_rb,3.5701e-01_rb,2.5006e-01_rb,1.3472e-01_rb,9.0011e-04_rb/)
+      kbo(:, 3,38, 3) = (/ &
+     &4.7342e-01_rb,3.8717e-01_rb,2.7137e-01_rb,1.4611e-01_rb,9.2699e-04_rb/)
+      kbo(:, 4,38, 3) = (/ &
+     &5.1398e-01_rb,4.2080e-01_rb,2.9507e-01_rb,1.5862e-01_rb,9.4795e-04_rb/)
+      kbo(:, 5,38, 3) = (/ &
+     &5.5926e-01_rb,4.5769e-01_rb,3.2123e-01_rb,1.7252e-01_rb,9.6539e-04_rb/)
+      kbo(:, 1,39, 3) = (/ &
+     &3.9286e-01_rb,3.1853e-01_rb,2.2204e-01_rb,1.1910e-01_rb,7.1027e-04_rb/)
+      kbo(:, 2,39, 3) = (/ &
+     &4.2168e-01_rb,3.4392e-01_rb,2.4040e-01_rb,1.2899e-01_rb,7.3606e-04_rb/)
+      kbo(:, 3,39, 3) = (/ &
+     &4.5685e-01_rb,3.7344e-01_rb,2.6129e-01_rb,1.4014e-01_rb,7.5956e-04_rb/)
+      kbo(:, 4,39, 3) = (/ &
+     &4.9667e-01_rb,4.0652e-01_rb,2.8462e-01_rb,1.5245e-01_rb,7.7770e-04_rb/)
+      kbo(:, 5,39, 3) = (/ &
+     &5.4133e-01_rb,4.4296e-01_rb,3.1045e-01_rb,1.6619e-01_rb,7.9334e-04_rb/)
+      kbo(:, 1,40, 3) = (/ &
+     &3.5355e-01_rb,2.8669e-01_rb,1.9956e-01_rb,1.0673e-01_rb,5.7721e-04_rb/)
+      kbo(:, 2,40, 3) = (/ &
+     &3.7907e-01_rb,3.0944e-01_rb,2.1608e-01_rb,1.1569e-01_rb,5.9933e-04_rb/)
+      kbo(:, 3,40, 3) = (/ &
+     &4.1075e-01_rb,3.3635e-01_rb,2.3514e-01_rb,1.2587e-01_rb,6.1943e-04_rb/)
+      kbo(:, 4,40, 3) = (/ &
+     &4.4707e-01_rb,3.6668e-01_rb,2.5658e-01_rb,1.3717e-01_rb,6.3526e-04_rb/)
+      kbo(:, 5,40, 3) = (/ &
+     &4.8803e-01_rb,4.0025e-01_rb,2.8039e-01_rb,1.4981e-01_rb,6.4905e-04_rb/)
+      kbo(:, 1,41, 3) = (/ &
+     &3.1722e-01_rb,2.5721e-01_rb,1.7878e-01_rb,9.5352e-02_rb,4.6830e-04_rb/)
+      kbo(:, 2,41, 3) = (/ &
+     &3.3984e-01_rb,2.7762e-01_rb,1.9366e-01_rb,1.0349e-01_rb,4.8763e-04_rb/)
+      kbo(:, 3,41, 3) = (/ &
+     &3.6801e-01_rb,3.0195e-01_rb,2.1092e-01_rb,1.1268e-01_rb,5.0461e-04_rb/)
+      kbo(:, 4,41, 3) = (/ &
+     &4.0101e-01_rb,3.2964e-01_rb,2.3053e-01_rb,1.2303e-01_rb,5.1866e-04_rb/)
+      kbo(:, 5,41, 3) = (/ &
+     &4.3854e-01_rb,3.6057e-01_rb,2.5249e-01_rb,1.3467e-01_rb,5.3060e-04_rb/)
+      kbo(:, 1,42, 3) = (/ &
+     &2.8780e-01_rb,2.3320e-01_rb,1.6182e-01_rb,8.6050e-02_rb,3.7987e-04_rb/)
+      kbo(:, 2,42, 3) = (/ &
+     &3.0806e-01_rb,2.5171e-01_rb,1.7535e-01_rb,9.3494e-02_rb,3.9649e-04_rb/)
+      kbo(:, 3,42, 3) = (/ &
+     &3.3326e-01_rb,2.7383e-01_rb,1.9111e-01_rb,1.0188e-01_rb,4.1103e-04_rb/)
+      kbo(:, 4,42, 3) = (/ &
+     &3.6352e-01_rb,2.9931e-01_rb,2.0921e-01_rb,1.1145e-01_rb,4.2329e-04_rb/)
+      kbo(:, 5,42, 3) = (/ &
+     &3.9814e-01_rb,3.2805e-01_rb,2.2962e-01_rb,1.2223e-01_rb,4.3386e-04_rb/)
+      kbo(:, 1,43, 3) = (/ &
+     &2.6265e-01_rb,2.1245e-01_rb,1.4714e-01_rb,7.7969e-02_rb,3.0714e-04_rb/)
+      kbo(:, 2,43, 3) = (/ &
+     &2.8068e-01_rb,2.2918e-01_rb,1.5940e-01_rb,8.4750e-02_rb,3.2151e-04_rb/)
+      kbo(:, 3,43, 3) = (/ &
+     &3.0314e-01_rb,2.4932e-01_rb,1.7384e-01_rb,9.2466e-02_rb,3.3415e-04_rb/)
+      kbo(:, 4,43, 3) = (/ &
+     &3.3080e-01_rb,2.7269e-01_rb,1.9045e-01_rb,1.0127e-01_rb,3.4470e-04_rb/)
+      kbo(:, 5,43, 3) = (/ &
+     &3.6272e-01_rb,2.9942e-01_rb,2.0942e-01_rb,1.1129e-01_rb,3.5407e-04_rb/)
+      kbo(:, 1,44, 3) = (/ &
+     &2.4281e-01_rb,1.9594e-01_rb,1.3540e-01_rb,7.1467e-02_rb,2.4789e-04_rb/)
+      kbo(:, 2,44, 3) = (/ &
+     &2.5884e-01_rb,2.1103e-01_rb,1.4648e-01_rb,7.7626e-02_rb,2.6014e-04_rb/)
+      kbo(:, 3,44, 3) = (/ &
+     &2.7897e-01_rb,2.2939e-01_rb,1.5978e-01_rb,8.4794e-02_rb,2.7117e-04_rb/)
+      kbo(:, 4,44, 3) = (/ &
+     &3.0448e-01_rb,2.5115e-01_rb,1.7522e-01_rb,9.2989e-02_rb,2.8049e-04_rb/)
+      kbo(:, 5,44, 3) = (/ &
+     &3.3408e-01_rb,2.7612e-01_rb,1.9297e-01_rb,1.0236e-01_rb,2.8861e-04_rb/)
+      kbo(:, 1,45, 3) = (/ &
+     &2.2924e-01_rb,1.8447e-01_rb,1.2716e-01_rb,6.6832e-02_rb,2.0004e-04_rb/)
+      kbo(:, 2,45, 3) = (/ &
+     &2.4373e-01_rb,1.9820e-01_rb,1.3728e-01_rb,7.2484e-02_rb,2.1065e-04_rb/)
+      kbo(:, 3,45, 3) = (/ &
+     &2.6228e-01_rb,2.1536e-01_rb,1.4978e-01_rb,7.9297e-02_rb,2.1996e-04_rb/)
+      kbo(:, 4,45, 3) = (/ &
+     &2.8578e-01_rb,2.3573e-01_rb,1.6427e-01_rb,8.6976e-02_rb,2.2795e-04_rb/)
+      kbo(:, 5,45, 3) = (/ &
+     &3.1387e-01_rb,2.5954e-01_rb,1.8123e-01_rb,9.5940e-02_rb,2.3501e-04_rb/)
+      kbo(:, 1,46, 3) = (/ &
+     &2.1864e-01_rb,1.7537e-01_rb,1.2059e-01_rb,6.3114e-02_rb,1.6106e-04_rb/)
+      kbo(:, 2,46, 3) = (/ &
+     &2.3164e-01_rb,1.8773e-01_rb,1.2971e-01_rb,6.8234e-02_rb,1.7008e-04_rb/)
+      kbo(:, 3,46, 3) = (/ &
+     &2.4878e-01_rb,2.0380e-01_rb,1.4148e-01_rb,7.4690e-02_rb,1.7817e-04_rb/)
+      kbo(:, 4,46, 3) = (/ &
+     &2.7041e-01_rb,2.2298e-01_rb,1.5518e-01_rb,8.1986e-02_rb,1.8514e-04_rb/)
+      kbo(:, 5,46, 3) = (/ &
+     &2.9717e-01_rb,2.4573e-01_rb,1.7143e-01_rb,9.0585e-02_rb,1.9112e-04_rb/)
+      kbo(:, 1,47, 3) = (/ &
+     &2.0666e-01_rb,1.6515e-01_rb,1.1329e-01_rb,5.9056e-02_rb,1.2901e-04_rb/)
+      kbo(:, 2,47, 3) = (/ &
+     &2.1779e-01_rb,1.7589e-01_rb,1.2122e-01_rb,6.3515e-02_rb,1.3680e-04_rb/)
+      kbo(:, 3,47, 3) = (/ &
+     &2.3320e-01_rb,1.9053e-01_rb,1.3198e-01_rb,6.9466e-02_rb,1.4384e-04_rb/)
+      kbo(:, 4,47, 3) = (/ &
+     &2.5274e-01_rb,2.0828e-01_rb,1.4478e-01_rb,7.6351e-02_rb,1.4999e-04_rb/)
+      kbo(:, 5,47, 3) = (/ &
+     &2.7761e-01_rb,2.2954e-01_rb,1.5995e-01_rb,8.4385e-02_rb,1.5514e-04_rb/)
+      kbo(:, 1,48, 3) = (/ &
+     &2.0159e-01_rb,1.6032e-01_rb,1.0970e-01_rb,5.6945e-02_rb,1.0330e-04_rb/)
+      kbo(:, 2,48, 3) = (/ &
+     &2.1094e-01_rb,1.6966e-01_rb,1.1661e-01_rb,6.0834e-02_rb,1.0997e-04_rb/)
+      kbo(:, 3,48, 3) = (/ &
+     &2.2505e-01_rb,1.8313e-01_rb,1.2656e-01_rb,6.6365e-02_rb,1.1606e-04_rb/)
+      kbo(:, 4,48, 3) = (/ &
+     &2.4321e-01_rb,1.9993e-01_rb,1.3877e-01_rb,7.3027e-02_rb,1.2143e-04_rb/)
+      kbo(:, 5,48, 3) = (/ &
+     &2.6669e-01_rb,2.2023e-01_rb,1.5323e-01_rb,8.0709e-02_rb,1.2582e-04_rb/)
+      kbo(:, 1,49, 3) = (/ &
+     &2.0550e-01_rb,1.6255e-01_rb,1.1090e-01_rb,5.7322e-02_rb,8.2624e-05_rb/)
+      kbo(:, 2,49, 3) = (/ &
+     &2.1330e-01_rb,1.7068e-01_rb,1.1698e-01_rb,6.0751e-02_rb,8.8378e-05_rb/)
+      kbo(:, 3,49, 3) = (/ &
+     &2.2651e-01_rb,1.8330e-01_rb,1.2630e-01_rb,6.5972e-02_rb,9.3615e-05_rb/)
+      kbo(:, 4,49, 3) = (/ &
+     &2.4409e-01_rb,1.9975e-01_rb,1.3835e-01_rb,7.2591e-02_rb,9.8246e-05_rb/)
+      kbo(:, 5,49, 3) = (/ &
+     &2.6685e-01_rb,2.1980e-01_rb,1.5269e-01_rb,8.0258e-02_rb,1.0201e-04_rb/)
+      kbo(:, 1,50, 3) = (/ &
+     &2.0001e-01_rb,1.5763e-01_rb,1.0735e-01_rb,5.5313e-02_rb,6.6052e-05_rb/)
+      kbo(:, 2,50, 3) = (/ &
+     &2.0622e-01_rb,1.6433e-01_rb,1.1239e-01_rb,5.8166e-02_rb,7.0964e-05_rb/)
+      kbo(:, 3,50, 3) = (/ &
+     &2.1782e-01_rb,1.7560e-01_rb,1.2070e-01_rb,6.2821e-02_rb,7.5460e-05_rb/)
+      kbo(:, 4,50, 3) = (/ &
+     &2.3393e-01_rb,1.9090e-01_rb,1.3196e-01_rb,6.9056e-02_rb,7.9402e-05_rb/)
+      kbo(:, 5,50, 3) = (/ &
+     &2.5520e-01_rb,2.0998e-01_rb,1.4571e-01_rb,7.6464e-02_rb,8.2692e-05_rb/)
+      kbo(:, 1,51, 3) = (/ &
+     &1.9065e-01_rb,1.4985e-01_rb,1.0188e-01_rb,5.2372e-02_rb,5.2796e-05_rb/)
+      kbo(:, 2,51, 3) = (/ &
+     &1.9564e-01_rb,1.5535e-01_rb,1.0604e-01_rb,5.4717e-02_rb,5.6909e-05_rb/)
+      kbo(:, 3,51, 3) = (/ &
+     &2.0531e-01_rb,1.6500e-01_rb,1.1319e-01_rb,5.8726e-02_rb,6.0736e-05_rb/)
+      kbo(:, 4,51, 3) = (/ &
+     &2.1974e-01_rb,1.7886e-01_rb,1.2342e-01_rb,6.4424e-02_rb,6.4172e-05_rb/)
+      kbo(:, 5,51, 3) = (/ &
+     &2.3909e-01_rb,1.9652e-01_rb,1.3622e-01_rb,7.1393e-02_rb,6.6971e-05_rb/)
+      kbo(:, 1,52, 3) = (/ &
+     &1.8687e-01_rb,1.4652e-01_rb,9.9463e-02_rb,5.1012e-02_rb,4.2174e-05_rb/)
+      kbo(:, 2,52, 3) = (/ &
+     &1.9141e-01_rb,1.5137e-01_rb,1.0312e-01_rb,5.3053e-02_rb,4.5594e-05_rb/)
+      kbo(:, 3,52, 3) = (/ &
+     &1.9940e-01_rb,1.5962e-01_rb,1.0927e-01_rb,5.6516e-02_rb,4.8848e-05_rb/)
+      kbo(:, 4,52, 3) = (/ &
+     &2.1252e-01_rb,1.7228e-01_rb,1.1865e-01_rb,6.1768e-02_rb,5.1771e-05_rb/)
+      kbo(:, 5,52, 3) = (/ &
+     &2.3051e-01_rb,1.8896e-01_rb,1.3079e-01_rb,6.8431e-02_rb,5.4234e-05_rb/)
+      kbo(:, 1,53, 3) = (/ &
+     &1.9049e-01_rb,1.4907e-01_rb,1.0107e-01_rb,5.1727e-02_rb,3.3675e-05_rb/)
+      kbo(:, 2,53, 3) = (/ &
+     &1.9537e-01_rb,1.5387e-01_rb,1.0462e-01_rb,5.3675e-02_rb,3.6498e-05_rb/)
+      kbo(:, 3,53, 3) = (/ &
+     &2.0221e-01_rb,1.6109e-01_rb,1.1002e-01_rb,5.6715e-02_rb,3.9286e-05_rb/)
+      kbo(:, 4,53, 3) = (/ &
+     &2.1438e-01_rb,1.7292e-01_rb,1.1878e-01_rb,6.1645e-02_rb,4.1745e-05_rb/)
+      kbo(:, 5,53, 3) = (/ &
+     &2.3164e-01_rb,1.8913e-01_rb,1.3065e-01_rb,6.8198e-02_rb,4.3903e-05_rb/)
+      kbo(:, 1,54, 3) = (/ &
+     &1.6750e-01_rb,1.3117e-01_rb,8.8914e-02_rb,4.5482e-02_rb,2.6834e-05_rb/)
+      kbo(:, 2,54, 3) = (/ &
+     &1.7260e-01_rb,1.3577e-01_rb,9.2225e-02_rb,4.7257e-02_rb,2.9152e-05_rb/)
+      kbo(:, 3,54, 3) = (/ &
+     &1.7790e-01_rb,1.4144e-01_rb,9.6473e-02_rb,4.9632e-02_rb,3.1487e-05_rb/)
+      kbo(:, 4,54, 3) = (/ &
+     &1.8750e-01_rb,1.5107e-01_rb,1.0362e-01_rb,5.3663e-02_rb,3.3610e-05_rb/)
+      kbo(:, 5,54, 3) = (/ &
+     &2.0185e-01_rb,1.6484e-01_rb,1.1376e-01_rb,5.9292e-02_rb,3.5416e-05_rb/)
+      kbo(:, 1,55, 3) = (/ &
+     &1.3399e-01_rb,1.0522e-01_rb,7.1343e-02_rb,3.6503e-02_rb,2.1364e-05_rb/)
+      kbo(:, 2,55, 3) = (/ &
+     &1.3914e-01_rb,1.0951e-01_rb,7.4357e-02_rb,3.8080e-02_rb,2.3275e-05_rb/)
+      kbo(:, 3,55, 3) = (/ &
+     &1.4309e-01_rb,1.1374e-01_rb,7.7519e-02_rb,3.9837e-02_rb,2.5155e-05_rb/)
+      kbo(:, 4,55, 3) = (/ &
+     &1.4990e-01_rb,1.2087e-01_rb,8.2841e-02_rb,4.2848e-02_rb,2.6955e-05_rb/)
+      kbo(:, 5,55, 3) = (/ &
+     &1.6076e-01_rb,1.3155e-01_rb,9.0755e-02_rb,4.7259e-02_rb,2.8512e-05_rb/)
+      kbo(:, 1,56, 3) = (/ &
+     &1.0674e-01_rb,8.4150e-02_rb,5.7088e-02_rb,2.9230e-02_rb,1.7018e-05_rb/)
+      kbo(:, 2,56, 3) = (/ &
+     &1.1202e-01_rb,8.8284e-02_rb,5.9924e-02_rb,3.0675e-02_rb,1.8552e-05_rb/)
+      kbo(:, 3,56, 3) = (/ &
+     &1.1522e-01_rb,9.1603e-02_rb,6.2380e-02_rb,3.2028e-02_rb,2.0079e-05_rb/)
+      kbo(:, 4,56, 3) = (/ &
+     &1.2002e-01_rb,9.6801e-02_rb,6.6273e-02_rb,3.4240e-02_rb,2.1582e-05_rb/)
+      kbo(:, 5,56, 3) = (/ &
+     &1.2813e-01_rb,1.0499e-01_rb,7.2382e-02_rb,3.7660e-02_rb,2.2972e-05_rb/)
+      kbo(:, 1,57, 3) = (/ &
+     &8.4657e-02_rb,6.6996e-02_rb,4.5488e-02_rb,2.3320e-02_rb,1.3524e-05_rb/)
+      kbo(:, 2,57, 3) = (/ &
+     &8.9961e-02_rb,7.1035e-02_rb,4.8219e-02_rb,2.4686e-02_rb,1.4787e-05_rb/)
+      kbo(:, 3,57, 3) = (/ &
+     &9.2828e-02_rb,7.3808e-02_rb,5.0230e-02_rb,2.5772e-02_rb,1.6030e-05_rb/)
+      kbo(:, 4,57, 3) = (/ &
+     &9.6271e-02_rb,7.7620e-02_rb,5.3068e-02_rb,2.7385e-02_rb,1.7279e-05_rb/)
+      kbo(:, 5,57, 3) = (/ &
+     &1.0221e-01_rb,8.3835e-02_rb,5.7725e-02_rb,3.0004e-02_rb,1.8442e-05_rb/)
+      kbo(:, 1,58, 3) = (/ &
+     &1.7656e-02_rb,1.7150e-02_rb,1.4988e-02_rb,1.0779e-02_rb,1.0747e-05_rb/)
+      kbo(:, 2,58, 3) = (/ &
+     &1.9015e-02_rb,1.8411e-02_rb,1.6077e-02_rb,1.1536e-02_rb,1.1805e-05_rb/)
+      kbo(:, 3,58, 3) = (/ &
+     &1.9736e-02_rb,1.9199e-02_rb,1.6794e-02_rb,1.2067e-02_rb,1.2808e-05_rb/)
+      kbo(:, 4,58, 3) = (/ &
+     &2.0419e-02_rb,2.0127e-02_rb,1.7678e-02_rb,1.2766e-02_rb,1.3807e-05_rb/)
+      kbo(:, 5,58, 3) = (/ &
+     &2.1547e-02_rb,2.1640e-02_rb,1.9143e-02_rb,1.3925e-02_rb,1.4766e-05_rb/)
+      kbo(:, 1,59, 3) = (/ &
+     &1.6768e-02_rb,1.5635e-02_rb,1.2738e-02_rb,8.1686e-03_rb,8.6706e-06_rb/)
+      kbo(:, 2,59, 3) = (/ &
+     &1.8151e-02_rb,1.6868e-02_rb,1.3724e-02_rb,8.7749e-03_rb,9.5360e-06_rb/)
+      kbo(:, 3,59, 3) = (/ &
+     &1.8900e-02_rb,1.7641e-02_rb,1.4372e-02_rb,9.2015e-03_rb,1.0356e-05_rb/)
+      kbo(:, 4,59, 3) = (/ &
+     &1.9564e-02_rb,1.8529e-02_rb,1.5159e-02_rb,9.7488e-03_rb,1.1149e-05_rb/)
+      kbo(:, 5,59, 3) = (/ &
+     &2.0620e-02_rb,1.9962e-02_rb,1.6458e-02_rb,1.0647e-02_rb,1.1905e-05_rb/)
+      kbo(:, 1,13, 4) = (/ &
+     &2.1586e+02_rb,1.6199e+02_rb,1.0811e+02_rb,5.4245e+01_rb,1.2105e-01_rb/)
+      kbo(:, 2,13, 4) = (/ &
+     &2.1869e+02_rb,1.6410e+02_rb,1.0952e+02_rb,5.4940e+01_rb,1.2618e-01_rb/)
+      kbo(:, 3,13, 4) = (/ &
+     &2.2370e+02_rb,1.6786e+02_rb,1.1202e+02_rb,5.6190e+01_rb,1.3118e-01_rb/)
+      kbo(:, 4,13, 4) = (/ &
+     &2.3070e+02_rb,1.7312e+02_rb,1.1553e+02_rb,5.7947e+01_rb,1.3630e-01_rb/)
+      kbo(:, 5,13, 4) = (/ &
+     &2.4034e+02_rb,1.8034e+02_rb,1.2035e+02_rb,6.0352e+01_rb,1.4080e-01_rb/)
+      kbo(:, 1,14, 4) = (/ &
+     &1.1263e+02_rb,8.4567e+01_rb,5.6502e+01_rb,2.8444e+01_rb,1.0638e-01_rb/)
+      kbo(:, 2,14, 4) = (/ &
+     &1.1465e+02_rb,8.6072e+01_rb,5.7500e+01_rb,2.8941e+01_rb,1.1108e-01_rb/)
+      kbo(:, 3,14, 4) = (/ &
+     &1.1796e+02_rb,8.8560e+01_rb,5.9161e+01_rb,2.9768e+01_rb,1.1550e-01_rb/)
+      kbo(:, 4,14, 4) = (/ &
+     &1.2248e+02_rb,9.1950e+01_rb,6.1421e+01_rb,3.0896e+01_rb,1.2021e-01_rb/)
+      kbo(:, 5,14, 4) = (/ &
+     &1.2816e+02_rb,9.6211e+01_rb,6.4260e+01_rb,3.2312e+01_rb,1.2485e-01_rb/)
+      kbo(:, 1,15, 4) = (/ &
+     &5.9854e+01_rb,4.4984e+01_rb,3.0119e+01_rb,1.5274e+01_rb,9.2887e-02_rb/)
+      kbo(:, 2,15, 4) = (/ &
+     &6.1271e+01_rb,4.6045e+01_rb,3.0823e+01_rb,1.5619e+01_rb,9.7129e-02_rb/)
+      kbo(:, 3,15, 4) = (/ &
+     &6.3412e+01_rb,4.7652e+01_rb,3.1894e+01_rb,1.6144e+01_rb,1.0153e-01_rb/)
+      kbo(:, 4,15, 4) = (/ &
+     &6.6234e+01_rb,4.9767e+01_rb,3.3302e+01_rb,1.6842e+01_rb,1.0585e-01_rb/)
+      kbo(:, 5,15, 4) = (/ &
+     &6.9392e+01_rb,5.2133e+01_rb,3.4876e+01_rb,1.7625e+01_rb,1.1025e-01_rb/)
+      kbo(:, 1,16, 4) = (/ &
+     &3.7898e+01_rb,2.8521e+01_rb,1.9151e+01_rb,9.8246e+00_rb,8.0720e-02_rb/)
+      kbo(:, 2,16, 4) = (/ &
+     &3.9024e+01_rb,2.9361e+01_rb,1.9706e+01_rb,1.0088e+01_rb,8.4821e-02_rb/)
+      kbo(:, 3,16, 4) = (/ &
+     &4.0630e+01_rb,3.0565e+01_rb,2.0505e+01_rb,1.0472e+01_rb,8.9056e-02_rb/)
+      kbo(:, 4,16, 4) = (/ &
+     &4.2559e+01_rb,3.2011e+01_rb,2.1467e+01_rb,1.0943e+01_rb,9.3186e-02_rb/)
+      kbo(:, 5,16, 4) = (/ &
+     &4.4564e+01_rb,3.3513e+01_rb,2.2465e+01_rb,1.1432e+01_rb,9.7171e-02_rb/)
+      kbo(:, 1,17, 4) = (/ &
+     &2.4925e+01_rb,1.8792e+01_rb,1.2674e+01_rb,6.6287e+00_rb,6.9974e-02_rb/)
+      kbo(:, 2,17, 4) = (/ &
+     &2.5814e+01_rb,1.9454e+01_rb,1.3108e+01_rb,6.8325e+00_rb,7.3907e-02_rb/)
+      kbo(:, 3,17, 4) = (/ &
+     &2.6980e+01_rb,2.0330e+01_rb,1.3687e+01_rb,7.1100e+00_rb,7.7821e-02_rb/)
+      kbo(:, 4,17, 4) = (/ &
+     &2.8287e+01_rb,2.1307e+01_rb,1.4334e+01_rb,7.4176e+00_rb,8.1565e-02_rb/)
+      kbo(:, 5,17, 4) = (/ &
+     &2.9635e+01_rb,2.2318e+01_rb,1.5005e+01_rb,7.7402e+00_rb,8.5222e-02_rb/)
+      kbo(:, 1,18, 4) = (/ &
+     &1.6833e+01_rb,1.2726e+01_rb,8.6533e+00_rb,4.6132e+00_rb,6.0568e-02_rb/)
+      kbo(:, 2,18, 4) = (/ &
+     &1.7515e+01_rb,1.3234e+01_rb,8.9835e+00_rb,4.7781e+00_rb,6.4137e-02_rb/)
+      kbo(:, 3,18, 4) = (/ &
+     &1.8359e+01_rb,1.3866e+01_rb,9.3947e+00_rb,4.9795e+00_rb,6.7564e-02_rb/)
+      kbo(:, 4,18, 4) = (/ &
+     &1.9269e+01_rb,1.4545e+01_rb,9.8365e+00_rb,5.1909e+00_rb,7.0941e-02_rb/)
+      kbo(:, 5,18, 4) = (/ &
+     &2.0186e+01_rb,1.5233e+01_rb,1.0291e+01_rb,5.4115e+00_rb,7.4160e-02_rb/)
+      kbo(:, 1,19, 4) = (/ &
+     &1.1200e+01_rb,8.5062e+00_rb,5.8670e+00_rb,3.1832e+00_rb,5.2174e-02_rb/)
+      kbo(:, 2,19, 4) = (/ &
+     &1.1703e+01_rb,8.8805e+00_rb,6.1092e+00_rb,3.3121e+00_rb,5.5280e-02_rb/)
+      kbo(:, 3,19, 4) = (/ &
+     &1.2289e+01_rb,9.3153e+00_rb,6.3897e+00_rb,3.4520e+00_rb,5.8298e-02_rb/)
+      kbo(:, 4,19, 4) = (/ &
+     &1.2879e+01_rb,9.7549e+00_rb,6.6727e+00_rb,3.5951e+00_rb,6.1230e-02_rb/)
+      kbo(:, 5,19, 4) = (/ &
+     &1.3509e+01_rb,1.0228e+01_rb,6.9797e+00_rb,3.7461e+00_rb,6.3987e-02_rb/)
+      kbo(:, 1,20, 4) = (/ &
+     &8.1017e+00_rb,6.1940e+00_rb,4.3223e+00_rb,2.3773e+00_rb,4.4725e-02_rb/)
+      kbo(:, 2,20, 4) = (/ &
+     &8.4816e+00_rb,6.4735e+00_rb,4.5091e+00_rb,2.4775e+00_rb,4.7408e-02_rb/)
+      kbo(:, 3,20, 4) = (/ &
+     &8.8970e+00_rb,6.7793e+00_rb,4.7079e+00_rb,2.5791e+00_rb,5.0027e-02_rb/)
+      kbo(:, 4,20, 4) = (/ &
+     &9.3252e+00_rb,7.0958e+00_rb,4.9137e+00_rb,2.6856e+00_rb,5.2539e-02_rb/)
+      kbo(:, 5,20, 4) = (/ &
+     &9.8057e+00_rb,7.4546e+00_rb,5.1456e+00_rb,2.8027e+00_rb,5.4910e-02_rb/)
+      kbo(:, 1,21, 4) = (/ &
+     &6.0501e+00_rb,4.6688e+00_rb,3.2884e+00_rb,1.8254e+00_rb,3.8136e-02_rb/)
+      kbo(:, 2,21, 4) = (/ &
+     &6.3357e+00_rb,4.8779e+00_rb,3.4312e+00_rb,1.9011e+00_rb,4.0441e-02_rb/)
+      kbo(:, 3,21, 4) = (/ &
+     &6.6449e+00_rb,5.1029e+00_rb,3.5792e+00_rb,1.9785e+00_rb,4.2660e-02_rb/)
+      kbo(:, 4,21, 4) = (/ &
+     &6.9762e+00_rb,5.3455e+00_rb,3.7404e+00_rb,2.0617e+00_rb,4.4823e-02_rb/)
+      kbo(:, 5,21, 4) = (/ &
+     &7.3528e+00_rb,5.6235e+00_rb,3.9228e+00_rb,2.1569e+00_rb,4.6872e-02_rb/)
+      kbo(:, 1,22, 4) = (/ &
+     &4.6404e+00_rb,3.6182e+00_rb,2.5692e+00_rb,1.4322e+00_rb,3.2495e-02_rb/)
+      kbo(:, 2,22, 4) = (/ &
+     &4.8647e+00_rb,3.7820e+00_rb,2.6806e+00_rb,1.4906e+00_rb,3.4441e-02_rb/)
+      kbo(:, 3,22, 4) = (/ &
+     &5.1076e+00_rb,3.9577e+00_rb,2.7989e+00_rb,1.5529e+00_rb,3.6349e-02_rb/)
+      kbo(:, 4,22, 4) = (/ &
+     &5.3767e+00_rb,4.1547e+00_rb,2.9316e+00_rb,1.6226e+00_rb,3.8200e-02_rb/)
+      kbo(:, 5,22, 4) = (/ &
+     &5.6763e+00_rb,4.3747e+00_rb,3.0789e+00_rb,1.7012e+00_rb,3.9814e-02_rb/)
+      kbo(:, 1,23, 4) = (/ &
+     &3.5795e+00_rb,2.8211e+00_rb,2.0153e+00_rb,1.1263e+00_rb,2.7571e-02_rb/)
+      kbo(:, 2,23, 4) = (/ &
+     &3.7577e+00_rb,2.9513e+00_rb,2.1035e+00_rb,1.1732e+00_rb,2.9222e-02_rb/)
+      kbo(:, 3,23, 4) = (/ &
+     &3.9530e+00_rb,3.0936e+00_rb,2.2016e+00_rb,1.2254e+00_rb,3.0874e-02_rb/)
+      kbo(:, 4,23, 4) = (/ &
+     &4.1701e+00_rb,3.2524e+00_rb,2.3097e+00_rb,1.2838e+00_rb,3.2339e-02_rb/)
+      kbo(:, 5,23, 4) = (/ &
+     &4.4121e+00_rb,3.4311e+00_rb,2.4318e+00_rb,1.3490e+00_rb,3.3498e-02_rb/)
+      kbo(:, 1,24, 4) = (/ &
+     &2.7499e+00_rb,2.1929e+00_rb,1.5716e+00_rb,8.8208e-01_rb,2.3328e-02_rb/)
+      kbo(:, 2,24, 4) = (/ &
+     &2.8912e+00_rb,2.2961e+00_rb,1.6422e+00_rb,9.2052e-01_rb,2.4747e-02_rb/)
+      kbo(:, 3,24, 4) = (/ &
+     &3.0489e+00_rb,2.4127e+00_rb,1.7231e+00_rb,9.6426e-01_rb,2.6067e-02_rb/)
+      kbo(:, 4,24, 4) = (/ &
+     &3.2231e+00_rb,2.5412e+00_rb,1.8120e+00_rb,1.0128e+00_rb,2.7124e-02_rb/)
+      kbo(:, 5,24, 4) = (/ &
+     &3.4149e+00_rb,2.6844e+00_rb,1.9115e+00_rb,1.0663e+00_rb,2.7906e-02_rb/)
+      kbo(:, 1,25, 4) = (/ &
+     &2.1432e+00_rb,1.7277e+00_rb,1.2393e+00_rb,6.9912e-01_rb,1.9707e-02_rb/)
+      kbo(:, 2,25, 4) = (/ &
+     &2.2580e+00_rb,1.8124e+00_rb,1.2983e+00_rb,7.3186e-01_rb,2.0862e-02_rb/)
+      kbo(:, 3,25, 4) = (/ &
+     &2.3862e+00_rb,1.9090e+00_rb,1.3657e+00_rb,7.6856e-01_rb,2.1834e-02_rb/)
+      kbo(:, 4,25, 4) = (/ &
+     &2.5268e+00_rb,2.0149e+00_rb,1.4403e+00_rb,8.0968e-01_rb,2.2567e-02_rb/)
+      kbo(:, 5,25, 4) = (/ &
+     &2.6782e+00_rb,2.1290e+00_rb,1.5196e+00_rb,8.5344e-01_rb,2.3120e-02_rb/)
+      kbo(:, 1,26, 4) = (/ &
+     &1.7021e+00_rb,1.3844e+00_rb,9.9410e-01_rb,5.6358e-01_rb,1.6610e-02_rb/)
+      kbo(:, 2,26, 4) = (/ &
+     &1.7967e+00_rb,1.4558e+00_rb,1.0446e+00_rb,5.9163e-01_rb,1.7478e-02_rb/)
+      kbo(:, 3,26, 4) = (/ &
+     &1.9029e+00_rb,1.5366e+00_rb,1.1015e+00_rb,6.2314e-01_rb,1.8168e-02_rb/)
+      kbo(:, 4,26, 4) = (/ &
+     &2.0167e+00_rb,1.6240e+00_rb,1.1633e+00_rb,6.5758e-01_rb,1.8695e-02_rb/)
+      kbo(:, 5,26, 4) = (/ &
+     &2.1386e+00_rb,1.7169e+00_rb,1.2284e+00_rb,6.9400e-01_rb,1.9096e-02_rb/)
+      kbo(:, 1,27, 4) = (/ &
+     &1.4057e+00_rb,1.1500e+00_rb,8.2663e-01_rb,4.7009e-01_rb,1.3925e-02_rb/)
+      kbo(:, 2,27, 4) = (/ &
+     &1.4879e+00_rb,1.2132e+00_rb,8.7128e-01_rb,4.9476e-01_rb,1.4552e-02_rb/)
+      kbo(:, 3,27, 4) = (/ &
+     &1.5769e+00_rb,1.2821e+00_rb,9.2036e-01_rb,5.2229e-01_rb,1.5059e-02_rb/)
+      kbo(:, 4,27, 4) = (/ &
+     &1.6734e+00_rb,1.3576e+00_rb,9.7388e-01_rb,5.5224e-01_rb,1.5448e-02_rb/)
+      kbo(:, 5,27, 4) = (/ &
+     &1.7761e+00_rb,1.4364e+00_rb,1.0297e+00_rb,5.8351e-01_rb,1.5741e-02_rb/)
+      kbo(:, 1,28, 4) = (/ &
+     &1.1944e+00_rb,9.8092e-01_rb,7.0555e-01_rb,4.0148e-01_rb,1.1607e-02_rb/)
+      kbo(:, 2,28, 4) = (/ &
+     &1.2669e+00_rb,1.0377e+00_rb,7.4577e-01_rb,4.2386e-01_rb,1.2073e-02_rb/)
+      kbo(:, 3,28, 4) = (/ &
+     &1.3434e+00_rb,1.0982e+00_rb,7.8916e-01_rb,4.4819e-01_rb,1.2454e-02_rb/)
+      kbo(:, 4,28, 4) = (/ &
+     &1.4276e+00_rb,1.1642e+00_rb,8.3605e-01_rb,4.7463e-01_rb,1.2747e-02_rb/)
+      kbo(:, 5,28, 4) = (/ &
+     &1.5174e+00_rb,1.2340e+00_rb,8.8572e-01_rb,5.0242e-01_rb,1.2962e-02_rb/)
+      kbo(:, 1,29, 4) = (/ &
+     &1.0796e+00_rb,8.8738e-01_rb,6.3729e-01_rb,3.6140e-01_rb,9.6469e-03_rb/)
+      kbo(:, 2,29, 4) = (/ &
+     &1.1462e+00_rb,9.4012e-01_rb,6.7481e-01_rb,3.8241e-01_rb,1.0006e-02_rb/)
+      kbo(:, 3,29, 4) = (/ &
+     &1.2166e+00_rb,9.9676e-01_rb,7.1549e-01_rb,4.0534e-01_rb,1.0291e-02_rb/)
+      kbo(:, 4,29, 4) = (/ &
+     &1.2950e+00_rb,1.0580e+00_rb,7.5913e-01_rb,4.2989e-01_rb,1.0512e-02_rb/)
+      kbo(:, 5,29, 4) = (/ &
+     &1.3796e+00_rb,1.1246e+00_rb,8.0670e-01_rb,4.5638e-01_rb,1.0678e-02_rb/)
+      kbo(:, 1,30, 4) = (/ &
+     &1.0009e+00_rb,8.2254e-01_rb,5.8934e-01_rb,3.3271e-01_rb,8.0058e-03_rb/)
+      kbo(:, 2,30, 4) = (/ &
+     &1.0631e+00_rb,8.7256e-01_rb,6.2533e-01_rb,3.5305e-01_rb,8.2800e-03_rb/)
+      kbo(:, 3,30, 4) = (/ &
+     &1.1308e+00_rb,9.2710e-01_rb,6.6420e-01_rb,3.7481e-01_rb,8.4963e-03_rb/)
+      kbo(:, 4,30, 4) = (/ &
+     &1.2063e+00_rb,9.8617e-01_rb,7.0646e-01_rb,3.9833e-01_rb,8.6678e-03_rb/)
+      kbo(:, 5,30, 4) = (/ &
+     &1.2872e+00_rb,1.0507e+00_rb,7.5301e-01_rb,4.2433e-01_rb,8.7939e-03_rb/)
+      kbo(:, 1,31, 4) = (/ &
+     &9.7660e-01_rb,8.0084e-01_rb,5.7177e-01_rb,3.2070e-01_rb,6.6382e-03_rb/)
+      kbo(:, 2,31, 4) = (/ &
+     &1.0374e+00_rb,8.5014e-01_rb,6.0734e-01_rb,3.4069e-01_rb,6.8456e-03_rb/)
+      kbo(:, 3,31, 4) = (/ &
+     &1.1075e+00_rb,9.0581e-01_rb,6.4681e-01_rb,3.6261e-01_rb,7.0127e-03_rb/)
+      kbo(:, 4,31, 4) = (/ &
+     &1.1834e+00_rb,9.6644e-01_rb,6.9039e-01_rb,3.8675e-01_rb,7.1469e-03_rb/)
+      kbo(:, 5,31, 4) = (/ &
+     &1.2660e+00_rb,1.0326e+00_rb,7.3825e-01_rb,4.1334e-01_rb,7.2367e-03_rb/)
+      kbo(:, 1,32, 4) = (/ &
+     &9.6422e-01_rb,7.8878e-01_rb,5.6132e-01_rb,3.1280e-01_rb,5.4958e-03_rb/)
+      kbo(:, 2,32, 4) = (/ &
+     &1.0268e+00_rb,8.3964e-01_rb,5.9767e-01_rb,3.3295e-01_rb,5.6574e-03_rb/)
+      kbo(:, 3,32, 4) = (/ &
+     &1.0993e+00_rb,8.9729e-01_rb,6.3870e-01_rb,3.5556e-01_rb,5.7908e-03_rb/)
+      kbo(:, 4,32, 4) = (/ &
+     &1.1769e+00_rb,9.5960e-01_rb,6.8365e-01_rb,3.8056e-01_rb,5.8892e-03_rb/)
+      kbo(:, 5,32, 4) = (/ &
+     &1.2618e+00_rb,1.0283e+00_rb,7.3351e-01_rb,4.0808e-01_rb,5.9563e-03_rb/)
+      kbo(:, 1,33, 4) = (/ &
+     &9.7044e-01_rb,7.9175e-01_rb,5.6148e-01_rb,3.1071e-01_rb,4.5479e-03_rb/)
+      kbo(:, 2,33, 4) = (/ &
+     &1.0377e+00_rb,8.4609e-01_rb,5.9989e-01_rb,3.3169e-01_rb,4.6770e-03_rb/)
+      kbo(:, 3,33, 4) = (/ &
+     &1.1127e+00_rb,9.0612e-01_rb,6.4309e-01_rb,3.5556e-01_rb,4.7785e-03_rb/)
+      kbo(:, 4,33, 4) = (/ &
+     &1.1941e+00_rb,9.7205e-01_rb,6.9062e-01_rb,3.8191e-01_rb,4.8530e-03_rb/)
+      kbo(:, 5,33, 4) = (/ &
+     &1.2827e+00_rb,1.0440e+00_rb,7.4287e-01_rb,4.1072e-01_rb,4.9022e-03_rb/)
+      kbo(:, 1,34, 4) = (/ &
+     &9.5216e-01_rb,7.7596e-01_rb,5.4886e-01_rb,3.0190e-01_rb,3.7602e-03_rb/)
+      kbo(:, 2,34, 4) = (/ &
+     &1.0214e+00_rb,8.3168e-01_rb,5.8836e-01_rb,3.2354e-01_rb,3.8612e-03_rb/)
+      kbo(:, 3,34, 4) = (/ &
+     &1.0976e+00_rb,8.9321e-01_rb,6.3261e-01_rb,3.4797e-01_rb,3.9398e-03_rb/)
+      kbo(:, 4,34, 4) = (/ &
+     &1.1802e+00_rb,9.6059e-01_rb,6.8153e-01_rb,3.7517e-01_rb,3.9961e-03_rb/)
+      kbo(:, 5,34, 4) = (/ &
+     &1.2700e+00_rb,1.0340e+00_rb,7.3462e-01_rb,4.0436e-01_rb,4.0321e-03_rb/)
+      kbo(:, 1,35, 4) = (/ &
+     &9.3109e-01_rb,7.5807e-01_rb,5.3485e-01_rb,2.9258e-01_rb,3.0990e-03_rb/)
+      kbo(:, 2,35, 4) = (/ &
+     &1.0014e+00_rb,8.1463e-01_rb,5.7510e-01_rb,3.1470e-01_rb,3.1794e-03_rb/)
+      kbo(:, 3,35, 4) = (/ &
+     &1.0779e+00_rb,8.7703e-01_rb,6.2017e-01_rb,3.3965e-01_rb,3.2414e-03_rb/)
+      kbo(:, 4,35, 4) = (/ &
+     &1.1611e+00_rb,9.4542e-01_rb,6.6993e-01_rb,3.6723e-01_rb,3.2866e-03_rb/)
+      kbo(:, 5,35, 4) = (/ &
+     &1.2524e+00_rb,1.0199e+00_rb,7.2388e-01_rb,3.9699e-01_rb,3.3190e-03_rb/)
+      kbo(:, 1,36, 4) = (/ &
+     &8.9907e-01_rb,7.3170e-01_rb,5.1516e-01_rb,2.8053e-01_rb,2.5454e-03_rb/)
+      kbo(:, 2,36, 4) = (/ &
+     &9.6904e-01_rb,7.8811e-01_rb,5.5541e-01_rb,3.0260e-01_rb,2.6116e-03_rb/)
+      kbo(:, 3,36, 4) = (/ &
+     &1.0454e+00_rb,8.5074e-01_rb,6.0077e-01_rb,3.2780e-01_rb,2.6639e-03_rb/)
+      kbo(:, 4,36, 4) = (/ &
+     &1.1275e+00_rb,9.1876e-01_rb,6.5041e-01_rb,3.5533e-01_rb,2.7017e-03_rb/)
+      kbo(:, 5,36, 4) = (/ &
+     &1.2188e+00_rb,9.9337e-01_rb,7.0446e-01_rb,3.8526e-01_rb,2.7298e-03_rb/)
+      kbo(:, 1,37, 4) = (/ &
+     &8.3748e-01_rb,6.8208e-01_rb,4.7958e-01_rb,2.6026e-01_rb,2.0819e-03_rb/)
+      kbo(:, 2,37, 4) = (/ &
+     &9.0437e-01_rb,7.3619e-01_rb,5.1822e-01_rb,2.8144e-01_rb,2.1383e-03_rb/)
+      kbo(:, 3,37, 4) = (/ &
+     &9.7724e-01_rb,7.9645e-01_rb,5.6196e-01_rb,3.0574e-01_rb,2.1835e-03_rb/)
+      kbo(:, 4,37, 4) = (/ &
+     &1.0560e+00_rb,8.6198e-01_rb,6.0986e-01_rb,3.3246e-01_rb,2.2167e-03_rb/)
+      kbo(:, 5,37, 4) = (/ &
+     &1.1435e+00_rb,9.3399e-01_rb,6.6218e-01_rb,3.6148e-01_rb,2.2423e-03_rb/)
+      kbo(:, 1,38, 4) = (/ &
+     &7.9164e-01_rb,6.4489e-01_rb,4.5275e-01_rb,2.4481e-01_rb,1.7033e-03_rb/)
+      kbo(:, 2,38, 4) = (/ &
+     &8.5631e-01_rb,6.9735e-01_rb,4.9025e-01_rb,2.6537e-01_rb,1.7520e-03_rb/)
+      kbo(:, 3,38, 4) = (/ &
+     &9.2681e-01_rb,7.5605e-01_rb,5.3294e-01_rb,2.8911e-01_rb,1.7893e-03_rb/)
+      kbo(:, 4,38, 4) = (/ &
+     &1.0032e+00_rb,8.1986e-01_rb,5.7959e-01_rb,3.1521e-01_rb,1.8197e-03_rb/)
+      kbo(:, 5,38, 4) = (/ &
+     &1.0885e+00_rb,8.9047e-01_rb,6.3102e-01_rb,3.4379e-01_rb,1.8432e-03_rb/)
+      kbo(:, 1,39, 4) = (/ &
+     &7.6561e-01_rb,6.2337e-01_rb,4.3685e-01_rb,2.3531e-01_rb,1.3951e-03_rb/)
+      kbo(:, 2,39, 4) = (/ &
+     &8.2959e-01_rb,6.7544e-01_rb,4.7411e-01_rb,2.5572e-01_rb,1.4362e-03_rb/)
+      kbo(:, 3,39, 4) = (/ &
+     &8.9955e-01_rb,7.3386e-01_rb,5.1664e-01_rb,2.7941e-01_rb,1.4681e-03_rb/)
+      kbo(:, 4,39, 4) = (/ &
+     &9.7533e-01_rb,7.9745e-01_rb,5.6319e-01_rb,3.0547e-01_rb,1.4952e-03_rb/)
+      kbo(:, 5,39, 4) = (/ &
+     &1.0606e+00_rb,8.6829e-01_rb,6.1487e-01_rb,3.3424e-01_rb,1.5163e-03_rb/)
+      kbo(:, 1,40, 4) = (/ &
+     &6.9042e-01_rb,5.6314e-01_rb,3.9439e-01_rb,2.1202e-01_rb,1.1367e-03_rb/)
+      kbo(:, 2,40, 4) = (/ &
+     &7.4888e-01_rb,6.1108e-01_rb,4.2878e-01_rb,2.3085e-01_rb,1.1721e-03_rb/)
+      kbo(:, 3,40, 4) = (/ &
+     &8.1362e-01_rb,6.6539e-01_rb,4.6832e-01_rb,2.5287e-01_rb,1.1998e-03_rb/)
+      kbo(:, 4,40, 4) = (/ &
+     &8.8373e-01_rb,7.2479e-01_rb,5.1188e-01_rb,2.7730e-01_rb,1.2242e-03_rb/)
+      kbo(:, 5,40, 4) = (/ &
+     &9.6254e-01_rb,7.9070e-01_rb,5.6015e-01_rb,3.0430e-01_rb,1.2434e-03_rb/)
+      kbo(:, 1,41, 4) = (/ &
+     &6.2032e-01_rb,5.0688e-01_rb,3.5482e-01_rb,1.9040e-01_rb,9.2546e-04_rb/)
+      kbo(:, 2,41, 4) = (/ &
+     &6.7393e-01_rb,5.5118e-01_rb,3.8660e-01_rb,2.0779e-01_rb,9.5549e-04_rb/)
+      kbo(:, 3,41, 4) = (/ &
+     &7.3329e-01_rb,6.0114e-01_rb,4.2302e-01_rb,2.2810e-01_rb,9.8005e-04_rb/)
+      kbo(:, 4,41, 4) = (/ &
+     &7.9788e-01_rb,6.5636e-01_rb,4.6356e-01_rb,2.5084e-01_rb,1.0016e-03_rb/)
+      kbo(:, 5,41, 4) = (/ &
+     &8.7082e-01_rb,7.1789e-01_rb,5.0871e-01_rb,2.7615e-01_rb,1.0188e-03_rb/)
+      kbo(:, 1,42, 4) = (/ &
+     &5.6327e-01_rb,4.6093e-01_rb,3.2241e-01_rb,1.7266e-01_rb,7.5328e-04_rb/)
+      kbo(:, 2,42, 4) = (/ &
+     &6.1295e-01_rb,5.0232e-01_rb,3.5212e-01_rb,1.8890e-01_rb,7.7877e-04_rb/)
+      kbo(:, 3,42, 4) = (/ &
+     &6.6777e-01_rb,5.4861e-01_rb,3.8590e-01_rb,2.0776e-01_rb,8.0043e-04_rb/)
+      kbo(:, 4,42, 4) = (/ &
+     &7.2797e-01_rb,6.0039e-01_rb,4.2397e-01_rb,2.2912e-01_rb,8.1936e-04_rb/)
+      kbo(:, 5,42, 4) = (/ &
+     &7.9621e-01_rb,6.5839e-01_rb,4.6656e-01_rb,2.5303e-01_rb,8.3483e-04_rb/)
+      kbo(:, 1,43, 4) = (/ &
+     &5.1362e-01_rb,4.2068e-01_rb,2.9391e-01_rb,1.5704e-01_rb,6.1131e-04_rb/)
+      kbo(:, 2,43, 4) = (/ &
+     &5.5956e-01_rb,4.5932e-01_rb,3.2171e-01_rb,1.7223e-01_rb,6.3359e-04_rb/)
+      kbo(:, 3,43, 4) = (/ &
+     &6.1053e-01_rb,5.0241e-01_rb,3.5315e-01_rb,1.8977e-01_rb,6.5237e-04_rb/)
+      kbo(:, 4,43, 4) = (/ &
+     &6.6664e-01_rb,5.5084e-01_rb,3.8881e-01_rb,2.0981e-01_rb,6.6921e-04_rb/)
+      kbo(:, 5,43, 4) = (/ &
+     &7.3047e-01_rb,6.0544e-01_rb,4.2894e-01_rb,2.3232e-01_rb,6.8300e-04_rb/)
+      kbo(:, 1,44, 4) = (/ &
+     &4.7369e-01_rb,3.8803e-01_rb,2.7069e-01_rb,1.4426e-01_rb,4.9540e-04_rb/)
+      kbo(:, 2,44, 4) = (/ &
+     &5.1629e-01_rb,4.2426e-01_rb,2.9688e-01_rb,1.5856e-01_rb,5.1475e-04_rb/)
+      kbo(:, 3,44, 4) = (/ &
+     &5.6430e-01_rb,4.6484e-01_rb,3.2640e-01_rb,1.7499e-01_rb,5.3131e-04_rb/)
+      kbo(:, 4,44, 4) = (/ &
+     &6.1717e-01_rb,5.1049e-01_rb,3.6006e-01_rb,1.9393e-01_rb,5.4642e-04_rb/)
+      kbo(:, 5,44, 4) = (/ &
+     &6.7746e-01_rb,5.6241e-01_rb,3.9820e-01_rb,2.1537e-01_rb,5.5870e-04_rb/)
+      kbo(:, 1,45, 4) = (/ &
+     &4.4552e-01_rb,3.6469e-01_rb,2.5398e-01_rb,1.3497e-01_rb,4.0119e-04_rb/)
+      kbo(:, 2,45, 4) = (/ &
+     &4.8593e-01_rb,3.9940e-01_rb,2.7911e-01_rb,1.4871e-01_rb,4.1803e-04_rb/)
+      kbo(:, 3,45, 4) = (/ &
+     &5.3210e-01_rb,4.3837e-01_rb,3.0742e-01_rb,1.6436e-01_rb,4.3281e-04_rb/)
+      kbo(:, 4,45, 4) = (/ &
+     &5.8266e-01_rb,4.8202e-01_rb,3.3961e-01_rb,1.8254e-01_rb,4.4586e-04_rb/)
+      kbo(:, 5,45, 4) = (/ &
+     &6.4061e-01_rb,5.3215e-01_rb,3.7643e-01_rb,2.0327e-01_rb,4.5687e-04_rb/)
+      kbo(:, 1,46, 4) = (/ &
+     &4.2249e-01_rb,3.4536e-01_rb,2.4007e-01_rb,1.2719e-01_rb,3.2444e-04_rb/)
+      kbo(:, 2,46, 4) = (/ &
+     &4.6085e-01_rb,3.7858e-01_rb,2.6416e-01_rb,1.4037e-01_rb,3.3911e-04_rb/)
+      kbo(:, 3,46, 4) = (/ &
+     &5.0558e-01_rb,4.1641e-01_rb,2.9158e-01_rb,1.5550e-01_rb,3.5210e-04_rb/)
+      kbo(:, 4,46, 4) = (/ &
+     &5.5446e-01_rb,4.5852e-01_rb,3.2261e-01_rb,1.7296e-01_rb,3.6323e-04_rb/)
+      kbo(:, 5,46, 4) = (/ &
+     &6.1034e-01_rb,5.0695e-01_rb,3.5817e-01_rb,1.9305e-01_rb,3.7330e-04_rb/)
+      kbo(:, 1,47, 4) = (/ &
+     &3.9554e-01_rb,3.2291e-01_rb,2.2401e-01_rb,1.1833e-01_rb,2.6160e-04_rb/)
+      kbo(:, 2,47, 4) = (/ &
+     &4.3146e-01_rb,3.5412e-01_rb,2.4668e-01_rb,1.3078e-01_rb,2.7433e-04_rb/)
+      kbo(:, 3,47, 4) = (/ &
+     &4.7369e-01_rb,3.9022e-01_rb,2.7284e-01_rb,1.4515e-01_rb,2.8554e-04_rb/)
+      kbo(:, 4,47, 4) = (/ &
+     &5.2055e-01_rb,4.3044e-01_rb,3.0232e-01_rb,1.6167e-01_rb,2.9527e-04_rb/)
+      kbo(:, 5,47, 4) = (/ &
+     &5.7336e-01_rb,4.7635e-01_rb,3.3620e-01_rb,1.8084e-01_rb,3.0428e-04_rb/)
+      kbo(:, 1,48, 4) = (/ &
+     &3.8090e-01_rb,3.1036e-01_rb,2.1482e-01_rb,1.1310e-01_rb,2.1085e-04_rb/)
+      kbo(:, 2,48, 4) = (/ &
+     &4.1533e-01_rb,3.4019e-01_rb,2.3651e-01_rb,1.2501e-01_rb,2.2180e-04_rb/)
+      kbo(:, 3,48, 4) = (/ &
+     &4.5614e-01_rb,3.7537e-01_rb,2.6197e-01_rb,1.3898e-01_rb,2.3143e-04_rb/)
+      kbo(:, 4,48, 4) = (/ &
+     &5.0246e-01_rb,4.1492e-01_rb,2.9081e-01_rb,1.5505e-01_rb,2.3998e-04_rb/)
+      kbo(:, 5,48, 4) = (/ &
+     &5.5365e-01_rb,4.5945e-01_rb,3.2372e-01_rb,1.7366e-01_rb,2.4799e-04_rb/)
+      kbo(:, 1,49, 4) = (/ &
+     &3.8223e-01_rb,3.1052e-01_rb,2.1444e-01_rb,1.1246e-01_rb,1.6987e-04_rb/)
+      kbo(:, 2,49, 4) = (/ &
+     &4.1659e-01_rb,3.4001e-01_rb,2.3576e-01_rb,1.2419e-01_rb,1.7919e-04_rb/)
+      kbo(:, 3,49, 4) = (/ &
+     &4.5734e-01_rb,3.7525e-01_rb,2.6133e-01_rb,1.3821e-01_rb,1.8743e-04_rb/)
+      kbo(:, 4,49, 4) = (/ &
+     &5.0487e-01_rb,4.1574e-01_rb,2.9072e-01_rb,1.5448e-01_rb,1.9508e-04_rb/)
+      kbo(:, 5,49, 4) = (/ &
+     &5.5695e-01_rb,4.6079e-01_rb,3.2385e-01_rb,1.7317e-01_rb,2.0224e-04_rb/)
+      kbo(:, 1,50, 4) = (/ &
+     &3.6631e-01_rb,2.9712e-01_rb,2.0481e-01_rb,1.0712e-01_rb,1.3672e-04_rb/)
+      kbo(:, 2,50, 4) = (/ &
+     &3.9879e-01_rb,3.2486e-01_rb,2.2483e-01_rb,1.1811e-01_rb,1.4458e-04_rb/)
+      kbo(:, 3,50, 4) = (/ &
+     &4.3761e-01_rb,3.5858e-01_rb,2.4934e-01_rb,1.3160e-01_rb,1.5166e-04_rb/)
+      kbo(:, 4,50, 4) = (/ &
+     &4.8398e-01_rb,3.9821e-01_rb,2.7799e-01_rb,1.4737e-01_rb,1.5830e-04_rb/)
+      kbo(:, 5,50, 4) = (/ &
+     &5.3499e-01_rb,4.4212e-01_rb,3.1022e-01_rb,1.6549e-01_rb,1.6465e-04_rb/)
+      kbo(:, 1,51, 4) = (/ &
+     &3.4406e-01_rb,2.7861e-01_rb,1.9179e-01_rb,1.0006e-01_rb,1.0998e-04_rb/)
+      kbo(:, 2,51, 4) = (/ &
+     &3.7372e-01_rb,3.0420e-01_rb,2.1018e-01_rb,1.1015e-01_rb,1.1652e-04_rb/)
+      kbo(:, 3,51, 4) = (/ &
+     &4.0998e-01_rb,3.3570e-01_rb,2.3310e-01_rb,1.2281e-01_rb,1.2263e-04_rb/)
+      kbo(:, 4,51, 4) = (/ &
+     &4.5397e-01_rb,3.7347e-01_rb,2.6041e-01_rb,1.3780e-01_rb,1.2829e-04_rb/)
+      kbo(:, 5,51, 4) = (/ &
+     &5.0293e-01_rb,4.1560e-01_rb,2.9124e-01_rb,1.5503e-01_rb,1.3386e-04_rb/)
+      kbo(:, 1,52, 4) = (/ &
+     &3.3305e-01_rb,2.6887e-01_rb,1.8470e-01_rb,9.6116e-02_rb,8.8414e-05_rb/)
+      kbo(:, 2,52, 4) = (/ &
+     &3.6030e-01_rb,2.9285e-01_rb,2.0201e-01_rb,1.0559e-01_rb,9.3941e-05_rb/)
+      kbo(:, 3,52, 4) = (/ &
+     &3.9501e-01_rb,3.2288e-01_rb,2.2382e-01_rb,1.1765e-01_rb,9.9142e-05_rb/)
+      kbo(:, 4,52, 4) = (/ &
+     &4.3753e-01_rb,3.5954e-01_rb,2.5031e-01_rb,1.3217e-01_rb,1.0404e-04_rb/)
+      kbo(:, 5,52, 4) = (/ &
+     &4.8592e-01_rb,4.0113e-01_rb,2.8062e-01_rb,1.4902e-01_rb,1.0887e-04_rb/)
+      kbo(:, 1,53, 4) = (/ &
+     &3.3673e-01_rb,2.7062e-01_rb,1.8541e-01_rb,9.6126e-02_rb,7.1043e-05_rb/)
+      kbo(:, 2,53, 4) = (/ &
+     &3.6211e-01_rb,2.9355e-01_rb,2.0209e-01_rb,1.0535e-01_rb,7.5715e-05_rb/)
+      kbo(:, 3,53, 4) = (/ &
+     &3.9659e-01_rb,3.2308e-01_rb,2.2347e-01_rb,1.1715e-01_rb,8.0134e-05_rb/)
+      kbo(:, 4,53, 4) = (/ &
+     &4.3895e-01_rb,3.5976e-01_rb,2.5000e-01_rb,1.3170e-01_rb,8.4354e-05_rb/)
+      kbo(:, 5,53, 4) = (/ &
+     &4.8875e-01_rb,4.0230e-01_rb,2.8086e-01_rb,1.4875e-01_rb,8.8431e-05_rb/)
+      kbo(:, 1,54, 4) = (/ &
+     &2.9565e-01_rb,2.3718e-01_rb,1.6225e-01_rb,8.3929e-02_rb,5.7062e-05_rb/)
+      kbo(:, 2,54, 4) = (/ &
+     &3.1566e-01_rb,2.5610e-01_rb,1.7621e-01_rb,9.1726e-02_rb,6.0930e-05_rb/)
+      kbo(:, 3,54, 4) = (/ &
+     &3.4501e-01_rb,2.8145e-01_rb,1.9453e-01_rb,1.0184e-01_rb,6.4630e-05_rb/)
+      kbo(:, 4,54, 4) = (/ &
+     &3.8166e-01_rb,3.1342e-01_rb,2.1772e-01_rb,1.1458e-01_rb,6.8122e-05_rb/)
+      kbo(:, 5,54, 4) = (/ &
+     &4.2580e-01_rb,3.5139e-01_rb,2.4524e-01_rb,1.2978e-01_rb,7.1556e-05_rb/)
+      kbo(:, 1,55, 4) = (/ &
+     &2.3763e-01_rb,1.9054e-01_rb,1.3023e-01_rb,6.7270e-02_rb,4.5734e-05_rb/)
+      kbo(:, 2,55, 4) = (/ &
+     &2.5160e-01_rb,2.0457e-01_rb,1.4076e-01_rb,7.3233e-02_rb,4.8936e-05_rb/)
+      kbo(:, 3,55, 4) = (/ &
+     &2.7408e-01_rb,2.2452e-01_rb,1.5520e-01_rb,8.1193e-02_rb,5.2040e-05_rb/)
+      kbo(:, 4,55, 4) = (/ &
+     &3.0302e-01_rb,2.4999e-01_rb,1.7374e-01_rb,9.1409e-02_rb,5.4914e-05_rb/)
+      kbo(:, 5,55, 4) = (/ &
+     &3.3851e-01_rb,2.8105e-01_rb,1.9629e-01_rb,1.0386e-01_rb,5.7717e-05_rb/)
+      kbo(:, 1,56, 4) = (/ &
+     &1.9160e-01_rb,1.5340e-01_rb,1.0472e-01_rb,5.4007e-02_rb,3.6625e-05_rb/)
+      kbo(:, 2,56, 4) = (/ &
+     &2.0095e-01_rb,1.6357e-01_rb,1.1247e-01_rb,5.8467e-02_rb,3.9320e-05_rb/)
+      kbo(:, 3,56, 4) = (/ &
+     &2.1781e-01_rb,1.7908e-01_rb,1.2379e-01_rb,6.4708e-02_rb,4.1872e-05_rb/)
+      kbo(:, 4,56, 4) = (/ &
+     &2.4047e-01_rb,1.9929e-01_rb,1.3856e-01_rb,7.2864e-02_rb,4.4297e-05_rb/)
+      kbo(:, 5,56, 4) = (/ &
+     &2.6886e-01_rb,2.2463e-01_rb,1.5695e-01_rb,8.3003e-02_rb,4.6496e-05_rb/)
+      kbo(:, 1,57, 4) = (/ &
+     &1.5488e-01_rb,1.2382e-01_rb,8.4407e-02_rb,4.3459e-02_rb,2.9307e-05_rb/)
+      kbo(:, 2,57, 4) = (/ &
+     &1.6082e-01_rb,1.3093e-01_rb,8.9925e-02_rb,4.6681e-02_rb,3.1559e-05_rb/)
+      kbo(:, 3,57, 4) = (/ &
+     &1.7312e-01_rb,1.4284e-01_rb,9.8719e-02_rb,5.1558e-02_rb,3.3681e-05_rb/)
+      kbo(:, 4,57, 4) = (/ &
+     &1.9084e-01_rb,1.5883e-01_rb,1.1043e-01_rb,5.8031e-02_rb,3.5680e-05_rb/)
+      kbo(:, 5,57, 4) = (/ &
+     &2.1336e-01_rb,1.7931e-01_rb,1.2534e-01_rb,6.6236e-02_rb,3.7524e-05_rb/)
+      kbo(:, 1,58, 4) = (/ &
+     &3.3087e-02_rb,3.2322e-02_rb,2.8310e-02_rb,2.0395e-02_rb,2.3455e-05_rb/)
+      kbo(:, 2,58, 4) = (/ &
+     &3.4053e-02_rb,3.3907e-02_rb,2.9921e-02_rb,2.1729e-02_rb,2.5336e-05_rb/)
+      kbo(:, 3,58, 4) = (/ &
+     &3.6376e-02_rb,3.6839e-02_rb,3.2736e-02_rb,2.3935e-02_rb,2.7095e-05_rb/)
+      kbo(:, 4,58, 4) = (/ &
+     &4.0009e-02_rb,4.0914e-02_rb,3.6586e-02_rb,2.6918e-02_rb,2.8737e-05_rb/)
+      kbo(:, 5,58, 4) = (/ &
+     &4.4706e-02_rb,4.6236e-02_rb,4.1585e-02_rb,3.0778e-02_rb,3.0324e-05_rb/)
+      kbo(:, 1,59, 4) = (/ &
+     &3.1774e-02_rb,2.9779e-02_rb,2.4302e-02_rb,1.5595e-02_rb,1.9010e-05_rb/)
+      kbo(:, 2,59, 4) = (/ &
+     &3.2644e-02_rb,3.1267e-02_rb,2.5718e-02_rb,1.6636e-02_rb,2.0536e-05_rb/)
+      kbo(:, 3,59, 4) = (/ &
+     &3.4800e-02_rb,3.4041e-02_rb,2.8207e-02_rb,1.8368e-02_rb,2.1957e-05_rb/)
+      kbo(:, 4,59, 4) = (/ &
+     &3.8295e-02_rb,3.7946e-02_rb,3.1647e-02_rb,2.0746e-02_rb,2.3288e-05_rb/)
+      kbo(:, 5,59, 4) = (/ &
+     &4.2857e-02_rb,4.3069e-02_rb,3.6135e-02_rb,2.3842e-02_rb,2.4528e-05_rb/)
+      kbo(:, 1,13, 5) = (/ &
+     &3.9549e+02_rb,2.9672e+02_rb,1.9794e+02_rb,9.9160e+01_rb,2.1101e-01_rb/)
+      kbo(:, 2,13, 5) = (/ &
+     &4.0510e+02_rb,3.0393e+02_rb,2.0275e+02_rb,1.0157e+02_rb,2.1805e-01_rb/)
+      kbo(:, 3,13, 5) = (/ &
+     &4.1502e+02_rb,3.1136e+02_rb,2.0770e+02_rb,1.0405e+02_rb,2.2406e-01_rb/)
+      kbo(:, 4,13, 5) = (/ &
+     &4.2481e+02_rb,3.1871e+02_rb,2.1261e+02_rb,1.0651e+02_rb,2.2934e-01_rb/)
+      kbo(:, 5,13, 5) = (/ &
+     &4.3504e+02_rb,3.2638e+02_rb,2.1772e+02_rb,1.0907e+02_rb,2.3453e-01_rb/)
+      kbo(:, 1,14, 5) = (/ &
+     &2.0979e+02_rb,1.5743e+02_rb,1.0508e+02_rb,5.2736e+01_rb,1.8842e-01_rb/)
+      kbo(:, 2,14, 5) = (/ &
+     &2.1502e+02_rb,1.6136e+02_rb,1.0770e+02_rb,5.4046e+01_rb,1.9486e-01_rb/)
+      kbo(:, 3,14, 5) = (/ &
+     &2.2030e+02_rb,1.6532e+02_rb,1.1034e+02_rb,5.5365e+01_rb,2.0050e-01_rb/)
+      kbo(:, 4,14, 5) = (/ &
+     &2.2600e+02_rb,1.6960e+02_rb,1.1320e+02_rb,5.6802e+01_rb,2.0562e-01_rb/)
+      kbo(:, 5,14, 5) = (/ &
+     &2.3272e+02_rb,1.7464e+02_rb,1.1657e+02_rb,5.8488e+01_rb,2.1024e-01_rb/)
+      kbo(:, 1,15, 5) = (/ &
+     &1.1299e+02_rb,8.4842e+01_rb,5.6692e+01_rb,2.8544e+01_rb,1.6706e-01_rb/)
+      kbo(:, 2,15, 5) = (/ &
+     &1.1594e+02_rb,8.7050e+01_rb,5.8163e+01_rb,2.9281e+01_rb,1.7285e-01_rb/)
+      kbo(:, 3,15, 5) = (/ &
+     &1.1912e+02_rb,8.9439e+01_rb,5.9757e+01_rb,3.0081e+01_rb,1.7816e-01_rb/)
+      kbo(:, 4,15, 5) = (/ &
+     &1.2274e+02_rb,9.2159e+01_rb,6.1575e+01_rb,3.0997e+01_rb,1.8306e-01_rb/)
+      kbo(:, 5,15, 5) = (/ &
+     &1.2711e+02_rb,9.5434e+01_rb,6.3760e+01_rb,3.2089e+01_rb,1.8793e-01_rb/)
+      kbo(:, 1,16, 5) = (/ &
+     &7.2342e+01_rb,5.4353e+01_rb,3.6365e+01_rb,1.8388e+01_rb,1.4721e-01_rb/)
+      kbo(:, 2,16, 5) = (/ &
+     &7.4310e+01_rb,5.5827e+01_rb,3.7348e+01_rb,1.8883e+01_rb,1.5241e-01_rb/)
+      kbo(:, 3,16, 5) = (/ &
+     &7.6651e+01_rb,5.7588e+01_rb,3.8528e+01_rb,1.9478e+01_rb,1.5739e-01_rb/)
+      kbo(:, 4,16, 5) = (/ &
+     &7.9417e+01_rb,5.9665e+01_rb,3.9914e+01_rb,2.0174e+01_rb,1.6237e-01_rb/)
+      kbo(:, 5,16, 5) = (/ &
+     &8.2509e+01_rb,6.1984e+01_rb,4.1462e+01_rb,2.0947e+01_rb,1.6729e-01_rb/)
+      kbo(:, 1,17, 5) = (/ &
+     &4.7912e+01_rb,3.6032e+01_rb,2.4156e+01_rb,1.2312e+01_rb,1.2867e-01_rb/)
+      kbo(:, 2,17, 5) = (/ &
+     &4.9396e+01_rb,3.7145e+01_rb,2.4898e+01_rb,1.2683e+01_rb,1.3345e-01_rb/)
+      kbo(:, 3,17, 5) = (/ &
+     &5.1211e+01_rb,3.8509e+01_rb,2.5812e+01_rb,1.3139e+01_rb,1.3833e-01_rb/)
+      kbo(:, 4,17, 5) = (/ &
+     &5.3243e+01_rb,4.0036e+01_rb,2.6830e+01_rb,1.3649e+01_rb,1.4345e-01_rb/)
+      kbo(:, 5,17, 5) = (/ &
+     &5.5359e+01_rb,4.1621e+01_rb,2.7887e+01_rb,1.4174e+01_rb,1.4839e-01_rb/)
+      kbo(:, 1,18, 5) = (/ &
+     &3.2517e+01_rb,2.4486e+01_rb,1.6464e+01_rb,8.5255e+00_rb,1.1175e-01_rb/)
+      kbo(:, 2,18, 5) = (/ &
+     &3.3702e+01_rb,2.5376e+01_rb,1.7056e+01_rb,8.8105e+00_rb,1.1647e-01_rb/)
+      kbo(:, 3,18, 5) = (/ &
+     &3.5055e+01_rb,2.6392e+01_rb,1.7736e+01_rb,9.1463e+00_rb,1.2136e-01_rb/)
+      kbo(:, 4,18, 5) = (/ &
+     &3.6466e+01_rb,2.7452e+01_rb,1.8446e+01_rb,9.5008e+00_rb,1.2627e-01_rb/)
+      kbo(:, 5,18, 5) = (/ &
+     &3.7955e+01_rb,2.8569e+01_rb,1.9189e+01_rb,9.8619e+00_rb,1.3101e-01_rb/)
+      kbo(:, 1,19, 5) = (/ &
+     &2.1727e+01_rb,1.6393e+01_rb,1.1086e+01_rb,5.8761e+00_rb,9.6819e-02_rb/)
+      kbo(:, 2,19, 5) = (/ &
+     &2.2617e+01_rb,1.7062e+01_rb,1.1530e+01_rb,6.0896e+00_rb,1.0144e-01_rb/)
+      kbo(:, 3,19, 5) = (/ &
+     &2.3543e+01_rb,1.7760e+01_rb,1.1998e+01_rb,6.3260e+00_rb,1.0605e-01_rb/)
+      kbo(:, 4,19, 5) = (/ &
+     &2.4512e+01_rb,1.8488e+01_rb,1.2483e+01_rb,6.5653e+00_rb,1.1055e-01_rb/)
+      kbo(:, 5,19, 5) = (/ &
+     &2.5548e+01_rb,1.9265e+01_rb,1.2998e+01_rb,6.8170e+00_rb,1.1478e-01_rb/)
+      kbo(:, 1,20, 5) = (/ &
+     &1.5756e+01_rb,1.1916e+01_rb,8.1383e+00_rb,4.3914e+00_rb,8.3853e-02_rb/)
+      kbo(:, 2,20, 5) = (/ &
+     &1.6431e+01_rb,1.2425e+01_rb,8.4724e+00_rb,4.5624e+00_rb,8.8103e-02_rb/)
+      kbo(:, 3,20, 5) = (/ &
+     &1.7121e+01_rb,1.2945e+01_rb,8.8179e+00_rb,4.7428e+00_rb,9.2252e-02_rb/)
+      kbo(:, 4,20, 5) = (/ &
+     &1.7848e+01_rb,1.3492e+01_rb,9.1779e+00_rb,4.9264e+00_rb,9.6228e-02_rb/)
+      kbo(:, 5,20, 5) = (/ &
+     &1.8606e+01_rb,1.4060e+01_rb,9.5528e+00_rb,5.1134e+00_rb,9.9993e-02_rb/)
+      kbo(:, 1,21, 5) = (/ &
+     &1.1787e+01_rb,8.9459e+00_rb,6.1836e+00_rb,3.3861e+00_rb,7.2353e-02_rb/)
+      kbo(:, 2,21, 5) = (/ &
+     &1.2303e+01_rb,9.3354e+00_rb,6.4401e+00_rb,3.5254e+00_rb,7.6084e-02_rb/)
+      kbo(:, 3,21, 5) = (/ &
+     &1.2826e+01_rb,9.7292e+00_rb,6.7034e+00_rb,3.6681e+00_rb,7.9750e-02_rb/)
+      kbo(:, 4,21, 5) = (/ &
+     &1.3367e+01_rb,1.0136e+01_rb,6.9714e+00_rb,3.8111e+00_rb,8.3233e-02_rb/)
+      kbo(:, 5,21, 5) = (/ &
+     &1.3957e+01_rb,1.0578e+01_rb,7.2613e+00_rb,3.9589e+00_rb,8.6478e-02_rb/)
+      kbo(:, 1,22, 5) = (/ &
+     &9.0718e+00_rb,6.9242e+00_rb,4.8361e+00_rb,2.6781e+00_rb,6.2307e-02_rb/)
+      kbo(:, 2,22, 5) = (/ &
+     &9.4616e+00_rb,7.2180e+00_rb,5.0370e+00_rb,2.7912e+00_rb,6.5577e-02_rb/)
+      kbo(:, 3,22, 5) = (/ &
+     &9.8598e+00_rb,7.5169e+00_rb,5.2399e+00_rb,2.9065e+00_rb,6.8755e-02_rb/)
+      kbo(:, 4,22, 5) = (/ &
+     &1.0285e+01_rb,7.8355e+00_rb,5.4531e+00_rb,3.0213e+00_rb,7.1732e-02_rb/)
+      kbo(:, 5,22, 5) = (/ &
+     &1.0774e+01_rb,8.1994e+00_rb,5.6924e+00_rb,3.1454e+00_rb,7.4544e-02_rb/)
+      kbo(:, 1,23, 5) = (/ &
+     &7.0162e+00_rb,5.3998e+00_rb,3.8098e+00_rb,2.1262e+00_rb,5.3397e-02_rb/)
+      kbo(:, 2,23, 5) = (/ &
+     &7.3118e+00_rb,5.6231e+00_rb,3.9665e+00_rb,2.2161e+00_rb,5.6221e-02_rb/)
+      kbo(:, 3,23, 5) = (/ &
+     &7.6257e+00_rb,5.8582e+00_rb,4.1301e+00_rb,2.3090e+00_rb,5.8902e-02_rb/)
+      kbo(:, 4,23, 5) = (/ &
+     &7.9740e+00_rb,6.1181e+00_rb,4.3060e+00_rb,2.4033e+00_rb,6.1507e-02_rb/)
+      kbo(:, 5,23, 5) = (/ &
+     &8.3852e+00_rb,6.4219e+00_rb,4.5083e+00_rb,2.5100e+00_rb,6.3983e-02_rb/)
+      kbo(:, 1,24, 5) = (/ &
+     &5.3945e+00_rb,4.1959e+00_rb,2.9887e+00_rb,1.6764e+00_rb,4.5562e-02_rb/)
+      kbo(:, 2,24, 5) = (/ &
+     &5.6263e+00_rb,4.3723e+00_rb,3.1153e+00_rb,1.7491e+00_rb,4.7953e-02_rb/)
+      kbo(:, 3,24, 5) = (/ &
+     &5.8803e+00_rb,4.5632e+00_rb,3.2505e+00_rb,1.8236e+00_rb,5.0272e-02_rb/)
+      kbo(:, 4,24, 5) = (/ &
+     &6.1740e+00_rb,4.7820e+00_rb,3.4008e+00_rb,1.9048e+00_rb,5.2561e-02_rb/)
+      kbo(:, 5,24, 5) = (/ &
+     &6.5136e+00_rb,5.0303e+00_rb,3.5679e+00_rb,1.9952e+00_rb,5.4580e-02_rb/)
+      kbo(:, 1,25, 5) = (/ &
+     &4.2050e+00_rb,3.3091e+00_rb,2.3724e+00_rb,1.3359e+00_rb,3.8734e-02_rb/)
+      kbo(:, 2,25, 5) = (/ &
+     &4.3935e+00_rb,3.4537e+00_rb,2.4783e+00_rb,1.3955e+00_rb,4.0785e-02_rb/)
+      kbo(:, 3,25, 5) = (/ &
+     &4.6090e+00_rb,3.6169e+00_rb,2.5944e+00_rb,1.4600e+00_rb,4.2817e-02_rb/)
+      kbo(:, 4,25, 5) = (/ &
+     &4.8571e+00_rb,3.8012e+00_rb,2.7227e+00_rb,1.5304e+00_rb,4.4658e-02_rb/)
+      kbo(:, 5,25, 5) = (/ &
+     &5.1379e+00_rb,4.0071e+00_rb,2.8658e+00_rb,1.6091e+00_rb,4.6106e-02_rb/)
+      kbo(:, 1,26, 5) = (/ &
+     &3.3393e+00_rb,2.6590e+00_rb,1.9126e+00_rb,1.0812e+00_rb,3.2872e-02_rb/)
+      kbo(:, 2,26, 5) = (/ &
+     &3.4998e+00_rb,2.7840e+00_rb,2.0042e+00_rb,1.1322e+00_rb,3.4655e-02_rb/)
+      kbo(:, 3,26, 5) = (/ &
+     &3.6839e+00_rb,2.9244e+00_rb,2.1044e+00_rb,1.1892e+00_rb,3.6289e-02_rb/)
+      kbo(:, 4,26, 5) = (/ &
+     &3.8971e+00_rb,3.0834e+00_rb,2.2165e+00_rb,1.2514e+00_rb,3.7614e-02_rb/)
+      kbo(:, 5,26, 5) = (/ &
+     &4.1266e+00_rb,3.2542e+00_rb,2.3379e+00_rb,1.3199e+00_rb,3.8535e-02_rb/)
+      kbo(:, 1,27, 5) = (/ &
+     &2.7587e+00_rb,2.2186e+00_rb,1.5971e+00_rb,9.0467e-01_rb,2.7863e-02_rb/)
+      kbo(:, 2,27, 5) = (/ &
+     &2.9012e+00_rb,2.3317e+00_rb,1.6793e+00_rb,9.5148e-01_rb,2.9310e-02_rb/)
+      kbo(:, 3,27, 5) = (/ &
+     &3.0653e+00_rb,2.4577e+00_rb,1.7694e+00_rb,1.0026e+00_rb,3.0500e-02_rb/)
+      kbo(:, 4,27, 5) = (/ &
+     &3.2491e+00_rb,2.5968e+00_rb,1.8696e+00_rb,1.0593e+00_rb,3.1389e-02_rb/)
+      kbo(:, 5,27, 5) = (/ &
+     &3.4443e+00_rb,2.7432e+00_rb,1.9752e+00_rb,1.1204e+00_rb,3.1994e-02_rb/)
+      kbo(:, 1,28, 5) = (/ &
+     &2.3461e+00_rb,1.9019e+00_rb,1.3684e+00_rb,7.7601e-01_rb,2.3534e-02_rb/)
+      kbo(:, 2,28, 5) = (/ &
+     &2.4760e+00_rb,2.0059e+00_rb,1.4439e+00_rb,8.1944e-01_rb,2.4611e-02_rb/)
+      kbo(:, 3,28, 5) = (/ &
+     &2.6235e+00_rb,2.1209e+00_rb,1.5268e+00_rb,8.6687e-01_rb,2.5434e-02_rb/)
+      kbo(:, 4,28, 5) = (/ &
+     &2.7836e+00_rb,2.2441e+00_rb,1.6160e+00_rb,9.1849e-01_rb,2.6044e-02_rb/)
+      kbo(:, 5,28, 5) = (/ &
+     &2.9562e+00_rb,2.3753e+00_rb,1.7120e+00_rb,9.7389e-01_rb,2.6449e-02_rb/)
+      kbo(:, 1,29, 5) = (/ &
+     &2.1229e+00_rb,1.7281e+00_rb,1.2411e+00_rb,7.0258e-01_rb,1.9767e-02_rb/)
+      kbo(:, 2,29, 5) = (/ &
+     &2.2483e+00_rb,1.8286e+00_rb,1.3142e+00_rb,7.4438e-01_rb,2.0526e-02_rb/)
+      kbo(:, 3,29, 5) = (/ &
+     &2.3867e+00_rb,1.9376e+00_rb,1.3932e+00_rb,7.8990e-01_rb,2.1121e-02_rb/)
+      kbo(:, 4,29, 5) = (/ &
+     &2.5370e+00_rb,2.0544e+00_rb,1.4782e+00_rb,8.3936e-01_rb,2.1540e-02_rb/)
+      kbo(:, 5,29, 5) = (/ &
+     &2.7005e+00_rb,2.1808e+00_rb,1.5709e+00_rb,8.9251e-01_rb,2.1826e-02_rb/)
+      kbo(:, 1,30, 5) = (/ &
+     &1.9731e+00_rb,1.6098e+00_rb,1.1534e+00_rb,6.5097e-01_rb,1.6498e-02_rb/)
+      kbo(:, 2,30, 5) = (/ &
+     &2.0958e+00_rb,1.7088e+00_rb,1.2257e+00_rb,6.9208e-01_rb,1.7054e-02_rb/)
+      kbo(:, 3,30, 5) = (/ &
+     &2.2285e+00_rb,1.8139e+00_rb,1.3022e+00_rb,7.3642e-01_rb,1.7482e-02_rb/)
+      kbo(:, 4,30, 5) = (/ &
+     &2.3729e+00_rb,1.9280e+00_rb,1.3861e+00_rb,7.8518e-01_rb,1.7790e-02_rb/)
+      kbo(:, 5,30, 5) = (/ &
+     &2.5353e+00_rb,2.0546e+00_rb,1.4785e+00_rb,8.3767e-01_rb,1.7989e-02_rb/)
+      kbo(:, 1,31, 5) = (/ &
+     &1.9340e+00_rb,1.5772e+00_rb,1.1264e+00_rb,6.3182e-01_rb,1.3731e-02_rb/)
+      kbo(:, 2,31, 5) = (/ &
+     &2.0574e+00_rb,1.6773e+00_rb,1.1995e+00_rb,6.7358e-01_rb,1.4152e-02_rb/)
+      kbo(:, 3,31, 5) = (/ &
+     &2.1914e+00_rb,1.7848e+00_rb,1.2781e+00_rb,7.1915e-01_rb,1.4466e-02_rb/)
+      kbo(:, 4,31, 5) = (/ &
+     &2.3406e+00_rb,1.9025e+00_rb,1.3648e+00_rb,7.6925e-01_rb,1.4687e-02_rb/)
+      kbo(:, 5,31, 5) = (/ &
+     &2.5107e+00_rb,2.0354e+00_rb,1.4612e+00_rb,8.2397e-01_rb,1.4843e-02_rb/)
+      kbo(:, 1,32, 5) = (/ &
+     &1.9204e+00_rb,1.5654e+00_rb,1.1148e+00_rb,6.2147e-01_rb,1.1411e-02_rb/)
+      kbo(:, 2,32, 5) = (/ &
+     &2.0455e+00_rb,1.6672e+00_rb,1.1895e+00_rb,6.6431e-01_rb,1.1723e-02_rb/)
+      kbo(:, 3,32, 5) = (/ &
+     &2.1839e+00_rb,1.7785e+00_rb,1.2711e+00_rb,7.1180e-01_rb,1.1953e-02_rb/)
+      kbo(:, 4,32, 5) = (/ &
+     &2.3424e+00_rb,1.9038e+00_rb,1.3629e+00_rb,7.6419e-01_rb,1.2125e-02_rb/)
+      kbo(:, 5,32, 5) = (/ &
+     &2.5216e+00_rb,2.0435e+00_rb,1.4643e+00_rb,8.2232e-01_rb,1.2240e-02_rb/)
+      kbo(:, 1,33, 5) = (/ &
+     &1.9423e+00_rb,1.5823e+00_rb,1.1236e+00_rb,6.2280e-01_rb,9.4667e-03_rb/)
+      kbo(:, 2,33, 5) = (/ &
+     &2.0728e+00_rb,1.6884e+00_rb,1.2018e+00_rb,6.6778e-01_rb,9.6991e-03_rb/)
+      kbo(:, 3,33, 5) = (/ &
+     &2.2222e+00_rb,1.8079e+00_rb,1.2892e+00_rb,7.1818e-01_rb,9.8807e-03_rb/)
+      kbo(:, 4,33, 5) = (/ &
+     &2.3928e+00_rb,1.9430e+00_rb,1.3880e+00_rb,7.7444e-01_rb,1.0013e-02_rb/)
+      kbo(:, 5,33, 5) = (/ &
+     &2.5873e+00_rb,2.0935e+00_rb,1.4975e+00_rb,8.3717e-01_rb,1.0093e-02_rb/)
+      kbo(:, 1,34, 5) = (/ &
+     &1.9127e+00_rb,1.5588e+00_rb,1.1053e+00_rb,6.1048e-01_rb,7.8309e-03_rb/)
+      kbo(:, 2,34, 5) = (/ &
+     &2.0473e+00_rb,1.6687e+00_rb,1.1862e+00_rb,6.5698e-01_rb,8.0168e-03_rb/)
+      kbo(:, 3,34, 5) = (/ &
+     &2.2050e+00_rb,1.7947e+00_rb,1.2785e+00_rb,7.0977e-01_rb,8.1571e-03_rb/)
+      kbo(:, 4,34, 5) = (/ &
+     &2.3844e+00_rb,1.9366e+00_rb,1.3818e+00_rb,7.6872e-01_rb,8.2588e-03_rb/)
+      kbo(:, 5,34, 5) = (/ &
+     &2.5878e+00_rb,2.0945e+00_rb,1.4977e+00_rb,8.3524e-01_rb,8.3102e-03_rb/)
+      kbo(:, 1,35, 5) = (/ &
+     &1.8762e+00_rb,1.5298e+00_rb,1.0833e+00_rb,5.9624e-01_rb,6.4645e-03_rb/)
+      kbo(:, 2,35, 5) = (/ &
+     &2.0161e+00_rb,1.6440e+00_rb,1.1673e+00_rb,6.4448e-01_rb,6.6144e-03_rb/)
+      kbo(:, 3,35, 5) = (/ &
+     &2.1796e+00_rb,1.7750e+00_rb,1.2632e+00_rb,6.9909e-01_rb,6.7276e-03_rb/)
+      kbo(:, 4,35, 5) = (/ &
+     &2.3668e+00_rb,1.9227e+00_rb,1.3710e+00_rb,7.6090e-01_rb,6.8022e-03_rb/)
+      kbo(:, 5,35, 5) = (/ &
+     &2.5757e+00_rb,2.0863e+00_rb,1.4915e+00_rb,8.3029e-01_rb,6.8468e-03_rb/)
+      kbo(:, 1,36, 5) = (/ &
+     &1.8177e+00_rb,1.4833e+00_rb,1.0492e+00_rb,5.7567e-01_rb,5.3254e-03_rb/)
+      kbo(:, 2,36, 5) = (/ &
+     &1.9605e+00_rb,1.6001e+00_rb,1.1349e+00_rb,6.2477e-01_rb,5.4464e-03_rb/)
+      kbo(:, 3,36, 5) = (/ &
+     &2.1269e+00_rb,1.7343e+00_rb,1.2332e+00_rb,6.8062e-01_rb,5.5407e-03_rb/)
+      kbo(:, 4,36, 5) = (/ &
+     &2.3182e+00_rb,1.8849e+00_rb,1.3435e+00_rb,7.4416e-01_rb,5.6019e-03_rb/)
+      kbo(:, 5,36, 5) = (/ &
+     &2.5291e+00_rb,2.0513e+00_rb,1.4663e+00_rb,8.1509e-01_rb,5.6408e-03_rb/)
+      kbo(:, 1,37, 5) = (/ &
+     &1.6997e+00_rb,1.3894e+00_rb,9.8190e-01_rb,5.3748e-01_rb,4.3666e-03_rb/)
+      kbo(:, 2,37, 5) = (/ &
+     &1.8378e+00_rb,1.5030e+00_rb,1.0654e+00_rb,5.8540e-01_rb,4.4691e-03_rb/)
+      kbo(:, 3,37, 5) = (/ &
+     &1.9994e+00_rb,1.6341e+00_rb,1.1617e+00_rb,6.4019e-01_rb,4.5481e-03_rb/)
+      kbo(:, 4,37, 5) = (/ &
+     &2.1860e+00_rb,1.7826e+00_rb,1.2707e+00_rb,7.0283e-01_rb,4.6056e-03_rb/)
+      kbo(:, 5,37, 5) = (/ &
+     &2.3914e+00_rb,1.9456e+00_rb,1.3911e+00_rb,7.7270e-01_rb,4.6416e-03_rb/)
+      kbo(:, 1,38, 5) = (/ &
+     &1.6123e+00_rb,1.3193e+00_rb,9.3139e-01_rb,5.0849e-01_rb,3.5784e-03_rb/)
+      kbo(:, 2,38, 5) = (/ &
+     &1.7479e+00_rb,1.4316e+00_rb,1.0139e+00_rb,5.5580e-01_rb,3.6670e-03_rb/)
+      kbo(:, 3,38, 5) = (/ &
+     &1.9074e+00_rb,1.5615e+00_rb,1.1092e+00_rb,6.1015e-01_rb,3.7371e-03_rb/)
+      kbo(:, 4,38, 5) = (/ &
+     &2.0911e+00_rb,1.7089e+00_rb,1.2176e+00_rb,6.7256e-01_rb,3.7869e-03_rb/)
+      kbo(:, 5,38, 5) = (/ &
+     &2.2948e+00_rb,1.8712e+00_rb,1.3379e+00_rb,7.4236e-01_rb,3.8180e-03_rb/)
+      kbo(:, 1,39, 5) = (/ &
+     &1.5653e+00_rb,1.2809e+00_rb,9.0306e-01_rb,4.9152e-01_rb,2.9339e-03_rb/)
+      kbo(:, 2,39, 5) = (/ &
+     &1.7011e+00_rb,1.3939e+00_rb,9.8605e-01_rb,5.3903e-01_rb,3.0110e-03_rb/)
+      kbo(:, 3,39, 5) = (/ &
+     &1.8625e+00_rb,1.5257e+00_rb,1.0827e+00_rb,5.9416e-01_rb,3.0720e-03_rb/)
+      kbo(:, 4,39, 5) = (/ &
+     &2.0480e+00_rb,1.6749e+00_rb,1.1927e+00_rb,6.5763e-01_rb,3.1176e-03_rb/)
+      kbo(:, 5,39, 5) = (/ &
+     &2.2545e+00_rb,1.8403e+00_rb,1.3150e+00_rb,7.2854e-01_rb,3.1424e-03_rb/)
+      kbo(:, 1,40, 5) = (/ &
+     &1.4161e+00_rb,1.1618e+00_rb,8.1883e-01_rb,4.4506e-01_rb,2.3961e-03_rb/)
+      kbo(:, 2,40, 5) = (/ &
+     &1.5422e+00_rb,1.2675e+00_rb,8.9661e-01_rb,4.8961e-01_rb,2.4634e-03_rb/)
+      kbo(:, 3,40, 5) = (/ &
+     &1.6929e+00_rb,1.3914e+00_rb,9.8762e-01_rb,5.4178e-01_rb,2.5182e-03_rb/)
+      kbo(:, 4,40, 5) = (/ &
+     &1.8671e+00_rb,1.5327e+00_rb,1.0918e+00_rb,6.0196e-01_rb,2.5595e-03_rb/)
+      kbo(:, 5,40, 5) = (/ &
+     &2.0610e+00_rb,1.6900e+00_rb,1.2084e+00_rb,6.6961e-01_rb,2.5831e-03_rb/)
+      kbo(:, 1,41, 5) = (/ &
+     &1.2765e+00_rb,1.0500e+00_rb,7.3977e-01_rb,4.0158e-01_rb,1.9558e-03_rb/)
+      kbo(:, 2,41, 5) = (/ &
+     &1.3934e+00_rb,1.1486e+00_rb,8.1252e-01_rb,4.4320e-01_rb,2.0159e-03_rb/)
+      kbo(:, 3,41, 5) = (/ &
+     &1.5329e+00_rb,1.2644e+00_rb,8.9774e-01_rb,4.9220e-01_rb,2.0644e-03_rb/)
+      kbo(:, 4,41, 5) = (/ &
+     &1.6957e+00_rb,1.3977e+00_rb,9.9605e-01_rb,5.4916e-01_rb,2.0998e-03_rb/)
+      kbo(:, 5,41, 5) = (/ &
+     &1.8778e+00_rb,1.5466e+00_rb,1.1067e+00_rb,6.1346e-01_rb,2.1224e-03_rb/)
+      kbo(:, 1,42, 5) = (/ &
+     &1.1627e+00_rb,9.5841e-01_rb,6.7494e-01_rb,3.6583e-01_rb,1.5975e-03_rb/)
+      kbo(:, 2,42, 5) = (/ &
+     &1.2723e+00_rb,1.0513e+00_rb,7.4339e-01_rb,4.0496e-01_rb,1.6498e-03_rb/)
+      kbo(:, 3,42, 5) = (/ &
+     &1.4029e+00_rb,1.1604e+00_rb,8.2397e-01_rb,4.5136e-01_rb,1.6921e-03_rb/)
+      kbo(:, 4,42, 5) = (/ &
+     &1.5564e+00_rb,1.2873e+00_rb,9.1770e-01_rb,5.0574e-01_rb,1.7229e-03_rb/)
+      kbo(:, 5,42, 5) = (/ &
+     &1.7292e+00_rb,1.4295e+00_rb,1.0235e+00_rb,5.6732e-01_rb,1.7439e-03_rb/)
+      kbo(:, 1,43, 5) = (/ &
+     &1.0630e+00_rb,8.7767e-01_rb,6.1763e-01_rb,3.3410e-01_rb,1.3020e-03_rb/)
+      kbo(:, 2,43, 5) = (/ &
+     &1.1654e+00_rb,9.6474e-01_rb,6.8178e-01_rb,3.7078e-01_rb,1.3472e-03_rb/)
+      kbo(:, 3,43, 5) = (/ &
+     &1.2879e+00_rb,1.0676e+00_rb,7.5775e-01_rb,4.1456e-01_rb,1.3843e-03_rb/)
+      kbo(:, 4,43, 5) = (/ &
+     &1.4323e+00_rb,1.1883e+00_rb,8.4702e-01_rb,4.6628e-01_rb,1.4122e-03_rb/)
+      kbo(:, 5,43, 5) = (/ &
+     &1.5961e+00_rb,1.3241e+00_rb,9.4813e-01_rb,5.2525e-01_rb,1.4316e-03_rb/)
+      kbo(:, 1,44, 5) = (/ &
+     &9.8265e-01_rb,8.1189e-01_rb,5.7078e-01_rb,3.0805e-01_rb,1.0595e-03_rb/)
+      kbo(:, 2,44, 5) = (/ &
+     &1.0790e+00_rb,8.9402e-01_rb,6.3105e-01_rb,3.4248e-01_rb,1.0984e-03_rb/)
+      kbo(:, 3,44, 5) = (/ &
+     &1.1944e+00_rb,9.9169e-01_rb,7.0312e-01_rb,3.8396e-01_rb,1.1318e-03_rb/)
+      kbo(:, 4,44, 5) = (/ &
+     &1.3318e+00_rb,1.1077e+00_rb,7.8899e-01_rb,4.3356e-01_rb,1.1566e-03_rb/)
+      kbo(:, 5,44, 5) = (/ &
+     &1.4887e+00_rb,1.2383e+00_rb,8.8644e-01_rb,4.9053e-01_rb,1.1752e-03_rb/)
+      kbo(:, 1,45, 5) = (/ &
+     &9.2676e-01_rb,7.6543e-01_rb,5.3731e-01_rb,2.8917e-01_rb,8.6207e-04_rb/)
+      kbo(:, 2,45, 5) = (/ &
+     &1.0188e+00_rb,8.4420e-01_rb,5.9503e-01_rb,3.2211e-01_rb,8.9589e-04_rb/)
+      kbo(:, 3,45, 5) = (/ &
+     &1.1295e+00_rb,9.3840e-01_rb,6.6449e-01_rb,3.6207e-01_rb,9.2491e-04_rb/)
+      kbo(:, 4,45, 5) = (/ &
+     &1.2624e+00_rb,1.0512e+00_rb,7.4797e-01_rb,4.1011e-01_rb,9.4724e-04_rb/)
+      kbo(:, 5,45, 5) = (/ &
+     &1.4159e+00_rb,1.1794e+00_rb,8.4359e-01_rb,4.6598e-01_rb,9.6431e-04_rb/)
+      kbo(:, 1,46, 5) = (/ &
+     &8.8115e-01_rb,7.2712e-01_rb,5.0946e-01_rb,2.7333e-01_rb,7.0044e-04_rb/)
+      kbo(:, 2,46, 5) = (/ &
+     &9.6873e-01_rb,8.0252e-01_rb,5.6477e-01_rb,3.0486e-01_rb,7.2940e-04_rb/)
+      kbo(:, 3,46, 5) = (/ &
+     &1.0759e+00_rb,8.9393e-01_rb,6.3210e-01_rb,3.4344e-01_rb,7.5456e-04_rb/)
+      kbo(:, 4,46, 5) = (/ &
+     &1.2051e+00_rb,1.0038e+00_rb,7.1323e-01_rb,3.9017e-01_rb,7.7543e-04_rb/)
+      kbo(:, 5,46, 5) = (/ &
+     &1.3559e+00_rb,1.1306e+00_rb,8.0761e-01_rb,4.4513e-01_rb,7.9123e-04_rb/)
+      kbo(:, 1,47, 5) = (/ &
+     &8.2708e-01_rb,6.8179e-01_rb,4.7670e-01_rb,2.5496e-01_rb,5.6723e-04_rb/)
+      kbo(:, 2,47, 5) = (/ &
+     &9.0841e-01_rb,7.5254e-01_rb,5.2877e-01_rb,2.8459e-01_rb,5.9237e-04_rb/)
+      kbo(:, 3,47, 5) = (/ &
+     &1.0102e+00_rb,8.3938e-01_rb,5.9264e-01_rb,3.2108e-01_rb,6.1461e-04_rb/)
+      kbo(:, 4,47, 5) = (/ &
+     &1.1336e+00_rb,9.4433e-01_rb,6.7005e-01_rb,3.6564e-01_rb,6.3367e-04_rb/)
+      kbo(:, 5,47, 5) = (/ &
+     &1.2789e+00_rb,1.0675e+00_rb,7.6147e-01_rb,4.1873e-01_rb,6.4826e-04_rb/)
+      kbo(:, 1,48, 5) = (/ &
+     &7.9882e-01_rb,6.5670e-01_rb,4.5801e-01_rb,2.4404e-01_rb,4.5910e-04_rb/)
+      kbo(:, 2,48, 5) = (/ &
+     &8.7602e-01_rb,7.2469e-01_rb,5.0814e-01_rb,2.7259e-01_rb,4.8082e-04_rb/)
+      kbo(:, 3,48, 5) = (/ &
+     &9.7485e-01_rb,8.0906e-01_rb,5.6998e-01_rb,3.0783e-01_rb,5.0059e-04_rb/)
+      kbo(:, 4,48, 5) = (/ &
+     &1.0951e+00_rb,9.1136e-01_rb,6.4533e-01_rb,3.5105e-01_rb,5.1769e-04_rb/)
+      kbo(:, 5,48, 5) = (/ &
+     &1.2389e+00_rb,1.0335e+00_rb,7.3563e-01_rb,4.0331e-01_rb,5.3087e-04_rb/)
+      kbo(:, 1,49, 5) = (/ &
+     &8.0402e-01_rb,6.5823e-01_rb,4.5761e-01_rb,2.4276e-01_rb,3.7137e-04_rb/)
+      kbo(:, 2,49, 5) = (/ &
+     &8.8031e-01_rb,7.2577e-01_rb,5.0751e-01_rb,2.7123e-01_rb,3.9017e-04_rb/)
+      kbo(:, 3,49, 5) = (/ &
+     &9.7946e-01_rb,8.1065e-01_rb,5.6941e-01_rb,3.0628e-01_rb,4.0777e-04_rb/)
+      kbo(:, 4,49, 5) = (/ &
+     &1.1011e+00_rb,9.1410e-01_rb,6.4521e-01_rb,3.4961e-01_rb,4.2272e-04_rb/)
+      kbo(:, 5,49, 5) = (/ &
+     &1.2484e+00_rb,1.0389e+00_rb,7.3730e-01_rb,4.0277e-01_rb,4.3479e-04_rb/)
+      kbo(:, 1,50, 5) = (/ &
+     &7.7254e-01_rb,6.3104e-01_rb,4.3765e-01_rb,2.3137e-01_rb,3.0017e-04_rb/)
+      kbo(:, 2,50, 5) = (/ &
+     &8.4478e-01_rb,6.9541e-01_rb,4.8529e-01_rb,2.5862e-01_rb,3.1617e-04_rb/)
+      kbo(:, 3,50, 5) = (/ &
+     &9.3925e-01_rb,7.7679e-01_rb,5.4465e-01_rb,2.9213e-01_rb,3.3160e-04_rb/)
+      kbo(:, 4,50, 5) = (/ &
+     &1.0567e+00_rb,8.7678e-01_rb,6.1788e-01_rb,3.3395e-01_rb,3.4487e-04_rb/)
+      kbo(:, 5,50, 5) = (/ &
+     &1.2008e+00_rb,9.9924e-01_rb,7.0798e-01_rb,3.8577e-01_rb,3.5577e-04_rb/)
+      kbo(:, 1,51, 5) = (/ &
+     &7.2669e-01_rb,5.9284e-01_rb,4.1030e-01_rb,2.1627e-01_rb,2.4246e-04_rb/)
+      kbo(:, 2,51, 5) = (/ &
+     &7.9410e-01_rb,6.5300e-01_rb,4.5497e-01_rb,2.4184e-01_rb,2.5602e-04_rb/)
+      kbo(:, 3,51, 5) = (/ &
+     &8.8167e-01_rb,7.2916e-01_rb,5.1056e-01_rb,2.7327e-01_rb,2.6933e-04_rb/)
+      kbo(:, 4,51, 5) = (/ &
+     &9.9265e-01_rb,8.2410e-01_rb,5.8011e-01_rb,3.1286e-01_rb,2.8099e-04_rb/)
+      kbo(:, 5,51, 5) = (/ &
+     &1.1303e+00_rb,9.4117e-01_rb,6.6603e-01_rb,3.6222e-01_rb,2.9075e-04_rb/)
+      kbo(:, 1,52, 5) = (/ &
+     &7.0293e-01_rb,5.7224e-01_rb,3.9526e-01_rb,2.0761e-01_rb,1.9566e-04_rb/)
+      kbo(:, 2,52, 5) = (/ &
+     &7.6814e-01_rb,6.3021e-01_rb,4.3806e-01_rb,2.3215e-01_rb,2.0717e-04_rb/)
+      kbo(:, 3,52, 5) = (/ &
+     &8.5099e-01_rb,7.0282e-01_rb,4.9133e-01_rb,2.6231e-01_rb,2.1874e-04_rb/)
+      kbo(:, 4,52, 5) = (/ &
+     &9.5857e-01_rb,7.9517e-01_rb,5.5876e-01_rb,3.0061e-01_rb,2.2893e-04_rb/)
+      kbo(:, 5,52, 5) = (/ &
+     &1.0928e+00_rb,9.0923e-01_rb,6.4230e-01_rb,3.4850e-01_rb,2.3751e-04_rb/)
+      kbo(:, 1,53, 5) = (/ &
+     &7.0799e-01_rb,5.7451e-01_rb,3.9589e-01_rb,2.0725e-01_rb,1.5775e-04_rb/)
+      kbo(:, 2,53, 5) = (/ &
+     &7.7421e-01_rb,6.3284e-01_rb,4.3870e-01_rb,2.3160e-01_rb,1.6771e-04_rb/)
+      kbo(:, 3,53, 5) = (/ &
+     &8.5551e-01_rb,7.0456e-01_rb,4.9136e-01_rb,2.6152e-01_rb,1.7761e-04_rb/)
+      kbo(:, 4,53, 5) = (/ &
+     &9.6362e-01_rb,7.9737e-01_rb,5.5891e-01_rb,2.9974e-01_rb,1.8647e-04_rb/)
+      kbo(:, 5,53, 5) = (/ &
+     &1.0993e+00_rb,9.1246e-01_rb,6.4296e-01_rb,3.4771e-01_rb,1.9425e-04_rb/)
+      kbo(:, 1,54, 5) = (/ &
+     &6.1781e-01_rb,5.0174e-01_rb,3.4551e-01_rb,1.8062e-01_rb,1.2698e-04_rb/)
+      kbo(:, 2,54, 5) = (/ &
+     &6.7617e-01_rb,5.5332e-01_rb,3.8324e-01_rb,2.0204e-01_rb,1.3548e-04_rb/)
+      kbo(:, 3,54, 5) = (/ &
+     &7.4609e-01_rb,6.1568e-01_rb,4.2927e-01_rb,2.2831e-01_rb,1.4360e-04_rb/)
+      kbo(:, 4,54, 5) = (/ &
+     &8.3975e-01_rb,6.9703e-01_rb,4.8868e-01_rb,2.6191e-01_rb,1.5134e-04_rb/)
+      kbo(:, 5,54, 5) = (/ &
+     &9.5851e-01_rb,7.9875e-01_rb,5.6310e-01_rb,3.0440e-01_rb,1.5803e-04_rb/)
+      kbo(:, 1,55, 5) = (/ &
+     &4.9218e-01_rb,4.0097e-01_rb,2.7614e-01_rb,1.4430e-01_rb,1.0197e-04_rb/)
+      kbo(:, 2,55, 5) = (/ &
+     &5.3911e-01_rb,4.4293e-01_rb,3.0686e-01_rb,1.6168e-01_rb,1.0930e-04_rb/)
+      kbo(:, 3,55, 5) = (/ &
+     &5.9446e-01_rb,4.9291e-01_rb,3.4401e-01_rb,1.8302e-01_rb,1.1592e-04_rb/)
+      kbo(:, 4,55, 5) = (/ &
+     &6.6816e-01_rb,5.5826e-01_rb,3.9205e-01_rb,2.1030e-01_rb,1.2249e-04_rb/)
+      kbo(:, 5,55, 5) = (/ &
+     &7.6300e-01_rb,6.4076e-01_rb,4.5273e-01_rb,2.4510e-01_rb,1.2815e-04_rb/)
+      kbo(:, 1,56, 5) = (/ &
+     &3.9213e-01_rb,3.2040e-01_rb,2.2062e-01_rb,1.1519e-01_rb,8.1886e-05_rb/)
+      kbo(:, 2,56, 5) = (/ &
+     &4.2970e-01_rb,3.5433e-01_rb,2.4555e-01_rb,1.2928e-01_rb,8.8029e-05_rb/)
+      kbo(:, 3,56, 5) = (/ &
+     &4.7372e-01_rb,3.9458e-01_rb,2.7557e-01_rb,1.4657e-01_rb,9.3592e-05_rb/)
+      kbo(:, 4,56, 5) = (/ &
+     &5.3136e-01_rb,4.4682e-01_rb,3.1425e-01_rb,1.6867e-01_rb,9.8924e-05_rb/)
+      kbo(:, 5,56, 5) = (/ &
+     &6.0680e-01_rb,5.1356e-01_rb,3.6377e-01_rb,1.9714e-01_rb,1.0388e-04_rb/)
+      kbo(:, 1,57, 5) = (/ &
+     &3.1256e-01_rb,2.5603e-01_rb,1.7627e-01_rb,9.1926e-02_rb,6.5686e-05_rb/)
+      kbo(:, 2,57, 5) = (/ &
+     &3.4230e-01_rb,2.8322e-01_rb,1.9630e-01_rb,1.0325e-01_rb,7.0810e-05_rb/)
+      kbo(:, 3,57, 5) = (/ &
+     &3.7748e-01_rb,3.1574e-01_rb,2.2058e-01_rb,1.1723e-01_rb,7.5533e-05_rb/)
+      kbo(:, 4,57, 5) = (/ &
+     &4.2229e-01_rb,3.5725e-01_rb,2.5162e-01_rb,1.3506e-01_rb,7.9907e-05_rb/)
+      kbo(:, 5,57, 5) = (/ &
+     &4.8209e-01_rb,4.1127e-01_rb,2.9188e-01_rb,1.5833e-01_rb,8.4096e-05_rb/)
+      kbo(:, 1,58, 5) = (/ &
+     &6.5834e-02_rb,6.6132e-02_rb,5.8548e-02_rb,4.2734e-02_rb,5.2667e-05_rb/)
+      kbo(:, 2,58, 5) = (/ &
+     &7.1968e-02_rb,7.3109e-02_rb,6.5197e-02_rb,4.8002e-02_rb,5.6984e-05_rb/)
+      kbo(:, 3,58, 5) = (/ &
+     &7.9437e-02_rb,8.1656e-02_rb,7.3428e-02_rb,5.4631e-02_rb,6.0874e-05_rb/)
+      kbo(:, 4,58, 5) = (/ &
+     &8.8662e-02_rb,9.2383e-02_rb,8.3809e-02_rb,6.3035e-02_rb,6.4619e-05_rb/)
+      kbo(:, 5,58, 5) = (/ &
+     &1.0118e-01_rb,1.0653e-01_rb,9.7458e-02_rb,7.4110e-02_rb,6.7988e-05_rb/)
+      kbo(:, 1,59, 5) = (/ &
+     &6.3055e-02_rb,6.1069e-02_rb,5.0451e-02_rb,3.2825e-02_rb,4.2796e-05_rb/)
+      kbo(:, 2,59, 5) = (/ &
+     &6.8995e-02_rb,6.7782e-02_rb,5.6462e-02_rb,3.7059e-02_rb,4.6289e-05_rb/)
+      kbo(:, 3,59, 5) = (/ &
+     &7.6280e-02_rb,7.6111e-02_rb,6.4009e-02_rb,4.2464e-02_rb,4.9459e-05_rb/)
+      kbo(:, 4,59, 5) = (/ &
+     &8.5284e-02_rb,8.6606e-02_rb,7.3583e-02_rb,4.9384e-02_rb,5.2442e-05_rb/)
+      kbo(:, 5,59, 5) = (/ &
+     &9.7585e-02_rb,1.0050e-01_rb,8.6230e-02_rb,5.8574e-02_rb,5.5198e-05_rb/)
+      kbo(:, 1,13, 6) = (/ &
+     &7.7180e+02_rb,5.7896e+02_rb,3.8611e+02_rb,1.9327e+02_rb,3.6289e-01_rb/)
+      kbo(:, 2,13, 6) = (/ &
+     &7.9285e+02_rb,5.9474e+02_rb,3.9664e+02_rb,1.9853e+02_rb,3.7298e-01_rb/)
+      kbo(:, 3,13, 6) = (/ &
+     &8.1518e+02_rb,6.1149e+02_rb,4.0780e+02_rb,2.0411e+02_rb,3.8121e-01_rb/)
+      kbo(:, 4,13, 6) = (/ &
+     &8.3776e+02_rb,6.2842e+02_rb,4.1908e+02_rb,2.0974e+02_rb,3.8734e-01_rb/)
+      kbo(:, 5,13, 6) = (/ &
+     &8.6087e+02_rb,6.4575e+02_rb,4.3063e+02_rb,2.1551e+02_rb,3.9230e-01_rb/)
+      kbo(:, 1,14, 6) = (/ &
+     &4.1395e+02_rb,3.1056e+02_rb,2.0718e+02_rb,1.0380e+02_rb,3.3381e-01_rb/)
+      kbo(:, 2,14, 6) = (/ &
+     &4.2539e+02_rb,3.1915e+02_rb,2.1290e+02_rb,1.0666e+02_rb,3.4169e-01_rb/)
+      kbo(:, 3,14, 6) = (/ &
+     &4.3723e+02_rb,3.2803e+02_rb,2.1882e+02_rb,1.0962e+02_rb,3.4947e-01_rb/)
+      kbo(:, 4,14, 6) = (/ &
+     &4.4927e+02_rb,3.3705e+02_rb,2.2483e+02_rb,1.1261e+02_rb,3.5567e-01_rb/)
+      kbo(:, 5,14, 6) = (/ &
+     &4.6195e+02_rb,3.4656e+02_rb,2.3117e+02_rb,1.1578e+02_rb,3.6065e-01_rb/)
+      kbo(:, 1,15, 6) = (/ &
+     &2.2585e+02_rb,1.6949e+02_rb,1.1313e+02_rb,5.6770e+01_rb,3.0356e-01_rb/)
+      kbo(:, 2,15, 6) = (/ &
+     &2.3201e+02_rb,1.7411e+02_rb,1.1621e+02_rb,5.8311e+01_rb,3.1091e-01_rb/)
+      kbo(:, 3,15, 6) = (/ &
+     &2.3839e+02_rb,1.7889e+02_rb,1.1939e+02_rb,5.9899e+01_rb,3.1810e-01_rb/)
+      kbo(:, 4,15, 6) = (/ &
+     &2.4502e+02_rb,1.8386e+02_rb,1.2270e+02_rb,6.1544e+01_rb,3.2391e-01_rb/)
+      kbo(:, 5,15, 6) = (/ &
+     &2.5289e+02_rb,1.8977e+02_rb,1.2664e+02_rb,6.3520e+01_rb,3.2850e-01_rb/)
+      kbo(:, 1,16, 6) = (/ &
+     &1.4635e+02_rb,1.0986e+02_rb,7.3372e+01_rb,3.6890e+01_rb,2.7344e-01_rb/)
+      kbo(:, 2,16, 6) = (/ &
+     &1.5031e+02_rb,1.1283e+02_rb,7.5356e+01_rb,3.7881e+01_rb,2.8092e-01_rb/)
+      kbo(:, 3,16, 6) = (/ &
+     &1.5444e+02_rb,1.1592e+02_rb,7.7407e+01_rb,3.8900e+01_rb,2.8781e-01_rb/)
+      kbo(:, 4,16, 6) = (/ &
+     &1.5922e+02_rb,1.1951e+02_rb,7.9797e+01_rb,4.0091e+01_rb,2.9332e-01_rb/)
+      kbo(:, 5,16, 6) = (/ &
+     &1.6548e+02_rb,1.2420e+02_rb,8.2930e+01_rb,4.1661e+01_rb,2.9808e-01_rb/)
+      kbo(:, 1,17, 6) = (/ &
+     &9.8142e+01_rb,7.3705e+01_rb,4.9268e+01_rb,2.4840e+01_rb,2.4429e-01_rb/)
+      kbo(:, 2,17, 6) = (/ &
+     &1.0076e+02_rb,7.5668e+01_rb,5.0576e+01_rb,2.5493e+01_rb,2.5184e-01_rb/)
+      kbo(:, 3,17, 6) = (/ &
+     &1.0378e+02_rb,7.7926e+01_rb,5.2073e+01_rb,2.6235e+01_rb,2.5821e-01_rb/)
+      kbo(:, 4,17, 6) = (/ &
+     &1.0768e+02_rb,8.0849e+01_rb,5.4024e+01_rb,2.7211e+01_rb,2.6339e-01_rb/)
+      kbo(:, 5,17, 6) = (/ &
+     &1.1267e+02_rb,8.4599e+01_rb,5.6526e+01_rb,2.8462e+01_rb,2.6841e-01_rb/)
+      kbo(:, 1,18, 6) = (/ &
+     &6.7329e+01_rb,5.0594e+01_rb,3.3862e+01_rb,1.7162e+01_rb,2.1677e-01_rb/)
+      kbo(:, 2,18, 6) = (/ &
+     &6.9224e+01_rb,5.2009e+01_rb,3.4803e+01_rb,1.7627e+01_rb,2.2376e-01_rb/)
+      kbo(:, 3,18, 6) = (/ &
+     &7.1671e+01_rb,5.3842e+01_rb,3.6019e+01_rb,1.8223e+01_rb,2.2981e-01_rb/)
+      kbo(:, 4,18, 6) = (/ &
+     &7.4922e+01_rb,5.6283e+01_rb,3.7648e+01_rb,1.9036e+01_rb,2.3516e-01_rb/)
+      kbo(:, 5,18, 6) = (/ &
+     &7.8609e+01_rb,5.9048e+01_rb,3.9493e+01_rb,1.9956e+01_rb,2.4055e-01_rb/)
+      kbo(:, 1,19, 6) = (/ &
+     &4.5351e+01_rb,3.4111e+01_rb,2.2879e+01_rb,1.1748e+01_rb,1.9068e-01_rb/)
+      kbo(:, 2,19, 6) = (/ &
+     &4.6788e+01_rb,3.5180e+01_rb,2.3587e+01_rb,1.2086e+01_rb,1.9727e-01_rb/)
+      kbo(:, 3,19, 6) = (/ &
+     &4.8819e+01_rb,3.6704e+01_rb,2.4596e+01_rb,1.2571e+01_rb,2.0322e-01_rb/)
+      kbo(:, 4,19, 6) = (/ &
+     &5.1243e+01_rb,3.8523e+01_rb,2.5810e+01_rb,1.3165e+01_rb,2.0895e-01_rb/)
+      kbo(:, 5,19, 6) = (/ &
+     &5.3759e+01_rb,4.0411e+01_rb,2.7071e+01_rb,1.3784e+01_rb,2.1468e-01_rb/)
+      kbo(:, 1,20, 6) = (/ &
+     &3.3050e+01_rb,2.4885e+01_rb,1.6741e+01_rb,8.7700e+00_rb,1.6695e-01_rb/)
+      kbo(:, 2,20, 6) = (/ &
+     &3.4346e+01_rb,2.5850e+01_rb,1.7375e+01_rb,9.0666e+00_rb,1.7321e-01_rb/)
+      kbo(:, 3,20, 6) = (/ &
+     &3.6031e+01_rb,2.7114e+01_rb,1.8213e+01_rb,9.4660e+00_rb,1.7929e-01_rb/)
+      kbo(:, 4,20, 6) = (/ &
+     &3.7866e+01_rb,2.8491e+01_rb,1.9130e+01_rb,9.9045e+00_rb,1.8515e-01_rb/)
+      kbo(:, 5,20, 6) = (/ &
+     &3.9713e+01_rb,2.9876e+01_rb,2.0052e+01_rb,1.0350e+01_rb,1.9066e-01_rb/)
+      kbo(:, 1,21, 6) = (/ &
+     &2.4844e+01_rb,1.8731e+01_rb,1.2673e+01_rb,6.7851e+00_rb,1.4553e-01_rb/)
+      kbo(:, 2,21, 6) = (/ &
+     &2.6012e+01_rb,1.9600e+01_rb,1.3239e+01_rb,7.0557e+00_rb,1.5180e-01_rb/)
+      kbo(:, 3,21, 6) = (/ &
+     &2.7347e+01_rb,2.0602e+01_rb,1.3900e+01_rb,7.3743e+00_rb,1.5767e-01_rb/)
+      kbo(:, 4,21, 6) = (/ &
+     &2.8734e+01_rb,2.1643e+01_rb,1.4586e+01_rb,7.7037e+00_rb,1.6319e-01_rb/)
+      kbo(:, 5,21, 6) = (/ &
+     &3.0137e+01_rb,2.2696e+01_rb,1.5284e+01_rb,8.0405e+00_rb,1.6831e-01_rb/)
+      kbo(:, 1,22, 6) = (/ &
+     &1.9244e+01_rb,1.4532e+01_rb,9.9298e+00_rb,5.4125e+00_rb,1.2703e-01_rb/)
+      kbo(:, 2,22, 6) = (/ &
+     &2.0224e+01_rb,1.5263e+01_rb,1.0402e+01_rb,5.6515e+00_rb,1.3287e-01_rb/)
+      kbo(:, 3,22, 6) = (/ &
+     &2.1278e+01_rb,1.6053e+01_rb,1.0915e+01_rb,5.9058e+00_rb,1.3815e-01_rb/)
+      kbo(:, 4,22, 6) = (/ &
+     &2.2359e+01_rb,1.6864e+01_rb,1.1443e+01_rb,6.1676e+00_rb,1.4315e-01_rb/)
+      kbo(:, 5,22, 6) = (/ &
+     &2.3448e+01_rb,1.7683e+01_rb,1.1980e+01_rb,6.4316e+00_rb,1.4780e-01_rb/)
+      kbo(:, 1,23, 6) = (/ &
+     &1.5003e+01_rb,1.1361e+01_rb,7.8631e+00_rb,4.3544e+00_rb,1.1053e-01_rb/)
+      kbo(:, 2,23, 6) = (/ &
+     &1.5788e+01_rb,1.1946e+01_rb,8.2434e+00_rb,4.5541e+00_rb,1.1564e-01_rb/)
+      kbo(:, 3,23, 6) = (/ &
+     &1.6609e+01_rb,1.2560e+01_rb,8.6387e+00_rb,4.7603e+00_rb,1.2034e-01_rb/)
+      kbo(:, 4,23, 6) = (/ &
+     &1.7444e+01_rb,1.3184e+01_rb,9.0429e+00_rb,4.9691e+00_rb,1.2479e-01_rb/)
+      kbo(:, 5,23, 6) = (/ &
+     &1.8318e+01_rb,1.3840e+01_rb,9.4687e+00_rb,5.1869e+00_rb,1.2894e-01_rb/)
+      kbo(:, 1,24, 6) = (/ &
+     &1.1642e+01_rb,8.8646e+00_rb,6.2180e+00_rb,3.4890e+00_rb,9.5642e-02_rb/)
+      kbo(:, 2,24, 6) = (/ &
+     &1.2250e+01_rb,9.3143e+00_rb,6.5164e+00_rb,3.6525e+00_rb,1.0007e-01_rb/)
+      kbo(:, 3,24, 6) = (/ &
+     &1.2878e+01_rb,9.7800e+00_rb,6.8207e+00_rb,3.8184e+00_rb,1.0423e-01_rb/)
+      kbo(:, 4,24, 6) = (/ &
+     &1.3534e+01_rb,1.0267e+01_rb,7.1387e+00_rb,3.9893e+00_rb,1.0818e-01_rb/)
+      kbo(:, 5,24, 6) = (/ &
+     &1.4255e+01_rb,1.0806e+01_rb,7.4905e+00_rb,4.1737e+00_rb,1.1190e-01_rb/)
+      kbo(:, 1,25, 6) = (/ &
+     &9.1475e+00_rb,7.0241e+00_rb,4.9880e+00_rb,2.8234e+00_rb,8.2353e-02_rb/)
+      kbo(:, 2,25, 6) = (/ &
+     &9.6194e+00_rb,7.3705e+00_rb,5.2236e+00_rb,2.9556e+00_rb,8.6208e-02_rb/)
+      kbo(:, 3,25, 6) = (/ &
+     &1.0118e+01_rb,7.7356e+00_rb,5.4684e+00_rb,3.0922e+00_rb,8.9882e-02_rb/)
+      kbo(:, 4,25, 6) = (/ &
+     &1.0662e+01_rb,8.1371e+00_rb,5.7357e+00_rb,3.2382e+00_rb,9.3407e-02_rb/)
+      kbo(:, 5,25, 6) = (/ &
+     &1.1279e+01_rb,8.5947e+00_rb,6.0377e+00_rb,3.4015e+00_rb,9.6770e-02_rb/)
+      kbo(:, 1,26, 6) = (/ &
+     &7.3112e+00_rb,5.6725e+00_rb,4.0689e+00_rb,2.3123e+00_rb,7.0640e-02_rb/)
+      kbo(:, 2,26, 6) = (/ &
+     &7.6950e+00_rb,5.9535e+00_rb,4.2634e+00_rb,2.4227e+00_rb,7.4010e-02_rb/)
+      kbo(:, 3,26, 6) = (/ &
+     &8.1066e+00_rb,6.2538e+00_rb,4.4719e+00_rb,2.5387e+00_rb,7.7271e-02_rb/)
+      kbo(:, 4,26, 6) = (/ &
+     &8.5794e+00_rb,6.6014e+00_rb,4.7086e+00_rb,2.6686e+00_rb,8.0450e-02_rb/)
+      kbo(:, 5,26, 6) = (/ &
+     &9.1099e+00_rb,6.9909e+00_rb,4.9735e+00_rb,2.8158e+00_rb,8.3380e-02_rb/)
+      kbo(:, 1,27, 6) = (/ &
+     &6.0744e+00_rb,4.7606e+00_rb,3.4368e+00_rb,1.9534e+00_rb,6.0404e-02_rb/)
+      kbo(:, 2,27, 6) = (/ &
+     &6.4010e+00_rb,4.9996e+00_rb,3.6064e+00_rb,2.0495e+00_rb,6.3391e-02_rb/)
+      kbo(:, 3,27, 6) = (/ &
+     &6.7712e+00_rb,5.2713e+00_rb,3.7979e+00_rb,2.1556e+00_rb,6.6293e-02_rb/)
+      kbo(:, 4,27, 6) = (/ &
+     &7.1986e+00_rb,5.5846e+00_rb,4.0153e+00_rb,2.2772e+00_rb,6.9007e-02_rb/)
+      kbo(:, 5,27, 6) = (/ &
+     &7.6755e+00_rb,5.9357e+00_rb,4.2585e+00_rb,2.4127e+00_rb,7.1247e-02_rb/)
+      kbo(:, 1,28, 6) = (/ &
+     &5.1866e+00_rb,4.1033e+00_rb,2.9724e+00_rb,1.6878e+00_rb,5.1571e-02_rb/)
+      kbo(:, 2,28, 6) = (/ &
+     &5.4861e+00_rb,4.3239e+00_rb,3.1305e+00_rb,1.7765e+00_rb,5.4219e-02_rb/)
+      kbo(:, 3,28, 6) = (/ &
+     &5.8320e+00_rb,4.5795e+00_rb,3.3130e+00_rb,1.8782e+00_rb,5.6690e-02_rb/)
+      kbo(:, 4,28, 6) = (/ &
+     &6.2247e+00_rb,4.8686e+00_rb,3.5188e+00_rb,1.9940e+00_rb,5.8750e-02_rb/)
+      kbo(:, 5,28, 6) = (/ &
+     &6.6558e+00_rb,5.1871e+00_rb,3.7446e+00_rb,2.1214e+00_rb,6.0243e-02_rb/)
+      kbo(:, 1,29, 6) = (/ &
+     &4.7142e+00_rb,3.7524e+00_rb,2.7162e+00_rb,1.5365e+00_rb,4.4039e-02_rb/)
+      kbo(:, 2,29, 6) = (/ &
+     &5.0090e+00_rb,3.9723e+00_rb,2.8754e+00_rb,1.6258e+00_rb,4.6277e-02_rb/)
+      kbo(:, 3,29, 6) = (/ &
+     &5.3480e+00_rb,4.2236e+00_rb,3.0565e+00_rb,1.7286e+00_rb,4.8156e-02_rb/)
+      kbo(:, 4,29, 6) = (/ &
+     &5.7292e+00_rb,4.5074e+00_rb,3.2622e+00_rb,1.8442e+00_rb,4.9560e-02_rb/)
+      kbo(:, 5,29, 6) = (/ &
+     &6.1329e+00_rb,4.8058e+00_rb,3.4771e+00_rb,1.9687e+00_rb,5.0487e-02_rb/)
+      kbo(:, 1,30, 6) = (/ &
+     &4.4038e+00_rb,3.5211e+00_rb,2.5447e+00_rb,1.4336e+00_rb,3.7528e-02_rb/)
+      kbo(:, 2,30, 6) = (/ &
+     &4.6996e+00_rb,3.7441e+00_rb,2.7067e+00_rb,1.5257e+00_rb,3.9262e-02_rb/)
+      kbo(:, 3,30, 6) = (/ &
+     &5.0396e+00_rb,3.9983e+00_rb,2.8921e+00_rb,1.6308e+00_rb,4.0573e-02_rb/)
+      kbo(:, 4,30, 6) = (/ &
+     &5.4089e+00_rb,4.2744e+00_rb,3.0942e+00_rb,1.7467e+00_rb,4.1475e-02_rb/)
+      kbo(:, 5,30, 6) = (/ &
+     &5.8026e+00_rb,4.5655e+00_rb,3.3058e+00_rb,1.8693e+00_rb,4.2084e-02_rb/)
+      kbo(:, 1,31, 6) = (/ &
+     &4.3406e+00_rb,3.4756e+00_rb,2.5043e+00_rb,1.4029e+00_rb,3.1837e-02_rb/)
+      kbo(:, 2,31, 6) = (/ &
+     &4.6530e+00_rb,3.7116e+00_rb,2.6766e+00_rb,1.5014e+00_rb,3.3063e-02_rb/)
+      kbo(:, 3,31, 6) = (/ &
+     &5.0025e+00_rb,3.9754e+00_rb,2.8716e+00_rb,1.6130e+00_rb,3.3948e-02_rb/)
+      kbo(:, 4,31, 6) = (/ &
+     &5.3785e+00_rb,4.2562e+00_rb,3.0774e+00_rb,1.7319e+00_rb,3.4570e-02_rb/)
+      kbo(:, 5,31, 6) = (/ &
+     &5.7889e+00_rb,4.5595e+00_rb,3.2989e+00_rb,1.8598e+00_rb,3.4986e-02_rb/)
+      kbo(:, 1,32, 6) = (/ &
+     &4.3396e+00_rb,3.4769e+00_rb,2.4992e+00_rb,1.3933e+00_rb,2.6827e-02_rb/)
+      kbo(:, 2,32, 6) = (/ &
+     &4.6714e+00_rb,3.7286e+00_rb,2.6844e+00_rb,1.4997e+00_rb,2.7685e-02_rb/)
+      kbo(:, 3,32, 6) = (/ &
+     &5.0312e+00_rb,4.0002e+00_rb,2.8855e+00_rb,1.6156e+00_rb,2.8303e-02_rb/)
+      kbo(:, 4,32, 6) = (/ &
+     &5.4256e+00_rb,4.2946e+00_rb,3.1010e+00_rb,1.7399e+00_rb,2.8748e-02_rb/)
+      kbo(:, 5,32, 6) = (/ &
+     &5.8665e+00_rb,4.6212e+00_rb,3.3393e+00_rb,1.8767e+00_rb,2.9064e-02_rb/)
+      kbo(:, 1,33, 6) = (/ &
+     &4.4332e+00_rb,3.5489e+00_rb,2.5452e+00_rb,1.4121e+00_rb,2.2496e-02_rb/)
+      kbo(:, 2,33, 6) = (/ &
+     &4.7823e+00_rb,3.8149e+00_rb,2.7429e+00_rb,1.5266e+00_rb,2.3111e-02_rb/)
+      kbo(:, 3,33, 6) = (/ &
+     &5.1647e+00_rb,4.1029e+00_rb,2.9548e+00_rb,1.6483e+00_rb,2.3573e-02_rb/)
+      kbo(:, 4,33, 6) = (/ &
+     &5.5917e+00_rb,4.4208e+00_rb,3.1884e+00_rb,1.7830e+00_rb,2.3904e-02_rb/)
+      kbo(:, 5,33, 6) = (/ &
+     &6.0743e+00_rb,4.7788e+00_rb,3.4474e+00_rb,1.9321e+00_rb,2.4134e-02_rb/)
+      kbo(:, 1,34, 6) = (/ &
+     &4.4125e+00_rb,3.5356e+00_rb,2.5335e+00_rb,1.4023e+00_rb,1.8787e-02_rb/)
+      kbo(:, 2,34, 6) = (/ &
+     &4.7724e+00_rb,3.8103e+00_rb,2.7374e+00_rb,1.5195e+00_rb,1.9239e-02_rb/)
+      kbo(:, 3,34, 6) = (/ &
+     &5.1721e+00_rb,4.1112e+00_rb,2.9584e+00_rb,1.6475e+00_rb,1.9590e-02_rb/)
+      kbo(:, 4,34, 6) = (/ &
+     &5.6244e+00_rb,4.4492e+00_rb,3.2069e+00_rb,1.7903e+00_rb,1.9843e-02_rb/)
+      kbo(:, 5,34, 6) = (/ &
+     &6.1384e+00_rb,4.8292e+00_rb,3.4834e+00_rb,1.9492e+00_rb,2.0036e-02_rb/)
+      kbo(:, 1,35, 6) = (/ &
+     &4.3717e+00_rb,3.5073e+00_rb,2.5119e+00_rb,1.3871e+00_rb,1.5622e-02_rb/)
+      kbo(:, 2,35, 6) = (/ &
+     &4.7431e+00_rb,3.7911e+00_rb,2.7216e+00_rb,1.5076e+00_rb,1.5975e-02_rb/)
+      kbo(:, 3,35, 6) = (/ &
+     &5.1596e+00_rb,4.1047e+00_rb,2.9535e+00_rb,1.6419e+00_rb,1.6252e-02_rb/)
+      kbo(:, 4,35, 6) = (/ &
+     &5.6365e+00_rb,4.4612e+00_rb,3.2141e+00_rb,1.7918e+00_rb,1.6461e-02_rb/)
+      kbo(:, 5,35, 6) = (/ &
+     &6.1774e+00_rb,4.8609e+00_rb,3.5048e+00_rb,1.9589e+00_rb,1.6599e-02_rb/)
+      kbo(:, 1,36, 6) = (/ &
+     &4.2736e+00_rb,3.4354e+00_rb,2.4585e+00_rb,1.3548e+00_rb,1.2936e-02_rb/)
+      kbo(:, 2,36, 6) = (/ &
+     &4.6496e+00_rb,3.7234e+00_rb,2.6724e+00_rb,1.4783e+00_rb,1.3228e-02_rb/)
+      kbo(:, 3,36, 6) = (/ &
+     &5.0769e+00_rb,4.0460e+00_rb,2.9111e+00_rb,1.6163e+00_rb,1.3462e-02_rb/)
+      kbo(:, 4,36, 6) = (/ &
+     &5.5708e+00_rb,4.4155e+00_rb,3.1813e+00_rb,1.7716e+00_rb,1.3637e-02_rb/)
+      kbo(:, 5,36, 6) = (/ &
+     &6.1338e+00_rb,4.8311e+00_rb,3.4822e+00_rb,1.9445e+00_rb,1.3753e-02_rb/)
+      kbo(:, 1,37, 6) = (/ &
+     &4.0234e+00_rb,3.2473e+00_rb,2.3232e+00_rb,1.2788e+00_rb,1.0671e-02_rb/)
+      kbo(:, 2,37, 6) = (/ &
+     &4.3892e+00_rb,3.5290e+00_rb,2.5324e+00_rb,1.3998e+00_rb,1.0924e-02_rb/)
+      kbo(:, 3,37, 6) = (/ &
+     &4.8090e+00_rb,3.8477e+00_rb,2.7688e+00_rb,1.5370e+00_rb,1.1122e-02_rb/)
+      kbo(:, 4,37, 6) = (/ &
+     &5.2982e+00_rb,4.2143e+00_rb,3.0374e+00_rb,1.6915e+00_rb,1.1275e-02_rb/)
+      kbo(:, 5,37, 6) = (/ &
+     &5.8599e+00_rb,4.6308e+00_rb,3.3399e+00_rb,1.8652e+00_rb,1.1382e-02_rb/)
+      kbo(:, 1,38, 6) = (/ &
+     &3.8405e+00_rb,3.1094e+00_rb,2.2232e+00_rb,1.2223e+00_rb,8.8011e-03_rb/)
+      kbo(:, 2,38, 6) = (/ &
+     &4.2026e+00_rb,3.3894e+00_rb,2.4317e+00_rb,1.3429e+00_rb,9.0204e-03_rb/)
+      kbo(:, 3,38, 6) = (/ &
+     &4.6223e+00_rb,3.7094e+00_rb,2.6688e+00_rb,1.4805e+00_rb,9.1889e-03_rb/)
+      kbo(:, 4,38, 6) = (/ &
+     &5.1135e+00_rb,4.0786e+00_rb,2.9400e+00_rb,1.6366e+00_rb,9.3266e-03_rb/)
+      kbo(:, 5,38, 6) = (/ &
+     &5.6812e+00_rb,4.4997e+00_rb,3.2457e+00_rb,1.8125e+00_rb,9.4327e-03_rb/)
+      kbo(:, 1,39, 6) = (/ &
+     &3.7513e+00_rb,3.0429e+00_rb,2.1735e+00_rb,1.1927e+00_rb,7.2681e-03_rb/)
+      kbo(:, 2,39, 6) = (/ &
+     &4.1185e+00_rb,3.3272e+00_rb,2.3853e+00_rb,1.3156e+00_rb,7.4517e-03_rb/)
+      kbo(:, 3,39, 6) = (/ &
+     &4.5480e+00_rb,3.6554e+00_rb,2.6285e+00_rb,1.4564e+00_rb,7.6013e-03_rb/)
+      kbo(:, 4,39, 6) = (/ &
+     &5.0522e+00_rb,4.0351e+00_rb,2.9074e+00_rb,1.6167e+00_rb,7.7185e-03_rb/)
+      kbo(:, 5,39, 6) = (/ &
+     &5.6411e+00_rb,4.4721e+00_rb,3.2250e+00_rb,1.7992e+00_rb,7.8245e-03_rb/)
+      kbo(:, 1,40, 6) = (/ &
+     &3.4100e+00_rb,2.7806e+00_rb,1.9856e+00_rb,1.0896e+00_rb,5.9768e-03_rb/)
+      kbo(:, 2,40, 6) = (/ &
+     &3.7541e+00_rb,3.0505e+00_rb,2.1868e+00_rb,1.2067e+00_rb,6.1348e-03_rb/)
+      kbo(:, 3,40, 6) = (/ &
+     &4.1600e+00_rb,3.3636e+00_rb,2.4194e+00_rb,1.3415e+00_rb,6.2676e-03_rb/)
+      kbo(:, 4,40, 6) = (/ &
+     &4.6404e+00_rb,3.7278e+00_rb,2.6880e+00_rb,1.4963e+00_rb,6.3713e-03_rb/)
+      kbo(:, 5,40, 6) = (/ &
+     &5.2035e+00_rb,4.1476e+00_rb,2.9948e+00_rb,1.6730e+00_rb,6.4667e-03_rb/)
+      kbo(:, 1,41, 6) = (/ &
+     &3.0891e+00_rb,2.5323e+00_rb,1.8076e+00_rb,9.9199e-01_rb,4.9106e-03_rb/)
+      kbo(:, 2,41, 6) = (/ &
+     &3.4100e+00_rb,2.7866e+00_rb,1.9972e+00_rb,1.1027e+00_rb,5.0459e-03_rb/)
+      kbo(:, 3,41, 6) = (/ &
+     &3.7913e+00_rb,3.0833e+00_rb,2.2185e+00_rb,1.2311e+00_rb,5.1622e-03_rb/)
+      kbo(:, 4,41, 6) = (/ &
+     &4.2439e+00_rb,3.4304e+00_rb,2.4754e+00_rb,1.3795e+00_rb,5.2594e-03_rb/)
+      kbo(:, 5,41, 6) = (/ &
+     &4.7807e+00_rb,3.8337e+00_rb,2.7715e+00_rb,1.5507e+00_rb,5.3436e-03_rb/)
+      kbo(:, 1,42, 6) = (/ &
+     &2.8278e+00_rb,2.3283e+00_rb,1.6611e+00_rb,9.1142e-01_rb,4.0331e-03_rb/)
+      kbo(:, 2,42, 6) = (/ &
+     &3.1295e+00_rb,2.5702e+00_rb,1.8417e+00_rb,1.0169e+00_rb,4.1507e-03_rb/)
+      kbo(:, 3,42, 6) = (/ &
+     &3.4910e+00_rb,2.8544e+00_rb,2.0536e+00_rb,1.1401e+00_rb,4.2525e-03_rb/)
+      kbo(:, 4,42, 6) = (/ &
+     &3.9235e+00_rb,3.1883e+00_rb,2.3016e+00_rb,1.2837e+00_rb,4.3408e-03_rb/)
+      kbo(:, 5,42, 6) = (/ &
+     &4.4380e+00_rb,3.5784e+00_rb,2.5896e+00_rb,1.4506e+00_rb,4.4170e-03_rb/)
+      kbo(:, 1,43, 6) = (/ &
+     &2.5971e+00_rb,2.1460e+00_rb,1.5298e+00_rb,8.3854e-01_rb,3.3049e-03_rb/)
+      kbo(:, 2,43, 6) = (/ &
+     &2.8799e+00_rb,2.3759e+00_rb,1.7013e+00_rb,9.3880e-01_rb,3.4092e-03_rb/)
+      kbo(:, 3,43, 6) = (/ &
+     &3.2202e+00_rb,2.6461e+00_rb,1.9035e+00_rb,1.0566e+00_rb,3.5003e-03_rb/)
+      kbo(:, 4,43, 6) = (/ &
+     &3.6329e+00_rb,2.9678e+00_rb,2.1426e+00_rb,1.1949e+00_rb,3.5773e-03_rb/)
+      kbo(:, 5,43, 6) = (/ &
+     &4.1275e+00_rb,3.3455e+00_rb,2.4216e+00_rb,1.3572e+00_rb,3.6480e-03_rb/)
+      kbo(:, 1,44, 6) = (/ &
+     &2.4109e+00_rb,1.9983e+00_rb,1.4225e+00_rb,7.7812e-01_rb,2.7054e-03_rb/)
+      kbo(:, 2,44, 6) = (/ &
+     &2.6776e+00_rb,2.2170e+00_rb,1.5862e+00_rb,8.7403e-01_rb,2.7971e-03_rb/)
+      kbo(:, 3,44, 6) = (/ &
+     &3.0022e+00_rb,2.4769e+00_rb,1.7806e+00_rb,9.8740e-01_rb,2.8773e-03_rb/)
+      kbo(:, 4,44, 6) = (/ &
+     &3.3965e+00_rb,2.7871e+00_rb,2.0115e+00_rb,1.1213e+00_rb,2.9478e-03_rb/)
+      kbo(:, 5,44, 6) = (/ &
+     &3.8747e+00_rb,3.1555e+00_rb,2.2836e+00_rb,1.2791e+00_rb,3.0101e-03_rb/)
+      kbo(:, 1,45, 6) = (/ &
+     &2.2815e+00_rb,1.8944e+00_rb,1.3464e+00_rb,7.3467e-01_rb,2.2130e-03_rb/)
+      kbo(:, 2,45, 6) = (/ &
+     &2.5401e+00_rb,2.1081e+00_rb,1.5065e+00_rb,8.2816e-01_rb,2.2948e-03_rb/)
+      kbo(:, 3,45, 6) = (/ &
+     &2.8533e+00_rb,2.3602e+00_rb,1.6948e+00_rb,9.3826e-01_rb,2.3656e-03_rb/)
+      kbo(:, 4,45, 6) = (/ &
+     &3.2382e+00_rb,2.6655e+00_rb,1.9218e+00_rb,1.0700e+00_rb,2.4291e-03_rb/)
+      kbo(:, 5,45, 6) = (/ &
+     &3.7076e+00_rb,3.0298e+00_rb,2.1912e+00_rb,1.2259e+00_rb,2.4852e-03_rb/)
+      kbo(:, 1,46, 6) = (/ &
+     &2.1752e+00_rb,1.8075e+00_rb,1.2824e+00_rb,6.9758e-01_rb,1.8083e-03_rb/)
+      kbo(:, 2,46, 6) = (/ &
+     &2.4262e+00_rb,2.0168e+00_rb,1.4391e+00_rb,7.8916e-01_rb,1.8803e-03_rb/)
+      kbo(:, 3,46, 6) = (/ &
+     &2.7306e+00_rb,2.2636e+00_rb,1.6229e+00_rb,8.9649e-01_rb,1.9453e-03_rb/)
+      kbo(:, 4,46, 6) = (/ &
+     &3.1079e+00_rb,2.5651e+00_rb,1.8473e+00_rb,1.0263e+00_rb,2.0023e-03_rb/)
+      kbo(:, 5,46, 6) = (/ &
+     &3.5715e+00_rb,2.9262e+00_rb,2.1144e+00_rb,1.1808e+00_rb,2.0547e-03_rb/)
+      kbo(:, 1,47, 6) = (/ &
+     &2.0439e+00_rb,1.6998e+00_rb,1.2039e+00_rb,6.5284e-01_rb,1.4728e-03_rb/)
+      kbo(:, 2,47, 6) = (/ &
+     &2.2849e+00_rb,1.9026e+00_rb,1.3552e+00_rb,7.4124e-01_rb,1.5378e-03_rb/)
+      kbo(:, 3,47, 6) = (/ &
+     &2.5739e+00_rb,2.1396e+00_rb,1.5317e+00_rb,8.4434e-01_rb,1.5971e-03_rb/)
+      kbo(:, 4,47, 6) = (/ &
+     &2.9355e+00_rb,2.4308e+00_rb,1.7484e+00_rb,9.6939e-01_rb,1.6478e-03_rb/)
+      kbo(:, 5,47, 6) = (/ &
+     &3.3837e+00_rb,2.7824e+00_rb,2.0088e+00_rb,1.1198e+00_rb,1.6945e-03_rb/)
+      kbo(:, 1,48, 6) = (/ &
+     &1.9729e+00_rb,1.6396e+00_rb,1.1585e+00_rb,6.2585e-01_rb,1.1998e-03_rb/)
+      kbo(:, 2,48, 6) = (/ &
+     &2.2114e+00_rb,1.8415e+00_rb,1.3088e+00_rb,7.1328e-01_rb,1.2575e-03_rb/)
+      kbo(:, 3,48, 6) = (/ &
+     &2.4937e+00_rb,2.0747e+00_rb,1.4825e+00_rb,8.1439e-01_rb,1.3096e-03_rb/)
+      kbo(:, 4,48, 6) = (/ &
+     &2.8486e+00_rb,2.3616e+00_rb,1.6960e+00_rb,9.3764e-01_rb,1.3556e-03_rb/)
+      kbo(:, 5,48, 6) = (/ &
+     &3.2936e+00_rb,2.7131e+00_rb,1.9561e+00_rb,1.0874e+00_rb,1.3979e-03_rb/)
+      kbo(:, 1,49, 6) = (/ &
+     &1.9817e+00_rb,1.6421e+00_rb,1.1570e+00_rb,6.2210e-01_rb,9.7602e-04_rb/)
+      kbo(:, 2,49, 6) = (/ &
+     &2.2272e+00_rb,1.8506e+00_rb,1.3118e+00_rb,7.1147e-01_rb,1.0279e-03_rb/)
+      kbo(:, 3,49, 6) = (/ &
+     &2.5150e+00_rb,2.0896e+00_rb,1.4898e+00_rb,8.1454e-01_rb,1.0745e-03_rb/)
+      kbo(:, 4,49, 6) = (/ &
+     &2.8769e+00_rb,2.3813e+00_rb,1.7067e+00_rb,9.3965e-01_rb,1.1160e-03_rb/)
+      kbo(:, 5,49, 6) = (/ &
+     &3.3353e+00_rb,2.7446e+00_rb,1.9747e+00_rb,1.0933e+00_rb,1.1545e-03_rb/)
+      kbo(:, 1,50, 6) = (/ &
+     &1.8978e+00_rb,1.5720e+00_rb,1.1055e+00_rb,5.9245e-01_rb,7.9308e-04_rb/)
+      kbo(:, 2,50, 6) = (/ &
+     &2.1399e+00_rb,1.7779e+00_rb,1.2580e+00_rb,6.8007e-01_rb,8.3888e-04_rb/)
+      kbo(:, 3,50, 6) = (/ &
+     &2.4218e+00_rb,2.0138e+00_rb,1.4333e+00_rb,7.8150e-01_rb,8.7996e-04_rb/)
+      kbo(:, 4,50, 6) = (/ &
+     &2.7742e+00_rb,2.2995e+00_rb,1.6455e+00_rb,9.0381e-01_rb,9.1698e-04_rb/)
+      kbo(:, 5,50, 6) = (/ &
+     &3.2255e+00_rb,2.6590e+00_rb,1.9107e+00_rb,1.0555e+00_rb,9.5164e-04_rb/)
+      kbo(:, 1,51, 6) = (/ &
+     &1.7787e+00_rb,1.4741e+00_rb,1.0351e+00_rb,5.5321e-01_rb,6.4322e-04_rb/)
+      kbo(:, 2,51, 6) = (/ &
+     &2.0121e+00_rb,1.6731e+00_rb,1.1819e+00_rb,6.3736e-01_rb,6.8396e-04_rb/)
+      kbo(:, 3,51, 6) = (/ &
+     &2.2825e+00_rb,1.9012e+00_rb,1.3514e+00_rb,7.3514e-01_rb,7.1977e-04_rb/)
+      kbo(:, 4,51, 6) = (/ &
+     &2.6184e+00_rb,2.1760e+00_rb,1.5550e+00_rb,8.5263e-01_rb,7.5276e-04_rb/)
+      kbo(:, 5,51, 6) = (/ &
+     &3.0526e+00_rb,2.5248e+00_rb,1.8126e+00_rb,9.9966e-01_rb,7.8322e-04_rb/)
+      kbo(:, 1,52, 6) = (/ &
+     &1.7138e+00_rb,1.4190e+00_rb,9.9450e-01_rb,5.2987e-01_rb,5.2154e-04_rb/)
+      kbo(:, 2,52, 6) = (/ &
+     &1.9434e+00_rb,1.6150e+00_rb,1.1387e+00_rb,6.1204e-01_rb,5.5749e-04_rb/)
+      kbo(:, 3,52, 6) = (/ &
+     &2.2115e+00_rb,1.8422e+00_rb,1.3069e+00_rb,7.0863e-01_rb,5.8864e-04_rb/)
+      kbo(:, 4,52, 6) = (/ &
+     &2.5398e+00_rb,2.1125e+00_rb,1.5071e+00_rb,8.2393e-01_rb,6.1775e-04_rb/)
+      kbo(:, 5,52, 6) = (/ &
+     &2.9672e+00_rb,2.4581e+00_rb,1.7623e+00_rb,9.6952e-01_rb,6.4493e-04_rb/)
+      kbo(:, 1,53, 6) = (/ &
+     &1.7198e+00_rb,1.4203e+00_rb,9.9324e-01_rb,5.2715e-01_rb,4.2262e-04_rb/)
+      kbo(:, 2,53, 6) = (/ &
+     &1.9529e+00_rb,1.6185e+00_rb,1.1384e+00_rb,6.0925e-01_rb,4.5399e-04_rb/)
+      kbo(:, 3,53, 6) = (/ &
+     &2.2293e+00_rb,1.8530e+00_rb,1.3116e+00_rb,7.0805e-01_rb,4.8128e-04_rb/)
+      kbo(:, 4,53, 6) = (/ &
+     &2.5636e+00_rb,2.1294e+00_rb,1.5160e+00_rb,8.2535e-01_rb,5.0713e-04_rb/)
+      kbo(:, 5,53, 6) = (/ &
+     &3.0004e+00_rb,2.4827e+00_rb,1.7770e+00_rb,9.7383e-01_rb,5.3111e-04_rb/)
+      kbo(:, 1,54, 6) = (/ &
+     &1.4969e+00_rb,1.2401e+00_rb,8.6613e-01_rb,4.5904e-01_rb,3.4135e-04_rb/)
+      kbo(:, 2,54, 6) = (/ &
+     &1.7004e+00_rb,1.4146e+00_rb,9.9400e-01_rb,5.3139e-01_rb,3.6835e-04_rb/)
+      kbo(:, 3,54, 6) = (/ &
+     &1.9475e+00_rb,1.6269e+00_rb,1.1506e+00_rb,6.2081e-01_rb,3.9232e-04_rb/)
+      kbo(:, 4,54, 6) = (/ &
+     &2.2441e+00_rb,1.8758e+00_rb,1.3350e+00_rb,7.2699e-01_rb,4.1441e-04_rb/)
+      kbo(:, 5,54, 6) = (/ &
+     &2.6322e+00_rb,2.1931e+00_rb,1.5695e+00_rb,8.6094e-01_rb,4.3501e-04_rb/)
+      kbo(:, 1,55, 6) = (/ &
+     &1.1902e+00_rb,9.9203e-01_rb,6.9261e-01_rb,3.6696e-01_rb,2.7539e-04_rb/)
+      kbo(:, 2,55, 6) = (/ &
+     &1.3514e+00_rb,1.1327e+00_rb,7.9579e-01_rb,4.2578e-01_rb,2.9805e-04_rb/)
+      kbo(:, 3,55, 6) = (/ &
+     &1.5528e+00_rb,1.3090e+00_rb,9.2585e-01_rb,5.0048e-01_rb,3.1883e-04_rb/)
+      kbo(:, 4,55, 6) = (/ &
+     &1.7945e+00_rb,1.5161e+00_rb,1.0797e+00_rb,5.8958e-01_rb,3.3758e-04_rb/)
+      kbo(:, 5,55, 6) = (/ &
+     &2.1091e+00_rb,1.7786e+00_rb,1.2743e+00_rb,7.0161e-01_rb,3.5497e-04_rb/)
+      kbo(:, 1,56, 6) = (/ &
+     &9.4564e-01_rb,7.9256e-01_rb,5.5332e-01_rb,2.9317e-01_rb,2.2189e-04_rb/)
+      kbo(:, 2,56, 6) = (/ &
+     &1.0727e+00_rb,9.0556e-01_rb,6.3622e-01_rb,3.4063e-01_rb,2.4090e-04_rb/)
+      kbo(:, 3,56, 6) = (/ &
+     &1.2368e+00_rb,1.0514e+00_rb,7.4402e-01_rb,4.0280e-01_rb,2.5859e-04_rb/)
+      kbo(:, 4,56, 6) = (/ &
+     &1.4335e+00_rb,1.2238e+00_rb,8.7212e-01_rb,4.7748e-01_rb,2.7478e-04_rb/)
+      kbo(:, 5,56, 6) = (/ &
+     &1.6876e+00_rb,1.4404e+00_rb,1.0331e+00_rb,5.7092e-01_rb,2.8964e-04_rb/)
+      kbo(:, 1,57, 6) = (/ &
+     &7.5151e-01_rb,6.3315e-01_rb,4.4196e-01_rb,2.3414e-01_rb,1.7834e-04_rb/)
+      kbo(:, 2,57, 6) = (/ &
+     &8.5091e-01_rb,7.2306e-01_rb,5.0804e-01_rb,2.7214e-01_rb,1.9471e-04_rb/)
+      kbo(:, 3,57, 6) = (/ &
+     &9.8353e-01_rb,8.4281e-01_rb,5.9656e-01_rb,3.2337e-01_rb,2.0961e-04_rb/)
+      kbo(:, 4,57, 6) = (/ &
+     &1.1433e+00_rb,9.8609e-01_rb,7.0325e-01_rb,3.8594e-01_rb,2.2327e-04_rb/)
+      kbo(:, 5,57, 6) = (/ &
+     &1.3484e+00_rb,1.1650e+00_rb,8.3657e-01_rb,4.6393e-01_rb,2.3604e-04_rb/)
+      kbo(:, 1,58, 6) = (/ &
+     &1.5793e-01_rb,1.6356e-01_rb,1.4683e-01_rb,1.0896e-01_rb,1.4326e-04_rb/)
+      kbo(:, 2,58, 6) = (/ &
+     &1.7834e-01_rb,1.8665e-01_rb,1.6872e-01_rb,1.2675e-01_rb,1.5731e-04_rb/)
+      kbo(:, 3,58, 6) = (/ &
+     &2.0650e-01_rb,2.1828e-01_rb,1.9887e-01_rb,1.5129e-01_rb,1.6986e-04_rb/)
+      kbo(:, 4,58, 6) = (/ &
+     &2.4084e-01_rb,2.5688e-01_rb,2.3602e-01_rb,1.8197e-01_rb,1.8127e-04_rb/)
+      kbo(:, 5,58, 6) = (/ &
+     &2.8453e-01_rb,3.0466e-01_rb,2.8209e-01_rb,2.2013e-01_rb,1.9222e-04_rb/)
+      kbo(:, 1,59, 6) = (/ &
+     &1.5159e-01_rb,1.5229e-01_rb,1.2764e-01_rb,8.4631e-02_rb,1.1680e-04_rb/)
+      kbo(:, 2,59, 6) = (/ &
+     &1.7166e-01_rb,1.7481e-01_rb,1.4781e-01_rb,9.9479e-02_rb,1.2840e-04_rb/)
+      kbo(:, 3,59, 6) = (/ &
+     &1.9953e-01_rb,2.0595e-01_rb,1.7587e-01_rb,1.2013e-01_rb,1.3871e-04_rb/)
+      kbo(:, 4,59, 6) = (/ &
+     &2.3377e-01_rb,2.4439e-01_rb,2.1097e-01_rb,1.4631e-01_rb,1.4804e-04_rb/)
+      kbo(:, 5,59, 6) = (/ &
+     &2.7769e-01_rb,2.9243e-01_rb,2.5484e-01_rb,1.7920e-01_rb,1.5678e-04_rb/)
+      kbo(:, 1,13, 7) = (/ &
+     &1.7755e+03_rb,1.3317e+03_rb,8.8796e+02_rb,4.4421e+02_rb,6.5972e-01_rb/)
+      kbo(:, 2,13, 7) = (/ &
+     &1.8279e+03_rb,1.3710e+03_rb,9.1418e+02_rb,4.5731e+02_rb,6.6173e-01_rb/)
+      kbo(:, 3,13, 7) = (/ &
+     &1.8885e+03_rb,1.4165e+03_rb,9.4446e+02_rb,4.7244e+02_rb,6.6577e-01_rb/)
+      kbo(:, 4,13, 7) = (/ &
+     &1.9490e+03_rb,1.4619e+03_rb,9.7472e+02_rb,4.8757e+02_rb,6.7090e-01_rb/)
+      kbo(:, 5,13, 7) = (/ &
+     &2.0075e+03_rb,1.5058e+03_rb,1.0040e+03_rb,5.0220e+02_rb,6.7193e-01_rb/)
+      kbo(:, 1,14, 7) = (/ &
+     &9.7594e+02_rb,7.3206e+02_rb,4.8819e+02_rb,2.4432e+02_rb,6.3121e-01_rb/)
+      kbo(:, 2,14, 7) = (/ &
+     &1.0087e+03_rb,7.5661e+02_rb,5.0455e+02_rb,2.5249e+02_rb,6.3502e-01_rb/)
+      kbo(:, 3,14, 7) = (/ &
+     &1.0415e+03_rb,7.8124e+02_rb,5.2096e+02_rb,2.6069e+02_rb,6.3710e-01_rb/)
+      kbo(:, 4,14, 7) = (/ &
+     &1.0744e+03_rb,8.0589e+02_rb,5.3739e+02_rb,2.6890e+02_rb,6.4004e-01_rb/)
+      kbo(:, 5,14, 7) = (/ &
+     &1.1054e+03_rb,8.2913e+02_rb,5.5288e+02_rb,2.7664e+02_rb,6.4122e-01_rb/)
+      kbo(:, 1,15, 7) = (/ &
+     &5.4478e+02_rb,4.0870e+02_rb,2.7262e+02_rb,1.3654e+02_rb,5.9523e-01_rb/)
+      kbo(:, 2,15, 7) = (/ &
+     &5.6305e+02_rb,4.2240e+02_rb,2.8175e+02_rb,1.4110e+02_rb,6.0003e-01_rb/)
+      kbo(:, 3,15, 7) = (/ &
+     &5.8123e+02_rb,4.3603e+02_rb,2.9083e+02_rb,1.4563e+02_rb,6.0181e-01_rb/)
+      kbo(:, 4,15, 7) = (/ &
+     &5.9882e+02_rb,4.4922e+02_rb,2.9962e+02_rb,1.5002e+02_rb,6.0320e-01_rb/)
+      kbo(:, 5,15, 7) = (/ &
+     &6.1530e+02_rb,4.6158e+02_rb,3.0785e+02_rb,1.5413e+02_rb,6.0492e-01_rb/)
+      kbo(:, 1,16, 7) = (/ &
+     &3.5993e+02_rb,2.7006e+02_rb,1.8020e+02_rb,9.0332e+01_rb,5.5493e-01_rb/)
+      kbo(:, 2,16, 7) = (/ &
+     &3.7215e+02_rb,2.7922e+02_rb,1.8629e+02_rb,9.3372e+01_rb,5.5851e-01_rb/)
+      kbo(:, 3,16, 7) = (/ &
+     &3.8394e+02_rb,2.8806e+02_rb,1.9218e+02_rb,9.6308e+01_rb,5.6035e-01_rb/)
+      kbo(:, 4,16, 7) = (/ &
+     &3.9518e+02_rb,2.9649e+02_rb,1.9779e+02_rb,9.9106e+01_rb,5.6267e-01_rb/)
+      kbo(:, 5,16, 7) = (/ &
+     &4.0564e+02_rb,3.0433e+02_rb,2.0302e+02_rb,1.0171e+02_rb,5.6476e-01_rb/)
+      kbo(:, 1,17, 7) = (/ &
+     &2.4595e+02_rb,1.8458e+02_rb,1.2320e+02_rb,6.1838e+01_rb,5.0905e-01_rb/)
+      kbo(:, 2,17, 7) = (/ &
+     &2.5413e+02_rb,1.9070e+02_rb,1.2728e+02_rb,6.3868e+01_rb,5.1185e-01_rb/)
+      kbo(:, 3,17, 7) = (/ &
+     &2.6187e+02_rb,1.9651e+02_rb,1.3115e+02_rb,6.5795e+01_rb,5.1474e-01_rb/)
+      kbo(:, 4,17, 7) = (/ &
+     &2.6921e+02_rb,2.0201e+02_rb,1.3481e+02_rb,6.7615e+01_rb,5.1865e-01_rb/)
+      kbo(:, 5,17, 7) = (/ &
+     &2.7688e+02_rb,2.0776e+02_rb,1.3865e+02_rb,6.9531e+01_rb,5.2170e-01_rb/)
+      kbo(:, 1,18, 7) = (/ &
+     &1.7164e+02_rb,1.2884e+02_rb,8.6050e+01_rb,4.3266e+01_rb,4.6055e-01_rb/)
+      kbo(:, 2,18, 7) = (/ &
+     &1.7713e+02_rb,1.3296e+02_rb,8.8791e+01_rb,4.4628e+01_rb,4.6405e-01_rb/)
+      kbo(:, 3,18, 7) = (/ &
+     &1.8233e+02_rb,1.3686e+02_rb,9.1384e+01_rb,4.5916e+01_rb,4.6825e-01_rb/)
+      kbo(:, 4,18, 7) = (/ &
+     &1.8765e+02_rb,1.4084e+02_rb,9.4032e+01_rb,4.7229e+01_rb,4.7329e-01_rb/)
+      kbo(:, 5,18, 7) = (/ &
+     &1.9405e+02_rb,1.4564e+02_rb,9.7227e+01_rb,4.8824e+01_rb,4.7705e-01_rb/)
+      kbo(:, 1,19, 7) = (/ &
+     &1.1725e+02_rb,8.8048e+01_rb,5.8853e+01_rb,2.9674e+01_rb,4.1247e-01_rb/)
+      kbo(:, 2,19, 7) = (/ &
+     &1.2086e+02_rb,9.0759e+01_rb,6.0656e+01_rb,3.0566e+01_rb,4.1661e-01_rb/)
+      kbo(:, 3,19, 7) = (/ &
+     &1.2440e+02_rb,9.3403e+01_rb,6.2413e+01_rb,3.1438e+01_rb,4.2213e-01_rb/)
+      kbo(:, 4,19, 7) = (/ &
+     &1.2864e+02_rb,9.6587e+01_rb,6.4532e+01_rb,3.2489e+01_rb,4.2779e-01_rb/)
+      kbo(:, 5,19, 7) = (/ &
+     &1.3396e+02_rb,1.0057e+02_rb,6.7181e+01_rb,3.3807e+01_rb,4.3260e-01_rb/)
+      kbo(:, 1,20, 7) = (/ &
+     &8.6468e+01_rb,6.4964e+01_rb,4.3467e+01_rb,2.2017e+01_rb,3.6582e-01_rb/)
+      kbo(:, 2,20, 7) = (/ &
+     &8.9024e+01_rb,6.6879e+01_rb,4.4738e+01_rb,2.2636e+01_rb,3.7131e-01_rb/)
+      kbo(:, 3,20, 7) = (/ &
+     &9.1943e+01_rb,6.9064e+01_rb,4.6188e+01_rb,2.3347e+01_rb,3.7766e-01_rb/)
+      kbo(:, 4,20, 7) = (/ &
+     &9.5737e+01_rb,7.1906e+01_rb,4.8080e+01_rb,2.4283e+01_rb,3.8413e-01_rb/)
+      kbo(:, 5,20, 7) = (/ &
+     &1.0032e+02_rb,7.5342e+01_rb,5.0362e+01_rb,2.5410e+01_rb,3.9048e-01_rb/)
+      kbo(:, 1,21, 7) = (/ &
+     &6.5580e+01_rb,4.9300e+01_rb,3.3030e+01_rb,1.6896e+01_rb,3.2248e-01_rb/)
+      kbo(:, 2,21, 7) = (/ &
+     &6.7679e+01_rb,5.0870e+01_rb,3.4072e+01_rb,1.7386e+01_rb,3.2902e-01_rb/)
+      kbo(:, 3,21, 7) = (/ &
+     &7.0353e+01_rb,5.2872e+01_rb,3.5398e+01_rb,1.8022e+01_rb,3.3617e-01_rb/)
+      kbo(:, 4,21, 7) = (/ &
+     &7.3710e+01_rb,5.5384e+01_rb,3.7067e+01_rb,1.8833e+01_rb,3.4337e-01_rb/)
+      kbo(:, 5,21, 7) = (/ &
+     &7.7378e+01_rb,5.8129e+01_rb,3.8887e+01_rb,1.9718e+01_rb,3.5091e-01_rb/)
+      kbo(:, 1,22, 7) = (/ &
+     &5.0990e+01_rb,3.8360e+01_rb,2.5747e+01_rb,1.3390e+01_rb,2.8355e-01_rb/)
+      kbo(:, 2,22, 7) = (/ &
+     &5.2937e+01_rb,3.9813e+01_rb,2.6706e+01_rb,1.3827e+01_rb,2.9084e-01_rb/)
+      kbo(:, 3,22, 7) = (/ &
+     &5.5472e+01_rb,4.1712e+01_rb,2.7965e+01_rb,1.4417e+01_rb,2.9863e-01_rb/)
+      kbo(:, 4,22, 7) = (/ &
+     &5.8295e+01_rb,4.3822e+01_rb,2.9362e+01_rb,1.5079e+01_rb,3.0668e-01_rb/)
+      kbo(:, 5,22, 7) = (/ &
+     &6.1215e+01_rb,4.6005e+01_rb,3.0807e+01_rb,1.5766e+01_rb,3.1501e-01_rb/)
+      kbo(:, 1,23, 7) = (/ &
+     &3.9928e+01_rb,3.0064e+01_rb,2.0251e+01_rb,1.0753e+01_rb,2.4875e-01_rb/)
+      kbo(:, 2,23, 7) = (/ &
+     &4.1783e+01_rb,3.1450e+01_rb,2.1160e+01_rb,1.1173e+01_rb,2.5662e-01_rb/)
+      kbo(:, 3,23, 7) = (/ &
+     &4.3954e+01_rb,3.3072e+01_rb,2.2227e+01_rb,1.1670e+01_rb,2.6505e-01_rb/)
+      kbo(:, 4,23, 7) = (/ &
+     &4.6239e+01_rb,3.4779e+01_rb,2.3350e+01_rb,1.2195e+01_rb,2.7351e-01_rb/)
+      kbo(:, 5,23, 7) = (/ &
+     &4.8555e+01_rb,3.6509e+01_rb,2.4489e+01_rb,1.2725e+01_rb,2.8191e-01_rb/)
+      kbo(:, 1,24, 7) = (/ &
+     &3.1198e+01_rb,2.3518e+01_rb,1.5962e+01_rb,8.6666e+00_rb,2.1812e-01_rb/)
+      kbo(:, 2,24, 7) = (/ &
+     &3.2836e+01_rb,2.4742e+01_rb,1.6752e+01_rb,9.0412e+00_rb,2.2642e-01_rb/)
+      kbo(:, 3,24, 7) = (/ &
+     &3.4586e+01_rb,2.6047e+01_rb,1.7597e+01_rb,9.4445e+00_rb,2.3475e-01_rb/)
+      kbo(:, 4,24, 7) = (/ &
+     &3.6388e+01_rb,2.7390e+01_rb,1.8470e+01_rb,9.8567e+00_rb,2.4289e-01_rb/)
+      kbo(:, 5,24, 7) = (/ &
+     &3.8237e+01_rb,2.8772e+01_rb,1.9370e+01_rb,1.0281e+01_rb,2.5096e-01_rb/)
+      kbo(:, 1,25, 7) = (/ &
+     &2.4765e+01_rb,1.8701e+01_rb,1.2839e+01_rb,7.1044e+00_rb,1.9118e-01_rb/)
+      kbo(:, 2,25, 7) = (/ &
+     &2.6117e+01_rb,1.9708e+01_rb,1.3481e+01_rb,7.4248e+00_rb,1.9923e-01_rb/)
+      kbo(:, 3,25, 7) = (/ &
+     &2.7518e+01_rb,2.0749e+01_rb,1.4145e+01_rb,7.7545e+00_rb,2.0704e-01_rb/)
+      kbo(:, 4,25, 7) = (/ &
+     &2.8948e+01_rb,2.1814e+01_rb,1.4825e+01_rb,8.0892e+00_rb,2.1475e-01_rb/)
+      kbo(:, 5,25, 7) = (/ &
+     &3.0459e+01_rb,2.2943e+01_rb,1.5551e+01_rb,8.4409e+00_rb,2.2240e-01_rb/)
+      kbo(:, 1,26, 7) = (/ &
+     &1.9997e+01_rb,1.5145e+01_rb,1.0541e+01_rb,5.9203e+00_rb,1.6734e-01_rb/)
+      kbo(:, 2,26, 7) = (/ &
+     &2.1098e+01_rb,1.5958e+01_rb,1.1060e+01_rb,6.1929e+00_rb,1.7471e-01_rb/)
+      kbo(:, 3,26, 7) = (/ &
+     &2.2238e+01_rb,1.6802e+01_rb,1.1594e+01_rb,6.4727e+00_rb,1.8196e-01_rb/)
+      kbo(:, 4,26, 7) = (/ &
+     &2.3407e+01_rb,1.7668e+01_rb,1.2141e+01_rb,6.7596e+00_rb,1.8921e-01_rb/)
+      kbo(:, 5,26, 7) = (/ &
+     &2.4698e+01_rb,1.8629e+01_rb,1.2749e+01_rb,7.0654e+00_rb,1.9648e-01_rb/)
+      kbo(:, 1,27, 7) = (/ &
+     &1.6756e+01_rb,1.2745e+01_rb,8.9780e+00_rb,5.0906e+00_rb,1.4596e-01_rb/)
+      kbo(:, 2,27, 7) = (/ &
+     &1.7682e+01_rb,1.3422e+01_rb,9.4167e+00_rb,5.3320e+00_rb,1.5263e-01_rb/)
+      kbo(:, 3,27, 7) = (/ &
+     &1.8639e+01_rb,1.4123e+01_rb,9.8653e+00_rb,5.5814e+00_rb,1.5946e-01_rb/)
+      kbo(:, 4,27, 7) = (/ &
+     &1.9672e+01_rb,1.4884e+01_rb,1.0349e+01_rb,5.8433e+00_rb,1.6641e-01_rb/)
+      kbo(:, 5,27, 7) = (/ &
+     &2.0853e+01_rb,1.5759e+01_rb,1.0902e+01_rb,6.1333e+00_rb,1.7345e-01_rb/)
+      kbo(:, 1,28, 7) = (/ &
+     &1.4405e+01_rb,1.1016e+01_rb,7.8395e+00_rb,4.4691e+00_rb,1.2690e-01_rb/)
+      kbo(:, 2,28, 7) = (/ &
+     &1.5206e+01_rb,1.1594e+01_rb,8.2236e+00_rb,4.6907e+00_rb,1.3310e-01_rb/)
+      kbo(:, 3,28, 7) = (/ &
+     &1.6055e+01_rb,1.2210e+01_rb,8.6248e+00_rb,4.9200e+00_rb,1.3960e-01_rb/)
+      kbo(:, 4,28, 7) = (/ &
+     &1.7030e+01_rb,1.2924e+01_rb,9.0823e+00_rb,5.1747e+00_rb,1.4629e-01_rb/)
+      kbo(:, 5,28, 7) = (/ &
+     &1.8152e+01_rb,1.3752e+01_rb,9.6123e+00_rb,5.4653e+00_rb,1.5306e-01_rb/)
+      kbo(:, 1,29, 7) = (/ &
+     &1.3149e+01_rb,1.0099e+01_rb,7.2312e+00_rb,4.1269e+00_rb,1.1016e-01_rb/)
+      kbo(:, 2,29, 7) = (/ &
+     &1.3892e+01_rb,1.0633e+01_rb,7.5916e+00_rb,4.3391e+00_rb,1.1614e-01_rb/)
+      kbo(:, 3,29, 7) = (/ &
+     &1.4735e+01_rb,1.1242e+01_rb,7.9958e+00_rb,4.5718e+00_rb,1.2237e-01_rb/)
+      kbo(:, 4,29, 7) = (/ &
+     &1.5717e+01_rb,1.1957e+01_rb,8.4609e+00_rb,4.8366e+00_rb,1.2878e-01_rb/)
+      kbo(:, 5,29, 7) = (/ &
+     &1.6850e+01_rb,1.2790e+01_rb,8.9991e+00_rb,5.1366e+00_rb,1.3504e-01_rb/)
+      kbo(:, 1,30, 7) = (/ &
+     &1.2314e+01_rb,9.4945e+00_rb,6.8243e+00_rb,3.8903e+00_rb,9.5721e-02_rb/)
+      kbo(:, 2,30, 7) = (/ &
+     &1.3054e+01_rb,1.0024e+01_rb,7.1887e+00_rb,4.1054e+00_rb,1.0142e-01_rb/)
+      kbo(:, 3,30, 7) = (/ &
+     &1.3921e+01_rb,1.0650e+01_rb,7.6093e+00_rb,4.3517e+00_rb,1.0739e-01_rb/)
+      kbo(:, 4,30, 7) = (/ &
+     &1.4944e+01_rb,1.1393e+01_rb,8.1010e+00_rb,4.6344e+00_rb,1.1328e-01_rb/)
+      kbo(:, 5,30, 7) = (/ &
+     &1.6104e+01_rb,1.2245e+01_rb,8.6565e+00_rb,4.9501e+00_rb,1.1877e-01_rb/)
+      kbo(:, 1,31, 7) = (/ &
+     &1.2157e+01_rb,9.3878e+00_rb,6.7548e+00_rb,3.8381e+00_rb,8.3345e-02_rb/)
+      kbo(:, 2,31, 7) = (/ &
+     &1.2955e+01_rb,9.9594e+00_rb,7.1498e+00_rb,4.0728e+00_rb,8.8771e-02_rb/)
+      kbo(:, 3,31, 7) = (/ &
+     &1.3911e+01_rb,1.0649e+01_rb,7.6174e+00_rb,4.3452e+00_rb,9.4250e-02_rb/)
+      kbo(:, 4,31, 7) = (/ &
+     &1.5017e+01_rb,1.1456e+01_rb,8.1532e+00_rb,4.6551e+00_rb,9.9406e-02_rb/)
+      kbo(:, 5,31, 7) = (/ &
+     &1.6266e+01_rb,1.2373e+01_rb,8.7552e+00_rb,5.0004e+00_rb,1.0401e-01_rb/)
+      kbo(:, 1,32, 7) = (/ &
+     &1.2189e+01_rb,9.4190e+00_rb,6.7775e+00_rb,3.8398e+00_rb,7.2780e-02_rb/)
+      kbo(:, 2,32, 7) = (/ &
+     &1.3084e+01_rb,1.0062e+01_rb,7.2229e+00_rb,4.1020e+00_rb,7.7761e-02_rb/)
+      kbo(:, 3,32, 7) = (/ &
+     &1.4139e+01_rb,1.0827e+01_rb,7.7437e+00_rb,4.4056e+00_rb,8.2541e-02_rb/)
+      kbo(:, 4,32, 7) = (/ &
+     &1.5347e+01_rb,1.1710e+01_rb,8.3333e+00_rb,4.7481e+00_rb,8.6905e-02_rb/)
+      kbo(:, 5,32, 7) = (/ &
+     &1.6687e+01_rb,1.2692e+01_rb,8.9809e+00_rb,5.1206e+00_rb,9.0564e-02_rb/)
+      kbo(:, 1,33, 7) = (/ &
+     &1.2504e+01_rb,9.6581e+00_rb,6.9429e+00_rb,3.9220e+00_rb,6.3643e-02_rb/)
+      kbo(:, 2,33, 7) = (/ &
+     &1.3523e+01_rb,1.0393e+01_rb,7.4532e+00_rb,4.2218e+00_rb,6.8037e-02_rb/)
+      kbo(:, 3,33, 7) = (/ &
+     &1.4701e+01_rb,1.1251e+01_rb,8.0374e+00_rb,4.5635e+00_rb,7.2051e-02_rb/)
+      kbo(:, 4,33, 7) = (/ &
+     &1.6035e+01_rb,1.2227e+01_rb,8.6879e+00_rb,4.9410e+00_rb,7.5520e-02_rb/)
+      kbo(:, 5,33, 7) = (/ &
+     &1.7498e+01_rb,1.3301e+01_rb,9.3946e+00_rb,5.3470e+00_rb,7.8343e-02_rb/)
+      kbo(:, 1,34, 7) = (/ &
+     &1.2544e+01_rb,9.6932e+00_rb,6.9709e+00_rb,3.9324e+00_rb,5.5495e-02_rb/)
+      kbo(:, 2,34, 7) = (/ &
+     &1.3652e+01_rb,1.0495e+01_rb,7.5288e+00_rb,4.2613e+00_rb,5.9207e-02_rb/)
+      kbo(:, 3,34, 7) = (/ &
+     &1.4931e+01_rb,1.1428e+01_rb,8.1665e+00_rb,4.6328e+00_rb,6.2449e-02_rb/)
+      kbo(:, 4,34, 7) = (/ &
+     &1.6342e+01_rb,1.2460e+01_rb,8.8567e+00_rb,5.0367e+00_rb,6.5144e-02_rb/)
+      kbo(:, 5,34, 7) = (/ &
+     &1.7926e+01_rb,1.3623e+01_rb,9.6166e+00_rb,5.4694e+00_rb,6.7469e-02_rb/)
+      kbo(:, 1,35, 7) = (/ &
+     &1.2550e+01_rb,9.7037e+00_rb,6.9833e+00_rb,3.9358e+00_rb,4.7960e-02_rb/)
+      kbo(:, 2,35, 7) = (/ &
+     &1.3742e+01_rb,1.0569e+01_rb,7.5854e+00_rb,4.2904e+00_rb,5.1023e-02_rb/)
+      kbo(:, 3,35, 7) = (/ &
+     &1.5093e+01_rb,1.1555e+01_rb,8.2621e+00_rb,4.6878e+00_rb,5.3624e-02_rb/)
+      kbo(:, 4,35, 7) = (/ &
+     &1.6591e+01_rb,1.2650e+01_rb,8.9950e+00_rb,5.1151e+00_rb,5.5900e-02_rb/)
+      kbo(:, 5,35, 7) = (/ &
+     &1.8304e+01_rb,1.3907e+01_rb,9.8148e+00_rb,5.5812e+00_rb,5.7988e-02_rb/)
+      kbo(:, 1,36, 7) = (/ &
+     &1.2397e+01_rb,9.5976e+00_rb,6.9138e+00_rb,3.8949e+00_rb,4.1048e-02_rb/)
+      kbo(:, 2,36, 7) = (/ &
+     &1.3655e+01_rb,1.0513e+01_rb,7.5553e+00_rb,4.2704e+00_rb,4.3574e-02_rb/)
+      kbo(:, 3,36, 7) = (/ &
+     &1.5056e+01_rb,1.1535e+01_rb,8.2577e+00_rb,4.6863e+00_rb,4.5767e-02_rb/)
+      kbo(:, 4,36, 7) = (/ &
+     &1.6621e+01_rb,1.2678e+01_rb,9.0220e+00_rb,5.1309e+00_rb,4.7778e-02_rb/)
+      kbo(:, 5,36, 7) = (/ &
+     &1.8454e+01_rb,1.4024e+01_rb,9.9036e+00_rb,5.6291e+00_rb,4.9683e-02_rb/)
+      kbo(:, 1,37, 7) = (/ &
+     &1.1793e+01_rb,9.1604e+00_rb,6.6146e+00_rb,3.7234e+00_rb,3.4707e-02_rb/)
+      kbo(:, 2,37, 7) = (/ &
+     &1.3041e+01_rb,1.0070e+01_rb,7.2604e+00_rb,4.1046e+00_rb,3.6864e-02_rb/)
+      kbo(:, 3,37, 7) = (/ &
+     &1.4439e+01_rb,1.1088e+01_rb,7.9659e+00_rb,4.5244e+00_rb,3.8795e-02_rb/)
+      kbo(:, 4,37, 7) = (/ &
+     &1.6025e+01_rb,1.2245e+01_rb,8.7442e+00_rb,4.9773e+00_rb,4.0613e-02_rb/)
+      kbo(:, 5,37, 7) = (/ &
+     &1.7882e+01_rb,1.3605e+01_rb,9.6420e+00_rb,5.4880e+00_rb,4.2339e-02_rb/)
+      kbo(:, 1,38, 7) = (/ &
+     &1.1383e+01_rb,8.8666e+00_rb,6.4134e+00_rb,3.6072e+00_rb,2.9298e-02_rb/)
+      kbo(:, 2,38, 7) = (/ &
+     &1.2643e+01_rb,9.7859e+00_rb,7.0699e+00_rb,3.9972e+00_rb,3.1148e-02_rb/)
+      kbo(:, 3,38, 7) = (/ &
+     &1.4056e+01_rb,1.0814e+01_rb,7.7862e+00_rb,4.4229e+00_rb,3.2867e-02_rb/)
+      kbo(:, 4,38, 7) = (/ &
+     &1.5686e+01_rb,1.2002e+01_rb,8.5915e+00_rb,4.8935e+00_rb,3.4517e-02_rb/)
+      kbo(:, 5,38, 7) = (/ &
+     &1.7595e+01_rb,1.3400e+01_rb,9.5179e+00_rb,5.4208e+00_rb,3.6067e-02_rb/)
+      kbo(:, 1,39, 7) = (/ &
+     &1.1254e+01_rb,8.7785e+00_rb,6.3532e+00_rb,3.5698e+00_rb,2.4703e-02_rb/)
+      kbo(:, 2,39, 7) = (/ &
+     &1.2546e+01_rb,9.7238e+00_rb,7.0319e+00_rb,3.9725e+00_rb,2.6328e-02_rb/)
+      kbo(:, 3,39, 7) = (/ &
+     &1.4010e+01_rb,1.0789e+01_rb,7.7764e+00_rb,4.4152e+00_rb,2.7854e-02_rb/)
+      kbo(:, 4,39, 7) = (/ &
+     &1.5714e+01_rb,1.2031e+01_rb,8.6190e+00_rb,4.9070e+00_rb,2.9325e-02_rb/)
+      kbo(:, 5,39, 7) = (/ &
+     &1.7752e+01_rb,1.3525e+01_rb,9.6124e+00_rb,5.4718e+00_rb,3.0788e-02_rb/)
+      kbo(:, 1,40, 7) = (/ &
+     &1.0343e+01_rb,8.1149e+00_rb,5.8880e+00_rb,3.3077e+00_rb,2.0662e-02_rb/)
+      kbo(:, 2,40, 7) = (/ &
+     &1.1581e+01_rb,9.0215e+00_rb,6.5477e+00_rb,3.7008e+00_rb,2.2084e-02_rb/)
+      kbo(:, 3,40, 7) = (/ &
+     &1.2986e+01_rb,1.0044e+01_rb,7.2710e+00_rb,4.1322e+00_rb,2.3431e-02_rb/)
+      kbo(:, 4,40, 7) = (/ &
+     &1.4638e+01_rb,1.1247e+01_rb,8.0993e+00_rb,4.6196e+00_rb,2.4776e-02_rb/)
+      kbo(:, 5,40, 7) = (/ &
+     &1.6625e+01_rb,1.2700e+01_rb,9.0740e+00_rb,5.1787e+00_rb,2.6103e-02_rb/)
+      kbo(:, 1,41, 7) = (/ &
+     &9.4683e+00_rb,7.4757e+00_rb,5.4378e+00_rb,3.0540e+00_rb,1.7243e-02_rb/)
+      kbo(:, 2,41, 7) = (/ &
+     &1.0645e+01_rb,8.3400e+00_rb,6.0743e+00_rb,3.4334e+00_rb,1.8487e-02_rb/)
+      kbo(:, 3,41, 7) = (/ &
+     &1.1996e+01_rb,9.3250e+00_rb,6.7794e+00_rb,3.8546e+00_rb,1.9684e-02_rb/)
+      kbo(:, 4,41, 7) = (/ &
+     &1.3587e+01_rb,1.0480e+01_rb,7.5843e+00_rb,4.3322e+00_rb,2.0909e-02_rb/)
+      kbo(:, 5,41, 7) = (/ &
+     &1.5513e+01_rb,1.1886e+01_rb,8.5396e+00_rb,4.8864e+00_rb,2.2113e-02_rb/)
+      kbo(:, 1,42, 7) = (/ &
+     &8.7596e+00_rb,6.9575e+00_rb,5.0695e+00_rb,2.8442e+00_rb,1.4375e-02_rb/)
+      kbo(:, 2,42, 7) = (/ &
+     &9.8918e+00_rb,7.7921e+00_rb,5.6895e+00_rb,3.2145e+00_rb,1.5469e-02_rb/)
+      kbo(:, 3,42, 7) = (/ &
+     &1.1196e+01_rb,8.7450e+00_rb,6.3808e+00_rb,3.6290e+00_rb,1.6542e-02_rb/)
+      kbo(:, 4,42, 7) = (/ &
+     &1.2750e+01_rb,9.8741e+00_rb,7.1757e+00_rb,4.1018e+00_rb,1.7643e-02_rb/)
+      kbo(:, 5,42, 7) = (/ &
+     &1.4631e+01_rb,1.1244e+01_rb,8.1146e+00_rb,4.6494e+00_rb,1.8736e-02_rb/)
+      kbo(:, 1,43, 7) = (/ &
+     &8.1129e+00_rb,6.4828e+00_rb,4.7282e+00_rb,2.6502e+00_rb,1.1920e-02_rb/)
+      kbo(:, 2,43, 7) = (/ &
+     &9.2040e+00_rb,7.2919e+00_rb,5.3332e+00_rb,3.0110e+00_rb,1.2884e-02_rb/)
+      kbo(:, 3,43, 7) = (/ &
+     &1.0467e+01_rb,8.2176e+00_rb,6.0123e+00_rb,3.4195e+00_rb,1.3839e-02_rb/)
+      kbo(:, 4,43, 7) = (/ &
+     &1.1975e+01_rb,9.3139e+00_rb,6.7911e+00_rb,3.8837e+00_rb,1.4824e-02_rb/)
+      kbo(:, 5,43, 7) = (/ &
+     &1.3821e+01_rb,1.0658e+01_rb,7.7247e+00_rb,4.4294e+00_rb,1.5816e-02_rb/)
+      kbo(:, 1,44, 7) = (/ &
+     &7.5813e+00_rb,6.0889e+00_rb,4.4438e+00_rb,2.4886e+00_rb,9.8504e-03_rb/)
+      kbo(:, 2,44, 7) = (/ &
+     &8.6433e+00_rb,6.8838e+00_rb,5.0388e+00_rb,2.8416e+00_rb,1.0695e-02_rb/)
+      kbo(:, 3,44, 7) = (/ &
+     &9.8815e+00_rb,7.7937e+00_rb,5.7119e+00_rb,3.2452e+00_rb,1.1549e-02_rb/)
+      kbo(:, 4,44, 7) = (/ &
+     &1.1354e+01_rb,8.8664e+00_rb,6.4827e+00_rb,3.7047e+00_rb,1.2430e-02_rb/)
+      kbo(:, 5,44, 7) = (/ &
+     &1.3162e+01_rb,1.0183e+01_rb,7.4060e+00_rb,4.2473e+00_rb,1.3335e-02_rb/)
+      kbo(:, 1,45, 7) = (/ &
+     &7.2186e+00_rb,5.8199e+00_rb,4.2461e+00_rb,2.3747e+00_rb,8.1314e-03_rb/)
+      kbo(:, 2,45, 7) = (/ &
+     &8.2698e+00_rb,6.6114e+00_rb,4.8385e+00_rb,2.7251e+00_rb,8.8750e-03_rb/)
+      kbo(:, 3,45, 7) = (/ &
+     &9.5031e+00_rb,7.5246e+00_rb,5.5174e+00_rb,3.1306e+00_rb,9.6297e-03_rb/)
+      kbo(:, 4,45, 7) = (/ &
+     &1.0974e+01_rb,8.5972e+00_rb,6.2944e+00_rb,3.5936e+00_rb,1.0417e-02_rb/)
+      kbo(:, 5,45, 7) = (/ &
+     &1.2791e+01_rb,9.9194e+00_rb,7.2286e+00_rb,4.1456e+00_rb,1.1234e-02_rb/)
+      kbo(:, 1,46, 7) = (/ &
+     &6.9141e+00_rb,5.5940e+00_rb,4.0776e+00_rb,2.2758e+00_rb,6.6876e-03_rb/)
+      kbo(:, 2,46, 7) = (/ &
+     &7.9503e+00_rb,6.3788e+00_rb,4.6670e+00_rb,2.6226e+00_rb,7.3399e-03_rb/)
+      kbo(:, 3,46, 7) = (/ &
+     &9.1864e+00_rb,7.2991e+00_rb,5.3560e+00_rb,3.0335e+00_rb,8.0038e-03_rb/)
+      kbo(:, 4,46, 7) = (/ &
+     &1.0667e+01_rb,8.3803e+00_rb,6.1440e+00_rb,3.5030e+00_rb,8.7040e-03_rb/)
+      kbo(:, 5,46, 7) = (/ &
+     &1.2488e+01_rb,9.7091e+00_rb,7.0857e+00_rb,4.0595e+00_rb,9.4400e-03_rb/)
+      kbo(:, 1,47, 7) = (/ &
+     &6.5158e+00_rb,5.2952e+00_rb,3.8553e+00_rb,2.1461e+00_rb,5.4578e-03_rb/)
+      kbo(:, 2,47, 7) = (/ &
+     &7.5125e+00_rb,6.0542e+00_rb,4.4282e+00_rb,2.4823e+00_rb,6.0287e-03_rb/)
+      kbo(:, 3,47, 7) = (/ &
+     &8.7277e+00_rb,6.9654e+00_rb,5.1130e+00_rb,2.8905e+00_rb,6.6123e-03_rb/)
+      kbo(:, 4,47, 7) = (/ &
+     &1.0180e+01_rb,8.0330e+00_rb,5.8977e+00_rb,3.3599e+00_rb,7.2304e-03_rb/)
+      kbo(:, 5,47, 7) = (/ &
+     &1.1985e+01_rb,9.3498e+00_rb,6.8393e+00_rb,3.9162e+00_rb,7.8875e-03_rb/)
+      kbo(:, 1,48, 7) = (/ &
+     &6.3104e+00_rb,5.1398e+00_rb,3.7343e+00_rb,2.0712e+00_rb,4.4438e-03_rb/)
+      kbo(:, 2,48, 7) = (/ &
+     &7.2865e+00_rb,5.8865e+00_rb,4.2999e+00_rb,2.4038e+00_rb,4.9412e-03_rb/)
+      kbo(:, 3,48, 7) = (/ &
+     &8.5071e+00_rb,6.8079e+00_rb,4.9920e+00_rb,2.8153e+00_rb,5.4521e-03_rb/)
+      kbo(:, 4,48, 7) = (/ &
+     &9.9728e+00_rb,7.8905e+00_rb,5.7928e+00_rb,3.2942e+00_rb,5.9945e-03_rb/)
+      kbo(:, 5,48, 7) = (/ &
+     &1.1799e+01_rb,9.2259e+00_rb,6.7537e+00_rb,3.8639e+00_rb,6.5748e-03_rb/)
+      kbo(:, 1,49, 7) = (/ &
+     &6.3637e+00_rb,5.1793e+00_rb,3.7516e+00_rb,2.0723e+00_rb,3.6085e-03_rb/)
+      kbo(:, 2,49, 7) = (/ &
+     &7.3474e+00_rb,5.9332e+00_rb,4.3233e+00_rb,2.4087e+00_rb,4.0406e-03_rb/)
+      kbo(:, 3,49, 7) = (/ &
+     &8.6221e+00_rb,6.8978e+00_rb,5.0458e+00_rb,2.8357e+00_rb,4.4876e-03_rb/)
+      kbo(:, 4,49, 7) = (/ &
+     &1.0155e+01_rb,8.0340e+00_rb,5.8866e+00_rb,3.3379e+00_rb,4.9641e-03_rb/)
+      kbo(:, 5,49, 7) = (/ &
+     &1.2071e+01_rb,9.4371e+00_rb,6.8986e+00_rb,3.9361e+00_rb,5.4780e-03_rb/)
+      kbo(:, 1,50, 7) = (/ &
+     &6.1287e+00_rb,4.9982e+00_rb,3.6130e+00_rb,1.9898e+00_rb,2.9263e-03_rb/)
+      kbo(:, 2,50, 7) = (/ &
+     &7.0793e+00_rb,5.7315e+00_rb,4.1690e+00_rb,2.3166e+00_rb,3.3022e-03_rb/)
+      kbo(:, 3,50, 7) = (/ &
+     &8.3385e+00_rb,6.6892e+00_rb,4.8872e+00_rb,2.7388e+00_rb,3.6894e-03_rb/)
+      kbo(:, 4,50, 7) = (/ &
+     &9.8705e+00_rb,7.8310e+00_rb,5.7364e+00_rb,3.2460e+00_rb,4.1061e-03_rb/)
+      kbo(:, 5,50, 7) = (/ &
+     &1.1792e+01_rb,9.2428e+00_rb,6.7611e+00_rb,3.8534e+00_rb,4.5631e-03_rb/)
+      kbo(:, 1,51, 7) = (/ &
+     &5.7768e+00_rb,4.7273e+00_rb,3.4121e+00_rb,1.8743e+00_rb,2.3693e-03_rb/)
+      kbo(:, 2,51, 7) = (/ &
+     &6.6763e+00_rb,5.4272e+00_rb,3.9426e+00_rb,2.1849e+00_rb,2.6931e-03_rb/)
+      kbo(:, 3,51, 7) = (/ &
+     &7.8931e+00_rb,6.3576e+00_rb,4.6398e+00_rb,2.5939e+00_rb,3.0298e-03_rb/)
+      kbo(:, 4,51, 7) = (/ &
+     &9.3905e+00_rb,7.4818e+00_rb,5.4825e+00_rb,3.0966e+00_rb,3.3909e-03_rb/)
+      kbo(:, 5,51, 7) = (/ &
+     &1.1270e+01_rb,8.8663e+00_rb,6.4953e+00_rb,3.6986e+00_rb,3.7911e-03_rb/)
+      kbo(:, 1,52, 7) = (/ &
+     &5.5982e+00_rb,4.5875e+00_rb,3.3045e+00_rb,1.8093e+00_rb,1.9133e-03_rb/)
+      kbo(:, 2,52, 7) = (/ &
+     &6.4669e+00_rb,5.2676e+00_rb,3.8189e+00_rb,2.1105e+00_rb,2.1929e-03_rb/)
+      kbo(:, 3,52, 7) = (/ &
+     &7.6692e+00_rb,6.1904e+00_rb,4.5114e+00_rb,2.5133e+00_rb,2.4833e-03_rb/)
+      kbo(:, 4,52, 7) = (/ &
+     &9.1760e+00_rb,7.3261e+00_rb,5.3623e+00_rb,3.0203e+00_rb,2.7953e-03_rb/)
+      kbo(:, 5,52, 7) = (/ &
+     &1.1059e+01_rb,8.7181e+00_rb,6.3851e+00_rb,3.6291e+00_rb,3.1452e-03_rb/)
+      kbo(:, 1,53, 7) = (/ &
+     &5.6498e+00_rb,4.6222e+00_rb,3.3203e+00_rb,1.8115e+00_rb,1.5408e-03_rb/)
+      kbo(:, 2,53, 7) = (/ &
+     &6.5197e+00_rb,5.3054e+00_rb,3.8365e+00_rb,2.1129e+00_rb,1.7821e-03_rb/)
+      kbo(:, 3,53, 7) = (/ &
+     &7.7464e+00_rb,6.2478e+00_rb,4.5414e+00_rb,2.5222e+00_rb,2.0319e-03_rb/)
+      kbo(:, 4,53, 7) = (/ &
+     &9.3204e+00_rb,7.4376e+00_rb,5.4308e+00_rb,3.0476e+00_rb,2.3029e-03_rb/)
+      kbo(:, 5,53, 7) = (/ &
+     &1.1294e+01_rb,8.9013e+00_rb,6.5042e+00_rb,3.6848e+00_rb,2.6089e-03_rb/)
+      kbo(:, 1,54, 7) = (/ &
+     &4.9410e+00_rb,4.0701e+00_rb,2.9220e+00_rb,1.5920e+00_rb,1.2393e-03_rb/)
+      kbo(:, 2,54, 7) = (/ &
+     &5.7011e+00_rb,4.6779e+00_rb,3.3818e+00_rb,1.8599e+00_rb,1.4465e-03_rb/)
+      kbo(:, 3,54, 7) = (/ &
+     &6.7851e+00_rb,5.5214e+00_rb,4.0167e+00_rb,2.2288e+00_rb,1.6602e-03_rb/)
+      kbo(:, 4,54, 7) = (/ &
+     &8.2133e+00_rb,6.6133e+00_rb,4.8372e+00_rb,2.7129e+00_rb,1.8918e-03_rb/)
+      kbo(:, 5,54, 7) = (/ &
+     &1.0009e+01_rb,7.9570e+00_rb,5.8358e+00_rb,3.3045e+00_rb,2.1561e-03_rb/)
+      kbo(:, 1,55, 7) = (/ &
+     &3.9448e+00_rb,3.2894e+00_rb,2.3617e+00_rb,1.2863e+00_rb,9.9479e-04_rb/)
+      kbo(:, 2,55, 7) = (/ &
+     &4.5510e+00_rb,3.7868e+00_rb,2.7406e+00_rb,1.5076e+00_rb,1.1698e-03_rb/)
+      kbo(:, 3,55, 7) = (/ &
+     &5.4272e+00_rb,4.4849e+00_rb,3.2681e+00_rb,1.8142e+00_rb,1.3510e-03_rb/)
+      kbo(:, 4,55, 7) = (/ &
+     &6.6050e+00_rb,5.4031e+00_rb,3.9651e+00_rb,2.2259e+00_rb,1.5494e-03_rb/)
+      kbo(:, 5,55, 7) = (/ &
+     &8.0992e+00_rb,6.5420e+00_rb,4.8249e+00_rb,2.7373e+00_rb,1.7731e-03_rb/)
+      kbo(:, 1,56, 7) = (/ &
+     &3.1456e+00_rb,2.6539e+00_rb,1.9051e+00_rb,1.0370e+00_rb,7.9618e-04_rb/)
+      kbo(:, 2,56, 7) = (/ &
+     &3.6287e+00_rb,3.0618e+00_rb,2.2169e+00_rb,1.2199e+00_rb,9.4437e-04_rb/)
+      kbo(:, 3,56, 7) = (/ &
+     &4.3315e+00_rb,3.6363e+00_rb,2.6526e+00_rb,1.4737e+00_rb,1.0978e-03_rb/)
+      kbo(:, 4,56, 7) = (/ &
+     &5.3003e+00_rb,4.4092e+00_rb,3.2425e+00_rb,1.8210e+00_rb,1.2654e-03_rb/)
+      kbo(:, 5,56, 7) = (/ &
+     &6.5412e+00_rb,5.3749e+00_rb,3.9813e+00_rb,2.2622e+00_rb,1.4546e-03_rb/)
+      kbo(:, 1,57, 7) = (/ &
+     &2.5050e+00_rb,2.1372e+00_rb,1.5333e+00_rb,8.3409e-01_rb,6.3524e-04_rb/)
+      kbo(:, 2,57, 7) = (/ &
+     &2.8897e+00_rb,2.4717e+00_rb,1.7900e+00_rb,9.8489e-01_rb,7.5959e-04_rb/)
+      kbo(:, 3,57, 7) = (/ &
+     &3.4502e+00_rb,2.9412e+00_rb,2.1481e+00_rb,1.1943e+00_rb,8.8948e-04_rb/)
+      kbo(:, 4,57, 7) = (/ &
+     &4.2411e+00_rb,3.5892e+00_rb,2.6434e+00_rb,1.4858e+00_rb,1.0311e-03_rb/)
+      kbo(:, 5,57, 7) = (/ &
+     &5.2712e+00_rb,4.4105e+00_rb,3.2776e+00_rb,1.8647e+00_rb,1.1913e-03_rb/)
+      kbo(:, 1,58, 7) = (/ &
+     &5.2639e-01_rb,5.5628e-01_rb,5.1310e-01_rb,3.9091e-01_rb,5.0641e-04_rb/)
+      kbo(:, 2,58, 7) = (/ &
+     &6.0772e-01_rb,6.4553e-01_rb,6.0135e-01_rb,4.6372e-01_rb,6.1035e-04_rb/)
+      kbo(:, 3,58, 7) = (/ &
+     &7.2539e-01_rb,7.7016e-01_rb,7.2403e-01_rb,5.6463e-01_rb,7.2056e-04_rb/)
+      kbo(:, 4,58, 7) = (/ &
+     &8.9558e-01_rb,9.4507e-01_rb,8.9682e-01_rb,7.0739e-01_rb,8.3918e-04_rb/)
+      kbo(:, 5,58, 7) = (/ &
+     &1.1215e+00_rb,1.1728e+00_rb,1.1240e+00_rb,8.9769e-01_rb,9.7498e-04_rb/)
+      kbo(:, 1,59, 7) = (/ &
+     &5.0774e-01_rb,5.2725e-01_rb,4.5400e-01_rb,3.0925e-01_rb,4.1598e-04_rb/)
+      kbo(:, 2,59, 7) = (/ &
+     &5.8906e-01_rb,6.1772e-01_rb,5.3777e-01_rb,3.7151e-01_rb,5.0342e-04_rb/)
+      kbo(:, 3,59, 7) = (/ &
+     &7.0796e-01_rb,7.4490e-01_rb,6.5525e-01_rb,4.5851e-01_rb,5.9609e-04_rb/)
+      kbo(:, 4,59, 7) = (/ &
+     &8.8130e-01_rb,9.2517e-01_rb,8.2251e-01_rb,5.8308e-01_rb,6.9661e-04_rb/)
+      kbo(:, 5,59, 7) = (/ &
+     &1.1130e+00_rb,1.1619e+00_rb,1.0449e+00_rb,7.5118e-01_rb,8.1226e-04_rb/)
+      kbo(:, 1,13, 8) = (/ &
+     &5.5674e+03_rb,4.1757e+03_rb,2.7839e+03_rb,1.3922e+03_rb,1.1827e+00_rb/)
+      kbo(:, 2,13, 8) = (/ &
+     &5.5672e+03_rb,4.1755e+03_rb,2.7838e+03_rb,1.3922e+03_rb,1.1780e+00_rb/)
+      kbo(:, 3,13, 8) = (/ &
+     &5.5974e+03_rb,4.1981e+03_rb,2.7989e+03_rb,1.3997e+03_rb,1.1714e+00_rb/)
+      kbo(:, 4,13, 8) = (/ &
+     &5.6743e+03_rb,4.2558e+03_rb,2.8374e+03_rb,1.4189e+03_rb,1.1612e+00_rb/)
+      kbo(:, 5,13, 8) = (/ &
+     &5.7999e+03_rb,4.3500e+03_rb,2.9002e+03_rb,1.4503e+03_rb,1.1566e+00_rb/)
+      kbo(:, 1,14, 8) = (/ &
+     &3.0072e+03_rb,2.2555e+03_rb,1.5038e+03_rb,7.5211e+02_rb,1.1873e+00_rb/)
+      kbo(:, 2,14, 8) = (/ &
+     &3.0260e+03_rb,2.2696e+03_rb,1.5132e+03_rb,7.5683e+02_rb,1.1778e+00_rb/)
+      kbo(:, 3,14, 8) = (/ &
+     &3.0739e+03_rb,2.3055e+03_rb,1.5371e+03_rb,7.6880e+02_rb,1.1759e+00_rb/)
+      kbo(:, 4,14, 8) = (/ &
+     &3.1534e+03_rb,2.3651e+03_rb,1.5769e+03_rb,7.8868e+02_rb,1.1686e+00_rb/)
+      kbo(:, 5,14, 8) = (/ &
+     &3.2601e+03_rb,2.4451e+03_rb,1.6302e+03_rb,8.1536e+02_rb,1.1588e+00_rb/)
+      kbo(:, 1,15, 8) = (/ &
+     &1.6681e+03_rb,1.2512e+03_rb,8.3428e+02_rb,4.1737e+02_rb,1.1796e+00_rb/)
+      kbo(:, 2,15, 8) = (/ &
+     &1.6959e+03_rb,1.2720e+03_rb,8.4818e+02_rb,4.2432e+02_rb,1.1712e+00_rb/)
+      kbo(:, 3,15, 8) = (/ &
+     &1.7438e+03_rb,1.3080e+03_rb,8.7214e+02_rb,4.3631e+02_rb,1.1630e+00_rb/)
+      kbo(:, 4,15, 8) = (/ &
+     &1.8057e+03_rb,1.3544e+03_rb,9.0311e+02_rb,4.5180e+02_rb,1.1584e+00_rb/)
+      kbo(:, 5,15, 8) = (/ &
+     &1.8729e+03_rb,1.4048e+03_rb,9.3671e+02_rb,4.6860e+02_rb,1.1490e+00_rb/)
+      kbo(:, 1,16, 8) = (/ &
+     &1.1127e+03_rb,8.3463e+02_rb,5.5657e+02_rb,2.7851e+02_rb,1.1544e+00_rb/)
+      kbo(:, 2,16, 8) = (/ &
+     &1.1452e+03_rb,8.5902e+02_rb,5.7284e+02_rb,2.8665e+02_rb,1.1489e+00_rb/)
+      kbo(:, 3,16, 8) = (/ &
+     &1.1859e+03_rb,8.8958e+02_rb,5.9321e+02_rb,2.9685e+02_rb,1.1423e+00_rb/)
+      kbo(:, 4,16, 8) = (/ &
+     &1.2314e+03_rb,9.2370e+02_rb,6.1596e+02_rb,3.0822e+02_rb,1.1380e+00_rb/)
+      kbo(:, 5,16, 8) = (/ &
+     &1.2793e+03_rb,9.5963e+02_rb,6.3991e+02_rb,3.2020e+02_rb,1.1307e+00_rb/)
+      kbo(:, 1,17, 8) = (/ &
+     &7.7661e+02_rb,5.8258e+02_rb,3.8854e+02_rb,1.9450e+02_rb,1.1162e+00_rb/)
+      kbo(:, 2,17, 8) = (/ &
+     &8.0415e+02_rb,6.0323e+02_rb,4.0231e+02_rb,2.0139e+02_rb,1.1130e+00_rb/)
+      kbo(:, 3,17, 8) = (/ &
+     &8.3554e+02_rb,6.2677e+02_rb,4.1801e+02_rb,2.0924e+02_rb,1.1093e+00_rb/)
+      kbo(:, 4,17, 8) = (/ &
+     &8.6787e+02_rb,6.5102e+02_rb,4.3418e+02_rb,2.1733e+02_rb,1.1057e+00_rb/)
+      kbo(:, 5,17, 8) = (/ &
+     &9.0039e+02_rb,6.7541e+02_rb,4.5043e+02_rb,2.2545e+02_rb,1.0994e+00_rb/)
+      kbo(:, 1,18, 8) = (/ &
+     &5.5593e+02_rb,4.1706e+02_rb,2.7819e+02_rb,1.3933e+02_rb,1.0653e+00_rb/)
+      kbo(:, 2,18, 8) = (/ &
+     &5.7731e+02_rb,4.3309e+02_rb,2.8888e+02_rb,1.4467e+02_rb,1.0637e+00_rb/)
+      kbo(:, 3,18, 8) = (/ &
+     &5.9962e+02_rb,4.4983e+02_rb,3.0005e+02_rb,1.5026e+02_rb,1.0625e+00_rb/)
+      kbo(:, 4,18, 8) = (/ &
+     &6.2213e+02_rb,4.6672e+02_rb,3.1130e+02_rb,1.5589e+02_rb,1.0595e+00_rb/)
+      kbo(:, 5,18, 8) = (/ &
+     &6.4470e+02_rb,4.8364e+02_rb,3.2258e+02_rb,1.6152e+02_rb,1.0552e+00_rb/)
+      kbo(:, 1,19, 8) = (/ &
+     &3.9059e+02_rb,2.9306e+02_rb,1.9552e+02_rb,9.7992e+01_rb,1.0025e+00_rb/)
+      kbo(:, 2,19, 8) = (/ &
+     &4.0544e+02_rb,3.0420e+02_rb,2.0295e+02_rb,1.0172e+02_rb,1.0019e+00_rb/)
+      kbo(:, 3,19, 8) = (/ &
+     &4.2056e+02_rb,3.1554e+02_rb,2.1052e+02_rb,1.0550e+02_rb,1.0025e+00_rb/)
+      kbo(:, 4,19, 8) = (/ &
+     &4.3576e+02_rb,3.2693e+02_rb,2.1811e+02_rb,1.0930e+02_rb,1.0012e+00_rb/)
+      kbo(:, 5,19, 8) = (/ &
+     &4.5126e+02_rb,3.3856e+02_rb,2.2586e+02_rb,1.1317e+02_rb,9.9899e-01_rb/)
+      kbo(:, 1,20, 8) = (/ &
+     &2.9617e+02_rb,2.2224e+02_rb,1.4831e+02_rb,7.4392e+01_rb,9.3059e-01_rb/)
+      kbo(:, 2,20, 8) = (/ &
+     &3.0716e+02_rb,2.3049e+02_rb,1.5382e+02_rb,7.7154e+01_rb,9.3219e-01_rb/)
+      kbo(:, 3,20, 8) = (/ &
+     &3.1816e+02_rb,2.3874e+02_rb,1.5932e+02_rb,7.9908e+01_rb,9.3370e-01_rb/)
+      kbo(:, 4,20, 8) = (/ &
+     &3.2952e+02_rb,2.4726e+02_rb,1.6500e+02_rb,8.2741e+01_rb,9.3435e-01_rb/)
+      kbo(:, 5,20, 8) = (/ &
+     &3.4150e+02_rb,2.5625e+02_rb,1.7099e+02_rb,8.5741e+01_rb,9.3474e-01_rb/)
+      kbo(:, 1,21, 8) = (/ &
+     &2.3042e+02_rb,1.7293e+02_rb,1.1544e+02_rb,5.7965e+01_rb,8.5235e-01_rb/)
+      kbo(:, 2,21, 8) = (/ &
+     &2.3880e+02_rb,1.7922e+02_rb,1.1964e+02_rb,6.0070e+01_rb,8.5599e-01_rb/)
+      kbo(:, 3,21, 8) = (/ &
+     &2.4721e+02_rb,1.8553e+02_rb,1.2385e+02_rb,6.2177e+01_rb,8.5938e-01_rb/)
+      kbo(:, 4,21, 8) = (/ &
+     &2.5622e+02_rb,1.9229e+02_rb,1.2835e+02_rb,6.4426e+01_rb,8.6241e-01_rb/)
+      kbo(:, 5,21, 8) = (/ &
+     &2.6653e+02_rb,2.0002e+02_rb,1.3351e+02_rb,6.7009e+01_rb,8.6670e-01_rb/)
+      kbo(:, 1,22, 8) = (/ &
+     &1.8346e+02_rb,1.3771e+02_rb,9.1962e+01_rb,4.6247e+01_rb,7.7175e-01_rb/)
+      kbo(:, 2,22, 8) = (/ &
+     &1.8996e+02_rb,1.4259e+02_rb,9.5222e+01_rb,4.7880e+01_rb,7.7757e-01_rb/)
+      kbo(:, 3,22, 8) = (/ &
+     &1.9685e+02_rb,1.4775e+02_rb,9.8665e+01_rb,4.9599e+01_rb,7.8369e-01_rb/)
+      kbo(:, 4,22, 8) = (/ &
+     &2.0481e+02_rb,1.5373e+02_rb,1.0265e+02_rb,5.1591e+01_rb,7.9052e-01_rb/)
+      kbo(:, 5,22, 8) = (/ &
+     &2.1438e+02_rb,1.6091e+02_rb,1.0745e+02_rb,5.3989e+01_rb,7.9865e-01_rb/)
+      kbo(:, 1,23, 8) = (/ &
+     &1.4619e+02_rb,1.0976e+02_rb,7.3333e+01_rb,3.7009e+01_rb,6.9269e-01_rb/)
+      kbo(:, 2,23, 8) = (/ &
+     &1.5146e+02_rb,1.1371e+02_rb,7.5969e+01_rb,3.8312e+01_rb,7.0058e-01_rb/)
+      kbo(:, 3,23, 8) = (/ &
+     &1.5752e+02_rb,1.1826e+02_rb,7.9004e+01_rb,3.9812e+01_rb,7.0997e-01_rb/)
+      kbo(:, 4,23, 8) = (/ &
+     &1.6498e+02_rb,1.2386e+02_rb,8.2742e+01_rb,4.1669e+01_rb,7.2082e-01_rb/)
+      kbo(:, 5,23, 8) = (/ &
+     &1.7382e+02_rb,1.3049e+02_rb,8.7175e+01_rb,4.3881e+01_rb,7.3247e-01_rb/)
+      kbo(:, 1,24, 8) = (/ &
+     &1.1546e+02_rb,8.6713e+01_rb,5.7975e+01_rb,2.9484e+01_rb,6.1736e-01_rb/)
+      kbo(:, 2,24, 8) = (/ &
+     &1.1997e+02_rb,9.0096e+01_rb,6.0229e+01_rb,3.0574e+01_rb,6.2822e-01_rb/)
+      kbo(:, 3,24, 8) = (/ &
+     &1.2560e+02_rb,9.4324e+01_rb,6.3051e+01_rb,3.1946e+01_rb,6.4118e-01_rb/)
+      kbo(:, 4,24, 8) = (/ &
+     &1.3251e+02_rb,9.9515e+01_rb,6.6517e+01_rb,3.3646e+01_rb,6.5583e-01_rb/)
+      kbo(:, 5,24, 8) = (/ &
+     &1.4039e+02_rb,1.0542e+02_rb,7.0467e+01_rb,3.5600e+01_rb,6.7045e-01_rb/)
+      kbo(:, 1,25, 8) = (/ &
+     &9.2335e+01_rb,6.9366e+01_rb,4.6428e+01_rb,2.3921e+01_rb,5.4857e-01_rb/)
+      kbo(:, 2,25, 8) = (/ &
+     &9.6533e+01_rb,7.2518e+01_rb,4.8524e+01_rb,2.4911e+01_rb,5.6301e-01_rb/)
+      kbo(:, 3,25, 8) = (/ &
+     &1.0186e+02_rb,7.6521e+01_rb,5.1191e+01_rb,2.6188e+01_rb,5.7925e-01_rb/)
+      kbo(:, 4,25, 8) = (/ &
+     &1.0808e+02_rb,8.1193e+01_rb,5.4315e+01_rb,2.7693e+01_rb,5.9615e-01_rb/)
+      kbo(:, 5,25, 8) = (/ &
+     &1.1475e+02_rb,8.6195e+01_rb,5.7652e+01_rb,2.9318e+01_rb,6.1289e-01_rb/)
+      kbo(:, 1,26, 8) = (/ &
+     &7.5309e+01_rb,5.6599e+01_rb,3.7963e+01_rb,1.9911e+01_rb,4.8832e-01_rb/)
+      kbo(:, 2,26, 8) = (/ &
+     &7.9402e+01_rb,5.9672e+01_rb,3.9995e+01_rb,2.0863e+01_rb,5.0531e-01_rb/)
+      kbo(:, 3,26, 8) = (/ &
+     &8.4365e+01_rb,6.3403e+01_rb,4.2472e+01_rb,2.2029e+01_rb,5.2357e-01_rb/)
+      kbo(:, 4,26, 8) = (/ &
+     &8.9751e+01_rb,6.7447e+01_rb,4.5169e+01_rb,2.3307e+01_rb,5.4165e-01_rb/)
+      kbo(:, 5,26, 8) = (/ &
+     &9.5432e+01_rb,7.1708e+01_rb,4.8005e+01_rb,2.4657e+01_rb,5.6018e-01_rb/)
+      kbo(:, 1,27, 8) = (/ &
+     &6.4036e+01_rb,4.8147e+01_rb,3.2405e+01_rb,1.7310e+01_rb,4.3584e-01_rb/)
+      kbo(:, 2,27, 8) = (/ &
+     &6.8098e+01_rb,5.1198e+01_rb,3.4406e+01_rb,1.8250e+01_rb,4.5420e-01_rb/)
+      kbo(:, 3,27, 8) = (/ &
+     &7.2623e+01_rb,5.4602e+01_rb,3.6656e+01_rb,1.9303e+01_rb,4.7326e-01_rb/)
+      kbo(:, 4,27, 8) = (/ &
+     &7.7443e+01_rb,5.8217e+01_rb,3.9050e+01_rb,2.0426e+01_rb,4.9239e-01_rb/)
+      kbo(:, 5,27, 8) = (/ &
+     &8.2321e+01_rb,6.1875e+01_rb,4.1476e+01_rb,2.1557e+01_rb,5.1192e-01_rb/)
+      kbo(:, 1,28, 8) = (/ &
+     &5.6234e+01_rb,4.2299e+01_rb,2.8597e+01_rb,1.5531e+01_rb,3.8958e-01_rb/)
+      kbo(:, 2,28, 8) = (/ &
+     &6.0088e+01_rb,4.5199e+01_rb,3.0486e+01_rb,1.6430e+01_rb,4.0865e-01_rb/)
+      kbo(:, 3,28, 8) = (/ &
+     &6.4206e+01_rb,4.8292e+01_rb,3.2515e+01_rb,1.7385e+01_rb,4.2800e-01_rb/)
+      kbo(:, 4,28, 8) = (/ &
+     &6.8496e+01_rb,5.1510e+01_rb,3.4630e+01_rb,1.8368e+01_rb,4.4785e-01_rb/)
+      kbo(:, 5,28, 8) = (/ &
+     &7.2933e+01_rb,5.4831e+01_rb,3.6814e+01_rb,1.9374e+01_rb,4.6830e-01_rb/)
+      kbo(:, 1,29, 8) = (/ &
+     &5.2522e+01_rb,3.9524e+01_rb,2.6825e+01_rb,1.4721e+01_rb,3.4924e-01_rb/)
+      kbo(:, 2,29, 8) = (/ &
+     &5.6330e+01_rb,4.2387e+01_rb,2.8683e+01_rb,1.5618e+01_rb,3.6822e-01_rb/)
+      kbo(:, 3,29, 8) = (/ &
+     &6.0271e+01_rb,4.5343e+01_rb,3.0606e+01_rb,1.6531e+01_rb,3.8784e-01_rb/)
+      kbo(:, 4,29, 8) = (/ &
+     &6.4389e+01_rb,4.8431e+01_rb,3.2623e+01_rb,1.7468e+01_rb,4.0814e-01_rb/)
+      kbo(:, 5,29, 8) = (/ &
+     &6.8669e+01_rb,5.1633e+01_rb,3.4713e+01_rb,1.8422e+01_rb,4.2953e-01_rb/)
+      kbo(:, 1,30, 8) = (/ &
+     &5.0335e+01_rb,3.7896e+01_rb,2.5810e+01_rb,1.4271e+01_rb,3.1347e-01_rb/)
+      kbo(:, 2,30, 8) = (/ &
+     &5.4100e+01_rb,4.0719e+01_rb,2.7633e+01_rb,1.5165e+01_rb,3.3234e-01_rb/)
+      kbo(:, 3,30, 8) = (/ &
+     &5.7975e+01_rb,4.3625e+01_rb,2.9511e+01_rb,1.6060e+01_rb,3.5217e-01_rb/)
+      kbo(:, 4,30, 8) = (/ &
+     &6.2057e+01_rb,4.6681e+01_rb,3.1490e+01_rb,1.6979e+01_rb,3.7324e-01_rb/)
+      kbo(:, 5,30, 8) = (/ &
+     &6.6429e+01_rb,4.9951e+01_rb,3.3616e+01_rb,1.7947e+01_rb,3.9520e-01_rb/)
+      kbo(:, 1,31, 8) = (/ &
+     &5.0736e+01_rb,3.8204e+01_rb,2.6057e+01_rb,1.4444e+01_rb,2.8199e-01_rb/)
+      kbo(:, 2,31, 8) = (/ &
+     &5.4607e+01_rb,4.1105e+01_rb,2.7922e+01_rb,1.5358e+01_rb,3.0094e-01_rb/)
+      kbo(:, 3,31, 8) = (/ &
+     &5.8681e+01_rb,4.4155e+01_rb,2.9887e+01_rb,1.6295e+01_rb,3.2130e-01_rb/)
+      kbo(:, 4,31, 8) = (/ &
+     &6.3068e+01_rb,4.7436e+01_rb,3.2008e+01_rb,1.7279e+01_rb,3.4300e-01_rb/)
+      kbo(:, 5,31, 8) = (/ &
+     &6.7873e+01_rb,5.1031e+01_rb,3.4344e+01_rb,1.8340e+01_rb,3.6582e-01_rb/)
+      kbo(:, 1,32, 8) = (/ &
+     &5.1816e+01_rb,3.9019e+01_rb,2.6627e+01_rb,1.4770e+01_rb,2.5449e-01_rb/)
+      kbo(:, 2,32, 8) = (/ &
+     &5.5914e+01_rb,4.2088e+01_rb,2.8597e+01_rb,1.5735e+01_rb,2.7379e-01_rb/)
+      kbo(:, 3,32, 8) = (/ &
+     &6.0292e+01_rb,4.5361e+01_rb,3.0700e+01_rb,1.6736e+01_rb,2.9480e-01_rb/)
+      kbo(:, 4,32, 8) = (/ &
+     &6.5110e+01_rb,4.8965e+01_rb,3.3030e+01_rb,1.7812e+01_rb,3.1717e-01_rb/)
+      kbo(:, 5,32, 8) = (/ &
+     &7.0477e+01_rb,5.2981e+01_rb,3.5640e+01_rb,1.8999e+01_rb,3.4101e-01_rb/)
+      kbo(:, 1,33, 8) = (/ &
+     &5.3927e+01_rb,4.0606e+01_rb,2.7695e+01_rb,1.5341e+01_rb,2.3093e-01_rb/)
+      kbo(:, 2,33, 8) = (/ &
+     &5.8395e+01_rb,4.3947e+01_rb,2.9836e+01_rb,1.6383e+01_rb,2.5073e-01_rb/)
+      kbo(:, 3,33, 8) = (/ &
+     &6.3254e+01_rb,4.7578e+01_rb,3.2172e+01_rb,1.7485e+01_rb,2.7229e-01_rb/)
+      kbo(:, 4,33, 8) = (/ &
+     &6.8732e+01_rb,5.1678e+01_rb,3.4827e+01_rb,1.8707e+01_rb,2.9562e-01_rb/)
+      kbo(:, 5,33, 8) = (/ &
+     &7.4993e+01_rb,5.6366e+01_rb,3.7885e+01_rb,2.0105e+01_rb,3.2058e-01_rb/)
+      kbo(:, 1,34, 8) = (/ &
+     &5.4725e+01_rb,4.1207e+01_rb,2.8111e+01_rb,1.5582e+01_rb,2.1030e-01_rb/)
+      kbo(:, 2,34, 8) = (/ &
+     &5.9482e+01_rb,4.4761e+01_rb,3.0384e+01_rb,1.6682e+01_rb,2.3046e-01_rb/)
+      kbo(:, 3,34, 8) = (/ &
+     &6.4816e+01_rb,4.8747e+01_rb,3.2949e+01_rb,1.7887e+01_rb,2.5288e-01_rb/)
+      kbo(:, 4,34, 8) = (/ &
+     &7.0970e+01_rb,5.3352e+01_rb,3.5935e+01_rb,1.9263e+01_rb,2.7720e-01_rb/)
+      kbo(:, 5,34, 8) = (/ &
+     &7.8000e+01_rb,5.8622e+01_rb,3.9384e+01_rb,2.0853e+01_rb,3.0314e-01_rb/)
+      kbo(:, 1,35, 8) = (/ &
+     &5.5341e+01_rb,4.1670e+01_rb,2.8432e+01_rb,1.5766e+01_rb,1.9105e-01_rb/)
+      kbo(:, 2,35, 8) = (/ &
+     &6.0475e+01_rb,4.5504e+01_rb,3.0887e+01_rb,1.6952e+01_rb,2.1167e-01_rb/)
+      kbo(:, 3,35, 8) = (/ &
+     &6.6351e+01_rb,4.9895e+01_rb,3.3711e+01_rb,1.8277e+01_rb,2.3461e-01_rb/)
+      kbo(:, 4,35, 8) = (/ &
+     &7.3222e+01_rb,5.5040e+01_rb,3.7057e+01_rb,1.9828e+01_rb,2.5964e-01_rb/)
+      kbo(:, 5,35, 8) = (/ &
+     &8.0936e+01_rb,6.0824e+01_rb,4.0848e+01_rb,2.1583e+01_rb,2.8629e-01_rb/)
+      kbo(:, 1,36, 8) = (/ &
+     &5.5260e+01_rb,4.1610e+01_rb,2.8415e+01_rb,1.5779e+01_rb,1.7255e-01_rb/)
+      kbo(:, 2,36, 8) = (/ &
+     &6.0687e+01_rb,4.5661e+01_rb,3.1003e+01_rb,1.7034e+01_rb,1.9343e-01_rb/)
+      kbo(:, 3,36, 8) = (/ &
+     &6.7095e+01_rb,5.0451e+01_rb,3.4089e+01_rb,1.8486e+01_rb,2.1666e-01_rb/)
+      kbo(:, 4,36, 8) = (/ &
+     &7.4593e+01_rb,5.6070e+01_rb,3.7750e+01_rb,2.0193e+01_rb,2.4210e-01_rb/)
+      kbo(:, 5,36, 8) = (/ &
+     &8.2912e+01_rb,6.2305e+01_rb,4.1836e+01_rb,2.2093e+01_rb,2.6939e-01_rb/)
+      kbo(:, 1,37, 8) = (/ &
+     &5.3136e+01_rb,4.0024e+01_rb,2.7403e+01_rb,1.5295e+01_rb,1.5374e-01_rb/)
+      kbo(:, 2,37, 8) = (/ &
+     &5.8700e+01_rb,4.4173e+01_rb,3.0048e+01_rb,1.6588e+01_rb,1.7430e-01_rb/)
+      kbo(:, 3,37, 8) = (/ &
+     &6.5370e+01_rb,4.9158e+01_rb,3.3257e+01_rb,1.8110e+01_rb,1.9744e-01_rb/)
+      kbo(:, 4,37, 8) = (/ &
+     &7.3079e+01_rb,5.4934e+01_rb,3.7017e+01_rb,1.9876e+01_rb,2.2299e-01_rb/)
+      kbo(:, 5,37, 8) = (/ &
+     &8.1729e+01_rb,6.1417e+01_rb,4.1258e+01_rb,2.1852e+01_rb,2.5074e-01_rb/)
+      kbo(:, 1,38, 8) = (/ &
+     &5.1889e+01_rb,3.9094e+01_rb,2.6819e+01_rb,1.5017e+01_rb,1.3711e-01_rb/)
+      kbo(:, 2,38, 8) = (/ &
+     &5.7665e+01_rb,4.3397e+01_rb,2.9561e+01_rb,1.6368e+01_rb,1.5734e-01_rb/)
+      kbo(:, 3,38, 8) = (/ &
+     &6.4668e+01_rb,4.8631e+01_rb,3.2933e+01_rb,1.7981e+01_rb,1.8028e-01_rb/)
+      kbo(:, 4,38, 8) = (/ &
+     &7.2785e+01_rb,5.4713e+01_rb,3.6887e+01_rb,1.9846e+01_rb,2.0601e-01_rb/)
+      kbo(:, 5,38, 8) = (/ &
+     &8.1846e+01_rb,6.1504e+01_rb,4.1328e+01_rb,2.1921e+01_rb,2.3415e-01_rb/)
+      kbo(:, 1,39, 8) = (/ &
+     &5.1946e+01_rb,3.9141e+01_rb,2.6874e+01_rb,1.5056e+01_rb,1.2254e-01_rb/)
+      kbo(:, 2,39, 8) = (/ &
+     &5.8115e+01_rb,4.3735e+01_rb,2.9803e+01_rb,1.6507e+01_rb,1.4241e-01_rb/)
+      kbo(:, 3,39, 8) = (/ &
+     &6.5638e+01_rb,4.9361e+01_rb,3.3432e+01_rb,1.8252e+01_rb,1.6535e-01_rb/)
+      kbo(:, 4,39, 8) = (/ &
+     &7.4281e+01_rb,5.5835e+01_rb,3.7644e+01_rb,2.0246e+01_rb,1.9114e-01_rb/)
+      kbo(:, 5,39, 8) = (/ &
+     &8.4117e+01_rb,6.3205e+01_rb,4.2465e+01_rb,2.2507e+01_rb,2.1954e-01_rb/)
+      kbo(:, 1,40, 8) = (/ &
+     &4.8372e+01_rb,3.6476e+01_rb,2.5167e+01_rb,1.4200e+01_rb,1.0786e-01_rb/)
+      kbo(:, 2,40, 8) = (/ &
+     &5.4435e+01_rb,4.0985e+01_rb,2.8035e+01_rb,1.5644e+01_rb,1.2713e-01_rb/)
+      kbo(:, 3,40, 8) = (/ &
+     &6.1814e+01_rb,4.6498e+01_rb,3.1582e+01_rb,1.7371e+01_rb,1.4957e-01_rb/)
+      kbo(:, 4,40, 8) = (/ &
+     &7.0455e+01_rb,5.2966e+01_rb,3.5777e+01_rb,1.9373e+01_rb,1.7507e-01_rb/)
+      kbo(:, 5,40, 8) = (/ &
+     &8.0314e+01_rb,6.0352e+01_rb,4.0598e+01_rb,2.1643e+01_rb,2.0339e-01_rb/)
+      kbo(:, 1,41, 8) = (/ &
+     &4.4863e+01_rb,3.3865e+01_rb,2.3494e+01_rb,1.3347e+01_rb,9.4622e-02_rb/)
+      kbo(:, 2,41, 8) = (/ &
+     &5.0838e+01_rb,3.8301e+01_rb,2.6314e+01_rb,1.4793e+01_rb,1.1320e-01_rb/)
+      kbo(:, 3,41, 8) = (/ &
+     &5.8061e+01_rb,4.3692e+01_rb,2.9774e+01_rb,1.6500e+01_rb,1.3504e-01_rb/)
+      kbo(:, 4,41, 8) = (/ &
+     &6.6603e+01_rb,5.0081e+01_rb,3.3908e+01_rb,1.8494e+01_rb,1.6019e-01_rb/)
+      kbo(:, 5,41, 8) = (/ &
+     &7.6448e+01_rb,5.7454e+01_rb,3.8706e+01_rb,2.0765e+01_rb,1.8828e-01_rb/)
+      kbo(:, 1,42, 8) = (/ &
+     &4.2143e+01_rb,3.1846e+01_rb,2.2204e+01_rb,1.2680e+01_rb,8.2928e-02_rb/)
+      kbo(:, 2,42, 8) = (/ &
+     &4.7973e+01_rb,3.6167e+01_rb,2.4953e+01_rb,1.4117e+01_rb,1.0072e-01_rb/)
+      kbo(:, 3,42, 8) = (/ &
+     &5.5183e+01_rb,4.1542e+01_rb,2.8395e+01_rb,1.5835e+01_rb,1.2195e-01_rb/)
+      kbo(:, 4,42, 8) = (/ &
+     &6.3709e+01_rb,4.7914e+01_rb,3.2510e+01_rb,1.7836e+01_rb,1.4663e-01_rb/)
+      kbo(:, 5,42, 8) = (/ &
+     &7.3621e+01_rb,5.5334e+01_rb,3.7330e+01_rb,2.0134e+01_rb,1.7447e-01_rb/)
+      kbo(:, 1,43, 8) = (/ &
+     &3.9594e+01_rb,2.9962e+01_rb,2.1003e+01_rb,1.2048e+01_rb,7.1693e-02_rb/)
+      kbo(:, 2,43, 8) = (/ &
+     &4.5330e+01_rb,3.4203e+01_rb,2.3706e+01_rb,1.3485e+01_rb,8.8502e-02_rb/)
+      kbo(:, 3,43, 8) = (/ &
+     &5.2493e+01_rb,3.9537e+01_rb,2.7118e+01_rb,1.5213e+01_rb,1.0887e-01_rb/)
+      kbo(:, 4,43, 8) = (/ &
+     &6.1012e+01_rb,4.5896e+01_rb,3.1221e+01_rb,1.7230e+01_rb,1.3283e-01_rb/)
+      kbo(:, 5,43, 8) = (/ &
+     &7.1011e+01_rb,5.3379e+01_rb,3.6070e+01_rb,1.9559e+01_rb,1.6011e-01_rb/)
+      kbo(:, 1,44, 8) = (/ &
+     &3.7616e+01_rb,2.8507e+01_rb,2.0078e+01_rb,1.1553e+01_rb,6.1401e-02_rb/)
+      kbo(:, 2,44, 8) = (/ &
+     &4.3274e+01_rb,3.2681e+01_rb,2.2747e+01_rb,1.2992e+01_rb,7.7099e-02_rb/)
+      kbo(:, 3,44, 8) = (/ &
+     &5.0385e+01_rb,3.7971e+01_rb,2.6133e+01_rb,1.4732e+01_rb,9.6479e-02_rb/)
+      kbo(:, 4,44, 8) = (/ &
+     &5.8976e+01_rb,4.4379e+01_rb,3.0259e+01_rb,1.6785e+01_rb,1.1952e-01_rb/)
+      kbo(:, 5,44, 8) = (/ &
+     &6.9172e+01_rb,5.2003e+01_rb,3.5195e+01_rb,1.9170e+01_rb,1.4606e-01_rb/)
+      kbo(:, 1,45, 8) = (/ &
+     &3.6417e+01_rb,2.7634e+01_rb,1.9534e+01_rb,1.1252e+01_rb,5.2391e-02_rb/)
+      kbo(:, 2,45, 8) = (/ &
+     &4.2083e+01_rb,3.1808e+01_rb,2.2209e+01_rb,1.2716e+01_rb,6.6909e-02_rb/)
+      kbo(:, 3,45, 8) = (/ &
+     &4.9318e+01_rb,3.7181e+01_rb,2.5653e+01_rb,1.4499e+01_rb,8.5223e-02_rb/)
+      kbo(:, 4,45, 8) = (/ &
+     &5.8109e+01_rb,4.3735e+01_rb,2.9873e+01_rb,1.6620e+01_rb,1.0731e-01_rb/)
+      kbo(:, 5,45, 8) = (/ &
+     &6.8675e+01_rb,5.1635e+01_rb,3.4984e+01_rb,1.9103e+01_rb,1.3302e-01_rb/)
+      kbo(:, 1,46, 8) = (/ &
+     &3.5397e+01_rb,2.6895e+01_rb,1.9070e+01_rb,1.0989e+01_rb,4.4228e-02_rb/)
+      kbo(:, 2,46, 8) = (/ &
+     &4.1150e+01_rb,3.1127e+01_rb,2.1795e+01_rb,1.2497e+01_rb,5.7487e-02_rb/)
+      kbo(:, 3,46, 8) = (/ &
+     &4.8494e+01_rb,3.6574e+01_rb,2.5287e+01_rb,1.4324e+01_rb,7.4577e-02_rb/)
+      kbo(:, 4,46, 8) = (/ &
+     &5.7598e+01_rb,4.3359e+01_rb,2.9657e+01_rb,1.6535e+01_rb,9.5575e-02_rb/)
+      kbo(:, 5,46, 8) = (/ &
+     &6.8559e+01_rb,5.1549e+01_rb,3.4961e+01_rb,1.9128e+01_rb,1.2028e-01_rb/)
+      kbo(:, 1,47, 8) = (/ &
+     &3.3892e+01_rb,2.5799e+01_rb,1.8369e+01_rb,1.0592e+01_rb,3.6658e-02_rb/)
+      kbo(:, 2,47, 8) = (/ &
+     &3.9558e+01_rb,2.9961e+01_rb,2.1065e+01_rb,1.2104e+01_rb,4.8512e-02_rb/)
+      kbo(:, 3,47, 8) = (/ &
+     &4.6821e+01_rb,3.5338e+01_rb,2.4514e+01_rb,1.3933e+01_rb,6.4199e-02_rb/)
+      kbo(:, 4,47, 8) = (/ &
+     &5.6038e+01_rb,4.2200e+01_rb,2.8934e+01_rb,1.6192e+01_rb,8.3849e-02_rb/)
+      kbo(:, 5,47, 8) = (/ &
+     &6.7239e+01_rb,5.0568e+01_rb,3.4350e+01_rb,1.8859e+01_rb,1.0731e-01_rb/)
+      kbo(:, 1,48, 8) = (/ &
+     &3.3363e+01_rb,2.5430e+01_rb,1.8144e+01_rb,1.0446e+01_rb,3.0177e-02_rb/)
+      kbo(:, 2,48, 8) = (/ &
+     &3.9055e+01_rb,2.9607e+01_rb,2.0861e+01_rb,1.1982e+01_rb,4.0640e-02_rb/)
+      kbo(:, 3,48, 8) = (/ &
+     &4.6430e+01_rb,3.5057e+01_rb,2.4367e+01_rb,1.3859e+01_rb,5.4873e-02_rb/)
+      kbo(:, 4,48, 8) = (/ &
+     &5.5939e+01_rb,4.2134e+01_rb,2.8926e+01_rb,1.6205e+01_rb,7.3130e-02_rb/)
+      kbo(:, 5,48, 8) = (/ &
+     &6.7675e+01_rb,5.0896e+01_rb,3.4598e+01_rb,1.9010e+01_rb,9.5352e-02_rb/)
+      kbo(:, 1,49, 8) = (/ &
+     &3.4087e+01_rb,2.5989e+01_rb,1.8530e+01_rb,1.0628e+01_rb,2.4642e-02_rb/)
+      kbo(:, 2,49, 8) = (/ &
+     &4.0143e+01_rb,3.0436e+01_rb,2.1433e+01_rb,1.2264e+01_rb,3.3771e-02_rb/)
+      kbo(:, 3,49, 8) = (/ &
+     &4.7859e+01_rb,3.6137e+01_rb,2.5106e+01_rb,1.4243e+01_rb,4.6570e-02_rb/)
+      kbo(:, 4,49, 8) = (/ &
+     &5.8042e+01_rb,4.3715e+01_rb,2.9997e+01_rb,1.6759e+01_rb,6.3406e-02_rb/)
+      kbo(:, 5,49, 8) = (/ &
+     &7.0774e+01_rb,5.3220e+01_rb,3.6156e+01_rb,1.9813e+01_rb,8.4317e-02_rb/)
+      kbo(:, 1,50, 8) = (/ &
+     &3.3271e+01_rb,2.5407e+01_rb,1.8155e+01_rb,1.0394e+01_rb,2.0105e-02_rb/)
+      kbo(:, 2,50, 8) = (/ &
+     &3.9337e+01_rb,2.9859e+01_rb,2.1080e+01_rb,1.2062e+01_rb,2.8045e-02_rb/)
+      kbo(:, 3,50, 8) = (/ &
+     &4.7124e+01_rb,3.5606e+01_rb,2.4793e+01_rb,1.4082e+01_rb,3.9522e-02_rb/)
+      kbo(:, 4,50, 8) = (/ &
+     &5.7525e+01_rb,4.3340e+01_rb,2.9788e+01_rb,1.6668e+01_rb,5.4974e-02_rb/)
+      kbo(:, 5,50, 8) = (/ &
+     &7.0694e+01_rb,5.3165e+01_rb,3.6155e+01_rb,1.9842e+01_rb,7.4569e-02_rb/)
+      kbo(:, 1,51, 8) = (/ &
+     &3.1799e+01_rb,2.4339e+01_rb,1.7448e+01_rb,9.9788e+00_rb,1.6322e-02_rb/)
+      kbo(:, 2,51, 8) = (/ &
+     &3.7729e+01_rb,2.8686e+01_rb,2.0331e+01_rb,1.1646e+01_rb,2.3187e-02_rb/)
+      kbo(:, 3,51, 8) = (/ &
+     &4.5428e+01_rb,3.4361e+01_rb,2.4014e+01_rb,1.3675e+01_rb,3.3395e-02_rb/)
+      kbo(:, 4,51, 8) = (/ &
+     &5.5764e+01_rb,4.2036e+01_rb,2.8971e+01_rb,1.6259e+01_rb,4.7474e-02_rb/)
+      kbo(:, 5,51, 8) = (/ &
+     &6.9086e+01_rb,5.1969e+01_rb,3.5405e+01_rb,1.9496e+01_rb,6.5720e-02_rb/)
+      kbo(:, 1,52, 8) = (/ &
+     &3.1125e+01_rb,2.3861e+01_rb,1.7130e+01_rb,9.7762e+00_rb,1.3165e-02_rb/)
+      kbo(:, 2,52, 8) = (/ &
+     &3.7206e+01_rb,2.8320e+01_rb,2.0110e+01_rb,1.1507e+01_rb,1.9020e-02_rb/)
+      kbo(:, 3,52, 8) = (/ &
+     &4.4966e+01_rb,3.4037e+01_rb,2.3832e+01_rb,1.3576e+01_rb,2.8007e-02_rb/)
+      kbo(:, 4,52, 8) = (/ &
+     &5.5475e+01_rb,4.1834e+01_rb,2.8875e+01_rb,1.6222e+01_rb,4.0752e-02_rb/)
+      kbo(:, 5,52, 8) = (/ &
+     &6.9286e+01_rb,5.2127e+01_rb,3.5547e+01_rb,1.9593e+01_rb,5.7616e-02_rb/)
+      kbo(:, 1,53, 8) = (/ &
+     &3.1628e+01_rb,2.4253e+01_rb,1.7391e+01_rb,9.8844e+00_rb,1.0543e-02_rb/)
+      kbo(:, 2,53, 8) = (/ &
+     &3.8058e+01_rb,2.8975e+01_rb,2.0560e+01_rb,1.1731e+01_rb,1.5472e-02_rb/)
+      kbo(:, 3,53, 8) = (/ &
+     &4.6305e+01_rb,3.5054e+01_rb,2.4529e+01_rb,1.3933e+01_rb,2.3276e-02_rb/)
+      kbo(:, 4,53, 8) = (/ &
+     &5.7328e+01_rb,4.3229e+01_rb,2.9824e+01_rb,1.6717e+01_rb,3.4695e-02_rb/)
+      kbo(:, 5,53, 8) = (/ &
+     &7.2228e+01_rb,5.4335e+01_rb,3.7034e+01_rb,2.0360e+01_rb,5.0210e-02_rb/)
+      kbo(:, 1,54, 8) = (/ &
+     &2.7866e+01_rb,2.1495e+01_rb,1.5519e+01_rb,8.8346e+00_rb,8.4580e-03_rb/)
+      kbo(:, 2,54, 8) = (/ &
+     &3.3763e+01_rb,2.5815e+01_rb,1.8473e+01_rb,1.0588e+01_rb,1.2602e-02_rb/)
+      kbo(:, 3,54, 8) = (/ &
+     &4.1361e+01_rb,3.1401e+01_rb,2.2155e+01_rb,1.2668e+01_rb,1.9366e-02_rb/)
+      kbo(:, 4,54, 8) = (/ &
+     &5.1507e+01_rb,3.8906e+01_rb,2.7027e+01_rb,1.5284e+01_rb,2.9589e-02_rb/)
+      kbo(:, 5,54, 8) = (/ &
+     &6.5378e+01_rb,4.9225e+01_rb,3.3718e+01_rb,1.8724e+01_rb,4.3797e-02_rb/)
+      kbo(:, 1,55, 8) = (/ &
+     &2.2404e+01_rb,1.7484e+01_rb,1.2754e+01_rb,7.2917e+00_rb,6.7620e-03_rb/)
+      kbo(:, 2,55, 8) = (/ &
+     &2.7309e+01_rb,2.1069e+01_rb,1.5293e+01_rb,8.8299e+00_rb,1.0220e-02_rb/)
+      kbo(:, 3,55, 8) = (/ &
+     &3.3683e+01_rb,2.5733e+01_rb,1.8431e+01_rb,1.0660e+01_rb,1.6054e-02_rb/)
+      kbo(:, 4,55, 8) = (/ &
+     &4.2194e+01_rb,3.1999e+01_rb,2.2529e+01_rb,1.2931e+01_rb,2.5150e-02_rb/)
+      kbo(:, 5,55, 8) = (/ &
+     &5.4011e+01_rb,4.0754e+01_rb,2.8208e+01_rb,1.5935e+01_rb,3.8077e-02_rb/)
+      kbo(:, 1,56, 8) = (/ &
+     &1.7963e+01_rb,1.4222e+01_rb,1.0460e+01_rb,5.9968e+00_rb,5.3696e-03_rb/)
+      kbo(:, 2,56, 8) = (/ &
+     &2.2011e+01_rb,1.7185e+01_rb,1.2632e+01_rb,7.3359e+00_rb,8.2238e-03_rb/)
+      kbo(:, 3,56, 8) = (/ &
+     &2.7341e+01_rb,2.1070e+01_rb,1.5329e+01_rb,8.9492e+00_rb,1.3200e-02_rb/)
+      kbo(:, 4,56, 8) = (/ &
+     &3.4490e+01_rb,2.6306e+01_rb,1.8809e+01_rb,1.0943e+01_rb,2.1214e-02_rb/)
+      kbo(:, 5,56, 8) = (/ &
+     &4.4535e+01_rb,3.3715e+01_rb,2.3630e+01_rb,1.3559e+01_rb,3.2915e-02_rb/)
+      kbo(:, 1,57, 8) = (/ &
+     &1.4368e+01_rb,1.1564e+01_rb,8.5550e+00_rb,4.9118e+00_rb,4.2402e-03_rb/)
+      kbo(:, 2,57, 8) = (/ &
+     &1.7718e+01_rb,1.4043e+01_rb,1.0433e+01_rb,6.0838e+00_rb,6.5672e-03_rb/)
+      kbo(:, 3,57, 8) = (/ &
+     &2.2119e+01_rb,1.7250e+01_rb,1.2736e+01_rb,7.4914e+00_rb,1.0750e-02_rb/)
+      kbo(:, 4,57, 8) = (/ &
+     &2.8111e+01_rb,2.1614e+01_rb,1.5710e+01_rb,9.2466e+00_rb,1.7729e-02_rb/)
+      kbo(:, 5,57, 8) = (/ &
+     &3.6581e+01_rb,2.7832e+01_rb,1.9800e+01_rb,1.1525e+01_rb,2.8247e-02_rb/)
+      kbo(:, 1,58, 8) = (/ &
+     &3.0334e+00_rb,3.0458e+00_rb,2.9118e+00_rb,2.3449e+00_rb,3.3480e-03_rb/)
+      kbo(:, 2,58, 8) = (/ &
+     &3.7595e+00_rb,3.7165e+00_rb,3.5857e+00_rb,2.9410e+00_rb,5.2345e-03_rb/)
+      kbo(:, 3,58, 8) = (/ &
+     &4.7309e+00_rb,4.5866e+00_rb,4.4204e+00_rb,3.6685e+00_rb,8.7466e-03_rb/)
+      kbo(:, 4,58, 8) = (/ &
+     &6.0543e+00_rb,5.7620e+00_rb,5.4869e+00_rb,4.5723e+00_rb,1.4810e-02_rb/)
+      kbo(:, 5,58, 8) = (/ &
+     &7.9336e+00_rb,7.4372e+00_rb,6.9325e+00_rb,5.7367e+00_rb,2.4215e-02_rb/)
+      kbo(:, 1,59, 8) = (/ &
+     &2.9765e+00_rb,2.9765e+00_rb,2.6845e+00_rb,1.9427e+00_rb,2.8320e-03_rb/)
+      kbo(:, 2,59, 8) = (/ &
+     &3.7193e+00_rb,3.6697e+00_rb,3.3576e+00_rb,2.4792e+00_rb,4.5261e-03_rb/)
+      kbo(:, 3,59, 8) = (/ &
+     &4.7245e+00_rb,4.5542e+00_rb,4.1916e+00_rb,3.1428e+00_rb,7.7669e-03_rb/)
+      kbo(:, 4,59, 8) = (/ &
+     &6.1120e+00_rb,5.7342e+00_rb,5.2520e+00_rb,3.9688e+00_rb,1.3461e-02_rb/)
+      kbo(:, 5,59, 8) = (/ &
+     &8.1086e+00_rb,7.4151e+00_rb,6.6769e+00_rb,5.0327e+00_rb,2.2363e-02_rb/)
+      kbo(:, 1,13, 9) = (/ &
+     &3.9255e+04_rb,2.9441e+04_rb,1.9628e+04_rb,9.8141e+03_rb,2.1650e+00_rb/)
+      kbo(:, 2,13, 9) = (/ &
+     &3.9490e+04_rb,2.9618e+04_rb,1.9745e+04_rb,9.8730e+03_rb,2.1321e+00_rb/)
+      kbo(:, 3,13, 9) = (/ &
+     &3.9631e+04_rb,2.9723e+04_rb,1.9816e+04_rb,9.9081e+03_rb,2.0803e+00_rb/)
+      kbo(:, 4,13, 9) = (/ &
+     &3.9707e+04_rb,2.9781e+04_rb,1.9854e+04_rb,9.9272e+03_rb,2.0587e+00_rb/)
+      kbo(:, 5,13, 9) = (/ &
+     &3.9690e+04_rb,2.9768e+04_rb,1.9845e+04_rb,9.9229e+03_rb,2.0351e+00_rb/)
+      kbo(:, 1,14, 9) = (/ &
+     &2.2391e+04_rb,1.6793e+04_rb,1.1196e+04_rb,5.5981e+03_rb,2.2958e+00_rb/)
+      kbo(:, 2,14, 9) = (/ &
+     &2.2483e+04_rb,1.6862e+04_rb,1.1241e+04_rb,5.6209e+03_rb,2.2646e+00_rb/)
+      kbo(:, 3,14, 9) = (/ &
+     &2.2517e+04_rb,1.6888e+04_rb,1.1259e+04_rb,5.6296e+03_rb,2.2164e+00_rb/)
+      kbo(:, 4,14, 9) = (/ &
+     &2.2511e+04_rb,1.6883e+04_rb,1.1256e+04_rb,5.6281e+03_rb,2.1692e+00_rb/)
+      kbo(:, 5,14, 9) = (/ &
+     &2.2470e+04_rb,1.6853e+04_rb,1.1235e+04_rb,5.6178e+03_rb,2.1488e+00_rb/)
+      kbo(:, 1,15, 9) = (/ &
+     &1.2806e+04_rb,9.6046e+03_rb,6.4033e+03_rb,3.2019e+03_rb,2.4251e+00_rb/)
+      kbo(:, 2,15, 9) = (/ &
+     &1.2828e+04_rb,9.6209e+03_rb,6.4142e+03_rb,3.2073e+03_rb,2.3960e+00_rb/)
+      kbo(:, 3,15, 9) = (/ &
+     &1.2826e+04_rb,9.6195e+03_rb,6.4132e+03_rb,3.2069e+03_rb,2.3588e+00_rb/)
+      kbo(:, 4,15, 9) = (/ &
+     &1.2818e+04_rb,9.6139e+03_rb,6.4095e+03_rb,3.2050e+03_rb,2.3106e+00_rb/)
+      kbo(:, 5,15, 9) = (/ &
+     &1.2808e+04_rb,9.6063e+03_rb,6.4044e+03_rb,3.2025e+03_rb,2.2722e+00_rb/)
+      kbo(:, 1,16, 9) = (/ &
+     &8.5967e+03_rb,6.4476e+03_rb,4.2986e+03_rb,2.1496e+03_rb,2.5476e+00_rb/)
+      kbo(:, 2,16, 9) = (/ &
+     &8.5987e+03_rb,6.4492e+03_rb,4.2996e+03_rb,2.1501e+03_rb,2.5204e+00_rb/)
+      kbo(:, 3,16, 9) = (/ &
+     &8.5999e+03_rb,6.4500e+03_rb,4.3002e+03_rb,2.1504e+03_rb,2.4878e+00_rb/)
+      kbo(:, 4,16, 9) = (/ &
+     &8.6043e+03_rb,6.4534e+03_rb,4.3024e+03_rb,2.1515e+03_rb,2.4397e+00_rb/)
+      kbo(:, 5,16, 9) = (/ &
+     &8.6176e+03_rb,6.4634e+03_rb,4.3091e+03_rb,2.1548e+03_rb,2.4008e+00_rb/)
+      kbo(:, 1,17, 9) = (/ &
+     &5.9284e+03_rb,4.4464e+03_rb,2.9645e+03_rb,1.4825e+03_rb,2.6544e+00_rb/)
+      kbo(:, 2,17, 9) = (/ &
+     &5.9327e+03_rb,4.4497e+03_rb,2.9666e+03_rb,1.4836e+03_rb,2.6300e+00_rb/)
+      kbo(:, 3,17, 9) = (/ &
+     &5.9411e+03_rb,4.4560e+03_rb,2.9708e+03_rb,1.4857e+03_rb,2.5993e+00_rb/)
+      kbo(:, 4,17, 9) = (/ &
+     &5.9634e+03_rb,4.4727e+03_rb,2.9820e+03_rb,1.4912e+03_rb,2.5553e+00_rb/)
+      kbo(:, 5,17, 9) = (/ &
+     &6.0032e+03_rb,4.5025e+03_rb,3.0018e+03_rb,1.5012e+03_rb,2.5167e+00_rb/)
+      kbo(:, 1,18, 9) = (/ &
+     &4.1696e+03_rb,3.1274e+03_rb,2.0851e+03_rb,1.0428e+03_rb,2.7386e+00_rb/)
+      kbo(:, 2,18, 9) = (/ &
+     &4.1796e+03_rb,3.1348e+03_rb,2.0901e+03_rb,1.0453e+03_rb,2.7184e+00_rb/)
+      kbo(:, 3,18, 9) = (/ &
+     &4.2028e+03_rb,3.1522e+03_rb,2.1017e+03_rb,1.0511e+03_rb,2.6888e+00_rb/)
+      kbo(:, 4,18, 9) = (/ &
+     &4.2429e+03_rb,3.1823e+03_rb,2.1217e+03_rb,1.0611e+03_rb,2.6491e+00_rb/)
+      kbo(:, 5,18, 9) = (/ &
+     &4.2973e+03_rb,3.2231e+03_rb,2.1489e+03_rb,1.0747e+03_rb,2.6124e+00_rb/)
+      kbo(:, 1,19, 9) = (/ &
+     &2.8753e+03_rb,2.1566e+03_rb,1.4379e+03_rb,7.1922e+02_rb,2.7969e+00_rb/)
+      kbo(:, 2,19, 9) = (/ &
+     &2.8953e+03_rb,2.1716e+03_rb,1.4479e+03_rb,7.2422e+02_rb,2.7817e+00_rb/)
+      kbo(:, 3,19, 9) = (/ &
+     &2.9302e+03_rb,2.1978e+03_rb,1.4654e+03_rb,7.3295e+02_rb,2.7548e+00_rb/)
+      kbo(:, 4,19, 9) = (/ &
+     &2.9782e+03_rb,2.2338e+03_rb,1.4894e+03_rb,7.4494e+02_rb,2.7189e+00_rb/)
+      kbo(:, 5,19, 9) = (/ &
+     &3.0360e+03_rb,2.2771e+03_rb,1.5183e+03_rb,7.5939e+02_rb,2.6829e+00_rb/)
+      kbo(:, 1,20, 9) = (/ &
+     &2.1517e+03_rb,1.6139e+03_rb,1.0761e+03_rb,5.3833e+02_rb,2.8251e+00_rb/)
+      kbo(:, 2,20, 9) = (/ &
+     &2.1814e+03_rb,1.6362e+03_rb,1.0910e+03_rb,5.4575e+02_rb,2.8122e+00_rb/)
+      kbo(:, 3,20, 9) = (/ &
+     &2.2241e+03_rb,1.6682e+03_rb,1.1123e+03_rb,5.5643e+02_rb,2.7893e+00_rb/)
+      kbo(:, 4,20, 9) = (/ &
+     &2.2758e+03_rb,1.7069e+03_rb,1.1381e+03_rb,5.6933e+02_rb,2.7572e+00_rb/)
+      kbo(:, 5,20, 9) = (/ &
+     &2.3338e+03_rb,1.7505e+03_rb,1.1672e+03_rb,5.8384e+02_rb,2.7245e+00_rb/)
+      kbo(:, 1,21, 9) = (/ &
+     &1.6700e+03_rb,1.2526e+03_rb,8.3526e+02_rb,4.1790e+02_rb,2.8188e+00_rb/)
+      kbo(:, 2,21, 9) = (/ &
+     &1.7058e+03_rb,1.2795e+03_rb,8.5318e+02_rb,4.2686e+02_rb,2.8087e+00_rb/)
+      kbo(:, 3,21, 9) = (/ &
+     &1.7510e+03_rb,1.3134e+03_rb,8.7578e+02_rb,4.3816e+02_rb,2.7899e+00_rb/)
+      kbo(:, 4,21, 9) = (/ &
+     &1.8029e+03_rb,1.3523e+03_rb,9.0173e+02_rb,4.5113e+02_rb,2.7632e+00_rb/)
+      kbo(:, 5,21, 9) = (/ &
+     &1.8601e+03_rb,1.3952e+03_rb,9.3032e+02_rb,4.6542e+02_rb,2.7328e+00_rb/)
+      kbo(:, 1,22, 9) = (/ &
+     &1.3403e+03_rb,1.0054e+03_rb,6.7043e+02_rb,3.3549e+02_rb,2.7778e+00_rb/)
+      kbo(:, 2,22, 9) = (/ &
+     &1.3792e+03_rb,1.0345e+03_rb,6.8985e+02_rb,3.4520e+02_rb,2.7715e+00_rb/)
+      kbo(:, 3,22, 9) = (/ &
+     &1.4248e+03_rb,1.0688e+03_rb,7.1269e+02_rb,3.5661e+02_rb,2.7559e+00_rb/)
+      kbo(:, 4,22, 9) = (/ &
+     &1.4749e+03_rb,1.1063e+03_rb,7.3770e+02_rb,3.6911e+02_rb,2.7316e+00_rb/)
+      kbo(:, 5,22, 9) = (/ &
+     &1.5223e+03_rb,1.1418e+03_rb,7.6138e+02_rb,3.8094e+02_rb,2.7088e+00_rb/)
+      kbo(:, 1,23, 9) = (/ &
+     &1.0891e+03_rb,8.1698e+02_rb,5.4484e+02_rb,2.7270e+02_rb,2.7041e+00_rb/)
+      kbo(:, 2,23, 9) = (/ &
+     &1.1283e+03_rb,8.4637e+02_rb,5.6443e+02_rb,2.8249e+02_rb,2.7027e+00_rb/)
+      kbo(:, 3,23, 9) = (/ &
+     &1.1704e+03_rb,8.7791e+02_rb,5.8545e+02_rb,2.9300e+02_rb,2.6907e+00_rb/)
+      kbo(:, 4,23, 9) = (/ &
+     &1.2113e+03_rb,9.0862e+02_rb,6.0592e+02_rb,3.0322e+02_rb,2.6730e+00_rb/)
+      kbo(:, 5,23, 9) = (/ &
+     &1.2507e+03_rb,9.3816e+02_rb,6.2560e+02_rb,3.1305e+02_rb,2.6594e+00_rb/)
+      kbo(:, 1,24, 9) = (/ &
+     &8.8581e+02_rb,6.6450e+02_rb,4.4318e+02_rb,2.2188e+02_rb,2.6023e+00_rb/)
+      kbo(:, 2,24, 9) = (/ &
+     &9.2040e+02_rb,6.9044e+02_rb,4.6047e+02_rb,2.3052e+02_rb,2.6060e+00_rb/)
+      kbo(:, 3,24, 9) = (/ &
+     &9.5496e+02_rb,7.1635e+02_rb,4.7775e+02_rb,2.3914e+02_rb,2.6005e+00_rb/)
+      kbo(:, 4,24, 9) = (/ &
+     &9.8776e+02_rb,7.4094e+02_rb,4.9413e+02_rb,2.4733e+02_rb,2.5922e+00_rb/)
+      kbo(:, 5,24, 9) = (/ &
+     &1.0196e+03_rb,7.6479e+02_rb,5.1001e+02_rb,2.5525e+02_rb,2.5914e+00_rb/)
+      kbo(:, 1,25, 9) = (/ &
+     &7.3035e+02_rb,5.4790e+02_rb,3.6545e+02_rb,1.8302e+02_rb,2.4806e+00_rb/)
+      kbo(:, 2,25, 9) = (/ &
+     &7.5932e+02_rb,5.6963e+02_rb,3.7993e+02_rb,1.9025e+02_rb,2.4895e+00_rb/)
+      kbo(:, 3,25, 9) = (/ &
+     &7.8665e+02_rb,5.9012e+02_rb,3.9359e+02_rb,1.9707e+02_rb,2.4921e+00_rb/)
+      kbo(:, 4,25, 9) = (/ &
+     &8.1328e+02_rb,6.1007e+02_rb,4.0688e+02_rb,2.0370e+02_rb,2.4969e+00_rb/)
+      kbo(:, 5,25, 9) = (/ &
+     &8.3956e+02_rb,6.2979e+02_rb,4.2001e+02_rb,2.1025e+02_rb,2.5085e+00_rb/)
+      kbo(:, 1,26, 9) = (/ &
+     &6.1100e+02_rb,4.5838e+02_rb,3.0577e+02_rb,1.5319e+02_rb,2.3442e+00_rb/)
+      kbo(:, 2,26, 9) = (/ &
+     &6.3406e+02_rb,4.7568e+02_rb,3.1730e+02_rb,1.5893e+02_rb,2.3618e+00_rb/)
+      kbo(:, 3,26, 9) = (/ &
+     &6.5658e+02_rb,4.9255e+02_rb,3.2854e+02_rb,1.6455e+02_rb,2.3770e+00_rb/)
+      kbo(:, 4,26, 9) = (/ &
+     &6.7915e+02_rb,5.0948e+02_rb,3.3981e+02_rb,1.7016e+02_rb,2.3964e+00_rb/)
+      kbo(:, 5,26, 9) = (/ &
+     &7.0247e+02_rb,5.2696e+02_rb,3.5146e+02_rb,1.7598e+02_rb,2.4222e+00_rb/)
+      kbo(:, 1,27, 9) = (/ &
+     &5.2844e+02_rb,3.9646e+02_rb,2.6449e+02_rb,1.3259e+02_rb,2.2032e+00_rb/)
+      kbo(:, 2,27, 9) = (/ &
+     &5.4789e+02_rb,4.1105e+02_rb,2.7421e+02_rb,1.3742e+02_rb,2.2331e+00_rb/)
+      kbo(:, 3,27, 9) = (/ &
+     &5.6778e+02_rb,4.2595e+02_rb,2.8414e+02_rb,1.4236e+02_rb,2.2623e+00_rb/)
+      kbo(:, 4,27, 9) = (/ &
+     &5.8850e+02_rb,4.4149e+02_rb,2.9449e+02_rb,1.4751e+02_rb,2.3009e+00_rb/)
+      kbo(:, 5,27, 9) = (/ &
+     &6.1090e+02_rb,4.5829e+02_rb,3.0567e+02_rb,1.5309e+02_rb,2.3382e+00_rb/)
+      kbo(:, 1,28, 9) = (/ &
+     &4.6826e+02_rb,3.5133e+02_rb,2.3440e+02_rb,1.1763e+02_rb,2.0680e+00_rb/)
+      kbo(:, 2,28, 9) = (/ &
+     &4.8590e+02_rb,3.6454e+02_rb,2.4321e+02_rb,1.2197e+02_rb,2.1100e+00_rb/)
+      kbo(:, 3,28, 9) = (/ &
+     &5.0445e+02_rb,3.7846e+02_rb,2.5247e+02_rb,1.2655e+02_rb,2.1567e+00_rb/)
+      kbo(:, 4,28, 9) = (/ &
+     &5.2474e+02_rb,3.9367e+02_rb,2.6260e+02_rb,1.3159e+02_rb,2.2098e+00_rb/)
+      kbo(:, 5,28, 9) = (/ &
+     &5.4720e+02_rb,4.1051e+02_rb,2.7382e+02_rb,1.3717e+02_rb,2.2620e+00_rb/)
+      kbo(:, 1,29, 9) = (/ &
+     &4.4072e+02_rb,3.3067e+02_rb,2.2063e+02_rb,1.1082e+02_rb,1.9419e+00_rb/)
+      kbo(:, 2,29, 9) = (/ &
+     &4.5821e+02_rb,3.4378e+02_rb,2.2936e+02_rb,1.1511e+02_rb,1.9998e+00_rb/)
+      kbo(:, 3,29, 9) = (/ &
+     &4.7729e+02_rb,3.5808e+02_rb,2.3889e+02_rb,1.1980e+02_rb,2.0671e+00_rb/)
+      kbo(:, 4,29, 9) = (/ &
+     &4.9882e+02_rb,3.7422e+02_rb,2.4964e+02_rb,1.2512e+02_rb,2.1341e+00_rb/)
+      kbo(:, 5,29, 9) = (/ &
+     &5.2331e+02_rb,3.9259e+02_rb,2.6188e+02_rb,1.3121e+02_rb,2.1979e+00_rb/)
+      kbo(:, 1,30, 9) = (/ &
+     &4.2556e+02_rb,3.1930e+02_rb,2.1305e+02_rb,1.0711e+02_rb,1.8309e+00_rb/)
+      kbo(:, 2,30, 9) = (/ &
+     &4.4407e+02_rb,3.3317e+02_rb,2.2229e+02_rb,1.1161e+02_rb,1.9101e+00_rb/)
+      kbo(:, 3,30, 9) = (/ &
+     &4.6505e+02_rb,3.4890e+02_rb,2.3276e+02_rb,1.1676e+02_rb,1.9914e+00_rb/)
+      kbo(:, 4,30, 9) = (/ &
+     &4.8908e+02_rb,3.6692e+02_rb,2.4477e+02_rb,1.2270e+02_rb,2.0709e+00_rb/)
+      kbo(:, 5,30, 9) = (/ &
+     &5.1660e+02_rb,3.8756e+02_rb,2.5853e+02_rb,1.2954e+02_rb,2.1480e+00_rb/)
+      kbo(:, 1,31, 9) = (/ &
+     &4.3357e+02_rb,3.2530e+02_rb,2.1704e+02_rb,1.0913e+02_rb,1.7458e+00_rb/)
+      kbo(:, 2,31, 9) = (/ &
+     &4.5478e+02_rb,3.4120e+02_rb,2.2764e+02_rb,1.1430e+02_rb,1.8393e+00_rb/)
+      kbo(:, 3,31, 9) = (/ &
+     &4.7940e+02_rb,3.5966e+02_rb,2.3993e+02_rb,1.2035e+02_rb,1.9333e+00_rb/)
+      kbo(:, 4,31, 9) = (/ &
+     &5.0804e+02_rb,3.8115e+02_rb,2.5425e+02_rb,1.2744e+02_rb,2.0234e+00_rb/)
+      kbo(:, 5,31, 9) = (/ &
+     &5.4033e+02_rb,4.0536e+02_rb,2.7039e+02_rb,1.3548e+02_rb,2.1150e+00_rb/)
+      kbo(:, 1,32, 9) = (/ &
+     &4.4897e+02_rb,3.3685e+02_rb,2.2474e+02_rb,1.1298e+02_rb,1.6787e+00_rb/)
+      kbo(:, 2,32, 9) = (/ &
+     &4.7419e+02_rb,3.5576e+02_rb,2.3734e+02_rb,1.1915e+02_rb,1.7859e+00_rb/)
+      kbo(:, 3,32, 9) = (/ &
+     &5.0379e+02_rb,3.7796e+02_rb,2.5213e+02_rb,1.2644e+02_rb,1.8899e+00_rb/)
+      kbo(:, 4,32, 9) = (/ &
+     &5.3795e+02_rb,4.0357e+02_rb,2.6921e+02_rb,1.3492e+02_rb,1.9968e+00_rb/)
+      kbo(:, 5,32, 9) = (/ &
+     &5.7556e+02_rb,4.3179e+02_rb,2.8802e+02_rb,1.4429e+02_rb,2.0977e+00_rb/)
+      kbo(:, 1,33, 9) = (/ &
+     &4.7613e+02_rb,3.5721e+02_rb,2.3831e+02_rb,1.1974e+02_rb,1.6313e+00_rb/)
+      kbo(:, 2,33, 9) = (/ &
+     &5.0727e+02_rb,3.8056e+02_rb,2.5387e+02_rb,1.2739e+02_rb,1.7486e+00_rb/)
+      kbo(:, 3,33, 9) = (/ &
+     &5.4363e+02_rb,4.0783e+02_rb,2.7205e+02_rb,1.3639e+02_rb,1.8695e+00_rb/)
+      kbo(:, 4,33, 9) = (/ &
+     &5.8421e+02_rb,4.3828e+02_rb,2.9234e+02_rb,1.4648e+02_rb,1.9835e+00_rb/)
+      kbo(:, 5,33, 9) = (/ &
+     &6.2742e+02_rb,4.7068e+02_rb,3.1394e+02_rb,1.5725e+02_rb,2.0938e+00_rb/)
+      kbo(:, 1,34, 9) = (/ &
+     &4.9479e+02_rb,3.7120e+02_rb,2.4764e+02_rb,1.2439e+02_rb,1.5951e+00_rb/)
+      kbo(:, 2,34, 9) = (/ &
+     &5.3209e+02_rb,3.9918e+02_rb,2.6628e+02_rb,1.3359e+02_rb,1.7258e+00_rb/)
+      kbo(:, 3,34, 9) = (/ &
+     &5.7463e+02_rb,4.3109e+02_rb,2.8755e+02_rb,1.4413e+02_rb,1.8546e+00_rb/)
+      kbo(:, 4,34, 9) = (/ &
+     &6.2052e+02_rb,4.6551e+02_rb,3.1050e+02_rb,1.5556e+02_rb,1.9770e+00_rb/)
+      kbo(:, 5,34, 9) = (/ &
+     &6.6892e+02_rb,5.0180e+02_rb,3.3469e+02_rb,1.6762e+02_rb,2.0917e+00_rb/)
+      kbo(:, 1,35, 9) = (/ &
+     &5.1474e+02_rb,3.8617e+02_rb,2.5762e+02_rb,1.2939e+02_rb,1.5620e+00_rb/)
+      kbo(:, 2,35, 9) = (/ &
+     &5.5847e+02_rb,4.1897e+02_rb,2.7948e+02_rb,1.4019e+02_rb,1.7022e+00_rb/)
+      kbo(:, 3,35, 9) = (/ &
+     &6.0709e+02_rb,4.5544e+02_rb,3.0379e+02_rb,1.5226e+02_rb,1.8365e+00_rb/)
+      kbo(:, 4,35, 9) = (/ &
+     &6.5852e+02_rb,4.9401e+02_rb,3.2950e+02_rb,1.6506e+02_rb,1.9663e+00_rb/)
+      kbo(:, 5,35, 9) = (/ &
+     &7.1282e+02_rb,5.3473e+02_rb,3.5664e+02_rb,1.7860e+02_rb,2.0876e+00_rb/)
+      kbo(:, 1,36, 9) = (/ &
+     &5.3040e+02_rb,3.9792e+02_rb,2.6545e+02_rb,1.3332e+02_rb,1.5229e+00_rb/)
+      kbo(:, 2,36, 9) = (/ &
+     &5.8002e+02_rb,4.3513e+02_rb,2.9026e+02_rb,1.4559e+02_rb,1.6698e+00_rb/)
+      kbo(:, 3,36, 9) = (/ &
+     &6.3422e+02_rb,4.7578e+02_rb,3.1736e+02_rb,1.5904e+02_rb,1.8112e+00_rb/)
+      kbo(:, 4,36, 9) = (/ &
+     &6.9154e+02_rb,5.1877e+02_rb,3.4601e+02_rb,1.7331e+02_rb,1.9470e+00_rb/)
+      kbo(:, 5,36, 9) = (/ &
+     &7.5259e+02_rb,5.6456e+02_rb,3.7653e+02_rb,1.8854e+02_rb,2.0786e+00_rb/)
+      kbo(:, 1,37, 9) = (/ &
+     &5.2761e+02_rb,3.9583e+02_rb,2.6405e+02_rb,1.3269e+02_rb,1.4669e+00_rb/)
+      kbo(:, 2,37, 9) = (/ &
+     &5.8107e+02_rb,4.3593e+02_rb,2.9079e+02_rb,1.4590e+02_rb,1.6200e+00_rb/)
+      kbo(:, 3,37, 9) = (/ &
+     &6.3936e+02_rb,4.7964e+02_rb,3.1993e+02_rb,1.6036e+02_rb,1.7687e+00_rb/)
+      kbo(:, 4,37, 9) = (/ &
+     &7.0149e+02_rb,5.2623e+02_rb,3.5098e+02_rb,1.7581e+02_rb,1.9104e+00_rb/)
+      kbo(:, 5,37, 9) = (/ &
+     &7.6801e+02_rb,5.7612e+02_rb,3.8424e+02_rb,1.9240e+02_rb,2.0492e+00_rb/)
+      kbo(:, 1,38, 9) = (/ &
+     &5.3320e+02_rb,4.0002e+02_rb,2.6686e+02_rb,1.3414e+02_rb,1.4150e+00_rb/)
+      kbo(:, 2,38, 9) = (/ &
+     &5.9148e+02_rb,4.4373e+02_rb,2.9599e+02_rb,1.4854e+02_rb,1.5738e+00_rb/)
+      kbo(:, 3,38, 9) = (/ &
+     &6.5505e+02_rb,4.9141e+02_rb,3.2778e+02_rb,1.6430e+02_rb,1.7289e+00_rb/)
+      kbo(:, 4,38, 9) = (/ &
+     &7.2345e+02_rb,5.4270e+02_rb,3.6197e+02_rb,1.8131e+02_rb,1.8759e+00_rb/)
+      kbo(:, 5,38, 9) = (/ &
+     &7.9740e+02_rb,5.9816e+02_rb,3.9894e+02_rb,1.9975e+02_rb,2.0221e+00_rb/)
+      kbo(:, 1,39, 9) = (/ &
+     &5.5268e+02_rb,4.1463e+02_rb,2.7660e+02_rb,1.3905e+02_rb,1.3683e+00_rb/)
+      kbo(:, 2,39, 9) = (/ &
+     &6.1737e+02_rb,4.6316e+02_rb,3.0895e+02_rb,1.5504e+02_rb,1.5320e+00_rb/)
+      kbo(:, 3,39, 9) = (/ &
+     &6.8821e+02_rb,5.1628e+02_rb,3.4436e+02_rb,1.7260e+02_rb,1.6920e+00_rb/)
+      kbo(:, 4,39, 9) = (/ &
+     &7.6555e+02_rb,5.7429e+02_rb,3.8302e+02_rb,1.9184e+02_rb,1.8468e+00_rb/)
+      kbo(:, 5,39, 9) = (/ &
+     &8.4965e+02_rb,6.3736e+02_rb,4.2508e+02_rb,2.1282e+02_rb,1.9969e+00_rb/)
+      kbo(:, 1,40, 9) = (/ &
+     &5.3311e+02_rb,3.9996e+02_rb,2.6682e+02_rb,1.3428e+02_rb,1.3069e+00_rb/)
+      kbo(:, 2,40, 9) = (/ &
+     &5.9979e+02_rb,4.4997e+02_rb,3.0016e+02_rb,1.5072e+02_rb,1.4753e+00_rb/)
+      kbo(:, 3,40, 9) = (/ &
+     &6.7343e+02_rb,5.0519e+02_rb,3.3697e+02_rb,1.6896e+02_rb,1.6406e+00_rb/)
+      kbo(:, 4,40, 9) = (/ &
+     &7.5472e+02_rb,5.6615e+02_rb,3.7760e+02_rb,1.8916e+02_rb,1.7999e+00_rb/)
+      kbo(:, 5,40, 9) = (/ &
+     &8.4379e+02_rb,6.3296e+02_rb,4.2214e+02_rb,2.1136e+02_rb,1.9558e+00_rb/)
+      kbo(:, 1,41, 9) = (/ &
+     &5.1260e+02_rb,3.8458e+02_rb,2.5658e+02_rb,1.2928e+02_rb,1.2459e+00_rb/)
+      kbo(:, 2,41, 9) = (/ &
+     &5.8131e+02_rb,4.3611e+02_rb,2.9093e+02_rb,1.4621e+02_rb,1.4179e+00_rb/)
+      kbo(:, 3,41, 9) = (/ &
+     &6.5741e+02_rb,4.9318e+02_rb,3.2896e+02_rb,1.6503e+02_rb,1.5871e+00_rb/)
+      kbo(:, 4,41, 9) = (/ &
+     &7.4227e+02_rb,5.5683e+02_rb,3.7139e+02_rb,1.8609e+02_rb,1.7498e+00_rb/)
+      kbo(:, 5,41, 9) = (/ &
+     &8.3623e+02_rb,6.2730e+02_rb,4.1837e+02_rb,2.0950e+02_rb,1.9122e+00_rb/)
+      kbo(:, 1,42, 9) = (/ &
+     &4.9831e+02_rb,3.7386e+02_rb,2.4944e+02_rb,1.2584e+02_rb,1.1865e+00_rb/)
+      kbo(:, 2,42, 9) = (/ &
+     &5.6980e+02_rb,4.2748e+02_rb,2.8517e+02_rb,1.4342e+02_rb,1.3622e+00_rb/)
+      kbo(:, 3,42, 9) = (/ &
+     &6.4955e+02_rb,4.8728e+02_rb,3.2503e+02_rb,1.6313e+02_rb,1.5361e+00_rb/)
+      kbo(:, 4,42, 9) = (/ &
+     &7.3900e+02_rb,5.5437e+02_rb,3.6975e+02_rb,1.8531e+02_rb,1.7026e+00_rb/)
+      kbo(:, 5,42, 9) = (/ &
+     &8.3900e+02_rb,6.2937e+02_rb,4.1975e+02_rb,2.1021e+02_rb,1.8688e+00_rb/)
+      kbo(:, 1,43, 9) = (/ &
+     &4.8522e+02_rb,3.6405e+02_rb,2.4292e+02_rb,1.2271e+02_rb,1.1188e+00_rb/)
+      kbo(:, 2,43, 9) = (/ &
+     &5.5936e+02_rb,4.1965e+02_rb,2.7996e+02_rb,1.4092e+02_rb,1.2979e+00_rb/)
+      kbo(:, 3,43, 9) = (/ &
+     &6.4330e+02_rb,4.8260e+02_rb,3.2191e+02_rb,1.6164e+02_rb,1.4736e+00_rb/)
+      kbo(:, 4,43, 9) = (/ &
+     &7.3773e+02_rb,5.5342e+02_rb,3.6912e+02_rb,1.8505e+02_rb,1.6463e+00_rb/)
+      kbo(:, 5,43, 9) = (/ &
+     &8.4419e+02_rb,6.3327e+02_rb,4.2235e+02_rb,2.1154e+02_rb,1.8168e+00_rb/)
+      kbo(:, 1,44, 9) = (/ &
+     &4.7662e+02_rb,3.5759e+02_rb,2.3863e+02_rb,1.2069e+02_rb,1.0480e+00_rb/)
+      kbo(:, 2,44, 9) = (/ &
+     &5.5453e+02_rb,4.1603e+02_rb,2.7755e+02_rb,1.3982e+02_rb,1.2297e+00_rb/)
+      kbo(:, 3,44, 9) = (/ &
+     &6.4348e+02_rb,4.8273e+02_rb,3.2200e+02_rb,1.6176e+02_rb,1.4085e+00_rb/)
+      kbo(:, 4,44, 9) = (/ &
+     &7.4447e+02_rb,5.5848e+02_rb,3.7249e+02_rb,1.8678e+02_rb,1.5847e+00_rb/)
+      kbo(:, 5,44, 9) = (/ &
+     &8.5855e+02_rb,6.4403e+02_rb,4.2953e+02_rb,2.1515e+02_rb,1.7587e+00_rb/)
+      kbo(:, 1,45, 9) = (/ &
+     &4.7694e+02_rb,3.5784e+02_rb,2.3881e+02_rb,1.2088e+02_rb,9.8025e-01_rb/)
+      kbo(:, 2,45, 9) = (/ &
+     &5.6049e+02_rb,4.2050e+02_rb,2.8054e+02_rb,1.4139e+02_rb,1.1623e+00_rb/)
+      kbo(:, 3,45, 9) = (/ &
+     &6.5632e+02_rb,4.9237e+02_rb,3.2842e+02_rb,1.6503e+02_rb,1.3439e+00_rb/)
+      kbo(:, 4,45, 9) = (/ &
+     &7.6635e+02_rb,5.7488e+02_rb,3.8343e+02_rb,1.9228e+02_rb,1.5236e+00_rb/)
+      kbo(:, 5,45, 9) = (/ &
+     &8.9123e+02_rb,6.6854e+02_rb,4.4587e+02_rb,2.2334e+02_rb,1.7007e+00_rb/)
+      kbo(:, 1,46, 9) = (/ &
+     &4.7924e+02_rb,3.5957e+02_rb,2.3999e+02_rb,1.2157e+02_rb,9.0983e-01_rb/)
+      kbo(:, 2,46, 9) = (/ &
+     &5.6922e+02_rb,4.2705e+02_rb,2.8491e+02_rb,1.4366e+02_rb,1.0922e+00_rb/)
+      kbo(:, 3,46, 9) = (/ &
+     &6.7352e+02_rb,5.0527e+02_rb,3.3703e+02_rb,1.6939e+02_rb,1.2757e+00_rb/)
+      kbo(:, 4,46, 9) = (/ &
+     &7.9367e+02_rb,5.9538e+02_rb,3.9709e+02_rb,1.9915e+02_rb,1.4579e+00_rb/)
+      kbo(:, 5,46, 9) = (/ &
+     &9.3189e+02_rb,6.9904e+02_rb,4.6620e+02_rb,2.3352e+02_rb,1.6382e+00_rb/)
+      kbo(:, 1,47, 9) = (/ &
+     &4.7215e+02_rb,3.5425e+02_rb,2.3648e+02_rb,1.1995e+02_rb,8.3319e-01_rb/)
+      kbo(:, 2,47, 9) = (/ &
+     &5.6710e+02_rb,4.2546e+02_rb,2.8387e+02_rb,1.4325e+02_rb,1.0142e+00_rb/)
+      kbo(:, 3,47, 9) = (/ &
+     &6.7881e+02_rb,5.0924e+02_rb,3.3968e+02_rb,1.7081e+02_rb,1.1988e+00_rb/)
+      kbo(:, 4,47, 9) = (/ &
+     &8.0796e+02_rb,6.0609e+02_rb,4.0424e+02_rb,2.0278e+02_rb,1.3835e+00_rb/)
+      kbo(:, 5,47, 9) = (/ &
+     &9.5794e+02_rb,7.1858e+02_rb,4.7923e+02_rb,2.4007e+02_rb,1.5668e+00_rb/)
+      kbo(:, 1,48, 9) = (/ &
+     &4.7667e+02_rb,3.5764e+02_rb,2.3876e+02_rb,1.2119e+02_rb,7.5823e-01_rb/)
+      kbo(:, 2,48, 9) = (/ &
+     &5.7865e+02_rb,4.3413e+02_rb,2.8965e+02_rb,1.4623e+02_rb,9.3799e-01_rb/)
+      kbo(:, 3,48, 9) = (/ &
+     &7.0145e+02_rb,5.2622e+02_rb,3.5101e+02_rb,1.7653e+02_rb,1.1229e+00_rb/)
+      kbo(:, 4,48, 9) = (/ &
+     &8.4427e+02_rb,6.3333e+02_rb,4.2240e+02_rb,2.1190e+02_rb,1.3089e+00_rb/)
+      kbo(:, 5,48, 9) = (/ &
+     &1.0109e+03_rb,7.5832e+02_rb,5.0573e+02_rb,2.5334e+02_rb,1.4951e+00_rb/)
+      kbo(:, 1,49, 9) = (/ &
+     &4.9957e+02_rb,3.7481e+02_rb,2.5022e+02_rb,1.2697e+02_rb,6.8631e-01_rb/)
+      kbo(:, 2,49, 9) = (/ &
+     &6.1224e+02_rb,4.5931e+02_rb,3.0645e+02_rb,1.5466e+02_rb,8.6353e-01_rb/)
+      kbo(:, 3,49, 9) = (/ &
+     &7.5197e+02_rb,5.6411e+02_rb,3.7627e+02_rb,1.8917e+02_rb,1.0480e+00_rb/)
+      kbo(:, 4,49, 9) = (/ &
+     &9.1643e+02_rb,6.8745e+02_rb,4.5848e+02_rb,2.2994e+02_rb,1.2341e+00_rb/)
+      kbo(:, 5,49, 9) = (/ &
+     &1.1094e+03_rb,8.3219e+02_rb,5.5497e+02_rb,2.7795e+02_rb,1.4234e+00_rb/)
+      kbo(:, 1,50, 9) = (/ &
+     &4.9927e+02_rb,3.7459e+02_rb,2.5011e+02_rb,1.2702e+02_rb,6.2082e-01_rb/)
+      kbo(:, 2,50, 9) = (/ &
+     &6.1745e+02_rb,4.6322e+02_rb,3.0907e+02_rb,1.5606e+02_rb,7.9337e-01_rb/)
+      kbo(:, 3,50, 9) = (/ &
+     &7.6850e+02_rb,5.7651e+02_rb,3.8454e+02_rb,1.9338e+02_rb,9.7702e-01_rb/)
+      kbo(:, 4,50, 9) = (/ &
+     &9.4909e+02_rb,7.1195e+02_rb,4.7482e+02_rb,2.3816e+02_rb,1.1637e+00_rb/)
+      kbo(:, 5,50, 9) = (/ &
+     &1.1628e+03_rb,8.7227e+02_rb,5.8169e+02_rb,2.9133e+02_rb,1.3527e+00_rb/)
+      kbo(:, 1,51, 9) = (/ &
+     &4.8758e+02_rb,3.6583e+02_rb,2.4432e+02_rb,1.2426e+02_rb,5.5888e-01_rb/)
+      kbo(:, 2,51, 9) = (/ &
+     &6.0851e+02_rb,4.5652e+02_rb,3.0463e+02_rb,1.5396e+02_rb,7.2702e-01_rb/)
+      kbo(:, 3,51, 9) = (/ &
+     &7.6706e+02_rb,5.7543e+02_rb,3.8383e+02_rb,1.9312e+02_rb,9.0804e-01_rb/)
+      kbo(:, 4,51, 9) = (/ &
+     &9.6042e+02_rb,7.2045e+02_rb,4.8049e+02_rb,2.4107e+02_rb,1.0946e+00_rb/)
+      kbo(:, 5,51, 9) = (/ &
+     &1.1920e+03_rb,8.9415e+02_rb,5.9629e+02_rb,2.9867e+02_rb,1.2844e+00_rb/)
+      kbo(:, 1,52, 9) = (/ &
+     &4.8860e+02_rb,3.6660e+02_rb,2.4488e+02_rb,1.2464e+02_rb,4.9962e-01_rb/)
+      kbo(:, 2,52, 9) = (/ &
+     &6.1451e+02_rb,4.6102e+02_rb,3.0765e+02_rb,1.5555e+02_rb,6.6320e-01_rb/)
+      kbo(:, 3,52, 9) = (/ &
+     &7.8418e+02_rb,5.8827e+02_rb,3.9240e+02_rb,1.9747e+02_rb,8.4128e-01_rb/)
+      kbo(:, 4,52, 9) = (/ &
+     &9.9602e+02_rb,7.4715e+02_rb,4.9829e+02_rb,2.5001e+02_rb,1.0268e+00_rb/)
+      kbo(:, 5,52, 9) = (/ &
+     &1.2534e+03_rb,9.4018e+02_rb,6.2698e+02_rb,3.1403e+02_rb,1.2165e+00_rb/)
+      kbo(:, 1,53, 9) = (/ &
+     &5.0881e+02_rb,3.8175e+02_rb,2.5500e+02_rb,1.2975e+02_rb,4.4418e-01_rb/)
+      kbo(:, 2,53, 9) = (/ &
+     &6.4426e+02_rb,4.8334e+02_rb,3.2253e+02_rb,1.6302e+02_rb,6.0138e-01_rb/)
+      kbo(:, 3,53, 9) = (/ &
+     &8.3158e+02_rb,6.2382e+02_rb,4.1611e+02_rb,2.0933e+02_rb,7.7570e-01_rb/)
+      kbo(:, 4,53, 9) = (/ &
+     &1.0715e+03_rb,8.0375e+02_rb,5.3603e+02_rb,2.6888e+02_rb,9.5940e-01_rb/)
+      kbo(:, 5,53, 9) = (/ &
+     &1.3680e+03_rb,1.0262e+03_rb,6.8430e+02_rb,3.4269e+02_rb,1.1487e+00_rb/)
+      kbo(:, 1,54, 9) = (/ &
+     &4.6019e+02_rb,3.4529e+02_rb,2.3082e+02_rb,1.1788e+02_rb,3.9422e-01_rb/)
+      kbo(:, 2,54, 9) = (/ &
+     &5.8633e+02_rb,4.3988e+02_rb,2.9364e+02_rb,1.4879e+02_rb,5.4422e-01_rb/)
+      kbo(:, 3,54, 9) = (/ &
+     &7.6477e+02_rb,5.7372e+02_rb,3.8273e+02_rb,1.9285e+02_rb,7.1419e-01_rb/)
+      kbo(:, 4,54, 9) = (/ &
+     &9.9975e+02_rb,7.4995e+02_rb,5.0017e+02_rb,2.5112e+02_rb,8.9603e-01_rb/)
+      kbo(:, 5,54, 9) = (/ &
+     &1.2952e+03_rb,9.7153e+02_rb,6.4788e+02_rb,3.2458e+02_rb,1.0830e+00_rb/)
+      kbo(:, 1,55, 9) = (/ &
+     &3.8020e+02_rb,2.8531e+02_rb,1.9107e+02_rb,9.8307e+01_rb,3.4739e-01_rb/)
+      kbo(:, 2,55, 9) = (/ &
+     &4.8735e+02_rb,3.6565e+02_rb,2.4430e+02_rb,1.2445e+02_rb,4.9078e-01_rb/)
+      kbo(:, 3,55, 9) = (/ &
+     &6.4163e+02_rb,4.8136e+02_rb,3.2124e+02_rb,1.6243e+02_rb,6.5484e-01_rb/)
+      kbo(:, 4,55, 9) = (/ &
+     &8.5082e+02_rb,6.3825e+02_rb,4.2573e+02_rb,2.1419e+02_rb,8.3371e-01_rb/)
+      kbo(:, 5,55, 9) = (/ &
+     &1.1188e+03_rb,8.3927e+02_rb,5.5970e+02_rb,2.8072e+02_rb,1.0198e+00_rb/)
+      kbo(:, 1,56, 9) = (/ &
+     &3.1368e+02_rb,2.3545e+02_rb,1.5809e+02_rb,8.2086e+01_rb,3.0410e-01_rb/)
+      kbo(:, 2,56, 9) = (/ &
+     &4.0416e+02_rb,3.0326e+02_rb,2.0292e+02_rb,1.0407e+02_rb,4.3985e-01_rb/)
+      kbo(:, 3,56, 9) = (/ &
+     &5.3658e+02_rb,4.0257e+02_rb,2.6883e+02_rb,1.3655e+02_rb,5.9766e-01_rb/)
+      kbo(:, 4,56, 9) = (/ &
+     &7.2129e+02_rb,5.4110e+02_rb,3.6102e+02_rb,1.8214e+02_rb,7.7256e-01_rb/)
+      kbo(:, 5,56, 9) = (/ &
+     &9.6339e+02_rb,7.2268e+02_rb,4.8200e+02_rb,2.4214e+02_rb,9.5689e-01_rb/)
+      kbo(:, 1,57, 9) = (/ &
+     &2.5819e+02_rb,1.9390e+02_rb,1.3066e+02_rb,6.8602e+01_rb,2.6463e-01_rb/)
+      kbo(:, 2,57, 9) = (/ &
+     &3.3457e+02_rb,2.5110e+02_rb,1.6838e+02_rb,8.7076e+01_rb,3.9133e-01_rb/)
+      kbo(:, 3,57, 9) = (/ &
+     &4.4726e+02_rb,3.3558e+02_rb,2.2435e+02_rb,1.1462e+02_rb,5.4231e-01_rb/)
+      kbo(:, 4,57, 9) = (/ &
+     &6.0897e+02_rb,4.5687e+02_rb,3.0496e+02_rb,1.5443e+02_rb,7.1198e-01_rb/)
+      kbo(:, 5,57, 9) = (/ &
+     &8.2628e+02_rb,6.1985e+02_rb,4.1347e+02_rb,2.0818e+02_rb,8.9451e-01_rb/)
+      kbo(:, 1,58, 9) = (/ &
+     &5.6144e+01_rb,5.1598e+01_rb,4.4952e+01_rb,3.3575e+01_rb,2.2945e-01_rb/)
+      kbo(:, 2,58, 9) = (/ &
+     &7.3248e+01_rb,6.7230e+01_rb,5.8185e+01_rb,4.2642e+01_rb,3.4680e-01_rb/)
+      kbo(:, 3,58, 9) = (/ &
+     &9.8566e+01_rb,9.0421e+01_rb,7.7903e+01_rb,5.6215e+01_rb,4.9127e-01_rb/)
+      kbo(:, 4,58, 9) = (/ &
+     &1.3577e+02_rb,1.2452e+02_rb,1.0700e+02_rb,7.6316e+01_rb,6.5580e-01_rb/)
+      kbo(:, 5,58, 9) = (/ &
+     &1.8716e+02_rb,1.7164e+02_rb,1.4731e+02_rb,1.0424e+02_rb,8.3481e-01_rb/)
+      kbo(:, 1,59, 9) = (/ &
+     &5.7246e+01_rb,5.0299e+01_rb,4.1347e+01_rb,2.8542e+01_rb,2.1390e-01_rb/)
+      kbo(:, 2,59, 9) = (/ &
+     &7.5569e+01_rb,6.6181e+01_rb,5.3818e+01_rb,3.6138e+01_rb,3.2687e-01_rb/)
+      kbo(:, 3,59, 9) = (/ &
+     &1.0297e+02_rb,9.0031e+01_rb,7.2620e+01_rb,4.7606e+01_rb,4.6582e-01_rb/)
+      kbo(:, 4,59, 9) = (/ &
+     &1.4369e+02_rb,1.2555e+02_rb,1.0072e+02_rb,6.4807e+01_rb,6.2712e-01_rb/)
+      kbo(:, 5,59, 9) = (/ &
+     &2.0105e+02_rb,1.7562e+02_rb,1.4046e+02_rb,8.9199e+01_rb,8.0292e-01_rb/)
+      kbo(:, 1,13,10) = (/ &
+     &1.3594e+05_rb,1.0195e+05_rb,6.7969e+04_rb,3.3985e+04_rb,3.3627e+00_rb/)
+      kbo(:, 2,13,10) = (/ &
+     &1.3605e+05_rb,1.0204e+05_rb,6.8026e+04_rb,3.4013e+04_rb,3.2528e+00_rb/)
+      kbo(:, 3,13,10) = (/ &
+     &1.3597e+05_rb,1.0198e+05_rb,6.7984e+04_rb,3.3992e+04_rb,3.1814e+00_rb/)
+      kbo(:, 4,13,10) = (/ &
+     &1.3504e+05_rb,1.0128e+05_rb,6.7520e+04_rb,3.3760e+04_rb,3.0515e+00_rb/)
+      kbo(:, 5,13,10) = (/ &
+     &1.3382e+05_rb,1.0037e+05_rb,6.6910e+04_rb,3.3456e+04_rb,3.0303e+00_rb/)
+      kbo(:, 1,14,10) = (/ &
+     &8.3672e+04_rb,6.2754e+04_rb,4.1836e+04_rb,2.0918e+04_rb,3.6220e+00_rb/)
+      kbo(:, 2,14,10) = (/ &
+     &8.3355e+04_rb,6.2516e+04_rb,4.1677e+04_rb,2.0839e+04_rb,3.5454e+00_rb/)
+      kbo(:, 3,14,10) = (/ &
+     &8.2924e+04_rb,6.2193e+04_rb,4.1462e+04_rb,2.0731e+04_rb,3.4328e+00_rb/)
+      kbo(:, 4,14,10) = (/ &
+     &8.2189e+04_rb,6.1641e+04_rb,4.1094e+04_rb,2.0547e+04_rb,3.3922e+00_rb/)
+      kbo(:, 5,14,10) = (/ &
+     &8.1205e+04_rb,6.0904e+04_rb,4.0602e+04_rb,2.0301e+04_rb,3.2425e+00_rb/)
+      kbo(:, 1,15,10) = (/ &
+     &5.1150e+04_rb,3.8363e+04_rb,2.5576e+04_rb,1.2788e+04_rb,3.9145e+00_rb/)
+      kbo(:, 2,15,10) = (/ &
+     &5.0875e+04_rb,3.8157e+04_rb,2.5438e+04_rb,1.2719e+04_rb,3.8152e+00_rb/)
+      kbo(:, 3,15,10) = (/ &
+     &5.0407e+04_rb,3.7806e+04_rb,2.5204e+04_rb,1.2602e+04_rb,3.7733e+00_rb/)
+      kbo(:, 4,15,10) = (/ &
+     &4.9693e+04_rb,3.7270e+04_rb,2.4847e+04_rb,1.2424e+04_rb,3.6717e+00_rb/)
+      kbo(:, 5,15,10) = (/ &
+     &4.8987e+04_rb,3.6740e+04_rb,2.4494e+04_rb,1.2247e+04_rb,3.5647e+00_rb/)
+      kbo(:, 1,16,10) = (/ &
+     &3.6535e+04_rb,2.7401e+04_rb,1.8268e+04_rb,9.1341e+03_rb,4.2542e+00_rb/)
+      kbo(:, 2,16,10) = (/ &
+     &3.6151e+04_rb,2.7114e+04_rb,1.8076e+04_rb,9.0383e+03_rb,4.1666e+00_rb/)
+      kbo(:, 3,16,10) = (/ &
+     &3.5666e+04_rb,2.6750e+04_rb,1.7833e+04_rb,8.9169e+03_rb,4.1063e+00_rb/)
+      kbo(:, 4,16,10) = (/ &
+     &3.5133e+04_rb,2.6350e+04_rb,1.7567e+04_rb,8.7838e+03_rb,4.0309e+00_rb/)
+      kbo(:, 5,16,10) = (/ &
+     &3.4526e+04_rb,2.5894e+04_rb,1.7263e+04_rb,8.6318e+03_rb,3.8978e+00_rb/)
+      kbo(:, 1,17,10) = (/ &
+     &2.6414e+04_rb,1.9811e+04_rb,1.3207e+04_rb,6.6039e+03_rb,4.6454e+00_rb/)
+      kbo(:, 2,17,10) = (/ &
+     &2.6068e+04_rb,1.9551e+04_rb,1.3034e+04_rb,6.5174e+03_rb,4.5633e+00_rb/)
+      kbo(:, 3,17,10) = (/ &
+     &2.5689e+04_rb,1.9267e+04_rb,1.2845e+04_rb,6.4225e+03_rb,4.4826e+00_rb/)
+      kbo(:, 4,17,10) = (/ &
+     &2.5209e+04_rb,1.8907e+04_rb,1.2605e+04_rb,6.3027e+03_rb,4.3889e+00_rb/)
+      kbo(:, 5,17,10) = (/ &
+     &2.4661e+04_rb,1.8496e+04_rb,1.2331e+04_rb,6.1658e+03_rb,4.2589e+00_rb/)
+      kbo(:, 1,18,10) = (/ &
+     &1.9208e+04_rb,1.4406e+04_rb,9.6044e+03_rb,4.8025e+03_rb,5.0342e+00_rb/)
+      kbo(:, 2,18,10) = (/ &
+     &1.8927e+04_rb,1.4195e+04_rb,9.4636e+03_rb,4.7320e+03_rb,4.9453e+00_rb/)
+      kbo(:, 3,18,10) = (/ &
+     &1.8575e+04_rb,1.3931e+04_rb,9.2875e+03_rb,4.6440e+03_rb,4.8565e+00_rb/)
+      kbo(:, 4,18,10) = (/ &
+     &1.8151e+04_rb,1.3614e+04_rb,9.0760e+03_rb,4.5383e+03_rb,4.7616e+00_rb/)
+      kbo(:, 5,18,10) = (/ &
+     &1.7715e+04_rb,1.3287e+04_rb,8.8579e+03_rb,4.4292e+03_rb,4.6381e+00_rb/)
+      kbo(:, 1,19,10) = (/ &
+     &1.3561e+04_rb,1.0171e+04_rb,6.7808e+03_rb,3.3906e+03_rb,5.4045e+00_rb/)
+      kbo(:, 2,19,10) = (/ &
+     &1.3305e+04_rb,9.9790e+03_rb,6.6528e+03_rb,3.3267e+03_rb,5.3114e+00_rb/)
+      kbo(:, 3,19,10) = (/ &
+     &1.3001e+04_rb,9.7507e+03_rb,6.5006e+03_rb,3.2506e+03_rb,5.2250e+00_rb/)
+      kbo(:, 4,19,10) = (/ &
+     &1.2687e+04_rb,9.5155e+03_rb,6.3438e+03_rb,3.1722e+03_rb,5.1407e+00_rb/)
+      kbo(:, 5,19,10) = (/ &
+     &1.2394e+04_rb,9.2960e+03_rb,6.1975e+03_rb,3.0991e+03_rb,5.0251e+00_rb/)
+      kbo(:, 1,20,10) = (/ &
+     &1.0195e+04_rb,7.6466e+03_rb,5.0979e+03_rb,2.5492e+03_rb,5.7652e+00_rb/)
+      kbo(:, 2,20,10) = (/ &
+     &9.9631e+03_rb,7.4725e+03_rb,4.9818e+03_rb,2.4912e+03_rb,5.6804e+00_rb/)
+      kbo(:, 3,20,10) = (/ &
+     &9.7293e+03_rb,7.2971e+03_rb,4.8649e+03_rb,2.4328e+03_rb,5.6092e+00_rb/)
+      kbo(:, 4,20,10) = (/ &
+     &9.5227e+03_rb,7.1421e+03_rb,4.7616e+03_rb,2.3811e+03_rb,5.5285e+00_rb/)
+      kbo(:, 5,20,10) = (/ &
+     &9.3625e+03_rb,7.0220e+03_rb,4.6816e+03_rb,2.3411e+03_rb,5.3995e+00_rb/)
+      kbo(:, 1,21,10) = (/ &
+     &7.7885e+03_rb,5.8415e+03_rb,3.8945e+03_rb,1.9475e+03_rb,6.1280e+00_rb/)
+      kbo(:, 2,21,10) = (/ &
+     &7.6092e+03_rb,5.7071e+03_rb,3.8049e+03_rb,1.9027e+03_rb,6.0467e+00_rb/)
+      kbo(:, 3,21,10) = (/ &
+     &7.4658e+03_rb,5.5995e+03_rb,3.7332e+03_rb,1.8669e+03_rb,5.9782e+00_rb/)
+      kbo(:, 4,21,10) = (/ &
+     &7.3647e+03_rb,5.5237e+03_rb,3.6826e+03_rb,1.8416e+03_rb,5.8911e+00_rb/)
+      kbo(:, 5,21,10) = (/ &
+     &7.2928e+03_rb,5.4698e+03_rb,3.6467e+03_rb,1.8237e+03_rb,5.7660e+00_rb/)
+      kbo(:, 1,22,10) = (/ &
+     &6.0472e+03_rb,4.5355e+03_rb,3.0239e+03_rb,1.5122e+03_rb,6.4389e+00_rb/)
+      kbo(:, 2,22,10) = (/ &
+     &5.9457e+03_rb,4.4594e+03_rb,2.9731e+03_rb,1.4868e+03_rb,6.3534e+00_rb/)
+      kbo(:, 3,22,10) = (/ &
+     &5.8843e+03_rb,4.4133e+03_rb,2.9424e+03_rb,1.4715e+03_rb,6.3043e+00_rb/)
+      kbo(:, 4,22,10) = (/ &
+     &5.8543e+03_rb,4.3909e+03_rb,2.9274e+03_rb,1.4640e+03_rb,6.2309e+00_rb/)
+      kbo(:, 5,22,10) = (/ &
+     &5.8906e+03_rb,4.4181e+03_rb,2.9456e+03_rb,1.4732e+03_rb,6.0993e+00_rb/)
+      kbo(:, 1,23,10) = (/ &
+     &4.7512e+03_rb,3.5635e+03_rb,2.3758e+03_rb,1.1882e+03_rb,6.6888e+00_rb/)
+      kbo(:, 2,23,10) = (/ &
+     &4.7151e+03_rb,3.5365e+03_rb,2.3578e+03_rb,1.1792e+03_rb,6.6289e+00_rb/)
+      kbo(:, 3,23,10) = (/ &
+     &4.7153e+03_rb,3.5366e+03_rb,2.3579e+03_rb,1.1792e+03_rb,6.5888e+00_rb/)
+      kbo(:, 4,23,10) = (/ &
+     &4.7757e+03_rb,3.5820e+03_rb,2.3882e+03_rb,1.1944e+03_rb,6.5103e+00_rb/)
+      kbo(:, 5,23,10) = (/ &
+     &4.8784e+03_rb,3.6590e+03_rb,2.4396e+03_rb,1.2201e+03_rb,6.3750e+00_rb/)
+      kbo(:, 1,24,10) = (/ &
+     &3.7664e+03_rb,2.8249e+03_rb,1.8835e+03_rb,9.4199e+02_rb,6.8939e+00_rb/)
+      kbo(:, 2,24,10) = (/ &
+     &3.7833e+03_rb,2.8376e+03_rb,1.8919e+03_rb,9.4626e+02_rb,6.8560e+00_rb/)
+      kbo(:, 3,24,10) = (/ &
+     &3.8524e+03_rb,2.8895e+03_rb,1.9265e+03_rb,9.6361e+02_rb,6.8233e+00_rb/)
+      kbo(:, 4,24,10) = (/ &
+     &3.9503e+03_rb,2.9629e+03_rb,1.9755e+03_rb,9.8811e+02_rb,6.7364e+00_rb/)
+      kbo(:, 5,24,10) = (/ &
+     &4.0500e+03_rb,3.0377e+03_rb,2.0254e+03_rb,1.0130e+03_rb,6.5861e+00_rb/)
+      kbo(:, 1,25,10) = (/ &
+     &3.0705e+03_rb,2.3030e+03_rb,1.5356e+03_rb,7.6808e+02_rb,7.0352e+00_rb/)
+      kbo(:, 2,25,10) = (/ &
+     &3.1368e+03_rb,2.3527e+03_rb,1.5687e+03_rb,7.8472e+02_rb,7.0310e+00_rb/)
+      kbo(:, 3,25,10) = (/ &
+     &3.2299e+03_rb,2.4226e+03_rb,1.6153e+03_rb,8.0803e+02_rb,7.0074e+00_rb/)
+      kbo(:, 4,25,10) = (/ &
+     &3.3291e+03_rb,2.4970e+03_rb,1.6649e+03_rb,8.3282e+02_rb,6.9138e+00_rb/)
+      kbo(:, 5,25,10) = (/ &
+     &3.4334e+03_rb,2.5753e+03_rb,1.7171e+03_rb,8.5889e+02_rb,6.7836e+00_rb/)
+      kbo(:, 1,26,10) = (/ &
+     &2.5973e+03_rb,1.9481e+03_rb,1.2990e+03_rb,6.4986e+02_rb,7.1301e+00_rb/)
+      kbo(:, 2,26,10) = (/ &
+     &2.6809e+03_rb,2.0109e+03_rb,1.3408e+03_rb,6.7078e+02_rb,7.1546e+00_rb/)
+      kbo(:, 3,26,10) = (/ &
+     &2.7748e+03_rb,2.0813e+03_rb,1.3878e+03_rb,6.9426e+02_rb,7.1359e+00_rb/)
+      kbo(:, 4,26,10) = (/ &
+     &2.8656e+03_rb,2.1494e+03_rb,1.4332e+03_rb,7.1694e+02_rb,7.0388e+00_rb/)
+      kbo(:, 5,26,10) = (/ &
+     &2.9554e+03_rb,2.2167e+03_rb,1.4780e+03_rb,7.3936e+02_rb,6.9309e+00_rb/)
+      kbo(:, 1,27,10) = (/ &
+     &2.3040e+03_rb,1.7282e+03_rb,1.1524e+03_rb,5.7657e+02_rb,7.1805e+00_rb/)
+      kbo(:, 2,27,10) = (/ &
+     &2.3938e+03_rb,1.7956e+03_rb,1.1973e+03_rb,5.9902e+02_rb,7.2265e+00_rb/)
+      kbo(:, 3,27,10) = (/ &
+     &2.4776e+03_rb,1.8584e+03_rb,1.2392e+03_rb,6.1996e+02_rb,7.2160e+00_rb/)
+      kbo(:, 4,27,10) = (/ &
+     &2.5592e+03_rb,1.9196e+03_rb,1.2799e+03_rb,6.4031e+02_rb,7.1019e+00_rb/)
+      kbo(:, 5,27,10) = (/ &
+     &2.6344e+03_rb,1.9760e+03_rb,1.3176e+03_rb,6.5914e+02_rb,7.0533e+00_rb/)
+      kbo(:, 1,28,10) = (/ &
+     &2.1016e+03_rb,1.5764e+03_rb,1.0512e+03_rb,5.2597e+02_rb,7.1943e+00_rb/)
+      kbo(:, 2,28,10) = (/ &
+     &2.1832e+03_rb,1.6376e+03_rb,1.0920e+03_rb,5.4637e+02_rb,7.2562e+00_rb/)
+      kbo(:, 3,28,10) = (/ &
+     &2.2626e+03_rb,1.6971e+03_rb,1.1316e+03_rb,5.6618e+02_rb,7.2356e+00_rb/)
+      kbo(:, 4,28,10) = (/ &
+     &2.3367e+03_rb,1.7527e+03_rb,1.1687e+03_rb,5.8470e+02_rb,7.1672e+00_rb/)
+      kbo(:, 5,28,10) = (/ &
+     &2.4052e+03_rb,1.8041e+03_rb,1.2030e+03_rb,6.0186e+02_rb,7.1806e+00_rb/)
+      kbo(:, 1,29,10) = (/ &
+     &2.0213e+03_rb,1.5162e+03_rb,1.0110e+03_rb,5.0592e+02_rb,7.1826e+00_rb/)
+      kbo(:, 2,29,10) = (/ &
+     &2.1025e+03_rb,1.5771e+03_rb,1.0516e+03_rb,5.2618e+02_rb,7.2449e+00_rb/)
+      kbo(:, 3,29,10) = (/ &
+     &2.1817e+03_rb,1.6365e+03_rb,1.0912e+03_rb,5.4596e+02_rb,7.2200e+00_rb/)
+      kbo(:, 4,29,10) = (/ &
+     &2.2556e+03_rb,1.6919e+03_rb,1.1282e+03_rb,5.6447e+02_rb,7.2591e+00_rb/)
+      kbo(:, 5,29,10) = (/ &
+     &2.3246e+03_rb,1.7436e+03_rb,1.1626e+03_rb,5.8167e+02_rb,7.2912e+00_rb/)
+      kbo(:, 1,30,10) = (/ &
+     &1.9891e+03_rb,1.4920e+03_rb,9.9489e+02_rb,4.9783e+02_rb,7.1696e+00_rb/)
+      kbo(:, 2,30,10) = (/ &
+     &2.0704e+03_rb,1.5530e+03_rb,1.0355e+03_rb,5.1812e+02_rb,7.1996e+00_rb/)
+      kbo(:, 3,30,10) = (/ &
+     &2.1486e+03_rb,1.6117e+03_rb,1.0747e+03_rb,5.3773e+02_rb,7.2564e+00_rb/)
+      kbo(:, 4,30,10) = (/ &
+     &2.2243e+03_rb,1.6684e+03_rb,1.1125e+03_rb,5.5660e+02_rb,7.3491e+00_rb/)
+      kbo(:, 5,30,10) = (/ &
+     &2.2969e+03_rb,1.7228e+03_rb,1.1488e+03_rb,5.7471e+02_rb,7.3950e+00_rb/)
+      kbo(:, 1,31,10) = (/ &
+     &2.0600e+03_rb,1.5452e+03_rb,1.0303e+03_rb,5.1552e+02_rb,7.0891e+00_rb/)
+      kbo(:, 2,31,10) = (/ &
+     &2.1442e+03_rb,1.6083e+03_rb,1.0725e+03_rb,5.3661e+02_rb,7.1940e+00_rb/)
+      kbo(:, 3,31,10) = (/ &
+     &2.2267e+03_rb,1.6702e+03_rb,1.1137e+03_rb,5.5720e+02_rb,7.3519e+00_rb/)
+      kbo(:, 4,31,10) = (/ &
+     &2.3069e+03_rb,1.7303e+03_rb,1.1538e+03_rb,5.7721e+02_rb,7.4783e+00_rb/)
+      kbo(:, 5,31,10) = (/ &
+     &2.3951e+03_rb,1.7965e+03_rb,1.1978e+03_rb,5.9922e+02_rb,7.4978e+00_rb/)
+      kbo(:, 1,32,10) = (/ &
+     &2.1607e+03_rb,1.6207e+03_rb,1.0807e+03_rb,5.4073e+02_rb,7.0921e+00_rb/)
+      kbo(:, 2,32,10) = (/ &
+     &2.2499e+03_rb,1.6876e+03_rb,1.1253e+03_rb,5.6302e+02_rb,7.2853e+00_rb/)
+      kbo(:, 3,32,10) = (/ &
+     &2.3389e+03_rb,1.7543e+03_rb,1.1698e+03_rb,5.8523e+02_rb,7.4637e+00_rb/)
+      kbo(:, 4,32,10) = (/ &
+     &2.4345e+03_rb,1.8261e+03_rb,1.2176e+03_rb,6.0908e+02_rb,7.5300e+00_rb/)
+      kbo(:, 5,32,10) = (/ &
+     &2.5534e+03_rb,1.9152e+03_rb,1.2769e+03_rb,6.3872e+02_rb,7.5836e+00_rb/)
+      kbo(:, 1,33,10) = (/ &
+     &2.3147e+03_rb,1.7362e+03_rb,1.1577e+03_rb,5.7922e+02_rb,7.1422e+00_rb/)
+      kbo(:, 2,33,10) = (/ &
+     &2.4114e+03_rb,1.8087e+03_rb,1.2060e+03_rb,6.0335e+02_rb,7.3798e+00_rb/)
+      kbo(:, 3,33,10) = (/ &
+     &2.5142e+03_rb,1.8858e+03_rb,1.2574e+03_rb,6.2900e+02_rb,7.4990e+00_rb/)
+      kbo(:, 4,33,10) = (/ &
+     &2.6436e+03_rb,1.9829e+03_rb,1.3221e+03_rb,6.6129e+02_rb,7.6018e+00_rb/)
+      kbo(:, 5,33,10) = (/ &
+     &2.8166e+03_rb,2.1125e+03_rb,1.4085e+03_rb,7.0447e+02_rb,7.6468e+00_rb/)
+      kbo(:, 1,34,10) = (/ &
+     &2.4210e+03_rb,1.8159e+03_rb,1.2108e+03_rb,6.0577e+02_rb,7.2083e+00_rb/)
+      kbo(:, 2,34,10) = (/ &
+     &2.5284e+03_rb,1.8965e+03_rb,1.2645e+03_rb,6.3255e+02_rb,7.4180e+00_rb/)
+      kbo(:, 3,34,10) = (/ &
+     &2.6591e+03_rb,1.9944e+03_rb,1.3298e+03_rb,6.6516e+02_rb,7.5418e+00_rb/)
+      kbo(:, 4,34,10) = (/ &
+     &2.8359e+03_rb,2.1270e+03_rb,1.4182e+03_rb,7.0928e+02_rb,7.6931e+00_rb/)
+      kbo(:, 5,34,10) = (/ &
+     &3.0680e+03_rb,2.3011e+03_rb,1.5342e+03_rb,7.6730e+02_rb,7.7811e+00_rb/)
+      kbo(:, 1,35,10) = (/ &
+     &2.5363e+03_rb,1.9024e+03_rb,1.2685e+03_rb,6.3456e+02_rb,7.2309e+00_rb/)
+      kbo(:, 2,35,10) = (/ &
+     &2.6634e+03_rb,1.9977e+03_rb,1.3320e+03_rb,6.6631e+02_rb,7.4393e+00_rb/)
+      kbo(:, 3,35,10) = (/ &
+     &2.8345e+03_rb,2.1260e+03_rb,1.4175e+03_rb,7.0897e+02_rb,7.6569e+00_rb/)
+      kbo(:, 4,35,10) = (/ &
+     &3.0674e+03_rb,2.3007e+03_rb,1.5339e+03_rb,7.6716e+02_rb,7.7801e+00_rb/)
+      kbo(:, 5,35,10) = (/ &
+     &3.3573e+03_rb,2.5181e+03_rb,1.6788e+03_rb,8.3963e+02_rb,7.8561e+00_rb/)
+      kbo(:, 1,36,10) = (/ &
+     &2.6451e+03_rb,1.9840e+03_rb,1.3229e+03_rb,6.6175e+02_rb,7.2395e+00_rb/)
+      kbo(:, 2,36,10) = (/ &
+     &2.7976e+03_rb,2.0983e+03_rb,1.3991e+03_rb,6.9981e+02_rb,7.4813e+00_rb/)
+      kbo(:, 3,36,10) = (/ &
+     &3.0125e+03_rb,2.2595e+03_rb,1.5065e+03_rb,7.5346e+02_rb,7.7309e+00_rb/)
+      kbo(:, 4,36,10) = (/ &
+     &3.2979e+03_rb,2.4736e+03_rb,1.6492e+03_rb,8.2479e+02_rb,7.8735e+00_rb/)
+      kbo(:, 5,36,10) = (/ &
+     &3.6475e+03_rb,2.7357e+03_rb,1.8239e+03_rb,9.1218e+02_rb,7.9027e+00_rb/)
+      kbo(:, 1,37,10) = (/ &
+     &2.6819e+03_rb,2.0116e+03_rb,1.3413e+03_rb,6.7096e+02_rb,7.2017e+00_rb/)
+      kbo(:, 2,37,10) = (/ &
+     &2.8583e+03_rb,2.1439e+03_rb,1.4294e+03_rb,7.1495e+02_rb,7.5003e+00_rb/)
+      kbo(:, 3,37,10) = (/ &
+     &3.1042e+03_rb,2.3283e+03_rb,1.5523e+03_rb,7.7640e+02_rb,7.7646e+00_rb/)
+      kbo(:, 4,37,10) = (/ &
+     &3.4272e+03_rb,2.5705e+03_rb,1.7138e+03_rb,8.5714e+02_rb,7.9233e+00_rb/)
+      kbo(:, 5,37,10) = (/ &
+     &3.8225e+03_rb,2.8670e+03_rb,1.9115e+03_rb,9.5596e+02_rb,7.9456e+00_rb/)
+      kbo(:, 1,38,10) = (/ &
+     &2.7669e+03_rb,2.0753e+03_rb,1.3837e+03_rb,6.9217e+02_rb,7.1724e+00_rb/)
+      kbo(:, 2,38,10) = (/ &
+     &2.9772e+03_rb,2.2330e+03_rb,1.4888e+03_rb,7.4467e+02_rb,7.5382e+00_rb/)
+      kbo(:, 3,38,10) = (/ &
+     &3.2630e+03_rb,2.4473e+03_rb,1.6317e+03_rb,8.1609e+02_rb,7.7857e+00_rb/)
+      kbo(:, 4,38,10) = (/ &
+     &3.6292e+03_rb,2.7220e+03_rb,1.8149e+03_rb,9.0769e+02_rb,7.9649e+00_rb/)
+      kbo(:, 5,38,10) = (/ &
+     &4.0743e+03_rb,3.0559e+03_rb,2.0374e+03_rb,1.0190e+03_rb,7.9771e+00_rb/)
+      kbo(:, 1,39,10) = (/ &
+     &2.9268e+03_rb,2.1953e+03_rb,1.4637e+03_rb,7.3213e+02_rb,7.1691e+00_rb/)
+      kbo(:, 2,39,10) = (/ &
+     &3.1832e+03_rb,2.3875e+03_rb,1.5919e+03_rb,7.9619e+02_rb,7.5536e+00_rb/)
+      kbo(:, 3,39,10) = (/ &
+     &3.5251e+03_rb,2.6440e+03_rb,1.7628e+03_rb,8.8168e+02_rb,7.8089e+00_rb/)
+      kbo(:, 4,39,10) = (/ &
+     &3.9504e+03_rb,2.9629e+03_rb,1.9755e+03_rb,9.8804e+02_rb,7.9786e+00_rb/)
+      kbo(:, 5,39,10) = (/ &
+     &4.4598e+03_rb,3.3450e+03_rb,2.2302e+03_rb,1.1154e+03_rb,8.0073e+00_rb/)
+      kbo(:, 1,40,10) = (/ &
+     &2.8874e+03_rb,2.1657e+03_rb,1.4439e+03_rb,7.2221e+02_rb,7.0746e+00_rb/)
+      kbo(:, 2,40,10) = (/ &
+     &3.1724e+03_rb,2.3794e+03_rb,1.5864e+03_rb,7.9346e+02_rb,7.4831e+00_rb/)
+      kbo(:, 3,40,10) = (/ &
+     &3.5465e+03_rb,2.6600e+03_rb,1.7735e+03_rb,8.8703e+02_rb,7.7692e+00_rb/)
+      kbo(:, 4,40,10) = (/ &
+     &4.0044e+03_rb,3.0035e+03_rb,2.0025e+03_rb,1.0016e+03_rb,7.9632e+00_rb/)
+      kbo(:, 5,40,10) = (/ &
+     &4.5454e+03_rb,3.4092e+03_rb,2.2730e+03_rb,1.1368e+03_rb,8.0081e+00_rb/)
+      kbo(:, 1,41,10) = (/ &
+     &2.8406e+03_rb,2.1306e+03_rb,1.4205e+03_rb,7.1050e+02_rb,6.9600e+00_rb/)
+      kbo(:, 2,41,10) = (/ &
+     &3.1484e+03_rb,2.3614e+03_rb,1.5744e+03_rb,7.8747e+02_rb,7.3954e+00_rb/)
+      kbo(:, 3,41,10) = (/ &
+     &3.5576e+03_rb,2.6684e+03_rb,1.7791e+03_rb,8.8987e+02_rb,7.7179e+00_rb/)
+      kbo(:, 4,41,10) = (/ &
+     &4.0527e+03_rb,3.0397e+03_rb,2.0267e+03_rb,1.0137e+03_rb,7.9444e+00_rb/)
+      kbo(:, 5,41,10) = (/ &
+     &4.6270e+03_rb,3.4704e+03_rb,2.3138e+03_rb,1.1572e+03_rb,8.0108e+00_rb/)
+      kbo(:, 1,42,10) = (/ &
+     &2.8258e+03_rb,2.1194e+03_rb,1.4131e+03_rb,7.0678e+02_rb,6.8517e+00_rb/)
+      kbo(:, 2,42,10) = (/ &
+     &3.1581e+03_rb,2.3687e+03_rb,1.5793e+03_rb,7.8990e+02_rb,7.3049e+00_rb/)
+      kbo(:, 3,42,10) = (/ &
+     &3.6059e+03_rb,2.7046e+03_rb,1.8032e+03_rb,9.0193e+02_rb,7.6524e+00_rb/)
+      kbo(:, 4,42,10) = (/ &
+     &4.1499e+03_rb,3.1126e+03_rb,2.0753e+03_rb,1.0380e+03_rb,7.9111e+00_rb/)
+      kbo(:, 5,42,10) = (/ &
+     &4.7763e+03_rb,3.5824e+03_rb,2.3885e+03_rb,1.1945e+03_rb,8.0026e+00_rb/)
+      kbo(:, 1,43,10) = (/ &
+     &2.8194e+03_rb,2.1147e+03_rb,1.4100e+03_rb,7.0522e+02_rb,6.7032e+00_rb/)
+      kbo(:, 2,43,10) = (/ &
+     &3.1747e+03_rb,2.3812e+03_rb,1.5876e+03_rb,7.9408e+02_rb,7.1735e+00_rb/)
+      kbo(:, 3,43,10) = (/ &
+     &3.6549e+03_rb,2.7413e+03_rb,1.8278e+03_rb,9.1420e+02_rb,7.5844e+00_rb/)
+      kbo(:, 4,43,10) = (/ &
+     &4.2522e+03_rb,3.1893e+03_rb,2.1264e+03_rb,1.0635e+03_rb,7.8420e+00_rb/)
+      kbo(:, 5,43,10) = (/ &
+     &4.9421e+03_rb,3.7067e+03_rb,2.4714e+03_rb,1.2360e+03_rb,7.9777e+00_rb/)
+      kbo(:, 1,44,10) = (/ &
+     &2.8469e+03_rb,2.1353e+03_rb,1.4237e+03_rb,7.1206e+02_rb,6.5380e+00_rb/)
+      kbo(:, 2,44,10) = (/ &
+     &3.2203e+03_rb,2.4153e+03_rb,1.6104e+03_rb,8.0548e+02_rb,7.0393e+00_rb/)
+      kbo(:, 3,44,10) = (/ &
+     &3.7360e+03_rb,2.8021e+03_rb,1.8683e+03_rb,9.3448e+02_rb,7.4778e+00_rb/)
+      kbo(:, 4,44,10) = (/ &
+     &4.3910e+03_rb,3.2934e+03_rb,2.1958e+03_rb,1.0982e+03_rb,7.7716e+00_rb/)
+      kbo(:, 5,44,10) = (/ &
+     &5.1620e+03_rb,3.8716e+03_rb,2.5813e+03_rb,1.2909e+03_rb,7.9568e+00_rb/)
+      kbo(:, 1,45,10) = (/ &
+     &2.9370e+03_rb,2.2029e+03_rb,1.4687e+03_rb,7.3461e+02_rb,6.3596e+00_rb/)
+      kbo(:, 2,45,10) = (/ &
+     &3.3323e+03_rb,2.4994e+03_rb,1.6664e+03_rb,8.3351e+02_rb,6.8956e+00_rb/)
+      kbo(:, 3,45,10) = (/ &
+     &3.8921e+03_rb,2.9193e+03_rb,1.9464e+03_rb,9.7354e+02_rb,7.3748e+00_rb/)
+      kbo(:, 4,45,10) = (/ &
+     &4.6196e+03_rb,3.4648e+03_rb,2.3101e+03_rb,1.1554e+03_rb,7.7094e+00_rb/)
+      kbo(:, 5,45,10) = (/ &
+     &5.4975e+03_rb,4.1233e+03_rb,2.7490e+03_rb,1.3748e+03_rb,7.9394e+00_rb/)
+      kbo(:, 1,46,10) = (/ &
+     &3.0543e+03_rb,2.2908e+03_rb,1.5274e+03_rb,7.6393e+02_rb,6.1665e+00_rb/)
+      kbo(:, 2,46,10) = (/ &
+     &3.4757e+03_rb,2.6069e+03_rb,1.7382e+03_rb,8.6940e+02_rb,6.7524e+00_rb/)
+      kbo(:, 3,46,10) = (/ &
+     &4.0758e+03_rb,3.0570e+03_rb,2.0382e+03_rb,1.0195e+03_rb,7.2688e+00_rb/)
+      kbo(:, 4,46,10) = (/ &
+     &4.8832e+03_rb,3.6626e+03_rb,2.4419e+03_rb,1.2213e+03_rb,7.6299e+00_rb/)
+      kbo(:, 5,46,10) = (/ &
+     &5.8799e+03_rb,4.4101e+03_rb,2.9402e+03_rb,1.4704e+03_rb,7.9039e+00_rb/)
+      kbo(:, 1,47,10) = (/ &
+     &3.1321e+03_rb,2.3492e+03_rb,1.5663e+03_rb,7.8341e+02_rb,5.9258e+00_rb/)
+      kbo(:, 2,47,10) = (/ &
+     &3.5703e+03_rb,2.6779e+03_rb,1.7855e+03_rb,8.9306e+02_rb,6.5564e+00_rb/)
+      kbo(:, 3,47,10) = (/ &
+     &4.1981e+03_rb,3.1488e+03_rb,2.0994e+03_rb,1.0501e+03_rb,7.1267e+00_rb/)
+      kbo(:, 4,47,10) = (/ &
+     &5.0652e+03_rb,3.7991e+03_rb,2.5329e+03_rb,1.2668e+03_rb,7.5455e+00_rb/)
+      kbo(:, 5,47,10) = (/ &
+     &6.1689e+03_rb,4.6268e+03_rb,3.0847e+03_rb,1.5426e+03_rb,7.8470e+00_rb/)
+      kbo(:, 1,48,10) = (/ &
+     &3.3047e+03_rb,2.4787e+03_rb,1.6526e+03_rb,8.2657e+02_rb,5.6694e+00_rb/)
+      kbo(:, 2,48,10) = (/ &
+     &3.7747e+03_rb,2.8312e+03_rb,1.8877e+03_rb,9.4418e+02_rb,6.3589e+00_rb/)
+      kbo(:, 3,48,10) = (/ &
+     &4.4483e+03_rb,3.3364e+03_rb,2.2245e+03_rb,1.1126e+03_rb,6.9569e+00_rb/)
+      kbo(:, 4,48,10) = (/ &
+     &5.3940e+03_rb,4.0457e+03_rb,2.6973e+03_rb,1.3490e+03_rb,7.4395e+00_rb/)
+      kbo(:, 5,48,10) = (/ &
+     &6.6398e+03_rb,4.9800e+03_rb,3.3201e+03_rb,1.6603e+03_rb,7.7751e+00_rb/)
+      kbo(:, 1,49,10) = (/ &
+     &3.6256e+03_rb,2.7194e+03_rb,1.8131e+03_rb,9.0682e+02_rb,5.4147e+00_rb/)
+      kbo(:, 2,49,10) = (/ &
+     &4.1643e+03_rb,3.1234e+03_rb,2.0825e+03_rb,1.0416e+03_rb,6.1453e+00_rb/)
+      kbo(:, 3,49,10) = (/ &
+     &4.9094e+03_rb,3.6822e+03_rb,2.4550e+03_rb,1.2279e+03_rb,6.7872e+00_rb/)
+      kbo(:, 4,49,10) = (/ &
+     &5.9847e+03_rb,4.4886e+03_rb,2.9926e+03_rb,1.4966e+03_rb,7.3168e+00_rb/)
+      kbo(:, 5,49,10) = (/ &
+     &7.4258e+03_rb,5.5695e+03_rb,3.7131e+03_rb,1.8568e+03_rb,7.6869e+00_rb/)
+      kbo(:, 1,50,10) = (/ &
+     &3.7913e+03_rb,2.8436e+03_rb,1.8959e+03_rb,9.4825e+02_rb,5.1338e+00_rb/)
+      kbo(:, 2,50,10) = (/ &
+     &4.3920e+03_rb,3.2942e+03_rb,2.1963e+03_rb,1.0985e+03_rb,5.9203e+00_rb/)
+      kbo(:, 3,50,10) = (/ &
+     &5.1851e+03_rb,3.8890e+03_rb,2.5929e+03_rb,1.2968e+03_rb,6.5802e+00_rb/)
+      kbo(:, 4,50,10) = (/ &
+     &6.3489e+03_rb,4.7618e+03_rb,3.1748e+03_rb,1.5877e+03_rb,7.1705e+00_rb/)
+      kbo(:, 5,50,10) = (/ &
+     &7.9377e+03_rb,5.9534e+03_rb,3.9691e+03_rb,1.9848e+03_rb,7.5922e+00_rb/)
+      kbo(:, 1,51,10) = (/ &
+     &3.8669e+03_rb,2.9003e+03_rb,1.9338e+03_rb,9.6719e+02_rb,4.8302e+00_rb/)
+      kbo(:, 2,51,10) = (/ &
+     &4.5318e+03_rb,3.3991e+03_rb,2.2663e+03_rb,1.1335e+03_rb,5.6653e+00_rb/)
+      kbo(:, 3,51,10) = (/ &
+     &5.3773e+03_rb,4.0331e+03_rb,2.6890e+03_rb,1.3448e+03_rb,6.3736e+00_rb/)
+      kbo(:, 4,51,10) = (/ &
+     &6.6015e+03_rb,4.9513e+03_rb,3.3010e+03_rb,1.6508e+03_rb,7.0028e+00_rb/)
+      kbo(:, 5,51,10) = (/ &
+     &8.3208e+03_rb,6.2407e+03_rb,4.1606e+03_rb,2.0805e+03_rb,7.4729e+00_rb/)
+      kbo(:, 1,52,10) = (/ &
+     &4.0341e+03_rb,3.0258e+03_rb,2.0174e+03_rb,1.0090e+03_rb,4.5505e+00_rb/)
+      kbo(:, 2,52,10) = (/ &
+     &4.7982e+03_rb,3.5989e+03_rb,2.3995e+03_rb,1.2001e+03_rb,5.4004e+00_rb/)
+      kbo(:, 3,52,10) = (/ &
+     &5.7356e+03_rb,4.3019e+03_rb,2.8682e+03_rb,1.4344e+03_rb,6.1556e+00_rb/)
+      kbo(:, 4,52,10) = (/ &
+     &7.0672e+03_rb,5.3005e+03_rb,3.5339e+03_rb,1.7672e+03_rb,6.8208e+00_rb/)
+      kbo(:, 5,52,10) = (/ &
+     &8.9657e+03_rb,6.7244e+03_rb,4.4831e+03_rb,2.2418e+03_rb,7.3432e+00_rb/)
+      kbo(:, 1,53,10) = (/ &
+     &4.3581e+03_rb,3.2687e+03_rb,2.1794e+03_rb,1.0900e+03_rb,4.2696e+00_rb/)
+      kbo(:, 2,53,10) = (/ &
+     &5.2688e+03_rb,3.9518e+03_rb,2.6348e+03_rb,1.3178e+03_rb,5.1422e+00_rb/)
+      kbo(:, 3,53,10) = (/ &
+     &6.3653e+03_rb,4.7742e+03_rb,3.1830e+03_rb,1.5919e+03_rb,5.9288e+00_rb/)
+      kbo(:, 4,53,10) = (/ &
+     &7.8870e+03_rb,5.9154e+03_rb,3.9438e+03_rb,1.9722e+03_rb,6.6345e+00_rb/)
+      kbo(:, 5,53,10) = (/ &
+     &1.0051e+04_rb,7.5383e+03_rb,5.0257e+03_rb,2.5131e+03_rb,7.2054e+00_rb/)
+      kbo(:, 1,54,10) = (/ &
+     &4.0664e+03_rb,3.0500e+03_rb,2.0336e+03_rb,1.0171e+03_rb,3.9912e+00_rb/)
+      kbo(:, 2,54,10) = (/ &
+     &5.0070e+03_rb,3.7555e+03_rb,2.5039e+03_rb,1.2523e+03_rb,4.8673e+00_rb/)
+      kbo(:, 3,54,10) = (/ &
+     &6.1329e+03_rb,4.5998e+03_rb,3.0668e+03_rb,1.5337e+03_rb,5.6727e+00_rb/)
+      kbo(:, 4,54,10) = (/ &
+     &7.6570e+03_rb,5.7429e+03_rb,3.8288e+03_rb,1.9147e+03_rb,6.4112e+00_rb/)
+      kbo(:, 5,54,10) = (/ &
+     &9.8073e+03_rb,7.3556e+03_rb,4.9039e+03_rb,2.4522e+03_rb,7.0431e+00_rb/)
+      kbo(:, 1,55,10) = (/ &
+     &3.4487e+03_rb,2.5868e+03_rb,1.7247e+03_rb,8.6275e+02_rb,3.7023e+00_rb/)
+      kbo(:, 2,55,10) = (/ &
+     &4.3277e+03_rb,3.2460e+03_rb,2.1642e+03_rb,1.0825e+03_rb,4.5324e+00_rb/)
+      kbo(:, 3,55,10) = (/ &
+     &5.3892e+03_rb,4.0421e+03_rb,2.6950e+03_rb,1.3479e+03_rb,5.4035e+00_rb/)
+      kbo(:, 4,55,10) = (/ &
+     &6.7963e+03_rb,5.0973e+03_rb,3.3984e+03_rb,1.6995e+03_rb,6.1546e+00_rb/)
+      kbo(:, 5,55,10) = (/ &
+     &8.7627e+03_rb,6.5722e+03_rb,4.3816e+03_rb,2.1910e+03_rb,6.8267e+00_rb/)
+      kbo(:, 1,56,10) = (/ &
+     &2.9072e+03_rb,2.1806e+03_rb,1.4540e+03_rb,7.2734e+02_rb,3.4115e+00_rb/)
+      kbo(:, 2,56,10) = (/ &
+     &3.7198e+03_rb,2.7901e+03_rb,1.8603e+03_rb,9.3056e+02_rb,4.2571e+00_rb/)
+      kbo(:, 3,56,10) = (/ &
+     &4.7203e+03_rb,3.5403e+03_rb,2.3605e+03_rb,1.1806e+03_rb,5.1151e+00_rb/)
+      kbo(:, 4,56,10) = (/ &
+     &6.0279e+03_rb,4.5211e+03_rb,3.0142e+03_rb,1.5074e+03_rb,5.8984e+00_rb/)
+      kbo(:, 5,56,10) = (/ &
+     &7.8366e+03_rb,5.8775e+03_rb,3.9185e+03_rb,1.9594e+03_rb,6.6003e+00_rb/)
+      kbo(:, 1,57,10) = (/ &
+     &2.4367e+03_rb,1.8277e+03_rb,1.2187e+03_rb,6.0970e+02_rb,3.1098e+00_rb/)
+      kbo(:, 2,57,10) = (/ &
+     &3.1766e+03_rb,2.3826e+03_rb,1.5887e+03_rb,7.9475e+02_rb,3.9704e+00_rb/)
+      kbo(:, 3,57,10) = (/ &
+     &4.1136e+03_rb,3.0854e+03_rb,2.0572e+03_rb,1.0290e+03_rb,4.8038e+00_rb/)
+      kbo(:, 4,57,10) = (/ &
+     &5.3345e+03_rb,4.0010e+03_rb,2.6675e+03_rb,1.3340e+03_rb,5.6428e+00_rb/)
+      kbo(:, 5,57,10) = (/ &
+     &7.0017e+03_rb,5.2513e+03_rb,3.5010e+03_rb,1.7507e+03_rb,6.3564e+00_rb/)
+      kbo(:, 1,58,10) = (/ &
+     &5.3797e+02_rb,4.9330e+02_rb,4.2306e+02_rb,2.9653e+02_rb,2.8402e+00_rb/)
+      kbo(:, 2,58,10) = (/ &
+     &7.1438e+02_rb,6.5505e+02_rb,5.6177e+02_rb,3.9372e+02_rb,3.6954e+00_rb/)
+      kbo(:, 3,58,10) = (/ &
+     &9.4508e+02_rb,8.6656e+02_rb,7.4311e+02_rb,5.2072e+02_rb,4.5299e+00_rb/)
+      kbo(:, 4,58,10) = (/ &
+     &1.2473e+03_rb,1.1436e+03_rb,9.8061e+02_rb,6.8699e+02_rb,5.3595e+00_rb/)
+      kbo(:, 5,58,10) = (/ &
+     &1.6559e+03_rb,1.5182e+03_rb,1.3018e+03_rb,9.1191e+02_rb,6.1054e+00_rb/)
+      kbo(:, 1,59,10) = (/ &
+     &5.5953e+02_rb,4.8866e+02_rb,3.8993e+02_rb,2.4311e+02_rb,2.7081e+00_rb/)
+      kbo(:, 2,59,10) = (/ &
+     &7.5600e+02_rb,6.6022e+02_rb,5.2680e+02_rb,3.2817e+02_rb,3.5280e+00_rb/)
+      kbo(:, 3,59,10) = (/ &
+     &1.0213e+03_rb,8.9185e+02_rb,7.1155e+02_rb,4.4309e+02_rb,4.3511e+00_rb/)
+      kbo(:, 4,59,10) = (/ &
+     &1.3747e+03_rb,1.2004e+03_rb,9.5765e+02_rb,5.9615e+02_rb,5.1215e+00_rb/)
+      kbo(:, 5,59,10) = (/ &
+     &1.8474e+03_rb,1.6131e+03_rb,1.2868e+03_rb,8.0091e+02_rb,5.9179e+00_rb/)
+      kbo(:, 1,13,11) = (/ &
+     &1.9556e+05_rb,1.4667e+05_rb,9.7780e+04_rb,4.8890e+04_rb,3.8293e+00_rb/)
+      kbo(:, 2,13,11) = (/ &
+     &1.9579e+05_rb,1.4684e+05_rb,9.7894e+04_rb,4.8947e+04_rb,3.6477e+00_rb/)
+      kbo(:, 3,13,11) = (/ &
+     &1.9489e+05_rb,1.4617e+05_rb,9.7447e+04_rb,4.8724e+04_rb,3.6240e+00_rb/)
+      kbo(:, 4,13,11) = (/ &
+     &1.9354e+05_rb,1.4515e+05_rb,9.6770e+04_rb,4.8385e+04_rb,3.4253e+00_rb/)
+      kbo(:, 5,13,11) = (/ &
+     &1.9176e+05_rb,1.4382e+05_rb,9.5882e+04_rb,4.7942e+04_rb,3.3965e+00_rb/)
+      kbo(:, 1,14,11) = (/ &
+     &1.2532e+05_rb,9.3990e+04_rb,6.2660e+04_rb,3.1330e+04_rb,4.2132e+00_rb/)
+      kbo(:, 2,14,11) = (/ &
+     &1.2490e+05_rb,9.3675e+04_rb,6.2450e+04_rb,3.1225e+04_rb,4.0914e+00_rb/)
+      kbo(:, 3,14,11) = (/ &
+     &1.2400e+05_rb,9.3003e+04_rb,6.2001e+04_rb,3.1001e+04_rb,4.0126e+00_rb/)
+      kbo(:, 4,14,11) = (/ &
+     &1.2262e+05_rb,9.1963e+04_rb,6.1309e+04_rb,3.0654e+04_rb,3.8288e+00_rb/)
+      kbo(:, 5,14,11) = (/ &
+     &1.2099e+05_rb,9.0745e+04_rb,6.0496e+04_rb,3.0248e+04_rb,3.6494e+00_rb/)
+      kbo(:, 1,15,11) = (/ &
+     &8.0146e+04_rb,6.0110e+04_rb,4.0074e+04_rb,2.0037e+04_rb,4.6025e+00_rb/)
+      kbo(:, 2,15,11) = (/ &
+     &7.9365e+04_rb,5.9524e+04_rb,3.9683e+04_rb,1.9842e+04_rb,4.5011e+00_rb/)
+      kbo(:, 3,15,11) = (/ &
+     &7.8437e+04_rb,5.8828e+04_rb,3.9219e+04_rb,1.9610e+04_rb,4.3995e+00_rb/)
+      kbo(:, 4,15,11) = (/ &
+     &7.7471e+04_rb,5.8104e+04_rb,3.8736e+04_rb,1.9369e+04_rb,4.3087e+00_rb/)
+      kbo(:, 5,15,11) = (/ &
+     &7.6167e+04_rb,5.7126e+04_rb,3.8084e+04_rb,1.9043e+04_rb,4.1657e+00_rb/)
+      kbo(:, 1,16,11) = (/ &
+     &5.9412e+04_rb,4.4559e+04_rb,2.9706e+04_rb,1.4854e+04_rb,4.9879e+00_rb/)
+      kbo(:, 2,16,11) = (/ &
+     &5.8737e+04_rb,4.4053e+04_rb,2.9369e+04_rb,1.4685e+04_rb,4.8952e+00_rb/)
+      kbo(:, 3,16,11) = (/ &
+     &5.7913e+04_rb,4.3435e+04_rb,2.8957e+04_rb,1.4479e+04_rb,4.7931e+00_rb/)
+      kbo(:, 4,16,11) = (/ &
+     &5.6912e+04_rb,4.2684e+04_rb,2.8456e+04_rb,1.4229e+04_rb,4.7058e+00_rb/)
+      kbo(:, 5,16,11) = (/ &
+     &5.5858e+04_rb,4.1894e+04_rb,2.7929e+04_rb,1.3965e+04_rb,4.5654e+00_rb/)
+      kbo(:, 1,17,11) = (/ &
+     &4.4739e+04_rb,3.3554e+04_rb,2.2370e+04_rb,1.1185e+04_rb,5.4258e+00_rb/)
+      kbo(:, 2,17,11) = (/ &
+     &4.4040e+04_rb,3.3030e+04_rb,2.2020e+04_rb,1.1011e+04_rb,5.3316e+00_rb/)
+      kbo(:, 3,17,11) = (/ &
+     &4.3278e+04_rb,3.2459e+04_rb,2.1639e+04_rb,1.0820e+04_rb,5.2258e+00_rb/)
+      kbo(:, 4,17,11) = (/ &
+     &4.2484e+04_rb,3.1863e+04_rb,2.1242e+04_rb,1.0622e+04_rb,5.1306e+00_rb/)
+      kbo(:, 5,17,11) = (/ &
+     &4.1610e+04_rb,3.1208e+04_rb,2.0805e+04_rb,1.0403e+04_rb,4.9611e+00_rb/)
+      kbo(:, 1,18,11) = (/ &
+     &3.3808e+04_rb,2.5356e+04_rb,1.6904e+04_rb,8.4526e+03_rb,5.9588e+00_rb/)
+      kbo(:, 2,18,11) = (/ &
+     &3.3205e+04_rb,2.4904e+04_rb,1.6603e+04_rb,8.3019e+03_rb,5.8553e+00_rb/)
+      kbo(:, 3,18,11) = (/ &
+     &3.2587e+04_rb,2.4440e+04_rb,1.6294e+04_rb,8.1473e+03_rb,5.7407e+00_rb/)
+      kbo(:, 4,18,11) = (/ &
+     &3.1890e+04_rb,2.3917e+04_rb,1.5945e+04_rb,7.9729e+03_rb,5.6396e+00_rb/)
+      kbo(:, 5,18,11) = (/ &
+     &3.1157e+04_rb,2.3368e+04_rb,1.5579e+04_rb,7.7897e+03_rb,5.4685e+00_rb/)
+      kbo(:, 1,19,11) = (/ &
+     &2.4641e+04_rb,1.8481e+04_rb,1.2321e+04_rb,6.1608e+03_rb,6.5634e+00_rb/)
+      kbo(:, 2,19,11) = (/ &
+     &2.4168e+04_rb,1.8126e+04_rb,1.2084e+04_rb,6.0424e+03_rb,6.4593e+00_rb/)
+      kbo(:, 3,19,11) = (/ &
+     &2.3646e+04_rb,1.7735e+04_rb,1.1823e+04_rb,5.9120e+03_rb,6.3292e+00_rb/)
+      kbo(:, 4,19,11) = (/ &
+     &2.3077e+04_rb,1.7308e+04_rb,1.1539e+04_rb,5.7697e+03_rb,6.2034e+00_rb/)
+      kbo(:, 5,19,11) = (/ &
+     &2.2489e+04_rb,1.6867e+04_rb,1.1245e+04_rb,5.6226e+03_rb,6.0369e+00_rb/)
+      kbo(:, 1,20,11) = (/ &
+     &1.9106e+04_rb,1.4330e+04_rb,9.5533e+03_rb,4.7770e+03_rb,7.1646e+00_rb/)
+      kbo(:, 2,20,11) = (/ &
+     &1.8682e+04_rb,1.4011e+04_rb,9.3411e+03_rb,4.6709e+03_rb,7.0409e+00_rb/)
+      kbo(:, 3,20,11) = (/ &
+     &1.8224e+04_rb,1.3668e+04_rb,9.1125e+03_rb,4.5566e+03_rb,6.8869e+00_rb/)
+      kbo(:, 4,20,11) = (/ &
+     &1.7734e+04_rb,1.3300e+04_rb,8.8671e+03_rb,4.4339e+03_rb,6.7557e+00_rb/)
+      kbo(:, 5,20,11) = (/ &
+     &1.7241e+04_rb,1.2931e+04_rb,8.6211e+03_rb,4.3109e+03_rb,6.6027e+00_rb/)
+      kbo(:, 1,21,11) = (/ &
+     &1.5039e+04_rb,1.1280e+04_rb,7.5200e+03_rb,3.7604e+03_rb,7.7170e+00_rb/)
+      kbo(:, 2,21,11) = (/ &
+     &1.4660e+04_rb,1.0995e+04_rb,7.3306e+03_rb,3.6657e+03_rb,7.5835e+00_rb/)
+      kbo(:, 3,21,11) = (/ &
+     &1.4253e+04_rb,1.0690e+04_rb,7.1270e+03_rb,3.5639e+03_rb,7.4413e+00_rb/)
+      kbo(:, 4,21,11) = (/ &
+     &1.3848e+04_rb,1.0387e+04_rb,6.9246e+03_rb,3.4627e+03_rb,7.3214e+00_rb/)
+      kbo(:, 5,21,11) = (/ &
+     &1.3474e+04_rb,1.0106e+04_rb,6.7374e+03_rb,3.3691e+03_rb,7.1721e+00_rb/)
+      kbo(:, 1,22,11) = (/ &
+     &1.1928e+04_rb,8.9459e+03_rb,5.9642e+03_rb,2.9825e+03_rb,8.2536e+00_rb/)
+      kbo(:, 2,22,11) = (/ &
+     &1.1588e+04_rb,8.6914e+03_rb,5.7946e+03_rb,2.8977e+03_rb,8.1353e+00_rb/)
+      kbo(:, 3,22,11) = (/ &
+     &1.1261e+04_rb,8.4462e+03_rb,5.6311e+03_rb,2.8159e+03_rb,8.0046e+00_rb/)
+      kbo(:, 4,22,11) = (/ &
+     &1.0981e+04_rb,8.2362e+03_rb,5.4911e+03_rb,2.7459e+03_rb,7.8868e+00_rb/)
+      kbo(:, 5,22,11) = (/ &
+     &1.0767e+04_rb,8.0756e+03_rb,5.3840e+03_rb,2.6924e+03_rb,7.7103e+00_rb/)
+      kbo(:, 1,23,11) = (/ &
+     &9.3738e+03_rb,7.0305e+03_rb,4.6873e+03_rb,2.3441e+03_rb,8.7957e+00_rb/)
+      kbo(:, 2,23,11) = (/ &
+     &9.1120e+03_rb,6.8342e+03_rb,4.5564e+03_rb,2.2786e+03_rb,8.6750e+00_rb/)
+      kbo(:, 3,23,11) = (/ &
+     &8.9119e+03_rb,6.6842e+03_rb,4.4564e+03_rb,2.2286e+03_rb,8.5667e+00_rb/)
+      kbo(:, 4,23,11) = (/ &
+     &8.7698e+03_rb,6.5776e+03_rb,4.3853e+03_rb,2.1931e+03_rb,8.4437e+00_rb/)
+      kbo(:, 5,23,11) = (/ &
+     &8.7064e+03_rb,6.5300e+03_rb,4.3536e+03_rb,2.1772e+03_rb,8.2499e+00_rb/)
+      kbo(:, 1,24,11) = (/ &
+     &7.2818e+03_rb,5.4615e+03_rb,3.6413e+03_rb,1.8211e+03_rb,9.3047e+00_rb/)
+      kbo(:, 2,24,11) = (/ &
+     &7.1398e+03_rb,5.3551e+03_rb,3.5703e+03_rb,1.7856e+03_rb,9.1844e+00_rb/)
+      kbo(:, 3,24,11) = (/ &
+     &7.0551e+03_rb,5.2916e+03_rb,3.5280e+03_rb,1.7644e+03_rb,9.0906e+00_rb/)
+      kbo(:, 4,24,11) = (/ &
+     &7.0561e+03_rb,5.2923e+03_rb,3.5284e+03_rb,1.7646e+03_rb,8.9639e+00_rb/)
+      kbo(:, 5,24,11) = (/ &
+     &7.1200e+03_rb,5.3402e+03_rb,3.5604e+03_rb,1.7806e+03_rb,8.7597e+00_rb/)
+      kbo(:, 1,25,11) = (/ &
+     &5.7829e+03_rb,4.3374e+03_rb,2.8918e+03_rb,1.4463e+03_rb,9.7531e+00_rb/)
+      kbo(:, 2,25,11) = (/ &
+     &5.7416e+03_rb,4.3064e+03_rb,2.8712e+03_rb,1.4360e+03_rb,9.6333e+00_rb/)
+      kbo(:, 3,25,11) = (/ &
+     &5.7703e+03_rb,4.3279e+03_rb,2.8855e+03_rb,1.4432e+03_rb,9.5575e+00_rb/)
+      kbo(:, 4,25,11) = (/ &
+     &5.8528e+03_rb,4.3898e+03_rb,2.9268e+03_rb,1.4638e+03_rb,9.4320e+00_rb/)
+      kbo(:, 5,25,11) = (/ &
+     &5.9946e+03_rb,4.4961e+03_rb,2.9977e+03_rb,1.4993e+03_rb,9.2048e+00_rb/)
+      kbo(:, 1,26,11) = (/ &
+     &4.7547e+03_rb,3.5662e+03_rb,2.3777e+03_rb,1.1892e+03_rb,1.0127e+01_rb/)
+      kbo(:, 2,26,11) = (/ &
+     &4.7969e+03_rb,3.5979e+03_rb,2.3989e+03_rb,1.1999e+03_rb,1.0014e+01_rb/)
+      kbo(:, 3,26,11) = (/ &
+     &4.8916e+03_rb,3.6689e+03_rb,2.4462e+03_rb,1.2235e+03_rb,9.9567e+00_rb/)
+      kbo(:, 4,26,11) = (/ &
+     &5.0339e+03_rb,3.7756e+03_rb,2.5174e+03_rb,1.2591e+03_rb,9.8430e+00_rb/)
+      kbo(:, 5,26,11) = (/ &
+     &5.1881e+03_rb,3.8913e+03_rb,2.5944e+03_rb,1.2976e+03_rb,9.5879e+00_rb/)
+      kbo(:, 1,27,11) = (/ &
+     &4.1434e+03_rb,3.1078e+03_rb,2.0721e+03_rb,1.0365e+03_rb,1.0438e+01_rb/)
+      kbo(:, 2,27,11) = (/ &
+     &4.2449e+03_rb,3.1839e+03_rb,2.1229e+03_rb,1.0619e+03_rb,1.0375e+01_rb/)
+      kbo(:, 3,27,11) = (/ &
+     &4.3814e+03_rb,3.2863e+03_rb,2.1911e+03_rb,1.0960e+03_rb,1.0314e+01_rb/)
+      kbo(:, 4,27,11) = (/ &
+     &4.5344e+03_rb,3.4010e+03_rb,2.2676e+03_rb,1.1342e+03_rb,1.0178e+01_rb/)
+      kbo(:, 5,27,11) = (/ &
+     &4.7035e+03_rb,3.5278e+03_rb,2.3521e+03_rb,1.1764e+03_rb,9.9184e+00_rb/)
+      kbo(:, 1,28,11) = (/ &
+     &3.7712e+03_rb,2.8287e+03_rb,1.8861e+03_rb,9.4351e+02_rb,1.0688e+01_rb/)
+      kbo(:, 2,28,11) = (/ &
+     &3.9032e+03_rb,2.9276e+03_rb,1.9520e+03_rb,9.7644e+02_rb,1.0679e+01_rb/)
+      kbo(:, 3,28,11) = (/ &
+     &4.0571e+03_rb,3.0430e+03_rb,2.0289e+03_rb,1.0148e+03_rb,1.0623e+01_rb/)
+      kbo(:, 4,28,11) = (/ &
+     &4.2272e+03_rb,3.1706e+03_rb,2.1139e+03_rb,1.0573e+03_rb,1.0454e+01_rb/)
+      kbo(:, 5,28,11) = (/ &
+     &4.4031e+03_rb,3.3025e+03_rb,2.2018e+03_rb,1.1012e+03_rb,1.0168e+01_rb/)
+      kbo(:, 1,29,11) = (/ &
+     &3.6879e+03_rb,2.7661e+03_rb,1.8444e+03_rb,9.2260e+02_rb,1.0914e+01_rb/)
+      kbo(:, 2,29,11) = (/ &
+     &3.8440e+03_rb,2.8832e+03_rb,1.9224e+03_rb,9.6157e+02_rb,1.0945e+01_rb/)
+      kbo(:, 3,29,11) = (/ &
+     &4.0134e+03_rb,3.0102e+03_rb,2.0070e+03_rb,1.0038e+03_rb,1.0853e+01_rb/)
+      kbo(:, 4,29,11) = (/ &
+     &4.1909e+03_rb,3.1433e+03_rb,2.0957e+03_rb,1.0481e+03_rb,1.0578e+01_rb/)
+      kbo(:, 5,29,11) = (/ &
+     &4.3726e+03_rb,3.2796e+03_rb,2.1866e+03_rb,1.0936e+03_rb,1.0403e+01_rb/)
+      kbo(:, 1,30,11) = (/ &
+     &3.7192e+03_rb,2.7896e+03_rb,1.8600e+03_rb,9.3035e+02_rb,1.1141e+01_rb/)
+      kbo(:, 2,30,11) = (/ &
+     &3.8944e+03_rb,2.9210e+03_rb,1.9475e+03_rb,9.7411e+02_rb,1.1139e+01_rb/)
+      kbo(:, 3,30,11) = (/ &
+     &4.0753e+03_rb,3.0566e+03_rb,2.0379e+03_rb,1.0192e+03_rb,1.0970e+01_rb/)
+      kbo(:, 4,30,11) = (/ &
+     &4.2621e+03_rb,3.1967e+03_rb,2.1313e+03_rb,1.0660e+03_rb,1.0736e+01_rb/)
+      kbo(:, 5,30,11) = (/ &
+     &4.4544e+03_rb,3.3410e+03_rb,2.2275e+03_rb,1.1141e+03_rb,1.0663e+01_rb/)
+      kbo(:, 1,31,11) = (/ &
+     &3.9494e+03_rb,2.9622e+03_rb,1.9750e+03_rb,9.8786e+02_rb,1.1309e+01_rb/)
+      kbo(:, 2,31,11) = (/ &
+     &4.1497e+03_rb,3.1124e+03_rb,2.0751e+03_rb,1.0378e+03_rb,1.1233e+01_rb/)
+      kbo(:, 3,31,11) = (/ &
+     &4.3564e+03_rb,3.2674e+03_rb,2.1785e+03_rb,1.0895e+03_rb,1.1031e+01_rb/)
+      kbo(:, 4,31,11) = (/ &
+     &4.5677e+03_rb,3.4259e+03_rb,2.2841e+03_rb,1.1423e+03_rb,1.1018e+01_rb/)
+      kbo(:, 5,31,11) = (/ &
+     &4.7823e+03_rb,3.5869e+03_rb,2.3915e+03_rb,1.1960e+03_rb,1.0922e+01_rb/)
+      kbo(:, 1,32,11) = (/ &
+     &4.2398e+03_rb,3.1800e+03_rb,2.1202e+03_rb,1.0604e+03_rb,1.1395e+01_rb/)
+      kbo(:, 2,32,11) = (/ &
+     &4.4759e+03_rb,3.3571e+03_rb,2.2382e+03_rb,1.1194e+03_rb,1.1282e+01_rb/)
+      kbo(:, 3,32,11) = (/ &
+     &4.7161e+03_rb,3.5372e+03_rb,2.3583e+03_rb,1.1795e+03_rb,1.1286e+01_rb/)
+      kbo(:, 4,32,11) = (/ &
+     &4.9603e+03_rb,3.7204e+03_rb,2.4805e+03_rb,1.2406e+03_rb,1.1267e+01_rb/)
+      kbo(:, 5,32,11) = (/ &
+     &5.2103e+03_rb,3.9079e+03_rb,2.6055e+03_rb,1.3031e+03_rb,1.1177e+01_rb/)
+      kbo(:, 1,33,11) = (/ &
+     &4.6404e+03_rb,3.4804e+03_rb,2.3205e+03_rb,1.1605e+03_rb,1.1433e+01_rb/)
+      kbo(:, 2,33,11) = (/ &
+     &4.9200e+03_rb,3.6901e+03_rb,2.4603e+03_rb,1.2304e+03_rb,1.1468e+01_rb/)
+      kbo(:, 3,33,11) = (/ &
+     &5.2076e+03_rb,3.9059e+03_rb,2.6041e+03_rb,1.3024e+03_rb,1.1541e+01_rb/)
+      kbo(:, 4,33,11) = (/ &
+     &5.4986e+03_rb,4.1241e+03_rb,2.7496e+03_rb,1.3751e+03_rb,1.1519e+01_rb/)
+      kbo(:, 5,33,11) = (/ &
+     &5.8045e+03_rb,4.3535e+03_rb,2.9026e+03_rb,1.4516e+03_rb,1.1398e+01_rb/)
+      kbo(:, 1,34,11) = (/ &
+     &4.9577e+03_rb,3.7184e+03_rb,2.4791e+03_rb,1.2399e+03_rb,1.1582e+01_rb/)
+      kbo(:, 2,34,11) = (/ &
+     &5.2771e+03_rb,3.9580e+03_rb,2.6389e+03_rb,1.3198e+03_rb,1.1708e+01_rb/)
+      kbo(:, 3,34,11) = (/ &
+     &5.6109e+03_rb,4.2083e+03_rb,2.8058e+03_rb,1.4032e+03_rb,1.1770e+01_rb/)
+      kbo(:, 4,34,11) = (/ &
+     &5.9588e+03_rb,4.4693e+03_rb,2.9798e+03_rb,1.4902e+03_rb,1.1629e+01_rb/)
+      kbo(:, 5,34,11) = (/ &
+     &6.3300e+03_rb,4.7477e+03_rb,3.1654e+03_rb,1.5830e+03_rb,1.1520e+01_rb/)
+      kbo(:, 1,35,11) = (/ &
+     &5.2909e+03_rb,3.9683e+03_rb,2.6458e+03_rb,1.3232e+03_rb,1.1741e+01_rb/)
+      kbo(:, 2,35,11) = (/ &
+     &5.6548e+03_rb,4.2413e+03_rb,2.8277e+03_rb,1.4142e+03_rb,1.1903e+01_rb/)
+      kbo(:, 3,35,11) = (/ &
+     &6.0420e+03_rb,4.5317e+03_rb,3.0214e+03_rb,1.5110e+03_rb,1.1866e+01_rb/)
+      kbo(:, 4,35,11) = (/ &
+     &6.4601e+03_rb,4.8453e+03_rb,3.2304e+03_rb,1.6156e+03_rb,1.1803e+01_rb/)
+      kbo(:, 5,35,11) = (/ &
+     &6.9268e+03_rb,5.1953e+03_rb,3.4637e+03_rb,1.7322e+03_rb,1.1652e+01_rb/)
+      kbo(:, 1,36,11) = (/ &
+     &5.5884e+03_rb,4.1915e+03_rb,2.7945e+03_rb,1.3976e+03_rb,1.1878e+01_rb/)
+      kbo(:, 2,36,11) = (/ &
+     &6.0018e+03_rb,4.5015e+03_rb,3.0012e+03_rb,1.5010e+03_rb,1.2049e+01_rb/)
+      kbo(:, 3,36,11) = (/ &
+     &6.4517e+03_rb,4.8389e+03_rb,3.2262e+03_rb,1.6135e+03_rb,1.1951e+01_rb/)
+      kbo(:, 4,36,11) = (/ &
+     &6.9515e+03_rb,5.2138e+03_rb,3.4761e+03_rb,1.7384e+03_rb,1.1938e+01_rb/)
+      kbo(:, 5,36,11) = (/ &
+     &7.5289e+03_rb,5.6469e+03_rb,3.7648e+03_rb,1.8827e+03_rb,1.1892e+01_rb/)
+      kbo(:, 1,37,11) = (/ &
+     &5.7114e+03_rb,4.2838e+03_rb,2.8561e+03_rb,1.4284e+03_rb,1.1983e+01_rb/)
+      kbo(:, 2,37,11) = (/ &
+     &6.1629e+03_rb,4.6224e+03_rb,3.0818e+03_rb,1.5413e+03_rb,1.2105e+01_rb/)
+      kbo(:, 3,37,11) = (/ &
+     &6.6668e+03_rb,5.0003e+03_rb,3.3338e+03_rb,1.6673e+03_rb,1.2063e+01_rb/)
+      kbo(:, 4,37,11) = (/ &
+     &7.2441e+03_rb,5.4333e+03_rb,3.6224e+03_rb,1.8115e+03_rb,1.2103e+01_rb/)
+      kbo(:, 5,37,11) = (/ &
+     &7.9256e+03_rb,5.9443e+03_rb,3.9631e+03_rb,1.9819e+03_rb,1.2052e+01_rb/)
+      kbo(:, 1,38,11) = (/ &
+     &5.9457e+03_rb,4.4595e+03_rb,2.9732e+03_rb,1.4870e+03_rb,1.2040e+01_rb/)
+      kbo(:, 2,38,11) = (/ &
+     &6.4404e+03_rb,4.8305e+03_rb,3.2206e+03_rb,1.6107e+03_rb,1.2135e+01_rb/)
+      kbo(:, 3,38,11) = (/ &
+     &7.0103e+03_rb,5.2579e+03_rb,3.5055e+03_rb,1.7531e+03_rb,1.2201e+01_rb/)
+      kbo(:, 4,38,11) = (/ &
+     &7.6883e+03_rb,5.7664e+03_rb,3.8444e+03_rb,1.9225e+03_rb,1.2264e+01_rb/)
+      kbo(:, 5,38,11) = (/ &
+     &8.5003e+03_rb,6.3754e+03_rb,4.2504e+03_rb,2.1255e+03_rb,1.2214e+01_rb/)
+      kbo(:, 1,39,11) = (/ &
+     &6.3574e+03_rb,4.7683e+03_rb,3.1792e+03_rb,1.5900e+03_rb,1.2058e+01_rb/)
+      kbo(:, 2,39,11) = (/ &
+     &6.9172e+03_rb,5.1882e+03_rb,3.4591e+03_rb,1.7299e+03_rb,1.2221e+01_rb/)
+      kbo(:, 3,39,11) = (/ &
+     &7.5768e+03_rb,5.6828e+03_rb,3.7888e+03_rb,1.8948e+03_rb,1.2385e+01_rb/)
+      kbo(:, 4,39,11) = (/ &
+     &8.3852e+03_rb,6.2891e+03_rb,4.1930e+03_rb,2.0968e+03_rb,1.2417e+01_rb/)
+      kbo(:, 5,39,11) = (/ &
+     &9.3744e+03_rb,7.0310e+03_rb,4.6875e+03_rb,2.3441e+03_rb,1.2400e+01_rb/)
+      kbo(:, 1,40,11) = (/ &
+     &6.3544e+03_rb,4.7660e+03_rb,3.1776e+03_rb,1.5893e+03_rb,1.2034e+01_rb/)
+      kbo(:, 2,40,11) = (/ &
+     &6.9547e+03_rb,5.2162e+03_rb,3.4777e+03_rb,1.7393e+03_rb,1.2252e+01_rb/)
+      kbo(:, 3,40,11) = (/ &
+     &7.6538e+03_rb,5.7405e+03_rb,3.8272e+03_rb,1.9140e+03_rb,1.2461e+01_rb/)
+      kbo(:, 4,40,11) = (/ &
+     &8.5373e+03_rb,6.4031e+03_rb,4.2689e+03_rb,2.1348e+03_rb,1.2533e+01_rb/)
+      kbo(:, 5,40,11) = (/ &
+     &9.6388e+03_rb,7.2292e+03_rb,4.8196e+03_rb,2.4101e+03_rb,1.2526e+01_rb/)
+      kbo(:, 1,41,11) = (/ &
+     &6.3521e+03_rb,4.7643e+03_rb,3.1765e+03_rb,1.5887e+03_rb,1.1995e+01_rb/)
+      kbo(:, 2,41,11) = (/ &
+     &6.9920e+03_rb,5.2442e+03_rb,3.4964e+03_rb,1.7486e+03_rb,1.2280e+01_rb/)
+      kbo(:, 3,41,11) = (/ &
+     &7.7375e+03_rb,5.8033e+03_rb,3.8691e+03_rb,1.9349e+03_rb,1.2499e+01_rb/)
+      kbo(:, 4,41,11) = (/ &
+     &8.6900e+03_rb,6.5177e+03_rb,4.3453e+03_rb,2.1730e+03_rb,1.2628e+01_rb/)
+      kbo(:, 5,41,11) = (/ &
+     &9.9008e+03_rb,7.4257e+03_rb,4.9507e+03_rb,2.4756e+03_rb,1.2622e+01_rb/)
+      kbo(:, 1,42,11) = (/ &
+     &6.4377e+03_rb,4.8285e+03_rb,3.2193e+03_rb,1.6101e+03_rb,1.1943e+01_rb/)
+      kbo(:, 2,42,11) = (/ &
+     &7.1284e+03_rb,5.3465e+03_rb,3.5646e+03_rb,1.7827e+03_rb,1.2311e+01_rb/)
+      kbo(:, 3,42,11) = (/ &
+     &7.9472e+03_rb,5.9606e+03_rb,3.9739e+03_rb,1.9873e+03_rb,1.2580e+01_rb/)
+      kbo(:, 4,42,11) = (/ &
+     &8.9767e+03_rb,6.7326e+03_rb,4.4886e+03_rb,2.2446e+03_rb,1.2710e+01_rb/)
+      kbo(:, 5,42,11) = (/ &
+     &1.0302e+04_rb,7.7266e+03_rb,5.1512e+03_rb,2.5758e+03_rb,1.2734e+01_rb/)
+      kbo(:, 1,43,11) = (/ &
+     &6.5684e+03_rb,4.9266e+03_rb,3.2847e+03_rb,1.6428e+03_rb,1.1839e+01_rb/)
+      kbo(:, 2,43,11) = (/ &
+     &7.3100e+03_rb,5.4827e+03_rb,3.6554e+03_rb,1.8281e+03_rb,1.2298e+01_rb/)
+      kbo(:, 3,43,11) = (/ &
+     &8.2069e+03_rb,6.1553e+03_rb,4.1038e+03_rb,2.0523e+03_rb,1.2585e+01_rb/)
+      kbo(:, 4,43,11) = (/ &
+     &9.3215e+03_rb,6.9913e+03_rb,4.6611e+03_rb,2.3308e+03_rb,1.2796e+01_rb/)
+      kbo(:, 5,43,11) = (/ &
+     &1.0756e+04_rb,8.0671e+03_rb,5.3782e+03_rb,2.6894e+03_rb,1.2802e+01_rb/)
+      kbo(:, 1,44,11) = (/ &
+     &6.7770e+03_rb,5.0829e+03_rb,3.3889e+03_rb,1.6949e+03_rb,1.1696e+01_rb/)
+      kbo(:, 2,44,11) = (/ &
+     &7.6014e+03_rb,5.7012e+03_rb,3.8011e+03_rb,1.9009e+03_rb,1.2235e+01_rb/)
+      kbo(:, 3,44,11) = (/ &
+     &8.5905e+03_rb,6.4430e+03_rb,4.2955e+03_rb,2.1481e+03_rb,1.2598e+01_rb/)
+      kbo(:, 4,44,11) = (/ &
+     &9.8167e+03_rb,7.3626e+03_rb,4.9086e+03_rb,2.4546e+03_rb,1.2843e+01_rb/)
+      kbo(:, 5,44,11) = (/ &
+     &1.1370e+04_rb,8.5274e+03_rb,5.6850e+03_rb,2.8427e+03_rb,1.2862e+01_rb/)
+      kbo(:, 1,45,11) = (/ &
+     &7.1337e+03_rb,5.3505e+03_rb,3.5673e+03_rb,1.7841e+03_rb,1.1553e+01_rb/)
+      kbo(:, 2,45,11) = (/ &
+     &8.0813e+03_rb,6.0612e+03_rb,4.0411e+03_rb,2.0209e+03_rb,1.2213e+01_rb/)
+      kbo(:, 3,45,11) = (/ &
+     &9.1915e+03_rb,6.8938e+03_rb,4.5961e+03_rb,2.2984e+03_rb,1.2577e+01_rb/)
+      kbo(:, 4,45,11) = (/ &
+     &1.0572e+04_rb,7.9290e+03_rb,5.2862e+03_rb,2.6434e+03_rb,1.2862e+01_rb/)
+      kbo(:, 5,45,11) = (/ &
+     &1.2294e+04_rb,9.2203e+03_rb,6.1470e+03_rb,3.0738e+03_rb,1.2905e+01_rb/)
+      kbo(:, 1,46,11) = (/ &
+     &7.5574e+03_rb,5.6683e+03_rb,3.7792e+03_rb,1.8901e+03_rb,1.1372e+01_rb/)
+      kbo(:, 2,46,11) = (/ &
+     &8.6566e+03_rb,6.4927e+03_rb,4.3287e+03_rb,2.1648e+03_rb,1.2098e+01_rb/)
+      kbo(:, 3,46,11) = (/ &
+     &9.9311e+03_rb,7.4485e+03_rb,4.9659e+03_rb,2.4833e+03_rb,1.2508e+01_rb/)
+      kbo(:, 4,46,11) = (/ &
+     &1.1483e+04_rb,8.6121e+03_rb,5.7416e+03_rb,2.8711e+03_rb,1.2889e+01_rb/)
+      kbo(:, 5,46,11) = (/ &
+     &1.3417e+04_rb,1.0063e+04_rb,6.7088e+03_rb,3.3546e+03_rb,1.2962e+01_rb/)
+      kbo(:, 1,47,11) = (/ &
+     &7.8727e+03_rb,5.9048e+03_rb,3.9368e+03_rb,1.9689e+03_rb,1.1120e+01_rb/)
+      kbo(:, 2,47,11) = (/ &
+     &9.1356e+03_rb,6.8519e+03_rb,4.5682e+03_rb,2.2845e+03_rb,1.1918e+01_rb/)
+      kbo(:, 3,47,11) = (/ &
+     &1.0582e+04_rb,7.9368e+03_rb,5.2914e+03_rb,2.6461e+03_rb,1.2406e+01_rb/)
+      kbo(:, 4,47,11) = (/ &
+     &1.2301e+04_rb,9.2260e+03_rb,6.1509e+03_rb,3.0757e+03_rb,1.2816e+01_rb/)
+      kbo(:, 5,47,11) = (/ &
+     &1.4433e+04_rb,1.0825e+04_rb,7.2167e+03_rb,3.6086e+03_rb,1.2983e+01_rb/)
+      kbo(:, 1,48,11) = (/ &
+     &8.4035e+03_rb,6.3029e+03_rb,4.2022e+03_rb,2.1016e+03_rb,1.0897e+01_rb/)
+      kbo(:, 2,48,11) = (/ &
+     &9.8931e+03_rb,7.4200e+03_rb,4.9470e+03_rb,2.4739e+03_rb,1.1706e+01_rb/)
+      kbo(:, 3,48,11) = (/ &
+     &1.1589e+04_rb,8.6922e+03_rb,5.7950e+03_rb,2.8979e+03_rb,1.2313e+01_rb/)
+      kbo(:, 4,48,11) = (/ &
+     &1.3567e+04_rb,1.0175e+04_rb,6.7839e+03_rb,3.3922e+03_rb,1.2741e+01_rb/)
+      kbo(:, 5,48,11) = (/ &
+     &1.5977e+04_rb,1.1983e+04_rb,7.9888e+03_rb,3.9947e+03_rb,1.2994e+01_rb/)
+      kbo(:, 1,49,11) = (/ &
+     &9.3222e+03_rb,6.9919e+03_rb,4.6615e+03_rb,2.3312e+03_rb,1.0633e+01_rb/)
+      kbo(:, 2,49,11) = (/ &
+     &1.1123e+04_rb,8.3424e+03_rb,5.5619e+03_rb,2.7813e+03_rb,1.1478e+01_rb/)
+      kbo(:, 3,49,11) = (/ &
+     &1.3212e+04_rb,9.9089e+03_rb,6.6061e+03_rb,3.3034e+03_rb,1.2190e+01_rb/)
+      kbo(:, 4,49,11) = (/ &
+     &1.5603e+04_rb,1.1702e+04_rb,7.8017e+03_rb,3.9011e+03_rb,1.2697e+01_rb/)
+      kbo(:, 5,49,11) = (/ &
+     &1.8442e+04_rb,1.3832e+04_rb,9.2215e+03_rb,4.6110e+03_rb,1.3027e+01_rb/)
+      kbo(:, 1,50,11) = (/ &
+     &9.8729e+03_rb,7.4049e+03_rb,4.9369e+03_rb,2.4688e+03_rb,1.0346e+01_rb/)
+      kbo(:, 2,50,11) = (/ &
+     &1.1927e+04_rb,8.9452e+03_rb,5.9637e+03_rb,2.9822e+03_rb,1.1213e+01_rb/)
+      kbo(:, 3,50,11) = (/ &
+     &1.4376e+04_rb,1.0782e+04_rb,7.1884e+03_rb,3.5945e+03_rb,1.2042e+01_rb/)
+      kbo(:, 4,50,11) = (/ &
+     &1.7156e+04_rb,1.2867e+04_rb,8.5782e+03_rb,4.2894e+03_rb,1.2592e+01_rb/)
+      kbo(:, 5,50,11) = (/ &
+     &2.0387e+04_rb,1.5290e+04_rb,1.0194e+04_rb,5.0970e+03_rb,1.3035e+01_rb/)
+      kbo(:, 1,51,11) = (/ &
+     &1.0246e+04_rb,7.6846e+03_rb,5.1234e+03_rb,2.5621e+03_rb,1.0080e+01_rb/)
+      kbo(:, 2,51,11) = (/ &
+     &1.2504e+04_rb,9.3781e+03_rb,6.2523e+03_rb,3.1265e+03_rb,1.0959e+01_rb/)
+      kbo(:, 3,51,11) = (/ &
+     &1.5294e+04_rb,1.1471e+04_rb,7.6476e+03_rb,3.8241e+03_rb,1.1913e+01_rb/)
+      kbo(:, 4,51,11) = (/ &
+     &1.8483e+04_rb,1.3863e+04_rb,9.2420e+03_rb,4.6213e+03_rb,1.2523e+01_rb/)
+      kbo(:, 5,51,11) = (/ &
+     &2.2103e+04_rb,1.6577e+04_rb,1.1052e+04_rb,5.5261e+03_rb,1.3008e+01_rb/)
+      kbo(:, 1,52,11) = (/ &
+     &1.0919e+04_rb,8.1898e+03_rb,5.4601e+03_rb,2.7304e+03_rb,9.7365e+00_rb/)
+      kbo(:, 2,52,11) = (/ &
+     &1.3474e+04_rb,1.0106e+04_rb,6.7375e+03_rb,3.3691e+03_rb,1.0715e+01_rb/)
+      kbo(:, 3,52,11) = (/ &
+     &1.6692e+04_rb,1.2519e+04_rb,8.3465e+03_rb,4.1736e+03_rb,1.1714e+01_rb/)
+      kbo(:, 4,52,11) = (/ &
+     &2.0445e+04_rb,1.5334e+04_rb,1.0223e+04_rb,5.1117e+03_rb,1.2415e+01_rb/)
+      kbo(:, 5,52,11) = (/ &
+     &2.4642e+04_rb,1.8481e+04_rb,1.2321e+04_rb,6.1608e+03_rb,1.2964e+01_rb/)
+      kbo(:, 1,53,11) = (/ &
+     &1.2096e+04_rb,9.0720e+03_rb,6.0483e+03_rb,3.0245e+03_rb,9.3807e+00_rb/)
+      kbo(:, 2,53,11) = (/ &
+     &1.5115e+04_rb,1.1337e+04_rb,7.5582e+03_rb,3.7794e+03_rb,1.0467e+01_rb/)
+      kbo(:, 3,53,11) = (/ &
+     &1.8931e+04_rb,1.4199e+04_rb,9.4661e+03_rb,4.7334e+03_rb,1.1520e+01_rb/)
+      kbo(:, 4,53,11) = (/ &
+     &2.3491e+04_rb,1.7618e+04_rb,1.1746e+04_rb,5.8732e+03_rb,1.2292e+01_rb/)
+      kbo(:, 5,53,11) = (/ &
+     &2.8602e+04_rb,2.1452e+04_rb,1.4301e+04_rb,7.1510e+03_rb,1.2913e+01_rb/)
+      kbo(:, 1,54,11) = (/ &
+     &1.1628e+04_rb,8.7215e+03_rb,5.8146e+03_rb,2.9077e+03_rb,8.9653e+00_rb/)
+      kbo(:, 2,54,11) = (/ &
+     &1.4721e+04_rb,1.1041e+04_rb,7.3608e+03_rb,3.6808e+03_rb,1.0130e+01_rb/)
+      kbo(:, 3,54,11) = (/ &
+     &1.8638e+04_rb,1.3979e+04_rb,9.3193e+03_rb,4.6600e+03_rb,1.1195e+01_rb/)
+      kbo(:, 4,54,11) = (/ &
+     &2.3417e+04_rb,1.7563e+04_rb,1.1709e+04_rb,5.8547e+03_rb,1.2060e+01_rb/)
+      kbo(:, 5,54,11) = (/ &
+     &2.8828e+04_rb,2.1621e+04_rb,1.4414e+04_rb,7.2075e+03_rb,1.2739e+01_rb/)
+      kbo(:, 1,55,11) = (/ &
+     &1.0209e+04_rb,7.6567e+03_rb,5.1047e+03_rb,2.5527e+03_rb,8.5323e+00_rb/)
+      kbo(:, 2,55,11) = (/ &
+     &1.3095e+04_rb,9.8211e+03_rb,6.5477e+03_rb,3.2742e+03_rb,9.7667e+00_rb/)
+      kbo(:, 3,55,11) = (/ &
+     &1.6780e+04_rb,1.2585e+04_rb,8.3901e+03_rb,4.1954e+03_rb,1.0760e+01_rb/)
+      kbo(:, 4,55,11) = (/ &
+     &2.1308e+04_rb,1.5981e+04_rb,1.0654e+04_rb,5.3275e+03_rb,1.1787e+01_rb/)
+      kbo(:, 5,55,11) = (/ &
+     &2.6526e+04_rb,1.9895e+04_rb,1.3264e+04_rb,6.6321e+03_rb,1.2490e+01_rb/)
+      kbo(:, 1,56,11) = (/ &
+     &8.9242e+03_rb,6.6933e+03_rb,4.4624e+03_rb,2.2315e+03_rb,8.1192e+00_rb/)
+      kbo(:, 2,56,11) = (/ &
+     &1.1623e+04_rb,8.7170e+03_rb,5.8115e+03_rb,2.9061e+03_rb,9.3346e+00_rb/)
+      kbo(:, 3,56,11) = (/ &
+     &1.5096e+04_rb,1.1322e+04_rb,7.5482e+03_rb,3.7744e+03_rb,1.0408e+01_rb/)
+      kbo(:, 4,56,11) = (/ &
+     &1.9354e+04_rb,1.4515e+04_rb,9.6771e+03_rb,4.8388e+03_rb,1.1396e+01_rb/)
+      kbo(:, 5,56,11) = (/ &
+     &2.4338e+04_rb,1.8253e+04_rb,1.2169e+04_rb,6.0847e+03_rb,1.2212e+01_rb/)
+      kbo(:, 1,57,11) = (/ &
+     &7.7622e+03_rb,5.8218e+03_rb,3.8814e+03_rb,1.9410e+03_rb,7.7106e+00_rb/)
+      kbo(:, 2,57,11) = (/ &
+     &1.0290e+04_rb,7.7178e+03_rb,5.1454e+03_rb,2.5730e+03_rb,8.9363e+00_rb/)
+      kbo(:, 3,57,11) = (/ &
+     &1.3552e+04_rb,1.0164e+04_rb,6.7760e+03_rb,3.3882e+03_rb,1.0051e+01_rb/)
+      kbo(:, 4,57,11) = (/ &
+     &1.7543e+04_rb,1.3157e+04_rb,8.7715e+03_rb,4.3860e+03_rb,1.0990e+01_rb/)
+      kbo(:, 5,57,11) = (/ &
+     &2.2284e+04_rb,1.6713e+04_rb,1.1142e+04_rb,5.5714e+03_rb,1.1934e+01_rb/)
+      kbo(:, 1,58,11) = (/ &
+     &1.7767e+03_rb,1.6290e+03_rb,1.3968e+03_rb,9.7855e+02_rb,7.2858e+00_rb/)
+      kbo(:, 2,58,11) = (/ &
+     &2.4068e+03_rb,2.2067e+03_rb,1.8922e+03_rb,1.3254e+03_rb,8.5609e+00_rb/)
+      kbo(:, 3,58,11) = (/ &
+     &3.2122e+03_rb,2.9452e+03_rb,2.5253e+03_rb,1.7688e+03_rb,9.6597e+00_rb/)
+      kbo(:, 4,58,11) = (/ &
+     &4.2027e+03_rb,3.8533e+03_rb,3.3039e+03_rb,2.3142e+03_rb,1.0637e+01_rb/)
+      kbo(:, 5,58,11) = (/ &
+     &5.3882e+03_rb,4.9402e+03_rb,4.2359e+03_rb,2.9669e+03_rb,1.1542e+01_rb/)
+      kbo(:, 1,59,11) = (/ &
+     &1.9233e+03_rb,1.6794e+03_rb,1.3397e+03_rb,8.3393e+02_rb,7.1275e+00_rb/)
+      kbo(:, 2,59,11) = (/ &
+     &2.6585e+03_rb,2.3214e+03_rb,1.8518e+03_rb,1.1525e+03_rb,8.4302e+00_rb/)
+      kbo(:, 3,59,11) = (/ &
+     &3.5898e+03_rb,3.1345e+03_rb,2.5004e+03_rb,1.5561e+03_rb,9.5360e+00_rb/)
+      kbo(:, 4,59,11) = (/ &
+     &4.7292e+03_rb,4.1294e+03_rb,3.2940e+03_rb,2.0499e+03_rb,1.0472e+01_rb/)
+      kbo(:, 5,59,11) = (/ &
+     &6.0902e+03_rb,5.3178e+03_rb,4.2419e+03_rb,2.6398e+03_rb,1.1150e+01_rb/)
+      kbo(:, 1,13,12) = (/ &
+     &2.7240e+05_rb,2.0430e+05_rb,1.3620e+05_rb,6.8101e+04_rb,4.4161e+00_rb/)
+      kbo(:, 2,13,12) = (/ &
+     &2.7176e+05_rb,2.0382e+05_rb,1.3588e+05_rb,6.7942e+04_rb,4.2840e+00_rb/)
+      kbo(:, 3,13,12) = (/ &
+     &2.7001e+05_rb,2.0251e+05_rb,1.3501e+05_rb,6.7503e+04_rb,4.1173e+00_rb/)
+      kbo(:, 4,13,12) = (/ &
+     &2.6763e+05_rb,2.0073e+05_rb,1.3382e+05_rb,6.6909e+04_rb,3.9336e+00_rb/)
+      kbo(:, 5,13,12) = (/ &
+     &2.6442e+05_rb,1.9831e+05_rb,1.3221e+05_rb,6.6105e+04_rb,3.6961e+00_rb/)
+      kbo(:, 1,14,12) = (/ &
+     &1.8113e+05_rb,1.3585e+05_rb,9.0565e+04_rb,4.5283e+04_rb,4.8454e+00_rb/)
+      kbo(:, 2,14,12) = (/ &
+     &1.8030e+05_rb,1.3523e+05_rb,9.0150e+04_rb,4.5075e+04_rb,4.6873e+00_rb/)
+      kbo(:, 3,14,12) = (/ &
+     &1.7856e+05_rb,1.3392e+05_rb,8.9279e+04_rb,4.4640e+04_rb,4.6210e+00_rb/)
+      kbo(:, 4,14,12) = (/ &
+     &1.7661e+05_rb,1.3246e+05_rb,8.8303e+04_rb,4.4152e+04_rb,4.4506e+00_rb/)
+      kbo(:, 5,14,12) = (/ &
+     &1.7414e+05_rb,1.3060e+05_rb,8.7069e+04_rb,4.3535e+04_rb,4.3231e+00_rb/)
+      kbo(:, 1,15,12) = (/ &
+     &1.2085e+05_rb,9.0635e+04_rb,6.0424e+04_rb,3.0213e+04_rb,5.3476e+00_rb/)
+      kbo(:, 2,15,12) = (/ &
+     &1.1987e+05_rb,8.9903e+04_rb,5.9936e+04_rb,2.9969e+04_rb,5.2285e+00_rb/)
+      kbo(:, 3,15,12) = (/ &
+     &1.1863e+05_rb,8.8976e+04_rb,5.9318e+04_rb,2.9660e+04_rb,5.0918e+00_rb/)
+      kbo(:, 4,15,12) = (/ &
+     &1.1686e+05_rb,8.7649e+04_rb,5.8433e+04_rb,2.9217e+04_rb,4.9903e+00_rb/)
+      kbo(:, 5,15,12) = (/ &
+     &1.1485e+05_rb,8.6139e+04_rb,5.7427e+04_rb,2.8714e+04_rb,4.7856e+00_rb/)
+      kbo(:, 1,16,12) = (/ &
+     &9.4371e+04_rb,7.0779e+04_rb,4.7186e+04_rb,2.3593e+04_rb,5.9193e+00_rb/)
+      kbo(:, 2,16,12) = (/ &
+     &9.3237e+04_rb,6.9928e+04_rb,4.6619e+04_rb,2.3310e+04_rb,5.7778e+00_rb/)
+      kbo(:, 3,16,12) = (/ &
+     &9.1868e+04_rb,6.8901e+04_rb,4.5935e+04_rb,2.2968e+04_rb,5.6214e+00_rb/)
+      kbo(:, 4,16,12) = (/ &
+     &9.0372e+04_rb,6.7780e+04_rb,4.5187e+04_rb,2.2594e+04_rb,5.5103e+00_rb/)
+      kbo(:, 5,16,12) = (/ &
+     &8.8699e+04_rb,6.6525e+04_rb,4.4350e+04_rb,2.2176e+04_rb,5.3472e+00_rb/)
+      kbo(:, 1,17,12) = (/ &
+     &7.4737e+04_rb,5.6053e+04_rb,3.7369e+04_rb,1.8685e+04_rb,6.5296e+00_rb/)
+      kbo(:, 2,17,12) = (/ &
+     &7.3678e+04_rb,5.5259e+04_rb,3.6840e+04_rb,1.8420e+04_rb,6.3899e+00_rb/)
+      kbo(:, 3,17,12) = (/ &
+     &7.2463e+04_rb,5.4347e+04_rb,3.6232e+04_rb,1.8116e+04_rb,6.2234e+00_rb/)
+      kbo(:, 4,17,12) = (/ &
+     &7.1178e+04_rb,5.3383e+04_rb,3.5589e+04_rb,1.7795e+04_rb,6.1262e+00_rb/)
+      kbo(:, 5,17,12) = (/ &
+     &6.9846e+04_rb,5.2385e+04_rb,3.4923e+04_rb,1.7462e+04_rb,6.0038e+00_rb/)
+      kbo(:, 1,18,12) = (/ &
+     &5.9561e+04_rb,4.4671e+04_rb,2.9781e+04_rb,1.4891e+04_rb,7.2106e+00_rb/)
+      kbo(:, 2,18,12) = (/ &
+     &5.8573e+04_rb,4.3930e+04_rb,2.9287e+04_rb,1.4644e+04_rb,7.0772e+00_rb/)
+      kbo(:, 3,18,12) = (/ &
+     &5.7514e+04_rb,4.3136e+04_rb,2.8757e+04_rb,1.4379e+04_rb,6.9067e+00_rb/)
+      kbo(:, 4,18,12) = (/ &
+     &5.6474e+04_rb,4.2356e+04_rb,2.8238e+04_rb,1.4119e+04_rb,6.7942e+00_rb/)
+      kbo(:, 5,18,12) = (/ &
+     &5.5403e+04_rb,4.1552e+04_rb,2.7702e+04_rb,1.3851e+04_rb,6.6477e+00_rb/)
+      kbo(:, 1,19,12) = (/ &
+     &4.5689e+04_rb,3.4267e+04_rb,2.2845e+04_rb,1.1423e+04_rb,7.9750e+00_rb/)
+      kbo(:, 2,19,12) = (/ &
+     &4.4876e+04_rb,3.3657e+04_rb,2.2438e+04_rb,1.1220e+04_rb,7.8278e+00_rb/)
+      kbo(:, 3,19,12) = (/ &
+     &4.4040e+04_rb,3.3030e+04_rb,2.2021e+04_rb,1.1011e+04_rb,7.6237e+00_rb/)
+      kbo(:, 4,19,12) = (/ &
+     &4.3227e+04_rb,3.2420e+04_rb,2.1614e+04_rb,1.0807e+04_rb,7.5070e+00_rb/)
+      kbo(:, 5,19,12) = (/ &
+     &4.2374e+04_rb,3.1781e+04_rb,2.1187e+04_rb,1.0594e+04_rb,7.3430e+00_rb/)
+      kbo(:, 1,20,12) = (/ &
+     &3.7246e+04_rb,2.7935e+04_rb,1.8623e+04_rb,9.3122e+03_rb,8.8153e+00_rb/)
+      kbo(:, 2,20,12) = (/ &
+     &3.6550e+04_rb,2.7413e+04_rb,1.8276e+04_rb,9.1383e+03_rb,8.6532e+00_rb/)
+      kbo(:, 3,20,12) = (/ &
+     &3.5840e+04_rb,2.6880e+04_rb,1.7920e+04_rb,8.9607e+03_rb,8.4391e+00_rb/)
+      kbo(:, 4,20,12) = (/ &
+     &3.5149e+04_rb,2.6362e+04_rb,1.7575e+04_rb,8.7878e+03_rb,8.2995e+00_rb/)
+      kbo(:, 5,20,12) = (/ &
+     &3.4405e+04_rb,2.5804e+04_rb,1.7203e+04_rb,8.6018e+03_rb,8.1167e+00_rb/)
+      kbo(:, 1,21,12) = (/ &
+     &3.0709e+04_rb,2.3032e+04_rb,1.5355e+04_rb,7.6780e+03_rb,9.7372e+00_rb/)
+      kbo(:, 2,21,12) = (/ &
+     &3.0108e+04_rb,2.2581e+04_rb,1.5055e+04_rb,7.5277e+03_rb,9.5645e+00_rb/)
+      kbo(:, 3,21,12) = (/ &
+     &2.9509e+04_rb,2.2132e+04_rb,1.4755e+04_rb,7.3780e+03_rb,9.3267e+00_rb/)
+      kbo(:, 4,21,12) = (/ &
+     &2.8892e+04_rb,2.1670e+04_rb,1.4447e+04_rb,7.2238e+03_rb,9.1690e+00_rb/)
+      kbo(:, 5,21,12) = (/ &
+     &2.8241e+04_rb,2.1181e+04_rb,1.4121e+04_rb,7.0607e+03_rb,8.9671e+00_rb/)
+      kbo(:, 1,22,12) = (/ &
+     &2.5484e+04_rb,1.9113e+04_rb,1.2742e+04_rb,6.3717e+03_rb,1.0681e+01_rb/)
+      kbo(:, 2,22,12) = (/ &
+     &2.4964e+04_rb,1.8723e+04_rb,1.2483e+04_rb,6.2417e+03_rb,1.0497e+01_rb/)
+      kbo(:, 3,22,12) = (/ &
+     &2.4423e+04_rb,1.8317e+04_rb,1.2212e+04_rb,6.1064e+03_rb,1.0234e+01_rb/)
+      kbo(:, 4,22,12) = (/ &
+     &2.3869e+04_rb,1.7902e+04_rb,1.1935e+04_rb,5.9678e+03_rb,1.0059e+01_rb/)
+      kbo(:, 5,22,12) = (/ &
+     &2.3286e+04_rb,1.7465e+04_rb,1.1643e+04_rb,5.8221e+03_rb,9.8315e+00_rb/)
+      kbo(:, 1,23,12) = (/ &
+     &2.0918e+04_rb,1.5688e+04_rb,1.0459e+04_rb,5.2302e+03_rb,1.1614e+01_rb/)
+      kbo(:, 2,23,12) = (/ &
+     &2.0451e+04_rb,1.5339e+04_rb,1.0226e+04_rb,5.1135e+03_rb,1.1417e+01_rb/)
+      kbo(:, 3,23,12) = (/ &
+     &1.9969e+04_rb,1.4977e+04_rb,9.9848e+03_rb,4.9928e+03_rb,1.1125e+01_rb/)
+      kbo(:, 4,23,12) = (/ &
+     &1.9481e+04_rb,1.4611e+04_rb,9.7407e+03_rb,4.8708e+03_rb,1.0942e+01_rb/)
+      kbo(:, 5,23,12) = (/ &
+     &1.8998e+04_rb,1.4249e+04_rb,9.4994e+03_rb,4.7501e+03_rb,1.0699e+01_rb/)
+      kbo(:, 1,24,12) = (/ &
+     &1.6828e+04_rb,1.2621e+04_rb,8.4145e+03_rb,4.2078e+03_rb,1.2522e+01_rb/)
+      kbo(:, 2,24,12) = (/ &
+     &1.6415e+04_rb,1.2311e+04_rb,8.2079e+03_rb,4.1044e+03_rb,1.2299e+01_rb/)
+      kbo(:, 3,24,12) = (/ &
+     &1.6005e+04_rb,1.2004e+04_rb,8.0027e+03_rb,4.0018e+03_rb,1.2004e+01_rb/)
+      kbo(:, 4,24,12) = (/ &
+     &1.5632e+04_rb,1.1724e+04_rb,7.8164e+03_rb,3.9086e+03_rb,1.1796e+01_rb/)
+      kbo(:, 5,24,12) = (/ &
+     &1.5350e+04_rb,1.1513e+04_rb,7.6755e+03_rb,3.8381e+03_rb,1.1532e+01_rb/)
+      kbo(:, 1,25,12) = (/ &
+     &1.3517e+04_rb,1.0138e+04_rb,6.7590e+03_rb,3.3800e+03_rb,1.3378e+01_rb/)
+      kbo(:, 2,25,12) = (/ &
+     &1.3176e+04_rb,9.8826e+03_rb,6.5887e+03_rb,3.2948e+03_rb,1.3150e+01_rb/)
+      kbo(:, 3,25,12) = (/ &
+     &1.2900e+04_rb,9.6753e+03_rb,6.4505e+03_rb,3.2257e+03_rb,1.2858e+01_rb/)
+      kbo(:, 4,25,12) = (/ &
+     &1.2719e+04_rb,9.5392e+03_rb,6.3597e+03_rb,3.1803e+03_rb,1.2628e+01_rb/)
+      kbo(:, 5,25,12) = (/ &
+     &1.2623e+04_rb,9.4672e+03_rb,6.3117e+03_rb,3.1562e+03_rb,1.2342e+01_rb/)
+      kbo(:, 1,26,12) = (/ &
+     &1.0917e+04_rb,8.1877e+03_rb,5.4588e+03_rb,2.7299e+03_rb,1.4213e+01_rb/)
+      kbo(:, 2,26,12) = (/ &
+     &1.0711e+04_rb,8.0332e+03_rb,5.3557e+03_rb,2.6783e+03_rb,1.3979e+01_rb/)
+      kbo(:, 3,26,12) = (/ &
+     &1.0602e+04_rb,7.9514e+03_rb,5.3012e+03_rb,2.6510e+03_rb,1.3677e+01_rb/)
+      kbo(:, 4,26,12) = (/ &
+     &1.0604e+04_rb,7.9535e+03_rb,5.3026e+03_rb,2.6517e+03_rb,1.3410e+01_rb/)
+      kbo(:, 5,26,12) = (/ &
+     &1.0730e+04_rb,8.0477e+03_rb,5.3654e+03_rb,2.6831e+03_rb,1.3099e+01_rb/)
+      kbo(:, 1,27,12) = (/ &
+     &9.1749e+03_rb,6.8814e+03_rb,4.5879e+03_rb,2.2944e+03_rb,1.5000e+01_rb/)
+      kbo(:, 2,27,12) = (/ &
+     &9.1157e+03_rb,6.8370e+03_rb,4.5583e+03_rb,2.2796e+03_rb,1.4706e+01_rb/)
+      kbo(:, 3,27,12) = (/ &
+     &9.1873e+03_rb,6.8907e+03_rb,4.5941e+03_rb,2.2975e+03_rb,1.4431e+01_rb/)
+      kbo(:, 4,27,12) = (/ &
+     &9.3840e+03_rb,7.0382e+03_rb,4.6924e+03_rb,2.3467e+03_rb,1.4137e+01_rb/)
+      kbo(:, 5,27,12) = (/ &
+     &9.6488e+03_rb,7.2368e+03_rb,4.8249e+03_rb,2.4129e+03_rb,1.3775e+01_rb/)
+      kbo(:, 1,28,12) = (/ &
+     &8.0307e+03_rb,6.0232e+03_rb,4.0158e+03_rb,2.0083e+03_rb,1.5711e+01_rb/)
+      kbo(:, 2,28,12) = (/ &
+     &8.1446e+03_rb,6.1087e+03_rb,4.0727e+03_rb,2.0368e+03_rb,1.5384e+01_rb/)
+      kbo(:, 3,28,12) = (/ &
+     &8.3784e+03_rb,6.2841e+03_rb,4.1897e+03_rb,2.0953e+03_rb,1.5123e+01_rb/)
+      kbo(:, 4,28,12) = (/ &
+     &8.6648e+03_rb,6.4989e+03_rb,4.3329e+03_rb,2.1669e+03_rb,1.4791e+01_rb/)
+      kbo(:, 5,28,12) = (/ &
+     &9.0065e+03_rb,6.7551e+03_rb,4.5037e+03_rb,2.2523e+03_rb,1.4343e+01_rb/)
+      kbo(:, 1,29,12) = (/ &
+     &7.6471e+03_rb,5.7356e+03_rb,3.8240e+03_rb,1.9124e+03_rb,1.6341e+01_rb/)
+      kbo(:, 2,29,12) = (/ &
+     &7.9071e+03_rb,5.9306e+03_rb,3.9540e+03_rb,1.9775e+03_rb,1.6013e+01_rb/)
+      kbo(:, 3,29,12) = (/ &
+     &8.2292e+03_rb,6.1721e+03_rb,4.1151e+03_rb,2.0580e+03_rb,1.5732e+01_rb/)
+      kbo(:, 4,29,12) = (/ &
+     &8.6240e+03_rb,6.4682e+03_rb,4.3125e+03_rb,2.1567e+03_rb,1.5372e+01_rb/)
+      kbo(:, 5,29,12) = (/ &
+     &9.0598e+03_rb,6.7951e+03_rb,4.5304e+03_rb,2.2657e+03_rb,1.4767e+01_rb/)
+      kbo(:, 1,30,12) = (/ &
+     &7.6323e+03_rb,5.7245e+03_rb,3.8166e+03_rb,1.9088e+03_rb,1.6832e+01_rb/)
+      kbo(:, 2,30,12) = (/ &
+     &7.9856e+03_rb,5.9894e+03_rb,3.9933e+03_rb,1.9972e+03_rb,1.6592e+01_rb/)
+      kbo(:, 3,30,12) = (/ &
+     &8.4256e+03_rb,6.3195e+03_rb,4.2133e+03_rb,2.1072e+03_rb,1.6260e+01_rb/)
+      kbo(:, 4,30,12) = (/ &
+     &8.9027e+03_rb,6.6772e+03_rb,4.4518e+03_rb,2.2264e+03_rb,1.5767e+01_rb/)
+      kbo(:, 5,30,12) = (/ &
+     &9.4138e+03_rb,7.0606e+03_rb,4.7073e+03_rb,2.3541e+03_rb,1.5140e+01_rb/)
+      kbo(:, 1,31,12) = (/ &
+     &8.1459e+03_rb,6.1097e+03_rb,4.0735e+03_rb,2.0373e+03_rb,1.7334e+01_rb/)
+      kbo(:, 2,31,12) = (/ &
+     &8.6243e+03_rb,6.4685e+03_rb,4.3127e+03_rb,2.1569e+03_rb,1.7064e+01_rb/)
+      kbo(:, 3,31,12) = (/ &
+     &9.1518e+03_rb,6.8642e+03_rb,4.5764e+03_rb,2.2887e+03_rb,1.6609e+01_rb/)
+      kbo(:, 4,31,12) = (/ &
+     &9.7356e+03_rb,7.3019e+03_rb,4.8683e+03_rb,2.4346e+03_rb,1.5848e+01_rb/)
+      kbo(:, 5,31,12) = (/ &
+     &1.0365e+04_rb,7.7736e+03_rb,5.1827e+03_rb,2.5918e+03_rb,1.5376e+01_rb/)
+      kbo(:, 1,32,12) = (/ &
+     &8.9083e+03_rb,6.6815e+03_rb,4.4547e+03_rb,2.2279e+03_rb,1.7730e+01_rb/)
+      kbo(:, 2,32,12) = (/ &
+     &9.4979e+03_rb,7.1237e+03_rb,4.7495e+03_rb,2.3753e+03_rb,1.7331e+01_rb/)
+      kbo(:, 3,32,12) = (/ &
+     &1.0147e+04_rb,7.6108e+03_rb,5.0742e+03_rb,2.5376e+03_rb,1.6589e+01_rb/)
+      kbo(:, 4,32,12) = (/ &
+     &1.0867e+04_rb,8.1507e+03_rb,5.4341e+03_rb,2.7175e+03_rb,1.6156e+01_rb/)
+      kbo(:, 5,32,12) = (/ &
+     &1.1646e+04_rb,8.7350e+03_rb,5.8236e+03_rb,2.9122e+03_rb,1.5848e+01_rb/)
+      kbo(:, 1,33,12) = (/ &
+     &9.9979e+03_rb,7.4987e+03_rb,4.9995e+03_rb,2.5003e+03_rb,1.7989e+01_rb/)
+      kbo(:, 2,33,12) = (/ &
+     &1.0743e+04_rb,8.0578e+03_rb,5.3722e+03_rb,2.6866e+03_rb,1.7365e+01_rb/)
+      kbo(:, 3,33,12) = (/ &
+     &1.1568e+04_rb,8.6761e+03_rb,5.7844e+03_rb,2.8926e+03_rb,1.6901e+01_rb/)
+      kbo(:, 4,33,12) = (/ &
+     &1.2466e+04_rb,9.3497e+03_rb,6.2334e+03_rb,3.1171e+03_rb,1.6592e+01_rb/)
+      kbo(:, 5,33,12) = (/ &
+     &1.3441e+04_rb,1.0081e+04_rb,6.7208e+03_rb,3.3608e+03_rb,1.6160e+01_rb/)
+      kbo(:, 1,34,12) = (/ &
+     &1.1005e+04_rb,8.2543e+03_rb,5.5032e+03_rb,2.7521e+03_rb,1.8094e+01_rb/)
+      kbo(:, 2,34,12) = (/ &
+     &1.1925e+04_rb,8.9436e+03_rb,5.9627e+03_rb,2.9818e+03_rb,1.7503e+01_rb/)
+      kbo(:, 3,34,12) = (/ &
+     &1.2929e+04_rb,9.6970e+03_rb,6.4650e+03_rb,3.2329e+03_rb,1.7258e+01_rb/)
+      kbo(:, 4,34,12) = (/ &
+     &1.4013e+04_rb,1.0510e+04_rb,7.0067e+03_rb,3.5037e+03_rb,1.6964e+01_rb/)
+      kbo(:, 5,34,12) = (/ &
+     &1.5204e+04_rb,1.1403e+04_rb,7.6022e+03_rb,3.8015e+03_rb,1.6506e+01_rb/)
+      kbo(:, 1,35,12) = (/ &
+     &1.2135e+04_rb,9.1016e+03_rb,6.0680e+03_rb,3.0345e+03_rb,1.8232e+01_rb/)
+      kbo(:, 2,35,12) = (/ &
+     &1.3244e+04_rb,9.9331e+03_rb,6.6223e+03_rb,3.3116e+03_rb,1.7908e+01_rb/)
+      kbo(:, 3,35,12) = (/ &
+     &1.4457e+04_rb,1.0843e+04_rb,7.2288e+03_rb,3.6148e+03_rb,1.7659e+01_rb/)
+      kbo(:, 4,35,12) = (/ &
+     &1.5776e+04_rb,1.1833e+04_rb,7.8886e+03_rb,3.9447e+03_rb,1.7305e+01_rb/)
+      kbo(:, 5,35,12) = (/ &
+     &1.7218e+04_rb,1.2914e+04_rb,8.6094e+03_rb,4.3051e+03_rb,1.6889e+01_rb/)
+      kbo(:, 1,36,12) = (/ &
+     &1.3247e+04_rb,9.9356e+03_rb,6.6240e+03_rb,3.3125e+03_rb,1.8488e+01_rb/)
+      kbo(:, 2,36,12) = (/ &
+     &1.4560e+04_rb,1.0920e+04_rb,7.2802e+03_rb,3.6405e+03_rb,1.8270e+01_rb/)
+      kbo(:, 3,36,12) = (/ &
+     &1.6016e+04_rb,1.2012e+04_rb,8.0085e+03_rb,4.0046e+03_rb,1.8063e+01_rb/)
+      kbo(:, 4,36,12) = (/ &
+     &1.7602e+04_rb,1.3202e+04_rb,8.8012e+03_rb,4.4010e+03_rb,1.7553e+01_rb/)
+      kbo(:, 5,36,12) = (/ &
+     &1.9328e+04_rb,1.4496e+04_rb,9.6641e+03_rb,4.8324e+03_rb,1.7048e+01_rb/)
+      kbo(:, 1,37,12) = (/ &
+     &1.3952e+04_rb,1.0464e+04_rb,6.9765e+03_rb,3.4887e+03_rb,1.8801e+01_rb/)
+      kbo(:, 2,37,12) = (/ &
+     &1.5457e+04_rb,1.1593e+04_rb,7.7287e+03_rb,3.8648e+03_rb,1.8637e+01_rb/)
+      kbo(:, 3,37,12) = (/ &
+     &1.7141e+04_rb,1.2856e+04_rb,8.5707e+03_rb,4.2857e+03_rb,1.8420e+01_rb/)
+      kbo(:, 4,37,12) = (/ &
+     &1.8985e+04_rb,1.4239e+04_rb,9.4928e+03_rb,4.7467e+03_rb,1.7805e+01_rb/)
+      kbo(:, 5,37,12) = (/ &
+     &2.0966e+04_rb,1.5724e+04_rb,1.0483e+04_rb,5.2419e+03_rb,1.7343e+01_rb/)
+      kbo(:, 1,38,12) = (/ &
+     &1.4936e+04_rb,1.1202e+04_rb,7.4684e+03_rb,3.7346e+03_rb,1.9067e+01_rb/)
+      kbo(:, 2,38,12) = (/ &
+     &1.6693e+04_rb,1.2520e+04_rb,8.3467e+03_rb,4.1737e+03_rb,1.8968e+01_rb/)
+      kbo(:, 3,38,12) = (/ &
+     &1.8667e+04_rb,1.4000e+04_rb,9.3337e+03_rb,4.6672e+03_rb,1.8667e+01_rb/)
+      kbo(:, 4,38,12) = (/ &
+     &2.0838e+04_rb,1.5628e+04_rb,1.0419e+04_rb,5.2098e+03_rb,1.8090e+01_rb/)
+      kbo(:, 5,38,12) = (/ &
+     &2.3152e+04_rb,1.7364e+04_rb,1.1576e+04_rb,5.7883e+03_rb,1.7634e+01_rb/)
+      kbo(:, 1,39,12) = (/ &
+     &1.6411e+04_rb,1.2309e+04_rb,8.2062e+03_rb,4.1035e+03_rb,1.9362e+01_rb/)
+      kbo(:, 2,39,12) = (/ &
+     &1.8520e+04_rb,1.3890e+04_rb,9.2603e+03_rb,4.6305e+03_rb,1.9256e+01_rb/)
+      kbo(:, 3,39,12) = (/ &
+     &2.0878e+04_rb,1.5659e+04_rb,1.0439e+04_rb,5.2200e+03_rb,1.8842e+01_rb/)
+      kbo(:, 4,39,12) = (/ &
+     &2.3481e+04_rb,1.7611e+04_rb,1.1741e+04_rb,5.8709e+03_rb,1.8427e+01_rb/)
+      kbo(:, 5,39,12) = (/ &
+     &2.6258e+04_rb,1.9693e+04_rb,1.3129e+04_rb,6.5649e+03_rb,1.8005e+01_rb/)
+      kbo(:, 1,40,12) = (/ &
+     &1.6779e+04_rb,1.2584e+04_rb,8.3898e+03_rb,4.1952e+03_rb,1.9573e+01_rb/)
+      kbo(:, 2,40,12) = (/ &
+     &1.9118e+04_rb,1.4339e+04_rb,9.5593e+03_rb,4.7800e+03_rb,1.9496e+01_rb/)
+      kbo(:, 3,40,12) = (/ &
+     &2.1747e+04_rb,1.6310e+04_rb,1.0874e+04_rb,5.4372e+03_rb,1.9078e+01_rb/)
+      kbo(:, 4,40,12) = (/ &
+     &2.4641e+04_rb,1.8481e+04_rb,1.2321e+04_rb,6.1605e+03_rb,1.8680e+01_rb/)
+      kbo(:, 5,40,12) = (/ &
+     &2.7741e+04_rb,2.0806e+04_rb,1.3871e+04_rb,6.9356e+03_rb,1.8305e+01_rb/)
+      kbo(:, 1,41,12) = (/ &
+     &1.7108e+04_rb,1.2831e+04_rb,8.5543e+03_rb,4.2775e+03_rb,1.9752e+01_rb/)
+      kbo(:, 2,41,12) = (/ &
+     &1.9696e+04_rb,1.4772e+04_rb,9.8483e+03_rb,4.9245e+03_rb,1.9665e+01_rb/)
+      kbo(:, 3,41,12) = (/ &
+     &2.2603e+04_rb,1.6953e+04_rb,1.1302e+04_rb,5.6514e+03_rb,1.9347e+01_rb/)
+      kbo(:, 4,41,12) = (/ &
+     &2.5797e+04_rb,1.9348e+04_rb,1.2899e+04_rb,6.4497e+03_rb,1.8925e+01_rb/)
+      kbo(:, 5,41,12) = (/ &
+     &2.9237e+04_rb,2.1928e+04_rb,1.4619e+04_rb,7.3098e+03_rb,1.8587e+01_rb/)
+      kbo(:, 1,42,12) = (/ &
+     &1.7650e+04_rb,1.3238e+04_rb,8.8253e+03_rb,4.4130e+03_rb,1.9913e+01_rb/)
+      kbo(:, 2,42,12) = (/ &
+     &2.0552e+04_rb,1.5414e+04_rb,1.0276e+04_rb,5.1385e+03_rb,1.9817e+01_rb/)
+      kbo(:, 3,42,12) = (/ &
+     &2.3780e+04_rb,1.7835e+04_rb,1.1890e+04_rb,5.9455e+03_rb,1.9487e+01_rb/)
+      kbo(:, 4,42,12) = (/ &
+     &2.7331e+04_rb,2.0498e+04_rb,1.3666e+04_rb,6.8331e+03_rb,1.9141e+01_rb/)
+      kbo(:, 5,42,12) = (/ &
+     &3.1174e+04_rb,2.3380e+04_rb,1.5587e+04_rb,7.7938e+03_rb,1.8842e+01_rb/)
+      kbo(:, 1,43,12) = (/ &
+     &1.8226e+04_rb,1.3670e+04_rb,9.1135e+03_rb,4.5571e+03_rb,2.0107e+01_rb/)
+      kbo(:, 2,43,12) = (/ &
+     &2.1466e+04_rb,1.6100e+04_rb,1.0734e+04_rb,5.3672e+03_rb,1.9969e+01_rb/)
+      kbo(:, 3,43,12) = (/ &
+     &2.5067e+04_rb,1.8800e+04_rb,1.2534e+04_rb,6.2672e+03_rb,1.9715e+01_rb/)
+      kbo(:, 4,43,12) = (/ &
+     &2.9022e+04_rb,2.1767e+04_rb,1.4512e+04_rb,7.2561e+03_rb,1.9331e+01_rb/)
+      kbo(:, 5,43,12) = (/ &
+     &3.3314e+04_rb,2.4986e+04_rb,1.6658e+04_rb,8.3291e+03_rb,1.9158e+01_rb/)
+      kbo(:, 1,44,12) = (/ &
+     &1.9005e+04_rb,1.4254e+04_rb,9.5029e+03_rb,4.7518e+03_rb,2.0271e+01_rb/)
+      kbo(:, 2,44,12) = (/ &
+     &2.2627e+04_rb,1.6970e+04_rb,1.1314e+04_rb,5.6570e+03_rb,2.0045e+01_rb/)
+      kbo(:, 3,44,12) = (/ &
+     &2.6689e+04_rb,2.0017e+04_rb,1.3345e+04_rb,6.6725e+03_rb,1.9909e+01_rb/)
+      kbo(:, 4,44,12) = (/ &
+     &3.1132e+04_rb,2.3349e+04_rb,1.5566e+04_rb,7.7832e+03_rb,1.9596e+01_rb/)
+      kbo(:, 5,44,12) = (/ &
+     &3.5955e+04_rb,2.6966e+04_rb,1.7978e+04_rb,8.9890e+03_rb,1.9454e+01_rb/)
+      kbo(:, 1,45,12) = (/ &
+     &2.0230e+04_rb,1.5173e+04_rb,1.0115e+04_rb,5.0580e+03_rb,2.0360e+01_rb/)
+      kbo(:, 2,45,12) = (/ &
+     &2.4315e+04_rb,1.8237e+04_rb,1.2158e+04_rb,6.0793e+03_rb,2.0061e+01_rb/)
+      kbo(:, 3,45,12) = (/ &
+     &2.8985e+04_rb,2.1739e+04_rb,1.4493e+04_rb,7.2467e+03_rb,2.0123e+01_rb/)
+      kbo(:, 4,45,12) = (/ &
+     &3.4069e+04_rb,2.5552e+04_rb,1.7035e+04_rb,8.5176e+03_rb,1.9825e+01_rb/)
+      kbo(:, 5,45,12) = (/ &
+     &3.9583e+04_rb,2.9687e+04_rb,1.9792e+04_rb,9.8961e+03_rb,1.9819e+01_rb/)
+      kbo(:, 1,46,12) = (/ &
+     &2.1692e+04_rb,1.6269e+04_rb,1.0846e+04_rb,5.4233e+03_rb,2.0397e+01_rb/)
+      kbo(:, 2,46,12) = (/ &
+     &2.6275e+04_rb,1.9706e+04_rb,1.3138e+04_rb,6.5691e+03_rb,2.0140e+01_rb/)
+      kbo(:, 3,46,12) = (/ &
+     &3.1629e+04_rb,2.3722e+04_rb,1.5815e+04_rb,7.9076e+03_rb,2.0308e+01_rb/)
+      kbo(:, 4,46,12) = (/ &
+     &3.7518e+04_rb,2.8139e+04_rb,1.8759e+04_rb,9.3799e+03_rb,2.0045e+01_rb/)
+      kbo(:, 5,46,12) = (/ &
+     &4.3856e+04_rb,3.2892e+04_rb,2.1928e+04_rb,1.0964e+04_rb,2.0102e+01_rb/)
+      kbo(:, 1,47,12) = (/ &
+     &2.2886e+04_rb,1.7165e+04_rb,1.1443e+04_rb,5.7220e+03_rb,2.0376e+01_rb/)
+      kbo(:, 2,47,12) = (/ &
+     &2.7889e+04_rb,2.0917e+04_rb,1.3945e+04_rb,6.9727e+03_rb,2.0171e+01_rb/)
+      kbo(:, 3,47,12) = (/ &
+     &3.3867e+04_rb,2.5401e+04_rb,1.6934e+04_rb,8.4673e+03_rb,2.0409e+01_rb/)
+      kbo(:, 4,47,12) = (/ &
+     &4.0597e+04_rb,3.0448e+04_rb,2.0299e+04_rb,1.0150e+04_rb,2.0291e+01_rb/)
+      kbo(:, 5,47,12) = (/ &
+     &4.7822e+04_rb,3.5866e+04_rb,2.3911e+04_rb,1.1956e+04_rb,2.0384e+01_rb/)
+      kbo(:, 1,48,12) = (/ &
+     &2.4867e+04_rb,1.8651e+04_rb,1.2434e+04_rb,6.2173e+03_rb,2.0295e+01_rb/)
+      kbo(:, 2,48,12) = (/ &
+     &3.0432e+04_rb,2.2824e+04_rb,1.5216e+04_rb,7.6085e+03_rb,2.0270e+01_rb/)
+      kbo(:, 3,48,12) = (/ &
+     &3.7235e+04_rb,2.7926e+04_rb,1.8618e+04_rb,9.3091e+03_rb,2.0484e+01_rb/)
+      kbo(:, 4,48,12) = (/ &
+     &4.5063e+04_rb,3.3797e+04_rb,2.2532e+04_rb,1.1266e+04_rb,2.0580e+01_rb/)
+      kbo(:, 5,48,12) = (/ &
+     &5.3530e+04_rb,4.0148e+04_rb,2.6765e+04_rb,1.3383e+04_rb,2.0621e+01_rb/)
+      kbo(:, 1,49,12) = (/ &
+     &2.8095e+04_rb,2.1071e+04_rb,1.4048e+04_rb,7.0242e+03_rb,2.0197e+01_rb/)
+      kbo(:, 2,49,12) = (/ &
+     &3.4618e+04_rb,2.5963e+04_rb,1.7309e+04_rb,8.6547e+03_rb,2.0319e+01_rb/)
+      kbo(:, 3,49,12) = (/ &
+     &4.2591e+04_rb,3.1943e+04_rb,2.1296e+04_rb,1.0648e+04_rb,2.0559e+01_rb/)
+      kbo(:, 4,49,12) = (/ &
+     &5.1945e+04_rb,3.8959e+04_rb,2.5973e+04_rb,1.2987e+04_rb,2.0853e+01_rb/)
+      kbo(:, 5,49,12) = (/ &
+     &6.2325e+04_rb,4.6744e+04_rb,3.1163e+04_rb,1.5581e+04_rb,2.0890e+01_rb/)
+      kbo(:, 1,50,12) = (/ &
+     &3.0354e+04_rb,2.2766e+04_rb,1.5178e+04_rb,7.5891e+03_rb,2.0062e+01_rb/)
+      kbo(:, 2,50,12) = (/ &
+     &3.7734e+04_rb,2.8300e+04_rb,1.8867e+04_rb,9.4338e+03_rb,2.0363e+01_rb/)
+      kbo(:, 3,50,12) = (/ &
+     &4.6589e+04_rb,3.4942e+04_rb,2.3295e+04_rb,1.1648e+04_rb,2.0543e+01_rb/)
+      kbo(:, 4,50,12) = (/ &
+     &5.7214e+04_rb,4.2910e+04_rb,2.8607e+04_rb,1.4304e+04_rb,2.0993e+01_rb/)
+      kbo(:, 5,50,12) = (/ &
+     &6.9238e+04_rb,5.1929e+04_rb,3.4619e+04_rb,1.7310e+04_rb,2.1035e+01_rb/)
+      kbo(:, 1,51,12) = (/ &
+     &3.2115e+04_rb,2.4086e+04_rb,1.6058e+04_rb,8.0292e+03_rb,1.9809e+01_rb/)
+      kbo(:, 2,51,12) = (/ &
+     &4.0277e+04_rb,3.0208e+04_rb,2.0139e+04_rb,1.0070e+04_rb,2.0313e+01_rb/)
+      kbo(:, 3,51,12) = (/ &
+     &4.9958e+04_rb,3.7469e+04_rb,2.4979e+04_rb,1.2490e+04_rb,2.0455e+01_rb/)
+      kbo(:, 4,51,12) = (/ &
+     &6.1681e+04_rb,4.6261e+04_rb,3.0841e+04_rb,1.5421e+04_rb,2.0964e+01_rb/)
+      kbo(:, 5,51,12) = (/ &
+     &7.5206e+04_rb,5.6405e+04_rb,3.7603e+04_rb,1.8802e+04_rb,2.1060e+01_rb/)
+      kbo(:, 1,52,12) = (/ &
+     &3.4912e+04_rb,2.6184e+04_rb,1.7456e+04_rb,8.7285e+03_rb,1.9582e+01_rb/)
+      kbo(:, 2,52,12) = (/ &
+     &4.4146e+04_rb,3.3110e+04_rb,2.2073e+04_rb,1.1037e+04_rb,2.0163e+01_rb/)
+      kbo(:, 3,52,12) = (/ &
+     &5.5147e+04_rb,4.1361e+04_rb,2.7574e+04_rb,1.3787e+04_rb,2.0386e+01_rb/)
+      kbo(:, 4,52,12) = (/ &
+     &6.8326e+04_rb,5.1245e+04_rb,3.4163e+04_rb,1.7082e+04_rb,2.0999e+01_rb/)
+      kbo(:, 5,52,12) = (/ &
+     &8.3853e+04_rb,6.2890e+04_rb,4.1927e+04_rb,2.0964e+04_rb,2.1183e+01_rb/)
+      kbo(:, 1,53,12) = (/ &
+     &3.9402e+04_rb,2.9552e+04_rb,1.9702e+04_rb,9.8513e+03_rb,1.9267e+01_rb/)
+      kbo(:, 2,53,12) = (/ &
+     &5.0308e+04_rb,3.7732e+04_rb,2.5155e+04_rb,1.2578e+04_rb,1.9908e+01_rb/)
+      kbo(:, 3,53,12) = (/ &
+     &6.3383e+04_rb,4.7538e+04_rb,3.1692e+04_rb,1.5846e+04_rb,2.0279e+01_rb/)
+      kbo(:, 4,53,12) = (/ &
+     &7.8778e+04_rb,5.9084e+04_rb,3.9389e+04_rb,1.9695e+04_rb,2.1039e+01_rb/)
+      kbo(:, 5,53,12) = (/ &
+     &9.7229e+04_rb,7.2923e+04_rb,4.8615e+04_rb,2.4308e+04_rb,2.1293e+01_rb/)
+      kbo(:, 1,54,12) = (/ &
+     &3.8624e+04_rb,2.8968e+04_rb,1.9312e+04_rb,9.6566e+03_rb,1.8946e+01_rb/)
+      kbo(:, 2,54,12) = (/ &
+     &4.9869e+04_rb,3.7402e+04_rb,2.4935e+04_rb,1.2468e+04_rb,1.9724e+01_rb/)
+      kbo(:, 3,54,12) = (/ &
+     &6.3267e+04_rb,4.7450e+04_rb,3.1634e+04_rb,1.5817e+04_rb,2.0221e+01_rb/)
+      kbo(:, 4,54,12) = (/ &
+     &7.9005e+04_rb,5.9254e+04_rb,3.9503e+04_rb,1.9752e+04_rb,2.0891e+01_rb/)
+      kbo(:, 5,54,12) = (/ &
+     &9.7899e+04_rb,7.3425e+04_rb,4.8950e+04_rb,2.4475e+04_rb,2.1235e+01_rb/)
+      kbo(:, 1,55,12) = (/ &
+     &3.4504e+04_rb,2.5878e+04_rb,1.7253e+04_rb,8.6267e+03_rb,1.8561e+01_rb/)
+      kbo(:, 2,55,12) = (/ &
+     &4.5154e+04_rb,3.3866e+04_rb,2.2578e+04_rb,1.1289e+04_rb,1.9514e+01_rb/)
+      kbo(:, 3,55,12) = (/ &
+     &5.7700e+04_rb,4.3275e+04_rb,2.8850e+04_rb,1.4425e+04_rb,2.0143e+01_rb/)
+      kbo(:, 4,55,12) = (/ &
+     &7.2513e+04_rb,5.4385e+04_rb,3.6257e+04_rb,1.8129e+04_rb,2.0526e+01_rb/)
+      kbo(:, 5,55,12) = (/ &
+     &9.0097e+04_rb,6.7573e+04_rb,4.5049e+04_rb,2.2525e+04_rb,2.1145e+01_rb/)
+      kbo(:, 1,56,12) = (/ &
+     &3.0670e+04_rb,2.3003e+04_rb,1.5335e+04_rb,7.6681e+03_rb,1.8208e+01_rb/)
+      kbo(:, 2,56,12) = (/ &
+     &4.0775e+04_rb,3.0581e+04_rb,2.0388e+04_rb,1.0194e+04_rb,1.9345e+01_rb/)
+      kbo(:, 3,56,12) = (/ &
+     &5.2534e+04_rb,3.9401e+04_rb,2.6267e+04_rb,1.3134e+04_rb,1.9986e+01_rb/)
+      kbo(:, 4,56,12) = (/ &
+     &6.6490e+04_rb,4.9868e+04_rb,3.3245e+04_rb,1.6623e+04_rb,2.0300e+01_rb/)
+      kbo(:, 5,56,12) = (/ &
+     &8.2863e+04_rb,6.2147e+04_rb,4.1431e+04_rb,2.0716e+04_rb,2.0929e+01_rb/)
+      kbo(:, 1,57,12) = (/ &
+     &2.7134e+04_rb,2.0351e+04_rb,1.3567e+04_rb,6.7841e+03_rb,1.7766e+01_rb/)
+      kbo(:, 2,57,12) = (/ &
+     &3.6730e+04_rb,2.7547e+04_rb,1.8365e+04_rb,9.1827e+03_rb,1.8983e+01_rb/)
+      kbo(:, 3,57,12) = (/ &
+     &4.7798e+04_rb,3.5848e+04_rb,2.3899e+04_rb,1.1950e+04_rb,1.9837e+01_rb/)
+      kbo(:, 4,57,12) = (/ &
+     &6.0858e+04_rb,4.5644e+04_rb,3.0429e+04_rb,1.5215e+04_rb,2.0288e+01_rb/)
+      kbo(:, 5,57,12) = (/ &
+     &7.6170e+04_rb,5.7127e+04_rb,3.8085e+04_rb,1.9043e+04_rb,2.0539e+01_rb/)
+      kbo(:, 1,58,12) = (/ &
+     &6.3468e+03_rb,5.8191e+03_rb,4.9895e+03_rb,3.4949e+03_rb,1.7351e+01_rb/)
+      kbo(:, 2,58,12) = (/ &
+     &8.7238e+03_rb,7.9984e+03_rb,6.8580e+03_rb,4.8035e+03_rb,1.8673e+01_rb/)
+      kbo(:, 3,58,12) = (/ &
+     &1.1493e+04_rb,1.0537e+04_rb,9.0349e+03_rb,6.3281e+03_rb,1.9708e+01_rb/)
+      kbo(:, 4,58,12) = (/ &
+     &1.4729e+04_rb,1.3504e+04_rb,1.1579e+04_rb,8.1099e+03_rb,2.0210e+01_rb/)
+      kbo(:, 5,58,12) = (/ &
+     &1.8531e+04_rb,1.6990e+04_rb,1.4568e+04_rb,1.0203e+04_rb,2.0346e+01_rb/)
+      kbo(:, 1,59,12) = (/ &
+     &7.0593e+03_rb,6.1640e+03_rb,4.9170e+03_rb,3.0600e+03_rb,1.7147e+01_rb/)
+      kbo(:, 2,59,12) = (/ &
+     &9.7799e+03_rb,8.5396e+03_rb,6.8118e+03_rb,4.2390e+03_rb,1.8584e+01_rb/)
+      kbo(:, 3,59,12) = (/ &
+     &1.2964e+04_rb,1.1320e+04_rb,9.0293e+03_rb,5.6188e+03_rb,1.9434e+01_rb/)
+      kbo(:, 4,59,12) = (/ &
+     &1.6671e+04_rb,1.4556e+04_rb,1.1611e+04_rb,7.2253e+03_rb,2.0175e+01_rb/)
+      kbo(:, 5,59,12) = (/ &
+     &2.1035e+04_rb,1.8367e+04_rb,1.4651e+04_rb,9.1168e+03_rb,2.0516e+01_rb/)
+      kbo(:, 1,13,13) = (/ &
+     &3.8843e+05_rb,2.9132e+05_rb,1.9422e+05_rb,9.7109e+04_rb,5.4111e+00_rb/)
+      kbo(:, 2,13,13) = (/ &
+     &3.8116e+05_rb,2.8587e+05_rb,1.9058e+05_rb,9.5291e+04_rb,5.1021e+00_rb/)
+      kbo(:, 3,13,13) = (/ &
+     &3.7364e+05_rb,2.8023e+05_rb,1.8682e+05_rb,9.3410e+04_rb,4.8974e+00_rb/)
+      kbo(:, 4,13,13) = (/ &
+     &3.6551e+05_rb,2.7413e+05_rb,1.8276e+05_rb,9.1378e+04_rb,4.4934e+00_rb/)
+      kbo(:, 5,13,13) = (/ &
+     &3.5750e+05_rb,2.6813e+05_rb,1.7875e+05_rb,8.9377e+04_rb,3.9773e+00_rb/)
+      kbo(:, 1,14,13) = (/ &
+     &2.5525e+05_rb,1.9143e+05_rb,1.2762e+05_rb,6.3811e+04_rb,5.8071e+00_rb/)
+      kbo(:, 2,14,13) = (/ &
+     &2.5096e+05_rb,1.8822e+05_rb,1.2548e+05_rb,6.2740e+04_rb,5.6102e+00_rb/)
+      kbo(:, 3,14,13) = (/ &
+     &2.4685e+05_rb,1.8514e+05_rb,1.2343e+05_rb,6.1713e+04_rb,5.4048e+00_rb/)
+      kbo(:, 4,14,13) = (/ &
+     &2.4253e+05_rb,1.8190e+05_rb,1.2126e+05_rb,6.0632e+04_rb,5.2557e+00_rb/)
+      kbo(:, 5,14,13) = (/ &
+     &2.3845e+05_rb,1.7884e+05_rb,1.1922e+05_rb,5.9612e+04_rb,4.9044e+00_rb/)
+      kbo(:, 1,15,13) = (/ &
+     &1.7262e+05_rb,1.2947e+05_rb,8.6313e+04_rb,4.3157e+04_rb,6.3397e+00_rb/)
+      kbo(:, 2,15,13) = (/ &
+     &1.7029e+05_rb,1.2772e+05_rb,8.5146e+04_rb,4.2574e+04_rb,6.1559e+00_rb/)
+      kbo(:, 3,15,13) = (/ &
+     &1.6778e+05_rb,1.2583e+05_rb,8.3891e+04_rb,4.1946e+04_rb,5.9275e+00_rb/)
+      kbo(:, 4,15,13) = (/ &
+     &1.6564e+05_rb,1.2423e+05_rb,8.2824e+04_rb,4.1413e+04_rb,5.8142e+00_rb/)
+      kbo(:, 5,15,13) = (/ &
+     &1.6363e+05_rb,1.2273e+05_rb,8.1819e+04_rb,4.0910e+04_rb,5.6466e+00_rb/)
+      kbo(:, 1,16,13) = (/ &
+     &1.3945e+05_rb,1.0459e+05_rb,6.9724e+04_rb,3.4863e+04_rb,7.0725e+00_rb/)
+      kbo(:, 2,16,13) = (/ &
+     &1.3799e+05_rb,1.0349e+05_rb,6.8996e+04_rb,3.4499e+04_rb,6.9039e+00_rb/)
+      kbo(:, 3,16,13) = (/ &
+     &1.3667e+05_rb,1.0250e+05_rb,6.8336e+04_rb,3.4169e+04_rb,6.6526e+00_rb/)
+      kbo(:, 4,16,13) = (/ &
+     &1.3532e+05_rb,1.0149e+05_rb,6.7659e+04_rb,3.3830e+04_rb,6.5506e+00_rb/)
+      kbo(:, 5,16,13) = (/ &
+     &1.3401e+05_rb,1.0051e+05_rb,6.7008e+04_rb,3.3505e+04_rb,6.3946e+00_rb/)
+      kbo(:, 1,17,13) = (/ &
+     &1.1728e+05_rb,8.7962e+04_rb,5.8642e+04_rb,2.9322e+04_rb,7.9743e+00_rb/)
+      kbo(:, 2,17,13) = (/ &
+     &1.1635e+05_rb,8.7266e+04_rb,5.8178e+04_rb,2.9090e+04_rb,7.7873e+00_rb/)
+      kbo(:, 3,17,13) = (/ &
+     &1.1534e+05_rb,8.6504e+04_rb,5.7670e+04_rb,2.8835e+04_rb,7.5449e+00_rb/)
+      kbo(:, 4,17,13) = (/ &
+     &1.1432e+05_rb,8.5738e+04_rb,5.7159e+04_rb,2.8580e+04_rb,7.3894e+00_rb/)
+      kbo(:, 5,17,13) = (/ &
+     &1.1312e+05_rb,8.4838e+04_rb,5.6559e+04_rb,2.8280e+04_rb,7.2243e+00_rb/)
+      kbo(:, 1,18,13) = (/ &
+     &1.0020e+05_rb,7.5148e+04_rb,5.0099e+04_rb,2.5050e+04_rb,8.9803e+00_rb/)
+      kbo(:, 2,18,13) = (/ &
+     &9.9423e+04_rb,7.4567e+04_rb,4.9712e+04_rb,2.4856e+04_rb,8.7551e+00_rb/)
+      kbo(:, 3,18,13) = (/ &
+     &9.8635e+04_rb,7.3977e+04_rb,4.9318e+04_rb,2.4660e+04_rb,8.5049e+00_rb/)
+      kbo(:, 4,18,13) = (/ &
+     &9.7679e+04_rb,7.3260e+04_rb,4.8840e+04_rb,2.4421e+04_rb,8.3083e+00_rb/)
+      kbo(:, 5,18,13) = (/ &
+     &9.6616e+04_rb,7.2462e+04_rb,4.8308e+04_rb,2.4155e+04_rb,8.1253e+00_rb/)
+      kbo(:, 1,19,13) = (/ &
+     &8.3124e+04_rb,6.2343e+04_rb,4.1562e+04_rb,2.0782e+04_rb,1.0036e+01_rb/)
+      kbo(:, 2,19,13) = (/ &
+     &8.2434e+04_rb,6.1826e+04_rb,4.1217e+04_rb,2.0609e+04_rb,9.7882e+00_rb/)
+      kbo(:, 3,19,13) = (/ &
+     &8.1692e+04_rb,6.1269e+04_rb,4.0847e+04_rb,2.0424e+04_rb,9.5505e+00_rb/)
+      kbo(:, 4,19,13) = (/ &
+     &8.0821e+04_rb,6.0616e+04_rb,4.0411e+04_rb,2.0206e+04_rb,9.2995e+00_rb/)
+      kbo(:, 5,19,13) = (/ &
+     &7.9844e+04_rb,5.9883e+04_rb,3.9922e+04_rb,1.9962e+04_rb,9.1204e+00_rb/)
+      kbo(:, 1,20,13) = (/ &
+     &7.3434e+04_rb,5.5076e+04_rb,3.6717e+04_rb,1.8359e+04_rb,1.1173e+01_rb/)
+      kbo(:, 2,20,13) = (/ &
+     &7.2781e+04_rb,5.4586e+04_rb,3.6391e+04_rb,1.8196e+04_rb,1.0919e+01_rb/)
+      kbo(:, 3,20,13) = (/ &
+     &7.2073e+04_rb,5.4055e+04_rb,3.6037e+04_rb,1.8019e+04_rb,1.0676e+01_rb/)
+      kbo(:, 4,20,13) = (/ &
+     &7.1226e+04_rb,5.3419e+04_rb,3.5613e+04_rb,1.7807e+04_rb,1.0406e+01_rb/)
+      kbo(:, 5,20,13) = (/ &
+     &7.0326e+04_rb,5.2745e+04_rb,3.5164e+04_rb,1.7582e+04_rb,1.0205e+01_rb/)
+      kbo(:, 1,21,13) = (/ &
+     &6.5684e+04_rb,4.9263e+04_rb,3.2843e+04_rb,1.6422e+04_rb,1.2437e+01_rb/)
+      kbo(:, 2,21,13) = (/ &
+     &6.5060e+04_rb,4.8795e+04_rb,3.2531e+04_rb,1.6266e+04_rb,1.2175e+01_rb/)
+      kbo(:, 3,21,13) = (/ &
+     &6.4347e+04_rb,4.8261e+04_rb,3.2174e+04_rb,1.6088e+04_rb,1.1913e+01_rb/)
+      kbo(:, 4,21,13) = (/ &
+     &6.3551e+04_rb,4.7664e+04_rb,3.1776e+04_rb,1.5889e+04_rb,1.1602e+01_rb/)
+      kbo(:, 5,21,13) = (/ &
+     &6.2699e+04_rb,4.7025e+04_rb,3.1350e+04_rb,1.5676e+04_rb,1.1366e+01_rb/)
+      kbo(:, 1,22,13) = (/ &
+     &5.8992e+04_rb,4.4244e+04_rb,2.9497e+04_rb,1.4749e+04_rb,1.3817e+01_rb/)
+      kbo(:, 2,22,13) = (/ &
+     &5.8377e+04_rb,4.3783e+04_rb,2.9189e+04_rb,1.4595e+04_rb,1.3522e+01_rb/)
+      kbo(:, 3,22,13) = (/ &
+     &5.7726e+04_rb,4.3295e+04_rb,2.8863e+04_rb,1.4432e+04_rb,1.3217e+01_rb/)
+      kbo(:, 4,22,13) = (/ &
+     &5.7003e+04_rb,4.2753e+04_rb,2.8502e+04_rb,1.4252e+04_rb,1.2864e+01_rb/)
+      kbo(:, 5,22,13) = (/ &
+     &5.6242e+04_rb,4.2182e+04_rb,2.8121e+04_rb,1.4061e+04_rb,1.2581e+01_rb/)
+      kbo(:, 1,23,13) = (/ &
+     &5.2234e+04_rb,3.9176e+04_rb,2.6118e+04_rb,1.3059e+04_rb,1.5301e+01_rb/)
+      kbo(:, 2,23,13) = (/ &
+     &5.1719e+04_rb,3.8789e+04_rb,2.5860e+04_rb,1.2931e+04_rb,1.4943e+01_rb/)
+      kbo(:, 3,23,13) = (/ &
+     &5.1144e+04_rb,3.8358e+04_rb,2.5572e+04_rb,1.2787e+04_rb,1.4585e+01_rb/)
+      kbo(:, 4,23,13) = (/ &
+     &5.0530e+04_rb,3.7898e+04_rb,2.5266e+04_rb,1.2633e+04_rb,1.4170e+01_rb/)
+      kbo(:, 5,23,13) = (/ &
+     &4.9854e+04_rb,3.7391e+04_rb,2.4928e+04_rb,1.2464e+04_rb,1.3822e+01_rb/)
+      kbo(:, 1,24,13) = (/ &
+     &4.5231e+04_rb,3.3923e+04_rb,2.2616e+04_rb,1.1309e+04_rb,1.6829e+01_rb/)
+      kbo(:, 2,24,13) = (/ &
+     &4.4807e+04_rb,3.3606e+04_rb,2.2404e+04_rb,1.1203e+04_rb,1.6434e+01_rb/)
+      kbo(:, 3,24,13) = (/ &
+     &4.4319e+04_rb,3.3240e+04_rb,2.2160e+04_rb,1.1081e+04_rb,1.5981e+01_rb/)
+      kbo(:, 4,24,13) = (/ &
+     &4.3813e+04_rb,3.2860e+04_rb,2.1907e+04_rb,1.0954e+04_rb,1.5519e+01_rb/)
+      kbo(:, 5,24,13) = (/ &
+     &4.3229e+04_rb,3.2422e+04_rb,2.1615e+04_rb,1.0808e+04_rb,1.5118e+01_rb/)
+      kbo(:, 1,25,13) = (/ &
+     &3.9084e+04_rb,2.9314e+04_rb,1.9543e+04_rb,9.7719e+03_rb,1.8397e+01_rb/)
+      kbo(:, 2,25,13) = (/ &
+     &3.8734e+04_rb,2.9050e+04_rb,1.9367e+04_rb,9.6842e+03_rb,1.7930e+01_rb/)
+      kbo(:, 3,25,13) = (/ &
+     &3.8359e+04_rb,2.8770e+04_rb,1.9180e+04_rb,9.5907e+03_rb,1.7387e+01_rb/)
+      kbo(:, 4,25,13) = (/ &
+     &3.7930e+04_rb,2.8448e+04_rb,1.8965e+04_rb,9.4832e+03_rb,1.6873e+01_rb/)
+      kbo(:, 5,25,13) = (/ &
+     &3.7467e+04_rb,2.8100e+04_rb,1.8734e+04_rb,9.3675e+03_rb,1.6400e+01_rb/)
+      kbo(:, 1,26,13) = (/ &
+     &3.3890e+04_rb,2.5418e+04_rb,1.6946e+04_rb,8.4734e+03_rb,1.9920e+01_rb/)
+      kbo(:, 2,26,13) = (/ &
+     &3.3621e+04_rb,2.5216e+04_rb,1.6811e+04_rb,8.4060e+03_rb,1.9382e+01_rb/)
+      kbo(:, 3,26,13) = (/ &
+     &3.3332e+04_rb,2.4999e+04_rb,1.6667e+04_rb,8.3338e+03_rb,1.8740e+01_rb/)
+      kbo(:, 4,26,13) = (/ &
+     &3.3002e+04_rb,2.4752e+04_rb,1.6501e+04_rb,8.2512e+03_rb,1.8176e+01_rb/)
+      kbo(:, 5,26,13) = (/ &
+     &3.2656e+04_rb,2.4492e+04_rb,1.6328e+04_rb,8.1646e+03_rb,1.7620e+01_rb/)
+      kbo(:, 1,27,13) = (/ &
+     &3.0166e+04_rb,2.2624e+04_rb,1.5083e+04_rb,7.5423e+03_rb,2.1376e+01_rb/)
+      kbo(:, 2,27,13) = (/ &
+     &2.9996e+04_rb,2.2497e+04_rb,1.4998e+04_rb,7.4998e+03_rb,2.0763e+01_rb/)
+      kbo(:, 3,27,13) = (/ &
+     &2.9787e+04_rb,2.2341e+04_rb,1.4894e+04_rb,7.4476e+03_rb,2.0015e+01_rb/)
+      kbo(:, 4,27,13) = (/ &
+     &2.9581e+04_rb,2.2186e+04_rb,1.4791e+04_rb,7.3962e+03_rb,1.9407e+01_rb/)
+      kbo(:, 5,27,13) = (/ &
+     &2.9406e+04_rb,2.2055e+04_rb,1.4703e+04_rb,7.3522e+03_rb,1.8770e+01_rb/)
+      kbo(:, 1,28,13) = (/ &
+     &2.7326e+04_rb,2.0495e+04_rb,1.3664e+04_rb,6.8324e+03_rb,2.2732e+01_rb/)
+      kbo(:, 2,28,13) = (/ &
+     &2.7236e+04_rb,2.0428e+04_rb,1.3619e+04_rb,6.8100e+03_rb,2.2041e+01_rb/)
+      kbo(:, 3,28,13) = (/ &
+     &2.7174e+04_rb,2.0381e+04_rb,1.3588e+04_rb,6.7945e+03_rb,2.1170e+01_rb/)
+      kbo(:, 4,28,13) = (/ &
+     &2.7191e+04_rb,2.0394e+04_rb,1.3596e+04_rb,6.7985e+03_rb,2.0533e+01_rb/)
+      kbo(:, 5,28,13) = (/ &
+     &2.7306e+04_rb,2.0480e+04_rb,1.3654e+04_rb,6.8273e+03_rb,1.9803e+01_rb/)
+      kbo(:, 1,29,13) = (/ &
+     &2.6107e+04_rb,1.9580e+04_rb,1.3054e+04_rb,6.5276e+03_rb,2.3952e+01_rb/)
+      kbo(:, 2,29,13) = (/ &
+     &2.6178e+04_rb,1.9634e+04_rb,1.3090e+04_rb,6.5453e+03_rb,2.3128e+01_rb/)
+      kbo(:, 3,29,13) = (/ &
+     &2.6373e+04_rb,1.9780e+04_rb,1.3187e+04_rb,6.5941e+03_rb,2.2276e+01_rb/)
+      kbo(:, 4,29,13) = (/ &
+     &2.6674e+04_rb,2.0006e+04_rb,1.3338e+04_rb,6.6693e+03_rb,2.1526e+01_rb/)
+      kbo(:, 5,29,13) = (/ &
+     &2.7070e+04_rb,2.0303e+04_rb,1.3535e+04_rb,6.7681e+03_rb,2.0703e+01_rb/)
+      kbo(:, 1,30,13) = (/ &
+     &2.5565e+04_rb,1.9174e+04_rb,1.2783e+04_rb,6.3921e+03_rb,2.5015e+01_rb/)
+      kbo(:, 2,30,13) = (/ &
+     &2.5924e+04_rb,1.9443e+04_rb,1.2962e+04_rb,6.4818e+03_rb,2.4026e+01_rb/)
+      kbo(:, 3,30,13) = (/ &
+     &2.6425e+04_rb,1.9819e+04_rb,1.3213e+04_rb,6.6070e+03_rb,2.3238e+01_rb/)
+      kbo(:, 4,30,13) = (/ &
+     &2.7081e+04_rb,2.0311e+04_rb,1.3541e+04_rb,6.7710e+03_rb,2.2369e+01_rb/)
+      kbo(:, 5,30,13) = (/ &
+     &2.7860e+04_rb,2.0896e+04_rb,1.3931e+04_rb,6.9658e+03_rb,2.1263e+01_rb/)
+      kbo(:, 1,31,13) = (/ &
+     &2.6519e+04_rb,1.9890e+04_rb,1.3260e+04_rb,6.6306e+03_rb,2.5829e+01_rb/)
+      kbo(:, 2,31,13) = (/ &
+     &2.7266e+04_rb,2.0450e+04_rb,1.3634e+04_rb,6.8173e+03_rb,2.4917e+01_rb/)
+      kbo(:, 3,31,13) = (/ &
+     &2.8229e+04_rb,2.1172e+04_rb,1.4115e+04_rb,7.0579e+03_rb,2.4029e+01_rb/)
+      kbo(:, 4,31,13) = (/ &
+     &2.9353e+04_rb,2.2015e+04_rb,1.4677e+04_rb,7.3390e+03_rb,2.2989e+01_rb/)
+      kbo(:, 5,31,13) = (/ &
+     &3.0590e+04_rb,2.2943e+04_rb,1.5295e+04_rb,7.6481e+03_rb,2.1638e+01_rb/)
+      kbo(:, 1,32,13) = (/ &
+     &2.8188e+04_rb,2.1141e+04_rb,1.4095e+04_rb,7.0478e+03_rb,2.6468e+01_rb/)
+      kbo(:, 2,32,13) = (/ &
+     &2.9479e+04_rb,2.2110e+04_rb,1.4740e+04_rb,7.3705e+03_rb,2.5641e+01_rb/)
+      kbo(:, 3,32,13) = (/ &
+     &3.0998e+04_rb,2.3249e+04_rb,1.5500e+04_rb,7.7503e+03_rb,2.4646e+01_rb/)
+      kbo(:, 4,32,13) = (/ &
+     &3.2677e+04_rb,2.4508e+04_rb,1.6339e+04_rb,8.1700e+03_rb,2.3083e+01_rb/)
+      kbo(:, 5,32,13) = (/ &
+     &3.4456e+04_rb,2.5842e+04_rb,1.7228e+04_rb,8.6146e+03_rb,2.1888e+01_rb/)
+      kbo(:, 1,33,13) = (/ &
+     &3.1038e+04_rb,2.3278e+04_rb,1.5519e+04_rb,7.7602e+03_rb,2.7208e+01_rb/)
+      kbo(:, 2,33,13) = (/ &
+     &3.2999e+04_rb,2.4749e+04_rb,1.6500e+04_rb,8.2505e+03_rb,2.6145e+01_rb/)
+      kbo(:, 3,33,13) = (/ &
+     &3.5228e+04_rb,2.6421e+04_rb,1.7614e+04_rb,8.8077e+03_rb,2.4544e+01_rb/)
+      kbo(:, 4,33,13) = (/ &
+     &3.7600e+04_rb,2.8200e+04_rb,1.8800e+04_rb,9.4007e+03_rb,2.3159e+01_rb/)
+      kbo(:, 5,33,13) = (/ &
+     &4.0073e+04_rb,3.0055e+04_rb,2.0037e+04_rb,1.0019e+04_rb,2.2387e+01_rb/)
+      kbo(:, 1,34,13) = (/ &
+     &3.3858e+04_rb,2.5394e+04_rb,1.6930e+04_rb,8.4653e+03_rb,2.7625e+01_rb/)
+      kbo(:, 2,34,13) = (/ &
+     &3.6566e+04_rb,2.7425e+04_rb,1.8284e+04_rb,9.1422e+03_rb,2.6243e+01_rb/)
+      kbo(:, 3,34,13) = (/ &
+     &3.9555e+04_rb,2.9666e+04_rb,1.9778e+04_rb,9.8893e+03_rb,2.4430e+01_rb/)
+      kbo(:, 4,34,13) = (/ &
+     &4.2704e+04_rb,3.2028e+04_rb,2.1352e+04_rb,1.0677e+04_rb,2.3679e+01_rb/)
+      kbo(:, 5,34,13) = (/ &
+     &4.5894e+04_rb,3.4420e+04_rb,2.2947e+04_rb,1.1474e+04_rb,2.2773e+01_rb/)
+      kbo(:, 1,35,13) = (/ &
+     &3.7312e+04_rb,2.7984e+04_rb,1.8657e+04_rb,9.3288e+03_rb,2.7942e+01_rb/)
+      kbo(:, 2,35,13) = (/ &
+     &4.0881e+04_rb,3.0661e+04_rb,2.0441e+04_rb,1.0221e+04_rb,2.6106e+01_rb/)
+      kbo(:, 3,35,13) = (/ &
+     &4.4738e+04_rb,3.3554e+04_rb,2.2369e+04_rb,1.1185e+04_rb,2.5080e+01_rb/)
+      kbo(:, 4,35,13) = (/ &
+     &4.8754e+04_rb,3.6566e+04_rb,2.4377e+04_rb,1.2189e+04_rb,2.4179e+01_rb/)
+      kbo(:, 5,35,13) = (/ &
+     &5.2762e+04_rb,3.9572e+04_rb,2.6381e+04_rb,1.3191e+04_rb,2.3224e+01_rb/)
+      kbo(:, 1,36,13) = (/ &
+     &4.0999e+04_rb,3.0749e+04_rb,2.0500e+04_rb,1.0250e+04_rb,2.8213e+01_rb/)
+      kbo(:, 2,36,13) = (/ &
+     &4.5493e+04_rb,3.4120e+04_rb,2.2747e+04_rb,1.1374e+04_rb,2.6516e+01_rb/)
+      kbo(:, 3,36,13) = (/ &
+     &5.0302e+04_rb,3.7726e+04_rb,2.5151e+04_rb,1.2576e+04_rb,2.5690e+01_rb/)
+      kbo(:, 4,36,13) = (/ &
+     &5.5257e+04_rb,4.1443e+04_rb,2.7629e+04_rb,1.3815e+04_rb,2.4819e+01_rb/)
+      kbo(:, 5,36,13) = (/ &
+     &6.0175e+04_rb,4.5131e+04_rb,3.0088e+04_rb,1.5044e+04_rb,2.3837e+01_rb/)
+      kbo(:, 1,37,13) = (/ &
+     &4.3597e+04_rb,3.2698e+04_rb,2.1799e+04_rb,1.0900e+04_rb,2.8678e+01_rb/)
+      kbo(:, 2,37,13) = (/ &
+     &4.8963e+04_rb,3.6723e+04_rb,2.4482e+04_rb,1.2241e+04_rb,2.7079e+01_rb/)
+      kbo(:, 3,37,13) = (/ &
+     &5.4655e+04_rb,4.0991e+04_rb,2.7328e+04_rb,1.3664e+04_rb,2.6274e+01_rb/)
+      kbo(:, 4,37,13) = (/ &
+     &6.0506e+04_rb,4.5380e+04_rb,3.0253e+04_rb,1.5127e+04_rb,2.5504e+01_rb/)
+      kbo(:, 5,37,13) = (/ &
+     &6.6353e+04_rb,4.9765e+04_rb,3.3177e+04_rb,1.6589e+04_rb,2.4385e+01_rb/)
+      kbo(:, 1,38,13) = (/ &
+     &4.7296e+04_rb,3.5472e+04_rb,2.3648e+04_rb,1.1825e+04_rb,2.9114e+01_rb/)
+      kbo(:, 2,38,13) = (/ &
+     &5.3691e+04_rb,4.0269e+04_rb,2.6846e+04_rb,1.3423e+04_rb,2.7730e+01_rb/)
+      kbo(:, 3,38,13) = (/ &
+     &6.0448e+04_rb,4.5336e+04_rb,3.0224e+04_rb,1.5113e+04_rb,2.6995e+01_rb/)
+      kbo(:, 4,38,13) = (/ &
+     &6.7408e+04_rb,5.0556e+04_rb,3.3704e+04_rb,1.6852e+04_rb,2.6164e+01_rb/)
+      kbo(:, 5,38,13) = (/ &
+     &7.4361e+04_rb,5.5771e+04_rb,3.7181e+04_rb,1.8591e+04_rb,2.5025e+01_rb/)
+      kbo(:, 1,39,13) = (/ &
+     &5.2787e+04_rb,3.9591e+04_rb,2.6394e+04_rb,1.3198e+04_rb,2.9543e+01_rb/)
+      kbo(:, 2,39,13) = (/ &
+     &6.0481e+04_rb,4.5362e+04_rb,3.0242e+04_rb,1.5121e+04_rb,2.8398e+01_rb/)
+      kbo(:, 3,39,13) = (/ &
+     &6.8644e+04_rb,5.1483e+04_rb,3.4323e+04_rb,1.7162e+04_rb,2.7686e+01_rb/)
+      kbo(:, 4,39,13) = (/ &
+     &7.7024e+04_rb,5.7768e+04_rb,3.8513e+04_rb,1.9257e+04_rb,2.6627e+01_rb/)
+      kbo(:, 5,39,13) = (/ &
+     &8.5404e+04_rb,6.4053e+04_rb,4.2703e+04_rb,2.1352e+04_rb,2.5499e+01_rb/)
+      kbo(:, 1,40,13) = (/ &
+     &5.4787e+04_rb,4.1090e+04_rb,2.7394e+04_rb,1.3697e+04_rb,3.0183e+01_rb/)
+      kbo(:, 2,40,13) = (/ &
+     &6.3323e+04_rb,4.7492e+04_rb,3.1662e+04_rb,1.5831e+04_rb,2.8961e+01_rb/)
+      kbo(:, 3,40,13) = (/ &
+     &7.2463e+04_rb,5.4348e+04_rb,3.6232e+04_rb,1.8116e+04_rb,2.8295e+01_rb/)
+      kbo(:, 4,40,13) = (/ &
+     &8.1867e+04_rb,6.1400e+04_rb,4.0933e+04_rb,2.0467e+04_rb,2.7184e+01_rb/)
+      kbo(:, 5,40,13) = (/ &
+     &9.1325e+04_rb,6.8494e+04_rb,4.5663e+04_rb,2.2832e+04_rb,2.5988e+01_rb/)
+      kbo(:, 1,41,13) = (/ &
+     &5.6764e+04_rb,4.2573e+04_rb,2.8383e+04_rb,1.4192e+04_rb,3.0791e+01_rb/)
+      kbo(:, 2,41,13) = (/ &
+     &6.6130e+04_rb,4.9598e+04_rb,3.3066e+04_rb,1.6533e+04_rb,2.9538e+01_rb/)
+      kbo(:, 3,41,13) = (/ &
+     &7.6243e+04_rb,5.7183e+04_rb,3.8122e+04_rb,1.9062e+04_rb,2.8774e+01_rb/)
+      kbo(:, 4,41,13) = (/ &
+     &8.6738e+04_rb,6.5054e+04_rb,4.3370e+04_rb,2.1685e+04_rb,2.7771e+01_rb/)
+      kbo(:, 5,41,13) = (/ &
+     &9.7338e+04_rb,7.3004e+04_rb,4.8670e+04_rb,2.4335e+04_rb,2.6481e+01_rb/)
+      kbo(:, 1,42,13) = (/ &
+     &5.9574e+04_rb,4.4680e+04_rb,2.9787e+04_rb,1.4894e+04_rb,3.1338e+01_rb/)
+      kbo(:, 2,42,13) = (/ &
+     &6.9874e+04_rb,5.2405e+04_rb,3.4937e+04_rb,1.7469e+04_rb,3.0066e+01_rb/)
+      kbo(:, 3,42,13) = (/ &
+     &8.1118e+04_rb,6.0839e+04_rb,4.0559e+04_rb,2.0280e+04_rb,2.9330e+01_rb/)
+      kbo(:, 4,42,13) = (/ &
+     &9.2915e+04_rb,6.9686e+04_rb,4.6457e+04_rb,2.3229e+04_rb,2.8281e+01_rb/)
+      kbo(:, 5,42,13) = (/ &
+     &1.0485e+05_rb,7.8636e+04_rb,5.2424e+04_rb,2.6212e+04_rb,2.6956e+01_rb/)
+      kbo(:, 1,43,13) = (/ &
+     &6.2565e+04_rb,4.6924e+04_rb,3.1283e+04_rb,1.5642e+04_rb,3.1947e+01_rb/)
+      kbo(:, 2,43,13) = (/ &
+     &7.3881e+04_rb,5.5411e+04_rb,3.6941e+04_rb,1.8471e+04_rb,3.0710e+01_rb/)
+      kbo(:, 3,43,13) = (/ &
+     &8.6376e+04_rb,6.4783e+04_rb,4.3189e+04_rb,2.1595e+04_rb,2.9823e+01_rb/)
+      kbo(:, 4,43,13) = (/ &
+     &9.9633e+04_rb,7.4725e+04_rb,4.9817e+04_rb,2.4909e+04_rb,2.8916e+01_rb/)
+      kbo(:, 5,43,13) = (/ &
+     &1.1317e+05_rb,8.4879e+04_rb,5.6586e+04_rb,2.8294e+04_rb,2.7433e+01_rb/)
+      kbo(:, 1,44,13) = (/ &
+     &6.6377e+04_rb,4.9783e+04_rb,3.3188e+04_rb,1.6595e+04_rb,3.2537e+01_rb/)
+      kbo(:, 2,44,13) = (/ &
+     &7.8875e+04_rb,5.9156e+04_rb,3.9437e+04_rb,1.9719e+04_rb,3.1463e+01_rb/)
+      kbo(:, 3,44,13) = (/ &
+     &9.2826e+04_rb,6.9619e+04_rb,4.6413e+04_rb,2.3207e+04_rb,3.0339e+01_rb/)
+      kbo(:, 4,44,13) = (/ &
+     &1.0782e+05_rb,8.0864e+04_rb,5.3909e+04_rb,2.6955e+04_rb,2.9519e+01_rb/)
+      kbo(:, 5,44,13) = (/ &
+     &1.2335e+05_rb,9.2508e+04_rb,6.1672e+04_rb,3.0836e+04_rb,2.7886e+01_rb/)
+      kbo(:, 1,45,13) = (/ &
+     &7.1874e+04_rb,5.3905e+04_rb,3.5937e+04_rb,1.7969e+04_rb,3.3146e+01_rb/)
+      kbo(:, 2,45,13) = (/ &
+     &8.5887e+04_rb,6.4415e+04_rb,4.2944e+04_rb,2.1472e+04_rb,3.2123e+01_rb/)
+      kbo(:, 3,45,13) = (/ &
+     &1.0168e+05_rb,7.6262e+04_rb,5.0841e+04_rb,2.5421e+04_rb,3.0727e+01_rb/)
+      kbo(:, 4,45,13) = (/ &
+     &1.1891e+05_rb,8.9181e+04_rb,5.9454e+04_rb,2.9727e+04_rb,3.0052e+01_rb/)
+      kbo(:, 5,45,13) = (/ &
+     &1.3695e+05_rb,1.0272e+05_rb,6.8477e+04_rb,3.4239e+04_rb,2.8423e+01_rb/)
+      kbo(:, 1,46,13) = (/ &
+     &7.8328e+04_rb,5.8747e+04_rb,3.9165e+04_rb,1.9583e+04_rb,3.3800e+01_rb/)
+      kbo(:, 2,46,13) = (/ &
+     &9.4082e+04_rb,7.0562e+04_rb,4.7041e+04_rb,2.3521e+04_rb,3.2751e+01_rb/)
+      kbo(:, 3,46,13) = (/ &
+     &1.1205e+05_rb,8.4041e+04_rb,5.6028e+04_rb,2.8014e+04_rb,3.1210e+01_rb/)
+      kbo(:, 4,46,13) = (/ &
+     &1.3188e+05_rb,9.8910e+04_rb,6.5940e+04_rb,3.2971e+04_rb,3.0670e+01_rb/)
+      kbo(:, 5,46,13) = (/ &
+     &1.5296e+05_rb,1.1472e+05_rb,7.6478e+04_rb,3.8239e+04_rb,2.9020e+01_rb/)
+      kbo(:, 1,47,13) = (/ &
+     &8.3810e+04_rb,6.2858e+04_rb,4.1906e+04_rb,2.0953e+04_rb,3.4456e+01_rb/)
+      kbo(:, 2,47,13) = (/ &
+     &1.0129e+05_rb,7.5968e+04_rb,5.0646e+04_rb,2.5323e+04_rb,3.3326e+01_rb/)
+      kbo(:, 3,47,13) = (/ &
+     &1.2133e+05_rb,9.0998e+04_rb,6.0666e+04_rb,3.0333e+04_rb,3.1897e+01_rb/)
+      kbo(:, 4,47,13) = (/ &
+     &1.4374e+05_rb,1.0781e+05_rb,7.1871e+04_rb,3.5936e+04_rb,3.1165e+01_rb/)
+      kbo(:, 5,47,13) = (/ &
+     &1.6790e+05_rb,1.2593e+05_rb,8.3952e+04_rb,4.1976e+04_rb,2.9653e+01_rb/)
+      kbo(:, 1,48,13) = (/ &
+     &9.2009e+04_rb,6.9007e+04_rb,4.6005e+04_rb,2.3003e+04_rb,3.5004e+01_rb/)
+      kbo(:, 2,48,13) = (/ &
+     &1.1207e+05_rb,8.4051e+04_rb,5.6034e+04_rb,2.8018e+04_rb,3.3918e+01_rb/)
+      kbo(:, 3,48,13) = (/ &
+     &1.3494e+05_rb,1.0121e+05_rb,6.7471e+04_rb,3.3736e+04_rb,3.2425e+01_rb/)
+      kbo(:, 4,48,13) = (/ &
+     &1.6083e+05_rb,1.2063e+05_rb,8.0418e+04_rb,4.0210e+04_rb,3.1652e+01_rb/)
+      kbo(:, 5,48,13) = (/ &
+     &1.8920e+05_rb,1.4190e+05_rb,9.4599e+04_rb,4.7300e+04_rb,3.0396e+01_rb/)
+      kbo(:, 1,49,13) = (/ &
+     &1.0515e+05_rb,7.8866e+04_rb,5.2577e+04_rb,2.6289e+04_rb,3.5598e+01_rb/)
+      kbo(:, 2,49,13) = (/ &
+     &1.2899e+05_rb,9.6745e+04_rb,6.4497e+04_rb,3.2249e+04_rb,3.4541e+01_rb/)
+      kbo(:, 3,49,13) = (/ &
+     &1.5618e+05_rb,1.1714e+05_rb,7.8092e+04_rb,3.9046e+04_rb,3.3166e+01_rb/)
+      kbo(:, 4,49,13) = (/ &
+     &1.8721e+05_rb,1.4041e+05_rb,9.3606e+04_rb,4.6803e+04_rb,3.2127e+01_rb/)
+      kbo(:, 5,49,13) = (/ &
+     &2.2166e+05_rb,1.6624e+05_rb,1.1083e+05_rb,5.5414e+04_rb,3.1114e+01_rb/)
+      kbo(:, 1,50,13) = (/ &
+     &1.1492e+05_rb,8.6190e+04_rb,5.7460e+04_rb,2.8730e+04_rb,3.5920e+01_rb/)
+      kbo(:, 2,50,13) = (/ &
+     &1.4177e+05_rb,1.0633e+05_rb,7.0884e+04_rb,3.5442e+04_rb,3.5009e+01_rb/)
+      kbo(:, 3,50,13) = (/ &
+     &1.7284e+05_rb,1.2963e+05_rb,8.6422e+04_rb,4.3212e+04_rb,3.3840e+01_rb/)
+      kbo(:, 4,50,13) = (/ &
+     &2.0816e+05_rb,1.5612e+05_rb,1.0408e+05_rb,5.2042e+04_rb,3.2614e+01_rb/)
+      kbo(:, 5,50,13) = (/ &
+     &2.4789e+05_rb,1.8591e+05_rb,1.2394e+05_rb,6.1972e+04_rb,3.1787e+01_rb/)
+      kbo(:, 1,51,13) = (/ &
+     &1.2316e+05_rb,9.2372e+04_rb,6.1582e+04_rb,3.0791e+04_rb,3.6248e+01_rb/)
+      kbo(:, 2,51,13) = (/ &
+     &1.5257e+05_rb,1.1443e+05_rb,7.6284e+04_rb,3.8142e+04_rb,3.5464e+01_rb/)
+      kbo(:, 3,51,13) = (/ &
+     &1.8735e+05_rb,1.4051e+05_rb,9.3677e+04_rb,4.6839e+04_rb,3.4431e+01_rb/)
+      kbo(:, 4,51,13) = (/ &
+     &2.2663e+05_rb,1.6997e+05_rb,1.1332e+05_rb,5.6659e+04_rb,3.2971e+01_rb/)
+      kbo(:, 5,51,13) = (/ &
+     &2.7128e+05_rb,2.0346e+05_rb,1.3564e+05_rb,6.7820e+04_rb,3.2477e+01_rb/)
+      kbo(:, 1,52,13) = (/ &
+     &1.3564e+05_rb,1.0173e+05_rb,6.7822e+04_rb,3.3911e+04_rb,3.6511e+01_rb/)
+      kbo(:, 2,52,13) = (/ &
+     &1.6873e+05_rb,1.2655e+05_rb,8.4367e+04_rb,4.2184e+04_rb,3.5955e+01_rb/)
+      kbo(:, 3,52,13) = (/ &
+     &2.0841e+05_rb,1.5631e+05_rb,1.0421e+05_rb,5.2104e+04_rb,3.4988e+01_rb/)
+      kbo(:, 4,52,13) = (/ &
+     &2.5356e+05_rb,1.9017e+05_rb,1.2678e+05_rb,6.3390e+04_rb,3.3412e+01_rb/)
+      kbo(:, 5,52,13) = (/ &
+     &3.0501e+05_rb,2.2876e+05_rb,1.5250e+05_rb,7.6253e+04_rb,3.3108e+01_rb/)
+      kbo(:, 1,53,13) = (/ &
+     &1.5552e+05_rb,1.1664e+05_rb,7.7762e+04_rb,3.8882e+04_rb,3.6856e+01_rb/)
+      kbo(:, 2,53,13) = (/ &
+     &1.9425e+05_rb,1.4569e+05_rb,9.7128e+04_rb,4.8565e+04_rb,3.6432e+01_rb/)
+      kbo(:, 3,53,13) = (/ &
+     &2.4103e+05_rb,1.8077e+05_rb,1.2051e+05_rb,6.0258e+04_rb,3.5535e+01_rb/)
+      kbo(:, 4,53,13) = (/ &
+     &2.9532e+05_rb,2.2149e+05_rb,1.4766e+05_rb,7.3832e+04_rb,3.3878e+01_rb/)
+      kbo(:, 5,53,13) = (/ &
+     &3.5673e+05_rb,2.6755e+05_rb,1.7837e+05_rb,8.9184e+04_rb,3.3830e+01_rb/)
+      kbo(:, 1,54,13) = (/ &
+     &1.5519e+05_rb,1.1639e+05_rb,7.7595e+04_rb,3.8798e+04_rb,3.7137e+01_rb/)
+      kbo(:, 2,54,13) = (/ &
+     &1.9455e+05_rb,1.4591e+05_rb,9.7277e+04_rb,4.8639e+04_rb,3.6719e+01_rb/)
+      kbo(:, 3,54,13) = (/ &
+     &2.4223e+05_rb,1.8167e+05_rb,1.2111e+05_rb,6.0558e+04_rb,3.5737e+01_rb/)
+      kbo(:, 4,54,13) = (/ &
+     &2.9863e+05_rb,2.2398e+05_rb,1.4932e+05_rb,7.4660e+04_rb,3.4182e+01_rb/)
+      kbo(:, 5,54,13) = (/ &
+     &3.6225e+05_rb,2.7169e+05_rb,1.8113e+05_rb,9.0564e+04_rb,3.4090e+01_rb/)
+      kbo(:, 1,55,13) = (/ &
+     &1.4179e+05_rb,1.0634e+05_rb,7.0895e+04_rb,3.5448e+04_rb,3.7500e+01_rb/)
+      kbo(:, 2,55,13) = (/ &
+     &1.7805e+05_rb,1.3354e+05_rb,8.9025e+04_rb,4.4513e+04_rb,3.6673e+01_rb/)
+      kbo(:, 3,55,13) = (/ &
+     &2.2250e+05_rb,1.6688e+05_rb,1.1125e+05_rb,5.5626e+04_rb,3.6002e+01_rb/)
+      kbo(:, 4,55,13) = (/ &
+     &2.7565e+05_rb,2.0674e+05_rb,1.3783e+05_rb,6.8913e+04_rb,3.4967e+01_rb/)
+      kbo(:, 5,55,13) = (/ &
+     &3.3613e+05_rb,2.5210e+05_rb,1.6807e+05_rb,8.4034e+04_rb,3.3605e+01_rb/)
+      kbo(:, 1,56,13) = (/ &
+     &1.2955e+05_rb,9.7160e+04_rb,6.4773e+04_rb,3.2387e+04_rb,3.7592e+01_rb/)
+      kbo(:, 2,56,13) = (/ &
+     &1.6291e+05_rb,1.2218e+05_rb,8.1452e+04_rb,4.0726e+04_rb,3.6892e+01_rb/)
+      kbo(:, 3,56,13) = (/ &
+     &2.0430e+05_rb,1.5322e+05_rb,1.0215e+05_rb,5.1074e+04_rb,3.6401e+01_rb/)
+      kbo(:, 4,56,13) = (/ &
+     &2.5407e+05_rb,1.9055e+05_rb,1.2704e+05_rb,6.3518e+04_rb,3.5416e+01_rb/)
+      kbo(:, 5,56,13) = (/ &
+     &3.1173e+05_rb,2.3380e+05_rb,1.5586e+05_rb,7.7932e+04_rb,3.3725e+01_rb/)
+      kbo(:, 1,57,13) = (/ &
+     &1.1844e+05_rb,8.8830e+04_rb,5.9220e+04_rb,2.9610e+04_rb,3.7590e+01_rb/)
+      kbo(:, 2,57,13) = (/ &
+     &1.4902e+05_rb,1.1176e+05_rb,7.4508e+04_rb,3.7254e+04_rb,3.7340e+01_rb/)
+      kbo(:, 3,57,13) = (/ &
+     &1.8747e+05_rb,1.4060e+05_rb,9.3736e+04_rb,4.6868e+04_rb,3.6437e+01_rb/)
+      kbo(:, 4,57,13) = (/ &
+     &2.3395e+05_rb,1.7546e+05_rb,1.1697e+05_rb,5.8487e+04_rb,3.5598e+01_rb/)
+      kbo(:, 5,57,13) = (/ &
+     &2.8870e+05_rb,2.1653e+05_rb,1.4435e+05_rb,7.2175e+04_rb,3.4562e+01_rb/)
+      kbo(:, 1,58,13) = (/ &
+     &2.8654e+04_rb,2.6272e+04_rb,2.2526e+04_rb,1.5777e+04_rb,3.7286e+01_rb/)
+      kbo(:, 2,58,13) = (/ &
+     &3.6090e+04_rb,3.3089e+04_rb,2.8371e+04_rb,1.9871e+04_rb,3.7547e+01_rb/)
+      kbo(:, 3,58,13) = (/ &
+     &4.5492e+04_rb,4.1710e+04_rb,3.5762e+04_rb,2.5048e+04_rb,3.6650e+01_rb/)
+      kbo(:, 4,58,13) = (/ &
+     &5.6953e+04_rb,5.2217e+04_rb,4.4772e+04_rb,3.1358e+04_rb,3.6005e+01_rb/)
+      kbo(:, 5,58,13) = (/ &
+     &7.0617e+04_rb,6.4745e+04_rb,5.5513e+04_rb,3.8881e+04_rb,3.4983e+01_rb/)
+      kbo(:, 1,59,13) = (/ &
+     &3.2425e+04_rb,2.8312e+04_rb,2.2583e+04_rb,1.4053e+04_rb,3.7337e+01_rb/)
+      kbo(:, 2,59,13) = (/ &
+     &4.0874e+04_rb,3.5689e+04_rb,2.8468e+04_rb,1.7715e+04_rb,3.7354e+01_rb/)
+      kbo(:, 3,59,13) = (/ &
+     &5.1569e+04_rb,4.5029e+04_rb,3.5917e+04_rb,2.2350e+04_rb,3.7146e+01_rb/)
+      kbo(:, 4,59,13) = (/ &
+     &6.4659e+04_rb,5.6458e+04_rb,4.5034e+04_rb,2.8023e+04_rb,3.5794e+01_rb/)
+      kbo(:, 5,59,13) = (/ &
+     &8.0312e+04_rb,7.0125e+04_rb,5.5936e+04_rb,3.4807e+04_rb,3.4858e+01_rb/)
+      kbo(:, 1,13,14) = (/ &
+     &5.5354e+05_rb,4.1516e+05_rb,2.7677e+05_rb,1.3839e+05_rb,6.6359e+00_rb/)
+      kbo(:, 2,13,14) = (/ &
+     &5.3662e+05_rb,4.0247e+05_rb,2.6831e+05_rb,1.3416e+05_rb,6.3521e+00_rb/)
+      kbo(:, 3,13,14) = (/ &
+     &5.2321e+05_rb,3.9241e+05_rb,2.6161e+05_rb,1.3080e+05_rb,6.1777e+00_rb/)
+      kbo(:, 4,13,14) = (/ &
+     &5.1223e+05_rb,3.8417e+05_rb,2.5612e+05_rb,1.2806e+05_rb,5.8113e+00_rb/)
+      kbo(:, 5,13,14) = (/ &
+     &5.0254e+05_rb,3.7690e+05_rb,2.5127e+05_rb,1.2564e+05_rb,5.1461e+00_rb/)
+      kbo(:, 1,14,14) = (/ &
+     &3.6531e+05_rb,2.7398e+05_rb,1.8265e+05_rb,9.1327e+04_rb,7.3146e+00_rb/)
+      kbo(:, 2,14,14) = (/ &
+     &3.5777e+05_rb,2.6833e+05_rb,1.7888e+05_rb,8.9442e+04_rb,7.0661e+00_rb/)
+      kbo(:, 3,14,14) = (/ &
+     &3.5166e+05_rb,2.6375e+05_rb,1.7583e+05_rb,8.7915e+04_rb,6.6597e+00_rb/)
+      kbo(:, 4,14,14) = (/ &
+     &3.4675e+05_rb,2.6006e+05_rb,1.7337e+05_rb,8.6687e+04_rb,6.5607e+00_rb/)
+      kbo(:, 5,14,14) = (/ &
+     &3.4224e+05_rb,2.5668e+05_rb,1.7112e+05_rb,8.5559e+04_rb,6.0728e+00_rb/)
+      kbo(:, 1,15,14) = (/ &
+     &2.5038e+05_rb,1.8779e+05_rb,1.2519e+05_rb,6.2598e+04_rb,8.1437e+00_rb/)
+      kbo(:, 2,15,14) = (/ &
+     &2.4740e+05_rb,1.8555e+05_rb,1.2370e+05_rb,6.1853e+04_rb,7.8645e+00_rb/)
+      kbo(:, 3,15,14) = (/ &
+     &2.4508e+05_rb,1.8381e+05_rb,1.2254e+05_rb,6.1272e+04_rb,7.4907e+00_rb/)
+      kbo(:, 4,15,14) = (/ &
+     &2.4271e+05_rb,1.8203e+05_rb,1.2136e+05_rb,6.0680e+04_rb,7.2641e+00_rb/)
+      kbo(:, 5,15,14) = (/ &
+     &2.4052e+05_rb,1.8039e+05_rb,1.2026e+05_rb,6.0131e+04_rb,7.0682e+00_rb/)
+      kbo(:, 1,16,14) = (/ &
+     &2.0782e+05_rb,1.5587e+05_rb,1.0391e+05_rb,5.1957e+04_rb,9.0703e+00_rb/)
+      kbo(:, 2,16,14) = (/ &
+     &2.0661e+05_rb,1.5496e+05_rb,1.0331e+05_rb,5.1654e+04_rb,8.7622e+00_rb/)
+      kbo(:, 3,16,14) = (/ &
+     &2.0513e+05_rb,1.5385e+05_rb,1.0257e+05_rb,5.1284e+04_rb,8.4635e+00_rb/)
+      kbo(:, 4,16,14) = (/ &
+     &2.0374e+05_rb,1.5280e+05_rb,1.0187e+05_rb,5.0936e+04_rb,8.1015e+00_rb/)
+      kbo(:, 5,16,14) = (/ &
+     &2.0191e+05_rb,1.5143e+05_rb,1.0096e+05_rb,5.0479e+04_rb,7.9045e+00_rb/)
+      kbo(:, 1,17,14) = (/ &
+     &1.8037e+05_rb,1.3528e+05_rb,9.0185e+04_rb,4.5093e+04_rb,1.0108e+01_rb/)
+      kbo(:, 2,17,14) = (/ &
+     &1.7972e+05_rb,1.3479e+05_rb,8.9862e+04_rb,4.4932e+04_rb,9.7857e+00_rb/)
+      kbo(:, 3,17,14) = (/ &
+     &1.7906e+05_rb,1.3430e+05_rb,8.9533e+04_rb,4.4767e+04_rb,9.4761e+00_rb/)
+      kbo(:, 4,17,14) = (/ &
+     &1.7788e+05_rb,1.3341e+05_rb,8.8942e+04_rb,4.4472e+04_rb,9.0551e+00_rb/)
+      kbo(:, 5,17,14) = (/ &
+     &1.7662e+05_rb,1.3247e+05_rb,8.8311e+04_rb,4.4156e+04_rb,8.8726e+00_rb/)
+      kbo(:, 1,18,14) = (/ &
+     &1.6160e+05_rb,1.2120e+05_rb,8.0801e+04_rb,4.0401e+04_rb,1.1327e+01_rb/)
+      kbo(:, 2,18,14) = (/ &
+     &1.6141e+05_rb,1.2106e+05_rb,8.0704e+04_rb,4.0353e+04_rb,1.1010e+01_rb/)
+      kbo(:, 3,18,14) = (/ &
+     &1.6076e+05_rb,1.2057e+05_rb,8.0382e+04_rb,4.0192e+04_rb,1.0693e+01_rb/)
+      kbo(:, 4,18,14) = (/ &
+     &1.6001e+05_rb,1.2001e+05_rb,8.0005e+04_rb,4.0003e+04_rb,1.0193e+01_rb/)
+      kbo(:, 5,18,14) = (/ &
+     &1.5881e+05_rb,1.1911e+05_rb,7.9406e+04_rb,3.9704e+04_rb,1.0071e+01_rb/)
+      kbo(:, 1,19,14) = (/ &
+     &1.4270e+05_rb,1.0702e+05_rb,7.1350e+04_rb,3.5676e+04_rb,1.2821e+01_rb/)
+      kbo(:, 2,19,14) = (/ &
+     &1.4247e+05_rb,1.0685e+05_rb,7.1236e+04_rb,3.5619e+04_rb,1.2498e+01_rb/)
+      kbo(:, 3,19,14) = (/ &
+     &1.4204e+05_rb,1.0653e+05_rb,7.1022e+04_rb,3.5511e+04_rb,1.2171e+01_rb/)
+      kbo(:, 4,19,14) = (/ &
+     &1.4126e+05_rb,1.0594e+05_rb,7.0629e+04_rb,3.5315e+04_rb,1.1680e+01_rb/)
+      kbo(:, 5,19,14) = (/ &
+     &1.4024e+05_rb,1.0518e+05_rb,7.0119e+04_rb,3.5060e+04_rb,1.1491e+01_rb/)
+      kbo(:, 1,20,14) = (/ &
+     &1.3563e+05_rb,1.0173e+05_rb,6.7817e+04_rb,3.3909e+04_rb,1.4618e+01_rb/)
+      kbo(:, 2,20,14) = (/ &
+     &1.3541e+05_rb,1.0156e+05_rb,6.7708e+04_rb,3.3855e+04_rb,1.4263e+01_rb/)
+      kbo(:, 3,20,14) = (/ &
+     &1.3484e+05_rb,1.0113e+05_rb,6.7419e+04_rb,3.3710e+04_rb,1.3906e+01_rb/)
+      kbo(:, 4,20,14) = (/ &
+     &1.3404e+05_rb,1.0053e+05_rb,6.7023e+04_rb,3.3512e+04_rb,1.3385e+01_rb/)
+      kbo(:, 5,20,14) = (/ &
+     &1.3293e+05_rb,9.9699e+04_rb,6.6466e+04_rb,3.3234e+04_rb,1.3122e+01_rb/)
+      kbo(:, 1,21,14) = (/ &
+     &1.3198e+05_rb,9.8983e+04_rb,6.5989e+04_rb,3.2995e+04_rb,1.6661e+01_rb/)
+      kbo(:, 2,21,14) = (/ &
+     &1.3158e+05_rb,9.8688e+04_rb,6.5792e+04_rb,3.2897e+04_rb,1.6248e+01_rb/)
+      kbo(:, 3,21,14) = (/ &
+     &1.3094e+05_rb,9.8202e+04_rb,6.5468e+04_rb,3.2735e+04_rb,1.5812e+01_rb/)
+      kbo(:, 4,21,14) = (/ &
+     &1.3001e+05_rb,9.7504e+04_rb,6.5003e+04_rb,3.2502e+04_rb,1.5225e+01_rb/)
+      kbo(:, 5,21,14) = (/ &
+     &1.2884e+05_rb,9.6632e+04_rb,6.4422e+04_rb,3.2211e+04_rb,1.4867e+01_rb/)
+      kbo(:, 1,22,14) = (/ &
+     &1.3028e+05_rb,9.7707e+04_rb,6.5139e+04_rb,3.2570e+04_rb,1.8806e+01_rb/)
+      kbo(:, 2,22,14) = (/ &
+     &1.2981e+05_rb,9.7355e+04_rb,6.4904e+04_rb,3.2452e+04_rb,1.8310e+01_rb/)
+      kbo(:, 3,22,14) = (/ &
+     &1.2902e+05_rb,9.6763e+04_rb,6.4509e+04_rb,3.2255e+04_rb,1.7798e+01_rb/)
+      kbo(:, 4,22,14) = (/ &
+     &1.2795e+05_rb,9.5966e+04_rb,6.3978e+04_rb,3.1989e+04_rb,1.7136e+01_rb/)
+      kbo(:, 5,22,14) = (/ &
+     &1.2666e+05_rb,9.4996e+04_rb,6.3331e+04_rb,3.1666e+04_rb,1.6711e+01_rb/)
+      kbo(:, 1,23,14) = (/ &
+     &1.2794e+05_rb,9.5952e+04_rb,6.3968e+04_rb,3.1985e+04_rb,2.1073e+01_rb/)
+      kbo(:, 2,23,14) = (/ &
+     &1.2735e+05_rb,9.5515e+04_rb,6.3677e+04_rb,3.1839e+04_rb,2.0511e+01_rb/)
+      kbo(:, 3,23,14) = (/ &
+     &1.2647e+05_rb,9.4850e+04_rb,6.3234e+04_rb,3.1617e+04_rb,1.9930e+01_rb/)
+      kbo(:, 4,23,14) = (/ &
+     &1.2537e+05_rb,9.4025e+04_rb,6.2684e+04_rb,3.1342e+04_rb,1.9174e+01_rb/)
+      kbo(:, 5,23,14) = (/ &
+     &1.2398e+05_rb,9.2985e+04_rb,6.1990e+04_rb,3.0996e+04_rb,1.8667e+01_rb/)
+      kbo(:, 1,24,14) = (/ &
+     &1.2343e+05_rb,9.2570e+04_rb,6.1714e+04_rb,3.0858e+04_rb,2.3485e+01_rb/)
+      kbo(:, 2,24,14) = (/ &
+     &1.2276e+05_rb,9.2074e+04_rb,6.1383e+04_rb,3.0692e+04_rb,2.2824e+01_rb/)
+      kbo(:, 3,24,14) = (/ &
+     &1.2194e+05_rb,9.1458e+04_rb,6.0973e+04_rb,3.0487e+04_rb,2.2153e+01_rb/)
+      kbo(:, 4,24,14) = (/ &
+     &1.2080e+05_rb,9.0601e+04_rb,6.0401e+04_rb,3.0201e+04_rb,2.1291e+01_rb/)
+      kbo(:, 5,24,14) = (/ &
+     &1.1949e+05_rb,8.9617e+04_rb,5.9745e+04_rb,2.9873e+04_rb,2.0633e+01_rb/)
+      kbo(:, 1,25,14) = (/ &
+     &1.1905e+05_rb,8.9291e+04_rb,5.9528e+04_rb,2.9764e+04_rb,2.5966e+01_rb/)
+      kbo(:, 2,25,14) = (/ &
+     &1.1853e+05_rb,8.8894e+04_rb,5.9263e+04_rb,2.9632e+04_rb,2.5184e+01_rb/)
+      kbo(:, 3,25,14) = (/ &
+     &1.1769e+05_rb,8.8271e+04_rb,5.8848e+04_rb,2.9424e+04_rb,2.4373e+01_rb/)
+      kbo(:, 4,25,14) = (/ &
+     &1.1666e+05_rb,8.7497e+04_rb,5.8331e+04_rb,2.9166e+04_rb,2.3367e+01_rb/)
+      kbo(:, 5,25,14) = (/ &
+     &1.1542e+05_rb,8.6565e+04_rb,5.7710e+04_rb,2.8855e+04_rb,2.2586e+01_rb/)
+      kbo(:, 1,26,14) = (/ &
+     &1.1553e+05_rb,8.6651e+04_rb,5.7768e+04_rb,2.8884e+04_rb,2.8441e+01_rb/)
+      kbo(:, 2,26,14) = (/ &
+     &1.1511e+05_rb,8.6329e+04_rb,5.7553e+04_rb,2.8777e+04_rb,2.7500e+01_rb/)
+      kbo(:, 3,26,14) = (/ &
+     &1.1443e+05_rb,8.5820e+04_rb,5.7213e+04_rb,2.8607e+04_rb,2.6532e+01_rb/)
+      kbo(:, 4,26,14) = (/ &
+     &1.1356e+05_rb,8.5172e+04_rb,5.6781e+04_rb,2.8391e+04_rb,2.5362e+01_rb/)
+      kbo(:, 5,26,14) = (/ &
+     &1.1241e+05_rb,8.4309e+04_rb,5.6206e+04_rb,2.8103e+04_rb,2.4468e+01_rb/)
+      kbo(:, 1,27,14) = (/ &
+     &1.1545e+05_rb,8.6587e+04_rb,5.7725e+04_rb,2.8863e+04_rb,3.0839e+01_rb/)
+      kbo(:, 2,27,14) = (/ &
+     &1.1514e+05_rb,8.6352e+04_rb,5.7568e+04_rb,2.8785e+04_rb,2.9713e+01_rb/)
+      kbo(:, 3,27,14) = (/ &
+     &1.1466e+05_rb,8.5998e+04_rb,5.7332e+04_rb,2.8667e+04_rb,2.8580e+01_rb/)
+      kbo(:, 4,27,14) = (/ &
+     &1.1391e+05_rb,8.5436e+04_rb,5.6958e+04_rb,2.8479e+04_rb,2.7213e+01_rb/)
+      kbo(:, 5,27,14) = (/ &
+     &1.1293e+05_rb,8.4701e+04_rb,5.6467e+04_rb,2.8234e+04_rb,2.6212e+01_rb/)
+      kbo(:, 1,28,14) = (/ &
+     &1.1769e+05_rb,8.8268e+04_rb,5.8845e+04_rb,2.9423e+04_rb,3.3091e+01_rb/)
+      kbo(:, 2,28,14) = (/ &
+     &1.1765e+05_rb,8.8234e+04_rb,5.8823e+04_rb,2.9412e+04_rb,3.1766e+01_rb/)
+      kbo(:, 3,28,14) = (/ &
+     &1.1733e+05_rb,8.7997e+04_rb,5.8665e+04_rb,2.9333e+04_rb,3.0463e+01_rb/)
+      kbo(:, 4,28,14) = (/ &
+     &1.1677e+05_rb,8.7580e+04_rb,5.8387e+04_rb,2.9194e+04_rb,2.8874e+01_rb/)
+      kbo(:, 5,28,14) = (/ &
+     &1.1593e+05_rb,8.6950e+04_rb,5.7967e+04_rb,2.8984e+04_rb,2.7821e+01_rb/)
+      kbo(:, 1,29,14) = (/ &
+     &1.2676e+05_rb,9.5071e+04_rb,6.3381e+04_rb,3.1691e+04_rb,3.5131e+01_rb/)
+      kbo(:, 2,29,14) = (/ &
+     &1.2709e+05_rb,9.5318e+04_rb,6.3545e+04_rb,3.1773e+04_rb,3.3613e+01_rb/)
+      kbo(:, 3,29,14) = (/ &
+     &1.2701e+05_rb,9.5260e+04_rb,6.3507e+04_rb,3.1754e+04_rb,3.1981e+01_rb/)
+      kbo(:, 4,29,14) = (/ &
+     &1.2660e+05_rb,9.4952e+04_rb,6.3301e+04_rb,3.1651e+04_rb,3.0369e+01_rb/)
+      kbo(:, 5,29,14) = (/ &
+     &1.2589e+05_rb,9.4414e+04_rb,6.2943e+04_rb,3.1472e+04_rb,2.9250e+01_rb/)
+      kbo(:, 1,30,14) = (/ &
+     &1.3959e+05_rb,1.0469e+05_rb,6.9793e+04_rb,3.4897e+04_rb,3.6931e+01_rb/)
+      kbo(:, 2,30,14) = (/ &
+     &1.4034e+05_rb,1.0525e+05_rb,7.0169e+04_rb,3.5085e+04_rb,3.5216e+01_rb/)
+      kbo(:, 3,30,14) = (/ &
+     &1.4057e+05_rb,1.0543e+05_rb,7.0285e+04_rb,3.5143e+04_rb,3.3253e+01_rb/)
+      kbo(:, 4,30,14) = (/ &
+     &1.4040e+05_rb,1.0530e+05_rb,7.0200e+04_rb,3.5100e+04_rb,3.1871e+01_rb/)
+      kbo(:, 5,30,14) = (/ &
+     &1.3970e+05_rb,1.0477e+05_rb,6.9850e+04_rb,3.4925e+04_rb,3.0435e+01_rb/)
+      kbo(:, 1,31,14) = (/ &
+     &1.6150e+05_rb,1.2112e+05_rb,8.0748e+04_rb,4.0374e+04_rb,3.8448e+01_rb/)
+      kbo(:, 2,31,14) = (/ &
+     &1.6274e+05_rb,1.2205e+05_rb,8.1369e+04_rb,4.0685e+04_rb,3.6340e+01_rb/)
+      kbo(:, 3,31,14) = (/ &
+     &1.6341e+05_rb,1.2256e+05_rb,8.1707e+04_rb,4.0854e+04_rb,3.4532e+01_rb/)
+      kbo(:, 4,31,14) = (/ &
+     &1.6341e+05_rb,1.2256e+05_rb,8.1706e+04_rb,4.0853e+04_rb,3.3032e+01_rb/)
+      kbo(:, 5,31,14) = (/ &
+     &1.6281e+05_rb,1.2211e+05_rb,8.1407e+04_rb,4.0704e+04_rb,3.1374e+01_rb/)
+      kbo(:, 1,32,14) = (/ &
+     &1.8902e+05_rb,1.4177e+05_rb,9.4511e+04_rb,4.7256e+04_rb,3.9673e+01_rb/)
+      kbo(:, 2,32,14) = (/ &
+     &1.9095e+05_rb,1.4322e+05_rb,9.5478e+04_rb,4.7739e+04_rb,3.7210e+01_rb/)
+      kbo(:, 3,32,14) = (/ &
+     &1.9208e+05_rb,1.4406e+05_rb,9.6041e+04_rb,4.8021e+04_rb,3.5668e+01_rb/)
+      kbo(:, 4,32,14) = (/ &
+     &1.9230e+05_rb,1.4423e+05_rb,9.6153e+04_rb,4.8077e+04_rb,3.3902e+01_rb/)
+      kbo(:, 5,32,14) = (/ &
+     &1.9178e+05_rb,1.4383e+05_rb,9.5890e+04_rb,4.7945e+04_rb,3.1255e+01_rb/)
+      kbo(:, 1,33,14) = (/ &
+     &2.2548e+05_rb,1.6911e+05_rb,1.1274e+05_rb,5.6370e+04_rb,4.0253e+01_rb/)
+      kbo(:, 2,33,14) = (/ &
+     &2.2820e+05_rb,1.7115e+05_rb,1.1410e+05_rb,5.7051e+04_rb,3.8356e+01_rb/)
+      kbo(:, 3,33,14) = (/ &
+     &2.2980e+05_rb,1.7235e+05_rb,1.1490e+05_rb,5.7450e+04_rb,3.6454e+01_rb/)
+      kbo(:, 4,33,14) = (/ &
+     &2.3033e+05_rb,1.7275e+05_rb,1.1517e+05_rb,5.7584e+04_rb,3.3797e+01_rb/)
+      kbo(:, 5,33,14) = (/ &
+     &2.2985e+05_rb,1.7239e+05_rb,1.1492e+05_rb,5.7463e+04_rb,3.1363e+01_rb/)
+      kbo(:, 1,34,14) = (/ &
+     &2.6250e+05_rb,1.9687e+05_rb,1.3125e+05_rb,6.5624e+04_rb,4.1136e+01_rb/)
+      kbo(:, 2,34,14) = (/ &
+     &2.6605e+05_rb,1.9954e+05_rb,1.3302e+05_rb,6.6512e+04_rb,3.9143e+01_rb/)
+      kbo(:, 3,34,14) = (/ &
+     &2.6820e+05_rb,2.0115e+05_rb,1.3410e+05_rb,6.7050e+04_rb,3.6807e+01_rb/)
+      kbo(:, 4,34,14) = (/ &
+     &2.6900e+05_rb,2.0175e+05_rb,1.3450e+05_rb,6.7251e+04_rb,3.3160e+01_rb/)
+      kbo(:, 5,34,14) = (/ &
+     &2.6861e+05_rb,2.0146e+05_rb,1.3431e+05_rb,6.7153e+04_rb,3.1344e+01_rb/)
+      kbo(:, 1,35,14) = (/ &
+     &3.0587e+05_rb,2.2940e+05_rb,1.5293e+05_rb,7.6467e+04_rb,4.2099e+01_rb/)
+      kbo(:, 2,35,14) = (/ &
+     &3.1048e+05_rb,2.3286e+05_rb,1.5524e+05_rb,7.7621e+04_rb,3.9785e+01_rb/)
+      kbo(:, 3,35,14) = (/ &
+     &3.1341e+05_rb,2.3506e+05_rb,1.5670e+05_rb,7.8352e+04_rb,3.6072e+01_rb/)
+      kbo(:, 4,35,14) = (/ &
+     &3.1462e+05_rb,2.3596e+05_rb,1.5731e+05_rb,7.8655e+04_rb,3.3490e+01_rb/)
+      kbo(:, 5,35,14) = (/ &
+     &3.1438e+05_rb,2.3579e+05_rb,1.5719e+05_rb,7.8596e+04_rb,3.1828e+01_rb/)
+      kbo(:, 1,36,14) = (/ &
+     &3.5380e+05_rb,2.6535e+05_rb,1.7690e+05_rb,8.8450e+04_rb,4.2948e+01_rb/)
+      kbo(:, 2,36,14) = (/ &
+     &3.5987e+05_rb,2.6990e+05_rb,1.7993e+05_rb,8.9967e+04_rb,3.9945e+01_rb/)
+      kbo(:, 3,36,14) = (/ &
+     &3.6383e+05_rb,2.7287e+05_rb,1.8191e+05_rb,9.0957e+04_rb,3.5908e+01_rb/)
+      kbo(:, 4,36,14) = (/ &
+     &3.6571e+05_rb,2.7429e+05_rb,1.8286e+05_rb,9.1429e+04_rb,3.3881e+01_rb/)
+      kbo(:, 5,36,14) = (/ &
+     &3.6576e+05_rb,2.7432e+05_rb,1.8288e+05_rb,9.1441e+04_rb,3.2580e+01_rb/)
+      kbo(:, 1,37,14) = (/ &
+     &3.9789e+05_rb,2.9842e+05_rb,1.9894e+05_rb,9.9472e+04_rb,4.3924e+01_rb/)
+      kbo(:, 2,37,14) = (/ &
+     &4.0582e+05_rb,3.0436e+05_rb,2.0291e+05_rb,1.0145e+05_rb,4.0613e+01_rb/)
+      kbo(:, 3,37,14) = (/ &
+     &4.1126e+05_rb,3.0845e+05_rb,2.0563e+05_rb,1.0282e+05_rb,3.6440e+01_rb/)
+      kbo(:, 4,37,14) = (/ &
+     &4.1422e+05_rb,3.1066e+05_rb,2.0711e+05_rb,1.0355e+05_rb,3.4966e+01_rb/)
+      kbo(:, 5,37,14) = (/ &
+     &4.1491e+05_rb,3.1118e+05_rb,2.0745e+05_rb,1.0373e+05_rb,3.3736e+01_rb/)
+      kbo(:, 1,38,14) = (/ &
+     &4.5404e+05_rb,3.4053e+05_rb,2.2702e+05_rb,1.1351e+05_rb,4.4908e+01_rb/)
+      kbo(:, 2,38,14) = (/ &
+     &4.6441e+05_rb,3.4830e+05_rb,2.3220e+05_rb,1.1610e+05_rb,4.0968e+01_rb/)
+      kbo(:, 3,38,14) = (/ &
+     &4.7167e+05_rb,3.5375e+05_rb,2.3583e+05_rb,1.1792e+05_rb,3.7185e+01_rb/)
+      kbo(:, 4,38,14) = (/ &
+     &4.7591e+05_rb,3.5693e+05_rb,2.3796e+05_rb,1.1898e+05_rb,3.5958e+01_rb/)
+      kbo(:, 5,38,14) = (/ &
+     &4.7747e+05_rb,3.5810e+05_rb,2.3873e+05_rb,1.1937e+05_rb,3.4345e+01_rb/)
+      kbo(:, 1,39,14) = (/ &
+     &5.3006e+05_rb,3.9755e+05_rb,2.6503e+05_rb,1.3252e+05_rb,4.5571e+01_rb/)
+      kbo(:, 2,39,14) = (/ &
+     &5.4370e+05_rb,4.0778e+05_rb,2.7185e+05_rb,1.3593e+05_rb,4.1350e+01_rb/)
+      kbo(:, 3,39,14) = (/ &
+     &5.5324e+05_rb,4.1494e+05_rb,2.7663e+05_rb,1.3831e+05_rb,3.8461e+01_rb/)
+      kbo(:, 4,39,14) = (/ &
+     &5.5931e+05_rb,4.1948e+05_rb,2.7966e+05_rb,1.3983e+05_rb,3.7172e+01_rb/)
+      kbo(:, 5,39,14) = (/ &
+     &5.6198e+05_rb,4.2149e+05_rb,2.8099e+05_rb,1.4050e+05_rb,3.5387e+01_rb/)
+      kbo(:, 1,40,14) = (/ &
+     &5.7962e+05_rb,4.3471e+05_rb,2.8981e+05_rb,1.4490e+05_rb,4.6708e+01_rb/)
+      kbo(:, 2,40,14) = (/ &
+     &5.9661e+05_rb,4.4745e+05_rb,2.9830e+05_rb,1.4915e+05_rb,4.2510e+01_rb/)
+      kbo(:, 3,40,14) = (/ &
+     &6.0879e+05_rb,4.5659e+05_rb,3.0439e+05_rb,1.5220e+05_rb,3.9273e+01_rb/)
+      kbo(:, 4,40,14) = (/ &
+     &6.1695e+05_rb,4.6271e+05_rb,3.0847e+05_rb,1.5424e+05_rb,3.8101e+01_rb/)
+      kbo(:, 5,40,14) = (/ &
+     &6.2122e+05_rb,4.6592e+05_rb,3.1061e+05_rb,1.5530e+05_rb,3.6493e+01_rb/)
+      kbo(:, 1,41,14) = (/ &
+     &6.3170e+05_rb,4.7378e+05_rb,3.1585e+05_rb,1.5793e+05_rb,4.7871e+01_rb/)
+      kbo(:, 2,41,14) = (/ &
+     &6.5265e+05_rb,4.8949e+05_rb,3.2633e+05_rb,1.6317e+05_rb,4.3729e+01_rb/)
+      kbo(:, 3,41,14) = (/ &
+     &6.6799e+05_rb,5.0099e+05_rb,3.3400e+05_rb,1.6700e+05_rb,4.0263e+01_rb/)
+      kbo(:, 4,41,14) = (/ &
+     &6.7856e+05_rb,5.0892e+05_rb,3.3928e+05_rb,1.6964e+05_rb,3.8971e+01_rb/)
+      kbo(:, 5,41,14) = (/ &
+     &6.8482e+05_rb,5.1361e+05_rb,3.4241e+05_rb,1.7121e+05_rb,3.7519e+01_rb/)
+      kbo(:, 1,42,14) = (/ &
+     &6.9554e+05_rb,5.2166e+05_rb,3.4777e+05_rb,1.7388e+05_rb,4.9144e+01_rb/)
+      kbo(:, 2,42,14) = (/ &
+     &7.2122e+05_rb,5.4091e+05_rb,3.6061e+05_rb,1.8030e+05_rb,4.4903e+01_rb/)
+      kbo(:, 3,42,14) = (/ &
+     &7.4054e+05_rb,5.5540e+05_rb,3.7027e+05_rb,1.8513e+05_rb,4.1239e+01_rb/)
+      kbo(:, 4,42,14) = (/ &
+     &7.5407e+05_rb,5.6555e+05_rb,3.7703e+05_rb,1.8852e+05_rb,4.0019e+01_rb/)
+      kbo(:, 5,42,14) = (/ &
+     &7.6271e+05_rb,5.7203e+05_rb,3.8135e+05_rb,1.9067e+05_rb,3.8545e+01_rb/)
+      kbo(:, 1,43,14) = (/ &
+     &7.7014e+05_rb,5.7761e+05_rb,3.8508e+05_rb,1.9254e+05_rb,5.0575e+01_rb/)
+      kbo(:, 2,43,14) = (/ &
+     &8.0215e+05_rb,6.0161e+05_rb,4.0108e+05_rb,2.0054e+05_rb,4.6180e+01_rb/)
+      kbo(:, 3,43,14) = (/ &
+     &8.2687e+05_rb,6.2015e+05_rb,4.1344e+05_rb,2.0672e+05_rb,4.2529e+01_rb/)
+      kbo(:, 4,43,14) = (/ &
+     &8.4441e+05_rb,6.3331e+05_rb,4.2221e+05_rb,2.1110e+05_rb,4.0958e+01_rb/)
+      kbo(:, 5,43,14) = (/ &
+     &8.5614e+05_rb,6.4211e+05_rb,4.2807e+05_rb,2.1404e+05_rb,3.9632e+01_rb/)
+      kbo(:, 1,44,14) = (/ &
+     &8.6239e+05_rb,6.4679e+05_rb,4.3119e+05_rb,2.1559e+05_rb,5.2080e+01_rb/)
+      kbo(:, 2,44,14) = (/ &
+     &9.0261e+05_rb,6.7696e+05_rb,4.5130e+05_rb,2.2565e+05_rb,4.7569e+01_rb/)
+      kbo(:, 3,44,14) = (/ &
+     &9.3442e+05_rb,7.0081e+05_rb,4.6721e+05_rb,2.3360e+05_rb,4.3904e+01_rb/)
+      kbo(:, 4,44,14) = (/ &
+     &9.5755e+05_rb,7.1816e+05_rb,4.7877e+05_rb,2.3938e+05_rb,4.2000e+01_rb/)
+      kbo(:, 5,44,14) = (/ &
+     &9.7341e+05_rb,7.3005e+05_rb,4.8670e+05_rb,2.4335e+05_rb,4.0861e+01_rb/)
+      kbo(:, 1,45,14) = (/ &
+     &9.8377e+05_rb,7.3783e+05_rb,4.9189e+05_rb,2.4594e+05_rb,5.3464e+01_rb/)
+      kbo(:, 2,45,14) = (/ &
+     &1.0352e+06_rb,7.7641e+05_rb,5.1760e+05_rb,2.5880e+05_rb,4.8989e+01_rb/)
+      kbo(:, 3,45,14) = (/ &
+     &1.0762e+06_rb,8.0713e+05_rb,5.3809e+05_rb,2.6904e+05_rb,4.5355e+01_rb/)
+      kbo(:, 4,45,14) = (/ &
+     &1.1070e+06_rb,8.3023e+05_rb,5.5349e+05_rb,2.7674e+05_rb,4.3217e+01_rb/)
+      kbo(:, 5,45,14) = (/ &
+     &1.1287e+06_rb,8.4649e+05_rb,5.6433e+05_rb,2.8216e+05_rb,4.1953e+01_rb/)
+      kbo(:, 1,46,14) = (/ &
+     &1.1307e+06_rb,8.4801e+05_rb,5.6534e+05_rb,2.8267e+05_rb,5.4903e+01_rb/)
+      kbo(:, 2,46,14) = (/ &
+     &1.1967e+06_rb,8.9750e+05_rb,5.9834e+05_rb,2.9917e+05_rb,5.0473e+01_rb/)
+      kbo(:, 3,46,14) = (/ &
+     &1.2497e+06_rb,9.3728e+05_rb,6.2485e+05_rb,3.1243e+05_rb,4.7017e+01_rb/)
+      kbo(:, 4,46,14) = (/ &
+     &1.2910e+06_rb,9.6823e+05_rb,6.4549e+05_rb,3.2274e+05_rb,4.4343e+01_rb/)
+      kbo(:, 5,46,14) = (/ &
+     &1.3205e+06_rb,9.9037e+05_rb,6.6025e+05_rb,3.3012e+05_rb,4.3085e+01_rb/)
+      kbo(:, 1,47,14) = (/ &
+     &1.2818e+06_rb,9.6133e+05_rb,6.4089e+05_rb,3.2045e+05_rb,5.6436e+01_rb/)
+      kbo(:, 2,47,14) = (/ &
+     &1.3655e+06_rb,1.0241e+06_rb,6.8273e+05_rb,3.4137e+05_rb,5.2412e+01_rb/)
+      kbo(:, 3,47,14) = (/ &
+     &1.4341e+06_rb,1.0756e+06_rb,7.1708e+05_rb,3.5854e+05_rb,4.8254e+01_rb/)
+      kbo(:, 4,47,14) = (/ &
+     &1.4885e+06_rb,1.1164e+06_rb,7.4427e+05_rb,3.7214e+05_rb,4.5497e+01_rb/)
+      kbo(:, 5,47,14) = (/ &
+     &1.5285e+06_rb,1.1464e+06_rb,7.6425e+05_rb,3.8213e+05_rb,4.4276e+01_rb/)
+      kbo(:, 1,48,14) = (/ &
+     &1.4912e+06_rb,1.1184e+06_rb,7.4558e+05_rb,3.7279e+05_rb,5.8070e+01_rb/)
+      kbo(:, 2,48,14) = (/ &
+     &1.5992e+06_rb,1.1994e+06_rb,7.9959e+05_rb,3.9979e+05_rb,5.4067e+01_rb/)
+      kbo(:, 3,48,14) = (/ &
+     &1.6898e+06_rb,1.2674e+06_rb,8.4492e+05_rb,4.2246e+05_rb,5.0095e+01_rb/)
+      kbo(:, 4,48,14) = (/ &
+     &1.7626e+06_rb,1.3220e+06_rb,8.8132e+05_rb,4.4066e+05_rb,4.6945e+01_rb/)
+      kbo(:, 5,48,14) = (/ &
+     &1.8180e+06_rb,1.3635e+06_rb,9.0900e+05_rb,4.5450e+05_rb,4.5438e+01_rb/)
+      kbo(:, 1,49,14) = (/ &
+     &1.8033e+06_rb,1.3525e+06_rb,9.0165e+05_rb,4.5083e+05_rb,5.9742e+01_rb/)
+      kbo(:, 2,49,14) = (/ &
+     &1.9472e+06_rb,1.4604e+06_rb,9.7361e+05_rb,4.8680e+05_rb,5.5654e+01_rb/)
+      kbo(:, 3,49,14) = (/ &
+     &2.0706e+06_rb,1.5529e+06_rb,1.0353e+06_rb,5.1764e+05_rb,5.1796e+01_rb/)
+      kbo(:, 4,49,14) = (/ &
+     &2.1711e+06_rb,1.6283e+06_rb,1.0855e+06_rb,5.4277e+05_rb,4.8429e+01_rb/)
+      kbo(:, 5,49,14) = (/ &
+     &2.2497e+06_rb,1.6872e+06_rb,1.1248e+06_rb,5.6241e+05_rb,4.6805e+01_rb/)
+      kbo(:, 1,50,14) = (/ &
+     &2.0759e+06_rb,1.5569e+06_rb,1.0379e+06_rb,5.1897e+05_rb,6.1720e+01_rb/)
+      kbo(:, 2,50,14) = (/ &
+     &2.2580e+06_rb,1.6935e+06_rb,1.1290e+06_rb,5.6451e+05_rb,5.7265e+01_rb/)
+      kbo(:, 3,50,14) = (/ &
+     &2.4154e+06_rb,1.8116e+06_rb,1.2077e+06_rb,6.0386e+05_rb,5.3335e+01_rb/)
+      kbo(:, 4,50,14) = (/ &
+     &2.5463e+06_rb,1.9097e+06_rb,1.2731e+06_rb,6.3657e+05_rb,5.0026e+01_rb/)
+      kbo(:, 5,50,14) = (/ &
+     &2.6508e+06_rb,1.9881e+06_rb,1.3254e+06_rb,6.6270e+05_rb,4.7879e+01_rb/)
+      kbo(:, 1,51,14) = (/ &
+     &2.3343e+06_rb,1.7507e+06_rb,1.1671e+06_rb,5.8357e+05_rb,6.3629e+01_rb/)
+      kbo(:, 2,51,14) = (/ &
+     &2.5583e+06_rb,1.9187e+06_rb,1.2791e+06_rb,6.3957e+05_rb,5.8823e+01_rb/)
+      kbo(:, 3,51,14) = (/ &
+     &2.7536e+06_rb,2.0652e+06_rb,1.3768e+06_rb,6.8840e+05_rb,5.4830e+01_rb/)
+      kbo(:, 4,51,14) = (/ &
+     &2.9192e+06_rb,2.1894e+06_rb,1.4596e+06_rb,7.2979e+05_rb,5.1797e+01_rb/)
+      kbo(:, 5,51,14) = (/ &
+     &3.0520e+06_rb,2.2890e+06_rb,1.5260e+06_rb,7.6300e+05_rb,4.8739e+01_rb/)
+      kbo(:, 1,52,14) = (/ &
+     &2.6927e+06_rb,2.0196e+06_rb,1.3464e+06_rb,6.7319e+05_rb,6.5473e+01_rb/)
+      kbo(:, 2,52,14) = (/ &
+     &2.9755e+06_rb,2.2317e+06_rb,1.4878e+06_rb,7.4389e+05_rb,6.0202e+01_rb/)
+      kbo(:, 3,52,14) = (/ &
+     &3.2232e+06_rb,2.4174e+06_rb,1.6116e+06_rb,8.0581e+05_rb,5.6406e+01_rb/)
+      kbo(:, 4,52,14) = (/ &
+     &3.4356e+06_rb,2.5767e+06_rb,1.7178e+06_rb,8.5891e+05_rb,5.3338e+01_rb/)
+      kbo(:, 5,52,14) = (/ &
+     &3.6105e+06_rb,2.7079e+06_rb,1.8053e+06_rb,9.0264e+05_rb,4.9535e+01_rb/)
+      kbo(:, 1,53,14) = (/ &
+     &3.2282e+06_rb,2.4212e+06_rb,1.6141e+06_rb,8.0707e+05_rb,6.7136e+01_rb/)
+      kbo(:, 2,53,14) = (/ &
+     &3.5968e+06_rb,2.6976e+06_rb,1.7984e+06_rb,8.9921e+05_rb,6.1503e+01_rb/)
+      kbo(:, 3,53,14) = (/ &
+     &3.9238e+06_rb,2.9429e+06_rb,1.9619e+06_rb,9.8097e+05_rb,5.8062e+01_rb/)
+      kbo(:, 4,53,14) = (/ &
+     &4.2071e+06_rb,3.1553e+06_rb,2.1035e+06_rb,1.0518e+06_rb,5.4982e+01_rb/)
+      kbo(:, 5,53,14) = (/ &
+     &4.4446e+06_rb,3.3334e+06_rb,2.2223e+06_rb,1.1112e+06_rb,5.0414e+01_rb/)
+      kbo(:, 1,54,14) = (/ &
+     &3.3478e+06_rb,2.5109e+06_rb,1.6739e+06_rb,8.3696e+05_rb,6.8647e+01_rb/)
+      kbo(:, 2,54,14) = (/ &
+     &3.7598e+06_rb,2.8199e+06_rb,1.8799e+06_rb,9.3996e+05_rb,6.3327e+01_rb/)
+      kbo(:, 3,54,14) = (/ &
+     &4.1308e+06_rb,3.0981e+06_rb,2.0654e+06_rb,1.0327e+06_rb,5.9705e+01_rb/)
+      kbo(:, 4,54,14) = (/ &
+     &4.4534e+06_rb,3.3401e+06_rb,2.2267e+06_rb,1.1134e+06_rb,5.5841e+01_rb/)
+      kbo(:, 5,54,14) = (/ &
+     &4.7287e+06_rb,3.5465e+06_rb,2.3644e+06_rb,1.1822e+06_rb,5.1312e+01_rb/)
+      kbo(:, 1,55,14) = (/ &
+     &3.1636e+06_rb,2.3727e+06_rb,1.5818e+06_rb,7.9090e+05_rb,6.9800e+01_rb/)
+      kbo(:, 2,55,14) = (/ &
+     &3.5827e+06_rb,2.6870e+06_rb,1.7914e+06_rb,8.9569e+05_rb,6.5650e+01_rb/)
+      kbo(:, 3,55,14) = (/ &
+     &3.9638e+06_rb,2.9728e+06_rb,1.9819e+06_rb,9.9095e+05_rb,6.0566e+01_rb/)
+      kbo(:, 4,55,14) = (/ &
+     &4.2985e+06_rb,3.2239e+06_rb,2.1493e+06_rb,1.0746e+06_rb,5.6657e+01_rb/)
+      kbo(:, 5,55,14) = (/ &
+     &4.5858e+06_rb,3.4394e+06_rb,2.2929e+06_rb,1.1465e+06_rb,5.3531e+01_rb/)
+      kbo(:, 1,56,14) = (/ &
+     &2.9822e+06_rb,2.2367e+06_rb,1.4911e+06_rb,7.4555e+05_rb,7.1031e+01_rb/)
+      kbo(:, 2,56,14) = (/ &
+     &3.4067e+06_rb,2.5550e+06_rb,1.7033e+06_rb,8.5166e+05_rb,6.7133e+01_rb/)
+      kbo(:, 3,56,14) = (/ &
+     &3.7967e+06_rb,2.8475e+06_rb,1.8983e+06_rb,9.4915e+05_rb,6.1784e+01_rb/)
+      kbo(:, 4,56,14) = (/ &
+     &4.1424e+06_rb,3.1068e+06_rb,2.0712e+06_rb,1.0356e+06_rb,5.8142e+01_rb/)
+      kbo(:, 5,56,14) = (/ &
+     &4.4422e+06_rb,3.3317e+06_rb,2.2211e+06_rb,1.1105e+06_rb,5.4348e+01_rb/)
+      kbo(:, 1,57,14) = (/ &
+     &2.8003e+06_rb,2.1002e+06_rb,1.4001e+06_rb,7.0006e+05_rb,7.2686e+01_rb/)
+      kbo(:, 2,57,14) = (/ &
+     &3.2322e+06_rb,2.4241e+06_rb,1.6161e+06_rb,8.0804e+05_rb,6.8121e+01_rb/)
+      kbo(:, 3,57,14) = (/ &
+     &3.6290e+06_rb,2.7217e+06_rb,1.8145e+06_rb,9.0724e+05_rb,6.3933e+01_rb/)
+      kbo(:, 4,57,14) = (/ &
+     &3.9857e+06_rb,2.9893e+06_rb,1.9928e+06_rb,9.9642e+05_rb,5.9242e+01_rb/)
+      kbo(:, 5,57,14) = (/ &
+     &4.2966e+06_rb,3.2224e+06_rb,2.1482e+06_rb,1.0741e+06_rb,5.5180e+01_rb/)
+      kbo(:, 1,58,14) = (/ &
+     &6.9277e+05_rb,6.3516e+05_rb,5.4460e+05_rb,3.8143e+05_rb,7.4521e+01_rb/)
+      kbo(:, 2,58,14) = (/ &
+     &8.0841e+05_rb,7.4119e+05_rb,6.3550e+05_rb,4.4510e+05_rb,6.9466e+01_rb/)
+      kbo(:, 3,58,14) = (/ &
+     &9.1451e+05_rb,8.3847e+05_rb,7.1891e+05_rb,5.0352e+05_rb,6.5445e+01_rb/)
+      kbo(:, 4,58,14) = (/ &
+     &1.0112e+06_rb,9.2715e+05_rb,7.9494e+05_rb,5.5677e+05_rb,6.0252e+01_rb/)
+      kbo(:, 5,58,14) = (/ &
+     &1.0957e+06_rb,1.0046e+06_rb,8.6135e+05_rb,6.0328e+05_rb,5.6261e+01_rb/)
+      kbo(:, 1,59,14) = (/ &
+     &7.9105e+05_rb,6.9072e+05_rb,5.5096e+05_rb,3.4284e+05_rb,7.5082e+01_rb/)
+      kbo(:, 2,59,14) = (/ &
+     &9.2759e+05_rb,8.0994e+05_rb,6.4605e+05_rb,4.0201e+05_rb,7.0591e+01_rb/)
+      kbo(:, 3,59,14) = (/ &
+     &1.0529e+06_rb,9.1931e+05_rb,7.3330e+05_rb,4.5630e+05_rb,6.5689e+01_rb/)
+      kbo(:, 4,59,14) = (/ &
+     &1.1673e+06_rb,1.0193e+06_rb,8.1302e+05_rb,5.0591e+05_rb,6.1427e+01_rb/)
+      kbo(:, 5,59,14) = (/ &
+     &1.2680e+06_rb,1.1071e+06_rb,8.8311e+05_rb,5.4953e+05_rb,5.7108e+01_rb/)
+      kbo(:, 1,13,15) = (/ &
+     &6.8853e+05_rb,5.1640e+05_rb,3.4427e+05_rb,1.7213e+05_rb,8.3646e+00_rb/)
+      kbo(:, 2,13,15) = (/ &
+     &6.7841e+05_rb,5.0881e+05_rb,3.3921e+05_rb,1.6961e+05_rb,8.1557e+00_rb/)
+      kbo(:, 3,13,15) = (/ &
+     &6.7058e+05_rb,5.0293e+05_rb,3.3529e+05_rb,1.6765e+05_rb,7.2355e+00_rb/)
+      kbo(:, 4,13,15) = (/ &
+     &6.6505e+05_rb,4.9879e+05_rb,3.3253e+05_rb,1.6627e+05_rb,7.1104e+00_rb/)
+      kbo(:, 5,13,15) = (/ &
+     &6.5977e+05_rb,4.9483e+05_rb,3.2989e+05_rb,1.6494e+05_rb,5.0356e+00_rb/)
+      kbo(:, 1,14,15) = (/ &
+     &4.8859e+05_rb,3.6644e+05_rb,2.4429e+05_rb,1.2215e+05_rb,9.3416e+00_rb/)
+      kbo(:, 2,14,15) = (/ &
+     &4.8530e+05_rb,3.6397e+05_rb,2.4265e+05_rb,1.2132e+05_rb,9.0997e+00_rb/)
+      kbo(:, 3,14,15) = (/ &
+     &4.8323e+05_rb,3.6243e+05_rb,2.4161e+05_rb,1.2081e+05_rb,8.4842e+00_rb/)
+      kbo(:, 4,14,15) = (/ &
+     &4.8076e+05_rb,3.6057e+05_rb,2.4038e+05_rb,1.2019e+05_rb,8.2141e+00_rb/)
+      kbo(:, 5,14,15) = (/ &
+     &4.7824e+05_rb,3.5868e+05_rb,2.3912e+05_rb,1.1956e+05_rb,7.9624e+00_rb/)
+      kbo(:, 1,15,15) = (/ &
+     &3.5725e+05_rb,2.6794e+05_rb,1.7863e+05_rb,8.9315e+04_rb,1.0416e+01_rb/)
+      kbo(:, 2,15,15) = (/ &
+     &3.5701e+05_rb,2.6776e+05_rb,1.7851e+05_rb,8.9255e+04_rb,1.0132e+01_rb/)
+      kbo(:, 3,15,15) = (/ &
+     &3.5620e+05_rb,2.6715e+05_rb,1.7810e+05_rb,8.9053e+04_rb,9.8342e+00_rb/)
+      kbo(:, 4,15,15) = (/ &
+     &3.5534e+05_rb,2.6651e+05_rb,1.7767e+05_rb,8.8838e+04_rb,8.7353e+00_rb/)
+      kbo(:, 5,15,15) = (/ &
+     &3.5411e+05_rb,2.6559e+05_rb,1.7706e+05_rb,8.8531e+04_rb,9.0528e+00_rb/)
+      kbo(:, 1,16,15) = (/ &
+     &3.1303e+05_rb,2.3478e+05_rb,1.5652e+05_rb,7.8260e+04_rb,1.1678e+01_rb/)
+      kbo(:, 2,16,15) = (/ &
+     &3.1296e+05_rb,2.3472e+05_rb,1.5648e+05_rb,7.8243e+04_rb,1.1373e+01_rb/)
+      kbo(:, 3,16,15) = (/ &
+     &3.1311e+05_rb,2.3483e+05_rb,1.5655e+05_rb,7.8278e+04_rb,1.1063e+01_rb/)
+      kbo(:, 4,16,15) = (/ &
+     &3.1270e+05_rb,2.3452e+05_rb,1.5635e+05_rb,7.8176e+04_rb,1.0185e+01_rb/)
+      kbo(:, 5,16,15) = (/ &
+     &3.1216e+05_rb,2.3412e+05_rb,1.5608e+05_rb,7.8040e+04_rb,1.0166e+01_rb/)
+      kbo(:, 1,17,15) = (/ &
+     &2.8440e+05_rb,2.1330e+05_rb,1.4220e+05_rb,7.1101e+04_rb,1.3334e+01_rb/)
+      kbo(:, 2,17,15) = (/ &
+     &2.8479e+05_rb,2.1359e+05_rb,1.4240e+05_rb,7.1199e+04_rb,1.2996e+01_rb/)
+      kbo(:, 3,17,15) = (/ &
+     &2.8480e+05_rb,2.1360e+05_rb,1.4240e+05_rb,7.1202e+04_rb,1.2651e+01_rb/)
+      kbo(:, 4,17,15) = (/ &
+     &2.8481e+05_rb,2.1361e+05_rb,1.4240e+05_rb,7.1203e+04_rb,1.1964e+01_rb/)
+      kbo(:, 5,17,15) = (/ &
+     &2.8402e+05_rb,2.1301e+05_rb,1.4201e+05_rb,7.1006e+04_rb,1.1649e+01_rb/)
+      kbo(:, 1,18,15) = (/ &
+     &2.6460e+05_rb,1.9845e+05_rb,1.3230e+05_rb,6.6150e+04_rb,1.5350e+01_rb/)
+      kbo(:, 2,18,15) = (/ &
+     &2.6490e+05_rb,1.9868e+05_rb,1.3245e+05_rb,6.6227e+04_rb,1.4954e+01_rb/)
+      kbo(:, 3,18,15) = (/ &
+     &2.6505e+05_rb,1.9879e+05_rb,1.3252e+05_rb,6.6263e+04_rb,1.4553e+01_rb/)
+      kbo(:, 4,18,15) = (/ &
+     &2.6448e+05_rb,1.9836e+05_rb,1.3224e+05_rb,6.6121e+04_rb,1.4057e+01_rb/)
+      kbo(:, 5,18,15) = (/ &
+     &2.6357e+05_rb,1.9768e+05_rb,1.3179e+05_rb,6.5894e+04_rb,1.3341e+01_rb/)
+      kbo(:, 1,19,15) = (/ &
+     &2.4108e+05_rb,1.8081e+05_rb,1.2054e+05_rb,6.0272e+04_rb,1.7626e+01_rb/)
+      kbo(:, 2,19,15) = (/ &
+     &2.4160e+05_rb,1.8120e+05_rb,1.2080e+05_rb,6.0400e+04_rb,1.7162e+01_rb/)
+      kbo(:, 3,19,15) = (/ &
+     &2.4138e+05_rb,1.8103e+05_rb,1.2069e+05_rb,6.0347e+04_rb,1.6660e+01_rb/)
+      kbo(:, 4,19,15) = (/ &
+     &2.4078e+05_rb,1.8058e+05_rb,1.2039e+05_rb,6.0195e+04_rb,1.6133e+01_rb/)
+      kbo(:, 5,19,15) = (/ &
+     &2.3956e+05_rb,1.7967e+05_rb,1.1978e+05_rb,5.9892e+04_rb,1.5032e+01_rb/)
+      kbo(:, 1,20,15) = (/ &
+     &2.3801e+05_rb,1.7851e+05_rb,1.1901e+05_rb,5.9503e+04_rb,2.0107e+01_rb/)
+      kbo(:, 2,20,15) = (/ &
+     &2.3824e+05_rb,1.7868e+05_rb,1.1912e+05_rb,5.9560e+04_rb,1.9545e+01_rb/)
+      kbo(:, 3,20,15) = (/ &
+     &2.3790e+05_rb,1.7842e+05_rb,1.1895e+05_rb,5.9475e+04_rb,1.8935e+01_rb/)
+      kbo(:, 4,20,15) = (/ &
+     &2.3694e+05_rb,1.7770e+05_rb,1.1847e+05_rb,5.9235e+04_rb,1.8318e+01_rb/)
+      kbo(:, 5,20,15) = (/ &
+     &2.3546e+05_rb,1.7659e+05_rb,1.1773e+05_rb,5.8866e+04_rb,1.6971e+01_rb/)
+      kbo(:, 1,21,15) = (/ &
+     &2.4153e+05_rb,1.8115e+05_rb,1.2077e+05_rb,6.0385e+04_rb,2.2844e+01_rb/)
+      kbo(:, 2,21,15) = (/ &
+     &2.4153e+05_rb,1.8115e+05_rb,1.2076e+05_rb,6.0383e+04_rb,2.2202e+01_rb/)
+      kbo(:, 3,21,15) = (/ &
+     &2.4090e+05_rb,1.8068e+05_rb,1.2045e+05_rb,6.0226e+04_rb,2.1535e+01_rb/)
+      kbo(:, 4,21,15) = (/ &
+     &2.3957e+05_rb,1.7968e+05_rb,1.1978e+05_rb,5.9893e+04_rb,2.0842e+01_rb/)
+      kbo(:, 5,21,15) = (/ &
+     &2.3762e+05_rb,1.7822e+05_rb,1.1881e+05_rb,5.9406e+04_rb,1.9479e+01_rb/)
+      kbo(:, 1,22,15) = (/ &
+     &2.5014e+05_rb,1.8760e+05_rb,1.2507e+05_rb,6.2536e+04_rb,2.6039e+01_rb/)
+      kbo(:, 2,22,15) = (/ &
+     &2.4958e+05_rb,1.8719e+05_rb,1.2479e+05_rb,6.2397e+04_rb,2.5280e+01_rb/)
+      kbo(:, 3,22,15) = (/ &
+     &2.4838e+05_rb,1.8628e+05_rb,1.2419e+05_rb,6.2096e+04_rb,2.4490e+01_rb/)
+      kbo(:, 4,22,15) = (/ &
+     &2.4655e+05_rb,1.8492e+05_rb,1.2328e+05_rb,6.1639e+04_rb,2.3671e+01_rb/)
+      kbo(:, 5,22,15) = (/ &
+     &2.4402e+05_rb,1.8302e+05_rb,1.2201e+05_rb,6.1006e+04_rb,2.2182e+01_rb/)
+      kbo(:, 1,23,15) = (/ &
+     &2.5892e+05_rb,1.9419e+05_rb,1.2946e+05_rb,6.4730e+04_rb,2.9635e+01_rb/)
+      kbo(:, 2,23,15) = (/ &
+     &2.5767e+05_rb,1.9325e+05_rb,1.2883e+05_rb,6.4418e+04_rb,2.8708e+01_rb/)
+      kbo(:, 3,23,15) = (/ &
+     &2.5584e+05_rb,1.9188e+05_rb,1.2792e+05_rb,6.3960e+04_rb,2.7743e+01_rb/)
+      kbo(:, 4,23,15) = (/ &
+     &2.5321e+05_rb,1.8991e+05_rb,1.2660e+05_rb,6.3303e+04_rb,2.6764e+01_rb/)
+      kbo(:, 5,23,15) = (/ &
+     &2.5010e+05_rb,1.8758e+05_rb,1.2505e+05_rb,6.2526e+04_rb,2.5122e+01_rb/)
+      kbo(:, 1,24,15) = (/ &
+     &2.6502e+05_rb,1.9877e+05_rb,1.3251e+05_rb,6.6257e+04_rb,3.3543e+01_rb/)
+      kbo(:, 2,24,15) = (/ &
+     &2.6308e+05_rb,1.9731e+05_rb,1.3154e+05_rb,6.5771e+04_rb,3.2390e+01_rb/)
+      kbo(:, 3,24,15) = (/ &
+     &2.6033e+05_rb,1.9524e+05_rb,1.3016e+05_rb,6.5082e+04_rb,3.1202e+01_rb/)
+      kbo(:, 4,24,15) = (/ &
+     &2.5704e+05_rb,1.9278e+05_rb,1.2852e+05_rb,6.4262e+04_rb,3.0027e+01_rb/)
+      kbo(:, 5,24,15) = (/ &
+     &2.5313e+05_rb,1.8984e+05_rb,1.2656e+05_rb,6.3282e+04_rb,2.8238e+01_rb/)
+      kbo(:, 1,25,15) = (/ &
+     &2.7306e+05_rb,2.0480e+05_rb,1.3653e+05_rb,6.8266e+04_rb,3.7656e+01_rb/)
+      kbo(:, 2,25,15) = (/ &
+     &2.7003e+05_rb,2.0252e+05_rb,1.3501e+05_rb,6.7507e+04_rb,3.6233e+01_rb/)
+      kbo(:, 3,25,15) = (/ &
+     &2.6644e+05_rb,1.9983e+05_rb,1.3322e+05_rb,6.6611e+04_rb,3.4804e+01_rb/)
+      kbo(:, 4,25,15) = (/ &
+     &2.6230e+05_rb,1.9672e+05_rb,1.3115e+05_rb,6.5574e+04_rb,3.3361e+01_rb/)
+      kbo(:, 5,25,15) = (/ &
+     &2.5745e+05_rb,1.9309e+05_rb,1.2873e+05_rb,6.4363e+04_rb,3.1338e+01_rb/)
+      kbo(:, 1,26,15) = (/ &
+     &2.8347e+05_rb,2.1261e+05_rb,1.4174e+05_rb,7.0869e+04_rb,4.1820e+01_rb/)
+      kbo(:, 2,26,15) = (/ &
+     &2.7951e+05_rb,2.0963e+05_rb,1.3976e+05_rb,6.9878e+04_rb,4.0076e+01_rb/)
+      kbo(:, 3,26,15) = (/ &
+     &2.7489e+05_rb,2.0617e+05_rb,1.3745e+05_rb,6.8723e+04_rb,3.8351e+01_rb/)
+      kbo(:, 4,26,15) = (/ &
+     &2.6958e+05_rb,2.0219e+05_rb,1.3479e+05_rb,6.7396e+04_rb,3.6631e+01_rb/)
+      kbo(:, 5,26,15) = (/ &
+     &2.6383e+05_rb,1.9788e+05_rb,1.3192e+05_rb,6.5959e+04_rb,3.4286e+01_rb/)
+      kbo(:, 1,27,15) = (/ &
+     &3.0277e+05_rb,2.2708e+05_rb,1.5139e+05_rb,7.5694e+04_rb,4.5895e+01_rb/)
+      kbo(:, 2,27,15) = (/ &
+     &2.9771e+05_rb,2.2329e+05_rb,1.4886e+05_rb,7.4429e+04_rb,4.3819e+01_rb/)
+      kbo(:, 3,27,15) = (/ &
+     &2.9175e+05_rb,2.1881e+05_rb,1.4587e+05_rb,7.2938e+04_rb,4.1746e+01_rb/)
+      kbo(:, 4,27,15) = (/ &
+     &2.8521e+05_rb,2.1391e+05_rb,1.4261e+05_rb,7.1304e+04_rb,3.9720e+01_rb/)
+      kbo(:, 5,27,15) = (/ &
+     &2.7826e+05_rb,2.0870e+05_rb,1.3913e+05_rb,6.9566e+04_rb,3.6964e+01_rb/)
+      kbo(:, 1,28,15) = (/ &
+     &3.2897e+05_rb,2.4673e+05_rb,1.6449e+05_rb,8.2243e+04_rb,4.9767e+01_rb/)
+      kbo(:, 2,28,15) = (/ &
+     &3.2244e+05_rb,2.4183e+05_rb,1.6122e+05_rb,8.0610e+04_rb,4.7309e+01_rb/)
+      kbo(:, 3,28,15) = (/ &
+     &3.1503e+05_rb,2.3628e+05_rb,1.5752e+05_rb,7.8759e+04_rb,4.4889e+01_rb/)
+      kbo(:, 4,28,15) = (/ &
+     &3.0709e+05_rb,2.3032e+05_rb,1.5355e+05_rb,7.6774e+04_rb,4.2541e+01_rb/)
+      kbo(:, 5,28,15) = (/ &
+     &2.9858e+05_rb,2.2393e+05_rb,1.4929e+05_rb,7.4645e+04_rb,3.9310e+01_rb/)
+      kbo(:, 1,29,15) = (/ &
+     &3.7585e+05_rb,2.8188e+05_rb,1.8792e+05_rb,9.3962e+04_rb,5.3281e+01_rb/)
+      kbo(:, 2,29,15) = (/ &
+     &3.6712e+05_rb,2.7534e+05_rb,1.8356e+05_rb,9.1780e+04_rb,5.0424e+01_rb/)
+      kbo(:, 3,29,15) = (/ &
+     &3.5767e+05_rb,2.6826e+05_rb,1.7884e+05_rb,8.9419e+04_rb,4.7662e+01_rb/)
+      kbo(:, 4,29,15) = (/ &
+     &3.4765e+05_rb,2.6073e+05_rb,1.7382e+05_rb,8.6912e+04_rb,4.4800e+01_rb/)
+      kbo(:, 5,29,15) = (/ &
+     &3.3714e+05_rb,2.5285e+05_rb,1.6857e+05_rb,8.4284e+04_rb,4.1166e+01_rb/)
+      kbo(:, 1,30,15) = (/ &
+     &4.3604e+05_rb,3.2703e+05_rb,2.1802e+05_rb,1.0901e+05_rb,5.6346e+01_rb/)
+      kbo(:, 2,30,15) = (/ &
+     &4.2462e+05_rb,3.1847e+05_rb,2.1231e+05_rb,1.0616e+05_rb,5.3119e+01_rb/)
+      kbo(:, 3,30,15) = (/ &
+     &4.1259e+05_rb,3.0944e+05_rb,2.0629e+05_rb,1.0315e+05_rb,5.0028e+01_rb/)
+      kbo(:, 4,30,15) = (/ &
+     &3.9989e+05_rb,2.9992e+05_rb,1.9995e+05_rb,9.9973e+04_rb,4.6067e+01_rb/)
+      kbo(:, 5,30,15) = (/ &
+     &3.8696e+05_rb,2.9022e+05_rb,1.9348e+05_rb,9.6741e+04_rb,4.3622e+01_rb/)
+      kbo(:, 1,31,15) = (/ &
+     &5.2737e+05_rb,3.9553e+05_rb,2.6369e+05_rb,1.3184e+05_rb,5.8898e+01_rb/)
+      kbo(:, 2,31,15) = (/ &
+     &5.1226e+05_rb,3.8420e+05_rb,2.5613e+05_rb,1.2807e+05_rb,5.5332e+01_rb/)
+      kbo(:, 3,31,15) = (/ &
+     &4.9638e+05_rb,3.7229e+05_rb,2.4819e+05_rb,1.2410e+05_rb,5.1303e+01_rb/)
+      kbo(:, 4,31,15) = (/ &
+     &4.8006e+05_rb,3.6004e+05_rb,2.4003e+05_rb,1.2001e+05_rb,4.7154e+01_rb/)
+      kbo(:, 5,31,15) = (/ &
+     &4.6345e+05_rb,3.4759e+05_rb,2.3173e+05_rb,1.1586e+05_rb,4.5673e+01_rb/)
+      kbo(:, 1,32,15) = (/ &
+     &6.4038e+05_rb,4.8028e+05_rb,3.2019e+05_rb,1.6010e+05_rb,6.0926e+01_rb/)
+      kbo(:, 2,32,15) = (/ &
+     &6.2037e+05_rb,4.6528e+05_rb,3.1019e+05_rb,1.5509e+05_rb,5.7062e+01_rb/)
+      kbo(:, 3,32,15) = (/ &
+     &5.9976e+05_rb,4.4982e+05_rb,2.9988e+05_rb,1.4994e+05_rb,5.1911e+01_rb/)
+      kbo(:, 4,32,15) = (/ &
+     &5.7886e+05_rb,4.3415e+05_rb,2.8943e+05_rb,1.4472e+05_rb,4.9758e+01_rb/)
+      kbo(:, 5,32,15) = (/ &
+     &5.5779e+05_rb,4.1835e+05_rb,2.7890e+05_rb,1.3945e+05_rb,4.7124e+01_rb/)
+      kbo(:, 1,33,15) = (/ &
+     &7.8604e+05_rb,5.8953e+05_rb,3.9302e+05_rb,1.9651e+05_rb,6.2449e+01_rb/)
+      kbo(:, 2,33,15) = (/ &
+     &7.5994e+05_rb,5.6995e+05_rb,3.7997e+05_rb,1.8999e+05_rb,5.7026e+01_rb/)
+      kbo(:, 3,33,15) = (/ &
+     &7.3324e+05_rb,5.4993e+05_rb,3.6662e+05_rb,1.8331e+05_rb,5.3959e+01_rb/)
+      kbo(:, 4,33,15) = (/ &
+     &7.0633e+05_rb,5.2975e+05_rb,3.5316e+05_rb,1.7658e+05_rb,5.1185e+01_rb/)
+      kbo(:, 5,33,15) = (/ &
+     &6.7933e+05_rb,5.0950e+05_rb,3.3967e+05_rb,1.6983e+05_rb,4.6145e+01_rb/)
+      kbo(:, 1,34,15) = (/ &
+     &9.3629e+05_rb,7.0222e+05_rb,4.6814e+05_rb,2.3407e+05_rb,6.2950e+01_rb/)
+      kbo(:, 2,34,15) = (/ &
+     &9.0361e+05_rb,6.7770e+05_rb,4.5180e+05_rb,2.2590e+05_rb,5.7628e+01_rb/)
+      kbo(:, 3,34,15) = (/ &
+     &8.7048e+05_rb,6.5286e+05_rb,4.3524e+05_rb,2.1762e+05_rb,5.5397e+01_rb/)
+      kbo(:, 4,34,15) = (/ &
+     &8.3718e+05_rb,6.2788e+05_rb,4.1859e+05_rb,2.0929e+05_rb,5.1885e+01_rb/)
+      kbo(:, 5,34,15) = (/ &
+     &8.0393e+05_rb,6.0294e+05_rb,4.0196e+05_rb,2.0098e+05_rb,4.4833e+01_rb/)
+      kbo(:, 1,35,15) = (/ &
+     &1.1151e+06_rb,8.3633e+05_rb,5.5755e+05_rb,2.7878e+05_rb,6.3401e+01_rb/)
+      kbo(:, 2,35,15) = (/ &
+     &1.0748e+06_rb,8.0608e+05_rb,5.3739e+05_rb,2.6869e+05_rb,5.9975e+01_rb/)
+      kbo(:, 3,35,15) = (/ &
+     &1.0341e+06_rb,7.7556e+05_rb,5.1704e+05_rb,2.5852e+05_rb,5.6633e+01_rb/)
+      kbo(:, 4,35,15) = (/ &
+     &9.9325e+05_rb,7.4494e+05_rb,4.9662e+05_rb,2.4831e+05_rb,5.0172e+01_rb/)
+      kbo(:, 5,35,15) = (/ &
+     &9.5274e+05_rb,7.1455e+05_rb,4.7637e+05_rb,2.3818e+05_rb,4.3180e+01_rb/)
+      kbo(:, 1,36,15) = (/ &
+     &1.3204e+06_rb,9.9032e+05_rb,6.6021e+05_rb,3.3011e+05_rb,6.4479e+01_rb/)
+      kbo(:, 2,36,15) = (/ &
+     &1.2713e+06_rb,9.5347e+05_rb,6.3565e+05_rb,3.1782e+05_rb,6.1661e+01_rb/)
+      kbo(:, 3,36,15) = (/ &
+     &1.2219e+06_rb,9.1640e+05_rb,6.1093e+05_rb,3.0547e+05_rb,5.7543e+01_rb/)
+      kbo(:, 4,36,15) = (/ &
+     &1.1726e+06_rb,8.7947e+05_rb,5.8632e+05_rb,2.9316e+05_rb,4.9268e+01_rb/)
+      kbo(:, 5,36,15) = (/ &
+     &1.1240e+06_rb,8.4303e+05_rb,5.6202e+05_rb,2.8101e+05_rb,4.3422e+01_rb/)
+      kbo(:, 1,37,15) = (/ &
+     &1.5283e+06_rb,1.1462e+06_rb,7.6413e+05_rb,3.8207e+05_rb,6.6367e+01_rb/)
+      kbo(:, 2,37,15) = (/ &
+     &1.4706e+06_rb,1.1030e+06_rb,7.3532e+05_rb,3.6766e+05_rb,6.3620e+01_rb/)
+      kbo(:, 3,37,15) = (/ &
+     &1.4128e+06_rb,1.0596e+06_rb,7.0638e+05_rb,3.5319e+05_rb,5.8851e+01_rb/)
+      kbo(:, 4,37,15) = (/ &
+     &1.3549e+06_rb,1.0162e+06_rb,6.7744e+05_rb,3.3872e+05_rb,4.8460e+01_rb/)
+      kbo(:, 5,37,15) = (/ &
+     &1.2980e+06_rb,9.7352e+05_rb,6.4901e+05_rb,3.2451e+05_rb,4.3139e+01_rb/)
+      kbo(:, 1,38,15) = (/ &
+     &1.7917e+06_rb,1.3437e+06_rb,8.9582e+05_rb,4.4791e+05_rb,6.8827e+01_rb/)
+      kbo(:, 2,38,15) = (/ &
+     &1.7232e+06_rb,1.2924e+06_rb,8.6157e+05_rb,4.3078e+05_rb,6.5495e+01_rb/)
+      kbo(:, 3,38,15) = (/ &
+     &1.6545e+06_rb,1.2409e+06_rb,8.2724e+05_rb,4.1362e+05_rb,5.8860e+01_rb/)
+      kbo(:, 4,38,15) = (/ &
+     &1.5862e+06_rb,1.1896e+06_rb,7.9309e+05_rb,3.9654e+05_rb,4.7251e+01_rb/)
+      kbo(:, 5,38,15) = (/ &
+     &1.5188e+06_rb,1.1391e+06_rb,7.5940e+05_rb,3.7970e+05_rb,4.3731e+01_rb/)
+      kbo(:, 1,39,15) = (/ &
+     &2.1445e+06_rb,1.6084e+06_rb,1.0723e+06_rb,5.3613e+05_rb,7.1068e+01_rb/)
+      kbo(:, 2,39,15) = (/ &
+     &2.0613e+06_rb,1.5460e+06_rb,1.0307e+06_rb,5.1533e+05_rb,6.6419e+01_rb/)
+      kbo(:, 3,39,15) = (/ &
+     &1.9786e+06_rb,1.4840e+06_rb,9.8932e+05_rb,4.9466e+05_rb,5.6988e+01_rb/)
+      kbo(:, 4,39,15) = (/ &
+     &1.8964e+06_rb,1.4223e+06_rb,9.4822e+05_rb,4.7411e+05_rb,4.6537e+01_rb/)
+      kbo(:, 5,39,15) = (/ &
+     &1.8152e+06_rb,1.3614e+06_rb,9.0762e+05_rb,4.5381e+05_rb,4.1463e+01_rb/)
+      kbo(:, 1,40,15) = (/ &
+     &2.4170e+06_rb,1.8127e+06_rb,1.2085e+06_rb,6.0424e+05_rb,7.3096e+01_rb/)
+      kbo(:, 2,40,15) = (/ &
+     &2.3226e+06_rb,1.7420e+06_rb,1.1613e+06_rb,5.8063e+05_rb,6.8150e+01_rb/)
+      kbo(:, 3,40,15) = (/ &
+     &2.2296e+06_rb,1.6722e+06_rb,1.1148e+06_rb,5.5739e+05_rb,5.8979e+01_rb/)
+      kbo(:, 4,40,15) = (/ &
+     &2.1366e+06_rb,1.6025e+06_rb,1.0683e+06_rb,5.3415e+05_rb,4.7816e+01_rb/)
+      kbo(:, 5,40,15) = (/ &
+     &2.0448e+06_rb,1.5336e+06_rb,1.0224e+06_rb,5.1120e+05_rb,4.2008e+01_rb/)
+      kbo(:, 1,41,15) = (/ &
+     &2.7164e+06_rb,2.0373e+06_rb,1.3582e+06_rb,6.7911e+05_rb,7.4782e+01_rb/)
+      kbo(:, 2,41,15) = (/ &
+     &2.6095e+06_rb,1.9571e+06_rb,1.3048e+06_rb,6.5238e+05_rb,6.9972e+01_rb/)
+      kbo(:, 3,41,15) = (/ &
+     &2.5049e+06_rb,1.8787e+06_rb,1.2525e+06_rb,6.2623e+05_rb,6.0957e+01_rb/)
+      kbo(:, 4,41,15) = (/ &
+     &2.4006e+06_rb,1.8005e+06_rb,1.2003e+06_rb,6.0017e+05_rb,4.9097e+01_rb/)
+      kbo(:, 5,41,15) = (/ &
+     &2.2975e+06_rb,1.7231e+06_rb,1.1487e+06_rb,5.7438e+05_rb,4.2980e+01_rb/)
+      kbo(:, 1,42,15) = (/ &
+     &3.0827e+06_rb,2.3120e+06_rb,1.5413e+06_rb,7.7067e+05_rb,7.6123e+01_rb/)
+      kbo(:, 2,42,15) = (/ &
+     &2.9612e+06_rb,2.2209e+06_rb,1.4806e+06_rb,7.4030e+05_rb,7.1662e+01_rb/)
+      kbo(:, 3,42,15) = (/ &
+     &2.8423e+06_rb,2.1317e+06_rb,1.4211e+06_rb,7.1056e+05_rb,6.2602e+01_rb/)
+      kbo(:, 4,42,15) = (/ &
+     &2.7244e+06_rb,2.0433e+06_rb,1.3622e+06_rb,6.8108e+05_rb,5.0093e+01_rb/)
+      kbo(:, 5,42,15) = (/ &
+     &2.6071e+06_rb,1.9553e+06_rb,1.3035e+06_rb,6.5176e+05_rb,4.3774e+01_rb/)
+      kbo(:, 1,43,15) = (/ &
+     &3.5341e+06_rb,2.6506e+06_rb,1.7671e+06_rb,8.8353e+05_rb,7.8436e+01_rb/)
+      kbo(:, 2,43,15) = (/ &
+     &3.3959e+06_rb,2.5467e+06_rb,1.6978e+06_rb,8.4891e+05_rb,7.3775e+01_rb/)
+      kbo(:, 3,43,15) = (/ &
+     &3.2585e+06_rb,2.4439e+06_rb,1.6293e+06_rb,8.1464e+05_rb,6.4695e+01_rb/)
+      kbo(:, 4,43,15) = (/ &
+     &3.1244e+06_rb,2.3433e+06_rb,1.5622e+06_rb,7.8111e+05_rb,5.1912e+01_rb/)
+      kbo(:, 5,43,15) = (/ &
+     &2.9906e+06_rb,2.2429e+06_rb,1.4953e+06_rb,7.4765e+05_rb,4.5444e+01_rb/)
+      kbo(:, 1,44,15) = (/ &
+     &4.1097e+06_rb,3.0823e+06_rb,2.0548e+06_rb,1.0274e+06_rb,8.1119e+01_rb/)
+      kbo(:, 2,44,15) = (/ &
+     &3.9487e+06_rb,2.9615e+06_rb,1.9743e+06_rb,9.8717e+05_rb,7.5797e+01_rb/)
+      kbo(:, 3,44,15) = (/ &
+     &3.7894e+06_rb,2.8420e+06_rb,1.8947e+06_rb,9.4733e+05_rb,6.6793e+01_rb/)
+      kbo(:, 4,44,15) = (/ &
+     &3.6341e+06_rb,2.7256e+06_rb,1.8170e+06_rb,9.0851e+05_rb,5.3433e+01_rb/)
+      kbo(:, 5,44,15) = (/ &
+     &3.4797e+06_rb,2.6097e+06_rb,1.7398e+06_rb,8.6990e+05_rb,4.7406e+01_rb/)
+      kbo(:, 1,45,15) = (/ &
+     &4.8722e+06_rb,3.6542e+06_rb,2.4361e+06_rb,1.2181e+06_rb,8.3949e+01_rb/)
+      kbo(:, 2,45,15) = (/ &
+     &4.6827e+06_rb,3.5120e+06_rb,2.3413e+06_rb,1.1707e+06_rb,7.7974e+01_rb/)
+      kbo(:, 3,45,15) = (/ &
+     &4.4945e+06_rb,3.3709e+06_rb,2.2473e+06_rb,1.1236e+06_rb,6.9073e+01_rb/)
+      kbo(:, 4,45,15) = (/ &
+     &4.3103e+06_rb,3.2327e+06_rb,2.1551e+06_rb,1.0776e+06_rb,5.6213e+01_rb/)
+      kbo(:, 5,45,15) = (/ &
+     &4.1290e+06_rb,3.0968e+06_rb,2.0645e+06_rb,1.0323e+06_rb,4.8762e+01_rb/)
+      kbo(:, 1,46,15) = (/ &
+     &5.8372e+06_rb,4.3779e+06_rb,2.9186e+06_rb,1.4593e+06_rb,8.7007e+01_rb/)
+      kbo(:, 2,46,15) = (/ &
+     &5.6126e+06_rb,4.2094e+06_rb,2.8063e+06_rb,1.4031e+06_rb,8.0166e+01_rb/)
+      kbo(:, 3,46,15) = (/ &
+     &5.3885e+06_rb,4.0414e+06_rb,2.6943e+06_rb,1.3471e+06_rb,7.0991e+01_rb/)
+      kbo(:, 4,46,15) = (/ &
+     &5.1687e+06_rb,3.8765e+06_rb,2.5843e+06_rb,1.2922e+06_rb,5.9015e+01_rb/)
+      kbo(:, 5,46,15) = (/ &
+     &4.9529e+06_rb,3.7147e+06_rb,2.4764e+06_rb,1.2382e+06_rb,5.0566e+01_rb/)
+      kbo(:, 1,47,15) = (/ &
+     &6.9385e+06_rb,5.2039e+06_rb,3.4693e+06_rb,1.7346e+06_rb,9.1194e+01_rb/)
+      kbo(:, 2,47,15) = (/ &
+     &6.6774e+06_rb,5.0081e+06_rb,3.3387e+06_rb,1.6694e+06_rb,8.2417e+01_rb/)
+      kbo(:, 3,47,15) = (/ &
+     &6.4127e+06_rb,4.8095e+06_rb,3.2064e+06_rb,1.6032e+06_rb,7.5225e+01_rb/)
+      kbo(:, 4,47,15) = (/ &
+     &6.1518e+06_rb,4.6139e+06_rb,3.0759e+06_rb,1.5380e+06_rb,6.2982e+01_rb/)
+      kbo(:, 5,47,15) = (/ &
+     &5.8970e+06_rb,4.4228e+06_rb,2.9485e+06_rb,1.4743e+06_rb,5.3315e+01_rb/)
+      kbo(:, 1,48,15) = (/ &
+     &8.4803e+06_rb,6.3603e+06_rb,4.2402e+06_rb,2.1201e+06_rb,9.5233e+01_rb/)
+      kbo(:, 2,48,15) = (/ &
+     &8.1666e+06_rb,6.1249e+06_rb,4.0833e+06_rb,2.0417e+06_rb,8.3938e+01_rb/)
+      kbo(:, 3,48,15) = (/ &
+     &7.8474e+06_rb,5.8855e+06_rb,3.9237e+06_rb,1.9618e+06_rb,7.8581e+01_rb/)
+      kbo(:, 4,48,15) = (/ &
+     &7.5308e+06_rb,5.6481e+06_rb,3.7654e+06_rb,1.8827e+06_rb,6.5837e+01_rb/)
+      kbo(:, 5,48,15) = (/ &
+     &7.2194e+06_rb,5.4145e+06_rb,3.6097e+06_rb,1.8049e+06_rb,5.5833e+01_rb/)
+      kbo(:, 1,49,15) = (/ &
+     &1.0795e+07_rb,8.0961e+06_rb,5.3974e+06_rb,2.6987e+06_rb,9.8694e+01_rb/)
+      kbo(:, 2,49,15) = (/ &
+     &1.0405e+07_rb,7.8035e+06_rb,5.2023e+06_rb,2.6011e+06_rb,8.7441e+01_rb/)
+      kbo(:, 3,49,15) = (/ &
+     &1.0006e+07_rb,7.5045e+06_rb,5.0030e+06_rb,2.5015e+06_rb,8.1233e+01_rb/)
+      kbo(:, 4,49,15) = (/ &
+     &9.6057e+06_rb,7.2043e+06_rb,4.8028e+06_rb,2.4014e+06_rb,6.9160e+01_rb/)
+      kbo(:, 5,49,15) = (/ &
+     &9.2104e+06_rb,6.9078e+06_rb,4.6052e+06_rb,2.3026e+06_rb,5.7442e+01_rb/)
+      kbo(:, 1,50,15) = (/ &
+     &1.3074e+07_rb,9.8054e+06_rb,6.5369e+06_rb,3.2685e+06_rb,1.0218e+02_rb/)
+      kbo(:, 2,50,15) = (/ &
+     &1.2610e+07_rb,9.4575e+06_rb,6.3050e+06_rb,3.1525e+06_rb,9.1395e+01_rb/)
+      kbo(:, 3,50,15) = (/ &
+     &1.2137e+07_rb,9.1025e+06_rb,6.0683e+06_rb,3.0342e+06_rb,8.4017e+01_rb/)
+      kbo(:, 4,50,15) = (/ &
+     &1.1655e+07_rb,8.7414e+06_rb,5.8276e+06_rb,2.9138e+06_rb,7.1620e+01_rb/)
+      kbo(:, 5,50,15) = (/ &
+     &1.1180e+07_rb,8.3848e+06_rb,5.5899e+06_rb,2.7949e+06_rb,6.0411e+01_rb/)
+      kbo(:, 1,51,15) = (/ &
+     &1.5480e+07_rb,1.1610e+07_rb,7.7399e+06_rb,3.8700e+06_rb,1.0595e+02_rb/)
+      kbo(:, 2,51,15) = (/ &
+     &1.4942e+07_rb,1.1207e+07_rb,7.4711e+06_rb,3.7356e+06_rb,9.5091e+01_rb/)
+      kbo(:, 3,51,15) = (/ &
+     &1.4390e+07_rb,1.0793e+07_rb,7.1952e+06_rb,3.5976e+06_rb,8.6843e+01_rb/)
+      kbo(:, 4,51,15) = (/ &
+     &1.3829e+07_rb,1.0371e+07_rb,6.9143e+06_rb,3.4572e+06_rb,7.4583e+01_rb/)
+      kbo(:, 5,51,15) = (/ &
+     &1.3268e+07_rb,9.9514e+06_rb,6.6343e+06_rb,3.3171e+06_rb,6.4529e+01_rb/)
+      kbo(:, 1,52,15) = (/ &
+     &1.8848e+07_rb,1.4136e+07_rb,9.4240e+06_rb,4.7120e+06_rb,1.0974e+02_rb/)
+      kbo(:, 2,52,15) = (/ &
+     &1.8206e+07_rb,1.3654e+07_rb,9.1030e+06_rb,4.5515e+06_rb,9.9547e+01_rb/)
+      kbo(:, 3,52,15) = (/ &
+     &1.7547e+07_rb,1.3161e+07_rb,8.7738e+06_rb,4.3869e+06_rb,8.9552e+01_rb/)
+      kbo(:, 4,52,15) = (/ &
+     &1.6877e+07_rb,1.2658e+07_rb,8.4384e+06_rb,4.2192e+06_rb,7.7635e+01_rb/)
+      kbo(:, 5,52,15) = (/ &
+     &1.6199e+07_rb,1.2149e+07_rb,8.0997e+06_rb,4.0499e+06_rb,6.8061e+01_rb/)
+      kbo(:, 1,53,15) = (/ &
+     &2.3903e+07_rb,1.7928e+07_rb,1.1952e+07_rb,5.9760e+06_rb,1.1360e+02_rb/)
+      kbo(:, 2,53,15) = (/ &
+     &2.3112e+07_rb,1.7334e+07_rb,1.1556e+07_rb,5.7781e+06_rb,1.0455e+02_rb/)
+      kbo(:, 3,53,15) = (/ &
+     &2.2293e+07_rb,1.6719e+07_rb,1.1146e+07_rb,5.5732e+06_rb,9.2320e+01_rb/)
+      kbo(:, 4,53,15) = (/ &
+     &2.1455e+07_rb,1.6091e+07_rb,1.0728e+07_rb,5.3638e+06_rb,8.0467e+01_rb/)
+      kbo(:, 5,53,15) = (/ &
+     &2.0604e+07_rb,1.5453e+07_rb,1.0302e+07_rb,5.1511e+06_rb,7.1688e+01_rb/)
+      kbo(:, 1,54,15) = (/ &
+     &2.6168e+07_rb,1.9626e+07_rb,1.3084e+07_rb,6.5420e+06_rb,1.1792e+02_rb/)
+      kbo(:, 2,54,15) = (/ &
+     &2.5326e+07_rb,1.8995e+07_rb,1.2663e+07_rb,6.3316e+06_rb,1.0689e+02_rb/)
+      kbo(:, 3,54,15) = (/ &
+     &2.4445e+07_rb,1.8334e+07_rb,1.2223e+07_rb,6.1114e+06_rb,9.4623e+01_rb/)
+      kbo(:, 4,54,15) = (/ &
+     &2.3543e+07_rb,1.7657e+07_rb,1.1772e+07_rb,5.8858e+06_rb,8.6034e+01_rb/)
+      kbo(:, 5,54,15) = (/ &
+     &2.2624e+07_rb,1.6968e+07_rb,1.1312e+07_rb,5.6560e+06_rb,7.5610e+01_rb/)
+      kbo(:, 1,55,15) = (/ &
+     &2.6110e+07_rb,1.9583e+07_rb,1.3055e+07_rb,6.5277e+06_rb,1.2293e+02_rb/)
+      kbo(:, 2,55,15) = (/ &
+     &2.5298e+07_rb,1.8974e+07_rb,1.2649e+07_rb,6.3247e+06_rb,1.0996e+02_rb/)
+      kbo(:, 3,55,15) = (/ &
+     &2.4435e+07_rb,1.8326e+07_rb,1.2218e+07_rb,6.1089e+06_rb,1.0025e+02_rb/)
+      kbo(:, 4,55,15) = (/ &
+     &2.3548e+07_rb,1.7661e+07_rb,1.1774e+07_rb,5.8870e+06_rb,8.9943e+01_rb/)
+      kbo(:, 5,55,15) = (/ &
+     &2.2646e+07_rb,1.6984e+07_rb,1.1323e+07_rb,5.6615e+06_rb,7.8052e+01_rb/)
+      kbo(:, 1,56,15) = (/ &
+     &2.6049e+07_rb,1.9537e+07_rb,1.3025e+07_rb,6.5123e+06_rb,1.2801e+02_rb/)
+      kbo(:, 2,56,15) = (/ &
+     &2.5263e+07_rb,1.8947e+07_rb,1.2631e+07_rb,6.3155e+06_rb,1.1426e+02_rb/)
+      kbo(:, 3,56,15) = (/ &
+     &2.4422e+07_rb,1.8316e+07_rb,1.2211e+07_rb,6.1054e+06_rb,1.0290e+02_rb/)
+      kbo(:, 4,56,15) = (/ &
+     &2.3554e+07_rb,1.7665e+07_rb,1.1777e+07_rb,5.8883e+06_rb,9.1587e+01_rb/)
+      kbo(:, 5,56,15) = (/ &
+     &2.2663e+07_rb,1.6997e+07_rb,1.1331e+07_rb,5.6657e+06_rb,8.3726e+01_rb/)
+      kbo(:, 1,57,15) = (/ &
+     &2.5975e+07_rb,1.9481e+07_rb,1.2987e+07_rb,6.4936e+06_rb,1.3227e+02_rb/)
+      kbo(:, 2,57,15) = (/ &
+     &2.5221e+07_rb,1.8915e+07_rb,1.2610e+07_rb,6.3050e+06_rb,1.1939e+02_rb/)
+      kbo(:, 3,57,15) = (/ &
+     &2.4401e+07_rb,1.8301e+07_rb,1.2201e+07_rb,6.1003e+06_rb,1.0672e+02_rb/)
+      kbo(:, 4,57,15) = (/ &
+     &2.3548e+07_rb,1.7661e+07_rb,1.1774e+07_rb,5.8869e+06_rb,9.6378e+01_rb/)
+      kbo(:, 5,57,15) = (/ &
+     &2.2676e+07_rb,1.7007e+07_rb,1.1338e+07_rb,5.6688e+06_rb,8.7523e+01_rb/)
+      kbo(:, 1,58,15) = (/ &
+     &6.8249e+06_rb,6.2574e+06_rb,5.3652e+06_rb,3.7577e+06_rb,1.3651e+02_rb/)
+      kbo(:, 2,58,15) = (/ &
+     &6.6343e+06_rb,6.0826e+06_rb,5.2153e+06_rb,3.6528e+06_rb,1.2352e+02_rb/)
+      kbo(:, 3,58,15) = (/ &
+     &6.4258e+06_rb,5.8914e+06_rb,5.0514e+06_rb,3.5379e+06_rb,1.1077e+02_rb/)
+      kbo(:, 4,58,15) = (/ &
+     &6.2048e+06_rb,5.6888e+06_rb,4.8776e+06_rb,3.4163e+06_rb,9.9878e+01_rb/)
+      kbo(:, 5,58,15) = (/ &
+     &5.9792e+06_rb,5.4820e+06_rb,4.7004e+06_rb,3.2921e+06_rb,8.9433e+01_rb/)
+      kbo(:, 1,59,15) = (/ &
+     &7.9949e+06_rb,6.9809e+06_rb,5.5683e+06_rb,3.4650e+06_rb,1.3832e+02_rb/)
+      kbo(:, 2,59,15) = (/ &
+     &7.7778e+06_rb,6.7913e+06_rb,5.4171e+06_rb,3.3709e+06_rb,1.2505e+02_rb/)
+      kbo(:, 3,59,15) = (/ &
+     &7.5359e+06_rb,6.5801e+06_rb,5.2486e+06_rb,3.2660e+06_rb,1.1363e+02_rb/)
+      kbo(:, 4,59,15) = (/ &
+     &7.2794e+06_rb,6.3561e+06_rb,5.0700e+06_rb,3.1549e+06_rb,1.0324e+02_rb/)
+      kbo(:, 5,59,15) = (/ &
+     &7.0157e+06_rb,6.1258e+06_rb,4.8863e+06_rb,3.0406e+06_rb,9.1722e+01_rb/)
+      kbo(:, 1,13,16) = (/ &
+     &7.4591e+05_rb,5.5944e+05_rb,3.7296e+05_rb,1.8648e+05_rb,1.0589e+01_rb/)
+      kbo(:, 2,13,16) = (/ &
+     &7.4121e+05_rb,5.5591e+05_rb,3.7061e+05_rb,1.8530e+05_rb,1.0476e+01_rb/)
+      kbo(:, 3,13,16) = (/ &
+     &7.3660e+05_rb,5.5245e+05_rb,3.6830e+05_rb,1.8415e+05_rb,6.4518e+00_rb/)
+      kbo(:, 4,13,16) = (/ &
+     &7.3017e+05_rb,5.4763e+05_rb,3.6509e+05_rb,1.8254e+05_rb,7.2400e-02_rb/)
+      kbo(:, 5,13,16) = (/ &
+     &7.2523e+05_rb,5.4392e+05_rb,3.6262e+05_rb,1.8131e+05_rb,8.3840e-02_rb/)
+      kbo(:, 1,14,16) = (/ &
+     &5.4546e+05_rb,4.0910e+05_rb,2.7273e+05_rb,1.3636e+05_rb,1.2083e+01_rb/)
+      kbo(:, 2,14,16) = (/ &
+     &5.4530e+05_rb,4.0897e+05_rb,2.7264e+05_rb,1.3632e+05_rb,1.1940e+01_rb/)
+      kbo(:, 3,14,16) = (/ &
+     &5.4326e+05_rb,4.0739e+05_rb,2.7163e+05_rb,1.3581e+05_rb,1.1721e+01_rb/)
+      kbo(:, 4,14,16) = (/ &
+     &5.4132e+05_rb,4.0599e+05_rb,2.7066e+05_rb,1.3533e+05_rb,4.5827e+00_rb/)
+      kbo(:, 5,14,16) = (/ &
+     &5.3886e+05_rb,4.0414e+05_rb,2.6943e+05_rb,1.3471e+05_rb,7.8150e-02_rb/)
+      kbo(:, 1,15,16) = (/ &
+     &4.1181e+05_rb,3.0886e+05_rb,2.0591e+05_rb,1.0295e+05_rb,1.3732e+01_rb/)
+      kbo(:, 2,15,16) = (/ &
+     &4.1235e+05_rb,3.0926e+05_rb,2.0618e+05_rb,1.0309e+05_rb,1.3536e+01_rb/)
+      kbo(:, 3,15,16) = (/ &
+     &4.1248e+05_rb,3.0936e+05_rb,2.0624e+05_rb,1.0312e+05_rb,1.3259e+01_rb/)
+      kbo(:, 4,15,16) = (/ &
+     &4.1181e+05_rb,3.0886e+05_rb,2.0591e+05_rb,1.0296e+05_rb,1.2919e+01_rb/)
+      kbo(:, 5,15,16) = (/ &
+     &4.1010e+05_rb,3.0757e+05_rb,2.0505e+05_rb,1.0253e+05_rb,4.0719e+00_rb/)
+      kbo(:, 1,16,16) = (/ &
+     &3.7257e+05_rb,2.7672e+05_rb,1.8628e+05_rb,9.3143e+04_rb,1.5485e+01_rb/)
+      kbo(:, 2,16,16) = (/ &
+     &3.7431e+05_rb,2.8074e+05_rb,1.8716e+05_rb,9.3579e+04_rb,1.5222e+01_rb/)
+      kbo(:, 3,16,16) = (/ &
+     &3.7500e+05_rb,2.8129e+05_rb,1.8753e+05_rb,9.3763e+04_rb,1.4862e+01_rb/)
+      kbo(:, 4,16,16) = (/ &
+     &3.7444e+05_rb,2.8083e+05_rb,1.8722e+05_rb,9.3612e+04_rb,1.4438e+01_rb/)
+      kbo(:, 5,16,16) = (/ &
+     &3.7332e+05_rb,2.7999e+05_rb,1.8666e+05_rb,9.3332e+04_rb,7.6230e+00_rb/)
+      kbo(:, 1,17,16) = (/ &
+     &3.5182e+05_rb,2.6386e+05_rb,1.7591e+05_rb,8.7955e+04_rb,1.7290e+01_rb/)
+      kbo(:, 2,17,16) = (/ &
+     &3.5397e+05_rb,2.6547e+05_rb,1.7698e+05_rb,8.8492e+04_rb,1.6932e+01_rb/)
+      kbo(:, 3,17,16) = (/ &
+     &3.5462e+05_rb,2.6597e+05_rb,1.7731e+05_rb,8.8656e+04_rb,1.6480e+01_rb/)
+      kbo(:, 4,17,16) = (/ &
+     &3.5402e+05_rb,2.6552e+05_rb,1.7701e+05_rb,8.8507e+04_rb,1.5962e+01_rb/)
+      kbo(:, 5,17,16) = (/ &
+     &3.5314e+05_rb,2.6486e+05_rb,1.7657e+05_rb,8.8287e+04_rb,1.0353e+01_rb/)
+      kbo(:, 1,18,16) = (/ &
+     &3.4176e+05_rb,2.5632e+05_rb,1.7088e+05_rb,8.5439e+04_rb,1.9139e+01_rb/)
+      kbo(:, 2,18,16) = (/ &
+     &3.4367e+05_rb,2.5775e+05_rb,1.7183e+05_rb,8.5917e+04_rb,1.8641e+01_rb/)
+      kbo(:, 3,18,16) = (/ &
+     &3.4399e+05_rb,2.5800e+05_rb,1.7200e+05_rb,8.5999e+04_rb,1.8079e+01_rb/)
+      kbo(:, 4,18,16) = (/ &
+     &3.4376e+05_rb,2.5782e+05_rb,1.7188e+05_rb,8.5941e+04_rb,1.7627e+01_rb/)
+      kbo(:, 5,18,16) = (/ &
+     &3.4258e+05_rb,2.5694e+05_rb,1.7129e+05_rb,8.5646e+04_rb,1.3174e+01_rb/)
+      kbo(:, 1,19,16) = (/ &
+     &3.2677e+05_rb,2.4508e+05_rb,1.6338e+05_rb,8.1692e+04_rb,2.1598e+01_rb/)
+      kbo(:, 2,19,16) = (/ &
+     &3.2775e+05_rb,2.4581e+05_rb,1.6387e+05_rb,8.1937e+04_rb,2.1013e+01_rb/)
+      kbo(:, 3,19,16) = (/ &
+     &3.2835e+05_rb,2.4626e+05_rb,1.6417e+05_rb,8.2068e+04_rb,2.0530e+01_rb/)
+      kbo(:, 4,19,16) = (/ &
+     &3.2780e+05_rb,2.4585e+05_rb,1.6390e+05_rb,8.1950e+04_rb,2.0057e+01_rb/)
+      kbo(:, 5,19,16) = (/ &
+     &3.2322e+05_rb,2.4484e+05_rb,1.6323e+05_rb,8.1613e+04_rb,1.8218e+01_rb/)
+      kbo(:, 1,20,16) = (/ &
+     &3.3791e+05_rb,2.5343e+05_rb,1.6896e+05_rb,8.4478e+04_rb,2.4811e+01_rb/)
+      kbo(:, 2,20,16) = (/ &
+     &3.3834e+05_rb,2.5376e+05_rb,1.6917e+05_rb,8.4586e+04_rb,2.4163e+01_rb/)
+      kbo(:, 3,20,16) = (/ &
+     &3.3842e+05_rb,2.5381e+05_rb,1.6921e+05_rb,8.4605e+04_rb,2.3647e+01_rb/)
+      kbo(:, 4,20,16) = (/ &
+     &3.3728e+05_rb,2.5296e+05_rb,1.6864e+05_rb,8.4321e+04_rb,2.3144e+01_rb/)
+      kbo(:, 5,20,16) = (/ &
+     &3.3569e+05_rb,2.5177e+05_rb,1.6785e+05_rb,8.3923e+04_rb,2.2618e+01_rb/)
+      kbo(:, 1,21,16) = (/ &
+     &3.5913e+05_rb,2.6935e+05_rb,1.7956e+05_rb,8.9782e+04_rb,2.8889e+01_rb/)
+      kbo(:, 2,21,16) = (/ &
+     &3.5914e+05_rb,2.6936e+05_rb,1.7957e+05_rb,8.9786e+04_rb,2.8114e+01_rb/)
+      kbo(:, 3,21,16) = (/ &
+     &3.5794e+05_rb,2.6846e+05_rb,1.7897e+05_rb,8.9486e+04_rb,2.7459e+01_rb/)
+      kbo(:, 4,21,16) = (/ &
+     &3.5626e+05_rb,2.6720e+05_rb,1.7813e+05_rb,8.9066e+04_rb,2.6836e+01_rb/)
+      kbo(:, 5,21,16) = (/ &
+     &3.5369e+05_rb,2.6527e+05_rb,1.7684e+05_rb,8.8423e+04_rb,2.6161e+01_rb/)
+      kbo(:, 1,22,16) = (/ &
+     &3.8948e+05_rb,2.9211e+05_rb,1.9474e+05_rb,9.7369e+04_rb,3.3724e+01_rb/)
+      kbo(:, 2,22,16) = (/ &
+     &3.8828e+05_rb,2.9121e+05_rb,1.9414e+05_rb,9.7069e+04_rb,3.2720e+01_rb/)
+      kbo(:, 3,22,16) = (/ &
+     &3.8560e+05_rb,2.8920e+05_rb,1.9280e+05_rb,9.6401e+04_rb,3.1834e+01_rb/)
+      kbo(:, 4,22,16) = (/ &
+     &3.8253e+05_rb,2.8690e+05_rb,1.9127e+05_rb,9.5633e+04_rb,3.0971e+01_rb/)
+      kbo(:, 5,22,16) = (/ &
+     &3.7845e+05_rb,2.8383e+05_rb,1.8922e+05_rb,9.4612e+04_rb,3.0080e+01_rb/)
+      kbo(:, 1,23,16) = (/ &
+     &4.2147e+05_rb,3.1611e+05_rb,2.1074e+05_rb,1.0537e+05_rb,3.9276e+01_rb/)
+      kbo(:, 2,23,16) = (/ &
+     &4.1843e+05_rb,3.1382e+05_rb,2.0921e+05_rb,1.0461e+05_rb,3.7947e+01_rb/)
+      kbo(:, 3,23,16) = (/ &
+     &4.1438e+05_rb,3.1079e+05_rb,2.0719e+05_rb,1.0360e+05_rb,3.6734e+01_rb/)
+      kbo(:, 4,23,16) = (/ &
+     &4.0918e+05_rb,3.0688e+05_rb,2.0459e+05_rb,1.0230e+05_rb,3.5522e+01_rb/)
+      kbo(:, 5,23,16) = (/ &
+     &4.0269e+05_rb,3.0202e+05_rb,2.0135e+05_rb,1.0067e+05_rb,3.4322e+01_rb/)
+      kbo(:, 1,24,16) = (/ &
+     &4.4910e+05_rb,3.3682e+05_rb,2.2455e+05_rb,1.1228e+05_rb,4.5446e+01_rb/)
+      kbo(:, 2,24,16) = (/ &
+     &4.4436e+05_rb,3.3327e+05_rb,2.2218e+05_rb,1.1109e+05_rb,4.3684e+01_rb/)
+      kbo(:, 3,24,16) = (/ &
+     &4.3822e+05_rb,3.2867e+05_rb,2.1911e+05_rb,1.0956e+05_rb,4.2010e+01_rb/)
+      kbo(:, 4,24,16) = (/ &
+     &4.3055e+05_rb,3.2291e+05_rb,2.1528e+05_rb,1.0764e+05_rb,4.0380e+01_rb/)
+      kbo(:, 5,24,16) = (/ &
+     &4.2183e+05_rb,3.1637e+05_rb,2.1092e+05_rb,1.0546e+05_rb,3.8819e+01_rb/)
+      kbo(:, 1,25,16) = (/ &
+     &4.7951e+05_rb,3.5963e+05_rb,2.3975e+05_rb,1.1988e+05_rb,5.2030e+01_rb/)
+      kbo(:, 2,25,16) = (/ &
+     &4.7236e+05_rb,3.5427e+05_rb,2.3618e+05_rb,1.1809e+05_rb,4.9759e+01_rb/)
+      kbo(:, 3,25,16) = (/ &
+     &4.6345e+05_rb,3.4759e+05_rb,2.3173e+05_rb,1.1586e+05_rb,4.7513e+01_rb/)
+      kbo(:, 4,25,16) = (/ &
+     &4.5307e+05_rb,3.3980e+05_rb,2.2654e+05_rb,1.1327e+05_rb,4.5411e+01_rb/)
+      kbo(:, 5,25,16) = (/ &
+     &4.4201e+05_rb,3.3151e+05_rb,2.2101e+05_rb,1.1050e+05_rb,4.3416e+01_rb/)
+      kbo(:, 1,26,16) = (/ &
+     &5.1412e+05_rb,3.8559e+05_rb,2.5706e+05_rb,1.2853e+05_rb,5.8735e+01_rb/)
+      kbo(:, 2,26,16) = (/ &
+     &5.0368e+05_rb,3.7776e+05_rb,2.5184e+05_rb,1.2592e+05_rb,5.5868e+01_rb/)
+      kbo(:, 3,26,16) = (/ &
+     &4.9157e+05_rb,3.6868e+05_rb,2.4579e+05_rb,1.2289e+05_rb,5.3078e+01_rb/)
+      kbo(:, 4,26,16) = (/ &
+     &4.7856e+05_rb,3.5892e+05_rb,2.3928e+05_rb,1.1964e+05_rb,5.0425e+01_rb/)
+      kbo(:, 5,26,16) = (/ &
+     &4.6464e+05_rb,3.4848e+05_rb,2.3232e+05_rb,1.1616e+05_rb,4.7921e+01_rb/)
+      kbo(:, 1,27,16) = (/ &
+     &5.6504e+05_rb,4.2378e+05_rb,2.8252e+05_rb,1.4126e+05_rb,6.5394e+01_rb/)
+      kbo(:, 2,27,16) = (/ &
+     &5.5002e+05_rb,4.1252e+05_rb,2.7501e+05_rb,1.3751e+05_rb,6.1825e+01_rb/)
+      kbo(:, 3,27,16) = (/ &
+     &5.3436e+05_rb,4.0077e+05_rb,2.6718e+05_rb,1.3359e+05_rb,5.8497e+01_rb/)
+      kbo(:, 4,27,16) = (/ &
+     &5.1782e+05_rb,3.8837e+05_rb,2.5891e+05_rb,1.2946e+05_rb,5.5282e+01_rb/)
+      kbo(:, 5,27,16) = (/ &
+     &5.0051e+05_rb,3.7538e+05_rb,2.5025e+05_rb,1.2513e+05_rb,5.2211e+01_rb/)
+      kbo(:, 1,28,16) = (/ &
+     &6.2869e+05_rb,4.7152e+05_rb,3.1435e+05_rb,1.5717e+05_rb,7.1700e+01_rb/)
+      kbo(:, 2,28,16) = (/ &
+     &6.0862e+05_rb,4.5646e+05_rb,3.0431e+05_rb,1.5215e+05_rb,6.7460e+01_rb/)
+      kbo(:, 3,28,16) = (/ &
+     &5.8860e+05_rb,4.4145e+05_rb,2.9430e+05_rb,1.4715e+05_rb,6.3511e+01_rb/)
+      kbo(:, 4,28,16) = (/ &
+     &5.6780e+05_rb,4.2585e+05_rb,2.8390e+05_rb,1.4195e+05_rb,5.9746e+01_rb/)
+      kbo(:, 5,28,16) = (/ &
+     &5.4624e+05_rb,4.0968e+05_rb,2.7312e+05_rb,1.3656e+05_rb,5.6156e+01_rb/)
+      kbo(:, 1,29,16) = (/ &
+     &7.3240e+05_rb,5.4930e+05_rb,3.6620e+05_rb,1.8310e+05_rb,7.7436e+01_rb/)
+      kbo(:, 2,29,16) = (/ &
+     &7.0567e+05_rb,5.2925e+05_rb,3.5284e+05_rb,1.7642e+05_rb,7.2532e+01_rb/)
+      kbo(:, 3,29,16) = (/ &
+     &6.7920e+05_rb,5.0940e+05_rb,3.3960e+05_rb,1.6980e+05_rb,6.7962e+01_rb/)
+      kbo(:, 4,29,16) = (/ &
+     &6.5231e+05_rb,4.8923e+05_rb,3.2615e+05_rb,1.6308e+05_rb,6.3669e+01_rb/)
+      kbo(:, 5,29,16) = (/ &
+     &6.2510e+05_rb,4.6882e+05_rb,3.1255e+05_rb,1.5627e+05_rb,5.9600e+01_rb/)
+      kbo(:, 1,30,16) = (/ &
+     &8.6319e+05_rb,6.4740e+05_rb,4.3160e+05_rb,2.1580e+05_rb,8.2489e+01_rb/)
+      kbo(:, 2,30,16) = (/ &
+     &8.2811e+05_rb,6.2108e+05_rb,4.1405e+05_rb,2.0703e+05_rb,7.6918e+01_rb/)
+      kbo(:, 3,30,16) = (/ &
+     &7.9339e+05_rb,5.9504e+05_rb,3.9669e+05_rb,1.9835e+05_rb,7.1793e+01_rb/)
+      kbo(:, 4,30,16) = (/ &
+     &7.5902e+05_rb,5.6926e+05_rb,3.7951e+05_rb,1.8975e+05_rb,6.6976e+01_rb/)
+      kbo(:, 5,30,16) = (/ &
+     &7.2513e+05_rb,5.4385e+05_rb,3.6256e+05_rb,1.8128e+05_rb,5.5921e+01_rb/)
+      kbo(:, 1,31,16) = (/ &
+     &1.0572e+06_rb,7.9291e+05_rb,5.2861e+05_rb,2.6430e+05_rb,8.6704e+01_rb/)
+      kbo(:, 2,31,16) = (/ &
+     &1.0099e+06_rb,7.5744e+05_rb,5.0496e+05_rb,2.5248e+05_rb,8.0546e+01_rb/)
+      kbo(:, 3,31,16) = (/ &
+     &9.6381e+05_rb,7.2285e+05_rb,4.8190e+05_rb,2.4095e+05_rb,7.4889e+01_rb/)
+      kbo(:, 4,31,16) = (/ &
+     &9.1917e+05_rb,6.8937e+05_rb,4.5958e+05_rb,2.2979e+05_rb,6.9630e+01_rb/)
+      kbo(:, 5,31,16) = (/ &
+     &8.7558e+05_rb,6.5669e+05_rb,4.3779e+05_rb,2.1889e+05_rb,5.1048e+01_rb/)
+      kbo(:, 1,32,16) = (/ &
+     &1.2953e+06_rb,9.7146e+05_rb,6.4764e+05_rb,3.2382e+05_rb,9.0053e+01_rb/)
+      kbo(:, 2,32,16) = (/ &
+     &1.2332e+06_rb,9.2492e+05_rb,6.1662e+05_rb,3.0831e+05_rb,8.3375e+01_rb/)
+      kbo(:, 3,32,16) = (/ &
+     &1.1732e+06_rb,8.7992e+05_rb,5.8661e+05_rb,2.9331e+05_rb,7.7283e+01_rb/)
+      kbo(:, 4,32,16) = (/ &
+     &1.1156e+06_rb,8.3672e+05_rb,5.5781e+05_rb,2.7891e+05_rb,5.9068e+01_rb/)
+      kbo(:, 5,32,16) = (/ &
+     &1.0600e+06_rb,7.9499e+05_rb,5.3000e+05_rb,2.6500e+05_rb,4.7615e+01_rb/)
+      kbo(:, 1,33,16) = (/ &
+     &1.6005e+06_rb,1.2004e+06_rb,8.0025e+05_rb,4.0013e+05_rb,9.2564e+01_rb/)
+      kbo(:, 2,33,16) = (/ &
+     &1.5042e+06_rb,1.1396e+06_rb,7.5976e+05_rb,3.7988e+05_rb,8.5451e+01_rb/)
+      kbo(:, 3,33,16) = (/ &
+     &1.4412e+06_rb,1.0809e+06_rb,7.2060e+05_rb,3.6030e+05_rb,6.7956e+01_rb/)
+      kbo(:, 4,33,16) = (/ &
+     &1.3676e+06_rb,1.0257e+06_rb,6.8379e+05_rb,3.4189e+05_rb,5.3693e+01_rb/)
+      kbo(:, 5,33,16) = (/ &
+     &1.2966e+06_rb,9.7245e+05_rb,6.4830e+05_rb,3.2415e+05_rb,4.3539e+01_rb/)
+      kbo(:, 1,34,16) = (/ &
+     &1.9162e+06_rb,1.4372e+06_rb,9.5812e+05_rb,4.7906e+05_rb,9.4564e+01_rb/)
+      kbo(:, 2,34,16) = (/ &
+     &1.8147e+06_rb,1.3610e+06_rb,9.0734e+05_rb,4.5367e+05_rb,8.5602e+01_rb/)
+      kbo(:, 3,34,16) = (/ &
+     &1.7177e+06_rb,1.2883e+06_rb,8.5884e+05_rb,4.2942e+05_rb,6.2695e+01_rb/)
+      kbo(:, 4,34,16) = (/ &
+     &1.6266e+06_rb,1.2199e+06_rb,8.1329e+05_rb,4.0664e+05_rb,5.0461e+01_rb/)
+      kbo(:, 5,34,16) = (/ &
+     &1.5395e+06_rb,1.1546e+06_rb,7.6973e+05_rb,3.8486e+05_rb,4.1009e+01_rb/)
+      kbo(:, 1,35,16) = (/ &
+     &2.2940e+06_rb,1.7205e+06_rb,1.1470e+06_rb,5.7350e+05_rb,9.6683e+01_rb/)
+      kbo(:, 2,35,16) = (/ &
+     &2.1679e+06_rb,1.6259e+06_rb,1.0839e+06_rb,5.4197e+05_rb,7.5706e+01_rb/)
+      kbo(:, 3,35,16) = (/ &
+     &2.0487e+06_rb,1.5365e+06_rb,1.0243e+06_rb,5.1216e+05_rb,5.9415e+01_rb/)
+      kbo(:, 4,35,16) = (/ &
+     &1.9369e+06_rb,1.4527e+06_rb,9.6844e+05_rb,4.8422e+05_rb,4.7837e+01_rb/)
+      kbo(:, 5,35,16) = (/ &
+     &1.8303e+06_rb,1.3728e+06_rb,9.1517e+05_rb,4.5758e+05_rb,3.3167e+01_rb/)
+      kbo(:, 1,36,16) = (/ &
+     &2.7323e+06_rb,2.0492e+06_rb,1.3661e+06_rb,6.8307e+05_rb,9.9200e+01_rb/)
+      kbo(:, 2,36,16) = (/ &
+     &2.5780e+06_rb,1.9335e+06_rb,1.2890e+06_rb,6.4450e+05_rb,7.2688e+01_rb/)
+      kbo(:, 3,36,16) = (/ &
+     &2.4326e+06_rb,1.8244e+06_rb,1.2163e+06_rb,6.0814e+05_rb,5.7708e+01_rb/)
+      kbo(:, 4,36,16) = (/ &
+     &2.2967e+06_rb,1.7225e+06_rb,1.1483e+06_rb,5.7417e+05_rb,4.6712e+01_rb/)
+      kbo(:, 5,36,16) = (/ &
+     &2.1679e+06_rb,1.6259e+06_rb,1.0839e+06_rb,5.4197e+05_rb,1.2791e+01_rb/)
+      kbo(:, 1,37,16) = (/ &
+     &3.1885e+06_rb,2.3914e+06_rb,1.5942e+06_rb,7.9711e+05_rb,1.0268e+02_rb/)
+      kbo(:, 2,37,16) = (/ &
+     &3.0040e+06_rb,2.2530e+06_rb,1.5020e+06_rb,7.5099e+05_rb,7.3443e+01_rb/)
+      kbo(:, 3,37,16) = (/ &
+     &2.8309e+06_rb,2.1232e+06_rb,1.4155e+06_rb,7.0773e+05_rb,5.8756e+01_rb/)
+      kbo(:, 4,37,16) = (/ &
+     &2.6696e+06_rb,2.0022e+06_rb,1.3348e+06_rb,6.6739e+05_rb,4.7388e+01_rb/)
+      kbo(:, 5,37,16) = (/ &
+     &2.5177e+06_rb,1.8883e+06_rb,1.2588e+06_rb,6.2942e+05_rb,7.8483e+00_rb/)
+      kbo(:, 1,38,16) = (/ &
+     &3.7660e+06_rb,2.8245e+06_rb,1.8830e+06_rb,9.4149e+05_rb,1.0053e+02_rb/)
+      kbo(:, 2,38,16) = (/ &
+     &3.5441e+06_rb,2.6581e+06_rb,1.7720e+06_rb,8.8602e+05_rb,7.3960e+01_rb/)
+      kbo(:, 3,38,16) = (/ &
+     &3.3357e+06_rb,2.5018e+06_rb,1.6678e+06_rb,8.3391e+05_rb,5.9673e+01_rb/)
+      kbo(:, 4,38,16) = (/ &
+     &3.1421e+06_rb,2.3566e+06_rb,1.5711e+06_rb,7.8553e+05_rb,4.7953e+01_rb/)
+      kbo(:, 5,38,16) = (/ &
+     &2.9610e+06_rb,2.2207e+06_rb,1.4805e+06_rb,7.4024e+05_rb,7.1016e-04_rb/)
+      kbo(:, 1,39,16) = (/ &
+     &4.5378e+06_rb,3.4034e+06_rb,2.2689e+06_rb,1.1345e+06_rb,9.8727e+01_rb/)
+      kbo(:, 2,39,16) = (/ &
+     &4.2667e+06_rb,3.2000e+06_rb,2.1334e+06_rb,1.0667e+06_rb,7.4242e+01_rb/)
+      kbo(:, 3,39,16) = (/ &
+     &4.0124e+06_rb,3.0093e+06_rb,2.0062e+06_rb,1.0031e+06_rb,5.9575e+01_rb/)
+      kbo(:, 4,39,16) = (/ &
+     &3.7760e+06_rb,2.8320e+06_rb,1.8880e+06_rb,9.4400e+05_rb,3.9674e+01_rb/)
+      kbo(:, 5,39,16) = (/ &
+     &3.5558e+06_rb,2.6669e+06_rb,1.7591e+06_rb,8.8898e+05_rb,5.7405e-04_rb/)
+      kbo(:, 1,40,16) = (/ &
+     &5.1586e+06_rb,3.8690e+06_rb,2.5793e+06_rb,1.2896e+06_rb,1.0433e+02_rb/)
+      kbo(:, 2,40,16) = (/ &
+     &4.8469e+06_rb,3.6347e+06_rb,2.4234e+06_rb,1.2117e+06_rb,7.7760e+01_rb/)
+      kbo(:, 3,40,16) = (/ &
+     &4.5541e+06_rb,3.4156e+06_rb,2.2770e+06_rb,1.1385e+06_rb,6.1585e+01_rb/)
+      kbo(:, 4,40,16) = (/ &
+     &4.2818e+06_rb,3.2114e+06_rb,2.1409e+06_rb,1.0704e+06_rb,4.0940e+01_rb/)
+      kbo(:, 5,40,16) = (/ &
+     &4.0296e+06_rb,3.0222e+06_rb,2.0148e+06_rb,1.0074e+06_rb,4.6888e-04_rb/)
+      kbo(:, 1,41,16) = (/ &
+     &5.8465e+06_rb,4.3849e+06_rb,2.9233e+06_rb,1.4616e+06_rb,1.1317e+02_rb/)
+      kbo(:, 2,41,16) = (/ &
+     &5.4907e+06_rb,4.1180e+06_rb,2.7454e+06_rb,1.3727e+06_rb,8.1398e+01_rb/)
+      kbo(:, 3,41,16) = (/ &
+     &5.1550e+06_rb,3.8663e+06_rb,2.5775e+06_rb,1.2888e+06_rb,6.4536e+01_rb/)
+      kbo(:, 4,41,16) = (/ &
+     &4.8434e+06_rb,3.6326e+06_rb,2.4217e+06_rb,1.2109e+06_rb,4.3960e+01_rb/)
+      kbo(:, 5,41,16) = (/ &
+     &4.5548e+06_rb,3.4161e+06_rb,2.2774e+06_rb,1.1387e+06_rb,3.7799e-04_rb/)
+      kbo(:, 1,42,16) = (/ &
+     &6.6900e+06_rb,5.0175e+06_rb,3.3450e+06_rb,1.6725e+06_rb,1.2124e+02_rb/)
+      kbo(:, 2,42,16) = (/ &
+     &6.2794e+06_rb,4.7096e+06_rb,3.1397e+06_rb,1.5698e+06_rb,8.5097e+01_rb/)
+      kbo(:, 3,42,16) = (/ &
+     &5.8926e+06_rb,4.4195e+06_rb,2.9463e+06_rb,1.4731e+06_rb,6.7520e+01_rb/)
+      kbo(:, 4,42,16) = (/ &
+     &5.5323e+06_rb,4.1492e+06_rb,2.7661e+06_rb,1.3831e+06_rb,4.6182e+01_rb/)
+      kbo(:, 5,42,16) = (/ &
+     &5.1983e+06_rb,3.8987e+06_rb,2.5991e+06_rb,1.2996e+06_rb,3.0509e-04_rb/)
+      kbo(:, 1,43,16) = (/ &
+     &7.7419e+06_rb,5.8065e+06_rb,3.8710e+06_rb,1.9355e+06_rb,1.2600e+02_rb/)
+      kbo(:, 2,43,16) = (/ &
+     &7.2619e+06_rb,5.4481e+06_rb,3.6321e+06_rb,1.8161e+06_rb,9.0385e+01_rb/)
+      kbo(:, 3,43,16) = (/ &
+     &6.8139e+06_rb,5.1104e+06_rb,3.4070e+06_rb,1.7035e+06_rb,7.0944e+01_rb/)
+      kbo(:, 4,43,16) = (/ &
+     &6.3928e+06_rb,4.7946e+06_rb,3.1964e+06_rb,1.5982e+06_rb,5.0507e+01_rb/)
+      kbo(:, 5,43,16) = (/ &
+     &6.0029e+06_rb,4.5022e+06_rb,3.0015e+06_rb,1.5007e+06_rb,2.4615e-04_rb/)
+      kbo(:, 1,44,16) = (/ &
+     &9.0918e+06_rb,6.8188e+06_rb,4.5458e+06_rb,2.2729e+06_rb,1.3122e+02_rb/)
+      kbo(:, 2,44,16) = (/ &
+     &8.5266e+06_rb,6.3949e+06_rb,4.2633e+06_rb,2.1316e+06_rb,9.7168e+01_rb/)
+      kbo(:, 3,44,16) = (/ &
+     &7.9959e+06_rb,5.9969e+06_rb,3.9979e+06_rb,1.9989e+06_rb,7.5640e+01_rb/)
+      kbo(:, 4,44,16) = (/ &
+     &7.4967e+06_rb,5.6225e+06_rb,3.7483e+06_rb,1.8741e+06_rb,5.7032e+01_rb/)
+      kbo(:, 5,44,16) = (/ &
+     &7.0357e+06_rb,5.2767e+06_rb,3.5178e+06_rb,1.7589e+06_rb,1.1125e-02_rb/)
+      kbo(:, 1,45,16) = (/ &
+     &1.0890e+07_rb,8.1678e+06_rb,5.4452e+06_rb,2.7226e+06_rb,1.3511e+02_rb/)
+      kbo(:, 2,45,16) = (/ &
+     &1.0206e+07_rb,7.6543e+06_rb,5.1028e+06_rb,2.5514e+06_rb,1.0320e+02_rb/)
+      kbo(:, 3,45,16) = (/ &
+     &9.5676e+06_rb,7.1757e+06_rb,4.7838e+06_rb,2.3919e+06_rb,7.9521e+01_rb/)
+      kbo(:, 4,45,16) = (/ &
+     &8.9682e+06_rb,6.7261e+06_rb,4.4841e+06_rb,2.2420e+06_rb,5.3314e+01_rb/)
+      kbo(:, 5,45,16) = (/ &
+     &8.4107e+06_rb,6.3080e+06_rb,4.2053e+06_rb,2.1027e+06_rb,2.2542e-04_rb/)
+      kbo(:, 1,46,16) = (/ &
+     &1.3200e+07_rb,9.8998e+06_rb,6.5999e+06_rb,3.2999e+06_rb,1.4245e+02_rb/)
+      kbo(:, 2,46,16) = (/ &
+     &1.2354e+07_rb,9.2658e+06_rb,6.1772e+06_rb,3.0886e+06_rb,1.1090e+02_rb/)
+      kbo(:, 3,46,16) = (/ &
+     &1.1578e+07_rb,8.6832e+06_rb,5.7888e+06_rb,2.8944e+06_rb,8.3717e+01_rb/)
+      kbo(:, 4,46,16) = (/ &
+     &1.0851e+07_rb,8.1384e+06_rb,5.4256e+06_rb,2.7128e+06_rb,5.1335e+01_rb/)
+      kbo(:, 5,46,16) = (/ &
+     &1.0172e+07_rb,7.6289e+06_rb,5.0860e+06_rb,2.5430e+06_rb,1.9729e-04_rb/)
+      kbo(:, 1,47,16) = (/ &
+     &1.5899e+07_rb,1.1924e+07_rb,7.9494e+06_rb,3.9747e+06_rb,1.4926e+02_rb/)
+      kbo(:, 2,47,16) = (/ &
+     &1.4859e+07_rb,1.1144e+07_rb,7.4297e+06_rb,3.7148e+06_rb,1.2298e+02_rb/)
+      kbo(:, 3,47,16) = (/ &
+     &1.3924e+07_rb,1.0443e+07_rb,6.9621e+06_rb,3.4810e+06_rb,8.5230e+01_rb/)
+      kbo(:, 4,47,16) = (/ &
+     &1.3046e+07_rb,9.7847e+06_rb,6.5231e+06_rb,3.2616e+06_rb,5.3561e+01_rb/)
+      kbo(:, 5,47,16) = (/ &
+     &1.2222e+07_rb,9.1665e+06_rb,6.1110e+06_rb,3.0555e+06_rb,1.6606e-04_rb/)
+      kbo(:, 1,48,16) = (/ &
+     &1.9701e+07_rb,1.4775e+07_rb,9.8503e+06_rb,4.9251e+06_rb,1.5645e+02_rb/)
+      kbo(:, 2,48,16) = (/ &
+     &1.8394e+07_rb,1.3796e+07_rb,9.1972e+06_rb,4.5986e+06_rb,1.4059e+02_rb/)
+      kbo(:, 3,48,16) = (/ &
+     &1.7217e+07_rb,1.2913e+07_rb,8.6087e+06_rb,4.3044e+06_rb,8.5580e+01_rb/)
+      kbo(:, 4,48,16) = (/ &
+     &1.6130e+07_rb,1.2097e+07_rb,8.0649e+06_rb,4.0324e+06_rb,5.5884e+01_rb/)
+      kbo(:, 5,48,16) = (/ &
+     &1.5108e+07_rb,1.1331e+07_rb,7.5542e+06_rb,3.7771e+06_rb,1.4110e-04_rb/)
+      kbo(:, 1,49,16) = (/ &
+     &2.5446e+07_rb,1.9085e+07_rb,1.2723e+07_rb,6.3615e+06_rb,1.6402e+02_rb/)
+      kbo(:, 2,49,16) = (/ &
+     &2.3735e+07_rb,1.7801e+07_rb,1.1868e+07_rb,5.9337e+06_rb,1.4463e+02_rb/)
+      kbo(:, 3,49,16) = (/ &
+     &2.2185e+07_rb,1.6639e+07_rb,1.1093e+07_rb,5.5463e+06_rb,8.5806e+01_rb/)
+      kbo(:, 4,49,16) = (/ &
+     &2.0781e+07_rb,1.5586e+07_rb,1.0390e+07_rb,5.1952e+06_rb,5.2515e+01_rb/)
+      kbo(:, 5,49,16) = (/ &
+     &1.9463e+07_rb,1.4597e+07_rb,9.7313e+06_rb,4.8656e+06_rb,1.1804e-04_rb/)
+      kbo(:, 1,50,16) = (/ &
+     &3.1256e+07_rb,2.3442e+07_rb,1.5628e+07_rb,7.8139e+06_rb,1.7145e+02_rb/)
+      kbo(:, 2,50,16) = (/ &
+     &2.9123e+07_rb,2.1842e+07_rb,1.4562e+07_rb,7.2808e+06_rb,1.4715e+02_rb/)
+      kbo(:, 3,50,16) = (/ &
+     &2.7197e+07_rb,2.0398e+07_rb,1.3599e+07_rb,6.7993e+06_rb,9.2079e+01_rb/)
+      kbo(:, 4,50,16) = (/ &
+     &2.5458e+07_rb,1.9094e+07_rb,1.2729e+07_rb,6.3645e+06_rb,5.7113e+01_rb/)
+      kbo(:, 5,50,16) = (/ &
+     &2.3842e+07_rb,1.7882e+07_rb,1.1921e+07_rb,5.9606e+06_rb,9.7879e-05_rb/)
+      kbo(:, 1,51,16) = (/ &
+     &3.7532e+07_rb,2.8149e+07_rb,1.8766e+07_rb,9.3831e+06_rb,1.7913e+02_rb/)
+      kbo(:, 2,51,16) = (/ &
+     &3.4951e+07_rb,2.6213e+07_rb,1.7476e+07_rb,8.7379e+06_rb,1.5348e+02_rb/)
+      kbo(:, 3,51,16) = (/ &
+     &3.2604e+07_rb,2.4453e+07_rb,1.6302e+07_rb,8.1511e+06_rb,9.9906e+01_rb/)
+      kbo(:, 4,51,16) = (/ &
+     &3.0489e+07_rb,2.2867e+07_rb,1.5245e+07_rb,7.6224e+06_rb,6.1926e+01_rb/)
+      kbo(:, 5,51,16) = (/ &
+     &2.8553e+07_rb,2.1415e+07_rb,1.4277e+07_rb,7.1383e+06_rb,8.2332e-05_rb/)
+      kbo(:, 1,52,16) = (/ &
+     &4.6363e+07_rb,3.4773e+07_rb,2.3182e+07_rb,1.1591e+07_rb,1.8724e+02_rb/)
+      kbo(:, 2,52,16) = (/ &
+     &4.3154e+07_rb,3.2365e+07_rb,2.1577e+07_rb,1.0789e+07_rb,1.5735e+02_rb/)
+      kbo(:, 3,52,16) = (/ &
+     &4.0219e+07_rb,3.0165e+07_rb,2.0110e+07_rb,1.0055e+07_rb,1.0819e+02_rb/)
+      kbo(:, 4,52,16) = (/ &
+     &3.7571e+07_rb,2.8178e+07_rb,1.8786e+07_rb,9.3929e+06_rb,6.5746e+01_rb/)
+      kbo(:, 5,52,16) = (/ &
+     &3.5175e+07_rb,2.6382e+07_rb,1.7588e+07_rb,8.7937e+06_rb,2.5991e+00_rb/)
+      kbo(:, 1,53,16) = (/ &
+     &5.9694e+07_rb,4.4771e+07_rb,2.9847e+07_rb,1.4924e+07_rb,1.9593e+02_rb/)
+      kbo(:, 2,53,16) = (/ &
+     &5.5520e+07_rb,4.1640e+07_rb,2.7760e+07_rb,1.3880e+07_rb,1.5986e+02_rb/)
+      kbo(:, 3,53,16) = (/ &
+     &5.1713e+07_rb,3.8785e+07_rb,2.5857e+07_rb,1.2928e+07_rb,1.1418e+02_rb/)
+      kbo(:, 4,53,16) = (/ &
+     &4.8267e+07_rb,3.6200e+07_rb,2.4134e+07_rb,1.2067e+07_rb,6.7101e+01_rb/)
+      kbo(:, 5,53,16) = (/ &
+     &4.5154e+07_rb,3.3866e+07_rb,2.2577e+07_rb,1.1289e+07_rb,5.4836e-05_rb/)
+      kbo(:, 1,54,16) = (/ &
+     &6.6291e+07_rb,4.9719e+07_rb,3.3146e+07_rb,1.6573e+07_rb,2.0438e+02_rb/)
+      kbo(:, 2,54,16) = (/ &
+     &6.1631e+07_rb,4.6223e+07_rb,3.0816e+07_rb,1.5408e+07_rb,1.7539e+02_rb/)
+      kbo(:, 3,54,16) = (/ &
+     &5.7374e+07_rb,4.3031e+07_rb,2.8687e+07_rb,1.4344e+07_rb,1.3582e+02_rb/)
+      kbo(:, 4,54,16) = (/ &
+     &5.3498e+07_rb,4.0123e+07_rb,2.6749e+07_rb,1.3375e+07_rb,7.9383e+01_rb/)
+      kbo(:, 5,54,16) = (/ &
+     &5.0001e+07_rb,3.7501e+07_rb,2.5001e+07_rb,1.2501e+07_rb,1.9380e+01_rb/)
+      kbo(:, 1,55,16) = (/ &
+     &6.7110e+07_rb,5.0333e+07_rb,3.3555e+07_rb,1.6778e+07_rb,2.1302e+02_rb/)
+      kbo(:, 2,55,16) = (/ &
+     &6.2350e+07_rb,4.6763e+07_rb,3.1175e+07_rb,1.5588e+07_rb,1.8842e+02_rb/)
+      kbo(:, 3,55,16) = (/ &
+     &5.8012e+07_rb,4.3509e+07_rb,2.9006e+07_rb,1.4503e+07_rb,1.5117e+02_rb/)
+      kbo(:, 4,55,16) = (/ &
+     &5.4054e+07_rb,4.0541e+07_rb,2.7027e+07_rb,1.3514e+07_rb,1.0060e+02_rb/)
+      kbo(:, 5,55,16) = (/ &
+     &5.0479e+07_rb,3.7859e+07_rb,2.5240e+07_rb,1.2620e+07_rb,5.1596e+01_rb/)
+      kbo(:, 1,56,16) = (/ &
+     &6.7946e+07_rb,5.0959e+07_rb,3.3973e+07_rb,1.6986e+07_rb,2.2213e+02_rb/)
+      kbo(:, 2,56,16) = (/ &
+     &6.3087e+07_rb,4.7315e+07_rb,3.1543e+07_rb,1.5771e+07_rb,1.9599e+02_rb/)
+      kbo(:, 3,56,16) = (/ &
+     &5.8660e+07_rb,4.3995e+07_rb,2.9330e+07_rb,1.4665e+07_rb,1.7426e+02_rb/)
+      kbo(:, 4,56,16) = (/ &
+     &5.4632e+07_rb,4.0974e+07_rb,2.7316e+07_rb,1.3658e+07_rb,1.3341e+02_rb/)
+      kbo(:, 5,56,16) = (/ &
+     &5.0980e+07_rb,3.8235e+07_rb,2.5490e+07_rb,1.2745e+07_rb,7.5113e+01_rb/)
+      kbo(:, 1,57,16) = (/ &
+     &6.8848e+07_rb,5.1636e+07_rb,3.4424e+07_rb,1.7212e+07_rb,2.3193e+02_rb/)
+      kbo(:, 2,57,16) = (/ &
+     &6.3831e+07_rb,4.7873e+07_rb,3.1915e+07_rb,1.5958e+07_rb,2.0396e+02_rb/)
+      kbo(:, 3,57,16) = (/ &
+     &5.9337e+07_rb,4.4503e+07_rb,2.9325e+07_rb,1.4834e+07_rb,1.8090e+02_rb/)
+      kbo(:, 4,57,16) = (/ &
+     &5.5232e+07_rb,4.1423e+07_rb,2.7615e+07_rb,1.3808e+07_rb,1.4946e+02_rb/)
+      kbo(:, 5,57,16) = (/ &
+     &5.1498e+07_rb,3.8623e+07_rb,2.5749e+07_rb,1.2874e+07_rb,9.6802e+01_rb/)
+      kbo(:, 1,58,16) = (/ &
+     &1.8392e+07_rb,1.6863e+07_rb,1.4458e+07_rb,1.0126e+07_rb,2.4193e+02_rb/)
+      kbo(:, 2,58,16) = (/ &
+     &1.7018e+07_rb,1.5603e+07_rb,1.3378e+07_rb,9.3701e+06_rb,2.1195e+02_rb/)
+      kbo(:, 3,58,16) = (/ &
+     &1.5812e+07_rb,1.4497e+07_rb,1.2430e+07_rb,8.7057e+06_rb,1.8755e+02_rb/)
+      kbo(:, 4,58,16) = (/ &
+     &1.4710e+07_rb,1.3487e+07_rb,1.1564e+07_rb,8.0993e+06_rb,1.6722e+02_rb/)
+      kbo(:, 5,58,16) = (/ &
+     &1.3707e+07_rb,1.2567e+07_rb,1.0775e+07_rb,7.5470e+06_rb,1.3461e+02_rb/)
+      kbo(:, 1,59,16) = (/ &
+     &2.1701e+07_rb,1.8948e+07_rb,1.5114e+07_rb,9.4051e+06_rb,2.4616e+02_rb/)
+      kbo(:, 2,59,16) = (/ &
+     &2.0062e+07_rb,1.7517e+07_rb,1.3973e+07_rb,8.5918e+06_rb,2.1536e+02_rb/)
+      kbo(:, 3,59,16) = (/ &
+     &1.8637e+07_rb,1.6273e+07_rb,1.2980e+07_rb,8.0770e+06_rb,1.9038e+02_rb/)
+      kbo(:, 4,59,16) = (/ &
+     &1.7332e+07_rb,1.5134e+07_rb,1.2072e+07_rb,7.5118e+06_rb,1.6959e+02_rb/)
+      kbo(:, 5,59,16) = (/ &
+     &1.6145e+07_rb,1.4097e+07_rb,1.1245e+07_rb,6.9973e+06_rb,1.5180e+02_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &3.3839e-04_rb,2.4739e-04_rb,2.2846e-04_rb,2.3376e-04_rb,2.2622e-04_rb,2.3188e-04_rb, &
+     &2.2990e-04_rb,2.2532e-04_rb,2.1233e-04_rb,2.0593e-04_rb,2.0716e-04_rb,2.0809e-04_rb, &
+     &2.0889e-04_rb,2.0932e-04_rb,2.0944e-04_rb,2.0945e-04_rb/)
+      forrefo(2,:) = (/ &
+     &3.4391e-04_rb,2.6022e-04_rb,2.3449e-04_rb,2.4544e-04_rb,2.3831e-04_rb,2.3014e-04_rb, &
+     &2.3729e-04_rb,2.2726e-04_rb,2.1892e-04_rb,1.9223e-04_rb,2.1291e-04_rb,2.1406e-04_rb, &
+     &2.1491e-04_rb,2.1548e-04_rb,2.1562e-04_rb,2.1567e-04_rb/)
+      forrefo(3,:) = (/ &
+     &3.4219e-04_rb,2.7334e-04_rb,2.3727e-04_rb,2.4515e-04_rb,2.5272e-04_rb,2.4212e-04_rb, &
+     &2.3824e-04_rb,2.3615e-04_rb,2.2724e-04_rb,2.2381e-04_rb,1.9634e-04_rb,2.1625e-04_rb, &
+     &2.1963e-04_rb,2.2032e-04_rb,2.2057e-04_rb,2.2058e-04_rb/)
+      forrefo(4,:) = (/ &
+     &3.1684e-04_rb,2.4823e-04_rb,2.4890e-04_rb,2.4577e-04_rb,2.4106e-04_rb,2.4353e-04_rb, &
+     &2.4038e-04_rb,2.3932e-04_rb,2.3604e-04_rb,2.3773e-04_rb,2.4243e-04_rb,2.2597e-04_rb, &
+     &2.2879e-04_rb,2.2440e-04_rb,2.1104e-04_rb,2.1460e-04_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 2.62922e-01_rb, 2.29106e-01_rb, 1.99640e-01_rb, 1.73964e-01_rb, 1.51589e-01_rb, &
+     & 1.32093e-01_rb, 1.15104e-01_rb, 1.00300e-01_rb, 8.74000e-02_rb, 7.61592e-02_rb/)
+      selfrefo(:, 2) = (/ &
+     & 2.45448e-01_rb, 2.13212e-01_rb, 1.85210e-01_rb, 1.60886e-01_rb, 1.39756e-01_rb, &
+     & 1.21401e-01_rb, 1.05457e-01_rb, 9.16070e-02_rb, 7.95759e-02_rb, 6.91249e-02_rb/)
+      selfrefo(:, 3) = (/ &
+     & 2.41595e-01_rb, 2.09697e-01_rb, 1.82010e-01_rb, 1.57979e-01_rb, 1.37121e-01_rb, &
+     & 1.19016e-01_rb, 1.03302e-01_rb, 8.96630e-02_rb, 7.78246e-02_rb, 6.75492e-02_rb/)
+      selfrefo(:, 4) = (/ &
+     & 2.44818e-01_rb, 2.12172e-01_rb, 1.83880e-01_rb, 1.59360e-01_rb, 1.38110e-01_rb, &
+     & 1.19694e-01_rb, 1.03733e-01_rb, 8.99010e-02_rb, 7.79131e-02_rb, 6.75238e-02_rb/)
+      selfrefo(:, 5) = (/ &
+     & 2.43458e-01_rb, 2.10983e-01_rb, 1.82840e-01_rb, 1.58451e-01_rb, 1.37315e-01_rb, &
+     & 1.18998e-01_rb, 1.03125e-01_rb, 8.93690e-02_rb, 7.74480e-02_rb, 6.71171e-02_rb/)
+      selfrefo(:, 6) = (/ &
+     & 2.40186e-01_rb, 2.08745e-01_rb, 1.81420e-01_rb, 1.57672e-01_rb, 1.37032e-01_rb, &
+     & 1.19095e-01_rb, 1.03505e-01_rb, 8.99560e-02_rb, 7.81806e-02_rb, 6.79467e-02_rb/)
+      selfrefo(:, 7) = (/ &
+     & 2.42752e-01_rb, 2.10579e-01_rb, 1.82670e-01_rb, 1.58460e-01_rb, 1.37459e-01_rb, &
+     & 1.19240e-01_rb, 1.03437e-01_rb, 8.97280e-02_rb, 7.78359e-02_rb, 6.75200e-02_rb/)
+      selfrefo(:, 8) = (/ &
+     & 2.39620e-01_rb, 2.08166e-01_rb, 1.80840e-01_rb, 1.57101e-01_rb, 1.36479e-01_rb, &
+     & 1.18563e-01_rb, 1.03000e-01_rb, 8.94790e-02_rb, 7.77332e-02_rb, 6.75292e-02_rb/)
+      selfrefo(:, 9) = (/ &
+     & 2.38856e-01_rb, 2.07166e-01_rb, 1.79680e-01_rb, 1.55841e-01_rb, 1.35165e-01_rb, &
+     & 1.17232e-01_rb, 1.01678e-01_rb, 8.81880e-02_rb, 7.64877e-02_rb, 6.63397e-02_rb/)
+      selfrefo(:,10) = (/ &
+     & 2.29821e-01_rb, 2.00586e-01_rb, 1.75070e-01_rb, 1.52800e-01_rb, 1.33363e-01_rb, &
+     & 1.16398e-01_rb, 1.01591e-01_rb, 8.86680e-02_rb, 7.73887e-02_rb, 6.75443e-02_rb/)
+      selfrefo(:,11) = (/ &
+     & 2.39945e-01_rb, 2.08186e-01_rb, 1.80630e-01_rb, 1.56722e-01_rb, 1.35978e-01_rb, &
+     & 1.17980e-01_rb, 1.02364e-01_rb, 8.88150e-02_rb, 7.70594e-02_rb, 6.68598e-02_rb/)
+      selfrefo(:,12) = (/ &
+     & 2.40271e-01_rb, 2.08465e-01_rb, 1.80870e-01_rb, 1.56927e-01_rb, 1.36154e-01_rb, &
+     & 1.18131e-01_rb, 1.02494e-01_rb, 8.89260e-02_rb, 7.71545e-02_rb, 6.69412e-02_rb/)
+      selfrefo(:,13) = (/ &
+     & 2.40503e-01_rb, 2.08670e-01_rb, 1.81050e-01_rb, 1.57086e-01_rb, 1.36294e-01_rb, &
+     & 1.18254e-01_rb, 1.02602e-01_rb, 8.90210e-02_rb, 7.72380e-02_rb, 6.70147e-02_rb/)
+      selfrefo(:,14) = (/ &
+     & 2.40670e-01_rb, 2.08811e-01_rb, 1.81170e-01_rb, 1.57188e-01_rb, 1.36380e-01_rb, &
+     & 1.18327e-01_rb, 1.02663e-01_rb, 8.90730e-02_rb, 7.72819e-02_rb, 6.70517e-02_rb/)
+      selfrefo(:,15) = (/ &
+     & 2.40711e-01_rb, 2.08846e-01_rb, 1.81200e-01_rb, 1.57213e-01_rb, 1.36402e-01_rb, &
+     & 1.18346e-01_rb, 1.02679e-01_rb, 8.90870e-02_rb, 7.72939e-02_rb, 6.70621e-02_rb/)
+      selfrefo(:,16) = (/ &
+     & 2.40727e-01_rb, 2.08859e-01_rb, 1.81210e-01_rb, 1.57221e-01_rb, 1.36408e-01_rb, &
+     & 1.18350e-01_rb, 1.02682e-01_rb, 8.90890e-02_rb, 7.72952e-02_rb, 6.70627e-02_rb/)
+
+      end subroutine lw_kgb04
+
+! **************************************************************************
+      subroutine lw_kgb05
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg05, only : fracrefao, fracrefbo, kao, kbo, kao_mo3, &
+                            selfrefo, forrefo, ccl4o
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P = 473.42 mb, T = 259.83
+      fracrefao(:, 1) = (/ &
+        1.4111e-01_rb,1.4222e-01_rb,1.3802e-01_rb,1.3101e-01_rb,1.2244e-01_rb,1.0691e-01_rb, &
+        8.8703e-02_rb,6.7130e-02_rb,4.5509e-02_rb,4.9866e-03_rb,4.1214e-03_rb,3.2557e-03_rb, &
+        2.3805e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)
+      fracrefao(:, 2) = (/ &
+        1.4152e-01_rb,1.4271e-01_rb,1.3784e-01_rb,1.3075e-01_rb,1.2215e-01_rb,1.0674e-01_rb, &
+        8.8686e-02_rb,6.7135e-02_rb,4.5508e-02_rb,4.9866e-03_rb,4.1214e-03_rb,3.2558e-03_rb, &
+        2.3805e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)
+      fracrefao(:, 3) = (/ &
+        1.4159e-01_rb,1.4300e-01_rb,1.3781e-01_rb,1.3094e-01_rb,1.2192e-01_rb,1.0661e-01_rb, &
+        8.8529e-02_rb,6.7127e-02_rb,4.5511e-02_rb,4.9877e-03_rb,4.1214e-03_rb,3.2558e-03_rb, &
+        2.3805e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)
+      fracrefao(:, 4) = (/ &
+        1.4162e-01_rb,1.4337e-01_rb,1.3774e-01_rb,1.3122e-01_rb,1.2172e-01_rb,1.0641e-01_rb, &
+        8.8384e-02_rb,6.7056e-02_rb,4.5514e-02_rb,4.9880e-03_rb,4.1214e-03_rb,3.2557e-03_rb, &
+        2.3805e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)
+      fracrefao(:, 5) = (/ &
+        1.4161e-01_rb,1.4370e-01_rb,1.3770e-01_rb,1.3143e-01_rb,1.2173e-01_rb,1.0613e-01_rb, &
+        8.8357e-02_rb,6.6874e-02_rb,4.5509e-02_rb,4.9883e-03_rb,4.1214e-03_rb,3.2558e-03_rb, &
+        2.3804e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)
+      fracrefao(:, 6) = (/ &
+        1.4154e-01_rb,1.4405e-01_rb,1.3771e-01_rb,1.3169e-01_rb,1.2166e-01_rb,1.0603e-01_rb, &
+        8.8193e-02_rb,6.6705e-02_rb,4.5469e-02_rb,4.9902e-03_rb,4.1214e-03_rb,3.2558e-03_rb, &
+        2.3804e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)
+      fracrefao(:, 7) = (/ &
+        1.4126e-01_rb,1.4440e-01_rb,1.3790e-01_rb,1.3214e-01_rb,1.2153e-01_rb,1.0603e-01_rb, &
+        8.7908e-02_rb,6.6612e-02_rb,4.5269e-02_rb,4.9900e-03_rb,4.1256e-03_rb,3.2558e-03_rb, &
+        2.3804e-03_rb,1.5451e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)
+      fracrefao(:, 8) = (/ &
+        1.4076e-01_rb,1.4415e-01_rb,1.3885e-01_rb,1.3286e-01_rb,1.2147e-01_rb,1.0612e-01_rb, &
+        8.7579e-02_rb,6.6280e-02_rb,4.4977e-02_rb,4.9782e-03_rb,4.1200e-03_rb,3.2620e-03_rb, &
+        2.3820e-03_rb,1.5452e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)
+      fracrefao(:, 9) = (/ &
+        1.4205e-01_rb,1.4496e-01_rb,1.4337e-01_rb,1.3504e-01_rb,1.2260e-01_rb,1.0428e-01_rb, &
+        8.4946e-02_rb,6.3625e-02_rb,4.2951e-02_rb,4.7313e-03_rb,3.9157e-03_rb,3.0879e-03_rb, &
+        2.2666e-03_rb,1.5193e-03_rb,5.7469e-04_rb,8.1674e-05_rb/)
+
+! Planck fraction mapping level : P = 0.2369280 mbar, T = 253.60 K
+      fracrefbo(:, 1) = (/ &
+        1.4075e-01_rb,1.4196e-01_rb,1.3833e-01_rb,1.3345e-01_rb,1.2234e-01_rb,1.0718e-01_rb, &
+        8.8004e-02_rb,6.6308e-02_rb,4.5028e-02_rb,4.9029e-03_rb,4.0377e-03_rb,3.1870e-03_rb, &
+        2.3503e-03_rb,1.5146e-03_rb,5.7165e-04_rb,8.2371e-05_rb/)
+      fracrefbo(:, 2) = (/ &
+        1.4081e-01_rb,1.4225e-01_rb,1.3890e-01_rb,1.3410e-01_rb,1.2254e-01_rb,1.0680e-01_rb, &
+        8.7391e-02_rb,6.5819e-02_rb,4.4725e-02_rb,4.9121e-03_rb,4.0420e-03_rb,3.1869e-03_rb, &
+        2.3504e-03_rb,1.5146e-03_rb,5.7165e-04_rb,8.2371e-05_rb/)
+      fracrefbo(:, 3) = (/ &
+        1.4087e-01_rb,1.4227e-01_rb,1.3920e-01_rb,1.3395e-01_rb,1.2270e-01_rb,1.0694e-01_rb, &
+        8.7229e-02_rb,6.5653e-02_rb,4.4554e-02_rb,4.8797e-03_rb,4.0460e-03_rb,3.1939e-03_rb, &
+        2.3505e-03_rb,1.5146e-03_rb,5.7165e-04_rb,8.1910e-05_rb/)
+      fracrefbo(:, 4) = (/ &
+        1.4089e-01_rb,1.4238e-01_rb,1.3956e-01_rb,1.3379e-01_rb,1.2284e-01_rb,1.0688e-01_rb, &
+        8.7192e-02_rb,6.5490e-02_rb,4.4390e-02_rb,4.8395e-03_rb,4.0173e-03_rb,3.2070e-03_rb, &
+        2.3559e-03_rb,1.5146e-03_rb,5.7165e-04_rb,8.2371e-05_rb/)
+      fracrefbo(:, 5) = (/ &
+        1.4091e-01_rb,1.4417e-01_rb,1.4194e-01_rb,1.3457e-01_rb,1.2167e-01_rb,1.0551e-01_rb, &
+        8.6450e-02_rb,6.4889e-02_rb,4.3584e-02_rb,4.7551e-03_rb,3.9509e-03_rb,3.1374e-03_rb, &
+        2.3226e-03_rb,1.4942e-03_rb,5.7545e-04_rb,8.0887e-05_rb/)
+
+! Minor gas mapping level :
+!     lower - o3, p = 317.34 mbar, t = 240.77 k
+!     lower - ccl4
+
+      ccl4o(:) = (/ &
+        26.1407_rb, 53.9776_rb, 63.8085_rb, 36.1701_rb, 15.4099_rb, 10.23116_rb, &
+        4.82948_rb, 5.03836_rb, 1.75558_rb, 0._rb,      0._rb,      0._rb,       &
+        0._rb,      0._rb,      0._rb,      0._rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1, 1) = (/ &
+     &2.0627e-06_rb,7.6619e-06_rb,1.2821e-05_rb,1.8547e-05_rb,2.5694e-05_rb,3.6833e-05_rb, &
+     &6.0675e-05_rb,1.0691e-04_rb,4.5186e-05_rb/)
+      kao(:, 2, 1, 1) = (/ &
+     &2.7702e-06_rb,1.0260e-05_rb,1.6067e-05_rb,2.2990e-05_rb,3.0808e-05_rb,4.1244e-05_rb, &
+     &5.9411e-05_rb,1.1066e-04_rb,5.2628e-05_rb/)
+      kao(:, 3, 1, 1) = (/ &
+     &3.6863e-06_rb,1.3689e-05_rb,2.0068e-05_rb,2.8133e-05_rb,3.7359e-05_rb,4.8756e-05_rb, &
+     &6.5660e-05_rb,1.0750e-04_rb,6.3147e-05_rb/)
+      kao(:, 4, 1, 1) = (/ &
+     &4.8209e-06_rb,1.8184e-05_rb,2.5811e-05_rb,3.2670e-05_rb,4.2393e-05_rb,5.7509e-05_rb, &
+     &7.7672e-05_rb,1.1739e-04_rb,6.0614e-05_rb/)
+      kao(:, 5, 1, 1) = (/ &
+     &6.2011e-06_rb,2.3679e-05_rb,3.3185e-05_rb,4.1098e-05_rb,4.8872e-05_rb,6.0199e-05_rb, &
+     &8.6830e-05_rb,1.3320e-04_rb,5.7959e-05_rb/)
+      kao(:, 1, 2, 1) = (/ &
+     &2.3538e-06_rb,6.7359e-06_rb,1.0280e-05_rb,1.4331e-05_rb,1.9304e-05_rb,2.5963e-05_rb, &
+     &4.0842e-05_rb,7.0297e-05_rb,3.0786e-05_rb/)
+      kao(:, 2, 2, 1) = (/ &
+     &3.1800e-06_rb,9.2776e-06_rb,1.3401e-05_rb,1.8014e-05_rb,2.3501e-05_rb,3.0468e-05_rb, &
+     &4.1030e-05_rb,7.2758e-05_rb,3.6807e-05_rb/)
+      kao(:, 3, 2, 1) = (/ &
+     &4.2644e-06_rb,1.2589e-05_rb,1.7414e-05_rb,2.2365e-05_rb,2.8924e-05_rb,3.6996e-05_rb, &
+     &4.7459e-05_rb,7.1458e-05_rb,4.4453e-05_rb/)
+      kao(:, 4, 2, 1) = (/ &
+     &5.6334e-06_rb,1.6843e-05_rb,2.2937e-05_rb,2.8083e-05_rb,3.3609e-05_rb,4.3642e-05_rb, &
+     &5.6794e-05_rb,7.9540e-05_rb,3.7769e-05_rb/)
+      kao(:, 5, 2, 1) = (/ &
+     &7.3165e-06_rb,2.2208e-05_rb,2.9987e-05_rb,3.5834e-05_rb,4.1117e-05_rb,4.7236e-05_rb, &
+     &6.4507e-05_rb,9.1784e-05_rb,4.0356e-05_rb/)
+      kao(:, 1, 3, 1) = (/ &
+     &3.4149e-06_rb,6.8426e-06_rb,8.9161e-06_rb,1.1292e-05_rb,1.3987e-05_rb,1.7689e-05_rb, &
+     &2.4623e-05_rb,4.0560e-05_rb,1.8741e-05_rb/)
+      kao(:, 2, 3, 1) = (/ &
+     &4.6295e-06_rb,9.5910e-06_rb,1.2218e-05_rb,1.4773e-05_rb,1.7906e-05_rb,2.1627e-05_rb, &
+     &2.7175e-05_rb,4.1902e-05_rb,2.3338e-05_rb/)
+      kao(:, 3, 3, 1) = (/ &
+     &6.2620e-06_rb,1.3265e-05_rb,1.6740e-05_rb,1.9517e-05_rb,2.2851e-05_rb,2.6791e-05_rb, &
+     &3.2311e-05_rb,4.3092e-05_rb,2.7303e-05_rb/)
+      kao(:, 4, 3, 1) = (/ &
+     &8.3825e-06_rb,1.8025e-05_rb,2.2633e-05_rb,2.5988e-05_rb,2.8756e-05_rb,3.2402e-05_rb, &
+     &3.9084e-05_rb,5.0182e-05_rb,2.3119e-05_rb/)
+      kao(:, 5, 3, 1) = (/ &
+     &1.1030e-05_rb,2.4184e-05_rb,3.0218e-05_rb,3.4428e-05_rb,3.7379e-05_rb,3.9667e-05_rb, &
+     &4.3975e-05_rb,5.8391e-05_rb,2.6206e-05_rb/)
+      kao(:, 1, 4, 1) = (/ &
+     &5.0171e-06_rb,7.6880e-06_rb,8.7791e-06_rb,9.8121e-06_rb,1.1212e-05_rb,1.2838e-05_rb, &
+     &1.6066e-05_rb,2.4377e-05_rb,1.1689e-05_rb/)
+      kao(:, 2, 4, 1) = (/ &
+     &6.7946e-06_rb,1.0789e-05_rb,1.2297e-05_rb,1.3454e-05_rb,1.4738e-05_rb,1.6388e-05_rb, &
+     &1.8978e-05_rb,2.5098e-05_rb,1.5123e-05_rb/)
+      kao(:, 3, 4, 1) = (/ &
+     &9.2346e-06_rb,1.5122e-05_rb,1.7217e-05_rb,1.8715e-05_rb,1.9870e-05_rb,2.1284e-05_rb, &
+     &2.3541e-05_rb,2.8475e-05_rb,1.5817e-05_rb/)
+      kao(:, 4, 4, 1) = (/ &
+     &1.2485e-05_rb,2.0883e-05_rb,2.3764e-05_rb,2.5687e-05_rb,2.6834e-05_rb,2.7524e-05_rb, &
+     &2.9511e-05_rb,3.4495e-05_rb,1.5461e-05_rb/)
+      kao(:, 5, 4, 1) = (/ &
+     &1.6688e-05_rb,2.8377e-05_rb,3.2282e-05_rb,3.4761e-05_rb,3.6075e-05_rb,3.6212e-05_rb, &
+     &3.5832e-05_rb,4.0812e-05_rb,1.7475e-05_rb/)
+      kao(:, 1, 5, 1) = (/ &
+     &6.8849e-06_rb,8.9001e-06_rb,9.3032e-06_rb,9.4606e-06_rb,9.6746e-06_rb,1.0252e-05_rb, &
+     &1.1422e-05_rb,1.5315e-05_rb,7.4550e-06_rb/)
+      kao(:, 2, 5, 1) = (/ &
+     &9.2829e-06_rb,1.2355e-05_rb,1.3006e-05_rb,1.3223e-05_rb,1.3294e-05_rb,1.3454e-05_rb, &
+     &1.4383e-05_rb,1.6505e-05_rb,9.6725e-06_rb/)
+      kao(:, 3, 5, 1) = (/ &
+     &1.2628e-05_rb,1.7354e-05_rb,1.8341e-05_rb,1.8646e-05_rb,1.8560e-05_rb,1.8269e-05_rb, &
+     &1.8381e-05_rb,1.9847e-05_rb,1.0746e-05_rb/)
+      kao(:, 4, 5, 1) = (/ &
+     &1.7178e-05_rb,2.4178e-05_rb,2.5699e-05_rb,2.6093e-05_rb,2.5857e-05_rb,2.5047e-05_rb, &
+     &2.4039e-05_rb,2.4517e-05_rb,1.1239e-05_rb/)
+      kao(:, 5, 5, 1) = (/ &
+     &2.3232e-05_rb,3.3207e-05_rb,3.5417e-05_rb,3.5933e-05_rb,3.5521e-05_rb,3.4179e-05_rb, &
+     &3.1639e-05_rb,3.0107e-05_rb,1.3413e-05_rb/)
+      kao(:, 1, 6, 1) = (/ &
+     &8.9763e-06_rb,1.0310e-05_rb,1.0152e-05_rb,9.7112e-06_rb,9.1573e-06_rb,8.7286e-06_rb, &
+     &8.7100e-06_rb,1.0151e-05_rb,5.0468e-06_rb/)
+      kao(:, 2, 6, 1) = (/ &
+     &1.1944e-05_rb,1.4094e-05_rb,1.4098e-05_rb,1.3570e-05_rb,1.2771e-05_rb,1.1934e-05_rb, &
+     &1.1288e-05_rb,1.1804e-05_rb,6.4542e-06_rb/)
+      kao(:, 3, 6, 1) = (/ &
+     &1.6264e-05_rb,1.9621e-05_rb,1.9778e-05_rb,1.9110e-05_rb,1.7995e-05_rb,1.6619e-05_rb, &
+     &1.5210e-05_rb,1.4762e-05_rb,7.7867e-06_rb/)
+      kao(:, 4, 6, 1) = (/ &
+     &2.2127e-05_rb,2.7394e-05_rb,2.7774e-05_rb,2.6897e-05_rb,2.5333e-05_rb,2.3366e-05_rb, &
+     &2.0855e-05_rb,1.8805e-05_rb,9.1527e-06_rb/)
+      kao(:, 5, 6, 1) = (/ &
+     &3.0031e-05_rb,3.7976e-05_rb,3.8538e-05_rb,3.7483e-05_rb,3.5390e-05_rb,3.2530e-05_rb, &
+     &2.8729e-05_rb,2.4137e-05_rb,1.0787e-05_rb/)
+      kao(:, 1, 7, 1) = (/ &
+     &1.2661e-05_rb,1.3255e-05_rb,1.2476e-05_rb,1.1360e-05_rb,1.0126e-05_rb,8.8167e-06_rb, &
+     &7.6811e-06_rb,7.2819e-06_rb,3.4701e-06_rb/)
+      kao(:, 2, 7, 1) = (/ &
+     &1.6507e-05_rb,1.7720e-05_rb,1.6880e-05_rb,1.5585e-05_rb,1.3986e-05_rb,1.2151e-05_rb, &
+     &1.0259e-05_rb,8.9670e-06_rb,4.6214e-06_rb/)
+      kao(:, 3, 7, 1) = (/ &
+     &2.2311e-05_rb,2.4431e-05_rb,2.3459e-05_rb,2.1822e-05_rb,1.9662e-05_rb,1.7085e-05_rb, &
+     &1.4272e-05_rb,1.1641e-05_rb,5.9077e-06_rb/)
+      kao(:, 4, 7, 1) = (/ &
+     &3.0470e-05_rb,3.3907e-05_rb,3.2735e-05_rb,3.0550e-05_rb,2.7736e-05_rb,2.4159e-05_rb, &
+     &2.0093e-05_rb,1.5711e-05_rb,7.6152e-06_rb/)
+      kao(:, 5, 7, 1) = (/ &
+     &4.1581e-05_rb,4.6778e-05_rb,4.5634e-05_rb,4.2827e-05_rb,3.9000e-05_rb,3.4010e-05_rb, &
+     &2.8185e-05_rb,2.1414e-05_rb,9.5151e-06_rb/)
+      kao(:, 1, 8, 1) = (/ &
+     &2.2110e-05_rb,2.1516e-05_rb,1.9520e-05_rb,1.7197e-05_rb,1.4610e-05_rb,1.1834e-05_rb, &
+     &8.9776e-06_rb,6.4038e-06_rb,2.9294e-06_rb/)
+      kao(:, 2, 8, 1) = (/ &
+     &2.8119e-05_rb,2.7833e-05_rb,2.5591e-05_rb,2.2815e-05_rb,1.9548e-05_rb,1.6035e-05_rb, &
+     &1.2291e-05_rb,8.4633e-06_rb,3.7469e-06_rb/)
+      kao(:, 3, 8, 1) = (/ &
+     &3.7519e-05_rb,3.7575e-05_rb,3.4963e-05_rb,3.1329e-05_rb,2.6989e-05_rb,2.2379e-05_rb, &
+     &1.7209e-05_rb,1.1658e-05_rb,5.1343e-06_rb/)
+      kao(:, 4, 8, 1) = (/ &
+     &5.1233e-05_rb,5.1900e-05_rb,4.8534e-05_rb,4.3661e-05_rb,3.7852e-05_rb,3.1455e-05_rb, &
+     &2.4380e-05_rb,1.6303e-05_rb,6.8677e-06_rb/)
+      kao(:, 5, 8, 1) = (/ &
+     &7.0275e-05_rb,7.1610e-05_rb,6.7129e-05_rb,6.0809e-05_rb,5.2885e-05_rb,4.4177e-05_rb, &
+     &3.4435e-05_rb,2.2981e-05_rb,8.8724e-06_rb/)
+      kao(:, 1, 9, 1) = (/ &
+     &7.5307e-05_rb,6.8982e-05_rb,6.0564e-05_rb,5.1649e-05_rb,4.2335e-05_rb,3.2789e-05_rb, &
+     &2.3004e-05_rb,1.2766e-05_rb,4.1976e-06_rb/)
+      kao(:, 2, 9, 1) = (/ &
+     &9.3306e-05_rb,8.6322e-05_rb,7.6065e-05_rb,6.5167e-05_rb,5.3786e-05_rb,4.2095e-05_rb, &
+     &2.9960e-05_rb,1.6892e-05_rb,6.0950e-06_rb/)
+      kao(:, 3, 9, 1) = (/ &
+     &1.2202e-04_rb,1.1392e-04_rb,1.0068e-04_rb,8.6696e-05_rb,7.2080e-05_rb,5.6739e-05_rb, &
+     &4.0820e-05_rb,2.3292e-05_rb,8.3200e-06_rb/)
+      kao(:, 4, 9, 1) = (/ &
+     &1.6580e-04_rb,1.5570e-04_rb,1.3769e-04_rb,1.1869e-04_rb,9.9119e-05_rb,7.8735e-05_rb, &
+     &5.6759e-05_rb,3.2860e-05_rb,1.0538e-05_rb/)
+      kao(:, 5, 9, 1) = (/ &
+     &2.2845e-04_rb,2.1403e-04_rb,1.8995e-04_rb,1.6428e-04_rb,1.3747e-04_rb,1.0943e-04_rb, &
+     &7.9478e-05_rb,4.6333e-05_rb,1.2645e-05_rb/)
+      kao(:, 1,10, 1) = (/ &
+     &2.9742e-04_rb,2.6515e-04_rb,2.2972e-04_rb,1.9315e-04_rb,1.5610e-04_rb,1.1880e-04_rb, &
+     &8.1117e-05_rb,4.2319e-05_rb,6.3944e-06_rb/)
+      kao(:, 2,10, 1) = (/ &
+     &3.6180e-04_rb,3.2444e-04_rb,2.8214e-04_rb,2.3809e-04_rb,1.9281e-04_rb,1.4714e-04_rb, &
+     &1.0099e-04_rb,5.3082e-05_rb,9.7791e-06_rb/)
+      kao(:, 3,10, 1) = (/ &
+     &4.6752e-04_rb,4.2137e-04_rb,3.6703e-04_rb,3.1031e-04_rb,2.5194e-04_rb,1.9278e-04_rb, &
+     &1.3274e-04_rb,7.0692e-05_rb,1.3731e-05_rb/)
+      kao(:, 4,10, 1) = (/ &
+     &6.3024e-04_rb,5.6976e-04_rb,4.9706e-04_rb,4.2128e-04_rb,3.4229e-04_rb,2.6250e-04_rb, &
+     &1.8103e-04_rb,9.7478e-05_rb,1.8873e-05_rb/)
+      kao(:, 5,10, 1) = (/ &
+     &8.6816e-04_rb,7.8510e-04_rb,6.8602e-04_rb,5.8224e-04_rb,4.7468e-04_rb,3.6394e-04_rb, &
+     &2.5185e-04_rb,1.3590e-04_rb,2.4864e-05_rb/)
+      kao(:, 1,11, 1) = (/ &
+     &4.4215e-04_rb,3.9273e-04_rb,3.3972e-04_rb,2.8576e-04_rb,2.3079e-04_rb,1.7475e-04_rb, &
+     &1.1858e-04_rb,6.1576e-05_rb,6.9970e-06_rb/)
+      kao(:, 2,11, 1) = (/ &
+     &5.4524e-04_rb,4.8624e-04_rb,4.2158e-04_rb,3.5507e-04_rb,2.8728e-04_rb,2.1797e-04_rb, &
+     &1.4849e-04_rb,7.7710e-05_rb,1.0796e-05_rb/)
+      kao(:, 3,11, 1) = (/ &
+     &7.1212e-04_rb,6.3874e-04_rb,5.5491e-04_rb,4.6791e-04_rb,3.7968e-04_rb,2.8946e-04_rb, &
+     &1.9751e-04_rb,1.0405e-04_rb,1.6156e-05_rb/)
+      kao(:, 4,11, 1) = (/ &
+     &9.7112e-04_rb,8.7198e-04_rb,7.5717e-04_rb,6.3918e-04_rb,5.1919e-04_rb,3.9650e-04_rb, &
+     &2.7055e-04_rb,1.4272e-04_rb,2.2761e-05_rb/)
+      kao(:, 5,11, 1) = (/ &
+     &1.3431e-03_rb,1.2076e-03_rb,1.0484e-03_rb,8.8503e-04_rb,7.1868e-04_rb,5.4992e-04_rb, &
+     &3.7609e-04_rb,1.9954e-04_rb,2.9940e-05_rb/)
+      kao(:, 1,12, 1) = (/ &
+     &4.8443e-04_rb,4.2968e-04_rb,3.7109e-04_rb,3.1171e-04_rb,2.5157e-04_rb,1.9045e-04_rb, &
+     &1.2868e-04_rb,6.6606e-05_rb,6.8294e-06_rb/)
+      kao(:, 2,12, 1) = (/ &
+     &6.0269e-04_rb,5.3630e-04_rb,4.6453e-04_rb,3.9092e-04_rb,3.1605e-04_rb,2.4000e-04_rb, &
+     &1.6259e-04_rb,8.4751e-05_rb,1.0182e-05_rb/)
+      kao(:, 3,12, 1) = (/ &
+     &7.9706e-04_rb,7.1250e-04_rb,6.1805e-04_rb,5.2087e-04_rb,4.2192e-04_rb,3.2125e-04_rb, &
+     &2.1834e-04_rb,1.1445e-04_rb,1.5140e-05_rb/)
+      kao(:, 4,12, 1) = (/ &
+     &1.0910e-03_rb,9.7656e-04_rb,8.4711e-04_rb,7.1442e-04_rb,5.7891e-04_rb,4.4221e-04_rb, &
+     &3.0181e-04_rb,1.5855e-04_rb,2.1388e-05_rb/)
+      kao(:, 5,12, 1) = (/ &
+     &1.5134e-03_rb,1.3551e-03_rb,1.1752e-03_rb,9.9093e-04_rb,8.0388e-04_rb,6.1444e-04_rb, &
+     &4.2020e-04_rb,2.2117e-04_rb,2.9059e-05_rb/)
+      kao(:, 1,13, 1) = (/ &
+     &4.2625e-04_rb,3.7812e-04_rb,3.2711e-04_rb,2.7465e-04_rb,2.2177e-04_rb,1.6800e-04_rb, &
+     &1.1342e-04_rb,5.8678e-05_rb,7.1193e-06_rb/)
+      kao(:, 2,13, 1) = (/ &
+     &5.3759e-04_rb,4.7832e-04_rb,4.1433e-04_rb,3.4844e-04_rb,2.8188e-04_rb,2.1423e-04_rb, &
+     &1.4519e-04_rb,7.5588e-05_rb,1.0317e-05_rb/)
+      kao(:, 3,13, 1) = (/ &
+     &7.2018e-04_rb,6.4309e-04_rb,5.5764e-04_rb,4.6948e-04_rb,3.8030e-04_rb,2.8938e-04_rb, &
+     &1.9678e-04_rb,1.0285e-04_rb,1.4041e-05_rb/)
+      kao(:, 4,13, 1) = (/ &
+     &9.8953e-04_rb,8.8546e-04_rb,7.6800e-04_rb,6.4711e-04_rb,5.2450e-04_rb,3.9956e-04_rb, &
+     &2.7312e-04_rb,1.4349e-04_rb,1.9954e-05_rb/)
+      kao(:, 5,13, 1) = (/ &
+     &1.3790e-03_rb,1.2366e-03_rb,1.0731e-03_rb,9.0477e-04_rb,7.3377e-04_rb,5.6037e-04_rb, &
+     &3.8365e-04_rb,2.0147e-04_rb,2.6871e-05_rb/)
+      kao(:, 1, 1, 2) = (/ &
+     &6.2300e-06_rb,2.3124e-05_rb,2.9698e-05_rb,3.9591e-05_rb,5.8380e-05_rb,9.5125e-05_rb, &
+     &1.3537e-04_rb,2.8288e-04_rb,9.7543e-05_rb/)
+      kao(:, 2, 1, 2) = (/ &
+     &9.0246e-06_rb,3.3229e-05_rb,4.2160e-05_rb,4.9478e-05_rb,6.0779e-05_rb,8.5533e-05_rb, &
+     &1.5267e-04_rb,2.3904e-04_rb,8.0422e-05_rb/)
+      kao(:, 3, 1, 2) = (/ &
+     &1.2807e-05_rb,4.6362e-05_rb,5.9074e-05_rb,6.7253e-05_rb,7.5131e-05_rb,8.9889e-05_rb, &
+     &1.2494e-04_rb,2.6418e-04_rb,7.9145e-05_rb/)
+      kao(:, 4, 1, 2) = (/ &
+     &1.7786e-05_rb,6.3031e-05_rb,8.0225e-05_rb,9.3521e-05_rb,1.0301e-04_rb,1.0987e-04_rb, &
+     &1.2899e-04_rb,2.0499e-04_rb,1.0830e-04_rb/)
+      kao(:, 5, 1, 2) = (/ &
+     &2.4116e-05_rb,8.3783e-05_rb,1.0646e-04_rb,1.2431e-04_rb,1.3944e-04_rb,1.5277e-04_rb, &
+     &1.5881e-04_rb,2.0933e-04_rb,1.4344e-04_rb/)
+      kao(:, 1, 2, 2) = (/ &
+     &7.1421e-06_rb,2.2132e-05_rb,2.7590e-05_rb,3.3376e-05_rb,4.3482e-05_rb,6.6128e-05_rb, &
+     &9.2521e-05_rb,1.8166e-04_rb,6.3119e-05_rb/)
+      kao(:, 2, 2, 2) = (/ &
+     &1.0480e-05_rb,3.2273e-05_rb,3.9804e-05_rb,4.4484e-05_rb,4.9766e-05_rb,6.2224e-05_rb, &
+     &1.0181e-04_rb,1.6062e-04_rb,5.5112e-05_rb/)
+      kao(:, 3, 2, 2) = (/ &
+     &1.5069e-05_rb,4.5805e-05_rb,5.6454e-05_rb,6.2730e-05_rb,6.6262e-05_rb,7.1655e-05_rb, &
+     &8.8554e-05_rb,1.7608e-04_rb,5.4833e-05_rb/)
+      kao(:, 4, 2, 2) = (/ &
+     &2.1158e-05_rb,6.3205e-05_rb,7.7534e-05_rb,8.6669e-05_rb,9.2743e-05_rb,9.3710e-05_rb, &
+     &9.8368e-05_rb,1.4175e-04_rb,8.3989e-05_rb/)
+      kao(:, 5, 2, 2) = (/ &
+     &2.9018e-05_rb,8.5014e-05_rb,1.0387e-04_rb,1.1638e-04_rb,1.2535e-04_rb,1.3160e-04_rb, &
+     &1.2952e-04_rb,1.4715e-04_rb,1.0168e-04_rb/)
+      kao(:, 1, 3, 2) = (/ &
+     &1.0134e-05_rb,2.3698e-05_rb,2.8098e-05_rb,3.0832e-05_rb,3.4559e-05_rb,4.2739e-05_rb, &
+     &5.8413e-05_rb,1.0086e-04_rb,3.2546e-05_rb/)
+      kao(:, 2, 3, 2) = (/ &
+     &1.5067e-05_rb,3.5478e-05_rb,4.1782e-05_rb,4.4927e-05_rb,4.6304e-05_rb,4.9338e-05_rb, &
+     &6.0952e-05_rb,9.7126e-05_rb,3.2271e-05_rb/)
+      kao(:, 3, 3, 2) = (/ &
+     &2.2020e-05_rb,5.1526e-05_rb,6.0415e-05_rb,6.4785e-05_rb,6.5815e-05_rb,6.4970e-05_rb, &
+     &6.6401e-05_rb,9.8577e-05_rb,3.7377e-05_rb/)
+      kao(:, 4, 3, 2) = (/ &
+     &3.1402e-05_rb,7.2606e-05_rb,8.4750e-05_rb,9.0680e-05_rb,9.2879e-05_rb,9.1127e-05_rb, &
+     &8.5666e-05_rb,9.2372e-05_rb,5.9881e-05_rb/)
+      kao(:, 5, 3, 2) = (/ &
+     &4.3798e-05_rb,9.9375e-05_rb,1.1577e-04_rb,1.2361e-04_rb,1.2645e-04_rb,1.2543e-04_rb, &
+     &1.1954e-04_rb,1.0799e-04_rb,6.6216e-05_rb/)
+      kao(:, 1, 4, 2) = (/ &
+     &1.4395e-05_rb,2.6113e-05_rb,2.9242e-05_rb,3.0501e-05_rb,3.0825e-05_rb,3.2335e-05_rb, &
+     &3.9824e-05_rb,5.5770e-05_rb,1.8987e-05_rb/)
+      kao(:, 2, 4, 2) = (/ &
+     &2.1448e-05_rb,3.9639e-05_rb,4.4560e-05_rb,4.6391e-05_rb,4.5970e-05_rb,4.4537e-05_rb, &
+     &4.5440e-05_rb,6.3416e-05_rb,1.9764e-05_rb/)
+      kao(:, 3, 4, 2) = (/ &
+     &3.1834e-05_rb,5.8680e-05_rb,6.6149e-05_rb,6.8528e-05_rb,6.7668e-05_rb,6.3937e-05_rb, &
+     &5.8285e-05_rb,6.2232e-05_rb,2.7306e-05_rb/)
+      kao(:, 4, 4, 2) = (/ &
+     &4.6271e-05_rb,8.4438e-05_rb,9.5181e-05_rb,9.8206e-05_rb,9.6873e-05_rb,9.1747e-05_rb, &
+     &8.1681e-05_rb,6.9834e-05_rb,3.9615e-05_rb/)
+      kao(:, 5, 4, 2) = (/ &
+     &6.5671e-05_rb,1.1809e-04_rb,1.3274e-04_rb,1.3673e-04_rb,1.3457e-04_rb,1.2744e-04_rb, &
+     &1.1523e-04_rb,9.3255e-05_rb,4.5946e-05_rb/)
+      kao(:, 1, 5, 2) = (/ &
+     &1.8932e-05_rb,2.8174e-05_rb,3.0127e-05_rb,3.0189e-05_rb,2.9303e-05_rb,2.7710e-05_rb, &
+     &2.8724e-05_rb,3.6981e-05_rb,1.2871e-05_rb/)
+      kao(:, 2, 5, 2) = (/ &
+     &2.8193e-05_rb,4.3103e-05_rb,4.6483e-05_rb,4.6716e-05_rb,4.5184e-05_rb,4.1972e-05_rb, &
+     &3.7796e-05_rb,4.2113e-05_rb,1.5002e-05_rb/)
+      kao(:, 3, 5, 2) = (/ &
+     &4.2171e-05_rb,6.4890e-05_rb,7.0138e-05_rb,7.0754e-05_rb,6.8197e-05_rb,6.2875e-05_rb, &
+     &5.4545e-05_rb,4.7871e-05_rb,1.9971e-05_rb/)
+      kao(:, 4, 5, 2) = (/ &
+     &6.2206e-05_rb,9.5463e-05_rb,1.0284e-04_rb,1.0393e-04_rb,9.9869e-05_rb,9.1904e-05_rb, &
+     &7.9592e-05_rb,6.1772e-05_rb,2.7676e-05_rb/)
+      kao(:, 5, 5, 2) = (/ &
+     &8.9897e-05_rb,1.3643e-04_rb,1.4635e-04_rb,1.4773e-04_rb,1.4191e-04_rb,1.3018e-04_rb, &
+     &1.1303e-04_rb,8.6827e-05_rb,3.3409e-05_rb/)
+      kao(:, 1, 6, 2) = (/ &
+     &2.3688e-05_rb,3.0481e-05_rb,3.1060e-05_rb,3.0054e-05_rb,2.7961e-05_rb,2.5367e-05_rb, &
+     &2.2999e-05_rb,2.6629e-05_rb,1.0275e-05_rb/)
+      kao(:, 2, 6, 2) = (/ &
+     &3.4582e-05_rb,4.5983e-05_rb,4.7133e-05_rb,4.6002e-05_rb,4.3141e-05_rb,3.8854e-05_rb, &
+     &3.3303e-05_rb,2.9897e-05_rb,1.2224e-05_rb/)
+      kao(:, 3, 6, 2) = (/ &
+     &5.1699e-05_rb,6.9356e-05_rb,7.1684e-05_rb,7.0505e-05_rb,6.6405e-05_rb,5.9819e-05_rb, &
+     &5.0541e-05_rb,3.9074e-05_rb,1.6179e-05_rb/)
+      kao(:, 4, 6, 2) = (/ &
+     &7.7368e-05_rb,1.0342e-04_rb,1.0714e-04_rb,1.0541e-04_rb,9.9595e-05_rb,8.9603e-05_rb, &
+     &7.5459e-05_rb,5.5384e-05_rb,2.1206e-05_rb/)
+      kao(:, 5, 6, 2) = (/ &
+     &1.1347e-04_rb,1.5064e-04_rb,1.5637e-04_rb,1.5316e-04_rb,1.4449e-04_rb,1.2985e-04_rb, &
+     &1.0910e-04_rb,8.0324e-05_rb,2.6862e-05_rb/)
+      kao(:, 1, 7, 2) = (/ &
+     &3.2355e-05_rb,3.6612e-05_rb,3.5642e-05_rb,3.3581e-05_rb,3.0393e-05_rb,2.6088e-05_rb, &
+     &2.1415e-05_rb,1.9368e-05_rb,9.5314e-06_rb/)
+      kao(:, 2, 7, 2) = (/ &
+     &4.6022e-05_rb,5.3816e-05_rb,5.2843e-05_rb,4.9963e-05_rb,4.5493e-05_rb,3.9581e-05_rb, &
+     &3.2262e-05_rb,2.4294e-05_rb,1.1772e-05_rb/)
+      kao(:, 3, 7, 2) = (/ &
+     &6.7685e-05_rb,8.0405e-05_rb,7.9935e-05_rb,7.5649e-05_rb,6.9218e-05_rb,6.0527e-05_rb, &
+     &4.9342e-05_rb,3.5155e-05_rb,1.4463e-05_rb/)
+      kao(:, 4, 7, 2) = (/ &
+     &1.0120e-04_rb,1.2036e-04_rb,1.2034e-04_rb,1.1418e-04_rb,1.0434e-04_rb,9.1774e-05_rb, &
+     &7.5257e-05_rb,5.2793e-05_rb,1.8375e-05_rb/)
+      kao(:, 5, 7, 2) = (/ &
+     &1.5071e-04_rb,1.7822e-04_rb,1.7733e-04_rb,1.6840e-04_rb,1.5410e-04_rb,1.3584e-04_rb, &
+     &1.1141e-04_rb,7.8080e-05_rb,2.3868e-05_rb/)
+      kao(:, 1, 8, 2) = (/ &
+     &5.5226e-05_rb,5.6106e-05_rb,5.2275e-05_rb,4.7400e-05_rb,4.1299e-05_rb,3.4449e-05_rb, &
+     &2.6593e-05_rb,1.7838e-05_rb,1.0224e-05_rb/)
+      kao(:, 2, 8, 2) = (/ &
+     &7.6682e-05_rb,7.9501e-05_rb,7.4950e-05_rb,6.8270e-05_rb,5.9838e-05_rb,5.0360e-05_rb, &
+     &3.9211e-05_rb,2.5644e-05_rb,1.3679e-05_rb/)
+      kao(:, 3, 8, 2) = (/ &
+     &1.1162e-04_rb,1.1744e-04_rb,1.1105e-04_rb,1.0166e-04_rb,8.9544e-05_rb,7.5446e-05_rb, &
+     &5.9105e-05_rb,3.8912e-05_rb,1.6924e-05_rb/)
+      kao(:, 4, 8, 2) = (/ &
+     &1.6426e-04_rb,1.7413e-04_rb,1.6536e-04_rb,1.5206e-04_rb,1.3480e-04_rb,1.1398e-04_rb, &
+     &8.9434e-05_rb,5.9125e-05_rb,2.1439e-05_rb/)
+      kao(:, 5, 8, 2) = (/ &
+     &2.4317e-04_rb,2.5868e-04_rb,2.4524e-04_rb,2.2533e-04_rb,2.0048e-04_rb,1.6943e-04_rb, &
+     &1.3297e-04_rb,8.8280e-05_rb,2.6395e-05_rb/)
+      kao(:, 1, 9, 2) = (/ &
+     &1.8480e-04_rb,1.7106e-04_rb,1.5192e-04_rb,1.3086e-04_rb,1.0905e-04_rb,8.6158e-05_rb, &
+     &6.2340e-05_rb,3.6177e-05_rb,1.4903e-05_rb/)
+      kao(:, 2, 9, 2) = (/ &
+     &2.4641e-04_rb,2.3135e-04_rb,2.0759e-04_rb,1.8017e-04_rb,1.5122e-04_rb,1.2054e-04_rb, &
+     &8.8111e-05_rb,5.2211e-05_rb,2.0425e-05_rb/)
+      kao(:, 3, 9, 2) = (/ &
+     &3.5294e-04_rb,3.3406e-04_rb,3.0047e-04_rb,2.6193e-04_rb,2.2100e-04_rb,1.7727e-04_rb, &
+     &1.3000e-04_rb,7.7386e-05_rb,2.5956e-05_rb/)
+      kao(:, 4, 9, 2) = (/ &
+     &5.2033e-04_rb,4.9504e-04_rb,4.4640e-04_rb,3.9034e-04_rb,3.2978e-04_rb,2.6409e-04_rb, &
+     &1.9434e-04_rb,1.1587e-04_rb,3.4101e-05_rb/)
+      kao(:, 5, 9, 2) = (/ &
+     &7.6495e-04_rb,7.3083e-04_rb,6.5854e-04_rb,5.7617e-04_rb,4.8713e-04_rb,3.9080e-04_rb, &
+     &2.8811e-04_rb,1.7251e-04_rb,4.3686e-05_rb/)
+      kao(:, 1,10, 2) = (/ &
+     &7.1951e-04_rb,6.4170e-04_rb,5.5848e-04_rb,4.7254e-04_rb,3.8543e-04_rb,2.9616e-04_rb, &
+     &2.0442e-04_rb,1.0914e-04_rb,2.8683e-05_rb/)
+      kao(:, 2,10, 2) = (/ &
+     &9.5077e-04_rb,8.5141e-04_rb,7.4327e-04_rb,6.3053e-04_rb,5.1626e-04_rb,3.9828e-04_rb, &
+     &2.7613e-04_rb,1.4913e-04_rb,3.8199e-05_rb/)
+      kao(:, 3,10, 2) = (/ &
+     &1.3355e-03_rb,1.2001e-03_rb,1.0504e-03_rb,8.9360e-04_rb,7.3324e-04_rb,5.6715e-04_rb, &
+     &3.9425e-04_rb,2.1480e-04_rb,4.7134e-05_rb/)
+      kao(:, 4,10, 2) = (/ &
+     &1.9553e-03_rb,1.7643e-03_rb,1.5470e-03_rb,1.3173e-03_rb,1.0803e-03_rb,8.3446e-04_rb, &
+     &5.8166e-04_rb,3.1871e-04_rb,5.8212e-05_rb/)
+      kao(:, 5,10, 2) = (/ &
+     &2.8783e-03_rb,2.5953e-03_rb,2.2770e-03_rb,1.9407e-03_rb,1.5909e-03_rb,1.2316e-03_rb, &
+     &8.6003e-04_rb,4.7307e-04_rb,7.1136e-05_rb/)
+      kao(:, 1,11, 2) = (/ &
+     &1.1139e-03_rb,9.8774e-04_rb,8.5580e-04_rb,7.2091e-04_rb,5.8416e-04_rb,4.4688e-04_rb, &
+     &3.0678e-04_rb,1.6222e-04_rb,3.9161e-05_rb/)
+      kao(:, 2,11, 2) = (/ &
+     &1.5083e-03_rb,1.3423e-03_rb,1.1649e-03_rb,9.8455e-04_rb,8.0047e-04_rb,6.1397e-04_rb, &
+     &4.2291e-04_rb,2.2482e-04_rb,5.4701e-05_rb/)
+      kao(:, 3,11, 2) = (/ &
+     &2.1559e-03_rb,1.9181e-03_rb,1.6686e-03_rb,1.4112e-03_rb,1.1484e-03_rb,8.7957e-04_rb, &
+     &6.0584e-04_rb,3.2346e-04_rb,6.6564e-05_rb/)
+      kao(:, 4,11, 2) = (/ &
+     &3.1472e-03_rb,2.8085e-03_rb,2.4474e-03_rb,2.0740e-03_rb,1.6883e-03_rb,1.2953e-03_rb, &
+     &8.9345e-04_rb,4.7890e-04_rb,8.3118e-05_rb/)
+      kao(:, 5,11, 2) = (/ &
+     &4.6362e-03_rb,4.1388e-03_rb,3.6072e-03_rb,3.0601e-03_rb,2.4938e-03_rb,1.9129e-03_rb, &
+     &1.3182e-03_rb,7.0366e-04_rb,1.0053e-04_rb/)
+      kao(:, 1,12, 2) = (/ &
+     &1.2746e-03_rb,1.1293e-03_rb,9.7744e-04_rb,8.2280e-04_rb,6.6509e-04_rb,5.0694e-04_rb, &
+     &3.4671e-04_rb,1.8255e-04_rb,4.0437e-05_rb/)
+      kao(:, 2,12, 2) = (/ &
+     &1.7556e-03_rb,1.5589e-03_rb,1.3508e-03_rb,1.1390e-03_rb,9.2389e-04_rb,7.0640e-04_rb, &
+     &4.8477e-04_rb,2.5611e-04_rb,5.8338e-05_rb/)
+      kao(:, 3,12, 2) = (/ &
+     &2.5208e-03_rb,2.2390e-03_rb,1.9427e-03_rb,1.6407e-03_rb,1.3325e-03_rb,1.0177e-03_rb, &
+     &6.9952e-04_rb,3.6990e-04_rb,7.2977e-05_rb/)
+      kao(:, 4,12, 2) = (/ &
+     &3.7199e-03_rb,3.3065e-03_rb,2.8736e-03_rb,2.4286e-03_rb,1.9715e-03_rb,1.5043e-03_rb, &
+     &1.0308e-03_rb,5.4613e-04_rb,9.0596e-05_rb/)
+      kao(:, 5,12, 2) = (/ &
+     &5.4892e-03_rb,4.8847e-03_rb,4.2441e-03_rb,3.5888e-03_rb,2.9119e-03_rb,2.2221e-03_rb, &
+     &1.5249e-03_rb,8.0704e-04_rb,1.1205e-04_rb/)
+      kao(:, 1,13, 2) = (/ &
+     &1.1670e-03_rb,1.0343e-03_rb,8.9403e-04_rb,7.5206e-04_rb,6.0815e-04_rb,4.6361e-04_rb, &
+     &3.1684e-04_rb,1.6665e-04_rb,3.8297e-05_rb/)
+      kao(:, 2,13, 2) = (/ &
+     &1.6263e-03_rb,1.4448e-03_rb,1.2518e-03_rb,1.0548e-03_rb,8.5537e-04_rb,6.5308e-04_rb, &
+     &4.4734e-04_rb,2.3634e-04_rb,5.4012e-05_rb/)
+      kao(:, 3,13, 2) = (/ &
+     &2.3576e-03_rb,2.0975e-03_rb,1.8201e-03_rb,1.5368e-03_rb,1.2479e-03_rb,9.5295e-04_rb, &
+     &6.5303e-04_rb,3.4532e-04_rb,6.8858e-05_rb/)
+      kao(:, 4,13, 2) = (/ &
+     &3.5158e-03_rb,3.1277e-03_rb,2.7158e-03_rb,2.2939e-03_rb,1.8617e-03_rb,1.4210e-03_rb, &
+     &9.7237e-04_rb,5.1302e-04_rb,8.6284e-05_rb/)
+      kao(:, 5,13, 2) = (/ &
+     &5.1868e-03_rb,4.6126e-03_rb,4.0043e-03_rb,3.3796e-03_rb,2.7407e-03_rb,2.0921e-03_rb, &
+     &1.4302e-03_rb,7.5554e-04_rb,1.0703e-04_rb/)
+      kao(:, 1, 1, 3) = (/ &
+     &2.1967e-05_rb,7.0847e-05_rb,9.8056e-05_rb,1.1683e-04_rb,1.2672e-04_rb,1.3386e-04_rb, &
+     &1.7335e-04_rb,3.0889e-04_rb,1.4104e-04_rb/)
+      kao(:, 2, 1, 3) = (/ &
+     &3.2805e-05_rb,1.0021e-04_rb,1.3719e-04_rb,1.6469e-04_rb,1.8755e-04_rb,2.0275e-04_rb, &
+     &1.9715e-04_rb,2.9590e-04_rb,1.6430e-04_rb/)
+      kao(:, 3, 1, 3) = (/ &
+     &4.7330e-05_rb,1.3749e-04_rb,1.8575e-04_rb,2.2309e-04_rb,2.5257e-04_rb,2.7701e-04_rb, &
+     &3.0293e-04_rb,3.2277e-04_rb,1.5833e-04_rb/)
+      kao(:, 4, 1, 3) = (/ &
+     &6.6184e-05_rb,1.8358e-04_rb,2.4505e-04_rb,2.9115e-04_rb,3.2275e-04_rb,3.3970e-04_rb, &
+     &3.6327e-04_rb,4.7032e-04_rb,1.5296e-04_rb/)
+      kao(:, 5, 1, 3) = (/ &
+     &8.9953e-05_rb,2.3845e-04_rb,3.1568e-04_rb,3.7021e-04_rb,4.0111e-04_rb,4.1250e-04_rb, &
+     &4.1712e-04_rb,4.9013e-04_rb,1.7116e-04_rb/)
+      kao(:, 1, 2, 3) = (/ &
+     &2.6480e-05_rb,6.7795e-05_rb,8.8273e-05_rb,1.0239e-04_rb,1.1087e-04_rb,1.1252e-04_rb, &
+     &1.2626e-04_rb,1.7765e-04_rb,1.0235e-04_rb/)
+      kao(:, 2, 2, 3) = (/ &
+     &4.0229e-05_rb,9.8115e-05_rb,1.2639e-04_rb,1.4693e-04_rb,1.6171e-04_rb,1.7149e-04_rb, &
+     &1.6078e-04_rb,2.0296e-04_rb,1.0513e-04_rb/)
+      kao(:, 3, 2, 3) = (/ &
+     &5.9019e-05_rb,1.3751e-04_rb,1.7468e-04_rb,2.0166e-04_rb,2.2223e-04_rb,2.3730e-04_rb, &
+     &2.4647e-04_rb,2.3569e-04_rb,1.0639e-04_rb/)
+      kao(:, 4, 2, 3) = (/ &
+     &8.3741e-05_rb,1.8682e-04_rb,2.3419e-04_rb,2.6910e-04_rb,2.9309e-04_rb,3.0629e-04_rb, &
+     &3.1256e-04_rb,3.4516e-04_rb,1.0584e-04_rb/)
+      kao(:, 5, 2, 3) = (/ &
+     &1.1534e-04_rb,2.4682e-04_rb,3.0598e-04_rb,3.4903e-04_rb,3.7559e-04_rb,3.8169e-04_rb, &
+     &3.7221e-04_rb,3.8365e-04_rb,1.2786e-04_rb/)
+      kao(:, 1, 3, 3) = (/ &
+     &3.8574e-05_rb,7.5157e-05_rb,8.9382e-05_rb,9.8254e-05_rb,1.0233e-04_rb,1.0063e-04_rb, &
+     &1.0056e-04_rb,1.0870e-04_rb,6.8446e-05_rb/)
+      kao(:, 2, 3, 3) = (/ &
+     &6.0142e-05_rb,1.1264e-04_rb,1.3244e-04_rb,1.4504e-04_rb,1.5242e-04_rb,1.5259e-04_rb, &
+     &1.4806e-04_rb,1.3730e-04_rb,6.4347e-05_rb/)
+      kao(:, 3, 3, 3) = (/ &
+     &9.0381e-05_rb,1.6247e-04_rb,1.8926e-04_rb,2.0538e-04_rb,2.1407e-04_rb,2.1609e-04_rb, &
+     &2.1113e-04_rb,1.9332e-04_rb,6.7739e-05_rb/)
+      kao(:, 4, 3, 3) = (/ &
+     &1.3106e-04_rb,2.2712e-04_rb,2.6180e-04_rb,2.8099e-04_rb,2.9092e-04_rb,2.9292e-04_rb, &
+     &2.8375e-04_rb,2.7092e-04_rb,6.8866e-05_rb/)
+      kao(:, 5, 3, 3) = (/ &
+     &1.8403e-04_rb,3.0884e-04_rb,3.5100e-04_rb,3.7380e-04_rb,3.8510e-04_rb,3.8362e-04_rb, &
+     &3.6289e-04_rb,3.2300e-04_rb,9.2758e-05_rb/)
+      kao(:, 1, 4, 3) = (/ &
+     &5.4705e-05_rb,8.6072e-05_rb,9.6209e-05_rb,1.0034e-04_rb,9.9953e-05_rb,9.5189e-05_rb, &
+     &8.3161e-05_rb,7.9207e-05_rb,3.9423e-05_rb/)
+      kao(:, 2, 4, 3) = (/ &
+     &8.7751e-05_rb,1.3347e-04_rb,1.4769e-04_rb,1.5271e-04_rb,1.5230e-04_rb,1.4652e-04_rb, &
+     &1.3316e-04_rb,1.0796e-04_rb,4.2482e-05_rb/)
+      kao(:, 3, 4, 3) = (/ &
+     &1.3536e-04_rb,1.9949e-04_rb,2.1780e-04_rb,2.2400e-04_rb,2.2194e-04_rb,2.1254e-04_rb, &
+     &1.9475e-04_rb,1.6332e-04_rb,4.5138e-05_rb/)
+      kao(:, 4, 4, 3) = (/ &
+     &2.0116e-04_rb,2.8783e-04_rb,3.1041e-04_rb,3.1735e-04_rb,3.1196e-04_rb,2.9572e-04_rb, &
+     &2.7052e-04_rb,2.3211e-04_rb,5.0851e-05_rb/)
+      kao(:, 5, 4, 3) = (/ &
+     &2.8895e-04_rb,4.0188e-04_rb,4.2924e-04_rb,4.3500e-04_rb,4.2412e-04_rb,3.9959e-04_rb, &
+     &3.6227e-04_rb,3.0072e-04_rb,6.6760e-05_rb/)
+      kao(:, 1, 5, 3) = (/ &
+     &7.0137e-05_rb,9.4755e-05_rb,1.0063e-04_rb,1.0127e-04_rb,9.8061e-05_rb,9.0698e-05_rb, &
+     &7.7439e-05_rb,5.9138e-05_rb,2.6683e-05_rb/)
+      kao(:, 2, 5, 3) = (/ &
+     &1.1533e-04_rb,1.5194e-04_rb,1.5997e-04_rb,1.5979e-04_rb,1.5340e-04_rb,1.4208e-04_rb, &
+     &1.2486e-04_rb,9.3241e-05_rb,2.9592e-05_rb/)
+      kao(:, 3, 5, 3) = (/ &
+     &1.8276e-04_rb,2.3503e-04_rb,2.4432e-04_rb,2.4189e-04_rb,2.3109e-04_rb,2.1296e-04_rb, &
+     &1.8693e-04_rb,1.4538e-04_rb,3.2790e-05_rb/)
+      kao(:, 4, 5, 3) = (/ &
+     &2.7903e-04_rb,3.5030e-04_rb,3.5953e-04_rb,3.5303e-04_rb,3.3542e-04_rb,3.0702e-04_rb, &
+     &2.6606e-04_rb,2.0930e-04_rb,3.9551e-05_rb/)
+      kao(:, 5, 5, 3) = (/ &
+     &4.1070e-04_rb,5.0357e-04_rb,5.1208e-04_rb,4.9861e-04_rb,4.7008e-04_rb,4.2683e-04_rb, &
+     &3.6701e-04_rb,2.8592e-04_rb,5.1146e-05_rb/)
+      kao(:, 1, 6, 3) = (/ &
+     &8.1368e-05_rb,9.8431e-05_rb,1.0007e-04_rb,9.7542e-05_rb,9.2017e-05_rb,8.3169e-05_rb, &
+     &7.0090e-05_rb,4.8919e-05_rb,2.1156e-05_rb/)
+      kao(:, 2, 6, 3) = (/ &
+     &1.3706e-04_rb,1.6300e-04_rb,1.6503e-04_rb,1.5990e-04_rb,1.4992e-04_rb,1.3472e-04_rb, &
+     &1.1399e-04_rb,8.3619e-05_rb,2.5058e-05_rb/)
+      kao(:, 3, 6, 3) = (/ &
+     &2.2338e-04_rb,2.6147e-04_rb,2.6146e-04_rb,2.5118e-04_rb,2.3339e-04_rb,2.0831e-04_rb, &
+     &1.7568e-04_rb,1.3135e-04_rb,2.8387e-05_rb/)
+      kao(:, 4, 6, 3) = (/ &
+     &3.5127e-04_rb,4.0389e-04_rb,3.9905e-04_rb,3.7918e-04_rb,3.4971e-04_rb,3.1035e-04_rb, &
+     &2.5984e-04_rb,1.9266e-04_rb,3.2799e-05_rb/)
+      kao(:, 5, 6, 3) = (/ &
+     &5.3129e-04_rb,6.0001e-04_rb,5.8622e-04_rb,5.5309e-04_rb,5.0577e-04_rb,4.4569e-04_rb, &
+     &3.6955e-04_rb,2.7080e-04_rb,4.1496e-05_rb/)
+      kao(:, 1, 7, 3) = (/ &
+     &1.0007e-04_rb,1.0969e-04_rb,1.0696e-04_rb,1.0012e-04_rb,9.0860e-05_rb,7.9591e-05_rb, &
+     &6.5272e-05_rb,4.4404e-05_rb,1.8023e-05_rb/)
+      kao(:, 2, 7, 3) = (/ &
+     &1.6864e-04_rb,1.8414e-04_rb,1.7903e-04_rb,1.6759e-04_rb,1.5212e-04_rb,1.3294e-04_rb, &
+     &1.0932e-04_rb,7.7110e-05_rb,2.3161e-05_rb/)
+      kao(:, 3, 7, 3) = (/ &
+     &2.8238e-04_rb,3.0439e-04_rb,2.9352e-04_rb,2.7330e-04_rb,2.4706e-04_rb,2.1459e-04_rb, &
+     &1.7451e-04_rb,1.2351e-04_rb,2.8855e-05_rb/)
+      kao(:, 4, 7, 3) = (/ &
+     &4.5659e-04_rb,4.8716e-04_rb,4.6539e-04_rb,4.2996e-04_rb,3.8506e-04_rb,3.3112e-04_rb, &
+     &2.6671e-04_rb,1.8725e-04_rb,3.4923e-05_rb/)
+      kao(:, 5, 7, 3) = (/ &
+     &7.1027e-04_rb,7.4800e-04_rb,7.1021e-04_rb,6.5078e-04_rb,5.7777e-04_rb,4.9194e-04_rb, &
+     &3.9297e-04_rb,2.7155e-04_rb,4.1495e-05_rb/)
+      kao(:, 1, 8, 3) = (/ &
+     &1.5946e-04_rb,1.5842e-04_rb,1.4746e-04_rb,1.3211e-04_rb,1.1546e-04_rb,9.6168e-05_rb, &
+     &7.4324e-05_rb,4.8395e-05_rb,1.7989e-05_rb/)
+      kao(:, 2, 8, 3) = (/ &
+     &2.5770e-04_rb,2.5704e-04_rb,2.3941e-04_rb,2.1551e-04_rb,1.8837e-04_rb,1.5713e-04_rb, &
+     &1.2214e-04_rb,8.1368e-05_rb,2.3968e-05_rb/)
+      kao(:, 3, 8, 3) = (/ &
+     &4.2472e-04_rb,4.2443e-04_rb,3.9713e-04_rb,3.5763e-04_rb,3.1122e-04_rb,2.5901e-04_rb, &
+     &2.0043e-04_rb,1.3331e-04_rb,3.2118e-05_rb/)
+      kao(:, 4, 8, 3) = (/ &
+     &7.0597e-04_rb,6.9998e-04_rb,6.4911e-04_rb,5.8037e-04_rb,5.0147e-04_rb,4.1570e-04_rb, &
+     &3.1990e-04_rb,2.0974e-04_rb,3.9608e-05_rb/)
+      kao(:, 5, 8, 3) = (/ &
+     &1.1264e-03_rb,1.1057e-03_rb,1.0236e-03_rb,9.1299e-04_rb,7.8475e-04_rb,6.4516e-04_rb, &
+     &4.9155e-04_rb,3.1715e-04_rb,4.8541e-05_rb/)
+      kao(:, 1, 9, 3) = (/ &
+     &5.0227e-04_rb,4.5998e-04_rb,4.0915e-04_rb,3.5429e-04_rb,2.9541e-04_rb,2.3264e-04_rb, &
+     &1.6588e-04_rb,9.6165e-05_rb,2.6165e-05_rb/)
+      kao(:, 2, 9, 3) = (/ &
+     &7.8676e-04_rb,7.2202e-04_rb,6.4423e-04_rb,5.5868e-04_rb,4.6624e-04_rb,3.6840e-04_rb, &
+     &2.6387e-04_rb,1.5409e-04_rb,3.5446e-05_rb/)
+      kao(:, 3, 9, 3) = (/ &
+     &1.2789e-03_rb,1.1712e-03_rb,1.0462e-03_rb,9.0711e-04_rb,7.5900e-04_rb,5.9930e-04_rb, &
+     &4.3043e-04_rb,2.5008e-04_rb,4.6358e-05_rb/)
+      kao(:, 4, 9, 3) = (/ &
+     &2.0840e-03_rb,1.9016e-03_rb,1.6924e-03_rb,1.4648e-03_rb,1.2215e-03_rb,9.6366e-04_rb, &
+     &6.9084e-04_rb,4.0072e-04_rb,6.1001e-05_rb/)
+      kao(:, 5, 9, 3) = (/ &
+     &3.3367e-03_rb,3.0441e-03_rb,2.7105e-03_rb,2.3462e-03_rb,1.9558e-03_rb,1.5435e-03_rb, &
+     &1.1056e-03_rb,6.3552e-04_rb,7.9035e-05_rb/)
+      kao(:, 1,10, 3) = (/ &
+     &1.9385e-03_rb,1.7157e-03_rb,1.4863e-03_rb,1.2534e-03_rb,1.0193e-03_rb,7.7905e-04_rb, &
+     &5.3570e-04_rb,2.8621e-04_rb,4.8614e-05_rb/)
+      kao(:, 2,10, 3) = (/ &
+     &2.9395e-03_rb,2.6008e-03_rb,2.2566e-03_rb,1.9073e-03_rb,1.5534e-03_rb,1.1938e-03_rb, &
+     &8.2332e-04_rb,4.4169e-04_rb,7.1291e-05_rb/)
+      kao(:, 3,10, 3) = (/ &
+     &4.6962e-03_rb,4.1509e-03_rb,3.6037e-03_rb,3.0461e-03_rb,2.4817e-03_rb,1.9064e-03_rb, &
+     &1.3190e-03_rb,7.0872e-04_rb,9.5825e-05_rb/)
+      kao(:, 4,10, 3) = (/ &
+     &7.5852e-03_rb,6.6994e-03_rb,5.8186e-03_rb,4.9195e-03_rb,4.0087e-03_rb,3.0812e-03_rb, &
+     &2.1247e-03_rb,1.1368e-03_rb,1.1801e-04_rb/)
+      kao(:, 5,10, 3) = (/ &
+     &1.2000e-02_rb,1.0601e-02_rb,9.2089e-03_rb,7.7807e-03_rb,6.3408e-03_rb,4.8692e-03_rb, &
+     &3.3607e-03_rb,1.8001e-03_rb,1.5301e-04_rb/)
+      kao(:, 1,11, 3) = (/ &
+     &3.1614e-03_rb,2.7883e-03_rb,2.4150e-03_rb,2.0359e-03_rb,1.6451e-03_rb,1.2526e-03_rb, &
+     &8.5416e-04_rb,4.4797e-04_rb,5.8064e-05_rb/)
+      kao(:, 2,11, 3) = (/ &
+     &4.7730e-03_rb,4.2097e-03_rb,3.6498e-03_rb,3.0671e-03_rb,2.4809e-03_rb,1.8948e-03_rb, &
+     &1.2977e-03_rb,6.8686e-04_rb,8.3754e-05_rb/)
+      kao(:, 3,11, 3) = (/ &
+     &7.6614e-03_rb,6.7521e-03_rb,5.8435e-03_rb,4.9093e-03_rb,3.9758e-03_rb,3.0351e-03_rb, &
+     &2.0807e-03_rb,1.0948e-03_rb,1.2253e-04_rb/)
+      kao(:, 4,11, 3) = (/ &
+     &1.2246e-02_rb,1.0785e-02_rb,9.3301e-03_rb,7.8482e-03_rb,6.3562e-03_rb,4.8536e-03_rb, &
+     &3.3260e-03_rb,1.7481e-03_rb,1.5741e-04_rb/)
+      kao(:, 5,11, 3) = (/ &
+     &1.9021e-02_rb,1.6750e-02_rb,1.4500e-02_rb,1.2206e-02_rb,9.8921e-03_rb,7.5567e-03_rb, &
+     &5.1767e-03_rb,2.7251e-03_rb,2.0052e-04_rb/)
+      kao(:, 1,12, 3) = (/ &
+     &3.8826e-03_rb,3.4185e-03_rb,2.9574e-03_rb,2.4900e-03_rb,2.0123e-03_rb,1.5298e-03_rb, &
+     &1.0368e-03_rb,5.3904e-04_rb,6.3688e-05_rb/)
+      kao(:, 2,12, 3) = (/ &
+     &5.8362e-03_rb,5.1381e-03_rb,4.4457e-03_rb,3.7372e-03_rb,3.0206e-03_rb,2.2947e-03_rb, &
+     &1.5681e-03_rb,8.2298e-04_rb,8.9290e-05_rb/)
+      kao(:, 3,12, 3) = (/ &
+     &9.2251e-03_rb,8.1210e-03_rb,7.0237e-03_rb,5.8967e-03_rb,4.7688e-03_rb,3.6322e-03_rb, &
+     &2.4807e-03_rb,1.3032e-03_rb,1.3416e-04_rb/)
+      kao(:, 4,12, 3) = (/ &
+     &1.4709e-02_rb,1.2946e-02_rb,1.1191e-02_rb,9.4045e-03_rb,7.5956e-03_rb,5.7870e-03_rb, &
+     &3.9575e-03_rb,2.0727e-03_rb,1.8001e-04_rb/)
+      kao(:, 5,12, 3) = (/ &
+     &2.2619e-02_rb,1.9908e-02_rb,1.7216e-02_rb,1.4475e-02_rb,1.1703e-02_rb,8.9157e-03_rb, &
+     &6.0792e-03_rb,3.1754e-03_rb,2.2086e-04_rb/)
+      kao(:, 1,13, 3) = (/ &
+     &3.8309e-03_rb,3.3731e-03_rb,2.9187e-03_rb,2.4542e-03_rb,1.9844e-03_rb,1.5107e-03_rb, &
+     &1.0279e-03_rb,5.3642e-04_rb,6.4942e-05_rb/)
+      kao(:, 2,13, 3) = (/ &
+     &5.8347e-03_rb,5.1376e-03_rb,4.4461e-03_rb,3.7352e-03_rb,3.0197e-03_rb,2.2950e-03_rb, &
+     &1.5588e-03_rb,8.1629e-04_rb,9.2767e-05_rb/)
+      kao(:, 3,13, 3) = (/ &
+     &9.2194e-03_rb,8.1162e-03_rb,7.0173e-03_rb,5.8930e-03_rb,4.7598e-03_rb,3.6175e-03_rb, &
+     &2.4591e-03_rb,1.2857e-03_rb,1.3288e-04_rb/)
+      kao(:, 4,13, 3) = (/ &
+     &1.4386e-02_rb,1.2666e-02_rb,1.0949e-02_rb,9.1979e-03_rb,7.4294e-03_rb,5.6460e-03_rb, &
+     &3.8493e-03_rb,2.0075e-03_rb,1.7458e-04_rb/)
+      kao(:, 5,13, 3) = (/ &
+     &2.1887e-02_rb,1.9271e-02_rb,1.6664e-02_rb,1.4007e-02_rb,1.1332e-02_rb,8.6132e-03_rb, &
+     &5.8543e-03_rb,3.0399e-03_rb,2.1866e-04_rb/)
+      kao(:, 1, 1, 4) = (/ &
+     &1.2767e-04_rb,2.6436e-04_rb,3.0512e-04_rb,3.1799e-04_rb,3.1958e-04_rb,3.3191e-04_rb, &
+     &3.9104e-04_rb,5.0710e-04_rb,1.7855e-04_rb/)
+      kao(:, 2, 1, 4) = (/ &
+     &1.7738e-04_rb,3.5053e-04_rb,3.9839e-04_rb,4.1229e-04_rb,4.0492e-04_rb,3.8983e-04_rb, &
+     &4.1500e-04_rb,5.9614e-04_rb,1.6036e-04_rb/)
+      kao(:, 3, 1, 4) = (/ &
+     &2.3686e-04_rb,4.4965e-04_rb,5.0544e-04_rb,5.1877e-04_rb,5.0600e-04_rb,4.7740e-04_rb, &
+     &4.5052e-04_rb,5.7236e-04_rb,1.8787e-04_rb/)
+      kao(:, 4, 1, 4) = (/ &
+     &3.0650e-04_rb,5.6569e-04_rb,6.3165e-04_rb,6.4530e-04_rb,6.3512e-04_rb,6.1237e-04_rb, &
+     &5.6656e-04_rb,5.2891e-04_rb,2.7469e-04_rb/)
+      kao(:, 5, 1, 4) = (/ &
+     &3.8512e-04_rb,6.9752e-04_rb,7.7525e-04_rb,7.9245e-04_rb,7.8883e-04_rb,7.7085e-04_rb, &
+     &7.4060e-04_rb,6.7719e-04_rb,3.6282e-04_rb/)
+      kao(:, 1, 2, 4) = (/ &
+     &1.5390e-04_rb,2.7494e-04_rb,3.1261e-04_rb,3.2023e-04_rb,3.1151e-04_rb,2.9547e-04_rb, &
+     &3.1497e-04_rb,3.9039e-04_rb,1.0989e-04_rb/)
+      kao(:, 2, 2, 4) = (/ &
+     &2.1714e-04_rb,3.7453e-04_rb,4.1638e-04_rb,4.2413e-04_rb,4.1007e-04_rb,3.7857e-04_rb, &
+     &3.5354e-04_rb,4.2401e-04_rb,1.1763e-04_rb/)
+      kao(:, 3, 2, 4) = (/ &
+     &2.9352e-04_rb,4.8938e-04_rb,5.3784e-04_rb,5.4431e-04_rb,5.2257e-04_rb,4.7749e-04_rb, &
+     &4.2355e-04_rb,4.2211e-04_rb,1.4157e-04_rb/)
+      kao(:, 4, 2, 4) = (/ &
+     &3.8348e-04_rb,6.2214e-04_rb,6.8003e-04_rb,6.8421e-04_rb,6.5590e-04_rb,6.0605e-04_rb, &
+     &5.3467e-04_rb,4.5064e-04_rb,2.0612e-04_rb/)
+      kao(:, 5, 2, 4) = (/ &
+     &4.8704e-04_rb,7.7618e-04_rb,8.4540e-04_rb,8.4784e-04_rb,8.1484e-04_rb,7.6245e-04_rb, &
+     &6.8894e-04_rb,5.8453e-04_rb,2.7190e-04_rb/)
+      kao(:, 1, 3, 4) = (/ &
+     &2.3071e-04_rb,3.3499e-04_rb,3.6845e-04_rb,3.7270e-04_rb,3.5547e-04_rb,3.2203e-04_rb, &
+     &2.7656e-04_rb,2.6506e-04_rb,6.2779e-05_rb/)
+      kao(:, 2, 3, 4) = (/ &
+     &3.3368e-04_rb,4.7302e-04_rb,5.1131e-04_rb,5.0923e-04_rb,4.8101e-04_rb,4.3420e-04_rb, &
+     &3.6192e-04_rb,3.1963e-04_rb,7.8022e-05_rb/)
+      kao(:, 3, 3, 4) = (/ &
+     &4.6167e-04_rb,6.3817e-04_rb,6.7863e-04_rb,6.7148e-04_rb,6.3202e-04_rb,5.6610e-04_rb, &
+     &4.7208e-04_rb,3.5841e-04_rb,1.0032e-04_rb/)
+      kao(:, 4, 3, 4) = (/ &
+     &6.1421e-04_rb,8.2728e-04_rb,8.7092e-04_rb,8.6012e-04_rb,8.0666e-04_rb,7.1818e-04_rb, &
+     &5.9937e-04_rb,4.3811e-04_rb,1.4466e-04_rb/)
+      kao(:, 5, 3, 4) = (/ &
+     &7.9318e-04_rb,1.0499e-03_rb,1.1001e-03_rb,1.0825e-03_rb,1.0111e-03_rb,9.0157e-04_rb, &
+     &7.5964e-04_rb,5.7512e-04_rb,1.9432e-04_rb/)
+      kao(:, 1, 4, 4) = (/ &
+     &3.4200e-04_rb,4.1990e-04_rb,4.4259e-04_rb,4.3661e-04_rb,4.1163e-04_rb,3.6760e-04_rb, &
+     &3.0371e-04_rb,2.3149e-04_rb,4.6307e-05_rb/)
+      kao(:, 2, 4, 4) = (/ &
+     &5.0920e-04_rb,6.1539e-04_rb,6.3721e-04_rb,6.1994e-04_rb,5.7603e-04_rb,5.0827e-04_rb, &
+     &4.1402e-04_rb,2.9065e-04_rb,5.1907e-05_rb/)
+      kao(:, 3, 4, 4) = (/ &
+     &7.2424e-04_rb,8.6063e-04_rb,8.7699e-04_rb,8.4266e-04_rb,7.7721e-04_rb,6.8304e-04_rb, &
+     &5.5495e-04_rb,3.8326e-04_rb,6.9160e-05_rb/)
+      kao(:, 4, 4, 4) = (/ &
+     &9.8776e-04_rb,1.1516e-03_rb,1.1582e-03_rb,1.1044e-03_rb,1.0138e-03_rb,8.8821e-04_rb, &
+     &7.1753e-04_rb,4.9169e-04_rb,9.8233e-05_rb/)
+      kao(:, 5, 4, 4) = (/ &
+     &1.2975e-03_rb,1.4918e-03_rb,1.4869e-03_rb,1.4114e-03_rb,1.2930e-03_rb,1.1277e-03_rb, &
+     &9.0840e-04_rb,6.3197e-04_rb,1.3450e-04_rb/)
+      kao(:, 1, 5, 4) = (/ &
+     &4.6076e-04_rb,5.0474e-04_rb,5.1144e-04_rb,4.9140e-04_rb,4.5232e-04_rb,3.9779e-04_rb, &
+     &3.2321e-04_rb,2.2336e-04_rb,3.4201e-05_rb/)
+      kao(:, 2, 5, 4) = (/ &
+     &7.0989e-04_rb,7.6999e-04_rb,7.6963e-04_rb,7.2952e-04_rb,6.6336e-04_rb,5.7413e-04_rb, &
+     &4.5930e-04_rb,3.0843e-04_rb,4.2292e-05_rb/)
+      kao(:, 3, 5, 4) = (/ &
+     &1.0386e-03_rb,1.1133e-03_rb,1.0985e-03_rb,1.0276e-03_rb,9.2270e-04_rb,7.9078e-04_rb, &
+     &6.2825e-04_rb,4.1898e-04_rb,5.3586e-05_rb/)
+      kao(:, 4, 5, 4) = (/ &
+     &1.4541e-03_rb,1.5404e-03_rb,1.4988e-03_rb,1.3877e-03_rb,1.2375e-03_rb,1.0544e-03_rb, &
+     &8.3469e-04_rb,5.5179e-04_rb,6.8395e-05_rb/)
+      kao(:, 5, 5, 4) = (/ &
+     &1.9528e-03_rb,2.0463e-03_rb,1.9719e-03_rb,1.8145e-03_rb,1.6102e-03_rb,1.3677e-03_rb, &
+     &1.0776e-03_rb,7.0877e-04_rb,9.0444e-05_rb/)
+      kao(:, 1, 6, 4) = (/ &
+     &5.6492e-04_rb,5.7565e-04_rb,5.5931e-04_rb,5.2434e-04_rb,4.7320e-04_rb,4.0777e-04_rb, &
+     &3.2512e-04_rb,2.1641e-04_rb,2.6966e-05_rb/)
+      kao(:, 2, 6, 4) = (/ &
+     &9.0441e-04_rb,9.1447e-04_rb,8.8349e-04_rb,8.2170e-04_rb,7.3208e-04_rb,6.2190e-04_rb, &
+     &4.8768e-04_rb,3.1817e-04_rb,3.4982e-05_rb/)
+      kao(:, 3, 6, 4) = (/ &
+     &1.3664e-03_rb,1.3688e-03_rb,1.3074e-03_rb,1.2015e-03_rb,1.0584e-03_rb,8.8601e-04_rb, &
+     &6.8532e-04_rb,4.4190e-04_rb,4.5831e-05_rb/)
+      kao(:, 4, 6, 4) = (/ &
+     &1.9708e-03_rb,1.9570e-03_rb,1.8529e-03_rb,1.6859e-03_rb,1.4692e-03_rb,1.2199e-03_rb, &
+     &9.3583e-04_rb,6.0020e-04_rb,5.8072e-05_rb/)
+      kao(:, 5, 6, 4) = (/ &
+     &2.7158e-03_rb,2.6789e-03_rb,2.5132e-03_rb,2.2684e-03_rb,1.9663e-03_rb,1.6232e-03_rb, &
+     &1.2393e-03_rb,7.8815e-04_rb,7.1453e-05_rb/)
+      kao(:, 1, 7, 4) = (/ &
+     &7.1612e-04_rb,6.9080e-04_rb,6.4557e-04_rb,5.8741e-04_rb,5.1690e-04_rb,4.3484e-04_rb, &
+     &3.3811e-04_rb,2.1958e-04_rb,2.5385e-05_rb/)
+      kao(:, 2, 7, 4) = (/ &
+     &1.1940e-03_rb,1.1449e-03_rb,1.0668e-03_rb,9.6669e-04_rb,8.4588e-04_rb,7.0528e-04_rb, &
+     &5.3962e-04_rb,3.4196e-04_rb,3.2650e-05_rb/)
+      kao(:, 3, 7, 4) = (/ &
+     &1.8743e-03_rb,1.7868e-03_rb,1.6562e-03_rb,1.4906e-03_rb,1.2906e-03_rb,1.0612e-03_rb, &
+     &7.9912e-04_rb,4.9523e-04_rb,4.3298e-05_rb/)
+      kao(:, 4, 7, 4) = (/ &
+     &2.7760e-03_rb,2.6274e-03_rb,2.4197e-03_rb,2.1609e-03_rb,1.8570e-03_rb,1.5098e-03_rb, &
+     &1.1229e-03_rb,6.8654e-04_rb,5.4268e-05_rb/)
+      kao(:, 5, 7, 4) = (/ &
+     &3.9210e-03_rb,3.6980e-03_rb,3.3854e-03_rb,3.0037e-03_rb,2.5627e-03_rb,2.0710e-03_rb, &
+     &1.5295e-03_rb,9.2840e-04_rb,6.7940e-05_rb/)
+      kao(:, 1, 8, 4) = (/ &
+     &1.0670e-03_rb,9.8692e-04_rb,8.9134e-04_rb,7.8593e-04_rb,6.7073e-04_rb,5.4467e-04_rb, &
+     &4.0756e-04_rb,2.5210e-04_rb,2.8359e-05_rb/)
+      kao(:, 2, 8, 4) = (/ &
+     &1.8582e-03_rb,1.7102e-03_rb,1.5414e-03_rb,1.3557e-03_rb,1.1545e-03_rb,9.3501e-04_rb, &
+     &6.9502e-04_rb,4.2320e-04_rb,3.7233e-05_rb/)
+      kao(:, 3, 8, 4) = (/ &
+     &3.0392e-03_rb,2.7815e-03_rb,2.4987e-03_rb,2.1910e-03_rb,1.8592e-03_rb,1.4974e-03_rb, &
+     &1.1016e-03_rb,6.5354e-04_rb,4.6926e-05_rb/)
+      kao(:, 4, 8, 4) = (/ &
+     &4.6351e-03_rb,4.2251e-03_rb,3.7893e-03_rb,3.3101e-03_rb,2.7928e-03_rb,2.2311e-03_rb, &
+     &1.6189e-03_rb,9.4084e-04_rb,6.1285e-05_rb/)
+      kao(:, 5, 8, 4) = (/ &
+     &6.7053e-03_rb,6.1011e-03_rb,5.4490e-03_rb,4.7367e-03_rb,3.9743e-03_rb,3.1531e-03_rb, &
+     &2.2726e-03_rb,1.3072e-03_rb,7.4486e-05_rb/)
+      kao(:, 1, 9, 4) = (/ &
+     &3.0079e-03_rb,2.6671e-03_rb,2.3362e-03_rb,1.9921e-03_rb,1.6375e-03_rb,1.2739e-03_rb, &
+     &8.9947e-04_rb,5.0478e-04_rb,4.8310e-05_rb/)
+      kao(:, 2, 9, 4) = (/ &
+     &5.3604e-03_rb,4.7462e-03_rb,4.1492e-03_rb,3.5341e-03_rb,2.9054e-03_rb,2.2583e-03_rb, &
+     &1.5943e-03_rb,8.9078e-04_rb,6.1843e-05_rb/)
+      kao(:, 3, 9, 4) = (/ &
+     &9.0324e-03_rb,7.9882e-03_rb,6.9714e-03_rb,5.9320e-03_rb,4.8700e-03_rb,3.7864e-03_rb, &
+     &2.6693e-03_rb,1.4872e-03_rb,8.4369e-05_rb/)
+      kao(:, 4, 9, 4) = (/ &
+     &1.4329e-02_rb,1.2658e-02_rb,1.1032e-02_rb,9.3748e-03_rb,7.6880e-03_rb,5.9624e-03_rb, &
+     &4.1846e-03_rb,2.3075e-03_rb,1.0247e-04_rb/)
+      kao(:, 5, 9, 4) = (/ &
+     &2.1261e-02_rb,1.8755e-02_rb,1.6325e-02_rb,1.3858e-02_rb,1.1339e-02_rb,8.7669e-03_rb, &
+     &6.1142e-03_rb,3.3320e-03_rb,1.2163e-04_rb/)
+      kao(:, 1,10, 4) = (/ &
+     &1.0911e-02_rb,9.5635e-03_rb,8.2330e-03_rb,6.9092e-03_rb,5.5802e-03_rb,4.2396e-03_rb, &
+     &2.8819e-03_rb,1.5069e-03_rb,1.0164e-04_rb/)
+      kao(:, 2,10, 4) = (/ &
+     &1.8579e-02_rb,1.6289e-02_rb,1.4021e-02_rb,1.1757e-02_rb,9.4958e-03_rb,7.2115e-03_rb, &
+     &4.9034e-03_rb,2.5692e-03_rb,1.2765e-04_rb/)
+      kao(:, 3,10, 4) = (/ &
+     &3.1018e-02_rb,2.7193e-02_rb,2.3385e-02_rb,1.9601e-02_rb,1.5823e-02_rb,1.2032e-02_rb, &
+     &8.1956e-03_rb,4.3045e-03_rb,1.7856e-04_rb/)
+      kao(:, 4,10, 4) = (/ &
+     &5.0111e-02_rb,4.3919e-02_rb,3.7756e-02_rb,3.1628e-02_rb,2.5516e-02_rb,1.9374e-02_rb, &
+     &1.3194e-02_rb,6.9219e-03_rb,2.2724e-04_rb/)
+      kao(:, 5,10, 4) = (/ &
+     &7.6376e-02_rb,6.6924e-02_rb,5.7507e-02_rb,4.8151e-02_rb,3.8816e-02_rb,2.9439e-02_rb, &
+     &2.0003e-02_rb,1.0433e-02_rb,2.6085e-04_rb/)
+      kao(:, 1,11, 4) = (/ &
+     &1.8971e-02_rb,1.6611e-02_rb,1.4262e-02_rb,1.1923e-02_rb,9.5992e-03_rb,7.2680e-03_rb, &
+     &4.9113e-03_rb,2.5257e-03_rb,1.6715e-04_rb/)
+      kao(:, 2,11, 4) = (/ &
+     &3.0950e-02_rb,2.7103e-02_rb,2.3271e-02_rb,1.9463e-02_rb,1.5664e-02_rb,1.1847e-02_rb, &
+     &7.9981e-03_rb,4.1199e-03_rb,2.1489e-04_rb/)
+      kao(:, 3,11, 4) = (/ &
+     &4.9685e-02_rb,4.3517e-02_rb,3.7369e-02_rb,3.1256e-02_rb,2.5144e-02_rb,1.9021e-02_rb, &
+     &1.2853e-02_rb,6.6396e-03_rb,2.5990e-04_rb/)
+      kao(:, 4,11, 4) = (/ &
+     &7.7374e-02_rb,6.7750e-02_rb,5.8163e-02_rb,4.8608e-02_rb,3.9067e-02_rb,2.9542e-02_rb, &
+     &1.9962e-02_rb,1.0311e-02_rb,3.2116e-04_rb/)
+      kao(:, 5,11, 4) = (/ &
+     &1.1501e-01_rb,1.0072e-01_rb,8.6431e-02_rb,7.2217e-02_rb,5.8056e-02_rb,4.3898e-02_rb, &
+     &2.9647e-02_rb,1.5264e-02_rb,3.7485e-04_rb/)
+      kao(:, 1,12, 4) = (/ &
+     &2.3401e-02_rb,2.0486e-02_rb,1.7582e-02_rb,1.4686e-02_rb,1.1806e-02_rb,8.9258e-03_rb, &
+     &6.0297e-03_rb,3.0936e-03_rb,1.8693e-04_rb/)
+      kao(:, 2,12, 4) = (/ &
+     &3.8133e-02_rb,3.3387e-02_rb,2.8657e-02_rb,2.3944e-02_rb,1.9250e-02_rb,1.4544e-02_rb, &
+     &9.8021e-03_rb,5.0235e-03_rb,2.4530e-04_rb/)
+      kao(:, 3,12, 4) = (/ &
+     &6.0110e-02_rb,5.2620e-02_rb,4.5149e-02_rb,3.7710e-02_rb,3.0268e-02_rb,2.2852e-02_rb, &
+     &1.5390e-02_rb,7.8945e-03_rb,2.8864e-04_rb/)
+      kao(:, 4,12, 4) = (/ &
+     &9.0890e-02_rb,7.9571e-02_rb,6.8303e-02_rb,5.7049e-02_rb,4.5842e-02_rb,3.4594e-02_rb, &
+     &2.3289e-02_rb,1.1923e-02_rb,3.6228e-04_rb/)
+      kao(:, 5,12, 4) = (/ &
+     &1.3100e-01_rb,1.1462e-01_rb,9.8322e-02_rb,8.2088e-02_rb,6.5959e-02_rb,4.9780e-02_rb, &
+     &3.3534e-02_rb,1.7184e-02_rb,4.3158e-04_rb/)
+      kao(:, 1,13, 4) = (/ &
+     &2.4303e-02_rb,2.1262e-02_rb,1.8230e-02_rb,1.5211e-02_rb,1.2213e-02_rb,9.2155e-03_rb, &
+     &6.2046e-03_rb,3.1714e-03_rb,1.9233e-04_rb/)
+      kao(:, 2,13, 4) = (/ &
+     &3.8296e-02_rb,3.3521e-02_rb,2.8762e-02_rb,2.4031e-02_rb,1.9310e-02_rb,1.4568e-02_rb, &
+     &9.8072e-03_rb,5.0047e-03_rb,2.4842e-04_rb/)
+      kao(:, 3,13, 4) = (/ &
+     &5.8379e-02_rb,5.1065e-02_rb,4.3832e-02_rb,3.6631e-02_rb,2.9434e-02_rb,2.2205e-02_rb, &
+     &1.4940e-02_rb,7.6384e-03_rb,2.8734e-04_rb/)
+      kao(:, 4,13, 4) = (/ &
+     &8.5558e-02_rb,7.4841e-02_rb,6.4227e-02_rb,5.3638e-02_rb,4.3082e-02_rb,3.2499e-02_rb, &
+     &2.1863e-02_rb,1.1189e-02_rb,3.6167e-04_rb/)
+      kao(:, 5,13, 4) = (/ &
+     &1.2105e-01_rb,1.0601e-01_rb,9.0943e-02_rb,7.5945e-02_rb,6.0995e-02_rb,4.5990e-02_rb, &
+     &3.0953e-02_rb,1.5858e-02_rb,4.3014e-04_rb/)
+      kao(:, 1, 1, 5) = (/ &
+     &5.2897e-04_rb,6.3863e-04_rb,6.7716e-04_rb,6.8592e-04_rb,6.6781e-04_rb,6.0937e-04_rb, &
+     &5.2069e-04_rb,5.5022e-04_rb,1.8160e-04_rb/)
+      kao(:, 2, 1, 5) = (/ &
+     &6.5371e-04_rb,8.0837e-04_rb,8.6369e-04_rb,8.8295e-04_rb,8.7230e-04_rb,8.3067e-04_rb, &
+     &7.4453e-04_rb,6.6477e-04_rb,2.9044e-04_rb/)
+      kao(:, 3, 1, 5) = (/ &
+     &7.9309e-04_rb,1.0041e-03_rb,1.0806e-03_rb,1.1131e-03_rb,1.1135e-03_rb,1.0810e-03_rb, &
+     &1.0060e-03_rb,8.6363e-04_rb,4.3507e-04_rb/)
+      kao(:, 4, 1, 5) = (/ &
+     &9.5515e-04_rb,1.2330e-03_rb,1.3320e-03_rb,1.3798e-03_rb,1.3866e-03_rb,1.3599e-03_rb, &
+     &1.2978e-03_rb,1.1703e-03_rb,5.4823e-04_rb/)
+      kao(:, 5, 1, 5) = (/ &
+     &1.1370e-03_rb,1.4922e-03_rb,1.6168e-03_rb,1.6809e-03_rb,1.6969e-03_rb,1.6741e-03_rb, &
+     &1.6142e-03_rb,1.5306e-03_rb,7.1233e-04_rb/)
+      kao(:, 1, 2, 5) = (/ &
+     &6.4530e-04_rb,7.2673e-04_rb,7.3348e-04_rb,7.1463e-04_rb,6.7564e-04_rb,6.1110e-04_rb, &
+     &5.0123e-04_rb,4.4222e-04_rb,1.3962e-04_rb/)
+      kao(:, 2, 2, 5) = (/ &
+     &8.0957e-04_rb,9.2607e-04_rb,9.4414e-04_rb,9.2480e-04_rb,8.8433e-04_rb,8.1497e-04_rb, &
+     &7.0697e-04_rb,5.2414e-04_rb,2.1889e-04_rb/)
+      kao(:, 3, 2, 5) = (/ &
+     &9.9558e-04_rb,1.1596e-03_rb,1.1892e-03_rb,1.1731e-03_rb,1.1295e-03_rb,1.0550e-03_rb, &
+     &9.3776e-04_rb,7.6366e-04_rb,3.1779e-04_rb/)
+      kao(:, 4, 2, 5) = (/ &
+     &1.2093e-03_rb,1.4336e-03_rb,1.4751e-03_rb,1.4631e-03_rb,1.4149e-03_rb,1.3281e-03_rb, &
+     &1.2039e-03_rb,1.0264e-03_rb,4.0743e-04_rb/)
+      kao(:, 5, 2, 5) = (/ &
+     &1.4548e-03_rb,1.7501e-03_rb,1.8041e-03_rb,1.7977e-03_rb,1.7416e-03_rb,1.6424e-03_rb, &
+     &1.5037e-03_rb,1.3244e-03_rb,5.3155e-04_rb/)
+      kao(:, 1, 3, 5) = (/ &
+     &1.0073e-03_rb,1.0305e-03_rb,9.9170e-04_rb,9.1685e-04_rb,8.2334e-04_rb,7.1279e-04_rb, &
+     &5.7365e-04_rb,3.9412e-04_rb,1.0025e-04_rb/)
+      kao(:, 2, 3, 5) = (/ &
+     &1.2880e-03_rb,1.3316e-03_rb,1.2867e-03_rb,1.1967e-03_rb,1.0809e-03_rb,9.4443e-04_rb, &
+     &7.8179e-04_rb,5.3700e-04_rb,1.5384e-04_rb/)
+      kao(:, 3, 3, 5) = (/ &
+     &1.6107e-03_rb,1.6903e-03_rb,1.6390e-03_rb,1.5300e-03_rb,1.3886e-03_rb,1.2242e-03_rb, &
+     &1.0235e-03_rb,7.5425e-04_rb,2.1640e-04_rb/)
+      kao(:, 4, 3, 5) = (/ &
+     &1.9797e-03_rb,2.1107e-03_rb,2.0529e-03_rb,1.9209e-03_rb,1.7527e-03_rb,1.5541e-03_rb, &
+     &1.3094e-03_rb,9.9288e-04_rb,2.8803e-04_rb/)
+      kao(:, 5, 3, 5) = (/ &
+     &2.4113e-03_rb,2.6021e-03_rb,2.5366e-03_rb,2.3815e-03_rb,2.1822e-03_rb,1.9385e-03_rb, &
+     &1.6375e-03_rb,1.2689e-03_rb,3.7641e-04_rb/)
+      kao(:, 1, 4, 5) = (/ &
+     &1.5851e-03_rb,1.5181e-03_rb,1.4032e-03_rb,1.2606e-03_rb,1.0883e-03_rb,8.9739e-04_rb, &
+     &6.8560e-04_rb,4.2854e-04_rb,6.6391e-05_rb/)
+      kao(:, 2, 4, 5) = (/ &
+     &2.0501e-03_rb,1.9754e-03_rb,1.8387e-03_rb,1.6565e-03_rb,1.4386e-03_rb,1.1914e-03_rb, &
+     &9.2359e-04_rb,6.1319e-04_rb,1.0381e-04_rb/)
+      kao(:, 3, 4, 5) = (/ &
+     &2.6137e-03_rb,2.5384e-03_rb,2.3763e-03_rb,2.1489e-03_rb,1.8706e-03_rb,1.5557e-03_rb, &
+     &1.2160e-03_rb,8.2392e-04_rb,1.4611e-04_rb/)
+      kao(:, 4, 4, 5) = (/ &
+     &3.2665e-03_rb,3.2074e-03_rb,3.0134e-03_rb,2.7316e-03_rb,2.3866e-03_rb,1.9939e-03_rb, &
+     &1.5682e-03_rb,1.0781e-03_rb,1.9821e-04_rb/)
+      kao(:, 5, 4, 5) = (/ &
+     &4.0137e-03_rb,3.9873e-03_rb,3.7629e-03_rb,3.4158e-03_rb,2.9921e-03_rb,2.5128e-03_rb, &
+     &1.9870e-03_rb,1.3733e-03_rb,2.6370e-04_rb/)
+      kao(:, 1, 5, 5) = (/ &
+     &2.2692e-03_rb,2.1006e-03_rb,1.8869e-03_rb,1.6579e-03_rb,1.4070e-03_rb,1.1280e-03_rb, &
+     &8.2786e-04_rb,4.9332e-04_rb,4.7300e-05_rb/)
+      kao(:, 2, 5, 5) = (/ &
+     &2.9951e-03_rb,2.7795e-03_rb,2.5097e-03_rb,2.2151e-03_rb,1.8839e-03_rb,1.5178e-03_rb, &
+     &1.1209e-03_rb,6.8743e-04_rb,6.4441e-05_rb/)
+      kao(:, 3, 5, 5) = (/ &
+     &3.8783e-03_rb,3.6150e-03_rb,3.2821e-03_rb,2.9041e-03_rb,2.4789e-03_rb,2.0050e-03_rb, &
+     &1.4894e-03_rb,9.2698e-04_rb,9.4008e-05_rb/)
+      kao(:, 4, 5, 5) = (/ &
+     &4.9258e-03_rb,4.6186e-03_rb,4.2220e-03_rb,3.7446e-03_rb,3.2015e-03_rb,2.5968e-03_rb, &
+     &1.9395e-03_rb,1.2217e-03_rb,1.3185e-04_rb/)
+      kao(:, 5, 5, 5) = (/ &
+     &6.1149e-03_rb,5.7761e-03_rb,5.3147e-03_rb,4.7312e-03_rb,4.0567e-03_rb,3.3012e-03_rb, &
+     &2.4775e-03_rb,1.5747e-03_rb,1.8186e-04_rb/)
+      kao(:, 1, 6, 5) = (/ &
+     &2.9777e-03_rb,2.7020e-03_rb,2.3926e-03_rb,2.0653e-03_rb,1.7240e-03_rb,1.3628e-03_rb, &
+     &9.7585e-04_rb,5.5769e-04_rb,3.7018e-05_rb/)
+      kao(:, 2, 6, 5) = (/ &
+     &4.0405e-03_rb,3.6698e-03_rb,3.2527e-03_rb,2.8150e-03_rb,2.3582e-03_rb,1.8689e-03_rb, &
+     &1.3459e-03_rb,7.7825e-04_rb,5.0931e-05_rb/)
+      kao(:, 3, 6, 5) = (/ &
+     &5.2985e-03_rb,4.8259e-03_rb,4.2980e-03_rb,3.7351e-03_rb,3.1354e-03_rb,2.4956e-03_rb, &
+     &1.8046e-03_rb,1.0570e-03_rb,6.8165e-05_rb/)
+      kao(:, 4, 6, 5) = (/ &
+     &6.8330e-03_rb,6.2458e-03_rb,5.5922e-03_rb,4.8800e-03_rb,4.1117e-03_rb,3.2799e-03_rb, &
+     &2.3798e-03_rb,1.4059e-03_rb,8.9401e-05_rb/)
+      kao(:, 5, 6, 5) = (/ &
+     &8.6003e-03_rb,7.8905e-03_rb,7.1103e-03_rb,6.2229e-03_rb,5.2575e-03_rb,4.2076e-03_rb, &
+     &3.0687e-03_rb,1.8306e-03_rb,1.2028e-04_rb/)
+      kao(:, 1, 7, 5) = (/ &
+     &4.0427e-03_rb,3.6171e-03_rb,3.1732e-03_rb,2.7085e-03_rb,2.2305e-03_rb,1.7374e-03_rb, &
+     &1.2245e-03_rb,6.7631e-04_rb,3.7016e-05_rb/)
+      kao(:, 2, 7, 5) = (/ &
+     &5.6556e-03_rb,5.0622e-03_rb,4.4391e-03_rb,3.7915e-03_rb,3.1262e-03_rb,2.4381e-03_rb, &
+     &1.7215e-03_rb,9.5894e-04_rb,4.8862e-05_rb/)
+      kao(:, 3, 7, 5) = (/ &
+     &7.5823e-03_rb,6.7945e-03_rb,5.9706e-03_rb,5.1108e-03_rb,4.2263e-03_rb,3.3055e-03_rb, &
+     &2.3437e-03_rb,1.3169e-03_rb,6.1466e-05_rb/)
+      kao(:, 4, 7, 5) = (/ &
+     &9.8701e-03_rb,8.8589e-03_rb,7.8113e-03_rb,6.7131e-03_rb,5.5681e-03_rb,4.3736e-03_rb, &
+     &3.1150e-03_rb,1.7640e-03_rb,7.9784e-05_rb/)
+      kao(:, 5, 7, 5) = (/ &
+     &1.2627e-02_rb,1.1349e-02_rb,1.0044e-02_rb,8.6633e-03_rb,7.2033e-03_rb,5.6735e-03_rb, &
+     &4.0519e-03_rb,2.3093e-03_rb,9.9338e-05_rb/)
+      kao(:, 1, 8, 5) = (/ &
+     &6.5162e-03_rb,5.7610e-03_rb,5.0100e-03_rb,4.2382e-03_rb,3.4497e-03_rb,2.6520e-03_rb, &
+     &1.8357e-03_rb,9.8841e-04_rb,5.0893e-05_rb/)
+      kao(:, 2, 8, 5) = (/ &
+     &9.3894e-03_rb,8.3047e-03_rb,7.2233e-03_rb,6.1097e-03_rb,4.9767e-03_rb,3.8267e-03_rb, &
+     &2.6500e-03_rb,1.4278e-03_rb,6.6360e-05_rb/)
+      kao(:, 3, 8, 5) = (/ &
+     &1.2886e-02_rb,1.1402e-02_rb,9.9227e-03_rb,8.3986e-03_rb,6.8476e-03_rb,5.2715e-03_rb, &
+     &3.6563e-03_rb,1.9797e-03_rb,8.1964e-05_rb/)
+      kao(:, 4, 8, 5) = (/ &
+     &1.7029e-02_rb,1.5075e-02_rb,1.3132e-02_rb,1.1136e-02_rb,9.1030e-03_rb,7.0269e-03_rb, &
+     &4.8948e-03_rb,2.6694e-03_rb,1.0083e-04_rb/)
+      kao(:, 5, 8, 5) = (/ &
+     &2.2131e-02_rb,1.9595e-02_rb,1.7101e-02_rb,1.4537e-02_rb,1.1918e-02_rb,9.2249e-03_rb, &
+     &6.4389e-03_rb,3.5237e-03_rb,1.2644e-04_rb/)
+      kao(:, 1, 9, 5) = (/ &
+     &1.9574e-02_rb,1.7171e-02_rb,1.4767e-02_rb,1.2373e-02_rb,9.9784e-03_rb,7.5698e-03_rb, &
+     &5.1323e-03_rb,2.6624e-03_rb,7.9787e-05_rb/)
+      kao(:, 2, 9, 5) = (/ &
+     &2.9063e-02_rb,2.5494e-02_rb,2.1931e-02_rb,1.8384e-02_rb,1.4827e-02_rb,1.1241e-02_rb, &
+     &7.6171e-03_rb,3.9520e-03_rb,1.0489e-04_rb/)
+      kao(:, 3, 9, 5) = (/ &
+     &4.0973e-02_rb,3.5943e-02_rb,3.0923e-02_rb,2.5930e-02_rb,2.0911e-02_rb,1.5846e-02_rb, &
+     &1.0739e-02_rb,5.5789e-03_rb,1.2330e-04_rb/)
+      kao(:, 4, 9, 5) = (/ &
+     &5.5333e-02_rb,4.8546e-02_rb,4.1776e-02_rb,3.5034e-02_rb,2.8259e-02_rb,2.1435e-02_rb, &
+     &1.4550e-02_rb,7.5751e-03_rb,1.5097e-04_rb/)
+      kao(:, 5, 9, 5) = (/ &
+     &7.2795e-02_rb,6.3880e-02_rb,5.4976e-02_rb,4.6114e-02_rb,3.7235e-02_rb,2.8276e-02_rb, &
+     &1.9247e-02_rb,1.0060e-02_rb,1.9444e-04_rb/)
+      kao(:, 1,10, 5) = (/ &
+     &6.7876e-02_rb,5.9426e-02_rb,5.0975e-02_rb,4.2524e-02_rb,3.4085e-02_rb,2.5643e-02_rb, &
+     &1.7219e-02_rb,8.7441e-03_rb,2.1379e-04_rb/)
+      kao(:, 2,10, 5) = (/ &
+     &1.0363e-01_rb,9.0726e-02_rb,7.7824e-02_rb,6.4925e-02_rb,5.2032e-02_rb,3.9153e-02_rb, &
+     &2.6288e-02_rb,1.3336e-02_rb,2.7530e-04_rb/)
+      kao(:, 3,10, 5) = (/ &
+     &1.4868e-01_rb,1.3017e-01_rb,1.1167e-01_rb,9.3161e-02_rb,7.4667e-02_rb,5.6180e-02_rb, &
+     &3.7706e-02_rb,1.9125e-02_rb,3.1198e-04_rb/)
+      kao(:, 4,10, 5) = (/ &
+     &2.0441e-01_rb,1.7897e-01_rb,1.5353e-01_rb,1.2809e-01_rb,1.0267e-01_rb,7.7285e-02_rb, &
+     &5.1877e-02_rb,2.6327e-02_rb,3.7361e-04_rb/)
+      kao(:, 5,10, 5) = (/ &
+     &2.7248e-01_rb,2.3857e-01_rb,2.0467e-01_rb,1.7078e-01_rb,1.3689e-01_rb,1.0307e-01_rb, &
+     &6.9236e-02_rb,3.5215e-02_rb,4.4890e-04_rb/)
+      kao(:, 1,11, 5) = (/ &
+     &1.0259e-01_rb,8.9796e-02_rb,7.7004e-02_rb,6.4217e-02_rb,5.1425e-02_rb,3.8649e-02_rb, &
+     &2.5882e-02_rb,1.3106e-02_rb,2.9325e-04_rb/)
+      kao(:, 2,11, 5) = (/ &
+     &1.5400e-01_rb,1.3480e-01_rb,1.1559e-01_rb,9.6403e-02_rb,7.7200e-02_rb,5.8036e-02_rb, &
+     &3.8878e-02_rb,1.9667e-02_rb,3.5327e-04_rb/)
+      kao(:, 3,11, 5) = (/ &
+     &2.2118e-01_rb,1.9361e-01_rb,1.6603e-01_rb,1.3846e-01_rb,1.1090e-01_rb,8.3368e-02_rb, &
+     &5.5861e-02_rb,2.8242e-02_rb,4.6202e-04_rb/)
+      kao(:, 4,11, 5) = (/ &
+     &3.0353e-01_rb,2.6571e-01_rb,2.2790e-01_rb,1.9008e-01_rb,1.5227e-01_rb,1.1447e-01_rb, &
+     &7.6708e-02_rb,3.8764e-02_rb,5.6335e-04_rb/)
+      kao(:, 5,11, 5) = (/ &
+     &4.0552e-01_rb,3.5495e-01_rb,3.0446e-01_rb,2.5391e-01_rb,2.0338e-01_rb,1.5287e-01_rb, &
+     &1.0246e-01_rb,5.1876e-02_rb,6.9233e-04_rb/)
+      kao(:, 1,12, 5) = (/ &
+     &1.1805e-01_rb,1.0334e-01_rb,8.8617e-02_rb,7.3889e-02_rb,5.9170e-02_rb,4.4431e-02_rb, &
+     &2.9722e-02_rb,1.5007e-02_rb,3.3712e-04_rb/)
+      kao(:, 2,12, 5) = (/ &
+     &1.7261e-01_rb,1.5108e-01_rb,1.2954e-01_rb,1.0804e-01_rb,8.6508e-02_rb,6.5013e-02_rb, &
+     &4.3529e-02_rb,2.1984e-02_rb,3.8771e-04_rb/)
+      kao(:, 3,12, 5) = (/ &
+     &2.4519e-01_rb,2.1462e-01_rb,1.8406e-01_rb,1.5350e-01_rb,1.2297e-01_rb,9.2422e-02_rb, &
+     &6.1905e-02_rb,3.1241e-02_rb,5.1427e-04_rb/)
+      kao(:, 4,12, 5) = (/ &
+     &3.3550e-01_rb,2.9369e-01_rb,2.5183e-01_rb,2.1003e-01_rb,1.6821e-01_rb,1.2645e-01_rb, &
+     &8.4714e-02_rb,4.2803e-02_rb,6.2818e-04_rb/)
+      kao(:, 5,12, 5) = (/ &
+     &4.4900e-01_rb,3.9309e-01_rb,3.3714e-01_rb,2.8120e-01_rb,2.2522e-01_rb,1.6927e-01_rb, &
+     &1.1341e-01_rb,5.7326e-02_rb,7.6692e-04_rb/)
+      kao(:, 1,13, 5) = (/ &
+     &1.0921e-01_rb,9.5613e-02_rb,8.2016e-02_rb,6.8423e-02_rb,5.4814e-02_rb,4.1207e-02_rb, &
+     &2.7589e-02_rb,1.3915e-02_rb,3.0996e-04_rb/)
+      kao(:, 2,13, 5) = (/ &
+     &1.5908e-01_rb,1.3927e-01_rb,1.1945e-01_rb,9.9633e-02_rb,7.9786e-02_rb,5.9973e-02_rb, &
+     &4.0176e-02_rb,2.0276e-02_rb,3.7414e-04_rb/)
+      kao(:, 3,13, 5) = (/ &
+     &2.2086e-01_rb,1.9339e-01_rb,1.6582e-01_rb,1.3829e-01_rb,1.1077e-01_rb,8.3306e-02_rb, &
+     &5.5823e-02_rb,2.8176e-02_rb,4.9992e-04_rb/)
+      kao(:, 4,13, 5) = (/ &
+     &3.0195e-01_rb,2.6439e-01_rb,2.2676e-01_rb,1.8917e-01_rb,1.5156e-01_rb,1.1401e-01_rb, &
+     &7.6395e-02_rb,3.8587e-02_rb,6.2293e-04_rb/)
+      kao(:, 5,13, 5) = (/ &
+     &4.0305e-01_rb,3.5276e-01_rb,3.0259e-01_rb,2.5241e-01_rb,2.0221e-01_rb,1.5209e-01_rb, &
+     &1.0190e-01_rb,5.1477e-02_rb,7.6835e-04_rb/)
+      kao(:, 1, 1, 6) = (/ &
+     &1.3028e-03_rb,1.4792e-03_rb,1.5640e-03_rb,1.5783e-03_rb,1.5338e-03_rb,1.4263e-03_rb, &
+     &1.2426e-03_rb,1.0270e-03_rb,3.8769e-04_rb/)
+      kao(:, 2, 1, 6) = (/ &
+     &1.5941e-03_rb,1.8539e-03_rb,1.9924e-03_rb,2.0205e-03_rb,1.9782e-03_rb,1.8703e-03_rb, &
+     &1.6672e-03_rb,1.3063e-03_rb,5.8906e-04_rb/)
+      kao(:, 3, 1, 6) = (/ &
+     &1.9170e-03_rb,2.2892e-03_rb,2.4874e-03_rb,2.5352e-03_rb,2.4910e-03_rb,2.3785e-03_rb, &
+     &2.1678e-03_rb,1.7982e-03_rb,8.4228e-04_rb/)
+      kao(:, 4, 1, 6) = (/ &
+     &2.2745e-03_rb,2.7857e-03_rb,3.0496e-03_rb,3.1195e-03_rb,3.0784e-03_rb,2.9487e-03_rb, &
+     &2.7123e-03_rb,2.3729e-03_rb,1.1599e-03_rb/)
+      kao(:, 5, 1, 6) = (/ &
+     &2.6664e-03_rb,3.3396e-03_rb,3.6796e-03_rb,3.7742e-03_rb,3.7339e-03_rb,3.5735e-03_rb, &
+     &3.3124e-03_rb,2.9540e-03_rb,1.5049e-03_rb/)
+      kao(:, 1, 2, 6) = (/ &
+     &1.6105e-03_rb,1.7112e-03_rb,1.7440e-03_rb,1.7104e-03_rb,1.6159e-03_rb,1.4650e-03_rb, &
+     &1.2347e-03_rb,8.8371e-04_rb,2.8335e-04_rb/)
+      kao(:, 2, 2, 6) = (/ &
+     &1.9953e-03_rb,2.1575e-03_rb,2.2293e-03_rb,2.1981e-03_rb,2.0893e-03_rb,1.9131e-03_rb, &
+     &1.6649e-03_rb,1.2817e-03_rb,4.3740e-04_rb/)
+      kao(:, 3, 2, 6) = (/ &
+     &2.4284e-03_rb,2.6728e-03_rb,2.7960e-03_rb,2.7642e-03_rb,2.6394e-03_rb,2.4361e-03_rb, &
+     &2.1522e-03_rb,1.6930e-03_rb,6.3499e-04_rb/)
+      kao(:, 4, 2, 6) = (/ &
+     &2.9107e-03_rb,3.2657e-03_rb,3.4379e-03_rb,3.4084e-03_rb,3.2638e-03_rb,3.0336e-03_rb, &
+     &2.6919e-03_rb,2.1920e-03_rb,8.6677e-04_rb/)
+      kao(:, 5, 2, 6) = (/ &
+     &3.4457e-03_rb,3.9315e-03_rb,4.1602e-03_rb,4.1311e-03_rb,3.9674e-03_rb,3.6982e-03_rb, &
+     &3.2905e-03_rb,2.7416e-03_rb,1.1277e-03_rb/)
+      kao(:, 1, 3, 6) = (/ &
+     &2.5362e-03_rb,2.4734e-03_rb,2.3740e-03_rb,2.2299e-03_rb,2.0298e-03_rb,1.7661e-03_rb, &
+     &1.4316e-03_rb,9.7765e-04_rb,1.9718e-04_rb/)
+      kao(:, 2, 3, 6) = (/ &
+     &3.1979e-03_rb,3.1448e-03_rb,3.0502e-03_rb,2.8893e-03_rb,2.6412e-03_rb,2.3120e-03_rb, &
+     &1.8934e-03_rb,1.3566e-03_rb,3.0943e-04_rb/)
+      kao(:, 3, 3, 6) = (/ &
+     &3.9564e-03_rb,3.9245e-03_rb,3.8464e-03_rb,3.6625e-03_rb,3.3542e-03_rb,2.9452e-03_rb, &
+     &2.4362e-03_rb,1.8025e-03_rb,4.5105e-04_rb/)
+      kao(:, 4, 3, 6) = (/ &
+     &4.8099e-03_rb,4.8142e-03_rb,4.7669e-03_rb,4.5499e-03_rb,4.1705e-03_rb,3.6723e-03_rb, &
+     &3.0586e-03_rb,2.2944e-03_rb,6.1219e-04_rb/)
+      kao(:, 5, 3, 6) = (/ &
+     &5.7692e-03_rb,5.8286e-03_rb,5.8075e-03_rb,5.5468e-03_rb,5.0930e-03_rb,4.4966e-03_rb, &
+     &3.7644e-03_rb,2.8408e-03_rb,8.0331e-04_rb/)
+      kao(:, 1, 4, 6) = (/ &
+     &3.9832e-03_rb,3.6741e-03_rb,3.3865e-03_rb,3.0403e-03_rb,2.6684e-03_rb,2.2429e-03_rb, &
+     &1.7419e-03_rb,1.1291e-03_rb,1.3015e-04_rb/)
+      kao(:, 2, 4, 6) = (/ &
+     &5.1171e-03_rb,4.7408e-03_rb,4.3919e-03_rb,3.9718e-03_rb,3.5069e-03_rb,2.9654e-03_rb, &
+     &2.3168e-03_rb,1.5306e-03_rb,2.0974e-04_rb/)
+      kao(:, 3, 4, 6) = (/ &
+     &6.4449e-03_rb,5.9980e-03_rb,5.5858e-03_rb,5.0842e-03_rb,4.5074e-03_rb,3.8196e-03_rb, &
+     &2.9911e-03_rb,2.0056e-03_rb,3.1006e-04_rb/)
+      kao(:, 4, 4, 6) = (/ &
+     &7.9648e-03_rb,7.4434e-03_rb,6.9731e-03_rb,6.3878e-03_rb,5.6676e-03_rb,4.8062e-03_rb, &
+     &3.7737e-03_rb,2.5549e-03_rb,4.2568e-04_rb/)
+      kao(:, 5, 4, 6) = (/ &
+     &9.7092e-03_rb,9.1026e-03_rb,8.5703e-03_rb,7.8734e-03_rb,6.9867e-03_rb,5.9261e-03_rb, &
+     &4.6651e-03_rb,3.1844e-03_rb,5.6406e-04_rb/)
+      kao(:, 1, 5, 6) = (/ &
+     &5.7027e-03_rb,5.1210e-03_rb,4.6077e-03_rb,4.0275e-03_rb,3.4179e-03_rb,2.7812e-03_rb, &
+     &2.0863e-03_rb,1.2862e-03_rb,7.8383e-05_rb/)
+      kao(:, 2, 5, 6) = (/ &
+     &7.4791e-03_rb,6.7335e-03_rb,6.0729e-03_rb,5.3256e-03_rb,4.5457e-03_rb,3.7228e-03_rb, &
+     &2.8115e-03_rb,1.7506e-03_rb,1.3561e-04_rb/)
+      kao(:, 3, 5, 6) = (/ &
+     &9.5940e-03_rb,8.6573e-03_rb,7.8294e-03_rb,6.8962e-03_rb,5.9152e-03_rb,4.8604e-03_rb, &
+     &3.6801e-03_rb,2.2991e-03_rb,2.0565e-04_rb/)
+      kao(:, 4, 5, 6) = (/ &
+     &1.2079e-02_rb,1.0922e-02_rb,9.8984e-03_rb,8.7543e-03_rb,7.5389e-03_rb,6.1967e-03_rb, &
+     &4.6995e-03_rb,2.9469e-03_rb,2.9267e-04_rb/)
+      kao(:, 5, 5, 6) = (/ &
+     &1.4994e-02_rb,1.3590e-02_rb,1.2330e-02_rb,1.0933e-02_rb,9.4206e-03_rb,7.7402e-03_rb, &
+     &5.8678e-03_rb,3.6936e-03_rb,3.9433e-04_rb/)
+      kao(:, 1, 6, 6) = (/ &
+     &7.5110e-03_rb,6.6602e-03_rb,5.8889e-03_rb,5.0761e-03_rb,4.2229e-03_rb,3.3438e-03_rb, &
+     &2.4265e-03_rb,1.4290e-03_rb,6.0800e-05_rb/)
+      kao(:, 2, 6, 6) = (/ &
+     &1.0081e-02_rb,8.9573e-03_rb,7.9340e-03_rb,6.8466e-03_rb,5.7108e-03_rb,4.5453e-03_rb, &
+     &3.3197e-03_rb,1.9723e-03_rb,8.3721e-05_rb/)
+      kao(:, 3, 6, 6) = (/ &
+     &1.3198e-02_rb,1.1747e-02_rb,1.0417e-02_rb,9.0067e-03_rb,7.5375e-03_rb,6.0255e-03_rb, &
+     &4.4194e-03_rb,2.6335e-03_rb,1.2422e-04_rb/)
+      kao(:, 4, 6, 6) = (/ &
+     &1.6984e-02_rb,1.5135e-02_rb,1.3426e-02_rb,1.1628e-02_rb,9.7560e-03_rb,7.8119e-03_rb, &
+     &5.7333e-03_rb,3.4188e-03_rb,1.8443e-04_rb/)
+      kao(:, 5, 6, 6) = (/ &
+     &2.1488e-02_rb,1.9171e-02_rb,1.7013e-02_rb,1.4755e-02_rb,1.2406e-02_rb,9.9290e-03_rb, &
+     &7.2811e-03_rb,4.3367e-03_rb,2.5906e-04_rb/)
+      kao(:, 1, 7, 6) = (/ &
+     &1.0317e-02_rb,9.0822e-03_rb,7.9160e-03_rb,6.7515e-03_rb,5.5440e-03_rb,4.3074e-03_rb, &
+     &3.0340e-03_rb,1.7035e-03_rb,6.0426e-05_rb/)
+      kao(:, 2, 7, 6) = (/ &
+     &1.4191e-02_rb,1.2505e-02_rb,1.0919e-02_rb,9.3201e-03_rb,7.6597e-03_rb,5.9649e-03_rb, &
+     &4.2263e-03_rb,2.3919e-03_rb,8.0608e-05_rb/)
+      kao(:, 3, 7, 6) = (/ &
+     &1.9028e-02_rb,1.6789e-02_rb,1.4664e-02_rb,1.2525e-02_rb,1.0306e-02_rb,8.0458e-03_rb, &
+     &5.7261e-03_rb,3.2535e-03_rb,1.0671e-04_rb/)
+      kao(:, 4, 7, 6) = (/ &
+     &2.5018e-02_rb,2.2107e-02_rb,1.9309e-02_rb,1.6498e-02_rb,1.3592e-02_rb,1.0633e-02_rb, &
+     &7.5736e-03_rb,4.3041e-03_rb,1.3667e-04_rb/)
+      kao(:, 5, 7, 6) = (/ &
+     &3.2278e-02_rb,2.8550e-02_rb,2.4932e-02_rb,2.1309e-02_rb,1.7576e-02_rb,1.3764e-02_rb, &
+     &9.7979e-03_rb,5.5674e-03_rb,1.7569e-04_rb/)
+      kao(:, 1, 8, 6) = (/ &
+     &1.6908e-02_rb,1.4827e-02_rb,1.2781e-02_rb,1.0775e-02_rb,8.7653e-03_rb,6.7156e-03_rb, &
+     &4.6263e-03_rb,2.4796e-03_rb,7.2095e-05_rb/)
+      kao(:, 2, 8, 6) = (/ &
+     &2.3895e-02_rb,2.0964e-02_rb,1.8085e-02_rb,1.5267e-02_rb,1.2424e-02_rb,9.5170e-03_rb, &
+     &6.5710e-03_rb,3.5441e-03_rb,9.6806e-05_rb/)
+      kao(:, 3, 8, 6) = (/ &
+     &3.2855e-02_rb,2.8841e-02_rb,2.4900e-02_rb,2.1032e-02_rb,1.7114e-02_rb,1.3120e-02_rb, &
+     &9.0780e-03_rb,4.9231e-03_rb,1.2768e-04_rb/)
+      kao(:, 4, 8, 6) = (/ &
+     &4.4127e-02_rb,3.8763e-02_rb,3.3492e-02_rb,2.8282e-02_rb,2.3023e-02_rb,1.7668e-02_rb, &
+     &1.2245e-02_rb,6.6502e-03_rb,1.6091e-04_rb/)
+      kao(:, 5, 8, 6) = (/ &
+     &5.7992e-02_rb,5.0977e-02_rb,4.4047e-02_rb,3.7189e-02_rb,3.0275e-02_rb,2.3248e-02_rb, &
+     &1.6136e-02_rb,8.7683e-03_rb,1.9428e-04_rb/)
+      kao(:, 1, 9, 6) = (/ &
+     &5.1709e-02_rb,4.5263e-02_rb,3.8825e-02_rb,3.2404e-02_rb,2.6001e-02_rb,1.9630e-02_rb, &
+     &1.3270e-02_rb,6.8433e-03_rb,1.6819e-04_rb/)
+      kao(:, 2, 9, 6) = (/ &
+     &7.5377e-02_rb,6.5994e-02_rb,5.6614e-02_rb,4.7250e-02_rb,3.7927e-02_rb,2.8667e-02_rb, &
+     &1.9405e-02_rb,1.0007e-02_rb,2.0150e-04_rb/)
+      kao(:, 3, 9, 6) = (/ &
+     &1.0637e-01_rb,9.3142e-02_rb,7.9913e-02_rb,6.6713e-02_rb,5.3579e-02_rb,4.0525e-02_rb, &
+     &2.7438e-02_rb,1.4159e-02_rb,2.5395e-04_rb/)
+      kao(:, 4, 9, 6) = (/ &
+     &1.4601e-01_rb,1.2787e-01_rb,1.0973e-01_rb,9.1640e-02_rb,7.3643e-02_rb,5.5707e-02_rb, &
+     &3.7721e-02_rb,1.9493e-02_rb,2.9114e-04_rb/)
+      kao(:, 5, 9, 6) = (/ &
+     &1.9540e-01_rb,1.7114e-01_rb,1.4689e-01_rb,1.2270e-01_rb,9.8611e-02_rb,7.4576e-02_rb, &
+     &5.0506e-02_rb,2.6131e-02_rb,3.2502e-04_rb/)
+      kao(:, 1,10, 6) = (/ &
+     &1.7908e-01_rb,1.5672e-01_rb,1.3434e-01_rb,1.1197e-01_rb,8.9592e-02_rb,6.7243e-02_rb, &
+     &4.4903e-02_rb,2.2650e-02_rb,3.5407e-04_rb/)
+      kao(:, 2,10, 6) = (/ &
+     &2.6809e-01_rb,2.3461e-01_rb,2.0111e-01_rb,1.6763e-01_rb,1.3416e-01_rb,1.0070e-01_rb, &
+     &6.7289e-02_rb,3.4001e-02_rb,4.2267e-04_rb/)
+      kao(:, 3,10, 6) = (/ &
+     &3.8962e-01_rb,3.4094e-01_rb,2.9228e-01_rb,2.4365e-01_rb,1.9501e-01_rb,1.4639e-01_rb, &
+     &9.7852e-02_rb,4.9496e-02_rb,5.5217e-04_rb/)
+      kao(:, 4,10, 6) = (/ &
+     &5.4709e-01_rb,4.7880e-01_rb,4.1047e-01_rb,3.4221e-01_rb,2.7390e-01_rb,2.0562e-01_rb, &
+     &1.3748e-01_rb,6.9566e-02_rb,6.7800e-04_rb/)
+      kao(:, 5,10, 6) = (/ &
+     &7.4383e-01_rb,6.5097e-01_rb,5.5813e-01_rb,4.6528e-01_rb,3.7246e-01_rb,2.7966e-01_rb, &
+     &1.8702e-01_rb,9.4633e-02_rb,7.9930e-04_rb/)
+      kao(:, 1,11, 6) = (/ &
+     &2.6405e-01_rb,2.3107e-01_rb,1.9807e-01_rb,1.6508e-01_rb,1.3209e-01_rb,9.9087e-02_rb, &
+     &6.6140e-02_rb,3.3239e-02_rb,4.6661e-04_rb/)
+      kao(:, 2,11, 6) = (/ &
+     &3.9885e-01_rb,3.4898e-01_rb,2.9917e-01_rb,2.4935e-01_rb,1.9952e-01_rb,1.4970e-01_rb, &
+     &9.9938e-02_rb,5.0287e-02_rb,6.6831e-04_rb/)
+      kao(:, 3,11, 6) = (/ &
+     &5.8178e-01_rb,5.0910e-01_rb,4.3644e-01_rb,3.6379e-01_rb,2.9110e-01_rb,2.1843e-01_rb, &
+     &1.4582e-01_rb,7.3440e-02_rb,7.3058e-04_rb/)
+      kao(:, 4,11, 6) = (/ &
+     &8.2081e-01_rb,7.1832e-01_rb,6.1577e-01_rb,5.1330e-01_rb,4.1077e-01_rb,3.0826e-01_rb, &
+     &2.0583e-01_rb,1.0374e-01_rb,9.0801e-04_rb/)
+      kao(:, 5,11, 6) = (/ &
+     &1.1196e+00_rb,9.7976e-01_rb,8.3991e-01_rb,7.0013e-01_rb,5.6034e-01_rb,4.2058e-01_rb, &
+     &2.8087e-01_rb,1.4156e-01_rb,1.1083e-03_rb/)
+      kao(:, 1,12, 6) = (/ &
+     &2.9667e-01_rb,2.5960e-01_rb,2.2251e-01_rb,1.8545e-01_rb,1.4837e-01_rb,1.1135e-01_rb, &
+     &7.4300e-02_rb,3.7344e-02_rb,4.3166e-04_rb/)
+      kao(:, 2,12, 6) = (/ &
+     &4.4544e-01_rb,3.8980e-01_rb,3.3414e-01_rb,2.7849e-01_rb,2.2283e-01_rb,1.6719e-01_rb, &
+     &1.1158e-01_rb,5.6122e-02_rb,7.5682e-04_rb/)
+      kao(:, 3,12, 6) = (/ &
+     &6.4877e-01_rb,5.6770e-01_rb,4.8669e-01_rb,4.0564e-01_rb,3.2461e-01_rb,2.4355e-01_rb, &
+     &1.6257e-01_rb,8.1850e-02_rb,7.9167e-04_rb/)
+      kao(:, 4,12, 6) = (/ &
+     &9.1198e-01_rb,7.9809e-01_rb,6.8416e-01_rb,5.7025e-01_rb,4.5635e-01_rb,3.4245e-01_rb, &
+     &2.2863e-01_rb,1.1515e-01_rb,9.9906e-04_rb/)
+      kao(:, 5,12, 6) = (/ &
+     &1.2467e+00_rb,1.0910e+00_rb,9.3529e-01_rb,7.7959e-01_rb,6.2391e-01_rb,4.6827e-01_rb, &
+     &3.1271e-01_rb,1.5753e-01_rb,1.2003e-03_rb/)
+      kao(:, 1,13, 6) = (/ &
+     &2.7690e-01_rb,2.4228e-01_rb,2.0769e-01_rb,1.7308e-01_rb,1.3848e-01_rb,1.0389e-01_rb, &
+     &6.9340e-02_rb,3.4888e-02_rb,4.3050e-04_rb/)
+      kao(:, 2,13, 6) = (/ &
+     &4.0226e-01_rb,3.5198e-01_rb,3.0172e-01_rb,2.5145e-01_rb,2.0123e-01_rb,1.5101e-01_rb, &
+     &1.0081e-01_rb,5.0783e-02_rb,7.1649e-04_rb/)
+      kao(:, 3,13, 6) = (/ &
+     &5.7863e-01_rb,5.0634e-01_rb,4.3410e-01_rb,3.6182e-01_rb,2.8956e-01_rb,2.1728e-01_rb, &
+     &1.4512e-01_rb,7.3148e-02_rb,7.7482e-04_rb/)
+      kao(:, 4,13, 6) = (/ &
+     &8.1324e-01_rb,7.1165e-01_rb,6.1013e-01_rb,5.0851e-01_rb,4.0696e-01_rb,3.0541e-01_rb, &
+     &2.0404e-01_rb,1.0287e-01_rb,9.9392e-04_rb/)
+      kao(:, 5,13, 6) = (/ &
+     &1.1104e+00_rb,9.7179e-01_rb,8.3315e-01_rb,6.9450e-01_rb,5.5586e-01_rb,4.1728e-01_rb, &
+     &2.7889e-01_rb,1.4068e-01_rb,1.1816e-03_rb/)
+      kao(:, 1, 1, 7) = (/ &
+     &3.5054e-03_rb,3.5055e-03_rb,3.5120e-03_rb,3.3810e-03_rb,3.1730e-03_rb,2.8811e-03_rb, &
+     &2.4850e-03_rb,1.7479e-03_rb,1.1652e-03_rb/)
+      kao(:, 2, 1, 7) = (/ &
+     &4.3050e-03_rb,4.3583e-03_rb,4.3910e-03_rb,4.2644e-03_rb,4.0306e-03_rb,3.6880e-03_rb, &
+     &3.2528e-03_rb,2.5892e-03_rb,1.6752e-03_rb/)
+      kao(:, 3, 1, 7) = (/ &
+     &5.1735e-03_rb,5.2976e-03_rb,5.3803e-03_rb,5.2761e-03_rb,5.0137e-03_rb,4.6183e-03_rb, &
+     &4.1353e-03_rb,3.5068e-03_rb,2.2495e-03_rb/)
+      kao(:, 4, 1, 7) = (/ &
+     &6.1057e-03_rb,6.3115e-03_rb,6.4786e-03_rb,6.4038e-03_rb,6.1210e-03_rb,5.6909e-03_rb, &
+     &5.1278e-03_rb,4.5615e-03_rb,2.9063e-03_rb/)
+      kao(:, 5, 1, 7) = (/ &
+     &7.0959e-03_rb,7.4049e-03_rb,7.6778e-03_rb,7.6470e-03_rb,7.3706e-03_rb,6.8965e-03_rb, &
+     &6.2418e-03_rb,5.7511e-03_rb,3.6720e-03_rb/)
+      kao(:, 1, 2, 7) = (/ &
+     &4.4522e-03_rb,4.2827e-03_rb,4.1712e-03_rb,3.9058e-03_rb,3.5730e-03_rb,3.1581e-03_rb, &
+     &2.6434e-03_rb,1.9182e-03_rb,8.6485e-04_rb/)
+      kao(:, 2, 2, 7) = (/ &
+     &5.5183e-03_rb,5.3551e-03_rb,5.2393e-03_rb,4.9436e-03_rb,4.5529e-03_rb,4.0469e-03_rb, &
+     &3.4309e-03_rb,2.6479e-03_rb,1.2370e-03_rb/)
+      kao(:, 3, 2, 7) = (/ &
+     &6.6858e-03_rb,6.5555e-03_rb,6.4351e-03_rb,6.1353e-03_rb,5.6849e-03_rb,5.0737e-03_rb, &
+     &4.3365e-03_rb,3.4457e-03_rb,1.6663e-03_rb/)
+      kao(:, 4, 2, 7) = (/ &
+     &7.9566e-03_rb,7.8606e-03_rb,7.7697e-03_rb,7.4702e-03_rb,6.9634e-03_rb,6.2571e-03_rb, &
+     &5.3849e-03_rb,4.3375e-03_rb,2.1739e-03_rb/)
+      kao(:, 5, 2, 7) = (/ &
+     &9.3107e-03_rb,9.2749e-03_rb,9.2506e-03_rb,8.9459e-03_rb,8.3896e-03_rb,7.5840e-03_rb, &
+     &6.5605e-03_rb,5.3408e-03_rb,2.7747e-03_rb/)
+      kao(:, 1, 3, 7) = (/ &
+     &7.1663e-03_rb,6.5385e-03_rb,6.0832e-03_rb,5.5176e-03_rb,4.8422e-03_rb,4.1012e-03_rb, &
+     &3.2557e-03_rb,2.2244e-03_rb,5.9815e-04_rb/)
+      kao(:, 2, 3, 7) = (/ &
+     &9.0118e-03_rb,8.2694e-03_rb,7.7301e-03_rb,7.0328e-03_rb,6.2053e-03_rb,5.2869e-03_rb, &
+     &4.2235e-03_rb,2.9652e-03_rb,8.5322e-04_rb/)
+      kao(:, 3, 3, 7) = (/ &
+     &1.1073e-02_rb,1.0215e-02_rb,9.5832e-03_rb,8.7498e-03_rb,7.7844e-03_rb,6.6733e-03_rb, &
+     &5.3588e-03_rb,3.8104e-03_rb,1.1597e-03_rb/)
+      kao(:, 4, 3, 7) = (/ &
+     &1.3336e-02_rb,1.2373e-02_rb,1.1642e-02_rb,1.0696e-02_rb,9.5807e-03_rb,8.2482e-03_rb, &
+     &6.6726e-03_rb,4.7891e-03_rb,1.5317e-03_rb/)
+      kao(:, 5, 3, 7) = (/ &
+     &1.5766e-02_rb,1.4727e-02_rb,1.3917e-02_rb,1.2876e-02_rb,1.1585e-02_rb,1.0016e-02_rb, &
+     &8.1535e-03_rb,5.8982e-03_rb,1.9785e-03_rb/)
+      kao(:, 1, 4, 7) = (/ &
+     &1.1443e-02_rb,1.0194e-02_rb,9.0847e-03_rb,8.0229e-03_rb,6.8443e-03_rb,5.5702e-03_rb, &
+     &4.2183e-03_rb,2.6813e-03_rb,4.0030e-04_rb/)
+      kao(:, 2, 4, 7) = (/ &
+     &1.4659e-02_rb,1.3095e-02_rb,1.1714e-02_rb,1.0375e-02_rb,8.8664e-03_rb,7.2483e-03_rb, &
+     &5.5253e-03_rb,3.5568e-03_rb,5.7754e-04_rb/)
+      kao(:, 3, 4, 7) = (/ &
+     &1.8306e-02_rb,1.6401e-02_rb,1.4719e-02_rb,1.3058e-02_rb,1.1190e-02_rb,9.2063e-03_rb, &
+     &7.0626e-03_rb,4.5942e-03_rb,7.9824e-04_rb/)
+      kao(:, 4, 4, 7) = (/ &
+     &2.2363e-02_rb,2.0101e-02_rb,1.8107e-02_rb,1.6087e-02_rb,1.3850e-02_rb,1.1470e-02_rb, &
+     &8.8334e-03_rb,5.7997e-03_rb,1.0688e-03_rb/)
+      kao(:, 5, 4, 7) = (/ &
+     &2.6741e-02_rb,2.4136e-02_rb,2.1831e-02_rb,1.9473e-02_rb,1.6867e-02_rb,1.4029e-02_rb, &
+     &1.0846e-02_rb,7.1614e-03_rb,1.3988e-03_rb/)
+      kao(:, 1, 5, 7) = (/ &
+     &1.6600e-02_rb,1.4668e-02_rb,1.2778e-02_rb,1.1029e-02_rb,9.2361e-03_rb,7.3333e-03_rb, &
+     &5.3444e-03_rb,3.2124e-03_rb,2.6040e-04_rb/)
+      kao(:, 2, 5, 7) = (/ &
+     &2.1709e-02_rb,1.9200e-02_rb,1.6777e-02_rb,1.4511e-02_rb,1.2172e-02_rb,9.6744e-03_rb, &
+     &7.0766e-03_rb,4.2987e-03_rb,3.8620e-04_rb/)
+      kao(:, 3, 5, 7) = (/ &
+     &2.7589e-02_rb,2.4430e-02_rb,2.1405e-02_rb,1.8550e-02_rb,1.5579e-02_rb,1.2414e-02_rb, &
+     &9.1361e-03_rb,5.5941e-03_rb,5.4726e-04_rb/)
+      kao(:, 4, 5, 7) = (/ &
+     &3.4183e-02_rb,3.0324e-02_rb,2.6641e-02_rb,2.3153e-02_rb,1.9480e-02_rb,1.5601e-02_rb, &
+     &1.1542e-02_rb,7.1098e-03_rb,7.4652e-04_rb/)
+      kao(:, 5, 5, 7) = (/ &
+     &4.1421e-02_rb,3.6823e-02_rb,3.2447e-02_rb,2.8275e-02_rb,2.3873e-02_rb,1.9232e-02_rb, &
+     &1.4297e-02_rb,8.8472e-03_rb,9.9177e-04_rb/)
+      kao(:, 1, 6, 7) = (/ &
+     &2.2041e-02_rb,1.9394e-02_rb,1.6757e-02_rb,1.4215e-02_rb,1.1736e-02_rb,9.1749e-03_rb, &
+     &6.5141e-03_rb,3.7310e-03_rb,1.4404e-04_rb/)
+      kao(:, 2, 6, 7) = (/ &
+     &2.9498e-02_rb,2.5961e-02_rb,2.2459e-02_rb,1.9104e-02_rb,1.5796e-02_rb,1.2359e-02_rb, &
+     &8.7857e-03_rb,5.0673e-03_rb,2.3466e-04_rb/)
+      kao(:, 3, 6, 7) = (/ &
+     &3.8260e-02_rb,3.3683e-02_rb,2.9196e-02_rb,2.4887e-02_rb,2.0608e-02_rb,1.6142e-02_rb, &
+     &1.1503e-02_rb,6.6775e-03_rb,3.4879e-04_rb/)
+      kao(:, 4, 6, 7) = (/ &
+     &4.8196e-02_rb,4.2468e-02_rb,3.6884e-02_rb,3.1502e-02_rb,2.6137e-02_rb,2.0520e-02_rb, &
+     &1.4704e-02_rb,8.5847e-03_rb,4.9990e-04_rb/)
+      kao(:, 5, 6, 7) = (/ &
+     &5.9282e-02_rb,5.2285e-02_rb,4.5513e-02_rb,3.8965e-02_rb,3.2393e-02_rb,2.5526e-02_rb, &
+     &1.8401e-02_rb,1.0794e-02_rb,6.8674e-04_rb/)
+      kao(:, 1, 7, 7) = (/ &
+     &3.0340e-02_rb,2.6632e-02_rb,2.2911e-02_rb,1.9238e-02_rb,1.5651e-02_rb,1.2078e-02_rb, &
+     &8.4116e-03_rb,4.6225e-03_rb,1.1044e-04_rb/)
+      kao(:, 2, 7, 7) = (/ &
+     &4.1630e-02_rb,3.6541e-02_rb,3.1448e-02_rb,2.6441e-02_rb,2.1565e-02_rb,1.6662e-02_rb, &
+     &1.1608e-02_rb,6.3979e-03_rb,1.5103e-04_rb/)
+      kao(:, 3, 7, 7) = (/ &
+     &5.5141e-02_rb,4.8404e-02_rb,4.1697e-02_rb,3.5120e-02_rb,2.8696e-02_rb,2.2204e-02_rb, &
+     &1.5482e-02_rb,8.5690e-03_rb,2.0480e-04_rb/)
+      kao(:, 4, 7, 7) = (/ &
+     &7.0797e-02_rb,6.2144e-02_rb,5.3596e-02_rb,4.5212e-02_rb,3.6995e-02_rb,2.8664e-02_rb, &
+     &2.0039e-02_rb,1.1163e-02_rb,2.9866e-04_rb/)
+      kao(:, 5, 7, 7) = (/ &
+     &8.8459e-02_rb,7.7674e-02_rb,6.7088e-02_rb,5.6677e-02_rb,4.6470e-02_rb,3.6087e-02_rb, &
+     &2.5332e-02_rb,1.4195e-02_rb,4.2372e-04_rb/)
+      kao(:, 1, 8, 7) = (/ &
+     &4.9601e-02_rb,4.3472e-02_rb,3.7321e-02_rb,3.1177e-02_rb,2.5072e-02_rb,1.9045e-02_rb, &
+     &1.3035e-02_rb,6.9120e-03_rb,1.2554e-04_rb/)
+      kao(:, 2, 8, 7) = (/ &
+     &6.9873e-02_rb,6.1229e-02_rb,5.2577e-02_rb,4.3926e-02_rb,3.5352e-02_rb,2.6911e-02_rb, &
+     &1.8460e-02_rb,9.7927e-03_rb,1.5143e-04_rb/)
+      kao(:, 3, 8, 7) = (/ &
+     &9.4645e-02_rb,8.2931e-02_rb,7.1217e-02_rb,5.9530e-02_rb,4.7979e-02_rb,3.6597e-02_rb, &
+     &2.5135e-02_rb,1.3350e-02_rb,1.8982e-04_rb/)
+      kao(:, 4, 8, 7) = (/ &
+     &1.2398e-01_rb,1.0863e-01_rb,9.3295e-02_rb,7.8049e-02_rb,6.2983e-02_rb,4.8099e-02_rb, &
+     &3.3072e-02_rb,1.7624e-02_rb,2.4338e-04_rb/)
+      kao(:, 5, 8, 7) = (/ &
+     &1.5756e-01_rb,1.3808e-01_rb,1.1863e-01_rb,9.9354e-02_rb,8.0265e-02_rb,6.1390e-02_rb, &
+     &4.2297e-02_rb,2.2655e-02_rb,3.0934e-04_rb/)
+      kao(:, 1, 9, 7) = (/ &
+     &1.5112e-01_rb,1.3227e-01_rb,1.1344e-01_rb,9.4596e-02_rb,7.5748e-02_rb,5.6892e-02_rb, &
+     &3.8080e-02_rb,1.9401e-02_rb,2.5169e-04_rb/)
+      kao(:, 2, 9, 7) = (/ &
+     &2.1904e-01_rb,1.9173e-01_rb,1.6442e-01_rb,1.3710e-01_rb,1.0978e-01_rb,8.2457e-02_rb, &
+     &5.5213e-02_rb,2.8220e-02_rb,3.2207e-04_rb/)
+      kao(:, 3, 9, 7) = (/ &
+     &3.0409e-01_rb,2.6618e-01_rb,2.2825e-01_rb,1.9033e-01_rb,1.5240e-01_rb,1.1448e-01_rb, &
+     &7.6724e-02_rb,3.9326e-02_rb,3.9043e-04_rb/)
+      kao(:, 4, 9, 7) = (/ &
+     &4.0691e-01_rb,3.5618e-01_rb,3.0544e-01_rb,2.5467e-01_rb,2.0393e-01_rb,1.5326e-01_rb, &
+     &1.0281e-01_rb,5.2796e-02_rb,4.7191e-04_rb/)
+      kao(:, 5, 9, 7) = (/ &
+     &5.2694e-01_rb,4.6123e-01_rb,3.9556e-01_rb,3.2985e-01_rb,2.6417e-01_rb,1.9865e-01_rb, &
+     &1.3342e-01_rb,6.8629e-02_rb,5.3966e-04_rb/)
+      kao(:, 1,10, 7) = (/ &
+     &5.2400e-01_rb,4.5853e-01_rb,3.9306e-01_rb,3.2760e-01_rb,2.6216e-01_rb,1.9669e-01_rb, &
+     &1.3123e-01_rb,6.5752e-02_rb,5.0343e-04_rb/)
+      kao(:, 2,10, 7) = (/ &
+     &7.8161e-01_rb,6.8400e-01_rb,5.8634e-01_rb,4.8867e-01_rb,3.9103e-01_rb,2.9337e-01_rb, &
+     &1.9570e-01_rb,9.8059e-02_rb,7.7212e-04_rb/)
+      kao(:, 3,10, 7) = (/ &
+     &1.1108e+00_rb,9.7208e-01_rb,8.3335e-01_rb,6.9453e-01_rb,5.5575e-01_rb,4.1693e-01_rb, &
+     &2.7814e-01_rb,1.3935e-01_rb,8.3303e-04_rb/)
+      kao(:, 4,10, 7) = (/ &
+     &1.5159e+00_rb,1.3265e+00_rb,1.1372e+00_rb,9.4781e-01_rb,7.5840e-01_rb,5.6900e-01_rb, &
+     &3.7960e-01_rb,1.9025e-01_rb,1.0516e-03_rb/)
+      kao(:, 5,10, 7) = (/ &
+     &2.0008e+00_rb,1.7509e+00_rb,1.5009e+00_rb,1.2510e+00_rb,1.0010e+00_rb,7.5106e-01_rb, &
+     &5.0105e-01_rb,2.5132e-01_rb,1.2795e-03_rb/)
+      kao(:, 1,11, 7) = (/ &
+     &7.6934e-01_rb,6.7322e-01_rb,5.7711e-01_rb,4.8095e-01_rb,3.8483e-01_rb,2.8868e-01_rb, &
+     &1.9254e-01_rb,9.6383e-02_rb,4.1213e-04_rb/)
+      kao(:, 2,11, 7) = (/ &
+     &1.1531e+00_rb,1.0090e+00_rb,8.6492e-01_rb,7.2086e-01_rb,5.7680e-01_rb,4.3268e-01_rb, &
+     &2.8857e-01_rb,1.4445e-01_rb,7.8643e-04_rb/)
+      kao(:, 3,11, 7) = (/ &
+     &1.6479e+00_rb,1.4420e+00_rb,1.2361e+00_rb,1.0302e+00_rb,8.2427e-01_rb,6.1836e-01_rb, &
+     &4.1243e-01_rb,2.0646e-01_rb,1.3424e-03_rb/)
+      kao(:, 4,11, 7) = (/ &
+     &2.2624e+00_rb,1.9796e+00_rb,1.6970e+00_rb,1.4143e+00_rb,1.1316e+00_rb,8.4892e-01_rb, &
+     &5.6619e-01_rb,2.8348e-01_rb,1.4044e-03_rb/)
+      kao(:, 5,11, 7) = (/ &
+     &3.0074e+00_rb,2.6315e+00_rb,2.2558e+00_rb,1.8800e+00_rb,1.5042e+00_rb,1.1285e+00_rb, &
+     &7.5266e-01_rb,3.7695e-01_rb,1.6947e-03_rb/)
+      kao(:, 1,12, 7) = (/ &
+     &8.4478e-01_rb,7.3926e-01_rb,6.3371e-01_rb,5.2813e-01_rb,4.2255e-01_rb,3.1696e-01_rb, &
+     &2.1141e-01_rb,1.0578e-01_rb,4.0897e-04_rb/)
+      kao(:, 2,12, 7) = (/ &
+     &1.2687e+00_rb,1.1101e+00_rb,9.5161e-01_rb,7.9307e-01_rb,6.3449e-01_rb,4.7596e-01_rb, &
+     &3.1742e-01_rb,1.5884e-01_rb,7.3572e-04_rb/)
+      kao(:, 3,12, 7) = (/ &
+     &1.8247e+00_rb,1.5966e+00_rb,1.3686e+00_rb,1.1406e+00_rb,9.1261e-01_rb,6.8459e-01_rb, &
+     &4.5656e-01_rb,2.2852e-01_rb,1.3876e-03_rb/)
+      kao(:, 4,12, 7) = (/ &
+     &2.5294e+00_rb,2.2134e+00_rb,1.8973e+00_rb,1.5812e+00_rb,1.2652e+00_rb,9.4906e-01_rb, &
+     &6.3294e-01_rb,3.1685e-01_rb,1.6774e-03_rb/)
+      kao(:, 5,12, 7) = (/ &
+     &3.3840e+00_rb,2.9611e+00_rb,2.5383e+00_rb,2.1154e+00_rb,1.6926e+00_rb,1.2697e+00_rb, &
+     &8.4679e-01_rb,4.2403e-01_rb,1.9227e-03_rb/)
+      kao(:, 1,13, 7) = (/ &
+     &7.4992e-01_rb,6.5626e-01_rb,5.6252e-01_rb,4.6882e-01_rb,3.7512e-01_rb,2.8140e-01_rb, &
+     &1.8768e-01_rb,9.3938e-02_rb,4.2556e-04_rb/)
+      kao(:, 2,13, 7) = (/ &
+     &1.1304e+00_rb,9.8913e-01_rb,8.4793e-01_rb,7.0671e-01_rb,5.6541e-01_rb,4.2417e-01_rb, &
+     &2.8288e-01_rb,1.4159e-01_rb,7.8986e-04_rb/)
+      kao(:, 3,13, 7) = (/ &
+     &1.6343e+00_rb,1.4300e+00_rb,1.2259e+00_rb,1.0217e+00_rb,8.1745e-01_rb,6.1321e-01_rb, &
+     &4.0897e-01_rb,2.0475e-01_rb,1.4019e-03_rb/)
+      kao(:, 4,13, 7) = (/ &
+     &2.2667e+00_rb,1.9834e+00_rb,1.7002e+00_rb,1.4170e+00_rb,1.1337e+00_rb,8.5047e-01_rb, &
+     &5.6722e-01_rb,2.8408e-01_rb,1.6857e-03_rb/)
+      kao(:, 5,13, 7) = (/ &
+     &3.0450e+00_rb,2.6646e+00_rb,2.2841e+00_rb,1.9036e+00_rb,1.5231e+00_rb,1.1426e+00_rb, &
+     &7.6204e-01_rb,3.8179e-01_rb,1.9578e-03_rb/)
+      kao(:, 1, 1, 8) = (/ &
+     &7.5530e-03_rb,7.1946e-03_rb,6.9309e-03_rb,6.6476e-03_rb,6.1286e-03_rb,5.5188e-03_rb, &
+     &4.8784e-03_rb,4.0369e-03_rb,3.2329e-03_rb/)
+      kao(:, 2, 1, 8) = (/ &
+     &9.1868e-03_rb,8.8285e-03_rb,8.6011e-03_rb,8.3060e-03_rb,7.7227e-03_rb,7.0815e-03_rb, &
+     &6.4738e-03_rb,5.8694e-03_rb,4.4599e-03_rb/)
+      kao(:, 3, 1, 8) = (/ &
+     &1.0993e-02_rb,1.0661e-02_rb,1.0487e-02_rb,1.0178e-02_rb,9.5750e-03_rb,8.9143e-03_rb, &
+     &8.3359e-03_rb,7.9019e-03_rb,5.9682e-03_rb/)
+      kao(:, 4, 1, 8) = (/ &
+     &1.2929e-02_rb,1.2692e-02_rb,1.2580e-02_rb,1.2285e-02_rb,1.1693e-02_rb,1.1035e-02_rb, &
+     &1.0548e-02_rb,1.0225e-02_rb,7.8210e-03_rb/)
+      kao(:, 5, 1, 8) = (/ &
+     &1.4992e-02_rb,1.4924e-02_rb,1.4888e-02_rb,1.4659e-02_rb,1.4068e-02_rb,1.3474e-02_rb, &
+     &1.3107e-02_rb,1.2867e-02_rb,1.0020e-02_rb/)
+      kao(:, 1, 2, 8) = (/ &
+     &1.0207e-02_rb,9.4797e-03_rb,8.8085e-03_rb,8.2309e-03_rb,7.4348e-03_rb,6.4679e-03_rb, &
+     &5.3282e-03_rb,4.0056e-03_rb,2.5229e-03_rb/)
+      kao(:, 2, 2, 8) = (/ &
+     &1.2558e-02_rb,1.1748e-02_rb,1.1002e-02_rb,1.0338e-02_rb,9.3997e-03_rb,8.2648e-03_rb, &
+     &6.9317e-03_rb,5.5570e-03_rb,3.5029e-03_rb/)
+      kao(:, 3, 2, 8) = (/ &
+     &1.5167e-02_rb,1.4277e-02_rb,1.3509e-02_rb,1.2727e-02_rb,1.1653e-02_rb,1.0352e-02_rb, &
+     &8.8205e-03_rb,7.4037e-03_rb,4.7140e-03_rb/)
+      kao(:, 4, 2, 8) = (/ &
+     &1.7986e-02_rb,1.7073e-02_rb,1.6287e-02_rb,1.5417e-02_rb,1.4234e-02_rb,1.2722e-02_rb, &
+     &1.1029e-02_rb,9.5450e-03_rb,6.1941e-03_rb/)
+      kao(:, 5, 2, 8) = (/ &
+     &2.1016e-02_rb,2.0104e-02_rb,1.9317e-02_rb,1.8415e-02_rb,1.7125e-02_rb,1.5397e-02_rb, &
+     &1.3573e-02_rb,1.2029e-02_rb,7.9674e-03_rb/)
+      kao(:, 1, 3, 8) = (/ &
+     &1.7495e-02_rb,1.5793e-02_rb,1.4039e-02_rb,1.2465e-02_rb,1.0907e-02_rb,9.1072e-03_rb, &
+     &7.1058e-03_rb,4.8343e-03_rb,1.7832e-03_rb/)
+      kao(:, 2, 3, 8) = (/ &
+     &2.1893e-02_rb,1.9841e-02_rb,1.7709e-02_rb,1.5801e-02_rb,1.3894e-02_rb,1.1662e-02_rb, &
+     &9.2038e-03_rb,6.3817e-03_rb,2.5128e-03_rb/)
+      kao(:, 3, 3, 8) = (/ &
+     &2.6790e-02_rb,2.4372e-02_rb,2.1871e-02_rb,1.9635e-02_rb,1.7311e-02_rb,1.4624e-02_rb, &
+     &1.1658e-02_rb,8.2109e-03_rb,3.4348e-03_rb/)
+      kao(:, 4, 3, 8) = (/ &
+     &3.2142e-02_rb,2.9358e-02_rb,2.6490e-02_rb,2.3921e-02_rb,2.1182e-02_rb,1.8026e-02_rb, &
+     &1.4487e-02_rb,1.0373e-02_rb,4.5646e-03_rb/)
+      kao(:, 5, 3, 8) = (/ &
+     &3.7933e-02_rb,3.4749e-02_rb,3.1541e-02_rb,2.8628e-02_rb,2.5501e-02_rb,2.1864e-02_rb, &
+     &1.7709e-02_rb,1.2883e-02_rb,5.9131e-03_rb/)
+      kao(:, 1, 4, 8) = (/ &
+     &2.9550e-02_rb,2.6227e-02_rb,2.2910e-02_rb,1.9604e-02_rb,1.6469e-02_rb,1.3339e-02_rb, &
+     &9.9415e-03_rb,6.2262e-03_rb,1.2135e-03_rb/)
+      kao(:, 2, 4, 8) = (/ &
+     &3.7687e-02_rb,3.3528e-02_rb,2.9343e-02_rb,2.5186e-02_rb,2.1249e-02_rb,1.7292e-02_rb, &
+     &1.2959e-02_rb,8.2307e-03_rb,1.7374e-03_rb/)
+      kao(:, 3, 4, 8) = (/ &
+     &4.6817e-02_rb,4.1770e-02_rb,3.6634e-02_rb,3.1558e-02_rb,2.6759e-02_rb,2.1861e-02_rb, &
+     &1.6492e-02_rb,1.0607e-02_rb,2.4118e-03_rb/)
+      kao(:, 4, 4, 8) = (/ &
+     &5.6963e-02_rb,5.0934e-02_rb,4.4739e-02_rb,3.8692e-02_rb,3.2979e-02_rb,2.7058e-02_rb, &
+     &2.0566e-02_rb,1.3387e-02_rb,3.2525e-03_rb/)
+      kao(:, 5, 4, 8) = (/ &
+     &6.8137e-02_rb,6.0987e-02_rb,5.3660e-02_rb,4.6589e-02_rb,3.9864e-02_rb,3.2872e-02_rb, &
+     &2.5218e-02_rb,1.6596e-02_rb,4.2777e-03_rb/)
+      kao(:, 1, 5, 8) = (/ &
+     &4.4958e-02_rb,3.9602e-02_rb,3.4298e-02_rb,2.8957e-02_rb,2.3691e-02_rb,1.8601e-02_rb, &
+     &1.3441e-02_rb,7.9068e-03_rb,8.1517e-04_rb/)
+      kao(:, 2, 5, 8) = (/ &
+     &5.8476e-02_rb,5.1578e-02_rb,4.4743e-02_rb,3.7815e-02_rb,3.1045e-02_rb,2.4482e-02_rb, &
+     &1.7770e-02_rb,1.0541e-02_rb,1.1885e-03_rb/)
+      kao(:, 3, 5, 8) = (/ &
+     &7.3906e-02_rb,6.5268e-02_rb,5.6679e-02_rb,4.8013e-02_rb,3.9537e-02_rb,3.1318e-02_rb, &
+     &2.2852e-02_rb,1.3697e-02_rb,1.6746e-03_rb/)
+      kao(:, 4, 5, 8) = (/ &
+     &9.1296e-02_rb,8.0739e-02_rb,7.0175e-02_rb,5.9533e-02_rb,4.9168e-02_rb,3.9100e-02_rb, &
+     &2.8676e-02_rb,1.7397e-02_rb,2.2909e-03_rb/)
+      kao(:, 5, 5, 8) = (/ &
+     &1.1069e-01_rb,9.7986e-02_rb,8.5202e-02_rb,7.2388e-02_rb,5.9975e-02_rb,4.7864e-02_rb, &
+     &3.5291e-02_rb,2.1668e-02_rb,3.0530e-03_rb/)
+      kao(:, 1, 6, 8) = (/ &
+     &6.2124e-02_rb,5.4544e-02_rb,4.6999e-02_rb,3.9470e-02_rb,3.1923e-02_rb,2.4497e-02_rb, &
+     &1.7234e-02_rb,9.7062e-03_rb,5.1266e-04_rb/)
+      kao(:, 2, 6, 8) = (/ &
+     &8.2639e-02_rb,7.2604e-02_rb,6.2611e-02_rb,5.2626e-02_rb,4.2613e-02_rb,3.2833e-02_rb, &
+     &2.3213e-02_rb,1.3144e-02_rb,7.8429e-04_rb/)
+      kao(:, 3, 6, 8) = (/ &
+     &1.0657e-01_rb,9.3700e-02_rb,8.0879e-02_rb,6.8013e-02_rb,5.5195e-02_rb,4.2665e-02_rb, &
+     &3.0306e-02_rb,1.7290e-02_rb,1.1388e-03_rb/)
+      kao(:, 4, 6, 8) = (/ &
+     &1.3398e-01_rb,1.1789e-01_rb,1.0183e-01_rb,8.5694e-02_rb,6.9665e-02_rb,5.3995e-02_rb, &
+     &3.8486e-02_rb,2.2145e-02_rb,1.5829e-03_rb/)
+      kao(:, 5, 6, 8) = (/ &
+     &1.6490e-01_rb,1.4520e-01_rb,1.2544e-01_rb,1.0568e-01_rb,8.6025e-02_rb,6.6861e-02_rb, &
+     &4.7818e-02_rb,2.7758e-02_rb,2.1408e-03_rb/)
+      kao(:, 1, 7, 8) = (/ &
+     &8.8474e-02_rb,7.7539e-02_rb,6.6627e-02_rb,5.5731e-02_rb,4.4842e-02_rb,3.3990e-02_rb, &
+     &2.3276e-02_rb,1.2620e-02_rb,2.5937e-04_rb/)
+      kao(:, 2, 7, 8) = (/ &
+     &1.2057e-01_rb,1.0571e-01_rb,9.0876e-02_rb,7.6061e-02_rb,6.1253e-02_rb,4.6466e-02_rb, &
+     &3.1963e-02_rb,1.7441e-02_rb,4.2731e-04_rb/)
+      kao(:, 3, 7, 8) = (/ &
+     &1.5880e-01_rb,1.3927e-01_rb,1.1980e-01_rb,1.0034e-01_rb,8.0808e-02_rb,6.1423e-02_rb, &
+     &4.2427e-02_rb,2.3279e-02_rb,6.8413e-04_rb/)
+      kao(:, 4, 7, 8) = (/ &
+     &2.0345e-01_rb,1.7853e-01_rb,1.5363e-01_rb,1.2871e-01_rb,1.0372e-01_rb,7.9011e-02_rb, &
+     &5.4743e-02_rb,3.0170e-02_rb,1.0214e-03_rb/)
+      kao(:, 5, 7, 8) = (/ &
+     &2.5461e-01_rb,2.2346e-01_rb,1.9234e-01_rb,1.6117e-01_rb,1.3002e-01_rb,9.9184e-02_rb, &
+     &6.8901e-02_rb,3.8181e-02_rb,1.4552e-03_rb/)
+      kao(:, 1, 8, 8) = (/ &
+     &1.4868e-01_rb,1.3017e-01_rb,1.1167e-01_rb,9.3201e-02_rb,7.4739e-02_rb,5.6278e-02_rb, &
+     &3.7905e-02_rb,1.9693e-02_rb,2.2804e-04_rb/)
+      kao(:, 2, 8, 8) = (/ &
+     &2.0798e-01_rb,1.8213e-01_rb,1.5630e-01_rb,1.3048e-01_rb,1.0468e-01_rb,7.8891e-02_rb, &
+     &5.3152e-02_rb,2.7778e-02_rb,2.9739e-04_rb/)
+      kao(:, 3, 8, 8) = (/ &
+     &2.8017e-01_rb,2.4539e-01_rb,2.1065e-01_rb,1.7590e-01_rb,1.4119e-01_rb,1.0644e-01_rb, &
+     &7.1779e-02_rb,3.7725e-02_rb,3.8946e-04_rb/)
+      kao(:, 4, 8, 8) = (/ &
+     &3.6604e-01_rb,3.2068e-01_rb,2.7532e-01_rb,2.2999e-01_rb,1.8464e-01_rb,1.3919e-01_rb, &
+     &9.4095e-02_rb,4.9659e-02_rb,5.6194e-04_rb/)
+      kao(:, 5, 8, 8) = (/ &
+     &4.6634e-01_rb,4.0858e-01_rb,3.5083e-01_rb,2.9310e-01_rb,2.3536e-01_rb,1.7756e-01_rb, &
+     &1.2024e-01_rb,6.3667e-02_rb,8.0698e-04_rb/)
+      kao(:, 1, 9, 8) = (/ &
+     &4.6269e-01_rb,4.0493e-01_rb,3.4715e-01_rb,2.8935e-01_rb,2.3157e-01_rb,1.7382e-01_rb, &
+     &1.1609e-01_rb,5.8382e-02_rb,3.9623e-04_rb/)
+      kao(:, 2, 9, 8) = (/ &
+     &6.6628e-01_rb,5.8309e-01_rb,4.9991e-01_rb,4.1673e-01_rb,3.3358e-01_rb,2.5043e-01_rb, &
+     &1.6730e-01_rb,8.4243e-02_rb,5.2033e-04_rb/)
+      kao(:, 3, 9, 8) = (/ &
+     &9.1981e-01_rb,8.0501e-01_rb,6.9024e-01_rb,5.7543e-01_rb,4.6067e-01_rb,3.4594e-01_rb, &
+     &2.3120e-01_rb,1.1646e-01_rb,6.1848e-04_rb/)
+      kao(:, 4, 9, 8) = (/ &
+     &1.2275e+00_rb,1.0743e+00_rb,9.2117e-01_rb,7.6798e-01_rb,6.1489e-01_rb,4.6180e-01_rb, &
+     &3.0869e-01_rb,1.5554e-01_rb,7.6432e-04_rb/)
+      kao(:, 5, 9, 8) = (/ &
+     &1.5931e+00_rb,1.3944e+00_rb,1.1956e+00_rb,9.9699e-01_rb,7.9825e-01_rb,5.9958e-01_rb, &
+     &4.0095e-01_rb,2.0227e-01_rb,9.3678e-04_rb/)
+      kao(:, 1,10, 8) = (/ &
+     &1.6306e+00_rb,1.4267e+00_rb,1.2230e+00_rb,1.0192e+00_rb,8.1547e-01_rb,6.1164e-01_rb, &
+     &4.0787e-01_rb,2.0413e-01_rb,4.5853e-04_rb/)
+      kao(:, 2,10, 8) = (/ &
+     &2.4126e+00_rb,2.1111e+00_rb,1.8096e+00_rb,1.5081e+00_rb,1.2066e+00_rb,9.0513e-01_rb, &
+     &6.0364e-01_rb,3.0217e-01_rb,8.3201e-04_rb/)
+      kao(:, 3,10, 8) = (/ &
+     &3.4093e+00_rb,2.9833e+00_rb,2.5573e+00_rb,2.1313e+00_rb,1.7053e+00_rb,1.2792e+00_rb, &
+     &8.5320e-01_rb,4.2724e-01_rb,1.5974e-03_rb/)
+      kao(:, 4,10, 8) = (/ &
+     &4.6433e+00_rb,4.0630e+00_rb,3.4826e+00_rb,2.9025e+00_rb,2.3226e+00_rb,1.7423e+00_rb, &
+     &1.1621e+00_rb,5.8201e-01_rb,1.5962e-03_rb/)
+      kao(:, 5,10, 8) = (/ &
+     &6.1277e+00_rb,5.3619e+00_rb,4.5964e+00_rb,3.8308e+00_rb,3.0651e+00_rb,2.2994e+00_rb, &
+     &1.5338e+00_rb,7.6843e-01_rb,2.0260e-03_rb/)
+      kao(:, 1,11, 8) = (/ &
+     &2.4162e+00_rb,2.1143e+00_rb,1.8124e+00_rb,1.5103e+00_rb,1.2083e+00_rb,9.0631e-01_rb, &
+     &6.0429e-01_rb,3.0233e-01_rb,6.1607e-04_rb/)
+      kao(:, 2,11, 8) = (/ &
+     &3.5951e+00_rb,3.1458e+00_rb,2.6963e+00_rb,2.2470e+00_rb,1.7978e+00_rb,1.3484e+00_rb, &
+     &8.9917e-01_rb,4.4993e-01_rb,6.5176e-04_rb/)
+      kao(:, 3,11, 8) = (/ &
+     &5.1060e+00_rb,4.4678e+00_rb,3.8297e+00_rb,3.1915e+00_rb,2.5535e+00_rb,1.9153e+00_rb, &
+     &1.2772e+00_rb,6.3920e-01_rb,1.2930e-03_rb/)
+      kao(:, 4,11, 8) = (/ &
+     &6.9828e+00_rb,6.1098e+00_rb,5.2373e+00_rb,4.3645e+00_rb,3.4923e+00_rb,2.6195e+00_rb, &
+     &1.7469e+00_rb,8.7439e-01_rb,2.6451e-03_rb/)
+      kao(:, 5,11, 8) = (/ &
+     &9.2372e+00_rb,8.0825e+00_rb,6.9284e+00_rb,5.7745e+00_rb,4.6202e+00_rb,3.4655e+00_rb, &
+     &2.3113e+00_rb,1.1571e+00_rb,3.2091e-03_rb/)
+      kao(:, 1,12, 8) = (/ &
+     &2.6551e+00_rb,2.3231e+00_rb,1.9913e+00_rb,1.6595e+00_rb,1.3276e+00_rb,9.9570e-01_rb, &
+     &6.6396e-01_rb,3.3215e-01_rb,5.7595e-04_rb/)
+      kao(:, 2,12, 8) = (/ &
+     &3.9875e+00_rb,3.4892e+00_rb,2.9906e+00_rb,2.4922e+00_rb,1.9940e+00_rb,1.4956e+00_rb, &
+     &9.9727e-01_rb,4.9897e-01_rb,7.2773e-04_rb/)
+      kao(:, 3,12, 8) = (/ &
+     &5.6951e+00_rb,4.9832e+00_rb,4.2714e+00_rb,3.5598e+00_rb,2.8480e+00_rb,2.1362e+00_rb, &
+     &1.4245e+00_rb,7.1282e-01_rb,1.1732e-03_rb/)
+      kao(:, 4,12, 8) = (/ &
+     &7.8078e+00_rb,6.8322e+00_rb,5.8562e+00_rb,4.8804e+00_rb,3.9048e+00_rb,2.9289e+00_rb, &
+     &1.9532e+00_rb,9.7758e-01_rb,2.5629e-03_rb/)
+      kao(:, 5,12, 8) = (/ &
+     &1.0362e+01_rb,9.0671e+00_rb,7.7724e+00_rb,6.4775e+00_rb,5.1823e+00_rb,3.8873e+00_rb, &
+     &2.5926e+00_rb,1.2977e+00_rb,3.8105e-03_rb/)
+      kao(:, 1,13, 8) = (/ &
+     &2.3258e+00_rb,2.0350e+00_rb,1.7444e+00_rb,1.4537e+00_rb,1.1630e+00_rb,8.7226e-01_rb, &
+     &5.8161e-01_rb,2.9098e-01_rb,5.9908e-04_rb/)
+      kao(:, 2,13, 8) = (/ &
+     &3.5360e+00_rb,3.0938e+00_rb,2.6520e+00_rb,2.2101e+00_rb,1.7681e+00_rb,1.3262e+00_rb, &
+     &8.8435e-01_rb,4.4250e-01_rb,8.1555e-04_rb/)
+      kao(:, 3,13, 8) = (/ &
+     &5.0896e+00_rb,4.4536e+00_rb,3.8175e+00_rb,3.1814e+00_rb,2.5452e+00_rb,1.9091e+00_rb, &
+     &1.2732e+00_rb,6.3712e-01_rb,1.2640e-03_rb/)
+      kao(:, 4,13, 8) = (/ &
+     &7.0210e+00_rb,6.1435e+00_rb,5.2660e+00_rb,4.3886e+00_rb,3.5112e+00_rb,2.6338e+00_rb, &
+     &1.7565e+00_rb,8.7919e-01_rb,2.6701e-03_rb/)
+      kao(:, 5,13, 8) = (/ &
+     &9.3671e+00_rb,8.1963e+00_rb,7.0260e+00_rb,5.8554e+00_rb,4.6849e+00_rb,3.5142e+00_rb, &
+     &2.3437e+00_rb,1.1734e+00_rb,3.9606e-03_rb/)
+      kao(:, 1, 1, 9) = (/ &
+     &1.7557e-02_rb,1.6098e-02_rb,1.5252e-02_rb,1.4591e-02_rb,1.4194e-02_rb,1.3841e-02_rb, &
+     &1.3213e-02_rb,1.1760e-02_rb,1.0941e-02_rb/)
+      kao(:, 2, 1, 9) = (/ &
+     &2.1322e-02_rb,1.9727e-02_rb,1.8932e-02_rb,1.8315e-02_rb,1.8048e-02_rb,1.7757e-02_rb, &
+     &1.7105e-02_rb,1.5377e-02_rb,1.4897e-02_rb/)
+      kao(:, 3, 1, 9) = (/ &
+     &2.5364e-02_rb,2.3730e-02_rb,2.3058e-02_rb,2.2569e-02_rb,2.2483e-02_rb,2.2337e-02_rb, &
+     &2.1647e-02_rb,1.9659e-02_rb,1.9740e-02_rb/)
+      kao(:, 4, 1, 9) = (/ &
+     &2.9651e-02_rb,2.8091e-02_rb,2.7567e-02_rb,2.7373e-02_rb,2.7544e-02_rb,2.7572e-02_rb, &
+     &2.6885e-02_rb,2.4698e-02_rb,2.5506e-02_rb/)
+      kao(:, 5, 1, 9) = (/ &
+     &3.4147e-02_rb,3.2801e-02_rb,3.2509e-02_rb,3.2696e-02_rb,3.3242e-02_rb,3.3466e-02_rb, &
+     &3.2763e-02_rb,3.0530e-02_rb,3.2414e-02_rb/)
+      kao(:, 1, 2, 9) = (/ &
+     &2.4912e-02_rb,2.2331e-02_rb,2.0288e-02_rb,1.8446e-02_rb,1.6840e-02_rb,1.5437e-02_rb, &
+     &1.4050e-02_rb,1.2105e-02_rb,9.2979e-03_rb/)
+      kao(:, 2, 2, 9) = (/ &
+     &3.0564e-02_rb,2.7515e-02_rb,2.5261e-02_rb,2.3219e-02_rb,2.1400e-02_rb,1.9828e-02_rb, &
+     &1.8282e-02_rb,1.5938e-02_rb,1.2847e-02_rb/)
+      kao(:, 3, 2, 9) = (/ &
+     &3.6716e-02_rb,3.3250e-02_rb,3.0813e-02_rb,2.8576e-02_rb,2.6652e-02_rb,2.4969e-02_rb, &
+     &2.3242e-02_rb,2.0434e-02_rb,1.7255e-02_rb/)
+      kao(:, 4, 2, 9) = (/ &
+     &4.3274e-02_rb,3.9470e-02_rb,3.6945e-02_rb,3.4546e-02_rb,3.2567e-02_rb,3.0902e-02_rb, &
+     &2.8990e-02_rb,2.5608e-02_rb,2.2622e-02_rb/)
+      kao(:, 5, 2, 9) = (/ &
+     &5.0151e-02_rb,4.6154e-02_rb,4.3548e-02_rb,4.1147e-02_rb,3.9208e-02_rb,3.7617e-02_rb, &
+     &3.5476e-02_rb,3.1506e-02_rb,2.9070e-02_rb/)
+      kao(:, 1, 3, 9) = (/ &
+     &4.5824e-02_rb,4.0428e-02_rb,3.5360e-02_rb,3.0531e-02_rb,2.5873e-02_rb,2.1515e-02_rb, &
+     &1.7437e-02_rb,1.3182e-02_rb,7.2135e-03_rb/)
+      kao(:, 2, 3, 9) = (/ &
+     &5.7122e-02_rb,5.0441e-02_rb,4.4296e-02_rb,3.8535e-02_rb,3.2887e-02_rb,2.7626e-02_rb, &
+     &2.2637e-02_rb,1.7470e-02_rb,1.0156e-02_rb/)
+      kao(:, 3, 3, 9) = (/ &
+     &6.9514e-02_rb,6.1484e-02_rb,5.4267e-02_rb,4.7520e-02_rb,4.0893e-02_rb,3.4647e-02_rb, &
+     &2.8731e-02_rb,2.2576e-02_rb,1.3878e-02_rb/)
+      kao(:, 4, 3, 9) = (/ &
+     &8.2919e-02_rb,7.3512e-02_rb,6.5273e-02_rb,5.7524e-02_rb,4.9783e-02_rb,4.2603e-02_rb, &
+     &3.5784e-02_rb,2.8563e-02_rb,1.8502e-02_rb/)
+      kao(:, 5, 3, 9) = (/ &
+     &9.7170e-02_rb,8.6431e-02_rb,7.7261e-02_rb,6.8346e-02_rb,5.9584e-02_rb,5.1514e-02_rb, &
+     &4.3768e-02_rb,3.5379e-02_rb,2.4141e-02_rb/)
+      kao(:, 1, 4, 9) = (/ &
+     &8.5028e-02_rb,7.4675e-02_rb,6.4408e-02_rb,5.4349e-02_rb,4.4385e-02_rb,3.4667e-02_rb, &
+     &2.5298e-02_rb,1.6347e-02_rb,5.3723e-03_rb/)
+      kao(:, 2, 4, 9) = (/ &
+     &1.0799e-01_rb,9.4832e-02_rb,8.1887e-02_rb,6.9265e-02_rb,5.6849e-02_rb,4.4649e-02_rb, &
+     &3.2963e-02_rb,2.1613e-02_rb,7.7235e-03_rb/)
+      kao(:, 3, 4, 9) = (/ &
+     &1.3350e-01_rb,1.1723e-01_rb,1.0141e-01_rb,8.6053e-02_rb,7.1006e-02_rb,5.6113e-02_rb, &
+     &4.1792e-02_rb,2.7868e-02_rb,1.0747e-02_rb/)
+      kao(:, 4, 4, 9) = (/ &
+     &1.6142e-01_rb,1.4180e-01_rb,1.2297e-01_rb,1.0476e-01_rb,8.6810e-02_rb,6.8956e-02_rb, &
+     &5.1841e-02_rb,3.5143e-02_rb,1.4564e-02_rb/)
+      kao(:, 5, 4, 9) = (/ &
+     &1.9126e-01_rb,1.6822e-01_rb,1.4629e-01_rb,1.2515e-01_rb,1.0422e-01_rb,8.3176e-02_rb, &
+     &6.3089e-02_rb,4.3500e-02_rb,1.9267e-02_rb/)
+      kao(:, 1, 5, 9) = (/ &
+     &1.4488e-01_rb,1.2702e-01_rb,1.0917e-01_rb,9.1352e-02_rb,7.3672e-02_rb,5.6082e-02_rb, &
+     &3.8867e-02_rb,2.2212e-02_rb,3.9357e-03_rb/)
+      kao(:, 2, 5, 9) = (/ &
+     &1.8767e-01_rb,1.6453e-01_rb,1.4140e-01_rb,1.1846e-01_rb,9.5672e-02_rb,7.3107e-02_rb, &
+     &5.0961e-02_rb,2.9559e-02_rb,5.7686e-03_rb/)
+      kao(:, 3, 5, 9) = (/ &
+     &2.3604e-01_rb,2.0693e-01_rb,1.7791e-01_rb,1.4922e-01_rb,1.2079e-01_rb,9.2713e-02_rb, &
+     &6.4987e-02_rb,3.8154e-02_rb,8.1725e-03_rb/)
+      kao(:, 4, 5, 9) = (/ &
+     &2.8921e-01_rb,2.5355e-01_rb,2.1818e-01_rb,1.8330e-01_rb,1.4882e-01_rb,1.1469e-01_rb, &
+     &8.0893e-02_rb,4.8061e-02_rb,1.1257e-02_rb/)
+      kao(:, 5, 5, 9) = (/ &
+     &3.4679e-01_rb,3.0409e-01_rb,2.6204e-01_rb,2.2057e-01_rb,1.7963e-01_rb,1.3899e-01_rb, &
+     &9.8558e-02_rb,5.9364e-02_rb,1.5113e-02_rb/)
+      kao(:, 1, 6, 9) = (/ &
+     &2.2687e-01_rb,1.9870e-01_rb,1.7053e-01_rb,1.4235e-01_rb,1.1424e-01_rb,8.6261e-02_rb, &
+     &5.8407e-02_rb,3.1198e-02_rb,2.7719e-03_rb/)
+      kao(:, 2, 6, 9) = (/ &
+     &3.0049e-01_rb,2.6318e-01_rb,2.2586e-01_rb,1.8856e-01_rb,1.5147e-01_rb,1.1450e-01_rb, &
+     &7.7818e-02_rb,4.1952e-02_rb,4.1659e-03_rb/)
+      kao(:, 3, 6, 9) = (/ &
+     &3.8494e-01_rb,3.3714e-01_rb,2.8934e-01_rb,2.4170e-01_rb,1.9431e-01_rb,1.4714e-01_rb, &
+     &1.0048e-01_rb,5.4667e-02_rb,6.0249e-03_rb/)
+      kao(:, 4, 6, 9) = (/ &
+     &4.7888e-01_rb,4.1941e-01_rb,3.6000e-01_rb,3.0097e-01_rb,2.4222e-01_rb,1.8390e-01_rb, &
+     &1.2612e-01_rb,6.9245e-02_rb,8.4412e-03_rb/)
+      kao(:, 5, 6, 9) = (/ &
+     &5.8181e-01_rb,5.0960e-01_rb,4.3765e-01_rb,3.6614e-01_rb,2.9513e-01_rb,2.2467e-01_rb, &
+     &1.5478e-01_rb,8.5677e-02_rb,1.1500e-02_rb/)
+      kao(:, 1, 7, 9) = (/ &
+     &3.6399e-01_rb,3.1864e-01_rb,2.7330e-01_rb,2.2796e-01_rb,1.8261e-01_rb,1.3731e-01_rb, &
+     &9.2161e-02_rb,4.7386e-02_rb,1.8335e-03_rb/)
+      kao(:, 2, 7, 9) = (/ &
+     &4.9404e-01_rb,4.3249e-01_rb,3.7094e-01_rb,3.0937e-01_rb,2.4784e-01_rb,1.8651e-01_rb, &
+     &1.2531e-01_rb,6.4814e-02_rb,2.9040e-03_rb/)
+      kao(:, 3, 7, 9) = (/ &
+     &6.4560e-01_rb,5.6518e-01_rb,4.8472e-01_rb,4.0430e-01_rb,3.2403e-01_rb,2.4402e-01_rb, &
+     &1.6421e-01_rb,8.5452e-02_rb,4.3365e-03_rb/)
+      kao(:, 4, 7, 9) = (/ &
+     &8.1690e-01_rb,7.1513e-01_rb,6.1336e-01_rb,5.1171e-01_rb,4.1038e-01_rb,3.0928e-01_rb, &
+     &2.0863e-01_rb,1.0932e-01_rb,6.1934e-03_rb/)
+      kao(:, 5, 7, 9) = (/ &
+     &1.0068e+00_rb,8.8147e-01_rb,7.5616e-01_rb,6.3106e-01_rb,5.0635e-01_rb,3.8205e-01_rb, &
+     &2.5843e-01_rb,1.3634e-01_rb,8.5588e-03_rb/)
+      kao(:, 1, 8, 9) = (/ &
+     &6.8384e-01_rb,5.9848e-01_rb,5.1310e-01_rb,4.2775e-01_rb,3.4242e-01_rb,2.5705e-01_rb, &
+     &1.7171e-01_rb,8.6607e-02_rb,8.9761e-04_rb/)
+      kao(:, 2, 8, 9) = (/ &
+     &9.5272e-01_rb,8.3382e-01_rb,7.1490e-01_rb,5.9597e-01_rb,4.7702e-01_rb,3.5811e-01_rb, &
+     &2.3935e-01_rb,1.2088e-01_rb,1.5768e-03_rb/)
+      kao(:, 3, 8, 9) = (/ &
+     &1.2716e+00_rb,1.1128e+00_rb,9.5409e-01_rb,7.9538e-01_rb,6.3666e-01_rb,4.7804e-01_rb, &
+     &3.1975e-01_rb,1.6179e-01_rb,2.6889e-03_rb/)
+      kao(:, 4, 8, 9) = (/ &
+     &1.6381e+00_rb,1.4337e+00_rb,1.2291e+00_rb,1.0247e+00_rb,8.2031e-01_rb,6.1622e-01_rb, &
+     &4.1239e-01_rb,2.0929e-01_rb,4.1353e-03_rb/)
+      kao(:, 5, 8, 9) = (/ &
+     &2.0497e+00_rb,1.7940e+00_rb,1.5381e+00_rb,1.2824e+00_rb,1.0268e+00_rb,7.7156e-01_rb, &
+     &5.1676e-01_rb,2.6319e-01_rb,6.0327e-03_rb/)
+      kao(:, 1, 9, 9) = (/ &
+     &2.3562e+00_rb,2.0618e+00_rb,1.7675e+00_rb,1.4730e+00_rb,1.1786e+00_rb,8.8409e-01_rb, &
+     &5.8968e-01_rb,2.9523e-01_rb,7.8820e-04_rb/)
+      kao(:, 2, 9, 9) = (/ &
+     &3.3780e+00_rb,2.9558e+00_rb,2.5337e+00_rb,2.1117e+00_rb,1.6896e+00_rb,1.2675e+00_rb, &
+     &8.4537e-01_rb,4.2322e-01_rb,1.1025e-03_rb/)
+      kao(:, 3, 9, 9) = (/ &
+     &4.6138e+00_rb,4.0373e+00_rb,3.4607e+00_rb,2.8840e+00_rb,2.3076e+00_rb,1.7311e+00_rb, &
+     &1.1546e+00_rb,5.7817e-01_rb,1.6643e-03_rb/)
+      kao(:, 4, 9, 9) = (/ &
+     &6.0608e+00_rb,5.3032e+00_rb,4.5462e+00_rb,3.7886e+00_rb,3.0313e+00_rb,2.2740e+00_rb, &
+     &1.5168e+00_rb,7.6000e-01_rb,2.3974e-03_rb/)
+      kao(:, 5, 9, 9) = (/ &
+     &7.7085e+00_rb,6.7454e+00_rb,5.7823e+00_rb,4.8189e+00_rb,3.8558e+00_rb,2.8925e+00_rb, &
+     &1.9295e+00_rb,9.6718e-01_rb,3.2535e-03_rb/)
+      kao(:, 1,10, 9) = (/ &
+     &9.1055e+00_rb,7.9675e+00_rb,6.8292e+00_rb,5.6913e+00_rb,4.5531e+00_rb,3.4149e+00_rb, &
+     &2.2769e+00_rb,1.1388e+00_rb,5.8809e-04_rb/)
+      kao(:, 2,10, 9) = (/ &
+     &1.3404e+01_rb,1.1729e+01_rb,1.0053e+01_rb,8.3780e+00_rb,6.7024e+00_rb,5.0271e+00_rb, &
+     &3.3517e+00_rb,1.6763e+00_rb,9.0563e-04_rb/)
+      kao(:, 3,10, 9) = (/ &
+     &1.8696e+01_rb,1.6359e+01_rb,1.4022e+01_rb,1.1685e+01_rb,9.3484e+00_rb,7.0117e+00_rb, &
+     &4.6747e+00_rb,2.3381e+00_rb,1.7881e-03_rb/)
+      kao(:, 4,10, 9) = (/ &
+     &2.4995e+01_rb,2.1869e+01_rb,1.8747e+01_rb,1.5622e+01_rb,1.2498e+01_rb,9.3741e+00_rb, &
+     &6.2500e+00_rb,3.1259e+00_rb,3.1813e-03_rb/)
+      kao(:, 5,10, 9) = (/ &
+     &3.2273e+01_rb,2.8239e+01_rb,2.4206e+01_rb,2.0172e+01_rb,1.6138e+01_rb,1.2104e+01_rb, &
+     &8.0701e+00_rb,4.0364e+00_rb,3.7345e-03_rb/)
+      kao(:, 1,11, 9) = (/ &
+     &1.4610e+01_rb,1.2784e+01_rb,1.0958e+01_rb,9.1318e+00_rb,7.3053e+00_rb,5.4792e+00_rb, &
+     &3.6529e+00_rb,1.8269e+00_rb,9.3673e-05_rb/)
+      kao(:, 2,11, 9) = (/ &
+     &2.1482e+01_rb,1.8797e+01_rb,1.6112e+01_rb,1.3427e+01_rb,1.0742e+01_rb,8.0564e+00_rb, &
+     &5.3711e+00_rb,2.6860e+00_rb,1.0848e-03_rb/)
+      kao(:, 3,11, 9) = (/ &
+     &2.9982e+01_rb,2.6234e+01_rb,2.2487e+01_rb,1.8739e+01_rb,1.4992e+01_rb,1.1244e+01_rb, &
+     &7.4965e+00_rb,3.7489e+00_rb,1.4593e-03_rb/)
+      kao(:, 4,11, 9) = (/ &
+     &4.0102e+01_rb,3.5090e+01_rb,3.0079e+01_rb,2.5065e+01_rb,2.0053e+01_rb,1.5039e+01_rb, &
+     &1.0027e+01_rb,5.0144e+00_rb,2.0582e-03_rb/)
+      kao(:, 5,11, 9) = (/ &
+     &5.1873e+01_rb,4.5387e+01_rb,3.8905e+01_rb,3.2421e+01_rb,2.5937e+01_rb,1.9453e+01_rb, &
+     &1.2970e+01_rb,6.4862e+00_rb,4.4703e-03_rb/)
+      kao(:, 1,12, 9) = (/ &
+     &1.7189e+01_rb,1.5041e+01_rb,1.2892e+01_rb,1.0744e+01_rb,8.5949e+00_rb,6.4462e+00_rb, &
+     &4.2976e+00_rb,2.1491e+00_rb,3.9266e-05_rb/)
+      kao(:, 2,12, 9) = (/ &
+     &2.5282e+01_rb,2.2121e+01_rb,1.8962e+01_rb,1.5801e+01_rb,1.2641e+01_rb,9.4811e+00_rb, &
+     &6.3210e+00_rb,3.1609e+00_rb,6.4444e-04_rb/)
+      kao(:, 3,12, 9) = (/ &
+     &3.5289e+01_rb,3.0879e+01_rb,2.6468e+01_rb,2.2056e+01_rb,1.7646e+01_rb,1.3235e+01_rb, &
+     &8.8231e+00_rb,4.4124e+00_rb,1.8228e-03_rb/)
+      kao(:, 4,12, 9) = (/ &
+     &4.7291e+01_rb,4.1381e+01_rb,3.5468e+01_rb,2.9558e+01_rb,2.3647e+01_rb,1.7735e+01_rb, &
+     &1.1825e+01_rb,5.9130e+00_rb,2.3757e-03_rb/)
+      kao(:, 5,12, 9) = (/ &
+     &6.1297e+01_rb,5.3636e+01_rb,4.5972e+01_rb,3.8311e+01_rb,3.0649e+01_rb,2.2988e+01_rb, &
+     &1.5326e+01_rb,7.6642e+00_rb,3.9341e-03_rb/)
+      kao(:, 1,13, 9) = (/ &
+     &1.6000e+01_rb,1.4000e+01_rb,1.2000e+01_rb,9.9998e+00_rb,8.0002e+00_rb,6.0002e+00_rb, &
+     &4.0003e+00_rb,2.0005e+00_rb,3.8486e-05_rb/)
+      kao(:, 2,13, 9) = (/ &
+     &2.3551e+01_rb,2.0607e+01_rb,1.7663e+01_rb,1.4719e+01_rb,1.1776e+01_rb,8.8325e+00_rb, &
+     &5.8883e+00_rb,2.9447e+00_rb,5.3945e-04_rb/)
+      kao(:, 3,13, 9) = (/ &
+     &3.2950e+01_rb,2.8830e+01_rb,2.4711e+01_rb,2.0594e+01_rb,1.6475e+01_rb,1.2356e+01_rb, &
+     &8.2382e+00_rb,4.1197e+00_rb,1.7722e-03_rb/)
+      kao(:, 4,13, 9) = (/ &
+     &4.4263e+01_rb,3.8730e+01_rb,3.3198e+01_rb,2.7666e+01_rb,2.2132e+01_rb,1.6600e+01_rb, &
+     &1.1067e+01_rb,5.5345e+00_rb,2.5081e-03_rb/)
+      kao(:, 5,13, 9) = (/ &
+     &5.7461e+01_rb,5.0277e+01_rb,4.3096e+01_rb,3.5913e+01_rb,2.8731e+01_rb,2.1549e+01_rb, &
+     &1.4366e+01_rb,7.1843e+00_rb,4.3602e-03_rb/)
+      kao(:, 1, 1,10) = (/ &
+     &4.8312e-02_rb,4.2395e-02_rb,3.7029e-02_rb,3.4268e-02_rb,3.1631e-02_rb,2.8012e-02_rb, &
+     &2.4227e-02_rb,1.9340e-02_rb,2.3819e-02_rb/)
+      kao(:, 2, 1,10) = (/ &
+     &5.7978e-02_rb,5.0880e-02_rb,4.5259e-02_rb,4.2684e-02_rb,3.9233e-02_rb,3.5182e-02_rb, &
+     &3.0643e-02_rb,2.5810e-02_rb,3.1295e-02_rb/)
+      kao(:, 3, 1,10) = (/ &
+     &6.8091e-02_rb,5.9773e-02_rb,5.4735e-02_rb,5.1517e-02_rb,4.7810e-02_rb,4.2960e-02_rb, &
+     &3.8310e-02_rb,3.3678e-02_rb,4.0832e-02_rb/)
+      kao(:, 4, 1,10) = (/ &
+     &7.8444e-02_rb,6.8870e-02_rb,6.5474e-02_rb,6.0764e-02_rb,5.6861e-02_rb,5.2020e-02_rb, &
+     &4.6525e-02_rb,4.3019e-02_rb,5.3025e-02_rb/)
+      kao(:, 5, 1,10) = (/ &
+     &8.8955e-02_rb,7.8190e-02_rb,7.6227e-02_rb,7.0877e-02_rb,6.6771e-02_rb,6.2214e-02_rb, &
+     &5.5680e-02_rb,5.4857e-02_rb,6.6965e-02_rb/)
+      kao(:, 1, 2,10) = (/ &
+     &6.8494e-02_rb,6.0019e-02_rb,5.1535e-02_rb,4.5753e-02_rb,4.0717e-02_rb,3.4636e-02_rb, &
+     &2.8735e-02_rb,2.2359e-02_rb,2.2396e-02_rb/)
+      kao(:, 2, 2,10) = (/ &
+     &8.3057e-02_rb,7.2786e-02_rb,6.2703e-02_rb,5.6353e-02_rb,5.0990e-02_rb,4.3733e-02_rb, &
+     &3.6309e-02_rb,2.8660e-02_rb,2.9863e-02_rb/)
+      kao(:, 3, 2,10) = (/ &
+     &9.8445e-02_rb,8.6268e-02_rb,7.5172e-02_rb,6.9101e-02_rb,6.1861e-02_rb,5.3608e-02_rb, &
+     &4.5462e-02_rb,3.5628e-02_rb,3.9584e-02_rb/)
+      kao(:, 4, 2,10) = (/ &
+     &1.1465e-01_rb,1.0047e-01_rb,8.9322e-02_rb,8.2399e-02_rb,7.3847e-02_rb,6.4459e-02_rb, &
+     &5.5729e-02_rb,4.5259e-02_rb,5.1011e-02_rb/)
+      kao(:, 5, 2,10) = (/ &
+     &1.3121e-01_rb,1.1499e-01_rb,1.0547e-01_rb,9.5942e-02_rb,8.6700e-02_rb,7.6912e-02_rb, &
+     &6.7683e-02_rb,5.7087e-02_rb,6.4331e-02_rb/)
+      kao(:, 1, 3,10) = (/ &
+     &1.2396e-01_rb,1.0851e-01_rb,9.3078e-02_rb,7.7936e-02_rb,6.5430e-02_rb,5.3555e-02_rb, &
+     &4.0149e-02_rb,2.8165e-02_rb,1.9103e-02_rb/)
+      kao(:, 2, 3,10) = (/ &
+     &1.5308e-01_rb,1.3401e-01_rb,1.1495e-01_rb,9.6317e-02_rb,8.2061e-02_rb,6.7720e-02_rb, &
+     &5.1563e-02_rb,3.6346e-02_rb,2.6147e-02_rb/)
+      kao(:, 3, 3,10) = (/ &
+     &1.8438e-01_rb,1.6143e-01_rb,1.3846e-01_rb,1.1685e-01_rb,1.0065e-01_rb,8.3573e-02_rb, &
+     &6.4169e-02_rb,4.6273e-02_rb,3.5249e-02_rb/)
+      kao(:, 4, 3,10) = (/ &
+     &2.1730e-01_rb,1.9024e-01_rb,1.6317e-01_rb,1.3937e-01_rb,1.2182e-01_rb,1.0076e-01_rb, &
+     &7.7802e-02_rb,5.7458e-02_rb,4.6106e-02_rb/)
+      kao(:, 5, 3,10) = (/ &
+     &2.5114e-01_rb,2.1989e-01_rb,1.8862e-01_rb,1.6558e-01_rb,1.4330e-01_rb,1.1936e-01_rb, &
+     &9.3594e-02_rb,7.0438e-02_rb,5.9048e-02_rb/)
+      kao(:, 1, 4,10) = (/ &
+     &2.2307e-01_rb,1.9520e-01_rb,1.6737e-01_rb,1.3960e-01_rb,1.1281e-01_rb,8.7662e-02_rb, &
+     &6.3355e-02_rb,3.7440e-02_rb,1.5143e-02_rb/)
+      kao(:, 2, 4,10) = (/ &
+     &2.8121e-01_rb,2.4610e-01_rb,2.1101e-01_rb,1.7601e-01_rb,1.4219e-01_rb,1.1180e-01_rb, &
+     &8.0961e-02_rb,4.9348e-02_rb,2.1248e-02_rb/)
+      kao(:, 3, 4,10) = (/ &
+     &3.4426e-01_rb,3.0128e-01_rb,2.5831e-01_rb,2.1545e-01_rb,1.7407e-01_rb,1.3850e-01_rb, &
+     &1.0170e-01_rb,6.2450e-02_rb,2.9486e-02_rb/)
+      kao(:, 4, 4,10) = (/ &
+     &4.1162e-01_rb,3.6021e-01_rb,3.0885e-01_rb,2.5755e-01_rb,2.0938e-01_rb,1.6873e-01_rb, &
+     &1.2428e-01_rb,7.7637e-02_rb,3.9623e-02_rb/)
+      kao(:, 5, 4,10) = (/ &
+     &4.8400e-01_rb,4.2357e-01_rb,3.6318e-01_rb,3.0275e-01_rb,2.4837e-01_rb,2.0175e-01_rb, &
+     &1.4904e-01_rb,9.5123e-02_rb,5.2032e-02_rb/)
+      kao(:, 1, 5,10) = (/ &
+     &3.6240e-01_rb,3.1713e-01_rb,2.7189e-01_rb,2.2715e-01_rb,1.8287e-01_rb,1.3915e-01_rb, &
+     &9.6038e-02_rb,5.3151e-02_rb,1.1469e-02_rb/)
+      kao(:, 2, 5,10) = (/ &
+     &4.6684e-01_rb,4.0853e-01_rb,3.5029e-01_rb,2.9260e-01_rb,2.3543e-01_rb,1.7892e-01_rb, &
+     &1.2501e-01_rb,6.9710e-02_rb,1.6590e-02_rb/)
+      kao(:, 3, 5,10) = (/ &
+     &5.8305e-01_rb,5.1017e-01_rb,4.3746e-01_rb,3.6540e-01_rb,2.9385e-01_rb,2.2314e-01_rb, &
+     &1.5770e-01_rb,8.9552e-02_rb,2.3682e-02_rb/)
+      kao(:, 4, 5,10) = (/ &
+     &7.1039e-01_rb,6.2164e-01_rb,5.3285e-01_rb,4.4486e-01_rb,3.5759e-01_rb,2.7242e-01_rb, &
+     &1.9452e-01_rb,1.1176e-01_rb,3.2616e-02_rb/)
+      kao(:, 5, 5,10) = (/ &
+     &8.4585e-01_rb,7.4016e-01_rb,6.3454e-01_rb,5.2965e-01_rb,4.2558e-01_rb,3.2651e-01_rb, &
+     &2.3601e-01_rb,1.3577e-01_rb,4.3721e-02_rb/)
+      kao(:, 1, 6,10) = (/ &
+     &5.4565e-01_rb,4.7774e-01_rb,4.0998e-01_rb,3.4242e-01_rb,2.7503e-01_rb,2.0802e-01_rb, &
+     &1.4092e-01_rb,7.4294e-02_rb,8.5994e-03_rb/)
+      kao(:, 2, 6,10) = (/ &
+     &7.2281e-01_rb,6.3285e-01_rb,5.4312e-01_rb,4.5353e-01_rb,3.6423e-01_rb,2.7526e-01_rb, &
+     &1.8607e-01_rb,9.8990e-02_rb,1.2620e-02_rb/)
+      kao(:, 3, 6,10) = (/ &
+     &9.2293e-01_rb,8.0812e-01_rb,6.9347e-01_rb,5.7897e-01_rb,4.6479e-01_rb,3.5103e-01_rb, &
+     &2.3728e-01_rb,1.2747e-01_rb,1.8407e-02_rb/)
+      kao(:, 4, 6,10) = (/ &
+     &1.1448e+00_rb,1.0023e+00_rb,8.6003e-01_rb,7.1795e-01_rb,5.7619e-01_rb,4.3493e-01_rb, &
+     &2.9519e-01_rb,1.6083e-01_rb,2.5918e-02_rb/)
+      kao(:, 5, 6,10) = (/ &
+     &1.3870e+00_rb,1.2144e+00_rb,1.0419e+00_rb,8.6977e-01_rb,6.9789e-01_rb,5.2651e-01_rb, &
+     &3.5987e-01_rb,1.9795e-01_rb,3.5516e-02_rb/)
+      kao(:, 1, 7,10) = (/ &
+     &9.0563e-01_rb,7.9294e-01_rb,6.8033e-01_rb,5.6775e-01_rb,4.5526e-01_rb,3.4288e-01_rb, &
+     &2.2993e-01_rb,1.1636e-01_rb,6.3281e-03_rb/)
+      kao(:, 2, 7,10) = (/ &
+     &1.2304e+00_rb,1.0774e+00_rb,9.2435e-01_rb,7.7129e-01_rb,6.1846e-01_rb,4.6574e-01_rb, &
+     &3.1230e-01_rb,1.5802e-01_rb,9.6345e-03_rb/)
+      kao(:, 3, 7,10) = (/ &
+     &1.6067e+00_rb,1.4068e+00_rb,1.2068e+00_rb,1.0069e+00_rb,8.0717e-01_rb,6.0759e-01_rb, &
+     &4.0707e-01_rb,2.0698e-01_rb,1.4230e-02_rb/)
+      kao(:, 4, 7,10) = (/ &
+     &2.0379e+00_rb,1.7842e+00_rb,1.5305e+00_rb,1.2770e+00_rb,1.0235e+00_rb,7.6992e-01_rb, &
+     &5.1539e-01_rb,2.6359e-01_rb,2.0362e-02_rb/)
+      kao(:, 5, 7,10) = (/ &
+     &2.5042e+00_rb,2.1925e+00_rb,1.8806e+00_rb,1.5690e+00_rb,1.2574e+00_rb,9.4558e-01_rb, &
+     &6.3281e-01_rb,3.2569e-01_rb,2.8537e-02_rb/)
+      kao(:, 1, 8,10) = (/ &
+     &1.8551e+00_rb,1.6239e+00_rb,1.3926e+00_rb,1.1613e+00_rb,9.2995e-01_rb,6.9848e-01_rb, &
+     &4.6667e-01_rb,2.3461e-01_rb,3.7282e-03_rb/)
+      kao(:, 2, 8,10) = (/ &
+     &2.5887e+00_rb,2.2659e+00_rb,1.9430e+00_rb,1.6201e+00_rb,1.2969e+00_rb,9.7383e-01_rb, &
+     &6.5051e-01_rb,3.2684e-01_rb,7.1685e-03_rb/)
+      kao(:, 3, 8,10) = (/ &
+     &3.4601e+00_rb,3.0282e+00_rb,2.5964e+00_rb,2.1645e+00_rb,1.7327e+00_rb,1.3007e+00_rb, &
+     &8.6869e-01_rb,4.3618e-01_rb,1.0869e-02_rb/)
+      kao(:, 4, 8,10) = (/ &
+     &4.4635e+00_rb,3.9062e+00_rb,3.3492e+00_rb,2.7923e+00_rb,2.2350e+00_rb,1.6778e+00_rb, &
+     &1.1202e+00_rb,5.6241e-01_rb,1.5855e-02_rb/)
+      kao(:, 5, 8,10) = (/ &
+     &5.5614e+00_rb,4.8670e+00_rb,4.1730e+00_rb,3.4788e+00_rb,2.7845e+00_rb,2.0899e+00_rb, &
+     &1.3954e+00_rb,7.0042e-01_rb,2.2369e-02_rb/)
+      kao(:, 1, 9,10) = (/ &
+     &7.0057e+00_rb,6.1306e+00_rb,5.2555e+00_rb,4.3802e+00_rb,3.5047e+00_rb,2.6291e+00_rb, &
+     &1.7537e+00_rb,8.7821e-01_rb,2.6651e-03_rb/)
+      kao(:, 2, 9,10) = (/ &
+     &1.0071e+01_rb,8.8120e+00_rb,7.5539e+00_rb,6.2955e+00_rb,5.0368e+00_rb,3.7786e+00_rb, &
+     &2.5204e+00_rb,1.2618e+00_rb,3.6187e-03_rb/)
+      kao(:, 3, 9,10) = (/ &
+     &1.3793e+01_rb,1.2069e+01_rb,1.0345e+01_rb,8.6215e+00_rb,6.8979e+00_rb,5.1747e+00_rb, &
+     &3.4512e+00_rb,1.7274e+00_rb,5.0886e-03_rb/)
+      kao(:, 4, 9,10) = (/ &
+     &1.8095e+01_rb,1.5834e+01_rb,1.3574e+01_rb,1.1311e+01_rb,9.0505e+00_rb,6.7893e+00_rb, &
+     &4.5277e+00_rb,2.2659e+00_rb,6.6445e-03_rb/)
+      kao(:, 5, 9,10) = (/ &
+     &2.2909e+01_rb,2.0046e+01_rb,1.7183e+01_rb,1.4320e+01_rb,1.1458e+01_rb,8.5941e+00_rb, &
+     &5.7315e+00_rb,2.8684e+00_rb,1.0715e-02_rb/)
+      kao(:, 1,10,10) = (/ &
+     &2.9637e+01_rb,2.5932e+01_rb,2.2227e+01_rb,1.8524e+01_rb,1.4818e+01_rb,1.1115e+01_rb, &
+     &7.4105e+00_rb,3.7062e+00_rb,1.7663e-03_rb/)
+      kao(:, 2,10,10) = (/ &
+     &4.3734e+01_rb,3.8266e+01_rb,3.2801e+01_rb,2.7334e+01_rb,2.1867e+01_rb,1.6402e+01_rb, &
+     &1.0936e+01_rb,5.4691e+00_rb,2.0817e-03_rb/)
+      kao(:, 3,10,10) = (/ &
+     &6.1232e+01_rb,5.3576e+01_rb,4.5921e+01_rb,3.8272e+01_rb,3.0616e+01_rb,2.2963e+01_rb, &
+     &1.5310e+01_rb,7.6576e+00_rb,1.7504e-03_rb/)
+      kao(:, 4,10,10) = (/ &
+     &8.1674e+01_rb,7.1459e+01_rb,6.1256e+01_rb,5.1048e+01_rb,4.0839e+01_rb,3.0631e+01_rb, &
+     &2.0421e+01_rb,1.0211e+01_rb,7.5551e-03_rb/)
+      kao(:, 5,10,10) = (/ &
+     &1.0484e+02_rb,9.1726e+01_rb,7.8618e+01_rb,6.5522e+01_rb,5.2414e+01_rb,3.9315e+01_rb, &
+     &2.6210e+01_rb,1.3108e+01_rb,1.2092e-02_rb/)
+      kao(:, 1,11,10) = (/ &
+     &5.2035e+01_rb,4.5533e+01_rb,3.9026e+01_rb,3.2522e+01_rb,2.6019e+01_rb,1.9514e+01_rb, &
+     &1.3010e+01_rb,6.5060e+00_rb,2.3377e-05_rb/)
+      kao(:, 2,11,10) = (/ &
+     &7.6878e+01_rb,6.7270e+01_rb,5.7660e+01_rb,4.8051e+01_rb,3.8444e+01_rb,2.8832e+01_rb, &
+     &1.9221e+01_rb,9.6129e+00_rb,3.4131e-05_rb/)
+      kao(:, 3,11,10) = (/ &
+     &1.0695e+02_rb,9.3584e+01_rb,8.0221e+01_rb,6.6851e+01_rb,5.3480e+01_rb,4.0109e+01_rb, &
+     &2.6742e+01_rb,1.3372e+01_rb,6.5532e-03_rb/)
+      kao(:, 4,11,10) = (/ &
+     &1.4204e+02_rb,1.2428e+02_rb,1.0653e+02_rb,8.8779e+01_rb,7.1025e+01_rb,5.3267e+01_rb, &
+     &3.5513e+01_rb,1.7760e+01_rb,3.6230e-03_rb/)
+      kao(:, 5,11,10) = (/ &
+     &1.8146e+02_rb,1.5877e+02_rb,1.3608e+02_rb,1.1341e+02_rb,9.0723e+01_rb,6.8041e+01_rb, &
+     &4.5364e+01_rb,2.2685e+01_rb,5.3060e-03_rb/)
+      kao(:, 1,12,10) = (/ &
+     &6.6709e+01_rb,5.8372e+01_rb,5.0033e+01_rb,4.1695e+01_rb,3.3357e+01_rb,2.5018e+01_rb, &
+     &1.6679e+01_rb,8.3409e+00_rb,1.6896e-05_rb/)
+      kao(:, 2,12,10) = (/ &
+     &9.8021e+01_rb,8.5767e+01_rb,7.3510e+01_rb,6.1263e+01_rb,4.9006e+01_rb,3.6758e+01_rb, &
+     &2.4506e+01_rb,1.2254e+01_rb,2.4443e-05_rb/)
+      kao(:, 3,12,10) = (/ &
+     &1.3575e+02_rb,1.1880e+02_rb,1.0183e+02_rb,8.4855e+01_rb,6.7883e+01_rb,5.0907e+01_rb, &
+     &3.3942e+01_rb,1.6972e+01_rb,3.9041e-05_rb/)
+      kao(:, 4,12,10) = (/ &
+     &1.7930e+02_rb,1.5689e+02_rb,1.3447e+02_rb,1.1206e+02_rb,8.9651e+01_rb,6.7236e+01_rb, &
+     &4.4831e+01_rb,2.2414e+01_rb,2.5406e-03_rb/)
+      kao(:, 5,12,10) = (/ &
+     &2.2752e+02_rb,1.9909e+02_rb,1.7067e+02_rb,1.4220e+02_rb,1.1376e+02_rb,8.5325e+01_rb, &
+     &5.6889e+01_rb,2.8448e+01_rb,5.4913e-03_rb/)
+      kao(:, 1,13,10) = (/ &
+     &6.7103e+01_rb,5.8720e+01_rb,5.0329e+01_rb,4.1943e+01_rb,3.3555e+01_rb,2.5165e+01_rb, &
+     &1.6777e+01_rb,8.3902e+00_rb,1.5511e-05_rb/)
+      kao(:, 2,13,10) = (/ &
+     &9.7787e+01_rb,8.5564e+01_rb,7.3344e+01_rb,6.1125e+01_rb,4.8896e+01_rb,3.6672e+01_rb, &
+     &2.4451e+01_rb,1.2226e+01_rb,2.1977e-05_rb/)
+      kao(:, 3,13,10) = (/ &
+     &1.3463e+02_rb,1.1780e+02_rb,1.0097e+02_rb,8.4145e+01_rb,6.7313e+01_rb,5.0486e+01_rb, &
+     &3.3658e+01_rb,1.6832e+01_rb,3.2342e-05_rb/)
+      kao(:, 4,13,10) = (/ &
+     &1.7688e+02_rb,1.5477e+02_rb,1.3267e+02_rb,1.1056e+02_rb,8.8438e+01_rb,6.6334e+01_rb, &
+     &4.4220e+01_rb,2.2113e+01_rb,5.6189e-03_rb/)
+      kao(:, 5,13,10) = (/ &
+     &2.2476e+02_rb,1.9667e+02_rb,1.6857e+02_rb,1.4047e+02_rb,1.1238e+02_rb,8.4289e+01_rb, &
+     &5.6195e+01_rb,2.8100e+01_rb,6.0459e-03_rb/)
+      kao(:, 1, 1,11) = (/ &
+     &6.9001e-02_rb,6.0529e-02_rb,5.2064e-02_rb,4.5590e-02_rb,4.0628e-02_rb,3.5945e-02_rb, &
+     &2.9389e-02_rb,2.3144e-02_rb,2.9176e-02_rb/)
+      kao(:, 2, 1,11) = (/ &
+     &8.2103e-02_rb,7.2020e-02_rb,6.1937e-02_rb,5.5694e-02_rb,5.0508e-02_rb,4.4515e-02_rb, &
+     &3.6553e-02_rb,3.0757e-02_rb,3.9695e-02_rb/)
+      kao(:, 3, 1,11) = (/ &
+     &9.5630e-02_rb,8.3878e-02_rb,7.2481e-02_rb,6.7965e-02_rb,6.0680e-02_rb,5.4180e-02_rb, &
+     &4.4143e-02_rb,4.0422e-02_rb,5.1968e-02_rb/)
+      kao(:, 4, 1,11) = (/ &
+     &1.0928e-01_rb,9.5880e-02_rb,8.4382e-02_rb,8.0469e-02_rb,7.1798e-02_rb,6.4108e-02_rb, &
+     &5.3608e-02_rb,5.2409e-02_rb,6.6870e-02_rb/)
+      kao(:, 5, 1,11) = (/ &
+     &1.2299e-01_rb,1.0790e-01_rb,9.8888e-02_rb,9.2808e-02_rb,8.4009e-02_rb,7.5069e-02_rb, &
+     &6.6004e-02_rb,6.6900e-02_rb,8.4455e-02_rb/)
+      kao(:, 1, 2,11) = (/ &
+     &1.0031e-01_rb,8.7857e-02_rb,7.5407e-02_rb,6.3060e-02_rb,5.4499e-02_rb,4.6504e-02_rb, &
+     &3.6770e-02_rb,2.6380e-02_rb,2.8413e-02_rb/)
+      kao(:, 2, 2,11) = (/ &
+     &1.2053e-01_rb,1.0559e-01_rb,9.0627e-02_rb,7.6829e-02_rb,6.7033e-02_rb,5.8104e-02_rb, &
+     &4.6509e-02_rb,3.3638e-02_rb,3.8310e-02_rb/)
+      kao(:, 3, 2,11) = (/ &
+     &1.4155e-01_rb,1.2398e-01_rb,1.0644e-01_rb,9.2248e-02_rb,8.1983e-02_rb,7.0441e-02_rb, &
+     &5.6590e-02_rb,4.3821e-02_rb,5.0130e-02_rb/)
+      kao(:, 4, 2,11) = (/ &
+     &1.6305e-01_rb,1.4282e-01_rb,1.2262e-01_rb,1.1049e-01_rb,9.7062e-02_rb,8.3848e-02_rb, &
+     &6.7975e-02_rb,5.5529e-02_rb,6.5378e-02_rb/)
+      kao(:, 5, 2,11) = (/ &
+     &1.8507e-01_rb,1.6212e-01_rb,1.3962e-01_rb,1.2935e-01_rb,1.1281e-01_rb,9.7726e-02_rb, &
+     &8.0117e-02_rb,6.9954e-02_rb,8.3371e-02_rb/)
+      kao(:, 1, 3,11) = (/ &
+     &1.8667e-01_rb,1.6338e-01_rb,1.4010e-01_rb,1.1682e-01_rb,9.3557e-02_rb,7.4325e-02_rb, &
+     &5.5984e-02_rb,3.5878e-02_rb,2.5531e-02_rb/)
+      kao(:, 2, 3,11) = (/ &
+     &2.2795e-01_rb,1.9954e-01_rb,1.7113e-01_rb,1.4270e-01_rb,1.1480e-01_rb,9.2509e-02_rb, &
+     &7.0623e-02_rb,4.6178e-02_rb,3.4917e-02_rb/)
+      kao(:, 3, 3,11) = (/ &
+     &2.7211e-01_rb,2.3816e-01_rb,2.0423e-01_rb,1.7032e-01_rb,1.3866e-01_rb,1.1338e-01_rb, &
+     &8.6877e-02_rb,5.7191e-02_rb,4.6054e-02_rb/)
+      kao(:, 4, 3,11) = (/ &
+     &3.1770e-01_rb,2.7809e-01_rb,2.3849e-01_rb,1.9887e-01_rb,1.6548e-01_rb,1.3614e-01_rb, &
+     &1.0464e-01_rb,7.0039e-02_rb,6.0217e-02_rb/)
+      kao(:, 5, 3,11) = (/ &
+     &3.6403e-01_rb,3.1863e-01_rb,2.7328e-01_rb,2.2795e-01_rb,1.9641e-01_rb,1.5908e-01_rb, &
+     &1.2312e-01_rb,8.3529e-02_rb,7.7572e-02_rb/)
+      kao(:, 1, 4,11) = (/ &
+     &3.4588e-01_rb,3.0268e-01_rb,2.5948e-01_rb,2.1629e-01_rb,1.7307e-01_rb,1.2990e-01_rb, &
+     &9.1217e-02_rb,5.3135e-02_rb,2.1767e-02_rb/)
+      kao(:, 2, 4,11) = (/ &
+     &4.3145e-01_rb,3.7755e-01_rb,3.2366e-01_rb,2.6977e-01_rb,2.1589e-01_rb,1.6201e-01_rb, &
+     &1.1572e-01_rb,6.8208e-02_rb,3.0409e-02_rb/)
+      kao(:, 3, 4,11) = (/ &
+     &5.2311e-01_rb,4.5776e-01_rb,3.9244e-01_rb,3.2707e-01_rb,2.6176e-01_rb,1.9718e-01_rb, &
+     &1.4225e-01_rb,8.5649e-02_rb,4.0906e-02_rb/)
+      kao(:, 4, 4,11) = (/ &
+     &6.1949e-01_rb,5.4214e-01_rb,4.6476e-01_rb,3.8737e-01_rb,3.1001e-01_rb,2.3606e-01_rb, &
+     &1.7310e-01_rb,1.0459e-01_rb,5.4382e-02_rb/)
+      kao(:, 5, 4,11) = (/ &
+     &7.1941e-01_rb,6.2950e-01_rb,5.3975e-01_rb,4.4985e-01_rb,3.6002e-01_rb,2.8013e-01_rb, &
+     &2.0492e-01_rb,1.2467e-01_rb,7.0400e-02_rb/)
+      kao(:, 1, 5,11) = (/ &
+     &5.8048e-01_rb,5.0796e-01_rb,4.3542e-01_rb,3.6286e-01_rb,2.9032e-01_rb,2.1780e-01_rb, &
+     &1.4642e-01_rb,8.0688e-02_rb,1.7624e-02_rb/)
+      kao(:, 2, 5,11) = (/ &
+     &7.4078e-01_rb,6.4817e-01_rb,5.5562e-01_rb,4.6305e-01_rb,3.7047e-01_rb,2.7793e-01_rb, &
+     &1.8667e-01_rb,1.0393e-01_rb,2.5321e-02_rb/)
+      kao(:, 3, 5,11) = (/ &
+     &9.1562e-01_rb,8.0121e-01_rb,6.8680e-01_rb,5.7241e-01_rb,4.5798e-01_rb,3.4354e-01_rb, &
+     &2.3145e-01_rb,1.3051e-01_rb,3.5008e-02_rb/)
+      kao(:, 4, 5,11) = (/ &
+     &1.1041e+00_rb,9.6607e-01_rb,8.2810e-01_rb,6.9018e-01_rb,5.5220e-01_rb,4.1422e-01_rb, &
+     &2.8137e-01_rb,1.6106e-01_rb,4.7504e-02_rb/)
+      kao(:, 5, 5,11) = (/ &
+     &1.3000e+00_rb,1.1374e+00_rb,9.7498e-01_rb,8.1255e-01_rb,6.5013e-01_rb,4.8767e-01_rb, &
+     &3.3622e-01_rb,1.9350e-01_rb,6.2782e-02_rb/)
+      kao(:, 1, 6,11) = (/ &
+     &8.9158e-01_rb,7.8014e-01_rb,6.6870e-01_rb,5.5724e-01_rb,4.4582e-01_rb,3.3441e-01_rb, &
+     &2.2372e-01_rb,1.1615e-01_rb,1.3452e-02_rb/)
+      kao(:, 2, 6,11) = (/ &
+     &1.1678e+00_rb,1.0218e+00_rb,8.7586e-01_rb,7.2991e-01_rb,5.8393e-01_rb,4.3799e-01_rb, &
+     &2.9305e-01_rb,1.5296e-01_rb,1.9872e-02_rb/)
+      kao(:, 3, 6,11) = (/ &
+     &1.4777e+00_rb,1.2930e+00_rb,1.1083e+00_rb,9.2359e-01_rb,7.3888e-01_rb,5.5427e-01_rb, &
+     &3.7059e-01_rb,1.9566e-01_rb,2.8227e-02_rb/)
+      kao(:, 4, 6,11) = (/ &
+     &1.8119e+00_rb,1.5855e+00_rb,1.3592e+00_rb,1.1325e+00_rb,9.0614e-01_rb,6.7964e-01_rb, &
+     &4.5430e-01_rb,2.4269e-01_rb,3.9342e-02_rb/)
+      kao(:, 5, 6,11) = (/ &
+     &2.1657e+00_rb,1.8951e+00_rb,1.6242e+00_rb,1.3536e+00_rb,1.0830e+00_rb,8.1233e-01_rb, &
+     &5.4303e-01_rb,2.9520e-01_rb,5.3415e-02_rb/)
+      kao(:, 1, 7,11) = (/ &
+     &1.4142e+00_rb,1.2374e+00_rb,1.0606e+00_rb,8.8396e-01_rb,7.0710e-01_rb,5.3041e-01_rb, &
+     &3.5484e-01_rb,1.8101e-01_rb,1.0092e-02_rb/)
+      kao(:, 2, 7,11) = (/ &
+     &1.9068e+00_rb,1.6686e+00_rb,1.4303e+00_rb,1.1919e+00_rb,9.5353e-01_rb,7.1519e-01_rb, &
+     &4.7813e-01_rb,2.4337e-01_rb,1.5041e-02_rb/)
+      kao(:, 3, 7,11) = (/ &
+     &2.4672e+00_rb,2.1587e+00_rb,1.8505e+00_rb,1.5421e+00_rb,1.2336e+00_rb,9.2548e-01_rb, &
+     &6.1872e-01_rb,3.1448e-01_rb,2.1900e-02_rb/)
+      kao(:, 4, 7,11) = (/ &
+     &3.0809e+00_rb,2.6959e+00_rb,2.3109e+00_rb,1.9258e+00_rb,1.5405e+00_rb,1.1559e+00_rb, &
+     &7.7290e-01_rb,3.9302e-01_rb,3.1410e-02_rb/)
+      kao(:, 5, 7,11) = (/ &
+     &3.7474e+00_rb,3.2787e+00_rb,2.8103e+00_rb,2.3419e+00_rb,1.8737e+00_rb,1.4060e+00_rb, &
+     &9.3991e-01_rb,4.7981e-01_rb,4.3693e-02_rb/)
+      kao(:, 1, 8,11) = (/ &
+     &2.6683e+00_rb,2.3349e+00_rb,2.0012e+00_rb,1.6677e+00_rb,1.3344e+00_rb,1.0014e+00_rb, &
+     &6.6874e-01_rb,3.3701e-01_rb,7.4648e-03_rb/)
+      kao(:, 2, 8,11) = (/ &
+     &3.7060e+00_rb,3.2430e+00_rb,2.7797e+00_rb,2.3168e+00_rb,1.8539e+00_rb,1.3914e+00_rb, &
+     &9.2912e-01_rb,4.6800e-01_rb,1.1435e-02_rb/)
+      kao(:, 3, 8,11) = (/ &
+     &4.9130e+00_rb,4.2993e+00_rb,3.6854e+00_rb,3.0718e+00_rb,2.4583e+00_rb,1.8451e+00_rb, &
+     &1.2322e+00_rb,6.2028e-01_rb,1.6885e-02_rb/)
+      kao(:, 4, 8,11) = (/ &
+     &6.2797e+00_rb,5.4950e+00_rb,4.7108e+00_rb,3.9265e+00_rb,3.1420e+00_rb,2.3582e+00_rb, &
+     &1.5746e+00_rb,7.9222e-01_rb,2.4688e-02_rb/)
+      kao(:, 5, 8,11) = (/ &
+     &7.7638e+00_rb,6.7943e+00_rb,5.8243e+00_rb,4.8546e+00_rb,3.8850e+00_rb,2.9154e+00_rb, &
+     &1.9466e+00_rb,9.7896e-01_rb,3.5101e-02_rb/)
+      kao(:, 1, 9,11) = (/ &
+     &9.7135e+00_rb,8.4998e+00_rb,7.2860e+00_rb,6.0723e+00_rb,4.8583e+00_rb,3.6448e+00_rb, &
+     &2.4304e+00_rb,1.2171e+00_rb,3.5233e-03_rb/)
+      kao(:, 2, 9,11) = (/ &
+     &1.3929e+01_rb,1.2189e+01_rb,1.0449e+01_rb,8.7078e+00_rb,6.9673e+00_rb,5.2263e+00_rb, &
+     &3.4856e+00_rb,1.7453e+00_rb,4.1308e-03_rb/)
+      kao(:, 3, 9,11) = (/ &
+     &1.8989e+01_rb,1.6615e+01_rb,1.4243e+01_rb,1.1869e+01_rb,9.4966e+00_rb,7.1244e+00_rb, &
+     &4.7516e+00_rb,2.3792e+00_rb,6.6319e-03_rb/)
+      kao(:, 4, 9,11) = (/ &
+     &2.4785e+01_rb,2.1688e+01_rb,1.8591e+01_rb,1.5493e+01_rb,1.2396e+01_rb,9.2991e+00_rb, &
+     &6.2019e+00_rb,3.1051e+00_rb,1.1490e-02_rb/)
+      kao(:, 5, 9,11) = (/ &
+     &3.1283e+01_rb,2.7373e+01_rb,2.3465e+01_rb,1.9556e+01_rb,1.5646e+01_rb,1.1737e+01_rb, &
+     &7.8279e+00_rb,3.9188e+00_rb,2.1019e-02_rb/)
+      kao(:, 1,10,11) = (/ &
+     &4.1666e+01_rb,3.6458e+01_rb,3.1251e+01_rb,2.6043e+01_rb,2.0835e+01_rb,1.5628e+01_rb, &
+     &1.0419e+01_rb,5.2119e+00_rb,1.6494e-03_rb/)
+      kao(:, 2,10,11) = (/ &
+     &6.1694e+01_rb,5.3987e+01_rb,4.6271e+01_rb,3.8561e+01_rb,3.0850e+01_rb,2.3139e+01_rb, &
+     &1.5428e+01_rb,7.7161e+00_rb,4.8320e-03_rb/)
+      kao(:, 3,10,11) = (/ &
+     &8.6109e+01_rb,7.5347e+01_rb,6.4581e+01_rb,5.3821e+01_rb,4.3056e+01_rb,3.2294e+01_rb, &
+     &2.1533e+01_rb,1.0770e+01_rb,3.2818e-03_rb/)
+      kao(:, 4,10,11) = (/ &
+     &1.1458e+02_rb,1.0025e+02_rb,8.5946e+01_rb,7.1620e+01_rb,5.7298e+01_rb,4.2975e+01_rb, &
+     &2.8651e+01_rb,1.4330e+01_rb,1.0923e-02_rb/)
+      kao(:, 5,10,11) = (/ &
+     &1.4689e+02_rb,1.2853e+02_rb,1.1017e+02_rb,9.1808e+01_rb,7.3452e+01_rb,5.5088e+01_rb, &
+     &3.6731e+01_rb,1.8371e+01_rb,1.7421e-02_rb/)
+      kao(:, 1,11,11) = (/ &
+     &7.6402e+01_rb,6.6855e+01_rb,5.7300e+01_rb,4.7753e+01_rb,3.8204e+01_rb,2.8655e+01_rb, &
+     &1.9105e+01_rb,9.5538e+00_rb,4.1075e-05_rb/)
+      kao(:, 2,11,11) = (/ &
+     &1.1253e+02_rb,9.8463e+01_rb,8.4399e+01_rb,7.0331e+01_rb,5.6269e+01_rb,4.2202e+01_rb, &
+     &2.8136e+01_rb,1.4070e+01_rb,5.7635e-05_rb/)
+      kao(:, 3,11,11) = (/ &
+     &1.5636e+02_rb,1.3680e+02_rb,1.1725e+02_rb,9.7724e+01_rb,7.8173e+01_rb,5.8632e+01_rb, &
+     &3.9090e+01_rb,1.9548e+01_rb,8.0706e-05_rb/)
+      kao(:, 4,11,11) = (/ &
+     &2.0774e+02_rb,1.8177e+02_rb,1.5580e+02_rb,1.2984e+02_rb,1.0387e+02_rb,7.7908e+01_rb, &
+     &5.1937e+01_rb,2.5972e+01_rb,1.1256e-02_rb/)
+      kao(:, 5,11,11) = (/ &
+     &2.6504e+02_rb,2.3192e+02_rb,1.9880e+02_rb,1.6566e+02_rb,1.3254e+02_rb,9.9402e+01_rb, &
+     &6.6269e+01_rb,3.3138e+01_rb,8.3317e-03_rb/)
+      kao(:, 1,12,11) = (/ &
+     &1.0209e+02_rb,8.9323e+01_rb,7.6564e+01_rb,6.3800e+01_rb,5.1042e+01_rb,3.8285e+01_rb, &
+     &2.5522e+01_rb,1.2763e+01_rb,2.5628e-05_rb/)
+      kao(:, 2,12,11) = (/ &
+     &1.4952e+02_rb,1.3083e+02_rb,1.1214e+02_rb,9.3447e+01_rb,7.4760e+01_rb,5.6068e+01_rb, &
+     &3.7381e+01_rb,1.8692e+01_rb,3.7727e-05_rb/)
+      kao(:, 3,12,11) = (/ &
+     &2.0709e+02_rb,1.8121e+02_rb,1.5533e+02_rb,1.2944e+02_rb,1.0355e+02_rb,7.7656e+01_rb, &
+     &5.1777e+01_rb,2.5887e+01_rb,4.7198e-05_rb/)
+      kao(:, 4,12,11) = (/ &
+     &2.7380e+02_rb,2.3961e+02_rb,2.0536e+02_rb,1.7114e+02_rb,1.3691e+02_rb,1.0268e+02_rb, &
+     &6.8461e+01_rb,3.4230e+01_rb,7.7074e-03_rb/)
+      kao(:, 5,12,11) = (/ &
+     &3.4895e+02_rb,3.0533e+02_rb,2.6172e+02_rb,2.1811e+02_rb,1.7449e+02_rb,1.3086e+02_rb, &
+     &8.7241e+01_rb,4.3626e+01_rb,8.7565e-03_rb/)
+      kao(:, 1,13,11) = (/ &
+     &1.0675e+02_rb,9.3411e+01_rb,8.0067e+01_rb,6.6725e+01_rb,5.3379e+01_rb,4.0032e+01_rb, &
+     &2.6688e+01_rb,1.3347e+01_rb,1.6230e-05_rb/)
+      kao(:, 2,13,11) = (/ &
+     &1.5608e+02_rb,1.3657e+02_rb,1.1706e+02_rb,9.7552e+01_rb,7.8046e+01_rb,5.8531e+01_rb, &
+     &3.9024e+01_rb,1.9513e+01_rb,2.2466e-05_rb/)
+      kao(:, 3,13,11) = (/ &
+     &2.1549e+02_rb,1.8855e+02_rb,1.6162e+02_rb,1.3468e+02_rb,1.0774e+02_rb,8.0803e+01_rb, &
+     &5.3874e+01_rb,2.6939e+01_rb,3.0542e-05_rb/)
+      kao(:, 4,13,11) = (/ &
+     &2.8371e+02_rb,2.4826e+02_rb,2.1280e+02_rb,1.7733e+02_rb,1.4186e+02_rb,1.0640e+02_rb, &
+     &7.0935e+01_rb,3.5470e+01_rb,1.3758e-03_rb/)
+      kao(:, 5,13,11) = (/ &
+     &3.5962e+02_rb,3.1467e+02_rb,2.6973e+02_rb,2.2478e+02_rb,1.7981e+02_rb,1.3487e+02_rb, &
+     &8.9910e+01_rb,4.4960e+01_rb,3.9903e-03_rb/)
+      kao(:, 1, 1,12) = (/ &
+     &9.6318e-02_rb,8.4306e-02_rb,7.2320e-02_rb,6.0347e-02_rb,5.2079e-02_rb,4.4235e-02_rb, &
+     &3.5296e-02_rb,3.0172e-02_rb,3.8372e-02_rb/)
+      kao(:, 2, 1,12) = (/ &
+     &1.1333e-01_rb,9.9268e-02_rb,8.5214e-02_rb,7.2014e-02_rb,6.3588e-02_rb,5.4323e-02_rb, &
+     &4.4306e-02_rb,4.1727e-02_rb,5.1292e-02_rb/)
+      kao(:, 3, 1,12) = (/ &
+     &1.3065e-01_rb,1.1448e-01_rb,9.8324e-02_rb,8.5358e-02_rb,7.7141e-02_rb,6.4277e-02_rb, &
+     &5.5750e-02_rb,5.5415e-02_rb,6.7933e-02_rb/)
+      kao(:, 4, 1,12) = (/ &
+     &1.4795e-01_rb,1.2969e-01_rb,1.1146e-01_rb,1.0185e-01_rb,9.0045e-02_rb,7.5178e-02_rb, &
+     &6.8885e-02_rb,7.0700e-02_rb,8.8138e-02_rb/)
+      kao(:, 5, 1,12) = (/ &
+     &1.6491e-01_rb,1.4461e-01_rb,1.2472e-01_rb,1.1761e-01_rb,1.0268e-01_rb,8.7802e-02_rb, &
+     &8.5057e-02_rb,9.0208e-02_rb,1.1284e-01_rb/)
+      kao(:, 1, 2,12) = (/ &
+     &1.4316e-01_rb,1.2534e-01_rb,1.0752e-01_rb,8.9701e-02_rb,7.2577e-02_rb,5.9608e-02_rb, &
+     &4.6628e-02_rb,3.2233e-02_rb,3.6922e-02_rb/)
+      kao(:, 2, 2,12) = (/ &
+     &1.7023e-01_rb,1.4907e-01_rb,1.2790e-01_rb,1.0674e-01_rb,8.8738e-02_rb,7.3250e-02_rb, &
+     &5.7353e-02_rb,4.3254e-02_rb,4.9659e-02_rb/)
+      kao(:, 3, 2,12) = (/ &
+     &1.9792e-01_rb,1.7332e-01_rb,1.4875e-01_rb,1.2418e-01_rb,1.0651e-01_rb,8.8601e-02_rb, &
+     &6.9038e-02_rb,5.5574e-02_rb,6.6062e-02_rb/)
+      kao(:, 4, 2,12) = (/ &
+     &2.2567e-01_rb,1.9768e-01_rb,1.6971e-01_rb,1.4278e-01_rb,1.2696e-01_rb,1.0366e-01_rb, &
+     &8.1948e-02_rb,7.1191e-02_rb,8.6127e-02_rb/)
+      kao(:, 5, 2,12) = (/ &
+     &2.5314e-01_rb,2.2175e-01_rb,1.9032e-01_rb,1.6565e-01_rb,1.4606e-01_rb,1.1970e-01_rb, &
+     &9.8165e-02_rb,9.0526e-02_rb,1.1061e-01_rb/)
+      kao(:, 1, 3,12) = (/ &
+     &2.7385e-01_rb,2.3971e-01_rb,2.0552e-01_rb,1.7136e-01_rb,1.3716e-01_rb,1.0300e-01_rb, &
+     &7.5178e-02_rb,4.5691e-02_rb,3.3533e-02_rb/)
+      kao(:, 2, 3,12) = (/ &
+     &3.3090e-01_rb,2.8961e-01_rb,2.4836e-01_rb,2.0707e-01_rb,1.6581e-01_rb,1.2597e-01_rb, &
+     &9.2542e-02_rb,5.7168e-02_rb,4.5647e-02_rb/)
+      kao(:, 3, 3,12) = (/ &
+     &3.8960e-01_rb,3.4098e-01_rb,2.9239e-01_rb,2.4379e-01_rb,1.9517e-01_rb,1.5181e-01_rb, &
+     &1.1308e-01_rb,7.0212e-02_rb,6.1610e-02_rb/)
+      kao(:, 4, 3,12) = (/ &
+     &4.4888e-01_rb,3.9285e-01_rb,3.3686e-01_rb,2.8085e-01_rb,2.2487e-01_rb,1.8074e-01_rb, &
+     &1.3367e-01_rb,8.4795e-02_rb,8.0803e-02_rb/)
+      kao(:, 5, 3,12) = (/ &
+     &5.0777e-01_rb,4.4444e-01_rb,3.8104e-01_rb,3.1773e-01_rb,2.5631e-01_rb,2.1146e-01_rb, &
+     &1.5502e-01_rb,1.0449e-01_rb,1.0410e-01_rb/)
+      kao(:, 1, 4,12) = (/ &
+     &5.2233e-01_rb,4.5708e-01_rb,3.9182e-01_rb,3.2654e-01_rb,2.6131e-01_rb,1.9604e-01_rb, &
+     &1.3079e-01_rb,7.4640e-02_rb,2.9498e-02_rb/)
+      kao(:, 2, 4,12) = (/ &
+     &6.4217e-01_rb,5.6200e-01_rb,4.8174e-01_rb,4.0151e-01_rb,3.2131e-01_rb,2.4104e-01_rb, &
+     &1.6124e-01_rb,9.3279e-02_rb,4.1076e-02_rb/)
+      kao(:, 3, 4,12) = (/ &
+     &7.6818e-01_rb,6.7216e-01_rb,5.7628e-01_rb,4.8026e-01_rb,3.8431e-01_rb,2.8834e-01_rb, &
+     &1.9584e-01_rb,1.1499e-01_rb,5.5764e-02_rb/)
+      kao(:, 4, 4,12) = (/ &
+     &8.9714e-01_rb,7.8510e-01_rb,6.7304e-01_rb,5.6095e-01_rb,4.4882e-01_rb,3.3677e-01_rb, &
+     &2.3398e-01_rb,1.3732e-01_rb,7.3695e-02_rb/)
+      kao(:, 5, 4,12) = (/ &
+     &1.0267e+00_rb,8.9838e-01_rb,7.7018e-01_rb,6.4193e-01_rb,5.1368e-01_rb,3.8545e-01_rb, &
+     &2.7687e-01_rb,1.6073e-01_rb,9.6046e-02_rb/)
+      kao(:, 1, 5,12) = (/ &
+     &9.0551e-01_rb,7.9235e-01_rb,6.7918e-01_rb,5.6601e-01_rb,4.5286e-01_rb,3.3967e-01_rb, &
+     &2.2649e-01_rb,1.1543e-01_rb,2.5575e-02_rb/)
+      kao(:, 2, 5,12) = (/ &
+     &1.1369e+00_rb,9.9490e-01_rb,8.5273e-01_rb,7.1065e-01_rb,5.6855e-01_rb,4.2647e-01_rb, &
+     &2.8441e-01_rb,1.4706e-01_rb,3.6472e-02_rb/)
+      kao(:, 3, 5,12) = (/ &
+     &1.3835e+00_rb,1.2106e+00_rb,1.0376e+00_rb,8.6468e-01_rb,6.9181e-01_rb,5.1896e-01_rb, &
+     &3.4607e-01_rb,1.8250e-01_rb,5.0201e-02_rb/)
+      kao(:, 4, 5,12) = (/ &
+     &1.6400e+00_rb,1.4350e+00_rb,1.2302e+00_rb,1.0252e+00_rb,8.2021e-01_rb,6.1526e-01_rb, &
+     &4.1028e-01_rb,2.2034e-01_rb,6.6839e-02_rb/)
+      kao(:, 5, 5,12) = (/ &
+     &1.9010e+00_rb,1.6635e+00_rb,1.4259e+00_rb,1.1884e+00_rb,9.5076e-01_rb,7.1323e-01_rb, &
+     &4.7563e-01_rb,2.6201e-01_rb,8.7568e-02_rb/)
+      kao(:, 1, 6,12) = (/ &
+     &1.4399e+00_rb,1.2599e+00_rb,1.0800e+00_rb,9.0001e-01_rb,7.2000e-01_rb,5.4003e-01_rb, &
+     &3.6008e-01_rb,1.8026e-01_rb,2.1293e-02_rb/)
+      kao(:, 2, 6,12) = (/ &
+     &1.8513e+00_rb,1.6198e+00_rb,1.3886e+00_rb,1.1570e+00_rb,9.2575e-01_rb,6.9429e-01_rb, &
+     &4.6294e-01_rb,2.3182e-01_rb,3.1128e-02_rb/)
+      kao(:, 3, 6,12) = (/ &
+     &2.3002e+00_rb,2.0128e+00_rb,1.7253e+00_rb,1.4377e+00_rb,1.1502e+00_rb,8.6271e-01_rb, &
+     &5.7522e-01_rb,2.8786e-01_rb,4.3673e-02_rb/)
+      kao(:, 4, 6,12) = (/ &
+     &2.7724e+00_rb,2.4259e+00_rb,2.0792e+00_rb,1.7327e+00_rb,1.3862e+00_rb,1.0398e+00_rb, &
+     &6.9321e-01_rb,3.4832e-01_rb,5.9465e-02_rb/)
+      kao(:, 5, 6,12) = (/ &
+     &3.2575e+00_rb,2.8504e+00_rb,2.4432e+00_rb,2.0359e+00_rb,1.6288e+00_rb,1.2216e+00_rb, &
+     &8.1457e-01_rb,4.1431e-01_rb,7.8852e-02_rb/)
+      kao(:, 1, 7,12) = (/ &
+     &2.3706e+00_rb,2.0741e+00_rb,1.7778e+00_rb,1.4816e+00_rb,1.1852e+00_rb,8.8892e-01_rb, &
+     &5.9261e-01_rb,2.9636e-01_rb,1.6814e-02_rb/)
+      kao(:, 2, 7,12) = (/ &
+     &3.1315e+00_rb,2.7398e+00_rb,2.3484e+00_rb,1.9572e+00_rb,1.5657e+00_rb,1.1742e+00_rb, &
+     &7.8297e-01_rb,3.9150e-01_rb,2.5425e-02_rb/)
+      kao(:, 3, 7,12) = (/ &
+     &3.9698e+00_rb,3.4734e+00_rb,2.9772e+00_rb,2.4811e+00_rb,1.9850e+00_rb,1.4887e+00_rb, &
+     &9.9245e-01_rb,4.9628e-01_rb,3.6698e-02_rb/)
+      kao(:, 4, 7,12) = (/ &
+     &4.8729e+00_rb,4.2639e+00_rb,3.6548e+00_rb,3.0457e+00_rb,2.4366e+00_rb,1.8275e+00_rb, &
+     &1.2184e+00_rb,6.0927e-01_rb,5.1098e-02_rb/)
+      kao(:, 5, 7,12) = (/ &
+     &5.8302e+00_rb,5.1015e+00_rb,4.3726e+00_rb,3.6438e+00_rb,2.9154e+00_rb,2.1865e+00_rb, &
+     &1.4578e+00_rb,7.2896e-01_rb,6.9201e-02_rb/)
+      kao(:, 1, 8,12) = (/ &
+     &4.6083e+00_rb,4.0328e+00_rb,3.4566e+00_rb,2.8804e+00_rb,2.3046e+00_rb,1.7283e+00_rb, &
+     &1.1523e+00_rb,5.7615e-01_rb,1.2896e-02_rb/)
+      kao(:, 2, 8,12) = (/ &
+     &6.2568e+00_rb,5.4739e+00_rb,4.6922e+00_rb,3.9099e+00_rb,3.1281e+00_rb,2.3461e+00_rb, &
+     &1.5641e+00_rb,7.8209e-01_rb,1.9880e-02_rb/)
+      kao(:, 3, 8,12) = (/ &
+     &8.1358e+00_rb,7.1187e+00_rb,6.1015e+00_rb,5.0849e+00_rb,4.0679e+00_rb,3.0509e+00_rb, &
+     &2.0338e+00_rb,1.0170e+00_rb,2.9497e-02_rb/)
+      kao(:, 4, 8,12) = (/ &
+     &1.0204e+01_rb,8.9284e+00_rb,7.6531e+00_rb,6.3773e+00_rb,5.1020e+00_rb,3.8269e+00_rb, &
+     &2.5510e+00_rb,1.2755e+00_rb,4.2115e-02_rb/)
+      kao(:, 5, 8,12) = (/ &
+     &1.2434e+01_rb,1.0880e+01_rb,9.3260e+00_rb,7.7708e+00_rb,6.2169e+00_rb,4.6632e+00_rb, &
+     &3.1088e+00_rb,1.5543e+00_rb,5.8665e-02_rb/)
+      kao(:, 1, 9,12) = (/ &
+     &1.6573e+01_rb,1.4502e+01_rb,1.2430e+01_rb,1.0358e+01_rb,8.2865e+00_rb,6.2149e+00_rb, &
+     &4.1429e+00_rb,2.0717e+00_rb,3.2506e-03_rb/)
+      kao(:, 2, 9,12) = (/ &
+     &2.3241e+01_rb,2.0336e+01_rb,1.7432e+01_rb,1.4525e+01_rb,1.1622e+01_rb,8.7162e+00_rb, &
+     &5.8106e+00_rb,2.9051e+00_rb,8.0054e-03_rb/)
+      kao(:, 3, 9,12) = (/ &
+     &3.1035e+01_rb,2.7156e+01_rb,2.3277e+01_rb,1.9396e+01_rb,1.5516e+01_rb,1.1638e+01_rb, &
+     &7.7589e+00_rb,3.8795e+00_rb,1.2478e-02_rb/)
+      kao(:, 4, 9,12) = (/ &
+     &3.9794e+01_rb,3.4820e+01_rb,2.9846e+01_rb,2.4871e+01_rb,1.9897e+01_rb,1.4923e+01_rb, &
+     &9.9485e+00_rb,4.9745e+00_rb,2.7934e-02_rb/)
+      kao(:, 5, 9,12) = (/ &
+     &4.9259e+01_rb,4.3099e+01_rb,3.6943e+01_rb,3.0785e+01_rb,2.4628e+01_rb,1.8472e+01_rb, &
+     &1.2315e+01_rb,6.1576e+00_rb,4.7661e-02_rb/)
+      kao(:, 1,10,12) = (/ &
+     &6.7160e+01_rb,5.8765e+01_rb,5.0369e+01_rb,4.1974e+01_rb,3.3581e+01_rb,2.5186e+01_rb, &
+     &1.6790e+01_rb,8.3953e+00_rb,3.7061e-05_rb/)
+      kao(:, 2,10,12) = (/ &
+     &9.7116e+01_rb,8.4979e+01_rb,7.2826e+01_rb,6.0693e+01_rb,4.8559e+01_rb,3.6416e+01_rb, &
+     &2.4277e+01_rb,1.2139e+01_rb,5.3890e-03_rb/)
+      kao(:, 3,10,12) = (/ &
+     &1.3274e+02_rb,1.1614e+02_rb,9.9552e+01_rb,8.2959e+01_rb,6.6370e+01_rb,4.9775e+01_rb, &
+     &3.3183e+01_rb,1.6592e+01_rb,5.5995e-03_rb/)
+      kao(:, 4,10,12) = (/ &
+     &1.7342e+02_rb,1.5174e+02_rb,1.3008e+02_rb,1.0839e+02_rb,8.6716e+01_rb,6.5036e+01_rb, &
+     &4.3354e+01_rb,2.1678e+01_rb,7.3568e-03_rb/)
+      kao(:, 5,10,12) = (/ &
+     &2.1869e+02_rb,1.9137e+02_rb,1.6402e+02_rb,1.3669e+02_rb,1.0934e+02_rb,8.2010e+01_rb, &
+     &5.4674e+01_rb,2.7339e+01_rb,1.9171e-02_rb/)
+      kao(:, 1,11,12) = (/ &
+     &1.1512e+02_rb,1.0073e+02_rb,8.6335e+01_rb,7.1940e+01_rb,5.7559e+01_rb,4.3164e+01_rb, &
+     &2.8776e+01_rb,1.4390e+01_rb,3.3905e-05_rb/)
+      kao(:, 2,11,12) = (/ &
+     &1.6697e+02_rb,1.4609e+02_rb,1.2523e+02_rb,1.0436e+02_rb,8.3482e+01_rb,6.2612e+01_rb, &
+     &4.1744e+01_rb,2.0873e+01_rb,5.9590e-05_rb/)
+      kao(:, 3,11,12) = (/ &
+     &2.2930e+02_rb,2.0064e+02_rb,1.7196e+02_rb,1.4331e+02_rb,1.1466e+02_rb,8.5994e+01_rb, &
+     &5.7327e+01_rb,2.8668e+01_rb,8.9833e-05_rb/)
+      kao(:, 4,11,12) = (/ &
+     &3.0132e+02_rb,2.6364e+02_rb,2.2598e+02_rb,1.8835e+02_rb,1.5066e+02_rb,1.1300e+02_rb, &
+     &7.5334e+01_rb,3.7671e+01_rb,8.4167e-03_rb/)
+      kao(:, 5,11,12) = (/ &
+     &3.8162e+02_rb,3.3392e+02_rb,2.8622e+02_rb,2.3853e+02_rb,1.9083e+02_rb,1.4312e+02_rb, &
+     &9.5410e+01_rb,4.7709e+01_rb,1.8161e-02_rb/)
+      kao(:, 1,12,12) = (/ &
+     &1.5129e+02_rb,1.3238e+02_rb,1.1347e+02_rb,9.4558e+01_rb,7.5645e+01_rb,5.6733e+01_rb, &
+     &3.7823e+01_rb,1.8915e+01_rb,3.6770e-05_rb/)
+      kao(:, 2,12,12) = (/ &
+     &2.2053e+02_rb,1.9297e+02_rb,1.6541e+02_rb,1.3784e+02_rb,1.1026e+02_rb,8.2702e+01_rb, &
+     &5.5137e+01_rb,2.7573e+01_rb,5.2389e-05_rb/)
+      kao(:, 3,12,12) = (/ &
+     &3.0464e+02_rb,2.6657e+02_rb,2.2849e+02_rb,1.9040e+02_rb,1.5233e+02_rb,1.1424e+02_rb, &
+     &7.6159e+01_rb,3.8090e+01_rb,7.1306e-05_rb/)
+      kao(:, 4,12,12) = (/ &
+     &4.0144e+02_rb,3.5128e+02_rb,3.0110e+02_rb,2.5092e+02_rb,2.0072e+02_rb,1.5055e+02_rb, &
+     &1.0037e+02_rb,5.0190e+01_rb,9.4766e-05_rb/)
+      kao(:, 5,12,12) = (/ &
+     &5.1041e+02_rb,4.4660e+02_rb,3.8281e+02_rb,3.1900e+02_rb,2.5521e+02_rb,1.9140e+02_rb, &
+     &1.2761e+02_rb,6.3809e+01_rb,8.9549e-03_rb/)
+      kao(:, 1,13,12) = (/ &
+     &1.6406e+02_rb,1.4356e+02_rb,1.2306e+02_rb,1.0255e+02_rb,8.2037e+01_rb,6.1534e+01_rb, &
+     &4.1023e+01_rb,2.0513e+01_rb,2.9105e-05_rb/)
+      kao(:, 2,13,12) = (/ &
+     &2.3966e+02_rb,2.0971e+02_rb,1.7976e+02_rb,1.4978e+02_rb,1.1983e+02_rb,8.9879e+01_rb, &
+     &5.9920e+01_rb,2.9966e+01_rb,3.6736e-05_rb/)
+      kao(:, 3,13,12) = (/ &
+     &3.3040e+02_rb,2.8909e+02_rb,2.4781e+02_rb,2.0651e+02_rb,1.6521e+02_rb,1.2390e+02_rb, &
+     &8.2608e+01_rb,4.1307e+01_rb,4.7139e-05_rb/)
+      kao(:, 4,13,12) = (/ &
+     &4.3608e+02_rb,3.8160e+02_rb,3.2708e+02_rb,2.7256e+02_rb,2.1804e+02_rb,1.6354e+02_rb, &
+     &1.0903e+02_rb,5.4517e+01_rb,5.9953e-05_rb/)
+      kao(:, 5,13,12) = (/ &
+     &5.5401e+02_rb,4.8478e+02_rb,4.1553e+02_rb,3.4627e+02_rb,2.7701e+02_rb,2.0776e+02_rb, &
+     &1.3851e+02_rb,6.9261e+01_rb,1.3826e-02_rb/)
+      kao(:, 1, 1,13) = (/ &
+     &1.2490e-01_rb,1.0932e-01_rb,9.3720e-02_rb,7.8121e-02_rb,6.3794e-02_rb,5.1600e-02_rb, &
+     &4.4680e-02_rb,4.2635e-02_rb,5.5634e-02_rb/)
+      kao(:, 2, 1,13) = (/ &
+     &1.4548e-01_rb,1.2733e-01_rb,1.0918e-01_rb,9.1021e-02_rb,7.6620e-02_rb,6.3500e-02_rb, &
+     &5.7581e-02_rb,5.7524e-02_rb,7.4793e-02_rb/)
+      kao(:, 3, 1,13) = (/ &
+     &1.6600e-01_rb,1.4529e-01_rb,1.2460e-01_rb,1.0392e-01_rb,9.0379e-02_rb,7.8694e-02_rb, &
+     &7.4384e-02_rb,7.8232e-02_rb,9.9775e-02_rb/)
+      kao(:, 4, 1,13) = (/ &
+     &1.8636e-01_rb,1.6314e-01_rb,1.3994e-01_rb,1.1863e-01_rb,1.0661e-01_rb,9.7110e-02_rb, &
+     &9.8012e-02_rb,1.0654e-01_rb,1.3265e-01_rb/)
+      kao(:, 5, 1,13) = (/ &
+     &2.0606e-01_rb,1.8040e-01_rb,1.5476e-01_rb,1.3669e-01_rb,1.2405e-01_rb,1.1873e-01_rb, &
+     &1.2869e-01_rb,1.4070e-01_rb,1.7529e-01_rb/)
+      kao(:, 1, 2,13) = (/ &
+     &1.8895e-01_rb,1.6535e-01_rb,1.4175e-01_rb,1.1814e-01_rb,9.4551e-02_rb,7.3809e-02_rb, &
+     &5.5615e-02_rb,4.4637e-02_rb,5.3030e-02_rb/)
+      kao(:, 2, 2,13) = (/ &
+     &2.2250e-01_rb,1.9470e-01_rb,1.6692e-01_rb,1.3914e-01_rb,1.1136e-01_rb,8.8262e-02_rb, &
+     &7.0022e-02_rb,6.0363e-02_rb,7.3472e-02_rb/)
+      kao(:, 3, 2,13) = (/ &
+     &2.5567e-01_rb,2.2376e-01_rb,1.9185e-01_rb,1.5991e-01_rb,1.3005e-01_rb,1.0599e-01_rb, &
+     &8.7655e-02_rb,7.9726e-02_rb,9.6994e-02_rb/)
+      kao(:, 4, 2,13) = (/ &
+     &2.8747e-01_rb,2.5157e-01_rb,2.1569e-01_rb,1.7980e-01_rb,1.5083e-01_rb,1.2699e-01_rb, &
+     &1.0917e-01_rb,1.0493e-01_rb,1.2703e-01_rb/)
+      kao(:, 5, 2,13) = (/ &
+     &3.1781e-01_rb,2.7817e-01_rb,2.3857e-01_rb,1.9898e-01_rb,1.7411e-01_rb,1.5016e-01_rb, &
+     &1.3454e-01_rb,1.3707e-01_rb,1.6656e-01_rb/)
+      kao(:, 1, 3,13) = (/ &
+     &3.6978e-01_rb,3.2357e-01_rb,2.7737e-01_rb,2.3116e-01_rb,1.8494e-01_rb,1.3872e-01_rb, &
+     &9.4432e-02_rb,5.7465e-02_rb,4.7026e-02_rb/)
+      kao(:, 2, 3,13) = (/ &
+     &4.3903e-01_rb,3.8415e-01_rb,3.2929e-01_rb,2.7445e-01_rb,2.1956e-01_rb,1.6470e-01_rb, &
+     &1.1482e-01_rb,7.4394e-02_rb,6.6138e-02_rb/)
+      kao(:, 3, 3,13) = (/ &
+     &5.0855e-01_rb,4.4506e-01_rb,3.8154e-01_rb,3.1805e-01_rb,2.5451e-01_rb,1.9102e-01_rb, &
+     &1.3670e-01_rb,9.4825e-02_rb,8.9406e-02_rb/)
+      kao(:, 4, 3,13) = (/ &
+     &5.7817e-01_rb,5.0599e-01_rb,4.3381e-01_rb,3.6166e-01_rb,2.8948e-01_rb,2.2042e-01_rb, &
+     &1.6420e-01_rb,1.1827e-01_rb,1.1730e-01_rb/)
+      kao(:, 5, 3,13) = (/ &
+     &6.4715e-01_rb,5.6638e-01_rb,4.8566e-01_rb,4.0494e-01_rb,3.2419e-01_rb,2.5446e-01_rb, &
+     &1.9367e-01_rb,1.4612e-01_rb,1.5219e-01_rb/)
+      kao(:, 1, 4,13) = (/ &
+     &7.1857e-01_rb,6.2877e-01_rb,5.3894e-01_rb,4.4919e-01_rb,3.5935e-01_rb,2.6957e-01_rb, &
+     &1.7976e-01_rb,9.3998e-02_rb,4.1187e-02_rb/)
+      kao(:, 2, 4,13) = (/ &
+     &8.6835e-01_rb,7.5986e-01_rb,6.5131e-01_rb,5.4283e-01_rb,4.3435e-01_rb,3.2583e-01_rb, &
+     &2.1731e-01_rb,1.1522e-01_rb,5.8302e-02_rb/)
+      kao(:, 3, 4,13) = (/ &
+     &1.0243e+00_rb,8.9626e-01_rb,7.6836e-01_rb,6.4035e-01_rb,5.1240e-01_rb,3.8438e-01_rb, &
+     &2.5643e-01_rb,1.3949e-01_rb,7.9878e-02_rb/)
+      kao(:, 4, 4,13) = (/ &
+     &1.1800e+00_rb,1.0326e+00_rb,8.8512e-01_rb,7.3767e-01_rb,5.9020e-01_rb,4.4282e-01_rb, &
+     &2.9609e-01_rb,1.6997e-01_rb,1.0651e-01_rb/)
+      kao(:, 5, 4,13) = (/ &
+     &1.3277e+00_rb,1.1619e+00_rb,9.9598e-01_rb,8.3009e-01_rb,6.6410e-01_rb,4.9823e-01_rb, &
+     &3.3917e-01_rb,2.0392e-01_rb,1.3923e-01_rb/)
+      kao(:, 1, 5,13) = (/ &
+     &1.2769e+00_rb,1.1173e+00_rb,9.5773e-01_rb,7.9808e-01_rb,6.3854e-01_rb,4.7892e-01_rb, &
+     &3.1932e-01_rb,1.5974e-01_rb,3.6366e-02_rb/)
+      kao(:, 2, 5,13) = (/ &
+     &1.5754e+00_rb,1.3783e+00_rb,1.1815e+00_rb,9.8457e-01_rb,7.8769e-01_rb,5.9081e-01_rb, &
+     &3.9400e-01_rb,1.9711e-01_rb,5.2068e-02_rb/)
+      kao(:, 3, 5,13) = (/ &
+     &1.8818e+00_rb,1.6466e+00_rb,1.4114e+00_rb,1.1761e+00_rb,9.4096e-01_rb,7.0577e-01_rb, &
+     &4.7057e-01_rb,2.3659e-01_rb,7.1428e-02_rb/)
+      kao(:, 4, 5,13) = (/ &
+     &2.1862e+00_rb,1.9130e+00_rb,1.6397e+00_rb,1.3666e+00_rb,1.0933e+00_rb,8.2000e-01_rb, &
+     &5.4672e-01_rb,2.8019e-01_rb,9.6282e-02_rb/)
+      kao(:, 5, 5,13) = (/ &
+     &2.4918e+00_rb,2.1806e+00_rb,1.8691e+00_rb,1.5576e+00_rb,1.2460e+00_rb,9.3474e-01_rb, &
+     &6.2322e-01_rb,3.2775e-01_rb,1.2758e-01_rb/)
+      kao(:, 1, 6,13) = (/ &
+     &2.0873e+00_rb,1.8265e+00_rb,1.5654e+00_rb,1.3046e+00_rb,1.0437e+00_rb,7.8276e-01_rb, &
+     &5.2187e-01_rb,2.6100e-01_rb,3.1022e-02_rb/)
+      kao(:, 2, 6,13) = (/ &
+     &2.6230e+00_rb,2.2953e+00_rb,1.9673e+00_rb,1.6394e+00_rb,1.3116e+00_rb,9.8380e-01_rb, &
+     &6.5587e-01_rb,3.2796e-01_rb,4.5564e-02_rb/)
+      kao(:, 3, 6,13) = (/ &
+     &3.1789e+00_rb,2.7816e+00_rb,2.3843e+00_rb,1.9870e+00_rb,1.5894e+00_rb,1.1921e+00_rb, &
+     &7.9481e-01_rb,3.9748e-01_rb,6.4081e-02_rb/)
+      kao(:, 4, 6,13) = (/ &
+     &3.7665e+00_rb,3.2952e+00_rb,2.8247e+00_rb,2.3538e+00_rb,1.8832e+00_rb,1.4124e+00_rb, &
+     &9.4165e-01_rb,4.7095e-01_rb,8.7003e-02_rb/)
+      kao(:, 5, 6,13) = (/ &
+     &4.3632e+00_rb,3.8180e+00_rb,3.2726e+00_rb,2.7273e+00_rb,2.1819e+00_rb,1.6363e+00_rb, &
+     &1.0910e+00_rb,5.4560e-01_rb,1.1609e-01_rb/)
+      kao(:, 1, 7,13) = (/ &
+     &3.5237e+00_rb,3.0834e+00_rb,2.6428e+00_rb,2.2023e+00_rb,1.7619e+00_rb,1.3214e+00_rb, &
+     &8.8102e-01_rb,4.4047e-01_rb,2.5898e-02_rb/)
+      kao(:, 2, 7,13) = (/ &
+     &4.5331e+00_rb,3.9665e+00_rb,3.3999e+00_rb,2.8333e+00_rb,2.2667e+00_rb,1.6999e+00_rb, &
+     &1.1334e+00_rb,5.6671e-01_rb,3.9066e-02_rb/)
+      kao(:, 3, 7,13) = (/ &
+     &5.6378e+00_rb,4.9326e+00_rb,4.2280e+00_rb,3.5234e+00_rb,2.8189e+00_rb,2.1142e+00_rb, &
+     &1.4094e+00_rb,7.0475e-01_rb,5.6679e-02_rb/)
+      kao(:, 4, 7,13) = (/ &
+     &6.8044e+00_rb,5.9541e+00_rb,5.1033e+00_rb,4.2525e+00_rb,3.4021e+00_rb,2.5518e+00_rb, &
+     &1.7012e+00_rb,8.5062e-01_rb,7.8214e-02_rb/)
+      kao(:, 5, 7,13) = (/ &
+     &7.9748e+00_rb,6.9785e+00_rb,5.9814e+00_rb,4.9841e+00_rb,3.9872e+00_rb,2.9906e+00_rb, &
+     &1.9939e+00_rb,9.9695e-01_rb,1.0573e-01_rb/)
+      kao(:, 1, 8,13) = (/ &
+     &7.0539e+00_rb,6.1726e+00_rb,5.2906e+00_rb,4.4088e+00_rb,3.5267e+00_rb,2.6453e+00_rb, &
+     &1.7634e+00_rb,8.8179e-01_rb,2.1249e-02_rb/)
+      kao(:, 2, 8,13) = (/ &
+     &9.3702e+00_rb,8.1985e+00_rb,7.0273e+00_rb,5.8560e+00_rb,4.6849e+00_rb,3.5137e+00_rb, &
+     &2.3424e+00_rb,1.1713e+00_rb,3.3095e-02_rb/)
+      kao(:, 3, 8,13) = (/ &
+     &1.1943e+01_rb,1.0450e+01_rb,8.9569e+00_rb,7.4646e+00_rb,5.9714e+00_rb,4.4785e+00_rb, &
+     &2.9858e+00_rb,1.4929e+00_rb,4.9465e-02_rb/)
+      kao(:, 4, 8,13) = (/ &
+     &1.4646e+01_rb,1.2815e+01_rb,1.0984e+01_rb,9.1536e+00_rb,7.3228e+00_rb,5.4925e+00_rb, &
+     &3.6616e+00_rb,1.8307e+00_rb,7.0099e-02_rb/)
+      kao(:, 5, 8,13) = (/ &
+     &1.7489e+01_rb,1.5303e+01_rb,1.3117e+01_rb,1.0930e+01_rb,8.7446e+00_rb,6.5589e+00_rb, &
+     &4.3724e+00_rb,2.1863e+00_rb,9.5981e-02_rb/)
+      kao(:, 1, 9,13) = (/ &
+     &2.6371e+01_rb,2.3078e+01_rb,1.9780e+01_rb,1.6484e+01_rb,1.3187e+01_rb,9.8900e+00_rb, &
+     &6.5930e+00_rb,3.2967e+00_rb,6.8943e-03_rb/)
+      kao(:, 2, 9,13) = (/ &
+     &3.6211e+01_rb,3.1684e+01_rb,2.7158e+01_rb,2.2631e+01_rb,1.8105e+01_rb,1.3579e+01_rb, &
+     &9.0530e+00_rb,4.5262e+00_rb,1.7485e-02_rb/)
+      kao(:, 3, 9,13) = (/ &
+     &4.7281e+01_rb,4.1374e+01_rb,3.5462e+01_rb,2.9549e+01_rb,2.3642e+01_rb,1.7731e+01_rb, &
+     &1.1820e+01_rb,5.9103e+00_rb,4.0011e-02_rb/)
+      kao(:, 4, 9,13) = (/ &
+     &5.9381e+01_rb,5.1957e+01_rb,4.4537e+01_rb,3.7114e+01_rb,2.9690e+01_rb,2.2267e+01_rb, &
+     &1.4846e+01_rb,7.4229e+00_rb,6.1300e-02_rb/)
+      kao(:, 5, 9,13) = (/ &
+     &7.2474e+01_rb,6.3419e+01_rb,5.4356e+01_rb,4.5296e+01_rb,3.6239e+01_rb,2.7178e+01_rb, &
+     &1.8119e+01_rb,9.0595e+00_rb,8.5682e-02_rb/)
+      kao(:, 1,10,13) = (/ &
+     &1.1184e+02_rb,9.7849e+01_rb,8.3875e+01_rb,6.9894e+01_rb,5.5915e+01_rb,4.1936e+01_rb, &
+     &2.7957e+01_rb,1.3979e+01_rb,1.8093e-05_rb/)
+      kao(:, 2,10,13) = (/ &
+     &1.5816e+02_rb,1.3839e+02_rb,1.1862e+02_rb,9.8846e+01_rb,7.9081e+01_rb,5.9311e+01_rb, &
+     &3.9538e+01_rb,1.9769e+01_rb,2.0368e-03_rb/)
+      kao(:, 3,10,13) = (/ &
+     &2.1176e+02_rb,1.8530e+02_rb,1.5882e+02_rb,1.3236e+02_rb,1.0588e+02_rb,7.9412e+01_rb, &
+     &5.2940e+01_rb,2.6470e+01_rb,1.0379e-02_rb/)
+      kao(:, 4,10,13) = (/ &
+     &2.7234e+02_rb,2.3829e+02_rb,2.0425e+02_rb,1.7021e+02_rb,1.3616e+02_rb,1.0213e+02_rb, &
+     &6.8082e+01_rb,3.4042e+01_rb,8.3550e-03_rb/)
+      kao(:, 5,10,13) = (/ &
+     &3.3838e+02_rb,2.9608e+02_rb,2.5378e+02_rb,2.1148e+02_rb,1.6919e+02_rb,1.2688e+02_rb, &
+     &8.4588e+01_rb,4.2296e+01_rb,2.4237e-02_rb/)
+      kao(:, 1,11,13) = (/ &
+     &1.9607e+02_rb,1.7156e+02_rb,1.4706e+02_rb,1.2254e+02_rb,9.8035e+01_rb,7.3528e+01_rb, &
+     &4.9019e+01_rb,2.4510e+01_rb,1.9563e-05_rb/)
+      kao(:, 2,11,13) = (/ &
+     &2.7783e+02_rb,2.4308e+02_rb,2.0836e+02_rb,1.7363e+02_rb,1.3891e+02_rb,1.0418e+02_rb, &
+     &6.9451e+01_rb,3.4727e+01_rb,2.1737e-05_rb/)
+      kao(:, 3,11,13) = (/ &
+     &3.7392e+02_rb,3.2720e+02_rb,2.8047e+02_rb,2.3371e+02_rb,1.8697e+02_rb,1.4023e+02_rb, &
+     &9.3485e+01_rb,4.6744e+01_rb,2.8098e-05_rb/)
+      kao(:, 4,11,13) = (/ &
+     &4.8258e+02_rb,4.2223e+02_rb,3.6194e+02_rb,3.0162e+02_rb,2.4128e+02_rb,1.8096e+02_rb, &
+     &1.2064e+02_rb,6.0325e+01_rb,6.2823e-03_rb/)
+      kao(:, 5,11,13) = (/ &
+     &6.0149e+02_rb,5.2626e+02_rb,4.5111e+02_rb,3.7591e+02_rb,3.0076e+02_rb,2.2554e+02_rb, &
+     &1.5037e+02_rb,7.5184e+01_rb,1.4409e-02_rb/)
+      kao(:, 1,12,13) = (/ &
+     &2.5475e+02_rb,2.2289e+02_rb,1.9106e+02_rb,1.5923e+02_rb,1.2737e+02_rb,9.5526e+01_rb, &
+     &6.3684e+01_rb,3.1843e+01_rb,2.0642e-05_rb/)
+      kao(:, 2,12,13) = (/ &
+     &3.6233e+02_rb,3.1704e+02_rb,2.7175e+02_rb,2.2647e+02_rb,1.8117e+02_rb,1.3587e+02_rb, &
+     &9.0584e+01_rb,4.5292e+01_rb,3.1983e-05_rb/)
+      kao(:, 3,12,13) = (/ &
+     &4.8916e+02_rb,4.2803e+02_rb,3.6684e+02_rb,3.0571e+02_rb,2.4456e+02_rb,1.8343e+02_rb, &
+     &1.2228e+02_rb,6.1143e+01_rb,4.9821e-05_rb/)
+      kao(:, 4,12,13) = (/ &
+     &6.3314e+02_rb,5.5397e+02_rb,4.7487e+02_rb,3.9571e+02_rb,3.1654e+02_rb,2.3742e+02_rb, &
+     &1.5828e+02_rb,7.9139e+01_rb,7.0156e-05_rb/)
+      kao(:, 5,12,13) = (/ &
+     &7.9128e+02_rb,6.9231e+02_rb,5.9347e+02_rb,4.9456e+02_rb,3.9565e+02_rb,2.9675e+02_rb, &
+     &1.9782e+02_rb,9.8911e+01_rb,2.0440e-02_rb/)
+      kao(:, 1,13,13) = (/ &
+     &2.6423e+02_rb,2.3120e+02_rb,1.9817e+02_rb,1.6514e+02_rb,1.3211e+02_rb,9.9077e+01_rb, &
+     &6.6055e+01_rb,3.3026e+01_rb,2.0316e-05_rb/)
+      kao(:, 2,13,13) = (/ &
+     &3.7762e+02_rb,3.3041e+02_rb,2.8322e+02_rb,2.3600e+02_rb,1.8882e+02_rb,1.4161e+02_rb, &
+     &9.4405e+01_rb,4.7199e+01_rb,3.9220e-05_rb/)
+      kao(:, 3,13,13) = (/ &
+     &5.1221e+02_rb,4.4817e+02_rb,3.8414e+02_rb,3.2014e+02_rb,2.5611e+02_rb,1.9208e+02_rb, &
+     &1.2806e+02_rb,6.4027e+01_rb,5.9611e-05_rb/)
+      kao(:, 4,13,13) = (/ &
+     &6.6615e+02_rb,5.8290e+02_rb,4.9961e+02_rb,4.1636e+02_rb,3.3309e+02_rb,2.4982e+02_rb, &
+     &1.6655e+02_rb,8.3275e+01_rb,8.3600e-05_rb/)
+      kao(:, 5,13,13) = (/ &
+     &8.3847e+02_rb,7.3367e+02_rb,6.2884e+02_rb,5.2405e+02_rb,4.1925e+02_rb,3.1441e+02_rb, &
+     &2.0962e+02_rb,1.0481e+02_rb,8.6814e-03_rb/)
+      kao(:, 1, 1,14) = (/ &
+     &1.4546e-01_rb,1.2729e-01_rb,1.0913e-01_rb,9.0969e-02_rb,7.2816e-02_rb,6.3783e-02_rb, &
+     &5.7732e-02_rb,5.8710e-02_rb,8.0301e-02_rb/)
+      kao(:, 2, 1,14) = (/ &
+     &1.6927e-01_rb,1.4814e-01_rb,1.2702e-01_rb,1.0589e-01_rb,8.6710e-02_rb,8.1091e-02_rb, &
+     &8.1369e-02_rb,8.2706e-02_rb,1.1649e-01_rb/)
+      kao(:, 3, 1,14) = (/ &
+     &1.9294e-01_rb,1.6889e-01_rb,1.4479e-01_rb,1.2072e-01_rb,1.0647e-01_rb,1.0625e-01_rb, &
+     &1.1521e-01_rb,1.1490e-01_rb,1.6620e-01_rb/)
+      kao(:, 4, 1,14) = (/ &
+     &2.1639e-01_rb,1.8940e-01_rb,1.6240e-01_rb,1.3541e-01_rb,1.3447e-01_rb,1.4239e-01_rb, &
+     &1.5920e-01_rb,1.5808e-01_rb,2.2919e-01_rb/)
+      kao(:, 5, 1,14) = (/ &
+     &2.3882e-01_rb,2.0905e-01_rb,1.7929e-01_rb,1.5673e-01_rb,1.6730e-01_rb,1.8853e-01_rb, &
+     &2.1227e-01_rb,2.1249e-01_rb,3.0359e-01_rb/)
+      kao(:, 1, 2,14) = (/ &
+     &2.2939e-01_rb,2.0073e-01_rb,1.7206e-01_rb,1.4339e-01_rb,1.1475e-01_rb,8.6951e-02_rb, &
+     &7.2184e-02_rb,6.3155e-02_rb,8.0463e-02_rb/)
+      kao(:, 2, 2,14) = (/ &
+     &2.6931e-01_rb,2.3569e-01_rb,2.0200e-01_rb,1.6840e-01_rb,1.3475e-01_rb,1.0880e-01_rb, &
+     &9.2729e-02_rb,8.6720e-02_rb,1.1351e-01_rb/)
+      kao(:, 3, 2,14) = (/ &
+     &3.0958e-01_rb,2.7100e-01_rb,2.3236e-01_rb,1.9370e-01_rb,1.5506e-01_rb,1.3547e-01_rb, &
+     &1.2355e-01_rb,1.2394e-01_rb,1.6330e-01_rb/)
+      kao(:, 4, 2,14) = (/ &
+     &3.5073e-01_rb,3.0694e-01_rb,2.6319e-01_rb,2.1943e-01_rb,1.7928e-01_rb,1.7126e-01_rb, &
+     &1.6643e-01_rb,1.7360e-01_rb,2.2783e-01_rb/)
+      kao(:, 5, 2,14) = (/ &
+     &3.9134e-01_rb,3.4248e-01_rb,2.9368e-01_rb,2.4496e-01_rb,2.1593e-01_rb,2.1367e-01_rb, &
+     &2.2253e-01_rb,2.3537e-01_rb,3.0544e-01_rb/)
+      kao(:, 1, 3,14) = (/ &
+     &4.7010e-01_rb,4.1135e-01_rb,3.5261e-01_rb,2.9387e-01_rb,2.3512e-01_rb,1.7638e-01_rb, &
+     &1.1764e-01_rb,7.8616e-02_rb,7.6241e-02_rb/)
+      kao(:, 2, 3,14) = (/ &
+     &5.6247e-01_rb,4.9221e-01_rb,4.2195e-01_rb,3.5165e-01_rb,2.8136e-01_rb,2.1111e-01_rb, &
+     &1.4480e-01_rb,1.0039e-01_rb,1.0523e-01_rb/)
+      kao(:, 3, 3,14) = (/ &
+     &6.5749e-01_rb,5.7537e-01_rb,4.9319e-01_rb,4.1105e-01_rb,3.2895e-01_rb,2.4684e-01_rb, &
+     &1.7889e-01_rb,1.3157e-01_rb,1.4752e-01_rb/)
+      kao(:, 4, 3,14) = (/ &
+     &7.5292e-01_rb,6.5895e-01_rb,5.6476e-01_rb,4.7081e-01_rb,3.7678e-01_rb,2.8272e-01_rb, &
+     &2.2206e-01_rb,1.7756e-01_rb,2.0769e-01_rb/)
+      kao(:, 5, 3,14) = (/ &
+     &8.4721e-01_rb,7.4147e-01_rb,6.3570e-01_rb,5.2989e-01_rb,4.2402e-01_rb,3.2414e-01_rb, &
+     &2.7831e-01_rb,2.3784e-01_rb,2.8406e-01_rb/)
+      kao(:, 1, 4,14) = (/ &
+     &9.7171e-01_rb,8.5020e-01_rb,7.2877e-01_rb,6.0734e-01_rb,4.8590e-01_rb,3.6445e-01_rb, &
+     &2.4301e-01_rb,1.2213e-01_rb,6.9724e-02_rb/)
+      kao(:, 2, 4,14) = (/ &
+     &1.1819e+00_rb,1.0342e+00_rb,8.8647e-01_rb,7.3863e-01_rb,5.9101e-01_rb,4.4338e-01_rb, &
+     &2.9560e-01_rb,1.5522e-01_rb,9.6103e-02_rb/)
+      kao(:, 3, 4,14) = (/ &
+     &1.3997e+00_rb,1.2249e+00_rb,1.0500e+00_rb,8.7515e-01_rb,7.0004e-01_rb,5.2502e-01_rb, &
+     &3.5022e-01_rb,1.9543e-01_rb,1.3302e-01_rb/)
+      kao(:, 4, 4,14) = (/ &
+     &1.6223e+00_rb,1.4197e+00_rb,1.2167e+00_rb,1.0141e+00_rb,8.1148e-01_rb,6.0893e-01_rb, &
+     &4.0620e-01_rb,2.4484e-01_rb,1.8472e-01_rb/)
+      kao(:, 5, 4,14) = (/ &
+     &1.8526e+00_rb,1.6213e+00_rb,1.3899e+00_rb,1.1585e+00_rb,9.2711e-01_rb,6.9563e-01_rb, &
+     &4.6462e-01_rb,3.0719e-01_rb,2.5304e-01_rb/)
+      kao(:, 1, 5,14) = (/ &
+     &1.8192e+00_rb,1.5916e+00_rb,1.3645e+00_rb,1.1369e+00_rb,9.0965e-01_rb,6.8222e-01_rb, &
+     &4.5478e-01_rb,2.2743e-01_rb,6.1385e-02_rb/)
+      kao(:, 2, 5,14) = (/ &
+     &2.2491e+00_rb,1.9677e+00_rb,1.6869e+00_rb,1.4056e+00_rb,1.1246e+00_rb,8.4332e-01_rb, &
+     &5.6233e-01_rb,2.8119e-01_rb,8.6006e-02_rb/)
+      kao(:, 3, 5,14) = (/ &
+     &2.7102e+00_rb,2.3722e+00_rb,2.0328e+00_rb,1.6939e+00_rb,1.3553e+00_rb,1.0165e+00_rb, &
+     &6.7791e-01_rb,3.3919e-01_rb,1.2062e-01_rb/)
+      kao(:, 4, 5,14) = (/ &
+     &3.1976e+00_rb,2.7982e+00_rb,2.3984e+00_rb,1.9988e+00_rb,1.5996e+00_rb,1.1997e+00_rb, &
+     &8.0003e-01_rb,4.0180e-01_rb,1.6649e-01_rb/)
+      kao(:, 5, 5,14) = (/ &
+     &3.6973e+00_rb,3.2349e+00_rb,2.7730e+00_rb,2.3110e+00_rb,1.8489e+00_rb,1.3873e+00_rb, &
+     &9.2506e-01_rb,4.7326e-01_rb,2.2654e-01_rb/)
+      kao(:, 1, 6,14) = (/ &
+     &3.1019e+00_rb,2.7140e+00_rb,2.3265e+00_rb,1.9387e+00_rb,1.5510e+00_rb,1.1633e+00_rb, &
+     &7.7552e-01_rb,3.8777e-01_rb,5.2928e-02_rb/)
+      kao(:, 2, 6,14) = (/ &
+     &3.9302e+00_rb,3.4386e+00_rb,2.9473e+00_rb,2.4561e+00_rb,1.9652e+00_rb,1.4738e+00_rb, &
+     &9.8267e-01_rb,4.9148e-01_rb,7.5058e-02_rb/)
+      kao(:, 3, 6,14) = (/ &
+     &4.8343e+00_rb,4.2298e+00_rb,3.6258e+00_rb,3.0217e+00_rb,2.4174e+00_rb,1.8133e+00_rb, &
+     &1.2090e+00_rb,6.0467e-01_rb,1.0698e-01_rb/)
+      kao(:, 4, 6,14) = (/ &
+     &5.7912e+00_rb,5.0677e+00_rb,4.3433e+00_rb,3.6195e+00_rb,2.8961e+00_rb,2.1723e+00_rb, &
+     &1.4483e+00_rb,7.2440e-01_rb,1.4901e-01_rb/)
+      kao(:, 5, 6,14) = (/ &
+     &6.7811e+00_rb,5.9338e+00_rb,5.0864e+00_rb,4.2388e+00_rb,3.3910e+00_rb,2.5430e+00_rb, &
+     &1.6957e+00_rb,8.4831e-01_rb,2.0161e-01_rb/)
+      kao(:, 1, 7,14) = (/ &
+     &5.4638e+00_rb,4.7799e+00_rb,4.0972e+00_rb,3.4147e+00_rb,2.7314e+00_rb,2.0488e+00_rb, &
+     &1.3659e+00_rb,6.8294e-01_rb,4.5673e-02_rb/)
+      kao(:, 2, 7,14) = (/ &
+     &7.1063e+00_rb,6.2177e+00_rb,5.3292e+00_rb,4.4410e+00_rb,3.5530e+00_rb,2.6647e+00_rb, &
+     &1.7765e+00_rb,8.8835e-01_rb,6.5608e-02_rb/)
+      kao(:, 3, 7,14) = (/ &
+     &8.9165e+00_rb,7.8008e+00_rb,6.6867e+00_rb,5.5727e+00_rb,4.4582e+00_rb,3.3435e+00_rb, &
+     &2.2293e+00_rb,1.1147e+00_rb,9.3558e-02_rb/)
+      kao(:, 4, 7,14) = (/ &
+     &1.0858e+01_rb,9.5015e+00_rb,8.1441e+00_rb,6.7868e+00_rb,5.4291e+00_rb,4.0729e+00_rb, &
+     &2.7150e+00_rb,1.3577e+00_rb,1.3310e-01_rb/)
+      kao(:, 5, 7,14) = (/ &
+     &1.2930e+01_rb,1.1317e+01_rb,9.6983e+00_rb,8.0819e+00_rb,6.4667e+00_rb,4.8496e+00_rb, &
+     &3.2333e+00_rb,1.6168e+00_rb,1.8236e-01_rb/)
+      kao(:, 1, 8,14) = (/ &
+     &1.1346e+01_rb,9.9283e+00_rb,8.5084e+00_rb,7.0912e+00_rb,5.6732e+00_rb,4.2544e+00_rb, &
+     &2.8362e+00_rb,1.4181e+00_rb,3.9157e-02_rb/)
+      kao(:, 2, 8,14) = (/ &
+     &1.5150e+01_rb,1.3257e+01_rb,1.1363e+01_rb,9.4692e+00_rb,7.5753e+00_rb,5.6816e+00_rb, &
+     &3.7878e+00_rb,1.8940e+00_rb,5.7302e-02_rb/)
+      kao(:, 3, 8,14) = (/ &
+     &1.9415e+01_rb,1.6989e+01_rb,1.4562e+01_rb,1.2134e+01_rb,9.7069e+00_rb,7.2806e+00_rb, &
+     &4.8539e+00_rb,2.4270e+00_rb,8.2333e-02_rb/)
+      kao(:, 4, 8,14) = (/ &
+     &2.4092e+01_rb,2.1079e+01_rb,1.8070e+01_rb,1.5059e+01_rb,1.2046e+01_rb,9.0355e+00_rb, &
+     &6.0239e+00_rb,3.0117e+00_rb,1.1787e-01_rb/)
+      kao(:, 5, 8,14) = (/ &
+     &2.9062e+01_rb,2.5429e+01_rb,2.1796e+01_rb,1.8164e+01_rb,1.4531e+01_rb,1.0899e+01_rb, &
+     &7.2663e+00_rb,3.6329e+00_rb,1.6482e-01_rb/)
+      kao(:, 1, 9,14) = (/ &
+     &4.3556e+01_rb,3.8120e+01_rb,3.2674e+01_rb,2.7224e+01_rb,2.1783e+01_rb,1.6334e+01_rb, &
+     &1.0888e+01_rb,5.4440e+00_rb,2.2652e-02_rb/)
+      kao(:, 2, 9,14) = (/ &
+     &5.9826e+01_rb,5.2350e+01_rb,4.4870e+01_rb,3.7394e+01_rb,2.9916e+01_rb,2.2436e+01_rb, &
+     &1.4957e+01_rb,7.4785e+00_rb,4.6893e-02_rb/)
+      kao(:, 3, 9,14) = (/ &
+     &7.8381e+01_rb,6.8585e+01_rb,5.8789e+01_rb,4.8993e+01_rb,3.9194e+01_rb,2.9396e+01_rb, &
+     &1.9597e+01_rb,9.7990e+00_rb,7.2210e-02_rb/)
+      kao(:, 4, 9,14) = (/ &
+     &9.9048e+01_rb,8.6676e+01_rb,7.4294e+01_rb,6.1915e+01_rb,4.9526e+01_rb,3.7147e+01_rb, &
+     &2.4767e+01_rb,1.2383e+01_rb,1.0452e-01_rb/)
+      kao(:, 5, 9,14) = (/ &
+     &1.2130e+02_rb,1.0614e+02_rb,9.0980e+01_rb,7.5818e+01_rb,6.0656e+01_rb,4.5493e+01_rb, &
+     &3.0327e+01_rb,1.5163e+01_rb,1.4798e-01_rb/)
+      kao(:, 1,10,14) = (/ &
+     &1.8821e+02_rb,1.6469e+02_rb,1.4116e+02_rb,1.1763e+02_rb,9.4105e+01_rb,7.0580e+01_rb, &
+     &4.7054e+01_rb,2.3527e+01_rb,9.8284e-06_rb/)
+      kao(:, 2,10,14) = (/ &
+     &2.6476e+02_rb,2.3166e+02_rb,1.9858e+02_rb,1.6548e+02_rb,1.3239e+02_rb,9.9294e+01_rb, &
+     &6.6189e+01_rb,3.3094e+01_rb,1.2967e-05_rb/)
+      kao(:, 3,10,14) = (/ &
+     &3.5496e+02_rb,3.1059e+02_rb,2.6621e+02_rb,2.2185e+02_rb,1.7748e+02_rb,1.3310e+02_rb, &
+     &8.8736e+01_rb,4.4370e+01_rb,2.4344e-02_rb/)
+      kao(:, 4,10,14) = (/ &
+     &4.5706e+02_rb,3.9992e+02_rb,3.4280e+02_rb,2.8566e+02_rb,2.2852e+02_rb,1.7137e+02_rb, &
+     &1.1427e+02_rb,5.7136e+01_rb,2.2864e-02_rb/)
+      kao(:, 5,10,14) = (/ &
+     &5.6918e+02_rb,4.9801e+02_rb,4.2687e+02_rb,3.5573e+02_rb,2.8459e+02_rb,2.1346e+02_rb, &
+     &1.4231e+02_rb,7.1148e+01_rb,3.1037e-02_rb/)
+      kao(:, 1,11,14) = (/ &
+     &3.3285e+02_rb,2.9123e+02_rb,2.4962e+02_rb,2.0803e+02_rb,1.6643e+02_rb,1.2482e+02_rb, &
+     &8.3209e+01_rb,4.1605e+01_rb,7.6787e-06_rb/)
+      kao(:, 2,11,14) = (/ &
+     &4.7091e+02_rb,4.1207e+02_rb,3.5320e+02_rb,2.9434e+02_rb,2.3549e+02_rb,1.7660e+02_rb, &
+     &1.1774e+02_rb,5.8871e+01_rb,1.2053e-05_rb/)
+      kao(:, 3,11,14) = (/ &
+     &6.3434e+02_rb,5.5505e+02_rb,4.7579e+02_rb,3.9648e+02_rb,3.1719e+02_rb,2.3787e+02_rb, &
+     &1.5859e+02_rb,7.9298e+01_rb,1.7979e-05_rb/)
+      kao(:, 4,11,14) = (/ &
+     &8.2080e+02_rb,7.1819e+02_rb,6.1562e+02_rb,5.1300e+02_rb,4.1039e+02_rb,3.0781e+02_rb, &
+     &2.0518e+02_rb,1.0261e+02_rb,2.6043e-05_rb/)
+      kao(:, 5,11,14) = (/ &
+     &1.0279e+03_rb,8.9936e+02_rb,7.7089e+02_rb,6.4243e+02_rb,5.1399e+02_rb,3.8545e+02_rb, &
+     &2.5700e+02_rb,1.2849e+02_rb,3.6811e-02_rb/)
+      kao(:, 1,12,14) = (/ &
+     &4.4072e+02_rb,3.8565e+02_rb,3.3056e+02_rb,2.7546e+02_rb,2.2036e+02_rb,1.6527e+02_rb, &
+     &1.1018e+02_rb,5.5100e+01_rb,6.3836e-06_rb/)
+      kao(:, 2,12,14) = (/ &
+     &6.2804e+02_rb,5.4949e+02_rb,4.7103e+02_rb,3.9252e+02_rb,3.1400e+02_rb,2.3550e+02_rb, &
+     &1.5700e+02_rb,7.8501e+01_rb,1.0354e-05_rb/)
+      kao(:, 3,12,14) = (/ &
+     &8.4964e+02_rb,7.4346e+02_rb,6.3726e+02_rb,5.3106e+02_rb,4.2484e+02_rb,3.1862e+02_rb, &
+     &2.1241e+02_rb,1.0621e+02_rb,1.6673e-05_rb/)
+      kao(:, 4,12,14) = (/ &
+     &1.1033e+03_rb,9.6532e+02_rb,8.2745e+02_rb,6.8953e+02_rb,5.5162e+02_rb,4.1376e+02_rb, &
+     &2.7582e+02_rb,1.3790e+02_rb,2.5500e-05_rb/)
+      kao(:, 5,12,14) = (/ &
+     &1.3847e+03_rb,1.2117e+03_rb,1.0386e+03_rb,8.6544e+02_rb,6.9241e+02_rb,5.1925e+02_rb, &
+     &3.4620e+02_rb,1.7310e+02_rb,3.8579e-05_rb/)
+      kao(:, 1,13,14) = (/ &
+     &4.7310e+02_rb,4.1397e+02_rb,3.5483e+02_rb,2.9569e+02_rb,2.3655e+02_rb,1.7741e+02_rb, &
+     &1.1827e+02_rb,5.9135e+01_rb,7.3062e-06_rb/)
+      kao(:, 2,13,14) = (/ &
+     &6.7569e+02_rb,5.9130e+02_rb,5.0679e+02_rb,4.2232e+02_rb,3.3786e+02_rb,2.5340e+02_rb, &
+     &1.6892e+02_rb,8.4465e+01_rb,8.6740e-06_rb/)
+      kao(:, 3,13,14) = (/ &
+     &9.1788e+02_rb,8.0315e+02_rb,6.8841e+02_rb,5.7369e+02_rb,4.5893e+02_rb,3.4424e+02_rb, &
+     &2.2946e+02_rb,1.1474e+02_rb,1.3663e-05_rb/)
+      kao(:, 4,13,14) = (/ &
+     &1.1975e+03_rb,1.0479e+03_rb,8.9816e+02_rb,7.4843e+02_rb,5.9874e+02_rb,4.4905e+02_rb, &
+     &2.9938e+02_rb,1.4969e+02_rb,2.1412e-05_rb/)
+      kao(:, 5,13,14) = (/ &
+     &1.5101e+03_rb,1.3214e+03_rb,1.1326e+03_rb,9.4376e+02_rb,7.5504e+02_rb,5.6626e+02_rb, &
+     &3.7752e+02_rb,1.8876e+02_rb,3.3615e-05_rb/)
+      kao(:, 1, 1,15) = (/ &
+     &1.9051e-01_rb,1.6674e-01_rb,1.4292e-01_rb,1.1918e-01_rb,9.5396e-02_rb,7.5613e-02_rb, &
+     &8.0457e-02_rb,7.8890e-02_rb,1.1694e-01_rb/)
+      kao(:, 2, 1,15) = (/ &
+     &2.2168e-01_rb,1.9400e-01_rb,1.6634e-01_rb,1.3865e-01_rb,1.1100e-01_rb,1.0009e-01_rb, &
+     &1.1113e-01_rb,1.0913e-01_rb,1.6166e-01_rb/)
+      kao(:, 3, 1,15) = (/ &
+     &2.5284e-01_rb,2.2130e-01_rb,1.8975e-01_rb,1.5816e-01_rb,1.2778e-01_rb,1.3319e-01_rb, &
+     &1.4805e-01_rb,1.4559e-01_rb,2.1625e-01_rb/)
+      kao(:, 4, 1,15) = (/ &
+     &2.8343e-01_rb,2.4807e-01_rb,2.1270e-01_rb,1.7731e-01_rb,1.5213e-01_rb,1.7480e-01_rb, &
+     &1.9314e-01_rb,1.8830e-01_rb,2.8691e-01_rb/)
+      kao(:, 5, 1,15) = (/ &
+     &3.1350e-01_rb,2.7439e-01_rb,2.3527e-01_rb,1.9622e-01_rb,1.9594e-01_rb,2.3135e-01_rb, &
+     &2.5307e-01_rb,2.4156e-01_rb,3.8082e-01_rb/)
+      kao(:, 1, 2,15) = (/ &
+     &3.2111e-01_rb,2.8102e-01_rb,2.4090e-01_rb,2.0079e-01_rb,1.6069e-01_rb,1.2054e-01_rb, &
+     &9.0034e-02_rb,8.9831e-02_rb,1.2243e-01_rb/)
+      kao(:, 2, 2,15) = (/ &
+     &3.7636e-01_rb,3.2926e-01_rb,2.8226e-01_rb,2.3534e-01_rb,1.8831e-01_rb,1.4126e-01_rb, &
+     &1.2281e-01_rb,1.2620e-01_rb,1.7187e-01_rb/)
+      kao(:, 3, 2,15) = (/ &
+     &4.3275e-01_rb,3.7860e-01_rb,3.2463e-01_rb,2.7055e-01_rb,2.1650e-01_rb,1.6706e-01_rb, &
+     &1.6578e-01_rb,1.7060e-01_rb,2.3384e-01_rb/)
+      kao(:, 4, 2,15) = (/ &
+     &4.8952e-01_rb,4.2824e-01_rb,3.6725e-01_rb,3.0597e-01_rb,2.4488e-01_rb,2.0300e-01_rb, &
+     &2.2012e-01_rb,2.2396e-01_rb,3.1375e-01_rb/)
+      kao(:, 5, 2,15) = (/ &
+     &5.4581e-01_rb,4.7748e-01_rb,4.0943e-01_rb,3.4119e-01_rb,2.7312e-01_rb,2.6005e-01_rb, &
+     &2.9166e-01_rb,2.9212e-01_rb,4.1866e-01_rb/)
+      kao(:, 1, 3,15) = (/ &
+     &6.9979e-01_rb,6.1213e-01_rb,5.2483e-01_rb,4.3719e-01_rb,3.4984e-01_rb,2.6243e-01_rb, &
+     &1.7501e-01_rb,9.9676e-02_rb,1.1688e-01_rb/)
+      kao(:, 2, 3,15) = (/ &
+     &8.3387e-01_rb,7.2959e-01_rb,6.2545e-01_rb,5.2112e-01_rb,4.1694e-01_rb,3.1278e-01_rb, &
+     &2.0862e-01_rb,1.3660e-01_rb,1.6827e-01_rb/)
+      kao(:, 3, 3,15) = (/ &
+     &9.7266e-01_rb,8.5098e-01_rb,7.2958e-01_rb,6.0802e-01_rb,4.8655e-01_rb,3.6492e-01_rb, &
+     &2.4335e-01_rb,1.8790e-01_rb,2.3450e-01_rb/)
+      kao(:, 4, 3,15) = (/ &
+     &1.1134e+00_rb,9.7421e-01_rb,8.3530e-01_rb,6.9606e-01_rb,5.5697e-01_rb,4.1779e-01_rb, &
+     &2.8251e-01_rb,2.5378e-01_rb,3.2011e-01_rb/)
+      kao(:, 5, 3,15) = (/ &
+     &1.2541e+00_rb,1.0974e+00_rb,9.4084e-01_rb,7.8396e-01_rb,6.2738e-01_rb,4.7061e-01_rb, &
+     &3.3812e-01_rb,3.3805e-01_rb,4.3341e-01_rb/)
+      kao(:, 1, 4,15) = (/ &
+     &1.5338e+00_rb,1.3422e+00_rb,1.1503e+00_rb,9.5870e-01_rb,7.6686e-01_rb,5.7527e-01_rb, &
+     &3.8351e-01_rb,1.9180e-01_rb,1.0723e-01_rb/)
+      kao(:, 2, 4,15) = (/ &
+     &1.8631e+00_rb,1.6302e+00_rb,1.3974e+00_rb,1.1644e+00_rb,9.3180e-01_rb,6.9872e-01_rb, &
+     &4.6589e-01_rb,2.3301e-01_rb,1.5610e-01_rb/)
+      kao(:, 3, 4,15) = (/ &
+     &2.2077e+00_rb,1.9315e+00_rb,1.6557e+00_rb,1.3803e+00_rb,1.1039e+00_rb,8.2801e-01_rb, &
+     &5.5191e-01_rb,2.7612e-01_rb,2.2377e-01_rb/)
+      kao(:, 4, 4,15) = (/ &
+     &2.5609e+00_rb,2.2407e+00_rb,1.9209e+00_rb,1.6005e+00_rb,1.2804e+00_rb,9.6050e-01_rb, &
+     &6.4039e-01_rb,3.2615e-01_rb,3.1195e-01_rb/)
+      kao(:, 5, 4,15) = (/ &
+     &2.9154e+00_rb,2.5514e+00_rb,2.1867e+00_rb,1.8223e+00_rb,1.4581e+00_rb,1.0937e+00_rb, &
+     &7.2913e-01_rb,3.9607e-01_rb,4.2846e-01_rb/)
+      kao(:, 1, 5,15) = (/ &
+     &3.0736e+00_rb,2.6896e+00_rb,2.3057e+00_rb,1.9212e+00_rb,1.5370e+00_rb,1.1527e+00_rb, &
+     &7.6854e-01_rb,3.8431e-01_rb,1.0147e-01_rb/)
+      kao(:, 2, 5,15) = (/ &
+     &3.8075e+00_rb,3.3314e+00_rb,2.8555e+00_rb,2.3797e+00_rb,1.9037e+00_rb,1.4279e+00_rb, &
+     &9.5192e-01_rb,4.7599e-01_rb,1.4471e-01_rb/)
+      kao(:, 3, 5,15) = (/ &
+     &4.5849e+00_rb,4.0117e+00_rb,3.4370e+00_rb,2.8652e+00_rb,2.2919e+00_rb,1.7190e+00_rb, &
+     &1.1462e+00_rb,5.7315e-01_rb,2.0749e-01_rb/)
+      kao(:, 4, 5,15) = (/ &
+     &5.3872e+00_rb,4.7143e+00_rb,4.0418e+00_rb,3.3672e+00_rb,2.6939e+00_rb,2.0205e+00_rb, &
+     &1.3469e+00_rb,6.7361e-01_rb,2.9614e-01_rb/)
+      kao(:, 5, 5,15) = (/ &
+     &6.2028e+00_rb,5.4263e+00_rb,4.6517e+00_rb,3.8766e+00_rb,3.1014e+00_rb,2.3260e+00_rb, &
+     &1.5507e+00_rb,7.7527e-01_rb,4.1447e-01_rb/)
+      kao(:, 1, 6,15) = (/ &
+     &5.6666e+00_rb,4.9583e+00_rb,4.2496e+00_rb,3.5417e+00_rb,2.8332e+00_rb,2.1246e+00_rb, &
+     &1.4165e+00_rb,7.0837e-01_rb,9.5689e-02_rb/)
+      kao(:, 2, 6,15) = (/ &
+     &7.1702e+00_rb,6.2735e+00_rb,5.3788e+00_rb,4.4810e+00_rb,3.5859e+00_rb,2.6888e+00_rb, &
+     &1.7925e+00_rb,8.9634e-01_rb,1.3582e-01_rb/)
+      kao(:, 3, 6,15) = (/ &
+     &8.7850e+00_rb,7.6873e+00_rb,6.5880e+00_rb,5.4902e+00_rb,4.3923e+00_rb,3.2943e+00_rb, &
+     &2.1960e+00_rb,1.0981e+00_rb,1.9014e-01_rb/)
+      kao(:, 4, 6,15) = (/ &
+     &1.0471e+01_rb,9.1623e+00_rb,7.8537e+00_rb,6.5443e+00_rb,5.2362e+00_rb,3.9265e+00_rb, &
+     &2.6173e+00_rb,1.3091e+00_rb,2.7084e-01_rb/)
+      kao(:, 5, 6,15) = (/ &
+     &1.2195e+01_rb,1.0670e+01_rb,9.1465e+00_rb,7.6219e+00_rb,6.0976e+00_rb,4.5729e+00_rb, &
+     &3.0483e+00_rb,1.5247e+00_rb,3.8788e-01_rb/)
+      kao(:, 1, 7,15) = (/ &
+     &1.0821e+01_rb,9.4694e+00_rb,8.1159e+00_rb,6.7641e+00_rb,5.4109e+00_rb,4.0578e+00_rb, &
+     &2.7049e+00_rb,1.3527e+00_rb,8.8090e-02_rb/)
+      kao(:, 2, 7,15) = (/ &
+     &1.4005e+01_rb,1.2256e+01_rb,1.0505e+01_rb,8.7544e+00_rb,7.0039e+00_rb,5.2527e+00_rb, &
+     &3.5019e+00_rb,1.7510e+00_rb,1.2836e-01_rb/)
+      kao(:, 3, 7,15) = (/ &
+     &1.7472e+01_rb,1.5288e+01_rb,1.3104e+01_rb,1.0920e+01_rb,8.7370e+00_rb,6.5526e+00_rb, &
+     &4.3682e+00_rb,2.1842e+00_rb,1.7912e-01_rb/)
+      kao(:, 4, 7,15) = (/ &
+     &2.1133e+01_rb,1.8491e+01_rb,1.5850e+01_rb,1.3209e+01_rb,1.0568e+01_rb,7.9265e+00_rb, &
+     &5.2835e+00_rb,2.6416e+00_rb,2.4968e-01_rb/)
+      kao(:, 5, 7,15) = (/ &
+     &2.4946e+01_rb,2.1829e+01_rb,1.8712e+01_rb,1.5594e+01_rb,1.2475e+01_rb,9.3563e+00_rb, &
+     &6.2369e+00_rb,3.1183e+00_rb,3.5418e-01_rb/)
+      kao(:, 1, 8,15) = (/ &
+     &2.4402e+01_rb,2.1362e+01_rb,1.8302e+01_rb,1.5253e+01_rb,1.2203e+01_rb,9.1488e+00_rb, &
+     &6.1012e+00_rb,3.0503e+00_rb,8.0172e-02_rb/)
+      kao(:, 2, 8,15) = (/ &
+     &3.2338e+01_rb,2.8299e+01_rb,2.4254e+01_rb,2.0211e+01_rb,1.6168e+01_rb,1.2127e+01_rb, &
+     &8.0850e+00_rb,4.0423e+00_rb,1.1917e-01_rb/)
+      kao(:, 3, 8,15) = (/ &
+     &4.1117e+01_rb,3.5977e+01_rb,3.0837e+01_rb,2.5703e+01_rb,2.0563e+01_rb,1.5418e+01_rb, &
+     &1.0280e+01_rb,5.1397e+00_rb,1.6937e-01_rb/)
+      kao(:, 4, 8,15) = (/ &
+     &5.0705e+01_rb,4.4368e+01_rb,3.8026e+01_rb,3.1698e+01_rb,2.5350e+01_rb,1.9014e+01_rb, &
+     &1.2673e+01_rb,6.3384e+00_rb,2.3470e-01_rb/)
+      kao(:, 5, 8,15) = (/ &
+     &6.0900e+01_rb,5.3282e+01_rb,4.5673e+01_rb,3.8064e+01_rb,3.0449e+01_rb,2.2835e+01_rb, &
+     &1.5224e+01_rb,7.6126e+00_rb,3.2704e-01_rb/)
+      kao(:, 1, 9,15) = (/ &
+     &1.0170e+02_rb,8.8996e+01_rb,7.6286e+01_rb,6.3569e+01_rb,5.0854e+01_rb,3.8145e+01_rb, &
+     &2.5429e+01_rb,1.2713e+01_rb,7.1359e-02_rb/)
+      kao(:, 2, 9,15) = (/ &
+     &1.3845e+02_rb,1.2114e+02_rb,1.0384e+02_rb,8.6532e+01_rb,6.9224e+01_rb,5.1921e+01_rb, &
+     &3.4611e+01_rb,1.7307e+01_rb,1.0767e-01_rb/)
+      kao(:, 3, 9,15) = (/ &
+     &1.8073e+02_rb,1.5810e+02_rb,1.3551e+02_rb,1.1293e+02_rb,9.0345e+01_rb,6.7755e+01_rb, &
+     &4.5176e+01_rb,2.2583e+01_rb,1.5849e-01_rb/)
+      kao(:, 4, 9,15) = (/ &
+     &2.2745e+02_rb,1.9903e+02_rb,1.7061e+02_rb,1.4217e+02_rb,1.1373e+02_rb,8.5301e+01_rb, &
+     &5.6875e+01_rb,2.8433e+01_rb,2.2030e-01_rb/)
+      kao(:, 5, 9,15) = (/ &
+     &2.7773e+02_rb,2.4298e+02_rb,2.0829e+02_rb,1.7358e+02_rb,1.3886e+02_rb,1.0414e+02_rb, &
+     &6.9430e+01_rb,3.4715e+01_rb,3.0575e-01_rb/)
+      kao(:, 1,10,15) = (/ &
+     &4.7674e+02_rb,4.1715e+02_rb,3.5753e+02_rb,2.9794e+02_rb,2.3835e+02_rb,1.7878e+02_rb, &
+     &1.1918e+02_rb,5.9592e+01_rb,7.9888e-06_rb/)
+      kao(:, 2,10,15) = (/ &
+     &6.6856e+02_rb,5.8521e+02_rb,5.0164e+02_rb,4.1786e+02_rb,3.3435e+02_rb,2.5071e+02_rb, &
+     &1.6719e+02_rb,8.3597e+01_rb,1.0572e-05_rb/)
+      kao(:, 3,10,15) = (/ &
+     &8.9281e+02_rb,7.8118e+02_rb,6.6956e+02_rb,5.5797e+02_rb,4.4639e+02_rb,3.3479e+02_rb, &
+     &2.2318e+02_rb,1.1160e+02_rb,1.3235e-05_rb/)
+      kao(:, 4,10,15) = (/ &
+     &1.1439e+03_rb,1.0009e+03_rb,8.5793e+02_rb,7.1497e+02_rb,5.7192e+02_rb,4.2885e+02_rb, &
+     &2.8596e+02_rb,1.4299e+02_rb,7.9928e-02_rb/)
+      kao(:, 5,10,15) = (/ &
+     &1.4160e+03_rb,1.2390e+03_rb,1.0620e+03_rb,8.8492e+02_rb,7.0798e+02_rb,5.3098e+02_rb, &
+     &3.5397e+02_rb,1.7699e+02_rb,2.0557e-01_rb/)
+      kao(:, 1,11,15) = (/ &
+     &9.1777e+02_rb,8.0296e+02_rb,6.8835e+02_rb,5.7354e+02_rb,4.5882e+02_rb,3.4414e+02_rb, &
+     &2.2941e+02_rb,1.1472e+02_rb,9.0079e-06_rb/)
+      kao(:, 2,11,15) = (/ &
+     &1.2897e+03_rb,1.1284e+03_rb,9.6718e+02_rb,8.0605e+02_rb,6.4484e+02_rb,4.8368e+02_rb, &
+     &3.2242e+02_rb,1.6120e+02_rb,1.0534e-05_rb/)
+      kao(:, 3,11,15) = (/ &
+     &1.7217e+03_rb,1.5064e+03_rb,1.2912e+03_rb,1.0761e+03_rb,8.6072e+02_rb,6.4564e+02_rb, &
+     &4.3042e+02_rb,2.1520e+02_rb,1.2890e-05_rb/)
+      kao(:, 4,11,15) = (/ &
+     &2.2030e+03_rb,1.9276e+03_rb,1.6522e+03_rb,1.3769e+03_rb,1.1015e+03_rb,8.2614e+02_rb, &
+     &5.5075e+02_rb,2.7537e+02_rb,1.8773e-05_rb/)
+      kao(:, 5,11,15) = (/ &
+     &2.7288e+03_rb,2.3877e+03_rb,2.0468e+03_rb,1.7056e+03_rb,1.3645e+03_rb,1.0232e+03_rb, &
+     &6.8218e+02_rb,3.4109e+02_rb,2.8192e-05_rb/)
+      kao(:, 1,12,15) = (/ &
+     &1.3049e+03_rb,1.1418e+03_rb,9.7855e+02_rb,8.1546e+02_rb,6.5249e+02_rb,4.8934e+02_rb, &
+     &3.2625e+02_rb,1.6311e+02_rb,7.4201e-06_rb/)
+      kao(:, 2,12,15) = (/ &
+     &1.8314e+03_rb,1.6024e+03_rb,1.3735e+03_rb,1.1446e+03_rb,9.1569e+02_rb,6.8677e+02_rb, &
+     &4.5789e+02_rb,2.2893e+02_rb,9.0712e-06_rb/)
+      kao(:, 3,12,15) = (/ &
+     &2.4447e+03_rb,2.1390e+03_rb,1.8335e+03_rb,1.5279e+03_rb,1.2222e+03_rb,9.1674e+02_rb, &
+     &6.1121e+02_rb,3.0557e+02_rb,9.2932e-06_rb/)
+      kao(:, 4,12,15) = (/ &
+     &3.1395e+03_rb,2.7470e+03_rb,2.3545e+03_rb,1.9622e+03_rb,1.5697e+03_rb,1.1774e+03_rb, &
+     &7.8488e+02_rb,3.9241e+02_rb,1.2651e-05_rb/)
+      kao(:, 5,12,15) = (/ &
+     &3.8988e+03_rb,3.4115e+03_rb,2.9243e+03_rb,2.4367e+03_rb,1.9495e+03_rb,1.4621e+03_rb, &
+     &9.7464e+02_rb,4.8737e+02_rb,2.0431e-05_rb/)
+      kao(:, 1,13,15) = (/ &
+     &1.4703e+03_rb,1.2867e+03_rb,1.1028e+03_rb,9.1904e+02_rb,7.3532e+02_rb,5.5150e+02_rb, &
+     &3.6759e+02_rb,1.8380e+02_rb,5.1458e-06_rb/)
+      kao(:, 2,13,15) = (/ &
+     &2.0704e+03_rb,1.8115e+03_rb,1.5528e+03_rb,1.2939e+03_rb,1.0351e+03_rb,7.7638e+02_rb, &
+     &5.1765e+02_rb,2.5875e+02_rb,6.1867e-06_rb/)
+      kao(:, 3,13,15) = (/ &
+     &2.7739e+03_rb,2.4272e+03_rb,2.0805e+03_rb,1.7336e+03_rb,1.3869e+03_rb,1.0403e+03_rb, &
+     &6.9356e+02_rb,3.4674e+02_rb,7.7061e-06_rb/)
+      kao(:, 4,13,15) = (/ &
+     &3.5658e+03_rb,3.1198e+03_rb,2.6740e+03_rb,2.2287e+03_rb,1.7830e+03_rb,1.3371e+03_rb, &
+     &8.9142e+02_rb,4.4572e+02_rb,1.1573e-05_rb/)
+      kao(:, 5,13,15) = (/ &
+     &4.4270e+03_rb,3.8738e+03_rb,3.3205e+03_rb,2.7670e+03_rb,2.2135e+03_rb,1.6602e+03_rb, &
+     &1.1068e+03_rb,5.5337e+02_rb,1.8919e-05_rb/)
+      kao(:, 1, 1,16) = (/ &
+     &2.0584e-01_rb,1.8014e-01_rb,1.5444e-01_rb,1.2874e-01_rb,1.0304e-01_rb,7.7345e-02_rb, &
+     &8.4273e-02_rb,8.1561e-02_rb,1.2397e-01_rb/)
+      kao(:, 2, 1,16) = (/ &
+     &2.4103e-01_rb,2.1093e-01_rb,1.8085e-01_rb,1.5075e-01_rb,1.2067e-01_rb,1.0583e-01_rb, &
+     &1.1670e-01_rb,1.1303e-01_rb,1.7190e-01_rb/)
+      kao(:, 3, 1,16) = (/ &
+     &2.7664e-01_rb,2.4213e-01_rb,2.0759e-01_rb,1.7305e-01_rb,1.3852e-01_rb,1.4127e-01_rb, &
+     &1.5588e-01_rb,1.5105e-01_rb,2.2980e-01_rb/)
+      kao(:, 4, 1,16) = (/ &
+     &3.1217e-01_rb,2.7321e-01_rb,2.3426e-01_rb,1.9529e-01_rb,1.5635e-01_rb,1.8285e-01_rb, &
+     &2.0187e-01_rb,1.9571e-01_rb,2.9781e-01_rb/)
+      kao(:, 5, 1,16) = (/ &
+     &3.4704e-01_rb,3.0374e-01_rb,2.6044e-01_rb,2.1712e-01_rb,2.0704e-01_rb,2.4179e-01_rb, &
+     &2.6249e-01_rb,2.4688e-01_rb,4.0744e-01_rb/)
+      kao(:, 1, 2,16) = (/ &
+     &3.5775e-01_rb,3.1302e-01_rb,2.6832e-01_rb,2.2363e-01_rb,1.7894e-01_rb,1.3423e-01_rb, &
+     &9.4199e-02_rb,9.5152e-02_rb,1.3347e-01_rb/)
+      kao(:, 2, 2,16) = (/ &
+     &4.2272e-01_rb,3.6993e-01_rb,3.1710e-01_rb,2.6431e-01_rb,2.1146e-01_rb,1.5866e-01_rb, &
+     &1.3268e-01_rb,1.3412e-01_rb,1.8823e-01_rb/)
+      kao(:, 3, 2,16) = (/ &
+     &4.8911e-01_rb,4.2798e-01_rb,3.6687e-01_rb,3.0577e-01_rb,2.4466e-01_rb,1.8360e-01_rb, &
+     &1.7978e-01_rb,1.8185e-01_rb,2.5529e-01_rb/)
+      kao(:, 4, 2,16) = (/ &
+     &5.5559e-01_rb,4.8623e-01_rb,4.1679e-01_rb,3.4735e-01_rb,2.7796e-01_rb,2.0932e-01_rb, &
+     &2.3570e-01_rb,2.3853e-01_rb,3.3493e-01_rb/)
+      kao(:, 5, 2,16) = (/ &
+     &6.2130e-01_rb,5.4374e-01_rb,4.6609e-01_rb,3.8845e-01_rb,3.1090e-01_rb,2.6998e-01_rb, &
+     &3.0230e-01_rb,3.0412e-01_rb,4.4787e-01_rb/)
+      kao(:, 1, 3,16) = (/ &
+     &8.0759e-01_rb,7.0655e-01_rb,6.0564e-01_rb,5.0473e-01_rb,4.0382e-01_rb,3.0291e-01_rb, &
+     &2.0195e-01_rb,1.0457e-01_rb,1.3240e-01_rb/)
+      kao(:, 2, 3,16) = (/ &
+     &9.6833e-01_rb,8.4737e-01_rb,7.2636e-01_rb,6.0527e-01_rb,4.8421e-01_rb,3.6321e-01_rb, &
+     &2.4220e-01_rb,1.5138e-01_rb,1.9184e-01_rb/)
+      kao(:, 3, 3,16) = (/ &
+     &1.1342e+00_rb,9.9245e-01_rb,8.5072e-01_rb,7.0903e-01_rb,5.6727e-01_rb,4.2548e-01_rb, &
+     &2.8373e-01_rb,2.0993e-01_rb,2.6621e-01_rb/)
+      kao(:, 4, 3,16) = (/ &
+     &1.3024e+00_rb,1.1395e+00_rb,9.7685e-01_rb,8.1409e-01_rb,6.5126e-01_rb,4.8855e-01_rb, &
+     &3.2575e-01_rb,2.8072e-01_rb,3.5605e-01_rb/)
+      kao(:, 5, 3,16) = (/ &
+     &1.4698e+00_rb,1.2860e+00_rb,1.1024e+00_rb,9.1880e-01_rb,7.3505e-01_rb,5.5132e-01_rb, &
+     &3.6767e-01_rb,3.6382e-01_rb,4.6256e-01_rb/)
+      kao(:, 1, 4,16) = (/ &
+     &1.8354e+00_rb,1.6059e+00_rb,1.3766e+00_rb,1.1471e+00_rb,9.1770e-01_rb,6.8825e-01_rb, &
+     &4.5887e-01_rb,2.2948e-01_rb,1.2512e-01_rb/)
+      kao(:, 2, 4,16) = (/ &
+     &2.2391e+00_rb,1.9593e+00_rb,1.6796e+00_rb,1.3998e+00_rb,1.1197e+00_rb,8.3982e-01_rb, &
+     &5.5988e-01_rb,2.7997e-01_rb,1.8724e-01_rb/)
+      kao(:, 3, 4,16) = (/ &
+     &2.6616e+00_rb,2.3290e+00_rb,1.9963e+00_rb,1.6635e+00_rb,1.3310e+00_rb,9.9835e-01_rb, &
+     &6.6551e-01_rb,3.3282e-01_rb,2.6695e-01_rb/)
+      kao(:, 4, 4,16) = (/ &
+     &3.0942e+00_rb,2.7077e+00_rb,2.3212e+00_rb,1.9341e+00_rb,1.5474e+00_rb,1.1605e+00_rb, &
+     &7.7373e-01_rb,3.8698e-01_rb,3.6534e-01_rb/)
+      kao(:, 5, 4,16) = (/ &
+     &3.5299e+00_rb,3.0886e+00_rb,2.6475e+00_rb,2.2065e+00_rb,1.7650e+00_rb,1.3239e+00_rb, &
+     &8.8260e-01_rb,4.4141e-01_rb,4.8300e-01_rb/)
+      kao(:, 1, 5,16) = (/ &
+     &3.8226e+00_rb,3.3446e+00_rb,2.8509e+00_rb,2.3892e+00_rb,1.9114e+00_rb,1.4335e+00_rb, &
+     &9.5565e-01_rb,4.7787e-01_rb,1.1560e-01_rb/)
+      kao(:, 2, 5,16) = (/ &
+     &4.7529e+00_rb,4.1589e+00_rb,3.5644e+00_rb,2.9706e+00_rb,2.3763e+00_rb,1.7823e+00_rb, &
+     &1.1883e+00_rb,5.9413e-01_rb,1.7922e-01_rb/)
+      kao(:, 3, 5,16) = (/ &
+     &5.7385e+00_rb,5.0213e+00_rb,4.3040e+00_rb,3.5869e+00_rb,2.8697e+00_rb,2.1522e+00_rb, &
+     &1.4347e+00_rb,7.1742e-01_rb,2.6311e-01_rb/)
+      kao(:, 4, 5,16) = (/ &
+     &6.7615e+00_rb,5.9164e+00_rb,5.0713e+00_rb,4.2261e+00_rb,3.3806e+00_rb,2.5357e+00_rb, &
+     &1.6905e+00_rb,8.4524e-01_rb,3.6914e-01_rb/)
+      kao(:, 5, 5,16) = (/ &
+     &7.8020e+00_rb,6.8269e+00_rb,5.8507e+00_rb,4.8765e+00_rb,3.9008e+00_rb,2.9261e+00_rb, &
+     &1.9507e+00_rb,9.7534e-01_rb,4.9832e-01_rb/)
+      kao(:, 1, 6,16) = (/ &
+     &7.3571e+00_rb,6.4369e+00_rb,5.5172e+00_rb,4.5985e+00_rb,3.6783e+00_rb,2.7589e+00_rb, &
+     &1.8291e+00_rb,9.1965e-01_rb,1.0645e-01_rb/)
+      kao(:, 2, 6,16) = (/ &
+     &9.3468e+00_rb,8.1778e+00_rb,7.0095e+00_rb,5.8414e+00_rb,4.6732e+00_rb,3.5051e+00_rb, &
+     &2.3366e+00_rb,1.1682e+00_rb,1.6617e-01_rb/)
+      kao(:, 3, 6,16) = (/ &
+     &1.1491e+01_rb,1.0055e+01_rb,8.6175e+00_rb,7.1820e+00_rb,5.7127e+00_rb,4.3090e+00_rb, &
+     &2.8724e+00_rb,1.4282e+00_rb,2.5233e-01_rb/)
+      kao(:, 4, 6,16) = (/ &
+     &1.3744e+01_rb,1.2025e+01_rb,1.0308e+01_rb,8.5898e+00_rb,6.8725e+00_rb,5.1546e+00_rb, &
+     &3.4361e+00_rb,1.7180e+00_rb,3.6410e-01_rb/)
+      kao(:, 5, 6,16) = (/ &
+     &1.6063e+01_rb,1.4056e+01_rb,1.2048e+01_rb,1.0040e+01_rb,8.0325e+00_rb,6.0238e+00_rb, &
+     &4.0162e+00_rb,2.0081e+00_rb,5.0340e-01_rb/)
+      kao(:, 1, 7,16) = (/ &
+     &1.4766e+01_rb,1.2923e+01_rb,1.1075e+01_rb,9.2294e+00_rb,7.3836e+00_rb,5.5378e+00_rb, &
+     &3.6915e+00_rb,1.8460e+00_rb,1.0988e-01_rb/)
+      kao(:, 2, 7,16) = (/ &
+     &1.9210e+01_rb,1.6809e+01_rb,1.4406e+01_rb,1.2004e+01_rb,9.6049e+00_rb,7.2040e+00_rb, &
+     &4.8023e+00_rb,2.4010e+00_rb,1.5119e-01_rb/)
+      kao(:, 3, 7,16) = (/ &
+     &2.4080e+01_rb,2.1071e+01_rb,1.8060e+01_rb,1.5050e+01_rb,1.2042e+01_rb,9.0305e+00_rb, &
+     &6.0199e+00_rb,2.9934e+00_rb,2.3822e-01_rb/)
+      kao(:, 4, 7,16) = (/ &
+     &2.9278e+01_rb,2.5619e+01_rb,2.1957e+01_rb,1.8300e+01_rb,1.4640e+01_rb,1.0980e+01_rb, &
+     &7.3208e+00_rb,3.6596e+00_rb,3.5444e-01_rb/)
+      kao(:, 5, 7,16) = (/ &
+     &3.4690e+01_rb,3.0352e+01_rb,2.6017e+01_rb,2.1683e+01_rb,1.7349e+01_rb,1.3009e+01_rb, &
+     &8.6734e+00_rb,4.3366e+00_rb,5.0281e-01_rb/)
+      kao(:, 1, 8,16) = (/ &
+     &3.5305e+01_rb,3.0898e+01_rb,2.6479e+01_rb,2.2066e+01_rb,1.7653e+01_rb,1.3237e+01_rb, &
+     &8.8267e+00_rb,4.4136e+00_rb,1.1225e-01_rb/)
+      kao(:, 2, 8,16) = (/ &
+     &4.7105e+01_rb,4.1217e+01_rb,3.5327e+01_rb,2.9443e+01_rb,2.3551e+01_rb,1.7664e+01_rb, &
+     &1.1776e+01_rb,5.8880e+00_rb,1.4909e-01_rb/)
+      kao(:, 3, 8,16) = (/ &
+     &6.0289e+01_rb,5.2760e+01_rb,4.5222e+01_rb,3.7680e+01_rb,3.0141e+01_rb,2.2609e+01_rb, &
+     &1.5075e+01_rb,7.5364e+00_rb,2.2235e-01_rb/)
+      kao(:, 4, 8,16) = (/ &
+     &7.4572e+01_rb,6.4882e+01_rb,5.5930e+01_rb,4.6614e+01_rb,3.7287e+01_rb,2.7965e+01_rb, &
+     &1.8642e+01_rb,9.3209e+00_rb,3.4182e-01_rb/)
+      kao(:, 5, 8,16) = (/ &
+     &8.9645e+01_rb,7.8444e+01_rb,6.7227e+01_rb,5.6021e+01_rb,4.4815e+01_rb,3.3612e+01_rb, &
+     &2.2408e+01_rb,1.1205e+01_rb,4.9824e-01_rb/)
+      kao(:, 1, 9,16) = (/ &
+     &1.5759e+02_rb,1.3788e+02_rb,1.1817e+02_rb,9.8475e+01_rb,7.8796e+01_rb,5.9083e+01_rb, &
+     &3.9390e+01_rb,1.9699e+01_rb,1.1304e-01_rb/)
+      kao(:, 2, 9,16) = (/ &
+     &2.1616e+02_rb,1.8914e+02_rb,1.6212e+02_rb,1.3510e+02_rb,1.0808e+02_rb,8.1068e+01_rb, &
+     &5.4043e+01_rb,2.7021e+01_rb,1.5445e-01_rb/)
+      kao(:, 3, 9,16) = (/ &
+     &2.8258e+02_rb,2.4760e+02_rb,2.1223e+02_rb,1.7686e+02_rb,1.4149e+02_rb,1.0611e+02_rb, &
+     &7.0744e+01_rb,3.5373e+01_rb,2.0441e-01_rb/)
+      kao(:, 4, 9,16) = (/ &
+     &3.5653e+02_rb,3.1192e+02_rb,2.6735e+02_rb,2.2280e+02_rb,1.7825e+02_rb,1.3369e+02_rb, &
+     &8.9123e+01_rb,4.4565e+01_rb,3.2503e-01_rb/)
+      kao(:, 5, 9,16) = (/ &
+     &4.3513e+02_rb,3.8075e+02_rb,3.2632e+02_rb,2.7197e+02_rb,2.1754e+02_rb,1.6316e+02_rb, &
+     &1.0877e+02_rb,5.4390e+01_rb,4.8785e-01_rb/)
+      kao(:, 1,10,16) = (/ &
+     &7.9828e+02_rb,6.9859e+02_rb,5.9871e+02_rb,4.9899e+02_rb,3.9914e+02_rb,2.9935e+02_rb, &
+     &1.9957e+02_rb,9.9786e+01_rb,1.4112e-06_rb/)
+      kao(:, 2,10,16) = (/ &
+     &1.1235e+03_rb,9.8329e+02_rb,8.4282e+02_rb,7.0236e+02_rb,5.6188e+02_rb,4.2131e+02_rb, &
+     &2.8094e+02_rb,1.4047e+02_rb,1.8812e-06_rb/)
+      kao(:, 3,10,16) = (/ &
+     &1.5014e+03_rb,1.3138e+03_rb,1.1261e+03_rb,9.3840e+02_rb,7.5072e+02_rb,5.6311e+02_rb, &
+     &3.7536e+02_rb,1.8771e+02_rb,2.5472e-06_rb/)
+      kao(:, 4,10,16) = (/ &
+     &1.9233e+03_rb,1.6832e+03_rb,1.4427e+03_rb,1.2020e+03_rb,9.6160e+02_rb,7.2135e+02_rb, &
+     &4.8081e+02_rb,2.4039e+02_rb,3.1592e-01_rb/)
+      kao(:, 5,10,16) = (/ &
+     &2.3793e+03_rb,2.0824e+03_rb,1.7849e+03_rb,1.4876e+03_rb,1.1900e+03_rb,8.9243e+02_rb, &
+     &5.9503e+02_rb,2.9747e+02_rb,4.8703e-01_rb/)
+      kao(:, 1,11,16) = (/ &
+     &1.6695e+03_rb,1.4608e+03_rb,1.2521e+03_rb,1.0434e+03_rb,8.3472e+02_rb,6.2605e+02_rb, &
+     &4.1737e+02_rb,2.0867e+02_rb,1.1529e-06_rb/)
+      kao(:, 2,11,16) = (/ &
+     &2.3476e+03_rb,2.0540e+03_rb,1.7608e+03_rb,1.4673e+03_rb,1.1739e+03_rb,8.8029e+02_rb, &
+     &5.8691e+02_rb,2.9349e+02_rb,1.5382e-06_rb/)
+      kao(:, 3,11,16) = (/ &
+     &3.1326e+03_rb,2.7416e+03_rb,2.3500e+03_rb,1.9579e+03_rb,1.5664e+03_rb,1.1749e+03_rb, &
+     &7.8334e+02_rb,3.9162e+02_rb,2.0823e-06_rb/)
+      kao(:, 4,11,16) = (/ &
+     &4.0087e+03_rb,3.5076e+03_rb,3.0065e+03_rb,2.5054e+03_rb,2.0043e+03_rb,1.5033e+03_rb, &
+     &1.0022e+03_rb,5.0110e+02_rb,2.4008e-06_rb/)
+      kao(:, 5,11,16) = (/ &
+     &4.9540e+03_rb,4.3346e+03_rb,3.7151e+03_rb,3.0963e+03_rb,2.4766e+03_rb,1.8577e+03_rb, &
+     &1.2385e+03_rb,6.1917e+02_rb,1.3302e-05_rb/)
+      kao(:, 1,12,16) = (/ &
+     &2.5940e+03_rb,2.2689e+03_rb,1.9455e+03_rb,1.6210e+03_rb,1.2970e+03_rb,9.7271e+02_rb, &
+     &6.4849e+02_rb,3.2418e+02_rb,9.4397e-07_rb/)
+      kao(:, 2,12,16) = (/ &
+     &3.6401e+03_rb,3.1850e+03_rb,2.7301e+03_rb,2.2751e+03_rb,1.8200e+03_rb,1.3650e+03_rb, &
+     &9.1001e+02_rb,4.5497e+02_rb,1.2594e-06_rb/)
+      kao(:, 3,12,16) = (/ &
+     &4.8482e+03_rb,4.2436e+03_rb,3.6368e+03_rb,3.0301e+03_rb,2.4250e+03_rb,1.8187e+03_rb, &
+     &1.2120e+03_rb,6.0606e+02_rb,1.2513e-05_rb/)
+      kao(:, 4,12,16) = (/ &
+     &6.1914e+03_rb,5.4187e+03_rb,4.6435e+03_rb,3.8696e+03_rb,3.0964e+03_rb,2.3220e+03_rb, &
+     &1.5479e+03_rb,7.7403e+02_rb,2.0845e-05_rb/)
+      kao(:, 5,12,16) = (/ &
+     &7.6366e+03_rb,6.6419e+03_rb,5.7257e+03_rb,4.7728e+03_rb,3.8188e+03_rb,2.8637e+03_rb, &
+     &1.9092e+03_rb,9.4962e+02_rb,2.1463e-05_rb/)
+      kao(:, 1,13,16) = (/ &
+     &3.2192e+03_rb,2.8160e+03_rb,2.4141e+03_rb,2.0117e+03_rb,1.6091e+03_rb,1.2070e+03_rb, &
+     &8.0460e+02_rb,4.0235e+02_rb,2.5866e-06_rb/)
+      kao(:, 2,13,16) = (/ &
+     &4.5059e+03_rb,3.9428e+03_rb,3.3791e+03_rb,2.8160e+03_rb,2.2531e+03_rb,1.6897e+03_rb, &
+     &1.1264e+03_rb,5.6328e+02_rb,9.4719e-06_rb/)
+      kao(:, 3,13,16) = (/ &
+     &5.9881e+03_rb,5.2388e+03_rb,4.4907e+03_rb,3.7423e+03_rb,2.9935e+03_rb,2.2450e+03_rb, &
+     &1.4968e+03_rb,7.4841e+02_rb,1.6561e-05_rb/)
+      kao(:, 4,13,16) = (/ &
+     &7.6265e+03_rb,6.6729e+03_rb,5.7200e+03_rb,4.7671e+03_rb,3.8133e+03_rb,2.8600e+03_rb, &
+     &1.9066e+03_rb,9.4757e+02_rb,2.1537e-05_rb/)
+      kao(:, 5,13,16) = (/ &
+     &9.3827e+03_rb,8.2086e+03_rb,7.0366e+03_rb,5.8639e+03_rb,4.6917e+03_rb,3.5181e+03_rb, &
+     &2.3456e+03_rb,1.1729e+03_rb,2.1283e-05_rb/)
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of H2O to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the 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 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:, 1,13, 1) = (/ &
+     &1.5731e-03_rb,1.8696e-03_rb,1.8486e-03_rb,1.7186e-03_rb,1.3898e-03_rb/)
+      kbo(:, 2,13, 1) = (/ &
+     &1.8623e-03_rb,2.3963e-03_rb,2.4362e-03_rb,2.2990e-03_rb,1.8223e-03_rb/)
+      kbo(:, 3,13, 1) = (/ &
+     &2.3718e-03_rb,3.1878e-03_rb,3.2540e-03_rb,3.0430e-03_rb,2.2915e-03_rb/)
+      kbo(:, 4,13, 1) = (/ &
+     &3.1921e-03_rb,4.3104e-03_rb,4.3590e-03_rb,3.9821e-03_rb,2.7709e-03_rb/)
+      kbo(:, 5,13, 1) = (/ &
+     &4.4313e-03_rb,5.8691e-03_rb,5.8118e-03_rb,5.1528e-03_rb,3.2426e-03_rb/)
+      kbo(:, 1,14, 1) = (/ &
+     &8.1496e-04_rb,1.1449e-03_rb,1.2521e-03_rb,1.2864e-03_rb,1.1830e-03_rb/)
+      kbo(:, 2,14, 1) = (/ &
+     &9.7291e-04_rb,1.4990e-03_rb,1.6700e-03_rb,1.7215e-03_rb,1.5434e-03_rb/)
+      kbo(:, 3,14, 1) = (/ &
+     &1.2487e-03_rb,2.0089e-03_rb,2.2296e-03_rb,2.2624e-03_rb,1.9289e-03_rb/)
+      kbo(:, 4,14, 1) = (/ &
+     &1.6881e-03_rb,2.7166e-03_rb,2.9639e-03_rb,2.9248e-03_rb,2.3207e-03_rb/)
+      kbo(:, 5,14, 1) = (/ &
+     &2.3524e-03_rb,3.6802e-03_rb,3.9082e-03_rb,3.7262e-03_rb,2.7008e-03_rb/)
+      kbo(:, 1,15, 1) = (/ &
+     &4.3177e-04_rb,7.4258e-04_rb,8.9651e-04_rb,1.0013e-03_rb,1.0098e-03_rb/)
+      kbo(:, 2,15, 1) = (/ &
+     &5.2028e-04_rb,9.8643e-04_rb,1.2013e-03_rb,1.3351e-03_rb,1.3087e-03_rb/)
+      kbo(:, 3,15, 1) = (/ &
+     &6.7289e-04_rb,1.3258e-03_rb,1.5978e-03_rb,1.7375e-03_rb,1.6233e-03_rb/)
+      kbo(:, 4,15, 1) = (/ &
+     &9.1389e-04_rb,1.7863e-03_rb,2.1013e-03_rb,2.2138e-03_rb,1.9402e-03_rb/)
+      kbo(:, 5,15, 1) = (/ &
+     &1.2783e-03_rb,2.4005e-03_rb,2.7322e-03_rb,2.7722e-03_rb,2.2422e-03_rb/)
+      kbo(:, 1,16, 1) = (/ &
+     &2.7315e-04_rb,5.4830e-04_rb,7.0218e-04_rb,8.1997e-04_rb,8.6240e-04_rb/)
+      kbo(:, 2,16, 1) = (/ &
+     &3.3240e-04_rb,7.3351e-04_rb,9.4112e-04_rb,1.0872e-03_rb,1.1098e-03_rb/)
+      kbo(:, 3,16, 1) = (/ &
+     &4.3314e-04_rb,9.8584e-04_rb,1.2457e-03_rb,1.4034e-03_rb,1.3664e-03_rb/)
+      kbo(:, 4,16, 1) = (/ &
+     &5.9092e-04_rb,1.3229e-03_rb,1.6223e-03_rb,1.7684e-03_rb,1.6211e-03_rb/)
+      kbo(:, 5,16, 1) = (/ &
+     &8.2878e-04_rb,1.7642e-03_rb,2.0878e-03_rb,2.1890e-03_rb,1.8647e-03_rb/)
+      kbo(:, 1,17, 1) = (/ &
+     &1.7965e-04_rb,4.1801e-04_rb,5.6155e-04_rb,6.7756e-04_rb,7.3362e-04_rb/)
+      kbo(:, 2,17, 1) = (/ &
+     &2.2058e-04_rb,5.6121e-04_rb,7.5064e-04_rb,8.9254e-04_rb,9.3681e-04_rb/)
+      kbo(:, 3,17, 1) = (/ &
+     &2.8939e-04_rb,7.5257e-04_rb,9.8597e-04_rb,1.1419e-03_rb,1.1452e-03_rb/)
+      kbo(:, 4,17, 1) = (/ &
+     &3.9639e-04_rb,1.0037e-03_rb,1.2718e-03_rb,1.4256e-03_rb,1.3514e-03_rb/)
+      kbo(:, 5,17, 1) = (/ &
+     &5.5678e-04_rb,1.3263e-03_rb,1.6209e-03_rb,1.7480e-03_rb,1.5479e-03_rb/)
+      kbo(:, 1,18, 1) = (/ &
+     &1.2144e-04_rb,3.2556e-04_rb,4.5465e-04_rb,5.6224e-04_rb,6.2157e-04_rb/)
+      kbo(:, 2,18, 1) = (/ &
+     &1.5036e-04_rb,4.3710e-04_rb,6.0499e-04_rb,7.3530e-04_rb,7.8763e-04_rb/)
+      kbo(:, 3,18, 1) = (/ &
+     &1.9855e-04_rb,5.8365e-04_rb,7.8791e-04_rb,9.3325e-04_rb,9.5745e-04_rb/)
+      kbo(:, 4,18, 1) = (/ &
+     &2.7288e-04_rb,7.7253e-04_rb,1.0079e-03_rb,1.1563e-03_rb,1.1247e-03_rb/)
+      kbo(:, 5,18, 1) = (/ &
+     &3.8348e-04_rb,1.0128e-03_rb,1.2724e-03_rb,1.4068e-03_rb,1.2838e-03_rb/)
+      kbo(:, 1,19, 1) = (/ &
+     &8.0908e-05_rb,2.5355e-04_rb,3.6780e-04_rb,4.6534e-04_rb,5.2420e-04_rb/)
+      kbo(:, 2,19, 1) = (/ &
+     &1.0097e-04_rb,3.3963e-04_rb,4.8637e-04_rb,6.0408e-04_rb,6.5997e-04_rb/)
+      kbo(:, 3,19, 1) = (/ &
+     &1.3403e-04_rb,4.5064e-04_rb,6.2806e-04_rb,7.6126e-04_rb,7.9854e-04_rb/)
+      kbo(:, 4,19, 1) = (/ &
+     &1.8471e-04_rb,5.9188e-04_rb,7.9637e-04_rb,9.3587e-04_rb,9.3436e-04_rb/)
+      kbo(:, 5,19, 1) = (/ &
+     &2.5970e-04_rb,7.6935e-04_rb,9.9605e-04_rb,1.1301e-03_rb,1.0631e-03_rb/)
+      kbo(:, 1,20, 1) = (/ &
+     &5.8651e-05_rb,2.0533e-04_rb,3.0468e-04_rb,3.8991e-04_rb,4.4299e-04_rb/)
+      kbo(:, 2,20, 1) = (/ &
+     &7.3858e-05_rb,2.7425e-04_rb,4.0056e-04_rb,5.0325e-04_rb,5.5439e-04_rb/)
+      kbo(:, 3,20, 1) = (/ &
+     &9.8558e-05_rb,3.6201e-04_rb,5.1389e-04_rb,6.3043e-04_rb,6.6745e-04_rb/)
+      kbo(:, 4,20, 1) = (/ &
+     &1.3624e-04_rb,4.7289e-04_rb,6.4732e-04_rb,7.7044e-04_rb,7.7770e-04_rb/)
+      kbo(:, 5,20, 1) = (/ &
+     &1.9168e-04_rb,6.1111e-04_rb,8.0443e-04_rb,9.2550e-04_rb,8.8213e-04_rb/)
+      kbo(:, 1,21, 1) = (/ &
+     &4.3969e-05_rb,1.6839e-04_rb,2.5404e-04_rb,3.2750e-04_rb,3.7386e-04_rb/)
+      kbo(:, 2,21, 1) = (/ &
+     &5.5807e-05_rb,2.2425e-04_rb,3.3214e-04_rb,4.2065e-04_rb,4.6519e-04_rb/)
+      kbo(:, 3,21, 1) = (/ &
+     &7.4871e-05_rb,2.9470e-04_rb,4.2375e-04_rb,5.2400e-04_rb,5.5744e-04_rb/)
+      kbo(:, 4,21, 1) = (/ &
+     &1.0381e-04_rb,3.8330e-04_rb,5.3089e-04_rb,6.3750e-04_rb,6.4727e-04_rb/)
+      kbo(:, 5,21, 1) = (/ &
+     &1.4611e-04_rb,4.9243e-04_rb,6.5637e-04_rb,7.6218e-04_rb,7.3199e-04_rb/)
+      kbo(:, 1,22, 1) = (/ &
+     &3.4337e-05_rb,1.4203e-04_rb,2.1658e-04_rb,2.8040e-04_rb,3.2005e-04_rb/)
+      kbo(:, 2,22, 1) = (/ &
+     &4.4095e-05_rb,1.8845e-04_rb,2.8132e-04_rb,3.5774e-04_rb,3.9514e-04_rb/)
+      kbo(:, 3,22, 1) = (/ &
+     &5.9627e-05_rb,2.4659e-04_rb,3.5661e-04_rb,4.4266e-04_rb,4.7049e-04_rb/)
+      kbo(:, 4,22, 1) = (/ &
+     &8.3001e-05_rb,3.1905e-04_rb,4.4430e-04_rb,5.3537e-04_rb,5.4306e-04_rb/)
+      kbo(:, 5,22, 1) = (/ &
+     &1.1688e-04_rb,4.0732e-04_rb,5.4669e-04_rb,6.3703e-04_rb,6.1162e-04_rb/)
+      kbo(:, 1,23, 1) = (/ &
+     &2.7088e-05_rb,1.2024e-04_rb,1.8486e-04_rb,2.4028e-04_rb,2.7381e-04_rb/)
+      kbo(:, 2,23, 1) = (/ &
+     &3.5182e-05_rb,1.5885e-04_rb,2.3849e-04_rb,3.0423e-04_rb,3.3547e-04_rb/)
+      kbo(:, 3,23, 1) = (/ &
+     &4.7910e-05_rb,2.0687e-04_rb,3.0043e-04_rb,3.7399e-04_rb,3.9686e-04_rb/)
+      kbo(:, 4,23, 1) = (/ &
+     &6.6975e-05_rb,2.6613e-04_rb,3.7259e-04_rb,4.4994e-04_rb,4.5570e-04_rb/)
+      kbo(:, 5,23, 1) = (/ &
+     &9.4305e-05_rb,3.3770e-04_rb,4.5596e-04_rb,5.3292e-04_rb,5.1097e-04_rb/)
+      kbo(:, 1,24, 1) = (/ &
+     &2.1382e-05_rb,1.0191e-04_rb,1.5778e-04_rb,2.0583e-04_rb,2.3424e-04_rb/)
+      kbo(:, 2,24, 1) = (/ &
+     &2.8085e-05_rb,1.3391e-04_rb,2.0214e-04_rb,2.5863e-04_rb,2.8484e-04_rb/)
+      kbo(:, 3,24, 1) = (/ &
+     &3.8505e-05_rb,1.7343e-04_rb,2.5313e-04_rb,3.1592e-04_rb,3.3477e-04_rb/)
+      kbo(:, 4,24, 1) = (/ &
+     &5.3997e-05_rb,2.2171e-04_rb,3.1228e-04_rb,3.7804e-04_rb,3.8231e-04_rb/)
+      kbo(:, 5,24, 1) = (/ &
+     &7.5953e-05_rb,2.7966e-04_rb,3.7978e-04_rb,4.4568e-04_rb,4.2681e-04_rb/)
+      kbo(:, 1,25, 1) = (/ &
+     &1.7217e-05_rb,8.6935e-05_rb,1.3520e-04_rb,1.7667e-04_rb,2.0051e-04_rb/)
+      kbo(:, 2,25, 1) = (/ &
+     &2.2860e-05_rb,1.1361e-04_rb,1.7201e-04_rb,2.2028e-04_rb,2.4198e-04_rb/)
+      kbo(:, 3,25, 1) = (/ &
+     &3.1540e-05_rb,1.4632e-04_rb,2.1426e-04_rb,2.6745e-04_rb,2.8247e-04_rb/)
+      kbo(:, 4,25, 1) = (/ &
+     &4.4330e-05_rb,1.8594e-04_rb,2.6272e-04_rb,3.1846e-04_rb,3.2089e-04_rb/)
+      kbo(:, 5,25, 1) = (/ &
+     &6.2260e-05_rb,2.3327e-04_rb,3.1770e-04_rb,3.7373e-04_rb,3.5666e-04_rb/)
+      kbo(:, 1,26, 1) = (/ &
+     &1.4222e-05_rb,7.4853e-05_rb,1.1659e-04_rb,1.5229e-04_rb,1.7205e-04_rb/)
+      kbo(:, 2,26, 1) = (/ &
+     &1.9097e-05_rb,9.7290e-05_rb,1.4733e-04_rb,1.8840e-04_rb,2.0595e-04_rb/)
+      kbo(:, 3,26, 1) = (/ &
+     &2.6498e-05_rb,1.2462e-04_rb,1.8247e-04_rb,2.2740e-04_rb,2.3871e-04_rb/)
+      kbo(:, 4,26, 1) = (/ &
+     &3.7304e-05_rb,1.5749e-04_rb,2.2244e-04_rb,2.6950e-04_rb,2.6966e-04_rb/)
+      kbo(:, 5,26, 1) = (/ &
+     &5.2263e-05_rb,1.9669e-04_rb,2.6764e-04_rb,3.1472e-04_rb,2.9848e-04_rb/)
+      kbo(:, 1,27, 1) = (/ &
+     &1.2263e-05_rb,6.5144e-05_rb,1.0108e-04_rb,1.3156e-04_rb,1.4744e-04_rb/)
+      kbo(:, 2,27, 1) = (/ &
+     &1.6644e-05_rb,8.4290e-05_rb,1.2696e-04_rb,1.6163e-04_rb,1.7509e-04_rb/)
+      kbo(:, 3,27, 1) = (/ &
+     &2.3202e-05_rb,1.0755e-04_rb,1.5651e-04_rb,1.9419e-04_rb,2.0159e-04_rb/)
+      kbo(:, 4,27, 1) = (/ &
+     &3.2669e-05_rb,1.3540e-04_rb,1.9003e-04_rb,2.2917e-04_rb,2.2657e-04_rb/)
+      kbo(:, 5,27, 1) = (/ &
+     &4.5636e-05_rb,1.6849e-04_rb,2.2778e-04_rb,2.6648e-04_rb,2.4966e-04_rb/)
+      kbo(:, 1,28, 1) = (/ &
+     &1.0907e-05_rb,5.7118e-05_rb,8.7946e-05_rb,1.1378e-04_rb,1.2622e-04_rb/)
+      kbo(:, 2,28, 1) = (/ &
+     &1.4925e-05_rb,7.3661e-05_rb,1.0996e-04_rb,1.3907e-04_rb,1.4872e-04_rb/)
+      kbo(:, 3,28, 1) = (/ &
+     &2.0909e-05_rb,9.3671e-05_rb,1.3497e-04_rb,1.6629e-04_rb,1.7014e-04_rb/)
+      kbo(:, 4,28, 1) = (/ &
+     &2.9425e-05_rb,1.1761e-04_rb,1.6330e-04_rb,1.9540e-04_rb,1.9022e-04_rb/)
+      kbo(:, 5,28, 1) = (/ &
+     &4.0966e-05_rb,1.4604e-04_rb,1.9535e-04_rb,2.2654e-04_rb,2.0877e-04_rb/)
+      kbo(:, 1,29, 1) = (/ &
+     &1.0363e-05_rb,5.1128e-05_rb,7.7457e-05_rb,9.9099e-05_rb,1.0807e-04_rb/)
+      kbo(:, 2,29, 1) = (/ &
+     &1.4287e-05_rb,6.5810e-05_rb,9.6485e-05_rb,1.2056e-04_rb,1.2631e-04_rb/)
+      kbo(:, 3,29, 1) = (/ &
+     &2.0078e-05_rb,8.3622e-05_rb,1.1822e-04_rb,1.4364e-04_rb,1.4366e-04_rb/)
+      kbo(:, 4,29, 1) = (/ &
+     &2.8213e-05_rb,1.0495e-04_rb,1.4288e-04_rb,1.6839e-04_rb,1.5982e-04_rb/)
+      kbo(:, 5,29, 1) = (/ &
+     &3.9150e-05_rb,1.3025e-04_rb,1.7086e-04_rb,1.9491e-04_rb,1.7468e-04_rb/)
+      kbo(:, 1,30, 1) = (/ &
+     &1.0130e-05_rb,4.6183e-05_rb,6.8547e-05_rb,8.6516e-05_rb,9.2360e-05_rb/)
+      kbo(:, 2,30, 1) = (/ &
+     &1.4060e-05_rb,5.9445e-05_rb,8.5241e-05_rb,1.0481e-04_rb,1.0719e-04_rb/)
+      kbo(:, 3,30, 1) = (/ &
+     &1.9789e-05_rb,7.5542e-05_rb,1.0433e-04_rb,1.2454e-04_rb,1.2117e-04_rb/)
+      kbo(:, 4,30, 1) = (/ &
+     &2.7737e-05_rb,9.4871e-05_rb,1.2613e-04_rb,1.4578e-04_rb,1.3421e-04_rb/)
+      kbo(:, 5,30, 1) = (/ &
+     &3.8345e-05_rb,1.1778e-04_rb,1.5088e-04_rb,1.6869e-04_rb,1.4612e-04_rb/)
+      kbo(:, 1,31, 1) = (/ &
+     &1.0468e-05_rb,4.2679e-05_rb,6.1533e-05_rb,7.6101e-05_rb,7.8936e-05_rb/)
+      kbo(:, 2,31, 1) = (/ &
+     &1.4602e-05_rb,5.5015e-05_rb,7.6472e-05_rb,9.1912e-05_rb,9.0925e-05_rb/)
+      kbo(:, 3,31, 1) = (/ &
+     &2.0565e-05_rb,7.0045e-05_rb,9.3754e-05_rb,1.0914e-04_rb,1.0226e-04_rb/)
+      kbo(:, 4,31, 1) = (/ &
+     &2.8741e-05_rb,8.8177e-05_rb,1.1361e-04_rb,1.2783e-04_rb,1.1277e-04_rb/)
+      kbo(:, 5,31, 1) = (/ &
+     &3.9551e-05_rb,1.0965e-04_rb,1.3625e-04_rb,1.4816e-04_rb,1.2240e-04_rb/)
+      kbo(:, 1,32, 1) = (/ &
+     &1.0980e-05_rb,3.9860e-05_rb,5.5596e-05_rb,6.7154e-05_rb,6.7396e-05_rb/)
+      kbo(:, 2,32, 1) = (/ &
+     &1.5378e-05_rb,5.1481e-05_rb,6.9207e-05_rb,8.1024e-05_rb,7.7105e-05_rb/)
+      kbo(:, 3,32, 1) = (/ &
+     &2.1641e-05_rb,6.5723e-05_rb,8.5005e-05_rb,9.6172e-05_rb,8.6258e-05_rb/)
+      kbo(:, 4,32, 1) = (/ &
+     &3.0131e-05_rb,8.2891e-05_rb,1.0329e-04_rb,1.1283e-04_rb,9.4767e-05_rb/)
+      kbo(:, 5,32, 1) = (/ &
+     &4.1276e-05_rb,1.0326e-04_rb,1.2427e-04_rb,1.3104e-04_rb,1.0241e-04_rb/)
+      kbo(:, 1,33, 1) = (/ &
+     &1.1748e-05_rb,3.7749e-05_rb,5.0777e-05_rb,5.9616e-05_rb,5.7446e-05_rb/)
+      kbo(:, 2,33, 1) = (/ &
+     &1.6501e-05_rb,4.8915e-05_rb,6.3363e-05_rb,7.1901e-05_rb,6.5353e-05_rb/)
+      kbo(:, 3,33, 1) = (/ &
+     &2.3188e-05_rb,6.2624e-05_rb,7.8070e-05_rb,8.5481e-05_rb,7.2776e-05_rb/)
+      kbo(:, 4,33, 1) = (/ &
+     &3.2156e-05_rb,7.9179e-05_rb,9.5194e-05_rb,1.0052e-04_rb,7.9571e-05_rb/)
+      kbo(:, 5,33, 1) = (/ &
+     &4.3815e-05_rb,9.8786e-05_rb,1.1493e-04_rb,1.1713e-04_rb,8.5692e-05_rb/)
+      kbo(:, 1,34, 1) = (/ &
+     &1.2122e-05_rb,3.5250e-05_rb,4.5906e-05_rb,5.2480e-05_rb,4.8658e-05_rb/)
+      kbo(:, 2,34, 1) = (/ &
+     &1.7058e-05_rb,4.5800e-05_rb,5.7395e-05_rb,6.3326e-05_rb,5.5101e-05_rb/)
+      kbo(:, 3,34, 1) = (/ &
+     &2.3918e-05_rb,5.8762e-05_rb,7.0946e-05_rb,7.5460e-05_rb,6.1101e-05_rb/)
+      kbo(:, 4,34, 1) = (/ &
+     &3.3054e-05_rb,7.4431e-05_rb,8.6803e-05_rb,8.8957e-05_rb,6.6540e-05_rb/)
+      kbo(:, 5,34, 1) = (/ &
+     &4.4827e-05_rb,9.2907e-05_rb,1.0510e-04_rb,1.0393e-04_rb,7.1470e-05_rb/)
+      kbo(:, 1,35, 1) = (/ &
+     &1.2136e-05_rb,3.2274e-05_rb,4.0784e-05_rb,4.5493e-05_rb,4.0671e-05_rb/)
+      kbo(:, 2,35, 1) = (/ &
+     &1.7085e-05_rb,4.2082e-05_rb,5.1198e-05_rb,5.5056e-05_rb,4.5918e-05_rb/)
+      kbo(:, 3,35, 1) = (/ &
+     &2.3916e-05_rb,5.4183e-05_rb,6.3553e-05_rb,6.5795e-05_rb,5.0794e-05_rb/)
+      kbo(:, 4,35, 1) = (/ &
+     &3.2983e-05_rb,6.8784e-05_rb,7.8061e-05_rb,7.7848e-05_rb,5.5215e-05_rb/)
+      kbo(:, 5,35, 1) = (/ &
+     &4.4608e-05_rb,8.5962e-05_rb,9.4799e-05_rb,9.1316e-05_rb,5.9185e-05_rb/)
+      kbo(:, 1,36, 1) = (/ &
+     &1.1639e-05_rb,2.8710e-05_rb,3.5389e-05_rb,3.8647e-05_rb,3.3496e-05_rb/)
+      kbo(:, 2,36, 1) = (/ &
+     &1.6387e-05_rb,3.7611e-05_rb,4.4660e-05_rb,4.6982e-05_rb,3.7819e-05_rb/)
+      kbo(:, 3,36, 1) = (/ &
+     &2.2931e-05_rb,4.8613e-05_rb,5.5727e-05_rb,5.6405e-05_rb,4.1793e-05_rb/)
+      kbo(:, 4,36, 1) = (/ &
+     &3.1614e-05_rb,6.1937e-05_rb,6.8745e-05_rb,6.7054e-05_rb,4.5416e-05_rb/)
+      kbo(:, 5,36, 1) = (/ &
+     &4.2736e-05_rb,7.7667e-05_rb,8.3834e-05_rb,7.9002e-05_rb,4.8700e-05_rb/)
+      kbo(:, 1,37, 1) = (/ &
+     &1.0334e-05_rb,2.4228e-05_rb,2.9412e-05_rb,3.1719e-05_rb,2.7018e-05_rb/)
+      kbo(:, 2,37, 1) = (/ &
+     &1.4545e-05_rb,3.1907e-05_rb,3.7329e-05_rb,3.8760e-05_rb,3.0586e-05_rb/)
+      kbo(:, 3,37, 1) = (/ &
+     &2.0385e-05_rb,4.1462e-05_rb,4.6849e-05_rb,4.6806e-05_rb,3.3891e-05_rb/)
+      kbo(:, 4,37, 1) = (/ &
+     &2.8167e-05_rb,5.3075e-05_rb,5.8122e-05_rb,5.5962e-05_rb,3.6915e-05_rb/)
+      kbo(:, 5,37, 1) = (/ &
+     &3.8188e-05_rb,6.6903e-05_rb,7.1250e-05_rb,6.6274e-05_rb,3.9679e-05_rb/)
+      kbo(:, 1,38, 1) = (/ &
+     &9.2873e-06_rb,2.0587e-05_rb,2.4545e-05_rb,2.6080e-05_rb,2.1759e-05_rb/)
+      kbo(:, 2,38, 1) = (/ &
+     &1.3062e-05_rb,2.7262e-05_rb,3.1359e-05_rb,3.2085e-05_rb,2.4714e-05_rb/)
+      kbo(:, 3,38, 1) = (/ &
+     &1.8340e-05_rb,3.5628e-05_rb,3.9617e-05_rb,3.8992e-05_rb,2.7465e-05_rb/)
+      kbo(:, 4,38, 1) = (/ &
+     &2.5394e-05_rb,4.5875e-05_rb,4.9461e-05_rb,4.6884e-05_rb,2.9998e-05_rb/)
+      kbo(:, 5,38, 1) = (/ &
+     &3.4528e-05_rb,5.8131e-05_rb,6.0967e-05_rb,5.5861e-05_rb,3.2334e-05_rb/)
+      kbo(:, 1,39, 1) = (/ &
+     &8.5453e-06_rb,1.7761e-05_rb,2.0713e-05_rb,2.1598e-05_rb,1.7527e-05_rb/)
+      kbo(:, 2,39, 1) = (/ &
+     &1.2008e-05_rb,2.3655e-05_rb,2.6655e-05_rb,2.6765e-05_rb,1.9983e-05_rb/)
+      kbo(:, 3,39, 1) = (/ &
+     &1.6881e-05_rb,3.1100e-05_rb,3.3909e-05_rb,3.2745e-05_rb,2.2276e-05_rb/)
+      kbo(:, 4,39, 1) = (/ &
+     &2.3421e-05_rb,4.0278e-05_rb,4.2620e-05_rb,3.9657e-05_rb,2.4422e-05_rb/)
+      kbo(:, 5,39, 1) = (/ &
+     &3.1935e-05_rb,5.1364e-05_rb,5.2889e-05_rb,4.7569e-05_rb,2.6373e-05_rb/)
+      kbo(:, 1,40, 1) = (/ &
+     &7.1461e-06_rb,1.4361e-05_rb,1.6604e-05_rb,1.7207e-05_rb,1.3880e-05_rb/)
+      kbo(:, 2,40, 1) = (/ &
+     &1.0009e-05_rb,1.9228e-05_rb,2.1496e-05_rb,2.1462e-05_rb,1.5923e-05_rb/)
+      kbo(:, 3,40, 1) = (/ &
+     &1.4089e-05_rb,2.5420e-05_rb,2.7521e-05_rb,2.6424e-05_rb,1.7845e-05_rb/)
+      kbo(:, 4,40, 1) = (/ &
+     &1.9620e-05_rb,3.3119e-05_rb,3.4800e-05_rb,3.2193e-05_rb,1.9645e-05_rb/)
+      kbo(:, 5,40, 1) = (/ &
+     &2.6885e-05_rb,4.2499e-05_rb,4.3444e-05_rb,3.8836e-05_rb,2.1269e-05_rb/)
+      kbo(:, 1,41, 1) = (/ &
+     &5.9442e-06_rb,1.1549e-05_rb,1.3242e-05_rb,1.3641e-05_rb,1.0951e-05_rb/)
+      kbo(:, 2,41, 1) = (/ &
+     &8.2890e-06_rb,1.5538e-05_rb,1.7245e-05_rb,1.7129e-05_rb,1.2647e-05_rb/)
+      kbo(:, 3,41, 1) = (/ &
+     &1.1675e-05_rb,2.0658e-05_rb,2.2220e-05_rb,2.1226e-05_rb,1.4267e-05_rb/)
+      kbo(:, 4,41, 1) = (/ &
+     &1.6317e-05_rb,2.7083e-05_rb,2.8276e-05_rb,2.6013e-05_rb,1.5751e-05_rb/)
+      kbo(:, 5,41, 1) = (/ &
+     &2.2462e-05_rb,3.4966e-05_rb,3.5519e-05_rb,3.1566e-05_rb,1.7118e-05_rb/)
+      kbo(:, 1,42, 1) = (/ &
+     &5.0039e-06_rb,9.3487e-06_rb,1.0601e-05_rb,1.0831e-05_rb,8.6234e-06_rb/)
+      kbo(:, 2,42, 1) = (/ &
+     &6.9419e-06_rb,1.2631e-05_rb,1.3888e-05_rb,1.3698e-05_rb,1.0034e-05_rb/)
+      kbo(:, 3,42, 1) = (/ &
+     &9.7739e-06_rb,1.6890e-05_rb,1.8015e-05_rb,1.7096e-05_rb,1.1383e-05_rb/)
+      kbo(:, 4,42, 1) = (/ &
+     &1.3702e-05_rb,2.2284e-05_rb,2.3078e-05_rb,2.1084e-05_rb,1.2617e-05_rb/)
+      kbo(:, 5,42, 1) = (/ &
+     &1.8946e-05_rb,2.8958e-05_rb,2.9188e-05_rb,2.5746e-05_rb,1.3767e-05_rb/)
+      kbo(:, 1,43, 1) = (/ &
+     &4.1873e-06_rb,7.4795e-06_rb,8.3830e-06_rb,8.4906e-06_rb,6.7096e-06_rb/)
+      kbo(:, 2,43, 1) = (/ &
+     &5.7609e-06_rb,1.0144e-05_rb,1.1051e-05_rb,1.0826e-05_rb,7.8872e-06_rb/)
+      kbo(:, 3,43, 1) = (/ &
+     &8.0947e-06_rb,1.3657e-05_rb,1.4441e-05_rb,1.3617e-05_rb,9.0007e-06_rb/)
+      kbo(:, 4,43, 1) = (/ &
+     &1.1379e-05_rb,1.8143e-05_rb,1.8645e-05_rb,1.6928e-05_rb,1.0041e-05_rb/)
+      kbo(:, 5,43, 1) = (/ &
+     &1.5813e-05_rb,2.3749e-05_rb,2.3760e-05_rb,2.0820e-05_rb,1.1010e-05_rb/)
+      kbo(:, 1,44, 1) = (/ &
+     &3.5435e-06_rb,5.9971e-06_rb,6.6151e-06_rb,6.6257e-06_rb,5.1813e-06_rb/)
+      kbo(:, 2,44, 1) = (/ &
+     &4.8184e-06_rb,8.1565e-06_rb,8.7802e-06_rb,8.5231e-06_rb,6.1554e-06_rb/)
+      kbo(:, 3,44, 1) = (/ &
+     &6.7381e-06_rb,1.1044e-05_rb,1.1560e-05_rb,1.0814e-05_rb,7.0815e-06_rb/)
+      kbo(:, 4,44, 1) = (/ &
+     &9.4910e-06_rb,1.4784e-05_rb,1.5050e-05_rb,1.3555e-05_rb,7.9532e-06_rb/)
+      kbo(:, 5,44, 1) = (/ &
+     &1.3248e-05_rb,1.9506e-05_rb,1.9344e-05_rb,1.6815e-05_rb,8.7723e-06_rb/)
+      kbo(:, 1,45, 1) = (/ &
+     &3.0781e-06_rb,4.8864e-06_rb,5.2730e-06_rb,5.1910e-06_rb,3.9885e-06_rb/)
+      kbo(:, 2,45, 1) = (/ &
+     &4.1281e-06_rb,6.6470e-06_rb,7.0382e-06_rb,6.7401e-06_rb,4.7888e-06_rb/)
+      kbo(:, 3,45, 1) = (/ &
+     &5.7272e-06_rb,9.0419e-06_rb,9.3373e-06_rb,8.6331e-06_rb,5.5575e-06_rb/)
+      kbo(:, 4,45, 1) = (/ &
+     &8.0675e-06_rb,1.2195e-05_rb,1.2269e-05_rb,1.0924e-05_rb,6.2888e-06_rb/)
+      kbo(:, 5,45, 1) = (/ &
+     &1.1304e-05_rb,1.6230e-05_rb,1.5911e-05_rb,1.3670e-05_rb,6.9809e-06_rb/)
+      kbo(:, 1,46, 1) = (/ &
+     &2.7031e-06_rb,4.0051e-06_rb,4.2052e-06_rb,4.0513e-06_rb,3.0391e-06_rb/)
+      kbo(:, 2,46, 1) = (/ &
+     &3.5629e-06_rb,5.4291e-06_rb,5.6384e-06_rb,5.3109e-06_rb,3.6957e-06_rb/)
+      kbo(:, 3,46, 1) = (/ &
+     &4.8917e-06_rb,7.4052e-06_rb,7.5318e-06_rb,6.8686e-06_rb,4.3368e-06_rb/)
+      kbo(:, 4,46, 1) = (/ &
+     &6.8735e-06_rb,1.0056e-05_rb,9.9863e-06_rb,8.7795e-06_rb,4.9486e-06_rb/)
+      kbo(:, 5,46, 1) = (/ &
+     &9.6601e-06_rb,1.3493e-05_rb,1.3073e-05_rb,1.1090e-05_rb,5.5328e-06_rb/)
+      kbo(:, 1,47, 1) = (/ &
+     &2.3513e-06_rb,3.2459e-06_rb,3.3109e-06_rb,3.1126e-06_rb,2.2809e-06_rb/)
+      kbo(:, 2,47, 1) = (/ &
+     &3.0285e-06_rb,4.3632e-06_rb,4.4435e-06_rb,4.1169e-06_rb,2.8160e-06_rb/)
+      kbo(:, 3,47, 1) = (/ &
+     &4.0963e-06_rb,5.9519e-06_rb,5.9675e-06_rb,5.3774e-06_rb,3.3494e-06_rb/)
+      kbo(:, 4,47, 1) = (/ &
+     &5.7200e-06_rb,8.1250e-06_rb,7.9789e-06_rb,6.9425e-06_rb,3.8611e-06_rb/)
+      kbo(:, 5,47, 1) = (/ &
+     &8.0548e-06_rb,1.0990e-05_rb,1.0545e-05_rb,8.8570e-06_rb,4.3522e-06_rb/)
+      kbo(:, 1,48, 1) = (/ &
+     &2.1277e-06_rb,2.7115e-06_rb,2.6627e-06_rb,2.4165e-06_rb,1.7021e-06_rb/)
+      kbo(:, 2,48, 1) = (/ &
+     &2.6703e-06_rb,3.5982e-06_rb,3.5641e-06_rb,3.2218e-06_rb,2.1347e-06_rb/)
+      kbo(:, 3,48, 1) = (/ &
+     &3.5476e-06_rb,4.8904e-06_rb,4.8030e-06_rb,4.2482e-06_rb,2.5746e-06_rb/)
+      kbo(:, 4,48, 1) = (/ &
+     &4.9045e-06_rb,6.6952e-06_rb,6.4687e-06_rb,5.5412e-06_rb,3.0044e-06_rb/)
+      kbo(:, 5,48, 1) = (/ &
+     &6.9032e-06_rb,9.1233e-06_rb,8.6345e-06_rb,7.1468e-06_rb,3.4162e-06_rb/)
+      kbo(:, 1,49, 1) = (/ &
+     &2.0328e-06_rb,2.3718e-06_rb,2.2199e-06_rb,1.9157e-06_rb,1.2610e-06_rb/)
+      kbo(:, 2,49, 1) = (/ &
+     &2.4767e-06_rb,3.0887e-06_rb,2.9459e-06_rb,2.5646e-06_rb,1.6091e-06_rb/)
+      kbo(:, 3,49, 1) = (/ &
+     &3.2245e-06_rb,4.1594e-06_rb,3.9687e-06_rb,3.4109e-06_rb,1.9688e-06_rb/)
+      kbo(:, 4,49, 1) = (/ &
+     &4.3950e-06_rb,5.6964e-06_rb,5.3766e-06_rb,4.4963e-06_rb,2.3270e-06_rb/)
+      kbo(:, 5,49, 1) = (/ &
+     &6.1628e-06_rb,7.8088e-06_rb,7.2467e-06_rb,5.8704e-06_rb,2.6722e-06_rb/)
+      kbo(:, 1,50, 1) = (/ &
+     &1.8800e-06_rb,2.0468e-06_rb,1.8384e-06_rb,1.5142e-06_rb,9.3123e-07_rb/)
+      kbo(:, 2,50, 1) = (/ &
+     &2.2261e-06_rb,2.6068e-06_rb,2.4062e-06_rb,2.0250e-06_rb,1.2100e-06_rb/)
+      kbo(:, 3,50, 1) = (/ &
+     &2.8323e-06_rb,3.4659e-06_rb,3.2264e-06_rb,2.7071e-06_rb,1.5035e-06_rb/)
+      kbo(:, 4,50, 1) = (/ &
+     &3.7999e-06_rb,4.7249e-06_rb,4.3788e-06_rb,3.5953e-06_rb,1.7997e-06_rb/)
+      kbo(:, 5,50, 1) = (/ &
+     &5.2884e-06_rb,6.4943e-06_rb,5.9393e-06_rb,4.7367e-06_rb,2.0882e-06_rb/)
+      kbo(:, 1,51, 1) = (/ &
+     &1.7210e-06_rb,1.7678e-06_rb,1.5277e-06_rb,1.2003e-06_rb,6.8440e-07_rb/)
+      kbo(:, 2,51, 1) = (/ &
+     &1.9818e-06_rb,2.1939e-06_rb,1.9638e-06_rb,1.5963e-06_rb,9.0698e-07_rb/)
+      kbo(:, 3,51, 1) = (/ &
+     &2.4588e-06_rb,2.8718e-06_rb,2.6104e-06_rb,2.1370e-06_rb,1.1441e-06_rb/)
+      kbo(:, 4,51, 1) = (/ &
+     &3.2428e-06_rb,3.8817e-06_rb,3.5358e-06_rb,2.8541e-06_rb,1.3878e-06_rb/)
+      kbo(:, 5,51, 1) = (/ &
+     &4.4645e-06_rb,5.3335e-06_rb,4.8140e-06_rb,3.7885e-06_rb,1.6275e-06_rb/)
+      kbo(:, 1,52, 1) = (/ &
+     &1.6367e-06_rb,1.5882e-06_rb,1.3178e-06_rb,9.7791e-07_rb,4.9920e-07_rb/)
+      kbo(:, 2,52, 1) = (/ &
+     &1.8355e-06_rb,1.9143e-06_rb,1.6527e-06_rb,1.2853e-06_rb,6.7537e-07_rb/)
+      kbo(:, 3,52, 1) = (/ &
+     &2.2162e-06_rb,2.4540e-06_rb,2.1676e-06_rb,1.7156e-06_rb,8.6642e-07_rb/)
+      kbo(:, 4,52, 1) = (/ &
+     &2.8651e-06_rb,3.2774e-06_rb,2.9188e-06_rb,2.2996e-06_rb,1.0660e-06_rb/)
+      kbo(:, 5,52, 1) = (/ &
+     &3.8903e-06_rb,4.4871e-06_rb,3.9803e-06_rb,3.0728e-06_rb,1.2649e-06_rb/)
+      kbo(:, 1,53, 1) = (/ &
+     &1.6359e-06_rb,1.5065e-06_rb,1.1971e-06_rb,8.3215e-07_rb,3.6108e-07_rb/)
+      kbo(:, 2,53, 1) = (/ &
+     &1.7884e-06_rb,1.7570e-06_rb,1.4552e-06_rb,1.0704e-06_rb,4.9954e-07_rb/)
+      kbo(:, 3,53, 1) = (/ &
+     &2.1010e-06_rb,2.1926e-06_rb,1.8706e-06_rb,1.4156e-06_rb,6.5257e-07_rb/)
+      kbo(:, 4,53, 1) = (/ &
+     &2.6543e-06_rb,2.8821e-06_rb,2.4935e-06_rb,1.8975e-06_rb,8.1519e-07_rb/)
+      kbo(:, 5,53, 1) = (/ &
+     &3.5462e-06_rb,3.9143e-06_rb,3.3945e-06_rb,2.5503e-06_rb,9.8011e-07_rb/)
+      kbo(:, 1,54, 1) = (/ &
+     &1.4300e-06_rb,1.2802e-06_rb,9.9257e-07_rb,6.6497e-07_rb,2.6129e-07_rb/)
+      kbo(:, 2,54, 1) = (/ &
+     &1.5262e-06_rb,1.4508e-06_rb,1.1768e-06_rb,8.3958e-07_rb,3.6958e-07_rb/)
+      kbo(:, 3,54, 1) = (/ &
+     &1.7484e-06_rb,1.7685e-06_rb,1.4827e-06_rb,1.0992e-06_rb,4.9169e-07_rb/)
+      kbo(:, 4,54, 1) = (/ &
+     &2.1569e-06_rb,2.2883e-06_rb,1.9539e-06_rb,1.4679e-06_rb,6.2244e-07_rb/)
+      kbo(:, 5,54, 1) = (/ &
+     &2.8354e-06_rb,3.0764e-06_rb,2.6455e-06_rb,1.9748e-06_rb,7.5773e-07_rb/)
+      kbo(:, 1,55, 1) = (/ &
+     &1.1496e-06_rb,1.0107e-06_rb,7.7300e-07_rb,5.0639e-07_rb,1.8790e-07_rb/)
+      kbo(:, 2,55, 1) = (/ &
+     &1.1995e-06_rb,1.1187e-06_rb,8.9719e-07_rb,6.3009e-07_rb,2.7269e-07_rb/)
+      kbo(:, 3,55, 1) = (/ &
+     &1.3422e-06_rb,1.3346e-06_rb,1.1096e-06_rb,8.1740e-07_rb,3.6933e-07_rb/)
+      kbo(:, 4,55, 1) = (/ &
+     &1.6169e-06_rb,1.6973e-06_rb,1.4454e-06_rb,1.0866e-06_rb,4.7429e-07_rb/)
+      kbo(:, 5,55, 1) = (/ &
+     &2.0871e-06_rb,2.2587e-06_rb,1.9432e-06_rb,1.4592e-06_rb,5.8406e-07_rb/)
+      kbo(:, 1,56, 1) = (/ &
+     &9.3098e-07_rb,8.0374e-07_rb,6.0662e-07_rb,3.8780e-07_rb,1.3395e-07_rb/)
+      kbo(:, 2,56, 1) = (/ &
+     &9.4853e-07_rb,8.6979e-07_rb,6.8824e-07_rb,4.7493e-07_rb,1.9978e-07_rb/)
+      kbo(:, 3,56, 1) = (/ &
+     &1.0383e-06_rb,1.0136e-06_rb,8.3527e-07_rb,6.0949e-07_rb,2.7592e-07_rb/)
+      kbo(:, 4,56, 1) = (/ &
+     &1.2210e-06_rb,1.2652e-06_rb,1.0730e-06_rb,8.0519e-07_rb,3.6001e-07_rb/)
+      kbo(:, 5,56, 1) = (/ &
+     &1.5443e-06_rb,1.6630e-06_rb,1.4302e-06_rb,1.0789e-06_rb,4.4877e-07_rb/)
+      kbo(:, 1,57, 1) = (/ &
+     &7.5869e-07_rb,6.4433e-07_rb,4.7913e-07_rb,2.9908e-07_rb,9.4559e-08_rb/)
+      kbo(:, 2,57, 1) = (/ &
+     &7.5680e-07_rb,6.8154e-07_rb,5.3140e-07_rb,3.5955e-07_rb,1.4504e-07_rb/)
+      kbo(:, 3,57, 1) = (/ &
+     &8.0958e-07_rb,7.7512e-07_rb,6.3252e-07_rb,4.5567e-07_rb,2.0501e-07_rb/)
+      kbo(:, 4,57, 1) = (/ &
+     &9.2953e-07_rb,9.4815e-07_rb,7.9932e-07_rb,5.9759e-07_rb,2.7208e-07_rb/)
+      kbo(:, 5,57, 1) = (/ &
+     &1.1491e-06_rb,1.2288e-06_rb,1.0552e-06_rb,7.9844e-07_rb,3.4355e-07_rb/)
+      kbo(:, 1,58, 1) = (/ &
+     &1.6388e-07_rb,1.6804e-07_rb,1.5881e-07_rb,1.3627e-07_rb,6.6479e-08_rb/)
+      kbo(:, 2,58, 1) = (/ &
+     &1.6042e-07_rb,1.7409e-07_rb,1.7274e-07_rb,1.6106e-07_rb,1.0511e-07_rb/)
+      kbo(:, 3,58, 1) = (/ &
+     &1.6792e-07_rb,1.9377e-07_rb,2.0193e-07_rb,2.0193e-07_rb,1.5191e-07_rb/)
+      kbo(:, 4,58, 1) = (/ &
+     &1.8861e-07_rb,2.3235e-07_rb,2.5117e-07_rb,2.6306e-07_rb,2.0537e-07_rb/)
+      kbo(:, 5,58, 1) = (/ &
+     &2.2793e-07_rb,2.9684e-07_rb,3.2824e-07_rb,3.5018e-07_rb,2.6292e-07_rb/)
+      kbo(:, 1,59, 1) = (/ &
+     &1.5765e-07_rb,1.5618e-07_rb,1.3958e-07_rb,1.1007e-07_rb,5.0739e-08_rb/)
+      kbo(:, 2,59, 1) = (/ &
+     &1.5325e-07_rb,1.6219e-07_rb,1.5348e-07_rb,1.3308e-07_rb,8.1077e-08_rb/)
+      kbo(:, 3,59, 1) = (/ &
+     &1.5900e-07_rb,1.8099e-07_rb,1.8121e-07_rb,1.6979e-07_rb,1.1831e-07_rb/)
+      kbo(:, 4,59, 1) = (/ &
+     &1.7701e-07_rb,2.1714e-07_rb,2.2693e-07_rb,2.2335e-07_rb,1.6137e-07_rb/)
+      kbo(:, 5,59, 1) = (/ &
+     &2.1198e-07_rb,2.7749e-07_rb,2.9703e-07_rb,2.9803e-07_rb,2.0840e-07_rb/)
+      kbo(:, 1,13, 2) = (/ &
+     &3.6279e-03_rb,6.1760e-03_rb,7.4137e-03_rb,8.1756e-03_rb,7.6678e-03_rb/)
+      kbo(:, 2,13, 2) = (/ &
+     &4.7275e-03_rb,8.3099e-03_rb,9.8779e-03_rb,1.0590e-02_rb,9.2190e-03_rb/)
+      kbo(:, 3,13, 2) = (/ &
+     &6.7817e-03_rb,1.1546e-02_rb,1.3324e-02_rb,1.3748e-02_rb,1.0778e-02_rb/)
+      kbo(:, 4,13, 2) = (/ &
+     &1.0391e-02_rb,1.6290e-02_rb,1.8048e-02_rb,1.7786e-02_rb,1.2299e-02_rb/)
+      kbo(:, 5,13, 2) = (/ &
+     &1.6231e-02_rb,2.2973e-02_rb,2.4369e-02_rb,2.2866e-02_rb,1.3775e-02_rb/)
+      kbo(:, 1,14, 2) = (/ &
+     &1.9069e-03_rb,4.2185e-03_rb,5.5573e-03_rb,6.5712e-03_rb,6.6234e-03_rb/)
+      kbo(:, 2,14, 2) = (/ &
+     &2.5180e-03_rb,5.7108e-03_rb,7.3682e-03_rb,8.4311e-03_rb,7.9352e-03_rb/)
+      kbo(:, 3,14, 2) = (/ &
+     &3.6614e-03_rb,7.8938e-03_rb,9.8216e-03_rb,1.0792e-02_rb,9.2480e-03_rb/)
+      kbo(:, 4,14, 2) = (/ &
+     &5.6530e-03_rb,1.1002e-02_rb,1.3072e-02_rb,1.3740e-02_rb,1.0517e-02_rb/)
+      kbo(:, 5,14, 2) = (/ &
+     &8.8619e-03_rb,1.5292e-02_rb,1.7338e-02_rb,1.7343e-02_rb,1.1731e-02_rb/)
+      kbo(:, 1,15, 2) = (/ &
+     &1.0269e-03_rb,3.0313e-03_rb,4.3258e-03_rb,5.3827e-03_rb,5.7089e-03_rb/)
+      kbo(:, 2,15, 2) = (/ &
+     &1.3765e-03_rb,4.1045e-03_rb,5.6876e-03_rb,6.8515e-03_rb,6.8087e-03_rb/)
+      kbo(:, 3,15, 2) = (/ &
+     &2.0273e-03_rb,5.6227e-03_rb,7.4759e-03_rb,8.6449e-03_rb,7.9051e-03_rb/)
+      kbo(:, 4,15, 2) = (/ &
+     &3.1553e-03_rb,7.7214e-03_rb,9.7810e-03_rb,1.0828e-02_rb,8.9583e-03_rb/)
+      kbo(:, 5,15, 2) = (/ &
+     &4.9678e-03_rb,1.0557e-02_rb,1.2725e-02_rb,1.3447e-02_rb,9.9499e-03_rb/)
+      kbo(:, 1,16, 2) = (/ &
+     &6.6110e-04_rb,2.3925e-03_rb,3.5607e-03_rb,4.5272e-03_rb,4.9025e-03_rb/)
+      kbo(:, 2,16, 2) = (/ &
+     &8.9912e-04_rb,3.2391e-03_rb,4.6534e-03_rb,5.7377e-03_rb,5.8262e-03_rb/)
+      kbo(:, 3,16, 2) = (/ &
+     &1.3419e-03_rb,4.4091e-03_rb,6.0651e-03_rb,7.1821e-03_rb,6.7308e-03_rb/)
+      kbo(:, 4,16, 2) = (/ &
+     &2.1065e-03_rb,5.9970e-03_rb,7.8566e-03_rb,8.9138e-03_rb,7.5936e-03_rb/)
+      kbo(:, 5,16, 2) = (/ &
+     &3.3254e-03_rb,8.1145e-03_rb,1.0111e-02_rb,1.0963e-02_rb,8.4021e-03_rb/)
+      kbo(:, 1,17, 2) = (/ &
+     &4.4242e-04_rb,1.9273e-03_rb,2.9584e-03_rb,3.8169e-03_rb,4.1910e-03_rb/)
+      kbo(:, 2,17, 2) = (/ &
+     &6.0993e-04_rb,2.6019e-03_rb,3.8415e-03_rb,4.8112e-03_rb,4.9579e-03_rb/)
+      kbo(:, 3,17, 2) = (/ &
+     &9.2221e-04_rb,3.5184e-03_rb,4.9669e-03_rb,5.9811e-03_rb,5.6981e-03_rb/)
+      kbo(:, 4,17, 2) = (/ &
+     &1.4572e-03_rb,4.7461e-03_rb,6.3751e-03_rb,7.3581e-03_rb,6.3963e-03_rb/)
+      kbo(:, 5,17, 2) = (/ &
+     &2.3036e-03_rb,6.3581e-03_rb,8.1281e-03_rb,8.9737e-03_rb,7.0378e-03_rb/)
+      kbo(:, 1,18, 2) = (/ &
+     &3.0388e-04_rb,1.5707e-03_rb,2.4656e-03_rb,3.2158e-03_rb,3.5652e-03_rb/)
+      kbo(:, 2,18, 2) = (/ &
+     &4.2513e-04_rb,2.1109e-03_rb,3.1840e-03_rb,4.0302e-03_rb,4.1950e-03_rb/)
+      kbo(:, 3,18, 2) = (/ &
+     &6.4993e-04_rb,2.8372e-03_rb,4.0815e-03_rb,4.9772e-03_rb,4.7960e-03_rb/)
+      kbo(:, 4,18, 2) = (/ &
+     &1.0315e-03_rb,3.7953e-03_rb,5.1949e-03_rb,6.0778e-03_rb,5.3518e-03_rb/)
+      kbo(:, 5,18, 2) = (/ &
+     &1.6331e-03_rb,5.0371e-03_rb,6.5707e-03_rb,7.3465e-03_rb,5.8586e-03_rb/)
+      kbo(:, 1,19, 2) = (/ &
+     &2.0547e-04_rb,1.2763e-03_rb,2.0458e-03_rb,2.6959e-03_rb,3.0176e-03_rb/)
+      kbo(:, 2,19, 2) = (/ &
+     &2.9169e-04_rb,1.7044e-03_rb,2.6231e-03_rb,3.3550e-03_rb,3.5313e-03_rb/)
+      kbo(:, 3,19, 2) = (/ &
+     &4.4987e-04_rb,2.2721e-03_rb,3.3322e-03_rb,4.1113e-03_rb,4.0121e-03_rb/)
+      kbo(:, 4,19, 2) = (/ &
+     &7.1653e-04_rb,3.0090e-03_rb,4.2013e-03_rb,4.9750e-03_rb,4.4532e-03_rb/)
+      kbo(:, 5,19, 2) = (/ &
+     &1.1358e-03_rb,3.9520e-03_rb,5.2567e-03_rb,5.9542e-03_rb,4.8572e-03_rb/)
+      kbo(:, 1,20, 2) = (/ &
+     &1.5174e-04_rb,1.0642e-03_rb,1.7200e-03_rb,2.2761e-03_rb,2.5514e-03_rb/)
+      kbo(:, 2,20, 2) = (/ &
+     &2.1846e-04_rb,1.4153e-03_rb,2.1942e-03_rb,2.8165e-03_rb,2.9650e-03_rb/)
+      kbo(:, 3,20, 2) = (/ &
+     &3.3982e-04_rb,1.8745e-03_rb,2.7705e-03_rb,3.4277e-03_rb,3.3482e-03_rb/)
+      kbo(:, 4,20, 2) = (/ &
+     &5.4313e-04_rb,2.4649e-03_rb,3.4676e-03_rb,4.1183e-03_rb,3.7008e-03_rb/)
+      kbo(:, 5,20, 2) = (/ &
+     &8.6061e-04_rb,3.2127e-03_rb,4.3062e-03_rb,4.9014e-03_rb,4.0252e-03_rb/)
+      kbo(:, 1,21, 2) = (/ &
+     &1.1592e-04_rb,8.9297e-04_rb,1.4493e-03_rb,1.9202e-03_rb,2.1482e-03_rb/)
+      kbo(:, 2,21, 2) = (/ &
+     &1.6918e-04_rb,1.1825e-03_rb,1.8389e-03_rb,2.3614e-03_rb,2.4794e-03_rb/)
+      kbo(:, 3,21, 2) = (/ &
+     &2.6522e-04_rb,1.5570e-03_rb,2.3088e-03_rb,2.8574e-03_rb,2.7868e-03_rb/)
+      kbo(:, 4,21, 2) = (/ &
+     &4.2461e-04_rb,2.0332e-03_rb,2.8744e-03_rb,3.4170e-03_rb,3.0702e-03_rb/)
+      kbo(:, 5,21, 2) = (/ &
+     &6.7177e-04_rb,2.6322e-03_rb,3.5494e-03_rb,4.0519e-03_rb,3.3309e-03_rb/)
+      kbo(:, 1,22, 2) = (/ &
+     &9.3055e-05_rb,7.6606e-04_rb,1.2409e-03_rb,1.6398e-03_rb,1.8197e-03_rb/)
+      kbo(:, 2,22, 2) = (/ &
+     &1.3841e-04_rb,1.0092e-03_rb,1.5660e-03_rb,2.0038e-03_rb,2.0843e-03_rb/)
+      kbo(:, 3,22, 2) = (/ &
+     &2.1899e-04_rb,1.3206e-03_rb,1.9566e-03_rb,2.4125e-03_rb,2.3311e-03_rb/)
+      kbo(:, 4,22, 2) = (/ &
+     &3.5071e-04_rb,1.7145e-03_rb,2.4240e-03_rb,2.8744e-03_rb,2.5586e-03_rb/)
+      kbo(:, 5,22, 2) = (/ &
+     &5.5216e-04_rb,2.2067e-03_rb,2.9792e-03_rb,3.3952e-03_rb,2.7680e-03_rb/)
+      kbo(:, 1,23, 2) = (/ &
+     &7.5659e-05_rb,6.5668e-04_rb,1.0605e-03_rb,1.3970e-03_rb,1.5365e-03_rb/)
+      kbo(:, 2,23, 2) = (/ &
+     &1.1449e-04_rb,8.6018e-04_rb,1.3327e-03_rb,1.6978e-03_rb,1.7494e-03_rb/)
+      kbo(:, 3,23, 2) = (/ &
+     &1.8237e-04_rb,1.1195e-03_rb,1.6581e-03_rb,2.0367e-03_rb,1.9476e-03_rb/)
+      kbo(:, 4,23, 2) = (/ &
+     &2.9157e-04_rb,1.4455e-03_rb,2.0441e-03_rb,2.4187e-03_rb,2.1305e-03_rb/)
+      kbo(:, 5,23, 2) = (/ &
+     &4.5638e-04_rb,1.8506e-03_rb,2.4994e-03_rb,2.8459e-03_rb,2.2986e-03_rb/)
+      kbo(:, 1,24, 2) = (/ &
+     &6.1686e-05_rb,5.6133e-04_rb,9.0530e-04_rb,1.1887e-03_rb,1.2959e-03_rb/)
+      kbo(:, 2,24, 2) = (/ &
+     &9.4868e-05_rb,7.3156e-04_rb,1.1327e-03_rb,1.4379e-03_rb,1.4672e-03_rb/)
+      kbo(:, 3,24, 2) = (/ &
+     &1.5170e-04_rb,9.4694e-04_rb,1.4023e-03_rb,1.7186e-03_rb,1.6265e-03_rb/)
+      kbo(:, 4,24, 2) = (/ &
+     &2.4184e-04_rb,1.2160e-03_rb,1.7202e-03_rb,2.0324e-03_rb,1.7732e-03_rb/)
+      kbo(:, 5,24, 2) = (/ &
+     &3.7584e-04_rb,1.5479e-03_rb,2.0924e-03_rb,2.3822e-03_rb,1.9076e-03_rb/)
+      kbo(:, 1,25, 2) = (/ &
+     &5.1420e-05_rb,4.8151e-04_rb,7.7480e-04_rb,1.0127e-03_rb,1.0925e-03_rb/)
+      kbo(:, 2,25, 2) = (/ &
+     &8.0205e-05_rb,6.2472e-04_rb,9.6537e-04_rb,1.2206e-03_rb,1.2305e-03_rb/)
+      kbo(:, 3,25, 2) = (/ &
+     &1.2852e-04_rb,8.0481e-04_rb,1.1895e-03_rb,1.4535e-03_rb,1.3583e-03_rb/)
+      kbo(:, 4,25, 2) = (/ &
+     &2.0384e-04_rb,1.0284e-03_rb,1.4523e-03_rb,1.7128e-03_rb,1.4762e-03_rb/)
+      kbo(:, 5,25, 2) = (/ &
+     &3.1446e-04_rb,1.3022e-03_rb,1.7587e-03_rb,1.9996e-03_rb,1.5839e-03_rb/)
+      kbo(:, 1,26, 2) = (/ &
+     &4.4173e-05_rb,4.1605e-04_rb,6.6653e-04_rb,8.6651e-04_rb,9.2186e-04_rb/)
+      kbo(:, 2,26, 2) = (/ &
+     &6.9706e-05_rb,5.3779e-04_rb,8.2701e-04_rb,1.0408e-03_rb,1.0329e-03_rb/)
+      kbo(:, 3,26, 2) = (/ &
+     &1.1164e-04_rb,6.8982e-04_rb,1.0147e-03_rb,1.2348e-03_rb,1.1353e-03_rb/)
+      kbo(:, 4,26, 2) = (/ &
+     &1.7590e-04_rb,8.7786e-04_rb,1.2337e-03_rb,1.4499e-03_rb,1.2294e-03_rb/)
+      kbo(:, 5,26, 2) = (/ &
+     &2.6942e-04_rb,1.1054e-03_rb,1.4885e-03_rb,1.6863e-03_rb,1.3161e-03_rb/)
+      kbo(:, 1,27, 2) = (/ &
+     &3.9675e-05_rb,3.6275e-04_rb,5.7658e-04_rb,7.4423e-04_rb,7.7727e-04_rb/)
+      kbo(:, 2,27, 2) = (/ &
+     &6.3079e-05_rb,4.6769e-04_rb,7.1304e-04_rb,8.9128e-04_rb,8.6622e-04_rb/)
+      kbo(:, 3,27, 2) = (/ &
+     &1.0080e-04_rb,5.9857e-04_rb,8.7226e-04_rb,1.0546e-03_rb,9.4873e-04_rb/)
+      kbo(:, 4,27, 2) = (/ &
+     &1.5784e-04_rb,7.5914e-04_rb,1.0582e-03_rb,1.2346e-03_rb,1.0243e-03_rb/)
+      kbo(:, 5,27, 2) = (/ &
+     &2.3988e-04_rb,9.5199e-04_rb,1.2727e-03_rb,1.4326e-03_rb,1.0935e-03_rb/)
+      kbo(:, 1,28, 2) = (/ &
+     &3.6787e-05_rb,3.1827e-04_rb,5.0054e-04_rb,6.4070e-04_rb,6.5436e-04_rb/)
+      kbo(:, 2,28, 2) = (/ &
+     &5.8744e-05_rb,4.0999e-04_rb,6.1769e-04_rb,7.6553e-04_rb,7.2608e-04_rb/)
+      kbo(:, 3,28, 2) = (/ &
+     &9.3496e-05_rb,5.2404e-04_rb,7.5434e-04_rb,9.0364e-04_rb,7.9234e-04_rb/)
+      kbo(:, 4,28, 2) = (/ &
+     &1.4539e-04_rb,6.6291e-04_rb,9.1412e-04_rb,1.0560e-03_rb,8.5294e-04_rb/)
+      kbo(:, 5,28, 2) = (/ &
+     &2.1931e-04_rb,8.2828e-04_rb,1.0967e-03_rb,1.2236e-03_rb,9.0840e-04_rb/)
+      kbo(:, 1,29, 2) = (/ &
+     &3.6448e-05_rb,2.8470e-04_rb,4.4017e-04_rb,5.5630e-04_rb,5.5097e-04_rb/)
+      kbo(:, 2,29, 2) = (/ &
+     &5.8278e-05_rb,3.6727e-04_rb,5.4285e-04_rb,6.6380e-04_rb,6.0864e-04_rb/)
+      kbo(:, 3,29, 2) = (/ &
+     &9.2358e-05_rb,4.6962e-04_rb,6.6368e-04_rb,7.8295e-04_rb,6.6201e-04_rb/)
+      kbo(:, 4,29, 2) = (/ &
+     &1.4253e-04_rb,5.9354e-04_rb,8.0405e-04_rb,9.1518e-04_rb,7.1060e-04_rb/)
+      kbo(:, 5,29, 2) = (/ &
+     &2.1329e-04_rb,7.4124e-04_rb,9.6341e-04_rb,1.0599e-03_rb,7.5499e-04_rb/)
+      kbo(:, 1,30, 2) = (/ &
+     &3.7091e-05_rb,2.5711e-04_rb,3.8922e-04_rb,4.8469e-04_rb,4.6359e-04_rb/)
+      kbo(:, 2,30, 2) = (/ &
+     &5.9310e-05_rb,3.3239e-04_rb,4.8070e-04_rb,5.7820e-04_rb,5.1002e-04_rb/)
+      kbo(:, 3,30, 2) = (/ &
+     &9.3453e-05_rb,4.2556e-04_rb,5.8851e-04_rb,6.8238e-04_rb,5.5293e-04_rb/)
+      kbo(:, 4,30, 2) = (/ &
+     &1.4319e-04_rb,5.3792e-04_rb,7.1341e-04_rb,7.9807e-04_rb,5.9204e-04_rb/)
+      kbo(:, 5,30, 2) = (/ &
+     &2.1251e-04_rb,6.7254e-04_rb,8.5446e-04_rb,9.2424e-04_rb,6.2785e-04_rb/)
+      kbo(:, 1,31, 2) = (/ &
+     &3.9864e-05_rb,2.3712e-04_rb,3.4911e-04_rb,4.2654e-04_rb,3.8998e-04_rb/)
+      kbo(:, 2,31, 2) = (/ &
+     &6.3592e-05_rb,3.0797e-04_rb,4.3283e-04_rb,5.0926e-04_rb,4.2741e-04_rb/)
+      kbo(:, 3,31, 2) = (/ &
+     &9.9603e-05_rb,3.9506e-04_rb,5.3137e-04_rb,6.0258e-04_rb,4.6195e-04_rb/)
+      kbo(:, 4,31, 2) = (/ &
+     &1.5142e-04_rb,5.0071e-04_rb,6.4518e-04_rb,7.0554e-04_rb,4.9395e-04_rb/)
+      kbo(:, 5,31, 2) = (/ &
+     &2.2297e-04_rb,6.2830e-04_rb,7.7442e-04_rb,8.1724e-04_rb,5.2260e-04_rb/)
+      kbo(:, 1,32, 2) = (/ &
+     &4.3430e-05_rb,2.2111e-04_rb,3.1573e-04_rb,3.7714e-04_rb,3.2795e-04_rb/)
+      kbo(:, 2,32, 2) = (/ &
+     &6.9083e-05_rb,2.8816e-04_rb,3.9276e-04_rb,4.5160e-04_rb,3.5813e-04_rb/)
+      kbo(:, 3,32, 2) = (/ &
+     &1.0740e-04_rb,3.7075e-04_rb,4.8372e-04_rb,5.3513e-04_rb,3.8620e-04_rb/)
+      kbo(:, 4,32, 2) = (/ &
+     &1.6196e-04_rb,4.7193e-04_rb,5.8843e-04_rb,6.2745e-04_rb,4.1195e-04_rb/)
+      kbo(:, 5,32, 2) = (/ &
+     &2.3647e-04_rb,5.9479e-04_rb,7.0866e-04_rb,7.2794e-04_rb,4.3506e-04_rb/)
+      kbo(:, 1,33, 2) = (/ &
+     &4.8220e-05_rb,2.0906e-04_rb,2.8832e-04_rb,3.3596e-04_rb,2.7570e-04_rb/)
+      kbo(:, 2,33, 2) = (/ &
+     &7.6368e-05_rb,2.7329e-04_rb,3.6023e-04_rb,4.0330e-04_rb,3.0019e-04_rb/)
+      kbo(:, 3,33, 2) = (/ &
+     &1.1780e-04_rb,3.5332e-04_rb,4.4506e-04_rb,4.7900e-04_rb,3.2295e-04_rb/)
+      kbo(:, 4,33, 2) = (/ &
+     &1.7613e-04_rb,4.5198e-04_rb,5.4349e-04_rb,5.6284e-04_rb,3.4357e-04_rb/)
+      kbo(:, 5,33, 2) = (/ &
+     &2.5515e-04_rb,5.7259e-04_rb,6.5773e-04_rb,6.5473e-04_rb,3.6197e-04_rb/)
+      kbo(:, 1,34, 2) = (/ &
+     &5.1326e-05_rb,1.9484e-04_rb,2.6083e-04_rb,2.9705e-04_rb,2.3085e-04_rb/)
+      kbo(:, 2,34, 2) = (/ &
+     &8.0913e-05_rb,2.5559e-04_rb,3.2688e-04_rb,3.5738e-04_rb,2.5079e-04_rb/)
+      kbo(:, 3,34, 2) = (/ &
+     &1.2390e-04_rb,3.3190e-04_rb,4.0497e-04_rb,4.2508e-04_rb,2.6902e-04_rb/)
+      kbo(:, 4,34, 2) = (/ &
+     &1.8386e-04_rb,4.2648e-04_rb,4.9662e-04_rb,5.0061e-04_rb,2.8571e-04_rb/)
+      kbo(:, 5,34, 2) = (/ &
+     &2.6467e-04_rb,5.4249e-04_rb,6.0361e-04_rb,5.8398e-04_rb,3.0059e-04_rb/)
+      kbo(:, 1,35, 2) = (/ &
+     &5.2281e-05_rb,1.7754e-04_rb,2.3171e-04_rb,2.5859e-04_rb,1.9168e-04_rb/)
+      kbo(:, 2,35, 2) = (/ &
+     &8.2157e-05_rb,2.3435e-04_rb,2.9174e-04_rb,3.1208e-04_rb,2.0781e-04_rb/)
+      kbo(:, 3,35, 2) = (/ &
+     &1.2528e-04_rb,3.0602e-04_rb,3.6300e-04_rb,3.7259e-04_rb,2.2270e-04_rb/)
+      kbo(:, 4,35, 2) = (/ &
+     &1.8516e-04_rb,3.9534e-04_rb,4.4759e-04_rb,4.4038e-04_rb,2.3630e-04_rb/)
+      kbo(:, 5,35, 2) = (/ &
+     &2.6552e-04_rb,5.0554e-04_rb,5.4703e-04_rb,5.1605e-04_rb,2.4840e-04_rb/)
+      kbo(:, 1,36, 2) = (/ &
+     &5.0331e-05_rb,1.5710e-04_rb,2.0093e-04_rb,2.2058e-04_rb,1.5759e-04_rb/)
+      kbo(:, 2,36, 2) = (/ &
+     &7.9043e-05_rb,2.0874e-04_rb,2.5435e-04_rb,2.6739e-04_rb,1.7077e-04_rb/)
+      kbo(:, 3,36, 2) = (/ &
+     &1.2045e-04_rb,2.7440e-04_rb,3.1834e-04_rb,3.2085e-04_rb,1.8310e-04_rb/)
+      kbo(:, 4,36, 2) = (/ &
+     &1.7786e-04_rb,3.5687e-04_rb,3.9494e-04_rb,3.8113e-04_rb,1.9431e-04_rb/)
+      kbo(:, 5,36, 2) = (/ &
+     &2.5490e-04_rb,4.5880e-04_rb,4.8570e-04_rb,4.4889e-04_rb,2.0416e-04_rb/)
+      kbo(:, 1,37, 2) = (/ &
+     &4.4029e-05_rb,1.3168e-04_rb,1.6668e-04_rb,1.8164e-04_rb,1.2776e-04_rb/)
+      kbo(:, 2,37, 2) = (/ &
+     &6.9369e-05_rb,1.7622e-04_rb,2.1241e-04_rb,2.2140e-04_rb,1.3874e-04_rb/)
+      kbo(:, 3,37, 2) = (/ &
+     &1.0612e-04_rb,2.3332e-04_rb,2.6770e-04_rb,2.6723e-04_rb,1.4898e-04_rb/)
+      kbo(:, 4,37, 2) = (/ &
+     &1.5731e-04_rb,3.0549e-04_rb,3.3418e-04_rb,3.1918e-04_rb,1.5836e-04_rb/)
+      kbo(:, 5,37, 2) = (/ &
+     &2.2631e-04_rb,3.9537e-04_rb,4.1350e-04_rb,3.7792e-04_rb,1.6663e-04_rb/)
+      kbo(:, 1,38, 2) = (/ &
+     &3.8922e-05_rb,1.1094e-04_rb,1.3878e-04_rb,1.4984e-04_rb,1.0348e-04_rb/)
+      kbo(:, 2,38, 2) = (/ &
+     &6.1507e-05_rb,1.4964e-04_rb,1.7814e-04_rb,1.8378e-04_rb,1.1264e-04_rb/)
+      kbo(:, 3,38, 2) = (/ &
+     &9.4510e-05_rb,1.9970e-04_rb,2.2619e-04_rb,2.2325e-04_rb,1.2117e-04_rb/)
+      kbo(:, 4,38, 2) = (/ &
+     &1.4072e-04_rb,2.6356e-04_rb,2.8447e-04_rb,2.6849e-04_rb,1.2897e-04_rb/)
+      kbo(:, 5,38, 2) = (/ &
+     &2.0319e-04_rb,3.4350e-04_rb,3.5441e-04_rb,3.1981e-04_rb,1.3588e-04_rb/)
+      kbo(:, 1,39, 2) = (/ &
+     &3.5197e-05_rb,9.4645e-05_rb,1.1658e-04_rb,1.2439e-04_rb,8.3852e-05_rb/)
+      kbo(:, 2,39, 2) = (/ &
+     &5.5773e-05_rb,1.2882e-04_rb,1.5091e-04_rb,1.5369e-04_rb,9.1477e-05_rb/)
+      kbo(:, 3,39, 2) = (/ &
+     &8.6079e-05_rb,1.7350e-04_rb,1.9331e-04_rb,1.8814e-04_rb,9.8545e-05_rb/)
+      kbo(:, 4,39, 2) = (/ &
+     &1.2878e-04_rb,2.3093e-04_rb,2.4509e-04_rb,2.2784e-04_rb,1.0505e-04_rb/)
+      kbo(:, 5,39, 2) = (/ &
+     &1.8672e-04_rb,3.0343e-04_rb,3.0781e-04_rb,2.7347e-04_rb,1.1084e-04_rb/)
+      kbo(:, 1,40, 2) = (/ &
+     &2.8482e-05_rb,7.5721e-05_rb,9.3100e-05_rb,9.9288e-05_rb,6.7184e-05_rb/)
+      kbo(:, 2,40, 2) = (/ &
+     &4.5322e-05_rb,1.0379e-04_rb,1.2136e-04_rb,1.2342e-04_rb,7.3552e-05_rb/)
+      kbo(:, 3,40, 2) = (/ &
+     &7.0466e-05_rb,1.4083e-04_rb,1.5650e-04_rb,1.5207e-04_rb,7.9463e-05_rb/)
+      kbo(:, 4,40, 2) = (/ &
+     &1.0624e-04_rb,1.8883e-04_rb,1.9975e-04_rb,1.8533e-04_rb,8.4957e-05_rb/)
+      kbo(:, 5,40, 2) = (/ &
+     &1.5520e-04_rb,2.4983e-04_rb,2.5250e-04_rb,2.2369e-04_rb,8.9879e-05_rb/)
+      kbo(:, 1,41, 2) = (/ &
+     &2.2852e-05_rb,6.0191e-05_rb,7.3911e-05_rb,7.8847e-05_rb,5.3707e-05_rb/)
+      kbo(:, 2,41, 2) = (/ &
+     &3.6477e-05_rb,8.3074e-05_rb,9.7030e-05_rb,9.8640e-05_rb,5.9019e-05_rb/)
+      kbo(:, 3,41, 2) = (/ &
+     &5.7117e-05_rb,1.1353e-04_rb,1.2598e-04_rb,1.2230e-04_rb,6.3954e-05_rb/)
+      kbo(:, 4,41, 2) = (/ &
+     &8.6797e-05_rb,1.5338e-04_rb,1.6193e-04_rb,1.5005e-04_rb,6.8580e-05_rb/)
+      kbo(:, 5,41, 2) = (/ &
+     &1.2784e-04_rb,2.0441e-04_rb,2.0604e-04_rb,1.8219e-04_rb,7.2757e-05_rb/)
+      kbo(:, 1,42, 2) = (/ &
+     &1.8532e-05_rb,4.8021e-05_rb,5.8809e-05_rb,6.2677e-05_rb,4.2889e-05_rb/)
+      kbo(:, 2,42, 2) = (/ &
+     &2.9639e-05_rb,6.6772e-05_rb,7.7781e-05_rb,7.8945e-05_rb,4.7319e-05_rb/)
+      kbo(:, 3,42, 2) = (/ &
+     &4.6699e-05_rb,9.1970e-05_rb,1.0173e-04_rb,9.8516e-05_rb,5.1447e-05_rb/)
+      kbo(:, 4,42, 2) = (/ &
+     &7.1536e-05_rb,1.2527e-04_rb,1.3174e-04_rb,1.2174e-04_rb,5.5341e-05_rb/)
+      kbo(:, 5,42, 2) = (/ &
+     &1.0622e-04_rb,1.6829e-04_rb,1.6888e-04_rb,1.4882e-04_rb,5.8857e-05_rb/)
+      kbo(:, 1,43, 2) = (/ &
+     &1.4784e-05_rb,3.7715e-05_rb,4.6105e-05_rb,4.9162e-05_rb,3.3989e-05_rb/)
+      kbo(:, 2,43, 2) = (/ &
+     &2.3635e-05_rb,5.2843e-05_rb,6.1488e-05_rb,6.2402e-05_rb,3.7696e-05_rb/)
+      kbo(:, 3,43, 2) = (/ &
+     &3.7482e-05_rb,7.3434e-05_rb,8.1121e-05_rb,7.8491e-05_rb,4.1167e-05_rb/)
+      kbo(:, 4,43, 2) = (/ &
+     &5.7957e-05_rb,1.0094e-04_rb,1.0596e-04_rb,9.7736e-05_rb,4.4450e-05_rb/)
+      kbo(:, 5,43, 2) = (/ &
+     &8.6918e-05_rb,1.3688e-04_rb,1.3695e-04_rb,1.2041e-04_rb,4.7444e-05_rb/)
+      kbo(:, 1,44, 2) = (/ &
+     &1.1851e-05_rb,2.9526e-05_rb,3.5985e-05_rb,3.8353e-05_rb,2.6802e-05_rb/)
+      kbo(:, 2,44, 2) = (/ &
+     &1.8865e-05_rb,4.1676e-05_rb,4.8402e-05_rb,4.9101e-05_rb,2.9917e-05_rb/)
+      kbo(:, 3,44, 2) = (/ &
+     &3.0080e-05_rb,5.8471e-05_rb,6.4462e-05_rb,6.2284e-05_rb,3.2834e-05_rb/)
+      kbo(:, 4,44, 2) = (/ &
+     &4.6945e-05_rb,8.1180e-05_rb,8.5021e-05_rb,7.8278e-05_rb,3.5598e-05_rb/)
+      kbo(:, 5,44, 2) = (/ &
+     &7.1168e-05_rb,1.1121e-04_rb,1.1093e-04_rb,9.7235e-05_rb,3.8149e-05_rb/)
+      kbo(:, 1,45, 2) = (/ &
+     &9.7426e-06_rb,2.3333e-05_rb,2.8230e-05_rb,2.9988e-05_rb,2.1086e-05_rb/)
+      kbo(:, 2,45, 2) = (/ &
+     &1.5361e-05_rb,3.3173e-05_rb,3.8317e-05_rb,3.8748e-05_rb,2.3700e-05_rb/)
+      kbo(:, 3,45, 2) = (/ &
+     &2.4573e-05_rb,4.7011e-05_rb,5.1561e-05_rb,4.9622e-05_rb,2.6158e-05_rb/)
+      kbo(:, 4,45, 2) = (/ &
+     &3.8674e-05_rb,6.5958e-05_rb,6.8724e-05_rb,6.2989e-05_rb,2.8488e-05_rb/)
+      kbo(:, 5,45, 2) = (/ &
+     &5.9269e-05_rb,9.1392e-05_rb,9.0638e-05_rb,7.9041e-05_rb,3.0648e-05_rb/)
+      kbo(:, 1,46, 2) = (/ &
+     &8.0813e-06_rb,1.8394e-05_rb,2.2048e-05_rb,2.3302e-05_rb,1.6499e-05_rb/)
+      kbo(:, 2,46, 2) = (/ &
+     &1.2533e-05_rb,2.6309e-05_rb,3.0179e-05_rb,3.0408e-05_rb,1.8696e-05_rb/)
+      kbo(:, 3,46, 2) = (/ &
+     &2.0044e-05_rb,3.7660e-05_rb,4.1056e-05_rb,3.9350e-05_rb,2.0768e-05_rb/)
+      kbo(:, 4,46, 2) = (/ &
+     &3.1770e-05_rb,5.3410e-05_rb,5.5319e-05_rb,5.0478e-05_rb,2.2728e-05_rb/)
+      kbo(:, 5,46, 2) = (/ &
+     &4.9215e-05_rb,7.4898e-05_rb,7.3800e-05_rb,6.4019e-05_rb,2.4552e-05_rb/)
+      kbo(:, 1,47, 2) = (/ &
+     &6.6192e-06_rb,1.4238e-05_rb,1.6907e-05_rb,1.7806e-05_rb,1.2778e-05_rb/)
+      kbo(:, 2,47, 2) = (/ &
+     &9.9788e-06_rb,2.0419e-05_rb,2.3301e-05_rb,2.3456e-05_rb,1.4630e-05_rb/)
+      kbo(:, 3,47, 2) = (/ &
+     &1.5864e-05_rb,2.9439e-05_rb,3.2011e-05_rb,3.0659e-05_rb,1.6375e-05_rb/)
+      kbo(:, 4,47, 2) = (/ &
+     &2.5298e-05_rb,4.2209e-05_rb,4.3617e-05_rb,3.9755e-05_rb,1.8027e-05_rb/)
+      kbo(:, 5,47, 2) = (/ &
+     &3.9602e-05_rb,5.9887e-05_rb,5.8840e-05_rb,5.0962e-05_rb,1.9570e-05_rb/)
+      kbo(:, 1,48, 2) = (/ &
+     &5.6786e-06_rb,1.1254e-05_rb,1.3112e-05_rb,1.3664e-05_rb,9.8559e-06_rb/)
+      kbo(:, 2,48, 2) = (/ &
+     &8.2415e-06_rb,1.6109e-05_rb,1.8176e-05_rb,1.8172e-05_rb,1.1406e-05_rb/)
+      kbo(:, 3,48, 2) = (/ &
+     &1.2920e-05_rb,2.3359e-05_rb,2.5209e-05_rb,2.4020e-05_rb,1.2882e-05_rb/)
+      kbo(:, 4,48, 2) = (/ &
+     &2.0668e-05_rb,3.3871e-05_rb,3.4762e-05_rb,3.1514e-05_rb,1.4268e-05_rb/)
+      kbo(:, 5,48, 2) = (/ &
+     &3.2629e-05_rb,4.8666e-05_rb,4.7495e-05_rb,4.0906e-05_rb,1.5578e-05_rb/)
+      kbo(:, 1,49, 2) = (/ &
+     &5.1748e-06_rb,9.2021e-06_rb,1.0379e-05_rb,1.0585e-05_rb,7.5665e-06_rb/)
+      kbo(:, 2,49, 2) = (/ &
+     &7.1867e-06_rb,1.3062e-05_rb,1.4427e-05_rb,1.4215e-05_rb,8.8627e-06_rb/)
+      kbo(:, 3,49, 2) = (/ &
+     &1.1001e-05_rb,1.9012e-05_rb,2.0206e-05_rb,1.9017e-05_rb,1.0112e-05_rb/)
+      kbo(:, 4,49, 2) = (/ &
+     &1.7557e-05_rb,2.7865e-05_rb,2.8224e-05_rb,2.5298e-05_rb,1.1279e-05_rb/)
+      kbo(:, 5,49, 2) = (/ &
+     &2.7899e-05_rb,4.0582e-05_rb,3.9130e-05_rb,3.3306e-05_rb,1.2389e-05_rb/)
+      kbo(:, 1,50, 2) = (/ &
+     &4.6020e-06_rb,7.4638e-06_rb,8.1645e-06_rb,8.1559e-06_rb,5.7980e-06_rb/)
+      kbo(:, 2,50, 2) = (/ &
+     &6.1191e-06_rb,1.0436e-05_rb,1.1320e-05_rb,1.1020e-05_rb,6.8814e-06_rb/)
+      kbo(:, 3,50, 2) = (/ &
+     &9.0820e-06_rb,1.5149e-05_rb,1.5926e-05_rb,1.4870e-05_rb,7.9274e-06_rb/)
+      kbo(:, 4,50, 2) = (/ &
+     &1.4367e-05_rb,2.2331e-05_rb,2.2448e-05_rb,1.9990e-05_rb,8.9091e-06_rb/)
+      kbo(:, 5,50, 2) = (/ &
+     &2.2930e-05_rb,3.2870e-05_rb,3.1485e-05_rb,2.6634e-05_rb,9.8428e-06_rb/)
+      kbo(:, 1,51, 2) = (/ &
+     &4.0738e-06_rb,6.0767e-06_rb,6.4322e-06_rb,6.2775e-06_rb,4.4265e-06_rb/)
+      kbo(:, 2,51, 2) = (/ &
+     &5.2028e-06_rb,8.3182e-06_rb,8.8519e-06_rb,8.5040e-06_rb,5.3268e-06_rb/)
+      kbo(:, 3,51, 2) = (/ &
+     &7.4386e-06_rb,1.1969e-05_rb,1.2454e-05_rb,1.1549e-05_rb,6.2015e-06_rb/)
+      kbo(:, 4,51, 2) = (/ &
+     &1.1580e-05_rb,1.7676e-05_rb,1.7666e-05_rb,1.5659e-05_rb,7.0249e-06_rb/)
+      kbo(:, 5,51, 2) = (/ &
+     &1.8500e-05_rb,2.6231e-05_rb,2.5018e-05_rb,2.1082e-05_rb,7.8088e-06_rb/)
+      kbo(:, 1,52, 2) = (/ &
+     &3.7602e-06_rb,5.1251e-06_rb,5.1954e-06_rb,4.8922e-06_rb,3.3637e-06_rb/)
+      kbo(:, 2,52, 2) = (/ &
+     &4.6219e-06_rb,6.8269e-06_rb,7.0581e-06_rb,6.6280e-06_rb,4.1074e-06_rb/)
+      kbo(:, 3,52, 2) = (/ &
+     &6.3416e-06_rb,9.6823e-06_rb,9.8934e-06_rb,9.0485e-06_rb,4.8363e-06_rb/)
+      kbo(:, 4,52, 2) = (/ &
+     &9.6360e-06_rb,1.4271e-05_rb,1.4108e-05_rb,1.2374e-05_rb,5.5264e-06_rb/)
+      kbo(:, 5,52, 2) = (/ &
+     &1.5337e-05_rb,2.1320e-05_rb,2.0165e-05_rb,1.6846e-05_rb,6.1865e-06_rb/)
+      kbo(:, 1,53, 2) = (/ &
+     &3.6702e-06_rb,4.5390e-06_rb,4.3659e-06_rb,3.9002e-06_rb,2.5423e-06_rb/)
+      kbo(:, 2,53, 2) = (/ &
+     &4.3437e-06_rb,5.8533e-06_rb,5.8072e-06_rb,5.2588e-06_rb,3.1537e-06_rb/)
+      kbo(:, 3,53, 2) = (/ &
+     &5.7127e-06_rb,8.1219e-06_rb,8.0674e-06_rb,7.2006e-06_rb,3.7613e-06_rb/)
+      kbo(:, 4,53, 2) = (/ &
+     &8.4068e-06_rb,1.1886e-05_rb,1.1528e-05_rb,9.9298e-06_rb,4.3399e-06_rb/)
+      kbo(:, 5,53, 2) = (/ &
+     &1.3242e-05_rb,1.7846e-05_rb,1.6632e-05_rb,1.3680e-05_rb,4.8970e-06_rb/)
+      kbo(:, 1,54, 2) = (/ &
+     &3.1403e-06_rb,3.6924e-06_rb,3.4557e-06_rb,2.9996e-06_rb,1.9177e-06_rb/)
+      kbo(:, 2,54, 2) = (/ &
+     &3.5986e-06_rb,4.6301e-06_rb,4.4986e-06_rb,4.0115e-06_rb,2.4155e-06_rb/)
+      kbo(:, 3,54, 2) = (/ &
+     &4.5617e-06_rb,6.2669e-06_rb,6.1686e-06_rb,5.4741e-06_rb,2.9175e-06_rb/)
+      kbo(:, 4,54, 2) = (/ &
+     &6.4783e-06_rb,9.0433e-06_rb,8.7626e-06_rb,7.5562e-06_rb,3.4007e-06_rb/)
+      kbo(:, 5,54, 2) = (/ &
+     &1.0042e-05_rb,1.3533e-05_rb,1.2655e-05_rb,1.0455e-05_rb,3.8639e-06_rb/)
+      kbo(:, 1,55, 2) = (/ &
+     &2.4739e-06_rb,2.8343e-06_rb,2.6165e-06_rb,2.2420e-06_rb,1.4427e-06_rb/)
+      kbo(:, 2,55, 2) = (/ &
+     &2.7553e-06_rb,3.4672e-06_rb,3.3435e-06_rb,2.9758e-06_rb,1.8442e-06_rb/)
+      kbo(:, 3,55, 2) = (/ &
+     &3.3782e-06_rb,4.5817e-06_rb,4.5186e-06_rb,4.0371e-06_rb,2.2544e-06_rb/)
+      kbo(:, 4,55, 2) = (/ &
+     &4.6246e-06_rb,6.4927e-06_rb,6.3529e-06_rb,5.5548e-06_rb,2.6558e-06_rb/)
+      kbo(:, 5,55, 2) = (/ &
+     &7.0125e-06_rb,9.6319e-06_rb,9.1393e-06_rb,7.6813e-06_rb,3.0372e-06_rb/)
+      kbo(:, 1,56, 2) = (/ &
+     &1.9604e-06_rb,2.1929e-06_rb,1.9920e-06_rb,1.6797e-06_rb,1.0797e-06_rb/)
+      kbo(:, 2,56, 2) = (/ &
+     &2.1351e-06_rb,2.6170e-06_rb,2.4998e-06_rb,2.2137e-06_rb,1.4022e-06_rb/)
+      kbo(:, 3,56, 2) = (/ &
+     &2.5317e-06_rb,3.3754e-06_rb,3.3236e-06_rb,2.9840e-06_rb,1.7372e-06_rb/)
+      kbo(:, 4,56, 2) = (/ &
+     &3.3387e-06_rb,4.6862e-06_rb,4.6202e-06_rb,4.0882e-06_rb,2.0679e-06_rb/)
+      kbo(:, 5,56, 2) = (/ &
+     &4.9234e-06_rb,6.8724e-06_rb,6.6108e-06_rb,5.6459e-06_rb,2.3854e-06_rb/)
+      kbo(:, 1,57, 2) = (/ &
+     &1.5649e-06_rb,1.7047e-06_rb,1.5250e-06_rb,1.2613e-06_rb,8.0294e-07_rb/)
+      kbo(:, 2,57, 2) = (/ &
+     &1.6685e-06_rb,1.9908e-06_rb,1.8801e-06_rb,1.6502e-06_rb,1.0613e-06_rb/)
+      kbo(:, 3,57, 2) = (/ &
+     &1.9178e-06_rb,2.5066e-06_rb,2.4556e-06_rb,2.2101e-06_rb,1.3329e-06_rb/)
+      kbo(:, 4,57, 2) = (/ &
+     &2.4407e-06_rb,3.4025e-06_rb,3.3722e-06_rb,3.0127e-06_rb,1.6045e-06_rb/)
+      kbo(:, 5,57, 2) = (/ &
+     &3.4802e-06_rb,4.9175e-06_rb,4.7870e-06_rb,4.1514e-06_rb,1.8688e-06_rb/)
+      kbo(:, 1,58, 2) = (/ &
+     &3.3188e-07_rb,4.3313e-07_rb,4.9294e-07_rb,5.6291e-07_rb,5.9615e-07_rb/)
+      kbo(:, 2,58, 2) = (/ &
+     &3.4670e-07_rb,4.9696e-07_rb,5.9930e-07_rb,7.3314e-07_rb,8.0253e-07_rb/)
+      kbo(:, 3,58, 2) = (/ &
+     &3.8806e-07_rb,6.1237e-07_rb,7.7019e-07_rb,9.7654e-07_rb,1.0216e-06_rb/)
+      kbo(:, 4,58, 2) = (/ &
+     &4.7831e-07_rb,8.1333e-07_rb,1.0442e-06_rb,1.3240e-06_rb,1.2449e-06_rb/)
+      kbo(:, 5,58, 2) = (/ &
+     &6.5898e-07_rb,1.1558e-06_rb,1.4682e-06_rb,1.8176e-06_rb,1.4615e-06_rb/)
+      kbo(:, 1,59, 2) = (/ &
+     &3.1712e-07_rb,4.1538e-07_rb,4.5873e-07_rb,4.9478e-07_rb,4.6737e-07_rb/)
+      kbo(:, 2,59, 2) = (/ &
+     &3.2863e-07_rb,4.7977e-07_rb,5.6611e-07_rb,6.5498e-07_rb,6.3397e-07_rb/)
+      kbo(:, 3,59, 2) = (/ &
+     &3.6418e-07_rb,5.9318e-07_rb,7.3191e-07_rb,8.7648e-07_rb,8.1119e-07_rb/)
+      kbo(:, 4,59, 2) = (/ &
+     &4.4347e-07_rb,7.8664e-07_rb,9.8989e-07_rb,1.1827e-06_rb,9.9218e-07_rb/)
+      kbo(:, 5,59, 2) = (/ &
+     &6.0215e-07_rb,1.1090e-06_rb,1.3813e-06_rb,1.6064e-06_rb,1.1684e-06_rb/)
+      kbo(:, 1,13, 3) = (/ &
+     &9.1540e-03_rb,2.0983e-02_rb,2.7409e-02_rb,3.0450e-02_rb,2.3144e-02_rb/)
+      kbo(:, 2,13, 3) = (/ &
+     &1.5150e-02_rb,2.9836e-02_rb,3.7088e-02_rb,3.9562e-02_rb,2.6157e-02_rb/)
+      kbo(:, 3,13, 3) = (/ &
+     &2.6705e-02_rb,4.3495e-02_rb,5.0489e-02_rb,5.0868e-02_rb,2.9169e-02_rb/)
+      kbo(:, 4,13, 3) = (/ &
+     &4.6501e-02_rb,6.3525e-02_rb,6.8930e-02_rb,6.5213e-02_rb,3.2207e-02_rb/)
+      kbo(:, 5,13, 3) = (/ &
+     &7.7883e-02_rb,9.1957e-02_rb,9.3471e-02_rb,8.3394e-02_rb,3.5205e-02_rb/)
+      kbo(:, 1,14, 3) = (/ &
+     &4.9769e-03_rb,1.5542e-02_rb,2.1404e-02_rb,2.4888e-02_rb,2.0102e-02_rb/)
+      kbo(:, 2,14, 3) = (/ &
+     &8.3891e-03_rb,2.1811e-02_rb,2.8513e-02_rb,3.1898e-02_rb,2.2689e-02_rb/)
+      kbo(:, 3,14, 3) = (/ &
+     &1.4857e-02_rb,3.0975e-02_rb,3.8046e-02_rb,4.0288e-02_rb,2.5289e-02_rb/)
+      kbo(:, 4,14, 3) = (/ &
+     &2.5874e-02_rb,4.3884e-02_rb,5.0681e-02_rb,5.0529e-02_rb,2.7965e-02_rb/)
+      kbo(:, 5,14, 3) = (/ &
+     &4.3258e-02_rb,6.1604e-02_rb,6.6800e-02_rb,6.3228e-02_rb,3.0564e-02_rb/)
+      kbo(:, 1,15, 3) = (/ &
+     &2.7780e-03_rb,1.1828e-02_rb,1.7073e-02_rb,2.0490e-02_rb,1.7377e-02_rb/)
+      kbo(:, 2,15, 3) = (/ &
+     &4.7591e-03_rb,1.6367e-02_rb,2.2382e-02_rb,2.5900e-02_rb,1.9610e-02_rb/)
+      kbo(:, 3,15, 3) = (/ &
+     &8.4707e-03_rb,2.2715e-02_rb,2.9226e-02_rb,3.2287e-02_rb,2.1849e-02_rb/)
+      kbo(:, 4,15, 3) = (/ &
+     &1.4726e-02_rb,3.1294e-02_rb,3.8074e-02_rb,3.9870e-02_rb,2.4127e-02_rb/)
+      kbo(:, 5,15, 3) = (/ &
+     &2.4582e-02_rb,4.2700e-02_rb,4.9087e-02_rb,4.8962e-02_rb,2.6357e-02_rb/)
+      kbo(:, 1,16, 3) = (/ &
+     &1.8575e-03_rb,9.6428e-03_rb,1.4258e-02_rb,1.7308e-02_rb,1.4967e-02_rb/)
+      kbo(:, 2,16, 3) = (/ &
+     &3.2295e-03_rb,1.3222e-02_rb,1.8534e-02_rb,2.1716e-02_rb,1.6894e-02_rb/)
+      kbo(:, 3,16, 3) = (/ &
+     &5.7622e-03_rb,1.8134e-02_rb,2.3952e-02_rb,2.6895e-02_rb,1.8844e-02_rb/)
+      kbo(:, 4,16, 3) = (/ &
+     &1.0014e-02_rb,2.4628e-02_rb,3.0790e-02_rb,3.2975e-02_rb,2.0792e-02_rb/)
+      kbo(:, 5,16, 3) = (/ &
+     &1.6651e-02_rb,3.3072e-02_rb,3.9202e-02_rb,4.0100e-02_rb,2.2651e-02_rb/)
+      kbo(:, 1,17, 3) = (/ &
+     &1.2913e-03_rb,7.9469e-03_rb,1.1927e-02_rb,1.4612e-02_rb,1.2832e-02_rb/)
+      kbo(:, 2,17, 3) = (/ &
+     &2.2741e-03_rb,1.0816e-02_rb,1.5424e-02_rb,1.8211e-02_rb,1.4484e-02_rb/)
+      kbo(:, 3,17, 3) = (/ &
+     &4.0659e-03_rb,1.4661e-02_rb,1.9799e-02_rb,2.2441e-02_rb,1.6158e-02_rb/)
+      kbo(:, 4,17, 3) = (/ &
+     &7.0575e-03_rb,1.9668e-02_rb,2.5205e-02_rb,2.7372e-02_rb,1.7784e-02_rb/)
+      kbo(:, 5,17, 3) = (/ &
+     &1.1701e-02_rb,2.6124e-02_rb,3.1755e-02_rb,3.3025e-02_rb,1.9312e-02_rb/)
+      kbo(:, 1,18, 3) = (/ &
+     &9.2490e-04_rb,6.5924e-03_rb,1.0000e-02_rb,1.2327e-02_rb,1.0954e-02_rb/)
+      kbo(:, 2,18, 3) = (/ &
+     &1.6450e-03_rb,8.9024e-03_rb,1.2876e-02_rb,1.5279e-02_rb,1.2362e-02_rb/)
+      kbo(:, 3,18, 3) = (/ &
+     &2.9476e-03_rb,1.1938e-02_rb,1.6432e-02_rb,1.8727e-02_rb,1.3771e-02_rb/)
+      kbo(:, 4,18, 3) = (/ &
+     &5.1050e-03_rb,1.5852e-02_rb,2.0747e-02_rb,2.2702e-02_rb,1.5108e-02_rb/)
+      kbo(:, 5,18, 3) = (/ &
+     &8.4407e-03_rb,2.0877e-02_rb,2.5905e-02_rb,2.7220e-02_rb,1.6353e-02_rb/)
+      kbo(:, 1,19, 3) = (/ &
+     &6.5306e-04_rb,5.4276e-03_rb,8.3228e-03_rb,1.0321e-02_rb,9.3064e-03_rb/)
+      kbo(:, 2,19, 3) = (/ &
+     &1.1720e-03_rb,7.2659e-03_rb,1.0659e-02_rb,1.2719e-02_rb,1.0490e-02_rb/)
+      kbo(:, 3,19, 3) = (/ &
+     &2.1010e-03_rb,9.6452e-03_rb,1.3501e-02_rb,1.5485e-02_rb,1.1656e-02_rb/)
+      kbo(:, 4,19, 3) = (/ &
+     &3.6298e-03_rb,1.2682e-02_rb,1.6890e-02_rb,1.8630e-02_rb,1.2744e-02_rb/)
+      kbo(:, 5,19, 3) = (/ &
+     &5.9733e-03_rb,1.6533e-02_rb,2.0894e-02_rb,2.2160e-02_rb,1.3725e-02_rb/)
+      kbo(:, 1,20, 3) = (/ &
+     &5.0525e-04_rb,4.5786e-03_rb,7.0416e-03_rb,8.7290e-03_rb,7.8885e-03_rb/)
+      kbo(:, 2,20, 3) = (/ &
+     &9.1391e-04_rb,6.1018e-03_rb,8.9804e-03_rb,1.0717e-02_rb,8.8768e-03_rb/)
+      kbo(:, 3,20, 3) = (/ &
+     &1.6371e-03_rb,8.0525e-03_rb,1.1310e-02_rb,1.2976e-02_rb,9.8259e-03_rb/)
+      kbo(:, 4,20, 3) = (/ &
+     &2.8150e-03_rb,1.0522e-02_rb,1.4057e-02_rb,1.5517e-02_rb,1.0692e-02_rb/)
+      kbo(:, 5,20, 3) = (/ &
+     &4.6066e-03_rb,1.3646e-02_rb,1.7296e-02_rb,1.8359e-02_rb,1.1448e-02_rb/)
+      kbo(:, 1,21, 3) = (/ &
+     &4.0425e-04_rb,3.8829e-03_rb,5.9693e-03_rb,7.3863e-03_rb,6.6651e-03_rb/)
+      kbo(:, 2,21, 3) = (/ &
+     &7.3484e-04_rb,5.1547e-03_rb,7.5787e-03_rb,9.0292e-03_rb,7.4787e-03_rb/)
+      kbo(:, 3,21, 3) = (/ &
+     &1.3153e-03_rb,6.7705e-03_rb,9.4934e-03_rb,1.0877e-02_rb,8.2368e-03_rb/)
+      kbo(:, 4,21, 3) = (/ &
+     &2.2503e-03_rb,8.8142e-03_rb,1.1739e-02_rb,1.2939e-02_rb,8.9114e-03_rb/)
+      kbo(:, 5,21, 3) = (/ &
+     &3.6575e-03_rb,1.1380e-02_rb,1.4377e-02_rb,1.5231e-02_rb,9.5025e-03_rb/)
+      kbo(:, 1,22, 3) = (/ &
+     &3.4523e-04_rb,3.3635e-03_rb,5.1429e-03_rb,6.3294e-03_rb,5.6535e-03_rb/)
+      kbo(:, 2,22, 3) = (/ &
+     &6.2993e-04_rb,4.4492e-03_rb,6.4923e-03_rb,7.6957e-03_rb,6.3107e-03_rb/)
+      kbo(:, 3,22, 3) = (/ &
+     &1.1206e-03_rb,5.8192e-03_rb,8.0871e-03_rb,9.2166e-03_rb,6.9018e-03_rb/)
+      kbo(:, 4,22, 3) = (/ &
+     &1.8990e-03_rb,7.5458e-03_rb,9.9517e-03_rb,1.0900e-02_rb,7.4316e-03_rb/)
+      kbo(:, 5,22, 3) = (/ &
+     &3.0583e-03_rb,9.7051e-03_rb,1.2139e-02_rb,1.2766e-02_rb,7.8941e-03_rb/)
+      kbo(:, 1,23, 3) = (/ &
+     &2.9783e-04_rb,2.9108e-03_rb,4.4177e-03_rb,5.4056e-03_rb,4.7807e-03_rb/)
+      kbo(:, 2,23, 3) = (/ &
+     &5.4387e-04_rb,3.8320e-03_rb,5.5435e-03_rb,6.5345e-03_rb,5.2974e-03_rb/)
+      kbo(:, 3,23, 3) = (/ &
+     &9.5952e-04_rb,4.9950e-03_rb,6.8655e-03_rb,7.7757e-03_rb,5.7630e-03_rb/)
+      kbo(:, 4,23, 3) = (/ &
+     &1.6092e-03_rb,6.4496e-03_rb,8.4095e-03_rb,9.1440e-03_rb,6.1817e-03_rb/)
+      kbo(:, 5,23, 3) = (/ &
+     &2.5684e-03_rb,8.2494e-03_rb,1.0215e-02_rb,1.0668e-02_rb,6.5447e-03_rb/)
+      kbo(:, 1,24, 3) = (/ &
+     &2.5715e-04_rb,2.5095e-03_rb,3.7777e-03_rb,4.5997e-03_rb,4.0260e-03_rb/)
+      kbo(:, 2,24, 3) = (/ &
+     &4.6827e-04_rb,3.2888e-03_rb,4.7107e-03_rb,5.5207e-03_rb,4.4325e-03_rb/)
+      kbo(:, 3,24, 3) = (/ &
+     &8.1828e-04_rb,4.2677e-03_rb,5.8000e-03_rb,6.5285e-03_rb,4.8028e-03_rb/)
+      kbo(:, 4,24, 3) = (/ &
+     &1.3581e-03_rb,5.4776e-03_rb,7.0696e-03_rb,7.6441e-03_rb,5.1338e-03_rb/)
+      kbo(:, 5,24, 3) = (/ &
+     &2.1494e-03_rb,6.9550e-03_rb,8.5500e-03_rb,8.8910e-03_rb,5.4193e-03_rb/)
+      kbo(:, 1,25, 3) = (/ &
+     &2.2632e-04_rb,2.1696e-03_rb,3.2330e-03_rb,3.9113e-03_rb,3.3801e-03_rb/)
+      kbo(:, 2,25, 3) = (/ &
+     &4.0936e-04_rb,2.8320e-03_rb,4.0052e-03_rb,4.6615e-03_rb,3.7035e-03_rb/)
+      kbo(:, 3,25, 3) = (/ &
+     &7.0836e-04_rb,3.6547e-03_rb,4.9096e-03_rb,5.4885e-03_rb,3.9989e-03_rb/)
+      kbo(:, 4,25, 3) = (/ &
+     &1.1642e-03_rb,4.6613e-03_rb,5.9642e-03_rb,6.4094e-03_rb,4.2600e-03_rb/)
+      kbo(:, 5,25, 3) = (/ &
+     &1.8243e-03_rb,5.8764e-03_rb,7.1830e-03_rb,7.4369e-03_rb,4.4844e-03_rb/)
+      kbo(:, 1,26, 3) = (/ &
+     &2.0471e-04_rb,1.8893e-03_rb,2.7768e-03_rb,3.3315e-03_rb,2.8361e-03_rb/)
+      kbo(:, 2,26, 3) = (/ &
+     &3.6709e-04_rb,2.4543e-03_rb,3.4258e-03_rb,3.9516e-03_rb,3.0939e-03_rb/)
+      kbo(:, 3,26, 3) = (/ &
+     &6.2789e-04_rb,3.1504e-03_rb,4.1849e-03_rb,4.6387e-03_rb,3.3286e-03_rb/)
+      kbo(:, 4,26, 3) = (/ &
+     &1.0213e-03_rb,3.9950e-03_rb,5.0687e-03_rb,5.4088e-03_rb,3.5346e-03_rb/)
+      kbo(:, 5,26, 3) = (/ &
+     &1.5815e-03_rb,5.0074e-03_rb,6.0787e-03_rb,6.2593e-03_rb,3.7107e-03_rb/)
+      kbo(:, 1,27, 3) = (/ &
+     &1.9251e-04_rb,1.6617e-03_rb,2.4029e-03_rb,2.8514e-03_rb,2.3762e-03_rb/)
+      kbo(:, 2,27, 3) = (/ &
+     &3.4185e-04_rb,2.1525e-03_rb,2.9600e-03_rb,3.3730e-03_rb,2.5825e-03_rb/)
+      kbo(:, 3,27, 3) = (/ &
+     &5.7778e-04_rb,2.7512e-03_rb,3.6092e-03_rb,3.9563e-03_rb,2.7684e-03_rb/)
+      kbo(:, 4,27, 3) = (/ &
+     &9.2854e-04_rb,3.4753e-03_rb,4.3621e-03_rb,4.6091e-03_rb,2.9308e-03_rb/)
+      kbo(:, 5,27, 3) = (/ &
+     &1.4199e-03_rb,4.3436e-03_rb,5.2156e-03_rb,5.3258e-03_rb,3.0691e-03_rb/)
+      kbo(:, 1,28, 3) = (/ &
+     &1.8568e-04_rb,1.4731e-03_rb,2.0943e-03_rb,2.4502e-03_rb,1.9883e-03_rb/)
+      kbo(:, 2,28, 3) = (/ &
+     &3.2639e-04_rb,1.9038e-03_rb,2.5783e-03_rb,2.8978e-03_rb,2.1535e-03_rb/)
+      kbo(:, 3,28, 3) = (/ &
+     &5.4487e-04_rb,2.4257e-03_rb,3.1398e-03_rb,3.3991e-03_rb,2.3010e-03_rb/)
+      kbo(:, 4,28, 3) = (/ &
+     &8.6497e-04_rb,3.0580e-03_rb,3.7865e-03_rb,3.9564e-03_rb,2.4290e-03_rb/)
+      kbo(:, 5,28, 3) = (/ &
+     &1.3039e-03_rb,3.8186e-03_rb,4.5211e-03_rb,4.5655e-03_rb,2.5382e-03_rb/)
+      kbo(:, 1,29, 3) = (/ &
+     &1.9062e-04_rb,1.3364e-03_rb,1.8603e-03_rb,2.1354e-03_rb,1.6643e-03_rb/)
+      kbo(:, 2,29, 3) = (/ &
+     &3.3121e-04_rb,1.7267e-03_rb,2.2927e-03_rb,2.5300e-03_rb,1.7960e-03_rb/)
+      kbo(:, 3,29, 3) = (/ &
+     &5.4570e-04_rb,2.2011e-03_rb,2.7931e-03_rb,2.9723e-03_rb,1.9129e-03_rb/)
+      kbo(:, 4,29, 3) = (/ &
+     &8.5435e-04_rb,2.7794e-03_rb,3.3678e-03_rb,3.4607e-03_rb,2.0139e-03_rb/)
+      kbo(:, 5,29, 3) = (/ &
+     &1.2701e-03_rb,3.4715e-03_rb,4.0279e-03_rb,3.9937e-03_rb,2.1000e-03_rb/)
+      kbo(:, 1,30, 3) = (/ &
+     &2.0043e-04_rb,1.2258e-03_rb,1.6689e-03_rb,1.8766e-03_rb,1.3916e-03_rb/)
+      kbo(:, 2,30, 3) = (/ &
+     &3.4350e-04_rb,1.5850e-03_rb,2.0586e-03_rb,2.2288e-03_rb,1.4967e-03_rb/)
+      kbo(:, 3,30, 3) = (/ &
+     &5.5868e-04_rb,2.0253e-03_rb,2.5096e-03_rb,2.6211e-03_rb,1.5893e-03_rb/)
+      kbo(:, 4,30, 3) = (/ &
+     &8.6173e-04_rb,2.5636e-03_rb,3.0320e-03_rb,3.0532e-03_rb,1.6692e-03_rb/)
+      kbo(:, 5,30, 3) = (/ &
+     &1.2648e-03_rb,3.2006e-03_rb,3.6329e-03_rb,3.5289e-03_rb,1.7373e-03_rb/)
+      kbo(:, 1,31, 3) = (/ &
+     &2.2172e-04_rb,1.1517e-03_rb,1.5273e-03_rb,1.6764e-03_rb,1.1637e-03_rb/)
+      kbo(:, 2,31, 3) = (/ &
+     &3.7478e-04_rb,1.4949e-03_rb,1.8875e-03_rb,1.9960e-03_rb,1.2474e-03_rb/)
+      kbo(:, 3,31, 3) = (/ &
+     &6.0019e-04_rb,1.9228e-03_rb,2.3094e-03_rb,2.3523e-03_rb,1.3210e-03_rb/)
+      kbo(:, 4,31, 3) = (/ &
+     &9.1186e-04_rb,2.4398e-03_rb,2.8016e-03_rb,2.7471e-03_rb,1.3843e-03_rb/)
+      kbo(:, 5,31, 3) = (/ &
+     &1.3231e-03_rb,3.0462e-03_rb,3.3613e-03_rb,3.1855e-03_rb,1.4373e-03_rb/)
+      kbo(:, 1,32, 3) = (/ &
+     &2.4768e-04_rb,1.0937e-03_rb,1.4089e-03_rb,1.5091e-03_rb,9.7256e-04_rb/)
+      kbo(:, 2,32, 3) = (/ &
+     &4.1248e-04_rb,1.4292e-03_rb,1.7477e-03_rb,1.8006e-03_rb,1.0394e-03_rb/)
+      kbo(:, 3,32, 3) = (/ &
+     &6.5047e-04_rb,1.8467e-03_rb,2.1484e-03_rb,2.1275e-03_rb,1.0979e-03_rb/)
+      kbo(:, 4,32, 3) = (/ &
+     &9.7457e-04_rb,2.3473e-03_rb,2.6140e-03_rb,2.4947e-03_rb,1.1482e-03_rb/)
+      kbo(:, 5,32, 3) = (/ &
+     &1.3990e-03_rb,2.9324e-03_rb,3.1399e-03_rb,2.8984e-03_rb,1.1898e-03_rb/)
+      kbo(:, 1,33, 3) = (/ &
+     &2.8078e-04_rb,1.0552e-03_rb,1.3156e-03_rb,1.3710e-03_rb,8.1280e-04_rb/)
+      kbo(:, 2,33, 3) = (/ &
+     &4.6027e-04_rb,1.3891e-03_rb,1.6405e-03_rb,1.6404e-03_rb,8.6605e-04_rb/)
+      kbo(:, 3,33, 3) = (/ &
+     &7.1527e-04_rb,1.8015e-03_rb,2.0264e-03_rb,1.9473e-03_rb,9.1257e-04_rb/)
+      kbo(:, 4,33, 3) = (/ &
+     &1.0579e-03_rb,2.2936e-03_rb,2.4711e-03_rb,2.2904e-03_rb,9.5249e-04_rb/)
+      kbo(:, 5,33, 3) = (/ &
+     &1.5037e-03_rb,2.8717e-03_rb,2.9734e-03_rb,2.6646e-03_rb,9.8557e-04_rb/)
+      kbo(:, 1,34, 3) = (/ &
+     &3.0359e-04_rb,1.0038e-03_rb,1.2140e-03_rb,1.2334e-03_rb,6.7695e-04_rb/)
+      kbo(:, 2,34, 3) = (/ &
+     &4.9090e-04_rb,1.3275e-03_rb,1.5216e-03_rb,1.4814e-03_rb,7.1957e-04_rb/)
+      kbo(:, 3,34, 3) = (/ &
+     &7.5358e-04_rb,1.7240e-03_rb,1.8846e-03_rb,1.7651e-03_rb,7.5712e-04_rb/)
+      kbo(:, 4,34, 3) = (/ &
+     &1.1033e-03_rb,2.1975e-03_rb,2.2999e-03_rb,2.0785e-03_rb,7.8887e-04_rb/)
+      kbo(:, 5,34, 3) = (/ &
+     &1.5542e-03_rb,2.7592e-03_rb,2.7749e-03_rb,2.4194e-03_rb,8.1541e-04_rb/)
+      kbo(:, 1,35, 3) = (/ &
+     &3.1210e-04_rb,9.3394e-04_rb,1.1014e-03_rb,1.0942e-03_rb,5.6016e-04_rb/)
+      kbo(:, 2,35, 3) = (/ &
+     &5.0058e-04_rb,1.2412e-03_rb,1.3879e-03_rb,1.3212e-03_rb,5.9529e-04_rb/)
+      kbo(:, 3,35, 3) = (/ &
+     &7.6299e-04_rb,1.6182e-03_rb,1.7248e-03_rb,1.5791e-03_rb,6.2556e-04_rb/)
+      kbo(:, 4,35, 3) = (/ &
+     &1.1110e-03_rb,2.0696e-03_rb,2.1107e-03_rb,1.8624e-03_rb,6.5155e-04_rb/)
+      kbo(:, 5,35, 3) = (/ &
+     &1.5579e-03_rb,2.6064e-03_rb,2.5562e-03_rb,2.1725e-03_rb,6.7276e-04_rb/)
+      kbo(:, 1,36, 3) = (/ &
+     &3.0156e-04_rb,8.4185e-04_rb,9.7484e-04_rb,9.5194e-04_rb,4.6045e-04_rb/)
+      kbo(:, 2,36, 3) = (/ &
+     &4.8313e-04_rb,1.1258e-03_rb,1.2357e-03_rb,1.1559e-03_rb,4.8953e-04_rb/)
+      kbo(:, 3,36, 3) = (/ &
+     &7.3505e-04_rb,1.4756e-03_rb,1.5422e-03_rb,1.3864e-03_rb,5.1450e-04_rb/)
+      kbo(:, 4,36, 3) = (/ &
+     &1.0692e-03_rb,1.8983e-03_rb,1.8970e-03_rb,1.6403e-03_rb,5.3594e-04_rb/)
+      kbo(:, 5,36, 3) = (/ &
+     &1.4983e-03_rb,2.4025e-03_rb,2.3079e-03_rb,1.9210e-03_rb,5.5373e-04_rb/)
+      kbo(:, 1,37, 3) = (/ &
+     &2.6336e-04_rb,7.1618e-04_rb,8.2306e-04_rb,7.9778e-04_rb,3.7474e-04_rb/)
+      kbo(:, 2,37, 3) = (/ &
+     &4.2453e-04_rb,9.6471e-04_rb,1.0505e-03_rb,9.7428e-04_rb,3.9893e-04_rb/)
+      kbo(:, 3,37, 3) = (/ &
+     &6.5002e-04_rb,1.2743e-03_rb,1.3189e-03_rb,1.1741e-03_rb,4.2011e-04_rb/)
+      kbo(:, 4,37, 3) = (/ &
+     &9.5041e-04_rb,1.6515e-03_rb,1.6323e-03_rb,1.3957e-03_rb,4.3822e-04_rb/)
+      kbo(:, 5,37, 3) = (/ &
+     &1.3379e-03_rb,2.1029e-03_rb,1.9967e-03_rb,1.6424e-03_rb,4.5330e-04_rb/)
+      kbo(:, 1,38, 3) = (/ &
+     &2.3216e-04_rb,6.1241e-04_rb,6.9804e-04_rb,6.7090e-04_rb,3.0479e-04_rb/)
+      kbo(:, 2,38, 3) = (/ &
+     &3.7692e-04_rb,8.3215e-04_rb,8.9807e-04_rb,8.2465e-04_rb,3.2506e-04_rb/)
+      kbo(:, 3,38, 3) = (/ &
+     &5.8109e-04_rb,1.1090e-03_rb,1.1350e-03_rb,9.9936e-04_rb,3.4289e-04_rb/)
+      kbo(:, 4,38, 3) = (/ &
+     &8.5435e-04_rb,1.4493e-03_rb,1.4148e-03_rb,1.1944e-03_rb,3.5825e-04_rb/)
+      kbo(:, 5,38, 3) = (/ &
+     &1.2083e-03_rb,1.8590e-03_rb,1.7421e-03_rb,1.4132e-03_rb,3.7105e-04_rb/)
+      kbo(:, 1,39, 3) = (/ &
+     &2.0931e-04_rb,5.3070e-04_rb,5.9845e-04_rb,5.6903e-04_rb,2.4791e-04_rb/)
+      kbo(:, 2,39, 3) = (/ &
+     &3.4220e-04_rb,7.2810e-04_rb,7.7651e-04_rb,7.0438e-04_rb,2.6488e-04_rb/)
+      kbo(:, 3,39, 3) = (/ &
+     &5.3115e-04_rb,9.8088e-04_rb,9.9044e-04_rb,8.5969e-04_rb,2.7995e-04_rb/)
+      kbo(:, 4,39, 3) = (/ &
+     &7.8539e-04_rb,1.2946e-03_rb,1.2451e-03_rb,1.0342e-03_rb,2.9299e-04_rb/)
+      kbo(:, 5,39, 3) = (/ &
+     &1.1164e-03_rb,1.6738e-03_rb,1.5453e-03_rb,1.2315e-03_rb,3.0388e-04_rb/)
+      kbo(:, 1,40, 3) = (/ &
+     &1.6775e-04_rb,4.2853e-04_rb,4.8421e-04_rb,4.6094e-04_rb,1.9976e-04_rb/)
+      kbo(:, 2,40, 3) = (/ &
+     &2.7762e-04_rb,5.9348e-04_rb,6.3343e-04_rb,5.7451e-04_rb,2.1416e-04_rb/)
+      kbo(:, 3,40, 3) = (/ &
+     &4.3621e-04_rb,8.0667e-04_rb,8.1437e-04_rb,7.0551e-04_rb,2.2701e-04_rb/)
+      kbo(:, 4,40, 3) = (/ &
+     &6.5215e-04_rb,1.0751e-03_rb,1.0317e-03_rb,8.5401e-04_rb,2.3821e-04_rb/)
+      kbo(:, 5,40, 3) = (/ &
+     &9.3504e-04_rb,1.4004e-03_rb,1.2886e-03_rb,1.0222e-03_rb,2.4759e-04_rb/)
+      kbo(:, 1,41, 3) = (/ &
+     &1.3280e-04_rb,3.4319e-04_rb,3.8888e-04_rb,3.7131e-04_rb,1.6067e-04_rb/)
+      kbo(:, 2,41, 3) = (/ &
+     &2.2274e-04_rb,4.8016e-04_rb,5.1341e-04_rb,4.6640e-04_rb,1.7291e-04_rb/)
+      kbo(:, 3,41, 3) = (/ &
+     &3.5456e-04_rb,6.5866e-04_rb,6.6545e-04_rb,5.7628e-04_rb,1.8383e-04_rb/)
+      kbo(:, 4,41, 3) = (/ &
+     &5.3629e-04_rb,8.8588e-04_rb,8.4970e-04_rb,7.0181e-04_rb,1.9338e-04_rb/)
+      kbo(:, 5,41, 3) = (/ &
+     &7.7683e-04_rb,1.1654e-03_rb,1.0693e-03_rb,8.4547e-04_rb,2.0151e-04_rb/)
+      kbo(:, 1,42, 3) = (/ &
+     &1.0593e-04_rb,2.7588e-04_rb,3.1299e-04_rb,2.9948e-04_rb,1.2916e-04_rb/)
+      kbo(:, 2,42, 3) = (/ &
+     &1.8005e-04_rb,3.9002e-04_rb,4.1742e-04_rb,3.7944e-04_rb,1.3949e-04_rb/)
+      kbo(:, 3,42, 3) = (/ &
+     &2.9034e-04_rb,5.4056e-04_rb,5.4599e-04_rb,4.7208e-04_rb,1.4879e-04_rb/)
+      kbo(:, 4,42, 3) = (/ &
+     &4.4476e-04_rb,7.3427e-04_rb,7.0341e-04_rb,5.7900e-04_rb,1.5686e-04_rb/)
+      kbo(:, 5,42, 3) = (/ &
+     &6.5058e-04_rb,9.7580e-04_rb,8.9207e-04_rb,7.0236e-04_rb,1.6390e-04_rb/)
+      kbo(:, 1,43, 3) = (/ &
+     &8.2227e-05_rb,2.1779e-04_rb,2.4797e-04_rb,2.3838e-04_rb,1.0321e-04_rb/)
+      kbo(:, 2,43, 3) = (/ &
+     &1.4211e-04_rb,3.1159e-04_rb,3.3460e-04_rb,3.0498e-04_rb,1.1196e-04_rb/)
+      kbo(:, 3,43, 3) = (/ &
+     &2.3284e-04_rb,4.3690e-04_rb,4.4252e-04_rb,3.8287e-04_rb,1.1989e-04_rb/)
+      kbo(:, 4,43, 3) = (/ &
+     &3.6233e-04_rb,6.0081e-04_rb,5.7601e-04_rb,4.7373e-04_rb,1.2682e-04_rb/)
+      kbo(:, 5,43, 3) = (/ &
+     &5.3702e-04_rb,8.0864e-04_rb,7.3797e-04_rb,5.7931e-04_rb,1.3294e-04_rb/)
+      kbo(:, 1,44, 3) = (/ &
+     &6.3384e-05_rb,1.7094e-04_rb,1.9525e-04_rb,1.8879e-04_rb,8.2201e-05_rb/)
+      kbo(:, 2,44, 3) = (/ &
+     &1.1160e-04_rb,2.4797e-04_rb,2.6713e-04_rb,2.4425e-04_rb,8.9566e-05_rb/)
+      kbo(:, 3,44, 3) = (/ &
+     &1.8608e-04_rb,3.5211e-04_rb,3.5750e-04_rb,3.0979e-04_rb,9.6374e-05_rb/)
+      kbo(:, 4,44, 3) = (/ &
+     &2.9467e-04_rb,4.9085e-04_rb,4.7122e-04_rb,3.8724e-04_rb,1.0229e-04_rb/)
+      kbo(:, 5,44, 3) = (/ &
+     &4.4331e-04_rb,6.6909e-04_rb,6.1037e-04_rb,4.7753e-04_rb,1.0759e-04_rb/)
+      kbo(:, 1,45, 3) = (/ &
+     &4.9661e-05_rb,1.3506e-04_rb,1.5438e-04_rb,1.4993e-04_rb,6.5369e-05_rb/)
+      kbo(:, 2,45, 3) = (/ &
+     &8.8927e-05_rb,1.9883e-04_rb,2.1432e-04_rb,1.9642e-04_rb,7.1593e-05_rb/)
+      kbo(:, 3,45, 3) = (/ &
+     &1.5097e-04_rb,2.8657e-04_rb,2.9095e-04_rb,2.5226e-04_rb,7.7369e-05_rb/)
+      kbo(:, 4,45, 3) = (/ &
+     &2.4324e-04_rb,4.0505e-04_rb,3.8855e-04_rb,3.1866e-04_rb,8.2473e-05_rb/)
+      kbo(:, 5,45, 3) = (/ &
+     &3.7189e-04_rb,5.6030e-04_rb,5.1022e-04_rb,3.9740e-04_rb,8.7038e-05_rb/)
+      kbo(:, 1,46, 3) = (/ &
+     &3.8628e-05_rb,1.0586e-04_rb,1.2112e-04_rb,1.1814e-04_rb,5.1792e-05_rb/)
+      kbo(:, 2,46, 3) = (/ &
+     &7.0302e-05_rb,1.5840e-04_rb,1.7081e-04_rb,1.5701e-04_rb,5.7032e-05_rb/)
+      kbo(:, 3,46, 3) = (/ &
+     &1.2164e-04_rb,2.3200e-04_rb,2.3559e-04_rb,2.0456e-04_rb,6.1939e-05_rb/)
+      kbo(:, 4,46, 3) = (/ &
+     &1.9963e-04_rb,3.3271e-04_rb,3.1891e-04_rb,2.6146e-04_rb,6.6327e-05_rb/)
+      kbo(:, 5,46, 3) = (/ &
+     &3.1076e-04_rb,4.6749e-04_rb,4.2492e-04_rb,3.2997e-04_rb,7.0248e-05_rb/)
+      kbo(:, 1,47, 3) = (/ &
+     &2.8886e-05_rb,8.0656e-05_rb,9.2760e-05_rb,9.1121e-05_rb,4.0766e-05_rb/)
+      kbo(:, 2,47, 3) = (/ &
+     &5.3342e-05_rb,1.2263e-04_rb,1.3276e-04_rb,1.2283e-04_rb,4.5144e-05_rb/)
+      kbo(:, 3,47, 3) = (/ &
+     &9.4301e-05_rb,1.8266e-04_rb,1.8617e-04_rb,1.6258e-04_rb,4.9298e-05_rb/)
+      kbo(:, 4,47, 3) = (/ &
+     &1.5800e-04_rb,2.6616e-04_rb,2.5579e-04_rb,2.1061e-04_rb,5.3068e-05_rb/)
+      kbo(:, 5,47, 3) = (/ &
+     &2.5109e-04_rb,3.7981e-04_rb,3.4582e-04_rb,2.6887e-04_rb,5.6458e-05_rb/)
+      kbo(:, 1,48, 3) = (/ &
+     &2.2227e-05_rb,6.2023e-05_rb,7.1458e-05_rb,7.0462e-05_rb,3.1996e-05_rb/)
+      kbo(:, 2,48, 3) = (/ &
+     &4.1346e-05_rb,9.5908e-05_rb,1.0391e-04_rb,9.6415e-05_rb,3.5660e-05_rb/)
+      kbo(:, 3,48, 3) = (/ &
+     &7.4574e-05_rb,1.4557e-04_rb,1.4830e-04_rb,1.2990e-04_rb,3.9158e-05_rb/)
+      kbo(:, 4,48, 3) = (/ &
+     &1.2768e-04_rb,2.1605e-04_rb,2.0753e-04_rb,1.7110e-04_rb,4.2391e-05_rb/)
+      kbo(:, 5,48, 3) = (/ &
+     &2.0727e-04_rb,3.1336e-04_rb,2.8498e-04_rb,2.2145e-04_rb,4.5305e-05_rb/)
+      kbo(:, 1,49, 3) = (/ &
+     &1.7958e-05_rb,4.8535e-05_rb,5.5723e-05_rb,5.4851e-05_rb,2.5055e-05_rb/)
+      kbo(:, 2,49, 3) = (/ &
+     &3.3224e-05_rb,7.6396e-05_rb,8.2450e-05_rb,7.6323e-05_rb,2.8114e-05_rb/)
+      kbo(:, 3,49, 3) = (/ &
+     &6.0934e-05_rb,1.1837e-04_rb,1.1999e-04_rb,1.0483e-04_rb,3.1052e-05_rb/)
+      kbo(:, 4,49, 3) = (/ &
+     &1.0660e-04_rb,1.7943e-04_rb,1.7133e-04_rb,1.4083e-04_rb,3.3806e-05_rb/)
+      kbo(:, 5,49, 3) = (/ &
+     &1.7683e-04_rb,2.6555e-04_rb,2.4004e-04_rb,1.8562e-04_rb,3.6333e-05_rb/)
+      kbo(:, 1,50, 3) = (/ &
+     &1.4221e-05_rb,3.7289e-05_rb,4.2772e-05_rb,4.2112e-05_rb,1.9622e-05_rb/)
+      kbo(:, 2,50, 3) = (/ &
+     &2.5770e-05_rb,5.9303e-05_rb,6.4074e-05_rb,5.9411e-05_rb,2.2155e-05_rb/)
+      kbo(:, 3,50, 3) = (/ &
+     &4.7760e-05_rb,9.3560e-05_rb,9.4851e-05_rb,8.2933e-05_rb,2.4619e-05_rb/)
+      kbo(:, 4,50, 3) = (/ &
+     &8.5239e-05_rb,1.4440e-04_rb,1.3769e-04_rb,1.1329e-04_rb,2.6943e-05_rb/)
+      kbo(:, 5,50, 3) = (/ &
+     &1.4427e-04_rb,2.1753e-04_rb,1.9626e-04_rb,1.5178e-04_rb,2.9098e-05_rb/)
+      kbo(:, 1,51, 3) = (/ &
+     &1.1317e-05_rb,2.8454e-05_rb,3.2589e-05_rb,3.2092e-05_rb,1.5353e-05_rb/)
+      kbo(:, 2,51, 3) = (/ &
+     &1.9742e-05_rb,4.5457e-05_rb,4.9229e-05_rb,4.5791e-05_rb,1.7432e-05_rb/)
+      kbo(:, 3,51, 3) = (/ &
+     &3.6711e-05_rb,7.2714e-05_rb,7.3963e-05_rb,6.4841e-05_rb,1.9496e-05_rb/)
+      kbo(:, 4,51, 3) = (/ &
+     &6.6639e-05_rb,1.1416e-04_rb,1.0901e-04_rb,8.9977e-05_rb,2.1439e-05_rb/)
+      kbo(:, 5,51, 3) = (/ &
+     &1.1501e-04_rb,1.7496e-04_rb,1.5780e-04_rb,1.2232e-04_rb,2.3266e-05_rb/)
+      kbo(:, 1,52, 3) = (/ &
+     &9.5193e-06_rb,2.2151e-05_rb,2.5124e-05_rb,2.4603e-05_rb,1.1980e-05_rb/)
+      kbo(:, 2,52, 3) = (/ &
+     &1.5692e-05_rb,3.5362e-05_rb,3.8197e-05_rb,3.5510e-05_rb,1.3701e-05_rb/)
+      kbo(:, 3,52, 3) = (/ &
+     &2.8933e-05_rb,5.7282e-05_rb,5.8273e-05_rb,5.1019e-05_rb,1.5415e-05_rb/)
+      kbo(:, 4,52, 3) = (/ &
+     &5.3248e-05_rb,9.1604e-05_rb,8.7350e-05_rb,7.2017e-05_rb,1.7048e-05_rb/)
+      kbo(:, 5,52, 3) = (/ &
+     &9.3646e-05_rb,1.4304e-04_rb,1.2865e-04_rb,9.9576e-05_rb,1.8583e-05_rb/)
+      kbo(:, 1,53, 3) = (/ &
+     &8.6013e-06_rb,1.7806e-05_rb,1.9756e-05_rb,1.9080e-05_rb,9.3222e-06_rb/)
+      kbo(:, 2,53, 3) = (/ &
+     &1.3174e-05_rb,2.8179e-05_rb,3.0144e-05_rb,2.7850e-05_rb,1.0743e-05_rb/)
+      kbo(:, 3,53, 3) = (/ &
+     &2.3711e-05_rb,4.6162e-05_rb,4.6700e-05_rb,4.0629e-05_rb,1.2161e-05_rb/)
+      kbo(:, 4,53, 3) = (/ &
+     &4.4006e-05_rb,7.5218e-05_rb,7.1366e-05_rb,5.8426e-05_rb,1.3528e-05_rb/)
+      kbo(:, 5,53, 3) = (/ &
+     &7.8885e-05_rb,1.1994e-04_rb,1.0719e-04_rb,8.2389e-05_rb,1.4819e-05_rb/)
+      kbo(:, 1,54, 3) = (/ &
+     &6.9789e-06_rb,1.3437e-05_rb,1.4771e-05_rb,1.4238e-05_rb,7.2546e-06_rb/)
+      kbo(:, 2,54, 3) = (/ &
+     &9.9119e-06_rb,2.0811e-05_rb,2.2371e-05_rb,2.0824e-05_rb,8.4185e-06_rb/)
+      kbo(:, 3,54, 3) = (/ &
+     &1.7167e-05_rb,3.4065e-05_rb,3.4800e-05_rb,3.0574e-05_rb,9.5808e-06_rb/)
+      kbo(:, 4,54, 3) = (/ &
+     &3.1909e-05_rb,5.5956e-05_rb,5.3708e-05_rb,4.4436e-05_rb,1.0721e-05_rb/)
+      kbo(:, 5,54, 3) = (/ &
+     &5.8081e-05_rb,9.0422e-05_rb,8.1544e-05_rb,6.3307e-05_rb,1.1799e-05_rb/)
+      kbo(:, 1,55, 3) = (/ &
+     &5.3128e-06_rb,9.7390e-06_rb,1.0688e-05_rb,1.0358e-05_rb,5.6367e-06_rb/)
+      kbo(:, 2,55, 3) = (/ &
+     &6.9987e-06_rb,1.4672e-05_rb,1.5984e-05_rb,1.5113e-05_rb,6.5876e-06_rb/)
+      kbo(:, 3,55, 3) = (/ &
+     &1.1522e-05_rb,2.3785e-05_rb,2.4757e-05_rb,2.2203e-05_rb,7.5366e-06_rb/)
+      kbo(:, 4,55, 3) = (/ &
+     &2.1231e-05_rb,3.9099e-05_rb,3.8355e-05_rb,3.2404e-05_rb,8.4801e-06_rb/)
+      kbo(:, 5,55, 3) = (/ &
+     &3.9115e-05_rb,6.3594e-05_rb,5.8504e-05_rb,4.6398e-05_rb,9.3778e-06_rb/)
+      kbo(:, 1,56, 3) = (/ &
+     &4.1255e-06_rb,7.1364e-06_rb,7.7808e-06_rb,7.5482e-06_rb,4.3681e-06_rb/)
+      kbo(:, 2,56, 3) = (/ &
+     &5.0603e-06_rb,1.0419e-05_rb,1.1462e-05_rb,1.0974e-05_rb,5.1464e-06_rb/)
+      kbo(:, 3,56, 3) = (/ &
+     &7.8194e-06_rb,1.6631e-05_rb,1.7619e-05_rb,1.6112e-05_rb,5.9174e-06_rb/)
+      kbo(:, 4,56, 3) = (/ &
+     &1.4119e-05_rb,2.7308e-05_rb,2.7375e-05_rb,2.3608e-05_rb,6.6946e-06_rb/)
+      kbo(:, 5,56, 3) = (/ &
+     &2.6208e-05_rb,4.4637e-05_rb,4.1923e-05_rb,3.3985e-05_rb,7.4429e-06_rb/)
+      kbo(:, 1,57, 3) = (/ &
+     &3.2493e-06_rb,5.2971e-06_rb,5.6993e-06_rb,5.5117e-06_rb,3.3724e-06_rb/)
+      kbo(:, 2,57, 3) = (/ &
+     &3.7488e-06_rb,7.4571e-06_rb,8.2480e-06_rb,7.9737e-06_rb,4.0105e-06_rb/)
+      kbo(:, 3,57, 3) = (/ &
+     &5.3914e-06_rb,1.1658e-05_rb,1.2555e-05_rb,1.1685e-05_rb,4.6429e-06_rb/)
+      kbo(:, 4,57, 3) = (/ &
+     &9.4028e-06_rb,1.9067e-05_rb,1.9516e-05_rb,1.7175e-05_rb,5.2749e-06_rb/)
+      kbo(:, 5,57, 3) = (/ &
+     &1.7491e-05_rb,3.1266e-05_rb,3.0002e-05_rb,2.4856e-05_rb,5.8965e-06_rb/)
+      kbo(:, 1,58, 3) = (/ &
+     &6.8210e-07_rb,1.3006e-06_rb,1.7801e-06_rb,2.4088e-06_rb,2.6011e-06_rb/)
+      kbo(:, 2,58, 3) = (/ &
+     &7.5233e-07_rb,1.7695e-06_rb,2.5293e-06_rb,3.4612e-06_rb,3.1260e-06_rb/)
+      kbo(:, 3,58, 3) = (/ &
+     &1.0077e-06_rb,2.6981e-06_rb,3.8040e-06_rb,5.0545e-06_rb,3.6427e-06_rb/)
+      kbo(:, 4,58, 3) = (/ &
+     &1.6789e-06_rb,4.3767e-06_rb,5.8928e-06_rb,7.4329e-06_rb,4.1541e-06_rb/)
+      kbo(:, 5,58, 3) = (/ &
+     &3.1035e-06_rb,7.1707e-06_rb,9.0733e-06_rb,1.0789e-05_rb,4.6675e-06_rb/)
+      kbo(:, 1,59, 3) = (/ &
+     &6.5007e-07_rb,1.2934e-06_rb,1.7266e-06_rb,2.1835e-06_rb,2.0738e-06_rb/)
+      kbo(:, 2,59, 3) = (/ &
+     &7.0640e-07_rb,1.7649e-06_rb,2.4593e-06_rb,3.1227e-06_rb,2.5027e-06_rb/)
+      kbo(:, 3,59, 3) = (/ &
+     &9.2077e-07_rb,2.6612e-06_rb,3.6625e-06_rb,4.5103e-06_rb,2.9231e-06_rb/)
+      kbo(:, 4,59, 3) = (/ &
+     &1.5013e-06_rb,4.2541e-06_rb,5.5816e-06_rb,6.5373e-06_rb,3.3365e-06_rb/)
+      kbo(:, 5,59, 3) = (/ &
+     &2.7629e-06_rb,6.8551e-06_rb,8.4568e-06_rb,9.3583e-06_rb,3.7483e-06_rb/)
+      kbo(:, 1,13, 4) = (/ &
+     &6.7049e-02_rb,1.0578e-01_rb,1.2049e-01_rb,1.1447e-01_rb,5.3996e-02_rb/)
+      kbo(:, 2,13, 4) = (/ &
+     &1.2378e-01_rb,1.5839e-01_rb,1.6716e-01_rb,1.4967e-01_rb,5.8724e-02_rb/)
+      kbo(:, 3,13, 4) = (/ &
+     &2.1508e-01_rb,2.3357e-01_rb,2.2807e-01_rb,1.9256e-01_rb,6.3468e-02_rb/)
+      kbo(:, 4,13, 4) = (/ &
+     &3.4658e-01_rb,3.3547e-01_rb,3.0532e-01_rb,2.4368e-01_rb,6.7895e-02_rb/)
+      kbo(:, 5,13, 4) = (/ &
+     &5.1918e-01_rb,4.6542e-01_rb,4.0071e-01_rb,3.0351e-01_rb,7.2180e-02_rb/)
+      kbo(:, 1,14, 4) = (/ &
+     &3.7591e-02_rb,7.5935e-02_rb,8.9834e-02_rb,8.8154e-02_rb,4.7370e-02_rb/)
+      kbo(:, 2,14, 4) = (/ &
+     &6.9282e-02_rb,1.0939e-01_rb,1.2082e-01_rb,1.1264e-01_rb,5.1597e-02_rb/)
+      kbo(:, 3,14, 4) = (/ &
+     &1.1973e-01_rb,1.5456e-01_rb,1.5973e-01_rb,1.4179e-01_rb,5.5698e-02_rb/)
+      kbo(:, 4,14, 4) = (/ &
+     &1.9141e-01_rb,2.1319e-01_rb,2.0757e-01_rb,1.7567e-01_rb,5.9503e-02_rb/)
+      kbo(:, 5,14, 4) = (/ &
+     &2.8419e-01_rb,2.8689e-01_rb,2.6537e-01_rb,2.1426e-01_rb,6.3167e-02_rb/)
+      kbo(:, 1,15, 4) = (/ &
+     &2.1562e-02_rb,5.5383e-02_rb,6.7683e-02_rb,6.8583e-02_rb,4.1403e-02_rb/)
+      kbo(:, 2,15, 4) = (/ &
+     &3.9720e-02_rb,7.6977e-02_rb,8.8827e-02_rb,8.5804e-02_rb,4.5107e-02_rb/)
+      kbo(:, 3,15, 4) = (/ &
+     &6.8049e-02_rb,1.0522e-01_rb,1.1458e-01_rb,1.0592e-01_rb,4.8636e-02_rb/)
+      kbo(:, 4,15, 4) = (/ &
+     &1.0779e-01_rb,1.4096e-01_rb,1.4532e-01_rb,1.2906e-01_rb,5.1972e-02_rb/)
+      kbo(:, 5,15, 4) = (/ &
+     &1.5865e-01_rb,1.8497e-01_rb,1.8175e-01_rb,1.5501e-01_rb,5.5102e-02_rb/)
+      kbo(:, 1,16, 4) = (/ &
+     &1.4772e-02_rb,4.3932e-02_rb,5.4513e-02_rb,5.6391e-02_rb,3.6009e-02_rb/)
+      kbo(:, 2,16, 4) = (/ &
+     &2.7132e-02_rb,5.9972e-02_rb,7.0550e-02_rb,6.9709e-02_rb,3.9169e-02_rb/)
+      kbo(:, 3,16, 4) = (/ &
+     &4.6049e-02_rb,8.0444e-02_rb,8.9769e-02_rb,8.5125e-02_rb,4.2209e-02_rb/)
+      kbo(:, 4,16, 4) = (/ &
+     &7.2213e-02_rb,1.0588e-01_rb,1.1245e-01_rb,1.0271e-01_rb,4.5097e-02_rb/)
+      kbo(:, 5,16, 4) = (/ &
+     &1.0534e-01_rb,1.3693e-01_rb,1.3910e-01_rb,1.2239e-01_rb,4.7833e-02_rb/)
+      kbo(:, 1,17, 4) = (/ &
+     &1.0505e-02_rb,3.5195e-02_rb,4.4278e-02_rb,4.6677e-02_rb,3.1091e-02_rb/)
+      kbo(:, 2,17, 4) = (/ &
+     &1.9166e-02_rb,4.7335e-02_rb,5.6632e-02_rb,5.7162e-02_rb,3.3802e-02_rb/)
+      kbo(:, 3,17, 4) = (/ &
+     &3.2242e-02_rb,6.2594e-02_rb,7.1319e-02_rb,6.9208e-02_rb,3.6407e-02_rb/)
+      kbo(:, 4,17, 4) = (/ &
+     &4.9961e-02_rb,8.1341e-02_rb,8.8470e-02_rb,8.2810e-02_rb,3.8893e-02_rb/)
+      kbo(:, 5,17, 4) = (/ &
+     &7.2404e-02_rb,1.0400e-01_rb,1.0862e-01_rb,9.8084e-02_rb,4.1273e-02_rb/)
+      kbo(:, 1,18, 4) = (/ &
+     &7.6562e-03_rb,2.8333e-02_rb,3.6121e-02_rb,3.8835e-02_rb,2.6686e-02_rb/)
+      kbo(:, 2,18, 4) = (/ &
+     &1.3867e-02_rb,3.7676e-02_rb,4.5765e-02_rb,4.7147e-02_rb,2.9013e-02_rb/)
+      kbo(:, 3,18, 4) = (/ &
+     &2.3086e-02_rb,4.9274e-02_rb,5.7143e-02_rb,5.6661e-02_rb,3.1231e-02_rb/)
+      kbo(:, 4,18, 4) = (/ &
+     &3.5350e-02_rb,6.3412e-02_rb,7.0379e-02_rb,6.7363e-02_rb,3.3367e-02_rb/)
+      kbo(:, 5,18, 4) = (/ &
+     &5.0974e-02_rb,8.0253e-02_rb,8.5775e-02_rb,7.9284e-02_rb,3.5380e-02_rb/)
+      kbo(:, 1,19, 4) = (/ &
+     &5.4803e-03_rb,2.2514e-02_rb,2.9208e-02_rb,3.2099e-02_rb,2.2789e-02_rb/)
+      kbo(:, 2,19, 4) = (/ &
+     &9.8317e-03_rb,2.9614e-02_rb,3.6650e-02_rb,3.8632e-02_rb,2.4757e-02_rb/)
+      kbo(:, 3,19, 4) = (/ &
+     &1.6184e-02_rb,3.8312e-02_rb,4.5365e-02_rb,4.6081e-02_rb,2.6634e-02_rb/)
+      kbo(:, 4,19, 4) = (/ &
+     &2.4529e-02_rb,4.8776e-02_rb,5.5440e-02_rb,5.4451e-02_rb,2.8434e-02_rb/)
+      kbo(:, 5,19, 4) = (/ &
+     &3.5233e-02_rb,6.1231e-02_rb,6.7107e-02_rb,6.3779e-02_rb,3.0105e-02_rb/)
+      kbo(:, 1,20, 4) = (/ &
+     &4.2828e-03_rb,1.8555e-02_rb,2.4277e-02_rb,2.6995e-02_rb,1.9406e-02_rb/)
+      kbo(:, 2,20, 4) = (/ &
+     &7.5931e-03_rb,2.4236e-02_rb,3.0290e-02_rb,3.2347e-02_rb,2.1050e-02_rb/)
+      kbo(:, 3,20, 4) = (/ &
+     &1.2330e-02_rb,3.1123e-02_rb,3.7288e-02_rb,3.8414e-02_rb,2.2621e-02_rb/)
+      kbo(:, 4,20, 4) = (/ &
+     &1.8510e-02_rb,3.9358e-02_rb,4.5374e-02_rb,4.5224e-02_rb,2.4107e-02_rb/)
+      kbo(:, 5,20, 4) = (/ &
+     &2.6546e-02_rb,4.9149e-02_rb,5.4720e-02_rb,5.2789e-02_rb,2.5443e-02_rb/)
+      kbo(:, 1,21, 4) = (/ &
+     &3.4446e-03_rb,1.5454e-02_rb,2.0322e-02_rb,2.2766e-02_rb,1.6445e-02_rb/)
+      kbo(:, 2,21, 4) = (/ &
+     &6.0284e-03_rb,2.0063e-02_rb,2.5258e-02_rb,2.7191e-02_rb,1.7819e-02_rb/)
+      kbo(:, 3,21, 4) = (/ &
+     &9.6698e-03_rb,2.5633e-02_rb,3.0993e-02_rb,3.2202e-02_rb,1.9116e-02_rb/)
+      kbo(:, 4,21, 4) = (/ &
+     &1.4416e-02_rb,3.2230e-02_rb,3.7573e-02_rb,3.7789e-02_rb,2.0305e-02_rb/)
+      kbo(:, 5,21, 4) = (/ &
+     &2.0653e-02_rb,4.0104e-02_rb,4.5153e-02_rb,4.3956e-02_rb,2.1322e-02_rb/)
+      kbo(:, 1,22, 4) = (/ &
+     &2.9417e-03_rb,1.3191e-02_rb,1.7364e-02_rb,1.9451e-02_rb,1.3960e-02_rb/)
+      kbo(:, 2,22, 4) = (/ &
+     &5.0614e-03_rb,1.7031e-02_rb,2.1496e-02_rb,2.3163e-02_rb,1.5084e-02_rb/)
+      kbo(:, 3,22, 4) = (/ &
+     &7.9857e-03_rb,2.1643e-02_rb,2.6269e-02_rb,2.7349e-02_rb,1.6128e-02_rb/)
+      kbo(:, 4,22, 4) = (/ &
+     &1.1815e-02_rb,2.7096e-02_rb,3.1716e-02_rb,3.1974e-02_rb,1.7035e-02_rb/)
+      kbo(:, 5,22, 4) = (/ &
+     &1.6874e-02_rb,3.3630e-02_rb,3.8023e-02_rb,3.7066e-02_rb,1.7780e-02_rb/)
+      kbo(:, 1,23, 4) = (/ &
+     &2.5270e-03_rb,1.1266e-02_rb,1.4840e-02_rb,1.6589e-02_rb,1.1804e-02_rb/)
+      kbo(:, 2,23, 4) = (/ &
+     &4.2729e-03_rb,1.4464e-02_rb,1.8293e-02_rb,1.9688e-02_rb,1.2713e-02_rb/)
+      kbo(:, 3,23, 4) = (/ &
+     &6.6524e-03_rb,1.8294e-02_rb,2.2254e-02_rb,2.3162e-02_rb,1.3520e-02_rb/)
+      kbo(:, 4,23, 4) = (/ &
+     &9.7631e-03_rb,2.2820e-02_rb,2.6759e-02_rb,2.6972e-02_rb,1.4190e-02_rb/)
+      kbo(:, 5,23, 4) = (/ &
+     &1.3880e-02_rb,2.8296e-02_rb,3.2015e-02_rb,3.1138e-02_rb,1.4756e-02_rb/)
+      kbo(:, 1,24, 4) = (/ &
+     &2.1649e-03_rb,9.5893e-03_rb,1.2641e-02_rb,1.4093e-02_rb,9.9437e-03_rb/)
+      kbo(:, 2,24, 4) = (/ &
+     &3.5984e-03_rb,1.2238e-02_rb,1.5497e-02_rb,1.6660e-02_rb,1.0660e-02_rb/)
+      kbo(:, 3,24, 4) = (/ &
+     &5.5343e-03_rb,1.5407e-02_rb,1.8761e-02_rb,1.9506e-02_rb,1.1265e-02_rb/)
+      kbo(:, 4,24, 4) = (/ &
+     &8.0630e-03_rb,1.9178e-02_rb,2.2493e-02_rb,2.2596e-02_rb,1.1775e-02_rb/)
+      kbo(:, 5,24, 4) = (/ &
+     &1.1384e-02_rb,2.3746e-02_rb,2.6831e-02_rb,2.5965e-02_rb,1.2211e-02_rb/)
+      kbo(:, 1,25, 4) = (/ &
+     &1.8852e-03_rb,8.1978e-03_rb,1.0793e-02_rb,1.1983e-02_rb,8.3500e-03_rb/)
+      kbo(:, 2,25, 4) = (/ &
+     &3.0822e-03_rb,1.0410e-02_rb,1.3161e-02_rb,1.4105e-02_rb,8.8930e-03_rb/)
+      kbo(:, 3,25, 4) = (/ &
+     &4.6788e-03_rb,1.3060e-02_rb,1.5866e-02_rb,1.6423e-02_rb,9.3555e-03_rb/)
+      kbo(:, 4,25, 4) = (/ &
+     &6.7672e-03_rb,1.6246e-02_rb,1.8965e-02_rb,1.8919e-02_rb,9.7508e-03_rb/)
+      kbo(:, 5,25, 4) = (/ &
+     &9.4703e-03_rb,2.0069e-02_rb,2.2560e-02_rb,2.1660e-02_rb,1.0087e-02_rb/)
+      kbo(:, 1,26, 4) = (/ &
+     &1.6838e-03_rb,7.0691e-03_rb,9.2649e-03_rb,1.0222e-02_rb,6.9856e-03_rb/)
+      kbo(:, 2,26, 4) = (/ &
+     &2.7021e-03_rb,8.9432e-03_rb,1.1240e-02_rb,1.1970e-02_rb,7.4013e-03_rb/)
+      kbo(:, 3,26, 4) = (/ &
+     &4.0452e-03_rb,1.1195e-02_rb,1.3497e-02_rb,1.3851e-02_rb,7.7588e-03_rb/)
+      kbo(:, 4,26, 4) = (/ &
+     &5.8017e-03_rb,1.3912e-02_rb,1.6094e-02_rb,1.5906e-02_rb,8.0669e-03_rb/)
+      kbo(:, 5,26, 4) = (/ &
+     &8.0448e-03_rb,1.7140e-02_rb,1.9095e-02_rb,1.8175e-02_rb,8.3263e-03_rb/)
+      kbo(:, 1,27, 4) = (/ &
+     &1.5607e-03_rb,6.1890e-03_rb,8.0258e-03_rb,8.7683e-03_rb,5.8228e-03_rb/)
+      kbo(:, 2,27, 4) = (/ &
+     &2.4561e-03_rb,7.8183e-03_rb,9.7010e-03_rb,1.0217e-02_rb,6.1459e-03_rb/)
+      kbo(:, 3,27, 4) = (/ &
+     &3.6253e-03_rb,9.7806e-03_rb,1.1625e-02_rb,1.1787e-02_rb,6.4270e-03_rb/)
+      kbo(:, 4,27, 4) = (/ &
+     &5.1578e-03_rb,1.2146e-02_rb,1.3856e-02_rb,1.3525e-02_rb,6.6670e-03_rb/)
+      kbo(:, 5,27, 4) = (/ &
+     &7.0917e-03_rb,1.4929e-02_rb,1.6419e-02_rb,1.5452e-02_rb,6.8676e-03_rb/)
+      kbo(:, 1,28, 4) = (/ &
+     &1.4790e-03_rb,5.4823e-03_rb,6.9976e-03_rb,7.5478e-03_rb,4.8444e-03_rb/)
+      kbo(:, 2,28, 4) = (/ &
+     &2.2841e-03_rb,6.9262e-03_rb,8.4418e-03_rb,8.7670e-03_rb,5.0989e-03_rb/)
+      kbo(:, 3,28, 4) = (/ &
+     &3.3280e-03_rb,8.6594e-03_rb,1.0117e-02_rb,1.0108e-02_rb,5.3174e-03_rb/)
+      kbo(:, 4,28, 4) = (/ &
+     &4.7002e-03_rb,1.0747e-02_rb,1.2065e-02_rb,1.1610e-02_rb,5.5053e-03_rb/)
+      kbo(:, 5,28, 4) = (/ &
+     &6.4216e-03_rb,1.3181e-02_rb,1.4294e-02_rb,1.3272e-02_rb,5.6597e-03_rb/)
+      kbo(:, 1,29, 4) = (/ &
+     &1.4846e-03_rb,5.0115e-03_rb,6.2330e-03_rb,6.5969e-03_rb,4.0271e-03_rb/)
+      kbo(:, 2,29, 4) = (/ &
+     &2.2530e-03_rb,6.3449e-03_rb,7.5362e-03_rb,7.6648e-03_rb,4.2267e-03_rb/)
+      kbo(:, 3,29, 4) = (/ &
+     &3.2510e-03_rb,7.9458e-03_rb,9.0603e-03_rb,8.8629e-03_rb,4.3989e-03_rb/)
+      kbo(:, 4,29, 4) = (/ &
+     &4.5516e-03_rb,9.8569e-03_rb,1.0828e-02_rb,1.0206e-02_rb,4.5467e-03_rb/)
+      kbo(:, 5,29, 4) = (/ &
+     &6.1805e-03_rb,1.2091e-02_rb,1.2839e-02_rb,1.1688e-02_rb,4.6649e-03_rb/)
+      kbo(:, 1,30, 4) = (/ &
+     &1.5199e-03_rb,4.6536e-03_rb,5.6184e-03_rb,5.8111e-03_rb,3.3446e-03_rb/)
+      kbo(:, 2,30, 4) = (/ &
+     &2.2691e-03_rb,5.9027e-03_rb,6.8239e-03_rb,6.7733e-03_rb,3.5018e-03_rb/)
+      kbo(:, 3,30, 4) = (/ &
+     &3.2488e-03_rb,7.4072e-03_rb,8.2321e-03_rb,7.8632e-03_rb,3.6376e-03_rb/)
+      kbo(:, 4,30, 4) = (/ &
+     &4.5119e-03_rb,9.1886e-03_rb,9.8595e-03_rb,9.0823e-03_rb,3.7530e-03_rb/)
+      kbo(:, 5,30, 4) = (/ &
+     &6.0862e-03_rb,1.1295e-02_rb,1.1709e-02_rb,1.0421e-02_rb,3.8437e-03_rb/)
+      kbo(:, 1,31, 4) = (/ &
+     &1.6311e-03_rb,4.4648e-03_rb,5.2027e-03_rb,5.2222e-03_rb,2.7768e-03_rb/)
+      kbo(:, 2,31, 4) = (/ &
+     &2.3988e-03_rb,5.6776e-03_rb,6.3545e-03_rb,6.1217e-03_rb,2.9011e-03_rb/)
+      kbo(:, 3,31, 4) = (/ &
+     &3.4145e-03_rb,7.1414e-03_rb,7.7030e-03_rb,7.1444e-03_rb,3.0093e-03_rb/)
+      kbo(:, 4,31, 4) = (/ &
+     &4.7033e-03_rb,8.8852e-03_rb,9.2526e-03_rb,8.2855e-03_rb,3.0977e-03_rb/)
+      kbo(:, 5,31, 4) = (/ &
+     &6.2907e-03_rb,1.0964e-02_rb,1.1034e-02_rb,9.5381e-03_rb,3.1698e-03_rb/)
+      kbo(:, 1,32, 4) = (/ &
+     &1.7646e-03_rb,4.3392e-03_rb,4.8857e-03_rb,4.7446e-03_rb,2.3054e-03_rb/)
+      kbo(:, 2,32, 4) = (/ &
+     &2.5651e-03_rb,5.5295e-03_rb,5.9929e-03_rb,5.5951e-03_rb,2.4036e-03_rb/)
+      kbo(:, 3,32, 4) = (/ &
+     &3.6260e-03_rb,6.9759e-03_rb,7.2903e-03_rb,6.5646e-03_rb,2.4876e-03_rb/)
+      kbo(:, 4,32, 4) = (/ &
+     &4.9515e-03_rb,8.7151e-03_rb,8.7927e-03_rb,7.6385e-03_rb,2.5574e-03_rb/)
+      kbo(:, 5,32, 4) = (/ &
+     &6.5598e-03_rb,1.0782e-02_rb,1.0540e-02_rb,8.8332e-03_rb,2.6142e-03_rb/)
+      kbo(:, 1,33, 4) = (/ &
+     &1.9374e-03_rb,4.2874e-03_rb,4.6591e-03_rb,4.3717e-03_rb,1.9130e-03_rb/)
+      kbo(:, 2,33, 4) = (/ &
+     &2.7949e-03_rb,5.4803e-03_rb,5.7408e-03_rb,5.1902e-03_rb,1.9904e-03_rb/)
+      kbo(:, 3,33, 4) = (/ &
+     &3.9103e-03_rb,6.9411e-03_rb,7.0122e-03_rb,6.1134e-03_rb,2.0570e-03_rb/)
+      kbo(:, 4,33, 4) = (/ &
+     &5.2898e-03_rb,8.7072e-03_rb,8.5064e-03_rb,7.1438e-03_rb,2.1115e-03_rb/)
+      kbo(:, 5,33, 4) = (/ &
+     &6.9527e-03_rb,1.0788e-02_rb,1.0239e-02_rb,8.3069e-03_rb,2.1568e-03_rb/)
+      kbo(:, 1,34, 4) = (/ &
+     &2.0406e-03_rb,4.1540e-03_rb,4.3826e-03_rb,3.9946e-03_rb,1.5845e-03_rb/)
+      kbo(:, 2,34, 4) = (/ &
+     &2.9261e-03_rb,5.3300e-03_rb,5.4194e-03_rb,4.7632e-03_rb,1.6461e-03_rb/)
+      kbo(:, 3,34, 4) = (/ &
+     &4.0546e-03_rb,6.7773e-03_rb,6.6513e-03_rb,5.6287e-03_rb,1.6983e-03_rb/)
+      kbo(:, 4,34, 4) = (/ &
+     &5.4348e-03_rb,8.5143e-03_rb,8.1040e-03_rb,6.6107e-03_rb,1.7421e-03_rb/)
+      kbo(:, 5,34, 4) = (/ &
+     &7.1060e-03_rb,1.0544e-02_rb,9.7699e-03_rb,7.7212e-03_rb,1.7780e-03_rb/)
+      kbo(:, 1,35, 4) = (/ &
+     &2.0728e-03_rb,3.9485e-03_rb,4.0574e-03_rb,3.6081e-03_rb,1.3068e-03_rb/)
+      kbo(:, 2,35, 4) = (/ &
+     &2.9602e-03_rb,5.0932e-03_rb,5.0438e-03_rb,4.3192e-03_rb,1.3565e-03_rb/)
+      kbo(:, 3,35, 4) = (/ &
+     &4.0769e-03_rb,6.5016e-03_rb,6.2270e-03_rb,5.1307e-03_rb,1.3990e-03_rb/)
+      kbo(:, 4,35, 4) = (/ &
+     &5.4354e-03_rb,8.1764e-03_rb,7.6137e-03_rb,6.0597e-03_rb,1.4343e-03_rb/)
+      kbo(:, 5,35, 4) = (/ &
+     &7.0821e-03_rb,1.0134e-02_rb,9.1905e-03_rb,7.1011e-03_rb,1.4630e-03_rb/)
+      kbo(:, 1,36, 4) = (/ &
+     &2.0103e-03_rb,3.6479e-03_rb,3.6691e-03_rb,3.1952e-03_rb,1.0729e-03_rb/)
+      kbo(:, 2,36, 4) = (/ &
+     &2.8662e-03_rb,4.7338e-03_rb,4.5904e-03_rb,3.8448e-03_rb,1.1132e-03_rb/)
+      kbo(:, 3,36, 4) = (/ &
+     &3.9368e-03_rb,6.0663e-03_rb,5.7008e-03_rb,4.5973e-03_rb,1.1487e-03_rb/)
+      kbo(:, 4,36, 4) = (/ &
+     &5.2410e-03_rb,7.6444e-03_rb,6.9919e-03_rb,5.4585e-03_rb,1.1779e-03_rb/)
+      kbo(:, 5,36, 4) = (/ &
+     &6.8204e-03_rb,9.5005e-03_rb,8.4610e-03_rb,6.4164e-03_rb,1.2022e-03_rb/)
+      kbo(:, 1,37, 4) = (/ &
+     &1.7959e-03_rb,3.1864e-03_rb,3.1663e-03_rb,2.7239e-03_rb,8.7469e-04_rb/)
+      kbo(:, 2,37, 4) = (/ &
+     &2.5697e-03_rb,4.1617e-03_rb,3.9876e-03_rb,3.2966e-03_rb,9.0931e-04_rb/)
+      kbo(:, 3,37, 4) = (/ &
+     &3.5391e-03_rb,5.3610e-03_rb,4.9818e-03_rb,3.9676e-03_rb,9.3897e-04_rb/)
+      kbo(:, 4,37, 4) = (/ &
+     &4.7240e-03_rb,6.7847e-03_rb,6.1364e-03_rb,4.7358e-03_rb,9.6399e-04_rb/)
+      kbo(:, 5,37, 4) = (/ &
+     &6.1586e-03_rb,8.4655e-03_rb,7.4564e-03_rb,5.5875e-03_rb,9.8533e-04_rb/)
+      kbo(:, 1,38, 4) = (/ &
+     &1.6221e-03_rb,2.8081e-03_rb,2.7522e-03_rb,2.3347e-03_rb,7.1314e-04_rb/)
+      kbo(:, 2,38, 4) = (/ &
+     &2.3291e-03_rb,3.6929e-03_rb,3.4899e-03_rb,2.8446e-03_rb,7.4249e-04_rb/)
+      kbo(:, 3,38, 4) = (/ &
+     &3.2190e-03_rb,4.7846e-03_rb,4.3892e-03_rb,3.4480e-03_rb,7.6765e-04_rb/)
+      kbo(:, 4,38, 4) = (/ &
+     &4.3100e-03_rb,6.0843e-03_rb,5.4322e-03_rb,4.1379e-03_rb,7.8970e-04_rb/)
+      kbo(:, 5,38, 4) = (/ &
+     &5.6295e-03_rb,7.6227e-03_rb,6.6325e-03_rb,4.9024e-03_rb,8.0762e-04_rb/)
+      kbo(:, 1,39, 4) = (/ &
+     &1.4985e-03_rb,2.5181e-03_rb,2.4272e-03_rb,2.0247e-03_rb,5.8188e-04_rb/)
+      kbo(:, 2,39, 4) = (/ &
+     &2.1580e-03_rb,3.3353e-03_rb,3.1025e-03_rb,2.4863e-03_rb,6.0647e-04_rb/)
+      kbo(:, 3,39, 4) = (/ &
+     &2.9946e-03_rb,4.3491e-03_rb,3.9298e-03_rb,3.0357e-03_rb,6.2817e-04_rb/)
+      kbo(:, 4,39, 4) = (/ &
+     &4.0211e-03_rb,5.5590e-03_rb,4.8918e-03_rb,3.6649e-03_rb,6.4668e-04_rb/)
+      kbo(:, 5,39, 4) = (/ &
+     &5.2642e-03_rb,6.9995e-03_rb,6.0040e-03_rb,4.3661e-03_rb,6.6239e-04_rb/)
+      kbo(:, 1,40, 4) = (/ &
+     &1.2480e-03_rb,2.0953e-03_rb,2.0102e-03_rb,1.6690e-03_rb,4.7210e-04_rb/)
+      kbo(:, 2,40, 4) = (/ &
+     &1.8115e-03_rb,2.7936e-03_rb,2.5861e-03_rb,2.0625e-03_rb,4.9296e-04_rb/)
+      kbo(:, 3,40, 4) = (/ &
+     &2.5332e-03_rb,3.6693e-03_rb,3.2977e-03_rb,2.5337e-03_rb,5.1142e-04_rb/)
+      kbo(:, 4,40, 4) = (/ &
+     &3.4226e-03_rb,4.7175e-03_rb,4.1297e-03_rb,3.0758e-03_rb,5.2719e-04_rb/)
+      kbo(:, 5,40, 4) = (/ &
+     &4.4988e-03_rb,5.9686e-03_rb,5.0929e-03_rb,3.6827e-03_rb,5.4108e-04_rb/)
+      kbo(:, 1,41, 4) = (/ &
+     &1.0279e-03_rb,1.7303e-03_rb,1.6546e-03_rb,1.3684e-03_rb,3.8259e-04_rb/)
+      kbo(:, 2,41, 4) = (/ &
+     &1.5100e-03_rb,2.3260e-03_rb,2.1442e-03_rb,1.7025e-03_rb,4.0029e-04_rb/)
+      kbo(:, 3,41, 4) = (/ &
+     &2.1257e-03_rb,3.0759e-03_rb,2.7514e-03_rb,2.1044e-03_rb,4.1598e-04_rb/)
+      kbo(:, 4,41, 4) = (/ &
+     &2.8920e-03_rb,3.9799e-03_rb,3.4670e-03_rb,2.5693e-03_rb,4.2980e-04_rb/)
+      kbo(:, 5,41, 4) = (/ &
+     &3.8245e-03_rb,5.0645e-03_rb,4.3009e-03_rb,3.0935e-03_rb,4.4154e-04_rb/)
+      kbo(:, 1,42, 4) = (/ &
+     &8.5248e-04_rb,1.4366e-03_rb,1.3681e-03_rb,1.1259e-03_rb,3.0986e-04_rb/)
+      kbo(:, 2,42, 4) = (/ &
+     &1.2693e-03_rb,1.9496e-03_rb,1.7879e-03_rb,1.4116e-03_rb,3.2494e-04_rb/)
+      kbo(:, 3,42, 4) = (/ &
+     &1.7992e-03_rb,2.5962e-03_rb,2.3093e-03_rb,1.7561e-03_rb,3.3826e-04_rb/)
+      kbo(:, 4,42, 4) = (/ &
+     &2.4657e-03_rb,3.3829e-03_rb,2.9302e-03_rb,2.1577e-03_rb,3.5033e-04_rb/)
+      kbo(:, 5,42, 4) = (/ &
+     &3.2835e-03_rb,4.3314e-03_rb,3.6581e-03_rb,2.6128e-03_rb,3.6051e-04_rb/)
+      kbo(:, 1,43, 4) = (/ &
+     &6.9299e-04_rb,1.1756e-03_rb,1.1172e-03_rb,9.1666e-04_rb,2.5008e-04_rb/)
+      kbo(:, 2,43, 4) = (/ &
+     &1.0504e-03_rb,1.6147e-03_rb,1.4746e-03_rb,1.1591e-03_rb,2.6296e-04_rb/)
+      kbo(:, 3,43, 4) = (/ &
+     &1.5042e-03_rb,2.1683e-03_rb,1.9190e-03_rb,1.4524e-03_rb,2.7439e-04_rb/)
+      kbo(:, 4,43, 4) = (/ &
+     &2.0819e-03_rb,2.8510e-03_rb,2.4566e-03_rb,1.7990e-03_rb,2.8482e-04_rb/)
+      kbo(:, 5,43, 4) = (/ &
+     &2.7959e-03_rb,3.6773e-03_rb,3.0899e-03_rb,2.1936e-03_rb,2.9376e-04_rb/)
+      kbo(:, 1,44, 4) = (/ &
+     &5.6092e-04_rb,9.5981e-04_rb,9.1038e-04_rb,7.4434e-04_rb,2.0138e-04_rb/)
+      kbo(:, 2,44, 4) = (/ &
+     &8.6869e-04_rb,1.3365e-03_rb,1.2153e-03_rb,9.5085e-04_rb,2.1240e-04_rb/)
+      kbo(:, 3,44, 4) = (/ &
+     &1.2605e-03_rb,1.8133e-03_rb,1.5968e-03_rb,1.2017e-03_rb,2.2220e-04_rb/)
+      kbo(:, 4,44, 4) = (/ &
+     &1.7639e-03_rb,2.4086e-03_rb,2.0630e-03_rb,1.5011e-03_rb,2.3130e-04_rb/)
+      kbo(:, 5,44, 4) = (/ &
+     &2.3892e-03_rb,3.1325e-03_rb,2.6172e-03_rb,1.8457e-03_rb,2.3904e-04_rb/)
+      kbo(:, 1,45, 4) = (/ &
+     &4.5956e-04_rb,7.9161e-04_rb,7.4840e-04_rb,6.0859e-04_rb,1.6203e-04_rb/)
+      kbo(:, 2,45, 4) = (/ &
+     &7.2822e-04_rb,1.1187e-03_rb,1.0117e-03_rb,7.8592e-04_rb,1.7142e-04_rb/)
+      kbo(:, 3,45, 4) = (/ &
+     &1.0767e-03_rb,1.5389e-03_rb,1.3458e-03_rb,1.0038e-03_rb,1.7986e-04_rb/)
+      kbo(:, 4,45, 4) = (/ &
+     &1.5195e-03_rb,2.0634e-03_rb,1.7544e-03_rb,1.2651e-03_rb,1.8773e-04_rb/)
+      kbo(:, 5,45, 4) = (/ &
+     &2.0790e-03_rb,2.7102e-03_rb,2.2473e-03_rb,1.5700e-03_rb,1.9451e-04_rb/)
+      kbo(:, 1,46, 4) = (/ &
+     &3.7292e-04_rb,6.4911e-04_rb,6.1209e-04_rb,4.9545e-04_rb,1.3008e-04_rb/)
+      kbo(:, 2,46, 4) = (/ &
+     &6.0673e-04_rb,9.3287e-04_rb,8.3976e-04_rb,6.4802e-04_rb,1.3811e-04_rb/)
+      kbo(:, 3,46, 4) = (/ &
+     &9.1635e-04_rb,1.3033e-03_rb,1.1323e-03_rb,8.3718e-04_rb,1.4541e-04_rb/)
+      kbo(:, 4,46, 4) = (/ &
+     &1.3083e-03_rb,1.7659e-03_rb,1.4916e-03_rb,1.0659e-03_rb,1.5214e-04_rb/)
+      kbo(:, 5,46, 4) = (/ &
+     &1.8099e-03_rb,2.3458e-03_rb,1.9309e-03_rb,1.3365e-03_rb,1.5810e-04_rb/)
+      kbo(:, 1,47, 4) = (/ &
+     &2.8950e-04_rb,5.1677e-04_rb,4.8802e-04_rb,3.9502e-04_rb,1.0398e-04_rb/)
+      kbo(:, 2,47, 4) = (/ &
+     &4.8670e-04_rb,7.5660e-04_rb,6.8049e-04_rb,5.2378e-04_rb,1.1085e-04_rb/)
+      kbo(:, 3,47, 4) = (/ &
+     &7.5525e-04_rb,1.0762e-03_rb,9.3123e-04_rb,6.8496e-04_rb,1.1715e-04_rb/)
+      kbo(:, 4,47, 4) = (/ &
+     &1.0969e-03_rb,1.4777e-03_rb,1.2426e-03_rb,8.8223e-04_rb,1.2295e-04_rb/)
+      kbo(:, 5,47, 4) = (/ &
+     &1.5354e-03_rb,1.9852e-03_rb,1.6256e-03_rb,1.1178e-03_rb,1.2805e-04_rb/)
+      kbo(:, 1,48, 4) = (/ &
+     &2.2732e-04_rb,4.1628e-04_rb,3.9316e-04_rb,3.1737e-04_rb,8.2969e-05_rb/)
+      kbo(:, 2,48, 4) = (/ &
+     &3.9696e-04_rb,6.2251e-04_rb,5.5852e-04_rb,4.2777e-04_rb,8.8908e-05_rb/)
+      kbo(:, 3,48, 4) = (/ &
+     &6.3462e-04_rb,9.0305e-04_rb,7.7729e-04_rb,5.6732e-04_rb,9.4308e-05_rb/)
+      kbo(:, 4,48, 4) = (/ &
+     &9.4204e-04_rb,1.2622e-03_rb,1.0539e-03_rb,7.4093e-04_rb,9.9236e-05_rb/)
+      kbo(:, 5,48, 4) = (/ &
+     &1.3331e-03_rb,1.7143e-03_rb,1.3938e-03_rb,9.4935e-04_rb,1.0368e-04_rb/)
+      kbo(:, 1,49, 4) = (/ &
+     &1.8300e-04_rb,3.4217e-04_rb,3.2264e-04_rb,2.5877e-04_rb,6.6118e-05_rb/)
+      kbo(:, 2,49, 4) = (/ &
+     &3.3312e-04_rb,5.2483e-04_rb,4.6829e-04_rb,3.5552e-04_rb,7.1194e-05_rb/)
+      kbo(:, 3,49, 4) = (/ &
+     &5.4973e-04_rb,7.7839e-04_rb,6.6473e-04_rb,4.7940e-04_rb,7.5813e-05_rb/)
+      kbo(:, 4,49, 4) = (/ &
+     &8.3663e-04_rb,1.1105e-03_rb,9.1800e-04_rb,6.3658e-04_rb,8.0100e-05_rb/)
+      kbo(:, 5,49, 4) = (/ &
+     &1.2004e-03_rb,1.5281e-03_rb,1.2307e-03_rb,8.2653e-04_rb,8.3935e-05_rb/)
+      kbo(:, 1,50, 4) = (/ &
+     &1.4039e-04_rb,2.7151e-04_rb,2.5713e-04_rb,2.0628e-04_rb,5.2648e-05_rb/)
+      kbo(:, 2,50, 4) = (/ &
+     &2.6610e-04_rb,4.2689e-04_rb,3.8091e-04_rb,2.8831e-04_rb,5.6961e-05_rb/)
+      kbo(:, 3,50, 4) = (/ &
+     &4.5427e-04_rb,6.4624e-04_rb,5.5025e-04_rb,3.9479e-04_rb,6.0907e-05_rb/)
+      kbo(:, 4,50, 4) = (/ &
+     &7.0950e-04_rb,9.4070e-04_rb,7.7361e-04_rb,5.3217e-04_rb,6.4571e-05_rb/)
+      kbo(:, 5,50, 4) = (/ &
+     &1.0374e-03_rb,1.3149e-03_rb,1.0530e-03_rb,7.0038e-04_rb,6.7890e-05_rb/)
+      kbo(:, 1,51, 4) = (/ &
+     &1.0489e-04_rb,2.1109e-04_rb,2.0141e-04_rb,1.6218e-04_rb,4.1878e-05_rb/)
+      kbo(:, 2,51, 4) = (/ &
+     &2.0633e-04_rb,3.4016e-04_rb,3.0444e-04_rb,2.3054e-04_rb,4.5538e-05_rb/)
+      kbo(:, 3,51, 4) = (/ &
+     &3.6536e-04_rb,5.2580e-04_rb,4.4746e-04_rb,3.2051e-04_rb,4.8874e-05_rb/)
+      kbo(:, 4,51, 4) = (/ &
+     &5.8696e-04_rb,7.8085e-04_rb,6.4023e-04_rb,4.3829e-04_rb,5.1997e-05_rb/)
+      kbo(:, 5,51, 4) = (/ &
+     &8.7556e-04_rb,1.1091e-03_rb,8.8460e-04_rb,5.8473e-04_rb,5.4858e-05_rb/)
+      kbo(:, 1,52, 4) = (/ &
+     &7.9793e-05_rb,1.6601e-04_rb,1.5918e-04_rb,1.2853e-04_rb,3.3276e-05_rb/)
+      kbo(:, 2,52, 4) = (/ &
+     &1.6247e-04_rb,2.7468e-04_rb,2.4631e-04_rb,1.8617e-04_rb,3.6357e-05_rb/)
+      kbo(:, 3,52, 4) = (/ &
+     &2.9905e-04_rb,4.3474e-04_rb,3.6924e-04_rb,2.6353e-04_rb,3.9196e-05_rb/)
+      kbo(:, 4,52, 4) = (/ &
+     &4.9530e-04_rb,6.5976e-04_rb,5.3847e-04_rb,3.6618e-04_rb,4.1839e-05_rb/)
+      kbo(:, 5,52, 4) = (/ &
+     &7.5546e-04_rb,9.5475e-04_rb,7.5721e-04_rb,4.9627e-04_rb,4.4317e-05_rb/)
+      kbo(:, 1,53, 4) = (/ &
+     &6.2729e-05_rb,1.3307e-04_rb,1.2792e-04_rb,1.0321e-04_rb,2.6401e-05_rb/)
+      kbo(:, 2,53, 4) = (/ &
+     &1.3138e-04_rb,2.2658e-04_rb,2.0324e-04_rb,1.5289e-04_rb,2.9006e-05_rb/)
+      kbo(:, 3,53, 4) = (/ &
+     &2.5160e-04_rb,3.6877e-04_rb,3.1205e-04_rb,2.2094e-04_rb,3.1410e-05_rb/)
+      kbo(:, 4,53, 4) = (/ &
+     &4.3128e-04_rb,5.7326e-04_rb,4.6479e-04_rb,3.1290e-04_rb,3.3663e-05_rb/)
+      kbo(:, 5,53, 4) = (/ &
+     &6.7436e-04_rb,8.4743e-04_rb,6.6688e-04_rb,4.3200e-04_rb,3.5790e-05_rb/)
+      kbo(:, 1,54, 4) = (/ &
+     &4.3536e-05_rb,9.6993e-05_rb,9.4650e-05_rb,7.7465e-05_rb,2.0921e-05_rb/)
+      kbo(:, 2,54, 4) = (/ &
+     &9.2752e-05_rb,1.6814e-04_rb,1.5268e-04_rb,1.1626e-04_rb,2.3103e-05_rb/)
+      kbo(:, 3,54, 4) = (/ &
+     &1.8378e-04_rb,2.7919e-04_rb,2.3835e-04_rb,1.7016e-04_rb,2.5121e-05_rb/)
+      kbo(:, 4,54, 4) = (/ &
+     &3.2645e-04_rb,4.4256e-04_rb,3.6033e-04_rb,2.4382e-04_rb,2.7012e-05_rb/)
+      kbo(:, 5,54, 4) = (/ &
+     &5.2349e-04_rb,6.6571e-04_rb,5.2497e-04_rb,3.4104e-04_rb,2.8788e-05_rb/)
+      kbo(:, 1,55, 4) = (/ &
+     &2.7968e-05_rb,6.6619e-05_rb,6.6506e-05_rb,5.5712e-05_rb,1.6550e-05_rb/)
+      kbo(:, 2,55, 4) = (/ &
+     &5.9858e-05_rb,1.1651e-04_rb,1.0803e-04_rb,8.4126e-05_rb,1.8363e-05_rb/)
+      kbo(:, 3,55, 4) = (/ &
+     &1.2216e-04_rb,1.9620e-04_rb,1.7047e-04_rb,1.2407e-04_rb,2.0057e-05_rb/)
+      kbo(:, 4,55, 4) = (/ &
+     &2.2490e-04_rb,3.1581e-04_rb,2.6032e-04_rb,1.7892e-04_rb,2.1634e-05_rb/)
+      kbo(:, 5,55, 4) = (/ &
+     &3.7032e-04_rb,4.8266e-04_rb,3.8398e-04_rb,2.5251e-04_rb,2.3108e-05_rb/)
+      kbo(:, 1,56, 4) = (/ &
+     &1.8187e-05_rb,4.5780e-05_rb,4.6700e-05_rb,4.0035e-05_rb,1.3073e-05_rb/)
+      kbo(:, 2,56, 4) = (/ &
+     &3.8391e-05_rb,8.0472e-05_rb,7.6243e-05_rb,6.0757e-05_rb,1.4582e-05_rb/)
+      kbo(:, 3,56, 4) = (/ &
+     &8.0424e-05_rb,1.3728e-04_rb,1.2154e-04_rb,9.0284e-05_rb,1.6006e-05_rb/)
+      kbo(:, 4,56, 4) = (/ &
+     &1.5350e-04_rb,2.2433e-04_rb,1.8750e-04_rb,1.3109e-04_rb,1.7305e-05_rb/)
+      kbo(:, 5,56, 4) = (/ &
+     &2.6031e-04_rb,3.4853e-04_rb,2.7994e-04_rb,1.8653e-04_rb,1.8526e-05_rb/)
+      kbo(:, 1,57, 4) = (/ &
+     &1.2069e-05_rb,3.1511e-05_rb,3.2815e-05_rb,2.8783e-05_rb,1.0310e-05_rb/)
+      kbo(:, 2,57, 4) = (/ &
+     &2.4551e-05_rb,5.5416e-05_rb,5.3688e-05_rb,4.3795e-05_rb,1.1563e-05_rb/)
+      kbo(:, 3,57, 4) = (/ &
+     &5.2372e-05_rb,9.5634e-05_rb,8.6379e-05_rb,6.5547e-05_rb,1.2748e-05_rb/)
+      kbo(:, 4,57, 4) = (/ &
+     &1.0355e-04_rb,1.5851e-04_rb,1.3458e-04_rb,9.5855e-05_rb,1.3838e-05_rb/)
+      kbo(:, 5,57, 4) = (/ &
+     &1.8156e-04_rb,2.5040e-04_rb,2.0330e-04_rb,1.3740e-04_rb,1.4854e-05_rb/)
+      kbo(:, 1,58, 4) = (/ &
+     &2.1923e-06_rb,7.1667e-06_rb,9.7990e-06_rb,1.2334e-05_rb,8.1331e-06_rb/)
+      kbo(:, 2,58, 4) = (/ &
+     &4.2014e-06_rb,1.2514e-05_rb,1.5980e-05_rb,1.8735e-05_rb,9.1661e-06_rb/)
+      kbo(:, 3,58, 4) = (/ &
+     &9.0349e-06_rb,2.1751e-05_rb,2.5847e-05_rb,2.8162e-05_rb,1.0154e-05_rb/)
+      kbo(:, 4,58, 4) = (/ &
+     &1.8408e-05_rb,3.6461e-05_rb,4.0575e-05_rb,4.1376e-05_rb,1.1069e-05_rb/)
+      kbo(:, 5,58, 4) = (/ &
+     &3.3398e-05_rb,5.8421e-05_rb,6.1871e-05_rb,5.9629e-05_rb,1.1910e-05_rb/)
+      kbo(:, 1,59, 4) = (/ &
+     &1.9895e-06_rb,7.0146e-06_rb,9.2666e-06_rb,1.0819e-05_rb,6.5530e-06_rb/)
+      kbo(:, 2,59, 4) = (/ &
+     &3.7103e-06_rb,1.1985e-05_rb,1.4798e-05_rb,1.6119e-05_rb,7.3922e-06_rb/)
+      kbo(:, 3,59, 4) = (/ &
+     &7.9795e-06_rb,2.0481e-05_rb,2.3504e-05_rb,2.3808e-05_rb,8.1931e-06_rb/)
+      kbo(:, 4,59, 4) = (/ &
+     &1.6446e-05_rb,3.3891e-05_rb,3.6329e-05_rb,3.4426e-05_rb,8.9453e-06_rb/)
+      kbo(:, 5,59, 4) = (/ &
+     &3.0202e-05_rb,5.3874e-05_rb,5.4799e-05_rb,4.8960e-05_rb,9.6374e-06_rb/)
+      kbo(:, 1,13, 5) = (/ &
+     &4.3236e-01_rb,4.3213e-01_rb,3.9701e-01_rb,3.2546e-01_rb,1.1197e-01_rb/)
+      kbo(:, 2,13, 5) = (/ &
+     &6.6372e-01_rb,6.1379e-01_rb,5.3578e-01_rb,4.1378e-01_rb,1.1749e-01_rb/)
+      kbo(:, 3,13, 5) = (/ &
+     &9.6012e-01_rb,8.4543e-01_rb,7.0690e-01_rb,5.2039e-01_rb,1.2229e-01_rb/)
+      kbo(:, 4,13, 5) = (/ &
+     &1.3340e+00_rb,1.1343e+00_rb,9.1491e-01_rb,6.4651e-01_rb,1.2717e-01_rb/)
+      kbo(:, 5,13, 5) = (/ &
+     &1.8059e+00_rb,1.4945e+00_rb,1.1687e+00_rb,7.9501e-01_rb,1.3200e-01_rb/)
+      kbo(:, 1,14, 5) = (/ &
+     &2.3576e-01_rb,2.7360e-01_rb,2.7141e-01_rb,2.4039e-01_rb,9.8792e-02_rb/)
+      kbo(:, 2,14, 5) = (/ &
+     &3.5903e-01_rb,3.7743e-01_rb,3.5638e-01_rb,2.9754e-01_rb,1.0359e-01_rb/)
+      kbo(:, 3,14, 5) = (/ &
+     &5.1761e-01_rb,5.0746e-01_rb,4.5981e-01_rb,3.6575e-01_rb,1.0816e-01_rb/)
+      kbo(:, 4,14, 5) = (/ &
+     &7.1963e-01_rb,6.6997e-01_rb,5.8434e-01_rb,4.4555e-01_rb,1.1272e-01_rb/)
+      kbo(:, 5,14, 5) = (/ &
+     &9.7673e-01_rb,8.7084e-01_rb,7.3356e-01_rb,5.3881e-01_rb,1.1732e-01_rb/)
+      kbo(:, 1,15, 5) = (/ &
+     &1.3110e-01_rb,1.8103e-01_rb,1.9281e-01_rb,1.8264e-01_rb,8.6582e-02_rb/)
+      kbo(:, 2,15, 5) = (/ &
+     &1.9817e-01_rb,2.4413e-01_rb,2.4684e-01_rb,2.2172e-01_rb,9.0925e-02_rb/)
+      kbo(:, 3,15, 5) = (/ &
+     &2.8519e-01_rb,3.2198e-01_rb,3.1178e-01_rb,2.6742e-01_rb,9.5231e-02_rb/)
+      kbo(:, 4,15, 5) = (/ &
+     &3.9693e-01_rb,4.1797e-01_rb,3.8987e-01_rb,3.1982e-01_rb,9.9470e-02_rb/)
+      kbo(:, 5,15, 5) = (/ &
+     &5.3979e-01_rb,5.3546e-01_rb,4.8283e-01_rb,3.8058e-01_rb,1.0367e-01_rb/)
+      kbo(:, 1,16, 5) = (/ &
+     &8.6780e-02_rb,1.3641e-01_rb,1.5186e-01_rb,1.4818e-01_rb,7.5514e-02_rb/)
+      kbo(:, 2,16, 5) = (/ &
+     &1.3047e-01_rb,1.8113e-01_rb,1.9135e-01_rb,1.7835e-01_rb,7.9533e-02_rb/)
+      kbo(:, 3,16, 5) = (/ &
+     &1.8753e-01_rb,2.3639e-01_rb,2.3875e-01_rb,2.1304e-01_rb,8.3481e-02_rb/)
+      kbo(:, 4,16, 5) = (/ &
+     &2.6140e-01_rb,3.0428e-01_rb,2.9551e-01_rb,2.5256e-01_rb,8.7293e-02_rb/)
+      kbo(:, 5,16, 5) = (/ &
+     &3.5574e-01_rb,3.8652e-01_rb,3.6267e-01_rb,2.9793e-01_rb,9.1094e-02_rb/)
+      kbo(:, 1,17, 5) = (/ &
+     &5.9400e-02_rb,1.0544e-01_rb,1.2175e-01_rb,1.2140e-01_rb,6.5571e-02_rb/)
+      kbo(:, 2,17, 5) = (/ &
+     &8.8982e-02_rb,1.3824e-01_rb,1.5175e-01_rb,1.4491e-01_rb,6.9197e-02_rb/)
+      kbo(:, 3,17, 5) = (/ &
+     &1.2788e-01_rb,1.7890e-01_rb,1.8755e-01_rb,1.7185e-01_rb,7.2708e-02_rb/)
+      kbo(:, 4,17, 5) = (/ &
+     &1.7835e-01_rb,2.2856e-01_rb,2.3024e-01_rb,2.0241e-01_rb,7.6161e-02_rb/)
+      kbo(:, 5,17, 5) = (/ &
+     &2.4297e-01_rb,2.8834e-01_rb,2.8043e-01_rb,2.3722e-01_rb,7.9603e-02_rb/)
+      kbo(:, 1,18, 5) = (/ &
+     &4.1651e-02_rb,8.2911e-02_rb,9.8455e-02_rb,9.9593e-02_rb,5.6662e-02_rb/)
+      kbo(:, 2,18, 5) = (/ &
+     &6.2251e-02_rb,1.0765e-01_rb,1.2173e-01_rb,1.1843e-01_rb,5.9831e-02_rb/)
+      kbo(:, 3,18, 5) = (/ &
+     &8.9419e-02_rb,1.3828e-01_rb,1.4944e-01_rb,1.3970e-01_rb,6.2923e-02_rb/)
+      kbo(:, 4,18, 5) = (/ &
+     &1.2470e-01_rb,1.7541e-01_rb,1.8216e-01_rb,1.6372e-01_rb,6.6077e-02_rb/)
+      kbo(:, 5,18, 5) = (/ &
+     &1.6992e-01_rb,2.1986e-01_rb,2.2047e-01_rb,1.9095e-01_rb,6.9212e-02_rb/)
+      kbo(:, 1,19, 5) = (/ &
+     &2.8717e-02_rb,6.4742e-02_rb,7.8819e-02_rb,8.0895e-02_rb,4.8664e-02_rb/)
+      kbo(:, 2,19, 5) = (/ &
+     &4.2849e-02_rb,8.3244e-02_rb,9.6815e-02_rb,9.5751e-02_rb,5.1433e-02_rb/)
+      kbo(:, 3,19, 5) = (/ &
+     &6.1454e-02_rb,1.0605e-01_rb,1.1801e-01_rb,1.1248e-01_rb,5.4215e-02_rb/)
+      kbo(:, 4,19, 5) = (/ &
+     &8.5699e-02_rb,1.3356e-01_rb,1.4292e-01_rb,1.3115e-01_rb,5.7031e-02_rb/)
+      kbo(:, 5,19, 5) = (/ &
+     &1.1681e-01_rb,1.6622e-01_rb,1.7182e-01_rb,1.5204e-01_rb,5.9790e-02_rb/)
+      kbo(:, 1,20, 5) = (/ &
+     &2.1632e-02_rb,5.2943e-02_rb,6.5235e-02_rb,6.7363e-02_rb,4.1610e-02_rb/)
+      kbo(:, 2,20, 5) = (/ &
+     &3.2163e-02_rb,6.7696e-02_rb,7.9852e-02_rb,7.9447e-02_rb,4.4062e-02_rb/)
+      kbo(:, 3,20, 5) = (/ &
+     &4.6057e-02_rb,8.5815e-02_rb,9.6980e-02_rb,9.3049e-02_rb,4.6553e-02_rb/)
+      kbo(:, 4,20, 5) = (/ &
+     &6.4136e-02_rb,1.0754e-01_rb,1.1694e-01_rb,1.0820e-01_rb,4.9013e-02_rb/)
+      kbo(:, 5,20, 5) = (/ &
+     &8.7379e-02_rb,1.3322e-01_rb,1.3995e-01_rb,1.2502e-01_rb,5.1455e-02_rb/)
+      kbo(:, 1,21, 5) = (/ &
+     &1.6823e-02_rb,4.3877e-02_rb,5.4527e-02_rb,5.6402e-02_rb,3.5455e-02_rb/)
+      kbo(:, 2,21, 5) = (/ &
+     &2.4936e-02_rb,5.5953e-02_rb,6.6511e-02_rb,6.6307e-02_rb,3.7602e-02_rb/)
+      kbo(:, 3,21, 5) = (/ &
+     &3.5634e-02_rb,7.0642e-02_rb,8.0513e-02_rb,7.7454e-02_rb,3.9786e-02_rb/)
+      kbo(:, 4,21, 5) = (/ &
+     &4.9531e-02_rb,8.8177e-02_rb,9.6745e-02_rb,8.9935e-02_rb,4.1920e-02_rb/)
+      kbo(:, 5,21, 5) = (/ &
+     &6.7455e-02_rb,1.0884e-01_rb,1.1539e-01_rb,1.0375e-01_rb,4.4030e-02_rb/)
+      kbo(:, 1,22, 5) = (/ &
+     &1.3789e-02_rb,3.7331e-02_rb,4.6413e-02_rb,4.7878e-02_rb,3.0220e-02_rb/)
+      kbo(:, 2,22, 5) = (/ &
+     &2.0294e-02_rb,4.7459e-02_rb,5.6444e-02_rb,5.6212e-02_rb,3.2091e-02_rb/)
+      kbo(:, 3,22, 5) = (/ &
+     &2.8887e-02_rb,5.9685e-02_rb,6.8142e-02_rb,6.5522e-02_rb,3.3949e-02_rb/)
+      kbo(:, 4,22, 5) = (/ &
+     &4.0024e-02_rb,7.4193e-02_rb,8.1621e-02_rb,7.5940e-02_rb,3.5793e-02_rb/)
+      kbo(:, 5,22, 5) = (/ &
+     &5.4487e-02_rb,9.1298e-02_rb,9.7079e-02_rb,8.7446e-02_rb,3.7515e-02_rb/)
+      kbo(:, 1,23, 5) = (/ &
+     &1.1373e-02_rb,3.1797e-02_rb,3.9445e-02_rb,4.0631e-02_rb,2.5676e-02_rb/)
+      kbo(:, 2,23, 5) = (/ &
+     &1.6630e-02_rb,4.0276e-02_rb,4.7874e-02_rb,4.7621e-02_rb,2.7276e-02_rb/)
+      kbo(:, 3,23, 5) = (/ &
+     &2.3572e-02_rb,5.0445e-02_rb,5.7632e-02_rb,5.5405e-02_rb,2.8857e-02_rb/)
+      kbo(:, 4,23, 5) = (/ &
+     &3.2590e-02_rb,6.2506e-02_rb,6.8883e-02_rb,6.4105e-02_rb,3.0360e-02_rb/)
+      kbo(:, 5,23, 5) = (/ &
+     &4.4383e-02_rb,7.6716e-02_rb,8.1703e-02_rb,7.3646e-02_rb,3.1632e-02_rb/)
+      kbo(:, 1,24, 5) = (/ &
+     &9.3521e-03_rb,2.6988e-02_rb,3.3405e-02_rb,3.4382e-02_rb,2.1758e-02_rb/)
+      kbo(:, 2,24, 5) = (/ &
+     &1.3592e-02_rb,3.4040e-02_rb,4.0452e-02_rb,4.0217e-02_rb,2.3106e-02_rb/)
+      kbo(:, 3,24, 5) = (/ &
+     &1.9190e-02_rb,4.2486e-02_rb,4.8570e-02_rb,4.6701e-02_rb,2.4399e-02_rb/)
+      kbo(:, 4,24, 5) = (/ &
+     &2.6527e-02_rb,5.2454e-02_rb,5.7886e-02_rb,5.3878e-02_rb,2.5528e-02_rb/)
+      kbo(:, 5,24, 5) = (/ &
+     &3.6127e-02_rb,6.4240e-02_rb,6.8480e-02_rb,6.1740e-02_rb,2.6418e-02_rb/)
+      kbo(:, 1,25, 5) = (/ &
+     &7.8143e-03_rb,2.3046e-02_rb,2.8423e-02_rb,2.9180e-02_rb,1.8391e-02_rb/)
+      kbo(:, 2,25, 5) = (/ &
+     &1.1292e-02_rb,2.8965e-02_rb,3.4350e-02_rb,3.4059e-02_rb,1.9498e-02_rb/)
+      kbo(:, 3,25, 5) = (/ &
+     &1.5906e-02_rb,3.6033e-02_rb,4.1158e-02_rb,3.9460e-02_rb,2.0484e-02_rb/)
+      kbo(:, 4,25, 5) = (/ &
+     &2.2015e-02_rb,4.4387e-02_rb,4.8915e-02_rb,4.5425e-02_rb,2.1291e-02_rb/)
+      kbo(:, 5,25, 5) = (/ &
+     &2.9929e-02_rb,5.4292e-02_rb,5.7748e-02_rb,5.1892e-02_rb,2.1939e-02_rb/)
+      kbo(:, 1,26, 5) = (/ &
+     &6.6841e-03_rb,1.9882e-02_rb,2.4386e-02_rb,2.4902e-02_rb,1.5507e-02_rb/)
+      kbo(:, 2,26, 5) = (/ &
+     &9.6187e-03_rb,2.4917e-02_rb,2.9404e-02_rb,2.8998e-02_rb,1.6368e-02_rb/)
+      kbo(:, 3,26, 5) = (/ &
+     &1.3541e-02_rb,3.0916e-02_rb,3.5147e-02_rb,3.3522e-02_rb,1.7088e-02_rb/)
+      kbo(:, 4,26, 5) = (/ &
+     &1.8734e-02_rb,3.8045e-02_rb,4.1676e-02_rb,3.8461e-02_rb,1.7679e-02_rb/)
+      kbo(:, 5,26, 5) = (/ &
+     &2.5382e-02_rb,4.6534e-02_rb,4.9183e-02_rb,4.3795e-02_rb,1.8164e-02_rb/)
+      kbo(:, 1,27, 5) = (/ &
+     &5.9464e-03_rb,1.7461e-02_rb,2.1207e-02_rb,2.1457e-02_rb,1.3019e-02_rb/)
+      kbo(:, 2,27, 5) = (/ &
+     &8.5411e-03_rb,2.1855e-02_rb,2.5534e-02_rb,2.4945e-02_rb,1.3658e-02_rb/)
+      kbo(:, 3,27, 5) = (/ &
+     &1.2012e-02_rb,2.7098e-02_rb,3.0472e-02_rb,2.8773e-02_rb,1.4192e-02_rb/)
+      kbo(:, 4,27, 5) = (/ &
+     &1.6580e-02_rb,3.3382e-02_rb,3.6146e-02_rb,3.2904e-02_rb,1.4638e-02_rb/)
+      kbo(:, 5,27, 5) = (/ &
+     &2.2392e-02_rb,4.0890e-02_rb,4.2671e-02_rb,3.7399e-02_rb,1.5005e-02_rb/)
+      kbo(:, 1,28, 5) = (/ &
+     &5.4489e-03_rb,1.5531e-02_rb,1.8614e-02_rb,1.8613e-02_rb,1.0873e-02_rb/)
+      kbo(:, 2,28, 5) = (/ &
+     &7.8148e-03_rb,1.9440e-02_rb,2.2401e-02_rb,2.1604e-02_rb,1.1349e-02_rb/)
+      kbo(:, 3,28, 5) = (/ &
+     &1.0969e-02_rb,2.4138e-02_rb,2.6729e-02_rb,2.4848e-02_rb,1.1757e-02_rb/)
+      kbo(:, 4,28, 5) = (/ &
+     &1.5087e-02_rb,2.9815e-02_rb,3.1728e-02_rb,2.8368e-02_rb,1.2101e-02_rb/)
+      kbo(:, 5,28, 5) = (/ &
+     &2.0299e-02_rb,3.6555e-02_rb,3.7502e-02_rb,3.2280e-02_rb,1.2378e-02_rb/)
+      kbo(:, 1,29, 5) = (/ &
+     &5.3270e-03_rb,1.4285e-02_rb,1.6775e-02_rb,1.6453e-02_rb,9.0474e-03_rb/)
+      kbo(:, 2,29, 5) = (/ &
+     &7.6276e-03_rb,1.7927e-02_rb,2.0207e-02_rb,1.9083e-02_rb,9.4132e-03_rb/)
+      kbo(:, 3,29, 5) = (/ &
+     &1.0673e-02_rb,2.2373e-02_rb,2.4172e-02_rb,2.1940e-02_rb,9.7284e-03_rb/)
+      kbo(:, 4,29, 5) = (/ &
+     &1.4614e-02_rb,2.7730e-02_rb,2.8795e-02_rb,2.5116e-02_rb,9.9926e-03_rb/)
+      kbo(:, 5,29, 5) = (/ &
+     &1.9579e-02_rb,3.4081e-02_rb,3.4110e-02_rb,2.8684e-02_rb,1.0207e-02_rb/)
+      kbo(:, 1,30, 5) = (/ &
+     &5.3535e-03_rb,1.3353e-02_rb,1.5300e-02_rb,1.4666e-02_rb,7.5129e-03_rb/)
+      kbo(:, 2,30, 5) = (/ &
+     &7.6380e-03_rb,1.6853e-02_rb,1.8473e-02_rb,1.7010e-02_rb,7.7968e-03_rb/)
+      kbo(:, 3,30, 5) = (/ &
+     &1.0647e-02_rb,2.1132e-02_rb,2.2202e-02_rb,1.9612e-02_rb,8.0434e-03_rb/)
+      kbo(:, 4,30, 5) = (/ &
+     &1.4510e-02_rb,2.6289e-02_rb,2.6550e-02_rb,2.2553e-02_rb,8.2450e-03_rb/)
+      kbo(:, 5,30, 5) = (/ &
+     &1.9367e-02_rb,3.2371e-02_rb,3.1546e-02_rb,2.5868e-02_rb,8.4082e-03_rb/)
+      kbo(:, 1,31, 5) = (/ &
+     &5.6746e-03_rb,1.2936e-02_rb,1.4343e-02_rb,1.3343e-02_rb,6.2303e-03_rb/)
+      kbo(:, 2,31, 5) = (/ &
+     &8.0577e-03_rb,1.6447e-02_rb,1.7425e-02_rb,1.5532e-02_rb,6.4556e-03_rb/)
+      kbo(:, 3,31, 5) = (/ &
+     &1.1174e-02_rb,2.0739e-02_rb,2.1078e-02_rb,1.8020e-02_rb,6.6441e-03_rb/)
+      kbo(:, 4,31, 5) = (/ &
+     &1.5165e-02_rb,2.5916e-02_rb,2.5346e-02_rb,2.0861e-02_rb,6.8034e-03_rb/)
+      kbo(:, 5,31, 5) = (/ &
+     &2.0188e-02_rb,3.1999e-02_rb,3.0259e-02_rb,2.4055e-02_rb,6.9268e-03_rb/)
+      kbo(:, 1,32, 5) = (/ &
+     &6.0895e-03_rb,1.2732e-02_rb,1.3622e-02_rb,1.2258e-02_rb,5.1656e-03_rb/)
+      kbo(:, 2,32, 5) = (/ &
+     &8.5996e-03_rb,1.6298e-02_rb,1.6681e-02_rb,1.4366e-02_rb,5.3392e-03_rb/)
+      kbo(:, 3,32, 5) = (/ &
+     &1.1871e-02_rb,2.0666e-02_rb,2.0302e-02_rb,1.6787e-02_rb,5.4899e-03_rb/)
+      kbo(:, 4,32, 5) = (/ &
+     &1.6059e-02_rb,2.5901e-02_rb,2.4547e-02_rb,1.9547e-02_rb,5.6119e-03_rb/)
+      kbo(:, 5,32, 5) = (/ &
+     &2.1313e-02_rb,3.2082e-02_rb,2.9454e-02_rb,2.2664e-02_rb,5.7070e-03_rb/)
+      kbo(:, 1,33, 5) = (/ &
+     &6.6515e-03_rb,1.2796e-02_rb,1.3188e-02_rb,1.1442e-02_rb,4.2781e-03_rb/)
+      kbo(:, 2,33, 5) = (/ &
+     &9.3384e-03_rb,1.6485e-02_rb,1.6266e-02_rb,1.3517e-02_rb,4.4167e-03_rb/)
+      kbo(:, 3,33, 5) = (/ &
+     &1.2846e-02_rb,2.0999e-02_rb,1.9943e-02_rb,1.5910e-02_rb,4.5341e-03_rb/)
+      kbo(:, 4,33, 5) = (/ &
+     &1.7327e-02_rb,2.6399e-02_rb,2.4247e-02_rb,1.8651e-02_rb,4.6303e-03_rb/)
+      kbo(:, 5,33, 5) = (/ &
+     &2.2895e-02_rb,3.2829e-02_rb,2.9267e-02_rb,2.1750e-02_rb,4.7019e-03_rb/)
+      kbo(:, 1,34, 5) = (/ &
+     &6.9862e-03_rb,1.2631e-02_rb,1.2600e-02_rb,1.0591e-02_rb,3.5376e-03_rb/)
+      kbo(:, 2,34, 5) = (/ &
+     &9.7726e-03_rb,1.6353e-02_rb,1.5653e-02_rb,1.2600e-02_rb,3.6473e-03_rb/)
+      kbo(:, 3,34, 5) = (/ &
+     &1.3409e-02_rb,2.0887e-02_rb,1.9295e-02_rb,1.4929e-02_rb,3.7406e-03_rb/)
+      kbo(:, 4,34, 5) = (/ &
+     &1.8037e-02_rb,2.6346e-02_rb,2.3581e-02_rb,1.7591e-02_rb,3.8148e-03_rb/)
+      kbo(:, 5,34, 5) = (/ &
+     &2.3704e-02_rb,3.2885e-02_rb,2.8616e-02_rb,2.0638e-02_rb,3.8707e-03_rb/)
+      kbo(:, 1,35, 5) = (/ &
+     &7.0977e-03_rb,1.2235e-02_rb,1.1878e-02_rb,9.7122e-03_rb,2.9156e-03_rb/)
+      kbo(:, 2,35, 5) = (/ &
+     &9.9249e-03_rb,1.5915e-02_rb,1.4862e-02_rb,1.1642e-02_rb,3.0042e-03_rb/)
+      kbo(:, 3,35, 5) = (/ &
+     &1.3615e-02_rb,2.0413e-02_rb,1.8425e-02_rb,1.3882e-02_rb,3.0791e-03_rb/)
+      kbo(:, 4,35, 5) = (/ &
+     &1.8271e-02_rb,2.5881e-02_rb,2.2655e-02_rb,1.6461e-02_rb,3.1387e-03_rb/)
+      kbo(:, 5,35, 5) = (/ &
+     &2.3900e-02_rb,3.2414e-02_rb,2.7651e-02_rb,1.9450e-02_rb,3.1837e-03_rb/)
+      kbo(:, 1,36, 5) = (/ &
+     &6.9060e-03_rb,1.1498e-02_rb,1.0932e-02_rb,8.7493e-03_rb,2.3952e-03_rb/)
+      kbo(:, 2,36, 5) = (/ &
+     &9.6735e-03_rb,1.5042e-02_rb,1.3779e-02_rb,1.0573e-02_rb,2.4672e-03_rb/)
+      kbo(:, 3,36, 5) = (/ &
+     &1.3291e-02_rb,1.9415e-02_rb,1.7205e-02_rb,1.2691e-02_rb,2.5290e-03_rb/)
+      kbo(:, 4,36, 5) = (/ &
+     &1.7820e-02_rb,2.4753e-02_rb,2.1299e-02_rb,1.5151e-02_rb,2.5791e-03_rb/)
+      kbo(:, 5,36, 5) = (/ &
+     &2.3253e-02_rb,3.1113e-02_rb,2.6141e-02_rb,1.8030e-02_rb,2.6175e-03_rb/)
+      kbo(:, 1,37, 5) = (/ &
+     &6.2139e-03_rb,1.0192e-02_rb,9.5802e-03_rb,7.5798e-03_rb,1.9567e-03_rb/)
+      kbo(:, 2,37, 5) = (/ &
+     &8.7456e-03_rb,1.3428e-02_rb,1.2164e-02_rb,9.2244e-03_rb,2.0181e-03_rb/)
+      kbo(:, 3,37, 5) = (/ &
+     &1.2068e-02_rb,1.7456e-02_rb,1.5302e-02_rb,1.1147e-02_rb,2.0706e-03_rb/)
+      kbo(:, 4,37, 5) = (/ &
+     &1.6229e-02_rb,2.2411e-02_rb,1.9089e-02_rb,1.3408e-02_rb,2.1134e-03_rb/)
+      kbo(:, 5,37, 5) = (/ &
+     &2.1208e-02_rb,2.8314e-02_rb,2.3560e-02_rb,1.6063e-02_rb,2.1467e-03_rb/)
+      kbo(:, 1,38, 5) = (/ &
+     &5.6546e-03_rb,9.1081e-03_rb,8.4597e-03_rb,6.6101e-03_rb,1.5995e-03_rb/)
+      kbo(:, 2,38, 5) = (/ &
+     &7.9966e-03_rb,1.2093e-02_rb,1.0832e-02_rb,8.1085e-03_rb,1.6506e-03_rb/)
+      kbo(:, 3,38, 5) = (/ &
+     &1.1084e-02_rb,1.5851e-02_rb,1.3740e-02_rb,9.8767e-03_rb,1.6948e-03_rb/)
+      kbo(:, 4,38, 5) = (/ &
+     &1.4944e-02_rb,2.0494e-02_rb,1.7272e-02_rb,1.1975e-02_rb,1.7322e-03_rb/)
+      kbo(:, 5,38, 5) = (/ &
+     &1.9571e-02_rb,2.6031e-02_rb,2.1445e-02_rb,1.4447e-02_rb,1.7614e-03_rb/)
+      kbo(:, 1,39, 5) = (/ &
+     &5.2606e-03_rb,8.2861e-03_rb,7.5918e-03_rb,5.8448e-03_rb,1.3077e-03_rb/)
+      kbo(:, 2,39, 5) = (/ &
+     &7.4758e-03_rb,1.1098e-02_rb,9.8108e-03_rb,7.2343e-03_rb,1.3505e-03_rb/)
+      kbo(:, 3,39, 5) = (/ &
+     &1.0407e-02_rb,1.4668e-02_rb,1.2553e-02_rb,8.8880e-03_rb,1.3888e-03_rb/)
+      kbo(:, 4,39, 5) = (/ &
+     &1.4072e-02_rb,1.9102e-02_rb,1.5911e-02_rb,1.0872e-02_rb,1.4211e-03_rb/)
+      kbo(:, 5,39, 5) = (/ &
+     &1.8472e-02_rb,2.4391e-02_rb,1.9883e-02_rb,1.3211e-02_rb,1.4470e-03_rb/)
+      kbo(:, 1,40, 5) = (/ &
+     &4.4239e-03_rb,6.9683e-03_rb,6.3619e-03_rb,4.8825e-03_rb,1.0643e-03_rb/)
+      kbo(:, 2,40, 5) = (/ &
+     &6.3289e-03_rb,9.4143e-03_rb,8.2870e-03_rb,6.0882e-03_rb,1.1007e-03_rb/)
+      kbo(:, 3,40, 5) = (/ &
+     &8.8723e-03_rb,1.2550e-02_rb,1.0689e-02_rb,7.5344e-03_rb,1.1340e-03_rb/)
+      kbo(:, 4,40, 5) = (/ &
+     &1.2075e-02_rb,1.6469e-02_rb,1.3655e-02_rb,9.2842e-03_rb,1.1620e-03_rb/)
+      kbo(:, 5,40, 5) = (/ &
+     &1.5933e-02_rb,2.1174e-02_rb,1.7180e-02_rb,1.1354e-02_rb,1.1848e-03_rb/)
+      kbo(:, 1,41, 5) = (/ &
+     &3.6867e-03_rb,5.8128e-03_rb,5.2949e-03_rb,4.0553e-03_rb,8.6561e-04_rb/)
+      kbo(:, 2,41, 5) = (/ &
+     &5.3143e-03_rb,7.9271e-03_rb,6.9551e-03_rb,5.0947e-03_rb,8.9710e-04_rb/)
+      kbo(:, 3,41, 5) = (/ &
+     &7.5044e-03_rb,1.0658e-02_rb,9.0449e-03_rb,6.3522e-03_rb,9.2517e-04_rb/)
+      kbo(:, 4,41, 5) = (/ &
+     &1.0281e-02_rb,1.4099e-02_rb,1.1643e-02_rb,7.8856e-03_rb,9.4938e-04_rb/)
+      kbo(:, 5,41, 5) = (/ &
+     &1.3649e-02_rb,1.8248e-02_rb,1.4748e-02_rb,9.7057e-03_rb,9.6963e-04_rb/)
+      kbo(:, 1,42, 5) = (/ &
+     &3.0985e-03_rb,4.8781e-03_rb,4.4299e-03_rb,3.3820e-03_rb,7.0400e-04_rb/)
+      kbo(:, 2,42, 5) = (/ &
+     &4.5009e-03_rb,6.7165e-03_rb,5.8698e-03_rb,4.2829e-03_rb,7.3071e-04_rb/)
+      kbo(:, 3,42, 5) = (/ &
+     &6.4001e-03_rb,9.1103e-03_rb,7.7007e-03_rb,5.3843e-03_rb,7.5479e-04_rb/)
+      kbo(:, 4,42, 5) = (/ &
+     &8.8324e-03_rb,1.2154e-02_rb,9.9941e-03_rb,6.7362e-03_rb,7.7572e-04_rb/)
+      kbo(:, 5,42, 5) = (/ &
+     &1.1799e-02_rb,1.5850e-02_rb,1.2750e-02_rb,8.3487e-03_rb,7.9315e-04_rb/)
+      kbo(:, 1,43, 5) = (/ &
+     &2.5629e-03_rb,4.0329e-03_rb,3.6588e-03_rb,2.7901e-03_rb,5.7114e-04_rb/)
+      kbo(:, 2,43, 5) = (/ &
+     &3.7578e-03_rb,5.6142e-03_rb,4.8977e-03_rb,3.5662e-03_rb,5.9379e-04_rb/)
+      kbo(:, 3,43, 5) = (/ &
+     &5.3881e-03_rb,7.6915e-03_rb,6.4844e-03_rb,4.5229e-03_rb,6.1455e-04_rb/)
+      kbo(:, 4,43, 5) = (/ &
+     &7.5091e-03_rb,1.0367e-02_rb,8.4990e-03_rb,5.7086e-03_rb,6.3259e-04_rb/)
+      kbo(:, 5,43, 5) = (/ &
+     &1.0110e-02_rb,1.3645e-02_rb,1.0937e-02_rb,7.1314e-03_rb,6.4809e-04_rb/)
+      kbo(:, 1,44, 5) = (/ &
+     &2.1195e-03_rb,3.3263e-03_rb,3.0153e-03_rb,2.2974e-03_rb,4.6259e-04_rb/)
+      kbo(:, 2,44, 5) = (/ &
+     &3.1405e-03_rb,4.6890e-03_rb,4.0834e-03_rb,2.9671e-03_rb,4.8211e-04_rb/)
+      kbo(:, 3,44, 5) = (/ &
+     &4.5449e-03_rb,6.4956e-03_rb,5.4625e-03_rb,3.8015e-03_rb,4.9986e-04_rb/)
+      kbo(:, 4,44, 5) = (/ &
+     &6.4001e-03_rb,8.8502e-03_rb,7.2321e-03_rb,4.8421e-03_rb,5.1551e-04_rb/)
+      kbo(:, 5,44, 5) = (/ &
+     &8.6977e-03_rb,1.1779e-02_rb,9.4064e-03_rb,6.1062e-03_rb,5.2910e-04_rb/)
+      kbo(:, 1,45, 5) = (/ &
+     &1.7814e-03_rb,2.7759e-03_rb,2.5092e-03_rb,1.9068e-03_rb,3.7475e-04_rb/)
+      kbo(:, 2,45, 5) = (/ &
+     &2.6678e-03_rb,3.9635e-03_rb,3.4407e-03_rb,2.4906e-03_rb,3.9120e-04_rb/)
+      kbo(:, 3,45, 5) = (/ &
+     &3.8999e-03_rb,5.5595e-03_rb,4.6558e-03_rb,3.2267e-03_rb,4.0640e-04_rb/)
+      kbo(:, 4,45, 5) = (/ &
+     &5.5475e-03_rb,7.6646e-03_rb,6.2331e-03_rb,4.1536e-03_rb,4.1988e-04_rb/)
+      kbo(:, 5,45, 5) = (/ &
+     &7.6146e-03_rb,1.0314e-02_rb,8.1967e-03_rb,5.2910e-03_rb,4.3189e-04_rb/)
+      kbo(:, 1,46, 5) = (/ &
+     &1.4913e-03_rb,2.3049e-03_rb,2.0781e-03_rb,1.5752e-03_rb,3.0303e-04_rb/)
+      kbo(:, 2,46, 5) = (/ &
+     &2.2619e-03_rb,3.3394e-03_rb,2.8896e-03_rb,2.0839e-03_rb,3.1705e-04_rb/)
+      kbo(:, 3,46, 5) = (/ &
+     &3.3424e-03_rb,4.7455e-03_rb,3.9592e-03_rb,2.7324e-03_rb,3.2997e-04_rb/)
+      kbo(:, 4,46, 5) = (/ &
+     &4.8041e-03_rb,6.6271e-03_rb,5.3667e-03_rb,3.5579e-03_rb,3.4174e-04_rb/)
+      kbo(:, 5,46, 5) = (/ &
+     &6.6700e-03_rb,9.0306e-03_rb,7.1468e-03_rb,4.5847e-03_rb,3.5220e-04_rb/)
+      kbo(:, 1,47, 5) = (/ &
+     &1.2089e-03_rb,1.8595e-03_rb,1.6774e-03_rb,1.2733e-03_rb,2.4435e-04_rb/)
+      kbo(:, 2,47, 5) = (/ &
+     &1.8589e-03_rb,2.7359e-03_rb,2.3669e-03_rb,1.7064e-03_rb,2.5622e-04_rb/)
+      kbo(:, 3,47, 5) = (/ &
+     &2.7805e-03_rb,3.9417e-03_rb,3.2867e-03_rb,2.2649e-03_rb,2.6731e-04_rb/)
+      kbo(:, 4,47, 5) = (/ &
+     &4.0468e-03_rb,5.5810e-03_rb,4.5086e-03_rb,2.9823e-03_rb,2.7740e-04_rb/)
+      kbo(:, 5,47, 5) = (/ &
+     &5.6890e-03_rb,7.7116e-03_rb,6.0862e-03_rb,3.8914e-03_rb,2.8663e-04_rb/)
+      kbo(:, 1,48, 5) = (/ &
+     &1.0010e-03_rb,1.5219e-03_rb,1.3705e-03_rb,1.0399e-03_rb,1.9690e-04_rb/)
+      kbo(:, 2,48, 5) = (/ &
+     &1.5623e-03_rb,2.2781e-03_rb,1.9661e-03_rb,1.4139e-03_rb,2.0690e-04_rb/)
+      kbo(:, 3,48, 5) = (/ &
+     &2.3663e-03_rb,3.3328e-03_rb,2.7724e-03_rb,1.9027e-03_rb,2.1643e-04_rb/)
+      kbo(:, 4,48, 5) = (/ &
+     &3.4895e-03_rb,4.7876e-03_rb,3.8543e-03_rb,2.5388e-03_rb,2.2513e-04_rb/)
+      kbo(:, 5,48, 5) = (/ &
+     &4.9716e-03_rb,6.7160e-03_rb,5.2797e-03_rb,3.3578e-03_rb,2.3320e-04_rb/)
+      kbo(:, 1,49, 5) = (/ &
+     &8.5765e-04_rb,1.2765e-03_rb,1.1434e-03_rb,8.6362e-04_rb,1.5857e-04_rb/)
+      kbo(:, 2,49, 5) = (/ &
+     &1.3602e-03_rb,1.9488e-03_rb,1.6723e-03_rb,1.1956e-03_rb,1.6712e-04_rb/)
+      kbo(:, 3,49, 5) = (/ &
+     &2.0873e-03_rb,2.8996e-03_rb,2.4000e-03_rb,1.6350e-03_rb,1.7515e-04_rb/)
+      kbo(:, 4,49, 5) = (/ &
+     &3.1195e-03_rb,4.2309e-03_rb,3.3880e-03_rb,2.2146e-03_rb,1.8269e-04_rb/)
+      kbo(:, 5,49, 5) = (/ &
+     &4.5042e-03_rb,6.0317e-03_rb,4.7143e-03_rb,2.9742e-03_rb,1.8971e-04_rb/)
+      kbo(:, 1,50, 5) = (/ &
+     &7.0327e-04_rb,1.0357e-03_rb,9.2617e-04_rb,6.9913e-04_rb,1.2768e-04_rb/)
+      kbo(:, 2,50, 5) = (/ &
+     &1.1341e-03_rb,1.6088e-03_rb,1.3773e-03_rb,9.8362e-04_rb,1.3488e-04_rb/)
+      kbo(:, 3,50, 5) = (/ &
+     &1.7633e-03_rb,2.4334e-03_rb,2.0087e-03_rb,1.3647e-03_rb,1.4174e-04_rb/)
+      kbo(:, 4,50, 5) = (/ &
+     &2.6686e-03_rb,3.6011e-03_rb,2.8760e-03_rb,1.8731e-03_rb,1.4819e-04_rb/)
+      kbo(:, 5,50, 5) = (/ &
+     &3.9042e-03_rb,5.2110e-03_rb,4.0582e-03_rb,2.5499e-03_rb,1.5417e-04_rb/)
+      kbo(:, 1,51, 5) = (/ &
+     &5.6283e-04_rb,8.2479e-04_rb,7.3777e-04_rb,5.5772e-04_rb,1.0280e-04_rb/)
+      kbo(:, 2,51, 5) = (/ &
+     &9.2490e-04_rb,1.3030e-03_rb,1.1149e-03_rb,7.9673e-04_rb,1.0882e-04_rb/)
+      kbo(:, 3,51, 5) = (/ &
+     &1.4569e-03_rb,2.0026e-03_rb,1.6508e-03_rb,1.1213e-03_rb,1.1463e-04_rb/)
+      kbo(:, 4,51, 5) = (/ &
+     &2.2322e-03_rb,3.0043e-03_rb,2.3967e-03_rb,1.5580e-03_rb,1.2010e-04_rb/)
+      kbo(:, 5,51, 5) = (/ &
+     &3.3090e-03_rb,4.4133e-03_rb,3.4281e-03_rb,2.1477e-03_rb,1.2516e-04_rb/)
+      kbo(:, 1,52, 5) = (/ &
+     &4.5964e-04_rb,6.6706e-04_rb,5.9570e-04_rb,4.4969e-04_rb,8.2695e-05_rb/)
+      kbo(:, 2,52, 5) = (/ &
+     &7.7113e-04_rb,1.0739e-03_rb,9.1646e-04_rb,6.5362e-04_rb,8.7774e-05_rb/)
+      kbo(:, 3,52, 5) = (/ &
+     &1.2329e-03_rb,1.6791e-03_rb,1.3796e-03_rb,9.3460e-04_rb,9.2675e-05_rb/)
+      kbo(:, 4,52, 5) = (/ &
+     &1.9124e-03_rb,2.5569e-03_rb,2.0345e-03_rb,1.3172e-03_rb,9.7314e-05_rb/)
+      kbo(:, 5,52, 5) = (/ &
+     &2.8744e-03_rb,3.8139e-03_rb,2.9526e-03_rb,1.8404e-03_rb,1.0157e-04_rb/)
+      kbo(:, 1,53, 5) = (/ &
+     &3.8730e-04_rb,5.5282e-04_rb,4.9108e-04_rb,3.6874e-04_rb,6.6480e-05_rb/)
+      kbo(:, 2,53, 5) = (/ &
+     &6.6529e-04_rb,9.0913e-04_rb,7.7130e-04_rb,5.4660e-04_rb,7.0743e-05_rb/)
+      kbo(:, 3,53, 5) = (/ &
+     &1.0811e-03_rb,1.4483e-03_rb,1.1832e-03_rb,7.9661e-04_rb,7.4902e-05_rb/)
+      kbo(:, 4,53, 5) = (/ &
+     &1.6977e-03_rb,2.2425e-03_rb,1.7750e-03_rb,1.1419e-03_rb,7.8801e-05_rb/)
+      kbo(:, 5,53, 5) = (/ &
+     &2.5875e-03_rb,3.3978e-03_rb,2.6180e-03_rb,1.6189e-03_rb,8.2434e-05_rb/)
+      kbo(:, 1,54, 5) = (/ &
+     &2.8438e-04_rb,4.1240e-04_rb,3.6923e-04_rb,2.8032e-04_rb,5.3391e-05_rb/)
+      kbo(:, 2,54, 5) = (/ &
+     &5.0038e-04_rb,6.8881e-04_rb,5.8764e-04_rb,4.1957e-04_rb,5.6986e-05_rb/)
+      kbo(:, 3,54, 5) = (/ &
+     &8.2710e-04_rb,1.1130e-03_rb,9.1323e-04_rb,6.1896e-04_rb,6.0464e-05_rb/)
+      kbo(:, 4,54, 5) = (/ &
+     &1.3140e-03_rb,1.7467e-03_rb,1.3863e-03_rb,8.9674e-04_rb,6.3698e-05_rb/)
+      kbo(:, 5,54, 5) = (/ &
+     &2.0289e-03_rb,2.6791e-03_rb,2.0677e-03_rb,1.2826e-03_rb,6.6754e-05_rb/)
+      kbo(:, 1,55, 5) = (/ &
+     &1.9032e-04_rb,2.8714e-04_rb,2.6164e-04_rb,2.0312e-04_rb,4.2857e-05_rb/)
+      kbo(:, 2,55, 5) = (/ &
+     &3.4354e-04_rb,4.8514e-04_rb,4.1940e-04_rb,3.0487e-04_rb,4.5872e-05_rb/)
+      kbo(:, 3,55, 5) = (/ &
+     &5.7798e-04_rb,7.9314e-04_rb,6.5789e-04_rb,4.5289e-04_rb,4.8737e-05_rb/)
+      kbo(:, 4,55, 5) = (/ &
+     &9.2977e-04_rb,1.2582e-03_rb,1.0072e-03_rb,6.6019e-04_rb,5.1425e-05_rb/)
+      kbo(:, 5,55, 5) = (/ &
+     &1.4533e-03_rb,1.9484e-03_rb,1.5135e-03_rb,9.4927e-04_rb,5.3965e-05_rb/)
+      kbo(:, 1,56, 5) = (/ &
+     &1.2624e-04_rb,1.9945e-04_rb,1.8526e-04_rb,1.4713e-04_rb,3.4367e-05_rb/)
+      kbo(:, 2,56, 5) = (/ &
+     &2.3425e-04_rb,3.4034e-04_rb,2.9855e-04_rb,2.2108e-04_rb,3.6885e-05_rb/)
+      kbo(:, 3,56, 5) = (/ &
+     &4.0201e-04_rb,5.6312e-04_rb,4.7257e-04_rb,3.3069e-04_rb,3.9253e-05_rb/)
+      kbo(:, 4,56, 5) = (/ &
+     &6.5545e-04_rb,9.0280e-04_rb,7.2955e-04_rb,4.8511e-04_rb,4.1521e-05_rb/)
+      kbo(:, 5,56, 5) = (/ &
+     &1.0372e-03_rb,1.4120e-03_rb,1.1051e-03_rb,7.0135e-04_rb,4.3631e-05_rb/)
+      kbo(:, 1,57, 5) = (/ &
+     &8.2825e-05_rb,1.3826e-04_rb,1.3105e-04_rb,1.0648e-04_rb,2.7541e-05_rb/)
+      kbo(:, 2,57, 5) = (/ &
+     &1.5848e-04_rb,2.3765e-04_rb,2.1180e-04_rb,1.6006e-04_rb,2.9646e-05_rb/)
+      kbo(:, 3,57, 5) = (/ &
+     &2.7802e-04_rb,3.9802e-04_rb,3.3815e-04_rb,2.4085e-04_rb,3.1604e-05_rb/)
+      kbo(:, 4,57, 5) = (/ &
+     &4.6014e-04_rb,6.4521e-04_rb,5.2696e-04_rb,3.5556e-04_rb,3.3502e-05_rb/)
+      kbo(:, 5,57, 5) = (/ &
+     &7.3676e-04_rb,1.0192e-03_rb,8.0418e-04_rb,5.1690e-04_rb,3.5248e-05_rb/)
+      kbo(:, 1,58, 5) = (/ &
+     &1.4413e-05_rb,3.1415e-05_rb,3.9206e-05_rb,4.5793e-05_rb,2.2070e-05_rb/)
+      kbo(:, 2,58, 5) = (/ &
+     &2.8319e-05_rb,5.4166e-05_rb,6.3295e-05_rb,6.8680e-05_rb,2.3823e-05_rb/)
+      kbo(:, 3,58, 5) = (/ &
+     &5.0851e-05_rb,9.1643e-05_rb,1.0172e-04_rb,1.0358e-04_rb,2.5450e-05_rb/)
+      kbo(:, 4,58, 5) = (/ &
+     &8.5536e-05_rb,1.4999e-04_rb,1.5967e-04_rb,1.5367e-04_rb,2.7016e-05_rb/)
+      kbo(:, 5,58, 5) = (/ &
+     &1.3845e-04_rb,2.3895e-04_rb,2.4509e-04_rb,2.2418e-04_rb,2.8488e-05_rb/)
+      kbo(:, 1,59, 5) = (/ &
+     &1.2766e-05_rb,2.9930e-05_rb,3.6342e-05_rb,3.9546e-05_rb,1.7924e-05_rb/)
+      kbo(:, 2,59, 5) = (/ &
+     &2.5308e-05_rb,5.0886e-05_rb,5.7559e-05_rb,5.8137e-05_rb,1.9351e-05_rb/)
+      kbo(:, 3,59, 5) = (/ &
+     &4.5886e-05_rb,8.5371e-05_rb,9.1314e-05_rb,8.6129e-05_rb,2.0681e-05_rb/)
+      kbo(:, 4,59, 5) = (/ &
+     &7.7783e-05_rb,1.3897e-04_rb,1.4192e-04_rb,1.2608e-04_rb,2.1937e-05_rb/)
+      kbo(:, 5,59, 5) = (/ &
+     &1.2671e-04_rb,2.2060e-04_rb,2.1586e-04_rb,1.8160e-04_rb,2.3122e-05_rb/)
+      kbo(:, 1,13, 6) = (/ &
+     &1.2091e+00_rb,1.0925e+00_rb,9.7132e-01_rb,7.6832e-01_rb,2.2429e-01_rb/)
+      kbo(:, 2,13, 6) = (/ &
+     &1.8464e+00_rb,1.5640e+00_rb,1.2977e+00_rb,9.6738e-01_rb,2.2945e-01_rb/)
+      kbo(:, 3,13, 6) = (/ &
+     &2.7006e+00_rb,2.1933e+00_rb,1.7174e+00_rb,1.2089e+00_rb,2.3586e-01_rb/)
+      kbo(:, 4,13, 6) = (/ &
+     &3.8041e+00_rb,3.0098e+00_rb,2.2534e+00_rb,1.4966e+00_rb,2.4148e-01_rb/)
+      kbo(:, 5,13, 6) = (/ &
+     &5.1874e+00_rb,4.0404e+00_rb,2.9277e+00_rb,1.8384e+00_rb,2.4717e-01_rb/)
+      kbo(:, 1,14, 6) = (/ &
+     &6.6672e-01_rb,6.8855e-01_rb,6.6353e-01_rb,5.5608e-01_rb,2.0092e-01_rb/)
+      kbo(:, 2,14, 6) = (/ &
+     &1.0160e+00_rb,9.4963e-01_rb,8.6392e-01_rb,6.8590e-01_rb,2.0621e-01_rb/)
+      kbo(:, 3,14, 6) = (/ &
+     &1.4836e+00_rb,1.2937e+00_rb,1.1112e+00_rb,8.3934e-01_rb,2.1228e-01_rb/)
+      kbo(:, 4,14, 6) = (/ &
+     &2.0856e+00_rb,1.7366e+00_rb,1.4142e+00_rb,1.0186e+00_rb,2.1791e-01_rb/)
+      kbo(:, 5,14, 6) = (/ &
+     &2.8402e+00_rb,2.2928e+00_rb,1.7814e+00_rb,1.2275e+00_rb,2.2338e-01_rb/)
+      kbo(:, 1,15, 6) = (/ &
+     &3.7534e-01_rb,4.5732e-01_rb,4.6750e-01_rb,4.0917e-01_rb,1.7874e-01_rb/)
+      kbo(:, 2,15, 6) = (/ &
+     &5.7029e-01_rb,6.1390e-01_rb,5.9540e-01_rb,4.9734e-01_rb,1.8407e-01_rb/)
+      kbo(:, 3,15, 6) = (/ &
+     &8.2994e-01_rb,8.1258e-01_rb,7.5038e-01_rb,5.9870e-01_rb,1.8982e-01_rb/)
+      kbo(:, 4,15, 6) = (/ &
+     &1.1635e+00_rb,1.0593e+00_rb,9.3529e-01_rb,7.1512e-01_rb,1.9538e-01_rb/)
+      kbo(:, 5,15, 6) = (/ &
+     &1.5834e+00_rb,1.3649e+00_rb,1.1537e+00_rb,8.4763e-01_rb,2.0092e-01_rb/)
+      kbo(:, 1,16, 6) = (/ &
+     &2.5139e-01_rb,3.4640e-01_rb,3.6560e-01_rb,3.2723e-01_rb,1.5796e-01_rb/)
+      kbo(:, 2,16, 6) = (/ &
+     &3.8033e-01_rb,4.5844e-01_rb,4.5962e-01_rb,3.9345e-01_rb,1.6322e-01_rb/)
+      kbo(:, 3,16, 6) = (/ &
+     &5.5135e-01_rb,5.9731e-01_rb,5.7234e-01_rb,4.6896e-01_rb,1.6890e-01_rb/)
+      kbo(:, 4,16, 6) = (/ &
+     &7.7178e-01_rb,7.6699e-01_rb,7.0504e-01_rb,5.5557e-01_rb,1.7446e-01_rb/)
+      kbo(:, 5,16, 6) = (/ &
+     &1.0505e+00_rb,9.7332e-01_rb,8.6035e-01_rb,6.5296e-01_rb,1.7998e-01_rb/)
+      kbo(:, 1,17, 6) = (/ &
+     &1.7391e-01_rb,2.6830e-01_rb,2.8935e-01_rb,2.6535e-01_rb,1.3871e-01_rb/)
+      kbo(:, 2,17, 6) = (/ &
+     &2.6196e-01_rb,3.5091e-01_rb,3.6089e-01_rb,3.1647e-01_rb,1.4388e-01_rb/)
+      kbo(:, 3,17, 6) = (/ &
+     &3.7888e-01_rb,4.5188e-01_rb,4.4522e-01_rb,3.7420e-01_rb,1.4950e-01_rb/)
+      kbo(:, 4,17, 6) = (/ &
+     &5.3041e-01_rb,5.7470e-01_rb,5.4379e-01_rb,4.3949e-01_rb,1.5497e-01_rb/)
+      kbo(:, 5,17, 6) = (/ &
+     &7.2254e-01_rb,7.2344e-01_rb,6.5849e-01_rb,5.1285e-01_rb,1.6018e-01_rb/)
+      kbo(:, 1,18, 6) = (/ &
+     &1.2310e-01_rb,2.1053e-01_rb,2.3152e-01_rb,2.1713e-01_rb,1.2112e-01_rb/)
+      kbo(:, 2,18, 6) = (/ &
+     &1.8497e-01_rb,2.7232e-01_rb,2.8648e-01_rb,2.5684e-01_rb,1.2635e-01_rb/)
+      kbo(:, 3,18, 6) = (/ &
+     &2.6727e-01_rb,3.4798e-01_rb,3.5045e-01_rb,3.0154e-01_rb,1.3167e-01_rb/)
+      kbo(:, 4,18, 6) = (/ &
+     &3.7442e-01_rb,4.3958e-01_rb,4.2522e-01_rb,3.5185e-01_rb,1.3670e-01_rb/)
+      kbo(:, 5,18, 6) = (/ &
+     &5.0994e-01_rb,5.4989e-01_rb,5.1174e-01_rb,4.0832e-01_rb,1.4125e-01_rb/)
+      kbo(:, 1,19, 6) = (/ &
+     &8.5532e-02_rb,1.6314e-01_rb,1.8367e-01_rb,1.7636e-01_rb,1.0532e-01_rb/)
+      kbo(:, 2,19, 6) = (/ &
+     &1.2828e-01_rb,2.0893e-01_rb,2.2484e-01_rb,2.0705e-01_rb,1.1032e-01_rb/)
+      kbo(:, 3,19, 6) = (/ &
+     &1.8543e-01_rb,2.6474e-01_rb,2.7268e-01_rb,2.4148e-01_rb,1.1512e-01_rb/)
+      kbo(:, 4,19, 6) = (/ &
+     &2.5984e-01_rb,3.3238e-01_rb,3.2852e-01_rb,2.8001e-01_rb,1.1952e-01_rb/)
+      kbo(:, 5,19, 6) = (/ &
+     &3.5320e-01_rb,4.1295e-01_rb,3.9317e-01_rb,3.2333e-01_rb,1.2366e-01_rb/)
+      kbo(:, 1,20, 6) = (/ &
+     &6.4796e-02_rb,1.3254e-01_rb,1.5120e-01_rb,1.4730e-01_rb,9.1341e-02_rb/)
+      kbo(:, 2,20, 6) = (/ &
+     &9.6990e-02_rb,1.6885e-01_rb,1.8400e-01_rb,1.7239e-01_rb,9.5796e-02_rb/)
+      kbo(:, 3,20, 6) = (/ &
+     &1.4017e-01_rb,2.1315e-01_rb,2.2212e-01_rb,2.0058e-01_rb,9.9929e-02_rb/)
+      kbo(:, 4,20, 6) = (/ &
+     &1.9600e-01_rb,2.6649e-01_rb,2.6658e-01_rb,2.3206e-01_rb,1.0386e-01_rb/)
+      kbo(:, 5,20, 6) = (/ &
+     &2.6559e-01_rb,3.2963e-01_rb,3.1802e-01_rb,2.6726e-01_rb,1.0762e-01_rb/)
+      kbo(:, 1,21, 6) = (/ &
+     &5.0649e-02_rb,1.0928e-01_rb,1.2583e-01_rb,1.2405e-01_rb,7.8779e-02_rb/)
+      kbo(:, 2,21, 6) = (/ &
+     &7.5738e-02_rb,1.3875e-01_rb,1.5264e-01_rb,1.4489e-01_rb,8.2609e-02_rb/)
+      kbo(:, 3,21, 6) = (/ &
+     &1.0925e-01_rb,1.7464e-01_rb,1.8399e-01_rb,1.6832e-01_rb,8.6258e-02_rb/)
+      kbo(:, 4,21, 6) = (/ &
+     &1.5216e-01_rb,2.1765e-01_rb,2.2035e-01_rb,1.9451e-01_rb,8.9821e-02_rb/)
+      kbo(:, 5,21, 6) = (/ &
+     &2.0550e-01_rb,2.6822e-01_rb,2.6230e-01_rb,2.2354e-01_rb,9.3160e-02_rb/)
+      kbo(:, 1,22, 6) = (/ &
+     &4.1767e-02_rb,9.2608e-02_rb,1.0699e-01_rb,1.0611e-01_rb,6.7766e-02_rb/)
+      kbo(:, 2,22, 6) = (/ &
+     &6.2192e-02_rb,1.1726e-01_rb,1.2959e-01_rb,1.2363e-01_rb,7.1096e-02_rb/)
+      kbo(:, 3,22, 6) = (/ &
+     &8.9136e-02_rb,1.4711e-01_rb,1.5605e-01_rb,1.4343e-01_rb,7.4363e-02_rb/)
+      kbo(:, 4,22, 6) = (/ &
+     &1.2346e-01_rb,1.8283e-01_rb,1.8672e-01_rb,1.6558e-01_rb,7.7494e-02_rb/)
+      kbo(:, 5,22, 6) = (/ &
+     &1.6595e-01_rb,2.2428e-01_rb,2.2184e-01_rb,1.9008e-01_rb,8.0478e-02_rb/)
+      kbo(:, 1,23, 6) = (/ &
+     &3.4739e-02_rb,7.8664e-02_rb,9.1136e-02_rb,9.0610e-02_rb,5.8065e-02_rb/)
+      kbo(:, 2,23, 6) = (/ &
+     &5.1379e-02_rb,9.9376e-02_rb,1.1032e-01_rb,1.0537e-01_rb,6.0980e-02_rb/)
+      kbo(:, 3,23, 6) = (/ &
+     &7.3154e-02_rb,1.2441e-01_rb,1.3261e-01_rb,1.2218e-01_rb,6.3866e-02_rb/)
+      kbo(:, 4,23, 6) = (/ &
+     &1.0075e-01_rb,1.5392e-01_rb,1.5845e-01_rb,1.4087e-01_rb,6.6610e-02_rb/)
+      kbo(:, 5,23, 6) = (/ &
+     &1.3481e-01_rb,1.8817e-01_rb,1.8784e-01_rb,1.6172e-01_rb,6.9269e-02_rb/)
+      kbo(:, 1,24, 6) = (/ &
+     &2.8818e-02_rb,6.6682e-02_rb,7.7471e-02_rb,7.7057e-02_rb,4.9574e-02_rb/)
+      kbo(:, 2,24, 6) = (/ &
+     &4.2313e-02_rb,8.4062e-02_rb,9.3582e-02_rb,8.9537e-02_rb,5.2146e-02_rb/)
+      kbo(:, 3,24, 6) = (/ &
+     &5.9843e-02_rb,1.0485e-01_rb,1.1232e-01_rb,1.0372e-01_rb,5.4645e-02_rb/)
+      kbo(:, 4,24, 6) = (/ &
+     &8.1952e-02_rb,1.2924e-01_rb,1.3388e-01_rb,1.1954e-01_rb,5.7051e-02_rb/)
+      kbo(:, 5,24, 6) = (/ &
+     &1.0925e-01_rb,1.5756e-01_rb,1.5837e-01_rb,1.3710e-01_rb,5.9328e-02_rb/)
+      kbo(:, 1,25, 6) = (/ &
+     &2.4289e-02_rb,5.7018e-02_rb,6.6182e-02_rb,6.5743e-02_rb,4.2224e-02_rb/)
+      kbo(:, 2,25, 6) = (/ &
+     &3.5371e-02_rb,7.1685e-02_rb,7.9860e-02_rb,7.6400e-02_rb,4.4451e-02_rb/)
+      kbo(:, 3,25, 6) = (/ &
+     &4.9695e-02_rb,8.9091e-02_rb,9.5704e-02_rb,8.8452e-02_rb,4.6603e-02_rb/)
+      kbo(:, 4,25, 6) = (/ &
+     &6.7687e-02_rb,1.0953e-01_rb,1.1385e-01_rb,1.0188e-01_rb,4.8655e-02_rb/)
+      kbo(:, 5,25, 6) = (/ &
+     &9.0080e-02_rb,1.3324e-01_rb,1.3448e-01_rb,1.1679e-01_rb,5.0366e-02_rb/)
+      kbo(:, 1,26, 6) = (/ &
+     &2.0940e-02_rb,4.9340e-02_rb,5.7029e-02_rb,5.6467e-02_rb,3.5910e-02_rb/)
+      kbo(:, 2,26, 6) = (/ &
+     &3.0229e-02_rb,6.1848e-02_rb,6.8786e-02_rb,6.5644e-02_rb,3.7816e-02_rb/)
+      kbo(:, 3,26, 6) = (/ &
+     &4.2173e-02_rb,7.6666e-02_rb,8.2327e-02_rb,7.6015e-02_rb,3.9629e-02_rb/)
+      kbo(:, 4,26, 6) = (/ &
+     &5.7238e-02_rb,9.4072e-02_rb,9.7854e-02_rb,8.7548e-02_rb,4.1173e-02_rb/)
+      kbo(:, 5,26, 6) = (/ &
+     &7.6058e-02_rb,1.1436e-01_rb,1.1545e-01_rb,1.0034e-01_rb,4.2300e-02_rb/)
+      kbo(:, 1,27, 6) = (/ &
+     &1.8730e-02_rb,4.3572e-02_rb,4.9937e-02_rb,4.9064e-02_rb,3.0474e-02_rb/)
+      kbo(:, 2,27, 6) = (/ &
+     &2.6831e-02_rb,5.4541e-02_rb,6.0259e-02_rb,5.7134e-02_rb,3.2064e-02_rb/)
+      kbo(:, 3,27, 6) = (/ &
+     &3.7216e-02_rb,6.7578e-02_rb,7.2151e-02_rb,6.6197e-02_rb,3.3458e-02_rb/)
+      kbo(:, 4,27, 6) = (/ &
+     &5.0417e-02_rb,8.2889e-02_rb,8.5762e-02_rb,7.6299e-02_rb,3.4507e-02_rb/)
+      kbo(:, 5,27, 6) = (/ &
+     &6.6884e-02_rb,1.0088e-01_rb,1.0129e-01_rb,8.7542e-02_rb,3.5247e-02_rb/)
+      kbo(:, 1,28, 6) = (/ &
+     &1.7190e-02_rb,3.9051e-02_rb,4.4263e-02_rb,4.3005e-02_rb,2.5796e-02_rb/)
+      kbo(:, 2,28, 6) = (/ &
+     &2.4452e-02_rb,4.8897e-02_rb,5.3477e-02_rb,5.0169e-02_rb,2.7044e-02_rb/)
+      kbo(:, 3,28, 6) = (/ &
+     &3.3807e-02_rb,6.0596e-02_rb,6.4111e-02_rb,5.8195e-02_rb,2.8015e-02_rb/)
+      kbo(:, 4,28, 6) = (/ &
+     &4.5722e-02_rb,7.4408e-02_rb,7.6314e-02_rb,6.7197e-02_rb,2.8722e-02_rb/)
+      kbo(:, 5,28, 6) = (/ &
+     &6.0503e-02_rb,9.0881e-02_rb,9.0351e-02_rb,7.7127e-02_rb,2.9243e-02_rb/)
+      kbo(:, 1,29, 6) = (/ &
+     &1.6778e-02_rb,3.6309e-02_rb,4.0421e-02_rb,3.8540e-02_rb,2.1757e-02_rb/)
+      kbo(:, 2,29, 6) = (/ &
+     &2.3732e-02_rb,4.5567e-02_rb,4.8987e-02_rb,4.5076e-02_rb,2.2654e-02_rb/)
+      kbo(:, 3,29, 6) = (/ &
+     &3.2754e-02_rb,5.6621e-02_rb,5.8900e-02_rb,5.2465e-02_rb,2.3325e-02_rb/)
+      kbo(:, 4,29, 6) = (/ &
+     &4.4197e-02_rb,6.9861e-02_rb,7.0379e-02_rb,6.0698e-02_rb,2.3826e-02_rb/)
+      kbo(:, 5,29, 6) = (/ &
+     &5.8243e-02_rb,8.5699e-02_rb,8.3806e-02_rb,6.9875e-02_rb,2.4188e-02_rb/)
+      kbo(:, 1,30, 6) = (/ &
+     &1.6788e-02_rb,3.4359e-02_rb,3.7447e-02_rb,3.4898e-02_rb,1.8241e-02_rb/)
+      kbo(:, 2,30, 6) = (/ &
+     &2.3674e-02_rb,4.3260e-02_rb,4.5554e-02_rb,4.0970e-02_rb,1.8874e-02_rb/)
+      kbo(:, 3,30, 6) = (/ &
+     &3.2611e-02_rb,5.3991e-02_rb,5.4995e-02_rb,4.7819e-02_rb,1.9352e-02_rb/)
+      kbo(:, 4,30, 6) = (/ &
+     &4.3823e-02_rb,6.7000e-02_rb,6.6123e-02_rb,5.5495e-02_rb,1.9717e-02_rb/)
+      kbo(:, 5,30, 6) = (/ &
+     &5.7496e-02_rb,8.2562e-02_rb,7.9216e-02_rb,6.4205e-02_rb,1.9974e-02_rb/)
+      kbo(:, 1,31, 6) = (/ &
+     &1.7729e-02_rb,3.3726e-02_rb,3.5756e-02_rb,3.2351e-02_rb,1.5217e-02_rb/)
+      kbo(:, 2,31, 6) = (/ &
+     &2.4948e-02_rb,4.2686e-02_rb,4.3734e-02_rb,3.8162e-02_rb,1.5670e-02_rb/)
+      kbo(:, 3,31, 6) = (/ &
+     &3.4225e-02_rb,5.3676e-02_rb,5.3194e-02_rb,4.4735e-02_rb,1.6031e-02_rb/)
+      kbo(:, 4,31, 6) = (/ &
+     &4.5784e-02_rb,6.7038e-02_rb,6.4468e-02_rb,5.2256e-02_rb,1.6295e-02_rb/)
+      kbo(:, 5,31, 6) = (/ &
+     &5.9817e-02_rb,8.2952e-02_rb,7.7737e-02_rb,6.0918e-02_rb,1.6485e-02_rb/)
+      kbo(:, 1,32, 6) = (/ &
+     &1.9003e-02_rb,3.3583e-02_rb,3.4583e-02_rb,3.0306e-02_rb,1.2654e-02_rb/)
+      kbo(:, 2,32, 6) = (/ &
+     &2.6663e-02_rb,4.2837e-02_rb,4.2596e-02_rb,3.5915e-02_rb,1.2998e-02_rb/)
+      kbo(:, 3,32, 6) = (/ &
+     &3.6385e-02_rb,5.4256e-02_rb,5.2269e-02_rb,4.2382e-02_rb,1.3260e-02_rb/)
+      kbo(:, 4,32, 6) = (/ &
+     &4.8425e-02_rb,6.8084e-02_rb,6.3837e-02_rb,4.9934e-02_rb,1.3455e-02_rb/)
+      kbo(:, 5,32, 6) = (/ &
+     &6.3023e-02_rb,8.4608e-02_rb,7.7399e-02_rb,5.8694e-02_rb,1.3589e-02_rb/)
+      kbo(:, 1,33, 6) = (/ &
+     &2.0794e-02_rb,3.4164e-02_rb,3.4049e-02_rb,2.8789e-02_rb,1.0506e-02_rb/)
+      kbo(:, 2,33, 6) = (/ &
+     &2.9020e-02_rb,4.3934e-02_rb,4.2358e-02_rb,3.4361e-02_rb,1.0761e-02_rb/)
+      kbo(:, 3,33, 6) = (/ &
+     &3.9409e-02_rb,5.5981e-02_rb,5.2449e-02_rb,4.0931e-02_rb,1.0954e-02_rb/)
+      kbo(:, 4,33, 6) = (/ &
+     &5.2184e-02_rb,7.0595e-02_rb,6.4456e-02_rb,4.8674e-02_rb,1.1100e-02_rb/)
+      kbo(:, 5,33, 6) = (/ &
+     &6.7723e-02_rb,8.8066e-02_rb,7.8614e-02_rb,5.7672e-02_rb,1.1201e-02_rb/)
+      kbo(:, 1,34, 6) = (/ &
+     &2.1935e-02_rb,3.4165e-02_rb,3.3105e-02_rb,2.7057e-02_rb,8.7014e-03_rb/)
+      kbo(:, 2,34, 6) = (/ &
+     &3.0477e-02_rb,4.4226e-02_rb,4.1562e-02_rb,3.2560e-02_rb,8.8925e-03_rb/)
+      kbo(:, 3,34, 6) = (/ &
+     &4.1199e-02_rb,5.6620e-02_rb,5.1809e-02_rb,3.9153e-02_rb,9.0424e-03_rb/)
+      kbo(:, 4,34, 6) = (/ &
+     &5.4372e-02_rb,7.1709e-02_rb,6.4039e-02_rb,4.6915e-02_rb,9.1557e-03_rb/)
+      kbo(:, 5,34, 6) = (/ &
+     &7.0476e-02_rb,8.9710e-02_rb,7.8542e-02_rb,5.5979e-02_rb,9.2318e-03_rb/)
+      kbo(:, 1,35, 6) = (/ &
+     &2.2432e-02_rb,3.3575e-02_rb,3.1770e-02_rb,2.5159e-02_rb,7.1825e-03_rb/)
+      kbo(:, 2,35, 6) = (/ &
+     &3.1101e-02_rb,4.3743e-02_rb,4.0231e-02_rb,3.0588e-02_rb,7.3372e-03_rb/)
+      kbo(:, 3,35, 6) = (/ &
+     &4.1959e-02_rb,5.6323e-02_rb,5.0491e-02_rb,3.7114e-02_rb,7.4571e-03_rb/)
+      kbo(:, 4,35, 6) = (/ &
+     &5.5361e-02_rb,7.1664e-02_rb,6.2827e-02_rb,4.4829e-02_rb,7.5457e-03_rb/)
+      kbo(:, 5,35, 6) = (/ &
+     &7.1841e-02_rb,8.9995e-02_rb,7.7538e-02_rb,5.3898e-02_rb,7.6098e-03_rb/)
+      kbo(:, 1,36, 6) = (/ &
+     &2.1971e-02_rb,3.2052e-02_rb,2.9773e-02_rb,2.2980e-02_rb,5.9169e-03_rb/)
+      kbo(:, 2,36, 6) = (/ &
+     &3.0496e-02_rb,4.2068e-02_rb,3.8012e-02_rb,2.8228e-02_rb,6.0417e-03_rb/)
+      kbo(:, 3,36, 6) = (/ &
+     &4.1195e-02_rb,5.4532e-02_rb,4.8068e-02_rb,3.4542e-02_rb,6.1403e-03_rb/)
+      kbo(:, 4,36, 6) = (/ &
+     &5.4471e-02_rb,6.9759e-02_rb,6.0254e-02_rb,4.2072e-02_rb,6.2148e-03_rb/)
+      kbo(:, 5,36, 6) = (/ &
+     &7.0911e-02_rb,8.8088e-02_rb,7.4912e-02_rb,5.0992e-02_rb,6.2662e-03_rb/)
+      kbo(:, 1,37, 6) = (/ &
+     &1.9922e-02_rb,2.8852e-02_rb,2.6493e-02_rb,2.0135e-02_rb,4.8546e-03_rb/)
+      kbo(:, 2,37, 6) = (/ &
+     &2.7802e-02_rb,3.8202e-02_rb,3.4133e-02_rb,2.4969e-02_rb,4.9597e-03_rb/)
+      kbo(:, 3,37, 6) = (/ &
+     &3.7750e-02_rb,4.9930e-02_rb,4.3532e-02_rb,3.0816e-02_rb,5.0441e-03_rb/)
+      kbo(:, 4,37, 6) = (/ &
+     &5.0184e-02_rb,6.4346e-02_rb,5.5012e-02_rb,3.7855e-02_rb,5.1082e-03_rb/)
+      kbo(:, 5,37, 6) = (/ &
+     &6.5650e-02_rb,8.1819e-02_rb,6.8970e-02_rb,4.6262e-02_rb,5.1546e-03_rb/)
+      kbo(:, 1,38, 6) = (/ &
+     &1.8261e-02_rb,2.6220e-02_rb,2.3783e-02_rb,1.7789e-02_rb,3.9817e-03_rb/)
+      kbo(:, 2,38, 6) = (/ &
+     &2.5634e-02_rb,3.5047e-02_rb,3.0941e-02_rb,2.2280e-02_rb,4.0729e-03_rb/)
+      kbo(:, 3,38, 6) = (/ &
+     &3.5007e-02_rb,4.6188e-02_rb,3.9826e-02_rb,2.7761e-02_rb,4.1447e-03_rb/)
+      kbo(:, 4,38, 6) = (/ &
+     &4.6818e-02_rb,5.9985e-02_rb,5.0782e-02_rb,3.4412e-02_rb,4.1996e-03_rb/)
+      kbo(:, 5,38, 6) = (/ &
+     &6.1549e-02_rb,7.6851e-02_rb,6.4240e-02_rb,4.2442e-02_rb,4.2409e-03_rb/)
+      kbo(:, 1,39, 6) = (/ &
+     &1.7120e-02_rb,2.4268e-02_rb,2.1723e-02_rb,1.5967e-02_rb,3.2683e-03_rb/)
+      kbo(:, 2,39, 6) = (/ &
+     &2.4172e-02_rb,3.2753e-02_rb,2.8567e-02_rb,2.0215e-02_rb,3.3454e-03_rb/)
+      kbo(:, 3,39, 6) = (/ &
+     &3.3206e-02_rb,4.3552e-02_rb,3.7135e-02_rb,2.5455e-02_rb,3.4062e-03_rb/)
+      kbo(:, 4,39, 6) = (/ &
+     &4.4652e-02_rb,5.7021e-02_rb,4.7802e-02_rb,3.1863e-02_rb,3.4542e-03_rb/)
+      kbo(:, 5,39, 6) = (/ &
+     &5.8989e-02_rb,7.3628e-02_rb,6.1045e-02_rb,3.9701e-02_rb,3.4927e-03_rb/)
+      kbo(:, 1,40, 6) = (/ &
+     &1.4508e-02_rb,2.0729e-02_rb,1.8466e-02_rb,1.3481e-02_rb,2.6735e-03_rb/)
+      kbo(:, 2,40, 6) = (/ &
+     &2.0675e-02_rb,2.8264e-02_rb,2.4526e-02_rb,1.7230e-02_rb,2.7394e-03_rb/)
+      kbo(:, 3,40, 6) = (/ &
+     &2.8640e-02_rb,3.7952e-02_rb,3.2186e-02_rb,2.1896e-02_rb,2.7930e-03_rb/)
+      kbo(:, 4,40, 6) = (/ &
+     &3.8810e-02_rb,5.0166e-02_rb,4.1826e-02_rb,2.7660e-02_rb,2.8356e-03_rb/)
+      kbo(:, 5,40, 6) = (/ &
+     &5.1624e-02_rb,6.5327e-02_rb,5.3925e-02_rb,3.4781e-02_rb,2.8708e-03_rb/)
+      kbo(:, 1,41, 6) = (/ &
+     &1.2173e-02_rb,1.7558e-02_rb,1.5577e-02_rb,1.1317e-02_rb,2.1860e-03_rb/)
+      kbo(:, 2,41, 6) = (/ &
+     &1.7521e-02_rb,2.4204e-02_rb,2.0905e-02_rb,1.4606e-02_rb,2.2431e-03_rb/)
+      kbo(:, 3,41, 6) = (/ &
+     &2.4494e-02_rb,3.2840e-02_rb,2.7710e-02_rb,1.8738e-02_rb,2.2897e-03_rb/)
+      kbo(:, 4,41, 6) = (/ &
+     &3.3465e-02_rb,4.3838e-02_rb,3.6359e-02_rb,2.3890e-02_rb,2.3273e-03_rb/)
+      kbo(:, 5,41, 6) = (/ &
+     &4.4815e-02_rb,5.7614e-02_rb,4.7337e-02_rb,3.0319e-02_rb,2.3593e-03_rb/)
+      kbo(:, 1,42, 6) = (/ &
+     &1.0295e-02_rb,1.4955e-02_rb,1.3204e-02_rb,9.5463e-03_rb,1.7869e-03_rb/)
+      kbo(:, 2,42, 6) = (/ &
+     &1.4969e-02_rb,2.0854e-02_rb,1.7923e-02_rb,1.2449e-02_rb,1.8368e-03_rb/)
+      kbo(:, 3,42, 6) = (/ &
+     &2.1120e-02_rb,2.8597e-02_rb,2.4004e-02_rb,1.6130e-02_rb,1.8766e-03_rb/)
+      kbo(:, 4,42, 6) = (/ &
+     &2.9097e-02_rb,3.8565e-02_rb,3.1822e-02_rb,2.0764e-02_rb,1.9105e-03_rb/)
+      kbo(:, 5,42, 6) = (/ &
+     &3.9250e-02_rb,5.1179e-02_rb,4.1851e-02_rb,2.6620e-02_rb,1.9390e-03_rb/)
+      kbo(:, 1,43, 6) = (/ &
+     &8.5600e-03_rb,1.2537e-02_rb,1.1032e-02_rb,7.9541e-03_rb,1.4581e-03_rb/)
+      kbo(:, 2,43, 6) = (/ &
+     &1.2604e-02_rb,1.7710e-02_rb,1.5163e-02_rb,1.0490e-02_rb,1.5008e-03_rb/)
+      kbo(:, 3,43, 6) = (/ &
+     &1.7986e-02_rb,2.4578e-02_rb,2.0552e-02_rb,1.3738e-02_rb,1.5357e-03_rb/)
+      kbo(:, 4,43, 6) = (/ &
+     &2.5016e-02_rb,3.3532e-02_rb,2.7550e-02_rb,1.7878e-02_rb,1.5671e-03_rb/)
+      kbo(:, 5,43, 6) = (/ &
+     &3.4031e-02_rb,4.4978e-02_rb,3.6624e-02_rb,2.3164e-02_rb,1.5928e-03_rb/)
+      kbo(:, 1,44, 6) = (/ &
+     &7.1102e-03_rb,1.0482e-02_rb,9.1923e-03_rb,6.6123e-03_rb,1.1883e-03_rb/)
+      kbo(:, 2,44, 6) = (/ &
+     &1.0618e-02_rb,1.5014e-02_rb,1.2809e-02_rb,8.8284e-03_rb,1.2254e-03_rb/)
+      kbo(:, 3,44, 6) = (/ &
+     &1.5336e-02_rb,2.1109e-02_rb,1.7587e-02_rb,1.1700e-02_rb,1.2566e-03_rb/)
+      kbo(:, 4,44, 6) = (/ &
+     &2.1558e-02_rb,2.9159e-02_rb,2.3862e-02_rb,1.5404e-02_rb,1.2849e-03_rb/)
+      kbo(:, 5,44, 6) = (/ &
+     &2.9601e-02_rb,3.9572e-02_rb,3.2092e-02_rb,2.0188e-02_rb,1.3081e-03_rb/)
+      kbo(:, 1,45, 6) = (/ &
+     &5.9959e-03_rb,8.8564e-03_rb,7.7363e-03_rb,5.5453e-03_rb,9.6825e-04_rb/)
+      kbo(:, 2,45, 6) = (/ &
+     &9.0798e-03_rb,1.2878e-02_rb,1.0936e-02_rb,7.5039e-03_rb,1.0003e-03_rb/)
+      kbo(:, 3,45, 6) = (/ &
+     &1.3290e-02_rb,1.8346e-02_rb,1.5227e-02_rb,1.0074e-02_rb,1.0284e-03_rb/)
+      kbo(:, 4,45, 6) = (/ &
+     &1.8884e-02_rb,2.5678e-02_rb,2.0927e-02_rb,1.3427e-02_rb,1.0535e-03_rb/)
+      kbo(:, 5,45, 6) = (/ &
+     &2.6185e-02_rb,3.5270e-02_rb,2.8485e-02_rb,1.7812e-02_rb,1.0746e-03_rb/)
+      kbo(:, 1,46, 6) = (/ &
+     &5.0299e-03_rb,7.4350e-03_rb,6.4749e-03_rb,4.6277e-03_rb,7.8776e-04_rb/)
+      kbo(:, 2,46, 6) = (/ &
+     &7.7400e-03_rb,1.0992e-02_rb,9.2918e-03_rb,6.3536e-03_rb,8.1609e-04_rb/)
+      kbo(:, 3,46, 6) = (/ &
+     &1.1482e-02_rb,1.5887e-02_rb,1.3136e-02_rb,8.6493e-03_rb,8.4114e-04_rb/)
+      kbo(:, 4,46, 6) = (/ &
+     &1.6521e-02_rb,2.2547e-02_rb,1.8306e-02_rb,1.1680e-02_rb,8.6343e-04_rb/)
+      kbo(:, 5,46, 6) = (/ &
+     &2.3160e-02_rb,3.1365e-02_rb,2.5232e-02_rb,1.5694e-02_rb,8.8222e-04_rb/)
+      kbo(:, 1,47, 6) = (/ &
+     &4.0735e-03_rb,6.0481e-03_rb,5.2664e-03_rb,3.7670e-03_rb,6.3966e-04_rb/)
+      kbo(:, 2,47, 6) = (/ &
+     &6.3819e-03_rb,9.1048e-03_rb,7.6804e-03_rb,5.2485e-03_rb,6.6459e-04_rb/)
+      kbo(:, 3,47, 6) = (/ &
+     &9.6180e-03_rb,1.3376e-02_rb,1.1030e-02_rb,7.2481e-03_rb,6.8646e-04_rb/)
+      kbo(:, 4,47, 6) = (/ &
+     &1.4038e-02_rb,1.9266e-02_rb,1.5600e-02_rb,9.9209e-03_rb,7.0632e-04_rb/)
+      kbo(:, 5,47, 6) = (/ &
+     &1.9923e-02_rb,2.7168e-02_rb,2.1786e-02_rb,1.3500e-02_rb,7.2294e-04_rb/)
+      kbo(:, 1,48, 6) = (/ &
+     &3.3654e-03_rb,4.9911e-03_rb,4.3393e-03_rb,3.1001e-03_rb,5.1894e-04_rb/)
+      kbo(:, 2,48, 6) = (/ &
+     &5.3738e-03_rb,7.6583e-03_rb,6.4413e-03_rb,4.3896e-03_rb,5.4055e-04_rb/)
+      kbo(:, 3,48, 6) = (/ &
+     &8.2348e-03_rb,1.1452e-02_rb,9.4090e-03_rb,6.1594e-03_rb,5.5982e-04_rb/)
+      kbo(:, 4,48, 6) = (/ &
+     &1.2194e-02_rb,1.6751e-02_rb,1.3518e-02_rb,8.5585e-03_rb,5.7759e-04_rb/)
+      kbo(:, 5,48, 6) = (/ &
+     &1.7535e-02_rb,2.3969e-02_rb,1.9153e-02_rb,1.1809e-02_rb,5.9223e-04_rb/)
+      kbo(:, 1,49, 6) = (/ &
+     &2.8714e-03_rb,4.2192e-03_rb,3.6533e-03_rb,2.6003e-03_rb,4.2066e-04_rb/)
+      kbo(:, 2,49, 6) = (/ &
+     &4.6796e-03_rb,6.6096e-03_rb,5.5332e-03_rb,3.7482e-03_rb,4.3948e-04_rb/)
+      kbo(:, 3,49, 6) = (/ &
+     &7.3002e-03_rb,1.0080e-02_rb,8.2347e-03_rb,5.3596e-03_rb,4.5652e-04_rb/)
+      kbo(:, 4,49, 6) = (/ &
+     &1.0971e-02_rb,1.4981e-02_rb,1.2046e-02_rb,7.5739e-03_rb,4.7234e-04_rb/)
+      kbo(:, 5,49, 6) = (/ &
+     &1.5995e-02_rb,2.1767e-02_rb,1.7330e-02_rb,1.0614e-02_rb,4.8568e-04_rb/)
+      kbo(:, 1,50, 6) = (/ &
+     &2.3434e-03_rb,3.4410e-03_rb,2.9786e-03_rb,2.1205e-03_rb,3.4069e-04_rb/)
+      kbo(:, 2,50, 6) = (/ &
+     &3.8971e-03_rb,5.4992e-03_rb,4.5940e-03_rb,3.1036e-03_rb,3.5714e-04_rb/)
+      kbo(:, 3,50, 6) = (/ &
+     &6.1900e-03_rb,8.5460e-03_rb,6.9553e-03_rb,4.5152e-03_rb,3.7212e-04_rb/)
+      kbo(:, 4,50, 6) = (/ &
+     &9.4451e-03_rb,1.2909e-02_rb,1.0349e-02_rb,6.4854e-03_rb,3.8582e-04_rb/)
+      kbo(:, 5,50, 6) = (/ &
+     &1.3954e-02_rb,1.9042e-02_rb,1.5119e-02_rb,9.2171e-03_rb,3.9788e-04_rb/)
+      kbo(:, 1,51, 6) = (/ &
+     &1.8670e-03_rb,2.7492e-03_rb,2.3841e-03_rb,1.7021e-03_rb,2.7578e-04_rb/)
+      kbo(:, 2,51, 6) = (/ &
+     &3.1678e-03_rb,4.4826e-03_rb,3.7408e-03_rb,2.5267e-03_rb,2.9005e-04_rb/)
+      kbo(:, 3,51, 6) = (/ &
+     &5.1260e-03_rb,7.0985e-03_rb,5.7656e-03_rb,3.7383e-03_rb,3.0300e-04_rb/)
+      kbo(:, 4,51, 6) = (/ &
+     &7.9439e-03_rb,1.0904e-02_rb,8.7196e-03_rb,5.4539e-03_rb,3.1487e-04_rb/)
+      kbo(:, 5,51, 6) = (/ &
+     &1.1900e-02_rb,1.6326e-02_rb,1.2929e-02_rb,7.8597e-03_rb,3.2578e-04_rb/)
+      kbo(:, 1,52, 6) = (/ &
+     &1.5181e-03_rb,2.2298e-03_rb,1.9337e-03_rb,1.3821e-03_rb,2.2294e-04_rb/)
+      kbo(:, 2,52, 6) = (/ &
+     &2.6323e-03_rb,3.7113e-03_rb,3.0904e-03_rb,2.0844e-03_rb,2.3535e-04_rb/)
+      kbo(:, 3,52, 6) = (/ &
+     &4.3389e-03_rb,5.9943e-03_rb,4.8574e-03_rb,3.1382e-03_rb,2.4655e-04_rb/)
+      kbo(:, 4,52, 6) = (/ &
+     &6.8363e-03_rb,9.3770e-03_rb,7.4736e-03_rb,4.6599e-03_rb,2.5711e-04_rb/)
+      kbo(:, 5,52, 6) = (/ &
+     &1.0389e-02_rb,1.4256e-02_rb,1.1263e-02_rb,6.8242e-03_rb,2.6665e-04_rb/)
+      kbo(:, 1,53, 6) = (/ &
+     &1.2752e-03_rb,1.8531e-03_rb,1.6024e-03_rb,1.1428e-03_rb,1.8014e-04_rb/)
+      kbo(:, 2,53, 6) = (/ &
+     &2.2594e-03_rb,3.1508e-03_rb,2.6140e-03_rb,1.7561e-03_rb,1.9085e-04_rb/)
+      kbo(:, 3,53, 6) = (/ &
+     &3.7990e-03_rb,5.2013e-03_rb,4.1982e-03_rb,2.6961e-03_rb,2.0067e-04_rb/)
+      kbo(:, 4,53, 6) = (/ &
+     &6.0922e-03_rb,8.2959e-03_rb,6.5816e-03_rb,4.0835e-03_rb,2.0982e-04_rb/)
+      kbo(:, 5,53, 6) = (/ &
+     &9.3947e-03_rb,1.2809e-02_rb,1.0095e-02_rb,6.0875e-03_rb,2.1819e-04_rb/)
+      kbo(:, 1,54, 6) = (/ &
+     &9.3663e-04_rb,1.3820e-03_rb,1.2040e-03_rb,8.6807e-04_rb,1.4544e-04_rb/)
+      kbo(:, 2,54, 6) = (/ &
+     &1.6914e-03_rb,2.3887e-03_rb,1.9911e-03_rb,1.3482e-03_rb,1.5460e-04_rb/)
+      kbo(:, 3,54, 6) = (/ &
+     &2.8997e-03_rb,4.0201e-03_rb,3.2494e-03_rb,2.0953e-03_rb,1.6297e-04_rb/)
+      kbo(:, 4,54, 6) = (/ &
+     &4.7306e-03_rb,6.5273e-03_rb,5.1758e-03_rb,3.2189e-03_rb,1.7075e-04_rb/)
+      kbo(:, 5,54, 6) = (/ &
+     &7.3984e-03_rb,1.0238e-02_rb,8.0539e-03_rb,4.8622e-03_rb,1.7797e-04_rb/)
+      kbo(:, 1,55, 6) = (/ &
+     &6.2935e-04_rb,9.5969e-04_rb,8.4900e-04_rb,6.2465e-04_rb,1.1738e-04_rb/)
+      kbo(:, 2,55, 6) = (/ &
+     &1.1558e-03_rb,1.6799e-03_rb,1.4161e-03_rb,9.7472e-04_rb,1.2508e-04_rb/)
+      kbo(:, 3,55, 6) = (/ &
+     &2.0209e-03_rb,2.8749e-03_rb,2.3378e-03_rb,1.5244e-03_rb,1.3211e-04_rb/)
+      kbo(:, 4,55, 6) = (/ &
+     &3.3522e-03_rb,4.7482e-03_rb,3.7736e-03_rb,2.3654e-03_rb,1.3870e-04_rb/)
+      kbo(:, 5,55, 6) = (/ &
+     &5.3187e-03_rb,7.5686e-03_rb,5.9480e-03_rb,3.6106e-03_rb,1.4478e-04_rb/)
+      kbo(:, 1,56, 6) = (/ &
+     &4.2101e-04_rb,6.6332e-04_rb,5.9672e-04_rb,4.4860e-04_rb,9.4587e-05_rb/)
+      kbo(:, 2,56, 6) = (/ &
+     &7.8466e-04_rb,1.1752e-03_rb,1.0029e-03_rb,7.0318e-04_rb,1.0112e-04_rb/)
+      kbo(:, 3,56, 6) = (/ &
+     &1.3999e-03_rb,2.0432e-03_rb,1.6739e-03_rb,1.1053e-03_rb,1.0709e-04_rb/)
+      kbo(:, 4,56, 6) = (/ &
+     &2.3635e-03_rb,3.4329e-03_rb,2.7372e-03_rb,1.7318e-03_rb,1.1258e-04_rb/)
+      kbo(:, 5,56, 6) = (/ &
+     &3.8069e-03_rb,5.5637e-03_rb,4.3696e-03_rb,2.6702e-03_rb,1.1773e-04_rb/)
+      kbo(:, 1,57, 6) = (/ &
+     &2.8076e-04_rb,4.5641e-04_rb,4.1815e-04_rb,3.2142e-04_rb,7.6115e-05_rb/)
+      kbo(:, 2,57, 6) = (/ &
+     &5.2895e-04_rb,8.1778e-04_rb,7.0771e-04_rb,5.0616e-04_rb,8.1716e-05_rb/)
+      kbo(:, 3,57, 6) = (/ &
+     &9.6334e-04_rb,1.4422e-03_rb,1.1917e-03_rb,7.9834e-04_rb,8.6757e-05_rb/)
+      kbo(:, 4,57, 6) = (/ &
+     &1.6571e-03_rb,2.4651e-03_rb,1.9746e-03_rb,1.2622e-03_rb,9.1332e-05_rb/)
+      kbo(:, 5,57, 6) = (/ &
+     &2.7119e-03_rb,4.0628e-03_rb,3.1926e-03_rb,1.9661e-03_rb,9.5684e-05_rb/)
+      kbo(:, 1,58, 6) = (/ &
+     &4.9720e-05_rb,1.0269e-04_rb,1.2366e-04_rb,1.3663e-04_rb,6.1273e-05_rb/)
+      kbo(:, 2,58, 6) = (/ &
+     &9.4473e-05_rb,1.8553e-04_rb,2.1007e-04_rb,2.1548e-04_rb,6.5992e-05_rb/)
+      kbo(:, 3,58, 6) = (/ &
+     &1.7530e-04_rb,3.3103e-04_rb,3.5575e-04_rb,3.4010e-04_rb,7.0239e-05_rb/)
+      kbo(:, 4,58, 6) = (/ &
+     &3.0720e-04_rb,5.7469e-04_rb,5.9600e-04_rb,5.4082e-04_rb,7.4141e-05_rb/)
+      kbo(:, 5,58, 6) = (/ &
+     &5.1103e-04_rb,9.6242e-04_rb,9.7487e-04_rb,8.4973e-04_rb,7.7747e-05_rb/)
+      kbo(:, 1,59, 6) = (/ &
+     &4.4314e-05_rb,9.6972e-05_rb,1.1293e-04_rb,1.1582e-04_rb,4.9949e-05_rb/)
+      kbo(:, 2,59, 6) = (/ &
+     &8.4700e-05_rb,1.7358e-04_rb,1.8881e-04_rb,1.7917e-04_rb,5.3859e-05_rb/)
+      kbo(:, 3,59, 6) = (/ &
+     &1.5856e-04_rb,3.0848e-04_rb,3.1562e-04_rb,2.7815e-04_rb,5.7310e-05_rb/)
+      kbo(:, 4,59, 6) = (/ &
+     &2.8032e-04_rb,5.3615e-04_rb,5.2587e-04_rb,4.3688e-04_rb,6.0507e-05_rb/)
+      kbo(:, 5,59, 6) = (/ &
+     &4.7008e-04_rb,9.0261e-04_rb,8.5908e-04_rb,6.8167e-04_rb,6.3447e-05_rb/)
+      kbo(:, 1,13, 7) = (/ &
+     &3.5002e+00_rb,2.8426e+00_rb,2.2229e+00_rb,1.5940e+00_rb,4.6284e-01_rb/)
+      kbo(:, 2,13, 7) = (/ &
+     &5.2764e+00_rb,4.1532e+00_rb,3.0774e+00_rb,2.0245e+00_rb,4.6449e-01_rb/)
+      kbo(:, 3,13, 7) = (/ &
+     &7.6096e+00_rb,5.8846e+00_rb,4.2048e+00_rb,2.5664e+00_rb,4.6564e-01_rb/)
+      kbo(:, 4,13, 7) = (/ &
+     &1.0545e+01_rb,8.0718e+00_rb,5.6353e+00_rb,3.2573e+00_rb,4.6805e-01_rb/)
+      kbo(:, 5,13, 7) = (/ &
+     &1.4101e+01_rb,1.0726e+01_rb,7.3776e+00_rb,4.1071e+00_rb,4.6959e-01_rb/)
+      kbo(:, 1,14, 7) = (/ &
+     &1.9332e+00_rb,1.6833e+00_rb,1.4584e+00_rb,1.1419e+00_rb,4.2549e-01_rb/)
+      kbo(:, 2,14, 7) = (/ &
+     &2.9208e+00_rb,2.4028e+00_rb,1.9264e+00_rb,1.4148e+00_rb,4.2845e-01_rb/)
+      kbo(:, 3,14, 7) = (/ &
+     &4.2111e+00_rb,3.3491e+00_rb,2.5401e+00_rb,1.7447e+00_rb,4.2997e-01_rb/)
+      kbo(:, 4,14, 7) = (/ &
+     &5.8219e+00_rb,4.5369e+00_rb,3.3137e+00_rb,2.1374e+00_rb,4.3233e-01_rb/)
+      kbo(:, 5,14, 7) = (/ &
+     &7.7805e+00_rb,5.9890e+00_rb,4.2588e+00_rb,2.5955e+00_rb,4.3475e-01_rb/)
+      kbo(:, 1,15, 7) = (/ &
+     &1.0958e+00_rb,1.0674e+00_rb,1.0130e+00_rb,8.4961e-01_rb,3.8730e-01_rb/)
+      kbo(:, 2,15, 7) = (/ &
+     &1.6536e+00_rb,1.4690e+00_rb,1.3041e+00_rb,1.0292e+00_rb,3.9101e-01_rb/)
+      kbo(:, 3,15, 7) = (/ &
+     &2.3745e+00_rb,1.9914e+00_rb,1.6603e+00_rb,1.2452e+00_rb,3.9344e-01_rb/)
+      kbo(:, 4,15, 7) = (/ &
+     &3.2750e+00_rb,2.6468e+00_rb,2.0887e+00_rb,1.4951e+00_rb,3.9613e-01_rb/)
+      kbo(:, 5,15, 7) = (/ &
+     &4.3749e+00_rb,3.4526e+00_rb,2.6092e+00_rb,1.7780e+00_rb,3.9900e-01_rb/)
+      kbo(:, 1,16, 7) = (/ &
+     &7.4165e-01_rb,8.0405e-01_rb,7.9283e-01_rb,6.9114e-01_rb,3.4911e-01_rb/)
+      kbo(:, 2,16, 7) = (/ &
+     &1.1136e+00_rb,1.0786e+00_rb,1.0091e+00_rb,8.2862e-01_rb,3.5314e-01_rb/)
+      kbo(:, 3,16, 7) = (/ &
+     &1.5923e+00_rb,1.4242e+00_rb,1.2681e+00_rb,9.9143e-01_rb,3.5636e-01_rb/)
+      kbo(:, 4,16, 7) = (/ &
+     &2.1926e+00_rb,1.8566e+00_rb,1.5712e+00_rb,1.1771e+00_rb,3.6013e-01_rb/)
+      kbo(:, 5,16, 7) = (/ &
+     &2.9285e+00_rb,2.3901e+00_rb,1.9279e+00_rb,1.3859e+00_rb,3.6399e-01_rb/)
+      kbo(:, 1,17, 7) = (/ &
+     &5.1887e-01_rb,6.2476e-01_rb,6.3724e-01_rb,5.7083e-01_rb,3.1167e-01_rb/)
+      kbo(:, 2,17, 7) = (/ &
+     &7.7486e-01_rb,8.2693e-01_rb,8.0143e-01_rb,6.7854e-01_rb,3.1621e-01_rb/)
+      kbo(:, 3,17, 7) = (/ &
+     &1.1045e+00_rb,1.0746e+00_rb,9.9649e-01_rb,8.0449e-01_rb,3.2014e-01_rb/)
+      kbo(:, 4,17, 7) = (/ &
+     &1.5180e+00_rb,1.3742e+00_rb,1.2231e+00_rb,9.4686e-01_rb,3.2461e-01_rb/)
+      kbo(:, 5,17, 7) = (/ &
+     &2.0257e+00_rb,1.7386e+00_rb,1.4858e+00_rb,1.1069e+00_rb,3.2955e-01_rb/)
+      kbo(:, 1,18, 7) = (/ &
+     &3.7097e-01_rb,4.9432e-01_rb,5.1840e-01_rb,4.7504e-01_rb,2.7614e-01_rb/)
+      kbo(:, 2,18, 7) = (/ &
+     &5.5115e-01_rb,6.4712e-01_rb,6.4514e-01_rb,5.6072e-01_rb,2.8084e-01_rb/)
+      kbo(:, 3,18, 7) = (/ &
+     &7.8296e-01_rb,8.3225e-01_rb,7.9447e-01_rb,6.5954e-01_rb,2.8571e-01_rb/)
+      kbo(:, 4,18, 7) = (/ &
+     &1.0738e+00_rb,1.0535e+00_rb,9.6779e-01_rb,7.7088e-01_rb,2.9112e-01_rb/)
+      kbo(:, 5,18, 7) = (/ &
+     &1.4335e+00_rb,1.3170e+00_rb,1.1664e+00_rb,8.9595e-01_rb,2.9703e-01_rb/)
+      kbo(:, 1,19, 7) = (/ &
+     &2.5985e-01_rb,3.8651e-01_rb,4.1602e-01_rb,3.9308e-01_rb,2.4307e-01_rb/)
+      kbo(:, 2,19, 7) = (/ &
+     &3.8422e-01_rb,5.0067e-01_rb,5.1275e-01_rb,4.5968e-01_rb,2.4809e-01_rb/)
+      kbo(:, 3,19, 7) = (/ &
+     &5.4420e-01_rb,6.3764e-01_rb,6.2617e-01_rb,5.3586e-01_rb,2.5358e-01_rb/)
+      kbo(:, 4,19, 7) = (/ &
+     &7.4603e-01_rb,7.9981e-01_rb,7.5671e-01_rb,6.2198e-01_rb,2.5998e-01_rb/)
+      kbo(:, 5,19, 7) = (/ &
+     &9.9708e-01_rb,9.9236e-01_rb,9.0617e-01_rb,7.1829e-01_rb,2.6615e-01_rb/)
+      kbo(:, 1,20, 7) = (/ &
+     &1.9760e-01_rb,3.1836e-01_rb,3.4770e-01_rb,3.3477e-01_rb,2.1277e-01_rb/)
+      kbo(:, 2,20, 7) = (/ &
+     &2.9095e-01_rb,4.0925e-01_rb,4.2592e-01_rb,3.8937e-01_rb,2.1827e-01_rb/)
+      kbo(:, 3,20, 7) = (/ &
+     &4.1127e-01_rb,5.1768e-01_rb,5.1739e-01_rb,4.5140e-01_rb,2.2458e-01_rb/)
+      kbo(:, 4,20, 7) = (/ &
+     &5.6427e-01_rb,6.4625e-01_rb,6.2247e-01_rb,5.2174e-01_rb,2.3101e-01_rb/)
+      kbo(:, 5,20, 7) = (/ &
+     &7.5526e-01_rb,7.9836e-01_rb,7.4304e-01_rb,6.0027e-01_rb,2.3711e-01_rb/)
+      kbo(:, 1,21, 7) = (/ &
+     &1.5484e-01_rb,2.6582e-01_rb,2.9382e-01_rb,2.8708e-01_rb,1.8550e-01_rb/)
+      kbo(:, 2,21, 7) = (/ &
+     &2.2722e-01_rb,3.3963e-01_rb,3.5832e-01_rb,3.3257e-01_rb,1.9141e-01_rb/)
+      kbo(:, 3,21, 7) = (/ &
+     &3.2108e-01_rb,4.2782e-01_rb,4.3333e-01_rb,3.8435e-01_rb,1.9782e-01_rb/)
+      kbo(:, 4,21, 7) = (/ &
+     &4.4098e-01_rb,5.3304e-01_rb,5.1997e-01_rb,4.4275e-01_rb,2.0379e-01_rb/)
+      kbo(:, 5,21, 7) = (/ &
+     &5.9030e-01_rb,6.5709e-01_rb,6.1970e-01_rb,5.0864e-01_rb,2.0956e-01_rb/)
+      kbo(:, 1,22, 7) = (/ &
+     &1.2753e-01_rb,2.2781e-01_rb,2.5360e-01_rb,2.4962e-01_rb,1.6164e-01_rb/)
+      kbo(:, 2,22, 7) = (/ &
+     &1.8637e-01_rb,2.8970e-01_rb,3.0789e-01_rb,2.8854e-01_rb,1.6761e-01_rb/)
+      kbo(:, 3,22, 7) = (/ &
+     &2.6299e-01_rb,3.6404e-01_rb,3.7114e-01_rb,3.3280e-01_rb,1.7333e-01_rb/)
+      kbo(:, 4,22, 7) = (/ &
+     &3.6059e-01_rb,4.5267e-01_rb,4.4472e-01_rb,3.8285e-01_rb,1.7883e-01_rb/)
+      kbo(:, 5,22, 7) = (/ &
+     &4.8104e-01_rb,5.5702e-01_rb,5.2923e-01_rb,4.3976e-01_rb,1.8428e-01_rb/)
+      kbo(:, 1,23, 7) = (/ &
+     &1.0589e-01_rb,1.9529e-01_rb,2.1876e-01_rb,2.1679e-01_rb,1.4037e-01_rb/)
+      kbo(:, 2,23, 7) = (/ &
+     &1.5420e-01_rb,2.4758e-01_rb,2.6461e-01_rb,2.5042e-01_rb,1.4579e-01_rb/)
+      kbo(:, 3,23, 7) = (/ &
+     &2.1702e-01_rb,3.1068e-01_rb,3.1854e-01_rb,2.8852e-01_rb,1.5094e-01_rb/)
+      kbo(:, 4,23, 7) = (/ &
+     &2.9661e-01_rb,3.8564e-01_rb,3.8128e-01_rb,3.3195e-01_rb,1.5614e-01_rb/)
+      kbo(:, 5,23, 7) = (/ &
+     &3.9397e-01_rb,4.7355e-01_rb,4.5341e-01_rb,3.8121e-01_rb,1.6132e-01_rb/)
+      kbo(:, 1,24, 7) = (/ &
+     &8.7788e-02_rb,1.6668e-01_rb,1.8799e-01_rb,1.8780e-01_rb,1.2140e-01_rb/)
+      kbo(:, 2,24, 7) = (/ &
+     &1.2734e-01_rb,2.1083e-01_rb,2.2703e-01_rb,2.1652e-01_rb,1.2618e-01_rb/)
+      kbo(:, 3,24, 7) = (/ &
+     &1.7857e-01_rb,2.6413e-01_rb,2.7303e-01_rb,2.4936e-01_rb,1.3098e-01_rb/)
+      kbo(:, 4,24, 7) = (/ &
+     &2.4296e-01_rb,3.2721e-01_rb,3.2661e-01_rb,2.8698e-01_rb,1.3586e-01_rb/)
+      kbo(:, 5,24, 7) = (/ &
+     &3.2098e-01_rb,4.0055e-01_rb,3.8785e-01_rb,3.2936e-01_rb,1.4075e-01_rb/)
+      kbo(:, 1,25, 7) = (/ &
+     &7.4114e-02_rb,1.4357e-01_rb,1.6268e-01_rb,1.6299e-01_rb,1.0454e-01_rb/)
+      kbo(:, 2,25, 7) = (/ &
+     &1.0696e-01_rb,1.8148e-01_rb,1.9639e-01_rb,1.8781e-01_rb,1.0890e-01_rb/)
+      kbo(:, 3,25, 7) = (/ &
+     &1.4921e-01_rb,2.2686e-01_rb,2.3627e-01_rb,2.1648e-01_rb,1.1337e-01_rb/)
+      kbo(:, 4,25, 7) = (/ &
+     &2.0169e-01_rb,2.8030e-01_rb,2.8233e-01_rb,2.4913e-01_rb,1.1793e-01_rb/)
+      kbo(:, 5,25, 7) = (/ &
+     &2.6511e-01_rb,3.4240e-01_rb,3.3494e-01_rb,2.8598e-01_rb,1.2261e-01_rb/)
+      kbo(:, 1,26, 7) = (/ &
+     &6.4102e-02_rb,1.2562e-01_rb,1.4220e-01_rb,1.4209e-01_rb,8.9836e-02_rb/)
+      kbo(:, 2,26, 7) = (/ &
+     &9.1903e-02_rb,1.5853e-01_rb,1.7179e-01_rb,1.6391e-01_rb,9.3830e-02_rb/)
+      kbo(:, 3,26, 7) = (/ &
+     &1.2732e-01_rb,1.9782e-01_rb,2.0670e-01_rb,1.8917e-01_rb,9.8002e-02_rb/)
+      kbo(:, 4,26, 7) = (/ &
+     &1.7095e-01_rb,2.4388e-01_rb,2.4691e-01_rb,2.1801e-01_rb,1.0234e-01_rb/)
+      kbo(:, 5,26, 7) = (/ &
+     &2.2376e-01_rb,2.9731e-01_rb,2.9277e-01_rb,2.5044e-01_rb,1.0674e-01_rb/)
+      kbo(:, 1,27, 7) = (/ &
+     &5.7622e-02_rb,1.1249e-01_rb,1.2636e-01_rb,1.2511e-01_rb,7.7055e-02_rb/)
+      kbo(:, 2,27, 7) = (/ &
+     &8.1983e-02_rb,1.4196e-01_rb,1.5312e-01_rb,1.4485e-01_rb,8.0791e-02_rb/)
+      kbo(:, 3,27, 7) = (/ &
+     &1.1275e-01_rb,1.7697e-01_rb,1.8437e-01_rb,1.6781e-01_rb,8.4713e-02_rb/)
+      kbo(:, 4,27, 7) = (/ &
+     &1.5055e-01_rb,2.1794e-01_rb,2.2039e-01_rb,1.9390e-01_rb,8.8731e-02_rb/)
+      kbo(:, 5,27, 7) = (/ &
+     &1.9638e-01_rb,2.6555e-01_rb,2.6132e-01_rb,2.2312e-01_rb,9.2655e-02_rb/)
+      kbo(:, 1,28, 7) = (/ &
+     &5.3140e-02_rb,1.0241e-01_rb,1.1379e-01_rb,1.1112e-01_rb,6.6059e-02_rb/)
+      kbo(:, 2,28, 7) = (/ &
+     &7.5045e-02_rb,1.2928e-01_rb,1.3817e-01_rb,1.2935e-01_rb,6.9529e-02_rb/)
+      kbo(:, 3,28, 7) = (/ &
+     &1.0252e-01_rb,1.6119e-01_rb,1.6672e-01_rb,1.5050e-01_rb,7.3142e-02_rb/)
+      kbo(:, 4,28, 7) = (/ &
+     &1.3625e-01_rb,1.9862e-01_rb,1.9953e-01_rb,1.7444e-01_rb,7.6746e-02_rb/)
+      kbo(:, 5,28, 7) = (/ &
+     &1.7752e-01_rb,2.4214e-01_rb,2.3714e-01_rb,2.0133e-01_rb,7.9941e-02_rb/)
+      kbo(:, 1,29, 7) = (/ &
+     &5.2099e-02_rb,9.6941e-02_rb,1.0563e-01_rb,1.0097e-01_rb,5.6668e-02_rb/)
+      kbo(:, 2,29, 7) = (/ &
+     &7.3009e-02_rb,1.2266e-01_rb,1.2890e-01_rb,1.1850e-01_rb,5.9859e-02_rb/)
+      kbo(:, 3,29, 7) = (/ &
+     &9.9110e-02_rb,1.5322e-01_rb,1.5608e-01_rb,1.3860e-01_rb,6.3089e-02_rb/)
+      kbo(:, 4,29, 7) = (/ &
+     &1.3136e-01_rb,1.8918e-01_rb,1.8750e-01_rb,1.6146e-01_rb,6.6000e-02_rb/)
+      kbo(:, 5,29, 7) = (/ &
+     &1.7133e-01_rb,2.3120e-01_rb,2.2375e-01_rb,1.8721e-01_rb,6.8384e-02_rb/)
+      kbo(:, 1,30, 7) = (/ &
+     &5.2298e-02_rb,9.3477e-02_rb,9.9631e-02_rb,9.3041e-02_rb,4.8653e-02_rb/)
+      kbo(:, 2,30, 7) = (/ &
+     &7.2744e-02_rb,1.1854e-01_rb,1.2224e-01_rb,1.0996e-01_rb,5.1507e-02_rb/)
+      kbo(:, 3,30, 7) = (/ &
+     &9.8307e-02_rb,1.4854e-01_rb,1.4866e-01_rb,1.2943e-01_rb,5.4141e-02_rb/)
+      kbo(:, 4,30, 7) = (/ &
+     &1.3030e-01_rb,1.8393e-01_rb,1.7946e-01_rb,1.5167e-01_rb,5.6316e-02_rb/)
+      kbo(:, 5,30, 7) = (/ &
+     &1.7017e-01_rb,2.2583e-01_rb,2.1516e-01_rb,1.7690e-01_rb,5.8003e-02_rb/)
+      kbo(:, 1,31, 7) = (/ &
+     &5.5237e-02_rb,9.3530e-02_rb,9.7080e-02_rb,8.7885e-02_rb,4.1801e-02_rb/)
+      kbo(:, 2,31, 7) = (/ &
+     &7.6342e-02_rb,1.1917e-01_rb,1.1987e-01_rb,1.0485e-01_rb,4.4162e-02_rb/)
+      kbo(:, 3,31, 7) = (/ &
+     &1.0297e-01_rb,1.4987e-01_rb,1.4665e-01_rb,1.2435e-01_rb,4.6139e-02_rb/)
+      kbo(:, 4,31, 7) = (/ &
+     &1.3657e-01_rb,1.8654e-01_rb,1.7810e-01_rb,1.4680e-01_rb,4.7704e-02_rb/)
+      kbo(:, 5,31, 7) = (/ &
+     &1.7842e-01_rb,2.3057e-01_rb,2.1509e-01_rb,1.7253e-01_rb,4.8947e-02_rb/)
+      kbo(:, 1,32, 7) = (/ &
+     &5.9027e-02_rb,9.4969e-02_rb,9.5943e-02_rb,8.4194e-02_rb,3.5812e-02_rb/)
+      kbo(:, 2,32, 7) = (/ &
+     &8.1201e-02_rb,1.2151e-01_rb,1.1922e-01_rb,1.0130e-01_rb,3.7617e-02_rb/)
+      kbo(:, 3,32, 7) = (/ &
+     &1.0955e-01_rb,1.5358e-01_rb,1.4681e-01_rb,1.2117e-01_rb,3.9058e-02_rb/)
+      kbo(:, 4,32, 7) = (/ &
+     &1.4540e-01_rb,1.9256e-01_rb,1.7966e-01_rb,1.4421e-01_rb,4.0236e-02_rb/)
+      kbo(:, 5,32, 7) = (/ &
+     &1.8982e-01_rb,2.3938e-01_rb,2.1889e-01_rb,1.7084e-01_rb,4.1181e-02_rb/)
+      kbo(:, 1,33, 7) = (/ &
+     &6.4219e-02_rb,9.8255e-02_rb,9.6625e-02_rb,8.2099e-02_rb,3.0519e-02_rb/)
+      kbo(:, 2,33, 7) = (/ &
+     &8.8246e-02_rb,1.2633e-01_rb,1.2088e-01_rb,9.9705e-02_rb,3.1855e-02_rb/)
+      kbo(:, 3,33, 7) = (/ &
+     &1.1912e-01_rb,1.6083e-01_rb,1.5001e-01_rb,1.2028e-01_rb,3.2953e-02_rb/)
+      kbo(:, 4,33, 7) = (/ &
+     &1.5802e-01_rb,2.0300e-01_rb,1.8528e-01_rb,1.4442e-01_rb,3.3850e-02_rb/)
+      kbo(:, 5,33, 7) = (/ &
+     &2.0596e-01_rb,2.5392e-01_rb,2.2791e-01_rb,1.7303e-01_rb,3.4585e-02_rb/)
+      kbo(:, 1,34, 7) = (/ &
+     &6.7485e-02_rb,9.9620e-02_rb,9.5868e-02_rb,7.9332e-02_rb,2.5830e-02_rb/)
+      kbo(:, 2,34, 7) = (/ &
+     &9.2815e-02_rb,1.2890e-01_rb,1.2075e-01_rb,9.7213e-02_rb,2.6848e-02_rb/)
+      kbo(:, 3,34, 7) = (/ &
+     &1.2537e-01_rb,1.6529e-01_rb,1.5122e-01_rb,1.1822e-01_rb,2.7699e-02_rb/)
+      kbo(:, 4,34, 7) = (/ &
+     &1.6617e-01_rb,2.0989e-01_rb,1.8860e-01_rb,1.4346e-01_rb,2.8411e-02_rb/)
+      kbo(:, 5,34, 7) = (/ &
+     &2.1641e-01_rb,2.6338e-01_rb,2.3365e-01_rb,1.7367e-01_rb,2.9006e-02_rb/)
+      kbo(:, 1,35, 7) = (/ &
+     &6.9002e-02_rb,9.9168e-02_rb,9.3611e-02_rb,7.5846e-02_rb,2.1704e-02_rb/)
+      kbo(:, 2,35, 7) = (/ &
+     &9.5177e-02_rb,1.2935e-01_rb,1.1903e-01_rb,9.3690e-02_rb,2.2517e-02_rb/)
+      kbo(:, 3,35, 7) = (/ &
+     &1.2872e-01_rb,1.6713e-01_rb,1.5066e-01_rb,1.1518e-01_rb,2.3202e-02_rb/)
+      kbo(:, 4,35, 7) = (/ &
+     &1.7076e-01_rb,2.1347e-01_rb,1.8964e-01_rb,1.4135e-01_rb,2.3785e-02_rb/)
+      kbo(:, 5,35, 7) = (/ &
+     &2.2264e-01_rb,2.6908e-01_rb,2.3665e-01_rb,1.7298e-01_rb,2.4252e-02_rb/)
+      kbo(:, 1,36, 7) = (/ &
+     &6.7865e-02_rb,9.5879e-02_rb,8.9211e-02_rb,7.0981e-02_rb,1.8133e-02_rb/)
+      kbo(:, 2,36, 7) = (/ &
+     &9.4007e-02_rb,1.2625e-01_rb,1.1466e-01_rb,8.8573e-02_rb,1.8797e-02_rb/)
+      kbo(:, 3,36, 7) = (/ &
+     &1.2751e-01_rb,1.6450e-01_rb,1.4669e-01_rb,1.1023e-01_rb,1.9364e-02_rb/)
+      kbo(:, 4,36, 7) = (/ &
+     &1.6969e-01_rb,2.1129e-01_rb,1.8634e-01_rb,1.3684e-01_rb,1.9848e-02_rb/)
+      kbo(:, 5,36, 7) = (/ &
+     &2.2199e-01_rb,2.6776e-01_rb,2.3416e-01_rb,1.6920e-01_rb,2.0253e-02_rb/)
+      kbo(:, 1,37, 7) = (/ &
+     &6.1910e-02_rb,8.7392e-02_rb,8.0722e-02_rb,6.3503e-02_rb,1.5050e-02_rb/)
+      kbo(:, 2,37, 7) = (/ &
+     &8.6402e-02_rb,1.1634e-01_rb,1.0496e-01_rb,8.0172e-02_rb,1.5605e-02_rb/)
+      kbo(:, 3,37, 7) = (/ &
+     &1.1792e-01_rb,1.5301e-01_rb,1.3575e-01_rb,1.0102e-01_rb,1.6089e-02_rb/)
+      kbo(:, 4,37, 7) = (/ &
+     &1.5786e-01_rb,1.9811e-01_rb,1.7416e-01_rb,1.2688e-01_rb,1.6504e-02_rb/)
+      kbo(:, 5,37, 7) = (/ &
+     &2.0776e-01_rb,2.5283e-01_rb,2.2073e-01_rb,1.5856e-01_rb,1.6861e-02_rb/)
+      kbo(:, 1,38, 7) = (/ &
+     &5.7180e-02_rb,8.0434e-02_rb,7.3641e-02_rb,5.7228e-02_rb,1.2479e-02_rb/)
+      kbo(:, 2,38, 7) = (/ &
+     &8.0361e-02_rb,1.0828e-01_rb,9.6955e-02_rb,7.3200e-02_rb,1.2947e-02_rb/)
+      kbo(:, 3,38, 7) = (/ &
+     &1.1043e-01_rb,1.4379e-01_rb,1.2688e-01_rb,9.3375e-02_rb,1.3365e-02_rb/)
+      kbo(:, 4,38, 7) = (/ &
+     &1.4883e-01_rb,1.8786e-01_rb,1.6450e-01_rb,1.1879e-01_rb,1.3732e-02_rb/)
+      kbo(:, 5,38, 7) = (/ &
+     &1.9707e-01_rb,2.4129e-01_rb,2.1013e-01_rb,1.4998e-01_rb,1.4049e-02_rb/)
+      kbo(:, 1,39, 7) = (/ &
+     &5.4044e-02_rb,7.5469e-02_rb,6.8324e-02_rb,5.2315e-02_rb,1.0342e-02_rb/)
+      kbo(:, 2,39, 7) = (/ &
+     &7.6525e-02_rb,1.0279e-01_rb,9.1154e-02_rb,6.7832e-02_rb,1.0747e-02_rb/)
+      kbo(:, 3,39, 7) = (/ &
+     &1.0591e-01_rb,1.3783e-01_rb,1.2080e-01_rb,8.7775e-02_rb,1.1116e-02_rb/)
+      kbo(:, 4,39, 7) = (/ &
+     &1.4369e-01_rb,1.8148e-01_rb,1.5809e-01_rb,1.1309e-01_rb,1.1438e-02_rb/)
+      kbo(:, 5,39, 7) = (/ &
+     &1.9144e-01_rb,2.3501e-01_rb,2.0393e-01_rb,1.4445e-01_rb,1.1716e-02_rb/)
+      kbo(:, 1,40, 7) = (/ &
+     &4.6217e-02_rb,6.5370e-02_rb,5.9012e-02_rb,4.4989e-02_rb,8.5358e-03_rb/)
+      kbo(:, 2,40, 7) = (/ &
+     &6.6114e-02_rb,9.0173e-02_rb,7.9777e-02_rb,5.9045e-02_rb,8.8901e-03_rb/)
+      kbo(:, 3,40, 7) = (/ &
+     &9.2339e-02_rb,1.2222e-01_rb,1.0699e-01_rb,7.7378e-02_rb,9.2084e-03_rb/)
+      kbo(:, 4,40, 7) = (/ &
+     &1.2639e-01_rb,1.6256e-01_rb,1.4164e-01_rb,1.0101e-01_rb,9.4930e-03_rb/)
+      kbo(:, 5,40, 7) = (/ &
+     &1.6986e-01_rb,2.1255e-01_rb,1.8467e-01_rb,1.3055e-01_rb,9.7467e-03_rb/)
+      kbo(:, 1,41, 7) = (/ &
+     &3.9155e-02_rb,5.6183e-02_rb,5.0596e-02_rb,3.8424e-02_rb,7.0383e-03_rb/)
+      kbo(:, 2,41, 7) = (/ &
+     &5.6659e-02_rb,7.8503e-02_rb,6.9340e-02_rb,5.1085e-02_rb,7.3470e-03_rb/)
+      kbo(:, 3,41, 7) = (/ &
+     &7.9928e-02_rb,1.0766e-01_rb,9.4225e-02_rb,6.7858e-02_rb,7.6230e-03_rb/)
+      kbo(:, 4,41, 7) = (/ &
+     &1.1042e-01_rb,1.4475e-01_rb,1.2626e-01_rb,8.9781e-02_rb,7.8762e-03_rb/)
+      kbo(:, 5,41, 7) = (/ &
+     &1.4975e-01_rb,1.9111e-01_rb,1.6637e-01_rb,1.1739e-01_rb,8.1039e-03_rb/)
+      kbo(:, 1,42, 7) = (/ &
+     &3.3442e-02_rb,4.8574e-02_rb,4.3613e-02_rb,3.2930e-02_rb,5.8050e-03_rb/)
+      kbo(:, 2,42, 7) = (/ &
+     &4.8965e-02_rb,6.8792e-02_rb,6.0620e-02_rb,4.4408e-02_rb,6.0682e-03_rb/)
+      kbo(:, 3,42, 7) = (/ &
+     &6.9803e-02_rb,9.5533e-02_rb,8.3532e-02_rb,5.9826e-02_rb,6.3116e-03_rb/)
+      kbo(:, 4,42, 7) = (/ &
+     &9.7360e-02_rb,1.2988e-01_rb,1.1328e-01_rb,8.0240e-02_rb,6.5330e-03_rb/)
+      kbo(:, 5,42, 7) = (/ &
+     &1.3333e-01_rb,1.7321e-01_rb,1.5102e-01_rb,1.0628e-01_rb,6.7345e-03_rb/)
+      kbo(:, 1,43, 7) = (/ &
+     &2.8074e-02_rb,4.1293e-02_rb,3.7000e-02_rb,2.7812e-02_rb,4.7712e-03_rb/)
+      kbo(:, 2,43, 7) = (/ &
+     &4.1661e-02_rb,5.9380e-02_rb,5.2205e-02_rb,3.8045e-02_rb,4.9985e-03_rb/)
+      kbo(:, 3,43, 7) = (/ &
+     &6.0156e-02_rb,8.3670e-02_rb,7.3060e-02_rb,5.2075e-02_rb,5.2119e-03_rb/)
+      kbo(:, 4,43, 7) = (/ &
+     &8.4838e-02_rb,1.1520e-01_rb,1.0043e-01_rb,7.0829e-02_rb,5.4068e-03_rb/)
+      kbo(:, 5,43, 7) = (/ &
+     &1.1748e-01_rb,1.5547e-01_rb,1.3568e-01_rb,9.5209e-02_rb,5.5907e-03_rb/)
+      kbo(:, 1,44, 7) = (/ &
+     &2.3517e-02_rb,3.4984e-02_rb,3.1261e-02_rb,2.3397e-02_rb,3.9133e-03_rb/)
+      kbo(:, 2,44, 7) = (/ &
+     &3.5440e-02_rb,5.1145e-02_rb,4.4838e-02_rb,3.2508e-02_rb,4.1113e-03_rb/)
+      kbo(:, 3,44, 7) = (/ &
+     &5.1856e-02_rb,7.3218e-02_rb,6.3748e-02_rb,4.5187e-02_rb,4.2980e-03_rb/)
+      kbo(:, 4,44, 7) = (/ &
+     &7.4068e-02_rb,1.0225e-01_rb,8.9058e-02_rb,6.2496e-02_rb,4.4682e-03_rb/)
+      kbo(:, 5,44, 7) = (/ &
+     &1.0378e-01_rb,1.3965e-01_rb,1.2187e-01_rb,8.5218e-02_rb,4.6319e-03_rb/)
+      kbo(:, 1,45, 7) = (/ &
+     &1.9987e-02_rb,2.9948e-02_rb,2.6638e-02_rb,1.9815e-02_rb,3.2076e-03_rb/)
+      kbo(:, 2,45, 7) = (/ &
+     &3.0595e-02_rb,4.4514e-02_rb,3.8859e-02_rb,2.7978e-02_rb,3.3798e-03_rb/)
+      kbo(:, 3,45, 7) = (/ &
+     &4.5403e-02_rb,6.4811e-02_rb,5.6194e-02_rb,3.9557e-02_rb,3.5406e-03_rb/)
+      kbo(:, 4,45, 7) = (/ &
+     &6.5696e-02_rb,9.1866e-02_rb,7.9797e-02_rb,5.5645e-02_rb,3.6912e-03_rb/)
+      kbo(:, 5,45, 7) = (/ &
+     &9.3194e-02_rb,1.2710e-01_rb,1.1078e-01_rb,7.7097e-02_rb,3.8387e-03_rb/)
+      kbo(:, 1,46, 7) = (/ &
+     &1.6883e-02_rb,2.5455e-02_rb,2.2540e-02_rb,1.6677e-02_rb,2.6234e-03_rb/)
+      kbo(:, 2,46, 7) = (/ &
+     &2.6297e-02_rb,3.8534e-02_rb,3.3486e-02_rb,2.3954e-02_rb,2.7725e-03_rb/)
+      kbo(:, 3,46, 7) = (/ &
+     &3.9636e-02_rb,5.7120e-02_rb,4.9278e-02_rb,3.4454e-02_rb,2.9133e-03_rb/)
+      kbo(:, 4,46, 7) = (/ &
+     &5.8158e-02_rb,8.2259e-02_rb,7.1230e-02_rb,4.9351e-02_rb,3.0483e-03_rb/)
+      kbo(:, 5,46, 7) = (/ &
+     &8.3561e-02_rb,1.1543e-01_rb,1.0042e-01_rb,6.9545e-02_rb,3.1794e-03_rb/)
+      kbo(:, 1,47, 7) = (/ &
+     &1.3750e-02_rb,2.0931e-02_rb,1.8489e-02_rb,1.3652e-02_rb,2.1369e-03_rb/)
+      kbo(:, 2,47, 7) = (/ &
+     &2.1838e-02_rb,3.2305e-02_rb,2.7989e-02_rb,1.9957e-02_rb,2.2678e-03_rb/)
+      kbo(:, 3,47, 7) = (/ &
+     &3.3497e-02_rb,4.8835e-02_rb,4.1985e-02_rb,2.9214e-02_rb,2.3899e-03_rb/)
+      kbo(:, 4,47, 7) = (/ &
+     &4.9929e-02_rb,7.1624e-02_rb,6.1836e-02_rb,4.2605e-02_rb,2.5094e-03_rb/)
+      kbo(:, 5,47, 7) = (/ &
+     &7.2757e-02_rb,1.0217e-01_rb,8.8738e-02_rb,6.1180e-02_rb,2.6247e-03_rb/)
+      kbo(:, 1,48, 7) = (/ &
+     &1.1414e-02_rb,1.7437e-02_rb,1.5334e-02_rb,1.1272e-02_rb,1.7386e-03_rb/)
+      kbo(:, 2,48, 7) = (/ &
+     &1.8495e-02_rb,2.7458e-02_rb,2.3694e-02_rb,1.6798e-02_rb,1.8526e-03_rb/)
+      kbo(:, 3,48, 7) = (/ &
+     &2.8896e-02_rb,4.2355e-02_rb,3.6253e-02_rb,2.5061e-02_rb,1.9592e-03_rb/)
+      kbo(:, 4,48, 7) = (/ &
+     &4.3780e-02_rb,6.3320e-02_rb,5.4439e-02_rb,3.7255e-02_rb,2.0628e-03_rb/)
+      kbo(:, 5,48, 7) = (/ &
+     &6.4736e-02_rb,9.1889e-02_rb,7.9609e-02_rb,5.4563e-02_rb,2.1644e-03_rb/)
+      kbo(:, 1,49, 7) = (/ &
+     &9.7792e-03_rb,1.4862e-02_rb,1.2975e-02_rb,9.4608e-03_rb,1.4121e-03_rb/)
+      kbo(:, 2,49, 7) = (/ &
+     &1.6175e-02_rb,2.3898e-02_rb,2.0488e-02_rb,1.4406e-02_rb,1.5117e-03_rb/)
+      kbo(:, 3,49, 7) = (/ &
+     &2.5763e-02_rb,3.7620e-02_rb,3.1995e-02_rb,2.1936e-02_rb,1.6039e-03_rb/)
+      kbo(:, 4,49, 7) = (/ &
+     &3.9714e-02_rb,5.7411e-02_rb,4.9041e-02_rb,3.3299e-02_rb,1.6946e-03_rb/)
+      kbo(:, 5,49, 7) = (/ &
+     &5.9638e-02_rb,8.4793e-02_rb,7.3080e-02_rb,4.9749e-02_rb,1.7852e-03_rb/)
+      kbo(:, 1,50, 7) = (/ &
+     &8.0131e-03_rb,1.2216e-02_rb,1.0631e-02_rb,7.7241e-03_rb,1.1467e-03_rb/)
+      kbo(:, 2,50, 7) = (/ &
+     &1.3522e-02_rb,2.0069e-02_rb,1.7141e-02_rb,1.2008e-02_rb,1.2327e-03_rb/)
+      kbo(:, 3,50, 7) = (/ &
+     &2.1961e-02_rb,3.2239e-02_rb,2.7314e-02_rb,1.8640e-02_rb,1.3124e-03_rb/)
+      kbo(:, 4,50, 7) = (/ &
+     &3.4440e-02_rb,5.0209e-02_rb,4.2737e-02_rb,2.8885e-02_rb,1.3920e-03_rb/)
+      kbo(:, 5,50, 7) = (/ &
+     &5.2495e-02_rb,7.5521e-02_rb,6.4947e-02_rb,4.4030e-02_rb,1.4733e-03_rb/)
+      kbo(:, 1,51, 7) = (/ &
+     &6.4036e-03_rb,9.8290e-03_rb,8.5406e-03_rb,6.2032e-03_rb,9.3043e-04_rb/)
+      kbo(:, 2,51, 7) = (/ &
+     &1.1026e-02_rb,1.6501e-02_rb,1.4064e-02_rb,9.8397e-03_rb,1.0045e-03_rb/)
+      kbo(:, 3,51, 7) = (/ &
+     &1.8273e-02_rb,2.7056e-02_rb,2.2864e-02_rb,1.5565e-02_rb,1.0742e-03_rb/)
+      kbo(:, 4,51, 7) = (/ &
+     &2.9163e-02_rb,4.3028e-02_rb,3.6523e-02_rb,2.4601e-02_rb,1.1437e-03_rb/)
+      kbo(:, 5,51, 7) = (/ &
+     &4.5145e-02_rb,6.5958e-02_rb,5.6628e-02_rb,3.8264e-02_rb,1.2140e-03_rb/)
+      kbo(:, 1,52, 7) = (/ &
+     &5.2190e-03_rb,8.0088e-03_rb,6.9367e-03_rb,5.0245e-03_rb,7.5434e-04_rb/)
+      kbo(:, 2,52, 7) = (/ &
+     &9.1694e-03_rb,1.3764e-02_rb,1.1684e-02_rb,8.1486e-03_rb,8.1834e-04_rb/)
+      kbo(:, 3,52, 7) = (/ &
+     &1.5524e-02_rb,2.3049e-02_rb,1.9394e-02_rb,1.3151e-02_rb,8.7913e-04_rb/)
+      kbo(:, 4,52, 7) = (/ &
+     &2.5232e-02_rb,3.7442e-02_rb,3.1647e-02_rb,2.1215e-02_rb,9.3902e-04_rb/)
+      kbo(:, 5,52, 7) = (/ &
+     &3.9698e-02_rb,5.8529e-02_rb,5.0101e-02_rb,3.3714e-02_rb,1.0010e-03_rb/)
+      kbo(:, 1,53, 7) = (/ &
+     &4.3882e-03_rb,6.6717e-03_rb,5.7454e-03_rb,4.1343e-03_rb,6.1055e-04_rb/)
+      kbo(:, 2,53, 7) = (/ &
+     &7.8762e-03_rb,1.1762e-02_rb,9.9163e-03_rb,6.8660e-03_rb,6.6611e-04_rb/)
+      kbo(:, 3,53, 7) = (/ &
+     &1.3621e-02_rb,2.0115e-02_rb,1.6825e-02_rb,1.1330e-02_rb,7.1874e-04_rb/)
+      kbo(:, 4,53, 7) = (/ &
+     &2.2577e-02_rb,3.3386e-02_rb,2.8049e-02_rb,1.8668e-02_rb,7.7087e-04_rb/)
+      kbo(:, 5,53, 7) = (/ &
+     &3.6135e-02_rb,5.3261e-02_rb,4.5341e-02_rb,3.0337e-02_rb,8.2493e-04_rb/)
+      kbo(:, 1,54, 7) = (/ &
+     &3.2171e-03_rb,4.9791e-03_rb,4.3152e-03_rb,3.1327e-03_rb,4.9375e-04_rb/)
+      kbo(:, 2,54, 7) = (/ &
+     &5.9006e-03_rb,8.9891e-03_rb,7.6027e-03_rb,5.2931e-03_rb,5.4126e-04_rb/)
+      kbo(:, 3,54, 7) = (/ &
+     &1.0411e-02_rb,1.5699e-02_rb,1.3153e-02_rb,8.8893e-03_rb,5.8635e-04_rb/)
+      kbo(:, 4,54, 7) = (/ &
+     &1.7599e-02_rb,2.6636e-02_rb,2.2397e-02_rb,1.4923e-02_rb,6.3108e-04_rb/)
+      kbo(:, 5,54, 7) = (/ &
+     &2.8648e-02_rb,4.3428e-02_rb,3.7016e-02_rb,2.4766e-02_rb,6.7747e-04_rb/)
+      kbo(:, 1,55, 7) = (/ &
+     &2.1501e-03_rb,3.4516e-03_rb,3.0360e-03_rb,2.2475e-03_rb,3.9872e-04_rb/)
+      kbo(:, 2,55, 7) = (/ &
+     &4.0344e-03_rb,6.3713e-03_rb,5.4431e-03_rb,3.8454e-03_rb,4.3910e-04_rb/)
+      kbo(:, 3,55, 7) = (/ &
+     &7.2610e-03_rb,1.1366e-02_rb,9.5883e-03_rb,6.5518e-03_rb,4.7768e-04_rb/)
+      kbo(:, 4,55, 7) = (/ &
+     &1.2517e-02_rb,1.9714e-02_rb,1.6657e-02_rb,1.1171e-02_rb,5.1535e-04_rb/)
+      kbo(:, 5,55, 7) = (/ &
+     &2.0727e-02_rb,3.2905e-02_rb,2.8181e-02_rb,1.8908e-02_rb,5.5486e-04_rb/)
+      kbo(:, 1,56, 7) = (/ &
+     &1.4245e-03_rb,2.3749e-03_rb,2.1236e-03_rb,1.6049e-03_rb,3.2130e-04_rb/)
+      kbo(:, 2,56, 7) = (/ &
+     &2.7381e-03_rb,4.4799e-03_rb,3.8718e-03_rb,2.7798e-03_rb,3.5587e-04_rb/)
+      kbo(:, 3,56, 7) = (/ &
+     &5.0259e-03_rb,8.1674e-03_rb,6.9450e-03_rb,4.8004e-03_rb,3.8862e-04_rb/)
+      kbo(:, 4,56, 7) = (/ &
+     &8.8432e-03_rb,1.4489e-02_rb,1.2307e-02_rb,8.3071e-03_rb,4.2064e-04_rb/)
+      kbo(:, 5,56, 7) = (/ &
+     &1.4910e-02_rb,2.4779e-02_rb,2.1310e-02_rb,1.4337e-02_rb,4.5360e-04_rb/)
+      kbo(:, 1,57, 7) = (/ &
+     &9.3471e-04_rb,1.6209e-03_rb,1.4751e-03_rb,1.1411e-03_rb,2.5838e-04_rb/)
+      kbo(:, 2,57, 7) = (/ &
+     &1.8436e-03_rb,3.1233e-03_rb,2.7344e-03_rb,1.9986e-03_rb,2.8780e-04_rb/)
+      kbo(:, 3,57, 7) = (/ &
+     &3.4502e-03_rb,5.8213e-03_rb,4.9934e-03_rb,3.4957e-03_rb,3.1565e-04_rb/)
+      kbo(:, 4,57, 7) = (/ &
+     &6.2020e-03_rb,1.0562e-02_rb,9.0212e-03_rb,6.1326e-03_rb,3.4283e-04_rb/)
+      kbo(:, 5,57, 7) = (/ &
+     &1.0656e-02_rb,1.8525e-02_rb,1.5995e-02_rb,1.0788e-02_rb,3.7043e-04_rb/)
+      kbo(:, 1,58, 7) = (/ &
+     &1.6224e-04_rb,3.6080e-04_rb,4.3166e-04_rb,4.8123e-04_rb,2.0767e-04_rb/)
+      kbo(:, 2,58, 7) = (/ &
+     &3.2835e-04_rb,7.0851e-04_rb,8.1160e-04_rb,8.4893e-04_rb,2.3260e-04_rb/)
+      kbo(:, 3,58, 7) = (/ &
+     &6.2650e-04_rb,1.3493e-03_rb,1.5057e-03_rb,1.4999e-03_rb,2.5617e-04_rb/)
+      kbo(:, 4,58, 7) = (/ &
+     &1.1500e-03_rb,2.5038e-03_rb,2.7715e-03_rb,2.6635e-03_rb,2.7921e-04_rb/)
+      kbo(:, 5,58, 7) = (/ &
+     &2.0128e-03_rb,4.5008e-03_rb,5.0240e-03_rb,4.7643e-03_rb,3.0249e-04_rb/)
+      kbo(:, 1,59, 7) = (/ &
+     &1.4374e-04_rb,3.4167e-04_rb,3.9743e-04_rb,4.1474e-04_rb,1.7016e-04_rb/)
+      kbo(:, 2,59, 7) = (/ &
+     &2.9460e-04_rb,6.7320e-04_rb,7.4449e-04_rb,7.2184e-04_rb,1.9072e-04_rb/)
+      kbo(:, 3,59, 7) = (/ &
+     &5.6936e-04_rb,1.2962e-03_rb,1.3859e-03_rb,1.2659e-03_rb,2.1044e-04_rb/)
+      kbo(:, 4,59, 7) = (/ &
+     &1.0579e-03_rb,2.4467e-03_rb,2.5761e-03_rb,2.2456e-03_rb,2.2959e-04_rb/)
+      kbo(:, 5,59, 7) = (/ &
+     &1.8733e-03_rb,4.4959e-03_rb,4.7523e-03_rb,4.0463e-03_rb,2.4889e-04_rb/)
+      kbo(:, 1,13, 8) = (/ &
+     &1.0984e+01_rb,8.3644e+00_rb,5.8323e+00_rb,3.5207e+00_rb,9.5573e-01_rb/)
+      kbo(:, 2,13, 8) = (/ &
+     &1.6457e+01_rb,1.2460e+01_rb,8.5024e+00_rb,4.7543e+00_rb,9.4898e-01_rb/)
+      kbo(:, 3,13, 8) = (/ &
+     &2.3514e+01_rb,1.7749e+01_rb,1.1998e+01_rb,6.4125e+00_rb,9.3955e-01_rb/)
+      kbo(:, 4,13, 8) = (/ &
+     &3.2333e+01_rb,2.4359e+01_rb,1.6389e+01_rb,8.5253e+00_rb,9.2689e-01_rb/)
+      kbo(:, 5,13, 8) = (/ &
+     &4.3124e+01_rb,3.2448e+01_rb,2.1775e+01_rb,1.1152e+01_rb,9.1779e-01_rb/)
+      kbo(:, 1,14, 8) = (/ &
+     &6.1000e+00_rb,4.7207e+00_rb,3.5104e+00_rb,2.4718e+00_rb,9.1734e-01_rb/)
+      kbo(:, 2,14, 8) = (/ &
+     &9.1253e+00_rb,6.9681e+00_rb,4.9378e+00_rb,3.1340e+00_rb,9.1181e-01_rb/)
+      kbo(:, 3,14, 8) = (/ &
+     &1.3035e+01_rb,9.8900e+00_rb,6.8208e+00_rb,3.9957e+00_rb,9.0546e-01_rb/)
+      kbo(:, 4,14, 8) = (/ &
+     &1.7969e+01_rb,1.3584e+01_rb,9.2328e+00_rb,5.1032e+00_rb,8.9760e-01_rb/)
+      kbo(:, 5,14, 8) = (/ &
+     &2.4021e+01_rb,1.8119e+01_rb,1.2229e+01_rb,6.5133e+00_rb,8.8920e-01_rb/)
+      kbo(:, 1,15, 8) = (/ &
+     &3.4743e+00_rb,2.8067e+00_rb,2.3437e+00_rb,1.8996e+00_rb,8.7156e-01_rb/)
+      kbo(:, 2,15, 8) = (/ &
+     &5.1884e+00_rb,4.0500e+00_rb,3.1125e+00_rb,2.2977e+00_rb,8.6786e-01_rb/)
+      kbo(:, 3,15, 8) = (/ &
+     &7.4263e+00_rb,5.6964e+00_rb,4.1330e+00_rb,2.7795e+00_rb,8.6394e-01_rb/)
+      kbo(:, 4,15, 8) = (/ &
+     &1.0261e+01_rb,7.8059e+00_rb,5.4699e+00_rb,3.3858e+00_rb,8.5908e-01_rb/)
+      kbo(:, 5,15, 8) = (/ &
+     &1.3736e+01_rb,1.0405e+01_rb,7.1459e+00_rb,4.1475e+00_rb,8.5337e-01_rb/)
+      kbo(:, 1,16, 8) = (/ &
+     &2.3668e+00_rb,2.0348e+00_rb,1.8716e+00_rb,1.6135e+00_rb,8.1894e-01_rb/)
+      kbo(:, 2,16, 8) = (/ &
+     &3.5375e+00_rb,2.8566e+00_rb,2.3918e+00_rb,1.9179e+00_rb,8.1793e-01_rb/)
+      kbo(:, 3,16, 8) = (/ &
+     &5.0738e+00_rb,3.9641e+00_rb,3.0738e+00_rb,2.2799e+00_rb,8.1574e-01_rb/)
+      kbo(:, 4,16, 8) = (/ &
+     &7.0147e+00_rb,5.3888e+00_rb,3.9564e+00_rb,2.7115e+00_rb,8.1291e-01_rb/)
+      kbo(:, 5,16, 8) = (/ &
+     &9.3829e+00_rb,7.1458e+00_rb,5.0571e+00_rb,3.2258e+00_rb,8.0943e-01_rb/)
+      kbo(:, 1,17, 8) = (/ &
+     &1.6738e+00_rb,1.5709e+00_rb,1.5512e+00_rb,1.3915e+00_rb,7.6163e-01_rb/)
+      kbo(:, 2,17, 8) = (/ &
+     &2.5071e+00_rb,2.1423e+00_rb,1.9466e+00_rb,1.6331e+00_rb,7.6194e-01_rb/)
+      kbo(:, 3,17, 8) = (/ &
+     &3.5973e+00_rb,2.9044e+00_rb,2.4376e+00_rb,1.9200e+00_rb,7.6176e-01_rb/)
+      kbo(:, 4,17, 8) = (/ &
+     &4.9653e+00_rb,3.8871e+00_rb,3.0499e+00_rb,2.2591e+00_rb,7.6112e-01_rb/)
+      kbo(:, 5,17, 8) = (/ &
+     &6.6200e+00_rb,5.0972e+00_rb,3.7961e+00_rb,2.6511e+00_rb,7.6001e-01_rb/)
+      kbo(:, 1,18, 8) = (/ &
+     &1.2159e+00_rb,1.2682e+00_rb,1.3055e+00_rb,1.2114e+00_rb,6.9972e-01_rb/)
+      kbo(:, 2,18, 8) = (/ &
+     &1.8215e+00_rb,1.6846e+00_rb,1.6207e+00_rb,1.4074e+00_rb,7.0172e-01_rb/)
+      kbo(:, 3,18, 8) = (/ &
+     &2.6063e+00_rb,2.2250e+00_rb,2.0059e+00_rb,1.6407e+00_rb,7.0349e-01_rb/)
+      kbo(:, 4,18, 8) = (/ &
+     &3.5864e+00_rb,2.9083e+00_rb,2.4603e+00_rb,1.9137e+00_rb,7.0440e-01_rb/)
+      kbo(:, 5,18, 8) = (/ &
+     &4.7701e+00_rb,3.7503e+00_rb,2.9936e+00_rb,2.2226e+00_rb,7.0559e-01_rb/)
+      kbo(:, 1,19, 8) = (/ &
+     &8.6896e-01_rb,1.0218e+00_rb,1.0917e+00_rb,1.0431e+00_rb,6.3571e-01_rb/)
+      kbo(:, 2,19, 8) = (/ &
+     &1.2971e+00_rb,1.3348e+00_rb,1.3390e+00_rb,1.2022e+00_rb,6.3915e-01_rb/)
+      kbo(:, 3,19, 8) = (/ &
+     &1.8500e+00_rb,1.7190e+00_rb,1.6367e+00_rb,1.3904e+00_rb,6.4265e-01_rb/)
+      kbo(:, 4,19, 8) = (/ &
+     &2.5377e+00_rb,2.1918e+00_rb,1.9845e+00_rb,1.6067e+00_rb,6.4523e-01_rb/)
+      kbo(:, 5,19, 8) = (/ &
+     &3.3694e+00_rb,2.7695e+00_rb,2.3848e+00_rb,1.8478e+00_rb,6.4962e-01_rb/)
+      kbo(:, 1,20, 8) = (/ &
+     &6.7593e-01_rb,8.7052e-01_rb,9.5066e-01_rb,9.1950e-01_rb,5.7154e-01_rb/)
+      kbo(:, 2,20, 8) = (/ &
+     &1.0037e+00_rb,1.1265e+00_rb,1.1588e+00_rb,1.0572e+00_rb,5.7670e-01_rb/)
+      kbo(:, 3,20, 8) = (/ &
+     &1.4256e+00_rb,1.4357e+00_rb,1.4052e+00_rb,1.2186e+00_rb,5.8150e-01_rb/)
+      kbo(:, 4,20, 8) = (/ &
+     &1.9488e+00_rb,1.8041e+00_rb,1.6911e+00_rb,1.4006e+00_rb,5.8703e-01_rb/)
+      kbo(:, 5,20, 8) = (/ &
+     &2.5835e+00_rb,2.2440e+00_rb,2.0193e+00_rb,1.6034e+00_rb,5.9399e-01_rb/)
+      kbo(:, 1,21, 8) = (/ &
+     &5.4036e-01_rb,7.5420e-01_rb,8.3572e-01_rb,8.1199e-01_rb,5.0987e-01_rb/)
+      kbo(:, 2,21, 8) = (/ &
+     &7.9845e-01_rb,9.6809e-01_rb,1.0141e+00_rb,9.3456e-01_rb,5.1627e-01_rb/)
+      kbo(:, 3,21, 8) = (/ &
+     &1.1289e+00_rb,1.2252e+00_rb,1.2225e+00_rb,1.0751e+00_rb,5.2292e-01_rb/)
+      kbo(:, 4,21, 8) = (/ &
+     &1.5394e+00_rb,1.5293e+00_rb,1.4635e+00_rb,1.2321e+00_rb,5.3121e-01_rb/)
+      kbo(:, 5,21, 8) = (/ &
+     &2.0388e+00_rb,1.8858e+00_rb,1.7395e+00_rb,1.4066e+00_rb,5.4074e-01_rb/)
+      kbo(:, 1,22, 8) = (/ &
+     &4.5347e-01_rb,6.7088e-01_rb,7.4705e-01_rb,7.2463e-01_rb,4.5233e-01_rb/)
+      kbo(:, 2,22, 8) = (/ &
+     &6.6420e-01_rb,8.5466e-01_rb,9.0352e-01_rb,8.3532e-01_rb,4.6020e-01_rb/)
+      kbo(:, 3,22, 8) = (/ &
+     &9.3312e-01_rb,1.0751e+00_rb,1.0854e+00_rb,9.5995e-01_rb,4.6942e-01_rb/)
+      kbo(:, 4,22, 8) = (/ &
+     &1.2674e+00_rb,1.3357e+00_rb,1.2944e+00_rb,1.0988e+00_rb,4.8015e-01_rb/)
+      kbo(:, 5,22, 8) = (/ &
+     &1.6769e+00_rb,1.6408e+00_rb,1.5338e+00_rb,1.2527e+00_rb,4.9182e-01_rb/)
+      kbo(:, 1,23, 8) = (/ &
+     &3.8192e-01_rb,5.9551e-01_rb,6.6526e-01_rb,6.4489e-01_rb,3.9997e-01_rb/)
+      kbo(:, 2,23, 8) = (/ &
+     &5.5484e-01_rb,7.5433e-01_rb,8.0227e-01_rb,7.4370e-01_rb,4.0956e-01_rb/)
+      kbo(:, 3,23, 8) = (/ &
+     &7.7517e-01_rb,9.4347e-01_rb,9.6125e-01_rb,8.5431e-01_rb,4.2064e-01_rb/)
+      kbo(:, 4,23, 8) = (/ &
+     &1.0504e+00_rb,1.1678e+00_rb,1.1437e+00_rb,9.7728e-01_rb,4.3319e-01_rb/)
+      kbo(:, 5,23, 8) = (/ &
+     &1.3891e+00_rb,1.4314e+00_rb,1.3533e+00_rb,1.1142e+00_rb,4.4599e-01_rb/)
+      kbo(:, 1,24, 8) = (/ &
+     &3.1980e-01_rb,5.2485e-01_rb,5.8816e-01_rb,5.7121e-01_rb,3.5303e-01_rb/)
+      kbo(:, 2,24, 8) = (/ &
+     &4.6136e-01_rb,6.6155e-01_rb,7.0757e-01_rb,6.5873e-01_rb,3.6427e-01_rb/)
+      kbo(:, 3,24, 8) = (/ &
+     &6.4223e-01_rb,8.2371e-01_rb,8.4561e-01_rb,7.5649e-01_rb,3.7674e-01_rb/)
+      kbo(:, 4,24, 8) = (/ &
+     &8.6939e-01_rb,1.0172e+00_rb,1.0047e+00_rb,8.6558e-01_rb,3.8981e-01_rb/)
+      kbo(:, 5,24, 8) = (/ &
+     &1.1484e+00_rb,1.2449e+00_rb,1.1880e+00_rb,9.8717e-01_rb,4.0255e-01_rb/)
+      kbo(:, 1,25, 8) = (/ &
+     &2.7156e-01_rb,4.6457e-01_rb,5.2127e-01_rb,5.0714e-01_rb,3.1176e-01_rb/)
+      kbo(:, 2,25, 8) = (/ &
+     &3.8962e-01_rb,5.8326e-01_rb,6.2605e-01_rb,5.8521e-01_rb,3.2376e-01_rb/)
+      kbo(:, 3,25, 8) = (/ &
+     &5.4140e-01_rb,7.2573e-01_rb,7.4721e-01_rb,6.7267e-01_rb,3.3654e-01_rb/)
+      kbo(:, 4,25, 8) = (/ &
+     &7.3158e-01_rb,8.9514e-01_rb,8.8800e-01_rb,7.7033e-01_rb,3.4916e-01_rb/)
+      kbo(:, 5,25, 8) = (/ &
+     &9.6557e-01_rb,1.0940e+00_rb,1.0510e+00_rb,8.7991e-01_rb,3.6188e-01_rb/)
+      kbo(:, 1,26, 8) = (/ &
+     &2.3603e-01_rb,4.1514e-01_rb,4.6570e-01_rb,4.5317e-01_rb,2.7528e-01_rb/)
+      kbo(:, 2,26, 8) = (/ &
+     &3.3729e-01_rb,5.2062e-01_rb,5.5904e-01_rb,5.2356e-01_rb,2.8722e-01_rb/)
+      kbo(:, 3,26, 8) = (/ &
+     &4.6762e-01_rb,6.4812e-01_rb,6.6791e-01_rb,6.0289e-01_rb,2.9963e-01_rb/)
+      kbo(:, 4,26, 8) = (/ &
+     &6.3043e-01_rb,7.9949e-01_rb,7.9540e-01_rb,6.9207e-01_rb,3.1197e-01_rb/)
+      kbo(:, 5,26, 8) = (/ &
+     &8.2894e-01_rb,9.7604e-01_rb,9.4222e-01_rb,7.9275e-01_rb,3.2460e-01_rb/)
+      kbo(:, 1,27, 8) = (/ &
+     &2.1329e-01_rb,3.7886e-01_rb,4.2295e-01_rb,4.0982e-01_rb,2.4262e-01_rb/)
+      kbo(:, 2,27, 8) = (/ &
+     &3.0405e-01_rb,4.7609e-01_rb,5.0881e-01_rb,4.7490e-01_rb,2.5434e-01_rb/)
+      kbo(:, 3,27, 8) = (/ &
+     &4.2047e-01_rb,5.9404e-01_rb,6.1027e-01_rb,5.4870e-01_rb,2.6611e-01_rb/)
+      kbo(:, 4,27, 8) = (/ &
+     &5.6493e-01_rb,7.3338e-01_rb,7.2904e-01_rb,6.3251e-01_rb,2.7831e-01_rb/)
+      kbo(:, 5,27, 8) = (/ &
+     &7.3961e-01_rb,8.9452e-01_rb,8.6490e-01_rb,7.2735e-01_rb,2.9101e-01_rb/)
+      kbo(:, 1,28, 8) = (/ &
+     &1.9857e-01_rb,3.5152e-01_rb,3.8897e-01_rb,3.7421e-01_rb,2.1366e-01_rb/)
+      kbo(:, 2,28, 8) = (/ &
+     &2.8199e-01_rb,4.4350e-01_rb,4.7029e-01_rb,4.3552e-01_rb,2.2475e-01_rb/)
+      kbo(:, 3,28, 8) = (/ &
+     &3.8828e-01_rb,5.5465e-01_rb,5.6697e-01_rb,5.0558e-01_rb,2.3636e-01_rb/)
+      kbo(:, 4,28, 8) = (/ &
+     &5.1944e-01_rb,6.8554e-01_rb,6.7950e-01_rb,5.8599e-01_rb,2.4843e-01_rb/)
+      kbo(:, 5,28, 8) = (/ &
+     &6.7804e-01_rb,8.3583e-01_rb,8.0789e-01_rb,6.7686e-01_rb,2.6132e-01_rb/)
+      kbo(:, 1,29, 8) = (/ &
+     &1.9699e-01_rb,3.4001e-01_rb,3.6948e-01_rb,3.4985e-01_rb,1.8812e-01_rb/)
+      kbo(:, 2,29, 8) = (/ &
+     &2.7846e-01_rb,4.3155e-01_rb,4.5041e-01_rb,4.0987e-01_rb,1.9891e-01_rb/)
+      kbo(:, 3,29, 8) = (/ &
+     &3.8140e-01_rb,5.4168e-01_rb,5.4658e-01_rb,4.7968e-01_rb,2.1027e-01_rb/)
+      kbo(:, 4,29, 8) = (/ &
+     &5.0817e-01_rb,6.7028e-01_rb,6.5795e-01_rb,5.5982e-01_rb,2.2267e-01_rb/)
+      kbo(:, 5,29, 8) = (/ &
+     &6.6092e-01_rb,8.1811e-01_rb,7.8466e-01_rb,6.5003e-01_rb,2.3569e-01_rb/)
+      kbo(:, 1,30, 8) = (/ &
+     &2.0038e-01_rb,3.3558e-01_rb,3.5744e-01_rb,3.3111e-01_rb,1.6586e-01_rb/)
+      kbo(:, 2,30, 8) = (/ &
+     &2.8170e-01_rb,4.2849e-01_rb,4.3945e-01_rb,3.9159e-01_rb,1.7645e-01_rb/)
+      kbo(:, 3,30, 8) = (/ &
+     &3.8386e-01_rb,5.3939e-01_rb,5.3663e-01_rb,4.6240e-01_rb,1.8797e-01_rb/)
+      kbo(:, 4,30, 8) = (/ &
+     &5.0944e-01_rb,6.6904e-01_rb,6.4909e-01_rb,5.4342e-01_rb,2.0032e-01_rb/)
+      kbo(:, 5,30, 8) = (/ &
+     &6.6110e-01_rb,8.1719e-01_rb,7.7645e-01_rb,6.3464e-01_rb,2.1343e-01_rb/)
+      kbo(:, 1,31, 8) = (/ &
+     &2.1457e-01_rb,3.4491e-01_rb,3.5799e-01_rb,3.2199e-01_rb,1.4677e-01_rb/)
+      kbo(:, 2,31, 8) = (/ &
+     &3.0025e-01_rb,4.4295e-01_rb,4.4440e-01_rb,3.8528e-01_rb,1.5733e-01_rb/)
+      kbo(:, 3,31, 8) = (/ &
+     &4.0706e-01_rb,5.5909e-01_rb,5.4635e-01_rb,4.5932e-01_rb,1.6888e-01_rb/)
+      kbo(:, 4,31, 8) = (/ &
+     &5.3865e-01_rb,6.9458e-01_rb,6.6400e-01_rb,5.4394e-01_rb,1.8129e-01_rb/)
+      kbo(:, 5,31, 8) = (/ &
+     &6.9836e-01_rb,8.4979e-01_rb,7.9754e-01_rb,6.3956e-01_rb,1.9424e-01_rb/)
+      kbo(:, 1,32, 8) = (/ &
+     &2.3301e-01_rb,3.6002e-01_rb,3.6447e-01_rb,3.1806e-01_rb,1.3061e-01_rb/)
+      kbo(:, 2,32, 8) = (/ &
+     &3.2391e-01_rb,4.6378e-01_rb,4.5628e-01_rb,3.8494e-01_rb,1.4116e-01_rb/)
+      kbo(:, 3,32, 8) = (/ &
+     &4.3762e-01_rb,5.8716e-01_rb,5.6420e-01_rb,4.6300e-01_rb,1.5266e-01_rb/)
+      kbo(:, 4,32, 8) = (/ &
+     &5.7844e-01_rb,7.3058e-01_rb,6.8894e-01_rb,5.5249e-01_rb,1.6489e-01_rb/)
+      kbo(:, 5,32, 8) = (/ &
+     &7.5012e-01_rb,8.9521e-01_rb,8.3056e-01_rb,6.5369e-01_rb,1.7758e-01_rb/)
+      kbo(:, 1,33, 8) = (/ &
+     &2.5790e-01_rb,3.8312e-01_rb,3.7883e-01_rb,3.2071e-01_rb,1.1691e-01_rb/)
+      kbo(:, 2,33, 8) = (/ &
+     &3.5669e-01_rb,4.9524e-01_rb,4.7746e-01_rb,3.9236e-01_rb,1.2744e-01_rb/)
+      kbo(:, 3,33, 8) = (/ &
+     &4.8068e-01_rb,6.2777e-01_rb,5.9359e-01_rb,4.7601e-01_rb,1.3874e-01_rb/)
+      kbo(:, 4,33, 8) = (/ &
+     &6.3465e-01_rb,7.8244e-01_rb,7.2784e-01_rb,5.7215e-01_rb,1.5065e-01_rb/)
+      kbo(:, 5,33, 8) = (/ &
+     &8.2463e-01_rb,9.6158e-01_rb,8.8094e-01_rb,6.8112e-01_rb,1.6290e-01_rb/)
+      kbo(:, 1,34, 8) = (/ &
+     &2.7501e-01_rb,3.9928e-01_rb,3.8789e-01_rb,3.2093e-01_rb,1.0495e-01_rb/)
+      kbo(:, 2,34, 8) = (/ &
+     &3.7955e-01_rb,5.1722e-01_rb,4.9202e-01_rb,3.9633e-01_rb,1.1524e-01_rb/)
+      kbo(:, 3,34, 8) = (/ &
+     &5.1074e-01_rb,6.5671e-01_rb,6.1416e-01_rb,4.8473e-01_rb,1.2623e-01_rb/)
+      kbo(:, 4,34, 8) = (/ &
+     &6.7545e-01_rb,8.2065e-01_rb,7.5592e-01_rb,5.8631e-01_rb,1.3772e-01_rb/)
+      kbo(:, 5,34, 8) = (/ &
+     &8.8010e-01_rb,1.0115e+00_rb,9.1893e-01_rb,7.0176e-01_rb,1.4967e-01_rb/)
+      kbo(:, 1,35, 8) = (/ &
+     &2.8491e-01_rb,4.0792e-01_rb,3.9124e-01_rb,3.1768e-01_rb,9.3815e-02_rb/)
+      kbo(:, 2,35, 8) = (/ &
+     &3.9304e-01_rb,5.3008e-01_rb,4.9917e-01_rb,3.9612e-01_rb,1.0372e-01_rb/)
+      kbo(:, 3,35, 8) = (/ &
+     &5.3059e-01_rb,6.7569e-01_rb,6.2665e-01_rb,4.8824e-01_rb,1.1431e-01_rb/)
+      kbo(:, 4,35, 8) = (/ &
+     &7.0463e-01_rb,8.4744e-01_rb,7.7517e-01_rb,5.9483e-01_rb,1.2547e-01_rb/)
+      kbo(:, 5,35, 8) = (/ &
+     &9.2289e-01_rb,1.0490e+00_rb,9.4773e-01_rb,7.1638e-01_rb,1.3729e-01_rb/)
+      kbo(:, 1,36, 8) = (/ &
+     &2.8335e-01_rb,4.0444e-01_rb,3.8444e-01_rb,3.0785e-01_rb,8.3181e-02_rb/)
+      kbo(:, 2,36, 8) = (/ &
+     &3.9231e-01_rb,5.2837e-01_rb,4.9425e-01_rb,3.8787e-01_rb,9.2674e-02_rb/)
+      kbo(:, 3,36, 8) = (/ &
+     &5.3277e-01_rb,6.7716e-01_rb,6.2485e-01_rb,4.8257e-01_rb,1.0284e-01_rb/)
+      kbo(:, 4,36, 8) = (/ &
+     &7.1164e-01_rb,8.5400e-01_rb,7.7825e-01_rb,5.9239e-01_rb,1.1370e-01_rb/)
+      kbo(:, 5,36, 8) = (/ &
+     &9.3841e-01_rb,1.0634e+00_rb,9.5733e-01_rb,7.1881e-01_rb,1.2521e-01_rb/)
+      kbo(:, 1,37, 8) = (/ &
+     &2.6099e-01_rb,3.7794e-01_rb,3.5839e-01_rb,2.8510e-01_rb,7.2608e-02_rb/)
+      kbo(:, 2,37, 8) = (/ &
+     &3.6453e-01_rb,4.9803e-01_rb,4.6544e-01_rb,3.6354e-01_rb,8.1599e-02_rb/)
+      kbo(:, 3,37, 8) = (/ &
+     &4.9925e-01_rb,6.4313e-01_rb,5.9376e-01_rb,4.5692e-01_rb,9.1324e-02_rb/)
+      kbo(:, 4,37, 8) = (/ &
+     &6.7318e-01_rb,8.1735e-01_rb,7.4579e-01_rb,5.6616e-01_rb,1.0177e-01_rb/)
+      kbo(:, 5,37, 8) = (/ &
+     &8.9497e-01_rb,1.0258e+00_rb,9.2402e-01_rb,6.9303e-01_rb,1.1300e-01_rb/)
+      kbo(:, 1,38, 8) = (/ &
+     &2.4331e-01_rb,3.5651e-01_rb,3.3705e-01_rb,2.6611e-01_rb,6.3364e-02_rb/)
+      kbo(:, 2,38, 8) = (/ &
+     &3.4315e-01_rb,4.7401e-01_rb,4.4240e-01_rb,3.4349e-01_rb,7.1841e-02_rb/)
+      kbo(:, 3,38, 8) = (/ &
+     &4.7415e-01_rb,6.1710e-01_rb,5.6959e-01_rb,4.3645e-01_rb,8.1122e-02_rb/)
+      kbo(:, 4,38, 8) = (/ &
+     &6.4535e-01_rb,7.9084e-01_rb,7.2136e-01_rb,5.4612e-01_rb,9.1255e-02_rb/)
+      kbo(:, 5,38, 8) = (/ &
+     &8.6575e-01_rb,1.0005e+00_rb,9.0147e-01_rb,6.7461e-01_rb,1.0216e-01_rb/)
+      kbo(:, 1,39, 8) = (/ &
+     &2.3205e-01_rb,3.4217e-01_rb,3.2219e-01_rb,2.5204e-01_rb,5.5366e-02_rb/)
+      kbo(:, 2,39, 8) = (/ &
+     &3.3051e-01_rb,4.5923e-01_rb,4.2752e-01_rb,3.2956e-01_rb,6.3325e-02_rb/)
+      kbo(:, 3,39, 8) = (/ &
+     &4.6126e-01_rb,6.0310e-01_rb,5.5564e-01_rb,4.2338e-01_rb,7.2166e-02_rb/)
+      kbo(:, 4,39, 8) = (/ &
+     &6.3405e-01_rb,7.7976e-01_rb,7.0985e-01_rb,5.3501e-01_rb,8.2008e-02_rb/)
+      kbo(:, 5,39, 8) = (/ &
+     &8.5903e-01_rb,9.9488e-01_rb,8.9458e-01_rb,6.6726e-01_rb,9.2704e-02_rb/)
+      kbo(:, 1,40, 8) = (/ &
+     &2.0024e-01_rb,3.0416e-01_rb,2.8720e-01_rb,2.2448e-01_rb,4.7646e-02_rb/)
+      kbo(:, 2,40, 8) = (/ &
+     &2.8846e-01_rb,4.1256e-01_rb,3.8572e-01_rb,2.9759e-01_rb,5.5021e-02_rb/)
+      kbo(:, 3,40, 8) = (/ &
+     &4.0740e-01_rb,5.4726e-01_rb,5.0694e-01_rb,3.8698e-01_rb,6.3373e-02_rb/)
+      kbo(:, 4,40, 8) = (/ &
+     &5.6679e-01_rb,7.1454e-01_rb,6.5407e-01_rb,4.9457e-01_rb,7.2804e-02_rb/)
+      kbo(:, 5,40, 8) = (/ &
+     &7.7703e-01_rb,9.2066e-01_rb,8.3239e-01_rb,6.2266e-01_rb,8.3210e-02_rb/)
+      kbo(:, 1,41, 8) = (/ &
+     &1.7113e-01_rb,2.6826e-01_rb,2.5417e-01_rb,1.9867e-01_rb,4.0876e-02_rb/)
+      kbo(:, 2,41, 8) = (/ &
+     &2.4978e-01_rb,3.6831e-01_rb,3.4599e-01_rb,2.6723e-01_rb,4.7680e-02_rb/)
+      kbo(:, 3,41, 8) = (/ &
+     &3.5705e-01_rb,4.9395e-01_rb,4.5991e-01_rb,3.5185e-01_rb,5.5528e-02_rb/)
+      kbo(:, 4,41, 8) = (/ &
+     &5.0326e-01_rb,6.5160e-01_rb,5.9993e-01_rb,4.5499e-01_rb,6.4535e-02_rb/)
+      kbo(:, 5,41, 8) = (/ &
+     &6.9778e-01_rb,8.4752e-01_rb,7.7088e-01_rb,5.7861e-01_rb,7.4659e-02_rb/)
+      kbo(:, 1,42, 8) = (/ &
+     &1.4736e-01_rb,2.3782e-01_rb,2.2594e-01_rb,1.7650e-01_rb,3.4992e-02_rb/)
+      kbo(:, 2,42, 8) = (/ &
+     &2.1817e-01_rb,3.3087e-01_rb,3.1198e-01_rb,2.4105e-01_rb,4.1263e-02_rb/)
+      kbo(:, 3,42, 8) = (/ &
+     &3.1590e-01_rb,4.4893e-01_rb,4.1987e-01_rb,3.2183e-01_rb,4.8631e-02_rb/)
+      kbo(:, 4,42, 8) = (/ &
+     &4.5063e-01_rb,5.9836e-01_rb,5.5343e-01_rb,4.2092e-01_rb,5.7226e-02_rb/)
+      kbo(:, 5,42, 8) = (/ &
+     &6.3264e-01_rb,7.8621e-01_rb,7.1837e-01_rb,5.4085e-01_rb,6.7074e-02_rb/)
+      kbo(:, 1,43, 8) = (/ &
+     &1.2471e-01_rb,2.0767e-01_rb,1.9765e-01_rb,1.5433e-01_rb,2.9617e-02_rb/)
+      kbo(:, 2,43, 8) = (/ &
+     &1.8736e-01_rb,2.9309e-01_rb,2.7736e-01_rb,2.1438e-01_rb,3.5333e-02_rb/)
+      kbo(:, 3,43, 8) = (/ &
+     &2.7561e-01_rb,4.0307e-01_rb,3.7854e-01_rb,2.9057e-01_rb,4.2142e-02_rb/)
+      kbo(:, 4,43, 8) = (/ &
+     &3.9834e-01_rb,5.4356e-01_rb,5.0521e-01_rb,3.8507e-01_rb,5.0246e-02_rb/)
+      kbo(:, 5,43, 8) = (/ &
+     &5.6689e-01_rb,7.2237e-01_rb,6.6289e-01_rb,5.0065e-01_rb,5.9725e-02_rb/)
+      kbo(:, 1,44, 8) = (/ &
+     &1.0535e-01_rb,1.8057e-01_rb,1.7198e-01_rb,1.3418e-01_rb,2.4874e-02_rb/)
+      kbo(:, 2,44, 8) = (/ &
+     &1.6101e-01_rb,2.5912e-01_rb,2.4579e-01_rb,1.8994e-01_rb,3.0018e-02_rb/)
+      kbo(:, 3,44, 8) = (/ &
+     &2.4038e-01_rb,3.6143e-01_rb,3.4064e-01_rb,2.6166e-01_rb,3.6275e-02_rb/)
+      kbo(:, 4,44, 8) = (/ &
+     &3.5302e-01_rb,4.9391e-01_rb,4.6079e-01_rb,3.5170e-01_rb,4.3858e-02_rb/)
+      kbo(:, 5,44, 8) = (/ &
+     &5.0915e-01_rb,6.6446e-01_rb,6.1193e-01_rb,4.6316e-01_rb,5.2911e-02_rb/)
+      kbo(:, 1,45, 8) = (/ &
+     &9.0316e-02_rb,1.5846e-01_rb,1.5081e-01_rb,1.1736e-01_rb,2.0815e-02_rb/)
+      kbo(:, 2,45, 8) = (/ &
+     &1.4022e-01_rb,2.3128e-01_rb,2.1952e-01_rb,1.6935e-01_rb,2.5419e-02_rb/)
+      kbo(:, 3,45, 8) = (/ &
+     &2.1290e-01_rb,3.2756e-01_rb,3.0923e-01_rb,2.3736e-01_rb,3.1129e-02_rb/)
+      kbo(:, 4,45, 8) = (/ &
+     &3.1767e-01_rb,4.5386e-01_rb,4.2443e-01_rb,3.2399e-01_rb,3.8187e-02_rb/)
+      kbo(:, 5,45, 8) = (/ &
+     &4.6514e-01_rb,6.1840e-01_rb,5.7081e-01_rb,4.3233e-01_rb,4.6782e-02_rb/)
+      kbo(:, 1,46, 8) = (/ &
+     &7.6970e-02_rb,1.3789e-01_rb,1.3114e-01_rb,1.0166e-01_rb,1.7264e-02_rb/)
+      kbo(:, 2,46, 8) = (/ &
+     &1.2176e-01_rb,2.0534e-01_rb,1.9482e-01_rb,1.4994e-01_rb,2.1346e-02_rb/)
+      kbo(:, 3,46, 8) = (/ &
+     &1.8790e-01_rb,2.9566e-01_rb,2.7941e-01_rb,2.1415e-01_rb,2.6490e-02_rb/)
+      kbo(:, 4,46, 8) = (/ &
+     &2.8511e-01_rb,4.1574e-01_rb,3.8936e-01_rb,2.9707e-01_rb,3.3007e-02_rb/)
+      kbo(:, 5,46, 8) = (/ &
+     &4.2418e-01_rb,5.7427e-01_rb,5.3095e-01_rb,4.0219e-01_rb,4.1080e-02_rb/)
+      kbo(:, 1,47, 8) = (/ &
+     &6.3210e-02_rb,1.1622e-01_rb,1.1043e-01_rb,8.5380e-02_rb,1.4119e-02_rb/)
+      kbo(:, 2,47, 8) = (/ &
+     &1.0215e-01_rb,1.7705e-01_rb,1.6808e-01_rb,1.2908e-01_rb,1.7662e-02_rb/)
+      kbo(:, 3,47, 8) = (/ &
+     &1.6053e-01_rb,2.5968e-01_rb,2.4579e-01_rb,1.8828e-01_rb,2.2222e-02_rb/)
+      kbo(:, 4,47, 8) = (/ &
+     &2.4774e-01_rb,3.7111e-01_rb,3.4851e-01_rb,2.6604e-01_rb,2.8126e-02_rb/)
+      kbo(:, 5,47, 8) = (/ &
+     &3.7525e-01_rb,5.2022e-01_rb,4.8241e-01_rb,3.6582e-01_rb,3.5589e-02_rb/)
+      kbo(:, 1,48, 8) = (/ &
+     &5.2856e-02_rb,9.8941e-02_rb,9.3700e-02_rb,7.2138e-02_rb,1.1481e-02_rb/)
+      kbo(:, 2,48, 8) = (/ &
+     &8.7380e-02_rb,1.5439e-01_rb,1.4631e-01_rb,1.1192e-01_rb,1.4532e-02_rb/)
+      kbo(:, 3,48, 8) = (/ &
+     &1.4008e-01_rb,2.3111e-01_rb,2.1862e-01_rb,1.6701e-01_rb,1.8538e-02_rb/)
+      kbo(:, 4,48, 8) = (/ &
+     &2.2000e-01_rb,3.3600e-01_rb,3.1573e-01_rb,2.4065e-01_rb,2.3829e-02_rb/)
+      kbo(:, 5,48, 8) = (/ &
+     &3.3939e-01_rb,4.7860e-01_rb,4.4403e-01_rb,3.3641e-01_rb,3.0679e-02_rb/)
+      kbo(:, 1,49, 8) = (/ &
+     &4.5594e-02_rb,8.5787e-02_rb,8.0733e-02_rb,6.1668e-02_rb,9.2832e-03_rb/)
+      kbo(:, 2,49, 8) = (/ &
+     &7.7236e-02_rb,1.3755e-01_rb,1.2964e-01_rb,9.8500e-02_rb,1.1885e-02_rb/)
+      kbo(:, 3,49, 8) = (/ &
+     &1.2646e-01_rb,2.1033e-01_rb,1.9831e-01_rb,1.5059e-01_rb,1.5367e-02_rb/)
+      kbo(:, 4,49, 8) = (/ &
+     &2.0223e-01_rb,3.1150e-01_rb,2.9194e-01_rb,2.2146e-01_rb,2.0076e-02_rb/)
+      kbo(:, 5,49, 8) = (/ &
+     &3.1773e-01_rb,4.5116e-01_rb,4.1757e-01_rb,3.1527e-01_rb,2.6302e-02_rb/)
+      kbo(:, 1,50, 8) = (/ &
+     &3.7552e-02_rb,7.1895e-02_rb,6.7424e-02_rb,5.1302e-02_rb,7.5009e-03_rb/)
+      kbo(:, 2,50, 8) = (/ &
+     &6.5207e-02_rb,1.1840e-01_rb,1.1139e-01_rb,8.4335e-02_rb,9.7205e-03_rb/)
+      kbo(:, 3,50, 8) = (/ &
+     &1.0908e-01_rb,1.8529e-01_rb,1.7464e-01_rb,1.3230e-01_rb,1.2741e-02_rb/)
+      kbo(:, 4,50, 8) = (/ &
+     &1.7795e-01_rb,2.7969e-01_rb,2.6224e-01_rb,1.9866e-01_rb,1.6912e-02_rb/)
+      kbo(:, 5,50, 8) = (/ &
+     &2.8480e-01_rb,4.1182e-01_rb,3.8156e-01_rb,2.8786e-01_rb,2.2557e-02_rb/)
+      kbo(:, 1,51, 8) = (/ &
+     &3.0119e-02_rb,5.9038e-02_rb,5.5227e-02_rb,4.1909e-02_rb,6.0436e-03_rb/)
+      kbo(:, 2,51, 8) = (/ &
+     &5.3723e-02_rb,1.0012e-01_rb,9.4083e-02_rb,7.1011e-02_rb,7.9244e-03_rb/)
+      kbo(:, 3,51, 8) = (/ &
+     &9.1816e-02_rb,1.6026e-01_rb,1.5113e-01_rb,1.1438e-01_rb,1.0530e-02_rb/)
+      kbo(:, 4,51, 8) = (/ &
+     &1.5289e-01_rb,2.4665e-01_rb,2.3169e-01_rb,1.7549e-01_rb,1.4198e-02_rb/)
+      kbo(:, 5,51, 8) = (/ &
+     &2.4923e-01_rb,3.6941e-01_rb,3.4309e-01_rb,2.5907e-01_rb,1.9285e-02_rb/)
+      kbo(:, 1,52, 8) = (/ &
+     &2.4575e-02_rb,4.8862e-02_rb,4.5516e-02_rb,3.4388e-02_rb,4.8448e-03_rb/)
+      kbo(:, 2,52, 8) = (/ &
+     &4.5073e-02_rb,8.5520e-02_rb,8.0105e-02_rb,6.0149e-02_rb,6.4237e-03_rb/)
+      kbo(:, 3,52, 8) = (/ &
+     &7.8951e-02_rb,1.4049e-01_rb,1.3220e-01_rb,9.9732e-02_rb,8.6480e-03_rb/)
+      kbo(:, 4,52, 8) = (/ &
+     &1.3416e-01_rb,2.2067e-01_rb,2.0720e-01_rb,1.5657e-01_rb,1.1852e-02_rb/)
+      kbo(:, 5,52, 8) = (/ &
+     &2.2319e-01_rb,3.3661e-01_rb,3.1253e-01_rb,2.3574e-01_rb,1.6412e-02_rb/)
+      kbo(:, 1,53, 8) = (/ &
+     &2.0612e-02_rb,4.1138e-02_rb,3.8068e-02_rb,2.8547e-02_rb,3.8662e-03_rb/)
+      kbo(:, 2,53, 8) = (/ &
+     &3.9008e-02_rb,7.4441e-02_rb,6.9299e-02_rb,5.1635e-02_rb,5.1786e-03_rb/)
+      kbo(:, 3,53, 8) = (/ &
+     &7.0078e-02_rb,1.2575e-01_rb,1.1775e-01_rb,8.8269e-02_rb,7.0623e-03_rb/)
+      kbo(:, 4,53, 8) = (/ &
+     &1.2164e-01_rb,2.0192e-01_rb,1.8894e-01_rb,1.4209e-01_rb,9.8285e-03_rb/)
+      kbo(:, 5,53, 8) = (/ &
+     &2.0657e-01_rb,3.1414e-01_rb,2.9077e-01_rb,2.1839e-01_rb,1.3889e-02_rb/)
+      kbo(:, 1,54, 8) = (/ &
+     &1.5065e-02_rb,3.1280e-02_rb,2.9021e-02_rb,2.1865e-02_rb,3.0881e-03_rb/)
+      kbo(:, 2,54, 8) = (/ &
+     &2.9415e-02_rb,5.8678e-02_rb,5.4740e-02_rb,4.0841e-02_rb,4.1803e-03_rb/)
+      kbo(:, 3,54, 8) = (/ &
+     &5.4186e-02_rb,1.0195e-01_rb,9.5873e-02_rb,7.1991e-02_rb,5.7700e-03_rb/)
+      kbo(:, 4,54, 8) = (/ &
+     &9.6215e-02_rb,1.6747e-01_rb,1.5763e-01_rb,1.1902e-01_rb,8.1641e-03_rb/)
+      kbo(:, 5,54, 8) = (/ &
+     &1.6671e-01_rb,2.6518e-01_rb,2.4733e-01_rb,1.8663e-01_rb,1.1760e-02_rb/)
+      kbo(:, 1,55, 8) = (/ &
+     &1.0025e-02_rb,2.2183e-02_rb,2.0776e-02_rb,1.5843e-02_rb,2.4606e-03_rb/)
+      kbo(:, 2,55, 8) = (/ &
+     &2.0216e-02_rb,4.3248e-02_rb,4.0605e-02_rb,3.0502e-02_rb,3.3650e-03_rb/)
+      kbo(:, 3,55, 8) = (/ &
+     &3.8225e-02_rb,7.7452e-02_rb,7.3454e-02_rb,5.5488e-02_rb,4.7010e-03_rb/)
+      kbo(:, 4,55, 8) = (/ &
+     &6.9405e-02_rb,1.3019e-01_rb,1.2386e-01_rb,9.4370e-02_rb,6.7604e-03_rb/)
+      kbo(:, 5,55, 8) = (/ &
+     &1.2275e-01_rb,2.0976e-01_rb,1.9836e-01_rb,1.5118e-01_rb,9.9237e-03_rb/)
+      kbo(:, 1,56, 8) = (/ &
+     &6.5953e-03_rb,1.5532e-02_rb,1.4697e-02_rb,1.1369e-02_rb,1.9523e-03_rb/)
+      kbo(:, 2,56, 8) = (/ &
+     &1.3758e-02_rb,3.1499e-02_rb,2.9770e-02_rb,2.2525e-02_rb,2.6931e-03_rb/)
+      kbo(:, 3,56, 8) = (/ &
+     &2.6733e-02_rb,5.8400e-02_rb,5.5794e-02_rb,4.2378e-02_rb,3.8077e-03_rb/)
+      kbo(:, 4,56, 8) = (/ &
+     &4.9676e-02_rb,1.0081e-01_rb,9.6783e-02_rb,7.4327e-02_rb,5.5587e-03_rb/)
+      kbo(:, 5,56, 8) = (/ &
+     &8.9711e-02_rb,1.6544e-01_rb,1.5844e-01_rb,1.2195e-01_rb,8.3185e-03_rb/)
+      kbo(:, 1,57, 8) = (/ &
+     &4.2820e-03_rb,1.0722e-02_rb,1.0258e-02_rb,8.0796e-03_rb,1.5428e-03_rb/)
+      kbo(:, 2,57, 8) = (/ &
+     &9.2544e-03_rb,2.2704e-02_rb,2.1598e-02_rb,1.6468e-02_rb,2.1441e-03_rb/)
+      kbo(:, 3,57, 8) = (/ &
+     &1.8521e-02_rb,4.3686e-02_rb,4.1983e-02_rb,3.2044e-02_rb,3.0664e-03_rb/)
+      kbo(:, 4,57, 8) = (/ &
+     &3.5250e-02_rb,7.7586e-02_rb,7.5143e-02_rb,5.8070e-02_rb,4.5371e-03_rb/)
+      kbo(:, 5,57, 8) = (/ &
+     &6.5084e-02_rb,1.3004e-01_rb,1.2594e-01_rb,9.7902e-02_rb,6.9329e-03_rb/)
+      kbo(:, 1,58, 8) = (/ &
+     &7.3360e-04_rb,2.4101e-03_rb,3.0107e-03_rb,3.3982e-03_rb,1.2193e-03_rb/)
+      kbo(:, 2,58, 8) = (/ &
+     &1.6434e-03_rb,5.3110e-03_rb,6.5569e-03_rb,7.0857e-03_rb,1.7049e-03_rb/)
+      kbo(:, 3,58, 8) = (/ &
+     &3.3887e-03_rb,1.0643e-02_rb,1.3244e-02_rb,1.4263e-02_rb,2.4670e-03_rb/)
+      kbo(:, 4,58, 8) = (/ &
+     &6.6116e-03_rb,1.9492e-02_rb,2.4519e-02_rb,2.6730e-02_rb,3.7032e-03_rb/)
+      kbo(:, 5,58, 8) = (/ &
+     &1.2475e-02_rb,3.3432e-02_rb,4.2135e-02_rb,4.6396e-02_rb,5.7742e-03_rb/)
+      kbo(:, 1,59, 8) = (/ &
+     &6.5322e-04_rb,2.3892e-03_rb,2.8729e-03_rb,2.9916e-03_rb,1.0154e-03_rb/)
+      kbo(:, 2,59, 8) = (/ &
+     &1.4925e-03_rb,5.3944e-03_rb,6.3528e-03_rb,6.2709e-03_rb,1.4376e-03_rb/)
+      kbo(:, 3,59, 8) = (/ &
+     &3.1352e-03_rb,1.1095e-02_rb,1.3136e-02_rb,1.2884e-02_rb,2.1132e-03_rb/)
+      kbo(:, 4,59, 8) = (/ &
+     &6.2265e-03_rb,2.0748e-02_rb,2.4885e-02_rb,2.4670e-02_rb,3.2435e-03_rb/)
+      kbo(:, 5,59, 8) = (/ &
+     &1.1971e-02_rb,3.6140e-02_rb,4.3523e-02_rb,4.3765e-02_rb,5.1685e-03_rb/)
+      kbo(:, 1,13, 9) = (/ &
+     &7.3666e+01_rb,5.5396e+01_rb,3.7129e+01_rb,1.8928e+01_rb,2.0240e+00_rb/)
+      kbo(:, 2,13, 9) = (/ &
+     &1.0840e+02_rb,8.1447e+01_rb,5.4490e+01_rb,2.7556e+01_rb,1.9929e+00_rb/)
+      kbo(:, 3,13, 9) = (/ &
+     &1.5167e+02_rb,1.1389e+02_rb,7.6113e+01_rb,3.8343e+01_rb,1.9601e+00_rb/)
+      kbo(:, 4,13, 9) = (/ &
+     &2.0374e+02_rb,1.5294e+02_rb,1.0214e+02_rb,5.1349e+01_rb,1.9301e+00_rb/)
+      kbo(:, 5,13, 9) = (/ &
+     &2.6449e+02_rb,1.9850e+02_rb,1.3251e+02_rb,6.6525e+01_rb,1.8945e+00_rb/)
+      kbo(:, 1,14, 9) = (/ &
+     &4.2021e+01_rb,3.1664e+01_rb,2.1327e+01_rb,1.1250e+01_rb,2.1001e+00_rb/)
+      kbo(:, 2,14, 9) = (/ &
+     &6.1662e+01_rb,4.6390e+01_rb,3.1123e+01_rb,1.5991e+01_rb,2.0721e+00_rb/)
+      kbo(:, 3,14, 9) = (/ &
+     &8.6125e+01_rb,6.4733e+01_rb,4.3345e+01_rb,2.2004e+01_rb,2.0419e+00_rb/)
+      kbo(:, 4,14, 9) = (/ &
+     &1.1550e+02_rb,8.6758e+01_rb,5.8024e+01_rb,2.9304e+01_rb,2.0094e+00_rb/)
+      kbo(:, 5,14, 9) = (/ &
+     &1.4971e+02_rb,1.1242e+02_rb,7.5125e+01_rb,3.7838e+01_rb,1.9780e+00_rb/)
+      kbo(:, 1,15, 9) = (/ &
+     &2.4325e+01_rb,1.8394e+01_rb,1.2572e+01_rb,7.1971e+00_rb,2.1558e+00_rb/)
+      kbo(:, 2,15, 9) = (/ &
+     &3.5582e+01_rb,2.6831e+01_rb,1.8117e+01_rb,9.7575e+00_rb,2.1305e+00_rb/)
+      kbo(:, 3,15, 9) = (/ &
+     &4.9567e+01_rb,3.7318e+01_rb,2.5078e+01_rb,1.3071e+01_rb,2.1029e+00_rb/)
+      kbo(:, 4,15, 9) = (/ &
+     &6.6327e+01_rb,4.9885e+01_rb,3.3445e+01_rb,1.7135e+01_rb,2.0733e+00_rb/)
+      kbo(:, 5,15, 9) = (/ &
+     &8.5909e+01_rb,6.4569e+01_rb,4.3231e+01_rb,2.1949e+01_rb,2.0415e+00_rb/)
+      kbo(:, 1,16, 9) = (/ &
+     &1.6702e+01_rb,1.2688e+01_rb,8.9156e+00_rb,5.6745e+00_rb,2.1884e+00_rb/)
+      kbo(:, 2,16, 9) = (/ &
+     &2.4341e+01_rb,1.8405e+01_rb,1.2602e+01_rb,7.2943e+00_rb,2.1658e+00_rb/)
+      kbo(:, 3,16, 9) = (/ &
+     &3.3812e+01_rb,2.5504e+01_rb,1.7253e+01_rb,9.4143e+00_rb,2.1418e+00_rb/)
+      kbo(:, 4,16, 9) = (/ &
+     &4.5185e+01_rb,3.4031e+01_rb,2.2894e+01_rb,1.2063e+01_rb,2.1149e+00_rb/)
+      kbo(:, 5,16, 9) = (/ &
+     &5.8502e+01_rb,4.4016e+01_rb,2.9536e+01_rb,1.5253e+01_rb,2.0863e+00_rb/)
+      kbo(:, 1,17, 9) = (/ &
+     &1.1824e+01_rb,9.0729e+00_rb,6.6968e+00_rb,4.8304e+00_rb,2.1968e+00_rb/)
+      kbo(:, 2,17, 9) = (/ &
+     &1.7172e+01_rb,1.3045e+01_rb,9.1828e+00_rb,5.8938e+00_rb,2.1784e+00_rb/)
+      kbo(:, 3,17, 9) = (/ &
+     &2.3815e+01_rb,1.8013e+01_rb,1.2370e+01_rb,7.2830e+00_rb,2.1580e+00_rb/)
+      kbo(:, 4,17, 9) = (/ &
+     &3.1829e+01_rb,2.4018e+01_rb,1.6287e+01_rb,9.0400e+00_rb,2.1352e+00_rb/)
+      kbo(:, 5,17, 9) = (/ &
+     &4.1298e+01_rb,3.1117e+01_rb,2.0970e+01_rb,1.1193e+01_rb,2.1100e+00_rb/)
+      kbo(:, 1,18, 9) = (/ &
+     &8.5582e+00_rb,6.6960e+00_rb,5.3232e+00_rb,4.2870e+00_rb,2.1819e+00_rb/)
+      kbo(:, 2,18, 9) = (/ &
+     &1.2402e+01_rb,9.5125e+00_rb,7.0290e+00_rb,5.0519e+00_rb,2.1680e+00_rb/)
+      kbo(:, 3,18, 9) = (/ &
+     &1.7200e+01_rb,1.3071e+01_rb,9.2389e+00_rb,6.0101e+00_rb,2.1517e+00_rb/)
+      kbo(:, 4,18, 9) = (/ &
+     &2.3032e+01_rb,1.7428e+01_rb,1.2014e+01_rb,7.2086e+00_rb,2.1334e+00_rb/)
+      kbo(:, 5,18, 9) = (/ &
+     &2.9959e+01_rb,2.2618e+01_rb,1.5385e+01_rb,8.6965e+00_rb,2.1122e+00_rb/)
+      kbo(:, 1,19, 9) = (/ &
+     &6.0876e+00_rb,4.9589e+00_rb,4.3617e+00_rb,3.8537e+00_rb,2.1426e+00_rb/)
+      kbo(:, 2,19, 9) = (/ &
+     &8.8178e+00_rb,6.9019e+00_rb,5.5120e+00_rb,4.4148e+00_rb,2.1341e+00_rb/)
+      kbo(:, 3,19, 9) = (/ &
+     &1.2247e+01_rb,9.4065e+00_rb,7.0194e+00_rb,5.0977e+00_rb,2.1226e+00_rb/)
+      kbo(:, 4,19, 9) = (/ &
+     &1.6435e+01_rb,1.2508e+01_rb,8.9285e+00_rb,5.9346e+00_rb,2.1084e+00_rb/)
+      kbo(:, 5,19, 9) = (/ &
+     &2.1395e+01_rb,1.6206e+01_rb,1.1260e+01_rb,6.9507e+00_rb,2.0906e+00_rb/)
+      kbo(:, 1,20, 9) = (/ &
+     &4.7338e+00_rb,4.0618e+00_rb,3.8673e+00_rb,3.5847e+00_rb,2.0812e+00_rb/)
+      kbo(:, 2,20, 9) = (/ &
+     &6.8571e+00_rb,5.5334e+00_rb,4.7582e+00_rb,4.0685e+00_rb,2.0765e+00_rb/)
+      kbo(:, 3,20, 9) = (/ &
+     &9.5336e+00_rb,7.4447e+00_rb,5.9012e+00_rb,4.6250e+00_rb,2.0694e+00_rb/)
+      kbo(:, 4,20, 9) = (/ &
+     &1.2791e+01_rb,9.8219e+00_rb,7.3358e+00_rb,5.2854e+00_rb,2.0598e+00_rb/)
+      kbo(:, 5,20, 9) = (/ &
+     &1.6650e+01_rb,1.2677e+01_rb,9.0899e+00_rb,6.0678e+00_rb,2.0475e+00_rb/)
+      kbo(:, 1,21, 9) = (/ &
+     &3.8172e+00_rb,3.4906e+00_rb,3.5314e+00_rb,3.3393e+00_rb,1.9987e+00_rb/)
+      kbo(:, 2,21, 9) = (/ &
+     &5.5293e+00_rb,4.6505e+00_rb,4.2636e+00_rb,3.7764e+00_rb,1.9988e+00_rb/)
+      kbo(:, 3,21, 9) = (/ &
+     &7.6789e+00_rb,6.1523e+00_rb,5.1831e+00_rb,4.2770e+00_rb,1.9964e+00_rb/)
+      kbo(:, 4,21, 9) = (/ &
+     &1.0301e+01_rb,8.0282e+00_rb,6.3179e+00_rb,4.8454e+00_rb,1.9916e+00_rb/)
+      kbo(:, 5,21, 9) = (/ &
+     &1.3413e+01_rb,1.0296e+01_rb,7.6922e+00_rb,5.4909e+00_rb,1.9849e+00_rb/)
+      kbo(:, 1,22, 9) = (/ &
+     &3.2538e+00_rb,3.1636e+00_rb,3.3083e+00_rb,3.1336e+00_rb,1.8994e+00_rb/)
+      kbo(:, 2,22, 9) = (/ &
+     &4.6904e+00_rb,4.1275e+00_rb,3.9601e+00_rb,3.5392e+00_rb,1.9038e+00_rb/)
+      kbo(:, 3,22, 9) = (/ &
+     &6.4936e+00_rb,5.3647e+00_rb,4.7415e+00_rb,4.0033e+00_rb,1.9062e+00_rb/)
+      kbo(:, 4,22, 9) = (/ &
+     &8.6858e+00_rb,6.9049e+00_rb,5.6919e+00_rb,4.5273e+00_rb,1.9068e+00_rb/)
+      kbo(:, 5,22, 9) = (/ &
+     &1.1287e+01_rb,8.7705e+00_rb,6.8305e+00_rb,5.1089e+00_rb,1.9070e+00_rb/)
+      kbo(:, 1,23, 9) = (/ &
+     &2.7990e+00_rb,2.9004e+00_rb,3.0888e+00_rb,2.9221e+00_rb,1.7866e+00_rb/)
+      kbo(:, 2,23, 9) = (/ &
+     &4.0164e+00_rb,3.7193e+00_rb,3.6884e+00_rb,3.3009e+00_rb,1.7963e+00_rb/)
+      kbo(:, 3,23, 9) = (/ &
+     &5.5385e+00_rb,4.7530e+00_rb,4.3835e+00_rb,3.7336e+00_rb,1.8046e+00_rb/)
+      kbo(:, 4,23, 9) = (/ &
+     &7.3874e+00_rb,6.0323e+00_rb,5.1957e+00_rb,4.2187e+00_rb,1.8111e+00_rb/)
+      kbo(:, 5,23, 9) = (/ &
+     &9.5697e+00_rb,7.5707e+00_rb,6.1486e+00_rb,4.7536e+00_rb,1.8191e+00_rb/)
+      kbo(:, 1,24, 9) = (/ &
+     &2.4093e+00_rb,2.6666e+00_rb,2.8613e+00_rb,2.7031e+00_rb,1.6662e+00_rb/)
+      kbo(:, 2,24, 9) = (/ &
+     &3.4388e+00_rb,3.3672e+00_rb,3.4097e+00_rb,3.0567e+00_rb,1.6812e+00_rb/)
+      kbo(:, 3,24, 9) = (/ &
+     &4.7196e+00_rb,4.2384e+00_rb,4.0418e+00_rb,3.4577e+00_rb,1.6956e+00_rb/)
+      kbo(:, 4,24, 9) = (/ &
+     &6.2610e+00_rb,5.2923e+00_rb,4.7542e+00_rb,3.9053e+00_rb,1.7103e+00_rb/)
+      kbo(:, 5,24, 9) = (/ &
+     &8.0725e+00_rb,6.5459e+00_rb,5.5528e+00_rb,4.3943e+00_rb,1.7280e+00_rb/)
+      kbo(:, 1,25, 9) = (/ &
+     &2.1093e+00_rb,2.4777e+00_rb,2.6576e+00_rb,2.5025e+00_rb,1.5428e+00_rb/)
+      kbo(:, 2,25, 9) = (/ &
+     &2.9902e+00_rb,3.0964e+00_rb,3.1653e+00_rb,2.8347e+00_rb,1.5643e+00_rb/)
+      kbo(:, 3,25, 9) = (/ &
+     &4.0768e+00_rb,3.8394e+00_rb,3.7463e+00_rb,3.2106e+00_rb,1.5865e+00_rb/)
+      kbo(:, 4,25, 9) = (/ &
+     &5.3785e+00_rb,4.7237e+00_rb,4.3881e+00_rb,3.6281e+00_rb,1.6115e+00_rb/)
+      kbo(:, 5,25, 9) = (/ &
+     &6.9128e+00_rb,5.7727e+00_rb,5.0863e+00_rb,4.0788e+00_rb,1.6376e+00_rb/)
+      kbo(:, 1,26, 9) = (/ &
+     &1.8856e+00_rb,2.3262e+00_rb,2.4875e+00_rb,2.3287e+00_rb,1.4224e+00_rb/)
+      kbo(:, 2,26, 9) = (/ &
+     &2.6493e+00_rb,2.8890e+00_rb,2.9641e+00_rb,2.6458e+00_rb,1.4515e+00_rb/)
+      kbo(:, 3,26, 9) = (/ &
+     &3.5871e+00_rb,3.5368e+00_rb,3.5013e+00_rb,3.0021e+00_rb,1.4824e+00_rb/)
+      kbo(:, 4,26, 9) = (/ &
+     &4.7140e+00_rb,4.3024e+00_rb,4.0862e+00_rb,3.3950e+00_rb,1.5166e+00_rb/)
+      kbo(:, 5,26, 9) = (/ &
+     &6.0446e+00_rb,5.2045e+00_rb,4.7238e+00_rb,3.8145e+00_rb,1.5518e+00_rb/)
+      kbo(:, 1,27, 9) = (/ &
+     &1.7455e+00_rb,2.2279e+00_rb,2.3691e+00_rb,2.1938e+00_rb,1.3093e+00_rb/)
+      kbo(:, 2,27, 9) = (/ &
+     &2.4331e+00_rb,2.7544e+00_rb,2.8270e+00_rb,2.5043e+00_rb,1.3459e+00_rb/)
+      kbo(:, 3,27, 9) = (/ &
+     &3.2766e+00_rb,3.3516e+00_rb,3.3333e+00_rb,2.8520e+00_rb,1.3862e+00_rb/)
+      kbo(:, 4,27, 9) = (/ &
+     &4.2923e+00_rb,4.0432e+00_rb,3.8852e+00_rb,3.2303e+00_rb,1.4289e+00_rb/)
+      kbo(:, 5,27, 9) = (/ &
+     &5.4942e+00_rb,4.8565e+00_rb,4.4878e+00_rb,3.6320e+00_rb,1.4726e+00_rb/)
+      kbo(:, 1,28, 9) = (/ &
+     &1.6557e+00_rb,2.1623e+00_rb,2.2857e+00_rb,2.0892e+00_rb,1.2058e+00_rb/)
+      kbo(:, 2,28, 9) = (/ &
+     &2.2924e+00_rb,2.6651e+00_rb,2.7290e+00_rb,2.3996e+00_rb,1.2506e+00_rb/)
+      kbo(:, 3,28, 9) = (/ &
+     &3.0749e+00_rb,3.2332e+00_rb,3.2167e+00_rb,2.7436e+00_rb,1.2996e+00_rb/)
+      kbo(:, 4,28, 9) = (/ &
+     &4.0186e+00_rb,3.8816e+00_rb,3.7505e+00_rb,3.1131e+00_rb,1.3503e+00_rb/)
+      kbo(:, 5,28, 9) = (/ &
+     &5.1433e+00_rb,4.6442e+00_rb,4.3346e+00_rb,3.5087e+00_rb,1.4023e+00_rb/)
+      kbo(:, 1,29, 9) = (/ &
+     &1.6682e+00_rb,2.1786e+00_rb,2.2786e+00_rb,2.0447e+00_rb,1.1144e+00_rb/)
+      kbo(:, 2,29, 9) = (/ &
+     &2.2981e+00_rb,2.6823e+00_rb,2.7239e+00_rb,2.3673e+00_rb,1.1675e+00_rb/)
+      kbo(:, 3,29, 9) = (/ &
+     &3.0738e+00_rb,3.2536e+00_rb,3.2170e+00_rb,2.7185e+00_rb,1.2244e+00_rb/)
+      kbo(:, 4,29, 9) = (/ &
+     &4.0119e+00_rb,3.9041e+00_rb,3.7595e+00_rb,3.0962e+00_rb,1.2824e+00_rb/)
+      kbo(:, 5,29, 9) = (/ &
+     &5.1340e+00_rb,4.6678e+00_rb,4.3550e+00_rb,3.5038e+00_rb,1.3425e+00_rb/)
+      kbo(:, 1,30, 9) = (/ &
+     &1.7221e+00_rb,2.2297e+00_rb,2.3038e+00_rb,2.0342e+00_rb,1.0364e+00_rb/)
+      kbo(:, 2,30, 9) = (/ &
+     &2.3632e+00_rb,2.7462e+00_rb,2.7611e+00_rb,2.3703e+00_rb,1.0967e+00_rb/)
+      kbo(:, 3,30, 9) = (/ &
+     &3.1545e+00_rb,3.3332e+00_rb,3.2697e+00_rb,2.7338e+00_rb,1.1597e+00_rb/)
+      kbo(:, 4,30, 9) = (/ &
+     &4.1176e+00_rb,4.0031e+00_rb,3.8327e+00_rb,3.1282e+00_rb,1.2250e+00_rb/)
+      kbo(:, 5,30, 9) = (/ &
+     &5.2710e+00_rb,4.7910e+00_rb,4.4538e+00_rb,3.5548e+00_rb,1.2942e+00_rb/)
+      kbo(:, 1,31, 9) = (/ &
+     &1.8733e+00_rb,2.3643e+00_rb,2.4037e+00_rb,2.0831e+00_rb,9.7071e-01_rb/)
+      kbo(:, 2,31, 9) = (/ &
+     &2.5621e+00_rb,2.9163e+00_rb,2.8917e+00_rb,2.4413e+00_rb,1.0371e+00_rb/)
+      kbo(:, 3,31, 9) = (/ &
+     &3.4185e+00_rb,3.5458e+00_rb,3.4392e+00_rb,2.8321e+00_rb,1.1068e+00_rb/)
+      kbo(:, 4,31, 9) = (/ &
+     &4.4630e+00_rb,4.2725e+00_rb,4.0472e+00_rb,3.2583e+00_rb,1.1813e+00_rb/)
+      kbo(:, 5,31, 9) = (/ &
+     &5.7201e+00_rb,5.1339e+00_rb,4.7206e+00_rb,3.7217e+00_rb,1.2572e+00_rb/)
+      kbo(:, 1,32, 9) = (/ &
+     &2.0653e+00_rb,2.5337e+00_rb,2.5386e+00_rb,2.1600e+00_rb,9.1680e-01_rb/)
+      kbo(:, 2,32, 9) = (/ &
+     &2.8216e+00_rb,3.1306e+00_rb,3.0669e+00_rb,2.5463e+00_rb,9.8936e-01_rb/)
+      kbo(:, 3,32, 9) = (/ &
+     &3.7648e+00_rb,3.8151e+00_rb,3.6619e+00_rb,2.9702e+00_rb,1.0685e+00_rb/)
+      kbo(:, 4,32, 9) = (/ &
+     &4.9201e+00_rb,4.6180e+00_rb,4.3259e+00_rb,3.4358e+00_rb,1.1502e+00_rb/)
+      kbo(:, 5,32, 9) = (/ &
+     &6.3088e+00_rb,5.5739e+00_rb,5.0619e+00_rb,3.9444e+00_rb,1.2333e+00_rb/)
+      kbo(:, 1,33, 9) = (/ &
+     &2.3272e+00_rb,2.7583e+00_rb,2.7254e+00_rb,2.2760e+00_rb,8.7514e-01_rb/)
+      kbo(:, 2,33, 9) = (/ &
+     &3.1779e+00_rb,3.4161e+00_rb,3.3066e+00_rb,2.6982e+00_rb,9.5639e-01_rb/)
+      kbo(:, 3,33, 9) = (/ &
+     &4.2411e+00_rb,4.1786e+00_rb,3.9626e+00_rb,3.1651e+00_rb,1.0431e+00_rb/)
+      kbo(:, 4,33, 9) = (/ &
+     &5.5462e+00_rb,5.0836e+00_rb,4.6978e+00_rb,3.6805e+00_rb,1.1309e+00_rb/)
+      kbo(:, 5,33, 9) = (/ &
+     &7.1174e+00_rb,6.1675e+00_rb,5.5124e+00_rb,4.2455e+00_rb,1.2216e+00_rb/)
+      kbo(:, 1,34, 9) = (/ &
+     &2.5377e+00_rb,2.9389e+00_rb,2.8782e+00_rb,2.3730e+00_rb,8.4364e-01_rb/)
+      kbo(:, 2,34, 9) = (/ &
+     &3.4681e+00_rb,3.6495e+00_rb,3.5041e+00_rb,2.8278e+00_rb,9.3211e-01_rb/)
+      kbo(:, 3,34, 9) = (/ &
+     &4.6355e+00_rb,4.4791e+00_rb,4.2141e+00_rb,3.3332e+00_rb,1.0240e+00_rb/)
+      kbo(:, 4,34, 9) = (/ &
+     &6.0678e+00_rb,5.4727e+00_rb,5.0128e+00_rb,3.8930e+00_rb,1.1193e+00_rb/)
+      kbo(:, 5,34, 9) = (/ &
+     &7.8056e+00_rb,6.6744e+00_rb,5.8925e+00_rb,4.5074e+00_rb,1.2154e+00_rb/)
+      kbo(:, 1,35, 9) = (/ &
+     &2.6973e+00_rb,3.0775e+00_rb,2.9953e+00_rb,2.4483e+00_rb,8.1381e-01_rb/)
+      kbo(:, 2,35, 9) = (/ &
+     &3.6991e+00_rb,3.8360e+00_rb,3.6636e+00_rb,2.9345e+00_rb,9.0760e-01_rb/)
+      kbo(:, 3,35, 9) = (/ &
+     &4.9601e+00_rb,4.7300e+00_rb,4.4278e+00_rb,3.4777e+00_rb,1.0051e+00_rb/)
+      kbo(:, 4,35, 9) = (/ &
+     &6.5186e+00_rb,5.8127e+00_rb,5.2832e+00_rb,4.0814e+00_rb,1.1048e+00_rb/)
+      kbo(:, 5,35, 9) = (/ &
+     &8.4126e+00_rb,7.1259e+00_rb,6.2273e+00_rb,4.7423e+00_rb,1.2066e+00_rb/)
+      kbo(:, 1,36, 9) = (/ &
+     &2.7598e+00_rb,3.1389e+00_rb,3.0464e+00_rb,2.4794e+00_rb,7.8185e-01_rb/)
+      kbo(:, 2,36, 9) = (/ &
+     &3.8096e+00_rb,3.9341e+00_rb,3.7503e+00_rb,2.9909e+00_rb,8.7896e-01_rb/)
+      kbo(:, 3,36, 9) = (/ &
+     &5.1379e+00_rb,4.8766e+00_rb,4.5549e+00_rb,3.5652e+00_rb,9.8107e-01_rb/)
+      kbo(:, 4,36, 9) = (/ &
+     &6.7937e+00_rb,6.0302e+00_rb,5.4578e+00_rb,4.2069e+00_rb,1.0852e+00_rb/)
+      kbo(:, 5,36, 9) = (/ &
+     &8.8141e+00_rb,7.4326e+00_rb,6.4589e+00_rb,4.9083e+00_rb,1.1912e+00_rb/)
+      kbo(:, 1,37, 9) = (/ &
+     &2.6230e+00_rb,3.0408e+00_rb,2.9596e+00_rb,2.4124e+00_rb,7.3962e-01_rb/)
+      kbo(:, 2,37, 9) = (/ &
+     &3.6580e+00_rb,3.8393e+00_rb,3.6702e+00_rb,2.9331e+00_rb,8.3992e-01_rb/)
+      kbo(:, 3,37, 9) = (/ &
+     &4.9824e+00_rb,4.7866e+00_rb,4.4878e+00_rb,3.5210e+00_rb,9.4491e-01_rb/)
+      kbo(:, 4,37, 9) = (/ &
+     &6.6454e+00_rb,5.9484e+00_rb,5.4110e+00_rb,4.1812e+00_rb,1.0538e+00_rb/)
+      kbo(:, 5,37, 9) = (/ &
+     &8.6934e+00_rb,7.3704e+00_rb,6.4379e+00_rb,4.9067e+00_rb,1.1625e+00_rb/)
+      kbo(:, 1,38, 9) = (/ &
+     &2.5251e+00_rb,2.9721e+00_rb,2.8975e+00_rb,2.3630e+00_rb,7.0093e-01_rb/)
+      kbo(:, 2,38, 9) = (/ &
+     &3.5600e+00_rb,3.7826e+00_rb,3.6219e+00_rb,2.8967e+00_rb,8.0383e-01_rb/)
+      kbo(:, 3,38, 9) = (/ &
+     &4.9004e+00_rb,4.7489e+00_rb,4.4611e+00_rb,3.5032e+00_rb,9.1176e-01_rb/)
+      kbo(:, 4,38, 9) = (/ &
+     &6.5939e+00_rb,5.9343e+00_rb,5.4149e+00_rb,4.1893e+00_rb,1.0245e+00_rb/)
+      kbo(:, 5,38, 9) = (/ &
+     &8.7067e+00_rb,7.4030e+00_rb,6.4798e+00_rb,4.9449e+00_rb,1.1358e+00_rb/)
+      kbo(:, 1,39, 9) = (/ &
+     &2.4904e+00_rb,2.9537e+00_rb,2.8793e+00_rb,2.3443e+00_rb,6.6673e-01_rb/)
+      kbo(:, 2,39, 9) = (/ &
+     &3.5509e+00_rb,3.7917e+00_rb,3.6298e+00_rb,2.8981e+00_rb,7.7181e-01_rb/)
+      kbo(:, 3,39, 9) = (/ &
+     &4.9392e+00_rb,4.7973e+00_rb,4.5055e+00_rb,3.5337e+00_rb,8.8209e-01_rb/)
+      kbo(:, 4,39, 9) = (/ &
+     &6.7119e+00_rb,6.0406e+00_rb,5.5079e+00_rb,4.2551e+00_rb,9.9828e-01_rb/)
+      kbo(:, 5,39, 9) = (/ &
+     &8.9447e+00_rb,7.5957e+00_rb,6.6321e+00_rb,5.0544e+00_rb,1.1121e+00_rb/)
+      kbo(:, 1,40, 9) = (/ &
+     &2.2209e+00_rb,2.7364e+00_rb,2.6885e+00_rb,2.2038e+00_rb,6.2428e-01_rb/)
+      kbo(:, 2,40, 9) = (/ &
+     &3.2135e+00_rb,3.5469e+00_rb,3.4206e+00_rb,2.7501e+00_rb,7.3025e-01_rb/)
+      kbo(:, 3,40, 9) = (/ &
+     &4.5302e+00_rb,4.5210e+00_rb,4.2832e+00_rb,3.3810e+00_rb,8.4222e-01_rb/)
+      kbo(:, 4,40, 9) = (/ &
+     &6.2335e+00_rb,5.7214e+00_rb,5.2769e+00_rb,4.1014e+00_rb,9.6000e-01_rb/)
+      kbo(:, 5,40, 9) = (/ &
+     &8.4037e+00_rb,7.2349e+00_rb,6.3985e+00_rb,4.9070e+00_rb,1.0766e+00_rb/)
+      kbo(:, 1,41, 9) = (/ &
+     &1.9647e+00_rb,2.5201e+00_rb,2.4974e+00_rb,2.0614e+00_rb,5.8325e-01_rb/)
+      kbo(:, 2,41, 9) = (/ &
+     &2.8852e+00_rb,3.2999e+00_rb,3.2081e+00_rb,2.5978e+00_rb,6.8959e-01_rb/)
+      kbo(:, 3,41, 9) = (/ &
+     &4.1243e+00_rb,4.2421e+00_rb,4.0540e+00_rb,3.2221e+00_rb,8.0263e-01_rb/)
+      kbo(:, 4,41, 9) = (/ &
+     &5.7517e+00_rb,5.3978e+00_rb,5.0364e+00_rb,3.9392e+00_rb,9.2181e-01_rb/)
+      kbo(:, 5,41, 9) = (/ &
+     &7.8523e+00_rb,6.8657e+00_rb,6.1521e+00_rb,4.7480e+00_rb,1.0405e+00_rb/)
+      kbo(:, 1,42, 9) = (/ &
+     &1.7512e+00_rb,2.3349e+00_rb,2.3318e+00_rb,1.9366e+00_rb,5.4463e-01_rb/)
+      kbo(:, 2,42, 9) = (/ &
+     &2.6144e+00_rb,3.0905e+00_rb,3.0258e+00_rb,2.4663e+00_rb,6.5106e-01_rb/)
+      kbo(:, 3,42, 9) = (/ &
+     &3.7920e+00_rb,4.0117e+00_rb,3.8605e+00_rb,3.0859e+00_rb,7.6489e-01_rb/)
+      kbo(:, 4,42, 9) = (/ &
+     &5.3603e+00_rb,5.1368e+00_rb,4.8392e+00_rb,3.8039e+00_rb,8.8471e-01_rb/)
+      kbo(:, 5,42, 9) = (/ &
+     &7.4143e+00_rb,6.5758e+00_rb,5.9582e+00_rb,4.6208e+00_rb,1.0054e+00_rb/)
+      kbo(:, 1,43, 9) = (/ &
+     &1.5310e+00_rb,2.1360e+00_rb,2.1508e+00_rb,1.7978e+00_rb,5.0265e-01_rb/)
+      kbo(:, 2,43, 9) = (/ &
+     &2.3335e+00_rb,2.8636e+00_rb,2.8240e+00_rb,2.3172e+00_rb,6.0791e-01_rb/)
+      kbo(:, 3,43, 9) = (/ &
+     &3.4398e+00_rb,3.7600e+00_rb,3.6428e+00_rb,2.9301e+00_rb,7.2170e-01_rb/)
+      kbo(:, 4,43, 9) = (/ &
+     &4.9392e+00_rb,4.8535e+00_rb,4.6142e+00_rb,3.6458e+00_rb,8.4218e-01_rb/)
+      kbo(:, 5,43, 9) = (/ &
+     &6.9338e+00_rb,6.2557e+00_rb,5.7358e+00_rb,4.4687e+00_rb,9.6366e-01_rb/)
+      kbo(:, 1,44, 9) = (/ &
+     &1.3351e+00_rb,1.9503e+00_rb,1.9789e+00_rb,1.6632e+00_rb,4.6023e-01_rb/)
+      kbo(:, 2,44, 9) = (/ &
+     &2.0772e+00_rb,2.6507e+00_rb,2.6321e+00_rb,2.1724e+00_rb,5.6381e-01_rb/)
+      kbo(:, 3,44, 9) = (/ &
+     &3.1248e+00_rb,3.5269e+00_rb,3.4366e+00_rb,2.7797e+00_rb,6.7693e-01_rb/)
+      kbo(:, 4,44, 9) = (/ &
+     &4.5611e+00_rb,4.5989e+00_rb,4.4033e+00_rb,3.4949e+00_rb,7.9737e-01_rb/)
+      kbo(:, 5,44, 9) = (/ &
+     &6.5042e+00_rb,5.9719e+00_rb,5.5317e+00_rb,4.3254e+00_rb,9.1937e-01_rb/)
+      kbo(:, 1,45, 9) = (/ &
+     &1.1794e+00_rb,1.7969e+00_rb,1.8343e+00_rb,1.5476e+00_rb,4.2007e-01_rb/)
+      kbo(:, 2,45, 9) = (/ &
+     &1.8762e+00_rb,2.4795e+00_rb,2.4742e+00_rb,2.0501e+00_rb,5.2163e-01_rb/)
+      kbo(:, 3,45, 9) = (/ &
+     &2.8809e+00_rb,3.3442e+00_rb,3.2721e+00_rb,2.6566e+00_rb,6.3409e-01_rb/)
+      kbo(:, 4,45, 9) = (/ &
+     &4.2825e+00_rb,4.4131e+00_rb,4.2443e+00_rb,3.3788e+00_rb,7.5354e-01_rb/)
+      kbo(:, 5,45, 9) = (/ &
+     &6.2077e+00_rb,5.7830e+00_rb,5.3934e+00_rb,4.2249e+00_rb,8.7651e-01_rb/)
+      kbo(:, 1,46, 9) = (/ &
+     &1.0327e+00_rb,1.6453e+00_rb,1.6900e+00_rb,1.4307e+00_rb,3.8001e-01_rb/)
+      kbo(:, 2,46, 9) = (/ &
+     &1.6840e+00_rb,2.3071e+00_rb,2.3154e+00_rb,1.9251e+00_rb,4.7892e-01_rb/)
+      kbo(:, 3,46, 9) = (/ &
+     &2.6449e+00_rb,3.1623e+00_rb,3.1054e+00_rb,2.5294e+00_rb,5.8968e-01_rb/)
+      kbo(:, 4,46, 9) = (/ &
+     &4.0149e+00_rb,4.2299e+00_rb,4.0828e+00_rb,3.2577e+00_rb,7.0805e-01_rb/)
+      kbo(:, 5,46, 9) = (/ &
+     &5.9211e+00_rb,5.5984e+00_rb,5.2528e+00_rb,4.1223e+00_rb,8.3110e-01_rb/)
+      kbo(:, 1,47, 9) = (/ &
+     &8.6791e-01_rb,1.4650e+00_rb,1.5175e+00_rb,1.2909e+00_rb,3.3829e-01_rb/)
+      kbo(:, 2,47, 9) = (/ &
+     &1.4548e+00_rb,2.0919e+00_rb,2.1155e+00_rb,1.7684e+00_rb,4.3374e-01_rb/)
+      kbo(:, 3,47, 9) = (/ &
+     &2.3437e+00_rb,2.9171e+00_rb,2.8820e+00_rb,2.3592e+00_rb,5.4146e-01_rb/)
+      kbo(:, 4,47, 9) = (/ &
+     &3.6410e+00_rb,3.9658e+00_rb,3.8455e+00_rb,3.0807e+00_rb,6.5808e-01_rb/)
+      kbo(:, 5,47, 9) = (/ &
+     &5.4757e+00_rb,5.2982e+00_rb,5.0168e+00_rb,3.9488e+00_rb,7.8042e-01_rb/)
+      kbo(:, 1,48, 9) = (/ &
+     &7.4197e-01_rb,1.3175e+00_rb,1.3727e+00_rb,1.1710e+00_rb,2.9912e-01_rb/)
+      kbo(:, 2,48, 9) = (/ &
+     &1.2795e+00_rb,1.9175e+00_rb,1.9504e+00_rb,1.6359e+00_rb,3.9088e-01_rb/)
+      kbo(:, 3,48, 9) = (/ &
+     &2.1163e+00_rb,2.7243e+00_rb,2.7026e+00_rb,2.2191e+00_rb,4.9535e-01_rb/)
+      kbo(:, 4,48, 9) = (/ &
+     &3.3685e+00_rb,3.7692e+00_rb,3.6648e+00_rb,2.9415e+00_rb,6.0991e-01_rb/)
+      kbo(:, 5,48, 9) = (/ &
+     &5.1784e+00_rb,5.1043e+00_rb,4.8553e+00_rb,3.8227e+00_rb,7.3131e-01_rb/)
+      kbo(:, 1,49, 9) = (/ &
+     &6.5229e-01_rb,1.2051e+00_rb,1.2591e+00_rb,1.0738e+00_rb,2.6269e-01_rb/)
+      kbo(:, 2,49, 9) = (/ &
+     &1.1591e+00_rb,1.7908e+00_rb,1.8269e+00_rb,1.5329e+00_rb,3.5032e-01_rb/)
+      kbo(:, 3,49, 9) = (/ &
+     &1.9719e+00_rb,2.5959e+00_rb,2.5784e+00_rb,2.1177e+00_rb,4.5127e-01_rb/)
+      kbo(:, 4,49, 9) = (/ &
+     &3.2176e+00_rb,3.6617e+00_rb,3.5592e+00_rb,2.8538e+00_rb,5.6309e-01_rb/)
+      kbo(:, 5,49, 9) = (/ &
+     &5.0660e+00_rb,5.0444e+00_rb,4.7964e+00_rb,3.7669e+00_rb,6.8298e-01_rb/)
+      kbo(:, 1,50, 9) = (/ &
+     &5.4718e-01_rb,1.0700e+00_rb,1.1242e+00_rb,9.6269e-01_rb,2.3041e-01_rb/)
+      kbo(:, 2,50, 9) = (/ &
+     &1.0029e+00_rb,1.6230e+00_rb,1.6660e+00_rb,1.4048e+00_rb,3.1350e-01_rb/)
+      kbo(:, 3,50, 9) = (/ &
+     &1.7557e+00_rb,2.3977e+00_rb,2.3952e+00_rb,1.9754e+00_rb,4.1052e-01_rb/)
+      kbo(:, 4,50, 9) = (/ &
+     &2.9398e+00_rb,3.4467e+00_rb,3.3608e+00_rb,2.7053e+00_rb,5.1916e-01_rb/)
+      kbo(:, 5,50, 9) = (/ &
+     &4.7374e+00_rb,4.8217e+00_rb,4.6033e+00_rb,3.6228e+00_rb,6.3755e-01_rb/)
+      kbo(:, 1,51, 9) = (/ &
+     &4.4659e-01_rb,9.3305e-01_rb,9.8713e-01_rb,8.5042e-01_rb,2.0131e-01_rb/)
+      kbo(:, 2,51, 9) = (/ &
+     &8.4503e-01_rb,1.4458e+00_rb,1.4962e+00_rb,1.2698e+00_rb,2.7950e-01_rb/)
+      kbo(:, 3,51, 9) = (/ &
+     &1.5227e+00_rb,2.1776e+00_rb,2.1908e+00_rb,1.8185e+00_rb,3.7211e-01_rb/)
+      kbo(:, 4,51, 9) = (/ &
+     &2.6197e+00_rb,3.1878e+00_rb,3.1271e+00_rb,2.5305e+00_rb,4.7775e-01_rb/)
+      kbo(:, 5,51, 9) = (/ &
+     &4.3246e+00_rb,4.5333e+00_rb,4.3504e+00_rb,3.4392e+00_rb,5.9331e-01_rb/)
+      kbo(:, 1,52, 9) = (/ &
+     &3.7000e-01_rb,8.2088e-01_rb,8.7232e-01_rb,7.5398e-01_rb,1.7473e-01_rb/)
+      kbo(:, 2,52, 9) = (/ &
+     &7.2411e-01_rb,1.3013e+00_rb,1.3548e+00_rb,1.1545e+00_rb,2.4775e-01_rb/)
+      kbo(:, 3,52, 9) = (/ &
+     &1.3455e+00_rb,2.0001e+00_rb,2.0236e+00_rb,1.6871e+00_rb,3.3555e-01_rb/)
+      kbo(:, 4,52, 9) = (/ &
+     &2.3815e+00_rb,2.9886e+00_rb,2.9408e+00_rb,2.3888e+00_rb,4.3798e-01_rb/)
+      kbo(:, 5,52, 9) = (/ &
+     &4.0315e+00_rb,4.3264e+00_rb,4.1654e+00_rb,3.2990e+00_rb,5.5079e-01_rb/)
+      kbo(:, 1,53, 9) = (/ &
+     &3.1522e-01_rb,7.3236e-01_rb,7.7935e-01_rb,6.7369e-01_rb,1.5034e-01_rb/)
+      kbo(:, 2,53, 9) = (/ &
+     &6.3787e-01_rb,1.1908e+00_rb,1.2433e+00_rb,1.0610e+00_rb,2.1835e-01_rb/)
+      kbo(:, 3,53, 9) = (/ &
+     &1.2250e+00_rb,1.8717e+00_rb,1.8985e+00_rb,1.5852e+00_rb,3.0124e-01_rb/)
+      kbo(:, 4,53, 9) = (/ &
+     &2.2328e+00_rb,2.8593e+00_rb,2.8149e+00_rb,2.2876e+00_rb,3.9993e-01_rb/)
+      kbo(:, 5,53, 9) = (/ &
+     &3.8806e+00_rb,4.2255e+00_rb,4.0654e+00_rb,3.2164e+00_rb,5.0965e-01_rb/)
+      kbo(:, 1,54, 9) = (/ &
+     &2.3422e-01_rb,6.0076e-01_rb,6.4671e-01_rb,5.6503e-01_rb,1.2928e-01_rb/)
+      kbo(:, 2,54, 9) = (/ &
+     &4.9005e-01_rb,1.0010e+00_rb,1.0587e+00_rb,9.1460e-01_rb,1.9217e-01_rb/)
+      kbo(:, 3,54, 9) = (/ &
+     &9.7166e-01_rb,1.6014e+00_rb,1.6473e+00_rb,1.3943e+00_rb,2.7068e-01_rb/)
+      kbo(:, 4,54, 9) = (/ &
+     &1.8237e+00_rb,2.4909e+00_rb,2.4828e+00_rb,2.0443e+00_rb,3.6438e-01_rb/)
+      kbo(:, 5,54, 9) = (/ &
+     &3.2575e+00_rb,3.7456e+00_rb,3.6419e+00_rb,2.9148e+00_rb,4.7112e-01_rb/)
+      kbo(:, 1,55, 9) = (/ &
+     &1.5838e-01_rb,4.6639e-01_rb,5.1049e-01_rb,4.5411e-01_rb,1.1083e-01_rb/)
+      kbo(:, 2,55, 9) = (/ &
+     &3.4306e-01_rb,7.9590e-01_rb,8.5878e-01_rb,7.5589e-01_rb,1.6856e-01_rb/)
+      kbo(:, 3,55, 9) = (/ &
+     &7.0266e-01_rb,1.2949e+00_rb,1.3605e+00_rb,1.1760e+00_rb,2.4233e-01_rb/)
+      kbo(:, 4,55, 9) = (/ &
+     &1.3593e+00_rb,2.0439e+00_rb,2.0790e+00_rb,1.7490e+00_rb,3.3108e-01_rb/)
+      kbo(:, 5,55, 9) = (/ &
+     &2.4959e+00_rb,3.1221e+00_rb,3.0894e+00_rb,2.5235e+00_rb,4.3367e-01_rb/)
+      kbo(:, 1,56, 9) = (/ &
+     &1.0564e-01_rb,3.5968e-01_rb,4.0062e-01_rb,3.6250e-01_rb,9.4093e-02_rb/)
+      kbo(:, 2,56, 9) = (/ &
+     &2.3778e-01_rb,6.3076e-01_rb,6.9353e-01_rb,6.2192e-01_rb,1.4691e-01_rb/)
+      kbo(:, 3,56, 9) = (/ &
+     &5.0289e-01_rb,1.0440e+00_rb,1.1212e+00_rb,9.8957e-01_rb,2.1564e-01_rb/)
+      kbo(:, 4,56, 9) = (/ &
+     &1.0047e+00_rb,1.6731e+00_rb,1.7388e+00_rb,1.4948e+00_rb,2.9947e-01_rb/)
+      kbo(:, 5,56, 9) = (/ &
+     &1.8976e+00_rb,2.5969e+00_rb,2.6179e+00_rb,2.1832e+00_rb,3.9803e-01_rb/)
+      kbo(:, 1,57, 9) = (/ &
+     &6.9404e-02_rb,2.7490e-01_rb,3.1190e-01_rb,2.8693e-01_rb,7.9174e-02_rb/)
+      kbo(:, 2,57, 9) = (/ &
+     &1.6275e-01_rb,4.9714e-01_rb,5.5717e-01_rb,5.0875e-01_rb,1.2713e-01_rb/)
+      kbo(:, 3,57, 9) = (/ &
+     &3.5620e-01_rb,8.3998e-01_rb,9.2115e-01_rb,8.2990e-01_rb,1.9063e-01_rb/)
+      kbo(:, 4,57, 9) = (/ &
+     &7.3515e-01_rb,1.3656e+00_rb,1.4515e+00_rb,1.2750e+00_rb,2.6981e-01_rb/)
+      kbo(:, 5,57, 9) = (/ &
+     &1.4305e+00_rb,2.1547e+00_rb,2.2152e+00_rb,1.8869e+00_rb,3.6361e-01_rb/)
+      kbo(:, 1,58, 9) = (/ &
+     &1.2018e-02_rb,6.8819e-02_rb,1.0253e-01_rb,1.3454e-01_rb,6.6409e-02_rb/)
+      kbo(:, 2,58, 9) = (/ &
+     &2.9376e-02_rb,1.2869e-01_rb,1.8932e-01_rb,2.4688e-01_rb,1.0988e-01_rb/)
+      kbo(:, 3,58, 9) = (/ &
+     &6.6678e-02_rb,2.2200e-01_rb,3.2071e-01_rb,4.1332e-01_rb,1.6852e-01_rb/)
+      kbo(:, 4,58, 9) = (/ &
+     &1.4218e-01_rb,3.6629e-01_rb,5.1309e-01_rb,6.4691e-01_rb,2.4300e-01_rb/)
+      kbo(:, 5,58, 9) = (/ &
+     &2.8506e-01_rb,5.8551e-01_rb,7.9229e-01_rb,9.6816e-01_rb,3.3198e-01_rb/)
+      kbo(:, 1,59, 9) = (/ &
+     &1.0974e-02_rb,7.7674e-02_rb,1.1174e-01_rb,1.3484e-01_rb,6.0877e-02_rb/)
+      kbo(:, 2,59, 9) = (/ &
+     &2.7572e-02_rb,1.4726e-01_rb,2.0947e-01_rb,2.5117e-01_rb,1.0237e-01_rb/)
+      kbo(:, 3,59, 9) = (/ &
+     &6.4218e-02_rb,2.5542e-01_rb,3.5789e-01_rb,4.2487e-01_rb,1.5885e-01_rb/)
+      kbo(:, 4,59, 9) = (/ &
+     &1.3998e-01_rb,4.2159e-01_rb,5.7382e-01_rb,6.6846e-01_rb,2.3069e-01_rb/)
+      kbo(:, 5,59, 9) = (/ &
+     &2.8653e-01_rb,6.7350e-01_rb,8.8507e-01_rb,9.9974e-01_rb,3.1701e-01_rb/)
+      kbo(:, 1,13,10) = (/ &
+     &3.0887e+02_rb,2.3182e+02_rb,1.5477e+02_rb,7.7734e+01_rb,3.2340e+00_rb/)
+      kbo(:, 2,13,10) = (/ &
+     &4.5010e+02_rb,3.3773e+02_rb,2.2537e+02_rb,1.1301e+02_rb,3.1679e+00_rb/)
+      kbo(:, 3,13,10) = (/ &
+     &6.1970e+02_rb,4.6492e+02_rb,3.1014e+02_rb,1.5536e+02_rb,3.1118e+00_rb/)
+      kbo(:, 4,13,10) = (/ &
+     &8.1413e+02_rb,6.1074e+02_rb,4.0734e+02_rb,2.0395e+02_rb,3.0351e+00_rb/)
+      kbo(:, 5,13,10) = (/ &
+     &1.0345e+03_rb,7.7604e+02_rb,5.1753e+02_rb,2.5903e+02_rb,2.9847e+00_rb/)
+      kbo(:, 1,14,10) = (/ &
+     &1.8722e+02_rb,1.4057e+02_rb,9.3932e+01_rb,4.7308e+01_rb,3.5502e+00_rb/)
+      kbo(:, 2,14,10) = (/ &
+     &2.7007e+02_rb,2.0269e+02_rb,1.3533e+02_rb,6.7970e+01_rb,3.4874e+00_rb/)
+      kbo(:, 3,14,10) = (/ &
+     &3.6889e+02_rb,2.7681e+02_rb,1.8473e+02_rb,9.2654e+01_rb,3.4323e+00_rb/)
+      kbo(:, 4,14,10) = (/ &
+     &4.8380e+02_rb,3.6298e+02_rb,2.4217e+02_rb,1.2136e+02_rb,3.3766e+00_rb/)
+      kbo(:, 5,14,10) = (/ &
+     &6.1384e+02_rb,4.6051e+02_rb,3.0717e+02_rb,1.5385e+02_rb,3.3022e+00_rb/)
+      kbo(:, 1,15,10) = (/ &
+     &1.1327e+02_rb,8.5100e+01_rb,5.6942e+01_rb,2.8827e+01_rb,3.8722e+00_rb/)
+      kbo(:, 2,15,10) = (/ &
+     &1.6194e+02_rb,1.2160e+02_rb,8.1262e+01_rb,4.0948e+01_rb,3.8151e+00_rb/)
+      kbo(:, 3,15,10) = (/ &
+     &2.2047e+02_rb,1.6549e+02_rb,1.1051e+02_rb,5.5552e+01_rb,3.7597e+00_rb/)
+      kbo(:, 4,15,10) = (/ &
+     &2.8853e+02_rb,2.1653e+02_rb,1.4453e+02_rb,7.2538e+01_rb,3.6967e+00_rb/)
+      kbo(:, 5,15,10) = (/ &
+     &3.6531e+02_rb,2.7411e+02_rb,1.8291e+02_rb,9.1708e+01_rb,3.6313e+00_rb/)
+      kbo(:, 1,16,10) = (/ &
+     &8.0065e+01_rb,6.0189e+01_rb,4.0328e+01_rb,2.0552e+01_rb,4.2109e+00_rb/)
+      kbo(:, 2,16,10) = (/ &
+     &1.1401e+02_rb,8.5639e+01_rb,5.7279e+01_rb,2.8971e+01_rb,4.1507e+00_rb/)
+      kbo(:, 3,16,10) = (/ &
+     &1.5472e+02_rb,1.1617e+02_rb,7.7619e+01_rb,3.9099e+01_rb,4.0906e+00_rb/)
+      kbo(:, 4,16,10) = (/ &
+     &2.0197e+02_rb,1.5160e+02_rb,1.0123e+02_rb,5.0878e+01_rb,4.0252e+00_rb/)
+      kbo(:, 5,16,10) = (/ &
+     &2.5492e+02_rb,1.9130e+02_rb,1.2769e+02_rb,6.4095e+01_rb,3.9532e+00_rb/)
+      kbo(:, 1,17,10) = (/ &
+     &5.7968e+01_rb,4.3609e+01_rb,2.9277e+01_rb,1.5223e+01_rb,4.5287e+00_rb/)
+      kbo(:, 2,17,10) = (/ &
+     &8.2190e+01_rb,6.1765e+01_rb,4.1354e+01_rb,2.1049e+01_rb,4.4713e+00_rb/)
+      kbo(:, 3,17,10) = (/ &
+     &1.1116e+02_rb,8.3481e+01_rb,5.5816e+01_rb,2.8216e+01_rb,4.4079e+00_rb/)
+      kbo(:, 4,17,10) = (/ &
+     &1.4447e+02_rb,1.0846e+02_rb,7.2459e+01_rb,3.6495e+01_rb,4.3339e+00_rb/)
+      kbo(:, 5,17,10) = (/ &
+     &1.8168e+02_rb,1.3637e+02_rb,9.1060e+01_rb,4.5781e+01_rb,4.2592e+00_rb/)
+      kbo(:, 1,18,10) = (/ &
+     &4.2612e+01_rb,3.2081e+01_rb,2.1612e+01_rb,1.2271e+01_rb,4.8071e+00_rb/)
+      kbo(:, 2,18,10) = (/ &
+     &6.0147e+01_rb,4.5223e+01_rb,3.0329e+01_rb,1.5934e+01_rb,4.7499e+00_rb/)
+      kbo(:, 3,18,10) = (/ &
+     &8.0941e+01_rb,6.0812e+01_rb,4.0702e+01_rb,2.0761e+01_rb,4.6797e+00_rb/)
+      kbo(:, 4,18,10) = (/ &
+     &1.0473e+02_rb,7.8652e+01_rb,5.2586e+01_rb,2.6600e+01_rb,4.6080e+00_rb/)
+      kbo(:, 5,18,10) = (/ &
+     &1.3143e+02_rb,9.8677e+01_rb,6.5930e+01_rb,3.3232e+01_rb,4.5353e+00_rb/)
+      kbo(:, 1,19,10) = (/ &
+     &3.0448e+01_rb,2.2951e+01_rb,1.5620e+01_rb,1.0168e+01_rb,5.0350e+00_rb/)
+      kbo(:, 2,19,10) = (/ &
+     &4.2741e+01_rb,3.2162e+01_rb,2.1658e+01_rb,1.2576e+01_rb,4.9712e+00_rb/)
+      kbo(:, 3,19,10) = (/ &
+     &5.7239e+01_rb,4.3029e+01_rb,2.8857e+01_rb,1.5561e+01_rb,4.9060e+00_rb/)
+      kbo(:, 4,19,10) = (/ &
+     &7.3990e+01_rb,5.5595e+01_rb,3.7227e+01_rb,1.9263e+01_rb,4.8462e+00_rb/)
+      kbo(:, 5,19,10) = (/ &
+     &9.3283e+01_rb,7.0062e+01_rb,4.6859e+01_rb,2.3820e+01_rb,4.7826e+00_rb/)
+      kbo(:, 1,20,10) = (/ &
+     &2.3494e+01_rb,1.7742e+01_rb,1.2645e+01_rb,9.3657e+00_rb,5.1974e+00_rb/)
+      kbo(:, 2,20,10) = (/ &
+     &3.2767e+01_rb,2.4679e+01_rb,1.6836e+01_rb,1.0930e+01_rb,5.1468e+00_rb/)
+      kbo(:, 3,20,10) = (/ &
+     &4.3805e+01_rb,3.2955e+01_rb,2.2186e+01_rb,1.3029e+01_rb,5.0951e+00_rb/)
+      kbo(:, 4,20,10) = (/ &
+     &5.6900e+01_rb,4.2771e+01_rb,2.8686e+01_rb,1.5712e+01_rb,5.0360e+00_rb/)
+      kbo(:, 5,20,10) = (/ &
+     &7.2009e+01_rb,5.4098e+01_rb,3.6220e+01_rb,1.9012e+01_rb,4.9716e+00_rb/)
+      kbo(:, 1,21,10) = (/ &
+     &1.8574e+01_rb,1.4067e+01_rb,1.0798e+01_rb,9.1144e+00_rb,5.2989e+00_rb/)
+      kbo(:, 2,21,10) = (/ &
+     &2.5833e+01_rb,1.9488e+01_rb,1.3882e+01_rb,1.0250e+01_rb,5.2602e+00_rb/)
+      kbo(:, 3,21,10) = (/ &
+     &3.4706e+01_rb,2.6128e+01_rb,1.7872e+01_rb,1.1627e+01_rb,5.2166e+00_rb/)
+      kbo(:, 4,21,10) = (/ &
+     &4.5183e+01_rb,3.3979e+01_rb,2.2895e+01_rb,1.3514e+01_rb,5.1658e+00_rb/)
+      kbo(:, 5,21,10) = (/ &
+     &5.7162e+01_rb,4.2958e+01_rb,2.8816e+01_rb,1.5946e+01_rb,5.1078e+00_rb/)
+      kbo(:, 1,22,10) = (/ &
+     &1.5385e+01_rb,1.1760e+01_rb,9.8072e+00_rb,8.9715e+00_rb,5.3316e+00_rb/)
+      kbo(:, 2,22,10) = (/ &
+     &2.1421e+01_rb,1.6187e+01_rb,1.2154e+01_rb,1.0019e+01_rb,5.3065e+00_rb/)
+      kbo(:, 3,22,10) = (/ &
+     &2.8763e+01_rb,2.1675e+01_rb,1.5363e+01_rb,1.1158e+01_rb,5.2767e+00_rb/)
+      kbo(:, 4,22,10) = (/ &
+     &3.7378e+01_rb,2.8123e+01_rb,1.9262e+01_rb,1.2474e+01_rb,5.2393e+00_rb/)
+      kbo(:, 5,22,10) = (/ &
+     &4.7335e+01_rb,3.5583e+01_rb,2.3996e+01_rb,1.4183e+01_rb,5.1848e+00_rb/)
+      kbo(:, 1,23,10) = (/ &
+     &1.2958e+01_rb,1.0148e+01_rb,9.3026e+00_rb,8.7646e+00_rb,5.3174e+00_rb/)
+      kbo(:, 2,23,10) = (/ &
+     &1.8016e+01_rb,1.3712e+01_rb,1.1027e+01_rb,9.7388e+00_rb,5.3065e+00_rb/)
+      kbo(:, 3,23,10) = (/ &
+     &2.4116e+01_rb,1.8203e+01_rb,1.3458e+01_rb,1.0800e+01_rb,5.2863e+00_rb/)
+      kbo(:, 4,23,10) = (/ &
+     &3.1331e+01_rb,2.3589e+01_rb,1.6625e+01_rb,1.1918e+01_rb,5.2605e+00_rb/)
+      kbo(:, 5,23,10) = (/ &
+     &3.9751e+01_rb,2.9901e+01_rb,2.0473e+01_rb,1.3180e+01_rb,5.2164e+00_rb/)
+      kbo(:, 1,24,10) = (/ &
+     &1.0965e+01_rb,8.9178e+00_rb,8.8968e+00_rb,8.4756e+00_rb,5.2609e+00_rb/)
+      kbo(:, 2,24,10) = (/ &
+     &1.5180e+01_rb,1.1787e+01_rb,1.0354e+01_rb,9.3845e+00_rb,5.2622e+00_rb/)
+      kbo(:, 3,24,10) = (/ &
+     &2.0304e+01_rb,1.5418e+01_rb,1.2131e+01_rb,1.0371e+01_rb,5.2552e+00_rb/)
+      kbo(:, 4,24,10) = (/ &
+     &2.6453e+01_rb,1.9955e+01_rb,1.4586e+01_rb,1.1412e+01_rb,5.2428e+00_rb/)
+      kbo(:, 5,24,10) = (/ &
+     &3.3727e+01_rb,2.5409e+01_rb,1.7807e+01_rb,1.2537e+01_rb,5.2080e+00_rb/)
+      kbo(:, 1,25,10) = (/ &
+     &9.4802e+00_rb,8.0678e+00_rb,8.5346e+00_rb,8.1689e+00_rb,5.1602e+00_rb/)
+      kbo(:, 2,25,10) = (/ &
+     &1.3091e+01_rb,1.0412e+01_rb,9.8804e+00_rb,9.0420e+00_rb,5.1798e+00_rb/)
+      kbo(:, 3,25,10) = (/ &
+     &1.7556e+01_rb,1.3502e+01_rb,1.1390e+01_rb,9.9740e+00_rb,5.1919e+00_rb/)
+      kbo(:, 4,25,10) = (/ &
+     &2.2937e+01_rb,1.7389e+01_rb,1.3318e+01_rb,1.0956e+01_rb,5.1855e+00_rb/)
+      kbo(:, 5,25,10) = (/ &
+     &2.9162e+01_rb,2.2007e+01_rb,1.5910e+01_rb,1.2043e+01_rb,5.1753e+00_rb/)
+      kbo(:, 1,26,10) = (/ &
+     &8.4883e+00_rb,7.6029e+00_rb,8.2305e+00_rb,7.8781e+00_rb,5.0300e+00_rb/)
+      kbo(:, 2,26,10) = (/ &
+     &1.1732e+01_rb,9.5611e+00_rb,9.4929e+00_rb,8.7340e+00_rb,5.0703e+00_rb/)
+      kbo(:, 3,26,10) = (/ &
+     &1.5710e+01_rb,1.2274e+01_rb,1.0941e+01_rb,9.6483e+00_rb,5.1008e+00_rb/)
+      kbo(:, 4,26,10) = (/ &
+     &2.0377e+01_rb,1.5577e+01_rb,1.2626e+01_rb,1.0617e+01_rb,5.1143e+00_rb/)
+      kbo(:, 5,26,10) = (/ &
+     &2.5762e+01_rb,1.9497e+01_rb,1.4646e+01_rb,1.1691e+01_rb,5.1337e+00_rb/)
+      kbo(:, 1,27,10) = (/ &
+     &7.9831e+00_rb,7.4657e+00_rb,8.0386e+00_rb,7.6712e+00_rb,4.8762e+00_rb/)
+      kbo(:, 2,27,10) = (/ &
+     &1.1007e+01_rb,9.2258e+00_rb,9.2928e+00_rb,8.5396e+00_rb,4.9402e+00_rb/)
+      kbo(:, 3,27,10) = (/ &
+     &1.4621e+01_rb,1.1594e+01_rb,1.0757e+01_rb,9.4652e+00_rb,4.9915e+00_rb/)
+      kbo(:, 4,27,10) = (/ &
+     &1.8847e+01_rb,1.4547e+01_rb,1.2326e+01_rb,1.0475e+01_rb,5.0304e+00_rb/)
+      kbo(:, 5,27,10) = (/ &
+     &2.3744e+01_rb,1.8045e+01_rb,1.4056e+01_rb,1.1545e+01_rb,5.0808e+00_rb/)
+      kbo(:, 1,28,10) = (/ &
+     &7.7237e+00_rb,7.4713e+00_rb,7.9486e+00_rb,7.5349e+00_rb,4.7172e+00_rb/)
+      kbo(:, 2,28,10) = (/ &
+     &1.0564e+01_rb,9.1113e+00_rb,9.2602e+00_rb,8.4182e+00_rb,4.8066e+00_rb/)
+      kbo(:, 3,28,10) = (/ &
+     &1.3950e+01_rb,1.1225e+01_rb,1.0715e+01_rb,9.3795e+00_rb,4.8773e+00_rb/)
+      kbo(:, 4,28,10) = (/ &
+     &1.7938e+01_rb,1.3957e+01_rb,1.2227e+01_rb,1.0437e+01_rb,4.9557e+00_rb/)
+      kbo(:, 5,28,10) = (/ &
+     &2.2520e+01_rb,1.7201e+01_rb,1.3827e+01_rb,1.1495e+01_rb,5.0256e+00_rb/)
+      kbo(:, 1,29,10) = (/ &
+     &7.9252e+00_rb,7.7575e+00_rb,8.1492e+00_rb,7.5791e+00_rb,4.5608e+00_rb/)
+      kbo(:, 2,29,10) = (/ &
+     &1.0756e+01_rb,9.3871e+00_rb,9.5612e+00_rb,8.5083e+00_rb,4.6721e+00_rb/)
+      kbo(:, 3,29,10) = (/ &
+     &1.4151e+01_rb,1.1455e+01_rb,1.1026e+01_rb,9.5615e+00_rb,4.7742e+00_rb/)
+      kbo(:, 4,29,10) = (/ &
+     &1.8135e+01_rb,1.4153e+01_rb,1.2557e+01_rb,1.0665e+01_rb,4.8851e+00_rb/)
+      kbo(:, 5,29,10) = (/ &
+     &2.2757e+01_rb,1.7409e+01_rb,1.4161e+01_rb,1.1730e+01_rb,4.9738e+00_rb/)
+      kbo(:, 1,30,10) = (/ &
+     &8.3260e+00_rb,8.1445e+00_rb,8.5115e+00_rb,7.7075e+00_rb,4.4112e+00_rb/)
+      kbo(:, 2,30,10) = (/ &
+     &1.1239e+01_rb,9.8059e+00_rb,9.9796e+00_rb,8.7369e+00_rb,4.5506e+00_rb/)
+      kbo(:, 3,30,10) = (/ &
+     &1.4731e+01_rb,1.1916e+01_rb,1.1495e+01_rb,9.8748e+00_rb,4.7011e+00_rb/)
+      kbo(:, 4,30,10) = (/ &
+     &1.8856e+01_rb,1.4710e+01_rb,1.3064e+01_rb,1.1008e+01_rb,4.8328e+00_rb/)
+      kbo(:, 5,30,10) = (/ &
+     &2.3705e+01_rb,1.8124e+01_rb,1.4716e+01_rb,1.2119e+01_rb,4.9257e+00_rb/)
+      kbo(:, 1,31,10) = (/ &
+     &9.2196e+00_rb,8.8116e+00_rb,9.1465e+00_rb,8.0622e+00_rb,4.2873e+00_rb/)
+      kbo(:, 2,31,10) = (/ &
+     &1.2392e+01_rb,1.0607e+01_rb,1.0704e+01_rb,9.2367e+00_rb,4.4733e+00_rb/)
+      kbo(:, 3,31,10) = (/ &
+     &1.6211e+01_rb,1.2983e+01_rb,1.2309e+01_rb,1.0449e+01_rb,4.6511e+00_rb/)
+      kbo(:, 4,31,10) = (/ &
+     &2.0762e+01_rb,1.6100e+01_rb,1.3996e+01_rb,1.1659e+01_rb,4.7878e+00_rb/)
+      kbo(:, 5,31,10) = (/ &
+     &2.6150e+01_rb,1.9908e+01_rb,1.5819e+01_rb,1.2859e+01_rb,4.9198e+00_rb/)
+      kbo(:, 1,32,10) = (/ &
+     &1.0359e+01_rb,9.6137e+00_rb,9.8752e+00_rb,8.5830e+00_rb,4.2174e+00_rb/)
+      kbo(:, 2,32,10) = (/ &
+     &1.3877e+01_rb,1.1631e+01_rb,1.1538e+01_rb,9.8576e+00_rb,4.4285e+00_rb/)
+      kbo(:, 3,32,10) = (/ &
+     &1.8140e+01_rb,1.4380e+01_rb,1.3269e+01_rb,1.1160e+01_rb,4.5970e+00_rb/)
+      kbo(:, 4,32,10) = (/ &
+     &2.3264e+01_rb,1.7927e+01_rb,1.5118e+01_rb,1.2461e+01_rb,4.7493e+00_rb/)
+      kbo(:, 5,32,10) = (/ &
+     &2.9418e+01_rb,2.2303e+01_rb,1.7227e+01_rb,1.3746e+01_rb,4.9087e+00_rb/)
+      kbo(:, 1,33,10) = (/ &
+     &1.1859e+01_rb,1.0640e+01_rb,1.0773e+01_rb,9.2560e+00_rb,4.1651e+00_rb/)
+      kbo(:, 2,33,10) = (/ &
+     &1.5884e+01_rb,1.3011e+01_rb,1.2572e+01_rb,1.0635e+01_rb,4.3715e+00_rb/)
+      kbo(:, 3,33,10) = (/ &
+     &2.0782e+01_rb,1.6260e+01_rb,1.4502e+01_rb,1.2047e+01_rb,4.5449e+00_rb/)
+      kbo(:, 4,33,10) = (/ &
+     &2.6731e+01_rb,2.0436e+01_rb,1.6585e+01_rb,1.3454e+01_rb,4.7445e+00_rb/)
+      kbo(:, 5,33,10) = (/ &
+     &3.3983e+01_rb,2.5659e+01_rb,1.9186e+01_rb,1.4880e+01_rb,4.8947e+00_rb/)
+      kbo(:, 1,34,10) = (/ &
+     &1.3139e+01_rb,1.1513e+01_rb,1.1537e+01_rb,9.8375e+00_rb,4.1077e+00_rb/)
+      kbo(:, 2,34,10) = (/ &
+     &1.7636e+01_rb,1.4225e+01_rb,1.3489e+01_rb,1.1311e+01_rb,4.3160e+00_rb/)
+      kbo(:, 3,34,10) = (/ &
+     &2.3141e+01_rb,1.7962e+01_rb,1.5594e+01_rb,1.2810e+01_rb,4.5443e+00_rb/)
+      kbo(:, 4,34,10) = (/ &
+     &2.9960e+01_rb,2.2778e+01_rb,1.7924e+01_rb,1.4335e+01_rb,4.7397e+00_rb/)
+      kbo(:, 5,34,10) = (/ &
+     &3.8261e+01_rb,2.8825e+01_rb,2.1079e+01_rb,1.5921e+01_rb,4.9149e+00_rb/)
+      kbo(:, 1,35,10) = (/ &
+     &1.4201e+01_rb,1.2261e+01_rb,1.2213e+01_rb,1.0330e+01_rb,4.0399e+00_rb/)
+      kbo(:, 2,35,10) = (/ &
+     &1.9135e+01_rb,1.5305e+01_rb,1.4323e+01_rb,1.1895e+01_rb,4.2894e+00_rb/)
+      kbo(:, 3,35,10) = (/ &
+     &2.5318e+01_rb,1.9545e+01_rb,1.6589e+01_rb,1.3508e+01_rb,4.5397e+00_rb/)
+      kbo(:, 4,35,10) = (/ &
+     &3.3021e+01_rb,2.5025e+01_rb,1.9285e+01_rb,1.5170e+01_rb,4.7565e+00_rb/)
+      kbo(:, 5,35,10) = (/ &
+     &4.2461e+01_rb,3.1954e+01_rb,2.3012e+01_rb,1.6958e+01_rb,4.9332e+00_rb/)
+      kbo(:, 1,36,10) = (/ &
+     &1.4798e+01_rb,1.2717e+01_rb,1.2670e+01_rb,1.0657e+01_rb,3.9724e+00_rb/)
+      kbo(:, 2,36,10) = (/ &
+     &2.0092e+01_rb,1.6016e+01_rb,1.4899e+01_rb,1.2316e+01_rb,4.2681e+00_rb/)
+      kbo(:, 3,36,10) = (/ &
+     &2.6852e+01_rb,2.0677e+01_rb,1.7358e+01_rb,1.4052e+01_rb,4.5368e+00_rb/)
+      kbo(:, 4,36,10) = (/ &
+     &3.5362e+01_rb,2.6747e+01_rb,2.0391e+01_rb,1.5864e+01_rb,4.7528e+00_rb/)
+      kbo(:, 5,36,10) = (/ &
+     &4.5869e+01_rb,3.4503e+01_rb,2.4644e+01_rb,1.7859e+01_rb,4.9480e+00_rb/)
+      kbo(:, 1,37,10) = (/ &
+     &1.4369e+01_rb,1.2549e+01_rb,1.2615e+01_rb,1.0629e+01_rb,3.8875e+00_rb/)
+      kbo(:, 2,37,10) = (/ &
+     &1.9757e+01_rb,1.5840e+01_rb,1.4922e+01_rb,1.2359e+01_rb,4.2086e+00_rb/)
+      kbo(:, 3,37,10) = (/ &
+     &2.6704e+01_rb,2.0605e+01_rb,1.7493e+01_rb,1.4185e+01_rb,4.4864e+00_rb/)
+      kbo(:, 4,37,10) = (/ &
+     &3.5588e+01_rb,2.6935e+01_rb,2.0650e+01_rb,1.6109e+01_rb,4.7274e+00_rb/)
+      kbo(:, 5,37,10) = (/ &
+     &4.6659e+01_rb,3.5099e+01_rb,2.5115e+01_rb,1.8232e+01_rb,4.9396e+00_rb/)
+      kbo(:, 1,38,10) = (/ &
+     &1.4144e+01_rb,1.2516e+01_rb,1.2646e+01_rb,1.0674e+01_rb,3.8121e+00_rb/)
+      kbo(:, 2,38,10) = (/ &
+     &1.9692e+01_rb,1.5869e+01_rb,1.5055e+01_rb,1.2490e+01_rb,4.1526e+00_rb/)
+      kbo(:, 3,38,10) = (/ &
+     &2.6928e+01_rb,2.0800e+01_rb,1.7766e+01_rb,1.4428e+01_rb,4.4461e+00_rb/)
+      kbo(:, 4,38,10) = (/ &
+     &3.6364e+01_rb,2.7528e+01_rb,2.1122e+01_rb,1.6470e+01_rb,4.6931e+00_rb/)
+      kbo(:, 5,38,10) = (/ &
+     &4.8190e+01_rb,3.6248e+01_rb,2.5894e+01_rb,1.8774e+01_rb,4.9281e+00_rb/)
+      kbo(:, 1,39,10) = (/ &
+     &1.4265e+01_rb,1.2699e+01_rb,1.2840e+01_rb,1.0848e+01_rb,3.7413e+00_rb/)
+      kbo(:, 2,39,10) = (/ &
+     &2.0117e+01_rb,1.6218e+01_rb,1.5387e+01_rb,1.2783e+01_rb,4.1060e+00_rb/)
+      kbo(:, 3,39,10) = (/ &
+     &2.7852e+01_rb,2.1494e+01_rb,1.8320e+01_rb,1.4851e+01_rb,4.4149e+00_rb/)
+      kbo(:, 4,39,10) = (/ &
+     &3.8047e+01_rb,2.8782e+01_rb,2.1981e+01_rb,1.7084e+01_rb,4.6584e+00_rb/)
+      kbo(:, 5,39,10) = (/ &
+     &5.1036e+01_rb,3.8378e+01_rb,2.7311e+01_rb,1.9599e+01_rb,4.9209e+00_rb/)
+      kbo(:, 1,40,10) = (/ &
+     &1.3045e+01_rb,1.2072e+01_rb,1.2332e+01_rb,1.0515e+01_rb,3.6349e+00_rb/)
+      kbo(:, 2,40,10) = (/ &
+     &1.8669e+01_rb,1.5342e+01_rb,1.4892e+01_rb,1.2474e+01_rb,4.0124e+00_rb/)
+      kbo(:, 3,40,10) = (/ &
+     &2.6244e+01_rb,2.0390e+01_rb,1.7841e+01_rb,1.4589e+01_rb,4.3337e+00_rb/)
+      kbo(:, 4,40,10) = (/ &
+     &3.6291e+01_rb,2.7528e+01_rb,2.1453e+01_rb,1.6896e+01_rb,4.5936e+00_rb/)
+      kbo(:, 5,40,10) = (/ &
+     &4.9350e+01_rb,3.7123e+01_rb,2.6680e+01_rb,1.9495e+01_rb,4.8667e+00_rb/)
+      kbo(:, 1,41,10) = (/ &
+     &1.1803e+01_rb,1.1439e+01_rb,1.1786e+01_rb,1.0149e+01_rb,3.5171e+00_rb/)
+      kbo(:, 2,41,10) = (/ &
+     &1.7194e+01_rb,1.4495e+01_rb,1.4344e+01_rb,1.2127e+01_rb,3.9113e+00_rb/)
+      kbo(:, 3,41,10) = (/ &
+     &2.4539e+01_rb,1.9243e+01_rb,1.7307e+01_rb,1.4275e+01_rb,4.2454e+00_rb/)
+      kbo(:, 4,41,10) = (/ &
+     &3.4381e+01_rb,2.6175e+01_rb,2.0871e+01_rb,1.6646e+01_rb,4.5236e+00_rb/)
+      kbo(:, 5,41,10) = (/ &
+     &4.7387e+01_rb,3.5674e+01_rb,2.5938e+01_rb,1.9314e+01_rb,4.8021e+00_rb/)
+      kbo(:, 1,42,10) = (/ &
+     &1.0775e+01_rb,1.0903e+01_rb,1.1326e+01_rb,9.8291e+00_rb,3.4027e+00_rb/)
+      kbo(:, 2,42,10) = (/ &
+     &1.5966e+01_rb,1.3847e+01_rb,1.3900e+01_rb,1.1829e+01_rb,3.8068e+00_rb/)
+      kbo(:, 3,42,10) = (/ &
+     &2.3163e+01_rb,1.8350e+01_rb,1.6888e+01_rb,1.4033e+01_rb,4.1524e+00_rb/)
+      kbo(:, 4,42,10) = (/ &
+     &3.2905e+01_rb,2.5146e+01_rb,2.0462e+01_rb,1.6474e+01_rb,4.4507e+00_rb/)
+      kbo(:, 5,42,10) = (/ &
+     &4.5959e+01_rb,3.4632e+01_rb,2.5458e+01_rb,1.9233e+01_rb,4.7372e+00_rb/)
+      kbo(:, 1,43,10) = (/ &
+     &9.6785e+00_rb,1.0293e+01_rb,1.0788e+01_rb,9.4380e+00_rb,3.2651e+00_rb/)
+      kbo(:, 2,43,10) = (/ &
+     &1.4578e+01_rb,1.3133e+01_rb,1.3380e+01_rb,1.1460e+01_rb,3.6820e+00_rb/)
+      kbo(:, 3,43,10) = (/ &
+     &2.1568e+01_rb,1.7343e+01_rb,1.6367e+01_rb,1.3704e+01_rb,4.0432e+00_rb/)
+      kbo(:, 4,43,10) = (/ &
+     &3.1160e+01_rb,2.3941e+01_rb,1.9961e+01_rb,1.6215e+01_rb,4.3540e+00_rb/)
+      kbo(:, 5,43,10) = (/ &
+     &4.4112e+01_rb,3.3295e+01_rb,2.4834e+01_rb,1.9063e+01_rb,4.6487e+00_rb/)
+      kbo(:, 1,44,10) = (/ &
+     &8.6703e+00_rb,9.7103e+00_rb,1.0263e+01_rb,9.0428e+00_rb,3.1167e+00_rb/)
+      kbo(:, 2,44,10) = (/ &
+     &1.3323e+01_rb,1.2507e+01_rb,1.2872e+01_rb,1.1099e+01_rb,3.5429e+00_rb/)
+      kbo(:, 3,44,10) = (/ &
+     &2.0055e+01_rb,1.6451e+01_rb,1.5900e+01_rb,1.3381e+01_rb,3.9213e+00_rb/)
+      kbo(:, 4,44,10) = (/ &
+     &2.9535e+01_rb,2.2835e+01_rb,1.9530e+01_rb,1.5970e+01_rb,4.2481e+00_rb/)
+      kbo(:, 5,44,10) = (/ &
+     &4.2449e+01_rb,3.2099e+01_rb,2.4329e+01_rb,1.8926e+01_rb,4.5571e+00_rb/)
+      kbo(:, 1,45,10) = (/ &
+     &7.8818e+00_rb,9.2454e+00_rb,9.8403e+00_rb,8.7130e+00_rb,2.9638e+00_rb/)
+      kbo(:, 2,45,10) = (/ &
+     &1.2355e+01_rb,1.2035e+01_rb,1.2482e+01_rb,1.0822e+01_rb,3.4038e+00_rb/)
+      kbo(:, 3,45,10) = (/ &
+     &1.8948e+01_rb,1.5842e+01_rb,1.5587e+01_rb,1.3162e+01_rb,3.7919e+00_rb/)
+      kbo(:, 4,45,10) = (/ &
+     &2.8443e+01_rb,2.2122e+01_rb,1.9322e+01_rb,1.5846e+01_rb,4.1405e+00_rb/)
+      kbo(:, 5,45,10) = (/ &
+     &4.1558e+01_rb,3.1475e+01_rb,2.4163e+01_rb,1.8949e+01_rb,4.4650e+00_rb/)
+      kbo(:, 1,46,10) = (/ &
+     &7.1089e+00_rb,8.7733e+00_rb,9.3941e+00_rb,8.3547e+00_rb,2.8054e+00_rb/)
+      kbo(:, 2,46,10) = (/ &
+     &1.1401e+01_rb,1.1562e+01_rb,1.2067e+01_rb,1.0520e+01_rb,3.2536e+00_rb/)
+      kbo(:, 3,46,10) = (/ &
+     &1.7834e+01_rb,1.5248e+01_rb,1.5247e+01_rb,1.2927e+01_rb,3.6528e+00_rb/)
+      kbo(:, 4,46,10) = (/ &
+     &2.7249e+01_rb,2.1375e+01_rb,1.9093e+01_rb,1.5705e+01_rb,4.0192e+00_rb/)
+      kbo(:, 5,46,10) = (/ &
+     &4.0651e+01_rb,3.0866e+01_rb,2.4015e+01_rb,1.8943e+01_rb,4.3574e+00_rb/)
+      kbo(:, 1,47,10) = (/ &
+     &6.1649e+00_rb,8.1403e+00_rb,8.7798e+00_rb,7.8562e+00_rb,2.6253e+00_rb/)
+      kbo(:, 2,47,10) = (/ &
+     &1.0138e+01_rb,1.0874e+01_rb,1.1437e+01_rb,1.0055e+01_rb,3.0768e+00_rb/)
+      kbo(:, 3,47,10) = (/ &
+     &1.6220e+01_rb,1.4389e+01_rb,1.4631e+01_rb,1.2502e+01_rb,3.4927e+00_rb/)
+      kbo(:, 4,47,10) = (/ &
+     &2.5292e+01_rb,2.0083e+01_rb,1.8506e+01_rb,1.5334e+01_rb,3.8713e+00_rb/)
+      kbo(:, 5,47,10) = (/ &
+     &3.8579e+01_rb,2.9419e+01_rb,2.3431e+01_rb,1.8659e+01_rb,4.2295e+00_rb/)
+      kbo(:, 1,48,10) = (/ &
+     &5.4216e+00_rb,7.6284e+00_rb,8.2781e+00_rb,7.4282e+00_rb,2.4448e+00_rb/)
+      kbo(:, 2,48,10) = (/ &
+     &9.1674e+00_rb,1.0353e+01_rb,1.0955e+01_rb,9.6794e+00_rb,2.8941e+00_rb/)
+      kbo(:, 3,48,10) = (/ &
+     &1.5043e+01_rb,1.3839e+01_rb,1.4203e+01_rb,1.2197e+01_rb,3.3245e+00_rb/)
+      kbo(:, 4,48,10) = (/ &
+     &2.3974e+01_rb,1.9288e+01_rb,1.8167e+01_rb,1.5125e+01_rb,3.7165e+00_rb/)
+      kbo(:, 5,48,10) = (/ &
+     &3.7305e+01_rb,2.8554e+01_rb,2.3217e+01_rb,1.8594e+01_rb,4.0932e+00_rb/)
+      kbo(:, 1,49,10) = (/ &
+     &4.8939e+00_rb,7.2548e+00_rb,7.9080e+00_rb,7.0906e+00_rb,2.2660e+00_rb/)
+      kbo(:, 2,49,10) = (/ &
+     &8.5415e+00_rb,1.0039e+01_rb,1.0662e+01_rb,9.4308e+00_rb,2.7166e+00_rb/)
+      kbo(:, 3,49,10) = (/ &
+     &1.4366e+01_rb,1.3618e+01_rb,1.4041e+01_rb,1.2074e+01_rb,3.1539e+00_rb/)
+      kbo(:, 4,49,10) = (/ &
+     &2.3519e+01_rb,1.9097e+01_rb,1.8194e+01_rb,1.5161e+01_rb,3.5625e+00_rb/)
+      kbo(:, 5,49,10) = (/ &
+     &3.7354e+01_rb,2.8637e+01_rb,2.3540e+01_rb,1.8862e+01_rb,3.9655e+00_rb/)
+      kbo(:, 1,50,10) = (/ &
+     &4.2089e+00_rb,6.7050e+00_rb,7.3787e+00_rb,6.6334e+00_rb,2.0951e+00_rb/)
+      kbo(:, 2,50,10) = (/ &
+     &7.5781e+00_rb,9.4477e+00_rb,1.0132e+01_rb,8.9977e+00_rb,2.5467e+00_rb/)
+      kbo(:, 3,50,10) = (/ &
+     &1.3098e+01_rb,1.3002e+01_rb,1.3521e+01_rb,1.1708e+01_rb,2.9888e+00_rb/)
+      kbo(:, 4,50,10) = (/ &
+     &2.2021e+01_rb,1.8246e+01_rb,1.7755e+01_rb,1.4869e+01_rb,3.4160e+00_rb/)
+      kbo(:, 5,50,10) = (/ &
+     &3.5802e+01_rb,2.7586e+01_rb,2.3214e+01_rb,1.8702e+01_rb,3.8321e+00_rb/)
+      kbo(:, 1,51,10) = (/ &
+     &3.5246e+00_rb,6.0952e+00_rb,6.7836e+00_rb,6.1221e+00_rb,1.9285e+00_rb/)
+      kbo(:, 2,51,10) = (/ &
+     &6.5392e+00_rb,8.7579e+00_rb,9.5007e+00_rb,8.4899e+00_rb,2.3790e+00_rb/)
+      kbo(:, 3,51,10) = (/ &
+     &1.1662e+01_rb,1.2207e+01_rb,1.2854e+01_rb,1.1229e+01_rb,2.8289e+00_rb/)
+      kbo(:, 4,51,10) = (/ &
+     &2.0094e+01_rb,1.7146e+01_rb,1.7077e+01_rb,1.4419e+01_rb,3.2637e+00_rb/)
+      kbo(:, 5,51,10) = (/ &
+     &3.3544e+01_rb,2.6031e+01_rb,2.2586e+01_rb,1.8311e+01_rb,3.6955e+00_rb/)
+      kbo(:, 1,52,10) = (/ &
+     &2.9972e+00_rb,5.5809e+00_rb,6.2670e+00_rb,5.6729e+00_rb,1.7637e+00_rb/)
+      kbo(:, 2,52,10) = (/ &
+     &5.7401e+00_rb,8.2025e+00_rb,8.9834e+00_rb,8.0597e+00_rb,2.2115e+00_rb/)
+      kbo(:, 3,52,10) = (/ &
+     &1.0553e+01_rb,1.1618e+01_rb,1.2357e+01_rb,1.0861e+01_rb,2.6710e+00_rb/)
+      kbo(:, 4,52,10) = (/ &
+     &1.8666e+01_rb,1.6392e+01_rb,1.6645e+01_rb,1.4126e+01_rb,3.1091e+00_rb/)
+      kbo(:, 5,52,10) = (/ &
+     &3.2058e+01_rb,2.5069e+01_rb,2.2259e+01_rb,1.8128e+01_rb,3.5578e+00_rb/)
+      kbo(:, 1,53,10) = (/ &
+     &2.6079e+00_rb,5.1734e+00_rb,5.8449e+00_rb,5.2987e+00_rb,1.6026e+00_rb/)
+      kbo(:, 2,53,10) = (/ &
+     &5.1862e+00_rb,7.8030e+00_rb,8.6055e+00_rb,7.7246e+00_rb,2.0456e+00_rb/)
+      kbo(:, 3,53,10) = (/ &
+     &9.8254e+00_rb,1.1267e+01_rb,1.2065e+01_rb,1.0633e+01_rb,2.5075e+00_rb/)
+      kbo(:, 4,53,10) = (/ &
+     &1.7902e+01_rb,1.6069e+01_rb,1.6506e+01_rb,1.4053e+01_rb,2.9528e+00_rb/)
+      kbo(:, 5,53,10) = (/ &
+     &3.1626e+01_rb,2.4842e+01_rb,2.2382e+01_rb,1.8272e+01_rb,3.4166e+00_rb/)
+      kbo(:, 1,54,10) = (/ &
+     &1.9692e+00_rb,4.4492e+00_rb,5.0971e+00_rb,4.6730e+00_rb,1.4560e+00_rb/)
+      kbo(:, 2,54,10) = (/ &
+     &4.0777e+00_rb,6.8483e+00_rb,7.6942e+00_rb,6.9748e+00_rb,1.8918e+00_rb/)
+      kbo(:, 3,54,10) = (/ &
+     &7.9636e+00_rb,1.0044e+01_rb,1.0960e+01_rb,9.7978e+00_rb,2.3486e+00_rb/)
+      kbo(:, 4,54,10) = (/ &
+     &1.4982e+01_rb,1.4434e+01_rb,1.5164e+01_rb,1.3125e+01_rb,2.8028e+00_rb/)
+      kbo(:, 5,54,10) = (/ &
+     &2.7158e+01_rb,2.1902e+01_rb,2.0733e+01_rb,1.7211e+01_rb,3.2543e+00_rb/)
+      kbo(:, 1,55,10) = (/ &
+     &1.3507e+00_rb,3.6433e+00_rb,4.2566e+00_rb,3.9661e+00_rb,1.3130e+00_rb/)
+      kbo(:, 2,55,10) = (/ &
+     &2.9154e+00_rb,5.7215e+00_rb,6.5830e+00_rb,6.0536e+00_rb,1.7424e+00_rb/)
+      kbo(:, 3,55,10) = (/ &
+     &5.8789e+00_rb,8.5105e+00_rb,9.5339e+00_rb,8.6749e+00_rb,2.1951e+00_rb/)
+      kbo(:, 4,55,10) = (/ &
+     &1.1400e+01_rb,1.2318e+01_rb,1.3311e+01_rb,1.1788e+01_rb,2.6530e+00_rb/)
+      kbo(:, 5,55,10) = (/ &
+     &2.1258e+01_rb,1.8155e+01_rb,1.8294e+01_rb,1.5532e+01_rb,3.0990e+00_rb/)
+      kbo(:, 1,56,10) = (/ &
+     &9.1417e-01_rb,2.9676e+00_rb,3.5310e+00_rb,3.3437e+00_rb,1.1797e+00_rb/)
+      kbo(:, 2,56,10) = (/ &
+     &2.0541e+00_rb,4.7744e+00_rb,5.6130e+00_rb,5.2303e+00_rb,1.5997e+00_rb/)
+      kbo(:, 3,56,10) = (/ &
+     &4.2988e+00_rb,7.2236e+00_rb,8.2994e+00_rb,7.6574e+00_rb,2.0435e+00_rb/)
+      kbo(:, 4,56,10) = (/ &
+     &8.5903e+00_rb,1.0539e+01_rb,1.1687e+01_rb,1.0572e+01_rb,2.5005e+00_rb/)
+      kbo(:, 5,56,10) = (/ &
+     &1.6506e+01_rb,1.5331e+01_rb,1.6174e+01_rb,1.4030e+01_rb,2.9531e+00_rb/)
+      kbo(:, 1,57,10) = (/ &
+     &6.0887e-01_rb,2.4030e+00_rb,2.9065e+00_rb,2.7971e+00_rb,1.0495e+00_rb/)
+      kbo(:, 2,57,10) = (/ &
+     &1.4281e+00_rb,3.9782e+00_rb,4.7656e+00_rb,4.4965e+00_rb,1.4561e+00_rb/)
+      kbo(:, 3,57,10) = (/ &
+     &3.1054e+00_rb,6.1238e+00_rb,7.2122e+00_rb,6.7209e+00_rb,1.8934e+00_rb/)
+      kbo(:, 4,57,10) = (/ &
+     &6.4056e+00_rb,9.0325e+00_rb,1.0294e+01_rb,9.4596e+00_rb,2.3523e+00_rb/)
+      kbo(:, 5,57,10) = (/ &
+     &1.2719e+01_rb,1.3167e+01_rb,1.4312e+01_rb,1.2682e+01_rb,2.8029e+00_rb/)
+      kbo(:, 1,58,10) = (/ &
+     &1.0707e-01_rb,6.3953e-01_rb,1.0127e+00_rb,1.3896e+00_rb,9.3114e-01_rb/)
+      kbo(:, 2,58,10) = (/ &
+     &2.6195e-01_rb,1.0902e+00_rb,1.7100e+00_rb,2.2949e+00_rb,1.3241e+00_rb/)
+      kbo(:, 3,58,10) = (/ &
+     &5.9147e-01_rb,1.7109e+00_rb,2.6503e+00_rb,3.5010e+00_rb,1.7544e+00_rb/)
+      kbo(:, 4,58,10) = (/ &
+     &1.2606e+00_rb,2.5523e+00_rb,3.8433e+00_rb,5.0138e+00_rb,2.2018e+00_rb/)
+      kbo(:, 5,58,10) = (/ &
+     &2.5874e+00_rb,3.7372e+00_rb,5.3689e+00_rb,6.8137e+00_rb,2.6612e+00_rb/)
+      kbo(:, 1,59,10) = (/ &
+     &9.9298e-02_rb,7.6667e-01_rb,1.1645e+00_rb,1.4612e+00_rb,8.8547e-01_rb/)
+      kbo(:, 2,59,10) = (/ &
+     &2.4968e-01_rb,1.3224e+00_rb,1.9807e+00_rb,2.4248e+00_rb,1.2655e+00_rb/)
+      kbo(:, 3,59,10) = (/ &
+     &5.7897e-01_rb,2.0921e+00_rb,3.0941e+00_rb,3.7073e+00_rb,1.6878e+00_rb/)
+      kbo(:, 4,59,10) = (/ &
+     &1.2660e+00_rb,3.1094e+00_rb,4.5051e+00_rb,5.3308e+00_rb,2.1316e+00_rb/)
+      kbo(:, 5,59,10) = (/ &
+     &2.6665e+00_rb,4.5101e+00_rb,6.2520e+00_rb,7.2627e+00_rb,2.5824e+00_rb/)
+      kbo(:, 1,13,11) = (/ &
+     &4.9137e+02_rb,3.6866e+02_rb,2.4595e+02_rb,1.2325e+02_rb,3.7154e+00_rb/)
+      kbo(:, 2,13,11) = (/ &
+     &7.1842e+02_rb,5.3894e+02_rb,3.5946e+02_rb,1.7998e+02_rb,3.6255e+00_rb/)
+      kbo(:, 3,13,11) = (/ &
+     &9.9186e+02_rb,7.4402e+02_rb,4.9618e+02_rb,2.4833e+02_rb,3.5452e+00_rb/)
+      kbo(:, 4,13,11) = (/ &
+     &1.3059e+03_rb,9.7954e+02_rb,6.5319e+02_rb,3.2683e+02_rb,3.4736e+00_rb/)
+      kbo(:, 5,13,11) = (/ &
+     &1.6553e+03_rb,1.2416e+03_rb,8.2787e+02_rb,4.1417e+02_rb,3.4158e+00_rb/)
+      kbo(:, 1,14,11) = (/ &
+     &3.1242e+02_rb,2.3443e+02_rb,1.5644e+02_rb,7.8454e+01_rb,4.0956e+00_rb/)
+      kbo(:, 2,14,11) = (/ &
+     &4.5149e+02_rb,3.3873e+02_rb,2.2597e+02_rb,1.1322e+02_rb,4.0089e+00_rb/)
+      kbo(:, 3,14,11) = (/ &
+     &6.1672e+02_rb,4.6265e+02_rb,3.0858e+02_rb,1.5452e+02_rb,3.9350e+00_rb/)
+      kbo(:, 4,14,11) = (/ &
+     &8.0574e+02_rb,6.0442e+02_rb,4.0309e+02_rb,2.0177e+02_rb,3.8665e+00_rb/)
+      kbo(:, 5,14,11) = (/ &
+     &1.0145e+03_rb,7.6099e+02_rb,5.0748e+02_rb,2.5397e+02_rb,3.7755e+00_rb/)
+      kbo(:, 1,15,11) = (/ &
+     &1.9759e+02_rb,1.4830e+02_rb,9.9018e+01_rb,4.9739e+01_rb,4.5712e+00_rb/)
+      kbo(:, 2,15,11) = (/ &
+     &2.8230e+02_rb,2.1184e+02_rb,1.4137e+02_rb,7.0907e+01_rb,4.4810e+00_rb/)
+      kbo(:, 3,15,11) = (/ &
+     &3.8219e+02_rb,2.8675e+02_rb,1.9132e+02_rb,9.5881e+01_rb,4.3973e+00_rb/)
+      kbo(:, 4,15,11) = (/ &
+     &4.9586e+02_rb,3.7201e+02_rb,2.4816e+02_rb,1.2430e+02_rb,4.3207e+00_rb/)
+      kbo(:, 5,15,11) = (/ &
+     &6.2301e+02_rb,4.6738e+02_rb,3.1174e+02_rb,1.5610e+02_rb,4.2419e+00_rb/)
+      kbo(:, 1,16,11) = (/ &
+     &1.4534e+02_rb,1.0912e+02_rb,7.2899e+01_rb,3.6687e+01_rb,5.0599e+00_rb/)
+      kbo(:, 2,16,11) = (/ &
+     &2.0548e+02_rb,1.5423e+02_rb,1.0297e+02_rb,5.1715e+01_rb,4.9736e+00_rb/)
+      kbo(:, 3,16,11) = (/ &
+     &2.7637e+02_rb,2.0739e+02_rb,1.3841e+02_rb,6.9439e+01_rb,4.8882e+00_rb/)
+      kbo(:, 4,16,11) = (/ &
+     &3.5789e+02_rb,2.6854e+02_rb,1.7918e+02_rb,8.9827e+01_rb,4.8052e+00_rb/)
+      kbo(:, 5,16,11) = (/ &
+     &4.4907e+02_rb,3.3692e+02_rb,2.2477e+02_rb,1.1262e+02_rb,4.7153e+00_rb/)
+      kbo(:, 1,17,11) = (/ &
+     &1.0823e+02_rb,8.1288e+01_rb,5.4344e+01_rb,2.7412e+01_rb,5.5645e+00_rb/)
+      kbo(:, 2,17,11) = (/ &
+     &1.5200e+02_rb,1.1412e+02_rb,7.6233e+01_rb,3.8355e+01_rb,5.4748e+00_rb/)
+      kbo(:, 3,17,11) = (/ &
+     &2.0403e+02_rb,1.5314e+02_rb,1.0225e+02_rb,5.1364e+01_rb,5.3859e+00_rb/)
+      kbo(:, 4,17,11) = (/ &
+     &2.6361e+02_rb,1.9782e+02_rb,1.3204e+02_rb,6.6255e+01_rb,5.2931e+00_rb/)
+      kbo(:, 5,17,11) = (/ &
+     &3.3009e+02_rb,2.4768e+02_rb,1.6528e+02_rb,8.2867e+01_rb,5.1961e+00_rb/)
+      kbo(:, 1,18,11) = (/ &
+     &8.1232e+01_rb,6.1036e+01_rb,4.0843e+01_rb,2.0768e+01_rb,6.0688e+00_rb/)
+      kbo(:, 2,18,11) = (/ &
+     &1.1380e+02_rb,8.5466e+01_rb,5.7129e+01_rb,2.8802e+01_rb,5.9719e+00_rb/)
+      kbo(:, 3,18,11) = (/ &
+     &1.5225e+02_rb,1.1430e+02_rb,7.6349e+01_rb,3.8404e+01_rb,5.8780e+00_rb/)
+      kbo(:, 4,18,11) = (/ &
+     &1.9624e+02_rb,1.4729e+02_rb,9.8340e+01_rb,4.9394e+01_rb,5.7787e+00_rb/)
+      kbo(:, 5,18,11) = (/ &
+     &2.4493e+02_rb,1.8381e+02_rb,1.2268e+02_rb,6.1561e+01_rb,5.6709e+00_rb/)
+      kbo(:, 1,19,11) = (/ &
+     &5.9301e+01_rb,4.4585e+01_rb,2.9875e+01_rb,1.6238e+01_rb,6.5385e+00_rb/)
+      kbo(:, 2,19,11) = (/ &
+     &8.2717e+01_rb,6.2145e+01_rb,4.1575e+01_rb,2.1335e+01_rb,6.4509e+00_rb/)
+      kbo(:, 3,19,11) = (/ &
+     &1.1031e+02_rb,8.2837e+01_rb,5.5366e+01_rb,2.7948e+01_rb,6.3522e+00_rb/)
+      kbo(:, 4,19,11) = (/ &
+     &1.4167e+02_rb,1.0635e+02_rb,7.1041e+01_rb,3.5737e+01_rb,6.2392e+00_rb/)
+      kbo(:, 5,19,11) = (/ &
+     &1.7630e+02_rb,1.3232e+02_rb,8.8349e+01_rb,4.4378e+01_rb,6.1191e+00_rb/)
+      kbo(:, 1,20,11) = (/ &
+     &4.6675e+01_rb,3.5111e+01_rb,2.3575e+01_rb,1.4266e+01_rb,6.9620e+00_rb/)
+      kbo(:, 2,20,11) = (/ &
+     &6.4787e+01_rb,4.8692e+01_rb,3.2603e+01_rb,1.7833e+01_rb,6.8738e+00_rb/)
+      kbo(:, 3,20,11) = (/ &
+     &8.5965e+01_rb,6.4574e+01_rb,4.3185e+01_rb,2.2381e+01_rb,6.7710e+00_rb/)
+      kbo(:, 4,20,11) = (/ &
+     &1.0993e+02_rb,8.2545e+01_rb,5.5164e+01_rb,2.7968e+01_rb,6.6598e+00_rb/)
+      kbo(:, 5,20,11) = (/ &
+     &1.3666e+02_rb,1.0259e+02_rb,6.8531e+01_rb,3.4499e+01_rb,6.5455e+00_rb/)
+      kbo(:, 1,21,11) = (/ &
+     &3.7501e+01_rb,2.8227e+01_rb,1.9281e+01_rb,1.3115e+01_rb,7.3104e+00_rb/)
+      kbo(:, 2,21,11) = (/ &
+     &5.1743e+01_rb,3.8905e+01_rb,2.6108e+01_rb,1.5684e+01_rb,7.2251e+00_rb/)
+      kbo(:, 3,21,11) = (/ &
+     &6.8349e+01_rb,5.1361e+01_rb,3.4375e+01_rb,1.9019e+01_rb,7.1334e+00_rb/)
+      kbo(:, 4,21,11) = (/ &
+     &8.7361e+01_rb,6.5620e+01_rb,4.3882e+01_rb,2.3034e+01_rb,7.0346e+00_rb/)
+      kbo(:, 5,21,11) = (/ &
+     &1.0904e+02_rb,8.1880e+01_rb,5.4724e+01_rb,2.7964e+01_rb,6.9286e+00_rb/)
+      kbo(:, 1,22,11) = (/ &
+     &3.1289e+01_rb,2.3566e+01_rb,1.6825e+01_rb,1.2828e+01_rb,7.5760e+00_rb/)
+      kbo(:, 2,22,11) = (/ &
+     &4.2825e+01_rb,3.2216e+01_rb,2.1971e+01_rb,1.4588e+01_rb,7.5079e+00_rb/)
+      kbo(:, 3,22,11) = (/ &
+     &5.6403e+01_rb,4.2401e+01_rb,2.8462e+01_rb,1.6984e+01_rb,7.4270e+00_rb/)
+      kbo(:, 4,22,11) = (/ &
+     &7.2294e+01_rb,5.4320e+01_rb,3.6353e+01_rb,2.0165e+01_rb,7.3380e+00_rb/)
+      kbo(:, 5,22,11) = (/ &
+     &9.0391e+01_rb,6.7890e+01_rb,4.5398e+01_rb,2.4037e+01_rb,7.2398e+00_rb/)
+      kbo(:, 1,23,11) = (/ &
+     &2.6113e+01_rb,1.9694e+01_rb,1.4984e+01_rb,1.2807e+01_rb,7.7662e+00_rb/)
+      kbo(:, 2,23,11) = (/ &
+     &3.5611e+01_rb,2.6805e+01_rb,1.8996e+01_rb,1.4145e+01_rb,7.7141e+00_rb/)
+      kbo(:, 3,23,11) = (/ &
+     &4.7007e+01_rb,3.5353e+01_rb,2.4112e+01_rb,1.5803e+01_rb,7.6529e+00_rb/)
+      kbo(:, 4,23,11) = (/ &
+     &6.0260e+01_rb,4.5296e+01_rb,3.0446e+01_rb,1.8119e+01_rb,7.5779e+00_rb/)
+      kbo(:, 5,23,11) = (/ &
+     &7.5402e+01_rb,5.6642e+01_rb,3.7917e+01_rb,2.1118e+01_rb,7.4889e+00_rb/)
+      kbo(:, 1,24,11) = (/ &
+     &2.1744e+01_rb,1.6531e+01_rb,1.3667e+01_rb,1.2705e+01_rb,7.8734e+00_rb/)
+      kbo(:, 2,24,11) = (/ &
+     &2.9665e+01_rb,2.2353e+01_rb,1.6710e+01_rb,1.3918e+01_rb,7.8466e+00_rb/)
+      kbo(:, 3,24,11) = (/ &
+     &3.9143e+01_rb,2.9459e+01_rb,2.0787e+01_rb,1.5226e+01_rb,7.8065e+00_rb/)
+      kbo(:, 4,24,11) = (/ &
+     &5.0222e+01_rb,3.7761e+01_rb,2.5773e+01_rb,1.6824e+01_rb,7.7511e+00_rb/)
+      kbo(:, 5,24,11) = (/ &
+     &6.2928e+01_rb,4.7282e+01_rb,3.1824e+01_rb,1.8958e+01_rb,7.6816e+00_rb/)
+      kbo(:, 1,25,11) = (/ &
+     &1.8556e+01_rb,1.4391e+01_rb,1.2986e+01_rb,1.2542e+01_rb,7.9223e+00_rb/)
+      kbo(:, 2,25,11) = (/ &
+     &2.5288e+01_rb,1.9166e+01_rb,1.5272e+01_rb,1.3696e+01_rb,7.9207e+00_rb/)
+      kbo(:, 3,25,11) = (/ &
+     &3.3328e+01_rb,2.5101e+01_rb,1.8448e+01_rb,1.4913e+01_rb,7.9039e+00_rb/)
+      kbo(:, 4,25,11) = (/ &
+     &4.2799e+01_rb,3.2187e+01_rb,2.2557e+01_rb,1.6216e+01_rb,7.8725e+00_rb/)
+      kbo(:, 5,25,11) = (/ &
+     &5.3844e+01_rb,4.0473e+01_rb,2.7585e+01_rb,1.7777e+01_rb,7.8216e+00_rb/)
+      kbo(:, 1,26,11) = (/ &
+     &1.6321e+01_rb,1.3012e+01_rb,1.2671e+01_rb,1.2389e+01_rb,7.9293e+00_rb/)
+      kbo(:, 2,26,11) = (/ &
+     &2.2176e+01_rb,1.7013e+01_rb,1.4541e+01_rb,1.3492e+01_rb,7.9549e+00_rb/)
+      kbo(:, 3,26,11) = (/ &
+     &2.9236e+01_rb,2.2092e+01_rb,1.7014e+01_rb,1.4647e+01_rb,7.9628e+00_rb/)
+      kbo(:, 4,26,11) = (/ &
+     &3.7703e+01_rb,2.8378e+01_rb,2.0439e+01_rb,1.5868e+01_rb,7.9537e+00_rb/)
+      kbo(:, 5,26,11) = (/ &
+     &4.7623e+01_rb,3.5826e+01_rb,2.4857e+01_rb,1.7188e+01_rb,7.9177e+00_rb/)
+      kbo(:, 1,27,11) = (/ &
+     &1.5028e+01_rb,1.2264e+01_rb,1.2582e+01_rb,1.2313e+01_rb,7.9116e+00_rb/)
+      kbo(:, 2,27,11) = (/ &
+     &2.0393e+01_rb,1.5855e+01_rb,1.4339e+01_rb,1.3407e+01_rb,7.9620e+00_rb/)
+      kbo(:, 3,27,11) = (/ &
+     &2.6998e+01_rb,2.0503e+01_rb,1.6441e+01_rb,1.4550e+01_rb,7.9958e+00_rb/)
+      kbo(:, 4,27,11) = (/ &
+     &3.4948e+01_rb,2.6342e+01_rb,1.9460e+01_rb,1.5757e+01_rb,8.0119e+00_rb/)
+      kbo(:, 5,27,11) = (/ &
+     &4.4164e+01_rb,3.3250e+01_rb,2.3464e+01_rb,1.7068e+01_rb,7.9872e+00_rb/)
+      kbo(:, 1,28,11) = (/ &
+     &1.4343e+01_rb,1.1935e+01_rb,1.2606e+01_rb,1.2286e+01_rb,7.8708e+00_rb/)
+      kbo(:, 2,28,11) = (/ &
+     &1.9534e+01_rb,1.5338e+01_rb,1.4333e+01_rb,1.3405e+01_rb,7.9546e+00_rb/)
+      kbo(:, 3,28,11) = (/ &
+     &2.5909e+01_rb,1.9792e+01_rb,1.6354e+01_rb,1.4575e+01_rb,8.0164e+00_rb/)
+      kbo(:, 4,28,11) = (/ &
+     &3.3450e+01_rb,2.5271e+01_rb,1.9104e+01_rb,1.5810e+01_rb,8.0394e+00_rb/)
+      kbo(:, 5,28,11) = (/ &
+     &4.2201e+01_rb,3.1789e+01_rb,2.2776e+01_rb,1.7191e+01_rb,8.0384e+00_rb/)
+      kbo(:, 1,29,11) = (/ &
+     &1.4799e+01_rb,1.2334e+01_rb,1.2951e+01_rb,1.2470e+01_rb,7.8248e+00_rb/)
+      kbo(:, 2,29,11) = (/ &
+     &2.0134e+01_rb,1.5845e+01_rb,1.4778e+01_rb,1.3682e+01_rb,7.9390e+00_rb/)
+      kbo(:, 3,29,11) = (/ &
+     &2.6563e+01_rb,2.0336e+01_rb,1.6926e+01_rb,1.4933e+01_rb,8.0194e+00_rb/)
+      kbo(:, 4,29,11) = (/ &
+     &3.4143e+01_rb,2.5818e+01_rb,1.9648e+01_rb,1.6307e+01_rb,8.0590e+00_rb/)
+      kbo(:, 5,29,11) = (/ &
+     &4.2969e+01_rb,3.2368e+01_rb,2.3282e+01_rb,1.7794e+01_rb,8.0931e+00_rb/)
+      kbo(:, 1,30,11) = (/ &
+     &1.5772e+01_rb,1.3097e+01_rb,1.3464e+01_rb,1.2783e+01_rb,7.7812e+00_rb/)
+      kbo(:, 2,30,11) = (/ &
+     &2.1344e+01_rb,1.6785e+01_rb,1.5505e+01_rb,1.4108e+01_rb,7.9232e+00_rb/)
+      kbo(:, 3,30,11) = (/ &
+     &2.7999e+01_rb,2.1429e+01_rb,1.7759e+01_rb,1.5492e+01_rb,8.0114e+00_rb/)
+      kbo(:, 4,30,11) = (/ &
+     &3.5848e+01_rb,2.7096e+01_rb,2.0562e+01_rb,1.7031e+01_rb,8.0836e+00_rb/)
+      kbo(:, 5,30,11) = (/ &
+     &4.5004e+01_rb,3.3889e+01_rb,2.4347e+01_rb,1.8589e+01_rb,8.1429e+00_rb/)
+      kbo(:, 1,31,11) = (/ &
+     &1.7716e+01_rb,1.4511e+01_rb,1.4478e+01_rb,1.3396e+01_rb,7.7478e+00_rb/)
+      kbo(:, 2,31,11) = (/ &
+     &2.3853e+01_rb,1.8632e+01_rb,1.6766e+01_rb,1.4874e+01_rb,7.8974e+00_rb/)
+      kbo(:, 3,31,11) = (/ &
+     &3.1182e+01_rb,2.3768e+01_rb,1.9223e+01_rb,1.6499e+01_rb,8.0055e+00_rb/)
+      kbo(:, 4,31,11) = (/ &
+     &3.9834e+01_rb,3.0054e+01_rb,2.2404e+01_rb,1.8165e+01_rb,8.1138e+00_rb/)
+      kbo(:, 5,31,11) = (/ &
+     &4.9938e+01_rb,3.7588e+01_rb,2.6690e+01_rb,1.9788e+01_rb,8.1481e+00_rb/)
+      kbo(:, 1,32,11) = (/ &
+     &2.0151e+01_rb,1.6250e+01_rb,1.5786e+01_rb,1.4153e+01_rb,7.7024e+00_rb/)
+      kbo(:, 2,32,11) = (/ &
+     &2.7022e+01_rb,2.0930e+01_rb,1.8243e+01_rb,1.5874e+01_rb,7.8766e+00_rb/)
+      kbo(:, 3,32,11) = (/ &
+     &3.5292e+01_rb,2.6776e+01_rb,2.1045e+01_rb,1.7666e+01_rb,8.0370e+00_rb/)
+      kbo(:, 4,32,11) = (/ &
+     &4.5050e+01_rb,3.3940e+01_rb,2.4811e+01_rb,1.9434e+01_rb,8.1312e+00_rb/)
+      kbo(:, 5,32,11) = (/ &
+     &5.6497e+01_rb,4.2506e+01_rb,2.9790e+01_rb,2.1188e+01_rb,8.1409e+00_rb/)
+      kbo(:, 1,33,11) = (/ &
+     &2.3401e+01_rb,1.8533e+01_rb,1.7371e+01_rb,1.5193e+01_rb,7.6839e+00_rb/)
+      kbo(:, 2,33,11) = (/ &
+     &3.1308e+01_rb,2.4009e+01_rb,2.0094e+01_rb,1.7155e+01_rb,7.9059e+00_rb/)
+      kbo(:, 3,33,11) = (/ &
+     &4.0829e+01_rb,3.0856e+01_rb,2.3455e+01_rb,1.9076e+01_rb,8.0587e+00_rb/)
+      kbo(:, 4,33,11) = (/ &
+     &5.2189e+01_rb,3.9272e+01_rb,2.8099e+01_rb,2.1008e+01_rb,8.1274e+00_rb/)
+      kbo(:, 5,33,11) = (/ &
+     &6.5586e+01_rb,4.9320e+01_rb,3.4075e+01_rb,2.2993e+01_rb,8.2027e+00_rb/)
+      kbo(:, 1,34,11) = (/ &
+     &2.6313e+01_rb,2.0607e+01_rb,1.8746e+01_rb,1.6201e+01_rb,7.7021e+00_rb/)
+      kbo(:, 2,34,11) = (/ &
+     &3.5155e+01_rb,2.6805e+01_rb,2.1758e+01_rb,1.8283e+01_rb,7.9397e+00_rb/)
+      kbo(:, 3,34,11) = (/ &
+     &4.5927e+01_rb,3.4632e+01_rb,2.5705e+01_rb,2.0353e+01_rb,8.0605e+00_rb/)
+      kbo(:, 4,34,11) = (/ &
+     &5.8835e+01_rb,4.4252e+01_rb,3.1197e+01_rb,2.2458e+01_rb,8.1311e+00_rb/)
+      kbo(:, 5,34,11) = (/ &
+     &7.4250e+01_rb,5.5815e+01_rb,3.8184e+01_rb,2.4701e+01_rb,8.2150e+00_rb/)
+      kbo(:, 1,35,11) = (/ &
+     &2.8876e+01_rb,2.2455e+01_rb,1.9946e+01_rb,1.7124e+01_rb,7.7224e+00_rb/)
+      kbo(:, 2,35,11) = (/ &
+     &3.8715e+01_rb,2.9405e+01_rb,2.3284e+01_rb,1.9326e+01_rb,7.9252e+00_rb/)
+      kbo(:, 3,35,11) = (/ &
+     &5.0778e+01_rb,3.8237e+01_rb,2.7902e+01_rb,2.1577e+01_rb,8.0258e+00_rb/)
+      kbo(:, 4,35,11) = (/ &
+     &6.5355e+01_rb,4.9140e+01_rb,3.4259e+01_rb,2.3860e+01_rb,8.1543e+00_rb/)
+      kbo(:, 5,35,11) = (/ &
+     &8.3003e+01_rb,6.2372e+01_rb,4.2365e+01_rb,2.6463e+01_rb,8.1938e+00_rb/)
+      kbo(:, 1,36,11) = (/ &
+     &3.0603e+01_rb,2.3731e+01_rb,2.0817e+01_rb,1.7816e+01_rb,7.6876e+00_rb/)
+      kbo(:, 2,36,11) = (/ &
+     &4.1304e+01_rb,3.1313e+01_rb,2.4462e+01_rb,2.0172e+01_rb,7.8715e+00_rb/)
+      kbo(:, 3,36,11) = (/ &
+     &5.4533e+01_rb,4.1035e+01_rb,2.9662e+01_rb,2.2576e+01_rb,7.9878e+00_rb/)
+      kbo(:, 4,36,11) = (/ &
+     &7.0736e+01_rb,5.3175e+01_rb,3.6832e+01_rb,2.5052e+01_rb,8.1404e+00_rb/)
+      kbo(:, 5,36,11) = (/ &
+     &9.0535e+01_rb,6.8017e+01_rb,4.6007e+01_rb,2.8044e+01_rb,8.2152e+00_rb/)
+      kbo(:, 1,37,11) = (/ &
+     &3.0255e+01_rb,2.3559e+01_rb,2.0925e+01_rb,1.7969e+01_rb,7.6093e+00_rb/)
+      kbo(:, 2,37,11) = (/ &
+     &4.1246e+01_rb,3.1319e+01_rb,2.4672e+01_rb,2.0442e+01_rb,7.8000e+00_rb/)
+      kbo(:, 3,37,11) = (/ &
+     &5.5008e+01_rb,4.1404e+01_rb,3.0029e+01_rb,2.2965e+01_rb,7.9652e+00_rb/)
+      kbo(:, 4,37,11) = (/ &
+     &7.2100e+01_rb,5.4198e+01_rb,3.7564e+01_rb,2.5602e+01_rb,8.1174e+00_rb/)
+      kbo(:, 5,37,11) = (/ &
+     &9.3252e+01_rb,7.0052e+01_rb,4.7363e+01_rb,2.8813e+01_rb,8.2379e+00_rb/)
+      kbo(:, 1,38,11) = (/ &
+     &3.0319e+01_rb,2.3676e+01_rb,2.1203e+01_rb,1.8223e+01_rb,7.5198e+00_rb/)
+      kbo(:, 2,38,11) = (/ &
+     &4.1784e+01_rb,3.1741e+01_rb,2.5125e+01_rb,2.0837e+01_rb,7.7243e+00_rb/)
+      kbo(:, 3,38,11) = (/ &
+     &5.6316e+01_rb,4.2385e+01_rb,3.0775e+01_rb,2.3517e+01_rb,7.9363e+00_rb/)
+      kbo(:, 4,38,11) = (/ &
+     &7.4582e+01_rb,5.6053e+01_rb,3.8823e+01_rb,2.6361e+01_rb,8.1242e+00_rb/)
+      kbo(:, 5,38,11) = (/ &
+     &9.7510e+01_rb,7.3243e+01_rb,4.9498e+01_rb,2.9889e+01_rb,8.2559e+00_rb/)
+      kbo(:, 1,39,11) = (/ &
+     &3.1111e+01_rb,2.4293e+01_rb,2.1786e+01_rb,1.8666e+01_rb,7.4239e+00_rb/)
+      kbo(:, 2,39,11) = (/ &
+     &4.3408e+01_rb,3.2962e+01_rb,2.6016e+01_rb,2.1461e+01_rb,7.6345e+00_rb/)
+      kbo(:, 3,39,11) = (/ &
+     &5.9150e+01_rb,4.4506e+01_rb,3.2172e+01_rb,2.4357e+01_rb,7.9192e+00_rb/)
+      kbo(:, 4,39,11) = (/ &
+     &7.9245e+01_rb,5.9549e+01_rb,4.1085e+01_rb,2.7494e+01_rb,8.1496e+00_rb/)
+      kbo(:, 5,39,11) = (/ &
+     &1.0467e+02_rb,7.8610e+01_rb,5.2990e+01_rb,3.1523e+01_rb,8.2789e+00_rb/)
+      kbo(:, 1,40,11) = (/ &
+     &2.8917e+01_rb,2.2849e+01_rb,2.1212e+01_rb,1.8303e+01_rb,7.3082e+00_rb/)
+      kbo(:, 2,40,11) = (/ &
+     &4.0995e+01_rb,3.1270e+01_rb,2.5375e+01_rb,2.1193e+01_rb,7.5582e+00_rb/)
+      kbo(:, 3,40,11) = (/ &
+     &5.6673e+01_rb,4.2684e+01_rb,3.1298e+01_rb,2.4183e+01_rb,7.8695e+00_rb/)
+      kbo(:, 4,40,11) = (/ &
+     &7.6946e+01_rb,5.7826e+01_rb,4.0125e+01_rb,2.7426e+01_rb,8.1312e+00_rb/)
+      kbo(:, 5,40,11) = (/ &
+     &1.0293e+02_rb,7.7305e+01_rb,5.2205e+01_rb,3.1496e+01_rb,8.2689e+00_rb/)
+      kbo(:, 1,41,11) = (/ &
+     &2.6634e+01_rb,2.1385e+01_rb,2.0561e+01_rb,1.7885e+01_rb,7.1901e+00_rb/)
+      kbo(:, 2,41,11) = (/ &
+     &3.8375e+01_rb,2.9451e+01_rb,2.4682e+01_rb,2.0867e+01_rb,7.4740e+00_rb/)
+      kbo(:, 3,41,11) = (/ &
+     &5.3928e+01_rb,4.0671e+01_rb,3.0356e+01_rb,2.3955e+01_rb,7.8182e+00_rb/)
+      kbo(:, 4,41,11) = (/ &
+     &7.4310e+01_rb,5.5850e+01_rb,3.9033e+01_rb,2.7309e+01_rb,8.0950e+00_rb/)
+      kbo(:, 5,41,11) = (/ &
+     &1.0067e+02_rb,7.5610e+01_rb,5.1206e+01_rb,3.1414e+01_rb,8.2644e+00_rb/)
+      kbo(:, 1,42,11) = (/ &
+     &2.4738e+01_rb,2.0233e+01_rb,2.0020e+01_rb,1.7547e+01_rb,7.0619e+00_rb/)
+      kbo(:, 2,42,11) = (/ &
+     &3.6234e+01_rb,2.7982e+01_rb,2.4175e+01_rb,2.0637e+01_rb,7.4025e+00_rb/)
+      kbo(:, 3,42,11) = (/ &
+     &5.1779e+01_rb,3.9115e+01_rb,2.9714e+01_rb,2.3853e+01_rb,7.7568e+00_rb/)
+      kbo(:, 4,42,11) = (/ &
+     &7.2527e+01_rb,5.4511e+01_rb,3.8357e+01_rb,2.7357e+01_rb,8.0593e+00_rb/)
+      kbo(:, 5,42,11) = (/ &
+     &9.9602e+01_rb,7.4807e+01_rb,5.0774e+01_rb,3.1579e+01_rb,8.2618e+00_rb/)
+      kbo(:, 1,43,11) = (/ &
+     &2.2598e+01_rb,1.8979e+01_rb,1.9339e+01_rb,1.7092e+01_rb,6.9063e+00_rb/)
+      kbo(:, 2,43,11) = (/ &
+     &3.3721e+01_rb,2.6289e+01_rb,2.3541e+01_rb,2.0300e+01_rb,7.2922e+00_rb/)
+      kbo(:, 3,43,11) = (/ &
+     &4.9059e+01_rb,3.7168e+01_rb,2.8920e+01_rb,2.3665e+01_rb,7.6599e+00_rb/)
+      kbo(:, 4,43,11) = (/ &
+     &6.9947e+01_rb,5.2582e+01_rb,3.7401e+01_rb,2.7324e+01_rb,7.9953e+00_rb/)
+      kbo(:, 5,43,11) = (/ &
+     &9.7637e+01_rb,7.3334e+01_rb,4.9954e+01_rb,3.1634e+01_rb,8.2449e+00_rb/)
+      kbo(:, 1,44,11) = (/ &
+     &2.0598e+01_rb,1.7877e+01_rb,1.8670e+01_rb,1.6634e+01_rb,6.7349e+00_rb/)
+      kbo(:, 2,44,11) = (/ &
+     &3.1385e+01_rb,2.4755e+01_rb,2.2973e+01_rb,1.9973e+01_rb,7.1646e+00_rb/)
+      kbo(:, 3,44,11) = (/ &
+     &4.6533e+01_rb,3.5381e+01_rb,2.8231e+01_rb,2.3518e+01_rb,7.5534e+00_rb/)
+      kbo(:, 4,44,11) = (/ &
+     &6.7572e+01_rb,5.0818e+01_rb,3.6582e+01_rb,2.7361e+01_rb,7.9184e+00_rb/)
+      kbo(:, 5,44,11) = (/ &
+     &9.6116e+01_rb,7.2195e+01_rb,4.9367e+01_rb,3.1819e+01_rb,8.2107e+00_rb/)
+      kbo(:, 1,45,11) = (/ &
+     &1.9103e+01_rb,1.7116e+01_rb,1.8163e+01_rb,1.6283e+01_rb,6.5605e+00_rb/)
+      kbo(:, 2,45,11) = (/ &
+     &2.9658e+01_rb,2.3682e+01_rb,2.2618e+01_rb,1.9789e+01_rb,7.0239e+00_rb/)
+      kbo(:, 3,45,11) = (/ &
+     &4.4853e+01_rb,3.4227e+01_rb,2.7909e+01_rb,2.3555e+01_rb,7.4383e+00_rb/)
+      kbo(:, 4,45,11) = (/ &
+     &6.6390e+01_rb,4.9954e+01_rb,3.6314e+01_rb,2.7640e+01_rb,7.8580e+00_rb/)
+      kbo(:, 5,45,11) = (/ &
+     &9.6230e+01_rb,7.2282e+01_rb,4.9573e+01_rb,3.2349e+01_rb,8.1505e+00_rb/)
+      kbo(:, 1,46,11) = (/ &
+     &1.7603e+01_rb,1.6408e+01_rb,1.7601e+01_rb,1.5877e+01_rb,6.3549e+00_rb/)
+      kbo(:, 2,46,11) = (/ &
+     &2.7890e+01_rb,2.2645e+01_rb,2.2217e+01_rb,1.9546e+01_rb,6.8535e+00_rb/)
+      kbo(:, 3,46,11) = (/ &
+     &4.3095e+01_rb,3.3035e+01_rb,2.7597e+01_rb,2.3556e+01_rb,7.2985e+00_rb/)
+      kbo(:, 4,46,11) = (/ &
+     &6.5080e+01_rb,4.9001e+01_rb,3.6011e+01_rb,2.7911e+01_rb,7.7668e+00_rb/)
+      kbo(:, 5,46,11) = (/ &
+     &9.6111e+01_rb,7.2194e+01_rb,4.9702e+01_rb,3.2895e+01_rb,8.0887e+00_rb/)
+      kbo(:, 1,47,11) = (/ &
+     &1.5582e+01_rb,1.5416e+01_rb,1.6712e+01_rb,1.5202e+01_rb,6.1058e+00_rb/)
+      kbo(:, 2,47,11) = (/ &
+     &2.5371e+01_rb,2.1144e+01_rb,2.1438e+01_rb,1.8984e+01_rb,6.6529e+00_rb/)
+      kbo(:, 3,47,11) = (/ &
+     &4.0058e+01_rb,3.0957e+01_rb,2.6834e+01_rb,2.3189e+01_rb,7.1345e+00_rb/)
+      kbo(:, 4,47,11) = (/ &
+     &6.1807e+01_rb,4.6615e+01_rb,3.4933e+01_rb,2.7758e+01_rb,7.6397e+00_rb/)
+      kbo(:, 5,47,11) = (/ &
+     &9.3127e+01_rb,6.9962e+01_rb,4.8499e+01_rb,3.2952e+01_rb,7.9851e+00_rb/)
+      kbo(:, 1,48,11) = (/ &
+     &1.4034e+01_rb,1.4681e+01_rb,1.5989e+01_rb,1.4629e+01_rb,5.8421e+00_rb/)
+      kbo(:, 2,48,11) = (/ &
+     &2.3558e+01_rb,2.0186e+01_rb,2.0890e+01_rb,1.8564e+01_rb,6.4412e+00_rb/)
+      kbo(:, 3,48,11) = (/ &
+     &3.8004e+01_rb,2.9609e+01_rb,2.6472e+01_rb,2.3010e+01_rb,6.9605e+00_rb/)
+      kbo(:, 4,48,11) = (/ &
+     &5.9949e+01_rb,4.5296e+01_rb,3.4518e+01_rb,2.7885e+01_rb,7.5000e+00_rb/)
+      kbo(:, 5,48,11) = (/ &
+     &9.2277e+01_rb,6.9322e+01_rb,4.8288e+01_rb,3.3402e+01_rb,7.8874e+00_rb/)
+      kbo(:, 1,49,11) = (/ &
+     &1.3020e+01_rb,1.4223e+01_rb,1.5508e+01_rb,1.4222e+01_rb,5.5629e+00_rb/)
+      kbo(:, 2,49,11) = (/ &
+     &2.2531e+01_rb,1.9765e+01_rb,2.0674e+01_rb,1.8360e+01_rb,6.2033e+00_rb/)
+      kbo(:, 3,49,11) = (/ &
+     &3.7326e+01_rb,2.9255e+01_rb,2.6622e+01_rb,2.3133e+01_rb,6.7696e+00_rb/)
+      kbo(:, 4,49,11) = (/ &
+     &6.0141e+01_rb,4.5507e+01_rb,3.5009e+01_rb,2.8438e+01_rb,7.3484e+00_rb/)
+      kbo(:, 5,49,11) = (/ &
+     &9.4669e+01_rb,7.1125e+01_rb,4.9613e+01_rb,3.4451e+01_rb,7.7676e+00_rb/)
+      kbo(:, 1,50,11) = (/ &
+     &1.1528e+01_rb,1.3385e+01_rb,1.4676e+01_rb,1.3553e+01_rb,5.2886e+00_rb/)
+      kbo(:, 2,50,11) = (/ &
+     &2.0590e+01_rb,1.8779e+01_rb,1.9954e+01_rb,1.7785e+01_rb,5.9683e+00_rb/)
+      kbo(:, 3,50,11) = (/ &
+     &3.5112e+01_rb,2.7878e+01_rb,2.6128e+01_rb,2.2750e+01_rb,6.5812e+00_rb/)
+      kbo(:, 4,50,11) = (/ &
+     &5.7821e+01_rb,4.3871e+01_rb,3.4428e+01_rb,2.8358e+01_rb,7.1800e+00_rb/)
+      kbo(:, 5,50,11) = (/ &
+     &9.2920e+01_rb,6.9817e+01_rb,4.9041e+01_rb,3.4691e+01_rb,7.6346e+00_rb/)
+      kbo(:, 1,51,11) = (/ &
+     &9.9087e+00_rb,1.2389e+01_rb,1.3702e+01_rb,1.2771e+01_rb,5.0110e+00_rb/)
+      kbo(:, 2,51,11) = (/ &
+     &1.8347e+01_rb,1.7625e+01_rb,1.8991e+01_rb,1.7018e+01_rb,5.7321e+00_rb/)
+      kbo(:, 3,51,11) = (/ &
+     &3.2210e+01_rb,2.6119e+01_rb,2.5308e+01_rb,2.2105e+01_rb,6.3824e+00_rb/)
+      kbo(:, 4,51,11) = (/ &
+     &5.4374e+01_rb,4.1438e+01_rb,3.3397e+01_rb,2.7944e+01_rb,7.0038e+00_rb/)
+      kbo(:, 5,51,11) = (/ &
+     &8.9118e+01_rb,6.6984e+01_rb,4.7570e+01_rb,3.4540e+01_rb,7.4941e+00_rb/)
+      kbo(:, 1,52,11) = (/ &
+     &8.6167e+00_rb,1.1576e+01_rb,1.2899e+01_rb,1.2089e+01_rb,4.7245e+00_rb/)
+      kbo(:, 2,52,11) = (/ &
+     &1.6651e+01_rb,1.6818e+01_rb,1.8231e+01_rb,1.6395e+01_rb,5.4842e+00_rb/)
+      kbo(:, 3,52,11) = (/ &
+     &3.0138e+01_rb,2.4957e+01_rb,2.4762e+01_rb,2.1646e+01_rb,6.1679e+00_rb/)
+      kbo(:, 4,52,11) = (/ &
+     &5.2273e+01_rb,4.0011e+01_rb,3.2952e+01_rb,2.7789e+01_rb,6.8199e+00_rb/)
+      kbo(:, 5,52,11) = (/ &
+     &8.7481e+01_rb,6.5781e+01_rb,4.7111e+01_rb,3.4770e+01_rb,7.3415e+00_rb/)
+      kbo(:, 1,53,11) = (/ &
+     &7.6702e+00_rb,1.0979e+01_rb,1.2289e+01_rb,1.1530e+01_rb,4.4295e+00_rb/)
+      kbo(:, 2,53,11) = (/ &
+     &1.5508e+01_rb,1.6366e+01_rb,1.7771e+01_rb,1.5970e+01_rb,5.2253e+00_rb/)
+      kbo(:, 3,53,11) = (/ &
+     &2.9086e+01_rb,2.4490e+01_rb,2.4633e+01_rb,2.1484e+01_rb,5.9485e+00_rb/)
+      kbo(:, 4,53,11) = (/ &
+     &5.1881e+01_rb,3.9852e+01_rb,3.3235e+01_rb,2.8055e+01_rb,6.6238e+00_rb/)
+      kbo(:, 5,53,11) = (/ &
+     &8.8988e+01_rb,6.6930e+01_rb,4.8082e+01_rb,3.5589e+01_rb,7.1849e+00_rb/)
+      kbo(:, 1,54,11) = (/ &
+     &5.9450e+00_rb,9.6177e+00_rb,1.0972e+01_rb,1.0431e+01_rb,4.1455e+00_rb/)
+      kbo(:, 2,54,11) = (/ &
+     &1.2556e+01_rb,1.4668e+01_rb,1.6126e+01_rb,1.4708e+01_rb,4.9524e+00_rb/)
+      kbo(:, 3,54,11) = (/ &
+     &2.4491e+01_rb,2.1770e+01_rb,2.2780e+01_rb,2.0031e+01_rb,5.7134e+00_rb/)
+      kbo(:, 4,54,11) = (/ &
+     &4.4954e+01_rb,3.5031e+01_rb,3.0908e+01_rb,2.6515e+01_rb,6.4122e+00_rb/)
+      kbo(:, 5,54,11) = (/ &
+     &7.9027e+01_rb,5.9569e+01_rb,4.4065e+01_rb,3.4001e+01_rb,7.0090e+00_rb/)
+      kbo(:, 1,55,11) = (/ &
+     &4.1710e+00_rb,8.0225e+00_rb,9.3978e+00_rb,9.1226e+00_rb,3.8682e+00_rb/)
+      kbo(:, 2,55,11) = (/ &
+     &9.2293e+00_rb,1.2486e+01_rb,1.4001e+01_rb,1.3070e+01_rb,4.6969e+00_rb/)
+      kbo(:, 3,55,11) = (/ &
+     &1.8778e+01_rb,1.8456e+01_rb,2.0084e+01_rb,1.7971e+01_rb,5.4658e+00_rb/)
+      kbo(:, 4,55,11) = (/ &
+     &3.5574e+01_rb,2.8777e+01_rb,2.7568e+01_rb,2.4021e+01_rb,6.1617e+00_rb/)
+      kbo(:, 5,55,11) = (/ &
+     &6.4114e+01_rb,4.8674e+01_rb,3.8113e+01_rb,3.1115e+01_rb,6.8236e+00_rb/)
+      kbo(:, 1,56,11) = (/ &
+     &2.8728e+00_rb,6.6889e+00_rb,8.0328e+00_rb,7.9557e+00_rb,3.5989e+00_rb/)
+      kbo(:, 2,56,11) = (/ &
+     &6.6874e+00_rb,1.0605e+01_rb,1.2156e+01_rb,1.1597e+01_rb,4.4247e+00_rb/)
+      kbo(:, 3,56,11) = (/ &
+     &1.4226e+01_rb,1.5908e+01_rb,1.7667e+01_rb,1.6104e+01_rb,5.2042e+00_rb/)
+      kbo(:, 4,56,11) = (/ &
+     &2.7945e+01_rb,2.3989e+01_rb,2.4626e+01_rb,2.1735e+01_rb,5.9393e+00_rb/)
+      kbo(:, 5,56,11) = (/ &
+     &5.1707e+01_rb,3.9775e+01_rb,3.3431e+01_rb,2.8442e+01_rb,6.5979e+00_rb/)
+      kbo(:, 1,57,11) = (/ &
+     &1.9429e+00_rb,5.5686e+00_rb,6.8405e+00_rb,6.9151e+00_rb,3.3226e+00_rb/)
+      kbo(:, 2,57,11) = (/ &
+     &4.7724e+00_rb,8.9791e+00_rb,1.0545e+01_rb,1.0240e+01_rb,4.1527e+00_rb/)
+      kbo(:, 3,57,11) = (/ &
+     &1.0641e+01_rb,1.3735e+01_rb,1.5504e+01_rb,1.4420e+01_rb,4.9657e+00_rb/)
+      kbo(:, 4,57,11) = (/ &
+     &2.1776e+01_rb,2.0320e+01_rb,2.1929e+01_rb,1.9615e+01_rb,5.6966e+00_rb/)
+      kbo(:, 5,57,11) = (/ &
+     &4.1383e+01_rb,3.2617e+01_rb,2.9771e+01_rb,2.5932e+01_rb,6.3597e+00_rb/)
+      kbo(:, 1,58,11) = (/ &
+     &3.4498e-01_rb,1.5267e+00_rb,2.4690e+00_rb,3.5849e+00_rb,3.0713e+00_rb/)
+      kbo(:, 2,58,11) = (/ &
+     &8.9647e-01_rb,2.5018e+00_rb,3.8790e+00_rb,5.3697e+00_rb,3.9024e+00_rb/)
+      kbo(:, 3,58,11) = (/ &
+     &2.0963e+00_rb,3.8966e+00_rb,5.7628e+00_rb,7.6647e+00_rb,4.7137e+00_rb/)
+      kbo(:, 4,58,11) = (/ &
+     &4.4774e+00_rb,5.7497e+00_rb,8.2495e+00_rb,1.0504e+01_rb,5.4718e+00_rb/)
+      kbo(:, 5,58,11) = (/ &
+     &8.7673e+00_rb,8.8663e+00_rb,1.1318e+01_rb,1.3996e+01_rb,6.1538e+00_rb/)
+      kbo(:, 1,59,11) = (/ &
+     &3.2685e-01_rb,1.8752e+00_rb,2.9232e+00_rb,3.9328e+00_rb,2.9672e+00_rb/)
+      kbo(:, 2,59,11) = (/ &
+     &8.8018e-01_rb,3.0635e+00_rb,4.5809e+00_rb,5.8034e+00_rb,3.8049e+00_rb/)
+      kbo(:, 3,59,11) = (/ &
+     &2.1278e+00_rb,4.7401e+00_rb,6.7591e+00_rb,8.2573e+00_rb,4.6076e+00_rb/)
+      kbo(:, 4,59,11) = (/ &
+     &4.6712e+00_rb,6.9756e+00_rb,9.6079e+00_rb,1.1224e+01_rb,5.3733e+00_rb/)
+      kbo(:, 5,59,11) = (/ &
+     &9.3271e+00_rb,1.0056e+01_rb,1.3155e+01_rb,1.4840e+01_rb,6.0503e+00_rb/)
+      kbo(:, 1,13,12) = (/ &
+     &7.5516e+02_rb,5.6651e+02_rb,3.7786e+02_rb,1.8921e+02_rb,4.6057e+00_rb/)
+      kbo(:, 2,13,12) = (/ &
+     &1.1031e+03_rb,8.2746e+02_rb,5.5183e+02_rb,2.7620e+02_rb,4.4752e+00_rb/)
+      kbo(:, 3,13,12) = (/ &
+     &1.5208e+03_rb,1.1407e+03_rb,7.6067e+02_rb,3.8062e+02_rb,4.3357e+00_rb/)
+      kbo(:, 4,13,12) = (/ &
+     &2.0072e+03_rb,1.5056e+03_rb,1.0039e+03_rb,5.0221e+02_rb,4.1960e+00_rb/)
+      kbo(:, 5,13,12) = (/ &
+     &2.5500e+03_rb,1.9126e+03_rb,1.2753e+03_rb,6.3790e+02_rb,4.0223e+00_rb/)
+      kbo(:, 1,14,12) = (/ &
+     &5.0313e+02_rb,3.7749e+02_rb,2.5185e+02_rb,1.2621e+02_rb,5.0046e+00_rb/)
+      kbo(:, 2,14,12) = (/ &
+     &7.2897e+02_rb,5.4687e+02_rb,3.6476e+02_rb,1.8266e+02_rb,4.8590e+00_rb/)
+      kbo(:, 3,14,12) = (/ &
+     &9.9893e+02_rb,7.4933e+02_rb,4.9972e+02_rb,2.5013e+02_rb,4.7095e+00_rb/)
+      kbo(:, 4,14,12) = (/ &
+     &1.3102e+03_rb,9.8276e+02_rb,6.5533e+02_rb,3.2791e+02_rb,4.5769e+00_rb/)
+      kbo(:, 5,14,12) = (/ &
+     &1.6551e+03_rb,1.2414e+03_rb,8.2775e+02_rb,4.1411e+02_rb,4.4631e+00_rb/)
+      kbo(:, 1,15,12) = (/ &
+     &3.3639e+02_rb,2.5243e+02_rb,1.6847e+02_rb,8.4507e+01_rb,5.4523e+00_rb/)
+      kbo(:, 2,15,12) = (/ &
+     &4.8280e+02_rb,3.6223e+02_rb,2.4166e+02_rb,1.2109e+02_rb,5.3133e+00_rb/)
+      kbo(:, 3,15,12) = (/ &
+     &6.5719e+02_rb,4.9302e+02_rb,3.2884e+02_rb,1.6466e+02_rb,5.1834e+00_rb/)
+      kbo(:, 4,15,12) = (/ &
+     &8.5550e+02_rb,6.4175e+02_rb,4.2799e+02_rb,2.1423e+02_rb,5.0660e+00_rb/)
+      kbo(:, 5,15,12) = (/ &
+     &1.0728e+03_rb,8.0472e+02_rb,5.3663e+02_rb,2.6854e+02_rb,4.9623e+00_rb/)
+      kbo(:, 1,16,12) = (/ &
+     &2.6229e+02_rb,1.9684e+02_rb,1.3139e+02_rb,6.5935e+01_rb,6.0512e+00_rb/)
+      kbo(:, 2,16,12) = (/ &
+     &3.7303e+02_rb,2.7989e+02_rb,1.8674e+02_rb,9.3604e+01_rb,5.9120e+00_rb/)
+      kbo(:, 3,16,12) = (/ &
+     &5.0297e+02_rb,3.7733e+02_rb,2.5170e+02_rb,1.2607e+02_rb,5.7872e+00_rb/)
+      kbo(:, 4,16,12) = (/ &
+     &6.4911e+02_rb,4.8694e+02_rb,3.2477e+02_rb,1.6260e+02_rb,5.6679e+00_rb/)
+      kbo(:, 5,16,12) = (/ &
+     &8.0986e+02_rb,6.0750e+02_rb,4.0515e+02_rb,2.0279e+02_rb,5.5547e+00_rb/)
+      kbo(:, 1,17,12) = (/ &
+     &2.0705e+02_rb,1.5540e+02_rb,1.0375e+02_rb,5.2106e+01_rb,6.7730e+00_rb/)
+      kbo(:, 2,17,12) = (/ &
+     &2.9135e+02_rb,2.1862e+02_rb,1.4589e+02_rb,7.3163e+01_rb,6.6333e+00_rb/)
+      kbo(:, 3,17,12) = (/ &
+     &3.8916e+02_rb,2.9197e+02_rb,1.9479e+02_rb,9.7603e+01_rb,6.4989e+00_rb/)
+      kbo(:, 4,17,12) = (/ &
+     &4.9976e+02_rb,3.7492e+02_rb,2.5009e+02_rb,1.2525e+02_rb,6.3687e+00_rb/)
+      kbo(:, 5,17,12) = (/ &
+     &6.2230e+02_rb,4.6683e+02_rb,3.1136e+02_rb,1.5589e+02_rb,6.2358e+00_rb/)
+      kbo(:, 1,18,12) = (/ &
+     &1.6333e+02_rb,1.2261e+02_rb,8.1888e+01_rb,4.1178e+01_rb,7.5424e+00_rb/)
+      kbo(:, 2,18,12) = (/ &
+     &2.2759e+02_rb,1.7080e+02_rb,1.1401e+02_rb,5.7226e+01_rb,7.4084e+00_rb/)
+      kbo(:, 3,18,12) = (/ &
+     &3.0244e+02_rb,2.2693e+02_rb,1.5143e+02_rb,7.5931e+01_rb,7.2669e+00_rb/)
+      kbo(:, 4,18,12) = (/ &
+     &3.8758e+02_rb,2.9079e+02_rb,1.9400e+02_rb,9.7216e+01_rb,7.1208e+00_rb/)
+      kbo(:, 5,18,12) = (/ &
+     &4.8269e+02_rb,3.6212e+02_rb,2.4155e+02_rb,1.2098e+02_rb,6.9720e+00_rb/)
+      kbo(:, 1,19,12) = (/ &
+     &1.2382e+02_rb,9.2977e+01_rb,6.2136e+01_rb,3.1325e+01_rb,8.3597e+00_rb/)
+      kbo(:, 2,19,12) = (/ &
+     &1.7154e+02_rb,1.2877e+02_rb,8.5994e+01_rb,4.3233e+01_rb,8.2061e+00_rb/)
+      kbo(:, 3,19,12) = (/ &
+     &2.2748e+02_rb,1.7072e+02_rb,1.1396e+02_rb,5.7206e+01_rb,8.0513e+00_rb/)
+      kbo(:, 4,19,12) = (/ &
+     &2.9138e+02_rb,2.1864e+02_rb,1.4590e+02_rb,7.3167e+01_rb,7.8994e+00_rb/)
+      kbo(:, 5,19,12) = (/ &
+     &3.6253e+02_rb,2.7200e+02_rb,1.8147e+02_rb,9.0939e+01_rb,7.7452e+00_rb/)
+      kbo(:, 1,20,12) = (/ &
+     &1.0042e+02_rb,7.5430e+01_rb,5.0444e+01_rb,2.5891e+01_rb,9.1675e+00_rb/)
+      kbo(:, 2,20,12) = (/ &
+     &1.3861e+02_rb,1.0407e+02_rb,6.9532e+01_rb,3.5031e+01_rb,9.0030e+00_rb/)
+      kbo(:, 3,20,12) = (/ &
+     &1.8351e+02_rb,1.3774e+02_rb,9.1975e+01_rb,4.6211e+01_rb,8.8390e+00_rb/)
+      kbo(:, 4,20,12) = (/ &
+     &2.3463e+02_rb,1.7607e+02_rb,1.1752e+02_rb,5.8971e+01_rb,8.6735e+00_rb/)
+      kbo(:, 5,20,12) = (/ &
+     &2.9128e+02_rb,2.1856e+02_rb,1.4583e+02_rb,7.3117e+01_rb,8.5016e+00_rb/)
+      kbo(:, 1,21,12) = (/ &
+     &8.3057e+01_rb,6.2407e+01_rb,4.1762e+01_rb,2.2683e+01_rb,9.9550e+00_rb/)
+      kbo(:, 2,21,12) = (/ &
+     &1.1435e+02_rb,8.5868e+01_rb,5.7394e+01_rb,2.9474e+01_rb,9.7863e+00_rb/)
+      kbo(:, 3,21,12) = (/ &
+     &1.5096e+02_rb,1.1332e+02_rb,7.5686e+01_rb,3.8128e+01_rb,9.6108e+00_rb/)
+      kbo(:, 4,21,12) = (/ &
+     &1.9244e+02_rb,1.4443e+02_rb,9.6415e+01_rb,4.8410e+01_rb,9.4311e+00_rb/)
+      kbo(:, 5,21,12) = (/ &
+     &2.3840e+02_rb,1.7889e+02_rb,1.1939e+02_rb,5.9885e+01_rb,9.2417e+00_rb/)
+      kbo(:, 1,22,12) = (/ &
+     &7.1250e+01_rb,5.3549e+01_rb,3.5853e+01_rb,2.1126e+01_rb,1.0685e+01_rb/)
+      kbo(:, 2,22,12) = (/ &
+     &9.7414e+01_rb,7.3164e+01_rb,4.8918e+01_rb,2.6307e+01_rb,1.0512e+01_rb/)
+      kbo(:, 3,22,12) = (/ &
+     &1.2780e+02_rb,9.5945e+01_rb,6.4097e+01_rb,3.2967e+01_rb,1.0335e+01_rb/)
+      kbo(:, 4,22,12) = (/ &
+     &1.6218e+02_rb,1.2173e+02_rb,8.1281e+01_rb,4.1038e+01_rb,1.0145e+01_rb/)
+      kbo(:, 5,22,12) = (/ &
+     &2.0041e+02_rb,1.5040e+02_rb,1.0039e+02_rb,5.0398e+01_rb,9.9454e+00_rb/)
+      kbo(:, 1,23,12) = (/ &
+     &6.0942e+01_rb,4.5813e+01_rb,3.0934e+01_rb,2.0012e+01_rb,1.1340e+01_rb/)
+      kbo(:, 2,23,12) = (/ &
+     &8.2640e+01_rb,6.2081e+01_rb,4.1527e+01_rb,2.4053e+01_rb,1.1180e+01_rb/)
+      kbo(:, 3,23,12) = (/ &
+     &1.0785e+02_rb,8.0983e+01_rb,5.4124e+01_rb,2.9110e+01_rb,1.1001e+01_rb/)
+      kbo(:, 4,23,12) = (/ &
+     &1.3652e+02_rb,1.0249e+02_rb,6.8454e+01_rb,3.5343e+01_rb,1.0812e+01_rb/)
+      kbo(:, 5,23,12) = (/ &
+     &1.6894e+02_rb,1.2680e+02_rb,8.4663e+01_rb,4.2880e+01_rb,1.0609e+01_rb/)
+      kbo(:, 1,24,12) = (/ &
+     &5.1406e+01_rb,3.8659e+01_rb,2.6835e+01_rb,1.9368e+01_rb,1.1917e+01_rb/)
+      kbo(:, 2,24,12) = (/ &
+     &6.9266e+01_rb,5.2052e+01_rb,3.5118e+01_rb,2.2283e+01_rb,1.1770e+01_rb/)
+      kbo(:, 3,24,12) = (/ &
+     &9.0127e+01_rb,6.7693e+01_rb,4.5282e+01_rb,2.6104e+01_rb,1.1607e+01_rb/)
+      kbo(:, 4,24,12) = (/ &
+     &1.1424e+02_rb,8.5780e+01_rb,5.7328e+01_rb,3.0937e+01_rb,1.1421e+01_rb/)
+      kbo(:, 5,24,12) = (/ &
+     &1.4182e+02_rb,1.0646e+02_rb,7.1109e+01_rb,3.6894e+01_rb,1.1218e+01_rb/)
+      kbo(:, 1,25,12) = (/ &
+     &4.3762e+01_rb,3.2928e+01_rb,2.3974e+01_rb,1.9297e+01_rb,1.2406e+01_rb/)
+      kbo(:, 2,25,12) = (/ &
+     &5.8726e+01_rb,4.4147e+01_rb,3.0453e+01_rb,2.1379e+01_rb,1.2284e+01_rb/)
+      kbo(:, 3,25,12) = (/ &
+     &7.6463e+01_rb,5.7453e+01_rb,3.8735e+01_rb,2.4187e+01_rb,1.2134e+01_rb/)
+      kbo(:, 4,25,12) = (/ &
+     &9.7222e+01_rb,7.3021e+01_rb,4.8859e+01_rb,2.7987e+01_rb,1.1961e+01_rb/)
+      kbo(:, 5,25,12) = (/ &
+     &1.2098e+02_rb,9.0828e+01_rb,6.0694e+01_rb,3.2765e+01_rb,1.1759e+01_rb/)
+      kbo(:, 1,26,12) = (/ &
+     &3.8022e+01_rb,2.8659e+01_rb,2.2105e+01_rb,1.9516e+01_rb,1.2805e+01_rb/)
+      kbo(:, 2,26,12) = (/ &
+     &5.0994e+01_rb,3.8356e+01_rb,2.7362e+01_rb,2.1131e+01_rb,1.2709e+01_rb/)
+      kbo(:, 3,26,12) = (/ &
+     &6.6538e+01_rb,5.0014e+01_rb,3.4258e+01_rb,2.3250e+01_rb,1.2582e+01_rb/)
+      kbo(:, 4,26,12) = (/ &
+     &8.4702e+01_rb,6.3631e+01_rb,4.2833e+01_rb,2.6169e+01_rb,1.2418e+01_rb/)
+      kbo(:, 5,26,12) = (/ &
+     &1.0565e+02_rb,7.9327e+01_rb,5.3062e+01_rb,3.0028e+01_rb,1.2216e+01_rb/)
+      kbo(:, 1,27,12) = (/ &
+     &3.4489e+01_rb,2.6132e+01_rb,2.1235e+01_rb,1.9878e+01_rb,1.3122e+01_rb/)
+      kbo(:, 2,27,12) = (/ &
+     &4.6305e+01_rb,3.4844e+01_rb,2.5714e+01_rb,2.1342e+01_rb,1.3062e+01_rb/)
+      kbo(:, 3,27,12) = (/ &
+     &6.0441e+01_rb,4.5443e+01_rb,3.1734e+01_rb,2.3085e+01_rb,1.2955e+01_rb/)
+      kbo(:, 4,27,12) = (/ &
+     &7.7109e+01_rb,5.7931e+01_rb,3.9347e+01_rb,2.5409e+01_rb,1.2800e+01_rb/)
+      kbo(:, 5,27,12) = (/ &
+     &9.6578e+01_rb,7.2521e+01_rb,4.8662e+01_rb,2.8654e+01_rb,1.2602e+01_rb/)
+      kbo(:, 1,28,12) = (/ &
+     &3.2427e+01_rb,2.4737e+01_rb,2.0948e+01_rb,2.0280e+01_rb,1.3386e+01_rb/)
+      kbo(:, 2,28,12) = (/ &
+     &4.3501e+01_rb,3.2787e+01_rb,2.4919e+01_rb,2.1714e+01_rb,1.3352e+01_rb/)
+      kbo(:, 3,28,12) = (/ &
+     &5.6891e+01_rb,4.2776e+01_rb,3.0416e+01_rb,2.3252e+01_rb,1.3262e+01_rb/)
+      kbo(:, 4,28,12) = (/ &
+     &7.2922e+01_rb,5.4789e+01_rb,3.7531e+01_rb,2.5273e+01_rb,1.3118e+01_rb/)
+      kbo(:, 5,28,12) = (/ &
+     &9.1872e+01_rb,6.8992e+01_rb,4.6457e+01_rb,2.8166e+01_rb,1.2926e+01_rb/)
+      kbo(:, 1,29,12) = (/ &
+     &3.2667e+01_rb,2.5018e+01_rb,2.1498e+01_rb,2.0955e+01_rb,1.3603e+01_rb/)
+      kbo(:, 2,29,12) = (/ &
+     &4.3912e+01_rb,3.3123e+01_rb,2.5431e+01_rb,2.2422e+01_rb,1.3591e+01_rb/)
+      kbo(:, 3,29,12) = (/ &
+     &5.7701e+01_rb,4.3385e+01_rb,3.1008e+01_rb,2.3974e+01_rb,1.3517e+01_rb/)
+      kbo(:, 4,29,12) = (/ &
+     &7.4275e+01_rb,5.5806e+01_rb,3.8313e+01_rb,2.6005e+01_rb,1.3383e+01_rb/)
+      kbo(:, 5,29,12) = (/ &
+     &9.3871e+01_rb,7.0500e+01_rb,4.7521e+01_rb,2.8930e+01_rb,1.3178e+01_rb/)
+      kbo(:, 1,30,12) = (/ &
+     &3.4156e+01_rb,2.6153e+01_rb,2.2429e+01_rb,2.1713e+01_rb,1.3788e+01_rb/)
+      kbo(:, 2,30,12) = (/ &
+     &4.6027e+01_rb,3.4711e+01_rb,2.6560e+01_rb,2.3234e+01_rb,1.3795e+01_rb/)
+      kbo(:, 3,30,12) = (/ &
+     &6.0622e+01_rb,4.5582e+01_rb,3.2488e+01_rb,2.4921e+01_rb,1.3734e+01_rb/)
+      kbo(:, 4,30,12) = (/ &
+     &7.8321e+01_rb,5.8857e+01_rb,4.0368e+01_rb,2.7080e+01_rb,1.3599e+01_rb/)
+      kbo(:, 5,30,12) = (/ &
+     &9.9301e+01_rb,7.4592e+01_rb,5.0256e+01_rb,3.0286e+01_rb,1.3384e+01_rb/)
+      kbo(:, 1,31,12) = (/ &
+     &3.8076e+01_rb,2.9005e+01_rb,2.4159e+01_rb,2.2772e+01_rb,1.3950e+01_rb/)
+      kbo(:, 2,31,12) = (/ &
+     &5.1386e+01_rb,3.8696e+01_rb,2.8953e+01_rb,2.4505e+01_rb,1.3973e+01_rb/)
+      kbo(:, 3,31,12) = (/ &
+     &6.7843e+01_rb,5.1009e+01_rb,3.5918e+01_rb,2.6433e+01_rb,1.3920e+01_rb/)
+      kbo(:, 4,31,12) = (/ &
+     &8.7812e+01_rb,6.5990e+01_rb,4.4995e+01_rb,2.9071e+01_rb,1.3753e+01_rb/)
+      kbo(:, 5,31,12) = (/ &
+     &1.1160e+02_rb,8.3824e+01_rb,5.6340e+01_rb,3.3050e+01_rb,1.3573e+01_rb/)
+      kbo(:, 1,32,12) = (/ &
+     &4.3422e+01_rb,3.2909e+01_rb,2.6354e+01_rb,2.4011e+01_rb,1.4101e+01_rb/)
+      kbo(:, 2,32,12) = (/ &
+     &5.8749e+01_rb,4.4202e+01_rb,3.2268e+01_rb,2.6008e+01_rb,1.4129e+01_rb/)
+      kbo(:, 3,32,12) = (/ &
+     &7.7682e+01_rb,5.8398e+01_rb,4.0569e+01_rb,2.8355e+01_rb,1.4037e+01_rb/)
+      kbo(:, 4,32,12) = (/ &
+     &1.0053e+02_rb,7.5534e+01_rb,5.1158e+01_rb,3.1768e+01_rb,1.3909e+01_rb/)
+      kbo(:, 5,32,12) = (/ &
+     &1.2780e+02_rb,9.5988e+01_rb,6.4344e+01_rb,3.6705e+01_rb,1.3757e+01_rb/)
+      kbo(:, 1,33,12) = (/ &
+     &5.0972e+01_rb,3.8474e+01_rb,2.9509e+01_rb,2.5608e+01_rb,1.4236e+01_rb/)
+      kbo(:, 2,33,12) = (/ &
+     &6.8978e+01_rb,5.1873e+01_rb,3.6983e+01_rb,2.7940e+01_rb,1.4225e+01_rb/)
+      kbo(:, 3,33,12) = (/ &
+     &9.1196e+01_rb,6.8536e+01_rb,4.6964e+01_rb,3.1045e+01_rb,1.4156e+01_rb/)
+      kbo(:, 4,33,12) = (/ &
+     &1.1806e+02_rb,8.8684e+01_rb,5.9688e+01_rb,3.5479e+01_rb,1.4053e+01_rb/)
+      kbo(:, 5,33,12) = (/ &
+     &1.5026e+02_rb,1.1283e+02_rb,7.5476e+01_rb,4.1722e+01_rb,1.3797e+01_rb/)
+      kbo(:, 1,34,12) = (/ &
+     &5.8196e+01_rb,4.3842e+01_rb,3.2696e+01_rb,2.7075e+01_rb,1.4322e+01_rb/)
+      kbo(:, 2,34,12) = (/ &
+     &7.8717e+01_rb,5.9180e+01_rb,4.1505e+01_rb,2.9899e+01_rb,1.4304e+01_rb/)
+      kbo(:, 3,34,12) = (/ &
+     &1.0408e+02_rb,7.8203e+01_rb,5.3150e+01_rb,3.3676e+01_rb,1.4279e+01_rb/)
+      kbo(:, 4,34,12) = (/ &
+     &1.3497e+02_rb,1.0137e+02_rb,6.8004e+01_rb,3.9142e+01_rb,1.4130e+01_rb/)
+      kbo(:, 5,34,12) = (/ &
+     &1.7215e+02_rb,1.2926e+02_rb,8.6400e+01_rb,4.6696e+01_rb,1.3817e+01_rb/)
+      kbo(:, 1,35,12) = (/ &
+     &6.4953e+01_rb,4.8885e+01_rb,3.5777e+01_rb,2.8513e+01_rb,1.4376e+01_rb/)
+      kbo(:, 2,35,12) = (/ &
+     &8.7973e+01_rb,6.6128e+01_rb,4.5876e+01_rb,3.1844e+01_rb,1.4423e+01_rb/)
+      kbo(:, 3,35,12) = (/ &
+     &1.1659e+02_rb,8.7588e+01_rb,5.9213e+01_rb,3.6344e+01_rb,1.4380e+01_rb/)
+      kbo(:, 4,35,12) = (/ &
+     &1.5177e+02_rb,1.1397e+02_rb,7.6316e+01_rb,4.2891e+01_rb,1.4142e+01_rb/)
+      kbo(:, 5,35,12) = (/ &
+     &1.9438e+02_rb,1.4593e+02_rb,9.7521e+01_rb,5.1793e+01_rb,1.3951e+01_rb/)
+      kbo(:, 1,36,12) = (/ &
+     &7.0028e+01_rb,5.2692e+01_rb,3.8196e+01_rb,2.9764e+01_rb,1.4429e+01_rb/)
+      kbo(:, 2,36,12) = (/ &
+     &9.5230e+01_rb,7.1580e+01_rb,4.9388e+01_rb,3.3491e+01_rb,1.4515e+01_rb/)
+      kbo(:, 3,36,12) = (/ &
+     &1.2679e+02_rb,9.5251e+01_rb,6.4219e+01_rb,3.8654e+01_rb,1.4447e+01_rb/)
+      kbo(:, 4,36,12) = (/ &
+     &1.6604e+02_rb,1.2468e+02_rb,8.3408e+01_rb,4.6199e+01_rb,1.4226e+01_rb/)
+      kbo(:, 5,36,12) = (/ &
+     &2.1406e+02_rb,1.6070e+02_rb,1.0737e+02_rb,5.6401e+01_rb,1.4079e+01_rb/)
+      kbo(:, 1,37,12) = (/ &
+     &7.0336e+01_rb,5.2944e+01_rb,3.8605e+01_rb,3.0262e+01_rb,1.4492e+01_rb/)
+      kbo(:, 2,37,12) = (/ &
+     &9.6465e+01_rb,7.2514e+01_rb,5.0131e+01_rb,3.4164e+01_rb,1.4585e+01_rb/)
+      kbo(:, 3,37,12) = (/ &
+     &1.2955e+02_rb,9.7324e+01_rb,6.5642e+01_rb,3.9574e+01_rb,1.4537e+01_rb/)
+      kbo(:, 4,37,12) = (/ &
+     &1.7114e+02_rb,1.2851e+02_rb,8.5971e+01_rb,4.7570e+01_rb,1.4312e+01_rb/)
+      kbo(:, 5,37,12) = (/ &
+     &2.2257e+02_rb,1.6708e+02_rb,1.1162e+02_rb,5.8523e+01_rb,1.4157e+01_rb/)
+      kbo(:, 1,38,12) = (/ &
+     &7.1653e+01_rb,5.3935e+01_rb,3.9443e+01_rb,3.0956e+01_rb,1.4537e+01_rb/)
+      kbo(:, 2,38,12) = (/ &
+     &9.9371e+01_rb,7.4697e+01_rb,5.1646e+01_rb,3.5117e+01_rb,1.4670e+01_rb/)
+      kbo(:, 3,38,12) = (/ &
+     &1.3467e+02_rb,1.0116e+02_rb,6.8199e+01_rb,4.0938e+01_rb,1.4595e+01_rb/)
+      kbo(:, 4,38,12) = (/ &
+     &1.7944e+02_rb,1.3474e+02_rb,9.0110e+01_rb,4.9614e+01_rb,1.4367e+01_rb/)
+      kbo(:, 5,38,12) = (/ &
+     &2.3537e+02_rb,1.7668e+02_rb,1.1802e+02_rb,6.1608e+01_rb,1.4213e+01_rb/)
+      kbo(:, 1,39,12) = (/ &
+     &7.4953e+01_rb,5.6404e+01_rb,4.1108e+01_rb,3.2048e+01_rb,1.4593e+01_rb/)
+      kbo(:, 2,39,12) = (/ &
+     &1.0508e+02_rb,7.8982e+01_rb,5.4463e+01_rb,3.6606e+01_rb,1.4737e+01_rb/)
+      kbo(:, 3,39,12) = (/ &
+     &1.4387e+02_rb,1.0807e+02_rb,7.2745e+01_rb,4.3123e+01_rb,1.4593e+01_rb/)
+      kbo(:, 4,39,12) = (/ &
+     &1.9336e+02_rb,1.4518e+02_rb,9.7046e+01_rb,5.2882e+01_rb,1.4422e+01_rb/)
+      kbo(:, 5,39,12) = (/ &
+     &2.5579e+02_rb,1.9200e+02_rb,1.2823e+02_rb,6.6478e+01_rb,1.4241e+01_rb/)
+      kbo(:, 1,40,12) = (/ &
+     &7.1125e+01_rb,5.3576e+01_rb,3.9744e+01_rb,3.1845e+01_rb,1.4584e+01_rb/)
+      kbo(:, 2,40,12) = (/ &
+     &1.0123e+02_rb,7.6093e+01_rb,5.2813e+01_rb,3.6464e+01_rb,1.4753e+01_rb/)
+      kbo(:, 3,40,12) = (/ &
+     &1.4047e+02_rb,1.0551e+02_rb,7.1189e+01_rb,4.2876e+01_rb,1.4635e+01_rb/)
+      kbo(:, 4,40,12) = (/ &
+     &1.9075e+02_rb,1.4322e+02_rb,9.5759e+01_rb,5.2592e+01_rb,1.4461e+01_rb/)
+      kbo(:, 5,40,12) = (/ &
+     &2.5487e+02_rb,1.9131e+02_rb,1.2777e+02_rb,6.6443e+01_rb,1.4311e+01_rb/)
+      kbo(:, 1,41,12) = (/ &
+     &6.6999e+01_rb,5.0553e+01_rb,3.8328e+01_rb,3.1540e+01_rb,1.4557e+01_rb/)
+      kbo(:, 2,41,12) = (/ &
+     &9.6989e+01_rb,7.2904e+01_rb,5.1038e+01_rb,3.6239e+01_rb,1.4754e+01_rb/)
+      kbo(:, 3,41,12) = (/ &
+     &1.3645e+02_rb,1.0250e+02_rb,6.9354e+01_rb,4.2559e+01_rb,1.4660e+01_rb/)
+      kbo(:, 4,41,12) = (/ &
+     &1.8750e+02_rb,1.4078e+02_rb,9.4178e+01_rb,5.2196e+01_rb,1.4491e+01_rb/)
+      kbo(:, 5,41,12) = (/ &
+     &2.5297e+02_rb,1.8988e+02_rb,1.2682e+02_rb,6.6184e+01_rb,1.4389e+01_rb/)
+      kbo(:, 1,42,12) = (/ &
+     &6.3698e+01_rb,4.8173e+01_rb,3.7314e+01_rb,3.1356e+01_rb,1.4515e+01_rb/)
+      kbo(:, 2,42,12) = (/ &
+     &9.3921e+01_rb,7.0600e+01_rb,4.9842e+01_rb,3.6216e+01_rb,1.4716e+01_rb/)
+      kbo(:, 3,42,12) = (/ &
+     &1.3407e+02_rb,1.0072e+02_rb,6.8313e+01_rb,4.2558e+01_rb,1.4673e+01_rb/)
+      kbo(:, 4,42,12) = (/ &
+     &1.8663e+02_rb,1.4013e+02_rb,9.3782e+01_rb,5.2338e+01_rb,1.4521e+01_rb/)
+      kbo(:, 5,42,12) = (/ &
+     &2.5424e+02_rb,1.9084e+02_rb,1.2745e+02_rb,6.6667e+01_rb,1.4444e+01_rb/)
+      kbo(:, 1,43,12) = (/ &
+     &5.9556e+01_rb,4.5221e+01_rb,3.6039e+01_rb,3.0985e+01_rb,1.4424e+01_rb/)
+      kbo(:, 2,43,12) = (/ &
+     &8.9715e+01_rb,6.7448e+01_rb,4.8196e+01_rb,3.6053e+01_rb,1.4672e+01_rb/)
+      kbo(:, 3,43,12) = (/ &
+     &1.3041e+02_rb,9.7958e+01_rb,6.6682e+01_rb,4.2356e+01_rb,1.4685e+01_rb/)
+      kbo(:, 4,43,12) = (/ &
+     &1.8413e+02_rb,1.3825e+02_rb,9.2592e+01_rb,5.2204e+01_rb,1.4530e+01_rb/)
+      kbo(:, 5,43,12) = (/ &
+     &2.5372e+02_rb,1.9044e+02_rb,1.2719e+02_rb,6.6793e+01_rb,1.4531e+01_rb/)
+      kbo(:, 1,44,12) = (/ &
+     &5.5617e+01_rb,4.2462e+01_rb,3.4926e+01_rb,3.0616e+01_rb,1.4301e+01_rb/)
+      kbo(:, 2,44,12) = (/ &
+     &8.5711e+01_rb,6.4467e+01_rb,4.6726e+01_rb,3.5948e+01_rb,1.4602e+01_rb/)
+      kbo(:, 3,44,12) = (/ &
+     &1.2713e+02_rb,9.5499e+01_rb,6.5283e+01_rb,4.2294e+01_rb,1.4674e+01_rb/)
+      kbo(:, 4,44,12) = (/ &
+     &1.8238e+02_rb,1.3694e+02_rb,9.1783e+01_rb,5.2246e+01_rb,1.4528e+01_rb/)
+      kbo(:, 5,44,12) = (/ &
+     &2.5466e+02_rb,1.9115e+02_rb,1.2766e+02_rb,6.7294e+01_rb,1.4570e+01_rb/)
+      kbo(:, 1,45,12) = (/ &
+     &5.2685e+01_rb,4.0486e+01_rb,3.4264e+01_rb,3.0427e+01_rb,1.4151e+01_rb/)
+      kbo(:, 2,45,12) = (/ &
+     &8.3179e+01_rb,6.2605e+01_rb,4.5965e+01_rb,3.6072e+01_rb,1.4507e+01_rb/)
+      kbo(:, 3,45,12) = (/ &
+     &1.2601e+02_rb,9.4652e+01_rb,6.4923e+01_rb,4.2669e+01_rb,1.4643e+01_rb/)
+      kbo(:, 4,45,12) = (/ &
+     &1.8401e+02_rb,1.3816e+02_rb,9.2634e+01_rb,5.3005e+01_rb,1.4503e+01_rb/)
+      kbo(:, 5,45,12) = (/ &
+     &2.6050e+02_rb,1.9553e+02_rb,1.3058e+02_rb,6.8905e+01_rb,1.4618e+01_rb/)
+      kbo(:, 1,46,12) = (/ &
+     &4.9550e+01_rb,3.8366e+01_rb,3.3605e+01_rb,3.0155e+01_rb,1.3963e+01_rb/)
+      kbo(:, 2,46,12) = (/ &
+     &8.0337e+01_rb,6.0538e+01_rb,4.5156e+01_rb,3.6142e+01_rb,1.4400e+01_rb/)
+      kbo(:, 3,46,12) = (/ &
+     &1.2453e+02_rb,9.3545e+01_rb,6.4429e+01_rb,4.3023e+01_rb,1.4594e+01_rb/)
+      kbo(:, 4,46,12) = (/ &
+     &1.8550e+02_rb,1.3927e+02_rb,9.3438e+01_rb,5.3784e+01_rb,1.4498e+01_rb/)
+      kbo(:, 5,46,12) = (/ &
+     &2.6666e+02_rb,2.0015e+02_rb,1.3366e+02_rb,7.0579e+01_rb,1.4676e+01_rb/)
+      kbo(:, 1,47,12) = (/ &
+     &4.4761e+01_rb,3.5144e+01_rb,3.2385e+01_rb,2.9408e+01_rb,1.3714e+01_rb/)
+      kbo(:, 2,47,12) = (/ &
+     &7.4836e+01_rb,5.6569e+01_rb,4.3337e+01_rb,3.5671e+01_rb,1.4241e+01_rb/)
+      kbo(:, 3,47,12) = (/ &
+     &1.1904e+02_rb,8.9427e+01_rb,6.2124e+01_rb,4.2720e+01_rb,1.4513e+01_rb/)
+      kbo(:, 4,47,12) = (/ &
+     &1.8135e+02_rb,1.3615e+02_rb,9.1529e+01_rb,5.3518e+01_rb,1.4491e+01_rb/)
+      kbo(:, 5,47,12) = (/ &
+     &2.6557e+02_rb,1.9933e+02_rb,1.3311e+02_rb,7.0671e+01_rb,1.4708e+01_rb/)
+      kbo(:, 1,48,12) = (/ &
+     &4.1069e+01_rb,3.2801e+01_rb,3.1586e+01_rb,2.8865e+01_rb,1.3457e+01_rb/)
+      kbo(:, 2,48,12) = (/ &
+     &7.0975e+01_rb,5.3819e+01_rb,4.2302e+01_rb,3.5478e+01_rb,1.4056e+01_rb/)
+      kbo(:, 3,48,12) = (/ &
+     &1.1614e+02_rb,8.7254e+01_rb,6.1078e+01_rb,4.2908e+01_rb,1.4399e+01_rb/)
+      kbo(:, 4,48,12) = (/ &
+     &1.8113e+02_rb,1.3599e+02_rb,9.1560e+01_rb,5.4099e+01_rb,1.4482e+01_rb/)
+      kbo(:, 5,48,12) = (/ &
+     &2.7078e+02_rb,2.0323e+02_rb,1.3570e+02_rb,7.2222e+01_rb,1.4704e+01_rb/)
+      kbo(:, 1,49,12) = (/ &
+     &3.8731e+01_rb,3.1486e+01_rb,3.1265e+01_rb,2.8628e+01_rb,1.3159e+01_rb/)
+      kbo(:, 2,49,12) = (/ &
+     &6.9397e+01_rb,5.2759e+01_rb,4.2223e+01_rb,3.5759e+01_rb,1.3841e+01_rb/)
+      kbo(:, 3,49,12) = (/ &
+     &1.1709e+02_rb,8.7966e+01_rb,6.1851e+01_rb,4.3836e+01_rb,1.4254e+01_rb/)
+      kbo(:, 4,49,12) = (/ &
+     &1.8714e+02_rb,1.4049e+02_rb,9.4623e+01_rb,5.5973e+01_rb,1.4472e+01_rb/)
+      kbo(:, 5,49,12) = (/ &
+     &2.8581e+02_rb,2.1450e+02_rb,1.4321e+02_rb,7.6013e+01_rb,1.4713e+01_rb/)
+      kbo(:, 1,50,12) = (/ &
+     &3.4845e+01_rb,2.9222e+01_rb,3.0219e+01_rb,2.7841e+01_rb,1.2848e+01_rb/)
+      kbo(:, 2,50,12) = (/ &
+     &6.4780e+01_rb,4.9517e+01_rb,4.0909e+01_rb,3.5306e+01_rb,1.3605e+01_rb/)
+      kbo(:, 3,50,12) = (/ &
+     &1.1280e+02_rb,8.4759e+01_rb,6.0286e+01_rb,4.3805e+01_rb,1.4114e+01_rb/)
+      kbo(:, 4,50,12) = (/ &
+     &1.8491e+02_rb,1.3882e+02_rb,9.3723e+01_rb,5.6179e+01_rb,1.4404e+01_rb/)
+      kbo(:, 5,50,12) = (/ &
+     &2.8849e+02_rb,2.1650e+02_rb,1.4455e+02_rb,7.7018e+01_rb,1.4673e+01_rb/)
+      kbo(:, 1,51,12) = (/ &
+     &3.0519e+01_rb,2.6754e+01_rb,2.8814e+01_rb,2.6775e+01_rb,1.2516e+01_rb/)
+      kbo(:, 2,51,12) = (/ &
+     &5.8895e+01_rb,4.5411e+01_rb,3.9106e+01_rb,3.4462e+01_rb,1.3344e+01_rb/)
+      kbo(:, 3,51,12) = (/ &
+     &1.0594e+02_rb,7.9673e+01_rb,5.7668e+01_rb,4.3297e+01_rb,1.3940e+01_rb/)
+      kbo(:, 4,51,12) = (/ &
+     &1.7846e+02_rb,1.3399e+02_rb,9.0800e+01_rb,5.5546e+01_rb,1.4316e+01_rb/)
+      kbo(:, 5,51,12) = (/ &
+     &2.8452e+02_rb,2.1353e+02_rb,1.4260e+02_rb,7.6552e+01_rb,1.4603e+01_rb/)
+      kbo(:, 1,52,12) = (/ &
+     &2.7172e+01_rb,2.4938e+01_rb,2.7638e+01_rb,2.5911e+01_rb,1.2154e+01_rb/)
+      kbo(:, 2,52,12) = (/ &
+     &5.4443e+01_rb,4.2404e+01_rb,3.7930e+01_rb,3.3867e+01_rb,1.3047e+01_rb/)
+      kbo(:, 3,52,12) = (/ &
+     &1.0140e+02_rb,7.6335e+01_rb,5.6140e+01_rb,4.3191e+01_rb,1.3744e+01_rb/)
+      kbo(:, 4,52,12) = (/ &
+     &1.7597e+02_rb,1.3212e+02_rb,8.9791e+01_rb,5.5744e+01_rb,1.4204e+01_rb/)
+      kbo(:, 5,52,12) = (/ &
+     &2.8690e+02_rb,2.1531e+02_rb,1.4382e+02_rb,7.7564e+01_rb,1.4539e+01_rb/)
+      kbo(:, 1,53,12) = (/ &
+     &2.4852e+01_rb,2.3783e+01_rb,2.6797e+01_rb,2.5306e+01_rb,1.1753e+01_rb/)
+      kbo(:, 2,53,12) = (/ &
+     &5.1806e+01_rb,4.0721e+01_rb,3.7447e+01_rb,3.3656e+01_rb,1.2720e+01_rb/)
+      kbo(:, 3,53,12) = (/ &
+     &1.0002e+02_rb,7.5369e+01_rb,5.6019e+01_rb,4.3667e+01_rb,1.3525e+01_rb/)
+      kbo(:, 4,53,12) = (/ &
+     &1.7916e+02_rb,1.3451e+02_rb,9.1517e+01_rb,5.7134e+01_rb,1.4067e+01_rb/)
+      kbo(:, 5,53,12) = (/ &
+     &2.9931e+02_rb,2.2462e+02_rb,1.5004e+02_rb,8.0825e+01_rb,1.4479e+01_rb/)
+      kbo(:, 1,54,12) = (/ &
+     &1.9814e+01_rb,2.1046e+01_rb,2.4392e+01_rb,2.3477e+01_rb,1.1367e+01_rb/)
+      kbo(:, 2,54,12) = (/ &
+     &4.3028e+01_rb,3.5019e+01_rb,3.4545e+01_rb,3.1504e+01_rb,1.2419e+01_rb/)
+      kbo(:, 3,54,12) = (/ &
+     &8.5988e+01_rb,6.5126e+01_rb,5.0588e+01_rb,4.1403e+01_rb,1.3282e+01_rb/)
+      kbo(:, 4,54,12) = (/ &
+     &1.5878e+02_rb,1.1923e+02_rb,8.2044e+01_rb,5.3856e+01_rb,1.3889e+01_rb/)
+      kbo(:, 5,54,12) = (/ &
+     &2.7225e+02_rb,2.0433e+02_rb,1.3669e+02_rb,7.5460e+01_rb,1.4357e+01_rb/)
+      kbo(:, 1,55,12) = (/ &
+     &1.4388e+01_rb,1.7950e+01_rb,2.1372e+01_rb,2.1168e+01_rb,1.0974e+01_rb/)
+      kbo(:, 2,55,12) = (/ &
+     &3.2596e+01_rb,2.8570e+01_rb,3.0630e+01_rb,2.8429e+01_rb,1.2112e+01_rb/)
+      kbo(:, 3,55,12) = (/ &
+     &6.7426e+01_rb,5.1747e+01_rb,4.3446e+01_rb,3.7705e+01_rb,1.3016e+01_rb/)
+      kbo(:, 4,55,12) = (/ &
+     &1.2839e+02_rb,9.6452e+01_rb,6.8218e+01_rb,4.8732e+01_rb,1.3748e+01_rb/)
+      kbo(:, 5,55,12) = (/ &
+     &2.2612e+02_rb,1.6973e+02_rb,1.1415e+02_rb,6.6296e+01_rb,1.4200e+01_rb/)
+      kbo(:, 1,56,12) = (/ &
+     &1.0289e+01_rb,1.5296e+01_rb,1.8729e+01_rb,1.9182e+01_rb,1.0528e+01_rb/)
+      kbo(:, 2,56,12) = (/ &
+     &2.4440e+01_rb,2.3761e+01_rb,2.7083e+01_rb,2.5668e+01_rb,1.1786e+01_rb/)
+      kbo(:, 3,56,12) = (/ &
+     &5.2397e+01_rb,4.1238e+01_rb,3.7979e+01_rb,3.4254e+01_rb,1.2753e+01_rb/)
+      kbo(:, 4,56,12) = (/ &
+     &1.0299e+02_rb,7.7598e+01_rb,5.7468e+01_rb,4.4519e+01_rb,1.3526e+01_rb/)
+      kbo(:, 5,56,12) = (/ &
+     &1.8650e+02_rb,1.4002e+02_rb,9.5113e+01_rb,5.8818e+01_rb,1.4062e+01_rb/)
+      kbo(:, 1,57,12) = (/ &
+     &7.2296e+00_rb,1.3018e+01_rb,1.6426e+01_rb,1.7434e+01_rb,1.0060e+01_rb/)
+      kbo(:, 2,57,12) = (/ &
+     &1.8079e+01_rb,2.0222e+01_rb,2.3856e+01_rb,2.3179e+01_rb,1.1422e+01_rb/)
+      kbo(:, 3,57,12) = (/ &
+     &4.0328e+01_rb,3.3389e+01_rb,3.3719e+01_rb,3.1042e+01_rb,1.2469e+01_rb/)
+      kbo(:, 4,57,12) = (/ &
+     &8.1861e+01_rb,6.2161e+01_rb,4.9031e+01_rb,4.0727e+01_rb,1.3313e+01_rb/)
+      kbo(:, 5,57,12) = (/ &
+     &1.5269e+02_rb,1.1466e+02_rb,7.9200e+01_rb,5.2806e+01_rb,1.3923e+01_rb/)
+      kbo(:, 1,58,12) = (/ &
+     &1.3378e+00_rb,3.6524e+00_rb,6.1661e+00_rb,9.4777e+00_rb,9.5880e+00_rb/)
+      kbo(:, 2,58,12) = (/ &
+     &3.5257e+00_rb,5.7408e+00_rb,8.9221e+00_rb,1.2503e+01_rb,1.1030e+01_rb/)
+      kbo(:, 3,58,12) = (/ &
+     &8.2101e+00_rb,9.0368e+00_rb,1.2733e+01_rb,1.6723e+01_rb,1.2197e+01_rb/)
+      kbo(:, 4,58,12) = (/ &
+     &1.7210e+01_rb,1.6233e+01_rb,1.7913e+01_rb,2.2101e+01_rb,1.3072e+01_rb/)
+      kbo(:, 5,58,12) = (/ &
+     &3.3035e+01_rb,3.0353e+01_rb,2.7850e+01_rb,2.8452e+01_rb,1.3763e+01_rb/)
+      kbo(:, 1,59,12) = (/ &
+     &1.3260e+00_rb,4.5998e+00_rb,7.5889e+00_rb,1.0717e+01_rb,9.4033e+00_rb/)
+      kbo(:, 2,59,12) = (/ &
+     &3.6097e+00_rb,7.0919e+00_rb,1.0659e+01_rb,1.3898e+01_rb,1.0849e+01_rb/)
+      kbo(:, 3,59,12) = (/ &
+     &8.5987e+00_rb,1.0607e+01_rb,1.5006e+01_rb,1.8102e+01_rb,1.2070e+01_rb/)
+      kbo(:, 4,59,12) = (/ &
+     &1.8312e+01_rb,1.7368e+01_rb,2.0492e+01_rb,2.3593e+01_rb,1.3009e+01_rb/)
+      kbo(:, 5,59,12) = (/ &
+     &3.5634e+01_rb,3.1449e+01_rb,2.9305e+01_rb,3.0122e+01_rb,1.3723e+01_rb/)
+      kbo(:, 1,13,13) = (/ &
+     &1.2162e+03_rb,9.1228e+02_rb,6.0835e+02_rb,3.0442e+02_rb,5.7609e+00_rb/)
+      kbo(:, 2,13,13) = (/ &
+     &1.7381e+03_rb,1.3037e+03_rb,8.6931e+02_rb,4.3490e+02_rb,5.6432e+00_rb/)
+      kbo(:, 3,13,13) = (/ &
+     &2.3576e+03_rb,1.7683e+03_rb,1.1791e+03_rb,5.8977e+02_rb,5.5255e+00_rb/)
+      kbo(:, 4,13,13) = (/ &
+     &3.0662e+03_rb,2.2998e+03_rb,1.5334e+03_rb,7.6694e+02_rb,5.4044e+00_rb/)
+      kbo(:, 5,13,13) = (/ &
+     &3.8594e+03_rb,2.8947e+03_rb,1.9299e+03_rb,9.6523e+02_rb,5.2355e+00_rb/)
+      kbo(:, 1,14,13) = (/ &
+     &7.9362e+02_rb,5.9533e+02_rb,3.9705e+02_rb,1.9877e+02_rb,6.3709e+00_rb/)
+      kbo(:, 2,14,13) = (/ &
+     &1.1345e+03_rb,8.5102e+02_rb,5.6751e+02_rb,2.8400e+02_rb,6.2388e+00_rb/)
+      kbo(:, 3,14,13) = (/ &
+     &1.5436e+03_rb,1.1578e+03_rb,7.7203e+02_rb,3.8627e+02_rb,6.0986e+00_rb/)
+      kbo(:, 4,14,13) = (/ &
+     &2.0139e+03_rb,1.5105e+03_rb,1.0072e+03_rb,5.0384e+02_rb,5.9465e+00_rb/)
+      kbo(:, 5,14,13) = (/ &
+     &2.5413e+03_rb,1.9061e+03_rb,1.2709e+03_rb,6.3569e+02_rb,5.7898e+00_rb/)
+      kbo(:, 1,15,13) = (/ &
+     &5.3943e+02_rb,4.0470e+02_rb,2.6997e+02_rb,1.3524e+02_rb,7.0503e+00_rb/)
+      kbo(:, 2,15,13) = (/ &
+     &7.7270e+02_rb,5.7965e+02_rb,3.8660e+02_rb,1.9355e+02_rb,6.8771e+00_rb/)
+      kbo(:, 3,15,13) = (/ &
+     &1.0520e+03_rb,7.8913e+02_rb,5.2626e+02_rb,2.6338e+02_rb,6.6997e+00_rb/)
+      kbo(:, 4,15,13) = (/ &
+     &1.3743e+03_rb,1.0308e+03_rb,6.8738e+02_rb,3.4394e+02_rb,6.5201e+00_rb/)
+      kbo(:, 5,15,13) = (/ &
+     &1.7371e+03_rb,1.3030e+03_rb,8.6881e+02_rb,4.3464e+02_rb,6.3410e+00_rb/)
+      kbo(:, 1,16,13) = (/ &
+     &4.4449e+02_rb,3.3349e+02_rb,2.2249e+02_rb,1.1150e+02_rb,7.7448e+00_rb/)
+      kbo(:, 2,16,13) = (/ &
+     &6.3512e+02_rb,4.7646e+02_rb,3.1780e+02_rb,1.5915e+02_rb,7.5481e+00_rb/)
+      kbo(:, 3,16,13) = (/ &
+     &8.6257e+02_rb,6.4705e+02_rb,4.3152e+02_rb,2.1600e+02_rb,7.3457e+00_rb/)
+      kbo(:, 4,16,13) = (/ &
+     &1.1249e+03_rb,8.4376e+02_rb,5.6265e+02_rb,2.8155e+02_rb,7.1472e+00_rb/)
+      kbo(:, 5,16,13) = (/ &
+     &1.4185e+03_rb,1.0640e+03_rb,7.0946e+02_rb,3.5494e+02_rb,6.9622e+00_rb/)
+      kbo(:, 1,17,13) = (/ &
+     &3.7725e+02_rb,2.8305e+02_rb,1.8886e+02_rb,9.4667e+01_rb,8.5153e+00_rb/)
+      kbo(:, 2,17,13) = (/ &
+     &5.3579e+02_rb,4.0195e+02_rb,2.6812e+02_rb,1.3428e+02_rb,8.2959e+00_rb/)
+      kbo(:, 3,17,13) = (/ &
+     &7.2432e+02_rb,5.4334e+02_rb,3.6237e+02_rb,1.8140e+02_rb,8.0790e+00_rb/)
+      kbo(:, 4,17,13) = (/ &
+     &9.4095e+02_rb,7.0582e+02_rb,4.7068e+02_rb,2.3555e+02_rb,7.8782e+00_rb/)
+      kbo(:, 5,17,13) = (/ &
+     &1.1800e+03_rb,8.8510e+02_rb,5.9020e+02_rb,2.9531e+02_rb,7.6889e+00_rb/)
+      kbo(:, 1,18,13) = (/ &
+     &3.2277e+02_rb,2.4218e+02_rb,1.6159e+02_rb,8.1002e+01_rb,9.4611e+00_rb/)
+      kbo(:, 2,18,13) = (/ &
+     &4.5535e+02_rb,3.4161e+02_rb,2.2787e+02_rb,1.1413e+02_rb,9.2187e+00_rb/)
+      kbo(:, 3,18,13) = (/ &
+     &6.1248e+02_rb,4.5945e+02_rb,3.0643e+02_rb,1.5340e+02_rb,8.9925e+00_rb/)
+      kbo(:, 4,18,13) = (/ &
+     &7.9039e+02_rb,5.9288e+02_rb,3.9538e+02_rb,1.9787e+02_rb,8.7824e+00_rb/)
+      kbo(:, 5,18,13) = (/ &
+     &9.8664e+02_rb,7.4007e+02_rb,4.9351e+02_rb,2.4694e+02_rb,8.5832e+00_rb/)
+      kbo(:, 1,19,13) = (/ &
+     &2.6617e+02_rb,1.9972e+02_rb,1.3326e+02_rb,6.6812e+01_rb,1.0581e+01_rb/)
+      kbo(:, 2,19,13) = (/ &
+     &3.7316e+02_rb,2.7996e+02_rb,1.8675e+02_rb,9.3549e+01_rb,1.0334e+01_rb/)
+      kbo(:, 3,19,13) = (/ &
+     &4.9811e+02_rb,3.7366e+02_rb,2.4922e+02_rb,1.2478e+02_rb,1.0097e+01_rb/)
+      kbo(:, 4,19,13) = (/ &
+     &6.3941e+02_rb,4.7964e+02_rb,3.1987e+02_rb,1.6011e+02_rb,9.8657e+00_rb/)
+      kbo(:, 5,19,13) = (/ &
+     &7.9554e+02_rb,5.9674e+02_rb,3.9794e+02_rb,1.9915e+02_rb,9.6319e+00_rb/)
+      kbo(:, 1,20,13) = (/ &
+     &2.3446e+02_rb,1.7592e+02_rb,1.1738e+02_rb,5.8849e+01_rb,1.1882e+01_rb/)
+      kbo(:, 2,20,13) = (/ &
+     &3.2565e+02_rb,2.4431e+02_rb,1.6298e+02_rb,8.1640e+01_rb,1.1619e+01_rb/)
+      kbo(:, 3,20,13) = (/ &
+     &4.3162e+02_rb,3.2380e+02_rb,2.1597e+02_rb,1.0814e+02_rb,1.1360e+01_rb/)
+      kbo(:, 4,20,13) = (/ &
+     &5.5163e+02_rb,4.1380e+02_rb,2.7598e+02_rb,1.3815e+02_rb,1.1092e+01_rb/)
+      kbo(:, 5,20,13) = (/ &
+     &6.8433e+02_rb,5.1333e+02_rb,3.4234e+02_rb,1.7134e+02_rb,1.0817e+01_rb/)
+      kbo(:, 1,21,13) = (/ &
+     &2.0791e+02_rb,1.5600e+02_rb,1.0410e+02_rb,5.2196e+01_rb,1.3299e+01_rb/)
+      kbo(:, 2,21,13) = (/ &
+     &2.8639e+02_rb,2.1487e+02_rb,1.4335e+02_rb,7.1825e+01_rb,1.3019e+01_rb/)
+      kbo(:, 3,21,13) = (/ &
+     &3.7808e+02_rb,2.8364e+02_rb,1.8920e+02_rb,9.4762e+01_rb,1.2725e+01_rb/)
+      kbo(:, 4,21,13) = (/ &
+     &4.8188e+02_rb,3.6150e+02_rb,2.4111e+02_rb,1.2072e+02_rb,1.2414e+01_rb/)
+      kbo(:, 5,21,13) = (/ &
+     &5.9751e+02_rb,4.4821e+02_rb,2.9892e+02_rb,1.4963e+02_rb,1.2098e+01_rb/)
+      kbo(:, 1,22,13) = (/ &
+     &1.8905e+02_rb,1.4186e+02_rb,9.4669e+01_rb,4.7658e+01_rb,1.4760e+01_rb/)
+      kbo(:, 2,22,13) = (/ &
+     &2.5846e+02_rb,1.9392e+02_rb,1.2939e+02_rb,6.4852e+01_rb,1.4444e+01_rb/)
+      kbo(:, 3,22,13) = (/ &
+     &3.3936e+02_rb,2.5460e+02_rb,1.6984e+02_rb,8.5086e+01_rb,1.4104e+01_rb/)
+      kbo(:, 4,22,13) = (/ &
+     &4.3137e+02_rb,3.2361e+02_rb,2.1585e+02_rb,1.0809e+02_rb,1.3746e+01_rb/)
+      kbo(:, 5,22,13) = (/ &
+     &5.3388e+02_rb,4.0049e+02_rb,2.6710e+02_rb,1.3372e+02_rb,1.3378e+01_rb/)
+      kbo(:, 1,23,13) = (/ &
+     &1.7012e+02_rb,1.2766e+02_rb,8.5209e+01_rb,4.3736e+01_rb,1.6211e+01_rb/)
+      kbo(:, 2,23,13) = (/ &
+     &2.3107e+02_rb,1.7338e+02_rb,1.1569e+02_rb,5.8148e+01_rb,1.5847e+01_rb/)
+      kbo(:, 3,23,13) = (/ &
+     &3.0241e+02_rb,2.2689e+02_rb,1.5137e+02_rb,7.5851e+01_rb,1.5467e+01_rb/)
+      kbo(:, 4,23,13) = (/ &
+     &3.8349e+02_rb,2.8770e+02_rb,1.9191e+02_rb,9.6125e+01_rb,1.5066e+01_rb/)
+      kbo(:, 5,23,13) = (/ &
+     &4.7369e+02_rb,3.5535e+02_rb,2.3701e+02_rb,1.1867e+02_rb,1.4651e+01_rb/)
+      kbo(:, 1,24,13) = (/ &
+     &1.5057e+02_rb,1.1300e+02_rb,7.5436e+01_rb,4.0246e+01_rb,1.7609e+01_rb/)
+      kbo(:, 2,24,13) = (/ &
+     &2.0367e+02_rb,1.5283e+02_rb,1.0199e+02_rb,5.2083e+01_rb,1.7203e+01_rb/)
+      kbo(:, 3,24,13) = (/ &
+     &2.6558e+02_rb,1.9927e+02_rb,1.3295e+02_rb,6.6835e+01_rb,1.6770e+01_rb/)
+      kbo(:, 4,24,13) = (/ &
+     &3.3594e+02_rb,2.5203e+02_rb,1.6813e+02_rb,8.4226e+01_rb,1.6325e+01_rb/)
+      kbo(:, 5,24,13) = (/ &
+     &4.1379e+02_rb,3.1042e+02_rb,2.0705e+02_rb,1.0369e+02_rb,1.5864e+01_rb/)
+      kbo(:, 1,25,13) = (/ &
+     &1.3420e+02_rb,1.0073e+02_rb,6.7255e+01_rb,3.7941e+01_rb,1.8922e+01_rb/)
+      kbo(:, 2,25,13) = (/ &
+     &1.8061e+02_rb,1.3554e+02_rb,9.0464e+01_rb,4.7603e+01_rb,1.8471e+01_rb/)
+      kbo(:, 3,25,13) = (/ &
+     &2.3464e+02_rb,1.7606e+02_rb,1.1747e+02_rb,5.9840e+01_rb,1.7998e+01_rb/)
+      kbo(:, 4,25,13) = (/ &
+     &2.9580e+02_rb,2.2193e+02_rb,1.4806e+02_rb,7.4446e+01_rb,1.7506e+01_rb/)
+      kbo(:, 5,25,13) = (/ &
+     &3.6422e+02_rb,2.7325e+02_rb,1.8228e+02_rb,9.1309e+01_rb,1.6997e+01_rb/)
+      kbo(:, 1,26,13) = (/ &
+     &1.2114e+02_rb,9.0934e+01_rb,6.0946e+01_rb,3.6699e+01_rb,2.0129e+01_rb/)
+      kbo(:, 2,26,13) = (/ &
+     &1.6224e+02_rb,1.2175e+02_rb,8.1268e+01_rb,4.4540e+01_rb,1.9645e+01_rb/)
+      kbo(:, 3,26,13) = (/ &
+     &2.0993e+02_rb,1.5753e+02_rb,1.0512e+02_rb,5.4768e+01_rb,1.9134e+01_rb/)
+      kbo(:, 4,26,13) = (/ &
+     &2.6457e+02_rb,1.9850e+02_rb,1.3244e+02_rb,6.7280e+01_rb,1.8599e+01_rb/)
+      kbo(:, 5,26,13) = (/ &
+     &3.2617e+02_rb,2.4471e+02_rb,1.6326e+02_rb,8.2064e+01_rb,1.8043e+01_rb/)
+      kbo(:, 1,27,13) = (/ &
+     &1.1288e+02_rb,8.4731e+01_rb,5.7258e+01_rb,3.6591e+01_rb,2.1235e+01_rb/)
+      kbo(:, 2,27,13) = (/ &
+     &1.5040e+02_rb,1.1288e+02_rb,7.5447e+01_rb,4.3146e+01_rb,2.0722e+01_rb/)
+      kbo(:, 3,27,13) = (/ &
+     &1.9447e+02_rb,1.4593e+02_rb,9.7397e+01_rb,5.2019e+01_rb,2.0175e+01_rb/)
+      kbo(:, 4,27,13) = (/ &
+     &2.4522e+02_rb,1.8400e+02_rb,1.2279e+02_rb,6.3250e+01_rb,1.9596e+01_rb/)
+      kbo(:, 5,27,13) = (/ &
+     &3.0305e+02_rb,2.2738e+02_rb,1.5172e+02_rb,7.6751e+01_rb,1.8997e+01_rb/)
+      kbo(:, 1,28,13) = (/ &
+     &1.0746e+02_rb,8.0667e+01_rb,5.5081e+01_rb,3.7035e+01_rb,2.2229e+01_rb/)
+      kbo(:, 2,28,13) = (/ &
+     &1.4298e+02_rb,1.0731e+02_rb,7.1965e+01_rb,4.2784e+01_rb,2.1691e+01_rb/)
+      kbo(:, 3,28,13) = (/ &
+     &1.8493e+02_rb,1.3878e+02_rb,9.2649e+01_rb,5.0725e+01_rb,2.1105e+01_rb/)
+      kbo(:, 4,28,13) = (/ &
+     &2.3378e+02_rb,1.7543e+02_rb,1.1708e+02_rb,6.1166e+01_rb,2.0486e+01_rb/)
+      kbo(:, 5,28,13) = (/ &
+     &2.9002e+02_rb,2.1761e+02_rb,1.4521e+02_rb,7.3973e+01_rb,1.9841e+01_rb/)
+      kbo(:, 1,29,13) = (/ &
+     &1.0862e+02_rb,8.1537e+01_rb,5.6008e+01_rb,3.8525e+01_rb,2.3108e+01_rb/)
+      kbo(:, 2,29,13) = (/ &
+     &1.4451e+02_rb,1.0847e+02_rb,7.2927e+01_rb,4.4121e+01_rb,2.2541e+01_rb/)
+      kbo(:, 3,29,13) = (/ &
+     &1.8742e+02_rb,1.4066e+02_rb,9.3939e+01_rb,5.2003e+01_rb,2.1917e+01_rb/)
+      kbo(:, 4,29,13) = (/ &
+     &2.3814e+02_rb,1.7870e+02_rb,1.1927e+02_rb,6.2626e+01_rb,2.1254e+01_rb/)
+      kbo(:, 5,29,13) = (/ &
+     &2.9712e+02_rb,2.2294e+02_rb,1.4877e+02_rb,7.5955e+01_rb,2.0559e+01_rb/)
+      kbo(:, 1,30,13) = (/ &
+     &1.1263e+02_rb,8.4559e+01_rb,5.8240e+01_rb,4.0363e+01_rb,2.3867e+01_rb/)
+      kbo(:, 2,30,13) = (/ &
+     &1.5031e+02_rb,1.1283e+02_rb,7.5908e+01_rb,4.6135e+01_rb,2.3263e+01_rb/)
+      kbo(:, 3,30,13) = (/ &
+     &1.9606e+02_rb,1.4715e+02_rb,9.8280e+01_rb,5.4419e+01_rb,2.2598e+01_rb/)
+      kbo(:, 4,30,13) = (/ &
+     &2.5065e+02_rb,1.8809e+02_rb,1.2553e+02_rb,6.5875e+01_rb,2.1889e+01_rb/)
+      kbo(:, 5,30,13) = (/ &
+     &3.1497e+02_rb,2.3633e+02_rb,1.5769e+02_rb,8.0462e+01_rb,2.1149e+01_rb/)
+      kbo(:, 1,31,13) = (/ &
+     &1.2378e+02_rb,9.2930e+01_rb,6.3680e+01_rb,4.3209e+01_rb,2.4494e+01_rb/)
+      kbo(:, 2,31,13) = (/ &
+     &1.6598e+02_rb,1.2458e+02_rb,8.3650e+01_rb,4.9789e+01_rb,2.3857e+01_rb/)
+      kbo(:, 3,31,13) = (/ &
+     &2.1788e+02_rb,1.6351e+02_rb,1.0916e+02_rb,5.9548e+01_rb,2.3152e+01_rb/)
+      kbo(:, 4,31,13) = (/ &
+     &2.8056e+02_rb,2.1051e+02_rb,1.4048e+02_rb,7.3069e+01_rb,2.2400e+01_rb/)
+      kbo(:, 5,31,13) = (/ &
+     &3.5485e+02_rb,2.6624e+02_rb,1.7763e+02_rb,9.0172e+01_rb,2.1588e+01_rb/)
+      kbo(:, 1,32,13) = (/ &
+     &1.3906e+02_rb,1.0439e+02_rb,7.1039e+01_rb,4.6595e+01_rb,2.5004e+01_rb/)
+      kbo(:, 2,32,13) = (/ &
+     &1.8760e+02_rb,1.4080e+02_rb,9.4311e+01_rb,5.4496e+01_rb,2.4327e+01_rb/)
+      kbo(:, 3,32,13) = (/ &
+     &2.4774e+02_rb,1.8590e+02_rb,1.2408e+02_rb,6.6467e+01_rb,2.3584e+01_rb/)
+      kbo(:, 4,32,13) = (/ &
+     &3.2109e+02_rb,2.4091e+02_rb,1.6074e+02_rb,8.2698e+01_rb,2.2768e+01_rb/)
+      kbo(:, 5,32,13) = (/ &
+     &4.0872e+02_rb,3.0664e+02_rb,2.0456e+02_rb,1.0327e+02_rb,2.1879e+01_rb/)
+      kbo(:, 1,33,13) = (/ &
+     &1.6104e+02_rb,1.2087e+02_rb,8.1641e+01_rb,5.1002e+01_rb,2.5402e+01_rb/)
+      kbo(:, 2,33,13) = (/ &
+     &2.1845e+02_rb,1.6394e+02_rb,1.0954e+02_rb,6.1146e+01_rb,2.4688e+01_rb/)
+      kbo(:, 3,33,13) = (/ &
+     &2.9039e+02_rb,2.1789e+02_rb,1.4539e+02_rb,7.6233e+01_rb,2.3897e+01_rb/)
+      kbo(:, 4,33,13) = (/ &
+     &3.7885e+02_rb,2.8424e+02_rb,1.8963e+02_rb,9.6481e+01_rb,2.2987e+01_rb/)
+      kbo(:, 5,33,13) = (/ &
+     &4.8539e+02_rb,3.6414e+02_rb,2.4290e+02_rb,1.2206e+02_rb,2.2183e+01_rb/)
+      kbo(:, 1,34,13) = (/ &
+     &1.8189e+02_rb,1.3651e+02_rb,9.1768e+01_rb,5.5207e+01_rb,2.5729e+01_rb/)
+      kbo(:, 2,34,13) = (/ &
+     &2.4868e+02_rb,1.8660e+02_rb,1.2456e+02_rb,6.7745e+01_rb,2.4984e+01_rb/)
+      kbo(:, 3,34,13) = (/ &
+     &3.3298e+02_rb,2.4983e+02_rb,1.6669e+02_rb,8.6174e+01_rb,2.4083e+01_rb/)
+      kbo(:, 4,34,13) = (/ &
+     &4.3751e+02_rb,3.2823e+02_rb,2.1895e+02_rb,1.1064e+02_rb,2.3253e+01_rb/)
+      kbo(:, 5,34,13) = (/ &
+     &5.6416e+02_rb,4.2322e+02_rb,2.8227e+02_rb,1.4151e+02_rb,2.2432e+01_rb/)
+      kbo(:, 1,35,13) = (/ &
+     &2.0192e+02_rb,1.5153e+02_rb,1.0158e+02_rb,5.9346e+01_rb,2.6044e+01_rb/)
+      kbo(:, 2,35,13) = (/ &
+     &2.7880e+02_rb,2.0919e+02_rb,1.3960e+02_rb,7.4527e+01_rb,2.5204e+01_rb/)
+      kbo(:, 3,35,13) = (/ &
+     &3.7683e+02_rb,2.8271e+02_rb,1.8860e+02_rb,9.6532e+01_rb,2.4315e+01_rb/)
+      kbo(:, 4,35,13) = (/ &
+     &4.9906e+02_rb,3.7439e+02_rb,2.4972e+02_rb,1.2566e+02_rb,2.3549e+01_rb/)
+      kbo(:, 5,35,13) = (/ &
+     &6.4817e+02_rb,4.8622e+02_rb,3.2427e+02_rb,1.6242e+02_rb,2.2556e+01_rb/)
+      kbo(:, 1,36,13) = (/ &
+     &2.1718e+02_rb,1.6298e+02_rb,1.0911e+02_rb,6.2682e+01_rb,2.6372e+01_rb/)
+      kbo(:, 2,36,13) = (/ &
+     &3.0353e+02_rb,2.2773e+02_rb,1.5196e+02_rb,8.0255e+01_rb,2.5484e+01_rb/)
+      kbo(:, 3,36,13) = (/ &
+     &4.1487e+02_rb,3.1124e+02_rb,2.0762e+02_rb,1.0565e+02_rb,2.4690e+01_rb/)
+      kbo(:, 4,36,13) = (/ &
+     &5.5465e+02_rb,4.1607e+02_rb,2.7750e+02_rb,1.3934e+02_rb,2.3815e+01_rb/)
+      kbo(:, 5,36,13) = (/ &
+     &7.2608e+02_rb,5.4465e+02_rb,3.6322e+02_rb,1.8189e+02_rb,2.2654e+01_rb/)
+      kbo(:, 1,37,13) = (/ &
+     &2.1788e+02_rb,1.6349e+02_rb,1.0950e+02_rb,6.3289e+01_rb,2.6719e+01_rb/)
+      kbo(:, 2,37,13) = (/ &
+     &3.0912e+02_rb,2.3193e+02_rb,1.5476e+02_rb,8.1797e+01_rb,2.5860e+01_rb/)
+      kbo(:, 3,37,13) = (/ &
+     &4.2846e+02_rb,3.2142e+02_rb,2.1440e+02_rb,1.0906e+02_rb,2.5054e+01_rb/)
+      kbo(:, 4,37,13) = (/ &
+     &5.7982e+02_rb,4.3495e+02_rb,2.9008e+02_rb,1.4561e+02_rb,2.4158e+01_rb/)
+      kbo(:, 5,37,13) = (/ &
+     &7.6717e+02_rb,5.7546e+02_rb,3.8377e+02_rb,1.9217e+02_rb,2.2948e+01_rb/)
+      kbo(:, 1,38,13) = (/ &
+     &2.2254e+02_rb,1.6699e+02_rb,1.1184e+02_rb,6.4633e+01_rb,2.7030e+01_rb/)
+      kbo(:, 2,38,13) = (/ &
+     &3.2031e+02_rb,2.4031e+02_rb,1.6035e+02_rb,8.4610e+01_rb,2.6154e+01_rb/)
+      kbo(:, 3,38,13) = (/ &
+     &4.5000e+02_rb,3.3758e+02_rb,2.2517e+02_rb,1.1439e+02_rb,2.5377e+01_rb/)
+      kbo(:, 4,38,13) = (/ &
+     &6.1626e+02_rb,4.6228e+02_rb,3.0831e+02_rb,1.5466e+02_rb,2.4449e+01_rb/)
+      kbo(:, 5,38,13) = (/ &
+     &8.2391e+02_rb,6.1802e+02_rb,4.1215e+02_rb,2.0635e+02_rb,2.3228e+01_rb/)
+      kbo(:, 1,39,13) = (/ &
+     &2.3401e+02_rb,1.7560e+02_rb,1.1754e+02_rb,6.7259e+01_rb,2.7265e+01_rb/)
+      kbo(:, 2,39,13) = (/ &
+     &3.4141e+02_rb,2.5613e+02_rb,1.7089e+02_rb,8.9638e+01_rb,2.6464e+01_rb/)
+      kbo(:, 3,39,13) = (/ &
+     &4.8579e+02_rb,3.6442e+02_rb,2.4308e+02_rb,1.2315e+02_rb,2.5687e+01_rb/)
+      kbo(:, 4,39,13) = (/ &
+     &6.7297e+02_rb,5.0482e+02_rb,3.3668e+02_rb,1.6875e+02_rb,2.4654e+01_rb/)
+      kbo(:, 5,39,13) = (/ &
+     &9.0884e+02_rb,6.8173e+02_rb,4.5462e+02_rb,2.2758e+02_rb,2.3620e+01_rb/)
+      kbo(:, 1,40,13) = (/ &
+     &2.2310e+02_rb,1.6742e+02_rb,1.1224e+02_rb,6.5625e+01_rb,2.7589e+01_rb/)
+      kbo(:, 2,40,13) = (/ &
+     &3.3051e+02_rb,2.4796e+02_rb,1.6546e+02_rb,8.7436e+01_rb,2.6816e+01_rb/)
+      kbo(:, 3,40,13) = (/ &
+     &4.7705e+02_rb,3.5787e+02_rb,2.3871e+02_rb,1.2127e+02_rb,2.6052e+01_rb/)
+      kbo(:, 4,40,13) = (/ &
+     &6.7033e+02_rb,5.0284e+02_rb,3.3536e+02_rb,1.6816e+02_rb,2.5038e+01_rb/)
+      kbo(:, 5,40,13) = (/ &
+     &9.1616e+02_rb,6.8722e+02_rb,4.5828e+02_rb,2.2941e+02_rb,2.4007e+01_rb/)
+      kbo(:, 1,41,13) = (/ &
+     &2.1165e+02_rb,1.5884e+02_rb,1.0674e+02_rb,6.4017e+01_rb,2.7888e+01_rb/)
+      kbo(:, 2,41,13) = (/ &
+     &3.1819e+02_rb,2.3873e+02_rb,1.5932e+02_rb,8.5003e+01_rb,2.7118e+01_rb/)
+      kbo(:, 3,41,13) = (/ &
+     &4.6591e+02_rb,3.4951e+02_rb,2.3314e+02_rb,1.1880e+02_rb,2.6396e+01_rb/)
+      kbo(:, 4,41,13) = (/ &
+     &6.6349e+02_rb,4.9771e+02_rb,3.3195e+02_rb,1.6656e+02_rb,2.5465e+01_rb/)
+      kbo(:, 5,41,13) = (/ &
+     &9.1847e+02_rb,6.8895e+02_rb,4.5944e+02_rb,2.3000e+02_rb,2.4337e+01_rb/)
+      kbo(:, 1,42,13) = (/ &
+     &2.0335e+02_rb,1.5260e+02_rb,1.0282e+02_rb,6.3023e+01_rb,2.8153e+01_rb/)
+      kbo(:, 2,42,13) = (/ &
+     &3.1003e+02_rb,2.3260e+02_rb,1.5524e+02_rb,8.3539e+01_rb,2.7395e+01_rb/)
+      kbo(:, 3,42,13) = (/ &
+     &4.6024e+02_rb,3.4526e+02_rb,2.3031e+02_rb,1.1765e+02_rb,2.6718e+01_rb/)
+      kbo(:, 4,42,13) = (/ &
+     &6.6381e+02_rb,4.9795e+02_rb,3.3210e+02_rb,1.6673e+02_rb,2.5846e+01_rb/)
+      kbo(:, 5,42,13) = (/ &
+     &9.3041e+02_rb,6.9790e+02_rb,4.6540e+02_rb,2.3298e+02_rb,2.4647e+01_rb/)
+      kbo(:, 1,43,13) = (/ &
+     &1.9244e+02_rb,1.4443e+02_rb,9.7744e+01_rb,6.1682e+01_rb,2.8431e+01_rb/)
+      kbo(:, 2,43,13) = (/ &
+     &2.9785e+02_rb,2.2347e+02_rb,1.4920e+02_rb,8.1276e+01_rb,2.7711e+01_rb/)
+      kbo(:, 3,43,13) = (/ &
+     &4.4872e+02_rb,3.3663e+02_rb,2.2458e+02_rb,1.1517e+02_rb,2.7073e+01_rb/)
+      kbo(:, 4,43,13) = (/ &
+     &6.5646e+02_rb,4.9243e+02_rb,3.2842e+02_rb,1.6500e+02_rb,2.6290e+01_rb/)
+      kbo(:, 5,43,13) = (/ &
+     &9.3268e+02_rb,6.9961e+02_rb,4.6654e+02_rb,2.3355e+02_rb,2.5000e+01_rb/)
+      kbo(:, 1,44,13) = (/ &
+     &1.8195e+02_rb,1.3656e+02_rb,9.2955e+01_rb,6.0559e+01_rb,2.8683e+01_rb/)
+      kbo(:, 2,44,13) = (/ &
+     &2.8673e+02_rb,2.1514e+02_rb,1.4371e+02_rb,7.9343e+01_rb,2.8022e+01_rb/)
+      kbo(:, 3,44,13) = (/ &
+     &4.3845e+02_rb,3.2893e+02_rb,2.1944e+02_rb,1.1299e+02_rb,2.7430e+01_rb/)
+      kbo(:, 4,44,13) = (/ &
+     &6.5082e+02_rb,4.8820e+02_rb,3.2560e+02_rb,1.6371e+02_rb,2.6724e+01_rb/)
+      kbo(:, 5,44,13) = (/ &
+     &9.3739e+02_rb,7.0313e+02_rb,4.6889e+02_rb,2.3472e+02_rb,2.5409e+01_rb/)
+      kbo(:, 1,45,13) = (/ &
+     &1.7490e+02_rb,1.3128e+02_rb,8.9889e+01_rb,6.0087e+01_rb,2.8892e+01_rb/)
+      kbo(:, 2,45,13) = (/ &
+     &2.8115e+02_rb,2.1096e+02_rb,1.4101e+02_rb,7.8697e+01_rb,2.8297e+01_rb/)
+      kbo(:, 3,45,13) = (/ &
+     &4.3612e+02_rb,3.2718e+02_rb,2.1828e+02_rb,1.1266e+02_rb,2.7806e+01_rb/)
+      kbo(:, 4,45,13) = (/ &
+     &6.5668e+02_rb,4.9260e+02_rb,3.2854e+02_rb,1.6526e+02_rb,2.7097e+01_rb/)
+      kbo(:, 5,45,13) = (/ &
+     &9.5876e+02_rb,7.1917e+02_rb,4.7958e+02_rb,2.4006e+02_rb,2.5776e+01_rb/)
+      kbo(:, 1,46,13) = (/ &
+     &1.6728e+02_rb,1.2556e+02_rb,8.6592e+01_rb,5.9568e+01_rb,2.9082e+01_rb/)
+      kbo(:, 2,46,13) = (/ &
+     &2.7457e+02_rb,2.0602e+02_rb,1.3784e+02_rb,7.7967e+01_rb,2.8545e+01_rb/)
+      kbo(:, 3,46,13) = (/ &
+     &4.3313e+02_rb,3.2494e+02_rb,2.1678e+02_rb,1.1222e+02_rb,2.8139e+01_rb/)
+      kbo(:, 4,46,13) = (/ &
+     &6.6163e+02_rb,4.9632e+02_rb,3.3103e+02_rb,1.6658e+02_rb,2.7449e+01_rb/)
+      kbo(:, 5,46,13) = (/ &
+     &9.8004e+02_rb,7.3512e+02_rb,4.9021e+02_rb,2.4539e+02_rb,2.6122e+01_rb/)
+      kbo(:, 1,47,13) = (/ &
+     &1.5431e+02_rb,1.1585e+02_rb,8.0931e+01_rb,5.8232e+01_rb,2.9262e+01_rb/)
+      kbo(:, 2,47,13) = (/ &
+     &2.5885e+02_rb,1.9423e+02_rb,1.3026e+02_rb,7.5643e+01_rb,2.8798e+01_rb/)
+      kbo(:, 3,47,13) = (/ &
+     &4.1682e+02_rb,3.1271e+02_rb,2.0862e+02_rb,1.0877e+02_rb,2.8446e+01_rb/)
+      kbo(:, 4,47,13) = (/ &
+     &6.4684e+02_rb,4.8523e+02_rb,3.2363e+02_rb,1.6308e+02_rb,2.7814e+01_rb/)
+      kbo(:, 5,47,13) = (/ &
+     &9.7279e+02_rb,7.2968e+02_rb,4.8659e+02_rb,2.4359e+02_rb,2.6548e+01_rb/)
+      kbo(:, 1,48,13) = (/ &
+     &1.4538e+02_rb,1.0915e+02_rb,7.7289e+01_rb,5.7662e+01_rb,2.9351e+01_rb/)
+      kbo(:, 2,48,13) = (/ &
+     &2.4931e+02_rb,1.8708e+02_rb,1.2577e+02_rb,7.4691e+01_rb,2.8998e+01_rb/)
+      kbo(:, 3,48,13) = (/ &
+     &4.1014e+02_rb,3.0770e+02_rb,2.0528e+02_rb,1.0766e+02_rb,2.8726e+01_rb/)
+      kbo(:, 4,48,13) = (/ &
+     &6.4756e+02_rb,4.8577e+02_rb,3.2399e+02_rb,1.6338e+02_rb,2.8115e+01_rb/)
+      kbo(:, 5,48,13) = (/ &
+     &9.8831e+02_rb,7.4133e+02_rb,4.9436e+02_rb,2.4748e+02_rb,2.6944e+01_rb/)
+      kbo(:, 1,49,13) = (/ &
+     &1.4120e+02_rb,1.0604e+02_rb,7.5941e+01_rb,5.8065e+01_rb,2.9380e+01_rb/)
+      kbo(:, 2,49,13) = (/ &
+     &2.4862e+02_rb,1.8657e+02_rb,1.2564e+02_rb,7.5519e+01_rb,2.9233e+01_rb/)
+      kbo(:, 3,49,13) = (/ &
+     &4.1758e+02_rb,3.1328e+02_rb,2.0900e+02_rb,1.0986e+02_rb,2.8989e+01_rb/)
+      kbo(:, 4,49,13) = (/ &
+     &6.7203e+02_rb,5.0412e+02_rb,3.3622e+02_rb,1.6950e+02_rb,2.8333e+01_rb/)
+      kbo(:, 5,49,13) = (/ &
+     &1.0415e+03_rb,7.8124e+02_rb,5.2096e+02_rb,2.6077e+02_rb,2.7256e+01_rb/)
+      kbo(:, 1,50,13) = (/ &
+     &1.3115e+02_rb,9.8605e+01_rb,7.2172e+01_rb,5.7503e+01_rb,2.9363e+01_rb/)
+      kbo(:, 2,50,13) = (/ &
+     &2.3790e+02_rb,1.7854e+02_rb,1.2070e+02_rb,7.4407e+01_rb,2.9364e+01_rb/)
+      kbo(:, 3,50,13) = (/ &
+     &4.0744e+02_rb,3.0568e+02_rb,2.0394e+02_rb,1.0804e+02_rb,2.9149e+01_rb/)
+      kbo(:, 4,50,13) = (/ &
+     &6.6872e+02_rb,5.0163e+02_rb,3.3456e+02_rb,1.6889e+02_rb,2.8599e+01_rb/)
+      kbo(:, 5,50,13) = (/ &
+     &1.0519e+03_rb,7.8905e+02_rb,5.2618e+02_rb,2.6337e+02_rb,2.7606e+01_rb/)
+      kbo(:, 1,51,13) = (/ &
+     &1.1865e+02_rb,8.9445e+01_rb,6.7680e+01_rb,5.6587e+01_rb,2.9290e+01_rb/)
+      kbo(:, 2,51,13) = (/ &
+     &2.2216e+02_rb,1.6674e+02_rb,1.1346e+02_rb,7.2415e+01_rb,2.9435e+01_rb/)
+      kbo(:, 3,51,13) = (/ &
+     &3.8895e+02_rb,2.9182e+02_rb,1.9472e+02_rb,1.0439e+02_rb,2.9207e+01_rb/)
+      kbo(:, 4,51,13) = (/ &
+     &6.5048e+02_rb,4.8795e+02_rb,3.2544e+02_rb,1.6473e+02_rb,2.8819e+01_rb/)
+      kbo(:, 5,51,13) = (/ &
+     &1.0401e+03_rb,7.8020e+02_rb,5.2027e+02_rb,2.6042e+02_rb,2.7943e+01_rb/)
+      kbo(:, 1,52,13) = (/ &
+     &1.0900e+02_rb,8.2517e+01_rb,6.4683e+01_rb,5.6184e+01_rb,2.9159e+01_rb/)
+      kbo(:, 2,52,13) = (/ &
+     &2.1154e+02_rb,1.5879e+02_rb,1.0876e+02_rb,7.1453e+01_rb,2.9466e+01_rb/)
+      kbo(:, 3,52,13) = (/ &
+     &3.8014e+02_rb,2.8522e+02_rb,1.9038e+02_rb,1.0306e+02_rb,2.9320e+01_rb/)
+      kbo(:, 4,52,13) = (/ &
+     &6.4723e+02_rb,4.8552e+02_rb,3.2381e+02_rb,1.6425e+02_rb,2.8993e+01_rb/)
+      kbo(:, 5,52,13) = (/ &
+     &1.0537e+03_rb,7.9041e+02_rb,5.2708e+02_rb,2.6382e+02_rb,2.8208e+01_rb/)
+      kbo(:, 1,53,13) = (/ &
+     &1.0283e+02_rb,7.8224e+01_rb,6.3272e+01_rb,5.6425e+01_rb,2.8966e+01_rb/)
+      kbo(:, 2,53,13) = (/ &
+     &2.0760e+02_rb,1.5584e+02_rb,1.0728e+02_rb,7.1858e+01_rb,2.9467e+01_rb/)
+      kbo(:, 3,53,13) = (/ &
+     &3.8429e+02_rb,2.8834e+02_rb,1.9251e+02_rb,1.0470e+02_rb,2.9381e+01_rb/)
+      kbo(:, 4,53,13) = (/ &
+     &6.6697e+02_rb,5.0033e+02_rb,3.3369e+02_rb,1.6926e+02_rb,2.9144e+01_rb/)
+      kbo(:, 5,53,13) = (/ &
+     &1.1061e+03_rb,8.2971e+02_rb,5.5328e+02_rb,2.7691e+02_rb,2.8402e+01_rb/)
+      kbo(:, 1,54,13) = (/ &
+     &8.4612e+01_rb,6.5337e+01_rb,5.7223e+01_rb,5.4259e+01_rb,2.8744e+01_rb/)
+      kbo(:, 2,54,13) = (/ &
+     &1.7755e+02_rb,1.3329e+02_rb,9.3740e+01_rb,6.7487e+01_rb,2.9376e+01_rb/)
+      kbo(:, 3,54,13) = (/ &
+     &3.3886e+02_rb,2.5427e+02_rb,1.7017e+02_rb,9.5886e+01_rb,2.9463e+01_rb/)
+      kbo(:, 4,54,13) = (/ &
+     &6.0067e+02_rb,4.5060e+02_rb,3.0055e+02_rb,1.5369e+02_rb,2.9315e+01_rb/)
+      kbo(:, 5,54,13) = (/ &
+     &1.0127e+03_rb,7.5962e+02_rb,5.0655e+02_rb,2.5368e+02_rb,2.8705e+01_rb/)
+      kbo(:, 1,55,13) = (/ &
+     &6.3387e+01_rb,5.0935e+01_rb,5.0168e+01_rb,5.0996e+01_rb,2.8487e+01_rb/)
+      kbo(:, 2,55,13) = (/ &
+     &1.3831e+02_rb,1.0410e+02_rb,7.7011e+01_rb,6.1667e+01_rb,2.9169e+01_rb/)
+      kbo(:, 3,55,13) = (/ &
+     &2.7282e+02_rb,2.0475e+02_rb,1.3822e+02_rb,8.3541e+01_rb,2.9521e+01_rb/)
+      kbo(:, 4,55,13) = (/ &
+     &4.9509e+02_rb,3.7143e+02_rb,2.4779e+02_rb,1.2925e+02_rb,2.9355e+01_rb/)
+      kbo(:, 5,55,13) = (/ &
+     &8.4764e+02_rb,6.3583e+02_rb,4.2402e+02_rb,2.1299e+02_rb,2.9013e+01_rb/)
+      kbo(:, 1,56,13) = (/ &
+     &4.6914e+01_rb,4.0782e+01_rb,4.5015e+01_rb,4.7952e+01_rb,2.8186e+01_rb/)
+      kbo(:, 2,56,13) = (/ &
+     &1.0661e+02_rb,8.1027e+01_rb,6.4934e+01_rb,5.7313e+01_rb,2.9008e+01_rb/)
+      kbo(:, 3,56,13) = (/ &
+     &2.1790e+02_rb,1.6356e+02_rb,1.1223e+02_rb,7.3951e+01_rb,2.9460e+01_rb/)
+      kbo(:, 4,56,13) = (/ &
+     &4.0585e+02_rb,3.0451e+02_rb,2.0325e+02_rb,1.0953e+02_rb,2.9455e+01_rb/)
+      kbo(:, 5,56,13) = (/ &
+     &7.0659e+02_rb,5.3004e+02_rb,3.5349e+02_rb,1.7883e+02_rb,2.9213e+01_rb/)
+      kbo(:, 1,57,13) = (/ &
+     &3.4230e+01_rb,3.3758e+01_rb,4.1164e+01_rb,4.5068e+01_rb,2.7829e+01_rb/)
+      kbo(:, 2,57,13) = (/ &
+     &8.1249e+01_rb,6.3007e+01_rb,5.6061e+01_rb,5.3761e+01_rb,2.8811e+01_rb/)
+      kbo(:, 3,57,13) = (/ &
+     &1.7223e+02_rb,1.2931e+02_rb,9.1411e+01_rb,6.6606e+01_rb,2.9335e+01_rb/)
+      kbo(:, 4,57,13) = (/ &
+     &3.3026e+02_rb,2.4783e+02_rb,1.6598e+02_rb,9.4193e+01_rb,2.9500e+01_rb/)
+      kbo(:, 5,57,13) = (/ &
+     &5.8636e+02_rb,4.3987e+02_rb,2.9340e+02_rb,1.5031e+02_rb,2.9335e+01_rb/)
+      kbo(:, 1,58,13) = (/ &
+     &6.5933e+00_rb,9.4893e+00_rb,1.6089e+01_rb,2.5300e+01_rb,2.7425e+01_rb/)
+      kbo(:, 2,58,13) = (/ &
+     &1.6360e+01_rb,1.6224e+01_rb,2.0957e+01_rb,3.0182e+01_rb,2.8583e+01_rb/)
+      kbo(:, 3,58,13) = (/ &
+     &3.5957e+01_rb,3.3123e+01_rb,3.1853e+01_rb,3.6291e+01_rb,2.9233e+01_rb/)
+      kbo(:, 4,58,13) = (/ &
+     &7.1076e+01_rb,6.5212e+01_rb,5.6746e+01_rb,4.8699e+01_rb,2.9472e+01_rb/)
+      kbo(:, 5,58,13) = (/ &
+     &1.2897e+02_rb,1.1828e+02_rb,1.0149e+02_rb,7.4519e+01_rb,2.9400e+01_rb/)
+      kbo(:, 1,59,13) = (/ &
+     &6.7458e+00_rb,1.2021e+01_rb,2.0178e+01_rb,2.9391e+01_rb,2.7237e+01_rb/)
+      kbo(:, 2,59,13) = (/ &
+     &1.7109e+01_rb,1.8183e+01_rb,2.5274e+01_rb,3.4440e+01_rb,2.8519e+01_rb/)
+      kbo(:, 3,59,13) = (/ &
+     &3.8233e+01_rb,3.4158e+01_rb,3.4619e+01_rb,4.0204e+01_rb,2.9240e+01_rb/)
+      kbo(:, 4,59,13) = (/ &
+     &7.6647e+01_rb,6.6998e+01_rb,5.6073e+01_rb,4.9489e+01_rb,2.9509e+01_rb/)
+      kbo(:, 5,59,13) = (/ &
+     &1.4043e+02_rb,1.2268e+02_rb,9.8230e+01_rb,6.8889e+01_rb,2.9402e+01_rb/)
+      kbo(:, 1,13,14) = (/ &
+     &2.1776e+03_rb,1.6333e+03_rb,1.0891e+03_rb,5.4478e+02_rb,7.3262e+00_rb/)
+      kbo(:, 2,13,14) = (/ &
+     &3.1101e+03_rb,2.3327e+03_rb,1.5553e+03_rb,7.7788e+02_rb,7.3124e+00_rb/)
+      kbo(:, 3,13,14) = (/ &
+     &4.2249e+03_rb,3.1687e+03_rb,2.1126e+03_rb,1.0565e+03_rb,7.2480e+00_rb/)
+      kbo(:, 4,13,14) = (/ &
+     &5.5118e+03_rb,4.1339e+03_rb,2.7561e+03_rb,1.3783e+03_rb,7.1568e+00_rb/)
+      kbo(:, 5,13,14) = (/ &
+     &6.9506e+03_rb,5.2131e+03_rb,3.4755e+03_rb,1.7380e+03_rb,7.0367e+00_rb/)
+      kbo(:, 1,14,14) = (/ &
+     &1.4496e+03_rb,1.0873e+03_rb,7.2501e+02_rb,3.6272e+02_rb,8.3339e+00_rb/)
+      kbo(:, 2,14,14) = (/ &
+     &2.0734e+03_rb,1.5551e+03_rb,1.0369e+03_rb,5.1863e+02_rb,8.2705e+00_rb/)
+      kbo(:, 3,14,14) = (/ &
+     &2.8238e+03_rb,2.1179e+03_rb,1.4121e+03_rb,7.0623e+02_rb,8.1703e+00_rb/)
+      kbo(:, 4,14,14) = (/ &
+     &3.6841e+03_rb,2.7632e+03_rb,1.8422e+03_rb,9.2131e+02_rb,8.0387e+00_rb/)
+      kbo(:, 5,14,14) = (/ &
+     &4.6457e+03_rb,3.4843e+03_rb,2.3230e+03_rb,1.1617e+03_rb,7.8896e+00_rb/)
+      kbo(:, 1,15,14) = (/ &
+     &9.9772e+02_rb,7.4839e+02_rb,4.9906e+02_rb,2.4972e+02_rb,9.4242e+00_rb/)
+      kbo(:, 2,15,14) = (/ &
+     &1.4271e+03_rb,1.0704e+03_rb,7.1374e+02_rb,3.5707e+02_rb,9.3124e+00_rb/)
+      kbo(:, 3,15,14) = (/ &
+     &1.9364e+03_rb,1.4524e+03_rb,9.6841e+02_rb,4.8440e+02_rb,9.1590e+00_rb/)
+      kbo(:, 4,15,14) = (/ &
+     &2.5268e+03_rb,1.8952e+03_rb,1.2636e+03_rb,6.3198e+02_rb,8.9837e+00_rb/)
+      kbo(:, 5,15,14) = (/ &
+     &3.1888e+03_rb,2.3917e+03_rb,1.5946e+03_rb,7.9748e+02_rb,8.7913e+00_rb/)
+      kbo(:, 1,16,14) = (/ &
+     &8.2535e+02_rb,6.1910e+02_rb,4.1286e+02_rb,2.0662e+02_rb,1.0617e+01_rb/)
+      kbo(:, 2,16,14) = (/ &
+     &1.1765e+03_rb,8.8250e+02_rb,5.8845e+02_rb,2.9441e+02_rb,1.0441e+01_rb/)
+      kbo(:, 3,16,14) = (/ &
+     &1.5988e+03_rb,1.1992e+03_rb,7.9956e+02_rb,3.9995e+02_rb,1.0240e+01_rb/)
+      kbo(:, 4,16,14) = (/ &
+     &2.0853e+03_rb,1.5640e+03_rb,1.0428e+03_rb,5.2160e+02_rb,1.0022e+01_rb/)
+      kbo(:, 5,16,14) = (/ &
+     &2.6260e+03_rb,1.9696e+03_rb,1.3132e+03_rb,6.5679e+02_rb,9.7853e+00_rb/)
+      kbo(:, 1,17,14) = (/ &
+     &7.1446e+02_rb,5.3593e+02_rb,3.5740e+02_rb,1.7888e+02_rb,1.1902e+01_rb/)
+      kbo(:, 2,17,14) = (/ &
+     &1.0170e+03_rb,7.6281e+02_rb,5.0866e+02_rb,2.5450e+02_rb,1.1678e+01_rb/)
+      kbo(:, 3,17,14) = (/ &
+     &1.3782e+03_rb,1.0338e+03_rb,6.8929e+02_rb,3.4482e+02_rb,1.1434e+01_rb/)
+      kbo(:, 4,17,14) = (/ &
+     &1.7913e+03_rb,1.3436e+03_rb,8.9585e+02_rb,4.4810e+02_rb,1.1160e+01_rb/)
+      kbo(:, 5,17,14) = (/ &
+     &2.2531e+03_rb,1.6899e+03_rb,1.1267e+03_rb,5.6354e+02_rb,1.0872e+01_rb/)
+      kbo(:, 1,18,14) = (/ &
+     &6.3627e+02_rb,4.7728e+02_rb,3.1830e+02_rb,1.5932e+02_rb,1.3306e+01_rb/)
+      kbo(:, 2,18,14) = (/ &
+     &9.0279e+02_rb,6.7718e+02_rb,4.5157e+02_rb,2.2596e+02_rb,1.3021e+01_rb/)
+      kbo(:, 3,18,14) = (/ &
+     &1.2176e+03_rb,9.1326e+02_rb,6.0896e+02_rb,3.0466e+02_rb,1.2705e+01_rb/)
+      kbo(:, 4,18,14) = (/ &
+     &1.5793e+03_rb,1.1846e+03_rb,7.8983e+02_rb,3.9509e+02_rb,1.2374e+01_rb/)
+      kbo(:, 5,18,14) = (/ &
+     &1.9821e+03_rb,1.4867e+03_rb,9.9125e+02_rb,4.9580e+02_rb,1.2038e+01_rb/)
+      kbo(:, 1,19,14) = (/ &
+     &5.5701e+02_rb,4.1784e+02_rb,2.7868e+02_rb,1.3951e+02_rb,1.4835e+01_rb/)
+      kbo(:, 2,19,14) = (/ &
+     &7.8555e+02_rb,5.8924e+02_rb,3.9294e+02_rb,1.9665e+02_rb,1.4471e+01_rb/)
+      kbo(:, 3,19,14) = (/ &
+     &1.0565e+03_rb,7.9246e+02_rb,5.2842e+02_rb,2.6438e+02_rb,1.4088e+01_rb/)
+      kbo(:, 4,19,14) = (/ &
+     &1.3666e+03_rb,1.0251e+03_rb,6.8348e+02_rb,3.4191e+02_rb,1.3700e+01_rb/)
+      kbo(:, 5,19,14) = (/ &
+     &1.7097e+03_rb,1.2824e+03_rb,8.5504e+02_rb,4.2769e+02_rb,1.3330e+01_rb/)
+      kbo(:, 1,20,14) = (/ &
+     &5.2902e+02_rb,3.9685e+02_rb,2.6468e+02_rb,1.3251e+02_rb,1.6461e+01_rb/)
+      kbo(:, 2,20,14) = (/ &
+     &7.4221e+02_rb,5.5674e+02_rb,3.7128e+02_rb,1.8581e+02_rb,1.6028e+01_rb/)
+      kbo(:, 3,20,14) = (/ &
+     &9.9413e+02_rb,7.4568e+02_rb,4.9723e+02_rb,2.4879e+02_rb,1.5588e+01_rb/)
+      kbo(:, 4,20,14) = (/ &
+     &1.2802e+03_rb,9.6022e+02_rb,6.4026e+02_rb,3.2030e+02_rb,1.5170e+01_rb/)
+      kbo(:, 5,20,14) = (/ &
+     &1.5959e+03_rb,1.1970e+03_rb,7.9814e+02_rb,3.9924e+02_rb,1.4766e+01_rb/)
+      kbo(:, 1,21,14) = (/ &
+     &5.1643e+02_rb,3.8740e+02_rb,2.5838e+02_rb,1.2935e+02_rb,1.8266e+01_rb/)
+      kbo(:, 2,21,14) = (/ &
+     &7.2079e+02_rb,5.4067e+02_rb,3.6056e+02_rb,1.8045e+02_rb,1.7763e+01_rb/)
+      kbo(:, 3,21,14) = (/ &
+     &9.5965e+02_rb,7.1982e+02_rb,4.7999e+02_rb,2.4017e+02_rb,1.7272e+01_rb/)
+      kbo(:, 4,21,14) = (/ &
+     &1.2302e+03_rb,9.2274e+02_rb,6.1527e+02_rb,3.0781e+02_rb,1.6803e+01_rb/)
+      kbo(:, 5,21,14) = (/ &
+     &1.5280e+03_rb,1.1461e+03_rb,7.6416e+02_rb,3.8225e+02_rb,1.6348e+01_rb/)
+      kbo(:, 1,22,14) = (/ &
+     &5.2623e+02_rb,3.9475e+02_rb,2.6327e+02_rb,1.3179e+02_rb,2.0243e+01_rb/)
+      kbo(:, 2,22,14) = (/ &
+     &7.2644e+02_rb,5.4491e+02_rb,3.6339e+02_rb,1.8186e+02_rb,1.9664e+01_rb/)
+      kbo(:, 3,22,14) = (/ &
+     &9.5925e+02_rb,7.1952e+02_rb,4.7979e+02_rb,2.4006e+02_rb,1.9116e+01_rb/)
+      kbo(:, 4,22,14) = (/ &
+     &1.2211e+03_rb,9.1590e+02_rb,6.1071e+02_rb,3.0553e+02_rb,1.8593e+01_rb/)
+      kbo(:, 5,22,14) = (/ &
+     &1.5078e+03_rb,1.1310e+03_rb,7.5409e+02_rb,3.7722e+02_rb,1.8080e+01_rb/)
+      kbo(:, 1,23,14) = (/ &
+     &5.3158e+02_rb,3.9876e+02_rb,2.6595e+02_rb,1.3313e+02_rb,2.2446e+01_rb/)
+      kbo(:, 2,23,14) = (/ &
+     &7.2667e+02_rb,5.4508e+02_rb,3.6349e+02_rb,1.8191e+02_rb,2.1789e+01_rb/)
+      kbo(:, 3,23,14) = (/ &
+     &9.5159e+02_rb,7.1378e+02_rb,4.7596e+02_rb,2.3814e+02_rb,2.1156e+01_rb/)
+      kbo(:, 4,23,14) = (/ &
+     &1.2042e+03_rb,9.0323e+02_rb,6.0227e+02_rb,3.0131e+02_rb,2.0541e+01_rb/)
+      kbo(:, 5,23,14) = (/ &
+     &1.4791e+03_rb,1.1094e+03_rb,7.3972e+02_rb,3.7004e+02_rb,1.9936e+01_rb/)
+      kbo(:, 1,24,14) = (/ &
+     &5.2674e+02_rb,3.9513e+02_rb,2.6351e+02_rb,1.3189e+02_rb,2.4861e+01_rb/)
+      kbo(:, 2,24,14) = (/ &
+     &7.1320e+02_rb,5.3497e+02_rb,3.5675e+02_rb,1.7852e+02_rb,2.4105e+01_rb/)
+      kbo(:, 3,24,14) = (/ &
+     &9.2799e+02_rb,6.9608e+02_rb,4.6416e+02_rb,2.3224e+02_rb,2.3357e+01_rb/)
+      kbo(:, 4,24,14) = (/ &
+     &1.1676e+03_rb,8.7581e+02_rb,5.8399e+02_rb,2.9218e+02_rb,2.2617e+01_rb/)
+      kbo(:, 5,24,14) = (/ &
+     &1.4298e+03_rb,1.0724e+03_rb,7.1508e+02_rb,3.5774e+02_rb,2.1888e+01_rb/)
+      kbo(:, 1,25,14) = (/ &
+     &5.2185e+02_rb,3.9145e+02_rb,2.6105e+02_rb,1.3066e+02_rb,2.7396e+01_rb/)
+      kbo(:, 2,25,14) = (/ &
+     &7.0140e+02_rb,5.2612e+02_rb,3.5084e+02_rb,1.7556e+02_rb,2.6509e+01_rb/)
+      kbo(:, 3,25,14) = (/ &
+     &9.0713e+02_rb,6.8043e+02_rb,4.5373e+02_rb,2.2703e+02_rb,2.5618e+01_rb/)
+      kbo(:, 4,25,14) = (/ &
+     &1.1371e+03_rb,8.5288e+02_rb,5.6870e+02_rb,2.8453e+02_rb,2.4730e+01_rb/)
+      kbo(:, 5,25,14) = (/ &
+     &1.3891e+03_rb,1.0419e+03_rb,6.9474e+02_rb,3.4757e+02_rb,2.3860e+01_rb/)
+      kbo(:, 1,26,14) = (/ &
+     &5.2251e+02_rb,3.9195e+02_rb,2.6138e+02_rb,1.3085e+02_rb,2.9927e+01_rb/)
+      kbo(:, 2,26,14) = (/ &
+     &6.9730e+02_rb,5.2305e+02_rb,3.4880e+02_rb,1.7455e+02_rb,2.8877e+01_rb/)
+      kbo(:, 3,26,14) = (/ &
+     &8.9735e+02_rb,6.7309e+02_rb,4.4884e+02_rb,2.2459e+02_rb,2.7820e+01_rb/)
+      kbo(:, 4,26,14) = (/ &
+     &1.1213e+03_rb,8.4105e+02_rb,5.6081e+02_rb,2.8058e+02_rb,2.6772e+01_rb/)
+      kbo(:, 5,26,14) = (/ &
+     &1.3665e+03_rb,1.0250e+03_rb,6.8346e+02_rb,3.4192e+02_rb,2.5741e+01_rb/)
+      kbo(:, 1,27,14) = (/ &
+     &5.3834e+02_rb,4.0383e+02_rb,2.6931e+02_rb,1.3510e+02_rb,3.2357e+01_rb/)
+      kbo(:, 2,27,14) = (/ &
+     &7.1439e+02_rb,5.3587e+02_rb,3.5735e+02_rb,1.7883e+02_rb,3.1116e+01_rb/)
+      kbo(:, 3,27,14) = (/ &
+     &9.1626e+02_rb,6.8728e+02_rb,4.5830e+02_rb,2.2932e+02_rb,2.9881e+01_rb/)
+      kbo(:, 4,27,14) = (/ &
+     &1.1424e+03_rb,8.5692e+02_rb,5.7140e+02_rb,2.8587e+02_rb,2.8666e+01_rb/)
+      kbo(:, 5,27,14) = (/ &
+     &1.3901e+03_rb,1.0427e+03_rb,6.9525e+02_rb,3.4781e+02_rb,2.7467e+01_rb/)
+      kbo(:, 1,28,14) = (/ &
+     &5.6592e+02_rb,4.2451e+02_rb,2.8310e+02_rb,1.4237e+02_rb,3.4583e+01_rb/)
+      kbo(:, 2,28,14) = (/ &
+     &7.4785e+02_rb,5.6096e+02_rb,3.7408e+02_rb,1.8720e+02_rb,3.3140e+01_rb/)
+      kbo(:, 3,28,14) = (/ &
+     &9.5690e+02_rb,7.1776e+02_rb,4.7862e+02_rb,2.3947e+02_rb,3.1724e+01_rb/)
+      kbo(:, 4,28,14) = (/ &
+     &1.1915e+03_rb,8.9371e+02_rb,5.9592e+02_rb,2.9814e+02_rb,3.0340e+01_rb/)
+      kbo(:, 5,28,14) = (/ &
+     &1.4480e+03_rb,1.0861e+03_rb,7.2421e+02_rb,3.6229e+02_rb,2.8988e+01_rb/)
+      kbo(:, 1,29,14) = (/ &
+     &6.3031e+02_rb,4.7280e+02_rb,3.1529e+02_rb,1.5867e+02_rb,3.6546e+01_rb/)
+      kbo(:, 2,29,14) = (/ &
+     &8.3056e+02_rb,6.2300e+02_rb,4.1543e+02_rb,2.0788e+02_rb,3.4912e+01_rb/)
+      kbo(:, 3,29,14) = (/ &
+     &1.0608e+03_rb,7.9566e+02_rb,5.3055e+02_rb,2.6544e+02_rb,3.3320e+01_rb/)
+      kbo(:, 4,29,14) = (/ &
+     &1.3185e+03_rb,9.8899e+02_rb,6.5945e+02_rb,3.2990e+02_rb,3.1769e+01_rb/)
+      kbo(:, 5,29,14) = (/ &
+     &1.6020e+03_rb,1.2016e+03_rb,8.0116e+02_rb,4.0076e+02_rb,3.0274e+01_rb/)
+      kbo(:, 1,30,14) = (/ &
+     &7.1878e+02_rb,5.3916e+02_rb,3.5953e+02_rb,1.8082e+02_rb,3.8231e+01_rb/)
+      kbo(:, 2,30,14) = (/ &
+     &9.4502e+02_rb,7.0884e+02_rb,4.7266e+02_rb,2.3650e+02_rb,3.6421e+01_rb/)
+      kbo(:, 3,30,14) = (/ &
+     &1.2048e+03_rb,9.0370e+02_rb,6.0258e+02_rb,3.0145e+02_rb,3.4660e+01_rb/)
+      kbo(:, 4,30,14) = (/ &
+     &1.4966e+03_rb,1.1225e+03_rb,7.4846e+02_rb,3.7440e+02_rb,3.2964e+01_rb/)
+      kbo(:, 5,30,14) = (/ &
+     &1.8180e+03_rb,1.3636e+03_rb,9.0918e+02_rb,4.5477e+02_rb,3.1338e+01_rb/)
+      kbo(:, 1,31,14) = (/ &
+     &8.6352e+02_rb,6.4770e+02_rb,4.3189e+02_rb,2.1681e+02_rb,3.9626e+01_rb/)
+      kbo(:, 2,31,14) = (/ &
+     &1.1338e+03_rb,8.5039e+02_rb,5.6702e+02_rb,2.8366e+02_rb,3.7649e+01_rb/)
+      kbo(:, 3,31,14) = (/ &
+     &1.4436e+03_rb,1.0827e+03_rb,7.2193e+02_rb,3.6112e+02_rb,3.5738e+01_rb/)
+      kbo(:, 4,31,14) = (/ &
+     &1.7919e+03_rb,1.3440e+03_rb,8.9611e+02_rb,4.4823e+02_rb,3.3911e+01_rb/)
+      kbo(:, 5,31,14) = (/ &
+     &2.1766e+03_rb,1.6325e+03_rb,1.0885e+03_rb,5.4442e+02_rb,3.2168e+01_rb/)
+      kbo(:, 1,32,14) = (/ &
+     &1.0534e+03_rb,7.9009e+02_rb,5.2682e+02_rb,2.6397e+02_rb,4.0725e+01_rb/)
+      kbo(:, 2,32,14) = (/ &
+     &1.3802e+03_rb,1.0352e+03_rb,6.9024e+02_rb,3.4527e+02_rb,3.8603e+01_rb/)
+      kbo(:, 3,32,14) = (/ &
+     &1.7557e+03_rb,1.3169e+03_rb,8.7802e+02_rb,4.3918e+02_rb,3.6565e+01_rb/)
+      kbo(:, 4,32,14) = (/ &
+     &2.1789e+03_rb,1.6342e+03_rb,1.0896e+03_rb,5.4499e+02_rb,3.4625e+01_rb/)
+      kbo(:, 5,32,14) = (/ &
+     &2.6446e+03_rb,1.9836e+03_rb,1.3225e+03_rb,6.6145e+02_rb,3.2784e+01_rb/)
+      kbo(:, 1,33,14) = (/ &
+     &1.3124e+03_rb,9.8436e+02_rb,6.5633e+02_rb,3.2843e+02_rb,4.1548e+01_rb/)
+      kbo(:, 2,33,14) = (/ &
+     &1.7177e+03_rb,1.2883e+03_rb,8.5900e+02_rb,4.2966e+02_rb,3.9303e+01_rb/)
+      kbo(:, 3,33,14) = (/ &
+     &2.1832e+03_rb,1.6375e+03_rb,1.0918e+03_rb,5.4605e+02_rb,3.7160e+01_rb/)
+      kbo(:, 4,33,14) = (/ &
+     &2.7063e+03_rb,2.0298e+03_rb,1.3533e+03_rb,6.7686e+02_rb,3.5130e+01_rb/)
+      kbo(:, 5,33,14) = (/ &
+     &3.2806e+03_rb,2.4606e+03_rb,1.6405e+03_rb,8.2046e+02_rb,3.3063e+01_rb/)
+      kbo(:, 1,34,14) = (/ &
+     &1.5860e+03_rb,1.1896e+03_rb,7.9315e+02_rb,3.9672e+02_rb,4.2202e+01_rb/)
+      kbo(:, 2,34,14) = (/ &
+     &2.0745e+03_rb,1.5559e+03_rb,1.0374e+03_rb,5.1886e+02_rb,3.9853e+01_rb/)
+      kbo(:, 3,34,14) = (/ &
+     &2.6355e+03_rb,1.9767e+03_rb,1.3179e+03_rb,6.5913e+02_rb,3.7623e+01_rb/)
+      kbo(:, 4,34,14) = (/ &
+     &3.2644e+03_rb,2.4484e+03_rb,1.6324e+03_rb,8.1637e+02_rb,3.5405e+01_rb/)
+      kbo(:, 5,34,14) = (/ &
+     &3.9520e+03_rb,2.9641e+03_rb,1.9762e+03_rb,9.8832e+02_rb,3.3276e+01_rb/)
+      kbo(:, 1,35,14) = (/ &
+     &1.8756e+03_rb,1.4068e+03_rb,9.3797e+02_rb,4.6914e+02_rb,4.2878e+01_rb/)
+      kbo(:, 2,35,14) = (/ &
+     &2.4578e+03_rb,1.8434e+03_rb,1.2290e+03_rb,6.1469e+02_rb,4.0440e+01_rb/)
+      kbo(:, 3,35,14) = (/ &
+     &3.1268e+03_rb,2.3452e+03_rb,1.5636e+03_rb,7.8197e+02_rb,3.8129e+01_rb/)
+      kbo(:, 4,35,14) = (/ &
+     &3.8751e+03_rb,2.9064e+03_rb,1.9378e+03_rb,9.6909e+02_rb,3.5715e+01_rb/)
+      kbo(:, 5,35,14) = (/ &
+     &4.6936e+03_rb,3.5203e+03_rb,2.3471e+03_rb,1.1738e+03_rb,3.3797e+01_rb/)
+      kbo(:, 1,36,14) = (/ &
+     &2.1453e+03_rb,1.6090e+03_rb,1.0728e+03_rb,5.3655e+02_rb,4.3664e+01_rb/)
+      kbo(:, 2,36,14) = (/ &
+     &2.8245e+03_rb,2.1184e+03_rb,1.4124e+03_rb,7.0636e+02_rb,4.1138e+01_rb/)
+      kbo(:, 3,36,14) = (/ &
+     &3.6063e+03_rb,2.7048e+03_rb,1.8033e+03_rb,9.0186e+02_rb,3.8589e+01_rb/)
+      kbo(:, 4,36,14) = (/ &
+     &4.4821e+03_rb,3.3616e+03_rb,2.2412e+03_rb,1.1208e+03_rb,3.6195e+01_rb/)
+      kbo(:, 5,36,14) = (/ &
+     &5.4418e+03_rb,4.0814e+03_rb,2.7211e+03_rb,1.3608e+03_rb,3.4367e+01_rb/)
+      kbo(:, 1,37,14) = (/ &
+     &2.2940e+03_rb,1.7205e+03_rb,1.1471e+03_rb,5.7372e+02_rb,4.4724e+01_rb/)
+      kbo(:, 2,37,14) = (/ &
+     &3.0476e+03_rb,2.2858e+03_rb,1.5240e+03_rb,7.6217e+02_rb,4.2103e+01_rb/)
+      kbo(:, 3,37,14) = (/ &
+     &3.9216e+03_rb,2.9413e+03_rb,1.9610e+03_rb,9.8070e+02_rb,3.9415e+01_rb/)
+      kbo(:, 4,37,14) = (/ &
+     &4.9050e+03_rb,3.6789e+03_rb,2.4527e+03_rb,1.2266e+03_rb,3.7136e+01_rb/)
+      kbo(:, 5,37,14) = (/ &
+     &5.9876e+03_rb,4.4908e+03_rb,2.9940e+03_rb,1.4972e+03_rb,3.5121e+01_rb/)
+      kbo(:, 1,38,14) = (/ &
+     &2.4855e+03_rb,1.8642e+03_rb,1.2429e+03_rb,6.2161e+02_rb,4.5721e+01_rb/)
+      kbo(:, 2,38,14) = (/ &
+     &3.3318e+03_rb,2.4989e+03_rb,1.6661e+03_rb,8.3322e+02_rb,4.3010e+01_rb/)
+      kbo(:, 3,38,14) = (/ &
+     &4.3213e+03_rb,3.2410e+03_rb,2.1608e+03_rb,1.0806e+03_rb,4.0195e+01_rb/)
+      kbo(:, 4,38,14) = (/ &
+     &5.4403e+03_rb,4.0803e+03_rb,2.7203e+03_rb,1.3604e+03_rb,3.7939e+01_rb/)
+      kbo(:, 5,38,14) = (/ &
+     &6.6754e+03_rb,5.0066e+03_rb,3.3379e+03_rb,1.6692e+03_rb,3.5824e+01_rb/)
+      kbo(:, 1,39,14) = (/ &
+     &2.7579e+03_rb,2.0685e+03_rb,1.3791e+03_rb,6.8973e+02_rb,4.6636e+01_rb/)
+      kbo(:, 2,39,14) = (/ &
+     &3.7311e+03_rb,2.7984e+03_rb,1.8657e+03_rb,9.3308e+02_rb,4.3764e+01_rb/)
+      kbo(:, 3,39,14) = (/ &
+     &4.8740e+03_rb,3.6556e+03_rb,2.4372e+03_rb,1.2188e+03_rb,4.0901e+01_rb/)
+      kbo(:, 4,39,14) = (/ &
+     &6.1755e+03_rb,4.6318e+03_rb,3.0880e+03_rb,1.5442e+03_rb,3.8692e+01_rb/)
+      kbo(:, 5,39,14) = (/ &
+     &7.6168e+03_rb,5.7128e+03_rb,3.8087e+03_rb,1.9046e+03_rb,3.6244e+01_rb/)
+      kbo(:, 1,40,14) = (/ &
+     &2.7806e+03_rb,2.0855e+03_rb,1.3905e+03_rb,6.9541e+02_rb,4.7781e+01_rb/)
+      kbo(:, 2,40,14) = (/ &
+     &3.8105e+03_rb,2.8580e+03_rb,1.9054e+03_rb,9.5291e+02_rb,4.4820e+01_rb/)
+      kbo(:, 3,40,14) = (/ &
+     &5.0317e+03_rb,3.7739e+03_rb,2.5160e+03_rb,1.2582e+03_rb,4.1870e+01_rb/)
+      kbo(:, 4,40,14) = (/ &
+     &6.4348e+03_rb,4.8262e+03_rb,3.2176e+03_rb,1.6090e+03_rb,3.9597e+01_rb/)
+      kbo(:, 5,40,14) = (/ &
+     &7.9965e+03_rb,5.9975e+03_rb,3.9985e+03_rb,1.9995e+03_rb,3.7061e+01_rb/)
+      kbo(:, 1,41,14) = (/ &
+     &2.7787e+03_rb,2.0841e+03_rb,1.3895e+03_rb,6.9500e+02_rb,4.8925e+01_rb/)
+      kbo(:, 2,41,14) = (/ &
+     &3.8614e+03_rb,2.8961e+03_rb,1.9309e+03_rb,9.6566e+02_rb,4.5922e+01_rb/)
+      kbo(:, 3,41,14) = (/ &
+     &5.1574e+03_rb,3.8681e+03_rb,2.5789e+03_rb,1.2897e+03_rb,4.2853e+01_rb/)
+      kbo(:, 4,41,14) = (/ &
+     &6.6587e+03_rb,4.9941e+03_rb,3.3296e+03_rb,1.6650e+03_rb,4.0428e+01_rb/)
+      kbo(:, 5,41,14) = (/ &
+     &8.3439e+03_rb,6.2581e+03_rb,4.1723e+03_rb,2.0864e+03_rb,3.7900e+01_rb/)
+      kbo(:, 1,42,14) = (/ &
+     &2.7998e+03_rb,2.0999e+03_rb,1.4001e+03_rb,7.0041e+02_rb,5.0031e+01_rb/)
+      kbo(:, 2,42,14) = (/ &
+     &3.9460e+03_rb,2.9596e+03_rb,1.9732e+03_rb,9.8680e+02_rb,4.6998e+01_rb/)
+      kbo(:, 3,42,14) = (/ &
+     &5.3323e+03_rb,3.9993e+03_rb,2.6663e+03_rb,1.3334e+03_rb,4.3819e+01_rb/)
+      kbo(:, 4,42,14) = (/ &
+     &6.9531e+03_rb,5.2149e+03_rb,3.4767e+03_rb,1.7386e+03_rb,4.1253e+01_rb/)
+      kbo(:, 5,42,14) = (/ &
+     &8.7873e+03_rb,6.5906e+03_rb,4.3939e+03_rb,2.1972e+03_rb,3.8745e+01_rb/)
+      kbo(:, 1,43,14) = (/ &
+     &2.7784e+03_rb,2.0839e+03_rb,1.3894e+03_rb,6.9544e+02_rb,5.1292e+01_rb/)
+      kbo(:, 2,43,14) = (/ &
+     &3.9830e+03_rb,2.9874e+03_rb,1.9917e+03_rb,9.9606e+02_rb,4.8177e+01_rb/)
+      kbo(:, 3,43,14) = (/ &
+     &5.4603e+03_rb,4.0953e+03_rb,2.7304e+03_rb,1.3654e+03_rb,4.4925e+01_rb/)
+      kbo(:, 4,43,14) = (/ &
+     &7.2065e+03_rb,5.4050e+03_rb,3.6035e+03_rb,1.8020e+03_rb,4.2242e+01_rb/)
+      kbo(:, 5,43,14) = (/ &
+     &9.2025e+03_rb,6.9020e+03_rb,4.6015e+03_rb,2.3010e+03_rb,3.9649e+01_rb/)
+      kbo(:, 1,44,14) = (/ &
+     &2.7542e+03_rb,2.0657e+03_rb,1.3772e+03_rb,6.8977e+02_rb,5.2617e+01_rb/)
+      kbo(:, 2,44,14) = (/ &
+     &4.0230e+03_rb,3.0173e+03_rb,2.0117e+03_rb,1.0060e+03_rb,4.9427e+01_rb/)
+      kbo(:, 3,44,14) = (/ &
+     &5.6050e+03_rb,4.2038e+03_rb,2.8027e+03_rb,1.4015e+03_rb,4.6077e+01_rb/)
+      kbo(:, 4,44,14) = (/ &
+     &7.4959e+03_rb,5.6220e+03_rb,3.7481e+03_rb,1.8743e+03_rb,4.3276e+01_rb/)
+      kbo(:, 5,44,14) = (/ &
+     &9.6875e+03_rb,7.2657e+03_rb,4.8439e+03_rb,2.4222e+03_rb,4.0647e+01_rb/)
+      kbo(:, 1,45,14) = (/ &
+     &2.7680e+03_rb,2.0761e+03_rb,1.3842e+03_rb,6.9371e+02_rb,5.3927e+01_rb/)
+      kbo(:, 2,45,14) = (/ &
+     &4.1247e+03_rb,3.0936e+03_rb,2.0625e+03_rb,1.0314e+03_rb,5.0672e+01_rb/)
+      kbo(:, 3,45,14) = (/ &
+     &5.8448e+03_rb,4.3837e+03_rb,2.9226e+03_rb,1.4615e+03_rb,4.7150e+01_rb/)
+      kbo(:, 4,45,14) = (/ &
+     &7.9284e+03_rb,5.9463e+03_rb,3.9644e+03_rb,1.9824e+03_rb,4.4329e+01_rb/)
+      kbo(:, 5,45,14) = (/ &
+     &1.0369e+04_rb,7.7768e+03_rb,5.1847e+03_rb,2.5926e+03_rb,4.1634e+01_rb/)
+      kbo(:, 1,46,14) = (/ &
+     &2.7642e+03_rb,2.0732e+03_rb,1.3822e+03_rb,6.9344e+02_rb,5.5299e+01_rb/)
+      kbo(:, 2,46,14) = (/ &
+     &4.2127e+03_rb,3.1596e+03_rb,2.1065e+03_rb,1.0534e+03_rb,5.1989e+01_rb/)
+      kbo(:, 3,46,14) = (/ &
+     &6.0817e+03_rb,4.5614e+03_rb,3.0411e+03_rb,1.5207e+03_rb,4.8362e+01_rb/)
+      kbo(:, 4,46,14) = (/ &
+     &8.3835e+03_rb,6.2877e+03_rb,4.1920e+03_rb,2.0962e+03_rb,4.5451e+01_rb/)
+      kbo(:, 5,46,14) = (/ &
+     &1.1109e+04_rb,8.3315e+03_rb,5.5545e+03_rb,2.7775e+03_rb,4.2710e+01_rb/)
+      kbo(:, 1,47,14) = (/ &
+     &2.6579e+03_rb,1.9935e+03_rb,1.3291e+03_rb,6.6810e+02_rb,5.6805e+01_rb/)
+      kbo(:, 2,47,14) = (/ &
+     &4.1618e+03_rb,3.1214e+03_rb,2.0811e+03_rb,1.0407e+03_rb,5.3447e+01_rb/)
+      kbo(:, 3,47,14) = (/ &
+     &6.1402e+03_rb,4.6053e+03_rb,3.0703e+03_rb,1.5354e+03_rb,4.9761e+01_rb/)
+      kbo(:, 4,47,14) = (/ &
+     &8.6262e+03_rb,6.4697e+03_rb,4.3133e+03_rb,2.1569e+03_rb,4.6695e+01_rb/)
+      kbo(:, 5,47,14) = (/ &
+     &1.1609e+04_rb,8.7071e+03_rb,5.8049e+03_rb,2.9027e+03_rb,4.4026e+01_rb/)
+      kbo(:, 1,48,14) = (/ &
+     &2.5983e+03_rb,1.9488e+03_rb,1.2993e+03_rb,6.5451e+02_rb,5.8316e+01_rb/)
+      kbo(:, 2,48,14) = (/ &
+     &4.1890e+03_rb,3.1418e+03_rb,2.0947e+03_rb,1.0476e+03_rb,5.4906e+01_rb/)
+      kbo(:, 3,48,14) = (/ &
+     &6.3280e+03_rb,4.7461e+03_rb,3.1642e+03_rb,1.5823e+03_rb,5.1153e+01_rb/)
+      kbo(:, 4,48,14) = (/ &
+     &9.0666e+03_rb,6.8001e+03_rb,4.5335e+03_rb,2.2670e+03_rb,4.7961e+01_rb/)
+      kbo(:, 5,48,14) = (/ &
+     &1.2413e+04_rb,9.3096e+03_rb,6.2066e+03_rb,3.1035e+03_rb,4.5348e+01_rb/)
+      kbo(:, 1,49,14) = (/ &
+     &2.6146e+03_rb,1.9610e+03_rb,1.3074e+03_rb,6.5952e+02_rb,5.9823e+01_rb/)
+      kbo(:, 2,49,14) = (/ &
+     &4.3479e+03_rb,3.2610e+03_rb,2.1741e+03_rb,1.0874e+03_rb,5.6229e+01_rb/)
+      kbo(:, 3,49,14) = (/ &
+     &6.7401e+03_rb,5.0552e+03_rb,3.3702e+03_rb,1.6853e+03_rb,5.2522e+01_rb/)
+      kbo(:, 4,49,14) = (/ &
+     &9.8602e+03_rb,7.3953e+03_rb,4.9303e+03_rb,2.4653e+03_rb,4.9326e+01_rb/)
+      kbo(:, 5,49,14) = (/ &
+     &1.3745e+04_rb,1.0309e+04_rb,6.8727e+03_rb,3.4366e+03_rb,4.6702e+01_rb/)
+      kbo(:, 1,50,14) = (/ &
+     &2.5099e+03_rb,1.8825e+03_rb,1.2551e+03_rb,6.3476e+02_rb,6.1230e+01_rb/)
+      kbo(:, 2,50,14) = (/ &
+     &4.3054e+03_rb,3.2291e+03_rb,2.1528e+03_rb,1.0772e+03_rb,5.7584e+01_rb/)
+      kbo(:, 3,50,14) = (/ &
+     &6.8503e+03_rb,5.1378e+03_rb,3.4253e+03_rb,1.7128e+03_rb,5.3876e+01_rb/)
+      kbo(:, 4,50,14) = (/ &
+     &1.0235e+04_rb,7.6760e+03_rb,5.1175e+03_rb,2.5589e+03_rb,5.0609e+01_rb/)
+      kbo(:, 5,50,14) = (/ &
+     &1.4527e+04_rb,1.0895e+04_rb,7.2636e+03_rb,3.6320e+03_rb,4.7904e+01_rb/)
+      kbo(:, 1,51,14) = (/ &
+     &2.3421e+03_rb,1.7566e+03_rb,1.1712e+03_rb,5.9456e+02_rb,6.2588e+01_rb/)
+      kbo(:, 2,51,14) = (/ &
+     &4.1517e+03_rb,3.1138e+03_rb,2.0760e+03_rb,1.0393e+03_rb,5.8927e+01_rb/)
+      kbo(:, 3,51,14) = (/ &
+     &6.7861e+03_rb,5.0897e+03_rb,3.3932e+03_rb,1.6968e+03_rb,5.5331e+01_rb/)
+      kbo(:, 4,51,14) = (/ &
+     &1.0366e+04_rb,7.7746e+03_rb,5.1832e+03_rb,2.5918e+03_rb,5.1728e+01_rb/)
+      kbo(:, 5,51,14) = (/ &
+     &1.4983e+04_rb,1.1238e+04_rb,7.4919e+03_rb,3.7462e+03_rb,4.9071e+01_rb/)
+      kbo(:, 1,52,14) = (/ &
+     &2.2192e+03_rb,1.6645e+03_rb,1.1098e+03_rb,5.6550e+02_rb,6.3929e+01_rb/)
+      kbo(:, 2,52,14) = (/ &
+     &4.0774e+03_rb,3.0581e+03_rb,2.0388e+03_rb,1.0215e+03_rb,6.0266e+01_rb/)
+      kbo(:, 3,52,14) = (/ &
+     &6.8574e+03_rb,5.1432e+03_rb,3.4289e+03_rb,1.7146e+03_rb,5.6630e+01_rb/)
+      kbo(:, 4,52,14) = (/ &
+     &1.0728e+04_rb,8.0459e+03_rb,5.3641e+03_rb,2.6822e+03_rb,5.3054e+01_rb/)
+      kbo(:, 5,52,14) = (/ &
+     &1.5806e+04_rb,1.1855e+04_rb,7.9035e+03_rb,3.9520e+03_rb,5.0321e+01_rb/)
+      kbo(:, 1,53,14) = (/ &
+     &2.1588e+03_rb,1.6192e+03_rb,1.0797e+03_rb,5.5175e+02_rb,6.5259e+01_rb/)
+      kbo(:, 2,53,14) = (/ &
+     &4.1225e+03_rb,3.0919e+03_rb,2.0614e+03_rb,1.0332e+03_rb,6.1546e+01_rb/)
+      kbo(:, 3,53,14) = (/ &
+     &7.1492e+03_rb,5.3620e+03_rb,3.5747e+03_rb,1.7875e+03_rb,5.7918e+01_rb/)
+      kbo(:, 4,53,14) = (/ &
+     &1.1475e+04_rb,8.6063e+03_rb,5.7376e+03_rb,2.8690e+03_rb,5.4409e+01_rb/)
+      kbo(:, 5,53,14) = (/ &
+     &1.7262e+04_rb,1.2946e+04_rb,8.6311e+03_rb,4.3158e+03_rb,5.1571e+01_rb/)
+      kbo(:, 1,54,14) = (/ &
+     &1.8282e+03_rb,1.3713e+03_rb,9.1520e+02_rb,4.7290e+02_rb,6.6448e+01_rb/)
+      kbo(:, 2,54,14) = (/ &
+     &3.6279e+03_rb,2.7210e+03_rb,1.8141e+03_rb,9.1135e+02_rb,6.2844e+01_rb/)
+      kbo(:, 3,54,14) = (/ &
+     &6.4841e+03_rb,4.8631e+03_rb,3.2422e+03_rb,1.6212e+03_rb,5.9155e+01_rb/)
+      kbo(:, 4,54,14) = (/ &
+     &1.0670e+04_rb,8.0025e+03_rb,5.3351e+03_rb,2.6677e+03_rb,5.5552e+01_rb/)
+      kbo(:, 5,54,14) = (/ &
+     &1.6384e+04_rb,1.2288e+04_rb,8.1922e+03_rb,4.0963e+03_rb,5.2636e+01_rb/)
+      kbo(:, 1,55,14) = (/ &
+     &1.4067e+03_rb,1.0551e+03_rb,7.0638e+02_rb,3.7354e+02_rb,6.7558e+01_rb/)
+      kbo(:, 2,55,14) = (/ &
+     &2.9041e+03_rb,2.1781e+03_rb,1.4522e+03_rb,7.3353e+02_rb,6.4148e+01_rb/)
+      kbo(:, 3,55,14) = (/ &
+     &5.3593e+03_rb,4.0195e+03_rb,2.6797e+03_rb,1.3404e+03_rb,6.0390e+01_rb/)
+      kbo(:, 4,55,14) = (/ &
+     &9.0439e+03_rb,6.7830e+03_rb,4.5221e+03_rb,2.2612e+03_rb,5.6702e+01_rb/)
+      kbo(:, 5,55,14) = (/ &
+     &1.4184e+04_rb,1.0638e+04_rb,7.0920e+03_rb,3.5462e+03_rb,5.3319e+01_rb/)
+      kbo(:, 1,56,14) = (/ &
+     &1.0676e+03_rb,8.0078e+02_rb,5.3961e+02_rb,2.9566e+02_rb,6.8630e+01_rb/)
+      kbo(:, 2,56,14) = (/ &
+     &2.3009e+03_rb,1.7258e+03_rb,1.1507e+03_rb,5.8655e+02_rb,6.5294e+01_rb/)
+      kbo(:, 3,56,14) = (/ &
+     &4.3913e+03_rb,3.2935e+03_rb,2.1958e+03_rb,1.1000e+03_rb,6.1700e+01_rb/)
+      kbo(:, 4,56,14) = (/ &
+     &7.6108e+03_rb,5.7081e+03_rb,3.8055e+03_rb,1.9028e+03_rb,5.7982e+01_rb/)
+      kbo(:, 5,56,14) = (/ &
+     &1.2207e+04_rb,9.1554e+03_rb,6.1037e+03_rb,3.0520e+03_rb,5.4269e+01_rb/)
+      kbo(:, 1,57,14) = (/ &
+     &7.9773e+02_rb,5.9861e+02_rb,4.0826e+02_rb,2.3574e+02_rb,6.9656e+01_rb/)
+      kbo(:, 2,57,14) = (/ &
+     &1.8005e+03_rb,1.3505e+03_rb,9.0146e+02_rb,4.6638e+02_rb,6.6420e+01_rb/)
+      kbo(:, 3,57,14) = (/ &
+     &3.5629e+03_rb,2.6722e+03_rb,1.7816e+03_rb,8.9534e+02_rb,6.2948e+01_rb/)
+      kbo(:, 4,57,14) = (/ &
+     &6.3553e+03_rb,4.7665e+03_rb,3.1777e+03_rb,1.5890e+03_rb,5.9228e+01_rb/)
+      kbo(:, 5,57,14) = (/ &
+     &1.0437e+04_rb,7.8281e+03_rb,5.2188e+03_rb,2.6095e+03_rb,5.5502e+01_rb/)
+      kbo(:, 1,58,14) = (/ &
+     &1.5691e+02_rb,1.4430e+02_rb,1.2945e+02_rb,1.1296e+02_rb,7.0583e+01_rb/)
+      kbo(:, 2,58,14) = (/ &
+     &3.7146e+02_rb,3.4061e+02_rb,2.9343e+02_rb,2.1801e+02_rb,6.7460e+01_rb/)
+      kbo(:, 3,58,14) = (/ &
+     &7.6282e+02_rb,6.9942e+02_rb,5.9974e+02_rb,4.2478e+02_rb,6.4030e+01_rb/)
+      kbo(:, 4,58,14) = (/ &
+     &1.4014e+03_rb,1.2849e+03_rb,1.1017e+03_rb,7.7206e+02_rb,6.0507e+01_rb/)
+      kbo(:, 5,58,14) = (/ &
+     &2.3564e+03_rb,2.1605e+03_rb,1.8525e+03_rb,1.2975e+03_rb,5.6760e+01_rb/)
+      kbo(:, 1,59,14) = (/ &
+     &1.6269e+02_rb,1.4372e+02_rb,1.2601e+02_rb,1.1040e+02_rb,7.0952e+01_rb/)
+      kbo(:, 2,59,14) = (/ &
+     &3.9338e+02_rb,3.4354e+02_rb,2.7833e+02_rb,1.9401e+02_rb,6.7878e+01_rb/)
+      kbo(:, 3,59,14) = (/ &
+     &8.2073e+02_rb,7.1668e+02_rb,5.7208e+02_rb,3.6616e+02_rb,6.4473e+01_rb/)
+      kbo(:, 4,59,14) = (/ &
+     &1.5267e+03_rb,1.3331e+03_rb,1.0634e+03_rb,6.6456e+02_rb,6.0953e+01_rb/)
+      kbo(:, 5,59,14) = (/ &
+     &2.5924e+03_rb,2.2637e+03_rb,1.8057e+03_rb,1.1237e+03_rb,5.7434e+01_rb/)
+      kbo(:, 1,13,15) = (/ &
+     &6.7676e+03_rb,5.0758e+03_rb,3.3840e+03_rb,1.6922e+03_rb,9.0910e+00_rb/)
+      kbo(:, 2,13,15) = (/ &
+     &9.5300e+03_rb,7.1475e+03_rb,4.7651e+03_rb,2.3827e+03_rb,8.9593e+00_rb/)
+      kbo(:, 3,13,15) = (/ &
+     &1.2768e+04_rb,9.5761e+03_rb,6.3842e+03_rb,3.1923e+03_rb,8.8860e+00_rb/)
+      kbo(:, 4,13,15) = (/ &
+     &1.6413e+04_rb,1.2310e+04_rb,8.2067e+03_rb,4.1035e+03_rb,8.8094e+00_rb/)
+      kbo(:, 5,13,15) = (/ &
+     &2.0377e+04_rb,1.5283e+04_rb,1.0189e+04_rb,5.0946e+03_rb,8.7010e+00_rb/)
+      kbo(:, 1,14,15) = (/ &
+     &4.6855e+03_rb,3.5142e+03_rb,2.3429e+03_rb,1.1716e+03_rb,1.0351e+01_rb/)
+      kbo(:, 2,14,15) = (/ &
+     &6.5777e+03_rb,4.9333e+03_rb,3.2890e+03_rb,1.6447e+03_rb,1.0245e+01_rb/)
+      kbo(:, 3,14,15) = (/ &
+     &8.7780e+03_rb,6.5835e+03_rb,4.3891e+03_rb,2.1947e+03_rb,1.0189e+01_rb/)
+      kbo(:, 4,14,15) = (/ &
+     &1.1257e+04_rb,8.4428e+03_rb,5.6286e+03_rb,2.8145e+03_rb,1.0105e+01_rb/)
+      kbo(:, 5,14,15) = (/ &
+     &1.3964e+04_rb,1.0473e+04_rb,6.9821e+03_rb,3.4912e+03_rb,9.9926e+00_rb/)
+      kbo(:, 1,15,15) = (/ &
+     &3.2854e+03_rb,2.4642e+03_rb,1.6429e+03_rb,8.2169e+02_rb,1.1907e+01_rb/)
+      kbo(:, 2,15,15) = (/ &
+     &4.5889e+03_rb,3.4418e+03_rb,2.2947e+03_rb,1.1475e+03_rb,1.1847e+01_rb/)
+      kbo(:, 3,15,15) = (/ &
+     &6.1056e+03_rb,4.5793e+03_rb,3.0530e+03_rb,1.5267e+03_rb,1.1796e+01_rb/)
+      kbo(:, 4,15,15) = (/ &
+     &7.8011e+03_rb,5.8510e+03_rb,3.9008e+03_rb,1.9506e+03_rb,1.1682e+01_rb/)
+      kbo(:, 5,15,15) = (/ &
+     &9.6352e+03_rb,7.2265e+03_rb,4.8178e+03_rb,2.4091e+03_rb,1.1548e+01_rb/)
+      kbo(:, 1,16,15) = (/ &
+     &2.7156e+03_rb,2.0368e+03_rb,1.3580e+03_rb,6.7918e+02_rb,1.3833e+01_rb/)
+      kbo(:, 2,16,15) = (/ &
+     &3.7730e+03_rb,2.8298e+03_rb,1.8867e+03_rb,9.4350e+02_rb,1.3786e+01_rb/)
+      kbo(:, 3,16,15) = (/ &
+     &4.9942e+03_rb,3.7457e+03_rb,2.4973e+03_rb,1.2488e+03_rb,1.3682e+01_rb/)
+      kbo(:, 4,16,15) = (/ &
+     &6.3607e+03_rb,4.7706e+03_rb,3.1805e+03_rb,1.5904e+03_rb,1.3533e+01_rb/)
+      kbo(:, 5,16,15) = (/ &
+     &7.8514e+03_rb,5.8886e+03_rb,3.9259e+03_rb,1.9631e+03_rb,1.3377e+01_rb/)
+      kbo(:, 1,17,15) = (/ &
+     &2.3075e+03_rb,1.7307e+03_rb,1.1539e+03_rb,5.7711e+02_rb,1.6126e+01_rb/)
+      kbo(:, 2,17,15) = (/ &
+     &3.1956e+03_rb,2.3967e+03_rb,1.5979e+03_rb,7.9911e+02_rb,1.6029e+01_rb/)
+      kbo(:, 3,17,15) = (/ &
+     &4.2241e+03_rb,3.1681e+03_rb,2.1122e+03_rb,1.0562e+03_rb,1.5863e+01_rb/)
+      kbo(:, 4,17,15) = (/ &
+     &5.3821e+03_rb,4.0366e+03_rb,2.6912e+03_rb,1.3457e+03_rb,1.5685e+01_rb/)
+      kbo(:, 5,17,15) = (/ &
+     &6.6465e+03_rb,4.9850e+03_rb,3.3234e+03_rb,1.6618e+03_rb,1.5496e+01_rb/)
+      kbo(:, 1,18,15) = (/ &
+     &2.0119e+03_rb,1.5090e+03_rb,1.0061e+03_rb,5.0318e+02_rb,1.8668e+01_rb/)
+      kbo(:, 2,18,15) = (/ &
+     &2.7815e+03_rb,2.0862e+03_rb,1.3909e+03_rb,6.9557e+02_rb,1.8505e+01_rb/)
+      kbo(:, 3,18,15) = (/ &
+     &3.6794e+03_rb,2.7596e+03_rb,1.8398e+03_rb,9.2005e+02_rb,1.8343e+01_rb/)
+      kbo(:, 4,18,15) = (/ &
+     &4.6884e+03_rb,3.5164e+03_rb,2.3443e+03_rb,1.1723e+03_rb,1.8140e+01_rb/)
+      kbo(:, 5,18,15) = (/ &
+     &5.7908e+03_rb,4.3432e+03_rb,2.8955e+03_rb,1.4479e+03_rb,1.7901e+01_rb/)
+      kbo(:, 1,19,15) = (/ &
+     &1.7281e+03_rb,1.2962e+03_rb,8.6418e+02_rb,4.3222e+02_rb,2.1496e+01_rb/)
+      kbo(:, 2,19,15) = (/ &
+     &2.3903e+03_rb,1.7928e+03_rb,1.1953e+03_rb,5.9777e+02_rb,2.1311e+01_rb/)
+      kbo(:, 3,19,15) = (/ &
+     &3.1615e+03_rb,2.3712e+03_rb,1.5809e+03_rb,7.9055e+02_rb,2.1106e+01_rb/)
+      kbo(:, 4,19,15) = (/ &
+     &4.0222e+03_rb,3.0167e+03_rb,2.0112e+03_rb,1.0057e+03_rb,2.0849e+01_rb/)
+      kbo(:, 5,19,15) = (/ &
+     &4.9621e+03_rb,3.7216e+03_rb,2.4811e+03_rb,1.2407e+03_rb,2.0531e+01_rb/)
+      kbo(:, 1,20,15) = (/ &
+     &1.6235e+03_rb,1.2177e+03_rb,8.1188e+02_rb,4.0606e+02_rb,2.4735e+01_rb/)
+      kbo(:, 2,20,15) = (/ &
+     &2.2387e+03_rb,1.6791e+03_rb,1.1195e+03_rb,5.5984e+02_rb,2.4475e+01_rb/)
+      kbo(:, 3,20,15) = (/ &
+     &2.9488e+03_rb,2.2116e+03_rb,1.4745e+03_rb,7.3737e+02_rb,2.4178e+01_rb/)
+      kbo(:, 4,20,15) = (/ &
+     &3.7459e+03_rb,2.8095e+03_rb,1.8731e+03_rb,9.3665e+02_rb,2.3818e+01_rb/)
+      kbo(:, 5,20,15) = (/ &
+     &4.6161e+03_rb,3.4621e+03_rb,2.3081e+03_rb,1.1542e+03_rb,2.3401e+01_rb/)
+      kbo(:, 1,21,15) = (/ &
+     &1.5705e+03_rb,1.1779e+03_rb,7.8536e+02_rb,3.9279e+02_rb,2.8368e+01_rb/)
+      kbo(:, 2,21,15) = (/ &
+     &2.1555e+03_rb,1.6166e+03_rb,1.0778e+03_rb,5.3903e+02_rb,2.7972e+01_rb/)
+      kbo(:, 3,21,15) = (/ &
+     &2.8340e+03_rb,2.1256e+03_rb,1.4171e+03_rb,7.0866e+02_rb,2.7543e+01_rb/)
+      kbo(:, 4,21,15) = (/ &
+     &3.5949e+03_rb,2.6962e+03_rb,1.7975e+03_rb,8.9888e+02_rb,2.7047e+01_rb/)
+      kbo(:, 5,21,15) = (/ &
+     &4.4249e+03_rb,3.3187e+03_rb,2.2126e+03_rb,1.1064e+03_rb,2.6508e+01_rb/)
+      kbo(:, 1,22,15) = (/ &
+     &1.5869e+03_rb,1.1902e+03_rb,7.9356e+02_rb,3.9688e+02_rb,3.2318e+01_rb/)
+      kbo(:, 2,22,15) = (/ &
+     &2.1673e+03_rb,1.6255e+03_rb,1.0838e+03_rb,5.4198e+02_rb,3.1767e+01_rb/)
+      kbo(:, 3,22,15) = (/ &
+     &2.8378e+03_rb,2.1284e+03_rb,1.4190e+03_rb,7.0961e+02_rb,3.1126e+01_rb/)
+      kbo(:, 4,22,15) = (/ &
+     &3.5877e+03_rb,2.6908e+03_rb,1.7940e+03_rb,8.9709e+02_rb,3.0424e+01_rb/)
+      kbo(:, 5,22,15) = (/ &
+     &4.4005e+03_rb,3.3004e+03_rb,2.2004e+03_rb,1.1003e+03_rb,2.9694e+01_rb/)
+      kbo(:, 1,23,15) = (/ &
+     &1.6232e+03_rb,1.2174e+03_rb,8.1169e+02_rb,4.0594e+02_rb,3.6426e+01_rb/)
+      kbo(:, 2,23,15) = (/ &
+     &2.2045e+03_rb,1.6534e+03_rb,1.1023e+03_rb,5.5127e+02_rb,3.5632e+01_rb/)
+      kbo(:, 3,23,15) = (/ &
+     &2.8697e+03_rb,2.1523e+03_rb,1.4350e+03_rb,7.1760e+02_rb,3.4766e+01_rb/)
+      kbo(:, 4,23,15) = (/ &
+     &3.6072e+03_rb,2.7054e+03_rb,1.8037e+03_rb,9.0197e+02_rb,3.3867e+01_rb/)
+      kbo(:, 5,23,15) = (/ &
+     &4.4070e+03_rb,3.3053e+03_rb,2.2036e+03_rb,1.1019e+03_rb,3.2942e+01_rb/)
+      kbo(:, 1,24,15) = (/ &
+     &1.6638e+03_rb,1.2479e+03_rb,8.3204e+02_rb,4.1615e+02_rb,4.0555e+01_rb/)
+      kbo(:, 2,24,15) = (/ &
+     &2.2399e+03_rb,1.6800e+03_rb,1.1201e+03_rb,5.6017e+02_rb,3.9512e+01_rb/)
+      kbo(:, 3,24,15) = (/ &
+     &2.8950e+03_rb,2.1713e+03_rb,1.4476e+03_rb,7.2392e+02_rb,3.8430e+01_rb/)
+      kbo(:, 4,24,15) = (/ &
+     &3.6214e+03_rb,2.7161e+03_rb,1.8108e+03_rb,9.0552e+02_rb,3.7312e+01_rb/)
+      kbo(:, 5,24,15) = (/ &
+     &4.4048e+03_rb,3.3036e+03_rb,2.2025e+03_rb,1.1014e+03_rb,3.6172e+01_rb/)
+      kbo(:, 1,25,15) = (/ &
+     &1.7332e+03_rb,1.2999e+03_rb,8.6673e+02_rb,4.3352e+02_rb,4.4719e+01_rb/)
+      kbo(:, 2,25,15) = (/ &
+     &2.3131e+03_rb,1.7349e+03_rb,1.1567e+03_rb,5.7851e+02_rb,4.3381e+01_rb/)
+      kbo(:, 3,25,15) = (/ &
+     &2.9711e+03_rb,2.2284e+03_rb,1.4857e+03_rb,7.4302e+02_rb,4.2032e+01_rb/)
+      kbo(:, 4,25,15) = (/ &
+     &3.6954e+03_rb,2.7716e+03_rb,1.8478e+03_rb,9.2407e+02_rb,4.0668e+01_rb/)
+      kbo(:, 5,25,15) = (/ &
+     &4.4711e+03_rb,3.3534e+03_rb,2.2357e+03_rb,1.1180e+03_rb,3.9312e+01_rb/)
+      kbo(:, 1,26,15) = (/ &
+     &1.8457e+03_rb,1.3843e+03_rb,9.2300e+02_rb,4.6166e+02_rb,4.8798e+01_rb/)
+      kbo(:, 2,26,15) = (/ &
+     &2.4421e+03_rb,1.8317e+03_rb,1.2212e+03_rb,6.1078e+02_rb,4.7150e+01_rb/)
+      kbo(:, 3,26,15) = (/ &
+     &3.1127e+03_rb,2.3346e+03_rb,1.5565e+03_rb,7.7843e+02_rb,4.5507e+01_rb/)
+      kbo(:, 4,26,15) = (/ &
+     &3.8432e+03_rb,2.8825e+03_rb,1.9217e+03_rb,9.6104e+02_rb,4.3884e+01_rb/)
+      kbo(:, 5,26,15) = (/ &
+     &4.6197e+03_rb,3.4648e+03_rb,2.3100e+03_rb,1.1552e+03_rb,4.2296e+01_rb/)
+      kbo(:, 1,27,15) = (/ &
+     &2.0401e+03_rb,1.5302e+03_rb,1.0202e+03_rb,5.1030e+02_rb,5.2748e+01_rb/)
+      kbo(:, 2,27,15) = (/ &
+     &2.6727e+03_rb,2.0046e+03_rb,1.3365e+03_rb,6.6845e+02_rb,5.0763e+01_rb/)
+      kbo(:, 3,27,15) = (/ &
+     &3.3765e+03_rb,2.5325e+03_rb,1.6885e+03_rb,8.4441e+02_rb,4.8815e+01_rb/)
+      kbo(:, 4,27,15) = (/ &
+     &4.1373e+03_rb,3.1031e+03_rb,2.0688e+03_rb,1.0346e+03_rb,4.6912e+01_rb/)
+      kbo(:, 5,27,15) = (/ &
+     &4.9426e+03_rb,3.7071e+03_rb,2.4715e+03_rb,1.2359e+03_rb,4.5084e+01_rb/)
+      kbo(:, 1,28,15) = (/ &
+     &2.3062e+03_rb,1.7297e+03_rb,1.1533e+03_rb,5.7684e+02_rb,5.6494e+01_rb/)
+      kbo(:, 2,28,15) = (/ &
+     &2.9911e+03_rb,2.2434e+03_rb,1.4957e+03_rb,7.4806e+02_rb,5.4164e+01_rb/)
+      kbo(:, 3,28,15) = (/ &
+     &3.7467e+03_rb,2.8101e+03_rb,1.8736e+03_rb,9.3698e+02_rb,5.1914e+01_rb/)
+      kbo(:, 4,28,15) = (/ &
+     &4.5581e+03_rb,3.4187e+03_rb,2.2792e+03_rb,1.1398e+03_rb,4.9734e+01_rb/)
+      kbo(:, 5,28,15) = (/ &
+     &5.4121e+03_rb,4.0592e+03_rb,2.7063e+03_rb,1.3533e+03_rb,4.7639e+01_rb/)
+      kbo(:, 1,29,15) = (/ &
+     &2.7587e+03_rb,2.0691e+03_rb,1.3796e+03_rb,6.8998e+02_rb,5.9883e+01_rb/)
+      kbo(:, 2,29,15) = (/ &
+     &3.5427e+03_rb,2.6571e+03_rb,1.7716e+03_rb,8.8598e+02_rb,5.7214e+01_rb/)
+      kbo(:, 3,29,15) = (/ &
+     &4.3997e+03_rb,3.2998e+03_rb,2.2000e+03_rb,1.1002e+03_rb,5.4658e+01_rb/)
+      kbo(:, 4,29,15) = (/ &
+     &5.3158e+03_rb,3.9869e+03_rb,2.6581e+03_rb,1.3292e+03_rb,5.2215e+01_rb/)
+      kbo(:, 5,29,15) = (/ &
+     &6.2710e+03_rb,4.7033e+03_rb,3.1357e+03_rb,1.5680e+03_rb,4.9872e+01_rb/)
+      kbo(:, 1,30,15) = (/ &
+     &3.3645e+03_rb,2.5235e+03_rb,1.6825e+03_rb,8.4145e+02_rb,6.2847e+01_rb/)
+      kbo(:, 2,30,15) = (/ &
+     &4.2782e+03_rb,3.2088e+03_rb,2.1393e+03_rb,1.0699e+03_rb,5.9850e+01_rb/)
+      kbo(:, 3,30,15) = (/ &
+     &5.2706e+03_rb,3.9531e+03_rb,2.6355e+03_rb,1.3180e+03_rb,5.7012e+01_rb/)
+      kbo(:, 4,30,15) = (/ &
+     &6.3236e+03_rb,4.7428e+03_rb,3.1620e+03_rb,1.5812e+03_rb,5.4322e+01_rb/)
+      kbo(:, 5,30,15) = (/ &
+     &7.4122e+03_rb,5.5592e+03_rb,3.7063e+03_rb,1.8534e+03_rb,5.1754e+01_rb/)
+      kbo(:, 1,31,15) = (/ &
+     &4.2971e+03_rb,3.2230e+03_rb,2.1488e+03_rb,1.0746e+03_rb,6.5331e+01_rb/)
+      kbo(:, 2,31,15) = (/ &
+     &5.4121e+03_rb,4.0592e+03_rb,2.7063e+03_rb,1.3534e+03_rb,6.2034e+01_rb/)
+      kbo(:, 3,31,15) = (/ &
+     &6.6141e+03_rb,4.9607e+03_rb,3.3073e+03_rb,1.6539e+03_rb,5.8947e+01_rb/)
+      kbo(:, 4,31,15) = (/ &
+     &7.8758e+03_rb,5.9069e+03_rb,3.9381e+03_rb,1.9693e+03_rb,5.6027e+01_rb/)
+      kbo(:, 5,31,15) = (/ &
+     &9.1717e+03_rb,6.8788e+03_rb,4.5860e+03_rb,2.2932e+03_rb,5.3266e+01_rb/)
+      kbo(:, 1,32,15) = (/ &
+     &5.5229e+03_rb,4.1423e+03_rb,2.7617e+03_rb,1.3811e+03_rb,6.7311e+01_rb/)
+      kbo(:, 2,32,15) = (/ &
+     &6.8909e+03_rb,5.1683e+03_rb,3.4457e+03_rb,1.7231e+03_rb,6.3759e+01_rb/)
+      kbo(:, 3,32,15) = (/ &
+     &8.3530e+03_rb,6.2649e+03_rb,4.1768e+03_rb,2.0886e+03_rb,6.0452e+01_rb/)
+      kbo(:, 4,32,15) = (/ &
+     &9.8746e+03_rb,7.4061e+03_rb,4.9375e+03_rb,2.4690e+03_rb,5.7340e+01_rb/)
+      kbo(:, 5,32,15) = (/ &
+     &1.1429e+04_rb,8.5717e+03_rb,5.7146e+03_rb,2.8575e+03_rb,5.4420e+01_rb/)
+      kbo(:, 1,33,15) = (/ &
+     &7.1868e+03_rb,5.3902e+03_rb,3.5936e+03_rb,1.7971e+03_rb,6.8810e+01_rb/)
+      kbo(:, 2,33,15) = (/ &
+     &8.8853e+03_rb,6.6641e+03_rb,4.4429e+03_rb,2.2217e+03_rb,6.5053e+01_rb/)
+      kbo(:, 3,33,15) = (/ &
+     &1.0684e+04_rb,8.0128e+03_rb,5.3420e+03_rb,2.6713e+03_rb,6.1559e+01_rb/)
+      kbo(:, 4,33,15) = (/ &
+     &1.2545e+04_rb,9.4087e+03_rb,6.2726e+03_rb,3.1365e+03_rb,5.8295e+01_rb/)
+      kbo(:, 5,33,15) = (/ &
+     &1.4437e+04_rb,1.0828e+04_rb,7.2187e+03_rb,3.6096e+03_rb,5.5243e+01_rb/)
+      kbo(:, 1,34,15) = (/ &
+     &8.9946e+03_rb,6.7461e+03_rb,4.4975e+03_rb,2.2490e+03_rb,7.0022e+01_rb/)
+      kbo(:, 2,34,15) = (/ &
+     &1.1036e+04_rb,8.2772e+03_rb,5.5183e+03_rb,2.7594e+03_rb,6.6087e+01_rb/)
+      kbo(:, 3,34,15) = (/ &
+     &1.3184e+04_rb,9.8877e+03_rb,6.5920e+03_rb,3.2962e+03_rb,6.2443e+01_rb/)
+      kbo(:, 4,34,15) = (/ &
+     &1.5394e+04_rb,1.1546e+04_rb,7.6972e+03_rb,3.8488e+03_rb,5.9052e+01_rb/)
+      kbo(:, 5,34,15) = (/ &
+     &1.7632e+04_rb,1.3224e+04_rb,8.8161e+03_rb,4.4083e+03_rb,5.5884e+01_rb/)
+      kbo(:, 1,35,15) = (/ &
+     &1.0993e+04_rb,8.2446e+03_rb,5.4966e+03_rb,2.7485e+03_rb,7.1272e+01_rb/)
+      kbo(:, 2,35,15) = (/ &
+     &1.3428e+04_rb,1.0071e+04_rb,6.7141e+03_rb,3.3573e+03_rb,6.7165e+01_rb/)
+      kbo(:, 3,35,15) = (/ &
+     &1.5977e+04_rb,1.1983e+04_rb,7.9889e+03_rb,3.9949e+03_rb,6.3376e+01_rb/)
+      kbo(:, 4,35,15) = (/ &
+     &1.8595e+04_rb,1.3946e+04_rb,9.2975e+03_rb,4.6490e+03_rb,5.9869e+01_rb/)
+      kbo(:, 5,35,15) = (/ &
+     &2.1231e+04_rb,1.5923e+04_rb,1.0616e+04_rb,5.3081e+03_rb,5.6025e+01_rb/)
+      kbo(:, 1,36,15) = (/ &
+     &1.3006e+04_rb,9.7547e+03_rb,6.5033e+03_rb,3.2519e+03_rb,7.2705e+01_rb/)
+      kbo(:, 2,36,15) = (/ &
+     &1.5874e+04_rb,1.1905e+04_rb,7.9370e+03_rb,3.9687e+03_rb,6.8413e+01_rb/)
+      kbo(:, 3,36,15) = (/ &
+     &1.8861e+04_rb,1.4146e+04_rb,9.4305e+03_rb,4.7155e+03_rb,6.4479e+01_rb/)
+      kbo(:, 4,36,15) = (/ &
+     &2.1927e+04_rb,1.6445e+04_rb,1.0964e+04_rb,5.4821e+03_rb,6.0843e+01_rb/)
+      kbo(:, 5,36,15) = (/ &
+     &2.5014e+04_rb,1.8760e+04_rb,1.2507e+04_rb,6.2537e+03_rb,5.6544e+01_rb/)
+      kbo(:, 1,37,15) = (/ &
+     &1.4489e+04_rb,1.0867e+04_rb,7.2447e+03_rb,3.6226e+03_rb,7.4617e+01_rb/)
+      kbo(:, 2,37,15) = (/ &
+     &1.7744e+04_rb,1.3308e+04_rb,8.8720e+03_rb,4.4362e+03_rb,7.0104e+01_rb/)
+      kbo(:, 3,37,15) = (/ &
+     &2.1142e+04_rb,1.5857e+04_rb,1.0571e+04_rb,5.2858e+03_rb,6.5985e+01_rb/)
+      kbo(:, 4,37,15) = (/ &
+     &2.4633e+04_rb,1.8475e+04_rb,1.2317e+04_rb,6.1586e+03_rb,6.1723e+01_rb/)
+      kbo(:, 5,37,15) = (/ &
+     &2.8152e+04_rb,2.1114e+04_rb,1.4076e+04_rb,7.0383e+03_rb,5.7616e+01_rb/)
+      kbo(:, 1,38,15) = (/ &
+     &1.6314e+04_rb,1.2236e+04_rb,8.1572e+03_rb,4.0788e+03_rb,7.6413e+01_rb/)
+      kbo(:, 2,38,15) = (/ &
+     &2.0055e+04_rb,1.5041e+04_rb,1.0028e+04_rb,5.0140e+03_rb,7.1696e+01_rb/)
+      kbo(:, 3,38,15) = (/ &
+     &2.3973e+04_rb,1.7980e+04_rb,1.1987e+04_rb,5.9936e+03_rb,6.7406e+01_rb/)
+      kbo(:, 4,38,15) = (/ &
+     &2.8001e+04_rb,2.1001e+04_rb,1.4001e+04_rb,7.0006e+03_rb,6.2768e+01_rb/)
+      kbo(:, 5,38,15) = (/ &
+     &3.2071e+04_rb,2.4053e+04_rb,1.6036e+04_rb,8.0180e+03_rb,5.8602e+01_rb/)
+      kbo(:, 1,39,15) = (/ &
+     &1.8759e+04_rb,1.4069e+04_rb,9.3797e+03_rb,4.6901e+03_rb,7.8086e+01_rb/)
+      kbo(:, 2,39,15) = (/ &
+     &2.3153e+04_rb,1.7365e+04_rb,1.1577e+04_rb,5.7886e+03_rb,7.3162e+01_rb/)
+      kbo(:, 3,39,15) = (/ &
+     &2.7770e+04_rb,2.0828e+04_rb,1.3886e+04_rb,6.9431e+03_rb,6.8719e+01_rb/)
+      kbo(:, 4,39,15) = (/ &
+     &3.2517e+04_rb,2.4388e+04_rb,1.6259e+04_rb,8.1299e+03_rb,6.3661e+01_rb/)
+      kbo(:, 5,39,15) = (/ &
+     &3.7323e+04_rb,2.7992e+04_rb,1.8662e+04_rb,9.3312e+03_rb,5.9468e+01_rb/)
+      kbo(:, 1,40,15) = (/ &
+     &1.9750e+04_rb,1.4812e+04_rb,9.8751e+03_rb,4.9378e+03_rb,8.0192e+01_rb/)
+      kbo(:, 2,40,15) = (/ &
+     &2.4562e+04_rb,1.8422e+04_rb,1.2281e+04_rb,6.1409e+03_rb,7.5032e+01_rb/)
+      kbo(:, 3,40,15) = (/ &
+     &2.9646e+04_rb,2.2235e+04_rb,1.4823e+04_rb,7.4118e+03_rb,7.0393e+01_rb/)
+      kbo(:, 4,40,15) = (/ &
+     &3.4890e+04_rb,2.6167e+04_rb,1.7445e+04_rb,8.7227e+03_rb,6.5151e+01_rb/)
+      kbo(:, 5,40,15) = (/ &
+     &4.0218e+04_rb,3.0164e+04_rb,2.0109e+04_rb,1.0055e+04_rb,6.0809e+01_rb/)
+      kbo(:, 1,41,15) = (/ &
+     &2.0620e+04_rb,1.5465e+04_rb,1.0310e+04_rb,5.1555e+03_rb,8.2333e+01_rb/)
+      kbo(:, 2,41,15) = (/ &
+     &2.5862e+04_rb,1.9396e+04_rb,1.2931e+04_rb,6.4659e+03_rb,7.6930e+01_rb/)
+      kbo(:, 3,41,15) = (/ &
+     &3.1429e+04_rb,2.3571e+04_rb,1.5714e+04_rb,7.8575e+03_rb,7.2080e+01_rb/)
+      kbo(:, 4,41,15) = (/ &
+     &3.7207e+04_rb,2.7905e+04_rb,1.8604e+04_rb,9.3022e+03_rb,6.6689e+01_rb/)
+      kbo(:, 5,41,15) = (/ &
+     &4.3090e+04_rb,3.2318e+04_rb,2.1545e+04_rb,1.0773e+04_rb,6.2194e+01_rb/)
+      kbo(:, 1,42,15) = (/ &
+     &2.1691e+04_rb,1.6268e+04_rb,1.0846e+04_rb,5.4231e+03_rb,8.4448e+01_rb/)
+      kbo(:, 2,42,15) = (/ &
+     &2.7444e+04_rb,2.0583e+04_rb,1.3722e+04_rb,6.8623e+03_rb,7.8791e+01_rb/)
+      kbo(:, 3,42,15) = (/ &
+     &3.3603e+04_rb,2.5202e+04_rb,1.6802e+04_rb,8.4010e+03_rb,7.3737e+01_rb/)
+      kbo(:, 4,42,15) = (/ &
+     &4.0024e+04_rb,3.0018e+04_rb,2.0012e+04_rb,1.0006e+04_rb,6.8167e+01_rb/)
+      kbo(:, 5,42,15) = (/ &
+     &4.6588e+04_rb,3.4941e+04_rb,2.3294e+04_rb,1.1647e+04_rb,6.3488e+01_rb/)
+      kbo(:, 1,43,15) = (/ &
+     &2.2603e+04_rb,1.6952e+04_rb,1.1302e+04_rb,5.6511e+03_rb,8.6896e+01_rb/)
+      kbo(:, 2,43,15) = (/ &
+     &2.8935e+04_rb,2.1702e+04_rb,1.4468e+04_rb,7.2343e+03_rb,8.0969e+01_rb/)
+      kbo(:, 3,43,15) = (/ &
+     &3.5766e+04_rb,2.6825e+04_rb,1.7883e+04_rb,8.9419e+03_rb,7.5666e+01_rb/)
+      kbo(:, 4,43,15) = (/ &
+     &4.2940e+04_rb,3.2205e+04_rb,2.1471e+04_rb,1.0736e+04_rb,6.9870e+01_rb/)
+      kbo(:, 5,43,15) = (/ &
+     &5.0307e+04_rb,3.7731e+04_rb,2.5154e+04_rb,1.2577e+04_rb,6.5095e+01_rb/)
+      kbo(:, 1,44,15) = (/ &
+     &2.3606e+04_rb,1.7705e+04_rb,1.1803e+04_rb,5.9018e+03_rb,8.9540e+01_rb/)
+      kbo(:, 2,44,15) = (/ &
+     &3.0627e+04_rb,2.2970e+04_rb,1.5314e+04_rb,7.6570e+03_rb,8.3300e+01_rb/)
+      kbo(:, 3,44,15) = (/ &
+     &3.8272e+04_rb,2.8704e+04_rb,1.9136e+04_rb,9.5682e+03_rb,7.7742e+01_rb/)
+      kbo(:, 4,44,15) = (/ &
+     &4.6369e+04_rb,3.4777e+04_rb,2.3185e+04_rb,1.1593e+04_rb,7.1787e+01_rb/)
+      kbo(:, 5,44,15) = (/ &
+     &5.4746e+04_rb,4.1060e+04_rb,2.7373e+04_rb,1.3687e+04_rb,6.6743e+01_rb/)
+      kbo(:, 1,45,15) = (/ &
+     &2.5020e+04_rb,1.8765e+04_rb,1.2510e+04_rb,6.2554e+03_rb,9.2249e+01_rb/)
+      kbo(:, 2,45,15) = (/ &
+     &3.2921e+04_rb,2.4691e+04_rb,1.6461e+04_rb,8.2305e+03_rb,8.5687e+01_rb/)
+      kbo(:, 3,45,15) = (/ &
+     &4.1630e+04_rb,3.1222e+04_rb,2.0815e+04_rb,1.0408e+04_rb,7.9854e+01_rb/)
+      kbo(:, 4,45,15) = (/ &
+     &5.0934e+04_rb,3.8200e+04_rb,2.5467e+04_rb,1.2734e+04_rb,7.3688e+01_rb/)
+      kbo(:, 5,45,15) = (/ &
+     &6.0623e+04_rb,4.5467e+04_rb,3.0312e+04_rb,1.5156e+04_rb,6.8450e+01_rb/)
+      kbo(:, 1,46,15) = (/ &
+     &2.6462e+04_rb,1.9847e+04_rb,1.3231e+04_rb,6.6159e+03_rb,9.5173e+01_rb/)
+      kbo(:, 2,46,15) = (/ &
+     &3.5388e+04_rb,2.6541e+04_rb,1.7694e+04_rb,8.8474e+03_rb,8.8256e+01_rb/)
+      kbo(:, 3,46,15) = (/ &
+     &4.5343e+04_rb,3.4008e+04_rb,2.2672e+04_rb,1.1336e+04_rb,8.2143e+01_rb/)
+      kbo(:, 4,46,15) = (/ &
+     &5.6094e+04_rb,4.2071e+04_rb,2.8047e+04_rb,1.4024e+04_rb,7.5728e+01_rb/)
+      kbo(:, 5,46,15) = (/ &
+     &6.7389e+04_rb,5.0542e+04_rb,3.3695e+04_rb,1.6848e+04_rb,7.0196e+01_rb/)
+      kbo(:, 1,47,15) = (/ &
+     &2.7156e+04_rb,2.0367e+04_rb,1.3578e+04_rb,6.7894e+03_rb,9.8564e+01_rb/)
+      kbo(:, 2,47,15) = (/ &
+     &3.7028e+04_rb,2.7771e+04_rb,1.8514e+04_rb,9.2574e+03_rb,9.1210e+01_rb/)
+      kbo(:, 3,47,15) = (/ &
+     &4.8225e+04_rb,3.6169e+04_rb,2.4113e+04_rb,1.2057e+04_rb,8.4753e+01_rb/)
+      kbo(:, 4,47,15) = (/ &
+     &6.0453e+04_rb,4.5340e+04_rb,3.0227e+04_rb,1.5114e+04_rb,7.8168e+01_rb/)
+      kbo(:, 5,47,15) = (/ &
+     &7.3441e+04_rb,5.5081e+04_rb,3.6721e+04_rb,1.8361e+04_rb,7.1964e+01_rb/)
+      kbo(:, 1,48,15) = (/ &
+     &2.8408e+04_rb,2.1306e+04_rb,1.4204e+04_rb,7.1024e+03_rb,1.0210e+02_rb/)
+      kbo(:, 2,48,15) = (/ &
+     &3.9561e+04_rb,2.9671e+04_rb,1.9781e+04_rb,9.8907e+03_rb,9.4282e+01_rb/)
+      kbo(:, 3,48,15) = (/ &
+     &5.2433e+04_rb,3.9325e+04_rb,2.6217e+04_rb,1.3109e+04_rb,8.7454e+01_rb/)
+      kbo(:, 4,48,15) = (/ &
+     &6.6685e+04_rb,5.0014e+04_rb,3.3343e+04_rb,1.6672e+04_rb,8.0648e+01_rb/)
+      kbo(:, 5,48,15) = (/ &
+     &8.1969e+04_rb,6.1477e+04_rb,4.0985e+04_rb,2.0493e+04_rb,7.3773e+01_rb/)
+      kbo(:, 1,49,15) = (/ &
+     &3.0665e+04_rb,2.2999e+04_rb,1.5333e+04_rb,7.6665e+03_rb,1.0579e+02_rb/)
+      kbo(:, 2,49,15) = (/ &
+     &4.3701e+04_rb,3.2776e+04_rb,2.1851e+04_rb,1.0926e+04_rb,9.7512e+01_rb/)
+      kbo(:, 3,49,15) = (/ &
+     &5.9013e+04_rb,4.4260e+04_rb,2.9506e+04_rb,1.4753e+04_rb,9.0273e+01_rb/)
+      kbo(:, 4,49,15) = (/ &
+     &7.6235e+04_rb,5.7177e+04_rb,3.8118e+04_rb,1.9059e+04_rb,8.3012e+01_rb/)
+      kbo(:, 5,49,15) = (/ &
+     &9.4928e+04_rb,7.1196e+04_rb,4.7464e+04_rb,2.3732e+04_rb,7.5643e+01_rb/)
+      kbo(:, 1,50,15) = (/ &
+     &3.1512e+04_rb,2.3634e+04_rb,1.5756e+04_rb,7.8783e+03_rb,1.0944e+02_rb/)
+      kbo(:, 2,50,15) = (/ &
+     &4.5989e+04_rb,3.4492e+04_rb,2.2995e+04_rb,1.1498e+04_rb,1.0069e+02_rb/)
+      kbo(:, 3,50,15) = (/ &
+     &6.3288e+04_rb,4.7466e+04_rb,3.1644e+04_rb,1.5822e+04_rb,9.3050e+01_rb/)
+      kbo(:, 4,50,15) = (/ &
+     &8.3061e+04_rb,6.2296e+04_rb,4.1531e+04_rb,2.0766e+04_rb,8.5379e+01_rb/)
+      kbo(:, 5,50,15) = (/ &
+     &1.0477e+05_rb,7.8579e+04_rb,5.2386e+04_rb,2.6193e+04_rb,7.7745e+01_rb/)
+      kbo(:, 1,51,15) = (/ &
+     &3.1512e+04_rb,2.3634e+04_rb,1.5756e+04_rb,7.8783e+03_rb,1.1317e+02_rb/)
+      kbo(:, 2,51,15) = (/ &
+     &4.7162e+04_rb,3.5373e+04_rb,2.3581e+04_rb,1.1791e+04_rb,1.0391e+02_rb/)
+      kbo(:, 3,51,15) = (/ &
+     &6.6209e+04_rb,4.9657e+04_rb,3.3105e+04_rb,1.6553e+04_rb,9.5852e+01_rb/)
+      kbo(:, 4,51,15) = (/ &
+     &8.8316e+04_rb,6.6238e+04_rb,4.4164e+04_rb,2.2080e+04_rb,8.8232e+01_rb/)
+      kbo(:, 5,51,15) = (/ &
+     &1.1292e+05_rb,8.4693e+04_rb,5.6462e+04_rb,2.8231e+04_rb,8.0003e+01_rb/)
+      kbo(:, 1,52,15) = (/ &
+     &3.2076e+04_rb,2.4057e+04_rb,1.6038e+04_rb,8.0198e+03_rb,1.1706e+02_rb/)
+      kbo(:, 2,52,15) = (/ &
+     &4.9342e+04_rb,3.7006e+04_rb,2.4671e+04_rb,1.2336e+04_rb,1.0727e+02_rb/)
+      kbo(:, 3,52,15) = (/ &
+     &7.0777e+04_rb,5.3083e+04_rb,3.5389e+04_rb,1.7695e+04_rb,9.8793e+01_rb/)
+      kbo(:, 4,52,15) = (/ &
+     &9.6072e+04_rb,7.2054e+04_rb,4.8037e+04_rb,2.4019e+04_rb,9.0662e+01_rb/)
+      kbo(:, 5,52,15) = (/ &
+     &1.2464e+05_rb,9.3484e+04_rb,6.2323e+04_rb,3.1162e+04_rb,8.2138e+01_rb/)
+      kbo(:, 1,53,15) = (/ &
+     &3.3608e+04_rb,2.5207e+04_rb,1.6805e+04_rb,8.4025e+03_rb,1.2114e+02_rb/)
+      kbo(:, 2,53,15) = (/ &
+     &5.3290e+04_rb,3.9968e+04_rb,2.6645e+04_rb,1.3323e+04_rb,1.1081e+02_rb/)
+      kbo(:, 3,53,15) = (/ &
+     &7.8269e+04_rb,5.8702e+04_rb,3.9135e+04_rb,1.9568e+04_rb,1.0185e+02_rb/)
+      kbo(:, 4,53,15) = (/ &
+     &1.0824e+05_rb,8.1183e+04_rb,5.4123e+04_rb,2.7062e+04_rb,9.3093e+01_rb/)
+      kbo(:, 5,53,15) = (/ &
+     &1.4266e+05_rb,1.0700e+05_rb,7.1333e+04_rb,3.5667e+04_rb,8.4356e+01_rb/)
+      kbo(:, 1,54,15) = (/ &
+     &3.0554e+04_rb,2.2916e+04_rb,1.5277e+04_rb,7.6389e+03_rb,1.2510e+02_rb/)
+      kbo(:, 2,54,15) = (/ &
+     &4.9936e+04_rb,3.7452e+04_rb,2.4968e+04_rb,1.2484e+04_rb,1.1423e+02_rb/)
+      kbo(:, 3,54,15) = (/ &
+     &7.5079e+04_rb,5.6309e+04_rb,3.7540e+04_rb,1.8770e+04_rb,1.0480e+02_rb/)
+      kbo(:, 4,54,15) = (/ &
+     &1.0578e+05_rb,7.9333e+04_rb,5.2889e+04_rb,2.6445e+04_rb,9.5981e+01_rb/)
+      kbo(:, 5,54,15) = (/ &
+     &1.4151e+05_rb,1.0613e+05_rb,7.0756e+04_rb,3.5378e+04_rb,8.6958e+01_rb/)
+      kbo(:, 1,55,15) = (/ &
+     &2.5242e+04_rb,1.8932e+04_rb,1.2621e+04_rb,6.3108e+03_rb,1.2910e+02_rb/)
+      kbo(:, 2,55,15) = (/ &
+     &4.2561e+04_rb,3.1921e+04_rb,2.1281e+04_rb,1.0641e+04_rb,1.1763e+02_rb/)
+      kbo(:, 3,55,15) = (/ &
+     &6.5579e+04_rb,4.9184e+04_rb,3.2790e+04_rb,1.6395e+04_rb,1.0775e+02_rb/)
+      kbo(:, 4,55,15) = (/ &
+     &9.4190e+04_rb,7.0643e+04_rb,4.7095e+04_rb,2.3548e+04_rb,9.9196e+01_rb/)
+      kbo(:, 5,55,15) = (/ &
+     &1.2798e+05_rb,9.5983e+04_rb,6.3989e+04_rb,3.1995e+04_rb,9.0570e+01_rb/)
+      kbo(:, 1,56,15) = (/ &
+     &2.0611e+04_rb,1.5459e+04_rb,1.0306e+04_rb,5.1530e+03_rb,1.3327e+02_rb/)
+      kbo(:, 2,56,15) = (/ &
+     &3.5961e+04_rb,2.6970e+04_rb,1.7980e+04_rb,8.9902e+03_rb,1.2118e+02_rb/)
+      kbo(:, 3,56,15) = (/ &
+     &5.6902e+04_rb,4.2676e+04_rb,2.8451e+04_rb,1.4227e+04_rb,1.1083e+02_rb/)
+      kbo(:, 4,56,15) = (/ &
+     &8.3426e+04_rb,6.2569e+04_rb,4.1713e+04_rb,2.0856e+04_rb,1.0187e+02_rb/)
+      kbo(:, 5,56,15) = (/ &
+     &1.1523e+05_rb,8.6424e+04_rb,5.7616e+04_rb,2.8808e+04_rb,9.3771e+01_rb/)
+      kbo(:, 1,57,15) = (/ &
+     &1.6610e+04_rb,1.2457e+04_rb,8.3049e+03_rb,4.1526e+03_rb,1.3769e+02_rb/)
+      kbo(:, 2,57,15) = (/ &
+     &3.0089e+04_rb,2.2567e+04_rb,1.5044e+04_rb,7.5226e+03_rb,1.2490e+02_rb/)
+      kbo(:, 3,57,15) = (/ &
+     &4.8979e+04_rb,3.6734e+04_rb,2.4489e+04_rb,1.2245e+04_rb,1.1405e+02_rb/)
+      kbo(:, 4,57,15) = (/ &
+     &7.3462e+04_rb,5.5096e+04_rb,3.6731e+04_rb,1.8365e+04_rb,1.0465e+02_rb/)
+      kbo(:, 5,57,15) = (/ &
+     &1.0326e+05_rb,7.7443e+04_rb,5.1628e+04_rb,2.5814e+04_rb,9.6480e+01_rb/)
+      kbo(:, 1,58,15) = (/ &
+     &3.5201e+03_rb,3.2274e+03_rb,2.7672e+03_rb,1.9382e+03_rb,1.4211e+02_rb/)
+      kbo(:, 2,58,15) = (/ &
+     &6.6315e+03_rb,6.0801e+03_rb,5.2132e+03_rb,3.6514e+03_rb,1.2863e+02_rb/)
+      kbo(:, 3,58,15) = (/ &
+     &1.1117e+04_rb,1.0193e+04_rb,8.7395e+03_rb,6.1212e+03_rb,1.1722e+02_rb/)
+      kbo(:, 4,58,15) = (/ &
+     &1.7057e+04_rb,1.5638e+04_rb,1.3409e+04_rb,9.3914e+03_rb,1.0740e+02_rb/)
+      kbo(:, 5,58,15) = (/ &
+     &2.4410e+04_rb,2.2380e+04_rb,1.9189e+04_rb,1.3440e+04_rb,9.8884e+01_rb/)
+      kbo(:, 1,59,15) = (/ &
+     &3.7699e+03_rb,3.2918e+03_rb,2.6257e+03_rb,1.6340e+03_rb,1.4398e+02_rb/)
+      kbo(:, 2,59,15) = (/ &
+     &7.2215e+03_rb,6.3055e+03_rb,5.0297e+03_rb,3.1299e+03_rb,1.3019e+02_rb/)
+      kbo(:, 3,59,15) = (/ &
+     &1.2258e+04_rb,1.0703e+04_rb,8.5377e+03_rb,5.3128e+03_rb,1.1856e+02_rb/)
+      kbo(:, 4,59,15) = (/ &
+     &1.8986e+04_rb,1.6578e+04_rb,1.3224e+04_rb,8.2288e+03_rb,1.0855e+02_rb/)
+      kbo(:, 5,59,15) = (/ &
+     &2.7379e+04_rb,2.3906e+04_rb,1.9069e+04_rb,1.1866e+04_rb,9.9884e+01_rb/)
+      kbo(:, 1,13,16) = (/ &
+     &1.4818e+04_rb,1.1113e+04_rb,7.4089e+03_rb,3.7045e+03_rb,1.1371e+01_rb/)
+      kbo(:, 2,13,16) = (/ &
+     &2.0739e+04_rb,1.5555e+04_rb,1.0370e+04_rb,5.1851e+03_rb,1.0985e+01_rb/)
+      kbo(:, 3,13,16) = (/ &
+     &2.7562e+04_rb,2.0672e+04_rb,1.3781e+04_rb,6.8906e+03_rb,1.0720e+01_rb/)
+      kbo(:, 4,13,16) = (/ &
+     &3.5104e+04_rb,2.6328e+04_rb,1.7552e+04_rb,8.7760e+03_rb,1.0594e+01_rb/)
+      kbo(:, 5,13,16) = (/ &
+     &4.3187e+04_rb,3.2390e+04_rb,2.1594e+04_rb,1.0797e+04_rb,1.0676e+01_rb/)
+      kbo(:, 1,14,16) = (/ &
+     &1.1265e+04_rb,8.4488e+03_rb,5.6325e+03_rb,2.8163e+03_rb,1.3004e+01_rb/)
+      kbo(:, 2,14,16) = (/ &
+     &1.5638e+04_rb,1.1729e+04_rb,7.8191e+03_rb,3.9096e+03_rb,1.2745e+01_rb/)
+      kbo(:, 3,14,16) = (/ &
+     &2.0632e+04_rb,1.5474e+04_rb,1.0316e+04_rb,5.1580e+03_rb,1.2511e+01_rb/)
+      kbo(:, 4,14,16) = (/ &
+     &2.6158e+04_rb,1.9619e+04_rb,1.3079e+04_rb,6.5395e+03_rb,1.2514e+01_rb/)
+      kbo(:, 5,14,16) = (/ &
+     &3.2161e+04_rb,2.4120e+04_rb,1.6080e+04_rb,8.0400e+03_rb,1.2574e+01_rb/)
+      kbo(:, 1,15,16) = (/ &
+     &8.6626e+03_rb,6.4970e+03_rb,4.3314e+03_rb,2.1657e+03_rb,1.5047e+01_rb/)
+      kbo(:, 2,15,16) = (/ &
+     &1.1944e+04_rb,8.8995e+03_rb,5.9720e+03_rb,2.9860e+03_rb,1.4804e+01_rb/)
+      kbo(:, 3,15,16) = (/ &
+     &1.5730e+04_rb,1.1798e+04_rb,7.8651e+03_rb,3.9326e+03_rb,1.4621e+01_rb/)
+      kbo(:, 4,15,16) = (/ &
+     &1.9953e+04_rb,1.4965e+04_rb,9.9768e+03_rb,4.9885e+03_rb,1.4704e+01_rb/)
+      kbo(:, 5,15,16) = (/ &
+     &2.4510e+04_rb,1.8382e+04_rb,1.2255e+04_rb,6.1276e+03_rb,1.4738e+01_rb/)
+      kbo(:, 1,16,16) = (/ &
+     &7.9177e+03_rb,5.9383e+03_rb,3.9589e+03_rb,1.9795e+03_rb,1.7379e+01_rb/)
+      kbo(:, 2,16,16) = (/ &
+     &1.0905e+04_rb,8.1790e+03_rb,5.4527e+03_rb,2.7264e+03_rb,1.7087e+01_rb/)
+      kbo(:, 3,16,16) = (/ &
+     &1.4336e+04_rb,1.0752e+04_rb,7.1680e+03_rb,3.5840e+03_rb,1.7079e+01_rb/)
+      kbo(:, 4,16,16) = (/ &
+     &1.8134e+04_rb,1.3600e+04_rb,9.0670e+03_rb,4.5335e+03_rb,1.7162e+01_rb/)
+      kbo(:, 5,16,16) = (/ &
+     &2.2206e+04_rb,1.6655e+04_rb,1.1103e+04_rb,5.5517e+03_rb,1.7193e+01_rb/)
+      kbo(:, 1,17,16) = (/ &
+     &7.5178e+03_rb,5.6384e+03_rb,3.7589e+03_rb,1.8795e+03_rb,1.9948e+01_rb/)
+      kbo(:, 2,17,16) = (/ &
+     &1.0311e+04_rb,7.7335e+03_rb,5.1557e+03_rb,2.5779e+03_rb,1.9796e+01_rb/)
+      kbo(:, 3,17,16) = (/ &
+     &1.3498e+04_rb,1.0124e+04_rb,6.7488e+03_rb,3.3746e+03_rb,1.9858e+01_rb/)
+      kbo(:, 4,17,16) = (/ &
+     &1.6996e+04_rb,1.2747e+04_rb,8.4978e+03_rb,4.2489e+03_rb,1.9944e+01_rb/)
+      kbo(:, 5,17,16) = (/ &
+     &2.0726e+04_rb,1.5544e+04_rb,1.0363e+04_rb,5.1815e+03_rb,1.9956e+01_rb/)
+      kbo(:, 1,18,16) = (/ &
+     &7.2889e+03_rb,5.4667e+03_rb,3.6445e+03_rb,1.8223e+03_rb,2.3259e+01_rb/)
+      kbo(:, 2,18,16) = (/ &
+     &9.9353e+03_rb,7.4515e+03_rb,4.9677e+03_rb,2.4839e+03_rb,2.3214e+01_rb/)
+      kbo(:, 3,18,16) = (/ &
+     &1.2928e+04_rb,9.6956e+03_rb,6.4638e+03_rb,3.2319e+03_rb,2.3116e+01_rb/)
+      kbo(:, 4,18,16) = (/ &
+     &1.6189e+04_rb,1.2142e+04_rb,8.0944e+03_rb,4.0472e+03_rb,2.3106e+01_rb/)
+      kbo(:, 5,18,16) = (/ &
+     &1.9640e+04_rb,1.4730e+04_rb,9.8201e+03_rb,4.9101e+03_rb,2.3045e+01_rb/)
+      kbo(:, 1,19,16) = (/ &
+     &6.8892e+03_rb,5.1669e+03_rb,3.4446e+03_rb,1.7223e+03_rb,2.7312e+01_rb/)
+      kbo(:, 2,19,16) = (/ &
+     &9.3210e+03_rb,6.9908e+03_rb,4.6605e+03_rb,2.3303e+03_rb,2.7199e+01_rb/)
+      kbo(:, 3,19,16) = (/ &
+     &1.2050e+04_rb,9.0375e+03_rb,6.0250e+03_rb,3.0125e+03_rb,2.6980e+01_rb/)
+      kbo(:, 4,19,16) = (/ &
+     &1.5046e+04_rb,1.1284e+04_rb,7.5228e+03_rb,3.7614e+03_rb,2.6786e+01_rb/)
+      kbo(:, 5,19,16) = (/ &
+     &1.8241e+04_rb,1.3681e+04_rb,9.1205e+03_rb,4.5603e+03_rb,2.6595e+01_rb/)
+      kbo(:, 1,20,16) = (/ &
+     &7.0094e+03_rb,5.2570e+03_rb,3.5047e+03_rb,1.7524e+03_rb,3.2009e+01_rb/)
+      kbo(:, 2,20,16) = (/ &
+     &9.4364e+03_rb,7.0773e+03_rb,4.7182e+03_rb,2.3591e+03_rb,3.1788e+01_rb/)
+      kbo(:, 3,20,16) = (/ &
+     &1.2173e+04_rb,9.1297e+03_rb,6.0865e+03_rb,3.0433e+03_rb,3.1450e+01_rb/)
+      kbo(:, 4,20,16) = (/ &
+     &1.5155e+04_rb,1.1367e+04_rb,7.5778e+03_rb,3.7889e+03_rb,3.1059e+01_rb/)
+      kbo(:, 5,20,16) = (/ &
+     &1.8307e+04_rb,1.3730e+04_rb,9.1534e+03_rb,4.5767e+03_rb,3.0674e+01_rb/)
+      kbo(:, 1,21,16) = (/ &
+     &7.3306e+03_rb,5.4980e+03_rb,3.6654e+03_rb,1.8327e+03_rb,3.7355e+01_rb/)
+      kbo(:, 2,21,16) = (/ &
+     &9.8238e+03_rb,7.3679e+03_rb,4.9119e+03_rb,2.4560e+03_rb,3.6998e+01_rb/)
+      kbo(:, 3,21,16) = (/ &
+     &1.2609e+04_rb,9.4571e+03_rb,6.3047e+03_rb,3.1524e+03_rb,3.6493e+01_rb/)
+      kbo(:, 4,21,16) = (/ &
+     &1.5617e+04_rb,1.1713e+04_rb,7.8084e+03_rb,3.9042e+03_rb,3.5962e+01_rb/)
+      kbo(:, 5,21,16) = (/ &
+     &1.8773e+04_rb,1.4079e+04_rb,9.3863e+03_rb,4.6932e+03_rb,3.5346e+01_rb/)
+      kbo(:, 1,22,16) = (/ &
+     &7.9668e+03_rb,5.9751e+03_rb,3.9834e+03_rb,1.9917e+03_rb,4.3325e+01_rb/)
+      kbo(:, 2,22,16) = (/ &
+     &1.0571e+04_rb,7.9286e+03_rb,5.2858e+03_rb,2.6429e+03_rb,4.2793e+01_rb/)
+      kbo(:, 3,22,16) = (/ &
+     &1.3449e+04_rb,1.0087e+04_rb,6.7244e+03_rb,3.3622e+03_rb,4.2221e+01_rb/)
+      kbo(:, 4,22,16) = (/ &
+     &1.6524e+04_rb,1.2393e+04_rb,8.2619e+03_rb,4.1310e+03_rb,4.1607e+01_rb/)
+      kbo(:, 5,22,16) = (/ &
+     &1.9754e+04_rb,1.4816e+04_rb,9.8771e+03_rb,4.9386e+03_rb,4.0888e+01_rb/)
+      kbo(:, 1,23,16) = (/ &
+     &8.6210e+03_rb,6.4658e+03_rb,4.3105e+03_rb,2.1553e+03_rb,5.0428e+01_rb/)
+      kbo(:, 2,23,16) = (/ &
+     &1.1316e+04_rb,8.4866e+03_rb,5.6578e+03_rb,2.8289e+03_rb,4.9764e+01_rb/)
+      kbo(:, 3,23,16) = (/ &
+     &1.4291e+04_rb,1.0718e+04_rb,7.1454e+03_rb,3.5727e+03_rb,4.9049e+01_rb/)
+      kbo(:, 4,23,16) = (/ &
+     &1.7469e+04_rb,1.3102e+04_rb,8.7344e+03_rb,4.3672e+03_rb,4.8146e+01_rb/)
+      kbo(:, 5,23,16) = (/ &
+     &2.0774e+04_rb,1.5580e+04_rb,1.0387e+04_rb,5.1935e+03_rb,4.7113e+01_rb/)
+      kbo(:, 1,24,16) = (/ &
+     &9.2015e+03_rb,6.9011e+03_rb,4.6008e+03_rb,2.3004e+03_rb,5.8527e+01_rb/)
+      kbo(:, 2,24,16) = (/ &
+     &1.1985e+04_rb,8.9232e+03_rb,5.9928e+03_rb,2.9964e+03_rb,5.7489e+01_rb/)
+      kbo(:, 3,24,16) = (/ &
+     &1.5026e+04_rb,1.1269e+04_rb,7.5129e+03_rb,3.7565e+03_rb,5.6333e+01_rb/)
+      kbo(:, 4,24,16) = (/ &
+     &1.8238e+04_rb,1.3679e+04_rb,9.1191e+03_rb,4.5596e+03_rb,5.5030e+01_rb/)
+      kbo(:, 5,24,16) = (/ &
+     &2.1539e+04_rb,1.6154e+04_rb,1.0769e+04_rb,5.3848e+03_rb,5.3599e+01_rb/)
+      kbo(:, 1,25,16) = (/ &
+     &9.9033e+03_rb,7.4275e+03_rb,4.9517e+03_rb,2.4759e+03_rb,6.7091e+01_rb/)
+      kbo(:, 2,25,16) = (/ &
+     &1.2768e+04_rb,9.5762e+03_rb,6.3841e+03_rb,3.1921e+03_rb,6.5542e+01_rb/)
+      kbo(:, 3,25,16) = (/ &
+     &1.5871e+04_rb,1.1903e+04_rb,7.9355e+03_rb,3.9678e+03_rb,6.3831e+01_rb/)
+      kbo(:, 4,25,16) = (/ &
+     &1.9110e+04_rb,1.4333e+04_rb,9.5551e+03_rb,4.7776e+03_rb,6.2029e+01_rb/)
+      kbo(:, 5,25,16) = (/ &
+     &2.2417e+04_rb,1.6813e+04_rb,1.1208e+04_rb,5.6043e+03_rb,6.0136e+01_rb/)
+      kbo(:, 1,26,16) = (/ &
+     &1.0777e+04_rb,8.0825e+03_rb,5.3884e+03_rb,2.6942e+03_rb,7.5807e+01_rb/)
+      kbo(:, 2,26,16) = (/ &
+     &1.3749e+04_rb,1.0312e+04_rb,6.8746e+03_rb,3.4373e+03_rb,7.3586e+01_rb/)
+      kbo(:, 3,26,16) = (/ &
+     &1.6921e+04_rb,1.2690e+04_rb,8.4603e+03_rb,4.2302e+03_rb,7.1246e+01_rb/)
+      kbo(:, 4,26,16) = (/ &
+     &2.0227e+04_rb,1.5170e+04_rb,1.0114e+04_rb,5.0568e+03_rb,6.8870e+01_rb/)
+      kbo(:, 5,26,16) = (/ &
+     &2.3585e+04_rb,1.7688e+04_rb,1.1792e+04_rb,5.8962e+03_rb,6.6424e+01_rb/)
+      kbo(:, 1,27,16) = (/ &
+     &1.2052e+04_rb,9.0388e+03_rb,6.0259e+03_rb,3.0130e+03_rb,8.4316e+01_rb/)
+      kbo(:, 2,27,16) = (/ &
+     &1.5222e+04_rb,1.1417e+04_rb,7.6111e+03_rb,3.8056e+03_rb,8.1386e+01_rb/)
+      kbo(:, 3,27,16) = (/ &
+     &1.8590e+04_rb,1.3942e+04_rb,9.2948e+03_rb,4.6474e+03_rb,7.8348e+01_rb/)
+      kbo(:, 4,27,16) = (/ &
+     &2.2058e+04_rb,1.6543e+04_rb,1.1029e+04_rb,5.5145e+03_rb,7.5340e+01_rb/)
+      kbo(:, 5,27,16) = (/ &
+     &2.5550e+04_rb,1.9162e+04_rb,1.2775e+04_rb,6.3875e+03_rb,7.2329e+01_rb/)
+      kbo(:, 1,28,16) = (/ &
+     &1.3724e+04_rb,1.0293e+04_rb,6.8620e+03_rb,3.4310e+03_rb,9.2351e+01_rb/)
+      kbo(:, 2,28,16) = (/ &
+     &1.7171e+04_rb,1.2878e+04_rb,8.5855e+03_rb,4.2928e+03_rb,8.8670e+01_rb/)
+      kbo(:, 3,28,16) = (/ &
+     &2.0788e+04_rb,1.5591e+04_rb,1.0394e+04_rb,5.1970e+03_rb,8.4928e+01_rb/)
+      kbo(:, 4,28,16) = (/ &
+     &2.4487e+04_rb,1.8365e+04_rb,1.2244e+04_rb,6.1218e+03_rb,8.1255e+01_rb/)
+      kbo(:, 5,28,16) = (/ &
+     &2.8173e+04_rb,2.1130e+04_rb,1.4087e+04_rb,7.0433e+03_rb,7.7666e+01_rb/)
+      kbo(:, 1,29,16) = (/ &
+     &1.6469e+04_rb,1.2352e+04_rb,8.2344e+03_rb,4.1172e+03_rb,9.9675e+01_rb/)
+      kbo(:, 2,29,16) = (/ &
+     &2.0402e+04_rb,1.5302e+04_rb,1.0201e+04_rb,5.1006e+03_rb,9.5182e+01_rb/)
+      kbo(:, 3,29,16) = (/ &
+     &2.4499e+04_rb,1.8374e+04_rb,1.2249e+04_rb,6.1246e+03_rb,9.0759e+01_rb/)
+      kbo(:, 4,29,16) = (/ &
+     &2.8632e+04_rb,2.1474e+04_rb,1.4316e+04_rb,7.1579e+03_rb,8.6444e+01_rb/)
+      kbo(:, 5,29,16) = (/ &
+     &3.2723e+04_rb,2.4542e+04_rb,1.6361e+04_rb,8.1807e+03_rb,8.2287e+01_rb/)
+      kbo(:, 1,30,16) = (/ &
+     &2.0078e+04_rb,1.5058e+04_rb,1.0039e+04_rb,5.0195e+03_rb,1.0609e+02_rb/)
+      kbo(:, 2,30,16) = (/ &
+     &2.4638e+04_rb,1.8479e+04_rb,1.2319e+04_rb,6.1595e+03_rb,1.0084e+02_rb/)
+      kbo(:, 3,30,16) = (/ &
+     &2.9329e+04_rb,2.1997e+04_rb,1.4664e+04_rb,7.3322e+03_rb,9.5740e+01_rb/)
+      kbo(:, 4,30,16) = (/ &
+     &3.4034e+04_rb,2.5525e+04_rb,1.7017e+04_rb,8.5085e+03_rb,9.0849e+01_rb/)
+      kbo(:, 5,30,16) = (/ &
+     &3.8657e+04_rb,2.8993e+04_rb,1.9329e+04_rb,9.6643e+03_rb,8.6169e+01_rb/)
+      kbo(:, 1,31,16) = (/ &
+     &2.5548e+04_rb,1.9161e+04_rb,1.2774e+04_rb,6.3870e+03_rb,1.1146e+02_rb/)
+      kbo(:, 2,31,16) = (/ &
+     &3.1052e+04_rb,2.3289e+04_rb,1.5526e+04_rb,7.7630e+03_rb,1.0555e+02_rb/)
+      kbo(:, 3,31,16) = (/ &
+     &3.6674e+04_rb,2.7505e+04_rb,1.8172e+04_rb,9.1684e+03_rb,9.9833e+01_rb/)
+      kbo(:, 4,31,16) = (/ &
+     &4.2278e+04_rb,3.1708e+04_rb,2.1139e+04_rb,1.0569e+04_rb,9.4413e+01_rb/)
+      kbo(:, 5,31,16) = (/ &
+     &4.7725e+04_rb,3.5794e+04_rb,2.3863e+04_rb,1.1931e+04_rb,8.9289e+01_rb/)
+      kbo(:, 1,32,16) = (/ &
+     &3.2648e+04_rb,2.4486e+04_rb,1.6324e+04_rb,8.1620e+03_rb,1.1579e+02_rb/)
+      kbo(:, 2,32,16) = (/ &
+     &3.9333e+04_rb,2.9500e+04_rb,1.9666e+04_rb,9.8333e+03_rb,1.0928e+02_rb/)
+      kbo(:, 3,32,16) = (/ &
+     &4.6114e+04_rb,3.4586e+04_rb,2.3057e+04_rb,1.1529e+04_rb,1.0305e+02_rb/)
+      kbo(:, 4,32,16) = (/ &
+     &5.2809e+04_rb,3.9607e+04_rb,2.6404e+04_rb,1.3202e+04_rb,9.7184e+01_rb/)
+      kbo(:, 5,32,16) = (/ &
+     &5.9284e+04_rb,4.4463e+04_rb,2.9311e+04_rb,1.4821e+04_rb,9.1687e+01_rb/)
+      kbo(:, 1,33,16) = (/ &
+     &4.2212e+04_rb,3.1659e+04_rb,2.1106e+04_rb,1.0553e+04_rb,1.1913e+02_rb/)
+      kbo(:, 2,33,16) = (/ &
+     &5.0427e+04_rb,3.7820e+04_rb,2.5214e+04_rb,1.2607e+04_rb,1.1210e+02_rb/)
+      kbo(:, 3,33,16) = (/ &
+     &5.8684e+04_rb,4.4013e+04_rb,2.9342e+04_rb,1.4671e+04_rb,1.0546e+02_rb/)
+      kbo(:, 4,33,16) = (/ &
+     &6.6793e+04_rb,5.0095e+04_rb,3.3396e+04_rb,1.6698e+04_rb,9.9210e+01_rb/)
+      kbo(:, 5,33,16) = (/ &
+     &7.4575e+04_rb,5.5932e+04_rb,3.7288e+04_rb,1.8644e+04_rb,9.3412e+01_rb/)
+      kbo(:, 1,34,16) = (/ &
+     &5.2540e+04_rb,3.9405e+04_rb,2.6270e+04_rb,1.3135e+04_rb,1.2180e+02_rb/)
+      kbo(:, 2,34,16) = (/ &
+     &6.2330e+04_rb,4.6748e+04_rb,3.1165e+04_rb,1.5582e+04_rb,1.1436e+02_rb/)
+      kbo(:, 3,34,16) = (/ &
+     &7.2093e+04_rb,5.4070e+04_rb,3.6046e+04_rb,1.8023e+04_rb,1.0734e+02_rb/)
+      kbo(:, 4,34,16) = (/ &
+     &8.1593e+04_rb,6.1194e+04_rb,4.0796e+04_rb,2.0398e+04_rb,1.0080e+02_rb/)
+      kbo(:, 5,34,16) = (/ &
+     &9.0697e+04_rb,6.8023e+04_rb,4.5349e+04_rb,2.2674e+04_rb,9.4753e+01_rb/)
+      kbo(:, 1,35,16) = (/ &
+     &6.4051e+04_rb,4.8038e+04_rb,3.2026e+04_rb,1.6013e+04_rb,1.2446e+02_rb/)
+      kbo(:, 2,35,16) = (/ &
+     &7.5644e+04_rb,5.6733e+04_rb,3.7822e+04_rb,1.8911e+04_rb,1.1662e+02_rb/)
+      kbo(:, 3,35,16) = (/ &
+     &8.7172e+04_rb,6.5379e+04_rb,4.3586e+04_rb,2.1792e+04_rb,1.0929e+02_rb/)
+      kbo(:, 4,35,16) = (/ &
+     &9.8380e+04_rb,7.3786e+04_rb,4.9191e+04_rb,2.4595e+04_rb,1.0249e+02_rb/)
+      kbo(:, 5,35,16) = (/ &
+     &1.0903e+05_rb,8.1776e+04_rb,5.4517e+04_rb,2.7259e+04_rb,9.6197e+01_rb/)
+      kbo(:, 1,36,16) = (/ &
+     &7.5878e+04_rb,5.6908e+04_rb,3.7939e+04_rb,1.8969e+04_rb,1.2742e+02_rb/)
+      kbo(:, 2,36,16) = (/ &
+     &8.9471e+04_rb,6.7103e+04_rb,4.4735e+04_rb,2.2368e+04_rb,1.1920e+02_rb/)
+      kbo(:, 3,36,16) = (/ &
+     &1.0302e+05_rb,7.7263e+04_rb,5.1509e+04_rb,2.5436e+04_rb,1.1154e+02_rb/)
+      kbo(:, 4,36,16) = (/ &
+     &1.1614e+05_rb,8.7108e+04_rb,5.8072e+04_rb,2.9036e+04_rb,1.0445e+02_rb/)
+      kbo(:, 5,36,16) = (/ &
+     &1.2862e+05_rb,9.6465e+04_rb,6.4310e+04_rb,3.2155e+04_rb,9.7922e+01_rb/)
+      kbo(:, 1,37,16) = (/ &
+     &8.5083e+04_rb,6.3812e+04_rb,4.2541e+04_rb,2.1271e+04_rb,1.3125e+02_rb/)
+      kbo(:, 2,37,16) = (/ &
+     &1.0058e+05_rb,7.5436e+04_rb,5.0291e+04_rb,2.5145e+04_rb,1.2185e+02_rb/)
+      kbo(:, 3,37,16) = (/ &
+     &1.1610e+05_rb,8.7073e+04_rb,5.8049e+04_rb,2.9024e+04_rb,1.1457e+02_rb/)
+      kbo(:, 4,37,16) = (/ &
+     &1.3117e+05_rb,9.8374e+04_rb,6.5582e+04_rb,3.2791e+04_rb,1.0715e+02_rb/)
+      kbo(:, 5,37,16) = (/ &
+     &1.4551e+05_rb,1.0913e+05_rb,7.2757e+04_rb,3.6378e+04_rb,1.0034e+02_rb/)
+      kbo(:, 1,38,16) = (/ &
+     &9.5077e+04_rb,7.2333e+04_rb,4.8222e+04_rb,2.4111e+04_rb,1.3486e+02_rb/)
+      kbo(:, 2,38,16) = (/ &
+     &1.1439e+05_rb,8.5793e+04_rb,5.7195e+04_rb,2.8598e+04_rb,1.2580e+02_rb/)
+      kbo(:, 3,38,16) = (/ &
+     &1.3231e+05_rb,9.9236e+04_rb,6.6157e+04_rb,3.3078e+04_rb,1.1743e+02_rb/)
+      kbo(:, 4,38,16) = (/ &
+     &1.4989e+05_rb,1.1242e+05_rb,7.4945e+04_rb,3.7472e+04_rb,1.0969e+02_rb/)
+      kbo(:, 5,38,16) = (/ &
+     &1.6664e+05_rb,1.2498e+05_rb,8.3321e+04_rb,4.1660e+04_rb,1.0261e+02_rb/)
+      kbo(:, 1,39,16) = (/ &
+     &1.1158e+05_rb,8.3685e+04_rb,5.5790e+04_rb,2.7895e+04_rb,1.3820e+02_rb/)
+      kbo(:, 2,39,16) = (/ &
+     &1.3280e+05_rb,9.9602e+04_rb,6.6401e+04_rb,3.3201e+04_rb,1.2875e+02_rb/)
+      kbo(:, 3,39,16) = (/ &
+     &1.5408e+05_rb,1.1556e+05_rb,7.7040e+04_rb,3.8520e+04_rb,1.2007e+02_rb/)
+      kbo(:, 4,39,16) = (/ &
+     &1.7495e+05_rb,1.3121e+05_rb,8.7476e+04_rb,4.3738e+04_rb,1.1204e+02_rb/)
+      kbo(:, 5,39,16) = (/ &
+     &1.9488e+05_rb,1.4616e+05_rb,9.7443e+04_rb,4.8722e+04_rb,1.0472e+02_rb/)
+      kbo(:, 1,40,16) = (/ &
+     &1.1876e+05_rb,8.9071e+04_rb,5.9380e+04_rb,2.9690e+04_rb,1.4235e+02_rb/)
+      kbo(:, 2,40,16) = (/ &
+     &1.4221e+05_rb,1.0666e+05_rb,7.1106e+04_rb,3.5553e+04_rb,1.3244e+02_rb/)
+      kbo(:, 3,40,16) = (/ &
+     &1.6587e+05_rb,1.2440e+05_rb,8.2934e+04_rb,4.1467e+04_rb,1.2341e+02_rb/)
+      kbo(:, 4,40,16) = (/ &
+     &1.8920e+05_rb,1.4190e+05_rb,9.4601e+04_rb,4.7300e+04_rb,1.1506e+02_rb/)
+      kbo(:, 5,40,16) = (/ &
+     &2.1165e+05_rb,1.5874e+05_rb,1.0583e+05_rb,5.2913e+04_rb,1.0743e+02_rb/)
+      kbo(:, 1,41,16) = (/ &
+     &1.2546e+05_rb,9.4099e+04_rb,6.2733e+04_rb,3.1367e+04_rb,1.4657e+02_rb/)
+      kbo(:, 2,41,16) = (/ &
+     &1.5125e+05_rb,1.1344e+05_rb,7.5625e+04_rb,3.7812e+04_rb,1.3531e+02_rb/)
+      kbo(:, 3,41,16) = (/ &
+     &1.7744e+05_rb,1.3308e+05_rb,8.8723e+04_rb,4.4362e+04_rb,1.2676e+02_rb/)
+      kbo(:, 4,41,16) = (/ &
+     &2.0341e+05_rb,1.5256e+05_rb,1.0171e+05_rb,5.0854e+04_rb,1.1810e+02_rb/)
+      kbo(:, 5,41,16) = (/ &
+     &2.2858e+05_rb,1.7144e+05_rb,1.1429e+05_rb,5.7146e+04_rb,1.1015e+02_rb/)
+      kbo(:, 1,42,16) = (/ &
+     &1.3356e+05_rb,1.0017e+05_rb,6.6777e+04_rb,3.3389e+04_rb,1.5077e+02_rb/)
+      kbo(:, 2,42,16) = (/ &
+     &1.6221e+05_rb,1.2166e+05_rb,8.1105e+04_rb,4.0545e+04_rb,1.3986e+02_rb/)
+      kbo(:, 3,42,16) = (/ &
+     &1.9146e+05_rb,1.4359e+05_rb,9.5729e+04_rb,4.7864e+04_rb,1.3005e+02_rb/)
+      kbo(:, 4,42,16) = (/ &
+     &2.1781e+05_rb,1.6546e+05_rb,1.1031e+05_rb,5.5153e+04_rb,1.2109e+02_rb/)
+      kbo(:, 5,42,16) = (/ &
+     &2.4912e+05_rb,1.8684e+05_rb,1.2456e+05_rb,6.2279e+04_rb,1.1284e+02_rb/)
+      kbo(:, 1,43,16) = (/ &
+     &1.4126e+05_rb,1.0594e+05_rb,7.0630e+04_rb,3.5315e+04_rb,1.5567e+02_rb/)
+      kbo(:, 2,43,16) = (/ &
+     &1.7322e+05_rb,1.2992e+05_rb,8.6612e+04_rb,4.3306e+04_rb,1.4408e+02_rb/)
+      kbo(:, 3,43,16) = (/ &
+     &2.0611e+05_rb,1.5458e+05_rb,1.0200e+05_rb,5.1528e+04_rb,1.3385e+02_rb/)
+      kbo(:, 4,43,16) = (/ &
+     &2.3919e+05_rb,1.7940e+05_rb,1.1960e+05_rb,5.9799e+04_rb,1.2454e+02_rb/)
+      kbo(:, 5,43,16) = (/ &
+     &2.7160e+05_rb,2.0370e+05_rb,1.3580e+05_rb,6.7900e+04_rb,1.1596e+02_rb/)
+      kbo(:, 1,44,16) = (/ &
+     &1.5000e+05_rb,1.1250e+05_rb,7.5001e+04_rb,3.7500e+04_rb,1.6094e+02_rb/)
+      kbo(:, 2,44,16) = (/ &
+     &1.8602e+05_rb,1.3952e+05_rb,9.3011e+04_rb,4.6505e+04_rb,1.4866e+02_rb/)
+      kbo(:, 3,44,16) = (/ &
+     &2.2342e+05_rb,1.6756e+05_rb,1.1171e+05_rb,5.5854e+04_rb,1.3792e+02_rb/)
+      kbo(:, 4,44,16) = (/ &
+     &2.6122e+05_rb,1.9592e+05_rb,1.3061e+05_rb,6.5304e+04_rb,1.2823e+02_rb/)
+      kbo(:, 5,44,16) = (/ &
+     &2.9874e+05_rb,2.2406e+05_rb,1.4937e+05_rb,7.4685e+04_rb,1.1932e+02_rb/)
+      kbo(:, 1,45,16) = (/ &
+     &1.6171e+05_rb,1.2128e+05_rb,8.0854e+04_rb,4.0427e+04_rb,1.6635e+02_rb/)
+      kbo(:, 2,45,16) = (/ &
+     &2.0304e+05_rb,1.5228e+05_rb,1.0152e+05_rb,5.0760e+04_rb,1.5336e+02_rb/)
+      kbo(:, 3,45,16) = (/ &
+     &2.4630e+05_rb,1.8473e+05_rb,1.2315e+05_rb,6.1576e+04_rb,1.4204e+02_rb/)
+      kbo(:, 4,45,16) = (/ &
+     &2.9041e+05_rb,2.1781e+05_rb,1.4520e+05_rb,7.2602e+04_rb,1.3193e+02_rb/)
+      kbo(:, 5,45,16) = (/ &
+     &3.3433e+05_rb,2.5074e+05_rb,1.6716e+05_rb,8.3581e+04_rb,1.2271e+02_rb/)
+      kbo(:, 1,46,16) = (/ &
+     &1.7432e+05_rb,1.3074e+05_rb,8.7162e+04_rb,4.3581e+04_rb,1.7227e+02_rb/)
+      kbo(:, 2,46,16) = (/ &
+     &2.2186e+05_rb,1.6640e+05_rb,1.1093e+05_rb,5.5465e+04_rb,1.5849e+02_rb/)
+      kbo(:, 3,46,16) = (/ &
+     &2.7221e+05_rb,2.0416e+05_rb,1.3611e+05_rb,6.8053e+04_rb,1.4648e+02_rb/)
+      kbo(:, 4,46,16) = (/ &
+     &3.2411e+05_rb,2.4308e+05_rb,1.6205e+05_rb,8.1026e+04_rb,1.3593e+02_rb/)
+      kbo(:, 5,46,16) = (/ &
+     &3.7610e+05_rb,2.8208e+05_rb,1.8805e+05_rb,9.4025e+04_rb,1.2634e+02_rb/)
+      kbo(:, 1,47,16) = (/ &
+     &1.8289e+05_rb,1.3717e+05_rb,9.1447e+04_rb,4.5723e+04_rb,1.7909e+02_rb/)
+      kbo(:, 2,47,16) = (/ &
+     &2.3679e+05_rb,1.7759e+05_rb,1.1839e+05_rb,5.9198e+04_rb,1.6436e+02_rb/)
+      kbo(:, 3,47,16) = (/ &
+     &2.9447e+05_rb,2.2085e+05_rb,1.4724e+05_rb,7.3618e+04_rb,1.5159e+02_rb/)
+      kbo(:, 4,47,16) = (/ &
+     &3.5454e+05_rb,2.6590e+05_rb,1.7727e+05_rb,8.8635e+04_rb,1.4045e+02_rb/)
+      kbo(:, 5,47,16) = (/ &
+     &4.1548e+05_rb,3.1161e+05_rb,2.0774e+05_rb,1.0387e+05_rb,1.3046e+02_rb/)
+      kbo(:, 1,48,16) = (/ &
+     &1.9579e+05_rb,1.4684e+05_rb,9.7896e+04_rb,4.8948e+04_rb,1.8623e+02_rb/)
+      kbo(:, 2,48,16) = (/ &
+     &2.5824e+05_rb,1.9368e+05_rb,1.2912e+05_rb,6.4559e+04_rb,1.7055e+02_rb/)
+      kbo(:, 3,48,16) = (/ &
+     &3.2608e+05_rb,2.4456e+05_rb,1.6304e+05_rb,8.0315e+04_rb,1.5696e+02_rb/)
+      kbo(:, 4,48,16) = (/ &
+     &3.9734e+05_rb,2.9801e+05_rb,1.9867e+05_rb,9.9336e+04_rb,1.4512e+02_rb/)
+      kbo(:, 5,48,16) = (/ &
+     &4.7039e+05_rb,3.5279e+05_rb,2.3519e+05_rb,1.1760e+05_rb,1.3467e+02_rb/)
+      kbo(:, 1,49,16) = (/ &
+     &2.1650e+05_rb,1.6238e+05_rb,1.0825e+05_rb,5.4125e+04_rb,1.9381e+02_rb/)
+      kbo(:, 2,49,16) = (/ &
+     &2.9149e+05_rb,2.1861e+05_rb,1.4574e+05_rb,7.2871e+04_rb,1.7704e+02_rb/)
+      kbo(:, 3,49,16) = (/ &
+     &3.7402e+05_rb,2.8052e+05_rb,1.8701e+05_rb,9.3505e+04_rb,1.6258e+02_rb/)
+      kbo(:, 4,49,16) = (/ &
+     &4.6192e+05_rb,3.4644e+05_rb,2.3096e+05_rb,1.1548e+05_rb,1.4999e+02_rb/)
+      kbo(:, 5,49,16) = (/ &
+     &5.5289e+05_rb,4.1467e+05_rb,2.7644e+05_rb,1.3822e+05_rb,1.3901e+02_rb/)
+      kbo(:, 1,50,16) = (/ &
+     &2.2791e+05_rb,1.7093e+05_rb,1.1395e+05_rb,5.6977e+04_rb,2.0134e+02_rb/)
+      kbo(:, 2,50,16) = (/ &
+     &3.1325e+05_rb,2.3494e+05_rb,1.5662e+05_rb,7.8312e+04_rb,1.8345e+02_rb/)
+      kbo(:, 3,50,16) = (/ &
+     &4.0878e+05_rb,3.0659e+05_rb,2.0439e+05_rb,1.0220e+05_rb,1.6811e+02_rb/)
+      kbo(:, 4,50,16) = (/ &
+     &5.1152e+05_rb,3.8364e+05_rb,2.5576e+05_rb,1.2788e+05_rb,1.5482e+02_rb/)
+      kbo(:, 5,50,16) = (/ &
+     &6.1913e+05_rb,4.6434e+05_rb,3.0956e+05_rb,1.5478e+05_rb,1.4323e+02_rb/)
+      kbo(:, 1,51,16) = (/ &
+     &2.3351e+05_rb,1.7513e+05_rb,1.1675e+05_rb,5.8377e+04_rb,2.0909e+02_rb/)
+      kbo(:, 2,51,16) = (/ &
+     &3.2811e+05_rb,2.4608e+05_rb,1.6406e+05_rb,8.2029e+04_rb,1.9001e+02_rb/)
+      kbo(:, 3,51,16) = (/ &
+     &4.3579e+05_rb,3.2684e+05_rb,2.1790e+05_rb,1.0895e+05_rb,1.7377e+02_rb/)
+      kbo(:, 4,51,16) = (/ &
+     &5.5314e+05_rb,4.1486e+05_rb,2.7653e+05_rb,1.3829e+05_rb,1.5970e+02_rb/)
+      kbo(:, 5,51,16) = (/ &
+     &6.7717e+05_rb,5.0788e+05_rb,3.3859e+05_rb,1.6929e+05_rb,1.4750e+02_rb/)
+      kbo(:, 1,52,16) = (/ &
+     &2.4395e+05_rb,1.8296e+05_rb,1.2197e+05_rb,6.0984e+04_rb,2.1739e+02_rb/)
+      kbo(:, 2,52,16) = (/ &
+     &3.5104e+05_rb,2.6328e+05_rb,1.7552e+05_rb,8.7761e+04_rb,1.9693e+02_rb/)
+      kbo(:, 3,52,16) = (/ &
+     &4.7523e+05_rb,3.5643e+05_rb,2.3762e+05_rb,1.1881e+05_rb,1.7968e+02_rb/)
+      kbo(:, 4,52,16) = (/ &
+     &6.1247e+05_rb,4.5936e+05_rb,3.0624e+05_rb,1.5312e+05_rb,1.6481e+02_rb/)
+      kbo(:, 5,52,16) = (/ &
+     &7.5898e+05_rb,5.6924e+05_rb,3.7949e+05_rb,1.8975e+05_rb,1.5192e+02_rb/)
+      kbo(:, 1,53,16) = (/ &
+     &2.6284e+05_rb,1.9713e+05_rb,1.3142e+05_rb,6.5712e+04_rb,2.2625e+02_rb/)
+      kbo(:, 2,53,16) = (/ &
+     &3.8810e+05_rb,2.9108e+05_rb,1.9405e+05_rb,9.7027e+04_rb,2.0424e+02_rb/)
+      kbo(:, 3,53,16) = (/ &
+     &5.3641e+05_rb,4.0231e+05_rb,2.6821e+05_rb,1.3410e+05_rb,1.8589e+02_rb/)
+      kbo(:, 4,53,16) = (/ &
+     &7.0283e+05_rb,5.2713e+05_rb,3.5142e+05_rb,1.7571e+05_rb,1.7018e+02_rb/)
+      kbo(:, 5,53,16) = (/ &
+     &8.8260e+05_rb,6.6195e+05_rb,4.4130e+05_rb,2.2065e+05_rb,1.5658e+02_rb/)
+      kbo(:, 1,54,16) = (/ &
+     &2.4532e+05_rb,1.8399e+05_rb,1.2266e+05_rb,6.1332e+04_rb,2.3489e+02_rb/)
+      kbo(:, 2,54,16) = (/ &
+     &3.7212e+05_rb,2.7909e+05_rb,1.8606e+05_rb,9.3031e+04_rb,2.1139e+02_rb/)
+      kbo(:, 3,54,16) = (/ &
+     &5.1860e+05_rb,3.9351e+05_rb,2.6234e+05_rb,1.3117e+05_rb,1.9188e+02_rb/)
+      kbo(:, 4,54,16) = (/ &
+     &6.9903e+05_rb,5.2427e+05_rb,3.4952e+05_rb,1.7476e+05_rb,1.7536e+02_rb/)
+      kbo(:, 5,54,16) = (/ &
+     &8.8946e+05_rb,6.6416e+05_rb,4.4474e+05_rb,2.2237e+05_rb,1.6106e+02_rb/)
+      kbo(:, 1,55,16) = (/ &
+     &2.0815e+05_rb,1.5612e+05_rb,1.0408e+05_rb,5.2039e+04_rb,2.4370e+02_rb/)
+      kbo(:, 2,55,16) = (/ &
+     &3.2440e+05_rb,2.4330e+05_rb,1.6220e+05_rb,8.1100e+04_rb,2.1865e+02_rb/)
+      kbo(:, 3,55,16) = (/ &
+     &4.6741e+05_rb,3.5056e+05_rb,2.3371e+05_rb,1.1685e+05_rb,1.9795e+02_rb/)
+      kbo(:, 4,55,16) = (/ &
+     &6.3338e+05_rb,4.7504e+05_rb,3.1669e+05_rb,1.5835e+05_rb,1.8053e+02_rb/)
+      kbo(:, 5,55,16) = (/ &
+     &8.1696e+05_rb,6.1272e+05_rb,4.0848e+05_rb,2.0424e+05_rb,1.6554e+02_rb/)
+      kbo(:, 1,56,16) = (/ &
+     &1.7485e+05_rb,1.3114e+05_rb,8.7424e+04_rb,4.3712e+04_rb,2.5296e+02_rb/)
+      kbo(:, 2,56,16) = (/ &
+     &2.8084e+05_rb,2.1063e+05_rb,1.4042e+05_rb,7.0208e+04_rb,2.2634e+02_rb/)
+      kbo(:, 3,56,16) = (/ &
+     &4.1394e+05_rb,3.1046e+05_rb,2.0697e+05_rb,1.0347e+05_rb,2.0431e+02_rb/)
+      kbo(:, 4,56,16) = (/ &
+     &5.7118e+05_rb,4.2838e+05_rb,2.8559e+05_rb,1.4279e+05_rb,1.8592e+02_rb/)
+      kbo(:, 5,56,16) = (/ &
+     &7.4759e+05_rb,5.6069e+05_rb,3.7379e+05_rb,1.8690e+05_rb,1.7020e+02_rb/)
+      kbo(:, 1,57,16) = (/ &
+     &1.4522e+05_rb,1.0891e+05_rb,7.2607e+04_rb,3.6303e+04_rb,2.6280e+02_rb/)
+      kbo(:, 2,57,16) = (/ &
+     &2.4098e+05_rb,1.8073e+05_rb,1.2049e+05_rb,6.0242e+04_rb,2.3450e+02_rb/)
+      kbo(:, 3,57,16) = (/ &
+     &3.6414e+05_rb,2.7311e+05_rb,1.8207e+05_rb,9.1034e+04_rb,2.1103e+02_rb/)
+      kbo(:, 4,57,16) = (/ &
+     &5.1231e+05_rb,3.8423e+05_rb,2.5615e+05_rb,1.2807e+05_rb,1.9160e+02_rb/)
+      kbo(:, 5,57,16) = (/ &
+     &6.8106e+05_rb,5.1079e+05_rb,3.4053e+05_rb,1.7026e+05_rb,1.7509e+02_rb/)
+      kbo(:, 1,58,16) = (/ &
+     &3.1730e+04_rb,2.9092e+04_rb,2.4944e+04_rb,1.7470e+04_rb,2.7269e+02_rb/)
+      kbo(:, 2,58,16) = (/ &
+     &5.4453e+04_rb,4.9925e+04_rb,4.2806e+04_rb,2.9981e+04_rb,2.4268e+02_rb/)
+      kbo(:, 3,58,16) = (/ &
+     &8.4447e+04_rb,7.7425e+04_rb,6.6385e+04_rb,4.6495e+04_rb,2.1781e+02_rb/)
+      kbo(:, 4,58,16) = (/ &
+     &1.2116e+05_rb,1.1108e+05_rb,9.5242e+04_rb,6.6707e+04_rb,1.9723e+02_rb/)
+      kbo(:, 5,58,16) = (/ &
+     &1.6365e+05_rb,1.5004e+05_rb,1.2865e+05_rb,9.0103e+04_rb,1.7991e+02_rb/)
+      kbo(:, 1,59,16) = (/ &
+     &3.4421e+04_rb,3.0055e+04_rb,2.3973e+04_rb,1.4918e+04_rb,2.7694e+02_rb/)
+      kbo(:, 2,59,16) = (/ &
+     &5.9930e+04_rb,5.2328e+04_rb,4.1740e+04_rb,2.5973e+04_rb,2.4614e+02_rb/)
+      kbo(:, 3,59,16) = (/ &
+     &9.3934e+04_rb,8.2019e+04_rb,6.5423e+04_rb,4.0711e+04_rb,2.2066e+02_rb/)
+      kbo(:, 4,59,16) = (/ &
+     &1.3595e+05_rb,1.1871e+05_rb,9.4687e+04_rb,5.8920e+04_rb,1.9962e+02_rb/)
+      kbo(:, 5,59,16) = (/ &
+     &1.8479e+05_rb,1.6135e+05_rb,1.2650e+05_rb,8.0089e+04_rb,1.8195e+02_rb/)
+
+!     The array KAO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level below 100~ mb.   The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.  The second index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index 
+!     runs over the g-channel (1 to 16).
+
+      kao_mo3( 1, :, 1) = (/ &
+     & 9.31040e-03_rb, 1.01286e-02_rb, 1.10186e-02_rb, 1.19869e-02_rb, 1.30403e-02_rb, &
+     & 1.41862e-02_rb, 1.54328e-02_rb, 1.67890e-02_rb, 1.82644e-02_rb, 1.98694e-02_rb, &
+     & 2.16154e-02_rb, 2.35149e-02_rb, 2.55813e-02_rb, 2.78293e-02_rb, 3.02749e-02_rb, &
+     & 3.29353e-02_rb, 3.58295e-02_rb, 3.89781e-02_rb, 4.24034e-02_rb/)
+      kao_mo3( 2, :, 1) = (/ &
+     & 1.11200e-02_rb, 1.20461e-02_rb, 1.30493e-02_rb, 1.41360e-02_rb, 1.53133e-02_rb, &
+     & 1.65886e-02_rb, 1.79701e-02_rb, 1.94666e-02_rb, 2.10878e-02_rb, 2.28440e-02_rb, &
+     & 2.47465e-02_rb, 2.68074e-02_rb, 2.90399e-02_rb, 3.14583e-02_rb, 3.40782e-02_rb, &
+     & 3.69162e-02_rb, 3.99907e-02_rb, 4.33211e-02_rb, 4.69289e-02_rb/)
+      kao_mo3( 3, :, 1) = (/ &
+     & 1.21630e-02_rb, 1.31401e-02_rb, 1.41956e-02_rb, 1.53359e-02_rb, 1.65679e-02_rb, &
+     & 1.78988e-02_rb, 1.93366e-02_rb, 2.08899e-02_rb, 2.25680e-02_rb, 2.43808e-02_rb, &
+     & 2.63394e-02_rb, 2.84552e-02_rb, 3.07410e-02_rb, 3.32104e-02_rb, 3.58782e-02_rb, &
+     & 3.87603e-02_rb, 4.18739e-02_rb, 4.52377e-02_rb, 4.88716e-02_rb/)
+      kao_mo3( 4, :, 1) = (/ &
+     & 1.26231e-02_rb, 1.36243e-02_rb, 1.47049e-02_rb, 1.58713e-02_rb, 1.71301e-02_rb, &
+     & 1.84888e-02_rb, 1.99553e-02_rb, 2.15380e-02_rb, 2.32463e-02_rb, 2.50901e-02_rb, &
+     & 2.70801e-02_rb, 2.92280e-02_rb, 3.15463e-02_rb, 3.40484e-02_rb, 3.67489e-02_rb, &
+     & 3.96637e-02_rb, 4.28097e-02_rb, 4.62051e-02_rb, 4.98699e-02_rb/)
+      kao_mo3( 5, :, 1) = (/ &
+     & 1.33345e-02_rb, 1.43736e-02_rb, 1.54938e-02_rb, 1.67012e-02_rb, 1.80027e-02_rb, &
+     & 1.94057e-02_rb, 2.09180e-02_rb, 2.25481e-02_rb, 2.43053e-02_rb, 2.61994e-02_rb, &
+     & 2.82411e-02_rb, 3.04419e-02_rb, 3.28142e-02_rb, 3.53714e-02_rb, 3.81279e-02_rb, &
+     & 4.10992e-02_rb, 4.43021e-02_rb, 4.77545e-02_rb, 5.14760e-02_rb/)
+      kao_mo3( 6, :, 1) = (/ &
+     & 1.43294e-02_rb, 1.54133e-02_rb, 1.65791e-02_rb, 1.78331e-02_rb, 1.91819e-02_rb, &
+     & 2.06328e-02_rb, 2.21935e-02_rb, 2.38721e-02_rb, 2.56778e-02_rb, 2.76200e-02_rb, &
+     & 2.97091e-02_rb, 3.19562e-02_rb, 3.43733e-02_rb, 3.69732e-02_rb, 3.97698e-02_rb, &
+     & 4.27779e-02_rb, 4.60136e-02_rb, 4.94939e-02_rb, 5.32375e-02_rb/)
+      kao_mo3( 7, :, 1) = (/ &
+     & 1.48298e-02_rb, 1.59503e-02_rb, 1.71554e-02_rb, 1.84517e-02_rb, 1.98458e-02_rb, &
+     & 2.13453e-02_rb, 2.29581e-02_rb, 2.46928e-02_rb, 2.65585e-02_rb, 2.85652e-02_rb, &
+     & 3.07235e-02_rb, 3.30449e-02_rb, 3.55417e-02_rb, 3.82272e-02_rb, 4.11155e-02_rb, &
+     & 4.42221e-02_rb, 4.75634e-02_rb, 5.11572e-02_rb, 5.50225e-02_rb/)
+      kao_mo3( 8, :, 1) = (/ &
+     & 1.41792e-02_rb, 1.53141e-02_rb, 1.65398e-02_rb, 1.78637e-02_rb, 1.92935e-02_rb, &
+     & 2.08378e-02_rb, 2.25057e-02_rb, 2.43071e-02_rb, 2.62526e-02_rb, 2.83539e-02_rb, &
+     & 3.06234e-02_rb, 3.30745e-02_rb, 3.57218e-02_rb, 3.85810e-02_rb, 4.16690e-02_rb, &
+     & 4.50042e-02_rb, 4.86064e-02_rb, 5.24969e-02_rb, 5.66988e-02_rb/)
+      kao_mo3( 9, :, 1) = (/ &
+     & 8.82784e-03_rb, 9.48321e-03_rb, 1.01872e-02_rb, 1.09435e-02_rb, 1.17560e-02_rb, &
+     & 1.26287e-02_rb, 1.35662e-02_rb, 1.45734e-02_rb, 1.56553e-02_rb, 1.68175e-02_rb, &
+     & 1.80660e-02_rb, 1.94072e-02_rb, 2.08480e-02_rb, 2.23958e-02_rb, 2.40584e-02_rb, &
+     & 2.58445e-02_rb, 2.77631e-02_rb, 2.98242e-02_rb, 3.20383e-02_rb/)
+      kao_mo3( 1, :, 2) = (/ &
+     & 4.28238e-02_rb, 4.51015e-02_rb, 4.75003e-02_rb, 5.00266e-02_rb, 5.26873e-02_rb, &
+     & 5.54896e-02_rb, 5.84409e-02_rb, 6.15491e-02_rb, 6.48227e-02_rb, 6.82704e-02_rb, &
+     & 7.19014e-02_rb, 7.57256e-02_rb, 7.97532e-02_rb, 8.39949e-02_rb, 8.84623e-02_rb, &
+     & 9.31673e-02_rb, 9.81225e-02_rb, 1.03341e-01_rb, 1.08838e-01_rb/)
+      kao_mo3( 2, :, 2) = (/ &
+     & 4.83672e-02_rb, 5.07219e-02_rb, 5.31911e-02_rb, 5.57806e-02_rb, 5.84962e-02_rb, &
+     & 6.13440e-02_rb, 6.43303e-02_rb, 6.74621e-02_rb, 7.07464e-02_rb, 7.41905e-02_rb, &
+     & 7.78023e-02_rb, 8.15899e-02_rb, 8.55619e-02_rb, 8.97273e-02_rb, 9.40955e-02_rb, &
+     & 9.86763e-02_rb, 1.03480e-01_rb, 1.08518e-01_rb, 1.13801e-01_rb/)
+      kao_mo3( 3, :, 2) = (/ &
+     & 5.24315e-02_rb, 5.48650e-02_rb, 5.74115e-02_rb, 6.00762e-02_rb, 6.28645e-02_rb, &
+     & 6.57822e-02_rb, 6.88354e-02_rb, 7.20302e-02_rb, 7.53734e-02_rb, 7.88717e-02_rb, &
+     & 8.25324e-02_rb, 8.63630e-02_rb, 9.03714e-02_rb, 9.45658e-02_rb, 9.89549e-02_rb, &
+     & 1.03548e-01_rb, 1.08354e-01_rb, 1.13383e-01_rb, 1.18645e-01_rb/)
+      kao_mo3( 4, :, 2) = (/ &
+     & 5.65191e-02_rb, 5.90383e-02_rb, 6.16699e-02_rb, 6.44187e-02_rb, 6.72901e-02_rb, &
+     & 7.02894e-02_rb, 7.34224e-02_rb, 7.66951e-02_rb, 8.01137e-02_rb, 8.36846e-02_rb, &
+     & 8.74147e-02_rb, 9.13111e-02_rb, 9.53812e-02_rb, 9.96326e-02_rb, 1.04074e-01_rb, &
+     & 1.08712e-01_rb, 1.13558e-01_rb, 1.18620e-01_rb, 1.23907e-01_rb/)
+      kao_mo3( 5, :, 2) = (/ &
+     & 6.03171e-02_rb, 6.29114e-02_rb, 6.56172e-02_rb, 6.84394e-02_rb, 7.13830e-02_rb, &
+     & 7.44532e-02_rb, 7.76555e-02_rb, 8.09955e-02_rb, 8.44791e-02_rb, 8.81125e-02_rb, &
+     & 9.19023e-02_rb, 9.58550e-02_rb, 9.99778e-02_rb, 1.04278e-01_rb, 1.08763e-01_rb, &
+     & 1.13441e-01_rb, 1.18320e-01_rb, 1.23409e-01_rb, 1.28717e-01_rb/)
+      kao_mo3( 6, :, 2) = (/ &
+     & 6.51092e-02_rb, 6.77827e-02_rb, 7.05660e-02_rb, 7.34635e-02_rb, 7.64801e-02_rb, &
+     & 7.96204e-02_rb, 8.28898e-02_rb, 8.62934e-02_rb, 8.98367e-02_rb, 9.35255e-02_rb, &
+     & 9.73658e-02_rb, 1.01364e-01_rb, 1.05526e-01_rb, 1.09859e-01_rb, 1.14370e-01_rb, &
+     & 1.19066e-01_rb, 1.23955e-01_rb, 1.29045e-01_rb, 1.34344e-01_rb/)
+      kao_mo3( 7, :, 2) = (/ &
+     & 7.09653e-02_rb, 7.37378e-02_rb, 7.66187e-02_rb, 7.96121e-02_rb, 8.27225e-02_rb, &
+     & 8.59543e-02_rb, 8.93125e-02_rb, 9.28018e-02_rb, 9.64275e-02_rb, 1.00195e-01_rb, &
+     & 1.04109e-01_rb, 1.08177e-01_rb, 1.12403e-01_rb, 1.16795e-01_rb, 1.21358e-01_rb, &
+     & 1.26099e-01_rb, 1.31026e-01_rb, 1.36145e-01_rb, 1.41464e-01_rb/)
+      kao_mo3( 8, :, 2) = (/ &
+     & 7.69193e-02_rb, 7.97926e-02_rb, 8.27733e-02_rb, 8.58653e-02_rb, 8.90728e-02_rb, &
+     & 9.24002e-02_rb, 9.58518e-02_rb, 9.94324e-02_rb, 1.03147e-01_rb, 1.07000e-01_rb, &
+     & 1.10997e-01_rb, 1.15143e-01_rb, 1.19444e-01_rb, 1.23906e-01_rb, 1.28535e-01_rb, &
+     & 1.33336e-01_rb, 1.38317e-01_rb, 1.43484e-01_rb, 1.48844e-01_rb/)
+      kao_mo3( 9, :, 2) = (/ &
+     & 4.57962e-02_rb, 4.76027e-02_rb, 4.94805e-02_rb, 5.14323e-02_rb, 5.34611e-02_rb, &
+     & 5.55700e-02_rb, 5.77620e-02_rb, 6.00405e-02_rb, 6.24089e-02_rb, 6.48707e-02_rb, &
+     & 6.74296e-02_rb, 7.00895e-02_rb, 7.28542e-02_rb, 7.57281e-02_rb, 7.87153e-02_rb, &
+     & 8.18203e-02_rb, 8.50478e-02_rb, 8.84027e-02_rb, 9.18898e-02_rb/)
+      kao_mo3( 1, :, 3) = (/ &
+     & 1.12607e-01_rb, 1.16047e-01_rb, 1.19591e-01_rb, 1.23244e-01_rb, 1.27009e-01_rb, &
+     & 1.30888e-01_rb, 1.34886e-01_rb, 1.39006e-01_rb, 1.43252e-01_rb, 1.47628e-01_rb, &
+     & 1.52137e-01_rb, 1.56785e-01_rb, 1.61574e-01_rb, 1.66509e-01_rb, 1.71595e-01_rb, &
+     & 1.76836e-01_rb, 1.82238e-01_rb, 1.87804e-01_rb, 1.93541e-01_rb/)
+      kao_mo3( 2, :, 3) = (/ &
+     & 1.14531e-01_rb, 1.17850e-01_rb, 1.21266e-01_rb, 1.24781e-01_rb, 1.28397e-01_rb, &
+     & 1.32119e-01_rb, 1.35948e-01_rb, 1.39888e-01_rb, 1.43943e-01_rb, 1.48115e-01_rb, &
+     & 1.52407e-01_rb, 1.56825e-01_rb, 1.61370e-01_rb, 1.66047e-01_rb, 1.70860e-01_rb, &
+     & 1.75812e-01_rb, 1.80907e-01_rb, 1.86150e-01_rb, 1.91546e-01_rb/)
+      kao_mo3( 3, :, 3) = (/ &
+     & 1.13986e-01_rb, 1.17222e-01_rb, 1.20551e-01_rb, 1.23974e-01_rb, 1.27494e-01_rb, &
+     & 1.31114e-01_rb, 1.34837e-01_rb, 1.38666e-01_rb, 1.42604e-01_rb, 1.46653e-01_rb, &
+     & 1.50817e-01_rb, 1.55099e-01_rb, 1.59503e-01_rb, 1.64032e-01_rb, 1.68690e-01_rb, &
+     & 1.73480e-01_rb, 1.78406e-01_rb, 1.83472e-01_rb, 1.88682e-01_rb/)
+      kao_mo3( 4, :, 3) = (/ &
+     & 1.13713e-01_rb, 1.16892e-01_rb, 1.20160e-01_rb, 1.23519e-01_rb, 1.26972e-01_rb, &
+     & 1.30522e-01_rb, 1.34171e-01_rb, 1.37922e-01_rb, 1.41778e-01_rb, 1.45742e-01_rb, &
+     & 1.49817e-01_rb, 1.54005e-01_rb, 1.58311e-01_rb, 1.62737e-01_rb, 1.67287e-01_rb, &
+     & 1.71964e-01_rb, 1.76771e-01_rb, 1.81714e-01_rb, 1.86794e-01_rb/)
+      kao_mo3( 5, :, 3) = (/ &
+     & 1.12321e-01_rb, 1.15413e-01_rb, 1.18591e-01_rb, 1.21856e-01_rb, 1.25211e-01_rb, &
+     & 1.28658e-01_rb, 1.32200e-01_rb, 1.35840e-01_rb, 1.39580e-01_rb, 1.43423e-01_rb, &
+     & 1.47372e-01_rb, 1.51429e-01_rb, 1.55599e-01_rb, 1.59883e-01_rb, 1.64284e-01_rb, &
+     & 1.68808e-01_rb, 1.73455e-01_rb, 1.78231e-01_rb, 1.83138e-01_rb/)
+      kao_mo3( 6, :, 3) = (/ &
+     & 1.14158e-01_rb, 1.17218e-01_rb, 1.20360e-01_rb, 1.23586e-01_rb, 1.26899e-01_rb, &
+     & 1.30300e-01_rb, 1.33793e-01_rb, 1.37379e-01_rb, 1.41061e-01_rb, 1.44842e-01_rb, &
+     & 1.48724e-01_rb, 1.52711e-01_rb, 1.56804e-01_rb, 1.61007e-01_rb, 1.65322e-01_rb, &
+     & 1.69754e-01_rb, 1.74304e-01_rb, 1.78976e-01_rb, 1.83773e-01_rb/)
+      kao_mo3( 7, :, 3) = (/ &
+     & 1.21015e-01_rb, 1.23989e-01_rb, 1.27036e-01_rb, 1.30157e-01_rb, 1.33355e-01_rb, &
+     & 1.36632e-01_rb, 1.39990e-01_rb, 1.43429e-01_rb, 1.46954e-01_rb, 1.50565e-01_rb, &
+     & 1.54264e-01_rb, 1.58055e-01_rb, 1.61939e-01_rb, 1.65918e-01_rb, 1.69995e-01_rb, &
+     & 1.74172e-01_rb, 1.78452e-01_rb, 1.82836e-01_rb, 1.87329e-01_rb/)
+      kao_mo3( 8, :, 3) = (/ &
+     & 1.33952e-01_rb, 1.36939e-01_rb, 1.39992e-01_rb, 1.43114e-01_rb, 1.46305e-01_rb, &
+     & 1.49567e-01_rb, 1.52902e-01_rb, 1.56311e-01_rb, 1.59797e-01_rb, 1.63360e-01_rb, &
+     & 1.67002e-01_rb, 1.70726e-01_rb, 1.74533e-01_rb, 1.78424e-01_rb, 1.82403e-01_rb, &
+     & 1.86470e-01_rb, 1.90627e-01_rb, 1.94878e-01_rb, 1.99223e-01_rb/)
+      kao_mo3( 9, :, 3) = (/ &
+     & 1.01003e-01_rb, 1.03713e-01_rb, 1.06495e-01_rb, 1.09352e-01_rb, 1.12285e-01_rb, &
+     & 1.15297e-01_rb, 1.18390e-01_rb, 1.21566e-01_rb, 1.24827e-01_rb, 1.28176e-01_rb, &
+     & 1.31614e-01_rb, 1.35145e-01_rb, 1.38770e-01_rb, 1.42493e-01_rb, 1.46315e-01_rb, &
+     & 1.50240e-01_rb, 1.54271e-01_rb, 1.58409e-01_rb, 1.62659e-01_rb/)
+      kao_mo3( 1, :, 4) = (/ &
+     & 2.35597e-01_rb, 2.37975e-01_rb, 2.40376e-01_rb, 2.42802e-01_rb, 2.45253e-01_rb, &
+     & 2.47728e-01_rb, 2.50228e-01_rb, 2.52753e-01_rb, 2.55304e-01_rb, 2.57881e-01_rb, &
+     & 2.60483e-01_rb, 2.63112e-01_rb, 2.65767e-01_rb, 2.68450e-01_rb, 2.71159e-01_rb, &
+     & 2.73895e-01_rb, 2.76660e-01_rb, 2.79452e-01_rb, 2.82272e-01_rb/)
+      kao_mo3( 2, :, 4) = (/ &
+     & 2.27965e-01_rb, 2.30334e-01_rb, 2.32728e-01_rb, 2.35146e-01_rb, 2.37590e-01_rb, &
+     & 2.40059e-01_rb, 2.42554e-01_rb, 2.45075e-01_rb, 2.47621e-01_rb, 2.50195e-01_rb, &
+     & 2.52795e-01_rb, 2.55422e-01_rb, 2.58077e-01_rb, 2.60759e-01_rb, 2.63468e-01_rb, &
+     & 2.66206e-01_rb, 2.68973e-01_rb, 2.71768e-01_rb, 2.74593e-01_rb/)
+      kao_mo3( 3, :, 4) = (/ &
+     & 2.25956e-01_rb, 2.28277e-01_rb, 2.30622e-01_rb, 2.32991e-01_rb, 2.35384e-01_rb, &
+     & 2.37802e-01_rb, 2.40244e-01_rb, 2.42712e-01_rb, 2.45205e-01_rb, 2.47724e-01_rb, &
+     & 2.50268e-01_rb, 2.52839e-01_rb, 2.55436e-01_rb, 2.58060e-01_rb, 2.60711e-01_rb, &
+     & 2.63389e-01_rb, 2.66094e-01_rb, 2.68827e-01_rb, 2.71589e-01_rb/)
+      kao_mo3( 4, :, 4) = (/ &
+     & 2.28371e-01_rb, 2.30595e-01_rb, 2.32840e-01_rb, 2.35107e-01_rb, 2.37397e-01_rb, &
+     & 2.39708e-01_rb, 2.42042e-01_rb, 2.44399e-01_rb, 2.46779e-01_rb, 2.49182e-01_rb, &
+     & 2.51608e-01_rb, 2.54058e-01_rb, 2.56532e-01_rb, 2.59030e-01_rb, 2.61552e-01_rb, &
+     & 2.64099e-01_rb, 2.66671e-01_rb, 2.69267e-01_rb, 2.71889e-01_rb/)
+      kao_mo3( 5, :, 4) = (/ &
+     & 2.42563e-01_rb, 2.44620e-01_rb, 2.46695e-01_rb, 2.48787e-01_rb, 2.50897e-01_rb, &
+     & 2.53024e-01_rb, 2.55170e-01_rb, 2.57334e-01_rb, 2.59516e-01_rb, 2.61717e-01_rb, &
+     & 2.63936e-01_rb, 2.66174e-01_rb, 2.68431e-01_rb, 2.70708e-01_rb, 2.73003e-01_rb, &
+     & 2.75318e-01_rb, 2.77653e-01_rb, 2.80008e-01_rb, 2.82382e-01_rb/)
+      kao_mo3( 6, :, 4) = (/ &
+     & 2.54052e-01_rb, 2.56017e-01_rb, 2.57997e-01_rb, 2.59992e-01_rb, 2.62003e-01_rb, &
+     & 2.64029e-01_rb, 2.66071e-01_rb, 2.68129e-01_rb, 2.70203e-01_rb, 2.72293e-01_rb, &
+     & 2.74398e-01_rb, 2.76521e-01_rb, 2.78659e-01_rb, 2.80814e-01_rb, 2.82986e-01_rb, &
+     & 2.85175e-01_rb, 2.87380e-01_rb, 2.89603e-01_rb, 2.91842e-01_rb/)
+      kao_mo3( 7, :, 4) = (/ &
+     & 2.54061e-01_rb, 2.55982e-01_rb, 2.57917e-01_rb, 2.59867e-01_rb, 2.61832e-01_rb, &
+     & 2.63811e-01_rb, 2.65806e-01_rb, 2.67815e-01_rb, 2.69840e-01_rb, 2.71880e-01_rb, &
+     & 2.73936e-01_rb, 2.76007e-01_rb, 2.78093e-01_rb, 2.80196e-01_rb, 2.82314e-01_rb, &
+     & 2.84449e-01_rb, 2.86599e-01_rb, 2.88766e-01_rb, 2.90949e-01_rb/)
+      kao_mo3( 8, :, 4) = (/ &
+     & 2.72482e-01_rb, 2.73916e-01_rb, 2.75358e-01_rb, 2.76807e-01_rb, 2.78264e-01_rb, &
+     & 2.79729e-01_rb, 2.81201e-01_rb, 2.82681e-01_rb, 2.84169e-01_rb, 2.85665e-01_rb, &
+     & 2.87168e-01_rb, 2.88680e-01_rb, 2.90199e-01_rb, 2.91726e-01_rb, 2.93262e-01_rb, &
+     & 2.94805e-01_rb, 2.96357e-01_rb, 2.97917e-01_rb, 2.99485e-01_rb/)
+      kao_mo3( 9, :, 4) = (/ &
+     & 1.93414e-01_rb, 1.95498e-01_rb, 1.97605e-01_rb, 1.99734e-01_rb, 2.01886e-01_rb, &
+     & 2.04062e-01_rb, 2.06261e-01_rb, 2.08483e-01_rb, 2.10730e-01_rb, 2.13001e-01_rb, &
+     & 2.15296e-01_rb, 2.17616e-01_rb, 2.19961e-01_rb, 2.22331e-01_rb, 2.24727e-01_rb, &
+     & 2.27148e-01_rb, 2.29596e-01_rb, 2.32070e-01_rb, 2.34571e-01_rb/)
+      kao_mo3( 1, :, 5) = (/ &
+     & 5.30785e-01_rb, 5.30477e-01_rb, 5.30169e-01_rb, 5.29861e-01_rb, 5.29553e-01_rb, &
+     & 5.29246e-01_rb, 5.28938e-01_rb, 5.28631e-01_rb, 5.28324e-01_rb, 5.28017e-01_rb, &
+     & 5.27711e-01_rb, 5.27404e-01_rb, 5.27098e-01_rb, 5.26792e-01_rb, 5.26486e-01_rb, &
+     & 5.26180e-01_rb, 5.25875e-01_rb, 5.25569e-01_rb, 5.25264e-01_rb/)
+      kao_mo3( 2, :, 5) = (/ &
+     & 5.33406e-01_rb, 5.32997e-01_rb, 5.32587e-01_rb, 5.32178e-01_rb, 5.31769e-01_rb, &
+     & 5.31360e-01_rb, 5.30952e-01_rb, 5.30544e-01_rb, 5.30137e-01_rb, 5.29729e-01_rb, &
+     & 5.29322e-01_rb, 5.28916e-01_rb, 5.28509e-01_rb, 5.28103e-01_rb, 5.27697e-01_rb, &
+     & 5.27292e-01_rb, 5.26887e-01_rb, 5.26482e-01_rb, 5.26077e-01_rb/)
+      kao_mo3( 3, :, 5) = (/ &
+     & 5.39814e-01_rb, 5.39234e-01_rb, 5.38655e-01_rb, 5.38077e-01_rb, 5.37499e-01_rb, &
+     & 5.36922e-01_rb, 5.36345e-01_rb, 5.35769e-01_rb, 5.35194e-01_rb, 5.34620e-01_rb, &
+     & 5.34045e-01_rb, 5.33472e-01_rb, 5.32899e-01_rb, 5.32327e-01_rb, 5.31756e-01_rb, &
+     & 5.31185e-01_rb, 5.30614e-01_rb, 5.30045e-01_rb, 5.29475e-01_rb/)
+      kao_mo3( 4, :, 5) = (/ &
+     & 5.39054e-01_rb, 5.38348e-01_rb, 5.37643e-01_rb, 5.36938e-01_rb, 5.36235e-01_rb, &
+     & 5.35532e-01_rb, 5.34831e-01_rb, 5.34130e-01_rb, 5.33431e-01_rb, 5.32732e-01_rb, &
+     & 5.32034e-01_rb, 5.31337e-01_rb, 5.30641e-01_rb, 5.29946e-01_rb, 5.29252e-01_rb, &
+     & 5.28559e-01_rb, 5.27866e-01_rb, 5.27175e-01_rb, 5.26484e-01_rb/)
+      kao_mo3( 5, :, 5) = (/ &
+     & 5.29240e-01_rb, 5.28475e-01_rb, 5.27711e-01_rb, 5.26949e-01_rb, 5.26187e-01_rb, &
+     & 5.25427e-01_rb, 5.24668e-01_rb, 5.23909e-01_rb, 5.23152e-01_rb, 5.22396e-01_rb, &
+     & 5.21641e-01_rb, 5.20888e-01_rb, 5.20135e-01_rb, 5.19383e-01_rb, 5.18633e-01_rb, &
+     & 5.17883e-01_rb, 5.17135e-01_rb, 5.16388e-01_rb, 5.15642e-01_rb/)
+      kao_mo3( 6, :, 5) = (/ &
+     & 5.21746e-01_rb, 5.20815e-01_rb, 5.19886e-01_rb, 5.18958e-01_rb, 5.18032e-01_rb, &
+     & 5.17107e-01_rb, 5.16184e-01_rb, 5.15263e-01_rb, 5.14343e-01_rb, 5.13425e-01_rb, &
+     & 5.12509e-01_rb, 5.11594e-01_rb, 5.10681e-01_rb, 5.09770e-01_rb, 5.08860e-01_rb, &
+     & 5.07952e-01_rb, 5.07045e-01_rb, 5.06140e-01_rb, 5.05237e-01_rb/)
+      kao_mo3( 7, :, 5) = (/ &
+     & 5.26752e-01_rb, 5.25550e-01_rb, 5.24352e-01_rb, 5.23156e-01_rb, 5.21963e-01_rb, &
+     & 5.20772e-01_rb, 5.19584e-01_rb, 5.18399e-01_rb, 5.17217e-01_rb, 5.16038e-01_rb, &
+     & 5.14861e-01_rb, 5.13686e-01_rb, 5.12515e-01_rb, 5.11346e-01_rb, 5.10180e-01_rb, &
+     & 5.09016e-01_rb, 5.07855e-01_rb, 5.06697e-01_rb, 5.05541e-01_rb/)
+      kao_mo3( 8, :, 5) = (/ &
+     & 5.23581e-01_rb, 5.22513e-01_rb, 5.21446e-01_rb, 5.20382e-01_rb, 5.19320e-01_rb, &
+     & 5.18260e-01_rb, 5.17203e-01_rb, 5.16147e-01_rb, 5.15094e-01_rb, 5.14042e-01_rb, &
+     & 5.12993e-01_rb, 5.11946e-01_rb, 5.10901e-01_rb, 5.09859e-01_rb, 5.08818e-01_rb, &
+     & 5.07780e-01_rb, 5.06743e-01_rb, 5.05709e-01_rb, 5.04677e-01_rb/)
+      kao_mo3( 9, :, 5) = (/ &
+     & 3.80393e-01_rb, 3.80680e-01_rb, 3.80967e-01_rb, 3.81254e-01_rb, 3.81542e-01_rb, &
+     & 3.81829e-01_rb, 3.82117e-01_rb, 3.82405e-01_rb, 3.82693e-01_rb, 3.82982e-01_rb, &
+     & 3.83271e-01_rb, 3.83559e-01_rb, 3.83849e-01_rb, 3.84138e-01_rb, 3.84428e-01_rb, &
+     & 3.84717e-01_rb, 3.85007e-01_rb, 3.85298e-01_rb, 3.85588e-01_rb/)
+      kao_mo3( 1, :, 6) = (/ &
+     & 6.14818e-01_rb, 6.10664e-01_rb, 6.06539e-01_rb, 6.02441e-01_rb, 5.98372e-01_rb, &
+     & 5.94330e-01_rb, 5.90315e-01_rb, 5.86327e-01_rb, 5.82366e-01_rb, 5.78432e-01_rb, &
+     & 5.74524e-01_rb, 5.70643e-01_rb, 5.66788e-01_rb, 5.62959e-01_rb, 5.59156e-01_rb, &
+     & 5.55379e-01_rb, 5.51627e-01_rb, 5.47901e-01_rb, 5.44199e-01_rb/)
+      kao_mo3( 2, :, 6) = (/ &
+     & 6.10199e-01_rb, 6.06143e-01_rb, 6.02114e-01_rb, 5.98112e-01_rb, 5.94136e-01_rb, &
+     & 5.90187e-01_rb, 5.86264e-01_rb, 5.82367e-01_rb, 5.78496e-01_rb, 5.74651e-01_rb, &
+     & 5.70831e-01_rb, 5.67037e-01_rb, 5.63268e-01_rb, 5.59524e-01_rb, 5.55805e-01_rb, &
+     & 5.52110e-01_rb, 5.48440e-01_rb, 5.44795e-01_rb, 5.41174e-01_rb/)
+      kao_mo3( 3, :, 6) = (/ &
+     & 6.02949e-01_rb, 5.99057e-01_rb, 5.95190e-01_rb, 5.91348e-01_rb, 5.87531e-01_rb, &
+     & 5.83739e-01_rb, 5.79971e-01_rb, 5.76227e-01_rb, 5.72508e-01_rb, 5.68812e-01_rb, &
+     & 5.65140e-01_rb, 5.61493e-01_rb, 5.57868e-01_rb, 5.54267e-01_rb, 5.50690e-01_rb, &
+     & 5.47135e-01_rb, 5.43603e-01_rb, 5.40094e-01_rb, 5.36608e-01_rb/)
+      kao_mo3( 4, :, 6) = (/ &
+     & 6.05047e-01_rb, 6.01155e-01_rb, 5.97289e-01_rb, 5.93448e-01_rb, 5.89631e-01_rb, &
+     & 5.85838e-01_rb, 5.82071e-01_rb, 5.78327e-01_rb, 5.74607e-01_rb, 5.70912e-01_rb, &
+     & 5.67240e-01_rb, 5.63592e-01_rb, 5.59967e-01_rb, 5.56365e-01_rb, 5.52787e-01_rb, &
+     & 5.49232e-01_rb, 5.45699e-01_rb, 5.42190e-01_rb, 5.38703e-01_rb/)
+      kao_mo3( 5, :, 6) = (/ &
+     & 6.03593e-01_rb, 5.99867e-01_rb, 5.96164e-01_rb, 5.92483e-01_rb, 5.88825e-01_rb, &
+     & 5.85190e-01_rb, 5.81577e-01_rb, 5.77987e-01_rb, 5.74419e-01_rb, 5.70872e-01_rb, &
+     & 5.67348e-01_rb, 5.63846e-01_rb, 5.60365e-01_rb, 5.56905e-01_rb, 5.53467e-01_rb, &
+     & 5.50050e-01_rb, 5.46654e-01_rb, 5.43279e-01_rb, 5.39926e-01_rb/)
+      kao_mo3( 6, :, 6) = (/ &
+     & 6.03940e-01_rb, 6.00224e-01_rb, 5.96531e-01_rb, 5.92861e-01_rb, 5.89213e-01_rb, &
+     & 5.85588e-01_rb, 5.81985e-01_rb, 5.78404e-01_rb, 5.74845e-01_rb, 5.71308e-01_rb, &
+     & 5.67793e-01_rb, 5.64299e-01_rb, 5.60827e-01_rb, 5.57377e-01_rb, 5.53947e-01_rb, &
+     & 5.50539e-01_rb, 5.47151e-01_rb, 5.43785e-01_rb, 5.40439e-01_rb/)
+      kao_mo3( 7, :, 6) = (/ &
+     & 6.06242e-01_rb, 6.02257e-01_rb, 5.98299e-01_rb, 5.94367e-01_rb, 5.90461e-01_rb, &
+     & 5.86580e-01_rb, 5.82725e-01_rb, 5.78895e-01_rb, 5.75090e-01_rb, 5.71311e-01_rb, &
+     & 5.67556e-01_rb, 5.63826e-01_rb, 5.60120e-01_rb, 5.56439e-01_rb, 5.52782e-01_rb, &
+     & 5.49149e-01_rb, 5.45540e-01_rb, 5.41954e-01_rb, 5.38393e-01_rb/)
+      kao_mo3( 8, :, 6) = (/ &
+     & 6.11929e-01_rb, 6.07173e-01_rb, 6.02454e-01_rb, 5.97773e-01_rb, 5.93127e-01_rb, &
+     & 5.88518e-01_rb, 5.83944e-01_rb, 5.79406e-01_rb, 5.74903e-01_rb, 5.70436e-01_rb, &
+     & 5.66002e-01_rb, 5.61604e-01_rb, 5.57239e-01_rb, 5.52909e-01_rb, 5.48612e-01_rb, &
+     & 5.44349e-01_rb, 5.40118e-01_rb, 5.35921e-01_rb, 5.31756e-01_rb/)
+      kao_mo3( 9, :, 6) = (/ &
+     & 6.21189e-01_rb, 6.17338e-01_rb, 6.13511e-01_rb, 6.09707e-01_rb, 6.05927e-01_rb, &
+     & 6.02170e-01_rb, 5.98437e-01_rb, 5.94726e-01_rb, 5.91039e-01_rb, 5.87375e-01_rb, &
+     & 5.83733e-01_rb, 5.80114e-01_rb, 5.76517e-01_rb, 5.72943e-01_rb, 5.69390e-01_rb, &
+     & 5.65860e-01_rb, 5.62352e-01_rb, 5.58865e-01_rb, 5.55400e-01_rb/)
+      kao_mo3( 1, :, 7) = (/ &
+     & 7.41310e-01_rb, 7.30108e-01_rb, 7.19075e-01_rb, 7.08209e-01_rb, 6.97507e-01_rb, &
+     & 6.86967e-01_rb, 6.76586e-01_rb, 6.66362e-01_rb, 6.56292e-01_rb, 6.46374e-01_rb, &
+     & 6.36607e-01_rb, 6.26987e-01_rb, 6.17512e-01_rb, 6.08181e-01_rb, 5.98990e-01_rb, &
+     & 5.89939e-01_rb, 5.81024e-01_rb, 5.72244e-01_rb, 5.63597e-01_rb/)
+      kao_mo3( 2, :, 7) = (/ &
+     & 7.38780e-01_rb, 7.27631e-01_rb, 7.16651e-01_rb, 7.05836e-01_rb, 6.95185e-01_rb, &
+     & 6.84695e-01_rb, 6.74362e-01_rb, 6.64186e-01_rb, 6.54163e-01_rb, 6.44292e-01_rb, &
+     & 6.34569e-01_rb, 6.24993e-01_rb, 6.15562e-01_rb, 6.06273e-01_rb, 5.97124e-01_rb, &
+     & 5.88113e-01_rb, 5.79238e-01_rb, 5.70498e-01_rb, 5.61889e-01_rb/)
+      kao_mo3( 3, :, 7) = (/ &
+     & 7.33846e-01_rb, 7.22799e-01_rb, 7.11919e-01_rb, 7.01203e-01_rb, 6.90648e-01_rb, &
+     & 6.80252e-01_rb, 6.70012e-01_rb, 6.59927e-01_rb, 6.49993e-01_rb, 6.40209e-01_rb, &
+     & 6.30572e-01_rb, 6.21080e-01_rb, 6.11731e-01_rb, 6.02523e-01_rb, 5.93453e-01_rb, &
+     & 5.84520e-01_rb, 5.75721e-01_rb, 5.67055e-01_rb, 5.58519e-01_rb/)
+      kao_mo3( 4, :, 7) = (/ &
+     & 7.21218e-01_rb, 7.10492e-01_rb, 6.99926e-01_rb, 6.89517e-01_rb, 6.79262e-01_rb, &
+     & 6.69160e-01_rb, 6.59209e-01_rb, 6.49405e-01_rb, 6.39747e-01_rb, 6.30233e-01_rb, &
+     & 6.20860e-01_rb, 6.11627e-01_rb, 6.02531e-01_rb, 5.93570e-01_rb, 5.84743e-01_rb, &
+     & 5.76047e-01_rb, 5.67480e-01_rb, 5.59040e-01_rb, 5.50726e-01_rb/)
+      kao_mo3( 5, :, 7) = (/ &
+     & 7.10588e-01_rb, 7.00014e-01_rb, 6.89596e-01_rb, 6.79334e-01_rb, 6.69225e-01_rb, &
+     & 6.59266e-01_rb, 6.49455e-01_rb, 6.39790e-01_rb, 6.30269e-01_rb, 6.20889e-01_rb, &
+     & 6.11650e-01_rb, 6.02547e-01_rb, 5.93581e-01_rb, 5.84747e-01_rb, 5.76045e-01_rb, &
+     & 5.67473e-01_rb, 5.59028e-01_rb, 5.50709e-01_rb, 5.42513e-01_rb/)
+      kao_mo3( 6, :, 7) = (/ &
+     & 6.98166e-01_rb, 6.87706e-01_rb, 6.77402e-01_rb, 6.67253e-01_rb, 6.57256e-01_rb, &
+     & 6.47408e-01_rb, 6.37708e-01_rb, 6.28154e-01_rb, 6.18742e-01_rb, 6.09472e-01_rb, &
+     & 6.00340e-01_rb, 5.91346e-01_rb, 5.82486e-01_rb, 5.73758e-01_rb, 5.65162e-01_rb, &
+     & 5.56694e-01_rb, 5.48353e-01_rb, 5.40138e-01_rb, 5.32045e-01_rb/)
+      kao_mo3( 7, :, 7) = (/ &
+     & 6.76974e-01_rb, 6.67034e-01_rb, 6.57240e-01_rb, 6.47590e-01_rb, 6.38081e-01_rb, &
+     & 6.28712e-01_rb, 6.19481e-01_rb, 6.10385e-01_rb, 6.01422e-01_rb, 5.92592e-01_rb, &
+     & 5.83891e-01_rb, 5.75317e-01_rb, 5.66870e-01_rb, 5.58547e-01_rb, 5.50345e-01_rb, &
+     & 5.42265e-01_rb, 5.34303e-01_rb, 5.26457e-01_rb, 5.18727e-01_rb/)
+      kao_mo3( 8, :, 7) = (/ &
+     & 6.30061e-01_rb, 6.21017e-01_rb, 6.12102e-01_rb, 6.03316e-01_rb, 5.94656e-01_rb, &
+     & 5.86120e-01_rb, 5.77706e-01_rb, 5.69414e-01_rb, 5.61240e-01_rb, 5.53184e-01_rb, &
+     & 5.45243e-01_rb, 5.37416e-01_rb, 5.29702e-01_rb, 5.22098e-01_rb, 5.14604e-01_rb, &
+     & 5.07217e-01_rb, 4.99936e-01_rb, 4.92760e-01_rb, 4.85687e-01_rb/)
+      kao_mo3( 9, :, 7) = (/ &
+     & 8.97633e-01_rb, 8.87307e-01_rb, 8.77100e-01_rb, 8.67010e-01_rb, 8.57036e-01_rb, &
+     & 8.47176e-01_rb, 8.37431e-01_rb, 8.27797e-01_rb, 8.18274e-01_rb, 8.08861e-01_rb, &
+     & 7.99555e-01_rb, 7.90357e-01_rb, 7.81265e-01_rb, 7.72278e-01_rb, 7.63393e-01_rb, &
+     & 7.54611e-01_rb, 7.45930e-01_rb, 7.37349e-01_rb, 7.28867e-01_rb/)
+      kao_mo3( 1, :, 8) = (/ &
+     & 4.87356e-01_rb, 4.80743e-01_rb, 4.74220e-01_rb, 4.67785e-01_rb, 4.61437e-01_rb, &
+     & 4.55176e-01_rb, 4.49000e-01_rb, 4.42907e-01_rb, 4.36897e-01_rb, 4.30969e-01_rb, &
+     & 4.25121e-01_rb, 4.19353e-01_rb, 4.13663e-01_rb, 4.08049e-01_rb, 4.02513e-01_rb, &
+     & 3.97051e-01_rb, 3.91663e-01_rb, 3.86349e-01_rb, 3.81106e-01_rb/)
+      kao_mo3( 2, :, 8) = (/ &
+     & 4.86776e-01_rb, 4.80157e-01_rb, 4.73627e-01_rb, 4.67187e-01_rb, 4.60834e-01_rb, &
+     & 4.54567e-01_rb, 4.48386e-01_rb, 4.42289e-01_rb, 4.36274e-01_rb, 4.30342e-01_rb, &
+     & 4.24490e-01_rb, 4.18718e-01_rb, 4.13024e-01_rb, 4.07407e-01_rb, 4.01867e-01_rb, &
+     & 3.96403e-01_rb, 3.91012e-01_rb, 3.85695e-01_rb, 3.80450e-01_rb/)
+      kao_mo3( 3, :, 8) = (/ &
+     & 4.86111e-01_rb, 4.79496e-01_rb, 4.72972e-01_rb, 4.66536e-01_rb, 4.60188e-01_rb, &
+     & 4.53926e-01_rb, 4.47750e-01_rb, 4.41657e-01_rb, 4.35648e-01_rb, 4.29720e-01_rb, &
+     & 4.23873e-01_rb, 4.18105e-01_rb, 4.12416e-01_rb, 4.06804e-01_rb, 4.01269e-01_rb, &
+     & 3.95809e-01_rb, 3.90423e-01_rb, 3.85111e-01_rb, 3.79871e-01_rb/)
+      kao_mo3( 4, :, 8) = (/ &
+     & 4.85501e-01_rb, 4.78880e-01_rb, 4.72350e-01_rb, 4.65908e-01_rb, 4.59554e-01_rb, &
+     & 4.53288e-01_rb, 4.47106e-01_rb, 4.41009e-01_rb, 4.34995e-01_rb, 4.29063e-01_rb, &
+     & 4.23211e-01_rb, 4.17440e-01_rb, 4.11747e-01_rb, 4.06132e-01_rb, 4.00594e-01_rb, &
+     & 3.95131e-01_rb, 3.89743e-01_rb, 3.84428e-01_rb, 3.79185e-01_rb/)
+      kao_mo3( 5, :, 8) = (/ &
+     & 4.83679e-01_rb, 4.77140e-01_rb, 4.70691e-01_rb, 4.64328e-01_rb, 4.58051e-01_rb, &
+     & 4.51859e-01_rb, 4.45751e-01_rb, 4.39726e-01_rb, 4.33781e-01_rb, 4.27918e-01_rb, &
+     & 4.22133e-01_rb, 4.16427e-01_rb, 4.10798e-01_rb, 4.05245e-01_rb, 3.99767e-01_rb, &
+     & 3.94363e-01_rb, 3.89032e-01_rb, 3.83773e-01_rb, 3.78585e-01_rb/)
+      kao_mo3( 6, :, 8) = (/ &
+     & 4.72120e-01_rb, 4.65834e-01_rb, 4.59630e-01_rb, 4.53510e-01_rb, 4.47471e-01_rb, &
+     & 4.41513e-01_rb, 4.35633e-01_rb, 4.29833e-01_rb, 4.24109e-01_rb, 4.18461e-01_rb, &
+     & 4.12889e-01_rb, 4.07391e-01_rb, 4.01966e-01_rb, 3.96614e-01_rb, 3.91332e-01_rb, &
+     & 3.86122e-01_rb, 3.80980e-01_rb, 3.75907e-01_rb, 3.70901e-01_rb/)
+      kao_mo3( 7, :, 8) = (/ &
+     & 4.58683e-01_rb, 4.52758e-01_rb, 4.46909e-01_rb, 4.41135e-01_rb, 4.35437e-01_rb, &
+     & 4.29812e-01_rb, 4.24259e-01_rb, 4.18779e-01_rb, 4.13369e-01_rb, 4.08029e-01_rb, &
+     & 4.02758e-01_rb, 3.97555e-01_rb, 3.92419e-01_rb, 3.87350e-01_rb, 3.82346e-01_rb, &
+     & 3.77406e-01_rb, 3.72531e-01_rb, 3.67719e-01_rb, 3.62968e-01_rb/)
+      kao_mo3( 8, :, 8) = (/ &
+     & 4.56091e-01_rb, 4.50481e-01_rb, 4.44940e-01_rb, 4.39467e-01_rb, 4.34062e-01_rb, &
+     & 4.28722e-01_rb, 4.23449e-01_rb, 4.18240e-01_rb, 4.13096e-01_rb, 4.08015e-01_rb, &
+     & 4.02996e-01_rb, 3.98039e-01_rb, 3.93143e-01_rb, 3.88307e-01_rb, 3.83531e-01_rb, &
+     & 3.78813e-01_rb, 3.74154e-01_rb, 3.69552e-01_rb, 3.65006e-01_rb/)
+      kao_mo3( 9, :, 8) = (/ &
+     & 9.11213e-01_rb, 9.03270e-01_rb, 8.95396e-01_rb, 8.87591e-01_rb, 8.79855e-01_rb, &
+     & 8.72185e-01_rb, 8.64583e-01_rb, 8.57046e-01_rb, 8.49576e-01_rb, 8.42170e-01_rb, &
+     & 8.34829e-01_rb, 8.27552e-01_rb, 8.20339e-01_rb, 8.13188e-01_rb, 8.06100e-01_rb, &
+     & 7.99073e-01_rb, 7.92108e-01_rb, 7.85204e-01_rb, 7.78359e-01_rb/)
+      kao_mo3( 1, :, 9) = (/ &
+     & 5.56194e-01_rb, 5.48595e-01_rb, 5.41100e-01_rb, 5.33707e-01_rb, 5.26415e-01_rb, &
+     & 5.19223e-01_rb, 5.12129e-01_rb, 5.05132e-01_rb, 4.98231e-01_rb, 4.91424e-01_rb, &
+     & 4.84710e-01_rb, 4.78087e-01_rb, 4.71556e-01_rb, 4.65113e-01_rb, 4.58758e-01_rb, &
+     & 4.52491e-01_rb, 4.46309e-01_rb, 4.40211e-01_rb, 4.34197e-01_rb/)
+      kao_mo3( 2, :, 9) = (/ &
+     & 5.56174e-01_rb, 5.48575e-01_rb, 5.41079e-01_rb, 5.33687e-01_rb, 5.26395e-01_rb, &
+     & 5.19203e-01_rb, 5.12109e-01_rb, 5.05112e-01_rb, 4.98211e-01_rb, 4.91404e-01_rb, &
+     & 4.84690e-01_rb, 4.78068e-01_rb, 4.71536e-01_rb, 4.65093e-01_rb, 4.58739e-01_rb, &
+     & 4.52471e-01_rb, 4.46289e-01_rb, 4.40191e-01_rb, 4.34177e-01_rb/)
+      kao_mo3( 3, :, 9) = (/ &
+     & 5.55996e-01_rb, 5.48403e-01_rb, 5.40913e-01_rb, 5.33526e-01_rb, 5.26239e-01_rb, &
+     & 5.19052e-01_rb, 5.11963e-01_rb, 5.04971e-01_rb, 4.98074e-01_rb, 4.91272e-01_rb, &
+     & 4.84562e-01_rb, 4.77944e-01_rb, 4.71417e-01_rb, 4.64978e-01_rb, 4.58628e-01_rb, &
+     & 4.52364e-01_rb, 4.46186e-01_rb, 4.40092e-01_rb, 4.34081e-01_rb/)
+      kao_mo3( 4, :, 9) = (/ &
+     & 5.55859e-01_rb, 5.48271e-01_rb, 5.40786e-01_rb, 5.33404e-01_rb, 5.26123e-01_rb, &
+     & 5.18941e-01_rb, 5.11856e-01_rb, 5.04869e-01_rb, 4.97977e-01_rb, 4.91179e-01_rb, &
+     & 4.84474e-01_rb, 4.77861e-01_rb, 4.71337e-01_rb, 4.64903e-01_rb, 4.58557e-01_rb, &
+     & 4.52297e-01_rb, 4.46123e-01_rb, 4.40033e-01_rb, 4.34026e-01_rb/)
+      kao_mo3( 5, :, 9) = (/ &
+     & 5.54550e-01_rb, 5.46921e-01_rb, 5.39397e-01_rb, 5.31976e-01_rb, 5.24657e-01_rb, &
+     & 5.17439e-01_rb, 5.10320e-01_rb, 5.03300e-01_rb, 4.96376e-01_rb, 4.89547e-01_rb, &
+     & 4.82812e-01_rb, 4.76170e-01_rb, 4.69619e-01_rb, 4.63158e-01_rb, 4.56786e-01_rb, &
+     & 4.50502e-01_rb, 4.44304e-01_rb, 4.38192e-01_rb, 4.32163e-01_rb/)
+      kao_mo3( 6, :, 9) = (/ &
+     & 5.53514e-01_rb, 5.45883e-01_rb, 5.38358e-01_rb, 5.30937e-01_rb, 5.23618e-01_rb, &
+     & 5.16399e-01_rb, 5.09280e-01_rb, 5.02260e-01_rb, 4.95336e-01_rb, 4.88507e-01_rb, &
+     & 4.81773e-01_rb, 4.75132e-01_rb, 4.68582e-01_rb, 4.62122e-01_rb, 4.55752e-01_rb, &
+     & 4.49469e-01_rb, 4.43273e-01_rb, 4.37162e-01_rb, 4.31136e-01_rb/)
+      kao_mo3( 7, :, 9) = (/ &
+     & 5.49865e-01_rb, 5.42303e-01_rb, 5.34846e-01_rb, 5.27491e-01_rb, 5.20237e-01_rb, &
+     & 5.13084e-01_rb, 5.06028e-01_rb, 4.99070e-01_rb, 4.92207e-01_rb, 4.85438e-01_rb, &
+     & 4.78763e-01_rb, 4.72179e-01_rb, 4.65686e-01_rb, 4.59282e-01_rb, 4.52967e-01_rb, &
+     & 4.46738e-01_rb, 4.40595e-01_rb, 4.34536e-01_rb, 4.28561e-01_rb/)
+      kao_mo3( 8, :, 9) = (/ &
+     & 5.25435e-01_rb, 5.18437e-01_rb, 5.11533e-01_rb, 5.04721e-01_rb, 4.97999e-01_rb, &
+     & 4.91367e-01_rb, 4.84823e-01_rb, 4.78366e-01_rb, 4.71996e-01_rb, 4.65710e-01_rb, &
+     & 4.59508e-01_rb, 4.53388e-01_rb, 4.47350e-01_rb, 4.41393e-01_rb, 4.35515e-01_rb, &
+     & 4.29715e-01_rb, 4.23992e-01_rb, 4.18345e-01_rb, 4.12774e-01_rb/)
+      kao_mo3( 9, :, 9) = (/ &
+     & 3.48228e-01_rb, 3.45949e-01_rb, 3.43686e-01_rb, 3.41437e-01_rb, 3.39203e-01_rb, &
+     & 3.36983e-01_rb, 3.34778e-01_rb, 3.32588e-01_rb, 3.30412e-01_rb, 3.28250e-01_rb, &
+     & 3.26102e-01_rb, 3.23968e-01_rb, 3.21848e-01_rb, 3.19742e-01_rb, 3.17650e-01_rb, &
+     & 3.15572e-01_rb, 3.13507e-01_rb, 3.11456e-01_rb, 3.09418e-01_rb/)
+      kao_mo3( 1, :,10) = (/ &
+     & 8.34107e-01_rb, 8.27276e-01_rb, 8.20501e-01_rb, 8.13781e-01_rb, 8.07117e-01_rb, &
+     & 8.00507e-01_rb, 7.93951e-01_rb, 7.87449e-01_rb, 7.81000e-01_rb, 7.74604e-01_rb, &
+     & 7.68260e-01_rb, 7.61968e-01_rb, 7.55728e-01_rb, 7.49539e-01_rb, 7.43400e-01_rb, &
+     & 7.37312e-01_rb, 7.31274e-01_rb, 7.25285e-01_rb, 7.19345e-01_rb/)
+      kao_mo3( 2, :,10) = (/ &
+     & 8.32838e-01_rb, 8.26022e-01_rb, 8.19263e-01_rb, 8.12558e-01_rb, 8.05908e-01_rb, &
+     & 7.99313e-01_rb, 7.92772e-01_rb, 7.86284e-01_rb, 7.79849e-01_rb, 7.73467e-01_rb, &
+     & 7.67137e-01_rb, 7.60859e-01_rb, 7.54633e-01_rb, 7.48457e-01_rb, 7.42332e-01_rb, &
+     & 7.36257e-01_rb, 7.30232e-01_rb, 7.24256e-01_rb, 7.18329e-01_rb/)
+      kao_mo3( 3, :,10) = (/ &
+     & 8.31167e-01_rb, 8.24361e-01_rb, 8.17611e-01_rb, 8.10916e-01_rb, 8.04276e-01_rb, &
+     & 7.97691e-01_rb, 7.91159e-01_rb, 7.84681e-01_rb, 7.78256e-01_rb, 7.71883e-01_rb, &
+     & 7.65563e-01_rb, 7.59294e-01_rb, 7.53077e-01_rb, 7.46910e-01_rb, 7.40795e-01_rb, &
+     & 7.34729e-01_rb, 7.28713e-01_rb, 7.22746e-01_rb, 7.16828e-01_rb/)
+      kao_mo3( 4, :,10) = (/ &
+     & 8.29026e-01_rb, 8.22246e-01_rb, 8.15521e-01_rb, 8.08851e-01_rb, 8.02236e-01_rb, &
+     & 7.95675e-01_rb, 7.89167e-01_rb, 7.82713e-01_rb, 7.76312e-01_rb, 7.69962e-01_rb, &
+     & 7.63665e-01_rb, 7.57419e-01_rb, 7.51225e-01_rb, 7.45081e-01_rb, 7.38987e-01_rb, &
+     & 7.32943e-01_rb, 7.26949e-01_rb, 7.21003e-01_rb, 7.15107e-01_rb/)
+      kao_mo3( 5, :,10) = (/ &
+     & 8.26226e-01_rb, 8.19471e-01_rb, 8.12771e-01_rb, 8.06126e-01_rb, 7.99536e-01_rb, &
+     & 7.92999e-01_rb, 7.86515e-01_rb, 7.80085e-01_rb, 7.73707e-01_rb, 7.67382e-01_rb, &
+     & 7.61108e-01_rb, 7.54885e-01_rb, 7.48714e-01_rb, 7.42592e-01_rb, 7.36521e-01_rb, &
+     & 7.30500e-01_rb, 7.24527e-01_rb, 7.18604e-01_rb, 7.12729e-01_rb/)
+      kao_mo3( 6, :,10) = (/ &
+     & 8.33246e-01_rb, 8.26510e-01_rb, 8.19828e-01_rb, 8.13200e-01_rb, 8.06626e-01_rb, &
+     & 8.00105e-01_rb, 7.93637e-01_rb, 7.87221e-01_rb, 7.80856e-01_rb, 7.74544e-01_rb, &
+     & 7.68282e-01_rb, 7.62071e-01_rb, 7.55910e-01_rb, 7.49799e-01_rb, 7.43737e-01_rb, &
+     & 7.37725e-01_rb, 7.31760e-01_rb, 7.25845e-01_rb, 7.19977e-01_rb/)
+      kao_mo3( 7, :,10) = (/ &
+     & 8.45693e-01_rb, 8.38967e-01_rb, 8.32295e-01_rb, 8.25675e-01_rb, 8.19108e-01_rb, &
+     & 8.12594e-01_rb, 8.06131e-01_rb, 7.99719e-01_rb, 7.93359e-01_rb, 7.87049e-01_rb, &
+     & 7.80789e-01_rb, 7.74579e-01_rb, 7.68419e-01_rb, 7.62307e-01_rb, 7.56244e-01_rb, &
+     & 7.50230e-01_rb, 7.44263e-01_rb, 7.38343e-01_rb, 7.32471e-01_rb/)
+      kao_mo3( 8, :,10) = (/ &
+     & 8.32139e-01_rb, 8.25565e-01_rb, 8.19044e-01_rb, 8.12574e-01_rb, 8.06156e-01_rb, &
+     & 7.99788e-01_rb, 7.93470e-01_rb, 7.87202e-01_rb, 7.80984e-01_rb, 7.74815e-01_rb, &
+     & 7.68694e-01_rb, 7.62622e-01_rb, 7.56598e-01_rb, 7.50622e-01_rb, 7.44692e-01_rb, &
+     & 7.38810e-01_rb, 7.32974e-01_rb, 7.27184e-01_rb, 7.21440e-01_rb/)
+      kao_mo3( 9, :,10) = (/ &
+     & 2.34258e-01_rb, 2.35247e-01_rb, 2.36239e-01_rb, 2.37236e-01_rb, 2.38237e-01_rb, &
+     & 2.39242e-01_rb, 2.40252e-01_rb, 2.41265e-01_rb, 2.42283e-01_rb, 2.43306e-01_rb, &
+     & 2.44332e-01_rb, 2.45363e-01_rb, 2.46398e-01_rb, 2.47438e-01_rb, 2.48482e-01_rb, &
+     & 2.49531e-01_rb, 2.50583e-01_rb, 2.51641e-01_rb, 2.52702e-01_rb/)
+      kao_mo3( 1, :,11) = (/ &
+     & 8.31308e-01_rb, 8.22153e-01_rb, 8.13098e-01_rb, 8.04143e-01_rb, 7.95287e-01_rb, &
+     & 7.86528e-01_rb, 7.77866e-01_rb, 7.69299e-01_rb, 7.60827e-01_rb, 7.52448e-01_rb, &
+     & 7.44161e-01_rb, 7.35965e-01_rb, 7.27860e-01_rb, 7.19844e-01_rb, 7.11916e-01_rb, &
+     & 7.04075e-01_rb, 6.96321e-01_rb, 6.88652e-01_rb, 6.81068e-01_rb/)
+      kao_mo3( 2, :,11) = (/ &
+     & 8.31577e-01_rb, 8.22400e-01_rb, 8.13324e-01_rb, 8.04349e-01_rb, 7.95472e-01_rb, &
+     & 7.86693e-01_rb, 7.78011e-01_rb, 7.69425e-01_rb, 7.60934e-01_rb, 7.52537e-01_rb, &
+     & 7.44232e-01_rb, 7.36019e-01_rb, 7.27896e-01_rb, 7.19863e-01_rb, 7.11919e-01_rb, &
+     & 7.04062e-01_rb, 6.96292e-01_rb, 6.88608e-01_rb, 6.81009e-01_rb/)
+      kao_mo3( 3, :,11) = (/ &
+     & 8.31578e-01_rb, 8.22422e-01_rb, 8.13368e-01_rb, 8.04413e-01_rb, 7.95557e-01_rb, &
+     & 7.86798e-01_rb, 7.78136e-01_rb, 7.69569e-01_rb, 7.61097e-01_rb, 7.52717e-01_rb, &
+     & 7.44430e-01_rb, 7.36235e-01_rb, 7.28129e-01_rb, 7.20113e-01_rb, 7.12185e-01_rb, &
+     & 7.04344e-01_rb, 6.96589e-01_rb, 6.88920e-01_rb, 6.81336e-01_rb/)
+      kao_mo3( 4, :,11) = (/ &
+     & 8.31261e-01_rb, 8.22111e-01_rb, 8.13062e-01_rb, 8.04112e-01_rb, 7.95261e-01_rb, &
+     & 7.86507e-01_rb, 7.77850e-01_rb, 7.69288e-01_rb, 7.60820e-01_rb, 7.52445e-01_rb, &
+     & 7.44163e-01_rb, 7.35971e-01_rb, 7.27870e-01_rb, 7.19858e-01_rb, 7.11935e-01_rb, &
+     & 7.04098e-01_rb, 6.96348e-01_rb, 6.88683e-01_rb, 6.81102e-01_rb/)
+      kao_mo3( 5, :,11) = (/ &
+     & 8.31565e-01_rb, 8.22404e-01_rb, 8.13344e-01_rb, 8.04384e-01_rb, 7.95523e-01_rb, &
+     & 7.86760e-01_rb, 7.78092e-01_rb, 7.69521e-01_rb, 7.61044e-01_rb, 7.52660e-01_rb, &
+     & 7.44368e-01_rb, 7.36168e-01_rb, 7.28058e-01_rb, 7.20038e-01_rb, 7.12106e-01_rb, &
+     & 7.04261e-01_rb, 6.96503e-01_rb, 6.88830e-01_rb, 6.81242e-01_rb/)
+      kao_mo3( 6, :,11) = (/ &
+     & 8.17636e-01_rb, 8.08497e-01_rb, 7.99461e-01_rb, 7.90525e-01_rb, 7.81690e-01_rb, &
+     & 7.72953e-01_rb, 7.64314e-01_rb, 7.55771e-01_rb, 7.47324e-01_rb, 7.38971e-01_rb, &
+     & 7.30712e-01_rb, 7.22545e-01_rb, 7.14469e-01_rb, 7.06483e-01_rb, 6.98587e-01_rb, &
+     & 6.90779e-01_rb, 6.83058e-01_rb, 6.75424e-01_rb, 6.67875e-01_rb/)
+      kao_mo3( 7, :,11) = (/ &
+     & 7.95247e-01_rb, 7.86140e-01_rb, 7.77137e-01_rb, 7.68238e-01_rb, 7.59440e-01_rb, &
+     & 7.50743e-01_rb, 7.42145e-01_rb, 7.33646e-01_rb, 7.25245e-01_rb, 7.16939e-01_rb, &
+     & 7.08729e-01_rb, 7.00612e-01_rb, 6.92589e-01_rb, 6.84658e-01_rb, 6.76817e-01_rb, &
+     & 6.69066e-01_rb, 6.61404e-01_rb, 6.53830e-01_rb, 6.46342e-01_rb/)
+      kao_mo3( 8, :,11) = (/ &
+     & 7.63069e-01_rb, 7.54006e-01_rb, 7.45051e-01_rb, 7.36202e-01_rb, 7.27458e-01_rb, &
+     & 7.18818e-01_rb, 7.10281e-01_rb, 7.01845e-01_rb, 6.93509e-01_rb, 6.85272e-01_rb, &
+     & 6.77133e-01_rb, 6.69091e-01_rb, 6.61144e-01_rb, 6.53292e-01_rb, 6.45533e-01_rb, &
+     & 6.37866e-01_rb, 6.30290e-01_rb, 6.22804e-01_rb, 6.15407e-01_rb/)
+      kao_mo3( 9, :,11) = (/ &
+     & 2.03255e-01_rb, 2.03004e-01_rb, 2.02753e-01_rb, 2.02502e-01_rb, 2.02252e-01_rb, &
+     & 2.02001e-01_rb, 2.01752e-01_rb, 2.01502e-01_rb, 2.01253e-01_rb, 2.01004e-01_rb, &
+     & 2.00755e-01_rb, 2.00507e-01_rb, 2.00259e-01_rb, 2.00011e-01_rb, 1.99764e-01_rb, &
+     & 1.99517e-01_rb, 1.99270e-01_rb, 1.99024e-01_rb, 1.98777e-01_rb/)
+      kao_mo3( 1, :,12) = (/ &
+     & 4.13201e-01_rb, 4.05258e-01_rb, 3.97468e-01_rb, 3.89828e-01_rb, 3.82334e-01_rb, &
+     & 3.74985e-01_rb, 3.67777e-01_rb, 3.60707e-01_rb, 3.53774e-01_rb, 3.46973e-01_rb, &
+     & 3.40303e-01_rb, 3.33762e-01_rb, 3.27346e-01_rb, 3.21054e-01_rb, 3.14882e-01_rb, &
+     & 3.08829e-01_rb, 3.02893e-01_rb, 2.97071e-01_rb, 2.91360e-01_rb/)
+      kao_mo3( 2, :,12) = (/ &
+     & 4.12835e-01_rb, 4.04897e-01_rb, 3.97112e-01_rb, 3.89477e-01_rb, 3.81988e-01_rb, &
+     & 3.74644e-01_rb, 3.67440e-01_rb, 3.60376e-01_rb, 3.53447e-01_rb, 3.46651e-01_rb, &
+     & 3.39986e-01_rb, 3.33449e-01_rb, 3.27038e-01_rb, 3.20750e-01_rb, 3.14582e-01_rb, &
+     & 3.08534e-01_rb, 3.02602e-01_rb, 2.96784e-01_rb, 2.91077e-01_rb/)
+      kao_mo3( 3, :,12) = (/ &
+     & 4.13023e-01_rb, 4.05079e-01_rb, 3.97289e-01_rb, 3.89648e-01_rb, 3.82155e-01_rb, &
+     & 3.74805e-01_rb, 3.67597e-01_rb, 3.60527e-01_rb, 3.53594e-01_rb, 3.46793e-01_rb, &
+     & 3.40124e-01_rb, 3.33583e-01_rb, 3.27167e-01_rb, 3.20875e-01_rb, 3.14704e-01_rb, &
+     & 3.08652e-01_rb, 3.02716e-01_rb, 2.96894e-01_rb, 2.91184e-01_rb/)
+      kao_mo3( 4, :,12) = (/ &
+     & 4.13397e-01_rb, 4.05437e-01_rb, 3.97630e-01_rb, 3.89973e-01_rb, 3.82463e-01_rb, &
+     & 3.75099e-01_rb, 3.67876e-01_rb, 3.60792e-01_rb, 3.53844e-01_rb, 3.47031e-01_rb, &
+     & 3.40348e-01_rb, 3.33794e-01_rb, 3.27367e-01_rb, 3.21063e-01_rb, 3.14880e-01_rb, &
+     & 3.08817e-01_rb, 3.02870e-01_rb, 2.97038e-01_rb, 2.91318e-01_rb/)
+      kao_mo3( 5, :,12) = (/ &
+     & 4.13043e-01_rb, 4.05106e-01_rb, 3.97321e-01_rb, 3.89686e-01_rb, 3.82198e-01_rb, &
+     & 3.74854e-01_rb, 3.67651e-01_rb, 3.60586e-01_rb, 3.53657e-01_rb, 3.46861e-01_rb, &
+     & 3.40195e-01_rb, 3.33658e-01_rb, 3.27246e-01_rb, 3.20958e-01_rb, 3.14790e-01_rb, &
+     & 3.08741e-01_rb, 3.02808e-01_rb, 2.96990e-01_rb, 2.91283e-01_rb/)
+      kao_mo3( 6, :,12) = (/ &
+     & 4.13151e-01_rb, 4.05202e-01_rb, 3.97406e-01_rb, 3.89760e-01_rb, 3.82261e-01_rb, &
+     & 3.74906e-01_rb, 3.67693e-01_rb, 3.60619e-01_rb, 3.53680e-01_rb, 3.46876e-01_rb, &
+     & 3.40202e-01_rb, 3.33656e-01_rb, 3.27237e-01_rb, 3.20941e-01_rb, 3.14766e-01_rb, &
+     & 3.08710e-01_rb, 3.02770e-01_rb, 2.96945e-01_rb, 2.91232e-01_rb/)
+      kao_mo3( 7, :,12) = (/ &
+     & 4.13052e-01_rb, 4.05109e-01_rb, 3.97319e-01_rb, 3.89678e-01_rb, 3.82185e-01_rb, &
+     & 3.74835e-01_rb, 3.67627e-01_rb, 3.60557e-01_rb, 3.53624e-01_rb, 3.46823e-01_rb, &
+     & 3.40154e-01_rb, 3.33612e-01_rb, 3.27197e-01_rb, 3.20905e-01_rb, 3.14734e-01_rb, &
+     & 3.08681e-01_rb, 3.02745e-01_rb, 2.96923e-01_rb, 2.91213e-01_rb/)
+      kao_mo3( 8, :,12) = (/ &
+     & 4.13152e-01_rb, 4.05209e-01_rb, 3.97418e-01_rb, 3.89778e-01_rb, 3.82284e-01_rb, &
+     & 3.74935e-01_rb, 3.67727e-01_rb, 3.60657e-01_rb, 3.53723e-01_rb, 3.46923e-01_rb, &
+     & 3.40253e-01_rb, 3.33712e-01_rb, 3.27296e-01_rb, 3.21004e-01_rb, 3.14833e-01_rb, &
+     & 3.08780e-01_rb, 3.02844e-01_rb, 2.97021e-01_rb, 2.91311e-01_rb/)
+      kao_mo3( 9, :,12) = (/ &
+     & 1.31008e-01_rb, 1.30607e-01_rb, 1.30208e-01_rb, 1.29810e-01_rb, 1.29413e-01_rb, &
+     & 1.29017e-01_rb, 1.28623e-01_rb, 1.28229e-01_rb, 1.27837e-01_rb, 1.27446e-01_rb, &
+     & 1.27056e-01_rb, 1.26668e-01_rb, 1.26280e-01_rb, 1.25894e-01_rb, 1.25509e-01_rb, &
+     & 1.25125e-01_rb, 1.24743e-01_rb, 1.24361e-01_rb, 1.23981e-01_rb/)
+      kao_mo3( 1, :,13) = (/ &
+     & 4.66826e-01_rb, 4.71437e-01_rb, 4.76094e-01_rb, 4.80798e-01_rb, 4.85547e-01_rb, &
+     & 4.90344e-01_rb, 4.95187e-01_rb, 5.00079e-01_rb, 5.05019e-01_rb, 5.10008e-01_rb, &
+     & 5.15046e-01_rb, 5.20134e-01_rb, 5.25272e-01_rb, 5.30461e-01_rb, 5.35701e-01_rb, &
+     & 5.40993e-01_rb, 5.46338e-01_rb, 5.51735e-01_rb, 5.57185e-01_rb/)
+      kao_mo3( 2, :,13) = (/ &
+     & 4.66579e-01_rb, 4.71199e-01_rb, 4.75865e-01_rb, 4.80577e-01_rb, 4.85336e-01_rb, &
+     & 4.90141e-01_rb, 4.94995e-01_rb, 4.99896e-01_rb, 5.04846e-01_rb, 5.09845e-01_rb, &
+     & 5.14893e-01_rb, 5.19992e-01_rb, 5.25141e-01_rb, 5.30340e-01_rb, 5.35592e-01_rb, &
+     & 5.40895e-01_rb, 5.46251e-01_rb, 5.51660e-01_rb, 5.57122e-01_rb/)
+      kao_mo3( 3, :,13) = (/ &
+     & 4.66956e-01_rb, 4.71567e-01_rb, 4.76224e-01_rb, 4.80927e-01_rb, 4.85677e-01_rb, &
+     & 4.90474e-01_rb, 4.95318e-01_rb, 5.00209e-01_rb, 5.05149e-01_rb, 5.10138e-01_rb, &
+     & 5.15176e-01_rb, 5.20264e-01_rb, 5.25402e-01_rb, 5.30591e-01_rb, 5.35831e-01_rb, &
+     & 5.41123e-01_rb, 5.46467e-01_rb, 5.51864e-01_rb, 5.57314e-01_rb/)
+      kao_mo3( 4, :,13) = (/ &
+     & 4.66456e-01_rb, 4.71080e-01_rb, 4.75750e-01_rb, 4.80467e-01_rb, 4.85230e-01_rb, &
+     & 4.90040e-01_rb, 4.94898e-01_rb, 4.99804e-01_rb, 5.04759e-01_rb, 5.09763e-01_rb, &
+     & 5.14817e-01_rb, 5.19920e-01_rb, 5.25075e-01_rb, 5.30280e-01_rb, 5.35537e-01_rb, &
+     & 5.40846e-01_rb, 5.46208e-01_rb, 5.51622e-01_rb, 5.57091e-01_rb/)
+      kao_mo3( 5, :,13) = (/ &
+     & 4.66853e-01_rb, 4.71456e-01_rb, 4.76104e-01_rb, 4.80798e-01_rb, 4.85539e-01_rb, &
+     & 4.90326e-01_rb, 4.95160e-01_rb, 5.00042e-01_rb, 5.04973e-01_rb, 5.09952e-01_rb, &
+     & 5.14979e-01_rb, 5.20057e-01_rb, 5.25185e-01_rb, 5.30363e-01_rb, 5.35592e-01_rb, &
+     & 5.40873e-01_rb, 5.46205e-01_rb, 5.51591e-01_rb, 5.57029e-01_rb/)
+      kao_mo3( 6, :,13) = (/ &
+     & 4.66832e-01_rb, 4.71448e-01_rb, 4.76110e-01_rb, 4.80817e-01_rb, 4.85571e-01_rb, &
+     & 4.90372e-01_rb, 4.95221e-01_rb, 5.00118e-01_rb, 5.05063e-01_rb, 5.10056e-01_rb, &
+     & 5.15100e-01_rb, 5.20193e-01_rb, 5.25336e-01_rb, 5.30531e-01_rb, 5.35776e-01_rb, &
+     & 5.41074e-01_rb, 5.46424e-01_rb, 5.51826e-01_rb, 5.57283e-01_rb/)
+      kao_mo3( 7, :,13) = (/ &
+     & 4.66679e-01_rb, 4.71299e-01_rb, 4.75965e-01_rb, 4.80677e-01_rb, 4.85436e-01_rb, &
+     & 4.90241e-01_rb, 4.95095e-01_rb, 4.99996e-01_rb, 5.04946e-01_rb, 5.09945e-01_rb, &
+     & 5.14993e-01_rb, 5.20092e-01_rb, 5.25240e-01_rb, 5.30440e-01_rb, 5.35692e-01_rb, &
+     & 5.40995e-01_rb, 5.46351e-01_rb, 5.51759e-01_rb, 5.57222e-01_rb/)
+      kao_mo3( 8, :,13) = (/ &
+     & 4.66982e-01_rb, 4.71598e-01_rb, 4.76260e-01_rb, 4.80967e-01_rb, 4.85721e-01_rb, &
+     & 4.90522e-01_rb, 4.95371e-01_rb, 5.00268e-01_rb, 5.05213e-01_rb, 5.10206e-01_rb, &
+     & 5.15250e-01_rb, 5.20343e-01_rb, 5.25486e-01_rb, 5.30680e-01_rb, 5.35926e-01_rb, &
+     & 5.41223e-01_rb, 5.46573e-01_rb, 5.51976e-01_rb, 5.57432e-01_rb/)
+      kao_mo3( 9, :,13) = (/ &
+     & 1.13709e-01_rb, 1.13141e-01_rb, 1.12576e-01_rb, 1.12013e-01_rb, 1.11453e-01_rb, &
+     & 1.10897e-01_rb, 1.10342e-01_rb, 1.09791e-01_rb, 1.09242e-01_rb, 1.08696e-01_rb, &
+     & 1.08153e-01_rb, 1.07613e-01_rb, 1.07075e-01_rb, 1.06540e-01_rb, 1.06007e-01_rb, &
+     & 1.05478e-01_rb, 1.04951e-01_rb, 1.04426e-01_rb, 1.03904e-01_rb/)
+      kao_mo3( 1, :,14) = (/ &
+     & 5.67608e-01_rb, 5.55796e-01_rb, 5.44230e-01_rb, 5.32904e-01_rb, 5.21814e-01_rb, &
+     & 5.10955e-01_rb, 5.00322e-01_rb, 4.89910e-01_rb, 4.79714e-01_rb, 4.69731e-01_rb, &
+     & 4.59956e-01_rb, 4.50384e-01_rb, 4.41011e-01_rb, 4.31834e-01_rb, 4.22847e-01_rb, &
+     & 4.14048e-01_rb, 4.05431e-01_rb, 3.96994e-01_rb, 3.88732e-01_rb/)
+      kao_mo3( 2, :,14) = (/ &
+     & 5.67766e-01_rb, 5.55948e-01_rb, 5.44376e-01_rb, 5.33045e-01_rb, 5.21950e-01_rb, &
+     & 5.11086e-01_rb, 5.00448e-01_rb, 4.90031e-01_rb, 4.79831e-01_rb, 4.69844e-01_rb, &
+     & 4.60064e-01_rb, 4.50488e-01_rb, 4.41111e-01_rb, 4.31930e-01_rb, 4.22939e-01_rb, &
+     & 4.14136e-01_rb, 4.05516e-01_rb, 3.97075e-01_rb, 3.88810e-01_rb/)
+      kao_mo3( 3, :,14) = (/ &
+     & 5.67460e-01_rb, 5.55647e-01_rb, 5.44080e-01_rb, 5.32754e-01_rb, 5.21664e-01_rb, &
+     & 5.10805e-01_rb, 5.00172e-01_rb, 4.89760e-01_rb, 4.79564e-01_rb, 4.69582e-01_rb, &
+     & 4.59806e-01_rb, 4.50235e-01_rb, 4.40862e-01_rb, 4.31685e-01_rb, 4.22699e-01_rb, &
+     & 4.13900e-01_rb, 4.05284e-01_rb, 3.96847e-01_rb, 3.88586e-01_rb/)
+      kao_mo3( 4, :,14) = (/ &
+     & 5.67925e-01_rb, 5.56107e-01_rb, 5.44536e-01_rb, 5.33205e-01_rb, 5.22110e-01_rb, &
+     & 5.11246e-01_rb, 5.00608e-01_rb, 4.90191e-01_rb, 4.79991e-01_rb, 4.70004e-01_rb, &
+     & 4.60224e-01_rb, 4.50647e-01_rb, 4.41270e-01_rb, 4.32088e-01_rb, 4.23097e-01_rb, &
+     & 4.14293e-01_rb, 4.05673e-01_rb, 3.97231e-01_rb, 3.88966e-01_rb/)
+      kao_mo3( 5, :,14) = (/ &
+     & 5.67520e-01_rb, 5.55733e-01_rb, 5.44190e-01_rb, 5.32887e-01_rb, 5.21818e-01_rb, &
+     & 5.10980e-01_rb, 5.00366e-01_rb, 4.89974e-01_rb, 4.79797e-01_rb, 4.69831e-01_rb, &
+     & 4.60072e-01_rb, 4.50516e-01_rb, 4.41159e-01_rb, 4.31996e-01_rb, 4.23023e-01_rb, &
+     & 4.14236e-01_rb, 4.05633e-01_rb, 3.97207e-01_rb, 3.88957e-01_rb/)
+      kao_mo3( 6, :,14) = (/ &
+     & 5.67549e-01_rb, 5.55749e-01_rb, 5.44195e-01_rb, 5.32880e-01_rb, 5.21801e-01_rb, &
+     & 5.10952e-01_rb, 5.00329e-01_rb, 4.89927e-01_rb, 4.79740e-01_rb, 4.69766e-01_rb, &
+     & 4.59999e-01_rb, 4.50435e-01_rb, 4.41070e-01_rb, 4.31900e-01_rb, 4.22920e-01_rb, &
+     & 4.14127e-01_rb, 4.05517e-01_rb, 3.97086e-01_rb, 3.88830e-01_rb/)
+      kao_mo3( 7, :,14) = (/ &
+     & 5.67727e-01_rb, 5.55909e-01_rb, 5.44337e-01_rb, 5.33005e-01_rb, 5.21910e-01_rb, &
+     & 5.11046e-01_rb, 5.00408e-01_rb, 4.89991e-01_rb, 4.79791e-01_rb, 4.69804e-01_rb, &
+     & 4.60024e-01_rb, 4.50448e-01_rb, 4.41071e-01_rb, 4.31890e-01_rb, 4.22900e-01_rb, &
+     & 4.14096e-01_rb, 4.05476e-01_rb, 3.97036e-01_rb, 3.88771e-01_rb/)
+      kao_mo3( 8, :,14) = (/ &
+     & 5.67795e-01_rb, 5.55965e-01_rb, 5.44381e-01_rb, 5.33039e-01_rb, 5.21933e-01_rb, &
+     & 5.11058e-01_rb, 5.00410e-01_rb, 4.89984e-01_rb, 4.79775e-01_rb, 4.69779e-01_rb, &
+     & 4.59991e-01_rb, 4.50407e-01_rb, 4.41023e-01_rb, 4.31834e-01_rb, 4.22836e-01_rb, &
+     & 4.14026e-01_rb, 4.05400e-01_rb, 3.96953e-01_rb, 3.88683e-01_rb/)
+      kao_mo3( 9, :,14) = (/ &
+     & 1.32957e-01_rb, 1.31737e-01_rb, 1.30528e-01_rb, 1.29330e-01_rb, 1.28143e-01_rb, &
+     & 1.26967e-01_rb, 1.25802e-01_rb, 1.24648e-01_rb, 1.23504e-01_rb, 1.22370e-01_rb, &
+     & 1.21247e-01_rb, 1.20135e-01_rb, 1.19032e-01_rb, 1.17940e-01_rb, 1.16857e-01_rb, &
+     & 1.15785e-01_rb, 1.14722e-01_rb, 1.13669e-01_rb, 1.12626e-01_rb/)
+      kao_mo3( 1, :,15) = (/ &
+     & 1.51281e-01_rb, 1.53439e-01_rb, 1.55628e-01_rb, 1.57848e-01_rb, 1.60100e-01_rb, &
+     & 1.62384e-01_rb, 1.64700e-01_rb, 1.67049e-01_rb, 1.69432e-01_rb, 1.71849e-01_rb, &
+     & 1.74301e-01_rb, 1.76787e-01_rb, 1.79309e-01_rb, 1.81866e-01_rb, 1.84461e-01_rb, &
+     & 1.87092e-01_rb, 1.89761e-01_rb, 1.92468e-01_rb, 1.95213e-01_rb/)
+      kao_mo3( 2, :,15) = (/ &
+     & 1.51431e-01_rb, 1.53589e-01_rb, 1.55778e-01_rb, 1.57998e-01_rb, 1.60250e-01_rb, &
+     & 1.62534e-01_rb, 1.64850e-01_rb, 1.67199e-01_rb, 1.69582e-01_rb, 1.71999e-01_rb, &
+     & 1.74450e-01_rb, 1.76937e-01_rb, 1.79458e-01_rb, 1.82016e-01_rb, 1.84610e-01_rb, &
+     & 1.87241e-01_rb, 1.89909e-01_rb, 1.92616e-01_rb, 1.95361e-01_rb/)
+      kao_mo3( 3, :,15) = (/ &
+     & 1.51299e-01_rb, 1.53461e-01_rb, 1.55654e-01_rb, 1.57878e-01_rb, 1.60134e-01_rb, &
+     & 1.62422e-01_rb, 1.64744e-01_rb, 1.67098e-01_rb, 1.69486e-01_rb, 1.71908e-01_rb, &
+     & 1.74364e-01_rb, 1.76856e-01_rb, 1.79383e-01_rb, 1.81947e-01_rb, 1.84547e-01_rb, &
+     & 1.87184e-01_rb, 1.89859e-01_rb, 1.92572e-01_rb, 1.95324e-01_rb/)
+      kao_mo3( 4, :,15) = (/ &
+     & 1.51281e-01_rb, 1.53439e-01_rb, 1.55628e-01_rb, 1.57848e-01_rb, 1.60100e-01_rb, &
+     & 1.62384e-01_rb, 1.64700e-01_rb, 1.67049e-01_rb, 1.69432e-01_rb, 1.71849e-01_rb, &
+     & 1.74301e-01_rb, 1.76787e-01_rb, 1.79309e-01_rb, 1.81866e-01_rb, 1.84461e-01_rb, &
+     & 1.87092e-01_rb, 1.89761e-01_rb, 1.92468e-01_rb, 1.95213e-01_rb/)
+      kao_mo3( 5, :,15) = (/ &
+     & 1.51281e-01_rb, 1.53439e-01_rb, 1.55628e-01_rb, 1.57848e-01_rb, 1.60100e-01_rb, &
+     & 1.62384e-01_rb, 1.64700e-01_rb, 1.67049e-01_rb, 1.69432e-01_rb, 1.71849e-01_rb, &
+     & 1.74301e-01_rb, 1.76787e-01_rb, 1.79309e-01_rb, 1.81866e-01_rb, 1.84461e-01_rb, &
+     & 1.87092e-01_rb, 1.89761e-01_rb, 1.92468e-01_rb, 1.95213e-01_rb/)
+      kao_mo3( 6, :,15) = (/ &
+     & 1.51299e-01_rb, 1.53461e-01_rb, 1.55654e-01_rb, 1.57878e-01_rb, 1.60134e-01_rb, &
+     & 1.62422e-01_rb, 1.64744e-01_rb, 1.67098e-01_rb, 1.69486e-01_rb, 1.71908e-01_rb, &
+     & 1.74364e-01_rb, 1.76856e-01_rb, 1.79383e-01_rb, 1.81947e-01_rb, 1.84547e-01_rb, &
+     & 1.87184e-01_rb, 1.89859e-01_rb, 1.92572e-01_rb, 1.95324e-01_rb/)
+      kao_mo3( 7, :,15) = (/ &
+     & 1.51299e-01_rb, 1.53461e-01_rb, 1.55654e-01_rb, 1.57878e-01_rb, 1.60134e-01_rb, &
+     & 1.62422e-01_rb, 1.64744e-01_rb, 1.67098e-01_rb, 1.69486e-01_rb, 1.71908e-01_rb, &
+     & 1.74364e-01_rb, 1.76856e-01_rb, 1.79383e-01_rb, 1.81947e-01_rb, 1.84547e-01_rb, &
+     & 1.87184e-01_rb, 1.89859e-01_rb, 1.92572e-01_rb, 1.95324e-01_rb/)
+      kao_mo3( 8, :,15) = (/ &
+     & 1.51281e-01_rb, 1.53439e-01_rb, 1.55628e-01_rb, 1.57848e-01_rb, 1.60100e-01_rb, &
+     & 1.62384e-01_rb, 1.64700e-01_rb, 1.67049e-01_rb, 1.69432e-01_rb, 1.71849e-01_rb, &
+     & 1.74301e-01_rb, 1.76787e-01_rb, 1.79309e-01_rb, 1.81866e-01_rb, 1.84461e-01_rb, &
+     & 1.87092e-01_rb, 1.89761e-01_rb, 1.92468e-01_rb, 1.95213e-01_rb/)
+      kao_mo3( 9, :,15) = (/ &
+     & 2.44180e-01_rb, 2.35686e-01_rb, 2.27487e-01_rb, 2.19574e-01_rb, 2.11935e-01_rb, &
+     & 2.04563e-01_rb, 1.97447e-01_rb, 1.90578e-01_rb, 1.83949e-01_rb, 1.77550e-01_rb, &
+     & 1.71373e-01_rb, 1.65412e-01_rb, 1.59658e-01_rb, 1.54104e-01_rb, 1.48743e-01_rb, &
+     & 1.43569e-01_rb, 1.38574e-01_rb, 1.33754e-01_rb, 1.29101e-01_rb/)
+      kao_mo3( 1, :,16) = (/ &
+     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &
+     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &
+     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &
+     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)
+      kao_mo3( 2, :,16) = (/ &
+     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &
+     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &
+     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &
+     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)
+      kao_mo3( 3, :,16) = (/ &
+     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &
+     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &
+     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &
+     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)
+      kao_mo3( 4, :,16) = (/ &
+     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &
+     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &
+     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &
+     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)
+      kao_mo3( 5, :,16) = (/ &
+     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &
+     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &
+     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &
+     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)
+      kao_mo3( 6, :,16) = (/ &
+     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &
+     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &
+     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &
+     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)
+      kao_mo3( 7, :,16) = (/ &
+     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &
+     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &
+     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &
+     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)
+      kao_mo3( 8, :,16) = (/ &
+     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &
+     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &
+     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &
+     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)
+      kao_mo3( 9, :,16) = (/ &
+     & 3.91531e-01_rb, 3.78978e-01_rb, 3.66827e-01_rb, 3.55067e-01_rb, 3.43683e-01_rb, &
+     & 3.32664e-01_rb, 3.21999e-01_rb, 3.11675e-01_rb, 3.01683e-01_rb, 2.92011e-01_rb, &
+     & 2.82648e-01_rb, 2.73586e-01_rb, 2.64815e-01_rb, 2.56325e-01_rb, 2.48107e-01_rb, &
+     & 2.40152e-01_rb, 2.32453e-01_rb, 2.25000e-01_rb, 2.17787e-01_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &1.0689e-05_rb,1.6987e-05_rb,1.8993e-05_rb,3.4470e-05_rb,4.0873e-05_rb,4.8275e-05_rb, &
+     &6.1178e-05_rb,6.4035e-05_rb,6.6253e-05_rb,7.8914e-05_rb,8.1640e-05_rb,7.9738e-05_rb, &
+     &7.8492e-05_rb,9.1565e-05_rb,1.0262e-04_rb,1.0368e-04_rb/)
+      forrefo(2,:) = (/ &
+     &1.1194e-05_rb,1.6128e-05_rb,1.7213e-05_rb,2.6845e-05_rb,4.1361e-05_rb,5.1508e-05_rb, &
+     &6.8245e-05_rb,7.4063e-05_rb,7.6273e-05_rb,8.4061e-05_rb,8.2492e-05_rb,8.1720e-05_rb, &
+     &7.7626e-05_rb,1.0096e-04_rb,1.0519e-04_rb,1.0631e-04_rb/)
+      forrefo(3,:) = (/ &
+     &1.0891e-05_rb,1.4933e-05_rb,1.7964e-05_rb,2.2577e-05_rb,4.4290e-05_rb,5.4675e-05_rb, &
+     &7.2494e-05_rb,7.8410e-05_rb,7.6948e-05_rb,7.5742e-05_rb,7.7654e-05_rb,8.2760e-05_rb, &
+     &7.8443e-05_rb,9.8384e-05_rb,1.0634e-04_rb,1.0838e-04_rb/)
+      forrefo(4,:) = (/ &
+     &1.1316e-05_rb,1.5470e-05_rb,2.1246e-05_rb,3.3349e-05_rb,4.8704e-05_rb,5.6424e-05_rb, &
+     &5.8569e-05_rb,5.8780e-05_rb,6.0358e-05_rb,6.1586e-05_rb,6.4281e-05_rb,6.9333e-05_rb, &
+     &7.2763e-05_rb,7.2675e-05_rb,7.3754e-05_rb,1.0131e-04_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 1.27686e-01_rb, 1.09347e-01_rb, 9.36410e-02_rb, 8.01912e-02_rb, 6.86732e-02_rb, &
+     & 5.88096e-02_rb, 5.03627e-02_rb, 4.31290e-02_rb, 3.69343e-02_rb, 3.16294e-02_rb/)
+      selfrefo(:, 2) = (/ &
+     & 1.40051e-01_rb, 1.20785e-01_rb, 1.04170e-01_rb, 8.98402e-02_rb, 7.74816e-02_rb, &
+     & 6.68231e-02_rb, 5.76308e-02_rb, 4.97030e-02_rb, 4.28658e-02_rb, 3.69691e-02_rb/)
+      selfrefo(:, 3) = (/ &
+     & 1.42322e-01_rb, 1.22872e-01_rb, 1.06080e-01_rb, 9.15829e-02_rb, 7.90671e-02_rb, &
+     & 6.82616e-02_rb, 5.89329e-02_rb, 5.08790e-02_rb, 4.39258e-02_rb, 3.79228e-02_rb/)
+      selfrefo(:, 4) = (/ &
+     & 1.53244e-01_rb, 1.33057e-01_rb, 1.15530e-01_rb, 1.00311e-01_rb, 8.70977e-02_rb, &
+     & 7.56244e-02_rb, 6.56626e-02_rb, 5.70130e-02_rb, 4.95028e-02_rb, 4.29819e-02_rb/)
+      selfrefo(:, 5) = (/ &
+     & 1.71011e-01_rb, 1.46680e-01_rb, 1.25810e-01_rb, 1.07910e-01_rb, 9.25563e-02_rb, &
+     & 7.93874e-02_rb, 6.80922e-02_rb, 5.84040e-02_rb, 5.00943e-02_rb, 4.29669e-02_rb/)
+      selfrefo(:, 6) = (/ &
+     & 1.76012e-01_rb, 1.51010e-01_rb, 1.29560e-01_rb, 1.11157e-01_rb, 9.53672e-02_rb, &
+     & 8.18207e-02_rb, 7.01984e-02_rb, 6.02270e-02_rb, 5.16720e-02_rb, 4.43322e-02_rb/)
+      selfrefo(:, 7) = (/ &
+     & 1.85600e-01_rb, 1.59051e-01_rb, 1.36300e-01_rb, 1.16803e-01_rb, 1.00095e-01_rb, &
+     & 8.57776e-02_rb, 7.35077e-02_rb, 6.29930e-02_rb, 5.39823e-02_rb, 4.62606e-02_rb/)
+      selfrefo(:, 8) = (/ &
+     & 1.88931e-01_rb, 1.61727e-01_rb, 1.38440e-01_rb, 1.18506e-01_rb, 1.01442e-01_rb, &
+     & 8.68356e-02_rb, 7.43321e-02_rb, 6.36290e-02_rb, 5.44670e-02_rb, 4.66243e-02_rb/)
+      selfrefo(:, 9) = (/ &
+     & 1.91122e-01_rb, 1.63407e-01_rb, 1.39710e-01_rb, 1.19450e-01_rb, 1.02128e-01_rb, &
+     & 8.73176e-02_rb, 7.46552e-02_rb, 6.38290e-02_rb, 5.45728e-02_rb, 4.66589e-02_rb/)
+      selfrefo(:,10) = (/ &
+     & 1.91334e-01_rb, 1.64872e-01_rb, 1.42070e-01_rb, 1.22421e-01_rb, 1.05490e-01_rb, &
+     & 9.09008e-02_rb, 7.83291e-02_rb, 6.74960e-02_rb, 5.81612e-02_rb, 5.01174e-02_rb/)
+      selfrefo(:,11) = (/ &
+     & 1.89858e-01_rb, 1.63934e-01_rb, 1.41550e-01_rb, 1.22222e-01_rb, 1.05534e-01_rb, &
+     & 9.11237e-02_rb, 7.86814e-02_rb, 6.79380e-02_rb, 5.86615e-02_rb, 5.06517e-02_rb/)
+      selfrefo(:,12) = (/ &
+     & 1.89783e-01_rb, 1.63757e-01_rb, 1.41300e-01_rb, 1.21923e-01_rb, 1.05203e-01_rb, &
+     & 9.07760e-02_rb, 7.83274e-02_rb, 6.75860e-02_rb, 5.83176e-02_rb, 5.03202e-02_rb/)
+      selfrefo(:,13) = (/ &
+     & 1.87534e-01_rb, 1.62016e-01_rb, 1.39970e-01_rb, 1.20924e-01_rb, 1.04470e-01_rb, &
+     & 9.02541e-02_rb, 7.79730e-02_rb, 6.73630e-02_rb, 5.81967e-02_rb, 5.02778e-02_rb/)
+      selfrefo(:,14) = (/ &
+     & 1.99128e-01_rb, 1.71410e-01_rb, 1.47550e-01_rb, 1.27011e-01_rb, 1.09332e-01_rb, &
+     & 9.41131e-02_rb, 8.10128e-02_rb, 6.97360e-02_rb, 6.00289e-02_rb, 5.16731e-02_rb/)
+      selfrefo(:,15) = (/ &
+     & 1.99460e-01_rb, 1.72342e-01_rb, 1.48910e-01_rb, 1.28664e-01_rb, 1.11171e-01_rb, &
+     & 9.60560e-02_rb, 8.29962e-02_rb, 7.17120e-02_rb, 6.19620e-02_rb, 5.35376e-02_rb/)
+      selfrefo(:,16) = (/ &
+     & 1.99906e-01_rb, 1.72737e-01_rb, 1.49260e-01_rb, 1.28974e-01_rb, 1.11445e-01_rb, &
+     & 9.62982e-02_rb, 8.32102e-02_rb, 7.19010e-02_rb, 6.21288e-02_rb, 5.36848e-02_rb/)
+
+      end subroutine lw_kgb05
+
+! **************************************************************************
+      subroutine lw_kgb06
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg06, only : fracrefao, kao, kao_mco2, selfrefo, forrefo, &
+                            cfc11adjo, cfc12o
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P = 473.4280 mb, T = 259.83 K
+      fracrefao(:) = (/ &
+     &   1.4353e-01_rb,1.4774e-01_rb,1.4467e-01_rb,1.3785e-01_rb,1.2376e-01_rb,1.0214e-01_rb, &
+     &   8.1984e-02_rb,6.1152e-02_rb,4.0987e-02_rb,4.5067e-03_rb,4.0020e-03_rb,3.1772e-03_rb, &
+     &   2.3458e-03_rb,1.5025e-03_rb,5.7415e-04_rb,8.2970e-05_rb/)
+
+! Minor gas mapping level:
+!     lower - co2, p = 706.2720 mb, t = 294.2 k
+!     upper - cfc11, cfc12
+
+!      cfc11(:) = (/ &
+!     &    0.,      0.,      26.5435, 108.850, &
+!     &    58.7804, 54.0875, 41.1065, 35.6120, &
+!     &    41.2328, 47.7402, 79.1026, 64.3005, &
+!     &    108.206, 141.617, 186.565, 58.4782/)
+! Original cfc11 is multiplied by 1.385 to account for the 1060-1107 cm-1 band.
+
+      cfc11adjo(:) = (/ &
+     &   0._rb,      0._rb,      36.7627_rb, 150.757_rb, &
+     &   81.4109_rb, 74.9112_rb, 56.9325_rb, 49.3226_rb, &
+     &   57.1074_rb, 66.1202_rb, 109.557_rb, 89.0562_rb, & 
+     &   149.865_rb, 196.140_rb, 258.393_rb, 80.9923_rb/)
+      cfc12o(:) = (/ &
+     &   62.8368_rb, 43.2626_rb, 26.7549_rb, 22.2487_rb, &
+     &   23.5029_rb, 34.8323_rb, 26.2335_rb, 23.2306_rb, &
+     &   18.4062_rb, 13.9534_rb, 22.6268_rb, 24.2604_rb, &
+     &   30.0088_rb, 26.3634_rb, 15.8237_rb, 57.5050_rb/)
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     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 corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1) = (/ &
+     &1.5108e-05_rb,1.6223e-05_rb,1.5899e-05_rb,1.5254e-05_rb,1.4889e-05_rb/)
+      kao(:, 2, 1) = (/ &
+     &1.0690e-05_rb,1.0800e-05_rb,1.0568e-05_rb,1.0057e-05_rb,9.4945e-06_rb/)
+      kao(:, 3, 1) = (/ &
+     &6.1072e-06_rb,5.8741e-06_rb,5.6796e-06_rb,5.3664e-06_rb,5.4934e-06_rb/)
+      kao(:, 4, 1) = (/ &
+     &3.0372e-06_rb,2.9964e-06_rb,2.6541e-06_rb,2.8791e-06_rb,3.9638e-06_rb/)
+      kao(:, 5, 1) = (/ &
+     &1.4777e-06_rb,1.4916e-06_rb,1.4819e-06_rb,2.2264e-06_rb,3.3268e-06_rb/)
+      kao(:, 6, 1) = (/ &
+     &7.4936e-07_rb,7.2240e-07_rb,1.1518e-06_rb,1.7724e-06_rb,2.8203e-06_rb/)
+      kao(:, 7, 1) = (/ &
+     &3.4904e-07_rb,5.1177e-07_rb,8.8489e-07_rb,1.5219e-06_rb,2.2871e-06_rb/)
+      kao(:, 8, 1) = (/ &
+     &2.1072e-07_rb,4.5257e-07_rb,7.4214e-07_rb,1.2628e-06_rb,1.9840e-06_rb/)
+      kao(:, 9, 1) = (/ &
+     &2.1779e-07_rb,4.8639e-07_rb,8.1133e-07_rb,1.3719e-06_rb,2.1663e-06_rb/)
+      kao(:,10, 1) = (/ &
+     &2.5134e-07_rb,5.9583e-07_rb,1.0449e-06_rb,1.5899e-06_rb,2.7441e-06_rb/)
+      kao(:,11, 1) = (/ &
+     &2.9178e-07_rb,6.5749e-07_rb,1.0958e-06_rb,1.7834e-06_rb,3.1413e-06_rb/)
+      kao(:,12, 1) = (/ &
+     &2.7268e-07_rb,6.1470e-07_rb,1.0270e-06_rb,1.7566e-06_rb,3.0441e-06_rb/)
+      kao(:,13, 1) = (/ &
+     &2.2995e-07_rb,5.2185e-07_rb,8.7916e-07_rb,1.4999e-06_rb,2.5740e-06_rb/)
+      kao(:, 1, 2) = (/ &
+     &2.1301e-05_rb,2.3060e-05_rb,2.1909e-05_rb,2.0972e-05_rb,2.1772e-05_rb/)
+      kao(:, 2, 2) = (/ &
+     &1.4382e-05_rb,1.4147e-05_rb,1.4339e-05_rb,1.3679e-05_rb,1.6973e-05_rb/)
+      kao(:, 3, 2) = (/ &
+     &8.0559e-06_rb,8.4180e-06_rb,7.4096e-06_rb,9.3490e-06_rb,1.0824e-05_rb/)
+      kao(:, 4, 2) = (/ &
+     &4.3614e-06_rb,3.9657e-06_rb,5.1299e-06_rb,6.1754e-06_rb,8.2925e-06_rb/)
+      kao(:, 5, 2) = (/ &
+     &2.2350e-06_rb,2.3231e-06_rb,3.3297e-06_rb,4.8612e-06_rb,6.5883e-06_rb/)
+      kao(:, 6, 2) = (/ &
+     &1.0863e-06_rb,1.7510e-06_rb,2.4185e-06_rb,3.5854e-06_rb,5.1511e-06_rb/)
+      kao(:, 7, 2) = (/ &
+     &7.6749e-07_rb,1.2024e-06_rb,1.9782e-06_rb,2.7223e-06_rb,4.2604e-06_rb/)
+      kao(:, 8, 2) = (/ &
+     &6.8738e-07_rb,9.7505e-07_rb,1.6738e-06_rb,2.4371e-06_rb,3.9386e-06_rb/)
+      kao(:, 9, 2) = (/ &
+     &7.3668e-07_rb,1.0167e-06_rb,1.9026e-06_rb,3.0451e-06_rb,5.0060e-06_rb/)
+      kao(:,10, 2) = (/ &
+     &9.8863e-07_rb,1.5373e-06_rb,2.5876e-06_rb,4.8975e-06_rb,7.8206e-06_rb/)
+      kao(:,11, 2) = (/ &
+     &1.0934e-06_rb,1.6488e-06_rb,2.7961e-06_rb,5.2441e-06_rb,8.5410e-06_rb/)
+      kao(:,12, 2) = (/ &
+     &1.0277e-06_rb,1.5126e-06_rb,2.6342e-06_rb,4.9122e-06_rb,8.0730e-06_rb/)
+      kao(:,13, 2) = (/ &
+     &8.7381e-07_rb,1.2665e-06_rb,2.2835e-06_rb,4.2048e-06_rb,6.9189e-06_rb/)
+      kao(:, 1, 3) = (/ &
+     &2.3993e-05_rb,2.2308e-05_rb,2.5893e-05_rb,3.3883e-05_rb,3.8280e-05_rb/)
+      kao(:, 2, 3) = (/ &
+     &1.4011e-05_rb,1.4296e-05_rb,2.1223e-05_rb,2.4417e-05_rb,2.7881e-05_rb/)
+      kao(:, 3, 3) = (/ &
+     &7.3965e-06_rb,9.9180e-06_rb,1.3735e-05_rb,1.4536e-05_rb,1.8056e-05_rb/)
+      kao(:, 4, 3) = (/ &
+     &4.5365e-06_rb,7.0513e-06_rb,7.2165e-06_rb,9.8585e-06_rb,1.1890e-05_rb/)
+      kao(:, 5, 3) = (/ &
+     &3.8953e-06_rb,4.3626e-06_rb,5.3805e-06_rb,6.6118e-06_rb,9.5204e-06_rb/)
+      kao(:, 6, 3) = (/ &
+     &2.4692e-06_rb,2.6620e-06_rb,3.5833e-06_rb,5.1748e-06_rb,7.8116e-06_rb/)
+      kao(:, 7, 3) = (/ &
+     &1.4531e-06_rb,2.0753e-06_rb,2.7794e-06_rb,4.8340e-06_rb,7.5049e-06_rb/)
+      kao(:, 8, 3) = (/ &
+     &8.9161e-07_rb,1.6554e-06_rb,2.7945e-06_rb,4.7401e-06_rb,7.3008e-06_rb/)
+      kao(:, 9, 3) = (/ &
+     &1.1556e-06_rb,2.3050e-06_rb,3.6767e-06_rb,6.4276e-06_rb,1.0393e-05_rb/)
+      kao(:,10, 3) = (/ &
+     &1.3936e-06_rb,2.7867e-06_rb,4.8066e-06_rb,7.9343e-06_rb,1.4027e-05_rb/)
+      kao(:,11, 3) = (/ &
+     &1.4469e-06_rb,3.0966e-06_rb,5.3467e-06_rb,9.2496e-06_rb,1.6488e-05_rb/)
+      kao(:,12, 3) = (/ &
+     &1.3797e-06_rb,2.9577e-06_rb,5.1784e-06_rb,9.2835e-06_rb,1.6169e-05_rb/)
+      kao(:,13, 3) = (/ &
+     &1.1793e-06_rb,2.5194e-06_rb,4.4903e-06_rb,8.2145e-06_rb,1.4209e-05_rb/)
+      kao(:, 1, 4) = (/ &
+     &4.3371e-05_rb,4.2284e-05_rb,4.2569e-05_rb,4.5333e-05_rb,4.9887e-05_rb/)
+      kao(:, 2, 4) = (/ &
+     &2.7836e-05_rb,3.0742e-05_rb,2.5159e-05_rb,3.1058e-05_rb,3.3502e-05_rb/)
+      kao(:, 3, 4) = (/ &
+     &1.5959e-05_rb,1.5689e-05_rb,1.8607e-05_rb,1.9311e-05_rb,2.2949e-05_rb/)
+      kao(:, 4, 4) = (/ &
+     &9.4357e-06_rb,8.9581e-06_rb,1.1706e-05_rb,1.2462e-05_rb,1.9504e-05_rb/)
+      kao(:, 5, 4) = (/ &
+     &4.6991e-06_rb,5.9565e-06_rb,7.1131e-06_rb,1.0656e-05_rb,1.6961e-05_rb/)
+      kao(:, 6, 4) = (/ &
+     &2.9104e-06_rb,3.9977e-06_rb,5.8385e-06_rb,9.8483e-06_rb,1.4910e-05_rb/)
+      kao(:, 7, 4) = (/ &
+     &2.0404e-06_rb,2.7360e-06_rb,5.0537e-06_rb,8.2979e-06_rb,1.2550e-05_rb/)
+      kao(:, 8, 4) = (/ &
+     &1.7124e-06_rb,2.7023e-06_rb,4.6383e-06_rb,7.6524e-06_rb,1.2059e-05_rb/)
+      kao(:, 9, 4) = (/ &
+     &1.7855e-06_rb,3.1326e-06_rb,5.8535e-06_rb,9.7627e-06_rb,1.5447e-05_rb/)
+      kao(:,10, 4) = (/ &
+     &2.2188e-06_rb,4.3098e-06_rb,8.7192e-06_rb,1.5363e-05_rb,2.4174e-05_rb/)
+      kao(:,11, 4) = (/ &
+     &2.5395e-06_rb,4.8780e-06_rb,1.0119e-05_rb,1.6942e-05_rb,2.6266e-05_rb/)
+      kao(:,12, 4) = (/ &
+     &2.4951e-06_rb,4.8859e-06_rb,9.7649e-06_rb,1.6137e-05_rb,2.5091e-05_rb/)
+      kao(:,13, 4) = (/ &
+     &2.2608e-06_rb,4.4391e-06_rb,8.5101e-06_rb,1.3874e-05_rb,2.1718e-05_rb/)
+      kao(:, 1, 5) = (/ &
+     &3.5802e-05_rb,4.9569e-05_rb,5.6081e-05_rb,5.4456e-05_rb,6.1620e-05_rb/)
+      kao(:, 2, 5) = (/ &
+     &2.7431e-05_rb,3.7092e-05_rb,4.0464e-05_rb,4.0603e-05_rb,5.2992e-05_rb/)
+      kao(:, 3, 5) = (/ &
+     &1.6511e-05_rb,2.1182e-05_rb,1.9952e-05_rb,2.9271e-05_rb,4.8230e-05_rb/)
+      kao(:, 4, 5) = (/ &
+     &1.1211e-05_rb,1.2922e-05_rb,1.4441e-05_rb,2.5935e-05_rb,3.8342e-05_rb/)
+      kao(:, 5, 5) = (/ &
+     &7.1937e-06_rb,7.6149e-06_rb,1.2471e-05_rb,2.1334e-05_rb,3.0465e-05_rb/)
+      kao(:, 6, 5) = (/ &
+     &4.6613e-06_rb,5.5104e-06_rb,1.0664e-05_rb,1.6922e-05_rb,2.4802e-05_rb/)
+      kao(:, 7, 5) = (/ &
+     &2.6908e-06_rb,5.1362e-06_rb,9.2865e-06_rb,1.4719e-05_rb,2.2004e-05_rb/)
+      kao(:, 8, 5) = (/ &
+     &2.4192e-06_rb,4.7977e-06_rb,8.6605e-06_rb,1.4122e-05_rb,2.1533e-05_rb/)
+      kao(:, 9, 5) = (/ &
+     &2.6505e-06_rb,5.2138e-06_rb,9.6090e-06_rb,1.6493e-05_rb,2.6941e-05_rb/)
+      kao(:,10, 5) = (/ &
+     &3.8793e-06_rb,7.0191e-06_rb,1.2677e-05_rb,2.2456e-05_rb,3.8574e-05_rb/)
+      kao(:,11, 5) = (/ &
+     &4.3385e-06_rb,8.1555e-06_rb,1.4661e-05_rb,2.7034e-05_rb,4.5538e-05_rb/)
+      kao(:,12, 5) = (/ &
+     &4.4806e-06_rb,8.0941e-06_rb,1.5170e-05_rb,2.7140e-05_rb,4.7747e-05_rb/)
+      kao(:,13, 5) = (/ &
+     &4.0859e-06_rb,7.4306e-06_rb,1.3915e-05_rb,2.5201e-05_rb,4.3638e-05_rb/)
+      kao(:, 1, 6) = (/ &
+     &6.3502e-05_rb,6.1626e-05_rb,6.7874e-05_rb,7.9926e-05_rb,1.4827e-04_rb/)
+      kao(:, 2, 6) = (/ &
+     &4.2546e-05_rb,3.3547e-05_rb,4.0025e-05_rb,7.0944e-05_rb,1.2242e-04_rb/)
+      kao(:, 3, 6) = (/ &
+     &2.4414e-05_rb,2.4466e-05_rb,3.6681e-05_rb,6.7397e-05_rb,9.7673e-05_rb/)
+      kao(:, 4, 6) = (/ &
+     &1.1878e-05_rb,1.6683e-05_rb,3.4310e-05_rb,5.3734e-05_rb,7.4953e-05_rb/)
+      kao(:, 5, 6) = (/ &
+     &8.0437e-06_rb,1.5133e-05_rb,2.7743e-05_rb,4.0147e-05_rb,5.6233e-05_rb/)
+      kao(:, 6, 6) = (/ &
+     &6.1550e-06_rb,1.2316e-05_rb,1.9945e-05_rb,3.0529e-05_rb,4.5113e-05_rb/)
+      kao(:, 7, 6) = (/ &
+     &4.8891e-06_rb,9.6377e-06_rb,1.6338e-05_rb,2.4863e-05_rb,3.7137e-05_rb/)
+      kao(:, 8, 6) = (/ &
+     &4.3692e-06_rb,8.7526e-06_rb,1.4669e-05_rb,2.2987e-05_rb,3.5150e-05_rb/)
+      kao(:, 9, 6) = (/ &
+     &5.3838e-06_rb,1.0727e-05_rb,1.8376e-05_rb,3.0485e-05_rb,4.8603e-05_rb/)
+      kao(:,10, 6) = (/ &
+     &6.7708e-06_rb,1.4529e-05_rb,2.6810e-05_rb,4.7617e-05_rb,7.8536e-05_rb/)
+      kao(:,11, 6) = (/ &
+     &8.3666e-06_rb,1.7190e-05_rb,3.3330e-05_rb,5.7837e-05_rb,9.5886e-05_rb/)
+      kao(:,12, 6) = (/ &
+     &8.6264e-06_rb,1.8503e-05_rb,3.4797e-05_rb,6.1435e-05_rb,1.0046e-04_rb/)
+      kao(:,13, 6) = (/ &
+     &8.2669e-06_rb,1.8055e-05_rb,3.3739e-05_rb,5.7805e-05_rb,9.4677e-05_rb/)
+      kao(:, 1, 7) = (/ &
+     &5.0894e-05_rb,6.7019e-05_rb,1.1702e-04_rb,2.4649e-04_rb,3.5046e-04_rb/)
+      kao(:, 2, 7) = (/ &
+     &4.3304e-05_rb,4.9708e-05_rb,1.0701e-04_rb,1.8228e-04_rb,2.5635e-04_rb/)
+      kao(:, 3, 7) = (/ &
+     &2.6855e-05_rb,4.5972e-05_rb,9.9426e-05_rb,1.4867e-04_rb,2.0722e-04_rb/)
+      kao(:, 4, 7) = (/ &
+     &2.0223e-05_rb,4.9973e-05_rb,8.2293e-05_rb,1.1822e-04_rb,1.6484e-04_rb/)
+      kao(:, 5, 7) = (/ &
+     &1.8923e-05_rb,4.1445e-05_rb,6.4003e-05_rb,9.2899e-05_rb,1.3171e-04_rb/)
+      kao(:, 6, 7) = (/ &
+     &1.5326e-05_rb,3.0718e-05_rb,4.7457e-05_rb,6.8025e-05_rb,9.5982e-05_rb/)
+      kao(:, 7, 7) = (/ &
+     &1.2448e-05_rb,2.1715e-05_rb,3.2987e-05_rb,4.9690e-05_rb,7.5010e-05_rb/)
+      kao(:, 8, 7) = (/ &
+     &1.0066e-05_rb,1.7102e-05_rb,2.7164e-05_rb,4.3976e-05_rb,6.9078e-05_rb/)
+      kao(:, 9, 7) = (/ &
+     &1.1685e-05_rb,2.0037e-05_rb,3.5620e-05_rb,5.8499e-05_rb,9.0997e-05_rb/)
+      kao(:,10, 7) = (/ &
+     &1.5861e-05_rb,2.8659e-05_rb,5.0802e-05_rb,8.4995e-05_rb,1.3698e-04_rb/)
+      kao(:,11, 7) = (/ &
+     &2.1379e-05_rb,3.8980e-05_rb,6.8341e-05_rb,1.1084e-04_rb,1.6745e-04_rb/)
+      kao(:,12, 7) = (/ &
+     &2.2487e-05_rb,4.0976e-05_rb,7.1749e-05_rb,1.1325e-04_rb,1.7051e-04_rb/)
+      kao(:,13, 7) = (/ &
+     &2.0952e-05_rb,3.7773e-05_rb,6.5636e-05_rb,1.0928e-04_rb,1.6488e-04_rb/)
+      kao(:, 1, 8) = (/ &
+     &1.0722e-04_rb,2.7983e-04_rb,4.9965e-04_rb,7.0430e-04_rb,9.5168e-04_rb/)
+      kao(:, 2, 8) = (/ &
+     &9.2566e-05_rb,2.4429e-04_rb,3.9143e-04_rb,5.5037e-04_rb,7.4482e-04_rb/)
+      kao(:, 3, 8) = (/ &
+     &8.2611e-05_rb,1.7009e-04_rb,2.5121e-04_rb,3.5806e-04_rb,4.9588e-04_rb/)
+      kao(:, 4, 8) = (/ &
+     &7.9199e-05_rb,1.3718e-04_rb,2.0767e-04_rb,3.0111e-04_rb,4.2301e-04_rb/)
+      kao(:, 5, 8) = (/ &
+     &6.6965e-05_rb,1.0994e-04_rb,1.6780e-04_rb,2.4484e-04_rb,3.4718e-04_rb/)
+      kao(:, 6, 8) = (/ &
+     &5.1557e-05_rb,8.4788e-05_rb,1.3259e-04_rb,1.9727e-04_rb,2.8537e-04_rb/)
+      kao(:, 7, 8) = (/ &
+     &3.8653e-05_rb,6.5013e-05_rb,1.0364e-04_rb,1.5866e-04_rb,2.2830e-04_rb/)
+      kao(:, 8, 8) = (/ &
+     &2.8949e-05_rb,4.9620e-05_rb,8.2718e-05_rb,1.3000e-04_rb,1.9256e-04_rb/)
+      kao(:, 9, 8) = (/ &
+     &2.6449e-05_rb,4.6951e-05_rb,7.7311e-05_rb,1.2263e-04_rb,1.9501e-04_rb/)
+      kao(:,10, 8) = (/ &
+     &4.1706e-05_rb,7.2947e-05_rb,1.1853e-04_rb,1.7821e-04_rb,2.7161e-04_rb/)
+      kao(:,11, 8) = (/ &
+     &4.6073e-05_rb,7.9291e-05_rb,1.2399e-04_rb,2.0469e-04_rb,3.0165e-04_rb/)
+      kao(:,12, 8) = (/ &
+     &4.9634e-05_rb,8.1819e-05_rb,1.2723e-04_rb,2.1479e-04_rb,3.2406e-04_rb/)
+      kao(:,13, 8) = (/ &
+     &4.8914e-05_rb,8.2845e-05_rb,1.3095e-04_rb,2.1611e-04_rb,3.1389e-04_rb/)
+      kao(:, 1, 9) = (/ &
+     &7.8561e-04_rb,1.1643e-03_rb,1.6394e-03_rb,2.2582e-03_rb,3.0560e-03_rb/)
+      kao(:, 2, 9) = (/ &
+     &6.6025e-04_rb,9.8571e-04_rb,1.4034e-03_rb,1.9479e-03_rb,2.6634e-03_rb/)
+      kao(:, 3, 9) = (/ &
+     &5.1307e-04_rb,7.6204e-04_rb,1.0925e-03_rb,1.5312e-03_rb,2.1163e-03_rb/)
+      kao(:, 4, 9) = (/ &
+     &3.4762e-04_rb,5.0219e-04_rb,7.2255e-04_rb,1.0302e-03_rb,1.4514e-03_rb/)
+      kao(:, 5, 9) = (/ &
+     &2.1712e-04_rb,3.4419e-04_rb,5.2965e-04_rb,7.8732e-04_rb,1.1464e-03_rb/)
+      kao(:, 6, 9) = (/ &
+     &1.8112e-04_rb,2.9769e-04_rb,4.6916e-04_rb,7.0360e-04_rb,1.0307e-03_rb/)
+      kao(:, 7, 9) = (/ &
+     &1.5449e-04_rb,2.5935e-04_rb,4.1089e-04_rb,6.2682e-04_rb,9.3587e-04_rb/)
+      kao(:, 8, 9) = (/ &
+     &1.4056e-04_rb,2.4062e-04_rb,3.8562e-04_rb,5.9348e-04_rb,8.8749e-04_rb/)
+      kao(:, 9, 9) = (/ &
+     &1.4311e-04_rb,2.5683e-04_rb,4.3997e-04_rb,6.9753e-04_rb,1.0500e-03_rb/)
+      kao(:,10, 9) = (/ &
+     &1.3733e-04_rb,2.3478e-04_rb,3.4047e-04_rb,4.8048e-04_rb,6.5263e-04_rb/)
+      kao(:,11, 9) = (/ &
+     &1.3199e-04_rb,1.9086e-04_rb,2.6427e-04_rb,3.3652e-04_rb,4.6218e-04_rb/)
+      kao(:,12, 9) = (/ &
+     &1.2421e-04_rb,1.8123e-04_rb,2.4759e-04_rb,3.0949e-04_rb,4.1038e-04_rb/)
+      kao(:,13, 9) = (/ &
+     &1.2135e-04_rb,1.9021e-04_rb,2.6678e-04_rb,3.4185e-04_rb,4.8239e-04_rb/)
+      kao(:, 1,10) = (/ &
+     &2.0319e-03_rb,2.8954e-03_rb,4.0208e-03_rb,5.4666e-03_rb,7.2307e-03_rb/)
+      kao(:, 2,10) = (/ &
+     &1.8594e-03_rb,2.6055e-03_rb,3.5896e-03_rb,4.9149e-03_rb,6.5643e-03_rb/)
+      kao(:, 3,10) = (/ &
+     &1.4858e-03_rb,2.1438e-03_rb,3.0067e-03_rb,4.1237e-03_rb,5.5345e-03_rb/)
+      kao(:, 4,10) = (/ &
+     &1.1237e-03_rb,1.6648e-03_rb,2.4078e-03_rb,3.3725e-03_rb,4.5628e-03_rb/)
+      kao(:, 5,10) = (/ &
+     &8.5681e-04_rb,1.0371e-03_rb,1.2665e-03_rb,1.6242e-03_rb,2.0962e-03_rb/)
+      kao(:, 6,10) = (/ &
+     &4.1878e-04_rb,6.5245e-04_rb,8.8673e-04_rb,1.4273e-03_rb,2.1165e-03_rb/)
+      kao(:, 7,10) = (/ &
+     &4.0657e-04_rb,6.7784e-04_rb,1.0299e-03_rb,1.5982e-03_rb,2.4416e-03_rb/)
+      kao(:, 8,10) = (/ &
+     &3.7189e-04_rb,6.5876e-04_rb,1.1259e-03_rb,1.8690e-03_rb,2.8514e-03_rb/)
+      kao(:, 9,10) = (/ &
+     &4.4113e-04_rb,8.4598e-04_rb,1.1991e-03_rb,1.8860e-03_rb,2.5835e-03_rb/)
+      kao(:,10,10) = (/ &
+     &1.8203e-04_rb,4.6909e-06_rb,8.8196e-06_rb,8.3149e-05_rb,1.6489e-04_rb/)
+      kao(:,11,10) = (/ &
+     &2.4843e-06_rb,5.0211e-06_rb,4.0342e-05_rb,1.0733e-04_rb,1.3735e-04_rb/)
+      kao(:,12,10) = (/ &
+     &2.2109e-06_rb,4.6775e-06_rb,6.3563e-05_rb,8.8385e-05_rb,1.1814e-04_rb/)
+      kao(:,13,10) = (/ &
+     &1.0306e-04_rb,2.9167e-05_rb,5.8184e-05_rb,8.2616e-05_rb,1.2141e-04_rb/)
+      kao(:, 1,11) = (/ &
+     &2.6851e-03_rb,3.8621e-03_rb,5.3296e-03_rb,7.1411e-03_rb,9.4750e-03_rb/)
+      kao(:, 2,11) = (/ &
+     &2.4213e-03_rb,3.4979e-03_rb,4.8929e-03_rb,6.6432e-03_rb,8.8031e-03_rb/)
+      kao(:, 3,11) = (/ &
+     &2.0817e-03_rb,2.9708e-03_rb,4.1510e-03_rb,5.7232e-03_rb,7.7624e-03_rb/)
+      kao(:, 4,11) = (/ &
+     &1.6627e-03_rb,2.4521e-03_rb,3.4576e-03_rb,4.7721e-03_rb,6.5543e-03_rb/)
+      kao(:, 5,11) = (/ &
+     &1.2664e-03_rb,1.9577e-03_rb,2.8702e-03_rb,4.0767e-03_rb,5.5807e-03_rb/)
+      kao(:, 6,11) = (/ &
+     &6.5451e-04_rb,7.6752e-04_rb,1.2109e-03_rb,1.8526e-03_rb,2.8298e-03_rb/)
+      kao(:, 7,11) = (/ &
+     &4.8621e-04_rb,7.7329e-04_rb,1.3520e-03_rb,2.1779e-03_rb,3.1034e-03_rb/)
+      kao(:, 8,11) = (/ &
+     &4.3573e-04_rb,8.1759e-04_rb,1.5409e-03_rb,2.1798e-03_rb,3.1170e-03_rb/)
+      kao(:, 9,11) = (/ &
+     &5.3220e-04_rb,6.5242e-04_rb,1.0365e-03_rb,8.6351e-04_rb,8.5932e-04_rb/)
+      kao(:,10,11) = (/ &
+     &4.1711e-06_rb,8.9963e-06_rb,1.7277e-05_rb,3.1054e-05_rb,5.1955e-05_rb/)
+      kao(:,11,11) = (/ &
+     &4.2641e-06_rb,9.2786e-06_rb,1.7917e-05_rb,3.2294e-05_rb,1.1099e-04_rb/)
+      kao(:,12,11) = (/ &
+     &4.4244e-06_rb,9.4799e-06_rb,1.8618e-05_rb,7.5019e-05_rb,1.5478e-04_rb/)
+      kao(:,13,11) = (/ &
+     &4.4439e-06_rb,9.5554e-06_rb,3.7663e-05_rb,9.5587e-05_rb,1.4453e-04_rb/)
+      kao(:, 1,12) = (/ &
+     &3.5676e-03_rb,4.9715e-03_rb,6.8023e-03_rb,9.2475e-03_rb,1.2425e-02_rb/)
+      kao(:, 2,12) = (/ &
+     &3.3730e-03_rb,4.7958e-03_rb,6.6635e-03_rb,9.0736e-03_rb,1.2194e-02_rb/)
+      kao(:, 3,12) = (/ &
+     &2.8824e-03_rb,4.1856e-03_rb,5.9756e-03_rb,8.2464e-03_rb,1.1067e-02_rb/)
+      kao(:, 4,12) = (/ &
+     &2.4288e-03_rb,3.5141e-03_rb,5.0677e-03_rb,7.1261e-03_rb,9.7127e-03_rb/)
+      kao(:, 5,12) = (/ &
+     &1.9807e-03_rb,2.9284e-03_rb,4.2016e-03_rb,5.9142e-03_rb,8.1484e-03_rb/)
+      kao(:, 6,12) = (/ &
+     &1.4728e-03_rb,2.2453e-03_rb,3.0533e-03_rb,3.8340e-03_rb,4.6395e-03_rb/)
+      kao(:, 7,12) = (/ &
+     &5.6245e-04_rb,9.9265e-04_rb,1.6138e-03_rb,2.6180e-03_rb,3.5983e-03_rb/)
+      kao(:, 8,12) = (/ &
+     &5.6232e-04_rb,1.0725e-03_rb,1.5736e-03_rb,2.7015e-03_rb,4.5325e-03_rb/)
+      kao(:, 9,12) = (/ &
+     &3.8503e-04_rb,4.5325e-04_rb,3.4069e-05_rb,5.9217e-05_rb,9.6016e-05_rb/)
+      kao(:,10,12) = (/ &
+     &6.7276e-06_rb,1.4849e-05_rb,2.8992e-05_rb,5.2371e-05_rb,8.7139e-05_rb/)
+      kao(:,11,12) = (/ &
+     &7.7381e-06_rb,1.7002e-05_rb,3.3523e-05_rb,6.0232e-05_rb,1.0004e-04_rb/)
+      kao(:,12,12) = (/ &
+     &8.5790e-06_rb,1.9107e-05_rb,3.7746e-05_rb,6.8157e-05_rb,1.1211e-04_rb/)
+      kao(:,13,12) = (/ &
+     &9.3399e-06_rb,2.1875e-05_rb,4.3407e-05_rb,7.7729e-05_rb,1.5956e-04_rb/)
+      kao(:, 1,13) = (/ &
+     &4.3788e-03_rb,6.3181e-03_rb,8.9543e-03_rb,1.2364e-02_rb,1.6648e-02_rb/)
+      kao(:, 2,13) = (/ &
+     &4.4160e-03_rb,6.2758e-03_rb,8.7769e-03_rb,1.2121e-02_rb,1.6531e-02_rb/)
+      kao(:, 3,13) = (/ &
+     &3.9967e-03_rb,5.8737e-03_rb,8.1369e-03_rb,1.1188e-02_rb,1.5344e-02_rb/)
+      kao(:, 4,13) = (/ &
+     &3.4004e-03_rb,5.1547e-03_rb,7.3735e-03_rb,1.0182e-02_rb,1.3939e-02_rb/)
+      kao(:, 5,13) = (/ &
+     &2.9021e-03_rb,4.3823e-03_rb,6.4495e-03_rb,9.1509e-03_rb,1.2669e-02_rb/)
+      kao(:, 6,13) = (/ &
+     &2.4396e-03_rb,3.6407e-03_rb,5.2497e-03_rb,7.5439e-03_rb,1.0675e-02_rb/)
+      kao(:, 7,13) = (/ &
+     &1.5932e-03_rb,1.8719e-03_rb,2.2033e-03_rb,2.5091e-03_rb,4.1046e-03_rb/)
+      kao(:, 8,13) = (/ &
+     &8.1439e-04_rb,1.2125e-03_rb,1.8190e-03_rb,2.8987e-03_rb,3.6148e-03_rb/)
+      kao(:, 9,13) = (/ &
+     &2.9962e-04_rb,2.5888e-05_rb,4.6085e-05_rb,7.7045e-05_rb,1.2285e-04_rb/)
+      kao(:,10,13) = (/ &
+     &9.2091e-06_rb,1.8817e-05_rb,3.5290e-05_rb,6.2611e-05_rb,1.0050e-04_rb/)
+      kao(:,11,13) = (/ &
+     &8.8922e-06_rb,1.8844e-05_rb,3.7039e-05_rb,6.5193e-05_rb,1.0998e-04_rb/)
+      kao(:,12,13) = (/ &
+     &9.1227e-06_rb,2.0282e-05_rb,3.9304e-05_rb,7.0536e-05_rb,1.1697e-04_rb/)
+      kao(:,13,13) = (/ &
+     &9.3384e-06_rb,2.0460e-05_rb,4.0361e-05_rb,7.2805e-05_rb,1.1815e-04_rb/)
+      kao(:, 1,14) = (/ &
+     &5.8176e-03_rb,8.5593e-03_rb,1.2130e-02_rb,1.6770e-02_rb,2.2682e-02_rb/)
+      kao(:, 2,14) = (/ &
+     &5.7661e-03_rb,8.5728e-03_rb,1.2312e-02_rb,1.7131e-02_rb,2.3220e-02_rb/)
+      kao(:, 3,14) = (/ &
+     &5.4299e-03_rb,7.9187e-03_rb,1.1613e-02_rb,1.6480e-02_rb,2.2670e-02_rb/)
+      kao(:, 4,14) = (/ &
+     &4.9805e-03_rb,7.1731e-03_rb,1.0470e-02_rb,1.5114e-02_rb,2.1203e-02_rb/)
+      kao(:, 5,14) = (/ &
+     &4.4098e-03_rb,6.5055e-03_rb,9.4518e-03_rb,1.3613e-02_rb,1.9313e-02_rb/)
+      kao(:, 6,14) = (/ &
+     &3.7762e-03_rb,5.6862e-03_rb,8.4288e-03_rb,1.2169e-02_rb,1.7260e-02_rb/)
+      kao(:, 7,14) = (/ &
+     &3.2464e-03_rb,4.8124e-03_rb,6.8092e-03_rb,9.1900e-03_rb,1.1370e-02_rb/)
+      kao(:, 8,14) = (/ &
+     &1.1521e-03_rb,1.1423e-03_rb,1.7687e-03_rb,1.5659e-03_rb,2.2329e-03_rb/)
+      kao(:, 9,14) = (/ &
+     &1.9075e-05_rb,4.4531e-05_rb,8.9053e-05_rb,1.1868e-04_rb,1.6905e-04_rb/)
+      kao(:,10,14) = (/ &
+     &1.1271e-05_rb,2.8156e-05_rb,6.0244e-05_rb,8.6340e-05_rb,1.3123e-04_rb/)
+      kao(:,11,14) = (/ &
+     &1.1591e-05_rb,2.8030e-05_rb,4.8484e-05_rb,7.4281e-05_rb,1.1022e-04_rb/)
+      kao(:,12,14) = (/ &
+     &1.1274e-05_rb,2.5700e-05_rb,4.0234e-05_rb,6.2656e-05_rb,9.8261e-05_rb/)
+      kao(:,13,14) = (/ &
+     &1.0130e-05_rb,1.8686e-05_rb,3.2466e-05_rb,5.4260e-05_rb,8.5980e-05_rb/)
+      kao(:, 1,15) = (/ &
+     &8.0623e-03_rb,1.1623e-02_rb,1.6754e-02_rb,2.3990e-02_rb,3.4103e-02_rb/)
+      kao(:, 2,15) = (/ &
+     &8.1053e-03_rb,1.1698e-02_rb,1.6865e-02_rb,2.3848e-02_rb,3.3543e-02_rb/)
+      kao(:, 3,15) = (/ &
+     &7.5058e-03_rb,1.0852e-02_rb,1.5814e-02_rb,2.2160e-02_rb,3.0813e-02_rb/)
+      kao(:, 4,15) = (/ &
+     &6.7816e-03_rb,9.9478e-03_rb,1.4382e-02_rb,2.0576e-02_rb,2.8388e-02_rb/)
+      kao(:, 5,15) = (/ &
+     &6.3211e-03_rb,9.1146e-03_rb,1.3301e-02_rb,1.9331e-02_rb,2.6874e-02_rb/)
+      kao(:, 6,15) = (/ &
+     &5.8531e-03_rb,8.4323e-03_rb,1.2188e-02_rb,1.7787e-02_rb,2.5518e-02_rb/)
+      kao(:, 7,15) = (/ &
+     &5.3028e-03_rb,7.8385e-03_rb,1.1331e-02_rb,1.6285e-02_rb,2.3804e-02_rb/)
+      kao(:, 8,15) = (/ &
+     &4.7139e-03_rb,4.9648e-03_rb,2.7936e-03_rb,2.1248e-03_rb,1.7982e-03_rb/)
+      kao(:, 9,15) = (/ &
+     &6.9507e-07_rb,1.4412e-06_rb,2.8345e-06_rb,1.0911e-04_rb,2.4370e-04_rb/)
+      kao(:,10,15) = (/ &
+     &3.6501e-07_rb,8.3446e-07_rb,1.6843e-06_rb,6.4065e-05_rb,1.5410e-04_rb/)
+      kao(:,11,15) = (/ &
+     &2.8886e-07_rb,6.6813e-07_rb,2.2629e-05_rb,7.8818e-05_rb,1.6163e-04_rb/)
+      kao(:,12,15) = (/ &
+     &2.6037e-07_rb,5.5485e-07_rb,3.1734e-05_rb,8.0123e-05_rb,1.4669e-04_rb/)
+      kao(:,13,15) = (/ &
+     &2.3446e-07_rb,1.2097e-05_rb,3.4961e-05_rb,7.1280e-05_rb,1.2611e-04_rb/)
+      kao(:, 1,16) = (/ &
+     &8.7570e-03_rb,1.2357e-02_rb,1.9959e-02_rb,3.2636e-02_rb,5.0897e-02_rb/)
+      kao(:, 2,16) = (/ &
+     &9.0825e-03_rb,1.2808e-02_rb,1.9776e-02_rb,3.3132e-02_rb,5.2704e-02_rb/)
+      kao(:, 3,16) = (/ &
+     &8.8201e-03_rb,1.2594e-02_rb,1.7588e-02_rb,3.0181e-02_rb,4.9544e-02_rb/)
+      kao(:, 4,16) = (/ &
+     &8.3170e-03_rb,1.2140e-02_rb,1.6975e-02_rb,2.5787e-02_rb,4.3638e-02_rb/)
+      kao(:, 5,16) = (/ &
+     &7.7605e-03_rb,1.1646e-02_rb,1.6641e-02_rb,2.2927e-02_rb,3.7740e-02_rb/)
+      kao(:, 6,16) = (/ &
+     &7.0356e-03_rb,1.0930e-02_rb,1.6057e-02_rb,2.2523e-02_rb,3.2226e-02_rb/)
+      kao(:, 7,16) = (/ &
+     &6.7105e-03_rb,1.0123e-02_rb,1.5354e-02_rb,2.2098e-02_rb,3.0452e-02_rb/)
+      kao(:, 8,16) = (/ &
+     &6.7590e-03_rb,9.3669e-03_rb,1.4563e-02_rb,1.3873e-02_rb,1.5872e-03_rb/)
+      kao(:, 9,16) = (/ &
+     &5.9690e-07_rb,1.4246e-06_rb,2.9975e-06_rb,4.2222e-06_rb,7.0710e-06_rb/)
+      kao(:,10,16) = (/ &
+     &3.1073e-07_rb,7.7259e-07_rb,1.8451e-06_rb,3.5923e-06_rb,5.6864e-06_rb/)
+      kao(:,11,16) = (/ &
+     &2.5196e-07_rb,6.5326e-07_rb,1.5669e-06_rb,3.1861e-06_rb,5.6813e-06_rb/)
+      kao(:,12,16) = (/ &
+     &1.8633e-07_rb,5.5942e-07_rb,1.3020e-06_rb,2.7030e-06_rb,4.5791e-06_rb/)
+      kao(:,13,16) = (/ &
+     &1.4070e-07_rb,4.5125e-07_rb,1.0269e-06_rb,2.1236e-06_rb,3.8826e-06_rb/)
+
+!     The array KAO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level below 100~ mb.   The first index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index 
+!     runs over the g-channel (1 to 16).
+
+      kao_mco2(:, 1) = (/ &
+     & 1.45661e-05_rb, 1.73337e-05_rb, 2.06273e-05_rb, 2.45466e-05_rb, 2.92105e-05_rb, &
+     & 3.47607e-05_rb, 4.13654e-05_rb, 4.92251e-05_rb, 5.85781e-05_rb, 6.97083e-05_rb, &
+     & 8.29533e-05_rb, 9.87149e-05_rb, 1.17471e-04_rb, 1.39792e-04_rb, 1.66353e-04_rb, &
+     & 1.97961e-04_rb, 2.35574e-04_rb, 2.80335e-04_rb, 3.33600e-04_rb/)
+      kao_mco2(:, 2) = (/ &
+     & 9.96332e-06_rb, 1.21229e-05_rb, 1.47506e-05_rb, 1.79478e-05_rb, 2.18381e-05_rb, &
+     & 2.65716e-05_rb, 3.23310e-05_rb, 3.93389e-05_rb, 4.78658e-05_rb, 5.82408e-05_rb, &
+     & 7.08647e-05_rb, 8.62250e-05_rb, 1.04914e-04_rb, 1.27655e-04_rb, 1.55325e-04_rb, &
+     & 1.88992e-04_rb, 2.29957e-04_rb, 2.79801e-04_rb, 3.40448e-04_rb/)
+      kao_mco2(:, 3) = (/ &
+     & 1.14968e-05_rb, 1.39890e-05_rb, 1.70215e-05_rb, 2.07115e-05_rb, 2.52013e-05_rb, &
+     & 3.06644e-05_rb, 3.73118e-05_rb, 4.54002e-05_rb, 5.52420e-05_rb, 6.72173e-05_rb, &
+     & 8.17887e-05_rb, 9.95188e-05_rb, 1.21092e-04_rb, 1.47343e-04_rb, 1.79283e-04_rb, &
+     & 2.18148e-04_rb, 2.65438e-04_rb, 3.22980e-04_rb, 3.92995e-04_rb/)
+      kao_mco2(:, 4) = (/ &
+     & 1.02186e-05_rb, 1.23232e-05_rb, 1.48613e-05_rb, 1.79222e-05_rb, 2.16134e-05_rb, &
+     & 2.60649e-05_rb, 3.14332e-05_rb, 3.79071e-05_rb, 4.57145e-05_rb, 5.51297e-05_rb, &
+     & 6.64843e-05_rb, 8.01773e-05_rb, 9.66905e-05_rb, 1.16605e-04_rb, 1.40621e-04_rb, &
+     & 1.69583e-04_rb, 2.04510e-04_rb, 2.46631e-04_rb, 2.97426e-04_rb/)
+      kao_mco2(:, 5) = (/ &
+     & 1.03469e-05_rb, 1.24680e-05_rb, 1.50239e-05_rb, 1.81037e-05_rb, 2.18149e-05_rb, &
+     & 2.62869e-05_rb, 3.16756e-05_rb, 3.81690e-05_rb, 4.59935e-05_rb, 5.54220e-05_rb, &
+     & 6.67833e-05_rb, 8.04737e-05_rb, 9.69704e-05_rb, 1.16849e-04_rb, 1.40803e-04_rb, &
+     & 1.69667e-04_rb, 2.04448e-04_rb, 2.46359e-04_rb, 2.96861e-04_rb/)
+      kao_mco2(:, 6) = (/ &
+     & 1.71660e-05_rb, 2.07334e-05_rb, 2.50420e-05_rb, 3.02461e-05_rb, 3.65317e-05_rb, &
+     & 4.41235e-05_rb, 5.32930e-05_rb, 6.43680e-05_rb, 7.77446e-05_rb, 9.39010e-05_rb, &
+     & 1.13415e-04_rb, 1.36984e-04_rb, 1.65451e-04_rb, 1.99835e-04_rb, 2.41363e-04_rb, &
+     & 2.91522e-04_rb, 3.52104e-04_rb, 4.25276e-04_rb, 5.13654e-04_rb/)
+      kao_mco2(:, 7) = (/ &
+     & 4.78803e-05_rb, 5.79395e-05_rb, 7.01119e-05_rb, 8.48418e-05_rb, 1.02666e-04_rb, &
+     & 1.24235e-04_rb, 1.50336e-04_rb, 1.81920e-04_rb, 2.20139e-04_rb, 2.66388e-04_rb, &
+     & 3.22354e-04_rb, 3.90077e-04_rb, 4.72028e-04_rb, 5.71197e-04_rb, 6.91199e-04_rb, &
+     & 8.36413e-04_rb, 1.01214e-03_rb, 1.22477e-03_rb, 1.48209e-03_rb/)
+      kao_mco2(:, 8) = (/ &
+     & 1.27954e-04_rb, 1.55281e-04_rb, 1.88445e-04_rb, 2.28692e-04_rb, 2.77534e-04_rb, &
+     & 3.36808e-04_rb, 4.08741e-04_rb, 4.96037e-04_rb, 6.01977e-04_rb, 7.30542e-04_rb, &
+     & 8.86566e-04_rb, 1.07591e-03_rb, 1.30570e-03_rb, 1.58456e-03_rb, 1.92298e-03_rb, &
+     & 2.33367e-03_rb, 2.83208e-03_rb, 3.43694e-03_rb, 4.17097e-03_rb/)
+      kao_mco2(:, 9) = (/ &
+     & 2.93792e-05_rb, 3.55109e-05_rb, 4.29223e-05_rb, 5.18805e-05_rb, 6.27083e-05_rb, &
+     & 7.57960e-05_rb, 9.16151e-05_rb, 1.10736e-04_rb, 1.33847e-04_rb, 1.61782e-04_rb, &
+     & 1.95547e-04_rb, 2.36359e-04_rb, 2.85689e-04_rb, 3.45315e-04_rb, 4.17384e-04_rb, &
+     & 5.04495e-04_rb, 6.09787e-04_rb, 7.37054e-04_rb, 8.90882e-04_rb/)
+      kao_mco2(:,10) = (/ &
+     & 5.08569e-05_rb, 6.24700e-05_rb, 7.67350e-05_rb, 9.42574e-05_rb, 1.15781e-04_rb, &
+     & 1.42220e-04_rb, 1.74695e-04_rb, 2.14587e-04_rb, 2.63588e-04_rb, 3.23778e-04_rb, &
+     & 3.97712e-04_rb, 4.88530e-04_rb, 6.00085e-04_rb, 7.37114e-04_rb, 9.05433e-04_rb, &
+     & 1.11219e-03_rb, 1.36616e-03_rb, 1.67812e-03_rb, 2.06131e-03_rb/)
+      kao_mco2(:,11) = (/ &
+     & 4.82546e-06_rb, 6.21462e-06_rb, 8.00369e-06_rb, 1.03078e-05_rb, 1.32752e-05_rb, &
+     & 1.70969e-05_rb, 2.20188e-05_rb, 2.83575e-05_rb, 3.65211e-05_rb, 4.70348e-05_rb, &
+     & 6.05753e-05_rb, 7.80138e-05_rb, 1.00472e-04_rb, 1.29397e-04_rb, 1.66647e-04_rb, &
+     & 2.14622e-04_rb, 2.76407e-04_rb, 3.55980e-04_rb, 4.58459e-04_rb/)
+      kao_mco2(:,12) = (/ &
+     & 2.41346e-06_rb, 2.96282e-06_rb, 3.63723e-06_rb, 4.46516e-06_rb, 5.48153e-06_rb, &
+     & 6.72926e-06_rb, 8.26100e-06_rb, 1.01414e-05_rb, 1.24498e-05_rb, 1.52837e-05_rb, &
+     & 1.87627e-05_rb, 2.30335e-05_rb, 2.82765e-05_rb, 3.47129e-05_rb, 4.26144e-05_rb, &
+     & 5.23144e-05_rb, 6.42225e-05_rb, 7.88410e-05_rb, 9.67871e-05_rb/)
+      kao_mco2(:,13) = (/ &
+     & 2.76412e-06_rb, 3.46195e-06_rb, 4.33596e-06_rb, 5.43062e-06_rb, 6.80164e-06_rb, &
+     & 8.51879e-06_rb, 1.06695e-05_rb, 1.33631e-05_rb, 1.67367e-05_rb, 2.09621e-05_rb, &
+     & 2.62542e-05_rb, 3.28824e-05_rb, 4.11839e-05_rb, 5.15813e-05_rb, 6.46035e-05_rb, &
+     & 8.09134e-05_rb, 1.01341e-04_rb, 1.26925e-04_rb, 1.58969e-04_rb/)
+      kao_mco2(:,14) = (/ &
+     & 1.25126e-06_rb, 1.54971e-06_rb, 1.91935e-06_rb, 2.37715e-06_rb, 2.94416e-06_rb, &
+     & 3.64640e-06_rb, 4.51615e-06_rb, 5.59335e-06_rb, 6.92749e-06_rb, 8.57985e-06_rb, &
+     & 1.06263e-05_rb, 1.31610e-05_rb, 1.63001e-05_rb, 2.01881e-05_rb, 2.50034e-05_rb, &
+     & 3.09672e-05_rb, 3.83536e-05_rb, 4.75018e-05_rb, 5.88319e-05_rb/)
+      kao_mco2(:,15) = (/ &
+     & 1.59748e-06_rb, 2.08378e-06_rb, 2.71812e-06_rb, 3.54557e-06_rb, 4.62491e-06_rb, &
+     & 6.03282e-06_rb, 7.86932e-06_rb, 1.02649e-05_rb, 1.33897e-05_rb, 1.74658e-05_rb, &
+     & 2.27827e-05_rb, 2.97182e-05_rb, 3.87649e-05_rb, 5.05657e-05_rb, 6.59589e-05_rb, &
+     & 8.60380e-05_rb, 1.12230e-04_rb, 1.46394e-04_rb, 1.90959e-04_rb/)
+      kao_mco2(:,16) = (/ &
+     & 1.68148e-06_rb, 2.17133e-06_rb, 2.80388e-06_rb, 3.62071e-06_rb, 4.67549e-06_rb, &
+     & 6.03756e-06_rb, 7.79642e-06_rb, 1.00677e-05_rb, 1.30006e-05_rb, 1.67879e-05_rb, &
+     & 2.16786e-05_rb, 2.79941e-05_rb, 3.61493e-05_rb, 4.66803e-05_rb, 6.02792e-05_rb, &
+     & 7.78398e-05_rb, 1.00516e-04_rb, 1.29799e-04_rb, 1.67612e-04_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &3.2710e-07_rb,5.2119e-07_rb,8.4740e-07_rb,1.6908e-06_rb,2.3433e-06_rb,4.4129e-06_rb, &
+     &3.8930e-06_rb,2.3338e-06_rb,2.4115e-06_rb,2.4271e-06_rb,2.4836e-06_rb,2.6470e-06_rb, &
+     &2.9559e-06_rb,2.3940e-06_rb,2.9711e-06_rb,2.9511e-06_rb/)
+      forrefo(2,:) = (/ &
+     &6.5125e-07_rb,1.2128e-06_rb,1.7249e-06_rb,2.7126e-06_rb,3.1780e-06_rb,2.1444e-06_rb, &
+     &1.8265e-06_rb,1.7385e-06_rb,1.4574e-06_rb,1.6135e-06_rb,2.4966e-06_rb,2.8127e-06_rb, &
+     &2.5229e-06_rb,2.3251e-06_rb,2.5353e-06_rb,3.0200e-06_rb/)
+      forrefo(3,:) = (/ &
+     &1.4969e-06_rb,1.8516e-06_rb,2.5791e-06_rb,2.7846e-06_rb,1.9789e-06_rb,1.6688e-06_rb, &
+     &1.1037e-06_rb,9.9065e-07_rb,1.1557e-06_rb,7.0847e-07_rb,5.7758e-07_rb,4.0425e-07_rb, &
+     &3.2427e-07_rb,3.2267e-07_rb,3.1444e-07_rb,2.6046e-07_rb/)
+      forrefo(4,:) = (/ &
+     &1.7567e-06_rb,1.6891e-06_rb,2.1003e-06_rb,2.0957e-06_rb,2.3664e-06_rb,2.1538e-06_rb, &
+     &1.5275e-06_rb,1.0487e-06_rb,8.7390e-07_rb,7.9360e-07_rb,7.7778e-07_rb,8.1445e-07_rb, &
+     &8.2121e-07_rb,5.4395e-07_rb,3.1273e-07_rb,3.1848e-07_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 7.73921e-02_rb, 6.45225e-02_rb, 5.37930e-02_rb, 4.48477e-02_rb, 3.73900e-02_rb, &
+     & 3.11723e-02_rb, 2.59887e-02_rb, 2.16670e-02_rb, 1.80640e-02_rb, 1.50601e-02_rb/)
+      selfrefo(:, 2) = (/ &
+     & 8.47756e-02_rb, 7.10616e-02_rb, 5.95660e-02_rb, 4.99301e-02_rb, 4.18529e-02_rb, &
+     & 3.50824e-02_rb, 2.94072e-02_rb, 2.46500e-02_rb, 2.06624e-02_rb, 1.73199e-02_rb/)
+      selfrefo(:, 3) = (/ &
+     & 8.84829e-02_rb, 7.46093e-02_rb, 6.29110e-02_rb, 5.30469e-02_rb, 4.47295e-02_rb, &
+     & 3.77161e-02_rb, 3.18025e-02_rb, 2.68160e-02_rb, 2.26114e-02_rb, 1.90661e-02_rb/)
+      selfrefo(:, 4) = (/ &
+     & 9.27003e-02_rb, 7.88864e-02_rb, 6.71310e-02_rb, 5.71273e-02_rb, 4.86144e-02_rb, &
+     & 4.13700e-02_rb, 3.52052e-02_rb, 2.99590e-02_rb, 2.54946e-02_rb, 2.16955e-02_rb/)
+      selfrefo(:, 5) = (/ &
+     & 9.14315e-02_rb, 7.85661e-02_rb, 6.75110e-02_rb, 5.80115e-02_rb, 4.98487e-02_rb, &
+     & 4.28344e-02_rb, 3.68072e-02_rb, 3.16280e-02_rb, 2.71776e-02_rb, 2.33534e-02_rb/)
+      selfrefo(:, 6) = (/ &
+     & 7.72984e-02_rb, 6.91044e-02_rb, 6.17790e-02_rb, 5.52301e-02_rb, 4.93755e-02_rb, &
+     & 4.41414e-02_rb, 3.94622e-02_rb, 3.52790e-02_rb, 3.15392e-02_rb, 2.81959e-02_rb/)
+      selfrefo(:, 7) = (/ &
+     & 7.46998e-02_rb, 6.66597e-02_rb, 5.94850e-02_rb, 5.30825e-02_rb, 4.73691e-02_rb, &
+     & 4.22707e-02_rb, 3.77210e-02_rb, 3.36610e-02_rb, 3.00380e-02_rb, 2.68049e-02_rb/)
+      selfrefo(:, 8) = (/ &
+     & 7.59386e-02_rb, 6.66263e-02_rb, 5.84560e-02_rb, 5.12876e-02_rb, 4.49982e-02_rb, &
+     & 3.94801e-02_rb, 3.46387e-02_rb, 3.03910e-02_rb, 2.66642e-02_rb, 2.33944e-02_rb/)
+      selfrefo(:, 9) = (/ &
+     & 7.26921e-02_rb, 6.43261e-02_rb, 5.69230e-02_rb, 5.03719e-02_rb, 4.45747e-02_rb, &
+     & 3.94447e-02_rb, 3.49051e-02_rb, 3.08880e-02_rb, 2.73332e-02_rb, 2.41875e-02_rb/)
+      selfrefo(:,10) = (/ &
+     & 7.43684e-02_rb, 6.58735e-02_rb, 5.83490e-02_rb, 5.16840e-02_rb, 4.57803e-02_rb, &
+     & 4.05509e-02_rb, 3.59189e-02_rb, 3.18160e-02_rb, 2.81818e-02_rb, 2.49626e-02_rb/)
+      selfrefo(:,11) = (/ &
+     & 8.97599e-02_rb, 7.73727e-02_rb, 6.66950e-02_rb, 5.74908e-02_rb, 4.95569e-02_rb, &
+     & 4.27179e-02_rb, 3.68227e-02_rb, 3.17410e-02_rb, 2.73606e-02_rb, 2.35848e-02_rb/)
+      selfrefo(:,12) = (/ &
+     & 9.12262e-02_rb, 7.84848e-02_rb, 6.75230e-02_rb, 5.80922e-02_rb, 4.99786e-02_rb, &
+     & 4.29982e-02_rb, 3.69927e-02_rb, 3.18260e-02_rb, 2.73809e-02_rb, 2.35567e-02_rb/)
+      selfrefo(:,13) = (/ &
+     & 9.03254e-02_rb, 7.83291e-02_rb, 6.79260e-02_rb, 5.89046e-02_rb, 5.10813e-02_rb, &
+     & 4.42970e-02_rb, 3.84139e-02_rb, 3.33120e-02_rb, 2.88877e-02_rb, 2.50511e-02_rb/)
+      selfrefo(:,14) = (/ &
+     & 9.22803e-02_rb, 7.94172e-02_rb, 6.83470e-02_rb, 5.88199e-02_rb, 5.06209e-02_rb, &
+     & 4.35647e-02_rb, 3.74921e-02_rb, 3.22660e-02_rb, 2.77684e-02_rb, 2.38977e-02_rb/)
+      selfrefo(:,15) = (/ &
+     & 9.36819e-02_rb, 8.10810e-02_rb, 7.01750e-02_rb, 6.07359e-02_rb, 5.25665e-02_rb, &
+     & 4.54959e-02_rb, 3.93764e-02_rb, 3.40800e-02_rb, 2.94960e-02_rb, 2.55286e-02_rb/)
+      selfrefo(:,16) = (/ &
+     & 1.00195e-01_rb, 8.58713e-02_rb, 7.35950e-02_rb, 6.30737e-02_rb, 5.40566e-02_rb, &
+     & 4.63286e-02_rb, 3.97054e-02_rb, 3.40290e-02_rb, 2.91641e-02_rb, 2.49948e-02_rb/)
+
+      end subroutine lw_kgb06
+
+! **************************************************************************
+      subroutine lw_kgb07
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg07, only : fracrefao, fracrefbo, kao, kbo, kao_mco2, &
+                            kbo_mco2, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P = 706.27 mb, T = 278.94 K
+      fracrefao(:, 1) = (/ &
+        1.6312e-01_rb,1.4949e-01_rb,1.4305e-01_rb,1.3161e-01_rb,1.1684e-01_rb,9.9900e-02_rb, &
+        8.0912e-02_rb,6.0203e-02_rb,4.0149e-02_rb,4.3365e-03_rb,3.5844e-03_rb,2.8019e-03_rb, &
+        2.0756e-03_rb,1.3449e-03_rb,5.0492e-04_rb,7.1194e-05_rb/)
+      fracrefao(:, 2) = (/ &
+        1.6329e-01_rb,1.4989e-01_rb,1.4328e-01_rb,1.3101e-01_rb,1.1691e-01_rb,9.9754e-02_rb, &
+        8.0956e-02_rb,5.9912e-02_rb,4.0271e-02_rb,4.3298e-03_rb,3.5626e-03_rb,2.8421e-03_rb, &
+        2.1031e-03_rb,1.3360e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)
+      fracrefao(:, 3) = (/ &
+        1.6236e-01_rb,1.5081e-01_rb,1.4341e-01_rb,1.3083e-01_rb,1.1684e-01_rb,9.9701e-02_rb, &
+        8.0956e-02_rb,5.9884e-02_rb,4.0245e-02_rb,4.3837e-03_rb,3.6683e-03_rb,2.9250e-03_rb, &
+        2.0969e-03_rb,1.3320e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)
+      fracrefao(:, 4) = (/ &
+        1.6096e-01_rb,1.5183e-01_rb,1.4354e-01_rb,1.3081e-01_rb,1.1687e-01_rb,9.9619e-02_rb, &
+        8.0947e-02_rb,5.9899e-02_rb,4.0416e-02_rb,4.4389e-03_rb,3.7280e-03_rb,2.9548e-03_rb, &
+        2.0977e-03_rb,1.3305e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)
+      fracrefao(:, 5) = (/ &
+        1.5661e-01_rb,1.5478e-01_rb,1.4414e-01_rb,1.3097e-01_rb,1.1695e-01_rb,9.9823e-02_rb, &
+        8.0750e-02_rb,6.0100e-02_rb,4.0741e-02_rb,4.4598e-03_rb,3.7366e-03_rb,2.9521e-03_rb, &
+        2.0980e-03_rb,1.3297e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)
+      fracrefao(:, 6) = (/ &
+        1.4879e-01_rb,1.5853e-01_rb,1.4586e-01_rb,1.3162e-01_rb,1.1729e-01_rb,1.0031e-01_rb, &
+        8.0908e-02_rb,6.0460e-02_rb,4.1100e-02_rb,4.4578e-03_rb,3.7388e-03_rb,2.9508e-03_rb, &
+        2.0986e-03_rb,1.3288e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)
+      fracrefao(:, 7) = (/ &
+        1.4117e-01_rb,1.4838e-01_rb,1.4807e-01_rb,1.3759e-01_rb,1.2218e-01_rb,1.0228e-01_rb, &
+        8.2130e-02_rb,6.1546e-02_rb,4.1522e-02_rb,4.4577e-03_rb,3.7428e-03_rb,2.9475e-03_rb, &
+        2.0997e-03_rb,1.3277e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)
+      fracrefao(:, 8) = (/ &
+        1.4018e-01_rb,1.4207e-01_rb,1.3919e-01_rb,1.3332e-01_rb,1.2325e-01_rb,1.0915e-01_rb, &
+        9.0280e-02_rb,6.5554e-02_rb,4.1852e-02_rb,4.4707e-03_rb,3.7572e-03_rb,2.9364e-03_rb, &
+        2.1023e-03_rb,1.3249e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)
+      fracrefao(:, 9) = (/ &
+        1.4863e-01_rb,1.4926e-01_rb,1.4740e-01_rb,1.3558e-01_rb,1.1999e-01_rb,1.0044e-01_rb, &
+        8.1927e-02_rb,6.0989e-02_rb,4.0665e-02_rb,4.4481e-03_rb,3.7369e-03_rb,2.9482e-03_rb, &
+        2.0976e-03_rb,1.3281e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)
+
+! Planck fraction mapping level : P=95.58 mbar, T= 215.70 K
+      fracrefbo(:) = (/ &
+        1.5872e-01_rb,1.5443e-01_rb,1.4413e-01_rb,1.3147e-01_rb,1.1634e-01_rb,9.8914e-02_rb, &
+        8.0236e-02_rb,6.0197e-02_rb,4.0624e-02_rb,4.4225e-03_rb,3.6688e-03_rb,2.9074e-03_rb, &
+        2.0862e-03_rb,1.3039e-03_rb,4.8561e-04_rb,6.8854e-05_rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1, 1) = (/ &
+     &2.0715e-06_rb,2.0394e-06_rb,5.0240e-06_rb,1.0614e-05_rb,1.1983e-05_rb,1.5554e-05_rb, &
+     &1.7831e-05_rb,2.6227e-05_rb,1.2374e-05_rb/)
+      kao(:, 2, 1, 1) = (/ &
+     &2.6968e-06_rb,2.7207e-06_rb,3.6723e-06_rb,1.1698e-05_rb,1.3601e-05_rb,1.5350e-05_rb, &
+     &2.0818e-05_rb,2.8393e-05_rb,1.1509e-05_rb/)
+      kao(:, 3, 1, 1) = (/ &
+     &3.4058e-06_rb,3.5757e-06_rb,3.8081e-06_rb,7.3554e-06_rb,1.4372e-05_rb,1.6368e-05_rb, &
+     &1.9019e-05_rb,3.0058e-05_rb,1.1256e-05_rb/)
+      kao(:, 4, 1, 1) = (/ &
+     &4.2245e-06_rb,4.8570e-06_rb,4.7347e-06_rb,6.0087e-06_rb,1.4347e-05_rb,1.6902e-05_rb, &
+     &1.9725e-05_rb,2.9609e-05_rb,1.0323e-05_rb/)
+      kao(:, 5, 1, 1) = (/ &
+     &5.1348e-06_rb,6.1189e-06_rb,5.9979e-06_rb,6.4031e-06_rb,9.6268e-06_rb,1.7276e-05_rb, &
+     &1.9533e-05_rb,2.5577e-05_rb,1.1200e-05_rb/)
+      kao(:, 1, 2, 1) = (/ &
+     &2.7400e-06_rb,2.6398e-06_rb,3.5715e-06_rb,8.9653e-06_rb,1.1704e-05_rb,1.2732e-05_rb, &
+     &1.5109e-05_rb,1.8326e-05_rb,7.6584e-06_rb/)
+      kao(:, 2, 2, 1) = (/ &
+     &3.7023e-06_rb,3.5996e-06_rb,3.5466e-06_rb,6.4138e-06_rb,1.4301e-05_rb,1.4484e-05_rb, &
+     &1.7298e-05_rb,2.1003e-05_rb,7.8450e-06_rb/)
+      kao(:, 3, 2, 1) = (/ &
+     &4.8529e-06_rb,4.7902e-06_rb,4.4795e-06_rb,5.2052e-06_rb,1.0079e-05_rb,1.6425e-05_rb, &
+     &1.7110e-05_rb,2.3533e-05_rb,8.0830e-06_rb/)
+      kao(:, 4, 2, 1) = (/ &
+     &6.0952e-06_rb,6.1266e-06_rb,5.7794e-06_rb,5.6603e-06_rb,7.5131e-06_rb,1.6775e-05_rb, &
+     &1.7862e-05_rb,2.1237e-05_rb,6.9720e-06_rb/)
+      kao(:, 5, 2, 1) = (/ &
+     &7.4621e-06_rb,7.9816e-06_rb,7.3755e-06_rb,7.0507e-06_rb,7.2782e-06_rb,1.2172e-05_rb, &
+     &1.8558e-05_rb,2.1490e-05_rb,7.0903e-06_rb/)
+      kao(:, 1, 3, 1) = (/ &
+     &4.8603e-06_rb,4.7726e-06_rb,4.1802e-06_rb,5.2554e-06_rb,9.0303e-06_rb,1.4041e-05_rb, &
+     &1.3465e-05_rb,1.4273e-05_rb,4.5115e-06_rb/)
+      kao(:, 2, 3, 1) = (/ &
+     &6.5045e-06_rb,6.5033e-06_rb,5.8343e-06_rb,5.3408e-06_rb,7.3167e-06_rb,1.4520e-05_rb, &
+     &1.5602e-05_rb,1.7982e-05_rb,4.5301e-06_rb/)
+      kao(:, 3, 3, 1) = (/ &
+     &8.5550e-06_rb,8.5301e-06_rb,7.7170e-06_rb,6.8750e-06_rb,6.6921e-06_rb,1.0610e-05_rb, &
+     &1.8653e-05_rb,1.7976e-05_rb,3.9894e-06_rb/)
+      kao(:, 4, 3, 1) = (/ &
+     &1.0940e-05_rb,1.0943e-05_rb,9.9861e-06_rb,8.8481e-06_rb,7.8291e-06_rb,8.3918e-06_rb, &
+     &1.7829e-05_rb,1.8992e-05_rb,3.8512e-06_rb/)
+      kao(:, 5, 3, 1) = (/ &
+     &1.3936e-05_rb,1.3811e-05_rb,1.2489e-05_rb,1.1153e-05_rb,9.8326e-06_rb,8.7685e-06_rb, &
+     &1.2193e-05_rb,1.9703e-05_rb,4.2059e-06_rb/)
+      kao(:, 1, 4, 1) = (/ &
+     &8.9960e-06_rb,8.6210e-06_rb,7.6632e-06_rb,6.4630e-06_rb,6.4239e-06_rb,9.4367e-06_rb, &
+     &1.6258e-05_rb,1.3756e-05_rb,2.4163e-06_rb/)
+      kao(:, 2, 4, 1) = (/ &
+     &1.2134e-05_rb,1.1807e-05_rb,1.0673e-05_rb,9.1029e-06_rb,7.7016e-06_rb,8.4861e-06_rb, &
+     &1.4567e-05_rb,1.5036e-05_rb,2.1658e-06_rb/)
+      kao(:, 3, 4, 1) = (/ &
+     &1.6015e-05_rb,1.5688e-05_rb,1.4339e-05_rb,1.2455e-05_rb,1.0313e-05_rb,8.5777e-06_rb, &
+     &1.1331e-05_rb,1.8116e-05_rb,2.2633e-06_rb/)
+      kao(:, 4, 4, 1) = (/ &
+     &2.0597e-05_rb,2.0155e-05_rb,1.8480e-05_rb,1.6165e-05_rb,1.3589e-05_rb,1.0837e-05_rb, &
+     &9.4849e-06_rb,2.1131e-05_rb,2.4289e-06_rb/)
+      kao(:, 5, 4, 1) = (/ &
+     &2.5729e-05_rb,2.5473e-05_rb,2.3255e-05_rb,2.0429e-05_rb,1.7213e-05_rb,1.3828e-05_rb, &
+     &1.0618e-05_rb,1.5874e-05_rb,3.2874e-06_rb/)
+      kao(:, 1, 5, 1) = (/ &
+     &1.6376e-05_rb,1.4981e-05_rb,1.3148e-05_rb,1.1171e-05_rb,9.2339e-06_rb,7.8648e-06_rb, &
+     &1.1215e-05_rb,1.5160e-05_rb,1.0907e-06_rb/)
+      kao(:, 2, 5, 1) = (/ &
+     &2.2074e-05_rb,2.0407e-05_rb,1.8083e-05_rb,1.5475e-05_rb,1.2746e-05_rb,1.0050e-05_rb, &
+     &1.0049e-05_rb,1.8902e-05_rb,1.3007e-06_rb/)
+      kao(:, 3, 5, 1) = (/ &
+     &2.9048e-05_rb,2.7094e-05_rb,2.4278e-05_rb,2.1033e-05_rb,1.7417e-05_rb,1.3618e-05_rb, &
+     &1.0309e-05_rb,1.5056e-05_rb,1.4150e-06_rb/)
+      kao(:, 4, 5, 1) = (/ &
+     &3.7623e-05_rb,3.5233e-05_rb,3.1800e-05_rb,2.7623e-05_rb,2.3164e-05_rb,1.8269e-05_rb, &
+     &1.3014e-05_rb,1.1951e-05_rb,2.0520e-06_rb/)
+      kao(:, 5, 5, 1) = (/ &
+     &4.7365e-05_rb,4.4556e-05_rb,4.0255e-05_rb,3.5279e-05_rb,2.9803e-05_rb,2.3695e-05_rb, &
+     &1.6824e-05_rb,1.0864e-05_rb,3.0931e-06_rb/)
+      kao(:, 1, 6, 1) = (/ &
+     &2.9059e-05_rb,2.6117e-05_rb,2.2727e-05_rb,1.9184e-05_rb,1.5516e-05_rb,1.1998e-05_rb, &
+     &9.5851e-06_rb,1.6016e-05_rb,6.6366e-07_rb/)
+      kao(:, 2, 6, 1) = (/ &
+     &3.9281e-05_rb,3.5568e-05_rb,3.1182e-05_rb,2.6432e-05_rb,2.1505e-05_rb,1.6402e-05_rb, &
+     &1.1717e-05_rb,1.2828e-05_rb,7.2868e-07_rb/)
+      kao(:, 3, 6, 1) = (/ &
+     &5.2094e-05_rb,4.7264e-05_rb,4.1432e-05_rb,3.5398e-05_rb,2.9041e-05_rb,2.2416e-05_rb, &
+     &1.5568e-05_rb,1.1439e-05_rb,1.0703e-06_rb/)
+      kao(:, 4, 6, 1) = (/ &
+     &6.7466e-05_rb,6.1301e-05_rb,5.3945e-05_rb,4.6275e-05_rb,3.8268e-05_rb,2.9782e-05_rb, &
+     &2.0926e-05_rb,1.2149e-05_rb,1.6636e-06_rb/)
+      kao(:, 5, 6, 1) = (/ &
+     &8.5711e-05_rb,7.8253e-05_rb,6.9113e-05_rb,5.9588e-05_rb,4.9429e-05_rb,3.8720e-05_rb, &
+     &2.7357e-05_rb,1.5302e-05_rb,2.4859e-06_rb/)
+      kao(:, 1, 7, 1) = (/ &
+     &5.4651e-05_rb,4.8396e-05_rb,4.1917e-05_rb,3.5300e-05_rb,2.8526e-05_rb,2.1678e-05_rb, &
+     &1.5027e-05_rb,1.1124e-05_rb,3.7210e-07_rb/)
+      kao(:, 2, 7, 1) = (/ &
+     &7.4826e-05_rb,6.6392e-05_rb,5.7621e-05_rb,4.8629e-05_rb,3.9371e-05_rb,2.9959e-05_rb, &
+     &2.0404e-05_rb,1.1926e-05_rb,4.6517e-07_rb/)
+      kao(:, 3, 7, 1) = (/ &
+     &9.9886e-05_rb,8.9008e-05_rb,7.7375e-05_rb,6.5427e-05_rb,5.3175e-05_rb,4.0667e-05_rb, &
+     &2.7777e-05_rb,1.4838e-05_rb,7.6733e-07_rb/)
+      kao(:, 4, 7, 1) = (/ &
+     &1.3028e-04_rb,1.1642e-04_rb,1.0145e-04_rb,8.5974e-05_rb,7.0058e-05_rb,5.3698e-05_rb, &
+     &3.6993e-05_rb,1.9660e-05_rb,1.2756e-06_rb/)
+      kao(:, 5, 7, 1) = (/ &
+     &1.6675e-04_rb,1.4925e-04_rb,1.3030e-04_rb,1.1056e-04_rb,9.0256e-05_rb,6.9412e-05_rb, &
+     &4.8077e-05_rb,2.5971e-05_rb,2.0598e-06_rb/)
+      kao(:, 1, 8, 1) = (/ &
+     &1.3360e-04_rb,1.1739e-04_rb,1.0102e-04_rb,8.4552e-05_rb,6.8007e-05_rb,5.1398e-05_rb, &
+     &3.4619e-05_rb,1.8035e-05_rb,1.9024e-07_rb/)
+      kao(:, 2, 8, 1) = (/ &
+     &1.8185e-04_rb,1.6006e-04_rb,1.3792e-04_rb,1.1564e-04_rb,9.3245e-05_rb,7.0615e-05_rb, &
+     &4.7676e-05_rb,2.4529e-05_rb,3.0949e-07_rb/)
+      kao(:, 3, 8, 1) = (/ &
+     &2.4405e-04_rb,2.1504e-04_rb,1.8547e-04_rb,1.5570e-04_rb,1.2559e-04_rb,9.5220e-05_rb, &
+     &6.4517e-05_rb,3.3270e-05_rb,5.6654e-07_rb/)
+      kao(:, 4, 8, 1) = (/ &
+     &3.2056e-04_rb,2.8296e-04_rb,2.4441e-04_rb,2.0538e-04_rb,1.6592e-04_rb,1.2607e-04_rb, &
+     &8.5723e-05_rb,4.4370e-05_rb,1.0126e-06_rb/)
+      kao(:, 5, 8, 1) = (/ &
+     &4.1126e-04_rb,3.6352e-04_rb,3.1426e-04_rb,2.6419e-04_rb,2.1364e-04_rb,1.6265e-04_rb, &
+     &1.1079e-04_rb,5.7674e-05_rb,1.7042e-06_rb/)
+      kao(:, 1, 9, 1) = (/ &
+     &6.2463e-04_rb,5.4698e-04_rb,4.6923e-04_rb,3.9140e-04_rb,3.1352e-04_rb,2.3558e-04_rb, &
+     &1.5756e-04_rb,7.9405e-05_rb,1.4148e-07_rb/)
+      kao(:, 2, 9, 1) = (/ &
+     &8.5834e-04_rb,7.5200e-04_rb,6.4533e-04_rb,5.3850e-04_rb,4.3155e-04_rb,3.2449e-04_rb, &
+     &2.1732e-04_rb,1.0986e-04_rb,2.9809e-07_rb/)
+      kao(:, 3, 9, 1) = (/ &
+     &1.1576e-03_rb,1.0147e-03_rb,8.7098e-04_rb,7.2712e-04_rb,5.8298e-04_rb,4.3871e-04_rb, &
+     &2.9418e-04_rb,1.4894e-04_rb,5.9602e-07_rb/)
+      kao(:, 4, 9, 1) = (/ &
+     &1.5307e-03_rb,1.3423e-03_rb,1.1527e-03_rb,9.6254e-04_rb,7.7214e-04_rb,5.8148e-04_rb, &
+     &3.9028e-04_rb,1.9773e-04_rb,1.1255e-06_rb/)
+      kao(:, 5, 9, 1) = (/ &
+     &1.9847e-03_rb,1.7410e-03_rb,1.4953e-03_rb,1.2490e-03_rb,1.0025e-03_rb,7.5537e-04_rb, &
+     &5.0679e-04_rb,2.5732e-04_rb,1.9162e-06_rb/)
+      kao(:, 1,10, 1) = (/ &
+     &3.6169e-03_rb,3.1652e-03_rb,2.7133e-03_rb,2.2615e-03_rb,1.8097e-03_rb,1.3577e-03_rb, &
+     &9.0574e-04_rb,4.5358e-04_rb,1.4845e-07_rb/)
+      kao(:, 2,10, 1) = (/ &
+     &4.9699e-03_rb,4.3495e-03_rb,3.7290e-03_rb,3.1084e-03_rb,2.4876e-03_rb,1.8667e-03_rb, &
+     &1.2456e-03_rb,6.2420e-04_rb,3.2434e-07_rb/)
+      kao(:, 3,10, 1) = (/ &
+     &6.7347e-03_rb,5.8945e-03_rb,5.0543e-03_rb,4.2138e-03_rb,3.3728e-03_rb,2.5314e-03_rb, &
+     &1.6895e-03_rb,8.4729e-04_rb,6.8830e-07_rb/)
+      kao(:, 4,10, 1) = (/ &
+     &8.9371e-03_rb,7.8231e-03_rb,6.7088e-03_rb,5.5938e-03_rb,4.4779e-03_rb,3.3612e-03_rb, &
+     &2.2441e-03_rb,1.1262e-03_rb,1.3449e-06_rb/)
+      kao(:, 5,10, 1) = (/ &
+     &1.1613e-02_rb,1.0166e-02_rb,8.7190e-03_rb,7.2700e-03_rb,5.8199e-03_rb,4.3690e-03_rb, &
+     &2.9176e-03_rb,1.4653e-03_rb,2.4729e-06_rb/)
+      kao(:, 1,11, 1) = (/ &
+     &8.2249e-03_rb,7.1970e-03_rb,6.1693e-03_rb,5.1415e-03_rb,4.1138e-03_rb,3.0859e-03_rb, &
+     &2.0579e-03_rb,1.0298e-03_rb,1.4864e-07_rb/)
+      kao(:, 2,11, 1) = (/ &
+     &1.1270e-02_rb,9.8625e-03_rb,8.4545e-03_rb,7.0466e-03_rb,5.6386e-03_rb,4.2301e-03_rb, &
+     &2.8215e-03_rb,1.4124e-03_rb,3.4574e-07_rb/)
+      kao(:, 3,11, 1) = (/ &
+     &1.5223e-02_rb,1.3322e-02_rb,1.1421e-02_rb,9.5200e-03_rb,7.6187e-03_rb,5.7167e-03_rb, &
+     &3.8140e-03_rb,1.9100e-03_rb,7.2590e-07_rb/)
+      kao(:, 4,11, 1) = (/ &
+     &2.0093e-02_rb,1.7585e-02_rb,1.5077e-02_rb,1.2568e-02_rb,1.0059e-02_rb,7.5477e-03_rb, &
+     &5.0358e-03_rb,2.5228e-03_rb,1.4168e-06_rb/)
+      kao(:, 5,11, 1) = (/ &
+     &2.5957e-02_rb,2.2717e-02_rb,1.9478e-02_rb,1.6238e-02_rb,1.2998e-02_rb,9.7533e-03_rb, &
+     &6.5080e-03_rb,3.2606e-03_rb,2.6860e-06_rb/)
+      kao(:, 1,12, 1) = (/ &
+     &1.1827e-02_rb,1.0349e-02_rb,8.8708e-03_rb,7.3929e-03_rb,5.9148e-03_rb,4.4367e-03_rb, &
+     &2.9587e-03_rb,1.4802e-03_rb,1.3931e-07_rb/)
+      kao(:, 2,12, 1) = (/ &
+     &1.6211e-02_rb,1.4185e-02_rb,1.2160e-02_rb,1.0134e-02_rb,8.1087e-03_rb,6.0831e-03_rb, &
+     &4.0569e-03_rb,2.0301e-03_rb,3.2171e-07_rb/)
+      kao(:, 3,12, 1) = (/ &
+     &2.1828e-02_rb,1.9101e-02_rb,1.6374e-02_rb,1.3648e-02_rb,1.0921e-02_rb,8.1937e-03_rb, &
+     &5.4651e-03_rb,2.7355e-03_rb,6.8081e-07_rb/)
+      kao(:, 4,12, 1) = (/ &
+     &2.8730e-02_rb,2.5142e-02_rb,2.1554e-02_rb,1.7967e-02_rb,1.4379e-02_rb,1.0788e-02_rb, &
+     &7.1961e-03_rb,3.6027e-03_rb,1.3459e-06_rb/)
+      kao(:, 5,12, 1) = (/ &
+     &3.6999e-02_rb,3.2380e-02_rb,2.7760e-02_rb,2.3140e-02_rb,1.8520e-02_rb,1.3896e-02_rb, &
+     &9.2700e-03_rb,4.6424e-03_rb,2.5690e-06_rb/)
+      kao(:, 1,13, 1) = (/ &
+     &1.3632e-02_rb,1.1928e-02_rb,1.0225e-02_rb,8.5212e-03_rb,6.8176e-03_rb,5.1139e-03_rb, &
+     &3.4100e-03_rb,1.7059e-03_rb,1.1695e-07_rb/)
+      kao(:, 2,13, 1) = (/ &
+     &1.8706e-02_rb,1.6369e-02_rb,1.4031e-02_rb,1.1694e-02_rb,9.3569e-03_rb,7.0195e-03_rb, &
+     &4.6811e-03_rb,2.3422e-03_rb,2.7119e-07_rb/)
+      kao(:, 3,13, 1) = (/ &
+     &2.5132e-02_rb,2.1993e-02_rb,1.8852e-02_rb,1.5713e-02_rb,1.2573e-02_rb,9.4331e-03_rb, &
+     &6.2911e-03_rb,3.1482e-03_rb,5.7144e-07_rb/)
+      kao(:, 4,13, 1) = (/ &
+     &3.3041e-02_rb,2.8914e-02_rb,2.4787e-02_rb,2.0660e-02_rb,1.6533e-02_rb,1.2406e-02_rb, &
+     &8.2739e-03_rb,4.1414e-03_rb,1.1335e-06_rb/)
+      kao(:, 5,13, 1) = (/ &
+     &4.2440e-02_rb,3.7140e-02_rb,3.1841e-02_rb,2.6541e-02_rb,2.1241e-02_rb,1.5937e-02_rb, &
+     &1.0630e-02_rb,5.3218e-03_rb,2.1676e-06_rb/)
+      kao(:, 1, 1, 2) = (/ &
+     &4.1413e-06_rb,5.7568e-06_rb,5.6875e-06_rb,2.2265e-05_rb,2.6421e-05_rb,2.7053e-05_rb, &
+     &2.9360e-05_rb,4.0970e-05_rb,1.4958e-05_rb/)
+      kao(:, 2, 1, 2) = (/ &
+     &5.1991e-06_rb,7.4465e-06_rb,7.4944e-06_rb,1.1514e-05_rb,2.6560e-05_rb,2.7448e-05_rb, &
+     &2.9314e-05_rb,3.8310e-05_rb,1.7668e-05_rb/)
+      kao(:, 3, 1, 2) = (/ &
+     &6.3145e-06_rb,9.3150e-06_rb,9.9659e-06_rb,1.0415e-05_rb,2.4448e-05_rb,2.8503e-05_rb, &
+     &3.1282e-05_rb,4.1769e-05_rb,1.5395e-05_rb/)
+      kao(:, 4, 1, 2) = (/ &
+     &7.5825e-06_rb,1.1197e-05_rb,1.2631e-05_rb,1.2849e-05_rb,1.2505e-05_rb,2.7705e-05_rb, &
+     &3.1429e-05_rb,4.1459e-05_rb,1.9577e-05_rb/)
+      kao(:, 5, 1, 2) = (/ &
+     &9.0691e-06_rb,1.3548e-05_rb,1.5444e-05_rb,1.5939e-05_rb,1.4634e-05_rb,2.1478e-05_rb, &
+     &3.0373e-05_rb,4.6504e-05_rb,1.5074e-05_rb/)
+      kao(:, 1, 2, 2) = (/ &
+     &6.1165e-06_rb,7.4934e-06_rb,6.8625e-06_rb,7.6121e-06_rb,3.0817e-05_rb,3.2183e-05_rb, &
+     &3.0483e-05_rb,3.3496e-05_rb,1.0690e-05_rb/)
+      kao(:, 2, 2, 2) = (/ &
+     &7.6538e-06_rb,9.6280e-06_rb,9.7301e-06_rb,8.1097e-06_rb,1.6826e-05_rb,3.2430e-05_rb, &
+     &3.0532e-05_rb,3.1851e-05_rb,9.7120e-06_rb/)
+      kao(:, 3, 2, 2) = (/ &
+     &9.2709e-06_rb,1.2057e-05_rb,1.2568e-05_rb,1.1762e-05_rb,1.2621e-05_rb,3.1032e-05_rb, &
+     &3.2269e-05_rb,3.2750e-05_rb,1.1309e-05_rb/)
+      kao(:, 4, 2, 2) = (/ &
+     &1.1033e-05_rb,1.5040e-05_rb,1.5728e-05_rb,1.5466e-05_rb,1.4259e-05_rb,1.7169e-05_rb, &
+     &3.1754e-05_rb,3.4497e-05_rb,1.2084e-05_rb/)
+      kao(:, 5, 2, 2) = (/ &
+     &1.2896e-05_rb,1.7847e-05_rb,1.9251e-05_rb,1.9193e-05_rb,1.8160e-05_rb,1.5443e-05_rb, &
+     &2.9856e-05_rb,3.4316e-05_rb,1.0107e-05_rb/)
+      kao(:, 1, 3, 2) = (/ &
+     &1.2491e-05_rb,1.2769e-05_rb,1.2392e-05_rb,1.0198e-05_rb,9.0495e-06_rb,2.4479e-05_rb, &
+     &4.2929e-05_rb,3.4687e-05_rb,5.7323e-06_rb/)
+      kao(:, 2, 3, 2) = (/ &
+     &1.5715e-05_rb,1.6378e-05_rb,1.5890e-05_rb,1.4699e-05_rb,1.1686e-05_rb,1.2801e-05_rb, &
+     &4.3476e-05_rb,3.5317e-05_rb,5.8828e-06_rb/)
+      kao(:, 3, 3, 2) = (/ &
+     &1.9226e-05_rb,2.0527e-05_rb,2.0237e-05_rb,1.8901e-05_rb,1.6806e-05_rb,1.2767e-05_rb, &
+     &3.2801e-05_rb,3.5650e-05_rb,7.0460e-06_rb/)
+      kao(:, 4, 3, 2) = (/ &
+     &2.3182e-05_rb,2.5284e-05_rb,2.5183e-05_rb,2.3943e-05_rb,2.1697e-05_rb,1.8156e-05_rb, &
+     &1.6231e-05_rb,3.6132e-05_rb,6.5848e-06_rb/)
+      kao(:, 5, 3, 2) = (/ &
+     &2.7146e-05_rb,3.0591e-05_rb,3.0801e-05_rb,2.9528e-05_rb,2.6930e-05_rb,2.3450e-05_rb, &
+     &1.7771e-05_rb,3.6010e-05_rb,8.7258e-06_rb/)
+      kao(:, 1, 4, 2) = (/ &
+     &2.6397e-05_rb,2.4798e-05_rb,2.2448e-05_rb,1.9931e-05_rb,1.6167e-05_rb,1.1187e-05_rb, &
+     &1.9967e-05_rb,5.0094e-05_rb,2.6889e-06_rb/)
+      kao(:, 2, 4, 2) = (/ &
+     &3.3110e-05_rb,3.1403e-05_rb,2.8621e-05_rb,2.5685e-05_rb,2.2077e-05_rb,1.6320e-05_rb, &
+     &1.2528e-05_rb,5.0766e-05_rb,3.5011e-06_rb/)
+      kao(:, 3, 4, 2) = (/ &
+     &4.1079e-05_rb,3.9262e-05_rb,3.5800e-05_rb,3.2065e-05_rb,2.7986e-05_rb,2.3135e-05_rb, &
+     &1.5357e-05_rb,4.2293e-05_rb,3.6570e-06_rb/)
+      kao(:, 4, 4, 2) = (/ &
+     &4.9814e-05_rb,4.8178e-05_rb,4.4142e-05_rb,4.0008e-05_rb,3.5086e-05_rb,2.9575e-05_rb, &
+     &2.2305e-05_rb,2.4338e-05_rb,5.5271e-06_rb/)
+      kao(:, 5, 4, 2) = (/ &
+     &5.8999e-05_rb,5.7911e-05_rb,5.3941e-05_rb,4.9131e-05_rb,4.3508e-05_rb,3.6745e-05_rb, &
+     &2.8595e-05_rb,1.7749e-05_rb,7.9465e-06_rb/)
+      kao(:, 1, 5, 2) = (/ &
+     &5.2146e-05_rb,4.7415e-05_rb,4.1895e-05_rb,3.6100e-05_rb,2.9831e-05_rb,2.2853e-05_rb, &
+     &1.2797e-05_rb,3.5615e-05_rb,1.8756e-06_rb/)
+      kao(:, 2, 5, 2) = (/ &
+     &6.6386e-05_rb,6.0667e-05_rb,5.3871e-05_rb,4.6587e-05_rb,3.8801e-05_rb,3.0645e-05_rb, &
+     &1.9749e-05_rb,1.7747e-05_rb,1.8651e-06_rb/)
+      kao(:, 3, 5, 2) = (/ &
+     &8.2249e-05_rb,7.5613e-05_rb,6.7372e-05_rb,5.8338e-05_rb,4.8872e-05_rb,3.9037e-05_rb, &
+     &2.7917e-05_rb,1.3785e-05_rb,2.9415e-06_rb/)
+      kao(:, 4, 5, 2) = (/ &
+     &1.0042e-04_rb,9.2832e-05_rb,8.2527e-05_rb,7.1569e-05_rb,6.0116e-05_rb,4.8290e-05_rb, &
+     &3.5743e-05_rb,1.9373e-05_rb,4.5717e-06_rb/)
+      kao(:, 5, 5, 2) = (/ &
+     &1.2062e-04_rb,1.1245e-04_rb,1.0036e-04_rb,8.7051e-05_rb,7.3237e-05_rb,5.8949e-05_rb, &
+     &4.4093e-05_rb,2.6901e-05_rb,6.6085e-06_rb/)
+      kao(:, 1, 6, 2) = (/ &
+     &9.7868e-05_rb,8.7352e-05_rb,7.6231e-05_rb,6.4624e-05_rb,5.2909e-05_rb,4.0689e-05_rb, &
+     &2.7103e-05_rb,1.2458e-05_rb,1.0529e-06_rb/)
+      kao(:, 2, 6, 2) = (/ &
+     &1.2683e-04_rb,1.1378e-04_rb,9.9028e-05_rb,8.4157e-05_rb,6.8945e-05_rb,5.3462e-05_rb, &
+     &3.6917e-05_rb,1.5991e-05_rb,1.3630e-06_rb/)
+      kao(:, 3, 6, 2) = (/ &
+     &1.5959e-04_rb,1.4323e-04_rb,1.2528e-04_rb,1.0669e-04_rb,8.7707e-05_rb,6.8030e-05_rb, &
+     &4.7823e-05_rb,2.4263e-05_rb,2.3097e-06_rb/)
+      kao(:, 4, 6, 2) = (/ &
+     &1.9648e-04_rb,1.7730e-04_rb,1.5536e-04_rb,1.3239e-04_rb,1.0876e-04_rb,8.4595e-05_rb, &
+     &5.9848e-05_rb,3.3068e-05_rb,3.7113e-06_rb/)
+      kao(:, 5, 6, 2) = (/ &
+     &2.3620e-04_rb,2.1365e-04_rb,1.8738e-04_rb,1.5973e-04_rb,1.3145e-04_rb,1.0268e-04_rb, &
+     &7.2957e-05_rb,4.1703e-05_rb,5.6387e-06_rb/)
+      kao(:, 1, 7, 2) = (/ &
+     &1.9683e-04_rb,1.7373e-04_rb,1.5000e-04_rb,1.2604e-04_rb,1.0197e-04_rb,7.7797e-05_rb, &
+     &5.2829e-05_rb,2.4870e-05_rb,6.2713e-07_rb/)
+      kao(:, 2, 7, 2) = (/ &
+     &2.5760e-04_rb,2.2793e-04_rb,1.9707e-04_rb,1.6593e-04_rb,1.3495e-04_rb,1.0291e-04_rb, &
+     &7.0455e-05_rb,3.6046e-05_rb,1.0898e-06_rb/)
+      kao(:, 3, 7, 2) = (/ &
+     &3.2772e-04_rb,2.9045e-04_rb,2.5191e-04_rb,2.1251e-04_rb,1.7232e-04_rb,1.3160e-04_rb, &
+     &9.0425e-05_rb,4.7870e-05_rb,1.9368e-06_rb/)
+      kao(:, 4, 7, 2) = (/ &
+     &4.0755e-04_rb,3.6253e-04_rb,3.1479e-04_rb,2.6553e-04_rb,2.1537e-04_rb,1.6486e-04_rb, &
+     &1.1337e-04_rb,6.0602e-05_rb,3.1700e-06_rb/)
+      kao(:, 5, 7, 2) = (/ &
+     &4.9614e-04_rb,4.4343e-04_rb,3.8479e-04_rb,3.2448e-04_rb,2.6368e-04_rb,2.0203e-04_rb, &
+     &1.3939e-04_rb,7.4791e-05_rb,4.9446e-06_rb/)
+      kao(:, 1, 8, 2) = (/ &
+     &5.0097e-04_rb,4.3939e-04_rb,3.7796e-04_rb,3.1605e-04_rb,2.5384e-04_rb,1.9144e-04_rb, &
+     &1.2886e-04_rb,6.5770e-05_rb,4.5473e-07_rb/)
+      kao(:, 2, 8, 2) = (/ &
+     &6.6297e-04_rb,5.8193e-04_rb,5.0094e-04_rb,4.1901e-04_rb,3.3675e-04_rb,2.5431e-04_rb, &
+     &1.7173e-04_rb,8.8413e-05_rb,9.2809e-07_rb/)
+      kao(:, 3, 8, 2) = (/ &
+     &8.5051e-04_rb,7.4751e-04_rb,6.4368e-04_rb,5.3885e-04_rb,4.3363e-04_rb,3.2808e-04_rb, &
+     &2.2228e-04_rb,1.1512e-04_rb,1.7364e-06_rb/)
+      kao(:, 4, 8, 2) = (/ &
+     &1.0693e-03_rb,9.4111e-04_rb,8.1096e-04_rb,6.7960e-04_rb,5.4760e-04_rb,4.1579e-04_rb, &
+     &2.8187e-04_rb,1.4563e-04_rb,2.9681e-06_rb/)
+      kao(:, 5, 8, 2) = (/ &
+     &1.3123e-03_rb,1.1563e-03_rb,9.9722e-04_rb,8.3695e-04_rb,6.7599e-04_rb,5.1257e-04_rb, &
+     &3.4753e-04_rb,1.7994e-04_rb,4.7447e-06_rb/)
+      kao(:, 1, 9, 2) = (/ &
+     &2.4740e-03_rb,2.1654e-03_rb,1.8568e-03_rb,1.5484e-03_rb,1.2400e-03_rb,9.3161e-04_rb, &
+     &6.2283e-04_rb,3.1298e-04_rb,4.6685e-07_rb/)
+      kao(:, 2, 9, 2) = (/ &
+     &3.2850e-03_rb,2.8753e-03_rb,2.4661e-03_rb,2.0570e-03_rb,1.6482e-03_rb,1.2389e-03_rb, &
+     &8.2844e-04_rb,4.1698e-04_rb,9.7197e-07_rb/)
+      kao(:, 3, 9, 2) = (/ &
+     &4.2422e-03_rb,3.7138e-03_rb,3.1860e-03_rb,2.6588e-03_rb,2.1312e-03_rb,1.6022e-03_rb, &
+     &1.0719e-03_rb,5.4052e-04_rb,1.8767e-06_rb/)
+      kao(:, 4, 9, 2) = (/ &
+     &5.3553e-03_rb,4.6891e-03_rb,4.0243e-03_rb,3.3598e-03_rb,2.6939e-03_rb,2.0261e-03_rb, &
+     &1.3568e-03_rb,6.8626e-04_rb,3.3456e-06_rb/)
+      kao(:, 5, 9, 2) = (/ &
+     &6.6220e-03_rb,5.7995e-03_rb,4.9792e-03_rb,4.1587e-03_rb,3.3345e-03_rb,2.5085e-03_rb, &
+     &1.6821e-03_rb,8.5317e-04_rb,5.6245e-06_rb/)
+      kao(:, 1,10, 2) = (/ &
+     &1.5050e-02_rb,1.3169e-02_rb,1.1289e-02_rb,9.4076e-03_rb,7.5270e-03_rb,5.6463e-03_rb, &
+     &3.7658e-03_rb,1.8853e-03_rb,4.7266e-07_rb/)
+      kao(:, 2,10, 2) = (/ &
+     &1.9971e-02_rb,1.7476e-02_rb,1.4981e-02_rb,1.2485e-02_rb,9.9900e-03_rb,7.4947e-03_rb, &
+     &4.9999e-03_rb,2.5053e-03_rb,1.0606e-06_rb/)
+      kao(:, 3,10, 2) = (/ &
+     &2.5996e-02_rb,2.2748e-02_rb,1.9499e-02_rb,1.6252e-02_rb,1.3005e-02_rb,9.7575e-03_rb, &
+     &6.5102e-03_rb,3.2633e-03_rb,2.1957e-06_rb/)
+      kao(:, 4,10, 2) = (/ &
+     &3.3067e-02_rb,2.8935e-02_rb,2.4804e-02_rb,2.0673e-02_rb,1.6543e-02_rb,1.2414e-02_rb, &
+     &8.2853e-03_rb,4.1549e-03_rb,4.2322e-06_rb/)
+      kao(:, 5,10, 2) = (/ &
+     &4.1113e-02_rb,3.5978e-02_rb,3.0842e-02_rb,2.5708e-02_rb,2.0575e-02_rb,1.5443e-02_rb, &
+     &1.0311e-02_rb,5.1716e-03_rb,7.6651e-06_rb/)
+      kao(:, 1,11, 2) = (/ &
+     &3.5447e-02_rb,3.1017e-02_rb,2.6586e-02_rb,2.2156e-02_rb,1.7726e-02_rb,1.3295e-02_rb, &
+     &8.8649e-03_rb,4.4348e-03_rb,5.0606e-07_rb/)
+      kao(:, 2,11, 2) = (/ &
+     &4.6742e-02_rb,4.0900e-02_rb,3.5058e-02_rb,2.9216e-02_rb,2.3374e-02_rb,1.7532e-02_rb, &
+     &1.1691e-02_rb,5.8504e-03_rb,1.1095e-06_rb/)
+      kao(:, 3,11, 2) = (/ &
+     &6.0406e-02_rb,5.2857e-02_rb,4.5306e-02_rb,3.7757e-02_rb,3.0208e-02_rb,2.2660e-02_rb, &
+     &1.5111e-02_rb,7.5645e-03_rb,2.3165e-06_rb/)
+      kao(:, 4,11, 2) = (/ &
+     &7.6519e-02_rb,6.6955e-02_rb,5.7393e-02_rb,4.7830e-02_rb,3.8268e-02_rb,2.8708e-02_rb, &
+     &1.9148e-02_rb,9.5895e-03_rb,4.5048e-06_rb/)
+      kao(:, 5,11, 2) = (/ &
+     &9.5074e-02_rb,8.3196e-02_rb,7.1315e-02_rb,5.9435e-02_rb,4.7553e-02_rb,3.5677e-02_rb, &
+     &2.3800e-02_rb,1.1926e-02_rb,8.0597e-06_rb/)
+      kao(:, 1,12, 2) = (/ &
+     &5.2692e-02_rb,4.6104e-02_rb,3.9518e-02_rb,3.2933e-02_rb,2.6346e-02_rb,1.9761e-02_rb, &
+     &1.3176e-02_rb,6.5900e-03_rb,4.7314e-07_rb/)
+      kao(:, 2,12, 2) = (/ &
+     &6.9235e-02_rb,6.0581e-02_rb,5.1926e-02_rb,4.3273e-02_rb,3.4620e-02_rb,2.5967e-02_rb, &
+     &1.7314e-02_rb,8.6616e-03_rb,1.0517e-06_rb/)
+      kao(:, 3,12, 2) = (/ &
+     &8.9222e-02_rb,7.8070e-02_rb,6.6918e-02_rb,5.5767e-02_rb,4.4616e-02_rb,3.3465e-02_rb, &
+     &2.2315e-02_rb,1.1167e-02_rb,2.1820e-06_rb/)
+      kao(:, 4,12, 2) = (/ &
+     &1.1266e-01_rb,9.8579e-02_rb,8.4496e-02_rb,7.0418e-02_rb,5.6336e-02_rb,4.2258e-02_rb, &
+     &2.8182e-02_rb,1.4107e-02_rb,4.2014e-06_rb/)
+      kao(:, 5,12, 2) = (/ &
+     &1.3942e-01_rb,1.2199e-01_rb,1.0457e-01_rb,8.7148e-02_rb,6.9722e-02_rb,5.2304e-02_rb, &
+     &3.4887e-02_rb,1.7469e-02_rb,7.4819e-06_rb/)
+      kao(:, 1,13, 2) = (/ &
+     &6.2876e-02_rb,5.5018e-02_rb,4.7159e-02_rb,3.9299e-02_rb,3.1440e-02_rb,2.3581e-02_rb, &
+     &1.5722e-02_rb,7.8632e-03_rb,4.0954e-07_rb/)
+      kao(:, 2,13, 2) = (/ &
+     &8.2400e-02_rb,7.2100e-02_rb,6.1801e-02_rb,5.1502e-02_rb,4.1203e-02_rb,3.0903e-02_rb, &
+     &2.0605e-02_rb,1.0307e-02_rb,9.1322e-07_rb/)
+      kao(:, 3,13, 2) = (/ &
+     &1.0586e-01_rb,9.2633e-02_rb,7.9402e-02_rb,6.6169e-02_rb,5.2938e-02_rb,3.9706e-02_rb, &
+     &2.6476e-02_rb,1.3248e-02_rb,1.8983e-06_rb/)
+      kao(:, 4,13, 2) = (/ &
+     &1.3330e-01_rb,1.1664e-01_rb,9.9979e-02_rb,8.3320e-02_rb,6.6657e-02_rb,4.9998e-02_rb, &
+     &3.3342e-02_rb,1.6688e-02_rb,3.6054e-06_rb/)
+      kao(:, 5,13, 2) = (/ &
+     &1.6451e-01_rb,1.4395e-01_rb,1.2339e-01_rb,1.0283e-01_rb,8.2267e-02_rb,6.1710e-02_rb, &
+     &4.1158e-02_rb,2.0605e-02_rb,6.1726e-06_rb/)
+      kao(:, 1, 1, 3) = (/ &
+     &1.0158e-05_rb,1.3198e-05_rb,1.2933e-05_rb,1.7710e-05_rb,3.0455e-05_rb,3.0829e-05_rb, &
+     &3.6460e-05_rb,4.7058e-05_rb,1.7479e-05_rb/)
+      kao(:, 2, 1, 3) = (/ &
+     &1.1438e-05_rb,1.5570e-05_rb,1.6943e-05_rb,1.4755e-05_rb,2.6165e-05_rb,3.0134e-05_rb, &
+     &3.4781e-05_rb,5.6113e-05_rb,2.1722e-05_rb/)
+      kao(:, 3, 1, 3) = (/ &
+     &1.2956e-05_rb,1.8129e-05_rb,1.9971e-05_rb,1.8485e-05_rb,1.6628e-05_rb,3.1264e-05_rb, &
+     &3.4010e-05_rb,5.1158e-05_rb,2.4518e-05_rb/)
+      kao(:, 4, 1, 3) = (/ &
+     &1.4615e-05_rb,2.0830e-05_rb,2.2660e-05_rb,2.2625e-05_rb,1.9967e-05_rb,2.4812e-05_rb, &
+     &3.9103e-05_rb,5.0423e-05_rb,1.7758e-05_rb/)
+      kao(:, 5, 1, 3) = (/ &
+     &1.6017e-05_rb,2.3480e-05_rb,2.5498e-05_rb,2.6186e-05_rb,2.5773e-05_rb,1.9360e-05_rb, &
+     &3.6373e-05_rb,5.8002e-05_rb,2.1777e-05_rb/)
+      kao(:, 1, 2, 3) = (/ &
+     &1.6325e-05_rb,1.8415e-05_rb,1.8317e-05_rb,1.4470e-05_rb,2.4482e-05_rb,3.9161e-05_rb, &
+     &3.6427e-05_rb,3.6776e-05_rb,1.2226e-05_rb/)
+      kao(:, 2, 2, 3) = (/ &
+     &1.8436e-05_rb,2.1492e-05_rb,2.2101e-05_rb,2.0928e-05_rb,1.7486e-05_rb,3.4569e-05_rb, &
+     &3.4173e-05_rb,4.1432e-05_rb,1.6945e-05_rb/)
+      kao(:, 3, 2, 3) = (/ &
+     &2.0725e-05_rb,2.4812e-05_rb,2.5608e-05_rb,2.5315e-05_rb,2.0861e-05_rb,2.2865e-05_rb, &
+     &3.3858e-05_rb,3.7106e-05_rb,1.4100e-05_rb/)
+      kao(:, 4, 2, 3) = (/ &
+     &2.3257e-05_rb,2.7888e-05_rb,2.9222e-05_rb,2.9285e-05_rb,2.7055e-05_rb,2.2581e-05_rb, &
+     &3.3589e-05_rb,3.8281e-05_rb,1.2084e-05_rb/)
+      kao(:, 5, 2, 3) = (/ &
+     &2.5809e-05_rb,3.1443e-05_rb,3.3009e-05_rb,3.2988e-05_rb,3.1499e-05_rb,2.8005e-05_rb, &
+     &2.1824e-05_rb,4.6522e-05_rb,1.8788e-05_rb/)
+      kao(:, 1, 3, 3) = (/ &
+     &3.6153e-05_rb,3.6160e-05_rb,3.3889e-05_rb,3.0515e-05_rb,2.3824e-05_rb,2.0510e-05_rb, &
+     &5.5046e-05_rb,4.3679e-05_rb,8.4874e-06_rb/)
+      kao(:, 2, 3, 3) = (/ &
+     &4.1441e-05_rb,4.2015e-05_rb,3.9744e-05_rb,3.6451e-05_rb,3.1872e-05_rb,2.2157e-05_rb, &
+     &3.7036e-05_rb,4.0290e-05_rb,7.7192e-06_rb/)
+      kao(:, 3, 3, 3) = (/ &
+     &4.6667e-05_rb,4.8191e-05_rb,4.5785e-05_rb,4.2457e-05_rb,3.7818e-05_rb,3.1272e-05_rb, &
+     &2.3354e-05_rb,3.9936e-05_rb,6.8348e-06_rb/)
+      kao(:, 4, 3, 3) = (/ &
+     &5.1877e-05_rb,5.4060e-05_rb,5.1719e-05_rb,4.8126e-05_rb,4.3652e-05_rb,3.8051e-05_rb, &
+     &2.7576e-05_rb,4.1113e-05_rb,1.0881e-05_rb/)
+      kao(:, 5, 3, 3) = (/ &
+     &5.7673e-05_rb,6.0087e-05_rb,5.7843e-05_rb,5.4035e-05_rb,4.9732e-05_rb,4.3859e-05_rb, &
+     &3.4661e-05_rb,3.3926e-05_rb,1.5564e-05_rb/)
+      kao(:, 1, 4, 3) = (/ &
+     &8.1569e-05_rb,7.6506e-05_rb,6.9052e-05_rb,6.0598e-05_rb,5.1130e-05_rb,3.9208e-05_rb, &
+     &2.1647e-05_rb,7.1331e-05_rb,4.7464e-06_rb/)
+      kao(:, 2, 4, 3) = (/ &
+     &9.5409e-05_rb,8.9513e-05_rb,8.1016e-05_rb,7.1228e-05_rb,6.0322e-05_rb,4.8270e-05_rb, &
+     &3.1172e-05_rb,4.9123e-05_rb,3.8536e-06_rb/)
+      kao(:, 3, 4, 3) = (/ &
+     &1.0835e-04_rb,1.0286e-04_rb,9.3383e-05_rb,8.2438e-05_rb,7.0089e-05_rb,5.7019e-05_rb, &
+     &4.1480e-05_rb,3.2272e-05_rb,5.8347e-06_rb/)
+      kao(:, 4, 4, 3) = (/ &
+     &1.2088e-04_rb,1.1587e-04_rb,1.0589e-04_rb,9.3297e-05_rb,7.9862e-05_rb,6.5329e-05_rb, &
+     &4.9231e-05_rb,2.5421e-05_rb,9.1036e-06_rb/)
+      kao(:, 5, 4, 3) = (/ &
+     &1.3349e-04_rb,1.2852e-04_rb,1.1738e-04_rb,1.0384e-04_rb,8.9286e-05_rb,7.3614e-05_rb, &
+     &5.6906e-05_rb,3.4260e-05_rb,1.3290e-05_rb/)
+      kao(:, 1, 5, 3) = (/ &
+     &1.7345e-04_rb,1.5727e-04_rb,1.3841e-04_rb,1.1872e-04_rb,9.8241e-05_rb,7.6833e-05_rb, &
+     &5.2762e-05_rb,2.6555e-05_rb,1.9880e-06_rb/)
+      kao(:, 2, 5, 3) = (/ &
+     &2.0342e-04_rb,1.8508e-04_rb,1.6349e-04_rb,1.4064e-04_rb,1.1678e-04_rb,9.1597e-05_rb, &
+     &6.4678e-05_rb,2.5634e-05_rb,3.0971e-06_rb/)
+      kao(:, 3, 5, 3) = (/ &
+     &2.3455e-04_rb,2.1397e-04_rb,1.8954e-04_rb,1.6295e-04_rb,1.3528e-04_rb,1.0632e-04_rb, &
+     &7.5971e-05_rb,4.0302e-05_rb,5.0300e-06_rb/)
+      kao(:, 4, 5, 3) = (/ &
+     &2.6426e-04_rb,2.4201e-04_rb,2.1476e-04_rb,1.8503e-04_rb,1.5431e-04_rb,1.2132e-04_rb, &
+     &8.7057e-05_rb,4.9691e-05_rb,7.6275e-06_rb/)
+      kao(:, 5, 5, 3) = (/ &
+     &2.9276e-04_rb,2.6878e-04_rb,2.3851e-04_rb,2.0652e-04_rb,1.7242e-04_rb,1.3630e-04_rb, &
+     &9.8498e-05_rb,5.7853e-05_rb,1.1134e-05_rb/)
+      kao(:, 1, 6, 3) = (/ &
+     &3.5315e-04_rb,3.1458e-04_rb,2.7325e-04_rb,2.3096e-04_rb,1.8808e-04_rb,1.4453e-04_rb, &
+     &9.9918e-05_rb,4.6331e-05_rb,1.2347e-06_rb/)
+      kao(:, 2, 6, 3) = (/ &
+     &4.1518e-04_rb,3.7021e-04_rb,3.2222e-04_rb,2.7318e-04_rb,2.2345e-04_rb,1.7257e-04_rb, &
+     &1.2006e-04_rb,6.3507e-05_rb,2.6453e-06_rb/)
+      kao(:, 3, 6, 3) = (/ &
+     &4.8020e-04_rb,4.2942e-04_rb,3.7435e-04_rb,3.1847e-04_rb,2.6105e-04_rb,2.0180e-04_rb, &
+     &1.4068e-04_rb,7.6253e-05_rb,4.2798e-06_rb/)
+      kao(:, 4, 6, 3) = (/ &
+     &5.4571e-04_rb,4.8797e-04_rb,4.2639e-04_rb,3.6432e-04_rb,2.9826e-04_rb,2.3028e-04_rb, &
+     &1.6074e-04_rb,8.8155e-05_rb,6.6580e-06_rb/)
+      kao(:, 5, 6, 3) = (/ &
+     &6.1051e-04_rb,5.4685e-04_rb,4.8080e-04_rb,4.0919e-04_rb,3.3486e-04_rb,2.5913e-04_rb, &
+     &1.8080e-04_rb,9.9384e-05_rb,9.9722e-06_rb/)
+      kao(:, 1, 7, 3) = (/ &
+     &7.5693e-04_rb,6.6624e-04_rb,5.7513e-04_rb,4.8344e-04_rb,3.9061e-04_rb,2.9600e-04_rb, &
+     &2.0095e-04_rb,1.0427e-04_rb,1.0591e-06_rb/)
+      kao(:, 2, 7, 3) = (/ &
+     &8.9608e-04_rb,7.8973e-04_rb,6.8311e-04_rb,5.7440e-04_rb,4.6329e-04_rb,3.5236e-04_rb, &
+     &2.4053e-04_rb,1.2653e-04_rb,2.0677e-06_rb/)
+      kao(:, 3, 7, 3) = (/ &
+     &1.0434e-03_rb,9.2160e-04_rb,7.9776e-04_rb,6.7036e-04_rb,5.4238e-04_rb,4.1393e-04_rb, &
+     &2.8414e-04_rb,1.5011e-04_rb,3.4509e-06_rb/)
+      kao(:, 4, 7, 3) = (/ &
+     &1.1912e-03_rb,1.0536e-03_rb,9.1065e-04_rb,7.6644e-04_rb,6.2208e-04_rb,4.7601e-04_rb, &
+     &3.2680e-04_rb,1.7285e-04_rb,5.5547e-06_rb/)
+      kao(:, 5, 7, 3) = (/ &
+     &1.3354e-03_rb,1.1809e-03_rb,1.0220e-03_rb,8.6241e-04_rb,7.0147e-04_rb,5.3735e-04_rb, &
+     &3.6893e-04_rb,1.9541e-04_rb,8.3477e-06_rb/)
+      kao(:, 1, 8, 3) = (/ &
+     &2.0322e-03_rb,1.7810e-03_rb,1.5293e-03_rb,1.2777e-03_rb,1.0262e-03_rb,7.7431e-04_rb, &
+     &5.2105e-04_rb,2.6538e-04_rb,9.6103e-07_rb/)
+      kao(:, 2, 8, 3) = (/ &
+     &2.4399e-03_rb,2.1393e-03_rb,1.8380e-03_rb,1.5373e-03_rb,1.2364e-03_rb,9.3375e-04_rb, &
+     &6.2913e-04_rb,3.2110e-04_rb,1.7921e-06_rb/)
+      kao(:, 3, 8, 3) = (/ &
+     &2.8537e-03_rb,2.5030e-03_rb,2.1528e-03_rb,1.8027e-03_rb,1.4507e-03_rb,1.0966e-03_rb, &
+     &7.3847e-04_rb,3.7883e-04_rb,3.0446e-06_rb/)
+      kao(:, 4, 8, 3) = (/ &
+     &3.2833e-03_rb,2.8808e-03_rb,2.4800e-03_rb,2.0779e-03_rb,1.6729e-03_rb,1.2622e-03_rb, &
+     &8.5179e-04_rb,4.3974e-04_rb,4.8671e-06_rb/)
+      kao(:, 5, 8, 3) = (/ &
+     &3.6992e-03_rb,3.2483e-03_rb,2.7990e-03_rb,2.3454e-03_rb,1.8857e-03_rb,1.4259e-03_rb, &
+     &9.6561e-04_rb,4.9917e-04_rb,7.5866e-06_rb/)
+      kao(:, 1, 9, 3) = (/ &
+     &1.0280e-02_rb,8.9965e-03_rb,7.7134e-03_rb,6.4300e-03_rb,5.1466e-03_rb,3.8628e-03_rb, &
+     &2.5792e-03_rb,1.2964e-03_rb,9.2162e-07_rb/)
+      kao(:, 2, 9, 3) = (/ &
+     &1.2564e-02_rb,1.0997e-02_rb,9.4289e-03_rb,7.8609e-03_rb,6.2929e-03_rb,4.7248e-03_rb, &
+     &3.1577e-03_rb,1.5902e-03_rb,1.8412e-06_rb/)
+      kao(:, 3, 9, 3) = (/ &
+     &1.4876e-02_rb,1.3021e-02_rb,1.1166e-02_rb,9.3099e-03_rb,7.4544e-03_rb,5.6000e-03_rb, &
+     &3.7464e-03_rb,1.8890e-03_rb,3.6551e-06_rb/)
+      kao(:, 4, 9, 3) = (/ &
+     &1.7233e-02_rb,1.5085e-02_rb,1.2936e-02_rb,1.0788e-02_rb,8.6402e-03_rb,6.4946e-03_rb, &
+     &4.3480e-03_rb,2.1937e-03_rb,6.4505e-06_rb/)
+      kao(:, 5, 9, 3) = (/ &
+     &1.9529e-02_rb,1.7097e-02_rb,1.4665e-02_rb,1.2232e-02_rb,9.8022e-03_rb,7.3739e-03_rb, &
+     &4.9380e-03_rb,2.4934e-03_rb,1.0329e-05_rb/)
+      kao(:, 1,10, 3) = (/ &
+     &6.2934e-02_rb,5.5068e-02_rb,4.7203e-02_rb,3.9337e-02_rb,3.1472e-02_rb,2.3606e-02_rb, &
+     &1.5740e-02_rb,7.8743e-03_rb,1.2141e-06_rb/)
+      kao(:, 2,10, 3) = (/ &
+     &7.7985e-02_rb,6.8239e-02_rb,5.8492e-02_rb,4.8746e-02_rb,3.8999e-02_rb,2.9252e-02_rb, &
+     &1.9507e-02_rb,9.7597e-03_rb,2.5517e-06_rb/)
+      kao(:, 3,10, 3) = (/ &
+     &9.3312e-02_rb,8.1650e-02_rb,6.9991e-02_rb,5.8328e-02_rb,4.6667e-02_rb,3.5007e-02_rb, &
+     &2.3345e-02_rb,1.1684e-02_rb,4.6909e-06_rb/)
+      kao(:, 4,10, 3) = (/ &
+     &1.0852e-01_rb,9.4962e-02_rb,8.1401e-02_rb,6.7840e-02_rb,5.4279e-02_rb,4.0718e-02_rb, &
+     &2.7157e-02_rb,1.3598e-02_rb,7.7426e-06_rb/)
+      kao(:, 5,10, 3) = (/ &
+     &1.2387e-01_rb,1.0840e-01_rb,9.2920e-02_rb,7.7443e-02_rb,6.1965e-02_rb,4.6488e-02_rb, &
+     &3.1009e-02_rb,1.5537e-02_rb,1.2033e-05_rb/)
+      kao(:, 1,11, 3) = (/ &
+     &1.4431e-01_rb,1.2627e-01_rb,1.0823e-01_rb,9.0195e-02_rb,7.2157e-02_rb,5.4120e-02_rb, &
+     &3.6082e-02_rb,1.8045e-02_rb,1.2885e-06_rb/)
+      kao(:, 2,11, 3) = (/ &
+     &1.7767e-01_rb,1.5546e-01_rb,1.3326e-01_rb,1.1105e-01_rb,8.8842e-02_rb,6.6637e-02_rb, &
+     &4.4429e-02_rb,2.2220e-02_rb,2.6746e-06_rb/)
+      kao(:, 3,11, 3) = (/ &
+     &2.1192e-01_rb,1.8543e-01_rb,1.5895e-01_rb,1.3246e-01_rb,1.0597e-01_rb,7.9483e-02_rb, &
+     &5.2995e-02_rb,2.6507e-02_rb,4.8840e-06_rb/)
+      kao(:, 4,11, 3) = (/ &
+     &2.4571e-01_rb,2.1501e-01_rb,1.8430e-01_rb,1.5358e-01_rb,1.2287e-01_rb,9.2163e-02_rb, &
+     &6.1452e-02_rb,3.0740e-02_rb,7.9723e-06_rb/)
+      kao(:, 5,11, 3) = (/ &
+     &2.7981e-01_rb,2.4483e-01_rb,2.0987e-01_rb,1.7490e-01_rb,1.3993e-01_rb,1.0496e-01_rb, &
+     &6.9988e-02_rb,3.5019e-02_rb,1.2223e-05_rb/)
+      kao(:, 1,12, 3) = (/ &
+     &2.0829e-01_rb,1.8226e-01_rb,1.5622e-01_rb,1.3018e-01_rb,1.0415e-01_rb,7.8112e-02_rb, &
+     &5.2077e-02_rb,2.6041e-02_rb,1.2025e-06_rb/)
+      kao(:, 2,12, 3) = (/ &
+     &2.5587e-01_rb,2.2388e-01_rb,1.9190e-01_rb,1.5992e-01_rb,1.2794e-01_rb,9.5954e-02_rb, &
+     &6.3973e-02_rb,3.1992e-02_rb,2.4634e-06_rb/)
+      kao(:, 3,12, 3) = (/ &
+     &3.0401e-01_rb,2.6600e-01_rb,2.2801e-01_rb,1.9001e-01_rb,1.5201e-01_rb,1.1401e-01_rb, &
+     &7.6014e-02_rb,3.8015e-02_rb,4.4929e-06_rb/)
+      kao(:, 4,12, 3) = (/ &
+     &3.5185e-01_rb,3.0787e-01_rb,2.6390e-01_rb,2.1992e-01_rb,1.7594e-01_rb,1.3196e-01_rb, &
+     &8.7984e-02_rb,4.4005e-02_rb,7.2358e-06_rb/)
+      kao(:, 5,12, 3) = (/ &
+     &3.9955e-01_rb,3.4961e-01_rb,2.9967e-01_rb,2.4973e-01_rb,1.9980e-01_rb,1.4985e-01_rb, &
+     &9.9920e-02_rb,4.9982e-02_rb,1.1171e-05_rb/)
+      kao(:, 1,13, 3) = (/ &
+     &2.4192e-01_rb,2.1167e-01_rb,1.8143e-01_rb,1.5120e-01_rb,1.2096e-01_rb,9.0718e-02_rb, &
+     &6.0481e-02_rb,3.0243e-02_rb,1.0138e-06_rb/)
+      kao(:, 2,13, 3) = (/ &
+     &2.9636e-01_rb,2.5932e-01_rb,2.2227e-01_rb,1.8523e-01_rb,1.4819e-01_rb,1.1114e-01_rb, &
+     &7.4096e-02_rb,3.7053e-02_rb,2.0810e-06_rb/)
+      kao(:, 3,13, 3) = (/ &
+     &3.5109e-01_rb,3.0721e-01_rb,2.6332e-01_rb,2.1944e-01_rb,1.7555e-01_rb,1.3167e-01_rb, &
+     &8.7782e-02_rb,4.3898e-02_rb,3.6752e-06_rb/)
+      kao(:, 4,13, 3) = (/ &
+     &4.0523e-01_rb,3.5457e-01_rb,3.0393e-01_rb,2.5327e-01_rb,2.0263e-01_rb,1.5197e-01_rb, &
+     &1.0132e-01_rb,5.0676e-02_rb,6.1123e-06_rb/)
+      kao(:, 5,13, 3) = (/ &
+     &4.5914e-01_rb,4.0175e-01_rb,3.4437e-01_rb,2.8698e-01_rb,2.2959e-01_rb,1.7221e-01_rb, &
+     &1.1482e-01_rb,5.7432e-02_rb,9.7404e-06_rb/)
+      kao(:, 1, 1, 4) = (/ &
+     &2.1350e-05_rb,2.4552e-05_rb,2.3723e-05_rb,1.5777e-05_rb,2.7169e-05_rb,3.2921e-05_rb, &
+     &3.9368e-05_rb,6.8629e-05_rb,2.6626e-05_rb/)
+      kao(:, 2, 1, 4) = (/ &
+     &2.2878e-05_rb,2.6833e-05_rb,2.6737e-05_rb,2.0377e-05_rb,2.2142e-05_rb,3.1966e-05_rb, &
+     &4.1566e-05_rb,6.1320e-05_rb,2.3858e-05_rb/)
+      kao(:, 3, 1, 4) = (/ &
+     &2.3851e-05_rb,2.8963e-05_rb,2.9322e-05_rb,2.7907e-05_rb,1.9726e-05_rb,2.5598e-05_rb, &
+     &4.2650e-05_rb,6.7498e-05_rb,2.1250e-05_rb/)
+      kao(:, 4, 1, 4) = (/ &
+     &2.4297e-05_rb,3.1053e-05_rb,3.2431e-05_rb,3.1771e-05_rb,2.7799e-05_rb,2.0892e-05_rb, &
+     &3.7144e-05_rb,7.1944e-05_rb,2.3747e-05_rb/)
+      kao(:, 5, 1, 4) = (/ &
+     &2.4515e-05_rb,3.3133e-05_rb,3.5554e-05_rb,3.5376e-05_rb,3.4171e-05_rb,2.9240e-05_rb, &
+     &2.7955e-05_rb,6.5059e-05_rb,3.8779e-05_rb/)
+      kao(:, 1, 2, 4) = (/ &
+     &3.5233e-05_rb,3.6967e-05_rb,3.5192e-05_rb,3.0346e-05_rb,1.9517e-05_rb,3.6227e-05_rb, &
+     &3.6486e-05_rb,4.4755e-05_rb,1.7210e-05_rb/)
+      kao(:, 2, 2, 4) = (/ &
+     &3.7659e-05_rb,4.0104e-05_rb,3.8633e-05_rb,3.5461e-05_rb,2.4007e-05_rb,2.9205e-05_rb, &
+     &3.6839e-05_rb,4.4274e-05_rb,1.6582e-05_rb/)
+      kao(:, 3, 2, 4) = (/ &
+     &3.9567e-05_rb,4.2994e-05_rb,4.2107e-05_rb,3.9324e-05_rb,3.3808e-05_rb,2.0621e-05_rb, &
+     &3.2387e-05_rb,5.0199e-05_rb,1.2696e-05_rb/)
+      kao(:, 4, 2, 4) = (/ &
+     &4.0697e-05_rb,4.5929e-05_rb,4.5740e-05_rb,4.2992e-05_rb,3.9709e-05_rb,2.8967e-05_rb, &
+     &2.4180e-05_rb,4.8120e-05_rb,2.0582e-05_rb/)
+      kao(:, 5, 2, 4) = (/ &
+     &4.1514e-05_rb,4.8565e-05_rb,4.9023e-05_rb,4.7662e-05_rb,4.4382e-05_rb,3.8389e-05_rb, &
+     &2.5686e-05_rb,4.1842e-05_rb,3.1906e-05_rb/)
+      kao(:, 1, 3, 4) = (/ &
+     &8.1562e-05_rb,7.8380e-05_rb,7.1455e-05_rb,6.3207e-05_rb,5.2782e-05_rb,3.3109e-05_rb, &
+     &4.1621e-05_rb,4.2434e-05_rb,8.8242e-06_rb/)
+      kao(:, 2, 3, 4) = (/ &
+     &8.6593e-05_rb,8.4470e-05_rb,7.7554e-05_rb,6.8896e-05_rb,5.8997e-05_rb,4.4824e-05_rb, &
+     &3.0840e-05_rb,4.1510e-05_rb,8.5693e-06_rb/)
+      kao(:, 3, 3, 4) = (/ &
+     &9.1353e-05_rb,8.9996e-05_rb,8.3114e-05_rb,7.4541e-05_rb,6.4935e-05_rb,5.3159e-05_rb, &
+     &2.8537e-05_rb,3.9838e-05_rb,1.1226e-05_rb/)
+      kao(:, 4, 3, 4) = (/ &
+     &9.5365e-05_rb,9.5648e-05_rb,8.9016e-05_rb,8.0719e-05_rb,7.0818e-05_rb,5.8632e-05_rb, &
+     &4.0977e-05_rb,3.3245e-05_rb,1.8214e-05_rb/)
+      kao(:, 5, 3, 4) = (/ &
+     &9.7542e-05_rb,1.0001e-04_rb,9.4766e-05_rb,8.7247e-05_rb,7.6489e-05_rb,6.4569e-05_rb, &
+     &5.1322e-05_rb,2.4346e-05_rb,2.6190e-05_rb/)
+      kao(:, 1, 4, 4) = (/ &
+     &1.9526e-04_rb,1.7866e-04_rb,1.5808e-04_rb,1.3593e-04_rb,1.1271e-04_rb,8.7918e-05_rb, &
+     &5.1266e-05_rb,5.4774e-05_rb,4.6025e-06_rb/)
+      kao(:, 2, 4, 4) = (/ &
+     &2.0650e-04_rb,1.9062e-04_rb,1.6960e-04_rb,1.4698e-04_rb,1.2286e-04_rb,9.7273e-05_rb, &
+     &6.7543e-05_rb,4.4150e-05_rb,5.6277e-06_rb/)
+      kao(:, 3, 4, 4) = (/ &
+     &2.1739e-04_rb,2.0276e-04_rb,1.8135e-04_rb,1.5734e-04_rb,1.3233e-04_rb,1.0548e-04_rb, &
+     &7.6274e-05_rb,3.0228e-05_rb,9.8992e-06_rb/)
+      kao(:, 4, 4, 4) = (/ &
+     &2.2749e-04_rb,2.1410e-04_rb,1.9235e-04_rb,1.6801e-04_rb,1.4178e-04_rb,1.1383e-04_rb, &
+     &8.3889e-05_rb,3.8831e-05_rb,1.4832e-05_rb/)
+      kao(:, 5, 4, 4) = (/ &
+     &2.3672e-04_rb,2.2535e-04_rb,2.0298e-04_rb,1.7817e-04_rb,1.5157e-04_rb,1.2285e-04_rb, &
+     &9.1248e-05_rb,5.4055e-05_rb,2.0953e-05_rb/)
+      kao(:, 1, 5, 4) = (/ &
+     &4.3901e-04_rb,3.9096e-04_rb,3.4083e-04_rb,2.8855e-04_rb,2.3566e-04_rb,1.8135e-04_rb, &
+     &1.2520e-04_rb,3.9791e-05_rb,2.8698e-06_rb/)
+      kao(:, 2, 5, 4) = (/ &
+     &4.6450e-04_rb,4.1602e-04_rb,3.6285e-04_rb,3.0879e-04_rb,2.5330e-04_rb,1.9642e-04_rb, &
+     &1.3685e-04_rb,6.9096e-05_rb,4.7432e-06_rb/)
+      kao(:, 3, 5, 4) = (/ &
+     &4.8882e-04_rb,4.4052e-04_rb,3.8581e-04_rb,3.3048e-04_rb,2.7253e-04_rb,2.1160e-04_rb, &
+     &1.4899e-04_rb,8.1167e-05_rb,8.1879e-06_rb/)
+      kao(:, 4, 5, 4) = (/ &
+     &5.1005e-04_rb,4.6303e-04_rb,4.0950e-04_rb,3.5246e-04_rb,2.9060e-04_rb,2.2675e-04_rb, &
+     &1.6042e-04_rb,8.9994e-05_rb,1.2389e-05_rb/)
+      kao(:, 5, 5, 4) = (/ &
+     &5.2999e-04_rb,4.8642e-04_rb,4.3340e-04_rb,3.7157e-04_rb,3.0721e-04_rb,2.4050e-04_rb, &
+     &1.7156e-04_rb,9.8341e-05_rb,1.7831e-05_rb/)
+      kao(:, 1, 6, 4) = (/ &
+     &9.3945e-04_rb,8.2623e-04_rb,7.1331e-04_rb,5.9949e-04_rb,4.8483e-04_rb,3.6836e-04_rb, &
+     &2.5086e-04_rb,1.2938e-04_rb,2.1494e-06_rb/)
+      kao(:, 2, 6, 4) = (/ &
+     &1.0016e-03_rb,8.8499e-04_rb,7.6750e-04_rb,6.4657e-04_rb,5.2304e-04_rb,3.9902e-04_rb, &
+     &2.7391e-04_rb,1.4413e-04_rb,3.8318e-06_rb/)
+      kao(:, 3, 6, 4) = (/ &
+     &1.0547e-03_rb,9.3464e-04_rb,8.1142e-04_rb,6.8349e-04_rb,5.5479e-04_rb,4.2609e-04_rb, &
+     &2.9394e-04_rb,1.5646e-04_rb,6.4475e-06_rb/)
+      kao(:, 4, 6, 4) = (/ &
+     &1.1032e-03_rb,9.8345e-04_rb,8.5527e-04_rb,7.2211e-04_rb,5.9000e-04_rb,4.5529e-04_rb, &
+     &3.1446e-04_rb,1.6904e-04_rb,9.9612e-06_rb/)
+      kao(:, 5, 6, 4) = (/ &
+     &1.1467e-03_rb,1.0269e-03_rb,8.9466e-04_rb,7.6180e-04_rb,6.2654e-04_rb,4.8317e-04_rb, &
+     &3.3526e-04_rb,1.8155e-04_rb,1.4635e-05_rb/)
+      kao(:, 1, 7, 4) = (/ &
+     &2.0968e-03_rb,1.8382e-03_rb,1.5799e-03_rb,1.3200e-03_rb,1.0602e-03_rb,8.0055e-04_rb, &
+     &5.3931e-04_rb,2.7613e-04_rb,1.7495e-06_rb/)
+      kao(:, 2, 7, 4) = (/ &
+     &2.2692e-03_rb,1.9926e-03_rb,1.7142e-03_rb,1.4356e-03_rb,1.1561e-03_rb,8.7560e-04_rb, &
+     &5.9192e-04_rb,3.0494e-04_rb,3.2823e-06_rb/)
+      kao(:, 3, 7, 4) = (/ &
+     &2.3957e-03_rb,2.1065e-03_rb,1.8155e-03_rb,1.5242e-03_rb,1.2302e-03_rb,9.3213e-04_rb, &
+     &6.3098e-04_rb,3.2845e-04_rb,5.4452e-06_rb/)
+      kao(:, 4, 7, 4) = (/ &
+     &2.5154e-03_rb,2.2153e-03_rb,1.9155e-03_rb,1.6120e-03_rb,1.3009e-03_rb,9.8717e-04_rb, &
+     &6.7313e-04_rb,3.5215e-04_rb,8.4591e-06_rb/)
+      kao(:, 5, 7, 4) = (/ &
+     &2.6221e-03_rb,2.3149e-03_rb,2.0078e-03_rb,1.6896e-03_rb,1.3663e-03_rb,1.0418e-03_rb, &
+     &7.1380e-04_rb,3.7558e-04_rb,1.3208e-05_rb/)
+      kao(:, 1, 8, 4) = (/ &
+     &5.9687e-03_rb,5.2249e-03_rb,4.4818e-03_rb,3.7390e-03_rb,2.9959e-03_rb,2.2513e-03_rb, &
+     &1.5068e-03_rb,7.6107e-04_rb,1.5072e-06_rb/)
+      kao(:, 2, 8, 4) = (/ &
+     &6.4060e-03_rb,5.6103e-03_rb,4.8155e-03_rb,4.0184e-03_rb,3.2203e-03_rb,2.4232e-03_rb, &
+     &1.6246e-03_rb,8.2361e-04_rb,2.9177e-06_rb/)
+      kao(:, 3, 8, 4) = (/ &
+     &6.8363e-03_rb,5.9919e-03_rb,5.1443e-03_rb,4.2950e-03_rb,3.4467e-03_rb,2.5980e-03_rb, &
+     &1.7471e-03_rb,8.8934e-04_rb,5.0920e-06_rb/)
+      kao(:, 4, 8, 4) = (/ &
+     &7.1796e-03_rb,6.2954e-03_rb,5.4063e-03_rb,4.5177e-03_rb,3.6307e-03_rb,2.7430e-03_rb, &
+     &1.8488e-03_rb,9.4284e-04_rb,8.3290e-06_rb/)
+      kao(:, 5, 8, 4) = (/ &
+     &7.5276e-03_rb,6.6017e-03_rb,5.6732e-03_rb,4.7473e-03_rb,3.8229e-03_rb,2.8925e-03_rb, &
+     &1.9515e-03_rb,1.0013e-03_rb,1.2816e-05_rb/)
+      kao(:, 1, 9, 4) = (/ &
+     &3.2487e-02_rb,2.8428e-02_rb,2.4369e-02_rb,2.0309e-02_rb,1.6251e-02_rb,1.2192e-02_rb, &
+     &8.1342e-03_rb,4.0755e-03_rb,1.9489e-06_rb/)
+      kao(:, 2, 9, 4) = (/ &
+     &3.4271e-02_rb,2.9992e-02_rb,2.5712e-02_rb,2.1432e-02_rb,1.7152e-02_rb,1.2873e-02_rb, &
+     &8.5913e-03_rb,4.3059e-03_rb,3.6526e-06_rb/)
+      kao(:, 3, 9, 4) = (/ &
+     &3.6903e-02_rb,3.2297e-02_rb,2.7692e-02_rb,2.3087e-02_rb,1.8480e-02_rb,1.3870e-02_rb, &
+     &9.2583e-03_rb,4.6485e-03_rb,5.8762e-06_rb/)
+      kao(:, 4, 9, 4) = (/ &
+     &3.8979e-02_rb,3.4119e-02_rb,2.9257e-02_rb,2.4392e-02_rb,1.9526e-02_rb,1.4659e-02_rb, &
+     &9.7912e-03_rb,4.9264e-03_rb,9.0883e-06_rb/)
+      kao(:, 5, 9, 4) = (/ &
+     &4.0909e-02_rb,3.5808e-02_rb,3.0705e-02_rb,2.5602e-02_rb,2.0497e-02_rb,1.5392e-02_rb, &
+     &1.0293e-02_rb,5.1880e-03_rb,1.4132e-05_rb/)
+      kao(:, 1,10, 4) = (/ &
+     &2.1003e-01_rb,1.8378e-01_rb,1.5753e-01_rb,1.3127e-01_rb,1.0502e-01_rb,7.8770e-02_rb, &
+     &5.2516e-02_rb,2.6264e-02_rb,2.2708e-06_rb/)
+      kao(:, 2,10, 4) = (/ &
+     &2.2303e-01_rb,1.9515e-01_rb,1.6728e-01_rb,1.3940e-01_rb,1.1153e-01_rb,8.3651e-02_rb, &
+     &5.5777e-02_rb,2.7901e-02_rb,4.3388e-06_rb/)
+      kao(:, 3,10, 4) = (/ &
+     &2.3715e-01_rb,2.0752e-01_rb,1.7788e-01_rb,1.4824e-01_rb,1.1861e-01_rb,8.8964e-02_rb, &
+     &5.9326e-02_rb,2.9681e-02_rb,8.0389e-06_rb/)
+      kao(:, 4,10, 4) = (/ &
+     &2.5270e-01_rb,2.2113e-01_rb,1.8955e-01_rb,1.5796e-01_rb,1.2638e-01_rb,9.4802e-02_rb, &
+     &6.3220e-02_rb,3.1633e-02_rb,1.4122e-05_rb/)
+      kao(:, 5,10, 4) = (/ &
+     &2.6544e-01_rb,2.3227e-01_rb,1.9911e-01_rb,1.6593e-01_rb,1.3276e-01_rb,9.9586e-02_rb, &
+     &6.6411e-02_rb,3.3237e-02_rb,2.0958e-05_rb/)
+      kao(:, 1,11, 4) = (/ &
+     &4.6663e-01_rb,4.0831e-01_rb,3.4998e-01_rb,2.9165e-01_rb,2.3332e-01_rb,1.7500e-01_rb, &
+     &1.1667e-01_rb,5.8341e-02_rb,2.3420e-06_rb/)
+      kao(:, 2,11, 4) = (/ &
+     &4.9719e-01_rb,4.3506e-01_rb,3.7290e-01_rb,3.1076e-01_rb,2.4862e-01_rb,1.8647e-01_rb, &
+     &1.2432e-01_rb,6.2174e-02_rb,4.5807e-06_rb/)
+      kao(:, 3,11, 4) = (/ &
+     &5.2774e-01_rb,4.6176e-01_rb,3.9581e-01_rb,3.2984e-01_rb,2.6389e-01_rb,1.9793e-01_rb, &
+     &1.3196e-01_rb,6.5997e-02_rb,8.8811e-06_rb/)
+      kao(:, 4,11, 4) = (/ &
+     &5.6221e-01_rb,4.9195e-01_rb,4.2167e-01_rb,3.5141e-01_rb,2.8114e-01_rb,2.1086e-01_rb, &
+     &1.4059e-01_rb,7.0317e-02_rb,1.5538e-05_rb/)
+      kao(:, 5,11, 4) = (/ &
+     &5.9121e-01_rb,5.1732e-01_rb,4.4343e-01_rb,3.6953e-01_rb,2.9564e-01_rb,2.2174e-01_rb, &
+     &1.4785e-01_rb,7.3949e-02_rb,2.4433e-05_rb/)
+      kao(:, 1,12, 4) = (/ &
+     &6.5249e-01_rb,5.7093e-01_rb,4.8937e-01_rb,4.0781e-01_rb,3.2625e-01_rb,2.4469e-01_rb, &
+     &1.6313e-01_rb,8.1572e-02_rb,2.2330e-06_rb/)
+      kao(:, 2,12, 4) = (/ &
+     &6.9534e-01_rb,6.0842e-01_rb,5.2151e-01_rb,4.3459e-01_rb,3.4768e-01_rb,2.6076e-01_rb, &
+     &1.7385e-01_rb,8.6935e-02_rb,4.3967e-06_rb/)
+      kao(:, 3,12, 4) = (/ &
+     &7.4143e-01_rb,6.4875e-01_rb,5.5607e-01_rb,4.6339e-01_rb,3.7072e-01_rb,2.7805e-01_rb, &
+     &1.8537e-01_rb,9.2701e-02_rb,8.3925e-06_rb/)
+      kao(:, 4,12, 4) = (/ &
+     &7.8904e-01_rb,6.9042e-01_rb,5.9179e-01_rb,4.9316e-01_rb,3.9453e-01_rb,2.9591e-01_rb, &
+     &1.9728e-01_rb,9.8661e-02_rb,1.5232e-05_rb/)
+      kao(:, 5,12, 4) = (/ &
+     &8.3131e-01_rb,7.2741e-01_rb,6.2350e-01_rb,5.1959e-01_rb,4.1567e-01_rb,3.1177e-01_rb, &
+     &2.0786e-01_rb,1.0395e-01_rb,2.3060e-05_rb/)
+      kao(:, 1,13, 4) = (/ &
+     &7.3322e-01_rb,6.4157e-01_rb,5.4992e-01_rb,4.5827e-01_rb,3.6662e-01_rb,2.7497e-01_rb, &
+     &1.8332e-01_rb,9.1663e-02_rb,1.8044e-06_rb/)
+      kao(:, 2,13, 4) = (/ &
+     &7.8224e-01_rb,6.8446e-01_rb,5.8668e-01_rb,4.8890e-01_rb,3.9113e-01_rb,2.9335e-01_rb, &
+     &1.9557e-01_rb,9.7794e-02_rb,3.6622e-06_rb/)
+      kao(:, 3,13, 4) = (/ &
+     &8.3769e-01_rb,7.3298e-01_rb,6.2826e-01_rb,5.2356e-01_rb,4.1885e-01_rb,3.1414e-01_rb, &
+     &2.0944e-01_rb,1.0473e-01_rb,6.8549e-06_rb/)
+      kao(:, 4,13, 4) = (/ &
+     &8.9145e-01_rb,7.8000e-01_rb,6.6858e-01_rb,5.5715e-01_rb,4.4572e-01_rb,3.3430e-01_rb, &
+     &2.2288e-01_rb,1.1145e-01_rb,1.1699e-05_rb/)
+      kao(:, 5,13, 4) = (/ &
+     &9.4256e-01_rb,8.2475e-01_rb,7.0694e-01_rb,5.8912e-01_rb,4.7129e-01_rb,3.5348e-01_rb, &
+     &2.3566e-01_rb,1.1785e-01_rb,1.9250e-05_rb/)
+      kao(:, 1, 1, 5) = (/ &
+     &3.1890e-05_rb,3.3428e-05_rb,3.1339e-05_rb,1.9062e-05_rb,2.1359e-05_rb,2.6190e-05_rb, &
+     &4.2364e-05_rb,7.2281e-05_rb,2.8801e-05_rb/)
+      kao(:, 2, 1, 5) = (/ &
+     &3.2241e-05_rb,3.5034e-05_rb,3.4311e-05_rb,2.9337e-05_rb,1.6956e-05_rb,2.7153e-05_rb, &
+     &4.1595e-05_rb,7.5807e-05_rb,2.1642e-05_rb/)
+      kao(:, 3, 1, 5) = (/ &
+     &3.2685e-05_rb,3.7104e-05_rb,3.7239e-05_rb,3.5440e-05_rb,2.4683e-05_rb,2.0584e-05_rb, &
+     &3.9467e-05_rb,7.0498e-05_rb,2.5433e-05_rb/)
+      kao(:, 4, 1, 5) = (/ &
+     &3.3108e-05_rb,3.9233e-05_rb,3.9843e-05_rb,4.0632e-05_rb,3.9351e-05_rb,2.7492e-05_rb, &
+     &2.7372e-05_rb,6.6136e-05_rb,4.2940e-05_rb/)
+      kao(:, 5, 1, 5) = (/ &
+     &3.3102e-05_rb,4.1126e-05_rb,4.3706e-05_rb,4.7600e-05_rb,5.0514e-05_rb,4.9463e-05_rb, &
+     &3.6482e-05_rb,4.9147e-05_rb,6.6970e-05_rb/)
+      kao(:, 1, 2, 5) = (/ &
+     &5.3936e-05_rb,5.3705e-05_rb,4.9534e-05_rb,4.3483e-05_rb,2.4468e-05_rb,2.7314e-05_rb, &
+     &3.0874e-05_rb,5.5614e-05_rb,1.6658e-05_rb/)
+      kao(:, 2, 2, 5) = (/ &
+     &5.4860e-05_rb,5.5845e-05_rb,5.2280e-05_rb,4.7572e-05_rb,3.6459e-05_rb,1.9946e-05_rb, &
+     &3.1643e-05_rb,4.8991e-05_rb,1.3490e-05_rb/)
+      kao(:, 3, 2, 5) = (/ &
+     &5.5709e-05_rb,5.8014e-05_rb,5.5306e-05_rb,5.1404e-05_rb,4.5520e-05_rb,2.7920e-05_rb, &
+     &2.4697e-05_rb,4.8298e-05_rb,2.2442e-05_rb/)
+      kao(:, 4, 2, 5) = (/ &
+     &5.6594e-05_rb,6.0421e-05_rb,5.8710e-05_rb,5.5553e-05_rb,5.0533e-05_rb,4.1849e-05_rb, &
+     &2.3926e-05_rb,4.4332e-05_rb,3.8077e-05_rb/)
+      kao(:, 5, 2, 5) = (/ &
+     &5.6989e-05_rb,6.3301e-05_rb,6.2702e-05_rb,5.9556e-05_rb,5.7075e-05_rb,5.4328e-05_rb, &
+     &4.2106e-05_rb,3.0435e-05_rb,5.5304e-05_rb/)
+      kao(:, 1, 3, 5) = (/ &
+     &1.3054e-04_rb,1.2243e-04_rb,1.0960e-04_rb,9.5396e-05_rb,7.9466e-05_rb,5.1293e-05_rb, &
+     &3.9755e-05_rb,3.4475e-05_rb,8.0698e-06_rb/)
+      kao(:, 2, 3, 5) = (/ &
+     &1.3254e-04_rb,1.2631e-04_rb,1.1422e-04_rb,1.0017e-04_rb,8.4724e-05_rb,6.6970e-05_rb, &
+     &3.1985e-05_rb,3.1748e-05_rb,1.1668e-05_rb/)
+      kao(:, 3, 3, 5) = (/ &
+     &1.3451e-04_rb,1.3069e-04_rb,1.1849e-04_rb,1.0449e-04_rb,8.9441e-05_rb,7.3066e-05_rb, &
+     &4.0433e-05_rb,3.2069e-05_rb,2.1119e-05_rb/)
+      kao(:, 4, 3, 5) = (/ &
+     &1.3620e-04_rb,1.3418e-04_rb,1.2287e-04_rb,1.0958e-04_rb,9.5020e-05_rb,7.9300e-05_rb, &
+     &5.8519e-05_rb,2.5240e-05_rb,3.2095e-05_rb/)
+      kao(:, 5, 3, 5) = (/ &
+     &1.3805e-04_rb,1.3888e-04_rb,1.2760e-04_rb,1.1481e-04_rb,1.0157e-04_rb,8.6256e-05_rb, &
+     &6.7417e-05_rb,3.0660e-05_rb,4.5147e-05_rb/)
+      kao(:, 1, 4, 5) = (/ &
+     &3.2379e-04_rb,2.9036e-04_rb,2.5461e-04_rb,2.1829e-04_rb,1.8055e-04_rb,1.4064e-04_rb, &
+     &9.6199e-05_rb,5.2600e-05_rb,5.3338e-06_rb/)
+      kao(:, 2, 4, 5) = (/ &
+     &3.2979e-04_rb,2.9999e-04_rb,2.6566e-04_rb,2.2924e-04_rb,1.9018e-04_rb,1.4831e-04_rb, &
+     &1.0429e-04_rb,3.7208e-05_rb,1.1382e-05_rb/)
+      kao(:, 3, 4, 5) = (/ &
+     &3.3647e-04_rb,3.0773e-04_rb,2.7537e-04_rb,2.3841e-04_rb,1.9818e-04_rb,1.5534e-04_rb, &
+     &1.1107e-04_rb,4.2940e-05_rb,1.8774e-05_rb/)
+      kao(:, 4, 4, 5) = (/ &
+     &3.4222e-04_rb,3.1790e-04_rb,2.8515e-04_rb,2.4672e-04_rb,2.0544e-04_rb,1.6267e-04_rb, &
+     &1.1806e-04_rb,6.5823e-05_rb,2.7569e-05_rb/)
+      kao(:, 5, 4, 5) = (/ &
+     &3.4598e-04_rb,3.2526e-04_rb,2.9297e-04_rb,2.5514e-04_rb,2.1384e-04_rb,1.7093e-04_rb, &
+     &1.2620e-04_rb,7.6156e-05_rb,3.8829e-05_rb/)
+      kao(:, 1, 5, 5) = (/ &
+     &7.4853e-04_rb,6.5989e-04_rb,5.7237e-04_rb,4.8339e-04_rb,3.9258e-04_rb,3.0112e-04_rb, &
+     &2.0775e-04_rb,1.0511e-04_rb,4.9046e-06_rb/)
+      kao(:, 2, 5, 5) = (/ &
+     &7.7296e-04_rb,6.8526e-04_rb,5.9860e-04_rb,5.0629e-04_rb,4.1334e-04_rb,3.1913e-04_rb, &
+     &2.2288e-04_rb,1.1662e-04_rb,9.7426e-06_rb/)
+      kao(:, 3, 5, 5) = (/ &
+     &7.8512e-04_rb,7.0191e-04_rb,6.1328e-04_rb,5.2156e-04_rb,4.2917e-04_rb,3.3432e-04_rb, &
+     &2.3232e-04_rb,1.2535e-04_rb,1.4908e-05_rb/)
+      kao(:, 4, 5, 5) = (/ &
+     &8.0065e-04_rb,7.1779e-04_rb,6.2814e-04_rb,5.3808e-04_rb,4.4471e-04_rb,3.4601e-04_rb, &
+     &2.4241e-04_rb,1.3326e-04_rb,2.1852e-05_rb/)
+      kao(:, 5, 5, 5) = (/ &
+     &8.1368e-04_rb,7.3211e-04_rb,6.4458e-04_rb,5.5662e-04_rb,4.6149e-04_rb,3.6022e-04_rb, &
+     &2.5323e-04_rb,1.4142e-04_rb,3.1532e-05_rb/)
+      kao(:, 1, 6, 5) = (/ &
+     &1.6528e-03_rb,1.4497e-03_rb,1.2477e-03_rb,1.0459e-03_rb,8.4296e-04_rb,6.4013e-04_rb, &
+     &4.3541e-04_rb,2.2882e-04_rb,4.1025e-06_rb/)
+      kao(:, 2, 6, 5) = (/ &
+     &1.7167e-03_rb,1.5070e-03_rb,1.2980e-03_rb,1.0901e-03_rb,8.8256e-04_rb,6.7196e-04_rb, &
+     &4.5785e-04_rb,2.4158e-04_rb,7.1575e-06_rb/)
+      kao(:, 3, 6, 5) = (/ &
+     &1.7542e-03_rb,1.5443e-03_rb,1.3374e-03_rb,1.1305e-03_rb,9.1589e-04_rb,6.9839e-04_rb, &
+     &4.8070e-04_rb,2.5576e-04_rb,1.1170e-05_rb/)
+      kao(:, 4, 6, 5) = (/ &
+     &1.7835e-03_rb,1.5745e-03_rb,1.3686e-03_rb,1.1552e-03_rb,9.3898e-04_rb,7.2100e-04_rb, &
+     &4.9974e-04_rb,2.6756e-04_rb,1.6778e-05_rb/)
+      kao(:, 5, 6, 5) = (/ &
+     &1.8173e-03_rb,1.6109e-03_rb,1.3997e-03_rb,1.1836e-03_rb,9.6533e-04_rb,7.4477e-04_rb, &
+     &5.1869e-04_rb,2.7889e-04_rb,2.4339e-05_rb/)
+      kao(:, 1, 7, 5) = (/ &
+     &3.9726e-03_rb,3.4772e-03_rb,2.9832e-03_rb,2.4912e-03_rb,1.9978e-03_rb,1.5048e-03_rb, &
+     &1.0114e-03_rb,5.1606e-04_rb,3.0815e-06_rb/)
+      kao(:, 2, 7, 5) = (/ &
+     &3.9885e-03_rb,3.4924e-03_rb,2.9992e-03_rb,2.5047e-03_rb,2.0117e-03_rb,1.5168e-03_rb, &
+     &1.0225e-03_rb,5.2471e-04_rb,5.4224e-06_rb/)
+      kao(:, 3, 7, 5) = (/ &
+     &4.1133e-03_rb,3.6053e-03_rb,3.0965e-03_rb,2.5896e-03_rb,2.0823e-03_rb,1.5758e-03_rb, &
+     &1.0680e-03_rb,5.5159e-04_rb,9.0931e-06_rb/)
+      kao(:, 4, 7, 5) = (/ &
+     &4.1858e-03_rb,3.6723e-03_rb,3.1582e-03_rb,2.6449e-03_rb,2.1343e-03_rb,1.6217e-03_rb, &
+     &1.1005e-03_rb,5.7513e-04_rb,1.3973e-05_rb/)
+      kao(:, 5, 7, 5) = (/ &
+     &4.2673e-03_rb,3.7471e-03_rb,3.2256e-03_rb,2.7082e-03_rb,2.1908e-03_rb,1.6652e-03_rb, &
+     &1.1349e-03_rb,5.9686e-04_rb,1.9907e-05_rb/)
+      kao(:, 1, 8, 5) = (/ &
+     &1.1789e-02_rb,1.0316e-02_rb,8.8432e-03_rb,7.3701e-03_rb,5.8982e-03_rb,4.4284e-03_rb, &
+     &2.9575e-03_rb,1.4868e-03_rb,2.6362e-06_rb/)
+      kao(:, 2, 8, 5) = (/ &
+     &1.1815e-02_rb,1.0339e-02_rb,8.8633e-03_rb,7.3911e-03_rb,5.9198e-03_rb,4.4454e-03_rb, &
+     &2.9722e-03_rb,1.4993e-03_rb,4.7391e-06_rb/)
+      kao(:, 3, 8, 5) = (/ &
+     &1.2063e-02_rb,1.0556e-02_rb,9.0547e-03_rb,7.5533e-03_rb,6.0485e-03_rb,4.5441e-03_rb, &
+     &3.0419e-03_rb,1.5395e-03_rb,7.9686e-06_rb/)
+      kao(:, 4, 8, 5) = (/ &
+     &1.2374e-02_rb,1.0835e-02_rb,9.2985e-03_rb,7.7571e-03_rb,6.2150e-03_rb,4.6751e-03_rb, &
+     &3.1349e-03_rb,1.5981e-03_rb,1.2907e-05_rb/)
+      kao(:, 5, 8, 5) = (/ &
+     &1.2586e-02_rb,1.1028e-02_rb,9.4648e-03_rb,7.8998e-03_rb,6.3362e-03_rb,4.7714e-03_rb, &
+     &3.2105e-03_rb,1.6437e-03_rb,1.9633e-05_rb/)
+      kao(:, 1, 9, 5) = (/ &
+     &6.5443e-02_rb,5.7264e-02_rb,4.9084e-02_rb,4.0904e-02_rb,3.2723e-02_rb,2.4543e-02_rb, &
+     &1.6364e-02_rb,8.1848e-03_rb,3.1432e-06_rb/)
+      kao(:, 2, 9, 5) = (/ &
+     &6.6880e-02_rb,5.8521e-02_rb,5.0162e-02_rb,4.1802e-02_rb,3.3443e-02_rb,2.5083e-02_rb, &
+     &1.6728e-02_rb,8.3763e-03_rb,5.7297e-06_rb/)
+      kao(:, 3, 9, 5) = (/ &
+     &6.6965e-02_rb,5.8596e-02_rb,5.0227e-02_rb,4.1857e-02_rb,3.3491e-02_rb,2.5128e-02_rb, &
+     &1.6767e-02_rb,8.3954e-03_rb,1.0132e-05_rb/)
+      kao(:, 4, 9, 5) = (/ &
+     &6.9095e-02_rb,6.0459e-02_rb,5.1827e-02_rb,4.3201e-02_rb,3.4575e-02_rb,2.5948e-02_rb, &
+     &1.7311e-02_rb,8.6749e-03_rb,1.6592e-05_rb/)
+      kao(:, 5, 9, 5) = (/ &
+     &7.0723e-02_rb,6.1894e-02_rb,5.3070e-02_rb,4.4247e-02_rb,3.5417e-02_rb,2.6580e-02_rb, &
+     &1.7739e-02_rb,8.9030e-03_rb,2.5109e-05_rb/)
+      kao(:, 1,10, 5) = (/ &
+     &4.3117e-01_rb,3.7727e-01_rb,3.2338e-01_rb,2.6948e-01_rb,2.1559e-01_rb,1.6169e-01_rb, &
+     &1.0779e-01_rb,5.3898e-02_rb,3.8321e-06_rb/)
+      kao(:, 2,10, 5) = (/ &
+     &4.4275e-01_rb,3.8740e-01_rb,3.3206e-01_rb,2.7672e-01_rb,2.2138e-01_rb,1.6603e-01_rb, &
+     &1.1069e-01_rb,5.5347e-02_rb,7.9189e-06_rb/)
+      kao(:, 3,10, 5) = (/ &
+     &4.5038e-01_rb,3.9409e-01_rb,3.3779e-01_rb,2.8149e-01_rb,2.2519e-01_rb,1.6890e-01_rb, &
+     &1.1260e-01_rb,5.6313e-02_rb,1.3890e-05_rb/)
+      kao(:, 4,10, 5) = (/ &
+     &4.5731e-01_rb,4.0015e-01_rb,3.4299e-01_rb,2.8583e-01_rb,2.2868e-01_rb,1.7152e-01_rb, &
+     &1.1436e-01_rb,5.7212e-02_rb,2.2042e-05_rb/)
+      kao(:, 5,10, 5) = (/ &
+     &4.7192e-01_rb,4.1294e-01_rb,3.5396e-01_rb,2.9499e-01_rb,2.3600e-01_rb,1.7703e-01_rb, &
+     &1.1805e-01_rb,5.9063e-02_rb,3.5819e-05_rb/)
+      kao(:, 1,11, 5) = (/ &
+     &9.6082e-01_rb,8.4073e-01_rb,7.2062e-01_rb,6.0052e-01_rb,4.8042e-01_rb,3.6032e-01_rb, &
+     &2.4021e-01_rb,1.2011e-01_rb,4.1252e-06_rb/)
+      kao(:, 2,11, 5) = (/ &
+     &9.8883e-01_rb,8.6524e-01_rb,7.4164e-01_rb,6.1802e-01_rb,4.9442e-01_rb,3.7082e-01_rb, &
+     &2.4722e-01_rb,1.2361e-01_rb,8.2890e-06_rb/)
+      kao(:, 3,11, 5) = (/ &
+     &1.0099e+00_rb,8.8371e-01_rb,7.5745e-01_rb,6.3122e-01_rb,5.0498e-01_rb,3.7874e-01_rb, &
+     &2.5251e-01_rb,1.2627e-01_rb,1.3752e-05_rb/)
+      kao(:, 4,11, 5) = (/ &
+     &1.0275e+00_rb,8.9904e-01_rb,7.7063e-01_rb,6.4220e-01_rb,5.1377e-01_rb,3.8534e-01_rb, &
+     &2.5691e-01_rb,1.2849e-01_rb,2.1878e-05_rb/)
+      kao(:, 5,11, 5) = (/ &
+     &1.0619e+00_rb,9.2921e-01_rb,7.9651e-01_rb,6.6374e-01_rb,5.3103e-01_rb,3.9829e-01_rb, &
+     &2.6556e-01_rb,1.3282e-01_rb,3.3798e-05_rb/)
+      kao(:, 1,12, 5) = (/ &
+     &1.3448e+00_rb,1.1767e+00_rb,1.0086e+00_rb,8.4049e-01_rb,6.7240e-01_rb,5.0429e-01_rb, &
+     &3.3620e-01_rb,1.6810e-01_rb,3.8444e-06_rb/)
+      kao(:, 2,12, 5) = (/ &
+     &1.3870e+00_rb,1.2136e+00_rb,1.0403e+00_rb,8.6689e-01_rb,6.9351e-01_rb,5.2014e-01_rb, &
+     &3.4675e-01_rb,1.7338e-01_rb,8.1656e-06_rb/)
+      kao(:, 3,12, 5) = (/ &
+     &1.4199e+00_rb,1.2424e+00_rb,1.0649e+00_rb,8.8747e-01_rb,7.0998e-01_rb,5.3249e-01_rb, &
+     &3.5500e-01_rb,1.7752e-01_rb,1.3518e-05_rb/)
+      kao(:, 4,12, 5) = (/ &
+     &1.4553e+00_rb,1.2734e+00_rb,1.0915e+00_rb,9.0958e-01_rb,7.2769e-01_rb,5.4578e-01_rb, &
+     &3.6386e-01_rb,1.8196e-01_rb,2.0674e-05_rb/)
+      kao(:, 5,12, 5) = (/ &
+     &1.5049e+00_rb,1.3168e+00_rb,1.1287e+00_rb,9.4058e-01_rb,7.5249e-01_rb,5.6439e-01_rb, &
+     &3.7628e-01_rb,1.8817e-01_rb,3.3221e-05_rb/)
+      kao(:, 1,13, 5) = (/ &
+     &1.5112e+00_rb,1.3223e+00_rb,1.1334e+00_rb,9.4452e-01_rb,7.5561e-01_rb,5.6670e-01_rb, &
+     &3.7781e-01_rb,1.8891e-01_rb,3.4136e-06_rb/)
+      kao(:, 2,13, 5) = (/ &
+     &1.5630e+00_rb,1.3677e+00_rb,1.1723e+00_rb,9.7690e-01_rb,7.8153e-01_rb,5.8614e-01_rb, &
+     &3.9077e-01_rb,1.9539e-01_rb,7.2314e-06_rb/)
+      kao(:, 3,13, 5) = (/ &
+     &1.6029e+00_rb,1.4025e+00_rb,1.2022e+00_rb,1.0018e+00_rb,8.0146e-01_rb,6.0110e-01_rb, &
+     &4.0074e-01_rb,2.0039e-01_rb,1.2933e-05_rb/)
+      kao(:, 4,13, 5) = (/ &
+     &1.6548e+00_rb,1.4480e+00_rb,1.2411e+00_rb,1.0343e+00_rb,8.2742e-01_rb,6.2059e-01_rb, &
+     &4.1374e-01_rb,2.0689e-01_rb,2.1420e-05_rb/)
+      kao(:, 5,13, 5) = (/ &
+     &1.7129e+00_rb,1.4988e+00_rb,1.2846e+00_rb,1.0706e+00_rb,8.5645e-01_rb,6.4235e-01_rb, &
+     &4.2827e-01_rb,2.1415e-01_rb,3.1482e-05_rb/)
+      kao(:, 1, 1, 6) = (/ &
+     &4.0608e-05_rb,4.2185e-05_rb,3.9730e-05_rb,2.6630e-05_rb,1.5870e-05_rb,2.1720e-05_rb, &
+     &4.0183e-05_rb,5.7933e-05_rb,1.9230e-05_rb/)
+      kao(:, 2, 1, 6) = (/ &
+     &4.0560e-05_rb,4.3924e-05_rb,4.2843e-05_rb,4.0587e-05_rb,1.9599e-05_rb,1.9434e-05_rb, &
+     &2.9187e-05_rb,8.1729e-05_rb,2.4180e-05_rb/)
+      kao(:, 3, 1, 6) = (/ &
+     &4.0596e-05_rb,4.5223e-05_rb,4.7233e-05_rb,4.8206e-05_rb,4.1815e-05_rb,2.4282e-05_rb, &
+     &2.7535e-05_rb,5.3025e-05_rb,4.5769e-05_rb/)
+      kao(:, 4, 1, 6) = (/ &
+     &4.0424e-05_rb,4.7527e-05_rb,5.3798e-05_rb,5.7119e-05_rb,5.7658e-05_rb,5.2268e-05_rb, &
+     &3.6355e-05_rb,4.4941e-05_rb,8.6910e-05_rb/)
+      kao(:, 5, 1, 6) = (/ &
+     &4.0234e-05_rb,5.1685e-05_rb,6.0703e-05_rb,6.7173e-05_rb,7.3473e-05_rb,7.8264e-05_rb, &
+     &7.7542e-05_rb,6.1561e-05_rb,1.1878e-04_rb/)
+      kao(:, 1, 2, 6) = (/ &
+     &7.1743e-05_rb,6.9776e-05_rb,6.4069e-05_rb,5.6253e-05_rb,3.2492e-05_rb,1.5299e-05_rb, &
+     &2.5979e-05_rb,5.8422e-05_rb,1.3265e-05_rb/)
+      kao(:, 2, 2, 6) = (/ &
+     &7.1061e-05_rb,7.2097e-05_rb,6.7274e-05_rb,6.0734e-05_rb,5.1280e-05_rb,2.1520e-05_rb, &
+     &1.9911e-05_rb,4.4529e-05_rb,1.9523e-05_rb/)
+      kao(:, 3, 2, 6) = (/ &
+     &7.0841e-05_rb,7.4370e-05_rb,7.0760e-05_rb,6.5655e-05_rb,6.0306e-05_rb,4.1020e-05_rb, &
+     &2.4466e-05_rb,3.0981e-05_rb,4.7368e-05_rb/)
+      kao(:, 4, 2, 6) = (/ &
+     &7.0995e-05_rb,7.6358e-05_rb,7.4085e-05_rb,7.2263e-05_rb,6.9627e-05_rb,6.3412e-05_rb, &
+     &3.9010e-05_rb,3.3220e-05_rb,7.3941e-05_rb/)
+      kao(:, 5, 2, 6) = (/ &
+     &7.1418e-05_rb,7.8720e-05_rb,7.9350e-05_rb,8.0487e-05_rb,8.0635e-05_rb,7.8967e-05_rb, &
+     &7.4070e-05_rb,4.7509e-05_rb,9.9451e-05_rb/)
+      kao(:, 1, 3, 6) = (/ &
+     &1.7804e-04_rb,1.6309e-04_rb,1.4603e-04_rb,1.2640e-04_rb,1.0532e-04_rb,7.7851e-05_rb, &
+     &3.0401e-05_rb,3.2808e-05_rb,1.0278e-05_rb/)
+      kao(:, 2, 3, 6) = (/ &
+     &1.7807e-04_rb,1.6656e-04_rb,1.5059e-04_rb,1.3159e-04_rb,1.1024e-04_rb,8.6966e-05_rb, &
+     &3.8390e-05_rb,2.7178e-05_rb,2.3712e-05_rb/)
+      kao(:, 3, 3, 6) = (/ &
+     &1.7838e-04_rb,1.6972e-04_rb,1.5616e-04_rb,1.3747e-04_rb,1.1728e-04_rb,9.5070e-05_rb, &
+     &6.7563e-05_rb,2.2396e-05_rb,4.2459e-05_rb/)
+      kao(:, 4, 3, 6) = (/ &
+     &1.7857e-04_rb,1.7475e-04_rb,1.6100e-04_rb,1.4311e-04_rb,1.2411e-04_rb,1.0321e-04_rb, &
+     &8.1061e-05_rb,2.7084e-05_rb,5.9922e-05_rb/)
+      kao(:, 5, 3, 6) = (/ &
+     &1.7913e-04_rb,1.7932e-04_rb,1.6663e-04_rb,1.4905e-04_rb,1.3079e-04_rb,1.1234e-04_rb, &
+     &9.4176e-05_rb,5.9304e-05_rb,8.0703e-05_rb/)
+      kao(:, 1, 4, 6) = (/ &
+     &4.5849e-04_rb,4.0719e-04_rb,3.5630e-04_rb,3.0212e-04_rb,2.4723e-04_rb,1.9208e-04_rb, &
+     &1.3224e-04_rb,4.0670e-05_rb,1.0786e-05_rb/)
+      kao(:, 2, 4, 6) = (/ &
+     &4.6326e-04_rb,4.1501e-04_rb,3.6371e-04_rb,3.1046e-04_rb,2.5726e-04_rb,2.0145e-04_rb, &
+     &1.4032e-04_rb,4.2661e-05_rb,2.2724e-05_rb/)
+      kao(:, 3, 4, 6) = (/ &
+     &4.5999e-04_rb,4.1805e-04_rb,3.6892e-04_rb,3.1975e-04_rb,2.6673e-04_rb,2.0947e-04_rb, &
+     &1.4924e-04_rb,6.8954e-05_rb,3.3787e-05_rb/)
+      kao(:, 4, 4, 6) = (/ &
+     &4.6003e-04_rb,4.1972e-04_rb,3.7753e-04_rb,3.3032e-04_rb,2.7779e-04_rb,2.1909e-04_rb, &
+     &1.5785e-04_rb,9.1573e-05_rb,4.7343e-05_rb/)
+      kao(:, 5, 4, 6) = (/ &
+     &4.6253e-04_rb,4.2854e-04_rb,3.8917e-04_rb,3.4007e-04_rb,2.8599e-04_rb,2.2760e-04_rb, &
+     &1.6713e-04_rb,1.0392e-04_rb,6.4507e-05_rb/)
+      kao(:, 1, 5, 6) = (/ &
+     &1.1046e-03_rb,9.7210e-04_rb,8.3818e-04_rb,7.0474e-04_rb,5.7182e-04_rb,4.3731e-04_rb, &
+     &3.0078e-04_rb,1.5849e-04_rb,1.0669e-05_rb/)
+      kao(:, 2, 5, 6) = (/ &
+     &1.1184e-03_rb,9.8522e-04_rb,8.5052e-04_rb,7.1956e-04_rb,5.8448e-04_rb,4.4708e-04_rb, &
+     &3.0943e-04_rb,1.6582e-04_rb,1.7856e-05_rb/)
+      kao(:, 3, 5, 6) = (/ &
+     &1.1214e-03_rb,9.8952e-04_rb,8.6298e-04_rb,7.3058e-04_rb,5.9526e-04_rb,4.5967e-04_rb, &
+     &3.2343e-04_rb,1.7504e-04_rb,2.7384e-05_rb/)
+      kao(:, 4, 5, 6) = (/ &
+     &1.1214e-03_rb,9.9887e-04_rb,8.7233e-04_rb,7.4058e-04_rb,6.1074e-04_rb,4.7706e-04_rb, &
+     &3.3627e-04_rb,1.8500e-04_rb,4.0071e-05_rb/)
+      kao(:, 5, 5, 6) = (/ &
+     &1.1239e-03_rb,1.0058e-03_rb,8.8047e-04_rb,7.5602e-04_rb,6.2667e-04_rb,4.9193e-04_rb, &
+     &3.4864e-04_rb,1.9526e-04_rb,5.6262e-05_rb/)
+      kao(:, 1, 6, 6) = (/ &
+     &2.6585e-03_rb,2.3289e-03_rb,2.0017e-03_rb,1.6725e-03_rb,1.3436e-03_rb,1.0134e-03_rb, &
+     &6.8348e-04_rb,3.5116e-04_rb,8.2810e-06_rb/)
+      kao(:, 2, 6, 6) = (/ &
+     &2.5863e-03_rb,2.2683e-03_rb,1.9501e-03_rb,1.6316e-03_rb,1.3110e-03_rb,9.9174e-04_rb, &
+     &6.7274e-04_rb,3.5111e-04_rb,1.4039e-05_rb/)
+      kao(:, 3, 6, 6) = (/ &
+     &2.6176e-03_rb,2.2991e-03_rb,1.9771e-03_rb,1.6537e-03_rb,1.3367e-03_rb,1.0179e-03_rb, &
+     &6.9352e-04_rb,3.6693e-04_rb,2.2683e-05_rb/)
+      kao(:, 4, 6, 6) = (/ &
+     &2.6217e-03_rb,2.3046e-03_rb,1.9871e-03_rb,1.6757e-03_rb,1.3567e-03_rb,1.0347e-03_rb, &
+     &7.1195e-04_rb,3.8176e-04_rb,3.4748e-05_rb/)
+      kao(:, 5, 6, 6) = (/ &
+     &2.6329e-03_rb,2.3195e-03_rb,2.0094e-03_rb,1.6960e-03_rb,1.3768e-03_rb,1.0589e-03_rb, &
+     &7.3230e-04_rb,3.9783e-04_rb,4.9695e-05_rb/)
+      kao(:, 1, 7, 6) = (/ &
+     &6.5036e-03_rb,5.6927e-03_rb,4.8817e-03_rb,4.0715e-03_rb,3.2636e-03_rb,2.4531e-03_rb, &
+     &1.6426e-03_rb,8.2916e-04_rb,6.2936e-06_rb/)
+      kao(:, 2, 7, 6) = (/ &
+     &6.4462e-03_rb,5.6438e-03_rb,4.8427e-03_rb,4.0443e-03_rb,3.2425e-03_rb,2.4409e-03_rb, &
+     &1.6364e-03_rb,8.3288e-04_rb,1.1136e-05_rb/)
+      kao(:, 3, 7, 6) = (/ &
+     &6.4103e-03_rb,5.6141e-03_rb,4.8233e-03_rb,4.0268e-03_rb,3.2317e-03_rb,2.4336e-03_rb, &
+     &1.6355e-03_rb,8.3675e-04_rb,1.7991e-05_rb/)
+      kao(:, 4, 7, 6) = (/ &
+     &6.4801e-03_rb,5.6797e-03_rb,4.8784e-03_rb,4.0772e-03_rb,3.2734e-03_rb,2.4699e-03_rb, &
+     &1.6705e-03_rb,8.6234e-04_rb,2.8124e-05_rb/)
+      kao(:, 5, 7, 6) = (/ &
+     &6.4899e-03_rb,5.6954e-03_rb,4.8999e-03_rb,4.1019e-03_rb,3.3007e-03_rb,2.5022e-03_rb, &
+     &1.6963e-03_rb,8.8568e-04_rb,4.2294e-05_rb/)
+      kao(:, 1, 8, 6) = (/ &
+     &1.9938e-02_rb,1.7447e-02_rb,1.4956e-02_rb,1.2465e-02_rb,9.9746e-03_rb,7.4836e-03_rb, &
+     &4.9963e-03_rb,2.5067e-03_rb,5.1161e-06_rb/)
+      kao(:, 2, 8, 6) = (/ &
+     &2.0028e-02_rb,1.7527e-02_rb,1.5026e-02_rb,1.2525e-02_rb,1.0025e-02_rb,7.5295e-03_rb, &
+     &5.0298e-03_rb,2.5282e-03_rb,9.0850e-06_rb/)
+      kao(:, 3, 8, 6) = (/ &
+     &1.9800e-02_rb,1.7330e-02_rb,1.4859e-02_rb,1.2391e-02_rb,9.9275e-03_rb,7.4581e-03_rb, &
+     &4.9868e-03_rb,2.5105e-03_rb,1.5352e-05_rb/)
+      kao(:, 4, 8, 6) = (/ &
+     &1.9943e-02_rb,1.7456e-02_rb,1.4973e-02_rb,1.2495e-02_rb,1.0008e-02_rb,7.5213e-03_rb, &
+     &5.0327e-03_rb,2.5396e-03_rb,2.4408e-05_rb/)
+      kao(:, 5, 8, 6) = (/ &
+     &2.0100e-02_rb,1.7597e-02_rb,1.5105e-02_rb,1.2604e-02_rb,1.0099e-02_rb,7.5963e-03_rb, &
+     &5.0871e-03_rb,2.5804e-03_rb,3.7067e-05_rb/)
+      kao(:, 1, 9, 6) = (/ &
+     &1.1579e-01_rb,1.0132e-01_rb,8.6843e-02_rb,7.2372e-02_rb,5.7899e-02_rb,4.3426e-02_rb, &
+     &2.8954e-02_rb,1.4481e-02_rb,4.8758e-06_rb/)
+      kao(:, 2, 9, 6) = (/ &
+     &1.1661e-01_rb,1.0203e-01_rb,8.7460e-02_rb,7.2886e-02_rb,5.8311e-02_rb,4.3737e-02_rb, &
+     &2.9163e-02_rb,1.4591e-02_rb,1.0307e-05_rb/)
+      kao(:, 3, 9, 6) = (/ &
+     &1.1709e-01_rb,1.0246e-01_rb,8.7825e-02_rb,7.3192e-02_rb,5.8559e-02_rb,4.3925e-02_rb, &
+     &2.9293e-02_rb,1.4674e-02_rb,1.8955e-05_rb/)
+      kao(:, 4, 9, 6) = (/ &
+     &1.1566e-01_rb,1.0121e-01_rb,8.6757e-02_rb,7.2304e-02_rb,5.7852e-02_rb,4.3402e-02_rb, &
+     &2.8967e-02_rb,1.4512e-02_rb,3.1114e-05_rb/)
+      kao(:, 5, 9, 6) = (/ &
+     &1.1720e-01_rb,1.0255e-01_rb,8.7909e-02_rb,7.3266e-02_rb,5.8634e-02_rb,4.4011e-02_rb, &
+     &2.9372e-02_rb,1.4720e-02_rb,4.7731e-05_rb/)
+      kao(:, 1,10, 6) = (/ &
+     &7.9704e-01_rb,6.9741e-01_rb,5.9778e-01_rb,4.9815e-01_rb,3.9852e-01_rb,2.9889e-01_rb, &
+     &1.9926e-01_rb,9.9635e-02_rb,6.0881e-06_rb/)
+      kao(:, 2,10, 6) = (/ &
+     &8.0524e-01_rb,7.0458e-01_rb,6.0393e-01_rb,5.0328e-01_rb,4.0263e-01_rb,3.0197e-01_rb, &
+     &2.0132e-01_rb,1.0067e-01_rb,9.9592e-06_rb/)
+      kao(:, 3,10, 6) = (/ &
+     &8.0944e-01_rb,7.0827e-01_rb,6.0708e-01_rb,5.0591e-01_rb,4.0473e-01_rb,3.0356e-01_rb, &
+     &2.0238e-01_rb,1.0120e-01_rb,1.7097e-05_rb/)
+      kao(:, 4,10, 6) = (/ &
+     &8.0782e-01_rb,7.0685e-01_rb,6.0589e-01_rb,5.0491e-01_rb,4.0393e-01_rb,3.0295e-01_rb, &
+     &2.0198e-01_rb,1.0100e-01_rb,2.9862e-05_rb/)
+      kao(:, 5,10, 6) = (/ &
+     &8.0293e-01_rb,7.0255e-01_rb,6.0220e-01_rb,5.0184e-01_rb,4.0149e-01_rb,3.0112e-01_rb, &
+     &2.0077e-01_rb,1.0043e-01_rb,4.8674e-05_rb/)
+      kao(:, 1,11, 6) = (/ &
+     &1.8320e+00_rb,1.6031e+00_rb,1.3740e+00_rb,1.1450e+00_rb,9.1602e-01_rb,6.8703e-01_rb, &
+     &4.5802e-01_rb,2.2901e-01_rb,6.4794e-06_rb/)
+      kao(:, 2,11, 6) = (/ &
+     &1.8510e+00_rb,1.6196e+00_rb,1.3883e+00_rb,1.1569e+00_rb,9.2553e-01_rb,6.9415e-01_rb, &
+     &4.6277e-01_rb,2.3139e-01_rb,1.1218e-05_rb/)
+      kao(:, 3,11, 6) = (/ &
+     &1.8631e+00_rb,1.6303e+00_rb,1.3974e+00_rb,1.1645e+00_rb,9.3160e-01_rb,6.9871e-01_rb, &
+     &4.6580e-01_rb,2.3291e-01_rb,1.9228e-05_rb/)
+      kao(:, 4,11, 6) = (/ &
+     &1.8640e+00_rb,1.6310e+00_rb,1.3980e+00_rb,1.1650e+00_rb,9.3201e-01_rb,6.9904e-01_rb, &
+     &4.6603e-01_rb,2.3304e-01_rb,3.3633e-05_rb/)
+      kao(:, 5,11, 6) = (/ &
+     &1.8480e+00_rb,1.6170e+00_rb,1.3860e+00_rb,1.1550e+00_rb,9.2402e-01_rb,6.9305e-01_rb, &
+     &4.6206e-01_rb,2.3108e-01_rb,5.6086e-05_rb/)
+      kao(:, 1,12, 6) = (/ &
+     &2.6276e+00_rb,2.2991e+00_rb,1.9707e+00_rb,1.6422e+00_rb,1.3138e+00_rb,9.8536e-01_rb, &
+     &6.5690e-01_rb,3.2845e-01_rb,6.1969e-06_rb/)
+      kao(:, 2,12, 6) = (/ &
+     &2.6587e+00_rb,2.3264e+00_rb,1.9940e+00_rb,1.6617e+00_rb,1.3293e+00_rb,9.9701e-01_rb, &
+     &6.6468e-01_rb,3.3234e-01_rb,9.9191e-06_rb/)
+      kao(:, 3,12, 6) = (/ &
+     &2.6771e+00_rb,2.3425e+00_rb,2.0078e+00_rb,1.6732e+00_rb,1.3386e+00_rb,1.0039e+00_rb, &
+     &6.6929e-01_rb,3.3465e-01_rb,1.7326e-05_rb/)
+      kao(:, 4,12, 6) = (/ &
+     &2.6786e+00_rb,2.3438e+00_rb,2.0090e+00_rb,1.6742e+00_rb,1.3393e+00_rb,1.0045e+00_rb, &
+     &6.6968e-01_rb,3.3487e-01_rb,3.0600e-05_rb/)
+      kao(:, 5,12, 6) = (/ &
+     &2.6738e+00_rb,2.3396e+00_rb,2.0054e+00_rb,1.6711e+00_rb,1.3369e+00_rb,1.0027e+00_rb, &
+     &6.6852e-01_rb,3.3432e-01_rb,4.9574e-05_rb/)
+      kao(:, 1,13, 6) = (/ &
+     &3.0141e+00_rb,2.6373e+00_rb,2.2606e+00_rb,1.8838e+00_rb,1.5070e+00_rb,1.1303e+00_rb, &
+     &7.5353e-01_rb,3.7676e-01_rb,5.4676e-06_rb/)
+      kao(:, 2,13, 6) = (/ &
+     &3.0533e+00_rb,2.6716e+00_rb,2.2900e+00_rb,1.9083e+00_rb,1.5266e+00_rb,1.1450e+00_rb, &
+     &7.6332e-01_rb,3.8166e-01_rb,9.0049e-06_rb/)
+      kao(:, 3,13, 6) = (/ &
+     &3.0797e+00_rb,2.6947e+00_rb,2.3097e+00_rb,1.9248e+00_rb,1.5398e+00_rb,1.1549e+00_rb, &
+     &7.6993e-01_rb,3.8499e-01_rb,1.5493e-05_rb/)
+      kao(:, 4,13, 6) = (/ &
+     &3.0841e+00_rb,2.6986e+00_rb,2.3131e+00_rb,1.9276e+00_rb,1.5421e+00_rb,1.1566e+00_rb, &
+     &7.7107e-01_rb,3.8557e-01_rb,2.5494e-05_rb/)
+      kao(:, 5,13, 6) = (/ &
+     &3.0968e+00_rb,2.7097e+00_rb,2.3226e+00_rb,1.9355e+00_rb,1.5484e+00_rb,1.1613e+00_rb, &
+     &7.7428e-01_rb,3.8723e-01_rb,4.2043e-05_rb/)
+      kao(:, 1, 1, 7) = (/ &
+     &4.9351e-05_rb,5.1634e-05_rb,5.0550e-05_rb,4.1436e-05_rb,1.6376e-05_rb,2.1065e-05_rb, &
+     &3.5627e-05_rb,5.1301e-05_rb,2.4192e-05_rb/)
+      kao(:, 2, 1, 7) = (/ &
+     &4.8474e-05_rb,5.5540e-05_rb,5.6343e-05_rb,5.4221e-05_rb,4.2170e-05_rb,2.4823e-05_rb, &
+     &3.1731e-05_rb,5.9201e-05_rb,4.8733e-05_rb/)
+      kao(:, 3, 1, 7) = (/ &
+     &4.7492e-05_rb,6.0199e-05_rb,6.3032e-05_rb,6.6317e-05_rb,6.8647e-05_rb,6.4541e-05_rb, &
+     &4.0308e-05_rb,5.5421e-05_rb,1.0385e-04_rb/)
+      kao(:, 4, 1, 7) = (/ &
+     &4.5731e-05_rb,6.4480e-05_rb,7.0656e-05_rb,8.0927e-05_rb,9.1209e-05_rb,1.0812e-04_rb, &
+     &1.1177e-04_rb,6.7578e-05_rb,1.5053e-04_rb/)
+      kao(:, 5, 1, 7) = (/ &
+     &4.5536e-05_rb,6.8791e-05_rb,8.4361e-05_rb,1.0008e-04_rb,1.1558e-04_rb,1.4310e-04_rb, &
+     &1.8138e-04_rb,1.7860e-04_rb,2.0339e-04_rb/)
+      kao(:, 1, 2, 7) = (/ &
+     &8.7853e-05_rb,8.5975e-05_rb,8.0217e-05_rb,7.2158e-05_rb,5.1923e-05_rb,1.7714e-05_rb, &
+     &2.3551e-05_rb,3.4001e-05_rb,1.8843e-05_rb/)
+      kao(:, 2, 2, 7) = (/ &
+     &8.7406e-05_rb,8.8950e-05_rb,8.5976e-05_rb,7.9247e-05_rb,6.9532e-05_rb,3.6395e-05_rb, &
+     &2.2706e-05_rb,4.1033e-05_rb,5.5544e-05_rb/)
+      kao(:, 3, 2, 7) = (/ &
+     &8.7368e-05_rb,9.3020e-05_rb,9.1442e-05_rb,8.8073e-05_rb,8.2295e-05_rb,7.2901e-05_rb, &
+     &4.3354e-05_rb,4.6618e-05_rb,9.4748e-05_rb/)
+      kao(:, 4, 2, 7) = (/ &
+     &8.6439e-05_rb,9.8041e-05_rb,9.9373e-05_rb,9.8643e-05_rb,9.7447e-05_rb,9.7462e-05_rb, &
+     &9.8905e-05_rb,6.1372e-05_rb,1.3473e-04_rb/)
+      kao(:, 5, 2, 7) = (/ &
+     &8.4149e-05_rb,1.0269e-04_rb,1.0851e-04_rb,1.1232e-04_rb,1.1694e-04_rb,1.2384e-04_rb, &
+     &1.3615e-04_rb,1.5254e-04_rb,1.8188e-04_rb/)
+      kao(:, 1, 3, 7) = (/ &
+     &2.2417e-04_rb,2.0404e-04_rb,1.8235e-04_rb,1.5974e-04_rb,1.3536e-04_rb,1.0733e-04_rb, &
+     &2.8889e-05_rb,2.3292e-05_rb,2.7610e-05_rb/)
+      kao(:, 2, 3, 7) = (/ &
+     &2.2507e-04_rb,2.0905e-04_rb,1.8945e-04_rb,1.6889e-04_rb,1.4442e-04_rb,1.1619e-04_rb, &
+     &5.9496e-05_rb,2.4524e-05_rb,5.6641e-05_rb/)
+      kao(:, 3, 3, 7) = (/ &
+     &2.2338e-04_rb,2.1298e-04_rb,1.9588e-04_rb,1.7647e-04_rb,1.5321e-04_rb,1.2706e-04_rb, &
+     &9.4765e-05_rb,2.7601e-05_rb,8.4458e-05_rb/)
+      kao(:, 4, 3, 7) = (/ &
+     &2.2342e-04_rb,2.1728e-04_rb,2.0413e-04_rb,1.8620e-04_rb,1.6349e-04_rb,1.4113e-04_rb, &
+     &1.1467e-04_rb,6.7006e-05_rb,1.1844e-04_rb/)
+      kao(:, 5, 3, 7) = (/ &
+     &2.2238e-04_rb,2.2192e-04_rb,2.1227e-04_rb,1.9647e-04_rb,1.7779e-04_rb,1.5802e-04_rb, &
+     &1.3658e-04_rb,1.1946e-04_rb,1.6048e-04_rb/)
+      kao(:, 1, 4, 7) = (/ &
+     &5.9406e-04_rb,5.2735e-04_rb,4.5854e-04_rb,3.9146e-04_rb,3.2173e-04_rb,2.5115e-04_rb, &
+     &1.8204e-04_rb,3.3380e-05_rb,2.9857e-05_rb/)
+      kao(:, 2, 4, 7) = (/ &
+     &6.0105e-04_rb,5.3531e-04_rb,4.6978e-04_rb,4.0022e-04_rb,3.3097e-04_rb,2.6221e-04_rb, &
+     &1.8773e-04_rb,5.6092e-05_rb,4.7642e-05_rb/)
+      kao(:, 3, 4, 7) = (/ &
+     &5.9920e-04_rb,5.3954e-04_rb,4.7635e-04_rb,4.1122e-04_rb,3.4497e-04_rb,2.7525e-04_rb, &
+     &1.9878e-04_rb,1.0920e-04_rb,7.1351e-05_rb/)
+      kao(:, 4, 4, 7) = (/ &
+     &5.9595e-04_rb,5.4459e-04_rb,4.8204e-04_rb,4.2190e-04_rb,3.5656e-04_rb,2.8691e-04_rb, &
+     &2.1194e-04_rb,1.2834e-04_rb,1.0247e-04_rb/)
+      kao(:, 5, 4, 7) = (/ &
+     &5.9682e-04_rb,5.4845e-04_rb,4.9542e-04_rb,4.3507e-04_rb,3.7084e-04_rb,3.0256e-04_rb, &
+     &2.2629e-04_rb,1.4673e-04_rb,1.4061e-04_rb/)
+      kao(:, 1, 5, 7) = (/ &
+     &1.5636e-03_rb,1.3738e-03_rb,1.1854e-03_rb,9.9627e-04_rb,8.0358e-04_rb,6.1134e-04_rb, &
+     &4.1794e-04_rb,2.1940e-04_rb,2.4302e-05_rb/)
+      kao(:, 2, 5, 7) = (/ &
+     &1.5046e-03_rb,1.3266e-03_rb,1.1472e-03_rb,9.6320e-04_rb,7.8248e-04_rb,5.9833e-04_rb, &
+     &4.1211e-04_rb,2.2595e-04_rb,3.8463e-05_rb/)
+      kao(:, 3, 5, 7) = (/ &
+     &1.5168e-03_rb,1.3431e-03_rb,1.1615e-03_rb,9.8412e-04_rb,8.0210e-04_rb,6.1684e-04_rb, &
+     &4.2935e-04_rb,2.3832e-04_rb,5.7958e-05_rb/)
+      kao(:, 4, 5, 7) = (/ &
+     &1.5026e-03_rb,1.3336e-03_rb,1.1649e-03_rb,9.9050e-04_rb,8.0890e-04_rb,6.2936e-04_rb, &
+     &4.4480e-04_rb,2.5053e-04_rb,8.4195e-05_rb/)
+      kao(:, 5, 5, 7) = (/ &
+     &1.4982e-03_rb,1.3418e-03_rb,1.1752e-03_rb,9.9791e-04_rb,8.2403e-04_rb,6.4480e-04_rb, &
+     &4.6309e-04_rb,2.6575e-04_rb,1.1855e-04_rb/)
+      kao(:, 1, 6, 7) = (/ &
+     &3.8022e-03_rb,3.3297e-03_rb,2.8587e-03_rb,2.3909e-03_rb,1.9206e-03_rb,1.4508e-03_rb, &
+     &9.7686e-04_rb,5.0103e-04_rb,1.8374e-05_rb/)
+      kao(:, 2, 6, 7) = (/ &
+     &3.7188e-03_rb,3.2606e-03_rb,2.8078e-03_rb,2.3509e-03_rb,1.8941e-03_rb,1.4317e-03_rb, &
+     &9.6949e-04_rb,5.0170e-04_rb,2.9781e-05_rb/)
+      kao(:, 3, 6, 7) = (/ &
+     &3.6568e-03_rb,3.2124e-03_rb,2.7660e-03_rb,2.3181e-03_rb,1.8667e-03_rb,1.4148e-03_rb, &
+     &9.6121e-04_rb,5.0473e-04_rb,4.5442e-05_rb/)
+      kao(:, 4, 6, 7) = (/ &
+     &3.6655e-03_rb,3.2274e-03_rb,2.7830e-03_rb,2.3318e-03_rb,1.8859e-03_rb,1.4380e-03_rb, &
+     &9.8239e-04_rb,5.2260e-04_rb,6.7780e-05_rb/)
+      kao(:, 5, 6, 7) = (/ &
+     &3.6236e-03_rb,3.1965e-03_rb,2.7643e-03_rb,2.3328e-03_rb,1.8928e-03_rb,1.4444e-03_rb, &
+     &9.9870e-04_rb,5.3910e-04_rb,9.8293e-05_rb/)
+      kao(:, 1, 7, 7) = (/ &
+     &9.7756e-03_rb,8.5557e-03_rb,7.3357e-03_rb,6.1160e-03_rb,4.8978e-03_rb,3.6826e-03_rb, &
+     &2.4642e-03_rb,1.2466e-03_rb,1.4263e-05_rb/)
+      kao(:, 2, 7, 7) = (/ &
+     &9.5966e-03_rb,8.4005e-03_rb,7.2050e-03_rb,6.0128e-03_rb,4.8216e-03_rb,3.6274e-03_rb, &
+     &2.4345e-03_rb,1.2337e-03_rb,2.4094e-05_rb/)
+      kao(:, 3, 7, 7) = (/ &
+     &9.2939e-03_rb,8.1388e-03_rb,6.9869e-03_rb,5.8375e-03_rb,4.6843e-03_rb,3.5321e-03_rb, &
+     &2.3720e-03_rb,1.2113e-03_rb,3.8518e-05_rb/)
+      kao(:, 4, 7, 7) = (/ &
+     &9.3185e-03_rb,8.1650e-03_rb,7.0200e-03_rb,5.8680e-03_rb,4.7180e-03_rb,3.5579e-03_rb, &
+     &2.3933e-03_rb,1.2260e-03_rb,6.0065e-05_rb/)
+      kao(:, 5, 7, 7) = (/ &
+     &9.2942e-03_rb,8.1544e-03_rb,7.0105e-03_rb,5.8689e-03_rb,4.7186e-03_rb,3.5646e-03_rb, &
+     &2.4113e-03_rb,1.2505e-03_rb,8.8114e-05_rb/)
+      kao(:, 1, 8, 7) = (/ &
+     &3.1428e-02_rb,2.7501e-02_rb,2.3574e-02_rb,1.9646e-02_rb,1.5719e-02_rb,1.1792e-02_rb, &
+     &7.8652e-03_rb,3.9445e-03_rb,1.1179e-05_rb/)
+      kao(:, 2, 8, 7) = (/ &
+     &3.0933e-02_rb,2.7068e-02_rb,2.3204e-02_rb,1.9341e-02_rb,1.5477e-02_rb,1.1614e-02_rb, &
+     &7.7579e-03_rb,3.8961e-03_rb,2.0761e-05_rb/)
+      kao(:, 3, 8, 7) = (/ &
+     &3.0367e-02_rb,2.6575e-02_rb,2.2784e-02_rb,1.8992e-02_rb,1.5203e-02_rb,1.1421e-02_rb, &
+     &7.6337e-03_rb,3.8475e-03_rb,3.6107e-05_rb/)
+      kao(:, 4, 8, 7) = (/ &
+     &2.9365e-02_rb,2.5702e-02_rb,2.2039e-02_rb,1.8381e-02_rb,1.4731e-02_rb,1.1072e-02_rb, &
+     &7.4163e-03_rb,3.7447e-03_rb,5.6666e-05_rb/)
+      kao(:, 5, 8, 7) = (/ &
+     &2.9621e-02_rb,2.5930e-02_rb,2.2243e-02_rb,1.8569e-02_rb,1.4884e-02_rb,1.1199e-02_rb, &
+     &7.5061e-03_rb,3.7957e-03_rb,8.4702e-05_rb/)
+      kao(:, 1, 9, 7) = (/ &
+     &1.9031e-01_rb,1.6652e-01_rb,1.4273e-01_rb,1.1894e-01_rb,9.5159e-02_rb,7.1370e-02_rb, &
+     &4.7583e-02_rb,2.3794e-02_rb,1.1825e-05_rb/)
+      kao(:, 2, 9, 7) = (/ &
+     &1.8790e-01_rb,1.6442e-01_rb,1.4093e-01_rb,1.1744e-01_rb,9.3958e-02_rb,7.0471e-02_rb, &
+     &4.6985e-02_rb,2.3500e-02_rb,2.0873e-05_rb/)
+      kao(:, 3, 9, 7) = (/ &
+     &1.8549e-01_rb,1.6231e-01_rb,1.3912e-01_rb,1.1594e-01_rb,9.2757e-02_rb,6.9574e-02_rb, &
+     &4.6391e-02_rb,2.3213e-02_rb,3.5554e-05_rb/)
+      kao(:, 4, 9, 7) = (/ &
+     &1.8255e-01_rb,1.5974e-01_rb,1.3693e-01_rb,1.1411e-01_rb,9.1298e-02_rb,6.8486e-02_rb, &
+     &4.5672e-02_rb,2.2886e-02_rb,5.8671e-05_rb/)
+      kao(:, 5, 9, 7) = (/ &
+     &1.7785e-01_rb,1.5563e-01_rb,1.3341e-01_rb,1.1118e-01_rb,8.8960e-02_rb,6.6737e-02_rb, &
+     &4.4547e-02_rb,2.2336e-02_rb,9.5234e-05_rb/)
+      kao(:, 1,10, 7) = (/ &
+     &1.3607e+00_rb,1.1905e+00_rb,1.0205e+00_rb,8.5040e-01_rb,6.8031e-01_rb,5.1024e-01_rb, &
+     &3.4016e-01_rb,1.7008e-01_rb,8.4759e-06_rb/)
+      kao(:, 2,10, 7) = (/ &
+     &1.3482e+00_rb,1.1796e+00_rb,1.0111e+00_rb,8.4260e-01_rb,6.7408e-01_rb,5.0556e-01_rb, &
+     &3.3705e-01_rb,1.6853e-01_rb,1.7938e-05_rb/)
+      kao(:, 3,10, 7) = (/ &
+     &1.3360e+00_rb,1.1690e+00_rb,1.0020e+00_rb,8.3498e-01_rb,6.6798e-01_rb,5.0099e-01_rb, &
+     &3.3400e-01_rb,1.6701e-01_rb,3.3302e-05_rb/)
+      kao(:, 4,10, 7) = (/ &
+     &1.3243e+00_rb,1.1588e+00_rb,9.9325e-01_rb,8.2771e-01_rb,6.6217e-01_rb,4.9664e-01_rb, &
+     &3.3111e-01_rb,1.6557e-01_rb,5.5097e-05_rb/)
+      kao(:, 5,10, 7) = (/ &
+     &1.3047e+00_rb,1.1416e+00_rb,9.7851e-01_rb,8.1543e-01_rb,6.5236e-01_rb,4.8929e-01_rb, &
+     &3.2621e-01_rb,1.6314e-01_rb,9.0393e-05_rb/)
+      kao(:, 1,11, 7) = (/ &
+     &3.2276e+00_rb,2.8242e+00_rb,2.4208e+00_rb,2.0173e+00_rb,1.6138e+00_rb,1.2104e+00_rb, &
+     &8.0693e-01_rb,4.0346e-01_rb,7.3681e-06_rb/)
+      kao(:, 2,11, 7) = (/ &
+     &3.2117e+00_rb,2.8103e+00_rb,2.4088e+00_rb,2.0073e+00_rb,1.6059e+00_rb,1.2044e+00_rb, &
+     &8.0294e-01_rb,4.0147e-01_rb,1.5281e-05_rb/)
+      kao(:, 3,11, 7) = (/ &
+     &3.1949e+00_rb,2.7955e+00_rb,2.3962e+00_rb,1.9968e+00_rb,1.5975e+00_rb,1.1981e+00_rb, &
+     &7.9874e-01_rb,3.9938e-01_rb,2.9166e-05_rb/)
+      kao(:, 4,11, 7) = (/ &
+     &3.1739e+00_rb,2.7771e+00_rb,2.3804e+00_rb,1.9837e+00_rb,1.5870e+00_rb,1.1902e+00_rb, &
+     &7.9350e-01_rb,3.9677e-01_rb,4.9026e-05_rb/)
+      kao(:, 5,11, 7) = (/ &
+     &3.1466e+00_rb,2.7532e+00_rb,2.3599e+00_rb,1.9666e+00_rb,1.5733e+00_rb,1.1800e+00_rb, &
+     &7.8668e-01_rb,3.9338e-01_rb,8.3128e-05_rb/)
+      kao(:, 1,12, 7) = (/ &
+     &4.8071e+00_rb,4.2062e+00_rb,3.6053e+00_rb,3.0044e+00_rb,2.4035e+00_rb,1.8027e+00_rb, &
+     &1.2018e+00_rb,6.0089e-01_rb,7.8311e-06_rb/)
+      kao(:, 2,12, 7) = (/ &
+     &4.7982e+00_rb,4.1985e+00_rb,3.5987e+00_rb,2.9989e+00_rb,2.3991e+00_rb,1.7993e+00_rb, &
+     &1.1996e+00_rb,5.9978e-01_rb,1.6500e-05_rb/)
+      kao(:, 3,12, 7) = (/ &
+     &4.7853e+00_rb,4.1872e+00_rb,3.5890e+00_rb,2.9909e+00_rb,2.3927e+00_rb,1.7945e+00_rb, &
+     &1.1963e+00_rb,5.9818e-01_rb,3.1398e-05_rb/)
+      kao(:, 4,12, 7) = (/ &
+     &4.7636e+00_rb,4.1682e+00_rb,3.5727e+00_rb,2.9773e+00_rb,2.3818e+00_rb,1.7864e+00_rb, &
+     &1.1909e+00_rb,5.9548e-01_rb,5.6315e-05_rb/)
+      kao(:, 5,12, 7) = (/ &
+     &4.7234e+00_rb,4.1330e+00_rb,3.5426e+00_rb,2.9521e+00_rb,2.3618e+00_rb,1.7713e+00_rb, &
+     &1.1809e+00_rb,5.9047e-01_rb,9.4104e-05_rb/)
+      kao(:, 1,13, 7) = (/ &
+     &5.7320e+00_rb,5.0155e+00_rb,4.2989e+00_rb,3.5824e+00_rb,2.8660e+00_rb,2.1495e+00_rb, &
+     &1.4330e+00_rb,7.1649e-01_rb,9.5542e-06_rb/)
+      kao(:, 2,13, 7) = (/ &
+     &5.7353e+00_rb,5.0184e+00_rb,4.3015e+00_rb,3.5845e+00_rb,2.8676e+00_rb,2.1507e+00_rb, &
+     &1.4338e+00_rb,7.1691e-01_rb,1.9109e-05_rb/)
+      kao(:, 3,13, 7) = (/ &
+     &5.7278e+00_rb,5.0119e+00_rb,4.2959e+00_rb,3.5799e+00_rb,2.8639e+00_rb,2.1479e+00_rb, &
+     &1.4320e+00_rb,7.1599e-01_rb,3.6436e-05_rb/)
+      kao(:, 4,13, 7) = (/ &
+     &5.7108e+00_rb,4.9969e+00_rb,4.2830e+00_rb,3.5692e+00_rb,2.8554e+00_rb,2.1415e+00_rb, &
+     &1.4277e+00_rb,7.1386e-01_rb,6.4763e-05_rb/)
+      kao(:, 5,13, 7) = (/ &
+     &5.6635e+00_rb,4.9556e+00_rb,4.2476e+00_rb,3.5397e+00_rb,2.8317e+00_rb,2.1238e+00_rb, &
+     &1.4159e+00_rb,7.0796e-01_rb,1.0153e-04_rb/)
+      kao(:, 1, 1, 8) = (/ &
+     &5.6440e-05_rb,6.3815e-05_rb,6.7040e-05_rb,7.2656e-05_rb,5.7075e-05_rb,3.5497e-05_rb, &
+     &4.7197e-05_rb,3.9064e-05_rb,8.4705e-05_rb/)
+      kao(:, 2, 1, 8) = (/ &
+     &5.6956e-05_rb,6.9440e-05_rb,7.5002e-05_rb,9.1724e-05_rb,1.1786e-04_rb,1.1581e-04_rb, &
+     &7.2124e-05_rb,6.3862e-05_rb,2.0332e-04_rb/)
+      kao(:, 3, 1, 8) = (/ &
+     &5.4856e-05_rb,7.4835e-05_rb,8.9381e-05_rb,1.1688e-04_rb,1.6480e-04_rb,2.0403e-04_rb, &
+     &2.1723e-04_rb,1.2068e-04_rb,2.9982e-04_rb/)
+      kao(:, 4, 1, 8) = (/ &
+     &5.2749e-05_rb,8.4849e-05_rb,1.1205e-04_rb,1.5064e-04_rb,2.1741e-04_rb,2.8178e-04_rb, &
+     &3.3958e-04_rb,3.6475e-04_rb,4.0572e-04_rb/)
+      kao(:, 5, 1, 8) = (/ &
+     &4.5645e-05_rb,1.0085e-04_rb,1.3954e-04_rb,1.9411e-04_rb,2.8393e-04_rb,3.7289e-04_rb, &
+     &4.5784e-04_rb,5.5744e-04_rb,5.3928e-04_rb/)
+      kao(:, 1, 2, 8) = (/ &
+     &1.0540e-04_rb,1.0513e-04_rb,1.0042e-04_rb,9.6258e-05_rb,8.8970e-05_rb,4.3184e-05_rb, &
+     &2.9692e-05_rb,3.3913e-05_rb,8.0284e-05_rb/)
+      kao(:, 2, 2, 8) = (/ &
+     &1.0559e-04_rb,1.0940e-04_rb,1.0770e-04_rb,1.0381e-04_rb,1.0664e-04_rb,1.1502e-04_rb, &
+     &8.1785e-05_rb,5.3525e-05_rb,1.4202e-04_rb/)
+      kao(:, 3, 2, 8) = (/ &
+     &1.0218e-04_rb,1.1568e-04_rb,1.1773e-04_rb,1.2016e-04_rb,1.3039e-04_rb,1.6512e-04_rb, &
+     &1.8884e-04_rb,1.2031e-04_rb,2.0363e-04_rb/)
+      kao(:, 4, 2, 8) = (/ &
+     &9.8487e-05_rb,1.1922e-04_rb,1.3281e-04_rb,1.4606e-04_rb,1.6549e-04_rb,2.1784e-04_rb, &
+     &2.7427e-04_rb,3.0595e-04_rb,2.8029e-04_rb/)
+      kao(:, 5, 2, 8) = (/ &
+     &9.4987e-05_rb,1.2846e-04_rb,1.5591e-04_rb,1.8268e-04_rb,2.1442e-04_rb,2.8547e-04_rb, &
+     &3.6877e-04_rb,4.4657e-04_rb,3.7746e-04_rb/)
+      kao(:, 1, 3, 8) = (/ &
+     &2.7647e-04_rb,2.5246e-04_rb,2.2770e-04_rb,2.0041e-04_rb,1.7472e-04_rb,1.4681e-04_rb, &
+     &4.5677e-05_rb,2.9185e-05_rb,7.9704e-05_rb/)
+      kao(:, 2, 3, 8) = (/ &
+     &2.7846e-04_rb,2.6060e-04_rb,2.3622e-04_rb,2.0968e-04_rb,1.8322e-04_rb,1.5414e-04_rb, &
+     &1.2348e-04_rb,3.8961e-05_rb,1.2336e-04_rb/)
+      kao(:, 3, 3, 8) = (/ &
+     &2.7763e-04_rb,2.6427e-04_rb,2.4553e-04_rb,2.2406e-04_rb,1.9856e-04_rb,1.7101e-04_rb, &
+     &1.5714e-04_rb,1.3645e-04_rb,1.7764e-04_rb/)
+      kao(:, 4, 3, 8) = (/ &
+     &2.7073e-04_rb,2.6684e-04_rb,2.5482e-04_rb,2.3763e-04_rb,2.1876e-04_rb,2.0158e-04_rb, &
+     &1.9981e-04_rb,2.4173e-04_rb,2.4735e-04_rb/)
+      kao(:, 5, 3, 8) = (/ &
+     &2.6027e-04_rb,2.7336e-04_rb,2.6560e-04_rb,2.5755e-04_rb,2.5236e-04_rb,2.4811e-04_rb, &
+     &2.5900e-04_rb,3.3153e-04_rb,3.3717e-04_rb/)
+      kao(:, 1, 4, 8) = (/ &
+     &7.9130e-04_rb,7.0063e-04_rb,6.1298e-04_rb,5.1987e-04_rb,4.2755e-04_rb,3.3326e-04_rb, &
+     &2.3363e-04_rb,3.7051e-05_rb,7.4199e-05_rb/)
+      kao(:, 2, 4, 8) = (/ &
+     &7.5980e-04_rb,6.7845e-04_rb,5.9445e-04_rb,5.1095e-04_rb,4.1981e-04_rb,3.2923e-04_rb, &
+     &2.4168e-04_rb,1.3135e-04_rb,1.1471e-04_rb/)
+      kao(:, 3, 4, 8) = (/ &
+     &7.6644e-04_rb,6.8984e-04_rb,6.0948e-04_rb,5.2391e-04_rb,4.3682e-04_rb,3.5056e-04_rb, &
+     &2.5756e-04_rb,1.6433e-04_rb,1.6687e-04_rb/)
+      kao(:, 4, 4, 8) = (/ &
+     &7.5595e-04_rb,6.9178e-04_rb,6.1629e-04_rb,5.3601e-04_rb,4.5434e-04_rb,3.7215e-04_rb, &
+     &2.8231e-04_rb,1.9566e-04_rb,2.3395e-04_rb/)
+      kao(:, 5, 4, 8) = (/ &
+     &7.4067e-04_rb,6.8825e-04_rb,6.1664e-04_rb,5.5301e-04_rb,4.7442e-04_rb,3.9621e-04_rb, &
+     &3.1512e-04_rb,2.4572e-04_rb,3.2210e-04_rb/)
+      kao(:, 1, 5, 8) = (/ &
+     &2.0703e-03_rb,1.8139e-03_rb,1.5621e-03_rb,1.3106e-03_rb,1.0600e-03_rb,8.0652e-04_rb, &
+     &5.5133e-04_rb,2.9069e-04_rb,6.3670e-05_rb/)
+      kao(:, 2, 5, 8) = (/ &
+     &1.9818e-03_rb,1.7441e-03_rb,1.5082e-03_rb,1.2728e-03_rb,1.0326e-03_rb,7.9434e-04_rb, &
+     &5.4918e-04_rb,2.9978e-04_rb,1.0147e-04_rb/)
+      kao(:, 3, 5, 8) = (/ &
+     &1.9776e-03_rb,1.7438e-03_rb,1.5149e-03_rb,1.2743e-03_rb,1.0380e-03_rb,7.9656e-04_rb, &
+     &5.5670e-04_rb,3.0633e-04_rb,1.5212e-04_rb/)
+      kao(:, 4, 5, 8) = (/ &
+     &1.9765e-03_rb,1.7561e-03_rb,1.5287e-03_rb,1.2973e-03_rb,1.0616e-03_rb,8.2154e-04_rb, &
+     &5.8167e-04_rb,3.3115e-04_rb,2.1510e-04_rb/)
+      kao(:, 5, 5, 8) = (/ &
+     &1.9526e-03_rb,1.7391e-03_rb,1.5270e-03_rb,1.3031e-03_rb,1.0804e-03_rb,8.4755e-04_rb, &
+     &6.0189e-04_rb,3.6102e-04_rb,2.9241e-04_rb/)
+      kao(:, 1, 6, 8) = (/ &
+     &5.2193e-03_rb,4.5684e-03_rb,3.9176e-03_rb,3.2705e-03_rb,2.6232e-03_rb,1.9766e-03_rb, &
+     &1.3309e-03_rb,6.8212e-04_rb,5.1398e-05_rb/)
+      kao(:, 2, 6, 8) = (/ &
+     &5.0808e-03_rb,4.4486e-03_rb,3.8217e-03_rb,3.1970e-03_rb,2.5720e-03_rb,1.9485e-03_rb, &
+     &1.3187e-03_rb,6.8335e-04_rb,8.5267e-05_rb/)
+      kao(:, 3, 6, 8) = (/ &
+     &4.8228e-03_rb,4.2284e-03_rb,3.6430e-03_rb,3.0578e-03_rb,2.4711e-03_rb,1.8742e-03_rb, &
+     &1.2774e-03_rb,6.7264e-04_rb,1.3245e-04_rb/)
+      kao(:, 4, 6, 8) = (/ &
+     &4.8943e-03_rb,4.3003e-03_rb,3.7080e-03_rb,3.1199e-03_rb,2.5213e-03_rb,1.9154e-03_rb, &
+     &1.3062e-03_rb,6.9055e-04_rb,1.9661e-04_rb/)
+      kao(:, 5, 6, 8) = (/ &
+     &4.8824e-03_rb,4.3025e-03_rb,3.7232e-03_rb,3.1333e-03_rb,2.5429e-03_rb,1.9512e-03_rb, &
+     &1.3415e-03_rb,7.2251e-04_rb,2.7802e-04_rb/)
+      kao(:, 1, 7, 8) = (/ &
+     &1.3875e-02_rb,1.2141e-02_rb,1.0408e-02_rb,8.6749e-03_rb,6.9418e-03_rb,5.2118e-03_rb, &
+     &3.4839e-03_rb,1.7560e-03_rb,4.0537e-05_rb/)
+      kao(:, 2, 7, 8) = (/ &
+     &1.3633e-02_rb,1.1931e-02_rb,1.0229e-02_rb,8.5279e-03_rb,6.8346e-03_rb,5.1400e-03_rb, &
+     &3.4444e-03_rb,1.7477e-03_rb,6.8687e-05_rb/)
+      kao(:, 3, 7, 8) = (/ &
+     &1.3328e-02_rb,1.1666e-02_rb,1.0007e-02_rb,8.3587e-03_rb,6.7074e-03_rb,5.0533e-03_rb, &
+     &3.4014e-03_rb,1.7372e-03_rb,1.1189e-04_rb/)
+      kao(:, 4, 7, 8) = (/ &
+     &1.2636e-02_rb,1.1066e-02_rb,9.5081e-03_rb,7.9486e-03_rb,6.3850e-03_rb,4.8258e-03_rb, &
+     &3.2564e-03_rb,1.6750e-03_rb,1.7143e-04_rb/)
+      kao(:, 5, 7, 8) = (/ &
+     &1.2752e-02_rb,1.1174e-02_rb,9.6135e-03_rb,8.0399e-03_rb,6.4759e-03_rb,4.9028e-03_rb, &
+     &3.3183e-03_rb,1.7153e-03_rb,2.5158e-04_rb/)
+      kao(:, 1, 8, 8) = (/ &
+     &4.6547e-02_rb,4.0730e-02_rb,3.4913e-02_rb,2.9095e-02_rb,2.3277e-02_rb,1.7460e-02_rb, &
+     &1.1642e-02_rb,5.8282e-03_rb,3.2784e-05_rb/)
+      kao(:, 2, 8, 8) = (/ &
+     &4.5721e-02_rb,4.0008e-02_rb,3.4294e-02_rb,2.8581e-02_rb,2.2868e-02_rb,1.7154e-02_rb, &
+     &1.1445e-02_rb,5.7448e-03_rb,5.6960e-05_rb/)
+      kao(:, 3, 8, 8) = (/ &
+     &4.4866e-02_rb,3.9261e-02_rb,3.3657e-02_rb,2.8053e-02_rb,2.2449e-02_rb,1.6850e-02_rb, &
+     &1.1263e-02_rb,5.6659e-03_rb,9.3969e-05_rb/)
+      kao(:, 4, 8, 8) = (/ &
+     &4.3949e-02_rb,3.8462e-02_rb,3.2975e-02_rb,2.7489e-02_rb,2.2013e-02_rb,1.6548e-02_rb, &
+     &1.1065e-02_rb,5.5874e-03_rb,1.4907e-04_rb/)
+      kao(:, 5, 8, 8) = (/ &
+     &4.1860e-02_rb,3.6641e-02_rb,3.1420e-02_rb,2.6211e-02_rb,2.1011e-02_rb,1.5788e-02_rb, &
+     &1.0584e-02_rb,5.3726e-03_rb,2.2697e-04_rb/)
+      kao(:, 1, 9, 8) = (/ &
+     &2.9682e-01_rb,2.5971e-01_rb,2.2262e-01_rb,1.8551e-01_rb,1.4841e-01_rb,1.1131e-01_rb, &
+     &7.4208e-02_rb,3.7107e-02_rb,2.8713e-05_rb/)
+      kao(:, 2, 9, 8) = (/ &
+     &2.9173e-01_rb,2.5526e-01_rb,2.1881e-01_rb,1.8234e-01_rb,1.4587e-01_rb,1.0941e-01_rb, &
+     &7.2941e-02_rb,3.6477e-02_rb,5.3026e-05_rb/)
+      kao(:, 3, 9, 8) = (/ &
+     &2.8647e-01_rb,2.5066e-01_rb,2.1486e-01_rb,1.7905e-01_rb,1.4325e-01_rb,1.0744e-01_rb, &
+     &7.1634e-02_rb,3.5829e-02_rb,9.1273e-05_rb/)
+      kao(:, 4, 9, 8) = (/ &
+     &2.8100e-01_rb,2.4588e-01_rb,2.1076e-01_rb,1.7564e-01_rb,1.4052e-01_rb,1.0540e-01_rb, &
+     &7.0282e-02_rb,3.5177e-02_rb,1.4937e-04_rb/)
+      kao(:, 5, 9, 8) = (/ &
+     &2.7385e-01_rb,2.3963e-01_rb,2.0540e-01_rb,1.7118e-01_rb,1.3696e-01_rb,1.0274e-01_rb, &
+     &6.8516e-02_rb,3.4350e-02_rb,2.3011e-04_rb/)
+      kao(:, 1,10, 8) = (/ &
+     &2.2461e+00_rb,1.9654e+00_rb,1.6846e+00_rb,1.4038e+00_rb,1.1231e+00_rb,8.4230e-01_rb, &
+     &5.6154e-01_rb,2.8077e-01_rb,2.2240e-05_rb/)
+      kao(:, 2,10, 8) = (/ &
+     &2.2106e+00_rb,1.9343e+00_rb,1.6579e+00_rb,1.3816e+00_rb,1.1053e+00_rb,8.2897e-01_rb, &
+     &5.5265e-01_rb,2.7633e-01_rb,4.4575e-05_rb/)
+      kao(:, 3,10, 8) = (/ &
+     &2.1737e+00_rb,1.9020e+00_rb,1.6303e+00_rb,1.3586e+00_rb,1.0869e+00_rb,8.1516e-01_rb, &
+     &5.4345e-01_rb,2.7173e-01_rb,8.8587e-05_rb/)
+      kao(:, 4,10, 8) = (/ &
+     &2.1348e+00_rb,1.8680e+00_rb,1.6011e+00_rb,1.3342e+00_rb,1.0674e+00_rb,8.0056e-01_rb, &
+     &5.3373e-01_rb,2.6688e-01_rb,1.5800e-04_rb/)
+      kao(:, 5,10, 8) = (/ &
+     &2.0952e+00_rb,1.8333e+00_rb,1.5714e+00_rb,1.3095e+00_rb,1.0476e+00_rb,7.8572e-01_rb, &
+     &5.2383e-01_rb,2.6194e-01_rb,2.5854e-04_rb/)
+      kao(:, 1,11, 8) = (/ &
+     &5.6263e+00_rb,4.9230e+00_rb,4.2197e+00_rb,3.5164e+00_rb,2.8132e+00_rb,2.1099e+00_rb, &
+     &1.4066e+00_rb,7.0330e-01_rb,2.4215e-05_rb/)
+      kao(:, 2,11, 8) = (/ &
+     &5.5442e+00_rb,4.8512e+00_rb,4.1582e+00_rb,3.4652e+00_rb,2.7721e+00_rb,2.0791e+00_rb, &
+     &1.3861e+00_rb,6.9304e-01_rb,5.0673e-05_rb/)
+      kao(:, 3,11, 8) = (/ &
+     &5.4573e+00_rb,4.7752e+00_rb,4.0930e+00_rb,3.4108e+00_rb,2.7286e+00_rb,2.0465e+00_rb, &
+     &1.3643e+00_rb,6.8218e-01_rb,9.6231e-05_rb/)
+      kao(:, 4,11, 8) = (/ &
+     &5.3719e+00_rb,4.7004e+00_rb,4.0290e+00_rb,3.3575e+00_rb,2.6860e+00_rb,2.0145e+00_rb, &
+     &1.3430e+00_rb,6.7153e-01_rb,1.7007e-04_rb/)
+      kao(:, 5,11, 8) = (/ &
+     &5.2804e+00_rb,4.6204e+00_rb,3.9603e+00_rb,3.3002e+00_rb,2.6402e+00_rb,1.9802e+00_rb, &
+     &1.3201e+00_rb,6.6009e-01_rb,2.7665e-04_rb/)
+      kao(:, 1,12, 8) = (/ &
+     &8.8343e+00_rb,7.7300e+00_rb,6.6256e+00_rb,5.5214e+00_rb,4.4171e+00_rb,3.3128e+00_rb, &
+     &2.2085e+00_rb,1.1043e+00_rb,2.5372e-05_rb/)
+      kao(:, 2,12, 8) = (/ &
+     &8.7174e+00_rb,7.6278e+00_rb,6.5381e+00_rb,5.4484e+00_rb,4.3587e+00_rb,3.2690e+00_rb, &
+     &2.1794e+00_rb,1.0897e+00_rb,5.2642e-05_rb/)
+      kao(:, 3,12, 8) = (/ &
+     &8.5962e+00_rb,7.5216e+00_rb,6.4471e+00_rb,5.3726e+00_rb,4.2981e+00_rb,3.2236e+00_rb, &
+     &2.1490e+00_rb,1.0745e+00_rb,9.9934e-05_rb/)
+      kao(:, 4,12, 8) = (/ &
+     &8.4730e+00_rb,7.4139e+00_rb,6.3547e+00_rb,5.2956e+00_rb,4.2365e+00_rb,3.1774e+00_rb, &
+     &2.1183e+00_rb,1.0591e+00_rb,1.7486e-04_rb/)
+      kao(:, 5,12, 8) = (/ &
+     &8.3427e+00_rb,7.2999e+00_rb,6.2571e+00_rb,5.2142e+00_rb,4.1714e+00_rb,3.1285e+00_rb, &
+     &2.0857e+00_rb,1.0429e+00_rb,2.8225e-04_rb/)
+      kao(:, 1,13, 8) = (/ &
+     &1.1088e+01_rb,9.7019e+00_rb,8.3159e+00_rb,6.9299e+00_rb,5.5439e+00_rb,4.1579e+00_rb, &
+     &2.7720e+00_rb,1.3860e+00_rb,2.2843e-05_rb/)
+      kao(:, 2,13, 8) = (/ &
+     &1.0963e+01_rb,9.5924e+00_rb,8.2220e+00_rb,6.8518e+00_rb,5.4814e+00_rb,4.1110e+00_rb, &
+     &2.7407e+00_rb,1.3703e+00_rb,4.7912e-05_rb/)
+      kao(:, 3,13, 8) = (/ &
+     &1.0836e+01_rb,9.4815e+00_rb,8.1269e+00_rb,6.7725e+00_rb,5.4179e+00_rb,4.0635e+00_rb, &
+     &2.7090e+00_rb,1.3545e+00_rb,9.1850e-05_rb/)
+      kao(:, 4,13, 8) = (/ &
+     &1.0705e+01_rb,9.3666e+00_rb,8.0284e+00_rb,6.6904e+00_rb,5.3523e+00_rb,4.0142e+00_rb, &
+     &2.6761e+00_rb,1.3381e+00_rb,1.6522e-04_rb/)
+      kao(:, 5,13, 8) = (/ &
+     &1.0568e+01_rb,9.2475e+00_rb,7.9263e+00_rb,6.6053e+00_rb,5.2842e+00_rb,3.9632e+00_rb, &
+     &2.6421e+00_rb,1.3211e+00_rb,2.8269e-04_rb/)
+      kao(:, 1, 1, 9) = (/ &
+     &6.2917e-05_rb,8.4558e-05_rb,1.3686e-04_rb,1.9740e-04_rb,2.4967e-04_rb,2.7515e-04_rb, &
+     &1.6338e-04_rb,4.8223e-05_rb,4.6728e-04_rb/)
+      kao(:, 2, 1, 9) = (/ &
+     &5.3089e-05_rb,9.0420e-05_rb,1.8251e-04_rb,2.7670e-04_rb,3.5886e-04_rb,4.3834e-04_rb, &
+     &4.9477e-04_rb,2.3929e-04_rb,6.8730e-04_rb/)
+      kao(:, 3, 1, 9) = (/ &
+     &4.3039e-05_rb,1.0946e-04_rb,2.4429e-04_rb,3.7961e-04_rb,4.9689e-04_rb,6.1288e-04_rb, &
+     &7.2274e-04_rb,7.7240e-04_rb,9.6431e-04_rb/)
+      kao(:, 4, 1, 9) = (/ &
+     &3.4069e-05_rb,1.3830e-04_rb,3.2177e-04_rb,5.0878e-04_rb,6.6994e-04_rb,8.2945e-04_rb, &
+     &9.8413e-04_rb,1.1125e-03_rb,1.3109e-03_rb/)
+      kao(:, 5, 1, 9) = (/ &
+     &3.0399e-05_rb,1.7548e-04_rb,4.1760e-04_rb,6.6731e-04_rb,8.8167e-04_rb,1.0941e-03_rb, &
+     &1.3015e-03_rb,1.4854e-03_rb,1.7348e-03_rb/)
+      kao(:, 1, 2, 9) = (/ &
+     &1.1900e-04_rb,1.2836e-04_rb,1.4231e-04_rb,1.8014e-04_rb,2.2526e-04_rb,2.6329e-04_rb, &
+     &2.2981e-04_rb,4.7447e-05_rb,3.9923e-04_rb/)
+      kao(:, 2, 2, 9) = (/ &
+     &1.1384e-04_rb,1.2703e-04_rb,1.6170e-04_rb,2.3947e-04_rb,3.1945e-04_rb,3.8888e-04_rb, &
+     &4.4936e-04_rb,3.6063e-04_rb,5.9020e-04_rb/)
+      kao(:, 3, 2, 9) = (/ &
+     &9.6344e-05_rb,1.3540e-04_rb,2.0202e-04_rb,3.2063e-04_rb,4.4367e-04_rb,5.4566e-04_rb, &
+     &6.4489e-04_rb,7.2550e-04_rb,8.3580e-04_rb/)
+      kao(:, 4, 2, 9) = (/ &
+     &7.7835e-05_rb,1.6099e-04_rb,2.5994e-04_rb,4.2610e-04_rb,6.0189e-04_rb,7.4414e-04_rb, &
+     &8.8531e-04_rb,1.0210e-03_rb,1.1481e-03_rb/)
+      kao(:, 5, 2, 9) = (/ &
+     &6.0959e-05_rb,1.9625e-04_rb,3.3515e-04_rb,5.6029e-04_rb,7.9618e-04_rb,9.9092e-04_rb, &
+     &1.1822e-03_rb,1.3661e-03_rb,1.5393e-03_rb/)
+      kao(:, 1, 3, 9) = (/ &
+     &3.4384e-04_rb,3.1901e-04_rb,2.9656e-04_rb,2.7161e-04_rb,2.4956e-04_rb,2.4575e-04_rb, &
+     &2.4892e-04_rb,1.2874e-04_rb,2.5500e-04_rb/)
+      kao(:, 2, 3, 9) = (/ &
+     &3.2651e-04_rb,2.9987e-04_rb,2.8407e-04_rb,2.6822e-04_rb,2.8382e-04_rb,3.2698e-04_rb, &
+     &3.7690e-04_rb,3.8984e-04_rb,3.8097e-04_rb/)
+      kao(:, 3, 3, 9) = (/ &
+     &3.1133e-04_rb,2.9825e-04_rb,2.8892e-04_rb,2.8983e-04_rb,3.4857e-04_rb,4.4151e-04_rb, &
+     &5.3596e-04_rb,6.0662e-04_rb,5.5422e-04_rb/)
+      kao(:, 4, 3, 9) = (/ &
+     &2.6650e-04_rb,2.9032e-04_rb,3.1626e-04_rb,3.4521e-04_rb,4.5449e-04_rb,5.9386e-04_rb, &
+     &7.4052e-04_rb,8.5104e-04_rb,7.8265e-04_rb/)
+      kao(:, 5, 3, 9) = (/ &
+     &2.2412e-04_rb,2.9039e-04_rb,3.7283e-04_rb,4.3223e-04_rb,5.9364e-04_rb,7.9041e-04_rb, &
+     &9.9696e-04_rb,1.1553e-03_rb,1.0705e-03_rb/)
+      kao(:, 1, 4, 9) = (/ &
+     &1.0105e-03_rb,8.9198e-04_rb,7.7732e-04_rb,6.6567e-04_rb,5.5452e-04_rb,4.4086e-04_rb, &
+     &3.2869e-04_rb,1.9418e-04_rb,1.7212e-04_rb/)
+      kao(:, 2, 4, 9) = (/ &
+     &9.2169e-04_rb,8.2421e-04_rb,7.2924e-04_rb,6.3857e-04_rb,5.4763e-04_rb,4.5198e-04_rb, &
+     &3.7244e-04_rb,3.3779e-04_rb,2.7365e-04_rb/)
+      kao(:, 3, 4, 9) = (/ &
+     &9.1340e-04_rb,8.1831e-04_rb,7.2882e-04_rb,6.3523e-04_rb,5.3088e-04_rb,4.5658e-04_rb, &
+     &4.4489e-04_rb,4.8577e-04_rb,4.2302e-04_rb/)
+      kao(:, 4, 4, 9) = (/ &
+     &8.9251e-04_rb,8.0269e-04_rb,7.3471e-04_rb,6.4402e-04_rb,5.5905e-04_rb,5.1386e-04_rb, &
+     &5.6577e-04_rb,6.8086e-04_rb,6.2344e-04_rb/)
+      kao(:, 5, 4, 9) = (/ &
+     &7.9475e-04_rb,7.3797e-04_rb,7.1362e-04_rb,6.7001e-04_rb,6.3957e-04_rb,6.1730e-04_rb, &
+     &7.4587e-04_rb,9.2826e-04_rb,8.7756e-04_rb/)
+      kao(:, 1, 5, 9) = (/ &
+     &2.6935e-03_rb,2.3593e-03_rb,2.0323e-03_rb,1.7047e-03_rb,1.3798e-03_rb,1.0522e-03_rb, &
+     &7.2780e-04_rb,3.9954e-04_rb,1.6653e-04_rb/)
+      kao(:, 2, 5, 9) = (/ &
+     &2.6191e-03_rb,2.2983e-03_rb,1.9871e-03_rb,1.6780e-03_rb,1.3636e-03_rb,1.0535e-03_rb, &
+     &7.4346e-04_rb,4.3038e-04_rb,2.6682e-04_rb/)
+      kao(:, 3, 5, 9) = (/ &
+     &2.3650e-03_rb,2.0866e-03_rb,1.8132e-03_rb,1.5443e-03_rb,1.2810e-03_rb,1.0093e-03_rb, &
+     &7.2606e-04_rb,4.8378e-04_rb,4.1282e-04_rb/)
+      kao(:, 4, 5, 9) = (/ &
+     &2.4014e-03_rb,2.1168e-03_rb,1.8401e-03_rb,1.5793e-03_rb,1.3157e-03_rb,1.0190e-03_rb, &
+     &7.3809e-04_rb,5.7085e-04_rb,6.1502e-04_rb/)
+      kao(:, 5, 5, 9) = (/ &
+     &2.3689e-03_rb,2.1027e-03_rb,1.8524e-03_rb,1.6218e-03_rb,1.3262e-03_rb,1.0531e-03_rb, &
+     &8.0904e-04_rb,7.1684e-04_rb,8.8985e-04_rb/)
+      kao(:, 1, 6, 9) = (/ &
+     &6.9308e-03_rb,6.0665e-03_rb,5.2022e-03_rb,4.3390e-03_rb,3.4845e-03_rb,2.6255e-03_rb, &
+     &1.7705e-03_rb,9.1297e-04_rb,1.4507e-04_rb/)
+      kao(:, 2, 6, 9) = (/ &
+     &6.7707e-03_rb,5.9271e-03_rb,5.0849e-03_rb,4.2542e-03_rb,3.4202e-03_rb,2.5899e-03_rb, &
+     &1.7563e-03_rb,9.2722e-04_rb,2.4197e-04_rb/)
+      kao(:, 3, 6, 9) = (/ &
+     &6.6111e-03_rb,5.7877e-03_rb,4.9821e-03_rb,4.1734e-03_rb,3.3664e-03_rb,2.5641e-03_rb, &
+     &1.7626e-03_rb,9.4198e-04_rb,3.8026e-04_rb/)
+      kao(:, 4, 6, 9) = (/ &
+     &6.0438e-03_rb,5.3003e-03_rb,4.5745e-03_rb,3.8441e-03_rb,3.1111e-03_rb,2.3922e-03_rb, &
+     &1.6672e-03_rb,9.3430e-04_rb,5.5692e-04_rb/)
+      kao(:, 5, 6, 9) = (/ &
+     &6.1335e-03_rb,5.3879e-03_rb,4.6501e-03_rb,3.9141e-03_rb,3.1883e-03_rb,2.4602e-03_rb, &
+     &1.7143e-03_rb,9.6080e-04_rb,7.9260e-04_rb/)
+      kao(:, 1, 7, 9) = (/ &
+     &1.9047e-02_rb,1.6668e-02_rb,1.4288e-02_rb,1.1909e-02_rb,9.5299e-03_rb,7.1507e-03_rb, &
+     &4.7825e-03_rb,2.4097e-03_rb,1.1330e-04_rb/)
+      kao(:, 2, 7, 9) = (/ &
+     &1.8614e-02_rb,1.6290e-02_rb,1.3965e-02_rb,1.1641e-02_rb,9.3171e-03_rb,7.0086e-03_rb, &
+     &4.6932e-03_rb,2.3827e-03_rb,1.9275e-04_rb/)
+      kao(:, 3, 7, 9) = (/ &
+     &1.8191e-02_rb,1.5921e-02_rb,1.3650e-02_rb,1.1382e-02_rb,9.1322e-03_rb,6.8769e-03_rb, &
+     &4.6246e-03_rb,2.3704e-03_rb,3.0881e-04_rb/)
+      kao(:, 4, 7, 9) = (/ &
+     &1.7657e-02_rb,1.5455e-02_rb,1.3252e-02_rb,1.1078e-02_rb,8.8961e-03_rb,6.7169e-03_rb, &
+     &4.5330e-03_rb,2.3676e-03_rb,4.7256e-04_rb/)
+      kao(:, 5, 7, 9) = (/ &
+     &1.6605e-02_rb,1.4537e-02_rb,1.2495e-02_rb,1.0448e-02_rb,8.3949e-03_rb,6.3348e-03_rb, &
+     &4.3112e-03_rb,2.2623e-03_rb,7.0061e-04_rb/)
+      kao(:, 1, 8, 9) = (/ &
+     &6.6522e-02_rb,5.8208e-02_rb,4.9894e-02_rb,4.1580e-02_rb,3.3266e-02_rb,2.4952e-02_rb, &
+     &1.6638e-02_rb,8.3237e-03_rb,8.8556e-05_rb/)
+      kao(:, 2, 8, 9) = (/ &
+     &6.5331e-02_rb,5.7166e-02_rb,4.9002e-02_rb,4.0837e-02_rb,3.2672e-02_rb,2.4508e-02_rb, &
+     &1.6344e-02_rb,8.1975e-03_rb,1.5988e-04_rb/)
+      kao(:, 3, 8, 9) = (/ &
+     &6.4113e-02_rb,5.6102e-02_rb,4.8090e-02_rb,4.0078e-02_rb,3.2067e-02_rb,2.4056e-02_rb, &
+     &1.6062e-02_rb,8.0735e-03_rb,2.6393e-04_rb/)
+      kao(:, 4, 8, 9) = (/ &
+     &6.2675e-02_rb,5.4844e-02_rb,4.7014e-02_rb,3.9184e-02_rb,3.1353e-02_rb,2.3542e-02_rb, &
+     &1.5747e-02_rb,7.9493e-03_rb,4.0578e-04_rb/)
+      kao(:, 5, 8, 9) = (/ &
+     &6.0829e-02_rb,5.3229e-02_rb,4.5632e-02_rb,3.8033e-02_rb,3.0464e-02_rb,2.2925e-02_rb, &
+     &1.5354e-02_rb,7.7739e-03_rb,6.0582e-04_rb/)
+      kao(:, 1, 9, 9) = (/ &
+     &4.4562e-01_rb,3.8992e-01_rb,3.3422e-01_rb,2.7852e-01_rb,2.2281e-01_rb,1.6711e-01_rb, &
+     &1.1141e-01_rb,5.5708e-02_rb,6.4708e-05_rb/)
+      kao(:, 2, 9, 9) = (/ &
+     &4.3840e-01_rb,3.8360e-01_rb,3.2881e-01_rb,2.7401e-01_rb,2.1921e-01_rb,1.6441e-01_rb, &
+     &1.0961e-01_rb,5.4811e-02_rb,1.2246e-04_rb/)
+      kao(:, 3, 9, 9) = (/ &
+     &4.3101e-01_rb,3.7714e-01_rb,3.2326e-01_rb,2.6939e-01_rb,2.1551e-01_rb,1.6164e-01_rb, &
+     &1.0777e-01_rb,5.3892e-02_rb,2.1404e-04_rb/)
+      kao(:, 4, 9, 9) = (/ &
+     &4.2341e-01_rb,3.7048e-01_rb,3.1756e-01_rb,2.6464e-01_rb,2.1171e-01_rb,1.5879e-01_rb, &
+     &1.0587e-01_rb,5.2950e-02_rb,3.4919e-04_rb/)
+      kao(:, 5, 9, 9) = (/ &
+     &4.1490e-01_rb,3.6305e-01_rb,3.1119e-01_rb,2.5933e-01_rb,2.0748e-01_rb,1.5561e-01_rb, &
+     &1.0376e-01_rb,5.1933e-02_rb,5.3978e-04_rb/)
+      kao(:, 1,10, 9) = (/ &
+     &3.5739e+00_rb,3.1272e+00_rb,2.6804e+00_rb,2.2337e+00_rb,1.7870e+00_rb,1.3402e+00_rb, &
+     &8.9349e-01_rb,4.4675e-01_rb,3.6923e-05_rb/)
+      kao(:, 2,10, 9) = (/ &
+     &3.5173e+00_rb,3.0777e+00_rb,2.6381e+00_rb,2.1983e+00_rb,1.7587e+00_rb,1.3190e+00_rb, &
+     &8.7936e-01_rb,4.3968e-01_rb,7.4734e-05_rb/)
+      kao(:, 3,10, 9) = (/ &
+     &3.4601e+00_rb,3.0276e+00_rb,2.5951e+00_rb,2.1626e+00_rb,1.7301e+00_rb,1.2976e+00_rb, &
+     &8.6506e-01_rb,4.3253e-01_rb,1.2645e-04_rb/)
+      kao(:, 4,10, 9) = (/ &
+     &3.4013e+00_rb,2.9762e+00_rb,2.5510e+00_rb,2.1258e+00_rb,1.7007e+00_rb,1.2755e+00_rb, &
+     &8.5034e-01_rb,4.2518e-01_rb,2.0434e-04_rb/)
+      kao(:, 5,10, 9) = (/ &
+     &3.3408e+00_rb,2.9231e+00_rb,2.5056e+00_rb,2.0880e+00_rb,1.6704e+00_rb,1.2528e+00_rb, &
+     &8.3521e-01_rb,4.1763e-01_rb,3.0930e-04_rb/)
+      kao(:, 1,11, 9) = (/ &
+     &9.5423e+00_rb,8.3495e+00_rb,7.1567e+00_rb,5.9639e+00_rb,4.7712e+00_rb,3.5784e+00_rb, &
+     &2.3856e+00_rb,1.1928e+00_rb,3.3494e-05_rb/)
+      kao(:, 2,11, 9) = (/ &
+     &9.3929e+00_rb,8.2188e+00_rb,7.0447e+00_rb,5.8706e+00_rb,4.6965e+00_rb,3.5224e+00_rb, &
+     &2.3483e+00_rb,1.1741e+00_rb,6.4875e-05_rb/)
+      kao(:, 3,11, 9) = (/ &
+     &9.2404e+00_rb,8.0853e+00_rb,6.9303e+00_rb,5.7752e+00_rb,4.6202e+00_rb,3.4651e+00_rb, &
+     &2.3101e+00_rb,1.1551e+00_rb,1.1378e-04_rb/)
+      kao(:, 4,11, 9) = (/ &
+     &9.0863e+00_rb,7.9506e+00_rb,6.8148e+00_rb,5.6790e+00_rb,4.5432e+00_rb,3.4074e+00_rb, &
+     &2.2716e+00_rb,1.1358e+00_rb,1.8195e-04_rb/)
+      kao(:, 5,11, 9) = (/ &
+     &8.9334e+00_rb,7.8167e+00_rb,6.7001e+00_rb,5.5834e+00_rb,4.4668e+00_rb,3.3501e+00_rb, &
+     &2.2334e+00_rb,1.1167e+00_rb,2.6874e-04_rb/)
+      kao(:, 1,12, 9) = (/ &
+     &1.6018e+01_rb,1.4016e+01_rb,1.2013e+01_rb,1.0011e+01_rb,8.0089e+00_rb,6.0065e+00_rb, &
+     &4.0043e+00_rb,2.0022e+00_rb,3.3227e-05_rb/)
+      kao(:, 2,12, 9) = (/ &
+     &1.5778e+01_rb,1.3806e+01_rb,1.1834e+01_rb,9.8614e+00_rb,7.8892e+00_rb,5.9169e+00_rb, &
+     &3.9446e+00_rb,1.9723e+00_rb,6.4843e-05_rb/)
+      kao(:, 3,12, 9) = (/ &
+     &1.5536e+01_rb,1.3594e+01_rb,1.1652e+01_rb,9.7100e+00_rb,7.7679e+00_rb,5.8260e+00_rb, &
+     &3.8840e+00_rb,1.9420e+00_rb,1.1290e-04_rb/)
+      kao(:, 4,12, 9) = (/ &
+     &1.5292e+01_rb,1.3380e+01_rb,1.1469e+01_rb,9.5575e+00_rb,7.6460e+00_rb,5.7344e+00_rb, &
+     &3.8230e+00_rb,1.9115e+00_rb,1.7636e-04_rb/)
+      kao(:, 5,12, 9) = (/ &
+     &1.5044e+01_rb,1.3163e+01_rb,1.1283e+01_rb,9.4022e+00_rb,7.5218e+00_rb,5.6414e+00_rb, &
+     &3.7609e+00_rb,1.8805e+00_rb,2.6723e-04_rb/)
+      kao(:, 1,13, 9) = (/ &
+     &2.1597e+01_rb,1.8897e+01_rb,1.6197e+01_rb,1.3498e+01_rb,1.0798e+01_rb,8.0986e+00_rb, &
+     &5.3991e+00_rb,2.6995e+00_rb,3.8904e-05_rb/)
+      kao(:, 2,13, 9) = (/ &
+     &2.1295e+01_rb,1.8633e+01_rb,1.5971e+01_rb,1.3309e+01_rb,1.0647e+01_rb,7.9855e+00_rb, &
+     &5.3237e+00_rb,2.6618e+00_rb,7.5857e-05_rb/)
+      kao(:, 3,13, 9) = (/ &
+     &2.0989e+01_rb,1.8366e+01_rb,1.5742e+01_rb,1.3118e+01_rb,1.0494e+01_rb,7.8710e+00_rb, &
+     &5.2472e+00_rb,2.6236e+00_rb,1.3015e-04_rb/)
+      kao(:, 4,13, 9) = (/ &
+     &2.0668e+01_rb,1.8085e+01_rb,1.5501e+01_rb,1.2918e+01_rb,1.0334e+01_rb,7.7506e+00_rb, &
+     &5.1670e+00_rb,2.5835e+00_rb,2.0228e-04_rb/)
+      kao(:, 5,13, 9) = (/ &
+     &2.0333e+01_rb,1.7791e+01_rb,1.5249e+01_rb,1.2708e+01_rb,1.0166e+01_rb,7.6247e+00_rb, &
+     &5.0831e+00_rb,2.5416e+00_rb,2.9840e-04_rb/)
+      kao(:, 1, 1,10) = (/ &
+     &5.6592e-05_rb,1.3380e-04_rb,2.8259e-04_rb,4.0725e-04_rb,5.2722e-04_rb,6.3771e-04_rb, &
+     &7.3618e-04_rb,6.8809e-05_rb,1.0230e-03_rb/)
+      kao(:, 2, 1,10) = (/ &
+     &3.4000e-05_rb,1.7762e-04_rb,3.9282e-04_rb,5.7189e-04_rb,7.4744e-04_rb,9.1578e-04_rb, &
+     &1.0739e-03_rb,1.1530e-03_rb,1.4652e-03_rb/)
+      kao(:, 3, 1,10) = (/ &
+     &3.1822e-05_rb,2.4313e-04_rb,5.2738e-04_rb,7.7595e-04_rb,1.0231e-03_rb,1.2640e-03_rb, &
+     &1.5000e-03_rb,1.6967e-03_rb,2.0181e-03_rb/)
+      kao(:, 4, 1,10) = (/ &
+     &3.1887e-05_rb,3.1730e-04_rb,7.0142e-04_rb,1.0376e-03_rb,1.3716e-03_rb,1.7032e-03_rb, &
+     &2.0256e-03_rb,2.3355e-03_rb,2.7159e-03_rb/)
+      kao(:, 5, 1,10) = (/ &
+     &3.2974e-05_rb,4.0500e-04_rb,9.2096e-04_rb,1.3701e-03_rb,1.8162e-03_rb,2.2594e-03_rb, &
+     &2.6867e-03_rb,3.0973e-03_rb,3.6043e-03_rb/)
+      kao(:, 1, 2,10) = (/ &
+     &1.2846e-04_rb,1.5522e-04_rb,2.7655e-04_rb,3.8379e-04_rb,4.9079e-04_rb,5.9529e-04_rb, &
+     &6.9141e-04_rb,5.6796e-04_rb,9.2767e-04_rb/)
+      kao(:, 2, 2,10) = (/ &
+     &6.5990e-05_rb,1.6552e-04_rb,3.7419e-04_rb,5.3648e-04_rb,6.9689e-04_rb,8.5375e-04_rb, &
+     &1.0031e-03_rb,1.1095e-03_rb,1.3393e-03_rb/)
+      kao(:, 3, 2,10) = (/ &
+     &5.6435e-05_rb,1.5534e-04_rb,5.0363e-04_rb,7.3034e-04_rb,9.5369e-04_rb,1.1711e-03_rb, &
+     &1.3827e-03_rb,1.5608e-03_rb,1.8461e-03_rb/)
+      kao(:, 4, 2,10) = (/ &
+     &5.4174e-05_rb,1.7810e-04_rb,6.6905e-04_rb,9.7686e-04_rb,1.2783e-03_rb,1.5737e-03_rb, &
+     &1.8611e-03_rb,2.1178e-03_rb,2.4942e-03_rb/)
+      kao(:, 5, 2,10) = (/ &
+     &5.2370e-05_rb,1.9597e-04_rb,8.6044e-04_rb,1.2706e-03_rb,1.6729e-03_rb,2.0703e-03_rb, &
+     &2.4603e-03_rb,2.8342e-03_rb,3.2918e-03_rb/)
+      kao(:, 1, 3,10) = (/ &
+     &4.4469e-04_rb,4.0346e-04_rb,3.7124e-04_rb,3.9072e-04_rb,4.6265e-04_rb,5.3518e-04_rb, &
+     &6.0670e-04_rb,6.5723e-04_rb,7.6901e-04_rb/)
+      kao(:, 2, 3,10) = (/ &
+     &2.7821e-04_rb,2.8769e-04_rb,3.4636e-04_rb,4.5772e-04_rb,6.3733e-04_rb,7.5575e-04_rb, &
+     &8.7290e-04_rb,9.7779e-04_rb,1.1248e-03_rb/)
+      kao(:, 3, 3,10) = (/ &
+     &1.6712e-04_rb,2.0135e-04_rb,3.1664e-04_rb,6.0259e-04_rb,8.6177e-04_rb,1.0373e-03_rb, &
+     &1.2106e-03_rb,1.3752e-03_rb,1.5723e-03_rb/)
+      kao(:, 4, 3,10) = (/ &
+     &1.5303e-04_rb,2.3452e-04_rb,3.6629e-04_rb,7.9270e-04_rb,1.1535e-03_rb,1.4036e-03_rb, &
+     &1.6498e-03_rb,1.8820e-03_rb,2.1596e-03_rb/)
+      kao(:, 5, 3,10) = (/ &
+     &1.4546e-04_rb,2.9515e-04_rb,4.4927e-04_rb,1.0579e-03_rb,1.5163e-03_rb,1.8612e-03_rb, &
+     &2.1985e-03_rb,2.5140e-03_rb,2.9016e-03_rb/)
+      kao(:, 1, 4,10) = (/ &
+     &1.2138e-03_rb,1.0643e-03_rb,9.4070e-04_rb,8.1504e-04_rb,7.0358e-04_rb,5.9316e-04_rb, &
+     &5.5104e-04_rb,5.6438e-04_rb,3.2078e-04_rb/)
+      kao(:, 2, 4,10) = (/ &
+     &1.1514e-03_rb,1.0125e-03_rb,9.4071e-04_rb,8.3600e-04_rb,7.4220e-04_rb,6.5907e-04_rb, &
+     &7.7143e-04_rb,8.3267e-04_rb,4.7891e-04_rb/)
+      kao(:, 3, 4,10) = (/ &
+     &8.3276e-04_rb,7.0376e-04_rb,7.1208e-04_rb,6.8052e-04_rb,7.6194e-04_rb,8.9019e-04_rb, &
+     &1.0682e-03_rb,1.1778e-03_rb,6.1825e-04_rb/)
+      kao(:, 4, 4,10) = (/ &
+     &6.2678e-04_rb,5.3178e-04_rb,5.1712e-04_rb,6.2090e-04_rb,7.5690e-04_rb,1.1872e-03_rb, &
+     &1.4563e-03_rb,1.6302e-03_rb,8.5537e-04_rb/)
+      kao(:, 5, 4,10) = (/ &
+     &4.2987e-04_rb,5.2033e-04_rb,6.3756e-04_rb,7.6564e-04_rb,7.8218e-04_rb,1.6224e-03_rb, &
+     &1.9482e-03_rb,2.2056e-03_rb,1.2455e-03_rb/)
+      kao(:, 1, 5,10) = (/ &
+     &3.3420e-03_rb,2.9247e-03_rb,2.5126e-03_rb,2.0946e-03_rb,1.6924e-03_rb,1.3030e-03_rb, &
+     &9.3410e-04_rb,5.8986e-04_rb,3.1969e-04_rb/)
+      kao(:, 2, 5,10) = (/ &
+     &3.1398e-03_rb,2.7488e-03_rb,2.3818e-03_rb,2.0259e-03_rb,1.6962e-03_rb,1.3524e-03_rb, &
+     &9.7217e-04_rb,7.2894e-04_rb,5.2320e-04_rb/)
+      kao(:, 3, 5,10) = (/ &
+     &3.0330e-03_rb,2.6759e-03_rb,2.3370e-03_rb,2.0014e-03_rb,1.6490e-03_rb,1.4032e-03_rb, &
+     &1.0593e-03_rb,1.0067e-03_rb,7.5418e-04_rb/)
+      kao(:, 4, 5,10) = (/ &
+     &2.5775e-03_rb,2.3167e-03_rb,2.0477e-03_rb,1.6916e-03_rb,1.3663e-03_rb,1.1599e-03_rb, &
+     &1.0841e-03_rb,1.3957e-03_rb,9.6520e-04_rb/)
+      kao(:, 5, 5,10) = (/ &
+     &2.1866e-03_rb,2.0017e-03_rb,1.5507e-03_rb,1.2425e-03_rb,1.2248e-03_rb,1.1086e-03_rb, &
+     &1.2483e-03_rb,1.9173e-03_rb,1.1788e-03_rb/)
+      kao(:, 1, 6,10) = (/ &
+     &8.8838e-03_rb,7.7745e-03_rb,6.6646e-03_rb,5.5555e-03_rb,4.4614e-03_rb,3.3623e-03_rb, &
+     &2.2796e-03_rb,1.1799e-03_rb,1.7827e-04_rb/)
+      kao(:, 2, 6,10) = (/ &
+     &8.6572e-03_rb,7.5770e-03_rb,6.4955e-03_rb,5.4321e-03_rb,4.3605e-03_rb,3.3104e-03_rb, &
+     &2.2427e-03_rb,1.2382e-03_rb,2.5800e-04_rb/)
+      kao(:, 3, 6,10) = (/ &
+     &8.3335e-03_rb,7.2931e-03_rb,6.2759e-03_rb,5.2475e-03_rb,4.2339e-03_rb,3.2059e-03_rb, &
+     &2.2047e-03_rb,1.3240e-03_rb,4.2156e-04_rb/)
+      kao(:, 4, 6,10) = (/ &
+     &7.5549e-03_rb,6.6060e-03_rb,5.7369e-03_rb,4.8380e-03_rb,4.0096e-03_rb,3.1204e-03_rb, &
+     &2.3001e-03_rb,1.3603e-03_rb,7.8178e-04_rb/)
+      kao(:, 5, 6,10) = (/ &
+     &6.8684e-03_rb,6.0886e-03_rb,5.1989e-03_rb,4.4067e-03_rb,3.6681e-03_rb,2.8099e-03_rb, &
+     &1.8970e-03_rb,1.4204e-03_rb,1.3480e-03_rb/)
+      kao(:, 1, 7,10) = (/ &
+     &2.4586e-02_rb,2.1513e-02_rb,1.8440e-02_rb,1.5369e-02_rb,1.2296e-02_rb,9.2230e-03_rb, &
+     &6.1633e-03_rb,3.1137e-03_rb,1.3933e-04_rb/)
+      kao(:, 2, 7,10) = (/ &
+     &2.4170e-02_rb,2.1150e-02_rb,1.8129e-02_rb,1.5109e-02_rb,1.2088e-02_rb,9.0886e-03_rb, &
+     &6.0878e-03_rb,3.1114e-03_rb,2.3190e-04_rb/)
+      kao(:, 3, 7,10) = (/ &
+     &2.3662e-02_rb,2.0705e-02_rb,1.7748e-02_rb,1.4791e-02_rb,1.1861e-02_rb,8.9271e-03_rb, &
+     &6.0215e-03_rb,3.0844e-03_rb,3.6298e-04_rb/)
+      kao(:, 4, 7,10) = (/ &
+     &2.2469e-02_rb,1.9660e-02_rb,1.6853e-02_rb,1.4086e-02_rb,1.1306e-02_rb,8.5420e-03_rb, &
+     &5.7631e-03_rb,3.0626e-03_rb,5.4029e-04_rb/)
+      kao(:, 5, 7,10) = (/ &
+     &1.9809e-02_rb,1.7349e-02_rb,1.4886e-02_rb,1.2460e-02_rb,1.0092e-02_rb,7.8522e-03_rb, &
+     &5.3378e-03_rb,3.0999e-03_rb,7.7423e-04_rb/)
+      kao(:, 1, 8,10) = (/ &
+     &8.6508e-02_rb,7.5696e-02_rb,6.4882e-02_rb,5.4068e-02_rb,4.3255e-02_rb,3.2443e-02_rb, &
+     &2.1630e-02_rb,1.0817e-02_rb,1.6191e-04_rb/)
+      kao(:, 2, 8,10) = (/ &
+     &8.4528e-02_rb,7.3960e-02_rb,6.3397e-02_rb,5.2832e-02_rb,4.2266e-02_rb,3.1701e-02_rb, &
+     &2.1136e-02_rb,1.0597e-02_rb,3.0221e-04_rb/)
+      kao(:, 3, 8,10) = (/ &
+     &8.2999e-02_rb,7.2627e-02_rb,6.2253e-02_rb,5.1878e-02_rb,4.1506e-02_rb,3.1132e-02_rb, &
+     &2.0757e-02_rb,1.0444e-02_rb,5.5391e-04_rb/)
+      kao(:, 4, 8,10) = (/ &
+     &8.1486e-02_rb,7.1301e-02_rb,6.1120e-02_rb,5.0928e-02_rb,4.0746e-02_rb,3.0564e-02_rb, &
+     &2.0452e-02_rb,1.0346e-02_rb,1.0152e-03_rb/)
+      kao(:, 5, 8,10) = (/ &
+     &7.7129e-02_rb,6.7490e-02_rb,5.7855e-02_rb,4.8214e-02_rb,3.8581e-02_rb,2.9014e-02_rb, &
+     &1.9443e-02_rb,9.9515e-03_rb,1.5121e-03_rb/)
+      kao(:, 1, 9,10) = (/ &
+     &5.8674e-01_rb,5.1340e-01_rb,4.4007e-01_rb,3.6671e-01_rb,2.9337e-01_rb,2.2003e-01_rb, &
+     &1.4669e-01_rb,7.3347e-02_rb,1.3954e-04_rb/)
+      kao(:, 2, 9,10) = (/ &
+     &5.7350e-01_rb,5.0184e-01_rb,4.3015e-01_rb,3.5845e-01_rb,2.8676e-01_rb,2.1507e-01_rb, &
+     &1.4339e-01_rb,7.1694e-02_rb,3.0044e-04_rb/)
+      kao(:, 3, 9,10) = (/ &
+     &5.6021e-01_rb,4.9017e-01_rb,4.2014e-01_rb,3.5012e-01_rb,2.8010e-01_rb,2.1008e-01_rb, &
+     &1.4005e-01_rb,7.0031e-02_rb,5.5636e-04_rb/)
+      kao(:, 4, 9,10) = (/ &
+     &5.4802e-01_rb,4.7953e-01_rb,4.1105e-01_rb,3.4251e-01_rb,2.7403e-01_rb,2.0552e-01_rb, &
+     &1.3702e-01_rb,6.8512e-02_rb,9.3561e-04_rb/)
+      kao(:, 5, 9,10) = (/ &
+     &5.3709e-01_rb,4.6991e-01_rb,4.0280e-01_rb,3.3568e-01_rb,2.6852e-01_rb,2.0142e-01_rb, &
+     &1.3428e-01_rb,6.7143e-02_rb,1.4485e-03_rb/)
+      kao(:, 1,10,10) = (/ &
+     &4.7861e+00_rb,4.1878e+00_rb,3.5896e+00_rb,2.9913e+00_rb,2.3930e+00_rb,1.7948e+00_rb, &
+     &1.1965e+00_rb,5.9827e-01_rb,3.2704e-06_rb/)
+      kao(:, 2,10,10) = (/ &
+     &4.6903e+00_rb,4.1040e+00_rb,3.5178e+00_rb,2.9315e+00_rb,2.3452e+00_rb,1.7589e+00_rb, &
+     &1.1726e+00_rb,5.8632e-01_rb,5.9185e-06_rb/)
+      kao(:, 3,10,10) = (/ &
+     &4.5984e+00_rb,4.0237e+00_rb,3.4487e+00_rb,2.8740e+00_rb,2.2992e+00_rb,1.7244e+00_rb, &
+     &1.1496e+00_rb,5.7479e-01_rb,9.9252e-06_rb/)
+      kao(:, 4,10,10) = (/ &
+     &4.5067e+00_rb,3.9434e+00_rb,3.3802e+00_rb,2.8168e+00_rb,2.2535e+00_rb,1.6901e+00_rb, &
+     &1.1267e+00_rb,5.6337e-01_rb,1.5639e-05_rb/)
+      kao(:, 5,10,10) = (/ &
+     &4.4320e+00_rb,3.8780e+00_rb,3.3239e+00_rb,2.7699e+00_rb,2.2160e+00_rb,1.6620e+00_rb, &
+     &1.1080e+00_rb,5.5401e-01_rb,2.3260e-05_rb/)
+      kao(:, 1,11,10) = (/ &
+     &1.3118e+01_rb,1.1478e+01_rb,9.8381e+00_rb,8.1983e+00_rb,6.5588e+00_rb,4.9192e+00_rb, &
+     &3.2794e+00_rb,1.6397e+00_rb,2.2734e-06_rb/)
+      kao(:, 2,11,10) = (/ &
+     &1.2878e+01_rb,1.1268e+01_rb,9.6587e+00_rb,8.0488e+00_rb,6.4391e+00_rb,4.8293e+00_rb, &
+     &3.2196e+00_rb,1.6098e+00_rb,4.2460e-06_rb/)
+      kao(:, 3,11,10) = (/ &
+     &1.2677e+01_rb,1.1092e+01_rb,9.5076e+00_rb,7.9230e+00_rb,6.3383e+00_rb,4.7539e+00_rb, &
+     &3.1692e+00_rb,1.5846e+00_rb,7.1509e-06_rb/)
+      kao(:, 4,11,10) = (/ &
+     &1.2452e+01_rb,1.0896e+01_rb,9.3395e+00_rb,7.7831e+00_rb,6.2263e+00_rb,4.6699e+00_rb, &
+     &3.1133e+00_rb,1.5566e+00_rb,1.2244e-05_rb/)
+      kao(:, 5,11,10) = (/ &
+     &1.2241e+01_rb,1.0711e+01_rb,9.1810e+00_rb,7.6509e+00_rb,6.1207e+00_rb,4.5903e+00_rb, &
+     &3.0604e+00_rb,1.5302e+00_rb,2.0967e-05_rb/)
+      kao(:, 1,12,10) = (/ &
+     &2.2864e+01_rb,2.0005e+01_rb,1.7148e+01_rb,1.4290e+01_rb,1.1432e+01_rb,8.5738e+00_rb, &
+     &5.7157e+00_rb,2.8580e+00_rb,1.8184e-06_rb/)
+      kao(:, 2,12,10) = (/ &
+     &2.2487e+01_rb,1.9676e+01_rb,1.6864e+01_rb,1.4054e+01_rb,1.1243e+01_rb,8.4321e+00_rb, &
+     &5.6215e+00_rb,2.8107e+00_rb,3.3852e-06_rb/)
+      kao(:, 3,12,10) = (/ &
+     &2.2126e+01_rb,1.9360e+01_rb,1.6594e+01_rb,1.3829e+01_rb,1.1063e+01_rb,8.2969e+00_rb, &
+     &5.5315e+00_rb,2.7657e+00_rb,6.4086e-06_rb/)
+      kao(:, 4,12,10) = (/ &
+     &2.1772e+01_rb,1.9050e+01_rb,1.6328e+01_rb,1.3607e+01_rb,1.0886e+01_rb,8.1644e+00_rb, &
+     &5.4429e+00_rb,2.7215e+00_rb,1.1402e-05_rb/)
+      kao(:, 5,12,10) = (/ &
+     &2.1416e+01_rb,1.8740e+01_rb,1.6063e+01_rb,1.3386e+01_rb,1.0708e+01_rb,8.0313e+00_rb, &
+     &5.3540e+00_rb,2.6771e+00_rb,1.6645e-05_rb/)
+      kao(:, 1,13,10) = (/ &
+     &3.2272e+01_rb,2.8237e+01_rb,2.4203e+01_rb,2.0170e+01_rb,1.6136e+01_rb,1.2101e+01_rb, &
+     &8.0677e+00_rb,4.0338e+00_rb,1.4317e-06_rb/)
+      kao(:, 2,13,10) = (/ &
+     &3.1783e+01_rb,2.7810e+01_rb,2.3837e+01_rb,1.9864e+01_rb,1.5891e+01_rb,1.1919e+01_rb, &
+     &7.9455e+00_rb,3.9728e+00_rb,3.0046e-06_rb/)
+      kao(:, 3,13,10) = (/ &
+     &3.1267e+01_rb,2.7359e+01_rb,2.3450e+01_rb,1.9542e+01_rb,1.5633e+01_rb,1.1725e+01_rb, &
+     &7.8169e+00_rb,3.9083e+00_rb,5.7473e-06_rb/)
+      kao(:, 4,13,10) = (/ &
+     &3.0805e+01_rb,2.6955e+01_rb,2.3103e+01_rb,1.9253e+01_rb,1.5402e+01_rb,1.1552e+01_rb, &
+     &7.7014e+00_rb,3.8506e+00_rb,8.5901e-06_rb/)
+      kao(:, 5,13,10) = (/ &
+     &3.0347e+01_rb,2.6554e+01_rb,2.2760e+01_rb,1.8967e+01_rb,1.5174e+01_rb,1.1380e+01_rb, &
+     &7.5867e+00_rb,3.7933e+00_rb,1.2367e-05_rb/)
+      kao(:, 1, 1,11) = (/ &
+     &4.7098e-05_rb,1.8036e-04_rb,3.4819e-04_rb,5.0638e-04_rb,6.6181e-04_rb,8.1065e-04_rb, &
+     &9.3902e-04_rb,7.7167e-04_rb,1.3022e-03_rb/)
+      kao(:, 2, 1,11) = (/ &
+     &3.0033e-05_rb,2.6523e-04_rb,5.0795e-04_rb,7.4803e-04_rb,9.8321e-04_rb,1.2080e-03_rb, &
+     &1.4174e-03_rb,1.6176e-03_rb,1.9428e-03_rb/)
+      kao(:, 3, 1,11) = (/ &
+     &3.0544e-05_rb,3.7128e-04_rb,7.2058e-04_rb,1.0671e-03_rb,1.4084e-03_rb,1.7391e-03_rb, &
+     &2.0379e-03_rb,2.3032e-03_rb,2.7938e-03_rb/)
+      kao(:, 4, 1,11) = (/ &
+     &3.0472e-05_rb,4.9757e-04_rb,9.8168e-04_rb,1.4606e-03_rb,1.9374e-03_rb,2.4057e-03_rb, &
+     &2.8449e-03_rb,3.1636e-03_rb,3.8517e-03_rb/)
+      kao(:, 5, 1,11) = (/ &
+     &2.4091e-05_rb,6.5444e-04_rb,1.2934e-03_rb,1.9295e-03_rb,2.5676e-03_rb,3.2003e-03_rb, &
+     &3.8144e-03_rb,4.2439e-03_rb,5.1123e-03_rb/)
+      kao(:, 1, 2,11) = (/ &
+     &1.3816e-04_rb,1.6153e-04_rb,3.3849e-04_rb,4.7695e-04_rb,6.1250e-04_rb,7.4207e-04_rb, &
+     &8.5768e-04_rb,9.1861e-04_rb,1.1708e-03_rb/)
+      kao(:, 2, 2,11) = (/ &
+     &6.1066e-05_rb,1.7974e-04_rb,4.7651e-04_rb,6.8520e-04_rb,8.9139e-04_rb,1.0930e-03_rb, &
+     &1.2848e-03_rb,1.4278e-03_rb,1.7346e-03_rb/)
+      kao(:, 3, 2,11) = (/ &
+     &5.7831e-05_rb,2.0028e-04_rb,6.5612e-04_rb,9.5859e-04_rb,1.2605e-03_rb,1.5625e-03_rb, &
+     &1.8554e-03_rb,2.0988e-03_rb,2.4798e-03_rb/)
+      kao(:, 4, 2,11) = (/ &
+     &5.4516e-05_rb,2.3064e-04_rb,8.8062e-04_rb,1.3017e-03_rb,1.7223e-03_rb,2.1436e-03_rb, &
+     &2.5645e-03_rb,2.9565e-03_rb,3.4038e-03_rb/)
+      kao(:, 5, 2,11) = (/ &
+     &5.5309e-05_rb,3.0448e-04_rb,1.1705e-03_rb,1.7340e-03_rb,2.2966e-03_rb,2.8601e-03_rb, &
+     &3.4280e-03_rb,3.9900e-03_rb,4.5458e-03_rb/)
+      kao(:, 1, 3,11) = (/ &
+     &4.5525e-04_rb,4.1659e-04_rb,4.0041e-04_rb,4.3594e-04_rb,5.6841e-04_rb,6.6824e-04_rb, &
+     &7.6559e-04_rb,8.3275e-04_rb,9.8673e-04_rb/)
+      kao(:, 2, 3,11) = (/ &
+     &2.7564e-04_rb,3.1143e-04_rb,4.0133e-04_rb,6.4539e-04_rb,8.1010e-04_rb,9.7483e-04_rb, &
+     &1.1326e-03_rb,1.2606e-03_rb,1.4783e-03_rb/)
+      kao(:, 3, 3,11) = (/ &
+     &1.5755e-04_rb,2.0262e-04_rb,4.4233e-04_rb,8.8058e-04_rb,1.1240e-03_rb,1.3655e-03_rb, &
+     &1.6023e-03_rb,1.8183e-03_rb,2.1060e-03_rb/)
+      kao(:, 4, 3,11) = (/ &
+     &1.5225e-04_rb,2.1360e-04_rb,4.5750e-04_rb,1.1722e-03_rb,1.5129e-03_rb,1.8525e-03_rb, &
+     &2.1885e-03_rb,2.5141e-03_rb,2.8848e-03_rb/)
+      kao(:, 5, 3,11) = (/ &
+     &1.4157e-04_rb,2.5829e-04_rb,4.6589e-04_rb,1.5429e-03_rb,2.0085e-03_rb,2.4737e-03_rb, &
+     &2.9344e-03_rb,3.3883e-03_rb,3.8756e-03_rb/)
+      kao(:, 1, 4,11) = (/ &
+     &1.2968e-03_rb,1.1627e-03_rb,1.0295e-03_rb,8.8852e-04_rb,7.5100e-04_rb,6.8878e-04_rb, &
+     &7.0217e-04_rb,7.2855e-04_rb,6.6909e-04_rb/)
+      kao(:, 2, 4,11) = (/ &
+     &1.2901e-03_rb,1.1618e-03_rb,9.9278e-04_rb,8.6686e-04_rb,8.2710e-04_rb,9.1628e-04_rb, &
+     &1.0053e-03_rb,1.0921e-03_rb,9.3719e-04_rb/)
+      kao(:, 3, 4,11) = (/ &
+     &8.4696e-04_rb,8.0992e-04_rb,6.6835e-04_rb,7.5797e-04_rb,8.8170e-04_rb,1.2538e-03_rb, &
+     &1.4194e-03_rb,1.5777e-03_rb,1.2930e-03_rb/)
+      kao(:, 4, 4,11) = (/ &
+     &4.0946e-04_rb,5.3575e-04_rb,5.3156e-04_rb,6.5607e-04_rb,1.0924e-03_rb,1.6886e-03_rb, &
+     &1.9410e-03_rb,2.1799e-03_rb,1.6795e-03_rb/)
+      kao(:, 5, 4,11) = (/ &
+     &4.1161e-04_rb,5.7102e-04_rb,5.8841e-04_rb,6.9122e-04_rb,1.4036e-03_rb,2.2467e-03_rb, &
+     &2.6025e-03_rb,2.9419e-03_rb,2.1668e-03_rb/)
+      kao(:, 1, 5,11) = (/ &
+     &3.5249e-03_rb,3.0877e-03_rb,2.6707e-03_rb,2.2562e-03_rb,1.8574e-03_rb,1.4440e-03_rb, &
+     &1.0135e-03_rb,7.0090e-04_rb,2.4879e-04_rb/)
+      kao(:, 2, 5,11) = (/ &
+     &3.4987e-03_rb,3.0660e-03_rb,2.6585e-03_rb,2.2616e-03_rb,1.8230e-03_rb,1.3947e-03_rb, &
+     &1.1338e-03_rb,9.8875e-04_rb,4.4035e-04_rb/)
+      kao(:, 3, 5,11) = (/ &
+     &3.2338e-03_rb,2.8640e-03_rb,2.5128e-03_rb,2.2224e-03_rb,1.8369e-03_rb,1.4590e-03_rb, &
+     &1.3054e-03_rb,1.4040e-03_rb,6.0764e-04_rb/)
+      kao(:, 4, 5,11) = (/ &
+     &2.1959e-03_rb,1.9312e-03_rb,1.7650e-03_rb,1.5181e-03_rb,1.3319e-03_rb,1.3218e-03_rb, &
+     &1.7587e-03_rb,1.9394e-03_rb,9.4777e-04_rb/)
+      kao(:, 5, 5,11) = (/ &
+     &1.2468e-03_rb,1.0861e-03_rb,1.1609e-03_rb,1.1515e-03_rb,1.2470e-03_rb,1.3220e-03_rb, &
+     &2.3659e-03_rb,2.6308e-03_rb,1.2356e-03_rb/)
+      kao(:, 1, 6,11) = (/ &
+     &9.5223e-03_rb,8.3335e-03_rb,7.1442e-03_rb,5.9544e-03_rb,4.7779e-03_rb,3.5984e-03_rb, &
+     &2.4247e-03_rb,1.2737e-03_rb,1.4692e-04_rb/)
+      kao(:, 2, 6,11) = (/ &
+     &9.2485e-03_rb,8.0943e-03_rb,6.9406e-03_rb,5.8161e-03_rb,4.6851e-03_rb,3.5677e-03_rb, &
+     &2.4748e-03_rb,1.3469e-03_rb,2.5178e-04_rb/)
+      kao(:, 3, 6,11) = (/ &
+     &8.7789e-03_rb,7.6827e-03_rb,6.6150e-03_rb,5.5437e-03_rb,4.4673e-03_rb,3.4787e-03_rb, &
+     &2.4528e-03_rb,1.4847e-03_rb,3.7920e-04_rb/)
+      kao(:, 4, 6,11) = (/ &
+     &8.2164e-03_rb,7.2018e-03_rb,6.2465e-03_rb,5.3375e-03_rb,4.3691e-03_rb,3.4064e-03_rb, &
+     &2.4151e-03_rb,1.7544e-03_rb,5.7438e-04_rb/)
+      kao(:, 5, 6,11) = (/ &
+     &6.8576e-03_rb,6.0356e-03_rb,5.1755e-03_rb,4.2553e-03_rb,3.2890e-03_rb,2.6043e-03_rb, &
+     &1.9585e-03_rb,2.3328e-03_rb,8.0859e-04_rb/)
+      kao(:, 1, 7,11) = (/ &
+     &2.6634e-02_rb,2.3306e-02_rb,1.9979e-02_rb,1.6651e-02_rb,1.3321e-02_rb,9.9924e-03_rb, &
+     &6.6684e-03_rb,3.3709e-03_rb,1.8920e-04_rb/)
+      kao(:, 2, 7,11) = (/ &
+     &2.5938e-02_rb,2.2696e-02_rb,1.9456e-02_rb,1.6215e-02_rb,1.2974e-02_rb,9.7488e-03_rb, &
+     &6.5437e-03_rb,3.3574e-03_rb,3.7520e-04_rb/)
+      kao(:, 3, 7,11) = (/ &
+     &2.5453e-02_rb,2.2274e-02_rb,1.9096e-02_rb,1.5918e-02_rb,1.2777e-02_rb,9.6455e-03_rb, &
+     &6.5081e-03_rb,3.3802e-03_rb,5.3158e-04_rb/)
+      kao(:, 4, 7,11) = (/ &
+     &2.4271e-02_rb,2.1241e-02_rb,1.8214e-02_rb,1.5233e-02_rb,1.2290e-02_rb,9.3599e-03_rb, &
+     &6.4912e-03_rb,3.4387e-03_rb,8.0667e-04_rb/)
+      kao(:, 5, 7,11) = (/ &
+     &2.2422e-02_rb,1.9613e-02_rb,1.6806e-02_rb,1.4145e-02_rb,1.1493e-02_rb,8.8108e-03_rb, &
+     &6.0692e-03_rb,3.4048e-03_rb,1.1367e-03_rb/)
+      kao(:, 1, 8,11) = (/ &
+     &9.5097e-02_rb,8.3206e-02_rb,7.1322e-02_rb,5.9437e-02_rb,4.7550e-02_rb,3.5664e-02_rb, &
+     &2.3777e-02_rb,1.1891e-02_rb,8.8895e-05_rb/)
+      kao(:, 2, 8,11) = (/ &
+     &9.2657e-02_rb,8.1078e-02_rb,6.9498e-02_rb,5.7915e-02_rb,4.6333e-02_rb,3.4754e-02_rb, &
+     &2.3172e-02_rb,1.1611e-02_rb,1.6093e-04_rb/)
+      kao(:, 3, 8,11) = (/ &
+     &8.9553e-02_rb,7.8360e-02_rb,6.7165e-02_rb,5.5974e-02_rb,4.4782e-02_rb,3.3592e-02_rb, &
+     &2.2399e-02_rb,1.1297e-02_rb,2.7559e-04_rb/)
+      kao(:, 4, 8,11) = (/ &
+     &8.7450e-02_rb,7.6527e-02_rb,6.5593e-02_rb,5.4667e-02_rb,4.3739e-02_rb,3.2808e-02_rb, &
+     &2.1983e-02_rb,1.1121e-02_rb,4.3678e-04_rb/)
+      kao(:, 5, 8,11) = (/ &
+     &8.6068e-02_rb,7.5315e-02_rb,6.4565e-02_rb,5.3811e-02_rb,4.3053e-02_rb,3.2463e-02_rb, &
+     &2.1814e-02_rb,1.1203e-02_rb,7.8846e-04_rb/)
+      kao(:, 1, 9,11) = (/ &
+     &6.4279e-01_rb,5.6245e-01_rb,4.8207e-01_rb,4.0173e-01_rb,3.2138e-01_rb,2.4105e-01_rb, &
+     &1.6070e-01_rb,8.0350e-02_rb,1.4861e-06_rb/)
+      kao(:, 2, 9,11) = (/ &
+     &6.2663e-01_rb,5.4828e-01_rb,4.6997e-01_rb,3.9164e-01_rb,3.1331e-01_rb,2.3498e-01_rb, &
+     &1.5666e-01_rb,7.8331e-02_rb,2.7002e-06_rb/)
+      kao(:, 3, 9,11) = (/ &
+     &6.1151e-01_rb,5.3505e-01_rb,4.5861e-01_rb,3.8220e-01_rb,3.0575e-01_rb,2.2931e-01_rb, &
+     &1.5288e-01_rb,7.6443e-02_rb,4.4491e-06_rb/)
+      kao(:, 4, 9,11) = (/ &
+     &5.9675e-01_rb,5.2214e-01_rb,4.4753e-01_rb,3.7296e-01_rb,2.9837e-01_rb,2.2379e-01_rb, &
+     &1.4920e-01_rb,7.4612e-02_rb,6.8192e-06_rb/)
+      kao(:, 5, 9,11) = (/ &
+     &5.8474e-01_rb,5.1167e-01_rb,4.3855e-01_rb,3.6547e-01_rb,2.9239e-01_rb,2.1930e-01_rb, &
+     &1.4621e-01_rb,7.3117e-02_rb,1.0152e-05_rb/)
+      kao(:, 1,10,11) = (/ &
+     &5.2427e+00_rb,4.5875e+00_rb,3.9320e+00_rb,3.2767e+00_rb,2.6214e+00_rb,1.9660e+00_rb, &
+     &1.3107e+00_rb,6.5538e-01_rb,3.2405e-06_rb/)
+      kao(:, 2,10,11) = (/ &
+     &5.1308e+00_rb,4.4894e+00_rb,3.8480e+00_rb,3.2067e+00_rb,2.5654e+00_rb,1.9241e+00_rb, &
+     &1.2827e+00_rb,6.4136e-01_rb,6.0207e-06_rb/)
+      kao(:, 3,10,11) = (/ &
+     &5.0278e+00_rb,4.3993e+00_rb,3.7708e+00_rb,3.1424e+00_rb,2.5139e+00_rb,1.8854e+00_rb, &
+     &1.2569e+00_rb,6.2847e-01_rb,1.0181e-05_rb/)
+      kao(:, 4,10,11) = (/ &
+     &4.9276e+00_rb,4.3117e+00_rb,3.6956e+00_rb,3.0798e+00_rb,2.4638e+00_rb,1.8478e+00_rb, &
+     &1.2319e+00_rb,6.1596e-01_rb,1.5690e-05_rb/)
+      kao(:, 5,10,11) = (/ &
+     &4.8175e+00_rb,4.2154e+00_rb,3.6129e+00_rb,3.0109e+00_rb,2.4088e+00_rb,1.8066e+00_rb, &
+     &1.2044e+00_rb,6.0226e-01_rb,2.2851e-05_rb/)
+      kao(:, 1,11,11) = (/ &
+     &1.4444e+01_rb,1.2639e+01_rb,1.0833e+01_rb,9.0277e+00_rb,7.2223e+00_rb,5.4167e+00_rb, &
+     &3.6111e+00_rb,1.8056e+00_rb,3.3928e-06_rb/)
+      kao(:, 2,11,11) = (/ &
+     &1.4191e+01_rb,1.2417e+01_rb,1.0643e+01_rb,8.8695e+00_rb,7.0956e+00_rb,5.3217e+00_rb, &
+     &3.5476e+00_rb,1.7739e+00_rb,6.3163e-06_rb/)
+      kao(:, 3,11,11) = (/ &
+     &1.3919e+01_rb,1.2179e+01_rb,1.0439e+01_rb,8.6994e+00_rb,6.9594e+00_rb,5.2197e+00_rb, &
+     &3.4797e+00_rb,1.7399e+00_rb,1.0603e-05_rb/)
+      kao(:, 4,11,11) = (/ &
+     &1.3652e+01_rb,1.1946e+01_rb,1.0239e+01_rb,8.5326e+00_rb,6.8259e+00_rb,5.1193e+00_rb, &
+     &3.4129e+00_rb,1.7065e+00_rb,1.6659e-05_rb/)
+      kao(:, 5,11,11) = (/ &
+     &1.3348e+01_rb,1.1680e+01_rb,1.0011e+01_rb,8.3424e+00_rb,6.6742e+00_rb,5.0056e+00_rb, &
+     &3.3371e+00_rb,1.6685e+00_rb,2.4500e-05_rb/)
+      kao(:, 1,12,11) = (/ &
+     &2.5285e+01_rb,2.2125e+01_rb,1.8964e+01_rb,1.5803e+01_rb,1.2642e+01_rb,9.4819e+00_rb, &
+     &6.3210e+00_rb,3.1605e+00_rb,2.1167e-06_rb/)
+      kao(:, 2,12,11) = (/ &
+     &2.4880e+01_rb,2.1769e+01_rb,1.8659e+01_rb,1.5550e+01_rb,1.2440e+01_rb,9.3299e+00_rb, &
+     &6.2198e+00_rb,3.1099e+00_rb,3.8897e-06_rb/)
+      kao(:, 3,12,11) = (/ &
+     &2.4433e+01_rb,2.1379e+01_rb,1.8325e+01_rb,1.5271e+01_rb,1.2217e+01_rb,9.1622e+00_rb, &
+     &6.1081e+00_rb,3.0541e+00_rb,6.6786e-06_rb/)
+      kao(:, 4,12,11) = (/ &
+     &2.3948e+01_rb,2.0955e+01_rb,1.7960e+01_rb,1.4967e+01_rb,1.1974e+01_rb,8.9803e+00_rb, &
+     &5.9870e+00_rb,2.9934e+00_rb,1.0649e-05_rb/)
+      kao(:, 5,12,11) = (/ &
+     &2.3474e+01_rb,2.0540e+01_rb,1.7606e+01_rb,1.4671e+01_rb,1.1737e+01_rb,8.8029e+00_rb, &
+     &5.8685e+00_rb,2.9342e+00_rb,1.7444e-05_rb/)
+      kao(:, 1,13,11) = (/ &
+     &3.6004e+01_rb,3.1505e+01_rb,2.7003e+01_rb,2.2503e+01_rb,1.8003e+01_rb,1.3502e+01_rb, &
+     &9.0009e+00_rb,4.5004e+00_rb,1.4918e-06_rb/)
+      kao(:, 2,13,11) = (/ &
+     &3.5389e+01_rb,3.0965e+01_rb,2.6541e+01_rb,2.2118e+01_rb,1.7694e+01_rb,1.3271e+01_rb, &
+     &8.8469e+00_rb,4.4235e+00_rb,2.8535e-06_rb/)
+      kao(:, 3,13,11) = (/ &
+     &3.4779e+01_rb,3.0432e+01_rb,2.6084e+01_rb,2.1737e+01_rb,1.7389e+01_rb,1.3042e+01_rb, &
+     &8.6948e+00_rb,4.3474e+00_rb,4.8793e-06_rb/)
+      kao(:, 4,13,11) = (/ &
+     &3.4139e+01_rb,2.9872e+01_rb,2.5605e+01_rb,2.1337e+01_rb,1.7070e+01_rb,1.2802e+01_rb, &
+     &8.5348e+00_rb,4.2675e+00_rb,8.8607e-06_rb/)
+      kao(:, 5,13,11) = (/ &
+     &3.3563e+01_rb,2.9368e+01_rb,2.5171e+01_rb,2.0976e+01_rb,1.6781e+01_rb,1.2586e+01_rb, &
+     &8.3906e+00_rb,4.1953e+00_rb,1.4420e-05_rb/)
+      kao(:, 1, 1,12) = (/ &
+     &6.4900e-05_rb,2.8719e-04_rb,5.6307e-04_rb,8.4351e-04_rb,1.1291e-03_rb,1.4211e-03_rb, &
+     &1.7201e-03_rb,1.9852e-03_rb,2.2469e-03_rb/)
+      kao(:, 2, 1,12) = (/ &
+     &3.4635e-05_rb,4.0542e-04_rb,7.9731e-04_rb,1.1929e-03_rb,1.5968e-03_rb,2.0148e-03_rb, &
+     &2.4518e-03_rb,2.8750e-03_rb,3.1817e-03_rb/)
+      kao(:, 3, 1,12) = (/ &
+     &3.0386e-05_rb,5.5544e-04_rb,1.0947e-03_rb,1.6361e-03_rb,2.1835e-03_rb,2.7444e-03_rb, &
+     &3.3456e-03_rb,3.9572e-03_rb,4.3509e-03_rb/)
+      kao(:, 4, 1,12) = (/ &
+     &2.1896e-05_rb,7.4746e-04_rb,1.4741e-03_rb,2.1992e-03_rb,2.9238e-03_rb,3.6527e-03_rb, &
+     &4.4093e-03_rb,5.2454e-03_rb,5.8288e-03_rb/)
+      kao(:, 5, 1,12) = (/ &
+     &2.2978e-05_rb,9.8728e-04_rb,1.9484e-03_rb,2.9034e-03_rb,3.8494e-03_rb,4.7859e-03_rb, &
+     &5.7216e-03_rb,6.7414e-03_rb,7.6777e-03_rb/)
+      kao(:, 1, 2,12) = (/ &
+     &1.5749e-04_rb,2.0866e-04_rb,4.6787e-04_rb,6.8742e-04_rb,9.1071e-04_rb,1.1382e-03_rb, &
+     &1.3780e-03_rb,1.6236e-03_rb,1.7971e-03_rb/)
+      kao(:, 2, 2,12) = (/ &
+     &6.4613e-05_rb,2.9516e-04_rb,6.7832e-04_rb,1.0033e-03_rb,1.3310e-03_rb,1.6630e-03_rb, &
+     &2.0071e-03_rb,2.4028e-03_rb,2.6327e-03_rb/)
+      kao(:, 3, 2,12) = (/ &
+     &5.7078e-05_rb,4.5933e-04_rb,9.6118e-04_rb,1.4236e-03_rb,1.8857e-03_rb,2.3486e-03_rb, &
+     &2.8168e-03_rb,3.3472e-03_rb,3.7377e-03_rb/)
+      kao(:, 4, 2,12) = (/ &
+     &4.9262e-05_rb,6.5877e-04_rb,1.3301e-03_rb,1.9726e-03_rb,2.6111e-03_rb,3.2436e-03_rb, &
+     &3.8662e-03_rb,4.5052e-03_rb,5.1847e-03_rb/)
+      kao(:, 5, 2,12) = (/ &
+     &4.0132e-05_rb,8.9682e-04_rb,1.7993e-03_rb,2.6705e-03_rb,3.5334e-03_rb,4.3806e-03_rb, &
+     &5.1960e-03_rb,5.9592e-03_rb,7.0262e-03_rb/)
+      kao(:, 1, 3,12) = (/ &
+     &4.4536e-04_rb,4.2140e-04_rb,4.1326e-04_rb,5.8784e-04_rb,7.3376e-04_rb,8.8410e-04_rb, &
+     &1.0353e-03_rb,1.1868e-03_rb,1.3506e-03_rb/)
+      kao(:, 2, 3,12) = (/ &
+     &3.6360e-04_rb,3.5667e-04_rb,4.9101e-04_rb,8.4210e-04_rb,1.0791e-03_rb,1.3181e-03_rb, &
+     &1.5590e-03_rb,1.8085e-03_rb,2.0516e-03_rb/)
+      kao(:, 3, 3,12) = (/ &
+     &1.5077e-04_rb,2.9297e-04_rb,7.2917e-04_rb,1.2081e-03_rb,1.5723e-03_rb,1.9339e-03_rb, &
+     &2.2902e-03_rb,2.6377e-03_rb,3.0400e-03_rb/)
+      kao(:, 4, 3,12) = (/ &
+     &1.4163e-04_rb,2.2426e-04_rb,1.0557e-03_rb,1.7084e-03_rb,2.2382e-03_rb,2.7621e-03_rb, &
+     &3.2708e-03_rb,3.7457e-03_rb,4.3687e-03_rb/)
+      kao(:, 5, 3,12) = (/ &
+     &1.3019e-04_rb,2.3338e-04_rb,1.4920e-03_rb,2.3388e-03_rb,3.0800e-03_rb,3.8155e-03_rb, &
+     &4.5352e-03_rb,5.1815e-03_rb,6.0536e-03_rb/)
+      kao(:, 1, 4,12) = (/ &
+     &1.4099e-03_rb,1.2519e-03_rb,1.0992e-03_rb,9.6157e-04_rb,8.5060e-04_rb,8.2135e-04_rb, &
+     &8.8574e-04_rb,9.4943e-04_rb,1.0571e-03_rb/)
+      kao(:, 2, 4,12) = (/ &
+     &1.2160e-03_rb,1.0633e-03_rb,1.0308e-03_rb,9.5807e-04_rb,9.2808e-04_rb,1.1772e-03_rb, &
+     &1.3218e-03_rb,1.4545e-03_rb,1.6420e-03_rb/)
+      kao(:, 3, 4,12) = (/ &
+     &7.7631e-04_rb,7.4153e-04_rb,7.5882e-04_rb,8.7236e-04_rb,1.3771e-03_rb,1.6770e-03_rb, &
+     &1.9300e-03_rb,2.1670e-03_rb,2.4676e-03_rb/)
+      kao(:, 4, 4,12) = (/ &
+     &4.5228e-04_rb,5.1764e-04_rb,4.9825e-04_rb,1.0410e-03_rb,1.9642e-03_rb,2.3602e-03_rb, &
+     &2.7572e-03_rb,3.1444e-03_rb,3.5784e-03_rb/)
+      kao(:, 5, 4,12) = (/ &
+     &3.7162e-04_rb,5.4517e-04_rb,4.7653e-04_rb,1.0804e-03_rb,2.6516e-03_rb,3.2347e-03_rb, &
+     &3.8223e-03_rb,4.4076e-03_rb,4.9248e-03_rb/)
+      kao(:, 1, 5,12) = (/ &
+     &3.8990e-03_rb,3.4146e-03_rb,2.9418e-03_rb,2.4792e-03_rb,1.9894e-03_rb,1.5917e-03_rb, &
+     &1.1813e-03_rb,8.6801e-04_rb,2.1028e-04_rb/)
+      kao(:, 2, 5,12) = (/ &
+     &3.6199e-03_rb,3.1680e-03_rb,2.6938e-03_rb,2.3090e-03_rb,1.9956e-03_rb,1.6463e-03_rb, &
+     &1.2997e-03_rb,1.3006e-03_rb,2.4494e-04_rb/)
+      kao(:, 3, 5,12) = (/ &
+     &3.4415e-03_rb,3.0220e-03_rb,2.5761e-03_rb,2.2036e-03_rb,1.8689e-03_rb,1.5859e-03_rb, &
+     &1.7898e-03_rb,1.9074e-03_rb,5.0679e-04_rb/)
+      kao(:, 4, 5,12) = (/ &
+     &2.1716e-03_rb,1.9079e-03_rb,1.6133e-03_rb,1.3356e-03_rb,1.5050e-03_rb,1.8145e-03_rb, &
+     &2.4880e-03_rb,2.7223e-03_rb,8.8637e-04_rb/)
+      kao(:, 5, 5,12) = (/ &
+     &1.3077e-03_rb,1.2440e-03_rb,1.1158e-03_rb,9.0020e-04_rb,1.2713e-03_rb,2.3698e-03_rb, &
+     &3.3646e-03_rb,3.7560e-03_rb,1.3375e-03_rb/)
+      kao(:, 1, 6,12) = (/ &
+     &1.0196e-02_rb,8.9244e-03_rb,7.6531e-03_rb,6.3818e-03_rb,5.1267e-03_rb,3.9081e-03_rb, &
+     &2.6537e-03_rb,1.4661e-03_rb,1.6889e-04_rb/)
+      kao(:, 2, 6,12) = (/ &
+     &1.0111e-02_rb,8.8532e-03_rb,7.5941e-03_rb,6.3593e-03_rb,5.1154e-03_rb,3.8577e-03_rb, &
+     &2.6627e-03_rb,1.5273e-03_rb,2.6786e-04_rb/)
+      kao(:, 3, 6,12) = (/ &
+     &9.5574e-03_rb,8.3745e-03_rb,7.2096e-03_rb,6.0967e-03_rb,4.9927e-03_rb,3.8753e-03_rb, &
+     &2.6940e-03_rb,1.7929e-03_rb,4.4721e-04_rb/)
+      kao(:, 4, 6,12) = (/ &
+     &9.1448e-03_rb,8.0065e-03_rb,6.8180e-03_rb,5.6454e-03_rb,4.5888e-03_rb,3.5047e-03_rb, &
+     &2.6334e-03_rb,2.4842e-03_rb,6.5846e-04_rb/)
+      kao(:, 5, 6,12) = (/ &
+     &5.7075e-03_rb,5.0049e-03_rb,4.5271e-03_rb,4.0365e-03_rb,3.0612e-03_rb,2.5106e-03_rb, &
+     &2.5238e-03_rb,3.3792e-03_rb,9.8239e-04_rb/)
+      kao(:, 1, 7,12) = (/ &
+     &2.9179e-02_rb,2.5534e-02_rb,2.1889e-02_rb,1.8245e-02_rb,1.4599e-02_rb,1.0955e-02_rb, &
+     &7.3101e-03_rb,3.7189e-03_rb,1.6629e-04_rb/)
+      kao(:, 2, 7,12) = (/ &
+     &2.8331e-02_rb,2.4795e-02_rb,2.1258e-02_rb,1.7722e-02_rb,1.4184e-02_rb,1.0647e-02_rb, &
+     &7.1746e-03_rb,3.6882e-03_rb,3.2759e-04_rb/)
+      kao(:, 3, 7,12) = (/ &
+     &2.7584e-02_rb,2.4141e-02_rb,2.0699e-02_rb,1.7251e-02_rb,1.3817e-02_rb,1.0419e-02_rb, &
+     &6.9883e-03_rb,3.6331e-03_rb,7.5693e-04_rb/)
+      kao(:, 4, 7,12) = (/ &
+     &2.7092e-02_rb,2.3710e-02_rb,2.0332e-02_rb,1.6950e-02_rb,1.3669e-02_rb,1.0331e-02_rb, &
+     &6.9978e-03_rb,3.6886e-03_rb,1.3272e-03_rb/)
+      kao(:, 5, 7,12) = (/ &
+     &2.4668e-02_rb,2.1578e-02_rb,1.8509e-02_rb,1.5691e-02_rb,1.2680e-02_rb,9.7141e-03_rb, &
+     &6.7022e-03_rb,3.7141e-03_rb,1.7778e-03_rb/)
+      kao(:, 1, 8,12) = (/ &
+     &1.0361e-01_rb,9.0667e-02_rb,7.7713e-02_rb,6.4765e-02_rb,5.1815e-02_rb,3.8864e-02_rb, &
+     &2.5914e-02_rb,1.2965e-02_rb,1.1677e-04_rb/)
+      kao(:, 2, 8,12) = (/ &
+     &1.0115e-01_rb,8.8507e-02_rb,7.5864e-02_rb,6.3225e-02_rb,5.0584e-02_rb,3.7943e-02_rb, &
+     &2.5302e-02_rb,1.2662e-02_rb,2.2624e-04_rb/)
+      kao(:, 3, 8,12) = (/ &
+     &9.8784e-02_rb,8.6438e-02_rb,7.4094e-02_rb,6.1749e-02_rb,4.9403e-02_rb,3.7059e-02_rb, &
+     &2.4715e-02_rb,1.2461e-02_rb,3.7810e-04_rb/)
+      kao(:, 4, 8,12) = (/ &
+     &9.5779e-02_rb,8.3802e-02_rb,7.1837e-02_rb,5.9866e-02_rb,4.7899e-02_rb,3.5935e-02_rb, &
+     &2.4068e-02_rb,1.2158e-02_rb,6.1406e-04_rb/)
+      kao(:, 5, 8,12) = (/ &
+     &9.3500e-02_rb,8.1816e-02_rb,7.0121e-02_rb,5.8448e-02_rb,4.6756e-02_rb,3.5152e-02_rb, &
+     &2.3515e-02_rb,1.2003e-02_rb,9.1223e-04_rb/)
+      kao(:, 1, 9,12) = (/ &
+     &7.0616e-01_rb,6.1791e-01_rb,5.2965e-01_rb,4.4136e-01_rb,3.5309e-01_rb,2.6483e-01_rb, &
+     &1.7655e-01_rb,8.8282e-02_rb,1.5290e-06_rb/)
+      kao(:, 2, 9,12) = (/ &
+     &6.9151e-01_rb,6.0507e-01_rb,5.1861e-01_rb,4.3218e-01_rb,3.4576e-01_rb,2.5930e-01_rb, &
+     &1.7288e-01_rb,8.6445e-02_rb,2.6717e-06_rb/)
+      kao(:, 3, 9,12) = (/ &
+     &6.7650e-01_rb,5.9194e-01_rb,5.0740e-01_rb,4.2284e-01_rb,3.3827e-01_rb,2.5371e-01_rb, &
+     &1.6914e-01_rb,8.4579e-02_rb,4.4922e-06_rb/)
+      kao(:, 4, 9,12) = (/ &
+     &6.5888e-01_rb,5.7654e-01_rb,4.9417e-01_rb,4.1183e-01_rb,3.2946e-01_rb,2.4710e-01_rb, &
+     &1.6473e-01_rb,8.2371e-02_rb,7.3887e-06_rb/)
+      kao(:, 5, 9,12) = (/ &
+     &6.4040e-01_rb,5.6034e-01_rb,4.8031e-01_rb,4.0028e-01_rb,3.2019e-01_rb,2.4016e-01_rb, &
+     &1.6010e-01_rb,8.0057e-02_rb,1.1597e-05_rb/)
+      kao(:, 1,10,12) = (/ &
+     &5.7734e+00_rb,5.0518e+00_rb,4.3301e+00_rb,3.6085e+00_rb,2.8866e+00_rb,2.1651e+00_rb, &
+     &1.4434e+00_rb,7.2167e-01_rb,9.1748e-07_rb/)
+      kao(:, 2,10,12) = (/ &
+     &5.6550e+00_rb,4.9481e+00_rb,4.2414e+00_rb,3.5344e+00_rb,2.8275e+00_rb,2.1206e+00_rb, &
+     &1.4138e+00_rb,7.0688e-01_rb,1.6728e-06_rb/)
+      kao(:, 3,10,12) = (/ &
+     &5.5293e+00_rb,4.8379e+00_rb,4.1470e+00_rb,3.4558e+00_rb,2.7646e+00_rb,2.0735e+00_rb, &
+     &1.3823e+00_rb,6.9113e-01_rb,2.9526e-06_rb/)
+      kao(:, 4,10,12) = (/ &
+     &5.4054e+00_rb,4.7297e+00_rb,4.0540e+00_rb,3.3783e+00_rb,2.7027e+00_rb,2.0270e+00_rb, &
+     &1.3514e+00_rb,6.7568e-01_rb,4.8767e-06_rb/)
+      kao(:, 5,10,12) = (/ &
+     &5.2733e+00_rb,4.6145e+00_rb,3.9550e+00_rb,3.2959e+00_rb,2.6366e+00_rb,1.9775e+00_rb, &
+     &1.3184e+00_rb,6.5919e-01_rb,7.7655e-06_rb/)
+      kao(:, 1,11,12) = (/ &
+     &1.5785e+01_rb,1.3812e+01_rb,1.1839e+01_rb,9.8659e+00_rb,7.8925e+00_rb,5.9194e+00_rb, &
+     &3.9463e+00_rb,1.9732e+00_rb,7.4549e-07_rb/)
+      kao(:, 2,11,12) = (/ &
+     &1.5479e+01_rb,1.3544e+01_rb,1.1609e+01_rb,9.6738e+00_rb,7.7393e+00_rb,5.8045e+00_rb, &
+     &3.8695e+00_rb,1.9348e+00_rb,1.4083e-06_rb/)
+      kao(:, 3,11,12) = (/ &
+     &1.5180e+01_rb,1.3283e+01_rb,1.1385e+01_rb,9.4881e+00_rb,7.5902e+00_rb,5.6927e+00_rb, &
+     &3.7951e+00_rb,1.8975e+00_rb,2.4492e-06_rb/)
+      kao(:, 4,11,12) = (/ &
+     &1.4875e+01_rb,1.3016e+01_rb,1.1157e+01_rb,9.2972e+00_rb,7.4378e+00_rb,5.5784e+00_rb, &
+     &3.7189e+00_rb,1.8594e+00_rb,4.0481e-06_rb/)
+      kao(:, 5,11,12) = (/ &
+     &1.4584e+01_rb,1.2761e+01_rb,1.0938e+01_rb,9.1150e+00_rb,7.2921e+00_rb,5.4689e+00_rb, &
+     &3.6460e+00_rb,1.8230e+00_rb,6.1324e-06_rb/)
+      kao(:, 1,12,12) = (/ &
+     &2.7851e+01_rb,2.4369e+01_rb,2.0888e+01_rb,1.7407e+01_rb,1.3925e+01_rb,1.0444e+01_rb, &
+     &6.9625e+00_rb,3.4813e+00_rb,1.7967e-06_rb/)
+      kao(:, 2,12,12) = (/ &
+     &2.7381e+01_rb,2.3958e+01_rb,2.0536e+01_rb,1.7113e+01_rb,1.3691e+01_rb,1.0268e+01_rb, &
+     &6.8453e+00_rb,3.4226e+00_rb,3.3551e-06_rb/)
+      kao(:, 3,12,12) = (/ &
+     &2.6898e+01_rb,2.3535e+01_rb,2.0173e+01_rb,1.6811e+01_rb,1.3449e+01_rb,1.0086e+01_rb, &
+     &6.7243e+00_rb,3.3621e+00_rb,5.7999e-06_rb/)
+      kao(:, 4,12,12) = (/ &
+     &2.6422e+01_rb,2.3120e+01_rb,1.9816e+01_rb,1.6513e+01_rb,1.3211e+01_rb,9.9083e+00_rb, &
+     &6.6055e+00_rb,3.3027e+00_rb,8.8648e-06_rb/)
+      kao(:, 5,12,12) = (/ &
+     &2.5893e+01_rb,2.2657e+01_rb,1.9420e+01_rb,1.6183e+01_rb,1.2946e+01_rb,9.7098e+00_rb, &
+     &6.4732e+00_rb,3.2366e+00_rb,1.3030e-05_rb/)
+      kao(:, 1,13,12) = (/ &
+     &4.0056e+01_rb,3.5049e+01_rb,3.0042e+01_rb,2.5035e+01_rb,2.0028e+01_rb,1.5021e+01_rb, &
+     &1.0014e+01_rb,5.0068e+00_rb,1.9339e-06_rb/)
+      kao(:, 2,13,12) = (/ &
+     &3.9543e+01_rb,3.4599e+01_rb,2.9657e+01_rb,2.4713e+01_rb,1.9771e+01_rb,1.4828e+01_rb, &
+     &9.8854e+00_rb,4.9428e+00_rb,3.6424e-06_rb/)
+      kao(:, 3,13,12) = (/ &
+     &3.8932e+01_rb,3.4065e+01_rb,2.9198e+01_rb,2.4333e+01_rb,1.9465e+01_rb,1.4599e+01_rb, &
+     &9.7330e+00_rb,4.8663e+00_rb,6.0957e-06_rb/)
+      kao(:, 4,13,12) = (/ &
+     &3.8278e+01_rb,3.3493e+01_rb,2.8708e+01_rb,2.3923e+01_rb,1.9139e+01_rb,1.4354e+01_rb, &
+     &9.5693e+00_rb,4.7847e+00_rb,9.5853e-06_rb/)
+      kao(:, 5,13,12) = (/ &
+     &3.7502e+01_rb,3.2815e+01_rb,2.8127e+01_rb,2.3438e+01_rb,1.8751e+01_rb,1.4063e+01_rb, &
+     &9.3751e+00_rb,4.6877e+00_rb,1.4124e-05_rb/)
+      kao(:, 1, 1,13) = (/ &
+     &7.4486e-05_rb,5.1116e-04_rb,1.0025e-03_rb,1.4842e-03_rb,1.9493e-03_rb,2.3797e-03_rb, &
+     &2.7258e-03_rb,2.8231e-03_rb,3.8853e-03_rb/)
+      kao(:, 2, 1,13) = (/ &
+     &6.5327e-05_rb,7.3706e-04_rb,1.4529e-03_rb,2.1556e-03_rb,2.8349e-03_rb,3.4671e-03_rb, &
+     &3.9764e-03_rb,4.1729e-03_rb,5.6550e-03_rb/)
+      kao(:, 3, 1,13) = (/ &
+     &2.8267e-05_rb,1.0173e-03_rb,2.0120e-03_rb,2.9905e-03_rb,3.9385e-03_rb,4.8257e-03_rb, &
+     &5.5630e-03_rb,5.8315e-03_rb,7.8638e-03_rb/)
+      kao(:, 4, 1,13) = (/ &
+     &2.3738e-05_rb,1.3547e-03_rb,2.6849e-03_rb,3.9940e-03_rb,5.2660e-03_rb,6.4652e-03_rb, &
+     &7.4857e-03_rb,7.8673e-03_rb,1.0519e-02_rb/)
+      kao(:, 5, 1,13) = (/ &
+     &2.6320e-05_rb,1.7490e-03_rb,3.4713e-03_rb,5.1691e-03_rb,6.8225e-03_rb,8.3917e-03_rb, &
+     &9.7490e-03_rb,1.0316e-02_rb,1.3632e-02_rb/)
+      kao(:, 1, 2,13) = (/ &
+     &1.3584e-04_rb,4.6683e-04_rb,9.0905e-04_rb,1.3477e-03_rb,1.7804e-03_rb,2.1997e-03_rb, &
+     &2.5843e-03_rb,2.8459e-03_rb,3.5348e-03_rb/)
+      kao(:, 2, 2,13) = (/ &
+     &1.2342e-04_rb,6.7608e-04_rb,1.3278e-03_rb,1.9757e-03_rb,2.6172e-03_rb,3.2432e-03_rb, &
+     &3.8268e-03_rb,4.2250e-03_rb,5.2098e-03_rb/)
+      kao(:, 3, 2,13) = (/ &
+     &5.7073e-05_rb,9.3916e-04_rb,1.8537e-03_rb,2.7640e-03_rb,3.6667e-03_rb,4.5531e-03_rb, &
+     &5.3892e-03_rb,5.9774e-03_rb,7.3088e-03_rb/)
+      kao(:, 4, 2,13) = (/ &
+     &4.3007e-05_rb,1.2575e-03_rb,2.4910e-03_rb,3.7207e-03_rb,4.9408e-03_rb,6.1442e-03_rb, &
+     &7.2881e-03_rb,8.1201e-03_rb,9.8567e-03_rb/)
+      kao(:, 5, 2,13) = (/ &
+     &4.4050e-05_rb,1.6325e-03_rb,3.2411e-03_rb,4.8448e-03_rb,6.4428e-03_rb,8.0196e-03_rb, &
+     &9.5284e-03_rb,1.0661e-02_rb,1.2860e-02_rb/)
+      kao(:, 1, 3,13) = (/ &
+     &4.8847e-04_rb,4.8646e-04_rb,7.2624e-04_rb,1.0874e-03_rb,1.4317e-03_rb,1.7747e-03_rb, &
+     &2.1141e-03_rb,2.4304e-03_rb,2.8058e-03_rb/)
+      kao(:, 2, 3,13) = (/ &
+     &3.4302e-04_rb,4.5845e-04_rb,1.0966e-03_rb,1.6182e-03_rb,2.1396e-03_rb,2.6609e-03_rb, &
+     &3.1797e-03_rb,3.6788e-03_rb,4.2203e-03_rb/)
+      kao(:, 3, 3,13) = (/ &
+     &2.3118e-04_rb,5.8673e-04_rb,1.5488e-03_rb,2.2966e-03_rb,3.0451e-03_rb,3.7949e-03_rb, &
+     &4.5473e-03_rb,5.2834e-03_rb,6.0295e-03_rb/)
+      kao(:, 4, 3,13) = (/ &
+     &1.2745e-04_rb,7.5679e-04_rb,2.1131e-03_rb,3.1366e-03_rb,4.1628e-03_rb,5.1929e-03_rb, &
+     &6.2318e-03_rb,7.2646e-03_rb,8.2577e-03_rb/)
+      kao(:, 5, 3,13) = (/ &
+     &1.0163e-04_rb,9.0005e-04_rb,2.8013e-03_rb,4.1651e-03_rb,5.5261e-03_rb,6.8877e-03_rb, &
+     &8.2517e-03_rb,9.6360e-03_rb,1.0972e-02_rb/)
+      kao(:, 1, 4,13) = (/ &
+     &1.4481e-03_rb,1.2897e-03_rb,1.1542e-03_rb,1.0925e-03_rb,1.1503e-03_rb,1.3566e-03_rb, &
+     &1.5821e-03_rb,1.8266e-03_rb,2.0462e-03_rb/)
+      kao(:, 2, 4,13) = (/ &
+     &1.3895e-03_rb,1.2964e-03_rb,1.0801e-03_rb,1.1824e-03_rb,1.6797e-03_rb,2.0441e-03_rb, &
+     &2.4259e-03_rb,2.8265e-03_rb,3.1666e-03_rb/)
+      kao(:, 3, 4,13) = (/ &
+     &8.4970e-04_rb,9.1322e-04_rb,9.4827e-04_rb,1.6805e-03_rb,2.4256e-03_rb,2.9871e-03_rb, &
+     &3.5538e-03_rb,4.1410e-03_rb,4.6574e-03_rb/)
+      kao(:, 4, 4,13) = (/ &
+     &4.1870e-04_rb,6.5230e-04_rb,1.1618e-03_rb,2.4565e-03_rb,3.3994e-03_rb,4.2007e-03_rb, &
+     &5.0069e-03_rb,5.8294e-03_rb,6.5858e-03_rb/)
+      kao(:, 5, 4,13) = (/ &
+     &3.3416e-04_rb,5.3110e-04_rb,1.2880e-03_rb,3.5329e-03_rb,4.6400e-03_rb,5.7434e-03_rb, &
+     &6.8465e-03_rb,7.9498e-03_rb,9.0475e-03_rb/)
+      kao(:, 1, 5,13) = (/ &
+     &4.2095e-03_rb,3.6897e-03_rb,3.1731e-03_rb,2.7426e-03_rb,2.2812e-03_rb,1.8053e-03_rb, &
+     &1.3867e-03_rb,1.3663e-03_rb,1.0788e-03_rb/)
+      kao(:, 2, 5,13) = (/ &
+     &4.0034e-03_rb,3.5161e-03_rb,3.1982e-03_rb,2.7135e-03_rb,2.2188e-03_rb,1.8636e-03_rb, &
+     &1.9269e-03_rb,2.1141e-03_rb,1.6636e-03_rb/)
+      kao(:, 3, 5,13) = (/ &
+     &3.5828e-03_rb,3.2123e-03_rb,2.7997e-03_rb,2.3571e-03_rb,1.9942e-03_rb,2.3633e-03_rb, &
+     &2.8135e-03_rb,3.1780e-03_rb,2.3977e-03_rb/)
+      kao(:, 4, 5,13) = (/ &
+     &2.0578e-03_rb,1.9948e-03_rb,1.9739e-03_rb,1.8494e-03_rb,2.1664e-03_rb,3.4722e-03_rb, &
+     &4.0379e-03_rb,4.6191e-03_rb,3.3853e-03_rb/)
+      kao(:, 5, 5,13) = (/ &
+     &8.8300e-04_rb,9.5901e-04_rb,1.3118e-03_rb,1.4619e-03_rb,2.8921e-03_rb,4.8304e-03_rb, &
+     &5.6699e-03_rb,6.5165e-03_rb,5.0451e-03_rb/)
+      kao(:, 1, 6,13) = (/ &
+     &1.1518e-02_rb,1.0082e-02_rb,8.6450e-03_rb,7.2094e-03_rb,5.7738e-03_rb,4.4142e-03_rb, &
+     &2.9967e-03_rb,1.6414e-03_rb,2.3528e-04_rb/)
+      kao(:, 2, 6,13) = (/ &
+     &1.0779e-02_rb,9.4346e-03_rb,8.0897e-03_rb,6.7606e-03_rb,5.5435e-03_rb,4.2583e-03_rb, &
+     &3.0675e-03_rb,1.8475e-03_rb,3.7683e-04_rb/)
+      kao(:, 3, 6,13) = (/ &
+     &1.0564e-02_rb,9.2493e-03_rb,7.9306e-03_rb,6.7005e-03_rb,5.4724e-03_rb,4.2002e-03_rb, &
+     &3.0432e-03_rb,2.5995e-03_rb,5.6137e-04_rb/)
+      kao(:, 4, 6,13) = (/ &
+     &8.9592e-03_rb,7.8426e-03_rb,6.9339e-03_rb,5.9610e-03_rb,4.9577e-03_rb,4.0115e-03_rb, &
+     &3.3973e-03_rb,3.7509e-03_rb,7.8787e-04_rb/)
+      kao(:, 5, 6,13) = (/ &
+     &5.6084e-03_rb,4.9031e-03_rb,4.1060e-03_rb,3.7154e-03_rb,3.3523e-03_rb,3.1522e-03_rb, &
+     &4.6655e-03_rb,5.3564e-03_rb,1.1263e-03_rb/)
+      kao(:, 1, 7,13) = (/ &
+     &3.2240e-02_rb,2.8212e-02_rb,2.4183e-02_rb,2.0155e-02_rb,1.6127e-02_rb,1.2099e-02_rb, &
+     &8.0718e-03_rb,4.1324e-03_rb,2.8875e-04_rb/)
+      kao(:, 2, 7,13) = (/ &
+     &3.1311e-02_rb,2.7399e-02_rb,2.3486e-02_rb,1.9574e-02_rb,1.5661e-02_rb,1.1749e-02_rb, &
+     &7.9670e-03_rb,4.1256e-03_rb,4.9392e-04_rb/)
+      kao(:, 3, 7,13) = (/ &
+     &2.9762e-02_rb,2.6043e-02_rb,2.2324e-02_rb,1.8611e-02_rb,1.4888e-02_rb,1.1369e-02_rb, &
+     &7.7126e-03_rb,4.2395e-03_rb,7.8171e-04_rb/)
+      kao(:, 4, 7,13) = (/ &
+     &2.8871e-02_rb,2.5265e-02_rb,2.1655e-02_rb,1.8050e-02_rb,1.4581e-02_rb,1.1027e-02_rb, &
+     &7.5640e-03_rb,4.2437e-03_rb,1.1828e-03_rb/)
+      kao(:, 5, 7,13) = (/ &
+     &2.6386e-02_rb,2.3095e-02_rb,1.9798e-02_rb,1.6677e-02_rb,1.3324e-02_rb,1.0191e-02_rb, &
+     &7.1310e-03_rb,4.8298e-03_rb,2.2511e-03_rb/)
+      kao(:, 1, 8,13) = (/ &
+     &1.1497e-01_rb,1.0060e-01_rb,8.6231e-02_rb,7.1859e-02_rb,5.7486e-02_rb,4.3117e-02_rb, &
+     &2.8748e-02_rb,1.4377e-02_rb,1.6465e-04_rb/)
+      kao(:, 2, 8,13) = (/ &
+     &1.1189e-01_rb,9.7901e-02_rb,8.3916e-02_rb,6.9933e-02_rb,5.5946e-02_rb,4.1961e-02_rb, &
+     &2.7977e-02_rb,1.3991e-02_rb,2.9555e-04_rb/)
+      kao(:, 3, 8,13) = (/ &
+     &1.0913e-01_rb,9.5494e-02_rb,8.1850e-02_rb,6.8211e-02_rb,5.4570e-02_rb,4.0928e-02_rb, &
+     &2.7290e-02_rb,1.3843e-02_rb,5.2136e-04_rb/)
+      kao(:, 4, 8,13) = (/ &
+     &1.0534e-01_rb,9.2180e-02_rb,7.9010e-02_rb,6.5847e-02_rb,5.2678e-02_rb,3.9513e-02_rb, &
+     &2.6523e-02_rb,1.3514e-02_rb,8.6919e-04_rb/)
+      kao(:, 5, 8,13) = (/ &
+     &1.0155e-01_rb,8.8866e-02_rb,7.6173e-02_rb,6.3476e-02_rb,5.0785e-02_rb,3.8190e-02_rb, &
+     &2.5826e-02_rb,1.3344e-02_rb,1.3651e-03_rb/)
+      kao(:, 1, 9,13) = (/ &
+     &7.8551e-01_rb,6.8732e-01_rb,5.8909e-01_rb,4.9092e-01_rb,3.9275e-01_rb,2.9457e-01_rb, &
+     &1.9638e-01_rb,9.8187e-02_rb,1.8629e-06_rb/)
+      kao(:, 2, 9,13) = (/ &
+     &7.6466e-01_rb,6.6906e-01_rb,5.7351e-01_rb,4.7791e-01_rb,3.8233e-01_rb,2.8675e-01_rb, &
+     &1.9117e-01_rb,9.5586e-02_rb,3.1593e-06_rb/)
+      kao(:, 3, 9,13) = (/ &
+     &7.4558e-01_rb,6.5237e-01_rb,5.5922e-01_rb,4.6601e-01_rb,3.7282e-01_rb,2.7960e-01_rb, &
+     &1.8640e-01_rb,9.3207e-02_rb,5.1342e-06_rb/)
+      kao(:, 4, 9,13) = (/ &
+     &7.2909e-01_rb,6.3798e-01_rb,5.4684e-01_rb,4.5571e-01_rb,3.6456e-01_rb,2.7343e-01_rb, &
+     &1.8229e-01_rb,9.1144e-02_rb,7.8192e-06_rb/)
+      kao(:, 5, 9,13) = (/ &
+     &7.0726e-01_rb,6.1887e-01_rb,5.3047e-01_rb,4.4203e-01_rb,3.5366e-01_rb,2.6523e-01_rb, &
+     &1.7683e-01_rb,8.8423e-02_rb,1.1206e-05_rb/)
+      kao(:, 1,10,13) = (/ &
+     &6.4269e+00_rb,5.6236e+00_rb,4.8204e+00_rb,4.0168e+00_rb,3.2134e+00_rb,2.4100e+00_rb, &
+     &1.6066e+00_rb,8.0335e-01_rb,1.1293e-06_rb/)
+      kao(:, 2,10,13) = (/ &
+     &6.2640e+00_rb,5.4811e+00_rb,4.6981e+00_rb,3.9150e+00_rb,3.1320e+00_rb,2.3491e+00_rb, &
+     &1.5660e+00_rb,7.8302e-01_rb,2.0871e-06_rb/)
+      kao(:, 3,10,13) = (/ &
+     &6.1220e+00_rb,5.3567e+00_rb,4.5912e+00_rb,3.8262e+00_rb,3.0609e+00_rb,2.2959e+00_rb, &
+     &1.5304e+00_rb,7.6518e-01_rb,3.5513e-06_rb/)
+      kao(:, 4,10,13) = (/ &
+     &5.9998e+00_rb,5.2499e+00_rb,4.4998e+00_rb,3.7498e+00_rb,2.9997e+00_rb,2.2499e+00_rb, &
+     &1.5000e+00_rb,7.4994e-01_rb,5.6768e-06_rb/)
+      kao(:, 5,10,13) = (/ &
+     &5.8812e+00_rb,5.1459e+00_rb,4.4109e+00_rb,3.6757e+00_rb,2.9406e+00_rb,2.2054e+00_rb, &
+     &1.4703e+00_rb,7.3514e-01_rb,8.5300e-06_rb/)
+      kao(:, 1,11,13) = (/ &
+     &1.7678e+01_rb,1.5468e+01_rb,1.3258e+01_rb,1.1049e+01_rb,8.8386e+00_rb,6.6292e+00_rb, &
+     &4.4195e+00_rb,2.2097e+00_rb,9.5807e-07_rb/)
+      kao(:, 2,11,13) = (/ &
+     &1.7256e+01_rb,1.5100e+01_rb,1.2942e+01_rb,1.0785e+01_rb,8.6284e+00_rb,6.4710e+00_rb, &
+     &4.3143e+00_rb,2.1571e+00_rb,1.8271e-06_rb/)
+      kao(:, 3,11,13) = (/ &
+     &1.6917e+01_rb,1.4802e+01_rb,1.2687e+01_rb,1.0572e+01_rb,8.4580e+00_rb,6.3436e+00_rb, &
+     &4.2290e+00_rb,2.1146e+00_rb,3.1322e-06_rb/)
+      kao(:, 4,11,13) = (/ &
+     &1.6624e+01_rb,1.4546e+01_rb,1.2468e+01_rb,1.0390e+01_rb,8.3118e+00_rb,6.2340e+00_rb, &
+     &4.1559e+00_rb,2.0780e+00_rb,4.9941e-06_rb/)
+      kao(:, 5,11,13) = (/ &
+     &1.6312e+01_rb,1.4273e+01_rb,1.2234e+01_rb,1.0195e+01_rb,8.1562e+00_rb,6.1169e+00_rb, &
+     &4.0780e+00_rb,2.0391e+00_rb,7.8208e-06_rb/)
+      kao(:, 1,12,13) = (/ &
+     &3.1083e+01_rb,2.7197e+01_rb,2.3312e+01_rb,1.9426e+01_rb,1.5541e+01_rb,1.1655e+01_rb, &
+     &7.7704e+00_rb,3.8852e+00_rb,7.4323e-07_rb/)
+      kao(:, 2,12,13) = (/ &
+     &3.0431e+01_rb,2.6627e+01_rb,2.2823e+01_rb,1.9019e+01_rb,1.5215e+01_rb,1.1411e+01_rb, &
+     &7.6077e+00_rb,3.8037e+00_rb,1.4468e-06_rb/)
+      kao(:, 3,12,13) = (/ &
+     &2.9924e+01_rb,2.6183e+01_rb,2.2443e+01_rb,1.8702e+01_rb,1.4961e+01_rb,1.1221e+01_rb, &
+     &7.4808e+00_rb,3.7405e+00_rb,2.6259e-06_rb/)
+      kao(:, 4,12,13) = (/ &
+     &2.9439e+01_rb,2.5759e+01_rb,2.2079e+01_rb,1.8399e+01_rb,1.4719e+01_rb,1.1040e+01_rb, &
+     &7.3599e+00_rb,3.6798e+00_rb,4.5448e-06_rb/)
+      kao(:, 5,12,13) = (/ &
+     &2.8940e+01_rb,2.5323e+01_rb,2.1705e+01_rb,1.8088e+01_rb,1.4470e+01_rb,1.0853e+01_rb, &
+     &7.2348e+00_rb,3.6174e+00_rb,7.3875e-06_rb/)
+      kao(:, 1,13,13) = (/ &
+     &4.5024e+01_rb,3.9395e+01_rb,3.3766e+01_rb,2.8140e+01_rb,2.2511e+01_rb,1.6883e+01_rb, &
+     &1.1256e+01_rb,5.6279e+00_rb,6.0376e-07_rb/)
+      kao(:, 2,13,13) = (/ &
+     &4.4143e+01_rb,3.8625e+01_rb,3.3107e+01_rb,2.7589e+01_rb,2.2071e+01_rb,1.6554e+01_rb, &
+     &1.1035e+01_rb,5.5177e+00_rb,1.1756e-06_rb/)
+      kao(:, 3,13,13) = (/ &
+     &4.3457e+01_rb,3.8026e+01_rb,3.2594e+01_rb,2.7161e+01_rb,2.1728e+01_rb,1.6297e+01_rb, &
+     &1.0864e+01_rb,5.4320e+00_rb,2.1118e-06_rb/)
+      kao(:, 4,13,13) = (/ &
+     &4.2787e+01_rb,3.7437e+01_rb,3.2089e+01_rb,2.6742e+01_rb,2.1393e+01_rb,1.6044e+01_rb, &
+     &1.0696e+01_rb,5.3482e+00_rb,3.5390e-06_rb/)
+      kao(:, 5,13,13) = (/ &
+     &4.2071e+01_rb,3.6811e+01_rb,3.1552e+01_rb,2.6294e+01_rb,2.1034e+01_rb,1.5776e+01_rb, &
+     &1.0517e+01_rb,5.2587e+00_rb,5.6752e-06_rb/)
+      kao(:, 1, 1,14) = (/ &
+     &8.0615e-05_rb,9.4684e-04_rb,1.8810e-03_rb,2.8058e-03_rb,3.7171e-03_rb,4.6066e-03_rb, &
+     &5.4471e-03_rb,6.0480e-03_rb,7.4265e-03_rb/)
+      kao(:, 2, 1,14) = (/ &
+     &7.2907e-05_rb,1.3385e-03_rb,2.6578e-03_rb,3.9621e-03_rb,5.2462e-03_rb,6.4943e-03_rb, &
+     &7.6854e-03_rb,8.5660e-03_rb,1.0483e-02_rb/)
+      kao(:, 3, 1,14) = (/ &
+     &6.3747e-05_rb,1.8288e-03_rb,3.6296e-03_rb,5.4086e-03_rb,7.1575e-03_rb,8.8508e-03_rb, &
+     &1.0431e-02_rb,1.1658e-02_rb,1.4300e-02_rb/)
+      kao(:, 4, 1,14) = (/ &
+     &3.9260e-05_rb,2.4240e-03_rb,4.8114e-03_rb,7.1688e-03_rb,9.4794e-03_rb,1.1704e-02_rb, &
+     &1.3748e-02_rb,1.5334e-02_rb,1.8941e-02_rb/)
+      kao(:, 5, 1,14) = (/ &
+     &2.4568e-05_rb,3.1272e-03_rb,6.2078e-03_rb,9.2494e-03_rb,1.2223e-02_rb,1.5067e-02_rb, &
+     &1.7657e-02_rb,1.9583e-02_rb,2.4427e-02_rb/)
+      kao(:, 1, 2,14) = (/ &
+     &1.5596e-04_rb,8.5463e-04_rb,1.6898e-03_rb,2.5200e-03_rb,3.3406e-03_rb,4.1439e-03_rb, &
+     &4.9117e-03_rb,5.5191e-03_rb,6.6708e-03_rb/)
+      kao(:, 2, 2,14) = (/ &
+     &1.3504e-04_rb,1.2362e-03_rb,2.4448e-03_rb,3.6435e-03_rb,4.8236e-03_rb,5.9777e-03_rb, &
+     &7.0641e-03_rb,7.9635e-03_rb,9.6287e-03_rb/)
+      kao(:, 3, 2,14) = (/ &
+     &1.1284e-04_rb,1.7193e-03_rb,3.4047e-03_rb,5.0732e-03_rb,6.7143e-03_rb,8.3092e-03_rb, &
+     &9.8022e-03_rb,1.1012e-02_rb,1.3405e-02_rb/)
+      kao(:, 4, 2,14) = (/ &
+     &7.1068e-05_rb,2.3136e-03_rb,4.5842e-03_rb,6.8306e-03_rb,9.0376e-03_rb,1.1180e-02_rb, &
+     &1.3169e-02_rb,1.4761e-02_rb,1.8047e-02_rb/)
+      kao(:, 5, 2,14) = (/ &
+     &4.9683e-05_rb,3.0234e-03_rb,5.9956e-03_rb,8.9376e-03_rb,1.1824e-02_rb,1.4613e-02_rb, &
+     &1.7201e-02_rb,1.9221e-02_rb,2.3615e-02_rb/)
+      kao(:, 1, 3,14) = (/ &
+     &4.8559e-04_rb,6.3562e-04_rb,1.4148e-03_rb,2.0956e-03_rb,2.7735e-03_rb,3.4411e-03_rb, &
+     &4.0892e-03_rb,4.6631e-03_rb,5.5086e-03_rb/)
+      kao(:, 2, 3,14) = (/ &
+     &3.9874e-04_rb,1.0860e-03_rb,2.1105e-03_rb,3.1322e-03_rb,4.1464e-03_rb,5.1442e-03_rb, &
+     &6.1073e-03_rb,6.9472e-03_rb,8.2419e-03_rb/)
+      kao(:, 3, 3,14) = (/ &
+     &3.0553e-04_rb,1.5424e-03_rb,3.0141e-03_rb,4.4802e-03_rb,5.9320e-03_rb,7.3631e-03_rb, &
+     &8.7355e-03_rb,9.9159e-03_rb,1.1803e-02_rb/)
+      kao(:, 4, 3,14) = (/ &
+     &2.0300e-04_rb,2.1134e-03_rb,4.1489e-03_rb,6.1729e-03_rb,8.1791e-03_rb,1.0152e-02_rb, &
+     &1.2037e-02_rb,1.3637e-02_rb,1.6288e-02_rb/)
+      kao(:, 5, 3,14) = (/ &
+     &1.2261e-04_rb,2.8083e-03_rb,5.5298e-03_rb,8.2360e-03_rb,1.0915e-02_rb,1.3546e-02_rb, &
+     &1.6061e-02_rb,1.8163e-02_rb,2.1753e-02_rb/)
+      kao(:, 1, 4,14) = (/ &
+     &1.6340e-03_rb,1.4799e-03_rb,1.3812e-03_rb,1.7164e-03_rb,2.2393e-03_rb,2.7610e-03_rb, &
+     &3.2750e-03_rb,3.7562e-03_rb,4.3569e-03_rb/)
+      kao(:, 2, 4,14) = (/ &
+     &1.3493e-03_rb,1.1314e-03_rb,1.6943e-03_rb,2.6409e-03_rb,3.4636e-03_rb,4.2822e-03_rb, &
+     &5.0857e-03_rb,5.8323e-03_rb,6.7806e-03_rb/)
+      kao(:, 3, 4,14) = (/ &
+     &9.9538e-04_rb,9.6503e-04_rb,2.6483e-03_rb,3.8772e-03_rb,5.1039e-03_rb,6.3200e-03_rb, &
+     &7.5138e-03_rb,8.6138e-03_rb,1.0038e-02_rb/)
+      kao(:, 4, 4,14) = (/ &
+     &7.1686e-04_rb,9.6594e-04_rb,3.7129e-03_rb,5.4649e-03_rb,7.2111e-03_rb,8.9436e-03_rb, &
+     &1.0638e-02_rb,1.2197e-02_rb,1.4232e-02_rb/)
+      kao(:, 5, 4,14) = (/ &
+     &3.7667e-04_rb,1.0457e-03_rb,5.0357e-03_rb,7.4391e-03_rb,9.8310e-03_rb,1.2205e-02_rb, &
+     &1.4525e-02_rb,1.6653e-02_rb,1.9453e-02_rb/)
+      kao(:, 1, 5,14) = (/ &
+     &4.8186e-03_rb,4.2167e-03_rb,3.6150e-03_rb,3.0747e-03_rb,2.5291e-03_rb,2.2936e-03_rb, &
+     &2.5986e-03_rb,2.9578e-03_rb,3.3675e-03_rb/)
+      kao(:, 2, 5,14) = (/ &
+     &4.3147e-03_rb,3.7763e-03_rb,3.3322e-03_rb,2.8723e-03_rb,2.9945e-03_rb,3.5591e-03_rb, &
+     &4.1803e-03_rb,4.7800e-03_rb,5.4630e-03_rb/)
+      kao(:, 3, 5,14) = (/ &
+     &3.5596e-03_rb,3.1147e-03_rb,2.7981e-03_rb,3.1802e-03_rb,4.4145e-03_rb,5.3933e-03_rb, &
+     &6.3651e-03_rb,7.3014e-03_rb,8.3701e-03_rb/)
+      kao(:, 4, 5,14) = (/ &
+     &2.3785e-03_rb,2.2217e-03_rb,2.2338e-03_rb,4.4885e-03_rb,6.3608e-03_rb,7.8120e-03_rb, &
+     &9.2509e-03_rb,1.0634e-02_rb,1.2219e-02_rb/)
+      kao(:, 5, 5,14) = (/ &
+     &1.3285e-03_rb,1.6004e-03_rb,2.5745e-03_rb,6.3438e-03_rb,8.8283e-03_rb,1.0885e-02_rb, &
+     &1.2921e-02_rb,1.4873e-02_rb,1.7112e-02_rb/)
+      kao(:, 1, 6,14) = (/ &
+     &1.2819e-02_rb,1.1217e-02_rb,9.6163e-03_rb,8.0152e-03_rb,6.4138e-03_rb,4.8948e-03_rb, &
+     &3.3434e-03_rb,2.3020e-03_rb,2.0077e-03_rb/)
+      kao(:, 2, 6,14) = (/ &
+     &1.2485e-02_rb,1.0926e-02_rb,9.3667e-03_rb,7.8075e-03_rb,6.3840e-03_rb,4.8805e-03_rb, &
+     &3.7061e-03_rb,3.8075e-03_rb,3.4020e-03_rb/)
+      kao(:, 3, 6,14) = (/ &
+     &1.1272e-02_rb,9.8625e-03_rb,8.4554e-03_rb,7.3206e-03_rb,6.0114e-03_rb,5.1792e-03_rb, &
+     &5.3340e-03_rb,6.0074e-03_rb,5.3316e-03_rb/)
+      kao(:, 4, 6,14) = (/ &
+     &1.0208e-02_rb,8.9332e-03_rb,7.9437e-03_rb,6.6798e-03_rb,5.8609e-03_rb,6.4855e-03_rb, &
+     &7.9228e-03_rb,9.0010e-03_rb,7.9567e-03_rb/)
+      kao(:, 5, 6,14) = (/ &
+     &6.0521e-03_rb,5.2891e-03_rb,4.8269e-03_rb,4.6206e-03_rb,6.6176e-03_rb,9.3039e-03_rb, &
+     &1.1293e-02_rb,1.2903e-02_rb,1.1196e-02_rb/)
+      kao(:, 1, 7,14) = (/ &
+     &3.6443e-02_rb,3.1891e-02_rb,2.7336e-02_rb,2.2781e-02_rb,1.8226e-02_rb,1.3673e-02_rb, &
+     &9.1182e-03_rb,4.6764e-03_rb,1.4855e-04_rb/)
+      kao(:, 2, 7,14) = (/ &
+     &3.5471e-02_rb,3.1039e-02_rb,2.6606e-02_rb,2.2173e-02_rb,1.7742e-02_rb,1.3309e-02_rb, &
+     &9.0490e-03_rb,4.6704e-03_rb,2.5095e-04_rb/)
+      kao(:, 3, 7,14) = (/ &
+     &3.4456e-02_rb,3.0149e-02_rb,2.5845e-02_rb,2.1540e-02_rb,1.7235e-02_rb,1.3185e-02_rb, &
+     &8.9735e-03_rb,5.4794e-03_rb,4.0737e-04_rb/)
+      kao(:, 4, 7,14) = (/ &
+     &3.1652e-02_rb,2.7700e-02_rb,2.3744e-02_rb,1.9792e-02_rb,1.6225e-02_rb,1.2450e-02_rb, &
+     &9.1363e-03_rb,7.6445e-03_rb,6.2917e-04_rb/)
+      kao(:, 5, 7,14) = (/ &
+     &2.9864e-02_rb,2.6135e-02_rb,2.2399e-02_rb,1.8923e-02_rb,1.5530e-02_rb,1.2143e-02_rb, &
+     &1.0151e-02_rb,1.1058e-02_rb,9.1130e-04_rb/)
+      kao(:, 1, 8,14) = (/ &
+     &1.3223e-01_rb,1.1571e-01_rb,9.9174e-02_rb,8.2651e-02_rb,6.6122e-02_rb,4.9592e-02_rb, &
+     &3.3063e-02_rb,1.6534e-02_rb,2.3921e-04_rb/)
+      kao(:, 2, 8,14) = (/ &
+     &1.2869e-01_rb,1.1260e-01_rb,9.6519e-02_rb,8.0434e-02_rb,6.4349e-02_rb,4.8263e-02_rb, &
+     &3.2179e-02_rb,1.6093e-02_rb,4.2965e-04_rb/)
+      kao(:, 3, 8,14) = (/ &
+     &1.2518e-01_rb,1.0953e-01_rb,9.3886e-02_rb,7.8243e-02_rb,6.2597e-02_rb,4.6952e-02_rb, &
+     &3.1306e-02_rb,1.5992e-02_rb,7.4452e-04_rb/)
+      kao(:, 4, 8,14) = (/ &
+     &1.2188e-01_rb,1.0664e-01_rb,9.1414e-02_rb,7.6180e-02_rb,6.0947e-02_rb,4.5714e-02_rb, &
+     &3.0548e-02_rb,1.5885e-02_rb,1.1502e-03_rb/)
+      kao(:, 5, 8,14) = (/ &
+     &1.1492e-01_rb,1.0055e-01_rb,8.6192e-02_rb,7.1832e-02_rb,5.7467e-02_rb,4.3105e-02_rb, &
+     &2.9610e-02_rb,1.5934e-02_rb,1.8646e-03_rb/)
+      kao(:, 1, 9,14) = (/ &
+     &9.2387e-01_rb,8.0839e-01_rb,6.9293e-01_rb,5.7740e-01_rb,4.6193e-01_rb,3.4646e-01_rb, &
+     &2.3098e-01_rb,1.1549e-01_rb,2.2371e-06_rb/)
+      kao(:, 2, 9,14) = (/ &
+     &9.0122e-01_rb,7.8856e-01_rb,6.7591e-01_rb,5.6327e-01_rb,4.5061e-01_rb,3.3795e-01_rb, &
+     &2.2531e-01_rb,1.1266e-01_rb,3.5853e-06_rb/)
+      kao(:, 3, 9,14) = (/ &
+     &8.7866e-01_rb,7.6881e-01_rb,6.5900e-01_rb,5.4913e-01_rb,4.3933e-01_rb,3.2948e-01_rb, &
+     &2.1967e-01_rb,1.0984e-01_rb,5.0567e-06_rb/)
+      kao(:, 4, 9,14) = (/ &
+     &8.5611e-01_rb,7.4910e-01_rb,6.4207e-01_rb,5.3506e-01_rb,4.2806e-01_rb,3.2105e-01_rb, &
+     &2.1404e-01_rb,1.0702e-01_rb,6.9838e-06_rb/)
+      kao(:, 5, 9,14) = (/ &
+     &8.3494e-01_rb,7.3059e-01_rb,6.2623e-01_rb,5.2185e-01_rb,4.1749e-01_rb,3.1312e-01_rb, &
+     &2.0874e-01_rb,1.0439e-01_rb,9.6651e-06_rb/)
+      kao(:, 1,10,14) = (/ &
+     &7.7336e+00_rb,6.7669e+00_rb,5.8002e+00_rb,4.8337e+00_rb,3.8667e+00_rb,2.9002e+00_rb, &
+     &1.9334e+00_rb,9.6674e-01_rb,1.4759e-06_rb/)
+      kao(:, 2,10,14) = (/ &
+     &7.5671e+00_rb,6.6210e+00_rb,5.6751e+00_rb,4.7295e+00_rb,3.7835e+00_rb,2.8377e+00_rb, &
+     &1.8919e+00_rb,9.4588e-01_rb,2.4483e-06_rb/)
+      kao(:, 3,10,14) = (/ &
+     &7.3934e+00_rb,6.4694e+00_rb,5.5449e+00_rb,4.6209e+00_rb,3.6964e+00_rb,2.7725e+00_rb, &
+     &1.8483e+00_rb,9.2413e-01_rb,3.6428e-06_rb/)
+      kao(:, 4,10,14) = (/ &
+     &7.2085e+00_rb,6.3072e+00_rb,5.4063e+00_rb,4.5053e+00_rb,3.6041e+00_rb,2.7031e+00_rb, &
+     &1.8022e+00_rb,9.0111e-01_rb,5.1643e-06_rb/)
+      kao(:, 5,10,14) = (/ &
+     &7.0344e+00_rb,6.1551e+00_rb,5.2759e+00_rb,4.3968e+00_rb,3.5172e+00_rb,2.6378e+00_rb, &
+     &1.7586e+00_rb,8.7933e-01_rb,7.2619e-06_rb/)
+      kao(:, 1,11,14) = (/ &
+     &2.1626e+01_rb,1.8923e+01_rb,1.6220e+01_rb,1.3516e+01_rb,1.0813e+01_rb,8.1097e+00_rb, &
+     &5.4065e+00_rb,2.7033e+00_rb,1.2148e-06_rb/)
+      kao(:, 2,11,14) = (/ &
+     &2.1170e+01_rb,1.8523e+01_rb,1.5877e+01_rb,1.3231e+01_rb,1.0585e+01_rb,7.9391e+00_rb, &
+     &5.2925e+00_rb,2.6462e+00_rb,1.9377e-06_rb/)
+      kao(:, 3,11,14) = (/ &
+     &2.0665e+01_rb,1.8082e+01_rb,1.5499e+01_rb,1.2916e+01_rb,1.0333e+01_rb,7.7495e+00_rb, &
+     &5.1662e+00_rb,2.5832e+00_rb,2.9701e-06_rb/)
+      kao(:, 4,11,14) = (/ &
+     &2.0140e+01_rb,1.7623e+01_rb,1.5106e+01_rb,1.2588e+01_rb,1.0071e+01_rb,7.5528e+00_rb, &
+     &5.0352e+00_rb,2.5176e+00_rb,4.4558e-06_rb/)
+      kao(:, 5,11,14) = (/ &
+     &1.9664e+01_rb,1.7206e+01_rb,1.4748e+01_rb,1.2290e+01_rb,9.8317e+00_rb,7.3738e+00_rb, &
+     &4.9159e+00_rb,2.4579e+00_rb,6.2661e-06_rb/)
+      kao(:, 1,12,14) = (/ &
+     &3.8270e+01_rb,3.3486e+01_rb,2.8703e+01_rb,2.3919e+01_rb,1.9135e+01_rb,1.4352e+01_rb, &
+     &9.5673e+00_rb,4.7836e+00_rb,1.1282e-06_rb/)
+      kao(:, 2,12,14) = (/ &
+     &3.7417e+01_rb,3.2741e+01_rb,2.8063e+01_rb,2.3387e+01_rb,1.8709e+01_rb,1.4031e+01_rb, &
+     &9.3545e+00_rb,4.6770e+00_rb,1.8527e-06_rb/)
+      kao(:, 3,12,14) = (/ &
+     &3.6489e+01_rb,3.1928e+01_rb,2.7367e+01_rb,2.2805e+01_rb,1.8244e+01_rb,1.3683e+01_rb, &
+     &9.1218e+00_rb,4.5610e+00_rb,2.7902e-06_rb/)
+      kao(:, 4,12,14) = (/ &
+     &3.5556e+01_rb,3.1112e+01_rb,2.6666e+01_rb,2.2223e+01_rb,1.7778e+01_rb,1.3333e+01_rb, &
+     &8.8890e+00_rb,4.4446e+00_rb,3.8795e-06_rb/)
+      kao(:, 5,12,14) = (/ &
+     &3.4682e+01_rb,3.0344e+01_rb,2.6011e+01_rb,2.1676e+01_rb,1.7341e+01_rb,1.3005e+01_rb, &
+     &8.6702e+00_rb,4.3349e+00_rb,5.0987e-06_rb/)
+      kao(:, 1,13,14) = (/ &
+     &5.4806e+01_rb,4.7955e+01_rb,4.1104e+01_rb,3.4254e+01_rb,2.7403e+01_rb,2.0551e+01_rb, &
+     &1.3701e+01_rb,6.8507e+00_rb,9.3782e-07_rb/)
+      kao(:, 2,13,14) = (/ &
+     &5.3507e+01_rb,4.6818e+01_rb,4.0130e+01_rb,3.3442e+01_rb,2.6753e+01_rb,2.0066e+01_rb, &
+     &1.3376e+01_rb,6.6886e+00_rb,1.6696e-06_rb/)
+      kao(:, 3,13,14) = (/ &
+     &5.2032e+01_rb,4.5528e+01_rb,3.9023e+01_rb,3.2519e+01_rb,2.6015e+01_rb,1.9512e+01_rb, &
+     &1.3008e+01_rb,6.5038e+00_rb,2.8850e-06_rb/)
+      kao(:, 4,13,14) = (/ &
+     &5.0622e+01_rb,4.4293e+01_rb,3.7966e+01_rb,3.1638e+01_rb,2.5310e+01_rb,1.8983e+01_rb, &
+     &1.2655e+01_rb,6.3275e+00_rb,4.3456e-06_rb/)
+      kao(:, 5,13,14) = (/ &
+     &4.9341e+01_rb,4.3174e+01_rb,3.7007e+01_rb,3.0838e+01_rb,2.4670e+01_rb,1.8503e+01_rb, &
+     &1.2335e+01_rb,6.1672e+00_rb,6.2672e-06_rb/)
+      kao(:, 1, 1,15) = (/ &
+     &9.0368e-05_rb,1.7587e-03_rb,3.4692e-03_rb,5.1215e-03_rb,6.6729e-03_rb,8.0447e-03_rb, &
+     &9.0360e-03_rb,8.9574e-03_rb,1.3337e-02_rb/)
+      kao(:, 2, 1,15) = (/ &
+     &8.5673e-05_rb,2.5288e-03_rb,4.9923e-03_rb,7.3709e-03_rb,9.6068e-03_rb,1.1588e-02_rb, &
+     &1.3021e-02_rb,1.2915e-02_rb,1.9203e-02_rb/)
+      kao(:, 3, 1,15) = (/ &
+     &7.5800e-05_rb,3.4920e-03_rb,6.8957e-03_rb,1.0184e-02_rb,1.3280e-02_rb,1.6021e-02_rb, &
+     &1.8010e-02_rb,1.7888e-02_rb,2.6548e-02_rb/)
+      kao(:, 4, 1,15) = (/ &
+     &6.6885e-05_rb,4.6582e-03_rb,9.2038e-03_rb,1.3596e-02_rb,1.7729e-02_rb,2.1393e-02_rb, &
+     &2.4064e-02_rb,2.3923e-02_rb,3.5446e-02_rb/)
+      kao(:, 5, 1,15) = (/ &
+     &2.9277e-05_rb,6.0336e-03_rb,1.1922e-02_rb,1.7611e-02_rb,2.2979e-02_rb,2.7733e-02_rb, &
+     &3.1220e-02_rb,3.1058e-02_rb,4.5944e-02_rb/)
+      kao(:, 1, 2,15) = (/ &
+     &1.6162e-04_rb,1.7658e-03_rb,3.4927e-03_rb,5.1816e-03_rb,6.8087e-03_rb,8.3146e-03_rb, &
+     &9.5542e-03_rb,9.9349e-03_rb,1.3602e-02_rb/)
+      kao(:, 2, 2,15) = (/ &
+     &1.4940e-04_rb,2.5810e-03_rb,5.1093e-03_rb,7.5846e-03_rb,9.9670e-03_rb,1.2178e-02_rb, &
+     &1.4000e-02_rb,1.4578e-02_rb,1.9917e-02_rb/)
+      kao(:, 3, 2,15) = (/ &
+     &1.4212e-04_rb,3.6142e-03_rb,7.1589e-03_rb,1.0631e-02_rb,1.3977e-02_rb,1.7085e-02_rb, &
+     &1.9645e-02_rb,2.0472e-02_rb,2.7934e-02_rb/)
+      kao(:, 4, 2,15) = (/ &
+     &1.2057e-04_rb,4.8773e-03_rb,9.6676e-03_rb,1.4359e-02_rb,1.8882e-02_rb,2.3081e-02_rb, &
+     &2.6561e-02_rb,2.7724e-02_rb,3.7741e-02_rb/)
+      kao(:, 5, 2,15) = (/ &
+     &6.0191e-05_rb,6.3788e-03_rb,1.2648e-02_rb,1.8790e-02_rb,2.4713e-02_rb,3.0224e-02_rb, &
+     &3.4797e-02_rb,3.6354e-02_rb,4.9402e-02_rb/)
+      kao(:, 1, 3,15) = (/ &
+     &4.4246e-04_rb,1.6142e-03_rb,3.1839e-03_rb,4.7378e-03_rb,6.2661e-03_rb,7.7441e-03_rb, &
+     &9.0975e-03_rb,1.0015e-02_rb,1.2497e-02_rb/)
+      kao(:, 2, 3,15) = (/ &
+     &3.8619e-04_rb,2.4195e-03_rb,4.7839e-03_rb,7.1249e-03_rb,9.4281e-03_rb,1.1657e-02_rb, &
+     &1.3699e-02_rb,1.5096e-02_rb,1.8815e-02_rb/)
+      kao(:, 3, 3,15) = (/ &
+     &3.7186e-04_rb,3.4615e-03_rb,6.8531e-03_rb,1.0215e-02_rb,1.3514e-02_rb,1.6722e-02_rb, &
+     &1.9664e-02_rb,2.1688e-02_rb,2.6981e-02_rb/)
+      kao(:, 4, 3,15) = (/ &
+     &3.4136e-04_rb,4.7556e-03_rb,9.4307e-03_rb,1.4062e-02_rb,1.8619e-02_rb,2.3030e-02_rb, &
+     &2.7098e-02_rb,2.9910e-02_rb,3.7185e-02_rb/)
+      kao(:, 5, 3,15) = (/ &
+     &2.7238e-04_rb,6.3154e-03_rb,1.2533e-02_rb,1.8695e-02_rb,2.4762e-02_rb,3.0640e-02_rb, &
+     &3.6060e-02_rb,3.9831e-02_rb,4.9464e-02_rb/)
+      kao(:, 1, 4,15) = (/ &
+     &1.8439e-03_rb,1.6255e-03_rb,2.7662e-03_rb,4.1011e-03_rb,5.4250e-03_rb,6.7307e-03_rb, &
+     &7.9903e-03_rb,9.0701e-03_rb,1.0766e-02_rb/)
+      kao(:, 2, 4,15) = (/ &
+     &1.2780e-03_rb,2.0382e-03_rb,4.2819e-03_rb,6.3618e-03_rb,8.4274e-03_rb,1.0464e-02_rb, &
+     &1.2431e-02_rb,1.4123e-02_rb,1.6753e-02_rb/)
+      kao(:, 3, 4,15) = (/ &
+     &1.0129e-03_rb,3.1935e-03_rb,6.2902e-03_rb,9.3615e-03_rb,1.2411e-02_rb,1.5417e-02_rb, &
+     &1.8325e-02_rb,2.0828e-02_rb,2.4703e-02_rb/)
+      kao(:, 4, 4,15) = (/ &
+     &9.5662e-04_rb,4.4942e-03_rb,8.8414e-03_rb,1.3166e-02_rb,1.7466e-02_rb,2.1716e-02_rb, &
+     &2.5826e-02_rb,2.9379e-02_rb,3.4795e-02_rb/)
+      kao(:, 5, 4,15) = (/ &
+     &7.9817e-04_rb,6.0664e-03_rb,1.1965e-02_rb,1.7841e-02_rb,2.3679e-02_rb,2.9437e-02_rb, &
+     &3.5012e-02_rb,3.9861e-02_rb,4.7202e-02_rb/)
+      kao(:, 1, 5,15) = (/ &
+     &5.1399e-03_rb,4.4963e-03_rb,3.8550e-03_rb,3.7300e-03_rb,4.5601e-03_rb,5.6445e-03_rb, &
+     &6.7084e-03_rb,7.7027e-03_rb,8.9288e-03_rb/)
+      kao(:, 2, 5,15) = (/ &
+     &4.9517e-03_rb,4.3316e-03_rb,4.1416e-03_rb,5.5566e-03_rb,7.3222e-03_rb,9.0762e-03_rb, &
+     &1.0805e-02_rb,1.2425e-02_rb,1.4409e-02_rb/)
+      kao(:, 3, 5,15) = (/ &
+     &3.6157e-03_rb,3.1633e-03_rb,5.3630e-03_rb,8.3885e-03_rb,1.1080e-02_rb,1.3756e-02_rb, &
+     &1.6391e-02_rb,1.8868e-02_rb,2.1878e-02_rb/)
+      kao(:, 4, 5,15) = (/ &
+     &2.5485e-03_rb,3.2448e-03_rb,8.0168e-03_rb,1.2065e-02_rb,1.5959e-02_rb,1.9835e-02_rb, &
+     &2.3656e-02_rb,2.7245e-02_rb,3.1588e-02_rb/)
+      kao(:, 5, 5,15) = (/ &
+     &2.2002e-03_rb,3.7004e-03_rb,1.1229e-02_rb,1.6648e-02_rb,2.2051e-02_rb,2.7414e-02_rb, &
+     &3.2714e-02_rb,3.7713e-02_rb,4.3725e-02_rb/)
+      kao(:, 1, 6,15) = (/ &
+     &1.3785e-02_rb,1.2061e-02_rb,1.0339e-02_rb,8.6158e-03_rb,6.8942e-03_rb,5.5266e-03_rb, &
+     &5.3843e-03_rb,6.1361e-03_rb,7.0081e-03_rb/)
+      kao(:, 2, 6,15) = (/ &
+     &1.3401e-02_rb,1.1726e-02_rb,1.0052e-02_rb,8.3774e-03_rb,7.3256e-03_rb,7.6626e-03_rb, &
+     &8.9483e-03_rb,1.0302e-02_rb,1.1787e-02_rb/)
+      kao(:, 3, 6,15) = (/ &
+     &1.3001e-02_rb,1.1375e-02_rb,9.7516e-03_rb,8.8385e-03_rb,9.7753e-03_rb,1.1803e-02_rb, &
+     &1.4015e-02_rb,1.6165e-02_rb,1.8521e-02_rb/)
+      kao(:, 4, 6,15) = (/ &
+     &1.0311e-02_rb,9.0242e-03_rb,7.7593e-03_rb,9.8758e-03_rb,1.4142e-02_rb,1.7458e-02_rb, &
+     &2.0764e-02_rb,2.3987e-02_rb,2.7500e-02_rb/)
+      kao(:, 5, 6,15) = (/ &
+     &6.1007e-03_rb,5.3334e-03_rb,8.4379e-03_rb,1.3947e-02_rb,1.9967e-02_rb,2.4665e-02_rb, &
+     &2.9359e-02_rb,3.3960e-02_rb,3.8947e-02_rb/)
+      kao(:, 1, 7,15) = (/ &
+     &3.9607e-02_rb,3.4655e-02_rb,2.9704e-02_rb,2.4754e-02_rb,1.9804e-02_rb,1.4853e-02_rb, &
+     &9.9024e-03_rb,5.6087e-03_rb,4.7437e-03_rb/)
+      kao(:, 2, 7,15) = (/ &
+     &3.8786e-02_rb,3.3939e-02_rb,2.9089e-02_rb,2.4244e-02_rb,1.9395e-02_rb,1.4546e-02_rb, &
+     &1.0087e-02_rb,8.3483e-03_rb,8.1480e-03_rb/)
+      kao(:, 3, 7,15) = (/ &
+     &3.7941e-02_rb,3.3203e-02_rb,2.8458e-02_rb,2.3715e-02_rb,1.8973e-02_rb,1.4624e-02_rb, &
+     &1.2669e-02_rb,1.3455e-02_rb,1.2971e-02_rb/)
+      kao(:, 4, 7,15) = (/ &
+     &3.7052e-02_rb,3.2423e-02_rb,2.7792e-02_rb,2.3160e-02_rb,1.8933e-02_rb,1.7157e-02_rb, &
+     &1.8083e-02_rb,2.0593e-02_rb,1.9406e-02_rb/)
+      kao(:, 5, 7,15) = (/ &
+     &3.1592e-02_rb,2.7646e-02_rb,2.3693e-02_rb,2.0299e-02_rb,1.8491e-02_rb,2.1228e-02_rb, &
+     &2.6244e-02_rb,2.9985e-02_rb,2.7520e-02_rb/)
+      kao(:, 1, 8,15) = (/ &
+     &1.4580e-01_rb,1.2758e-01_rb,1.0936e-01_rb,9.1128e-02_rb,7.2910e-02_rb,5.4675e-02_rb, &
+     &3.6454e-02_rb,1.8228e-02_rb,7.5823e-04_rb/)
+      kao(:, 2, 8,15) = (/ &
+     &1.4341e-01_rb,1.2548e-01_rb,1.0755e-01_rb,8.9631e-02_rb,7.1703e-02_rb,5.3780e-02_rb, &
+     &3.5854e-02_rb,1.7928e-02_rb,1.3701e-03_rb/)
+      kao(:, 3, 8,15) = (/ &
+     &1.4083e-01_rb,1.2323e-01_rb,1.0562e-01_rb,8.8019e-02_rb,7.0413e-02_rb,5.2809e-02_rb, &
+     &3.5210e-02_rb,1.8039e-02_rb,2.2984e-03_rb/)
+      kao(:, 4, 8,15) = (/ &
+     &1.3806e-01_rb,1.2080e-01_rb,1.0354e-01_rb,8.6290e-02_rb,6.9028e-02_rb,5.1771e-02_rb, &
+     &3.4515e-02_rb,2.0878e-02_rb,3.6182e-03_rb/)
+      kao(:, 5, 8,15) = (/ &
+     &1.3508e-01_rb,1.1820e-01_rb,1.0132e-01_rb,8.4431e-02_rb,6.7546e-02_rb,5.0657e-02_rb, &
+     &3.5330e-02_rb,2.7298e-02_rb,5.3909e-03_rb/)
+      kao(:, 1, 9,15) = (/ &
+     &1.0374e+00_rb,9.0767e-01_rb,7.7802e-01_rb,6.4832e-01_rb,5.1864e-01_rb,3.8900e-01_rb, &
+     &2.5933e-01_rb,1.2966e-01_rb,2.1397e-06_rb/)
+      kao(:, 2, 9,15) = (/ &
+     &1.0197e+00_rb,8.9224e-01_rb,7.6478e-01_rb,6.3733e-01_rb,5.0988e-01_rb,3.8239e-01_rb, &
+     &2.5493e-01_rb,1.2747e-01_rb,3.4826e-06_rb/)
+      kao(:, 3, 9,15) = (/ &
+     &1.0031e+00_rb,8.7777e-01_rb,7.5240e-01_rb,6.2700e-01_rb,5.0158e-01_rb,3.7619e-01_rb, &
+     &2.5081e-01_rb,1.2540e-01_rb,5.6811e-06_rb/)
+      kao(:, 4, 9,15) = (/ &
+     &9.8558e-01_rb,8.6233e-01_rb,7.3918e-01_rb,6.1597e-01_rb,4.9277e-01_rb,3.6960e-01_rb, &
+     &2.4641e-01_rb,1.2320e-01_rb,9.7907e-06_rb/)
+      kao(:, 5, 9,15) = (/ &
+     &9.6612e-01_rb,8.4542e-01_rb,7.2465e-01_rb,6.0387e-01_rb,4.8310e-01_rb,3.6231e-01_rb, &
+     &2.4155e-01_rb,1.2077e-01_rb,1.4737e-05_rb/)
+      kao(:, 1,10,15) = (/ &
+     &8.9111e+00_rb,7.7969e+00_rb,6.6836e+00_rb,5.5691e+00_rb,4.4554e+00_rb,3.3414e+00_rb, &
+     &2.2275e+00_rb,1.1138e+00_rb,1.1507e-06_rb/)
+      kao(:, 2,10,15) = (/ &
+     &8.7649e+00_rb,7.6684e+00_rb,6.5728e+00_rb,5.4777e+00_rb,4.3822e+00_rb,3.2866e+00_rb, &
+     &2.1910e+00_rb,1.0955e+00_rb,1.9584e-06_rb/)
+      kao(:, 3,10,15) = (/ &
+     &8.6133e+00_rb,7.5361e+00_rb,6.4598e+00_rb,5.3829e+00_rb,4.3064e+00_rb,3.2299e+00_rb, &
+     &2.1532e+00_rb,1.0766e+00_rb,3.2367e-06_rb/)
+      kao(:, 4,10,15) = (/ &
+     &8.4534e+00_rb,7.3969e+00_rb,6.3406e+00_rb,5.2836e+00_rb,4.2270e+00_rb,3.1701e+00_rb, &
+     &2.1135e+00_rb,1.0568e+00_rb,5.5316e-06_rb/)
+      kao(:, 5,10,15) = (/ &
+     &8.2801e+00_rb,7.2444e+00_rb,6.2095e+00_rb,5.1748e+00_rb,4.1398e+00_rb,3.1049e+00_rb, &
+     &2.0699e+00_rb,1.0350e+00_rb,8.6177e-06_rb/)
+      kao(:, 1,11,15) = (/ &
+     &2.5435e+01_rb,2.2258e+01_rb,1.9079e+01_rb,1.5898e+01_rb,1.2719e+01_rb,9.5392e+00_rb, &
+     &6.3596e+00_rb,3.1798e+00_rb,8.0677e-07_rb/)
+      kao(:, 2,11,15) = (/ &
+     &2.5109e+01_rb,2.1970e+01_rb,1.8832e+01_rb,1.5693e+01_rb,1.2554e+01_rb,9.4153e+00_rb, &
+     &6.2771e+00_rb,3.1385e+00_rb,1.4119e-06_rb/)
+      kao(:, 3,11,15) = (/ &
+     &2.4708e+01_rb,2.1620e+01_rb,1.8532e+01_rb,1.5442e+01_rb,1.2355e+01_rb,9.2660e+00_rb, &
+     &6.1771e+00_rb,3.0885e+00_rb,2.4283e-06_rb/)
+      kao(:, 4,11,15) = (/ &
+     &2.4206e+01_rb,2.1181e+01_rb,1.8155e+01_rb,1.5130e+01_rb,1.2103e+01_rb,9.0784e+00_rb, &
+     &6.0520e+00_rb,3.0256e+00_rb,3.8467e-06_rb/)
+      kao(:, 5,11,15) = (/ &
+     &2.3645e+01_rb,2.0690e+01_rb,1.7735e+01_rb,1.4778e+01_rb,1.1822e+01_rb,8.8671e+00_rb, &
+     &5.9114e+00_rb,2.9557e+00_rb,6.2945e-06_rb/)
+      kao(:, 1,12,15) = (/ &
+     &4.5821e+01_rb,4.0093e+01_rb,3.4365e+01_rb,2.8640e+01_rb,2.2910e+01_rb,1.7183e+01_rb, &
+     &1.1455e+01_rb,5.7277e+00_rb,5.6905e-07_rb/)
+      kao(:, 2,12,15) = (/ &
+     &4.5215e+01_rb,3.9561e+01_rb,3.3912e+01_rb,2.8260e+01_rb,2.2608e+01_rb,1.6955e+01_rb, &
+     &1.1304e+01_rb,5.6520e+00_rb,1.0466e-06_rb/)
+      kao(:, 3,12,15) = (/ &
+     &4.4441e+01_rb,3.8886e+01_rb,3.3332e+01_rb,2.7776e+01_rb,2.2220e+01_rb,1.6665e+01_rb, &
+     &1.1110e+01_rb,5.5552e+00_rb,1.8066e-06_rb/)
+      kao(:, 4,12,15) = (/ &
+     &4.3598e+01_rb,3.8150e+01_rb,3.2698e+01_rb,2.7250e+01_rb,2.1798e+01_rb,1.6350e+01_rb, &
+     &1.0900e+01_rb,5.4499e+00_rb,2.8751e-06_rb/)
+      kao(:, 5,12,15) = (/ &
+     &4.2666e+01_rb,3.7332e+01_rb,3.2000e+01_rb,2.6665e+01_rb,2.1333e+01_rb,1.6001e+01_rb, &
+     &1.0666e+01_rb,5.3333e+00_rb,4.5303e-06_rb/)
+      kao(:, 1,13,15) = (/ &
+     &6.6305e+01_rb,5.8017e+01_rb,4.9731e+01_rb,4.1443e+01_rb,3.3153e+01_rb,2.4866e+01_rb, &
+     &1.6576e+01_rb,8.2888e+00_rb,6.5868e-07_rb/)
+      kao(:, 2,13,15) = (/ &
+     &6.5425e+01_rb,5.7245e+01_rb,4.9068e+01_rb,4.0889e+01_rb,3.2711e+01_rb,2.4534e+01_rb, &
+     &1.6356e+01_rb,8.1783e+00_rb,1.0770e-06_rb/)
+      kao(:, 3,13,15) = (/ &
+     &6.4452e+01_rb,5.6397e+01_rb,4.8336e+01_rb,4.0283e+01_rb,3.2227e+01_rb,2.4169e+01_rb, &
+     &1.6113e+01_rb,8.0564e+00_rb,1.3521e-06_rb/)
+      kao(:, 4,13,15) = (/ &
+     &6.3313e+01_rb,5.5397e+01_rb,4.7486e+01_rb,3.9571e+01_rb,3.1655e+01_rb,2.3741e+01_rb, &
+     &1.5828e+01_rb,7.9140e+00_rb,2.2152e-06_rb/)
+      kao(:, 5,13,15) = (/ &
+     &6.1963e+01_rb,5.4219e+01_rb,4.6473e+01_rb,3.8726e+01_rb,3.0982e+01_rb,2.3236e+01_rb, &
+     &1.5490e+01_rb,7.7450e+00_rb,3.4066e-06_rb/)
+      kao(:, 1, 1,16) = (/ &
+     &8.8773e-05_rb,1.9140e-03_rb,3.7690e-03_rb,5.5469e-03_rb,7.2016e-03_rb,8.6351e-03_rb, &
+     &9.6093e-03_rb,9.3558e-03_rb,1.4394e-02_rb/)
+      kao(:, 2, 1,16) = (/ &
+     &8.4216e-05_rb,2.7660e-03_rb,5.4492e-03_rb,8.0218e-03_rb,1.0416e-02_rb,1.2486e-02_rb, &
+     &1.3893e-02_rb,1.3527e-02_rb,2.0822e-02_rb/)
+      kao(:, 3, 1,16) = (/ &
+     &8.0290e-05_rb,3.8383e-03_rb,7.5630e-03_rb,1.1136e-02_rb,1.4457e-02_rb,1.7334e-02_rb, &
+     &1.9290e-02_rb,1.8781e-02_rb,2.8902e-02_rb/)
+      kao(:, 4, 1,16) = (/ &
+     &7.6611e-05_rb,5.1452e-03_rb,1.0139e-02_rb,1.4930e-02_rb,1.9392e-02_rb,2.3248e-02_rb, &
+     &2.5870e-02_rb,2.5185e-02_rb,3.8771e-02_rb/)
+      kao(:, 5, 1,16) = (/ &
+     &7.3163e-05_rb,6.6935e-03_rb,1.3197e-02_rb,1.9435e-02_rb,2.5235e-02_rb,3.0263e-02_rb, &
+     &3.3675e-02_rb,3.2771e-02_rb,5.0455e-02_rb/)
+      kao(:, 1, 2,16) = (/ &
+     &1.5679e-04_rb,1.9888e-03_rb,3.9277e-03_rb,5.8149e-03_rb,7.6126e-03_rb,9.2475e-03_rb, &
+     &1.0521e-02_rb,1.0714e-02_rb,1.5210e-02_rb/)
+      kao(:, 2, 2,16) = (/ &
+     &1.4773e-04_rb,2.9274e-03_rb,5.7862e-03_rb,8.5677e-03_rb,1.1217e-02_rb,1.3627e-02_rb, &
+     &1.5504e-02_rb,1.5787e-02_rb,2.2417e-02_rb/)
+      kao(:, 3, 2,16) = (/ &
+     &1.4025e-04_rb,4.1262e-03_rb,8.1606e-03_rb,1.2085e-02_rb,1.5823e-02_rb,1.9223e-02_rb, &
+     &2.1876e-02_rb,2.2273e-02_rb,3.1626e-02_rb/)
+      kao(:, 4, 2,16) = (/ &
+     &1.3354e-04_rb,5.6053e-03_rb,1.1089e-02_rb,1.6429e-02_rb,2.1516e-02_rb,2.6138e-02_rb, &
+     &2.9742e-02_rb,3.0283e-02_rb,4.3010e-02_rb/)
+      kao(:, 5, 2,16) = (/ &
+     &1.2725e-04_rb,7.3793e-03_rb,1.4605e-02_rb,2.1632e-02_rb,2.8334e-02_rb,3.4423e-02_rb, &
+     &3.9175e-02_rb,3.9879e-02_rb,5.6642e-02_rb/)
+      kao(:, 1, 3,16) = (/ &
+     &4.1725e-04_rb,1.8982e-03_rb,3.7447e-03_rb,5.5658e-03_rb,7.3458e-03_rb,9.0433e-03_rb, &
+     &1.0548e-02_rb,1.1397e-02_rb,1.4655e-02_rb/)
+      kao(:, 2, 3,16) = (/ &
+     &3.9098e-04_rb,2.8734e-03_rb,5.6787e-03_rb,8.4482e-03_rb,1.1153e-02_rb,1.3733e-02_rb, &
+     &1.6021e-02_rb,1.7312e-02_rb,2.2262e-02_rb/)
+      kao(:, 3, 3,16) = (/ &
+     &3.4851e-04_rb,4.1474e-03_rb,8.2100e-03_rb,1.2218e-02_rb,1.6131e-02_rb,1.9869e-02_rb, &
+     &2.3184e-02_rb,2.5055e-02_rb,3.2211e-02_rb/)
+      kao(:, 4, 3,16) = (/ &
+     &3.3110e-04_rb,5.7507e-03_rb,1.1396e-02_rb,1.6965e-02_rb,2.2409e-02_rb,2.7601e-02_rb, &
+     &3.2208e-02_rb,3.4575e-02_rb,4.4760e-02_rb/)
+      kao(:, 5, 3,16) = (/ &
+     &3.1495e-04_rb,7.7054e-03_rb,1.5281e-02_rb,2.2758e-02_rb,3.0062e-02_rb,3.7025e-02_rb, &
+     &4.3208e-02_rb,4.6704e-02_rb,6.0059e-02_rb/)
+      kao(:, 1, 4,16) = (/ &
+     &1.7281e-03_rb,1.7667e-03_rb,3.4371e-03_rb,5.0959e-03_rb,6.7367e-03_rb,8.3430e-03_rb, &
+     &9.8600e-03_rb,1.1050e-02_rb,1.3383e-02_rb/)
+      kao(:, 2, 4,16) = (/ &
+     &1.1628e-03_rb,2.7537e-03_rb,5.3881e-03_rb,8.0069e-03_rb,1.0596e-02_rb,1.3125e-02_rb, &
+     &1.5518e-02_rb,1.7399e-02_rb,2.1083e-02_rb/)
+      kao(:, 3, 4,16) = (/ &
+     &1.1124e-03_rb,4.0786e-03_rb,8.0137e-03_rb,1.1921e-02_rb,1.5788e-02_rb,1.9566e-02_rb, &
+     &2.3141e-02_rb,2.5952e-02_rb,3.1447e-02_rb/)
+      kao(:, 4, 4,16) = (/ &
+     &1.0810e-03_rb,5.7837e-03_rb,1.1394e-02_rb,1.6970e-02_rb,2.2483e-02_rb,2.7876e-02_rb, &
+     &3.2974e-02_rb,3.6985e-02_rb,4.4815e-02_rb/)
+      kao(:, 5, 4,16) = (/ &
+     &9.9376e-04_rb,7.9012e-03_rb,1.5599e-02_rb,2.3249e-02_rb,3.0813e-02_rb,3.8207e-02_rb, &
+     &4.5202e-02_rb,5.0705e-02_rb,6.1455e-02_rb/)
+      kao(:, 1, 5,16) = (/ &
+     &5.4114e-03_rb,4.7354e-03_rb,4.0587e-03_rb,4.6142e-03_rb,6.0695e-03_rb,7.5080e-03_rb, &
+     &8.9059e-03_rb,1.0147e-02_rb,1.1928e-02_rb/)
+      kao(:, 2, 5,16) = (/ &
+     &5.1867e-03_rb,4.5542e-03_rb,5.0981e-03_rb,7.5059e-03_rb,9.9017e-03_rb,1.2267e-02_rb, &
+     &1.4567e-02_rb,1.6610e-02_rb,1.9542e-02_rb/)
+      kao(:, 3, 5,16) = (/ &
+     &3.0269e-03_rb,2.6488e-03_rb,7.7938e-03_rb,1.1517e-02_rb,1.5221e-02_rb,1.8876e-02_rb, &
+     &2.2431e-02_rb,2.5594e-02_rb,3.0125e-02_rb/)
+      kao(:, 4, 5,16) = (/ &
+     &2.9184e-03_rb,2.5534e-03_rb,1.1353e-02_rb,1.6816e-02_rb,2.2248e-02_rb,2.7623e-02_rb, &
+     &3.2847e-02_rb,3.7486e-02_rb,4.4122e-02_rb/)
+      kao(:, 5, 5,16) = (/ &
+     &2.8186e-03_rb,8.1567e-03_rb,1.5865e-02_rb,2.3545e-02_rb,3.1185e-02_rb,3.8732e-02_rb, &
+     &4.6076e-02_rb,5.2599e-02_rb,6.1936e-02_rb/)
+      kao(:, 1, 6,16) = (/ &
+     &1.4590e-02_rb,1.2765e-02_rb,1.0941e-02_rb,9.1186e-03_rb,7.2947e-03_rb,6.5373e-03_rb, &
+     &7.7212e-03_rb,8.8306e-03_rb,1.0195e-02_rb/)
+      kao(:, 2, 6,16) = (/ &
+     &1.4301e-02_rb,1.2513e-02_rb,1.0724e-02_rb,8.9392e-03_rb,9.0428e-03_rb,1.1132e-02_rb, &
+     &1.3188e-02_rb,1.5117e-02_rb,1.7482e-02_rb/)
+      kao(:, 3, 6,16) = (/ &
+     &1.3976e-02_rb,1.2228e-02_rb,1.0485e-02_rb,1.0970e-02_rb,1.4363e-02_rb,1.7735e-02_rb, &
+     &2.1052e-02_rb,2.4167e-02_rb,2.7980e-02_rb/)
+      kao(:, 4, 6,16) = (/ &
+     &7.5839e-03_rb,6.6346e-03_rb,9.3364e-03_rb,1.6444e-02_rb,2.1598e-02_rb,2.6720e-02_rb, &
+     &3.1771e-02_rb,3.6510e-02_rb,4.2297e-02_rb/)
+      kao(:, 5, 6,16) = (/ &
+     &7.3499e-03_rb,6.4297e-03_rb,1.6063e-02_rb,2.3546e-02_rb,3.1010e-02_rb,3.8427e-02_rb, &
+     &4.5729e-02_rb,5.2589e-02_rb,6.0961e-02_rb/)
+      kao(:, 1, 7,16) = (/ &
+     &4.2002e-02_rb,3.6747e-02_rb,3.1501e-02_rb,2.6251e-02_rb,2.1002e-02_rb,1.5754e-02_rb, &
+     &1.0500e-02_rb,7.5058e-03_rb,8.4905e-03_rb/)
+      kao(:, 2, 7,16) = (/ &
+     &4.1348e-02_rb,3.6182e-02_rb,3.1017e-02_rb,2.5842e-02_rb,2.0675e-02_rb,1.5509e-02_rb, &
+     &1.1819e-02_rb,1.3466e-02_rb,1.5310e-02_rb/)
+      kao(:, 3, 7,16) = (/ &
+     &4.0563e-02_rb,3.5489e-02_rb,3.0424e-02_rb,2.5351e-02_rb,2.0286e-02_rb,1.6643e-02_rb, &
+     &1.9563e-02_rb,2.2386e-02_rb,2.5539e-02_rb/)
+      kao(:, 4, 7,16) = (/ &
+     &3.9401e-02_rb,3.4717e-02_rb,2.9752e-02_rb,2.4793e-02_rb,2.1115e-02_rb,2.5798e-02_rb, &
+     &3.0449e-02_rb,3.4941e-02_rb,3.9945e-02_rb/)
+      kao(:, 5, 7,16) = (/ &
+     &2.0373e-02_rb,1.7827e-02_rb,1.5278e-02_rb,1.2733e-02_rb,3.0987e-02_rb,3.8017e-02_rb, &
+     &4.4987e-02_rb,5.1736e-02_rb,5.9242e-02_rb/)
+      kao(:, 1, 8,16) = (/ &
+     &1.5400e-01_rb,1.3474e-01_rb,1.1553e-01_rb,9.6239e-02_rb,7.7005e-02_rb,5.7761e-02_rb, &
+     &3.8504e-02_rb,1.9252e-02_rb,6.9298e-03_rb/)
+      kao(:, 2, 8,16) = (/ &
+     &1.5231e-01_rb,1.3330e-01_rb,1.1425e-01_rb,9.5219e-02_rb,7.6158e-02_rb,5.7117e-02_rb, &
+     &3.8082e-02_rb,1.9041e-02_rb,1.3109e-02_rb/)
+      kao(:, 3, 8,16) = (/ &
+     &1.4996e-01_rb,1.3122e-01_rb,1.1247e-01_rb,9.3714e-02_rb,7.4984e-02_rb,5.6235e-02_rb, &
+     &3.7492e-02_rb,2.0794e-02_rb,2.1673e-02_rb/)
+      kao(:, 4, 8,16) = (/ &
+     &1.4710e-01_rb,1.2871e-01_rb,1.1034e-01_rb,9.1947e-02_rb,7.3562e-02_rb,5.5161e-02_rb, &
+     &3.6783e-02_rb,3.3457e-02_rb,3.2749e-02_rb/)
+      kao(:, 5, 8,16) = (/ &
+     &1.4389e-01_rb,1.2590e-01_rb,1.0792e-01_rb,8.9927e-02_rb,7.1955e-02_rb,5.3965e-02_rb, &
+     &4.4963e-02_rb,5.0849e-02_rb,4.4095e-02_rb/)
+      kao(:, 1, 9,16) = (/ &
+     &1.0859e+00_rb,9.5014e-01_rb,8.1454e-01_rb,6.7879e-01_rb,5.4303e-01_rb,4.0724e-01_rb, &
+     &2.7149e-01_rb,1.3574e-01_rb,5.1220e-06_rb/)
+      kao(:, 2, 9,16) = (/ &
+     &1.0768e+00_rb,9.4216e-01_rb,8.0759e-01_rb,6.7299e-01_rb,5.3840e-01_rb,4.0381e-01_rb, &
+     &2.6917e-01_rb,1.3460e-01_rb,1.2021e-05_rb/)
+      kao(:, 3, 9,16) = (/ &
+     &1.0636e+00_rb,9.3068e-01_rb,7.9788e-01_rb,6.6477e-01_rb,5.3197e-01_rb,3.9888e-01_rb, &
+     &2.6599e-01_rb,1.3299e-01_rb,2.0747e-05_rb/)
+      kao(:, 4, 9,16) = (/ &
+     &1.0462e+00_rb,9.1536e-01_rb,7.8477e-01_rb,6.5394e-01_rb,5.2317e-01_rb,3.9241e-01_rb, &
+     &2.6164e-01_rb,1.3081e-01_rb,2.6757e-05_rb/)
+      kao(:, 5, 9,16) = (/ &
+     &1.0256e+00_rb,8.9712e-01_rb,7.6891e-01_rb,6.4089e-01_rb,5.1277e-01_rb,3.8454e-01_rb, &
+     &2.5635e-01_rb,1.2820e-01_rb,3.3237e-05_rb/)
+      kao(:, 1,10,16) = (/ &
+     &9.2943e+00_rb,8.1330e+00_rb,6.9713e+00_rb,5.8089e+00_rb,4.6478e+00_rb,3.4621e+00_rb, &
+     &2.3237e+00_rb,1.1620e+00_rb,2.5199e-06_rb/)
+      kao(:, 2,10,16) = (/ &
+     &9.1327e+00_rb,7.9905e+00_rb,6.8491e+00_rb,5.7077e+00_rb,4.5656e+00_rb,3.4245e+00_rb, &
+     &2.2832e+00_rb,1.1416e+00_rb,6.1820e-06_rb/)
+      kao(:, 3,10,16) = (/ &
+     &9.0419e+00_rb,7.9114e+00_rb,6.7812e+00_rb,5.6501e+00_rb,4.5208e+00_rb,3.3897e+00_rb, &
+     &2.2603e+00_rb,1.1303e+00_rb,1.2253e-05_rb/)
+      kao(:, 4,10,16) = (/ &
+     &8.9128e+00_rb,7.7986e+00_rb,6.6845e+00_rb,5.5708e+00_rb,4.4561e+00_rb,3.3428e+00_rb, &
+     &2.2285e+00_rb,1.1142e+00_rb,1.7974e-05_rb/)
+      kao(:, 5,10,16) = (/ &
+     &8.7796e+00_rb,7.6831e+00_rb,6.5851e+00_rb,5.4876e+00_rb,4.3892e+00_rb,3.2921e+00_rb, &
+     &2.1948e+00_rb,1.0975e+00_rb,2.4232e-05_rb/)
+      kao(:, 1,11,16) = (/ &
+     &2.7588e+01_rb,2.4141e+01_rb,2.0693e+01_rb,1.7244e+01_rb,1.3795e+01_rb,1.0345e+01_rb, &
+     &6.8978e+00_rb,3.4484e+00_rb,2.0595e-06_rb/)
+      kao(:, 2,11,16) = (/ &
+     &2.6657e+01_rb,2.3323e+01_rb,1.9991e+01_rb,1.6660e+01_rb,1.3327e+01_rb,9.9952e+00_rb, &
+     &6.6638e+00_rb,3.3322e+00_rb,4.7312e-06_rb/)
+      kao(:, 3,11,16) = (/ &
+     &2.5989e+01_rb,2.2740e+01_rb,1.9493e+01_rb,1.6242e+01_rb,1.2994e+01_rb,9.7462e+00_rb, &
+     &6.4977e+00_rb,3.2488e+00_rb,8.7718e-06_rb/)
+      kao(:, 4,11,16) = (/ &
+     &2.5704e+01_rb,2.2492e+01_rb,1.9279e+01_rb,1.6066e+01_rb,1.2854e+01_rb,9.6403e+00_rb, &
+     &6.4266e+00_rb,3.2130e+00_rb,1.4050e-05_rb/)
+      kao(:, 5,11,16) = (/ &
+     &2.5636e+01_rb,2.2431e+01_rb,1.9229e+01_rb,1.6023e+01_rb,1.2819e+01_rb,9.6138e+00_rb, &
+     &6.4100e+00_rb,3.2046e+00_rb,1.9441e-05_rb/)
+      kao(:, 1,12,16) = (/ &
+     &5.2064e+01_rb,4.5551e+01_rb,3.9046e+01_rb,3.2542e+01_rb,2.6032e+01_rb,1.9524e+01_rb, &
+     &1.3016e+01_rb,6.5078e+00_rb,1.7091e-06_rb/)
+      kao(:, 2,12,16) = (/ &
+     &5.0183e+01_rb,4.3912e+01_rb,3.7638e+01_rb,3.1363e+01_rb,2.5091e+01_rb,1.8819e+01_rb, &
+     &1.2545e+01_rb,6.2729e+00_rb,3.7298e-06_rb/)
+      kao(:, 3,12,16) = (/ &
+     &4.8961e+01_rb,4.2840e+01_rb,3.6719e+01_rb,3.0598e+01_rb,2.4478e+01_rb,1.8358e+01_rb, &
+     &1.2239e+01_rb,6.1197e+00_rb,6.4267e-06_rb/)
+      kao(:, 4,12,16) = (/ &
+     &4.8192e+01_rb,4.2165e+01_rb,3.6143e+01_rb,3.0118e+01_rb,2.4096e+01_rb,1.8071e+01_rb, &
+     &1.2047e+01_rb,6.0236e+00_rb,1.0438e-05_rb/)
+      kao(:, 5,12,16) = (/ &
+     &4.7950e+01_rb,4.1951e+01_rb,3.5955e+01_rb,2.9964e+01_rb,2.3968e+01_rb,1.7977e+01_rb, &
+     &1.1985e+01_rb,5.9924e+00_rb,1.5532e-05_rb/)
+      kao(:, 1,13,16) = (/ &
+     &7.9237e+01_rb,6.9320e+01_rb,5.9418e+01_rb,4.9515e+01_rb,3.9615e+01_rb,2.9712e+01_rb, &
+     &1.9806e+01_rb,9.9046e+00_rb,1.3997e-06_rb/)
+      kao(:, 2,13,16) = (/ &
+     &7.6481e+01_rb,6.6913e+01_rb,5.7358e+01_rb,4.7795e+01_rb,3.8238e+01_rb,2.8679e+01_rb, &
+     &1.9119e+01_rb,9.5593e+00_rb,2.8864e-06_rb/)
+      kao(:, 3,13,16) = (/ &
+     &7.4663e+01_rb,6.5336e+01_rb,5.5998e+01_rb,4.6664e+01_rb,3.7331e+01_rb,2.7999e+01_rb, &
+     &1.8666e+01_rb,9.3324e+00_rb,4.8512e-06_rb/)
+      kao(:, 4,13,16) = (/ &
+     &7.3334e+01_rb,6.4170e+01_rb,5.5002e+01_rb,4.5830e+01_rb,3.6668e+01_rb,2.7499e+01_rb, &
+     &1.8332e+01_rb,9.1667e+00_rb,7.8505e-06_rb/)
+      kao(:, 5,13,16) = (/ &
+     &7.2543e+01_rb,6.3471e+01_rb,5.4398e+01_rb,4.5335e+01_rb,3.6267e+01_rb,2.7201e+01_rb, &
+     &1.8133e+01_rb,9.0671e+00_rb,1.1235e-05_rb/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:,13, 1) = (/ &
+     &6.2747e-02_rb,8.6102e-02_rb,1.1568e-01_rb,1.5208e-01_rb,1.9535e-01_rb/)
+      kbo(:,14, 1) = (/ &
+     &5.7861e-02_rb,7.9151e-02_rb,1.0594e-01_rb,1.3846e-01_rb,1.7643e-01_rb/)
+      kbo(:,15, 1) = (/ &
+     &5.3092e-02_rb,7.2482e-02_rb,9.6781e-02_rb,1.2588e-01_rb,1.5918e-01_rb/)
+      kbo(:,16, 1) = (/ &
+     &4.8457e-02_rb,6.6047e-02_rb,8.7760e-02_rb,1.1351e-01_rb,1.4288e-01_rb/)
+      kbo(:,17, 1) = (/ &
+     &4.3912e-02_rb,5.9676e-02_rb,7.8923e-02_rb,1.0151e-01_rb,1.2709e-01_rb/)
+      kbo(:,18, 1) = (/ &
+     &3.9426e-02_rb,5.3365e-02_rb,7.0341e-02_rb,8.9953e-02_rb,1.1230e-01_rb/)
+      kbo(:,19, 1) = (/ &
+     &3.5046e-02_rb,4.7312e-02_rb,6.2046e-02_rb,7.9063e-02_rb,9.8334e-02_rb/)
+      kbo(:,20, 1) = (/ &
+     &3.1115e-02_rb,4.1839e-02_rb,5.4636e-02_rb,6.9407e-02_rb,8.5975e-02_rb/)
+      kbo(:,21, 1) = (/ &
+     &2.7465e-02_rb,3.6785e-02_rb,4.7830e-02_rb,6.0600e-02_rb,7.4770e-02_rb/)
+      kbo(:,22, 1) = (/ &
+     &2.4593e-02_rb,3.2747e-02_rb,4.2384e-02_rb,5.3412e-02_rb,6.5545e-02_rb/)
+      kbo(:,23, 1) = (/ &
+     &2.1937e-02_rb,2.9046e-02_rb,3.7411e-02_rb,4.6873e-02_rb,5.7167e-02_rb/)
+      kbo(:,24, 1) = (/ &
+     &1.9516e-02_rb,2.5711e-02_rb,3.2910e-02_rb,4.0910e-02_rb,4.9576e-02_rb/)
+      kbo(:,25, 1) = (/ &
+     &1.7347e-02_rb,2.2706e-02_rb,2.8823e-02_rb,3.5568e-02_rb,4.2803e-02_rb/)
+      kbo(:,26, 1) = (/ &
+     &1.5431e-02_rb,2.0022e-02_rb,2.5209e-02_rb,3.0861e-02_rb,3.6863e-02_rb/)
+      kbo(:,27, 1) = (/ &
+     &1.3676e-02_rb,1.7588e-02_rb,2.1954e-02_rb,2.6656e-02_rb,3.1628e-02_rb/)
+      kbo(:,28, 1) = (/ &
+     &1.2072e-02_rb,1.5389e-02_rb,1.9040e-02_rb,2.2944e-02_rb,2.7092e-02_rb/)
+      kbo(:,29, 1) = (/ &
+     &1.0638e-02_rb,1.3440e-02_rb,1.6483e-02_rb,1.9764e-02_rb,2.3215e-02_rb/)
+      kbo(:,30, 1) = (/ &
+     &9.3452e-03_rb,1.1695e-02_rb,1.4256e-02_rb,1.7011e-02_rb,1.9889e-02_rb/)
+      kbo(:,31, 1) = (/ &
+     &8.1958e-03_rb,1.0179e-02_rb,1.2343e-02_rb,1.4653e-02_rb,1.7063e-02_rb/)
+      kbo(:,32, 1) = (/ &
+     &7.1787e-03_rb,8.8627e-03_rb,1.0685e-02_rb,1.2626e-02_rb,1.4630e-02_rb/)
+      kbo(:,33, 1) = (/ &
+     &6.2851e-03_rb,7.7078e-03_rb,9.2476e-03_rb,1.0876e-02_rb,1.2551e-02_rb/)
+      kbo(:,34, 1) = (/ &
+     &5.4503e-03_rb,6.6513e-03_rb,7.9437e-03_rb,9.3044e-03_rb,1.0718e-02_rb/)
+      kbo(:,35, 1) = (/ &
+     &4.6286e-03_rb,5.6362e-03_rb,6.7164e-03_rb,7.8605e-03_rb,9.0307e-03_rb/)
+      kbo(:,36, 1) = (/ &
+     &3.8439e-03_rb,4.6777e-03_rb,5.5784e-03_rb,6.5325e-03_rb,7.4907e-03_rb/)
+      kbo(:,37, 1) = (/ &
+     &3.0907e-03_rb,3.7733e-03_rb,4.5151e-03_rb,5.2952e-03_rb,6.0875e-03_rb/)
+      kbo(:,38, 1) = (/ &
+     &2.4803e-03_rb,3.0385e-03_rb,3.6485e-03_rb,4.2895e-03_rb,4.9493e-03_rb/)
+      kbo(:,39, 1) = (/ &
+     &1.9914e-03_rb,2.4489e-03_rb,2.9506e-03_rb,3.4809e-03_rb,4.0250e-03_rb/)
+      kbo(:,40, 1) = (/ &
+     &1.5591e-03_rb,1.9289e-03_rb,2.3368e-03_rb,2.7699e-03_rb,3.2181e-03_rb/)
+      kbo(:,41, 1) = (/ &
+     &1.2156e-03_rb,1.5132e-03_rb,1.8431e-03_rb,2.1975e-03_rb,2.5662e-03_rb/)
+      kbo(:,42, 1) = (/ &
+     &9.4642e-04_rb,1.1860e-03_rb,1.4531e-03_rb,1.7422e-03_rb,2.0436e-03_rb/)
+      kbo(:,43, 1) = (/ &
+     &7.2576e-04_rb,9.1670e-04_rb,1.1319e-03_rb,1.3659e-03_rb,1.6136e-03_rb/)
+      kbo(:,44, 1) = (/ &
+     &5.5191e-04_rb,7.0339e-04_rb,8.7651e-04_rb,1.0654e-03_rb,1.2677e-03_rb/)
+      kbo(:,45, 1) = (/ &
+     &4.1864e-04_rb,5.3928e-04_rb,6.7793e-04_rb,8.3043e-04_rb,9.9568e-04_rb/)
+      kbo(:,46, 1) = (/ &
+     &3.1490e-04_rb,4.0992e-04_rb,5.2032e-04_rb,6.4322e-04_rb,7.7812e-04_rb/)
+      kbo(:,47, 1) = (/ &
+     &2.3273e-04_rb,3.0659e-04_rb,3.9375e-04_rb,4.9208e-04_rb,6.0088e-04_rb/)
+      kbo(:,48, 1) = (/ &
+     &1.7128e-04_rb,2.2854e-04_rb,2.9725e-04_rb,3.7557e-04_rb,4.6327e-04_rb/)
+      kbo(:,49, 1) = (/ &
+     &1.2553e-04_rb,1.6987e-04_rb,2.2375e-04_rb,2.8623e-04_rb,3.5677e-04_rb/)
+      kbo(:,50, 1) = (/ &
+     &9.2117e-05_rb,1.2634e-04_rb,1.6842e-04_rb,2.1802e-04_rb,2.7404e-04_rb/)
+      kbo(:,51, 1) = (/ &
+     &6.7482e-05_rb,9.3783e-05_rb,1.2646e-04_rb,1.6541e-04_rb,2.1004e-04_rb/)
+      kbo(:,52, 1) = (/ &
+     &4.9294e-05_rb,6.9377e-05_rb,9.4622e-05_rb,1.2516e-04_rb,1.6083e-04_rb/)
+      kbo(:,53, 1) = (/ &
+     &3.5898e-05_rb,5.1131e-05_rb,7.0555e-05_rb,9.4518e-05_rb,1.2315e-04_rb/)
+      kbo(:,54, 1) = (/ &
+     &2.6237e-05_rb,3.7710e-05_rb,5.2593e-05_rb,7.1209e-05_rb,9.3663e-05_rb/)
+      kbo(:,55, 1) = (/ &
+     &1.9162e-05_rb,2.7753e-05_rb,3.9112e-05_rb,5.3467e-05_rb,7.0840e-05_rb/)
+      kbo(:,56, 1) = (/ &
+     &1.3954e-05_rb,2.0386e-05_rb,2.8986e-05_rb,3.9982e-05_rb,5.3468e-05_rb/)
+      kbo(:,57, 1) = (/ &
+     &1.0137e-05_rb,1.4950e-05_rb,2.1433e-05_rb,2.9844e-05_rb,4.0285e-05_rb/)
+      kbo(:,58, 1) = (/ &
+     &7.3955e-06_rb,1.0988e-05_rb,1.5849e-05_rb,2.2304e-05_rb,3.0355e-05_rb/)
+      kbo(:,59, 1) = (/ &
+     &5.7756e-06_rb,8.5841e-06_rb,1.2417e-05_rb,1.7454e-05_rb,2.3825e-05_rb/)
+      kbo(:,13, 2) = (/ &
+     &2.8941e-01_rb,3.7928e-01_rb,4.8728e-01_rb,6.1356e-01_rb,7.5720e-01_rb/)
+      kbo(:,14, 2) = (/ &
+     &2.7482e-01_rb,3.5907e-01_rb,4.5923e-01_rb,5.7444e-01_rb,7.0479e-01_rb/)
+      kbo(:,15, 2) = (/ &
+     &2.6012e-01_rb,3.3844e-01_rb,4.3050e-01_rb,5.3565e-01_rb,6.5360e-01_rb/)
+      kbo(:,16, 2) = (/ &
+     &2.4469e-01_rb,3.1749e-01_rb,4.0174e-01_rb,4.9749e-01_rb,6.0352e-01_rb/)
+      kbo(:,17, 2) = (/ &
+     &2.2805e-01_rb,2.9482e-01_rb,3.7163e-01_rb,4.5800e-01_rb,5.5300e-01_rb/)
+      kbo(:,18, 2) = (/ &
+     &2.1066e-01_rb,2.7121e-01_rb,3.4050e-01_rb,4.1816e-01_rb,5.0173e-01_rb/)
+      kbo(:,19, 2) = (/ &
+     &1.9258e-01_rb,2.4696e-01_rb,3.0899e-01_rb,3.7763e-01_rb,4.5019e-01_rb/)
+      kbo(:,20, 2) = (/ &
+     &1.7535e-01_rb,2.2386e-01_rb,2.7870e-01_rb,3.3833e-01_rb,4.0121e-01_rb/)
+      kbo(:,21, 2) = (/ &
+     &1.5823e-01_rb,2.0117e-01_rb,2.4903e-01_rb,3.0059e-01_rb,3.5459e-01_rb/)
+      kbo(:,22, 2) = (/ &
+     &1.4393e-01_rb,1.8176e-01_rb,2.2349e-01_rb,2.6801e-01_rb,3.1434e-01_rb/)
+      kbo(:,23, 2) = (/ &
+     &1.2993e-01_rb,1.6307e-01_rb,1.9923e-01_rb,2.3752e-01_rb,2.7733e-01_rb/)
+      kbo(:,24, 2) = (/ &
+     &1.1668e-01_rb,1.4559e-01_rb,1.7680e-01_rb,2.0966e-01_rb,2.4384e-01_rb/)
+      kbo(:,25, 2) = (/ &
+     &1.0441e-01_rb,1.2946e-01_rb,1.5637e-01_rb,1.8462e-01_rb,2.1368e-01_rb/)
+      kbo(:,26, 2) = (/ &
+     &9.3354e-02_rb,1.1505e-01_rb,1.3816e-01_rb,1.6244e-01_rb,1.8706e-01_rb/)
+      kbo(:,27, 2) = (/ &
+     &8.3171e-02_rb,1.0190e-01_rb,1.2182e-01_rb,1.4246e-01_rb,1.6301e-01_rb/)
+      kbo(:,28, 2) = (/ &
+     &7.3897e-02_rb,9.0049e-02_rb,1.0712e-01_rb,1.2442e-01_rb,1.4130e-01_rb/)
+      kbo(:,29, 2) = (/ &
+     &6.5628e-02_rb,7.9501e-02_rb,9.3908e-02_rb,1.0826e-01_rb,1.2190e-01_rb/)
+      kbo(:,30, 2) = (/ &
+     &5.8144e-02_rb,6.9960e-02_rb,8.1950e-02_rb,9.3660e-02_rb,1.0454e-01_rb/)
+      kbo(:,31, 2) = (/ &
+     &5.1413e-02_rb,6.1336e-02_rb,7.1221e-02_rb,8.0615e-02_rb,8.9347e-02_rb/)
+      kbo(:,32, 2) = (/ &
+     &4.5308e-02_rb,5.3538e-02_rb,6.1586e-02_rb,6.9140e-02_rb,7.6180e-02_rb/)
+      kbo(:,33, 2) = (/ &
+     &3.9776e-02_rb,4.6552e-02_rb,5.3085e-02_rb,5.9155e-02_rb,6.4885e-02_rb/)
+      kbo(:,34, 2) = (/ &
+     &3.4566e-02_rb,4.0142e-02_rb,4.5387e-02_rb,5.0362e-02_rb,5.5085e-02_rb/)
+      kbo(:,35, 2) = (/ &
+     &2.9501e-02_rb,3.4063e-02_rb,3.8371e-02_rb,4.2482e-02_rb,4.6355e-02_rb/)
+      kbo(:,36, 2) = (/ &
+     &2.4731e-02_rb,2.8480e-02_rb,3.2042e-02_rb,3.5445e-02_rb,3.8685e-02_rb/)
+      kbo(:,37, 2) = (/ &
+     &2.0227e-02_rb,2.3337e-02_rb,2.6311e-02_rb,2.9150e-02_rb,3.1875e-02_rb/)
+      kbo(:,38, 2) = (/ &
+     &1.6522e-02_rb,1.9118e-02_rb,2.1594e-02_rb,2.3970e-02_rb,2.6280e-02_rb/)
+      kbo(:,39, 2) = (/ &
+     &1.3506e-02_rb,1.5663e-02_rb,1.7734e-02_rb,1.9723e-02_rb,2.1666e-02_rb/)
+      kbo(:,40, 2) = (/ &
+     &1.0839e-02_rb,1.2642e-02_rb,1.4374e-02_rb,1.6039e-02_rb,1.7665e-02_rb/)
+      kbo(:,41, 2) = (/ &
+     &8.6687e-03_rb,1.0169e-02_rb,1.1614e-02_rb,1.3014e-02_rb,1.4376e-02_rb/)
+      kbo(:,42, 2) = (/ &
+     &6.9249e-03_rb,8.1709e-03_rb,9.3824e-03_rb,1.0556e-02_rb,1.1694e-02_rb/)
+      kbo(:,43, 2) = (/ &
+     &5.4677e-03_rb,6.5006e-03_rb,7.5154e-03_rb,8.4985e-03_rb,9.4530e-03_rb/)
+      kbo(:,44, 2) = (/ &
+     &4.2855e-03_rb,5.1437e-03_rb,5.9926e-03_rb,6.8145e-03_rb,7.6201e-03_rb/)
+      kbo(:,45, 2) = (/ &
+     &3.3515e-03_rb,4.0607e-03_rb,4.7699e-03_rb,5.4599e-03_rb,6.1332e-03_rb/)
+      kbo(:,46, 2) = (/ &
+     &2.6019e-03_rb,3.1870e-03_rb,3.7777e-03_rb,4.3556e-03_rb,4.9205e-03_rb/)
+      kbo(:,47, 2) = (/ &
+     &1.9902e-03_rb,2.4722e-03_rb,2.9627e-03_rb,3.4486e-03_rb,3.9210e-03_rb/)
+      kbo(:,48, 2) = (/ &
+     &1.5153e-03_rb,1.9102e-03_rb,2.3171e-03_rb,2.7244e-03_rb,3.1206e-03_rb/)
+      kbo(:,49, 2) = (/ &
+     &1.1469e-03_rb,1.4720e-03_rb,1.8085e-03_rb,2.1494e-03_rb,2.4830e-03_rb/)
+      kbo(:,50, 2) = (/ &
+     &8.6648e-04_rb,1.1333e-03_rb,1.4108e-03_rb,1.6953e-03_rb,1.9769e-03_rb/)
+      kbo(:,51, 2) = (/ &
+     &6.5125e-04_rb,8.6980e-04_rb,1.0984e-03_rb,1.3342e-03_rb,1.5715e-03_rb/)
+      kbo(:,52, 2) = (/ &
+     &4.8660e-04_rb,6.6498e-04_rb,8.5250e-04_rb,1.0475e-03_rb,1.2461e-03_rb/)
+      kbo(:,53, 2) = (/ &
+     &3.6091e-04_rb,5.0560e-04_rb,6.5947e-04_rb,8.2040e-04_rb,9.8603e-04_rb/)
+      kbo(:,54, 2) = (/ &
+     &2.6798e-04_rb,3.8317e-04_rb,5.0899e-04_rb,6.4130e-04_rb,7.7856e-04_rb/)
+      kbo(:,55, 2) = (/ &
+     &1.9837e-04_rb,2.8906e-04_rb,3.9148e-04_rb,4.9955e-04_rb,6.1247e-04_rb/)
+      kbo(:,56, 2) = (/ &
+     &1.4613e-04_rb,2.1685e-04_rb,3.0004e-04_rb,3.8773e-04_rb,4.8096e-04_rb/)
+      kbo(:,57, 2) = (/ &
+     &1.0691e-04_rb,1.6173e-04_rb,2.2873e-04_rb,3.0001e-04_rb,3.7637e-04_rb/)
+      kbo(:,58, 2) = (/ &
+     &7.8236e-05_rb,1.2069e-04_rb,1.7421e-04_rb,2.3200e-04_rb,2.9412e-04_rb/)
+      kbo(:,59, 2) = (/ &
+     &6.1826e-05_rb,9.5990e-05_rb,1.3927e-04_rb,1.8625e-04_rb,2.3654e-04_rb/)
+      kbo(:,13, 3) = (/ &
+     &1.1135e+00_rb,1.3641e+00_rb,1.6160e+00_rb,1.8652e+00_rb,2.1134e+00_rb/)
+      kbo(:,14, 3) = (/ &
+     &1.0304e+00_rb,1.2521e+00_rb,1.4746e+00_rb,1.6946e+00_rb,1.9141e+00_rb/)
+      kbo(:,15, 3) = (/ &
+     &9.5384e-01_rb,1.1492e+00_rb,1.3443e+00_rb,1.5379e+00_rb,1.7345e+00_rb/)
+      kbo(:,16, 3) = (/ &
+     &8.8007e-01_rb,1.0512e+00_rb,1.2220e+00_rb,1.3952e+00_rb,1.5691e+00_rb/)
+      kbo(:,17, 3) = (/ &
+     &8.0715e-01_rb,9.5537e-01_rb,1.1063e+00_rb,1.2596e+00_rb,1.4122e+00_rb/)
+      kbo(:,18, 3) = (/ &
+     &7.3500e-01_rb,8.6436e-01_rb,9.9708e-01_rb,1.1308e+00_rb,1.2638e+00_rb/)
+      kbo(:,19, 3) = (/ &
+     &6.6442e-01_rb,7.7800e-01_rb,8.9341e-01_rb,1.0094e+00_rb,1.1240e+00_rb/)
+      kbo(:,20, 3) = (/ &
+     &5.9870e-01_rb,6.9782e-01_rb,7.9815e-01_rb,8.9858e-01_rb,9.9720e-01_rb/)
+      kbo(:,21, 3) = (/ &
+     &5.3577e-01_rb,6.2165e-01_rb,7.0893e-01_rb,7.9562e-01_rb,8.8013e-01_rb/)
+      kbo(:,22, 3) = (/ &
+     &4.8056e-01_rb,5.5531e-01_rb,6.3060e-01_rb,7.0436e-01_rb,7.7687e-01_rb/)
+      kbo(:,23, 3) = (/ &
+     &4.2855e-01_rb,4.9296e-01_rb,5.5690e-01_rb,6.1984e-01_rb,6.8212e-01_rb/)
+      kbo(:,24, 3) = (/ &
+     &3.8024e-01_rb,4.3497e-01_rb,4.8911e-01_rb,5.4325e-01_rb,5.9676e-01_rb/)
+      kbo(:,25, 3) = (/ &
+     &3.3570e-01_rb,3.8197e-01_rb,4.2813e-01_rb,4.7450e-01_rb,5.2085e-01_rb/)
+      kbo(:,26, 3) = (/ &
+     &2.9535e-01_rb,3.3462e-01_rb,3.7428e-01_rb,4.1425e-01_rb,4.5431e-01_rb/)
+      kbo(:,27, 3) = (/ &
+     &2.5873e-01_rb,2.9239e-01_rb,3.2655e-01_rb,3.6110e-01_rb,3.9601e-01_rb/)
+      kbo(:,28, 3) = (/ &
+     &2.2605e-01_rb,2.5498e-01_rb,2.8445e-01_rb,3.1460e-01_rb,3.4506e-01_rb/)
+      kbo(:,29, 3) = (/ &
+     &1.9728e-01_rb,2.2221e-01_rb,2.4794e-01_rb,2.7429e-01_rb,3.0081e-01_rb/)
+      kbo(:,30, 3) = (/ &
+     &1.7195e-01_rb,1.9369e-01_rb,2.1631e-01_rb,2.3929e-01_rb,2.6198e-01_rb/)
+      kbo(:,31, 3) = (/ &
+     &1.5004e-01_rb,1.6915e-01_rb,1.8896e-01_rb,2.0886e-01_rb,2.2799e-01_rb/)
+      kbo(:,32, 3) = (/ &
+     &1.3116e-01_rb,1.4802e-01_rb,1.6521e-01_rb,1.8200e-01_rb,1.9806e-01_rb/)
+      kbo(:,33, 3) = (/ &
+     &1.1493e-01_rb,1.2958e-01_rb,1.4418e-01_rb,1.5826e-01_rb,1.7170e-01_rb/)
+      kbo(:,34, 3) = (/ &
+     &1.0026e-01_rb,1.1281e-01_rb,1.2510e-01_rb,1.3692e-01_rb,1.4804e-01_rb/)
+      kbo(:,35, 3) = (/ &
+     &8.6407e-02_rb,9.7015e-02_rb,1.0743e-01_rb,1.1729e-01_rb,1.2663e-01_rb/)
+      kbo(:,36, 3) = (/ &
+     &7.3396e-02_rb,8.2443e-02_rb,9.1165e-02_rb,9.9519e-02_rb,1.0753e-01_rb/)
+      kbo(:,37, 3) = (/ &
+     &6.1173e-02_rb,6.8860e-02_rb,7.6255e-02_rb,8.3361e-02_rb,9.0284e-02_rb/)
+      kbo(:,38, 3) = (/ &
+     &5.0910e-02_rb,5.7435e-02_rb,6.3715e-02_rb,6.9817e-02_rb,7.5733e-02_rb/)
+      kbo(:,39, 3) = (/ &
+     &4.2376e-02_rb,4.7913e-02_rb,5.3247e-02_rb,5.8502e-02_rb,6.3619e-02_rb/)
+      kbo(:,40, 3) = (/ &
+     &3.4748e-02_rb,3.9459e-02_rb,4.3993e-02_rb,4.8510e-02_rb,5.2956e-02_rb/)
+      kbo(:,41, 3) = (/ &
+     &2.8418e-02_rb,3.2417e-02_rb,3.6282e-02_rb,4.0161e-02_rb,4.3993e-02_rb/)
+      kbo(:,42, 3) = (/ &
+     &2.3210e-02_rb,2.6614e-02_rb,2.9916e-02_rb,3.3242e-02_rb,3.6540e-02_rb/)
+      kbo(:,43, 3) = (/ &
+     &1.8779e-02_rb,2.1673e-02_rb,2.4493e-02_rb,2.7336e-02_rb,3.0182e-02_rb/)
+      kbo(:,44, 3) = (/ &
+     &1.5102e-02_rb,1.7567e-02_rb,1.9972e-02_rb,2.2410e-02_rb,2.4858e-02_rb/)
+      kbo(:,45, 3) = (/ &
+     &1.2119e-02_rb,1.4212e-02_rb,1.6271e-02_rb,1.8344e-02_rb,2.0451e-02_rb/)
+      kbo(:,46, 3) = (/ &
+     &9.6639e-03_rb,1.1430e-02_rb,1.3190e-02_rb,1.4958e-02_rb,1.6759e-02_rb/)
+      kbo(:,47, 3) = (/ &
+     &7.6185e-03_rb,9.1001e-03_rb,1.0599e-02_rb,1.2098e-02_rb,1.3639e-02_rb/)
+      kbo(:,48, 3) = (/ &
+     &5.9842e-03_rb,7.2206e-03_rb,8.5005e-03_rb,9.7716e-03_rb,1.1086e-02_rb/)
+      kbo(:,49, 3) = (/ &
+     &4.6860e-03_rb,5.7121e-03_rb,6.7999e-03_rb,7.8773e-03_rb,8.9943e-03_rb/)
+      kbo(:,50, 3) = (/ &
+     &3.6738e-03_rb,4.5201e-03_rb,5.4386e-03_rb,6.3525e-03_rb,7.2951e-03_rb/)
+      kbo(:,51, 3) = (/ &
+     &2.8749e-03_rb,3.5695e-03_rb,4.3389e-03_rb,5.1158e-03_rb,5.9116e-03_rb/)
+      kbo(:,52, 3) = (/ &
+     &2.2412e-03_rb,2.8111e-03_rb,3.4548e-03_rb,4.1149e-03_rb,4.7853e-03_rb/)
+      kbo(:,53, 3) = (/ &
+     &1.7396e-03_rb,2.2062e-03_rb,2.7406e-03_rb,3.3024e-03_rb,3.8694e-03_rb/)
+      kbo(:,54, 3) = (/ &
+     &1.3505e-03_rb,1.7325e-03_rb,2.1715e-03_rb,2.6457e-03_rb,3.1233e-03_rb/)
+      kbo(:,55, 3) = (/ &
+     &1.0458e-03_rb,1.3574e-03_rb,1.7165e-03_rb,2.1138e-03_rb,2.5149e-03_rb/)
+      kbo(:,56, 3) = (/ &
+     &8.0583e-04_rb,1.0599e-03_rb,1.3530e-03_rb,1.6840e-03_rb,2.0192e-03_rb/)
+      kbo(:,57, 3) = (/ &
+     &6.1766e-04_rb,8.2479e-04_rb,1.0628e-03_rb,1.3371e-03_rb,1.6185e-03_rb/)
+      kbo(:,58, 3) = (/ &
+     &4.7327e-04_rb,6.4160e-04_rb,8.3562e-04_rb,1.0608e-03_rb,1.2972e-03_rb/)
+      kbo(:,59, 3) = (/ &
+     &3.8292e-04_rb,5.2222e-04_rb,6.8284e-04_rb,8.6897e-04_rb,1.0664e-03_rb/)
+      kbo(:,13, 4) = (/ &
+     &3.3749e+00_rb,3.6005e+00_rb,3.8557e+00_rb,4.1032e+00_rb,4.3385e+00_rb/)
+      kbo(:,14, 4) = (/ &
+     &2.9858e+00_rb,3.1916e+00_rb,3.4148e+00_rb,3.6458e+00_rb,3.8704e+00_rb/)
+      kbo(:,15, 4) = (/ &
+     &2.6360e+00_rb,2.8231e+00_rb,3.0273e+00_rb,3.2443e+00_rb,3.4520e+00_rb/)
+      kbo(:,16, 4) = (/ &
+     &2.3243e+00_rb,2.4974e+00_rb,2.6921e+00_rb,2.8866e+00_rb,3.0804e+00_rb/)
+      kbo(:,17, 4) = (/ &
+     &2.0501e+00_rb,2.2124e+00_rb,2.3895e+00_rb,2.5647e+00_rb,2.7458e+00_rb/)
+      kbo(:,18, 4) = (/ &
+     &1.8079e+00_rb,1.9578e+00_rb,2.1149e+00_rb,2.2757e+00_rb,2.4444e+00_rb/)
+      kbo(:,19, 4) = (/ &
+     &1.5916e+00_rb,1.7262e+00_rb,1.8683e+00_rb,2.0160e+00_rb,2.1705e+00_rb/)
+      kbo(:,20, 4) = (/ &
+     &1.3988e+00_rb,1.5220e+00_rb,1.6508e+00_rb,1.7854e+00_rb,1.9234e+00_rb/)
+      kbo(:,21, 4) = (/ &
+     &1.2283e+00_rb,1.3399e+00_rb,1.4559e+00_rb,1.5766e+00_rb,1.6985e+00_rb/)
+      kbo(:,22, 4) = (/ &
+     &1.0842e+00_rb,1.1844e+00_rb,1.2884e+00_rb,1.3958e+00_rb,1.5035e+00_rb/)
+      kbo(:,23, 4) = (/ &
+     &9.5535e-01_rb,1.0448e+00_rb,1.1388e+00_rb,1.2338e+00_rb,1.3273e+00_rb/)
+      kbo(:,24, 4) = (/ &
+     &8.3937e-01_rb,9.2038e-01_rb,1.0041e+00_rb,1.0871e+00_rb,1.1675e+00_rb/)
+      kbo(:,25, 4) = (/ &
+     &7.3697e-01_rb,8.0962e-01_rb,8.8296e-01_rb,9.5450e-01_rb,1.0251e+00_rb/)
+      kbo(:,26, 4) = (/ &
+     &6.4730e-01_rb,7.1109e-01_rb,7.7450e-01_rb,8.3674e-01_rb,9.0032e-01_rb/)
+      kbo(:,27, 4) = (/ &
+     &5.6756e-01_rb,6.2293e-01_rb,6.7780e-01_rb,7.3355e-01_rb,7.9083e-01_rb/)
+      kbo(:,28, 4) = (/ &
+     &4.9666e-01_rb,5.4463e-01_rb,5.9308e-01_rb,6.4333e-01_rb,6.9525e-01_rb/)
+      kbo(:,29, 4) = (/ &
+     &4.3427e-01_rb,4.7629e-01_rb,5.1987e-01_rb,5.6530e-01_rb,6.1288e-01_rb/)
+      kbo(:,30, 4) = (/ &
+     &3.7957e-01_rb,4.1709e-01_rb,4.5651e-01_rb,4.9797e-01_rb,5.4181e-01_rb/)
+      kbo(:,31, 4) = (/ &
+     &3.3226e-01_rb,3.6617e-01_rb,4.0201e-01_rb,4.4025e-01_rb,4.8083e-01_rb/)
+      kbo(:,32, 4) = (/ &
+     &2.9152e-01_rb,3.2232e-01_rb,3.5534e-01_rb,3.9102e-01_rb,4.2785e-01_rb/)
+      kbo(:,33, 4) = (/ &
+     &2.5658e-01_rb,2.8478e-01_rb,3.1566e-01_rb,3.4846e-01_rb,3.8205e-01_rb/)
+      kbo(:,34, 4) = (/ &
+     &2.2568e-01_rb,2.5200e-01_rb,2.8059e-01_rb,3.1045e-01_rb,3.4133e-01_rb/)
+      kbo(:,35, 4) = (/ &
+     &1.9721e-01_rb,2.2158e-01_rb,2.4755e-01_rb,2.7492e-01_rb,3.0313e-01_rb/)
+      kbo(:,36, 4) = (/ &
+     &1.7069e-01_rb,1.9278e-01_rb,2.1640e-01_rb,2.4134e-01_rb,2.6698e-01_rb/)
+      kbo(:,37, 4) = (/ &
+     &1.4514e-01_rb,1.6486e-01_rb,1.8617e-01_rb,2.0876e-01_rb,2.3216e-01_rb/)
+      kbo(:,38, 4) = (/ &
+     &1.2328e-01_rb,1.4085e-01_rb,1.6011e-01_rb,1.8057e-01_rb,2.0182e-01_rb/)
+      kbo(:,39, 4) = (/ &
+     &1.0472e-01_rb,1.2042e-01_rb,1.3775e-01_rb,1.5631e-01_rb,1.7570e-01_rb/)
+      kbo(:,40, 4) = (/ &
+     &8.7593e-02_rb,1.0140e-01_rb,1.1682e-01_rb,1.3356e-01_rb,1.5106e-01_rb/)
+      kbo(:,41, 4) = (/ &
+     &7.2991e-02_rb,8.5111e-02_rb,9.8743e-02_rb,1.1375e-01_rb,1.2963e-01_rb/)
+      kbo(:,42, 4) = (/ &
+     &6.0719e-02_rb,7.1311e-02_rb,8.3382e-02_rb,9.6810e-02_rb,1.1115e-01_rb/)
+      kbo(:,43, 4) = (/ &
+     &4.9944e-02_rb,5.9103e-02_rb,6.9670e-02_rb,8.1603e-02_rb,9.4469e-02_rb/)
+      kbo(:,44, 4) = (/ &
+     &4.0785e-02_rb,4.8637e-02_rb,5.7853e-02_rb,6.8379e-02_rb,7.9912e-02_rb/)
+      kbo(:,45, 4) = (/ &
+     &3.3215e-02_rb,3.9939e-02_rb,4.7926e-02_rb,5.7208e-02_rb,6.7537e-02_rb/)
+      kbo(:,46, 4) = (/ &
+     &2.6843e-02_rb,3.2560e-02_rb,3.9436e-02_rb,4.7558e-02_rb,5.6745e-02_rb/)
+      kbo(:,47, 4) = (/ &
+     &2.1428e-02_rb,2.6226e-02_rb,3.2052e-02_rb,3.9057e-02_rb,4.7184e-02_rb/)
+      kbo(:,48, 4) = (/ &
+     &1.7029e-02_rb,2.1031e-02_rb,2.5943e-02_rb,3.1986e-02_rb,3.9099e-02_rb/)
+      kbo(:,49, 4) = (/ &
+     &1.3477e-02_rb,1.6802e-02_rb,2.0926e-02_rb,2.6109e-02_rb,3.2294e-02_rb/)
+      kbo(:,50, 4) = (/ &
+     &1.0673e-02_rb,1.3423e-02_rb,1.6872e-02_rb,2.1279e-02_rb,2.6629e-02_rb/)
+      kbo(:,51, 4) = (/ &
+     &8.4370e-03_rb,1.0700e-02_rb,1.3568e-02_rb,1.7289e-02_rb,2.1889e-02_rb/)
+      kbo(:,52, 4) = (/ &
+     &6.6453e-03_rb,8.4949e-03_rb,1.0870e-02_rb,1.3987e-02_rb,1.7931e-02_rb/)
+      kbo(:,53, 4) = (/ &
+     &5.2146e-03_rb,6.7176e-03_rb,8.6804e-03_rb,1.1275e-02_rb,1.4637e-02_rb/)
+      kbo(:,54, 4) = (/ &
+     &4.1029e-03_rb,5.3246e-03_rb,6.9354e-03_rb,9.0873e-03_rb,1.1925e-02_rb/)
+      kbo(:,55, 4) = (/ &
+     &3.2267e-03_rb,4.2135e-03_rb,5.5289e-03_rb,7.2992e-03_rb,9.6811e-03_rb/)
+      kbo(:,56, 4) = (/ &
+     &2.5269e-03_rb,3.3219e-03_rb,4.3912e-03_rb,5.8434e-03_rb,7.8299e-03_rb/)
+      kbo(:,57, 4) = (/ &
+     &1.9715e-03_rb,2.6095e-03_rb,3.4757e-03_rb,4.6583e-03_rb,6.3020e-03_rb/)
+      kbo(:,58, 4) = (/ &
+     &1.5393e-03_rb,2.0522e-03_rb,2.7523e-03_rb,3.7145e-03_rb,5.0709e-03_rb/)
+      kbo(:,59, 4) = (/ &
+     &1.2601e-03_rb,1.6926e-03_rb,2.2864e-03_rb,3.1046e-03_rb,4.2734e-03_rb/)
+      kbo(:,13, 5) = (/ &
+     &6.9559e+00_rb,7.1944e+00_rb,7.3778e+00_rb,7.6168e+00_rb,7.8840e+00_rb/)
+      kbo(:,14, 5) = (/ &
+     &6.1197e+00_rb,6.3419e+00_rb,6.5357e+00_rb,6.7535e+00_rb,7.0053e+00_rb/)
+      kbo(:,15, 5) = (/ &
+     &5.3579e+00_rb,5.5744e+00_rb,5.7766e+00_rb,5.9767e+00_rb,6.2167e+00_rb/)
+      kbo(:,16, 5) = (/ &
+     &4.6816e+00_rb,4.8936e+00_rb,5.0862e+00_rb,5.2967e+00_rb,5.5327e+00_rb/)
+      kbo(:,17, 5) = (/ &
+     &4.0899e+00_rb,4.2917e+00_rb,4.4812e+00_rb,4.7025e+00_rb,4.9201e+00_rb/)
+      kbo(:,18, 5) = (/ &
+     &3.5771e+00_rb,3.7678e+00_rb,3.9593e+00_rb,4.1715e+00_rb,4.3722e+00_rb/)
+      kbo(:,19, 5) = (/ &
+     &3.1364e+00_rb,3.3176e+00_rb,3.5013e+00_rb,3.6935e+00_rb,3.8830e+00_rb/)
+      kbo(:,20, 5) = (/ &
+     &2.7593e+00_rb,2.9230e+00_rb,3.0933e+00_rb,3.2687e+00_rb,3.4499e+00_rb/)
+      kbo(:,21, 5) = (/ &
+     &2.4256e+00_rb,2.5724e+00_rb,2.7298e+00_rb,2.8928e+00_rb,3.0638e+00_rb/)
+      kbo(:,22, 5) = (/ &
+     &2.1368e+00_rb,2.2729e+00_rb,2.4183e+00_rb,2.5689e+00_rb,2.7252e+00_rb/)
+      kbo(:,23, 5) = (/ &
+     &1.8817e+00_rb,2.0092e+00_rb,2.1410e+00_rb,2.2786e+00_rb,2.4217e+00_rb/)
+      kbo(:,24, 5) = (/ &
+     &1.6588e+00_rb,1.7749e+00_rb,1.8947e+00_rb,2.0208e+00_rb,2.1527e+00_rb/)
+      kbo(:,25, 5) = (/ &
+     &1.4616e+00_rb,1.5668e+00_rb,1.6777e+00_rb,1.7944e+00_rb,1.9128e+00_rb/)
+      kbo(:,26, 5) = (/ &
+     &1.2875e+00_rb,1.3850e+00_rb,1.4881e+00_rb,1.5943e+00_rb,1.7005e+00_rb/)
+      kbo(:,27, 5) = (/ &
+     &1.1342e+00_rb,1.2250e+00_rb,1.3195e+00_rb,1.4155e+00_rb,1.5121e+00_rb/)
+      kbo(:,28, 5) = (/ &
+     &1.0000e+00_rb,1.0834e+00_rb,1.1694e+00_rb,1.2569e+00_rb,1.3467e+00_rb/)
+      kbo(:,29, 5) = (/ &
+     &8.8272e-01_rb,9.5878e-01_rb,1.0375e+00_rb,1.1189e+00_rb,1.2039e+00_rb/)
+      kbo(:,30, 5) = (/ &
+     &7.8028e-01_rb,8.4986e-01_rb,9.2253e-01_rb,9.9927e-01_rb,1.0809e+00_rb/)
+      kbo(:,31, 5) = (/ &
+     &6.9115e-01_rb,7.5536e-01_rb,8.2388e-01_rb,8.9787e-01_rb,9.7590e-01_rb/)
+      kbo(:,32, 5) = (/ &
+     &6.1412e-01_rb,6.7446e-01_rb,7.4048e-01_rb,8.1095e-01_rb,8.8670e-01_rb/)
+      kbo(:,33, 5) = (/ &
+     &5.4810e-01_rb,6.0636e-01_rb,6.6911e-01_rb,7.3734e-01_rb,8.1091e-01_rb/)
+      kbo(:,34, 5) = (/ &
+     &4.9071e-01_rb,5.4601e-01_rb,6.0648e-01_rb,6.7271e-01_rb,7.4441e-01_rb/)
+      kbo(:,35, 5) = (/ &
+     &4.3693e-01_rb,4.8943e-01_rb,5.4769e-01_rb,6.1149e-01_rb,6.8198e-01_rb/)
+      kbo(:,36, 5) = (/ &
+     &3.8551e-01_rb,4.3547e-01_rb,4.9121e-01_rb,5.5301e-01_rb,6.2109e-01_rb/)
+      kbo(:,37, 5) = (/ &
+     &3.3480e-01_rb,3.8150e-01_rb,4.3408e-01_rb,4.9278e-01_rb,5.5808e-01_rb/)
+      kbo(:,38, 5) = (/ &
+     &2.9081e-01_rb,3.3450e-01_rb,3.8398e-01_rb,4.3987e-01_rb,5.0248e-01_rb/)
+      kbo(:,39, 5) = (/ &
+     &2.5305e-01_rb,2.9380e-01_rb,3.4050e-01_rb,3.9390e-01_rb,4.5364e-01_rb/)
+      kbo(:,40, 5) = (/ &
+     &2.1671e-01_rb,2.5418e-01_rb,2.9763e-01_rb,3.4779e-01_rb,4.0458e-01_rb/)
+      kbo(:,41, 5) = (/ &
+     &1.8493e-01_rb,2.1926e-01_rb,2.5954e-01_rb,3.0662e-01_rb,3.6037e-01_rb/)
+      kbo(:,42, 5) = (/ &
+     &1.5752e-01_rb,1.8888e-01_rb,2.2625e-01_rb,2.7031e-01_rb,3.2124e-01_rb/)
+      kbo(:,43, 5) = (/ &
+     &1.3255e-01_rb,1.6078e-01_rb,1.9491e-01_rb,2.3576e-01_rb,2.8350e-01_rb/)
+      kbo(:,44, 5) = (/ &
+     &1.1061e-01_rb,1.3578e-01_rb,1.6666e-01_rb,2.0425e-01_rb,2.4865e-01_rb/)
+      kbo(:,45, 5) = (/ &
+     &9.1951e-02_rb,1.1424e-01_rb,1.4202e-01_rb,1.7639e-01_rb,2.1757e-01_rb/)
+      kbo(:,46, 5) = (/ &
+     &7.5781e-02_rb,9.5221e-02_rb,1.1993e-01_rb,1.5099e-01_rb,1.8901e-01_rb/)
+      kbo(:,47, 5) = (/ &
+     &6.1487e-02_rb,7.8164e-02_rb,9.9731e-02_rb,1.2737e-01_rb,1.6179e-01_rb/)
+      kbo(:,48, 5) = (/ &
+     &4.9580e-02_rb,6.3770e-02_rb,8.2434e-02_rb,1.0684e-01_rb,1.3786e-01_rb/)
+      kbo(:,49, 5) = (/ &
+     &3.9738e-02_rb,5.1709e-02_rb,6.7733e-02_rb,8.9073e-02_rb,1.1686e-01_rb/)
+      kbo(:,50, 5) = (/ &
+     &3.1862e-02_rb,4.1943e-02_rb,5.5637e-02_rb,7.4270e-02_rb,9.9031e-02_rb/)
+      kbo(:,51, 5) = (/ &
+     &2.5469e-02_rb,3.3911e-02_rb,4.5561e-02_rb,6.1725e-02_rb,8.3692e-02_rb/)
+      kbo(:,52, 5) = (/ &
+     &2.0254e-02_rb,2.7266e-02_rb,3.7097e-02_rb,5.1018e-02_rb,7.0332e-02_rb/)
+      kbo(:,53, 5) = (/ &
+     &1.6008e-02_rb,2.1779e-02_rb,3.0012e-02_rb,4.1907e-02_rb,5.8779e-02_rb/)
+      kbo(:,54, 5) = (/ &
+     &1.2684e-02_rb,1.7422e-02_rb,2.4313e-02_rb,3.4417e-02_rb,4.9062e-02_rb/)
+      kbo(:,55, 5) = (/ &
+     &1.0038e-02_rb,1.3916e-02_rb,1.9644e-02_rb,2.8164e-02_rb,4.0795e-02_rb/)
+      kbo(:,56, 5) = (/ &
+     &7.9079e-03_rb,1.1053e-02_rb,1.5781e-02_rb,2.2925e-02_rb,3.3750e-02_rb/)
+      kbo(:,57, 5) = (/ &
+     &6.2010e-03_rb,8.7295e-03_rb,1.2598e-02_rb,1.8552e-02_rb,2.7742e-02_rb/)
+      kbo(:,58, 5) = (/ &
+     &4.8646e-03_rb,6.8966e-03_rb,1.0058e-02_rb,1.5005e-02_rb,2.2774e-02_rb/)
+      kbo(:,59, 5) = (/ &
+     &4.0331e-03_rb,5.7872e-03_rb,8.5542e-03_rb,1.2975e-02_rb,2.0014e-02_rb/)
+      kbo(:,13, 6) = (/ &
+     &1.3874e+01_rb,1.4054e+01_rb,1.4175e+01_rb,1.4196e+01_rb,1.4254e+01_rb/)
+      kbo(:,14, 6) = (/ &
+     &1.2387e+01_rb,1.2564e+01_rb,1.2698e+01_rb,1.2762e+01_rb,1.2781e+01_rb/)
+      kbo(:,15, 6) = (/ &
+     &1.0973e+01_rb,1.1145e+01_rb,1.1274e+01_rb,1.1365e+01_rb,1.1424e+01_rb/)
+      kbo(:,16, 6) = (/ &
+     &9.6521e+00_rb,9.8053e+00_rb,9.9370e+00_rb,1.0047e+01_rb,1.0150e+01_rb/)
+      kbo(:,17, 6) = (/ &
+     &8.4222e+00_rb,8.5719e+00_rb,8.7195e+00_rb,8.8488e+00_rb,9.0159e+00_rb/)
+      kbo(:,18, 6) = (/ &
+     &7.3090e+00_rb,7.4668e+00_rb,7.6322e+00_rb,7.7932e+00_rb,8.0086e+00_rb/)
+      kbo(:,19, 6) = (/ &
+     &6.3279e+00_rb,6.4985e+00_rb,6.6813e+00_rb,6.8756e+00_rb,7.1176e+00_rb/)
+      kbo(:,20, 6) = (/ &
+     &5.4862e+00_rb,5.6719e+00_rb,5.8682e+00_rb,6.0850e+00_rb,6.3337e+00_rb/)
+      kbo(:,21, 6) = (/ &
+     &4.7753e+00_rb,4.9682e+00_rb,5.1665e+00_rb,5.3943e+00_rb,5.6406e+00_rb/)
+      kbo(:,22, 6) = (/ &
+     &4.1854e+00_rb,4.3703e+00_rb,4.5713e+00_rb,4.7990e+00_rb,5.0439e+00_rb/)
+      kbo(:,23, 6) = (/ &
+     &3.6767e+00_rb,3.8508e+00_rb,4.0542e+00_rb,4.2776e+00_rb,4.5191e+00_rb/)
+      kbo(:,24, 6) = (/ &
+     &3.2355e+00_rb,3.4077e+00_rb,3.6072e+00_rb,3.8245e+00_rb,4.0534e+00_rb/)
+      kbo(:,25, 6) = (/ &
+     &2.8580e+00_rb,3.0303e+00_rb,3.2220e+00_rb,3.4257e+00_rb,3.6444e+00_rb/)
+      kbo(:,26, 6) = (/ &
+     &2.5405e+00_rb,2.7078e+00_rb,2.8872e+00_rb,3.0816e+00_rb,3.2880e+00_rb/)
+      kbo(:,27, 6) = (/ &
+     &2.2677e+00_rb,2.4258e+00_rb,2.5973e+00_rb,2.7818e+00_rb,2.9766e+00_rb/)
+      kbo(:,28, 6) = (/ &
+     &2.0273e+00_rb,2.1803e+00_rb,2.3462e+00_rb,2.5211e+00_rb,2.7040e+00_rb/)
+      kbo(:,29, 6) = (/ &
+     &1.8190e+00_rb,1.9689e+00_rb,2.1279e+00_rb,2.2941e+00_rb,2.4662e+00_rb/)
+      kbo(:,30, 6) = (/ &
+     &1.6397e+00_rb,1.7844e+00_rb,1.9371e+00_rb,2.0958e+00_rb,2.2590e+00_rb/)
+      kbo(:,31, 6) = (/ &
+     &1.4852e+00_rb,1.6249e+00_rb,1.7714e+00_rb,1.9226e+00_rb,2.0813e+00_rb/)
+      kbo(:,32, 6) = (/ &
+     &1.3517e+00_rb,1.4862e+00_rb,1.6264e+00_rb,1.7745e+00_rb,1.9335e+00_rb/)
+      kbo(:,33, 6) = (/ &
+     &1.2364e+00_rb,1.3651e+00_rb,1.5027e+00_rb,1.6513e+00_rb,1.8098e+00_rb/)
+      kbo(:,34, 6) = (/ &
+     &1.1317e+00_rb,1.2571e+00_rb,1.3947e+00_rb,1.5426e+00_rb,1.7001e+00_rb/)
+      kbo(:,35, 6) = (/ &
+     &1.0305e+00_rb,1.1540e+00_rb,1.2902e+00_rb,1.4368e+00_rb,1.5937e+00_rb/)
+      kbo(:,36, 6) = (/ &
+     &9.3137e-01_rb,1.0526e+00_rb,1.1856e+00_rb,1.3299e+00_rb,1.4860e+00_rb/)
+      kbo(:,37, 6) = (/ &
+     &8.2931e-01_rb,9.4564e-01_rb,1.0739e+00_rb,1.2152e+00_rb,1.3682e+00_rb/)
+      kbo(:,38, 6) = (/ &
+     &7.3906e-01_rb,8.5034e-01_rb,9.7478e-01_rb,1.1125e+00_rb,1.2627e+00_rb/)
+      kbo(:,39, 6) = (/ &
+     &6.6006e-01_rb,7.6663e-01_rb,8.8732e-01_rb,1.0214e+00_rb,1.1704e+00_rb/)
+      kbo(:,40, 6) = (/ &
+     &5.8074e-01_rb,6.8151e-01_rb,7.9698e-01_rb,9.2673e-01_rb,1.0719e+00_rb/)
+      kbo(:,41, 6) = (/ &
+     &5.0970e-01_rb,6.0467e-01_rb,7.1469e-01_rb,8.3962e-01_rb,9.8097e-01_rb/)
+      kbo(:,42, 6) = (/ &
+     &4.4691e-01_rb,5.3653e-01_rb,6.4112e-01_rb,7.6136e-01_rb,8.9846e-01_rb/)
+      kbo(:,43, 6) = (/ &
+     &3.8720e-01_rb,4.7067e-01_rb,5.6921e-01_rb,6.8346e-01_rb,8.1541e-01_rb/)
+      kbo(:,44, 6) = (/ &
+     &3.3270e-01_rb,4.0984e-01_rb,5.0209e-01_rb,6.1017e-01_rb,7.3637e-01_rb/)
+      kbo(:,45, 6) = (/ &
+     &2.8475e-01_rb,3.5595e-01_rb,4.4190e-01_rb,5.4378e-01_rb,6.6410e-01_rb/)
+      kbo(:,46, 6) = (/ &
+     &2.4137e-01_rb,3.0640e-01_rb,3.8581e-01_rb,4.8130e-01_rb,5.9507e-01_rb/)
+      kbo(:,47, 6) = (/ &
+     &2.0121e-01_rb,2.5952e-01_rb,3.3199e-01_rb,4.2038e-01_rb,5.2702e-01_rb/)
+      kbo(:,48, 6) = (/ &
+     &1.6644e-01_rb,2.1836e-01_rb,2.8412e-01_rb,3.6558e-01_rb,4.6520e-01_rb/)
+      kbo(:,49, 6) = (/ &
+     &1.3664e-01_rb,1.8247e-01_rb,2.4166e-01_rb,3.1637e-01_rb,4.0912e-01_rb/)
+      kbo(:,50, 6) = (/ &
+     &1.1203e-01_rb,1.5228e-01_rb,2.0551e-01_rb,2.7399e-01_rb,3.6023e-01_rb/)
+      kbo(:,51, 6) = (/ &
+     &9.1424e-02_rb,1.2652e-01_rb,1.7413e-01_rb,2.3648e-01_rb,3.1642e-01_rb/)
+      kbo(:,52, 6) = (/ &
+     &7.4033e-02_rb,1.0433e-01_rb,1.4653e-01_rb,2.0289e-01_rb,2.7670e-01_rb/)
+      kbo(:,53, 6) = (/ &
+     &5.9468e-02_rb,8.5397e-02_rb,1.2237e-01_rb,1.7301e-01_rb,2.4059e-01_rb/)
+      kbo(:,54, 6) = (/ &
+     &4.7831e-02_rb,6.9932e-02_rb,1.0222e-01_rb,1.4759e-01_rb,2.0954e-01_rb/)
+      kbo(:,55, 6) = (/ &
+     &3.8375e-02_rb,5.7032e-02_rb,8.5062e-02_rb,1.2546e-01_rb,1.8204e-01_rb/)
+      kbo(:,56, 6) = (/ &
+     &3.0600e-02_rb,4.6150e-02_rb,7.0262e-02_rb,1.0594e-01_rb,1.5707e-01_rb/)
+      kbo(:,57, 6) = (/ &
+     &2.4221e-02_rb,3.7043e-02_rb,5.7569e-02_rb,8.8786e-02_rb,1.3465e-01_rb/)
+      kbo(:,58, 6) = (/ &
+     &1.9170e-02_rb,2.9713e-02_rb,4.7101e-02_rb,7.4302e-02_rb,1.1534e-01_rb/)
+      kbo(:,59, 6) = (/ &
+     &1.6314e-02_rb,2.5760e-02_rb,4.1528e-02_rb,6.6912e-02_rb,1.0596e-01_rb/)
+      kbo(:,13, 7) = (/ &
+     &2.6383e+01_rb,2.6399e+01_rb,2.6364e+01_rb,2.6286e+01_rb,2.6068e+01_rb/)
+      kbo(:,14, 7) = (/ &
+     &2.4391e+01_rb,2.4435e+01_rb,2.4445e+01_rb,2.4411e+01_rb,2.4344e+01_rb/)
+      kbo(:,15, 7) = (/ &
+     &2.2267e+01_rb,2.2343e+01_rb,2.2391e+01_rb,2.2420e+01_rb,2.2406e+01_rb/)
+      kbo(:,16, 7) = (/ &
+     &2.0101e+01_rb,2.0222e+01_rb,2.0311e+01_rb,2.0370e+01_rb,2.0373e+01_rb/)
+      kbo(:,17, 7) = (/ &
+     &1.7987e+01_rb,1.8130e+01_rb,1.8242e+01_rb,1.8316e+01_rb,1.8338e+01_rb/)
+      kbo(:,18, 7) = (/ &
+     &1.5956e+01_rb,1.6114e+01_rb,1.6238e+01_rb,1.6337e+01_rb,1.6400e+01_rb/)
+      kbo(:,19, 7) = (/ &
+     &1.4050e+01_rb,1.4210e+01_rb,1.4354e+01_rb,1.4495e+01_rb,1.4623e+01_rb/)
+      kbo(:,20, 7) = (/ &
+     &1.2287e+01_rb,1.2462e+01_rb,1.2644e+01_rb,1.2837e+01_rb,1.3036e+01_rb/)
+      kbo(:,21, 7) = (/ &
+     &1.0697e+01_rb,1.0904e+01_rb,1.1136e+01_rb,1.1376e+01_rb,1.1647e+01_rb/)
+      kbo(:,22, 7) = (/ &
+     &9.3216e+00_rb,9.5704e+00_rb,9.8418e+00_rb,1.0134e+01_rb,1.0464e+01_rb/)
+      kbo(:,23, 7) = (/ &
+     &8.1552e+00_rb,8.4381e+00_rb,8.7358e+00_rb,9.0546e+00_rb,9.4274e+00_rb/)
+      kbo(:,24, 7) = (/ &
+     &7.1742e+00_rb,7.4714e+00_rb,7.7800e+00_rb,8.1293e+00_rb,8.5227e+00_rb/)
+      kbo(:,25, 7) = (/ &
+     &6.3453e+00_rb,6.6371e+00_rb,6.9572e+00_rb,7.3300e+00_rb,7.7371e+00_rb/)
+      kbo(:,26, 7) = (/ &
+     &5.6325e+00_rb,5.9213e+00_rb,6.2619e+00_rb,6.6436e+00_rb,7.0622e+00_rb/)
+      kbo(:,27, 7) = (/ &
+     &5.0177e+00_rb,5.3180e+00_rb,5.6685e+00_rb,6.0556e+00_rb,6.4791e+00_rb/)
+      kbo(:,28, 7) = (/ &
+     &4.5006e+00_rb,4.8114e+00_rb,5.1630e+00_rb,5.5512e+00_rb,5.9725e+00_rb/)
+      kbo(:,29, 7) = (/ &
+     &4.0763e+00_rb,4.3869e+00_rb,4.7357e+00_rb,5.1215e+00_rb,5.5415e+00_rb/)
+      kbo(:,30, 7) = (/ &
+     &3.7197e+00_rb,4.0279e+00_rb,4.3734e+00_rb,4.7560e+00_rb,5.1758e+00_rb/)
+      kbo(:,31, 7) = (/ &
+     &3.4217e+00_rb,3.7276e+00_rb,4.0700e+00_rb,4.4513e+00_rb,4.8709e+00_rb/)
+      kbo(:,32, 7) = (/ &
+     &3.1725e+00_rb,3.4760e+00_rb,3.8179e+00_rb,4.1999e+00_rb,4.6169e+00_rb/)
+      kbo(:,33, 7) = (/ &
+     &2.9640e+00_rb,3.2682e+00_rb,3.6118e+00_rb,3.9912e+00_rb,4.4110e+00_rb/)
+      kbo(:,34, 7) = (/ &
+     &2.7815e+00_rb,3.0881e+00_rb,3.4286e+00_rb,3.8090e+00_rb,4.2366e+00_rb/)
+      kbo(:,35, 7) = (/ &
+     &2.6027e+00_rb,2.9073e+00_rb,3.2445e+00_rb,3.6269e+00_rb,4.0627e+00_rb/)
+      kbo(:,36, 7) = (/ &
+     &2.4195e+00_rb,2.7195e+00_rb,3.0535e+00_rb,3.4362e+00_rb,3.8766e+00_rb/)
+      kbo(:,37, 7) = (/ &
+     &2.2155e+00_rb,2.5099e+00_rb,2.8373e+00_rb,3.2150e+00_rb,3.6504e+00_rb/)
+      kbo(:,38, 7) = (/ &
+     &2.0317e+00_rb,2.3214e+00_rb,2.6457e+00_rb,3.0187e+00_rb,3.4497e+00_rb/)
+      kbo(:,39, 7) = (/ &
+     &1.8675e+00_rb,2.1535e+00_rb,2.4775e+00_rb,2.8467e+00_rb,3.2732e+00_rb/)
+      kbo(:,40, 7) = (/ &
+     &1.6933e+00_rb,1.9726e+00_rb,2.2917e+00_rb,2.6527e+00_rb,3.0690e+00_rb/)
+      kbo(:,41, 7) = (/ &
+     &1.5321e+00_rb,1.8045e+00_rb,2.1184e+00_rb,2.4731e+00_rb,2.8788e+00_rb/)
+      kbo(:,42, 7) = (/ &
+     &1.3858e+00_rb,1.6512e+00_rb,1.9598e+00_rb,2.3096e+00_rb,2.7061e+00_rb/)
+      kbo(:,43, 7) = (/ &
+     &1.2395e+00_rb,1.4953e+00_rb,1.7959e+00_rb,2.1389e+00_rb,2.5250e+00_rb/)
+      kbo(:,44, 7) = (/ &
+     &1.1006e+00_rb,1.3456e+00_rb,1.6365e+00_rb,1.9712e+00_rb,2.3479e+00_rb/)
+      kbo(:,45, 7) = (/ &
+     &9.7411e-01_rb,1.2078e+00_rb,1.4892e+00_rb,1.8150e+00_rb,2.1832e+00_rb/)
+      kbo(:,46, 7) = (/ &
+     &8.5489e-01_rb,1.0759e+00_rb,1.3456e+00_rb,1.6612e+00_rb,2.0197e+00_rb/)
+      kbo(:,47, 7) = (/ &
+     &7.3930e-01_rb,9.4494e-01_rb,1.2000e+00_rb,1.5026e+00_rb,1.8496e+00_rb/)
+      kbo(:,48, 7) = (/ &
+     &6.3547e-01_rb,8.2535e-01_rb,1.0653e+00_rb,1.3544e+00_rb,1.6889e+00_rb/)
+      kbo(:,49, 7) = (/ &
+     &5.4241e-01_rb,7.1674e-01_rb,9.4139e-01_rb,1.2160e+00_rb,1.5375e+00_rb/)
+      kbo(:,50, 7) = (/ &
+     &4.6304e-01_rb,6.2300e-01_rb,8.3217e-01_rb,1.0925e+00_rb,1.4012e+00_rb/)
+      kbo(:,51, 7) = (/ &
+     &3.9371e-01_rb,5.3995e-01_rb,7.3373e-01_rb,9.7980e-01_rb,1.2748e+00_rb/)
+      kbo(:,52, 7) = (/ &
+     &3.3220e-01_rb,4.6493e-01_rb,6.4396e-01_rb,8.7508e-01_rb,1.1558e+00_rb/)
+      kbo(:,53, 7) = (/ &
+     &2.7778e-01_rb,3.9741e-01_rb,5.6181e-01_rb,7.7785e-01_rb,1.0434e+00_rb/)
+      kbo(:,54, 7) = (/ &
+     &2.3274e-01_rb,3.4050e-01_rb,4.9090e-01_rb,6.9261e-01_rb,9.4387e-01_rb/)
+      kbo(:,55, 7) = (/ &
+     &1.9435e-01_rb,2.9105e-01_rb,4.2805e-01_rb,6.1562e-01_rb,8.5235e-01_rb/)
+      kbo(:,56, 7) = (/ &
+     &1.6083e-01_rb,2.4693e-01_rb,3.7158e-01_rb,5.4415e-01_rb,7.6669e-01_rb/)
+      kbo(:,57, 7) = (/ &
+     &1.3183e-01_rb,2.0770e-01_rb,3.2034e-01_rb,4.7818e-01_rb,6.8649e-01_rb/)
+      kbo(:,58, 7) = (/ &
+     &1.0786e-01_rb,1.7445e-01_rb,2.7618e-01_rb,4.2058e-01_rb,6.1481e-01_rb/)
+      kbo(:,59, 7) = (/ &
+     &9.5778e-02_rb,1.5879e-01_rb,2.5699e-01_rb,3.9684e-01_rb,5.8283e-01_rb/)
+      kbo(:,13, 8) = (/ &
+     &5.1036e+01_rb,5.0460e+01_rb,4.9876e+01_rb,4.9272e+01_rb,4.8645e+01_rb/)
+      kbo(:,14, 8) = (/ &
+     &4.9659e+01_rb,4.9240e+01_rb,4.8789e+01_rb,4.8317e+01_rb,4.7813e+01_rb/)
+      kbo(:,15, 8) = (/ &
+     &4.7836e+01_rb,4.7533e+01_rb,4.7179e+01_rb,4.6807e+01_rb,4.6408e+01_rb/)
+      kbo(:,16, 8) = (/ &
+     &4.5523e+01_rb,4.5307e+01_rb,4.5074e+01_rb,4.4798e+01_rb,4.4497e+01_rb/)
+      kbo(:,17, 8) = (/ &
+     &4.2751e+01_rb,4.2659e+01_rb,4.2523e+01_rb,4.2351e+01_rb,4.2128e+01_rb/)
+      kbo(:,18, 8) = (/ &
+     &3.9675e+01_rb,3.9678e+01_rb,3.9613e+01_rb,3.9512e+01_rb,3.9377e+01_rb/)
+      kbo(:,19, 8) = (/ &
+     &3.6385e+01_rb,3.6442e+01_rb,3.6467e+01_rb,3.6453e+01_rb,3.6385e+01_rb/)
+      kbo(:,20, 8) = (/ &
+     &3.2988e+01_rb,3.3119e+01_rb,3.3207e+01_rb,3.3253e+01_rb,3.3266e+01_rb/)
+      kbo(:,21, 8) = (/ &
+     &2.9629e+01_rb,2.9807e+01_rb,2.9950e+01_rb,3.0074e+01_rb,3.0195e+01_rb/)
+      kbo(:,22, 8) = (/ &
+     &2.6389e+01_rb,2.6615e+01_rb,2.6833e+01_rb,2.7054e+01_rb,2.7281e+01_rb/)
+      kbo(:,23, 8) = (/ &
+     &2.3355e+01_rb,2.3644e+01_rb,2.3948e+01_rb,2.4296e+01_rb,2.4660e+01_rb/)
+      kbo(:,24, 8) = (/ &
+     &2.0595e+01_rb,2.0963e+01_rb,2.1391e+01_rb,2.1861e+01_rb,2.2380e+01_rb/)
+      kbo(:,25, 8) = (/ &
+     &1.8159e+01_rb,1.8637e+01_rb,1.9183e+01_rb,1.9778e+01_rb,2.0439e+01_rb/)
+      kbo(:,26, 8) = (/ &
+     &1.6089e+01_rb,1.6677e+01_rb,1.7319e+01_rb,1.8032e+01_rb,1.8814e+01_rb/)
+      kbo(:,27, 8) = (/ &
+     &1.4363e+01_rb,1.5028e+01_rb,1.5757e+01_rb,1.6564e+01_rb,1.7443e+01_rb/)
+      kbo(:,28, 8) = (/ &
+     &1.2926e+01_rb,1.3648e+01_rb,1.4446e+01_rb,1.5323e+01_rb,1.6326e+01_rb/)
+      kbo(:,29, 8) = (/ &
+     &1.1723e+01_rb,1.2493e+01_rb,1.3349e+01_rb,1.4336e+01_rb,1.5419e+01_rb/)
+      kbo(:,30, 8) = (/ &
+     &1.0720e+01_rb,1.1535e+01_rb,1.2485e+01_rb,1.3543e+01_rb,1.4696e+01_rb/)
+      kbo(:,31, 8) = (/ &
+     &9.8953e+00_rb,1.0794e+01_rb,1.1807e+01_rb,1.2928e+01_rb,1.4151e+01_rb/)
+      kbo(:,32, 8) = (/ &
+     &9.2630e+00_rb,1.0213e+01_rb,1.1281e+01_rb,1.2468e+01_rb,1.3783e+01_rb/)
+      kbo(:,33, 8) = (/ &
+     &8.7693e+00_rb,9.7682e+00_rb,1.0900e+01_rb,1.2171e+01_rb,1.3564e+01_rb/)
+      kbo(:,34, 8) = (/ &
+     &8.3550e+00_rb,9.4057e+00_rb,1.0612e+01_rb,1.1954e+01_rb,1.3416e+01_rb/)
+      kbo(:,35, 8) = (/ &
+     &7.9503e+00_rb,9.0506e+00_rb,1.0311e+01_rb,1.1711e+01_rb,1.3230e+01_rb/)
+      kbo(:,36, 8) = (/ &
+     &7.5260e+00_rb,8.6513e+00_rb,9.9500e+00_rb,1.1393e+01_rb,1.2954e+01_rb/)
+      kbo(:,37, 8) = (/ &
+     &7.0166e+00_rb,8.1408e+00_rb,9.4476e+00_rb,1.0907e+01_rb,1.2489e+01_rb/)
+      kbo(:,38, 8) = (/ &
+     &6.5631e+00_rb,7.6815e+00_rb,8.9895e+00_rb,1.0461e+01_rb,1.2064e+01_rb/)
+      kbo(:,39, 8) = (/ &
+     &6.1678e+00_rb,7.2805e+00_rb,8.5861e+00_rb,1.0065e+01_rb,1.1676e+01_rb/)
+      kbo(:,40, 8) = (/ &
+     &5.7155e+00_rb,6.7987e+00_rb,8.0775e+00_rb,9.5392e+00_rb,1.1142e+01_rb/)
+      kbo(:,41, 8) = (/ &
+     &5.2949e+00_rb,6.3470e+00_rb,7.5914e+00_rb,9.0258e+00_rb,1.0614e+01_rb/)
+      kbo(:,42, 8) = (/ &
+     &4.9139e+00_rb,5.9322e+00_rb,7.1403e+00_rb,8.5407e+00_rb,1.0110e+01_rb/)
+      kbo(:,43, 8) = (/ &
+     &4.5194e+00_rb,5.4902e+00_rb,6.6498e+00_rb,8.0033e+00_rb,9.5351e+00_rb/)
+      kbo(:,44, 8) = (/ &
+     &4.1399e+00_rb,5.0576e+00_rb,6.1633e+00_rb,7.4614e+00_rb,8.9447e+00_rb/)
+      kbo(:,45, 8) = (/ &
+     &3.7947e+00_rb,4.6596e+00_rb,5.7095e+00_rb,6.9501e+00_rb,8.3804e+00_rb/)
+      kbo(:,46, 8) = (/ &
+     &3.4645e+00_rb,4.2731e+00_rb,5.2631e+00_rb,6.4408e+00_rb,7.8107e+00_rb/)
+      kbo(:,47, 8) = (/ &
+     &3.1333e+00_rb,3.8817e+00_rb,4.8032e+00_rb,5.9109e+00_rb,7.2077e+00_rb/)
+      kbo(:,48, 8) = (/ &
+     &2.8272e+00_rb,3.5252e+00_rb,4.3790e+00_rb,5.4161e+00_rb,6.6403e+00_rb/)
+      kbo(:,49, 8) = (/ &
+     &2.5419e+00_rb,3.2000e+00_rb,3.9894e+00_rb,4.9550e+00_rb,6.1077e+00_rb/)
+      kbo(:,50, 8) = (/ &
+     &2.2876e+00_rb,2.9151e+00_rb,3.6507e+00_rb,4.5513e+00_rb,5.6358e+00_rb/)
+      kbo(:,51, 8) = (/ &
+     &2.0539e+00_rb,2.6537e+00_rb,3.3480e+00_rb,4.1860e+00_rb,5.2042e+00_rb/)
+      kbo(:,52, 8) = (/ &
+     &1.8359e+00_rb,2.4075e+00_rb,3.0676e+00_rb,3.8482e+00_rb,4.8005e+00_rb/)
+      kbo(:,53, 8) = (/ &
+     &1.6315e+00_rb,2.1744e+00_rb,2.8043e+00_rb,3.5342e+00_rb,4.4242e+00_rb/)
+      kbo(:,54, 8) = (/ &
+     &1.4536e+00_rb,1.9689e+00_rb,2.5734e+00_rb,3.2651e+00_rb,4.0977e+00_rb/)
+      kbo(:,55, 8) = (/ &
+     &1.2924e+00_rb,1.7818e+00_rb,2.3616e+00_rb,3.0234e+00_rb,3.8040e+00_rb/)
+      kbo(:,56, 8) = (/ &
+     &1.1428e+00_rb,1.6042e+00_rb,2.1584e+00_rb,2.7950e+00_rb,3.5303e+00_rb/)
+      kbo(:,57, 8) = (/ &
+     &1.0034e+00_rb,1.4376e+00_rb,1.9645e+00_rb,2.5766e+00_rb,3.2746e+00_rb/)
+      kbo(:,58, 8) = (/ &
+     &8.7989e-01_rb,1.2882e+00_rb,1.7895e+00_rb,2.3775e+00_rb,3.0470e+00_rb/)
+      kbo(:,59, 8) = (/ &
+     &8.2607e-01_rb,1.2253e+00_rb,1.7145e+00_rb,2.2929e+00_rb,2.9546e+00_rb/)
+      kbo(:,13, 9) = (/ &
+     &9.9406e+01_rb,9.8017e+01_rb,9.6610e+01_rb,9.5133e+01_rb,9.3589e+01_rb/)
+      kbo(:,14, 9) = (/ &
+     &1.0426e+02_rb,1.0289e+02_rb,1.0145e+02_rb,9.9955e+01_rb,9.8418e+01_rb/)
+      kbo(:,15, 9) = (/ &
+     &1.0831e+02_rb,1.0700e+02_rb,1.0565e+02_rb,1.0422e+02_rb,1.0271e+02_rb/)
+      kbo(:,16, 9) = (/ &
+     &1.1144e+02_rb,1.1027e+02_rb,1.0899e+02_rb,1.0766e+02_rb,1.0626e+02_rb/)
+      kbo(:,17, 9) = (/ &
+     &1.1357e+02_rb,1.1252e+02_rb,1.1140e+02_rb,1.1022e+02_rb,1.0897e+02_rb/)
+      kbo(:,18, 9) = (/ &
+     &1.1451e+02_rb,1.1366e+02_rb,1.1275e+02_rb,1.1172e+02_rb,1.1059e+02_rb/)
+      kbo(:,19, 9) = (/ &
+     &1.1419e+02_rb,1.1358e+02_rb,1.1283e+02_rb,1.1199e+02_rb,1.1108e+02_rb/)
+      kbo(:,20, 9) = (/ &
+     &1.1253e+02_rb,1.1217e+02_rb,1.1170e+02_rb,1.1113e+02_rb,1.1043e+02_rb/)
+      kbo(:,21, 9) = (/ &
+     &1.0964e+02_rb,1.0959e+02_rb,1.0941e+02_rb,1.0911e+02_rb,1.0868e+02_rb/)
+      kbo(:,22, 9) = (/ &
+     &1.0576e+02_rb,1.0601e+02_rb,1.0614e+02_rb,1.0616e+02_rb,1.0606e+02_rb/)
+      kbo(:,23, 9) = (/ &
+     &1.0113e+02_rb,1.0172e+02_rb,1.0220e+02_rb,1.0257e+02_rb,1.0280e+02_rb/)
+      kbo(:,24, 9) = (/ &
+     &9.6005e+01_rb,9.6976e+01_rb,9.7826e+01_rb,9.8561e+01_rb,9.9182e+01_rb/)
+      kbo(:,25, 9) = (/ &
+     &9.0658e+01_rb,9.2026e+01_rb,9.3302e+01_rb,9.4462e+01_rb,9.5504e+01_rb/)
+      kbo(:,26, 9) = (/ &
+     &8.5398e+01_rb,8.7188e+01_rb,8.8895e+01_rb,9.0506e+01_rb,9.1994e+01_rb/)
+      kbo(:,27, 9) = (/ &
+     &8.0425e+01_rb,8.2648e+01_rb,8.4817e+01_rb,8.6900e+01_rb,8.8861e+01_rb/)
+      kbo(:,28, 9) = (/ &
+     &7.5902e+01_rb,7.8597e+01_rb,8.1250e+01_rb,8.3817e+01_rb,8.6189e+01_rb/)
+      kbo(:,29, 9) = (/ &
+     &7.2021e+01_rb,7.5193e+01_rb,7.8323e+01_rb,8.1284e+01_rb,8.4079e+01_rb/)
+      kbo(:,30, 9) = (/ &
+     &6.8846e+01_rb,7.2476e+01_rb,7.5986e+01_rb,7.9352e+01_rb,8.2517e+01_rb/)
+      kbo(:,31, 9) = (/ &
+     &6.6391e+01_rb,7.0389e+01_rb,7.4280e+01_rb,7.7994e+01_rb,8.1462e+01_rb/)
+      kbo(:,32, 9) = (/ &
+     &6.4577e+01_rb,6.8942e+01_rb,7.3166e+01_rb,7.7157e+01_rb,8.0829e+01_rb/)
+      kbo(:,33, 9) = (/ &
+     &6.3392e+01_rb,6.8071e+01_rb,7.2548e+01_rb,7.6730e+01_rb,8.0569e+01_rb/)
+      kbo(:,34, 9) = (/ &
+     &6.2591e+01_rb,6.7517e+01_rb,7.2182e+01_rb,7.6523e+01_rb,8.0479e+01_rb/)
+      kbo(:,35, 9) = (/ &
+     &6.1727e+01_rb,6.6854e+01_rb,7.1692e+01_rb,7.6175e+01_rb,8.0232e+01_rb/)
+      kbo(:,36, 9) = (/ &
+     &6.0594e+01_rb,6.5914e+01_rb,7.0919e+01_rb,7.5536e+01_rb,7.9714e+01_rb/)
+      kbo(:,37, 9) = (/ &
+     &5.8846e+01_rb,6.4364e+01_rb,6.9558e+01_rb,7.4349e+01_rb,7.8713e+01_rb/)
+      kbo(:,38, 9) = (/ &
+     &5.7194e+01_rb,6.2887e+01_rb,6.8247e+01_rb,7.3195e+01_rb,7.8049e+01_rb/)
+      kbo(:,39, 9) = (/ &
+     &5.5665e+01_rb,6.1507e+01_rb,6.7008e+01_rb,7.2147e+01_rb,7.7547e+01_rb/)
+      kbo(:,40, 9) = (/ &
+     &5.3621e+01_rb,5.9617e+01_rb,6.5286e+01_rb,7.0695e+01_rb,7.6340e+01_rb/)
+      kbo(:,41, 9) = (/ &
+     &5.1554e+01_rb,5.7685e+01_rb,6.3510e+01_rb,6.9201e+01_rb,7.4982e+01_rb/)
+      kbo(:,42, 9) = (/ &
+     &4.9528e+01_rb,5.5776e+01_rb,6.1743e+01_rb,6.7740e+01_rb,7.3659e+01_rb/)
+      kbo(:,43, 9) = (/ &
+     &4.7178e+01_rb,5.3540e+01_rb,5.9647e+01_rb,6.5886e+01_rb,7.2015e+01_rb/)
+      kbo(:,44, 9) = (/ &
+     &4.4688e+01_rb,5.1145e+01_rb,5.7387e+01_rb,6.3891e+01_rb,7.0203e+01_rb/)
+      kbo(:,45, 9) = (/ &
+     &4.2221e+01_rb,4.8754e+01_rb,5.5108e+01_rb,6.1908e+01_rb,6.8361e+01_rb/)
+      kbo(:,46, 9) = (/ &
+     &3.9637e+01_rb,4.6220e+01_rb,5.2693e+01_rb,5.9708e+01_rb,6.6363e+01_rb/)
+      kbo(:,47, 9) = (/ &
+     &3.6803e+01_rb,4.3409e+01_rb,4.9987e+01_rb,5.7153e+01_rb,6.3987e+01_rb/)
+      kbo(:,48, 9) = (/ &
+     &3.4015e+01_rb,4.0603e+01_rb,4.7276e+01_rb,5.4594e+01_rb,6.1608e+01_rb/)
+      kbo(:,49, 9) = (/ &
+     &3.1288e+01_rb,3.7812e+01_rb,4.4636e+01_rb,5.2065e+01_rb,5.9201e+01_rb/)
+      kbo(:,50, 9) = (/ &
+     &2.8795e+01_rb,3.5220e+01_rb,4.2061e+01_rb,4.9552e+01_rb,5.6813e+01_rb/)
+      kbo(:,51, 9) = (/ &
+     &2.6450e+01_rb,3.2748e+01_rb,3.9528e+01_rb,4.7065e+01_rb,5.4424e+01_rb/)
+      kbo(:,52, 9) = (/ &
+     &2.4182e+01_rb,3.0329e+01_rb,3.7052e+01_rb,4.4584e+01_rb,5.2041e+01_rb/)
+      kbo(:,53, 9) = (/ &
+     &2.1996e+01_rb,2.7965e+01_rb,3.4636e+01_rb,4.2155e+01_rb,4.9659e+01_rb/)
+      kbo(:,54, 9) = (/ &
+     &2.0069e+01_rb,2.5858e+01_rb,3.2251e+01_rb,3.9700e+01_rb,4.7245e+01_rb/)
+      kbo(:,55, 9) = (/ &
+     &1.8302e+01_rb,2.3898e+01_rb,3.0045e+01_rb,3.7230e+01_rb,4.4781e+01_rb/)
+      kbo(:,56, 9) = (/ &
+     &1.6618e+01_rb,2.2006e+01_rb,2.7997e+01_rb,3.4787e+01_rb,4.2319e+01_rb/)
+      kbo(:,57, 9) = (/ &
+     &1.5017e+01_rb,2.0180e+01_rb,2.5997e+01_rb,3.2401e+01_rb,3.9855e+01_rb/)
+      kbo(:,58, 9) = (/ &
+     &1.3581e+01_rb,1.8514e+01_rb,2.4151e+01_rb,3.0332e+01_rb,3.7487e+01_rb/)
+      kbo(:,59, 9) = (/ &
+     &1.3022e+01_rb,1.7859e+01_rb,2.3425e+01_rb,2.9551e+01_rb,3.6092e+01_rb/)
+      kbo(:,13,10) = (/ &
+     &1.4854e+02_rb,1.4629e+02_rb,1.4392e+02_rb,1.4179e+02_rb,1.3968e+02_rb/)
+      kbo(:,14,10) = (/ &
+     &1.6449e+02_rb,1.6201e+02_rb,1.5966e+02_rb,1.5740e+02_rb,1.5475e+02_rb/)
+      kbo(:,15,10) = (/ &
+     &1.8113e+02_rb,1.7883e+02_rb,1.7633e+02_rb,1.7356e+02_rb,1.7082e+02_rb/)
+      kbo(:,16,10) = (/ &
+     &1.9869e+02_rb,1.9617e+02_rb,1.9337e+02_rb,1.9057e+02_rb,1.8767e+02_rb/)
+      kbo(:,17,10) = (/ &
+     &2.1579e+02_rb,2.1310e+02_rb,2.1009e+02_rb,2.0678e+02_rb,2.0344e+02_rb/)
+      kbo(:,18,10) = (/ &
+     &2.3175e+02_rb,2.2862e+02_rb,2.2543e+02_rb,2.2232e+02_rb,2.1916e+02_rb/)
+      kbo(:,19,10) = (/ &
+     &2.4595e+02_rb,2.4325e+02_rb,2.4040e+02_rb,2.3730e+02_rb,2.3384e+02_rb/)
+      kbo(:,20,10) = (/ &
+     &2.5917e+02_rb,2.5646e+02_rb,2.5347e+02_rb,2.5026e+02_rb,2.4697e+02_rb/)
+      kbo(:,21,10) = (/ &
+     &2.7002e+02_rb,2.6751e+02_rb,2.6472e+02_rb,2.6184e+02_rb,2.5881e+02_rb/)
+      kbo(:,22,10) = (/ &
+     &2.7788e+02_rb,2.7617e+02_rb,2.7411e+02_rb,2.7166e+02_rb,2.6869e+02_rb/)
+      kbo(:,23,10) = (/ &
+     &2.8310e+02_rb,2.8234e+02_rb,2.8114e+02_rb,2.7929e+02_rb,2.7687e+02_rb/)
+      kbo(:,24,10) = (/ &
+     &2.8635e+02_rb,2.8652e+02_rb,2.8615e+02_rb,2.8511e+02_rb,2.8345e+02_rb/)
+      kbo(:,25,10) = (/ &
+     &2.8819e+02_rb,2.8935e+02_rb,2.8976e+02_rb,2.8954e+02_rb,2.8857e+02_rb/)
+      kbo(:,26,10) = (/ &
+     &2.8894e+02_rb,2.9109e+02_rb,2.9250e+02_rb,2.9307e+02_rb,2.9272e+02_rb/)
+      kbo(:,27,10) = (/ &
+     &2.8895e+02_rb,2.9239e+02_rb,2.9473e+02_rb,2.9595e+02_rb,2.9616e+02_rb/)
+      kbo(:,28,10) = (/ &
+     &2.8893e+02_rb,2.9347e+02_rb,2.9660e+02_rb,2.9845e+02_rb,2.9908e+02_rb/)
+      kbo(:,29,10) = (/ &
+     &2.8896e+02_rb,2.9449e+02_rb,2.9830e+02_rb,3.0067e+02_rb,3.0167e+02_rb/)
+      kbo(:,30,10) = (/ &
+     &2.8928e+02_rb,2.9562e+02_rb,2.9995e+02_rb,3.0268e+02_rb,3.0395e+02_rb/)
+      kbo(:,31,10) = (/ &
+     &2.9009e+02_rb,2.9691e+02_rb,3.0163e+02_rb,3.0456e+02_rb,3.0602e+02_rb/)
+      kbo(:,32,10) = (/ &
+     &2.9131e+02_rb,2.9842e+02_rb,3.0331e+02_rb,3.0639e+02_rb,3.0785e+02_rb/)
+      kbo(:,33,10) = (/ &
+     &2.9285e+02_rb,3.0006e+02_rb,3.0500e+02_rb,3.0808e+02_rb,3.0942e+02_rb/)
+      kbo(:,34,10) = (/ &
+     &2.9430e+02_rb,3.0156e+02_rb,3.0650e+02_rb,3.0954e+02_rb,3.1081e+02_rb/)
+      kbo(:,35,10) = (/ &
+     &2.9506e+02_rb,3.0251e+02_rb,3.0756e+02_rb,3.1064e+02_rb,3.1189e+02_rb/)
+      kbo(:,36,10) = (/ &
+     &2.9495e+02_rb,3.0278e+02_rb,3.0811e+02_rb,3.1136e+02_rb,3.1273e+02_rb/)
+      kbo(:,37,10) = (/ &
+     &2.9340e+02_rb,3.0194e+02_rb,3.0787e+02_rb,3.1159e+02_rb,3.1314e+02_rb/)
+      kbo(:,38,10) = (/ &
+     &2.9167e+02_rb,3.0090e+02_rb,3.0743e+02_rb,3.1157e+02_rb,3.1035e+02_rb/)
+      kbo(:,39,10) = (/ &
+     &2.8984e+02_rb,2.9975e+02_rb,3.0683e+02_rb,3.1096e+02_rb,3.0638e+02_rb/)
+      kbo(:,40,10) = (/ &
+     &2.8667e+02_rb,2.9751e+02_rb,3.0546e+02_rb,3.0937e+02_rb,3.0473e+02_rb/)
+      kbo(:,41,10) = (/ &
+     &2.8308e+02_rb,2.9489e+02_rb,3.0373e+02_rb,3.0736e+02_rb,3.0363e+02_rb/)
+      kbo(:,42,10) = (/ &
+     &2.7921e+02_rb,2.9200e+02_rb,3.0174e+02_rb,3.0479e+02_rb,3.0187e+02_rb/)
+      kbo(:,43,10) = (/ &
+     &2.7420e+02_rb,2.8820e+02_rb,2.9899e+02_rb,3.0230e+02_rb,2.9999e+02_rb/)
+      kbo(:,44,10) = (/ &
+     &2.6840e+02_rb,2.8368e+02_rb,2.9562e+02_rb,2.9904e+02_rb,2.9872e+02_rb/)
+      kbo(:,45,10) = (/ &
+     &2.6218e+02_rb,2.7870e+02_rb,2.9185e+02_rb,2.9503e+02_rb,2.9798e+02_rb/)
+      kbo(:,46,10) = (/ &
+     &2.5505e+02_rb,2.7298e+02_rb,2.8727e+02_rb,2.9090e+02_rb,2.9720e+02_rb/)
+      kbo(:,47,10) = (/ &
+     &2.4654e+02_rb,2.6603e+02_rb,2.8160e+02_rb,2.8645e+02_rb,2.9469e+02_rb/)
+      kbo(:,48,10) = (/ &
+     &2.3740e+02_rb,2.5847e+02_rb,2.7519e+02_rb,2.8106e+02_rb,2.9248e+02_rb/)
+      kbo(:,49,10) = (/ &
+     &2.2763e+02_rb,2.5025e+02_rb,2.6743e+02_rb,2.7456e+02_rb,2.9049e+02_rb/)
+      kbo(:,50,10) = (/ &
+     &2.1791e+02_rb,2.4202e+02_rb,2.6048e+02_rb,2.6898e+02_rb,2.8731e+02_rb/)
+      kbo(:,51,10) = (/ &
+     &2.0797e+02_rb,2.3350e+02_rb,2.5355e+02_rb,2.6334e+02_rb,2.8310e+02_rb/)
+      kbo(:,52,10) = (/ &
+     &1.9757e+02_rb,2.2449e+02_rb,2.4576e+02_rb,2.5715e+02_rb,2.7915e+02_rb/)
+      kbo(:,53,10) = (/ &
+     &1.8669e+02_rb,2.1495e+02_rb,2.3714e+02_rb,2.5067e+02_rb,2.7496e+02_rb/)
+      kbo(:,54,10) = (/ &
+     &1.7638e+02_rb,2.0577e+02_rb,2.3068e+02_rb,2.4491e+02_rb,2.6874e+02_rb/)
+      kbo(:,55,10) = (/ &
+     &1.6621e+02_rb,1.9659e+02_rb,2.2369e+02_rb,2.4095e+02_rb,2.6031e+02_rb/)
+      kbo(:,56,10) = (/ &
+     &1.5581e+02_rb,1.8709e+02_rb,2.1533e+02_rb,2.3658e+02_rb,2.5187e+02_rb/)
+      kbo(:,57,10) = (/ &
+     &1.4523e+02_rb,1.7728e+02_rb,2.0662e+02_rb,2.3157e+02_rb,2.4581e+02_rb/)
+      kbo(:,58,10) = (/ &
+     &1.3508e+02_rb,1.6774e+02_rb,1.9802e+02_rb,2.2497e+02_rb,2.4252e+02_rb/)
+      kbo(:,59,10) = (/ &
+     &1.3094e+02_rb,1.6382e+02_rb,1.9446e+02_rb,2.2185e+02_rb,2.4525e+02_rb/)
+      kbo(:,13,11) = (/ &
+     &1.6572e+02_rb,1.6289e+02_rb,1.6008e+02_rb,1.5714e+02_rb,1.5448e+02_rb/)
+      kbo(:,14,11) = (/ &
+     &1.8540e+02_rb,1.8266e+02_rb,1.7967e+02_rb,1.7665e+02_rb,1.7387e+02_rb/)
+      kbo(:,15,11) = (/ &
+     &2.0814e+02_rb,2.0518e+02_rb,2.0210e+02_rb,1.9898e+02_rb,1.9569e+02_rb/)
+      kbo(:,16,11) = (/ &
+     &2.3282e+02_rb,2.2978e+02_rb,2.2643e+02_rb,2.2243e+02_rb,2.1800e+02_rb/)
+      kbo(:,17,11) = (/ &
+     &2.5856e+02_rb,2.5501e+02_rb,2.5085e+02_rb,2.4632e+02_rb,2.4166e+02_rb/)
+      kbo(:,18,11) = (/ &
+     &2.8422e+02_rb,2.8031e+02_rb,2.7577e+02_rb,2.7086e+02_rb,2.6564e+02_rb/)
+      kbo(:,19,11) = (/ &
+     &3.0919e+02_rb,3.0467e+02_rb,2.9960e+02_rb,2.9432e+02_rb,2.8897e+02_rb/)
+      kbo(:,20,11) = (/ &
+     &3.3207e+02_rb,3.2741e+02_rb,3.2245e+02_rb,3.1728e+02_rb,3.1181e+02_rb/)
+      kbo(:,21,11) = (/ &
+     &3.5360e+02_rb,3.4929e+02_rb,3.4457e+02_rb,3.3936e+02_rb,3.3368e+02_rb/)
+      kbo(:,22,11) = (/ &
+     &3.7366e+02_rb,3.6938e+02_rb,3.6457e+02_rb,3.5924e+02_rb,3.5347e+02_rb/)
+      kbo(:,23,11) = (/ &
+     &3.9151e+02_rb,3.8745e+02_rb,3.8282e+02_rb,3.7760e+02_rb,3.7188e+02_rb/)
+      kbo(:,24,11) = (/ &
+     &4.0699e+02_rb,4.0355e+02_rb,3.9930e+02_rb,3.9428e+02_rb,3.8859e+02_rb/)
+      kbo(:,25,11) = (/ &
+     &4.2010e+02_rb,4.1762e+02_rb,4.1382e+02_rb,4.0900e+02_rb,4.0333e+02_rb/)
+      kbo(:,26,11) = (/ &
+     &4.3097e+02_rb,4.2949e+02_rb,4.2634e+02_rb,4.2177e+02_rb,4.1610e+02_rb/)
+      kbo(:,27,11) = (/ &
+     &4.4020e+02_rb,4.3958e+02_rb,4.3704e+02_rb,4.3277e+02_rb,4.2718e+02_rb/)
+      kbo(:,28,11) = (/ &
+     &4.4818e+02_rb,4.4821e+02_rb,4.4611e+02_rb,4.4212e+02_rb,4.3652e+02_rb/)
+      kbo(:,29,11) = (/ &
+     &4.5504e+02_rb,4.5548e+02_rb,4.5376e+02_rb,4.4984e+02_rb,4.4415e+02_rb/)
+      kbo(:,30,11) = (/ &
+     &4.6091e+02_rb,4.6162e+02_rb,4.6010e+02_rb,4.5616e+02_rb,4.5025e+02_rb/)
+      kbo(:,31,11) = (/ &
+     &4.6598e+02_rb,4.6680e+02_rb,4.6528e+02_rb,4.6118e+02_rb,4.5498e+02_rb/)
+      kbo(:,32,11) = (/ &
+     &4.7040e+02_rb,4.7120e+02_rb,4.6944e+02_rb,4.6509e+02_rb,4.5862e+02_rb/)
+      kbo(:,33,11) = (/ &
+     &4.7430e+02_rb,4.7493e+02_rb,4.7283e+02_rb,4.6810e+02_rb,4.6122e+02_rb/)
+      kbo(:,34,11) = (/ &
+     &4.7770e+02_rb,4.7802e+02_rb,4.7557e+02_rb,4.7044e+02_rb,4.6319e+02_rb/)
+      kbo(:,35,11) = (/ &
+     &4.8041e+02_rb,4.8064e+02_rb,4.7804e+02_rb,4.7275e+02_rb,4.6531e+02_rb/)
+      kbo(:,36,11) = (/ &
+     &4.8253e+02_rb,4.8296e+02_rb,4.8047e+02_rb,4.7521e+02_rb,4.6778e+02_rb/)
+      kbo(:,37,11) = (/ &
+     &4.8393e+02_rb,4.8502e+02_rb,4.8301e+02_rb,4.7821e+02_rb,4.7102e+02_rb/)
+      kbo(:,38,11) = (/ &
+     &4.8486e+02_rb,4.8663e+02_rb,4.8514e+02_rb,4.8082e+02_rb,4.7394e+02_rb/)
+      kbo(:,39,11) = (/ &
+     &4.8541e+02_rb,4.8785e+02_rb,4.8691e+02_rb,4.8302e+02_rb,4.7647e+02_rb/)
+      kbo(:,40,11) = (/ &
+     &4.8510e+02_rb,4.8864e+02_rb,4.8854e+02_rb,4.8540e+02_rb,4.7945e+02_rb/)
+      kbo(:,41,11) = (/ &
+     &4.8418e+02_rb,4.8891e+02_rb,4.8975e+02_rb,4.8740e+02_rb,4.8219e+02_rb/)
+      kbo(:,42,11) = (/ &
+     &4.8279e+02_rb,4.8873e+02_rb,4.9057e+02_rb,4.8904e+02_rb,4.8458e+02_rb/)
+      kbo(:,43,11) = (/ &
+     &4.8041e+02_rb,4.8782e+02_rb,4.9100e+02_rb,4.9049e+02_rb,4.8682e+02_rb/)
+      kbo(:,44,11) = (/ &
+     &4.7714e+02_rb,4.8618e+02_rb,4.9081e+02_rb,4.9150e+02_rb,4.8756e+02_rb/)
+      kbo(:,45,11) = (/ &
+     &4.7308e+02_rb,4.8395e+02_rb,4.9007e+02_rb,4.9204e+02_rb,4.8671e+02_rb/)
+      kbo(:,46,11) = (/ &
+     &4.6783e+02_rb,4.8086e+02_rb,4.8862e+02_rb,4.9205e+02_rb,4.8480e+02_rb/)
+      kbo(:,47,11) = (/ &
+     &4.6080e+02_rb,4.7644e+02_rb,4.8623e+02_rb,4.9139e+02_rb,4.8469e+02_rb/)
+      kbo(:,48,11) = (/ &
+     &4.5259e+02_rb,4.7102e+02_rb,4.8306e+02_rb,4.9003e+02_rb,4.8230e+02_rb/)
+      kbo(:,49,11) = (/ &
+     &4.4320e+02_rb,4.6445e+02_rb,4.7901e+02_rb,4.8786e+02_rb,4.7807e+02_rb/)
+      kbo(:,50,11) = (/ &
+     &4.3321e+02_rb,4.5728e+02_rb,4.7435e+02_rb,4.8518e+02_rb,4.7550e+02_rb/)
+      kbo(:,51,11) = (/ &
+     &4.2248e+02_rb,4.4931e+02_rb,4.6891e+02_rb,4.8193e+02_rb,4.7366e+02_rb/)
+      kbo(:,52,11) = (/ &
+     &4.1065e+02_rb,4.4034e+02_rb,4.6257e+02_rb,4.7793e+02_rb,4.7004e+02_rb/)
+      kbo(:,53,11) = (/ &
+     &3.9765e+02_rb,4.3037e+02_rb,4.5526e+02_rb,4.7213e+02_rb,4.6510e+02_rb/)
+      kbo(:,54,11) = (/ &
+     &3.8467e+02_rb,4.2027e+02_rb,4.4777e+02_rb,4.6790e+02_rb,4.6484e+02_rb/)
+      kbo(:,55,11) = (/ &
+     &3.7132e+02_rb,4.0974e+02_rb,4.3973e+02_rb,4.6220e+02_rb,4.6820e+02_rb/)
+      kbo(:,56,11) = (/ &
+     &3.5710e+02_rb,3.9837e+02_rb,4.3097e+02_rb,4.5580e+02_rb,4.7038e+02_rb/)
+      kbo(:,57,11) = (/ &
+     &3.4209e+02_rb,3.8602e+02_rb,4.2139e+02_rb,4.4866e+02_rb,4.6860e+02_rb/)
+      kbo(:,58,11) = (/ &
+     &3.2702e+02_rb,3.7354e+02_rb,4.1153e+02_rb,4.4115e+02_rb,4.6327e+02_rb/)
+      kbo(:,59,11) = (/ &
+     &3.2074e+02_rb,3.6827e+02_rb,4.0735e+02_rb,4.3797e+02_rb,4.6099e+02_rb/)
+      kbo(:,13,12) = (/ &
+     &1.8437e+02_rb,1.8201e+02_rb,1.7920e+02_rb,1.7619e+02_rb,1.7262e+02_rb/)
+      kbo(:,14,12) = (/ &
+     &2.0920e+02_rb,2.0655e+02_rb,2.0368e+02_rb,2.0039e+02_rb,1.9660e+02_rb/)
+      kbo(:,15,12) = (/ &
+     &2.3807e+02_rb,2.3483e+02_rb,2.3126e+02_rb,2.2723e+02_rb,2.2261e+02_rb/)
+      kbo(:,16,12) = (/ &
+     &2.7050e+02_rb,2.6622e+02_rb,2.6148e+02_rb,2.5668e+02_rb,2.5203e+02_rb/)
+      kbo(:,17,12) = (/ &
+     &3.0550e+02_rb,3.0047e+02_rb,2.9528e+02_rb,2.8984e+02_rb,2.8414e+02_rb/)
+      kbo(:,18,12) = (/ &
+     &3.4308e+02_rb,3.3718e+02_rb,3.3104e+02_rb,3.2458e+02_rb,3.1787e+02_rb/)
+      kbo(:,19,12) = (/ &
+     &3.8177e+02_rb,3.7532e+02_rb,3.6857e+02_rb,3.6127e+02_rb,3.5363e+02_rb/)
+      kbo(:,20,12) = (/ &
+     &4.2186e+02_rb,4.1506e+02_rb,4.0728e+02_rb,3.9905e+02_rb,3.9052e+02_rb/)
+      kbo(:,21,12) = (/ &
+     &4.6246e+02_rb,4.5454e+02_rb,4.4606e+02_rb,4.3704e+02_rb,4.2747e+02_rb/)
+      kbo(:,22,12) = (/ &
+     &5.0135e+02_rb,4.9292e+02_rb,4.8363e+02_rb,4.7369e+02_rb,4.6338e+02_rb/)
+      kbo(:,23,12) = (/ &
+     &5.3861e+02_rb,5.2961e+02_rb,5.1962e+02_rb,5.0894e+02_rb,4.9767e+02_rb/)
+      kbo(:,24,12) = (/ &
+     &5.7338e+02_rb,5.6389e+02_rb,5.5338e+02_rb,5.4189e+02_rb,5.2932e+02_rb/)
+      kbo(:,25,12) = (/ &
+     &6.0539e+02_rb,5.9528e+02_rb,5.8404e+02_rb,5.7158e+02_rb,5.5798e+02_rb/)
+      kbo(:,26,12) = (/ &
+     &6.3403e+02_rb,6.2334e+02_rb,6.1112e+02_rb,5.9770e+02_rb,5.8310e+02_rb/)
+      kbo(:,27,12) = (/ &
+     &6.5936e+02_rb,6.4795e+02_rb,6.3483e+02_rb,6.2036e+02_rb,6.0455e+02_rb/)
+      kbo(:,28,12) = (/ &
+     &6.8125e+02_rb,6.6919e+02_rb,6.5513e+02_rb,6.3951e+02_rb,6.2260e+02_rb/)
+      kbo(:,29,12) = (/ &
+     &6.9998e+02_rb,6.8712e+02_rb,6.7207e+02_rb,6.5530e+02_rb,6.3734e+02_rb/)
+      kbo(:,30,12) = (/ &
+     &7.1583e+02_rb,7.0209e+02_rb,6.8590e+02_rb,6.6805e+02_rb,6.4904e+02_rb/)
+      kbo(:,31,12) = (/ &
+     &7.2876e+02_rb,7.1404e+02_rb,6.9677e+02_rb,6.7790e+02_rb,6.5793e+02_rb/)
+      kbo(:,32,12) = (/ &
+     &7.3900e+02_rb,7.2324e+02_rb,7.0493e+02_rb,6.8513e+02_rb,6.6427e+02_rb/)
+      kbo(:,33,12) = (/ &
+     &7.4681e+02_rb,7.2991e+02_rb,7.1072e+02_rb,6.9001e+02_rb,6.6847e+02_rb/)
+      kbo(:,34,12) = (/ &
+     &7.5291e+02_rb,7.3522e+02_rb,7.1519e+02_rb,6.9374e+02_rb,6.7158e+02_rb/)
+      kbo(:,35,12) = (/ &
+     &7.5888e+02_rb,7.4060e+02_rb,7.1995e+02_rb,6.9804e+02_rb,6.7534e+02_rb/)
+      kbo(:,36,12) = (/ &
+     &7.6530e+02_rb,7.4674e+02_rb,7.2578e+02_rb,7.0348e+02_rb,6.8047e+02_rb/)
+      kbo(:,37,12) = (/ &
+     &7.7324e+02_rb,7.5477e+02_rb,7.3385e+02_rb,7.1142e+02_rb,6.8821e+02_rb/)
+      kbo(:,38,12) = (/ &
+     &7.8031e+02_rb,7.6209e+02_rb,7.4126e+02_rb,7.1874e+02_rb,6.9540e+02_rb/)
+      kbo(:,39,12) = (/ &
+     &7.8648e+02_rb,7.6857e+02_rb,7.4796e+02_rb,7.2542e+02_rb,7.0198e+02_rb/)
+      kbo(:,40,12) = (/ &
+     &7.9353e+02_rb,7.7637e+02_rb,7.5617e+02_rb,7.3391e+02_rb,7.1045e+02_rb/)
+      kbo(:,41,12) = (/ &
+     &7.9989e+02_rb,7.8377e+02_rb,7.6410e+02_rb,7.4214e+02_rb,7.1879e+02_rb/)
+      kbo(:,42,12) = (/ &
+     &8.0558e+02_rb,7.9048e+02_rb,7.7152e+02_rb,7.4994e+02_rb,7.2677e+02_rb/)
+      kbo(:,43,12) = (/ &
+     &8.1116e+02_rb,7.9747e+02_rb,7.7955e+02_rb,7.5862e+02_rb,7.3574e+02_rb/)
+      kbo(:,44,12) = (/ &
+     &8.1607e+02_rb,8.0410e+02_rb,7.8744e+02_rb,7.6731e+02_rb,7.4497e+02_rb/)
+      kbo(:,45,12) = (/ &
+     &8.1994e+02_rb,8.0997e+02_rb,7.9477e+02_rb,7.7561e+02_rb,7.5385e+02_rb/)
+      kbo(:,46,12) = (/ &
+     &8.2292e+02_rb,8.1527e+02_rb,8.0168e+02_rb,7.8384e+02_rb,7.6285e+02_rb/)
+      kbo(:,47,12) = (/ &
+     &8.2480e+02_rb,8.1993e+02_rb,8.0858e+02_rb,7.9229e+02_rb,7.7235e+02_rb/)
+      kbo(:,48,12) = (/ &
+     &8.2522e+02_rb,8.2345e+02_rb,8.1455e+02_rb,8.0002e+02_rb,7.8135e+02_rb/)
+      kbo(:,49,12) = (/ &
+     &8.2404e+02_rb,8.2558e+02_rb,8.1941e+02_rb,8.0697e+02_rb,7.8982e+02_rb/)
+      kbo(:,50,12) = (/ &
+     &8.2131e+02_rb,8.2647e+02_rb,8.2301e+02_rb,8.1277e+02_rb,7.9722e+02_rb/)
+      kbo(:,51,12) = (/ &
+     &8.1699e+02_rb,8.2604e+02_rb,8.2550e+02_rb,8.1759e+02_rb,8.0380e+02_rb/)
+      kbo(:,52,12) = (/ &
+     &8.1118e+02_rb,8.2427e+02_rb,8.2691e+02_rb,8.2151e+02_rb,8.0969e+02_rb/)
+      kbo(:,53,12) = (/ &
+     &8.0369e+02_rb,8.2099e+02_rb,8.2725e+02_rb,8.2455e+02_rb,8.1493e+02_rb/)
+      kbo(:,54,12) = (/ &
+     &7.9519e+02_rb,8.1662e+02_rb,8.2647e+02_rb,8.2649e+02_rb,8.1904e+02_rb/)
+      kbo(:,55,12) = (/ &
+     &7.8525e+02_rb,8.1122e+02_rb,8.2466e+02_rb,8.2753e+02_rb,8.2231e+02_rb/)
+      kbo(:,56,12) = (/ &
+     &7.7348e+02_rb,8.0460e+02_rb,8.2163e+02_rb,8.2776e+02_rb,8.2487e+02_rb/)
+      kbo(:,57,12) = (/ &
+     &7.5991e+02_rb,7.9652e+02_rb,8.1752e+02_rb,8.2701e+02_rb,8.2675e+02_rb/)
+      kbo(:,58,12) = (/ &
+     &7.4511e+02_rb,7.8730e+02_rb,8.1251e+02_rb,8.2536e+02_rb,8.2776e+02_rb/)
+      kbo(:,59,12) = (/ &
+     &7.3866e+02_rb,7.8320e+02_rb,8.1026e+02_rb,8.2449e+02_rb,8.2800e+02_rb/)
+      kbo(:,13,13) = (/ &
+     &2.0724e+02_rb,2.0318e+02_rb,2.0003e+02_rb,1.9694e+02_rb,1.9365e+02_rb/)
+      kbo(:,14,13) = (/ &
+     &2.3785e+02_rb,2.3358e+02_rb,2.2976e+02_rb,2.2561e+02_rb,2.2123e+02_rb/)
+      kbo(:,15,13) = (/ &
+     &2.7371e+02_rb,2.6880e+02_rb,2.6365e+02_rb,2.5854e+02_rb,2.5349e+02_rb/)
+      kbo(:,16,13) = (/ &
+     &3.1341e+02_rb,3.0766e+02_rb,3.0218e+02_rb,2.9651e+02_rb,2.9050e+02_rb/)
+      kbo(:,17,13) = (/ &
+     &3.5823e+02_rb,3.5167e+02_rb,3.4512e+02_rb,3.3848e+02_rb,3.3144e+02_rb/)
+      kbo(:,18,13) = (/ &
+     &4.0795e+02_rb,4.0075e+02_rb,3.9354e+02_rb,3.8585e+02_rb,3.7775e+02_rb/)
+      kbo(:,19,13) = (/ &
+     &4.6454e+02_rb,4.5636e+02_rb,4.4761e+02_rb,4.3852e+02_rb,4.2883e+02_rb/)
+      kbo(:,20,13) = (/ &
+     &5.2670e+02_rb,5.1674e+02_rb,5.0627e+02_rb,4.9500e+02_rb,4.8317e+02_rb/)
+      kbo(:,21,13) = (/ &
+     &5.9234e+02_rb,5.8071e+02_rb,5.6797e+02_rb,5.5430e+02_rb,5.3997e+02_rb/)
+      kbo(:,22,13) = (/ &
+     &6.5952e+02_rb,6.4514e+02_rb,6.2980e+02_rb,6.1347e+02_rb,5.9629e+02_rb/)
+      kbo(:,23,13) = (/ &
+     &7.2668e+02_rb,7.0946e+02_rb,6.9096e+02_rb,6.7135e+02_rb,6.5090e+02_rb/)
+      kbo(:,24,13) = (/ &
+     &7.9179e+02_rb,7.7144e+02_rb,7.4939e+02_rb,7.2625e+02_rb,7.0273e+02_rb/)
+      kbo(:,25,13) = (/ &
+     &8.5340e+02_rb,8.2954e+02_rb,8.0385e+02_rb,7.7737e+02_rb,7.5044e+02_rb/)
+      kbo(:,26,13) = (/ &
+     &9.1011e+02_rb,8.8231e+02_rb,8.5326e+02_rb,8.2331e+02_rb,7.9319e+02_rb/)
+      kbo(:,27,13) = (/ &
+     &9.6106e+02_rb,9.2973e+02_rb,8.9712e+02_rb,8.6391e+02_rb,8.3062e+02_rb/)
+      kbo(:,28,13) = (/ &
+     &1.0059e+03_rb,9.7091e+02_rb,9.3507e+02_rb,8.9869e+02_rb,8.6233e+02_rb/)
+      kbo(:,29,13) = (/ &
+     &1.0437e+03_rb,1.0055e+03_rb,9.6641e+02_rb,9.2715e+02_rb,8.8802e+02_rb/)
+      kbo(:,30,13) = (/ &
+     &1.0747e+03_rb,1.0334e+03_rb,9.9156e+02_rb,9.4965e+02_rb,9.0810e+02_rb/)
+      kbo(:,31,13) = (/ &
+     &1.0990e+03_rb,1.0548e+03_rb,1.0106e+03_rb,9.6642e+02_rb,9.2291e+02_rb/)
+      kbo(:,32,13) = (/ &
+     &1.1170e+03_rb,1.0705e+03_rb,1.0242e+03_rb,9.7810e+02_rb,9.3290e+02_rb/)
+      kbo(:,33,13) = (/ &
+     &1.1295e+03_rb,1.0810e+03_rb,1.0329e+03_rb,9.8524e+02_rb,9.3872e+02_rb/)
+      kbo(:,34,13) = (/ &
+     &1.1390e+03_rb,1.0889e+03_rb,1.0392e+03_rb,9.9037e+02_rb,9.4276e+02_rb/)
+      kbo(:,35,13) = (/ &
+     &1.1495e+03_rb,1.0980e+03_rb,1.0471e+03_rb,9.9723e+02_rb,9.4859e+02_rb/)
+      kbo(:,36,13) = (/ &
+     &1.1627e+03_rb,1.1100e+03_rb,1.0580e+03_rb,1.0071e+03_rb,9.5754e+02_rb/)
+      kbo(:,37,13) = (/ &
+     &1.1817e+03_rb,1.1279e+03_rb,1.0749e+03_rb,1.0229e+03_rb,9.7232e+02_rb/)
+      kbo(:,38,13) = (/ &
+     &1.1995e+03_rb,1.1446e+03_rb,1.0907e+03_rb,1.0378e+03_rb,9.8626e+02_rb/)
+      kbo(:,39,13) = (/ &
+     &1.2156e+03_rb,1.1601e+03_rb,1.1053e+03_rb,1.0516e+03_rb,9.9926e+02_rb/)
+      kbo(:,40,13) = (/ &
+     &1.2364e+03_rb,1.1800e+03_rb,1.1244e+03_rb,1.0699e+03_rb,1.0167e+03_rb/)
+      kbo(:,41,13) = (/ &
+     &1.2568e+03_rb,1.1999e+03_rb,1.1435e+03_rb,1.0883e+03_rb,1.0343e+03_rb/)
+      kbo(:,42,13) = (/ &
+     &1.2764e+03_rb,1.2191e+03_rb,1.1621e+03_rb,1.1062e+03_rb,1.0515e+03_rb/)
+      kbo(:,43,13) = (/ &
+     &1.2983e+03_rb,1.2411e+03_rb,1.1834e+03_rb,1.1268e+03_rb,1.0715e+03_rb/)
+      kbo(:,44,13) = (/ &
+     &1.3210e+03_rb,1.2639e+03_rb,1.2059e+03_rb,1.1485e+03_rb,1.0925e+03_rb/)
+      kbo(:,45,13) = (/ &
+     &1.3430e+03_rb,1.2862e+03_rb,1.2280e+03_rb,1.1702e+03_rb,1.1134e+03_rb/)
+      kbo(:,46,13) = (/ &
+     &1.3658e+03_rb,1.3092e+03_rb,1.2511e+03_rb,1.1929e+03_rb,1.1355e+03_rb/)
+      kbo(:,47,13) = (/ &
+     &1.3902e+03_rb,1.3342e+03_rb,1.2766e+03_rb,1.2180e+03_rb,1.1600e+03_rb/)
+      kbo(:,48,13) = (/ &
+     &1.4137e+03_rb,1.3587e+03_rb,1.3015e+03_rb,1.2430e+03_rb,1.1845e+03_rb/)
+      kbo(:,49,13) = (/ &
+     &1.4360e+03_rb,1.3827e+03_rb,1.3260e+03_rb,1.2679e+03_rb,1.2090e+03_rb/)
+      kbo(:,50,13) = (/ &
+     &1.4561e+03_rb,1.4046e+03_rb,1.3487e+03_rb,1.2910e+03_rb,1.2321e+03_rb/)
+      kbo(:,51,13) = (/ &
+     &1.4745e+03_rb,1.4251e+03_rb,1.3704e+03_rb,1.3131e+03_rb,1.2546e+03_rb/)
+      kbo(:,52,13) = (/ &
+     &1.4914e+03_rb,1.4448e+03_rb,1.3917e+03_rb,1.3349e+03_rb,1.2767e+03_rb/)
+      kbo(:,53,13) = (/ &
+     &1.5066e+03_rb,1.4635e+03_rb,1.4124e+03_rb,1.3565e+03_rb,1.2987e+03_rb/)
+      kbo(:,54,13) = (/ &
+     &1.5189e+03_rb,1.4798e+03_rb,1.4307e+03_rb,1.3761e+03_rb,1.3187e+03_rb/)
+      kbo(:,55,13) = (/ &
+     &1.5296e+03_rb,1.4942e+03_rb,1.4476e+03_rb,1.3946e+03_rb,1.3376e+03_rb/)
+      kbo(:,56,13) = (/ &
+     &1.5385e+03_rb,1.5073e+03_rb,1.4637e+03_rb,1.4124e+03_rb,1.3564e+03_rb/)
+      kbo(:,57,13) = (/ &
+     &1.5454e+03_rb,1.5190e+03_rb,1.4793e+03_rb,1.4298e+03_rb,1.3750e+03_rb/)
+      kbo(:,58,13) = (/ &
+     &1.5501e+03_rb,1.5291e+03_rb,1.4929e+03_rb,1.4457e+03_rb,1.3924e+03_rb/)
+      kbo(:,59,13) = (/ &
+     &1.5515e+03_rb,1.5328e+03_rb,1.4982e+03_rb,1.4521e+03_rb,1.3993e+03_rb/)
+      kbo(:,13,14) = (/ &
+     &2.5226e+02_rb,2.4628e+02_rb,2.3949e+02_rb,2.3300e+02_rb,2.2711e+02_rb/)
+      kbo(:,14,14) = (/ &
+     &2.8391e+02_rb,2.7613e+02_rb,2.6825e+02_rb,2.6100e+02_rb,2.5461e+02_rb/)
+      kbo(:,15,14) = (/ &
+     &3.2054e+02_rb,3.1155e+02_rb,3.0330e+02_rb,2.9588e+02_rb,2.8901e+02_rb/)
+      kbo(:,16,14) = (/ &
+     &3.6563e+02_rb,3.5616e+02_rb,3.4734e+02_rb,3.3914e+02_rb,3.3106e+02_rb/)
+      kbo(:,17,14) = (/ &
+     &4.2096e+02_rb,4.1081e+02_rb,4.0125e+02_rb,3.9214e+02_rb,3.8323e+02_rb/)
+      kbo(:,18,14) = (/ &
+     &4.8740e+02_rb,4.7626e+02_rb,4.6528e+02_rb,4.5466e+02_rb,4.4412e+02_rb/)
+      kbo(:,19,14) = (/ &
+     &5.6419e+02_rb,5.5097e+02_rb,5.3827e+02_rb,5.2557e+02_rb,5.1276e+02_rb/)
+      kbo(:,20,14) = (/ &
+     &6.5011e+02_rb,6.3415e+02_rb,6.1868e+02_rb,6.0321e+02_rb,5.8733e+02_rb/)
+      kbo(:,21,14) = (/ &
+     &7.4435e+02_rb,7.2484e+02_rb,7.0550e+02_rb,6.8621e+02_rb,6.6643e+02_rb/)
+      kbo(:,22,14) = (/ &
+     &8.4421e+02_rb,8.2013e+02_rb,7.9603e+02_rb,7.7185e+02_rb,7.4730e+02_rb/)
+      kbo(:,23,14) = (/ &
+     &9.4857e+02_rb,9.1895e+02_rb,8.8918e+02_rb,8.5916e+02_rb,8.2913e+02_rb/)
+      kbo(:,24,14) = (/ &
+     &1.0549e+03_rb,1.0183e+03_rb,9.8186e+02_rb,9.4534e+02_rb,9.0882e+02_rb/)
+      kbo(:,25,14) = (/ &
+     &1.1590e+03_rb,1.1145e+03_rb,1.0708e+03_rb,1.0270e+03_rb,9.8371e+02_rb/)
+      kbo(:,26,14) = (/ &
+     &1.2562e+03_rb,1.2038e+03_rb,1.1521e+03_rb,1.1010e+03_rb,1.0508e+03_rb/)
+      kbo(:,27,14) = (/ &
+     &1.3447e+03_rb,1.2836e+03_rb,1.2238e+03_rb,1.1655e+03_rb,1.1088e+03_rb/)
+      kbo(:,28,14) = (/ &
+     &1.4217e+03_rb,1.3523e+03_rb,1.2847e+03_rb,1.2199e+03_rb,1.1573e+03_rb/)
+      kbo(:,29,14) = (/ &
+     &1.4859e+03_rb,1.4088e+03_rb,1.3346e+03_rb,1.2639e+03_rb,1.1961e+03_rb/)
+      kbo(:,30,14) = (/ &
+     &1.5380e+03_rb,1.4539e+03_rb,1.3740e+03_rb,1.2981e+03_rb,1.2259e+03_rb/)
+      kbo(:,31,14) = (/ &
+     &1.5776e+03_rb,1.4880e+03_rb,1.4031e+03_rb,1.3231e+03_rb,1.2472e+03_rb/)
+      kbo(:,32,14) = (/ &
+     &1.6062e+03_rb,1.5119e+03_rb,1.4231e+03_rb,1.3398e+03_rb,1.2610e+03_rb/)
+      kbo(:,33,14) = (/ &
+     &1.6248e+03_rb,1.5270e+03_rb,1.4353e+03_rb,1.3494e+03_rb,1.2686e+03_rb/)
+      kbo(:,34,14) = (/ &
+     &1.6386e+03_rb,1.5378e+03_rb,1.4439e+03_rb,1.3560e+03_rb,1.2737e+03_rb/)
+      kbo(:,35,14) = (/ &
+     &1.6557e+03_rb,1.5522e+03_rb,1.4559e+03_rb,1.3661e+03_rb,1.2821e+03_rb/)
+      kbo(:,36,14) = (/ &
+     &1.6790e+03_rb,1.5727e+03_rb,1.4740e+03_rb,1.3819e+03_rb,1.2962e+03_rb/)
+      kbo(:,37,14) = (/ &
+     &1.7154e+03_rb,1.6055e+03_rb,1.5035e+03_rb,1.4086e+03_rb,1.3204e+03_rb/)
+      kbo(:,38,14) = (/ &
+     &1.7499e+03_rb,1.6367e+03_rb,1.5316e+03_rb,1.4342e+03_rb,1.3436e+03_rb/)
+      kbo(:,39,14) = (/ &
+     &1.7821e+03_rb,1.6659e+03_rb,1.5579e+03_rb,1.4580e+03_rb,1.3653e+03_rb/)
+      kbo(:,40,14) = (/ &
+     &1.8250e+03_rb,1.7051e+03_rb,1.5937e+03_rb,1.4906e+03_rb,1.3951e+03_rb/)
+      kbo(:,41,14) = (/ &
+     &1.8687e+03_rb,1.7449e+03_rb,1.6302e+03_rb,1.5239e+03_rb,1.4257e+03_rb/)
+      kbo(:,42,14) = (/ &
+     &1.9118e+03_rb,1.7843e+03_rb,1.6662e+03_rb,1.5570e+03_rb,1.4560e+03_rb/)
+      kbo(:,43,14) = (/ &
+     &1.9625e+03_rb,1.8305e+03_rb,1.7087e+03_rb,1.5959e+03_rb,1.4917e+03_rb/)
+      kbo(:,44,14) = (/ &
+     &2.0169e+03_rb,1.8802e+03_rb,1.7544e+03_rb,1.6379e+03_rb,1.5302e+03_rb/)
+      kbo(:,45,14) = (/ &
+     &2.0719e+03_rb,1.9306e+03_rb,1.8005e+03_rb,1.6804e+03_rb,1.5693e+03_rb/)
+      kbo(:,46,14) = (/ &
+     &2.1310e+03_rb,1.9850e+03_rb,1.8502e+03_rb,1.7262e+03_rb,1.6114e+03_rb/)
+      kbo(:,47,14) = (/ &
+     &2.1977e+03_rb,2.0465e+03_rb,1.9066e+03_rb,1.7781e+03_rb,1.6592e+03_rb/)
+      kbo(:,48,14) = (/ &
+     &2.2663e+03_rb,2.1096e+03_rb,1.9646e+03_rb,1.8312e+03_rb,1.7082e+03_rb/)
+      kbo(:,49,14) = (/ &
+     &2.3369e+03_rb,2.1743e+03_rb,2.0243e+03_rb,1.8859e+03_rb,1.7586e+03_rb/)
+      kbo(:,50,14) = (/ &
+     &2.4050e+03_rb,2.2366e+03_rb,2.0818e+03_rb,1.9387e+03_rb,1.8071e+03_rb/)
+      kbo(:,51,14) = (/ &
+     &2.4725e+03_rb,2.2988e+03_rb,2.1390e+03_rb,1.9914e+03_rb,1.8554e+03_rb/)
+      kbo(:,52,14) = (/ &
+     &2.5415e+03_rb,2.3629e+03_rb,2.1974e+03_rb,2.0453e+03_rb,1.9050e+03_rb/)
+      kbo(:,53,14) = (/ &
+     &2.6121e+03_rb,2.4283e+03_rb,2.2576e+03_rb,2.1009e+03_rb,1.9561e+03_rb/)
+      kbo(:,54,14) = (/ &
+     &2.6782e+03_rb,2.4899e+03_rb,2.3146e+03_rb,2.1531e+03_rb,2.0043e+03_rb/)
+      kbo(:,55,14) = (/ &
+     &2.7428e+03_rb,2.5502e+03_rb,2.3706e+03_rb,2.2044e+03_rb,2.0516e+03_rb/)
+      kbo(:,56,14) = (/ &
+     &2.8087e+03_rb,2.6116e+03_rb,2.4275e+03_rb,2.2567e+03_rb,2.0999e+03_rb/)
+      kbo(:,57,14) = (/ &
+     &2.8759e+03_rb,2.6742e+03_rb,2.4859e+03_rb,2.3106e+03_rb,2.1494e+03_rb/)
+      kbo(:,58,14) = (/ &
+     &2.9406e+03_rb,2.7347e+03_rb,2.5423e+03_rb,2.3630e+03_rb,2.1974e+03_rb/)
+      kbo(:,59,14) = (/ &
+     &2.9672e+03_rb,2.7595e+03_rb,2.5656e+03_rb,2.3846e+03_rb,2.2171e+03_rb/)
+      kbo(:,13,15) = (/ &
+     &3.0519e+02_rb,3.0114e+02_rb,2.9666e+02_rb,2.9142e+02_rb,2.8521e+02_rb/)
+      kbo(:,14,15) = (/ &
+     &3.4479e+02_rb,3.4114e+02_rb,3.3631e+02_rb,3.3085e+02_rb,3.2433e+02_rb/)
+      kbo(:,15,15) = (/ &
+     &3.8993e+02_rb,3.8674e+02_rb,3.8200e+02_rb,3.7573e+02_rb,3.6825e+02_rb/)
+      kbo(:,16,15) = (/ &
+     &4.4412e+02_rb,4.3994e+02_rb,4.3428e+02_rb,4.2699e+02_rb,4.1897e+02_rb/)
+      kbo(:,17,15) = (/ &
+     &5.0918e+02_rb,5.0358e+02_rb,4.9594e+02_rb,4.8667e+02_rb,4.7654e+02_rb/)
+      kbo(:,18,15) = (/ &
+     &5.8800e+02_rb,5.7963e+02_rb,5.6899e+02_rb,5.5650e+02_rb,5.4319e+02_rb/)
+      kbo(:,19,15) = (/ &
+     &6.8137e+02_rb,6.6869e+02_rb,6.5385e+02_rb,6.3714e+02_rb,6.1975e+02_rb/)
+      kbo(:,20,15) = (/ &
+     &7.8942e+02_rb,7.7129e+02_rb,7.5076e+02_rb,7.2873e+02_rb,7.0666e+02_rb/)
+      kbo(:,21,15) = (/ &
+     &9.1222e+02_rb,8.8683e+02_rb,8.5955e+02_rb,8.3129e+02_rb,8.0321e+02_rb/)
+      kbo(:,22,15) = (/ &
+     &1.0462e+03_rb,1.0122e+03_rb,9.7665e+02_rb,9.4080e+02_rb,9.0511e+02_rb/)
+      kbo(:,23,15) = (/ &
+     &1.1896e+03_rb,1.1445e+03_rb,1.0990e+03_rb,1.0540e+03_rb,1.0094e+03_rb/)
+      kbo(:,24,15) = (/ &
+     &1.3365e+03_rb,1.2790e+03_rb,1.2222e+03_rb,1.1664e+03_rb,1.1117e+03_rb/)
+      kbo(:,25,15) = (/ &
+     &1.4807e+03_rb,1.4091e+03_rb,1.3391e+03_rb,1.2717e+03_rb,1.2073e+03_rb/)
+      kbo(:,26,15) = (/ &
+     &1.6156e+03_rb,1.5289e+03_rb,1.4461e+03_rb,1.3673e+03_rb,1.2929e+03_rb/)
+      kbo(:,27,15) = (/ &
+     &1.7387e+03_rb,1.6377e+03_rb,1.5427e+03_rb,1.4535e+03_rb,1.3699e+03_rb/)
+      kbo(:,28,15) = (/ &
+     &1.8481e+03_rb,1.7337e+03_rb,1.6274e+03_rb,1.5282e+03_rb,1.4358e+03_rb/)
+      kbo(:,29,15) = (/ &
+     &1.9406e+03_rb,1.8143e+03_rb,1.6975e+03_rb,1.5890e+03_rb,1.4891e+03_rb/)
+      kbo(:,30,15) = (/ &
+     &2.0157e+03_rb,1.8789e+03_rb,1.7529e+03_rb,1.6367e+03_rb,1.5303e+03_rb/)
+      kbo(:,31,15) = (/ &
+     &2.0726e+03_rb,1.9271e+03_rb,1.7935e+03_rb,1.6714e+03_rb,1.5596e+03_rb/)
+      kbo(:,32,15) = (/ &
+     &2.1128e+03_rb,1.9603e+03_rb,1.8210e+03_rb,1.6943e+03_rb,1.5785e+03_rb/)
+      kbo(:,33,15) = (/ &
+     &2.1379e+03_rb,1.9802e+03_rb,1.8368e+03_rb,1.7069e+03_rb,1.5884e+03_rb/)
+      kbo(:,34,15) = (/ &
+     &2.1559e+03_rb,1.9943e+03_rb,1.8478e+03_rb,1.7154e+03_rb,1.5948e+03_rb/)
+      kbo(:,35,15) = (/ &
+     &2.1801e+03_rb,2.0143e+03_rb,1.8645e+03_rb,1.7293e+03_rb,1.6063e+03_rb/)
+      kbo(:,36,15) = (/ &
+     &2.2153e+03_rb,2.0448e+03_rb,1.8906e+03_rb,1.7519e+03_rb,1.6260e+03_rb/)
+      kbo(:,37,15) = (/ &
+     &2.2726e+03_rb,2.0949e+03_rb,1.9348e+03_rb,1.7908e+03_rb,1.6606e+03_rb/)
+      kbo(:,38,15) = (/ &
+     &2.3276e+03_rb,2.1431e+03_rb,1.9773e+03_rb,1.8285e+03_rb,1.6940e+03_rb/)
+      kbo(:,39,15) = (/ &
+     &2.3794e+03_rb,2.1884e+03_rb,2.0174e+03_rb,1.8638e+03_rb,1.7255e+03_rb/)
+      kbo(:,40,15) = (/ &
+     &2.4500e+03_rb,2.2506e+03_rb,2.0727e+03_rb,1.9128e+03_rb,1.7693e+03_rb/)
+      kbo(:,41,15) = (/ &
+     &2.5230e+03_rb,2.3148e+03_rb,2.1296e+03_rb,1.9633e+03_rb,1.8145e+03_rb/)
+      kbo(:,42,15) = (/ &
+     &2.5961e+03_rb,2.3790e+03_rb,2.1863e+03_rb,2.0139e+03_rb,1.8595e+03_rb/)
+      kbo(:,43,15) = (/ &
+     &2.6832e+03_rb,2.4556e+03_rb,2.2539e+03_rb,2.0744e+03_rb,1.9133e+03_rb/)
+      kbo(:,44,15) = (/ &
+     &2.7787e+03_rb,2.5394e+03_rb,2.3280e+03_rb,2.1403e+03_rb,1.9719e+03_rb/)
+      kbo(:,45,15) = (/ &
+     &2.8773e+03_rb,2.6257e+03_rb,2.4039e+03_rb,2.2077e+03_rb,2.0320e+03_rb/)
+      kbo(:,46,15) = (/ &
+     &2.9856e+03_rb,2.7201e+03_rb,2.4871e+03_rb,2.2811e+03_rb,2.0978e+03_rb/)
+      kbo(:,47,15) = (/ &
+     &3.1115e+03_rb,2.8292e+03_rb,2.5830e+03_rb,2.3659e+03_rb,2.1733e+03_rb/)
+      kbo(:,48,15) = (/ &
+     &3.2432e+03_rb,2.9440e+03_rb,2.6832e+03_rb,2.4542e+03_rb,2.2517e+03_rb/)
+      kbo(:,49,15) = (/ &
+     &3.3819e+03_rb,3.0648e+03_rb,2.7882e+03_rb,2.5466e+03_rb,2.3333e+03_rb/)
+      kbo(:,50,15) = (/ &
+     &3.5188e+03_rb,3.1840e+03_rb,2.8918e+03_rb,2.6374e+03_rb,2.4134e+03_rb/)
+      kbo(:,51,15) = (/ &
+     &3.6589e+03_rb,3.3051e+03_rb,2.9974e+03_rb,2.7291e+03_rb,2.4943e+03_rb/)
+      kbo(:,52,15) = (/ &
+     &3.8062e+03_rb,3.4317e+03_rb,3.1077e+03_rb,2.8252e+03_rb,2.5787e+03_rb/)
+      kbo(:,53,15) = (/ &
+     &3.9623e+03_rb,3.5652e+03_rb,3.2237e+03_rb,2.9261e+03_rb,2.6671e+03_rb/)
+      kbo(:,54,15) = (/ &
+     &4.1133e+03_rb,3.6940e+03_rb,3.3349e+03_rb,3.0230e+03_rb,2.7515e+03_rb/)
+      kbo(:,55,15) = (/ &
+     &4.2651e+03_rb,3.8236e+03_rb,3.4464e+03_rb,3.1202e+03_rb,2.8359e+03_rb/)
+      kbo(:,56,15) = (/ &
+     &4.4246e+03_rb,3.9598e+03_rb,3.5625e+03_rb,3.2212e+03_rb,2.9236e+03_rb/)
+      kbo(:,57,15) = (/ &
+     &4.5926e+03_rb,4.1026e+03_rb,3.6846e+03_rb,3.3264e+03_rb,3.0154e+03_rb/)
+      kbo(:,58,15) = (/ &
+     &4.7612e+03_rb,4.2446e+03_rb,3.8056e+03_rb,3.4306e+03_rb,3.1063e+03_rb/)
+      kbo(:,59,15) = (/ &
+     &4.8322e+03_rb,4.3040e+03_rb,3.8565e+03_rb,3.4742e+03_rb,3.1440e+03_rb/)
+      kbo(:,13,16) = (/ &
+     &3.6471e+02_rb,3.5203e+02_rb,3.4366e+02_rb,3.3754e+02_rb,3.3391e+02_rb/)
+      kbo(:,14,16) = (/ &
+     &4.3205e+02_rb,4.1910e+02_rb,4.0949e+02_rb,4.0181e+02_rb,3.9611e+02_rb/)
+      kbo(:,15,16) = (/ &
+     &5.1076e+02_rb,4.9691e+02_rb,4.8535e+02_rb,4.7583e+02_rb,4.6772e+02_rb/)
+      kbo(:,16,16) = (/ &
+     &6.0124e+02_rb,5.8532e+02_rb,5.7134e+02_rb,5.5921e+02_rb,5.4786e+02_rb/)
+      kbo(:,17,16) = (/ &
+     &7.0293e+02_rb,6.8353e+02_rb,6.6658e+02_rb,6.5132e+02_rb,6.3843e+02_rb/)
+      kbo(:,18,16) = (/ &
+     &8.1350e+02_rb,7.9054e+02_rb,7.7108e+02_rb,7.5418e+02_rb,7.3825e+02_rb/)
+      kbo(:,19,16) = (/ &
+     &9.3232e+02_rb,9.0753e+02_rb,8.8580e+02_rb,8.6501e+02_rb,8.4456e+02_rb/)
+      kbo(:,20,16) = (/ &
+     &1.0608e+03_rb,1.0329e+03_rb,1.0063e+03_rb,9.8009e+02_rb,9.5395e+02_rb/)
+      kbo(:,21,16) = (/ &
+     &1.1958e+03_rb,1.1622e+03_rb,1.1292e+03_rb,1.0962e+03_rb,1.0633e+03_rb/)
+      kbo(:,22,16) = (/ &
+     &1.3311e+03_rb,1.2897e+03_rb,1.2482e+03_rb,1.2072e+03_rb,1.1676e+03_rb/)
+      kbo(:,23,16) = (/ &
+     &1.4683e+03_rb,1.4174e+03_rb,1.3670e+03_rb,1.3170e+03_rb,1.2708e+03_rb/)
+      kbo(:,24,16) = (/ &
+     &1.6081e+03_rb,1.5439e+03_rb,1.4829e+03_rb,1.4263e+03_rb,1.3726e+03_rb/)
+      kbo(:,25,16) = (/ &
+     &1.7506e+03_rb,1.6769e+03_rb,1.6089e+03_rb,1.5421e+03_rb,1.4771e+03_rb/)
+      kbo(:,26,16) = (/ &
+     &1.9057e+03_rb,1.8182e+03_rb,1.7345e+03_rb,1.6548e+03_rb,1.5773e+03_rb/)
+      kbo(:,27,16) = (/ &
+     &2.0569e+03_rb,1.9520e+03_rb,1.8523e+03_rb,1.7577e+03_rb,1.6669e+03_rb/)
+      kbo(:,28,16) = (/ &
+     &2.1937e+03_rb,2.0714e+03_rb,1.9558e+03_rb,1.8469e+03_rb,1.7437e+03_rb/)
+      kbo(:,29,16) = (/ &
+     &2.3109e+03_rb,2.1712e+03_rb,2.0410e+03_rb,1.9197e+03_rb,1.8067e+03_rb/)
+      kbo(:,30,16) = (/ &
+     &2.4059e+03_rb,2.2511e+03_rb,2.1086e+03_rb,1.9768e+03_rb,1.8554e+03_rb/)
+      kbo(:,31,16) = (/ &
+     &2.4785e+03_rb,2.3110e+03_rb,2.1586e+03_rb,2.0181e+03_rb,1.8908e+03_rb/)
+      kbo(:,32,16) = (/ &
+     &2.5298e+03_rb,2.3528e+03_rb,2.1923e+03_rb,2.0454e+03_rb,1.9136e+03_rb/)
+      kbo(:,33,16) = (/ &
+     &2.5622e+03_rb,2.3783e+03_rb,2.2119e+03_rb,2.0610e+03_rb,1.9258e+03_rb/)
+      kbo(:,34,16) = (/ &
+     &2.5858e+03_rb,2.3964e+03_rb,2.2256e+03_rb,2.0716e+03_rb,1.9341e+03_rb/)
+      kbo(:,35,16) = (/ &
+     &2.6161e+03_rb,2.4209e+03_rb,2.2454e+03_rb,2.0882e+03_rb,1.9479e+03_rb/)
+      kbo(:,36,16) = (/ &
+     &2.6591e+03_rb,2.4573e+03_rb,2.2765e+03_rb,2.1149e+03_rb,1.9709e+03_rb/)
+      kbo(:,37,16) = (/ &
+     &2.7282e+03_rb,2.5168e+03_rb,2.3287e+03_rb,2.1606e+03_rb,2.0108e+03_rb/)
+      kbo(:,38,16) = (/ &
+     &2.7948e+03_rb,2.5745e+03_rb,2.3791e+03_rb,2.2045e+03_rb,2.0494e+03_rb/)
+      kbo(:,39,16) = (/ &
+     &2.8577e+03_rb,2.6290e+03_rb,2.4266e+03_rb,2.2455e+03_rb,2.0858e+03_rb/)
+      kbo(:,40,16) = (/ &
+     &2.9439e+03_rb,2.7038e+03_rb,2.4920e+03_rb,2.3032e+03_rb,2.1363e+03_rb/)
+      kbo(:,41,16) = (/ &
+     &3.0330e+03_rb,2.7810e+03_rb,2.5596e+03_rb,2.3632e+03_rb,2.1888e+03_rb/)
+      kbo(:,42,16) = (/ &
+     &3.1221e+03_rb,2.8586e+03_rb,2.6274e+03_rb,2.4230e+03_rb,2.2411e+03_rb/)
+      kbo(:,43,16) = (/ &
+     &3.2294e+03_rb,2.9518e+03_rb,2.6848e+03_rb,2.4944e+03_rb,2.3041e+03_rb/)
+      kbo(:,44,16) = (/ &
+     &3.3475e+03_rb,3.0539e+03_rb,2.7976e+03_rb,2.5728e+03_rb,2.3737e+03_rb/)
+      kbo(:,45,16) = (/ &
+     &3.4703e+03_rb,3.1592e+03_rb,2.8896e+03_rb,2.6532e+03_rb,2.4448e+03_rb/)
+      kbo(:,46,16) = (/ &
+     &3.6062e+03_rb,3.2757e+03_rb,2.9905e+03_rb,2.7415e+03_rb,2.5226e+03_rb/)
+      kbo(:,47,16) = (/ &
+     &3.7659e+03_rb,3.4109e+03_rb,3.1077e+03_rb,2.8434e+03_rb,2.6124e+03_rb/)
+      kbo(:,48,16) = (/ &
+     &3.9357e+03_rb,3.5542e+03_rb,3.2307e+03_rb,2.9507e+03_rb,2.7060e+03_rb/)
+      kbo(:,49,16) = (/ &
+     &4.1183e+03_rb,3.7067e+03_rb,3.3602e+03_rb,3.0634e+03_rb,2.8046e+03_rb/)
+      kbo(:,50,16) = (/ &
+     &4.3018e+03_rb,3.8593e+03_rb,3.4893e+03_rb,3.1743e+03_rb,2.9010e+03_rb/)
+      kbo(:,51,16) = (/ &
+     &4.4921e+03_rb,4.0168e+03_rb,3.6208e+03_rb,3.2876e+03_rb,3.0000e+03_rb/)
+      kbo(:,52,16) = (/ &
+     &4.6953e+03_rb,4.1848e+03_rb,3.7620e+03_rb,3.4065e+03_rb,3.1029e+03_rb/)
+      kbo(:,53,16) = (/ &
+     &4.9149e+03_rb,4.3644e+03_rb,3.9107e+03_rb,3.5325e+03_rb,3.2110e+03_rb/)
+      kbo(:,54,16) = (/ &
+     &5.1330e+03_rb,4.5400e+03_rb,4.0560e+03_rb,3.6544e+03_rb,3.3151e+03_rb/)
+      kbo(:,55,16) = (/ &
+     &5.3615e+03_rb,4.7192e+03_rb,4.2041e+03_rb,3.7779e+03_rb,3.4198e+03_rb/)
+      kbo(:,56,16) = (/ &
+     &5.6061e+03_rb,4.9107e+03_rb,4.3608e+03_rb,3.9074e+03_rb,3.5296e+03_rb/)
+      kbo(:,57,16) = (/ &
+     &5.8683e+03_rb,5.1170e+03_rb,4.5267e+03_rb,4.0448e+03_rb,3.6452e+03_rb/)
+      kbo(:,58,16) = (/ &
+     &6.1353e+03_rb,5.3291e+03_rb,4.6942e+03_rb,4.1832e+03_rb,3.7603e+03_rb/)
+      kbo(:,59,16) = (/ &
+     &6.2495e+03_rb,5.4200e+03_rb,4.7647e+03_rb,4.2413e+03_rb,3.8086e+03_rb/)
+
+!     The array KAO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level below 100~ mb.   The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.  The second index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index 
+!     runs over the g-channel (1 to 16).
+
+      kao_mco2( 1, :, 1) = (/ &
+     & 7.38630e-06_rb, 8.97432e-06_rb, 1.09037e-05_rb, 1.32480e-05_rb, 1.60963e-05_rb, &
+     & 1.95569e-05_rb, 2.37615e-05_rb, 2.88701e-05_rb, 3.50770e-05_rb, 4.26184e-05_rb, &
+     & 5.17811e-05_rb, 6.29138e-05_rb, 7.64400e-05_rb, 9.28742e-05_rb, 1.12842e-04_rb, &
+     & 1.37102e-04_rb, 1.66578e-04_rb, 2.02392e-04_rb, 2.45905e-04_rb/)
+      kao_mco2( 2, :, 1) = (/ &
+     & 7.03916e-06_rb, 8.58785e-06_rb, 1.04773e-05_rb, 1.27824e-05_rb, 1.55947e-05_rb, &
+     & 1.90257e-05_rb, 2.32115e-05_rb, 2.83183e-05_rb, 3.45487e-05_rb, 4.21498e-05_rb, &
+     & 5.14233e-05_rb, 6.27370e-05_rb, 7.65398e-05_rb, 9.33794e-05_rb, 1.13924e-04_rb, &
+     & 1.38989e-04_rb, 1.69568e-04_rb, 2.06874e-04_rb, 2.52389e-04_rb/)
+      kao_mco2( 3, :, 1) = (/ &
+     & 7.80015e-06_rb, 9.48520e-06_rb, 1.15343e-05_rb, 1.40260e-05_rb, 1.70560e-05_rb, &
+     & 2.07405e-05_rb, 2.52211e-05_rb, 3.06695e-05_rb, 3.72950e-05_rb, 4.53517e-05_rb, &
+     & 5.51489e-05_rb, 6.70626e-05_rb, 8.15499e-05_rb, 9.91670e-05_rb, 1.20590e-04_rb, &
+     & 1.46640e-04_rb, 1.78319e-04_rb, 2.16841e-04_rb, 2.63684e-04_rb/)
+      kao_mco2( 4, :, 1) = (/ &
+     & 9.24267e-06_rb, 1.11747e-05_rb, 1.35105e-05_rb, 1.63346e-05_rb, 1.97490e-05_rb, &
+     & 2.38771e-05_rb, 2.88682e-05_rb, 3.49025e-05_rb, 4.21981e-05_rb, 5.10188e-05_rb, &
+     & 6.16832e-05_rb, 7.45768e-05_rb, 9.01656e-05_rb, 1.09013e-04_rb, 1.31800e-04_rb, &
+     & 1.59350e-04_rb, 1.92659e-04_rb, 2.32930e-04_rb, 2.81619e-04_rb/)
+      kao_mco2( 5, :, 1) = (/ &
+     & 1.59506e-05_rb, 1.90078e-05_rb, 2.26509e-05_rb, 2.69923e-05_rb, 3.21658e-05_rb, &
+     & 3.83309e-05_rb, 4.56777e-05_rb, 5.44325e-05_rb, 6.48654e-05_rb, 7.72978e-05_rb, &
+     & 9.21132e-05_rb, 1.09768e-04_rb, 1.30807e-04_rb, 1.55878e-04_rb, 1.85755e-04_rb, &
+     & 2.21357e-04_rb, 2.63784e-04_rb, 3.14342e-04_rb, 3.74591e-04_rb/)
+      kao_mco2( 6, :, 1) = (/ &
+     & 3.53189e-05_rb, 4.14789e-05_rb, 4.87131e-05_rb, 5.72092e-05_rb, 6.71870e-05_rb, &
+     & 7.89050e-05_rb, 9.26667e-05_rb, 1.08829e-04_rb, 1.27809e-04_rb, 1.50100e-04_rb, &
+     & 1.76279e-04_rb, 2.07024e-04_rb, 2.43131e-04_rb, 2.85535e-04_rb, 3.35335e-04_rb, &
+     & 3.93821e-04_rb, 4.62507e-04_rb, 5.43172e-04_rb, 6.37906e-04_rb/)
+      kao_mco2( 7, :, 1) = (/ &
+     & 6.63273e-05_rb, 7.76356e-05_rb, 9.08718e-05_rb, 1.06365e-04_rb, 1.24499e-04_rb, &
+     & 1.45725e-04_rb, 1.70570e-04_rb, 1.99651e-04_rb, 2.33689e-04_rb, 2.73531e-04_rb, &
+     & 3.20166e-04_rb, 3.74752e-04_rb, 4.38644e-04_rb, 5.13429e-04_rb, 6.00964e-04_rb, &
+     & 7.03424e-04_rb, 8.23352e-04_rb, 9.63726e-04_rb, 1.12803e-03_rb/)
+      kao_mco2( 8, :, 1) = (/ &
+     & 9.01134e-05_rb, 1.05517e-04_rb, 1.23553e-04_rb, 1.44673e-04_rb, 1.69402e-04_rb, &
+     & 1.98359e-04_rb, 2.32265e-04_rb, 2.71967e-04_rb, 3.18456e-04_rb, 3.72890e-04_rb, &
+     & 4.36630e-04_rb, 5.11265e-04_rb, 5.98657e-04_rb, 7.00989e-04_rb, 8.20811e-04_rb, &
+     & 9.61116e-04_rb, 1.12540e-03_rb, 1.31777e-03_rb, 1.54302e-03_rb/)
+      kao_mco2( 9, :, 1) = (/ &
+     & 1.14205e-05_rb, 1.36364e-05_rb, 1.62823e-05_rb, 1.94416e-05_rb, 2.32139e-05_rb, &
+     & 2.77181e-05_rb, 3.30963e-05_rb, 3.95181e-05_rb, 4.71858e-05_rb, 5.63414e-05_rb, &
+     & 6.72734e-05_rb, 8.03266e-05_rb, 9.59124e-05_rb, 1.14523e-04_rb, 1.36743e-04_rb, &
+     & 1.63276e-04_rb, 1.94957e-04_rb, 2.32784e-04_rb, 2.77952e-04_rb/)
+      kao_mco2( 1, :, 2) = (/ &
+     & 2.01754e-05_rb, 2.40506e-05_rb, 2.86701e-05_rb, 3.41769e-05_rb, 4.07414e-05_rb, &
+     & 4.85668e-05_rb, 5.78953e-05_rb, 6.90155e-05_rb, 8.22717e-05_rb, 9.80739e-05_rb, &
+     & 1.16912e-04_rb, 1.39367e-04_rb, 1.66136e-04_rb, 1.98047e-04_rb, 2.36087e-04_rb, &
+     & 2.81433e-04_rb, 3.35489e-04_rb, 3.99928e-04_rb, 4.76744e-04_rb/)
+      kao_mco2( 2, :, 2) = (/ &
+     & 2.08613e-05_rb, 2.48759e-05_rb, 2.96631e-05_rb, 3.53716e-05_rb, 4.21786e-05_rb, &
+     & 5.02955e-05_rb, 5.99746e-05_rb, 7.15163e-05_rb, 8.52791e-05_rb, 1.01690e-04_rb, &
+     & 1.21260e-04_rb, 1.44596e-04_rb, 1.72422e-04_rb, 2.05604e-04_rb, 2.45171e-04_rb, &
+     & 2.92352e-04_rb, 3.48613e-04_rb, 4.15702e-04_rb, 4.95700e-04_rb/)
+      kao_mco2( 3, :, 2) = (/ &
+     & 2.06879e-05_rb, 2.47009e-05_rb, 2.94924e-05_rb, 3.52133e-05_rb, 4.20439e-05_rb, &
+     & 5.01995e-05_rb, 5.99372e-05_rb, 7.15637e-05_rb, 8.54456e-05_rb, 1.02020e-04_rb, &
+     & 1.21810e-04_rb, 1.45439e-04_rb, 1.73651e-04_rb, 2.07335e-04_rb, 2.47554e-04_rb, &
+     & 2.95574e-04_rb, 3.52909e-04_rb, 4.21366e-04_rb, 5.03102e-04_rb/)
+      kao_mco2( 4, :, 2) = (/ &
+     & 2.12700e-05_rb, 2.54064e-05_rb, 3.03472e-05_rb, 3.62490e-05_rb, 4.32984e-05_rb, &
+     & 5.17188e-05_rb, 6.17767e-05_rb, 7.37906e-05_rb, 8.81410e-05_rb, 1.05282e-04_rb, &
+     & 1.25757e-04_rb, 1.50213e-04_rb, 1.79425e-04_rb, 2.14319e-04_rb, 2.55998e-04_rb, &
+     & 3.05782e-04_rb, 3.65249e-04_rb, 4.36280e-04_rb, 5.21125e-04_rb/)
+      kao_mco2( 5, :, 2) = (/ &
+     & 1.88144e-05_rb, 2.25220e-05_rb, 2.69602e-05_rb, 3.22730e-05_rb, 3.86328e-05_rb, &
+     & 4.62458e-05_rb, 5.53591e-05_rb, 6.62682e-05_rb, 7.93271e-05_rb, 9.49594e-05_rb, &
+     & 1.13672e-04_rb, 1.36073e-04_rb, 1.62887e-04_rb, 1.94986e-04_rb, 2.33410e-04_rb, &
+     & 2.79406e-04_rb, 3.34467e-04_rb, 4.00377e-04_rb, 4.79275e-04_rb/)
+      kao_mco2( 6, :, 2) = (/ &
+     & 1.20964e-05_rb, 1.46021e-05_rb, 1.76268e-05_rb, 2.12780e-05_rb, 2.56856e-05_rb, &
+     & 3.10062e-05_rb, 3.74289e-05_rb, 4.51820e-05_rb, 5.45411e-05_rb, 6.58388e-05_rb, &
+     & 7.94769e-05_rb, 9.59399e-05_rb, 1.15813e-04_rb, 1.39803e-04_rb, 1.68762e-04_rb, &
+     & 2.03720e-04_rb, 2.45919e-04_rb, 2.96859e-04_rb, 3.58350e-04_rb/)
+      kao_mco2( 7, :, 2) = (/ &
+     & 3.07117e-05_rb, 3.64441e-05_rb, 4.32465e-05_rb, 5.13186e-05_rb, 6.08974e-05_rb, &
+     & 7.22642e-05_rb, 8.57525e-05_rb, 1.01758e-04_rb, 1.20752e-04_rb, 1.43291e-04_rb, &
+     & 1.70037e-04_rb, 2.01775e-04_rb, 2.39436e-04_rb, 2.84128e-04_rb, 3.37161e-04_rb, &
+     & 4.00094e-04_rb, 4.74773e-04_rb, 5.63391e-04_rb, 6.68549e-04_rb/)
+      kao_mco2( 8, :, 2) = (/ &
+     & 9.34077e-05_rb, 1.10481e-04_rb, 1.30675e-04_rb, 1.54559e-04_rb, 1.82810e-04_rb, &
+     & 2.16224e-04_rb, 2.55745e-04_rb, 3.02491e-04_rb, 3.57780e-04_rb, 4.23175e-04_rb, &
+     & 5.00523e-04_rb, 5.92009e-04_rb, 7.00217e-04_rb, 8.28203e-04_rb, 9.79582e-04_rb, &
+     & 1.15863e-03_rb, 1.37041e-03_rb, 1.62089e-03_rb, 1.91716e-03_rb/)
+      kao_mco2( 9, :, 2) = (/ &
+     & 1.15325e-05_rb, 1.37935e-05_rb, 1.64978e-05_rb, 1.97322e-05_rb, 2.36007e-05_rb, &
+     & 2.82277e-05_rb, 3.37618e-05_rb, 4.03808e-05_rb, 4.82976e-05_rb, 5.77664e-05_rb, &
+     & 6.90916e-05_rb, 8.26372e-05_rb, 9.88384e-05_rb, 1.18216e-04_rb, 1.41392e-04_rb, &
+     & 1.69113e-04_rb, 2.02267e-04_rb, 2.41922e-04_rb, 2.89352e-04_rb/)
+      kao_mco2( 1, :, 3) = (/ &
+     & 2.56142e-05_rb, 3.05385e-05_rb, 3.64096e-05_rb, 4.34093e-05_rb, 5.17547e-05_rb, &
+     & 6.17045e-05_rb, 7.35672e-05_rb, 8.77104e-05_rb, 1.04573e-04_rb, 1.24677e-04_rb, &
+     & 1.48646e-04_rb, 1.77223e-04_rb, 2.11294e-04_rb, 2.51915e-04_rb, 3.00346e-04_rb, &
+     & 3.58087e-04_rb, 4.26929e-04_rb, 5.09006e-04_rb, 6.06862e-04_rb/)
+      kao_mco2( 2, :, 3) = (/ &
+     & 2.49802e-05_rb, 2.98040e-05_rb, 3.55593e-05_rb, 4.24259e-05_rb, 5.06186e-05_rb, &
+     & 6.03932e-05_rb, 7.20554e-05_rb, 8.59696e-05_rb, 1.02571e-04_rb, 1.22377e-04_rb, &
+     & 1.46009e-04_rb, 1.74204e-04_rb, 2.07844e-04_rb, 2.47979e-04_rb, 2.95865e-04_rb, &
+     & 3.52998e-04_rb, 4.21163e-04_rb, 5.02491e-04_rb, 5.99524e-04_rb/)
+      kao_mco2( 3, :, 3) = (/ &
+     & 2.54644e-05_rb, 3.03959e-05_rb, 3.62825e-05_rb, 4.33091e-05_rb, 5.16965e-05_rb, &
+     & 6.17083e-05_rb, 7.36589e-05_rb, 8.79240e-05_rb, 1.04952e-04_rb, 1.25277e-04_rb, &
+     & 1.49539e-04_rb, 1.78499e-04_rb, 2.13068e-04_rb, 2.54331e-04_rb, 3.03586e-04_rb, &
+     & 3.62380e-04_rb, 4.32560e-04_rb, 5.16331e-04_rb, 6.16326e-04_rb/)
+      kao_mco2( 4, :, 3) = (/ &
+     & 2.55054e-05_rb, 3.04699e-05_rb, 3.64007e-05_rb, 4.34859e-05_rb, 5.19501e-05_rb, &
+     & 6.20619e-05_rb, 7.41418e-05_rb, 8.85731e-05_rb, 1.05813e-04_rb, 1.26409e-04_rb, &
+     & 1.51014e-04_rb, 1.80408e-04_rb, 2.15523e-04_rb, 2.57474e-04_rb, 3.07589e-04_rb, &
+     & 3.67459e-04_rb, 4.38983e-04_rb, 5.24428e-04_rb, 6.26505e-04_rb/)
+      kao_mco2( 5, :, 3) = (/ &
+     & 2.48615e-05_rb, 2.97398e-05_rb, 3.55754e-05_rb, 4.25560e-05_rb, 5.09064e-05_rb, &
+     & 6.08952e-05_rb, 7.28441e-05_rb, 8.71375e-05_rb, 1.04236e-04_rb, 1.24689e-04_rb, &
+     & 1.49155e-04_rb, 1.78423e-04_rb, 2.13433e-04_rb, 2.55313e-04_rb, 3.05410e-04_rb, &
+     & 3.65338e-04_rb, 4.37024e-04_rb, 5.22777e-04_rb, 6.25356e-04_rb/)
+      kao_mco2( 6, :, 3) = (/ &
+     & 2.09074e-05_rb, 2.50891e-05_rb, 3.01072e-05_rb, 3.61290e-05_rb, 4.33553e-05_rb, &
+     & 5.20269e-05_rb, 6.24329e-05_rb, 7.49202e-05_rb, 8.99051e-05_rb, 1.07887e-04_rb, &
+     & 1.29466e-04_rb, 1.55361e-04_rb, 1.86435e-04_rb, 2.23724e-04_rb, 2.68471e-04_rb, &
+     & 3.22169e-04_rb, 3.86607e-04_rb, 4.63933e-04_rb, 5.56725e-04_rb/)
+      kao_mco2( 7, :, 3) = (/ &
+     & 1.25163e-05_rb, 1.51688e-05_rb, 1.83835e-05_rb, 2.22795e-05_rb, 2.70011e-05_rb, &
+     & 3.27234e-05_rb, 3.96583e-05_rb, 4.80630e-05_rb, 5.82488e-05_rb, 7.05933e-05_rb, &
+     & 8.55539e-05_rb, 1.03685e-04_rb, 1.25659e-04_rb, 1.52289e-04_rb, 1.84563e-04_rb, &
+     & 2.23677e-04_rb, 2.71081e-04_rb, 3.28530e-04_rb, 3.98154e-04_rb/)
+      kao_mco2( 8, :, 3) = (/ &
+     & 1.00408e-04_rb, 1.20081e-04_rb, 1.43608e-04_rb, 1.71745e-04_rb, 2.05395e-04_rb, &
+     & 2.45637e-04_rb, 2.93765e-04_rb, 3.51322e-04_rb, 4.20156e-04_rb, 5.02476e-04_rb, &
+     & 6.00926e-04_rb, 7.18665e-04_rb, 8.59472e-04_rb, 1.02787e-03_rb, 1.22926e-03_rb, &
+     & 1.47010e-03_rb, 1.75814e-03_rb, 2.10261e-03_rb, 2.51457e-03_rb/)
+      kao_mco2( 9, :, 3) = (/ &
+     & 8.50402e-06_rb, 1.02737e-05_rb, 1.24116e-05_rb, 1.49945e-05_rb, 1.81148e-05_rb, &
+     & 2.18844e-05_rb, 2.64385e-05_rb, 3.19403e-05_rb, 3.85871e-05_rb, 4.66169e-05_rb, &
+     & 5.63178e-05_rb, 6.80375e-05_rb, 8.21959e-05_rb, 9.93008e-05_rb, 1.19965e-04_rb, &
+     & 1.44930e-04_rb, 1.75089e-04_rb, 2.11525e-04_rb, 2.55543e-04_rb/)
+      kao_mco2( 1, :, 4) = (/ &
+     & 2.68659e-05_rb, 3.20986e-05_rb, 3.83506e-05_rb, 4.58203e-05_rb, 5.47450e-05_rb, &
+     & 6.54078e-05_rb, 7.81476e-05_rb, 9.33687e-05_rb, 1.11555e-04_rb, 1.33282e-04_rb, &
+     & 1.59242e-04_rb, 1.90259e-04_rb, 2.27316e-04_rb, 2.71592e-04_rb, 3.24490e-04_rb, &
+     & 3.87693e-04_rb, 4.63206e-04_rb, 5.53426e-04_rb, 6.61218e-04_rb/)
+      kao_mco2( 2, :, 4) = (/ &
+     & 2.74827e-05_rb, 3.28460e-05_rb, 3.92560e-05_rb, 4.69169e-05_rb, 5.60728e-05_rb, &
+     & 6.70155e-05_rb, 8.00937e-05_rb, 9.57241e-05_rb, 1.14405e-04_rb, 1.36731e-04_rb, &
+     & 1.63415e-04_rb, 1.95305e-04_rb, 2.33419e-04_rb, 2.78972e-04_rb, 3.33413e-04_rb, &
+     & 3.98480e-04_rb, 4.76244e-04_rb, 5.69184e-04_rb, 6.80261e-04_rb/)
+      kao_mco2( 3, :, 4) = (/ &
+     & 2.84702e-05_rb, 3.40189e-05_rb, 4.06490e-05_rb, 4.85713e-05_rb, 5.80375e-05_rb, &
+     & 6.93487e-05_rb, 8.28644e-05_rb, 9.90142e-05_rb, 1.18312e-04_rb, 1.41370e-04_rb, &
+     & 1.68922e-04_rb, 2.01844e-04_rb, 2.41182e-04_rb, 2.88188e-04_rb, 3.44354e-04_rb, &
+     & 4.11466e-04_rb, 4.91659e-04_rb, 5.87481e-04_rb, 7.01977e-04_rb/)
+      kao_mco2( 4, :, 4) = (/ &
+     & 2.92293e-05_rb, 3.49243e-05_rb, 4.17289e-05_rb, 4.98593e-05_rb, 5.95738e-05_rb, &
+     & 7.11810e-05_rb, 8.50498e-05_rb, 1.01621e-04_rb, 1.21420e-04_rb, 1.45078e-04_rb, &
+     & 1.73344e-04_rb, 2.07119e-04_rb, 2.47473e-04_rb, 2.95690e-04_rb, 3.53302e-04_rb, &
+     & 4.22139e-04_rb, 5.04388e-04_rb, 6.02662e-04_rb, 7.20083e-04_rb/)
+      kao_mco2( 5, :, 4) = (/ &
+     & 2.88531e-05_rb, 3.45646e-05_rb, 4.14067e-05_rb, 4.96033e-05_rb, 5.94224e-05_rb, &
+     & 7.11851e-05_rb, 8.52764e-05_rb, 1.02157e-04_rb, 1.22379e-04_rb, 1.46604e-04_rb, &
+     & 1.75625e-04_rb, 2.10391e-04_rb, 2.52038e-04_rb, 3.01929e-04_rb, 3.61697e-04_rb, &
+     & 4.33295e-04_rb, 5.19067e-04_rb, 6.21818e-04_rb, 7.44908e-04_rb/)
+      kao_mco2( 6, :, 4) = (/ &
+     & 2.79869e-05_rb, 3.36885e-05_rb, 4.05516e-05_rb, 4.88130e-05_rb, 5.87574e-05_rb, &
+     & 7.07278e-05_rb, 8.51368e-05_rb, 1.02481e-04_rb, 1.23359e-04_rb, 1.48490e-04_rb, &
+     & 1.78742e-04_rb, 2.15156e-04_rb, 2.58988e-04_rb, 3.11751e-04_rb, 3.75262e-04_rb, &
+     & 4.51712e-04_rb, 5.43737e-04_rb, 6.54510e-04_rb, 7.87849e-04_rb/)
+      kao_mco2( 7, :, 4) = (/ &
+     & 1.45797e-05_rb, 1.78204e-05_rb, 2.17815e-05_rb, 2.66230e-05_rb, 3.25407e-05_rb, &
+     & 3.97737e-05_rb, 4.86145e-05_rb, 5.94203e-05_rb, 7.26281e-05_rb, 8.87715e-05_rb, &
+     & 1.08503e-04_rb, 1.32621e-04_rb, 1.62100e-04_rb, 1.98130e-04_rb, 2.42170e-04_rb, &
+     & 2.95999e-04_rb, 3.61792e-04_rb, 4.42210e-04_rb, 5.40503e-04_rb/)
+      kao_mco2( 8, :, 4) = (/ &
+     & 6.32607e-05_rb, 7.63420e-05_rb, 9.21282e-05_rb, 1.11179e-04_rb, 1.34169e-04_rb, &
+     & 1.61913e-04_rb, 1.95393e-04_rb, 2.35797e-04_rb, 2.84557e-04_rb, 3.43398e-04_rb, &
+     & 4.14407e-04_rb, 5.00100e-04_rb, 6.03512e-04_rb, 7.28308e-04_rb, 8.78909e-04_rb, &
+     & 1.06065e-03_rb, 1.27998e-03_rb, 1.54466e-03_rb, 1.86407e-03_rb/)
+      kao_mco2( 9, :, 4) = (/ &
+     & 1.52296e-05_rb, 1.84301e-05_rb, 2.23032e-05_rb, 2.69902e-05_rb, 3.26622e-05_rb, &
+     & 3.95261e-05_rb, 4.78324e-05_rb, 5.78844e-05_rb, 7.00487e-05_rb, 8.47694e-05_rb, &
+     & 1.02584e-04_rb, 1.24142e-04_rb, 1.50230e-04_rb, 1.81800e-04_rb, 2.20005e-04_rb, &
+     & 2.66239e-04_rb, 3.22190e-04_rb, 3.89897e-04_rb, 4.71833e-04_rb/)
+      kao_mco2( 1, :, 5) = (/ &
+     & 3.43213e-05_rb, 4.11301e-05_rb, 4.92896e-05_rb, 5.90679e-05_rb, 7.07860e-05_rb, &
+     & 8.48288e-05_rb, 1.01657e-04_rb, 1.21825e-04_rb, 1.45993e-04_rb, 1.74955e-04_rb, &
+     & 2.09663e-04_rb, 2.51257e-04_rb, 3.01103e-04_rb, 3.60837e-04_rb, 4.32421e-04_rb, &
+     & 5.18206e-04_rb, 6.21010e-04_rb, 7.44208e-04_rb, 8.91846e-04_rb/)
+      kao_mco2( 2, :, 5) = (/ &
+     & 3.14792e-05_rb, 3.79075e-05_rb, 4.56485e-05_rb, 5.49703e-05_rb, 6.61956e-05_rb, &
+     & 7.97133e-05_rb, 9.59914e-05_rb, 1.15594e-04_rb, 1.39199e-04_rb, 1.67624e-04_rb, &
+     & 2.01854e-04_rb, 2.43075e-04_rb, 2.92712e-04_rb, 3.52487e-04_rb, 4.24467e-04_rb, &
+     & 5.11147e-04_rb, 6.15527e-04_rb, 7.41222e-04_rb, 8.92585e-04_rb/)
+      kao_mco2( 3, :, 5) = (/ &
+     & 3.21655e-05_rb, 3.87990e-05_rb, 4.68006e-05_rb, 5.64523e-05_rb, 6.80945e-05_rb, &
+     & 8.21377e-05_rb, 9.90770e-05_rb, 1.19510e-04_rb, 1.44156e-04_rb, 1.73886e-04_rb, &
+     & 2.09746e-04_rb, 2.53002e-04_rb, 3.05179e-04_rb, 3.68117e-04_rb, 4.44033e-04_rb, &
+     & 5.35607e-04_rb, 6.46066e-04_rb, 7.79304e-04_rb, 9.40020e-04_rb/)
+      kao_mco2( 4, :, 5) = (/ &
+     & 3.22870e-05_rb, 3.89864e-05_rb, 4.70759e-05_rb, 5.68439e-05_rb, 6.86388e-05_rb, &
+     & 8.28810e-05_rb, 1.00078e-04_rb, 1.20844e-04_rb, 1.45919e-04_rb, 1.76196e-04_rb, &
+     & 2.12756e-04_rb, 2.56902e-04_rb, 3.10207e-04_rb, 3.74574e-04_rb, 4.52296e-04_rb, &
+     & 5.46146e-04_rb, 6.59468e-04_rb, 7.96304e-04_rb, 9.61533e-04_rb/)
+      kao_mco2( 5, :, 5) = (/ &
+     & 3.31190e-05_rb, 3.99528e-05_rb, 4.81967e-05_rb, 5.81417e-05_rb, 7.01387e-05_rb, &
+     & 8.46111e-05_rb, 1.02070e-04_rb, 1.23131e-04_rb, 1.48538e-04_rb, 1.79187e-04_rb, &
+     & 2.16161e-04_rb, 2.60764e-04_rb, 3.14570e-04_rb, 3.79479e-04_rb, 4.57781e-04_rb, &
+     & 5.52240e-04_rb, 6.66190e-04_rb, 8.03652e-04_rb, 9.69477e-04_rb/)
+      kao_mco2( 6, :, 5) = (/ &
+     & 3.31287e-05_rb, 3.99772e-05_rb, 4.82413e-05_rb, 5.82139e-05_rb, 7.02480e-05_rb, &
+     & 8.47698e-05_rb, 1.02294e-04_rb, 1.23440e-04_rb, 1.48958e-04_rb, 1.79750e-04_rb, &
+     & 2.16909e-04_rb, 2.61749e-04_rb, 3.15858e-04_rb, 3.81153e-04_rb, 4.59945e-04_rb, &
+     & 5.55026e-04_rb, 6.69762e-04_rb, 8.08216e-04_rb, 9.75292e-04_rb/)
+      kao_mco2( 7, :, 5) = (/ &
+     & 3.35235e-05_rb, 4.02832e-05_rb, 4.84061e-05_rb, 5.81668e-05_rb, 6.98958e-05_rb, &
+     & 8.39898e-05_rb, 1.00926e-04_rb, 1.21277e-04_rb, 1.45731e-04_rb, 1.75117e-04_rb, &
+     & 2.10428e-04_rb, 2.52860e-04_rb, 3.03847e-04_rb, 3.65116e-04_rb, 4.38739e-04_rb, &
+     & 5.27208e-04_rb, 6.33516e-04_rb, 7.61260e-04_rb, 9.14762e-04_rb/)
+      kao_mco2( 8, :, 5) = (/ &
+     & 3.57666e-05_rb, 4.27511e-05_rb, 5.10995e-05_rb, 6.10783e-05_rb, 7.30057e-05_rb, &
+     & 8.72622e-05_rb, 1.04303e-04_rb, 1.24671e-04_rb, 1.49017e-04_rb, 1.78117e-04_rb, &
+     & 2.12900e-04_rb, 2.54475e-04_rb, 3.04169e-04_rb, 3.63567e-04_rb, 4.34565e-04_rb, &
+     & 5.19427e-04_rb, 6.20861e-04_rb, 7.42103e-04_rb, 8.87020e-04_rb/)
+      kao_mco2( 9, :, 5) = (/ &
+     & 2.96349e-05_rb, 3.55202e-05_rb, 4.25743e-05_rb, 5.10292e-05_rb, 6.11633e-05_rb, &
+     & 7.33099e-05_rb, 8.78687e-05_rb, 1.05319e-04_rb, 1.26234e-04_rb, 1.51304e-04_rb, &
+     & 1.81352e-04_rb, 2.17367e-04_rb, 2.60534e-04_rb, 3.12275e-04_rb, 3.74290e-04_rb, &
+     & 4.48622e-04_rb, 5.37715e-04_rb, 6.44502e-04_rb, 7.72495e-04_rb/)
+      kao_mco2( 1, :, 6) = (/ &
+     & 4.14659e-05_rb, 4.98693e-05_rb, 5.99757e-05_rb, 7.21302e-05_rb, 8.67479e-05_rb, &
+     & 1.04328e-04_rb, 1.25471e-04_rb, 1.50899e-04_rb, 1.81479e-04_rb, 2.18257e-04_rb, &
+     & 2.62489e-04_rb, 3.15685e-04_rb, 3.79660e-04_rb, 4.56601e-04_rb, 5.49135e-04_rb, &
+     & 6.60422e-04_rb, 7.94261e-04_rb, 9.55224e-04_rb, 1.14881e-03_rb/)
+      kao_mco2( 2, :, 6) = (/ &
+     & 4.25940e-05_rb, 5.11162e-05_rb, 6.13434e-05_rb, 7.36168e-05_rb, 8.83459e-05_rb, &
+     & 1.06022e-04_rb, 1.27235e-04_rb, 1.52691e-04_rb, 1.83241e-04_rb, 2.19904e-04_rb, &
+     & 2.63902e-04_rb, 3.16703e-04_rb, 3.80068e-04_rb, 4.56111e-04_rb, 5.47368e-04_rb, &
+     & 6.56885e-04_rb, 7.88313e-04_rb, 9.46036e-04_rb, 1.13532e-03_rb/)
+      kao_mco2( 3, :, 6) = (/ &
+     & 4.44940e-05_rb, 5.32922e-05_rb, 6.38303e-05_rb, 7.64522e-05_rb, 9.15700e-05_rb, &
+     & 1.09677e-04_rb, 1.31365e-04_rb, 1.57341e-04_rb, 1.88454e-04_rb, 2.25719e-04_rb, &
+     & 2.70353e-04_rb, 3.23813e-04_rb, 3.87844e-04_rb, 4.64537e-04_rb, 5.56395e-04_rb, &
+     & 6.66418e-04_rb, 7.98196e-04_rb, 9.56032e-04_rb, 1.14508e-03_rb/)
+      kao_mco2( 4, :, 6) = (/ &
+     & 4.83402e-05_rb, 5.78065e-05_rb, 6.91265e-05_rb, 8.26633e-05_rb, 9.88510e-05_rb, &
+     & 1.18209e-04_rb, 1.41357e-04_rb, 1.69038e-04_rb, 2.02140e-04_rb, 2.41725e-04_rb, &
+     & 2.89061e-04_rb, 3.45667e-04_rb, 4.13357e-04_rb, 4.94303e-04_rb, 5.91101e-04_rb, &
+     & 7.06854e-04_rb, 8.45275e-04_rb, 1.01080e-03_rb, 1.20874e-03_rb/)
+      kao_mco2( 5, :, 6) = (/ &
+     & 5.14797e-05_rb, 6.15328e-05_rb, 7.35491e-05_rb, 8.79120e-05_rb, 1.05080e-04_rb, &
+     & 1.25600e-04_rb, 1.50128e-04_rb, 1.79445e-04_rb, 2.14487e-04_rb, 2.56373e-04_rb, &
+     & 3.06438e-04_rb, 3.66281e-04_rb, 4.37809e-04_rb, 5.23305e-04_rb, 6.25498e-04_rb, &
+     & 7.47647e-04_rb, 8.93650e-04_rb, 1.06816e-03_rb, 1.27676e-03_rb/)
+      kao_mco2( 6, :, 6) = (/ &
+     & 5.71481e-05_rb, 6.83156e-05_rb, 8.16652e-05_rb, 9.76237e-05_rb, 1.16701e-04_rb, &
+     & 1.39505e-04_rb, 1.66766e-04_rb, 1.99354e-04_rb, 2.38311e-04_rb, 2.84879e-04_rb, &
+     & 3.40548e-04_rb, 4.07096e-04_rb, 4.86647e-04_rb, 5.81744e-04_rb, 6.95424e-04_rb, &
+     & 8.31318e-04_rb, 9.93769e-04_rb, 1.18796e-03_rb, 1.42010e-03_rb/)
+      kao_mco2( 7, :, 6) = (/ &
+     & 5.69513e-05_rb, 6.84420e-05_rb, 8.22512e-05_rb, 9.88466e-05_rb, 1.18790e-04_rb, &
+     & 1.42758e-04_rb, 1.71562e-04_rb, 2.06177e-04_rb, 2.47776e-04_rb, 2.97768e-04_rb, &
+     & 3.57848e-04_rb, 4.30049e-04_rb, 5.16817e-04_rb, 6.21093e-04_rb, 7.46407e-04_rb, &
+     & 8.97006e-04_rb, 1.07799e-03_rb, 1.29549e-03_rb, 1.55687e-03_rb/)
+      kao_mco2( 8, :, 6) = (/ &
+     & 4.39361e-06_rb, 5.50076e-06_rb, 6.88690e-06_rb, 8.62235e-06_rb, 1.07951e-05_rb, &
+     & 1.35154e-05_rb, 1.69212e-05_rb, 2.11851e-05_rb, 2.65236e-05_rb, 3.32074e-05_rb, &
+     & 4.15754e-05_rb, 5.20520e-05_rb, 6.51687e-05_rb, 8.15907e-05_rb, 1.02151e-04_rb, &
+     & 1.27892e-04_rb, 1.60120e-04_rb, 2.00469e-04_rb, 2.50985e-04_rb/)
+      kao_mco2( 9, :, 6) = (/ &
+     & 5.75515e-05_rb, 6.86850e-05_rb, 8.19722e-05_rb, 9.78298e-05_rb, 1.16755e-04_rb, &
+     & 1.39342e-04_rb, 1.66297e-04_rb, 1.98468e-04_rb, 2.36862e-04_rb, 2.82683e-04_rb, &
+     & 3.37369e-04_rb, 4.02633e-04_rb, 4.80523e-04_rb, 5.73481e-04_rb, 6.84422e-04_rb, &
+     & 8.16824e-04_rb, 9.74841e-04_rb, 1.16342e-03_rb, 1.38849e-03_rb/)
+      kao_mco2( 1, :, 7) = (/ &
+     & 6.84544e-05_rb, 8.16461e-05_rb, 9.73799e-05_rb, 1.16146e-04_rb, 1.38528e-04_rb, &
+     & 1.65223e-04_rb, 1.97063e-04_rb, 2.35039e-04_rb, 2.80333e-04_rb, 3.34355e-04_rb, &
+     & 3.98788e-04_rb, 4.75637e-04_rb, 5.67296e-04_rb, 6.76618e-04_rb, 8.07008e-04_rb, &
+     & 9.62525e-04_rb, 1.14801e-03_rb, 1.36924e-03_rb, 1.63310e-03_rb/)
+      kao_mco2( 2, :, 7) = (/ &
+     & 6.88332e-05_rb, 8.21719e-05_rb, 9.80955e-05_rb, 1.17105e-04_rb, 1.39798e-04_rb, &
+     & 1.66888e-04_rb, 1.99229e-04_rb, 2.37836e-04_rb, 2.83925e-04_rb, 3.38944e-04_rb, &
+     & 4.04627e-04_rb, 4.83037e-04_rb, 5.76641e-04_rb, 6.88385e-04_rb, 8.21782e-04_rb, &
+     & 9.81031e-04_rb, 1.17114e-03_rb, 1.39809e-03_rb, 1.66901e-03_rb/)
+      kao_mco2( 3, :, 7) = (/ &
+     & 7.49899e-05_rb, 8.94606e-05_rb, 1.06724e-04_rb, 1.27318e-04_rb, 1.51887e-04_rb, &
+     & 1.81196e-04_rb, 2.16161e-04_rb, 2.57873e-04_rb, 3.07635e-04_rb, 3.66999e-04_rb, &
+     & 4.37818e-04_rb, 5.22304e-04_rb, 6.23092e-04_rb, 7.43330e-04_rb, 8.86769e-04_rb, &
+     & 1.05789e-03_rb, 1.26203e-03_rb, 1.50556e-03_rb, 1.79608e-03_rb/)
+      kao_mco2( 4, :, 7) = (/ &
+     & 8.26801e-05_rb, 9.85802e-05_rb, 1.17538e-04_rb, 1.40141e-04_rb, 1.67092e-04_rb, &
+     & 1.99225e-04_rb, 2.37537e-04_rb, 2.83217e-04_rb, 3.37682e-04_rb, 4.02621e-04_rb, &
+     & 4.80048e-04_rb, 5.72365e-04_rb, 6.82435e-04_rb, 8.13673e-04_rb, 9.70148e-04_rb, &
+     & 1.15671e-03_rb, 1.37916e-03_rb, 1.64438e-03_rb, 1.96061e-03_rb/)
+      kao_mco2( 5, :, 7) = (/ &
+     & 9.29561e-05_rb, 1.10845e-04_rb, 1.32176e-04_rb, 1.57612e-04_rb, 1.87944e-04_rb, &
+     & 2.24112e-04_rb, 2.67241e-04_rb, 3.18669e-04_rb, 3.79995e-04_rb, 4.53121e-04_rb, &
+     & 5.40321e-04_rb, 6.44302e-04_rb, 7.68293e-04_rb, 9.16146e-04_rb, 1.09245e-03_rb, &
+     & 1.30268e-03_rb, 1.55338e-03_rb, 1.85231e-03_rb, 2.20877e-03_rb/)
+      kao_mco2( 6, :, 7) = (/ &
+     & 1.09700e-04_rb, 1.30879e-04_rb, 1.56148e-04_rb, 1.86294e-04_rb, 2.22261e-04_rb, &
+     & 2.65172e-04_rb, 3.16367e-04_rb, 3.77446e-04_rb, 4.50317e-04_rb, 5.37257e-04_rb, &
+     & 6.40983e-04_rb, 7.64734e-04_rb, 9.12376e-04_rb, 1.08852e-03_rb, 1.29868e-03_rb, &
+     & 1.54941e-03_rb, 1.84854e-03_rb, 2.20543e-03_rb, 2.63122e-03_rb/)
+      kao_mco2( 7, :, 7) = (/ &
+     & 1.43457e-04_rb, 1.71554e-04_rb, 2.05153e-04_rb, 2.45332e-04_rb, 2.93381e-04_rb, &
+     & 3.50840e-04_rb, 4.19552e-04_rb, 5.01722e-04_rb, 5.99985e-04_rb, 7.17492e-04_rb, &
+     & 8.58014e-04_rb, 1.02606e-03_rb, 1.22701e-03_rb, 1.46732e-03_rb, 1.75470e-03_rb, &
+     & 2.09836e-03_rb, 2.50933e-03_rb, 3.00078e-03_rb, 3.58849e-03_rb/)
+      kao_mco2( 8, :, 7) = (/ &
+     & 1.52152e-05_rb, 1.89421e-05_rb, 2.35819e-05_rb, 2.93582e-05_rb, 3.65494e-05_rb, &
+     & 4.55021e-05_rb, 5.66476e-05_rb, 7.05233e-05_rb, 8.77978e-05_rb, 1.09304e-04_rb, &
+     & 1.36077e-04_rb, 1.69409e-04_rb, 2.10905e-04_rb, 2.62565e-04_rb, 3.26880e-04_rb, &
+     & 4.06948e-04_rb, 5.06629e-04_rb, 6.30726e-04_rb, 7.85219e-04_rb/)
+      kao_mco2( 9, :, 7) = (/ &
+     & 1.15683e-04_rb, 1.37544e-04_rb, 1.63535e-04_rb, 1.94438e-04_rb, 2.31180e-04_rb, &
+     & 2.74866e-04_rb, 3.26807e-04_rb, 3.88563e-04_rb, 4.61989e-04_rb, 5.49289e-04_rb, &
+     & 6.53088e-04_rb, 7.76501e-04_rb, 9.23234e-04_rb, 1.09770e-03_rb, 1.30512e-03_rb, &
+     & 1.55175e-03_rb, 1.84498e-03_rb, 2.19362e-03_rb, 2.60815e-03_rb/)
+      kao_mco2( 1, :, 8) = (/ &
+     & 1.18154e-04_rb, 1.40516e-04_rb, 1.67111e-04_rb, 1.98739e-04_rb, 2.36353e-04_rb, &
+     & 2.81086e-04_rb, 3.34285e-04_rb, 3.97553e-04_rb, 4.72796e-04_rb, 5.62278e-04_rb, &
+     & 6.68697e-04_rb, 7.95257e-04_rb, 9.45770e-04_rb, 1.12477e-03_rb, 1.33765e-03_rb, &
+     & 1.59081e-03_rb, 1.89190e-03_rb, 2.24996e-03_rb, 2.67580e-03_rb/)
+      kao_mco2( 2, :, 8) = (/ &
+     & 1.40874e-04_rb, 1.67009e-04_rb, 1.97993e-04_rb, 2.34726e-04_rb, 2.78273e-04_rb, &
+     & 3.29899e-04_rb, 3.91102e-04_rb, 4.63661e-04_rb, 5.49680e-04_rb, 6.51659e-04_rb, &
+     & 7.72556e-04_rb, 9.15884e-04_rb, 1.08580e-03_rb, 1.28724e-03_rb, 1.52605e-03_rb, &
+     & 1.80917e-03_rb, 2.14482e-03_rb, 2.54273e-03_rb, 3.01446e-03_rb/)
+      kao_mco2( 3, :, 8) = (/ &
+     & 1.55092e-04_rb, 1.84132e-04_rb, 2.18609e-04_rb, 2.59542e-04_rb, 3.08140e-04_rb, &
+     & 3.65837e-04_rb, 4.34337e-04_rb, 5.15664e-04_rb, 6.12219e-04_rb, 7.26853e-04_rb, &
+     & 8.62952e-04_rb, 1.02453e-03_rb, 1.21637e-03_rb, 1.44413e-03_rb, 1.71453e-03_rb, &
+     & 2.03557e-03_rb, 2.41671e-03_rb, 2.86923e-03_rb, 3.40647e-03_rb/)
+      kao_mco2( 4, :, 8) = (/ &
+     & 1.80666e-04_rb, 2.14521e-04_rb, 2.54721e-04_rb, 3.02454e-04_rb, 3.59131e-04_rb, &
+     & 4.26429e-04_rb, 5.06339e-04_rb, 6.01223e-04_rb, 7.13887e-04_rb, 8.47663e-04_rb, &
+     & 1.00651e-03_rb, 1.19512e-03_rb, 1.41908e-03_rb, 1.68500e-03_rb, 2.00076e-03_rb, &
+     & 2.37568e-03_rb, 2.82087e-03_rb, 3.34947e-03_rb, 3.97714e-03_rb/)
+      kao_mco2( 5, :, 8) = (/ &
+     & 2.21554e-04_rb, 2.63265e-04_rb, 3.12829e-04_rb, 3.71724e-04_rb, 4.41707e-04_rb, &
+     & 5.24865e-04_rb, 6.23679e-04_rb, 7.41096e-04_rb, 8.80619e-04_rb, 1.04641e-03_rb, &
+     & 1.24341e-03_rb, 1.47750e-03_rb, 1.75567e-03_rb, 2.08620e-03_rb, 2.47896e-03_rb, &
+     & 2.94566e-03_rb, 3.50023e-03_rb, 4.15920e-03_rb, 4.94224e-03_rb/)
+      kao_mco2( 6, :, 8) = (/ &
+     & 2.78997e-04_rb, 3.32548e-04_rb, 3.96378e-04_rb, 4.72460e-04_rb, 5.63146e-04_rb, &
+     & 6.71238e-04_rb, 8.00077e-04_rb, 9.53647e-04_rb, 1.13669e-03_rb, 1.35487e-03_rb, &
+     & 1.61493e-03_rb, 1.92491e-03_rb, 2.29438e-03_rb, 2.73477e-03_rb, 3.25969e-03_rb, &
+     & 3.88537e-03_rb, 4.63114e-03_rb, 5.52005e-03_rb, 6.57958e-03_rb/)
+      kao_mco2( 7, :, 8) = (/ &
+     & 2.84939e-04_rb, 3.40606e-04_rb, 4.07149e-04_rb, 4.86691e-04_rb, 5.81774e-04_rb, &
+     & 6.95432e-04_rb, 8.31295e-04_rb, 9.93700e-04_rb, 1.18783e-03_rb, 1.41989e-03_rb, &
+     & 1.69729e-03_rb, 2.02888e-03_rb, 2.42526e-03_rb, 2.89907e-03_rb, 3.46544e-03_rb, &
+     & 4.14246e-03_rb, 4.95176e-03_rb, 5.91915e-03_rb, 7.07554e-03_rb/)
+      kao_mco2( 8, :, 8) = (/ &
+     & 5.30764e-05_rb, 6.47812e-05_rb, 7.90673e-05_rb, 9.65039e-05_rb, 1.17786e-04_rb, &
+     & 1.43761e-04_rb, 1.75464e-04_rb, 2.14159e-04_rb, 2.61387e-04_rb, 3.19030e-04_rb, &
+     & 3.89385e-04_rb, 4.75255e-04_rb, 5.80062e-04_rb, 7.07982e-04_rb, 8.64111e-04_rb, &
+     & 1.05467e-03_rb, 1.28726e-03_rb, 1.57113e-03_rb, 1.91761e-03_rb/)
+      kao_mco2( 9, :, 8) = (/ &
+     & 2.76806e-04_rb, 3.29639e-04_rb, 3.92556e-04_rb, 4.67481e-04_rb, 5.56708e-04_rb, &
+     & 6.62964e-04_rb, 7.89501e-04_rb, 9.40190e-04_rb, 1.11964e-03_rb, 1.33334e-03_rb, &
+     & 1.58783e-03_rb, 1.89089e-03_rb, 2.25180e-03_rb, 2.68159e-03_rb, 3.19341e-03_rb, &
+     & 3.80293e-03_rb, 4.52878e-03_rb, 5.39316e-03_rb, 6.42253e-03_rb/)
+      kao_mco2( 1, :, 9) = (/ &
+     & 3.30614e-04_rb, 3.93289e-04_rb, 4.67844e-04_rb, 5.56534e-04_rb, 6.62036e-04_rb, &
+     & 7.87539e-04_rb, 9.36833e-04_rb, 1.11443e-03_rb, 1.32569e-03_rb, 1.57700e-03_rb, &
+     & 1.87596e-03_rb, 2.23158e-03_rb, 2.65463e-03_rb, 3.15787e-03_rb, 3.75650e-03_rb, &
+     & 4.46862e-03_rb, 5.31575e-03_rb, 6.32345e-03_rb, 7.52219e-03_rb/)
+      kao_mco2( 2, :, 9) = (/ &
+     & 3.78453e-04_rb, 4.50735e-04_rb, 5.36824e-04_rb, 6.39355e-04_rb, 7.61469e-04_rb, &
+     & 9.06906e-04_rb, 1.08012e-03_rb, 1.28642e-03_rb, 1.53212e-03_rb, 1.82475e-03_rb, &
+     & 2.17326e-03_rb, 2.58835e-03_rb, 3.08271e-03_rb, 3.67149e-03_rb, 4.37273e-03_rb, &
+     & 5.20790e-03_rb, 6.20259e-03_rb, 7.38725e-03_rb, 8.79818e-03_rb/)
+      kao_mco2( 3, :, 9) = (/ &
+     & 4.57576e-04_rb, 5.45512e-04_rb, 6.50348e-04_rb, 7.75330e-04_rb, 9.24332e-04_rb, &
+     & 1.10197e-03_rb, 1.31374e-03_rb, 1.56621e-03_rb, 1.86721e-03_rb, 2.22604e-03_rb, &
+     & 2.65384e-03_rb, 3.16385e-03_rb, 3.77187e-03_rb, 4.49675e-03_rb, 5.36092e-03_rb, &
+     & 6.39117e-03_rb, 7.61942e-03_rb, 9.08370e-03_rb, 1.08294e-02_rb/)
+      kao_mco2( 4, :, 9) = (/ &
+     & 5.18277e-04_rb, 6.18764e-04_rb, 7.38735e-04_rb, 8.81967e-04_rb, 1.05297e-03_rb, &
+     & 1.25713e-03_rb, 1.50087e-03_rb, 1.79187e-03_rb, 2.13929e-03_rb, 2.55407e-03_rb, &
+     & 3.04928e-03_rb, 3.64050e-03_rb, 4.34635e-03_rb, 5.18905e-03_rb, 6.19514e-03_rb, &
+     & 7.39631e-03_rb, 8.83036e-03_rb, 1.05425e-02_rb, 1.25865e-02_rb/)
+      kao_mco2( 5, :, 9) = (/ &
+     & 4.45365e-04_rb, 5.32106e-04_rb, 6.35742e-04_rb, 7.59563e-04_rb, 9.07500e-04_rb, &
+     & 1.08425e-03_rb, 1.29542e-03_rb, 1.54773e-03_rb, 1.84917e-03_rb, 2.20933e-03_rb, &
+     & 2.63963e-03_rb, 3.15374e-03_rb, 3.76797e-03_rb, 4.50184e-03_rb, 5.37865e-03_rb, &
+     & 6.42622e-03_rb, 7.67783e-03_rb, 9.17320e-03_rb, 1.09598e-02_rb/)
+      kao_mco2( 6, :, 9) = (/ &
+     & 2.87301e-04_rb, 3.43009e-04_rb, 4.09519e-04_rb, 4.88926e-04_rb, 5.83730e-04_rb, &
+     & 6.96916e-04_rb, 8.32050e-04_rb, 9.93386e-04_rb, 1.18601e-03_rb, 1.41597e-03_rb, &
+     & 1.69053e-03_rb, 2.01833e-03_rb, 2.40969e-03_rb, 2.87693e-03_rb, 3.43478e-03_rb, &
+     & 4.10079e-03_rb, 4.89594e-03_rb, 5.84527e-03_rb, 6.97867e-03_rb/)
+      kao_mco2( 7, :, 9) = (/ &
+     & 1.10743e-04_rb, 1.32286e-04_rb, 1.58020e-04_rb, 1.88760e-04_rb, 2.25480e-04_rb, &
+     & 2.69342e-04_rb, 3.21738e-04_rb, 3.84326e-04_rb, 4.59090e-04_rb, 5.48397e-04_rb, &
+     & 6.55078e-04_rb, 7.82511e-04_rb, 9.34734e-04_rb, 1.11657e-03_rb, 1.33378e-03_rb, &
+     & 1.59324e-03_rb, 1.90318e-03_rb, 2.27340e-03_rb, 2.71565e-03_rb/)
+      kao_mco2( 8, :, 9) = (/ &
+     & 8.63177e-05_rb, 1.03067e-04_rb, 1.23066e-04_rb, 1.46946e-04_rb, 1.75459e-04_rb, &
+     & 2.09505e-04_rb, 2.50158e-04_rb, 2.98698e-04_rb, 3.56658e-04_rb, 4.25864e-04_rb, &
+     & 5.08498e-04_rb, 6.07168e-04_rb, 7.24982e-04_rb, 8.65658e-04_rb, 1.03363e-03_rb, &
+     & 1.23420e-03_rb, 1.47368e-03_rb, 1.75963e-03_rb, 2.10107e-03_rb/)
+      kao_mco2( 9, :, 9) = (/ &
+     & 4.52715e-04_rb, 5.41540e-04_rb, 6.47792e-04_rb, 7.74892e-04_rb, 9.26929e-04_rb, &
+     & 1.10880e-03_rb, 1.32635e-03_rb, 1.58658e-03_rb, 1.89787e-03_rb, 2.27024e-03_rb, &
+     & 2.71568e-03_rb, 3.24850e-03_rb, 3.88587e-03_rb, 4.64830e-03_rb, 5.56031e-03_rb, &
+     & 6.65127e-03_rb, 7.95627e-03_rb, 9.51732e-03_rb, 1.13847e-02_rb/)
+      kao_mco2( 1, :,10) = (/ &
+     & 9.10418e-04_rb, 1.08631e-03_rb, 1.29619e-03_rb, 1.54662e-03_rb, 1.84543e-03_rb, &
+     & 2.20198e-03_rb, 2.62741e-03_rb, 3.13503e-03_rb, 3.74073e-03_rb, 4.46344e-03_rb, &
+     & 5.32580e-03_rb, 6.35476e-03_rb, 7.58251e-03_rb, 9.04748e-03_rb, 1.07955e-02_rb, &
+     & 1.28812e-02_rb, 1.53699e-02_rb, 1.83394e-02_rb, 2.18826e-02_rb/)
+      kao_mco2( 2, :,10) = (/ &
+     & 9.06680e-04_rb, 1.08622e-03_rb, 1.30130e-03_rb, 1.55898e-03_rb, 1.86768e-03_rb, &
+     & 2.23750e-03_rb, 2.68056e-03_rb, 3.21135e-03_rb, 3.84724e-03_rb, 4.60905e-03_rb, &
+     & 5.52171e-03_rb, 6.61508e-03_rb, 7.92496e-03_rb, 9.49421e-03_rb, 1.13742e-02_rb, &
+     & 1.36265e-02_rb, 1.63247e-02_rb, 1.95572e-02_rb, 2.34298e-02_rb/)
+      kao_mco2( 3, :,10) = (/ &
+     & 8.17976e-04_rb, 9.79458e-04_rb, 1.17282e-03_rb, 1.40435e-03_rb, 1.68160e-03_rb, &
+     & 2.01357e-03_rb, 2.41108e-03_rb, 2.88707e-03_rb, 3.45703e-03_rb, 4.13950e-03_rb, &
+     & 4.95671e-03_rb, 5.93525e-03_rb, 7.10696e-03_rb, 8.51000e-03_rb, 1.01900e-02_rb, &
+     & 1.22017e-02_rb, 1.46105e-02_rb, 1.74949e-02_rb, 2.09486e-02_rb/)
+      kao_mco2( 4, :,10) = (/ &
+     & 3.70314e-04_rb, 4.41440e-04_rb, 5.26226e-04_rb, 6.27298e-04_rb, 7.47782e-04_rb, &
+     & 8.91407e-04_rb, 1.06262e-03_rb, 1.26671e-03_rb, 1.51001e-03_rb, 1.80003e-03_rb, &
+     & 2.14576e-03_rb, 2.55789e-03_rb, 3.04918e-03_rb, 3.63483e-03_rb, 4.33297e-03_rb, &
+     & 5.16520e-03_rb, 6.15727e-03_rb, 7.33988e-03_rb, 8.74963e-03_rb/)
+      kao_mco2( 5, :,10) = (/ &
+     & 1.00859e-04_rb, 1.19692e-04_rb, 1.42041e-04_rb, 1.68563e-04_rb, 2.00038e-04_rb, &
+     & 2.37389e-04_rb, 2.81715e-04_rb, 3.34318e-04_rb, 3.96742e-04_rb, 4.70823e-04_rb, &
+     & 5.58736e-04_rb, 6.63065e-04_rb, 7.86874e-04_rb, 9.33801e-04_rb, 1.10816e-03_rb, &
+     & 1.31508e-03_rb, 1.56064e-03_rb, 1.85204e-03_rb, 2.19786e-03_rb/)
+      kao_mco2( 6, :,10) = (/ &
+     & 9.24477e-05_rb, 1.09659e-04_rb, 1.30074e-04_rb, 1.54290e-04_rb, 1.83015e-04_rb, &
+     & 2.17087e-04_rb, 2.57503e-04_rb, 3.05442e-04_rb, 3.62307e-04_rb, 4.29759e-04_rb, &
+     & 5.09768e-04_rb, 6.04672e-04_rb, 7.17245e-04_rb, 8.50776e-04_rb, 1.00917e-03_rb, &
+     & 1.19704e-03_rb, 1.41990e-03_rb, 1.68425e-03_rb, 1.99780e-03_rb/)
+      kao_mco2( 7, :,10) = (/ &
+     & 8.42943e-05_rb, 1.00044e-04_rb, 1.18735e-04_rb, 1.40919e-04_rb, 1.67248e-04_rb, &
+     & 1.98496e-04_rb, 2.35582e-04_rb, 2.79597e-04_rb, 3.31836e-04_rb, 3.93835e-04_rb, &
+     & 4.67418e-04_rb, 5.54748e-04_rb, 6.58395e-04_rb, 7.81407e-04_rb, 9.27402e-04_rb, &
+     & 1.10067e-03_rb, 1.30632e-03_rb, 1.55039e-03_rb, 1.84005e-03_rb/)
+      kao_mco2( 8, :,10) = (/ &
+     & 6.86464e-05_rb, 8.18163e-05_rb, 9.75129e-05_rb, 1.16221e-04_rb, 1.38518e-04_rb, &
+     & 1.65093e-04_rb, 1.96767e-04_rb, 2.34517e-04_rb, 2.79509e-04_rb, 3.33133e-04_rb, &
+     & 3.97046e-04_rb, 4.73220e-04_rb, 5.64008e-04_rb, 6.72214e-04_rb, 8.01179e-04_rb, &
+     & 9.54887e-04_rb, 1.13808e-03_rb, 1.35643e-03_rb, 1.61666e-03_rb/)
+      kao_mco2( 9, :,10) = (/ &
+     & 1.03095e-04_rb, 1.21985e-04_rb, 1.44335e-04_rb, 1.70781e-04_rb, 2.02072e-04_rb, &
+     & 2.39096e-04_rb, 2.82904e-04_rb, 3.34739e-04_rb, 3.96070e-04_rb, 4.68639e-04_rb, &
+     & 5.54505e-04_rb, 6.56103e-04_rb, 7.76316e-04_rb, 9.18556e-04_rb, 1.08686e-03_rb, &
+     & 1.28599e-03_rb, 1.52162e-03_rb, 1.80041e-03_rb, 2.13029e-03_rb/)
+      kao_mco2( 1, :,11) = (/ &
+     & 1.01275e-03_rb, 1.21433e-03_rb, 1.45605e-03_rb, 1.74587e-03_rb, 2.09339e-03_rb, &
+     & 2.51007e-03_rb, 3.00970e-03_rb, 3.60878e-03_rb, 4.32711e-03_rb, 5.18842e-03_rb, &
+     & 6.22117e-03_rb, 7.45950e-03_rb, 8.94430e-03_rb, 1.07247e-02_rb, 1.28594e-02_rb, &
+     & 1.54191e-02_rb, 1.84882e-02_rb, 2.21683e-02_rb, 2.65809e-02_rb/)
+      kao_mco2( 2, :,11) = (/ &
+     & 1.06856e-03_rb, 1.27885e-03_rb, 1.53052e-03_rb, 1.83171e-03_rb, 2.19218e-03_rb, &
+     & 2.62359e-03_rb, 3.13990e-03_rb, 3.75781e-03_rb, 4.49732e-03_rb, 5.38236e-03_rb, &
+     & 6.44158e-03_rb, 7.70924e-03_rb, 9.22637e-03_rb, 1.10421e-02_rb, 1.32151e-02_rb, &
+     & 1.58157e-02_rb, 1.89281e-02_rb, 2.26531e-02_rb, 2.71110e-02_rb/)
+      kao_mco2( 3, :,11) = (/ &
+     & 7.34896e-04_rb, 8.77863e-04_rb, 1.04864e-03_rb, 1.25265e-03_rb, 1.49634e-03_rb, &
+     & 1.78744e-03_rb, 2.13516e-03_rb, 2.55054e-03_rb, 3.04672e-03_rb, 3.63943e-03_rb, &
+     & 4.34745e-03_rb, 5.19321e-03_rb, 6.20349e-03_rb, 7.41032e-03_rb, 8.85192e-03_rb, &
+     & 1.05740e-02_rb, 1.26311e-02_rb, 1.50883e-02_rb, 1.80236e-02_rb/)
+      kao_mco2( 4, :,11) = (/ &
+     & 5.89491e-05_rb, 7.12560e-05_rb, 8.61322e-05_rb, 1.04114e-04_rb, 1.25850e-04_rb, &
+     & 1.52124e-04_rb, 1.83883e-04_rb, 2.22272e-04_rb, 2.68676e-04_rb, 3.24768e-04_rb, &
+     & 3.92571e-04_rb, 4.74528e-04_rb, 5.73595e-04_rb, 6.93346e-04_rb, 8.38096e-04_rb, &
+     & 1.01307e-03_rb, 1.22457e-03_rb, 1.48022e-03_rb, 1.78924e-03_rb/)
+      kao_mco2( 5, :,11) = (/ &
+     & 5.32400e-05_rb, 6.45465e-05_rb, 7.82542e-05_rb, 9.48731e-05_rb, 1.15021e-04_rb, &
+     & 1.39448e-04_rb, 1.69063e-04_rb, 2.04966e-04_rb, 2.48495e-04_rb, 3.01268e-04_rb, &
+     & 3.65248e-04_rb, 4.42816e-04_rb, 5.36856e-04_rb, 6.50868e-04_rb, 7.89092e-04_rb, &
+     & 9.56672e-04_rb, 1.15984e-03_rb, 1.40615e-03_rb, 1.70478e-03_rb/)
+      kao_mco2( 6, :,11) = (/ &
+     & 5.31408e-05_rb, 6.42409e-05_rb, 7.76597e-05_rb, 9.38814e-05_rb, 1.13491e-04_rb, &
+     & 1.37198e-04_rb, 1.65856e-04_rb, 2.00500e-04_rb, 2.42381e-04_rb, 2.93010e-04_rb, &
+     & 3.54214e-04_rb, 4.28203e-04_rb, 5.17647e-04_rb, 6.25774e-04_rb, 7.56486e-04_rb, &
+     & 9.14503e-04_rb, 1.10553e-03_rb, 1.33645e-03_rb, 1.61561e-03_rb/)
+      kao_mco2( 7, :,11) = (/ &
+     & 5.24517e-05_rb, 6.32485e-05_rb, 7.62676e-05_rb, 9.19667e-05_rb, 1.10897e-04_rb, &
+     & 1.33725e-04_rb, 1.61251e-04_rb, 1.94443e-04_rb, 2.34467e-04_rb, 2.82730e-04_rb, &
+     & 3.40928e-04_rb, 4.11106e-04_rb, 4.95728e-04_rb, 5.97770e-04_rb, 7.20816e-04_rb, &
+     & 8.69190e-04_rb, 1.04811e-03_rb, 1.26385e-03_rb, 1.52400e-03_rb/)
+      kao_mco2( 8, :,11) = (/ &
+     & 5.01768e-05_rb, 6.02217e-05_rb, 7.22774e-05_rb, 8.67466e-05_rb, 1.04112e-04_rb, &
+     & 1.24955e-04_rb, 1.49969e-04_rb, 1.79991e-04_rb, 2.16024e-04_rb, 2.59270e-04_rb, &
+     & 3.11173e-04_rb, 3.73467e-04_rb, 4.48231e-04_rb, 5.37962e-04_rb, 6.45656e-04_rb, &
+     & 7.74910e-04_rb, 9.30039e-04_rb, 1.11622e-03_rb, 1.33968e-03_rb/)
+      kao_mco2( 9, :,11) = (/ &
+     & 5.46391e-05_rb, 6.58765e-05_rb, 7.94252e-05_rb, 9.57603e-05_rb, 1.15455e-04_rb, &
+     & 1.39200e-04_rb, 1.67829e-04_rb, 2.02346e-04_rb, 2.43962e-04_rb, 2.94137e-04_rb, &
+     & 3.54632e-04_rb, 4.27568e-04_rb, 5.15504e-04_rb, 6.21526e-04_rb, 7.49353e-04_rb, &
+     & 9.03471e-04_rb, 1.08929e-03_rb, 1.31331e-03_rb, 1.58342e-03_rb/)
+      kao_mco2( 1, :,12) = (/ &
+     & 1.18469e-03_rb, 1.41755e-03_rb, 1.69619e-03_rb, 2.02959e-03_rb, 2.42854e-03_rb, &
+     & 2.90589e-03_rb, 3.47708e-03_rb, 4.16055e-03_rb, 4.97836e-03_rb, 5.95691e-03_rb, &
+     & 7.12782e-03_rb, 8.52889e-03_rb, 1.02053e-02_rb, 1.22113e-02_rb, 1.46116e-02_rb, &
+     & 1.74837e-02_rb, 2.09204e-02_rb, 2.50325e-02_rb, 2.99530e-02_rb/)
+      kao_mco2( 2, :,12) = (/ &
+     & 1.09092e-03_rb, 1.30288e-03_rb, 1.55602e-03_rb, 1.85834e-03_rb, 2.21940e-03_rb, &
+     & 2.65061e-03_rb, 3.16560e-03_rb, 3.78064e-03_rb, 4.51519e-03_rb, 5.39245e-03_rb, &
+     & 6.44016e-03_rb, 7.69143e-03_rb, 9.18580e-03_rb, 1.09705e-02_rb, 1.31020e-02_rb, &
+     & 1.56476e-02_rb, 1.86878e-02_rb, 2.23187e-02_rb, 2.66550e-02_rb/)
+      kao_mco2( 3, :,12) = (/ &
+     & 3.97521e-04_rb, 4.74103e-04_rb, 5.65438e-04_rb, 6.74369e-04_rb, 8.04285e-04_rb, &
+     & 9.59228e-04_rb, 1.14402e-03_rb, 1.36442e-03_rb, 1.62727e-03_rb, 1.94076e-03_rb, &
+     & 2.31464e-03_rb, 2.76055e-03_rb, 3.29237e-03_rb, 3.92663e-03_rb, 4.68309e-03_rb, &
+     & 5.58528e-03_rb, 6.66128e-03_rb, 7.94456e-03_rb, 9.47505e-03_rb/)
+      kao_mco2( 4, :,12) = (/ &
+     & 7.18557e-05_rb, 8.56230e-05_rb, 1.02028e-04_rb, 1.21576e-04_rb, 1.44870e-04_rb, &
+     & 1.72626e-04_rb, 2.05701e-04_rb, 2.45112e-04_rb, 2.92075e-04_rb, 3.48035e-04_rb, &
+     & 4.14718e-04_rb, 4.94176e-04_rb, 5.88858e-04_rb, 7.01682e-04_rb, 8.36121e-04_rb, &
+     & 9.96319e-04_rb, 1.18721e-03_rb, 1.41467e-03_rb, 1.68572e-03_rb/)
+      kao_mco2( 5, :,12) = (/ &
+     & 7.33026e-05_rb, 8.69077e-05_rb, 1.03038e-04_rb, 1.22162e-04_rb, 1.44836e-04_rb, &
+     & 1.71717e-04_rb, 2.03588e-04_rb, 2.41375e-04_rb, 2.86175e-04_rb, 3.39289e-04_rb, &
+     & 4.02262e-04_rb, 4.76923e-04_rb, 5.65440e-04_rb, 6.70387e-04_rb, 7.94812e-04_rb, &
+     & 9.42331e-04_rb, 1.11723e-03_rb, 1.32459e-03_rb, 1.57044e-03_rb/)
+      kao_mco2( 6, :,12) = (/ &
+     & 7.44053e-05_rb, 8.82167e-05_rb, 1.04592e-04_rb, 1.24007e-04_rb, 1.47025e-04_rb, &
+     & 1.74317e-04_rb, 2.06674e-04_rb, 2.45038e-04_rb, 2.90523e-04_rb, 3.44451e-04_rb, &
+     & 4.08389e-04_rb, 4.84196e-04_rb, 5.74074e-04_rb, 6.80637e-04_rb, 8.06979e-04_rb, &
+     & 9.56774e-04_rb, 1.13437e-03_rb, 1.34494e-03_rb, 1.59459e-03_rb/)
+      kao_mco2( 7, :,12) = (/ &
+     & 7.68762e-05_rb, 9.11305e-05_rb, 1.08028e-04_rb, 1.28058e-04_rb, 1.51802e-04_rb, &
+     & 1.79949e-04_rb, 2.13315e-04_rb, 2.52868e-04_rb, 2.99754e-04_rb, 3.55334e-04_rb, &
+     & 4.21220e-04_rb, 4.99322e-04_rb, 5.91905e-04_rb, 7.01656e-04_rb, 8.31756e-04_rb, &
+     & 9.85979e-04_rb, 1.16880e-03_rb, 1.38551e-03_rb, 1.64241e-03_rb/)
+      kao_mco2( 8, :,12) = (/ &
+     & 8.45996e-05_rb, 1.00214e-04_rb, 1.18711e-04_rb, 1.40622e-04_rb, 1.66577e-04_rb, &
+     & 1.97323e-04_rb, 2.33743e-04_rb, 2.76885e-04_rb, 3.27991e-04_rb, 3.88529e-04_rb, &
+     & 4.60241e-04_rb, 5.45189e-04_rb, 6.45816e-04_rb, 7.65016e-04_rb, 9.06216e-04_rb, &
+     & 1.07348e-03_rb, 1.27161e-03_rb, 1.50632e-03_rb, 1.78434e-03_rb/)
+      kao_mco2( 9, :,12) = (/ &
+     & 7.73583e-05_rb, 9.16767e-05_rb, 1.08645e-04_rb, 1.28755e-04_rb, 1.52586e-04_rb, &
+     & 1.80829e-04_rb, 2.14299e-04_rb, 2.53964e-04_rb, 3.00970e-04_rb, 3.56678e-04_rb, &
+     & 4.22696e-04_rb, 5.00934e-04_rb, 5.93652e-04_rb, 7.03533e-04_rb, 8.33751e-04_rb, &
+     & 9.88072e-04_rb, 1.17096e-03_rb, 1.38769e-03_rb, 1.64454e-03_rb/)
+      kao_mco2( 1, :,13) = (/ &
+     & 1.20952e-03_rb, 1.44504e-03_rb, 1.72642e-03_rb, 2.06260e-03_rb, 2.46423e-03_rb, &
+     & 2.94407e-03_rb, 3.51735e-03_rb, 4.20226e-03_rb, 5.02053e-03_rb, 5.99814e-03_rb, &
+     & 7.16612e-03_rb, 8.56153e-03_rb, 1.02287e-02_rb, 1.22204e-02_rb, 1.46000e-02_rb, &
+     & 1.74430e-02_rb, 2.08395e-02_rb, 2.48974e-02_rb, 2.97455e-02_rb/)
+      kao_mco2( 2, :,13) = (/ &
+     & 8.47667e-04_rb, 1.01027e-03_rb, 1.20407e-03_rb, 1.43505e-03_rb, 1.71034e-03_rb, &
+     & 2.03843e-03_rb, 2.42946e-03_rb, 2.89550e-03_rb, 3.45094e-03_rb, 4.11293e-03_rb, &
+     & 4.90192e-03_rb, 5.84225e-03_rb, 6.96296e-03_rb, 8.29866e-03_rb, 9.89058e-03_rb, &
+     & 1.17879e-02_rb, 1.40492e-02_rb, 1.67442e-02_rb, 1.99562e-02_rb/)
+      kao_mco2( 3, :,13) = (/ &
+     & 1.45612e-04_rb, 1.71739e-04_rb, 2.02554e-04_rb, 2.38897e-04_rb, 2.81762e-04_rb, &
+     & 3.32318e-04_rb, 3.91945e-04_rb, 4.62271e-04_rb, 5.45215e-04_rb, 6.43041e-04_rb, &
+     & 7.58421e-04_rb, 8.94503e-04_rb, 1.05500e-03_rb, 1.24430e-03_rb, 1.46756e-03_rb, &
+     & 1.73088e-03_rb, 2.04145e-03_rb, 2.40774e-03_rb, 2.83975e-03_rb/)
+      kao_mco2( 4, :,13) = (/ &
+     & 1.40167e-04_rb, 1.65266e-04_rb, 1.94858e-04_rb, 2.29750e-04_rb, 2.70889e-04_rb, &
+     & 3.19394e-04_rb, 3.76585e-04_rb, 4.44016e-04_rb, 5.23522e-04_rb, 6.17264e-04_rb, &
+     & 7.27791e-04_rb, 8.58110e-04_rb, 1.01176e-03_rb, 1.19293e-03_rb, 1.40654e-03_rb, &
+     & 1.65839e-03_rb, 1.95534e-03_rb, 2.30547e-03_rb, 2.71828e-03_rb/)
+      kao_mco2( 5, :,13) = (/ &
+     & 1.37406e-04_rb, 1.61990e-04_rb, 1.90973e-04_rb, 2.25141e-04_rb, 2.65423e-04_rb, &
+     & 3.12911e-04_rb, 3.68896e-04_rb, 4.34898e-04_rb, 5.12709e-04_rb, 6.04442e-04_rb, &
+     & 7.12587e-04_rb, 8.40082e-04_rb, 9.90387e-04_rb, 1.16758e-03_rb, 1.37648e-03_rb, &
+     & 1.62276e-03_rb, 1.91310e-03_rb, 2.25539e-03_rb, 2.65892e-03_rb/)
+      kao_mco2( 6, :,13) = (/ &
+     & 1.35356e-04_rb, 1.59577e-04_rb, 1.88132e-04_rb, 2.21797e-04_rb, 2.61485e-04_rb, &
+     & 3.08276e-04_rb, 3.63440e-04_rb, 4.28475e-04_rb, 5.05147e-04_rb, 5.95539e-04_rb, &
+     & 7.02106e-04_rb, 8.27743e-04_rb, 9.75861e-04_rb, 1.15048e-03_rb, 1.35635e-03_rb, &
+     & 1.59906e-03_rb, 1.88520e-03_rb, 2.22255e-03_rb, 2.62025e-03_rb/)
+      kao_mco2( 7, :,13) = (/ &
+     & 1.33359e-04_rb, 1.57252e-04_rb, 1.85424e-04_rb, 2.18645e-04_rb, 2.57817e-04_rb, &
+     & 3.04007e-04_rb, 3.58472e-04_rb, 4.22695e-04_rb, 4.98425e-04_rb, 5.87722e-04_rb, &
+     & 6.93017e-04_rb, 8.17177e-04_rb, 9.63581e-04_rb, 1.13621e-03_rb, 1.33978e-03_rb, &
+     & 1.57981e-03_rb, 1.86284e-03_rb, 2.19659e-03_rb, 2.59012e-03_rb/)
+      kao_mco2( 8, :,13) = (/ &
+     & 1.29667e-04_rb, 1.53001e-04_rb, 1.80534e-04_rb, 2.13022e-04_rb, 2.51356e-04_rb, &
+     & 2.96589e-04_rb, 3.49961e-04_rb, 4.12938e-04_rb, 4.87249e-04_rb, 5.74931e-04_rb, &
+     & 6.78393e-04_rb, 8.00473e-04_rb, 9.44521e-04_rb, 1.11449e-03_rb, 1.31505e-03_rb, &
+     & 1.55170e-03_rb, 1.83094e-03_rb, 2.16042e-03_rb, 2.54920e-03_rb/)
+      kao_mco2( 9, :,13) = (/ &
+     & 1.37892e-04_rb, 1.62557e-04_rb, 1.91635e-04_rb, 2.25914e-04_rb, 2.66324e-04_rb, &
+     & 3.13963e-04_rb, 3.70124e-04_rb, 4.36330e-04_rb, 5.14379e-04_rb, 6.06389e-04_rb, &
+     & 7.14858e-04_rb, 8.42730e-04_rb, 9.93473e-04_rb, 1.17118e-03_rb, 1.38068e-03_rb, &
+     & 1.62765e-03_rb, 1.91880e-03_rb, 2.26202e-03_rb, 2.66665e-03_rb/)
+      kao_mco2( 1, :,14) = (/ &
+     & 1.28098e-03_rb, 1.52939e-03_rb, 1.82597e-03_rb, 2.18007e-03_rb, 2.60284e-03_rb, &
+     & 3.10759e-03_rb, 3.71022e-03_rb, 4.42972e-03_rb, 5.28874e-03_rb, 6.31435e-03_rb, &
+     & 7.53885e-03_rb, 9.00081e-03_rb, 1.07463e-02_rb, 1.28302e-02_rb, 1.53183e-02_rb, &
+     & 1.82889e-02_rb, 2.18355e-02_rb, 2.60699e-02_rb, 3.11255e-02_rb/)
+      kao_mco2( 2, :,14) = (/ &
+     & 1.27275e-04_rb, 1.48842e-04_rb, 1.74064e-04_rb, 2.03561e-04_rb, 2.38055e-04_rb, &
+     & 2.78395e-04_rb, 3.25570e-04_rb, 3.80740e-04_rb, 4.45259e-04_rb, 5.20710e-04_rb, &
+     & 6.08947e-04_rb, 7.12137e-04_rb, 8.32812e-04_rb, 9.73937e-04_rb, 1.13898e-03_rb, &
+     & 1.33198e-03_rb, 1.55769e-03_rb, 1.82165e-03_rb, 2.13034e-03_rb/)
+      kao_mco2( 3, :,14) = (/ &
+     & 1.27744e-04_rb, 1.49255e-04_rb, 1.74389e-04_rb, 2.03755e-04_rb, 2.38066e-04_rb, &
+     & 2.78155e-04_rb, 3.24995e-04_rb, 3.79722e-04_rb, 4.43666e-04_rb, 5.18376e-04_rb, &
+     & 6.05668e-04_rb, 7.07660e-04_rb, 8.26826e-04_rb, 9.66059e-04_rb, 1.12874e-03_rb, &
+     & 1.31881e-03_rb, 1.54089e-03_rb, 1.80037e-03_rb, 2.10354e-03_rb/)
+      kao_mco2( 4, :,14) = (/ &
+     & 1.28543e-04_rb, 1.50136e-04_rb, 1.75357e-04_rb, 2.04814e-04_rb, 2.39219e-04_rb, &
+     & 2.79404e-04_rb, 3.26339e-04_rb, 3.81159e-04_rb, 4.45188e-04_rb, 5.19972e-04_rb, &
+     & 6.07319e-04_rb, 7.09339e-04_rb, 8.28496e-04_rb, 9.67670e-04_rb, 1.13022e-03_rb, &
+     & 1.32008e-03_rb, 1.54184e-03_rb, 1.80084e-03_rb, 2.10335e-03_rb/)
+      kao_mco2( 5, :,14) = (/ &
+     & 1.29218e-04_rb, 1.50897e-04_rb, 1.76214e-04_rb, 2.05778e-04_rb, 2.40302e-04_rb, &
+     & 2.80618e-04_rb, 3.27698e-04_rb, 3.82678e-04_rb, 4.46881e-04_rb, 5.21855e-04_rb, &
+     & 6.09409e-04_rb, 7.11652e-04_rb, 8.31048e-04_rb, 9.70475e-04_rb, 1.13330e-03_rb, &
+     & 1.32343e-03_rb, 1.54547e-03_rb, 1.80476e-03_rb, 2.10755e-03_rb/)
+      kao_mco2( 6, :,14) = (/ &
+     & 1.30502e-04_rb, 1.52368e-04_rb, 1.77898e-04_rb, 2.07706e-04_rb, 2.42508e-04_rb, &
+     & 2.83141e-04_rb, 3.30583e-04_rb, 3.85974e-04_rb, 4.50646e-04_rb, 5.26153e-04_rb, &
+     & 6.14313e-04_rb, 7.17244e-04_rb, 8.37422e-04_rb, 9.77736e-04_rb, 1.14156e-03_rb, &
+     & 1.33283e-03_rb, 1.55616e-03_rb, 1.81690e-03_rb, 2.12133e-03_rb/)
+      kao_mco2( 7, :,14) = (/ &
+     & 1.32820e-04_rb, 1.55041e-04_rb, 1.80980e-04_rb, 2.11259e-04_rb, 2.46604e-04_rb, &
+     & 2.87862e-04_rb, 3.36022e-04_rb, 3.92240e-04_rb, 4.57864e-04_rb, 5.34467e-04_rb, &
+     & 6.23886e-04_rb, 7.28265e-04_rb, 8.50107e-04_rb, 9.92334e-04_rb, 1.15836e-03_rb, &
+     & 1.35215e-03_rb, 1.57838e-03_rb, 1.84244e-03_rb, 2.15069e-03_rb/)
+      kao_mco2( 8, :,14) = (/ &
+     & 1.40203e-04_rb, 1.63590e-04_rb, 1.90879e-04_rb, 2.22720e-04_rb, 2.59872e-04_rb, &
+     & 3.03221e-04_rb, 3.53801e-04_rb, 4.12819e-04_rb, 4.81681e-04_rb, 5.62031e-04_rb, &
+     & 6.55783e-04_rb, 7.65175e-04_rb, 8.92814e-04_rb, 1.04174e-03_rb, 1.21552e-03_rb, &
+     & 1.41828e-03_rb, 1.65486e-03_rb, 1.93091e-03_rb, 2.25301e-03_rb/)
+      kao_mco2( 9, :,14) = (/ &
+     & 1.30642e-04_rb, 1.52513e-04_rb, 1.78046e-04_rb, 2.07853e-04_rb, 2.42651e-04_rb, &
+     & 2.83275e-04_rb, 3.30699e-04_rb, 3.86063e-04_rb, 4.50696e-04_rb, 5.26149e-04_rb, &
+     & 6.14234e-04_rb, 7.17066e-04_rb, 8.37113e-04_rb, 9.77259e-04_rb, 1.14087e-03_rb, &
+     & 1.33186e-03_rb, 1.55484e-03_rb, 1.81514e-03_rb, 2.11902e-03_rb/)
+      kao_mco2( 1, :,15) = (/ &
+     & 1.37603e-03_rb, 1.64035e-03_rb, 1.95543e-03_rb, 2.33105e-03_rb, 2.77881e-03_rb, &
+     & 3.31257e-03_rb, 3.94887e-03_rb, 4.70739e-03_rb, 5.61162e-03_rb, 6.68952e-03_rb, &
+     & 7.97449e-03_rb, 9.50627e-03_rb, 1.13323e-02_rb, 1.35091e-02_rb, 1.61039e-02_rb, &
+     & 1.91973e-02_rb, 2.28848e-02_rb, 2.72806e-02_rb, 3.25208e-02_rb/)
+      kao_mco2( 2, :,15) = (/ &
+     & 1.67843e-04_rb, 1.93707e-04_rb, 2.23557e-04_rb, 2.58007e-04_rb, 2.97765e-04_rb, &
+     & 3.43650e-04_rb, 3.96606e-04_rb, 4.57722e-04_rb, 5.28256e-04_rb, 6.09659e-04_rb, &
+     & 7.03606e-04_rb, 8.12031e-04_rb, 9.37163e-04_rb, 1.08158e-03_rb, 1.24825e-03_rb, &
+     & 1.44060e-03_rb, 1.66259e-03_rb, 1.91880e-03_rb, 2.21448e-03_rb/)
+      kao_mco2( 3, :,15) = (/ &
+     & 1.67595e-04_rb, 1.93410e-04_rb, 2.23200e-04_rb, 2.57579e-04_rb, 2.97253e-04_rb, &
+     & 3.43039e-04_rb, 3.95876e-04_rb, 4.56852e-04_rb, 5.27220e-04_rb, 6.08426e-04_rb, &
+     & 7.02141e-04_rb, 8.10291e-04_rb, 9.35098e-04_rb, 1.07913e-03_rb, 1.24534e-03_rb, &
+     & 1.43716e-03_rb, 1.65853e-03_rb, 1.91398e-03_rb, 2.20879e-03_rb/)
+      kao_mco2( 4, :,15) = (/ &
+     & 1.67354e-04_rb, 1.93130e-04_rb, 2.22877e-04_rb, 2.57206e-04_rb, 2.96823e-04_rb, &
+     & 3.42541e-04_rb, 3.95301e-04_rb, 4.56187e-04_rb, 5.26452e-04_rb, 6.07539e-04_rb, &
+     & 7.01116e-04_rb, 8.09106e-04_rb, 9.33728e-04_rb, 1.07755e-03_rb, 1.24352e-03_rb, &
+     & 1.43505e-03_rb, 1.65608e-03_rb, 1.91116e-03_rb, 2.20553e-03_rb/)
+      kao_mco2( 5, :,15) = (/ &
+     & 1.67437e-04_rb, 1.93232e-04_rb, 2.23002e-04_rb, 2.57358e-04_rb, 2.97006e-04_rb, &
+     & 3.42763e-04_rb, 3.95570e-04_rb, 4.56511e-04_rb, 5.26842e-04_rb, 6.08007e-04_rb, &
+     & 7.01677e-04_rb, 8.09778e-04_rb, 9.34533e-04_rb, 1.07851e-03_rb, 1.24466e-03_rb, &
+     & 1.43642e-03_rb, 1.65771e-03_rb, 1.91310e-03_rb, 2.20783e-03_rb/)
+      kao_mco2( 6, :,15) = (/ &
+     & 1.67267e-04_rb, 1.93027e-04_rb, 2.22753e-04_rb, 2.57057e-04_rb, 2.96645e-04_rb, &
+     & 3.42328e-04_rb, 3.95047e-04_rb, 4.55885e-04_rb, 5.26092e-04_rb, 6.07110e-04_rb, &
+     & 7.00606e-04_rb, 8.08500e-04_rb, 9.33010e-04_rb, 1.07669e-03_rb, 1.24251e-03_rb, &
+     & 1.43385e-03_rb, 1.65467e-03_rb, 1.90949e-03_rb, 2.20355e-03_rb/)
+      kao_mco2( 7, :,15) = (/ &
+     & 1.67354e-04_rb, 1.93130e-04_rb, 2.22877e-04_rb, 2.57206e-04_rb, 2.96823e-04_rb, &
+     & 3.42541e-04_rb, 3.95301e-04_rb, 4.56187e-04_rb, 5.26452e-04_rb, 6.07539e-04_rb, &
+     & 7.01116e-04_rb, 8.09106e-04_rb, 9.33728e-04_rb, 1.07755e-03_rb, 1.24352e-03_rb, &
+     & 1.43505e-03_rb, 1.65608e-03_rb, 1.91116e-03_rb, 2.20553e-03_rb/)
+      kao_mco2( 8, :,15) = (/ &
+     & 1.67276e-04_rb, 1.93038e-04_rb, 2.22769e-04_rb, 2.57079e-04_rb, 2.96673e-04_rb, &
+     & 3.42365e-04_rb, 3.95094e-04_rb, 4.55944e-04_rb, 5.26166e-04_rb, 6.07203e-04_rb, &
+     & 7.00722e-04_rb, 8.08643e-04_rb, 9.33186e-04_rb, 1.07691e-03_rb, 1.24277e-03_rb, &
+     & 1.43417e-03_rb, 1.65506e-03_rb, 1.90996e-03_rb, 2.20412e-03_rb/)
+      kao_mco2( 9, :,15) = (/ &
+     & 1.67437e-04_rb, 1.93232e-04_rb, 2.23002e-04_rb, 2.57358e-04_rb, 2.97006e-04_rb, &
+     & 3.42763e-04_rb, 3.95570e-04_rb, 4.56511e-04_rb, 5.26842e-04_rb, 6.08007e-04_rb, &
+     & 7.01677e-04_rb, 8.09778e-04_rb, 9.34533e-04_rb, 1.07851e-03_rb, 1.24466e-03_rb, &
+     & 1.43642e-03_rb, 1.65771e-03_rb, 1.91310e-03_rb, 2.20783e-03_rb/)
+      kao_mco2( 1, :,16) = (/ &
+     & 1.42104e-03_rb, 1.69791e-03_rb, 2.02872e-03_rb, 2.42399e-03_rb, 2.89626e-03_rb, &
+     & 3.46055e-03_rb, 4.13478e-03_rb, 4.94038e-03_rb, 5.90294e-03_rb, 7.05303e-03_rb, &
+     & 8.42720e-03_rb, 1.00691e-02_rb, 1.20309e-02_rb, 1.43749e-02_rb, 1.71757e-02_rb, &
+     & 2.05221e-02_rb, 2.45205e-02_rb, 2.92979e-02_rb, 3.50061e-02_rb/)
+      kao_mco2( 2, :,16) = (/ &
+     & 1.63777e-04_rb, 1.88736e-04_rb, 2.17498e-04_rb, 2.50643e-04_rb, 2.88839e-04_rb, &
+     & 3.32857e-04_rb, 3.83582e-04_rb, 4.42037e-04_rb, 5.09401e-04_rb, 5.87030e-04_rb, &
+     & 6.76490e-04_rb, 7.79583e-04_rb, 8.98386e-04_rb, 1.03530e-03_rb, 1.19307e-03_rb, &
+     & 1.37488e-03_rb, 1.58441e-03_rb, 1.82586e-03_rb, 2.10411e-03_rb/)
+      kao_mco2( 3, :,16) = (/ &
+     & 1.63679e-04_rb, 1.88621e-04_rb, 2.17365e-04_rb, 2.50489e-04_rb, 2.88661e-04_rb, &
+     & 3.32650e-04_rb, 3.83342e-04_rb, 4.41759e-04_rb, 5.09079e-04_rb, 5.86657e-04_rb, &
+     & 6.76057e-04_rb, 7.79080e-04_rb, 8.97804e-04_rb, 1.03462e-03_rb, 1.19228e-03_rb, &
+     & 1.37397e-03_rb, 1.58335e-03_rb, 1.82464e-03_rb, 2.10269e-03_rb/)
+      kao_mco2( 4, :,16) = (/ &
+     & 1.63679e-04_rb, 1.88621e-04_rb, 2.17365e-04_rb, 2.50489e-04_rb, 2.88661e-04_rb, &
+     & 3.32650e-04_rb, 3.83342e-04_rb, 4.41759e-04_rb, 5.09079e-04_rb, 5.86657e-04_rb, &
+     & 6.76057e-04_rb, 7.79080e-04_rb, 8.97804e-04_rb, 1.03462e-03_rb, 1.19228e-03_rb, &
+     & 1.37397e-03_rb, 1.58335e-03_rb, 1.82464e-03_rb, 2.10269e-03_rb/)
+      kao_mco2( 5, :,16) = (/ &
+     & 1.63586e-04_rb, 1.88513e-04_rb, 2.17239e-04_rb, 2.50343e-04_rb, 2.88490e-04_rb, &
+     & 3.32451e-04_rb, 3.83111e-04_rb, 4.41490e-04_rb, 5.08766e-04_rb, 5.86292e-04_rb, &
+     & 6.75633e-04_rb, 7.78588e-04_rb, 8.97231e-04_rb, 1.03395e-03_rb, 1.19151e-03_rb, &
+     & 1.37307e-03_rb, 1.58231e-03_rb, 1.82342e-03_rb, 2.10128e-03_rb/)
+      kao_mco2( 6, :,16) = (/ &
+     & 1.63679e-04_rb, 1.88621e-04_rb, 2.17365e-04_rb, 2.50489e-04_rb, 2.88661e-04_rb, &
+     & 3.32650e-04_rb, 3.83342e-04_rb, 4.41759e-04_rb, 5.09079e-04_rb, 5.86657e-04_rb, &
+     & 6.76057e-04_rb, 7.79080e-04_rb, 8.97804e-04_rb, 1.03462e-03_rb, 1.19228e-03_rb, &
+     & 1.37397e-03_rb, 1.58335e-03_rb, 1.82464e-03_rb, 2.10269e-03_rb/)
+      kao_mco2( 7, :,16) = (/ &
+     & 1.63679e-04_rb, 1.88621e-04_rb, 2.17365e-04_rb, 2.50489e-04_rb, 2.88661e-04_rb, &
+     & 3.32650e-04_rb, 3.83342e-04_rb, 4.41759e-04_rb, 5.09079e-04_rb, 5.86657e-04_rb, &
+     & 6.76057e-04_rb, 7.79080e-04_rb, 8.97804e-04_rb, 1.03462e-03_rb, 1.19228e-03_rb, &
+     & 1.37397e-03_rb, 1.58335e-03_rb, 1.82464e-03_rb, 2.10269e-03_rb/)
+      kao_mco2( 8, :,16) = (/ &
+     & 1.63479e-04_rb, 1.88391e-04_rb, 2.17098e-04_rb, 2.50180e-04_rb, 2.88303e-04_rb, &
+     & 3.32236e-04_rb, 3.82863e-04_rb, 4.41205e-04_rb, 5.08437e-04_rb, 5.85914e-04_rb, &
+     & 6.75198e-04_rb, 7.78087e-04_rb, 8.96654e-04_rb, 1.03329e-03_rb, 1.19074e-03_rb, &
+     & 1.37219e-03_rb, 1.58129e-03_rb, 1.82226e-03_rb, 2.09994e-03_rb/)
+      kao_mco2( 9, :,16) = (/ &
+     & 1.63586e-04_rb, 1.88513e-04_rb, 2.17239e-04_rb, 2.50343e-04_rb, 2.88490e-04_rb, &
+     & 3.32451e-04_rb, 3.83111e-04_rb, 4.41490e-04_rb, 5.08766e-04_rb, 5.86292e-04_rb, &
+     & 6.75633e-04_rb, 7.78588e-04_rb, 8.97231e-04_rb, 1.03395e-03_rb, 1.19151e-03_rb, &
+     & 1.37307e-03_rb, 1.58231e-03_rb, 1.82342e-03_rb, 2.10128e-03_rb/)
+
+!     The array KBO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level above 100~ mb.   The first index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index 
+!     runs over the g-channel (1 to 16).
+
+      kbo_mco2(:, 1) = (/ &
+     & 3.72069e-06_rb, 4.81866e-06_rb, 6.24064e-06_rb, 8.08226e-06_rb, 1.04673e-05_rb, &
+     & 1.35562e-05_rb, 1.75567e-05_rb, 2.27376e-05_rb, 2.94475e-05_rb, 3.81375e-05_rb, &
+     & 4.93918e-05_rb, 6.39674e-05_rb, 8.28441e-05_rb, 1.07291e-04_rb, 1.38953e-04_rb, &
+     & 1.79958e-04_rb, 2.33064e-04_rb, 3.01840e-04_rb, 3.90913e-04_rb/)
+      kbo_mco2(:, 2) = (/ &
+     & 8.14357e-06_rb, 1.06031e-05_rb, 1.38056e-05_rb, 1.79752e-05_rb, 2.34041e-05_rb, &
+     & 3.04728e-05_rb, 3.96763e-05_rb, 5.16596e-05_rb, 6.72622e-05_rb, 8.75770e-05_rb, &
+     & 1.14027e-04_rb, 1.48467e-04_rb, 1.93307e-04_rb, 2.51691e-04_rb, 3.27708e-04_rb, &
+     & 4.26685e-04_rb, 5.55555e-04_rb, 7.23346e-04_rb, 9.41814e-04_rb/)
+      kbo_mco2(:, 3) = (/ &
+     & 1.09367e-05_rb, 1.42063e-05_rb, 1.84533e-05_rb, 2.39701e-05_rb, 3.11362e-05_rb, &
+     & 4.04446e-05_rb, 5.25358e-05_rb, 6.82417e-05_rb, 8.86432e-05_rb, 1.15144e-04_rb, &
+     & 1.49567e-04_rb, 1.94281e-04_rb, 2.52363e-04_rb, 3.27809e-04_rb, 4.25810e-04_rb, &
+     & 5.53109e-04_rb, 7.18466e-04_rb, 9.33256e-04_rb, 1.21226e-03_rb/)
+      kbo_mco2(:, 4) = (/ &
+     & 1.76192e-05_rb, 2.27752e-05_rb, 2.94401e-05_rb, 3.80553e-05_rb, 4.91916e-05_rb, &
+     & 6.35867e-05_rb, 8.21944e-05_rb, 1.06247e-04_rb, 1.37339e-04_rb, 1.77529e-04_rb, &
+     & 2.29480e-04_rb, 2.96635e-04_rb, 3.83440e-04_rb, 4.95648e-04_rb, 6.40691e-04_rb, &
+     & 8.28180e-04_rb, 1.07054e-03_rb, 1.38381e-03_rb, 1.78876e-03_rb/)
+      kbo_mco2(:, 5) = (/ &
+     & 3.72142e-05_rb, 4.78603e-05_rb, 6.15520e-05_rb, 7.91605e-05_rb, 1.01806e-04_rb, &
+     & 1.30931e-04_rb, 1.68387e-04_rb, 2.16558e-04_rb, 2.78510e-04_rb, 3.58185e-04_rb, &
+     & 4.60653e-04_rb, 5.92435e-04_rb, 7.61915e-04_rb, 9.79881e-04_rb, 1.26020e-03_rb, &
+     & 1.62071e-03_rb, 2.08436e-03_rb, 2.68064e-03_rb, 3.44751e-03_rb/)
+      kbo_mco2(:, 6) = (/ &
+     & 7.74131e-05_rb, 9.98876e-05_rb, 1.28887e-04_rb, 1.66305e-04_rb, 2.14587e-04_rb, &
+     & 2.76886e-04_rb, 3.57272e-04_rb, 4.60994e-04_rb, 5.94831e-04_rb, 7.67521e-04_rb, &
+     & 9.90348e-04_rb, 1.27787e-03_rb, 1.64886e-03_rb, 2.12755e-03_rb, 2.74522e-03_rb, &
+     & 3.54221e-03_rb, 4.57059e-03_rb, 5.89752e-03_rb, 7.60968e-03_rb/)
+      kbo_mco2(:, 7) = (/ &
+     & 1.32294e-04_rb, 1.70977e-04_rb, 2.20973e-04_rb, 2.85587e-04_rb, 3.69095e-04_rb, &
+     & 4.77022e-04_rb, 6.16507e-04_rb, 7.96779e-04_rb, 1.02976e-03_rb, 1.33088e-03_rb, &
+     & 1.72004e-03_rb, 2.22299e-03_rb, 2.87301e-03_rb, 3.71310e-03_rb, 4.79884e-03_rb, &
+     & 6.20207e-03_rb, 8.01561e-03_rb, 1.03594e-02_rb, 1.33886e-02_rb/)
+      kbo_mco2(:, 8) = (/ &
+     & 3.59868e-05_rb, 4.63611e-05_rb, 5.97261e-05_rb, 7.69439e-05_rb, 9.91253e-05_rb, &
+     & 1.27701e-04_rb, 1.64515e-04_rb, 2.11941e-04_rb, 2.73040e-04_rb, 3.51752e-04_rb, &
+     & 4.53155e-04_rb, 5.83790e-04_rb, 7.52085e-04_rb, 9.68897e-04_rb, 1.24821e-03_rb, &
+     & 1.60804e-03_rb, 2.07161e-03_rb, 2.66882e-03_rb, 3.43818e-03_rb/)
+      kbo_mco2(:, 9) = (/ &
+     & 5.09543e-05_rb, 6.60510e-05_rb, 8.56205e-05_rb, 1.10988e-04_rb, 1.43872e-04_rb, &
+     & 1.86498e-04_rb, 2.41753e-04_rb, 3.13380e-04_rb, 4.06228e-04_rb, 5.26585e-04_rb, &
+     & 6.82601e-04_rb, 8.84842e-04_rb, 1.14700e-03_rb, 1.48684e-03_rb, 1.92735e-03_rb, &
+     & 2.49839e-03_rb, 3.23861e-03_rb, 4.19814e-03_rb, 5.44196e-03_rb/)
+      kbo_mco2(:,10) = (/ &
+     & 2.08253e-05_rb, 2.64900e-05_rb, 3.36954e-05_rb, 4.28609e-05_rb, 5.45194e-05_rb, &
+     & 6.93491e-05_rb, 8.82125e-05_rb, 1.12207e-04_rb, 1.42728e-04_rb, 1.81551e-04_rb, &
+     & 2.30935e-04_rb, 2.93751e-04_rb, 3.73653e-04_rb, 4.75290e-04_rb, 6.04572e-04_rb, &
+     & 7.69021e-04_rb, 9.78201e-04_rb, 1.24428e-03_rb, 1.58273e-03_rb/)
+      kbo_mco2(:,11) = (/ &
+     & 2.08953e-05_rb, 2.65543e-05_rb, 3.37459e-05_rb, 4.28852e-05_rb, 5.44996e-05_rb, &
+     & 6.92595e-05_rb, 8.80169e-05_rb, 1.11854e-04_rb, 1.42147e-04_rb, 1.80644e-04_rb, &
+     & 2.29568e-04_rb, 2.91741e-04_rb, 3.70752e-04_rb, 4.71161e-04_rb, 5.98764e-04_rb, &
+     & 7.60925e-04_rb, 9.67005e-04_rb, 1.22889e-03_rb, 1.56171e-03_rb/)
+      kbo_mco2(:,12) = (/ &
+     & 2.65295e-05_rb, 3.36318e-05_rb, 4.26356e-05_rb, 5.40498e-05_rb, 6.85198e-05_rb, &
+     & 8.68636e-05_rb, 1.10118e-04_rb, 1.39599e-04_rb, 1.76972e-04_rb, 2.24350e-04_rb, &
+     & 2.84412e-04_rb, 3.60553e-04_rb, 4.57079e-04_rb, 5.79446e-04_rb, 7.34572e-04_rb, &
+     & 9.31230e-04_rb, 1.18053e-03_rb, 1.49658e-03_rb, 1.89724e-03_rb/)
+      kbo_mco2(:,13) = (/ &
+     & 3.45358e-05_rb, 4.36743e-05_rb, 5.52309e-05_rb, 6.98455e-05_rb, 8.83273e-05_rb, &
+     & 1.11700e-04_rb, 1.41256e-04_rb, 1.78634e-04_rb, 2.25902e-04_rb, 2.85678e-04_rb, &
+     & 3.61271e-04_rb, 4.56867e-04_rb, 5.77758e-04_rb, 7.30639e-04_rb, 9.23973e-04_rb, &
+     & 1.16847e-03_rb, 1.47765e-03_rb, 1.86865e-03_rb, 2.36311e-03_rb/)
+      kbo_mco2(:,14) = (/ &
+     & 3.99721e-05_rb, 5.12343e-05_rb, 6.56698e-05_rb, 8.41725e-05_rb, 1.07888e-04_rb, &
+     & 1.38286e-04_rb, 1.77249e-04_rb, 2.27190e-04_rb, 2.91201e-04_rb, 3.73248e-04_rb, &
+     & 4.78412e-04_rb, 6.13207e-04_rb, 7.85980e-04_rb, 1.00743e-03_rb, 1.29128e-03_rb, &
+     & 1.65510e-03_rb, 2.12144e-03_rb, 2.71916e-03_rb, 3.48529e-03_rb/)
+      kbo_mco2(:,15) = (/ &
+     & 8.51533e-06_rb, 1.23021e-05_rb, 1.77730e-05_rb, 2.56767e-05_rb, 3.70953e-05_rb, &
+     & 5.35918e-05_rb, 7.74243e-05_rb, 1.11855e-04_rb, 1.61598e-04_rb, 2.33461e-04_rb, &
+     & 3.37283e-04_rb, 4.87275e-04_rb, 7.03968e-04_rb, 1.01703e-03_rb, 1.46930e-03_rb, &
+     & 2.12271e-03_rb, 3.06670e-03_rb, 4.43047e-03_rb, 6.40072e-03_rb/)
+      kbo_mco2(:,16) = (/ &
+     & 2.93050e-06_rb, 3.65298e-06_rb, 4.55358e-06_rb, 5.67622e-06_rb, 7.07564e-06_rb, &
+     & 8.82006e-06_rb, 1.09945e-05_rb, 1.37051e-05_rb, 1.70840e-05_rb, 2.12959e-05_rb, &
+     & 2.65461e-05_rb, 3.30908e-05_rb, 4.12490e-05_rb, 5.14185e-05_rb, 6.40952e-05_rb, &
+     & 7.98972e-05_rb, 9.95951e-05_rb, 1.24149e-04_rb, 1.54757e-04_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296_rb,260_rb,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &2.0677e-07_rb,2.0363e-07_rb,2.0583e-07_rb,2.0547e-07_rb,2.0267e-07_rb,2.0154e-07_rb, &
+     &2.0190e-07_rb,2.0103e-07_rb,1.9869e-07_rb,1.9663e-07_rb,1.9701e-07_rb,2.0103e-07_rb, &
+     &2.0527e-07_rb,2.0206e-07_rb,2.0364e-07_rb,2.0364e-07_rb/)
+      forrefo(2,:) = (/ &
+     &2.2427e-07_rb,2.1489e-07_rb,2.0453e-07_rb,1.9710e-07_rb,1.9650e-07_rb,1.9738e-07_rb, &
+     &1.9767e-07_rb,1.9769e-07_rb,1.9940e-07_rb,1.9846e-07_rb,1.9898e-07_rb,1.9853e-07_rb, &
+     &2.0000e-07_rb,2.0517e-07_rb,2.0482e-07_rb,2.0482e-07_rb/)
+      forrefo(3,:) = (/ &
+     &2.2672e-07_rb,2.1706e-07_rb,2.0571e-07_rb,1.9747e-07_rb,1.9706e-07_rb,1.9698e-07_rb, &
+     &1.9781e-07_rb,1.9774e-07_rb,1.9724e-07_rb,1.9714e-07_rb,1.9751e-07_rb,1.9758e-07_rb, &
+     &1.9840e-07_rb,1.9968e-07_rb,1.9931e-07_rb,1.9880e-07_rb/)
+      forrefo(4,:) = (/ &
+     &2.2191e-07_rb,2.0899e-07_rb,2.0265e-07_rb,2.0101e-07_rb,2.0034e-07_rb,2.0021e-07_rb, &
+     &1.9987e-07_rb,1.9978e-07_rb,1.9902e-07_rb,1.9742e-07_rb,1.9672e-07_rb,1.9615e-07_rb, &
+     &1.9576e-07_rb,1.9540e-07_rb,1.9588e-07_rb,1.9590e-07_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 5.18832e-02_rb, 4.28690e-02_rb, 3.54210e-02_rb, 2.92670e-02_rb, 2.41822e-02_rb, &
+     & 1.99808e-02_rb, 1.65093e-02_rb, 1.36410e-02_rb, 1.12710e-02_rb, 9.31280e-03_rb/)
+      selfrefo(:, 2) = (/ &
+     & 4.36030e-02_rb, 3.78379e-02_rb, 3.28350e-02_rb, 2.84936e-02_rb, 2.47262e-02_rb, &
+     & 2.14569e-02_rb, 1.86199e-02_rb, 1.61580e-02_rb, 1.40216e-02_rb, 1.21677e-02_rb/)
+      selfrefo(:, 3) = (/ &
+     & 4.26492e-02_rb, 3.71443e-02_rb, 3.23500e-02_rb, 2.81745e-02_rb, 2.45379e-02_rb, &
+     & 2.13707e-02_rb, 1.86124e-02_rb, 1.62100e-02_rb, 1.41177e-02_rb, 1.22955e-02_rb/)
+      selfrefo(:, 4) = (/ &
+     & 4.03591e-02_rb, 3.54614e-02_rb, 3.11580e-02_rb, 2.73769e-02_rb, 2.40546e-02_rb, &
+     & 2.11355e-02_rb, 1.85706e-02_rb, 1.63170e-02_rb, 1.43369e-02_rb, 1.25970e-02_rb/)
+      selfrefo(:, 5) = (/ &
+     & 3.94512e-02_rb, 3.46232e-02_rb, 3.03860e-02_rb, 2.66674e-02_rb, 2.34038e-02_rb, &
+     & 2.05397e-02_rb, 1.80260e-02_rb, 1.58200e-02_rb, 1.38839e-02_rb, 1.21848e-02_rb/)
+      selfrefo(:, 6) = (/ &
+     & 3.90567e-02_rb, 3.40694e-02_rb, 2.97190e-02_rb, 2.59241e-02_rb, 2.26138e-02_rb, &
+     & 1.97261e-02_rb, 1.72072e-02_rb, 1.50100e-02_rb, 1.30933e-02_rb, 1.14214e-02_rb/)
+      selfrefo(:, 7) = (/ &
+     & 3.85397e-02_rb, 3.36462e-02_rb, 2.93740e-02_rb, 2.56443e-02_rb, 2.23881e-02_rb, &
+     & 1.95454e-02_rb, 1.70636e-02_rb, 1.48970e-02_rb, 1.30055e-02_rb, 1.13541e-02_rb/)
+      selfrefo(:, 8) = (/ &
+     & 3.79692e-02_rb, 3.31360e-02_rb, 2.89180e-02_rb, 2.52369e-02_rb, 2.20245e-02_rb, &
+     & 1.92209e-02_rb, 1.67742e-02_rb, 1.46390e-02_rb, 1.27756e-02_rb, 1.11493e-02_rb/)
+      selfrefo(:, 9) = (/ &
+     & 3.68819e-02_rb, 3.22827e-02_rb, 2.82570e-02_rb, 2.47333e-02_rb, 2.16490e-02_rb, &
+     & 1.89494e-02_rb, 1.65863e-02_rb, 1.45180e-02_rb, 1.27076e-02_rb, 1.11229e-02_rb/)
+      selfrefo(:,10) = (/ &
+     & 3.65157e-02_rb, 3.20121e-02_rb, 2.80640e-02_rb, 2.46028e-02_rb, 2.15685e-02_rb, &
+     & 1.89084e-02_rb, 1.65764e-02_rb, 1.45320e-02_rb, 1.27397e-02_rb, 1.11685e-02_rb/)
+      selfrefo(:,11) = (/ &
+     & 3.59917e-02_rb, 3.16727e-02_rb, 2.78720e-02_rb, 2.45274e-02_rb, 2.15841e-02_rb, &
+     & 1.89940e-02_rb, 1.67148e-02_rb, 1.47090e-02_rb, 1.29439e-02_rb, 1.13907e-02_rb/)
+      selfrefo(:,12) = (/ &
+     & 3.66963e-02_rb, 3.20483e-02_rb, 2.79890e-02_rb, 2.44439e-02_rb, 2.13478e-02_rb, &
+     & 1.86438e-02_rb, 1.62824e-02_rb, 1.42200e-02_rb, 1.24189e-02_rb, 1.08459e-02_rb/)
+      selfrefo(:,13) = (/ &
+     & 3.66422e-02_rb, 3.19026e-02_rb, 2.77760e-02_rb, 2.41832e-02_rb, 2.10551e-02_rb, &
+     & 1.83317e-02_rb, 1.59605e-02_rb, 1.38960e-02_rb, 1.20986e-02_rb, 1.05336e-02_rb/)
+      selfrefo(:,14) = (/ &
+     & 3.81260e-02_rb, 3.29322e-02_rb, 2.84460e-02_rb, 2.45709e-02_rb, 2.12237e-02_rb, &
+     & 1.83325e-02_rb, 1.58352e-02_rb, 1.36780e-02_rb, 1.18147e-02_rb, 1.02052e-02_rb/)
+      selfrefo(:,15) = (/ &
+     & 3.51264e-02_rb, 3.05081e-02_rb, 2.64970e-02_rb, 2.30133e-02_rb, 1.99876e-02_rb, &
+     & 1.73597e-02_rb, 1.50773e-02_rb, 1.30950e-02_rb, 1.13733e-02_rb, 9.87800e-03_rb/)
+      selfrefo(:,16) = (/ &
+     & 3.51264e-02_rb, 3.05081e-02_rb, 2.64970e-02_rb, 2.30133e-02_rb, 1.99876e-02_rb, &
+     & 1.73597e-02_rb, 1.50773e-02_rb, 1.30950e-02_rb, 1.13733e-02_rb, 9.87800e-03_rb/)
+
+      end subroutine lw_kgb07
+
+! **************************************************************************
+      subroutine lw_kgb08
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg08, only : fracrefao, fracrefbo, kao, kao_mco2, kao_mn2o, &
+                            kao_mo3, kbo, kbo_mco2, kbo_mn2o, selfrefo, forrefo, &
+                            cfc12o, cfc22adjo
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P=473.4280 mb, T = 259.83 K
+      fracrefao(:) = (/ &
+        1.6004e-01_rb,1.5437e-01_rb,1.4502e-01_rb,1.3084e-01_rb,1.1523e-01_rb,9.7743e-02_rb, &
+        8.0376e-02_rb,6.0261e-02_rb,4.1111e-02_rb,4.4772e-03_rb,3.6511e-03_rb,2.9154e-03_rb, &
+        2.1184e-03_rb,1.3048e-03_rb,4.6637e-04_rb,6.5624e-05_rb/)
+
+! Planck fraction mapping level : P=95.5835 mb, T= 215.7 K
+      fracrefbo(:) = (/ &
+        1.4987e-01_rb,1.4665e-01_rb,1.4154e-01_rb,1.3200e-01_rb,1.1902e-01_rb,1.0352e-01_rb, &
+        8.4939e-02_rb,6.4105e-02_rb,4.3190e-02_rb,4.5129e-03_rb,3.7656e-03_rb,2.8733e-03_rb, &
+        2.0947e-03_rb,1.3201e-03_rb,5.1832e-04_rb,7.7473e-05_rb/)
+
+! Minor gas mapping level:
+!     lower - co2, p = 1053.63 mb, t = 294.2 k
+!     lower - o3,  p = 317.348 mb, t = 240.77 k
+!     lower - n2o, p = 706.2720 mb, t= 278.94 k
+!     lower - cfc12,cfc11
+!     upper - co2, p = 35.1632 mb, t = 223.28 k
+!     upper - n2o, p = 8.716e-2 mb, t = 226.03 k
+
+      cfc12o(:) = (/ &
+        85.4027_rb, 89.4696_rb, 74.0959_rb, 67.7480_rb, &
+        61.2444_rb, 59.9073_rb, 60.8296_rb, 63.0998_rb, &
+        59.6110_rb, 64.0735_rb, 57.2622_rb, 58.9721_rb, &
+        43.5505_rb, 26.1192_rb, 32.7023_rb, 32.8667_rb/)
+! Original CFC22 is multiplied by 1.485 to account for the 780-850 cm-1 
+! and 1290-1335 cm-1 bands.
+      cfc22adjo(:) = (/ &
+        135.335_rb, 89.6642_rb, 76.2375_rb, 65.9748_rb, &
+        63.1164_rb, 60.2935_rb, 64.0299_rb, 75.4264_rb, &
+        51.3018_rb, 7.07911_rb, 5.86928_rb, 0.398693_rb, &
+        2.82885_rb, 9.12751_rb, 6.28271_rb, 0._rb/)
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     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 corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1) = (/ &
+     &1.4664e-05_rb,1.7114e-05_rb,1.8876e-05_rb,2.2301e-05_rb,2.6622e-05_rb/)
+      kao(:, 2, 1) = (/ &
+     &1.0571e-05_rb,1.1718e-05_rb,1.4060e-05_rb,1.7193e-05_rb,2.1557e-05_rb/)
+      kao(:, 3, 1) = (/ &
+     &6.6138e-06_rb,8.1523e-06_rb,1.0695e-05_rb,1.3782e-05_rb,1.7449e-05_rb/)
+      kao(:, 4, 1) = (/ &
+     &5.1390e-06_rb,7.0055e-06_rb,9.4447e-06_rb,1.2362e-05_rb,1.5431e-05_rb/)
+      kao(:, 5, 1) = (/ &
+     &4.7765e-06_rb,6.4140e-06_rb,8.4242e-06_rb,1.0772e-05_rb,1.3788e-05_rb/)
+      kao(:, 6, 1) = (/ &
+     &4.4818e-06_rb,6.1945e-06_rb,8.3186e-06_rb,1.0638e-05_rb,1.3072e-05_rb/)
+      kao(:, 7, 1) = (/ &
+     &4.1781e-06_rb,5.8651e-06_rb,8.2034e-06_rb,1.0966e-05_rb,1.3592e-05_rb/)
+      kao(:, 8, 1) = (/ &
+     &4.6559e-06_rb,6.5570e-06_rb,8.8606e-06_rb,1.1636e-05_rb,1.4449e-05_rb/)
+      kao(:, 9, 1) = (/ &
+     &6.3964e-06_rb,9.3461e-06_rb,1.3202e-05_rb,1.7140e-05_rb,2.2124e-05_rb/)
+      kao(:,10, 1) = (/ &
+     &1.0453e-05_rb,1.6266e-05_rb,2.2571e-05_rb,3.2675e-05_rb,4.3832e-05_rb/)
+      kao(:,11, 1) = (/ &
+     &1.9225e-05_rb,2.5219e-05_rb,3.3439e-05_rb,4.2567e-05_rb,5.0999e-05_rb/)
+      kao(:,12, 1) = (/ &
+     &1.8581e-05_rb,2.6464e-05_rb,3.4892e-05_rb,4.5782e-05_rb,5.8008e-05_rb/)
+      kao(:,13, 1) = (/ &
+     &2.3252e-05_rb,2.6601e-05_rb,3.1497e-05_rb,4.1728e-05_rb,5.3564e-05_rb/)
+      kao(:, 1, 2) = (/ &
+     &2.4622e-05_rb,2.2121e-05_rb,2.5151e-05_rb,3.1972e-05_rb,4.1114e-05_rb/)
+      kao(:, 2, 2) = (/ &
+     &1.5738e-05_rb,1.6913e-05_rb,2.0782e-05_rb,2.6880e-05_rb,3.4084e-05_rb/)
+      kao(:, 3, 2) = (/ &
+     &9.8655e-06_rb,1.2753e-05_rb,1.6558e-05_rb,2.1755e-05_rb,2.8126e-05_rb/)
+      kao(:, 4, 2) = (/ &
+     &7.9265e-06_rb,1.0229e-05_rb,1.3524e-05_rb,1.7603e-05_rb,2.3192e-05_rb/)
+      kao(:, 5, 2) = (/ &
+     &7.0537e-06_rb,9.6733e-06_rb,1.2570e-05_rb,1.6079e-05_rb,2.0384e-05_rb/)
+      kao(:, 6, 2) = (/ &
+     &6.5277e-06_rb,9.1084e-06_rb,1.2443e-05_rb,1.5914e-05_rb,2.0339e-05_rb/)
+      kao(:, 7, 2) = (/ &
+     &7.4442e-06_rb,1.0146e-05_rb,1.2791e-05_rb,1.6212e-05_rb,2.1044e-05_rb/)
+      kao(:, 8, 2) = (/ &
+     &7.4223e-06_rb,1.0854e-05_rb,1.4643e-05_rb,1.9376e-05_rb,2.5625e-05_rb/)
+      kao(:, 9, 2) = (/ &
+     &1.4157e-05_rb,1.8510e-05_rb,2.5064e-05_rb,3.4631e-05_rb,4.4655e-05_rb/)
+      kao(:,10, 2) = (/ &
+     &3.4785e-05_rb,4.4053e-05_rb,5.4155e-05_rb,6.0764e-05_rb,5.9887e-05_rb/)
+      kao(:,11, 2) = (/ &
+     &4.4199e-05_rb,5.6024e-05_rb,6.6252e-05_rb,8.3322e-05_rb,1.0437e-04_rb/)
+      kao(:,12, 2) = (/ &
+     &4.8012e-05_rb,6.2560e-05_rb,7.6674e-05_rb,8.6164e-05_rb,1.0081e-04_rb/)
+      kao(:,13, 2) = (/ &
+     &3.9220e-05_rb,5.8614e-05_rb,7.6090e-05_rb,8.9710e-05_rb,9.6705e-05_rb/)
+      kao(:, 1, 3) = (/ &
+     &2.7517e-05_rb,3.2252e-05_rb,4.5774e-05_rb,5.9187e-05_rb,7.3901e-05_rb/)
+      kao(:, 2, 3) = (/ &
+     &1.9414e-05_rb,2.5349e-05_rb,3.4494e-05_rb,4.4078e-05_rb,5.4475e-05_rb/)
+      kao(:, 3, 3) = (/ &
+     &1.4431e-05_rb,1.9862e-05_rb,2.6815e-05_rb,3.5045e-05_rb,4.4510e-05_rb/)
+      kao(:, 4, 3) = (/ &
+     &1.1163e-05_rb,1.5886e-05_rb,2.1047e-05_rb,2.7352e-05_rb,3.5151e-05_rb/)
+      kao(:, 5, 3) = (/ &
+     &1.0004e-05_rb,1.3946e-05_rb,1.9070e-05_rb,2.4940e-05_rb,3.2122e-05_rb/)
+      kao(:, 6, 3) = (/ &
+     &9.8796e-06_rb,1.2389e-05_rb,1.6574e-05_rb,2.2677e-05_rb,2.9114e-05_rb/)
+      kao(:, 7, 3) = (/ &
+     &9.6705e-06_rb,1.3203e-05_rb,1.8009e-05_rb,2.4248e-05_rb,2.9926e-05_rb/)
+      kao(:, 8, 3) = (/ &
+     &1.2684e-05_rb,1.5798e-05_rb,2.0751e-05_rb,2.7135e-05_rb,3.4302e-05_rb/)
+      kao(:, 9, 3) = (/ &
+     &2.3748e-05_rb,2.8117e-05_rb,3.3728e-05_rb,4.1366e-05_rb,5.3787e-05_rb/)
+      kao(:,10, 3) = (/ &
+     &4.9449e-05_rb,6.0387e-05_rb,8.1388e-05_rb,1.0134e-04_rb,1.3311e-04_rb/)
+      kao(:,11, 3) = (/ &
+     &6.5933e-05_rb,8.9755e-05_rb,1.2191e-04_rb,1.3795e-04_rb,1.5355e-04_rb/)
+      kao(:,12, 3) = (/ &
+     &6.2437e-05_rb,8.0247e-05_rb,1.0990e-04_rb,1.3683e-04_rb,1.6418e-04_rb/)
+      kao(:,13, 3) = (/ &
+     &5.9989e-05_rb,6.7831e-05_rb,9.4332e-05_rb,1.1542e-04_rb,1.5040e-04_rb/)
+      kao(:, 1, 4) = (/ &
+     &3.6489e-05_rb,5.9568e-05_rb,7.8043e-05_rb,9.8599e-05_rb,1.2261e-04_rb/)
+      kao(:, 2, 4) = (/ &
+     &3.0751e-05_rb,4.5700e-05_rb,5.9720e-05_rb,7.6230e-05_rb,9.5698e-05_rb/)
+      kao(:, 3, 4) = (/ &
+     &2.6862e-05_rb,3.6448e-05_rb,4.6703e-05_rb,5.7936e-05_rb,7.1216e-05_rb/)
+      kao(:, 4, 4) = (/ &
+     &2.0754e-05_rb,2.7900e-05_rb,3.6677e-05_rb,4.8008e-05_rb,6.1630e-05_rb/)
+      kao(:, 5, 4) = (/ &
+     &1.6362e-05_rb,2.1862e-05_rb,2.9666e-05_rb,3.8981e-05_rb,5.0305e-05_rb/)
+      kao(:, 6, 4) = (/ &
+     &1.4991e-05_rb,2.0957e-05_rb,2.6223e-05_rb,3.2254e-05_rb,4.2632e-05_rb/)
+      kao(:, 7, 4) = (/ &
+     &1.3833e-05_rb,1.9399e-05_rb,2.5656e-05_rb,3.2001e-05_rb,4.1685e-05_rb/)
+      kao(:, 8, 4) = (/ &
+     &1.6855e-05_rb,2.2852e-05_rb,3.0265e-05_rb,3.5778e-05_rb,4.6073e-05_rb/)
+      kao(:, 9, 4) = (/ &
+     &3.3370e-05_rb,4.7904e-05_rb,5.8243e-05_rb,6.4094e-05_rb,7.6700e-05_rb/)
+      kao(:,10, 4) = (/ &
+     &6.8238e-05_rb,1.0340e-04_rb,1.2739e-04_rb,1.5464e-04_rb,1.7523e-04_rb/)
+      kao(:,11, 4) = (/ &
+     &6.1230e-05_rb,9.6227e-05_rb,1.3743e-04_rb,1.9846e-04_rb,2.3838e-04_rb/)
+      kao(:,12, 4) = (/ &
+     &6.8823e-05_rb,1.0715e-04_rb,1.3058e-04_rb,1.9049e-04_rb,2.2996e-04_rb/)
+      kao(:,13, 4) = (/ &
+     &6.5444e-05_rb,1.1659e-04_rb,1.2685e-04_rb,1.7368e-04_rb,2.0128e-04_rb/)
+      kao(:, 1, 5) = (/ &
+     &7.8999e-05_rb,1.0665e-04_rb,1.3776e-04_rb,1.7432e-04_rb,2.1687e-04_rb/)
+      kao(:, 2, 5) = (/ &
+     &6.1797e-05_rb,8.3347e-05_rb,1.0862e-04_rb,1.3836e-04_rb,1.7490e-04_rb/)
+      kao(:, 3, 5) = (/ &
+     &4.7325e-05_rb,6.2800e-05_rb,8.1194e-05_rb,1.0315e-04_rb,1.3026e-04_rb/)
+      kao(:, 4, 5) = (/ &
+     &3.8433e-05_rb,5.0865e-05_rb,6.5549e-05_rb,8.2585e-05_rb,1.0247e-04_rb/)
+      kao(:, 5, 5) = (/ &
+     &3.0177e-05_rb,3.9082e-05_rb,4.9288e-05_rb,6.5674e-05_rb,8.5494e-05_rb/)
+      kao(:, 6, 5) = (/ &
+     &2.4712e-05_rb,3.2374e-05_rb,4.1224e-05_rb,5.5035e-05_rb,7.0157e-05_rb/)
+      kao(:, 7, 5) = (/ &
+     &2.2530e-05_rb,2.6200e-05_rb,3.5121e-05_rb,4.6306e-05_rb,5.9652e-05_rb/)
+      kao(:, 8, 5) = (/ &
+     &2.8297e-05_rb,3.6551e-05_rb,4.4329e-05_rb,5.9550e-05_rb,7.1792e-05_rb/)
+      kao(:, 9, 5) = (/ &
+     &5.6002e-05_rb,7.4631e-05_rb,8.8607e-05_rb,1.1720e-04_rb,1.2997e-04_rb/)
+      kao(:,10, 5) = (/ &
+     &8.1020e-05_rb,1.1580e-04_rb,1.6197e-04_rb,2.3825e-04_rb,2.8441e-04_rb/)
+      kao(:,11, 5) = (/ &
+     &9.6146e-05_rb,1.4644e-04_rb,1.7805e-04_rb,2.2438e-04_rb,3.1753e-04_rb/)
+      kao(:,12, 5) = (/ &
+     &9.5441e-05_rb,1.4982e-04_rb,2.4222e-04_rb,2.7134e-04_rb,3.3168e-04_rb/)
+      kao(:,13, 5) = (/ &
+     &9.5058e-05_rb,1.4349e-04_rb,2.4835e-04_rb,2.9526e-04_rb,3.7011e-04_rb/)
+      kao(:, 1, 6) = (/ &
+     &1.5625e-04_rb,2.0681e-04_rb,2.6299e-04_rb,3.2669e-04_rb,4.0038e-04_rb/)
+      kao(:, 2, 6) = (/ &
+     &1.1702e-04_rb,1.5581e-04_rb,2.0084e-04_rb,2.5419e-04_rb,3.1669e-04_rb/)
+      kao(:, 3, 6) = (/ &
+     &8.6159e-05_rb,1.1329e-04_rb,1.4769e-04_rb,1.9151e-04_rb,2.4537e-04_rb/)
+      kao(:, 4, 6) = (/ &
+     &7.1655e-05_rb,9.4348e-05_rb,1.2251e-04_rb,1.5312e-04_rb,1.8840e-04_rb/)
+      kao(:, 5, 6) = (/ &
+     &5.9776e-05_rb,8.0388e-05_rb,1.0504e-04_rb,1.3009e-04_rb,1.5686e-04_rb/)
+      kao(:, 6, 6) = (/ &
+     &4.1587e-05_rb,5.6800e-05_rb,7.7481e-05_rb,9.9930e-05_rb,1.3028e-04_rb/)
+      kao(:, 7, 6) = (/ &
+     &3.7625e-05_rb,5.2950e-05_rb,6.5572e-05_rb,8.3943e-05_rb,1.0947e-04_rb/)
+      kao(:, 8, 6) = (/ &
+     &4.0934e-05_rb,5.1706e-05_rb,6.6726e-05_rb,8.2858e-05_rb,1.0389e-04_rb/)
+      kao(:, 9, 6) = (/ &
+     &8.3177e-05_rb,1.0693e-04_rb,1.2771e-04_rb,1.5344e-04_rb,1.9338e-04_rb/)
+      kao(:,10, 6) = (/ &
+     &1.2590e-04_rb,1.6860e-04_rb,2.4332e-04_rb,2.8123e-04_rb,4.3002e-04_rb/)
+      kao(:,11, 6) = (/ &
+     &1.5778e-04_rb,2.1103e-04_rb,2.9773e-04_rb,4.5434e-04_rb,5.2006e-04_rb/)
+      kao(:,12, 6) = (/ &
+     &1.7734e-04_rb,2.3169e-04_rb,2.6921e-04_rb,4.5377e-04_rb,6.4453e-04_rb/)
+      kao(:,13, 6) = (/ &
+     &1.7874e-04_rb,2.2968e-04_rb,2.8292e-04_rb,4.5303e-04_rb,6.1897e-04_rb/)
+      kao(:, 1, 7) = (/ &
+     &3.7144e-04_rb,4.7830e-04_rb,6.0203e-04_rb,7.4238e-04_rb,8.9847e-04_rb/)
+      kao(:, 2, 7) = (/ &
+     &2.8002e-04_rb,3.6431e-04_rb,4.6140e-04_rb,5.7047e-04_rb,6.9195e-04_rb/)
+      kao(:, 3, 7) = (/ &
+     &1.8338e-04_rb,2.5018e-04_rb,3.2929e-04_rb,4.2096e-04_rb,5.2583e-04_rb/)
+      kao(:, 4, 7) = (/ &
+     &1.3365e-04_rb,1.7565e-04_rb,2.2370e-04_rb,2.9770e-04_rb,3.9171e-04_rb/)
+      kao(:, 5, 7) = (/ &
+     &1.1609e-04_rb,1.5410e-04_rb,1.9723e-04_rb,2.4620e-04_rb,3.0830e-04_rb/)
+      kao(:, 6, 7) = (/ &
+     &1.0480e-04_rb,1.3862e-04_rb,1.7991e-04_rb,2.2372e-04_rb,2.7406e-04_rb/)
+      kao(:, 7, 7) = (/ &
+     &8.7767e-05_rb,1.1689e-04_rb,1.5270e-04_rb,1.9631e-04_rb,2.3773e-04_rb/)
+      kao(:, 8, 7) = (/ &
+     &9.8366e-05_rb,1.1738e-04_rb,1.4725e-04_rb,1.8494e-04_rb,2.3601e-04_rb/)
+      kao(:, 9, 7) = (/ &
+     &1.5443e-04_rb,1.9009e-04_rb,2.4404e-04_rb,2.8078e-04_rb,3.3602e-04_rb/)
+      kao(:,10, 7) = (/ &
+     &1.5274e-04_rb,2.6878e-04_rb,3.7659e-04_rb,5.3377e-04_rb,5.6306e-04_rb/)
+      kao(:,11, 7) = (/ &
+     &2.0214e-04_rb,2.6794e-04_rb,4.2457e-04_rb,5.7376e-04_rb,8.8285e-04_rb/)
+      kao(:,12, 7) = (/ &
+     &2.5054e-04_rb,3.1232e-04_rb,4.4996e-04_rb,6.0765e-04_rb,8.8689e-04_rb/)
+      kao(:,13, 7) = (/ &
+     &2.7318e-04_rb,3.6929e-04_rb,4.5362e-04_rb,6.1364e-04_rb,9.2141e-04_rb/)
+      kao(:, 1, 8) = (/ &
+     &1.1751e-03_rb,1.5113e-03_rb,1.8892e-03_rb,2.3109e-03_rb,2.7776e-03_rb/)
+      kao(:, 2, 8) = (/ &
+     &8.9844e-04_rb,1.1675e-03_rb,1.4748e-03_rb,1.8223e-03_rb,2.2105e-03_rb/)
+      kao(:, 3, 8) = (/ &
+     &6.3916e-04_rb,8.4337e-04_rb,1.0777e-03_rb,1.3420e-03_rb,1.6361e-03_rb/)
+      kao(:, 4, 8) = (/ &
+     &3.9704e-04_rb,5.5491e-04_rb,7.4493e-04_rb,9.5633e-04_rb,1.1972e-03_rb/)
+      kao(:, 5, 8) = (/ &
+     &2.8104e-04_rb,3.5275e-04_rb,4.8572e-04_rb,6.7373e-04_rb,9.0464e-04_rb/)
+      kao(:, 6, 8) = (/ &
+     &2.6538e-04_rb,3.4221e-04_rb,4.3816e-04_rb,5.5889e-04_rb,6.9563e-04_rb/)
+      kao(:, 7, 8) = (/ &
+     &2.6802e-04_rb,3.3443e-04_rb,4.3228e-04_rb,5.4299e-04_rb,6.7937e-04_rb/)
+      kao(:, 8, 8) = (/ &
+     &2.6587e-04_rb,3.6538e-04_rb,4.4243e-04_rb,5.3612e-04_rb,6.5384e-04_rb/)
+      kao(:, 9, 8) = (/ &
+     &3.1669e-04_rb,4.3173e-04_rb,5.9018e-04_rb,7.8164e-04_rb,9.3453e-04_rb/)
+      kao(:,10, 8) = (/ &
+     &2.7923e-04_rb,3.5605e-04_rb,4.7230e-04_rb,7.5710e-04_rb,1.3303e-03_rb/)
+      kao(:,11, 8) = (/ &
+     &3.9189e-04_rb,4.5454e-04_rb,6.3718e-04_rb,5.9520e-04_rb,8.3511e-04_rb/)
+      kao(:,12, 8) = (/ &
+     &2.6981e-04_rb,5.3035e-04_rb,6.9787e-04_rb,8.5120e-04_rb,7.8888e-04_rb/)
+      kao(:,13, 8) = (/ &
+     &2.5533e-04_rb,5.3884e-04_rb,7.3128e-04_rb,1.0359e-03_rb,9.5286e-04_rb/)
+      kao(:, 1, 9) = (/ &
+     &4.1658e-03_rb,5.4654e-03_rb,6.9658e-03_rb,8.6722e-03_rb,1.0572e-02_rb/)
+      kao(:, 2, 9) = (/ &
+     &3.6223e-03_rb,4.7934e-03_rb,6.1539e-03_rb,7.6963e-03_rb,9.3961e-03_rb/)
+      kao(:, 3, 9) = (/ &
+     &2.8899e-03_rb,3.8874e-03_rb,5.0544e-03_rb,6.3815e-03_rb,7.8638e-03_rb/)
+      kao(:, 4, 9) = (/ &
+     &2.1989e-03_rb,3.0197e-03_rb,3.9971e-03_rb,5.1085e-03_rb,6.3356e-03_rb/)
+      kao(:, 5, 9) = (/ &
+     &1.5192e-03_rb,2.2278e-03_rb,3.0194e-03_rb,3.9009e-03_rb,4.8746e-03_rb/)
+      kao(:, 6, 9) = (/ &
+     &8.7921e-04_rb,1.3751e-03_rb,1.9853e-03_rb,2.7076e-03_rb,3.5697e-03_rb/)
+      kao(:, 7, 9) = (/ &
+     &8.1169e-04_rb,1.0620e-03_rb,1.3025e-03_rb,1.8213e-03_rb,2.5733e-03_rb/)
+      kao(:, 8, 9) = (/ &
+     &8.9592e-04_rb,1.1349e-03_rb,1.5068e-03_rb,1.9574e-03_rb,2.3526e-03_rb/)
+      kao(:, 9, 9) = (/ &
+     &6.4937e-04_rb,9.7395e-04_rb,1.5824e-03_rb,2.3319e-03_rb,3.1640e-03_rb/)
+      kao(:,10, 9) = (/ &
+     &5.2173e-04_rb,1.2542e-03_rb,1.3511e-03_rb,1.8295e-03_rb,2.2102e-03_rb/)
+      kao(:,11, 9) = (/ &
+     &3.8299e-05_rb,7.6837e-04_rb,1.6073e-03_rb,2.1707e-03_rb,2.6859e-03_rb/)
+      kao(:,12, 9) = (/ &
+     &5.7389e-05_rb,4.8395e-04_rb,1.3815e-03_rb,2.5956e-03_rb,2.8856e-03_rb/)
+      kao(:,13, 9) = (/ &
+     &6.6437e-05_rb,4.1020e-04_rb,1.3561e-03_rb,2.3769e-03_rb,2.6400e-03_rb/)
+      kao(:, 1,10) = (/ &
+     &8.5531e-03_rb,1.1311e-02_rb,1.4946e-02_rb,1.9199e-02_rb,2.4070e-02_rb/)
+      kao(:, 2,10) = (/ &
+     &7.9512e-03_rb,1.0579e-02_rb,1.3947e-02_rb,1.7937e-02_rb,2.2682e-02_rb/)
+      kao(:, 3,10) = (/ &
+     &6.8586e-03_rb,9.3196e-03_rb,1.2459e-02_rb,1.6108e-02_rb,2.0278e-02_rb/)
+      kao(:, 4,10) = (/ &
+     &5.7104e-03_rb,7.9133e-03_rb,1.0642e-02_rb,1.3936e-02_rb,1.7830e-02_rb/)
+      kao(:, 5,10) = (/ &
+     &4.5965e-03_rb,6.4891e-03_rb,8.9433e-03_rb,1.1923e-02_rb,1.5372e-02_rb/)
+      kao(:, 6,10) = (/ &
+     &3.5770e-03_rb,5.1433e-03_rb,7.2049e-03_rb,9.7750e-03_rb,1.2529e-02_rb/)
+      kao(:, 7,10) = (/ &
+     &1.4544e-03_rb,1.6129e-03_rb,4.3574e-03_rb,7.0808e-03_rb,9.3333e-03_rb/)
+      kao(:, 8,10) = (/ &
+     &1.6681e-03_rb,2.3313e-03_rb,2.9075e-03_rb,3.3382e-03_rb,4.3787e-03_rb/)
+      kao(:, 9,10) = (/ &
+     &8.5765e-04_rb,1.7252e-03_rb,1.7039e-03_rb,3.3311e-03_rb,4.8997e-03_rb/)
+      kao(:,10,10) = (/ &
+     &2.2034e-05_rb,3.2730e-05_rb,2.9477e-03_rb,2.5954e-03_rb,5.2191e-03_rb/)
+      kao(:,11,10) = (/ &
+     &1.5700e-05_rb,2.2697e-05_rb,3.1811e-05_rb,9.1022e-03_rb,5.0873e-03_rb/)
+      kao(:,12,10) = (/ &
+     &1.1747e-05_rb,1.7581e-05_rb,2.4222e-05_rb,3.4764e-05_rb,8.4666e-03_rb/)
+      kao(:,13,10) = (/ &
+     &8.0435e-06_rb,1.2386e-05_rb,1.8547e-05_rb,2.6164e-05_rb,8.2788e-03_rb/)
+      kao(:, 1,11) = (/ &
+     &1.1747e-02_rb,1.5703e-02_rb,2.0198e-02_rb,2.5614e-02_rb,3.2111e-02_rb/)
+      kao(:, 2,11) = (/ &
+     &1.0674e-02_rb,1.4371e-02_rb,1.8733e-02_rb,2.4132e-02_rb,3.0707e-02_rb/)
+      kao(:, 3,11) = (/ &
+     &9.1890e-03_rb,1.2390e-02_rb,1.6367e-02_rb,2.1591e-02_rb,2.7893e-02_rb/)
+      kao(:, 4,11) = (/ &
+     &7.8825e-03_rb,1.0755e-02_rb,1.4391e-02_rb,1.9071e-02_rb,2.4702e-02_rb/)
+      kao(:, 5,11) = (/ &
+     &6.5907e-03_rb,9.1636e-03_rb,1.2468e-02_rb,1.6782e-02_rb,2.1901e-02_rb/)
+      kao(:, 6,11) = (/ &
+     &5.2625e-03_rb,7.5549e-03_rb,1.0521e-02_rb,1.4321e-02_rb,1.8906e-02_rb/)
+      kao(:, 7,11) = (/ &
+     &1.3421e-03_rb,5.0016e-03_rb,8.2742e-03_rb,1.0825e-02_rb,1.4096e-02_rb/)
+      kao(:, 8,11) = (/ &
+     &1.1288e-03_rb,2.7904e-03_rb,2.9048e-03_rb,3.8915e-03_rb,1.0764e-02_rb/)
+      kao(:, 9,11) = (/ &
+     &1.1212e-03_rb,3.3992e-03_rb,2.3130e-03_rb,2.5518e-03_rb,6.4495e-03_rb/)
+      kao(:,10,11) = (/ &
+     &2.4789e-05_rb,3.8028e-05_rb,7.9034e-03_rb,4.9082e-03_rb,4.7487e-03_rb/)
+      kao(:,11,11) = (/ &
+     &1.5630e-05_rb,2.4780e-05_rb,3.4663e-05_rb,4.3353e-05_rb,1.1174e-02_rb/)
+      kao(:,12,11) = (/ &
+     &1.2516e-05_rb,1.8590e-05_rb,2.5768e-05_rb,3.2997e-05_rb,7.6429e-03_rb/)
+      kao(:,13,11) = (/ &
+     &9.1474e-06_rb,1.3280e-05_rb,1.7796e-05_rb,2.4600e-05_rb,8.5245e-03_rb/)
+      kao(:, 1,12) = (/ &
+     &1.9137e-02_rb,2.4205e-02_rb,3.0237e-02_rb,3.7229e-02_rb,4.5273e-02_rb/)
+      kao(:, 2,12) = (/ &
+     &1.6304e-02_rb,2.1414e-02_rb,2.7665e-02_rb,3.5151e-02_rb,4.3535e-02_rb/)
+      kao(:, 3,12) = (/ &
+     &1.3446e-02_rb,1.8468e-02_rb,2.4699e-02_rb,3.1802e-02_rb,4.0159e-02_rb/)
+      kao(:, 4,12) = (/ &
+     &1.0988e-02_rb,1.5565e-02_rb,2.1262e-02_rb,2.7914e-02_rb,3.5968e-02_rb/)
+      kao(:, 5,12) = (/ &
+     &9.1659e-03_rb,1.3233e-02_rb,1.8175e-02_rb,2.4059e-02_rb,3.1596e-02_rb/)
+      kao(:, 6,12) = (/ &
+     &7.6758e-03_rb,1.1199e-02_rb,1.5520e-02_rb,2.0906e-02_rb,2.7754e-02_rb/)
+      kao(:, 7,12) = (/ &
+     &5.4756e-03_rb,9.3901e-03_rb,1.3292e-02_rb,1.8129e-02_rb,2.3738e-02_rb/)
+      kao(:, 8,12) = (/ &
+     &8.4306e-04_rb,3.0332e-03_rb,3.5332e-03_rb,1.1602e-02_rb,1.7968e-02_rb/)
+      kao(:, 9,12) = (/ &
+     &1.4946e-03_rb,1.5749e-03_rb,3.2158e-03_rb,3.1867e-03_rb,3.5737e-03_rb/)
+      kao(:,10,12) = (/ &
+     &2.3105e-05_rb,3.7657e-05_rb,5.4692e-05_rb,1.0942e-02_rb,7.6646e-03_rb/)
+      kao(:,11,12) = (/ &
+     &1.6278e-05_rb,2.6849e-05_rb,3.8655e-05_rb,5.4498e-05_rb,7.7401e-03_rb/)
+      kao(:,12,12) = (/ &
+     &1.1713e-05_rb,1.9330e-05_rb,2.9159e-05_rb,3.9386e-05_rb,5.6995e-05_rb/)
+      kao(:,13,12) = (/ &
+     &9.2970e-06_rb,1.5197e-05_rb,2.2881e-05_rb,3.3051e-05_rb,4.6248e-05_rb/)
+      kao(:, 1,13) = (/ &
+     &3.6366e-02_rb,4.6887e-02_rb,5.8513e-02_rb,7.0986e-02_rb,8.4117e-02_rb/)
+      kao(:, 2,13) = (/ &
+     &3.3990e-02_rb,4.3857e-02_rb,5.4708e-02_rb,6.6354e-02_rb,7.9156e-02_rb/)
+      kao(:, 3,13) = (/ &
+     &2.8482e-02_rb,3.7147e-02_rb,4.6806e-02_rb,5.7889e-02_rb,7.0408e-02_rb/)
+      kao(:, 4,13) = (/ &
+     &2.2450e-02_rb,2.9975e-02_rb,3.8835e-02_rb,4.9297e-02_rb,6.1450e-02_rb/)
+      kao(:, 5,13) = (/ &
+     &1.7322e-02_rb,2.3874e-02_rb,3.2063e-02_rb,4.2032e-02_rb,5.3868e-02_rb/)
+      kao(:, 6,13) = (/ &
+     &1.3022e-02_rb,1.8695e-02_rb,2.6114e-02_rb,3.5380e-02_rb,4.6717e-02_rb/)
+      kao(:, 7,13) = (/ &
+     &9.9635e-03_rb,1.4798e-02_rb,2.1337e-02_rb,2.9901e-02_rb,4.0578e-02_rb/)
+      kao(:, 8,13) = (/ &
+     &9.7470e-04_rb,2.7616e-03_rb,1.5907e-02_rb,2.2415e-02_rb,2.7492e-02_rb/)
+      kao(:, 9,13) = (/ &
+     &1.9362e-03_rb,1.8145e-03_rb,4.1737e-03_rb,3.7651e-03_rb,6.5913e-03_rb/)
+      kao(:,10,13) = (/ &
+     &2.8915e-05_rb,4.8621e-05_rb,6.9201e-05_rb,8.4840e-03_rb,1.1790e-02_rb/)
+      kao(:,11,13) = (/ &
+     &2.3309e-05_rb,3.4553e-05_rb,5.2552e-05_rb,7.2505e-05_rb,8.3347e-05_rb/)
+      kao(:,12,13) = (/ &
+     &1.5870e-05_rb,2.3577e-05_rb,3.4029e-05_rb,5.3277e-05_rb,6.5207e-05_rb/)
+      kao(:,13,13) = (/ &
+     &1.1931e-05_rb,1.9929e-05_rb,2.7393e-05_rb,3.2822e-05_rb,4.4265e-05_rb/)
+      kao(:, 1,14) = (/ &
+     &6.9682e-02_rb,8.7076e-02_rb,1.0644e-01_rb,1.2772e-01_rb,1.5052e-01_rb/)
+      kao(:, 2,14) = (/ &
+     &6.7443e-02_rb,8.6048e-02_rb,1.0697e-01_rb,1.3011e-01_rb,1.5516e-01_rb/)
+      kao(:, 3,14) = (/ &
+     &6.1305e-02_rb,8.0158e-02_rb,1.0175e-01_rb,1.2582e-01_rb,1.5220e-01_rb/)
+      kao(:, 4,14) = (/ &
+     &5.3357e-02_rb,7.1652e-02_rb,9.2935e-02_rb,1.1706e-01_rb,1.4376e-01_rb/)
+      kao(:, 5,14) = (/ &
+     &4.5060e-02_rb,6.2229e-02_rb,8.2609e-02_rb,1.0608e-01_rb,1.3238e-01_rb/)
+      kao(:, 6,14) = (/ &
+     &3.6438e-02_rb,5.1966e-02_rb,7.0824e-02_rb,9.2958e-02_rb,1.1819e-01_rb/)
+      kao(:, 7,14) = (/ &
+     &2.8491e-02_rb,4.2112e-02_rb,5.9112e-02_rb,7.9508e-02_rb,1.0325e-01_rb/)
+      kao(:, 8,14) = (/ &
+     &1.8236e-02_rb,3.3304e-02_rb,4.8438e-02_rb,6.6896e-02_rb,8.8683e-02_rb/)
+      kao(:, 9,14) = (/ &
+     &2.4537e-03_rb,2.3453e-03_rb,8.8067e-03_rb,2.0762e-02_rb,4.5513e-02_rb/)
+      kao(:,10,14) = (/ &
+     &1.4330e-05_rb,1.7518e-05_rb,3.1868e-05_rb,4.9025e-05_rb,3.3153e-02_rb/)
+      kao(:,11,14) = (/ &
+     &1.4087e-05_rb,2.3580e-05_rb,3.6793e-05_rb,4.1734e-05_rb,4.2976e-05_rb/)
+      kao(:,12,14) = (/ &
+     &1.3087e-05_rb,2.2036e-05_rb,3.4770e-05_rb,3.7226e-05_rb,3.8663e-05_rb/)
+      kao(:,13,14) = (/ &
+     &6.3004e-06_rb,7.4647e-06_rb,1.3256e-05_rb,1.9422e-05_rb,2.7358e-05_rb/)
+      kao(:, 1,15) = (/ &
+     &1.0457e-01_rb,1.3337e-01_rb,1.6543e-01_rb,2.0044e-01_rb,2.3788e-01_rb/)
+      kao(:, 2,15) = (/ &
+     &1.1420e-01_rb,1.4734e-01_rb,1.8451e-01_rb,2.2524e-01_rb,2.6907e-01_rb/)
+      kao(:, 3,15) = (/ &
+     &1.1631e-01_rb,1.5291e-01_rb,1.9437e-01_rb,2.4033e-01_rb,2.9013e-01_rb/)
+      kao(:, 4,15) = (/ &
+     &1.1302e-01_rb,1.5183e-01_rb,1.9657e-01_rb,2.4665e-01_rb,3.0148e-01_rb/)
+      kao(:, 5,15) = (/ &
+     &1.0669e-01_rb,1.4681e-01_rb,1.9375e-01_rb,2.4698e-01_rb,3.0586e-01_rb/)
+      kao(:, 6,15) = (/ &
+     &9.6727e-02_rb,1.3681e-01_rb,1.8458e-01_rb,2.3961e-01_rb,3.0104e-01_rb/)
+      kao(:, 7,15) = (/ &
+     &8.4990e-02_rb,1.2388e-01_rb,1.7124e-01_rb,2.2660e-01_rb,2.8964e-01_rb/)
+      kao(:, 8,15) = (/ &
+     &7.2581e-02_rb,1.0932e-01_rb,1.5506e-01_rb,2.1052e-01_rb,2.7593e-01_rb/)
+      kao(:, 9,15) = (/ &
+     &2.1552e-02_rb,6.6962e-02_rb,1.2166e-01_rb,1.8985e-01_rb,2.2620e-01_rb/)
+      kao(:,10,15) = (/ &
+     &8.5757e-06_rb,7.9319e-06_rb,7.5384e-06_rb,5.2149e-06_rb,3.5776e-06_rb/)
+      kao(:,11,15) = (/ &
+     &7.3855e-06_rb,7.4681e-06_rb,7.1804e-06_rb,6.5771e-06_rb,3.3890e-06_rb/)
+      kao(:,12,15) = (/ &
+     &5.9318e-06_rb,6.7082e-06_rb,7.4828e-06_rb,6.0815e-06_rb,3.2500e-06_rb/)
+      kao(:,13,15) = (/ &
+     &7.9734e-06_rb,1.0467e-05_rb,1.8551e-05_rb,3.3018e-05_rb,1.4396e-05_rb/)
+      kao(:, 1,16) = (/ &
+     &1.0940e-01_rb,1.4000e-01_rb,1.7421e-01_rb,2.1173e-01_rb,2.5214e-01_rb/)
+      kao(:, 2,16) = (/ &
+     &1.2207e-01_rb,1.5824e-01_rb,1.9908e-01_rb,2.4418e-01_rb,2.9310e-01_rb/)
+      kao(:, 3,16) = (/ &
+     &1.2803e-01_rb,1.6941e-01_rb,2.1687e-01_rb,2.6992e-01_rb,3.2810e-01_rb/)
+      kao(:, 4,16) = (/ &
+     &1.2912e-01_rb,1.7512e-01_rb,2.2885e-01_rb,2.8989e-01_rb,3.5760e-01_rb/)
+      kao(:, 5,16) = (/ &
+     &1.2782e-01_rb,1.7809e-01_rb,2.3798e-01_rb,3.0717e-01_rb,3.8500e-01_rb/)
+      kao(:, 6,16) = (/ &
+     &1.2288e-01_rb,1.7665e-01_rb,2.4226e-01_rb,3.1945e-01_rb,4.0769e-01_rb/)
+      kao(:, 7,16) = (/ &
+     &1.1601e-01_rb,1.7265e-01_rb,2.4356e-01_rb,3.2874e-01_rb,4.2783e-01_rb/)
+      kao(:, 8,16) = (/ &
+     &1.0802e-01_rb,1.6690e-01_rb,2.4265e-01_rb,3.3582e-01_rb,4.4617e-01_rb/)
+      kao(:, 9,16) = (/ &
+     &9.8584e-02_rb,1.5878e-01_rb,2.3864e-01_rb,3.3924e-01_rb,4.6085e-01_rb/)
+      kao(:,10,16) = (/ &
+     &2.5370e-06_rb,3.6996e-06_rb,5.1180e-06_rb,9.0911e-06_rb,1.0521e-05_rb/)
+      kao(:,11,16) = (/ &
+     &2.1410e-06_rb,3.1393e-06_rb,2.7559e-06_rb,9.6933e-06_rb,1.1052e-05_rb/)
+      kao(:,12,16) = (/ &
+     &1.7911e-06_rb,2.0648e-06_rb,1.9476e-06_rb,1.0250e-05_rb,1.1569e-05_rb/)
+      kao(:,13,16) = (/ &
+     &6.8424e-07_rb,2.1307e-05_rb,3.0235e-05_rb,1.0419e-05_rb,1.1877e-05_rb/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:,13, 1) = (/ &
+     &2.1590e-02_rb,2.2747e-02_rb,2.3755e-02_rb,2.4762e-02_rb,2.5739e-02_rb/)
+      kbo(:,14, 1) = (/ &
+     &1.5891e-02_rb,1.6865e-02_rb,1.7785e-02_rb,1.8588e-02_rb,1.9375e-02_rb/)
+      kbo(:,15, 1) = (/ &
+     &1.2008e-02_rb,1.2891e-02_rb,1.3700e-02_rb,1.4369e-02_rb,1.4970e-02_rb/)
+      kbo(:,16, 1) = (/ &
+     &9.5594e-03_rb,1.0266e-02_rb,1.0893e-02_rb,1.1429e-02_rb,1.1863e-02_rb/)
+      kbo(:,17, 1) = (/ &
+     &7.6979e-03_rb,8.2617e-03_rb,8.7527e-03_rb,9.1620e-03_rb,9.5161e-03_rb/)
+      kbo(:,18, 1) = (/ &
+     &6.2689e-03_rb,6.7130e-03_rb,7.1029e-03_rb,7.4199e-03_rb,7.7032e-03_rb/)
+      kbo(:,19, 1) = (/ &
+     &5.1124e-03_rb,5.4669e-03_rb,5.7636e-03_rb,6.0175e-03_rb,6.2439e-03_rb/)
+      kbo(:,20, 1) = (/ &
+     &4.2074e-03_rb,4.4879e-03_rb,4.7226e-03_rb,4.9240e-03_rb,5.1066e-03_rb/)
+      kbo(:,21, 1) = (/ &
+     &3.4689e-03_rb,3.6905e-03_rb,3.8771e-03_rb,4.0402e-03_rb,4.1874e-03_rb/)
+      kbo(:,22, 1) = (/ &
+     &2.8675e-03_rb,3.0422e-03_rb,3.1923e-03_rb,3.3247e-03_rb,3.4419e-03_rb/)
+      kbo(:,23, 1) = (/ &
+     &2.3673e-03_rb,2.5068e-03_rb,2.6269e-03_rb,2.7338e-03_rb,2.8272e-03_rb/)
+      kbo(:,24, 1) = (/ &
+     &1.9512e-03_rb,2.0620e-03_rb,2.1580e-03_rb,2.2436e-03_rb,2.3178e-03_rb/)
+      kbo(:,25, 1) = (/ &
+     &1.6104e-03_rb,1.6991e-03_rb,1.7756e-03_rb,1.8445e-03_rb,1.9031e-03_rb/)
+      kbo(:,26, 1) = (/ &
+     &1.3324e-03_rb,1.4030e-03_rb,1.4641e-03_rb,1.5181e-03_rb,1.5647e-03_rb/)
+      kbo(:,27, 1) = (/ &
+     &1.1030e-03_rb,1.1588e-03_rb,1.2079e-03_rb,1.2506e-03_rb,1.2885e-03_rb/)
+      kbo(:,28, 1) = (/ &
+     &9.1277e-04_rb,9.5694e-04_rb,9.9621e-04_rb,1.0308e-03_rb,1.0603e-03_rb/)
+      kbo(:,29, 1) = (/ &
+     &7.5709e-04_rb,7.9257e-04_rb,8.2415e-04_rb,8.5205e-04_rb,8.7500e-04_rb/)
+      kbo(:,30, 1) = (/ &
+     &6.2805e-04_rb,6.5667e-04_rb,6.8205e-04_rb,7.0403e-04_rb,7.2224e-04_rb/)
+      kbo(:,31, 1) = (/ &
+     &5.2190e-04_rb,5.4469e-04_rb,5.6521e-04_rb,5.8274e-04_rb,5.9713e-04_rb/)
+      kbo(:,32, 1) = (/ &
+     &4.3349e-04_rb,4.5214e-04_rb,4.6842e-04_rb,4.8237e-04_rb,4.9367e-04_rb/)
+      kbo(:,33, 1) = (/ &
+     &3.5999e-04_rb,3.7522e-04_rb,3.8828e-04_rb,3.9917e-04_rb,4.0831e-04_rb/)
+      kbo(:,34, 1) = (/ &
+     &2.9885e-04_rb,3.1108e-04_rb,3.2123e-04_rb,3.3020e-04_rb,3.3735e-04_rb/)
+      kbo(:,35, 1) = (/ &
+     &2.4686e-04_rb,2.5649e-04_rb,2.6489e-04_rb,2.7217e-04_rb,2.7798e-04_rb/)
+      kbo(:,36, 1) = (/ &
+     &2.0249e-04_rb,2.1050e-04_rb,2.1752e-04_rb,2.2349e-04_rb,2.2845e-04_rb/)
+      kbo(:,37, 1) = (/ &
+     &1.6556e-04_rb,1.7221e-04_rb,1.7821e-04_rb,1.8323e-04_rb,1.8756e-04_rb/)
+      kbo(:,38, 1) = (/ &
+     &1.3530e-04_rb,1.4093e-04_rb,1.4599e-04_rb,1.5028e-04_rb,1.5406e-04_rb/)
+      kbo(:,39, 1) = (/ &
+     &1.1062e-04_rb,1.1539e-04_rb,1.1961e-04_rb,1.2331e-04_rb,1.2663e-04_rb/)
+      kbo(:,40, 1) = (/ &
+     &8.9884e-05_rb,9.3980e-05_rb,9.7546e-05_rb,1.0075e-04_rb,1.0361e-04_rb/)
+      kbo(:,41, 1) = (/ &
+     &7.2964e-05_rb,7.6433e-05_rb,7.9468e-05_rb,8.2219e-05_rb,8.4723e-05_rb/)
+      kbo(:,42, 1) = (/ &
+     &5.9182e-05_rb,6.2146e-05_rb,6.4721e-05_rb,6.7085e-05_rb,6.9267e-05_rb/)
+      kbo(:,43, 1) = (/ &
+     &4.7864e-05_rb,5.0382e-05_rb,5.2591e-05_rb,5.4634e-05_rb,5.6528e-05_rb/)
+      kbo(:,44, 1) = (/ &
+     &3.8628e-05_rb,4.0783e-05_rb,4.2701e-05_rb,4.4436e-05_rb,4.6114e-05_rb/)
+      kbo(:,45, 1) = (/ &
+     &3.1127e-05_rb,3.3002e-05_rb,3.4654e-05_rb,3.6151e-05_rb,3.7566e-05_rb/)
+      kbo(:,46, 1) = (/ &
+     &2.5026e-05_rb,2.6649e-05_rb,2.8068e-05_rb,2.9367e-05_rb,3.0563e-05_rb/)
+      kbo(:,47, 1) = (/ &
+     &2.0040e-05_rb,2.1423e-05_rb,2.2656e-05_rb,2.3781e-05_rb,2.4816e-05_rb/)
+      kbo(:,48, 1) = (/ &
+     &1.6036e-05_rb,1.7209e-05_rb,1.8283e-05_rb,1.9267e-05_rb,2.0138e-05_rb/)
+      kbo(:,49, 1) = (/ &
+     &1.2828e-05_rb,1.3830e-05_rb,1.4752e-05_rb,1.5602e-05_rb,1.6354e-05_rb/)
+      kbo(:,50, 1) = (/ &
+     &1.0257e-05_rb,1.1106e-05_rb,1.1884e-05_rb,1.2616e-05_rb,1.3265e-05_rb/)
+      kbo(:,51, 1) = (/ &
+     &8.1934e-06_rb,8.9110e-06_rb,9.5669e-06_rb,1.0186e-05_rb,1.0748e-05_rb/)
+      kbo(:,52, 1) = (/ &
+     &6.5467e-06_rb,7.1424e-06_rb,7.7065e-06_rb,8.2286e-06_rb,8.7123e-06_rb/)
+      kbo(:,53, 1) = (/ &
+     &5.2332e-06_rb,5.7328e-06_rb,6.2119e-06_rb,6.6510e-06_rb,7.0700e-06_rb/)
+      kbo(:,54, 1) = (/ &
+     &4.1577e-06_rb,4.5779e-06_rb,4.9804e-06_rb,5.3498e-06_rb,5.7020e-06_rb/)
+      kbo(:,55, 1) = (/ &
+     &3.2878e-06_rb,3.6403e-06_rb,3.9741e-06_rb,4.2805e-06_rb,4.5760e-06_rb/)
+      kbo(:,56, 1) = (/ &
+     &2.5965e-06_rb,2.8911e-06_rb,3.1663e-06_rb,3.4265e-06_rb,3.6666e-06_rb/)
+      kbo(:,57, 1) = (/ &
+     &2.0466e-06_rb,2.2908e-06_rb,2.5217e-06_rb,2.7403e-06_rb,2.9373e-06_rb/)
+      kbo(:,58, 1) = (/ &
+     &1.6093e-06_rb,1.8128e-06_rb,2.0059e-06_rb,2.1882e-06_rb,2.3529e-06_rb/)
+      kbo(:,59, 1) = (/ &
+     &1.2776e-06_rb,1.4459e-06_rb,1.6042e-06_rb,1.7524e-06_rb,1.8906e-06_rb/)
+      kbo(:,13, 2) = (/ &
+     &3.8014e-02_rb,3.9737e-02_rb,4.1825e-02_rb,4.3879e-02_rb,4.5802e-02_rb/)
+      kbo(:,14, 2) = (/ &
+     &3.0759e-02_rb,3.2195e-02_rb,3.3860e-02_rb,3.5735e-02_rb,3.7445e-02_rb/)
+      kbo(:,15, 2) = (/ &
+     &2.4737e-02_rb,2.6065e-02_rb,2.7499e-02_rb,2.8985e-02_rb,3.0345e-02_rb/)
+      kbo(:,16, 2) = (/ &
+     &2.0386e-02_rb,2.1604e-02_rb,2.2870e-02_rb,2.4062e-02_rb,2.5169e-02_rb/)
+      kbo(:,17, 2) = (/ &
+     &1.6973e-02_rb,1.8030e-02_rb,1.9046e-02_rb,1.9999e-02_rb,2.0836e-02_rb/)
+      kbo(:,18, 2) = (/ &
+     &1.4179e-02_rb,1.5045e-02_rb,1.5843e-02_rb,1.6598e-02_rb,1.7207e-02_rb/)
+      kbo(:,19, 2) = (/ &
+     &1.1784e-02_rb,1.2488e-02_rb,1.3131e-02_rb,1.3688e-02_rb,1.4139e-02_rb/)
+      kbo(:,20, 2) = (/ &
+     &9.8208e-03_rb,1.0377e-02_rb,1.0872e-02_rb,1.1296e-02_rb,1.1641e-02_rb/)
+      kbo(:,21, 2) = (/ &
+     &8.1632e-03_rb,8.5996e-03_rb,8.9808e-03_rb,9.3040e-03_rb,9.5696e-03_rb/)
+      kbo(:,22, 2) = (/ &
+     &6.7970e-03_rb,7.1290e-03_rb,7.4204e-03_rb,7.6665e-03_rb,7.8692e-03_rb/)
+      kbo(:,23, 2) = (/ &
+     &5.6384e-03_rb,5.8917e-03_rb,6.1228e-03_rb,6.3098e-03_rb,6.4698e-03_rb/)
+      kbo(:,24, 2) = (/ &
+     &4.6602e-03_rb,4.8595e-03_rb,5.0396e-03_rb,5.1884e-03_rb,5.3131e-03_rb/)
+      kbo(:,25, 2) = (/ &
+     &3.8492e-03_rb,4.0101e-03_rb,4.1507e-03_rb,4.2656e-03_rb,4.3666e-03_rb/)
+      kbo(:,26, 2) = (/ &
+     &3.1817e-03_rb,3.3089e-03_rb,3.4202e-03_rb,3.5130e-03_rb,3.5943e-03_rb/)
+      kbo(:,27, 2) = (/ &
+     &2.6312e-03_rb,2.7340e-03_rb,2.8215e-03_rb,2.8952e-03_rb,2.9585e-03_rb/)
+      kbo(:,28, 2) = (/ &
+     &2.1766e-03_rb,2.2592e-03_rb,2.3277e-03_rb,2.3874e-03_rb,2.4369e-03_rb/)
+      kbo(:,29, 2) = (/ &
+     &1.8050e-03_rb,1.8690e-03_rb,1.9243e-03_rb,1.9721e-03_rb,2.0134e-03_rb/)
+      kbo(:,30, 2) = (/ &
+     &1.4965e-03_rb,1.5474e-03_rb,1.5922e-03_rb,1.6307e-03_rb,1.6644e-03_rb/)
+      kbo(:,31, 2) = (/ &
+     &1.2416e-03_rb,1.2835e-03_rb,1.3200e-03_rb,1.3519e-03_rb,1.3783e-03_rb/)
+      kbo(:,32, 2) = (/ &
+     &1.0308e-03_rb,1.0652e-03_rb,1.0950e-03_rb,1.1207e-03_rb,1.1427e-03_rb/)
+      kbo(:,33, 2) = (/ &
+     &8.5698e-04_rb,8.8430e-04_rb,9.0863e-04_rb,9.2966e-04_rb,9.4803e-04_rb/)
+      kbo(:,34, 2) = (/ &
+     &7.1109e-04_rb,7.3332e-04_rb,7.5331e-04_rb,7.7074e-04_rb,7.8601e-04_rb/)
+      kbo(:,35, 2) = (/ &
+     &5.8729e-04_rb,6.0603e-04_rb,6.2268e-04_rb,6.3737e-04_rb,6.5045e-04_rb/)
+      kbo(:,36, 2) = (/ &
+     &4.8310e-04_rb,4.9861e-04_rb,5.1251e-04_rb,5.2508e-04_rb,5.3615e-04_rb/)
+      kbo(:,37, 2) = (/ &
+     &3.9625e-04_rb,4.0955e-04_rb,4.2151e-04_rb,4.3225e-04_rb,4.4172e-04_rb/)
+      kbo(:,38, 2) = (/ &
+     &3.2503e-04_rb,3.3643e-04_rb,3.4664e-04_rb,3.5587e-04_rb,3.6445e-04_rb/)
+      kbo(:,39, 2) = (/ &
+     &2.6664e-04_rb,2.7639e-04_rb,2.8514e-04_rb,2.9332e-04_rb,3.0098e-04_rb/)
+      kbo(:,40, 2) = (/ &
+     &2.1759e-04_rb,2.2608e-04_rb,2.3348e-04_rb,2.4050e-04_rb,2.4712e-04_rb/)
+      kbo(:,41, 2) = (/ &
+     &1.7739e-04_rb,1.8462e-04_rb,1.9097e-04_rb,1.9703e-04_rb,2.0268e-04_rb/)
+      kbo(:,42, 2) = (/ &
+     &1.4453e-04_rb,1.5070e-04_rb,1.5612e-04_rb,1.6130e-04_rb,1.6626e-04_rb/)
+      kbo(:,43, 2) = (/ &
+     &1.1750e-04_rb,1.2276e-04_rb,1.2736e-04_rb,1.3185e-04_rb,1.3616e-04_rb/)
+      kbo(:,44, 2) = (/ &
+     &9.5367e-05_rb,9.9857e-05_rb,1.0380e-04_rb,1.0768e-04_rb,1.1140e-04_rb/)
+      kbo(:,45, 2) = (/ &
+     &7.7428e-05_rb,8.1152e-05_rb,8.4582e-05_rb,8.7898e-05_rb,9.1175e-05_rb/)
+      kbo(:,46, 2) = (/ &
+     &6.2722e-05_rb,6.5854e-05_rb,6.8828e-05_rb,7.1656e-05_rb,7.4494e-05_rb/)
+      kbo(:,47, 2) = (/ &
+     &5.0620e-05_rb,5.3291e-05_rb,5.5834e-05_rb,5.8234e-05_rb,6.0703e-05_rb/)
+      kbo(:,48, 2) = (/ &
+     &4.0839e-05_rb,4.3112e-05_rb,4.5285e-05_rb,4.7326e-05_rb,4.9468e-05_rb/)
+      kbo(:,49, 2) = (/ &
+     &3.2956e-05_rb,3.4871e-05_rb,3.6734e-05_rb,3.8477e-05_rb,4.0339e-05_rb/)
+      kbo(:,50, 2) = (/ &
+     &2.6578e-05_rb,2.8186e-05_rb,2.9765e-05_rb,3.1246e-05_rb,3.2810e-05_rb/)
+      kbo(:,51, 2) = (/ &
+     &2.1419e-05_rb,2.2753e-05_rb,2.4086e-05_rb,2.5342e-05_rb,2.6653e-05_rb/)
+      kbo(:,52, 2) = (/ &
+     &1.7265e-05_rb,1.8376e-05_rb,1.9492e-05_rb,2.0556e-05_rb,2.1651e-05_rb/)
+      kbo(:,53, 2) = (/ &
+     &1.3928e-05_rb,1.4844e-05_rb,1.5782e-05_rb,1.6689e-05_rb,1.7614e-05_rb/)
+      kbo(:,54, 2) = (/ &
+     &1.1205e-05_rb,1.1963e-05_rb,1.2726e-05_rb,1.3478e-05_rb,1.4240e-05_rb/)
+      kbo(:,55, 2) = (/ &
+     &8.9889e-06_rb,9.6190e-06_rb,1.0235e-05_rb,1.0868e-05_rb,1.1479e-05_rb/)
+      kbo(:,56, 2) = (/ &
+     &7.2032e-06_rb,7.7304e-06_rb,8.2333e-06_rb,8.7486e-06_rb,9.2547e-06_rb/)
+      kbo(:,57, 2) = (/ &
+     &5.7621e-06_rb,6.2097e-06_rb,6.6195e-06_rb,7.0372e-06_rb,7.4615e-06_rb/)
+      kbo(:,58, 2) = (/ &
+     &4.6073e-06_rb,4.9865e-06_rb,5.3240e-06_rb,5.6615e-06_rb,6.0083e-06_rb/)
+      kbo(:,59, 2) = (/ &
+     &3.7094e-06_rb,4.0178e-06_rb,4.3021e-06_rb,4.5755e-06_rb,4.8477e-06_rb/)
+      kbo(:,13, 3) = (/ &
+     &6.3405e-02_rb,6.5846e-02_rb,6.7902e-02_rb,7.0344e-02_rb,7.3087e-02_rb/)
+      kbo(:,14, 3) = (/ &
+     &5.1252e-02_rb,5.3361e-02_rb,5.5658e-02_rb,5.8048e-02_rb,6.0738e-02_rb/)
+      kbo(:,15, 3) = (/ &
+     &4.2340e-02_rb,4.4418e-02_rb,4.6657e-02_rb,4.8923e-02_rb,5.1338e-02_rb/)
+      kbo(:,16, 3) = (/ &
+     &3.5507e-02_rb,3.7339e-02_rb,3.9465e-02_rb,4.1652e-02_rb,4.3669e-02_rb/)
+      kbo(:,17, 3) = (/ &
+     &2.9824e-02_rb,3.1523e-02_rb,3.3435e-02_rb,3.5273e-02_rb,3.6953e-02_rb/)
+      kbo(:,18, 3) = (/ &
+     &2.5125e-02_rb,2.6683e-02_rb,2.8323e-02_rb,2.9797e-02_rb,3.1126e-02_rb/)
+      kbo(:,19, 3) = (/ &
+     &2.1223e-02_rb,2.2544e-02_rb,2.3820e-02_rb,2.4985e-02_rb,2.5990e-02_rb/)
+      kbo(:,20, 3) = (/ &
+     &1.7915e-02_rb,1.8986e-02_rb,1.9994e-02_rb,2.0861e-02_rb,2.1602e-02_rb/)
+      kbo(:,21, 3) = (/ &
+     &1.5062e-02_rb,1.5916e-02_rb,1.6665e-02_rb,1.7312e-02_rb,1.7872e-02_rb/)
+      kbo(:,22, 3) = (/ &
+     &1.2635e-02_rb,1.3292e-02_rb,1.3846e-02_rb,1.4329e-02_rb,1.4769e-02_rb/)
+      kbo(:,23, 3) = (/ &
+     &1.0554e-02_rb,1.1051e-02_rb,1.1464e-02_rb,1.1841e-02_rb,1.2180e-02_rb/)
+      kbo(:,24, 3) = (/ &
+     &8.7770e-03_rb,9.1488e-03_rb,9.4668e-03_rb,9.7625e-03_rb,1.0031e-02_rb/)
+      kbo(:,25, 3) = (/ &
+     &7.2756e-03_rb,7.5544e-03_rb,7.8035e-03_rb,8.0431e-03_rb,8.2495e-03_rb/)
+      kbo(:,26, 3) = (/ &
+     &6.0226e-03_rb,6.2378e-03_rb,6.4382e-03_rb,6.6253e-03_rb,6.7857e-03_rb/)
+      kbo(:,27, 3) = (/ &
+     &4.9811e-03_rb,5.1501e-03_rb,5.3115e-03_rb,5.4587e-03_rb,5.5851e-03_rb/)
+      kbo(:,28, 3) = (/ &
+     &4.1172e-03_rb,4.2566e-03_rb,4.3852e-03_rb,4.4995e-03_rb,4.6022e-03_rb/)
+      kbo(:,29, 3) = (/ &
+     &3.4101e-03_rb,3.5232e-03_rb,3.6273e-03_rb,3.7181e-03_rb,3.8009e-03_rb/)
+      kbo(:,30, 3) = (/ &
+     &2.8248e-03_rb,2.9164e-03_rb,2.9992e-03_rb,3.0754e-03_rb,3.1419e-03_rb/)
+      kbo(:,31, 3) = (/ &
+     &2.3450e-03_rb,2.4195e-03_rb,2.4879e-03_rb,2.5493e-03_rb,2.6070e-03_rb/)
+      kbo(:,32, 3) = (/ &
+     &1.9491e-03_rb,2.0095e-03_rb,2.0670e-03_rb,2.1190e-03_rb,2.1683e-03_rb/)
+      kbo(:,33, 3) = (/ &
+     &1.6195e-03_rb,1.6713e-03_rb,1.7189e-03_rb,1.7649e-03_rb,1.8032e-03_rb/)
+      kbo(:,34, 3) = (/ &
+     &1.3454e-03_rb,1.3883e-03_rb,1.4290e-03_rb,1.4663e-03_rb,1.4976e-03_rb/)
+      kbo(:,35, 3) = (/ &
+     &1.1151e-03_rb,1.1504e-03_rb,1.1846e-03_rb,1.2147e-03_rb,1.2425e-03_rb/)
+      kbo(:,36, 3) = (/ &
+     &9.1872e-04_rb,9.4904e-04_rb,9.7800e-04_rb,1.0033e-03_rb,1.0278e-03_rb/)
+      kbo(:,37, 3) = (/ &
+     &7.5556e-04_rb,7.8161e-04_rb,8.0630e-04_rb,8.2845e-04_rb,8.4914e-04_rb/)
+      kbo(:,38, 3) = (/ &
+     &6.2192e-04_rb,6.4458e-04_rb,6.6572e-04_rb,6.8474e-04_rb,7.0313e-04_rb/)
+      kbo(:,39, 3) = (/ &
+     &5.1238e-04_rb,5.3172e-04_rb,5.4973e-04_rb,5.6636e-04_rb,5.8235e-04_rb/)
+      kbo(:,40, 3) = (/ &
+     &4.1982e-04_rb,4.3621e-04_rb,4.5139e-04_rb,4.6596e-04_rb,4.7961e-04_rb/)
+      kbo(:,41, 3) = (/ &
+     &3.4388e-04_rb,3.5746e-04_rb,3.7054e-04_rb,3.8291e-04_rb,3.9470e-04_rb/)
+      kbo(:,42, 3) = (/ &
+     &2.8144e-04_rb,2.9295e-04_rb,3.0424e-04_rb,3.1457e-04_rb,3.2459e-04_rb/)
+      kbo(:,43, 3) = (/ &
+     &2.2990e-04_rb,2.3955e-04_rb,2.4928e-04_rb,2.5827e-04_rb,2.6672e-04_rb/)
+      kbo(:,44, 3) = (/ &
+     &1.8744e-04_rb,1.9582e-04_rb,2.0413e-04_rb,2.1176e-04_rb,2.1912e-04_rb/)
+      kbo(:,45, 3) = (/ &
+     &1.5285e-04_rb,1.6000e-04_rb,1.6711e-04_rb,1.7363e-04_rb,1.7993e-04_rb/)
+      kbo(:,46, 3) = (/ &
+     &1.2448e-04_rb,1.3059e-04_rb,1.3656e-04_rb,1.4216e-04_rb,1.4758e-04_rb/)
+      kbo(:,47, 3) = (/ &
+     &1.0103e-04_rb,1.0628e-04_rb,1.1130e-04_rb,1.1611e-04_rb,1.2074e-04_rb/)
+      kbo(:,48, 3) = (/ &
+     &8.1983e-05_rb,8.6504e-05_rb,9.0728e-05_rb,9.4862e-05_rb,9.8826e-05_rb/)
+      kbo(:,49, 3) = (/ &
+     &6.6563e-05_rb,7.0429e-05_rb,7.4014e-05_rb,7.7542e-05_rb,8.0976e-05_rb/)
+      kbo(:,50, 3) = (/ &
+     &5.3952e-05_rb,5.7235e-05_rb,6.0247e-05_rb,6.3258e-05_rb,6.6182e-05_rb/)
+      kbo(:,51, 3) = (/ &
+     &4.3663e-05_rb,4.6470e-05_rb,4.9001e-05_rb,5.1519e-05_rb,5.4013e-05_rb/)
+      kbo(:,52, 3) = (/ &
+     &3.5323e-05_rb,3.7705e-05_rb,3.9846e-05_rb,4.1973e-05_rb,4.4086e-05_rb/)
+      kbo(:,53, 3) = (/ &
+     &2.8583e-05_rb,3.0614e-05_rb,3.2428e-05_rb,3.4214e-05_rb,3.6024e-05_rb/)
+      kbo(:,54, 3) = (/ &
+     &2.3052e-05_rb,2.4741e-05_rb,2.6291e-05_rb,2.7754e-05_rb,2.9233e-05_rb/)
+      kbo(:,55, 3) = (/ &
+     &1.8532e-05_rb,1.9924e-05_rb,2.1226e-05_rb,2.2443e-05_rb,2.3644e-05_rb/)
+      kbo(:,56, 3) = (/ &
+     &1.4892e-05_rb,1.6026e-05_rb,1.7132e-05_rb,1.8148e-05_rb,1.9127e-05_rb/)
+      kbo(:,57, 3) = (/ &
+     &1.1957e-05_rb,1.2880e-05_rb,1.3809e-05_rb,1.4669e-05_rb,1.5458e-05_rb/)
+      kbo(:,58, 3) = (/ &
+     &9.6000e-06_rb,1.0349e-05_rb,1.1127e-05_rb,1.1847e-05_rb,1.2497e-05_rb/)
+      kbo(:,59, 3) = (/ &
+     &7.7452e-06_rb,8.3627e-06_rb,8.9895e-06_rb,9.5703e-06_rb,1.0120e-05_rb/)
+      kbo(:,13, 4) = (/ &
+     &9.9915e-02_rb,1.0385e-01_rb,1.0749e-01_rb,1.1095e-01_rb,1.1480e-01_rb/)
+      kbo(:,14, 4) = (/ &
+     &8.4174e-02_rb,8.7314e-02_rb,9.0833e-02_rb,9.4040e-02_rb,9.7483e-02_rb/)
+      kbo(:,15, 4) = (/ &
+     &7.1798e-02_rb,7.3772e-02_rb,7.6218e-02_rb,7.9303e-02_rb,8.2911e-02_rb/)
+      kbo(:,16, 4) = (/ &
+     &6.0987e-02_rb,6.2861e-02_rb,6.5027e-02_rb,6.7869e-02_rb,7.1492e-02_rb/)
+      kbo(:,17, 4) = (/ &
+     &5.1988e-02_rb,5.3759e-02_rb,5.5853e-02_rb,5.8672e-02_rb,6.1980e-02_rb/)
+      kbo(:,18, 4) = (/ &
+     &4.4171e-02_rb,4.5935e-02_rb,4.8095e-02_rb,5.0759e-02_rb,5.3616e-02_rb/)
+      kbo(:,19, 4) = (/ &
+     &3.7411e-02_rb,3.9215e-02_rb,4.1337e-02_rb,4.3631e-02_rb,4.5910e-02_rb/)
+      kbo(:,20, 4) = (/ &
+     &3.1780e-02_rb,3.3510e-02_rb,3.5386e-02_rb,3.7312e-02_rb,3.9095e-02_rb/)
+      kbo(:,21, 4) = (/ &
+     &2.6954e-02_rb,2.8513e-02_rb,3.0099e-02_rb,3.1617e-02_rb,3.2915e-02_rb/)
+      kbo(:,22, 4) = (/ &
+     &2.2888e-02_rb,2.4194e-02_rb,2.5477e-02_rb,2.6596e-02_rb,2.7511e-02_rb/)
+      kbo(:,23, 4) = (/ &
+     &1.9346e-02_rb,2.0404e-02_rb,2.1382e-02_rb,2.2165e-02_rb,2.2830e-02_rb/)
+      kbo(:,24, 4) = (/ &
+     &1.6247e-02_rb,1.7083e-02_rb,1.7781e-02_rb,1.8353e-02_rb,1.8851e-02_rb/)
+      kbo(:,25, 4) = (/ &
+     &1.3597e-02_rb,1.4221e-02_rb,1.4742e-02_rb,1.5163e-02_rb,1.5551e-02_rb/)
+      kbo(:,26, 4) = (/ &
+     &1.1347e-02_rb,1.1808e-02_rb,1.2193e-02_rb,1.2519e-02_rb,1.2827e-02_rb/)
+      kbo(:,27, 4) = (/ &
+     &9.4352e-03_rb,9.7820e-03_rb,1.0071e-02_rb,1.0331e-02_rb,1.0583e-02_rb/)
+      kbo(:,28, 4) = (/ &
+     &7.8281e-03_rb,8.0857e-03_rb,8.3110e-03_rb,8.5276e-03_rb,8.7304e-03_rb/)
+      kbo(:,29, 4) = (/ &
+     &6.4877e-03_rb,6.6881e-03_rb,6.8753e-03_rb,7.0489e-03_rb,7.2105e-03_rb/)
+      kbo(:,30, 4) = (/ &
+     &5.3741e-03_rb,5.5372e-03_rb,5.6910e-03_rb,5.8358e-03_rb,5.9652e-03_rb/)
+      kbo(:,31, 4) = (/ &
+     &4.4624e-03_rb,4.5974e-03_rb,4.7269e-03_rb,4.8416e-03_rb,4.9477e-03_rb/)
+      kbo(:,32, 4) = (/ &
+     &3.7110e-03_rb,3.8251e-03_rb,3.9302e-03_rb,4.0264e-03_rb,4.1112e-03_rb/)
+      kbo(:,33, 4) = (/ &
+     &3.0918e-03_rb,3.1864e-03_rb,3.2713e-03_rb,3.3504e-03_rb,3.4219e-03_rb/)
+      kbo(:,34, 4) = (/ &
+     &2.5734e-03_rb,2.6501e-03_rb,2.7238e-03_rb,2.7897e-03_rb,2.8499e-03_rb/)
+      kbo(:,35, 4) = (/ &
+     &2.1361e-03_rb,2.2030e-03_rb,2.2659e-03_rb,2.3224e-03_rb,2.3696e-03_rb/)
+      kbo(:,36, 4) = (/ &
+     &1.7673e-03_rb,1.8262e-03_rb,1.8805e-03_rb,1.9284e-03_rb,1.9688e-03_rb/)
+      kbo(:,37, 4) = (/ &
+     &1.4584e-03_rb,1.5086e-03_rb,1.5546e-03_rb,1.5960e-03_rb,1.6338e-03_rb/)
+      kbo(:,38, 4) = (/ &
+     &1.2034e-03_rb,1.2453e-03_rb,1.2856e-03_rb,1.3227e-03_rb,1.3572e-03_rb/)
+      kbo(:,39, 4) = (/ &
+     &9.9454e-04_rb,1.0299e-03_rb,1.0651e-03_rb,1.0982e-03_rb,1.1293e-03_rb/)
+      kbo(:,40, 4) = (/ &
+     &8.1766e-04_rb,8.4814e-04_rb,8.7922e-04_rb,9.0780e-04_rb,9.3604e-04_rb/)
+      kbo(:,41, 4) = (/ &
+     &6.7161e-04_rb,6.9882e-04_rb,7.2604e-04_rb,7.5179e-04_rb,7.7573e-04_rb/)
+      kbo(:,42, 4) = (/ &
+     &5.5233e-04_rb,5.7642e-04_rb,5.9983e-04_rb,6.2278e-04_rb,6.4351e-04_rb/)
+      kbo(:,43, 4) = (/ &
+     &4.5350e-04_rb,4.7458e-04_rb,4.9522e-04_rb,5.1500e-04_rb,5.3326e-04_rb/)
+      kbo(:,44, 4) = (/ &
+     &3.7202e-04_rb,3.9025e-04_rb,4.0848e-04_rb,4.2568e-04_rb,4.4143e-04_rb/)
+      kbo(:,45, 4) = (/ &
+     &3.0534e-04_rb,3.2126e-04_rb,3.3706e-04_rb,3.5201e-04_rb,3.6606e-04_rb/)
+      kbo(:,46, 4) = (/ &
+     &2.5026e-04_rb,2.6416e-04_rb,2.7768e-04_rb,2.9081e-04_rb,3.0319e-04_rb/)
+      kbo(:,47, 4) = (/ &
+     &2.0428e-04_rb,2.1616e-04_rb,2.2794e-04_rb,2.3946e-04_rb,2.5046e-04_rb/)
+      kbo(:,48, 4) = (/ &
+     &1.6667e-04_rb,1.7701e-04_rb,1.8729e-04_rb,1.9740e-04_rb,2.0693e-04_rb/)
+      kbo(:,49, 4) = (/ &
+     &1.3611e-04_rb,1.4498e-04_rb,1.5402e-04_rb,1.6290e-04_rb,1.7121e-04_rb/)
+      kbo(:,50, 4) = (/ &
+     &1.1088e-04_rb,1.1847e-04_rb,1.2631e-04_rb,1.3390e-04_rb,1.4119e-04_rb/)
+      kbo(:,51, 4) = (/ &
+     &9.0216e-05_rb,9.6607e-05_rb,1.0331e-04_rb,1.0986e-04_rb,1.1615e-04_rb/)
+      kbo(:,52, 4) = (/ &
+     &7.3423e-05_rb,7.8834e-05_rb,8.4566e-05_rb,9.0143e-05_rb,9.5562e-05_rb/)
+      kbo(:,53, 4) = (/ &
+     &5.9754e-05_rb,6.4377e-05_rb,6.9227e-05_rb,7.4054e-05_rb,7.8692e-05_rb/)
+      kbo(:,54, 4) = (/ &
+     &4.8298e-05_rb,5.2166e-05_rb,5.6219e-05_rb,6.0246e-05_rb,6.4263e-05_rb/)
+      kbo(:,55, 4) = (/ &
+     &3.8831e-05_rb,4.2066e-05_rb,4.5431e-05_rb,4.8757e-05_rb,5.2064e-05_rb/)
+      kbo(:,56, 4) = (/ &
+     &3.1190e-05_rb,3.3925e-05_rb,3.6680e-05_rb,3.9437e-05_rb,4.2169e-05_rb/)
+      kbo(:,57, 4) = (/ &
+     &2.5026e-05_rb,2.7326e-05_rb,2.9588e-05_rb,3.1864e-05_rb,3.4154e-05_rb/)
+      kbo(:,58, 4) = (/ &
+     &2.0044e-05_rb,2.1985e-05_rb,2.3836e-05_rb,2.5731e-05_rb,2.7590e-05_rb/)
+      kbo(:,59, 4) = (/ &
+     &1.6187e-05_rb,1.7736e-05_rb,1.9214e-05_rb,2.0762e-05_rb,2.2244e-05_rb/)
+      kbo(:,13, 5) = (/ &
+     &1.6183e-01_rb,1.6388e-01_rb,1.6830e-01_rb,1.7476e-01_rb,1.8120e-01_rb/)
+      kbo(:,14, 5) = (/ &
+     &1.4136e-01_rb,1.4390e-01_rb,1.4614e-01_rb,1.5033e-01_rb,1.5561e-01_rb/)
+      kbo(:,15, 5) = (/ &
+     &1.2277e-01_rb,1.2594e-01_rb,1.2862e-01_rb,1.3140e-01_rb,1.3513e-01_rb/)
+      kbo(:,16, 5) = (/ &
+     &1.0716e-01_rb,1.1019e-01_rb,1.1295e-01_rb,1.1569e-01_rb,1.1878e-01_rb/)
+      kbo(:,17, 5) = (/ &
+     &9.2722e-02_rb,9.5517e-02_rb,9.8213e-02_rb,1.0105e-01_rb,1.0426e-01_rb/)
+      kbo(:,18, 5) = (/ &
+     &7.9838e-02_rb,8.2414e-02_rb,8.5010e-02_rb,8.8074e-02_rb,9.1598e-02_rb/)
+      kbo(:,19, 5) = (/ &
+     &6.8325e-02_rb,7.0740e-02_rb,7.3430e-02_rb,7.6659e-02_rb,8.0269e-02_rb/)
+      kbo(:,20, 5) = (/ &
+     &5.8275e-02_rb,6.0721e-02_rb,6.3630e-02_rb,6.6772e-02_rb,7.0098e-02_rb/)
+      kbo(:,21, 5) = (/ &
+     &4.9672e-02_rb,5.2190e-02_rb,5.4967e-02_rb,5.7853e-02_rb,6.0822e-02_rb/)
+      kbo(:,22, 5) = (/ &
+     &4.2534e-02_rb,4.4900e-02_rb,4.7398e-02_rb,4.9961e-02_rb,5.2416e-02_rb/)
+      kbo(:,23, 5) = (/ &
+     &3.6361e-02_rb,3.8477e-02_rb,4.0633e-02_rb,4.2770e-02_rb,4.4639e-02_rb/)
+      kbo(:,24, 5) = (/ &
+     &3.0984e-02_rb,3.2792e-02_rb,3.4594e-02_rb,3.6198e-02_rb,3.7541e-02_rb/)
+      kbo(:,25, 5) = (/ &
+     &2.6322e-02_rb,2.7818e-02_rb,2.9192e-02_rb,3.0375e-02_rb,3.1335e-02_rb/)
+      kbo(:,26, 5) = (/ &
+     &2.2285e-02_rb,2.3473e-02_rb,2.4485e-02_rb,2.5360e-02_rb,2.6084e-02_rb/)
+      kbo(:,27, 5) = (/ &
+     &1.8777e-02_rb,1.9670e-02_rb,2.0440e-02_rb,2.1104e-02_rb,2.1661e-02_rb/)
+      kbo(:,28, 5) = (/ &
+     &1.5739e-02_rb,1.6410e-02_rb,1.7009e-02_rb,1.7502e-02_rb,1.7957e-02_rb/)
+      kbo(:,29, 5) = (/ &
+     &1.3157e-02_rb,1.3689e-02_rb,1.4135e-02_rb,1.4550e-02_rb,1.4908e-02_rb/)
+      kbo(:,30, 5) = (/ &
+     &1.0985e-02_rb,1.1390e-02_rb,1.1749e-02_rb,1.2076e-02_rb,1.2372e-02_rb/)
+      kbo(:,31, 5) = (/ &
+     &9.1582e-03_rb,9.4742e-03_rb,9.7675e-03_rb,1.0044e-02_rb,1.0289e-02_rb/)
+      kbo(:,32, 5) = (/ &
+     &7.6339e-03_rb,7.8923e-03_rb,8.1271e-03_rb,8.3548e-03_rb,8.5695e-03_rb/)
+      kbo(:,33, 5) = (/ &
+     &6.3715e-03_rb,6.5845e-03_rb,6.7878e-03_rb,6.9736e-03_rb,7.1535e-03_rb/)
+      kbo(:,34, 5) = (/ &
+     &5.3224e-03_rb,5.5025e-03_rb,5.6652e-03_rb,5.8262e-03_rb,5.9749e-03_rb/)
+      kbo(:,35, 5) = (/ &
+     &4.4348e-03_rb,4.5841e-03_rb,4.7248e-03_rb,4.8589e-03_rb,4.9851e-03_rb/)
+      kbo(:,36, 5) = (/ &
+     &3.6880e-03_rb,3.8127e-03_rb,3.9338e-03_rb,4.0484e-03_rb,4.1576e-03_rb/)
+      kbo(:,37, 5) = (/ &
+     &3.0534e-03_rb,3.1615e-03_rb,3.2693e-03_rb,3.3693e-03_rb,3.4657e-03_rb/)
+      kbo(:,38, 5) = (/ &
+     &2.5332e-03_rb,2.6300e-03_rb,2.7225e-03_rb,2.8131e-03_rb,2.8939e-03_rb/)
+      kbo(:,39, 5) = (/ &
+     &2.1084e-03_rb,2.1961e-03_rb,2.2783e-03_rb,2.3583e-03_rb,2.4286e-03_rb/)
+      kbo(:,40, 5) = (/ &
+     &1.7458e-03_rb,1.8240e-03_rb,1.8981e-03_rb,1.9682e-03_rb,2.0283e-03_rb/)
+      kbo(:,41, 5) = (/ &
+     &1.4453e-03_rb,1.5145e-03_rb,1.5781e-03_rb,1.6391e-03_rb,1.6964e-03_rb/)
+      kbo(:,42, 5) = (/ &
+     &1.1954e-03_rb,1.2559e-03_rb,1.3113e-03_rb,1.3662e-03_rb,1.4193e-03_rb/)
+      kbo(:,43, 5) = (/ &
+     &9.8711e-04_rb,1.0388e-03_rb,1.0881e-03_rb,1.1376e-03_rb,1.1854e-03_rb/)
+      kbo(:,44, 5) = (/ &
+     &8.1670e-04_rb,8.6083e-04_rb,9.0273e-04_rb,9.4724e-04_rb,9.9183e-04_rb/)
+      kbo(:,45, 5) = (/ &
+     &6.7571e-04_rb,7.1462e-04_rb,7.5340e-04_rb,7.9241e-04_rb,8.3252e-04_rb/)
+      kbo(:,46, 5) = (/ &
+     &5.5868e-04_rb,5.9210e-04_rb,6.2784e-04_rb,6.6315e-04_rb,6.9901e-04_rb/)
+      kbo(:,47, 5) = (/ &
+     &4.6002e-04_rb,4.8924e-04_rb,5.2084e-04_rb,5.5250e-04_rb,5.8555e-04_rb/)
+      kbo(:,48, 5) = (/ &
+     &3.7900e-04_rb,4.0478e-04_rb,4.3312e-04_rb,4.6138e-04_rb,4.9219e-04_rb/)
+      kbo(:,49, 5) = (/ &
+     &3.1223e-04_rb,3.3515e-04_rb,3.6106e-04_rb,3.8737e-04_rb,4.1475e-04_rb/)
+      kbo(:,50, 5) = (/ &
+     &2.5631e-04_rb,2.7625e-04_rb,2.9941e-04_rb,3.2338e-04_rb,3.4759e-04_rb/)
+      kbo(:,51, 5) = (/ &
+     &2.0956e-04_rb,2.2726e-04_rb,2.4758e-04_rb,2.6894e-04_rb,2.9020e-04_rb/)
+      kbo(:,52, 5) = (/ &
+     &1.7113e-04_rb,1.8689e-04_rb,2.0470e-04_rb,2.2361e-04_rb,2.4260e-04_rb/)
+      kbo(:,53, 5) = (/ &
+     &1.3975e-04_rb,1.5381e-04_rb,1.6939e-04_rb,1.8611e-04_rb,2.0352e-04_rb/)
+      kbo(:,54, 5) = (/ &
+     &1.1323e-04_rb,1.2519e-04_rb,1.3824e-04_rb,1.5269e-04_rb,1.6768e-04_rb/)
+      kbo(:,55, 5) = (/ &
+     &9.1211e-05_rb,1.0111e-04_rb,1.1195e-04_rb,1.2407e-04_rb,1.3663e-04_rb/)
+      kbo(:,56, 5) = (/ &
+     &7.3375e-05_rb,8.1461e-05_rb,9.0533e-05_rb,1.0060e-04_rb,1.1119e-04_rb/)
+      kbo(:,57, 5) = (/ &
+     &5.8946e-05_rb,6.5535e-05_rb,7.3109e-05_rb,8.1511e-05_rb,9.0294e-05_rb/)
+      kbo(:,58, 5) = (/ &
+     &4.7323e-05_rb,5.2682e-05_rb,5.8966e-05_rb,6.5820e-05_rb,7.3137e-05_rb/)
+      kbo(:,59, 5) = (/ &
+     &3.8250e-05_rb,4.2565e-05_rb,4.7446e-05_rb,5.2866e-05_rb,5.8710e-05_rb/)
+      kbo(:,13, 6) = (/ &
+     &2.7197e-01_rb,2.7739e-01_rb,2.8096e-01_rb,2.8231e-01_rb,2.8660e-01_rb/)
+      kbo(:,14, 6) = (/ &
+     &2.4407e-01_rb,2.4904e-01_rb,2.5343e-01_rb,2.5569e-01_rb,2.5783e-01_rb/)
+      kbo(:,15, 6) = (/ &
+     &2.1616e-01_rb,2.2099e-01_rb,2.2537e-01_rb,2.2864e-01_rb,2.3140e-01_rb/)
+      kbo(:,16, 6) = (/ &
+     &1.9106e-01_rb,1.9585e-01_rb,1.9991e-01_rb,2.0367e-01_rb,2.0768e-01_rb/)
+      kbo(:,17, 6) = (/ &
+     &1.6891e-01_rb,1.7330e-01_rb,1.7742e-01_rb,1.8116e-01_rb,1.8548e-01_rb/)
+      kbo(:,18, 6) = (/ &
+     &1.4873e-01_rb,1.5292e-01_rb,1.5684e-01_rb,1.6048e-01_rb,1.6482e-01_rb/)
+      kbo(:,19, 6) = (/ &
+     &1.3023e-01_rb,1.3403e-01_rb,1.3773e-01_rb,1.4155e-01_rb,1.4625e-01_rb/)
+      kbo(:,20, 6) = (/ &
+     &1.1343e-01_rb,1.1684e-01_rb,1.2043e-01_rb,1.2478e-01_rb,1.2990e-01_rb/)
+      kbo(:,21, 6) = (/ &
+     &9.8160e-02_rb,1.0135e-01_rb,1.0525e-01_rb,1.1007e-01_rb,1.1526e-01_rb/)
+      kbo(:,22, 6) = (/ &
+     &8.4655e-02_rb,8.8120e-02_rb,9.2429e-02_rb,9.7184e-02_rb,1.0215e-01_rb/)
+      kbo(:,23, 6) = (/ &
+     &7.3019e-02_rb,7.6775e-02_rb,8.1076e-02_rb,8.5515e-02_rb,9.0104e-02_rb/)
+      kbo(:,24, 6) = (/ &
+     &6.3162e-02_rb,6.6861e-02_rb,7.0760e-02_rb,7.4872e-02_rb,7.8956e-02_rb/)
+      kbo(:,25, 6) = (/ &
+     &5.4670e-02_rb,5.8059e-02_rb,6.1565e-02_rb,6.5142e-02_rb,6.8514e-02_rb/)
+      kbo(:,26, 6) = (/ &
+     &4.7238e-02_rb,5.0243e-02_rb,5.3330e-02_rb,5.6237e-02_rb,5.8783e-02_rb/)
+      kbo(:,27, 6) = (/ &
+     &4.0718e-02_rb,4.3335e-02_rb,4.5897e-02_rb,4.8107e-02_rb,4.9970e-02_rb/)
+      kbo(:,28, 6) = (/ &
+     &3.4992e-02_rb,3.7210e-02_rb,3.9178e-02_rb,4.0837e-02_rb,4.2251e-02_rb/)
+      kbo(:,29, 6) = (/ &
+     &2.9986e-02_rb,3.1757e-02_rb,3.3246e-02_rb,3.4515e-02_rb,3.5697e-02_rb/)
+      kbo(:,30, 6) = (/ &
+     &2.5598e-02_rb,2.6947e-02_rb,2.8105e-02_rb,2.9142e-02_rb,3.0127e-02_rb/)
+      kbo(:,31, 6) = (/ &
+     &2.1742e-02_rb,2.2800e-02_rb,2.3733e-02_rb,2.4625e-02_rb,2.5488e-02_rb/)
+      kbo(:,32, 6) = (/ &
+     &1.8409e-02_rb,1.9261e-02_rb,2.0062e-02_rb,2.0837e-02_rb,2.1556e-02_rb/)
+      kbo(:,33, 6) = (/ &
+     &1.5564e-02_rb,1.6264e-02_rb,1.6973e-02_rb,1.7637e-02_rb,1.8281e-02_rb/)
+      kbo(:,34, 6) = (/ &
+     &1.3120e-02_rb,1.3750e-02_rb,1.4364e-02_rb,1.4950e-02_rb,1.5574e-02_rb/)
+      kbo(:,35, 6) = (/ &
+     &1.1037e-02_rb,1.1597e-02_rb,1.2120e-02_rb,1.2671e-02_rb,1.3247e-02_rb/)
+      kbo(:,36, 6) = (/ &
+     &9.2368e-03_rb,9.7140e-03_rb,1.0180e-02_rb,1.0677e-02_rb,1.1200e-02_rb/)
+      kbo(:,37, 6) = (/ &
+     &7.7240e-03_rb,8.1368e-03_rb,8.5470e-03_rb,8.9958e-03_rb,9.4504e-03_rb/)
+      kbo(:,38, 6) = (/ &
+     &6.4758e-03_rb,6.8295e-03_rb,7.1958e-03_rb,7.5972e-03_rb,8.0066e-03_rb/)
+      kbo(:,39, 6) = (/ &
+     &5.4501e-03_rb,5.7576e-03_rb,6.0862e-03_rb,6.4345e-03_rb,6.8065e-03_rb/)
+      kbo(:,40, 6) = (/ &
+     &4.5611e-03_rb,4.8311e-03_rb,5.1160e-03_rb,5.4160e-03_rb,5.7404e-03_rb/)
+      kbo(:,41, 6) = (/ &
+     &3.8156e-03_rb,4.0605e-03_rb,4.3157e-03_rb,4.5812e-03_rb,4.8631e-03_rb/)
+      kbo(:,42, 6) = (/ &
+     &3.1991e-03_rb,3.4174e-03_rb,3.6479e-03_rb,3.8959e-03_rb,4.1438e-03_rb/)
+      kbo(:,43, 6) = (/ &
+     &2.6778e-03_rb,2.8754e-03_rb,3.0830e-03_rb,3.3106e-03_rb,3.5418e-03_rb/)
+      kbo(:,44, 6) = (/ &
+     &2.2384e-03_rb,2.4221e-03_rb,2.6165e-03_rb,2.8279e-03_rb,3.0365e-03_rb/)
+      kbo(:,45, 6) = (/ &
+     &1.8762e-03_rb,2.0454e-03_rb,2.2217e-03_rb,2.4182e-03_rb,2.6139e-03_rb/)
+      kbo(:,46, 6) = (/ &
+     &1.5669e-03_rb,1.7239e-03_rb,1.8868e-03_rb,2.0694e-03_rb,2.2548e-03_rb/)
+      kbo(:,47, 6) = (/ &
+     &1.2965e-03_rb,1.4378e-03_rb,1.5876e-03_rb,1.7568e-03_rb,1.9326e-03_rb/)
+      kbo(:,48, 6) = (/ &
+     &1.0774e-03_rb,1.2001e-03_rb,1.3389e-03_rb,1.4948e-03_rb,1.6630e-03_rb/)
+      kbo(:,49, 6) = (/ &
+     &8.9852e-04_rb,1.0105e-03_rb,1.1309e-03_rb,1.2754e-03_rb,1.4391e-03_rb/)
+      kbo(:,50, 6) = (/ &
+     &7.4445e-04_rb,8.4643e-04_rb,9.5631e-04_rb,1.0809e-03_rb,1.2318e-03_rb/)
+      kbo(:,51, 6) = (/ &
+     &6.1558e-04_rb,7.0452e-04_rb,8.0429e-04_rb,9.1653e-04_rb,1.0518e-03_rb/)
+      kbo(:,52, 6) = (/ &
+     &5.0970e-04_rb,5.8893e-04_rb,6.7706e-04_rb,7.7959e-04_rb,9.0341e-04_rb/)
+      kbo(:,53, 6) = (/ &
+     &4.2152e-04_rb,4.9282e-04_rb,5.7291e-04_rb,6.6638e-04_rb,7.8149e-04_rb/)
+      kbo(:,54, 6) = (/ &
+     &3.4337e-04_rb,4.0415e-04_rb,4.7438e-04_rb,5.5660e-04_rb,6.5618e-04_rb/)
+      kbo(:,55, 6) = (/ &
+     &2.7643e-04_rb,3.2706e-04_rb,3.8585e-04_rb,4.5635e-04_rb,5.3989e-04_rb/)
+      kbo(:,56, 6) = (/ &
+     &2.2200e-04_rb,2.6388e-04_rb,3.1337e-04_rb,3.7328e-04_rb,4.4370e-04_rb/)
+      kbo(:,57, 6) = (/ &
+     &1.7748e-04_rb,2.1244e-04_rb,2.5395e-04_rb,3.0395e-04_rb,3.6371e-04_rb/)
+      kbo(:,58, 6) = (/ &
+     &1.4157e-04_rb,1.7062e-04_rb,2.0500e-04_rb,2.4610e-04_rb,2.9686e-04_rb/)
+      kbo(:,59, 6) = (/ &
+     &1.1414e-04_rb,1.3738e-04_rb,1.6469e-04_rb,1.9701e-04_rb,2.3735e-04_rb/)
+      kbo(:,13, 7) = (/ &
+     &4.6955e-01_rb,4.7919e-01_rb,4.8757e-01_rb,4.9335e-01_rb,4.9501e-01_rb/)
+      kbo(:,14, 7) = (/ &
+     &4.3446e-01_rb,4.4412e-01_rb,4.5217e-01_rb,4.5833e-01_rb,4.6211e-01_rb/)
+      kbo(:,15, 7) = (/ &
+     &3.9856e-01_rb,4.0695e-01_rb,4.1403e-01_rb,4.2050e-01_rb,4.2565e-01_rb/)
+      kbo(:,16, 7) = (/ &
+     &3.6468e-01_rb,3.7159e-01_rb,3.7817e-01_rb,3.8407e-01_rb,3.8859e-01_rb/)
+      kbo(:,17, 7) = (/ &
+     &3.3137e-01_rb,3.3763e-01_rb,3.4358e-01_rb,3.4927e-01_rb,3.5406e-01_rb/)
+      kbo(:,18, 7) = (/ &
+     &2.9961e-01_rb,3.0527e-01_rb,3.1117e-01_rb,3.1677e-01_rb,3.2160e-01_rb/)
+      kbo(:,19, 7) = (/ &
+     &2.6897e-01_rb,2.7470e-01_rb,2.8068e-01_rb,2.8609e-01_rb,2.9127e-01_rb/)
+      kbo(:,20, 7) = (/ &
+     &2.4079e-01_rb,2.4662e-01_rb,2.5228e-01_rb,2.5749e-01_rb,2.6294e-01_rb/)
+      kbo(:,21, 7) = (/ &
+     &2.1419e-01_rb,2.1985e-01_rb,2.2509e-01_rb,2.3029e-01_rb,2.3688e-01_rb/)
+      kbo(:,22, 7) = (/ &
+     &1.8948e-01_rb,1.9472e-01_rb,1.9983e-01_rb,2.0584e-01_rb,2.1394e-01_rb/)
+      kbo(:,23, 7) = (/ &
+     &1.6639e-01_rb,1.7145e-01_rb,1.7716e-01_rb,1.8457e-01_rb,1.9389e-01_rb/)
+      kbo(:,24, 7) = (/ &
+     &1.4538e-01_rb,1.5085e-01_rb,1.5765e-01_rb,1.6633e-01_rb,1.7588e-01_rb/)
+      kbo(:,25, 7) = (/ &
+     &1.2705e-01_rb,1.3331e-01_rb,1.4121e-01_rb,1.5025e-01_rb,1.5987e-01_rb/)
+      kbo(:,26, 7) = (/ &
+     &1.1163e-01_rb,1.1872e-01_rb,1.2704e-01_rb,1.3598e-01_rb,1.4549e-01_rb/)
+      kbo(:,27, 7) = (/ &
+     &9.8775e-02_rb,1.0620e-01_rb,1.1436e-01_rb,1.2321e-01_rb,1.3236e-01_rb/)
+      kbo(:,28, 7) = (/ &
+     &8.7819e-02_rb,9.5125e-02_rb,1.0304e-01_rb,1.1161e-01_rb,1.2007e-01_rb/)
+      kbo(:,29, 7) = (/ &
+     &7.8356e-02_rb,8.5376e-02_rb,9.3117e-02_rb,1.0101e-01_rb,1.0879e-01_rb/)
+      kbo(:,30, 7) = (/ &
+     &7.0020e-02_rb,7.6849e-02_rb,8.4078e-02_rb,9.1302e-02_rb,9.8416e-02_rb/)
+      kbo(:,31, 7) = (/ &
+     &6.2819e-02_rb,6.9270e-02_rb,7.5879e-02_rb,8.2483e-02_rb,8.8967e-02_rb/)
+      kbo(:,32, 7) = (/ &
+     &5.6483e-02_rb,6.2430e-02_rb,6.8481e-02_rb,7.4539e-02_rb,8.0648e-02_rb/)
+      kbo(:,33, 7) = (/ &
+     &5.0860e-02_rb,5.6316e-02_rb,6.1885e-02_rb,6.7612e-02_rb,7.3808e-02_rb/)
+      kbo(:,34, 7) = (/ &
+     &4.5682e-02_rb,5.0745e-02_rb,5.5935e-02_rb,6.1551e-02_rb,6.7601e-02_rb/)
+      kbo(:,35, 7) = (/ &
+     &4.0692e-02_rb,4.5316e-02_rb,5.0264e-02_rb,5.5834e-02_rb,6.1807e-02_rb/)
+      kbo(:,36, 7) = (/ &
+     &3.5794e-02_rb,4.0089e-02_rb,4.4914e-02_rb,5.0304e-02_rb,5.6176e-02_rb/)
+      kbo(:,37, 7) = (/ &
+     &3.0961e-02_rb,3.4978e-02_rb,3.9573e-02_rb,4.4775e-02_rb,5.0561e-02_rb/)
+      kbo(:,38, 7) = (/ &
+     &2.6776e-02_rb,3.0559e-02_rb,3.4968e-02_rb,3.9997e-02_rb,4.5685e-02_rb/)
+      kbo(:,39, 7) = (/ &
+     &2.3185e-02_rb,2.6765e-02_rb,3.1022e-02_rb,3.5959e-02_rb,4.1519e-02_rb/)
+      kbo(:,40, 7) = (/ &
+     &1.9763e-02_rb,2.3065e-02_rb,2.7085e-02_rb,3.1775e-02_rb,3.7215e-02_rb/)
+      kbo(:,41, 7) = (/ &
+     &1.6812e-02_rb,1.9830e-02_rb,2.3604e-02_rb,2.8085e-02_rb,3.3399e-02_rb/)
+      kbo(:,42, 7) = (/ &
+     &1.4318e-02_rb,1.7069e-02_rb,2.0605e-02_rb,2.4882e-02_rb,3.0046e-02_rb/)
+      kbo(:,43, 7) = (/ &
+     &1.2083e-02_rb,1.4567e-02_rb,1.7802e-02_rb,2.1853e-02_rb,2.6807e-02_rb/)
+      kbo(:,44, 7) = (/ &
+     &1.0170e-02_rb,1.2372e-02_rb,1.5314e-02_rb,1.9108e-02_rb,2.3821e-02_rb/)
+      kbo(:,45, 7) = (/ &
+     &8.6090e-03_rb,1.0534e-02_rb,1.3191e-02_rb,1.6726e-02_rb,2.1197e-02_rb/)
+      kbo(:,46, 7) = (/ &
+     &7.3022e-03_rb,8.9907e-03_rb,1.1353e-02_rb,1.4581e-02_rb,1.8771e-02_rb/)
+      kbo(:,47, 7) = (/ &
+     &6.1213e-03_rb,7.6431e-03_rb,9.7321e-03_rb,1.2583e-02_rb,1.6455e-02_rb/)
+      kbo(:,48, 7) = (/ &
+     &5.1186e-03_rb,6.5188e-03_rb,8.4138e-03_rb,1.0987e-02_rb,1.4502e-02_rb/)
+      kbo(:,49, 7) = (/ &
+     &4.2957e-03_rb,5.5597e-03_rb,7.3442e-03_rb,9.7283e-03_rb,1.2936e-02_rb/)
+      kbo(:,50, 7) = (/ &
+     &3.6145e-03_rb,4.7398e-03_rb,6.3555e-03_rb,8.6287e-03_rb,1.1590e-02_rb/)
+      kbo(:,51, 7) = (/ &
+     &3.0102e-03_rb,4.0430e-03_rb,5.4860e-03_rb,7.5896e-03_rb,1.0447e-02_rb/)
+      kbo(:,52, 7) = (/ &
+     &2.4958e-03_rb,3.4406e-03_rb,4.7896e-03_rb,6.7274e-03_rb,9.4519e-03_rb/)
+      kbo(:,53, 7) = (/ &
+     &2.0685e-03_rb,2.9229e-03_rb,4.2030e-03_rb,6.0566e-03_rb,8.6137e-03_rb/)
+      kbo(:,54, 7) = (/ &
+     &1.6899e-03_rb,2.4174e-03_rb,3.5607e-03_rb,5.2595e-03_rb,7.6384e-03_rb/)
+      kbo(:,55, 7) = (/ &
+     &1.3559e-03_rb,1.9570e-03_rb,2.9412e-03_rb,4.4253e-03_rb,6.5827e-03_rb/)
+      kbo(:,56, 7) = (/ &
+     &1.0806e-03_rb,1.5745e-03_rb,2.4094e-03_rb,3.7108e-03_rb,5.6277e-03_rb/)
+      kbo(:,57, 7) = (/ &
+     &8.5457e-04_rb,1.2632e-03_rb,1.9536e-03_rb,3.0874e-03_rb,4.7870e-03_rb/)
+      kbo(:,58, 7) = (/ &
+     &6.7302e-04_rb,1.0065e-03_rb,1.5736e-03_rb,2.5427e-03_rb,4.0334e-03_rb/)
+      kbo(:,59, 7) = (/ &
+     &5.4147e-04_rb,8.1396e-04_rb,1.2891e-03_rb,2.1042e-03_rb,3.3560e-03_rb/)
+      kbo(:,13, 8) = (/ &
+     &8.0034e-01_rb,8.1640e-01_rb,8.3288e-01_rb,8.4808e-01_rb,8.6148e-01_rb/)
+      kbo(:,14, 8) = (/ &
+     &7.8054e-01_rb,7.9433e-01_rb,8.0919e-01_rb,8.2411e-01_rb,8.3905e-01_rb/)
+      kbo(:,15, 8) = (/ &
+     &7.5909e-01_rb,7.7248e-01_rb,7.8592e-01_rb,7.9872e-01_rb,8.1170e-01_rb/)
+      kbo(:,16, 8) = (/ &
+     &7.3580e-01_rb,7.4804e-01_rb,7.6085e-01_rb,7.7248e-01_rb,7.8295e-01_rb/)
+      kbo(:,17, 8) = (/ &
+     &7.0630e-01_rb,7.1844e-01_rb,7.2965e-01_rb,7.3912e-01_rb,7.4743e-01_rb/)
+      kbo(:,18, 8) = (/ &
+     &6.7101e-01_rb,6.8279e-01_rb,6.9322e-01_rb,7.0102e-01_rb,7.0887e-01_rb/)
+      kbo(:,19, 8) = (/ &
+     &6.2981e-01_rb,6.4055e-01_rb,6.4979e-01_rb,6.5773e-01_rb,6.6515e-01_rb/)
+      kbo(:,20, 8) = (/ &
+     &5.8544e-01_rb,5.9608e-01_rb,6.0511e-01_rb,6.1342e-01_rb,6.2187e-01_rb/)
+      kbo(:,21, 8) = (/ &
+     &5.3944e-01_rb,5.5063e-01_rb,5.6005e-01_rb,5.6946e-01_rb,5.7856e-01_rb/)
+      kbo(:,22, 8) = (/ &
+     &4.9436e-01_rb,5.0585e-01_rb,5.1644e-01_rb,5.2703e-01_rb,5.3664e-01_rb/)
+      kbo(:,23, 8) = (/ &
+     &4.5102e-01_rb,4.6300e-01_rb,4.7455e-01_rb,4.8579e-01_rb,4.9663e-01_rb/)
+      kbo(:,24, 8) = (/ &
+     &4.0950e-01_rb,4.2198e-01_rb,4.3426e-01_rb,4.4606e-01_rb,4.5946e-01_rb/)
+      kbo(:,25, 8) = (/ &
+     &3.7091e-01_rb,3.8365e-01_rb,3.9643e-01_rb,4.1000e-01_rb,4.2576e-01_rb/)
+      kbo(:,26, 8) = (/ &
+     &3.3534e-01_rb,3.4839e-01_rb,3.6241e-01_rb,3.7838e-01_rb,3.9777e-01_rb/)
+      kbo(:,27, 8) = (/ &
+     &3.0274e-01_rb,3.1698e-01_rb,3.3298e-01_rb,3.5138e-01_rb,3.7450e-01_rb/)
+      kbo(:,28, 8) = (/ &
+     &2.7401e-01_rb,2.8968e-01_rb,3.0792e-01_rb,3.3011e-01_rb,3.5579e-01_rb/)
+      kbo(:,29, 8) = (/ &
+     &2.4984e-01_rb,2.6749e-01_rb,2.8805e-01_rb,3.1339e-01_rb,3.4148e-01_rb/)
+      kbo(:,30, 8) = (/ &
+     &2.2976e-01_rb,2.4923e-01_rb,2.7317e-01_rb,3.0058e-01_rb,3.3054e-01_rb/)
+      kbo(:,31, 8) = (/ &
+     &2.1378e-01_rb,2.3592e-01_rb,2.6234e-01_rb,2.9177e-01_rb,3.2355e-01_rb/)
+      kbo(:,32, 8) = (/ &
+     &2.0184e-01_rb,2.2666e-01_rb,2.5501e-01_rb,2.8631e-01_rb,3.1911e-01_rb/)
+      kbo(:,33, 8) = (/ &
+     &1.9381e-01_rb,2.2050e-01_rb,2.5091e-01_rb,2.8341e-01_rb,3.1739e-01_rb/)
+      kbo(:,34, 8) = (/ &
+     &1.8744e-01_rb,2.1594e-01_rb,2.4774e-01_rb,2.8137e-01_rb,3.1632e-01_rb/)
+      kbo(:,35, 8) = (/ &
+     &1.8056e-01_rb,2.1069e-01_rb,2.4353e-01_rb,2.7798e-01_rb,3.1405e-01_rb/)
+      kbo(:,36, 8) = (/ &
+     &1.7277e-01_rb,2.0381e-01_rb,2.3716e-01_rb,2.7253e-01_rb,3.0956e-01_rb/)
+      kbo(:,37, 8) = (/ &
+     &1.6168e-01_rb,1.9289e-01_rb,2.2650e-01_rb,2.6234e-01_rb,2.9987e-01_rb/)
+      kbo(:,38, 8) = (/ &
+     &1.5148e-01_rb,1.8272e-01_rb,2.1663e-01_rb,2.5277e-01_rb,2.9084e-01_rb/)
+      kbo(:,39, 8) = (/ &
+     &1.4247e-01_rb,1.7365e-01_rb,2.0770e-01_rb,2.4421e-01_rb,2.8306e-01_rb/)
+      kbo(:,40, 8) = (/ &
+     &1.3121e-01_rb,1.6190e-01_rb,1.9569e-01_rb,2.3227e-01_rb,2.7141e-01_rb/)
+      kbo(:,41, 8) = (/ &
+     &1.2044e-01_rb,1.5044e-01_rb,1.8388e-01_rb,2.2048e-01_rb,2.5951e-01_rb/)
+      kbo(:,42, 8) = (/ &
+     &1.1043e-01_rb,1.3967e-01_rb,1.7269e-01_rb,2.0919e-01_rb,2.4811e-01_rb/)
+      kbo(:,43, 8) = (/ &
+     &9.9679e-02_rb,1.2792e-01_rb,1.6034e-01_rb,1.9622e-01_rb,2.3472e-01_rb/)
+      kbo(:,44, 8) = (/ &
+     &8.9034e-02_rb,1.1631e-01_rb,1.4764e-01_rb,1.8285e-01_rb,2.2093e-01_rb/)
+      kbo(:,45, 8) = (/ &
+     &7.9054e-02_rb,1.0536e-01_rb,1.3566e-01_rb,1.6992e-01_rb,2.0745e-01_rb/)
+      kbo(:,46, 8) = (/ &
+     &6.9318e-02_rb,9.4501e-02_rb,1.2377e-01_rb,1.5667e-01_rb,1.9349e-01_rb/)
+      kbo(:,47, 8) = (/ &
+     &5.9551e-02_rb,8.3032e-02_rb,1.1103e-01_rb,1.4286e-01_rb,1.7816e-01_rb/)
+      kbo(:,48, 8) = (/ &
+     &5.0798e-02_rb,7.2525e-02_rb,9.9035e-02_rb,1.2969e-01_rb,1.6375e-01_rb/)
+      kbo(:,49, 8) = (/ &
+     &4.3152e-02_rb,6.3003e-02_rb,8.7833e-02_rb,1.1716e-01_rb,1.5024e-01_rb/)
+      kbo(:,50, 8) = (/ &
+     &3.6793e-02_rb,5.4813e-02_rb,7.7929e-02_rb,1.0576e-01_rb,1.3787e-01_rb/)
+      kbo(:,51, 8) = (/ &
+     &3.1426e-02_rb,4.7509e-02_rb,6.8953e-02_rb,9.5149e-02_rb,1.2582e-01_rb/)
+      kbo(:,52, 8) = (/ &
+     &2.6907e-02_rb,4.1306e-02_rb,6.0841e-02_rb,8.5477e-02_rb,1.1483e-01_rb/)
+      kbo(:,53, 8) = (/ &
+     &2.3168e-02_rb,3.6049e-02_rb,5.3816e-02_rb,7.6669e-02_rb,1.0462e-01_rb/)
+      kbo(:,54, 8) = (/ &
+     &1.9633e-02_rb,3.1217e-02_rb,4.7423e-02_rb,6.8592e-02_rb,9.4967e-02_rb/)
+      kbo(:,55, 8) = (/ &
+     &1.6386e-02_rb,2.6769e-02_rb,4.1346e-02_rb,6.0965e-02_rb,8.5476e-02_rb/)
+      kbo(:,56, 8) = (/ &
+     &1.3620e-02_rb,2.2714e-02_rb,3.5826e-02_rb,5.3847e-02_rb,7.6755e-02_rb/)
+      kbo(:,57, 8) = (/ &
+     &1.1197e-02_rb,1.9124e-02_rb,3.0904e-02_rb,4.7282e-02_rb,6.8602e-02_rb/)
+      kbo(:,58, 8) = (/ &
+     &9.1481e-03_rb,1.6046e-02_rb,2.6605e-02_rb,4.1371e-02_rb,6.1207e-02_rb/)
+      kbo(:,59, 8) = (/ &
+     &7.9051e-03_rb,1.4193e-02_rb,2.3774e-02_rb,3.7742e-02_rb,5.6658e-02_rb/)
+      kbo(:,13, 9) = (/ &
+     &1.3350e+00_rb,1.3653e+00_rb,1.3981e+00_rb,1.4396e+00_rb,1.4753e+00_rb/)
+      kbo(:,14, 9) = (/ &
+     &1.4178e+00_rb,1.4520e+00_rb,1.4843e+00_rb,1.5206e+00_rb,1.5583e+00_rb/)
+      kbo(:,15, 9) = (/ &
+     &1.4732e+00_rb,1.5083e+00_rb,1.5396e+00_rb,1.5755e+00_rb,1.6045e+00_rb/)
+      kbo(:,16, 9) = (/ &
+     &1.5430e+00_rb,1.5830e+00_rb,1.6160e+00_rb,1.6547e+00_rb,1.6902e+00_rb/)
+      kbo(:,17, 9) = (/ &
+     &1.6452e+00_rb,1.6845e+00_rb,1.7176e+00_rb,1.7564e+00_rb,1.7915e+00_rb/)
+      kbo(:,18, 9) = (/ &
+     &1.7229e+00_rb,1.7605e+00_rb,1.7922e+00_rb,1.8300e+00_rb,1.8621e+00_rb/)
+      kbo(:,19, 9) = (/ &
+     &1.7775e+00_rb,1.8140e+00_rb,1.8454e+00_rb,1.8798e+00_rb,1.9094e+00_rb/)
+      kbo(:,20, 9) = (/ &
+     &1.8038e+00_rb,1.8386e+00_rb,1.8699e+00_rb,1.9034e+00_rb,1.9311e+00_rb/)
+      kbo(:,21, 9) = (/ &
+     &1.8050e+00_rb,1.8386e+00_rb,1.8712e+00_rb,1.9046e+00_rb,1.9320e+00_rb/)
+      kbo(:,22, 9) = (/ &
+     &1.7869e+00_rb,1.8213e+00_rb,1.8557e+00_rb,1.8890e+00_rb,1.9178e+00_rb/)
+      kbo(:,23, 9) = (/ &
+     &1.7516e+00_rb,1.7874e+00_rb,1.8248e+00_rb,1.8592e+00_rb,1.8901e+00_rb/)
+      kbo(:,24, 9) = (/ &
+     &1.7051e+00_rb,1.7440e+00_rb,1.7841e+00_rb,1.8220e+00_rb,1.8561e+00_rb/)
+      kbo(:,25, 9) = (/ &
+     &1.6513e+00_rb,1.6948e+00_rb,1.7396e+00_rb,1.7805e+00_rb,1.8194e+00_rb/)
+      kbo(:,26, 9) = (/ &
+     &1.5955e+00_rb,1.6454e+00_rb,1.6945e+00_rb,1.7402e+00_rb,1.7819e+00_rb/)
+      kbo(:,27, 9) = (/ &
+     &1.5421e+00_rb,1.5985e+00_rb,1.6517e+00_rb,1.7028e+00_rb,1.7485e+00_rb/)
+      kbo(:,28, 9) = (/ &
+     &1.4940e+00_rb,1.5568e+00_rb,1.6151e+00_rb,1.6694e+00_rb,1.7213e+00_rb/)
+      kbo(:,29, 9) = (/ &
+     &1.4533e+00_rb,1.5206e+00_rb,1.5846e+00_rb,1.6444e+00_rb,1.7003e+00_rb/)
+      kbo(:,30, 9) = (/ &
+     &1.4208e+00_rb,1.4930e+00_rb,1.5618e+00_rb,1.6263e+00_rb,1.6869e+00_rb/)
+      kbo(:,31, 9) = (/ &
+     &1.3961e+00_rb,1.4744e+00_rb,1.5474e+00_rb,1.6161e+00_rb,1.6805e+00_rb/)
+      kbo(:,32, 9) = (/ &
+     &1.3821e+00_rb,1.4633e+00_rb,1.5401e+00_rb,1.6122e+00_rb,1.6817e+00_rb/)
+      kbo(:,33, 9) = (/ &
+     &1.3749e+00_rb,1.4598e+00_rb,1.5393e+00_rb,1.6160e+00_rb,1.6953e+00_rb/)
+      kbo(:,34, 9) = (/ &
+     &1.3713e+00_rb,1.4588e+00_rb,1.5429e+00_rb,1.6218e+00_rb,1.7156e+00_rb/)
+      kbo(:,35, 9) = (/ &
+     &1.3644e+00_rb,1.4561e+00_rb,1.5422e+00_rb,1.6338e+00_rb,1.7288e+00_rb/)
+      kbo(:,36, 9) = (/ &
+     &1.3516e+00_rb,1.4466e+00_rb,1.5348e+00_rb,1.6360e+00_rb,1.7340e+00_rb/)
+      kbo(:,37, 9) = (/ &
+     &1.3275e+00_rb,1.4250e+00_rb,1.5169e+00_rb,1.6237e+00_rb,1.7238e+00_rb/)
+      kbo(:,38, 9) = (/ &
+     &1.3040e+00_rb,1.4043e+00_rb,1.5021e+00_rb,1.6114e+00_rb,1.7135e+00_rb/)
+      kbo(:,39, 9) = (/ &
+     &1.2823e+00_rb,1.3849e+00_rb,1.4910e+00_rb,1.6008e+00_rb,1.7062e+00_rb/)
+      kbo(:,40, 9) = (/ &
+     &1.2494e+00_rb,1.3552e+00_rb,1.4636e+00_rb,1.5759e+00_rb,1.6836e+00_rb/)
+      kbo(:,41, 9) = (/ &
+     &1.2158e+00_rb,1.3244e+00_rb,1.4340e+00_rb,1.5489e+00_rb,1.6593e+00_rb/)
+      kbo(:,42, 9) = (/ &
+     &1.1826e+00_rb,1.2939e+00_rb,1.4045e+00_rb,1.5221e+00_rb,1.6360e+00_rb/)
+      kbo(:,43, 9) = (/ &
+     &1.1430e+00_rb,1.2570e+00_rb,1.3680e+00_rb,1.4889e+00_rb,1.6061e+00_rb/)
+      kbo(:,44, 9) = (/ &
+     &1.1001e+00_rb,1.2164e+00_rb,1.3282e+00_rb,1.4525e+00_rb,1.5734e+00_rb/)
+      kbo(:,45, 9) = (/ &
+     &1.0569e+00_rb,1.1761e+00_rb,1.2894e+00_rb,1.4161e+00_rb,1.5408e+00_rb/)
+      kbo(:,46, 9) = (/ &
+     &1.0113e+00_rb,1.1324e+00_rb,1.2480e+00_rb,1.3769e+00_rb,1.5047e+00_rb/)
+      kbo(:,47, 9) = (/ &
+     &9.5935e-01_rb,1.0831e+00_rb,1.2009e+00_rb,1.3301e+00_rb,1.4611e+00_rb/)
+      kbo(:,48, 9) = (/ &
+     &9.0670e-01_rb,1.0329e+00_rb,1.1535e+00_rb,1.2830e+00_rb,1.4185e+00_rb/)
+      kbo(:,49, 9) = (/ &
+     &8.5414e-01_rb,9.8225e-01_rb,1.1056e+00_rb,1.2370e+00_rb,1.3774e+00_rb/)
+      kbo(:,50, 9) = (/ &
+     &8.0339e-01_rb,9.3369e-01_rb,1.0592e+00_rb,1.1907e+00_rb,1.3340e+00_rb/)
+      kbo(:,51, 9) = (/ &
+     &7.5351e-01_rb,8.8571e-01_rb,1.0133e+00_rb,1.1450e+00_rb,1.2894e+00_rb/)
+      kbo(:,52, 9) = (/ &
+     &7.0363e-01_rb,8.3718e-01_rb,9.6715e-01_rb,1.0991e+00_rb,1.2446e+00_rb/)
+      kbo(:,53, 9) = (/ &
+     &6.5356e-01_rb,7.8813e-01_rb,9.1966e-01_rb,1.0529e+00_rb,1.2015e+00_rb/)
+      kbo(:,54, 9) = (/ &
+     &6.0842e-01_rb,7.4258e-01_rb,8.7513e-01_rb,1.0061e+00_rb,1.1543e+00_rb/)
+      kbo(:,55, 9) = (/ &
+     &5.6587e-01_rb,6.9834e-01_rb,8.3229e-01_rb,9.6266e-01_rb,1.1037e+00_rb/)
+      kbo(:,56, 9) = (/ &
+     &5.2358e-01_rb,6.5442e-01_rb,7.8939e-01_rb,9.2104e-01_rb,1.0541e+00_rb/)
+      kbo(:,57, 9) = (/ &
+     &4.8183e-01_rb,6.1174e-01_rb,7.4558e-01_rb,8.7862e-01_rb,1.0077e+00_rb/)
+      kbo(:,58, 9) = (/ &
+     &4.4300e-01_rb,5.7151e-01_rb,7.0375e-01_rb,8.3825e-01_rb,9.6862e-01_rb/)
+      kbo(:,59, 9) = (/ &
+     &4.2745e-01_rb,5.5483e-01_rb,6.8739e-01_rb,8.2045e-01_rb,9.5225e-01_rb/)
+      kbo(:,13,10) = (/ &
+     &1.9893e+00_rb,1.9563e+00_rb,1.9174e+00_rb,1.9426e+00_rb,2.0503e+00_rb/)
+      kbo(:,14,10) = (/ &
+     &1.9716e+00_rb,2.0101e+00_rb,2.0332e+00_rb,2.0825e+00_rb,2.0990e+00_rb/)
+      kbo(:,15,10) = (/ &
+     &2.2404e+00_rb,2.3114e+00_rb,2.3474e+00_rb,2.4414e+00_rb,2.5235e+00_rb/)
+      kbo(:,16,10) = (/ &
+     &2.6948e+00_rb,2.7693e+00_rb,2.8500e+00_rb,2.9277e+00_rb,3.0098e+00_rb/)
+      kbo(:,17,10) = (/ &
+     &2.9786e+00_rb,3.0578e+00_rb,3.1508e+00_rb,3.2081e+00_rb,3.2791e+00_rb/)
+      kbo(:,18,10) = (/ &
+     &3.2445e+00_rb,3.3300e+00_rb,3.4200e+00_rb,3.4641e+00_rb,3.5430e+00_rb/)
+      kbo(:,19,10) = (/ &
+     &3.4975e+00_rb,3.5857e+00_rb,3.6668e+00_rb,3.7210e+00_rb,3.8007e+00_rb/)
+      kbo(:,20,10) = (/ &
+     &3.7569e+00_rb,3.8465e+00_rb,3.9165e+00_rb,3.9790e+00_rb,4.0533e+00_rb/)
+      kbo(:,21,10) = (/ &
+     &4.0221e+00_rb,4.1092e+00_rb,4.1701e+00_rb,4.2261e+00_rb,4.2948e+00_rb/)
+      kbo(:,22,10) = (/ &
+     &4.2735e+00_rb,4.3579e+00_rb,4.4003e+00_rb,4.4698e+00_rb,4.5287e+00_rb/)
+      kbo(:,23,10) = (/ &
+     &4.4889e+00_rb,4.5713e+00_rb,4.6026e+00_rb,4.6888e+00_rb,4.7442e+00_rb/)
+      kbo(:,24,10) = (/ &
+     &4.6627e+00_rb,4.7429e+00_rb,4.7936e+00_rb,4.8738e+00_rb,4.9305e+00_rb/)
+      kbo(:,25,10) = (/ &
+     &4.8010e+00_rb,4.8792e+00_rb,4.9473e+00_rb,5.0350e+00_rb,5.0940e+00_rb/)
+      kbo(:,26,10) = (/ &
+     &4.9124e+00_rb,4.9871e+00_rb,5.0797e+00_rb,5.1628e+00_rb,5.2299e+00_rb/)
+      kbo(:,27,10) = (/ &
+     &4.9985e+00_rb,5.0753e+00_rb,5.2023e+00_rb,5.2822e+00_rb,5.3506e+00_rb/)
+      kbo(:,28,10) = (/ &
+     &5.0601e+00_rb,5.1633e+00_rb,5.2946e+00_rb,5.3826e+00_rb,5.4390e+00_rb/)
+      kbo(:,29,10) = (/ &
+     &5.1149e+00_rb,5.2551e+00_rb,5.3769e+00_rb,5.4560e+00_rb,5.5331e+00_rb/)
+      kbo(:,30,10) = (/ &
+     &5.1829e+00_rb,5.3405e+00_rb,5.4468e+00_rb,5.5366e+00_rb,5.6267e+00_rb/)
+      kbo(:,31,10) = (/ &
+     &5.2708e+00_rb,5.3990e+00_rb,5.5145e+00_rb,5.6271e+00_rb,5.7226e+00_rb/)
+      kbo(:,32,10) = (/ &
+     &5.3210e+00_rb,5.4615e+00_rb,5.6064e+00_rb,5.7149e+00_rb,5.7961e+00_rb/)
+      kbo(:,33,10) = (/ &
+     &5.3784e+00_rb,5.5514e+00_rb,5.6898e+00_rb,5.7825e+00_rb,5.7881e+00_rb/)
+      kbo(:,34,10) = (/ &
+     &5.4610e+00_rb,5.6264e+00_rb,5.7421e+00_rb,5.8351e+00_rb,5.7469e+00_rb/)
+      kbo(:,35,10) = (/ &
+     &5.5182e+00_rb,5.6646e+00_rb,5.7805e+00_rb,5.8049e+00_rb,5.8731e+00_rb/)
+      kbo(:,36,10) = (/ &
+     &5.5474e+00_rb,5.6825e+00_rb,5.8317e+00_rb,5.7746e+00_rb,5.9436e+00_rb/)
+      kbo(:,37,10) = (/ &
+     &5.5356e+00_rb,5.6848e+00_rb,5.8413e+00_rb,5.7830e+00_rb,5.9888e+00_rb/)
+      kbo(:,38,10) = (/ &
+     &5.5240e+00_rb,5.6924e+00_rb,5.8161e+00_rb,5.8447e+00_rb,6.0305e+00_rb/)
+      kbo(:,39,10) = (/ &
+     &5.5062e+00_rb,5.7035e+00_rb,5.7750e+00_rb,5.8907e+00_rb,6.0598e+00_rb/)
+      kbo(:,40,10) = (/ &
+     &5.4721e+00_rb,5.6790e+00_rb,5.7621e+00_rb,5.8808e+00_rb,6.0578e+00_rb/)
+      kbo(:,41,10) = (/ &
+     &5.4259e+00_rb,5.6462e+00_rb,5.7509e+00_rb,5.8640e+00_rb,6.0494e+00_rb/)
+      kbo(:,42,10) = (/ &
+     &5.3746e+00_rb,5.6111e+00_rb,5.7387e+00_rb,5.8493e+00_rb,6.0309e+00_rb/)
+      kbo(:,43,10) = (/ &
+     &5.3001e+00_rb,5.5493e+00_rb,5.7206e+00_rb,5.8145e+00_rb,6.0040e+00_rb/)
+      kbo(:,44,10) = (/ &
+     &5.2173e+00_rb,5.4929e+00_rb,5.6988e+00_rb,5.7584e+00_rb,5.9757e+00_rb/)
+      kbo(:,45,10) = (/ &
+     &5.1348e+00_rb,5.4235e+00_rb,5.6596e+00_rb,5.7148e+00_rb,5.9430e+00_rb/)
+      kbo(:,46,10) = (/ &
+     &5.0314e+00_rb,5.3386e+00_rb,5.5941e+00_rb,5.6594e+00_rb,5.8994e+00_rb/)
+      kbo(:,47,10) = (/ &
+     &4.9050e+00_rb,5.2288e+00_rb,5.5164e+00_rb,5.5882e+00_rb,5.8407e+00_rb/)
+      kbo(:,48,10) = (/ &
+     &4.7768e+00_rb,5.1235e+00_rb,5.4274e+00_rb,5.5412e+00_rb,5.7765e+00_rb/)
+      kbo(:,49,10) = (/ &
+     &4.6322e+00_rb,5.0058e+00_rb,5.3313e+00_rb,5.4722e+00_rb,5.7006e+00_rb/)
+      kbo(:,50,10) = (/ &
+     &4.4926e+00_rb,4.8780e+00_rb,5.2241e+00_rb,5.4133e+00_rb,5.6277e+00_rb/)
+      kbo(:,51,10) = (/ &
+     &4.3523e+00_rb,4.7488e+00_rb,5.1238e+00_rb,5.3514e+00_rb,5.5587e+00_rb/)
+      kbo(:,52,10) = (/ &
+     &4.2056e+00_rb,4.6099e+00_rb,5.0074e+00_rb,5.2732e+00_rb,5.4803e+00_rb/)
+      kbo(:,53,10) = (/ &
+     &4.0530e+00_rb,4.4698e+00_rb,4.8873e+00_rb,5.1842e+00_rb,5.3844e+00_rb/)
+      kbo(:,54,10) = (/ &
+     &3.8976e+00_rb,4.3362e+00_rb,4.7616e+00_rb,5.1168e+00_rb,5.2766e+00_rb/)
+      kbo(:,55,10) = (/ &
+     &3.7298e+00_rb,4.2020e+00_rb,4.6200e+00_rb,5.0133e+00_rb,5.2077e+00_rb/)
+      kbo(:,56,10) = (/ &
+     &3.5605e+00_rb,4.0625e+00_rb,4.4800e+00_rb,4.8943e+00_rb,5.1989e+00_rb/)
+      kbo(:,57,10) = (/ &
+     &3.3848e+00_rb,3.9107e+00_rb,4.3536e+00_rb,4.7626e+00_rb,5.1398e+00_rb/)
+      kbo(:,58,10) = (/ &
+     &3.2413e+00_rb,3.7494e+00_rb,4.2254e+00_rb,4.6312e+00_rb,5.0237e+00_rb/)
+      kbo(:,59,10) = (/ &
+     &3.1874e+00_rb,3.6712e+00_rb,4.1570e+00_rb,4.5764e+00_rb,4.9431e+00_rb/)
+      kbo(:,13,11) = (/ &
+     &2.0655e+00_rb,2.2522e+00_rb,2.3749e+00_rb,2.3793e+00_rb,2.3141e+00_rb/)
+      kbo(:,14,11) = (/ &
+     &2.3056e+00_rb,2.3392e+00_rb,2.3483e+00_rb,2.4161e+00_rb,2.4783e+00_rb/)
+      kbo(:,15,11) = (/ &
+     &2.5044e+00_rb,2.5910e+00_rb,2.7153e+00_rb,2.7838e+00_rb,2.9462e+00_rb/)
+      kbo(:,16,11) = (/ &
+     &3.2130e+00_rb,3.2960e+00_rb,3.3708e+00_rb,3.3957e+00_rb,3.4936e+00_rb/)
+      kbo(:,17,11) = (/ &
+     &3.5929e+00_rb,3.6854e+00_rb,3.7568e+00_rb,3.8084e+00_rb,3.9070e+00_rb/)
+      kbo(:,18,11) = (/ &
+     &3.9502e+00_rb,4.0564e+00_rb,4.1260e+00_rb,4.2219e+00_rb,4.3335e+00_rb/)
+      kbo(:,19,11) = (/ &
+     &4.3215e+00_rb,4.4423e+00_rb,4.5361e+00_rb,4.6179e+00_rb,4.7405e+00_rb/)
+      kbo(:,20,11) = (/ &
+     &4.7059e+00_rb,4.8304e+00_rb,4.9342e+00_rb,4.9958e+00_rb,5.1320e+00_rb/)
+      kbo(:,21,11) = (/ &
+     &5.0845e+00_rb,5.2089e+00_rb,5.3085e+00_rb,5.3635e+00_rb,5.4973e+00_rb/)
+      kbo(:,22,11) = (/ &
+     &5.4678e+00_rb,5.5866e+00_rb,5.6718e+00_rb,5.7157e+00_rb,5.8446e+00_rb/)
+      kbo(:,23,11) = (/ &
+     &5.8472e+00_rb,5.9542e+00_rb,6.0224e+00_rb,6.0657e+00_rb,6.1751e+00_rb/)
+      kbo(:,24,11) = (/ &
+     &6.2102e+00_rb,6.3055e+00_rb,6.3477e+00_rb,6.4025e+00_rb,6.4818e+00_rb/)
+      kbo(:,25,11) = (/ &
+     &6.5425e+00_rb,6.6276e+00_rb,6.6464e+00_rb,6.7138e+00_rb,6.7776e+00_rb/)
+      kbo(:,26,11) = (/ &
+     &6.8397e+00_rb,6.9134e+00_rb,6.9153e+00_rb,7.0099e+00_rb,7.0590e+00_rb/)
+      kbo(:,27,11) = (/ &
+     &7.1001e+00_rb,7.1597e+00_rb,7.1676e+00_rb,7.2592e+00_rb,7.2956e+00_rb/)
+      kbo(:,28,11) = (/ &
+     &7.3310e+00_rb,7.3578e+00_rb,7.4192e+00_rb,7.4714e+00_rb,7.5147e+00_rb/)
+      kbo(:,29,11) = (/ &
+     &7.5220e+00_rb,7.5568e+00_rb,7.6448e+00_rb,7.6786e+00_rb,7.7106e+00_rb/)
+      kbo(:,30,11) = (/ &
+     &7.6639e+00_rb,7.7470e+00_rb,7.8152e+00_rb,7.8571e+00_rb,7.8626e+00_rb/)
+      kbo(:,31,11) = (/ &
+     &7.8082e+00_rb,7.9292e+00_rb,7.9711e+00_rb,7.9864e+00_rb,7.9914e+00_rb/)
+      kbo(:,32,11) = (/ &
+     &7.9725e+00_rb,8.0661e+00_rb,8.0888e+00_rb,8.1052e+00_rb,8.1459e+00_rb/)
+      kbo(:,33,11) = (/ &
+     &8.1196e+00_rb,8.1648e+00_rb,8.2204e+00_rb,8.2561e+00_rb,8.2714e+00_rb/)
+      kbo(:,34,11) = (/ &
+     &8.1982e+00_rb,8.2822e+00_rb,8.3431e+00_rb,8.3695e+00_rb,8.3494e+00_rb/)
+      kbo(:,35,11) = (/ &
+     &8.2893e+00_rb,8.3914e+00_rb,8.4459e+00_rb,8.4367e+00_rb,8.2201e+00_rb/)
+      kbo(:,36,11) = (/ &
+     &8.3709e+00_rb,8.4754e+00_rb,8.5081e+00_rb,8.5002e+00_rb,8.2056e+00_rb/)
+      kbo(:,37,11) = (/ &
+     &8.4255e+00_rb,8.5299e+00_rb,8.5562e+00_rb,8.5457e+00_rb,8.3297e+00_rb/)
+      kbo(:,38,11) = (/ &
+     &8.4692e+00_rb,8.5729e+00_rb,8.6048e+00_rb,8.5329e+00_rb,8.4574e+00_rb/)
+      kbo(:,39,11) = (/ &
+     &8.5044e+00_rb,8.6011e+00_rb,8.6529e+00_rb,8.5036e+00_rb,8.5412e+00_rb/)
+      kbo(:,40,11) = (/ &
+     &8.5034e+00_rb,8.6122e+00_rb,8.6861e+00_rb,8.5500e+00_rb,8.5878e+00_rb/)
+      kbo(:,41,11) = (/ &
+     &8.4921e+00_rb,8.6152e+00_rb,8.7146e+00_rb,8.6037e+00_rb,8.6322e+00_rb/)
+      kbo(:,42,11) = (/ &
+     &8.4716e+00_rb,8.6012e+00_rb,8.7281e+00_rb,8.6344e+00_rb,8.6768e+00_rb/)
+      kbo(:,43,11) = (/ &
+     &8.4399e+00_rb,8.6022e+00_rb,8.7354e+00_rb,8.6857e+00_rb,8.7108e+00_rb/)
+      kbo(:,44,11) = (/ &
+     &8.4042e+00_rb,8.5707e+00_rb,8.7247e+00_rb,8.7306e+00_rb,8.7301e+00_rb/)
+      kbo(:,45,11) = (/ &
+     &8.3422e+00_rb,8.5367e+00_rb,8.7092e+00_rb,8.7655e+00_rb,8.7531e+00_rb/)
+      kbo(:,46,11) = (/ &
+     &8.2614e+00_rb,8.4925e+00_rb,8.6796e+00_rb,8.7911e+00_rb,8.7636e+00_rb/)
+      kbo(:,47,11) = (/ &
+     &8.1773e+00_rb,8.4296e+00_rb,8.6376e+00_rb,8.8172e+00_rb,8.7465e+00_rb/)
+      kbo(:,48,11) = (/ &
+     &8.0681e+00_rb,8.3512e+00_rb,8.5867e+00_rb,8.7946e+00_rb,8.7119e+00_rb/)
+      kbo(:,49,11) = (/ &
+     &7.9551e+00_rb,8.2607e+00_rb,8.5307e+00_rb,8.7608e+00_rb,8.6937e+00_rb/)
+      kbo(:,50,11) = (/ &
+     &7.8252e+00_rb,8.1751e+00_rb,8.4616e+00_rb,8.7182e+00_rb,8.6487e+00_rb/)
+      kbo(:,51,11) = (/ &
+     &7.6779e+00_rb,8.0748e+00_rb,8.3664e+00_rb,8.6630e+00_rb,8.6216e+00_rb/)
+      kbo(:,52,11) = (/ &
+     &7.5020e+00_rb,7.9591e+00_rb,8.2751e+00_rb,8.6024e+00_rb,8.6131e+00_rb/)
+      kbo(:,53,11) = (/ &
+     &7.3138e+00_rb,7.8339e+00_rb,8.1806e+00_rb,8.5263e+00_rb,8.5994e+00_rb/)
+      kbo(:,54,11) = (/ &
+     &7.1204e+00_rb,7.6772e+00_rb,8.0838e+00_rb,8.4459e+00_rb,8.6417e+00_rb/)
+      kbo(:,55,11) = (/ &
+     &6.9256e+00_rb,7.5251e+00_rb,7.9750e+00_rb,8.3203e+00_rb,8.6369e+00_rb/)
+      kbo(:,56,11) = (/ &
+     &6.7619e+00_rb,7.3247e+00_rb,7.8477e+00_rb,8.2055e+00_rb,8.5418e+00_rb/)
+      kbo(:,57,11) = (/ &
+     &6.5989e+00_rb,7.1193e+00_rb,7.6865e+00_rb,8.1073e+00_rb,8.4236e+00_rb/)
+      kbo(:,58,11) = (/ &
+     &6.3964e+00_rb,6.9666e+00_rb,7.5354e+00_rb,7.9999e+00_rb,8.3228e+00_rb/)
+      kbo(:,59,11) = (/ &
+     &6.3130e+00_rb,6.9330e+00_rb,7.4209e+00_rb,7.9087e+00_rb,8.2712e+00_rb/)
+      kbo(:,13,12) = (/ &
+     &2.2326e+00_rb,2.2492e+00_rb,2.2166e+00_rb,2.2179e+00_rb,2.3939e+00_rb/)
+      kbo(:,14,12) = (/ &
+     &2.6624e+00_rb,2.8068e+00_rb,2.8766e+00_rb,2.8509e+00_rb,2.8616e+00_rb/)
+      kbo(:,15,12) = (/ &
+     &3.7151e+00_rb,3.8338e+00_rb,3.8710e+00_rb,3.8938e+00_rb,4.0387e+00_rb/)
+      kbo(:,16,12) = (/ &
+     &4.1478e+00_rb,4.2453e+00_rb,4.2845e+00_rb,4.3058e+00_rb,4.4171e+00_rb/)
+      kbo(:,17,12) = (/ &
+     &4.4594e+00_rb,4.5666e+00_rb,4.6335e+00_rb,4.6600e+00_rb,4.7776e+00_rb/)
+      kbo(:,18,12) = (/ &
+     &4.8949e+00_rb,5.0141e+00_rb,5.1198e+00_rb,5.1461e+00_rb,5.2514e+00_rb/)
+      kbo(:,19,12) = (/ &
+     &5.4166e+00_rb,5.5448e+00_rb,5.6541e+00_rb,5.7098e+00_rb,5.7608e+00_rb/)
+      kbo(:,20,12) = (/ &
+     &5.9687e+00_rb,6.1117e+00_rb,6.2318e+00_rb,6.2991e+00_rb,6.3382e+00_rb/)
+      kbo(:,21,12) = (/ &
+     &6.5357e+00_rb,6.6891e+00_rb,6.8185e+00_rb,6.8922e+00_rb,6.9339e+00_rb/)
+      kbo(:,22,12) = (/ &
+     &7.1247e+00_rb,7.2763e+00_rb,7.4121e+00_rb,7.4770e+00_rb,7.5498e+00_rb/)
+      kbo(:,23,12) = (/ &
+     &7.7039e+00_rb,7.8572e+00_rb,7.9884e+00_rb,8.0284e+00_rb,8.1432e+00_rb/)
+      kbo(:,24,12) = (/ &
+     &8.2700e+00_rb,8.4098e+00_rb,8.5280e+00_rb,8.5448e+00_rb,8.6892e+00_rb/)
+      kbo(:,25,12) = (/ &
+     &8.8099e+00_rb,8.9417e+00_rb,9.0327e+00_rb,9.0480e+00_rb,9.1843e+00_rb/)
+      kbo(:,26,12) = (/ &
+     &9.3282e+00_rb,9.4425e+00_rb,9.5016e+00_rb,9.4918e+00_rb,9.6320e+00_rb/)
+      kbo(:,27,12) = (/ &
+     &9.8120e+00_rb,9.9020e+00_rb,9.8963e+00_rb,9.9235e+00_rb,1.0029e+01_rb/)
+      kbo(:,28,12) = (/ &
+     &1.0246e+01_rb,1.0311e+01_rb,1.0256e+01_rb,1.0345e+01_rb,1.0401e+01_rb/)
+      kbo(:,29,12) = (/ &
+     &1.0631e+01_rb,1.0621e+01_rb,1.0577e+01_rb,1.0691e+01_rb,1.0719e+01_rb/)
+      kbo(:,30,12) = (/ &
+     &1.0962e+01_rb,1.0883e+01_rb,1.0936e+01_rb,1.0968e+01_rb,1.0995e+01_rb/)
+      kbo(:,31,12) = (/ &
+     &1.1183e+01_rb,1.1144e+01_rb,1.1216e+01_rb,1.1241e+01_rb,1.1250e+01_rb/)
+      kbo(:,32,12) = (/ &
+     &1.1390e+01_rb,1.1439e+01_rb,1.1434e+01_rb,1.1471e+01_rb,1.1430e+01_rb/)
+      kbo(:,33,12) = (/ &
+     &1.1588e+01_rb,1.1624e+01_rb,1.1599e+01_rb,1.1614e+01_rb,1.1630e+01_rb/)
+      kbo(:,34,12) = (/ &
+     &1.1823e+01_rb,1.1780e+01_rb,1.1748e+01_rb,1.1805e+01_rb,1.1825e+01_rb/)
+      kbo(:,35,12) = (/ &
+     &1.1935e+01_rb,1.1885e+01_rb,1.1934e+01_rb,1.1981e+01_rb,1.2011e+01_rb/)
+      kbo(:,36,12) = (/ &
+     &1.2055e+01_rb,1.2055e+01_rb,1.2092e+01_rb,1.2129e+01_rb,1.2083e+01_rb/)
+      kbo(:,37,12) = (/ &
+     &1.2143e+01_rb,1.2189e+01_rb,1.2217e+01_rb,1.2211e+01_rb,1.2038e+01_rb/)
+      kbo(:,38,12) = (/ &
+     &1.2240e+01_rb,1.2287e+01_rb,1.2320e+01_rb,1.2293e+01_rb,1.1958e+01_rb/)
+      kbo(:,39,12) = (/ &
+     &1.2384e+01_rb,1.2401e+01_rb,1.2395e+01_rb,1.2388e+01_rb,1.1943e+01_rb/)
+      kbo(:,40,12) = (/ &
+     &1.2464e+01_rb,1.2479e+01_rb,1.2477e+01_rb,1.2446e+01_rb,1.2032e+01_rb/)
+      kbo(:,41,12) = (/ &
+     &1.2528e+01_rb,1.2533e+01_rb,1.2534e+01_rb,1.2503e+01_rb,1.2103e+01_rb/)
+      kbo(:,42,12) = (/ &
+     &1.2585e+01_rb,1.2609e+01_rb,1.2591e+01_rb,1.2562e+01_rb,1.2170e+01_rb/)
+      kbo(:,43,12) = (/ &
+     &1.2648e+01_rb,1.2666e+01_rb,1.2643e+01_rb,1.2594e+01_rb,1.2252e+01_rb/)
+      kbo(:,44,12) = (/ &
+     &1.2682e+01_rb,1.2728e+01_rb,1.2701e+01_rb,1.2655e+01_rb,1.2340e+01_rb/)
+      kbo(:,45,12) = (/ &
+     &1.2706e+01_rb,1.2763e+01_rb,1.2739e+01_rb,1.2702e+01_rb,1.2417e+01_rb/)
+      kbo(:,46,12) = (/ &
+     &1.2744e+01_rb,1.2798e+01_rb,1.2795e+01_rb,1.2773e+01_rb,1.2516e+01_rb/)
+      kbo(:,47,12) = (/ &
+     &1.2744e+01_rb,1.2852e+01_rb,1.2846e+01_rb,1.2816e+01_rb,1.2652e+01_rb/)
+      kbo(:,48,12) = (/ &
+     &1.2714e+01_rb,1.2860e+01_rb,1.2886e+01_rb,1.2860e+01_rb,1.2772e+01_rb/)
+      kbo(:,49,12) = (/ &
+     &1.2667e+01_rb,1.2862e+01_rb,1.2927e+01_rb,1.2926e+01_rb,1.2873e+01_rb/)
+      kbo(:,50,12) = (/ &
+     &1.2568e+01_rb,1.2858e+01_rb,1.2953e+01_rb,1.2955e+01_rb,1.2993e+01_rb/)
+      kbo(:,51,12) = (/ &
+     &1.2506e+01_rb,1.2803e+01_rb,1.2982e+01_rb,1.2983e+01_rb,1.3071e+01_rb/)
+      kbo(:,52,12) = (/ &
+     &1.2444e+01_rb,1.2786e+01_rb,1.2969e+01_rb,1.3005e+01_rb,1.3112e+01_rb/)
+      kbo(:,53,12) = (/ &
+     &1.2352e+01_rb,1.2737e+01_rb,1.2961e+01_rb,1.3024e+01_rb,1.3150e+01_rb/)
+      kbo(:,54,12) = (/ &
+     &1.2273e+01_rb,1.2640e+01_rb,1.2911e+01_rb,1.3015e+01_rb,1.3144e+01_rb/)
+      kbo(:,55,12) = (/ &
+     &1.2241e+01_rb,1.2456e+01_rb,1.2830e+01_rb,1.3015e+01_rb,1.3103e+01_rb/)
+      kbo(:,56,12) = (/ &
+     &1.2129e+01_rb,1.2403e+01_rb,1.2744e+01_rb,1.2955e+01_rb,1.3054e+01_rb/)
+      kbo(:,57,12) = (/ &
+     &1.1983e+01_rb,1.2327e+01_rb,1.2603e+01_rb,1.2910e+01_rb,1.3056e+01_rb/)
+      kbo(:,58,12) = (/ &
+     &1.1825e+01_rb,1.2269e+01_rb,1.2506e+01_rb,1.2817e+01_rb,1.3023e+01_rb/)
+      kbo(:,59,12) = (/ &
+     &1.1756e+01_rb,1.2243e+01_rb,1.2496e+01_rb,1.2736e+01_rb,1.2923e+01_rb/)
+      kbo(:,13,13) = (/ &
+     &2.4382e+00_rb,2.5269e+00_rb,2.6487e+00_rb,2.6115e+00_rb,2.6014e+00_rb/)
+      kbo(:,14,13) = (/ &
+     &3.1530e+00_rb,3.3624e+00_rb,3.5863e+00_rb,3.8586e+00_rb,4.4708e+00_rb/)
+      kbo(:,15,13) = (/ &
+     &5.2015e+00_rb,5.3405e+00_rb,5.5020e+00_rb,5.5114e+00_rb,5.5124e+00_rb/)
+      kbo(:,16,13) = (/ &
+     &5.7225e+00_rb,5.8966e+00_rb,6.0571e+00_rb,6.0559e+00_rb,6.0668e+00_rb/)
+      kbo(:,17,13) = (/ &
+     &6.2716e+00_rb,6.4422e+00_rb,6.5990e+00_rb,6.6435e+00_rb,6.5757e+00_rb/)
+      kbo(:,18,13) = (/ &
+     &6.7715e+00_rb,6.9371e+00_rb,7.0939e+00_rb,7.1586e+00_rb,7.0596e+00_rb/)
+      kbo(:,19,13) = (/ &
+     &7.2728e+00_rb,7.4403e+00_rb,7.6008e+00_rb,7.7026e+00_rb,7.6789e+00_rb/)
+      kbo(:,20,13) = (/ &
+     &7.8570e+00_rb,8.0286e+00_rb,8.1992e+00_rb,8.3169e+00_rb,8.3122e+00_rb/)
+      kbo(:,21,13) = (/ &
+     &8.5574e+00_rb,8.7300e+00_rb,8.9004e+00_rb,9.0231e+00_rb,9.0274e+00_rb/)
+      kbo(:,22,13) = (/ &
+     &9.3806e+00_rb,9.5518e+00_rb,9.7137e+00_rb,9.8169e+00_rb,9.7877e+00_rb/)
+      kbo(:,23,13) = (/ &
+     &1.0275e+01_rb,1.0446e+01_rb,1.0597e+01_rb,1.0672e+01_rb,1.0640e+01_rb/)
+      kbo(:,24,13) = (/ &
+     &1.1189e+01_rb,1.1360e+01_rb,1.1491e+01_rb,1.1535e+01_rb,1.1479e+01_rb/)
+      kbo(:,25,13) = (/ &
+     &1.2097e+01_rb,1.2245e+01_rb,1.2356e+01_rb,1.2332e+01_rb,1.2284e+01_rb/)
+      kbo(:,26,13) = (/ &
+     &1.2961e+01_rb,1.3082e+01_rb,1.3167e+01_rb,1.3081e+01_rb,1.3047e+01_rb/)
+      kbo(:,27,13) = (/ &
+     &1.3759e+01_rb,1.3850e+01_rb,1.3907e+01_rb,1.3774e+01_rb,1.3731e+01_rb/)
+      kbo(:,28,13) = (/ &
+     &1.4487e+01_rb,1.4544e+01_rb,1.4510e+01_rb,1.4345e+01_rb,1.4410e+01_rb/)
+      kbo(:,29,13) = (/ &
+     &1.5131e+01_rb,1.5152e+01_rb,1.4989e+01_rb,1.4893e+01_rb,1.4931e+01_rb/)
+      kbo(:,30,13) = (/ &
+     &1.5691e+01_rb,1.5628e+01_rb,1.5428e+01_rb,1.5458e+01_rb,1.5409e+01_rb/)
+      kbo(:,31,13) = (/ &
+     &1.6170e+01_rb,1.5957e+01_rb,1.5859e+01_rb,1.5855e+01_rb,1.5824e+01_rb/)
+      kbo(:,32,13) = (/ &
+     &1.6473e+01_rb,1.6259e+01_rb,1.6330e+01_rb,1.6208e+01_rb,1.6186e+01_rb/)
+      kbo(:,33,13) = (/ &
+     &1.6723e+01_rb,1.6704e+01_rb,1.6654e+01_rb,1.6563e+01_rb,1.6454e+01_rb/)
+      kbo(:,34,13) = (/ &
+     &1.6982e+01_rb,1.6991e+01_rb,1.6942e+01_rb,1.6797e+01_rb,1.6670e+01_rb/)
+      kbo(:,35,13) = (/ &
+     &1.7322e+01_rb,1.7270e+01_rb,1.7135e+01_rb,1.6953e+01_rb,1.6879e+01_rb/)
+      kbo(:,36,13) = (/ &
+     &1.7562e+01_rb,1.7451e+01_rb,1.7282e+01_rb,1.7228e+01_rb,1.7169e+01_rb/)
+      kbo(:,37,13) = (/ &
+     &1.7777e+01_rb,1.7615e+01_rb,1.7471e+01_rb,1.7494e+01_rb,1.7411e+01_rb/)
+      kbo(:,38,13) = (/ &
+     &1.7932e+01_rb,1.7773e+01_rb,1.7733e+01_rb,1.7665e+01_rb,1.7616e+01_rb/)
+      kbo(:,39,13) = (/ &
+     &1.7993e+01_rb,1.7881e+01_rb,1.7968e+01_rb,1.7898e+01_rb,1.7772e+01_rb/)
+      kbo(:,40,13) = (/ &
+     &1.8148e+01_rb,1.8027e+01_rb,1.8107e+01_rb,1.8066e+01_rb,1.7907e+01_rb/)
+      kbo(:,41,13) = (/ &
+     &1.8273e+01_rb,1.8183e+01_rb,1.8251e+01_rb,1.8205e+01_rb,1.8057e+01_rb/)
+      kbo(:,42,13) = (/ &
+     &1.8408e+01_rb,1.8324e+01_rb,1.8378e+01_rb,1.8322e+01_rb,1.8177e+01_rb/)
+      kbo(:,43,13) = (/ &
+     &1.8505e+01_rb,1.8424e+01_rb,1.8497e+01_rb,1.8450e+01_rb,1.8293e+01_rb/)
+      kbo(:,44,13) = (/ &
+     &1.8604e+01_rb,1.8490e+01_rb,1.8578e+01_rb,1.8585e+01_rb,1.8430e+01_rb/)
+      kbo(:,45,13) = (/ &
+     &1.8704e+01_rb,1.8600e+01_rb,1.8704e+01_rb,1.8731e+01_rb,1.8566e+01_rb/)
+      kbo(:,46,13) = (/ &
+     &1.8778e+01_rb,1.8729e+01_rb,1.8813e+01_rb,1.8830e+01_rb,1.8670e+01_rb/)
+      kbo(:,47,13) = (/ &
+     &1.8850e+01_rb,1.8781e+01_rb,1.8910e+01_rb,1.8941e+01_rb,1.8764e+01_rb/)
+      kbo(:,48,13) = (/ &
+     &1.8986e+01_rb,1.8857e+01_rb,1.8976e+01_rb,1.9005e+01_rb,1.8895e+01_rb/)
+      kbo(:,49,13) = (/ &
+     &1.9095e+01_rb,1.9011e+01_rb,1.9061e+01_rb,1.9086e+01_rb,1.9025e+01_rb/)
+      kbo(:,50,13) = (/ &
+     &1.9280e+01_rb,1.9083e+01_rb,1.9157e+01_rb,1.9191e+01_rb,1.9123e+01_rb/)
+      kbo(:,51,13) = (/ &
+     &1.9385e+01_rb,1.9151e+01_rb,1.9215e+01_rb,1.9259e+01_rb,1.9196e+01_rb/)
+      kbo(:,52,13) = (/ &
+     &1.9488e+01_rb,1.9188e+01_rb,1.9260e+01_rb,1.9328e+01_rb,1.9259e+01_rb/)
+      kbo(:,53,13) = (/ &
+     &1.9657e+01_rb,1.9231e+01_rb,1.9381e+01_rb,1.9391e+01_rb,1.9331e+01_rb/)
+      kbo(:,54,13) = (/ &
+     &1.9810e+01_rb,1.9362e+01_rb,1.9357e+01_rb,1.9443e+01_rb,1.9402e+01_rb/)
+      kbo(:,55,13) = (/ &
+     &1.9885e+01_rb,1.9515e+01_rb,1.9337e+01_rb,1.9415e+01_rb,1.9400e+01_rb/)
+      kbo(:,56,13) = (/ &
+     &1.9952e+01_rb,1.9629e+01_rb,1.9325e+01_rb,1.9383e+01_rb,1.9431e+01_rb/)
+      kbo(:,57,13) = (/ &
+     &2.0005e+01_rb,1.9822e+01_rb,1.9466e+01_rb,1.9235e+01_rb,1.9419e+01_rb/)
+      kbo(:,58,13) = (/ &
+     &2.0044e+01_rb,1.9891e+01_rb,1.9520e+01_rb,1.9352e+01_rb,1.9344e+01_rb/)
+      kbo(:,59,13) = (/ &
+     &2.0058e+01_rb,1.9920e+01_rb,1.9627e+01_rb,1.9319e+01_rb,1.9225e+01_rb/)
+      kbo(:,13,14) = (/ &
+     &3.1216e+00_rb,3.1914e+00_rb,3.0899e+00_rb,3.3224e+00_rb,4.2010e+00_rb/)
+      kbo(:,14,14) = (/ &
+     &7.0173e+00_rb,7.2031e+00_rb,7.3581e+00_rb,7.0289e+00_rb,6.9115e+00_rb/)
+      kbo(:,15,14) = (/ &
+     &7.9333e+00_rb,8.1347e+00_rb,8.2980e+00_rb,8.2914e+00_rb,7.9259e+00_rb/)
+      kbo(:,16,14) = (/ &
+     &8.8725e+00_rb,9.0683e+00_rb,9.2568e+00_rb,9.4307e+00_rb,9.0182e+00_rb/)
+      kbo(:,17,14) = (/ &
+     &9.8363e+00_rb,1.0075e+01_rb,1.0298e+01_rb,1.0509e+01_rb,1.0358e+01_rb/)
+      kbo(:,18,14) = (/ &
+     &1.0886e+01_rb,1.1174e+01_rb,1.1435e+01_rb,1.1674e+01_rb,1.1694e+01_rb/)
+      kbo(:,19,14) = (/ &
+     &1.2011e+01_rb,1.2333e+01_rb,1.2632e+01_rb,1.2897e+01_rb,1.3012e+01_rb/)
+      kbo(:,20,14) = (/ &
+     &1.3190e+01_rb,1.3540e+01_rb,1.3861e+01_rb,1.4163e+01_rb,1.4313e+01_rb/)
+      kbo(:,21,14) = (/ &
+     &1.4385e+01_rb,1.4764e+01_rb,1.5119e+01_rb,1.5437e+01_rb,1.5593e+01_rb/)
+      kbo(:,22,14) = (/ &
+     &1.5599e+01_rb,1.6013e+01_rb,1.6388e+01_rb,1.6714e+01_rb,1.6844e+01_rb/)
+      kbo(:,23,14) = (/ &
+     &1.6855e+01_rb,1.7274e+01_rb,1.7644e+01_rb,1.7957e+01_rb,1.7983e+01_rb/)
+      kbo(:,24,14) = (/ &
+     &1.8152e+01_rb,1.8541e+01_rb,1.8882e+01_rb,1.9172e+01_rb,1.9130e+01_rb/)
+      kbo(:,25,14) = (/ &
+     &1.9440e+01_rb,1.9782e+01_rb,2.0084e+01_rb,2.0333e+01_rb,2.0194e+01_rb/)
+      kbo(:,26,14) = (/ &
+     &2.0688e+01_rb,2.0983e+01_rb,2.1232e+01_rb,2.1433e+01_rb,2.1144e+01_rb/)
+      kbo(:,27,14) = (/ &
+     &2.1870e+01_rb,2.2106e+01_rb,2.2296e+01_rb,2.2344e+01_rb,2.1989e+01_rb/)
+      kbo(:,28,14) = (/ &
+     &2.2959e+01_rb,2.3128e+01_rb,2.3255e+01_rb,2.3127e+01_rb,2.2540e+01_rb/)
+      kbo(:,29,14) = (/ &
+     &2.3936e+01_rb,2.4040e+01_rb,2.4108e+01_rb,2.3686e+01_rb,2.3118e+01_rb/)
+      kbo(:,30,14) = (/ &
+     &2.4794e+01_rb,2.4831e+01_rb,2.4631e+01_rb,2.3967e+01_rb,2.3807e+01_rb/)
+      kbo(:,31,14) = (/ &
+     &2.5525e+01_rb,2.5458e+01_rb,2.4921e+01_rb,2.4395e+01_rb,2.4482e+01_rb/)
+      kbo(:,32,14) = (/ &
+     &2.6140e+01_rb,2.5757e+01_rb,2.4988e+01_rb,2.5111e+01_rb,2.5399e+01_rb/)
+      kbo(:,33,14) = (/ &
+     &2.6507e+01_rb,2.5703e+01_rb,2.5535e+01_rb,2.5869e+01_rb,2.6121e+01_rb/)
+      kbo(:,34,14) = (/ &
+     &2.6569e+01_rb,2.5953e+01_rb,2.6151e+01_rb,2.6361e+01_rb,2.6801e+01_rb/)
+      kbo(:,35,14) = (/ &
+     &2.6562e+01_rb,2.6504e+01_rb,2.6810e+01_rb,2.7029e+01_rb,2.7434e+01_rb/)
+      kbo(:,36,14) = (/ &
+     &2.6827e+01_rb,2.6824e+01_rb,2.7232e+01_rb,2.7537e+01_rb,2.7695e+01_rb/)
+      kbo(:,37,14) = (/ &
+     &2.7090e+01_rb,2.7286e+01_rb,2.7649e+01_rb,2.7765e+01_rb,2.8180e+01_rb/)
+      kbo(:,38,14) = (/ &
+     &2.7488e+01_rb,2.7623e+01_rb,2.7893e+01_rb,2.8192e+01_rb,2.8556e+01_rb/)
+      kbo(:,39,14) = (/ &
+     &2.7778e+01_rb,2.8122e+01_rb,2.8064e+01_rb,2.8480e+01_rb,2.8841e+01_rb/)
+      kbo(:,40,14) = (/ &
+     &2.8002e+01_rb,2.8307e+01_rb,2.8286e+01_rb,2.8653e+01_rb,2.9020e+01_rb/)
+      kbo(:,41,14) = (/ &
+     &2.8205e+01_rb,2.8457e+01_rb,2.8430e+01_rb,2.8865e+01_rb,2.9164e+01_rb/)
+      kbo(:,42,14) = (/ &
+     &2.8421e+01_rb,2.8563e+01_rb,2.8567e+01_rb,2.9033e+01_rb,2.9360e+01_rb/)
+      kbo(:,43,14) = (/ &
+     &2.8605e+01_rb,2.8649e+01_rb,2.8746e+01_rb,2.9195e+01_rb,2.9582e+01_rb/)
+      kbo(:,44,14) = (/ &
+     &2.8719e+01_rb,2.8847e+01_rb,2.8915e+01_rb,2.9326e+01_rb,2.9712e+01_rb/)
+      kbo(:,45,14) = (/ &
+     &2.9008e+01_rb,2.9000e+01_rb,2.9085e+01_rb,2.9440e+01_rb,2.9882e+01_rb/)
+      kbo(:,46,14) = (/ &
+     &2.9283e+01_rb,2.9066e+01_rb,2.9214e+01_rb,2.9505e+01_rb,3.0075e+01_rb/)
+      kbo(:,47,14) = (/ &
+     &2.9505e+01_rb,2.9215e+01_rb,2.9192e+01_rb,2.9549e+01_rb,3.0231e+01_rb/)
+      kbo(:,48,14) = (/ &
+     &2.9847e+01_rb,2.9465e+01_rb,2.9377e+01_rb,2.9796e+01_rb,3.0530e+01_rb/)
+      kbo(:,49,14) = (/ &
+     &3.0209e+01_rb,2.9590e+01_rb,2.9613e+01_rb,2.9947e+01_rb,3.0891e+01_rb/)
+      kbo(:,50,14) = (/ &
+     &3.0555e+01_rb,2.9682e+01_rb,2.9721e+01_rb,3.0034e+01_rb,3.0987e+01_rb/)
+      kbo(:,51,14) = (/ &
+     &3.0932e+01_rb,2.9941e+01_rb,2.9791e+01_rb,3.0042e+01_rb,3.0973e+01_rb/)
+      kbo(:,52,14) = (/ &
+     &3.1304e+01_rb,3.0128e+01_rb,2.9896e+01_rb,3.0085e+01_rb,3.1235e+01_rb/)
+      kbo(:,53,14) = (/ &
+     &3.1593e+01_rb,3.0463e+01_rb,3.0008e+01_rb,3.0297e+01_rb,3.1448e+01_rb/)
+      kbo(:,54,14) = (/ &
+     &3.1880e+01_rb,3.0666e+01_rb,3.0079e+01_rb,3.0245e+01_rb,3.1244e+01_rb/)
+      kbo(:,55,14) = (/ &
+     &3.2179e+01_rb,3.1215e+01_rb,3.0197e+01_rb,3.0244e+01_rb,3.0630e+01_rb/)
+      kbo(:,56,14) = (/ &
+     &3.2496e+01_rb,3.1618e+01_rb,3.0405e+01_rb,3.0157e+01_rb,3.0368e+01_rb/)
+      kbo(:,57,14) = (/ &
+     &3.2846e+01_rb,3.1885e+01_rb,3.0675e+01_rb,3.0336e+01_rb,3.0326e+01_rb/)
+      kbo(:,58,14) = (/ &
+     &3.3194e+01_rb,3.2160e+01_rb,3.1205e+01_rb,3.0229e+01_rb,3.0346e+01_rb/)
+      kbo(:,59,14) = (/ &
+     &3.3342e+01_rb,3.2279e+01_rb,3.1453e+01_rb,3.0328e+01_rb,3.0152e+01_rb/)
+      kbo(:,13,15) = (/ &
+     &4.0030e+00_rb,4.7414e+00_rb,5.8560e+00_rb,6.7438e+00_rb,3.2808e+00_rb/)
+      kbo(:,14,15) = (/ &
+     &9.0899e+00_rb,9.4664e+00_rb,9.7823e+00_rb,1.0059e+01_rb,8.9794e+00_rb/)
+      kbo(:,15,15) = (/ &
+     &1.0857e+01_rb,1.1261e+01_rb,1.1617e+01_rb,1.1923e+01_rb,1.1563e+01_rb/)
+      kbo(:,16,15) = (/ &
+     &1.2889e+01_rb,1.3334e+01_rb,1.3725e+01_rb,1.4064e+01_rb,1.4341e+01_rb/)
+      kbo(:,17,15) = (/ &
+     &1.5204e+01_rb,1.5687e+01_rb,1.6115e+01_rb,1.6474e+01_rb,1.6771e+01_rb/)
+      kbo(:,18,15) = (/ &
+     &1.7808e+01_rb,1.8322e+01_rb,1.8770e+01_rb,1.9149e+01_rb,1.9438e+01_rb/)
+      kbo(:,19,15) = (/ &
+     &2.0675e+01_rb,2.1216e+01_rb,2.1671e+01_rb,2.2040e+01_rb,2.2294e+01_rb/)
+      kbo(:,20,15) = (/ &
+     &2.3784e+01_rb,2.4335e+01_rb,2.4780e+01_rb,2.5092e+01_rb,2.5318e+01_rb/)
+      kbo(:,21,15) = (/ &
+     &2.7074e+01_rb,2.7616e+01_rb,2.7992e+01_rb,2.8260e+01_rb,2.8435e+01_rb/)
+      kbo(:,22,15) = (/ &
+     &3.0512e+01_rb,3.0967e+01_rb,3.1281e+01_rb,3.1482e+01_rb,3.1588e+01_rb/)
+      kbo(:,23,15) = (/ &
+     &3.3946e+01_rb,3.4307e+01_rb,3.4554e+01_rb,3.4683e+01_rb,3.4702e+01_rb/)
+      kbo(:,24,15) = (/ &
+     &3.7353e+01_rb,3.7642e+01_rb,3.7797e+01_rb,3.7830e+01_rb,3.7737e+01_rb/)
+      kbo(:,25,15) = (/ &
+     &4.0725e+01_rb,4.0910e+01_rb,4.0948e+01_rb,4.0847e+01_rb,4.0612e+01_rb/)
+      kbo(:,26,15) = (/ &
+     &4.3991e+01_rb,4.4018e+01_rb,4.3898e+01_rb,4.3642e+01_rb,4.3255e+01_rb/)
+      kbo(:,27,15) = (/ &
+     &4.7033e+01_rb,4.6887e+01_rb,4.6594e+01_rb,4.6165e+01_rb,4.5614e+01_rb/)
+      kbo(:,28,15) = (/ &
+     &4.9783e+01_rb,4.9454e+01_rb,4.8983e+01_rb,4.8387e+01_rb,4.7672e+01_rb/)
+      kbo(:,29,15) = (/ &
+     &5.2209e+01_rb,5.1689e+01_rb,5.1048e+01_rb,5.0282e+01_rb,4.9143e+01_rb/)
+      kbo(:,30,15) = (/ &
+     &5.4285e+01_rb,5.3590e+01_rb,5.2778e+01_rb,5.1862e+01_rb,4.9504e+01_rb/)
+      kbo(:,31,15) = (/ &
+     &5.6017e+01_rb,5.5158e+01_rb,5.4192e+01_rb,5.2520e+01_rb,4.8958e+01_rb/)
+      kbo(:,32,15) = (/ &
+     &5.7422e+01_rb,5.6414e+01_rb,5.5126e+01_rb,5.1643e+01_rb,4.7729e+01_rb/)
+      kbo(:,33,15) = (/ &
+     &5.8538e+01_rb,5.7396e+01_rb,5.4438e+01_rb,4.9797e+01_rb,4.8468e+01_rb/)
+      kbo(:,34,15) = (/ &
+     &5.9425e+01_rb,5.7428e+01_rb,5.3101e+01_rb,5.0744e+01_rb,5.0414e+01_rb/)
+      kbo(:,35,15) = (/ &
+     &6.0220e+01_rb,5.6550e+01_rb,5.2246e+01_rb,5.2031e+01_rb,5.2160e+01_rb/)
+      kbo(:,36,15) = (/ &
+     &6.0380e+01_rb,5.6323e+01_rb,5.3290e+01_rb,5.3091e+01_rb,5.1837e+01_rb/)
+      kbo(:,37,15) = (/ &
+     &6.1064e+01_rb,5.6288e+01_rb,5.3962e+01_rb,5.4330e+01_rb,5.1190e+01_rb/)
+      kbo(:,38,15) = (/ &
+     &6.1244e+01_rb,5.6422e+01_rb,5.4974e+01_rb,5.5783e+01_rb,5.0823e+01_rb/)
+      kbo(:,39,15) = (/ &
+     &6.1491e+01_rb,5.6521e+01_rb,5.6495e+01_rb,5.7139e+01_rb,5.0363e+01_rb/)
+      kbo(:,40,15) = (/ &
+     &6.2285e+01_rb,5.7310e+01_rb,5.7143e+01_rb,5.8068e+01_rb,5.1166e+01_rb/)
+      kbo(:,41,15) = (/ &
+     &6.3214e+01_rb,5.7786e+01_rb,5.7889e+01_rb,5.8807e+01_rb,5.2057e+01_rb/)
+      kbo(:,42,15) = (/ &
+     &6.3921e+01_rb,5.8540e+01_rb,5.8564e+01_rb,5.9508e+01_rb,5.2732e+01_rb/)
+      kbo(:,43,15) = (/ &
+     &6.4936e+01_rb,5.9750e+01_rb,5.9252e+01_rb,6.0188e+01_rb,5.3641e+01_rb/)
+      kbo(:,44,15) = (/ &
+     &6.6180e+01_rb,6.0810e+01_rb,5.9653e+01_rb,6.1132e+01_rb,5.4737e+01_rb/)
+      kbo(:,45,15) = (/ &
+     &6.6949e+01_rb,6.1798e+01_rb,5.9966e+01_rb,6.1660e+01_rb,5.5582e+01_rb/)
+      kbo(:,46,15) = (/ &
+     &6.7824e+01_rb,6.2979e+01_rb,6.0686e+01_rb,6.2546e+01_rb,5.6565e+01_rb/)
+      kbo(:,47,15) = (/ &
+     &6.9039e+01_rb,6.4342e+01_rb,6.1803e+01_rb,6.2906e+01_rb,5.8086e+01_rb/)
+      kbo(:,48,15) = (/ &
+     &6.9761e+01_rb,6.5409e+01_rb,6.2421e+01_rb,6.3565e+01_rb,5.8945e+01_rb/)
+      kbo(:,49,15) = (/ &
+     &7.0431e+01_rb,6.6423e+01_rb,6.3050e+01_rb,6.4501e+01_rb,5.9296e+01_rb/)
+      kbo(:,50,15) = (/ &
+     &7.1030e+01_rb,6.7738e+01_rb,6.3115e+01_rb,6.5100e+01_rb,6.0669e+01_rb/)
+      kbo(:,51,15) = (/ &
+     &7.1594e+01_rb,6.8849e+01_rb,6.3996e+01_rb,6.5429e+01_rb,6.2495e+01_rb/)
+      kbo(:,52,15) = (/ &
+     &7.2143e+01_rb,7.0005e+01_rb,6.4776e+01_rb,6.5575e+01_rb,6.3548e+01_rb/)
+      kbo(:,53,15) = (/ &
+     &7.2670e+01_rb,7.0732e+01_rb,6.5046e+01_rb,6.6263e+01_rb,6.4505e+01_rb/)
+      kbo(:,54,15) = (/ &
+     &7.3127e+01_rb,7.1823e+01_rb,6.6914e+01_rb,6.6275e+01_rb,6.7029e+01_rb/)
+      kbo(:,55,15) = (/ &
+     &7.3553e+01_rb,7.2289e+01_rb,6.8950e+01_rb,6.5529e+01_rb,6.7722e+01_rb/)
+      kbo(:,56,15) = (/ &
+     &7.3983e+01_rb,7.2738e+01_rb,7.0656e+01_rb,6.5646e+01_rb,6.6961e+01_rb/)
+      kbo(:,57,15) = (/ &
+     &7.4388e+01_rb,7.3166e+01_rb,7.1848e+01_rb,6.6976e+01_rb,6.6137e+01_rb/)
+      kbo(:,58,15) = (/ &
+     &7.4771e+01_rb,7.3567e+01_rb,7.2279e+01_rb,6.9020e+01_rb,6.5380e+01_rb/)
+      kbo(:,59,15) = (/ &
+     &7.4949e+01_rb,7.3730e+01_rb,7.2460e+01_rb,7.0691e+01_rb,6.5332e+01_rb/)
+      kbo(:,13,16) = (/ &
+     &5.0420e+00_rb,8.6337e+00_rb,8.8692e+00_rb,1.2195e+00_rb,9.3776e-01_rb/)
+      kbo(:,14,16) = (/ &
+     &1.0108e+01_rb,1.0449e+01_rb,1.0740e+01_rb,1.1004e+01_rb,9.1915e-01_rb/)
+      kbo(:,15,16) = (/ &
+     &1.2227e+01_rb,1.2648e+01_rb,1.3007e+01_rb,1.3327e+01_rb,1.3667e+01_rb/)
+      kbo(:,16,16) = (/ &
+     &1.4789e+01_rb,1.5299e+01_rb,1.5728e+01_rb,1.6109e+01_rb,1.6498e+01_rb/)
+      kbo(:,17,16) = (/ &
+     &1.7862e+01_rb,1.8466e+01_rb,1.8964e+01_rb,1.9401e+01_rb,1.9824e+01_rb/)
+      kbo(:,18,16) = (/ &
+     &2.1506e+01_rb,2.2192e+01_rb,2.2762e+01_rb,2.3238e+01_rb,2.3665e+01_rb/)
+      kbo(:,19,16) = (/ &
+     &2.5786e+01_rb,2.6523e+01_rb,2.7142e+01_rb,2.7627e+01_rb,2.8030e+01_rb/)
+      kbo(:,20,16) = (/ &
+     &3.0723e+01_rb,3.1489e+01_rb,3.2109e+01_rb,3.2556e+01_rb,3.2877e+01_rb/)
+      kbo(:,21,16) = (/ &
+     &3.6293e+01_rb,3.7031e+01_rb,3.7583e+01_rb,3.7941e+01_rb,3.8130e+01_rb/)
+      kbo(:,22,16) = (/ &
+     &4.2493e+01_rb,4.3104e+01_rb,4.3485e+01_rb,4.3668e+01_rb,4.3655e+01_rb/)
+      kbo(:,23,16) = (/ &
+     &4.9099e+01_rb,4.9493e+01_rb,4.9618e+01_rb,4.9538e+01_rb,4.9251e+01_rb/)
+      kbo(:,24,16) = (/ &
+     &5.5931e+01_rb,5.5983e+01_rb,5.5792e+01_rb,5.5378e+01_rb,5.4757e+01_rb/)
+      kbo(:,25,16) = (/ &
+     &6.2744e+01_rb,6.2387e+01_rb,6.1774e+01_rb,6.0982e+01_rb,5.9987e+01_rb/)
+      kbo(:,26,16) = (/ &
+     &6.9294e+01_rb,6.8455e+01_rb,6.7400e+01_rb,6.6158e+01_rb,6.4771e+01_rb/)
+      kbo(:,27,16) = (/ &
+     &7.5369e+01_rb,7.4018e+01_rb,7.2501e+01_rb,7.0820e+01_rb,6.9030e+01_rb/)
+      kbo(:,28,16) = (/ &
+     &8.0847e+01_rb,7.8971e+01_rb,7.6973e+01_rb,7.4879e+01_rb,7.2699e+01_rb/)
+      kbo(:,29,16) = (/ &
+     &8.5588e+01_rb,8.3223e+01_rb,8.0777e+01_rb,7.8292e+01_rb,7.5762e+01_rb/)
+      kbo(:,30,16) = (/ &
+     &8.9575e+01_rb,8.6758e+01_rb,8.3320e+01_rb,8.1073e+01_rb,7.8238e+01_rb/)
+      kbo(:,31,16) = (/ &
+     &9.2801e+01_rb,8.9596e+01_rb,8.6404e+01_rb,8.3251e+01_rb,8.0171e+01_rb/)
+      kbo(:,32,16) = (/ &
+     &9.5328e+01_rb,9.1774e+01_rb,8.8298e+01_rb,8.4902e+01_rb,7.6985e+01_rb/)
+      kbo(:,33,16) = (/ &
+     &9.7221e+01_rb,9.3383e+01_rb,8.9667e+01_rb,8.6065e+01_rb,5.8850e+01_rb/)
+      kbo(:,34,16) = (/ &
+     &9.8688e+01_rb,9.4629e+01_rb,9.0722e+01_rb,7.0430e+01_rb,3.0605e+01_rb/)
+      kbo(:,35,16) = (/ &
+     &1.0011e+02_rb,9.5862e+01_rb,8.7207e+01_rb,5.0589e+01_rb,4.4567e+00_rb/)
+      kbo(:,36,16) = (/ &
+     &1.0168e+02_rb,9.7257e+01_rb,7.6588e+01_rb,3.3945e+01_rb,3.3821e-01_rb/)
+      kbo(:,37,16) = (/ &
+     &1.0369e+02_rb,9.9078e+01_rb,7.2492e+01_rb,2.6526e+01_rb,3.3765e-01_rb/)
+      kbo(:,38,16) = (/ &
+     &1.0555e+02_rb,1.0077e+02_rb,6.5594e+01_rb,1.3779e+01_rb,3.3740e-01_rb/)
+      kbo(:,39,16) = (/ &
+     &1.0726e+02_rb,9.7866e+01_rb,5.5055e+01_rb,3.4196e-01_rb,3.3714e-01_rb/)
+      kbo(:,40,16) = (/ &
+     &1.0936e+02_rb,1.0037e+02_rb,5.6740e+01_rb,3.4227e-01_rb,3.3798e-01_rb/)
+      kbo(:,41,16) = (/ &
+     &1.1147e+02_rb,1.0552e+02_rb,5.9119e+01_rb,1.0312e+00_rb,3.3873e-01_rb/)
+      kbo(:,42,16) = (/ &
+     &1.1349e+02_rb,1.0806e+02_rb,6.1522e+01_rb,2.4025e+00_rb,3.3958e-01_rb/)
+      kbo(:,43,16) = (/ &
+     &1.1581e+02_rb,1.1021e+02_rb,6.4818e+01_rb,5.9686e+00_rb,3.4048e-01_rb/)
+      kbo(:,44,16) = (/ &
+     &1.1830e+02_rb,1.1248e+02_rb,7.1730e+01_rb,8.2150e+00_rb,3.4135e-01_rb/)
+      kbo(:,45,16) = (/ &
+     &1.2075e+02_rb,1.1473e+02_rb,7.7444e+01_rb,1.2041e+01_rb,3.1303e-01_rb/)
+      kbo(:,46,16) = (/ &
+     &1.2335e+02_rb,1.1716e+02_rb,8.1949e+01_rb,1.5245e+01_rb,3.1351e-01_rb/)
+      kbo(:,47,16) = (/ &
+     &1.2629e+02_rb,1.1987e+02_rb,8.8206e+01_rb,2.5272e+01_rb,3.1369e-01_rb/)
+      kbo(:,48,16) = (/ &
+     &1.2931e+02_rb,1.2262e+02_rb,9.4686e+01_rb,2.9706e+01_rb,3.1394e-01_rb/)
+      kbo(:,49,16) = (/ &
+     &1.3237e+02_rb,1.2544e+02_rb,9.8342e+01_rb,3.1959e+01_rb,3.1361e-01_rb/)
+      kbo(:,50,16) = (/ &
+     &1.3530e+02_rb,1.2816e+02_rb,1.0881e+02_rb,3.8226e+01_rb,3.1326e-01_rb/)
+      kbo(:,51,16) = (/ &
+     &1.3828e+02_rb,1.3089e+02_rb,1.1491e+02_rb,4.8666e+01_rb,3.1193e-01_rb/)
+      kbo(:,52,16) = (/ &
+     &1.4134e+02_rb,1.3361e+02_rb,1.2195e+02_rb,5.9393e+01_rb,3.1051e-01_rb/)
+      kbo(:,53,16) = (/ &
+     &1.4442e+02_rb,1.3646e+02_rb,1.2918e+02_rb,6.3097e+01_rb,3.0922e-01_rb/)
+      kbo(:,54,16) = (/ &
+     &1.4741e+02_rb,1.3916e+02_rb,1.3165e+02_rb,7.8318e+01_rb,3.0699e-01_rb/)
+      kbo(:,55,16) = (/ &
+     &1.5037e+02_rb,1.4182e+02_rb,1.3403e+02_rb,1.0259e+02_rb,2.6611e+01_rb/)
+      kbo(:,56,16) = (/ &
+     &1.5341e+02_rb,1.4449e+02_rb,1.3650e+02_rb,1.2291e+02_rb,5.4887e+01_rb/)
+      kbo(:,57,16) = (/ &
+     &1.5661e+02_rb,1.4731e+02_rb,1.3904e+02_rb,1.3152e+02_rb,7.9860e+01_rb/)
+      kbo(:,58,16) = (/ &
+     &1.5976e+02_rb,1.5007e+02_rb,1.4153e+02_rb,1.3378e+02_rb,1.0477e+02_rb/)
+      kbo(:,59,16) = (/ &
+     &1.6110e+02_rb,1.5124e+02_rb,1.4255e+02_rb,1.3470e+02_rb,1.2755e+02_rb/)
+
+!     The array KAO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level below 100~ mb.   The first index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index 
+!     runs over the g-channel (1 to 16).
+
+      kao_mco2(:, 1) = (/ &
+     & 8.88964e-07_rb, 1.13087e-06_rb, 1.43861e-06_rb, 1.83010e-06_rb, 2.32811e-06_rb, &
+     & 2.96165e-06_rb, 3.76760e-06_rb, 4.79286e-06_rb, 6.09712e-06_rb, 7.75630e-06_rb, &
+     & 9.86699e-06_rb, 1.25521e-05_rb, 1.59678e-05_rb, 2.03130e-05_rb, 2.58407e-05_rb, &
+     & 3.28727e-05_rb, 4.18182e-05_rb, 5.31980e-05_rb, 6.76745e-05_rb/)
+      kao_mco2(:, 2) = (/ &
+     & 1.10492e-05_rb, 1.35003e-05_rb, 1.64952e-05_rb, 2.01545e-05_rb, 2.46256e-05_rb, &
+     & 3.00885e-05_rb, 3.67632e-05_rb, 4.49188e-05_rb, 5.48835e-05_rb, 6.70588e-05_rb, &
+     & 8.19351e-05_rb, 1.00111e-04_rb, 1.22320e-04_rb, 1.49455e-04_rb, 1.82610e-04_rb, &
+     & 2.23121e-04_rb, 2.72618e-04_rb, 3.33095e-04_rb, 4.06988e-04_rb/)
+      kao_mco2(:, 3) = (/ &
+     & 1.51034e-05_rb, 1.81249e-05_rb, 2.17508e-05_rb, 2.61020e-05_rb, 3.13238e-05_rb, &
+     & 3.75901e-05_rb, 4.51101e-05_rb, 5.41344e-05_rb, 6.49640e-05_rb, 7.79601e-05_rb, &
+     & 9.35562e-05_rb, 1.12272e-04_rb, 1.34732e-04_rb, 1.61686e-04_rb, 1.94031e-04_rb, &
+     & 2.32847e-04_rb, 2.79429e-04_rb, 3.35329e-04_rb, 4.02411e-04_rb/)
+      kao_mco2(:, 4) = (/ &
+     & 1.57088e-05_rb, 1.89537e-05_rb, 2.28688e-05_rb, 2.75928e-05_rb, 3.32924e-05_rb, &
+     & 4.01695e-05_rb, 4.84671e-05_rb, 5.84787e-05_rb, 7.05584e-05_rb, 8.51332e-05_rb, &
+     & 1.02719e-04_rb, 1.23937e-04_rb, 1.49538e-04_rb, 1.80427e-04_rb, 2.17697e-04_rb, &
+     & 2.62666e-04_rb, 3.16923e-04_rb, 3.82388e-04_rb, 4.61376e-04_rb/)
+      kao_mco2(:, 5) = (/ &
+     & 3.09299e-05_rb, 3.73196e-05_rb, 4.50294e-05_rb, 5.43320e-05_rb, 6.55563e-05_rb, &
+     & 7.90995e-05_rb, 9.54405e-05_rb, 1.15157e-04_rb, 1.38948e-04_rb, 1.67652e-04_rb, &
+     & 2.02288e-04_rb, 2.44078e-04_rb, 2.94501e-04_rb, 3.55342e-04_rb, 4.28751e-04_rb, &
+     & 5.17327e-04_rb, 6.24200e-04_rb, 7.53153e-04_rb, 9.08745e-04_rb/)
+      kao_mco2(:, 6) = (/ &
+     & 1.98653e-05_rb, 2.38878e-05_rb, 2.87248e-05_rb, 3.45413e-05_rb, 4.15355e-05_rb, &
+     & 4.99459e-05_rb, 6.00593e-05_rb, 7.22206e-05_rb, 8.68445e-05_rb, 1.04429e-04_rb, &
+     & 1.25575e-04_rb, 1.51003e-04_rb, 1.81579e-04_rb, 2.18346e-04_rb, 2.62559e-04_rb, &
+     & 3.15724e-04_rb, 3.79654e-04_rb, 4.56529e-04_rb, 5.48971e-04_rb/)
+      kao_mco2(:, 7) = (/ &
+     & 1.54276e-06_rb, 1.90144e-06_rb, 2.34351e-06_rb, 2.88836e-06_rb, 3.55989e-06_rb, &
+     & 4.38754e-06_rb, 5.40761e-06_rb, 6.66485e-06_rb, 8.21439e-06_rb, 1.01242e-05_rb, &
+     & 1.24780e-05_rb, 1.53790e-05_rb, 1.89546e-05_rb, 2.33614e-05_rb, 2.87928e-05_rb, &
+     & 3.54869e-05_rb, 4.37374e-05_rb, 5.39060e-05_rb, 6.64388e-05_rb/)
+      kao_mco2(:, 8) = (/ &
+     & 1.66907e-06_rb, 2.11106e-06_rb, 2.67008e-06_rb, 3.37714e-06_rb, 4.27143e-06_rb, &
+     & 5.40254e-06_rb, 6.83318e-06_rb, 8.64266e-06_rb, 1.09313e-05_rb, 1.38260e-05_rb, &
+     & 1.74872e-05_rb, 2.21180e-05_rb, 2.79750e-05_rb, 3.53830e-05_rb, 4.47527e-05_rb, &
+     & 5.66036e-05_rb, 7.15927e-05_rb, 9.05509e-05_rb, 1.14529e-04_rb/)
+      kao_mco2(:, 9) = (/ &
+     & 1.22817e-06_rb, 1.56416e-06_rb, 1.99206e-06_rb, 2.53703e-06_rb, 3.23108e-06_rb, &
+     & 4.11501e-06_rb, 5.24074e-06_rb, 6.67445e-06_rb, 8.50037e-06_rb, 1.08258e-05_rb, &
+     & 1.37874e-05_rb, 1.75592e-05_rb, 2.23629e-05_rb, 2.84807e-05_rb, 3.62721e-05_rb, &
+     & 4.61950e-05_rb, 5.88325e-05_rb, 7.49272e-05_rb, 9.54249e-05_rb/)
+      kao_mco2(:,10) = (/ &
+     & 3.45943e-08_rb, 3.84726e-08_rb, 4.27856e-08_rb, 4.75821e-08_rb, 5.29164e-08_rb, &
+     & 5.88487e-08_rb, 6.54460e-08_rb, 7.27829e-08_rb, 8.09423e-08_rb, 9.00164e-08_rb, &
+     & 1.00108e-07_rb, 1.11331e-07_rb, 1.23811e-07_rb, 1.37691e-07_rb, 1.53128e-07_rb, &
+     & 1.70294e-07_rb, 1.89385e-07_rb, 2.10616e-07_rb, 2.34228e-07_rb/)
+      kao_mco2(:,11) = (/ &
+     & 2.89971e-08_rb, 3.35110e-08_rb, 3.87275e-08_rb, 4.47561e-08_rb, 5.17230e-08_rb, &
+     & 5.97745e-08_rb, 6.90794e-08_rb, 7.98327e-08_rb, 9.22599e-08_rb, 1.06622e-07_rb, &
+     & 1.23219e-07_rb, 1.42400e-07_rb, 1.64567e-07_rb, 1.90184e-07_rb, 2.19789e-07_rb, &
+     & 2.54003e-07_rb, 2.93542e-07_rb, 3.39237e-07_rb, 3.92044e-07_rb/)
+      kao_mco2(:,12) = (/ &
+     & 2.51330e-08_rb, 2.96783e-08_rb, 3.50457e-08_rb, 4.13837e-08_rb, 4.88679e-08_rb, &
+     & 5.77056e-08_rb, 6.81416e-08_rb, 8.04650e-08_rb, 9.50171e-08_rb, 1.12201e-07_rb, &
+     & 1.32492e-07_rb, 1.56454e-07_rb, 1.84748e-07_rb, 2.18160e-07_rb, 2.57614e-07_rb, &
+     & 3.04203e-07_rb, 3.59218e-07_rb, 4.24182e-07_rb, 5.00895e-07_rb/)
+      kao_mco2(:,13) = (/ &
+     & 1.16966e-07_rb, 1.13960e-07_rb, 1.11032e-07_rb, 1.08179e-07_rb, 1.05400e-07_rb, &
+     & 1.02691e-07_rb, 1.00053e-07_rb, 9.74820e-08_rb, 9.49772e-08_rb, 9.25368e-08_rb, &
+     & 9.01591e-08_rb, 8.78425e-08_rb, 8.55854e-08_rb, 8.33863e-08_rb, 8.12437e-08_rb, &
+     & 7.91562e-08_rb, 7.71223e-08_rb, 7.51407e-08_rb, 7.32100e-08_rb/)
+      kao_mco2(:,14) = (/ &
+     & 9.17853e-08_rb, 8.94322e-08_rb, 8.71395e-08_rb, 8.49055e-08_rb, 8.27289e-08_rb, &
+     & 8.06080e-08_rb, 7.85415e-08_rb, 7.65279e-08_rb, 7.45660e-08_rb, 7.26544e-08_rb, &
+     & 7.07918e-08_rb, 6.89770e-08_rb, 6.72086e-08_rb, 6.54856e-08_rb, 6.38068e-08_rb, &
+     & 6.21710e-08_rb, 6.05772e-08_rb, 5.90242e-08_rb, 5.75110e-08_rb/)
+      kao_mco2(:,15) = (/ &
+     & 8.34607e-08_rb, 8.13236e-08_rb, 7.92413e-08_rb, 7.72122e-08_rb, 7.52351e-08_rb, &
+     & 7.33087e-08_rb, 7.14315e-08_rb, 6.96025e-08_rb, 6.78202e-08_rb, 6.60837e-08_rb, &
+     & 6.43915e-08_rb, 6.27427e-08_rb, 6.11361e-08_rb, 5.95707e-08_rb, 5.80453e-08_rb, &
+     & 5.65590e-08_rb, 5.51108e-08_rb, 5.36996e-08_rb, 5.23246e-08_rb/)
+      kao_mco2(:,16) = (/ &
+     & 8.34607e-08_rb, 8.13236e-08_rb, 7.92413e-08_rb, 7.72122e-08_rb, 7.52351e-08_rb, &
+     & 7.33087e-08_rb, 7.14315e-08_rb, 6.96025e-08_rb, 6.78202e-08_rb, 6.60837e-08_rb, &
+     & 6.43915e-08_rb, 6.27427e-08_rb, 6.11361e-08_rb, 5.95707e-08_rb, 5.80453e-08_rb, &
+     & 5.65590e-08_rb, 5.51108e-08_rb, 5.36996e-08_rb, 5.23246e-08_rb/)
+      kao_mo3(:, 1) = (/ &
+     & 1.18276e-01_rb, 1.18009e-01_rb, 1.17742e-01_rb, 1.17476e-01_rb, 1.17210e-01_rb, &
+     & 1.16945e-01_rb, 1.16681e-01_rb, 1.16417e-01_rb, 1.16153e-01_rb, 1.15891e-01_rb, &
+     & 1.15629e-01_rb, 1.15367e-01_rb, 1.15106e-01_rb, 1.14846e-01_rb, 1.14586e-01_rb, &
+     & 1.14327e-01_rb, 1.14069e-01_rb, 1.13811e-01_rb, 1.13553e-01_rb/)
+      kao_mo3(:, 2) = (/ &
+     & 1.83777e-01_rb, 1.84268e-01_rb, 1.84761e-01_rb, 1.85255e-01_rb, 1.85751e-01_rb, &
+     & 1.86248e-01_rb, 1.86746e-01_rb, 1.87245e-01_rb, 1.87746e-01_rb, 1.88248e-01_rb, &
+     & 1.88752e-01_rb, 1.89257e-01_rb, 1.89763e-01_rb, 1.90270e-01_rb, 1.90779e-01_rb, &
+     & 1.91290e-01_rb, 1.91801e-01_rb, 1.92314e-01_rb, 1.92829e-01_rb/)
+      kao_mo3(:, 3) = (/ &
+     & 2.33414e-01_rb, 2.34511e-01_rb, 2.35614e-01_rb, 2.36722e-01_rb, 2.37836e-01_rb, &
+     & 2.38954e-01_rb, 2.40078e-01_rb, 2.41207e-01_rb, 2.42342e-01_rb, 2.43481e-01_rb, &
+     & 2.44626e-01_rb, 2.45777e-01_rb, 2.46933e-01_rb, 2.48094e-01_rb, 2.49261e-01_rb, &
+     & 2.50433e-01_rb, 2.51611e-01_rb, 2.52794e-01_rb, 2.53983e-01_rb/)
+      kao_mo3(:, 4) = (/ &
+     & 2.84906e-01_rb, 2.87358e-01_rb, 2.89832e-01_rb, 2.92328e-01_rb, 2.94844e-01_rb, &
+     & 2.97383e-01_rb, 2.99943e-01_rb, 3.02525e-01_rb, 3.05130e-01_rb, 3.07757e-01_rb, &
+     & 3.10406e-01_rb, 3.13078e-01_rb, 3.15774e-01_rb, 3.18492e-01_rb, 3.21234e-01_rb, &
+     & 3.24000e-01_rb, 3.26789e-01_rb, 3.29603e-01_rb, 3.32440e-01_rb/)
+      kao_mo3(:, 5) = (/ &
+     & 3.40508e-01_rb, 3.44095e-01_rb, 3.47720e-01_rb, 3.51383e-01_rb, 3.55084e-01_rb, &
+     & 3.58824e-01_rb, 3.62604e-01_rb, 3.66424e-01_rb, 3.70284e-01_rb, 3.74184e-01_rb, &
+     & 3.78126e-01_rb, 3.82109e-01_rb, 3.86134e-01_rb, 3.90202e-01_rb, 3.94312e-01_rb, &
+     & 3.98466e-01_rb, 4.02663e-01_rb, 4.06905e-01_rb, 4.11191e-01_rb/)
+      kao_mo3(:, 6) = (/ &
+     & 3.78368e-01_rb, 3.83690e-01_rb, 3.89086e-01_rb, 3.94558e-01_rb, 4.00107e-01_rb, &
+     & 4.05735e-01_rb, 4.11441e-01_rb, 4.17227e-01_rb, 4.23095e-01_rb, 4.29046e-01_rb, &
+     & 4.35080e-01_rb, 4.41199e-01_rb, 4.47404e-01_rb, 4.53697e-01_rb, 4.60078e-01_rb, &
+     & 4.66548e-01_rb, 4.73110e-01_rb, 4.79764e-01_rb, 4.86511e-01_rb/)
+      kao_mo3(:, 7) = (/ &
+     & 4.51965e-01_rb, 4.58461e-01_rb, 4.65051e-01_rb, 4.71735e-01_rb, 4.78516e-01_rb, &
+     & 4.85394e-01_rb, 4.92371e-01_rb, 4.99448e-01_rb, 5.06627e-01_rb, 5.13909e-01_rb, &
+     & 5.21296e-01_rb, 5.28789e-01_rb, 5.36390e-01_rb, 5.44100e-01_rb, 5.51920e-01_rb, &
+     & 5.59854e-01_rb, 5.67901e-01_rb, 5.76064e-01_rb, 5.84344e-01_rb/)
+      kao_mo3(:, 8) = (/ &
+     & 3.00557e-01_rb, 3.03974e-01_rb, 3.07430e-01_rb, 3.10925e-01_rb, 3.14460e-01_rb, &
+     & 3.18035e-01_rb, 3.21651e-01_rb, 3.25307e-01_rb, 3.29006e-01_rb, 3.32746e-01_rb, &
+     & 3.36529e-01_rb, 3.40355e-01_rb, 3.44224e-01_rb, 3.48137e-01_rb, 3.52095e-01_rb, &
+     & 3.56098e-01_rb, 3.60146e-01_rb, 3.64241e-01_rb, 3.68381e-01_rb/)
+      kao_mo3(:, 9) = (/ &
+     & 2.10042e-01_rb, 2.12905e-01_rb, 2.15806e-01_rb, 2.18748e-01_rb, 2.21729e-01_rb, &
+     & 2.24751e-01_rb, 2.27814e-01_rb, 2.30919e-01_rb, 2.34066e-01_rb, 2.37256e-01_rb, &
+     & 2.40489e-01_rb, 2.43767e-01_rb, 2.47089e-01_rb, 2.50457e-01_rb, 2.53870e-01_rb, &
+     & 2.57330e-01_rb, 2.60837e-01_rb, 2.64392e-01_rb, 2.67996e-01_rb/)
+      kao_mo3(:,10) = (/ &
+     & 2.09288e-01_rb, 2.11759e-01_rb, 2.14259e-01_rb, 2.16789e-01_rb, 2.19349e-01_rb, &
+     & 2.21939e-01_rb, 2.24559e-01_rb, 2.27210e-01_rb, 2.29893e-01_rb, 2.32607e-01_rb, &
+     & 2.35354e-01_rb, 2.38133e-01_rb, 2.40944e-01_rb, 2.43789e-01_rb, 2.46667e-01_rb, &
+     & 2.49580e-01_rb, 2.52527e-01_rb, 2.55508e-01_rb, 2.58525e-01_rb/)
+      kao_mo3(:,11) = (/ &
+     & 2.28947e-01_rb, 2.30609e-01_rb, 2.32283e-01_rb, 2.33969e-01_rb, 2.35667e-01_rb, &
+     & 2.37378e-01_rb, 2.39101e-01_rb, 2.40836e-01_rb, 2.42584e-01_rb, 2.44345e-01_rb, &
+     & 2.46118e-01_rb, 2.47905e-01_rb, 2.49704e-01_rb, 2.51516e-01_rb, 2.53342e-01_rb, &
+     & 2.55181e-01_rb, 2.57033e-01_rb, 2.58899e-01_rb, 2.60778e-01_rb/)
+      kao_mo3(:,12) = (/ &
+     & 2.57263e-01_rb, 2.58272e-01_rb, 2.59285e-01_rb, 2.60302e-01_rb, 2.61323e-01_rb, &
+     & 2.62347e-01_rb, 2.63376e-01_rb, 2.64409e-01_rb, 2.65446e-01_rb, 2.66487e-01_rb, &
+     & 2.67532e-01_rb, 2.68581e-01_rb, 2.69635e-01_rb, 2.70692e-01_rb, 2.71753e-01_rb, &
+     & 2.72819e-01_rb, 2.73889e-01_rb, 2.74963e-01_rb, 2.76042e-01_rb/)
+      kao_mo3(:,13) = (/ &
+     & 2.43322e-01_rb, 2.45918e-01_rb, 2.48541e-01_rb, 2.51192e-01_rb, 2.53872e-01_rb, &
+     & 2.56580e-01_rb, 2.59317e-01_rb, 2.62083e-01_rb, 2.64879e-01_rb, 2.67704e-01_rb, &
+     & 2.70560e-01_rb, 2.73446e-01_rb, 2.76363e-01_rb, 2.79311e-01_rb, 2.82290e-01_rb, &
+     & 2.85302e-01_rb, 2.88345e-01_rb, 2.91421e-01_rb, 2.94529e-01_rb/)
+      kao_mo3(:,14) = (/ &
+     & 2.10568e-01_rb, 2.16529e-01_rb, 2.22660e-01_rb, 2.28964e-01_rb, 2.35446e-01_rb, &
+     & 2.42113e-01_rb, 2.48967e-01_rb, 2.56016e-01_rb, 2.63265e-01_rb, 2.70719e-01_rb, &
+     & 2.78383e-01_rb, 2.86265e-01_rb, 2.94370e-01_rb, 3.02704e-01_rb, 3.11275e-01_rb, &
+     & 3.20088e-01_rb, 3.29150e-01_rb, 3.38470e-01_rb, 3.48052e-01_rb/)
+      kao_mo3(:,15) = (/ &
+     & 2.60406e-02_rb, 2.78779e-02_rb, 2.98448e-02_rb, 3.19505e-02_rb, 3.42048e-02_rb, &
+     & 3.66181e-02_rb, 3.92017e-02_rb, 4.19675e-02_rb, 4.49285e-02_rb, 4.80985e-02_rb, &
+     & 5.14920e-02_rb, 5.51250e-02_rb, 5.90143e-02_rb, 6.31781e-02_rb, 6.76356e-02_rb, &
+     & 7.24076e-02_rb, 7.75163e-02_rb, 8.29854e-02_rb, 8.88404e-02_rb/)
+      kao_mo3(:,16) = (/ &
+     & 2.31483e-02_rb, 2.46840e-02_rb, 2.63217e-02_rb, 2.80681e-02_rb, 2.99302e-02_rb, &
+     & 3.19160e-02_rb, 3.40335e-02_rb, 3.62914e-02_rb, 3.86992e-02_rb, 4.12668e-02_rb, &
+     & 4.40046e-02_rb, 4.69242e-02_rb, 5.00374e-02_rb, 5.33571e-02_rb, 5.68971e-02_rb, &
+     & 6.06720e-02_rb, 6.46974e-02_rb, 6.89897e-02_rb, 7.35669e-02_rb/)
+      kao_mn2o(:, 1) = (/ &
+     & 3.02276e-02_rb, 3.10321e-02_rb, 3.18580e-02_rb, 3.27059e-02_rb, 3.35764e-02_rb, &
+     & 3.44700e-02_rb, 3.53875e-02_rb, 3.63293e-02_rb, 3.72962e-02_rb, 3.82889e-02_rb, &
+     & 3.93079e-02_rb, 4.03541e-02_rb, 4.14281e-02_rb, 4.25307e-02_rb, 4.36627e-02_rb, &
+     & 4.48248e-02_rb, 4.60178e-02_rb, 4.72425e-02_rb, 4.84999e-02_rb/)
+      kao_mn2o(:, 2) = (/ &
+     & 6.10132e-02_rb, 6.17435e-02_rb, 6.24825e-02_rb, 6.32304e-02_rb, 6.39872e-02_rb, &
+     & 6.47531e-02_rb, 6.55281e-02_rb, 6.63124e-02_rb, 6.71061e-02_rb, 6.79093e-02_rb, &
+     & 6.87221e-02_rb, 6.95446e-02_rb, 7.03770e-02_rb, 7.12194e-02_rb, 7.20718e-02_rb, &
+     & 7.29344e-02_rb, 7.38074e-02_rb, 7.46908e-02_rb, 7.55848e-02_rb/)
+      kao_mn2o(:, 3) = (/ &
+     & 1.04479e-01_rb, 1.05566e-01_rb, 1.06664e-01_rb, 1.07774e-01_rb, 1.08895e-01_rb, &
+     & 1.10028e-01_rb, 1.11173e-01_rb, 1.12329e-01_rb, 1.13498e-01_rb, 1.14679e-01_rb, &
+     & 1.15872e-01_rb, 1.17077e-01_rb, 1.18295e-01_rb, 1.19526e-01_rb, 1.20770e-01_rb, &
+     & 1.22026e-01_rb, 1.23296e-01_rb, 1.24578e-01_rb, 1.25875e-01_rb/)
+      kao_mn2o(:, 4) = (/ &
+     & 2.07260e-01_rb, 2.08126e-01_rb, 2.08996e-01_rb, 2.09869e-01_rb, 2.10746e-01_rb, &
+     & 2.11627e-01_rb, 2.12511e-01_rb, 2.13399e-01_rb, 2.14291e-01_rb, 2.15187e-01_rb, &
+     & 2.16086e-01_rb, 2.16989e-01_rb, 2.17896e-01_rb, 2.18807e-01_rb, 2.19721e-01_rb, &
+     & 2.20640e-01_rb, 2.21562e-01_rb, 2.22488e-01_rb, 2.23418e-01_rb/)
+      kao_mn2o(:, 5) = (/ &
+     & 3.71566e-01_rb, 3.71353e-01_rb, 3.71141e-01_rb, 3.70928e-01_rb, 3.70716e-01_rb, &
+     & 3.70504e-01_rb, 3.70292e-01_rb, 3.70080e-01_rb, 3.69869e-01_rb, 3.69657e-01_rb, &
+     & 3.69446e-01_rb, 3.69234e-01_rb, 3.69023e-01_rb, 3.68812e-01_rb, 3.68601e-01_rb, &
+     & 3.68390e-01_rb, 3.68179e-01_rb, 3.67969e-01_rb, 3.67758e-01_rb/)
+      kao_mn2o(:, 6) = (/ &
+     & 5.28092e-01_rb, 5.27262e-01_rb, 5.26433e-01_rb, 5.25605e-01_rb, 5.24779e-01_rb, &
+     & 5.23954e-01_rb, 5.23130e-01_rb, 5.22307e-01_rb, 5.21486e-01_rb, 5.20666e-01_rb, &
+     & 5.19847e-01_rb, 5.19030e-01_rb, 5.18214e-01_rb, 5.17399e-01_rb, 5.16586e-01_rb, &
+     & 5.15773e-01_rb, 5.14962e-01_rb, 5.14153e-01_rb, 5.13344e-01_rb/)
+      kao_mn2o(:, 7) = (/ &
+     & 3.88140e-01_rb, 3.87956e-01_rb, 3.87773e-01_rb, 3.87590e-01_rb, 3.87407e-01_rb, &
+     & 3.87224e-01_rb, 3.87041e-01_rb, 3.86858e-01_rb, 3.86675e-01_rb, 3.86492e-01_rb, &
+     & 3.86310e-01_rb, 3.86127e-01_rb, 3.85945e-01_rb, 3.85763e-01_rb, 3.85580e-01_rb, &
+     & 3.85398e-01_rb, 3.85216e-01_rb, 3.85034e-01_rb, 3.84852e-01_rb/)
+      kao_mn2o(:, 8) = (/ &
+     & 3.12991e-01_rb, 3.12246e-01_rb, 3.11504e-01_rb, 3.10763e-01_rb, 3.10024e-01_rb, &
+     & 3.09287e-01_rb, 3.08552e-01_rb, 3.07818e-01_rb, 3.07086e-01_rb, 3.06356e-01_rb, &
+     & 3.05628e-01_rb, 3.04901e-01_rb, 3.04176e-01_rb, 3.03453e-01_rb, 3.02732e-01_rb, &
+     & 3.02012e-01_rb, 3.01294e-01_rb, 3.00577e-01_rb, 2.99863e-01_rb/)
+      kao_mn2o(:, 9) = (/ &
+     & 4.11761e-01_rb, 4.11309e-01_rb, 4.10858e-01_rb, 4.10407e-01_rb, 4.09957e-01_rb, &
+     & 4.09507e-01_rb, 4.09057e-01_rb, 4.08608e-01_rb, 4.08160e-01_rb, 4.07712e-01_rb, &
+     & 4.07265e-01_rb, 4.06818e-01_rb, 4.06371e-01_rb, 4.05925e-01_rb, 4.05480e-01_rb, &
+     & 4.05035e-01_rb, 4.04590e-01_rb, 4.04146e-01_rb, 4.03703e-01_rb/)
+      kao_mn2o(:,10) = (/ &
+     & 2.84648e-01_rb, 2.87025e-01_rb, 2.89421e-01_rb, 2.91838e-01_rb, 2.94275e-01_rb, &
+     & 2.96732e-01_rb, 2.99210e-01_rb, 3.01708e-01_rb, 3.04227e-01_rb, 3.06768e-01_rb, &
+     & 3.09329e-01_rb, 3.11912e-01_rb, 3.14517e-01_rb, 3.17143e-01_rb, 3.19791e-01_rb, &
+     & 3.22461e-01_rb, 3.25154e-01_rb, 3.27869e-01_rb, 3.30606e-01_rb/)
+      kao_mn2o(:,11) = (/ &
+     & 2.75090e-01_rb, 2.79370e-01_rb, 2.83716e-01_rb, 2.88129e-01_rb, 2.92611e-01_rb, &
+     & 2.97163e-01_rb, 3.01786e-01_rb, 3.06480e-01_rb, 3.11248e-01_rb, 3.16090e-01_rb, &
+     & 3.21007e-01_rb, 3.26001e-01_rb, 3.31072e-01_rb, 3.36222e-01_rb, 3.41452e-01_rb, &
+     & 3.46764e-01_rb, 3.52158e-01_rb, 3.57636e-01_rb, 3.63200e-01_rb/)
+      kao_mn2o(:,12) = (/ &
+     & 1.67753e-01_rb, 1.71386e-01_rb, 1.75098e-01_rb, 1.78890e-01_rb, 1.82765e-01_rb, &
+     & 1.86723e-01_rb, 1.90767e-01_rb, 1.94899e-01_rb, 1.99120e-01_rb, 2.03433e-01_rb, &
+     & 2.07839e-01_rb, 2.12340e-01_rb, 2.16939e-01_rb, 2.21638e-01_rb, 2.26438e-01_rb, &
+     & 2.31342e-01_rb, 2.36353e-01_rb, 2.41472e-01_rb, 2.46701e-01_rb/)
+      kao_mn2o(:,13) = (/ &
+     & 1.40543e-01_rb, 1.42049e-01_rb, 1.43571e-01_rb, 1.45109e-01_rb, 1.46663e-01_rb, &
+     & 1.48234e-01_rb, 1.49822e-01_rb, 1.51427e-01_rb, 1.53049e-01_rb, 1.54689e-01_rb, &
+     & 1.56346e-01_rb, 1.58021e-01_rb, 1.59713e-01_rb, 1.61424e-01_rb, 1.63153e-01_rb, &
+     & 1.64901e-01_rb, 1.66668e-01_rb, 1.68453e-01_rb, 1.70258e-01_rb/)
+      kao_mn2o(:,14) = (/ &
+     & 1.51530e-01_rb, 1.50944e-01_rb, 1.50360e-01_rb, 1.49779e-01_rb, 1.49199e-01_rb, &
+     & 1.48622e-01_rb, 1.48047e-01_rb, 1.47474e-01_rb, 1.46903e-01_rb, 1.46335e-01_rb, &
+     & 1.45769e-01_rb, 1.45205e-01_rb, 1.44643e-01_rb, 1.44083e-01_rb, 1.43526e-01_rb, &
+     & 1.42971e-01_rb, 1.42418e-01_rb, 1.41867e-01_rb, 1.41318e-01_rb/)
+      kao_mn2o(:,15) = (/ &
+     & 2.20492e-01_rb, 2.16479e-01_rb, 2.12539e-01_rb, 2.08671e-01_rb, 2.04873e-01_rb, &
+     & 2.01145e-01_rb, 1.97484e-01_rb, 1.93890e-01_rb, 1.90361e-01_rb, 1.86897e-01_rb, &
+     & 1.83495e-01_rb, 1.80156e-01_rb, 1.76877e-01_rb, 1.73658e-01_rb, 1.70497e-01_rb, &
+     & 1.67394e-01_rb, 1.64348e-01_rb, 1.61356e-01_rb, 1.58420e-01_rb/)
+      kao_mn2o(:,16) = (/ &
+     & 2.19848e-01_rb, 2.15847e-01_rb, 2.11919e-01_rb, 2.08062e-01_rb, 2.04275e-01_rb, &
+     & 2.00558e-01_rb, 1.96908e-01_rb, 1.93324e-01_rb, 1.89806e-01_rb, 1.86351e-01_rb, &
+     & 1.82960e-01_rb, 1.79630e-01_rb, 1.76361e-01_rb, 1.73151e-01_rb, 1.70000e-01_rb, &
+     & 1.66906e-01_rb, 1.63868e-01_rb, 1.60886e-01_rb, 1.57958e-01_rb/)
+
+!     The array KBO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level above 100~ mb.   The first index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index 
+!     runs over the g-channel (1 to 16).
+
+      kbo_mco2(:, 1) = (/ &
+     & 4.74280e-08_rb, 6.62724e-08_rb, 9.26042e-08_rb, 1.29398e-07_rb, 1.80812e-07_rb, &
+     & 2.52653e-07_rb, 3.53039e-07_rb, 4.93310e-07_rb, 6.89316e-07_rb, 9.63198e-07_rb, &
+     & 1.34590e-06_rb, 1.88067e-06_rb, 2.62790e-06_rb, 3.67204e-06_rb, 5.13104e-06_rb, &
+     & 7.16974e-06_rb, 1.00185e-05_rb, 1.39991e-05_rb, 1.95613e-05_rb/)
+      kbo_mco2(:, 2) = (/ &
+     & 1.14872e-07_rb, 1.63356e-07_rb, 2.32304e-07_rb, 3.30352e-07_rb, 4.69783e-07_rb, &
+     & 6.68064e-07_rb, 9.50033e-07_rb, 1.35101e-06_rb, 1.92123e-06_rb, 2.73213e-06_rb, &
+     & 3.88527e-06_rb, 5.52513e-06_rb, 7.85711e-06_rb, 1.11734e-05_rb, 1.58893e-05_rb, &
+     & 2.25957e-05_rb, 3.21326e-05_rb, 4.56948e-05_rb, 6.49811e-05_rb/)
+      kbo_mco2(:, 3) = (/ &
+     & 3.30676e-07_rb, 4.76313e-07_rb, 6.86094e-07_rb, 9.88267e-07_rb, 1.42353e-06_rb, &
+     & 2.05048e-06_rb, 2.95356e-06_rb, 4.25439e-06_rb, 6.12813e-06_rb, 8.82711e-06_rb, &
+     & 1.27148e-05_rb, 1.83147e-05_rb, 2.63810e-05_rb, 3.79998e-05_rb, 5.47359e-05_rb, &
+     & 7.88430e-05_rb, 1.13568e-04_rb, 1.63585e-04_rb, 2.35632e-04_rb/)
+      kbo_mco2(:, 4) = (/ &
+     & 6.58642e-07_rb, 9.52761e-07_rb, 1.37822e-06_rb, 1.99368e-06_rb, 2.88396e-06_rb, &
+     & 4.17181e-06_rb, 6.03475e-06_rb, 8.72960e-06_rb, 1.26279e-05_rb, 1.82669e-05_rb, &
+     & 2.64241e-05_rb, 3.82239e-05_rb, 5.52929e-05_rb, 7.99844e-05_rb, 1.15702e-04_rb, &
+     & 1.67369e-04_rb, 2.42109e-04_rb, 3.50223e-04_rb, 5.06617e-04_rb/)
+      kbo_mco2(:, 5) = (/ &
+     & 1.26418e-06_rb, 1.82095e-06_rb, 2.62292e-06_rb, 3.77810e-06_rb, 5.44204e-06_rb, &
+     & 7.83881e-06_rb, 1.12911e-05_rb, 1.62640e-05_rb, 2.34269e-05_rb, 3.37445e-05_rb, &
+     & 4.86061e-05_rb, 7.00131e-05_rb, 1.00848e-04_rb, 1.45263e-04_rb, 2.09239e-04_rb, &
+     & 3.01392e-04_rb, 4.34131e-04_rb, 6.25329e-04_rb, 9.00733e-04_rb/)
+      kbo_mco2(:, 6) = (/ &
+     & 2.38529e-06_rb, 3.43110e-06_rb, 4.93545e-06_rb, 7.09937e-06_rb, 1.02120e-05_rb, &
+     & 1.46895e-05_rb, 2.11300e-05_rb, 3.03943e-05_rb, 4.37205e-05_rb, 6.28894e-05_rb, &
+     & 9.04630e-05_rb, 1.30126e-04_rb, 1.87179e-04_rb, 2.69247e-04_rb, 3.87296e-04_rb, &
+     & 5.57104e-04_rb, 8.01364e-04_rb, 1.15272e-03_rb, 1.65812e-03_rb/)
+      kbo_mco2(:, 7) = (/ &
+     & 5.41398e-06_rb, 7.54295e-06_rb, 1.05091e-05_rb, 1.46417e-05_rb, 2.03993e-05_rb, &
+     & 2.84211e-05_rb, 3.95973e-05_rb, 5.51683e-05_rb, 7.68626e-05_rb, 1.07088e-04_rb, &
+     & 1.49199e-04_rb, 2.07869e-04_rb, 2.89610e-04_rb, 4.03496e-04_rb, 5.62165e-04_rb, &
+     & 7.83229e-04_rb, 1.09122e-03_rb, 1.52033e-03_rb, 2.11818e-03_rb/)
+      kbo_mco2(:, 8) = (/ &
+     & 1.09995e-05_rb, 1.54018e-05_rb, 2.15660e-05_rb, 3.01973e-05_rb, 4.22831e-05_rb, &
+     & 5.92059e-05_rb, 8.29017e-05_rb, 1.16081e-04_rb, 1.62540e-04_rb, 2.27592e-04_rb, &
+     & 3.18681e-04_rb, 4.46226e-04_rb, 6.24817e-04_rb, 8.74886e-04_rb, 1.22504e-03_rb, &
+     & 1.71533e-03_rb, 2.40185e-03_rb, 3.36313e-03_rb, 4.70915e-03_rb/)
+      kbo_mco2(:, 9) = (/ &
+     & 3.29051e-05_rb, 4.59996e-05_rb, 6.43050e-05_rb, 8.98950e-05_rb, 1.25668e-04_rb, &
+     & 1.75678e-04_rb, 2.45588e-04_rb, 3.43319e-04_rb, 4.79942e-04_rb, 6.70933e-04_rb, &
+     & 9.37930e-04_rb, 1.31118e-03_rb, 1.83295e-03_rb, 2.56237e-03_rb, 3.58206e-03_rb, &
+     & 5.00753e-03_rb, 7.00027e-03_rb, 9.78599e-03_rb, 1.36803e-02_rb/)
+      kbo_mco2(:,10) = (/ &
+     & 1.95126e-05_rb, 2.65944e-05_rb, 3.62463e-05_rb, 4.94013e-05_rb, 6.73305e-05_rb, &
+     & 9.17669e-05_rb, 1.25072e-04_rb, 1.70465e-04_rb, 2.32332e-04_rb, 3.16652e-04_rb, &
+     & 4.31575e-04_rb, 5.88208e-04_rb, 8.01687e-04_rb, 1.09264e-03_rb, 1.48920e-03_rb, &
+     & 2.02968e-03_rb, 2.76631e-03_rb, 3.77029e-03_rb, 5.13865e-03_rb/)
+      kbo_mco2(:,11) = (/ &
+     & 8.67271e-05_rb, 1.19228e-04_rb, 1.63908e-04_rb, 2.25332e-04_rb, 3.09774e-04_rb, &
+     & 4.25860e-04_rb, 5.85450e-04_rb, 8.04845e-04_rb, 1.10646e-03_rb, 1.52110e-03_rb, &
+     & 2.09112e-03_rb, 2.87476e-03_rb, 3.95207e-03_rb, 5.43309e-03_rb, 7.46911e-03_rb, &
+     & 1.02681e-02_rb, 1.41161e-02_rb, 1.94060e-02_rb, 2.66783e-02_rb/)
+      kbo_mco2(:,12) = (/ &
+     & 3.79194e-07_rb, 5.51419e-07_rb, 8.01866e-07_rb, 1.16606e-06_rb, 1.69567e-06_rb, &
+     & 2.46582e-06_rb, 3.58577e-06_rb, 5.21438e-06_rb, 7.58268e-06_rb, 1.10266e-05_rb, &
+     & 1.60348e-05_rb, 2.33176e-05_rb, 3.39081e-05_rb, 4.93087e-05_rb, 7.17040e-05_rb, &
+     & 1.04271e-04_rb, 1.51630e-04_rb, 2.20498e-04_rb, 3.20644e-04_rb/)
+      kbo_mco2(:,13) = (/ &
+     & 1.72555e-07_rb, 2.29952e-07_rb, 3.06441e-07_rb, 4.08373e-07_rb, 5.44209e-07_rb, &
+     & 7.25229e-07_rb, 9.66461e-07_rb, 1.28793e-06_rb, 1.71634e-06_rb, 2.28724e-06_rb, &
+     & 3.04805e-06_rb, 4.06192e-06_rb, 5.41303e-06_rb, 7.21356e-06_rb, 9.61299e-06_rb, &
+     & 1.28106e-05_rb, 1.70717e-05_rb, 2.27503e-05_rb, 3.03177e-05_rb/)
+      kbo_mco2(:,14) = (/ &
+     & 7.42245e-09_rb, 7.17780e-09_rb, 6.94122e-09_rb, 6.71243e-09_rb, 6.49118e-09_rb, &
+     & 6.27723e-09_rb, 6.07032e-09_rb, 5.87024e-09_rb, 5.67675e-09_rb, 5.48964e-09_rb, &
+     & 5.30870e-09_rb, 5.13372e-09_rb, 4.96451e-09_rb, 4.80087e-09_rb, 4.64263e-09_rb, &
+     & 4.48961e-09_rb, 4.34163e-09_rb, 4.19852e-09_rb, 4.06014e-09_rb/)
+      kbo_mco2(:,15) = (/ &
+     & 7.41847e-09_rb, 7.17332e-09_rb, 6.93627e-09_rb, 6.70705e-09_rb, 6.48541e-09_rb, &
+     & 6.27109e-09_rb, 6.06386e-09_rb, 5.86347e-09_rb, 5.66970e-09_rb, 5.48234e-09_rb, &
+     & 5.30117e-09_rb, 5.12599e-09_rb, 4.95659e-09_rb, 4.79280e-09_rb, 4.63441e-09_rb, &
+     & 4.48126e-09_rb, 4.33317e-09_rb, 4.18998e-09_rb, 4.05152e-09_rb/)
+      kbo_mco2(:,16) = (/ &
+     & 7.42855e-09_rb, 7.18278e-09_rb, 6.94513e-09_rb, 6.71535e-09_rb, 6.49317e-09_rb, &
+     & 6.27834e-09_rb, 6.07062e-09_rb, 5.86977e-09_rb, 5.67557e-09_rb, 5.48779e-09_rb, &
+     & 5.30622e-09_rb, 5.13066e-09_rb, 4.96091e-09_rb, 4.79678e-09_rb, 4.63808e-09_rb, &
+     & 4.48462e-09_rb, 4.33625e-09_rb, 4.19278e-09_rb, 4.05406e-09_rb/)
+      kbo_mn2o(:, 1) = (/ &
+     & 2.49055e-04_rb, 2.53574e-04_rb, 2.58175e-04_rb, 2.62860e-04_rb, 2.67629e-04_rb, &
+     & 2.72485e-04_rb, 2.77429e-04_rb, 2.82463e-04_rb, 2.87588e-04_rb, 2.92806e-04_rb, &
+     & 2.98119e-04_rb, 3.03528e-04_rb, 3.09036e-04_rb, 3.14643e-04_rb, 3.20352e-04_rb, &
+     & 3.26165e-04_rb, 3.32083e-04_rb, 3.38109e-04_rb, 3.44243e-04_rb/)
+      kbo_mn2o(:, 2) = (/ &
+     & 3.79251e-04_rb, 4.04353e-04_rb, 4.31117e-04_rb, 4.59652e-04_rb, 4.90075e-04_rb, &
+     & 5.22513e-04_rb, 5.57097e-04_rb, 5.93970e-04_rb, 6.33284e-04_rb, 6.75200e-04_rb, &
+     & 7.19890e-04_rb, 7.67539e-04_rb, 8.18340e-04_rb, 8.72505e-04_rb, 9.30255e-04_rb, &
+     & 9.91827e-04_rb, 1.05747e-03_rb, 1.12747e-03_rb, 1.20209e-03_rb/)
+      kbo_mn2o(:, 3) = (/ &
+     & 7.61140e-04_rb, 8.36483e-04_rb, 9.19284e-04_rb, 1.01028e-03_rb, 1.11029e-03_rb, &
+     & 1.22019e-03_rb, 1.34098e-03_rb, 1.47372e-03_rb, 1.61959e-03_rb, 1.77991e-03_rb, &
+     & 1.95610e-03_rb, 2.14973e-03_rb, 2.36253e-03_rb, 2.59639e-03_rb, 2.85340e-03_rb, &
+     & 3.13585e-03_rb, 3.44626e-03_rb, 3.78740e-03_rb, 4.16230e-03_rb/)
+      kbo_mn2o(:, 4) = (/ &
+     & 2.01074e-03_rb, 2.26915e-03_rb, 2.56077e-03_rb, 2.88987e-03_rb, 3.26126e-03_rb, &
+     & 3.68038e-03_rb, 4.15337e-03_rb, 4.68714e-03_rb, 5.28951e-03_rb, 5.96929e-03_rb, &
+     & 6.73643e-03_rb, 7.60217e-03_rb, 8.57916e-03_rb, 9.68172e-03_rb, 1.09260e-02_rb, &
+     & 1.23301e-02_rb, 1.39147e-02_rb, 1.57030e-02_rb, 1.77211e-02_rb/)
+      kbo_mn2o(:, 5) = (/ &
+     & 7.43302e-03_rb, 8.32582e-03_rb, 9.32585e-03_rb, 1.04460e-02_rb, 1.17007e-02_rb, &
+     & 1.31061e-02_rb, 1.46803e-02_rb, 1.64436e-02_rb, 1.84186e-02_rb, 2.06309e-02_rb, &
+     & 2.31090e-02_rb, 2.58846e-02_rb, 2.89937e-02_rb, 3.24762e-02_rb, 3.63769e-02_rb, &
+     & 4.07463e-02_rb, 4.56404e-02_rb, 5.11223e-02_rb, 5.72627e-02_rb/)
+      kbo_mn2o(:, 6) = (/ &
+     & 2.71911e-02_rb, 2.94258e-02_rb, 3.18441e-02_rb, 3.44612e-02_rb, 3.72933e-02_rb, &
+     & 4.03582e-02_rb, 4.36750e-02_rb, 4.72644e-02_rb, 5.11487e-02_rb, 5.53523e-02_rb, &
+     & 5.99014e-02_rb, 6.48243e-02_rb, 7.01518e-02_rb, 7.59172e-02_rb, 8.21563e-02_rb, &
+     & 8.89082e-02_rb, 9.62150e-02_rb, 1.04122e-01_rb, 1.12679e-01_rb/)
+      kbo_mn2o(:, 7) = (/ &
+     & 1.63331e-01_rb, 1.80469e-01_rb, 1.99406e-01_rb, 2.20330e-01_rb, 2.43449e-01_rb, &
+     & 2.68995e-01_rb, 2.97221e-01_rb, 3.28408e-01_rb, 3.62869e-01_rb, 4.00945e-01_rb, &
+     & 4.43017e-01_rb, 4.89503e-01_rb, 5.40867e-01_rb, 5.97621e-01_rb, 6.60330e-01_rb, &
+     & 7.29619e-01_rb, 8.06179e-01_rb, 8.90772e-01_rb, 9.84242e-01_rb/)
+      kbo_mn2o(:, 8) = (/ &
+     & 1.32648e+00_rb, 1.33515e+00_rb, 1.34387e+00_rb, 1.35265e+00_rb, 1.36149e+00_rb, &
+     & 1.37038e+00_rb, 1.37933e+00_rb, 1.38835e+00_rb, 1.39742e+00_rb, 1.40655e+00_rb, &
+     & 1.41574e+00_rb, 1.42499e+00_rb, 1.43429e+00_rb, 1.44367e+00_rb, 1.45310e+00_rb, &
+     & 1.46259e+00_rb, 1.47215e+00_rb, 1.48176e+00_rb, 1.49144e+00_rb/)
+      kbo_mn2o(:, 9) = (/ &
+     & 3.12620e+00_rb, 3.03118e+00_rb, 2.93905e+00_rb, 2.84972e+00_rb, 2.76310e+00_rb, &
+     & 2.67911e+00_rb, 2.59768e+00_rb, 2.51873e+00_rb, 2.44217e+00_rb, 2.36794e+00_rb, &
+     & 2.29596e+00_rb, 2.22618e+00_rb, 2.15851e+00_rb, 2.09290e+00_rb, 2.02929e+00_rb, &
+     & 1.96761e+00_rb, 1.90780e+00_rb, 1.84982e+00_rb, 1.79359e+00_rb/)
+      kbo_mn2o(:,10) = (/ &
+     & 1.60677e-02_rb, 1.82485e-02_rb, 2.07254e-02_rb, 2.35384e-02_rb, 2.67332e-02_rb, &
+     & 3.03617e-02_rb, 3.44827e-02_rb, 3.91629e-02_rb, 4.44785e-02_rb, 5.05154e-02_rb, &
+     & 5.73718e-02_rb, 6.51589e-02_rb, 7.40027e-02_rb, 8.40470e-02_rb, 9.54546e-02_rb, &
+     & 1.08411e-01_rb, 1.23125e-01_rb, 1.39836e-01_rb, 1.58816e-01_rb/)
+      kbo_mn2o(:,11) = (/ &
+     & 1.55287e-02_rb, 1.78265e-02_rb, 2.04642e-02_rb, 2.34922e-02_rb, 2.69683e-02_rb, &
+     & 3.09588e-02_rb, 3.55397e-02_rb, 4.07984e-02_rb, 4.68352e-02_rb, 5.37653e-02_rb, &
+     & 6.17208e-02_rb, 7.08535e-02_rb, 8.13375e-02_rb, 9.33728e-02_rb, 1.07189e-01_rb, &
+     & 1.23049e-01_rb, 1.41257e-01_rb, 1.62158e-01_rb, 1.86152e-01_rb/)
+      kbo_mn2o(:,12) = (/ &
+     & 7.13719e-03_rb, 8.18879e-03_rb, 9.39535e-03_rb, 1.07797e-02_rb, 1.23680e-02_rb, &
+     & 1.41903e-02_rb, 1.62811e-02_rb, 1.86800e-02_rb, 2.14324e-02_rb, 2.45902e-02_rb, &
+     & 2.82134e-02_rb, 3.23704e-02_rb, 3.71400e-02_rb, 4.26122e-02_rb, 4.88908e-02_rb, &
+     & 5.60945e-02_rb, 6.43596e-02_rb, 7.38424e-02_rb, 8.47224e-02_rb/)
+      kbo_mn2o(:,13) = (/ &
+     & 9.28813e-03_rb, 1.06108e-02_rb, 1.21218e-02_rb, 1.38480e-02_rb, 1.58199e-02_rb, &
+     & 1.80727e-02_rb, 2.06463e-02_rb, 2.35864e-02_rb, 2.69452e-02_rb, 3.07822e-02_rb, &
+     & 3.51657e-02_rb, 4.01734e-02_rb, 4.58941e-02_rb, 5.24296e-02_rb, 5.98956e-02_rb, &
+     & 6.84249e-02_rb, 7.81688e-02_rb, 8.93002e-02_rb, 1.02017e-01_rb/)
+      kbo_mn2o(:,14) = (/ &
+     & 2.17205e-02_rb, 2.51661e-02_rb, 2.91581e-02_rb, 3.37835e-02_rb, 3.91425e-02_rb, &
+     & 4.53517e-02_rb, 5.25458e-02_rb, 6.08811e-02_rb, 7.05387e-02_rb, 8.17282e-02_rb, &
+     & 9.46927e-02_rb, 1.09714e-01_rb, 1.27118e-01_rb, 1.47282e-01_rb, 1.70645e-01_rb, &
+     & 1.97715e-01_rb, 2.29078e-01_rb, 2.65417e-01_rb, 3.07520e-01_rb/)
+      kbo_mn2o(:,15) = (/ &
+     & 4.89156e-02_rb, 5.70504e-02_rb, 6.65379e-02_rb, 7.76033e-02_rb, 9.05089e-02_rb, &
+     & 1.05561e-01_rb, 1.23116e-01_rb, 1.43590e-01_rb, 1.67469e-01_rb, 1.95320e-01_rb, &
+     & 2.27802e-01_rb, 2.65686e-01_rb, 3.09869e-01_rb, 3.61401e-01_rb, 4.21503e-01_rb, &
+     & 4.91600e-01_rb, 5.73354e-01_rb, 6.68703e-01_rb, 7.79910e-01_rb/)
+      kbo_mn2o(:,16) = (/ &
+     & 1.13156e-02_rb, 1.46199e-02_rb, 1.88891e-02_rb, 2.44050e-02_rb, 3.15316e-02_rb, &
+     & 4.07393e-02_rb, 5.26358e-02_rb, 6.80061e-02_rb, 8.78649e-02_rb, 1.13523e-01_rb, &
+     & 1.46673e-01_rb, 1.89504e-01_rb, 2.44841e-01_rb, 3.16338e-01_rb, 4.08713e-01_rb, &
+     & 5.28064e-01_rb, 6.82266e-01_rb, 8.81496e-01_rb, 1.13891e+00_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &4.8166e-07_rb,3.7500e-07_rb,4.8978e-07_rb,5.9624e-07_rb,6.3742e-07_rb,7.5551e-07_rb, &
+     &7.7706e-07_rb,6.8681e-07_rb,7.5212e-07_rb,8.0956e-07_rb,7.8117e-07_rb,7.4835e-07_rb, &
+     &9.4118e-07_rb,1.2585e-06_rb,1.4976e-06_rb,1.4976e-06_rb/)
+      forrefo(2,:) = (/ &
+     &3.1320e-07_rb,4.0764e-07_rb,4.7468e-07_rb,5.9976e-07_rb,7.3324e-07_rb,8.1488e-07_rb, &
+     &7.6442e-07_rb,8.2007e-07_rb,7.7721e-07_rb,7.6377e-07_rb,8.0327e-07_rb,7.1881e-07_rb, &
+     &8.2148e-07_rb,1.0203e-06_rb,1.5033e-06_rb,1.5032e-06_rb/)
+      forrefo(3,:) = (/ &
+     &4.1831e-07_rb,5.5043e-07_rb,5.7783e-07_rb,6.1294e-07_rb,6.3396e-07_rb,6.2292e-07_rb, &
+     &6.1719e-07_rb,6.4183e-07_rb,7.6180e-07_rb,9.5477e-07_rb,9.5901e-07_rb,1.0207e-06_rb, &
+     &1.0387e-06_rb,1.1305e-06_rb,1.3602e-06_rb,1.5063e-06_rb/)
+      forrefo(4,:) = (/ &
+     &8.5878e-07_rb,6.0921e-07_rb,5.5773e-07_rb,5.3374e-07_rb,5.0495e-07_rb,4.9844e-07_rb, &
+     &5.1536e-07_rb,5.2908e-07_rb,4.7977e-07_rb,5.3177e-07_rb,4.9266e-07_rb,4.5403e-07_rb, &
+     &3.9695e-07_rb,3.4792e-07_rb,3.4912e-07_rb,3.4102e-07_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 3.16029e-02_rb, 2.74633e-02_rb, 2.38660e-02_rb, 2.07399e-02_rb, 1.80232e-02_rb, &
+     & 1.56624e-02_rb, 1.36108e-02_rb, 1.18280e-02_rb, 1.02787e-02_rb, 8.93231e-03_rb/)
+      selfrefo(:, 2) = (/ &
+     & 3.10422e-02_rb, 2.71312e-02_rb, 2.37130e-02_rb, 2.07254e-02_rb, 1.81142e-02_rb, &
+     & 1.58320e-02_rb, 1.38374e-02_rb, 1.20940e-02_rb, 1.05703e-02_rb, 9.23854e-03_rb/)
+      selfrefo(:, 3) = (/ &
+     & 3.08657e-02_rb, 2.69431e-02_rb, 2.35190e-02_rb, 2.05301e-02_rb, 1.79210e-02_rb, &
+     & 1.56435e-02_rb, 1.36554e-02_rb, 1.19200e-02_rb, 1.04051e-02_rb, 9.08279e-03_rb/)
+      selfrefo(:, 4) = (/ &
+     & 3.02668e-02_rb, 2.64686e-02_rb, 2.31470e-02_rb, 2.02422e-02_rb, 1.77020e-02_rb, &
+     & 1.54806e-02_rb, 1.35379e-02_rb, 1.18390e-02_rb, 1.03533e-02_rb, 9.05406e-03_rb/)
+      selfrefo(:, 5) = (/ &
+     & 2.98317e-02_rb, 2.61491e-02_rb, 2.29210e-02_rb, 2.00914e-02_rb, 1.76112e-02_rb, &
+     & 1.54371e-02_rb, 1.35314e-02_rb, 1.18610e-02_rb, 1.03968e-02_rb, 9.11332e-03_rb/)
+      selfrefo(:, 6) = (/ &
+     & 2.95545e-02_rb, 2.59083e-02_rb, 2.27120e-02_rb, 1.99100e-02_rb, 1.74537e-02_rb, &
+     & 1.53004e-02_rb, 1.34128e-02_rb, 1.17580e-02_rb, 1.03074e-02_rb, 9.03576e-03_rb/)
+      selfrefo(:, 7) = (/ &
+     & 2.97352e-02_rb, 2.60320e-02_rb, 2.27900e-02_rb, 1.99517e-02_rb, 1.74670e-02_rb, &
+     & 1.52916e-02_rb, 1.33872e-02_rb, 1.17200e-02_rb, 1.02604e-02_rb, 8.98258e-03_rb/)
+      selfrefo(:, 8) = (/ &
+     & 2.96543e-02_rb, 2.59760e-02_rb, 2.27540e-02_rb, 1.99316e-02_rb, 1.74593e-02_rb, &
+     & 1.52937e-02_rb, 1.33967e-02_rb, 1.17350e-02_rb, 1.02794e-02_rb, 9.00437e-03_rb/)
+      selfrefo(:, 9) = (/ &
+     & 2.97998e-02_rb, 2.60786e-02_rb, 2.28220e-02_rb, 1.99721e-02_rb, 1.74781e-02_rb, &
+     & 1.52955e-02_rb, 1.33855e-02_rb, 1.17140e-02_rb, 1.02512e-02_rb, 8.97110e-03_rb/)
+      selfrefo(:,10) = (/ &
+     & 2.98826e-02_rb, 2.61096e-02_rb, 2.28130e-02_rb, 1.99326e-02_rb, 1.74159e-02_rb, &
+     & 1.52170e-02_rb, 1.32957e-02_rb, 1.16170e-02_rb, 1.01502e-02_rb, 8.86867e-03_rb/)
+      selfrefo(:,11) = (/ &
+     & 2.94710e-02_rb, 2.58147e-02_rb, 2.26120e-02_rb, 1.98066e-02_rb, 1.73493e-02_rb, &
+     & 1.51969e-02_rb, 1.33115e-02_rb, 1.16600e-02_rb, 1.02134e-02_rb, 8.94628e-03_rb/)
+      selfrefo(:,12) = (/ &
+     & 2.96297e-02_rb, 2.59544e-02_rb, 2.27350e-02_rb, 1.99149e-02_rb, 1.74446e-02_rb, &
+     & 1.52808e-02_rb, 1.33853e-02_rb, 1.17250e-02_rb, 1.02706e-02_rb, 8.99663e-03_rb/)
+      selfrefo(:,13) = (/ &
+     & 2.96272e-02_rb, 2.59013e-02_rb, 2.26440e-02_rb, 1.97963e-02_rb, 1.73067e-02_rb, &
+     & 1.51302e-02_rb, 1.32275e-02_rb, 1.15640e-02_rb, 1.01097e-02_rb, 8.83833e-03_rb/)
+      selfrefo(:,14) = (/ &
+     & 2.89906e-02_rb, 2.53971e-02_rb, 2.22490e-02_rb, 1.94911e-02_rb, 1.70751e-02_rb, &
+     & 1.49585e-02_rb, 1.31044e-02_rb, 1.14800e-02_rb, 1.00570e-02_rb, 8.81038e-03_rb/)
+      selfrefo(:,15) = (/ &
+     & 2.80884e-02_rb, 2.46987e-02_rb, 2.17180e-02_rb, 1.90970e-02_rb, 1.67924e-02_rb, &
+     & 1.47659e-02_rb, 1.29839e-02_rb, 1.14170e-02_rb, 1.00392e-02_rb, 8.82765e-03_rb/)
+      selfrefo(:,16) = (/ &
+     & 2.80884e-02_rb, 2.46987e-02_rb, 2.17180e-02_rb, 1.90970e-02_rb, 1.67924e-02_rb, &
+     & 1.47659e-02_rb, 1.29839e-02_rb, 1.14170e-02_rb, 1.00392e-02_rb, 8.82765e-03_rb/)
+
+      end subroutine lw_kgb08
+
+! **************************************************************************
+      subroutine lw_kgb09
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg09, only : fracrefao, fracrefbo, kao, kbo, kao_mn2o, &
+                            kbo_mn2o, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fractions mapping level : P=212.7250 mb, T = 223.06 K
+      fracrefao(:, 1) = (/ &
+     &  1.8129e-01_rb,1.6119e-01_rb,1.3308e-01_rb,1.2342e-01_rb,1.1259e-01_rb,9.7580e-02_rb, &
+     &  7.9176e-02_rb,5.8541e-02_rb,3.9084e-02_rb,4.2419e-03_rb,3.4314e-03_rb,2.6935e-03_rb, &
+     &  1.9404e-03_rb,1.2218e-03_rb,4.5263e-04_rb,6.0909e-05_rb/)
+      fracrefao(:, 2) = (/ &
+     &  1.9665e-01_rb,1.5640e-01_rb,1.3101e-01_rb,1.2153e-01_rb,1.1037e-01_rb,9.6043e-02_rb, &
+     &  7.7856e-02_rb,5.7547e-02_rb,3.8670e-02_rb,4.1955e-03_rb,3.4104e-03_rb,2.6781e-03_rb, &
+     &  1.9245e-03_rb,1.2093e-03_rb,4.4113e-04_rb,6.0913e-05_rb/)
+      fracrefao(:, 3) = (/ &
+     &  2.0273e-01_rb,1.5506e-01_rb,1.3044e-01_rb,1.2043e-01_rb,1.0952e-01_rb,9.5384e-02_rb, &
+     &  7.7157e-02_rb,5.7176e-02_rb,3.8379e-02_rb,4.1584e-03_rb,3.3836e-03_rb,2.6412e-03_rb, &
+     &  1.8865e-03_rb,1.1791e-03_rb,4.2094e-04_rb,4.7410e-05_rb/)
+      fracrefao(:, 4) = (/ &
+     &  2.0272e-01_rb,1.5963e-01_rb,1.2913e-01_rb,1.2060e-01_rb,1.0820e-01_rb,9.4685e-02_rb, &
+     &  7.6544e-02_rb,5.6851e-02_rb,3.8155e-02_rb,4.0913e-03_rb,3.3442e-03_rb,2.6054e-03_rb, &
+     &  1.8875e-03_rb,1.1263e-03_rb,3.7743e-04_rb,4.7410e-05_rb/)
+      fracrefao(:, 5) = (/ &
+     &  2.0280e-01_rb,1.6353e-01_rb,1.2910e-01_rb,1.1968e-01_rb,1.0725e-01_rb,9.4112e-02_rb, &
+     &  7.5828e-02_rb,5.6526e-02_rb,3.7972e-02_rb,4.0205e-03_rb,3.3063e-03_rb,2.5681e-03_rb, &
+     &  1.8386e-03_rb,1.0757e-03_rb,3.5301e-04_rb,4.7410e-05_rb/)
+      fracrefao(:, 6) = (/ &
+     &  2.0294e-01_rb,1.6840e-01_rb,1.2852e-01_rb,1.1813e-01_rb,1.0724e-01_rb,9.2946e-02_rb, &
+     &  7.5029e-02_rb,5.6158e-02_rb,3.7744e-02_rb,3.9632e-03_rb,3.2434e-03_rb,2.5275e-03_rb, &
+     &  1.7558e-03_rb,1.0080e-03_rb,3.5301e-04_rb,4.7410e-05_rb/)
+      fracrefao(:, 7) = (/ &
+     &  2.0313e-01_rb,1.7390e-01_rb,1.2864e-01_rb,1.1689e-01_rb,1.0601e-01_rb,9.1791e-02_rb, &
+     &  7.4224e-02_rb,5.5500e-02_rb,3.7374e-02_rb,3.9214e-03_rb,3.1984e-03_rb,2.4162e-03_rb, &
+     &  1.6394e-03_rb,9.7275e-04_rb,3.5299e-04_rb,4.7410e-05_rb/)
+      fracrefao(:, 8) = (/ &
+     &  2.0332e-01_rb,1.7800e-01_rb,1.3286e-01_rb,1.1555e-01_rb,1.0407e-01_rb,9.0475e-02_rb, &
+     &  7.2452e-02_rb,5.4566e-02_rb,3.6677e-02_rb,3.7889e-03_rb,3.0351e-03_rb,2.2587e-03_rb, &
+     &  1.5764e-03_rb,9.7270e-04_rb,3.5300e-04_rb,4.7410e-05_rb/)
+      fracrefao(:, 9) = (/ &
+     &  1.9624e-01_rb,1.6519e-01_rb,1.3663e-01_rb,1.1535e-01_rb,1.0719e-01_rb,9.4156e-02_rb, &
+     &  7.6745e-02_rb,5.6987e-02_rb,3.8135e-02_rb,4.1626e-03_rb,3.4243e-03_rb,2.7116e-03_rb, &
+     &  1.7095e-03_rb,9.7271e-04_rb,3.5299e-04_rb,4.7410e-05_rb/)
+
+! Planck fraction mapping level : p=3.20e-2 mb, t = 197.92 k
+      fracrefbo(:) = (/ &
+     &  2.0914e-01_rb,1.5077e-01_rb,1.2878e-01_rb,1.1856e-01_rb,1.0695e-01_rb,9.3048e-02_rb, &
+     &  7.7645e-02_rb,6.0785e-02_rb,4.0642e-02_rb,4.0499e-03_rb,3.3931e-03_rb,2.6363e-03_rb, &
+     &  1.9151e-03_rb,1.1963e-03_rb,4.3471e-04_rb,5.1421e-05_rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1, 1) = (/ &
+     &2.1746e-06_rb,2.0220e-05_rb,3.5039e-05_rb,4.9564e-05_rb,6.4547e-05_rb,8.0645e-05_rb, &
+     &1.0050e-04_rb,1.3591e-04_rb,1.1422e-04_rb/)
+      kao(:, 2, 1, 1) = (/ &
+     &2.4567e-06_rb,2.4642e-05_rb,4.2577e-05_rb,6.0179e-05_rb,7.8156e-05_rb,9.7521e-05_rb, &
+     &1.2325e-04_rb,1.6438e-04_rb,1.3834e-04_rb/)
+      kao(:, 3, 1, 1) = (/ &
+     &2.7778e-06_rb,2.9755e-05_rb,5.1233e-05_rb,7.2538e-05_rb,9.4256e-05_rb,1.1716e-04_rb, &
+     &1.4583e-04_rb,1.9818e-04_rb,1.6722e-04_rb/)
+      kao(:, 4, 1, 1) = (/ &
+     &3.1364e-06_rb,3.5376e-05_rb,6.1122e-05_rb,8.6709e-05_rb,1.1261e-04_rb,1.4025e-04_rb, &
+     &1.7411e-04_rb,2.3326e-04_rb,2.0043e-04_rb/)
+      kao(:, 5, 1, 1) = (/ &
+     &3.4866e-06_rb,4.1773e-05_rb,7.2421e-05_rb,1.0284e-04_rb,1.3368e-04_rb,1.6658e-04_rb, &
+     &2.0645e-04_rb,2.7379e-04_rb,2.3933e-04_rb/)
+      kao(:, 1, 2, 1) = (/ &
+     &2.7658e-06_rb,1.8665e-05_rb,2.9579e-05_rb,4.0556e-05_rb,5.1475e-05_rb,6.3012e-05_rb, &
+     &7.6030e-05_rb,9.6554e-05_rb,8.6790e-05_rb/)
+      kao(:, 2, 2, 1) = (/ &
+     &3.1474e-06_rb,2.2675e-05_rb,3.6322e-05_rb,4.9569e-05_rb,6.2848e-05_rb,7.6725e-05_rb, &
+     &9.2975e-05_rb,1.1920e-04_rb,1.0628e-04_rb/)
+      kao(:, 3, 2, 1) = (/ &
+     &3.5619e-06_rb,2.7222e-05_rb,4.3763e-05_rb,5.9895e-05_rb,7.6025e-05_rb,9.2855e-05_rb, &
+     &1.1166e-04_rb,1.4410e-04_rb,1.2840e-04_rb/)
+      kao(:, 4, 2, 1) = (/ &
+     &4.0332e-06_rb,3.2194e-05_rb,5.2284e-05_rb,7.1664e-05_rb,9.1201e-05_rb,1.1132e-04_rb, &
+     &1.3395e-04_rb,1.6948e-04_rb,1.5482e-04_rb/)
+      kao(:, 5, 2, 1) = (/ &
+     &4.5426e-06_rb,3.7892e-05_rb,6.1930e-05_rb,8.5200e-05_rb,1.0845e-04_rb,1.3257e-04_rb, &
+     &1.5957e-04_rb,2.0150e-04_rb,1.8531e-04_rb/)
+      kao(:, 1, 3, 1) = (/ &
+     &4.6515e-06_rb,1.9518e-05_rb,2.8024e-05_rb,3.5437e-05_rb,4.2060e-05_rb,4.8949e-05_rb, &
+     &5.6458e-05_rb,6.6193e-05_rb,6.4702e-05_rb/)
+      kao(:, 2, 3, 1) = (/ &
+     &5.3085e-06_rb,2.3661e-05_rb,3.4250e-05_rb,4.3649e-05_rb,5.1882e-05_rb,6.0429e-05_rb, &
+     &6.9536e-05_rb,8.2456e-05_rb,7.9400e-05_rb/)
+      kao(:, 3, 3, 1) = (/ &
+     &6.0401e-06_rb,2.8338e-05_rb,4.1344e-05_rb,5.2675e-05_rb,6.2996e-05_rb,7.3527e-05_rb, &
+     &8.4697e-05_rb,9.9499e-05_rb,9.6161e-05_rb/)
+      kao(:, 4, 3, 1) = (/ &
+     &6.8636e-06_rb,3.3625e-05_rb,4.9393e-05_rb,6.2729e-05_rb,7.5705e-05_rb,8.8632e-05_rb, &
+     &1.0218e-04_rb,1.1965e-04_rb,1.1595e-04_rb/)
+      kao(:, 5, 3, 1) = (/ &
+     &7.7592e-06_rb,3.9481e-05_rb,5.8243e-05_rb,7.4429e-05_rb,9.0184e-05_rb,1.0593e-04_rb, &
+     &1.2226e-04_rb,1.4329e-04_rb,1.3957e-04_rb/)
+      kao(:, 1, 4, 1) = (/ &
+     &7.8254e-06_rb,2.2162e-05_rb,2.8768e-05_rb,3.4092e-05_rb,3.8273e-05_rb,4.1617e-05_rb, &
+     &4.4585e-05_rb,4.7843e-05_rb,5.0090e-05_rb/)
+      kao(:, 2, 4, 1) = (/ &
+     &9.0107e-06_rb,2.6852e-05_rb,3.5234e-05_rb,4.2063e-05_rb,4.7365e-05_rb,5.1787e-05_rb, &
+     &5.5276e-05_rb,5.9864e-05_rb,6.1930e-05_rb/)
+      kao(:, 3, 4, 1) = (/ &
+     &1.0349e-05_rb,3.2172e-05_rb,4.2565e-05_rb,5.1061e-05_rb,5.7654e-05_rb,6.3243e-05_rb, &
+     &6.7675e-05_rb,7.3397e-05_rb,7.5548e-05_rb/)
+      kao(:, 4, 4, 1) = (/ &
+     &1.1906e-05_rb,3.8190e-05_rb,5.0960e-05_rb,6.1161e-05_rb,6.9192e-05_rb,7.6085e-05_rb, &
+     &8.1960e-05_rb,8.9085e-05_rb,9.1511e-05_rb/)
+      kao(:, 5, 4, 1) = (/ &
+     &1.3610e-05_rb,4.4853e-05_rb,6.0373e-05_rb,7.2336e-05_rb,8.2116e-05_rb,9.0436e-05_rb, &
+     &9.8270e-05_rb,1.0717e-04_rb,1.0994e-04_rb/)
+      kao(:, 1, 5, 1) = (/ &
+     &1.2215e-05_rb,2.6429e-05_rb,3.0893e-05_rb,3.4176e-05_rb,3.6538e-05_rb,3.7893e-05_rb, &
+     &3.8292e-05_rb,3.7482e-05_rb,3.9876e-05_rb/)
+      kao(:, 2, 5, 1) = (/ &
+     &1.4086e-05_rb,3.1907e-05_rb,3.7874e-05_rb,4.2237e-05_rb,4.5377e-05_rb,4.7376e-05_rb, &
+     &4.7976e-05_rb,4.7239e-05_rb,4.9622e-05_rb/)
+      kao(:, 3, 5, 1) = (/ &
+     &1.6264e-05_rb,3.8161e-05_rb,4.5845e-05_rb,5.1471e-05_rb,5.5412e-05_rb,5.8145e-05_rb, &
+     &5.8993e-05_rb,5.8204e-05_rb,6.0963e-05_rb/)
+      kao(:, 4, 5, 1) = (/ &
+     &1.8858e-05_rb,4.5142e-05_rb,5.4763e-05_rb,6.1781e-05_rb,6.6831e-05_rb,7.0144e-05_rb, &
+     &7.1439e-05_rb,7.0642e-05_rb,7.3664e-05_rb/)
+      kao(:, 5, 5, 1) = (/ &
+     &2.1682e-05_rb,5.2995e-05_rb,6.4832e-05_rb,7.3555e-05_rb,7.9689e-05_rb,8.3689e-05_rb, &
+     &8.5451e-05_rb,8.5137e-05_rb,8.8330e-05_rb/)
+      kao(:, 1, 6, 1) = (/ &
+     &1.7737e-05_rb,3.1507e-05_rb,3.4689e-05_rb,3.5923e-05_rb,3.6042e-05_rb,3.5547e-05_rb, &
+     &3.3855e-05_rb,3.0889e-05_rb,3.3707e-05_rb/)
+      kao(:, 2, 6, 1) = (/ &
+     &2.0662e-05_rb,3.8270e-05_rb,4.2282e-05_rb,4.3931e-05_rb,4.4914e-05_rb,4.4463e-05_rb, &
+     &4.2744e-05_rb,3.9347e-05_rb,4.1797e-05_rb/)
+      kao(:, 3, 6, 1) = (/ &
+     &2.4128e-05_rb,4.5613e-05_rb,5.0898e-05_rb,5.3590e-05_rb,5.4968e-05_rb,5.4808e-05_rb, &
+     &5.3000e-05_rb,4.8943e-05_rb,5.1147e-05_rb/)
+      kao(:, 4, 6, 1) = (/ &
+     &2.7999e-05_rb,5.3907e-05_rb,6.0955e-05_rb,6.4423e-05_rb,6.6442e-05_rb,6.6605e-05_rb, &
+     &6.4604e-05_rb,5.9878e-05_rb,6.1516e-05_rb/)
+      kao(:, 5, 6, 1) = (/ &
+     &3.2152e-05_rb,6.3564e-05_rb,7.2012e-05_rb,7.6692e-05_rb,7.9463e-05_rb,7.9823e-05_rb, &
+     &7.7573e-05_rb,7.2281e-05_rb,7.4081e-05_rb/)
+      kao(:, 1, 7, 1) = (/ &
+     &2.6880e-05_rb,4.1451e-05_rb,4.2153e-05_rb,4.1795e-05_rb,4.0071e-05_rb,3.7010e-05_rb, &
+     &3.2935e-05_rb,2.7157e-05_rb,3.0165e-05_rb/)
+      kao(:, 2, 7, 1) = (/ &
+     &3.1867e-05_rb,5.0449e-05_rb,5.1950e-05_rb,5.1350e-05_rb,4.9502e-05_rb,4.6117e-05_rb, &
+     &4.1536e-05_rb,3.4782e-05_rb,3.7420e-05_rb/)
+      kao(:, 3, 7, 1) = (/ &
+     &3.7274e-05_rb,6.0537e-05_rb,6.2610e-05_rb,6.2280e-05_rb,6.0355e-05_rb,5.6848e-05_rb, &
+     &5.1457e-05_rb,4.3658e-05_rb,4.5586e-05_rb/)
+      kao(:, 4, 7, 1) = (/ &
+     &4.3315e-05_rb,7.1931e-05_rb,7.4511e-05_rb,7.5005e-05_rb,7.2731e-05_rb,6.8916e-05_rb, &
+     &6.2904e-05_rb,5.3755e-05_rb,5.5264e-05_rb/)
+      kao(:, 5, 7, 1) = (/ &
+     &4.9907e-05_rb,8.4683e-05_rb,8.8542e-05_rb,8.9292e-05_rb,8.6631e-05_rb,8.2549e-05_rb, &
+     &7.6077e-05_rb,6.5242e-05_rb,6.5892e-05_rb/)
+      kao(:, 1, 8, 1) = (/ &
+     &4.7627e-05_rb,6.4864e-05_rb,6.3521e-05_rb,5.9018e-05_rb,5.3108e-05_rb,4.6571e-05_rb, &
+     &3.8650e-05_rb,2.8473e-05_rb,2.9135e-05_rb/)
+      kao(:, 2, 8, 1) = (/ &
+     &5.7767e-05_rb,7.9036e-05_rb,7.7751e-05_rb,7.3012e-05_rb,6.6279e-05_rb,5.8148e-05_rb, &
+     &4.8459e-05_rb,3.6303e-05_rb,3.6552e-05_rb/)
+      kao(:, 3, 8, 1) = (/ &
+     &6.8331e-05_rb,9.5161e-05_rb,9.3980e-05_rb,8.8741e-05_rb,8.0901e-05_rb,7.1279e-05_rb, &
+     &5.9682e-05_rb,4.5314e-05_rb,4.4112e-05_rb/)
+      kao(:, 4, 8, 1) = (/ &
+     &7.9894e-05_rb,1.1320e-04_rb,1.1263e-04_rb,1.0646e-04_rb,9.7413e-05_rb,8.6626e-05_rb, &
+     &7.2540e-05_rb,5.5667e-05_rb,5.2996e-05_rb/)
+      kao(:, 5, 8, 1) = (/ &
+     &9.2972e-05_rb,1.3437e-04_rb,1.3320e-04_rb,1.2651e-04_rb,1.1648e-04_rb,1.0389e-04_rb, &
+     &8.7249e-05_rb,6.7590e-05_rb,6.3371e-05_rb/)
+      kao(:, 1, 9, 1) = (/ &
+     &1.5799e-04_rb,1.8833e-04_rb,1.7550e-04_rb,1.5612e-04_rb,1.3380e-04_rb,1.0918e-04_rb, &
+     &8.2063e-05_rb,5.1241e-05_rb,3.5341e-05_rb/)
+      kao(:, 2, 9, 1) = (/ &
+     &1.9443e-04_rb,2.2819e-04_rb,2.1471e-04_rb,1.9244e-04_rb,1.6566e-04_rb,1.3587e-04_rb, &
+     &1.0320e-04_rb,6.4536e-05_rb,4.5195e-05_rb/)
+      kao(:, 3, 9, 1) = (/ &
+     &2.3622e-04_rb,2.7685e-04_rb,2.6057e-04_rb,2.3445e-04_rb,2.0276e-04_rb,1.6671e-04_rb, &
+     &1.2651e-04_rb,7.9797e-05_rb,5.6882e-05_rb/)
+      kao(:, 4, 9, 1) = (/ &
+     &2.7828e-04_rb,3.3139e-04_rb,3.1210e-04_rb,2.8146e-04_rb,2.4413e-04_rb,2.0071e-04_rb, &
+     &1.5211e-04_rb,9.7273e-05_rb,6.9081e-05_rb/)
+      kao(:, 5, 9, 1) = (/ &
+     &3.2528e-04_rb,3.9307e-04_rb,3.6944e-04_rb,3.3441e-04_rb,2.9052e-04_rb,2.3944e-04_rb, &
+     &1.8220e-04_rb,1.1689e-04_rb,8.4202e-05_rb/)
+      kao(:, 1,10, 1) = (/ &
+     &5.9822e-04_rb,6.2372e-04_rb,5.8089e-04_rb,5.1261e-04_rb,4.3322e-04_rb,3.4273e-04_rb, &
+     &2.4200e-04_rb,1.3558e-04_rb,7.2135e-05_rb/)
+      kao(:, 2,10, 1) = (/ &
+     &7.4373e-04_rb,7.8308e-04_rb,7.2223e-04_rb,6.3443e-04_rb,5.3223e-04_rb,4.2429e-04_rb, &
+     &3.0242e-04_rb,1.7107e-04_rb,9.5831e-05_rb/)
+      kao(:, 3,10, 1) = (/ &
+     &9.1691e-04_rb,9.5621e-04_rb,8.7625e-04_rb,7.6950e-04_rb,6.5144e-04_rb,5.1701e-04_rb, &
+     &3.7121e-04_rb,2.1199e-04_rb,1.2423e-04_rb/)
+      kao(:, 4,10, 1) = (/ &
+     &1.1043e-03_rb,1.1414e-03_rb,1.0539e-03_rb,9.3161e-04_rb,7.8672e-04_rb,6.2626e-04_rb, &
+     &4.5160e-04_rb,2.5892e-04_rb,1.5666e-04_rb/)
+      kao(:, 5,10, 1) = (/ &
+     &1.3045e-03_rb,1.3552e-03_rb,1.2556e-03_rb,1.1172e-03_rb,9.4316e-04_rb,7.4718e-04_rb, &
+     &5.4008e-04_rb,3.1196e-04_rb,1.9599e-04_rb/)
+      kao(:, 1,11, 1) = (/ &
+     &8.7712e-04_rb,8.8837e-04_rb,8.1430e-04_rb,7.2064e-04_rb,6.0791e-04_rb,4.8638e-04_rb, &
+     &3.4855e-04_rb,1.8904e-04_rb,9.5086e-05_rb/)
+      kao(:, 2,11, 1) = (/ &
+     &1.1025e-03_rb,1.1220e-03_rb,1.0310e-03_rb,9.0820e-04_rb,7.5807e-04_rb,5.9864e-04_rb, &
+     &4.3064e-04_rb,2.3702e-04_rb,1.2669e-04_rb/)
+      kao(:, 3,11, 1) = (/ &
+     &1.3684e-03_rb,1.3746e-03_rb,1.2594e-03_rb,1.1058e-03_rb,9.3187e-04_rb,7.3748e-04_rb, &
+     &5.2465e-04_rb,2.9520e-04_rb,1.6181e-04_rb/)
+      kao(:, 4,11, 1) = (/ &
+     &1.6471e-03_rb,1.6623e-03_rb,1.5206e-03_rb,1.3382e-03_rb,1.1315e-03_rb,8.9471e-04_rb, &
+     &6.4214e-04_rb,3.6310e-04_rb,2.0489e-04_rb/)
+      kao(:, 5,11, 1) = (/ &
+     &1.9688e-03_rb,1.9772e-03_rb,1.8138e-03_rb,1.6028e-03_rb,1.3619e-03_rb,1.0826e-03_rb, &
+     &7.7699e-04_rb,4.3404e-04_rb,2.5459e-04_rb/)
+      kao(:, 1,12, 1) = (/ &
+     &9.4409e-04_rb,9.5030e-04_rb,8.6958e-04_rb,7.6723e-04_rb,6.4799e-04_rb,5.1804e-04_rb, &
+     &3.7162e-04_rb,2.0179e-04_rb,1.0181e-04_rb/)
+      kao(:, 2,12, 1) = (/ &
+     &1.2024e-03_rb,1.2024e-03_rb,1.1035e-03_rb,9.7105e-04_rb,8.1245e-04_rb,6.4379e-04_rb, &
+     &4.6123e-04_rb,2.5624e-04_rb,1.3746e-04_rb/)
+      kao(:, 3,12, 1) = (/ &
+     &1.5009e-03_rb,1.4895e-03_rb,1.3527e-03_rb,1.1889e-03_rb,1.0016e-03_rb,7.9376e-04_rb, &
+     &5.6671e-04_rb,3.1943e-04_rb,1.7568e-04_rb/)
+      kao(:, 4,12, 1) = (/ &
+     &1.8192e-03_rb,1.8117e-03_rb,1.6422e-03_rb,1.4410e-03_rb,1.2151e-03_rb,9.6812e-04_rb, &
+     &6.9546e-04_rb,3.9137e-04_rb,2.1782e-04_rb/)
+      kao(:, 5,12, 1) = (/ &
+     &2.1766e-03_rb,2.1635e-03_rb,1.9700e-03_rb,1.7314e-03_rb,1.4651e-03_rb,1.1736e-03_rb, &
+     &8.4593e-04_rb,4.7032e-04_rb,2.5768e-04_rb/)
+      kao(:, 1,13, 1) = (/ &
+     &8.2069e-04_rb,8.2445e-04_rb,7.5154e-04_rb,6.6188e-04_rb,5.6185e-04_rb,4.5083e-04_rb, &
+     &3.2275e-04_rb,1.7851e-04_rb,9.1099e-05_rb/)
+      kao(:, 2,13, 1) = (/ &
+     &1.0473e-03_rb,1.0502e-03_rb,9.5966e-04_rb,8.4257e-04_rb,7.0741e-04_rb,5.6233e-04_rb, &
+     &4.0370e-04_rb,2.2679e-04_rb,1.2172e-04_rb/)
+      kao(:, 3,13, 1) = (/ &
+     &1.3133e-03_rb,1.3024e-03_rb,1.1846e-03_rb,1.0375e-03_rb,8.7436e-04_rb,6.9645e-04_rb, &
+     &5.0292e-04_rb,2.8463e-04_rb,1.5549e-04_rb/)
+      kao(:, 4,13, 1) = (/ &
+     &1.6064e-03_rb,1.5873e-03_rb,1.4461e-03_rb,1.2677e-03_rb,1.0715e-03_rb,8.5901e-04_rb, &
+     &6.1842e-04_rb,3.4781e-04_rb,1.9357e-04_rb/)
+      kao(:, 5,13, 1) = (/ &
+     &1.9305e-03_rb,1.9051e-03_rb,1.7364e-03_rb,1.5314e-03_rb,1.2972e-03_rb,1.0440e-03_rb, &
+     &7.5312e-04_rb,4.2210e-04_rb,2.3145e-04_rb/)
+      kao(:, 1, 1, 2) = (/ &
+     &8.1346e-06_rb,1.0615e-04_rb,1.6451e-04_rb,2.1843e-04_rb,2.7217e-04_rb,3.3271e-04_rb, &
+     &4.0424e-04_rb,5.2737e-04_rb,4.6457e-04_rb/)
+      kao(:, 2, 1, 2) = (/ &
+     &9.5357e-06_rb,1.2245e-04_rb,1.9203e-04_rb,2.5686e-04_rb,3.2147e-04_rb,3.9091e-04_rb, &
+     &4.7632e-04_rb,6.1736e-04_rb,5.3890e-04_rb/)
+      kao(:, 3, 1, 2) = (/ &
+     &1.0894e-05_rb,1.4027e-04_rb,2.2328e-04_rb,3.0098e-04_rb,3.7740e-04_rb,4.5873e-04_rb, &
+     &5.6256e-04_rb,7.2836e-04_rb,6.2820e-04_rb/)
+      kao(:, 4, 1, 2) = (/ &
+     &1.2218e-05_rb,1.6125e-04_rb,2.5837e-04_rb,3.4988e-04_rb,4.3991e-04_rb,5.3396e-04_rb, &
+     &6.5212e-04_rb,8.5783e-04_rb,7.3258e-04_rb/)
+      kao(:, 5, 1, 2) = (/ &
+     &1.3559e-05_rb,1.8418e-04_rb,2.9709e-04_rb,4.0563e-04_rb,5.0913e-04_rb,6.2018e-04_rb, &
+     &7.5464e-04_rb,9.9267e-04_rb,8.5248e-04_rb/)
+      kao(:, 1, 2, 2) = (/ &
+     &1.0648e-05_rb,1.0205e-04_rb,1.5218e-04_rb,1.9460e-04_rb,2.3469e-04_rb,2.7445e-04_rb, &
+     &3.2374e-04_rb,3.9687e-04_rb,3.7021e-04_rb/)
+      kao(:, 2, 2, 2) = (/ &
+     &1.2479e-05_rb,1.1864e-04_rb,1.7693e-04_rb,2.2906e-04_rb,2.7817e-04_rb,3.2635e-04_rb, &
+     &3.8100e-04_rb,4.6812e-04_rb,4.2972e-04_rb/)
+      kao(:, 3, 2, 2) = (/ &
+     &1.4325e-05_rb,1.3615e-04_rb,2.0613e-04_rb,2.6822e-04_rb,3.2742e-04_rb,3.8532e-04_rb, &
+     &4.4992e-04_rb,5.5581e-04_rb,5.0382e-04_rb/)
+      kao(:, 4, 2, 2) = (/ &
+     &1.6131e-05_rb,1.5522e-04_rb,2.3823e-04_rb,3.1216e-04_rb,3.8163e-04_rb,4.4987e-04_rb, &
+     &5.2423e-04_rb,6.5095e-04_rb,5.8901e-04_rb/)
+      kao(:, 5, 2, 2) = (/ &
+     &1.7840e-05_rb,1.7738e-04_rb,2.7413e-04_rb,3.6145e-04_rb,4.4307e-04_rb,5.2217e-04_rb, &
+     &6.0968e-04_rb,7.4929e-04_rb,6.8588e-04_rb/)
+      kao(:, 1, 3, 2) = (/ &
+     &1.7975e-05_rb,1.1236e-04_rb,1.5383e-04_rb,1.8734e-04_rb,2.1612e-04_rb,2.4014e-04_rb, &
+     &2.6058e-04_rb,2.9343e-04_rb,2.9752e-04_rb/)
+      kao(:, 2, 3, 2) = (/ &
+     &2.1208e-05_rb,1.3084e-04_rb,1.8013e-04_rb,2.2080e-04_rb,2.5543e-04_rb,2.8432e-04_rb, &
+     &3.1199e-04_rb,3.4846e-04_rb,3.5196e-04_rb/)
+      kao(:, 3, 3, 2) = (/ &
+     &2.4558e-05_rb,1.5021e-04_rb,2.0878e-04_rb,2.5693e-04_rb,2.9945e-04_rb,3.3619e-04_rb, &
+     &3.7048e-04_rb,4.1334e-04_rb,4.1350e-04_rb/)
+      kao(:, 4, 3, 2) = (/ &
+     &2.7720e-05_rb,1.7111e-04_rb,2.4012e-04_rb,2.9904e-04_rb,3.4910e-04_rb,3.9367e-04_rb, &
+     &4.3560e-04_rb,4.8351e-04_rb,4.8248e-04_rb/)
+      kao(:, 5, 3, 2) = (/ &
+     &3.0839e-05_rb,1.9412e-04_rb,2.7570e-04_rb,3.4584e-04_rb,4.0483e-04_rb,4.5917e-04_rb, &
+     &5.0628e-04_rb,5.6356e-04_rb,5.6016e-04_rb/)
+      kao(:, 1, 4, 2) = (/ &
+     &3.0257e-05_rb,1.3348e-04_rb,1.6797e-04_rb,1.9240e-04_rb,2.0954e-04_rb,2.2222e-04_rb, &
+     &2.2898e-04_rb,2.3143e-04_rb,2.5081e-04_rb/)
+      kao(:, 2, 4, 2) = (/ &
+     &3.6110e-05_rb,1.5427e-04_rb,1.9683e-04_rb,2.2498e-04_rb,2.4900e-04_rb,2.6495e-04_rb, &
+     &2.7383e-04_rb,2.7831e-04_rb,3.0130e-04_rb/)
+      kao(:, 3, 4, 2) = (/ &
+     &4.2020e-05_rb,1.7731e-04_rb,2.2733e-04_rb,2.6268e-04_rb,2.9200e-04_rb,3.1270e-04_rb, &
+     &3.2430e-04_rb,3.3243e-04_rb,3.4977e-04_rb/)
+      kao(:, 4, 4, 2) = (/ &
+     &4.7704e-05_rb,2.0254e-04_rb,2.6080e-04_rb,3.0470e-04_rb,3.4066e-04_rb,3.6571e-04_rb, &
+     &3.8177e-04_rb,3.9329e-04_rb,4.0928e-04_rb/)
+      kao(:, 5, 4, 2) = (/ &
+     &5.3448e-05_rb,2.2883e-04_rb,2.9767e-04_rb,3.4976e-04_rb,3.9269e-04_rb,4.2565e-04_rb, &
+     &4.4636e-04_rb,4.5989e-04_rb,4.7277e-04_rb/)
+      kao(:, 1, 5, 2) = (/ &
+     &4.6988e-05_rb,1.6787e-04_rb,1.9191e-04_rb,2.0648e-04_rb,2.1525e-04_rb,2.1596e-04_rb, &
+     &2.0906e-04_rb,1.9576e-04_rb,2.0610e-04_rb/)
+      kao(:, 2, 5, 2) = (/ &
+     &5.6510e-05_rb,1.9317e-04_rb,2.2448e-04_rb,2.4373e-04_rb,2.5210e-04_rb,2.5521e-04_rb, &
+     &2.5032e-04_rb,2.3737e-04_rb,2.5015e-04_rb/)
+      kao(:, 3, 5, 2) = (/ &
+     &6.6097e-05_rb,2.2111e-04_rb,2.5901e-04_rb,2.8182e-04_rb,2.9480e-04_rb,2.9992e-04_rb, &
+     &2.9852e-04_rb,2.8340e-04_rb,3.0111e-04_rb/)
+      kao(:, 4, 5, 2) = (/ &
+     &7.5373e-05_rb,2.5095e-04_rb,2.9694e-04_rb,3.2434e-04_rb,3.4231e-04_rb,3.5125e-04_rb, &
+     &3.5172e-04_rb,3.3625e-04_rb,3.5720e-04_rb/)
+      kao(:, 5, 5, 2) = (/ &
+     &8.4653e-05_rb,2.8271e-04_rb,3.3633e-04_rb,3.7103e-04_rb,3.9540e-04_rb,4.0854e-04_rb, &
+     &4.1017e-04_rb,3.9523e-04_rb,4.0911e-04_rb/)
+      kao(:, 1, 6, 2) = (/ &
+     &6.8194e-05_rb,2.1119e-04_rb,2.2511e-04_rb,2.2905e-04_rb,2.2761e-04_rb,2.1982e-04_rb, &
+     &2.0183e-04_rb,1.7113e-04_rb,1.7129e-04_rb/)
+      kao(:, 2, 6, 2) = (/ &
+     &8.3032e-05_rb,2.4138e-04_rb,2.6267e-04_rb,2.7055e-04_rb,2.6995e-04_rb,2.6005e-04_rb, &
+     &2.3793e-04_rb,2.0771e-04_rb,2.1052e-04_rb/)
+      kao(:, 3, 6, 2) = (/ &
+     &9.7316e-05_rb,2.7435e-04_rb,3.0334e-04_rb,3.1415e-04_rb,3.1605e-04_rb,3.0269e-04_rb, &
+     &2.8123e-04_rb,2.4990e-04_rb,2.5531e-04_rb/)
+      kao(:, 4, 6, 2) = (/ &
+     &1.1184e-04_rb,3.0984e-04_rb,3.4680e-04_rb,3.6228e-04_rb,3.6303e-04_rb,3.5165e-04_rb, &
+     &3.2989e-04_rb,2.9654e-04_rb,3.0715e-04_rb/)
+      kao(:, 5, 6, 2) = (/ &
+     &1.2632e-04_rb,3.4683e-04_rb,3.9318e-04_rb,4.1205e-04_rb,4.1568e-04_rb,4.0572e-04_rb, &
+     &3.8584e-04_rb,3.4794e-04_rb,3.6334e-04_rb/)
+      kao(:, 1, 7, 2) = (/ &
+     &1.0382e-04_rb,2.6395e-04_rb,2.8989e-04_rb,2.8076e-04_rb,2.6344e-04_rb,2.4071e-04_rb, &
+     &2.1106e-04_rb,1.6791e-04_rb,1.4516e-04_rb/)
+      kao(:, 2, 7, 2) = (/ &
+     &1.2713e-04_rb,3.0635e-04_rb,3.3550e-04_rb,3.2897e-04_rb,3.1196e-04_rb,2.8824e-04_rb, &
+     &2.5288e-04_rb,2.0031e-04_rb,1.8143e-04_rb/)
+      kao(:, 3, 7, 2) = (/ &
+     &1.5126e-04_rb,3.5047e-04_rb,3.8510e-04_rb,3.8068e-04_rb,3.6466e-04_rb,3.3889e-04_rb, &
+     &2.9600e-04_rb,2.3790e-04_rb,2.2323e-04_rb/)
+      kao(:, 4, 7, 2) = (/ &
+     &1.7453e-04_rb,3.9749e-04_rb,4.3569e-04_rb,4.3708e-04_rb,4.2166e-04_rb,3.9085e-04_rb, &
+     &3.4474e-04_rb,2.8074e-04_rb,2.7137e-04_rb/)
+      kao(:, 5, 7, 2) = (/ &
+     &1.9815e-04_rb,4.4700e-04_rb,4.9020e-04_rb,4.9608e-04_rb,4.8316e-04_rb,4.4845e-04_rb, &
+     &4.0007e-04_rb,3.2811e-04_rb,3.2529e-04_rb/)
+      kao(:, 1, 8, 2) = (/ &
+     &1.8568e-04_rb,3.7522e-04_rb,4.0441e-04_rb,4.0400e-04_rb,3.7101e-04_rb,3.2090e-04_rb, &
+     &2.6014e-04_rb,1.8741e-04_rb,1.4093e-04_rb/)
+      kao(:, 2, 8, 2) = (/ &
+     &2.2706e-04_rb,4.4100e-04_rb,4.7331e-04_rb,4.6941e-04_rb,4.3330e-04_rb,3.7933e-04_rb, &
+     &3.1116e-04_rb,2.2753e-04_rb,1.7550e-04_rb/)
+      kao(:, 3, 8, 2) = (/ &
+     &2.7313e-04_rb,5.0681e-04_rb,5.4665e-04_rb,5.4041e-04_rb,5.0328e-04_rb,4.4299e-04_rb, &
+     &3.6626e-04_rb,2.6706e-04_rb,2.1512e-04_rb/)
+      kao(:, 4, 8, 2) = (/ &
+     &3.2050e-04_rb,5.7784e-04_rb,6.2469e-04_rb,6.1766e-04_rb,5.7799e-04_rb,5.1310e-04_rb, &
+     &4.2712e-04_rb,3.1237e-04_rb,2.5864e-04_rb/)
+      kao(:, 5, 8, 2) = (/ &
+     &3.6492e-04_rb,6.4972e-04_rb,7.0632e-04_rb,6.9926e-04_rb,6.5563e-04_rb,5.8535e-04_rb, &
+     &4.8972e-04_rb,3.6487e-04_rb,3.1085e-04_rb/)
+      kao(:, 1, 9, 2) = (/ &
+     &6.2599e-04_rb,8.6654e-04_rb,9.0634e-04_rb,8.8937e-04_rb,8.1140e-04_rb,7.1027e-04_rb, &
+     &5.7167e-04_rb,3.5735e-04_rb,2.0982e-04_rb/)
+      kao(:, 2, 9, 2) = (/ &
+     &7.7627e-04_rb,1.0704e-03_rb,1.1043e-03_rb,1.0586e-03_rb,9.6032e-04_rb,8.3995e-04_rb, &
+     &6.6547e-04_rb,4.2636e-04_rb,2.5832e-04_rb/)
+      kao(:, 3, 9, 2) = (/ &
+     &9.3794e-04_rb,1.2619e-03_rb,1.2949e-03_rb,1.2284e-03_rb,1.1156e-03_rb,9.7182e-04_rb, &
+     &7.6979e-04_rb,5.0109e-04_rb,3.1973e-04_rb/)
+      kao(:, 4, 9, 2) = (/ &
+     &1.1114e-03_rb,1.4537e-03_rb,1.4722e-03_rb,1.4030e-03_rb,1.2802e-03_rb,1.1177e-03_rb, &
+     &8.8445e-04_rb,5.8120e-04_rb,3.8922e-04_rb/)
+      kao(:, 5, 9, 2) = (/ &
+     &1.2779e-03_rb,1.6415e-03_rb,1.6560e-03_rb,1.5834e-03_rb,1.4519e-03_rb,1.2713e-03_rb, &
+     &1.0105e-03_rb,6.6729e-04_rb,4.6624e-04_rb/)
+      kao(:, 1,10, 2) = (/ &
+     &2.4553e-03_rb,2.6165e-03_rb,2.4993e-03_rb,2.2847e-03_rb,2.0267e-03_rb,1.7115e-03_rb, &
+     &1.3397e-03_rb,8.6368e-04_rb,3.6576e-04_rb/)
+      kao(:, 2,10, 2) = (/ &
+     &3.0620e-03_rb,3.2511e-03_rb,3.1049e-03_rb,2.8553e-03_rb,2.5348e-03_rb,2.1265e-03_rb, &
+     &1.6314e-03_rb,1.0269e-03_rb,4.5803e-04_rb/)
+      kao(:, 3,10, 2) = (/ &
+     &3.7364e-03_rb,3.9627e-03_rb,3.7660e-03_rb,3.4224e-03_rb,3.0121e-03_rb,2.5166e-03_rb, &
+     &1.9135e-03_rb,1.1990e-03_rb,5.6685e-04_rb/)
+      kao(:, 4,10, 2) = (/ &
+     &4.4530e-03_rb,4.6554e-03_rb,4.3836e-03_rb,3.9682e-03_rb,3.4829e-03_rb,2.8809e-03_rb, &
+     &2.1972e-03_rb,1.3815e-03_rb,6.9188e-04_rb/)
+      kao(:, 5,10, 2) = (/ &
+     &5.1575e-03_rb,5.3264e-03_rb,4.9909e-03_rb,4.5087e-03_rb,3.9257e-03_rb,3.2602e-03_rb, &
+     &2.4888e-03_rb,1.5715e-03_rb,8.2270e-04_rb/)
+      kao(:, 1,11, 2) = (/ &
+     &3.7833e-03_rb,3.8112e-03_rb,3.5566e-03_rb,3.1989e-03_rb,2.7686e-03_rb,2.2723e-03_rb, &
+     &1.7364e-03_rb,1.0753e-03_rb,4.0590e-04_rb/)
+      kao(:, 2,11, 2) = (/ &
+     &4.6966e-03_rb,4.7207e-03_rb,4.4156e-03_rb,3.9736e-03_rb,3.4554e-03_rb,2.8577e-03_rb, &
+     &2.1338e-03_rb,1.2945e-03_rb,5.0517e-04_rb/)
+      kao(:, 3,11, 2) = (/ &
+     &5.7189e-03_rb,5.7590e-03_rb,5.3345e-03_rb,4.7708e-03_rb,4.1084e-03_rb,3.3729e-03_rb, &
+     &2.5008e-03_rb,1.5078e-03_rb,6.3337e-04_rb/)
+      kao(:, 4,11, 2) = (/ &
+     &6.7827e-03_rb,6.7469e-03_rb,6.2278e-03_rb,5.5367e-03_rb,4.7380e-03_rb,3.8594e-03_rb, &
+     &2.8648e-03_rb,1.7294e-03_rb,7.7415e-04_rb/)
+      kao(:, 5,11, 2) = (/ &
+     &7.8200e-03_rb,7.7382e-03_rb,7.0901e-03_rb,6.2644e-03_rb,5.3533e-03_rb,4.3510e-03_rb, &
+     &3.2356e-03_rb,1.9722e-03_rb,9.3312e-04_rb/)
+      kao(:, 1,12, 2) = (/ &
+     &4.2783e-03_rb,4.2041e-03_rb,3.8742e-03_rb,3.4634e-03_rb,2.9720e-03_rb,2.4393e-03_rb, &
+     &1.8351e-03_rb,1.1175e-03_rb,3.9253e-04_rb/)
+      kao(:, 2,12, 2) = (/ &
+     &5.3337e-03_rb,5.2652e-03_rb,4.8301e-03_rb,4.3189e-03_rb,3.7223e-03_rb,3.0228e-03_rb, &
+     &2.2408e-03_rb,1.3443e-03_rb,4.8795e-04_rb/)
+      kao(:, 3,12, 2) = (/ &
+     &6.5143e-03_rb,6.3579e-03_rb,5.8237e-03_rb,5.1812e-03_rb,4.4118e-03_rb,3.5721e-03_rb, &
+     &2.6281e-03_rb,1.5684e-03_rb,6.0394e-04_rb/)
+      kao(:, 4,12, 2) = (/ &
+     &7.6468e-03_rb,7.4276e-03_rb,6.7625e-03_rb,6.0120e-03_rb,5.0805e-03_rb,4.0892e-03_rb, &
+     &3.0024e-03_rb,1.8032e-03_rb,7.4856e-04_rb/)
+      kao(:, 5,12, 2) = (/ &
+     &8.7322e-03_rb,8.4845e-03_rb,7.6878e-03_rb,6.7875e-03_rb,5.7064e-03_rb,4.6095e-03_rb, &
+     &3.4027e-03_rb,2.0497e-03_rb,9.3030e-04_rb/)
+      kao(:, 1,13, 2) = (/ &
+     &3.8383e-03_rb,3.7685e-03_rb,3.4781e-03_rb,3.1000e-03_rb,2.6661e-03_rb,2.1777e-03_rb, &
+     &1.6207e-03_rb,9.7395e-04_rb,3.4434e-04_rb/)
+      kao(:, 2,13, 2) = (/ &
+     &4.7991e-03_rb,4.7287e-03_rb,4.3604e-03_rb,3.8801e-03_rb,3.3054e-03_rb,2.6658e-03_rb, &
+     &1.9755e-03_rb,1.1692e-03_rb,4.3018e-04_rb/)
+      kao(:, 3,13, 2) = (/ &
+     &5.8240e-03_rb,5.6632e-03_rb,5.1895e-03_rb,4.6114e-03_rb,3.9052e-03_rb,3.1338e-03_rb, &
+     &2.3066e-03_rb,1.3724e-03_rb,5.3490e-04_rb/)
+      kao(:, 4,13, 2) = (/ &
+     &6.7942e-03_rb,6.6067e-03_rb,6.0062e-03_rb,5.2927e-03_rb,4.4607e-03_rb,3.5870e-03_rb, &
+     &2.6413e-03_rb,1.5766e-03_rb,6.6330e-04_rb/)
+      kao(:, 5,13, 2) = (/ &
+     &7.7135e-03_rb,7.4856e-03_rb,6.7623e-03_rb,5.9543e-03_rb,5.0216e-03_rb,4.0477e-03_rb, &
+     &2.9856e-03_rb,1.7918e-03_rb,8.1116e-04_rb/)
+      kao(:, 1, 1, 3) = (/ &
+     &2.4793e-05_rb,3.0799e-04_rb,4.6290e-04_rb,5.9325e-04_rb,7.1737e-04_rb,8.2193e-04_rb, &
+     &9.4048e-04_rb,1.1399e-03_rb,1.0252e-03_rb/)
+      kao(:, 2, 1, 3) = (/ &
+     &2.6296e-05_rb,3.5350e-04_rb,5.3963e-04_rb,6.9573e-04_rb,8.4910e-04_rb,9.9005e-04_rb, &
+     &1.1353e-03_rb,1.3914e-03_rb,1.2872e-03_rb/)
+      kao(:, 3, 1, 3) = (/ &
+     &2.7819e-05_rb,4.0345e-04_rb,6.2337e-04_rb,8.1130e-04_rb,9.9260e-04_rb,1.1727e-03_rb, &
+     &1.3740e-03_rb,1.6958e-03_rb,1.5768e-03_rb/)
+      kao(:, 4, 1, 3) = (/ &
+     &2.9505e-05_rb,4.5829e-04_rb,7.1308e-04_rb,9.3786e-04_rb,1.1508e-03_rb,1.3827e-03_rb, &
+     &1.6466e-03_rb,2.0604e-03_rb,1.9074e-03_rb/)
+      kao(:, 5, 1, 3) = (/ &
+     &3.1281e-05_rb,5.1795e-04_rb,8.1473e-04_rb,1.0770e-03_rb,1.3366e-03_rb,1.6108e-03_rb, &
+     &1.9547e-03_rb,2.4904e-03_rb,2.2803e-03_rb/)
+      kao(:, 1, 2, 3) = (/ &
+     &3.2793e-05_rb,3.0694e-04_rb,4.5221e-04_rb,5.6459e-04_rb,6.5806e-04_rb,7.4456e-04_rb, &
+     &8.0925e-04_rb,9.1019e-04_rb,8.6945e-04_rb/)
+      kao(:, 2, 2, 3) = (/ &
+     &3.4666e-05_rb,3.5123e-04_rb,5.2466e-04_rb,6.5968e-04_rb,7.7040e-04_rb,8.8249e-04_rb, &
+     &9.7906e-04_rb,1.1056e-03_rb,1.0654e-03_rb/)
+      kao(:, 3, 2, 3) = (/ &
+     &3.6731e-05_rb,4.0004e-04_rb,6.0292e-04_rb,7.6491e-04_rb,9.0091e-04_rb,1.0289e-03_rb, &
+     &1.1668e-03_rb,1.3438e-03_rb,1.2804e-03_rb/)
+      kao(:, 4, 2, 3) = (/ &
+     &3.8918e-05_rb,4.5420e-04_rb,6.8900e-04_rb,8.8273e-04_rb,1.0463e-03_rb,1.2043e-03_rb, &
+     &1.3845e-03_rb,1.6322e-03_rb,1.5338e-03_rb/)
+      kao(:, 5, 2, 3) = (/ &
+     &4.1070e-05_rb,5.1139e-04_rb,7.8412e-04_rb,1.0082e-03_rb,1.2070e-03_rb,1.4003e-03_rb, &
+     &1.6106e-03_rb,1.9566e-03_rb,1.8338e-03_rb/)
+      kao(:, 1, 3, 3) = (/ &
+     &5.7419e-05_rb,3.4417e-04_rb,4.7657e-04_rb,5.8011e-04_rb,6.5776e-04_rb,7.1017e-04_rb, &
+     &7.4352e-04_rb,7.5165e-04_rb,7.1905e-04_rb/)
+      kao(:, 2, 3, 3) = (/ &
+     &6.1098e-05_rb,3.8894e-04_rb,5.5050e-04_rb,6.7283e-04_rb,7.6814e-04_rb,8.3562e-04_rb, &
+     &8.7563e-04_rb,9.0812e-04_rb,8.7884e-04_rb/)
+      kao(:, 3, 3, 3) = (/ &
+     &6.4950e-05_rb,4.3994e-04_rb,6.3159e-04_rb,7.7584e-04_rb,8.9433e-04_rb,9.7562e-04_rb, &
+     &1.0278e-03_rb,1.0860e-03_rb,1.0655e-03_rb/)
+      kao(:, 4, 3, 3) = (/ &
+     &6.9137e-05_rb,4.9606e-04_rb,7.1905e-04_rb,8.8979e-04_rb,1.0295e-03_rb,1.1315e-03_rb, &
+     &1.2033e-03_rb,1.2952e-03_rb,1.2839e-03_rb/)
+      kao(:, 5, 3, 3) = (/ &
+     &7.3375e-05_rb,5.5536e-04_rb,8.1436e-04_rb,1.0155e-03_rb,1.1795e-03_rb,1.3051e-03_rb, &
+     &1.4046e-03_rb,1.5168e-03_rb,1.5296e-03_rb/)
+      kao(:, 1, 4, 3) = (/ &
+     &1.0086e-04_rb,4.2454e-04_rb,5.2985e-04_rb,6.0848e-04_rb,6.7121e-04_rb,7.0723e-04_rb, &
+     &7.1237e-04_rb,6.8193e-04_rb,6.1640e-04_rb/)
+      kao(:, 2, 4, 3) = (/ &
+     &1.0794e-04_rb,4.6886e-04_rb,6.0099e-04_rb,7.0397e-04_rb,7.8290e-04_rb,8.2924e-04_rb, &
+     &8.4042e-04_rb,8.0656e-04_rb,7.3923e-04_rb/)
+      kao(:, 3, 4, 3) = (/ &
+     &1.1564e-04_rb,5.1937e-04_rb,6.8316e-04_rb,8.0764e-04_rb,9.0488e-04_rb,9.5975e-04_rb, &
+     &9.8680e-04_rb,9.5115e-04_rb,8.9690e-04_rb/)
+      kao(:, 4, 4, 3) = (/ &
+     &1.2339e-04_rb,5.7610e-04_rb,7.7301e-04_rb,9.2354e-04_rb,1.0350e-03_rb,1.1092e-03_rb, &
+     &1.1493e-03_rb,1.1169e-03_rb,1.0760e-03_rb/)
+      kao(:, 5, 4, 3) = (/ &
+     &1.3105e-04_rb,6.3905e-04_rb,8.6996e-04_rb,1.0475e-03_rb,1.1809e-03_rb,1.2763e-03_rb, &
+     &1.3289e-03_rb,1.3078e-03_rb,1.2869e-03_rb/)
+      kao(:, 1, 5, 3) = (/ &
+     &1.6100e-04_rb,5.0634e-04_rb,6.1668e-04_rb,6.6467e-04_rb,6.8745e-04_rb,6.9758e-04_rb, &
+     &6.8538e-04_rb,6.2098e-04_rb,6.1721e-04_rb/)
+      kao(:, 2, 5, 3) = (/ &
+     &1.7365e-04_rb,5.5505e-04_rb,6.8253e-04_rb,7.5603e-04_rb,7.9631e-04_rb,8.1600e-04_rb, &
+     &8.0888e-04_rb,7.3807e-04_rb,7.1431e-04_rb/)
+      kao(:, 3, 5, 3) = (/ &
+     &1.8648e-04_rb,6.0992e-04_rb,7.6141e-04_rb,8.5901e-04_rb,9.1428e-04_rb,9.4703e-04_rb, &
+     &9.4315e-04_rb,8.7432e-04_rb,8.2918e-04_rb/)
+      kao(:, 4, 5, 3) = (/ &
+     &1.9988e-04_rb,6.7074e-04_rb,8.4873e-04_rb,9.7496e-04_rb,1.0437e-03_rb,1.0922e-03_rb, &
+     &1.0916e-03_rb,1.0269e-03_rb,9.7489e-04_rb/)
+      kao(:, 5, 5, 3) = (/ &
+     &2.1403e-04_rb,7.3152e-04_rb,9.4776e-04_rb,1.0959e-03_rb,1.1876e-03_rb,1.2477e-03_rb, &
+     &1.2592e-03_rb,1.1994e-03_rb,1.1556e-03_rb/)
+      kao(:, 1, 6, 3) = (/ &
+     &2.3782e-04_rb,5.8473e-04_rb,7.0057e-04_rb,7.3727e-04_rb,7.3866e-04_rb,7.0622e-04_rb, &
+     &6.5578e-04_rb,5.7152e-04_rb,6.4834e-04_rb/)
+      kao(:, 2, 6, 3) = (/ &
+     &2.5744e-04_rb,6.5190e-04_rb,7.6744e-04_rb,8.2296e-04_rb,8.3569e-04_rb,8.1871e-04_rb, &
+     &7.7021e-04_rb,6.8232e-04_rb,7.1639e-04_rb/)
+      kao(:, 3, 6, 3) = (/ &
+     &2.7664e-04_rb,7.1488e-04_rb,8.5237e-04_rb,9.1762e-04_rb,9.4622e-04_rb,9.4392e-04_rb, &
+     &8.9795e-04_rb,8.0363e-04_rb,8.0674e-04_rb/)
+      kao(:, 4, 6, 3) = (/ &
+     &2.9757e-04_rb,7.7689e-04_rb,9.3669e-04_rb,1.0212e-03_rb,1.0750e-03_rb,1.0793e-03_rb, &
+     &1.0394e-03_rb,9.3920e-04_rb,9.2478e-04_rb/)
+      kao(:, 5, 6, 3) = (/ &
+     &3.2013e-04_rb,8.4833e-04_rb,1.0249e-03_rb,1.1443e-03_rb,1.2150e-03_rb,1.2313e-03_rb, &
+     &1.1962e-03_rb,1.0926e-03_rb,1.0558e-03_rb/)
+      kao(:, 1, 7, 3) = (/ &
+     &3.7226e-04_rb,7.2122e-04_rb,8.2273e-04_rb,8.7424e-04_rb,8.4905e-04_rb,7.9504e-04_rb, &
+     &6.8600e-04_rb,5.4748e-04_rb,6.4757e-04_rb/)
+      kao(:, 2, 7, 3) = (/ &
+     &4.0471e-04_rb,8.0580e-04_rb,9.2241e-04_rb,9.6290e-04_rb,9.4856e-04_rb,8.9436e-04_rb, &
+     &7.9088e-04_rb,6.5024e-04_rb,7.6906e-04_rb/)
+      kao(:, 3, 7, 3) = (/ &
+     &4.3485e-04_rb,8.8728e-04_rb,1.0201e-03_rb,1.0664e-03_rb,1.0598e-03_rb,1.0046e-03_rb, &
+     &9.1434e-04_rb,7.6471e-04_rb,8.8345e-04_rb/)
+      kao(:, 4, 7, 3) = (/ &
+     &4.6779e-04_rb,9.6940e-04_rb,1.1214e-03_rb,1.1802e-03_rb,1.1771e-03_rb,1.1317e-03_rb, &
+     &1.0506e-03_rb,8.9487e-04_rb,9.7870e-04_rb/)
+      kao(:, 5, 7, 3) = (/ &
+     &5.0564e-04_rb,1.0493e-03_rb,1.2285e-03_rb,1.2989e-03_rb,1.3103e-03_rb,1.2822e-03_rb, &
+     &1.2004e-03_rb,1.0399e-03_rb,1.0827e-03_rb/)
+      kao(:, 1, 8, 3) = (/ &
+     &6.8834e-04_rb,1.0497e-03_rb,1.1354e-03_rb,1.1403e-03_rb,1.1091e-03_rb,1.0282e-03_rb, &
+     &8.6922e-04_rb,6.2179e-04_rb,6.4394e-04_rb/)
+      kao(:, 2, 8, 3) = (/ &
+     &7.5262e-04_rb,1.1719e-03_rb,1.2711e-03_rb,1.2847e-03_rb,1.2498e-03_rb,1.1356e-03_rb, &
+     &9.7177e-04_rb,7.1700e-04_rb,7.5449e-04_rb/)
+      kao(:, 3, 8, 3) = (/ &
+     &8.1196e-04_rb,1.2925e-03_rb,1.4075e-03_rb,1.4221e-03_rb,1.3886e-03_rb,1.2652e-03_rb, &
+     &1.0898e-03_rb,8.2946e-04_rb,8.8164e-04_rb/)
+      kao(:, 4, 8, 3) = (/ &
+     &8.7357e-04_rb,1.4119e-03_rb,1.5462e-03_rb,1.5662e-03_rb,1.5234e-03_rb,1.4066e-03_rb, &
+     &1.2187e-03_rb,9.5583e-04_rb,1.0263e-03_rb/)
+      kao(:, 5, 8, 3) = (/ &
+     &9.4776e-04_rb,1.5351e-03_rb,1.6779e-03_rb,1.7191e-03_rb,1.6760e-03_rb,1.5541e-03_rb, &
+     &1.3711e-03_rb,1.0942e-03_rb,1.1866e-03_rb/)
+      kao(:, 1, 9, 3) = (/ &
+     &2.4030e-03_rb,2.8116e-03_rb,2.7490e-03_rb,2.5782e-03_rb,2.3739e-03_rb,2.0451e-03_rb, &
+     &1.6352e-03_rb,1.1525e-03_rb,7.8397e-04_rb/)
+      kao(:, 2, 9, 3) = (/ &
+     &2.6406e-03_rb,3.0780e-03_rb,3.0311e-03_rb,2.8880e-03_rb,2.6562e-03_rb,2.3012e-03_rb, &
+     &1.8579e-03_rb,1.2942e-03_rb,9.5305e-04_rb/)
+      kao(:, 3, 9, 3) = (/ &
+     &2.8588e-03_rb,3.3826e-03_rb,3.3331e-03_rb,3.2003e-03_rb,2.9491e-03_rb,2.5645e-03_rb, &
+     &2.0822e-03_rb,1.4320e-03_rb,1.1371e-03_rb/)
+      kao(:, 4, 9, 3) = (/ &
+     &3.0751e-03_rb,3.6837e-03_rb,3.6521e-03_rb,3.5172e-03_rb,3.2330e-03_rb,2.8266e-03_rb, &
+     &2.3022e-03_rb,1.5958e-03_rb,1.3270e-03_rb/)
+      kao(:, 5, 9, 3) = (/ &
+     &3.3401e-03_rb,4.0139e-03_rb,3.9712e-03_rb,3.8387e-03_rb,3.5273e-03_rb,3.0908e-03_rb, &
+     &2.5332e-03_rb,1.7734e-03_rb,1.5421e-03_rb/)
+      kao(:, 1,10, 3) = (/ &
+     &9.4661e-03_rb,9.3672e-03_rb,8.6815e-03_rb,7.7670e-03_rb,6.6533e-03_rb,5.4267e-03_rb, &
+     &4.0804e-03_rb,2.5558e-03_rb,1.0683e-03_rb/)
+      kao(:, 2,10, 3) = (/ &
+     &1.0403e-02_rb,1.0310e-02_rb,9.5215e-03_rb,8.5122e-03_rb,7.3124e-03_rb,5.9813e-03_rb, &
+     &4.5509e-03_rb,2.8739e-03_rb,1.2946e-03_rb/)
+      kao(:, 3,10, 3) = (/ &
+     &1.1289e-02_rb,1.1218e-02_rb,1.0349e-02_rb,9.3127e-03_rb,8.0182e-03_rb,6.6138e-03_rb, &
+     &5.0551e-03_rb,3.2072e-03_rb,1.5622e-03_rb/)
+      kao(:, 4,10, 3) = (/ &
+     &1.2130e-02_rb,1.2221e-02_rb,1.1320e-02_rb,1.0189e-02_rb,8.7979e-03_rb,7.2832e-03_rb, &
+     &5.5873e-03_rb,3.5427e-03_rb,1.8389e-03_rb/)
+      kao(:, 5,10, 3) = (/ &
+     &1.3100e-02_rb,1.3300e-02_rb,1.2340e-02_rb,1.1131e-02_rb,9.6189e-03_rb,7.9428e-03_rb, &
+     &6.1291e-03_rb,3.8793e-03_rb,2.1440e-03_rb/)
+      kao(:, 1,11, 3) = (/ &
+     &1.3487e-02_rb,1.2984e-02_rb,1.1782e-02_rb,1.0398e-02_rb,8.8336e-03_rb,7.1334e-03_rb, &
+     &5.2262e-03_rb,3.1590e-03_rb,1.1845e-03_rb/)
+      kao(:, 2,11, 3) = (/ &
+     &1.4804e-02_rb,1.4185e-02_rb,1.2823e-02_rb,1.1346e-02_rb,9.6530e-03_rb,7.7631e-03_rb, &
+     &5.7673e-03_rb,3.5383e-03_rb,1.4275e-03_rb/)
+      kao(:, 3,11, 3) = (/ &
+     &1.5980e-02_rb,1.5367e-02_rb,1.3971e-02_rb,1.2366e-02_rb,1.0542e-02_rb,8.5565e-03_rb, &
+     &6.3780e-03_rb,3.9351e-03_rb,1.7235e-03_rb/)
+      kao(:, 4,11, 3) = (/ &
+     &1.7219e-02_rb,1.6745e-02_rb,1.5253e-02_rb,1.3475e-02_rb,1.1557e-02_rb,9.4243e-03_rb, &
+     &6.9880e-03_rb,4.3338e-03_rb,2.0121e-03_rb/)
+      kao(:, 5,11, 3) = (/ &
+     &1.8659e-02_rb,1.8178e-02_rb,1.6582e-02_rb,1.4739e-02_rb,1.2667e-02_rb,1.0254e-02_rb, &
+     &7.6524e-03_rb,4.7481e-03_rb,2.3669e-03_rb/)
+      kao(:, 1,12, 3) = (/ &
+     &1.4430e-02_rb,1.3711e-02_rb,1.2344e-02_rb,1.0793e-02_rb,9.1312e-03_rb,7.2788e-03_rb, &
+     &5.2885e-03_rb,3.1556e-03_rb,1.1392e-03_rb/)
+      kao(:, 2,12, 3) = (/ &
+     &1.5757e-02_rb,1.4929e-02_rb,1.3431e-02_rb,1.1729e-02_rb,9.9240e-03_rb,7.9738e-03_rb, &
+     &5.8467e-03_rb,3.5123e-03_rb,1.3911e-03_rb/)
+      kao(:, 3,12, 3) = (/ &
+     &1.6948e-02_rb,1.6169e-02_rb,1.4634e-02_rb,1.2830e-02_rb,1.0856e-02_rb,8.7512e-03_rb, &
+     &6.4418e-03_rb,3.8765e-03_rb,1.6585e-03_rb/)
+      kao(:, 4,12, 3) = (/ &
+     &1.8340e-02_rb,1.7651e-02_rb,1.6013e-02_rb,1.4019e-02_rb,1.1962e-02_rb,9.6662e-03_rb, &
+     &7.0623e-03_rb,4.2621e-03_rb,1.9806e-03_rb/)
+      kao(:, 5,12, 3) = (/ &
+     &1.9917e-02_rb,1.9194e-02_rb,1.7450e-02_rb,1.5375e-02_rb,1.3136e-02_rb,1.0559e-02_rb, &
+     &7.7061e-03_rb,4.6735e-03_rb,2.2886e-03_rb/)
+      kao(:, 1,13, 3) = (/ &
+     &1.2378e-02_rb,1.1740e-02_rb,1.0520e-02_rb,9.1794e-03_rb,7.7313e-03_rb,6.1547e-03_rb, &
+     &4.4837e-03_rb,2.6655e-03_rb,9.8041e-04_rb/)
+      kao(:, 2,13, 3) = (/ &
+     &1.3400e-02_rb,1.2704e-02_rb,1.1442e-02_rb,9.9607e-03_rb,8.4166e-03_rb,6.7824e-03_rb, &
+     &4.9464e-03_rb,2.9635e-03_rb,1.2027e-03_rb/)
+      kao(:, 3,13, 3) = (/ &
+     &1.4376e-02_rb,1.3828e-02_rb,1.2497e-02_rb,1.0944e-02_rb,9.2894e-03_rb,7.4859e-03_rb, &
+     &5.4627e-03_rb,3.2639e-03_rb,1.4455e-03_rb/)
+      kao(:, 4,13, 3) = (/ &
+     &1.5663e-02_rb,1.5087e-02_rb,1.3675e-02_rb,1.2023e-02_rb,1.0248e-02_rb,8.2522e-03_rb, &
+     &5.9994e-03_rb,3.5980e-03_rb,1.7132e-03_rb/)
+      kao(:, 5,13, 3) = (/ &
+     &1.7084e-02_rb,1.6538e-02_rb,1.5027e-02_rb,1.3180e-02_rb,1.1220e-02_rb,9.0513e-03_rb, &
+     &6.5567e-03_rb,3.9396e-03_rb,2.0154e-03_rb/)
+      kao(:, 1, 1, 4) = (/ &
+     &4.5432e-05_rb,6.4085e-04_rb,1.0470e-03_rb,1.4404e-03_rb,1.8333e-03_rb,2.2857e-03_rb, &
+     &2.8540e-03_rb,3.7474e-03_rb,3.3078e-03_rb/)
+      kao(:, 2, 1, 4) = (/ &
+     &4.6775e-05_rb,7.3260e-04_rb,1.2196e-03_rb,1.6906e-03_rb,2.1700e-03_rb,2.7279e-03_rb, &
+     &3.3928e-03_rb,4.5435e-03_rb,4.0031e-03_rb/)
+      kao(:, 3, 1, 4) = (/ &
+     &4.7907e-05_rb,8.4030e-04_rb,1.4168e-03_rb,1.9771e-03_rb,2.5623e-03_rb,3.2199e-03_rb, &
+     &4.0380e-03_rb,5.3656e-03_rb,4.7474e-03_rb/)
+      kao(:, 4, 1, 4) = (/ &
+     &4.8733e-05_rb,9.6171e-04_rb,1.6416e-03_rb,2.3126e-03_rb,3.0275e-03_rb,3.7946e-03_rb, &
+     &4.7571e-03_rb,6.3684e-03_rb,5.6396e-03_rb/)
+      kao(:, 5, 1, 4) = (/ &
+     &4.9568e-05_rb,1.0960e-03_rb,1.8926e-03_rb,2.6893e-03_rb,3.5365e-03_rb,4.4677e-03_rb, &
+     &5.5986e-03_rb,7.4848e-03_rb,6.6760e-03_rb/)
+      kao(:, 1, 2, 4) = (/ &
+     &5.9644e-05_rb,6.5165e-04_rb,9.7095e-04_rb,1.2735e-03_rb,1.5693e-03_rb,1.8723e-03_rb, &
+     &2.2435e-03_rb,2.8303e-03_rb,2.5518e-03_rb/)
+      kao(:, 2, 2, 4) = (/ &
+     &6.1550e-05_rb,7.3433e-04_rb,1.1155e-03_rb,1.4862e-03_rb,1.8480e-03_rb,2.2144e-03_rb, &
+     &2.6782e-03_rb,3.3851e-03_rb,3.1028e-03_rb/)
+      kao(:, 3, 2, 4) = (/ &
+     &6.3424e-05_rb,8.2814e-04_rb,1.2862e-03_rb,1.7299e-03_rb,2.1667e-03_rb,2.6220e-03_rb, &
+     &3.1654e-03_rb,4.0290e-03_rb,3.7219e-03_rb/)
+      kao(:, 4, 2, 4) = (/ &
+     &6.4618e-05_rb,9.2770e-04_rb,1.4812e-03_rb,2.0000e-03_rb,2.5281e-03_rb,3.0889e-03_rb, &
+     &3.7301e-03_rb,4.7467e-03_rb,4.4551e-03_rb/)
+      kao(:, 5, 2, 4) = (/ &
+     &6.6495e-05_rb,1.0413e-03_rb,1.6912e-03_rb,2.3096e-03_rb,2.9324e-03_rb,3.6063e-03_rb, &
+     &4.3915e-03_rb,5.5831e-03_rb,5.2779e-03_rb/)
+      kao(:, 1, 3, 4) = (/ &
+     &1.0462e-04_rb,7.2939e-04_rb,1.0510e-03_rb,1.2708e-03_rb,1.4590e-03_rb,1.6268e-03_rb, &
+     &1.8071e-03_rb,2.0571e-03_rb,1.9983e-03_rb/)
+      kao(:, 2, 3, 4) = (/ &
+     &1.0853e-04_rb,8.1591e-04_rb,1.1915e-03_rb,1.4605e-03_rb,1.6878e-03_rb,1.9079e-03_rb, &
+     &2.1403e-03_rb,2.4652e-03_rb,2.3859e-03_rb/)
+      kao(:, 3, 3, 4) = (/ &
+     &1.1161e-04_rb,9.0807e-04_rb,1.3452e-03_rb,1.6696e-03_rb,1.9436e-03_rb,2.2298e-03_rb, &
+     &2.5245e-03_rb,2.9256e-03_rb,2.8236e-03_rb/)
+      kao(:, 4, 3, 4) = (/ &
+     &1.1463e-04_rb,1.0096e-03_rb,1.5126e-03_rb,1.9029e-03_rb,2.2460e-03_rb,2.5957e-03_rb, &
+     &2.9637e-03_rb,3.4539e-03_rb,3.3286e-03_rb/)
+      kao(:, 5, 3, 4) = (/ &
+     &1.1771e-04_rb,1.1227e-03_rb,1.6998e-03_rb,2.1624e-03_rb,2.5867e-03_rb,3.0031e-03_rb, &
+     &3.4507e-03_rb,4.0691e-03_rb,3.9216e-03_rb/)
+      kao(:, 1, 4, 4) = (/ &
+     &1.8980e-04_rb,8.1690e-04_rb,1.1496e-03_rb,1.3743e-03_rb,1.5174e-03_rb,1.5997e-03_rb, &
+     &1.6364e-03_rb,1.6486e-03_rb,1.6867e-03_rb/)
+      kao(:, 2, 4, 4) = (/ &
+     &1.9681e-04_rb,9.1682e-04_rb,1.2947e-03_rb,1.5538e-03_rb,1.7351e-03_rb,1.8526e-03_rb, &
+     &1.9065e-03_rb,1.9583e-03_rb,2.0215e-03_rb/)
+      kao(:, 3, 4, 4) = (/ &
+     &2.0208e-04_rb,1.0146e-03_rb,1.4514e-03_rb,1.7516e-03_rb,1.9841e-03_rb,2.1383e-03_rb, &
+     &2.2138e-03_rb,2.3082e-03_rb,2.3998e-03_rb/)
+      kao(:, 4, 4, 4) = (/ &
+     &2.0762e-04_rb,1.1226e-03_rb,1.6211e-03_rb,1.9728e-03_rb,2.2623e-03_rb,2.4506e-03_rb, &
+     &2.5563e-03_rb,2.7166e-03_rb,2.8343e-03_rb/)
+      kao(:, 5, 4, 4) = (/ &
+     &2.1385e-04_rb,1.2397e-03_rb,1.8026e-03_rb,2.2223e-03_rb,2.5659e-03_rb,2.7894e-03_rb, &
+     &2.9545e-03_rb,3.1771e-03_rb,3.3076e-03_rb/)
+      kao(:, 1, 5, 4) = (/ &
+     &3.1379e-04_rb,9.3426e-04_rb,1.2166e-03_rb,1.4285e-03_rb,1.5654e-03_rb,1.6404e-03_rb, &
+     &1.5965e-03_rb,1.4828e-03_rb,1.3604e-03_rb/)
+      kao(:, 2, 5, 4) = (/ &
+     &3.2699e-04_rb,1.0358e-03_rb,1.3783e-03_rb,1.6163e-03_rb,1.7786e-03_rb,1.8763e-03_rb, &
+     &1.8530e-03_rb,1.7399e-03_rb,1.6555e-03_rb/)
+      kao(:, 3, 5, 4) = (/ &
+     &3.3749e-04_rb,1.1387e-03_rb,1.5374e-03_rb,1.8184e-03_rb,2.0178e-03_rb,2.1215e-03_rb, &
+     &2.1453e-03_rb,2.0239e-03_rb,1.9794e-03_rb/)
+      kao(:, 4, 5, 4) = (/ &
+     &3.4807e-04_rb,1.2529e-03_rb,1.7131e-03_rb,2.0397e-03_rb,2.2808e-03_rb,2.4051e-03_rb, &
+     &2.4718e-03_rb,2.3502e-03_rb,2.3300e-03_rb/)
+      kao(:, 5, 5, 4) = (/ &
+     &3.5954e-04_rb,1.3777e-03_rb,1.8982e-03_rb,2.2796e-03_rb,2.5586e-03_rb,2.7323e-03_rb, &
+     &2.8236e-03_rb,2.7161e-03_rb,2.7237e-03_rb/)
+      kao(:, 1, 6, 4) = (/ &
+     &4.7800e-04_rb,1.0890e-03_rb,1.3133e-03_rb,1.4652e-03_rb,1.5696e-03_rb,1.6077e-03_rb, &
+     &1.5816e-03_rb,1.3782e-03_rb,1.1543e-03_rb/)
+      kao(:, 2, 6, 4) = (/ &
+     &5.0135e-04_rb,1.1692e-03_rb,1.4789e-03_rb,1.6725e-03_rb,1.7871e-03_rb,1.8348e-03_rb, &
+     &1.8106e-03_rb,1.6080e-03_rb,1.4185e-03_rb/)
+      kao(:, 3, 6, 4) = (/ &
+     &5.2250e-04_rb,1.2684e-03_rb,1.6447e-03_rb,1.8893e-03_rb,2.0173e-03_rb,2.0845e-03_rb, &
+     &2.0641e-03_rb,1.8764e-03_rb,1.6970e-03_rb/)
+      kao(:, 4, 6, 4) = (/ &
+     &5.4010e-04_rb,1.3890e-03_rb,1.8350e-03_rb,2.1143e-03_rb,2.2731e-03_rb,2.3591e-03_rb, &
+     &2.3476e-03_rb,2.1762e-03_rb,2.0061e-03_rb/)
+      kao(:, 5, 6, 4) = (/ &
+     &5.6086e-04_rb,1.5152e-03_rb,2.0323e-03_rb,2.3522e-03_rb,2.5434e-03_rb,2.6585e-03_rb, &
+     &2.6646e-03_rb,2.5043e-03_rb,2.3580e-03_rb/)
+      kao(:, 1, 7, 4) = (/ &
+     &7.6472e-04_rb,1.4103e-03_rb,1.5811e-03_rb,1.6521e-03_rb,1.6700e-03_rb,1.6355e-03_rb, &
+     &1.5716e-03_rb,1.3655e-03_rb,1.1953e-03_rb/)
+      kao(:, 2, 7, 4) = (/ &
+     &8.0405e-04_rb,1.4820e-03_rb,1.7182e-03_rb,1.8432e-03_rb,1.9040e-03_rb,1.8839e-03_rb, &
+     &1.8004e-03_rb,1.5836e-03_rb,1.3245e-03_rb/)
+      kao(:, 3, 7, 4) = (/ &
+     &8.3976e-04_rb,1.5925e-03_rb,1.8706e-03_rb,2.0547e-03_rb,2.1511e-03_rb,2.1580e-03_rb, &
+     &2.0497e-03_rb,1.8151e-03_rb,1.5136e-03_rb/)
+      kao(:, 4, 7, 4) = (/ &
+     &8.7606e-04_rb,1.7044e-03_rb,2.0552e-03_rb,2.2845e-03_rb,2.4212e-03_rb,2.4433e-03_rb, &
+     &2.3312e-03_rb,2.0671e-03_rb,1.7685e-03_rb/)
+      kao(:, 5, 7, 4) = (/ &
+     &9.1065e-04_rb,1.8368e-03_rb,2.2563e-03_rb,2.5472e-03_rb,2.7054e-03_rb,2.7384e-03_rb, &
+     &2.6284e-03_rb,2.3513e-03_rb,2.0612e-03_rb/)
+      kao(:, 1, 8, 4) = (/ &
+     &1.4362e-03_rb,2.1402e-03_rb,2.2733e-03_rb,2.2579e-03_rb,2.1547e-03_rb,1.9686e-03_rb, &
+     &1.7196e-03_rb,1.4177e-03_rb,1.4603e-03_rb/)
+      kao(:, 2, 8, 4) = (/ &
+     &1.5196e-03_rb,2.2635e-03_rb,2.4111e-03_rb,2.4495e-03_rb,2.3642e-03_rb,2.2258e-03_rb, &
+     &1.9891e-03_rb,1.6444e-03_rb,1.7173e-03_rb/)
+      kao(:, 3, 8, 4) = (/ &
+     &1.5863e-03_rb,2.3882e-03_rb,2.5869e-03_rb,2.6588e-03_rb,2.5952e-03_rb,2.5025e-03_rb, &
+     &2.2780e-03_rb,1.8819e-03_rb,1.8908e-03_rb/)
+      kao(:, 4, 8, 4) = (/ &
+     &1.6588e-03_rb,2.5177e-03_rb,2.7792e-03_rb,2.8954e-03_rb,2.8908e-03_rb,2.7990e-03_rb, &
+     &2.5915e-03_rb,2.1558e-03_rb,2.0333e-03_rb/)
+      kao(:, 5, 8, 4) = (/ &
+     &1.7367e-03_rb,2.6935e-03_rb,3.0017e-03_rb,3.1619e-03_rb,3.2065e-03_rb,3.1297e-03_rb, &
+     &2.9147e-03_rb,2.4525e-03_rb,2.1765e-03_rb/)
+      kao(:, 1, 9, 4) = (/ &
+     &5.1377e-03_rb,5.6879e-03_rb,5.6413e-03_rb,5.3776e-03_rb,4.8224e-03_rb,4.1689e-03_rb, &
+     &3.3325e-03_rb,2.2481e-03_rb,2.0122e-03_rb/)
+      kao(:, 2, 9, 4) = (/ &
+     &5.4511e-03_rb,6.1548e-03_rb,6.1332e-03_rb,5.7185e-03_rb,5.1593e-03_rb,4.4551e-03_rb, &
+     &3.6302e-03_rb,2.5234e-03_rb,2.3673e-03_rb/)
+      kao(:, 3, 9, 4) = (/ &
+     &5.7014e-03_rb,6.5729e-03_rb,6.5250e-03_rb,6.0830e-03_rb,5.4507e-03_rb,4.7941e-03_rb, &
+     &3.9451e-03_rb,2.8561e-03_rb,2.7249e-03_rb/)
+      kao(:, 4, 9, 4) = (/ &
+     &5.9876e-03_rb,6.9491e-03_rb,6.9266e-03_rb,6.3994e-03_rb,5.8665e-03_rb,5.2094e-03_rb, &
+     &4.3177e-03_rb,3.2100e-03_rb,3.0655e-03_rb/)
+      kao(:, 5, 9, 4) = (/ &
+     &6.2578e-03_rb,7.3161e-03_rb,7.3395e-03_rb,6.8572e-03_rb,6.3066e-03_rb,5.6391e-03_rb, &
+     &4.7410e-03_rb,3.6035e-03_rb,3.3864e-03_rb/)
+      kao(:, 1,10, 4) = (/ &
+     &2.0796e-02_rb,2.0019e-02_rb,1.8165e-02_rb,1.6068e-02_rb,1.3873e-02_rb,1.1404e-02_rb, &
+     &8.6779e-03_rb,5.2784e-03_rb,2.8413e-03_rb/)
+      kao(:, 2,10, 4) = (/ &
+     &2.2188e-02_rb,2.1487e-02_rb,1.9617e-02_rb,1.7448e-02_rb,1.5124e-02_rb,1.2499e-02_rb, &
+     &9.2630e-03_rb,5.6664e-03_rb,3.3963e-03_rb/)
+      kao(:, 3,10, 4) = (/ &
+     &2.3219e-02_rb,2.2843e-02_rb,2.1086e-02_rb,1.8777e-02_rb,1.6130e-02_rb,1.3209e-02_rb, &
+     &9.9059e-03_rb,6.0802e-03_rb,4.0019e-03_rb/)
+      kao(:, 4,10, 4) = (/ &
+     &2.4435e-02_rb,2.4082e-02_rb,2.2303e-02_rb,1.9851e-02_rb,1.7023e-02_rb,1.4121e-02_rb, &
+     &1.0410e-02_rb,6.5843e-03_rb,4.6477e-03_rb/)
+      kao(:, 5,10, 4) = (/ &
+     &2.5609e-02_rb,2.5343e-02_rb,2.3560e-02_rb,2.0930e-02_rb,1.8042e-02_rb,1.4937e-02_rb, &
+     &1.1163e-02_rb,7.1400e-03_rb,5.2598e-03_rb/)
+      kao(:, 1,11, 4) = (/ &
+     &3.0218e-02_rb,2.8464e-02_rb,2.5566e-02_rb,2.2189e-02_rb,1.8763e-02_rb,1.5165e-02_rb, &
+     &1.1286e-02_rb,6.7271e-03_rb,3.0443e-03_rb/)
+      kao(:, 2,11, 4) = (/ &
+     &3.2017e-02_rb,3.0288e-02_rb,2.7351e-02_rb,2.3960e-02_rb,2.0417e-02_rb,1.6571e-02_rb, &
+     &1.2201e-02_rb,7.2159e-03_rb,3.6072e-03_rb/)
+      kao(:, 3,11, 4) = (/ &
+     &3.3713e-02_rb,3.2141e-02_rb,2.9172e-02_rb,2.5698e-02_rb,2.1768e-02_rb,1.7546e-02_rb, &
+     &1.2989e-02_rb,7.6734e-03_rb,4.2021e-03_rb/)
+      kao(:, 4,11, 4) = (/ &
+     &3.5523e-02_rb,3.3941e-02_rb,3.0802e-02_rb,2.7264e-02_rb,2.3091e-02_rb,1.8512e-02_rb, &
+     &1.3848e-02_rb,8.2207e-03_rb,4.9261e-03_rb/)
+      kao(:, 5,11, 4) = (/ &
+     &3.7048e-02_rb,3.5659e-02_rb,3.2500e-02_rb,2.8766e-02_rb,2.4380e-02_rb,1.9724e-02_rb, &
+     &1.4735e-02_rb,8.8773e-03_rb,5.6292e-03_rb/)
+      kao(:, 1,12, 4) = (/ &
+     &3.2170e-02_rb,2.9965e-02_rb,2.6774e-02_rb,2.3265e-02_rb,1.9604e-02_rb,1.5767e-02_rb, &
+     &1.1665e-02_rb,6.8628e-03_rb,2.9693e-03_rb/)
+      kao(:, 2,12, 4) = (/ &
+     &3.3877e-02_rb,3.1857e-02_rb,2.8686e-02_rb,2.5070e-02_rb,2.1306e-02_rb,1.7043e-02_rb, &
+     &1.2460e-02_rb,7.3567e-03_rb,3.5157e-03_rb/)
+      kao(:, 3,12, 4) = (/ &
+     &3.5821e-02_rb,3.3840e-02_rb,3.0497e-02_rb,2.6646e-02_rb,2.2619e-02_rb,1.8108e-02_rb, &
+     &1.3276e-02_rb,7.8561e-03_rb,4.1559e-03_rb/)
+      kao(:, 4,12, 4) = (/ &
+     &3.7503e-02_rb,3.5506e-02_rb,3.2126e-02_rb,2.8288e-02_rb,2.3902e-02_rb,1.9181e-02_rb, &
+     &1.4142e-02_rb,8.3990e-03_rb,4.8088e-03_rb/)
+      kao(:, 5,12, 4) = (/ &
+     &3.9218e-02_rb,3.7289e-02_rb,3.3764e-02_rb,2.9747e-02_rb,2.5253e-02_rb,2.0345e-02_rb, &
+     &1.5175e-02_rb,9.0569e-03_rb,5.5254e-03_rb/)
+      kao(:, 1,13, 4) = (/ &
+     &2.7021e-02_rb,2.5240e-02_rb,2.2638e-02_rb,1.9764e-02_rb,1.6669e-02_rb,1.3389e-02_rb, &
+     &9.8031e-03_rb,5.7609e-03_rb,2.5391e-03_rb/)
+      kao(:, 2,13, 4) = (/ &
+     &2.8550e-02_rb,2.6888e-02_rb,2.4164e-02_rb,2.1146e-02_rb,1.7859e-02_rb,1.4211e-02_rb, &
+     &1.0456e-02_rb,6.1648e-03_rb,3.0359e-03_rb/)
+      kao(:, 3,13, 4) = (/ &
+     &3.0206e-02_rb,2.8336e-02_rb,2.5560e-02_rb,2.2362e-02_rb,1.8953e-02_rb,1.5151e-02_rb, &
+     &1.1086e-02_rb,6.5998e-03_rb,3.5704e-03_rb/)
+      kao(:, 4,13, 4) = (/ &
+     &3.1495e-02_rb,2.9878e-02_rb,2.6989e-02_rb,2.3626e-02_rb,1.9993e-02_rb,1.6052e-02_rb, &
+     &1.1891e-02_rb,7.0977e-03_rb,4.1349e-03_rb/)
+      kao(:, 5,13, 4) = (/ &
+     &3.2969e-02_rb,3.1259e-02_rb,2.8282e-02_rb,2.5005e-02_rb,2.1232e-02_rb,1.7061e-02_rb, &
+     &1.2808e-02_rb,7.6578e-03_rb,4.7180e-03_rb/)
+      kao(:, 1, 1, 5) = (/ &
+     &7.7208e-05_rb,1.2983e-03_rb,2.1990e-03_rb,3.0698e-03_rb,3.9335e-03_rb,4.8939e-03_rb, &
+     &6.0507e-03_rb,7.9864e-03_rb,7.3950e-03_rb/)
+      kao(:, 2, 1, 5) = (/ &
+     &7.7960e-05_rb,1.4953e-03_rb,2.5372e-03_rb,3.5852e-03_rb,4.6877e-03_rb,5.9141e-03_rb, &
+     &7.4453e-03_rb,9.6664e-03_rb,8.9362e-03_rb/)
+      kao(:, 3, 1, 5) = (/ &
+     &7.8616e-05_rb,1.7027e-03_rb,2.9428e-03_rb,4.1895e-03_rb,5.5241e-03_rb,7.0220e-03_rb, &
+     &8.8894e-03_rb,1.1837e-02_rb,1.0698e-02_rb/)
+      kao(:, 4, 1, 5) = (/ &
+     &7.9284e-05_rb,1.9233e-03_rb,3.3889e-03_rb,4.8861e-03_rb,6.4864e-03_rb,8.2886e-03_rb, &
+     &1.0489e-02_rb,1.4031e-02_rb,1.2687e-02_rb/)
+      kao(:, 5, 1, 5) = (/ &
+     &8.0311e-05_rb,2.1623e-03_rb,3.8730e-03_rb,5.6513e-03_rb,7.5603e-03_rb,9.7064e-03_rb, &
+     &1.2306e-02_rb,1.6419e-02_rb,1.4857e-02_rb/)
+      kao(:, 1, 2, 5) = (/ &
+     &1.0510e-04_rb,1.2010e-03_rb,1.9708e-03_rb,2.6863e-03_rb,3.3801e-03_rb,4.0401e-03_rb, &
+     &4.8065e-03_rb,5.9839e-03_rb,5.8720e-03_rb/)
+      kao(:, 2, 2, 5) = (/ &
+     &1.0618e-04_rb,1.3719e-03_rb,2.2892e-03_rb,3.1040e-03_rb,3.9264e-03_rb,4.7961e-03_rb, &
+     &5.8356e-03_rb,7.3351e-03_rb,7.0925e-03_rb/)
+      kao(:, 3, 2, 5) = (/ &
+     &1.0689e-04_rb,1.5661e-03_rb,2.6266e-03_rb,3.5943e-03_rb,4.5681e-03_rb,5.6180e-03_rb, &
+     &6.8759e-03_rb,8.8640e-03_rb,8.4509e-03_rb/)
+      kao(:, 4, 2, 5) = (/ &
+     &1.0861e-04_rb,1.7752e-03_rb,2.9853e-03_rb,4.1453e-03_rb,5.3192e-03_rb,6.5973e-03_rb, &
+     &8.1274e-03_rb,1.0456e-02_rb,1.0031e-02_rb/)
+      kao(:, 5, 2, 5) = (/ &
+     &1.1004e-04_rb,1.9945e-03_rb,3.3831e-03_rb,4.7368e-03_rb,6.1454e-03_rb,7.6846e-03_rb, &
+     &9.5320e-03_rb,1.2312e-02_rb,1.1757e-02_rb/)
+      kao(:, 1, 3, 5) = (/ &
+     &1.9166e-04_rb,1.3172e-03_rb,1.9278e-03_rb,2.4677e-03_rb,2.9707e-03_rb,3.4895e-03_rb, &
+     &3.9440e-03_rb,4.4484e-03_rb,4.3497e-03_rb/)
+      kao(:, 2, 3, 5) = (/ &
+     &1.9336e-04_rb,1.4888e-03_rb,2.1997e-03_rb,2.8500e-03_rb,3.4656e-03_rb,4.0405e-03_rb, &
+     &4.6494e-03_rb,5.3886e-03_rb,5.2876e-03_rb/)
+      kao(:, 3, 3, 5) = (/ &
+     &1.9552e-04_rb,1.6719e-03_rb,2.4978e-03_rb,3.2794e-03_rb,4.0171e-03_rb,4.6883e-03_rb, &
+     &5.3810e-03_rb,6.3663e-03_rb,6.3594e-03_rb/)
+      kao(:, 4, 3, 5) = (/ &
+     &1.9793e-04_rb,1.8618e-03_rb,2.8193e-03_rb,3.7421e-03_rb,4.6002e-03_rb,5.4246e-03_rb, &
+     &6.2790e-03_rb,7.4939e-03_rb,7.6260e-03_rb/)
+      kao(:, 5, 3, 5) = (/ &
+     &2.0202e-04_rb,2.0622e-03_rb,3.1772e-03_rb,4.2408e-03_rb,5.2345e-03_rb,6.2239e-03_rb, &
+     &7.2922e-03_rb,8.8196e-03_rb,9.0035e-03_rb/)
+      kao(:, 1, 4, 5) = (/ &
+     &3.5080e-04_rb,1.5106e-03_rb,2.1048e-03_rb,2.5530e-03_rb,2.8923e-03_rb,3.1426e-03_rb, &
+     &3.3832e-03_rb,3.6360e-03_rb,3.6099e-03_rb/)
+      kao(:, 2, 4, 5) = (/ &
+     &3.5494e-04_rb,1.6898e-03_rb,2.3828e-03_rb,2.9160e-03_rb,3.3056e-03_rb,3.6304e-03_rb, &
+     &3.9520e-03_rb,4.2994e-03_rb,4.2882e-03_rb/)
+      kao(:, 3, 4, 5) = (/ &
+     &3.5978e-04_rb,1.8836e-03_rb,2.6877e-03_rb,3.3008e-03_rb,3.7593e-03_rb,4.1815e-03_rb, &
+     &4.6053e-03_rb,4.9917e-03_rb,5.0514e-03_rb/)
+      kao(:, 4, 4, 5) = (/ &
+     &3.6746e-04_rb,2.0763e-03_rb,3.0082e-03_rb,3.7203e-03_rb,4.2549e-03_rb,4.7934e-03_rb, &
+     &5.3242e-03_rb,5.8169e-03_rb,5.8760e-03_rb/)
+      kao(:, 5, 4, 5) = (/ &
+     &3.7911e-04_rb,2.2831e-03_rb,3.3520e-03_rb,4.1619e-03_rb,4.7913e-03_rb,5.4605e-03_rb, &
+     &6.1003e-03_rb,6.7476e-03_rb,6.8032e-03_rb/)
+      kao(:, 1, 5, 5) = (/ &
+     &5.8701e-04_rb,1.7294e-03_rb,2.3007e-03_rb,2.6940e-03_rb,2.9671e-03_rb,3.1134e-03_rb, &
+     &3.1768e-03_rb,3.0490e-03_rb,3.1049e-03_rb/)
+      kao(:, 2, 5, 5) = (/ &
+     &5.9308e-04_rb,1.9111e-03_rb,2.5835e-03_rb,3.0407e-03_rb,3.3851e-03_rb,3.5845e-03_rb, &
+     &3.6445e-03_rb,3.5746e-03_rb,3.6940e-03_rb/)
+      kao(:, 3, 5, 5) = (/ &
+     &6.0356e-04_rb,2.1186e-03_rb,2.8868e-03_rb,3.4242e-03_rb,3.8486e-03_rb,4.1112e-03_rb, &
+     &4.1722e-03_rb,4.1940e-03_rb,4.3605e-03_rb/)
+      kao(:, 4, 5, 5) = (/ &
+     &6.1818e-04_rb,2.3278e-03_rb,3.1936e-03_rb,3.8321e-03_rb,4.3352e-03_rb,4.6666e-03_rb, &
+     &4.7552e-03_rb,4.8779e-03_rb,5.1110e-03_rb/)
+      kao(:, 5, 5, 5) = (/ &
+     &6.3535e-04_rb,2.5512e-03_rb,3.5322e-03_rb,4.2882e-03_rb,4.8679e-03_rb,5.2358e-03_rb, &
+     &5.3921e-03_rb,5.6199e-03_rb,5.9412e-03_rb/)
+      kao(:, 1, 6, 5) = (/ &
+     &9.2532e-04_rb,2.0015e-03_rb,2.5277e-03_rb,2.8421e-03_rb,3.0437e-03_rb,3.1018e-03_rb, &
+     &3.0296e-03_rb,2.8221e-03_rb,2.6040e-03_rb/)
+      kao(:, 2, 6, 5) = (/ &
+     &9.2928e-04_rb,2.2000e-03_rb,2.8005e-03_rb,3.1777e-03_rb,3.4468e-03_rb,3.5577e-03_rb, &
+     &3.5029e-03_rb,3.2686e-03_rb,3.0871e-03_rb/)
+      kao(:, 3, 6, 5) = (/ &
+     &9.4818e-04_rb,2.4342e-03_rb,3.0892e-03_rb,3.5513e-03_rb,3.8786e-03_rb,4.0485e-03_rb, &
+     &4.0367e-03_rb,3.7564e-03_rb,3.6084e-03_rb/)
+      kao(:, 4, 6, 5) = (/ &
+     &9.7245e-04_rb,2.6688e-03_rb,3.4060e-03_rb,3.9527e-03_rb,4.3416e-03_rb,4.5754e-03_rb, &
+     &4.6140e-03_rb,4.3161e-03_rb,4.2427e-03_rb/)
+      kao(:, 5, 6, 5) = (/ &
+     &9.9339e-04_rb,2.9158e-03_rb,3.7426e-03_rb,4.3630e-03_rb,4.8503e-03_rb,5.1436e-03_rb, &
+     &5.2166e-03_rb,4.9082e-03_rb,4.9378e-03_rb/)
+      kao(:, 1, 7, 5) = (/ &
+     &1.5302e-03_rb,2.5414e-03_rb,2.9540e-03_rb,3.1974e-03_rb,3.3103e-03_rb,3.2792e-03_rb, &
+     &3.0626e-03_rb,2.6477e-03_rb,2.2296e-03_rb/)
+      kao(:, 2, 7, 5) = (/ &
+     &1.5437e-03_rb,2.8069e-03_rb,3.2725e-03_rb,3.5730e-03_rb,3.6894e-03_rb,3.7000e-03_rb, &
+     &3.5141e-03_rb,3.0866e-03_rb,2.7517e-03_rb/)
+      kao(:, 3, 7, 5) = (/ &
+     &1.5828e-03_rb,3.0663e-03_rb,3.6143e-03_rb,3.9451e-03_rb,4.1195e-03_rb,4.1576e-03_rb, &
+     &4.0163e-03_rb,3.5822e-03_rb,3.3032e-03_rb/)
+      kao(:, 4, 7, 5) = (/ &
+     &1.6196e-03_rb,3.3257e-03_rb,3.9578e-03_rb,4.3834e-03_rb,4.5853e-03_rb,4.6606e-03_rb, &
+     &4.5385e-03_rb,4.1261e-03_rb,3.9000e-03_rb/)
+      kao(:, 5, 7, 5) = (/ &
+     &1.6660e-03_rb,3.6179e-03_rb,4.3451e-03_rb,4.8226e-03_rb,5.0668e-03_rb,5.1930e-03_rb, &
+     &5.1180e-03_rb,4.7030e-03_rb,4.5474e-03_rb/)
+      kao(:, 1, 8, 5) = (/ &
+     &2.9602e-03_rb,3.9304e-03_rb,4.1580e-03_rb,4.2228e-03_rb,4.1165e-03_rb,3.9147e-03_rb, &
+     &3.5216e-03_rb,2.8265e-03_rb,2.2242e-03_rb/)
+      kao(:, 2, 8, 5) = (/ &
+     &2.9996e-03_rb,4.2668e-03_rb,4.6028e-03_rb,4.6806e-03_rb,4.6212e-03_rb,4.3859e-03_rb, &
+     &3.9542e-03_rb,3.2447e-03_rb,2.5165e-03_rb/)
+      kao(:, 3, 8, 5) = (/ &
+     &3.0790e-03_rb,4.6440e-03_rb,5.0256e-03_rb,5.1447e-03_rb,5.1348e-03_rb,4.8892e-03_rb, &
+     &4.4430e-03_rb,3.7287e-03_rb,2.9386e-03_rb/)
+      kao(:, 4, 8, 5) = (/ &
+     &3.1467e-03_rb,5.0515e-03_rb,5.4655e-03_rb,5.6295e-03_rb,5.6440e-03_rb,5.4532e-03_rb, &
+     &4.9689e-03_rb,4.2347e-03_rb,3.5150e-03_rb/)
+      kao(:, 5, 8, 5) = (/ &
+     &3.2473e-03_rb,5.4319e-03_rb,5.9099e-03_rb,6.1513e-03_rb,6.2421e-03_rb,6.0606e-03_rb, &
+     &5.5483e-03_rb,4.7752e-03_rb,4.1476e-03_rb/)
+      kao(:, 1, 9, 5) = (/ &
+     &1.0715e-02_rb,1.1382e-02_rb,1.0899e-02_rb,1.0007e-02_rb,9.0437e-03_rb,7.6976e-03_rb, &
+     &6.2825e-03_rb,4.4971e-03_rb,3.7652e-03_rb/)
+      kao(:, 2, 9, 5) = (/ &
+     &1.0909e-02_rb,1.1862e-02_rb,1.1397e-02_rb,1.0777e-02_rb,9.8877e-03_rb,8.5937e-03_rb, &
+     &7.0755e-03_rb,5.0938e-03_rb,4.2507e-03_rb/)
+      kao(:, 3, 9, 5) = (/ &
+     &1.1246e-02_rb,1.2418e-02_rb,1.2293e-02_rb,1.1701e-02_rb,1.0880e-02_rb,9.4889e-03_rb, &
+     &7.8244e-03_rb,5.6718e-03_rb,4.5213e-03_rb/)
+      kao(:, 4, 9, 5) = (/ &
+     &1.1484e-02_rb,1.3245e-02_rb,1.3252e-02_rb,1.2816e-02_rb,1.1850e-02_rb,1.0328e-02_rb, &
+     &8.6168e-03_rb,6.3257e-03_rb,4.7999e-03_rb/)
+      kao(:, 5, 9, 5) = (/ &
+     &1.1883e-02_rb,1.4169e-02_rb,1.4256e-02_rb,1.3856e-02_rb,1.2835e-02_rb,1.1196e-02_rb, &
+     &9.4286e-03_rb,7.0084e-03_rb,5.1834e-03_rb/)
+      kao(:, 1,10, 5) = (/ &
+     &4.3348e-02_rb,4.0646e-02_rb,3.6539e-02_rb,3.2078e-02_rb,2.7151e-02_rb,2.1841e-02_rb, &
+     &1.6185e-02_rb,9.9201e-03_rb,6.7193e-03_rb/)
+      kao(:, 2,10, 5) = (/ &
+     &4.4149e-02_rb,4.2066e-02_rb,3.8091e-02_rb,3.3609e-02_rb,2.8552e-02_rb,2.2983e-02_rb, &
+     &1.7376e-02_rb,1.1009e-02_rb,7.5436e-03_rb/)
+      kao(:, 3,10, 5) = (/ &
+     &4.5674e-02_rb,4.3639e-02_rb,3.9624e-02_rb,3.4947e-02_rb,3.0188e-02_rb,2.4887e-02_rb, &
+     &1.8903e-02_rb,1.2177e-02_rb,8.3556e-03_rb/)
+      kao(:, 4,10, 5) = (/ &
+     &4.6947e-02_rb,4.5302e-02_rb,4.1477e-02_rb,3.7249e-02_rb,3.2588e-02_rb,2.6746e-02_rb, &
+     &2.0815e-02_rb,1.3320e-02_rb,9.0276e-03_rb/)
+      kao(:, 5,10, 5) = (/ &
+     &4.8633e-02_rb,4.7885e-02_rb,4.4096e-02_rb,3.9864e-02_rb,3.4957e-02_rb,2.9104e-02_rb, &
+     &2.2653e-02_rb,1.4428e-02_rb,9.7333e-03_rb/)
+      kao(:, 1,11, 5) = (/ &
+     &6.1692e-02_rb,5.6780e-02_rb,5.0232e-02_rb,4.3693e-02_rb,3.6664e-02_rb,2.9101e-02_rb, &
+     &2.1139e-02_rb,1.2500e-02_rb,7.3091e-03_rb/)
+      kao(:, 2,11, 5) = (/ &
+     &6.3633e-02_rb,5.9268e-02_rb,5.2865e-02_rb,4.5871e-02_rb,3.8419e-02_rb,3.0609e-02_rb, &
+     &2.2496e-02_rb,1.3660e-02_rb,8.2073e-03_rb/)
+      kao(:, 3,11, 5) = (/ &
+     &6.5598e-02_rb,6.1281e-02_rb,5.4828e-02_rb,4.7713e-02_rb,4.0401e-02_rb,3.2790e-02_rb, &
+     &2.4296e-02_rb,1.5126e-02_rb,8.8706e-03_rb/)
+      kao(:, 4,11, 5) = (/ &
+     &6.7575e-02_rb,6.3884e-02_rb,5.7739e-02_rb,5.0715e-02_rb,4.3385e-02_rb,3.5358e-02_rb, &
+     &2.6343e-02_rb,1.6652e-02_rb,9.5120e-03_rb/)
+      kao(:, 5,11, 5) = (/ &
+     &7.0953e-02_rb,6.7728e-02_rb,6.1195e-02_rb,5.3939e-02_rb,4.6283e-02_rb,3.8093e-02_rb, &
+     &2.8648e-02_rb,1.8051e-02_rb,1.0472e-02_rb/)
+      kao(:, 1,12, 5) = (/ &
+     &6.6289e-02_rb,6.0781e-02_rb,5.3636e-02_rb,4.6304e-02_rb,3.8429e-02_rb,3.0261e-02_rb, &
+     &2.1777e-02_rb,1.2752e-02_rb,6.7746e-03_rb/)
+      kao(:, 2,12, 5) = (/ &
+     &6.8551e-02_rb,6.3174e-02_rb,5.6063e-02_rb,4.8348e-02_rb,4.0059e-02_rb,3.1785e-02_rb, &
+     &2.3315e-02_rb,1.3856e-02_rb,7.6622e-03_rb/)
+      kao(:, 3,12, 5) = (/ &
+     &7.0441e-02_rb,6.5327e-02_rb,5.8258e-02_rb,5.0611e-02_rb,4.2587e-02_rb,3.4170e-02_rb, &
+     &2.5237e-02_rb,1.5295e-02_rb,8.3950e-03_rb/)
+      kao(:, 4,12, 5) = (/ &
+     &7.3259e-02_rb,6.8842e-02_rb,6.1685e-02_rb,5.3758e-02_rb,4.5436e-02_rb,3.6706e-02_rb, &
+     &2.7377e-02_rb,1.6771e-02_rb,8.9439e-03_rb/)
+      kao(:, 5,12, 5) = (/ &
+     &7.7467e-02_rb,7.3081e-02_rb,6.5449e-02_rb,5.7418e-02_rb,4.8677e-02_rb,3.9671e-02_rb, &
+     &2.9550e-02_rb,1.8202e-02_rb,9.6319e-03_rb/)
+      kao(:, 1,13, 5) = (/ &
+     &5.6671e-02_rb,5.1982e-02_rb,4.5878e-02_rb,3.9500e-02_rb,3.2807e-02_rb,2.5894e-02_rb, &
+     &1.8717e-02_rb,1.0942e-02_rb,5.7523e-03_rb/)
+      kao(:, 2,13, 5) = (/ &
+     &5.8577e-02_rb,5.4011e-02_rb,4.7896e-02_rb,4.1459e-02_rb,3.4661e-02_rb,2.7671e-02_rb, &
+     &2.0186e-02_rb,1.2025e-02_rb,6.4664e-03_rb/)
+      kao(:, 3,13, 5) = (/ &
+     &6.0296e-02_rb,5.6294e-02_rb,5.0261e-02_rb,4.3702e-02_rb,3.6751e-02_rb,2.9579e-02_rb, &
+     &2.1985e-02_rb,1.3253e-02_rb,7.0517e-03_rb/)
+      kao(:, 4,13, 5) = (/ &
+     &6.3403e-02_rb,5.9492e-02_rb,5.3202e-02_rb,4.6643e-02_rb,3.9435e-02_rb,3.1951e-02_rb, &
+     &2.3841e-02_rb,1.4493e-02_rb,7.4965e-03_rb/)
+      kao(:, 5,13, 5) = (/ &
+     &6.7016e-02_rb,6.3341e-02_rb,5.7105e-02_rb,5.0058e-02_rb,4.2357e-02_rb,3.4571e-02_rb, &
+     &2.5674e-02_rb,1.5753e-02_rb,8.1075e-03_rb/)
+      kao(:, 1, 1, 6) = (/ &
+     &1.5042e-04_rb,2.4198e-03_rb,4.3016e-03_rb,6.2979e-03_rb,8.5168e-03_rb,1.0968e-02_rb, &
+     &1.3929e-02_rb,1.8584e-02_rb,1.6834e-02_rb/)
+      kao(:, 2, 1, 6) = (/ &
+     &1.5402e-04_rb,2.7874e-03_rb,5.0906e-03_rb,7.5405e-03_rb,1.0172e-02_rb,1.3049e-02_rb, &
+     &1.6523e-02_rb,2.2172e-02_rb,2.0134e-02_rb/)
+      kao(:, 3, 1, 6) = (/ &
+     &1.5658e-04_rb,3.2116e-03_rb,5.9652e-03_rb,8.9274e-03_rb,1.2070e-02_rb,1.5491e-02_rb, &
+     &1.9553e-02_rb,2.6056e-02_rb,2.3919e-02_rb/)
+      kao(:, 4, 1, 6) = (/ &
+     &1.5960e-04_rb,3.6836e-03_rb,6.9617e-03_rb,1.0460e-02_rb,1.4154e-02_rb,1.8205e-02_rb, &
+     &2.3055e-02_rb,3.0555e-02_rb,2.8089e-02_rb/)
+      kao(:, 5, 1, 6) = (/ &
+     &1.6165e-04_rb,4.2037e-03_rb,8.0817e-03_rb,1.2177e-02_rb,1.6484e-02_rb,2.1191e-02_rb, &
+     &2.6875e-02_rb,3.5769e-02_rb,3.2739e-02_rb/)
+      kao(:, 1, 2, 6) = (/ &
+     &2.0998e-04_rb,2.2589e-03_rb,3.7899e-03_rb,5.2410e-03_rb,6.7744e-03_rb,8.5703e-03_rb, &
+     &1.0697e-02_rb,1.3881e-02_rb,1.3198e-02_rb/)
+      kao(:, 2, 2, 6) = (/ &
+     &2.1456e-04_rb,2.6007e-03_rb,4.3946e-03_rb,6.1987e-03_rb,8.1361e-03_rb,1.0272e-02_rb, &
+     &1.2733e-02_rb,1.6541e-02_rb,1.5875e-02_rb/)
+      kao(:, 3, 2, 6) = (/ &
+     &2.1842e-04_rb,2.9560e-03_rb,5.0887e-03_rb,7.2752e-03_rb,9.6552e-03_rb,1.2252e-02_rb, &
+     &1.5232e-02_rb,1.9582e-02_rb,1.8968e-02_rb/)
+      kao(:, 4, 2, 6) = (/ &
+     &2.2236e-04_rb,3.3459e-03_rb,5.8736e-03_rb,8.5067e-03_rb,1.1349e-02_rb,1.4414e-02_rb, &
+     &1.7964e-02_rb,2.3187e-02_rb,2.2355e-02_rb/)
+      kao(:, 5, 2, 6) = (/ &
+     &2.2547e-04_rb,3.7713e-03_rb,6.7501e-03_rb,9.9039e-03_rb,1.3264e-02_rb,1.6870e-02_rb, &
+     &2.1032e-02_rb,2.7154e-02_rb,2.6176e-02_rb/)
+      kao(:, 1, 3, 6) = (/ &
+     &3.8749e-04_rb,2.3567e-03_rb,3.5784e-03_rb,4.7302e-03_rb,5.7992e-03_rb,6.7584e-03_rb, &
+     &7.8929e-03_rb,9.6810e-03_rb,9.8950e-03_rb/)
+      kao(:, 2, 3, 6) = (/ &
+     &3.9603e-04_rb,2.6464e-03_rb,4.1366e-03_rb,5.5007e-03_rb,6.7822e-03_rb,8.0470e-03_rb, &
+     &9.4913e-03_rb,1.1619e-02_rb,1.2036e-02_rb/)
+      kao(:, 3, 3, 6) = (/ &
+     &4.0456e-04_rb,2.9559e-03_rb,4.7389e-03_rb,6.3508e-03_rb,7.8799e-03_rb,9.4907e-03_rb, &
+     &1.1392e-02_rb,1.3956e-02_rb,1.4457e-02_rb/)
+      kao(:, 4, 3, 6) = (/ &
+     &4.1360e-04_rb,3.3032e-03_rb,5.4024e-03_rb,7.2987e-03_rb,9.1447e-03_rb,1.1131e-02_rb, &
+     &1.3466e-02_rb,1.6568e-02_rb,1.7113e-02_rb/)
+      kao(:, 5, 3, 6) = (/ &
+     &4.1860e-04_rb,3.6941e-03_rb,6.1025e-03_rb,8.3274e-03_rb,1.0570e-02_rb,1.3013e-02_rb, &
+     &1.5813e-02_rb,1.9496e-02_rb,2.0111e-02_rb/)
+      kao(:, 1, 4, 6) = (/ &
+     &7.1991e-04_rb,2.8586e-03_rb,3.8493e-03_rb,4.6115e-03_rb,5.2750e-03_rb,5.9823e-03_rb, &
+     &6.5939e-03_rb,7.1204e-03_rb,6.9950e-03_rb/)
+      kao(:, 2, 4, 6) = (/ &
+     &7.3932e-04_rb,3.1546e-03_rb,4.3292e-03_rb,5.2487e-03_rb,6.1632e-03_rb,7.0322e-03_rb, &
+     &7.8025e-03_rb,8.5583e-03_rb,8.4949e-03_rb/)
+      kao(:, 3, 4, 6) = (/ &
+     &7.5829e-04_rb,3.4592e-03_rb,4.8355e-03_rb,5.9709e-03_rb,7.1395e-03_rb,8.1909e-03_rb, &
+     &9.1159e-03_rb,1.0292e-02_rb,1.0335e-02_rb/)
+      kao(:, 4, 4, 6) = (/ &
+     &7.6959e-04_rb,3.8025e-03_rb,5.3880e-03_rb,6.7853e-03_rb,8.1872e-03_rb,9.4673e-03_rb, &
+     &1.0631e-02_rb,1.2218e-02_rb,1.2516e-02_rb/)
+      kao(:, 5, 4, 6) = (/ &
+     &7.7964e-04_rb,4.1796e-03_rb,5.9947e-03_rb,7.6582e-03_rb,9.3446e-03_rb,1.0850e-02_rb, &
+     &1.2339e-02_rb,1.4388e-02_rb,1.5009e-02_rb/)
+      kao(:, 1, 5, 6) = (/ &
+     &1.2241e-03_rb,3.4685e-03_rb,4.4046e-03_rb,5.0844e-03_rb,5.4871e-03_rb,5.7179e-03_rb, &
+     &5.7620e-03_rb,5.9818e-03_rb,6.1472e-03_rb/)
+      kao(:, 2, 5, 6) = (/ &
+     &1.2601e-03_rb,3.8071e-03_rb,4.8995e-03_rb,5.7159e-03_rb,6.2114e-03_rb,6.5597e-03_rb, &
+     &6.8164e-03_rb,7.1370e-03_rb,7.3501e-03_rb/)
+      kao(:, 3, 5, 6) = (/ &
+     &1.2927e-03_rb,4.1224e-03_rb,5.4389e-03_rb,6.3889e-03_rb,6.9938e-03_rb,7.4901e-03_rb, &
+     &7.9768e-03_rb,8.3697e-03_rb,8.6918e-03_rb/)
+      kao(:, 4, 5, 6) = (/ &
+     &1.3168e-03_rb,4.4980e-03_rb,6.0112e-03_rb,7.1194e-03_rb,7.8654e-03_rb,8.4979e-03_rb, &
+     &9.2325e-03_rb,9.7616e-03_rb,1.0181e-02_rb/)
+      kao(:, 5, 5, 6) = (/ &
+     &1.3499e-03_rb,4.8864e-03_rb,6.6201e-03_rb,7.8699e-03_rb,8.7970e-03_rb,9.6632e-03_rb, &
+     &1.0606e-02_rb,1.1344e-02_rb,1.1812e-02_rb/)
+      kao(:, 1, 6, 6) = (/ &
+     &1.9359e-03_rb,4.1954e-03_rb,5.0050e-03_rb,5.5462e-03_rb,5.8539e-03_rb,5.9443e-03_rb, &
+     &5.7417e-03_rb,5.1473e-03_rb,5.2472e-03_rb/)
+      kao(:, 2, 6, 6) = (/ &
+     &2.0045e-03_rb,4.5957e-03_rb,5.5374e-03_rb,6.1876e-03_rb,6.5964e-03_rb,6.7501e-03_rb, &
+     &6.5907e-03_rb,6.0581e-03_rb,6.2872e-03_rb/)
+      kao(:, 3, 6, 6) = (/ &
+     &2.0656e-03_rb,4.9538e-03_rb,6.0748e-03_rb,6.8772e-03_rb,7.3778e-03_rb,7.6157e-03_rb, &
+     &7.5054e-03_rb,7.1291e-03_rb,7.4717e-03_rb/)
+      kao(:, 4, 6, 6) = (/ &
+     &2.1235e-03_rb,5.3117e-03_rb,6.6418e-03_rb,7.6042e-03_rb,8.2374e-03_rb,8.5589e-03_rb, &
+     &8.5173e-03_rb,8.3153e-03_rb,8.7345e-03_rb/)
+      kao(:, 5, 6, 6) = (/ &
+     &2.1708e-03_rb,5.7022e-03_rb,7.2758e-03_rb,8.4071e-03_rb,9.1623e-03_rb,9.5678e-03_rb, &
+     &9.5860e-03_rb,9.6197e-03_rb,1.0118e-02_rb/)
+      kao(:, 1, 7, 6) = (/ &
+     &3.2088e-03_rb,5.3976e-03_rb,6.1152e-03_rb,6.4273e-03_rb,6.5565e-03_rb,6.4169e-03_rb, &
+     &6.0483e-03_rb,5.1718e-03_rb,4.3840e-03_rb/)
+      kao(:, 2, 7, 6) = (/ &
+     &3.3329e-03_rb,5.8617e-03_rb,6.7065e-03_rb,7.1293e-03_rb,7.3332e-03_rb,7.2483e-03_rb, &
+     &6.8991e-03_rb,6.0070e-03_rb,5.1893e-03_rb/)
+      kao(:, 3, 7, 6) = (/ &
+     &3.4526e-03_rb,6.3215e-03_rb,7.2907e-03_rb,7.8484e-03_rb,8.1105e-03_rb,8.1244e-03_rb, &
+     &7.7961e-03_rb,6.9012e-03_rb,6.1115e-03_rb/)
+      kao(:, 4, 7, 6) = (/ &
+     &3.5398e-03_rb,6.7841e-03_rb,7.9069e-03_rb,8.5448e-03_rb,8.9613e-03_rb,9.0608e-03_rb, &
+     &8.7760e-03_rb,7.8768e-03_rb,7.1030e-03_rb/)
+      kao(:, 5, 7, 6) = (/ &
+     &3.6419e-03_rb,7.2100e-03_rb,8.5218e-03_rb,9.3036e-03_rb,9.8959e-03_rb,1.0073e-02_rb, &
+     &9.8505e-03_rb,8.9292e-03_rb,8.2308e-03_rb/)
+      kao(:, 1, 8, 6) = (/ &
+     &6.2734e-03_rb,8.1929e-03_rb,8.7347e-03_rb,8.8396e-03_rb,8.5498e-03_rb,7.9153e-03_rb, &
+     &7.0346e-03_rb,5.6808e-03_rb,4.1552e-03_rb/)
+      kao(:, 2, 8, 6) = (/ &
+     &6.5441e-03_rb,8.8580e-03_rb,9.5108e-03_rb,9.7024e-03_rb,9.3653e-03_rb,8.8364e-03_rb, &
+     &7.9480e-03_rb,6.5304e-03_rb,4.9813e-03_rb/)
+      kao(:, 3, 8, 6) = (/ &
+     &6.7938e-03_rb,9.5212e-03_rb,1.0312e-02_rb,1.0573e-02_rb,1.0260e-02_rb,9.7376e-03_rb, &
+     &8.8728e-03_rb,7.4306e-03_rb,5.9661e-03_rb/)
+      kao(:, 4, 8, 6) = (/ &
+     &6.9763e-03_rb,1.0160e-02_rb,1.1107e-02_rb,1.1420e-02_rb,1.1193e-02_rb,1.0684e-02_rb, &
+     &9.8581e-03_rb,8.3990e-03_rb,6.9644e-03_rb/)
+      kao(:, 5, 8, 6) = (/ &
+     &7.1912e-03_rb,1.0832e-02_rb,1.1979e-02_rb,1.2319e-02_rb,1.2084e-02_rb,1.1646e-02_rb, &
+     &1.0942e-02_rb,9.4605e-03_rb,8.0079e-03_rb/)
+      kao(:, 1, 9, 6) = (/ &
+     &2.3423e-02_rb,2.3874e-02_rb,2.2570e-02_rb,2.0907e-02_rb,1.8747e-02_rb,1.6279e-02_rb, &
+     &1.3268e-02_rb,9.1967e-03_rb,5.4472e-03_rb/)
+      kao(:, 2, 9, 6) = (/ &
+     &2.4372e-02_rb,2.5487e-02_rb,2.4526e-02_rb,2.2806e-02_rb,2.0430e-02_rb,1.7721e-02_rb, &
+     &1.4547e-02_rb,1.0257e-02_rb,5.8874e-03_rb/)
+      kao(:, 3, 9, 6) = (/ &
+     &2.5322e-02_rb,2.7228e-02_rb,2.6228e-02_rb,2.4576e-02_rb,2.2164e-02_rb,1.9365e-02_rb, &
+     &1.5921e-02_rb,1.1389e-02_rb,6.8168e-03_rb/)
+      kao(:, 4, 9, 6) = (/ &
+     &2.6144e-02_rb,2.8709e-02_rb,2.7958e-02_rb,2.6366e-02_rb,2.3791e-02_rb,2.0979e-02_rb, &
+     &1.7361e-02_rb,1.2542e-02_rb,7.8623e-03_rb/)
+      kao(:, 5, 9, 6) = (/ &
+     &2.7002e-02_rb,3.0246e-02_rb,2.9564e-02_rb,2.8028e-02_rb,2.5537e-02_rb,2.2731e-02_rb, &
+     &1.8860e-02_rb,1.3722e-02_rb,9.0318e-03_rb/)
+      kao(:, 1,10, 6) = (/ &
+     &9.6759e-02_rb,8.9920e-02_rb,8.0281e-02_rb,6.9298e-02_rb,5.8160e-02_rb,4.6685e-02_rb, &
+     &3.4489e-02_rb,2.1137e-02_rb,9.1317e-03_rb/)
+      kao(:, 2,10, 6) = (/ &
+     &1.0130e-01_rb,9.4928e-02_rb,8.5063e-02_rb,7.4190e-02_rb,6.2751e-02_rb,5.0819e-02_rb, &
+     &3.7815e-02_rb,2.3107e-02_rb,9.7753e-03_rb/)
+      kao(:, 3,10, 6) = (/ &
+     &1.0500e-01_rb,9.9899e-02_rb,9.0245e-02_rb,7.9682e-02_rb,6.7667e-02_rb,5.4638e-02_rb, &
+     &4.0873e-02_rb,2.5040e-02_rb,1.0330e-02_rb/)
+      kao(:, 4,10, 6) = (/ &
+     &1.0896e-01_rb,1.0463e-01_rb,9.5171e-02_rb,8.3946e-02_rb,7.1420e-02_rb,5.8144e-02_rb, &
+     &4.3799e-02_rb,2.7205e-02_rb,1.1084e-02_rb/)
+      kao(:, 5,10, 6) = (/ &
+     &1.1285e-01_rb,1.0942e-01_rb,9.9931e-02_rb,8.8439e-02_rb,7.5783e-02_rb,6.1708e-02_rb, &
+     &4.6484e-02_rb,2.9531e-02_rb,1.2060e-02_rb/)
+      kao(:, 1,11, 6) = (/ &
+     &1.4204e-01_rb,1.2997e-01_rb,1.1520e-01_rb,9.8769e-02_rb,8.1420e-02_rb,6.4217e-02_rb, &
+     &4.6399e-02_rb,2.7414e-02_rb,9.3511e-03_rb/)
+      kao(:, 2,11, 6) = (/ &
+     &1.4781e-01_rb,1.3669e-01_rb,1.2188e-01_rb,1.0492e-01_rb,8.7668e-02_rb,6.9566e-02_rb, &
+     &5.0549e-02_rb,3.0014e-02_rb,1.0330e-02_rb/)
+      kao(:, 3,11, 6) = (/ &
+     &1.5380e-01_rb,1.4353e-01_rb,1.2793e-01_rb,1.1113e-01_rb,9.3325e-02_rb,7.4108e-02_rb, &
+     &5.4029e-02_rb,3.2498e-02_rb,1.1533e-02_rb/)
+      kao(:, 4,11, 6) = (/ &
+     &1.6004e-01_rb,1.5059e-01_rb,1.3460e-01_rb,1.1704e-01_rb,9.8404e-02_rb,7.8709e-02_rb, &
+     &5.7847e-02_rb,3.4798e-02_rb,1.2510e-02_rb/)
+      kao(:, 5,11, 6) = (/ &
+     &1.6529e-01_rb,1.5606e-01_rb,1.4056e-01_rb,1.2310e-01_rb,1.0396e-01_rb,8.3240e-02_rb, &
+     &6.1355e-02_rb,3.7415e-02_rb,1.3283e-02_rb/)
+      kao(:, 1,12, 6) = (/ &
+     &1.5238e-01_rb,1.3897e-01_rb,1.2274e-01_rb,1.0509e-01_rb,8.6816e-02_rb,6.8213e-02_rb, &
+     &4.8813e-02_rb,2.8303e-02_rb,8.9094e-03_rb/)
+      kao(:, 2,12, 6) = (/ &
+     &1.5887e-01_rb,1.4598e-01_rb,1.2939e-01_rb,1.1123e-01_rb,9.2497e-02_rb,7.3141e-02_rb, &
+     &5.2574e-02_rb,3.0889e-02_rb,9.4910e-03_rb/)
+      kao(:, 3,12, 6) = (/ &
+     &1.6583e-01_rb,1.5402e-01_rb,1.3664e-01_rb,1.1788e-01_rb,9.8276e-02_rb,7.7826e-02_rb, &
+     &5.6134e-02_rb,3.3329e-02_rb,1.0354e-02_rb/)
+      kao(:, 4,12, 6) = (/ &
+     &1.7232e-01_rb,1.6056e-01_rb,1.4294e-01_rb,1.2398e-01_rb,1.0387e-01_rb,8.2524e-02_rb, &
+     &5.9981e-02_rb,3.5800e-02_rb,1.1471e-02_rb/)
+      kao(:, 5,12, 6) = (/ &
+     &1.7822e-01_rb,1.6713e-01_rb,1.4985e-01_rb,1.3045e-01_rb,1.0965e-01_rb,8.7208e-02_rb, &
+     &6.3531e-02_rb,3.8400e-02_rb,1.2648e-02_rb/)
+      kao(:, 1,13, 6) = (/ &
+     &1.2851e-01_rb,1.1760e-01_rb,1.0432e-01_rb,8.9471e-02_rb,7.3952e-02_rb,5.7965e-02_rb, &
+     &4.1571e-02_rb,2.4244e-02_rb,7.5271e-03_rb/)
+      kao(:, 2,13, 6) = (/ &
+     &1.3461e-01_rb,1.2431e-01_rb,1.1020e-01_rb,9.4715e-02_rb,7.8713e-02_rb,6.2191e-02_rb, &
+     &4.4720e-02_rb,2.6349e-02_rb,7.9374e-03_rb/)
+      kao(:, 3,13, 6) = (/ &
+     &1.4091e-01_rb,1.3079e-01_rb,1.1585e-01_rb,1.0015e-01_rb,8.3554e-02_rb,6.6181e-02_rb, &
+     &4.7816e-02_rb,2.8551e-02_rb,8.7113e-03_rb/)
+      kao(:, 4,13, 6) = (/ &
+     &1.4657e-01_rb,1.3673e-01_rb,1.2189e-01_rb,1.0573e-01_rb,8.8680e-02_rb,7.0418e-02_rb, &
+     &5.0990e-02_rb,3.0632e-02_rb,9.8158e-03_rb/)
+      kao(:, 5,13, 6) = (/ &
+     &1.5197e-01_rb,1.4281e-01_rb,1.2778e-01_rb,1.1111e-01_rb,9.3402e-02_rb,7.4099e-02_rb, &
+     &5.4192e-02_rb,3.2952e-02_rb,1.0865e-02_rb/)
+      kao(:, 1, 1, 7) = (/ &
+     &2.9775e-04_rb,4.9903e-03_rb,9.5966e-03_rb,1.4458e-02_rb,1.9550e-02_rb,2.5066e-02_rb, &
+     &3.1548e-02_rb,4.0907e-02_rb,3.8920e-02_rb/)
+      kao(:, 2, 1, 7) = (/ &
+     &2.9974e-04_rb,5.8708e-03_rb,1.1484e-02_rb,1.7340e-02_rb,2.3486e-02_rb,3.0156e-02_rb, &
+     &3.8022e-02_rb,4.9522e-02_rb,4.6798e-02_rb/)
+      kao(:, 3, 1, 7) = (/ &
+     &3.0249e-04_rb,6.8379e-03_rb,1.3523e-02_rb,2.0453e-02_rb,2.7734e-02_rb,3.5680e-02_rb, &
+     &4.5116e-02_rb,5.8960e-02_rb,5.5301e-02_rb/)
+      kao(:, 4, 1, 7) = (/ &
+     &3.0505e-04_rb,7.9161e-03_rb,1.5750e-02_rb,2.3843e-02_rb,3.2353e-02_rb,4.1634e-02_rb, &
+     &5.2683e-02_rb,6.9279e-02_rb,6.4544e-02_rb/)
+      kao(:, 5, 1, 7) = (/ &
+     &3.0784e-04_rb,9.1145e-03_rb,1.8178e-02_rb,2.7529e-02_rb,3.7353e-02_rb,4.8074e-02_rb, &
+     &6.0824e-02_rb,8.0052e-02_rb,7.4551e-02_rb/)
+      kao(:, 1, 2, 7) = (/ &
+     &4.4044e-04_rb,4.5745e-03_rb,7.9442e-03_rb,1.1658e-02_rb,1.5612e-02_rb,1.9809e-02_rb, &
+     &2.4586e-02_rb,3.1373e-02_rb,3.0910e-02_rb/)
+      kao(:, 2, 2, 7) = (/ &
+     &4.4502e-04_rb,5.2457e-03_rb,9.4321e-03_rb,1.4009e-02_rb,1.8804e-02_rb,2.3915e-02_rb, &
+     &2.9756e-02_rb,3.8088e-02_rb,3.7317e-02_rb/)
+      kao(:, 3, 2, 7) = (/ &
+     &4.4893e-04_rb,5.9898e-03_rb,1.1101e-02_rb,1.6604e-02_rb,2.2319e-02_rb,2.8413e-02_rb, &
+     &3.5386e-02_rb,4.5425e-02_rb,4.4358e-02_rb/)
+      kao(:, 4, 2, 7) = (/ &
+     &4.5303e-04_rb,6.8346e-03_rb,1.2966e-02_rb,1.9451e-02_rb,2.6168e-02_rb,3.3333e-02_rb, &
+     &4.1534e-02_rb,5.3372e-02_rb,5.2063e-02_rb/)
+      kao(:, 5, 2, 7) = (/ &
+     &4.5653e-04_rb,7.7989e-03_rb,1.5045e-02_rb,2.2592e-02_rb,3.0407e-02_rb,3.8717e-02_rb, &
+     &4.8217e-02_rb,6.1953e-02_rb,6.0541e-02_rb/)
+      kao(:, 1, 3, 7) = (/ &
+     &8.7011e-04_rb,4.7519e-03_rb,7.4191e-03_rb,9.7724e-03_rb,1.2242e-02_rb,1.5076e-02_rb, &
+     &1.8293e-02_rb,2.2402e-02_rb,2.3454e-02_rb/)
+      kao(:, 2, 3, 7) = (/ &
+     &8.7761e-04_rb,5.4004e-03_rb,8.5169e-03_rb,1.1449e-02_rb,1.4656e-02_rb,1.8245e-02_rb, &
+     &2.2203e-02_rb,2.7303e-02_rb,2.8468e-02_rb/)
+      kao(:, 3, 3, 7) = (/ &
+     &8.8555e-04_rb,6.0960e-03_rb,9.7399e-03_rb,1.3383e-02_rb,1.7420e-02_rb,2.1805e-02_rb, &
+     &2.6578e-02_rb,3.2747e-02_rb,3.4102e-02_rb/)
+      kao(:, 4, 3, 7) = (/ &
+     &8.8837e-04_rb,6.8303e-03_rb,1.1116e-02_rb,1.5598e-02_rb,2.0532e-02_rb,2.5757e-02_rb, &
+     &3.1445e-02_rb,3.8773e-02_rb,4.0387e-02_rb/)
+      kao(:, 5, 3, 7) = (/ &
+     &8.9568e-04_rb,7.6159e-03_rb,1.2685e-02_rb,1.8136e-02_rb,2.4011e-02_rb,3.0157e-02_rb, &
+     &3.6817e-02_rb,4.5383e-02_rb,4.7355e-02_rb/)
+      kao(:, 1, 4, 7) = (/ &
+     &1.7216e-03_rb,5.6014e-03_rb,7.5736e-03_rb,9.4674e-03_rb,1.1191e-02_rb,1.2535e-02_rb, &
+     &1.3987e-02_rb,1.6268e-02_rb,1.7296e-02_rb/)
+      kao(:, 2, 4, 7) = (/ &
+     &1.7298e-03_rb,6.1879e-03_rb,8.6832e-03_rb,1.0978e-02_rb,1.2974e-02_rb,1.4749e-02_rb, &
+     &1.6870e-02_rb,1.9909e-02_rb,2.1431e-02_rb/)
+      kao(:, 3, 4, 7) = (/ &
+     &1.7341e-03_rb,6.8367e-03_rb,9.8584e-03_rb,1.2616e-02_rb,1.4944e-02_rb,1.7324e-02_rb, &
+     &2.0237e-02_rb,2.4035e-02_rb,2.5998e-02_rb/)
+      kao(:, 4, 4, 7) = (/ &
+     &1.7534e-03_rb,7.5128e-03_rb,1.1127e-02_rb,1.4362e-02_rb,1.7213e-02_rb,2.0310e-02_rb, &
+     &2.4053e-02_rb,2.8665e-02_rb,3.1074e-02_rb/)
+      kao(:, 5, 4, 7) = (/ &
+     &1.7641e-03_rb,8.2760e-03_rb,1.2507e-02_rb,1.6268e-02_rb,1.9802e-02_rb,2.3773e-02_rb, &
+     &2.8361e-02_rb,3.3846e-02_rb,3.6727e-02_rb/)
+      kao(:, 1, 5, 7) = (/ &
+     &3.0539e-03_rb,7.3205e-03_rb,8.9564e-03_rb,9.9240e-03_rb,1.0675e-02_rb,1.1625e-02_rb, &
+     &1.2424e-02_rb,1.2649e-02_rb,1.2475e-02_rb/)
+      kao(:, 2, 5, 7) = (/ &
+     &3.0697e-03_rb,8.0642e-03_rb,9.9550e-03_rb,1.1166e-02_rb,1.2428e-02_rb,1.3587e-02_rb, &
+     &1.4545e-02_rb,1.5222e-02_rb,1.4936e-02_rb/)
+      kao(:, 3, 5, 7) = (/ &
+     &3.0978e-03_rb,8.8320e-03_rb,1.1001e-02_rb,1.2560e-02_rb,1.4306e-02_rb,1.5802e-02_rb, &
+     &1.6906e-02_rb,1.8302e-02_rb,1.7957e-02_rb/)
+      kao(:, 4, 5, 7) = (/ &
+     &3.1191e-03_rb,9.5288e-03_rb,1.2130e-02_rb,1.4148e-02_rb,1.6348e-02_rb,1.8245e-02_rb, &
+     &1.9668e-02_rb,2.1849e-02_rb,2.2010e-02_rb/)
+      kao(:, 5, 5, 7) = (/ &
+     &3.1173e-03_rb,1.0269e-02_rb,1.3281e-02_rb,1.5937e-02_rb,1.8604e-02_rb,2.0861e-02_rb, &
+     &2.2868e-02_rb,2.5903e-02_rb,2.6735e-02_rb/)
+      kao(:, 1, 6, 7) = (/ &
+     &4.9571e-03_rb,9.1596e-03_rb,1.0920e-02_rb,1.1683e-02_rb,1.1947e-02_rb,1.1808e-02_rb, &
+     &1.1212e-02_rb,1.1074e-02_rb,1.1113e-02_rb/)
+      kao(:, 2, 6, 7) = (/ &
+     &5.0027e-03_rb,9.9969e-03_rb,1.2157e-02_rb,1.3082e-02_rb,1.3449e-02_rb,1.3422e-02_rb, &
+     &1.3156e-02_rb,1.3134e-02_rb,1.3279e-02_rb/)
+      kao(:, 3, 6, 7) = (/ &
+     &5.0299e-03_rb,1.0940e-02_rb,1.3400e-02_rb,1.4481e-02_rb,1.5090e-02_rb,1.5137e-02_rb, &
+     &1.5334e-02_rb,1.5370e-02_rb,1.5787e-02_rb/)
+      kao(:, 4, 6, 7) = (/ &
+     &5.0401e-03_rb,1.1872e-02_rb,1.4616e-02_rb,1.5947e-02_rb,1.6778e-02_rb,1.7087e-02_rb, &
+     &1.7734e-02_rb,1.7868e-02_rb,1.8548e-02_rb/)
+      kao(:, 5, 6, 7) = (/ &
+     &5.0929e-03_rb,1.2799e-02_rb,1.5866e-02_rb,1.7551e-02_rb,1.8584e-02_rb,1.9414e-02_rb, &
+     &2.0410e-02_rb,2.0816e-02_rb,2.1713e-02_rb/)
+      kao(:, 1, 7, 7) = (/ &
+     &8.4314e-03_rb,1.2463e-02_rb,1.3843e-02_rb,1.4407e-02_rb,1.4329e-02_rb,1.3643e-02_rb, &
+     &1.2423e-02_rb,1.0398e-02_rb,1.0049e-02_rb/)
+      kao(:, 2, 7, 7) = (/ &
+     &8.4877e-03_rb,1.3426e-02_rb,1.5237e-02_rb,1.6099e-02_rb,1.6143e-02_rb,1.5465e-02_rb, &
+     &1.4143e-02_rb,1.1980e-02_rb,1.1912e-02_rb/)
+      kao(:, 3, 7, 7) = (/ &
+     &8.5061e-03_rb,1.4450e-02_rb,1.6739e-02_rb,1.7865e-02_rb,1.8006e-02_rb,1.7376e-02_rb, &
+     &1.5998e-02_rb,1.3868e-02_rb,1.3962e-02_rb/)
+      kao(:, 4, 7, 7) = (/ &
+     &8.5919e-03_rb,1.5490e-02_rb,1.8250e-02_rb,1.9632e-02_rb,1.9933e-02_rb,1.9343e-02_rb, &
+     &1.7978e-02_rb,1.6120e-02_rb,1.6346e-02_rb/)
+      kao(:, 5, 7, 7) = (/ &
+     &8.6244e-03_rb,1.6546e-02_rb,1.9762e-02_rb,2.1475e-02_rb,2.1907e-02_rb,2.1414e-02_rb, &
+     &2.0099e-02_rb,1.8617e-02_rb,1.9113e-02_rb/)
+      kao(:, 1, 8, 7) = (/ &
+     &1.6801e-02_rb,2.0166e-02_rb,2.0707e-02_rb,2.0359e-02_rb,1.9438e-02_rb,1.7889e-02_rb, &
+     &1.5556e-02_rb,1.2093e-02_rb,8.8687e-03_rb/)
+      kao(:, 2, 8, 7) = (/ &
+     &1.6841e-02_rb,2.1258e-02_rb,2.2460e-02_rb,2.2381e-02_rb,2.1605e-02_rb,2.0124e-02_rb, &
+     &1.7632e-02_rb,1.3928e-02_rb,1.0513e-02_rb/)
+      kao(:, 3, 8, 7) = (/ &
+     &1.6945e-02_rb,2.2389e-02_rb,2.4138e-02_rb,2.4525e-02_rb,2.3968e-02_rb,2.2498e-02_rb, &
+     &1.9836e-02_rb,1.5792e-02_rb,1.2224e-02_rb/)
+      kao(:, 4, 8, 7) = (/ &
+     &1.7081e-02_rb,2.3610e-02_rb,2.5903e-02_rb,2.6682e-02_rb,2.6351e-02_rb,2.4884e-02_rb, &
+     &2.2197e-02_rb,1.7790e-02_rb,1.4133e-02_rb/)
+      kao(:, 5, 8, 7) = (/ &
+     &1.7107e-02_rb,2.4831e-02_rb,2.7681e-02_rb,2.8814e-02_rb,2.8766e-02_rb,2.7453e-02_rb, &
+     &2.4610e-02_rb,1.9914e-02_rb,1.6383e-02_rb/)
+      kao(:, 1, 9, 7) = (/ &
+     &6.2717e-02_rb,6.2735e-02_rb,5.8603e-02_rb,5.2748e-02_rb,4.6263e-02_rb,3.9117e-02_rb, &
+     &3.0759e-02_rb,2.1087e-02_rb,9.9200e-03_rb/)
+      kao(:, 2, 9, 7) = (/ &
+     &6.3094e-02_rb,6.4670e-02_rb,6.0602e-02_rb,5.5392e-02_rb,4.9420e-02_rb,4.2558e-02_rb, &
+     &3.4002e-02_rb,2.3733e-02_rb,1.2138e-02_rb/)
+      kao(:, 3, 9, 7) = (/ &
+     &6.3563e-02_rb,6.6269e-02_rb,6.3058e-02_rb,5.8357e-02_rb,5.2632e-02_rb,4.5743e-02_rb, &
+     &3.7261e-02_rb,2.6594e-02_rb,1.4716e-02_rb/)
+      kao(:, 4, 9, 7) = (/ &
+     &6.4005e-02_rb,6.8005e-02_rb,6.5556e-02_rb,6.1466e-02_rb,5.6121e-02_rb,4.9302e-02_rb, &
+     &4.0642e-02_rb,2.9533e-02_rb,1.7598e-02_rb/)
+      kao(:, 5, 9, 7) = (/ &
+     &6.4303e-02_rb,6.9477e-02_rb,6.8109e-02_rb,6.4600e-02_rb,5.9691e-02_rb,5.2874e-02_rb, &
+     &4.4056e-02_rb,3.2670e-02_rb,2.0612e-02_rb/)
+      kao(:, 1,10, 7) = (/ &
+     &2.6283e-01_rb,2.3848e-01_rb,2.1237e-01_rb,1.8399e-01_rb,1.5364e-01_rb,1.2096e-01_rb, &
+     &8.6686e-02_rb,5.0921e-02_rb,1.2662e-02_rb/)
+      kao(:, 2,10, 7) = (/ &
+     &2.6495e-01_rb,2.4348e-01_rb,2.1796e-01_rb,1.8933e-01_rb,1.5813e-01_rb,1.2513e-01_rb, &
+     &9.1228e-02_rb,5.5191e-02_rb,1.6120e-02_rb/)
+      kao(:, 3,10, 7) = (/ &
+     &2.6701e-01_rb,2.4762e-01_rb,2.2286e-01_rb,1.9379e-01_rb,1.6250e-01_rb,1.3046e-01_rb, &
+     &9.6273e-02_rb,5.9643e-02_rb,2.0041e-02_rb/)
+      kao(:, 4,10, 7) = (/ &
+     &2.6827e-01_rb,2.5124e-01_rb,2.2683e-01_rb,1.9843e-01_rb,1.6799e-01_rb,1.3618e-01_rb, &
+     &1.0159e-01_rb,6.3939e-02_rb,2.4035e-02_rb/)
+      kao(:, 5,10, 7) = (/ &
+     &2.7234e-01_rb,2.5705e-01_rb,2.3264e-01_rb,2.0401e-01_rb,1.7374e-01_rb,1.4157e-01_rb, &
+     &1.0689e-01_rb,6.8300e-02_rb,2.8241e-02_rb/)
+      kao(:, 1,11, 7) = (/ &
+     &3.8435e-01_rb,3.4486e-01_rb,3.0408e-01_rb,2.6025e-01_rb,2.1577e-01_rb,1.6840e-01_rb, &
+     &1.1827e-01_rb,6.6862e-02_rb,1.4067e-02_rb/)
+      kao(:, 2,11, 7) = (/ &
+     &3.8808e-01_rb,3.5079e-01_rb,3.0947e-01_rb,2.6705e-01_rb,2.2115e-01_rb,1.7271e-01_rb, &
+     &1.2306e-01_rb,7.1102e-02_rb,1.7282e-02_rb/)
+      kao(:, 3,11, 7) = (/ &
+     &3.9133e-01_rb,3.5683e-01_rb,3.1692e-01_rb,2.7320e-01_rb,2.2652e-01_rb,1.7854e-01_rb, &
+     &1.2887e-01_rb,7.5471e-02_rb,2.0650e-02_rb/)
+      kao(:, 4,11, 7) = (/ &
+     &3.9688e-01_rb,3.6404e-01_rb,3.2547e-01_rb,2.8118e-01_rb,2.3421e-01_rb,1.8549e-01_rb, &
+     &1.3490e-01_rb,8.0175e-02_rb,2.4385e-02_rb/)
+      kao(:, 5,11, 7) = (/ &
+     &4.0366e-01_rb,3.7211e-01_rb,3.3310e-01_rb,2.8891e-01_rb,2.4168e-01_rb,1.9277e-01_rb, &
+     &1.4118e-01_rb,8.5255e-02_rb,2.8315e-02_rb/)
+      kao(:, 1,12, 7) = (/ &
+     &4.1788e-01_rb,3.7417e-01_rb,3.2848e-01_rb,2.8026e-01_rb,2.3093e-01_rb,1.7900e-01_rb, &
+     &1.2516e-01_rb,6.9829e-02_rb,1.3077e-02_rb/)
+      kao(:, 2,12, 7) = (/ &
+     &4.2346e-01_rb,3.8197e-01_rb,3.3568e-01_rb,2.8761e-01_rb,2.3734e-01_rb,1.8458e-01_rb, &
+     &1.3037e-01_rb,7.4069e-02_rb,1.6501e-02_rb/)
+      kao(:, 3,12, 7) = (/ &
+     &4.3061e-01_rb,3.9035e-01_rb,3.4485e-01_rb,2.9676e-01_rb,2.4502e-01_rb,1.9175e-01_rb, &
+     &1.3672e-01_rb,7.8434e-02_rb,1.9942e-02_rb/)
+      kao(:, 4,12, 7) = (/ &
+     &4.3991e-01_rb,4.0142e-01_rb,3.5621e-01_rb,3.0583e-01_rb,2.5354e-01_rb,1.9941e-01_rb, &
+     &1.4294e-01_rb,8.2867e-02_rb,2.3156e-02_rb/)
+      kao(:, 5,12, 7) = (/ &
+     &4.5018e-01_rb,4.1383e-01_rb,3.6847e-01_rb,3.1728e-01_rb,2.6385e-01_rb,2.0769e-01_rb, &
+     &1.4984e-01_rb,8.7550e-02_rb,2.5906e-02_rb/)
+      kao(:, 1,13, 7) = (/ &
+     &3.5954e-01_rb,3.2293e-01_rb,2.8290e-01_rb,2.4149e-01_rb,1.9855e-01_rb,1.5392e-01_rb, &
+     &1.0799e-01_rb,6.0538e-02_rb,1.1582e-02_rb/)
+      kao(:, 2,13, 7) = (/ &
+     &3.6620e-01_rb,3.3095e-01_rb,2.9118e-01_rb,2.4962e-01_rb,2.0579e-01_rb,1.6035e-01_rb, &
+     &1.1345e-01_rb,6.4561e-02_rb,1.4555e-02_rb/)
+      kao(:, 3,13, 7) = (/ &
+     &3.7497e-01_rb,3.4139e-01_rb,3.0205e-01_rb,2.5902e-01_rb,2.1397e-01_rb,1.6755e-01_rb, &
+     &1.1907e-01_rb,6.8274e-02_rb,1.7516e-02_rb/)
+      kao(:, 4,13, 7) = (/ &
+     &3.8491e-01_rb,3.5293e-01_rb,3.1344e-01_rb,2.6951e-01_rb,2.2338e-01_rb,1.7537e-01_rb, &
+     &1.2550e-01_rb,7.2213e-02_rb,1.9685e-02_rb/)
+      kao(:, 5,13, 7) = (/ &
+     &3.9456e-01_rb,3.6430e-01_rb,3.2370e-01_rb,2.7885e-01_rb,2.3209e-01_rb,1.8326e-01_rb, &
+     &1.3235e-01_rb,7.6929e-02_rb,2.1105e-02_rb/)
+      kao(:, 1, 1, 8) = (/ &
+     &6.2097e-04_rb,1.4117e-02_rb,2.8277e-02_rb,4.2775e-02_rb,5.7848e-02_rb,7.3960e-02_rb, &
+     &9.2407e-02_rb,1.1864e-01_rb,1.1554e-01_rb/)
+      kao(:, 2, 1, 8) = (/ &
+     &6.1974e-04_rb,1.6905e-02_rb,3.3889e-02_rb,5.1276e-02_rb,6.9348e-02_rb,8.8703e-02_rb, &
+     &1.1084e-01_rb,1.4177e-01_rb,1.3853e-01_rb/)
+      kao(:, 3, 1, 8) = (/ &
+     &6.1587e-04_rb,1.9900e-02_rb,3.9925e-02_rb,6.0422e-02_rb,8.1729e-02_rb,1.0451e-01_rb, &
+     &1.3061e-01_rb,1.6696e-01_rb,1.6328e-01_rb/)
+      kao(:, 4, 1, 8) = (/ &
+     &6.1184e-04_rb,2.3086e-02_rb,4.6344e-02_rb,7.0163e-02_rb,9.4901e-02_rb,1.2137e-01_rb, &
+     &1.5165e-01_rb,1.9370e-01_rb,1.8962e-01_rb/)
+      kao(:, 5, 1, 8) = (/ &
+     &6.0950e-04_rb,2.6468e-02_rb,5.3164e-02_rb,8.0478e-02_rb,1.0886e-01_rb,1.3922e-01_rb, &
+     &1.7398e-01_rb,2.2192e-01_rb,2.1753e-01_rb/)
+      kao(:, 1, 2, 8) = (/ &
+     &9.4214e-04_rb,1.1864e-02_rb,2.3368e-02_rb,3.5168e-02_rb,4.7308e-02_rb,6.0060e-02_rb, &
+     &7.4293e-02_rb,9.3548e-02_rb,9.4381e-02_rb/)
+      kao(:, 2, 2, 8) = (/ &
+     &9.3967e-04_rb,1.4205e-02_rb,2.8221e-02_rb,4.2491e-02_rb,5.7165e-02_rb,7.2616e-02_rb, &
+     &8.9835e-02_rb,1.1322e-01_rb,1.1408e-01_rb/)
+      kao(:, 3, 2, 8) = (/ &
+     &9.3666e-04_rb,1.6793e-02_rb,3.3453e-02_rb,5.0403e-02_rb,6.7823e-02_rb,8.6143e-02_rb, &
+     &1.0657e-01_rb,1.3437e-01_rb,1.3538e-01_rb/)
+      kao(:, 4, 2, 8) = (/ &
+     &9.3490e-04_rb,1.9589e-02_rb,3.9087e-02_rb,5.8901e-02_rb,7.9281e-02_rb,1.0068e-01_rb, &
+     &1.2458e-01_rb,1.5697e-01_rb,1.5829e-01_rb/)
+      kao(:, 5, 2, 8) = (/ &
+     &9.3255e-04_rb,2.2561e-02_rb,4.5087e-02_rb,6.7983e-02_rb,9.1508e-02_rb,1.1621e-01_rb, &
+     &1.4375e-01_rb,1.8108e-01_rb,1.8274e-01_rb/)
+      kao(:, 1, 3, 8) = (/ &
+     &1.9614e-03_rb,1.1299e-02_rb,1.9005e-02_rb,2.7782e-02_rb,3.7000e-02_rb,4.6522e-02_rb, &
+     &5.6657e-02_rb,6.9080e-02_rb,7.3508e-02_rb/)
+      kao(:, 2, 3, 8) = (/ &
+     &1.9548e-03_rb,1.2955e-02_rb,2.2891e-02_rb,3.3903e-02_rb,4.5254e-02_rb,5.6922e-02_rb, &
+     &6.9355e-02_rb,8.4555e-02_rb,9.0001e-02_rb/)
+      kao(:, 3, 3, 8) = (/ &
+     &1.9534e-03_rb,1.4833e-02_rb,2.7240e-02_rb,4.0599e-02_rb,5.4239e-02_rb,6.8264e-02_rb, &
+     &8.3194e-02_rb,1.0146e-01_rb,1.0796e-01_rb/)
+      kao(:, 4, 3, 8) = (/ &
+     &1.9479e-03_rb,1.6939e-02_rb,3.1981e-02_rb,4.7805e-02_rb,6.3918e-02_rb,8.0501e-02_rb, &
+     &9.8164e-02_rb,1.1980e-01_rb,1.2731e-01_rb/)
+      kao(:, 5, 3, 8) = (/ &
+     &1.9437e-03_rb,1.9215e-02_rb,3.7014e-02_rb,5.5432e-02_rb,7.4159e-02_rb,9.3422e-02_rb, &
+     &1.1404e-01_rb,1.3937e-01_rb,1.4780e-01_rb/)
+      kao(:, 1, 4, 8) = (/ &
+     &4.1141e-03_rb,1.2873e-02_rb,1.8872e-02_rb,2.3795e-02_rb,2.9310e-02_rb,3.5813e-02_rb, &
+     &4.3001e-02_rb,5.1220e-02_rb,5.6278e-02_rb/)
+      kao(:, 2, 4, 8) = (/ &
+     &4.1183e-03_rb,1.4575e-02_rb,2.1599e-02_rb,2.8253e-02_rb,3.5801e-02_rb,4.4309e-02_rb, &
+     &5.3363e-02_rb,6.3628e-02_rb,6.9867e-02_rb/)
+      kao(:, 3, 4, 8) = (/ &
+     &4.1349e-03_rb,1.6355e-02_rb,2.4672e-02_rb,3.3305e-02_rb,4.3074e-02_rb,5.3625e-02_rb, &
+     &6.4673e-02_rb,7.7228e-02_rb,8.4695e-02_rb/)
+      kao(:, 4, 4, 8) = (/ &
+     &4.1308e-03_rb,1.8173e-02_rb,2.8034e-02_rb,3.8865e-02_rb,5.0949e-02_rb,6.3606e-02_rb, &
+     &7.6798e-02_rb,9.1846e-02_rb,1.0056e-01_rb/)
+      kao(:, 5, 4, 8) = (/ &
+     &4.1264e-03_rb,1.9905e-02_rb,3.1676e-02_rb,4.4946e-02_rb,5.9333e-02_rb,7.4191e-02_rb, &
+     &8.9640e-02_rb,1.0735e-01_rb,1.1739e-01_rb/)
+      kao(:, 1, 5, 8) = (/ &
+     &7.8459e-03_rb,1.5273e-02_rb,2.0315e-02_rb,2.4490e-02_rb,2.7833e-02_rb,3.0201e-02_rb, &
+     &3.3378e-02_rb,3.8411e-02_rb,4.1001e-02_rb/)
+      kao(:, 2, 5, 8) = (/ &
+     &7.8747e-03_rb,1.6898e-02_rb,2.3176e-02_rb,2.8487e-02_rb,3.2405e-02_rb,3.6383e-02_rb, &
+     &4.1437e-02_rb,4.8316e-02_rb,5.2769e-02_rb/)
+      kao(:, 3, 5, 8) = (/ &
+     &7.8992e-03_rb,1.8661e-02_rb,2.6253e-02_rb,3.2541e-02_rb,3.7550e-02_rb,4.3266e-02_rb, &
+     &5.0422e-02_rb,5.9136e-02_rb,6.5527e-02_rb/)
+      kao(:, 4, 5, 8) = (/ &
+     &7.8989e-03_rb,2.0558e-02_rb,2.9408e-02_rb,3.6576e-02_rb,4.3219e-02_rb,5.0946e-02_rb, &
+     &6.0207e-02_rb,7.0821e-02_rb,7.8616e-02_rb/)
+      kao(:, 5, 5, 8) = (/ &
+     &7.9229e-03_rb,2.2512e-02_rb,3.2599e-02_rb,4.0913e-02_rb,4.9454e-02_rb,5.9390e-02_rb, &
+     &7.0729e-02_rb,8.3313e-02_rb,9.2573e-02_rb/)
+      kao(:, 1, 6, 8) = (/ &
+     &1.3755e-02_rb,2.1264e-02_rb,2.4103e-02_rb,2.5712e-02_rb,2.7798e-02_rb,2.9236e-02_rb, &
+     &2.9846e-02_rb,2.9593e-02_rb,2.7586e-02_rb/)
+      kao(:, 2, 6, 8) = (/ &
+     &1.3782e-02_rb,2.2999e-02_rb,2.6490e-02_rb,2.9514e-02_rb,3.2454e-02_rb,3.4496e-02_rb, &
+     &3.5566e-02_rb,3.7000e-02_rb,3.5132e-02_rb/)
+      kao(:, 3, 6, 8) = (/ &
+     &1.3863e-02_rb,2.4665e-02_rb,2.9042e-02_rb,3.3641e-02_rb,3.7254e-02_rb,4.0147e-02_rb, &
+     &4.1998e-02_rb,4.5403e-02_rb,4.4921e-02_rb/)
+      kao(:, 4, 6, 8) = (/ &
+     &1.3921e-02_rb,2.6309e-02_rb,3.1937e-02_rb,3.7874e-02_rb,4.2332e-02_rb,4.5980e-02_rb, &
+     &4.9161e-02_rb,5.4719e-02_rb,5.5713e-02_rb/)
+      kao(:, 5, 6, 8) = (/ &
+     &1.4010e-02_rb,2.7955e-02_rb,3.5119e-02_rb,4.2034e-02_rb,4.7545e-02_rb,5.2148e-02_rb, &
+     &5.7163e-02_rb,6.4833e-02_rb,6.7480e-02_rb/)
+      kao(:, 1, 7, 8) = (/ &
+     &2.4762e-02_rb,3.1775e-02_rb,3.3749e-02_rb,3.4176e-02_rb,3.3323e-02_rb,3.1060e-02_rb, &
+     &2.9254e-02_rb,2.6750e-02_rb,2.6287e-02_rb/)
+      kao(:, 2, 7, 8) = (/ &
+     &2.4951e-02_rb,3.3870e-02_rb,3.6729e-02_rb,3.7700e-02_rb,3.7125e-02_rb,3.5645e-02_rb, &
+     &3.4725e-02_rb,3.2382e-02_rb,3.2363e-02_rb/)
+      kao(:, 3, 7, 8) = (/ &
+     &2.5173e-02_rb,3.5837e-02_rb,3.9660e-02_rb,4.1206e-02_rb,4.1346e-02_rb,4.1029e-02_rb, &
+     &4.0471e-02_rb,3.8518e-02_rb,3.8913e-02_rb/)
+      kao(:, 4, 7, 8) = (/ &
+     &2.5363e-02_rb,3.7886e-02_rb,4.2599e-02_rb,4.5028e-02_rb,4.5616e-02_rb,4.6713e-02_rb, &
+     &4.6613e-02_rb,4.5204e-02_rb,4.5916e-02_rb/)
+      kao(:, 5, 7, 8) = (/ &
+     &2.5554e-02_rb,3.9913e-02_rb,4.5725e-02_rb,4.8757e-02_rb,5.0398e-02_rb,5.2532e-02_rb, &
+     &5.3118e-02_rb,5.2718e-02_rb,5.3341e-02_rb/)
+      kao(:, 1, 8, 8) = (/ &
+     &5.1772e-02_rb,5.6742e-02_rb,5.6311e-02_rb,5.3676e-02_rb,4.9761e-02_rb,4.4432e-02_rb, &
+     &3.7642e-02_rb,2.8159e-02_rb,2.5366e-02_rb/)
+      kao(:, 2, 8, 8) = (/ &
+     &5.2310e-02_rb,5.9935e-02_rb,6.0103e-02_rb,5.8243e-02_rb,5.4861e-02_rb,4.9530e-02_rb, &
+     &4.2560e-02_rb,3.2942e-02_rb,3.0796e-02_rb/)
+      kao(:, 3, 8, 8) = (/ &
+     &5.2803e-02_rb,6.3037e-02_rb,6.4134e-02_rb,6.2766e-02_rb,5.9645e-02_rb,5.4655e-02_rb, &
+     &4.7864e-02_rb,3.8688e-02_rb,3.7143e-02_rb/)
+      kao(:, 4, 8, 8) = (/ &
+     &5.3460e-02_rb,6.5918e-02_rb,6.8003e-02_rb,6.7271e-02_rb,6.4711e-02_rb,6.0132e-02_rb, &
+     &5.3215e-02_rb,4.4724e-02_rb,4.4005e-02_rb/)
+      kao(:, 5, 8, 8) = (/ &
+     &5.3710e-02_rb,6.8699e-02_rb,7.1633e-02_rb,7.2036e-02_rb,6.9887e-02_rb,6.5520e-02_rb, &
+     &5.8694e-02_rb,5.1143e-02_rb,5.1305e-02_rb/)
+      kao(:, 1, 9, 8) = (/ &
+     &2.0198e-01_rb,1.8901e-01_rb,1.7403e-01_rb,1.5566e-01_rb,1.3460e-01_rb,1.1050e-01_rb, &
+     &8.4423e-02_rb,5.5049e-02_rb,2.7409e-02_rb/)
+      kao(:, 2, 9, 8) = (/ &
+     &2.0495e-01_rb,1.9639e-01_rb,1.8291e-01_rb,1.6519e-01_rb,1.4305e-01_rb,1.1881e-01_rb, &
+     &9.2245e-02_rb,6.1787e-02_rb,3.3663e-02_rb/)
+      kao(:, 3, 9, 8) = (/ &
+     &2.0775e-01_rb,2.0359e-01_rb,1.9173e-01_rb,1.7370e-01_rb,1.5212e-01_rb,1.2752e-01_rb, &
+     &1.0028e-01_rb,6.8520e-02_rb,3.9556e-02_rb/)
+      kao(:, 4, 9, 8) = (/ &
+     &2.0971e-01_rb,2.1033e-01_rb,1.9959e-01_rb,1.8173e-01_rb,1.6052e-01_rb,1.3619e-01_rb, &
+     &1.0838e-01_rb,7.5430e-02_rb,4.6210e-02_rb/)
+      kao(:, 5, 9, 8) = (/ &
+     &2.1122e-01_rb,2.1661e-01_rb,2.0701e-01_rb,1.8977e-01_rb,1.6868e-01_rb,1.4451e-01_rb, &
+     &1.1695e-01_rb,8.2426e-02_rb,5.2611e-02_rb/)
+      kao(:, 1,10, 8) = (/ &
+     &8.7179e-01_rb,7.7305e-01_rb,6.7676e-01_rb,5.7800e-01_rb,4.7858e-01_rb,3.7509e-01_rb, &
+     &2.6780e-01_rb,1.5257e-01_rb,3.4825e-02_rb/)
+      kao(:, 2,10, 8) = (/ &
+     &8.8690e-01_rb,7.9154e-01_rb,6.9682e-01_rb,6.0089e-01_rb,5.0085e-01_rb,3.9677e-01_rb, &
+     &2.8510e-01_rb,1.6381e-01_rb,4.0840e-02_rb/)
+      kao(:, 3,10, 8) = (/ &
+     &8.9846e-01_rb,8.0873e-01_rb,7.1712e-01_rb,6.2211e-01_rb,5.2235e-01_rb,4.1529e-01_rb, &
+     &3.0033e-01_rb,1.7576e-01_rb,4.8253e-02_rb/)
+      kao(:, 4,10, 8) = (/ &
+     &9.1202e-01_rb,8.2713e-01_rb,7.3854e-01_rb,6.4399e-01_rb,5.4276e-01_rb,4.3255e-01_rb, &
+     &3.1463e-01_rb,1.8727e-01_rb,5.7567e-02_rb/)
+      kao(:, 5,10, 8) = (/ &
+     &9.1292e-01_rb,8.3520e-01_rb,7.5311e-01_rb,6.6058e-01_rb,5.5851e-01_rb,4.4868e-01_rb, &
+     &3.2919e-01_rb,1.9841e-01_rb,6.5659e-02_rb/)
+      kao(:, 1,11, 8) = (/ &
+     &1.3103e+00_rb,1.1565e+00_rb,1.0072e+00_rb,8.5492e-01_rb,7.0080e-01_rb,5.4405e-01_rb, &
+     &3.8288e-01_rb,2.1296e-01_rb,3.6932e-02_rb/)
+      kao(:, 2,11, 8) = (/ &
+     &1.3299e+00_rb,1.1796e+00_rb,1.0327e+00_rb,8.8125e-01_rb,7.2693e-01_rb,5.6857e-01_rb, &
+     &4.0335e-01_rb,2.2633e-01_rb,4.3190e-02_rb/)
+      kao(:, 3,11, 8) = (/ &
+     &1.3530e+00_rb,1.2064e+00_rb,1.0600e+00_rb,9.1131e-01_rb,7.5598e-01_rb,5.9411e-01_rb, &
+     &4.2265e-01_rb,2.3978e-01_rb,5.2762e-02_rb/)
+      kao(:, 4,11, 8) = (/ &
+     &1.3587e+00_rb,1.2195e+00_rb,1.0781e+00_rb,9.3079e-01_rb,7.7634e-01_rb,6.1327e-01_rb, &
+     &4.3892e-01_rb,2.5297e-01_rb,6.4865e-02_rb/)
+      kao(:, 5,11, 8) = (/ &
+     &1.3600e+00_rb,1.2284e+00_rb,1.0908e+00_rb,9.4457e-01_rb,7.9211e-01_rb,6.2699e-01_rb, &
+     &4.5262e-01_rb,2.6437e-01_rb,7.6848e-02_rb/)
+      kao(:, 1,12, 8) = (/ &
+     &1.4407e+00_rb,1.2713e+00_rb,1.1065e+00_rb,9.3835e-01_rb,7.6825e-01_rb,5.9432e-01_rb, &
+     &4.1638e-01_rb,2.2888e-01_rb,3.4685e-02_rb/)
+      kao(:, 2,12, 8) = (/ &
+     &1.4696e+00_rb,1.3029e+00_rb,1.1378e+00_rb,9.6981e-01_rb,7.9767e-01_rb,6.2103e-01_rb, &
+     &4.3779e-01_rb,2.4254e-01_rb,4.2654e-02_rb/)
+      kao(:, 3,12, 8) = (/ &
+     &1.4810e+00_rb,1.3211e+00_rb,1.1578e+00_rb,9.9148e-01_rb,8.2013e-01_rb,6.4181e-01_rb, &
+     &4.5466e-01_rb,2.5578e-01_rb,5.2496e-02_rb/)
+      kao(:, 4,12, 8) = (/ &
+     &1.4858e+00_rb,1.3306e+00_rb,1.1727e+00_rb,1.0074e+00_rb,8.3618e-01_rb,6.5672e-01_rb, &
+     &4.6743e-01_rb,2.6737e-01_rb,6.3361e-02_rb/)
+      kao(:, 5,12, 8) = (/ &
+     &1.4815e+00_rb,1.3335e+00_rb,1.1804e+00_rb,1.0190e+00_rb,8.4985e-01_rb,6.7121e-01_rb, &
+     &4.8121e-01_rb,2.7853e-01_rb,7.5291e-02_rb/)
+      kao(:, 1,13, 8) = (/ &
+     &1.2616e+00_rb,1.1163e+00_rb,9.7204e-01_rb,8.2547e-01_rb,6.7669e-01_rb,5.2391e-01_rb, &
+     &3.6673e-01_rb,2.0106e-01_rb,2.9782e-02_rb/)
+      kao(:, 2,13, 8) = (/ &
+     &1.2777e+00_rb,1.1375e+00_rb,9.9345e-01_rb,8.4804e-01_rb,6.9806e-01_rb,5.4388e-01_rb, &
+     &3.8298e-01_rb,2.1265e-01_rb,3.7539e-02_rb/)
+      kao(:, 3,13, 8) = (/ &
+     &1.2857e+00_rb,1.1501e+00_rb,1.0105e+00_rb,8.6538e-01_rb,7.1567e-01_rb,5.5928e-01_rb, &
+     &3.9596e-01_rb,2.2292e-01_rb,4.5370e-02_rb/)
+      kao(:, 4,13, 8) = (/ &
+     &1.2877e+00_rb,1.1566e+00_rb,1.0204e+00_rb,8.7739e-01_rb,7.2832e-01_rb,5.7170e-01_rb, &
+     &4.0727e-01_rb,2.3325e-01_rb,5.5134e-02_rb/)
+      kao(:, 5,13, 8) = (/ &
+     &1.2810e+00_rb,1.1580e+00_rb,1.0267e+00_rb,8.8778e-01_rb,7.3941e-01_rb,5.8252e-01_rb, &
+     &4.1760e-01_rb,2.4248e-01_rb,6.6222e-02_rb/)
+      kao(:, 1, 1, 9) = (/ &
+     &1.6209e-03_rb,5.7589e-02_rb,1.1558e-01_rb,1.7436e-01_rb,2.3438e-01_rb,2.9678e-01_rb, &
+     &3.6435e-01_rb,4.4557e-01_rb,4.6867e-01_rb/)
+      kao(:, 2, 1, 9) = (/ &
+     &1.6160e-03_rb,6.8254e-02_rb,1.3700e-01_rb,2.0665e-01_rb,2.7776e-01_rb,3.5160e-01_rb, &
+     &4.3147e-01_rb,5.2804e-01_rb,5.5543e-01_rb/)
+      kao(:, 3, 1, 9) = (/ &
+     &1.6156e-03_rb,7.9739e-02_rb,1.6004e-01_rb,2.4140e-01_rb,3.2446e-01_rb,4.1061e-01_rb, &
+     &5.0337e-01_rb,6.1528e-01_rb,6.4882e-01_rb/)
+      kao(:, 4, 1, 9) = (/ &
+     &1.6118e-03_rb,9.1878e-02_rb,1.8447e-01_rb,2.7828e-01_rb,3.7409e-01_rb,4.7339e-01_rb, &
+     &5.8011e-01_rb,7.0748e-01_rb,7.4809e-01_rb/)
+      kao(:, 5, 1, 9) = (/ &
+     &1.6027e-03_rb,1.0449e-01_rb,2.0983e-01_rb,3.1665e-01_rb,4.2579e-01_rb,5.3908e-01_rb, &
+     &6.6087e-01_rb,8.0485e-01_rb,8.5148e-01_rb/)
+      kao(:, 1, 2, 9) = (/ &
+     &2.5385e-03_rb,4.9947e-02_rb,1.0010e-01_rb,1.5075e-01_rb,2.0224e-01_rb,2.5529e-01_rb, &
+     &3.1202e-01_rb,3.8059e-01_rb,4.0436e-01_rb/)
+      kao(:, 2, 2, 9) = (/ &
+     &2.5420e-03_rb,5.9613e-02_rb,1.1949e-01_rb,1.7998e-01_rb,2.4152e-01_rb,3.0496e-01_rb, &
+     &3.7260e-01_rb,4.5413e-01_rb,4.8291e-01_rb/)
+      kao(:, 3, 2, 9) = (/ &
+     &2.5425e-03_rb,6.9977e-02_rb,1.4031e-01_rb,2.1138e-01_rb,2.8370e-01_rb,3.5840e-01_rb, &
+     &4.3825e-01_rb,5.3358e-01_rb,5.6726e-01_rb/)
+      kao(:, 4, 2, 9) = (/ &
+     &2.5349e-03_rb,8.0938e-02_rb,1.6229e-01_rb,2.4456e-01_rb,3.2834e-01_rb,4.1497e-01_rb, &
+     &5.0769e-01_rb,6.1900e-01_rb,6.5654e-01_rb/)
+      kao(:, 5, 2, 9) = (/ &
+     &2.5236e-03_rb,9.2377e-02_rb,1.8522e-01_rb,2.7915e-01_rb,3.7480e-01_rb,4.7381e-01_rb, &
+     &5.8018e-01_rb,7.0850e-01_rb,7.4944e-01_rb/)
+      kao(:, 1, 3, 9) = (/ &
+     &5.2884e-03_rb,4.1358e-02_rb,8.2480e-02_rb,1.2391e-01_rb,1.6574e-01_rb,2.0832e-01_rb, &
+     &2.5278e-01_rb,3.0394e-01_rb,3.3126e-01_rb/)
+      kao(:, 2, 3, 9) = (/ &
+     &5.3098e-03_rb,4.9746e-02_rb,9.9365e-02_rb,1.4928e-01_rb,1.9972e-01_rb,2.5111e-01_rb, &
+     &3.0480e-01_rb,3.6676e-01_rb,3.9919e-01_rb/)
+      kao(:, 3, 3, 9) = (/ &
+     &5.3133e-03_rb,5.8864e-02_rb,1.1765e-01_rb,1.7679e-01_rb,2.3653e-01_rb,2.9742e-01_rb, &
+     &3.6115e-01_rb,4.3493e-01_rb,4.7279e-01_rb/)
+      kao(:, 4, 3, 9) = (/ &
+     &5.3184e-03_rb,6.8570e-02_rb,1.3708e-01_rb,2.0601e-01_rb,2.7562e-01_rb,3.4665e-01_rb, &
+     &4.2100e-01_rb,5.0744e-01_rb,5.5094e-01_rb/)
+      kao(:, 5, 3, 9) = (/ &
+     &5.2937e-03_rb,7.8913e-02_rb,1.5776e-01_rb,2.3709e-01_rb,3.1721e-01_rb,3.9889e-01_rb, &
+     &4.8431e-01_rb,5.8366e-01_rb,6.3409e-01_rb/)
+      kao(:, 1, 4, 9) = (/ &
+     &1.1189e-02_rb,3.7631e-02_rb,6.6855e-02_rb,9.9420e-02_rb,1.3264e-01_rb,1.6622e-01_rb, &
+     &2.0064e-01_rb,2.3828e-01_rb,2.6479e-01_rb/)
+      kao(:, 2, 4, 9) = (/ &
+     &1.1235e-02_rb,4.3836e-02_rb,8.1298e-02_rb,1.2151e-01_rb,1.6212e-01_rb,2.0319e-01_rb, &
+     &2.4526e-01_rb,2.9131e-01_rb,3.2370e-01_rb/)
+      kao(:, 3, 4, 9) = (/ &
+     &1.1256e-02_rb,5.0846e-02_rb,9.7157e-02_rb,1.4551e-01_rb,1.9420e-01_rb,2.4340e-01_rb, &
+     &2.9384e-01_rb,3.4897e-01_rb,3.8783e-01_rb/)
+      kao(:, 4, 4, 9) = (/ &
+     &1.1233e-02_rb,5.8695e-02_rb,1.1439e-01_rb,1.7147e-01_rb,2.2883e-01_rb,2.8678e-01_rb, &
+     &3.4608e-01_rb,4.1077e-01_rb,4.5705e-01_rb/)
+      kao(:, 5, 4, 9) = (/ &
+     &1.1193e-02_rb,6.7408e-02_rb,1.3290e-01_rb,1.9926e-01_rb,2.6591e-01_rb,3.3325e-01_rb, &
+     &4.0214e-01_rb,4.7714e-01_rb,5.3115e-01_rb/)
+      kao(:, 1, 5, 9) = (/ &
+     &2.1456e-02_rb,4.5196e-02_rb,6.1958e-02_rb,8.2153e-02_rb,1.0545e-01_rb,1.3112e-01_rb, &
+     &1.5772e-01_rb,1.8584e-01_rb,2.0874e-01_rb/)
+      kao(:, 2, 5, 9) = (/ &
+     &2.1627e-02_rb,4.9543e-02_rb,7.2420e-02_rb,9.9628e-02_rb,1.3042e-01_rb,1.6274e-01_rb, &
+     &1.9580e-01_rb,2.3075e-01_rb,2.5926e-01_rb/)
+      kao(:, 3, 5, 9) = (/ &
+     &2.1648e-02_rb,5.4430e-02_rb,8.4381e-02_rb,1.1963e-01_rb,1.5816e-01_rb,1.9769e-01_rb, &
+     &2.3786e-01_rb,2.8024e-01_rb,3.1505e-01_rb/)
+      kao(:, 4, 5, 9) = (/ &
+     &2.1655e-02_rb,5.9909e-02_rb,9.8020e-02_rb,1.4216e-01_rb,1.8871e-01_rb,2.3596e-01_rb, &
+     &2.8391e-01_rb,3.3439e-01_rb,3.7619e-01_rb/)
+      kao(:, 5, 5, 9) = (/ &
+     &2.1575e-02_rb,6.6071e-02_rb,1.1341e-01_rb,1.6675e-01_rb,2.2186e-01_rb,2.7746e-01_rb, &
+     &3.3388e-01_rb,3.9317e-01_rb,4.4246e-01_rb/)
+      kao(:, 1, 6, 9) = (/ &
+     &3.8314e-02_rb,5.9481e-02_rb,7.1457e-02_rb,8.1684e-02_rb,9.1784e-02_rb,1.0487e-01_rb, &
+     &1.2171e-01_rb,1.4213e-01_rb,1.5860e-01_rb/)
+      kao(:, 2, 6, 9) = (/ &
+     &3.8611e-02_rb,6.4337e-02_rb,7.9461e-02_rb,9.3850e-02_rb,1.0993e-01_rb,1.2967e-01_rb, &
+     &1.5327e-01_rb,1.7946e-01_rb,2.0255e-01_rb/)
+      kao(:, 3, 6, 9) = (/ &
+     &3.8670e-02_rb,6.9241e-02_rb,8.8613e-02_rb,1.0808e-01_rb,1.3134e-01_rb,1.5836e-01_rb, &
+     &1.8890e-01_rb,2.2142e-01_rb,2.5002e-01_rb/)
+      kao(:, 4, 6, 9) = (/ &
+     &3.8675e-02_rb,7.4319e-02_rb,9.8760e-02_rb,1.2484e-01_rb,1.5591e-01_rb,1.9105e-01_rb, &
+     &2.2866e-01_rb,2.6805e-01_rb,3.0304e-01_rb/)
+      kao(:, 5, 6, 9) = (/ &
+     &3.8508e-02_rb,7.9526e-02_rb,1.0987e-01_rb,1.4404e-01_rb,1.8357e-01_rb,2.2696e-01_rb, &
+     &2.7218e-01_rb,3.1912e-01_rb,3.6102e-01_rb/)
+      kao(:, 1, 7, 9) = (/ &
+     &7.2084e-02_rb,8.8512e-02_rb,9.7172e-02_rb,1.0090e-01_rb,1.0168e-01_rb,1.0216e-01_rb, &
+     &1.0271e-01_rb,1.0842e-01_rb,1.0501e-01_rb/)
+      kao(:, 2, 7, 9) = (/ &
+     &7.2564e-02_rb,9.4711e-02_rb,1.0583e-01_rb,1.1196e-01_rb,1.1550e-01_rb,1.2008e-01_rb, &
+     &1.2583e-01_rb,1.3849e-01_rb,1.4021e-01_rb/)
+      kao(:, 3, 7, 9) = (/ &
+     &7.2730e-02_rb,1.0095e-01_rb,1.1490e-01_rb,1.2380e-01_rb,1.3141e-01_rb,1.4065e-01_rb, &
+     &1.5344e-01_rb,1.7335e-01_rb,1.8125e-01_rb/)
+      kao(:, 4, 7, 9) = (/ &
+     &7.2941e-02_rb,1.0706e-01_rb,1.2422e-01_rb,1.3654e-01_rb,1.5005e-01_rb,1.6497e-01_rb, &
+     &1.8541e-01_rb,2.1284e-01_rb,2.2809e-01_rb/)
+      kao(:, 5, 7, 9) = (/ &
+     &7.3026e-02_rb,1.1297e-01_rb,1.3379e-01_rb,1.5116e-01_rb,1.7068e-01_rb,1.9286e-01_rb, &
+     &2.2139e-01_rb,2.5637e-01_rb,2.7993e-01_rb/)
+      kao(:, 1, 8, 9) = (/ &
+     &1.6179e-01_rb,1.6443e-01_rb,1.6310e-01_rb,1.5765e-01_rb,1.4868e-01_rb,1.3533e-01_rb, &
+     &1.1770e-01_rb,9.8380e-02_rb,8.1836e-02_rb/)
+      kao(:, 2, 8, 9) = (/ &
+     &1.6423e-01_rb,1.7218e-01_rb,1.7516e-01_rb,1.7171e-01_rb,1.6374e-01_rb,1.5153e-01_rb, &
+     &1.3534e-01_rb,1.1999e-01_rb,1.0061e-01_rb/)
+      kao(:, 3, 8, 9) = (/ &
+     &1.6654e-01_rb,1.7965e-01_rb,1.8707e-01_rb,1.8587e-01_rb,1.7956e-01_rb,1.6926e-01_rb, &
+     &1.5537e-01_rb,1.4544e-01_rb,1.2284e-01_rb/)
+      kao(:, 4, 8, 9) = (/ &
+     &1.6762e-01_rb,1.8741e-01_rb,1.9894e-01_rb,2.0043e-01_rb,1.9638e-01_rb,1.8821e-01_rb, &
+     &1.7907e-01_rb,1.7570e-01_rb,1.5659e-01_rb/)
+      kao(:, 5, 8, 9) = (/ &
+     &1.6808e-01_rb,1.9570e-01_rb,2.1084e-01_rb,2.1493e-01_rb,2.1406e-01_rb,2.0908e-01_rb, &
+     &2.0616e-01_rb,2.1009e-01_rb,1.9730e-01_rb/)
+      kao(:, 1, 9, 9) = (/ &
+     &7.0428e-01_rb,6.3434e-01_rb,5.6644e-01_rb,4.9559e-01_rb,4.2070e-01_rb,3.4143e-01_rb, &
+     &2.6063e-01_rb,1.7246e-01_rb,1.1446e-01_rb/)
+      kao(:, 2, 9, 9) = (/ &
+     &7.1533e-01_rb,6.5148e-01_rb,5.8487e-01_rb,5.1694e-01_rb,4.4379e-01_rb,3.6693e-01_rb, &
+     &2.8562e-01_rb,1.9355e-01_rb,1.3717e-01_rb/)
+      kao(:, 3, 9, 9) = (/ &
+     &7.2105e-01_rb,6.6501e-01_rb,6.0595e-01_rb,5.4025e-01_rb,4.6705e-01_rb,3.9267e-01_rb, &
+     &3.1101e-01_rb,2.1648e-01_rb,1.6351e-01_rb/)
+      kao(:, 4, 9, 9) = (/ &
+     &7.2262e-01_rb,6.7430e-01_rb,6.2376e-01_rb,5.6249e-01_rb,4.9295e-01_rb,4.1839e-01_rb, &
+     &3.3764e-01_rb,2.4119e-01_rb,1.9114e-01_rb/)
+      kao(:, 5, 9, 9) = (/ &
+     &7.2252e-01_rb,6.8406e-01_rb,6.4078e-01_rb,5.8400e-01_rb,5.1738e-01_rb,4.4614e-01_rb, &
+     &3.6505e-01_rb,2.6763e-01_rb,2.2362e-01_rb/)
+      kao(:, 1,10, 9) = (/ &
+     &3.3754e+00_rb,2.9579e+00_rb,2.5567e+00_rb,2.1598e+00_rb,1.7623e+00_rb,1.3527e+00_rb, &
+     &9.4464e-01_rb,5.2414e-01_rb,1.6022e-01_rb/)
+      kao(:, 2,10, 9) = (/ &
+     &3.4121e+00_rb,2.9947e+00_rb,2.5993e+00_rb,2.2033e+00_rb,1.8038e+00_rb,1.3952e+00_rb, &
+     &9.8851e-01_rb,5.5797e-01_rb,1.9922e-01_rb/)
+      kao(:, 3,10, 9) = (/ &
+     &3.4354e+00_rb,3.0219e+00_rb,2.6345e+00_rb,2.2476e+00_rb,1.8449e+00_rb,1.4451e+00_rb, &
+     &1.0317e+00_rb,5.9234e-01_rb,2.4180e-01_rb/)
+      kao(:, 4,10, 9) = (/ &
+     &3.4369e+00_rb,3.0367e+00_rb,2.6577e+00_rb,2.2740e+00_rb,1.8821e+00_rb,1.4871e+00_rb, &
+     &1.0728e+00_rb,6.2615e-01_rb,2.8291e-01_rb/)
+      kao(:, 5,10, 9) = (/ &
+     &3.4461e+00_rb,3.0546e+00_rb,2.6839e+00_rb,2.3057e+00_rb,1.9262e+00_rb,1.5287e+00_rb, &
+     &1.1134e+00_rb,6.5955e-01_rb,3.3010e-01_rb/)
+      kao(:, 1,11, 9) = (/ &
+     &5.5731e+00_rb,4.8785e+00_rb,4.1979e+00_rb,3.5322e+00_rb,2.8619e+00_rb,2.1883e+00_rb, &
+     &1.5051e+00_rb,8.1479e-01_rb,1.7197e-01_rb/)
+      kao(:, 2,11, 9) = (/ &
+     &5.6124e+00_rb,4.9158e+00_rb,4.2449e+00_rb,3.5793e+00_rb,2.9170e+00_rb,2.2388e+00_rb, &
+     &1.5568e+00_rb,8.5687e-01_rb,2.2531e-01_rb/)
+      kao(:, 3,11, 9) = (/ &
+     &5.6253e+00_rb,4.9334e+00_rb,4.2755e+00_rb,3.6196e+00_rb,2.9577e+00_rb,2.2787e+00_rb, &
+     &1.6022e+00_rb,8.9680e-01_rb,2.6360e-01_rb/)
+      kao(:, 4,11, 9) = (/ &
+     &5.6351e+00_rb,4.9513e+00_rb,4.3021e+00_rb,3.6565e+00_rb,2.9923e+00_rb,2.3311e+00_rb, &
+     &1.6513e+00_rb,9.3728e-01_rb,3.0681e-01_rb/)
+      kao(:, 5,11, 9) = (/ &
+     &5.6511e+00_rb,4.9808e+00_rb,4.3475e+00_rb,3.7008e+00_rb,3.0483e+00_rb,2.3866e+00_rb, &
+     &1.7012e+00_rb,9.7887e-01_rb,3.4951e-01_rb/)
+      kao(:, 1,12, 9) = (/ &
+     &6.6833e+00_rb,5.8503e+00_rb,5.0320e+00_rb,4.2291e+00_rb,3.4220e+00_rb,2.6133e+00_rb, &
+     &1.7900e+00_rb,9.6260e-01_rb,1.7445e-01_rb/)
+      kao(:, 2,12, 9) = (/ &
+     &6.6977e+00_rb,5.8665e+00_rb,5.0629e+00_rb,4.2649e+00_rb,3.4722e+00_rb,2.6560e+00_rb, &
+     &1.8378e+00_rb,1.0034e+00_rb,2.1910e-01_rb/)
+      kao(:, 3,12, 9) = (/ &
+     &6.7112e+00_rb,5.8830e+00_rb,5.0943e+00_rb,4.3071e+00_rb,3.5122e+00_rb,2.7000e+00_rb, &
+     &1.8863e+00_rb,1.0455e+00_rb,2.5420e-01_rb/)
+      kao(:, 4,12, 9) = (/ &
+     &6.7306e+00_rb,5.9135e+00_rb,5.1333e+00_rb,4.3624e+00_rb,3.5635e+00_rb,2.7641e+00_rb, &
+     &1.9469e+00_rb,1.0906e+00_rb,2.9618e-01_rb/)
+      kao(:, 5,12, 9) = (/ &
+     &6.7198e+00_rb,5.9182e+00_rb,5.1572e+00_rb,4.3874e+00_rb,3.6068e+00_rb,2.8158e+00_rb, &
+     &1.9979e+00_rb,1.1364e+00_rb,3.4172e-01_rb/)
+      kao(:, 1,13, 9) = (/ &
+     &6.2228e+00_rb,5.4483e+00_rb,4.6948e+00_rb,3.9489e+00_rb,3.2053e+00_rb,2.4477e+00_rb, &
+     &1.6826e+00_rb,9.0899e-01_rb,1.6340e-01_rb/)
+      kao(:, 2,13, 9) = (/ &
+     &6.2479e+00_rb,5.4750e+00_rb,4.7365e+00_rb,3.9942e+00_rb,3.2532e+00_rb,2.4916e+00_rb, &
+     &1.7319e+00_rb,9.4656e-01_rb,1.9164e-01_rb/)
+      kao(:, 3,13, 9) = (/ &
+     &6.2720e+00_rb,5.5063e+00_rb,4.7748e+00_rb,4.0523e+00_rb,3.3026e+00_rb,2.5508e+00_rb, &
+     &1.7859e+00_rb,9.9108e-01_rb,2.3050e-01_rb/)
+      kao(:, 4,13, 9) = (/ &
+     &6.2663e+00_rb,5.5165e+00_rb,4.8016e+00_rb,4.0858e+00_rb,3.3448e+00_rb,2.6010e+00_rb, &
+     &1.8364e+00_rb,1.0337e+00_rb,2.6420e-01_rb/)
+      kao(:, 5,13, 9) = (/ &
+     &6.2869e+00_rb,5.5494e+00_rb,4.8492e+00_rb,4.1318e+00_rb,3.4036e+00_rb,2.6598e+00_rb, &
+     &1.8865e+00_rb,1.0759e+00_rb,2.9687e-01_rb/)
+      kao(:, 1, 1,10) = (/ &
+     &2.7731e-03_rb,1.5625e-01_rb,3.1254e-01_rb,4.6910e-01_rb,6.2583e-01_rb,7.8249e-01_rb, &
+     &9.3706e-01_rb,1.0845e+00_rb,1.2516e+00_rb/)
+      kao(:, 2, 1,10) = (/ &
+     &2.6994e-03_rb,1.8576e-01_rb,3.7148e-01_rb,5.5698e-01_rb,7.4226e-01_rb,9.2683e-01_rb, &
+     &1.1083e+00_rb,1.2874e+00_rb,1.4844e+00_rb/)
+      kao(:, 3, 1,10) = (/ &
+     &2.5977e-03_rb,2.1688e-01_rb,4.3344e-01_rb,6.4957e-01_rb,8.6528e-01_rb,1.0791e+00_rb, &
+     &1.2881e+00_rb,1.4959e+00_rb,1.7305e+00_rb/)
+      kao(:, 4, 1,10) = (/ &
+     &2.4994e-03_rb,2.5005e-01_rb,4.9954e-01_rb,7.4789e-01_rb,9.9444e-01_rb,1.2373e+00_rb, &
+     &1.4746e+00_rb,1.7076e+00_rb,1.9888e+00_rb/)
+      kao(:, 5, 1,10) = (/ &
+     &2.4443e-03_rb,2.8623e-01_rb,5.7132e-01_rb,8.5454e-01_rb,1.1344e+00_rb,1.4080e+00_rb, &
+     &1.6698e+00_rb,1.9238e+00_rb,2.2687e+00_rb/)
+      kao(:, 1, 2,10) = (/ &
+     &4.6033e-03_rb,1.4235e-01_rb,2.8494e-01_rb,4.2818e-01_rb,5.7234e-01_rb,7.1833e-01_rb, &
+     &8.6574e-01_rb,1.0139e+00_rb,1.1445e+00_rb/)
+      kao(:, 2, 2,10) = (/ &
+     &4.4279e-03_rb,1.7116e-01_rb,3.4236e-01_rb,5.1392e-01_rb,6.8612e-01_rb,8.5990e-01_rb, &
+     &1.0377e+00_rb,1.2137e+00_rb,1.3721e+00_rb/)
+      kao(:, 3, 2,10) = (/ &
+     &4.2606e-03_rb,2.0315e-01_rb,4.0616e-01_rb,6.0913e-01_rb,8.1201e-01_rb,1.0152e+00_rb, &
+     &1.2192e+00_rb,1.4256e+00_rb,1.6238e+00_rb/)
+      kao(:, 4, 2,10) = (/ &
+     &4.1205e-03_rb,2.3773e-01_rb,4.7526e-01_rb,7.1252e-01_rb,9.4929e-01_rb,1.1850e+00_rb, &
+     &1.4175e+00_rb,1.6433e+00_rb,1.8984e+00_rb/)
+      kao(:, 5, 2,10) = (/ &
+     &4.0494e-03_rb,2.7547e-01_rb,5.5055e-01_rb,8.2539e-01_rb,1.0993e+00_rb,1.3710e+00_rb, &
+     &1.6368e+00_rb,1.8772e+00_rb,2.1984e+00_rb/)
+      kao(:, 1, 3,10) = (/ &
+     &1.0161e-02_rb,1.2214e-01_rb,2.4424e-01_rb,3.6667e-01_rb,4.8955e-01_rb,6.1355e-01_rb, &
+     &7.4009e-01_rb,8.7555e-01_rb,9.7887e-01_rb/)
+      kao(:, 2, 3,10) = (/ &
+     &9.8188e-03_rb,1.5023e-01_rb,3.0029e-01_rb,4.5055e-01_rb,6.0115e-01_rb,7.5236e-01_rb, &
+     &9.0544e-01_rb,1.0662e+00_rb,1.2020e+00_rb/)
+      kao(:, 3, 3,10) = (/ &
+     &9.4977e-03_rb,1.8146e-01_rb,3.6272e-01_rb,5.4423e-01_rb,7.2598e-01_rb,9.0829e-01_rb, &
+     &1.0912e+00_rb,1.2774e+00_rb,1.4517e+00_rb/)
+      kao(:, 4, 3,10) = (/ &
+     &9.2658e-03_rb,2.1540e-01_rb,4.3072e-01_rb,6.4627e-01_rb,8.6225e-01_rb,1.0787e+00_rb, &
+     &1.2961e+00_rb,1.5118e+00_rb,1.7242e+00_rb/)
+      kao(:, 5, 3,10) = (/ &
+     &9.2390e-03_rb,2.5102e-01_rb,5.0193e-01_rb,7.5312e-01_rb,1.0052e+00_rb,1.2582e+00_rb, &
+     &1.5132e+00_rb,1.7682e+00_rb,2.0100e+00_rb/)
+      kao(:, 1, 4,10) = (/ &
+     &2.2805e-02_rb,1.0395e-01_rb,2.0752e-01_rb,3.1119e-01_rb,4.1502e-01_rb,5.1909e-01_rb, &
+     &6.2381e-01_rb,7.3100e-01_rb,8.2961e-01_rb/)
+      kao(:, 2, 4,10) = (/ &
+     &2.2222e-02_rb,1.2866e-01_rb,2.5687e-01_rb,3.8520e-01_rb,5.1380e-01_rb,6.4273e-01_rb, &
+     &7.7289e-01_rb,9.0648e-01_rb,1.0271e+00_rb/)
+      kao(:, 3, 4,10) = (/ &
+     &2.1664e-02_rb,1.5642e-01_rb,3.1238e-01_rb,4.6876e-01_rb,6.2523e-01_rb,7.8254e-01_rb, &
+     &9.4140e-01_rb,1.1052e+00_rb,1.2499e+00_rb/)
+      kao(:, 4, 4,10) = (/ &
+     &2.1586e-02_rb,1.8661e-01_rb,3.7283e-01_rb,5.5940e-01_rb,7.4664e-01_rb,9.3462e-01_rb, &
+     &1.1258e+00_rb,1.3254e+00_rb,1.4927e+00_rb/)
+      kao(:, 5, 4,10) = (/ &
+     &2.1462e-02_rb,2.1863e-01_rb,4.3680e-01_rb,6.5519e-01_rb,8.7456e-01_rb,1.0957e+00_rb, &
+     &1.3203e+00_rb,1.5569e+00_rb,1.7484e+00_rb/)
+      kao(:, 1, 5,10) = (/ &
+     &4.7130e-02_rb,9.3953e-02_rb,1.7393e-01_rb,2.6053e-01_rb,3.4731e-01_rb,4.3431e-01_rb, &
+     &5.2182e-01_rb,6.1134e-01_rb,6.9380e-01_rb/)
+      kao(:, 2, 5,10) = (/ &
+     &4.5557e-02_rb,1.1245e-01_rb,2.1773e-01_rb,3.2619e-01_rb,4.3487e-01_rb,5.4373e-01_rb, &
+     &6.5319e-01_rb,7.6497e-01_rb,8.6883e-01_rb/)
+      kao(:, 3, 5,10) = (/ &
+     &4.5179e-02_rb,1.3419e-01_rb,2.6606e-01_rb,3.9876e-01_rb,5.3167e-01_rb,6.6490e-01_rb, &
+     &7.9898e-01_rb,9.3637e-01_rb,1.0624e+00_rb/)
+      kao(:, 4, 5,10) = (/ &
+     &4.5058e-02_rb,1.5943e-01_rb,3.1786e-01_rb,4.7639e-01_rb,6.3534e-01_rb,7.9462e-01_rb, &
+     &9.5569e-01_rb,1.1218e+00_rb,1.2696e+00_rb/)
+      kao(:, 5, 5,10) = (/ &
+     &4.5124e-02_rb,1.8659e-01_rb,3.7199e-01_rb,5.5748e-01_rb,7.4317e-01_rb,9.2965e-01_rb, &
+     &1.1179e+00_rb,1.3144e+00_rb,1.4843e+00_rb/)
+      kao(:, 1, 6,10) = (/ &
+     &9.1822e-02_rb,1.2595e-01_rb,1.5650e-01_rb,2.1453e-01_rb,2.8383e-01_rb,3.5468e-01_rb, &
+     &4.2569e-01_rb,4.9790e-01_rb,5.6600e-01_rb/)
+      kao(:, 2, 6,10) = (/ &
+     &9.0834e-02_rb,1.3514e-01_rb,1.8905e-01_rb,2.7114e-01_rb,3.6116e-01_rb,4.5123e-01_rb, &
+     &5.4153e-01_rb,6.3330e-01_rb,7.2013e-01_rb/)
+      kao(:, 3, 6,10) = (/ &
+     &9.0336e-02_rb,1.4401e-01_rb,2.2730e-01_rb,3.3603e-01_rb,4.4738e-01_rb,5.5884e-01_rb, &
+     &6.7092e-01_rb,7.8481e-01_rb,8.9194e-01_rb/)
+      kao(:, 4, 6,10) = (/ &
+     &9.0439e-02_rb,1.5770e-01_rb,2.7084e-01_rb,4.0445e-01_rb,5.3847e-01_rb,6.7263e-01_rb, &
+     &8.0760e-01_rb,9.4541e-01_rb,1.0734e+00_rb/)
+      kao(:, 5, 6,10) = (/ &
+     &8.9534e-02_rb,1.7535e-01_rb,3.1878e-01_rb,4.7665e-01_rb,6.3445e-01_rb,7.9249e-01_rb, &
+     &9.5149e-01_rb,1.1135e+00_rb,1.2646e+00_rb/)
+      kao(:, 1, 7,10) = (/ &
+     &1.8704e-01_rb,2.0782e-01_rb,2.1870e-01_rb,2.2895e-01_rb,2.4473e-01_rb,2.8566e-01_rb, &
+     &3.3903e-01_rb,3.9559e-01_rb,4.4999e-01_rb/)
+      kao(:, 2, 7,10) = (/ &
+     &1.8532e-01_rb,2.1563e-01_rb,2.3939e-01_rb,2.5636e-01_rb,3.0272e-01_rb,3.6581e-01_rb, &
+     &4.3811e-01_rb,5.1140e-01_rb,5.8167e-01_rb/)
+      kao(:, 3, 7,10) = (/ &
+     &1.8680e-01_rb,2.2377e-01_rb,2.5927e-01_rb,2.9855e-01_rb,3.7097e-01_rb,4.5865e-01_rb, &
+     &5.4953e-01_rb,6.4162e-01_rb,7.2947e-01_rb/)
+      kao(:, 4, 7,10) = (/ &
+     &1.8310e-01_rb,2.3512e-01_rb,2.8042e-01_rb,3.5020e-01_rb,4.4840e-01_rb,5.5852e-01_rb, &
+     &6.6925e-01_rb,7.8169e-01_rb,8.8834e-01_rb/)
+      kao(:, 5, 7,10) = (/ &
+     &1.7882e-01_rb,2.4826e-01_rb,3.0849e-01_rb,4.0772e-01_rb,5.3530e-01_rb,6.6727e-01_rb, &
+     &7.9969e-01_rb,9.3357e-01_rb,1.0615e+00_rb/)
+      kao(:, 1, 8,10) = (/ &
+     &4.1112e-01_rb,4.0974e-01_rb,4.1065e-01_rb,3.9316e-01_rb,3.5874e-01_rb,3.2789e-01_rb, &
+     &2.9581e-01_rb,3.0764e-01_rb,1.9137e-01_rb/)
+      kao(:, 2, 8,10) = (/ &
+     &4.0366e-01_rb,4.2457e-01_rb,4.2635e-01_rb,4.1703e-01_rb,3.9720e-01_rb,3.6880e-01_rb, &
+     &3.6253e-01_rb,4.0327e-01_rb,3.4592e-01_rb/)
+      kao(:, 3, 8,10) = (/ &
+     &3.8607e-01_rb,4.4207e-01_rb,4.4571e-01_rb,4.4555e-01_rb,4.3797e-01_rb,4.1894e-01_rb, &
+     &4.4727e-01_rb,5.1245e-01_rb,5.5117e-01_rb/)
+      kao(:, 4, 8,10) = (/ &
+     &3.7227e-01_rb,4.5775e-01_rb,4.6855e-01_rb,4.7950e-01_rb,4.7625e-01_rb,4.8559e-01_rb, &
+     &5.4513e-01_rb,6.3288e-01_rb,7.1148e-01_rb/)
+      kao(:, 5, 8,10) = (/ &
+     &3.6637e-01_rb,4.6773e-01_rb,4.9188e-01_rb,5.1329e-01_rb,5.2260e-01_rb,5.7072e-01_rb, &
+     &6.6113e-01_rb,7.6991e-01_rb,8.6824e-01_rb/)
+      kao(:, 1, 9,10) = (/ &
+     &1.5096e+00_rb,1.3467e+00_rb,1.2191e+00_rb,1.0959e+00_rb,9.8221e-01_rb,8.6433e-01_rb, &
+     &6.8915e-01_rb,4.5155e-01_rb,2.5455e-01_rb/)
+      kao(:, 2, 9,10) = (/ &
+     &1.4729e+00_rb,1.3283e+00_rb,1.2484e+00_rb,1.1515e+00_rb,1.0570e+00_rb,9.2603e-01_rb, &
+     &7.4690e-01_rb,5.0470e-01_rb,3.4249e-01_rb/)
+      kao(:, 3, 9,10) = (/ &
+     &1.4533e+00_rb,1.3348e+00_rb,1.2453e+00_rb,1.1987e+00_rb,1.1351e+00_rb,9.9543e-01_rb, &
+     &8.1023e-01_rb,5.6196e-01_rb,4.0591e-01_rb/)
+      kao(:, 4, 9,10) = (/ &
+     &1.4744e+00_rb,1.3676e+00_rb,1.2850e+00_rb,1.2602e+00_rb,1.1957e+00_rb,1.0697e+00_rb, &
+     &8.6704e-01_rb,6.2711e-01_rb,4.8211e-01_rb/)
+      kao(:, 5, 9,10) = (/ &
+     &1.4999e+00_rb,1.4091e+00_rb,1.3355e+00_rb,1.3264e+00_rb,1.2721e+00_rb,1.1339e+00_rb, &
+     &9.2252e-01_rb,7.1025e-01_rb,5.3091e-01_rb/)
+      kao(:, 1,10,10) = (/ &
+     &7.2829e+00_rb,6.3687e+00_rb,5.4628e+00_rb,4.5827e+00_rb,3.6816e+00_rb,2.8784e+00_rb, &
+     &1.9461e+00_rb,1.1228e+00_rb,2.9615e-01_rb/)
+      kao(:, 2,10,10) = (/ &
+     &7.2567e+00_rb,6.3523e+00_rb,5.5013e+00_rb,4.6178e+00_rb,3.8060e+00_rb,2.8925e+00_rb, &
+     &1.9877e+00_rb,1.2045e+00_rb,5.0840e-01_rb/)
+      kao(:, 3,10,10) = (/ &
+     &7.3526e+00_rb,6.4384e+00_rb,5.5471e+00_rb,4.6686e+00_rb,3.8188e+00_rb,2.9106e+00_rb, &
+     &2.0584e+00_rb,1.3182e+00_rb,5.8969e-01_rb/)
+      kao(:, 4,10,10) = (/ &
+     &7.6517e+00_rb,6.6965e+00_rb,5.8098e+00_rb,4.9129e+00_rb,3.9609e+00_rb,3.0608e+00_rb, &
+     &2.1952e+00_rb,1.4642e+00_rb,7.2061e-01_rb/)
+      kao(:, 5,10,10) = (/ &
+     &7.6682e+00_rb,6.7495e+00_rb,5.8665e+00_rb,4.9992e+00_rb,4.0971e+00_rb,3.1895e+00_rb, &
+     &2.3244e+00_rb,1.6171e+00_rb,8.0277e-01_rb/)
+      kao(:, 1,11,10) = (/ &
+     &1.2863e+01_rb,1.1253e+01_rb,9.6455e+00_rb,8.0559e+00_rb,6.4984e+00_rb,4.9709e+00_rb, &
+     &3.3831e+00_rb,1.7991e+00_rb,3.6644e-01_rb/)
+      kao(:, 2,11,10) = (/ &
+     &1.3151e+01_rb,1.1511e+01_rb,9.8627e+00_rb,8.2765e+00_rb,6.6703e+00_rb,5.1195e+00_rb, &
+     &3.4235e+00_rb,1.8440e+00_rb,4.6729e-01_rb/)
+      kao(:, 3,11,10) = (/ &
+     &1.3385e+01_rb,1.1711e+01_rb,1.0081e+01_rb,8.4279e+00_rb,6.8536e+00_rb,5.2620e+00_rb, &
+     &3.6394e+00_rb,1.9452e+00_rb,7.7574e-01_rb/)
+      kao(:, 4,11,10) = (/ &
+     &1.3506e+01_rb,1.1818e+01_rb,1.0183e+01_rb,8.6029e+00_rb,7.0409e+00_rb,5.3665e+00_rb, &
+     &3.7651e+00_rb,2.0591e+00_rb,8.8231e-01_rb/)
+      kao(:, 5,11,10) = (/ &
+     &1.3392e+01_rb,1.1719e+01_rb,1.0115e+01_rb,8.6680e+00_rb,7.0525e+00_rb,5.5043e+00_rb, &
+     &3.9029e+00_rb,2.2010e+00_rb,9.9688e-01_rb/)
+      kao(:, 1,12,10) = (/ &
+     &1.6670e+01_rb,1.4588e+01_rb,1.2501e+01_rb,1.0421e+01_rb,8.3941e+00_rb,6.4270e+00_rb, &
+     &4.3660e+00_rb,2.2934e+00_rb,3.9405e-01_rb/)
+      kao(:, 2,12,10) = (/ &
+     &1.7105e+01_rb,1.4960e+01_rb,1.2826e+01_rb,1.0751e+01_rb,8.6199e+00_rb,6.6739e+00_rb, &
+     &4.5154e+00_rb,2.4126e+00_rb,5.4759e-01_rb/)
+      kao(:, 3,12,10) = (/ &
+     &1.7307e+01_rb,1.5147e+01_rb,1.3016e+01_rb,1.0902e+01_rb,8.9354e+00_rb,6.8220e+00_rb, &
+     &4.7181e+00_rb,2.5631e+00_rb,8.3787e-01_rb/)
+      kao(:, 4,12,10) = (/ &
+     &1.7279e+01_rb,1.5121e+01_rb,1.3042e+01_rb,1.0948e+01_rb,8.9655e+00_rb,6.8546e+00_rb, &
+     &4.7965e+00_rb,2.6658e+00_rb,9.5310e-01_rb/)
+      kao(:, 5,12,10) = (/ &
+     &1.7622e+01_rb,1.5423e+01_rb,1.3295e+01_rb,1.1391e+01_rb,9.1951e+00_rb,7.1021e+00_rb, &
+     &4.9630e+00_rb,2.7853e+00_rb,1.0381e+00_rb/)
+      kao(:, 1,13,10) = (/ &
+     &1.7285e+01_rb,1.5124e+01_rb,1.2963e+01_rb,1.0843e+01_rb,8.6958e+00_rb,6.7399e+00_rb, &
+     &4.5324e+00_rb,2.3893e+00_rb,3.8223e-01_rb/)
+      kao(:, 2,13,10) = (/ &
+     &1.7394e+01_rb,1.5220e+01_rb,1.3045e+01_rb,1.0933e+01_rb,8.8783e+00_rb,6.8319e+00_rb, &
+     &4.6535e+00_rb,2.5278e+00_rb,6.6322e-01_rb/)
+      kao(:, 3,13,10) = (/ &
+     &1.7534e+01_rb,1.5350e+01_rb,1.3222e+01_rb,1.1038e+01_rb,9.1270e+00_rb,6.8978e+00_rb, &
+     &4.7818e+00_rb,2.6214e+00_rb,7.3123e-01_rb/)
+      kao(:, 4,13,10) = (/ &
+     &1.7891e+01_rb,1.5660e+01_rb,1.3479e+01_rb,1.1400e+01_rb,9.3159e+00_rb,7.0998e+00_rb, &
+     &4.9577e+00_rb,2.7354e+00_rb,8.9654e-01_rb/)
+      kao(:, 5,13,10) = (/ &
+     &1.8019e+01_rb,1.5767e+01_rb,1.3610e+01_rb,1.1614e+01_rb,9.4166e+00_rb,7.3122e+00_rb, &
+     &5.1530e+00_rb,2.8785e+00_rb,1.0692e+00_rb/)
+      kao(:, 1, 1,11) = (/ &
+     &3.1711e-03_rb,2.2841e-01_rb,4.5620e-01_rb,6.8299e-01_rb,9.0802e-01_rb,1.1291e+00_rb, &
+     &1.3398e+00_rb,1.4993e+00_rb,1.8159e+00_rb/)
+      kao(:, 2, 1,11) = (/ &
+     &3.0704e-03_rb,2.7128e-01_rb,5.4234e-01_rb,8.1284e-01_rb,1.0822e+00_rb,1.3468e+00_rb, &
+     &1.5998e+00_rb,1.7945e+00_rb,2.1643e+00_rb/)
+      kao(:, 3, 1,11) = (/ &
+     &2.9866e-03_rb,3.1478e-01_rb,6.2947e-01_rb,9.4408e-01_rb,1.2581e+00_rb,1.5709e+00_rb, &
+     &1.8741e+00_rb,2.1028e+00_rb,2.5161e+00_rb/)
+      kao(:, 4, 1,11) = (/ &
+     &2.9163e-03_rb,3.5938e-01_rb,7.1835e-01_rb,1.0774e+00_rb,1.4362e+00_rb,1.7946e+00_rb, &
+     &2.1451e+00_rb,2.4217e+00_rb,2.8722e+00_rb/)
+      kao(:, 5, 1,11) = (/ &
+     &2.8034e-03_rb,4.0521e-01_rb,8.0970e-01_rb,1.2136e+00_rb,1.6171e+00_rb,2.0187e+00_rb, &
+     &2.4125e+00_rb,2.7343e+00_rb,3.2340e+00_rb/)
+      kao(:, 1, 2,11) = (/ &
+     &5.2383e-03_rb,2.1282e-01_rb,4.2542e-01_rb,6.3727e-01_rb,8.4863e-01_rb,1.0581e+00_rb, &
+     &1.2660e+00_rb,1.4631e+00_rb,1.6971e+00_rb/)
+      kao(:, 2, 2,11) = (/ &
+     &5.1027e-03_rb,2.5414e-01_rb,5.0811e-01_rb,7.6215e-01_rb,1.0157e+00_rb,1.2690e+00_rb, &
+     &1.5182e+00_rb,1.7540e+00_rb,2.0313e+00_rb/)
+      kao(:, 3, 2,11) = (/ &
+     &4.9821e-03_rb,2.9639e-01_rb,5.9276e-01_rb,8.8910e-01_rb,1.1857e+00_rb,1.4825e+00_rb, &
+     &1.7783e+00_rb,2.0622e+00_rb,2.3711e+00_rb/)
+      kao(:, 4, 2,11) = (/ &
+     &4.8330e-03_rb,3.4110e-01_rb,6.8181e-01_rb,1.0221e+00_rb,1.3622e+00_rb,1.7021e+00_rb, &
+     &2.0428e+00_rb,2.3773e+00_rb,2.7241e+00_rb/)
+      kao(:, 5, 2,11) = (/ &
+     &4.6466e-03_rb,3.8845e-01_rb,7.7604e-01_rb,1.1627e+00_rb,1.5479e+00_rb,1.9317e+00_rb, &
+     &2.3125e+00_rb,2.6917e+00_rb,3.0955e+00_rb/)
+      kao(:, 1, 3,11) = (/ &
+     &1.1968e-02_rb,1.8925e-01_rb,3.7814e-01_rb,5.6720e-01_rb,7.5640e-01_rb,9.4598e-01_rb, &
+     &1.1354e+00_rb,1.3192e+00_rb,1.5123e+00_rb/)
+      kao(:, 2, 3,11) = (/ &
+     &1.1738e-02_rb,2.2858e-01_rb,4.5676e-01_rb,6.8520e-01_rb,9.1426e-01_rb,1.1439e+00_rb, &
+     &1.3747e+00_rb,1.6035e+00_rb,1.8280e+00_rb/)
+      kao(:, 3, 3,11) = (/ &
+     &1.1441e-02_rb,2.7028e-01_rb,5.3999e-01_rb,8.0979e-01_rb,1.0799e+00_rb,1.3506e+00_rb, &
+     &1.6224e+00_rb,1.8949e+00_rb,2.1592e+00_rb/)
+      kao(:, 4, 3,11) = (/ &
+     &1.1066e-02_rb,3.1556e-01_rb,6.3024e-01_rb,9.4495e-01_rb,1.2595e+00_rb,1.5736e+00_rb, &
+     &1.8868e+00_rb,2.1970e+00_rb,2.5183e+00_rb/)
+      kao(:, 5, 3,11) = (/ &
+     &1.0627e-02_rb,3.6442e-01_rb,7.2807e-01_rb,1.0914e+00_rb,1.4538e+00_rb,1.8154e+00_rb, &
+     &2.1726e+00_rb,2.5191e+00_rb,2.9067e+00_rb/)
+      kao(:, 1, 4,11) = (/ &
+     &2.8048e-02_rb,1.6151e-01_rb,3.2202e-01_rb,4.8262e-01_rb,6.4375e-01_rb,8.0530e-01_rb, &
+     &9.6854e-01_rb,1.1364e+00_rb,1.2863e+00_rb/)
+      kao(:, 2, 4,11) = (/ &
+     &2.7460e-02_rb,1.9867e-01_rb,3.9620e-01_rb,5.9396e-01_rb,7.9208e-01_rb,9.9102e-01_rb, &
+     &1.1917e+00_rb,1.3983e+00_rb,1.5828e+00_rb/)
+      kao(:, 3, 4,11) = (/ &
+     &2.6672e-02_rb,2.3899e-01_rb,4.7658e-01_rb,7.1429e-01_rb,9.5231e-01_rb,1.1913e+00_rb, &
+     &1.4318e+00_rb,1.6791e+00_rb,1.9031e+00_rb/)
+      kao(:, 4, 4,11) = (/ &
+     &2.5665e-02_rb,2.8345e-01_rb,5.6525e-01_rb,8.4715e-01_rb,1.1294e+00_rb,1.4117e+00_rb, &
+     &1.6956e+00_rb,1.9833e+00_rb,2.2571e+00_rb/)
+      kao(:, 5, 4,11) = (/ &
+     &2.4958e-02_rb,3.3271e-01_rb,6.6383e-01_rb,9.9466e-01_rb,1.3259e+00_rb,1.6572e+00_rb, &
+     &1.9874e+00_rb,2.3183e+00_rb,2.6500e+00_rb/)
+      kao(:, 1, 5,11) = (/ &
+     &5.9740e-02_rb,1.3717e-01_rb,2.6992e-01_rb,4.0387e-01_rb,5.3789e-01_rb,6.7238e-01_rb, &
+     &8.0752e-01_rb,9.4549e-01_rb,1.0734e+00_rb/)
+      kao(:, 2, 5,11) = (/ &
+     &5.8323e-02_rb,1.6942e-01_rb,3.3625e-01_rb,5.0313e-01_rb,6.7036e-01_rb,8.3790e-01_rb, &
+     &1.0063e+00_rb,1.1790e+00_rb,1.3380e+00_rb/)
+      kao(:, 3, 5,11) = (/ &
+     &5.6700e-02_rb,2.0744e-01_rb,4.1183e-01_rb,6.1629e-01_rb,8.2117e-01_rb,1.0263e+00_rb, &
+     &1.2326e+00_rb,1.4427e+00_rb,1.6392e+00_rb/)
+      kao(:, 4, 5,11) = (/ &
+     &5.4845e-02_rb,2.5070e-01_rb,4.9802e-01_rb,7.4525e-01_rb,9.9296e-01_rb,1.2407e+00_rb, &
+     &1.4895e+00_rb,1.7409e+00_rb,1.9825e+00_rb/)
+      kao(:, 5, 5,11) = (/ &
+     &5.3384e-02_rb,2.9836e-01_rb,5.9305e-01_rb,8.8824e-01_rb,1.1834e+00_rb,1.4792e+00_rb, &
+     &1.7758e+00_rb,2.0754e+00_rb,2.3639e+00_rb/)
+      kao(:, 1, 6,11) = (/ &
+     &1.1443e-01_rb,1.5330e-01_rb,2.2814e-01_rb,3.3358e-01_rb,4.4343e-01_rb,5.5347e-01_rb, &
+     &6.6399e-01_rb,7.7608e-01_rb,8.8294e-01_rb/)
+      kao(:, 2, 6,11) = (/ &
+     &1.1139e-01_rb,1.6753e-01_rb,2.8410e-01_rb,4.2322e-01_rb,5.6271e-01_rb,7.0257e-01_rb, &
+     &8.4275e-01_rb,9.8447e-01_rb,1.1213e+00_rb/)
+      kao(:, 3, 6,11) = (/ &
+     &1.0816e-01_rb,1.9391e-01_rb,3.5154e-01_rb,5.2463e-01_rb,6.9799e-01_rb,8.7181e-01_rb, &
+     &1.0460e+00_rb,1.2220e+00_rb,1.3917e+00_rb/)
+      kao(:, 4, 6,11) = (/ &
+     &1.0514e-01_rb,2.2522e-01_rb,4.2775e-01_rb,6.3893e-01_rb,8.5037e-01_rb,1.0626e+00_rb, &
+     &1.2753e+00_rb,1.4901e+00_rb,1.6964e+00_rb/)
+      kao(:, 5, 6,11) = (/ &
+     &1.0414e-01_rb,2.6189e-01_rb,5.1110e-01_rb,7.6424e-01_rb,1.0178e+00_rb,1.2716e+00_rb, &
+     &1.5264e+00_rb,1.7854e+00_rb,2.0311e+00_rb/)
+      kao(:, 1, 7,11) = (/ &
+     &2.3680e-01_rb,2.5474e-01_rb,2.7467e-01_rb,2.9968e-01_rb,3.6549e-01_rb,4.4931e-01_rb, &
+     &5.3835e-01_rb,6.2811e-01_rb,7.1559e-01_rb/)
+      kao(:, 2, 7,11) = (/ &
+     &2.3126e-01_rb,2.6667e-01_rb,2.9742e-01_rb,3.6770e-01_rb,4.6828e-01_rb,5.8355e-01_rb, &
+     &6.9932e-01_rb,8.1593e-01_rb,9.2966e-01_rb/)
+      kao(:, 3, 7,11) = (/ &
+     &2.2333e-01_rb,2.8145e-01_rb,3.3561e-01_rb,4.4803e-01_rb,5.8828e-01_rb,7.3378e-01_rb, &
+     &8.7969e-01_rb,1.0266e+00_rb,1.1700e+00_rb/)
+      kao(:, 4, 7,11) = (/ &
+     &2.2006e-01_rb,2.9370e-01_rb,3.8943e-01_rb,5.4388e-01_rb,7.2193e-01_rb,9.0087e-01_rb, &
+     &1.0804e+00_rb,1.2609e+00_rb,1.4372e+00_rb/)
+      kao(:, 5, 7,11) = (/ &
+     &2.1836e-01_rb,3.0927e-01_rb,4.5013e-01_rb,6.5145e-01_rb,8.6638e-01_rb,1.0814e+00_rb, &
+     &1.2967e+00_rb,1.5147e+00_rb,1.7257e+00_rb/)
+      kao(:, 1, 8,11) = (/ &
+     &5.7508e-01_rb,5.5228e-01_rb,5.1832e-01_rb,4.8920e-01_rb,4.5962e-01_rb,4.2790e-01_rb, &
+     &4.4544e-01_rb,5.0496e-01_rb,5.4406e-01_rb/)
+      kao(:, 2, 8,11) = (/ &
+     &5.5570e-01_rb,5.5086e-01_rb,5.3954e-01_rb,5.2836e-01_rb,5.0571e-01_rb,5.1612e-01_rb, &
+     &5.7597e-01_rb,6.6763e-01_rb,7.6063e-01_rb/)
+      kao(:, 3, 8,11) = (/ &
+     &5.4644e-01_rb,5.5917e-01_rb,5.6849e-01_rb,5.6772e-01_rb,5.6845e-01_rb,6.3045e-01_rb, &
+     &7.3261e-01_rb,8.5320e-01_rb,9.7237e-01_rb/)
+      kao(:, 4, 8,11) = (/ &
+     &5.4298e-01_rb,5.6882e-01_rb,5.9693e-01_rb,6.1038e-01_rb,6.5823e-01_rb,7.6720e-01_rb, &
+     &9.1091e-01_rb,1.0615e+00_rb,1.2099e+00_rb/)
+      kao(:, 5, 8,11) = (/ &
+     &5.3663e-01_rb,5.8485e-01_rb,6.2913e-01_rb,6.6732e-01_rb,7.6736e-01_rb,9.2195e-01_rb, &
+     &1.1025e+00_rb,1.2850e+00_rb,1.4649e+00_rb/)
+      kao(:, 1, 9,11) = (/ &
+     &2.5279e+00_rb,2.2431e+00_rb,2.0106e+00_rb,1.7600e+00_rb,1.4790e+00_rb,1.2051e+00_rb, &
+     &8.9590e-01_rb,5.8517e-01_rb,3.0795e-01_rb/)
+      kao(:, 2, 9,11) = (/ &
+     &2.4601e+00_rb,2.1917e+00_rb,2.0103e+00_rb,1.7592e+00_rb,1.5280e+00_rb,1.2575e+00_rb, &
+     &9.5967e-01_rb,6.7082e-01_rb,3.9930e-01_rb/)
+      kao(:, 3, 9,11) = (/ &
+     &2.4168e+00_rb,2.1757e+00_rb,2.0177e+00_rb,1.7994e+00_rb,1.5699e+00_rb,1.3186e+00_rb, &
+     &1.0425e+00_rb,7.7727e-01_rb,5.2484e-01_rb/)
+      kao(:, 4, 9,11) = (/ &
+     &2.3770e+00_rb,2.1985e+00_rb,2.0410e+00_rb,1.8443e+00_rb,1.6274e+00_rb,1.3869e+00_rb, &
+     &1.1288e+00_rb,9.2337e-01_rb,5.9212e-01_rb/)
+      kao(:, 5, 9,11) = (/ &
+     &2.3400e+00_rb,2.1850e+00_rb,2.0960e+00_rb,1.9025e+00_rb,1.6878e+00_rb,1.4602e+00_rb, &
+     &1.2280e+00_rb,1.0954e+00_rb,7.2073e-01_rb/)
+      kao(:, 1,10,11) = (/ &
+     &1.1112e+01_rb,9.7248e+00_rb,8.3361e+00_rb,7.0270e+00_rb,5.7440e+00_rb,4.5096e+00_rb, &
+     &3.2779e+00_rb,1.8950e+00_rb,4.0940e-01_rb/)
+      kao(:, 2,10,11) = (/ &
+     &1.0924e+01_rb,9.5564e+00_rb,8.1917e+00_rb,6.9650e+00_rb,5.7085e+00_rb,4.6298e+00_rb, &
+     &3.3486e+00_rb,2.0156e+00_rb,4.6752e-01_rb/)
+      kao(:, 3,10,11) = (/ &
+     &1.0832e+01_rb,9.4781e+00_rb,8.2229e+00_rb,6.9872e+00_rb,5.8796e+00_rb,4.6954e+00_rb, &
+     &3.5108e+00_rb,2.1192e+00_rb,8.0168e-01_rb/)
+      kao(:, 4,10,11) = (/ &
+     &1.0490e+01_rb,9.1768e+00_rb,8.0065e+00_rb,6.9497e+00_rb,5.9506e+00_rb,4.7816e+00_rb, &
+     &3.6391e+00_rb,2.2227e+00_rb,9.3825e-01_rb/)
+      kao(:, 5,10,11) = (/ &
+     &1.0399e+01_rb,9.1010e+00_rb,8.0219e+00_rb,7.0325e+00_rb,5.9506e+00_rb,4.9243e+00_rb, &
+     &3.8048e+00_rb,2.3499e+00_rb,1.1716e+00_rb/)
+      kao(:, 1,11,11) = (/ &
+     &1.6964e+01_rb,1.4849e+01_rb,1.2726e+01_rb,1.0607e+01_rb,8.5722e+00_rb,6.5304e+00_rb, &
+     &4.5723e+00_rb,2.5353e+00_rb,5.7715e-01_rb/)
+      kao(:, 2,11,11) = (/ &
+     &1.6824e+01_rb,1.4725e+01_rb,1.2623e+01_rb,1.0586e+01_rb,8.5709e+00_rb,6.6756e+00_rb, &
+     &4.7183e+00_rb,2.7595e+00_rb,6.2192e-01_rb/)
+      kao(:, 3,11,11) = (/ &
+     &1.6755e+01_rb,1.4665e+01_rb,1.2572e+01_rb,1.0610e+01_rb,8.6759e+00_rb,6.8661e+00_rb, &
+     &4.7973e+00_rb,2.9494e+00_rb,7.1889e-01_rb/)
+      kao(:, 4,11,11) = (/ &
+     &1.6922e+01_rb,1.4802e+01_rb,1.2769e+01_rb,1.0738e+01_rb,8.9005e+00_rb,6.9130e+00_rb, &
+     &5.0022e+00_rb,3.1663e+00_rb,1.1906e+00_rb/)
+      kao(:, 5,11,11) = (/ &
+     &1.7198e+01_rb,1.5045e+01_rb,1.3001e+01_rb,1.1038e+01_rb,9.0834e+00_rb,7.0679e+00_rb, &
+     &5.2222e+00_rb,3.3529e+00_rb,1.3885e+00_rb/)
+      kao(:, 1,12,11) = (/ &
+     &2.1802e+01_rb,1.9077e+01_rb,1.6353e+01_rb,1.3626e+01_rb,1.0986e+01_rb,8.2719e+00_rb, &
+     &5.7215e+00_rb,2.9889e+00_rb,6.5084e-01_rb/)
+      kao(:, 2,12,11) = (/ &
+     &2.2052e+01_rb,1.9310e+01_rb,1.6546e+01_rb,1.3830e+01_rb,1.1139e+01_rb,8.5492e+00_rb, &
+     &5.8655e+00_rb,3.1860e+00_rb,7.2046e-01_rb/)
+      kao(:, 3,12,11) = (/ &
+     &2.2451e+01_rb,1.9654e+01_rb,1.6841e+01_rb,1.4123e+01_rb,1.1335e+01_rb,8.7814e+00_rb, &
+     &5.9237e+00_rb,3.3098e+00_rb,8.3218e-01_rb/)
+      kao(:, 4,12,11) = (/ &
+     &2.3090e+01_rb,2.0216e+01_rb,1.7353e+01_rb,1.4511e+01_rb,1.1935e+01_rb,9.0228e+00_rb, &
+     &6.2499e+00_rb,3.5354e+00_rb,1.3462e+00_rb/)
+      kao(:, 5,12,11) = (/ &
+     &2.3297e+01_rb,2.0383e+01_rb,1.7601e+01_rb,1.4664e+01_rb,1.2080e+01_rb,9.1910e+00_rb, &
+     &6.4263e+00_rb,3.7093e+00_rb,1.5753e+00_rb/)
+      kao(:, 1,13,11) = (/ &
+     &2.3137e+01_rb,2.0253e+01_rb,1.7360e+01_rb,1.4461e+01_rb,1.1660e+01_rb,8.7711e+00_rb, &
+     &6.0766e+00_rb,3.2004e+00_rb,6.2333e-01_rb/)
+      kao(:, 2,13,11) = (/ &
+     &2.3705e+01_rb,2.0739e+01_rb,1.7789e+01_rb,1.4919e+01_rb,1.1958e+01_rb,9.2720e+00_rb, &
+     &6.2579e+00_rb,3.3419e+00_rb,6.6494e-01_rb/)
+      kao(:, 3,13,11) = (/ &
+     &2.4274e+01_rb,2.1226e+01_rb,1.8190e+01_rb,1.5260e+01_rb,1.2326e+01_rb,9.5663e+00_rb, &
+     &6.4788e+00_rb,3.4909e+00_rb,1.1201e+00_rb/)
+      kao(:, 4,13,11) = (/ &
+     &2.4386e+01_rb,2.1333e+01_rb,1.8377e+01_rb,1.5357e+01_rb,1.2667e+01_rb,9.6781e+00_rb, &
+     &6.7508e+00_rb,3.6779e+00_rb,1.3420e+00_rb/)
+      kao(:, 5,13,11) = (/ &
+     &2.4394e+01_rb,2.1348e+01_rb,1.8396e+01_rb,1.5507e+01_rb,1.2756e+01_rb,9.7415e+00_rb, &
+     &6.8863e+00_rb,3.8176e+00_rb,1.6819e+00_rb/)
+      kao(:, 1, 1,12) = (/ &
+     &3.7292e-03_rb,3.2906e-01_rb,6.5580e-01_rb,9.7933e-01_rb,1.2975e+00_rb,1.6059e+00_rb, &
+     &1.8953e+00_rb,2.1342e+00_rb,2.5948e+00_rb/)
+      kao(:, 2, 1,12) = (/ &
+     &3.6338e-03_rb,3.9331e-01_rb,7.8289e-01_rb,1.1672e+00_rb,1.5430e+00_rb,1.9051e+00_rb, &
+     &2.2331e+00_rb,2.4741e+00_rb,3.0857e+00_rb/)
+      kao(:, 3, 1,12) = (/ &
+     &3.5564e-03_rb,4.6323e-01_rb,9.2190e-01_rb,1.3739e+00_rb,1.8144e+00_rb,2.2323e+00_rb, &
+     &2.6037e+00_rb,2.8683e+00_rb,3.6286e+00_rb/)
+      kao(:, 4, 1,12) = (/ &
+     &3.4829e-03_rb,5.3356e-01_rb,1.0626e+00_rb,1.5845e+00_rb,2.0933e+00_rb,2.5784e+00_rb, &
+     &3.0158e+00_rb,3.3179e+00_rb,4.1863e+00_rb/)
+      kao(:, 5, 1,12) = (/ &
+     &3.4329e-03_rb,6.0324e-01_rb,1.2029e+00_rb,1.7965e+00_rb,2.3794e+00_rb,2.9402e+00_rb, &
+     &3.4530e+00_rb,3.8265e+00_rb,4.7585e+00_rb/)
+      kao(:, 1, 2,12) = (/ &
+     &6.2080e-03_rb,3.1766e-01_rb,6.3367e-01_rb,9.4784e-01_rb,1.2588e+00_rb,1.5639e+00_rb, &
+     &1.8558e+00_rb,2.1035e+00_rb,2.5172e+00_rb/)
+      kao(:, 2, 2,12) = (/ &
+     &6.0635e-03_rb,3.8413e-01_rb,7.6634e-01_rb,1.1462e+00_rb,1.5215e+00_rb,1.8884e+00_rb, &
+     &2.2355e+00_rb,2.5176e+00_rb,3.0427e+00_rb/)
+      kao(:, 3, 2,12) = (/ &
+     &5.9382e-03_rb,4.5423e-01_rb,9.0644e-01_rb,1.3562e+00_rb,1.8011e+00_rb,2.2367e+00_rb, &
+     &2.6480e+00_rb,2.9724e+00_rb,3.6017e+00_rb/)
+      kao(:, 4, 2,12) = (/ &
+     &5.8323e-03_rb,5.2519e-01_rb,1.0487e+00_rb,1.5700e+00_rb,2.0875e+00_rb,2.5951e+00_rb, &
+     &3.0747e+00_rb,3.4387e+00_rb,4.1744e+00_rb/)
+      kao(:, 5, 2,12) = (/ &
+     &5.7338e-03_rb,5.9386e-01_rb,1.1863e+00_rb,1.7768e+00_rb,2.3632e+00_rb,2.9403e+00_rb, &
+     &3.4914e+00_rb,3.9302e+00_rb,4.7260e+00_rb/)
+      kao(:, 1, 3,12) = (/ &
+     &1.4176e-02_rb,2.8836e-01_rb,5.7586e-01_rb,8.6297e-01_rb,1.1493e+00_rb,1.4343e+00_rb, &
+     &1.7160e+00_rb,1.9825e+00_rb,2.2980e+00_rb/)
+      kao(:, 2, 3,12) = (/ &
+     &1.3806e-02_rb,3.5186e-01_rb,7.0276e-01_rb,1.0533e+00_rb,1.4030e+00_rb,1.7510e+00_rb, &
+     &2.0945e+00_rb,2.4186e+00_rb,2.8053e+00_rb/)
+      kao(:, 3, 3,12) = (/ &
+     &1.3514e-02_rb,4.1890e-01_rb,8.3697e-01_rb,1.2547e+00_rb,1.6718e+00_rb,2.0870e+00_rb, &
+     &2.4990e+00_rb,2.8908e+00_rb,3.3428e+00_rb/)
+      kao(:, 4, 3,12) = (/ &
+     &1.3249e-02_rb,4.8707e-01_rb,9.7331e-01_rb,1.4597e+00_rb,1.9459e+00_rb,2.4316e+00_rb, &
+     &2.9156e+00_rb,3.3828e+00_rb,3.8910e+00_rb/)
+      kao(:, 5, 3,12) = (/ &
+     &1.3015e-02_rb,5.5537e-01_rb,1.1100e+00_rb,1.6644e+00_rb,2.2195e+00_rb,2.7745e+00_rb, &
+     &3.3300e+00_rb,3.8734e+00_rb,4.4382e+00_rb/)
+      kao(:, 1, 4,12) = (/ &
+     &3.3184e-02_rb,2.5339e-01_rb,5.0565e-01_rb,7.5787e-01_rb,1.0100e+00_rb,1.2620e+00_rb, &
+     &1.5135e+00_rb,1.7634e+00_rb,2.0190e+00_rb/)
+      kao(:, 2, 4,12) = (/ &
+     &3.2427e-02_rb,3.1318e-01_rb,6.2514e-01_rb,9.3708e-01_rb,1.2489e+00_rb,1.5601e+00_rb, &
+     &1.8704e+00_rb,2.1781e+00_rb,2.4966e+00_rb/)
+      kao(:, 3, 4,12) = (/ &
+     &3.1776e-02_rb,3.7781e-01_rb,7.5434e-01_rb,1.1309e+00_rb,1.5072e+00_rb,1.8833e+00_rb, &
+     &2.2580e+00_rb,2.6266e+00_rb,3.0132e+00_rb/)
+      kao(:, 4, 4,12) = (/ &
+     &3.1130e-02_rb,4.4383e-01_rb,8.8640e-01_rb,1.3292e+00_rb,1.7718e+00_rb,2.2142e+00_rb, &
+     &2.6572e+00_rb,3.0981e+00_rb,3.5423e+00_rb/)
+      kao(:, 5, 4,12) = (/ &
+     &3.0303e-02_rb,5.1080e-01_rb,1.0203e+00_rb,1.5301e+00_rb,2.0399e+00_rb,2.5495e+00_rb, &
+     &3.0593e+00_rb,3.5718e+00_rb,4.0785e+00_rb/)
+      kao(:, 1, 5,12) = (/ &
+     &7.0197e-02_rb,2.2033e-01_rb,4.3908e-01_rb,6.5775e-01_rb,8.7643e-01_rb,1.0950e+00_rb, &
+     &1.3134e+00_rb,1.5311e+00_rb,1.7514e+00_rb/)
+      kao(:, 2, 5,12) = (/ &
+     &6.8848e-02_rb,2.7720e-01_rb,5.5265e-01_rb,8.2808e-01_rb,1.1036e+00_rb,1.3787e+00_rb, &
+     &1.6538e+00_rb,1.9275e+00_rb,2.2056e+00_rb/)
+      kao(:, 3, 5,12) = (/ &
+     &6.6971e-02_rb,3.3853e-01_rb,6.7513e-01_rb,1.0119e+00_rb,1.3485e+00_rb,1.6854e+00_rb, &
+     &2.0224e+00_rb,2.3592e+00_rb,2.6952e+00_rb/)
+      kao(:, 4, 5,12) = (/ &
+     &6.5365e-02_rb,4.0161e-01_rb,8.0132e-01_rb,1.2011e+00_rb,1.6012e+00_rb,2.0009e+00_rb, &
+     &2.4008e+00_rb,2.8038e+00_rb,3.2005e+00_rb/)
+      kao(:, 5, 5,12) = (/ &
+     &6.3431e-02_rb,4.6828e-01_rb,9.3456e-01_rb,1.4005e+00_rb,1.8671e+00_rb,2.3331e+00_rb, &
+     &2.7981e+00_rb,3.2640e+00_rb,3.7323e+00_rb/)
+      kao(:, 1, 6,12) = (/ &
+     &1.3973e-01_rb,2.0662e-01_rb,3.6962e-01_rb,5.5318e-01_rb,7.3681e-01_rb,9.2064e-01_rb, &
+     &1.1045e+00_rb,1.2891e+00_rb,1.4713e+00_rb/)
+      kao(:, 2, 6,12) = (/ &
+     &1.3671e-01_rb,2.4877e-01_rb,4.7403e-01_rb,7.0978e-01_rb,9.4572e-01_rb,1.1814e+00_rb, &
+     &1.4179e+00_rb,1.6551e+00_rb,1.8888e+00_rb/)
+      kao(:, 3, 6,12) = (/ &
+     &1.3368e-01_rb,2.9917e-01_rb,5.8968e-01_rb,8.8312e-01_rb,1.1767e+00_rb,1.4704e+00_rb, &
+     &1.7646e+00_rb,2.0602e+00_rb,2.3507e+00_rb/)
+      kao(:, 4, 6,12) = (/ &
+     &1.2994e-01_rb,3.5894e-01_rb,7.1459e-01_rb,1.0704e+00_rb,1.4263e+00_rb,1.7824e+00_rb, &
+     &2.1385e+00_rb,2.4959e+00_rb,2.8498e+00_rb/)
+      kao(:, 5, 6,12) = (/ &
+     &1.2525e-01_rb,4.2650e-01_rb,8.4975e-01_rb,1.2729e+00_rb,1.6963e+00_rb,2.1200e+00_rb, &
+     &2.5435e+00_rb,2.9674e+00_rb,3.3897e+00_rb/)
+      kao(:, 1, 7,12) = (/ &
+     &2.8974e-01_rb,3.1610e-01_rb,3.5823e-01_rb,4.6930e-01_rb,6.1329e-01_rb,7.6583e-01_rb, &
+     &9.1850e-01_rb,1.0715e+00_rb,1.2231e+00_rb/)
+      kao(:, 2, 7,12) = (/ &
+     &2.8480e-01_rb,3.2946e-01_rb,4.3038e-01_rb,6.0019e-01_rb,7.9796e-01_rb,9.9665e-01_rb, &
+     &1.1955e+00_rb,1.3949e+00_rb,1.5921e+00_rb/)
+      kao(:, 3, 7,12) = (/ &
+     &2.7871e-01_rb,3.5067e-01_rb,5.1857e-01_rb,7.5801e-01_rb,1.0094e+00_rb,1.2608e+00_rb, &
+     &1.5125e+00_rb,1.7653e+00_rb,2.0145e+00_rb/)
+      kao(:, 4, 7,12) = (/ &
+     &2.7300e-01_rb,3.8461e-01_rb,6.2621e-01_rb,9.3301e-01_rb,1.2423e+00_rb,1.5518e+00_rb, &
+     &1.8620e+00_rb,2.1734e+00_rb,2.4799e+00_rb/)
+      kao(:, 5, 7,12) = (/ &
+     &2.6591e-01_rb,4.2736e-01_rb,7.5270e-01_rb,1.1266e+00_rb,1.5003e+00_rb,1.8747e+00_rb, &
+     &2.2489e+00_rb,2.6247e+00_rb,2.9958e+00_rb/)
+      kao(:, 1, 8,12) = (/ &
+     &7.1395e-01_rb,6.8533e-01_rb,6.5866e-01_rb,6.2646e-01_rb,6.1056e-01_rb,6.5589e-01_rb, &
+     &7.5232e-01_rb,8.7691e-01_rb,1.0005e+00_rb/)
+      kao(:, 2, 8,12) = (/ &
+     &7.0494e-01_rb,6.9398e-01_rb,6.9094e-01_rb,6.7668e-01_rb,7.2746e-01_rb,8.4153e-01_rb, &
+     &1.0006e+00_rb,1.1668e+00_rb,1.3319e+00_rb/)
+      kao(:, 3, 8,12) = (/ &
+     &6.9397e-01_rb,7.0598e-01_rb,7.2266e-01_rb,7.6185e-01_rb,8.8476e-01_rb,1.0705e+00_rb, &
+     &1.2831e+00_rb,1.4961e+00_rb,1.7076e+00_rb/)
+      kao(:, 4, 8,12) = (/ &
+     &6.8087e-01_rb,7.2362e-01_rb,7.6721e-01_rb,8.7767e-01_rb,1.0787e+00_rb,1.3359e+00_rb, &
+     &1.6015e+00_rb,1.8678e+00_rb,2.1324e+00_rb/)
+      kao(:, 5, 8,12) = (/ &
+     &6.7139e-01_rb,7.3688e-01_rb,8.3187e-01_rb,1.0246e+00_rb,1.3106e+00_rb,1.6352e+00_rb, &
+     &1.9607e+00_rb,2.2865e+00_rb,2.6110e+00_rb/)
+      kao(:, 1, 9,12) = (/ &
+     &3.4095e+00_rb,2.9940e+00_rb,2.6084e+00_rb,2.2712e+00_rb,1.8987e+00_rb,1.5323e+00_rb, &
+     &1.1724e+00_rb,8.1780e-01_rb,4.0421e-01_rb/)
+      kao(:, 2, 9,12) = (/ &
+     &3.3693e+00_rb,2.9832e+00_rb,2.6354e+00_rb,2.2978e+00_rb,1.9462e+00_rb,1.6166e+00_rb, &
+     &1.2713e+00_rb,1.0128e+00_rb,5.1858e-01_rb/)
+      kao(:, 3, 9,12) = (/ &
+     &3.3273e+00_rb,2.9606e+00_rb,2.6476e+00_rb,2.3138e+00_rb,2.0240e+00_rb,1.7033e+00_rb, &
+     &1.3935e+00_rb,1.2814e+00_rb,6.1493e-01_rb/)
+      kao(:, 4, 9,12) = (/ &
+     &3.2577e+00_rb,2.9148e+00_rb,2.6437e+00_rb,2.3667e+00_rb,2.0968e+00_rb,1.8097e+00_rb, &
+     &1.5817e+00_rb,1.6061e+00_rb,8.7818e-01_rb/)
+      kao(:, 5, 9,12) = (/ &
+     &3.1999e+00_rb,2.9208e+00_rb,2.6366e+00_rb,2.4121e+00_rb,2.1879e+00_rb,1.9394e+00_rb, &
+     &1.8270e+00_rb,1.9776e+00_rb,1.4315e+00_rb/)
+      kao(:, 1,10,12) = (/ &
+     &1.8080e+01_rb,1.5820e+01_rb,1.3560e+01_rb,1.1300e+01_rb,9.1208e+00_rb,6.9174e+00_rb, &
+     &4.8050e+00_rb,2.5816e+00_rb,5.9225e-01_rb/)
+      kao(:, 2,10,12) = (/ &
+     &1.7863e+01_rb,1.5633e+01_rb,1.3401e+01_rb,1.1233e+01_rb,9.0719e+00_rb,6.9705e+00_rb, &
+     &4.8769e+00_rb,2.6813e+00_rb,6.3411e-01_rb/)
+      kao(:, 3,10,12) = (/ &
+     &1.7446e+01_rb,1.5265e+01_rb,1.3103e+01_rb,1.1057e+01_rb,9.0250e+00_rb,7.0448e+00_rb, &
+     &4.8922e+00_rb,2.7949e+00_rb,7.0806e-01_rb/)
+      kao(:, 4,10,12) = (/ &
+     &1.7175e+01_rb,1.5031e+01_rb,1.2961e+01_rb,1.0925e+01_rb,8.9744e+00_rb,7.0129e+00_rb, &
+     &4.9823e+00_rb,2.9347e+00_rb,1.2270e+00_rb/)
+      kao(:, 5,10,12) = (/ &
+     &1.6980e+01_rb,1.4865e+01_rb,1.2847e+01_rb,1.0927e+01_rb,9.0016e+00_rb,7.0557e+00_rb, &
+     &5.0460e+00_rb,3.0782e+00_rb,1.3161e+00_rb/)
+      kao(:, 1,11,12) = (/ &
+     &3.1621e+01_rb,2.7664e+01_rb,2.3716e+01_rb,1.9762e+01_rb,1.5836e+01_rb,1.2028e+01_rb, &
+     &8.3404e+00_rb,4.4951e+00_rb,7.7226e-01_rb/)
+      kao(:, 2,11,12) = (/ &
+     &3.1089e+01_rb,2.7197e+01_rb,2.3314e+01_rb,1.9432e+01_rb,1.5688e+01_rb,1.1946e+01_rb, &
+     &8.4568e+00_rb,4.5500e+00_rb,1.2396e+00_rb/)
+      kao(:, 3,11,12) = (/ &
+     &3.0576e+01_rb,2.6758e+01_rb,2.2933e+01_rb,1.9212e+01_rb,1.5533e+01_rb,1.1953e+01_rb, &
+     &8.4697e+00_rb,4.6829e+00_rb,1.0564e+00_rb/)
+      kao(:, 4,11,12) = (/ &
+     &3.0097e+01_rb,2.6346e+01_rb,2.2583e+01_rb,1.9026e+01_rb,1.5507e+01_rb,1.2181e+01_rb, &
+     &8.5232e+00_rb,4.7855e+00_rb,1.0613e+00_rb/)
+      kao(:, 5,11,12) = (/ &
+     &2.9719e+01_rb,2.6007e+01_rb,2.2377e+01_rb,1.8843e+01_rb,1.5650e+01_rb,1.2244e+01_rb, &
+     &8.6646e+00_rb,4.9270e+00_rb,1.7788e+00_rb/)
+      kao(:, 1,12,12) = (/ &
+     &3.8089e+01_rb,3.3321e+01_rb,2.8563e+01_rb,2.3805e+01_rb,1.9048e+01_rb,1.4479e+01_rb, &
+     &1.0042e+01_rb,5.5700e+00_rb,1.0139e+00_rb/)
+      kao(:, 2,12,12) = (/ &
+     &3.7254e+01_rb,3.2590e+01_rb,2.7941e+01_rb,2.3286e+01_rb,1.8814e+01_rb,1.4266e+01_rb, &
+     &1.0187e+01_rb,5.6505e+00_rb,1.3358e+00_rb/)
+      kao(:, 3,12,12) = (/ &
+     &3.6753e+01_rb,3.2149e+01_rb,2.7565e+01_rb,2.3058e+01_rb,1.8681e+01_rb,1.4515e+01_rb, &
+     &1.0441e+01_rb,5.8743e+00_rb,1.3962e+00_rb/)
+      kao(:, 4,12,12) = (/ &
+     &3.6095e+01_rb,3.1568e+01_rb,2.7073e+01_rb,2.2830e+01_rb,1.8483e+01_rb,1.4754e+01_rb, &
+     &1.0446e+01_rb,6.0858e+00_rb,1.2630e+00_rb/)
+      kao(:, 5,12,12) = (/ &
+     &3.5605e+01_rb,3.1165e+01_rb,2.6709e+01_rb,2.2579e+01_rb,1.8648e+01_rb,1.4780e+01_rb, &
+     &1.0721e+01_rb,6.3554e+00_rb,1.9400e+00_rb/)
+      kao(:, 1,13,12) = (/ &
+     &3.6373e+01_rb,3.1828e+01_rb,2.7282e+01_rb,2.2746e+01_rb,1.8235e+01_rb,1.3858e+01_rb, &
+     &9.7116e+00_rb,5.3620e+00_rb,1.4114e+00_rb/)
+      kao(:, 2,13,12) = (/ &
+     &3.6095e+01_rb,3.1587e+01_rb,2.7062e+01_rb,2.2560e+01_rb,1.8254e+01_rb,1.3864e+01_rb, &
+     &1.0010e+01_rb,5.5792e+00_rb,1.4567e+00_rb/)
+      kao(:, 3,13,12) = (/ &
+     &3.5583e+01_rb,3.1140e+01_rb,2.6700e+01_rb,2.2381e+01_rb,1.8087e+01_rb,1.4135e+01_rb, &
+     &1.0160e+01_rb,5.8997e+00_rb,1.1528e+00_rb/)
+      kao(:, 4,13,12) = (/ &
+     &3.5474e+01_rb,3.1045e+01_rb,2.6613e+01_rb,2.2429e+01_rb,1.8206e+01_rb,1.4545e+01_rb, &
+     &1.0311e+01_rb,6.1832e+00_rb,1.6292e+00_rb/)
+      kao(:, 5,13,12) = (/ &
+     &3.5565e+01_rb,3.1124e+01_rb,2.6773e+01_rb,2.2531e+01_rb,1.8670e+01_rb,1.4802e+01_rb, &
+     &1.0686e+01_rb,6.5577e+00_rb,2.3163e+00_rb/)
+      kao(:, 1, 1,13) = (/ &
+     &4.6813e-03_rb,5.0961e-01_rb,1.0176e+00_rb,1.5220e+00_rb,2.0224e+00_rb,2.5138e+00_rb, &
+     &2.9825e+00_rb,3.3723e+00_rb,4.0446e+00_rb/)
+      kao(:, 2, 1,13) = (/ &
+     &4.5378e-03_rb,5.9150e-01_rb,1.1812e+00_rb,1.7694e+00_rb,2.3540e+00_rb,2.9329e+00_rb, &
+     &3.4999e+00_rb,3.9983e+00_rb,4.7077e+00_rb/)
+      kao(:, 3, 1,13) = (/ &
+     &4.3993e-03_rb,6.8031e-01_rb,1.3585e+00_rb,2.0344e+00_rb,2.7071e+00_rb,3.3760e+00_rb, &
+     &4.0375e+00_rb,4.6330e+00_rb,5.4138e+00_rb/)
+      kao(:, 4, 1,13) = (/ &
+     &4.2648e-03_rb,7.8088e-01_rb,1.5583e+00_rb,2.3313e+00_rb,3.0997e+00_rb,3.8593e+00_rb, &
+     &4.5971e+00_rb,5.2655e+00_rb,6.1991e+00_rb/)
+      kao(:, 5, 1,13) = (/ &
+     &4.1347e-03_rb,8.9242e-01_rb,1.7790e+00_rb,2.6579e+00_rb,3.5250e+00_rb,4.3745e+00_rb, &
+     &5.1887e+00_rb,5.9002e+00_rb,7.0497e+00_rb/)
+      kao(:, 1, 2,13) = (/ &
+     &7.6228e-03_rb,4.9032e-01_rb,9.7924e-01_rb,1.4667e+00_rb,1.9517e+00_rb,2.4315e+00_rb, &
+     &2.8986e+00_rb,3.3149e+00_rb,3.9031e+00_rb/)
+      kao(:, 2, 2,13) = (/ &
+     &7.3845e-03_rb,5.7215e-01_rb,1.1423e+00_rb,1.7099e+00_rb,2.2735e+00_rb,2.8309e+00_rb, &
+     &3.3762e+00_rb,3.8853e+00_rb,4.5466e+00_rb/)
+      kao(:, 3, 2,13) = (/ &
+     &7.1668e-03_rb,6.6400e-01_rb,1.3252e+00_rb,1.9825e+00_rb,2.6343e+00_rb,3.2753e+00_rb, &
+     &3.8969e+00_rb,4.4792e+00_rb,5.2681e+00_rb/)
+      kao(:, 4, 2,13) = (/ &
+     &6.9674e-03_rb,7.6745e-01_rb,1.5306e+00_rb,2.2881e+00_rb,3.0362e+00_rb,3.7701e+00_rb, &
+     &4.4777e+00_rb,5.1450e+00_rb,6.0719e+00_rb/)
+      kao(:, 5, 2,13) = (/ &
+     &6.7870e-03_rb,8.8445e-01_rb,1.7639e+00_rb,2.6357e+00_rb,3.4964e+00_rb,4.3377e+00_rb, &
+     &5.1390e+00_rb,5.8595e+00_rb,6.9924e+00_rb/)
+      kao(:, 1, 3,13) = (/ &
+     &1.6838e-02_rb,4.6207e-01_rb,9.2280e-01_rb,1.3820e+00_rb,1.8387e+00_rb,2.2901e+00_rb, &
+     &2.7306e+00_rb,3.1427e+00_rb,3.6769e+00_rb/)
+      kao(:, 2, 3,13) = (/ &
+     &1.6384e-02_rb,5.4636e-01_rb,1.0908e+00_rb,1.6331e+00_rb,2.1721e+00_rb,2.7041e+00_rb, &
+     &3.2216e+00_rb,3.6963e+00_rb,4.3436e+00_rb/)
+      kao(:, 3, 3,13) = (/ &
+     &1.5944e-02_rb,6.4109e-01_rb,1.2798e+00_rb,1.9157e+00_rb,2.5468e+00_rb,3.1693e+00_rb, &
+     &3.7717e+00_rb,4.3145e+00_rb,5.0931e+00_rb/)
+      kao(:, 4, 3,13) = (/ &
+     &1.5558e-02_rb,7.4877e-01_rb,1.4944e+00_rb,2.2360e+00_rb,2.9707e+00_rb,3.6929e+00_rb, &
+     &4.3862e+00_rb,5.0013e+00_rb,5.9409e+00_rb/)
+      kao(:, 5, 3,13) = (/ &
+     &1.5161e-02_rb,8.6996e-01_rb,1.7361e+00_rb,2.5972e+00_rb,3.4498e+00_rb,4.2854e+00_rb, &
+     &5.0840e+00_rb,5.7719e+00_rb,6.8989e+00_rb/)
+      kao(:, 1, 4,13) = (/ &
+     &3.7812e-02_rb,4.2471e-01_rb,8.4847e-01_rb,1.2717e+00_rb,1.6944e+00_rb,2.1155e+00_rb, &
+     &2.5337e+00_rb,2.9379e+00_rb,3.3881e+00_rb/)
+      kao(:, 2, 4,13) = (/ &
+     &3.6812e-02_rb,5.1516e-01_rb,1.0290e+00_rb,1.5422e+00_rb,2.0538e+00_rb,2.5636e+00_rb, &
+     &3.0667e+00_rb,3.5462e+00_rb,4.1066e+00_rb/)
+      kao(:, 3, 4,13) = (/ &
+     &3.5849e-02_rb,6.1666e-01_rb,1.2316e+00_rb,1.8451e+00_rb,2.4569e+00_rb,3.0640e+00_rb, &
+     &3.6618e+00_rb,4.2232e+00_rb,4.9129e+00_rb/)
+      kao(:, 4, 4,13) = (/ &
+     &3.5079e-02_rb,7.3193e-01_rb,1.4618e+00_rb,2.1899e+00_rb,2.9146e+00_rb,3.6330e+00_rb, &
+     &4.3356e+00_rb,4.9789e+00_rb,5.8283e+00_rb/)
+      kao(:, 5, 4,13) = (/ &
+     &3.4393e-02_rb,8.5645e-01_rb,1.7103e+00_rb,2.5622e+00_rb,3.4100e+00_rb,4.2503e+00_rb, &
+     &5.0712e+00_rb,5.8174e+00_rb,6.8190e+00_rb/)
+      kao(:, 1, 5,13) = (/ &
+     &8.0627e-02_rb,3.8028e-01_rb,7.5923e-01_rb,1.1381e+00_rb,1.5165e+00_rb,1.8947e+00_rb, &
+     &2.2720e+00_rb,2.6453e+00_rb,3.0318e+00_rb/)
+      kao(:, 2, 5,13) = (/ &
+     &7.8562e-02_rb,4.7262e-01_rb,9.4356e-01_rb,1.4144e+00_rb,1.8847e+00_rb,2.3543e+00_rb, &
+     &2.8214e+00_rb,3.2802e+00_rb,3.7680e+00_rb/)
+      kao(:, 3, 5,13) = (/ &
+     &7.6982e-02_rb,5.7810e-01_rb,1.1544e+00_rb,1.7303e+00_rb,2.3053e+00_rb,2.8784e+00_rb, &
+     &3.4478e+00_rb,4.0008e+00_rb,4.6091e+00_rb/)
+      kao(:, 4, 5,13) = (/ &
+     &7.5657e-02_rb,6.9735e-01_rb,1.3928e+00_rb,2.0875e+00_rb,2.7814e+00_rb,3.4728e+00_rb, &
+     &4.1587e+00_rb,4.8230e+00_rb,5.5613e+00_rb/)
+      kao(:, 5, 5,13) = (/ &
+     &7.4333e-02_rb,8.2506e-01_rb,1.6482e+00_rb,2.4702e+00_rb,3.2916e+00_rb,4.1103e+00_rb, &
+     &4.9228e+00_rb,5.7104e+00_rb,6.5816e+00_rb/)
+      kao(:, 1, 6,13) = (/ &
+     &1.6425e-01_rb,3.3608e-01_rb,6.6609e-01_rb,9.9817e-01_rb,1.3302e+00_rb,1.6619e+00_rb, &
+     &1.9931e+00_rb,2.3215e+00_rb,2.6587e+00_rb/)
+      kao(:, 2, 6,13) = (/ &
+     &1.6074e-01_rb,4.2522e-01_rb,8.4831e-01_rb,1.2715e+00_rb,1.6941e+00_rb,2.1166e+00_rb, &
+     &2.5378e+00_rb,2.9543e+00_rb,3.3863e+00_rb/)
+      kao(:, 3, 6,13) = (/ &
+     &1.5834e-01_rb,5.2989e-01_rb,1.0574e+00_rb,1.5848e+00_rb,2.1117e+00_rb,2.6382e+00_rb, &
+     &3.1634e+00_rb,3.6820e+00_rb,4.2213e+00_rb/)
+      kao(:, 4, 6,13) = (/ &
+     &1.5607e-01_rb,6.4460e-01_rb,1.2868e+00_rb,1.9290e+00_rb,2.5707e+00_rb,3.2115e+00_rb, &
+     &3.8511e+00_rb,4.4833e+00_rb,5.1392e+00_rb/)
+      kao(:, 5, 6,13) = (/ &
+     &1.5296e-01_rb,7.6868e-01_rb,1.5350e+00_rb,2.3008e+00_rb,3.0663e+00_rb,3.8313e+00_rb, &
+     &4.5942e+00_rb,5.3490e+00_rb,6.1304e+00_rb/)
+      kao(:, 1, 7,13) = (/ &
+     &3.5667e-01_rb,3.9890e-01_rb,5.8897e-01_rb,8.6077e-01_rb,1.1469e+00_rb,1.4325e+00_rb, &
+     &1.7184e+00_rb,2.0036e+00_rb,2.2913e+00_rb/)
+      kao(:, 2, 7,13) = (/ &
+     &3.5161e-01_rb,4.4967e-01_rb,7.5040e-01_rb,1.1221e+00_rb,1.4950e+00_rb,1.8682e+00_rb, &
+     &2.2405e+00_rb,2.6119e+00_rb,2.9872e+00_rb/)
+      kao(:, 3, 7,13) = (/ &
+     &3.4606e-01_rb,5.1859e-01_rb,9.4635e-01_rb,1.4181e+00_rb,1.8897e+00_rb,2.3609e+00_rb, &
+     &2.8323e+00_rb,3.3018e+00_rb,3.7764e+00_rb/)
+      kao(:, 4, 7,13) = (/ &
+     &3.3825e-01_rb,6.0265e-01_rb,1.1668e+00_rb,1.7485e+00_rb,2.3304e+00_rb,2.9114e+00_rb, &
+     &3.4925e+00_rb,4.0716e+00_rb,4.6575e+00_rb/)
+      kao(:, 5, 7,13) = (/ &
+     &3.3043e-01_rb,7.1091e-01_rb,1.4088e+00_rb,2.1112e+00_rb,2.8136e+00_rb,3.5161e+00_rb, &
+     &4.2182e+00_rb,4.9170e+00_rb,5.6239e+00_rb/)
+      kao(:, 1, 8,13) = (/ &
+     &9.2067e-01_rb,8.6182e-01_rb,8.2952e-01_rb,8.7491e-01_rb,1.0086e+00_rb,1.2181e+00_rb, &
+     &1.4607e+00_rb,1.7034e+00_rb,1.9462e+00_rb/)
+      kao(:, 2, 8,13) = (/ &
+     &9.0671e-01_rb,8.7567e-01_rb,8.9610e-01_rb,1.0491e+00_rb,1.2996e+00_rb,1.6153e+00_rb, &
+     &1.9371e+00_rb,2.2592e+00_rb,2.5816e+00_rb/)
+      kao(:, 3, 8,13) = (/ &
+     &8.8973e-01_rb,8.8439e-01_rb,1.0044e+00_rb,1.2766e+00_rb,1.6623e+00_rb,2.0766e+00_rb, &
+     &2.4910e+00_rb,2.9049e+00_rb,3.3193e+00_rb/)
+      kao(:, 4, 8,13) = (/ &
+     &8.6846e-01_rb,9.1357e-01_rb,1.1469e+00_rb,1.5675e+00_rb,2.0797e+00_rb,2.5979e+00_rb, &
+     &3.1162e+00_rb,3.6352e+00_rb,4.1539e+00_rb/)
+      kao(:, 5, 8,13) = (/ &
+     &8.4664e-01_rb,9.6627e-01_rb,1.3262e+00_rb,1.9064e+00_rb,2.5399e+00_rb,3.1734e+00_rb, &
+     &3.8073e+00_rb,4.4405e+00_rb,5.0740e+00_rb/)
+      kao(:, 1, 9,13) = (/ &
+     &4.4067e+00_rb,3.8562e+00_rb,3.3799e+00_rb,2.9279e+00_rb,2.4898e+00_rb,2.0023e+00_rb, &
+     &1.6061e+00_rb,1.4556e+00_rb,5.3966e-01_rb/)
+      kao(:, 2, 9,13) = (/ &
+     &4.3584e+00_rb,3.8431e+00_rb,3.3719e+00_rb,2.9985e+00_rb,2.5395e+00_rb,2.1329e+00_rb, &
+     &1.8824e+00_rb,1.9290e+00_rb,1.2534e+00_rb/)
+      kao(:, 3, 9,13) = (/ &
+     &4.2715e+00_rb,3.7950e+00_rb,3.4185e+00_rb,3.0378e+00_rb,2.6388e+00_rb,2.3497e+00_rb, &
+     &2.2667e+00_rb,2.5092e+00_rb,2.3205e+00_rb/)
+      kao(:, 4, 9,13) = (/ &
+     &4.1934e+00_rb,3.7482e+00_rb,3.4519e+00_rb,3.0862e+00_rb,2.7969e+00_rb,2.6493e+00_rb, &
+     &2.7789e+00_rb,3.1851e+00_rb,3.5246e+00_rb/)
+      kao(:, 5, 9,13) = (/ &
+     &4.0917e+00_rb,3.7105e+00_rb,3.4634e+00_rb,3.1979e+00_rb,3.0093e+00_rb,3.0525e+00_rb, &
+     &3.4012e+00_rb,3.9555e+00_rb,4.5178e+00_rb/)
+      kao(:, 1,10,13) = (/ &
+     &2.3719e+01_rb,2.0753e+01_rb,1.7788e+01_rb,1.4825e+01_rb,1.1907e+01_rb,9.0621e+00_rb, &
+     &6.2541e+00_rb,3.4363e+00_rb,9.1814e-01_rb/)
+      kao(:, 2,10,13) = (/ &
+     &2.3432e+01_rb,2.0501e+01_rb,1.7571e+01_rb,1.4658e+01_rb,1.1890e+01_rb,9.0622e+00_rb, &
+     &6.4024e+00_rb,3.5910e+00_rb,1.1158e+00_rb/)
+      kao(:, 3,10,13) = (/ &
+     &2.3069e+01_rb,2.0187e+01_rb,1.7300e+01_rb,1.4541e+01_rb,1.1793e+01_rb,9.1570e+00_rb, &
+     &6.5099e+00_rb,3.8249e+00_rb,9.3188e-01_rb/)
+      kao(:, 4,10,13) = (/ &
+     &2.2641e+01_rb,1.9809e+01_rb,1.6998e+01_rb,1.4367e+01_rb,1.1776e+01_rb,9.2770e+00_rb, &
+     &6.6180e+00_rb,4.0885e+00_rb,9.9189e-01_rb/)
+      kao(:, 5,10,13) = (/ &
+     &2.2220e+01_rb,1.9436e+01_rb,1.6770e+01_rb,1.4187e+01_rb,1.1792e+01_rb,9.2910e+00_rb, &
+     &6.8771e+00_rb,4.4865e+00_rb,1.9399e+00_rb/)
+      kao(:, 1,11,13) = (/ &
+     &4.4319e+01_rb,3.8780e+01_rb,3.3240e+01_rb,2.7701e+01_rb,2.2160e+01_rb,1.6704e+01_rb, &
+     &1.1307e+01_rb,6.0563e+00_rb,5.8625e-01_rb/)
+      kao(:, 2,11,13) = (/ &
+     &4.3809e+01_rb,3.8330e+01_rb,3.2852e+01_rb,2.7376e+01_rb,2.1936e+01_rb,1.6626e+01_rb, &
+     &1.1378e+01_rb,6.1989e+00_rb,8.1730e-01_rb/)
+      kao(:, 3,11,13) = (/ &
+     &4.3202e+01_rb,3.7799e+01_rb,3.2400e+01_rb,2.7000e+01_rb,2.1788e+01_rb,1.6575e+01_rb, &
+     &1.1586e+01_rb,6.3577e+00_rb,1.8296e+00_rb/)
+      kao(:, 4,11,13) = (/ &
+     &4.2458e+01_rb,3.7147e+01_rb,3.1841e+01_rb,2.6621e+01_rb,2.1500e+01_rb,1.6577e+01_rb, &
+     &1.1663e+01_rb,6.6208e+00_rb,1.8735e+00_rb/)
+      kao(:, 5,11,13) = (/ &
+     &4.1634e+01_rb,3.6429e+01_rb,3.1221e+01_rb,2.6233e+01_rb,2.1246e+01_rb,1.6580e+01_rb, &
+     &1.1685e+01_rb,6.9092e+00_rb,1.7032e+00_rb/)
+      kao(:, 1,12,13) = (/ &
+     &6.1904e+01_rb,5.4167e+01_rb,4.6429e+01_rb,3.8690e+01_rb,3.0952e+01_rb,2.3248e+01_rb, &
+     &1.5661e+01_rb,8.2582e+00_rb,4.3930e-01_rb/)
+      kao(:, 2,12,13) = (/ &
+     &6.1270e+01_rb,5.3611e+01_rb,4.5953e+01_rb,3.8296e+01_rb,3.0637e+01_rb,2.3190e+01_rb, &
+     &1.5723e+01_rb,8.4338e+00_rb,1.2396e+00_rb/)
+      kao(:, 3,12,13) = (/ &
+     &6.0345e+01_rb,5.2802e+01_rb,4.5261e+01_rb,3.7714e+01_rb,3.0326e+01_rb,2.2898e+01_rb, &
+     &1.5824e+01_rb,8.5563e+00_rb,2.5106e+00_rb/)
+      kao(:, 4,12,13) = (/ &
+     &5.9306e+01_rb,5.1895e+01_rb,4.4474e+01_rb,3.7089e+01_rb,2.9895e+01_rb,2.2756e+01_rb, &
+     &1.5929e+01_rb,8.7873e+00_rb,2.2974e+00_rb/)
+      kao(:, 5,12,13) = (/ &
+     &5.8419e+01_rb,5.1111e+01_rb,4.3811e+01_rb,3.6683e+01_rb,2.9523e+01_rb,2.2821e+01_rb, &
+     &1.5911e+01_rb,9.0327e+00_rb,2.2973e+00_rb/)
+      kao(:, 1,13,13) = (/ &
+     &6.8544e+01_rb,5.9975e+01_rb,5.1408e+01_rb,4.2840e+01_rb,3.4272e+01_rb,2.5775e+01_rb, &
+     &1.7340e+01_rb,9.2235e+00_rb,4.0824e-01_rb/)
+      kao(:, 2,13,13) = (/ &
+     &6.7698e+01_rb,5.9233e+01_rb,5.0770e+01_rb,4.2312e+01_rb,3.3875e+01_rb,2.5602e+01_rb, &
+     &1.7402e+01_rb,9.3485e+00_rb,1.7747e+00_rb/)
+      kao(:, 3,13,13) = (/ &
+     &6.6803e+01_rb,5.8453e+01_rb,5.0103e+01_rb,4.1750e+01_rb,3.3601e+01_rb,2.5372e+01_rb, &
+     &1.7686e+01_rb,9.4660e+00_rb,2.9931e+00_rb/)
+      kao(:, 4,13,13) = (/ &
+     &6.5956e+01_rb,5.7706e+01_rb,4.9463e+01_rb,4.1288e+01_rb,3.3259e+01_rb,2.5336e+01_rb, &
+     &1.7750e+01_rb,9.7483e+00_rb,2.7732e+00_rb/)
+      kao(:, 5,13,13) = (/ &
+     &6.5110e+01_rb,5.6969e+01_rb,4.8829e+01_rb,4.0948e+01_rb,3.2989e+01_rb,2.5559e+01_rb, &
+     &1.7705e+01_rb,9.9706e+00_rb,2.2584e+00_rb/)
+      kao(:, 1, 1,14) = (/ &
+     &5.3617e-03_rb,8.8862e-01_rb,1.7657e+00_rb,2.6246e+00_rb,3.4547e+00_rb,4.2326e+00_rb, &
+     &4.9022e+00_rb,5.2848e+00_rb,6.9093e+00_rb/)
+      kao(:, 2, 1,14) = (/ &
+     &5.2510e-03_rb,1.0670e+00_rb,2.1191e+00_rb,3.1492e+00_rb,4.1423e+00_rb,5.0696e+00_rb, &
+     &5.8593e+00_rb,6.2778e+00_rb,8.2844e+00_rb/)
+      kao(:, 3, 1,14) = (/ &
+     &5.1410e-03_rb,1.2574e+00_rb,2.4970e+00_rb,3.7095e+00_rb,4.8778e+00_rb,5.9654e+00_rb, &
+     &6.8831e+00_rb,7.3419e+00_rb,9.7553e+00_rb/)
+      kao(:, 4, 1,14) = (/ &
+     &5.0266e-03_rb,1.4566e+00_rb,2.8932e+00_rb,4.2987e+00_rb,5.6515e+00_rb,6.9086e+00_rb, &
+     &7.9640e+00_rb,8.4651e+00_rb,1.1303e+01_rb/)
+      kao(:, 5, 1,14) = (/ &
+     &4.9104e-03_rb,1.6562e+00_rb,3.2920e+00_rb,4.8956e+00_rb,6.4440e+00_rb,7.8868e+00_rb, &
+     &9.0871e+00_rb,9.6375e+00_rb,1.2888e+01_rb/)
+      kao(:, 1, 2,14) = (/ &
+     &8.7449e-03_rb,9.0334e-01_rb,1.7988e+00_rb,2.6821e+00_rb,3.5450e+00_rb,4.3691e+00_rb, &
+     &5.1072e+00_rb,5.5794e+00_rb,7.0898e+00_rb/)
+      kao(:, 2, 2,14) = (/ &
+     &8.5771e-03_rb,1.0973e+00_rb,2.1846e+00_rb,3.2569e+00_rb,4.3031e+00_rb,5.3011e+00_rb, &
+     &6.1907e+00_rb,6.7403e+00_rb,8.6059e+00_rb/)
+      kao(:, 3, 2,14) = (/ &
+     &8.3757e-03_rb,1.3007e+00_rb,2.5910e+00_rb,3.8649e+00_rb,5.1100e+00_rb,6.3010e+00_rb, &
+     &7.3563e+00_rb,7.9915e+00_rb,1.0220e+01_rb/)
+      kao(:, 4, 2,14) = (/ &
+     &8.1726e-03_rb,1.5076e+00_rb,3.0039e+00_rb,4.4835e+00_rb,5.9326e+00_rb,7.3236e+00_rb, &
+     &8.5740e+00_rb,9.3177e+00_rb,1.1865e+01_rb/)
+      kao(:, 5, 2,14) = (/ &
+     &7.9706e-03_rb,1.7155e+00_rb,3.4194e+00_rb,5.1046e+00_rb,6.7592e+00_rb,8.3528e+00_rb, &
+     &9.7973e+00_rb,1.0700e+01_rb,1.3518e+01_rb/)
+      kao(:, 1, 3,14) = (/ &
+     &1.9310e-02_rb,8.7468e-01_rb,1.7453e+00_rb,2.6103e+00_rb,3.4663e+00_rb,4.3037e+00_rb, &
+     &5.0955e+00_rb,5.7297e+00_rb,6.9321e+00_rb/)
+      kao(:, 2, 3,14) = (/ &
+     &1.8969e-02_rb,1.0738e+00_rb,2.1432e+00_rb,3.2076e+00_rb,4.2608e+00_rb,5.2941e+00_rb, &
+     &6.2765e+00_rb,7.0620e+00_rb,8.5210e+00_rb/)
+      kao(:, 3, 3,14) = (/ &
+     &1.8605e-02_rb,1.2813e+00_rb,2.5582e+00_rb,3.8286e+00_rb,5.0883e+00_rb,6.3262e+00_rb, &
+     &7.5114e+00_rb,8.4846e+00_rb,1.0176e+01_rb/)
+      kao(:, 4, 3,14) = (/ &
+     &1.8213e-02_rb,1.4944e+00_rb,2.9835e+00_rb,4.4663e+00_rb,5.9372e+00_rb,7.3859e+00_rb, &
+     &8.7760e+00_rb,9.9435e+00_rb,1.1874e+01_rb/)
+      kao(:, 5, 3,14) = (/ &
+     &1.7876e-02_rb,1.7091e+00_rb,3.4131e+00_rb,5.1104e+00_rb,6.7954e+00_rb,8.4548e+00_rb, &
+     &1.0056e+01_rb,1.1421e+01_rb,1.3590e+01_rb/)
+      kao(:, 1, 4,14) = (/ &
+     &4.4344e-02_rb,8.3370e-01_rb,1.6650e+00_rb,2.4941e+00_rb,3.3185e+00_rb,4.1344e+00_rb, &
+     &4.9297e+00_rb,5.6430e+00_rb,6.6364e+00_rb/)
+      kao(:, 2, 4,14) = (/ &
+     &4.3566e-02_rb,1.0283e+00_rb,2.0545e+00_rb,3.0778e+00_rb,4.0971e+00_rb,5.1067e+00_rb, &
+     &6.0943e+00_rb,6.9950e+00_rb,8.1935e+00_rb/)
+      kao(:, 3, 4,14) = (/ &
+     &4.2932e-02_rb,1.2330e+00_rb,2.4636e+00_rb,3.6915e+00_rb,4.9148e+00_rb,6.1292e+00_rb, &
+     &7.3214e+00_rb,8.4254e+00_rb,9.8287e+00_rb/)
+      kao(:, 4, 4,14) = (/ &
+     &4.2251e-02_rb,1.4427e+00_rb,2.8831e+00_rb,4.3208e+00_rb,5.7549e+00_rb,7.1799e+00_rb, &
+     &8.5827e+00_rb,9.9037e+00_rb,1.1509e+01_rb/)
+      kao(:, 5, 4,14) = (/ &
+     &4.1551e-02_rb,1.6617e+00_rb,3.3208e+00_rb,4.9772e+00_rb,6.6290e+00_rb,8.2714e+00_rb, &
+     &9.8934e+00_rb,1.1428e+01_rb,1.3257e+01_rb/)
+      kao(:, 1, 5,14) = (/ &
+     &9.4754e-02_rb,7.8821e-01_rb,1.5748e+00_rb,2.3603e+00_rb,3.1437e+00_rb,3.9237e+00_rb, &
+     &4.6947e+00_rb,5.4302e+00_rb,6.2865e+00_rb/)
+      kao(:, 2, 5,14) = (/ &
+     &9.3575e-02_rb,9.7845e-01_rb,1.9550e+00_rb,2.9310e+00_rb,3.9047e+00_rb,4.8748e+00_rb, &
+     &5.8356e+00_rb,6.7595e+00_rb,7.8084e+00_rb/)
+      kao(:, 3, 5,14) = (/ &
+     &9.2188e-02_rb,1.1782e+00_rb,2.3547e+00_rb,3.5302e+00_rb,4.7038e+00_rb,5.8743e+00_rb, &
+     &7.0357e+00_rb,8.1610e+00_rb,9.4064e+00_rb/)
+      kao(:, 4, 5,14) = (/ &
+     &9.0816e-02_rb,1.3863e+00_rb,2.7710e+00_rb,4.1546e+00_rb,5.5362e+00_rb,6.9136e+00_rb, &
+     &8.2813e+00_rb,9.6122e+00_rb,1.1071e+01_rb/)
+      kao(:, 5, 5,14) = (/ &
+     &8.9641e-02_rb,1.6059e+00_rb,3.2095e+00_rb,4.8121e+00_rb,6.4122e+00_rb,8.0077e+00_rb, &
+     &9.5924e+00_rb,1.1136e+01_rb,1.2823e+01_rb/)
+      kao(:, 1, 6,14) = (/ &
+     &1.9317e-01_rb,7.2809e-01_rb,1.4547e+00_rb,2.1811e+00_rb,2.9065e+00_rb,3.6305e+00_rb, &
+     &4.3507e+00_rb,5.0577e+00_rb,5.8117e+00_rb/)
+      kao(:, 2, 6,14) = (/ &
+     &1.9031e-01_rb,9.0988e-01_rb,1.8182e+00_rb,2.7260e+00_rb,3.6329e+00_rb,4.5385e+00_rb, &
+     &5.4408e+00_rb,6.3293e+00_rb,7.2643e+00_rb/)
+      kao(:, 3, 6,14) = (/ &
+     &1.8758e-01_rb,1.1038e+00_rb,2.2061e+00_rb,3.3074e+00_rb,4.4083e+00_rb,5.5073e+00_rb, &
+     &6.6028e+00_rb,7.6822e+00_rb,8.8149e+00_rb/)
+      kao(:, 4, 6,14) = (/ &
+     &1.8516e-01_rb,1.3141e+00_rb,2.6258e+00_rb,3.9372e+00_rb,5.2485e+00_rb,6.5558e+00_rb, &
+     &7.8598e+00_rb,9.1449e+00_rb,1.0495e+01_rb/)
+      kao(:, 5, 6,14) = (/ &
+     &1.8433e-01_rb,1.5378e+00_rb,3.0732e+00_rb,4.6078e+00_rb,6.1419e+00_rb,7.6735e+00_rb, &
+     &9.1990e+00_rb,1.0701e+01_rb,1.2282e+01_rb/)
+      kao(:, 1, 7,14) = (/ &
+     &4.2545e-01_rb,7.0197e-01_rb,1.3229e+00_rb,1.9833e+00_rb,2.6434e+00_rb,3.3025e+00_rb, &
+     &3.9608e+00_rb,4.6133e+00_rb,5.2849e+00_rb/)
+      kao(:, 2, 7,14) = (/ &
+     &4.1807e-01_rb,8.4884e-01_rb,1.6721e+00_rb,2.5066e+00_rb,3.3410e+00_rb,4.1750e+00_rb, &
+     &5.0067e+00_rb,5.8326e+00_rb,6.6798e+00_rb/)
+      kao(:, 3, 7,14) = (/ &
+     &4.1332e-01_rb,1.0301e+00_rb,2.0577e+00_rb,3.0848e+00_rb,4.1118e+00_rb,5.1378e+00_rb, &
+     &6.1618e+00_rb,7.1777e+00_rb,8.2211e+00_rb/)
+      kao(:, 4, 7,14) = (/ &
+     &4.0936e-01_rb,1.2414e+00_rb,2.4798e+00_rb,3.7180e+00_rb,4.9556e+00_rb,6.1921e+00_rb, &
+     &7.4267e+00_rb,8.6520e+00_rb,9.9083e+00_rb/)
+      kao(:, 5, 7,14) = (/ &
+     &4.0685e-01_rb,1.4675e+00_rb,2.9318e+00_rb,4.3961e+00_rb,5.8593e+00_rb,7.3214e+00_rb, &
+     &8.7804e+00_rb,1.0230e+01_rb,1.1715e+01_rb/)
+      kao(:, 1, 8,14) = (/ &
+     &1.1195e+00_rb,1.0895e+00_rb,1.3598e+00_rb,1.7846e+00_rb,2.3466e+00_rb,2.9325e+00_rb, &
+     &3.5182e+00_rb,4.1012e+00_rb,4.6898e+00_rb/)
+      kao(:, 2, 8,14) = (/ &
+     &1.1037e+00_rb,1.1788e+00_rb,1.6176e+00_rb,2.2927e+00_rb,3.0553e+00_rb,3.8181e+00_rb, &
+     &4.5804e+00_rb,5.3406e+00_rb,6.1069e+00_rb/)
+      kao(:, 3, 8,14) = (/ &
+     &1.0884e+00_rb,1.2851e+00_rb,1.9342e+00_rb,2.8650e+00_rb,3.8186e+00_rb,4.7719e+00_rb, &
+     &5.7236e+00_rb,6.6739e+00_rb,7.6330e+00_rb/)
+      kao(:, 4, 8,14) = (/ &
+     &1.0777e+00_rb,1.3879e+00_rb,2.3316e+00_rb,3.4927e+00_rb,4.6551e+00_rb,5.8169e+00_rb, &
+     &6.9783e+00_rb,8.1364e+00_rb,9.3055e+00_rb/)
+      kao(:, 5, 8,14) = (/ &
+     &1.0697e+00_rb,1.5195e+00_rb,2.7843e+00_rb,4.1737e+00_rb,5.5632e+00_rb,6.9521e+00_rb, &
+     &8.3391e+00_rb,9.7222e+00_rb,1.1121e+01_rb/)
+      kao(:, 1, 9,14) = (/ &
+     &5.6190e+00_rb,4.9167e+00_rb,4.3250e+00_rb,3.7358e+00_rb,3.4047e+00_rb,3.1579e+00_rb, &
+     &3.1500e+00_rb,3.5459e+00_rb,3.9362e+00_rb/)
+      kao(:, 2, 9,14) = (/ &
+     &5.5255e+00_rb,4.8418e+00_rb,4.3146e+00_rb,3.9154e+00_rb,3.7623e+00_rb,3.7282e+00_rb, &
+     &4.0980e+00_rb,4.7612e+00_rb,5.4406e+00_rb/)
+      kao(:, 3, 9,14) = (/ &
+     &5.4430e+00_rb,4.8357e+00_rb,4.3573e+00_rb,4.2040e+00_rb,4.1594e+00_rb,4.5007e+00_rb, &
+     &5.2453e+00_rb,6.1166e+00_rb,6.9893e+00_rb/)
+      kao(:, 4, 9,14) = (/ &
+     &5.3842e+00_rb,4.8388e+00_rb,4.5334e+00_rb,4.4707e+00_rb,4.7073e+00_rb,5.4536e+00_rb, &
+     &6.5005e+00_rb,7.5810e+00_rb,8.6617e+00_rb/)
+      kao(:, 5, 9,14) = (/ &
+     &5.3385e+00_rb,4.8392e+00_rb,4.7032e+00_rb,4.7787e+00_rb,5.4197e+00_rb,6.5502e+00_rb, &
+     &7.8564e+00_rb,9.1615e+00_rb,1.0470e+01_rb/)
+      kao(:, 1,10,14) = (/ &
+     &3.1503e+01_rb,2.7564e+01_rb,2.3627e+01_rb,1.9689e+01_rb,1.5752e+01_rb,1.2029e+01_rb, &
+     &8.2850e+00_rb,5.0089e+00_rb,2.6421e-01_rb/)
+      kao(:, 2,10,14) = (/ &
+     &3.1041e+01_rb,2.7162e+01_rb,2.3282e+01_rb,1.9402e+01_rb,1.5696e+01_rb,1.2052e+01_rb, &
+     &8.5363e+00_rb,5.5767e+00_rb,1.2004e+00_rb/)
+      kao(:, 3,10,14) = (/ &
+     &3.0653e+01_rb,2.6822e+01_rb,2.2991e+01_rb,1.9210e+01_rb,1.5684e+01_rb,1.2101e+01_rb, &
+     &9.0343e+00_rb,6.3229e+00_rb,1.6811e+00_rb/)
+      kao(:, 4,10,14) = (/ &
+     &3.0330e+01_rb,2.6541e+01_rb,2.2749e+01_rb,1.9185e+01_rb,1.5678e+01_rb,1.2425e+01_rb, &
+     &9.5207e+00_rb,7.4497e+00_rb,1.5881e+00_rb/)
+      kao(:, 5,10,14) = (/ &
+     &2.9986e+01_rb,2.6238e+01_rb,2.2506e+01_rb,1.9078e+01_rb,1.5796e+01_rb,1.2833e+01_rb, &
+     &1.0036e+01_rb,8.8467e+00_rb,2.8996e+00_rb/)
+      kao(:, 1,11,14) = (/ &
+     &6.1029e+01_rb,5.3402e+01_rb,4.5771e+01_rb,3.8145e+01_rb,3.0515e+01_rb,2.2887e+01_rb, &
+     &1.5544e+01_rb,8.4710e+00_rb,5.1903e-01_rb/)
+      kao(:, 2,11,14) = (/ &
+     &6.0319e+01_rb,5.2777e+01_rb,4.5238e+01_rb,3.7700e+01_rb,3.0160e+01_rb,2.2857e+01_rb, &
+     &1.5622e+01_rb,8.8835e+00_rb,1.0450e+00_rb/)
+      kao(:, 3,11,14) = (/ &
+     &5.9632e+01_rb,5.2177e+01_rb,4.4723e+01_rb,3.7270e+01_rb,2.9909e+01_rb,2.2818e+01_rb, &
+     &1.5829e+01_rb,9.3768e+00_rb,1.3014e+00_rb/)
+      kao(:, 4,11,14) = (/ &
+     &5.9020e+01_rb,5.1642e+01_rb,4.4266e+01_rb,3.6888e+01_rb,2.9847e+01_rb,2.2764e+01_rb, &
+     &1.6262e+01_rb,9.9702e+00_rb,2.2647e+00_rb/)
+      kao(:, 5,11,14) = (/ &
+     &5.8283e+01_rb,5.0998e+01_rb,4.3714e+01_rb,3.6531e+01_rb,2.9620e+01_rb,2.3044e+01_rb, &
+     &1.6667e+01_rb,1.0858e+01_rb,2.1604e+00_rb/)
+      kao(:, 1,12,14) = (/ &
+     &8.6818e+01_rb,7.5961e+01_rb,6.5105e+01_rb,5.4264e+01_rb,4.3410e+01_rb,3.2557e+01_rb, &
+     &2.1958e+01_rb,1.1756e+01_rb,1.0818e+00_rb/)
+      kao(:, 2,12,14) = (/ &
+     &8.5898e+01_rb,7.5160e+01_rb,6.4423e+01_rb,5.3685e+01_rb,4.2947e+01_rb,3.2329e+01_rb, &
+     &2.1951e+01_rb,1.2183e+01_rb,6.2703e-01_rb/)
+      kao(:, 3,12,14) = (/ &
+     &8.4970e+01_rb,7.4354e+01_rb,6.3731e+01_rb,5.3109e+01_rb,4.2485e+01_rb,3.2310e+01_rb, &
+     &2.2149e+01_rb,1.2602e+01_rb,1.0531e+00_rb/)
+      kao(:, 4,12,14) = (/ &
+     &8.4043e+01_rb,7.3537e+01_rb,6.3034e+01_rb,5.2533e+01_rb,4.2288e+01_rb,3.2140e+01_rb, &
+     &2.2696e+01_rb,1.3012e+01_rb,4.3852e+00_rb/)
+      kao(:, 5,12,14) = (/ &
+     &8.3130e+01_rb,7.2745e+01_rb,6.2351e+01_rb,5.1964e+01_rb,4.2084e+01_rb,3.2159e+01_rb, &
+     &2.3067e+01_rb,1.3670e+01_rb,3.1697e+00_rb/)
+      kao(:, 1,13,14) = (/ &
+     &9.9062e+01_rb,8.6679e+01_rb,7.4295e+01_rb,6.1914e+01_rb,4.9531e+01_rb,3.7148e+01_rb, &
+     &2.5053e+01_rb,1.3336e+01_rb,1.0355e+00_rb/)
+      kao(:, 2,13,14) = (/ &
+     &9.8005e+01_rb,8.5755e+01_rb,7.3503e+01_rb,6.1254e+01_rb,4.9004e+01_rb,3.6913e+01_rb, &
+     &2.4991e+01_rb,1.3937e+01_rb,6.5467e-01_rb/)
+      kao(:, 3,13,14) = (/ &
+     &9.6910e+01_rb,8.4797e+01_rb,7.2683e+01_rb,6.0573e+01_rb,4.8483e+01_rb,3.6814e+01_rb, &
+     &2.5110e+01_rb,1.4339e+01_rb,1.8215e+00_rb/)
+      kao(:, 4,13,14) = (/ &
+     &9.5837e+01_rb,8.3857e+01_rb,7.1882e+01_rb,5.9896e+01_rb,4.8229e+01_rb,3.6584e+01_rb, &
+     &2.5752e+01_rb,1.4680e+01_rb,4.3881e+00_rb/)
+      kao(:, 5,13,14) = (/ &
+     &9.4386e+01_rb,8.2585e+01_rb,7.0788e+01_rb,5.9024e+01_rb,4.7765e+01_rb,3.6452e+01_rb, &
+     &2.6308e+01_rb,1.5330e+01_rb,4.3734e+00_rb/)
+      kao(:, 1, 1,15) = (/ &
+     &6.2662e-03_rb,2.0747e+00_rb,4.1170e+00_rb,6.1089e+00_rb,8.0146e+00_rb,9.7584e+00_rb, &
+     &1.1145e+01_rb,1.1422e+01_rb,1.6029e+01_rb/)
+      kao(:, 2, 1,15) = (/ &
+     &6.1351e-03_rb,2.4271e+00_rb,4.8178e+00_rb,7.1504e+00_rb,9.3877e+00_rb,1.1443e+01_rb, &
+     &1.3088e+01_rb,1.3461e+01_rb,1.8775e+01_rb/)
+      kao(:, 3, 1,15) = (/ &
+     &6.0097e-03_rb,2.7826e+00_rb,5.5248e+00_rb,8.2041e+00_rb,1.0775e+01_rb,1.3145e+01_rb, &
+     &1.5060e+01_rb,1.5543e+01_rb,2.1551e+01_rb/)
+      kao(:, 4, 1,15) = (/ &
+     &5.9020e-03_rb,3.1403e+00_rb,6.2337e+00_rb,9.2578e+00_rb,1.2161e+01_rb,1.4850e+01_rb, &
+     &1.7039e+01_rb,1.7642e+01_rb,2.4321e+01_rb/)
+      kao(:, 5, 1,15) = (/ &
+     &5.8030e-03_rb,3.5098e+00_rb,6.9636e+00_rb,1.0331e+01_rb,1.3560e+01_rb,1.6533e+01_rb, &
+     &1.8991e+01_rb,1.9724e+01_rb,2.7120e+01_rb/)
+      kao(:, 1, 2,15) = (/ &
+     &1.0266e-02_rb,2.1405e+00_rb,4.2622e+00_rb,6.3547e+00_rb,8.3970e+00_rb,1.0344e+01_rb, &
+     &1.2064e+01_rb,1.2985e+01_rb,1.6794e+01_rb/)
+      kao(:, 2, 2,15) = (/ &
+     &1.0014e-02_rb,2.5163e+00_rb,5.0119e+00_rb,7.4752e+00_rb,9.8815e+00_rb,1.2172e+01_rb, &
+     &1.4218e+01_rb,1.5356e+01_rb,1.9763e+01_rb/)
+      kao(:, 3, 2,15) = (/ &
+     &9.8638e-03_rb,2.9079e+00_rb,5.7890e+00_rb,8.6292e+00_rb,1.1401e+01_rb,1.4046e+01_rb, &
+     &1.6408e+01_rb,1.7772e+01_rb,2.2802e+01_rb/)
+      kao(:, 4, 2,15) = (/ &
+     &9.7234e-03_rb,3.3191e+00_rb,6.6057e+00_rb,9.8408e+00_rb,1.2995e+01_rb,1.5989e+01_rb, &
+     &1.8633e+01_rb,2.0195e+01_rb,2.5989e+01_rb/)
+      kao(:, 5, 2,15) = (/ &
+     &9.5893e-03_rb,3.7435e+00_rb,7.4476e+00_rb,1.1096e+01_rb,1.4644e+01_rb,1.8006e+01_rb, &
+     &2.0946e+01_rb,2.2600e+01_rb,2.9288e+01_rb/)
+      kao(:, 1, 3,15) = (/ &
+     &2.3937e-02_rb,2.0884e+00_rb,4.1689e+00_rb,6.2403e+00_rb,8.2897e+00_rb,1.0301e+01_rb, &
+     &1.2219e+01_rb,1.3769e+01_rb,1.6579e+01_rb/)
+      kao(:, 2, 3,15) = (/ &
+     &2.3289e-02_rb,2.4959e+00_rb,4.9798e+00_rb,7.4513e+00_rb,9.8967e+00_rb,1.2286e+01_rb, &
+     &1.4557e+01_rb,1.6412e+01_rb,1.9793e+01_rb/)
+      kao(:, 3, 3,15) = (/ &
+     &2.2745e-02_rb,2.9294e+00_rb,5.8465e+00_rb,8.7448e+00_rb,1.1610e+01_rb,1.4408e+01_rb, &
+     &1.7054e+01_rb,1.9158e+01_rb,2.3219e+01_rb/)
+      kao(:, 4, 3,15) = (/ &
+     &2.2330e-02_rb,3.3848e+00_rb,6.7550e+00_rb,1.0101e+01_rb,1.3409e+01_rb,1.6637e+01_rb, &
+     &1.9679e+01_rb,2.2057e+01_rb,2.6817e+01_rb/)
+      kao(:, 5, 3,15) = (/ &
+     &2.1962e-02_rb,3.8549e+00_rb,7.6925e+00_rb,1.1504e+01_rb,1.5265e+01_rb,1.8935e+01_rb, &
+     &2.2399e+01_rb,2.5067e+01_rb,3.0529e+01_rb/)
+      kao(:, 1, 4,15) = (/ &
+     &5.8511e-02_rb,1.9940e+00_rb,3.9844e+00_rb,5.9687e+00_rb,7.9437e+00_rb,9.9016e+00_rb, &
+     &1.1811e+01_rb,1.3553e+01_rb,1.5887e+01_rb/)
+      kao(:, 2, 4,15) = (/ &
+     &5.6982e-02_rb,2.4233e+00_rb,4.8420e+00_rb,7.2530e+00_rb,9.6512e+00_rb,1.2029e+01_rb, &
+     &1.4341e+01_rb,1.6438e+01_rb,1.9302e+01_rb/)
+      kao(:, 3, 4,15) = (/ &
+     &5.5673e-02_rb,2.8886e+00_rb,5.7711e+00_rb,8.6444e+00_rb,1.1501e+01_rb,1.4329e+01_rb, &
+     &1.7084e+01_rb,1.9562e+01_rb,2.3002e+01_rb/)
+      kao(:, 4, 4,15) = (/ &
+     &5.4580e-02_rb,3.3869e+00_rb,6.7661e+00_rb,1.0134e+01_rb,1.3482e+01_rb,1.6795e+01_rb, &
+     &2.0015e+01_rb,2.2895e+01_rb,2.6964e+01_rb/)
+      kao(:, 5, 4,15) = (/ &
+     &5.3615e-02_rb,3.9077e+00_rb,7.8058e+00_rb,1.1691e+01_rb,1.5555e+01_rb,1.9373e+01_rb, &
+     &2.3083e+01_rb,2.6384e+01_rb,3.1109e+01_rb/)
+      kao(:, 1, 5,15) = (/ &
+     &1.2989e-01_rb,1.8900e+00_rb,3.7783e+00_rb,5.6637e+00_rb,7.5463e+00_rb,9.4177e+00_rb, &
+     &1.1267e+01_rb,1.3028e+01_rb,1.5093e+01_rb/)
+      kao(:, 2, 5,15) = (/ &
+     &1.2665e-01_rb,2.3422e+00_rb,4.6829e+00_rb,7.0179e+00_rb,9.3476e+00_rb,1.1662e+01_rb, &
+     &1.3953e+01_rb,1.6125e+01_rb,1.8695e+01_rb/)
+      kao(:, 3, 5,15) = (/ &
+     &1.2397e-01_rb,2.8405e+00_rb,5.6772e+00_rb,8.5098e+00_rb,1.1334e+01_rb,1.4142e+01_rb, &
+     &1.6912e+01_rb,1.9527e+01_rb,2.2668e+01_rb/)
+      kao(:, 4, 5,15) = (/ &
+     &1.2164e-01_rb,3.3767e+00_rb,6.7490e+00_rb,1.0116e+01_rb,1.3472e+01_rb,1.6807e+01_rb, &
+     &2.0097e+01_rb,2.3197e+01_rb,2.6943e+01_rb/)
+      kao(:, 5, 5,15) = (/ &
+     &1.1945e-01_rb,3.9432e+00_rb,7.8814e+00_rb,1.1812e+01_rb,1.5732e+01_rb,1.9624e+01_rb, &
+     &2.3463e+01_rb,2.7077e+01_rb,3.1463e+01_rb/)
+      kao(:, 1, 6,15) = (/ &
+     &2.7269e-01_rb,1.7592e+00_rb,3.5166e+00_rb,5.2733e+00_rb,7.0272e+00_rb,8.7771e+00_rb, &
+     &1.0515e+01_rb,1.2209e+01_rb,1.4054e+01_rb/)
+      kao(:, 2, 6,15) = (/ &
+     &2.6586e-01_rb,2.2331e+00_rb,4.4644e+00_rb,6.6948e+00_rb,8.9210e+00_rb,1.1141e+01_rb, &
+     &1.3343e+01_rb,1.5486e+01_rb,1.7841e+01_rb/)
+      kao(:, 3, 6,15) = (/ &
+     &2.5987e-01_rb,2.7625e+00_rb,5.5224e+00_rb,8.2799e+00_rb,1.1033e+01_rb,1.3778e+01_rb, &
+     &1.6504e+01_rb,1.9146e+01_rb,2.2064e+01_rb/)
+      kao(:, 4, 6,15) = (/ &
+     &2.5470e-01_rb,3.3380e+00_rb,6.6713e+00_rb,1.0004e+01_rb,1.3331e+01_rb,1.6646e+01_rb, &
+     &1.9934e+01_rb,2.3121e+01_rb,2.6661e+01_rb/)
+      kao(:, 5, 6,15) = (/ &
+     &2.4980e-01_rb,3.9509e+00_rb,7.8982e+00_rb,1.1841e+01_rb,1.5778e+01_rb,1.9702e+01_rb, &
+     &2.3595e+01_rb,2.7362e+01_rb,3.1554e+01_rb/)
+      kao(:, 1, 7,15) = (/ &
+     &6.0751e-01_rb,1.6155e+00_rb,3.2295e+00_rb,4.8433e+00_rb,6.4556e+00_rb,8.0666e+00_rb, &
+     &9.6721e+00_rb,1.1255e+01_rb,1.2910e+01_rb/)
+      kao(:, 2, 7,15) = (/ &
+     &5.9214e-01_rb,2.1056e+00_rb,4.2107e+00_rb,6.3119e+00_rb,8.4131e+00_rb,1.0511e+01_rb, &
+     &1.2602e+01_rb,1.4667e+01_rb,1.6825e+01_rb/)
+      kao(:, 3, 7,15) = (/ &
+     &5.7904e-01_rb,2.6613e+00_rb,5.3198e+00_rb,7.9772e+00_rb,1.0632e+01_rb,1.3285e+01_rb, &
+     &1.5925e+01_rb,1.8528e+01_rb,2.1262e+01_rb/)
+      kao(:, 4, 7,15) = (/ &
+     &5.6819e-01_rb,3.2710e+00_rb,6.5412e+00_rb,9.8097e+00_rb,1.3074e+01_rb,1.6330e+01_rb, &
+     &1.9581e+01_rb,2.2775e+01_rb,2.6146e+01_rb/)
+      kao(:, 5, 7,15) = (/ &
+     &5.5940e-01_rb,3.9287e+00_rb,7.8537e+00_rb,1.1777e+01_rb,1.5697e+01_rb,1.9610e+01_rb, &
+     &2.3510e+01_rb,2.7346e+01_rb,3.1392e+01_rb/)
+      kao(:, 1, 8,15) = (/ &
+     &1.5944e+00_rb,1.8253e+00_rb,2.9741e+00_rb,4.4602e+00_rb,5.9464e+00_rb,7.4314e+00_rb, &
+     &8.9145e+00_rb,1.0387e+01_rb,1.1892e+01_rb/)
+      kao(:, 2, 8,15) = (/ &
+     &1.5557e+00_rb,2.1022e+00_rb,3.9278e+00_rb,5.8889e+00_rb,7.8512e+00_rb,9.8106e+00_rb, &
+     &1.1770e+01_rb,1.3716e+01_rb,1.5700e+01_rb/)
+      kao(:, 3, 8,15) = (/ &
+     &1.5271e+00_rb,2.5583e+00_rb,5.0719e+00_rb,7.6057e+00_rb,1.0139e+01_rb,1.2670e+01_rb, &
+     &1.5200e+01_rb,1.7713e+01_rb,2.0275e+01_rb/)
+      kao(:, 4, 8,15) = (/ &
+     &1.5040e+00_rb,3.1773e+00_rb,6.3513e+00_rb,9.5214e+00_rb,1.2692e+01_rb,1.5861e+01_rb, &
+     &1.9025e+01_rb,2.2168e+01_rb,2.5379e+01_rb/)
+      kao(:, 5, 8,15) = (/ &
+     &1.4829e+00_rb,3.8723e+00_rb,7.7385e+00_rb,1.1605e+01_rb,1.5469e+01_rb,1.9331e+01_rb, &
+     &2.3189e+01_rb,2.7019e+01_rb,3.0932e+01_rb/)
+      kao(:, 1, 9,15) = (/ &
+     &7.9603e+00_rb,6.9650e+00_rb,6.1670e+00_rb,5.9409e+00_rb,5.9163e+00_rb,6.8445e+00_rb, &
+     &8.2104e+00_rb,9.5758e+00_rb,1.0949e+01_rb/)
+      kao(:, 2, 9,15) = (/ &
+     &7.7491e+00_rb,6.7807e+00_rb,6.5143e+00_rb,6.5222e+00_rb,7.4209e+00_rb,9.1698e+00_rb, &
+     &1.1001e+01_rb,1.2830e+01_rb,1.4668e+01_rb/)
+      kao(:, 3, 9,15) = (/ &
+     &7.6260e+00_rb,6.7058e+00_rb,6.8127e+00_rb,7.5772e+00_rb,9.5702e+00_rb,1.1961e+01_rb, &
+     &1.4350e+01_rb,1.6735e+01_rb,1.9129e+01_rb/)
+      kao(:, 4, 9,15) = (/ &
+     &7.5222e+00_rb,6.8189e+00_rb,7.2464e+00_rb,9.2266e+00_rb,1.2156e+01_rb,1.5192e+01_rb, &
+     &1.8221e+01_rb,2.1251e+01_rb,2.4297e+01_rb/)
+      kao(:, 5, 9,15) = (/ &
+     &7.4213e+00_rb,6.9850e+00_rb,8.1141e+00_rb,1.1288e+01_rb,1.5041e+01_rb,1.8797e+01_rb, &
+     &2.2550e+01_rb,2.6298e+01_rb,3.0063e+01_rb/)
+      kao(:, 1,10,15) = (/ &
+     &4.4970e+01_rb,3.9351e+01_rb,3.3728e+01_rb,2.8106e+01_rb,2.2484e+01_rb,1.7001e+01_rb, &
+     &1.2662e+01_rb,9.3833e+00_rb,3.0844e+00_rb/)
+      kao(:, 2,10,15) = (/ &
+     &4.3703e+01_rb,3.8241e+01_rb,3.2779e+01_rb,2.7313e+01_rb,2.1862e+01_rb,1.7553e+01_rb, &
+     &1.3621e+01_rb,1.2273e+01_rb,6.8989e+00_rb/)
+      kao(:, 3,10,15) = (/ &
+     &4.2828e+01_rb,3.7472e+01_rb,3.2122e+01_rb,2.6765e+01_rb,2.2087e+01_rb,1.8341e+01_rb, &
+     &1.5372e+01_rb,1.6156e+01_rb,1.4584e+01_rb/)
+      kao(:, 4,10,15) = (/ &
+     &4.2192e+01_rb,3.6921e+01_rb,3.1646e+01_rb,2.6524e+01_rb,2.2776e+01_rb,1.9260e+01_rb, &
+     &1.8346e+01_rb,2.0694e+01_rb,2.3643e+01_rb/)
+      kao(:, 5,10,15) = (/ &
+     &4.1609e+01_rb,3.6411e+01_rb,3.1210e+01_rb,2.6835e+01_rb,2.3359e+01_rb,2.1143e+01_rb, &
+     &2.2256e+01_rb,2.5773e+01_rb,2.9447e+01_rb/)
+      kao(:, 1,11,15) = (/ &
+     &8.7878e+01_rb,7.6892e+01_rb,6.5913e+01_rb,5.4929e+01_rb,4.3942e+01_rb,3.2958e+01_rb, &
+     &2.2278e+01_rb,1.3146e+01_rb,1.2934e+00_rb/)
+      kao(:, 2,11,15) = (/ &
+     &8.5528e+01_rb,7.4837e+01_rb,6.4148e+01_rb,5.3454e+01_rb,4.2765e+01_rb,3.2087e+01_rb, &
+     &2.2860e+01_rb,1.5064e+01_rb,9.2095e-01_rb/)
+      kao(:, 3,11,15) = (/ &
+     &8.3842e+01_rb,7.3371e+01_rb,6.2884e+01_rb,5.2405e+01_rb,4.1923e+01_rb,3.2241e+01_rb, &
+     &2.3615e+01_rb,1.8250e+01_rb,5.0549e+00_rb/)
+      kao(:, 4,11,15) = (/ &
+     &8.2422e+01_rb,7.2123e+01_rb,6.1819e+01_rb,5.1515e+01_rb,4.1404e+01_rb,3.2935e+01_rb, &
+     &2.5033e+01_rb,2.2612e+01_rb,1.1342e+01_rb/)
+      kao(:, 5,11,15) = (/ &
+     &8.1155e+01_rb,7.1009e+01_rb,6.0866e+01_rb,5.0722e+01_rb,4.1664e+01_rb,3.3361e+01_rb, &
+     &2.7672e+01_rb,2.7836e+01_rb,2.1588e+01_rb/)
+      kao(:, 1,12,15) = (/ &
+     &1.2764e+02_rb,1.1168e+02_rb,9.5717e+01_rb,7.9766e+01_rb,6.3821e+01_rb,4.7862e+01_rb, &
+     &3.1927e+01_rb,1.7517e+01_rb,5.0733e-04_rb/)
+      kao(:, 2,12,15) = (/ &
+     &1.2458e+02_rb,1.0901e+02_rb,9.3437e+01_rb,7.7867e+01_rb,6.2287e+01_rb,4.6718e+01_rb, &
+     &3.2041e+01_rb,1.8889e+01_rb,1.2295e+00_rb/)
+      kao(:, 3,12,15) = (/ &
+     &1.2214e+02_rb,1.0687e+02_rb,9.1606e+01_rb,7.6332e+01_rb,6.1069e+01_rb,4.6041e+01_rb, &
+     &3.2605e+01_rb,2.1597e+01_rb,1.0764e+00_rb/)
+      kao(:, 4,12,15) = (/ &
+     &1.1993e+02_rb,1.0494e+02_rb,8.9942e+01_rb,7.4954e+01_rb,5.9961e+01_rb,4.6289e+01_rb, &
+     &3.3082e+01_rb,2.5581e+01_rb,1.5268e+00_rb/)
+      kao(:, 5,12,15) = (/ &
+     &1.1793e+02_rb,1.0318e+02_rb,8.8443e+01_rb,7.3700e+01_rb,5.9323e+01_rb,4.6666e+01_rb, &
+     &3.5017e+01_rb,3.0597e+01_rb,1.3997e+01_rb/)
+      kao(:, 1,13,15) = (/ &
+     &1.4863e+02_rb,1.3005e+02_rb,1.1147e+02_rb,9.2892e+01_rb,7.4315e+01_rb,5.5737e+01_rb, &
+     &3.7199e+01_rb,2.0080e+01_rb,6.4806e-01_rb/)
+      kao(:, 2,13,15) = (/ &
+     &1.4520e+02_rb,1.2704e+02_rb,1.0889e+02_rb,9.0753e+01_rb,7.2597e+01_rb,5.4452e+01_rb, &
+     &3.7281e+01_rb,2.1314e+01_rb,1.2348e+00_rb/)
+      kao(:, 3,13,15) = (/ &
+     &1.4229e+02_rb,1.2450e+02_rb,1.0672e+02_rb,8.8931e+01_rb,7.1150e+01_rb,5.3675e+01_rb, &
+     &3.7660e+01_rb,2.4186e+01_rb,1.1194e+00_rb/)
+      kao(:, 4,13,15) = (/ &
+     &1.3965e+02_rb,1.2219e+02_rb,1.0474e+02_rb,8.7285e+01_rb,6.9825e+01_rb,5.3800e+01_rb, &
+     &3.7958e+01_rb,2.8295e+01_rb,2.6393e+00_rb/)
+      kao(:, 5,13,15) = (/ &
+     &1.3732e+02_rb,1.2017e+02_rb,1.0299e+02_rb,8.5829e+01_rb,6.9074e+01_rb,5.3874e+01_rb, &
+     &3.9693e+01_rb,3.3322e+01_rb,1.2822e+01_rb/)
+      kao(:, 1, 1,16) = (/ &
+     &6.7483e-03_rb,2.7477e+00_rb,5.4216e+00_rb,7.9838e+00_rb,1.0362e+01_rb,1.2414e+01_rb, &
+     &1.3792e+01_rb,1.3364e+01_rb,2.0724e+01_rb/)
+      kao(:, 2, 1,16) = (/ &
+     &6.6276e-03_rb,3.2705e+00_rb,6.4539e+00_rb,9.5049e+00_rb,1.2338e+01_rb,1.4784e+01_rb, &
+     &1.6428e+01_rb,1.5929e+01_rb,2.4675e+01_rb/)
+      kao(:, 3, 1,16) = (/ &
+     &6.5036e-03_rb,3.8140e+00_rb,7.5283e+00_rb,1.1085e+01_rb,1.4395e+01_rb,1.7249e+01_rb, &
+     &1.9172e+01_rb,1.8603e+01_rb,2.8790e+01_rb/)
+      kao(:, 4, 1,16) = (/ &
+     &6.3721e-03_rb,4.3730e+00_rb,8.6292e+00_rb,1.2711e+01_rb,1.6503e+01_rb,1.9784e+01_rb, &
+     &2.1993e+01_rb,2.1351e+01_rb,3.3006e+01_rb/)
+      kao(:, 5, 1,16) = (/ &
+     &6.2363e-03_rb,4.9396e+00_rb,9.7465e+00_rb,1.4357e+01_rb,1.8648e+01_rb,2.2353e+01_rb, &
+     &2.4860e+01_rb,2.4146e+01_rb,3.7295e+01_rb/)
+      kao(:, 1, 2,16) = (/ &
+     &1.1399e-02_rb,3.0700e+00_rb,6.0865e+00_rb,9.0222e+00_rb,1.1819e+01_rb,1.4357e+01_rb, &
+     &1.6335e+01_rb,1.6615e+01_rb,2.3637e+01_rb/)
+      kao(:, 2, 2,16) = (/ &
+     &1.1191e-02_rb,3.6855e+00_rb,7.3071e+00_rb,1.0831e+01_rb,1.4189e+01_rb,1.7243e+01_rb, &
+     &1.9624e+01_rb,1.9971e+01_rb,2.8378e+01_rb/)
+      kao(:, 3, 2,16) = (/ &
+     &1.0967e-02_rb,4.3287e+00_rb,8.5840e+00_rb,1.2722e+01_rb,1.6670e+01_rb,2.0258e+01_rb, &
+     &2.3062e+01_rb,2.3488e+01_rb,3.3340e+01_rb/)
+      kao(:, 4, 2,16) = (/ &
+     &1.0738e-02_rb,4.9902e+00_rb,9.8948e+00_rb,1.4671e+01_rb,1.9224e+01_rb,2.3370e+01_rb, &
+     &2.6613e+01_rb,2.7035e+01_rb,3.8446e+01_rb/)
+      kao(:, 5, 2,16) = (/ &
+     &1.0463e-02_rb,5.6638e+00_rb,1.1230e+01_rb,1.6648e+01_rb,2.1823e+01_rb,2.6530e+01_rb, &
+     &3.0222e+01_rb,3.0819e+01_rb,4.3644e+01_rb/)
+      kao(:, 1, 3,16) = (/ &
+     &2.6306e-02_rb,3.2694e+00_rb,6.5125e+00_rb,9.7138e+00_rb,1.2840e+01_rb,1.5828e+01_rb, &
+     &1.8484e+01_rb,2.0009e+01_rb,2.5680e+01_rb/)
+      kao(:, 2, 3,16) = (/ &
+     &2.5884e-02_rb,3.9785e+00_rb,7.9277e+00_rb,1.1819e+01_rb,1.5631e+01_rb,1.9201e+01_rb, &
+     &2.2505e+01_rb,2.4372e+01_rb,3.1262e+01_rb/)
+      kao(:, 3, 3,16) = (/ &
+     &2.5346e-02_rb,4.7273e+00_rb,9.4145e+00_rb,1.4042e+01_rb,1.8571e+01_rb,2.2894e+01_rb, &
+     &2.6751e+01_rb,2.8974e+01_rb,3.7022e+01_rb/)
+      kao(:, 4, 3,16) = (/ &
+     &2.4784e-02_rb,5.5013e+00_rb,1.0958e+01_rb,1.6345e+01_rb,2.1611e+01_rb,2.6651e+01_rb, &
+     &3.1147e+01_rb,3.3763e+01_rb,4.3221e+01_rb/)
+      kao(:, 5, 3,16) = (/ &
+     &2.4200e-02_rb,6.2942e+00_rb,1.2535e+01_rb,1.8701e+01_rb,2.4733e+01_rb,3.0502e+01_rb, &
+     &3.5641e+01_rb,3.8658e+01_rb,4.9465e+01_rb/)
+      kao(:, 1, 4,16) = (/ &
+     &6.3011e-02_rb,3.3909e+00_rb,6.7686e+00_rb,1.0126e+01_rb,1.3449e+01_rb,1.6701e+01_rb, &
+     &1.9789e+01_rb,2.2242e+01_rb,2.6898e+01_rb/)
+      kao(:, 2, 4,16) = (/ &
+     &6.1738e-02_rb,4.1953e+00_rb,8.3750e+00_rb,1.2529e+01_rb,1.6640e+01_rb,2.0669e+01_rb, &
+     &2.4483e+01_rb,2.7534e+01_rb,3.3280e+01_rb/)
+      kao(:, 3, 4,16) = (/ &
+     &6.0385e-02_rb,5.0522e+00_rb,1.0085e+01_rb,1.5088e+01_rb,2.0041e+01_rb,2.4891e+01_rb, &
+     &2.9498e+01_rb,3.3182e+01_rb,4.0082e+01_rb/)
+      kao(:, 4, 4,16) = (/ &
+     &5.8960e-02_rb,5.9475e+00_rb,1.1873e+01_rb,1.7764e+01_rb,2.3588e+01_rb,2.9299e+01_rb, &
+     &3.4723e+01_rb,3.9079e+01_rb,4.7175e+01_rb/)
+      kao(:, 5, 4,16) = (/ &
+     &5.7513e-02_rb,6.8674e+00_rb,1.3704e+01_rb,2.0508e+01_rb,2.7243e+01_rb,3.3832e+01_rb, &
+     &4.0104e+01_rb,4.5142e+01_rb,5.4486e+01_rb/)
+      kao(:, 1, 5,16) = (/ &
+     &1.5311e-01_rb,3.4647e+00_rb,6.9218e+00_rb,1.0370e+01_rb,1.3799e+01_rb,1.7194e+01_rb, &
+     &2.0501e+01_rb,2.3473e+01_rb,2.7599e+01_rb/)
+      kao(:, 2, 5,16) = (/ &
+     &1.4808e-01_rb,4.3642e+00_rb,8.7211e+00_rb,1.3066e+01_rb,1.7386e+01_rb,2.1656e+01_rb, &
+     &2.5836e+01_rb,2.9576e+01_rb,3.4772e+01_rb/)
+      kao(:, 3, 5,16) = (/ &
+     &1.4324e-01_rb,5.3326e+00_rb,1.0656e+01_rb,1.5962e+01_rb,2.1244e+01_rb,2.6472e+01_rb, &
+     &3.1566e+01_rb,3.6158e+01_rb,4.2487e+01_rb/)
+      kao(:, 4, 5,16) = (/ &
+     &1.3867e-01_rb,6.3343e+00_rb,1.2694e+01_rb,1.9018e+01_rb,2.5310e+01_rb,3.1544e+01_rb, &
+     &3.7609e+01_rb,4.3076e+01_rb,5.0619e+01_rb/)
+      kao(:, 5, 5,16) = (/ &
+     &1.3442e-01_rb,7.4110e+00_rb,1.4809e+01_rb,2.2187e+01_rb,2.9523e+01_rb,3.6788e+01_rb, &
+     &4.3874e+01_rb,5.0262e+01_rb,5.9046e+01_rb/)
+      kao(:, 1, 6,16) = (/ &
+     &3.3965e-01_rb,3.4550e+00_rb,6.9058e+00_rb,1.0352e+01_rb,1.3789e+01_rb,1.7206e+01_rb, &
+     &2.0578e+01_rb,2.3766e+01_rb,2.7578e+01_rb/)
+      kao(:, 2, 6,16) = (/ &
+     &3.2990e-01_rb,4.4451e+00_rb,8.8565e+00_rb,1.3318e+01_rb,1.7740e+01_rb,2.2139e+01_rb, &
+     &2.6477e+01_rb,3.0582e+01_rb,3.5479e+01_rb/)
+      kao(:, 3, 6,16) = (/ &
+     &3.2021e-01_rb,5.5240e+00_rb,1.1042e+01_rb,1.6554e+01_rb,2.2048e+01_rb,2.7511e+01_rb, &
+     &3.2908e+01_rb,3.8025e+01_rb,4.4095e+01_rb/)
+      kao(:, 4, 6,16) = (/ &
+     &3.1092e-01_rb,6.6752e+00_rb,1.3341e+01_rb,2.0002e+01_rb,2.6641e+01_rb,3.3245e+01_rb, &
+     &3.9761e+01_rb,4.5941e+01_rb,5.3282e+01_rb/)
+      kao(:, 5, 6,16) = (/ &
+     &3.0227e-01_rb,7.8771e+00_rb,1.5743e+01_rb,2.3602e+01_rb,3.1434e+01_rb,3.9236e+01_rb, &
+     &4.6923e+01_rb,5.4228e+01_rb,6.2865e+01_rb/)
+      kao(:, 1, 7,16) = (/ &
+     &7.9672e-01_rb,3.3862e+00_rb,6.7703e+00_rb,1.0151e+01_rb,1.3528e+01_rb,1.6895e+01_rb, &
+     &2.0243e+01_rb,2.3498e+01_rb,2.7056e+01_rb/)
+      kao(:, 2, 7,16) = (/ &
+     &7.7399e-01_rb,4.4592e+00_rb,8.9171e+00_rb,1.3369e+01_rb,1.7816e+01_rb,2.2252e+01_rb, &
+     &2.6655e+01_rb,3.0954e+01_rb,3.5514e+01_rb/)
+      kao(:, 3, 7,16) = (/ &
+     &7.5170e-01_rb,5.6480e+00_rb,1.1293e+01_rb,1.6933e+01_rb,2.2566e+01_rb,2.8186e+01_rb, &
+     &3.3769e+01_rb,3.9205e+01_rb,4.5131e+01_rb/)
+      kao(:, 4, 7,16) = (/ &
+     &7.3106e-01_rb,6.9294e+00_rb,1.3857e+01_rb,2.0779e+01_rb,2.7691e+01_rb,3.4583e+01_rb, &
+     &4.1435e+01_rb,4.8102e+01_rb,5.5380e+01_rb/)
+      kao(:, 5, 7,16) = (/ &
+     &7.1147e-01_rb,8.2841e+00_rb,1.6563e+01_rb,2.4830e+01_rb,3.3089e+01_rb,4.1334e+01_rb, &
+     &4.9522e+01_rb,5.7496e+01_rb,6.6175e+01_rb/)
+      kao(:, 1, 8,16) = (/ &
+     &2.2037e+00_rb,3.2722e+00_rb,6.5418e+00_rb,9.8122e+00_rb,1.3082e+01_rb,1.6344e+01_rb, &
+     &1.9599e+01_rb,2.2817e+01_rb,2.6163e+01_rb/)
+      kao(:, 2, 8,16) = (/ &
+     &2.1416e+00_rb,4.4204e+00_rb,8.8385e+00_rb,1.3255e+01_rb,1.7675e+01_rb,2.2079e+01_rb, &
+     &2.6477e+01_rb,3.0833e+01_rb,3.5348e+01_rb/)
+      kao(:, 3, 8,16) = (/ &
+     &2.0842e+00_rb,5.7151e+00_rb,1.1428e+01_rb,1.7137e+01_rb,2.2842e+01_rb,2.8548e+01_rb, &
+     &3.4230e+01_rb,3.9856e+01_rb,4.5681e+01_rb/)
+      kao(:, 4, 8,16) = (/ &
+     &2.0305e+00_rb,7.1274e+00_rb,1.4255e+01_rb,2.1373e+01_rb,2.8489e+01_rb,3.5598e+01_rb, &
+     &4.2693e+01_rb,4.9704e+01_rb,5.6975e+01_rb/)
+      kao(:, 5, 8,16) = (/ &
+     &1.9781e+00_rb,8.6369e+00_rb,1.7269e+01_rb,2.5895e+01_rb,3.4524e+01_rb,4.3140e+01_rb, &
+     &5.1725e+01_rb,6.0225e+01_rb,6.9043e+01_rb/)
+      kao(:, 1, 9,16) = (/ &
+     &1.1509e+01_rb,1.0070e+01_rb,8.6316e+00_rb,9.3146e+00_rb,1.2418e+01_rb,1.5525e+01_rb, &
+     &1.8622e+01_rb,2.1717e+01_rb,2.4834e+01_rb/)
+      kao(:, 2, 9,16) = (/ &
+     &1.1216e+01_rb,9.8124e+00_rb,8.9628e+00_rb,1.2947e+01_rb,1.7258e+01_rb,2.1566e+01_rb, &
+     &2.5882e+01_rb,3.0171e+01_rb,3.4512e+01_rb/)
+      kao(:, 3, 9,16) = (/ &
+     &1.0936e+01_rb,9.5703e+00_rb,1.1414e+01_rb,1.7115e+01_rb,2.2811e+01_rb,2.8515e+01_rb, &
+     &3.4212e+01_rb,3.9896e+01_rb,4.5613e+01_rb/)
+      kao(:, 4, 9,16) = (/ &
+     &1.0665e+01_rb,9.3327e+00_rb,1.4497e+01_rb,2.1741e+01_rb,2.8981e+01_rb,3.6218e+01_rb, &
+     &4.3300e+01_rb,5.0677e+01_rb,5.7950e+01_rb/)
+      kao(:, 5, 9,16) = (/ &
+     &1.0398e+01_rb,9.5016e+00_rb,1.7820e+01_rb,2.6724e+01_rb,3.5623e+01_rb,4.4518e+01_rb, &
+     &5.3410e+01_rb,6.2271e+01_rb,7.1226e+01_rb/)
+      kao(:, 1,10,16) = (/ &
+     &6.7305e+01_rb,5.8689e+01_rb,5.0477e+01_rb,4.2062e+01_rb,3.3650e+01_rb,2.5240e+01_rb, &
+     &1.8527e+01_rb,2.0871e+01_rb,2.3854e+01_rb/)
+      kao(:, 2,10,16) = (/ &
+     &6.5751e+01_rb,5.7530e+01_rb,4.9313e+01_rb,4.1093e+01_rb,3.2876e+01_rb,2.4802e+01_rb, &
+     &2.5524e+01_rb,2.9774e+01_rb,3.4038e+01_rb/)
+      kao(:, 3,10,16) = (/ &
+     &6.4198e+01_rb,5.6172e+01_rb,4.8149e+01_rb,4.0130e+01_rb,3.2100e+01_rb,2.8998e+01_rb, &
+     &3.4448e+01_rb,4.0179e+01_rb,4.5916e+01_rb/)
+      kao(:, 4,10,16) = (/ &
+     &6.2664e+01_rb,5.4833e+01_rb,4.6832e+01_rb,3.9166e+01_rb,3.2607e+01_rb,3.7058e+01_rb, &
+     &4.4476e+01_rb,5.1875e+01_rb,5.9284e+01_rb/)
+      kao(:, 5,10,16) = (/ &
+     &6.1101e+01_rb,5.3467e+01_rb,4.5664e+01_rb,3.8190e+01_rb,3.7365e+01_rb,4.6149e+01_rb, &
+     &5.5367e+01_rb,6.4570e+01_rb,7.3787e+01_rb/)
+      kao(:, 1,11,16) = (/ &
+     &1.3576e+02_rb,1.1879e+02_rb,1.0182e+02_rb,8.4849e+01_rb,6.7875e+01_rb,5.0907e+01_rb, &
+     &3.3938e+01_rb,2.3799e+01_rb,9.0162e+00_rb/)
+      kao(:, 2,11,16) = (/ &
+     &1.3280e+02_rb,1.1619e+02_rb,9.9587e+01_rb,8.3000e+01_rb,6.6392e+01_rb,4.9800e+01_rb, &
+     &3.3906e+01_rb,3.3859e+01_rb,3.7265e+01_rb/)
+      kao(:, 3,11,16) = (/ &
+     &1.2969e+02_rb,1.1350e+02_rb,9.7289e+01_rb,8.1076e+01_rb,6.4844e+01_rb,4.8642e+01_rb, &
+     &3.9970e+01_rb,4.5587e+01_rb,5.2094e+01_rb/)
+      kao(:, 4,11,16) = (/ &
+     &1.2653e+02_rb,1.1071e+02_rb,9.4885e+01_rb,7.9077e+01_rb,6.3265e+01_rb,4.8850e+01_rb, &
+     &5.0310e+01_rb,5.8678e+01_rb,6.7071e+01_rb/)
+      kao(:, 5,11,16) = (/ &
+     &1.2325e+02_rb,1.0784e+02_rb,9.2433e+01_rb,7.7029e+01_rb,6.1622e+01_rb,5.4553e+01_rb, &
+     &6.2511e+01_rb,7.2895e+01_rb,8.3291e+01_rb/)
+      kao(:, 1,12,16) = (/ &
+     &2.0298e+02_rb,1.7762e+02_rb,1.5224e+02_rb,1.2687e+02_rb,1.0147e+02_rb,7.6126e+01_rb, &
+     &5.0748e+01_rb,2.9045e+01_rb,9.6314e-05_rb/)
+      kao(:, 2,12,16) = (/ &
+     &1.9850e+02_rb,1.7368e+02_rb,1.4888e+02_rb,1.2405e+02_rb,9.9250e+01_rb,7.4435e+01_rb, &
+     &4.9625e+01_rb,3.8234e+01_rb,2.3705e+01_rb/)
+      kao(:, 3,12,16) = (/ &
+     &1.9369e+02_rb,1.6949e+02_rb,1.4528e+02_rb,1.2103e+02_rb,9.6845e+01_rb,7.2640e+01_rb, &
+     &5.1319e+01_rb,5.1242e+01_rb,5.0529e+01_rb/)
+      kao(:, 4,12,16) = (/ &
+     &1.8865e+02_rb,1.6508e+02_rb,1.4148e+02_rb,1.1791e+02_rb,9.4323e+01_rb,7.0746e+01_rb, &
+     &5.9155e+01_rb,6.5776e+01_rb,7.5148e+01_rb/)
+      kao(:, 5,12,16) = (/ &
+     &1.8345e+02_rb,1.6051e+02_rb,1.3757e+02_rb,1.1465e+02_rb,9.1715e+01_rb,7.1673e+01_rb, &
+     &7.0340e+01_rb,8.1440e+01_rb,9.3046e+01_rb/)
+      kao(:, 1,13,16) = (/ &
+     &2.4179e+02_rb,2.1156e+02_rb,1.8133e+02_rb,1.5111e+02_rb,1.2089e+02_rb,9.0670e+01_rb, &
+     &6.0447e+01_rb,3.4181e+01_rb,7.5740e-05_rb/)
+      kao(:, 2,13,16) = (/ &
+     &2.3602e+02_rb,2.0653e+02_rb,1.7702e+02_rb,1.4755e+02_rb,1.1802e+02_rb,8.8512e+01_rb, &
+     &5.9018e+01_rb,4.3484e+01_rb,2.5520e+01_rb/)
+      kao(:, 3,13,16) = (/ &
+     &2.2984e+02_rb,2.0112e+02_rb,1.7238e+02_rb,1.4366e+02_rb,1.1493e+02_rb,8.6216e+01_rb, &
+     &6.0956e+01_rb,5.6909e+01_rb,5.1259e+01_rb/)
+      kao(:, 4,13,16) = (/ &
+     &2.2335e+02_rb,1.9547e+02_rb,1.6749e+02_rb,1.3960e+02_rb,1.1169e+02_rb,8.3756e+01_rb, &
+     &6.8596e+01_rb,7.2790e+01_rb,7.7355e+01_rb/)
+      kao(:, 5,13,16) = (/ &
+     &2.1661e+02_rb,1.8954e+02_rb,1.6247e+02_rb,1.3539e+02_rb,1.0832e+02_rb,8.5058e+01_rb, &
+     &7.9741e+01_rb,8.9915e+01_rb,1.0226e+02_rb/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:,13, 1) = (/ &
+     &2.3382e-03_rb,2.8918e-03_rb,3.5228e-03_rb,4.2513e-03_rb,5.0992e-03_rb/)
+      kbo(:,14, 1) = (/ &
+     &2.0993e-03_rb,2.6087e-03_rb,3.2027e-03_rb,3.9155e-03_rb,4.7075e-03_rb/)
+      kbo(:,15, 1) = (/ &
+     &1.9068e-03_rb,2.4224e-03_rb,2.9993e-03_rb,3.6366e-03_rb,4.4490e-03_rb/)
+      kbo(:,16, 1) = (/ &
+     &1.7630e-03_rb,2.2267e-03_rb,2.7514e-03_rb,3.4114e-03_rb,4.1614e-03_rb/)
+      kbo(:,17, 1) = (/ &
+     &1.6519e-03_rb,2.0886e-03_rb,2.6010e-03_rb,3.2457e-03_rb,3.9066e-03_rb/)
+      kbo(:,18, 1) = (/ &
+     &1.5561e-03_rb,1.9733e-03_rb,2.5429e-03_rb,3.1325e-03_rb,3.6764e-03_rb/)
+      kbo(:,19, 1) = (/ &
+     &1.4778e-03_rb,1.9477e-03_rb,2.4734e-03_rb,2.9725e-03_rb,3.4413e-03_rb/)
+      kbo(:,20, 1) = (/ &
+     &1.3764e-03_rb,1.8206e-03_rb,2.2794e-03_rb,2.6918e-03_rb,3.0807e-03_rb/)
+      kbo(:,21, 1) = (/ &
+     &1.2547e-03_rb,1.6614e-03_rb,2.0387e-03_rb,2.3912e-03_rb,2.7222e-03_rb/)
+      kbo(:,22, 1) = (/ &
+     &1.1692e-03_rb,1.5034e-03_rb,1.8117e-03_rb,2.1136e-03_rb,2.3959e-03_rb/)
+      kbo(:,23, 1) = (/ &
+     &1.0852e-03_rb,1.3578e-03_rb,1.6152e-03_rb,1.8580e-03_rb,2.0983e-03_rb/)
+      kbo(:,24, 1) = (/ &
+     &9.9196e-04_rb,1.2216e-03_rb,1.4332e-03_rb,1.6336e-03_rb,1.8396e-03_rb/)
+      kbo(:,25, 1) = (/ &
+     &9.0621e-04_rb,1.0934e-03_rb,1.2579e-03_rb,1.4326e-03_rb,1.5972e-03_rb/)
+      kbo(:,26, 1) = (/ &
+     &8.1196e-04_rb,9.6544e-04_rb,1.0989e-03_rb,1.2439e-03_rb,1.3772e-03_rb/)
+      kbo(:,27, 1) = (/ &
+     &7.2402e-04_rb,8.4382e-04_rb,9.5455e-04_rb,1.0692e-03_rb,1.1790e-03_rb/)
+      kbo(:,28, 1) = (/ &
+     &6.3816e-04_rb,7.3173e-04_rb,8.2333e-04_rb,9.1530e-04_rb,1.0008e-03_rb/)
+      kbo(:,29, 1) = (/ &
+     &5.5611e-04_rb,6.2561e-04_rb,7.0457e-04_rb,7.7239e-04_rb,8.4074e-04_rb/)
+      kbo(:,30, 1) = (/ &
+     &4.7758e-04_rb,5.3585e-04_rb,5.9602e-04_rb,6.4848e-04_rb,7.0299e-04_rb/)
+      kbo(:,31, 1) = (/ &
+     &4.0233e-04_rb,4.5494e-04_rb,5.0095e-04_rb,5.4165e-04_rb,5.8359e-04_rb/)
+      kbo(:,32, 1) = (/ &
+     &3.4147e-04_rb,3.8327e-04_rb,4.2049e-04_rb,4.5512e-04_rb,4.8721e-04_rb/)
+      kbo(:,33, 1) = (/ &
+     &2.9210e-04_rb,3.2465e-04_rb,3.5276e-04_rb,3.8153e-04_rb,4.1121e-04_rb/)
+      kbo(:,34, 1) = (/ &
+     &2.4930e-04_rb,2.7584e-04_rb,2.9920e-04_rb,3.2247e-04_rb,3.4759e-04_rb/)
+      kbo(:,35, 1) = (/ &
+     &2.1208e-04_rb,2.3419e-04_rb,2.5253e-04_rb,2.7252e-04_rb,2.9279e-04_rb/)
+      kbo(:,36, 1) = (/ &
+     &1.7811e-04_rb,1.9459e-04_rb,2.1195e-04_rb,2.2908e-04_rb,2.4619e-04_rb/)
+      kbo(:,37, 1) = (/ &
+     &1.4252e-04_rb,1.5802e-04_rb,1.7124e-04_rb,1.8557e-04_rb,1.9967e-04_rb/)
+      kbo(:,38, 1) = (/ &
+     &1.1316e-04_rb,1.2691e-04_rb,1.3875e-04_rb,1.4940e-04_rb,1.6149e-04_rb/)
+      kbo(:,39, 1) = (/ &
+     &8.9734e-05_rb,1.0111e-04_rb,1.1110e-04_rb,1.2104e-04_rb,1.3018e-04_rb/)
+      kbo(:,40, 1) = (/ &
+     &6.9862e-05_rb,7.9338e-05_rb,8.7351e-05_rb,9.5361e-05_rb,1.0350e-04_rb/)
+      kbo(:,41, 1) = (/ &
+     &5.3903e-05_rb,6.1377e-05_rb,6.8596e-05_rb,7.4910e-05_rb,8.1525e-05_rb/)
+      kbo(:,42, 1) = (/ &
+     &4.1353e-05_rb,4.7327e-05_rb,5.3464e-05_rb,5.8873e-05_rb,6.3813e-05_rb/)
+      kbo(:,43, 1) = (/ &
+     &3.1177e-05_rb,3.6021e-05_rb,4.0748e-05_rb,4.5236e-05_rb,4.9388e-05_rb/)
+      kbo(:,44, 1) = (/ &
+     &2.3155e-05_rb,2.7105e-05_rb,3.0750e-05_rb,3.4487e-05_rb,3.7902e-05_rb/)
+      kbo(:,45, 1) = (/ &
+     &1.6939e-05_rb,2.0019e-05_rb,2.3152e-05_rb,2.6034e-05_rb,2.8825e-05_rb/)
+      kbo(:,46, 1) = (/ &
+     &1.2188e-05_rb,1.4774e-05_rb,1.7220e-05_rb,1.9590e-05_rb,2.1820e-05_rb/)
+      kbo(:,47, 1) = (/ &
+     &8.5598e-06_rb,1.0765e-05_rb,1.2719e-05_rb,1.4628e-05_rb,1.6428e-05_rb/)
+      kbo(:,48, 1) = (/ &
+     &5.9262e-06_rb,7.6349e-06_rb,9.2601e-06_rb,1.0811e-05_rb,1.2306e-05_rb/)
+      kbo(:,49, 1) = (/ &
+     &3.9332e-06_rb,5.2612e-06_rb,6.6345e-06_rb,7.8390e-06_rb,9.0160e-06_rb/)
+      kbo(:,50, 1) = (/ &
+     &2.6915e-06_rb,3.7062e-06_rb,4.7528e-06_rb,5.7591e-06_rb,6.6828e-06_rb/)
+      kbo(:,51, 1) = (/ &
+     &1.9031e-06_rb,2.5633e-06_rb,3.3817e-06_rb,4.2212e-06_rb,4.9973e-06_rb/)
+      kbo(:,52, 1) = (/ &
+     &1.3022e-06_rb,1.7876e-06_rb,2.4129e-06_rb,3.0582e-06_rb,3.6770e-06_rb/)
+      kbo(:,53, 1) = (/ &
+     &8.8514e-07_rb,1.2531e-06_rb,1.6651e-06_rb,2.1701e-06_rb,2.6821e-06_rb/)
+      kbo(:,54, 1) = (/ &
+     &6.3174e-07_rb,9.0490e-07_rb,1.2164e-06_rb,1.6231e-06_rb,2.0201e-06_rb/)
+      kbo(:,55, 1) = (/ &
+     &4.6092e-07_rb,6.6386e-07_rb,9.1477e-07_rb,1.2278e-06_rb,1.5504e-06_rb/)
+      kbo(:,56, 1) = (/ &
+     &3.3312e-07_rb,4.8579e-07_rb,6.8774e-07_rb,9.1495e-07_rb,1.1856e-06_rb/)
+      kbo(:,57, 1) = (/ &
+     &2.4004e-07_rb,3.5567e-07_rb,5.1418e-07_rb,6.8280e-07_rb,9.0960e-07_rb/)
+      kbo(:,58, 1) = (/ &
+     &1.7424e-07_rb,2.6290e-07_rb,3.8304e-07_rb,5.1880e-07_rb,6.9948e-07_rb/)
+      kbo(:,59, 1) = (/ &
+     &1.4545e-07_rb,2.2249e-07_rb,3.3056e-07_rb,4.4487e-07_rb,6.0780e-07_rb/)
+      kbo(:,13, 2) = (/ &
+     &1.0289e-02_rb,1.3009e-02_rb,1.5474e-02_rb,1.7839e-02_rb,2.0097e-02_rb/)
+      kbo(:,14, 2) = (/ &
+     &9.5725e-03_rb,1.1818e-02_rb,1.3904e-02_rb,1.5918e-02_rb,1.7958e-02_rb/)
+      kbo(:,15, 2) = (/ &
+     &8.9675e-03_rb,1.0842e-02_rb,1.2642e-02_rb,1.4399e-02_rb,1.6048e-02_rb/)
+      kbo(:,16, 2) = (/ &
+     &8.1677e-03_rb,9.7202e-03_rb,1.1280e-02_rb,1.2681e-02_rb,1.4168e-02_rb/)
+      kbo(:,17, 2) = (/ &
+     &7.4338e-03_rb,8.8205e-03_rb,1.0076e-02_rb,1.1262e-02_rb,1.2428e-02_rb/)
+      kbo(:,18, 2) = (/ &
+     &6.8634e-03_rb,8.0133e-03_rb,8.9513e-03_rb,9.9366e-03_rb,1.1014e-02_rb/)
+      kbo(:,19, 2) = (/ &
+     &6.3552e-03_rb,7.2047e-03_rb,8.0129e-03_rb,8.8966e-03_rb,9.8381e-03_rb/)
+      kbo(:,20, 2) = (/ &
+     &5.6397e-03_rb,6.2755e-03_rb,6.9887e-03_rb,7.7846e-03_rb,8.5391e-03_rb/)
+      kbo(:,21, 2) = (/ &
+     &4.8925e-03_rb,5.4088e-03_rb,6.0399e-03_rb,6.7004e-03_rb,7.3289e-03_rb/)
+      kbo(:,22, 2) = (/ &
+     &4.2004e-03_rb,4.6864e-03_rb,5.2247e-03_rb,5.7527e-03_rb,6.2510e-03_rb/)
+      kbo(:,23, 2) = (/ &
+     &3.5982e-03_rb,4.0432e-03_rb,4.4892e-03_rb,4.9192e-03_rb,5.3260e-03_rb/)
+      kbo(:,24, 2) = (/ &
+     &3.1341e-03_rb,3.4942e-03_rb,3.8506e-03_rb,4.1837e-03_rb,4.5083e-03_rb/)
+      kbo(:,25, 2) = (/ &
+     &2.7078e-03_rb,2.9853e-03_rb,3.2644e-03_rb,3.5527e-03_rb,3.8354e-03_rb/)
+      kbo(:,26, 2) = (/ &
+     &2.3166e-03_rb,2.5349e-03_rb,2.7760e-03_rb,3.0099e-03_rb,3.2441e-03_rb/)
+      kbo(:,27, 2) = (/ &
+     &1.9581e-03_rb,2.1476e-03_rb,2.3442e-03_rb,2.5333e-03_rb,2.7284e-03_rb/)
+      kbo(:,28, 2) = (/ &
+     &1.6566e-03_rb,1.8064e-03_rb,1.9708e-03_rb,2.1221e-03_rb,2.2915e-03_rb/)
+      kbo(:,29, 2) = (/ &
+     &1.3865e-03_rb,1.5225e-03_rb,1.6510e-03_rb,1.7817e-03_rb,1.9308e-03_rb/)
+      kbo(:,30, 2) = (/ &
+     &1.1671e-03_rb,1.2777e-03_rb,1.3825e-03_rb,1.4960e-03_rb,1.6203e-03_rb/)
+      kbo(:,31, 2) = (/ &
+     &9.8586e-04_rb,1.0724e-03_rb,1.1604e-03_rb,1.2563e-03_rb,1.3588e-03_rb/)
+      kbo(:,32, 2) = (/ &
+     &8.3378e-04_rb,9.0396e-04_rb,9.7429e-04_rb,1.0568e-03_rb,1.1470e-03_rb/)
+      kbo(:,33, 2) = (/ &
+     &7.0369e-04_rb,7.5618e-04_rb,8.2196e-04_rb,8.9196e-04_rb,9.6493e-04_rb/)
+      kbo(:,34, 2) = (/ &
+     &5.9334e-04_rb,6.3847e-04_rb,6.9888e-04_rb,7.5675e-04_rb,8.1741e-04_rb/)
+      kbo(:,35, 2) = (/ &
+     &4.9419e-04_rb,5.3430e-04_rb,5.8625e-04_rb,6.3690e-04_rb,6.8685e-04_rb/)
+      kbo(:,36, 2) = (/ &
+     &4.1196e-04_rb,4.5151e-04_rb,4.9203e-04_rb,5.3162e-04_rb,5.7140e-04_rb/)
+      kbo(:,37, 2) = (/ &
+     &3.3813e-04_rb,3.6860e-04_rb,4.0277e-04_rb,4.3459e-04_rb,4.6722e-04_rb/)
+      kbo(:,38, 2) = (/ &
+     &2.7817e-04_rb,3.0151e-04_rb,3.2943e-04_rb,3.5593e-04_rb,3.8227e-04_rb/)
+      kbo(:,39, 2) = (/ &
+     &2.2867e-04_rb,2.4762e-04_rb,2.6968e-04_rb,2.9008e-04_rb,3.1209e-04_rb/)
+      kbo(:,40, 2) = (/ &
+     &1.8342e-04_rb,1.9773e-04_rb,2.1631e-04_rb,2.3254e-04_rb,2.4976e-04_rb/)
+      kbo(:,41, 2) = (/ &
+     &1.4676e-04_rb,1.5810e-04_rb,1.7216e-04_rb,1.8594e-04_rb,1.9960e-04_rb/)
+      kbo(:,42, 2) = (/ &
+     &1.1746e-04_rb,1.2665e-04_rb,1.3672e-04_rb,1.4836e-04_rb,1.5881e-04_rb/)
+      kbo(:,43, 2) = (/ &
+     &9.3086e-05_rb,1.0013e-04_rb,1.0780e-04_rb,1.1711e-04_rb,1.2583e-04_rb/)
+      kbo(:,44, 2) = (/ &
+     &7.3232e-05_rb,7.8805e-05_rb,8.4882e-05_rb,9.2011e-05_rb,9.9424e-05_rb/)
+      kbo(:,45, 2) = (/ &
+     &5.7257e-05_rb,6.2283e-05_rb,6.6827e-05_rb,7.2104e-05_rb,7.8039e-05_rb/)
+      kbo(:,46, 2) = (/ &
+     &4.5024e-05_rb,4.8935e-05_rb,5.2600e-05_rb,5.6600e-05_rb,6.1280e-05_rb/)
+      kbo(:,47, 2) = (/ &
+     &3.5357e-05_rb,3.8098e-05_rb,4.1339e-05_rb,4.4405e-05_rb,4.7940e-05_rb/)
+      kbo(:,48, 2) = (/ &
+     &2.7815e-05_rb,2.9967e-05_rb,3.2437e-05_rb,3.4873e-05_rb,3.7402e-05_rb/)
+      kbo(:,49, 2) = (/ &
+     &2.1939e-05_rb,2.3492e-05_rb,2.5305e-05_rb,2.7332e-05_rb,2.9323e-05_rb/)
+      kbo(:,50, 2) = (/ &
+     &1.7237e-05_rb,1.8528e-05_rb,1.9953e-05_rb,2.1525e-05_rb,2.3159e-05_rb/)
+      kbo(:,51, 2) = (/ &
+     &1.3436e-05_rb,1.4671e-05_rb,1.5802e-05_rb,1.6957e-05_rb,1.8296e-05_rb/)
+      kbo(:,52, 2) = (/ &
+     &1.0450e-05_rb,1.1538e-05_rb,1.2438e-05_rb,1.3421e-05_rb,1.4433e-05_rb/)
+      kbo(:,53, 2) = (/ &
+     &8.1106e-06_rb,9.0282e-06_rb,9.8120e-06_rb,1.0593e-05_rb,1.1339e-05_rb/)
+      kbo(:,54, 2) = (/ &
+     &6.3166e-06_rb,7.0785e-06_rb,7.7924e-06_rb,8.4016e-06_rb,8.9926e-06_rb/)
+      kbo(:,55, 2) = (/ &
+     &4.9361e-06_rb,5.5830e-06_rb,6.1858e-06_rb,6.7021e-06_rb,7.1744e-06_rb/)
+      kbo(:,56, 2) = (/ &
+     &3.8472e-06_rb,4.3596e-06_rb,4.8727e-06_rb,5.3362e-06_rb,5.7261e-06_rb/)
+      kbo(:,57, 2) = (/ &
+     &2.9833e-06_rb,3.4045e-06_rb,3.8019e-06_rb,4.2184e-06_rb,4.5533e-06_rb/)
+      kbo(:,58, 2) = (/ &
+     &2.2932e-06_rb,2.6742e-06_rb,3.0024e-06_rb,3.3291e-06_rb,3.6047e-06_rb/)
+      kbo(:,59, 2) = (/ &
+     &1.8323e-06_rb,2.1714e-06_rb,2.4292e-06_rb,2.6999e-06_rb,2.9218e-06_rb/)
+      kbo(:,13, 3) = (/ &
+     &3.0891e-02_rb,3.3118e-02_rb,3.6308e-02_rb,3.9588e-02_rb,4.3089e-02_rb/)
+      kbo(:,14, 3) = (/ &
+     &2.6329e-02_rb,2.8653e-02_rb,3.1325e-02_rb,3.4211e-02_rb,3.7000e-02_rb/)
+      kbo(:,15, 3) = (/ &
+     &2.2620e-02_rb,2.4702e-02_rb,2.7101e-02_rb,2.9342e-02_rb,3.1645e-02_rb/)
+      kbo(:,16, 3) = (/ &
+     &1.9521e-02_rb,2.1493e-02_rb,2.3534e-02_rb,2.5338e-02_rb,2.7120e-02_rb/)
+      kbo(:,17, 3) = (/ &
+     &1.7199e-02_rb,1.8861e-02_rb,2.0377e-02_rb,2.1918e-02_rb,2.3545e-02_rb/)
+      kbo(:,18, 3) = (/ &
+     &1.5181e-02_rb,1.6445e-02_rb,1.7796e-02_rb,1.9171e-02_rb,2.0759e-02_rb/)
+      kbo(:,19, 3) = (/ &
+     &1.3401e-02_rb,1.4529e-02_rb,1.5713e-02_rb,1.7031e-02_rb,1.8531e-02_rb/)
+      kbo(:,20, 3) = (/ &
+     &1.1566e-02_rb,1.2595e-02_rb,1.3616e-02_rb,1.4797e-02_rb,1.6195e-02_rb/)
+      kbo(:,21, 3) = (/ &
+     &9.9790e-03_rb,1.0856e-02_rb,1.1739e-02_rb,1.2840e-02_rb,1.4039e-02_rb/)
+      kbo(:,22, 3) = (/ &
+     &8.5571e-03_rb,9.3189e-03_rb,1.0148e-02_rb,1.1149e-02_rb,1.2271e-02_rb/)
+      kbo(:,23, 3) = (/ &
+     &7.3578e-03_rb,7.9960e-03_rb,8.8066e-03_rb,9.6774e-03_rb,1.0719e-02_rb/)
+      kbo(:,24, 3) = (/ &
+     &6.2710e-03_rb,6.8510e-03_rb,7.5829e-03_rb,8.4285e-03_rb,9.3410e-03_rb/)
+      kbo(:,25, 3) = (/ &
+     &5.3189e-03_rb,5.9223e-03_rb,6.5735e-03_rb,7.3163e-03_rb,8.1167e-03_rb/)
+      kbo(:,26, 3) = (/ &
+     &4.5763e-03_rb,5.1227e-03_rb,5.7207e-03_rb,6.3561e-03_rb,7.0425e-03_rb/)
+      kbo(:,27, 3) = (/ &
+     &3.9329e-03_rb,4.4226e-03_rb,4.9281e-03_rb,5.4554e-03_rb,6.0474e-03_rb/)
+      kbo(:,28, 3) = (/ &
+     &3.3818e-03_rb,3.7926e-03_rb,4.2066e-03_rb,4.6531e-03_rb,5.1585e-03_rb/)
+      kbo(:,29, 3) = (/ &
+     &2.9035e-03_rb,3.2271e-03_rb,3.5855e-03_rb,3.9705e-03_rb,4.3799e-03_rb/)
+      kbo(:,30, 3) = (/ &
+     &2.4837e-03_rb,2.7647e-03_rb,3.0488e-03_rb,3.3703e-03_rb,3.7029e-03_rb/)
+      kbo(:,31, 3) = (/ &
+     &2.0927e-03_rb,2.3283e-03_rb,2.5712e-03_rb,2.8545e-03_rb,3.1157e-03_rb/)
+      kbo(:,32, 3) = (/ &
+     &1.7660e-03_rb,1.9568e-03_rb,2.1676e-03_rb,2.3923e-03_rb,2.6159e-03_rb/)
+      kbo(:,33, 3) = (/ &
+     &1.4871e-03_rb,1.6499e-03_rb,1.8213e-03_rb,2.0066e-03_rb,2.1979e-03_rb/)
+      kbo(:,34, 3) = (/ &
+     &1.2670e-03_rb,1.4012e-03_rb,1.5485e-03_rb,1.7073e-03_rb,1.8735e-03_rb/)
+      kbo(:,35, 3) = (/ &
+     &1.0672e-03_rb,1.1813e-03_rb,1.3131e-03_rb,1.4449e-03_rb,1.5924e-03_rb/)
+      kbo(:,36, 3) = (/ &
+     &8.9185e-04_rb,9.8733e-04_rb,1.0955e-03_rb,1.2168e-03_rb,1.3441e-03_rb/)
+      kbo(:,37, 3) = (/ &
+     &7.2820e-04_rb,8.0537e-04_rb,8.9528e-04_rb,9.9910e-04_rb,1.1050e-03_rb/)
+      kbo(:,38, 3) = (/ &
+     &5.9186e-04_rb,6.5591e-04_rb,7.2922e-04_rb,8.1759e-04_rb,9.0441e-04_rb/)
+      kbo(:,39, 3) = (/ &
+     &4.8327e-04_rb,5.3477e-04_rb,5.9527e-04_rb,6.6884e-04_rb,7.4026e-04_rb/)
+      kbo(:,40, 3) = (/ &
+     &3.8671e-04_rb,4.2869e-04_rb,4.7628e-04_rb,5.3686e-04_rb,5.9502e-04_rb/)
+      kbo(:,41, 3) = (/ &
+     &3.0862e-04_rb,3.4166e-04_rb,3.8000e-04_rb,4.2745e-04_rb,4.7580e-04_rb/)
+      kbo(:,42, 3) = (/ &
+     &2.4577e-04_rb,2.7168e-04_rb,3.0221e-04_rb,3.3942e-04_rb,3.8025e-04_rb/)
+      kbo(:,43, 3) = (/ &
+     &1.9416e-04_rb,2.1479e-04_rb,2.3878e-04_rb,2.6702e-04_rb,3.0069e-04_rb/)
+      kbo(:,44, 3) = (/ &
+     &1.5374e-04_rb,1.6929e-04_rb,1.8776e-04_rb,2.0950e-04_rb,2.3556e-04_rb/)
+      kbo(:,45, 3) = (/ &
+     &1.2163e-04_rb,1.3301e-04_rb,1.4695e-04_rb,1.6433e-04_rb,1.8435e-04_rb/)
+      kbo(:,46, 3) = (/ &
+     &9.4928e-05_rb,1.0426e-04_rb,1.1546e-04_rb,1.2841e-04_rb,1.4410e-04_rb/)
+      kbo(:,47, 3) = (/ &
+     &7.3995e-05_rb,8.2130e-05_rb,9.0212e-05_rb,1.0006e-04_rb,1.1186e-04_rb/)
+      kbo(:,48, 3) = (/ &
+     &5.7893e-05_rb,6.3962e-05_rb,7.0352e-05_rb,7.8032e-05_rb,8.7072e-05_rb/)
+      kbo(:,49, 3) = (/ &
+     &4.5051e-05_rb,4.9908e-05_rb,5.5306e-05_rb,6.0837e-05_rb,6.7927e-05_rb/)
+      kbo(:,50, 3) = (/ &
+     &3.5303e-05_rb,3.9326e-05_rb,4.3324e-05_rb,4.7812e-05_rb,5.3164e-05_rb/)
+      kbo(:,51, 3) = (/ &
+     &2.7771e-05_rb,3.0856e-05_rb,3.4054e-05_rb,3.7804e-05_rb,4.1758e-05_rb/)
+      kbo(:,52, 3) = (/ &
+     &2.1938e-05_rb,2.4227e-05_rb,2.6919e-05_rb,2.9733e-05_rb,3.2981e-05_rb/)
+      kbo(:,53, 3) = (/ &
+     &1.7187e-05_rb,1.9050e-05_rb,2.1224e-05_rb,2.3374e-05_rb,2.5986e-05_rb/)
+      kbo(:,54, 3) = (/ &
+     &1.3551e-05_rb,1.5084e-05_rb,1.6671e-05_rb,1.8493e-05_rb,2.0639e-05_rb/)
+      kbo(:,55, 3) = (/ &
+     &1.0736e-05_rb,1.1998e-05_rb,1.3230e-05_rb,1.4714e-05_rb,1.6387e-05_rb/)
+      kbo(:,56, 3) = (/ &
+     &8.4780e-06_rb,9.5613e-06_rb,1.0535e-05_rb,1.1722e-05_rb,1.2981e-05_rb/)
+      kbo(:,57, 3) = (/ &
+     &6.6892e-06_rb,7.5486e-06_rb,8.3874e-06_rb,9.3040e-06_rb,1.0324e-05_rb/)
+      kbo(:,58, 3) = (/ &
+     &5.3282e-06_rb,5.9530e-06_rb,6.6841e-06_rb,7.4078e-06_rb,8.2298e-06_rb/)
+      kbo(:,59, 3) = (/ &
+     &4.3459e-06_rb,4.8321e-06_rb,5.4567e-06_rb,6.0369e-06_rb,6.7261e-06_rb/)
+      kbo(:,13, 4) = (/ &
+     &6.7009e-02_rb,7.0746e-02_rb,7.4150e-02_rb,7.7569e-02_rb,8.1680e-02_rb/)
+      kbo(:,14, 4) = (/ &
+     &5.5943e-02_rb,5.8697e-02_rb,6.1678e-02_rb,6.4914e-02_rb,6.9379e-02_rb/)
+      kbo(:,15, 4) = (/ &
+     &4.6843e-02_rb,4.9217e-02_rb,5.1833e-02_rb,5.5783e-02_rb,5.9767e-02_rb/)
+      kbo(:,16, 4) = (/ &
+     &3.9239e-02_rb,4.1262e-02_rb,4.4032e-02_rb,4.7642e-02_rb,5.1925e-02_rb/)
+      kbo(:,17, 4) = (/ &
+     &3.3107e-02_rb,3.5295e-02_rb,3.8541e-02_rb,4.2220e-02_rb,4.6357e-02_rb/)
+      kbo(:,18, 4) = (/ &
+     &2.8797e-02_rb,3.1620e-02_rb,3.4631e-02_rb,3.8034e-02_rb,4.1725e-02_rb/)
+      kbo(:,19, 4) = (/ &
+     &2.5628e-02_rb,2.8281e-02_rb,3.1139e-02_rb,3.4358e-02_rb,3.7925e-02_rb/)
+      kbo(:,20, 4) = (/ &
+     &2.2579e-02_rb,2.4906e-02_rb,2.7554e-02_rb,3.0345e-02_rb,3.3488e-02_rb/)
+      kbo(:,21, 4) = (/ &
+     &1.9528e-02_rb,2.1738e-02_rb,2.4107e-02_rb,2.6707e-02_rb,2.9475e-02_rb/)
+      kbo(:,22, 4) = (/ &
+     &1.7101e-02_rb,1.8986e-02_rb,2.1039e-02_rb,2.3296e-02_rb,2.5855e-02_rb/)
+      kbo(:,23, 4) = (/ &
+     &1.4866e-02_rb,1.6502e-02_rb,1.8337e-02_rb,2.0414e-02_rb,2.2548e-02_rb/)
+      kbo(:,24, 4) = (/ &
+     &1.2821e-02_rb,1.4288e-02_rb,1.5941e-02_rb,1.7747e-02_rb,1.9679e-02_rb/)
+      kbo(:,25, 4) = (/ &
+     &1.1061e-02_rb,1.2369e-02_rb,1.3872e-02_rb,1.5379e-02_rb,1.7059e-02_rb/)
+      kbo(:,26, 4) = (/ &
+     &9.5354e-03_rb,1.0723e-02_rb,1.2012e-02_rb,1.3430e-02_rb,1.4839e-02_rb/)
+      kbo(:,27, 4) = (/ &
+     &8.1975e-03_rb,9.2673e-03_rb,1.0387e-02_rb,1.1650e-02_rb,1.2827e-02_rb/)
+      kbo(:,28, 4) = (/ &
+     &7.0231e-03_rb,7.9702e-03_rb,8.9828e-03_rb,1.0032e-02_rb,1.1053e-02_rb/)
+      kbo(:,29, 4) = (/ &
+     &6.0200e-03_rb,6.8421e-03_rb,7.7670e-03_rb,8.6094e-03_rb,9.5249e-03_rb/)
+      kbo(:,30, 4) = (/ &
+     &5.1558e-03_rb,5.8823e-03_rb,6.6735e-03_rb,7.4143e-03_rb,8.2222e-03_rb/)
+      kbo(:,31, 4) = (/ &
+     &4.4508e-03_rb,5.1031e-03_rb,5.7395e-03_rb,6.3990e-03_rb,7.0930e-03_rb/)
+      kbo(:,32, 4) = (/ &
+     &3.8687e-03_rb,4.4226e-03_rb,4.9634e-03_rb,5.5499e-03_rb,6.1447e-03_rb/)
+      kbo(:,33, 4) = (/ &
+     &3.3860e-03_rb,3.8414e-03_rb,4.3170e-03_rb,4.8129e-03_rb,5.3113e-03_rb/)
+      kbo(:,34, 4) = (/ &
+     &2.9667e-03_rb,3.3572e-03_rb,3.7642e-03_rb,4.1882e-03_rb,4.5973e-03_rb/)
+      kbo(:,35, 4) = (/ &
+     &2.5854e-03_rb,2.9160e-03_rb,3.2542e-03_rb,3.6120e-03_rb,3.9574e-03_rb/)
+      kbo(:,36, 4) = (/ &
+     &2.2132e-03_rb,2.5004e-03_rb,2.7859e-03_rb,3.0722e-03_rb,3.3673e-03_rb/)
+      kbo(:,37, 4) = (/ &
+     &1.8397e-03_rb,2.0798e-03_rb,2.3185e-03_rb,2.5525e-03_rb,2.8046e-03_rb/)
+      kbo(:,38, 4) = (/ &
+     &1.5241e-03_rb,1.7240e-03_rb,1.9250e-03_rb,2.1190e-03_rb,2.3334e-03_rb/)
+      kbo(:,39, 4) = (/ &
+     &1.2578e-03_rb,1.4258e-03_rb,1.5974e-03_rb,1.7602e-03_rb,1.9414e-03_rb/)
+      kbo(:,40, 4) = (/ &
+     &1.0136e-03_rb,1.1511e-03_rb,1.2925e-03_rb,1.4274e-03_rb,1.5799e-03_rb/)
+      kbo(:,41, 4) = (/ &
+     &8.1255e-04_rb,9.2485e-04_rb,1.0421e-03_rb,1.1560e-03_rb,1.2823e-03_rb/)
+      kbo(:,42, 4) = (/ &
+     &6.5076e-04_rb,7.4076e-04_rb,8.3891e-04_rb,9.3536e-04_rb,1.0398e-03_rb/)
+      kbo(:,43, 4) = (/ &
+     &5.1457e-04_rb,5.8675e-04_rb,6.6625e-04_rb,7.5025e-04_rb,8.3332e-04_rb/)
+      kbo(:,44, 4) = (/ &
+     &4.0130e-04_rb,4.6112e-04_rb,5.2500e-04_rb,5.9353e-04_rb,6.6396e-04_rb/)
+      kbo(:,45, 4) = (/ &
+     &3.1174e-04_rb,3.6176e-04_rb,4.1281e-04_rb,4.6943e-04_rb,5.2749e-04_rb/)
+      kbo(:,46, 4) = (/ &
+     &2.4198e-04_rb,2.8347e-04_rb,3.2327e-04_rb,3.6940e-04_rb,4.1847e-04_rb/)
+      kbo(:,47, 4) = (/ &
+     &1.8653e-04_rb,2.1946e-04_rb,2.5297e-04_rb,2.9033e-04_rb,3.3117e-04_rb/)
+      kbo(:,48, 4) = (/ &
+     &1.4273e-04_rb,1.6990e-04_rb,1.9780e-04_rb,2.2703e-04_rb,2.6076e-04_rb/)
+      kbo(:,49, 4) = (/ &
+     &1.1020e-04_rb,1.3076e-04_rb,1.5369e-04_rb,1.7736e-04_rb,2.0453e-04_rb/)
+      kbo(:,50, 4) = (/ &
+     &8.5840e-05_rb,1.0098e-04_rb,1.2003e-04_rb,1.3937e-04_rb,1.6133e-04_rb/)
+      kbo(:,51, 4) = (/ &
+     &6.7375e-05_rb,7.8667e-05_rb,9.3691e-05_rb,1.0967e-04_rb,1.2714e-04_rb/)
+      kbo(:,52, 4) = (/ &
+     &5.2333e-05_rb,6.1321e-05_rb,7.2765e-05_rb,8.6008e-05_rb,9.9915e-05_rb/)
+      kbo(:,53, 4) = (/ &
+     &4.0658e-05_rb,4.7664e-05_rb,5.6514e-05_rb,6.7300e-05_rb,7.8701e-05_rb/)
+      kbo(:,54, 4) = (/ &
+     &3.1857e-05_rb,3.7478e-05_rb,4.4306e-05_rb,5.3025e-05_rb,6.2299e-05_rb/)
+      kbo(:,55, 4) = (/ &
+     &2.4955e-05_rb,2.9435e-05_rb,3.4823e-05_rb,4.1578e-05_rb,4.9419e-05_rb/)
+      kbo(:,56, 4) = (/ &
+     &1.9655e-05_rb,2.3009e-05_rb,2.7169e-05_rb,3.2570e-05_rb,3.9005e-05_rb/)
+      kbo(:,57, 4) = (/ &
+     &1.5476e-05_rb,1.8100e-05_rb,2.1340e-05_rb,2.5521e-05_rb,3.0667e-05_rb/)
+      kbo(:,58, 4) = (/ &
+     &1.2154e-05_rb,1.4292e-05_rb,1.6827e-05_rb,2.0050e-05_rb,2.4167e-05_rb/)
+      kbo(:,59, 4) = (/ &
+     &9.8901e-06_rb,1.1647e-05_rb,1.3760e-05_rb,1.6454e-05_rb,1.9831e-05_rb/)
+      kbo(:,13, 5) = (/ &
+     &1.3634e-01_rb,1.4252e-01_rb,1.5001e-01_rb,1.6028e-01_rb,1.7134e-01_rb/)
+      kbo(:,14, 5) = (/ &
+     &1.1274e-01_rb,1.1839e-01_rb,1.2582e-01_rb,1.3453e-01_rb,1.4378e-01_rb/)
+      kbo(:,15, 5) = (/ &
+     &9.3550e-02_rb,9.9682e-02_rb,1.0681e-01_rb,1.1432e-01_rb,1.2335e-01_rb/)
+      kbo(:,16, 5) = (/ &
+     &7.9704e-02_rb,8.5926e-02_rb,9.2006e-02_rb,9.9216e-02_rb,1.0669e-01_rb/)
+      kbo(:,17, 5) = (/ &
+     &6.9562e-02_rb,7.4399e-02_rb,8.0031e-02_rb,8.6090e-02_rb,9.3210e-02_rb/)
+      kbo(:,18, 5) = (/ &
+     &6.1028e-02_rb,6.5373e-02_rb,7.1097e-02_rb,7.7143e-02_rb,8.4153e-02_rb/)
+      kbo(:,19, 5) = (/ &
+     &5.4138e-02_rb,5.9145e-02_rb,6.4366e-02_rb,7.0461e-02_rb,7.6822e-02_rb/)
+      kbo(:,20, 5) = (/ &
+     &4.7698e-02_rb,5.2419e-02_rb,5.7657e-02_rb,6.3398e-02_rb,6.9523e-02_rb/)
+      kbo(:,21, 5) = (/ &
+     &4.2126e-02_rb,4.6323e-02_rb,5.1164e-02_rb,5.6007e-02_rb,6.1597e-02_rb/)
+      kbo(:,22, 5) = (/ &
+     &3.6873e-02_rb,4.0763e-02_rb,4.4958e-02_rb,4.9556e-02_rb,5.4204e-02_rb/)
+      kbo(:,23, 5) = (/ &
+     &3.2201e-02_rb,3.5761e-02_rb,3.9530e-02_rb,4.3670e-02_rb,4.7920e-02_rb/)
+      kbo(:,24, 5) = (/ &
+     &2.8239e-02_rb,3.1305e-02_rb,3.4844e-02_rb,3.8415e-02_rb,4.2157e-02_rb/)
+      kbo(:,25, 5) = (/ &
+     &2.4669e-02_rb,2.7511e-02_rb,3.0568e-02_rb,3.3769e-02_rb,3.6890e-02_rb/)
+      kbo(:,26, 5) = (/ &
+     &2.1582e-02_rb,2.4173e-02_rb,2.6811e-02_rb,2.9496e-02_rb,3.2330e-02_rb/)
+      kbo(:,27, 5) = (/ &
+     &1.8849e-02_rb,2.1094e-02_rb,2.3446e-02_rb,2.5755e-02_rb,2.8374e-02_rb/)
+      kbo(:,28, 5) = (/ &
+     &1.6379e-02_rb,1.8330e-02_rb,2.0367e-02_rb,2.2542e-02_rb,2.4931e-02_rb/)
+      kbo(:,29, 5) = (/ &
+     &1.4280e-02_rb,1.5993e-02_rb,1.7723e-02_rb,1.9736e-02_rb,2.1895e-02_rb/)
+      kbo(:,30, 5) = (/ &
+     &1.2451e-02_rb,1.3902e-02_rb,1.5477e-02_rb,1.7322e-02_rb,1.9234e-02_rb/)
+      kbo(:,31, 5) = (/ &
+     &1.0840e-02_rb,1.2122e-02_rb,1.3593e-02_rb,1.5159e-02_rb,1.6921e-02_rb/)
+      kbo(:,32, 5) = (/ &
+     &9.4753e-03_rb,1.0651e-02_rb,1.1992e-02_rb,1.3397e-02_rb,1.4887e-02_rb/)
+      kbo(:,33, 5) = (/ &
+     &8.3358e-03_rb,9.4249e-03_rb,1.0592e-02_rb,1.1871e-02_rb,1.3208e-02_rb/)
+      kbo(:,34, 5) = (/ &
+     &7.3799e-03_rb,8.3765e-03_rb,9.4456e-03_rb,1.0582e-02_rb,1.1863e-02_rb/)
+      kbo(:,35, 5) = (/ &
+     &6.4631e-03_rb,7.3628e-03_rb,8.3364e-03_rb,9.3419e-03_rb,1.0526e-02_rb/)
+      kbo(:,36, 5) = (/ &
+     &5.5926e-03_rb,6.3888e-03_rb,7.2585e-03_rb,8.2192e-03_rb,9.2462e-03_rb/)
+      kbo(:,37, 5) = (/ &
+     &4.7015e-03_rb,5.3951e-03_rb,6.1680e-03_rb,7.0229e-03_rb,7.9329e-03_rb/)
+      kbo(:,38, 5) = (/ &
+     &3.9517e-03_rb,4.5644e-03_rb,5.2429e-03_rb,6.0141e-03_rb,6.8184e-03_rb/)
+      kbo(:,39, 5) = (/ &
+     &3.3266e-03_rb,3.8629e-03_rb,4.4575e-03_rb,5.1473e-03_rb,5.8646e-03_rb/)
+      kbo(:,40, 5) = (/ &
+     &2.7281e-03_rb,3.1818e-03_rb,3.6932e-03_rb,4.2742e-03_rb,4.8976e-03_rb/)
+      kbo(:,41, 5) = (/ &
+     &2.2270e-03_rb,2.6113e-03_rb,3.0386e-03_rb,3.5308e-03_rb,4.0601e-03_rb/)
+      kbo(:,42, 5) = (/ &
+     &1.8093e-03_rb,2.1403e-03_rb,2.4947e-03_rb,2.9136e-03_rb,3.3566e-03_rb/)
+      kbo(:,43, 5) = (/ &
+     &1.4510e-03_rb,1.7247e-03_rb,2.0294e-03_rb,2.3716e-03_rb,2.7407e-03_rb/)
+      kbo(:,44, 5) = (/ &
+     &1.1565e-03_rb,1.3809e-03_rb,1.6356e-03_rb,1.9170e-03_rb,2.2199e-03_rb/)
+      kbo(:,45, 5) = (/ &
+     &9.2074e-04_rb,1.1011e-03_rb,1.3110e-03_rb,1.5432e-03_rb,1.7974e-03_rb/)
+      kbo(:,46, 5) = (/ &
+     &7.2799e-04_rb,8.7147e-04_rb,1.0468e-03_rb,1.2375e-03_rb,1.4475e-03_rb/)
+      kbo(:,47, 5) = (/ &
+     &5.6825e-04_rb,6.8576e-04_rb,8.2827e-04_rb,9.8300e-04_rb,1.1595e-03_rb/)
+      kbo(:,48, 5) = (/ &
+     &4.4362e-04_rb,5.3785e-04_rb,6.5132e-04_rb,7.7947e-04_rb,9.2729e-04_rb/)
+      kbo(:,49, 5) = (/ &
+     &3.4360e-04_rb,4.2004e-04_rb,5.1060e-04_rb,6.1673e-04_rb,7.3913e-04_rb/)
+      kbo(:,50, 5) = (/ &
+     &2.6639e-04_rb,3.2974e-04_rb,4.0310e-04_rb,4.8991e-04_rb,5.9182e-04_rb/)
+      kbo(:,51, 5) = (/ &
+     &2.0705e-04_rb,2.5803e-04_rb,3.1790e-04_rb,3.8886e-04_rb,4.7401e-04_rb/)
+      kbo(:,52, 5) = (/ &
+     &1.6104e-04_rb,2.0156e-04_rb,2.4998e-04_rb,3.0713e-04_rb,3.7759e-04_rb/)
+      kbo(:,53, 5) = (/ &
+     &1.2422e-04_rb,1.5670e-04_rb,1.9587e-04_rb,2.4211e-04_rb,2.9925e-04_rb/)
+      kbo(:,54, 5) = (/ &
+     &9.6443e-05_rb,1.2239e-04_rb,1.5459e-04_rb,1.9203e-04_rb,2.3866e-04_rb/)
+      kbo(:,55, 5) = (/ &
+     &7.5345e-05_rb,9.6163e-05_rb,1.2185e-04_rb,1.5278e-04_rb,1.9092e-04_rb/)
+      kbo(:,56, 5) = (/ &
+     &5.8479e-05_rb,7.5388e-05_rb,9.6163e-05_rb,1.2109e-04_rb,1.5224e-04_rb/)
+      kbo(:,57, 5) = (/ &
+     &4.5173e-05_rb,5.8728e-05_rb,7.5432e-05_rb,9.5735e-05_rb,1.2084e-04_rb/)
+      kbo(:,58, 5) = (/ &
+     &3.5110e-05_rb,4.5659e-05_rb,5.9108e-05_rb,7.5684e-05_rb,9.5780e-05_rb/)
+      kbo(:,59, 5) = (/ &
+     &2.8669e-05_rb,3.7452e-05_rb,4.8577e-05_rb,6.2553e-05_rb,7.9913e-05_rb/)
+      kbo(:,13, 6) = (/ &
+     &3.1943e-01_rb,3.3627e-01_rb,3.5152e-01_rb,3.6856e-01_rb,3.8489e-01_rb/)
+      kbo(:,14, 6) = (/ &
+     &2.6955e-01_rb,2.8315e-01_rb,2.9631e-01_rb,3.1035e-01_rb,3.2480e-01_rb/)
+      kbo(:,15, 6) = (/ &
+     &2.2744e-01_rb,2.3792e-01_rb,2.4935e-01_rb,2.6127e-01_rb,2.7359e-01_rb/)
+      kbo(:,16, 6) = (/ &
+     &1.9190e-01_rb,2.0128e-01_rb,2.1209e-01_rb,2.2354e-01_rb,2.3634e-01_rb/)
+      kbo(:,17, 6) = (/ &
+     &1.6550e-01_rb,1.7572e-01_rb,1.8575e-01_rb,1.9639e-01_rb,2.0864e-01_rb/)
+      kbo(:,18, 6) = (/ &
+     &1.4664e-01_rb,1.5533e-01_rb,1.6464e-01_rb,1.7496e-01_rb,1.8532e-01_rb/)
+      kbo(:,19, 6) = (/ &
+     &1.3086e-01_rb,1.3857e-01_rb,1.4754e-01_rb,1.5676e-01_rb,1.6804e-01_rb/)
+      kbo(:,20, 6) = (/ &
+     &1.1476e-01_rb,1.2256e-01_rb,1.3048e-01_rb,1.3999e-01_rb,1.5052e-01_rb/)
+      kbo(:,21, 6) = (/ &
+     &1.0042e-01_rb,1.0755e-01_rb,1.1552e-01_rb,1.2457e-01_rb,1.3541e-01_rb/)
+      kbo(:,22, 6) = (/ &
+     &8.7811e-02_rb,9.4376e-02_rb,1.0240e-01_rb,1.1139e-01_rb,1.2190e-01_rb/)
+      kbo(:,23, 6) = (/ &
+     &7.6746e-02_rb,8.3440e-02_rb,9.0958e-02_rb,9.9436e-02_rb,1.0837e-01_rb/)
+      kbo(:,24, 6) = (/ &
+     &6.7020e-02_rb,7.3597e-02_rb,8.0186e-02_rb,8.7655e-02_rb,9.5847e-02_rb/)
+      kbo(:,25, 6) = (/ &
+     &5.8852e-02_rb,6.4342e-02_rb,7.0651e-02_rb,7.7553e-02_rb,8.5595e-02_rb/)
+      kbo(:,26, 6) = (/ &
+     &5.1501e-02_rb,5.6677e-02_rb,6.2671e-02_rb,6.9309e-02_rb,7.6862e-02_rb/)
+      kbo(:,27, 6) = (/ &
+     &4.5068e-02_rb,5.0089e-02_rb,5.5571e-02_rb,6.2056e-02_rb,6.8532e-02_rb/)
+      kbo(:,28, 6) = (/ &
+     &3.9606e-02_rb,4.4193e-02_rb,4.9408e-02_rb,5.5057e-02_rb,6.0956e-02_rb/)
+      kbo(:,29, 6) = (/ &
+     &3.4989e-02_rb,3.9176e-02_rb,4.4032e-02_rb,4.9174e-02_rb,5.4655e-02_rb/)
+      kbo(:,30, 6) = (/ &
+     &3.0943e-02_rb,3.4971e-02_rb,3.9398e-02_rb,4.4027e-02_rb,4.9163e-02_rb/)
+      kbo(:,31, 6) = (/ &
+     &2.7553e-02_rb,3.1287e-02_rb,3.5351e-02_rb,3.9782e-02_rb,4.4558e-02_rb/)
+      kbo(:,32, 6) = (/ &
+     &2.4710e-02_rb,2.8155e-02_rb,3.1869e-02_rb,3.6099e-02_rb,4.0666e-02_rb/)
+      kbo(:,33, 6) = (/ &
+     &2.2173e-02_rb,2.5362e-02_rb,2.8990e-02_rb,3.2965e-02_rb,3.7297e-02_rb/)
+      kbo(:,34, 6) = (/ &
+     &2.0107e-02_rb,2.3109e-02_rb,2.6574e-02_rb,3.0332e-02_rb,3.4357e-02_rb/)
+      kbo(:,35, 6) = (/ &
+     &1.8022e-02_rb,2.0877e-02_rb,2.4132e-02_rb,2.7710e-02_rb,3.1520e-02_rb/)
+      kbo(:,36, 6) = (/ &
+     &1.5963e-02_rb,1.8659e-02_rb,2.1660e-02_rb,2.4929e-02_rb,2.8560e-02_rb/)
+      kbo(:,37, 6) = (/ &
+     &1.3764e-02_rb,1.6188e-02_rb,1.8916e-02_rb,2.1932e-02_rb,2.5294e-02_rb/)
+      kbo(:,38, 6) = (/ &
+     &1.1849e-02_rb,1.4028e-02_rb,1.6494e-02_rb,1.9269e-02_rb,2.2340e-02_rb/)
+      kbo(:,39, 6) = (/ &
+     &1.0207e-02_rb,1.2194e-02_rb,1.4401e-02_rb,1.6941e-02_rb,1.9796e-02_rb/)
+      kbo(:,40, 6) = (/ &
+     &8.5573e-03_rb,1.0315e-02_rb,1.2260e-02_rb,1.4559e-02_rb,1.7141e-02_rb/)
+      kbo(:,41, 6) = (/ &
+     &7.1290e-03_rb,8.6738e-03_rb,1.0403e-02_rb,1.2445e-02_rb,1.4801e-02_rb/)
+      kbo(:,42, 6) = (/ &
+     &5.9179e-03_rb,7.2709e-03_rb,8.8122e-03_rb,1.0627e-02_rb,1.2787e-02_rb/)
+      kbo(:,43, 6) = (/ &
+     &4.8318e-03_rb,5.9892e-03_rb,7.3334e-03_rb,8.9514e-03_rb,1.0874e-02_rb/)
+      kbo(:,44, 6) = (/ &
+     &3.8999e-03_rb,4.8767e-03_rb,6.0501e-03_rb,7.4816e-03_rb,9.1794e-03_rb/)
+      kbo(:,45, 6) = (/ &
+     &3.1360e-03_rb,3.9601e-03_rb,4.9837e-03_rb,6.2240e-03_rb,7.7311e-03_rb/)
+      kbo(:,46, 6) = (/ &
+     &2.5027e-03_rb,3.1827e-03_rb,4.0540e-03_rb,5.1329e-03_rb,6.4480e-03_rb/)
+      kbo(:,47, 6) = (/ &
+     &1.9756e-03_rb,2.5273e-03_rb,3.2610e-03_rb,4.1749e-03_rb,5.3122e-03_rb/)
+      kbo(:,48, 6) = (/ &
+     &1.5473e-03_rb,1.9960e-03_rb,2.6043e-03_rb,3.3772e-03_rb,4.3437e-03_rb/)
+      kbo(:,49, 6) = (/ &
+     &1.2068e-03_rb,1.5706e-03_rb,2.0674e-03_rb,2.7091e-03_rb,3.5307e-03_rb/)
+      kbo(:,50, 6) = (/ &
+     &9.4521e-04_rb,1.2396e-03_rb,1.6445e-03_rb,2.1801e-03_rb,2.8792e-03_rb/)
+      kbo(:,51, 6) = (/ &
+     &7.3804e-04_rb,9.7746e-04_rb,1.3076e-03_rb,1.7542e-03_rb,2.3409e-03_rb/)
+      kbo(:,52, 6) = (/ &
+     &5.7206e-04_rb,7.6763e-04_rb,1.0338e-03_rb,1.4015e-03_rb,1.8909e-03_rb/)
+      kbo(:,53, 6) = (/ &
+     &4.4225e-04_rb,5.9805e-04_rb,8.1248e-04_rb,1.1113e-03_rb,1.5170e-03_rb/)
+      kbo(:,54, 6) = (/ &
+     &3.4467e-04_rb,4.7010e-04_rb,6.4272e-04_rb,8.8848e-04_rb,1.2276e-03_rb/)
+      kbo(:,55, 6) = (/ &
+     &2.6885e-04_rb,3.6925e-04_rb,5.1051e-04_rb,7.1238e-04_rb,9.9424e-04_rb/)
+      kbo(:,56, 6) = (/ &
+     &2.0891e-04_rb,2.8866e-04_rb,4.0323e-04_rb,5.6854e-04_rb,8.0318e-04_rb/)
+      kbo(:,57, 6) = (/ &
+     &1.6206e-04_rb,2.2457e-04_rb,3.1663e-04_rb,4.5154e-04_rb,6.4436e-04_rb/)
+      kbo(:,58, 6) = (/ &
+     &1.2565e-04_rb,1.7534e-04_rb,2.4919e-04_rb,3.5849e-04_rb,5.1835e-04_rb/)
+      kbo(:,59, 6) = (/ &
+     &1.0370e-04_rb,1.4590e-04_rb,2.0972e-04_rb,3.0572e-04_rb,4.4824e-04_rb/)
+      kbo(:,13, 7) = (/ &
+     &8.6885e-01_rb,8.9426e-01_rb,9.2071e-01_rb,9.5081e-01_rb,9.7593e-01_rb/)
+      kbo(:,14, 7) = (/ &
+     &7.3422e-01_rb,7.5692e-01_rb,7.8528e-01_rb,8.1141e-01_rb,8.3349e-01_rb/)
+      kbo(:,15, 7) = (/ &
+     &6.1192e-01_rb,6.3447e-01_rb,6.5837e-01_rb,6.7854e-01_rb,7.0269e-01_rb/)
+      kbo(:,16, 7) = (/ &
+     &5.0884e-01_rb,5.2842e-01_rb,5.4670e-01_rb,5.6627e-01_rb,5.8867e-01_rb/)
+      kbo(:,17, 7) = (/ &
+     &4.3640e-01_rb,4.5419e-01_rb,4.7288e-01_rb,4.9197e-01_rb,5.1336e-01_rb/)
+      kbo(:,18, 7) = (/ &
+     &3.8407e-01_rb,4.0203e-01_rb,4.1993e-01_rb,4.4018e-01_rb,4.6362e-01_rb/)
+      kbo(:,19, 7) = (/ &
+     &3.4228e-01_rb,3.5912e-01_rb,3.7740e-01_rb,3.9888e-01_rb,4.2103e-01_rb/)
+      kbo(:,20, 7) = (/ &
+     &3.0199e-01_rb,3.1730e-01_rb,3.3484e-01_rb,3.5351e-01_rb,3.7675e-01_rb/)
+      kbo(:,21, 7) = (/ &
+     &2.6553e-01_rb,2.8042e-01_rb,2.9603e-01_rb,3.1609e-01_rb,3.3882e-01_rb/)
+      kbo(:,22, 7) = (/ &
+     &2.3320e-01_rb,2.4726e-01_rb,2.6434e-01_rb,2.8368e-01_rb,3.0736e-01_rb/)
+      kbo(:,23, 7) = (/ &
+     &2.0578e-01_rb,2.1941e-01_rb,2.3579e-01_rb,2.5629e-01_rb,2.8224e-01_rb/)
+      kbo(:,24, 7) = (/ &
+     &1.8045e-01_rb,1.9362e-01_rb,2.1135e-01_rb,2.3376e-01_rb,2.5793e-01_rb/)
+      kbo(:,25, 7) = (/ &
+     &1.5885e-01_rb,1.7311e-01_rb,1.9174e-01_rb,2.1249e-01_rb,2.3261e-01_rb/)
+      kbo(:,26, 7) = (/ &
+     &1.4101e-01_rb,1.5639e-01_rb,1.7418e-01_rb,1.9114e-01_rb,2.1048e-01_rb/)
+      kbo(:,27, 7) = (/ &
+     &1.2599e-01_rb,1.4076e-01_rb,1.5557e-01_rb,1.7183e-01_rb,1.9023e-01_rb/)
+      kbo(:,28, 7) = (/ &
+     &1.1218e-01_rb,1.2546e-01_rb,1.3903e-01_rb,1.5482e-01_rb,1.7215e-01_rb/)
+      kbo(:,29, 7) = (/ &
+     &1.0072e-01_rb,1.1254e-01_rb,1.2583e-01_rb,1.4062e-01_rb,1.5650e-01_rb/)
+      kbo(:,30, 7) = (/ &
+     &9.0713e-02_rb,1.0192e-01_rb,1.1464e-01_rb,1.2854e-01_rb,1.4398e-01_rb/)
+      kbo(:,31, 7) = (/ &
+     &8.2277e-02_rb,9.3097e-02_rb,1.0524e-01_rb,1.1856e-01_rb,1.3355e-01_rb/)
+      kbo(:,32, 7) = (/ &
+     &7.5303e-02_rb,8.5763e-02_rb,9.7401e-02_rb,1.1054e-01_rb,1.2526e-01_rb/)
+      kbo(:,33, 7) = (/ &
+     &6.9506e-02_rb,7.9549e-02_rb,9.0902e-02_rb,1.0398e-01_rb,1.1862e-01_rb/)
+      kbo(:,34, 7) = (/ &
+     &6.4727e-02_rb,7.4554e-02_rb,8.5918e-02_rb,9.8930e-02_rb,1.1374e-01_rb/)
+      kbo(:,35, 7) = (/ &
+     &5.9573e-02_rb,6.9480e-02_rb,8.0602e-02_rb,9.3549e-02_rb,1.0847e-01_rb/)
+      kbo(:,36, 7) = (/ &
+     &5.4200e-02_rb,6.3825e-02_rb,7.4842e-02_rb,8.7689e-02_rb,1.0224e-01_rb/)
+      kbo(:,37, 7) = (/ &
+     &4.7941e-02_rb,5.7083e-02_rb,6.7560e-02_rb,8.0041e-02_rb,9.3919e-02_rb/)
+      kbo(:,38, 7) = (/ &
+     &4.2423e-02_rb,5.1057e-02_rb,6.0983e-02_rb,7.2873e-02_rb,8.6484e-02_rb/)
+      kbo(:,39, 7) = (/ &
+     &3.7589e-02_rb,4.5606e-02_rb,5.5155e-02_rb,6.6511e-02_rb,7.9703e-02_rb/)
+      kbo(:,40, 7) = (/ &
+     &3.2287e-02_rb,3.9605e-02_rb,4.8489e-02_rb,5.9153e-02_rb,7.1379e-02_rb/)
+      kbo(:,41, 7) = (/ &
+     &2.7611e-02_rb,3.4241e-02_rb,4.2425e-02_rb,5.2312e-02_rb,6.3597e-02_rb/)
+      kbo(:,42, 7) = (/ &
+     &2.3526e-02_rb,2.9544e-02_rb,3.7050e-02_rb,4.6066e-02_rb,5.6624e-02_rb/)
+      kbo(:,43, 7) = (/ &
+     &1.9724e-02_rb,2.5077e-02_rb,3.1787e-02_rb,3.9922e-02_rb,4.9656e-02_rb/)
+      kbo(:,44, 7) = (/ &
+     &1.6360e-02_rb,2.1054e-02_rb,2.6994e-02_rb,3.4254e-02_rb,4.3106e-02_rb/)
+      kbo(:,45, 7) = (/ &
+     &1.3479e-02_rb,1.7563e-02_rb,2.2810e-02_rb,2.9308e-02_rb,3.7331e-02_rb/)
+      kbo(:,46, 7) = (/ &
+     &1.0982e-02_rb,1.4524e-02_rb,1.9109e-02_rb,2.4872e-02_rb,3.2032e-02_rb/)
+      kbo(:,47, 7) = (/ &
+     &8.8182e-03_rb,1.1815e-02_rb,1.5755e-02_rb,2.0785e-02_rb,2.7117e-02_rb/)
+      kbo(:,48, 7) = (/ &
+     &7.0297e-03_rb,9.5228e-03_rb,1.2883e-02_rb,1.7248e-02_rb,2.2808e-02_rb/)
+      kbo(:,49, 7) = (/ &
+     &5.5570e-03_rb,7.6141e-03_rb,1.0446e-02_rb,1.4193e-02_rb,1.9030e-02_rb/)
+      kbo(:,50, 7) = (/ &
+     &4.4018e-03_rb,6.0988e-03_rb,8.5078e-03_rb,1.1727e-02_rb,1.5958e-02_rb/)
+      kbo(:,51, 7) = (/ &
+     &3.4813e-03_rb,4.8790e-03_rb,6.9087e-03_rb,9.6740e-03_rb,1.3370e-02_rb/)
+      kbo(:,52, 7) = (/ &
+     &2.7259e-03_rb,3.8645e-03_rb,5.5503e-03_rb,7.9313e-03_rb,1.1133e-02_rb/)
+      kbo(:,53, 7) = (/ &
+     &2.1153e-03_rb,3.0336e-03_rb,4.4195e-03_rb,6.4300e-03_rb,9.1714e-03_rb/)
+      kbo(:,54, 7) = (/ &
+     &1.6649e-03_rb,2.4099e-03_rb,3.5602e-03_rb,5.2651e-03_rb,7.6558e-03_rb/)
+      kbo(:,55, 7) = (/ &
+     &1.3120e-03_rb,1.9223e-03_rb,2.8746e-03_rb,4.3204e-03_rb,6.4144e-03_rb/)
+      kbo(:,56, 7) = (/ &
+     &1.0280e-03_rb,1.5213e-03_rb,2.3034e-03_rb,3.5254e-03_rb,5.3355e-03_rb/)
+      kbo(:,57, 7) = (/ &
+     &8.0119e-04_rb,1.1961e-03_rb,1.8353e-03_rb,2.8565e-03_rb,4.4054e-03_rb/)
+      kbo(:,58, 7) = (/ &
+     &6.2596e-04_rb,9.4223e-04_rb,1.4648e-03_rb,2.3194e-03_rb,3.6416e-03_rb/)
+      kbo(:,59, 7) = (/ &
+     &5.2923e-04_rb,8.1079e-04_rb,1.2847e-03_rb,2.0681e-03_rb,3.3065e-03_rb/)
+      kbo(:,13, 8) = (/ &
+     &3.0137e+00_rb,3.0721e+00_rb,3.1135e+00_rb,3.1353e+00_rb,3.1526e+00_rb/)
+      kbo(:,14, 8) = (/ &
+     &2.5881e+00_rb,2.6331e+00_rb,2.6669e+00_rb,2.6887e+00_rb,2.7106e+00_rb/)
+      kbo(:,15, 8) = (/ &
+     &2.2017e+00_rb,2.2477e+00_rb,2.2747e+00_rb,2.3022e+00_rb,2.3199e+00_rb/)
+      kbo(:,16, 8) = (/ &
+     &1.8745e+00_rb,1.9119e+00_rb,1.9407e+00_rb,1.9650e+00_rb,1.9910e+00_rb/)
+      kbo(:,17, 8) = (/ &
+     &1.5865e+00_rb,1.6181e+00_rb,1.6438e+00_rb,1.6744e+00_rb,1.7044e+00_rb/)
+      kbo(:,18, 8) = (/ &
+     &1.3469e+00_rb,1.3737e+00_rb,1.4061e+00_rb,1.4422e+00_rb,1.4784e+00_rb/)
+      kbo(:,19, 8) = (/ &
+     &1.1589e+00_rb,1.1936e+00_rb,1.2348e+00_rb,1.2728e+00_rb,1.3146e+00_rb/)
+      kbo(:,20, 8) = (/ &
+     &1.0242e+00_rb,1.0660e+00_rb,1.1056e+00_rb,1.1466e+00_rb,1.1869e+00_rb/)
+      kbo(:,21, 8) = (/ &
+     &9.1121e-01_rb,9.5273e-01_rb,9.9427e-01_rb,1.0332e+00_rb,1.0710e+00_rb/)
+      kbo(:,22, 8) = (/ &
+     &8.0647e-01_rb,8.4440e-01_rb,8.8114e-01_rb,9.1866e-01_rb,9.5785e-01_rb/)
+      kbo(:,23, 8) = (/ &
+     &7.0834e-01_rb,7.4542e-01_rb,7.7998e-01_rb,8.1759e-01_rb,8.5850e-01_rb/)
+      kbo(:,24, 8) = (/ &
+     &6.2177e-01_rb,6.5425e-01_rb,6.8799e-01_rb,7.2751e-01_rb,7.7799e-01_rb/)
+      kbo(:,25, 8) = (/ &
+     &5.4589e-01_rb,5.7729e-01_rb,6.1309e-01_rb,6.5804e-01_rb,7.1412e-01_rb/)
+      kbo(:,26, 8) = (/ &
+     &4.8128e-01_rb,5.1418e-01_rb,5.5324e-01_rb,6.0347e-01_rb,6.6308e-01_rb/)
+      kbo(:,27, 8) = (/ &
+     &4.2682e-01_rb,4.6055e-01_rb,5.0524e-01_rb,5.5765e-01_rb,6.2135e-01_rb/)
+      kbo(:,28, 8) = (/ &
+     &3.8006e-01_rb,4.1721e-01_rb,4.6337e-01_rb,5.1919e-01_rb,5.8322e-01_rb/)
+      kbo(:,29, 8) = (/ &
+     &3.4196e-01_rb,3.8125e-01_rb,4.2943e-01_rb,4.8588e-01_rb,5.5221e-01_rb/)
+      kbo(:,30, 8) = (/ &
+     &3.1093e-01_rb,3.5114e-01_rb,4.0038e-01_rb,4.5863e-01_rb,5.2276e-01_rb/)
+      kbo(:,31, 8) = (/ &
+     &2.8616e-01_rb,3.2668e-01_rb,3.7633e-01_rb,4.3472e-01_rb,4.9941e-01_rb/)
+      kbo(:,32, 8) = (/ &
+     &2.6688e-01_rb,3.0820e-01_rb,3.5883e-01_rb,4.1523e-01_rb,4.8206e-01_rb/)
+      kbo(:,33, 8) = (/ &
+     &2.5149e-01_rb,2.9538e-01_rb,3.4473e-01_rb,4.0327e-01_rb,4.6953e-01_rb/)
+      kbo(:,34, 8) = (/ &
+     &2.4069e-01_rb,2.8516e-01_rb,3.3563e-01_rb,3.9421e-01_rb,4.6040e-01_rb/)
+      kbo(:,35, 8) = (/ &
+     &2.2923e-01_rb,2.7328e-01_rb,3.2510e-01_rb,3.8300e-01_rb,4.4899e-01_rb/)
+      kbo(:,36, 8) = (/ &
+     &2.1677e-01_rb,2.6037e-01_rb,3.1183e-01_rb,3.6883e-01_rb,4.3509e-01_rb/)
+      kbo(:,37, 8) = (/ &
+     &1.9848e-01_rb,2.3986e-01_rb,2.8965e-01_rb,3.4421e-01_rb,4.0854e-01_rb/)
+      kbo(:,38, 8) = (/ &
+     &1.8143e-01_rb,2.2127e-01_rb,2.6901e-01_rb,3.2212e-01_rb,3.8468e-01_rb/)
+      kbo(:,39, 8) = (/ &
+     &1.6606e-01_rb,2.0455e-01_rb,2.5024e-01_rb,3.0203e-01_rb,3.6363e-01_rb/)
+      kbo(:,40, 8) = (/ &
+     &1.4741e-01_rb,1.8322e-01_rb,2.2603e-01_rb,2.7520e-01_rb,3.3417e-01_rb/)
+      kbo(:,41, 8) = (/ &
+     &1.3011e-01_rb,1.6308e-01_rb,2.0319e-01_rb,2.4965e-01_rb,3.0588e-01_rb/)
+      kbo(:,42, 8) = (/ &
+     &1.1484e-01_rb,1.4491e-01_rb,1.8233e-01_rb,2.2638e-01_rb,2.7964e-01_rb/)
+      kbo(:,43, 8) = (/ &
+     &9.9279e-02_rb,1.2633e-01_rb,1.6039e-01_rb,2.0179e-01_rb,2.5143e-01_rb/)
+      kbo(:,44, 8) = (/ &
+     &8.4904e-02_rb,1.0929e-01_rb,1.3953e-01_rb,1.7766e-01_rb,2.2379e-01_rb/)
+      kbo(:,45, 8) = (/ &
+     &7.2367e-02_rb,9.4015e-02_rb,1.2097e-01_rb,1.5526e-01_rb,1.9786e-01_rb/)
+      kbo(:,46, 8) = (/ &
+     &6.1012e-02_rb,8.0269e-02_rb,1.0419e-01_rb,1.3470e-01_rb,1.7331e-01_rb/)
+      kbo(:,47, 8) = (/ &
+     &5.0418e-02_rb,6.7581e-02_rb,8.8667e-02_rb,1.1556e-01_rb,1.5023e-01_rb/)
+      kbo(:,48, 8) = (/ &
+     &4.1555e-02_rb,5.6345e-02_rb,7.4999e-02_rb,9.8811e-02_rb,1.2934e-01_rb/)
+      kbo(:,49, 8) = (/ &
+     &3.3904e-02_rb,4.6392e-02_rb,6.2939e-02_rb,8.3873e-02_rb,1.1077e-01_rb/)
+      kbo(:,50, 8) = (/ &
+     &2.7924e-02_rb,3.8644e-02_rb,5.3103e-02_rb,7.1817e-02_rb,9.5860e-02_rb/)
+      kbo(:,51, 8) = (/ &
+     &2.3027e-02_rb,3.2254e-02_rb,4.4770e-02_rb,6.1630e-02_rb,8.3189e-02_rb/)
+      kbo(:,52, 8) = (/ &
+     &1.8860e-02_rb,2.6783e-02_rb,3.7563e-02_rb,5.2481e-02_rb,7.1941e-02_rb/)
+      kbo(:,53, 8) = (/ &
+     &1.5315e-02_rb,2.2045e-02_rb,3.1363e-02_rb,4.4231e-02_rb,6.1710e-02_rb/)
+      kbo(:,54, 8) = (/ &
+     &1.2583e-02_rb,1.8403e-02_rb,2.6586e-02_rb,3.7901e-02_rb,5.3727e-02_rb/)
+      kbo(:,55, 8) = (/ &
+     &1.0382e-02_rb,1.5404e-02_rb,2.2584e-02_rb,3.2684e-02_rb,4.7053e-02_rb/)
+      kbo(:,56, 8) = (/ &
+     &8.4944e-03_rb,1.2799e-02_rb,1.9133e-02_rb,2.8106e-02_rb,4.1010e-02_rb/)
+      kbo(:,57, 8) = (/ &
+     &6.8852e-03_rb,1.0598e-02_rb,1.6081e-02_rb,2.3991e-02_rb,3.5498e-02_rb/)
+      kbo(:,58, 8) = (/ &
+     &5.5895e-03_rb,8.7768e-03_rb,1.3535e-02_rb,2.0567e-02_rb,3.0872e-02_rb/)
+      kbo(:,59, 8) = (/ &
+     &4.9705e-03_rb,7.9600e-03_rb,1.2473e-02_rb,1.9319e-02_rb,2.9463e-02_rb/)
+      kbo(:,13, 9) = (/ &
+     &1.4590e+01_rb,1.4670e+01_rb,1.4841e+01_rb,1.4854e+01_rb,1.4880e+01_rb/)
+      kbo(:,14, 9) = (/ &
+     &1.3239e+01_rb,1.3368e+01_rb,1.3423e+01_rb,1.3479e+01_rb,1.3588e+01_rb/)
+      kbo(:,15, 9) = (/ &
+     &1.1801e+01_rb,1.1873e+01_rb,1.1983e+01_rb,1.2092e+01_rb,1.2194e+01_rb/)
+      kbo(:,16, 9) = (/ &
+     &1.0397e+01_rb,1.0519e+01_rb,1.0636e+01_rb,1.0761e+01_rb,1.0910e+01_rb/)
+      kbo(:,17, 9) = (/ &
+     &9.1941e+00_rb,9.3273e+00_rb,9.4699e+00_rb,9.6116e+00_rb,9.7497e+00_rb/)
+      kbo(:,18, 9) = (/ &
+     &8.2105e+00_rb,8.3532e+00_rb,8.4897e+00_rb,8.6223e+00_rb,8.7373e+00_rb/)
+      kbo(:,19, 9) = (/ &
+     &7.2827e+00_rb,7.4240e+00_rb,7.5562e+00_rb,7.6727e+00_rb,7.7914e+00_rb/)
+      kbo(:,20, 9) = (/ &
+     &6.3721e+00_rb,6.4943e+00_rb,6.6028e+00_rb,6.7186e+00_rb,6.8391e+00_rb/)
+      kbo(:,21, 9) = (/ &
+     &5.5515e+00_rb,5.6468e+00_rb,5.7503e+00_rb,5.8563e+00_rb,5.9656e+00_rb/)
+      kbo(:,22, 9) = (/ &
+     &4.8000e+00_rb,4.8972e+00_rb,4.9944e+00_rb,5.1084e+00_rb,5.2408e+00_rb/)
+      kbo(:,23, 9) = (/ &
+     &4.1624e+00_rb,4.2656e+00_rb,4.3811e+00_rb,4.5085e+00_rb,4.6380e+00_rb/)
+      kbo(:,24, 9) = (/ &
+     &3.6468e+00_rb,3.7664e+00_rb,3.9092e+00_rb,4.0407e+00_rb,4.1687e+00_rb/)
+      kbo(:,25, 9) = (/ &
+     &3.2292e+00_rb,3.3800e+00_rb,3.5189e+00_rb,3.6529e+00_rb,3.8087e+00_rb/)
+      kbo(:,26, 9) = (/ &
+     &2.9129e+00_rb,3.0593e+00_rb,3.1926e+00_rb,3.3487e+00_rb,3.5171e+00_rb/)
+      kbo(:,27, 9) = (/ &
+     &2.6651e+00_rb,2.7860e+00_rb,2.9417e+00_rb,3.1050e+00_rb,3.2838e+00_rb/)
+      kbo(:,28, 9) = (/ &
+     &2.4547e+00_rb,2.5852e+00_rb,2.7243e+00_rb,2.8973e+00_rb,3.0879e+00_rb/)
+      kbo(:,29, 9) = (/ &
+     &2.2775e+00_rb,2.4144e+00_rb,2.5520e+00_rb,2.7166e+00_rb,2.9171e+00_rb/)
+      kbo(:,30, 9) = (/ &
+     &2.1281e+00_rb,2.2766e+00_rb,2.4266e+00_rb,2.5792e+00_rb,2.7778e+00_rb/)
+      kbo(:,31, 9) = (/ &
+     &1.9982e+00_rb,2.1596e+00_rb,2.3215e+00_rb,2.4758e+00_rb,2.6690e+00_rb/)
+      kbo(:,32, 9) = (/ &
+     &1.8974e+00_rb,2.0696e+00_rb,2.2391e+00_rb,2.4103e+00_rb,2.6183e+00_rb/)
+      kbo(:,33, 9) = (/ &
+     &1.8191e+00_rb,1.9994e+00_rb,2.1809e+00_rb,2.3775e+00_rb,2.6019e+00_rb/)
+      kbo(:,34, 9) = (/ &
+     &1.7674e+00_rb,1.9617e+00_rb,2.1590e+00_rb,2.3767e+00_rb,2.6194e+00_rb/)
+      kbo(:,35, 9) = (/ &
+     &1.7160e+00_rb,1.9253e+00_rb,2.1379e+00_rb,2.3725e+00_rb,2.6356e+00_rb/)
+      kbo(:,36, 9) = (/ &
+     &1.6660e+00_rb,1.8913e+00_rb,2.1169e+00_rb,2.3615e+00_rb,2.6378e+00_rb/)
+      kbo(:,37, 9) = (/ &
+     &1.5784e+00_rb,1.8090e+00_rb,2.0343e+00_rb,2.2860e+00_rb,2.5707e+00_rb/)
+      kbo(:,38, 9) = (/ &
+     &1.4967e+00_rb,1.7299e+00_rb,1.9619e+00_rb,2.2122e+00_rb,2.4970e+00_rb/)
+      kbo(:,39, 9) = (/ &
+     &1.4275e+00_rb,1.6566e+00_rb,1.8885e+00_rb,2.1422e+00_rb,2.4238e+00_rb/)
+      kbo(:,40, 9) = (/ &
+     &1.3319e+00_rb,1.5527e+00_rb,1.7867e+00_rb,2.0342e+00_rb,2.3084e+00_rb/)
+      kbo(:,41, 9) = (/ &
+     &1.2324e+00_rb,1.4488e+00_rb,1.6798e+00_rb,1.9260e+00_rb,2.1920e+00_rb/)
+      kbo(:,42, 9) = (/ &
+     &1.1393e+00_rb,1.3560e+00_rb,1.5786e+00_rb,1.8237e+00_rb,2.0822e+00_rb/)
+      kbo(:,43, 9) = (/ &
+     &1.0393e+00_rb,1.2480e+00_rb,1.4586e+00_rb,1.7011e+00_rb,1.9564e+00_rb/)
+      kbo(:,44, 9) = (/ &
+     &9.4004e-01_rb,1.1318e+00_rb,1.3401e+00_rb,1.5753e+00_rb,1.8301e+00_rb/)
+      kbo(:,45, 9) = (/ &
+     &8.4677e-01_rb,1.0287e+00_rb,1.2277e+00_rb,1.4538e+00_rb,1.7017e+00_rb/)
+      kbo(:,46, 9) = (/ &
+     &7.5668e-01_rb,9.2772e-01_rb,1.1175e+00_rb,1.3351e+00_rb,1.5740e+00_rb/)
+      kbo(:,47, 9) = (/ &
+     &6.6952e-01_rb,8.3230e-01_rb,1.0096e+00_rb,1.2100e+00_rb,1.4418e+00_rb/)
+      kbo(:,48, 9) = (/ &
+     &5.9179e-01_rb,7.4047e-01_rb,9.0922e-01_rb,1.0966e+00_rb,1.3183e+00_rb/)
+      kbo(:,49, 9) = (/ &
+     &5.2110e-01_rb,6.5712e-01_rb,8.1623e-01_rb,9.9075e-01_rb,1.1944e+00_rb/)
+      kbo(:,50, 9) = (/ &
+     &4.6158e-01_rb,5.8589e-01_rb,7.3680e-01_rb,8.9883e-01_rb,1.0896e+00_rb/)
+      kbo(:,51, 9) = (/ &
+     &4.0970e-01_rb,5.2471e-01_rb,6.6511e-01_rb,8.1893e-01_rb,1.0001e+00_rb/)
+      kbo(:,52, 9) = (/ &
+     &3.6376e-01_rb,4.6797e-01_rb,5.9787e-01_rb,7.4696e-01_rb,9.1589e-01_rb/)
+      kbo(:,53, 9) = (/ &
+     &3.2051e-01_rb,4.1628e-01_rb,5.3506e-01_rb,6.7993e-01_rb,8.3743e-01_rb/)
+      kbo(:,54, 9) = (/ &
+     &2.8466e-01_rb,3.7491e-01_rb,4.8412e-01_rb,6.2077e-01_rb,7.6925e-01_rb/)
+      kbo(:,55, 9) = (/ &
+     &2.5367e-01_rb,3.3870e-01_rb,4.3869e-01_rb,5.6524e-01_rb,7.0875e-01_rb/)
+      kbo(:,56, 9) = (/ &
+     &2.2562e-01_rb,3.0476e-01_rb,3.9766e-01_rb,5.1473e-01_rb,6.5170e-01_rb/)
+      kbo(:,57, 9) = (/ &
+     &1.9827e-01_rb,2.7217e-01_rb,3.6127e-01_rb,4.6695e-01_rb,5.9679e-01_rb/)
+      kbo(:,58, 9) = (/ &
+     &1.7439e-01_rb,2.4383e-01_rb,3.2816e-01_rb,4.2523e-01_rb,5.4584e-01_rb/)
+      kbo(:,59, 9) = (/ &
+     &1.6511e-01_rb,2.3377e-01_rb,3.1581e-01_rb,4.1157e-01_rb,5.2975e-01_rb/)
+      kbo(:,13,10) = (/ &
+     &4.0695e+01_rb,4.0469e+01_rb,4.0155e+01_rb,4.1544e+01_rb,4.2682e+01_rb/)
+      kbo(:,14,10) = (/ &
+     &3.9304e+01_rb,3.9060e+01_rb,4.0807e+01_rb,4.1587e+01_rb,4.0953e+01_rb/)
+      kbo(:,15,10) = (/ &
+     &3.7657e+01_rb,3.9117e+01_rb,3.9307e+01_rb,3.8957e+01_rb,3.9710e+01_rb/)
+      kbo(:,16,10) = (/ &
+     &3.6278e+01_rb,3.6420e+01_rb,3.6566e+01_rb,3.7322e+01_rb,3.7268e+01_rb/)
+      kbo(:,17,10) = (/ &
+     &3.3662e+01_rb,3.3973e+01_rb,3.4667e+01_rb,3.4884e+01_rb,3.5251e+01_rb/)
+      kbo(:,18,10) = (/ &
+     &3.1195e+01_rb,3.1946e+01_rb,3.2272e+01_rb,3.2818e+01_rb,3.3898e+01_rb/)
+      kbo(:,19,10) = (/ &
+     &2.9346e+01_rb,2.9678e+01_rb,3.0231e+01_rb,3.1581e+01_rb,3.2542e+01_rb/)
+      kbo(:,20,10) = (/ &
+     &2.6569e+01_rb,2.7189e+01_rb,2.8571e+01_rb,2.9702e+01_rb,3.0461e+01_rb/)
+      kbo(:,21,10) = (/ &
+     &2.3800e+01_rb,2.5133e+01_rb,2.6296e+01_rb,2.7333e+01_rb,2.8348e+01_rb/)
+      kbo(:,22,10) = (/ &
+     &2.1748e+01_rb,2.2899e+01_rb,2.3947e+01_rb,2.5006e+01_rb,2.6299e+01_rb/)
+      kbo(:,23,10) = (/ &
+     &1.9685e+01_rb,2.0476e+01_rb,2.1391e+01_rb,2.2690e+01_rb,2.3900e+01_rb/)
+      kbo(:,24,10) = (/ &
+     &1.7032e+01_rb,1.7826e+01_rb,1.8674e+01_rb,1.9703e+01_rb,2.1087e+01_rb/)
+      kbo(:,25,10) = (/ &
+     &1.4880e+01_rb,1.5564e+01_rb,1.6390e+01_rb,1.7502e+01_rb,1.8671e+01_rb/)
+      kbo(:,26,10) = (/ &
+     &1.3363e+01_rb,1.4020e+01_rb,1.5087e+01_rb,1.6178e+01_rb,1.7289e+01_rb/)
+      kbo(:,27,10) = (/ &
+     &1.1727e+01_rb,1.2959e+01_rb,1.3942e+01_rb,1.5094e+01_rb,1.6463e+01_rb/)
+      kbo(:,28,10) = (/ &
+     &1.0659e+01_rb,1.1764e+01_rb,1.3018e+01_rb,1.4300e+01_rb,1.5936e+01_rb/)
+      kbo(:,29,10) = (/ &
+     &9.6581e+00_rb,1.0907e+01_rb,1.2325e+01_rb,1.4028e+01_rb,1.5807e+01_rb/)
+      kbo(:,30,10) = (/ &
+     &8.9612e+00_rb,1.0145e+01_rb,1.1747e+01_rb,1.3771e+01_rb,1.5726e+01_rb/)
+      kbo(:,31,10) = (/ &
+     &8.6124e+00_rb,9.7350e+00_rb,1.1421e+01_rb,1.3475e+01_rb,1.5366e+01_rb/)
+      kbo(:,32,10) = (/ &
+     &8.5911e+00_rb,9.4800e+00_rb,1.1115e+01_rb,1.3010e+01_rb,1.4984e+01_rb/)
+      kbo(:,33,10) = (/ &
+     &8.6709e+00_rb,9.3343e+00_rb,1.0809e+01_rb,1.2622e+01_rb,1.4676e+01_rb/)
+      kbo(:,34,10) = (/ &
+     &8.8793e+00_rb,9.5541e+00_rb,1.0639e+01_rb,1.2461e+01_rb,1.4700e+01_rb/)
+      kbo(:,35,10) = (/ &
+     &9.1036e+00_rb,9.7617e+00_rb,1.0550e+01_rb,1.2303e+01_rb,1.4597e+01_rb/)
+      kbo(:,36,10) = (/ &
+     &9.1500e+00_rb,9.8472e+00_rb,1.0675e+01_rb,1.1920e+01_rb,1.4033e+01_rb/)
+      kbo(:,37,10) = (/ &
+     &8.9913e+00_rb,9.7513e+00_rb,1.0626e+01_rb,1.1848e+01_rb,1.3311e+01_rb/)
+      kbo(:,38,10) = (/ &
+     &8.8541e+00_rb,9.6133e+00_rb,1.0479e+01_rb,1.1805e+01_rb,1.2978e+01_rb/)
+      kbo(:,39,10) = (/ &
+     &8.6355e+00_rb,9.4791e+00_rb,1.0441e+01_rb,1.1774e+01_rb,1.2974e+01_rb/)
+      kbo(:,40,10) = (/ &
+     &8.2572e+00_rb,9.1900e+00_rb,1.0103e+01_rb,1.1340e+01_rb,1.2612e+01_rb/)
+      kbo(:,41,10) = (/ &
+     &7.9700e+00_rb,8.8564e+00_rb,9.7227e+00_rb,1.0892e+01_rb,1.2191e+01_rb/)
+      kbo(:,42,10) = (/ &
+     &7.7269e+00_rb,8.5147e+00_rb,9.3572e+00_rb,1.0449e+01_rb,1.1769e+01_rb/)
+      kbo(:,43,10) = (/ &
+     &7.3457e+00_rb,8.1022e+00_rb,8.9870e+00_rb,9.9755e+00_rb,1.1267e+01_rb/)
+      kbo(:,44,10) = (/ &
+     &6.8559e+00_rb,7.7825e+00_rb,8.6085e+00_rb,9.5618e+00_rb,1.0705e+01_rb/)
+      kbo(:,45,10) = (/ &
+     &6.3680e+00_rb,7.3808e+00_rb,8.2404e+00_rb,9.1444e+00_rb,1.0228e+01_rb/)
+      kbo(:,46,10) = (/ &
+     &5.9178e+00_rb,6.9688e+00_rb,7.8931e+00_rb,8.8310e+00_rb,9.8114e+00_rb/)
+      kbo(:,47,10) = (/ &
+     &5.4530e+00_rb,6.4924e+00_rb,7.5375e+00_rb,8.5314e+00_rb,9.4745e+00_rb/)
+      kbo(:,48,10) = (/ &
+     &4.9630e+00_rb,6.0598e+00_rb,7.0862e+00_rb,8.1895e+00_rb,9.1462e+00_rb/)
+      kbo(:,49,10) = (/ &
+     &4.4814e+00_rb,5.6082e+00_rb,6.6461e+00_rb,7.8385e+00_rb,8.8792e+00_rb/)
+      kbo(:,50,10) = (/ &
+     &4.0666e+00_rb,5.1497e+00_rb,6.2742e+00_rb,7.4367e+00_rb,8.5539e+00_rb/)
+      kbo(:,51,10) = (/ &
+     &3.6813e+00_rb,4.7093e+00_rb,5.9040e+00_rb,7.0217e+00_rb,8.2062e+00_rb/)
+      kbo(:,52,10) = (/ &
+     &3.3213e+00_rb,4.2985e+00_rb,5.4430e+00_rb,6.5658e+00_rb,7.7730e+00_rb/)
+      kbo(:,53,10) = (/ &
+     &2.9730e+00_rb,3.8940e+00_rb,5.0012e+00_rb,6.1367e+00_rb,7.2957e+00_rb/)
+      kbo(:,54,10) = (/ &
+     &2.6494e+00_rb,3.5088e+00_rb,4.5590e+00_rb,5.7479e+00_rb,6.8609e+00_rb/)
+      kbo(:,55,10) = (/ &
+     &2.3517e+00_rb,3.1542e+00_rb,4.1525e+00_rb,5.3587e+00_rb,6.4637e+00_rb/)
+      kbo(:,56,10) = (/ &
+     &2.0870e+00_rb,2.8232e+00_rb,3.7684e+00_rb,4.9288e+00_rb,6.0659e+00_rb/)
+      kbo(:,57,10) = (/ &
+     &1.8716e+00_rb,2.5211e+00_rb,3.3862e+00_rb,4.4963e+00_rb,5.6364e+00_rb/)
+      kbo(:,58,10) = (/ &
+     &1.6996e+00_rb,2.2494e+00_rb,3.0457e+00_rb,4.0946e+00_rb,5.2813e+00_rb/)
+      kbo(:,59,10) = (/ &
+     &1.6125e+00_rb,2.1057e+00_rb,2.8675e+00_rb,3.8607e+00_rb,5.0173e+00_rb/)
+      kbo(:,13,11) = (/ &
+     &5.4280e+01_rb,5.5937e+01_rb,5.6472e+01_rb,5.6083e+01_rb,5.6645e+01_rb/)
+      kbo(:,14,11) = (/ &
+     &5.6104e+01_rb,5.7569e+01_rb,5.6325e+01_rb,5.6970e+01_rb,5.8322e+01_rb/)
+      kbo(:,15,11) = (/ &
+     &5.6157e+01_rb,5.5505e+01_rb,5.6534e+01_rb,5.8680e+01_rb,5.8495e+01_rb/)
+      kbo(:,16,11) = (/ &
+     &5.4215e+01_rb,5.5590e+01_rb,5.7381e+01_rb,5.6844e+01_rb,5.6502e+01_rb/)
+      kbo(:,17,11) = (/ &
+     &5.3917e+01_rb,5.5209e+01_rb,5.4751e+01_rb,5.5176e+01_rb,5.5535e+01_rb/)
+      kbo(:,18,11) = (/ &
+     &5.2925e+01_rb,5.3017e+01_rb,5.3849e+01_rb,5.4671e+01_rb,5.5470e+01_rb/)
+      kbo(:,19,11) = (/ &
+     &5.0412e+01_rb,5.1474e+01_rb,5.2761e+01_rb,5.3623e+01_rb,5.4522e+01_rb/)
+      kbo(:,20,11) = (/ &
+     &4.7799e+01_rb,4.9437e+01_rb,5.0594e+01_rb,5.1515e+01_rb,5.3379e+01_rb/)
+      kbo(:,21,11) = (/ &
+     &4.5510e+01_rb,4.6838e+01_rb,4.7923e+01_rb,4.9803e+01_rb,5.2087e+01_rb/)
+      kbo(:,22,11) = (/ &
+     &4.2197e+01_rb,4.3528e+01_rb,4.5703e+01_rb,4.8296e+01_rb,5.0603e+01_rb/)
+      kbo(:,23,11) = (/ &
+     &3.8776e+01_rb,4.1167e+01_rb,4.4015e+01_rb,4.6341e+01_rb,4.9195e+01_rb/)
+      kbo(:,24,11) = (/ &
+     &3.6077e+01_rb,3.8799e+01_rb,4.1478e+01_rb,4.4468e+01_rb,4.7105e+01_rb/)
+      kbo(:,25,11) = (/ &
+     &3.3423e+01_rb,3.6288e+01_rb,3.9007e+01_rb,4.1836e+01_rb,4.5174e+01_rb/)
+      kbo(:,26,11) = (/ &
+     &3.0575e+01_rb,3.3241e+01_rb,3.5927e+01_rb,3.9133e+01_rb,4.2785e+01_rb/)
+      kbo(:,27,11) = (/ &
+     &2.7764e+01_rb,3.0312e+01_rb,3.3054e+01_rb,3.6826e+01_rb,4.0509e+01_rb/)
+      kbo(:,28,11) = (/ &
+     &2.5413e+01_rb,2.8045e+01_rb,3.1419e+01_rb,3.5118e+01_rb,3.8747e+01_rb/)
+      kbo(:,29,11) = (/ &
+     &2.4096e+01_rb,2.6980e+01_rb,3.0700e+01_rb,3.4243e+01_rb,3.7699e+01_rb/)
+      kbo(:,30,11) = (/ &
+     &2.3140e+01_rb,2.6541e+01_rb,2.9953e+01_rb,3.3565e+01_rb,3.7298e+01_rb/)
+      kbo(:,31,11) = (/ &
+     &2.2574e+01_rb,2.6228e+01_rb,2.9925e+01_rb,3.3653e+01_rb,3.8032e+01_rb/)
+      kbo(:,32,11) = (/ &
+     &2.2078e+01_rb,2.6231e+01_rb,3.0164e+01_rb,3.4342e+01_rb,3.9067e+01_rb/)
+      kbo(:,33,11) = (/ &
+     &2.1802e+01_rb,2.6392e+01_rb,3.0637e+01_rb,3.5356e+01_rb,4.0173e+01_rb/)
+      kbo(:,34,11) = (/ &
+     &2.1886e+01_rb,2.6523e+01_rb,3.1557e+01_rb,3.6504e+01_rb,4.1183e+01_rb/)
+      kbo(:,35,11) = (/ &
+     &2.1287e+01_rb,2.6137e+01_rb,3.1875e+01_rb,3.7051e+01_rb,4.1397e+01_rb/)
+      kbo(:,36,11) = (/ &
+     &2.0396e+01_rb,2.5293e+01_rb,3.0920e+01_rb,3.6387e+01_rb,4.1546e+01_rb/)
+      kbo(:,37,11) = (/ &
+     &1.9398e+01_rb,2.4195e+01_rb,2.9734e+01_rb,3.5138e+01_rb,4.1598e+01_rb/)
+      kbo(:,38,11) = (/ &
+     &1.8580e+01_rb,2.3161e+01_rb,2.8626e+01_rb,3.3912e+01_rb,4.1158e+01_rb/)
+      kbo(:,39,11) = (/ &
+     &1.8482e+01_rb,2.2205e+01_rb,2.7504e+01_rb,3.3104e+01_rb,4.0527e+01_rb/)
+      kbo(:,40,11) = (/ &
+     &1.7984e+01_rb,2.0750e+01_rb,2.5770e+01_rb,3.1669e+01_rb,3.8818e+01_rb/)
+      kbo(:,41,11) = (/ &
+     &1.7355e+01_rb,1.9936e+01_rb,2.4013e+01_rb,3.0152e+01_rb,3.7102e+01_rb/)
+      kbo(:,42,11) = (/ &
+     &1.6681e+01_rb,1.9220e+01_rb,2.2251e+01_rb,2.8625e+01_rb,3.5420e+01_rb/)
+      kbo(:,43,11) = (/ &
+     &1.5870e+01_rb,1.8435e+01_rb,2.1070e+01_rb,2.6668e+01_rb,3.3375e+01_rb/)
+      kbo(:,44,11) = (/ &
+     &1.5165e+01_rb,1.7568e+01_rb,2.0082e+01_rb,2.4204e+01_rb,3.1050e+01_rb/)
+      kbo(:,45,11) = (/ &
+     &1.4453e+01_rb,1.6684e+01_rb,1.9148e+01_rb,2.2404e+01_rb,2.8741e+01_rb/)
+      kbo(:,46,11) = (/ &
+     &1.3674e+01_rb,1.5793e+01_rb,1.8236e+01_rb,2.1064e+01_rb,2.6017e+01_rb/)
+      kbo(:,47,11) = (/ &
+     &1.2730e+01_rb,1.4847e+01_rb,1.7129e+01_rb,1.9769e+01_rb,2.3301e+01_rb/)
+      kbo(:,48,11) = (/ &
+     &1.1966e+01_rb,1.3921e+01_rb,1.6062e+01_rb,1.8570e+01_rb,2.1519e+01_rb/)
+      kbo(:,49,11) = (/ &
+     &1.1256e+01_rb,1.2947e+01_rb,1.5051e+01_rb,1.7441e+01_rb,2.0164e+01_rb/)
+      kbo(:,50,11) = (/ &
+     &1.0630e+01_rb,1.2231e+01_rb,1.4125e+01_rb,1.6384e+01_rb,1.9019e+01_rb/)
+      kbo(:,51,11) = (/ &
+     &9.8987e+00_rb,1.1569e+01_rb,1.3215e+01_rb,1.5489e+01_rb,1.7851e+01_rb/)
+      kbo(:,52,11) = (/ &
+     &9.1901e+00_rb,1.0969e+01_rb,1.2500e+01_rb,1.4560e+01_rb,1.6807e+01_rb/)
+      kbo(:,53,11) = (/ &
+     &8.5518e+00_rb,1.0279e+01_rb,1.1856e+01_rb,1.3672e+01_rb,1.5980e+01_rb/)
+      kbo(:,54,11) = (/ &
+     &7.8898e+00_rb,9.6237e+00_rb,1.1322e+01_rb,1.2850e+01_rb,1.5109e+01_rb/)
+      kbo(:,55,11) = (/ &
+     &7.2910e+00_rb,9.0794e+00_rb,1.0802e+01_rb,1.2222e+01_rb,1.4316e+01_rb/)
+      kbo(:,56,11) = (/ &
+     &6.6231e+00_rb,8.4503e+00_rb,1.0147e+01_rb,1.1641e+01_rb,1.3475e+01_rb/)
+      kbo(:,57,11) = (/ &
+     &5.9797e+00_rb,7.8956e+00_rb,9.5656e+00_rb,1.1172e+01_rb,1.2770e+01_rb/)
+      kbo(:,58,11) = (/ &
+     &5.3792e+00_rb,7.3070e+00_rb,9.0406e+00_rb,1.0661e+01_rb,1.2099e+01_rb/)
+      kbo(:,59,11) = (/ &
+     &5.1187e+00_rb,7.0446e+00_rb,8.7908e+00_rb,1.0434e+01_rb,1.1861e+01_rb/)
+      kbo(:,13,12) = (/ &
+     &8.5594e+01_rb,8.5081e+01_rb,8.4548e+01_rb,8.3781e+01_rb,8.2265e+01_rb/)
+      kbo(:,14,12) = (/ &
+     &8.5160e+01_rb,8.5106e+01_rb,8.5561e+01_rb,8.4404e+01_rb,8.6474e+01_rb/)
+      kbo(:,15,12) = (/ &
+     &8.6225e+01_rb,8.6934e+01_rb,8.6406e+01_rb,8.7005e+01_rb,8.9359e+01_rb/)
+      kbo(:,16,12) = (/ &
+     &8.5430e+01_rb,8.5513e+01_rb,8.6639e+01_rb,9.0490e+01_rb,9.3290e+01_rb/)
+      kbo(:,17,12) = (/ &
+     &8.2443e+01_rb,8.4907e+01_rb,8.8384e+01_rb,9.0076e+01_rb,9.1263e+01_rb/)
+      kbo(:,18,12) = (/ &
+     &8.5149e+01_rb,8.7540e+01_rb,8.9291e+01_rb,9.0823e+01_rb,9.2775e+01_rb/)
+      kbo(:,19,12) = (/ &
+     &8.8628e+01_rb,9.0598e+01_rb,9.2322e+01_rb,9.4441e+01_rb,9.6854e+01_rb/)
+      kbo(:,20,12) = (/ &
+     &8.9356e+01_rb,9.1085e+01_rb,9.4127e+01_rb,9.6914e+01_rb,9.9051e+01_rb/)
+      kbo(:,21,12) = (/ &
+     &8.7608e+01_rb,9.1521e+01_rb,9.5537e+01_rb,9.7630e+01_rb,9.9135e+01_rb/)
+      kbo(:,22,12) = (/ &
+     &8.6703e+01_rb,9.1359e+01_rb,9.3725e+01_rb,9.6097e+01_rb,9.8620e+01_rb/)
+      kbo(:,23,12) = (/ &
+     &8.4986e+01_rb,8.8658e+01_rb,9.1547e+01_rb,9.4897e+01_rb,9.8884e+01_rb/)
+      kbo(:,24,12) = (/ &
+     &8.1861e+01_rb,8.5495e+01_rb,8.9569e+01_rb,9.4335e+01_rb,9.9177e+01_rb/)
+      kbo(:,25,12) = (/ &
+     &7.8144e+01_rb,8.2621e+01_rb,8.8221e+01_rb,9.4555e+01_rb,9.9082e+01_rb/)
+      kbo(:,26,12) = (/ &
+     &7.5558e+01_rb,8.1550e+01_rb,8.8515e+01_rb,9.4800e+01_rb,1.0018e+02_rb/)
+      kbo(:,27,12) = (/ &
+     &7.4385e+01_rb,8.1401e+01_rb,8.8755e+01_rb,9.4867e+01_rb,9.9863e+01_rb/)
+      kbo(:,28,12) = (/ &
+     &7.2786e+01_rb,8.0630e+01_rb,8.7375e+01_rb,9.3177e+01_rb,9.7577e+01_rb/)
+      kbo(:,29,12) = (/ &
+     &7.2494e+01_rb,7.9832e+01_rb,8.6004e+01_rb,9.1472e+01_rb,9.7317e+01_rb/)
+      kbo(:,30,12) = (/ &
+     &7.1849e+01_rb,7.8701e+01_rb,8.4991e+01_rb,9.0891e+01_rb,9.7338e+01_rb/)
+      kbo(:,31,12) = (/ &
+     &7.1241e+01_rb,7.7805e+01_rb,8.4010e+01_rb,9.1171e+01_rb,1.0059e+02_rb/)
+      kbo(:,32,12) = (/ &
+     &7.0698e+01_rb,7.7293e+01_rb,8.4547e+01_rb,9.6001e+01_rb,1.0686e+02_rb/)
+      kbo(:,33,12) = (/ &
+     &7.0154e+01_rb,7.8613e+01_rb,9.0857e+01_rb,1.0245e+02_rb,1.1312e+02_rb/)
+      kbo(:,34,12) = (/ &
+     &7.1031e+01_rb,8.3561e+01_rb,9.6187e+01_rb,1.0815e+02_rb,1.1901e+02_rb/)
+      kbo(:,35,12) = (/ &
+     &7.5071e+01_rb,8.8162e+01_rb,1.0114e+02_rb,1.1296e+02_rb,1.2569e+02_rb/)
+      kbo(:,36,12) = (/ &
+     &7.8029e+01_rb,9.1692e+01_rb,1.0504e+02_rb,1.1849e+02_rb,1.3079e+02_rb/)
+      kbo(:,37,12) = (/ &
+     &7.7450e+01_rb,9.1080e+01_rb,1.0499e+02_rb,1.1872e+02_rb,1.3083e+02_rb/)
+      kbo(:,38,12) = (/ &
+     &7.6390e+01_rb,9.0295e+01_rb,1.0451e+02_rb,1.1896e+02_rb,1.3094e+02_rb/)
+      kbo(:,39,12) = (/ &
+     &7.4846e+01_rb,8.9967e+01_rb,1.0468e+02_rb,1.1884e+02_rb,1.3087e+02_rb/)
+      kbo(:,40,12) = (/ &
+     &7.0636e+01_rb,8.6765e+01_rb,1.0145e+02_rb,1.1588e+02_rb,1.2805e+02_rb/)
+      kbo(:,41,12) = (/ &
+     &6.6305e+01_rb,8.2647e+01_rb,9.8224e+01_rb,1.1219e+02_rb,1.2504e+02_rb/)
+      kbo(:,42,12) = (/ &
+     &6.2198e+01_rb,7.8258e+01_rb,9.4811e+01_rb,1.0862e+02_rb,1.2155e+02_rb/)
+      kbo(:,43,12) = (/ &
+     &5.7303e+01_rb,7.2832e+01_rb,8.9604e+01_rb,1.0357e+02_rb,1.1674e+02_rb/)
+      kbo(:,44,12) = (/ &
+     &5.2689e+01_rb,6.6907e+01_rb,8.3558e+01_rb,9.8406e+01_rb,1.1125e+02_rb/)
+      kbo(:,45,12) = (/ &
+     &4.8182e+01_rb,6.1264e+01_rb,7.7478e+01_rb,9.3228e+01_rb,1.0590e+02_rb/)
+      kbo(:,46,12) = (/ &
+     &4.3386e+01_rb,5.6258e+01_rb,7.0871e+01_rb,8.6833e+01_rb,1.0102e+02_rb/)
+      kbo(:,47,12) = (/ &
+     &3.8704e+01_rb,5.0818e+01_rb,6.4039e+01_rb,7.9666e+01_rb,9.5229e+01_rb/)
+      kbo(:,48,12) = (/ &
+     &3.3968e+01_rb,4.5364e+01_rb,5.8393e+01_rb,7.2512e+01_rb,8.8396e+01_rb/)
+      kbo(:,49,12) = (/ &
+     &2.9879e+01_rb,4.0583e+01_rb,5.2774e+01_rb,6.5752e+01_rb,8.1056e+01_rb/)
+      kbo(:,50,12) = (/ &
+     &2.7602e+01_rb,3.6039e+01_rb,4.7664e+01_rb,6.0460e+01_rb,7.4304e+01_rb/)
+      kbo(:,51,12) = (/ &
+     &2.6051e+01_rb,3.1889e+01_rb,4.2974e+01_rb,5.5102e+01_rb,6.8169e+01_rb/)
+      kbo(:,52,12) = (/ &
+     &2.4438e+01_rb,2.8876e+01_rb,3.8469e+01_rb,5.0102e+01_rb,6.2912e+01_rb/)
+      kbo(:,53,12) = (/ &
+     &2.2776e+01_rb,2.7295e+01_rb,3.4271e+01_rb,4.5285e+01_rb,5.7384e+01_rb/)
+      kbo(:,54,12) = (/ &
+     &2.1249e+01_rb,2.5821e+01_rb,3.0686e+01_rb,4.1216e+01_rb,5.2669e+01_rb/)
+      kbo(:,55,12) = (/ &
+     &2.0155e+01_rb,2.4296e+01_rb,2.8676e+01_rb,3.7338e+01_rb,4.8393e+01_rb/)
+      kbo(:,56,12) = (/ &
+     &1.8949e+01_rb,2.2808e+01_rb,2.7284e+01_rb,3.3732e+01_rb,4.4387e+01_rb/)
+      kbo(:,57,12) = (/ &
+     &1.7651e+01_rb,2.1401e+01_rb,2.5896e+01_rb,3.0538e+01_rb,4.0399e+01_rb/)
+      kbo(:,58,12) = (/ &
+     &1.6454e+01_rb,2.0257e+01_rb,2.4400e+01_rb,2.8791e+01_rb,3.6888e+01_rb/)
+      kbo(:,59,12) = (/ &
+     &1.6078e+01_rb,1.9650e+01_rb,2.3686e+01_rb,2.8130e+01_rb,3.5337e+01_rb/)
+      kbo(:,13,13) = (/ &
+     &1.6179e+02_rb,1.5851e+02_rb,1.5620e+02_rb,1.5532e+02_rb,1.5316e+02_rb/)
+      kbo(:,14,13) = (/ &
+     &1.7476e+02_rb,1.7156e+02_rb,1.7068e+02_rb,1.6952e+02_rb,1.6413e+02_rb/)
+      kbo(:,15,13) = (/ &
+     &1.8520e+02_rb,1.8372e+02_rb,1.8384e+02_rb,1.8019e+02_rb,1.7522e+02_rb/)
+      kbo(:,16,13) = (/ &
+     &1.9454e+02_rb,1.9542e+02_rb,1.9248e+02_rb,1.8773e+02_rb,1.8813e+02_rb/)
+      kbo(:,17,13) = (/ &
+     &2.0028e+02_rb,1.9793e+02_rb,1.9596e+02_rb,1.9785e+02_rb,2.0205e+02_rb/)
+      kbo(:,18,13) = (/ &
+     &1.9037e+02_rb,1.9170e+02_rb,1.9555e+02_rb,2.0164e+02_rb,2.0309e+02_rb/)
+      kbo(:,19,13) = (/ &
+     &1.7958e+02_rb,1.8623e+02_rb,1.9196e+02_rb,1.9543e+02_rb,1.9670e+02_rb/)
+      kbo(:,20,13) = (/ &
+     &1.7423e+02_rb,1.8217e+02_rb,1.8721e+02_rb,1.9064e+02_rb,1.9763e+02_rb/)
+      kbo(:,21,13) = (/ &
+     &1.7205e+02_rb,1.7751e+02_rb,1.8259e+02_rb,1.9102e+02_rb,1.9985e+02_rb/)
+      kbo(:,22,13) = (/ &
+     &1.7310e+02_rb,1.7837e+02_rb,1.8681e+02_rb,1.9582e+02_rb,2.0409e+02_rb/)
+      kbo(:,23,13) = (/ &
+     &1.7691e+02_rb,1.8432e+02_rb,1.9387e+02_rb,2.0103e+02_rb,2.1026e+02_rb/)
+      kbo(:,24,13) = (/ &
+     &1.8088e+02_rb,1.8942e+02_rb,1.9891e+02_rb,2.0699e+02_rb,2.1646e+02_rb/)
+      kbo(:,25,13) = (/ &
+     &1.8492e+02_rb,1.9434e+02_rb,2.0408e+02_rb,2.1437e+02_rb,2.2277e+02_rb/)
+      kbo(:,26,13) = (/ &
+     &1.8625e+02_rb,1.9837e+02_rb,2.0945e+02_rb,2.1941e+02_rb,2.3087e+02_rb/)
+      kbo(:,27,13) = (/ &
+     &1.9010e+02_rb,2.0364e+02_rb,2.1615e+02_rb,2.2715e+02_rb,2.4079e+02_rb/)
+      kbo(:,28,13) = (/ &
+     &1.9712e+02_rb,2.1090e+02_rb,2.2463e+02_rb,2.3844e+02_rb,2.5439e+02_rb/)
+      kbo(:,29,13) = (/ &
+     &2.0453e+02_rb,2.1990e+02_rb,2.3570e+02_rb,2.5241e+02_rb,2.6509e+02_rb/)
+      kbo(:,30,13) = (/ &
+     &2.1308e+02_rb,2.3113e+02_rb,2.4908e+02_rb,2.6461e+02_rb,2.7735e+02_rb/)
+      kbo(:,31,13) = (/ &
+     &2.2395e+02_rb,2.4239e+02_rb,2.6296e+02_rb,2.7710e+02_rb,2.8754e+02_rb/)
+      kbo(:,32,13) = (/ &
+     &2.3649e+02_rb,2.5891e+02_rb,2.7696e+02_rb,2.8809e+02_rb,2.9409e+02_rb/)
+      kbo(:,33,13) = (/ &
+     &2.5295e+02_rb,2.7352e+02_rb,2.8553e+02_rb,2.9364e+02_rb,3.0036e+02_rb/)
+      kbo(:,34,13) = (/ &
+     &2.6621e+02_rb,2.8028e+02_rb,2.9209e+02_rb,2.9925e+02_rb,3.0905e+02_rb/)
+      kbo(:,35,13) = (/ &
+     &2.7274e+02_rb,2.8720e+02_rb,2.9678e+02_rb,3.0598e+02_rb,3.1573e+02_rb/)
+      kbo(:,36,13) = (/ &
+     &2.7668e+02_rb,2.9126e+02_rb,3.0131e+02_rb,3.1293e+02_rb,3.2456e+02_rb/)
+      kbo(:,37,13) = (/ &
+     &2.7566e+02_rb,2.9125e+02_rb,3.0241e+02_rb,3.1513e+02_rb,3.2636e+02_rb/)
+      kbo(:,38,13) = (/ &
+     &2.7524e+02_rb,2.9197e+02_rb,3.0411e+02_rb,3.1688e+02_rb,3.2854e+02_rb/)
+      kbo(:,39,13) = (/ &
+     &2.7502e+02_rb,2.9241e+02_rb,3.0488e+02_rb,3.1825e+02_rb,3.3122e+02_rb/)
+      kbo(:,40,13) = (/ &
+     &2.7103e+02_rb,2.8939e+02_rb,3.0276e+02_rb,3.1510e+02_rb,3.2909e+02_rb/)
+      kbo(:,41,13) = (/ &
+     &2.6612e+02_rb,2.8502e+02_rb,2.9924e+02_rb,3.1164e+02_rb,3.2628e+02_rb/)
+      kbo(:,42,13) = (/ &
+     &2.6020e+02_rb,2.7999e+02_rb,2.9554e+02_rb,3.0769e+02_rb,3.2142e+02_rb/)
+      kbo(:,43,13) = (/ &
+     &2.5242e+02_rb,2.7289e+02_rb,2.9079e+02_rb,3.0394e+02_rb,3.1657e+02_rb/)
+      kbo(:,44,13) = (/ &
+     &2.4141e+02_rb,2.6492e+02_rb,2.8389e+02_rb,2.9851e+02_rb,3.1003e+02_rb/)
+      kbo(:,45,13) = (/ &
+     &2.3199e+02_rb,2.5697e+02_rb,2.7534e+02_rb,2.9238e+02_rb,3.0488e+02_rb/)
+      kbo(:,46,13) = (/ &
+     &2.2099e+02_rb,2.4628e+02_rb,2.6862e+02_rb,2.8625e+02_rb,2.9891e+02_rb/)
+      kbo(:,47,13) = (/ &
+     &2.0813e+02_rb,2.3515e+02_rb,2.5936e+02_rb,2.7698e+02_rb,2.9245e+02_rb/)
+      kbo(:,48,13) = (/ &
+     &1.9611e+02_rb,2.2305e+02_rb,2.4767e+02_rb,2.6948e+02_rb,2.8622e+02_rb/)
+      kbo(:,49,13) = (/ &
+     &1.8313e+02_rb,2.1047e+02_rb,2.3654e+02_rb,2.6025e+02_rb,2.7775e+02_rb/)
+      kbo(:,50,13) = (/ &
+     &1.6903e+02_rb,1.9938e+02_rb,2.2519e+02_rb,2.4907e+02_rb,2.7015e+02_rb/)
+      kbo(:,51,13) = (/ &
+     &1.5421e+02_rb,1.8800e+02_rb,2.1428e+02_rb,2.3876e+02_rb,2.6215e+02_rb/)
+      kbo(:,52,13) = (/ &
+     &1.4056e+02_rb,1.7488e+02_rb,2.0358e+02_rb,2.2873e+02_rb,2.5153e+02_rb/)
+      kbo(:,53,13) = (/ &
+     &1.2774e+02_rb,1.6089e+02_rb,1.9159e+02_rb,2.1758e+02_rb,2.4063e+02_rb/)
+      kbo(:,54,13) = (/ &
+     &1.1505e+02_rb,1.4830e+02_rb,1.8148e+02_rb,2.0706e+02_rb,2.3185e+02_rb/)
+      kbo(:,55,13) = (/ &
+     &1.0455e+02_rb,1.3680e+02_rb,1.7009e+02_rb,1.9749e+02_rb,2.2149e+02_rb/)
+      kbo(:,56,13) = (/ &
+     &9.5380e+01_rb,1.2458e+02_rb,1.5763e+02_rb,1.8850e+02_rb,2.1165e+02_rb/)
+      kbo(:,57,13) = (/ &
+     &8.6328e+01_rb,1.1370e+02_rb,1.4580e+02_rb,1.7843e+02_rb,2.0341e+02_rb/)
+      kbo(:,58,13) = (/ &
+     &7.7503e+01_rb,1.0463e+02_rb,1.3405e+02_rb,1.6684e+02_rb,1.9463e+02_rb/)
+      kbo(:,59,13) = (/ &
+     &7.3613e+01_rb,1.0087e+02_rb,1.2946e+02_rb,1.6169e+02_rb,1.9043e+02_rb/)
+      kbo(:,13,14) = (/ &
+     &2.3384e+02_rb,2.3134e+02_rb,2.2678e+02_rb,2.2105e+02_rb,2.2130e+02_rb/)
+      kbo(:,14,14) = (/ &
+     &2.6370e+02_rb,2.6091e+02_rb,2.5467e+02_rb,2.5118e+02_rb,2.4954e+02_rb/)
+      kbo(:,15,14) = (/ &
+     &2.9591e+02_rb,2.9159e+02_rb,2.8464e+02_rb,2.8328e+02_rb,2.7984e+02_rb/)
+      kbo(:,16,14) = (/ &
+     &3.2944e+02_rb,3.2156e+02_rb,3.1816e+02_rb,3.1521e+02_rb,3.0449e+02_rb/)
+      kbo(:,17,14) = (/ &
+     &3.5907e+02_rb,3.5209e+02_rb,3.5084e+02_rb,3.4076e+02_rb,3.2553e+02_rb/)
+      kbo(:,18,14) = (/ &
+     &3.8932e+02_rb,3.8700e+02_rb,3.7610e+02_rb,3.6121e+02_rb,3.5570e+02_rb/)
+      kbo(:,19,14) = (/ &
+     &4.2093e+02_rb,4.0885e+02_rb,3.9722e+02_rb,3.9095e+02_rb,3.9197e+02_rb/)
+      kbo(:,20,14) = (/ &
+     &4.4653e+02_rb,4.3247e+02_rb,4.2391e+02_rb,4.2574e+02_rb,4.2089e+02_rb/)
+      kbo(:,21,14) = (/ &
+     &4.6745e+02_rb,4.5974e+02_rb,4.5782e+02_rb,4.5591e+02_rb,4.4616e+02_rb/)
+      kbo(:,22,14) = (/ &
+     &4.8396e+02_rb,4.8410e+02_rb,4.8532e+02_rb,4.7987e+02_rb,4.6662e+02_rb/)
+      kbo(:,23,14) = (/ &
+     &5.0568e+02_rb,5.0696e+02_rb,5.0168e+02_rb,4.9917e+02_rb,4.8477e+02_rb/)
+      kbo(:,24,14) = (/ &
+     &5.2372e+02_rb,5.2925e+02_rb,5.2568e+02_rb,5.1576e+02_rb,5.0916e+02_rb/)
+      kbo(:,25,14) = (/ &
+     &5.4773e+02_rb,5.4681e+02_rb,5.4261e+02_rb,5.3467e+02_rb,5.2926e+02_rb/)
+      kbo(:,26,14) = (/ &
+     &5.6992e+02_rb,5.6525e+02_rb,5.5986e+02_rb,5.5383e+02_rb,5.4189e+02_rb/)
+      kbo(:,27,14) = (/ &
+     &5.8413e+02_rb,5.7753e+02_rb,5.7399e+02_rb,5.6915e+02_rb,5.5630e+02_rb/)
+      kbo(:,28,14) = (/ &
+     &5.9410e+02_rb,5.9489e+02_rb,5.8870e+02_rb,5.8276e+02_rb,5.7225e+02_rb/)
+      kbo(:,29,14) = (/ &
+     &6.0586e+02_rb,6.0400e+02_rb,6.0319e+02_rb,5.9066e+02_rb,5.8348e+02_rb/)
+      kbo(:,30,14) = (/ &
+     &6.2023e+02_rb,6.2112e+02_rb,6.1269e+02_rb,6.0507e+02_rb,5.8831e+02_rb/)
+      kbo(:,31,14) = (/ &
+     &6.3249e+02_rb,6.3678e+02_rb,6.2186e+02_rb,6.1145e+02_rb,5.9841e+02_rb/)
+      kbo(:,32,14) = (/ &
+     &6.5129e+02_rb,6.4085e+02_rb,6.3065e+02_rb,6.1664e+02_rb,6.0677e+02_rb/)
+      kbo(:,33,14) = (/ &
+     &6.5648e+02_rb,6.4719e+02_rb,6.3483e+02_rb,6.2799e+02_rb,6.1689e+02_rb/)
+      kbo(:,34,14) = (/ &
+     &6.6261e+02_rb,6.5214e+02_rb,6.4542e+02_rb,6.3852e+02_rb,6.1993e+02_rb/)
+      kbo(:,35,14) = (/ &
+     &6.7078e+02_rb,6.6309e+02_rb,6.5953e+02_rb,6.4635e+02_rb,6.1863e+02_rb/)
+      kbo(:,36,14) = (/ &
+     &6.8510e+02_rb,6.7944e+02_rb,6.7467e+02_rb,6.5682e+02_rb,6.1696e+02_rb/)
+      kbo(:,37,14) = (/ &
+     &6.9465e+02_rb,6.8814e+02_rb,6.8342e+02_rb,6.6410e+02_rb,6.2485e+02_rb/)
+      kbo(:,38,14) = (/ &
+     &7.0151e+02_rb,6.9441e+02_rb,6.9017e+02_rb,6.7086e+02_rb,6.3205e+02_rb/)
+      kbo(:,39,14) = (/ &
+     &7.0868e+02_rb,7.0183e+02_rb,6.9685e+02_rb,6.7866e+02_rb,6.3921e+02_rb/)
+      kbo(:,40,14) = (/ &
+     &7.1075e+02_rb,7.0438e+02_rb,7.0305e+02_rb,6.8866e+02_rb,6.5105e+02_rb/)
+      kbo(:,41,14) = (/ &
+     &7.0971e+02_rb,7.0837e+02_rb,7.0822e+02_rb,6.9421e+02_rb,6.5990e+02_rb/)
+      kbo(:,42,14) = (/ &
+     &7.1142e+02_rb,7.1113e+02_rb,7.1018e+02_rb,6.9720e+02_rb,6.7342e+02_rb/)
+      kbo(:,43,14) = (/ &
+     &7.1363e+02_rb,7.1120e+02_rb,7.0210e+02_rb,7.0055e+02_rb,6.8488e+02_rb/)
+      kbo(:,44,14) = (/ &
+     &7.1148e+02_rb,7.0646e+02_rb,7.0565e+02_rb,7.0398e+02_rb,6.8877e+02_rb/)
+      kbo(:,45,14) = (/ &
+     &7.0895e+02_rb,7.0958e+02_rb,7.0605e+02_rb,6.9798e+02_rb,6.9240e+02_rb/)
+      kbo(:,46,14) = (/ &
+     &6.9950e+02_rb,7.0866e+02_rb,7.0226e+02_rb,6.9819e+02_rb,6.9658e+02_rb/)
+      kbo(:,47,14) = (/ &
+     &6.8721e+02_rb,7.0244e+02_rb,7.0188e+02_rb,6.9806e+02_rb,6.9161e+02_rb/)
+      kbo(:,48,14) = (/ &
+     &6.8035e+02_rb,6.9565e+02_rb,6.9976e+02_rb,6.9387e+02_rb,6.8913e+02_rb/)
+      kbo(:,49,14) = (/ &
+     &6.6852e+02_rb,6.8533e+02_rb,6.9809e+02_rb,6.9470e+02_rb,6.8647e+02_rb/)
+      kbo(:,50,14) = (/ &
+     &6.5815e+02_rb,6.7824e+02_rb,6.9156e+02_rb,6.9473e+02_rb,6.8677e+02_rb/)
+      kbo(:,51,14) = (/ &
+     &6.5633e+02_rb,6.6741e+02_rb,6.8334e+02_rb,6.9427e+02_rb,6.8718e+02_rb/)
+      kbo(:,52,14) = (/ &
+     &6.4799e+02_rb,6.6007e+02_rb,6.7742e+02_rb,6.8641e+02_rb,6.8886e+02_rb/)
+      kbo(:,53,14) = (/ &
+     &6.3478e+02_rb,6.5848e+02_rb,6.6595e+02_rb,6.8004e+02_rb,6.8977e+02_rb/)
+      kbo(:,54,14) = (/ &
+     &6.3075e+02_rb,6.5140e+02_rb,6.6048e+02_rb,6.7510e+02_rb,6.7898e+02_rb/)
+      kbo(:,55,14) = (/ &
+     &6.2053e+02_rb,6.3982e+02_rb,6.5909e+02_rb,6.6252e+02_rb,6.7620e+02_rb/)
+      kbo(:,56,14) = (/ &
+     &6.0488e+02_rb,6.3692e+02_rb,6.5472e+02_rb,6.5961e+02_rb,6.7144e+02_rb/)
+      kbo(:,57,14) = (/ &
+     &5.9240e+02_rb,6.2947e+02_rb,6.4320e+02_rb,6.5881e+02_rb,6.5824e+02_rb/)
+      kbo(:,58,14) = (/ &
+     &5.7619e+02_rb,6.1537e+02_rb,6.4199e+02_rb,6.5527e+02_rb,6.5777e+02_rb/)
+      kbo(:,59,14) = (/ &
+     &5.7161e+02_rb,6.1151e+02_rb,6.3977e+02_rb,6.4718e+02_rb,6.5762e+02_rb/)
+      kbo(:,13,15) = (/ &
+     &3.5083e+02_rb,3.4274e+02_rb,3.3588e+02_rb,3.2964e+02_rb,3.0980e+02_rb/)
+      kbo(:,14,15) = (/ &
+     &4.0382e+02_rb,3.9443e+02_rb,3.8616e+02_rb,3.7379e+02_rb,3.5621e+02_rb/)
+      kbo(:,15,15) = (/ &
+     &4.6271e+02_rb,4.5170e+02_rb,4.4204e+02_rb,4.2053e+02_rb,4.0520e+02_rb/)
+      kbo(:,16,15) = (/ &
+     &5.2768e+02_rb,5.1495e+02_rb,4.9504e+02_rb,4.7377e+02_rb,4.6833e+02_rb/)
+      kbo(:,17,15) = (/ &
+     &5.9879e+02_rb,5.8378e+02_rb,5.5161e+02_rb,5.3753e+02_rb,5.3799e+02_rb/)
+      kbo(:,18,15) = (/ &
+     &6.7489e+02_rb,6.3850e+02_rb,6.1688e+02_rb,6.0987e+02_rb,5.7677e+02_rb/)
+      kbo(:,19,15) = (/ &
+     &7.3779e+02_rb,7.0513e+02_rb,6.9510e+02_rb,6.5830e+02_rb,6.0487e+02_rb/)
+      kbo(:,20,15) = (/ &
+     &8.1079e+02_rb,7.9490e+02_rb,7.5998e+02_rb,6.9897e+02_rb,6.4843e+02_rb/)
+      kbo(:,21,15) = (/ &
+     &8.8426e+02_rb,8.6003e+02_rb,8.0304e+02_rb,7.3384e+02_rb,6.9837e+02_rb/)
+      kbo(:,22,15) = (/ &
+     &9.6812e+02_rb,9.1088e+02_rb,8.3391e+02_rb,7.8330e+02_rb,7.5669e+02_rb/)
+      kbo(:,23,15) = (/ &
+     &1.0128e+03_rb,9.4218e+02_rb,8.8720e+02_rb,8.2530e+02_rb,7.8833e+02_rb/)
+      kbo(:,24,15) = (/ &
+     &1.0622e+03_rb,9.7878e+02_rb,9.1791e+02_rb,8.7765e+02_rb,7.9731e+02_rb/)
+      kbo(:,25,15) = (/ &
+     &1.0853e+03_rb,1.0245e+03_rb,9.5328e+02_rb,8.9340e+02_rb,8.1721e+02_rb/)
+      kbo(:,26,15) = (/ &
+     &1.1200e+03_rb,1.0458e+03_rb,9.9235e+02_rb,9.0775e+02_rb,8.4493e+02_rb/)
+      kbo(:,27,15) = (/ &
+     &1.1556e+03_rb,1.0812e+03_rb,1.0090e+03_rb,9.2343e+02_rb,8.1758e+02_rb/)
+      kbo(:,28,15) = (/ &
+     &1.1865e+03_rb,1.1049e+03_rb,1.0073e+03_rb,9.1620e+02_rb,7.7173e+02_rb/)
+      kbo(:,29,15) = (/ &
+     &1.1906e+03_rb,1.1065e+03_rb,1.0028e+03_rb,8.7527e+02_rb,7.2650e+02_rb/)
+      kbo(:,30,15) = (/ &
+     &1.1992e+03_rb,1.0831e+03_rb,9.6830e+02_rb,8.1150e+02_rb,6.8040e+02_rb/)
+      kbo(:,31,15) = (/ &
+     &1.1794e+03_rb,1.0618e+03_rb,9.0601e+02_rb,7.5400e+02_rb,6.0274e+02_rb/)
+      kbo(:,32,15) = (/ &
+     &1.1491e+03_rb,9.9644e+02_rb,8.3044e+02_rb,6.7287e+02_rb,5.1890e+02_rb/)
+      kbo(:,33,15) = (/ &
+     &1.0978e+03_rb,9.1760e+02_rb,7.5228e+02_rb,5.8187e+02_rb,4.2649e+02_rb/)
+      kbo(:,34,15) = (/ &
+     &1.0237e+03_rb,8.4870e+02_rb,6.6311e+02_rb,4.9111e+02_rb,3.3958e+02_rb/)
+      kbo(:,35,15) = (/ &
+     &9.6010e+02_rb,7.7009e+02_rb,5.7949e+02_rb,4.1414e+02_rb,2.7668e+02_rb/)
+      kbo(:,36,15) = (/ &
+     &9.0171e+02_rb,7.0086e+02_rb,5.0886e+02_rb,3.3823e+02_rb,2.2240e+02_rb/)
+      kbo(:,37,15) = (/ &
+     &9.0464e+02_rb,7.0259e+02_rb,5.0334e+02_rb,3.3120e+02_rb,2.1250e+02_rb/)
+      kbo(:,38,15) = (/ &
+     &9.1272e+02_rb,7.0777e+02_rb,5.0236e+02_rb,3.2627e+02_rb,2.0281e+02_rb/)
+      kbo(:,39,15) = (/ &
+     &9.1592e+02_rb,7.0699e+02_rb,5.0029e+02_rb,3.1832e+02_rb,1.8984e+02_rb/)
+      kbo(:,40,15) = (/ &
+     &9.7111e+02_rb,7.5888e+02_rb,5.4218e+02_rb,3.5289e+02_rb,2.1710e+02_rb/)
+      kbo(:,41,15) = (/ &
+     &1.0392e+03_rb,8.1334e+02_rb,5.9329e+02_rb,4.0507e+02_rb,2.5679e+02_rb/)
+      kbo(:,42,15) = (/ &
+     &1.1018e+03_rb,8.7332e+02_rb,6.5360e+02_rb,4.6461e+02_rb,2.9410e+02_rb/)
+      kbo(:,43,15) = (/ &
+     &1.1780e+03_rb,9.5750e+02_rb,7.5295e+02_rb,5.3640e+02_rb,3.4968e+02_rb/)
+      kbo(:,44,15) = (/ &
+     &1.2774e+03_rb,1.0610e+03_rb,8.3382e+02_rb,6.1903e+02_rb,4.3881e+02_rb/)
+      kbo(:,45,15) = (/ &
+     &1.3696e+03_rb,1.1411e+03_rb,9.2825e+02_rb,7.2390e+02_rb,5.2087e+02_rb/)
+      kbo(:,46,15) = (/ &
+     &1.4458e+03_rb,1.2392e+03_rb,1.0284e+03_rb,8.1462e+02_rb,6.0446e+02_rb/)
+      kbo(:,47,15) = (/ &
+     &1.5185e+03_rb,1.3558e+03_rb,1.1323e+03_rb,9.2353e+02_rb,7.1923e+02_rb/)
+      kbo(:,48,15) = (/ &
+     &1.5480e+03_rb,1.4278e+03_rb,1.2433e+03_rb,1.0338e+03_rb,8.2416e+02_rb/)
+      kbo(:,49,15) = (/ &
+     &1.6321e+03_rb,1.4959e+03_rb,1.3391e+03_rb,1.1340e+03_rb,9.3754e+02_rb/)
+      kbo(:,50,15) = (/ &
+     &1.7049e+03_rb,1.5268e+03_rb,1.4037e+03_rb,1.2337e+03_rb,1.0324e+03_rb/)
+      kbo(:,51,15) = (/ &
+     &1.7473e+03_rb,1.6024e+03_rb,1.4662e+03_rb,1.3130e+03_rb,1.1235e+03_rb/)
+      kbo(:,52,15) = (/ &
+     &1.7742e+03_rb,1.6697e+03_rb,1.4942e+03_rb,1.3753e+03_rb,1.2160e+03_rb/)
+      kbo(:,53,15) = (/ &
+     &1.8257e+03_rb,1.7098e+03_rb,1.5772e+03_rb,1.4297e+03_rb,1.2866e+03_rb/)
+      kbo(:,54,15) = (/ &
+     &1.8238e+03_rb,1.7301e+03_rb,1.6290e+03_rb,1.4640e+03_rb,1.3508e+03_rb/)
+      kbo(:,55,15) = (/ &
+     &1.8598e+03_rb,1.7789e+03_rb,1.6666e+03_rb,1.5389e+03_rb,1.3930e+03_rb/)
+      kbo(:,56,15) = (/ &
+     &1.9305e+03_rb,1.7834e+03_rb,1.6800e+03_rb,1.5831e+03_rb,1.4252e+03_rb/)
+      kbo(:,57,15) = (/ &
+     &1.9902e+03_rb,1.8099e+03_rb,1.7296e+03_rb,1.6197e+03_rb,1.4994e+03_rb/)
+      kbo(:,58,15) = (/ &
+     &2.0569e+03_rb,1.8785e+03_rb,1.7252e+03_rb,1.6299e+03_rb,1.5366e+03_rb/)
+      kbo(:,59,15) = (/ &
+     &2.0792e+03_rb,1.9024e+03_rb,1.7290e+03_rb,1.6559e+03_rb,1.5493e+03_rb/)
+      kbo(:,13,16) = (/ &
+     &5.7074e+02_rb,5.5713e+02_rb,5.4253e+02_rb,5.2721e+02_rb,5.1131e+02_rb/)
+      kbo(:,14,16) = (/ &
+     &6.6774e+02_rb,6.5027e+02_rb,6.3161e+02_rb,6.1261e+02_rb,5.9377e+02_rb/)
+      kbo(:,15,16) = (/ &
+     &7.7763e+02_rb,7.5535e+02_rb,7.3247e+02_rb,7.0914e+02_rb,6.8554e+02_rb/)
+      kbo(:,16,16) = (/ &
+     &9.0056e+02_rb,8.7306e+02_rb,8.4456e+02_rb,8.1516e+02_rb,7.0895e+02_rb/)
+      kbo(:,17,16) = (/ &
+     &1.0366e+03_rb,1.0015e+03_rb,9.6519e+02_rb,8.8128e+02_rb,7.1380e+02_rb/)
+      kbo(:,18,16) = (/ &
+     &1.1817e+03_rb,1.1369e+03_rb,1.0597e+03_rb,8.5644e+02_rb,7.3707e+02_rb/)
+      kbo(:,19,16) = (/ &
+     &1.3316e+03_rb,1.2750e+03_rb,1.0321e+03_rb,8.8674e+02_rb,7.7129e+02_rb/)
+      kbo(:,20,16) = (/ &
+     &1.4803e+03_rb,1.2710e+03_rb,1.0855e+03_rb,9.4408e+02_rb,7.2356e+02_rb/)
+      kbo(:,21,16) = (/ &
+     &1.6247e+03_rb,1.3272e+03_rb,1.1530e+03_rb,9.8338e+02_rb,6.9198e+02_rb/)
+      kbo(:,22,16) = (/ &
+     &1.6008e+03_rb,1.3778e+03_rb,1.2081e+03_rb,9.0370e+02_rb,5.5641e+02_rb/)
+      kbo(:,23,16) = (/ &
+     &1.6342e+03_rb,1.4243e+03_rb,1.1304e+03_rb,8.5528e+02_rb,4.9240e+02_rb/)
+      kbo(:,24,16) = (/ &
+     &1.6690e+03_rb,1.4128e+03_rb,1.0773e+03_rb,6.8055e+02_rb,4.3204e+02_rb/)
+      kbo(:,25,16) = (/ &
+     &1.6932e+03_rb,1.3171e+03_rb,9.9569e+02_rb,5.6924e+02_rb,2.7405e+02_rb/)
+      kbo(:,26,16) = (/ &
+     &1.5997e+03_rb,1.2565e+03_rb,7.2147e+02_rb,4.1508e+02_rb,1.6363e+00_rb/)
+      kbo(:,27,16) = (/ &
+     &1.4709e+03_rb,1.0620e+03_rb,5.5367e+02_rb,1.6801e+02_rb,1.7711e+00_rb/)
+      kbo(:,28,16) = (/ &
+     &1.2868e+03_rb,7.4225e+02_rb,4.1091e+02_rb,1.3979e+00_rb,1.9138e+00_rb/)
+      kbo(:,29,16) = (/ &
+     &1.1046e+03_rb,5.7327e+02_rb,1.1435e+02_rb,1.5227e+00_rb,2.0690e+00_rb/)
+      kbo(:,30,16) = (/ &
+     &7.5951e+02_rb,3.1070e+02_rb,1.1800e+00_rb,1.6572e+00_rb,2.2234e+00_rb/)
+      kbo(:,31,16) = (/ &
+     &5.2269e+02_rb,8.9357e-01_rb,1.2993e+00_rb,1.7936e+00_rb,2.3615e+00_rb/)
+      kbo(:,32,16) = (/ &
+     &1.3504e+02_rb,9.8754e-01_rb,1.4263e+00_rb,1.9479e+00_rb,2.5792e+00_rb/)
+      kbo(:,33,16) = (/ &
+     &7.3408e-01_rb,1.0937e+00_rb,1.5601e+00_rb,2.1018e+00_rb,2.7689e+00_rb/)
+      kbo(:,34,16) = (/ &
+     &8.0973e-01_rb,1.1916e+00_rb,1.6719e+00_rb,2.2462e+00_rb,2.9376e+00_rb/)
+      kbo(:,35,16) = (/ &
+     &8.5624e-01_rb,1.2515e+00_rb,1.7457e+00_rb,2.3340e+00_rb,3.0393e+00_rb/)
+      kbo(:,36,16) = (/ &
+     &8.6582e-01_rb,1.2640e+00_rb,1.7620e+00_rb,2.3537e+00_rb,3.0624e+00_rb/)
+      kbo(:,37,16) = (/ &
+     &8.2392e-01_rb,1.2109e+00_rb,1.6970e+00_rb,2.2619e+00_rb,2.9651e+00_rb/)
+      kbo(:,38,16) = (/ &
+     &7.7820e-01_rb,1.1515e+00_rb,1.6284e+00_rb,2.1818e+00_rb,2.8537e+00_rb/)
+      kbo(:,39,16) = (/ &
+     &7.3137e-01_rb,1.0905e+00_rb,1.5568e+00_rb,2.1026e+00_rb,2.7617e+00_rb/)
+      kbo(:,40,16) = (/ &
+     &6.6113e-01_rb,9.9827e-01_rb,1.4324e+00_rb,1.9599e+00_rb,2.5782e+00_rb/)
+      kbo(:,41,16) = (/ &
+     &5.8979e-01_rb,9.0432e-01_rb,1.3165e+00_rb,1.8211e+00_rb,2.4166e+00_rb/)
+      kbo(:,42,16) = (/ &
+     &5.2189e-01_rb,8.1262e-01_rb,1.2033e+00_rb,1.6872e+00_rb,2.2584e+00_rb/)
+      kbo(:,43,16) = (/ &
+     &4.5012e-01_rb,7.1522e-01_rb,1.0693e+00_rb,1.5212e+00_rb,2.0670e+00_rb/)
+      kbo(:,44,16) = (/ &
+     &3.7946e-01_rb,6.1667e-01_rb,9.4312e-01_rb,1.3624e+00_rb,1.8770e+00_rb/)
+      kbo(:,45,16) = (/ &
+     &3.1558e-01_rb,5.2623e-01_rb,8.0787e-01_rb,1.2032e+00_rb,1.6863e+00_rb/)
+      kbo(:,46,16) = (/ &
+     &2.9590e+02_rb,4.4343e-01_rb,7.0619e-01_rb,1.0578e+00_rb,1.5068e+00_rb/)
+      kbo(:,47,16) = (/ &
+     &7.2659e+02_rb,3.5873e-01_rb,5.9101e-01_rb,9.0599e-01_rb,1.3156e+00_rb/)
+      kbo(:,48,16) = (/ &
+     &1.3181e+03_rb,3.4672e+02_rb,4.8767e-01_rb,7.6683e-01_rb,1.1370e+00_rb/)
+      kbo(:,49,16) = (/ &
+     &1.6047e+03_rb,7.6641e+02_rb,7.0071e+01_rb,6.4471e-01_rb,9.8037e-01_rb/)
+      kbo(:,50,16) = (/ &
+     &1.8848e+03_rb,1.3103e+03_rb,4.1613e+02_rb,5.4100e-01_rb,8.3899e-01_rb/)
+      kbo(:,51,16) = (/ &
+     &2.2044e+03_rb,1.5848e+03_rb,7.6808e+02_rb,1.1316e+02_rb,7.2276e-01_rb/)
+      kbo(:,52,16) = (/ &
+     &2.7162e+03_rb,1.8452e+03_rb,1.2957e+03_rb,4.5829e+02_rb,6.1559e-01_rb/)
+      kbo(:,53,16) = (/ &
+     &3.1107e+03_rb,2.1559e+03_rb,1.5529e+03_rb,8.4689e+02_rb,1.7464e+02_rb/)
+      kbo(:,54,16) = (/ &
+     &3.6955e+03_rb,2.6522e+03_rb,1.8196e+03_rb,1.2866e+03_rb,5.0615e+02_rb/)
+      kbo(:,55,16) = (/ &
+     &4.0343e+03_rb,2.9873e+03_rb,2.0751e+03_rb,1.5293e+03_rb,8.5669e+02_rb/)
+      kbo(:,56,16) = (/ &
+     &4.1921e+03_rb,3.4914e+03_rb,2.5653e+03_rb,1.7745e+03_rb,1.2881e+03_rb/)
+      kbo(:,57,16) = (/ &
+     &4.3609e+03_rb,3.8712e+03_rb,2.9041e+03_rb,2.0379e+03_rb,1.5211e+03_rb/)
+      kbo(:,58,16) = (/ &
+     &4.5313e+03_rb,4.0098e+03_rb,3.4243e+03_rb,2.5213e+03_rb,1.7627e+03_rb/)
+      kbo(:,59,16) = (/ &
+     &4.6034e+03_rb,4.0679e+03_rb,3.6299e+03_rb,2.7016e+03_rb,1.9029e+03_rb/)
+
+!     The array KAO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level below 100~ mb.   The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.  The second index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index 
+!     runs over the g-channel (1 to 16).
+
+      kao_mn2o( 1, :, 1) = (/ &
+     & 5.41078e-02_rb, 5.59051e-02_rb, 5.77620e-02_rb, 5.96805e-02_rb, 6.16628e-02_rb, &
+     & 6.37110e-02_rb, 6.58272e-02_rb, 6.80137e-02_rb, 7.02728e-02_rb, 7.26069e-02_rb, &
+     & 7.50185e-02_rb, 7.75103e-02_rb, 8.00848e-02_rb, 8.27449e-02_rb, 8.54933e-02_rb, &
+     & 8.83330e-02_rb, 9.12670e-02_rb, 9.42984e-02_rb, 9.74306e-02_rb/)
+      kao_mn2o( 2, :, 1) = (/ &
+     & 1.19602e-01_rb, 1.22963e-01_rb, 1.26417e-01_rb, 1.29969e-01_rb, 1.33621e-01_rb, &
+     & 1.37375e-01_rb, 1.41235e-01_rb, 1.45203e-01_rb, 1.49283e-01_rb, 1.53477e-01_rb, &
+     & 1.57789e-01_rb, 1.62223e-01_rb, 1.66780e-01_rb, 1.71466e-01_rb, 1.76284e-01_rb, &
+     & 1.81237e-01_rb, 1.86329e-01_rb, 1.91564e-01_rb, 1.96946e-01_rb/)
+      kao_mn2o( 3, :, 1) = (/ &
+     & 1.49614e-01_rb, 1.53427e-01_rb, 1.57337e-01_rb, 1.61346e-01_rb, 1.65457e-01_rb, &
+     & 1.69674e-01_rb, 1.73997e-01_rb, 1.78431e-01_rb, 1.82978e-01_rb, 1.87641e-01_rb, &
+     & 1.92422e-01_rb, 1.97325e-01_rb, 2.02354e-01_rb, 2.07510e-01_rb, 2.12798e-01_rb, &
+     & 2.18221e-01_rb, 2.23781e-01_rb, 2.29484e-01_rb, 2.35331e-01_rb/)
+      kao_mn2o( 4, :, 1) = (/ &
+     & 1.80029e-01_rb, 1.84202e-01_rb, 1.88472e-01_rb, 1.92841e-01_rb, 1.97311e-01_rb, &
+     & 2.01884e-01_rb, 2.06564e-01_rb, 2.11352e-01_rb, 2.16252e-01_rb, 2.21264e-01_rb, &
+     & 2.26393e-01_rb, 2.31641e-01_rb, 2.37010e-01_rb, 2.42504e-01_rb, 2.48126e-01_rb, &
+     & 2.53877e-01_rb, 2.59762e-01_rb, 2.65783e-01_rb, 2.71944e-01_rb/)
+      kao_mn2o( 5, :, 1) = (/ &
+     & 2.08279e-01_rb, 2.13029e-01_rb, 2.17888e-01_rb, 2.22858e-01_rb, 2.27941e-01_rb, &
+     & 2.33140e-01_rb, 2.38458e-01_rb, 2.43897e-01_rb, 2.49460e-01_rb, 2.55150e-01_rb, &
+     & 2.60969e-01_rb, 2.66922e-01_rb, 2.73010e-01_rb, 2.79237e-01_rb, 2.85606e-01_rb, &
+     & 2.92120e-01_rb, 2.98783e-01_rb, 3.05598e-01_rb, 3.12568e-01_rb/)
+      kao_mn2o( 6, :, 1) = (/ &
+     & 2.17336e-01_rb, 2.22571e-01_rb, 2.27931e-01_rb, 2.33421e-01_rb, 2.39043e-01_rb, &
+     & 2.44801e-01_rb, 2.50697e-01_rb, 2.56735e-01_rb, 2.62918e-01_rb, 2.69251e-01_rb, &
+     & 2.75735e-01_rb, 2.82377e-01_rb, 2.89178e-01_rb, 2.96142e-01_rb, 3.03275e-01_rb, &
+     & 3.10579e-01_rb, 3.18060e-01_rb, 3.25720e-01_rb, 3.33565e-01_rb/)
+      kao_mn2o( 7, :, 1) = (/ &
+     & 2.23903e-01_rb, 2.29349e-01_rb, 2.34926e-01_rb, 2.40640e-01_rb, 2.46493e-01_rb, &
+     & 2.52488e-01_rb, 2.58628e-01_rb, 2.64918e-01_rb, 2.71361e-01_rb, 2.77961e-01_rb, &
+     & 2.84721e-01_rb, 2.91646e-01_rb, 2.98739e-01_rb, 3.06005e-01_rb, 3.13447e-01_rb, &
+     & 3.21070e-01_rb, 3.28879e-01_rb, 3.36877e-01_rb, 3.45071e-01_rb/)
+      kao_mn2o( 8, :, 1) = (/ &
+     & 2.23400e-01_rb, 2.28843e-01_rb, 2.34418e-01_rb, 2.40130e-01_rb, 2.45980e-01_rb, &
+     & 2.51973e-01_rb, 2.58112e-01_rb, 2.64401e-01_rb, 2.70843e-01_rb, 2.77442e-01_rb, &
+     & 2.84202e-01_rb, 2.91126e-01_rb, 2.98219e-01_rb, 3.05485e-01_rb, 3.12928e-01_rb, &
+     & 3.20552e-01_rb, 3.28362e-01_rb, 3.36362e-01_rb, 3.44557e-01_rb/)
+      kao_mn2o( 9, :, 1) = (/ &
+     & 1.89279e-01_rb, 1.94423e-01_rb, 1.99707e-01_rb, 2.05135e-01_rb, 2.10710e-01_rb, &
+     & 2.16437e-01_rb, 2.22319e-01_rb, 2.28361e-01_rb, 2.34568e-01_rb, 2.40943e-01_rb, &
+     & 2.47492e-01_rb, 2.54218e-01_rb, 2.61127e-01_rb, 2.68224e-01_rb, 2.75514e-01_rb, &
+     & 2.83002e-01_rb, 2.90694e-01_rb, 2.98594e-01_rb, 3.06709e-01_rb/)
+      kao_mn2o( 1, :, 2) = (/ &
+     & 9.46669e-02_rb, 9.77137e-02_rb, 1.00858e-01_rb, 1.04104e-01_rb, 1.07455e-01_rb, &
+     & 1.10913e-01_rb, 1.14483e-01_rb, 1.18167e-01_rb, 1.21971e-01_rb, 1.25896e-01_rb, &
+     & 1.29948e-01_rb, 1.34130e-01_rb, 1.38447e-01_rb, 1.42903e-01_rb, 1.47502e-01_rb, &
+     & 1.52249e-01_rb, 1.57149e-01_rb, 1.62207e-01_rb, 1.67427e-01_rb/)
+      kao_mn2o( 2, :, 2) = (/ &
+     & 5.11901e-01_rb, 5.24950e-01_rb, 5.38331e-01_rb, 5.52053e-01_rb, 5.66125e-01_rb, &
+     & 5.80556e-01_rb, 5.95354e-01_rb, 6.10530e-01_rb, 6.26093e-01_rb, 6.42052e-01_rb, &
+     & 6.58418e-01_rb, 6.75202e-01_rb, 6.92413e-01_rb, 7.10062e-01_rb, 7.28162e-01_rb, &
+     & 7.46723e-01_rb, 7.65758e-01_rb, 7.85277e-01_rb, 8.05294e-01_rb/)
+      kao_mn2o( 3, :, 2) = (/ &
+     & 8.32946e-01_rb, 8.45780e-01_rb, 8.58813e-01_rb, 8.72046e-01_rb, 8.85482e-01_rb, &
+     & 8.99126e-01_rb, 9.12980e-01_rb, 9.27048e-01_rb, 9.41332e-01_rb, 9.55837e-01_rb, &
+     & 9.70565e-01_rb, 9.85520e-01_rb, 1.00070e+00_rb, 1.01612e+00_rb, 1.03178e+00_rb, &
+     & 1.04768e+00_rb, 1.06382e+00_rb, 1.08021e+00_rb, 1.09686e+00_rb/)
+      kao_mn2o( 4, :, 2) = (/ &
+     & 1.04032e+00_rb, 1.05475e+00_rb, 1.06937e+00_rb, 1.08419e+00_rb, 1.09922e+00_rb, &
+     & 1.11446e+00_rb, 1.12991e+00_rb, 1.14557e+00_rb, 1.16145e+00_rb, 1.17755e+00_rb, &
+     & 1.19387e+00_rb, 1.21042e+00_rb, 1.22720e+00_rb, 1.24421e+00_rb, 1.26146e+00_rb, &
+     & 1.27895e+00_rb, 1.29668e+00_rb, 1.31465e+00_rb, 1.33287e+00_rb/)
+      kao_mn2o( 5, :, 2) = (/ &
+     & 1.22685e+00_rb, 1.24267e+00_rb, 1.25870e+00_rb, 1.27493e+00_rb, 1.29137e+00_rb, &
+     & 1.30803e+00_rb, 1.32490e+00_rb, 1.34199e+00_rb, 1.35930e+00_rb, 1.37683e+00_rb, &
+     & 1.39459e+00_rb, 1.41257e+00_rb, 1.43079e+00_rb, 1.44925e+00_rb, 1.46794e+00_rb, &
+     & 1.48687e+00_rb, 1.50605e+00_rb, 1.52547e+00_rb, 1.54515e+00_rb/)
+      kao_mn2o( 6, :, 2) = (/ &
+     & 1.53781e+00_rb, 1.55206e+00_rb, 1.56645e+00_rb, 1.58097e+00_rb, 1.59563e+00_rb, &
+     & 1.61042e+00_rb, 1.62535e+00_rb, 1.64042e+00_rb, 1.65562e+00_rb, 1.67097e+00_rb, &
+     & 1.68646e+00_rb, 1.70210e+00_rb, 1.71788e+00_rb, 1.73380e+00_rb, 1.74987e+00_rb, &
+     & 1.76610e+00_rb, 1.78247e+00_rb, 1.79899e+00_rb, 1.81567e+00_rb/)
+      kao_mn2o( 7, :, 2) = (/ &
+     & 1.90476e+00_rb, 1.91858e+00_rb, 1.93251e+00_rb, 1.94653e+00_rb, 1.96065e+00_rb, &
+     & 1.97488e+00_rb, 1.98921e+00_rb, 2.00365e+00_rb, 2.01819e+00_rb, 2.03283e+00_rb, &
+     & 2.04758e+00_rb, 2.06244e+00_rb, 2.07741e+00_rb, 2.09248e+00_rb, 2.10767e+00_rb, &
+     & 2.12296e+00_rb, 2.13837e+00_rb, 2.15388e+00_rb, 2.16951e+00_rb/)
+      kao_mn2o( 8, :, 2) = (/ &
+     & 2.38211e+00_rb, 2.39819e+00_rb, 2.41438e+00_rb, 2.43068e+00_rb, 2.44709e+00_rb, &
+     & 2.46361e+00_rb, 2.48024e+00_rb, 2.49699e+00_rb, 2.51384e+00_rb, 2.53082e+00_rb, &
+     & 2.54790e+00_rb, 2.56510e+00_rb, 2.58242e+00_rb, 2.59985e+00_rb, 2.61741e+00_rb, &
+     & 2.63508e+00_rb, 2.65287e+00_rb, 2.67078e+00_rb, 2.68881e+00_rb/)
+      kao_mn2o( 9, :, 2) = (/ &
+     & 1.26464e+00_rb, 1.28107e+00_rb, 1.29772e+00_rb, 1.31458e+00_rb, 1.33166e+00_rb, &
+     & 1.34896e+00_rb, 1.36649e+00_rb, 1.38424e+00_rb, 1.40223e+00_rb, 1.42044e+00_rb, &
+     & 1.43890e+00_rb, 1.45759e+00_rb, 1.47653e+00_rb, 1.49572e+00_rb, 1.51515e+00_rb, &
+     & 1.53483e+00_rb, 1.55478e+00_rb, 1.57498e+00_rb, 1.59544e+00_rb/)
+      kao_mn2o( 1, :, 3) = (/ &
+     & 1.50082e-01_rb, 1.59095e-01_rb, 1.68650e-01_rb, 1.78779e-01_rb, 1.89516e-01_rb, &
+     & 2.00898e-01_rb, 2.12963e-01_rb, 2.25753e-01_rb, 2.39311e-01_rb, 2.53683e-01_rb, &
+     & 2.68919e-01_rb, 2.85069e-01_rb, 3.02190e-01_rb, 3.20339e-01_rb, 3.39577e-01_rb, &
+     & 3.59971e-01_rb, 3.81590e-01_rb, 4.04507e-01_rb, 4.28801e-01_rb/)
+      kao_mn2o( 2, :, 3) = (/ &
+     & 3.09551e+00_rb, 3.09780e+00_rb, 3.10008e+00_rb, 3.10237e+00_rb, 3.10466e+00_rb, &
+     & 3.10695e+00_rb, 3.10925e+00_rb, 3.11154e+00_rb, 3.11384e+00_rb, 3.11614e+00_rb, &
+     & 3.11844e+00_rb, 3.12074e+00_rb, 3.12305e+00_rb, 3.12535e+00_rb, 3.12766e+00_rb, &
+     & 3.12997e+00_rb, 3.13228e+00_rb, 3.13459e+00_rb, 3.13691e+00_rb/)
+      kao_mn2o( 3, :, 3) = (/ &
+     & 4.42661e+00_rb, 4.40858e+00_rb, 4.39062e+00_rb, 4.37274e+00_rb, 4.35493e+00_rb, &
+     & 4.33719e+00_rb, 4.31953e+00_rb, 4.30193e+00_rb, 4.28441e+00_rb, 4.26696e+00_rb, &
+     & 4.24958e+00_rb, 4.23227e+00_rb, 4.21503e+00_rb, 4.19787e+00_rb, 4.18077e+00_rb, &
+     & 4.16374e+00_rb, 4.14678e+00_rb, 4.12989e+00_rb, 4.11307e+00_rb/)
+      kao_mn2o( 4, :, 3) = (/ &
+     & 5.77864e+00_rb, 5.74085e+00_rb, 5.70331e+00_rb, 5.66602e+00_rb, 5.62897e+00_rb, &
+     & 5.59216e+00_rb, 5.55559e+00_rb, 5.51926e+00_rb, 5.48317e+00_rb, 5.44731e+00_rb, &
+     & 5.41169e+00_rb, 5.37631e+00_rb, 5.34115e+00_rb, 5.30622e+00_rb, 5.27152e+00_rb, &
+     & 5.23705e+00_rb, 5.20281e+00_rb, 5.16879e+00_rb, 5.13499e+00_rb/)
+      kao_mn2o( 5, :, 3) = (/ &
+     & 7.17294e+00_rb, 7.10890e+00_rb, 7.04542e+00_rb, 6.98251e+00_rb, 6.92017e+00_rb, &
+     & 6.85838e+00_rb, 6.79714e+00_rb, 6.73645e+00_rb, 6.67630e+00_rb, 6.61669e+00_rb, &
+     & 6.55761e+00_rb, 6.49905e+00_rb, 6.44102e+00_rb, 6.38351e+00_rb, 6.32651e+00_rb, &
+     & 6.27003e+00_rb, 6.21404e+00_rb, 6.15856e+00_rb, 6.10357e+00_rb/)
+      kao_mn2o( 6, :, 3) = (/ &
+     & 9.05082e+00_rb, 8.96132e+00_rb, 8.87271e+00_rb, 8.78498e+00_rb, 8.69811e+00_rb, &
+     & 8.61210e+00_rb, 8.52694e+00_rb, 8.44262e+00_rb, 8.35914e+00_rb, 8.27648e+00_rb, &
+     & 8.19464e+00_rb, 8.11361e+00_rb, 8.03338e+00_rb, 7.95394e+00_rb, 7.87529e+00_rb, &
+     & 7.79742e+00_rb, 7.72032e+00_rb, 7.64398e+00_rb, 7.56839e+00_rb/)
+      kao_mn2o( 7, :, 3) = (/ &
+     & 1.18749e+01_rb, 1.17648e+01_rb, 1.16556e+01_rb, 1.15475e+01_rb, 1.14403e+01_rb, &
+     & 1.13342e+01_rb, 1.12290e+01_rb, 1.11248e+01_rb, 1.10216e+01_rb, 1.09194e+01_rb, &
+     & 1.08180e+01_rb, 1.07177e+01_rb, 1.06182e+01_rb, 1.05197e+01_rb, 1.04221e+01_rb, &
+     & 1.03254e+01_rb, 1.02296e+01_rb, 1.01347e+01_rb, 1.00407e+01_rb/)
+      kao_mn2o( 8, :, 3) = (/ &
+     & 1.41428e+01_rb, 1.40323e+01_rb, 1.39227e+01_rb, 1.38139e+01_rb, 1.37060e+01_rb, &
+     & 1.35989e+01_rb, 1.34927e+01_rb, 1.33873e+01_rb, 1.32827e+01_rb, 1.31790e+01_rb, &
+     & 1.30760e+01_rb, 1.29738e+01_rb, 1.28725e+01_rb, 1.27719e+01_rb, 1.26722e+01_rb, &
+     & 1.25732e+01_rb, 1.24750e+01_rb, 1.23775e+01_rb, 1.22808e+01_rb/)
+      kao_mn2o( 9, :, 3) = (/ &
+     & 7.34993e+00_rb, 7.29335e+00_rb, 7.23720e+00_rb, 7.18149e+00_rb, 7.12620e+00_rb, &
+     & 7.07134e+00_rb, 7.01690e+00_rb, 6.96288e+00_rb, 6.90928e+00_rb, 6.85609e+00_rb, &
+     & 6.80331e+00_rb, 6.75094e+00_rb, 6.69897e+00_rb, 6.64739e+00_rb, 6.59622e+00_rb, &
+     & 6.54544e+00_rb, 6.49505e+00_rb, 6.44505e+00_rb, 6.39543e+00_rb/)
+      kao_mn2o( 1, :, 4) = (/ &
+     & 6.11248e-01_rb, 6.37225e-01_rb, 6.64306e-01_rb, 6.92538e-01_rb, 7.21970e-01_rb, &
+     & 7.52653e-01_rb, 7.84639e-01_rb, 8.17985e-01_rb, 8.52749e-01_rb, 8.88989e-01_rb, &
+     & 9.26770e-01_rb, 9.66157e-01_rb, 1.00722e+00_rb, 1.05002e+00_rb, 1.09465e+00_rb, &
+     & 1.14117e+00_rb, 1.18967e+00_rb, 1.24022e+00_rb, 1.29293e+00_rb/)
+      kao_mn2o( 2, :, 4) = (/ &
+     & 5.07253e+00_rb, 5.05299e+00_rb, 5.03353e+00_rb, 5.01414e+00_rb, 4.99483e+00_rb, &
+     & 4.97559e+00_rb, 4.95642e+00_rb, 4.93733e+00_rb, 4.91831e+00_rb, 4.89937e+00_rb, &
+     & 4.88050e+00_rb, 4.86170e+00_rb, 4.84297e+00_rb, 4.82432e+00_rb, 4.80573e+00_rb, &
+     & 4.78722e+00_rb, 4.76878e+00_rb, 4.75042e+00_rb, 4.73212e+00_rb/)
+      kao_mn2o( 3, :, 4) = (/ &
+     & 7.45829e+00_rb, 7.42266e+00_rb, 7.38719e+00_rb, 7.35190e+00_rb, 7.31677e+00_rb, &
+     & 7.28181e+00_rb, 7.24702e+00_rb, 7.21240e+00_rb, 7.17794e+00_rb, 7.14364e+00_rb, &
+     & 7.10951e+00_rb, 7.07554e+00_rb, 7.04173e+00_rb, 7.00809e+00_rb, 6.97461e+00_rb, &
+     & 6.94128e+00_rb, 6.90812e+00_rb, 6.87511e+00_rb, 6.84226e+00_rb/)
+      kao_mn2o( 4, :, 4) = (/ &
+     & 9.58893e+00_rb, 9.54796e+00_rb, 9.50716e+00_rb, 9.46654e+00_rb, 9.42609e+00_rb, &
+     & 9.38581e+00_rb, 9.34571e+00_rb, 9.30578e+00_rb, 9.26602e+00_rb, 9.22642e+00_rb, &
+     & 9.18700e+00_rb, 9.14775e+00_rb, 9.10866e+00_rb, 9.06974e+00_rb, 9.03099e+00_rb, &
+     & 8.99240e+00_rb, 8.95398e+00_rb, 8.91572e+00_rb, 8.87762e+00_rb/)
+      kao_mn2o( 5, :, 4) = (/ &
+     & 1.16344e+01_rb, 1.16012e+01_rb, 1.15681e+01_rb, 1.15351e+01_rb, 1.15022e+01_rb, &
+     & 1.14694e+01_rb, 1.14366e+01_rb, 1.14040e+01_rb, 1.13715e+01_rb, 1.13390e+01_rb, &
+     & 1.13067e+01_rb, 1.12744e+01_rb, 1.12422e+01_rb, 1.12102e+01_rb, 1.11782e+01_rb, &
+     & 1.11463e+01_rb, 1.11145e+01_rb, 1.10828e+01_rb, 1.10511e+01_rb/)
+      kao_mn2o( 6, :, 4) = (/ &
+     & 1.12460e+01_rb, 1.12402e+01_rb, 1.12344e+01_rb, 1.12286e+01_rb, 1.12228e+01_rb, &
+     & 1.12170e+01_rb, 1.12112e+01_rb, 1.12055e+01_rb, 1.11997e+01_rb, 1.11939e+01_rb, &
+     & 1.11882e+01_rb, 1.11824e+01_rb, 1.11766e+01_rb, 1.11709e+01_rb, 1.11651e+01_rb, &
+     & 1.11594e+01_rb, 1.11536e+01_rb, 1.11479e+01_rb, 1.11421e+01_rb/)
+      kao_mn2o( 7, :, 4) = (/ &
+     & 8.89265e+00_rb, 8.91419e+00_rb, 8.93578e+00_rb, 8.95743e+00_rb, 8.97913e+00_rb, &
+     & 9.00088e+00_rb, 9.02268e+00_rb, 9.04454e+00_rb, 9.06645e+00_rb, 9.08841e+00_rb, &
+     & 9.11043e+00_rb, 9.13250e+00_rb, 9.15462e+00_rb, 9.17680e+00_rb, 9.19903e+00_rb, &
+     & 9.22131e+00_rb, 9.24365e+00_rb, 9.26604e+00_rb, 9.28849e+00_rb/)
+      kao_mn2o( 8, :, 4) = (/ &
+     & 6.83933e+00_rb, 6.86688e+00_rb, 6.89453e+00_rb, 6.92230e+00_rb, 6.95018e+00_rb, &
+     & 6.97817e+00_rb, 7.00627e+00_rb, 7.03449e+00_rb, 7.06282e+00_rb, 7.09126e+00_rb, &
+     & 7.11982e+00_rb, 7.14850e+00_rb, 7.17729e+00_rb, 7.20619e+00_rb, 7.23521e+00_rb, &
+     & 7.26435e+00_rb, 7.29361e+00_rb, 7.32298e+00_rb, 7.35248e+00_rb/)
+      kao_mn2o( 9, :, 4) = (/ &
+     & 1.10637e+01_rb, 1.10232e+01_rb, 1.09829e+01_rb, 1.09427e+01_rb, 1.09026e+01_rb, &
+     & 1.08627e+01_rb, 1.08230e+01_rb, 1.07833e+01_rb, 1.07439e+01_rb, 1.07046e+01_rb, &
+     & 1.06654e+01_rb, 1.06263e+01_rb, 1.05875e+01_rb, 1.05487e+01_rb, 1.05101e+01_rb, &
+     & 1.04716e+01_rb, 1.04333e+01_rb, 1.03951e+01_rb, 1.03571e+01_rb/)
+      kao_mn2o( 1, :, 5) = (/ &
+     & 2.53460e+00_rb, 2.56050e+00_rb, 2.58667e+00_rb, 2.61310e+00_rb, 2.63980e+00_rb, &
+     & 2.66678e+00_rb, 2.69403e+00_rb, 2.72156e+00_rb, 2.74937e+00_rb, 2.77746e+00_rb, &
+     & 2.80585e+00_rb, 2.83452e+00_rb, 2.86348e+00_rb, 2.89275e+00_rb, 2.92231e+00_rb, &
+     & 2.95217e+00_rb, 2.98234e+00_rb, 3.01281e+00_rb, 3.04360e+00_rb/)
+      kao_mn2o( 2, :, 5) = (/ &
+     & 7.45650e+00_rb, 7.44283e+00_rb, 7.42919e+00_rb, 7.41557e+00_rb, 7.40198e+00_rb, &
+     & 7.38841e+00_rb, 7.37487e+00_rb, 7.36135e+00_rb, 7.34786e+00_rb, 7.33439e+00_rb, &
+     & 7.32095e+00_rb, 7.30753e+00_rb, 7.29413e+00_rb, 7.28076e+00_rb, 7.26742e+00_rb, &
+     & 7.25410e+00_rb, 7.24080e+00_rb, 7.22753e+00_rb, 7.21428e+00_rb/)
+      kao_mn2o( 3, :, 5) = (/ &
+     & 1.06311e+01_rb, 1.06110e+01_rb, 1.05909e+01_rb, 1.05709e+01_rb, 1.05509e+01_rb, &
+     & 1.05310e+01_rb, 1.05111e+01_rb, 1.04912e+01_rb, 1.04713e+01_rb, 1.04516e+01_rb, &
+     & 1.04318e+01_rb, 1.04121e+01_rb, 1.03924e+01_rb, 1.03727e+01_rb, 1.03531e+01_rb, &
+     & 1.03336e+01_rb, 1.03140e+01_rb, 1.02945e+01_rb, 1.02751e+01_rb/)
+      kao_mn2o( 4, :, 5) = (/ &
+     & 1.03924e+01_rb, 1.03895e+01_rb, 1.03867e+01_rb, 1.03838e+01_rb, 1.03809e+01_rb, &
+     & 1.03780e+01_rb, 1.03751e+01_rb, 1.03722e+01_rb, 1.03693e+01_rb, 1.03665e+01_rb, &
+     & 1.03636e+01_rb, 1.03607e+01_rb, 1.03578e+01_rb, 1.03549e+01_rb, 1.03521e+01_rb, &
+     & 1.03492e+01_rb, 1.03463e+01_rb, 1.03434e+01_rb, 1.03406e+01_rb/)
+      kao_mn2o( 5, :, 5) = (/ &
+     & 7.82277e+00_rb, 7.83872e+00_rb, 7.85471e+00_rb, 7.87073e+00_rb, 7.88678e+00_rb, &
+     & 7.90287e+00_rb, 7.91899e+00_rb, 7.93514e+00_rb, 7.95132e+00_rb, 7.96754e+00_rb, &
+     & 7.98379e+00_rb, 8.00008e+00_rb, 8.01639e+00_rb, 8.03274e+00_rb, 8.04913e+00_rb, &
+     & 8.06555e+00_rb, 8.08200e+00_rb, 8.09848e+00_rb, 8.11500e+00_rb/)
+      kao_mn2o( 6, :, 5) = (/ &
+     & 6.05225e+00_rb, 6.06883e+00_rb, 6.08545e+00_rb, 6.10212e+00_rb, 6.11883e+00_rb, &
+     & 6.13559e+00_rb, 6.15240e+00_rb, 6.16925e+00_rb, 6.18615e+00_rb, 6.20309e+00_rb, &
+     & 6.22008e+00_rb, 6.23712e+00_rb, 6.25420e+00_rb, 6.27133e+00_rb, 6.28851e+00_rb, &
+     & 6.30574e+00_rb, 6.32301e+00_rb, 6.34033e+00_rb, 6.35769e+00_rb/)
+      kao_mn2o( 7, :, 5) = (/ &
+     & 5.24135e+00_rb, 5.25696e+00_rb, 5.27261e+00_rb, 5.28831e+00_rb, 5.30405e+00_rb, &
+     & 5.31984e+00_rb, 5.33568e+00_rb, 5.35157e+00_rb, 5.36750e+00_rb, 5.38348e+00_rb, &
+     & 5.39951e+00_rb, 5.41558e+00_rb, 5.43171e+00_rb, 5.44788e+00_rb, 5.46410e+00_rb, &
+     & 5.48037e+00_rb, 5.49668e+00_rb, 5.51305e+00_rb, 5.52946e+00_rb/)
+      kao_mn2o( 8, :, 5) = (/ &
+     & 4.40240e+00_rb, 4.40915e+00_rb, 4.41591e+00_rb, 4.42268e+00_rb, 4.42946e+00_rb, &
+     & 4.43625e+00_rb, 4.44305e+00_rb, 4.44986e+00_rb, 4.45668e+00_rb, 4.46351e+00_rb, &
+     & 4.47035e+00_rb, 4.47720e+00_rb, 4.48407e+00_rb, 4.49094e+00_rb, 4.49782e+00_rb, &
+     & 4.50472e+00_rb, 4.51162e+00_rb, 4.51854e+00_rb, 4.52547e+00_rb/)
+      kao_mn2o( 9, :, 5) = (/ &
+     & 8.56554e+00_rb, 8.59185e+00_rb, 8.61824e+00_rb, 8.64470e+00_rb, 8.67125e+00_rb, &
+     & 8.69788e+00_rb, 8.72460e+00_rb, 8.75139e+00_rb, 8.77827e+00_rb, 8.80523e+00_rb, &
+     & 8.83227e+00_rb, 8.85939e+00_rb, 8.88660e+00_rb, 8.91389e+00_rb, 8.94127e+00_rb, &
+     & 8.96873e+00_rb, 8.99627e+00_rb, 9.02390e+00_rb, 9.05161e+00_rb/)
+      kao_mn2o( 1, :, 6) = (/ &
+     & 5.78695e+00_rb, 5.78939e+00_rb, 5.79182e+00_rb, 5.79426e+00_rb, 5.79670e+00_rb, &
+     & 5.79914e+00_rb, 5.80158e+00_rb, 5.80403e+00_rb, 5.80647e+00_rb, 5.80892e+00_rb, &
+     & 5.81136e+00_rb, 5.81381e+00_rb, 5.81626e+00_rb, 5.81870e+00_rb, 5.82115e+00_rb, &
+     & 5.82361e+00_rb, 5.82606e+00_rb, 5.82851e+00_rb, 5.83096e+00_rb/)
+      kao_mn2o( 2, :, 6) = (/ &
+     & 1.22893e+01_rb, 1.22556e+01_rb, 1.22221e+01_rb, 1.21886e+01_rb, 1.21552e+01_rb, &
+     & 1.21220e+01_rb, 1.20888e+01_rb, 1.20557e+01_rb, 1.20227e+01_rb, 1.19898e+01_rb, &
+     & 1.19569e+01_rb, 1.19242e+01_rb, 1.18915e+01_rb, 1.18590e+01_rb, 1.18265e+01_rb, &
+     & 1.17941e+01_rb, 1.17618e+01_rb, 1.17296e+01_rb, 1.16975e+01_rb/)
+      kao_mn2o( 3, :, 6) = (/ &
+     & 7.93118e+00_rb, 7.94590e+00_rb, 7.96065e+00_rb, 7.97542e+00_rb, 7.99022e+00_rb, &
+     & 8.00505e+00_rb, 8.01990e+00_rb, 8.03478e+00_rb, 8.04970e+00_rb, 8.06463e+00_rb, &
+     & 8.07960e+00_rb, 8.09459e+00_rb, 8.10961e+00_rb, 8.12466e+00_rb, 8.13974e+00_rb, &
+     & 8.15485e+00_rb, 8.16998e+00_rb, 8.18514e+00_rb, 8.20033e+00_rb/)
+      kao_mn2o( 4, :, 6) = (/ &
+     & 4.08899e+00_rb, 4.11435e+00_rb, 4.13988e+00_rb, 4.16556e+00_rb, 4.19140e+00_rb, &
+     & 4.21740e+00_rb, 4.24357e+00_rb, 4.26989e+00_rb, 4.29638e+00_rb, 4.32304e+00_rb, &
+     & 4.34985e+00_rb, 4.37684e+00_rb, 4.40399e+00_rb, 4.43131e+00_rb, 4.45880e+00_rb, &
+     & 4.48646e+00_rb, 4.51430e+00_rb, 4.54230e+00_rb, 4.57048e+00_rb/)
+      kao_mn2o( 5, :, 6) = (/ &
+     & 2.61358e+00_rb, 2.64029e+00_rb, 2.66728e+00_rb, 2.69454e+00_rb, 2.72209e+00_rb, &
+     & 2.74991e+00_rb, 2.77802e+00_rb, 2.80641e+00_rb, 2.83510e+00_rb, 2.86408e+00_rb, &
+     & 2.89335e+00_rb, 2.92293e+00_rb, 2.95280e+00_rb, 2.98299e+00_rb, 3.01348e+00_rb, &
+     & 3.04428e+00_rb, 3.07540e+00_rb, 3.10683e+00_rb, 3.13859e+00_rb/)
+      kao_mn2o( 6, :, 6) = (/ &
+     & 2.40720e+00_rb, 2.43430e+00_rb, 2.46169e+00_rb, 2.48940e+00_rb, 2.51741e+00_rb, &
+     & 2.54575e+00_rb, 2.57440e+00_rb, 2.60337e+00_rb, 2.63267e+00_rb, 2.66230e+00_rb, &
+     & 2.69226e+00_rb, 2.72256e+00_rb, 2.75320e+00_rb, 2.78419e+00_rb, 2.81552e+00_rb, &
+     & 2.84721e+00_rb, 2.87925e+00_rb, 2.91166e+00_rb, 2.94443e+00_rb/)
+      kao_mn2o( 7, :, 6) = (/ &
+     & 1.99607e+00_rb, 2.01725e+00_rb, 2.03865e+00_rb, 2.06028e+00_rb, 2.08214e+00_rb, &
+     & 2.10423e+00_rb, 2.12655e+00_rb, 2.14912e+00_rb, 2.17192e+00_rb, 2.19496e+00_rb, &
+     & 2.21825e+00_rb, 2.24179e+00_rb, 2.26557e+00_rb, 2.28961e+00_rb, 2.31390e+00_rb, &
+     & 2.33845e+00_rb, 2.36326e+00_rb, 2.38834e+00_rb, 2.41368e+00_rb/)
+      kao_mn2o( 8, :, 6) = (/ &
+     & 1.94150e+00_rb, 1.96398e+00_rb, 1.98671e+00_rb, 2.00971e+00_rb, 2.03298e+00_rb, &
+     & 2.05651e+00_rb, 2.08032e+00_rb, 2.10440e+00_rb, 2.12876e+00_rb, 2.15341e+00_rb, &
+     & 2.17834e+00_rb, 2.20355e+00_rb, 2.22906e+00_rb, 2.25487e+00_rb, 2.28097e+00_rb, &
+     & 2.30738e+00_rb, 2.33409e+00_rb, 2.36111e+00_rb, 2.38844e+00_rb/)
+      kao_mn2o( 9, :, 6) = (/ &
+     & 2.47259e+00_rb, 2.48950e+00_rb, 2.50653e+00_rb, 2.52367e+00_rb, 2.54093e+00_rb, &
+     & 2.55831e+00_rb, 2.57581e+00_rb, 2.59343e+00_rb, 2.61117e+00_rb, 2.62903e+00_rb, &
+     & 2.64701e+00_rb, 2.66511e+00_rb, 2.68334e+00_rb, 2.70169e+00_rb, 2.72017e+00_rb, &
+     & 2.73878e+00_rb, 2.75751e+00_rb, 2.77637e+00_rb, 2.79536e+00_rb/)
+      kao_mn2o( 1, :, 7) = (/ &
+     & 1.23417e+01_rb, 1.22618e+01_rb, 1.21823e+01_rb, 1.21034e+01_rb, 1.20250e+01_rb, &
+     & 1.19471e+01_rb, 1.18697e+01_rb, 1.17928e+01_rb, 1.17164e+01_rb, 1.16405e+01_rb, &
+     & 1.15651e+01_rb, 1.14901e+01_rb, 1.14157e+01_rb, 1.13417e+01_rb, 1.12683e+01_rb, &
+     & 1.11952e+01_rb, 1.11227e+01_rb, 1.10507e+01_rb, 1.09791e+01_rb/)
+      kao_mn2o( 2, :, 7) = (/ &
+     & 9.30957e+00_rb, 9.32775e+00_rb, 9.34597e+00_rb, 9.36421e+00_rb, 9.38250e+00_rb, &
+     & 9.40082e+00_rb, 9.41918e+00_rb, 9.43757e+00_rb, 9.45600e+00_rb, 9.47446e+00_rb, &
+     & 9.49296e+00_rb, 9.51150e+00_rb, 9.53007e+00_rb, 9.54868e+00_rb, 9.56732e+00_rb, &
+     & 9.58601e+00_rb, 9.60472e+00_rb, 9.62348e+00_rb, 9.64227e+00_rb/)
+      kao_mn2o( 3, :, 7) = (/ &
+     & 4.15867e+00_rb, 4.19254e+00_rb, 4.22668e+00_rb, 4.26110e+00_rb, 4.29581e+00_rb, &
+     & 4.33079e+00_rb, 4.36606e+00_rb, 4.40162e+00_rb, 4.43747e+00_rb, 4.47360e+00_rb, &
+     & 4.51004e+00_rb, 4.54677e+00_rb, 4.58380e+00_rb, 4.62113e+00_rb, 4.65876e+00_rb, &
+     & 4.69670e+00_rb, 4.73495e+00_rb, 4.77351e+00_rb, 4.81239e+00_rb/)
+      kao_mn2o( 4, :, 7) = (/ &
+     & 3.55634e+00_rb, 3.59382e+00_rb, 3.63169e+00_rb, 3.66996e+00_rb, 3.70863e+00_rb, &
+     & 3.74771e+00_rb, 3.78720e+00_rb, 3.82711e+00_rb, 3.86744e+00_rb, 3.90820e+00_rb, &
+     & 3.94938e+00_rb, 3.99100e+00_rb, 4.03305e+00_rb, 4.07555e+00_rb, 4.11850e+00_rb, &
+     & 4.16190e+00_rb, 4.20576e+00_rb, 4.25008e+00_rb, 4.29486e+00_rb/)
+      kao_mn2o( 5, :, 7) = (/ &
+     & 3.09468e+00_rb, 3.12655e+00_rb, 3.15876e+00_rb, 3.19129e+00_rb, 3.22416e+00_rb, &
+     & 3.25737e+00_rb, 3.29092e+00_rb, 3.32482e+00_rb, 3.35907e+00_rb, 3.39366e+00_rb, &
+     & 3.42862e+00_rb, 3.46393e+00_rb, 3.49961e+00_rb, 3.53566e+00_rb, 3.57208e+00_rb, &
+     & 3.60887e+00_rb, 3.64604e+00_rb, 3.68360e+00_rb, 3.72154e+00_rb/)
+      kao_mn2o( 6, :, 7) = (/ &
+     & 2.75473e+00_rb, 2.78356e+00_rb, 2.81268e+00_rb, 2.84211e+00_rb, 2.87185e+00_rb, &
+     & 2.90190e+00_rb, 2.93227e+00_rb, 2.96295e+00_rb, 2.99395e+00_rb, 3.02528e+00_rb, &
+     & 3.05694e+00_rb, 3.08892e+00_rb, 3.12125e+00_rb, 3.15391e+00_rb, 3.18691e+00_rb, &
+     & 3.22025e+00_rb, 3.25395e+00_rb, 3.28800e+00_rb, 3.32240e+00_rb/)
+      kao_mn2o( 7, :, 7) = (/ &
+     & 2.68587e+00_rb, 2.71431e+00_rb, 2.74306e+00_rb, 2.77211e+00_rb, 2.80146e+00_rb, &
+     & 2.83113e+00_rb, 2.86111e+00_rb, 2.89141e+00_rb, 2.92203e+00_rb, 2.95298e+00_rb, &
+     & 2.98425e+00_rb, 3.01585e+00_rb, 3.04779e+00_rb, 3.08006e+00_rb, 3.11268e+00_rb, &
+     & 3.14564e+00_rb, 3.17896e+00_rb, 3.21262e+00_rb, 3.24664e+00_rb/)
+      kao_mn2o( 8, :, 7) = (/ &
+     & 2.54778e+00_rb, 2.57461e+00_rb, 2.60173e+00_rb, 2.62914e+00_rb, 2.65683e+00_rb, &
+     & 2.68482e+00_rb, 2.71310e+00_rb, 2.74168e+00_rb, 2.77056e+00_rb, 2.79974e+00_rb, &
+     & 2.82923e+00_rb, 2.85903e+00_rb, 2.88915e+00_rb, 2.91958e+00_rb, 2.95033e+00_rb, &
+     & 2.98141e+00_rb, 3.01282e+00_rb, 3.04455e+00_rb, 3.07662e+00_rb/)
+      kao_mn2o( 9, :, 7) = (/ &
+     & 2.78137e+00_rb, 2.80957e+00_rb, 2.83805e+00_rb, 2.86682e+00_rb, 2.89589e+00_rb, &
+     & 2.92525e+00_rb, 2.95491e+00_rb, 2.98486e+00_rb, 3.01512e+00_rb, 3.04569e+00_rb, &
+     & 3.07657e+00_rb, 3.10776e+00_rb, 3.13927e+00_rb, 3.17110e+00_rb, 3.20324e+00_rb, &
+     & 3.23572e+00_rb, 3.26852e+00_rb, 3.30166e+00_rb, 3.33513e+00_rb/)
+      kao_mn2o( 1, :, 8) = (/ &
+     & 2.28384e+01_rb, 2.27450e+01_rb, 2.26519e+01_rb, 2.25593e+01_rb, 2.24670e+01_rb, &
+     & 2.23751e+01_rb, 2.22835e+01_rb, 2.21924e+01_rb, 2.21016e+01_rb, 2.20112e+01_rb, &
+     & 2.19211e+01_rb, 2.18314e+01_rb, 2.17421e+01_rb, 2.16532e+01_rb, 2.15646e+01_rb, &
+     & 2.14764e+01_rb, 2.13885e+01_rb, 2.13010e+01_rb, 2.12139e+01_rb/)
+      kao_mn2o( 2, :, 8) = (/ &
+     & 4.48608e+00_rb, 4.52259e+00_rb, 4.55939e+00_rb, 4.59649e+00_rb, 4.63389e+00_rb, &
+     & 4.67160e+00_rb, 4.70961e+00_rb, 4.74793e+00_rb, 4.78656e+00_rb, 4.82551e+00_rb, &
+     & 4.86478e+00_rb, 4.90436e+00_rb, 4.94427e+00_rb, 4.98450e+00_rb, 5.02506e+00_rb, &
+     & 5.06595e+00_rb, 5.10717e+00_rb, 5.14873e+00_rb, 5.19062e+00_rb/)
+      kao_mn2o( 3, :, 8) = (/ &
+     & 3.69928e+00_rb, 3.72584e+00_rb, 3.75259e+00_rb, 3.77953e+00_rb, 3.80666e+00_rb, &
+     & 3.83399e+00_rb, 3.86152e+00_rb, 3.88924e+00_rb, 3.91717e+00_rb, 3.94529e+00_rb, &
+     & 3.97361e+00_rb, 4.00214e+00_rb, 4.03088e+00_rb, 4.05982e+00_rb, 4.08896e+00_rb, &
+     & 4.11832e+00_rb, 4.14789e+00_rb, 4.17767e+00_rb, 4.20766e+00_rb/)
+      kao_mn2o( 4, :, 8) = (/ &
+     & 3.17856e+00_rb, 3.19596e+00_rb, 3.21345e+00_rb, 3.23104e+00_rb, 3.24872e+00_rb, &
+     & 3.26650e+00_rb, 3.28437e+00_rb, 3.30235e+00_rb, 3.32042e+00_rb, 3.33859e+00_rb, &
+     & 3.35686e+00_rb, 3.37523e+00_rb, 3.39370e+00_rb, 3.41227e+00_rb, 3.43095e+00_rb, &
+     & 3.44972e+00_rb, 3.46860e+00_rb, 3.48758e+00_rb, 3.50667e+00_rb/)
+      kao_mn2o( 5, :, 8) = (/ &
+     & 3.16549e+00_rb, 3.18288e+00_rb, 3.20037e+00_rb, 3.21795e+00_rb, 3.23563e+00_rb, &
+     & 3.25340e+00_rb, 3.27128e+00_rb, 3.28925e+00_rb, 3.30732e+00_rb, 3.32549e+00_rb, &
+     & 3.34376e+00_rb, 3.36213e+00_rb, 3.38060e+00_rb, 3.39917e+00_rb, 3.41785e+00_rb, &
+     & 3.43662e+00_rb, 3.45551e+00_rb, 3.47449e+00_rb, 3.49358e+00_rb/)
+      kao_mn2o( 6, :, 8) = (/ &
+     & 3.16612e+00_rb, 3.18355e+00_rb, 3.20108e+00_rb, 3.21870e+00_rb, 3.23643e+00_rb, &
+     & 3.25425e+00_rb, 3.27217e+00_rb, 3.29018e+00_rb, 3.30830e+00_rb, 3.32652e+00_rb, &
+     & 3.34483e+00_rb, 3.36325e+00_rb, 3.38177e+00_rb, 3.40039e+00_rb, 3.41911e+00_rb, &
+     & 3.43794e+00_rb, 3.45687e+00_rb, 3.47591e+00_rb, 3.49505e+00_rb/)
+      kao_mn2o( 7, :, 8) = (/ &
+     & 3.19644e+00_rb, 3.21419e+00_rb, 3.23203e+00_rb, 3.24996e+00_rb, 3.26800e+00_rb, &
+     & 3.28614e+00_rb, 3.30438e+00_rb, 3.32272e+00_rb, 3.34116e+00_rb, 3.35970e+00_rb, &
+     & 3.37835e+00_rb, 3.39710e+00_rb, 3.41596e+00_rb, 3.43492e+00_rb, 3.45398e+00_rb, &
+     & 3.47315e+00_rb, 3.49243e+00_rb, 3.51181e+00_rb, 3.53130e+00_rb/)
+      kao_mn2o( 8, :, 8) = (/ &
+     & 3.35759e+00_rb, 3.37775e+00_rb, 3.39804e+00_rb, 3.41845e+00_rb, 3.43899e+00_rb, &
+     & 3.45964e+00_rb, 3.48042e+00_rb, 3.50133e+00_rb, 3.52236e+00_rb, 3.54351e+00_rb, &
+     & 3.56480e+00_rb, 3.58621e+00_rb, 3.60775e+00_rb, 3.62942e+00_rb, 3.65122e+00_rb, &
+     & 3.67315e+00_rb, 3.69521e+00_rb, 3.71741e+00_rb, 3.73974e+00_rb/)
+      kao_mn2o( 9, :, 8) = (/ &
+     & 3.17378e+00_rb, 3.19135e+00_rb, 3.20901e+00_rb, 3.22677e+00_rb, 3.24462e+00_rb, &
+     & 3.26258e+00_rb, 3.28063e+00_rb, 3.29879e+00_rb, 3.31704e+00_rb, 3.33540e+00_rb, &
+     & 3.35386e+00_rb, 3.37242e+00_rb, 3.39108e+00_rb, 3.40984e+00_rb, 3.42871e+00_rb, &
+     & 3.44769e+00_rb, 3.46677e+00_rb, 3.48595e+00_rb, 3.50524e+00_rb/)
+      kao_mn2o( 1, :, 9) = (/ &
+     & 2.09106e+01_rb, 2.08779e+01_rb, 2.08452e+01_rb, 2.08126e+01_rb, 2.07800e+01_rb, &
+     & 2.07475e+01_rb, 2.07150e+01_rb, 2.06826e+01_rb, 2.06502e+01_rb, 2.06179e+01_rb, &
+     & 2.05856e+01_rb, 2.05534e+01_rb, 2.05213e+01_rb, 2.04891e+01_rb, 2.04571e+01_rb, &
+     & 2.04251e+01_rb, 2.03931e+01_rb, 2.03612e+01_rb, 2.03293e+01_rb/)
+      kao_mn2o( 2, :, 9) = (/ &
+     & 2.60494e+00_rb, 2.62757e+00_rb, 2.65040e+00_rb, 2.67343e+00_rb, 2.69665e+00_rb, &
+     & 2.72008e+00_rb, 2.74372e+00_rb, 2.76756e+00_rb, 2.79160e+00_rb, 2.81586e+00_rb, &
+     & 2.84032e+00_rb, 2.86500e+00_rb, 2.88989e+00_rb, 2.91500e+00_rb, 2.94033e+00_rb, &
+     & 2.96588e+00_rb, 2.99164e+00_rb, 3.01764e+00_rb, 3.04386e+00_rb/)
+      kao_mn2o( 3, :, 9) = (/ &
+     & 2.42238e+00_rb, 2.44514e+00_rb, 2.46811e+00_rb, 2.49130e+00_rb, 2.51471e+00_rb, &
+     & 2.53834e+00_rb, 2.56219e+00_rb, 2.58626e+00_rb, 2.61056e+00_rb, 2.63509e+00_rb, &
+     & 2.65985e+00_rb, 2.68484e+00_rb, 2.71007e+00_rb, 2.73554e+00_rb, 2.76124e+00_rb, &
+     & 2.78718e+00_rb, 2.81337e+00_rb, 2.83981e+00_rb, 2.86649e+00_rb/)
+      kao_mn2o( 4, :, 9) = (/ &
+     & 2.33681e+00_rb, 2.35961e+00_rb, 2.38263e+00_rb, 2.40588e+00_rb, 2.42935e+00_rb, &
+     & 2.45305e+00_rb, 2.47699e+00_rb, 2.50115e+00_rb, 2.52556e+00_rb, 2.55020e+00_rb, &
+     & 2.57508e+00_rb, 2.60021e+00_rb, 2.62558e+00_rb, 2.65119e+00_rb, 2.67706e+00_rb, &
+     & 2.70318e+00_rb, 2.72955e+00_rb, 2.75619e+00_rb, 2.78308e+00_rb/)
+      kao_mn2o( 5, :, 9) = (/ &
+     & 2.26420e+00_rb, 2.28696e+00_rb, 2.30996e+00_rb, 2.33319e+00_rb, 2.35665e+00_rb, &
+     & 2.38035e+00_rb, 2.40429e+00_rb, 2.42846e+00_rb, 2.45288e+00_rb, 2.47755e+00_rb, &
+     & 2.50246e+00_rb, 2.52763e+00_rb, 2.55304e+00_rb, 2.57871e+00_rb, 2.60465e+00_rb, &
+     & 2.63084e+00_rb, 2.65729e+00_rb, 2.68401e+00_rb, 2.71100e+00_rb/)
+      kao_mn2o( 6, :, 9) = (/ &
+     & 2.19628e+00_rb, 2.21902e+00_rb, 2.24199e+00_rb, 2.26520e+00_rb, 2.28865e+00_rb, &
+     & 2.31234e+00_rb, 2.33628e+00_rb, 2.36047e+00_rb, 2.38491e+00_rb, 2.40959e+00_rb, &
+     & 2.43454e+00_rb, 2.45974e+00_rb, 2.48521e+00_rb, 2.51094e+00_rb, 2.53693e+00_rb, &
+     & 2.56319e+00_rb, 2.58973e+00_rb, 2.61654e+00_rb, 2.64363e+00_rb/)
+      kao_mn2o( 7, :, 9) = (/ &
+     & 2.07829e+00_rb, 2.10090e+00_rb, 2.12375e+00_rb, 2.14685e+00_rb, 2.17021e+00_rb, &
+     & 2.19381e+00_rb, 2.21767e+00_rb, 2.24180e+00_rb, 2.26618e+00_rb, 2.29083e+00_rb, &
+     & 2.31575e+00_rb, 2.34094e+00_rb, 2.36640e+00_rb, 2.39214e+00_rb, 2.41816e+00_rb, &
+     & 2.44446e+00_rb, 2.47105e+00_rb, 2.49793e+00_rb, 2.52510e+00_rb/)
+      kao_mn2o( 8, :, 9) = (/ &
+     & 1.68230e+00_rb, 1.70305e+00_rb, 1.72404e+00_rb, 1.74530e+00_rb, 1.76681e+00_rb, &
+     & 1.78860e+00_rb, 1.81065e+00_rb, 1.83297e+00_rb, 1.85557e+00_rb, 1.87845e+00_rb, &
+     & 1.90161e+00_rb, 1.92505e+00_rb, 1.94878e+00_rb, 1.97281e+00_rb, 1.99713e+00_rb, &
+     & 2.02176e+00_rb, 2.04668e+00_rb, 2.07191e+00_rb, 2.09746e+00_rb/)
+      kao_mn2o( 9, :, 9) = (/ &
+     & 2.23224e+00_rb, 2.25486e+00_rb, 2.27771e+00_rb, 2.30079e+00_rb, 2.32411e+00_rb, &
+     & 2.34766e+00_rb, 2.37145e+00_rb, 2.39548e+00_rb, 2.41975e+00_rb, 2.44427e+00_rb, &
+     & 2.46904e+00_rb, 2.49406e+00_rb, 2.51933e+00_rb, 2.54486e+00_rb, 2.57065e+00_rb, &
+     & 2.59670e+00_rb, 2.62301e+00_rb, 2.64959e+00_rb, 2.67644e+00_rb/)
+      kao_mn2o( 1, :,10) = (/ &
+     & 1.30711e+01_rb, 1.31853e+01_rb, 1.33004e+01_rb, 1.34166e+01_rb, 1.35339e+01_rb, &
+     & 1.36521e+01_rb, 1.37714e+01_rb, 1.38917e+01_rb, 1.40130e+01_rb, 1.41355e+01_rb, &
+     & 1.42590e+01_rb, 1.43835e+01_rb, 1.45092e+01_rb, 1.46360e+01_rb, 1.47638e+01_rb, &
+     & 1.48928e+01_rb, 1.50229e+01_rb, 1.51542e+01_rb, 1.52866e+01_rb/)
+      kao_mn2o( 2, :,10) = (/ &
+     & 2.71206e-01_rb, 2.90148e-01_rb, 3.10413e-01_rb, 3.32093e-01_rb, 3.55287e-01_rb, &
+     & 3.80102e-01_rb, 4.06649e-01_rb, 4.35051e-01_rb, 4.65436e-01_rb, 4.97943e-01_rb, &
+     & 5.32721e-01_rb, 5.69928e-01_rb, 6.09733e-01_rb, 6.52319e-01_rb, 6.97879e-01_rb, &
+     & 7.46621e-01_rb, 7.98767e-01_rb, 8.54555e-01_rb, 9.14239e-01_rb/)
+      kao_mn2o( 3, :,10) = (/ &
+     & 2.65609e-01_rb, 2.84236e-01_rb, 3.04170e-01_rb, 3.25501e-01_rb, 3.48329e-01_rb, &
+     & 3.72758e-01_rb, 3.98900e-01_rb, 4.26875e-01_rb, 4.56812e-01_rb, 4.88849e-01_rb, &
+     & 5.23132e-01_rb, 5.59820e-01_rb, 5.99080e-01_rb, 6.41095e-01_rb, 6.86055e-01_rb, &
+     & 7.34169e-01_rb, 7.85657e-01_rb, 8.40756e-01_rb, 8.99718e-01_rb/)
+      kao_mn2o( 4, :,10) = (/ &
+     & 2.55277e-01_rb, 2.73370e-01_rb, 2.92745e-01_rb, 3.13494e-01_rb, 3.35714e-01_rb, &
+     & 3.59508e-01_rb, 3.84989e-01_rb, 4.12275e-01_rb, 4.41496e-01_rb, 4.72788e-01_rb, &
+     & 5.06298e-01_rb, 5.42183e-01_rb, 5.80611e-01_rb, 6.21763e-01_rb, 6.65831e-01_rb, &
+     & 7.13023e-01_rb, 7.63560e-01_rb, 8.17678e-01_rb, 8.75633e-01_rb/)
+      kao_mn2o( 5, :,10) = (/ &
+     & 2.41481e-01_rb, 2.58840e-01_rb, 2.77446e-01_rb, 2.97390e-01_rb, 3.18768e-01_rb, &
+     & 3.41682e-01_rb, 3.66244e-01_rb, 3.92571e-01_rb, 4.20791e-01_rb, 4.51039e-01_rb, &
+     & 4.83461e-01_rb, 5.18215e-01_rb, 5.55466e-01_rb, 5.95396e-01_rb, 6.38195e-01_rb, &
+     & 6.84071e-01_rb, 7.33245e-01_rb, 7.85954e-01_rb, 8.42452e-01_rb/)
+      kao_mn2o( 6, :,10) = (/ &
+     & 2.37173e-01_rb, 2.54360e-01_rb, 2.72792e-01_rb, 2.92559e-01_rb, 3.13759e-01_rb, &
+     & 3.36495e-01_rb, 3.60878e-01_rb, 3.87029e-01_rb, 4.15074e-01_rb, 4.45152e-01_rb, &
+     & 4.77409e-01_rb, 5.12004e-01_rb, 5.49105e-01_rb, 5.88895e-01_rb, 6.31569e-01_rb, &
+     & 6.77334e-01_rb, 7.26416e-01_rb, 7.79055e-01_rb, 8.35508e-01_rb/)
+      kao_mn2o( 7, :,10) = (/ &
+     & 2.27414e-01_rb, 2.44231e-01_rb, 2.62292e-01_rb, 2.81689e-01_rb, 3.02520e-01_rb, &
+     & 3.24891e-01_rb, 3.48917e-01_rb, 3.74720e-01_rb, 4.02430e-01_rb, 4.32190e-01_rb, &
+     & 4.64151e-01_rb, 4.98475e-01_rb, 5.35337e-01_rb, 5.74926e-01_rb, 6.17442e-01_rb, &
+     & 6.63102e-01_rb, 7.12138e-01_rb, 7.64801e-01_rb, 8.21358e-01_rb/)
+      kao_mn2o( 8, :,10) = (/ &
+     & 1.77234e-01_rb, 1.92029e-01_rb, 2.08060e-01_rb, 2.25429e-01_rb, 2.44248e-01_rb, &
+     & 2.64638e-01_rb, 2.86730e-01_rb, 3.10667e-01_rb, 3.36601e-01_rb, 3.64701e-01_rb, &
+     & 3.95147e-01_rb, 4.28134e-01_rb, 4.63875e-01_rb, 5.02600e-01_rb, 5.44557e-01_rb, &
+     & 5.90017e-01_rb, 6.39272e-01_rb, 6.92639e-01_rb, 7.50461e-01_rb/)
+      kao_mn2o( 9, :,10) = (/ &
+     & 2.41727e-01_rb, 2.59094e-01_rb, 2.77710e-01_rb, 2.97662e-01_rb, 3.19049e-01_rb, &
+     & 3.41972e-01_rb, 3.66541e-01_rb, 3.92877e-01_rb, 4.21104e-01_rb, 4.51359e-01_rb, &
+     & 4.83788e-01_rb, 5.18547e-01_rb, 5.55804e-01_rb, 5.95737e-01_rb, 6.38539e-01_rb, &
+     & 6.84417e-01_rb, 7.33590e-01_rb, 7.86297e-01_rb, 8.42790e-01_rb/)
+      kao_mn2o( 1, :,11) = (/ &
+     & 6.65287e+00_rb, 6.69137e+00_rb, 6.73008e+00_rb, 6.76903e+00_rb, 6.80820e+00_rb, &
+     & 6.84759e+00_rb, 6.88721e+00_rb, 6.92707e+00_rb, 6.96715e+00_rb, 7.00746e+00_rb, &
+     & 7.04801e+00_rb, 7.08879e+00_rb, 7.12981e+00_rb, 7.17107e+00_rb, 7.21256e+00_rb, &
+     & 7.25430e+00_rb, 7.29628e+00_rb, 7.33850e+00_rb, 7.38096e+00_rb/)
+      kao_mn2o( 2, :,11) = (/ &
+     & 2.06252e-01_rb, 2.27731e-01_rb, 2.51447e-01_rb, 2.77633e-01_rb, 3.06546e-01_rb, &
+     & 3.38470e-01_rb, 3.73719e-01_rb, 4.12638e-01_rb, 4.55611e-01_rb, 5.03058e-01_rb, &
+     & 5.55447e-01_rb, 6.13292e-01_rb, 6.77160e-01_rb, 7.47680e-01_rb, 8.25544e-01_rb, &
+     & 9.11517e-01_rb, 1.00644e+00_rb, 1.11125e+00_rb, 1.22698e+00_rb/)
+      kao_mn2o( 3, :,11) = (/ &
+     & 2.05840e-01_rb, 2.27279e-01_rb, 2.50952e-01_rb, 2.77090e-01_rb, 3.05950e-01_rb, &
+     & 3.37816e-01_rb, 3.73002e-01_rb, 4.11852e-01_rb, 4.54748e-01_rb, 5.02113e-01_rb, &
+     & 5.54411e-01_rb, 6.12155e-01_rb, 6.75915e-01_rb, 7.46315e-01_rb, 8.24047e-01_rb, &
+     & 9.09876e-01_rb, 1.00465e+00_rb, 1.10928e+00_rb, 1.22482e+00_rb/)
+      kao_mn2o( 4, :,11) = (/ &
+     & 2.04702e-01_rb, 2.26031e-01_rb, 2.49582e-01_rb, 2.75587e-01_rb, 3.04301e-01_rb, &
+     & 3.36008e-01_rb, 3.71018e-01_rb, 4.09675e-01_rb, 4.52361e-01_rb, 4.99495e-01_rb, &
+     & 5.51539e-01_rb, 6.09007e-01_rb, 6.72461e-01_rb, 7.42528e-01_rb, 8.19895e-01_rb, &
+     & 9.05323e-01_rb, 9.99653e-01_rb, 1.10381e+00_rb, 1.21882e+00_rb/)
+      kao_mn2o( 5, :,11) = (/ &
+     & 2.03481e-01_rb, 2.24689e-01_rb, 2.48108e-01_rb, 2.73967e-01_rb, 3.02522e-01_rb, &
+     & 3.34053e-01_rb, 3.68871e-01_rb, 4.07317e-01_rb, 4.49771e-01_rb, 4.96649e-01_rb, &
+     & 5.48414e-01_rb, 6.05574e-01_rb, 6.68691e-01_rb, 7.38387e-01_rb, 8.15347e-01_rb, &
+     & 9.00329e-01_rb, 9.94168e-01_rb, 1.09779e+00_rb, 1.21221e+00_rb/)
+      kao_mn2o( 6, :,11) = (/ &
+     & 2.01513e-01_rb, 2.22529e-01_rb, 2.45738e-01_rb, 2.71367e-01_rb, 2.99670e-01_rb, &
+     & 3.30924e-01_rb, 3.65437e-01_rb, 4.03550e-01_rb, 4.45639e-01_rb, 4.92117e-01_rb, &
+     & 5.43442e-01_rb, 6.00120e-01_rb, 6.62710e-01_rb, 7.31827e-01_rb, 8.08153e-01_rb, &
+     & 8.92439e-01_rb, 9.85516e-01_rb, 1.08830e+00_rb, 1.20180e+00_rb/)
+      kao_mn2o( 7, :,11) = (/ &
+     & 1.97136e-01_rb, 2.17723e-01_rb, 2.40459e-01_rb, 2.65570e-01_rb, 2.93304e-01_rb, &
+     & 3.23933e-01_rb, 3.57762e-01_rb, 3.95122e-01_rb, 4.36385e-01_rb, 4.81956e-01_rb, &
+     & 5.32287e-01_rb, 5.87873e-01_rb, 6.49264e-01_rb, 7.17067e-01_rb, 7.91950e-01_rb, &
+     & 8.74653e-01_rb, 9.65992e-01_rb, 1.06687e+00_rb, 1.17828e+00_rb/)
+      kao_mn2o( 8, :,11) = (/ &
+     & 1.79518e-01_rb, 1.98371e-01_rb, 2.19204e-01_rb, 2.42224e-01_rb, 2.67662e-01_rb, &
+     & 2.95772e-01_rb, 3.26833e-01_rb, 3.61157e-01_rb, 3.99085e-01_rb, 4.40996e-01_rb, &
+     & 4.87309e-01_rb, 5.38486e-01_rb, 5.95037e-01_rb, 6.57526e-01_rb, 7.26579e-01_rb, &
+     & 8.02883e-01_rb, 8.87201e-01_rb, 9.80373e-01_rb, 1.08333e+00_rb/)
+      kao_mn2o( 9, :,11) = (/ &
+     & 2.03481e-01_rb, 2.24689e-01_rb, 2.48108e-01_rb, 2.73967e-01_rb, 3.02522e-01_rb, &
+     & 3.34053e-01_rb, 3.68871e-01_rb, 4.07317e-01_rb, 4.49771e-01_rb, 4.96649e-01_rb, &
+     & 5.48414e-01_rb, 6.05574e-01_rb, 6.68691e-01_rb, 7.38387e-01_rb, 8.15347e-01_rb, &
+     & 9.00329e-01_rb, 9.94168e-01_rb, 1.09779e+00_rb, 1.21221e+00_rb/)
+      kao_mn2o( 1, :,12) = (/ &
+     & 5.89636e+00_rb, 5.95081e+00_rb, 6.00576e+00_rb, 6.06121e+00_rb, 6.11718e+00_rb, &
+     & 6.17366e+00_rb, 6.23067e+00_rb, 6.28820e+00_rb, 6.34627e+00_rb, 6.40487e+00_rb, &
+     & 6.46401e+00_rb, 6.52369e+00_rb, 6.58393e+00_rb, 6.64472e+00_rb, 6.70608e+00_rb, &
+     & 6.76800e+00_rb, 6.83050e+00_rb, 6.89357e+00_rb, 6.95722e+00_rb/)
+      kao_mn2o( 2, :,12) = (/ &
+     & 7.18699e-05_rb, 9.48140e-05_rb, 1.25083e-04_rb, 1.65015e-04_rb, 2.17695e-04_rb, &
+     & 2.87193e-04_rb, 3.78877e-04_rb, 4.99831e-04_rb, 6.59400e-04_rb, 8.69909e-04_rb, &
+     & 1.14762e-03_rb, 1.51400e-03_rb, 1.99733e-03_rb, 2.63497e-03_rb, 3.47616e-03_rb, &
+     & 4.58591e-03_rb, 6.04993e-03_rb, 7.98133e-03_rb, 1.05293e-02_rb/)
+      kao_mn2o( 3, :,12) = (/ &
+     & 7.20868e-05_rb, 9.50993e-05_rb, 1.25458e-04_rb, 1.65508e-04_rb, 2.18344e-04_rb, &
+     & 2.88046e-04_rb, 3.80000e-04_rb, 5.01307e-04_rb, 6.61341e-04_rb, 8.72462e-04_rb, &
+     & 1.15098e-03_rb, 1.51841e-03_rb, 2.00313e-03_rb, 2.64260e-03_rb, 3.48620e-03_rb, &
+     & 4.59911e-03_rb, 6.06729e-03_rb, 8.00416e-03_rb, 1.05593e-02_rb/)
+      kao_mn2o( 4, :,12) = (/ &
+     & 7.21734e-05_rb, 9.52161e-05_rb, 1.25616e-04_rb, 1.65721e-04_rb, 2.18630e-04_rb, &
+     & 2.88432e-04_rb, 3.80519e-04_rb, 5.02007e-04_rb, 6.62282e-04_rb, 8.73727e-04_rb, &
+     & 1.15268e-03_rb, 1.52070e-03_rb, 2.00621e-03_rb, 2.64673e-03_rb, 3.49174e-03_rb, &
+     & 4.60655e-03_rb, 6.07727e-03_rb, 8.01755e-03_rb, 1.05773e-02_rb/)
+      kao_mn2o( 5, :,12) = (/ &
+     & 7.22599e-05_rb, 9.53329e-05_rb, 1.25773e-04_rb, 1.65933e-04_rb, 2.18916e-04_rb, &
+     & 2.88818e-04_rb, 3.81038e-04_rb, 5.02706e-04_rb, 6.63223e-04_rb, 8.74992e-04_rb, &
+     & 1.15438e-03_rb, 1.52298e-03_rb, 2.00928e-03_rb, 2.65085e-03_rb, 3.49728e-03_rb, &
+     & 4.61398e-03_rb, 6.08725e-03_rb, 8.03094e-03_rb, 1.05952e-02_rb/)
+      kao_mn2o( 6, :,12) = (/ &
+     & 7.29962e-05_rb, 9.63091e-05_rb, 1.27067e-04_rb, 1.67649e-04_rb, 2.21191e-04_rb, &
+     & 2.91833e-04_rb, 3.85036e-04_rb, 5.08005e-04_rb, 6.70247e-04_rb, 8.84304e-04_rb, &
+     & 1.16672e-03_rb, 1.53934e-03_rb, 2.03096e-03_rb, 2.67959e-03_rb, 3.53537e-03_rb, &
+     & 4.66447e-03_rb, 6.15417e-03_rb, 8.11962e-03_rb, 1.07128e-02_rb/)
+      kao_mn2o( 7, :,12) = (/ &
+     & 7.47398e-05_rb, 9.86139e-05_rb, 1.30114e-04_rb, 1.71677e-04_rb, 2.26516e-04_rb, &
+     & 2.98872e-04_rb, 3.94340e-04_rb, 5.20305e-04_rb, 6.86506e-04_rb, 9.05797e-04_rb, &
+     & 1.19514e-03_rb, 1.57690e-03_rb, 2.08061e-03_rb, 2.74522e-03_rb, 3.62213e-03_rb, &
+     & 4.77915e-03_rb, 6.30576e-03_rb, 8.32001e-03_rb, 1.09777e-02_rb/)
+      kao_mn2o( 8, :,12) = (/ &
+     & 7.57487e-05_rb, 9.99802e-05_rb, 1.31963e-04_rb, 1.74177e-04_rb, 2.29896e-04_rb, &
+     & 3.03438e-04_rb, 4.00506e-04_rb, 5.28625e-04_rb, 6.97729e-04_rb, 9.20927e-04_rb, &
+     & 1.21553e-03_rb, 1.60437e-03_rb, 2.11759e-03_rb, 2.79499e-03_rb, 3.68909e-03_rb, &
+     & 4.86921e-03_rb, 6.42684e-03_rb, 8.48274e-03_rb, 1.11963e-02_rb/)
+      kao_mn2o( 9, :,12) = (/ &
+     & 7.22467e-05_rb, 9.53177e-05_rb, 1.25756e-04_rb, 1.65915e-04_rb, 2.18898e-04_rb, &
+     & 2.88800e-04_rb, 3.81024e-04_rb, 5.02700e-04_rb, 6.63231e-04_rb, 8.75024e-04_rb, &
+     & 1.15445e-03_rb, 1.52311e-03_rb, 2.00950e-03_rb, 2.65121e-03_rb, 3.49784e-03_rb, &
+     & 4.61483e-03_rb, 6.08852e-03_rb, 8.03280e-03_rb, 1.05980e-02_rb/)
+      kao_mn2o( 1, :,13) = (/ &
+     & 1.14265e+01_rb, 1.16380e+01_rb, 1.18534e+01_rb, 1.20728e+01_rb, 1.22962e+01_rb, &
+     & 1.25238e+01_rb, 1.27556e+01_rb, 1.29917e+01_rb, 1.32322e+01_rb, 1.34771e+01_rb, &
+     & 1.37265e+01_rb, 1.39806e+01_rb, 1.42394e+01_rb, 1.45029e+01_rb, 1.47714e+01_rb, &
+     & 1.50448e+01_rb, 1.53232e+01_rb, 1.56068e+01_rb, 1.58957e+01_rb/)
+      kao_mn2o( 2, :,13) = (/ &
+     & 7.97796e-05_rb, 1.05659e-04_rb, 1.39932e-04_rb, 1.85324e-04_rb, 2.45439e-04_rb, &
+     & 3.25054e-04_rb, 4.30496e-04_rb, 5.70140e-04_rb, 7.55082e-04_rb, 1.00002e-03_rb, &
+     & 1.32440e-03_rb, 1.75401e-03_rb, 2.32298e-03_rb, 3.07651e-03_rb, 4.07447e-03_rb, &
+     & 5.39614e-03_rb, 7.14655e-03_rb, 9.46475e-03_rb, 1.25349e-02_rb/)
+      kao_mn2o( 3, :,13) = (/ &
+     & 7.95035e-05_rb, 1.05293e-04_rb, 1.39449e-04_rb, 1.84684e-04_rb, 2.44592e-04_rb, &
+     & 3.23934e-04_rb, 4.29013e-04_rb, 5.68178e-04_rb, 7.52486e-04_rb, 9.96580e-04_rb, &
+     & 1.31985e-03_rb, 1.74800e-03_rb, 2.31502e-03_rb, 3.06597e-03_rb, 4.06052e-03_rb, &
+     & 5.37770e-03_rb, 7.12214e-03_rb, 9.43244e-03_rb, 1.24922e-02_rb/)
+      kao_mn2o( 4, :,13) = (/ &
+     & 7.92339e-05_rb, 1.04938e-04_rb, 1.38980e-04_rb, 1.84065e-04_rb, 2.43776e-04_rb, &
+     & 3.22857e-04_rb, 4.27593e-04_rb, 5.66305e-04_rb, 7.50016e-04_rb, 9.93322e-04_rb, &
+     & 1.31556e-03_rb, 1.74233e-03_rb, 2.30754e-03_rb, 3.05612e-03_rb, 4.04752e-03_rb, &
+     & 5.36055e-03_rb, 7.09953e-03_rb, 9.40262e-03_rb, 1.24528e-02_rb/)
+      kao_mn2o( 5, :,13) = (/ &
+     & 7.90000e-05_rb, 1.04627e-04_rb, 1.38566e-04_rb, 1.83516e-04_rb, 2.43046e-04_rb, &
+     & 3.21887e-04_rb, 4.26303e-04_rb, 5.64591e-04_rb, 7.47738e-04_rb, 9.90295e-04_rb, &
+     & 1.31154e-03_rb, 1.73698e-03_rb, 2.30044e-03_rb, 3.04667e-03_rb, 4.03498e-03_rb, &
+     & 5.34388e-03_rb, 7.07737e-03_rb, 9.37318e-03_rb, 1.24137e-02_rb/)
+      kao_mn2o( 6, :,13) = (/ &
+     & 7.76004e-05_rb, 1.02776e-04_rb, 1.36118e-04_rb, 1.80278e-04_rb, 2.38764e-04_rb, &
+     & 3.16224e-04_rb, 4.18814e-04_rb, 5.54686e-04_rb, 7.34638e-04_rb, 9.72970e-04_rb, &
+     & 1.28862e-03_rb, 1.70668e-03_rb, 2.26036e-03_rb, 2.99367e-03_rb, 3.96488e-03_rb, &
+     & 5.25118e-03_rb, 6.95477e-03_rb, 9.21105e-03_rb, 1.21993e-02_rb/)
+      kao_mn2o( 7, :,13) = (/ &
+     & 7.52813e-05_rb, 9.97094e-05_rb, 1.32064e-04_rb, 1.74918e-04_rb, 2.31677e-04_rb, &
+     & 3.06854e-04_rb, 4.06426e-04_rb, 5.38308e-04_rb, 7.12984e-04_rb, 9.44341e-04_rb, &
+     & 1.25077e-03_rb, 1.65664e-03_rb, 2.19420e-03_rb, 2.90620e-03_rb, 3.84923e-03_rb, &
+     & 5.09828e-03_rb, 6.75263e-03_rb, 8.94379e-03_rb, 1.18460e-02_rb/)
+      kao_mn2o( 8, :,13) = (/ &
+     & 6.87436e-05_rb, 9.10605e-05_rb, 1.20622e-04_rb, 1.59781e-04_rb, 2.11653e-04_rb, &
+     & 2.80364e-04_rb, 3.71381e-04_rb, 4.91946e-04_rb, 6.51651e-04_rb, 8.63203e-04_rb, &
+     & 1.14343e-03_rb, 1.51464e-03_rb, 2.00635e-03_rb, 2.65769e-03_rb, 3.52048e-03_rb, &
+     & 4.66337e-03_rb, 6.17729e-03_rb, 8.18269e-03_rb, 1.08391e-02_rb/)
+      kao_mn2o( 9, :,13) = (/ &
+     & 7.90357e-05_rb, 1.04671e-04_rb, 1.38622e-04_rb, 1.83585e-04_rb, 2.43132e-04_rb, &
+     & 3.21994e-04_rb, 4.26434e-04_rb, 5.64750e-04_rb, 7.47931e-04_rb, 9.90526e-04_rb, &
+     & 1.31181e-03_rb, 1.73730e-03_rb, 2.30081e-03_rb, 3.04709e-03_rb, 4.03543e-03_rb, &
+     & 5.34435e-03_rb, 7.07782e-03_rb, 9.37355e-03_rb, 1.24139e-02_rb/)
+      kao_mn2o( 1, :,14) = (/ &
+     & 1.61373e+01_rb, 1.64784e+01_rb, 1.68266e+01_rb, 1.71822e+01_rb, 1.75454e+01_rb, &
+     & 1.79162e+01_rb, 1.82948e+01_rb, 1.86814e+01_rb, 1.90762e+01_rb, 1.94794e+01_rb, &
+     & 1.98911e+01_rb, 2.03114e+01_rb, 2.07407e+01_rb, 2.11790e+01_rb, 2.16266e+01_rb, &
+     & 2.20836e+01_rb, 2.25504e+01_rb, 2.30269e+01_rb, 2.35136e+01_rb/)
+      kao_mn2o( 2, :,14) = (/ &
+     & 6.92866e-10_rb, 9.24655e-10_rb, 1.23398e-09_rb, 1.64680e-09_rb, 2.19771e-09_rb, &
+     & 2.93292e-09_rb, 3.91409e-09_rb, 5.22349e-09_rb, 6.97093e-09_rb, 9.30295e-09_rb, &
+     & 1.24151e-08_rb, 1.65684e-08_rb, 2.21111e-08_rb, 2.95081e-08_rb, 3.93796e-08_rb, &
+     & 5.25535e-08_rb, 7.01346e-08_rb, 9.35970e-08_rb, 1.24908e-07_rb/)
+      kao_mn2o( 3, :,14) = (/ &
+     & 6.94564e-10_rb, 9.26928e-10_rb, 1.23703e-09_rb, 1.65088e-09_rb, 2.20317e-09_rb, &
+     & 2.94024e-09_rb, 3.92389e-09_rb, 5.23661e-09_rb, 6.98851e-09_rb, 9.32650e-09_rb, &
+     & 1.24467e-08_rb, 1.66107e-08_rb, 2.21677e-08_rb, 2.95839e-08_rb, 3.94811e-08_rb, &
+     & 5.26894e-08_rb, 7.03165e-08_rb, 9.38407e-08_rb, 1.25235e-07_rb/)
+      kao_mn2o( 4, :,14) = (/ &
+     & 6.98644e-10_rb, 9.32310e-10_rb, 1.24413e-09_rb, 1.66023e-09_rb, 2.21551e-09_rb, &
+     & 2.95649e-09_rb, 3.94531e-09_rb, 5.26484e-09_rb, 7.02570e-09_rb, 9.37548e-09_rb, &
+     & 1.25112e-08_rb, 1.66956e-08_rb, 2.22795e-08_rb, 2.97311e-08_rb, 3.96748e-08_rb, &
+     & 5.29443e-08_rb, 7.06518e-08_rb, 9.42817e-08_rb, 1.25815e-07_rb/)
+      kao_mn2o( 5, :,14) = (/ &
+     & 7.03261e-10_rb, 9.38472e-10_rb, 1.25235e-09_rb, 1.67121e-09_rb, 2.23016e-09_rb, &
+     & 2.97605e-09_rb, 3.97141e-09_rb, 5.29968e-09_rb, 7.07220e-09_rb, 9.43754e-09_rb, &
+     & 1.25940e-08_rb, 1.68062e-08_rb, 2.24271e-08_rb, 2.99280e-08_rb, 3.99376e-08_rb, &
+     & 5.32951e-08_rb, 7.11200e-08_rb, 9.49066e-08_rb, 1.26649e-07_rb/)
+      kao_mn2o( 6, :,14) = (/ &
+     & 7.12478e-10_rb, 9.50674e-10_rb, 1.26850e-09_rb, 1.69259e-09_rb, 2.25845e-09_rb, &
+     & 3.01350e-09_rb, 4.02096e-09_rb, 5.36525e-09_rb, 7.15896e-09_rb, 9.55233e-09_rb, &
+     & 1.27459e-08_rb, 1.70071e-08_rb, 2.26928e-08_rb, 3.02795e-08_rb, 4.04025e-08_rb, &
+     & 5.39099e-08_rb, 7.19330e-08_rb, 9.59815e-08_rb, 1.28070e-07_rb/)
+      kao_mn2o( 7, :,14) = (/ &
+     & 7.28994e-10_rb, 9.72644e-10_rb, 1.29773e-09_rb, 1.73147e-09_rb, 2.31017e-09_rb, &
+     & 3.08230e-09_rb, 4.11249e-09_rb, 5.48700e-09_rb, 7.32092e-09_rb, 9.76777e-09_rb, &
+     & 1.30324e-08_rb, 1.73883e-08_rb, 2.31999e-08_rb, 3.09540e-08_rb, 4.12996e-08_rb, &
+     & 5.51032e-08_rb, 7.35203e-08_rb, 9.80928e-08_rb, 1.30878e-07_rb/)
+      kao_mn2o( 8, :,14) = (/ &
+     & 7.87604e-10_rb, 1.05043e-09_rb, 1.40097e-09_rb, 1.86848e-09_rb, 2.49201e-09_rb, &
+     & 3.32360e-09_rb, 4.43271e-09_rb, 5.91194e-09_rb, 7.88479e-09_rb, 1.05160e-08_rb, &
+     & 1.40253e-08_rb, 1.87056e-08_rb, 2.49478e-08_rb, 3.32730e-08_rb, 4.43764e-08_rb, &
+     & 5.91851e-08_rb, 7.89356e-08_rb, 1.05277e-07_rb, 1.40408e-07_rb/)
+      kao_mn2o( 9, :,14) = (/ &
+     & 7.03261e-10_rb, 9.38472e-10_rb, 1.25235e-09_rb, 1.67121e-09_rb, 2.23016e-09_rb, &
+     & 2.97605e-09_rb, 3.97141e-09_rb, 5.29968e-09_rb, 7.07220e-09_rb, 9.43754e-09_rb, &
+     & 1.25940e-08_rb, 1.68062e-08_rb, 2.24271e-08_rb, 2.99280e-08_rb, 3.99376e-08_rb, &
+     & 5.32951e-08_rb, 7.11200e-08_rb, 9.49066e-08_rb, 1.26649e-07_rb/)
+      kao_mn2o( 1, :,15) = (/ &
+     & 2.14029e+01_rb, 2.16782e+01_rb, 2.19571e+01_rb, 2.22396e+01_rb, 2.25257e+01_rb, &
+     & 2.28155e+01_rb, 2.31090e+01_rb, 2.34063e+01_rb, 2.37074e+01_rb, 2.40124e+01_rb, &
+     & 2.43213e+01_rb, 2.46342e+01_rb, 2.49511e+01_rb, 2.52721e+01_rb, 2.55972e+01_rb, &
+     & 2.59265e+01_rb, 2.62600e+01_rb, 2.65979e+01_rb, 2.69400e+01_rb/)
+      kao_mn2o( 2, :,15) = (/ &
+     & 5.68659e-10_rb, 7.55629e-10_rb, 1.00407e-09_rb, 1.33421e-09_rb, 1.77288e-09_rb, &
+     & 2.35579e-09_rb, 3.13036e-09_rb, 4.15960e-09_rb, 5.52724e-09_rb, 7.34455e-09_rb, &
+     & 9.75939e-09_rb, 1.29682e-08_rb, 1.72320e-08_rb, 2.28978e-08_rb, 3.04264e-08_rb, &
+     & 4.04304e-08_rb, 5.37236e-08_rb, 7.13875e-08_rb, 9.48591e-08_rb/)
+      kao_mn2o( 3, :,15) = (/ &
+     & 5.59573e-10_rb, 7.43558e-10_rb, 9.88035e-10_rb, 1.31290e-09_rb, 1.74457e-09_rb, &
+     & 2.31817e-09_rb, 3.08037e-09_rb, 4.09318e-09_rb, 5.43900e-09_rb, 7.22730e-09_rb, &
+     & 9.60360e-09_rb, 1.27612e-08_rb, 1.69570e-08_rb, 2.25324e-08_rb, 2.99409e-08_rb, &
+     & 3.97853e-08_rb, 5.28665e-08_rb, 7.02486e-08_rb, 9.33459e-08_rb/)
+      kao_mn2o( 4, :,15) = (/ &
+     & 5.50488e-10_rb, 7.31486e-10_rb, 9.71996e-10_rb, 1.29158e-09_rb, 1.71625e-09_rb, &
+     & 2.28055e-09_rb, 3.03039e-09_rb, 4.02676e-09_rb, 5.35075e-09_rb, 7.11005e-09_rb, &
+     & 9.44781e-09_rb, 1.25542e-08_rb, 1.66820e-08_rb, 2.21670e-08_rb, 2.94554e-08_rb, &
+     & 3.91402e-08_rb, 5.20093e-08_rb, 6.91098e-08_rb, 9.18327e-08_rb/)
+      kao_mn2o( 5, :,15) = (/ &
+     & 5.34010e-10_rb, 7.09574e-10_rb, 9.42858e-10_rb, 1.25284e-09_rb, 1.66473e-09_rb, &
+     & 2.21203e-09_rb, 2.93927e-09_rb, 3.90560e-09_rb, 5.18963e-09_rb, 6.89580e-09_rb, &
+     & 9.16290e-09_rb, 1.21754e-08_rb, 1.61782e-08_rb, 2.14970e-08_rb, 2.85645e-08_rb, &
+     & 3.79555e-08_rb, 5.04340e-08_rb, 6.70149e-08_rb, 8.90470e-08_rb/)
+      kao_mn2o( 6, :,15) = (/ &
+     & 5.08144e-10_rb, 6.75221e-10_rb, 8.97231e-10_rb, 1.19224e-09_rb, 1.58424e-09_rb, &
+     & 2.10513e-09_rb, 2.79729e-09_rb, 3.71703e-09_rb, 4.93919e-09_rb, 6.56317e-09_rb, &
+     & 8.72112e-09_rb, 1.15886e-08_rb, 1.53989e-08_rb, 2.04620e-08_rb, 2.71898e-08_rb, &
+     & 3.61297e-08_rb, 4.80091e-08_rb, 6.37943e-08_rb, 8.47696e-08_rb/)
+      kao_mn2o( 7, :,15) = (/ &
+     & 4.56716e-10_rb, 6.06884e-10_rb, 8.06427e-10_rb, 1.07158e-09_rb, 1.42391e-09_rb, &
+     & 1.89210e-09_rb, 2.51422e-09_rb, 3.34089e-09_rb, 4.43938e-09_rb, 5.89904e-09_rb, &
+     & 7.83864e-09_rb, 1.04160e-08_rb, 1.38408e-08_rb, 1.83916e-08_rb, 2.44387e-08_rb, &
+     & 3.24742e-08_rb, 4.31517e-08_rb, 5.73399e-08_rb, 7.61932e-08_rb/)
+      kao_mn2o( 8, :,15) = (/ &
+     & 2.78366e-10_rb, 3.69881e-10_rb, 4.91482e-10_rb, 6.53061e-10_rb, 8.67760e-10_rb, &
+     & 1.15304e-09_rb, 1.53211e-09_rb, 2.03581e-09_rb, 2.70510e-09_rb, 3.59441e-09_rb, &
+     & 4.77611e-09_rb, 6.34629e-09_rb, 8.43268e-09_rb, 1.12050e-08_rb, 1.48887e-08_rb, &
+     & 1.97835e-08_rb, 2.62875e-08_rb, 3.49296e-08_rb, 4.64130e-08_rb/)
+      kao_mn2o( 9, :,15) = (/ &
+     & 5.34010e-10_rb, 7.09574e-10_rb, 9.42858e-10_rb, 1.25284e-09_rb, 1.66473e-09_rb, &
+     & 2.21203e-09_rb, 2.93927e-09_rb, 3.90560e-09_rb, 5.18963e-09_rb, 6.89580e-09_rb, &
+     & 9.16290e-09_rb, 1.21754e-08_rb, 1.61782e-08_rb, 2.14970e-08_rb, 2.85645e-08_rb, &
+     & 3.79555e-08_rb, 5.04340e-08_rb, 6.70149e-08_rb, 8.90470e-08_rb/)
+      kao_mn2o( 1, :,16) = (/ &
+     & 2.90784e+01_rb, 2.93787e+01_rb, 2.96820e+01_rb, 2.99885e+01_rb, 3.02982e+01_rb, &
+     & 3.06110e+01_rb, 3.09271e+01_rb, 3.12464e+01_rb, 3.15690e+01_rb, 3.18950e+01_rb, &
+     & 3.22243e+01_rb, 3.25571e+01_rb, 3.28932e+01_rb, 3.32329e+01_rb, 3.35760e+01_rb, &
+     & 3.39227e+01_rb, 3.42730e+01_rb, 3.46269e+01_rb, 3.49844e+01_rb/)
+      kao_mn2o( 2, :,16) = (/ &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)
+      kao_mn2o( 3, :,16) = (/ &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)
+      kao_mn2o( 4, :,16) = (/ &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)
+      kao_mn2o( 5, :,16) = (/ &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)
+      kao_mn2o( 6, :,16) = (/ &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)
+      kao_mn2o( 7, :,16) = (/ &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)
+      kao_mn2o( 8, :,16) = (/ &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)
+      kao_mn2o( 9, :,16) = (/ &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &
+     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)
+
+!     The array KBO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level above 100~ mb.   The first index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index 
+!     runs over the g-channel (1 to 16).
+
+      kbo_mn2o(:, 1) = (/ &
+     & 8.42688e-03_rb, 8.96787e-03_rb, 9.54358e-03_rb, 1.01563e-02_rb, 1.08083e-02_rb, &
+     & 1.15021e-02_rb, 1.22405e-02_rb, 1.30263e-02_rb, 1.38626e-02_rb, 1.47525e-02_rb, &
+     & 1.56996e-02_rb, 1.67075e-02_rb, 1.77800e-02_rb, 1.89215e-02_rb, 2.01362e-02_rb, &
+     & 2.14289e-02_rb, 2.28045e-02_rb, 2.42685e-02_rb, 2.58265e-02_rb/)
+      kbo_mn2o(:, 2) = (/ &
+     & 2.24976e-02_rb, 2.38935e-02_rb, 2.53762e-02_rb, 2.69508e-02_rb, 2.86231e-02_rb, &
+     & 3.03991e-02_rb, 3.22854e-02_rb, 3.42887e-02_rb, 3.64163e-02_rb, 3.86760e-02_rb, &
+     & 4.10759e-02_rb, 4.36246e-02_rb, 4.63315e-02_rb, 4.92064e-02_rb, 5.22597e-02_rb, &
+     & 5.55024e-02_rb, 5.89464e-02_rb, 6.26040e-02_rb, 6.64886e-02_rb/)
+      kbo_mn2o(:, 3) = (/ &
+     & 5.93542e-02_rb, 6.37312e-02_rb, 6.84310e-02_rb, 7.34774e-02_rb, 7.88960e-02_rb, &
+     & 8.47141e-02_rb, 9.09613e-02_rb, 9.76692e-02_rb, 1.04872e-01_rb, 1.12605e-01_rb, &
+     & 1.20910e-01_rb, 1.29826e-01_rb, 1.39400e-01_rb, 1.49680e-01_rb, 1.60718e-01_rb, &
+     & 1.72570e-01_rb, 1.85296e-01_rb, 1.98961e-01_rb, 2.13633e-01_rb/)
+      kbo_mn2o(:, 4) = (/ &
+     & 1.98022e-01_rb, 2.05895e-01_rb, 2.14082e-01_rb, 2.22594e-01_rb, 2.31445e-01_rb, &
+     & 2.40647e-01_rb, 2.50216e-01_rb, 2.60164e-01_rb, 2.70509e-01_rb, 2.81265e-01_rb, &
+     & 2.92448e-01_rb, 3.04076e-01_rb, 3.16167e-01_rb, 3.28738e-01_rb, 3.41809e-01_rb, &
+     & 3.55400e-01_rb, 3.69531e-01_rb, 3.84224e-01_rb, 3.99501e-01_rb/)
+      kbo_mn2o(:, 5) = (/ &
+     & 6.41413e-01_rb, 6.46239e-01_rb, 6.51101e-01_rb, 6.56000e-01_rb, 6.60936e-01_rb, &
+     & 6.65910e-01_rb, 6.70920e-01_rb, 6.75968e-01_rb, 6.81054e-01_rb, 6.86179e-01_rb, &
+     & 6.91342e-01_rb, 6.96544e-01_rb, 7.01785e-01_rb, 7.07065e-01_rb, 7.12385e-01_rb, &
+     & 7.17746e-01_rb, 7.23146e-01_rb, 7.28587e-01_rb, 7.34070e-01_rb/)
+      kbo_mn2o(:, 6) = (/ &
+     & 1.47906e+00_rb, 1.48768e+00_rb, 1.49635e+00_rb, 1.50507e+00_rb, 1.51384e+00_rb, &
+     & 1.52267e+00_rb, 1.53154e+00_rb, 1.54047e+00_rb, 1.54944e+00_rb, 1.55847e+00_rb, &
+     & 1.56755e+00_rb, 1.57669e+00_rb, 1.58588e+00_rb, 1.59512e+00_rb, 1.60442e+00_rb, &
+     & 1.61377e+00_rb, 1.62317e+00_rb, 1.63263e+00_rb, 1.64215e+00_rb/)
+      kbo_mn2o(:, 7) = (/ &
+     & 3.53152e+00_rb, 3.55492e+00_rb, 3.57848e+00_rb, 3.60219e+00_rb, 3.62606e+00_rb, &
+     & 3.65008e+00_rb, 3.67427e+00_rb, 3.69862e+00_rb, 3.72313e+00_rb, 3.74780e+00_rb, &
+     & 3.77263e+00_rb, 3.79763e+00_rb, 3.82279e+00_rb, 3.84812e+00_rb, 3.87362e+00_rb, &
+     & 3.89929e+00_rb, 3.92513e+00_rb, 3.95114e+00_rb, 3.97732e+00_rb/)
+      kbo_mn2o(:, 8) = (/ &
+     & 9.06783e+00_rb, 9.04597e+00_rb, 9.02415e+00_rb, 9.00239e+00_rb, 8.98069e+00_rb, &
+     & 8.95903e+00_rb, 8.93743e+00_rb, 8.91588e+00_rb, 8.89438e+00_rb, 8.87293e+00_rb, &
+     & 8.85154e+00_rb, 8.83020e+00_rb, 8.80890e+00_rb, 8.78766e+00_rb, 8.76647e+00_rb, &
+     & 8.74533e+00_rb, 8.72425e+00_rb, 8.70321e+00_rb, 8.68223e+00_rb/)
+      kbo_mn2o(:, 9) = (/ &
+     & 3.88220e+01_rb, 3.85805e+01_rb, 3.83405e+01_rb, 3.81019e+01_rb, 3.78649e+01_rb, &
+     & 3.76293e+01_rb, 3.73952e+01_rb, 3.71625e+01_rb, 3.69313e+01_rb, 3.67016e+01_rb, &
+     & 3.64732e+01_rb, 3.62463e+01_rb, 3.60208e+01_rb, 3.57967e+01_rb, 3.55740e+01_rb, &
+     & 3.53527e+01_rb, 3.51327e+01_rb, 3.49142e+01_rb, 3.46970e+01_rb/)
+      kbo_mn2o(:, 10) = (/ &
+     & 1.14211e+02_rb, 1.13955e+02_rb, 1.13700e+02_rb, 1.13445e+02_rb, 1.13191e+02_rb, &
+     & 1.12938e+02_rb, 1.12685e+02_rb, 1.12433e+02_rb, 1.12181e+02_rb, 1.11930e+02_rb, &
+     & 1.11679e+02_rb, 1.11429e+02_rb, 1.11180e+02_rb, 1.10931e+02_rb, 1.10682e+02_rb, &
+     & 1.10434e+02_rb, 1.10187e+02_rb, 1.09940e+02_rb, 1.09694e+02_rb/)
+      kbo_mn2o(:, 11) = (/ &
+     & 1.60513e+02_rb, 1.60857e+02_rb, 1.61201e+02_rb, 1.61547e+02_rb, 1.61893e+02_rb, &
+     & 1.62240e+02_rb, 1.62587e+02_rb, 1.62936e+02_rb, 1.63285e+02_rb, 1.63635e+02_rb, &
+     & 1.63985e+02_rb, 1.64337e+02_rb, 1.64689e+02_rb, 1.65041e+02_rb, 1.65395e+02_rb, &
+     & 1.65749e+02_rb, 1.66105e+02_rb, 1.66460e+02_rb, 1.66817e+02_rb/)
+      kbo_mn2o(:, 12) = (/ &
+     & 1.71473e+02_rb, 1.72766e+02_rb, 1.74068e+02_rb, 1.75381e+02_rb, 1.76703e+02_rb, &
+     & 1.78035e+02_rb, 1.79377e+02_rb, 1.80729e+02_rb, 1.82091e+02_rb, 1.83464e+02_rb, &
+     & 1.84847e+02_rb, 1.86240e+02_rb, 1.87644e+02_rb, 1.89059e+02_rb, 1.90484e+02_rb, &
+     & 1.91920e+02_rb, 1.93367e+02_rb, 1.94824e+02_rb, 1.96293e+02_rb/)
+      kbo_mn2o(:, 13) = (/ &
+     & 2.71287e+01_rb, 2.75538e+01_rb, 2.79856e+01_rb, 2.84241e+01_rb, 2.88695e+01_rb, &
+     & 2.93219e+01_rb, 2.97814e+01_rb, 3.02480e+01_rb, 3.07220e+01_rb, 3.12035e+01_rb, &
+     & 3.16924e+01_rb, 3.21890e+01_rb, 3.26934e+01_rb, 3.32058e+01_rb, 3.37261e+01_rb, &
+     & 3.42546e+01_rb, 3.47914e+01_rb, 3.53365e+01_rb, 3.58903e+01_rb/)
+      kbo_mn2o(:, 14) = (/ &
+     & 1.70389e+01_rb, 1.70899e+01_rb, 1.71411e+01_rb, 1.71924e+01_rb, 1.72439e+01_rb, &
+     & 1.72955e+01_rb, 1.73473e+01_rb, 1.73992e+01_rb, 1.74513e+01_rb, 1.75035e+01_rb, &
+     & 1.75559e+01_rb, 1.76085e+01_rb, 1.76612e+01_rb, 1.77141e+01_rb, 1.77671e+01_rb, &
+     & 1.78203e+01_rb, 1.78736e+01_rb, 1.79271e+01_rb, 1.79808e+01_rb/)
+      kbo_mn2o(:, 15) = (/ &
+     & 2.49725e+00_rb, 2.66861e+00_rb, 2.85174e+00_rb, 3.04743e+00_rb, 3.25655e+00_rb, &
+     & 3.48003e+00_rb, 3.71883e+00_rb, 3.97403e+00_rb, 4.24673e+00_rb, 4.53815e+00_rb, &
+     & 4.84957e+00_rb, 5.18236e+00_rb, 5.53798e+00_rb, 5.91801e+00_rb, 6.32412e+00_rb, &
+     & 6.75809e+00_rb, 7.22185e+00_rb, 7.71742e+00_rb, 8.24701e+00_rb/)
+      kbo_mn2o(:, 16) = (/ &
+     & 1.82935e-03_rb, 2.58912e-03_rb, 3.66444e-03_rb, 5.18637e-03_rb, 7.34039e-03_rb, &
+     & 1.03890e-02_rb, 1.47038e-02_rb, 2.08106e-02_rb, 2.94538e-02_rb, 4.16865e-02_rb, &
+     & 5.89999e-02_rb, 8.35040e-02_rb, 1.18185e-01_rb, 1.67270e-01_rb, 2.36741e-01_rb, &
+     & 3.35065e-01_rb, 4.74225e-01_rb, 6.71180e-01_rb, 9.49936e-01_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &7.5352e-06_rb,2.9812e-05_rb,1.4497e-04_rb,4.4006e-04_rb,1.0492e-03_rb,1.9676e-03_rb, &
+     &1.9989e-03_rb,1.9099e-03_rb,2.2121e-03_rb,2.4491e-03_rb,2.9573e-03_rb,2.6344e-03_rb, &
+     &3.0629e-03_rb,3.3547e-03_rb,5.0643e-03_rb,5.0642e-03_rb/)
+      forrefo(2,:) = (/ &
+     &6.6070e-06_rb,4.8618e-05_rb,3.1112e-04_rb,8.4235e-04_rb,1.4179e-03_rb,1.4315e-03_rb, &
+     &1.4685e-03_rb,1.6554e-03_rb,2.1171e-03_rb,2.3545e-03_rb,2.5165e-03_rb,2.7680e-03_rb, &
+     &2.6985e-03_rb,3.5345e-03_rb,4.2924e-03_rb,5.0712e-03_rb/)
+      forrefo(3,:) = (/ &
+     &6.5962e-06_rb,7.2595e-04_rb,1.3429e-03_rb,1.1675e-03_rb,9.8384e-04_rb,8.8787e-04_rb, &
+     &8.7557e-04_rb,8.0589e-04_rb,7.7024e-04_rb,8.7518e-04_rb,9.5213e-04_rb,9.0849e-04_rb, &
+     &1.2596e-03_rb,2.5106e-03_rb,3.9471e-03_rb,5.0742e-03_rb/)
+      forrefo(4,:) = (/ &
+     &3.6217e-04_rb,1.0709e-03_rb,1.0628e-03_rb,8.5640e-04_rb,8.9332e-04_rb,8.3372e-04_rb, &
+     &7.8539e-04_rb,8.2828e-04_rb,8.3329e-04_rb,8.5118e-04_rb,8.2878e-04_rb,6.8570e-04_rb, &
+     &6.3815e-04_rb,8.0648e-04_rb,2.3236e-03_rb,4.0321e-03_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 2.83453e-02_rb, 2.51439e-02_rb, 2.23040e-02_rb, 1.97849e-02_rb, 1.75503e-02_rb, &
+     & 1.55681e-02_rb, 1.38097e-02_rb, 1.22500e-02_rb, 1.08664e-02_rb, 9.63912e-03_rb/)
+      selfrefo(:, 2) = (/ &
+     & 3.05185e-02_rb, 2.72374e-02_rb, 2.43090e-02_rb, 2.16955e-02_rb, 1.93629e-02_rb, &
+     & 1.72811e-02_rb, 1.54232e-02_rb, 1.37650e-02_rb, 1.22851e-02_rb, 1.09643e-02_rb/)
+      selfrefo(:, 3) = (/ &
+     & 4.23833e-02_rb, 3.76250e-02_rb, 3.34010e-02_rb, 2.96512e-02_rb, 2.63223e-02_rb, &
+     & 2.33672e-02_rb, 2.07439e-02_rb, 1.84150e-02_rb, 1.63476e-02_rb, 1.45123e-02_rb/)
+      selfrefo(:, 4) = (/ &
+     & 5.76481e-02_rb, 5.13686e-02_rb, 4.57730e-02_rb, 4.07870e-02_rb, 3.63441e-02_rb, &
+     & 3.23851e-02_rb, 2.88574e-02_rb, 2.57140e-02_rb, 2.29130e-02_rb, 2.04171e-02_rb/)
+      selfrefo(:, 5) = (/ &
+     & 6.92255e-02_rb, 6.33521e-02_rb, 5.79770e-02_rb, 5.30580e-02_rb, 4.85563e-02_rb, &
+     & 4.44365e-02_rb, 4.06663e-02_rb, 3.72160e-02_rb, 3.40584e-02_rb, 3.11687e-02_rb/)
+      selfrefo(:, 6) = (/ &
+     & 6.07694e-02_rb, 5.94182e-02_rb, 5.80970e-02_rb, 5.68052e-02_rb, 5.55422e-02_rb, &
+     & 5.43072e-02_rb, 5.30997e-02_rb, 5.19190e-02_rb, 5.07646e-02_rb, 4.96358e-02_rb/)
+      selfrefo(:, 7) = (/ &
+     & 6.23749e-02_rb, 6.07744e-02_rb, 5.92150e-02_rb, 5.76956e-02_rb, 5.62152e-02_rb, &
+     & 5.47728e-02_rb, 5.33674e-02_rb, 5.19980e-02_rb, 5.06638e-02_rb, 4.93638e-02_rb/)
+      selfrefo(:, 8) = (/ &
+     & 6.90744e-02_rb, 6.61811e-02_rb, 6.34090e-02_rb, 6.07530e-02_rb, 5.82083e-02_rb, &
+     & 5.57702e-02_rb, 5.34342e-02_rb, 5.11960e-02_rb, 4.90516e-02_rb, 4.69970e-02_rb/)
+      selfrefo(:, 9) = (/ &
+     & 8.08992e-02_rb, 7.68876e-02_rb, 7.30750e-02_rb, 6.94514e-02_rb, 6.60075e-02_rb, &
+     & 6.27344e-02_rb, 5.96236e-02_rb, 5.66670e-02_rb, 5.38570e-02_rb, 5.11864e-02_rb/)
+      selfrefo(:,10) = (/ &
+     & 8.70197e-02_rb, 8.27485e-02_rb, 7.86870e-02_rb, 7.48248e-02_rb, 7.11522e-02_rb, &
+     & 6.76599e-02_rb, 6.43389e-02_rb, 6.11810e-02_rb, 5.81781e-02_rb, 5.53225e-02_rb/)
+      selfrefo(:,11) = (/ &
+     & 8.84776e-02_rb, 8.54262e-02_rb, 8.24800e-02_rb, 7.96354e-02_rb, 7.68890e-02_rb, &
+     & 7.42373e-02_rb, 7.16770e-02_rb, 6.92050e-02_rb, 6.68183e-02_rb, 6.45139e-02_rb/)
+      selfrefo(:,12) = (/ &
+     & 9.82552e-02_rb, 9.25696e-02_rb, 8.72130e-02_rb, 8.21664e-02_rb, 7.74118e-02_rb, &
+     & 7.29323e-02_rb, 6.87121e-02_rb, 6.47360e-02_rb, 6.09900e-02_rb, 5.74608e-02_rb/)
+      selfrefo(:,13) = (/ &
+     & 9.32447e-02_rb, 8.96818e-02_rb, 8.62550e-02_rb, 8.29592e-02_rb, 7.97893e-02_rb, &
+     & 7.67405e-02_rb, 7.38082e-02_rb, 7.09880e-02_rb, 6.82755e-02_rb, 6.56667e-02_rb/)
+      selfrefo(:,14) = (/ &
+     & 1.15363e-01_rb, 1.08593e-01_rb, 1.02220e-01_rb, 9.62210e-02_rb, 9.05741e-02_rb, &
+     & 8.52585e-02_rb, 8.02549e-02_rb, 7.55450e-02_rb, 7.11115e-02_rb, 6.69382e-02_rb/)
+      selfrefo(:,15) = (/ &
+     & 1.23179e-01_rb, 1.19247e-01_rb, 1.15440e-01_rb, 1.11755e-01_rb, 1.08187e-01_rb, &
+     & 1.04734e-01_rb, 1.01391e-01_rb, 9.81540e-02_rb, 9.50207e-02_rb, 9.19875e-02_rb/)
+      selfrefo(:,16) = (/ &
+     & 1.44104e-01_rb, 1.36412e-01_rb, 1.29130e-01_rb, 1.22237e-01_rb, 1.15712e-01_rb, &
+     & 1.09535e-01_rb, 1.03688e-01_rb, 9.81530e-02_rb, 9.29135e-02_rb, 8.79537e-02_rb/)
+
+      end subroutine lw_kgb09
+
+! **************************************************************************
+      subroutine lw_kgb10
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg10, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P = 212.7250, T = 223.06 K
+      fracrefao(:) = (/ &
+     &  1.6909e-01_rb, 1.5419e-01_rb, 1.3999e-01_rb, 1.2637e-01_rb, &
+     &  1.1429e-01_rb, 9.9676e-02_rb, 8.0093e-02_rb, 6.0283e-02_rb, &
+     &  4.1077e-02_rb, 4.4857e-03_rb, 3.6545e-03_rb, 2.9243e-03_rb, &
+     &  2.0407e-03_rb, 1.2891e-03_rb, 4.8767e-04_rb, 6.7748e-05_rb/)
+
+! Planck fraction mapping level : P = 95.58350 mb, T = 215.70 K
+      fracrefbo(:) = (/ &
+     &  1.7391e-01_rb, 1.5680e-01_rb, 1.4419e-01_rb, 1.2672e-01_rb, &
+     &  1.0708e-01_rb, 9.7034e-02_rb, 7.8545e-02_rb, 5.9784e-02_rb, &
+     &  4.0879e-02_rb, 4.4704e-03_rb, 3.7150e-03_rb, 2.9038e-03_rb, &
+     &  2.1454e-03_rb, 1.2802e-03_rb, 4.8328e-04_rb, 6.7378e-05_rb/)
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     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 corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1) = (/ &
+     &2.7213e-02_rb,2.9029e-02_rb,3.0838e-02_rb,3.2767e-02_rb,3.4630e-02_rb/)
+      kao(:, 2, 1) = (/ &
+     &2.1383e-02_rb,2.2832e-02_rb,2.4365e-02_rb,2.5925e-02_rb,2.7376e-02_rb/)
+      kao(:, 3, 1) = (/ &
+     &1.6478e-02_rb,1.7675e-02_rb,1.8942e-02_rb,2.0177e-02_rb,2.1374e-02_rb/)
+      kao(:, 4, 1) = (/ &
+     &1.2848e-02_rb,1.3809e-02_rb,1.4825e-02_rb,1.5852e-02_rb,1.6799e-02_rb/)
+      kao(:, 5, 1) = (/ &
+     &1.0029e-02_rb,1.0847e-02_rb,1.1686e-02_rb,1.2512e-02_rb,1.3297e-02_rb/)
+      kao(:, 6, 1) = (/ &
+     &7.8313e-03_rb,8.5460e-03_rb,9.2025e-03_rb,9.9079e-03_rb,1.0554e-02_rb/)
+      kao(:, 7, 1) = (/ &
+     &6.1234e-03_rb,6.6846e-03_rb,7.2818e-03_rb,7.8451e-03_rb,8.4144e-03_rb/)
+      kao(:, 8, 1) = (/ &
+     &4.8747e-03_rb,5.2881e-03_rb,5.7474e-03_rb,6.2355e-03_rb,6.7085e-03_rb/)
+      kao(:, 9, 1) = (/ &
+     &4.1059e-03_rb,4.5848e-03_rb,4.9152e-03_rb,5.2401e-03_rb,5.5908e-03_rb/)
+      kao(:,10, 1) = (/ &
+     &3.5412e-03_rb,4.0565e-03_rb,4.5689e-03_rb,5.1092e-03_rb,5.6716e-03_rb/)
+      kao(:,11, 1) = (/ &
+     &3.0492e-03_rb,3.6436e-03_rb,4.0799e-03_rb,4.5260e-03_rb,4.9802e-03_rb/)
+      kao(:,12, 1) = (/ &
+     &2.5821e-03_rb,3.0995e-03_rb,3.5069e-03_rb,3.8699e-03_rb,4.2575e-03_rb/)
+      kao(:,13, 1) = (/ &
+     &2.1558e-03_rb,2.5890e-03_rb,2.9127e-03_rb,3.2139e-03_rb,3.5455e-03_rb/)
+      kao(:, 1, 2) = (/ &
+     &5.2889e-02_rb,5.6315e-02_rb,5.9927e-02_rb,6.3408e-02_rb,6.6329e-02_rb/)
+      kao(:, 2, 2) = (/ &
+     &4.1932e-02_rb,4.4934e-02_rb,4.8030e-02_rb,5.0855e-02_rb,5.3372e-02_rb/)
+      kao(:, 3, 2) = (/ &
+     &3.2754e-02_rb,3.5198e-02_rb,3.7786e-02_rb,4.0294e-02_rb,4.2438e-02_rb/)
+      kao(:, 4, 2) = (/ &
+     &2.5838e-02_rb,2.7680e-02_rb,2.9873e-02_rb,3.1963e-02_rb,3.3931e-02_rb/)
+      kao(:, 5, 2) = (/ &
+     &2.0528e-02_rb,2.2079e-02_rb,2.3740e-02_rb,2.5501e-02_rb,2.7219e-02_rb/)
+      kao(:, 6, 2) = (/ &
+     &1.6350e-02_rb,1.7491e-02_rb,1.8902e-02_rb,2.0280e-02_rb,2.1774e-02_rb/)
+      kao(:, 7, 2) = (/ &
+     &1.2732e-02_rb,1.3953e-02_rb,1.5005e-02_rb,1.6145e-02_rb,1.7323e-02_rb/)
+      kao(:, 8, 2) = (/ &
+     &9.7464e-03_rb,1.1159e-02_rb,1.2150e-02_rb,1.2940e-02_rb,1.3856e-02_rb/)
+      kao(:, 9, 2) = (/ &
+     &7.5337e-03_rb,8.5370e-03_rb,9.6841e-03_rb,1.0825e-02_rb,1.1894e-02_rb/)
+      kao(:,10, 2) = (/ &
+     &7.1476e-03_rb,7.8468e-03_rb,8.6104e-03_rb,9.4234e-03_rb,1.0165e-02_rb/)
+      kao(:,11, 2) = (/ &
+     &7.4726e-03_rb,7.8619e-03_rb,8.4110e-03_rb,8.8097e-03_rb,9.3621e-03_rb/)
+      kao(:,12, 2) = (/ &
+     &6.8212e-03_rb,7.3104e-03_rb,7.6521e-03_rb,8.0570e-03_rb,8.3782e-03_rb/)
+      kao(:,13, 2) = (/ &
+     &5.7626e-03_rb,6.1115e-03_rb,6.3578e-03_rb,6.6833e-03_rb,6.9834e-03_rb/)
+      kao(:, 1, 3) = (/ &
+     &9.2909e-02_rb,9.6713e-02_rb,9.9436e-02_rb,1.0242e-01_rb,1.0613e-01_rb/)
+      kao(:, 2, 3) = (/ &
+     &7.4548e-02_rb,7.7785e-02_rb,8.0363e-02_rb,8.2840e-02_rb,8.6028e-02_rb/)
+      kao(:, 3, 3) = (/ &
+     &5.8714e-02_rb,6.1823e-02_rb,6.4284e-02_rb,6.6702e-02_rb,6.9231e-02_rb/)
+      kao(:, 4, 3) = (/ &
+     &4.6349e-02_rb,4.9440e-02_rb,5.1743e-02_rb,5.3890e-02_rb,5.5994e-02_rb/)
+      kao(:, 5, 3) = (/ &
+     &3.6507e-02_rb,3.9309e-02_rb,4.1637e-02_rb,4.3586e-02_rb,4.5365e-02_rb/)
+      kao(:, 6, 3) = (/ &
+     &2.8427e-02_rb,3.1177e-02_rb,3.3328e-02_rb,3.5180e-02_rb,3.6733e-02_rb/)
+      kao(:, 7, 3) = (/ &
+     &2.2397e-02_rb,2.4640e-02_rb,2.6638e-02_rb,2.8311e-02_rb,2.9747e-02_rb/)
+      kao(:, 8, 3) = (/ &
+     &1.7861e-02_rb,1.9252e-02_rb,2.1033e-02_rb,2.2648e-02_rb,2.3985e-02_rb/)
+      kao(:, 9, 3) = (/ &
+     &1.4398e-02_rb,1.5884e-02_rb,1.6962e-02_rb,1.7935e-02_rb,1.8840e-02_rb/)
+      kao(:,10, 3) = (/ &
+     &1.3336e-02_rb,1.5085e-02_rb,1.6848e-02_rb,1.8578e-02_rb,1.9024e-02_rb/)
+      kao(:,11, 3) = (/ &
+     &1.0996e-02_rb,1.2680e-02_rb,1.4233e-02_rb,1.6184e-02_rb,1.7835e-02_rb/)
+      kao(:,12, 3) = (/ &
+     &9.6066e-03_rb,1.0608e-02_rb,1.2101e-02_rb,1.3713e-02_rb,1.5338e-02_rb/)
+      kao(:,13, 3) = (/ &
+     &8.0007e-03_rb,8.9344e-03_rb,1.0260e-02_rb,1.1651e-02_rb,1.2914e-02_rb/)
+      kao(:, 1, 4) = (/ &
+     &1.4098e-01_rb,1.4735e-01_rb,1.5390e-01_rb,1.6007e-01_rb,1.6623e-01_rb/)
+      kao(:, 2, 4) = (/ &
+     &1.1373e-01_rb,1.1930e-01_rb,1.2491e-01_rb,1.3057e-01_rb,1.3593e-01_rb/)
+      kao(:, 3, 4) = (/ &
+     &9.0856e-02_rb,9.5503e-02_rb,1.0012e-01_rb,1.0479e-01_rb,1.0971e-01_rb/)
+      kao(:, 4, 4) = (/ &
+     &7.2695e-02_rb,7.6746e-02_rb,8.0662e-02_rb,8.4622e-02_rb,8.8881e-02_rb/)
+      kao(:, 5, 4) = (/ &
+     &5.8402e-02_rb,6.1962e-02_rb,6.5265e-02_rb,6.8694e-02_rb,7.2371e-02_rb/)
+      kao(:, 6, 4) = (/ &
+     &4.7100e-02_rb,5.0100e-02_rb,5.2955e-02_rb,5.5897e-02_rb,5.9012e-02_rb/)
+      kao(:, 7, 4) = (/ &
+     &3.7714e-02_rb,4.0303e-02_rb,4.2858e-02_rb,4.5396e-02_rb,4.8032e-02_rb/)
+      kao(:, 8, 4) = (/ &
+     &2.9938e-02_rb,3.2418e-02_rb,3.4599e-02_rb,3.6801e-02_rb,3.9055e-02_rb/)
+      kao(:, 9, 4) = (/ &
+     &2.3570e-02_rb,2.5475e-02_rb,2.7580e-02_rb,2.9598e-02_rb,3.1549e-02_rb/)
+      kao(:,10, 4) = (/ &
+     &2.3291e-02_rb,2.1658e-02_rb,2.1418e-02_rb,2.1490e-02_rb,2.3536e-02_rb/)
+      kao(:,11, 4) = (/ &
+     &2.1808e-02_rb,2.2150e-02_rb,2.2833e-02_rb,2.0354e-02_rb,1.9688e-02_rb/)
+      kao(:,12, 4) = (/ &
+     &1.9246e-02_rb,1.9438e-02_rb,1.9839e-02_rb,2.0164e-02_rb,1.7716e-02_rb/)
+      kao(:,13, 4) = (/ &
+     &1.6236e-02_rb,1.6164e-02_rb,1.6551e-02_rb,1.6579e-02_rb,1.4849e-02_rb/)
+      kao(:, 1, 5) = (/ &
+     &2.5886e-01_rb,2.7100e-01_rb,2.8220e-01_rb,2.9245e-01_rb,3.0214e-01_rb/)
+      kao(:, 2, 5) = (/ &
+     &2.0909e-01_rb,2.1918e-01_rb,2.2861e-01_rb,2.3740e-01_rb,2.4610e-01_rb/)
+      kao(:, 3, 5) = (/ &
+     &1.6622e-01_rb,1.7497e-01_rb,1.8311e-01_rb,1.9088e-01_rb,1.9860e-01_rb/)
+      kao(:, 4, 5) = (/ &
+     &1.3301e-01_rb,1.4069e-01_rb,1.4792e-01_rb,1.5478e-01_rb,1.6132e-01_rb/)
+      kao(:, 5, 5) = (/ &
+     &1.0688e-01_rb,1.1355e-01_rb,1.1989e-01_rb,1.2584e-01_rb,1.3154e-01_rb/)
+      kao(:, 6, 5) = (/ &
+     &8.5419e-02_rb,9.1274e-02_rb,9.6848e-02_rb,1.0202e-01_rb,1.0704e-01_rb/)
+      kao(:, 7, 5) = (/ &
+     &6.8100e-02_rb,7.3262e-02_rb,7.8047e-02_rb,8.2594e-02_rb,8.7027e-02_rb/)
+      kao(:, 8, 5) = (/ &
+     &5.4252e-02_rb,5.8815e-02_rb,6.2989e-02_rb,6.6937e-02_rb,7.0783e-02_rb/)
+      kao(:, 9, 5) = (/ &
+     &4.3117e-02_rb,4.7224e-02_rb,5.0916e-02_rb,5.4328e-02_rb,5.7817e-02_rb/)
+      kao(:,10, 5) = (/ &
+     &2.9151e-02_rb,3.5667e-02_rb,4.0092e-02_rb,4.3888e-02_rb,4.6870e-02_rb/)
+      kao(:,11, 5) = (/ &
+     &2.3941e-02_rb,2.7450e-02_rb,2.9750e-02_rb,3.5348e-02_rb,3.9440e-02_rb/)
+      kao(:,12, 5) = (/ &
+     &2.0570e-02_rb,2.3238e-02_rb,2.5236e-02_rb,2.7327e-02_rb,3.2816e-02_rb/)
+      kao(:,13, 5) = (/ &
+     &1.7253e-02_rb,1.9755e-02_rb,2.1401e-02_rb,2.3591e-02_rb,2.8114e-02_rb/)
+      kao(:, 1, 6) = (/ &
+     &5.6993e-01_rb,6.0360e-01_rb,6.3489e-01_rb,6.6230e-01_rb,6.8659e-01_rb/)
+      kao(:, 2, 6) = (/ &
+     &4.6502e-01_rb,4.9401e-01_rb,5.2007e-01_rb,5.4304e-01_rb,5.6306e-01_rb/)
+      kao(:, 3, 6) = (/ &
+     &3.7271e-01_rb,3.9757e-01_rb,4.1967e-01_rb,4.3927e-01_rb,4.5631e-01_rb/)
+      kao(:, 4, 6) = (/ &
+     &2.9874e-01_rb,3.1990e-01_rb,3.3890e-01_rb,3.5594e-01_rb,3.7139e-01_rb/)
+      kao(:, 5, 6) = (/ &
+     &2.3859e-01_rb,2.5711e-01_rb,2.7375e-01_rb,2.8893e-01_rb,3.0280e-01_rb/)
+      kao(:, 6, 6) = (/ &
+     &1.8917e-01_rb,2.0549e-01_rb,2.2017e-01_rb,2.3369e-01_rb,2.4611e-01_rb/)
+      kao(:, 7, 6) = (/ &
+     &1.4938e-01_rb,1.6367e-01_rb,1.7681e-01_rb,1.8887e-01_rb,1.9989e-01_rb/)
+      kao(:, 8, 6) = (/ &
+     &1.1758e-01_rb,1.3011e-01_rb,1.4157e-01_rb,1.5226e-01_rb,1.6197e-01_rb/)
+      kao(:, 9, 6) = (/ &
+     &9.1609e-02_rb,1.0230e-01_rb,1.1226e-01_rb,1.2154e-01_rb,1.2990e-01_rb/)
+      kao(:,10, 6) = (/ &
+     &7.2629e-02_rb,8.2527e-02_rb,9.1786e-02_rb,1.0065e-01_rb,1.0832e-01_rb/)
+      kao(:,11, 6) = (/ &
+     &6.0173e-02_rb,6.9095e-02_rb,7.8339e-02_rb,8.6340e-02_rb,9.2996e-02_rb/)
+      kao(:,12, 6) = (/ &
+     &5.1074e-02_rb,5.9514e-02_rb,6.6969e-02_rb,7.3447e-02_rb,7.9277e-02_rb/)
+      kao(:,13, 6) = (/ &
+     &4.3826e-02_rb,5.0848e-02_rb,5.7125e-02_rb,6.2916e-02_rb,6.7915e-02_rb/)
+      kao(:, 1, 7) = (/ &
+     &1.4129e+00_rb,1.4750e+00_rb,1.5277e+00_rb,1.5727e+00_rb,1.6117e+00_rb/)
+      kao(:, 2, 7) = (/ &
+     &1.1749e+00_rb,1.2287e+00_rb,1.2750e+00_rb,1.3159e+00_rb,1.3523e+00_rb/)
+      kao(:, 3, 7) = (/ &
+     &9.5348e-01_rb,1.0008e+00_rb,1.0433e+00_rb,1.0822e+00_rb,1.1168e+00_rb/)
+      kao(:, 4, 7) = (/ &
+     &7.6995e-01_rb,8.1381e-01_rb,8.5421e-01_rb,8.9012e-01_rb,9.2111e-01_rb/)
+      kao(:, 5, 7) = (/ &
+     &6.2211e-01_rb,6.6255e-01_rb,6.9934e-01_rb,7.3149e-01_rb,7.5879e-01_rb/)
+      kao(:, 6, 7) = (/ &
+     &5.0056e-01_rb,5.3742e-01_rb,5.7038e-01_rb,5.9882e-01_rb,6.2305e-01_rb/)
+      kao(:, 7, 7) = (/ &
+     &4.0115e-01_rb,4.3352e-01_rb,4.6244e-01_rb,4.8765e-01_rb,5.0920e-01_rb/)
+      kao(:, 8, 7) = (/ &
+     &3.1902e-01_rb,3.4754e-01_rb,3.7305e-01_rb,3.9544e-01_rb,4.1482e-01_rb/)
+      kao(:, 9, 7) = (/ &
+     &2.5207e-01_rb,2.7718e-01_rb,2.9962e-01_rb,3.1933e-01_rb,3.3666e-01_rb/)
+      kao(:,10, 7) = (/ &
+     &1.9498e-01_rb,2.1588e-01_rb,2.3464e-01_rb,2.5127e-01_rb,2.6668e-01_rb/)
+      kao(:,11, 7) = (/ &
+     &1.6583e-01_rb,1.8332e-01_rb,1.9835e-01_rb,2.1191e-01_rb,2.2523e-01_rb/)
+      kao(:,12, 7) = (/ &
+     &1.3827e-01_rb,1.5202e-01_rb,1.6547e-01_rb,1.7854e-01_rb,1.8991e-01_rb/)
+      kao(:,13, 7) = (/ &
+     &1.1534e-01_rb,1.2733e-01_rb,1.3962e-01_rb,1.4987e-01_rb,1.6008e-01_rb/)
+      kao(:, 1, 8) = (/ &
+     &3.5920e+00_rb,3.7800e+00_rb,3.9524e+00_rb,4.1109e+00_rb,4.2529e+00_rb/)
+      kao(:, 2, 8) = (/ &
+     &3.2111e+00_rb,3.3886e+00_rb,3.5521e+00_rb,3.6948e+00_rb,3.8225e+00_rb/)
+      kao(:, 3, 8) = (/ &
+     &2.7787e+00_rb,2.9477e+00_rb,3.0955e+00_rb,3.2271e+00_rb,3.3442e+00_rb/)
+      kao(:, 4, 8) = (/ &
+     &2.3588e+00_rb,2.5119e+00_rb,2.6472e+00_rb,2.7686e+00_rb,2.8775e+00_rb/)
+      kao(:, 5, 8) = (/ &
+     &1.9705e+00_rb,2.1082e+00_rb,2.2326e+00_rb,2.3452e+00_rb,2.4470e+00_rb/)
+      kao(:, 6, 8) = (/ &
+     &1.6168e+00_rb,1.7418e+00_rb,1.8565e+00_rb,1.9616e+00_rb,2.0551e+00_rb/)
+      kao(:, 7, 8) = (/ &
+     &1.3089e+00_rb,1.4235e+00_rb,1.5288e+00_rb,1.6233e+00_rb,1.7079e+00_rb/)
+      kao(:, 8, 8) = (/ &
+     &1.0505e+00_rb,1.1539e+00_rb,1.2478e+00_rb,1.3319e+00_rb,1.4095e+00_rb/)
+      kao(:, 9, 8) = (/ &
+     &8.3583e-01_rb,9.2738e-01_rb,1.0101e+00_rb,1.0861e+00_rb,1.1567e+00_rb/)
+      kao(:,10, 8) = (/ &
+     &6.6552e-01_rb,7.4516e-01_rb,8.1795e-01_rb,8.8505e-01_rb,9.4596e-01_rb/)
+      kao(:,11, 8) = (/ &
+     &5.5048e-01_rb,6.1499e-01_rb,6.7571e-01_rb,7.3145e-01_rb,7.8064e-01_rb/)
+      kao(:,12, 8) = (/ &
+     &4.5804e-01_rb,5.1260e-01_rb,5.6222e-01_rb,6.0624e-01_rb,6.4709e-01_rb/)
+      kao(:,13, 8) = (/ &
+     &3.8513e-01_rb,4.3049e-01_rb,4.7109e-01_rb,5.0795e-01_rb,5.3980e-01_rb/)
+      kao(:, 1, 9) = (/ &
+     &1.0443e+01_rb,1.1048e+01_rb,1.1589e+01_rb,1.2078e+01_rb,1.2523e+01_rb/)
+      kao(:, 2, 9) = (/ &
+     &1.0305e+01_rb,1.0938e+01_rb,1.1513e+01_rb,1.2045e+01_rb,1.2531e+01_rb/)
+      kao(:, 3, 9) = (/ &
+     &9.8576e+00_rb,1.0529e+01_rb,1.1150e+01_rb,1.1712e+01_rb,1.2221e+01_rb/)
+      kao(:, 4, 9) = (/ &
+     &9.2371e+00_rb,9.9233e+00_rb,1.0551e+01_rb,1.1124e+01_rb,1.1647e+01_rb/)
+      kao(:, 5, 9) = (/ &
+     &8.4700e+00_rb,9.1602e+00_rb,9.7951e+00_rb,1.0380e+01_rb,1.0911e+01_rb/)
+      kao(:, 6, 9) = (/ &
+     &7.5880e+00_rb,8.2763e+00_rb,8.9154e+00_rb,9.5007e+00_rb,1.0024e+01_rb/)
+      kao(:, 7, 9) = (/ &
+     &6.6790e+00_rb,7.3503e+00_rb,7.9748e+00_rb,8.5357e+00_rb,9.0412e+00_rb/)
+      kao(:, 8, 9) = (/ &
+     &5.7712e+00_rb,6.4120e+00_rb,7.0009e+00_rb,7.5325e+00_rb,8.0088e+00_rb/)
+      kao(:, 9, 9) = (/ &
+     &4.8989e+00_rb,5.4909e+00_rb,6.0328e+00_rb,6.5241e+00_rb,6.9680e+00_rb/)
+      kao(:,10, 9) = (/ &
+     &4.1164e+00_rb,4.6491e+00_rb,5.1402e+00_rb,5.5886e+00_rb,6.0036e+00_rb/)
+      kao(:,11, 9) = (/ &
+     &3.6151e+00_rb,4.0753e+00_rb,4.5022e+00_rb,4.8994e+00_rb,5.2546e+00_rb/)
+      kao(:,12, 9) = (/ &
+     &3.1350e+00_rb,3.5329e+00_rb,3.9073e+00_rb,4.2435e+00_rb,4.5415e+00_rb/)
+      kao(:,13, 9) = (/ &
+     &2.6929e+00_rb,3.0365e+00_rb,3.3480e+00_rb,3.6295e+00_rb,3.8842e+00_rb/)
+      kao(:, 1,10) = (/ &
+     &1.9924e+01_rb,2.0919e+01_rb,2.2000e+01_rb,2.2972e+01_rb,2.3773e+01_rb/)
+      kao(:, 2,10) = (/ &
+     &2.0689e+01_rb,2.1909e+01_rb,2.3034e+01_rb,2.3987e+01_rb,2.4788e+01_rb/)
+      kao(:, 3,10) = (/ &
+     &2.0776e+01_rb,2.2053e+01_rb,2.3211e+01_rb,2.4276e+01_rb,2.5292e+01_rb/)
+      kao(:, 4,10) = (/ &
+     &2.0236e+01_rb,2.1839e+01_rb,2.3315e+01_rb,2.4662e+01_rb,2.5879e+01_rb/)
+      kao(:, 5,10) = (/ &
+     &1.9987e+01_rb,2.1808e+01_rb,2.3390e+01_rb,2.4727e+01_rb,2.5958e+01_rb/)
+      kao(:, 6,10) = (/ &
+     &1.9523e+01_rb,2.1285e+01_rb,2.2798e+01_rb,2.4193e+01_rb,2.5643e+01_rb/)
+      kao(:, 7,10) = (/ &
+     &1.8326e+01_rb,2.0057e+01_rb,2.1638e+01_rb,2.3310e+01_rb,2.4996e+01_rb/)
+      kao(:, 8,10) = (/ &
+     &1.6812e+01_rb,1.8592e+01_rb,2.0423e+01_rb,2.2320e+01_rb,2.4092e+01_rb/)
+      kao(:, 9,10) = (/ &
+     &1.5126e+01_rb,1.7059e+01_rb,1.9069e+01_rb,2.1023e+01_rb,2.2713e+01_rb/)
+      kao(:,10,10) = (/ &
+     &1.3603e+01_rb,1.5643e+01_rb,1.7659e+01_rb,1.9476e+01_rb,2.1017e+01_rb/)
+      kao(:,11,10) = (/ &
+     &1.3136e+01_rb,1.5065e+01_rb,1.6788e+01_rb,1.8298e+01_rb,1.9745e+01_rb/)
+      kao(:,12,10) = (/ &
+     &1.2291e+01_rb,1.3925e+01_rb,1.5389e+01_rb,1.6819e+01_rb,1.8254e+01_rb/)
+      kao(:,13,10) = (/ &
+     &1.1103e+01_rb,1.2502e+01_rb,1.3897e+01_rb,1.5277e+01_rb,1.6528e+01_rb/)
+      kao(:, 1,11) = (/ &
+     &2.4296e+01_rb,2.5293e+01_rb,2.6167e+01_rb,2.7129e+01_rb,2.8181e+01_rb/)
+      kao(:, 2,11) = (/ &
+     &2.5960e+01_rb,2.7094e+01_rb,2.8248e+01_rb,2.9459e+01_rb,3.0485e+01_rb/)
+      kao(:, 3,11) = (/ &
+     &2.6865e+01_rb,2.8307e+01_rb,2.9751e+01_rb,3.1102e+01_rb,3.2279e+01_rb/)
+      kao(:, 4,11) = (/ &
+     &2.7354e+01_rb,2.8995e+01_rb,3.0628e+01_rb,3.2100e+01_rb,3.3421e+01_rb/)
+      kao(:, 5,11) = (/ &
+     &2.6969e+01_rb,2.8892e+01_rb,3.0767e+01_rb,3.2621e+01_rb,3.4273e+01_rb/)
+      kao(:, 6,11) = (/ &
+     &2.6094e+01_rb,2.8469e+01_rb,3.0801e+01_rb,3.2980e+01_rb,3.4919e+01_rb/)
+      kao(:, 7,11) = (/ &
+     &2.5366e+01_rb,2.8149e+01_rb,3.0864e+01_rb,3.3154e+01_rb,3.5069e+01_rb/)
+      kao(:, 8,11) = (/ &
+     &2.4570e+01_rb,2.7568e+01_rb,3.0172e+01_rb,3.2348e+01_rb,3.4412e+01_rb/)
+      kao(:, 9,11) = (/ &
+     &2.3141e+01_rb,2.6027e+01_rb,2.8564e+01_rb,3.0892e+01_rb,3.3292e+01_rb/)
+      kao(:,10,11) = (/ &
+     &2.1375e+01_rb,2.4163e+01_rb,2.6748e+01_rb,2.9381e+01_rb,3.2113e+01_rb/)
+      kao(:,11,11) = (/ &
+     &2.0563e+01_rb,2.3343e+01_rb,2.6200e+01_rb,2.9082e+01_rb,3.1737e+01_rb/)
+      kao(:,12,11) = (/ &
+     &1.9759e+01_rb,2.2669e+01_rb,2.5592e+01_rb,2.8225e+01_rb,3.0484e+01_rb/)
+      kao(:,13,11) = (/ &
+     &1.9005e+01_rb,2.1823e+01_rb,2.4335e+01_rb,2.6560e+01_rb,2.8649e+01_rb/)
+      kao(:, 1,12) = (/ &
+     &2.8554e+01_rb,3.0109e+01_rb,3.1534e+01_rb,3.2820e+01_rb,3.3912e+01_rb/)
+      kao(:, 2,12) = (/ &
+     &3.1883e+01_rb,3.3547e+01_rb,3.5069e+01_rb,3.6425e+01_rb,3.7803e+01_rb/)
+      kao(:, 3,12) = (/ &
+     &3.5025e+01_rb,3.6824e+01_rb,3.8424e+01_rb,3.9924e+01_rb,4.1396e+01_rb/)
+      kao(:, 4,12) = (/ &
+     &3.7112e+01_rb,3.9231e+01_rb,4.1147e+01_rb,4.2932e+01_rb,4.4646e+01_rb/)
+      kao(:, 5,12) = (/ &
+     &3.8447e+01_rb,4.0861e+01_rb,4.3125e+01_rb,4.5199e+01_rb,4.7297e+01_rb/)
+      kao(:, 6,12) = (/ &
+     &3.8994e+01_rb,4.1741e+01_rb,4.4237e+01_rb,4.6637e+01_rb,4.8930e+01_rb/)
+      kao(:, 7,12) = (/ &
+     &3.8693e+01_rb,4.1674e+01_rb,4.4392e+01_rb,4.7287e+01_rb,5.0041e+01_rb/)
+      kao(:, 8,12) = (/ &
+     &3.7231e+01_rb,4.0534e+01_rb,4.3968e+01_rb,4.7486e+01_rb,5.0745e+01_rb/)
+      kao(:, 9,12) = (/ &
+     &3.5314e+01_rb,3.9308e+01_rb,4.3458e+01_rb,4.7418e+01_rb,5.1164e+01_rb/)
+      kao(:,10,12) = (/ &
+     &3.3674e+01_rb,3.8340e+01_rb,4.2937e+01_rb,4.7301e+01_rb,5.1085e+01_rb/)
+      kao(:,11,12) = (/ &
+     &3.4306e+01_rb,3.9228e+01_rb,4.3781e+01_rb,4.7771e+01_rb,5.1424e+01_rb/)
+      kao(:,12,12) = (/ &
+     &3.4432e+01_rb,3.9064e+01_rb,4.3274e+01_rb,4.7292e+01_rb,5.1289e+01_rb/)
+      kao(:,13,12) = (/ &
+     &3.3504e+01_rb,3.7950e+01_rb,4.2337e+01_rb,4.6726e+01_rb,5.1022e+01_rb/)
+      kao(:, 1,13) = (/ &
+     &3.3083e+01_rb,3.5231e+01_rb,3.7169e+01_rb,3.8902e+01_rb,4.0496e+01_rb/)
+      kao(:, 2,13) = (/ &
+     &3.7816e+01_rb,4.0283e+01_rb,4.2419e+01_rb,4.4328e+01_rb,4.6116e+01_rb/)
+      kao(:, 3,13) = (/ &
+     &4.2916e+01_rb,4.5668e+01_rb,4.8087e+01_rb,5.0367e+01_rb,5.2460e+01_rb/)
+      kao(:, 4,13) = (/ &
+     &4.7941e+01_rb,5.0937e+01_rb,5.3613e+01_rb,5.6174e+01_rb,5.8534e+01_rb/)
+      kao(:, 5,13) = (/ &
+     &5.2708e+01_rb,5.6040e+01_rb,5.9163e+01_rb,6.2033e+01_rb,6.4593e+01_rb/)
+      kao(:, 6,13) = (/ &
+     &5.6670e+01_rb,6.0546e+01_rb,6.4072e+01_rb,6.7245e+01_rb,7.0176e+01_rb/)
+      kao(:, 7,13) = (/ &
+     &5.9263e+01_rb,6.3946e+01_rb,6.8113e+01_rb,7.1753e+01_rb,7.5271e+01_rb/)
+      kao(:, 8,13) = (/ &
+     &6.0990e+01_rb,6.6317e+01_rb,7.1009e+01_rb,7.5310e+01_rb,7.9458e+01_rb/)
+      kao(:, 9,13) = (/ &
+     &6.1500e+01_rb,6.7310e+01_rb,7.2473e+01_rb,7.7444e+01_rb,8.1955e+01_rb/)
+      kao(:,10,13) = (/ &
+     &6.1095e+01_rb,6.7188e+01_rb,7.2950e+01_rb,7.8366e+01_rb,8.3528e+01_rb/)
+      kao(:,11,13) = (/ &
+     &6.2204e+01_rb,6.8688e+01_rb,7.5122e+01_rb,8.1365e+01_rb,8.7577e+01_rb/)
+      kao(:,12,13) = (/ &
+     &6.2610e+01_rb,7.0078e+01_rb,7.7313e+01_rb,8.4495e+01_rb,9.1274e+01_rb/)
+      kao(:,13,13) = (/ &
+     &6.3252e+01_rb,7.1343e+01_rb,7.9418e+01_rb,8.6956e+01_rb,9.3893e+01_rb/)
+      kao(:, 1,14) = (/ &
+     &4.3344e+01_rb,4.5304e+01_rb,4.7200e+01_rb,4.8977e+01_rb,5.0634e+01_rb/)
+      kao(:, 2,14) = (/ &
+     &4.8672e+01_rb,5.1219e+01_rb,5.3748e+01_rb,5.6207e+01_rb,5.8584e+01_rb/)
+      kao(:, 3,14) = (/ &
+     &5.3835e+01_rb,5.7385e+01_rb,6.0811e+01_rb,6.4094e+01_rb,6.7183e+01_rb/)
+      kao(:, 4,14) = (/ &
+     &5.9051e+01_rb,6.3463e+01_rb,6.7847e+01_rb,7.2047e+01_rb,7.6005e+01_rb/)
+      kao(:, 5,14) = (/ &
+     &6.4910e+01_rb,7.0372e+01_rb,7.5734e+01_rb,8.0867e+01_rb,8.5466e+01_rb/)
+      kao(:, 6,14) = (/ &
+     &7.1177e+01_rb,7.7830e+01_rb,8.4454e+01_rb,9.0502e+01_rb,9.5851e+01_rb/)
+      kao(:, 7,14) = (/ &
+     &7.8645e+01_rb,8.6401e+01_rb,9.3877e+01_rb,1.0067e+02_rb,1.0680e+02_rb/)
+      kao(:, 8,14) = (/ &
+     &8.6837e+01_rb,9.5972e+01_rb,1.0455e+02_rb,1.1218e+02_rb,1.1889e+02_rb/)
+      kao(:, 9,14) = (/ &
+     &9.4588e+01_rb,1.0523e+02_rb,1.1528e+02_rb,1.2405e+02_rb,1.3172e+02_rb/)
+      kao(:,10,14) = (/ &
+     &1.0185e+02_rb,1.1428e+02_rb,1.2585e+02_rb,1.3577e+02_rb,1.4474e+02_rb/)
+      kao(:,11,14) = (/ &
+     &1.1416e+02_rb,1.2817e+02_rb,1.4064e+02_rb,1.5135e+02_rb,1.6079e+02_rb/)
+      kao(:,12,14) = (/ &
+     &1.2658e+02_rb,1.4157e+02_rb,1.5496e+02_rb,1.6630e+02_rb,1.7621e+02_rb/)
+      kao(:,13,14) = (/ &
+     &1.3763e+02_rb,1.5352e+02_rb,1.6709e+02_rb,1.7925e+02_rb,1.9013e+02_rb/)
+      kao(:, 1,15) = (/ &
+     &5.4748e+01_rb,5.6924e+01_rb,5.8795e+01_rb,6.0375e+01_rb,6.1716e+01_rb/)
+      kao(:, 2,15) = (/ &
+     &6.5566e+01_rb,6.8287e+01_rb,7.0585e+01_rb,7.2551e+01_rb,7.4160e+01_rb/)
+      kao(:, 3,15) = (/ &
+     &7.7583e+01_rb,8.1027e+01_rb,8.3928e+01_rb,8.6358e+01_rb,8.8397e+01_rb/)
+      kao(:, 4,15) = (/ &
+     &8.9871e+01_rb,9.4173e+01_rb,9.7817e+01_rb,1.0084e+02_rb,1.0339e+02_rb/)
+      kao(:, 5,15) = (/ &
+     &1.0246e+02_rb,1.0776e+02_rb,1.1220e+02_rb,1.1592e+02_rb,1.1961e+02_rb/)
+      kao(:, 6,15) = (/ &
+     &1.1487e+02_rb,1.2133e+02_rb,1.2665e+02_rb,1.3188e+02_rb,1.3707e+02_rb/)
+      kao(:, 7,15) = (/ &
+     &1.2683e+02_rb,1.3446e+02_rb,1.4160e+02_rb,1.4872e+02_rb,1.5558e+02_rb/)
+      kao(:, 8,15) = (/ &
+     &1.3795e+02_rb,1.4756e+02_rb,1.5674e+02_rb,1.6606e+02_rb,1.7523e+02_rb/)
+      kao(:, 9,15) = (/ &
+     &1.4965e+02_rb,1.6170e+02_rb,1.7284e+02_rb,1.8422e+02_rb,1.9597e+02_rb/)
+      kao(:,10,15) = (/ &
+     &1.6376e+02_rb,1.7796e+02_rb,1.9116e+02_rb,2.0528e+02_rb,2.1939e+02_rb/)
+      kao(:,11,15) = (/ &
+     &1.8752e+02_rb,2.0335e+02_rb,2.1913e+02_rb,2.3662e+02_rb,2.5359e+02_rb/)
+      kao(:,12,15) = (/ &
+     &2.1430e+02_rb,2.3299e+02_rb,2.5241e+02_rb,2.7277e+02_rb,2.9286e+02_rb/)
+      kao(:,13,15) = (/ &
+     &2.4469e+02_rb,2.6735e+02_rb,2.9101e+02_rb,3.1438e+02_rb,3.3674e+02_rb/)
+      kao(:, 1,16) = (/ &
+     &5.6182e+01_rb,5.8534e+01_rb,6.0580e+01_rb,6.2336e+01_rb,6.3846e+01_rb/)
+      kao(:, 2,16) = (/ &
+     &6.7714e+01_rb,7.1253e+01_rb,7.3886e+01_rb,7.6167e+01_rb,7.8129e+01_rb/)
+      kao(:, 3,16) = (/ &
+     &8.2239e+01_rb,8.6274e+01_rb,8.9810e+01_rb,9.2865e+01_rb,9.5500e+01_rb/)
+      kao(:, 4,16) = (/ &
+     &9.7623e+01_rb,1.0299e+02_rb,1.0769e+02_rb,1.1178e+02_rb,1.1532e+02_rb/)
+      kao(:, 5,16) = (/ &
+     &1.1485e+02_rb,1.2193e+02_rb,1.2815e+02_rb,1.3359e+02_rb,1.3829e+02_rb/)
+      kao(:, 6,16) = (/ &
+     &1.3405e+02_rb,1.4336e+02_rb,1.5157e+02_rb,1.5875e+02_rb,1.6501e+02_rb/)
+      kao(:, 7,16) = (/ &
+     &1.5562e+02_rb,1.6780e+02_rb,1.7860e+02_rb,1.8805e+02_rb,1.9632e+02_rb/)
+      kao(:, 8,16) = (/ &
+     &1.7987e+02_rb,1.9571e+02_rb,2.0979e+02_rb,2.2214e+02_rb,2.3298e+02_rb/)
+      kao(:, 9,16) = (/ &
+     &2.0674e+02_rb,2.2717e+02_rb,2.4538e+02_rb,2.6145e+02_rb,2.7552e+02_rb/)
+      kao(:,10,16) = (/ &
+     &2.3822e+02_rb,2.6423e+02_rb,2.8739e+02_rb,3.0794e+02_rb,3.2592e+02_rb/)
+      kao(:,11,16) = (/ &
+     &2.8871e+02_rb,3.1996e+02_rb,3.4774e+02_rb,3.7226e+02_rb,3.9354e+02_rb/)
+      kao(:,12,16) = (/ &
+     &3.4916e+02_rb,3.8637e+02_rb,4.1932e+02_rb,4.4825e+02_rb,4.7321e+02_rb/)
+      kao(:,13,16) = (/ &
+     &4.2045e+02_rb,4.6429e+02_rb,5.0303e+02_rb,5.3671e+02_rb,5.6546e+02_rb/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:,13, 1) = (/ &
+     &2.1558e-03_rb,2.5890e-03_rb,2.9127e-03_rb,3.2139e-03_rb,3.5455e-03_rb/)
+      kbo(:,14, 1) = (/ &
+     &1.8304e-03_rb,2.1809e-03_rb,2.4298e-03_rb,2.6878e-03_rb,2.9625e-03_rb/)
+      kbo(:,15, 1) = (/ &
+     &1.5486e-03_rb,1.7962e-03_rb,2.0058e-03_rb,2.2286e-03_rb,2.4705e-03_rb/)
+      kbo(:,16, 1) = (/ &
+     &1.3025e-03_rb,1.4833e-03_rb,1.6606e-03_rb,1.8503e-03_rb,2.0485e-03_rb/)
+      kbo(:,17, 1) = (/ &
+     &1.0810e-03_rb,1.2227e-03_rb,1.3725e-03_rb,1.5304e-03_rb,1.6938e-03_rb/)
+      kbo(:,18, 1) = (/ &
+     &8.7942e-04_rb,1.0015e-03_rb,1.1266e-03_rb,1.2596e-03_rb,1.3951e-03_rb/)
+      kbo(:,19, 1) = (/ &
+     &7.2280e-04_rb,8.2373e-04_rb,9.2739e-04_rb,1.0381e-03_rb,1.1467e-03_rb/)
+      kbo(:,20, 1) = (/ &
+     &6.0184e-04_rb,6.8491e-04_rb,7.6954e-04_rb,8.5989e-04_rb,9.4913e-04_rb/)
+      kbo(:,21, 1) = (/ &
+     &5.0117e-04_rb,5.6823e-04_rb,6.3855e-04_rb,7.1320e-04_rb,7.8654e-04_rb/)
+      kbo(:,22, 1) = (/ &
+     &4.1938e-04_rb,4.7543e-04_rb,5.3375e-04_rb,5.9543e-04_rb,6.5571e-04_rb/)
+      kbo(:,23, 1) = (/ &
+     &3.5199e-04_rb,3.9855e-04_rb,4.4679e-04_rb,4.9714e-04_rb,5.4750e-04_rb/)
+      kbo(:,24, 1) = (/ &
+     &2.9639e-04_rb,3.3452e-04_rb,3.7432e-04_rb,4.1615e-04_rb,4.5706e-04_rb/)
+      kbo(:,25, 1) = (/ &
+     &2.4906e-04_rb,2.8117e-04_rb,3.1412e-04_rb,3.4839e-04_rb,3.7317e-04_rb/)
+      kbo(:,26, 1) = (/ &
+     &2.1029e-04_rb,2.3678e-04_rb,2.6421e-04_rb,2.9238e-04_rb,3.0575e-04_rb/)
+      kbo(:,27, 1) = (/ &
+     &1.7727e-04_rb,1.9942e-04_rb,2.2208e-04_rb,2.4556e-04_rb,2.5262e-04_rb/)
+      kbo(:,28, 1) = (/ &
+     &1.4969e-04_rb,1.6790e-04_rb,1.8692e-04_rb,2.0183e-04_rb,2.0915e-04_rb/)
+      kbo(:,29, 1) = (/ &
+     &1.2629e-04_rb,1.4151e-04_rb,1.5706e-04_rb,1.6548e-04_rb,1.7223e-04_rb/)
+      kbo(:,30, 1) = (/ &
+     &1.0651e-04_rb,1.1909e-04_rb,1.3186e-04_rb,1.3639e-04_rb,1.4198e-04_rb/)
+      kbo(:,31, 1) = (/ &
+     &8.9698e-05_rb,1.0002e-04_rb,1.0798e-04_rb,1.1271e-04_rb,1.1661e-04_rb/)
+      kbo(:,32, 1) = (/ &
+     &7.5536e-05_rb,8.4037e-05_rb,8.8553e-05_rb,9.2337e-05_rb,9.5468e-05_rb/)
+      kbo(:,33, 1) = (/ &
+     &6.3563e-05_rb,7.0507e-05_rb,7.3023e-05_rb,7.6153e-05_rb,7.8142e-05_rb/)
+      kbo(:,34, 1) = (/ &
+     &5.3365e-05_rb,5.7820e-05_rb,6.0490e-05_rb,6.2653e-05_rb,6.4307e-05_rb/)
+      kbo(:,35, 1) = (/ &
+     &4.4295e-05_rb,4.7505e-05_rb,4.9568e-05_rb,5.1436e-05_rb,5.2756e-05_rb/)
+      kbo(:,36, 1) = (/ &
+     &3.6359e-05_rb,3.8955e-05_rb,4.0612e-05_rb,4.2071e-05_rb,4.3157e-05_rb/)
+      kbo(:,37, 1) = (/ &
+     &2.9443e-05_rb,3.1950e-05_rb,3.3272e-05_rb,3.4376e-05_rb,3.5259e-05_rb/)
+      kbo(:,38, 1) = (/ &
+     &2.3815e-05_rb,2.6274e-05_rb,2.7165e-05_rb,2.8049e-05_rb,2.8811e-05_rb/)
+      kbo(:,39, 1) = (/ &
+     &1.9245e-05_rb,2.1354e-05_rb,2.2111e-05_rb,2.2930e-05_rb,2.3532e-05_rb/)
+      kbo(:,40, 1) = (/ &
+     &1.5405e-05_rb,1.7147e-05_rb,1.8049e-05_rb,1.8756e-05_rb,1.9282e-05_rb/)
+      kbo(:,41, 1) = (/ &
+     &1.2319e-05_rb,1.3748e-05_rb,1.4753e-05_rb,1.5289e-05_rb,1.5770e-05_rb/)
+      kbo(:,42, 1) = (/ &
+     &9.8357e-06_rb,1.1012e-05_rb,1.2183e-05_rb,1.2499e-05_rb,1.2877e-05_rb/)
+      kbo(:,43, 1) = (/ &
+     &7.7892e-06_rb,8.7858e-06_rb,9.7457e-06_rb,1.0234e-05_rb,1.0599e-05_rb/)
+      kbo(:,44, 1) = (/ &
+     &6.1605e-06_rb,6.9805e-06_rb,7.7675e-06_rb,8.4197e-06_rb,8.6950e-06_rb/)
+      kbo(:,45, 1) = (/ &
+     &4.8809e-06_rb,5.5274e-06_rb,6.1865e-06_rb,6.8268e-06_rb,7.0906e-06_rb/)
+      kbo(:,46, 1) = (/ &
+     &3.8470e-06_rb,4.3665e-06_rb,4.9029e-06_rb,5.4349e-06_rb,5.8089e-06_rb/)
+      kbo(:,47, 1) = (/ &
+     &3.0311e-06_rb,3.4294e-06_rb,3.8630e-06_rb,4.3044e-06_rb,4.7453e-06_rb/)
+      kbo(:,48, 1) = (/ &
+     &2.3694e-06_rb,2.7049e-06_rb,3.0473e-06_rb,3.4008e-06_rb,3.7674e-06_rb/)
+      kbo(:,49, 1) = (/ &
+     &1.8467e-06_rb,2.1296e-06_rb,2.4020e-06_rb,2.6917e-06_rb,2.9837e-06_rb/)
+      kbo(:,50, 1) = (/ &
+     &1.4542e-06_rb,1.6765e-06_rb,1.8996e-06_rb,2.1320e-06_rb,2.3692e-06_rb/)
+      kbo(:,51, 1) = (/ &
+     &1.1539e-06_rb,1.3178e-06_rb,1.5055e-06_rb,1.6911e-06_rb,1.8864e-06_rb/)
+      kbo(:,52, 1) = (/ &
+     &8.7493e-07_rb,1.0411e-06_rb,1.1898e-06_rb,1.3435e-06_rb,1.4983e-06_rb/)
+      kbo(:,53, 1) = (/ &
+     &6.6072e-07_rb,8.3282e-07_rb,9.4298e-07_rb,1.0653e-06_rb,1.1935e-06_rb/)
+      kbo(:,54, 1) = (/ &
+     &5.0251e-07_rb,6.4316e-07_rb,7.5237e-07_rb,8.5108e-07_rb,9.5630e-07_rb/)
+      kbo(:,55, 1) = (/ &
+     &3.8195e-07_rb,4.9281e-07_rb,6.0554e-07_rb,6.8279e-07_rb,7.6458e-07_rb/)
+      kbo(:,56, 1) = (/ &
+     &2.8943e-07_rb,3.7779e-07_rb,4.8048e-07_rb,5.4688e-07_rb,6.1650e-07_rb/)
+      kbo(:,57, 1) = (/ &
+     &2.1868e-07_rb,2.8870e-07_rb,3.7076e-07_rb,4.4677e-07_rb,4.9616e-07_rb/)
+      kbo(:,58, 1) = (/ &
+     &1.6598e-07_rb,2.2133e-07_rb,2.8693e-07_rb,3.5995e-07_rb,4.0195e-07_rb/)
+      kbo(:,59, 1) = (/ &
+     &1.3312e-07_rb,1.7804e-07_rb,2.3134e-07_rb,2.9072e-07_rb,3.3304e-07_rb/)
+      kbo(:,13, 2) = (/ &
+     &5.7626e-03_rb,6.1115e-03_rb,6.3578e-03_rb,6.6833e-03_rb,6.9834e-03_rb/)
+      kbo(:,14, 2) = (/ &
+     &4.7365e-03_rb,4.9915e-03_rb,5.2669e-03_rb,5.5245e-03_rb,5.7996e-03_rb/)
+      kbo(:,15, 2) = (/ &
+     &3.8570e-03_rb,4.0469e-03_rb,4.3101e-03_rb,4.5195e-03_rb,4.7607e-03_rb/)
+      kbo(:,16, 2) = (/ &
+     &3.0836e-03_rb,3.2692e-03_rb,3.4748e-03_rb,3.6812e-03_rb,3.8941e-03_rb/)
+      kbo(:,17, 2) = (/ &
+     &2.4665e-03_rb,2.6482e-03_rb,2.8018e-03_rb,2.9854e-03_rb,3.1785e-03_rb/)
+      kbo(:,18, 2) = (/ &
+     &1.9741e-03_rb,2.1245e-03_rb,2.2564e-03_rb,2.4081e-03_rb,2.5780e-03_rb/)
+      kbo(:,19, 2) = (/ &
+     &1.5958e-03_rb,1.7126e-03_rb,1.8351e-03_rb,1.9560e-03_rb,2.0570e-03_rb/)
+      kbo(:,20, 2) = (/ &
+     &1.3038e-03_rb,1.3978e-03_rb,1.5013e-03_rb,1.6102e-03_rb,1.6734e-03_rb/)
+      kbo(:,21, 2) = (/ &
+     &1.0706e-03_rb,1.1492e-03_rb,1.2352e-03_rb,1.3269e-03_rb,1.3755e-03_rb/)
+      kbo(:,22, 2) = (/ &
+     &8.8260e-04_rb,9.4987e-04_rb,1.0209e-03_rb,1.0834e-03_rb,1.1278e-03_rb/)
+      kbo(:,23, 2) = (/ &
+     &7.2583e-04_rb,7.8218e-04_rb,8.4637e-04_rb,8.8814e-04_rb,9.2896e-04_rb/)
+      kbo(:,24, 2) = (/ &
+     &6.0040e-04_rb,6.4872e-04_rb,7.0437e-04_rb,7.3258e-04_rb,7.6936e-04_rb/)
+      kbo(:,25, 2) = (/ &
+     &4.9798e-04_rb,5.3936e-04_rb,5.8024e-04_rb,6.0451e-04_rb,6.4613e-04_rb/)
+      kbo(:,26, 2) = (/ &
+     &4.1436e-04_rb,4.5078e-04_rb,4.7645e-04_rb,5.0082e-04_rb,5.4367e-04_rb/)
+      kbo(:,27, 2) = (/ &
+     &3.4567e-04_rb,3.7682e-04_rb,3.9546e-04_rb,4.1621e-04_rb,4.5625e-04_rb/)
+      kbo(:,28, 2) = (/ &
+     &2.8902e-04_rb,3.1546e-04_rb,3.2798e-04_rb,3.5075e-04_rb,3.8306e-04_rb/)
+      kbo(:,29, 2) = (/ &
+     &2.4193e-04_rb,2.5865e-04_rb,2.7208e-04_rb,2.9507e-04_rb,3.2156e-04_rb/)
+      kbo(:,30, 2) = (/ &
+     &2.0282e-04_rb,2.1375e-04_rb,2.2606e-04_rb,2.4794e-04_rb,2.6904e-04_rb/)
+      kbo(:,31, 2) = (/ &
+     &1.6986e-04_rb,1.7726e-04_rb,1.9036e-04_rb,2.0754e-04_rb,2.2529e-04_rb/)
+      kbo(:,32, 2) = (/ &
+     &1.3922e-04_rb,1.4692e-04_rb,1.5999e-04_rb,1.7445e-04_rb,1.8931e-04_rb/)
+      kbo(:,33, 2) = (/ &
+     &1.1520e-04_rb,1.2220e-04_rb,1.3453e-04_rb,1.4590e-04_rb,1.5875e-04_rb/)
+      kbo(:,34, 2) = (/ &
+     &9.5764e-05_rb,1.0295e-04_rb,1.1231e-04_rb,1.2221e-04_rb,1.3235e-04_rb/)
+      kbo(:,35, 2) = (/ &
+     &7.8951e-05_rb,8.5467e-05_rb,9.3381e-05_rb,1.0154e-04_rb,1.0962e-04_rb/)
+      kbo(:,36, 2) = (/ &
+     &6.4805e-05_rb,7.0212e-05_rb,7.6766e-05_rb,8.3544e-05_rb,9.0139e-05_rb/)
+      kbo(:,37, 2) = (/ &
+     &5.2918e-05_rb,5.7064e-05_rb,6.2426e-05_rb,6.8102e-05_rb,7.3562e-05_rb/)
+      kbo(:,38, 2) = (/ &
+     &4.3224e-05_rb,4.6216e-05_rb,5.0772e-05_rb,5.5504e-05_rb,6.0016e-05_rb/)
+      kbo(:,39, 2) = (/ &
+     &3.5291e-05_rb,3.7592e-05_rb,4.1355e-05_rb,4.5145e-05_rb,4.8932e-05_rb/)
+      kbo(:,40, 2) = (/ &
+     &2.8761e-05_rb,3.0515e-05_rb,3.3449e-05_rb,3.6463e-05_rb,3.9654e-05_rb/)
+      kbo(:,41, 2) = (/ &
+     &2.3487e-05_rb,2.4801e-05_rb,2.6922e-05_rb,2.9459e-05_rb,3.2147e-05_rb/)
+      kbo(:,42, 2) = (/ &
+     &1.9314e-05_rb,2.0243e-05_rb,2.1564e-05_rb,2.3753e-05_rb,2.5964e-05_rb/)
+      kbo(:,43, 2) = (/ &
+     &1.5553e-05_rb,1.6470e-05_rb,1.7479e-05_rb,1.9035e-05_rb,2.0784e-05_rb/)
+      kbo(:,44, 2) = (/ &
+     &1.2457e-05_rb,1.3468e-05_rb,1.4190e-05_rb,1.5199e-05_rb,1.6632e-05_rb/)
+      kbo(:,45, 2) = (/ &
+     &9.9734e-06_rb,1.1008e-05_rb,1.1581e-05_rb,1.2254e-05_rb,1.3346e-05_rb/)
+      kbo(:,46, 2) = (/ &
+     &7.9698e-06_rb,8.8088e-06_rb,9.4445e-06_rb,9.9340e-06_rb,1.0690e-05_rb/)
+      kbo(:,47, 2) = (/ &
+     &6.3565e-06_rb,7.0249e-06_rb,7.7396e-06_rb,8.1033e-06_rb,8.5527e-06_rb/)
+      kbo(:,48, 2) = (/ &
+     &5.1256e-06_rb,5.5929e-06_rb,6.1735e-06_rb,6.6021e-06_rb,6.9371e-06_rb/)
+      kbo(:,49, 2) = (/ &
+     &4.0784e-06_rb,4.4718e-06_rb,4.9212e-06_rb,5.4190e-06_rb,5.6740e-06_rb/)
+      kbo(:,50, 2) = (/ &
+     &3.3297e-06_rb,3.6155e-06_rb,3.9436e-06_rb,4.3292e-06_rb,4.6291e-06_rb/)
+      kbo(:,51, 2) = (/ &
+     &2.7486e-06_rb,2.9107e-06_rb,3.1698e-06_rb,3.4767e-06_rb,3.8139e-06_rb/)
+      kbo(:,52, 2) = (/ &
+     &2.2530e-06_rb,2.4006e-06_rb,2.5759e-06_rb,2.7925e-06_rb,3.0627e-06_rb/)
+      kbo(:,53, 2) = (/ &
+     &1.8678e-06_rb,1.9765e-06_rb,2.1052e-06_rb,2.2503e-06_rb,2.4591e-06_rb/)
+      kbo(:,54, 2) = (/ &
+     &1.5340e-06_rb,1.6385e-06_rb,1.7450e-06_rb,1.8671e-06_rb,1.9805e-06_rb/)
+      kbo(:,55, 2) = (/ &
+     &1.2873e-06_rb,1.3532e-06_rb,1.4432e-06_rb,1.5328e-06_rb,1.6236e-06_rb/)
+      kbo(:,56, 2) = (/ &
+     &1.0668e-06_rb,1.1355e-06_rb,1.1865e-06_rb,1.2884e-06_rb,1.3667e-06_rb/)
+      kbo(:,57, 2) = (/ &
+     &8.4592e-07_rb,9.6149e-07_rb,9.8845e-07_rb,1.0536e-06_rb,1.1286e-06_rb/)
+      kbo(:,58, 2) = (/ &
+     &6.5721e-07_rb,8.0847e-07_rb,8.4916e-07_rb,8.7196e-07_rb,9.4267e-07_rb/)
+      kbo(:,59, 2) = (/ &
+     &5.2809e-07_rb,6.6890e-07_rb,7.2431e-07_rb,7.4028e-07_rb,7.8416e-07_rb/)
+      kbo(:,13, 3) = (/ &
+     &8.0007e-03_rb,8.9344e-03_rb,1.0260e-02_rb,1.1651e-02_rb,1.2914e-02_rb/)
+      kbo(:,14, 3) = (/ &
+     &6.8039e-03_rb,7.6829e-03_rb,8.7921e-03_rb,9.9141e-03_rb,1.0757e-02_rb/)
+      kbo(:,15, 3) = (/ &
+     &5.7029e-03_rb,6.5489e-03_rb,7.4475e-03_rb,8.3471e-03_rb,8.8091e-03_rb/)
+      kbo(:,16, 3) = (/ &
+     &4.8074e-03_rb,5.5085e-03_rb,6.2455e-03_rb,6.9353e-03_rb,7.1997e-03_rb/)
+      kbo(:,17, 3) = (/ &
+     &4.0213e-03_rb,4.6076e-03_rb,5.2117e-03_rb,5.6731e-03_rb,5.8805e-03_rb/)
+      kbo(:,18, 3) = (/ &
+     &3.3461e-03_rb,3.8362e-03_rb,4.3242e-03_rb,4.6154e-03_rb,4.7757e-03_rb/)
+      kbo(:,19, 3) = (/ &
+     &2.7996e-03_rb,3.2075e-03_rb,3.5883e-03_rb,3.7732e-03_rb,3.8872e-03_rb/)
+      kbo(:,20, 3) = (/ &
+     &2.3589e-03_rb,2.6931e-03_rb,2.9843e-03_rb,3.1004e-03_rb,3.1743e-03_rb/)
+      kbo(:,21, 3) = (/ &
+     &1.9734e-03_rb,2.2564e-03_rb,2.4531e-03_rb,2.5572e-03_rb,2.5979e-03_rb/)
+      kbo(:,22, 3) = (/ &
+     &1.6777e-03_rb,1.9014e-03_rb,2.0201e-03_rb,2.0877e-03_rb,2.1290e-03_rb/)
+      kbo(:,23, 3) = (/ &
+     &1.4255e-03_rb,1.6043e-03_rb,1.6675e-03_rb,1.7121e-03_rb,1.7219e-03_rb/)
+      kbo(:,24, 3) = (/ &
+     &1.2066e-03_rb,1.3233e-03_rb,1.3782e-03_rb,1.4109e-03_rb,1.3842e-03_rb/)
+      kbo(:,25, 3) = (/ &
+     &1.0218e-03_rb,1.0936e-03_rb,1.1313e-03_rb,1.1590e-03_rb,1.1132e-03_rb/)
+      kbo(:,26, 3) = (/ &
+     &8.6686e-04_rb,9.0770e-04_rb,9.3474e-04_rb,9.3738e-04_rb,9.0394e-04_rb/)
+      kbo(:,27, 3) = (/ &
+     &7.2332e-04_rb,7.5480e-04_rb,7.7347e-04_rb,7.5530e-04_rb,7.3995e-04_rb/)
+      kbo(:,28, 3) = (/ &
+     &5.9945e-04_rb,6.1747e-04_rb,6.3797e-04_rb,6.1191e-04_rb,6.1018e-04_rb/)
+      kbo(:,29, 3) = (/ &
+     &4.9636e-04_rb,5.1141e-04_rb,5.1979e-04_rb,4.9718e-04_rb,5.0501e-04_rb/)
+      kbo(:,30, 3) = (/ &
+     &4.1287e-04_rb,4.2400e-04_rb,4.1392e-04_rb,4.0737e-04_rb,4.1659e-04_rb/)
+      kbo(:,31, 3) = (/ &
+     &3.3517e-04_rb,3.4906e-04_rb,3.3288e-04_rb,3.3660e-04_rb,3.4335e-04_rb/)
+      kbo(:,32, 3) = (/ &
+     &2.7784e-04_rb,2.7984e-04_rb,2.7143e-04_rb,2.7785e-04_rb,2.8417e-04_rb/)
+      kbo(:,33, 3) = (/ &
+     &2.3052e-04_rb,2.2367e-04_rb,2.2307e-04_rb,2.2883e-04_rb,2.3495e-04_rb/)
+      kbo(:,34, 3) = (/ &
+     &1.9073e-04_rb,1.8192e-04_rb,1.8515e-04_rb,1.8942e-04_rb,1.9507e-04_rb/)
+      kbo(:,35, 3) = (/ &
+     &1.5683e-04_rb,1.4914e-04_rb,1.5288e-04_rb,1.5663e-04_rb,1.6156e-04_rb/)
+      kbo(:,36, 3) = (/ &
+     &1.2835e-04_rb,1.2262e-04_rb,1.2564e-04_rb,1.2896e-04_rb,1.3319e-04_rb/)
+      kbo(:,37, 3) = (/ &
+     &1.0651e-04_rb,1.0086e-04_rb,1.0335e-04_rb,1.0615e-04_rb,1.0970e-04_rb/)
+      kbo(:,38, 3) = (/ &
+     &8.7372e-05_rb,8.2916e-05_rb,8.4948e-05_rb,8.7192e-05_rb,9.0174e-05_rb/)
+      kbo(:,39, 3) = (/ &
+     &7.1580e-05_rb,6.8441e-05_rb,6.9733e-05_rb,7.1507e-05_rb,7.4030e-05_rb/)
+      kbo(:,40, 3) = (/ &
+     &5.8422e-05_rb,5.7750e-05_rb,5.6983e-05_rb,5.8663e-05_rb,6.0682e-05_rb/)
+      kbo(:,41, 3) = (/ &
+     &4.7623e-05_rb,4.8587e-05_rb,4.6749e-05_rb,4.8145e-05_rb,4.9685e-05_rb/)
+      kbo(:,42, 3) = (/ &
+     &3.8729e-05_rb,4.0813e-05_rb,3.8776e-05_rb,3.9518e-05_rb,4.0826e-05_rb/)
+      kbo(:,43, 3) = (/ &
+     &3.2019e-05_rb,3.3273e-05_rb,3.2653e-05_rb,3.2753e-05_rb,3.3527e-05_rb/)
+      kbo(:,44, 3) = (/ &
+     &2.6412e-05_rb,2.7141e-05_rb,2.7698e-05_rb,2.6940e-05_rb,2.7582e-05_rb/)
+      kbo(:,45, 3) = (/ &
+     &2.1266e-05_rb,2.2156e-05_rb,2.3306e-05_rb,2.2397e-05_rb,2.2801e-05_rb/)
+      kbo(:,46, 3) = (/ &
+     &1.7333e-05_rb,1.8301e-05_rb,1.8885e-05_rb,1.9036e-05_rb,1.8747e-05_rb/)
+      kbo(:,47, 3) = (/ &
+     &1.4070e-05_rb,1.4972e-05_rb,1.5353e-05_rb,1.6172e-05_rb,1.5451e-05_rb/)
+      kbo(:,48, 3) = (/ &
+     &1.0908e-05_rb,1.2143e-05_rb,1.2701e-05_rb,1.3131e-05_rb,1.3135e-05_rb/)
+      kbo(:,49, 3) = (/ &
+     &8.5257e-06_rb,9.9029e-06_rb,1.0615e-05_rb,1.0623e-05_rb,1.1229e-05_rb/)
+      kbo(:,50, 3) = (/ &
+     &6.5831e-06_rb,7.8068e-06_rb,8.5689e-06_rb,8.8823e-06_rb,9.1397e-06_rb/)
+      kbo(:,51, 3) = (/ &
+     &5.0124e-06_rb,6.1123e-06_rb,6.9735e-06_rb,7.5152e-06_rb,7.4209e-06_rb/)
+      kbo(:,52, 3) = (/ &
+     &3.8557e-06_rb,4.7153e-06_rb,5.6513e-06_rb,6.0740e-06_rb,6.2588e-06_rb/)
+      kbo(:,53, 3) = (/ &
+     &2.9713e-06_rb,3.6139e-06_rb,4.3749e-06_rb,4.9165e-06_rb,5.3050e-06_rb/)
+      kbo(:,54, 3) = (/ &
+     &2.2856e-06_rb,2.7967e-06_rb,3.4018e-06_rb,4.0149e-06_rb,4.3280e-06_rb/)
+      kbo(:,55, 3) = (/ &
+     &1.7432e-06_rb,2.1952e-06_rb,2.6416e-06_rb,3.2063e-06_rb,3.5207e-06_rb/)
+      kbo(:,56, 3) = (/ &
+     &1.3460e-06_rb,1.6981e-06_rb,2.0681e-06_rb,2.4690e-06_rb,2.8558e-06_rb/)
+      kbo(:,57, 3) = (/ &
+     &1.0794e-06_rb,1.2900e-06_rb,1.6260e-06_rb,1.9447e-06_rb,2.3391e-06_rb/)
+      kbo(:,58, 3) = (/ &
+     &9.2042e-07_rb,9.9682e-07_rb,1.2594e-06_rb,1.5341e-06_rb,1.8245e-06_rb/)
+      kbo(:,59, 3) = (/ &
+     &7.5487e-07_rb,8.2111e-07_rb,1.0075e-06_rb,1.2341e-06_rb,1.4799e-06_rb/)
+      kbo(:,13, 4) = (/ &
+     &1.6236e-02_rb,1.6164e-02_rb,1.6551e-02_rb,1.6579e-02_rb,1.4849e-02_rb/)
+      kbo(:,14, 4) = (/ &
+     &1.3333e-02_rb,1.3358e-02_rb,1.3723e-02_rb,1.3164e-02_rb,1.2310e-02_rb/)
+      kbo(:,15, 4) = (/ &
+     &1.0791e-02_rb,1.1005e-02_rb,1.1347e-02_rb,1.0262e-02_rb,1.0198e-02_rb/)
+      kbo(:,16, 4) = (/ &
+     &8.7740e-03_rb,9.0551e-03_rb,8.8988e-03_rb,8.1326e-03_rb,8.4246e-03_rb/)
+      kbo(:,17, 4) = (/ &
+     &7.1855e-03_rb,7.4271e-03_rb,6.8507e-03_rb,6.6124e-03_rb,6.9447e-03_rb/)
+      kbo(:,18, 4) = (/ &
+     &5.8832e-03_rb,5.8794e-03_rb,5.3061e-03_rb,5.4156e-03_rb,5.7271e-03_rb/)
+      kbo(:,19, 4) = (/ &
+     &4.7612e-03_rb,4.5173e-03_rb,4.2495e-03_rb,4.4758e-03_rb,4.7797e-03_rb/)
+      kbo(:,20, 4) = (/ &
+     &3.8929e-03_rb,3.5371e-03_rb,3.4837e-03_rb,3.7081e-03_rb,4.0335e-03_rb/)
+      kbo(:,21, 4) = (/ &
+     &3.1210e-03_rb,2.8158e-03_rb,2.9040e-03_rb,3.0717e-03_rb,3.3855e-03_rb/)
+      kbo(:,22, 4) = (/ &
+     &2.4122e-03_rb,2.2915e-03_rb,2.4348e-03_rb,2.6102e-03_rb,2.8568e-03_rb/)
+      kbo(:,23, 4) = (/ &
+     &1.8931e-03_rb,1.8847e-03_rb,2.0226e-03_rb,2.2045e-03_rb,2.4293e-03_rb/)
+      kbo(:,24, 4) = (/ &
+     &1.5231e-03_rb,1.5878e-03_rb,1.6899e-03_rb,1.8552e-03_rb,2.0775e-03_rb/)
+      kbo(:,25, 4) = (/ &
+     &1.2458e-03_rb,1.3309e-03_rb,1.4317e-03_rb,1.5678e-03_rb,1.7779e-03_rb/)
+      kbo(:,26, 4) = (/ &
+     &1.0318e-03_rb,1.1118e-03_rb,1.2146e-03_rb,1.3449e-03_rb,1.5065e-03_rb/)
+      kbo(:,27, 4) = (/ &
+     &8.6665e-04_rb,9.3057e-04_rb,1.0235e-03_rb,1.1557e-03_rb,1.2745e-03_rb/)
+      kbo(:,28, 4) = (/ &
+     &7.2935e-04_rb,7.9123e-04_rb,8.6656e-04_rb,9.8388e-04_rb,1.0757e-03_rb/)
+      kbo(:,29, 4) = (/ &
+     &6.1286e-04_rb,6.7240e-04_rb,7.4124e-04_rb,8.3872e-04_rb,9.0911e-04_rb/)
+      kbo(:,30, 4) = (/ &
+     &5.1400e-04_rb,5.6684e-04_rb,6.4255e-04_rb,7.1220e-04_rb,7.7258e-04_rb/)
+      kbo(:,31, 4) = (/ &
+     &4.4005e-04_rb,4.8076e-04_rb,5.5017e-04_rb,6.0255e-04_rb,6.5647e-04_rb/)
+      kbo(:,32, 4) = (/ &
+     &3.7263e-04_rb,4.1679e-04_rb,4.6901e-04_rb,5.1118e-04_rb,5.5709e-04_rb/)
+      kbo(:,33, 4) = (/ &
+     &3.1452e-04_rb,3.5853e-04_rb,3.9810e-04_rb,4.3526e-04_rb,4.7464e-04_rb/)
+      kbo(:,34, 4) = (/ &
+     &2.6538e-04_rb,3.0537e-04_rb,3.3607e-04_rb,3.6889e-04_rb,4.0236e-04_rb/)
+      kbo(:,35, 4) = (/ &
+     &2.2314e-04_rb,2.5674e-04_rb,2.8212e-04_rb,3.1017e-04_rb,3.3804e-04_rb/)
+      kbo(:,36, 4) = (/ &
+     &1.8558e-04_rb,2.1307e-04_rb,2.3484e-04_rb,2.5807e-04_rb,2.8146e-04_rb/)
+      kbo(:,37, 4) = (/ &
+     &1.5092e-04_rb,1.7515e-04_rb,1.9371e-04_rb,2.1363e-04_rb,2.3312e-04_rb/)
+      kbo(:,38, 4) = (/ &
+     &1.2396e-04_rb,1.4379e-04_rb,1.5969e-04_rb,1.7662e-04_rb,1.9284e-04_rb/)
+      kbo(:,39, 4) = (/ &
+     &1.0157e-04_rb,1.1773e-04_rb,1.3175e-04_rb,1.4587e-04_rb,1.5934e-04_rb/)
+      kbo(:,40, 4) = (/ &
+     &8.2605e-05_rb,9.4273e-05_rb,1.0813e-04_rb,1.1977e-04_rb,1.3107e-04_rb/)
+      kbo(:,41, 4) = (/ &
+     &6.6939e-05_rb,7.5416e-05_rb,8.8332e-05_rb,9.8121e-05_rb,1.0774e-04_rb/)
+      kbo(:,42, 4) = (/ &
+     &5.4049e-05_rb,6.0030e-05_rb,7.1511e-05_rb,8.0199e-05_rb,8.8261e-05_rb/)
+      kbo(:,43, 4) = (/ &
+     &4.3092e-05_rb,4.8470e-05_rb,5.6902e-05_rb,6.4800e-05_rb,7.1905e-05_rb/)
+      kbo(:,44, 4) = (/ &
+     &3.4303e-05_rb,3.8888e-05_rb,4.4709e-05_rb,5.2317e-05_rb,5.8294e-05_rb/)
+      kbo(:,45, 4) = (/ &
+     &2.7706e-05_rb,3.1192e-05_rb,3.5138e-05_rb,4.1880e-05_rb,4.7037e-05_rb/)
+      kbo(:,46, 4) = (/ &
+     &2.2020e-05_rb,2.4816e-05_rb,2.8235e-05_rb,3.2847e-05_rb,3.7855e-05_rb/)
+      kbo(:,47, 4) = (/ &
+     &1.7397e-05_rb,1.9571e-05_rb,2.2339e-05_rb,2.5403e-05_rb,3.0154e-05_rb/)
+      kbo(:,48, 4) = (/ &
+     &1.4464e-05_rb,1.5535e-05_rb,1.7628e-05_rb,2.0160e-05_rb,2.3523e-05_rb/)
+      kbo(:,49, 4) = (/ &
+     &1.2203e-05_rb,1.2334e-05_rb,1.3809e-05_rb,1.5955e-05_rb,1.8189e-05_rb/)
+      kbo(:,50, 4) = (/ &
+     &1.0868e-05_rb,1.0166e-05_rb,1.1038e-05_rb,1.2542e-05_rb,1.4482e-05_rb/)
+      kbo(:,51, 4) = (/ &
+     &9.5445e-06_rb,8.4914e-06_rb,8.8728e-06_rb,9.7788e-06_rb,1.1531e-05_rb/)
+      kbo(:,52, 4) = (/ &
+     &7.6675e-06_rb,7.5593e-06_rb,7.1200e-06_rb,7.9511e-06_rb,9.0030e-06_rb/)
+      kbo(:,53, 4) = (/ &
+     &6.1578e-06_rb,6.8621e-06_rb,5.9549e-06_rb,6.4007e-06_rb,7.0103e-06_rb/)
+      kbo(:,54, 4) = (/ &
+     &4.9970e-06_rb,5.5372e-06_rb,5.2950e-06_rb,5.1133e-06_rb,5.6754e-06_rb/)
+      kbo(:,55, 4) = (/ &
+     &4.1058e-06_rb,4.4463e-06_rb,4.8381e-06_rb,4.2110e-06_rb,4.6398e-06_rb/)
+      kbo(:,56, 4) = (/ &
+     &3.3825e-06_rb,3.6285e-06_rb,4.0286e-06_rb,3.7391e-06_rb,3.7193e-06_rb/)
+      kbo(:,57, 4) = (/ &
+     &2.7087e-06_rb,2.9631e-06_rb,3.2500e-06_rb,3.4185e-06_rb,3.0256e-06_rb/)
+      kbo(:,58, 4) = (/ &
+     &2.0759e-06_rb,2.4918e-06_rb,2.6378e-06_rb,2.9253e-06_rb,2.6729e-06_rb/)
+      kbo(:,59, 4) = (/ &
+     &1.6942e-06_rb,2.0927e-06_rb,2.1992e-06_rb,2.4373e-06_rb,2.3395e-06_rb/)
+      kbo(:,13, 5) = (/ &
+     &1.7253e-02_rb,1.9755e-02_rb,2.1401e-02_rb,2.3591e-02_rb,2.8114e-02_rb/)
+      kbo(:,14, 5) = (/ &
+     &1.4836e-02_rb,1.6934e-02_rb,1.8341e-02_rb,2.1005e-02_rb,2.4456e-02_rb/)
+      kbo(:,15, 5) = (/ &
+     &1.2786e-02_rb,1.4254e-02_rb,1.5589e-02_rb,1.8700e-02_rb,2.1272e-02_rb/)
+      kbo(:,16, 5) = (/ &
+     &1.0892e-02_rb,1.2056e-02_rb,1.3761e-02_rb,1.6336e-02_rb,1.8224e-02_rb/)
+      kbo(:,17, 5) = (/ &
+     &9.1405e-03_rb,1.0167e-02_rb,1.2171e-02_rb,1.4009e-02_rb,1.5426e-02_rb/)
+      kbo(:,18, 5) = (/ &
+     &7.6420e-03_rb,8.7762e-03_rb,1.0582e-02_rb,1.1875e-02_rb,1.2969e-02_rb/)
+      kbo(:,19, 5) = (/ &
+     &6.4312e-03_rb,7.6685e-03_rb,8.9635e-03_rb,9.9226e-03_rb,1.0844e-02_rb/)
+      kbo(:,20, 5) = (/ &
+     &5.4039e-03_rb,6.6521e-03_rb,7.5702e-03_rb,8.3653e-03_rb,9.0934e-03_rb/)
+      kbo(:,21, 5) = (/ &
+     &4.6584e-03_rb,5.7137e-03_rb,6.4063e-03_rb,7.0462e-03_rb,7.6384e-03_rb/)
+      kbo(:,22, 5) = (/ &
+     &4.1485e-03_rb,4.9033e-03_rb,5.4200e-03_rb,5.9610e-03_rb,6.4648e-03_rb/)
+      kbo(:,23, 5) = (/ &
+     &3.6403e-03_rb,4.1705e-03_rb,4.6055e-03_rb,5.0423e-03_rb,5.4667e-03_rb/)
+      kbo(:,24, 5) = (/ &
+     &3.1466e-03_rb,3.5285e-03_rb,3.8988e-03_rb,4.2642e-03_rb,4.6134e-03_rb/)
+      kbo(:,25, 5) = (/ &
+     &2.6968e-03_rb,2.9919e-03_rb,3.3029e-03_rb,3.6014e-03_rb,3.8905e-03_rb/)
+      kbo(:,26, 5) = (/ &
+     &2.2919e-03_rb,2.5427e-03_rb,2.7966e-03_rb,3.0460e-03_rb,3.3030e-03_rb/)
+      kbo(:,27, 5) = (/ &
+     &1.9487e-03_rb,2.1617e-03_rb,2.3708e-03_rb,2.5760e-03_rb,2.8001e-03_rb/)
+      kbo(:,28, 5) = (/ &
+     &1.6604e-03_rb,1.8339e-03_rb,2.0064e-03_rb,2.1858e-03_rb,2.3683e-03_rb/)
+      kbo(:,29, 5) = (/ &
+     &1.4167e-03_rb,1.5573e-03_rb,1.7005e-03_rb,1.8546e-03_rb,2.0015e-03_rb/)
+      kbo(:,30, 5) = (/ &
+     &1.2043e-03_rb,1.3228e-03_rb,1.4435e-03_rb,1.5699e-03_rb,1.6896e-03_rb/)
+      kbo(:,31, 5) = (/ &
+     &1.0225e-03_rb,1.1229e-03_rb,1.2273e-03_rb,1.3283e-03_rb,1.4296e-03_rb/)
+      kbo(:,32, 5) = (/ &
+     &8.6992e-04_rb,9.5293e-04_rb,1.0416e-03_rb,1.1243e-03_rb,1.2104e-03_rb/)
+      kbo(:,33, 5) = (/ &
+     &7.3968e-04_rb,8.1278e-04_rb,8.8420e-04_rb,9.5333e-04_rb,1.0276e-03_rb/)
+      kbo(:,34, 5) = (/ &
+     &6.2724e-04_rb,6.8945e-04_rb,7.4802e-04_rb,8.0740e-04_rb,8.7396e-04_rb/)
+      kbo(:,35, 5) = (/ &
+     &5.2729e-04_rb,5.7995e-04_rb,6.2910e-04_rb,6.7983e-04_rb,7.3853e-04_rb/)
+      kbo(:,36, 5) = (/ &
+     &4.3895e-04_rb,4.8339e-04_rb,5.2479e-04_rb,5.6936e-04_rb,6.1891e-04_rb/)
+      kbo(:,37, 5) = (/ &
+     &3.6323e-04_rb,4.0071e-04_rb,4.3613e-04_rb,4.7458e-04_rb,5.1673e-04_rb/)
+      kbo(:,38, 5) = (/ &
+     &3.0001e-04_rb,3.3215e-04_rb,3.6263e-04_rb,3.9587e-04_rb,4.3165e-04_rb/)
+      kbo(:,39, 5) = (/ &
+     &2.4808e-04_rb,2.7543e-04_rb,3.0133e-04_rb,3.3050e-04_rb,3.6200e-04_rb/)
+      kbo(:,40, 5) = (/ &
+     &2.0392e-04_rb,2.2766e-04_rb,2.5038e-04_rb,2.7569e-04_rb,3.0329e-04_rb/)
+      kbo(:,41, 5) = (/ &
+     &1.6718e-04_rb,1.8754e-04_rb,2.0771e-04_rb,2.3036e-04_rb,2.5452e-04_rb/)
+      kbo(:,42, 5) = (/ &
+     &1.3676e-04_rb,1.5432e-04_rb,1.7210e-04_rb,1.9216e-04_rb,2.1391e-04_rb/)
+      kbo(:,43, 5) = (/ &
+     &1.1103e-04_rb,1.2612e-04_rb,1.4186e-04_rb,1.5938e-04_rb,1.7898e-04_rb/)
+      kbo(:,44, 5) = (/ &
+     &8.9549e-05_rb,1.0259e-04_rb,1.1643e-04_rb,1.3169e-04_rb,1.4912e-04_rb/)
+      kbo(:,45, 5) = (/ &
+     &7.2088e-05_rb,8.3098e-05_rb,9.5307e-05_rb,1.0860e-04_rb,1.2373e-04_rb/)
+      kbo(:,46, 5) = (/ &
+     &5.7589e-05_rb,6.6833e-05_rb,7.7497e-05_rb,8.9096e-05_rb,1.0212e-04_rb/)
+      kbo(:,47, 5) = (/ &
+     &4.5404e-05_rb,5.3366e-05_rb,6.2424e-05_rb,7.2413e-05_rb,8.3476e-05_rb/)
+      kbo(:,48, 5) = (/ &
+     &3.5296e-05_rb,4.2388e-05_rb,4.9972e-05_rb,5.8618e-05_rb,6.7991e-05_rb/)
+      kbo(:,49, 5) = (/ &
+     &2.7057e-05_rb,3.3322e-05_rb,3.9733e-05_rb,4.7217e-05_rb,5.5093e-05_rb/)
+      kbo(:,50, 5) = (/ &
+     &2.0028e-05_rb,2.6063e-05_rb,3.1674e-05_rb,3.7934e-05_rb,4.4693e-05_rb/)
+      kbo(:,51, 5) = (/ &
+     &1.4762e-05_rb,2.0261e-05_rb,2.5067e-05_rb,3.0345e-05_rb,3.6144e-05_rb/)
+      kbo(:,52, 5) = (/ &
+     &1.1471e-05_rb,1.5106e-05_rb,1.9721e-05_rb,2.4107e-05_rb,2.9127e-05_rb/)
+      kbo(:,53, 5) = (/ &
+     &8.8078e-06_rb,1.0927e-05_rb,1.5370e-05_rb,1.9101e-05_rb,2.3328e-05_rb/)
+      kbo(:,54, 5) = (/ &
+     &6.7922e-06_rb,8.5333e-06_rb,1.1608e-05_rb,1.5114e-05_rb,1.8676e-05_rb/)
+      kbo(:,55, 5) = (/ &
+     &5.2087e-06_rb,6.6736e-06_rb,8.5401e-06_rb,1.1909e-05_rb,1.4884e-05_rb/)
+      kbo(:,56, 5) = (/ &
+     &3.9778e-06_rb,5.1458e-06_rb,6.5614e-06_rb,9.1281e-06_rb,1.1849e-05_rb/)
+      kbo(:,57, 5) = (/ &
+     &3.4293e-06_rb,3.9957e-06_rb,5.1202e-06_rb,6.7753e-06_rb,9.3431e-06_rb/)
+      kbo(:,58, 5) = (/ &
+     &3.0812e-06_rb,3.0418e-06_rb,3.9938e-06_rb,5.1720e-06_rb,7.2446e-06_rb/)
+      kbo(:,59, 5) = (/ &
+     &2.6710e-06_rb,2.4462e-06_rb,3.2530e-06_rb,4.2384e-06_rb,5.8592e-06_rb/)
+      kbo(:,13, 6) = (/ &
+     &4.3826e-02_rb,5.0848e-02_rb,5.7125e-02_rb,6.2916e-02_rb,6.7915e-02_rb/)
+      kbo(:,14, 6) = (/ &
+     &3.8242e-02_rb,4.3851e-02_rb,4.9242e-02_rb,5.3907e-02_rb,5.8385e-02_rb/)
+      kbo(:,15, 6) = (/ &
+     &3.3170e-02_rb,3.7873e-02_rb,4.2212e-02_rb,4.6203e-02_rb,5.0021e-02_rb/)
+      kbo(:,16, 6) = (/ &
+     &2.8430e-02_rb,3.2381e-02_rb,3.6071e-02_rb,3.9408e-02_rb,4.2554e-02_rb/)
+      kbo(:,17, 6) = (/ &
+     &2.4252e-02_rb,2.7453e-02_rb,3.0545e-02_rb,3.3265e-02_rb,3.5923e-02_rb/)
+      kbo(:,18, 6) = (/ &
+     &2.0461e-02_rb,2.3166e-02_rb,2.5616e-02_rb,2.7856e-02_rb,3.0048e-02_rb/)
+      kbo(:,19, 6) = (/ &
+     &1.7273e-02_rb,1.9462e-02_rb,2.1473e-02_rb,2.3367e-02_rb,2.5163e-02_rb/)
+      kbo(:,20, 6) = (/ &
+     &1.4713e-02_rb,1.6450e-02_rb,1.8126e-02_rb,1.9702e-02_rb,2.1262e-02_rb/)
+      kbo(:,21, 6) = (/ &
+     &1.2468e-02_rb,1.3887e-02_rb,1.5268e-02_rb,1.6611e-02_rb,1.7949e-02_rb/)
+      kbo(:,22, 6) = (/ &
+     &1.0608e-02_rb,1.1782e-02_rb,1.2961e-02_rb,1.4100e-02_rb,1.5205e-02_rb/)
+      kbo(:,23, 6) = (/ &
+     &8.9996e-03_rb,9.9872e-03_rb,1.1001e-02_rb,1.1992e-02_rb,1.2875e-02_rb/)
+      kbo(:,24, 6) = (/ &
+     &7.6639e-03_rb,8.5225e-03_rb,9.3703e-03_rb,1.0166e-02_rb,1.0905e-02_rb/)
+      kbo(:,25, 6) = (/ &
+     &6.5402e-03_rb,7.2570e-03_rb,7.9762e-03_rb,8.6328e-03_rb,9.2482e-03_rb/)
+      kbo(:,26, 6) = (/ &
+     &5.5998e-03_rb,6.2109e-03_rb,6.7992e-03_rb,7.3298e-03_rb,7.8244e-03_rb/)
+      kbo(:,27, 6) = (/ &
+     &4.7932e-03_rb,5.3061e-03_rb,5.7794e-03_rb,6.2257e-03_rb,6.6438e-03_rb/)
+      kbo(:,28, 6) = (/ &
+     &4.0951e-03_rb,4.5312e-03_rb,4.9233e-03_rb,5.2892e-03_rb,5.6437e-03_rb/)
+      kbo(:,29, 6) = (/ &
+     &3.5062e-03_rb,3.8638e-03_rb,4.1941e-03_rb,4.4995e-03_rb,4.7944e-03_rb/)
+      kbo(:,30, 6) = (/ &
+     &2.9997e-03_rb,3.2915e-03_rb,3.5642e-03_rb,3.8238e-03_rb,4.0827e-03_rb/)
+      kbo(:,31, 6) = (/ &
+     &2.5609e-03_rb,2.8021e-03_rb,3.0278e-03_rb,3.2471e-03_rb,3.4700e-03_rb/)
+      kbo(:,32, 6) = (/ &
+     &2.1838e-03_rb,2.3823e-03_rb,2.5746e-03_rb,2.7615e-03_rb,2.9515e-03_rb/)
+      kbo(:,33, 6) = (/ &
+     &1.8610e-03_rb,2.0261e-03_rb,2.1868e-03_rb,2.3490e-03_rb,2.5125e-03_rb/)
+      kbo(:,34, 6) = (/ &
+     &1.5812e-03_rb,1.7190e-03_rb,1.8561e-03_rb,1.9953e-03_rb,2.1347e-03_rb/)
+      kbo(:,35, 6) = (/ &
+     &1.3323e-03_rb,1.4487e-03_rb,1.5664e-03_rb,1.6864e-03_rb,1.8025e-03_rb/)
+      kbo(:,36, 6) = (/ &
+     &1.1120e-03_rb,1.2101e-03_rb,1.3111e-03_rb,1.4134e-03_rb,1.5124e-03_rb/)
+      kbo(:,37, 6) = (/ &
+     &9.2067e-04_rb,1.0045e-03_rb,1.0903e-03_rb,1.1790e-03_rb,1.2650e-03_rb/)
+      kbo(:,38, 6) = (/ &
+     &7.6186e-04_rb,8.3301e-04_rb,9.0690e-04_rb,9.8204e-04_rb,1.0582e-03_rb/)
+      kbo(:,39, 6) = (/ &
+     &6.3121e-04_rb,6.9074e-04_rb,7.5442e-04_rb,8.1836e-04_rb,8.8377e-04_rb/)
+      kbo(:,40, 6) = (/ &
+     &5.2096e-04_rb,5.7198e-04_rb,6.2426e-04_rb,6.7904e-04_rb,7.3548e-04_rb/)
+      kbo(:,41, 6) = (/ &
+     &4.2992e-04_rb,4.7365e-04_rb,5.1846e-04_rb,5.6371e-04_rb,6.1228e-04_rb/)
+      kbo(:,42, 6) = (/ &
+     &3.5500e-04_rb,3.9262e-04_rb,4.3159e-04_rb,4.7009e-04_rb,5.1120e-04_rb/)
+      kbo(:,43, 6) = (/ &
+     &2.9285e-04_rb,3.2562e-04_rb,3.5900e-04_rb,3.9210e-04_rb,4.2694e-04_rb/)
+      kbo(:,44, 6) = (/ &
+     &2.4061e-04_rb,2.6923e-04_rb,2.9805e-04_rb,3.2732e-04_rb,3.5760e-04_rb/)
+      kbo(:,45, 6) = (/ &
+     &1.9754e-04_rb,2.2270e-04_rb,2.4799e-04_rb,2.7345e-04_rb,3.0033e-04_rb/)
+      kbo(:,46, 6) = (/ &
+     &1.6118e-04_rb,1.8331e-04_rb,2.0573e-04_rb,2.2834e-04_rb,2.5255e-04_rb/)
+      kbo(:,47, 6) = (/ &
+     &1.3001e-04_rb,1.4919e-04_rb,1.6905e-04_rb,1.8953e-04_rb,2.1172e-04_rb/)
+      kbo(:,48, 6) = (/ &
+     &1.0430e-04_rb,1.2103e-04_rb,1.3853e-04_rb,1.5665e-04_rb,1.7689e-04_rb/)
+      kbo(:,49, 6) = (/ &
+     &8.3158e-05_rb,9.7679e-05_rb,1.1288e-04_rb,1.2898e-04_rb,1.4689e-04_rb/)
+      kbo(:,50, 6) = (/ &
+     &6.6182e-05_rb,7.8799e-05_rb,9.1873e-05_rb,1.0601e-04_rb,1.2184e-04_rb/)
+      kbo(:,51, 6) = (/ &
+     &5.2460e-05_rb,6.3349e-05_rb,7.4559e-05_rb,8.7033e-05_rb,1.0081e-04_rb/)
+      kbo(:,52, 6) = (/ &
+     &4.1391e-05_rb,5.0671e-05_rb,6.0237e-05_rb,7.1015e-05_rb,8.3290e-05_rb/)
+      kbo(:,53, 6) = (/ &
+     &3.2451e-05_rb,4.0299e-05_rb,4.8474e-05_rb,5.7732e-05_rb,6.8499e-05_rb/)
+      kbo(:,54, 6) = (/ &
+     &2.5414e-05_rb,3.2075e-05_rb,3.9061e-05_rb,4.7059e-05_rb,5.6458e-05_rb/)
+      kbo(:,55, 6) = (/ &
+     &1.9791e-05_rb,2.5430e-05_rb,3.1447e-05_rb,3.8320e-05_rb,4.6433e-05_rb/)
+      kbo(:,56, 6) = (/ &
+     &1.5282e-05_rb,2.0059e-05_rb,2.5203e-05_rb,3.1033e-05_rb,3.8063e-05_rb/)
+      kbo(:,57, 6) = (/ &
+     &1.1377e-05_rb,1.5690e-05_rb,2.0076e-05_rb,2.5035e-05_rb,3.1091e-05_rb/)
+      kbo(:,58, 6) = (/ &
+     &8.3098e-06_rb,1.2203e-05_rb,1.5952e-05_rb,2.0176e-05_rb,2.5366e-05_rb/)
+      kbo(:,59, 6) = (/ &
+     &6.5651e-06_rb,9.9766e-06_rb,1.3186e-05_rb,1.6915e-05_rb,2.1496e-05_rb/)
+      kbo(:,13, 7) = (/ &
+     &1.1534e-01_rb,1.2733e-01_rb,1.3962e-01_rb,1.4987e-01_rb,1.6008e-01_rb/)
+      kbo(:,14, 7) = (/ &
+     &9.8557e-02_rb,1.0921e-01_rb,1.1846e-01_rb,1.2756e-01_rb,1.3545e-01_rb/)
+      kbo(:,15, 7) = (/ &
+     &8.4816e-02_rb,9.3361e-02_rb,1.0130e-01_rb,1.0828e-01_rb,1.1452e-01_rb/)
+      kbo(:,16, 7) = (/ &
+     &7.2792e-02_rb,7.9992e-02_rb,8.6025e-02_rb,9.1745e-02_rb,9.7220e-02_rb/)
+      kbo(:,17, 7) = (/ &
+     &6.2250e-02_rb,6.8145e-02_rb,7.3215e-02_rb,7.8161e-02_rb,8.2912e-02_rb/)
+      kbo(:,18, 7) = (/ &
+     &5.2897e-02_rb,5.7617e-02_rb,6.2131e-02_rb,6.6296e-02_rb,7.0468e-02_rb/)
+      kbo(:,19, 7) = (/ &
+     &4.4630e-02_rb,4.8620e-02_rb,5.2395e-02_rb,5.5983e-02_rb,5.9561e-02_rb/)
+      kbo(:,20, 7) = (/ &
+     &3.7638e-02_rb,4.1018e-02_rb,4.4192e-02_rb,4.7348e-02_rb,5.0426e-02_rb/)
+      kbo(:,21, 7) = (/ &
+     &3.1712e-02_rb,3.4570e-02_rb,3.7337e-02_rb,4.0055e-02_rb,4.2699e-02_rb/)
+      kbo(:,22, 7) = (/ &
+     &2.6951e-02_rb,2.9361e-02_rb,3.1724e-02_rb,3.4058e-02_rb,3.6337e-02_rb/)
+      kbo(:,23, 7) = (/ &
+     &2.2985e-02_rb,2.5005e-02_rb,2.7002e-02_rb,2.8884e-02_rb,3.0844e-02_rb/)
+      kbo(:,24, 7) = (/ &
+     &1.9564e-02_rb,2.1275e-02_rb,2.2950e-02_rb,2.4579e-02_rb,2.6269e-02_rb/)
+      kbo(:,25, 7) = (/ &
+     &1.6678e-02_rb,1.8134e-02_rb,1.9557e-02_rb,2.0984e-02_rb,2.2448e-02_rb/)
+      kbo(:,26, 7) = (/ &
+     &1.4215e-02_rb,1.5478e-02_rb,1.6731e-02_rb,1.8053e-02_rb,1.9409e-02_rb/)
+      kbo(:,27, 7) = (/ &
+     &1.2146e-02_rb,1.3259e-02_rb,1.4401e-02_rb,1.5542e-02_rb,1.6732e-02_rb/)
+      kbo(:,28, 7) = (/ &
+     &1.0451e-02_rb,1.1387e-02_rb,1.2366e-02_rb,1.3378e-02_rb,1.4403e-02_rb/)
+      kbo(:,29, 7) = (/ &
+     &8.9638e-03_rb,9.7824e-03_rb,1.0625e-02_rb,1.1522e-02_rb,1.2402e-02_rb/)
+      kbo(:,30, 7) = (/ &
+     &7.7059e-03_rb,8.4110e-03_rb,9.1535e-03_rb,9.9173e-03_rb,1.0684e-02_rb/)
+      kbo(:,31, 7) = (/ &
+     &6.6159e-03_rb,7.2344e-03_rb,7.8777e-03_rb,8.5358e-03_rb,9.2030e-03_rb/)
+      kbo(:,32, 7) = (/ &
+     &5.6925e-03_rb,6.2370e-03_rb,6.7880e-03_rb,7.3601e-03_rb,7.9298e-03_rb/)
+      kbo(:,33, 7) = (/ &
+     &4.9047e-03_rb,5.3755e-03_rb,5.8574e-03_rb,6.3478e-03_rb,6.8444e-03_rb/)
+      kbo(:,34, 7) = (/ &
+     &4.2261e-03_rb,4.6310e-03_rb,5.0504e-03_rb,5.4765e-03_rb,5.9065e-03_rb/)
+      kbo(:,35, 7) = (/ &
+     &3.6014e-03_rb,3.9541e-03_rb,4.3177e-03_rb,4.6806e-03_rb,5.0649e-03_rb/)
+      kbo(:,36, 7) = (/ &
+     &3.0405e-03_rb,3.3438e-03_rb,3.6573e-03_rb,3.9714e-03_rb,4.3136e-03_rb/)
+      kbo(:,37, 7) = (/ &
+     &2.5476e-03_rb,2.8157e-03_rb,3.0872e-03_rb,3.3632e-03_rb,3.6681e-03_rb/)
+      kbo(:,38, 7) = (/ &
+     &2.1334e-03_rb,2.3678e-03_rb,2.6052e-03_rb,2.8532e-03_rb,3.1134e-03_rb/)
+      kbo(:,39, 7) = (/ &
+     &1.7845e-03_rb,1.9869e-03_rb,2.1996e-03_rb,2.4178e-03_rb,2.6484e-03_rb/)
+      kbo(:,40, 7) = (/ &
+     &1.4840e-03_rb,1.6609e-03_rb,1.8504e-03_rb,2.0474e-03_rb,2.2560e-03_rb/)
+      kbo(:,41, 7) = (/ &
+     &1.2344e-03_rb,1.3898e-03_rb,1.5559e-03_rb,1.7345e-03_rb,1.9234e-03_rb/)
+      kbo(:,42, 7) = (/ &
+     &1.0314e-03_rb,1.1653e-03_rb,1.3107e-03_rb,1.4669e-03_rb,1.6353e-03_rb/)
+      kbo(:,43, 7) = (/ &
+     &8.5631e-04_rb,9.7409e-04_rb,1.1003e-03_rb,1.2355e-03_rb,1.3860e-03_rb/)
+      kbo(:,44, 7) = (/ &
+     &7.0883e-04_rb,8.1303e-04_rb,9.2536e-04_rb,1.0435e-03_rb,1.1739e-03_rb/)
+      kbo(:,45, 7) = (/ &
+     &5.8732e-04_rb,6.7556e-04_rb,7.7384e-04_rb,8.8025e-04_rb,9.9590e-04_rb/)
+      kbo(:,46, 7) = (/ &
+     &4.8484e-04_rb,5.6171e-04_rb,6.4432e-04_rb,7.3847e-04_rb,8.4169e-04_rb/)
+      kbo(:,47, 7) = (/ &
+     &3.9752e-04_rb,4.6412e-04_rb,5.3807e-04_rb,6.1858e-04_rb,7.0821e-04_rb/)
+      kbo(:,48, 7) = (/ &
+     &3.2593e-04_rb,3.8380e-04_rb,4.4885e-04_rb,5.1997e-04_rb,5.9487e-04_rb/)
+      kbo(:,49, 7) = (/ &
+     &2.6581e-04_rb,3.1620e-04_rb,3.7509e-04_rb,4.3658e-04_rb,5.0219e-04_rb/)
+      kbo(:,50, 7) = (/ &
+     &2.1682e-04_rb,2.6203e-04_rb,3.1361e-04_rb,3.6786e-04_rb,4.2524e-04_rb/)
+      kbo(:,51, 7) = (/ &
+     &1.7696e-04_rb,2.1726e-04_rb,2.6292e-04_rb,3.1080e-04_rb,3.6141e-04_rb/)
+      kbo(:,52, 7) = (/ &
+     &1.4350e-04_rb,1.8000e-04_rb,2.2008e-04_rb,2.6275e-04_rb,3.0811e-04_rb/)
+      kbo(:,53, 7) = (/ &
+     &1.1566e-04_rb,1.4775e-04_rb,1.8326e-04_rb,2.2179e-04_rb,2.6354e-04_rb/)
+      kbo(:,54, 7) = (/ &
+     &9.3174e-05_rb,1.2130e-04_rb,1.5287e-04_rb,1.8794e-04_rb,2.2723e-04_rb/)
+      kbo(:,55, 7) = (/ &
+     &7.4812e-05_rb,9.9351e-05_rb,1.2721e-04_rb,1.5976e-04_rb,1.9539e-04_rb/)
+      kbo(:,56, 7) = (/ &
+     &5.9751e-05_rb,8.0907e-05_rb,1.0532e-04_rb,1.3503e-04_rb,1.6719e-04_rb/)
+      kbo(:,57, 7) = (/ &
+     &4.7338e-05_rb,6.5345e-05_rb,8.6815e-05_rb,1.1307e-04_rb,1.4234e-04_rb/)
+      kbo(:,58, 7) = (/ &
+     &3.7388e-05_rb,5.2674e-05_rb,7.1720e-05_rb,9.4757e-05_rb,1.2118e-04_rb/)
+      kbo(:,59, 7) = (/ &
+     &3.1368e-05_rb,4.4899e-05_rb,6.2069e-05_rb,8.2754e-05_rb,1.0682e-04_rb/)
+      kbo(:,13, 8) = (/ &
+     &3.8513e-01_rb,4.3049e-01_rb,4.7109e-01_rb,5.0795e-01_rb,5.3980e-01_rb/)
+      kbo(:,14, 8) = (/ &
+     &3.2769e-01_rb,3.6398e-01_rb,3.9786e-01_rb,4.2776e-01_rb,4.5444e-01_rb/)
+      kbo(:,15, 8) = (/ &
+     &2.7898e-01_rb,3.0981e-01_rb,3.3796e-01_rb,3.6334e-01_rb,3.8812e-01_rb/)
+      kbo(:,16, 8) = (/ &
+     &2.3683e-01_rb,2.6231e-01_rb,2.8577e-01_rb,3.0755e-01_rb,3.2800e-01_rb/)
+      kbo(:,17, 8) = (/ &
+     &2.0036e-01_rb,2.2125e-01_rb,2.4047e-01_rb,2.5907e-01_rb,2.7604e-01_rb/)
+      kbo(:,18, 8) = (/ &
+     &1.7015e-01_rb,1.8726e-01_rb,2.0338e-01_rb,2.1873e-01_rb,2.3341e-01_rb/)
+      kbo(:,19, 8) = (/ &
+     &1.4494e-01_rb,1.5899e-01_rb,1.7245e-01_rb,1.8542e-01_rb,1.9788e-01_rb/)
+      kbo(:,20, 8) = (/ &
+     &1.2385e-01_rb,1.3588e-01_rb,1.4742e-01_rb,1.5823e-01_rb,1.6882e-01_rb/)
+      kbo(:,21, 8) = (/ &
+     &1.0654e-01_rb,1.1655e-01_rb,1.2609e-01_rb,1.3545e-01_rb,1.4408e-01_rb/)
+      kbo(:,22, 8) = (/ &
+     &9.1991e-02_rb,1.0041e-01_rb,1.0849e-01_rb,1.1626e-01_rb,1.2371e-01_rb/)
+      kbo(:,23, 8) = (/ &
+     &7.9046e-02_rb,8.6400e-02_rb,9.3327e-02_rb,9.9889e-02_rb,1.0642e-01_rb/)
+      kbo(:,24, 8) = (/ &
+     &6.8021e-02_rb,7.4328e-02_rb,8.0300e-02_rb,8.6084e-02_rb,9.1544e-02_rb/)
+      kbo(:,25, 8) = (/ &
+     &5.8516e-02_rb,6.3854e-02_rb,6.9101e-02_rb,7.4075e-02_rb,7.8861e-02_rb/)
+      kbo(:,26, 8) = (/ &
+     &5.0443e-02_rb,5.5091e-02_rb,5.9525e-02_rb,6.3760e-02_rb,6.7833e-02_rb/)
+      kbo(:,27, 8) = (/ &
+     &4.3538e-02_rb,4.7477e-02_rb,5.1180e-02_rb,5.4850e-02_rb,5.8530e-02_rb/)
+      kbo(:,28, 8) = (/ &
+     &3.7617e-02_rb,4.0916e-02_rb,4.4139e-02_rb,4.7301e-02_rb,5.0513e-02_rb/)
+      kbo(:,29, 8) = (/ &
+     &3.2546e-02_rb,3.5342e-02_rb,3.8069e-02_rb,4.0845e-02_rb,4.3756e-02_rb/)
+      kbo(:,30, 8) = (/ &
+     &2.8067e-02_rb,3.0536e-02_rb,3.2922e-02_rb,3.5388e-02_rb,3.8072e-02_rb/)
+      kbo(:,31, 8) = (/ &
+     &2.4245e-02_rb,2.6387e-02_rb,2.8550e-02_rb,3.0769e-02_rb,3.3007e-02_rb/)
+      kbo(:,32, 8) = (/ &
+     &2.1010e-02_rb,2.2870e-02_rb,2.4839e-02_rb,2.6760e-02_rb,2.8725e-02_rb/)
+      kbo(:,33, 8) = (/ &
+     &1.8247e-02_rb,1.9921e-02_rb,2.1633e-02_rb,2.3376e-02_rb,2.5089e-02_rb/)
+      kbo(:,34, 8) = (/ &
+     &1.5899e-02_rb,1.7453e-02_rb,1.8953e-02_rb,2.0489e-02_rb,2.2006e-02_rb/)
+      kbo(:,35, 8) = (/ &
+     &1.3799e-02_rb,1.5171e-02_rb,1.6500e-02_rb,1.7816e-02_rb,1.9222e-02_rb/)
+      kbo(:,36, 8) = (/ &
+     &1.1856e-02_rb,1.3040e-02_rb,1.4223e-02_rb,1.5409e-02_rb,1.6675e-02_rb/)
+      kbo(:,37, 8) = (/ &
+     &1.0122e-02_rb,1.1172e-02_rb,1.2227e-02_rb,1.3320e-02_rb,1.4426e-02_rb/)
+      kbo(:,38, 8) = (/ &
+     &8.6297e-03_rb,9.5720e-03_rb,1.0548e-02_rb,1.1499e-02_rb,1.2504e-02_rb/)
+      kbo(:,39, 8) = (/ &
+     &7.3583e-03_rb,8.2086e-03_rb,9.0807e-03_rb,9.9445e-03_rb,1.0852e-02_rb/)
+      kbo(:,40, 8) = (/ &
+     &6.2575e-03_rb,7.0294e-03_rb,7.8131e-03_rb,8.5974e-03_rb,9.4311e-03_rb/)
+      kbo(:,41, 8) = (/ &
+     &5.3221e-03_rb,6.0117e-03_rb,6.7242e-03_rb,7.4367e-03_rb,8.2130e-03_rb/)
+      kbo(:,42, 8) = (/ &
+     &4.5217e-03_rb,5.1291e-03_rb,5.7774e-03_rb,6.4411e-03_rb,7.1607e-03_rb/)
+      kbo(:,43, 8) = (/ &
+     &3.8118e-03_rb,4.3626e-03_rb,4.9535e-03_rb,5.5702e-03_rb,6.2186e-03_rb/)
+      kbo(:,44, 8) = (/ &
+     &3.1928e-03_rb,3.7055e-03_rb,4.2384e-03_rb,4.7956e-03_rb,5.3949e-03_rb/)
+      kbo(:,45, 8) = (/ &
+     &2.6724e-03_rb,3.1345e-03_rb,3.6292e-03_rb,4.1408e-03_rb,4.6835e-03_rb/)
+      kbo(:,46, 8) = (/ &
+     &2.2327e-03_rb,2.6446e-03_rb,3.0956e-03_rb,3.5684e-03_rb,4.0653e-03_rb/)
+      kbo(:,47, 8) = (/ &
+     &1.8490e-03_rb,2.2161e-03_rb,2.6105e-03_rb,3.0391e-03_rb,3.5058e-03_rb/)
+      kbo(:,48, 8) = (/ &
+     &1.5271e-03_rb,1.8513e-03_rb,2.2029e-03_rb,2.5798e-03_rb,3.0175e-03_rb/)
+      kbo(:,49, 8) = (/ &
+     &1.2568e-03_rb,1.5444e-03_rb,1.8551e-03_rb,2.1969e-03_rb,2.5931e-03_rb/)
+      kbo(:,50, 8) = (/ &
+     &1.0411e-03_rb,1.2920e-03_rb,1.5680e-03_rb,1.8789e-03_rb,2.2434e-03_rb/)
+      kbo(:,51, 8) = (/ &
+     &8.6157e-04_rb,1.0792e-03_rb,1.3252e-03_rb,1.6044e-03_rb,1.9374e-03_rb/)
+      kbo(:,52, 8) = (/ &
+     &7.1345e-04_rb,8.9803e-04_rb,1.1146e-03_rb,1.3696e-03_rb,1.6714e-03_rb/)
+      kbo(:,53, 8) = (/ &
+     &5.9120e-04_rb,7.4871e-04_rb,9.4040e-04_rb,1.1662e-03_rb,1.4395e-03_rb/)
+      kbo(:,54, 8) = (/ &
+     &4.9248e-04_rb,6.3323e-04_rb,7.9771e-04_rb,9.9957e-04_rb,1.2405e-03_rb/)
+      kbo(:,55, 8) = (/ &
+     &4.1065e-04_rb,5.3488e-04_rb,6.8225e-04_rb,8.6108e-04_rb,1.0736e-03_rb/)
+      kbo(:,56, 8) = (/ &
+     &3.4182e-04_rb,4.5283e-04_rb,5.8716e-04_rb,7.4149e-04_rb,9.3761e-04_rb/)
+      kbo(:,57, 8) = (/ &
+     &2.8276e-04_rb,3.8428e-04_rb,5.0468e-04_rb,6.4575e-04_rb,8.2300e-04_rb/)
+      kbo(:,58, 8) = (/ &
+     &2.3443e-04_rb,3.2611e-04_rb,4.3528e-04_rb,5.6896e-04_rb,7.2980e-04_rb/)
+      kbo(:,59, 8) = (/ &
+     &2.0666e-04_rb,2.9266e-04_rb,3.9707e-04_rb,5.2680e-04_rb,6.7824e-04_rb/)
+      kbo(:,13, 9) = (/ &
+     &2.6929e+00_rb,3.0365e+00_rb,3.3480e+00_rb,3.6295e+00_rb,3.8842e+00_rb/)
+      kbo(:,14, 9) = (/ &
+     &2.3218e+00_rb,2.6065e+00_rb,2.8670e+00_rb,3.1040e+00_rb,3.3162e+00_rb/)
+      kbo(:,15, 9) = (/ &
+     &1.9883e+00_rb,2.2252e+00_rb,2.4424e+00_rb,2.6373e+00_rb,2.8081e+00_rb/)
+      kbo(:,16, 9) = (/ &
+     &1.6988e+00_rb,1.8964e+00_rb,2.0747e+00_rb,2.2343e+00_rb,2.3791e+00_rb/)
+      kbo(:,17, 9) = (/ &
+     &1.4495e+00_rb,1.6116e+00_rb,1.7595e+00_rb,1.8933e+00_rb,2.0138e+00_rb/)
+      kbo(:,18, 9) = (/ &
+     &1.2318e+00_rb,1.3662e+00_rb,1.4893e+00_rb,1.6003e+00_rb,1.6980e+00_rb/)
+      kbo(:,19, 9) = (/ &
+     &1.0432e+00_rb,1.1554e+00_rb,1.2571e+00_rb,1.3476e+00_rb,1.4284e+00_rb/)
+      kbo(:,20, 9) = (/ &
+     &8.8399e-01_rb,9.7584e-01_rb,1.0583e+00_rb,1.1327e+00_rb,1.2000e+00_rb/)
+      kbo(:,21, 9) = (/ &
+     &7.4719e-01_rb,8.2246e-01_rb,8.9025e-01_rb,9.5182e-01_rb,1.0085e+00_rb/)
+      kbo(:,22, 9) = (/ &
+     &6.3607e-01_rb,6.9712e-01_rb,7.5292e-01_rb,8.0394e-01_rb,8.5135e-01_rb/)
+      kbo(:,23, 9) = (/ &
+     &5.4262e-01_rb,5.9143e-01_rb,6.3738e-01_rb,6.8008e-01_rb,7.1995e-01_rb/)
+      kbo(:,24, 9) = (/ &
+     &4.6285e-01_rb,5.0331e-01_rb,5.4067e-01_rb,5.7573e-01_rb,6.1046e-01_rb/)
+      kbo(:,25, 9) = (/ &
+     &3.9562e-01_rb,4.2919e-01_rb,4.6040e-01_rb,4.9042e-01_rb,5.1991e-01_rb/)
+      kbo(:,26, 9) = (/ &
+     &3.4017e-01_rb,3.6788e-01_rb,3.9442e-01_rb,4.2037e-01_rb,4.4731e-01_rb/)
+      kbo(:,27, 9) = (/ &
+     &2.9399e-01_rb,3.1651e-01_rb,3.3903e-01_rb,3.6222e-01_rb,3.8618e-01_rb/)
+      kbo(:,28, 9) = (/ &
+     &2.5435e-01_rb,2.7396e-01_rb,2.9328e-01_rb,3.1366e-01_rb,3.3524e-01_rb/)
+      kbo(:,29, 9) = (/ &
+     &2.2098e-01_rb,2.3815e-01_rb,2.5600e-01_rb,2.7395e-01_rb,2.9332e-01_rb/)
+      kbo(:,30, 9) = (/ &
+     &1.9332e-01_rb,2.0838e-01_rb,2.2416e-01_rb,2.4057e-01_rb,2.5735e-01_rb/)
+      kbo(:,31, 9) = (/ &
+     &1.6991e-01_rb,1.8327e-01_rb,1.9737e-01_rb,2.1207e-01_rb,2.2734e-01_rb/)
+      kbo(:,32, 9) = (/ &
+     &1.4986e-01_rb,1.6194e-01_rb,1.7445e-01_rb,1.8782e-01_rb,2.0152e-01_rb/)
+      kbo(:,33, 9) = (/ &
+     &1.3279e-01_rb,1.4378e-01_rb,1.5504e-01_rb,1.6697e-01_rb,1.7955e-01_rb/)
+      kbo(:,34, 9) = (/ &
+     &1.1789e-01_rb,1.2771e-01_rb,1.3816e-01_rb,1.4885e-01_rb,1.6033e-01_rb/)
+      kbo(:,35, 9) = (/ &
+     &1.0423e-01_rb,1.1314e-01_rb,1.2268e-01_rb,1.3249e-01_rb,1.4303e-01_rb/)
+      kbo(:,36, 9) = (/ &
+     &9.1569e-02_rb,9.9843e-02_rb,1.0848e-01_rb,1.1752e-01_rb,1.2715e-01_rb/)
+      kbo(:,37, 9) = (/ &
+     &7.9654e-02_rb,8.7324e-02_rb,9.5396e-02_rb,1.0365e-01_rb,1.1217e-01_rb/)
+      kbo(:,38, 9) = (/ &
+     &6.9582e-02_rb,7.6500e-02_rb,8.3939e-02_rb,9.1706e-02_rb,9.9308e-02_rb/)
+      kbo(:,39, 9) = (/ &
+     &6.0817e-02_rb,6.7147e-02_rb,7.4089e-02_rb,8.1389e-02_rb,8.8469e-02_rb/)
+      kbo(:,40, 9) = (/ &
+     &5.2895e-02_rb,5.8816e-02_rb,6.5088e-02_rb,7.1837e-02_rb,7.8761e-02_rb/)
+      kbo(:,41, 9) = (/ &
+     &4.5994e-02_rb,5.1507e-02_rb,5.7306e-02_rb,6.3493e-02_rb,7.0017e-02_rb/)
+      kbo(:,42, 9) = (/ &
+     &3.9933e-02_rb,4.5126e-02_rb,5.0659e-02_rb,5.6440e-02_rb,6.2355e-02_rb/)
+      kbo(:,43, 9) = (/ &
+     &3.4407e-02_rb,3.9333e-02_rb,4.4505e-02_rb,5.0025e-02_rb,5.5477e-02_rb/)
+      kbo(:,44, 9) = (/ &
+     &2.9641e-02_rb,3.4179e-02_rb,3.9085e-02_rb,4.4243e-02_rb,4.9585e-02_rb/)
+      kbo(:,45, 9) = (/ &
+     &2.5534e-02_rb,2.9717e-02_rb,3.4321e-02_rb,3.9331e-02_rb,4.4385e-02_rb/)
+      kbo(:,46, 9) = (/ &
+     &2.1943e-02_rb,2.5772e-02_rb,3.0011e-02_rb,3.4665e-02_rb,3.9677e-02_rb/)
+      kbo(:,47, 9) = (/ &
+     &1.8799e-02_rb,2.2299e-02_rb,2.6155e-02_rb,3.0452e-02_rb,3.5108e-02_rb/)
+      kbo(:,48, 9) = (/ &
+     &1.6134e-02_rb,1.9292e-02_rb,2.2898e-02_rb,2.6798e-02_rb,3.1152e-02_rb/)
+      kbo(:,49, 9) = (/ &
+     &1.3799e-02_rb,1.6693e-02_rb,1.9932e-02_rb,2.3629e-02_rb,2.7686e-02_rb/)
+      kbo(:,50, 9) = (/ &
+     &1.1807e-02_rb,1.4439e-02_rb,1.7455e-02_rb,2.0914e-02_rb,2.4717e-02_rb/)
+      kbo(:,51, 9) = (/ &
+     &1.0105e-02_rb,1.2520e-02_rb,1.5304e-02_rb,1.8588e-02_rb,2.2129e-02_rb/)
+      kbo(:,52, 9) = (/ &
+     &8.6629e-03_rb,1.0849e-02_rb,1.3445e-02_rb,1.6444e-02_rb,1.9913e-02_rb/)
+      kbo(:,53, 9) = (/ &
+     &7.4874e-03_rb,9.4257e-03_rb,1.1801e-02_rb,1.4610e-02_rb,1.7870e-02_rb/)
+      kbo(:,54, 9) = (/ &
+     &6.4970e-03_rb,8.2758e-03_rb,1.0456e-02_rb,1.3093e-02_rb,1.6122e-02_rb/)
+      kbo(:,55, 9) = (/ &
+     &5.6140e-03_rb,7.3217e-03_rb,9.3276e-03_rb,1.1747e-02_rb,1.4696e-02_rb/)
+      kbo(:,56, 9) = (/ &
+     &4.8349e-03_rb,6.4792e-03_rb,8.3317e-03_rb,1.0602e-02_rb,1.3343e-02_rb/)
+      kbo(:,57, 9) = (/ &
+     &4.1640e-03_rb,5.6963e-03_rb,7.4736e-03_rb,9.6066e-03_rb,1.2192e-02_rb/)
+      kbo(:,58, 9) = (/ &
+     &3.5901e-03_rb,5.0045e-03_rb,6.7274e-03_rb,8.7656e-03_rb,1.1231e-02_rb/)
+      kbo(:,59, 9) = (/ &
+     &3.3029e-03_rb,4.6798e-03_rb,6.3469e-03_rb,8.3368e-03_rb,1.0817e-02_rb/)
+      kbo(:,13,10) = (/ &
+     &1.1103e+01_rb,1.2502e+01_rb,1.3897e+01_rb,1.5277e+01_rb,1.6528e+01_rb/)
+      kbo(:,14,10) = (/ &
+     &9.9415e+00_rb,1.1260e+01_rb,1.2546e+01_rb,1.3697e+01_rb,1.4756e+01_rb/)
+      kbo(:,15,10) = (/ &
+     &8.8808e+00_rb,1.0035e+01_rb,1.1086e+01_rb,1.2088e+01_rb,1.3034e+01_rb/)
+      kbo(:,16,10) = (/ &
+     &7.8211e+00_rb,8.7752e+00_rb,9.7015e+00_rb,1.0578e+01_rb,1.1354e+01_rb/)
+      kbo(:,17,10) = (/ &
+     &6.7833e+00_rb,7.6204e+00_rb,8.4176e+00_rb,9.1234e+00_rb,9.7674e+00_rb/)
+      kbo(:,18,10) = (/ &
+     &5.8703e+00_rb,6.5862e+00_rb,7.2317e+00_rb,7.8324e+00_rb,8.4128e+00_rb/)
+      kbo(:,19,10) = (/ &
+     &5.0772e+00_rb,5.6603e+00_rb,6.2160e+00_rb,6.7517e+00_rb,7.2522e+00_rb/)
+      kbo(:,20,10) = (/ &
+     &4.3641e+00_rb,4.8646e+00_rb,5.3518e+00_rb,5.8113e+00_rb,6.2183e+00_rb/)
+      kbo(:,21,10) = (/ &
+     &3.7436e+00_rb,4.1787e+00_rb,4.5968e+00_rb,4.9653e+00_rb,5.2958e+00_rb/)
+      kbo(:,22,10) = (/ &
+     &3.2384e+00_rb,3.6097e+00_rb,3.9430e+00_rb,4.2432e+00_rb,4.5244e+00_rb/)
+      kbo(:,23,10) = (/ &
+     &2.7953e+00_rb,3.1049e+00_rb,3.3758e+00_rb,3.6302e+00_rb,3.8688e+00_rb/)
+      kbo(:,24,10) = (/ &
+     &2.4111e+00_rb,2.6600e+00_rb,2.8956e+00_rb,3.1175e+00_rb,3.3165e+00_rb/)
+      kbo(:,25,10) = (/ &
+     &2.0794e+00_rb,2.2877e+00_rb,2.4858e+00_rb,2.6707e+00_rb,2.8419e+00_rb/)
+      kbo(:,26,10) = (/ &
+     &1.7863e+00_rb,1.9622e+00_rb,2.1280e+00_rb,2.2830e+00_rb,2.4241e+00_rb/)
+      kbo(:,27,10) = (/ &
+     &1.5261e+00_rb,1.6805e+00_rb,1.8222e+00_rb,1.9507e+00_rb,2.0763e+00_rb/)
+      kbo(:,28,10) = (/ &
+     &1.3094e+00_rb,1.4366e+00_rb,1.5593e+00_rb,1.6738e+00_rb,1.7905e+00_rb/)
+      kbo(:,29,10) = (/ &
+     &1.1331e+00_rb,1.2336e+00_rb,1.3334e+00_rb,1.4402e+00_rb,1.5544e+00_rb/)
+      kbo(:,30,10) = (/ &
+     &9.7850e-01_rb,1.0622e+00_rb,1.1514e+00_rb,1.2513e+00_rb,1.3634e+00_rb/)
+      kbo(:,31,10) = (/ &
+     &8.4902e-01_rb,9.2389e-01_rb,1.0050e+00_rb,1.1001e+00_rb,1.2086e+00_rb/)
+      kbo(:,32,10) = (/ &
+     &7.4130e-01_rb,8.0932e-01_rb,8.8870e-01_rb,9.7905e-01_rb,1.0856e+00_rb/)
+      kbo(:,33,10) = (/ &
+     &6.5296e-01_rb,7.1655e-01_rb,7.9236e-01_rb,8.8248e-01_rb,9.8250e-01_rb/)
+      kbo(:,34,10) = (/ &
+     &5.7962e-01_rb,6.3885e-01_rb,7.0985e-01_rb,7.9650e-01_rb,8.9263e-01_rb/)
+      kbo(:,35,10) = (/ &
+     &5.1372e-01_rb,5.6904e-01_rb,6.3621e-01_rb,7.1633e-01_rb,8.0771e-01_rb/)
+      kbo(:,36,10) = (/ &
+     &4.5469e-01_rb,5.0394e-01_rb,5.6668e-01_rb,6.4061e-01_rb,7.2625e-01_rb/)
+      kbo(:,37,10) = (/ &
+     &3.9957e-01_rb,4.4312e-01_rb,4.9317e-01_rb,5.6045e-01_rb,6.4131e-01_rb/)
+      kbo(:,38,10) = (/ &
+     &3.5188e-01_rb,3.9249e-01_rb,4.3332e-01_rb,4.9135e-01_rb,5.6831e-01_rb/)
+      kbo(:,39,10) = (/ &
+     &3.1275e-01_rb,3.5014e-01_rb,3.8817e-01_rb,4.3541e-01_rb,5.0377e-01_rb/)
+      kbo(:,40,10) = (/ &
+     &2.7524e-01_rb,3.0717e-01_rb,3.4405e-01_rb,3.8385e-01_rb,4.3866e-01_rb/)
+      kbo(:,41,10) = (/ &
+     &2.4392e-01_rb,2.7163e-01_rb,3.0427e-01_rb,3.4320e-01_rb,3.8763e-01_rb/)
+      kbo(:,42,10) = (/ &
+     &2.1672e-01_rb,2.4359e-01_rb,2.7030e-01_rb,3.0489e-01_rb,3.4816e-01_rb/)
+      kbo(:,43,10) = (/ &
+     &1.9366e-01_rb,2.1755e-01_rb,2.4331e-01_rb,2.6943e-01_rb,3.1064e-01_rb/)
+      kbo(:,44,10) = (/ &
+     &1.7412e-01_rb,1.9505e-01_rb,2.1790e-01_rb,2.4485e-01_rb,2.7503e-01_rb/)
+      kbo(:,45,10) = (/ &
+     &1.5640e-01_rb,1.7593e-01_rb,1.9695e-01_rb,2.2100e-01_rb,2.4918e-01_rb/)
+      kbo(:,46,10) = (/ &
+     &1.3989e-01_rb,1.5897e-01_rb,1.7897e-01_rb,2.0081e-01_rb,2.2644e-01_rb/)
+      kbo(:,47,10) = (/ &
+     &1.2271e-01_rb,1.4204e-01_rb,1.6295e-01_rb,1.8322e-01_rb,2.0661e-01_rb/)
+      kbo(:,48,10) = (/ &
+     &1.0686e-01_rb,1.2583e-01_rb,1.4636e-01_rb,1.6777e-01_rb,1.9011e-01_rb/)
+      kbo(:,49,10) = (/ &
+     &9.3685e-02_rb,1.1078e-01_rb,1.3130e-01_rb,1.5261e-01_rb,1.7455e-01_rb/)
+      kbo(:,50,10) = (/ &
+     &8.2656e-02_rb,9.8591e-02_rb,1.1744e-01_rb,1.3916e-01_rb,1.6129e-01_rb/)
+      kbo(:,51,10) = (/ &
+     &7.2693e-02_rb,8.8183e-02_rb,1.0575e-01_rb,1.2537e-01_rb,1.4856e-01_rb/)
+      kbo(:,52,10) = (/ &
+     &6.4048e-02_rb,7.9108e-02_rb,9.5503e-02_rb,1.1470e-01_rb,1.3627e-01_rb/)
+      kbo(:,53,10) = (/ &
+     &5.5496e-02_rb,7.0682e-02_rb,8.5938e-02_rb,1.0406e-01_rb,1.2637e-01_rb/)
+      kbo(:,54,10) = (/ &
+     &4.9035e-02_rb,6.2876e-02_rb,7.7887e-02_rb,9.5399e-02_rb,1.1721e-01_rb/)
+      kbo(:,55,10) = (/ &
+     &4.3446e-02_rb,5.6855e-02_rb,7.1213e-02_rb,8.8342e-02_rb,1.0826e-01_rb/)
+      kbo(:,56,10) = (/ &
+     &3.8859e-02_rb,5.1445e-02_rb,6.5981e-02_rb,8.2010e-02_rb,1.0158e-01_rb/)
+      kbo(:,57,10) = (/ &
+     &3.5022e-02_rb,4.6988e-02_rb,6.1022e-02_rb,7.6424e-02_rb,9.5735e-02_rb/)
+      kbo(:,58,10) = (/ &
+     &3.1909e-02_rb,4.3092e-02_rb,5.6695e-02_rb,7.2335e-02_rb,9.0564e-02_rb/)
+      kbo(:,59,10) = (/ &
+     &3.0556e-02_rb,4.1959e-02_rb,5.5206e-02_rb,7.1568e-02_rb,9.0259e-02_rb/)
+      kbo(:,13,11) = (/ &
+     &1.9005e+01_rb,2.1823e+01_rb,2.4335e+01_rb,2.6560e+01_rb,2.8649e+01_rb/)
+      kbo(:,14,11) = (/ &
+     &1.8043e+01_rb,2.0403e+01_rb,2.2563e+01_rb,2.4639e+01_rb,2.6669e+01_rb/)
+      kbo(:,15,11) = (/ &
+     &1.6503e+01_rb,1.8586e+01_rb,2.0593e+01_rb,2.2552e+01_rb,2.4342e+01_rb/)
+      kbo(:,16,11) = (/ &
+     &1.4859e+01_rb,1.6766e+01_rb,1.8612e+01_rb,2.0317e+01_rb,2.1884e+01_rb/)
+      kbo(:,17,11) = (/ &
+     &1.3269e+01_rb,1.4973e+01_rb,1.6543e+01_rb,1.8024e+01_rb,1.9429e+01_rb/)
+      kbo(:,18,11) = (/ &
+     &1.1718e+01_rb,1.3157e+01_rb,1.4545e+01_rb,1.5849e+01_rb,1.7039e+01_rb/)
+      kbo(:,19,11) = (/ &
+     &1.0207e+01_rb,1.1484e+01_rb,1.2680e+01_rb,1.3769e+01_rb,1.4775e+01_rb/)
+      kbo(:,20,11) = (/ &
+     &8.8979e+00_rb,9.9836e+00_rb,1.0976e+01_rb,1.1897e+01_rb,1.2806e+01_rb/)
+      kbo(:,21,11) = (/ &
+     &7.7345e+00_rb,8.6287e+00_rb,9.4674e+00_rb,1.0308e+01_rb,1.1126e+01_rb/)
+      kbo(:,22,11) = (/ &
+     &6.7360e+00_rb,7.4922e+00_rb,8.2529e+00_rb,8.9982e+00_rb,9.7172e+00_rb/)
+      kbo(:,23,11) = (/ &
+     &5.8386e+00_rb,6.5155e+00_rb,7.1951e+00_rb,7.8490e+00_rb,8.4500e+00_rb/)
+      kbo(:,24,11) = (/ &
+     &5.0807e+00_rb,5.6843e+00_rb,6.2699e+00_rb,6.8121e+00_rb,7.3100e+00_rb/)
+      kbo(:,25,11) = (/ &
+     &4.4422e+00_rb,4.9643e+00_rb,5.4499e+00_rb,5.8998e+00_rb,6.3372e+00_rb/)
+      kbo(:,26,11) = (/ &
+     &3.9004e+00_rb,4.3334e+00_rb,4.7344e+00_rb,5.1243e+00_rb,5.5060e+00_rb/)
+      kbo(:,27,11) = (/ &
+     &3.4204e+00_rb,3.7816e+00_rb,4.1294e+00_rb,4.4714e+00_rb,4.7992e+00_rb/)
+      kbo(:,28,11) = (/ &
+     &2.9981e+00_rb,3.3076e+00_rb,3.6130e+00_rb,3.9107e+00_rb,4.1979e+00_rb/)
+      kbo(:,29,11) = (/ &
+     &2.6272e+00_rb,2.9045e+00_rb,3.1705e+00_rb,3.4300e+00_rb,3.6761e+00_rb/)
+      kbo(:,30,11) = (/ &
+     &2.3072e+00_rb,2.5571e+00_rb,2.7905e+00_rb,3.0127e+00_rb,3.2425e+00_rb/)
+      kbo(:,31,11) = (/ &
+     &2.0315e+00_rb,2.2496e+00_rb,2.4602e+00_rb,2.6655e+00_rb,2.8882e+00_rb/)
+      kbo(:,32,11) = (/ &
+     &1.7947e+00_rb,1.9859e+00_rb,2.1751e+00_rb,2.3754e+00_rb,2.5995e+00_rb/)
+      kbo(:,33,11) = (/ &
+     &1.5917e+00_rb,1.7608e+00_rb,1.9393e+00_rb,2.1339e+00_rb,2.3696e+00_rb/)
+      kbo(:,34,11) = (/ &
+     &1.4106e+00_rb,1.5681e+00_rb,1.7384e+00_rb,1.9365e+00_rb,2.1773e+00_rb/)
+      kbo(:,35,11) = (/ &
+     &1.2470e+00_rb,1.3941e+00_rb,1.5593e+00_rb,1.7605e+00_rb,1.9959e+00_rb/)
+      kbo(:,36,11) = (/ &
+     &1.0975e+00_rb,1.2350e+00_rb,1.3953e+00_rb,1.5917e+00_rb,1.8213e+00_rb/)
+      kbo(:,37,11) = (/ &
+     &9.5256e-01_rb,1.0776e+00_rb,1.2351e+00_rb,1.4193e+00_rb,1.6407e+00_rb/)
+      kbo(:,38,11) = (/ &
+     &8.3116e-01_rb,9.4539e-01_rb,1.0963e+00_rb,1.2721e+00_rb,1.4845e+00_rb/)
+      kbo(:,39,11) = (/ &
+     &7.2978e-01_rb,8.3514e-01_rb,9.7338e-01_rb,1.1448e+00_rb,1.3526e+00_rb/)
+      kbo(:,40,11) = (/ &
+     &6.3508e-01_rb,7.2958e-01_rb,8.5453e-01_rb,1.0153e+00_rb,1.2157e+00_rb/)
+      kbo(:,41,11) = (/ &
+     &5.5559e-01_rb,6.3933e-01_rb,7.5266e-01_rb,8.9822e-01_rb,1.0902e+00_rb/)
+      kbo(:,42,11) = (/ &
+     &4.9132e-01_rb,5.6247e-01_rb,6.6545e-01_rb,8.0063e-01_rb,9.7700e-01_rb/)
+      kbo(:,43,11) = (/ &
+     &4.3434e-01_rb,4.9358e-01_rb,5.8232e-01_rb,7.0818e-01_rb,8.6923e-01_rb/)
+      kbo(:,44,11) = (/ &
+     &3.8638e-01_rb,4.3517e-01_rb,5.1097e-01_rb,6.1891e-01_rb,7.7146e-01_rb/)
+      kbo(:,45,11) = (/ &
+     &3.4515e-01_rb,3.9086e-01_rb,4.5155e-01_rb,5.4453e-01_rb,6.8039e-01_rb/)
+      kbo(:,46,11) = (/ &
+     &3.1047e-01_rb,3.4972e-01_rb,4.0476e-01_rb,4.8078e-01_rb,5.9879e-01_rb/)
+      kbo(:,47,11) = (/ &
+     &2.8096e-01_rb,3.1543e-01_rb,3.6034e-01_rb,4.2515e-01_rb,5.2456e-01_rb/)
+      kbo(:,48,11) = (/ &
+     &2.5443e-01_rb,2.8861e-01_rb,3.2488e-01_rb,3.8074e-01_rb,4.6176e-01_rb/)
+      kbo(:,49,11) = (/ &
+     &2.3075e-01_rb,2.6370e-01_rb,2.9745e-01_rb,3.4508e-01_rb,4.1364e-01_rb/)
+      kbo(:,50,11) = (/ &
+     &2.0955e-01_rb,2.4450e-01_rb,2.7626e-01_rb,3.1515e-01_rb,3.7610e-01_rb/)
+      kbo(:,51,11) = (/ &
+     &1.9162e-01_rb,2.2508e-01_rb,2.5888e-01_rb,2.9434e-01_rb,3.4519e-01_rb/)
+      kbo(:,52,11) = (/ &
+     &1.7326e-01_rb,2.0725e-01_rb,2.4087e-01_rb,2.7521e-01_rb,3.1976e-01_rb/)
+      kbo(:,53,11) = (/ &
+     &1.5761e-01_rb,1.9120e-01_rb,2.2695e-01_rb,2.6019e-01_rb,2.9822e-01_rb/)
+      kbo(:,54,11) = (/ &
+     &1.4365e-01_rb,1.7736e-01_rb,2.1379e-01_rb,2.4744e-01_rb,2.8175e-01_rb/)
+      kbo(:,55,11) = (/ &
+     &1.3037e-01_rb,1.6532e-01_rb,2.0060e-01_rb,2.3640e-01_rb,2.6972e-01_rb/)
+      kbo(:,56,11) = (/ &
+     &1.1768e-01_rb,1.5347e-01_rb,1.8925e-01_rb,2.2636e-01_rb,2.6180e-01_rb/)
+      kbo(:,57,11) = (/ &
+     &1.0584e-01_rb,1.4146e-01_rb,1.7843e-01_rb,2.1611e-01_rb,2.5112e-01_rb/)
+      kbo(:,58,11) = (/ &
+     &9.5443e-02_rb,1.3188e-01_rb,1.6746e-01_rb,2.0707e-01_rb,2.4328e-01_rb/)
+      kbo(:,59,11) = (/ &
+     &9.0897e-02_rb,1.2729e-01_rb,1.6511e-01_rb,2.0322e-01_rb,2.4119e-01_rb/)
+      kbo(:,13,12) = (/ &
+     &3.3504e+01_rb,3.7950e+01_rb,4.2337e+01_rb,4.6726e+01_rb,5.1022e+01_rb/)
+      kbo(:,14,12) = (/ &
+     &3.2726e+01_rb,3.7291e+01_rb,4.1814e+01_rb,4.6223e+01_rb,5.0163e+01_rb/)
+      kbo(:,15,12) = (/ &
+     &3.1900e+01_rb,3.6439e+01_rb,4.0782e+01_rb,4.4671e+01_rb,4.8184e+01_rb/)
+      kbo(:,16,12) = (/ &
+     &3.0776e+01_rb,3.4900e+01_rb,3.8620e+01_rb,4.2065e+01_rb,4.5353e+01_rb/)
+      kbo(:,17,12) = (/ &
+     &2.8746e+01_rb,3.2300e+01_rb,3.5697e+01_rb,3.8925e+01_rb,4.2020e+01_rb/)
+      kbo(:,18,12) = (/ &
+     &2.6146e+01_rb,2.9399e+01_rb,3.2494e+01_rb,3.5494e+01_rb,3.8316e+01_rb/)
+      kbo(:,19,12) = (/ &
+     &2.3524e+01_rb,2.6429e+01_rb,2.9272e+01_rb,3.2000e+01_rb,3.4621e+01_rb/)
+      kbo(:,20,12) = (/ &
+     &2.1002e+01_rb,2.3641e+01_rb,2.6168e+01_rb,2.8626e+01_rb,3.0966e+01_rb/)
+      kbo(:,21,12) = (/ &
+     &1.8638e+01_rb,2.0929e+01_rb,2.3211e+01_rb,2.5404e+01_rb,2.7506e+01_rb/)
+      kbo(:,22,12) = (/ &
+     &1.6511e+01_rb,1.8592e+01_rb,2.0614e+01_rb,2.2575e+01_rb,2.4466e+01_rb/)
+      kbo(:,23,12) = (/ &
+     &1.4666e+01_rb,1.6512e+01_rb,1.8295e+01_rb,2.0007e+01_rb,2.1707e+01_rb/)
+      kbo(:,24,12) = (/ &
+     &1.3045e+01_rb,1.4646e+01_rb,1.6188e+01_rb,1.7728e+01_rb,1.9330e+01_rb/)
+      kbo(:,25,12) = (/ &
+     &1.1583e+01_rb,1.2959e+01_rb,1.4347e+01_rb,1.5799e+01_rb,1.7308e+01_rb/)
+      kbo(:,26,12) = (/ &
+     &1.0289e+01_rb,1.1524e+01_rb,1.2828e+01_rb,1.4195e+01_rb,1.5608e+01_rb/)
+      kbo(:,27,12) = (/ &
+     &9.1629e+00_rb,1.0320e+01_rb,1.1545e+01_rb,1.2818e+01_rb,1.4160e+01_rb/)
+      kbo(:,28,12) = (/ &
+     &8.1951e+00_rb,9.2900e+00_rb,1.0435e+01_rb,1.1638e+01_rb,1.2904e+01_rb/)
+      kbo(:,29,12) = (/ &
+     &7.3862e+00_rb,8.4074e+00_rb,9.4905e+00_rb,1.0629e+01_rb,1.1848e+01_rb/)
+      kbo(:,30,12) = (/ &
+     &6.7112e+00_rb,7.6605e+00_rb,8.6762e+00_rb,9.7816e+00_rb,1.0954e+01_rb/)
+      kbo(:,31,12) = (/ &
+     &6.1419e+00_rb,7.0283e+00_rb,8.0036e+00_rb,9.0662e+00_rb,1.0224e+01_rb/)
+      kbo(:,32,12) = (/ &
+     &5.6561e+00_rb,6.5080e+00_rb,7.4459e+00_rb,8.4904e+00_rb,9.6547e+00_rb/)
+      kbo(:,33,12) = (/ &
+     &5.2496e+00_rb,6.0774e+00_rb,7.0019e+00_rb,8.0523e+00_rb,9.2390e+00_rb/)
+      kbo(:,34,12) = (/ &
+     &4.8878e+00_rb,5.7010e+00_rb,6.6301e+00_rb,7.6985e+00_rb,8.9231e+00_rb/)
+      kbo(:,35,12) = (/ &
+     &4.5253e+00_rb,5.3274e+00_rb,6.2605e+00_rb,7.3465e+00_rb,8.6116e+00_rb/)
+      kbo(:,36,12) = (/ &
+     &4.1488e+00_rb,4.9390e+00_rb,5.8698e+00_rb,6.9625e+00_rb,8.2516e+00_rb/)
+      kbo(:,37,12) = (/ &
+     &3.7312e+00_rb,4.4908e+00_rb,5.4013e+00_rb,6.4804e+00_rb,7.7554e+00_rb/)
+      kbo(:,38,12) = (/ &
+     &3.3680e+00_rb,4.1012e+00_rb,4.9908e+00_rb,6.0547e+00_rb,7.3121e+00_rb/)
+      kbo(:,39,12) = (/ &
+     &3.0586e+00_rb,3.7669e+00_rb,4.6363e+00_rb,5.6845e+00_rb,6.9229e+00_rb/)
+      kbo(:,40,12) = (/ &
+     &2.7296e+00_rb,3.4041e+00_rb,4.2320e+00_rb,5.2462e+00_rb,6.4437e+00_rb/)
+      kbo(:,41,12) = (/ &
+     &2.4362e+00_rb,3.0740e+00_rb,3.8624e+00_rb,4.8348e+00_rb,5.9904e+00_rb/)
+      kbo(:,42,12) = (/ &
+     &2.1809e+00_rb,2.7810e+00_rb,3.5324e+00_rb,4.4598e+00_rb,5.5747e+00_rb/)
+      kbo(:,43,12) = (/ &
+     &1.9255e+00_rb,2.4860e+00_rb,3.1917e+00_rb,4.0645e+00_rb,5.1258e+00_rb/)
+      kbo(:,44,12) = (/ &
+     &1.6844e+00_rb,2.2090e+00_rb,2.8652e+00_rb,3.6821e+00_rb,4.6820e+00_rb/)
+      kbo(:,45,12) = (/ &
+     &1.4745e+00_rb,1.9569e+00_rb,2.5696e+00_rb,3.3333e+00_rb,4.2717e+00_rb/)
+      kbo(:,46,12) = (/ &
+     &1.2799e+00_rb,1.7238e+00_rb,2.2842e+00_rb,2.9993e+00_rb,3.8727e+00_rb/)
+      kbo(:,47,12) = (/ &
+     &1.0954e+00_rb,1.4926e+00_rb,2.0054e+00_rb,2.6579e+00_rb,3.4668e+00_rb/)
+      kbo(:,48,12) = (/ &
+     &9.3943e-01_rb,1.2870e+00_rb,1.7558e+00_rb,2.3470e+00_rb,3.0956e+00_rb/)
+      kbo(:,49,12) = (/ &
+     &8.0789e-01_rb,1.1100e+00_rb,1.5297e+00_rb,2.0665e+00_rb,2.7506e+00_rb/)
+      kbo(:,50,12) = (/ &
+     &7.0633e-01_rb,9.6173e-01_rb,1.3381e+00_rb,1.8318e+00_rb,2.4528e+00_rb/)
+      kbo(:,51,12) = (/ &
+     &6.2380e-01_rb,8.4012e-01_rb,1.1696e+00_rb,1.6208e+00_rb,2.1914e+00_rb/)
+      kbo(:,52,12) = (/ &
+     &5.6356e-01_rb,7.3733e-01_rb,1.0234e+00_rb,1.4290e+00_rb,1.9532e+00_rb/)
+      kbo(:,53,12) = (/ &
+     &5.0909e-01_rb,6.5068e-01_rb,8.9219e-01_rb,1.2539e+00_rb,1.7345e+00_rb/)
+      kbo(:,54,12) = (/ &
+     &4.6136e-01_rb,5.8883e-01_rb,7.8810e-01_rb,1.1078e+00_rb,1.5488e+00_rb/)
+      kbo(:,55,12) = (/ &
+     &4.1950e-01_rb,5.3756e-01_rb,7.0213e-01_rb,9.8100e-01_rb,1.3825e+00_rb/)
+      kbo(:,56,12) = (/ &
+     &3.8410e-01_rb,4.8996e-01_rb,6.3016e-01_rb,8.6652e-01_rb,1.2252e+00_rb/)
+      kbo(:,57,12) = (/ &
+     &3.5624e-01_rb,4.4831e-01_rb,5.7215e-01_rb,7.6572e-01_rb,1.0848e+00_rb/)
+      kbo(:,58,12) = (/ &
+     &3.2868e-01_rb,4.1829e-01_rb,5.2553e-01_rb,6.8368e-01_rb,9.6165e-01_rb/)
+      kbo(:,59,12) = (/ &
+     &3.1733e-01_rb,4.0674e-01_rb,5.0354e-01_rb,6.5575e-01_rb,9.0743e-01_rb/)
+      kbo(:,13,13) = (/ &
+     &6.3252e+01_rb,7.1343e+01_rb,7.9418e+01_rb,8.6956e+01_rb,9.3893e+01_rb/)
+      kbo(:,14,13) = (/ &
+     &6.4432e+01_rb,7.3277e+01_rb,8.1636e+01_rb,8.9410e+01_rb,9.6695e+01_rb/)
+      kbo(:,15,13) = (/ &
+     &6.5832e+01_rb,7.4648e+01_rb,8.2893e+01_rb,9.0741e+01_rb,9.8138e+01_rb/)
+      kbo(:,16,13) = (/ &
+     &6.5929e+01_rb,7.4500e+01_rb,8.2870e+01_rb,9.0803e+01_rb,9.8296e+01_rb/)
+      kbo(:,17,13) = (/ &
+     &6.5097e+01_rb,7.3774e+01_rb,8.2069e+01_rb,9.0039e+01_rb,9.7697e+01_rb/)
+      kbo(:,18,13) = (/ &
+     &6.3876e+01_rb,7.2341e+01_rb,8.0612e+01_rb,8.8540e+01_rb,9.6103e+01_rb/)
+      kbo(:,19,13) = (/ &
+     &6.1808e+01_rb,7.0129e+01_rb,7.8103e+01_rb,8.5721e+01_rb,9.2920e+01_rb/)
+      kbo(:,20,13) = (/ &
+     &5.9337e+01_rb,6.7178e+01_rb,7.4740e+01_rb,8.1921e+01_rb,8.8860e+01_rb/)
+      kbo(:,21,13) = (/ &
+     &5.6051e+01_rb,6.3423e+01_rb,7.0500e+01_rb,7.7416e+01_rb,8.4103e+01_rb/)
+      kbo(:,22,13) = (/ &
+     &5.2578e+01_rb,5.9410e+01_rb,6.6220e+01_rb,7.2967e+01_rb,7.9639e+01_rb/)
+      kbo(:,23,13) = (/ &
+     &4.8800e+01_rb,5.5307e+01_rb,6.1937e+01_rb,6.8633e+01_rb,7.5406e+01_rb/)
+      kbo(:,24,13) = (/ &
+     &4.5172e+01_rb,5.1522e+01_rb,5.8057e+01_rb,6.4742e+01_rb,7.1436e+01_rb/)
+      kbo(:,25,13) = (/ &
+     &4.2002e+01_rb,4.8199e+01_rb,5.4646e+01_rb,6.1219e+01_rb,6.7880e+01_rb/)
+      kbo(:,26,13) = (/ &
+     &3.9325e+01_rb,4.5395e+01_rb,5.1713e+01_rb,5.8235e+01_rb,6.4961e+01_rb/)
+      kbo(:,27,13) = (/ &
+     &3.7049e+01_rb,4.2989e+01_rb,4.9236e+01_rb,5.5807e+01_rb,6.2667e+01_rb/)
+      kbo(:,28,13) = (/ &
+     &3.5161e+01_rb,4.0996e+01_rb,4.7272e+01_rb,5.3955e+01_rb,6.1012e+01_rb/)
+      kbo(:,29,13) = (/ &
+     &3.3638e+01_rb,3.9504e+01_rb,4.5884e+01_rb,5.2759e+01_rb,6.0034e+01_rb/)
+      kbo(:,30,13) = (/ &
+     &3.2492e+01_rb,3.8479e+01_rb,4.5047e+01_rb,5.2111e+01_rb,5.9617e+01_rb/)
+      kbo(:,31,13) = (/ &
+     &3.1781e+01_rb,3.7957e+01_rb,4.4719e+01_rb,5.2013e+01_rb,5.9720e+01_rb/)
+      kbo(:,32,13) = (/ &
+     &3.1516e+01_rb,3.7888e+01_rb,4.4882e+01_rb,5.2382e+01_rb,6.0245e+01_rb/)
+      kbo(:,33,13) = (/ &
+     &3.1641e+01_rb,3.8231e+01_rb,4.5439e+01_rb,5.3118e+01_rb,6.1113e+01_rb/)
+      kbo(:,34,13) = (/ &
+     &3.1881e+01_rb,3.8668e+01_rb,4.6052e+01_rb,5.3873e+01_rb,6.1967e+01_rb/)
+      kbo(:,35,13) = (/ &
+     &3.1765e+01_rb,3.8677e+01_rb,4.6167e+01_rb,5.4068e+01_rb,6.2237e+01_rb/)
+      kbo(:,36,13) = (/ &
+     &3.1127e+01_rb,3.8083e+01_rb,4.5619e+01_rb,5.3554e+01_rb,6.1754e+01_rb/)
+      kbo(:,37,13) = (/ &
+     &2.9631e+01_rb,3.6533e+01_rb,4.4019e+01_rb,5.1934e+01_rb,6.0138e+01_rb/)
+      kbo(:,38,13) = (/ &
+     &2.8216e+01_rb,3.5039e+01_rb,4.2468e+01_rb,5.0350e+01_rb,5.8547e+01_rb/)
+      kbo(:,39,13) = (/ &
+     &2.6913e+01_rb,3.3654e+01_rb,4.1024e+01_rb,4.8851e+01_rb,5.7030e+01_rb/)
+      kbo(:,40,13) = (/ &
+     &2.5061e+01_rb,3.1637e+01_rb,3.8879e+01_rb,4.6620e+01_rb,5.4739e+01_rb/)
+      kbo(:,41,13) = (/ &
+     &2.3239e+01_rb,2.9632e+01_rb,3.6721e+01_rb,4.4349e+01_rb,5.2395e+01_rb/)
+      kbo(:,42,13) = (/ &
+     &2.1518e+01_rb,2.7714e+01_rb,3.4638e+01_rb,4.2154e+01_rb,5.0111e+01_rb/)
+      kbo(:,43,13) = (/ &
+     &1.9578e+01_rb,2.5525e+01_rb,3.2232e+01_rb,3.9588e+01_rb,4.7417e+01_rb/)
+      kbo(:,44,13) = (/ &
+     &1.7631e+01_rb,2.3285e+01_rb,2.9750e+01_rb,3.6914e+01_rb,4.4596e+01_rb/)
+      kbo(:,45,13) = (/ &
+     &1.5817e+01_rb,2.1168e+01_rb,2.7372e+01_rb,3.4312e+01_rb,4.1842e+01_rb/)
+      kbo(:,46,13) = (/ &
+     &1.4031e+01_rb,1.9049e+01_rb,2.4960e+01_rb,3.1648e+01_rb,3.8993e+01_rb/)
+      kbo(:,47,13) = (/ &
+     &1.2204e+01_rb,1.6850e+01_rb,2.2409e+01_rb,2.8797e+01_rb,3.5899e+01_rb/)
+      kbo(:,48,13) = (/ &
+     &1.0543e+01_rb,1.4813e+01_rb,2.0005e+01_rb,2.6074e+01_rb,3.2906e+01_rb/)
+      kbo(:,49,13) = (/ &
+     &9.0410e+00_rb,1.2940e+01_rb,1.7763e+01_rb,2.3491e+01_rb,3.0027e+01_rb/)
+      kbo(:,50,13) = (/ &
+     &7.7723e+00_rb,1.1328e+01_rb,1.5799e+01_rb,2.1188e+01_rb,2.7436e+01_rb/)
+      kbo(:,51,13) = (/ &
+     &6.6603e+00_rb,9.8956e+00_rb,1.4031e+01_rb,1.9082e+01_rb,2.5030e+01_rb/)
+      kbo(:,52,13) = (/ &
+     &5.6483e+00_rb,8.5936e+00_rb,1.2389e+01_rb,1.7108e+01_rb,2.2735e+01_rb/)
+      kbo(:,53,13) = (/ &
+     &4.7548e+00_rb,7.4145e+00_rb,1.0879e+01_rb,1.5253e+01_rb,2.0556e+01_rb/)
+      kbo(:,54,13) = (/ &
+     &4.0362e+00_rb,6.4182e+00_rb,9.6047e+00_rb,1.3672e+01_rb,1.8664e+01_rb/)
+      kbo(:,55,13) = (/ &
+     &3.4328e+00_rb,5.5491e+00_rb,8.4816e+00_rb,1.2254e+01_rb,1.6947e+01_rb/)
+      kbo(:,56,13) = (/ &
+     &2.9068e+00_rb,4.7740e+00_rb,7.4485e+00_rb,1.0936e+01_rb,1.5335e+01_rb/)
+      kbo(:,57,13) = (/ &
+     &2.4469e+00_rb,4.0838e+00_rb,6.4921e+00_rb,9.7157e+00_rb,1.3818e+01_rb/)
+      kbo(:,58,13) = (/ &
+     &2.0735e+00_rb,3.4925e+00_rb,5.6637e+00_rb,8.6413e+00_rb,1.2467e+01_rb/)
+      kbo(:,59,13) = (/ &
+     &1.9355e+00_rb,3.2709e+00_rb,5.3499e+00_rb,8.2221e+00_rb,1.1950e+01_rb/)
+      kbo(:,13,14) = (/ &
+     &1.3763e+02_rb,1.5352e+02_rb,1.6709e+02_rb,1.7925e+02_rb,1.9013e+02_rb/)
+      kbo(:,14,14) = (/ &
+     &1.4836e+02_rb,1.6388e+02_rb,1.7793e+02_rb,1.9078e+02_rb,2.0291e+02_rb/)
+      kbo(:,15,14) = (/ &
+     &1.5609e+02_rb,1.7227e+02_rb,1.8754e+02_rb,2.0210e+02_rb,2.1605e+02_rb/)
+      kbo(:,16,14) = (/ &
+     &1.6287e+02_rb,1.8058e+02_rb,1.9742e+02_rb,2.1358e+02_rb,2.2879e+02_rb/)
+      kbo(:,17,14) = (/ &
+     &1.6936e+02_rb,1.8829e+02_rb,2.0654e+02_rb,2.2380e+02_rb,2.3943e+02_rb/)
+      kbo(:,18,14) = (/ &
+     &1.7409e+02_rb,1.9426e+02_rb,2.1359e+02_rb,2.3157e+02_rb,2.4840e+02_rb/)
+      kbo(:,19,14) = (/ &
+     &1.7751e+02_rb,1.9877e+02_rb,2.1900e+02_rb,2.3829e+02_rb,2.5666e+02_rb/)
+      kbo(:,20,14) = (/ &
+     &1.8029e+02_rb,2.0255e+02_rb,2.2414e+02_rb,2.4492e+02_rb,2.6421e+02_rb/)
+      kbo(:,21,14) = (/ &
+     &1.8288e+02_rb,2.0645e+02_rb,2.2930e+02_rb,2.5080e+02_rb,2.7109e+02_rb/)
+      kbo(:,22,14) = (/ &
+     &1.8758e+02_rb,2.1208e+02_rb,2.3543e+02_rb,2.5750e+02_rb,2.7832e+02_rb/)
+      kbo(:,23,14) = (/ &
+     &1.9239e+02_rb,2.1719e+02_rb,2.4091e+02_rb,2.6350e+02_rb,2.8469e+02_rb/)
+      kbo(:,24,14) = (/ &
+     &1.9651e+02_rb,2.2173e+02_rb,2.4591e+02_rb,2.6890e+02_rb,2.9066e+02_rb/)
+      kbo(:,25,14) = (/ &
+     &2.0022e+02_rb,2.2597e+02_rb,2.5071e+02_rb,2.7426e+02_rb,2.9648e+02_rb/)
+      kbo(:,26,14) = (/ &
+     &2.0417e+02_rb,2.3049e+02_rb,2.5589e+02_rb,2.7996e+02_rb,3.0257e+02_rb/)
+      kbo(:,27,14) = (/ &
+     &2.0832e+02_rb,2.3518e+02_rb,2.6110e+02_rb,2.8565e+02_rb,3.0854e+02_rb/)
+      kbo(:,28,14) = (/ &
+     &2.1279e+02_rb,2.4021e+02_rb,2.6653e+02_rb,2.9138e+02_rb,3.1446e+02_rb/)
+      kbo(:,29,14) = (/ &
+     &2.1796e+02_rb,2.4575e+02_rb,2.7237e+02_rb,2.9736e+02_rb,3.2050e+02_rb/)
+      kbo(:,30,14) = (/ &
+     &2.2364e+02_rb,2.5171e+02_rb,2.7842e+02_rb,3.0343e+02_rb,3.2655e+02_rb/)
+      kbo(:,31,14) = (/ &
+     &2.2986e+02_rb,2.5803e+02_rb,2.8476e+02_rb,3.0967e+02_rb,3.3263e+02_rb/)
+      kbo(:,32,14) = (/ &
+     &2.3644e+02_rb,2.6463e+02_rb,2.9123e+02_rb,3.1599e+02_rb,3.3870e+02_rb/)
+      kbo(:,33,14) = (/ &
+     &2.4330e+02_rb,2.7142e+02_rb,2.9784e+02_rb,3.2234e+02_rb,3.4468e+02_rb/)
+      kbo(:,34,14) = (/ &
+     &2.4932e+02_rb,2.7733e+02_rb,3.0352e+02_rb,3.2779e+02_rb,3.4977e+02_rb/)
+      kbo(:,35,14) = (/ &
+     &2.5266e+02_rb,2.8063e+02_rb,3.0678e+02_rb,3.3096e+02_rb,3.5278e+02_rb/)
+      kbo(:,36,14) = (/ &
+     &2.5297e+02_rb,2.8101e+02_rb,3.0732e+02_rb,3.3158e+02_rb,3.5352e+02_rb/)
+      kbo(:,37,14) = (/ &
+     &2.4886e+02_rb,2.7734e+02_rb,3.0396e+02_rb,3.2863e+02_rb,3.5100e+02_rb/)
+      kbo(:,38,14) = (/ &
+     &2.4449e+02_rb,2.7331e+02_rb,3.0032e+02_rb,3.2535e+02_rb,3.4818e+02_rb/)
+      kbo(:,39,14) = (/ &
+     &2.4014e+02_rb,2.6925e+02_rb,2.9663e+02_rb,3.2206e+02_rb,3.4524e+02_rb/)
+      kbo(:,40,14) = (/ &
+     &2.3269e+02_rb,2.6223e+02_rb,2.9013e+02_rb,3.1615e+02_rb,3.3997e+02_rb/)
+      kbo(:,41,14) = (/ &
+     &2.2477e+02_rb,2.5475e+02_rb,2.8316e+02_rb,3.0972e+02_rb,3.3417e+02_rb/)
+      kbo(:,42,14) = (/ &
+     &2.1674e+02_rb,2.4709e+02_rb,2.7597e+02_rb,3.0309e+02_rb,3.2816e+02_rb/)
+      kbo(:,43,14) = (/ &
+     &2.0690e+02_rb,2.3764e+02_rb,2.6708e+02_rb,2.9483e+02_rb,3.2058e+02_rb/)
+      kbo(:,44,14) = (/ &
+     &1.9620e+02_rb,2.2728e+02_rb,2.5727e+02_rb,2.8565e+02_rb,3.1213e+02_rb/)
+      kbo(:,45,14) = (/ &
+     &1.8544e+02_rb,2.1679e+02_rb,2.4722e+02_rb,2.7624e+02_rb,3.0339e+02_rb/)
+      kbo(:,46,14) = (/ &
+     &1.7394e+02_rb,2.0555e+02_rb,2.3639e+02_rb,2.6594e+02_rb,2.9386e+02_rb/)
+      kbo(:,47,14) = (/ &
+     &1.6112e+02_rb,1.9279e+02_rb,2.2405e+02_rb,2.5421e+02_rb,2.8283e+02_rb/)
+      kbo(:,48,14) = (/ &
+     &1.4837e+02_rb,1.8000e+02_rb,2.1155e+02_rb,2.4220e+02_rb,2.7155e+02_rb/)
+      kbo(:,49,14) = (/ &
+     &1.3570e+02_rb,1.6720e+02_rb,1.9889e+02_rb,2.3000e+02_rb,2.5992e+02_rb/)
+      kbo(:,50,14) = (/ &
+     &1.2401e+02_rb,1.5522e+02_rb,1.8690e+02_rb,2.1834e+02_rb,2.4877e+02_rb/)
+      kbo(:,51,14) = (/ &
+     &1.1285e+02_rb,1.4368e+02_rb,1.7528e+02_rb,2.0692e+02_rb,2.3777e+02_rb/)
+      kbo(:,52,14) = (/ &
+     &1.0205e+02_rb,1.3225e+02_rb,1.6371e+02_rb,1.9541e+02_rb,2.2663e+02_rb/)
+      kbo(:,53,14) = (/ &
+     &9.1561e+01_rb,1.2094e+02_rb,1.5208e+02_rb,1.8381e+02_rb,2.1529e+02_rb/)
+      kbo(:,54,14) = (/ &
+     &8.2288e+01_rb,1.1082e+02_rb,1.4154e+02_rb,1.7313e+02_rb,2.0480e+02_rb/)
+      kbo(:,55,14) = (/ &
+     &7.3729e+01_rb,1.0135e+02_rb,1.3152e+02_rb,1.6297e+02_rb,1.9471e+02_rb/)
+      kbo(:,56,14) = (/ &
+     &6.5504e+01_rb,9.2170e+01_rb,1.2164e+02_rb,1.5283e+02_rb,1.8453e+02_rb/)
+      kbo(:,57,14) = (/ &
+     &5.7661e+01_rb,8.3295e+01_rb,1.1195e+02_rb,1.4273e+02_rb,1.7435e+02_rb/)
+      kbo(:,58,14) = (/ &
+     &5.0636e+01_rb,7.5168e+01_rb,1.0296e+02_rb,1.3321e+02_rb,1.6472e+02_rb/)
+      kbo(:,59,14) = (/ &
+     &4.7932e+01_rb,7.1971e+01_rb,9.9421e+01_rb,1.2944e+02_rb,1.6088e+02_rb/)
+      kbo(:,13,15) = (/ &
+     &2.4469e+02_rb,2.6735e+02_rb,2.9101e+02_rb,3.1438e+02_rb,3.3674e+02_rb/)
+      kbo(:,14,15) = (/ &
+     &2.8094e+02_rb,3.0921e+02_rb,3.3701e+02_rb,3.6348e+02_rb,3.8824e+02_rb/)
+      kbo(:,15,15) = (/ &
+     &3.2313e+02_rb,3.5640e+02_rb,3.8804e+02_rb,4.1754e+02_rb,4.4448e+02_rb/)
+      kbo(:,16,15) = (/ &
+     &3.6992e+02_rb,4.0761e+02_rb,4.4269e+02_rb,4.7470e+02_rb,5.0364e+02_rb/)
+      kbo(:,17,15) = (/ &
+     &4.1926e+02_rb,4.6079e+02_rb,4.9879e+02_rb,5.3327e+02_rb,5.6513e+02_rb/)
+      kbo(:,18,15) = (/ &
+     &4.7156e+02_rb,5.1653e+02_rb,5.5718e+02_rb,5.9454e+02_rb,6.2828e+02_rb/)
+      kbo(:,19,15) = (/ &
+     &5.2525e+02_rb,5.7308e+02_rb,6.1700e+02_rb,6.5663e+02_rb,6.9127e+02_rb/)
+      kbo(:,20,15) = (/ &
+     &5.7876e+02_rb,6.2973e+02_rb,6.7595e+02_rb,7.1709e+02_rb,7.5345e+02_rb/)
+      kbo(:,21,15) = (/ &
+     &6.2988e+02_rb,6.8342e+02_rb,7.3148e+02_rb,7.7494e+02_rb,8.1239e+02_rb/)
+      kbo(:,22,15) = (/ &
+     &6.8118e+02_rb,7.3681e+02_rb,7.8702e+02_rb,8.3157e+02_rb,8.6949e+02_rb/)
+      kbo(:,23,15) = (/ &
+     &7.2944e+02_rb,7.8796e+02_rb,8.3973e+02_rb,8.8478e+02_rb,9.2278e+02_rb/)
+      kbo(:,24,15) = (/ &
+     &7.7652e+02_rb,8.3661e+02_rb,8.8931e+02_rb,9.3457e+02_rb,9.7211e+02_rb/)
+      kbo(:,25,15) = (/ &
+     &8.2208e+02_rb,8.8322e+02_rb,9.3559e+02_rb,9.8038e+02_rb,1.0170e+03_rb/)
+      kbo(:,26,15) = (/ &
+     &8.6654e+02_rb,9.2755e+02_rb,9.7898e+02_rb,1.0223e+03_rb,1.0574e+03_rb/)
+      kbo(:,27,15) = (/ &
+     &9.0828e+02_rb,9.6846e+02_rb,1.0184e+03_rb,1.0599e+03_rb,1.0932e+03_rb/)
+      kbo(:,28,15) = (/ &
+     &9.4716e+02_rb,1.0058e+03_rb,1.0539e+03_rb,1.0933e+03_rb,1.1247e+03_rb/)
+      kbo(:,29,15) = (/ &
+     &9.8313e+02_rb,1.0399e+03_rb,1.0858e+03_rb,1.1230e+03_rb,1.1519e+03_rb/)
+      kbo(:,30,15) = (/ &
+     &1.0160e+03_rb,1.0704e+03_rb,1.1141e+03_rb,1.1489e+03_rb,1.1756e+03_rb/)
+      kbo(:,31,15) = (/ &
+     &1.0460e+03_rb,1.0956e+03_rb,1.1391e+03_rb,1.1716e+03_rb,1.1960e+03_rb/)
+      kbo(:,32,15) = (/ &
+     &1.0732e+03_rb,1.1224e+03_rb,1.1612e+03_rb,1.1912e+03_rb,1.2136e+03_rb/)
+      kbo(:,33,15) = (/ &
+     &1.0978e+03_rb,1.1441e+03_rb,1.1805e+03_rb,1.2081e+03_rb,1.2287e+03_rb/)
+      kbo(:,34,15) = (/ &
+     &1.1183e+03_rb,1.1622e+03_rb,1.1963e+03_rb,1.2219e+03_rb,1.2409e+03_rb/)
+      kbo(:,35,15) = (/ &
+     &1.1319e+03_rb,1.1747e+03_rb,1.2074e+03_rb,1.2320e+03_rb,1.2497e+03_rb/)
+      kbo(:,36,15) = (/ &
+     &1.1393e+03_rb,1.1815e+03_rb,1.2141e+03_rb,1.2383e+03_rb,1.2557e+03_rb/)
+      kbo(:,37,15) = (/ &
+     &1.1379e+03_rb,1.1816e+03_rb,1.2154e+03_rb,1.2404e+03_rb,1.2585e+03_rb/)
+      kbo(:,38,15) = (/ &
+     &1.1350e+03_rb,1.1805e+03_rb,1.2153e+03_rb,1.2413e+03_rb,1.2601e+03_rb/)
+      kbo(:,39,15) = (/ &
+     &1.1312e+03_rb,1.1782e+03_rb,1.2145e+03_rb,1.2415e+03_rb,1.2613e+03_rb/)
+      kbo(:,40,15) = (/ &
+     &1.1209e+03_rb,1.1709e+03_rb,1.2094e+03_rb,1.2385e+03_rb,1.2597e+03_rb/)
+      kbo(:,41,15) = (/ &
+     &1.1085e+03_rb,1.1615e+03_rb,1.2028e+03_rb,1.2343e+03_rb,1.2572e+03_rb/)
+      kbo(:,42,15) = (/ &
+     &1.0950e+03_rb,1.1510e+03_rb,1.1953e+03_rb,1.2290e+03_rb,1.2540e+03_rb/)
+      kbo(:,43,15) = (/ &
+     &1.0762e+03_rb,1.1364e+03_rb,1.1842e+03_rb,1.2211e+03_rb,1.2485e+03_rb/)
+      kbo(:,44,15) = (/ &
+     &1.0545e+03_rb,1.1188e+03_rb,1.1706e+03_rb,1.2111e+03_rb,1.2414e+03_rb/)
+      kbo(:,45,15) = (/ &
+     &1.0306e+03_rb,1.0995e+03_rb,1.1556e+03_rb,1.1997e+03_rb,1.2332e+03_rb/)
+      kbo(:,46,15) = (/ &
+     &1.0035e+03_rb,1.0771e+03_rb,1.1376e+03_rb,1.1860e+03_rb,1.2231e+03_rb/)
+      kbo(:,47,15) = (/ &
+     &9.7068e+02_rb,1.0499e+03_rb,1.1155e+03_rb,1.1686e+03_rb,1.2101e+03_rb/)
+      kbo(:,48,15) = (/ &
+     &9.3560e+02_rb,1.0200e+03_rb,1.0913e+03_rb,1.1493e+03_rb,1.1954e+03_rb/)
+      kbo(:,49,15) = (/ &
+     &8.9859e+02_rb,9.8816e+02_rb,1.0648e+03_rb,1.1280e+03_rb,1.1788e+03_rb/)
+      kbo(:,50,15) = (/ &
+     &8.6187e+02_rb,9.5626e+02_rb,1.0379e+03_rb,1.1061e+03_rb,1.1615e+03_rb/)
+      kbo(:,51,15) = (/ &
+     &8.2436e+02_rb,9.2347e+02_rb,1.0097e+03_rb,1.0831e+03_rb,1.1429e+03_rb/)
+      kbo(:,52,15) = (/ &
+     &7.8552e+02_rb,8.8919e+02_rb,9.8012e+02_rb,1.0582e+03_rb,1.1227e+03_rb/)
+      kbo(:,53,15) = (/ &
+     &7.4472e+02_rb,8.5281e+02_rb,9.4852e+02_rb,1.0314e+03_rb,1.1008e+03_rb/)
+      kbo(:,54,15) = (/ &
+     &7.0603e+02_rb,8.1807e+02_rb,9.1796e+02_rb,1.0053e+03_rb,1.0792e+03_rb/)
+      kbo(:,55,15) = (/ &
+     &6.6818e+02_rb,7.8362e+02_rb,8.8753e+02_rb,9.7880e+02_rb,1.0572e+03_rb/)
+      kbo(:,56,15) = (/ &
+     &6.2949e+02_rb,7.4771e+02_rb,8.5573e+02_rb,9.5104e+02_rb,1.0336e+03_rb/)
+      kbo(:,57,15) = (/ &
+     &5.9013e+02_rb,7.1102e+02_rb,8.2256e+02_rb,9.2198e+02_rb,1.0088e+03_rb/)
+      kbo(:,58,15) = (/ &
+     &5.5222e+02_rb,6.7509e+02_rb,7.8994e+02_rb,8.9322e+02_rb,9.8385e+02_rb/)
+      kbo(:,59,15) = (/ &
+     &5.3696e+02_rb,6.6055e+02_rb,7.7661e+02_rb,8.8142e+02_rb,9.7364e+02_rb/)
+      kbo(:,13,16) = (/ &
+     &4.2045e+02_rb,4.6429e+02_rb,5.0303e+02_rb,5.3671e+02_rb,5.6546e+02_rb/)
+      kbo(:,14,16) = (/ &
+     &5.0808e+02_rb,5.5889e+02_rb,6.0315e+02_rb,6.4104e+02_rb,6.7319e+02_rb/)
+      kbo(:,15,16) = (/ &
+     &6.0971e+02_rb,6.6729e+02_rb,7.1666e+02_rb,7.5857e+02_rb,7.9337e+02_rb/)
+      kbo(:,16,16) = (/ &
+     &7.2443e+02_rb,7.8825e+02_rb,8.4219e+02_rb,8.8727e+02_rb,9.2382e+02_rb/)
+      kbo(:,17,16) = (/ &
+     &8.5000e+02_rb,9.1908e+02_rb,9.7683e+02_rb,1.0239e+03_rb,1.0613e+03_rb/)
+      kbo(:,18,16) = (/ &
+     &9.8305e+02_rb,1.0566e+03_rb,1.1167e+03_rb,1.1645e+03_rb,1.2017e+03_rb/)
+      kbo(:,19,16) = (/ &
+     &1.1204e+03_rb,1.1968e+03_rb,1.2579e+03_rb,1.3058e+03_rb,1.3449e+03_rb/)
+      kbo(:,20,16) = (/ &
+     &1.2624e+03_rb,1.3419e+03_rb,1.4045e+03_rb,1.4519e+03_rb,1.4914e+03_rb/)
+      kbo(:,21,16) = (/ &
+     &1.4128e+03_rb,1.4938e+03_rb,1.5557e+03_rb,1.6009e+03_rb,1.6375e+03_rb/)
+      kbo(:,22,16) = (/ &
+     &1.5738e+03_rb,1.6513e+03_rb,1.7095e+03_rb,1.7503e+03_rb,1.7825e+03_rb/)
+      kbo(:,23,16) = (/ &
+     &1.7348e+03_rb,1.8057e+03_rb,1.8583e+03_rb,1.8939e+03_rb,1.9201e+03_rb/)
+      kbo(:,24,16) = (/ &
+     &1.8918e+03_rb,1.9538e+03_rb,1.9990e+03_rb,2.0285e+03_rb,2.0481e+03_rb/)
+      kbo(:,25,16) = (/ &
+     &2.0394e+03_rb,2.0915e+03_rb,2.1288e+03_rb,2.1514e+03_rb,2.1633e+03_rb/)
+      kbo(:,26,16) = (/ &
+     &2.1757e+03_rb,2.2166e+03_rb,2.2458e+03_rb,2.2605e+03_rb,2.2652e+03_rb/)
+      kbo(:,27,16) = (/ &
+     &2.2965e+03_rb,2.3277e+03_rb,2.3485e+03_rb,2.3546e+03_rb,2.3529e+03_rb/)
+      kbo(:,28,16) = (/ &
+     &2.4019e+03_rb,2.4242e+03_rb,2.4364e+03_rb,2.4355e+03_rb,2.4262e+03_rb/)
+      kbo(:,29,16) = (/ &
+     &2.4918e+03_rb,2.5053e+03_rb,2.5101e+03_rb,2.5025e+03_rb,2.4871e+03_rb/)
+      kbo(:,30,16) = (/ &
+     &2.5673e+03_rb,2.5738e+03_rb,2.5706e+03_rb,2.5574e+03_rb,2.5361e+03_rb/)
+      kbo(:,31,16) = (/ &
+     &2.6301e+03_rb,2.6241e+03_rb,2.6201e+03_rb,2.6003e+03_rb,2.5741e+03_rb/)
+      kbo(:,32,16) = (/ &
+     &2.6807e+03_rb,2.6744e+03_rb,2.6583e+03_rb,2.6342e+03_rb,2.6035e+03_rb/)
+      kbo(:,33,16) = (/ &
+     &2.7216e+03_rb,2.7096e+03_rb,2.6883e+03_rb,2.6595e+03_rb,2.6244e+03_rb/)
+      kbo(:,34,16) = (/ &
+     &2.7530e+03_rb,2.7368e+03_rb,2.7115e+03_rb,2.6793e+03_rb,2.6415e+03_rb/)
+      kbo(:,35,16) = (/ &
+     &2.7800e+03_rb,2.7599e+03_rb,2.7318e+03_rb,2.6972e+03_rb,2.6568e+03_rb/)
+      kbo(:,36,16) = (/ &
+     &2.8032e+03_rb,2.7809e+03_rb,2.7511e+03_rb,2.7149e+03_rb,2.6728e+03_rb/)
+      kbo(:,37,16) = (/ &
+     &2.8255e+03_rb,2.8022e+03_rb,2.7720e+03_rb,2.7352e+03_rb,2.6929e+03_rb/)
+      kbo(:,38,16) = (/ &
+     &2.8447e+03_rb,2.8207e+03_rb,2.7907e+03_rb,2.7534e+03_rb,2.7108e+03_rb/)
+      kbo(:,39,16) = (/ &
+     &2.8614e+03_rb,2.8371e+03_rb,2.8072e+03_rb,2.7697e+03_rb,2.7272e+03_rb/)
+      kbo(:,40,16) = (/ &
+     &2.8775e+03_rb,2.8542e+03_rb,2.8246e+03_rb,2.7882e+03_rb,2.7463e+03_rb/)
+      kbo(:,41,16) = (/ &
+     &2.8919e+03_rb,2.8698e+03_rb,2.8410e+03_rb,2.8060e+03_rb,2.7644e+03_rb/)
+      kbo(:,42,16) = (/ &
+     &2.9035e+03_rb,2.8842e+03_rb,2.8555e+03_rb,2.8221e+03_rb,2.7810e+03_rb/)
+      kbo(:,43,16) = (/ &
+     &2.9142e+03_rb,2.8974e+03_rb,2.8713e+03_rb,2.8381e+03_rb,2.7994e+03_rb/)
+      kbo(:,44,16) = (/ &
+     &2.9225e+03_rb,2.9100e+03_rb,2.8852e+03_rb,2.8542e+03_rb,2.8174e+03_rb/)
+      kbo(:,45,16) = (/ &
+     &2.9284e+03_rb,2.9199e+03_rb,2.8988e+03_rb,2.8699e+03_rb,2.8343e+03_rb/)
+      kbo(:,46,16) = (/ &
+     &2.9312e+03_rb,2.9287e+03_rb,2.9114e+03_rb,2.8839e+03_rb,2.8514e+03_rb/)
+      kbo(:,47,16) = (/ &
+     &2.9278e+03_rb,2.9353e+03_rb,2.9229e+03_rb,2.8988e+03_rb,2.8673e+03_rb/)
+      kbo(:,48,16) = (/ &
+     &2.9198e+03_rb,2.9382e+03_rb,2.9322e+03_rb,2.9123e+03_rb,2.8825e+03_rb/)
+      kbo(:,49,16) = (/ &
+     &2.9055e+03_rb,2.9369e+03_rb,2.9391e+03_rb,2.9238e+03_rb,2.8967e+03_rb/)
+      kbo(:,50,16) = (/ &
+     &2.8866e+03_rb,2.9312e+03_rb,2.9427e+03_rb,2.9328e+03_rb,2.9100e+03_rb/)
+      kbo(:,51,16) = (/ &
+     &2.8621e+03_rb,2.9209e+03_rb,2.9426e+03_rb,2.9399e+03_rb,2.9204e+03_rb/)
+      kbo(:,52,16) = (/ &
+     &2.8313e+03_rb,2.9062e+03_rb,2.9403e+03_rb,2.9447e+03_rb,2.9298e+03_rb/)
+      kbo(:,53,16) = (/ &
+     &2.7937e+03_rb,2.8849e+03_rb,2.9330e+03_rb,2.9466e+03_rb,2.9378e+03_rb/)
+      kbo(:,54,16) = (/ &
+     &2.7518e+03_rb,2.8608e+03_rb,2.9213e+03_rb,2.9463e+03_rb,2.9434e+03_rb/)
+      kbo(:,55,16) = (/ &
+     &2.7066e+03_rb,2.8327e+03_rb,2.9070e+03_rb,2.9427e+03_rb,2.9473e+03_rb/)
+      kbo(:,56,16) = (/ &
+     &2.6539e+03_rb,2.7985e+03_rb,2.8885e+03_rb,2.9351e+03_rb,2.9485e+03_rb/)
+      kbo(:,57,16) = (/ &
+     &2.5953e+03_rb,2.7598e+03_rb,2.8651e+03_rb,2.9247e+03_rb,2.9481e+03_rb/)
+      kbo(:,58,16) = (/ &
+     &2.5319e+03_rb,2.7165e+03_rb,2.8391e+03_rb,2.9117e+03_rb,2.9450e+03_rb/)
+      kbo(:,59,16) = (/ &
+     &2.5058e+03_rb,2.6981e+03_rb,2.8277e+03_rb,2.9062e+03_rb,2.9427e+03_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &1.0515e-02_rb,1.4860e-02_rb,1.7181e-02_rb,1.6642e-02_rb,1.6644e-02_rb,1.5649e-02_rb, &
+     &1.7734e-02_rb,1.7521e-02_rb,1.7868e-02_rb,1.8400e-02_rb,1.9361e-02_rb,2.1487e-02_rb, &
+     &2.0192e-02_rb,1.6545e-02_rb,2.0922e-02_rb,2.0922e-02_rb/)
+      forrefo(2,:) = (/ &
+     &1.0423e-02_rb,1.4593e-02_rb,1.6329e-02_rb,1.7071e-02_rb,1.7252e-02_rb,1.6188e-02_rb, &
+     &1.7752e-02_rb,1.7913e-02_rb,1.7551e-02_rb,1.8203e-02_rb,1.7946e-02_rb,1.9828e-02_rb, &
+     &2.1566e-02_rb,1.9707e-02_rb,2.0944e-02_rb,2.0944e-02_rb/)
+      forrefo(3,:) = (/ &
+     &9.2770e-03_rb,1.2818e-02_rb,1.7181e-02_rb,1.7858e-02_rb,1.7888e-02_rb,1.7121e-02_rb, &
+     &1.8116e-02_rb,1.8230e-02_rb,1.7719e-02_rb,1.7833e-02_rb,1.8438e-02_rb,1.7995e-02_rb, &
+     &2.0895e-02_rb,2.1525e-02_rb,2.0517e-02_rb,2.0954e-02_rb/)
+      forrefo(4,:) = (/ &
+     &8.3290e-03_rb,1.3483e-02_rb,1.5432e-02_rb,2.0793e-02_rb,1.8404e-02_rb,1.7470e-02_rb, &
+     &1.7253e-02_rb,1.7132e-02_rb,1.7119e-02_rb,1.7376e-02_rb,1.7030e-02_rb,1.6847e-02_rb, &
+     &1.5562e-02_rb,1.6836e-02_rb,1.8746e-02_rb,2.1233e-02_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 2.41120e-01_rb, 2.27071e-01_rb, 2.13840e-01_rb, 2.01380e-01_rb, 1.89646e-01_rb, &
+     & 1.78596e-01_rb, 1.68190e-01_rb, 1.58390e-01_rb, 1.49161e-01_rb, 1.40470e-01_rb/)
+      selfrefo(:, 2) = (/ &
+     & 3.11156e-01_rb, 2.92249e-01_rb, 2.74490e-01_rb, 2.57810e-01_rb, 2.42144e-01_rb, &
+     & 2.27430e-01_rb, 2.13610e-01_rb, 2.00630e-01_rb, 1.88439e-01_rb, 1.76988e-01_rb/)
+      selfrefo(:, 3) = (/ &
+     & 3.37148e-01_rb, 3.17767e-01_rb, 2.99500e-01_rb, 2.82283e-01_rb, 2.66056e-01_rb, &
+     & 2.50762e-01_rb, 2.36347e-01_rb, 2.22760e-01_rb, 2.09955e-01_rb, 1.97885e-01_rb/)
+      selfrefo(:, 4) = (/ &
+     & 3.57139e-01_rb, 3.32763e-01_rb, 3.10050e-01_rb, 2.88888e-01_rb, 2.69170e-01_rb, &
+     & 2.50798e-01_rb, 2.33680e-01_rb, 2.17730e-01_rb, 2.02869e-01_rb, 1.89022e-01_rb/)
+      selfrefo(:, 5) = (/ &
+     & 3.60626e-01_rb, 3.35433e-01_rb, 3.12000e-01_rb, 2.90204e-01_rb, 2.69931e-01_rb, &
+     & 2.51074e-01_rb, 2.33534e-01_rb, 2.17220e-01_rb, 2.02045e-01_rb, 1.87931e-01_rb/)
+      selfrefo(:, 6) = (/ &
+     & 3.42420e-01_rb, 3.18795e-01_rb, 2.96800e-01_rb, 2.76323e-01_rb, 2.57258e-01_rb, &
+     & 2.39509e-01_rb, 2.22985e-01_rb, 2.07600e-01_rb, 1.93277e-01_rb, 1.79942e-01_rb/)
+      selfrefo(:, 7) = (/ &
+     & 3.65491e-01_rb, 3.41599e-01_rb, 3.19270e-01_rb, 2.98400e-01_rb, 2.78895e-01_rb, &
+     & 2.60664e-01_rb, 2.43625e-01_rb, 2.27700e-01_rb, 2.12816e-01_rb, 1.98905e-01_rb/)
+      selfrefo(:, 8) = (/ &
+     & 3.70354e-01_rb, 3.45005e-01_rb, 3.21390e-01_rb, 2.99392e-01_rb, 2.78899e-01_rb, &
+     & 2.59809e-01_rb, 2.42026e-01_rb, 2.25460e-01_rb, 2.10028e-01_rb, 1.95652e-01_rb/)
+      selfrefo(:, 9) = (/ &
+     & 3.60483e-01_rb, 3.37846e-01_rb, 3.16630e-01_rb, 2.96747e-01_rb, 2.78112e-01_rb, &
+     & 2.60648e-01_rb, 2.44280e-01_rb, 2.28940e-01_rb, 2.14563e-01_rb, 2.01090e-01_rb/)
+      selfrefo(:,10) = (/ &
+     & 3.71845e-01_rb, 3.48164e-01_rb, 3.25990e-01_rb, 3.05229e-01_rb, 2.85790e-01_rb, &
+     & 2.67588e-01_rb, 2.50547e-01_rb, 2.34590e-01_rb, 2.19650e-01_rb, 2.05661e-01_rb/)
+      selfrefo(:,11) = (/ &
+     & 3.60606e-01_rb, 3.40789e-01_rb, 3.22060e-01_rb, 3.04361e-01_rb, 2.87634e-01_rb, &
+     & 2.71826e-01_rb, 2.56888e-01_rb, 2.42770e-01_rb, 2.29428e-01_rb, 2.16819e-01_rb/)
+      selfrefo(:,12) = (/ &
+     & 3.90046e-01_rb, 3.68879e-01_rb, 3.48860e-01_rb, 3.29928e-01_rb, 3.12023e-01_rb, &
+     & 2.95089e-01_rb, 2.79075e-01_rb, 2.63930e-01_rb, 2.49607e-01_rb, 2.36061e-01_rb/)
+      selfrefo(:,13) = (/ &
+     & 4.38542e-01_rb, 4.05139e-01_rb, 3.74280e-01_rb, 3.45771e-01_rb, 3.19434e-01_rb, &
+     & 2.95103e-01_rb, 2.72626e-01_rb, 2.51860e-01_rb, 2.32676e-01_rb, 2.14953e-01_rb/)
+      selfrefo(:,14) = (/ &
+     & 4.19448e-01_rb, 3.81920e-01_rb, 3.47750e-01_rb, 3.16637e-01_rb, 2.88307e-01_rb, &
+     & 2.62513e-01_rb, 2.39026e-01_rb, 2.17640e-01_rb, 1.98168e-01_rb, 1.80438e-01_rb/)
+      selfrefo(:,15) = (/ &
+     & 4.20276e-01_rb, 3.92281e-01_rb, 3.66150e-01_rb, 3.41760e-01_rb, 3.18995e-01_rb, &
+     & 2.97746e-01_rb, 2.77912e-01_rb, 2.59400e-01_rb, 2.42121e-01_rb, 2.25993e-01_rb/)
+      selfrefo(:,16) = (/ &
+     & 4.20276e-01_rb, 3.92281e-01_rb, 3.66150e-01_rb, 3.41760e-01_rb, 3.18995e-01_rb, &
+     & 2.97746e-01_rb, 2.77912e-01_rb, 2.59400e-01_rb, 2.42121e-01_rb, 2.25993e-01_rb/)
+
+      end subroutine lw_kgb10
+
+! **************************************************************************
+      subroutine lw_kgb11
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg11, only : fracrefao, fracrefbo, kao, kbo, kao_mo2, &
+                            kbo_mo2, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P=1053.63 mb, T= 294.2 K
+      fracrefao(:) = (/ &
+     &  1.4601e-01_rb,1.3824e-01_rb,1.4240e-01_rb,1.3463e-01_rb,1.1948e-01_rb,1.0440e-01_rb, &
+     &  8.8667e-02_rb,6.5792e-02_rb,4.3893e-02_rb,4.7941e-03_rb,4.0760e-03_rb,3.3207e-03_rb, &
+     &  2.4087e-03_rb,1.3912e-03_rb,4.3482e-04_rb,6.0932e-05_rb/)
+
+! Planck fraction mapping level : P=0.353 mb, T = 262.11 K
+      fracrefbo(:) = (/ &
+     &  7.2928e-02_rb,1.4900e-01_rb,1.6156e-01_rb,1.5603e-01_rb,1.3934e-01_rb,1.1394e-01_rb, &
+     &  8.8783e-02_rb,6.2411e-02_rb,4.0191e-02_rb,4.4587e-03_rb,3.9533e-03_rb,3.0847e-03_rb, &
+     &  2.2317e-03_rb,1.4410e-03_rb,5.6722e-04_rb,7.7933e-05_rb/)
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     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 corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1) = (/ &
+     &4.9423e-02_rb,4.8938e-02_rb,4.8236e-02_rb,4.7630e-02_rb,4.7027e-02_rb/)
+      kao(:, 2, 1) = (/ &
+     &4.0264e-02_rb,3.9991e-02_rb,3.9414e-02_rb,3.8921e-02_rb,3.8455e-02_rb/)
+      kao(:, 3, 1) = (/ &
+     &3.2762e-02_rb,3.2612e-02_rb,3.2225e-02_rb,3.1842e-02_rb,3.1448e-02_rb/)
+      kao(:, 4, 1) = (/ &
+     &2.6929e-02_rb,2.6828e-02_rb,2.6636e-02_rb,2.6311e-02_rb,2.5979e-02_rb/)
+      kao(:, 5, 1) = (/ &
+     &2.2254e-02_rb,2.2190e-02_rb,2.2139e-02_rb,2.1844e-02_rb,2.1606e-02_rb/)
+      kao(:, 6, 1) = (/ &
+     &1.8428e-02_rb,1.8406e-02_rb,1.8346e-02_rb,1.8223e-02_rb,1.7986e-02_rb/)
+      kao(:, 7, 1) = (/ &
+     &1.5302e-02_rb,1.5279e-02_rb,1.5227e-02_rb,1.5173e-02_rb,1.5001e-02_rb/)
+      kao(:, 8, 1) = (/ &
+     &1.2917e-02_rb,1.2821e-02_rb,1.2762e-02_rb,1.2673e-02_rb,1.2614e-02_rb/)
+      kao(:, 9, 1) = (/ &
+     &1.4361e-02_rb,1.3355e-02_rb,1.2836e-02_rb,1.2424e-02_rb,1.2069e-02_rb/)
+      kao(:,10, 1) = (/ &
+     &1.9078e-02_rb,1.9077e-02_rb,1.9301e-02_rb,1.9494e-02_rb,1.9600e-02_rb/)
+      kao(:,11, 1) = (/ &
+     &1.6651e-02_rb,1.7279e-02_rb,1.7762e-02_rb,1.8212e-02_rb,1.8508e-02_rb/)
+      kao(:,12, 1) = (/ &
+     &1.4359e-02_rb,1.4912e-02_rb,1.5370e-02_rb,1.5766e-02_rb,1.6068e-02_rb/)
+      kao(:,13, 1) = (/ &
+     &1.2190e-02_rb,1.2693e-02_rb,1.3086e-02_rb,1.3355e-02_rb,1.3602e-02_rb/)
+      kao(:, 1, 2) = (/ &
+     &1.3874e-01_rb,1.3507e-01_rb,1.3188e-01_rb,1.2875e-01_rb,1.2573e-01_rb/)
+      kao(:, 2, 2) = (/ &
+     &1.1449e-01_rb,1.1143e-01_rb,1.0880e-01_rb,1.0626e-01_rb,1.0384e-01_rb/)
+      kao(:, 3, 2) = (/ &
+     &9.4610e-02_rb,9.2157e-02_rb,8.9899e-02_rb,8.7836e-02_rb,8.5813e-02_rb/)
+      kao(:, 4, 2) = (/ &
+     &7.8921e-02_rb,7.6917e-02_rb,7.5042e-02_rb,7.3283e-02_rb,7.1619e-02_rb/)
+      kao(:, 5, 2) = (/ &
+     &6.6025e-02_rb,6.4395e-02_rb,6.2788e-02_rb,6.1406e-02_rb,5.9938e-02_rb/)
+      kao(:, 6, 2) = (/ &
+     &5.5198e-02_rb,5.3979e-02_rb,5.2652e-02_rb,5.1421e-02_rb,5.0291e-02_rb/)
+      kao(:, 7, 2) = (/ &
+     &4.5982e-02_rb,4.5142e-02_rb,4.4142e-02_rb,4.3045e-02_rb,4.2121e-02_rb/)
+      kao(:, 8, 2) = (/ &
+     &3.8128e-02_rb,3.7632e-02_rb,3.6913e-02_rb,3.6127e-02_rb,3.5207e-02_rb/)
+      kao(:, 9, 2) = (/ &
+     &2.9988e-02_rb,3.0199e-02_rb,2.9924e-02_rb,2.9588e-02_rb,2.9106e-02_rb/)
+      kao(:,10, 2) = (/ &
+     &4.8557e-02_rb,4.4974e-02_rb,3.7588e-02_rb,3.1508e-02_rb,2.7381e-02_rb/)
+      kao(:,11, 2) = (/ &
+     &4.6113e-02_rb,4.4271e-02_rb,4.2375e-02_rb,4.0024e-02_rb,3.7665e-02_rb/)
+      kao(:,12, 2) = (/ &
+     &4.0305e-02_rb,3.9408e-02_rb,3.7504e-02_rb,3.5981e-02_rb,3.4390e-02_rb/)
+      kao(:,13, 2) = (/ &
+     &3.3779e-02_rb,3.2735e-02_rb,3.1178e-02_rb,2.9814e-02_rb,2.8271e-02_rb/)
+      kao(:, 1, 3) = (/ &
+     &2.4150e-01_rb,2.3616e-01_rb,2.3111e-01_rb,2.2673e-01_rb,2.2290e-01_rb/)
+      kao(:, 2, 3) = (/ &
+     &2.0007e-01_rb,1.9568e-01_rb,1.9176e-01_rb,1.8825e-01_rb,1.8518e-01_rb/)
+      kao(:, 3, 3) = (/ &
+     &1.6573e-01_rb,1.6221e-01_rb,1.5908e-01_rb,1.5616e-01_rb,1.5376e-01_rb/)
+      kao(:, 4, 3) = (/ &
+     &1.3876e-01_rb,1.3573e-01_rb,1.3298e-01_rb,1.3059e-01_rb,1.2856e-01_rb/)
+      kao(:, 5, 3) = (/ &
+     &1.1663e-01_rb,1.1399e-01_rb,1.1156e-01_rb,1.0951e-01_rb,1.0785e-01_rb/)
+      kao(:, 6, 3) = (/ &
+     &9.8259e-02_rb,9.5861e-02_rb,9.3802e-02_rb,9.1948e-02_rb,9.0492e-02_rb/)
+      kao(:, 7, 3) = (/ &
+     &8.2887e-02_rb,8.0616e-02_rb,7.8766e-02_rb,7.7206e-02_rb,7.5856e-02_rb/)
+      kao(:, 8, 3) = (/ &
+     &6.9730e-02_rb,6.7730e-02_rb,6.5964e-02_rb,6.4565e-02_rb,6.3437e-02_rb/)
+      kao(:, 9, 3) = (/ &
+     &5.8101e-02_rb,5.6452e-02_rb,5.5028e-02_rb,5.3674e-02_rb,5.2557e-02_rb/)
+      kao(:,10, 3) = (/ &
+     &3.7373e-02_rb,3.5041e-02_rb,3.8621e-02_rb,4.1558e-02_rb,4.3012e-02_rb/)
+      kao(:,11, 3) = (/ &
+     &5.3584e-02_rb,4.0890e-02_rb,3.3882e-02_rb,2.9034e-02_rb,2.6383e-02_rb/)
+      kao(:,12, 3) = (/ &
+     &5.8428e-02_rb,4.4689e-02_rb,3.5111e-02_rb,2.9172e-02_rb,2.4695e-02_rb/)
+      kao(:,13, 3) = (/ &
+     &4.7904e-02_rb,3.6965e-02_rb,2.8601e-02_rb,2.3919e-02_rb,2.0680e-02_rb/)
+      kao(:, 1, 4) = (/ &
+     &4.2548e-01_rb,4.1807e-01_rb,4.1094e-01_rb,4.0423e-01_rb,3.9806e-01_rb/)
+      kao(:, 2, 4) = (/ &
+     &3.5494e-01_rb,3.4863e-01_rb,3.4235e-01_rb,3.3657e-01_rb,3.3155e-01_rb/)
+      kao(:, 3, 4) = (/ &
+     &2.9648e-01_rb,2.9099e-01_rb,2.8545e-01_rb,2.8071e-01_rb,2.7648e-01_rb/)
+      kao(:, 4, 4) = (/ &
+     &2.4939e-01_rb,2.4483e-01_rb,2.4021e-01_rb,2.3626e-01_rb,2.3256e-01_rb/)
+      kao(:, 5, 4) = (/ &
+     &2.1025e-01_rb,2.0654e-01_rb,2.0285e-01_rb,1.9937e-01_rb,1.9615e-01_rb/)
+      kao(:, 6, 4) = (/ &
+     &1.7714e-01_rb,1.7417e-01_rb,1.7124e-01_rb,1.6826e-01_rb,1.6547e-01_rb/)
+      kao(:, 7, 4) = (/ &
+     &1.4884e-01_rb,1.4658e-01_rb,1.4422e-01_rb,1.4179e-01_rb,1.3940e-01_rb/)
+      kao(:, 8, 4) = (/ &
+     &1.2471e-01_rb,1.2286e-01_rb,1.2117e-01_rb,1.1917e-01_rb,1.1721e-01_rb/)
+      kao(:, 9, 4) = (/ &
+     &1.0337e-01_rb,1.0218e-01_rb,1.0077e-01_rb,9.9333e-02_rb,9.7869e-02_rb/)
+      kao(:,10, 4) = (/ &
+     &8.5198e-02_rb,8.3413e-02_rb,8.1099e-02_rb,7.8395e-02_rb,7.6293e-02_rb/)
+      kao(:,11, 4) = (/ &
+     &6.0820e-02_rb,6.7915e-02_rb,6.7626e-02_rb,6.6844e-02_rb,6.6371e-02_rb/)
+      kao(:,12, 4) = (/ &
+     &4.0000e-02_rb,4.8190e-02_rb,5.3574e-02_rb,5.5575e-02_rb,5.5151e-02_rb/)
+      kao(:,13, 4) = (/ &
+     &3.3587e-02_rb,4.0386e-02_rb,4.5135e-02_rb,4.6401e-02_rb,4.5805e-02_rb/)
+      kao(:, 1, 5) = (/ &
+     &7.7524e-01_rb,7.6536e-01_rb,7.5522e-01_rb,7.4431e-01_rb,7.3311e-01_rb/)
+      kao(:, 2, 5) = (/ &
+     &6.5185e-01_rb,6.4405e-01_rb,6.3568e-01_rb,6.2684e-01_rb,6.1765e-01_rb/)
+      kao(:, 3, 5) = (/ &
+     &5.4580e-01_rb,5.3942e-01_rb,5.3289e-01_rb,5.2546e-01_rb,5.1768e-01_rb/)
+      kao(:, 4, 5) = (/ &
+     &4.5945e-01_rb,4.5416e-01_rb,4.4868e-01_rb,4.4229e-01_rb,4.3592e-01_rb/)
+      kao(:, 5, 5) = (/ &
+     &3.8777e-01_rb,3.8350e-01_rb,3.7876e-01_rb,3.7352e-01_rb,3.6853e-01_rb/)
+      kao(:, 6, 5) = (/ &
+     &3.2750e-01_rb,3.2403e-01_rb,3.2009e-01_rb,3.1598e-01_rb,3.1216e-01_rb/)
+      kao(:, 7, 5) = (/ &
+     &2.7610e-01_rb,2.7333e-01_rb,2.7016e-01_rb,2.6699e-01_rb,2.6402e-01_rb/)
+      kao(:, 8, 5) = (/ &
+     &2.3237e-01_rb,2.3021e-01_rb,2.2764e-01_rb,2.2511e-01_rb,2.2263e-01_rb/)
+      kao(:, 9, 5) = (/ &
+     &1.9461e-01_rb,1.9312e-01_rb,1.9116e-01_rb,1.8911e-01_rb,1.8708e-01_rb/)
+      kao(:,10, 5) = (/ &
+     &1.4772e-01_rb,1.4997e-01_rb,1.5067e-01_rb,1.5164e-01_rb,1.5169e-01_rb/)
+      kao(:,11, 5) = (/ &
+     &1.1317e-01_rb,1.1322e-01_rb,1.1552e-01_rb,1.1824e-01_rb,1.1886e-01_rb/)
+      kao(:,12, 5) = (/ &
+     &9.7948e-02_rb,9.4310e-02_rb,9.3527e-02_rb,9.3094e-02_rb,9.5273e-02_rb/)
+      kao(:,13, 5) = (/ &
+     &8.1443e-02_rb,7.8686e-02_rb,7.8076e-02_rb,7.8298e-02_rb,8.0221e-02_rb/)
+      kao(:, 1, 6) = (/ &
+     &1.5697e+00_rb,1.5485e+00_rb,1.5270e+00_rb,1.5062e+00_rb,1.4845e+00_rb/)
+      kao(:, 2, 6) = (/ &
+     &1.3465e+00_rb,1.3286e+00_rb,1.3101e+00_rb,1.2912e+00_rb,1.2719e+00_rb/)
+      kao(:, 3, 6) = (/ &
+     &1.1474e+00_rb,1.1322e+00_rb,1.1161e+00_rb,1.0997e+00_rb,1.0837e+00_rb/)
+      kao(:, 4, 6) = (/ &
+     &9.7861e-01_rb,9.6591e-01_rb,9.5236e-01_rb,9.3871e-01_rb,9.2522e-01_rb/)
+      kao(:, 5, 6) = (/ &
+     &8.3345e-01_rb,8.2282e-01_rb,8.1147e-01_rb,8.0015e-01_rb,7.8882e-01_rb/)
+      kao(:, 6, 6) = (/ &
+     &7.0768e-01_rb,6.9919e-01_rb,6.8975e-01_rb,6.8018e-01_rb,6.7024e-01_rb/)
+      kao(:, 7, 6) = (/ &
+     &5.9916e-01_rb,5.9240e-01_rb,5.8444e-01_rb,5.7632e-01_rb,5.6762e-01_rb/)
+      kao(:, 8, 6) = (/ &
+     &5.0612e-01_rb,5.0051e-01_rb,4.9423e-01_rb,4.8731e-01_rb,4.7989e-01_rb/)
+      kao(:, 9, 6) = (/ &
+     &4.2622e-01_rb,4.2196e-01_rb,4.1690e-01_rb,4.1124e-01_rb,4.0525e-01_rb/)
+      kao(:,10, 6) = (/ &
+     &3.5041e-01_rb,3.4937e-01_rb,3.4686e-01_rb,3.4326e-01_rb,3.3900e-01_rb/)
+      kao(:,11, 6) = (/ &
+     &2.8138e-01_rb,2.8270e-01_rb,2.8314e-01_rb,2.8109e-01_rb,2.7863e-01_rb/)
+      kao(:,12, 6) = (/ &
+     &2.2569e-01_rb,2.3115e-01_rb,2.3249e-01_rb,2.3233e-01_rb,2.3100e-01_rb/)
+      kao(:,13, 6) = (/ &
+     &1.8817e-01_rb,1.9206e-01_rb,1.9341e-01_rb,1.9316e-01_rb,1.9216e-01_rb/)
+      kao(:, 1, 7) = (/ &
+     &3.4196e+00_rb,3.3801e+00_rb,3.3399e+00_rb,3.2946e+00_rb,3.2477e+00_rb/)
+      kao(:, 2, 7) = (/ &
+     &3.0295e+00_rb,2.9903e+00_rb,2.9469e+00_rb,2.9032e+00_rb,2.8599e+00_rb/)
+      kao(:, 3, 7) = (/ &
+     &2.6483e+00_rb,2.6096e+00_rb,2.5696e+00_rb,2.5316e+00_rb,2.4936e+00_rb/)
+      kao(:, 4, 7) = (/ &
+     &2.3044e+00_rb,2.2705e+00_rb,2.2374e+00_rb,2.2055e+00_rb,2.1724e+00_rb/)
+      kao(:, 5, 7) = (/ &
+     &1.9970e+00_rb,1.9688e+00_rb,1.9416e+00_rb,1.9143e+00_rb,1.8852e+00_rb/)
+      kao(:, 6, 7) = (/ &
+     &1.7224e+00_rb,1.6992e+00_rb,1.6760e+00_rb,1.6526e+00_rb,1.6276e+00_rb/)
+      kao(:, 7, 7) = (/ &
+     &1.4770e+00_rb,1.4579e+00_rb,1.4384e+00_rb,1.4185e+00_rb,1.3976e+00_rb/)
+      kao(:, 8, 7) = (/ &
+     &1.2593e+00_rb,1.2433e+00_rb,1.2274e+00_rb,1.2112e+00_rb,1.1939e+00_rb/)
+      kao(:, 9, 7) = (/ &
+     &1.0697e+00_rb,1.0563e+00_rb,1.0434e+00_rb,1.0295e+00_rb,1.0150e+00_rb/)
+      kao(:,10, 7) = (/ &
+     &9.0213e-01_rb,8.9139e-01_rb,8.8119e-01_rb,8.6954e-01_rb,8.5716e-01_rb/)
+      kao(:,11, 7) = (/ &
+     &7.5061e-01_rb,7.4446e-01_rb,7.3597e-01_rb,7.2638e-01_rb,7.1615e-01_rb/)
+      kao(:,12, 7) = (/ &
+     &6.2457e-01_rb,6.1924e-01_rb,6.1219e-01_rb,6.0465e-01_rb,5.9633e-01_rb/)
+      kao(:,13, 7) = (/ &
+     &5.2204e-01_rb,5.1758e-01_rb,5.1182e-01_rb,5.0530e-01_rb,4.9787e-01_rb/)
+      kao(:, 1, 8) = (/ &
+     &7.9795e+00_rb,7.8457e+00_rb,7.7132e+00_rb,7.5890e+00_rb,7.4645e+00_rb/)
+      kao(:, 2, 8) = (/ &
+     &7.5076e+00_rb,7.3733e+00_rb,7.2519e+00_rb,7.1316e+00_rb,7.0099e+00_rb/)
+      kao(:, 3, 8) = (/ &
+     &6.9340e+00_rb,6.8148e+00_rb,6.7036e+00_rb,6.5875e+00_rb,6.4766e+00_rb/)
+      kao(:, 4, 8) = (/ &
+     &6.3414e+00_rb,6.2366e+00_rb,6.1298e+00_rb,6.0215e+00_rb,5.9183e+00_rb/)
+      kao(:, 5, 8) = (/ &
+     &5.7373e+00_rb,5.6423e+00_rb,5.5412e+00_rb,5.4426e+00_rb,5.3434e+00_rb/)
+      kao(:, 6, 8) = (/ &
+     &5.1373e+00_rb,5.0482e+00_rb,4.9577e+00_rb,4.8621e+00_rb,4.7659e+00_rb/)
+      kao(:, 7, 8) = (/ &
+     &4.5492e+00_rb,4.4684e+00_rb,4.3821e+00_rb,4.2928e+00_rb,4.2067e+00_rb/)
+      kao(:, 8, 8) = (/ &
+     &3.9884e+00_rb,3.9140e+00_rb,3.8349e+00_rb,3.7563e+00_rb,3.6821e+00_rb/)
+      kao(:, 9, 8) = (/ &
+     &3.4656e+00_rb,3.3995e+00_rb,3.3300e+00_rb,3.2636e+00_rb,3.2010e+00_rb/)
+      kao(:,10, 8) = (/ &
+     &2.9841e+00_rb,2.9267e+00_rb,2.8680e+00_rb,2.8124e+00_rb,2.7592e+00_rb/)
+      kao(:,11, 8) = (/ &
+     &2.5294e+00_rb,2.4795e+00_rb,2.4321e+00_rb,2.3862e+00_rb,2.3418e+00_rb/)
+      kao(:,12, 8) = (/ &
+     &2.1315e+00_rb,2.0918e+00_rb,2.0527e+00_rb,2.0146e+00_rb,1.9776e+00_rb/)
+      kao(:,13, 8) = (/ &
+     &1.7932e+00_rb,1.7598e+00_rb,1.7272e+00_rb,1.6957e+00_rb,1.6643e+00_rb/)
+      kao(:, 1, 9) = (/ &
+     &1.8965e+01_rb,1.8711e+01_rb,1.8469e+01_rb,1.8242e+01_rb,1.8035e+01_rb/)
+      kao(:, 2, 9) = (/ &
+     &1.9621e+01_rb,1.9373e+01_rb,1.9124e+01_rb,1.8882e+01_rb,1.8648e+01_rb/)
+      kao(:, 3, 9) = (/ &
+     &2.0111e+01_rb,1.9849e+01_rb,1.9576e+01_rb,1.9310e+01_rb,1.9047e+01_rb/)
+      kao(:, 4, 9) = (/ &
+     &2.0303e+01_rb,2.0017e+01_rb,1.9726e+01_rb,1.9447e+01_rb,1.9174e+01_rb/)
+      kao(:, 5, 9) = (/ &
+     &2.0176e+01_rb,1.9882e+01_rb,1.9591e+01_rb,1.9312e+01_rb,1.9035e+01_rb/)
+      kao(:, 6, 9) = (/ &
+     &1.9747e+01_rb,1.9457e+01_rb,1.9166e+01_rb,1.8888e+01_rb,1.8606e+01_rb/)
+      kao(:, 7, 9) = (/ &
+     &1.9018e+01_rb,1.8727e+01_rb,1.8446e+01_rb,1.8173e+01_rb,1.7878e+01_rb/)
+      kao(:, 8, 9) = (/ &
+     &1.8015e+01_rb,1.7734e+01_rb,1.7466e+01_rb,1.7191e+01_rb,1.6898e+01_rb/)
+      kao(:, 9, 9) = (/ &
+     &1.6785e+01_rb,1.6527e+01_rb,1.6264e+01_rb,1.5992e+01_rb,1.5711e+01_rb/)
+      kao(:,10, 9) = (/ &
+     &1.5379e+01_rb,1.5144e+01_rb,1.4899e+01_rb,1.4648e+01_rb,1.4396e+01_rb/)
+      kao(:,11, 9) = (/ &
+     &1.3809e+01_rb,1.3588e+01_rb,1.3370e+01_rb,1.3146e+01_rb,1.2927e+01_rb/)
+      kao(:,12, 9) = (/ &
+     &1.2243e+01_rb,1.2056e+01_rb,1.1862e+01_rb,1.1669e+01_rb,1.1464e+01_rb/)
+      kao(:,13, 9) = (/ &
+     &1.0743e+01_rb,1.0581e+01_rb,1.0416e+01_rb,1.0238e+01_rb,1.0057e+01_rb/)
+      kao(:, 1,10) = (/ &
+     &3.4918e+01_rb,3.4410e+01_rb,3.3938e+01_rb,3.3384e+01_rb,3.2811e+01_rb/)
+      kao(:, 2,10) = (/ &
+     &3.7421e+01_rb,3.6860e+01_rb,3.6321e+01_rb,3.5822e+01_rb,3.5445e+01_rb/)
+      kao(:, 3,10) = (/ &
+     &4.0412e+01_rb,3.9722e+01_rb,3.9217e+01_rb,3.8832e+01_rb,3.8460e+01_rb/)
+      kao(:, 4,10) = (/ &
+     &4.3162e+01_rb,4.2539e+01_rb,4.2112e+01_rb,4.1640e+01_rb,4.1120e+01_rb/)
+      kao(:, 5,10) = (/ &
+     &4.5609e+01_rb,4.5045e+01_rb,4.4552e+01_rb,4.3899e+01_rb,4.3271e+01_rb/)
+      kao(:, 6,10) = (/ &
+     &4.7877e+01_rb,4.7338e+01_rb,4.6747e+01_rb,4.6031e+01_rb,4.5492e+01_rb/)
+      kao(:, 7,10) = (/ &
+     &4.9831e+01_rb,4.9324e+01_rb,4.8717e+01_rb,4.8005e+01_rb,4.7611e+01_rb/)
+      kao(:, 8,10) = (/ &
+     &5.1031e+01_rb,5.0574e+01_rb,4.9915e+01_rb,4.9244e+01_rb,4.8761e+01_rb/)
+      kao(:, 9,10) = (/ &
+     &5.1465e+01_rb,5.0984e+01_rb,5.0270e+01_rb,4.9612e+01_rb,4.9032e+01_rb/)
+      kao(:,10,10) = (/ &
+     &5.0911e+01_rb,5.0267e+01_rb,4.9512e+01_rb,4.8818e+01_rb,4.8092e+01_rb/)
+      kao(:,11,10) = (/ &
+     &4.8719e+01_rb,4.7980e+01_rb,4.7190e+01_rb,4.6412e+01_rb,4.5593e+01_rb/)
+      kao(:,12,10) = (/ &
+     &4.5566e+01_rb,4.4779e+01_rb,4.4020e+01_rb,4.3287e+01_rb,4.2695e+01_rb/)
+      kao(:,13,10) = (/ &
+     &4.1842e+01_rb,4.1126e+01_rb,4.0474e+01_rb,3.9934e+01_rb,3.9455e+01_rb/)
+      kao(:, 1,11) = (/ &
+     &4.3485e+01_rb,4.3086e+01_rb,4.2575e+01_rb,4.2046e+01_rb,4.1574e+01_rb/)
+      kao(:, 2,11) = (/ &
+     &4.8017e+01_rb,4.7410e+01_rb,4.6743e+01_rb,4.6112e+01_rb,4.5460e+01_rb/)
+      kao(:, 3,11) = (/ &
+     &5.1964e+01_rb,5.1351e+01_rb,5.0628e+01_rb,4.9892e+01_rb,4.9112e+01_rb/)
+      kao(:, 4,11) = (/ &
+     &5.5970e+01_rb,5.5232e+01_rb,5.4425e+01_rb,5.3658e+01_rb,5.2964e+01_rb/)
+      kao(:, 5,11) = (/ &
+     &6.0234e+01_rb,5.9398e+01_rb,5.8467e+01_rb,5.7720e+01_rb,5.7104e+01_rb/)
+      kao(:, 6,11) = (/ &
+     &6.4036e+01_rb,6.3174e+01_rb,6.2265e+01_rb,6.1623e+01_rb,6.0928e+01_rb/)
+      kao(:, 7,11) = (/ &
+     &6.7087e+01_rb,6.6347e+01_rb,6.5603e+01_rb,6.4996e+01_rb,6.4192e+01_rb/)
+      kao(:, 8,11) = (/ &
+     &6.9922e+01_rb,6.9386e+01_rb,6.8783e+01_rb,6.8159e+01_rb,6.7317e+01_rb/)
+      kao(:, 9,11) = (/ &
+     &7.2326e+01_rb,7.1863e+01_rb,7.1404e+01_rb,7.0792e+01_rb,6.9972e+01_rb/)
+      kao(:,10,11) = (/ &
+     &7.3782e+01_rb,7.3486e+01_rb,7.3017e+01_rb,7.2321e+01_rb,7.1486e+01_rb/)
+      kao(:,11,11) = (/ &
+     &7.4137e+01_rb,7.3779e+01_rb,7.3113e+01_rb,7.2218e+01_rb,7.1354e+01_rb/)
+      kao(:,12,11) = (/ &
+     &7.3214e+01_rb,7.2506e+01_rb,7.1526e+01_rb,7.0521e+01_rb,6.9446e+01_rb/)
+      kao(:,13,11) = (/ &
+     &7.0360e+01_rb,6.9342e+01_rb,6.8249e+01_rb,6.7098e+01_rb,6.5980e+01_rb/)
+      kao(:, 1,12) = (/ &
+     &5.1887e+01_rb,5.1393e+01_rb,5.0969e+01_rb,5.0675e+01_rb,5.0203e+01_rb/)
+      kao(:, 2,12) = (/ &
+     &5.9704e+01_rb,5.9201e+01_rb,5.8829e+01_rb,5.8469e+01_rb,5.7899e+01_rb/)
+      kao(:, 3,12) = (/ &
+     &6.7858e+01_rb,6.7238e+01_rb,6.6756e+01_rb,6.6195e+01_rb,6.5626e+01_rb/)
+      kao(:, 4,12) = (/ &
+     &7.5062e+01_rb,7.4258e+01_rb,7.3522e+01_rb,7.2807e+01_rb,7.2094e+01_rb/)
+      kao(:, 5,12) = (/ &
+     &8.1152e+01_rb,8.0143e+01_rb,7.9393e+01_rb,7.8647e+01_rb,7.7881e+01_rb/)
+      kao(:, 6,12) = (/ &
+     &8.7340e+01_rb,8.6150e+01_rb,8.5372e+01_rb,8.4516e+01_rb,8.3657e+01_rb/)
+      kao(:, 7,12) = (/ &
+     &9.4121e+01_rb,9.2665e+01_rb,9.1695e+01_rb,9.0706e+01_rb,8.9764e+01_rb/)
+      kao(:, 8,12) = (/ &
+     &1.0086e+02_rb,9.9171e+01_rb,9.7989e+01_rb,9.6851e+01_rb,9.5921e+01_rb/)
+      kao(:, 9,12) = (/ &
+     &1.0671e+02_rb,1.0483e+02_rb,1.0352e+02_rb,1.0233e+02_rb,1.0145e+02_rb/)
+      kao(:,10,12) = (/ &
+     &1.1135e+02_rb,1.0957e+02_rb,1.0846e+02_rb,1.0742e+02_rb,1.0652e+02_rb/)
+      kao(:,11,12) = (/ &
+     &1.1430e+02_rb,1.1336e+02_rb,1.1254e+02_rb,1.1170e+02_rb,1.1063e+02_rb/)
+      kao(:,12,12) = (/ &
+     &1.1681e+02_rb,1.1638e+02_rb,1.1571e+02_rb,1.1469e+02_rb,1.1347e+02_rb/)
+      kao(:,13,12) = (/ &
+     &1.1832e+02_rb,1.1787e+02_rb,1.1696e+02_rb,1.1585e+02_rb,1.1448e+02_rb/)
+      kao(:, 1,13) = (/ &
+     &6.2138e+01_rb,6.1536e+01_rb,6.0957e+01_rb,6.0185e+01_rb,5.9644e+01_rb/)
+      kao(:, 2,13) = (/ &
+     &7.3104e+01_rb,7.2436e+01_rb,7.1604e+01_rb,7.0616e+01_rb,6.9923e+01_rb/)
+      kao(:, 3,13) = (/ &
+     &8.5575e+01_rb,8.4690e+01_rb,8.3633e+01_rb,8.2595e+01_rb,8.1733e+01_rb/)
+      kao(:, 4,13) = (/ &
+     &9.8880e+01_rb,9.7932e+01_rb,9.6845e+01_rb,9.5711e+01_rb,9.4631e+01_rb/)
+      kao(:, 5,13) = (/ &
+     &1.1273e+02_rb,1.1168e+02_rb,1.1051e+02_rb,1.0912e+02_rb,1.0775e+02_rb/)
+      kao(:, 6,13) = (/ &
+     &1.2651e+02_rb,1.2538e+02_rb,1.2389e+02_rb,1.2226e+02_rb,1.2074e+02_rb/)
+      kao(:, 7,13) = (/ &
+     &1.4003e+02_rb,1.3861e+02_rb,1.3671e+02_rb,1.3477e+02_rb,1.3302e+02_rb/)
+      kao(:, 8,13) = (/ &
+     &1.5267e+02_rb,1.5069e+02_rb,1.4845e+02_rb,1.4633e+02_rb,1.4433e+02_rb/)
+      kao(:, 9,13) = (/ &
+     &1.6510e+02_rb,1.6280e+02_rb,1.6039e+02_rb,1.5803e+02_rb,1.5572e+02_rb/)
+      kao(:,10,13) = (/ &
+     &1.7758e+02_rb,1.7506e+02_rb,1.7227e+02_rb,1.6951e+02_rb,1.6718e+02_rb/)
+      kao(:,11,13) = (/ &
+     &1.8910e+02_rb,1.8565e+02_rb,1.8227e+02_rb,1.7970e+02_rb,1.7779e+02_rb/)
+      kao(:,12,13) = (/ &
+     &1.9894e+02_rb,1.9500e+02_rb,1.9204e+02_rb,1.8987e+02_rb,1.8782e+02_rb/)
+      kao(:,13,13) = (/ &
+     &2.0665e+02_rb,2.0326e+02_rb,2.0074e+02_rb,1.9867e+02_rb,1.9680e+02_rb/)
+      kao(:, 1,14) = (/ &
+     &7.2473e+01_rb,7.1368e+01_rb,7.0428e+01_rb,6.9932e+01_rb,6.9604e+01_rb/)
+      kao(:, 2,14) = (/ &
+     &8.7789e+01_rb,8.6447e+01_rb,8.5315e+01_rb,8.4536e+01_rb,8.3865e+01_rb/)
+      kao(:, 3,14) = (/ &
+     &1.0616e+02_rb,1.0473e+02_rb,1.0338e+02_rb,1.0236e+02_rb,1.0132e+02_rb/)
+      kao(:, 4,14) = (/ &
+     &1.2669e+02_rb,1.2502e+02_rb,1.2342e+02_rb,1.2210e+02_rb,1.2081e+02_rb/)
+      kao(:, 5,14) = (/ &
+     &1.4951e+02_rb,1.4761e+02_rb,1.4568e+02_rb,1.4409e+02_rb,1.4262e+02_rb/)
+      kao(:, 6,14) = (/ &
+     &1.7487e+02_rb,1.7259e+02_rb,1.7054e+02_rb,1.6873e+02_rb,1.6691e+02_rb/)
+      kao(:, 7,14) = (/ &
+     &2.0246e+02_rb,2.0010e+02_rb,1.9793e+02_rb,1.9585e+02_rb,1.9382e+02_rb/)
+      kao(:, 8,14) = (/ &
+     &2.3272e+02_rb,2.3034e+02_rb,2.2811e+02_rb,2.2588e+02_rb,2.2363e+02_rb/)
+      kao(:, 9,14) = (/ &
+     &2.6521e+02_rb,2.6298e+02_rb,2.6062e+02_rb,2.5802e+02_rb,2.5525e+02_rb/)
+      kao(:,10,14) = (/ &
+     &2.9843e+02_rb,2.9609e+02_rb,2.9357e+02_rb,2.9069e+02_rb,2.8721e+02_rb/)
+      kao(:,11,14) = (/ &
+     &3.3019e+02_rb,3.2789e+02_rb,3.2506e+02_rb,3.2111e+02_rb,3.1667e+02_rb/)
+      kao(:,12,14) = (/ &
+     &3.6200e+02_rb,3.5928e+02_rb,3.5512e+02_rb,3.5030e+02_rb,3.4598e+02_rb/)
+      kao(:,13,14) = (/ &
+     &3.9453e+02_rb,3.9054e+02_rb,3.8556e+02_rb,3.8029e+02_rb,3.7518e+02_rb/)
+      kao(:, 1,15) = (/ &
+     &8.4296e+01_rb,8.4294e+01_rb,8.4592e+01_rb,8.4817e+01_rb,8.4944e+01_rb/)
+      kao(:, 2,15) = (/ &
+     &1.0316e+02_rb,1.0286e+02_rb,1.0304e+02_rb,1.0333e+02_rb,1.0370e+02_rb/)
+      kao(:, 3,15) = (/ &
+     &1.2648e+02_rb,1.2563e+02_rb,1.2552e+02_rb,1.2542e+02_rb,1.2564e+02_rb/)
+      kao(:, 4,15) = (/ &
+     &1.5355e+02_rb,1.5194e+02_rb,1.5117e+02_rb,1.5062e+02_rb,1.5044e+02_rb/)
+      kao(:, 5,15) = (/ &
+     &1.8607e+02_rb,1.8324e+02_rb,1.8143e+02_rb,1.8019e+02_rb,1.7911e+02_rb/)
+      kao(:, 6,15) = (/ &
+     &2.2538e+02_rb,2.2140e+02_rb,2.1806e+02_rb,2.1567e+02_rb,2.1369e+02_rb/)
+      kao(:, 7,15) = (/ &
+     &2.7204e+02_rb,2.6705e+02_rb,2.6220e+02_rb,2.5861e+02_rb,2.5549e+02_rb/)
+      kao(:, 8,15) = (/ &
+     &3.2681e+02_rb,3.2069e+02_rb,3.1478e+02_rb,3.0961e+02_rb,3.0517e+02_rb/)
+      kao(:, 9,15) = (/ &
+     &3.9109e+02_rb,3.8311e+02_rb,3.7570e+02_rb,3.6941e+02_rb,3.6369e+02_rb/)
+      kao(:,10,15) = (/ &
+     &4.6558e+02_rb,4.5519e+02_rb,4.4566e+02_rb,4.3786e+02_rb,4.3114e+02_rb/)
+      kao(:,11,15) = (/ &
+     &5.4422e+02_rb,5.3170e+02_rb,5.2160e+02_rb,5.1300e+02_rb,5.0502e+02_rb/)
+      kao(:,12,15) = (/ &
+     &6.3083e+02_rb,6.1809e+02_rb,6.0782e+02_rb,5.9755e+02_rb,5.8778e+02_rb/)
+      kao(:,13,15) = (/ &
+     &7.2633e+02_rb,7.1401e+02_rb,7.0254e+02_rb,6.9098e+02_rb,6.8020e+02_rb/)
+      kao(:, 1,16) = (/ &
+     &9.0293e+01_rb,9.1524e+01_rb,9.2499e+01_rb,9.3157e+01_rb,9.3569e+01_rb/)
+      kao(:, 2,16) = (/ &
+     &1.1228e+02_rb,1.1346e+02_rb,1.1477e+02_rb,1.1575e+02_rb,1.1638e+02_rb/)
+      kao(:, 3,16) = (/ &
+     &1.3962e+02_rb,1.4080e+02_rb,1.4217e+02_rb,1.4343e+02_rb,1.4444e+02_rb/)
+      kao(:, 4,16) = (/ &
+     &1.7141e+02_rb,1.7272e+02_rb,1.7425e+02_rb,1.7564e+02_rb,1.7671e+02_rb/)
+      kao(:, 5,16) = (/ &
+     &2.0680e+02_rb,2.1031e+02_rb,2.1221e+02_rb,2.1383e+02_rb,2.1512e+02_rb/)
+      kao(:, 6,16) = (/ &
+     &2.5314e+02_rb,2.5478e+02_rb,2.5735e+02_rb,2.5955e+02_rb,2.6116e+02_rb/)
+      kao(:, 7,16) = (/ &
+     &3.0938e+02_rb,3.0774e+02_rb,3.1113e+02_rb,3.1414e+02_rb,3.1633e+02_rb/)
+      kao(:, 8,16) = (/ &
+     &3.7909e+02_rb,3.7514e+02_rb,3.7476e+02_rb,3.7901e+02_rb,3.8212e+02_rb/)
+      kao(:, 9,16) = (/ &
+     &4.6433e+02_rb,4.5795e+02_rb,4.5378e+02_rb,4.5558e+02_rb,4.5979e+02_rb/)
+      kao(:,10,16) = (/ &
+     &5.6730e+02_rb,5.5767e+02_rb,5.5088e+02_rb,5.4957e+02_rb,5.5150e+02_rb/)
+      kao(:,11,16) = (/ &
+     &6.8668e+02_rb,6.7309e+02_rb,6.6516e+02_rb,6.6333e+02_rb,6.6322e+02_rb/)
+      kao(:,12,16) = (/ &
+     &8.3053e+02_rb,8.1176e+02_rb,8.0043e+02_rb,7.9744e+02_rb,7.9485e+02_rb/)
+      kao(:,13,16) = (/ &
+     &1.0026e+03_rb,9.7775e+02_rb,9.6058e+02_rb,9.5314e+02_rb,9.4719e+02_rb/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:,13, 1) = (/ &
+     &1.2190e-02_rb,1.2693e-02_rb,1.3086e-02_rb,1.3355e-02_rb,1.3602e-02_rb/)
+      kbo(:,14, 1) = (/ &
+     &1.0639e-02_rb,1.0991e-02_rb,1.1315e-02_rb,1.1564e-02_rb,1.1518e-02_rb/)
+      kbo(:,15, 1) = (/ &
+     &9.4343e-03_rb,9.6676e-03_rb,9.5938e-03_rb,9.5530e-03_rb,9.4890e-03_rb/)
+      kbo(:,16, 1) = (/ &
+     &7.9681e-03_rb,7.8419e-03_rb,7.8162e-03_rb,7.7492e-03_rb,7.7652e-03_rb/)
+      kbo(:,17, 1) = (/ &
+     &6.4068e-03_rb,6.3539e-03_rb,6.3265e-03_rb,6.3294e-03_rb,6.2292e-03_rb/)
+      kbo(:,18, 1) = (/ &
+     &5.1420e-03_rb,5.1335e-03_rb,5.0780e-03_rb,5.0408e-03_rb,5.0223e-03_rb/)
+      kbo(:,19, 1) = (/ &
+     &4.1739e-03_rb,4.1404e-03_rb,4.1032e-03_rb,4.0908e-03_rb,4.0562e-03_rb/)
+      kbo(:,20, 1) = (/ &
+     &3.3887e-03_rb,3.3668e-03_rb,3.3481e-03_rb,3.3359e-03_rb,3.2948e-03_rb/)
+      kbo(:,21, 1) = (/ &
+     &2.7580e-03_rb,2.7551e-03_rb,2.7356e-03_rb,2.7092e-03_rb,2.6841e-03_rb/)
+      kbo(:,22, 1) = (/ &
+     &2.2558e-03_rb,2.2435e-03_rb,2.2235e-03_rb,2.2041e-03_rb,2.1870e-03_rb/)
+      kbo(:,23, 1) = (/ &
+     &1.8426e-03_rb,1.8324e-03_rb,1.8088e-03_rb,1.7975e-03_rb,1.7882e-03_rb/)
+      kbo(:,24, 1) = (/ &
+     &1.5091e-03_rb,1.4914e-03_rb,1.4770e-03_rb,1.4698e-03_rb,1.4675e-03_rb/)
+      kbo(:,25, 1) = (/ &
+     &1.2361e-03_rb,1.2170e-03_rb,1.2068e-03_rb,1.2059e-03_rb,1.2054e-03_rb/)
+      kbo(:,26, 1) = (/ &
+     &1.0050e-03_rb,9.9424e-04_rb,9.8921e-04_rb,9.8950e-04_rb,9.9102e-04_rb/)
+      kbo(:,27, 1) = (/ &
+     &8.1924e-04_rb,8.1181e-04_rb,8.1111e-04_rb,8.1148e-04_rb,8.1057e-04_rb/)
+      kbo(:,28, 1) = (/ &
+     &6.6881e-04_rb,6.6398e-04_rb,6.6473e-04_rb,6.6536e-04_rb,6.6057e-04_rb/)
+      kbo(:,29, 1) = (/ &
+     &5.4452e-04_rb,5.4181e-04_rb,5.4254e-04_rb,5.4342e-04_rb,5.3551e-04_rb/)
+      kbo(:,30, 1) = (/ &
+     &4.4259e-04_rb,4.4140e-04_rb,4.4207e-04_rb,4.4326e-04_rb,4.2874e-04_rb/)
+      kbo(:,31, 1) = (/ &
+     &3.5899e-04_rb,3.5826e-04_rb,3.5911e-04_rb,3.5984e-04_rb,3.4298e-04_rb/)
+      kbo(:,32, 1) = (/ &
+     &2.9138e-04_rb,2.9104e-04_rb,2.9178e-04_rb,2.9237e-04_rb,2.7522e-04_rb/)
+      kbo(:,33, 1) = (/ &
+     &2.3674e-04_rb,2.3667e-04_rb,2.3708e-04_rb,2.3749e-04_rb,2.2116e-04_rb/)
+      kbo(:,34, 1) = (/ &
+     &1.9293e-04_rb,1.9295e-04_rb,1.9307e-04_rb,1.9353e-04_rb,1.7944e-04_rb/)
+      kbo(:,35, 1) = (/ &
+     &1.5741e-04_rb,1.5737e-04_rb,1.5735e-04_rb,1.5778e-04_rb,1.4713e-04_rb/)
+      kbo(:,36, 1) = (/ &
+     &1.2872e-04_rb,1.2833e-04_rb,1.2856e-04_rb,1.2886e-04_rb,1.2147e-04_rb/)
+      kbo(:,37, 1) = (/ &
+     &1.0573e-04_rb,1.0521e-04_rb,1.0532e-04_rb,1.0552e-04_rb,1.0153e-04_rb/)
+      kbo(:,38, 1) = (/ &
+     &8.6912e-05_rb,8.6294e-05_rb,8.6278e-05_rb,8.6393e-05_rb,8.5663e-05_rb/)
+      kbo(:,39, 1) = (/ &
+     &7.1476e-05_rb,7.0797e-05_rb,7.0693e-05_rb,7.0706e-05_rb,7.0752e-05_rb/)
+      kbo(:,40, 1) = (/ &
+     &5.8778e-05_rb,5.8375e-05_rb,5.8149e-05_rb,5.8120e-05_rb,5.8038e-05_rb/)
+      kbo(:,41, 1) = (/ &
+     &4.8208e-05_rb,4.8291e-05_rb,4.7939e-05_rb,4.7839e-05_rb,4.7717e-05_rb/)
+      kbo(:,42, 1) = (/ &
+     &3.9735e-05_rb,3.9794e-05_rb,3.9588e-05_rb,3.9414e-05_rb,3.9275e-05_rb/)
+      kbo(:,43, 1) = (/ &
+     &3.3069e-05_rb,3.2750e-05_rb,3.2898e-05_rb,3.2646e-05_rb,3.2434e-05_rb/)
+      kbo(:,44, 1) = (/ &
+     &2.7160e-05_rb,2.7263e-05_rb,2.7120e-05_rb,2.7165e-05_rb,2.6874e-05_rb/)
+      kbo(:,45, 1) = (/ &
+     &2.2285e-05_rb,2.2565e-05_rb,2.2508e-05_rb,2.2456e-05_rb,2.2357e-05_rb/)
+      kbo(:,46, 1) = (/ &
+     &1.8468e-05_rb,1.8529e-05_rb,1.8744e-05_rb,1.8640e-05_rb,1.8584e-05_rb/)
+      kbo(:,47, 1) = (/ &
+     &1.5267e-05_rb,1.5373e-05_rb,1.5389e-05_rb,1.5590e-05_rb,1.5417e-05_rb/)
+      kbo(:,48, 1) = (/ &
+     &1.2576e-05_rb,1.2765e-05_rb,1.2771e-05_rb,1.2828e-05_rb,1.2953e-05_rb/)
+      kbo(:,49, 1) = (/ &
+     &1.0526e-05_rb,1.0503e-05_rb,1.0641e-05_rb,1.0645e-05_rb,1.0671e-05_rb/)
+      kbo(:,50, 1) = (/ &
+     &8.5146e-06_rb,8.8286e-06_rb,8.7879e-06_rb,8.8870e-06_rb,8.8515e-06_rb/)
+      kbo(:,51, 1) = (/ &
+     &6.8551e-06_rb,7.1714e-06_rb,7.4262e-06_rb,7.3568e-06_rb,7.4039e-06_rb/)
+      kbo(:,52, 1) = (/ &
+     &5.5111e-06_rb,5.7854e-06_rb,6.0431e-06_rb,6.2230e-06_rb,6.1473e-06_rb/)
+      kbo(:,53, 1) = (/ &
+     &4.4382e-06_rb,4.6559e-06_rb,4.8718e-06_rb,5.0815e-06_rb,5.1941e-06_rb/)
+      kbo(:,54, 1) = (/ &
+     &3.6177e-06_rb,3.7935e-06_rb,3.9613e-06_rb,4.1342e-06_rb,4.2936e-06_rb/)
+      kbo(:,55, 1) = (/ &
+     &2.9336e-06_rb,3.1004e-06_rb,3.2420e-06_rb,3.3846e-06_rb,3.5194e-06_rb/)
+      kbo(:,56, 1) = (/ &
+     &2.3777e-06_rb,2.5393e-06_rb,2.6559e-06_rb,2.7737e-06_rb,2.8819e-06_rb/)
+      kbo(:,57, 1) = (/ &
+     &1.9258e-06_rb,2.0635e-06_rb,2.1875e-06_rb,2.2772e-06_rb,2.3684e-06_rb/)
+      kbo(:,58, 1) = (/ &
+     &1.5658e-06_rb,1.6813e-06_rb,1.7910e-06_rb,1.8800e-06_rb,1.9530e-06_rb/)
+      kbo(:,59, 1) = (/ &
+     &1.3188e-06_rb,1.4141e-06_rb,1.4979e-06_rb,1.5764e-06_rb,1.6384e-06_rb/)
+      kbo(:,13, 2) = (/ &
+     &3.3779e-02_rb,3.2735e-02_rb,3.1178e-02_rb,2.9814e-02_rb,2.8271e-02_rb/)
+      kbo(:,14, 2) = (/ &
+     &2.7945e-02_rb,2.6846e-02_rb,2.5419e-02_rb,2.4157e-02_rb,2.2814e-02_rb/)
+      kbo(:,15, 2) = (/ &
+     &2.2748e-02_rb,2.1521e-02_rb,2.0571e-02_rb,1.9559e-02_rb,1.8047e-02_rb/)
+      kbo(:,16, 2) = (/ &
+     &1.8337e-02_rb,1.7587e-02_rb,1.6750e-02_rb,1.5705e-02_rb,1.3259e-02_rb/)
+      kbo(:,17, 2) = (/ &
+     &1.5034e-02_rb,1.4343e-02_rb,1.3736e-02_rb,1.1541e-02_rb,9.7400e-03_rb/)
+      kbo(:,18, 2) = (/ &
+     &1.2164e-02_rb,1.1828e-02_rb,9.9998e-03_rb,8.2911e-03_rb,6.9774e-03_rb/)
+      kbo(:,19, 2) = (/ &
+     &1.0053e-02_rb,8.7760e-03_rb,7.2944e-03_rb,6.0291e-03_rb,5.2188e-03_rb/)
+      kbo(:,20, 2) = (/ &
+     &8.0996e-03_rb,6.6628e-03_rb,5.4744e-03_rb,4.5474e-03_rb,4.0343e-03_rb/)
+      kbo(:,21, 2) = (/ &
+     &6.1685e-03_rb,5.0455e-03_rb,4.1278e-03_rb,3.5537e-03_rb,3.1461e-03_rb/)
+      kbo(:,22, 2) = (/ &
+     &4.6680e-03_rb,3.7894e-03_rb,3.1347e-03_rb,2.7602e-03_rb,2.4538e-03_rb/)
+      kbo(:,23, 2) = (/ &
+     &3.5105e-03_rb,2.8430e-03_rb,2.4311e-03_rb,2.1442e-03_rb,1.9116e-03_rb/)
+      kbo(:,24, 2) = (/ &
+     &2.6394e-03_rb,2.1852e-03_rb,1.8960e-03_rb,1.6702e-03_rb,1.4993e-03_rb/)
+      kbo(:,25, 2) = (/ &
+     &2.0041e-03_rb,1.6920e-03_rb,1.4784e-03_rb,1.3107e-03_rb,1.1883e-03_rb/)
+      kbo(:,26, 2) = (/ &
+     &1.5414e-03_rb,1.3189e-03_rb,1.1564e-03_rb,1.0333e-03_rb,9.4710e-04_rb/)
+      kbo(:,27, 2) = (/ &
+     &1.2025e-03_rb,1.0381e-03_rb,9.1423e-04_rb,8.1996e-04_rb,7.6323e-04_rb/)
+      kbo(:,28, 2) = (/ &
+     &9.4481e-04_rb,8.2314e-04_rb,7.2601e-04_rb,6.5680e-04_rb,6.2105e-04_rb/)
+      kbo(:,29, 2) = (/ &
+     &7.4291e-04_rb,6.5138e-04_rb,5.7968e-04_rb,5.2914e-04_rb,5.0508e-04_rb/)
+      kbo(:,30, 2) = (/ &
+     &5.8796e-04_rb,5.1841e-04_rb,4.6161e-04_rb,4.2521e-04_rb,4.1671e-04_rb/)
+      kbo(:,31, 2) = (/ &
+     &4.6334e-04_rb,4.1198e-04_rb,3.6828e-04_rb,3.4267e-04_rb,3.4322e-04_rb/)
+      kbo(:,32, 2) = (/ &
+     &3.6683e-04_rb,3.2718e-04_rb,2.9598e-04_rb,2.7743e-04_rb,2.8106e-04_rb/)
+      kbo(:,33, 2) = (/ &
+     &2.9220e-04_rb,2.6104e-04_rb,2.3912e-04_rb,2.2529e-04_rb,2.3032e-04_rb/)
+      kbo(:,34, 2) = (/ &
+     &2.3494e-04_rb,2.1114e-04_rb,1.9458e-04_rb,1.8336e-04_rb,1.8849e-04_rb/)
+      kbo(:,35, 2) = (/ &
+     &1.9117e-04_rb,1.7220e-04_rb,1.5969e-04_rb,1.5013e-04_rb,1.5359e-04_rb/)
+      kbo(:,36, 2) = (/ &
+     &1.5747e-04_rb,1.4221e-04_rb,1.3171e-04_rb,1.2370e-04_rb,1.2459e-04_rb/)
+      kbo(:,37, 2) = (/ &
+     &1.3250e-04_rb,1.1910e-04_rb,1.0968e-04_rb,1.0296e-04_rb,1.0130e-04_rb/)
+      kbo(:,38, 2) = (/ &
+     &1.1160e-04_rb,9.9715e-05_rb,9.1665e-05_rb,8.5730e-05_rb,8.1933e-05_rb/)
+      kbo(:,39, 2) = (/ &
+     &9.4135e-05_rb,8.3974e-05_rb,7.6783e-05_rb,7.1718e-05_rb,6.7517e-05_rb/)
+      kbo(:,40, 2) = (/ &
+     &8.0997e-05_rb,7.2288e-05_rb,6.5235e-05_rb,6.0491e-05_rb,5.6970e-05_rb/)
+      kbo(:,41, 2) = (/ &
+     &7.0436e-05_rb,6.2097e-05_rb,5.5431e-05_rb,5.1123e-05_rb,4.8054e-05_rb/)
+      kbo(:,42, 2) = (/ &
+     &6.1655e-05_rb,5.3367e-05_rb,4.7548e-05_rb,4.3416e-05_rb,4.0552e-05_rb/)
+      kbo(:,43, 2) = (/ &
+     &5.5272e-05_rb,4.6832e-05_rb,4.1549e-05_rb,3.7143e-05_rb,3.4563e-05_rb/)
+      kbo(:,44, 2) = (/ &
+     &5.0350e-05_rb,4.1911e-05_rb,3.6573e-05_rb,3.2553e-05_rb,2.9621e-05_rb/)
+      kbo(:,45, 2) = (/ &
+     &4.6680e-05_rb,3.8062e-05_rb,3.2149e-05_rb,2.8703e-05_rb,2.5694e-05_rb/)
+      kbo(:,46, 2) = (/ &
+     &4.2769e-05_rb,3.5698e-05_rb,2.9139e-05_rb,2.5199e-05_rb,2.2638e-05_rb/)
+      kbo(:,47, 2) = (/ &
+     &3.6477e-05_rb,3.2822e-05_rb,2.7467e-05_rb,2.2730e-05_rb,2.0075e-05_rb/)
+      kbo(:,48, 2) = (/ &
+     &3.0609e-05_rb,2.9832e-05_rb,2.5641e-05_rb,2.1246e-05_rb,1.7927e-05_rb/)
+      kbo(:,49, 2) = (/ &
+     &2.5892e-05_rb,2.4976e-05_rb,2.3819e-05_rb,2.0178e-05_rb,1.6719e-05_rb/)
+      kbo(:,50, 2) = (/ &
+     &2.2068e-05_rb,2.0897e-05_rb,2.0445e-05_rb,1.8401e-05_rb,1.5648e-05_rb/)
+      kbo(:,51, 2) = (/ &
+     &1.8894e-05_rb,1.8060e-05_rb,1.7047e-05_rb,1.6809e-05_rb,1.4426e-05_rb/)
+      kbo(:,52, 2) = (/ &
+     &1.6131e-05_rb,1.5345e-05_rb,1.4613e-05_rb,1.3961e-05_rb,1.3398e-05_rb/)
+      kbo(:,53, 2) = (/ &
+     &1.3727e-05_rb,1.3222e-05_rb,1.2619e-05_rb,1.1906e-05_rb,1.1467e-05_rb/)
+      kbo(:,54, 2) = (/ &
+     &1.1644e-05_rb,1.1203e-05_rb,1.0779e-05_rb,1.0373e-05_rb,9.7090e-06_rb/)
+      kbo(:,55, 2) = (/ &
+     &9.9606e-06_rb,9.5440e-06_rb,9.2216e-06_rb,8.7822e-06_rb,8.3198e-06_rb/)
+      kbo(:,56, 2) = (/ &
+     &8.4517e-06_rb,8.1696e-06_rb,7.8373e-06_rb,7.5094e-06_rb,7.2266e-06_rb/)
+      kbo(:,57, 2) = (/ &
+     &7.1634e-06_rb,7.0985e-06_rb,6.7296e-06_rb,6.4794e-06_rb,6.1647e-06_rb/)
+      kbo(:,58, 2) = (/ &
+     &6.2286e-06_rb,5.9713e-06_rb,5.8323e-06_rb,5.5370e-06_rb,5.3465e-06_rb/)
+      kbo(:,59, 2) = (/ &
+     &5.3307e-06_rb,5.0367e-06_rb,4.9690e-06_rb,4.6758e-06_rb,4.5062e-06_rb/)
+      kbo(:,13, 3) = (/ &
+     &4.7904e-02_rb,3.6965e-02_rb,2.8601e-02_rb,2.3919e-02_rb,2.0680e-02_rb/)
+      kbo(:,14, 3) = (/ &
+     &3.6570e-02_rb,2.7810e-02_rb,2.1848e-02_rb,1.8508e-02_rb,1.6582e-02_rb/)
+      kbo(:,15, 3) = (/ &
+     &2.6097e-02_rb,1.9628e-02_rb,1.6268e-02_rb,1.4252e-02_rb,1.3801e-02_rb/)
+      kbo(:,16, 3) = (/ &
+     &1.8293e-02_rb,1.4393e-02_rb,1.2369e-02_rb,1.1568e-02_rb,1.2855e-02_rb/)
+      kbo(:,17, 3) = (/ &
+     &1.3004e-02_rb,1.0838e-02_rb,9.6882e-03_rb,1.0818e-02_rb,1.1950e-02_rb/)
+      kbo(:,18, 3) = (/ &
+     &9.6007e-03_rb,8.2004e-03_rb,9.1048e-03_rb,1.0148e-02_rb,1.0662e-02_rb/)
+      kbo(:,19, 3) = (/ &
+     &7.2730e-03_rb,7.5847e-03_rb,8.4339e-03_rb,9.0734e-03_rb,9.2118e-03_rb/)
+      kbo(:,20, 3) = (/ &
+     &5.9400e-03_rb,6.7100e-03_rb,7.4249e-03_rb,7.7409e-03_rb,7.7182e-03_rb/)
+      kbo(:,21, 3) = (/ &
+     &5.2740e-03_rb,5.8871e-03_rb,6.3746e-03_rb,6.4908e-03_rb,6.3895e-03_rb/)
+      kbo(:,22, 3) = (/ &
+     &4.5973e-03_rb,5.1329e-03_rb,5.3865e-03_rb,5.3473e-03_rb,5.2488e-03_rb/)
+      kbo(:,23, 3) = (/ &
+     &4.0216e-03_rb,4.3958e-03_rb,4.5011e-03_rb,4.3919e-03_rb,4.3384e-03_rb/)
+      kbo(:,24, 3) = (/ &
+     &3.5050e-03_rb,3.6950e-03_rb,3.6848e-03_rb,3.6232e-03_rb,3.5889e-03_rb/)
+      kbo(:,25, 3) = (/ &
+     &3.0079e-03_rb,3.0947e-03_rb,3.0321e-03_rb,2.9863e-03_rb,2.9569e-03_rb/)
+      kbo(:,26, 3) = (/ &
+     &2.5223e-03_rb,2.5389e-03_rb,2.4899e-03_rb,2.4616e-03_rb,2.4119e-03_rb/)
+      kbo(:,27, 3) = (/ &
+     &2.0904e-03_rb,2.0720e-03_rb,2.0405e-03_rb,2.0263e-03_rb,1.9704e-03_rb/)
+      kbo(:,28, 3) = (/ &
+     &1.7240e-03_rb,1.6892e-03_rb,1.6695e-03_rb,1.6561e-03_rb,1.6055e-03_rb/)
+      kbo(:,29, 3) = (/ &
+     &1.4068e-03_rb,1.3720e-03_rb,1.3607e-03_rb,1.3422e-03_rb,1.3070e-03_rb/)
+      kbo(:,30, 3) = (/ &
+     &1.1328e-03_rb,1.1145e-03_rb,1.1117e-03_rb,1.0886e-03_rb,1.0628e-03_rb/)
+      kbo(:,31, 3) = (/ &
+     &9.1589e-04_rb,9.0415e-04_rb,9.0310e-04_rb,8.8069e-04_rb,8.6082e-04_rb/)
+      kbo(:,32, 3) = (/ &
+     &7.4268e-04_rb,7.3425e-04_rb,7.3091e-04_rb,7.1193e-04_rb,7.0016e-04_rb/)
+      kbo(:,33, 3) = (/ &
+     &5.9881e-04_rb,5.9536e-04_rb,5.8909e-04_rb,5.7513e-04_rb,5.6984e-04_rb/)
+      kbo(:,34, 3) = (/ &
+     &4.8522e-04_rb,4.8326e-04_rb,4.7702e-04_rb,4.6806e-04_rb,4.6482e-04_rb/)
+      kbo(:,35, 3) = (/ &
+     &3.9408e-04_rb,3.9282e-04_rb,3.8758e-04_rb,3.8191e-04_rb,3.7951e-04_rb/)
+      kbo(:,36, 3) = (/ &
+     &3.2090e-04_rb,3.1998e-04_rb,3.1651e-04_rb,3.1185e-04_rb,3.1064e-04_rb/)
+      kbo(:,37, 3) = (/ &
+     &2.6225e-04_rb,2.6215e-04_rb,2.6078e-04_rb,2.5651e-04_rb,2.5549e-04_rb/)
+      kbo(:,38, 3) = (/ &
+     &2.1480e-04_rb,2.1472e-04_rb,2.1476e-04_rb,2.1116e-04_rb,2.0969e-04_rb/)
+      kbo(:,39, 3) = (/ &
+     &1.7555e-04_rb,1.7537e-04_rb,1.7598e-04_rb,1.7350e-04_rb,1.7249e-04_rb/)
+      kbo(:,40, 3) = (/ &
+     &1.4506e-04_rb,1.4338e-04_rb,1.4427e-04_rb,1.4359e-04_rb,1.4195e-04_rb/)
+      kbo(:,41, 3) = (/ &
+     &1.1753e-04_rb,1.1789e-04_rb,1.1842e-04_rb,1.1899e-04_rb,1.1706e-04_rb/)
+      kbo(:,42, 3) = (/ &
+     &9.4811e-05_rb,9.6651e-05_rb,9.6909e-05_rb,9.7780e-05_rb,9.6573e-05_rb/)
+      kbo(:,43, 3) = (/ &
+     &7.5161e-05_rb,7.9489e-05_rb,7.9256e-05_rb,8.0096e-05_rb,8.0065e-05_rb/)
+      kbo(:,44, 3) = (/ &
+     &5.8204e-05_rb,6.3635e-05_rb,6.5251e-05_rb,6.5174e-05_rb,6.6162e-05_rb/)
+      kbo(:,45, 3) = (/ &
+     &4.3809e-05_rb,5.0393e-05_rb,5.3351e-05_rb,5.3552e-05_rb,5.3892e-05_rb/)
+      kbo(:,46, 3) = (/ &
+     &3.2980e-05_rb,3.7988e-05_rb,4.2459e-05_rb,4.3951e-05_rb,4.3847e-05_rb/)
+      kbo(:,47, 3) = (/ &
+     &2.7646e-05_rb,2.8723e-05_rb,3.2811e-05_rb,3.5391e-05_rb,3.6137e-05_rb/)
+      kbo(:,48, 3) = (/ &
+     &2.4543e-05_rb,2.1924e-05_rb,2.4598e-05_rb,2.7741e-05_rb,2.9339e-05_rb/)
+      kbo(:,49, 3) = (/ &
+     &2.2466e-05_rb,1.9218e-05_rb,1.8251e-05_rb,2.0876e-05_rb,2.3032e-05_rb/)
+      kbo(:,50, 3) = (/ &
+     &2.1181e-05_rb,1.7247e-05_rb,1.5253e-05_rb,1.5927e-05_rb,1.7960e-05_rb/)
+      kbo(:,51, 3) = (/ &
+     &2.0829e-05_rb,1.5682e-05_rb,1.3335e-05_rb,1.2152e-05_rb,1.3683e-05_rb/)
+      kbo(:,52, 3) = (/ &
+     &2.0195e-05_rb,1.5008e-05_rb,1.2032e-05_rb,1.0543e-05_rb,1.0211e-05_rb/)
+      kbo(:,53, 3) = (/ &
+     &1.9323e-05_rb,1.4642e-05_rb,1.1065e-05_rb,9.3359e-06_rb,8.4701e-06_rb/)
+      kbo(:,54, 3) = (/ &
+     &1.7666e-05_rb,1.4231e-05_rb,1.0596e-05_rb,8.3241e-06_rb,7.3928e-06_rb/)
+      kbo(:,55, 3) = (/ &
+     &1.5462e-05_rb,1.3265e-05_rb,1.0248e-05_rb,7.8075e-06_rb,6.5230e-06_rb/)
+      kbo(:,56, 3) = (/ &
+     &1.3370e-05_rb,1.2106e-05_rb,9.7995e-06_rb,7.4236e-06_rb,5.8878e-06_rb/)
+      kbo(:,57, 3) = (/ &
+     &1.1515e-05_rb,1.0653e-05_rb,9.2073e-06_rb,7.1981e-06_rb,5.4819e-06_rb/)
+      kbo(:,58, 3) = (/ &
+     &1.0034e-05_rb,9.2814e-06_rb,8.4358e-06_rb,6.8772e-06_rb,5.2130e-06_rb/)
+      kbo(:,59, 3) = (/ &
+     &8.4460e-06_rb,7.8198e-06_rb,7.3452e-06_rb,6.2331e-06_rb,4.7237e-06_rb/)
+      kbo(:,13, 4) = (/ &
+     &3.3587e-02_rb,4.0386e-02_rb,4.5135e-02_rb,4.6401e-02_rb,4.5805e-02_rb/)
+      kbo(:,14, 4) = (/ &
+     &3.1030e-02_rb,3.6513e-02_rb,3.9636e-02_rb,3.9291e-02_rb,3.8805e-02_rb/)
+      kbo(:,15, 4) = (/ &
+     &2.9952e-02_rb,3.3504e-02_rb,3.3526e-02_rb,3.3527e-02_rb,3.2785e-02_rb/)
+      kbo(:,16, 4) = (/ &
+     &2.7625e-02_rb,2.8337e-02_rb,2.8532e-02_rb,2.8121e-02_rb,2.7038e-02_rb/)
+      kbo(:,17, 4) = (/ &
+     &2.3797e-02_rb,2.4231e-02_rb,2.3927e-02_rb,2.3137e-02_rb,2.2675e-02_rb/)
+      kbo(:,18, 4) = (/ &
+     &2.0364e-02_rb,2.0218e-02_rb,1.9689e-02_rb,1.9353e-02_rb,1.9321e-02_rb/)
+      kbo(:,19, 4) = (/ &
+     &1.7135e-02_rb,1.6671e-02_rb,1.6414e-02_rb,1.6325e-02_rb,1.6362e-02_rb/)
+      kbo(:,20, 4) = (/ &
+     &1.4048e-02_rb,1.3836e-02_rb,1.3650e-02_rb,1.3725e-02_rb,1.3743e-02_rb/)
+      kbo(:,21, 4) = (/ &
+     &1.1598e-02_rb,1.1451e-02_rb,1.1386e-02_rb,1.1434e-02_rb,1.1536e-02_rb/)
+      kbo(:,22, 4) = (/ &
+     &9.5671e-03_rb,9.4431e-03_rb,9.4962e-03_rb,9.5565e-03_rb,9.6638e-03_rb/)
+      kbo(:,23, 4) = (/ &
+     &7.8733e-03_rb,7.8272e-03_rb,7.8608e-03_rb,8.0045e-03_rb,8.0429e-03_rb/)
+      kbo(:,24, 4) = (/ &
+     &6.4854e-03_rb,6.5239e-03_rb,6.5932e-03_rb,6.6847e-03_rb,6.6897e-03_rb/)
+      kbo(:,25, 4) = (/ &
+     &5.3475e-03_rb,5.3959e-03_rb,5.5055e-03_rb,5.5513e-03_rb,5.5516e-03_rb/)
+      kbo(:,26, 4) = (/ &
+     &4.4370e-03_rb,4.4984e-03_rb,4.5821e-03_rb,4.5978e-03_rb,4.6194e-03_rb/)
+      kbo(:,27, 4) = (/ &
+     &3.6654e-03_rb,3.7378e-03_rb,3.7830e-03_rb,3.7897e-03_rb,3.8209e-03_rb/)
+      kbo(:,28, 4) = (/ &
+     &3.0135e-03_rb,3.0852e-03_rb,3.1155e-03_rb,3.1198e-03_rb,3.1538e-03_rb/)
+      kbo(:,29, 4) = (/ &
+     &2.4690e-03_rb,2.5299e-03_rb,2.5457e-03_rb,2.5581e-03_rb,2.5884e-03_rb/)
+      kbo(:,30, 4) = (/ &
+     &2.0282e-03_rb,2.0645e-03_rb,2.0716e-03_rb,2.0943e-03_rb,2.1183e-03_rb/)
+      kbo(:,31, 4) = (/ &
+     &1.6532e-03_rb,1.6753e-03_rb,1.6810e-03_rb,1.7064e-03_rb,1.7271e-03_rb/)
+      kbo(:,32, 4) = (/ &
+     &1.3440e-03_rb,1.3610e-03_rb,1.3688e-03_rb,1.3929e-03_rb,1.4080e-03_rb/)
+      kbo(:,33, 4) = (/ &
+     &1.0937e-03_rb,1.1058e-03_rb,1.1183e-03_rb,1.1384e-03_rb,1.1495e-03_rb/)
+      kbo(:,34, 4) = (/ &
+     &8.9328e-04_rb,9.0340e-04_rb,9.1730e-04_rb,9.3209e-04_rb,9.4284e-04_rb/)
+      kbo(:,35, 4) = (/ &
+     &7.2895e-04_rb,7.3894e-04_rb,7.5120e-04_rb,7.6322e-04_rb,7.7389e-04_rb/)
+      kbo(:,36, 4) = (/ &
+     &5.9465e-04_rb,6.0388e-04_rb,6.1360e-04_rb,6.2477e-04_rb,6.3446e-04_rb/)
+      kbo(:,37, 4) = (/ &
+     &4.8509e-04_rb,4.9426e-04_rb,5.0234e-04_rb,5.1316e-04_rb,5.2248e-04_rb/)
+      kbo(:,38, 4) = (/ &
+     &3.9518e-04_rb,4.0486e-04_rb,4.1118e-04_rb,4.2126e-04_rb,4.3035e-04_rb/)
+      kbo(:,39, 4) = (/ &
+     &3.2206e-04_rb,3.3126e-04_rb,3.3692e-04_rb,3.4570e-04_rb,3.5386e-04_rb/)
+      kbo(:,40, 4) = (/ &
+     &2.6189e-04_rb,2.7140e-04_rb,2.7744e-04_rb,2.8454e-04_rb,2.9309e-04_rb/)
+      kbo(:,41, 4) = (/ &
+     &2.1513e-04_rb,2.2151e-04_rb,2.2843e-04_rb,2.3405e-04_rb,2.4235e-04_rb/)
+      kbo(:,42, 4) = (/ &
+     &1.7598e-04_rb,1.8130e-04_rb,1.8775e-04_rb,1.9283e-04_rb,2.0002e-04_rb/)
+      kbo(:,43, 4) = (/ &
+     &1.4391e-04_rb,1.4742e-04_rb,1.5366e-04_rb,1.5883e-04_rb,1.6416e-04_rb/)
+      kbo(:,44, 4) = (/ &
+     &1.1869e-04_rb,1.2058e-04_rb,1.2494e-04_rb,1.3042e-04_rb,1.3475e-04_rb/)
+      kbo(:,45, 4) = (/ &
+     &9.8053e-05_rb,9.8247e-05_rb,1.0155e-04_rb,1.0624e-04_rb,1.1079e-04_rb/)
+      kbo(:,46, 4) = (/ &
+     &8.0733e-05_rb,8.0988e-05_rb,8.2961e-05_rb,8.6570e-05_rb,9.0733e-05_rb/)
+      kbo(:,47, 4) = (/ &
+     &6.6646e-05_rb,6.6793e-05_rb,6.7614e-05_rb,7.0248e-05_rb,7.3658e-05_rb/)
+      kbo(:,48, 4) = (/ &
+     &5.5124e-05_rb,5.5074e-05_rb,5.5667e-05_rb,5.7150e-05_rb,5.9800e-05_rb/)
+      kbo(:,49, 4) = (/ &
+     &4.4694e-05_rb,4.5221e-05_rb,4.5769e-05_rb,4.6677e-05_rb,4.8625e-05_rb/)
+      kbo(:,50, 4) = (/ &
+     &3.5617e-05_rb,3.7343e-05_rb,3.7522e-05_rb,3.8384e-05_rb,3.9484e-05_rb/)
+      kbo(:,51, 4) = (/ &
+     &2.7917e-05_rb,3.0153e-05_rb,3.0833e-05_rb,3.1535e-05_rb,3.2403e-05_rb/)
+      kbo(:,52, 4) = (/ &
+     &2.1904e-05_rb,2.3837e-05_rb,2.5410e-05_rb,2.5925e-05_rb,2.6605e-05_rb/)
+      kbo(:,53, 4) = (/ &
+     &1.6636e-05_rb,1.9086e-05_rb,2.0539e-05_rb,2.1236e-05_rb,2.1831e-05_rb/)
+      kbo(:,54, 4) = (/ &
+     &1.2490e-05_rb,1.4743e-05_rb,1.6336e-05_rb,1.7546e-05_rb,1.7865e-05_rb/)
+      kbo(:,55, 4) = (/ &
+     &1.0189e-05_rb,1.1568e-05_rb,1.3196e-05_rb,1.4286e-05_rb,1.4740e-05_rb/)
+      kbo(:,56, 4) = (/ &
+     &9.0688e-06_rb,8.6690e-06_rb,1.0255e-05_rb,1.1493e-05_rb,1.2371e-05_rb/)
+      kbo(:,57, 4) = (/ &
+     &8.8593e-06_rb,6.9758e-06_rb,8.0033e-06_rb,9.3145e-06_rb,1.0058e-05_rb/)
+      kbo(:,58, 4) = (/ &
+     &8.9813e-06_rb,6.2718e-06_rb,5.9506e-06_rb,7.1169e-06_rb,8.0866e-06_rb/)
+      kbo(:,59, 4) = (/ &
+     &8.3077e-06_rb,5.6478e-06_rb,4.7582e-06_rb,5.5908e-06_rb,6.6051e-06_rb/)
+      kbo(:,13, 5) = (/ &
+     &8.1443e-02_rb,7.8686e-02_rb,7.8076e-02_rb,7.8298e-02_rb,8.0221e-02_rb/)
+      kbo(:,14, 5) = (/ &
+     &6.8138e-02_rb,6.7426e-02_rb,6.7266e-02_rb,6.8778e-02_rb,7.0029e-02_rb/)
+      kbo(:,15, 5) = (/ &
+     &5.7566e-02_rb,5.8181e-02_rb,6.0037e-02_rb,6.1077e-02_rb,6.2170e-02_rb/)
+      kbo(:,16, 5) = (/ &
+     &4.9602e-02_rb,5.1862e-02_rb,5.2830e-02_rb,5.3796e-02_rb,5.4837e-02_rb/)
+      kbo(:,17, 5) = (/ &
+     &4.4316e-02_rb,4.5504e-02_rb,4.6554e-02_rb,4.7427e-02_rb,4.7730e-02_rb/)
+      kbo(:,18, 5) = (/ &
+     &3.9127e-02_rb,4.0270e-02_rb,4.1019e-02_rb,4.1264e-02_rb,4.1372e-02_rb/)
+      kbo(:,19, 5) = (/ &
+     &3.4464e-02_rb,3.5381e-02_rb,3.5731e-02_rb,3.5860e-02_rb,3.6031e-02_rb/)
+      kbo(:,20, 5) = (/ &
+     &2.9866e-02_rb,3.0433e-02_rb,3.0697e-02_rb,3.0719e-02_rb,3.0767e-02_rb/)
+      kbo(:,21, 5) = (/ &
+     &2.5526e-02_rb,2.5898e-02_rb,2.6044e-02_rb,2.5989e-02_rb,2.5913e-02_rb/)
+      kbo(:,22, 5) = (/ &
+     &2.1617e-02_rb,2.1821e-02_rb,2.1825e-02_rb,2.1764e-02_rb,2.1636e-02_rb/)
+      kbo(:,23, 5) = (/ &
+     &1.8178e-02_rb,1.8256e-02_rb,1.8221e-02_rb,1.8126e-02_rb,1.8025e-02_rb/)
+      kbo(:,24, 5) = (/ &
+     &1.5221e-02_rb,1.5229e-02_rb,1.5185e-02_rb,1.5079e-02_rb,1.4988e-02_rb/)
+      kbo(:,25, 5) = (/ &
+     &1.2672e-02_rb,1.2670e-02_rb,1.2609e-02_rb,1.2518e-02_rb,1.2439e-02_rb/)
+      kbo(:,26, 5) = (/ &
+     &1.0521e-02_rb,1.0503e-02_rb,1.0444e-02_rb,1.0375e-02_rb,1.0305e-02_rb/)
+      kbo(:,27, 5) = (/ &
+     &8.6769e-03_rb,8.6518e-03_rb,8.6102e-03_rb,8.5574e-03_rb,8.4970e-03_rb/)
+      kbo(:,28, 5) = (/ &
+     &7.1348e-03_rb,7.1122e-03_rb,7.0812e-03_rb,7.0380e-03_rb,6.9899e-03_rb/)
+      kbo(:,29, 5) = (/ &
+     &5.8206e-03_rb,5.8023e-03_rb,5.7788e-03_rb,5.7535e-03_rb,5.7174e-03_rb/)
+      kbo(:,30, 5) = (/ &
+     &4.7381e-03_rb,4.7263e-03_rb,4.7093e-03_rb,4.6856e-03_rb,4.6651e-03_rb/)
+      kbo(:,31, 5) = (/ &
+     &3.8310e-03_rb,3.8249e-03_rb,3.8179e-03_rb,3.8007e-03_rb,3.7880e-03_rb/)
+      kbo(:,32, 5) = (/ &
+     &3.1058e-03_rb,3.1004e-03_rb,3.0969e-03_rb,3.0876e-03_rb,3.0842e-03_rb/)
+      kbo(:,33, 5) = (/ &
+     &2.5170e-03_rb,2.5165e-03_rb,2.5146e-03_rb,2.5120e-03_rb,2.5162e-03_rb/)
+      kbo(:,34, 5) = (/ &
+     &2.0509e-03_rb,2.0525e-03_rb,2.0528e-03_rb,2.0549e-03_rb,2.0638e-03_rb/)
+      kbo(:,35, 5) = (/ &
+     &1.6738e-03_rb,1.6767e-03_rb,1.6787e-03_rb,1.6855e-03_rb,1.6962e-03_rb/)
+      kbo(:,36, 5) = (/ &
+     &1.3688e-03_rb,1.3726e-03_rb,1.3769e-03_rb,1.3854e-03_rb,1.3974e-03_rb/)
+      kbo(:,37, 5) = (/ &
+     &1.1244e-03_rb,1.1287e-03_rb,1.1344e-03_rb,1.1436e-03_rb,1.1555e-03_rb/)
+      kbo(:,38, 5) = (/ &
+     &9.2354e-04_rb,9.2789e-04_rb,9.3393e-04_rb,9.4440e-04_rb,9.5553e-04_rb/)
+      kbo(:,39, 5) = (/ &
+     &7.5825e-04_rb,7.6213e-04_rb,7.6943e-04_rb,7.7957e-04_rb,7.9082e-04_rb/)
+      kbo(:,40, 5) = (/ &
+     &6.2483e-04_rb,6.2933e-04_rb,6.3674e-04_rb,6.4631e-04_rb,6.5698e-04_rb/)
+      kbo(:,41, 5) = (/ &
+     &5.1520e-04_rb,5.2035e-04_rb,5.2751e-04_rb,5.3662e-04_rb,5.4646e-04_rb/)
+      kbo(:,42, 5) = (/ &
+     &4.2480e-04_rb,4.3031e-04_rb,4.3691e-04_rb,4.4575e-04_rb,4.5526e-04_rb/)
+      kbo(:,43, 5) = (/ &
+     &3.5001e-04_rb,3.5557e-04_rb,3.6220e-04_rb,3.7053e-04_rb,3.7981e-04_rb/)
+      kbo(:,44, 5) = (/ &
+     &2.8750e-04_rb,2.9363e-04_rb,3.0042e-04_rb,3.0784e-04_rb,3.1671e-04_rb/)
+      kbo(:,45, 5) = (/ &
+     &2.3558e-04_rb,2.4233e-04_rb,2.4882e-04_rb,2.5588e-04_rb,2.6409e-04_rb/)
+      kbo(:,46, 5) = (/ &
+     &1.9252e-04_rb,1.9920e-04_rb,2.0547e-04_rb,2.1209e-04_rb,2.1984e-04_rb/)
+      kbo(:,47, 5) = (/ &
+     &1.5646e-04_rb,1.6321e-04_rb,1.6931e-04_rb,1.7555e-04_rb,1.8250e-04_rb/)
+      kbo(:,48, 5) = (/ &
+     &1.2570e-04_rb,1.3295e-04_rb,1.3900e-04_rb,1.4479e-04_rb,1.5118e-04_rb/)
+      kbo(:,49, 5) = (/ &
+     &1.0046e-04_rb,1.0778e-04_rb,1.1356e-04_rb,1.1908e-04_rb,1.2499e-04_rb/)
+      kbo(:,50, 5) = (/ &
+     &8.0435e-05_rb,8.6489e-05_rb,9.2769e-05_rb,9.7911e-05_rb,1.0325e-04_rb/)
+      kbo(:,51, 5) = (/ &
+     &6.3458e-05_rb,6.9460e-05_rb,7.5498e-05_rb,8.0303e-05_rb,8.5194e-05_rb/)
+      kbo(:,52, 5) = (/ &
+     &4.9865e-05_rb,5.5730e-05_rb,6.0501e-05_rb,6.5586e-05_rb,7.0113e-05_rb/)
+      kbo(:,53, 5) = (/ &
+     &3.9952e-05_rb,4.3532e-05_rb,4.8481e-05_rb,5.3147e-05_rb,5.7399e-05_rb/)
+      kbo(:,54, 5) = (/ &
+     &3.2880e-05_rb,3.4587e-05_rb,3.8794e-05_rb,4.2722e-05_rb,4.7074e-05_rb/)
+      kbo(:,55, 5) = (/ &
+     &2.7120e-05_rb,2.7717e-05_rb,3.0553e-05_rb,3.4428e-05_rb,3.8350e-05_rb/)
+      kbo(:,56, 5) = (/ &
+     &2.2127e-05_rb,2.2850e-05_rb,2.4431e-05_rb,2.7545e-05_rb,3.0669e-05_rb/)
+      kbo(:,57, 5) = (/ &
+     &1.8252e-05_rb,1.8866e-05_rb,1.9461e-05_rb,2.1577e-05_rb,2.4721e-05_rb/)
+      kbo(:,58, 5) = (/ &
+     &1.4337e-05_rb,1.5384e-05_rb,1.6084e-05_rb,1.7424e-05_rb,1.9750e-05_rb/)
+      kbo(:,59, 5) = (/ &
+     &1.1278e-05_rb,1.2651e-05_rb,1.3368e-05_rb,1.4398e-05_rb,1.6235e-05_rb/)
+      kbo(:,13, 6) = (/ &
+     &1.8817e-01_rb,1.9206e-01_rb,1.9341e-01_rb,1.9316e-01_rb,1.9216e-01_rb/)
+      kbo(:,14, 6) = (/ &
+     &1.5839e-01_rb,1.6013e-01_rb,1.6098e-01_rb,1.6083e-01_rb,1.6026e-01_rb/)
+      kbo(:,15, 6) = (/ &
+     &1.3908e-01_rb,1.4022e-01_rb,1.4029e-01_rb,1.3949e-01_rb,1.3862e-01_rb/)
+      kbo(:,16, 6) = (/ &
+     &1.2016e-01_rb,1.2041e-01_rb,1.1995e-01_rb,1.1931e-01_rb,1.1861e-01_rb/)
+      kbo(:,17, 6) = (/ &
+     &1.0302e-01_rb,1.0297e-01_rb,1.0263e-01_rb,1.0230e-01_rb,1.0181e-01_rb/)
+      kbo(:,18, 6) = (/ &
+     &8.8231e-02_rb,8.8161e-02_rb,8.7913e-02_rb,8.7602e-02_rb,8.7188e-02_rb/)
+      kbo(:,19, 6) = (/ &
+     &7.6358e-02_rb,7.6259e-02_rb,7.5975e-02_rb,7.5746e-02_rb,7.5236e-02_rb/)
+      kbo(:,20, 6) = (/ &
+     &6.5716e-02_rb,6.5541e-02_rb,6.5322e-02_rb,6.5232e-02_rb,6.4993e-02_rb/)
+      kbo(:,21, 6) = (/ &
+     &5.5986e-02_rb,5.5897e-02_rb,5.5927e-02_rb,5.6065e-02_rb,5.6062e-02_rb/)
+      kbo(:,22, 6) = (/ &
+     &4.7367e-02_rb,4.7462e-02_rb,4.7736e-02_rb,4.7820e-02_rb,4.7753e-02_rb/)
+      kbo(:,23, 6) = (/ &
+     &4.0099e-02_rb,4.0361e-02_rb,4.0481e-02_rb,4.0442e-02_rb,4.0254e-02_rb/)
+      kbo(:,24, 6) = (/ &
+     &3.3998e-02_rb,3.4135e-02_rb,3.4123e-02_rb,3.4025e-02_rb,3.3829e-02_rb/)
+      kbo(:,25, 6) = (/ &
+     &2.8658e-02_rb,2.8658e-02_rb,2.8582e-02_rb,2.8475e-02_rb,2.8305e-02_rb/)
+      kbo(:,26, 6) = (/ &
+     &2.3955e-02_rb,2.3909e-02_rb,2.3836e-02_rb,2.3748e-02_rb,2.3606e-02_rb/)
+      kbo(:,27, 6) = (/ &
+     &1.9889e-02_rb,1.9852e-02_rb,1.9780e-02_rb,1.9709e-02_rb,1.9615e-02_rb/)
+      kbo(:,28, 6) = (/ &
+     &1.6444e-02_rb,1.6406e-02_rb,1.6372e-02_rb,1.6318e-02_rb,1.6245e-02_rb/)
+      kbo(:,29, 6) = (/ &
+     &1.3491e-02_rb,1.3473e-02_rb,1.3456e-02_rb,1.3404e-02_rb,1.3356e-02_rb/)
+      kbo(:,30, 6) = (/ &
+     &1.1049e-02_rb,1.1039e-02_rb,1.1036e-02_rb,1.1011e-02_rb,1.0973e-02_rb/)
+      kbo(:,31, 6) = (/ &
+     &9.0143e-03_rb,9.0192e-03_rb,9.0194e-03_rb,9.0134e-03_rb,9.0031e-03_rb/)
+      kbo(:,32, 6) = (/ &
+     &7.3665e-03_rb,7.3853e-03_rb,7.3885e-03_rb,7.3955e-03_rb,7.4067e-03_rb/)
+      kbo(:,33, 6) = (/ &
+     &6.0271e-03_rb,6.0462e-03_rb,6.0622e-03_rb,6.0836e-03_rb,6.1045e-03_rb/)
+      kbo(:,34, 6) = (/ &
+     &4.9546e-03_rb,4.9811e-03_rb,5.0047e-03_rb,5.0339e-03_rb,5.0627e-03_rb/)
+      kbo(:,35, 6) = (/ &
+     &4.0822e-03_rb,4.1121e-03_rb,4.1424e-03_rb,4.1730e-03_rb,4.2061e-03_rb/)
+      kbo(:,36, 6) = (/ &
+     &3.3681e-03_rb,3.3993e-03_rb,3.4334e-03_rb,3.4635e-03_rb,3.4987e-03_rb/)
+      kbo(:,37, 6) = (/ &
+     &2.7875e-03_rb,2.8195e-03_rb,2.8505e-03_rb,2.8836e-03_rb,2.9180e-03_rb/)
+      kbo(:,38, 6) = (/ &
+     &2.3080e-03_rb,2.3382e-03_rb,2.3688e-03_rb,2.3992e-03_rb,2.4337e-03_rb/)
+      kbo(:,39, 6) = (/ &
+     &1.9086e-03_rb,1.9391e-03_rb,1.9678e-03_rb,1.9967e-03_rb,2.0294e-03_rb/)
+      kbo(:,40, 6) = (/ &
+     &1.5841e-03_rb,1.6128e-03_rb,1.6390e-03_rb,1.6667e-03_rb,1.6980e-03_rb/)
+      kbo(:,41, 6) = (/ &
+     &1.3139e-03_rb,1.3408e-03_rb,1.3651e-03_rb,1.3913e-03_rb,1.4213e-03_rb/)
+      kbo(:,42, 6) = (/ &
+     &1.0897e-03_rb,1.1135e-03_rb,1.1369e-03_rb,1.1616e-03_rb,1.1887e-03_rb/)
+      kbo(:,43, 6) = (/ &
+     &9.0311e-04_rb,9.2481e-04_rb,9.4572e-04_rb,9.6914e-04_rb,9.9399e-04_rb/)
+      kbo(:,44, 6) = (/ &
+     &7.4776e-04_rb,7.6718e-04_rb,7.8637e-04_rb,8.0787e-04_rb,8.3044e-04_rb/)
+      kbo(:,45, 6) = (/ &
+     &6.1863e-04_rb,6.3626e-04_rb,6.5392e-04_rb,6.7285e-04_rb,6.9425e-04_rb/)
+      kbo(:,46, 6) = (/ &
+     &5.1188e-04_rb,5.2759e-04_rb,5.4354e-04_rb,5.6054e-04_rb,5.8050e-04_rb/)
+      kbo(:,47, 6) = (/ &
+     &4.2255e-04_rb,4.3715e-04_rb,4.5173e-04_rb,4.6695e-04_rb,4.8462e-04_rb/)
+      kbo(:,48, 6) = (/ &
+     &3.4819e-04_rb,3.6156e-04_rb,3.7458e-04_rb,3.8864e-04_rb,4.0475e-04_rb/)
+      kbo(:,49, 6) = (/ &
+     &2.8602e-04_rb,2.9814e-04_rb,3.1015e-04_rb,3.2283e-04_rb,3.3769e-04_rb/)
+      kbo(:,50, 6) = (/ &
+     &2.3475e-04_rb,2.4603e-04_rb,2.5676e-04_rb,2.6851e-04_rb,2.8207e-04_rb/)
+      kbo(:,51, 6) = (/ &
+     &1.9267e-04_rb,2.0293e-04_rb,2.1257e-04_rb,2.2327e-04_rb,2.3584e-04_rb/)
+      kbo(:,52, 6) = (/ &
+     &1.5736e-04_rb,1.6664e-04_rb,1.7558e-04_rb,1.8519e-04_rb,1.9650e-04_rb/)
+      kbo(:,53, 6) = (/ &
+     &1.2741e-04_rb,1.3627e-04_rb,1.4450e-04_rb,1.5309e-04_rb,1.6331e-04_rb/)
+      kbo(:,54, 6) = (/ &
+     &1.0368e-04_rb,1.1186e-04_rb,1.1942e-04_rb,1.2720e-04_rb,1.3642e-04_rb/)
+      kbo(:,55, 6) = (/ &
+     &8.4018e-05_rb,9.1900e-05_rb,9.8814e-05_rb,1.0595e-04_rb,1.1419e-04_rb/)
+      kbo(:,56, 6) = (/ &
+     &6.7644e-05_rb,7.5107e-05_rb,8.1537e-05_rb,8.8130e-05_rb,9.5553e-05_rb/)
+      kbo(:,57, 6) = (/ &
+     &5.3052e-05_rb,6.0800e-05_rb,6.7049e-05_rb,7.3153e-05_rb,7.9865e-05_rb/)
+      kbo(:,58, 6) = (/ &
+     &4.1297e-05_rb,4.9020e-05_rb,5.4922e-05_rb,6.0589e-05_rb,6.6753e-05_rb/)
+      kbo(:,59, 6) = (/ &
+     &3.4006e-05_rb,4.0647e-05_rb,4.6127e-05_rb,5.1418e-05_rb,5.7293e-05_rb/)
+      kbo(:,13, 7) = (/ &
+     &5.2204e-01_rb,5.1758e-01_rb,5.1182e-01_rb,5.0530e-01_rb,4.9787e-01_rb/)
+      kbo(:,14, 7) = (/ &
+     &4.3225e-01_rb,4.2797e-01_rb,4.2283e-01_rb,4.1695e-01_rb,4.1054e-01_rb/)
+      kbo(:,15, 7) = (/ &
+     &3.5438e-01_rb,3.5034e-01_rb,3.4544e-01_rb,3.4060e-01_rb,3.3555e-01_rb/)
+      kbo(:,16, 7) = (/ &
+     &3.0255e-01_rb,2.9825e-01_rb,2.9421e-01_rb,2.8975e-01_rb,2.8561e-01_rb/)
+      kbo(:,17, 7) = (/ &
+     &2.5944e-01_rb,2.5596e-01_rb,2.5201e-01_rb,2.4828e-01_rb,2.4466e-01_rb/)
+      kbo(:,18, 7) = (/ &
+     &2.2110e-01_rb,2.1760e-01_rb,2.1435e-01_rb,2.1143e-01_rb,2.0904e-01_rb/)
+      kbo(:,19, 7) = (/ &
+     &1.8864e-01_rb,1.8589e-01_rb,1.8343e-01_rb,1.8143e-01_rb,1.7990e-01_rb/)
+      kbo(:,20, 7) = (/ &
+     &1.6121e-01_rb,1.5932e-01_rb,1.5784e-01_rb,1.5634e-01_rb,1.5506e-01_rb/)
+      kbo(:,21, 7) = (/ &
+     &1.3878e-01_rb,1.3751e-01_rb,1.3632e-01_rb,1.3482e-01_rb,1.3362e-01_rb/)
+      kbo(:,22, 7) = (/ &
+     &1.1962e-01_rb,1.1845e-01_rb,1.1744e-01_rb,1.1632e-01_rb,1.1539e-01_rb/)
+      kbo(:,23, 7) = (/ &
+     &1.0245e-01_rb,1.0173e-01_rb,1.0097e-01_rb,1.0038e-01_rb,9.9933e-02_rb/)
+      kbo(:,24, 7) = (/ &
+     &8.7666e-02_rb,8.7158e-02_rb,8.6968e-02_rb,8.6971e-02_rb,8.7255e-02_rb/)
+      kbo(:,25, 7) = (/ &
+     &7.4640e-02_rb,7.4734e-02_rb,7.5053e-02_rb,7.5269e-02_rb,7.5390e-02_rb/)
+      kbo(:,26, 7) = (/ &
+     &6.3735e-02_rb,6.4061e-02_rb,6.4333e-02_rb,6.4421e-02_rb,6.4368e-02_rb/)
+      kbo(:,27, 7) = (/ &
+     &5.4126e-02_rb,5.4429e-02_rb,5.4564e-02_rb,5.4521e-02_rb,5.4525e-02_rb/)
+      kbo(:,28, 7) = (/ &
+     &4.5724e-02_rb,4.5897e-02_rb,4.5948e-02_rb,4.5981e-02_rb,4.6016e-02_rb/)
+      kbo(:,29, 7) = (/ &
+     &3.8172e-02_rb,3.8308e-02_rb,3.8382e-02_rb,3.8489e-02_rb,3.8585e-02_rb/)
+      kbo(:,30, 7) = (/ &
+     &3.1718e-02_rb,3.1883e-02_rb,3.2020e-02_rb,3.2173e-02_rb,3.2316e-02_rb/)
+      kbo(:,31, 7) = (/ &
+     &2.6252e-02_rb,2.6436e-02_rb,2.6597e-02_rb,2.6780e-02_rb,2.6950e-02_rb/)
+      kbo(:,32, 7) = (/ &
+     &2.1754e-02_rb,2.1941e-02_rb,2.2153e-02_rb,2.2326e-02_rb,2.2517e-02_rb/)
+      kbo(:,33, 7) = (/ &
+     &1.8085e-02_rb,1.8277e-02_rb,1.8461e-02_rb,1.8652e-02_rb,1.8849e-02_rb/)
+      kbo(:,34, 7) = (/ &
+     &1.5122e-02_rb,1.5298e-02_rb,1.5478e-02_rb,1.5652e-02_rb,1.5844e-02_rb/)
+      kbo(:,35, 7) = (/ &
+     &1.2625e-02_rb,1.2802e-02_rb,1.2974e-02_rb,1.3152e-02_rb,1.3333e-02_rb/)
+      kbo(:,36, 7) = (/ &
+     &1.0557e-02_rb,1.0724e-02_rb,1.0878e-02_rb,1.1051e-02_rb,1.1225e-02_rb/)
+      kbo(:,37, 7) = (/ &
+     &8.8496e-03_rb,9.0081e-03_rb,9.1627e-03_rb,9.3269e-03_rb,9.4871e-03_rb/)
+      kbo(:,38, 7) = (/ &
+     &7.4071e-03_rb,7.5543e-03_rb,7.6993e-03_rb,7.8541e-03_rb,8.0170e-03_rb/)
+      kbo(:,39, 7) = (/ &
+     &6.1854e-03_rb,6.3247e-03_rb,6.4677e-03_rb,6.6094e-03_rb,6.7526e-03_rb/)
+      kbo(:,40, 7) = (/ &
+     &5.1922e-03_rb,5.3234e-03_rb,5.4554e-03_rb,5.5916e-03_rb,5.7266e-03_rb/)
+      kbo(:,41, 7) = (/ &
+     &4.3585e-03_rb,4.4819e-03_rb,4.6086e-03_rb,4.7343e-03_rb,4.8561e-03_rb/)
+      kbo(:,42, 7) = (/ &
+     &3.6533e-03_rb,3.7711e-03_rb,3.8861e-03_rb,3.9990e-03_rb,4.1168e-03_rb/)
+      kbo(:,43, 7) = (/ &
+     &3.0584e-03_rb,3.1667e-03_rb,3.2727e-03_rb,3.3777e-03_rb,3.4881e-03_rb/)
+      kbo(:,44, 7) = (/ &
+     &2.5534e-03_rb,2.6526e-03_rb,2.7492e-03_rb,2.8491e-03_rb,2.9548e-03_rb/)
+      kbo(:,45, 7) = (/ &
+     &2.1284e-03_rb,2.2160e-03_rb,2.3074e-03_rb,2.3986e-03_rb,2.4950e-03_rb/)
+      kbo(:,46, 7) = (/ &
+     &1.7695e-03_rb,1.8482e-03_rb,1.9316e-03_rb,2.0146e-03_rb,2.1010e-03_rb/)
+      kbo(:,47, 7) = (/ &
+     &1.4673e-03_rb,1.5398e-03_rb,1.6138e-03_rb,1.6894e-03_rb,1.7692e-03_rb/)
+      kbo(:,48, 7) = (/ &
+     &1.2142e-03_rb,1.2798e-03_rb,1.3450e-03_rb,1.4129e-03_rb,1.4833e-03_rb/)
+      kbo(:,49, 7) = (/ &
+     &1.0007e-03_rb,1.0578e-03_rb,1.1143e-03_rb,1.1757e-03_rb,1.2387e-03_rb/)
+      kbo(:,50, 7) = (/ &
+     &8.2795e-04_rb,8.7794e-04_rb,9.2798e-04_rb,9.8346e-04_rb,1.0399e-03_rb/)
+      kbo(:,51, 7) = (/ &
+     &6.8604e-04_rb,7.3011e-04_rb,7.7427e-04_rb,8.2321e-04_rb,8.7374e-04_rb/)
+      kbo(:,52, 7) = (/ &
+     &5.6660e-04_rb,6.0603e-04_rb,6.4555e-04_rb,6.8763e-04_rb,7.3282e-04_rb/)
+      kbo(:,53, 7) = (/ &
+     &4.6575e-04_rb,5.0073e-04_rb,5.3612e-04_rb,5.7296e-04_rb,6.1258e-04_rb/)
+      kbo(:,54, 7) = (/ &
+     &3.8679e-04_rb,4.1843e-04_rb,4.5022e-04_rb,4.8415e-04_rb,5.2013e-04_rb/)
+      kbo(:,55, 7) = (/ &
+     &3.2310e-04_rb,3.5117e-04_rb,3.8038e-04_rb,4.1226e-04_rb,4.4542e-04_rb/)
+      kbo(:,56, 7) = (/ &
+     &2.6895e-04_rb,2.9441e-04_rb,3.2135e-04_rb,3.5045e-04_rb,3.8084e-04_rb/)
+      kbo(:,57, 7) = (/ &
+     &2.2346e-04_rb,2.4644e-04_rb,2.7077e-04_rb,2.9691e-04_rb,3.2529e-04_rb/)
+      kbo(:,58, 7) = (/ &
+     &1.8566e-04_rb,2.0641e-04_rb,2.2834e-04_rb,2.5256e-04_rb,2.7894e-04_rb/)
+      kbo(:,59, 7) = (/ &
+     &1.5949e-04_rb,1.7859e-04_rb,1.9903e-04_rb,2.2176e-04_rb,2.4718e-04_rb/)
+      kbo(:,13, 8) = (/ &
+     &1.7932e+00_rb,1.7598e+00_rb,1.7272e+00_rb,1.6957e+00_rb,1.6643e+00_rb/)
+      kbo(:,14, 8) = (/ &
+     &1.5024e+00_rb,1.4748e+00_rb,1.4482e+00_rb,1.4213e+00_rb,1.3943e+00_rb/)
+      kbo(:,15, 8) = (/ &
+     &1.2493e+00_rb,1.2269e+00_rb,1.2042e+00_rb,1.1821e+00_rb,1.1593e+00_rb/)
+      kbo(:,16, 8) = (/ &
+     &1.0236e+00_rb,1.0050e+00_rb,9.8683e-01_rb,9.6754e-01_rb,9.4805e-01_rb/)
+      kbo(:,17, 8) = (/ &
+     &8.3764e-01_rb,8.2167e-01_rb,8.0558e-01_rb,7.8848e-01_rb,7.7231e-01_rb/)
+      kbo(:,18, 8) = (/ &
+     &7.0049e-01_rb,6.8715e-01_rb,6.7310e-01_rb,6.5885e-01_rb,6.4482e-01_rb/)
+      kbo(:,19, 8) = (/ &
+     &6.0067e-01_rb,5.8909e-01_rb,5.7714e-01_rb,5.6481e-01_rb,5.5329e-01_rb/)
+      kbo(:,20, 8) = (/ &
+     &5.1436e-01_rb,5.0417e-01_rb,4.9351e-01_rb,4.8348e-01_rb,4.7495e-01_rb/)
+      kbo(:,21, 8) = (/ &
+     &4.3696e-01_rb,4.2847e-01_rb,4.2014e-01_rb,4.1292e-01_rb,4.0709e-01_rb/)
+      kbo(:,22, 8) = (/ &
+     &3.7052e-01_rb,3.6397e-01_rb,3.5765e-01_rb,3.5323e-01_rb,3.4919e-01_rb/)
+      kbo(:,23, 8) = (/ &
+     &3.1534e-01_rb,3.1049e-01_rb,3.0630e-01_rb,3.0316e-01_rb,3.0035e-01_rb/)
+      kbo(:,24, 8) = (/ &
+     &2.7112e-01_rb,2.6740e-01_rb,2.6459e-01_rb,2.6223e-01_rb,2.5988e-01_rb/)
+      kbo(:,25, 8) = (/ &
+     &2.3380e-01_rb,2.3133e-01_rb,2.2943e-01_rb,2.2772e-01_rb,2.2653e-01_rb/)
+      kbo(:,26, 8) = (/ &
+     &2.0236e-01_rb,2.0088e-01_rb,1.9954e-01_rb,1.9878e-01_rb,1.9870e-01_rb/)
+      kbo(:,27, 8) = (/ &
+     &1.7470e-01_rb,1.7394e-01_rb,1.7356e-01_rb,1.7393e-01_rb,1.7411e-01_rb/)
+      kbo(:,28, 8) = (/ &
+     &1.5024e-01_rb,1.5047e-01_rb,1.5098e-01_rb,1.5164e-01_rb,1.5243e-01_rb/)
+      kbo(:,29, 8) = (/ &
+     &1.2816e-01_rb,1.2887e-01_rb,1.2996e-01_rb,1.3066e-01_rb,1.3197e-01_rb/)
+      kbo(:,30, 8) = (/ &
+     &1.0887e-01_rb,1.0998e-01_rb,1.1099e-01_rb,1.1227e-01_rb,1.1365e-01_rb/)
+      kbo(:,31, 8) = (/ &
+     &9.1656e-02_rb,9.2754e-02_rb,9.3840e-02_rb,9.5163e-02_rb,9.6499e-02_rb/)
+      kbo(:,32, 8) = (/ &
+     &7.7165e-02_rb,7.8228e-02_rb,7.9327e-02_rb,8.0584e-02_rb,8.1883e-02_rb/)
+      kbo(:,33, 8) = (/ &
+     &6.4796e-02_rb,6.5863e-02_rb,6.6915e-02_rb,6.7986e-02_rb,6.9105e-02_rb/)
+      kbo(:,34, 8) = (/ &
+     &5.4901e-02_rb,5.5964e-02_rb,5.6945e-02_rb,5.8000e-02_rb,5.9045e-02_rb/)
+      kbo(:,35, 8) = (/ &
+     &4.6607e-02_rb,4.7594e-02_rb,4.8499e-02_rb,4.9452e-02_rb,5.0386e-02_rb/)
+      kbo(:,36, 8) = (/ &
+     &3.9577e-02_rb,4.0492e-02_rb,4.1341e-02_rb,4.2242e-02_rb,4.3090e-02_rb/)
+      kbo(:,37, 8) = (/ &
+     &3.3790e-02_rb,3.4662e-02_rb,3.5486e-02_rb,3.6314e-02_rb,3.7168e-02_rb/)
+      kbo(:,38, 8) = (/ &
+     &2.8754e-02_rb,2.9559e-02_rb,3.0387e-02_rb,3.1137e-02_rb,3.1929e-02_rb/)
+      kbo(:,39, 8) = (/ &
+     &2.4394e-02_rb,2.5115e-02_rb,2.5838e-02_rb,2.6544e-02_rb,2.7274e-02_rb/)
+      kbo(:,40, 8) = (/ &
+     &2.0920e-02_rb,2.1659e-02_rb,2.2398e-02_rb,2.3092e-02_rb,2.3784e-02_rb/)
+      kbo(:,41, 8) = (/ &
+     &1.7960e-02_rb,1.8686e-02_rb,1.9408e-02_rb,2.0118e-02_rb,2.0798e-02_rb/)
+      kbo(:,42, 8) = (/ &
+     &1.5382e-02_rb,1.6080e-02_rb,1.6764e-02_rb,1.7451e-02_rb,1.8100e-02_rb/)
+      kbo(:,43, 8) = (/ &
+     &1.3156e-02_rb,1.3822e-02_rb,1.4465e-02_rb,1.5132e-02_rb,1.5767e-02_rb/)
+      kbo(:,44, 8) = (/ &
+     &1.1236e-02_rb,1.1847e-02_rb,1.2471e-02_rb,1.3074e-02_rb,1.3675e-02_rb/)
+      kbo(:,45, 8) = (/ &
+     &9.5475e-03_rb,1.0122e-02_rb,1.0686e-02_rb,1.1243e-02_rb,1.1794e-02_rb/)
+      kbo(:,46, 8) = (/ &
+     &8.0771e-03_rb,8.6018e-03_rb,9.1254e-03_rb,9.6411e-03_rb,1.0156e-02_rb/)
+      kbo(:,47, 8) = (/ &
+     &6.8185e-03_rb,7.3016e-03_rb,7.7913e-03_rb,8.2730e-03_rb,8.7590e-03_rb/)
+      kbo(:,48, 8) = (/ &
+     &5.7132e-03_rb,6.1559e-03_rb,6.5990e-03_rb,7.0467e-03_rb,7.5035e-03_rb/)
+      kbo(:,49, 8) = (/ &
+     &4.7309e-03_rb,5.1282e-03_rb,5.5334e-03_rb,5.9379e-03_rb,6.3413e-03_rb/)
+      kbo(:,50, 8) = (/ &
+     &3.9545e-03_rb,4.3092e-03_rb,4.6836e-03_rb,5.0555e-03_rb,5.4339e-03_rb/)
+      kbo(:,51, 8) = (/ &
+     &3.3094e-03_rb,3.6354e-03_rb,3.9810e-03_rb,4.3245e-03_rb,4.6768e-03_rb/)
+      kbo(:,52, 8) = (/ &
+     &2.7556e-03_rb,3.0488e-03_rb,3.3581e-03_rb,3.6757e-03_rb,3.9978e-03_rb/)
+      kbo(:,53, 8) = (/ &
+     &2.2741e-03_rb,2.5328e-03_rb,2.8070e-03_rb,3.0901e-03_rb,3.3837e-03_rb/)
+      kbo(:,54, 8) = (/ &
+     &1.9244e-03_rb,2.1630e-03_rb,2.4199e-03_rb,2.6919e-03_rb,2.9670e-03_rb/)
+      kbo(:,55, 8) = (/ &
+     &1.6527e-03_rb,1.8750e-03_rb,2.1244e-03_rb,2.3895e-03_rb,2.6621e-03_rb/)
+      kbo(:,56, 8) = (/ &
+     &1.4187e-03_rb,1.6262e-03_rb,1.8617e-03_rb,2.1120e-03_rb,2.3834e-03_rb/)
+      kbo(:,57, 8) = (/ &
+     &1.2123e-03_rb,1.4102e-03_rb,1.6308e-03_rb,1.8701e-03_rb,2.1361e-03_rb/)
+      kbo(:,58, 8) = (/ &
+     &1.0428e-03_rb,1.2269e-03_rb,1.4357e-03_rb,1.6692e-03_rb,1.9342e-03_rb/)
+      kbo(:,59, 8) = (/ &
+     &9.5774e-04_rb,1.1485e-03_rb,1.3717e-03_rb,1.6313e-03_rb,1.9270e-03_rb/)
+      kbo(:,13, 9) = (/ &
+     &1.0743e+01_rb,1.0581e+01_rb,1.0416e+01_rb,1.0238e+01_rb,1.0057e+01_rb/)
+      kbo(:,14, 9) = (/ &
+     &9.3266e+00_rb,9.1890e+00_rb,9.0401e+00_rb,8.8785e+00_rb,8.7093e+00_rb/)
+      kbo(:,15, 9) = (/ &
+     &8.0329e+00_rb,7.9105e+00_rb,7.7721e+00_rb,7.6225e+00_rb,7.4769e+00_rb/)
+      kbo(:,16, 9) = (/ &
+     &6.8686e+00_rb,6.7530e+00_rb,6.6275e+00_rb,6.5036e+00_rb,6.3858e+00_rb/)
+      kbo(:,17, 9) = (/ &
+     &5.8249e+00_rb,5.7232e+00_rb,5.6209e+00_rb,5.5225e+00_rb,5.4281e+00_rb/)
+      kbo(:,18, 9) = (/ &
+     &4.8929e+00_rb,4.8094e+00_rb,4.7279e+00_rb,4.6483e+00_rb,4.5724e+00_rb/)
+      kbo(:,19, 9) = (/ &
+     &4.0706e+00_rb,4.0042e+00_rb,3.9380e+00_rb,3.8751e+00_rb,3.8145e+00_rb/)
+      kbo(:,20, 9) = (/ &
+     &3.3806e+00_rb,3.3267e+00_rb,3.2749e+00_rb,3.2247e+00_rb,3.1746e+00_rb/)
+      kbo(:,21, 9) = (/ &
+     &2.8074e+00_rb,2.7644e+00_rb,2.7235e+00_rb,2.6821e+00_rb,2.6407e+00_rb/)
+      kbo(:,22, 9) = (/ &
+     &2.3283e+00_rb,2.2955e+00_rb,2.2616e+00_rb,2.2266e+00_rb,2.1957e+00_rb/)
+      kbo(:,23, 9) = (/ &
+     &1.9321e+00_rb,1.9042e+00_rb,1.8758e+00_rb,1.8494e+00_rb,1.8261e+00_rb/)
+      kbo(:,24, 9) = (/ &
+     &1.6234e+00_rb,1.5933e+00_rb,1.5660e+00_rb,1.5420e+00_rb,1.5232e+00_rb/)
+      kbo(:,25, 9) = (/ &
+     &1.3980e+00_rb,1.3704e+00_rb,1.3436e+00_rb,1.3210e+00_rb,1.3008e+00_rb/)
+      kbo(:,26, 9) = (/ &
+     &1.2106e+00_rb,1.1883e+00_rb,1.1672e+00_rb,1.1488e+00_rb,1.1330e+00_rb/)
+      kbo(:,27, 9) = (/ &
+     &1.0466e+00_rb,1.0297e+00_rb,1.0139e+00_rb,1.0016e+00_rb,9.9022e-01_rb/)
+      kbo(:,28, 9) = (/ &
+     &9.0567e-01_rb,8.9244e-01_rb,8.8275e-01_rb,8.7361e-01_rb,8.6722e-01_rb/)
+      kbo(:,29, 9) = (/ &
+     &7.7743e-01_rb,7.6923e-01_rb,7.6234e-01_rb,7.5840e-01_rb,7.5702e-01_rb/)
+      kbo(:,30, 9) = (/ &
+     &6.6693e-01_rb,6.6196e-01_rb,6.5810e-01_rb,6.5663e-01_rb,6.5785e-01_rb/)
+      kbo(:,31, 9) = (/ &
+     &5.6777e-01_rb,5.6527e-01_rb,5.6420e-01_rb,5.6593e-01_rb,5.6662e-01_rb/)
+      kbo(:,32, 9) = (/ &
+     &4.8384e-01_rb,4.8324e-01_rb,4.8562e-01_rb,4.8803e-01_rb,4.8996e-01_rb/)
+      kbo(:,33, 9) = (/ &
+     &4.1137e-01_rb,4.1406e-01_rb,4.1751e-01_rb,4.2081e-01_rb,4.2550e-01_rb/)
+      kbo(:,34, 9) = (/ &
+     &3.5416e-01_rb,3.5806e-01_rb,3.6166e-01_rb,3.6664e-01_rb,3.7277e-01_rb/)
+      kbo(:,35, 9) = (/ &
+     &3.0554e-01_rb,3.0948e-01_rb,3.1424e-01_rb,3.1976e-01_rb,3.2676e-01_rb/)
+      kbo(:,36, 9) = (/ &
+     &2.6418e-01_rb,2.6871e-01_rb,2.7383e-01_rb,2.8027e-01_rb,2.8707e-01_rb/)
+      kbo(:,37, 9) = (/ &
+     &2.2969e-01_rb,2.3421e-01_rb,2.3975e-01_rb,2.4624e-01_rb,2.5310e-01_rb/)
+      kbo(:,38, 9) = (/ &
+     &1.9950e-01_rb,2.0421e-01_rb,2.0978e-01_rb,2.1651e-01_rb,2.2302e-01_rb/)
+      kbo(:,39, 9) = (/ &
+     &1.7282e-01_rb,1.7783e-01_rb,1.8337e-01_rb,1.9005e-01_rb,1.9644e-01_rb/)
+      kbo(:,40, 9) = (/ &
+     &1.5139e-01_rb,1.5623e-01_rb,1.6190e-01_rb,1.6820e-01_rb,1.7447e-01_rb/)
+      kbo(:,41, 9) = (/ &
+     &1.3264e-01_rb,1.3745e-01_rb,1.4301e-01_rb,1.4932e-01_rb,1.5546e-01_rb/)
+      kbo(:,42, 9) = (/ &
+     &1.1607e-01_rb,1.2085e-01_rb,1.2625e-01_rb,1.3247e-01_rb,1.3847e-01_rb/)
+      kbo(:,43, 9) = (/ &
+     &1.0129e-01_rb,1.0600e-01_rb,1.1131e-01_rb,1.1735e-01_rb,1.2314e-01_rb/)
+      kbo(:,44, 9) = (/ &
+     &8.8076e-02_rb,9.2672e-02_rb,9.7764e-02_rb,1.0358e-01_rb,1.0942e-01_rb/)
+      kbo(:,45, 9) = (/ &
+     &7.6267e-02_rb,8.0788e-02_rb,8.5604e-02_rb,9.1124e-02_rb,9.6796e-02_rb/)
+      kbo(:,46, 9) = (/ &
+     &6.5896e-02_rb,7.0073e-02_rb,7.4628e-02_rb,7.9860e-02_rb,8.5349e-02_rb/)
+      kbo(:,47, 9) = (/ &
+     &5.6947e-02_rb,6.0912e-02_rb,6.5102e-02_rb,6.9953e-02_rb,7.5324e-02_rb/)
+      kbo(:,48, 9) = (/ &
+     &4.8993e-02_rb,5.2552e-02_rb,5.6622e-02_rb,6.1050e-02_rb,6.6050e-02_rb/)
+      kbo(:,49, 9) = (/ &
+     &4.1828e-02_rb,4.5103e-02_rb,4.8726e-02_rb,5.2827e-02_rb,5.7536e-02_rb/)
+      kbo(:,50, 9) = (/ &
+     &3.6237e-02_rb,3.9173e-02_rb,4.2523e-02_rb,4.6248e-02_rb,5.0679e-02_rb/)
+      kbo(:,51, 9) = (/ &
+     &3.1483e-02_rb,3.4194e-02_rb,3.7317e-02_rb,4.0792e-02_rb,4.4937e-02_rb/)
+      kbo(:,52, 9) = (/ &
+     &2.7288e-02_rb,2.9720e-02_rb,3.2635e-02_rb,3.5833e-02_rb,3.9605e-02_rb/)
+      kbo(:,53, 9) = (/ &
+     &2.3553e-02_rb,2.5752e-02_rb,2.8298e-02_rb,3.1273e-02_rb,3.4805e-02_rb/)
+      kbo(:,54, 9) = (/ &
+     &2.0927e-02_rb,2.2955e-02_rb,2.5436e-02_rb,2.8294e-02_rb,3.1547e-02_rb/)
+      kbo(:,55, 9) = (/ &
+     &1.8850e-02_rb,2.0892e-02_rb,2.3245e-02_rb,2.6068e-02_rb,2.9259e-02_rb/)
+      kbo(:,56, 9) = (/ &
+     &1.7133e-02_rb,1.9134e-02_rb,2.1378e-02_rb,2.4152e-02_rb,2.7278e-02_rb/)
+      kbo(:,57, 9) = (/ &
+     &1.5614e-02_rb,1.7616e-02_rb,1.9861e-02_rb,2.2450e-02_rb,2.5658e-02_rb/)
+      kbo(:,58, 9) = (/ &
+     &1.4386e-02_rb,1.6367e-02_rb,1.8612e-02_rb,2.1235e-02_rb,2.4366e-02_rb/)
+      kbo(:,59, 9) = (/ &
+     &1.4750e-02_rb,1.6838e-02_rb,1.9250e-02_rb,2.2069e-02_rb,2.5653e-02_rb/)
+      kbo(:,13,10) = (/ &
+     &4.1842e+01_rb,4.1126e+01_rb,4.0474e+01_rb,3.9934e+01_rb,3.9455e+01_rb/)
+      kbo(:,14,10) = (/ &
+     &3.7817e+01_rb,3.7244e+01_rb,3.6754e+01_rb,3.6387e+01_rb,3.5986e+01_rb/)
+      kbo(:,15,10) = (/ &
+     &3.3775e+01_rb,3.3359e+01_rb,3.3057e+01_rb,3.2734e+01_rb,3.2346e+01_rb/)
+      kbo(:,16,10) = (/ &
+     &2.9866e+01_rb,2.9628e+01_rb,2.9352e+01_rb,2.8982e+01_rb,2.8500e+01_rb/)
+      kbo(:,17,10) = (/ &
+     &2.6256e+01_rb,2.6026e+01_rb,2.5674e+01_rb,2.5248e+01_rb,2.4813e+01_rb/)
+      kbo(:,18,10) = (/ &
+     &2.2845e+01_rb,2.2539e+01_rb,2.2184e+01_rb,2.1830e+01_rb,2.1506e+01_rb/)
+      kbo(:,19,10) = (/ &
+     &1.9624e+01_rb,1.9336e+01_rb,1.9054e+01_rb,1.8789e+01_rb,1.8555e+01_rb/)
+      kbo(:,20,10) = (/ &
+     &1.6714e+01_rb,1.6495e+01_rb,1.6283e+01_rb,1.6088e+01_rb,1.5920e+01_rb/)
+      kbo(:,21,10) = (/ &
+     &1.4184e+01_rb,1.4023e+01_rb,1.3853e+01_rb,1.3722e+01_rb,1.3615e+01_rb/)
+      kbo(:,22,10) = (/ &
+     &1.2010e+01_rb,1.1876e+01_rb,1.1769e+01_rb,1.1693e+01_rb,1.1608e+01_rb/)
+      kbo(:,23,10) = (/ &
+     &1.0140e+01_rb,1.0060e+01_rb,1.0004e+01_rb,9.9480e+00_rb,9.8828e+00_rb/)
+      kbo(:,24,10) = (/ &
+     &8.3529e+00_rb,8.3955e+00_rb,8.4004e+00_rb,8.3887e+00_rb,8.3750e+00_rb/)
+      kbo(:,25,10) = (/ &
+     &6.5990e+00_rb,6.6692e+00_rb,6.7250e+00_rb,6.7763e+00_rb,6.8513e+00_rb/)
+      kbo(:,26,10) = (/ &
+     &5.2218e+00_rb,5.2429e+00_rb,5.2934e+00_rb,5.3672e+00_rb,5.4447e+00_rb/)
+      kbo(:,27,10) = (/ &
+     &4.4199e+00_rb,4.3564e+00_rb,4.3290e+00_rb,4.3162e+00_rb,4.3878e+00_rb/)
+      kbo(:,28,10) = (/ &
+     &3.8059e+00_rb,3.7536e+00_rb,3.6821e+00_rb,3.6546e+00_rb,3.6556e+00_rb/)
+      kbo(:,29,10) = (/ &
+     &3.2943e+00_rb,3.2284e+00_rb,3.1752e+00_rb,3.1401e+00_rb,3.1165e+00_rb/)
+      kbo(:,30,10) = (/ &
+     &2.8426e+00_rb,2.7881e+00_rb,2.7489e+00_rb,2.7185e+00_rb,2.7182e+00_rb/)
+      kbo(:,31,10) = (/ &
+     &2.4366e+00_rb,2.4010e+00_rb,2.3877e+00_rb,2.3684e+00_rb,2.4040e+00_rb/)
+      kbo(:,32,10) = (/ &
+     &2.1031e+00_rb,2.0888e+00_rb,2.0634e+00_rb,2.0885e+00_rb,2.1581e+00_rb/)
+      kbo(:,33,10) = (/ &
+     &1.8304e+00_rb,1.8104e+00_rb,1.8138e+00_rb,1.8703e+00_rb,1.9665e+00_rb/)
+      kbo(:,34,10) = (/ &
+     &1.5963e+00_rb,1.5877e+00_rb,1.6209e+00_rb,1.6809e+00_rb,1.8060e+00_rb/)
+      kbo(:,35,10) = (/ &
+     &1.3950e+00_rb,1.4093e+00_rb,1.4535e+00_rb,1.5372e+00_rb,1.6748e+00_rb/)
+      kbo(:,36,10) = (/ &
+     &1.2291e+00_rb,1.2517e+00_rb,1.3081e+00_rb,1.4001e+00_rb,1.5466e+00_rb/)
+      kbo(:,37,10) = (/ &
+     &1.0841e+00_rb,1.1159e+00_rb,1.1678e+00_rb,1.2585e+00_rb,1.4003e+00_rb/)
+      kbo(:,38,10) = (/ &
+     &9.5502e-01_rb,9.9217e-01_rb,1.0459e+00_rb,1.1387e+00_rb,1.2834e+00_rb/)
+      kbo(:,39,10) = (/ &
+     &8.4320e-01_rb,8.8008e-01_rb,9.3921e-01_rb,1.0432e+00_rb,1.1899e+00_rb/)
+      kbo(:,40,10) = (/ &
+     &7.4742e-01_rb,7.8308e-01_rb,8.3378e-01_rb,9.2859e-01_rb,1.0715e+00_rb/)
+      kbo(:,41,10) = (/ &
+     &6.6607e-01_rb,6.9838e-01_rb,7.4378e-01_rb,8.2580e-01_rb,9.6253e-01_rb/)
+      kbo(:,42,10) = (/ &
+     &5.9399e-01_rb,6.2402e-01_rb,6.6818e-01_rb,7.3908e-01_rb,8.7040e-01_rb/)
+      kbo(:,43,10) = (/ &
+     &5.3134e-01_rb,5.5822e-01_rb,5.9679e-01_rb,6.5834e-01_rb,7.8163e-01_rb/)
+      kbo(:,44,10) = (/ &
+     &4.7483e-01_rb,4.9813e-01_rb,5.3656e-01_rb,5.8775e-01_rb,7.0057e-01_rb/)
+      kbo(:,45,10) = (/ &
+     &4.2242e-01_rb,4.4383e-01_rb,4.8053e-01_rb,5.2923e-01_rb,6.3377e-01_rb/)
+      kbo(:,46,10) = (/ &
+     &3.7426e-01_rb,3.9626e-01_rb,4.2998e-01_rb,4.7693e-01_rb,5.7307e-01_rb/)
+      kbo(:,47,10) = (/ &
+     &3.3305e-01_rb,3.5232e-01_rb,3.8380e-01_rb,4.2680e-01_rb,5.1056e-01_rb/)
+      kbo(:,48,10) = (/ &
+     &2.9118e-01_rb,3.1195e-01_rb,3.3996e-01_rb,3.8124e-01_rb,4.5847e-01_rb/)
+      kbo(:,49,10) = (/ &
+     &2.5186e-01_rb,2.7185e-01_rb,2.9957e-01_rb,3.4007e-01_rb,4.1454e-01_rb/)
+      kbo(:,50,10) = (/ &
+     &2.1978e-01_rb,2.4030e-01_rb,2.6478e-01_rb,3.0486e-01_rb,3.7227e-01_rb/)
+      kbo(:,51,10) = (/ &
+     &1.9384e-01_rb,2.1260e-01_rb,2.3536e-01_rb,2.7096e-01_rb,3.3311e-01_rb/)
+      kbo(:,52,10) = (/ &
+     &1.6918e-01_rb,1.8784e-01_rb,2.0901e-01_rb,2.4060e-01_rb,2.9976e-01_rb/)
+      kbo(:,53,10) = (/ &
+     &1.4644e-01_rb,1.6376e-01_rb,1.8425e-01_rb,2.1431e-01_rb,2.7054e-01_rb/)
+      kbo(:,54,10) = (/ &
+     &1.3139e-01_rb,1.4808e-01_rb,1.6611e-01_rb,1.9208e-01_rb,2.4005e-01_rb/)
+      kbo(:,55,10) = (/ &
+     &1.2172e-01_rb,1.3644e-01_rb,1.5558e-01_rb,1.7831e-01_rb,2.1286e-01_rb/)
+      kbo(:,56,10) = (/ &
+     &1.1074e-01_rb,1.2717e-01_rb,1.4642e-01_rb,1.6603e-01_rb,1.9730e-01_rb/)
+      kbo(:,57,10) = (/ &
+     &1.0195e-01_rb,1.1787e-01_rb,1.3707e-01_rb,1.5838e-01_rb,1.8439e-01_rb/)
+      kbo(:,58,10) = (/ &
+     &9.6243e-02_rb,1.1076e-01_rb,1.2956e-01_rb,1.5169e-01_rb,1.7652e-01_rb/)
+      kbo(:,59,10) = (/ &
+     &9.7302e-02_rb,1.1627e-01_rb,1.3740e-01_rb,1.6328e-01_rb,1.9053e-01_rb/)
+      kbo(:,13,11) = (/ &
+     &7.0360e+01_rb,6.9342e+01_rb,6.8249e+01_rb,6.7098e+01_rb,6.5980e+01_rb/)
+      kbo(:,14,11) = (/ &
+     &6.5791e+01_rb,6.4723e+01_rb,6.3625e+01_rb,6.2598e+01_rb,6.1783e+01_rb/)
+      kbo(:,15,11) = (/ &
+     &6.0426e+01_rb,5.9395e+01_rb,5.8516e+01_rb,5.7828e+01_rb,5.7219e+01_rb/)
+      kbo(:,16,11) = (/ &
+     &5.4683e+01_rb,5.3915e+01_rb,5.3328e+01_rb,5.2878e+01_rb,5.2385e+01_rb/)
+      kbo(:,17,11) = (/ &
+     &4.8953e+01_rb,4.8487e+01_rb,4.8177e+01_rb,4.7782e+01_rb,4.7308e+01_rb/)
+      kbo(:,18,11) = (/ &
+     &4.3480e+01_rb,4.3274e+01_rb,4.2982e+01_rb,4.2563e+01_rb,4.2021e+01_rb/)
+      kbo(:,19,11) = (/ &
+     &3.8401e+01_rb,3.8213e+01_rb,3.7862e+01_rb,3.7391e+01_rb,3.6879e+01_rb/)
+      kbo(:,20,11) = (/ &
+     &3.3602e+01_rb,3.3341e+01_rb,3.2960e+01_rb,3.2565e+01_rb,3.2185e+01_rb/)
+      kbo(:,21,11) = (/ &
+     &2.9094e+01_rb,2.8806e+01_rb,2.8524e+01_rb,2.8243e+01_rb,2.8023e+01_rb/)
+      kbo(:,22,11) = (/ &
+     &2.4954e+01_rb,2.4758e+01_rb,2.4575e+01_rb,2.4433e+01_rb,2.4352e+01_rb/)
+      kbo(:,23,11) = (/ &
+     &2.1326e+01_rb,2.1219e+01_rb,2.1148e+01_rb,2.1108e+01_rb,2.1117e+01_rb/)
+      kbo(:,24,11) = (/ &
+     &1.8212e+01_rb,1.8167e+01_rb,1.8172e+01_rb,1.8221e+01_rb,1.8288e+01_rb/)
+      kbo(:,25,11) = (/ &
+     &1.5541e+01_rb,1.5569e+01_rb,1.5649e+01_rb,1.5756e+01_rb,1.5867e+01_rb/)
+      kbo(:,26,11) = (/ &
+     &1.3185e+01_rb,1.3326e+01_rb,1.3479e+01_rb,1.3624e+01_rb,1.3786e+01_rb/)
+      kbo(:,27,11) = (/ &
+     &1.0920e+01_rb,1.1211e+01_rb,1.1487e+01_rb,1.1743e+01_rb,1.1957e+01_rb/)
+      kbo(:,28,11) = (/ &
+     &9.0678e+00_rb,9.3710e+00_rb,9.6834e+00_rb,9.9920e+00_rb,1.0324e+01_rb/)
+      kbo(:,29,11) = (/ &
+     &7.6881e+00_rb,7.9879e+00_rb,8.2968e+00_rb,8.6379e+00_rb,9.0061e+00_rb/)
+      kbo(:,30,11) = (/ &
+     &6.6033e+00_rb,6.8954e+00_rb,7.2204e+00_rb,7.5787e+00_rb,7.9480e+00_rb/)
+      kbo(:,31,11) = (/ &
+     &5.8224e+00_rb,6.1213e+00_rb,6.4394e+00_rb,6.7947e+00_rb,7.1839e+00_rb/)
+      kbo(:,32,11) = (/ &
+     &5.1825e+00_rb,5.4854e+00_rb,5.8203e+00_rb,6.1672e+00_rb,6.5644e+00_rb/)
+      kbo(:,33,11) = (/ &
+     &4.6793e+00_rb,4.9853e+00_rb,5.3218e+00_rb,5.6796e+00_rb,6.0723e+00_rb/)
+      kbo(:,34,11) = (/ &
+     &4.2112e+00_rb,4.5240e+00_rb,4.8672e+00_rb,5.2510e+00_rb,5.6439e+00_rb/)
+      kbo(:,35,11) = (/ &
+     &3.8061e+00_rb,4.1193e+00_rb,4.4694e+00_rb,4.8571e+00_rb,5.2645e+00_rb/)
+      kbo(:,36,11) = (/ &
+     &3.4331e+00_rb,3.7452e+00_rb,4.0978e+00_rb,4.4887e+00_rb,4.9173e+00_rb/)
+      kbo(:,37,11) = (/ &
+     &3.0586e+00_rb,3.3607e+00_rb,3.7172e+00_rb,4.1153e+00_rb,4.5572e+00_rb/)
+      kbo(:,38,11) = (/ &
+     &2.7517e+00_rb,3.0453e+00_rb,3.3976e+00_rb,3.7947e+00_rb,4.2441e+00_rb/)
+      kbo(:,39,11) = (/ &
+     &2.5013e+00_rb,2.7908e+00_rb,3.1383e+00_rb,3.5236e+00_rb,3.9765e+00_rb/)
+      kbo(:,40,11) = (/ &
+     &2.2268e+00_rb,2.5094e+00_rb,2.8534e+00_rb,3.2426e+00_rb,3.6921e+00_rb/)
+      kbo(:,41,11) = (/ &
+     &1.9832e+00_rb,2.2609e+00_rb,2.6000e+00_rb,2.9899e+00_rb,3.4337e+00_rb/)
+      kbo(:,42,11) = (/ &
+     &1.7785e+00_rb,2.0479e+00_rb,2.3793e+00_rb,2.7692e+00_rb,3.2048e+00_rb/)
+      kbo(:,43,11) = (/ &
+     &1.5856e+00_rb,1.8448e+00_rb,2.1667e+00_rb,2.5496e+00_rb,2.9735e+00_rb/)
+      kbo(:,44,11) = (/ &
+     &1.4123e+00_rb,1.6629e+00_rb,1.9679e+00_rb,2.3444e+00_rb,2.7547e+00_rb/)
+      kbo(:,45,11) = (/ &
+     &1.2640e+00_rb,1.5067e+00_rb,1.7987e+00_rb,2.1603e+00_rb,2.5558e+00_rb/)
+      kbo(:,46,11) = (/ &
+     &1.1290e+00_rb,1.3620e+00_rb,1.6422e+00_rb,1.9855e+00_rb,2.3652e+00_rb/)
+      kbo(:,47,11) = (/ &
+     &9.9161e-01_rb,1.2154e+00_rb,1.4836e+00_rb,1.8087e+00_rb,2.1736e+00_rb/)
+      kbo(:,48,11) = (/ &
+     &8.7615e-01_rb,1.0875e+00_rb,1.3440e+00_rb,1.6515e+00_rb,1.9976e+00_rb/)
+      kbo(:,49,11) = (/ &
+     &7.7782e-01_rb,9.7773e-01_rb,1.2220e+00_rb,1.5130e+00_rb,1.8356e+00_rb/)
+      kbo(:,50,11) = (/ &
+     &6.8345e-01_rb,8.7089e-01_rb,1.1065e+00_rb,1.3830e+00_rb,1.6924e+00_rb/)
+      kbo(:,51,11) = (/ &
+     &5.9562e-01_rb,7.7251e-01_rb,9.9776e-01_rb,1.2648e+00_rb,1.5621e+00_rb/)
+      kbo(:,52,11) = (/ &
+     &5.1948e-01_rb,6.8509e-01_rb,8.9806e-01_rb,1.1564e+00_rb,1.4407e+00_rb/)
+      kbo(:,53,11) = (/ &
+     &4.5430e-01_rb,6.0810e-01_rb,8.0999e-01_rb,1.0551e+00_rb,1.3256e+00_rb/)
+      kbo(:,54,11) = (/ &
+     &3.8584e-01_rb,5.2960e-01_rb,7.1926e-01_rb,9.5469e-01_rb,1.2208e+00_rb/)
+      kbo(:,55,11) = (/ &
+     &3.2585e-01_rb,4.5415e-01_rb,6.2813e-01_rb,8.5255e-01_rb,1.1189e+00_rb/)
+      kbo(:,56,11) = (/ &
+     &2.9347e-01_rb,3.8309e-01_rb,5.4571e-01_rb,7.5695e-01_rb,1.0111e+00_rb/)
+      kbo(:,57,11) = (/ &
+     &2.6872e-01_rb,3.3263e-01_rb,4.6996e-01_rb,6.6376e-01_rb,9.0688e-01_rb/)
+      kbo(:,58,11) = (/ &
+     &2.4960e-01_rb,3.0758e-01_rb,4.0207e-01_rb,5.8213e-01_rb,8.0803e-01_rb/)
+      kbo(:,59,11) = (/ &
+     &2.6183e-01_rb,3.2106e-01_rb,3.9760e-01_rb,5.1091e-01_rb,7.1717e-01_rb/)
+      kbo(:,13,12) = (/ &
+     &1.1832e+02_rb,1.1787e+02_rb,1.1696e+02_rb,1.1585e+02_rb,1.1448e+02_rb/)
+      kbo(:,14,12) = (/ &
+     &1.1787e+02_rb,1.1706e+02_rb,1.1585e+02_rb,1.1435e+02_rb,1.1282e+02_rb/)
+      kbo(:,15,12) = (/ &
+     &1.1482e+02_rb,1.1352e+02_rb,1.1198e+02_rb,1.1040e+02_rb,1.0880e+02_rb/)
+      kbo(:,16,12) = (/ &
+     &1.0896e+02_rb,1.0749e+02_rb,1.0590e+02_rb,1.0433e+02_rb,1.0304e+02_rb/)
+      kbo(:,17,12) = (/ &
+     &1.0128e+02_rb,9.9814e+01_rb,9.8422e+01_rb,9.7349e+01_rb,9.6504e+01_rb/)
+      kbo(:,18,12) = (/ &
+     &9.2677e+01_rb,9.1506e+01_rb,9.0639e+01_rb,9.0100e+01_rb,8.9682e+01_rb/)
+      kbo(:,19,12) = (/ &
+     &8.3897e+01_rb,8.3222e+01_rb,8.2911e+01_rb,8.2751e+01_rb,8.2502e+01_rb/)
+      kbo(:,20,12) = (/ &
+     &7.5342e+01_rb,7.5217e+01_rb,7.5315e+01_rb,7.5254e+01_rb,7.5130e+01_rb/)
+      kbo(:,21,12) = (/ &
+     &6.7351e+01_rb,6.7622e+01_rb,6.7745e+01_rb,6.7796e+01_rb,6.7734e+01_rb/)
+      kbo(:,22,12) = (/ &
+     &5.9964e+01_rb,6.0293e+01_rb,6.0504e+01_rb,6.0565e+01_rb,6.0581e+01_rb/)
+      kbo(:,23,12) = (/ &
+     &5.3111e+01_rb,5.3464e+01_rb,5.3681e+01_rb,5.3837e+01_rb,5.4061e+01_rb/)
+      kbo(:,24,12) = (/ &
+     &4.6795e+01_rb,4.7144e+01_rb,4.7460e+01_rb,4.7828e+01_rb,4.8279e+01_rb/)
+      kbo(:,25,12) = (/ &
+     &4.1060e+01_rb,4.1497e+01_rb,4.1989e+01_rb,4.2550e+01_rb,4.3265e+01_rb/)
+      kbo(:,26,12) = (/ &
+     &3.6007e+01_rb,3.6594e+01_rb,3.7261e+01_rb,3.8060e+01_rb,3.9005e+01_rb/)
+      kbo(:,27,12) = (/ &
+     &3.1657e+01_rb,3.2380e+01_rb,3.3234e+01_rb,3.4259e+01_rb,3.5455e+01_rb/)
+      kbo(:,28,12) = (/ &
+     &2.7936e+01_rb,2.8816e+01_rb,2.9878e+01_rb,3.1120e+01_rb,3.2499e+01_rb/)
+      kbo(:,29,12) = (/ &
+     &2.4811e+01_rb,2.5887e+01_rb,2.7138e+01_rb,2.8541e+01_rb,3.0069e+01_rb/)
+      kbo(:,30,12) = (/ &
+     &2.2271e+01_rb,2.3484e+01_rb,2.4883e+01_rb,2.6431e+01_rb,2.8119e+01_rb/)
+      kbo(:,31,12) = (/ &
+     &2.0203e+01_rb,2.1534e+01_rb,2.3058e+01_rb,2.4751e+01_rb,2.6602e+01_rb/)
+      kbo(:,32,12) = (/ &
+     &1.8534e+01_rb,1.9980e+01_rb,2.1635e+01_rb,2.3479e+01_rb,2.5477e+01_rb/)
+      kbo(:,33,12) = (/ &
+     &1.7225e+01_rb,1.8794e+01_rb,2.0572e+01_rb,2.2559e+01_rb,2.4699e+01_rb/)
+      kbo(:,34,12) = (/ &
+     &1.6174e+01_rb,1.7857e+01_rb,1.9770e+01_rb,2.1880e+01_rb,2.4147e+01_rb/)
+      kbo(:,35,12) = (/ &
+     &1.5236e+01_rb,1.7017e+01_rb,1.9034e+01_rb,2.1242e+01_rb,2.3610e+01_rb/)
+      kbo(:,36,12) = (/ &
+     &1.4322e+01_rb,1.6183e+01_rb,1.8272e+01_rb,2.0552e+01_rb,2.2984e+01_rb/)
+      kbo(:,37,12) = (/ &
+     &1.3315e+01_rb,1.5210e+01_rb,1.7331e+01_rb,1.9645e+01_rb,2.2115e+01_rb/)
+      kbo(:,38,12) = (/ &
+     &1.2427e+01_rb,1.4349e+01_rb,1.6493e+01_rb,1.8831e+01_rb,2.1326e+01_rb/)
+      kbo(:,39,12) = (/ &
+     &1.1655e+01_rb,1.3594e+01_rb,1.5756e+01_rb,1.8111e+01_rb,2.0619e+01_rb/)
+      kbo(:,40,12) = (/ &
+     &1.0800e+01_rb,1.2718e+01_rb,1.4870e+01_rb,1.7214e+01_rb,1.9711e+01_rb/)
+      kbo(:,41,12) = (/ &
+     &1.0009e+01_rb,1.1890e+01_rb,1.4023e+01_rb,1.6343e+01_rb,1.8829e+01_rb/)
+      kbo(:,42,12) = (/ &
+     &9.2911e+00_rb,1.1131e+01_rb,1.3230e+01_rb,1.5526e+01_rb,1.7990e+01_rb/)
+      kbo(:,43,12) = (/ &
+     &8.5453e+00_rb,1.0322e+01_rb,1.2366e+01_rb,1.4622e+01_rb,1.7049e+01_rb/)
+      kbo(:,44,12) = (/ &
+     &7.8249e+00_rb,9.5233e+00_rb,1.1499e+01_rb,1.3704e+01_rb,1.6085e+01_rb/)
+      kbo(:,45,12) = (/ &
+     &7.1656e+00_rb,8.7847e+00_rb,1.0682e+01_rb,1.2826e+01_rb,1.5159e+01_rb/)
+      kbo(:,46,12) = (/ &
+     &6.5222e+00_rb,8.0621e+00_rb,9.8691e+00_rb,1.1939e+01_rb,1.4215e+01_rb/)
+      kbo(:,47,12) = (/ &
+     &5.8688e+00_rb,7.3253e+00_rb,9.0292e+00_rb,1.1003e+01_rb,1.3207e+01_rb/)
+      kbo(:,48,12) = (/ &
+     &5.2686e+00_rb,6.6401e+00_rb,8.2460e+00_rb,1.0116e+01_rb,1.2240e+01_rb/)
+      kbo(:,49,12) = (/ &
+     &4.7119e+00_rb,6.0011e+00_rb,7.5181e+00_rb,9.2810e+00_rb,1.1309e+01_rb/)
+      kbo(:,50,12) = (/ &
+     &4.2243e+00_rb,5.4409e+00_rb,6.8771e+00_rb,8.5451e+00_rb,1.0476e+01_rb/)
+      kbo(:,51,12) = (/ &
+     &3.7894e+00_rb,4.9333e+00_rb,6.2908e+00_rb,7.8717e+00_rb,9.7058e+00_rb/)
+      kbo(:,52,12) = (/ &
+     &3.3915e+00_rb,4.4569e+00_rb,5.7416e+00_rb,7.2423e+00_rb,8.9799e+00_rb/)
+      kbo(:,53,12) = (/ &
+     &3.0222e+00_rb,4.0130e+00_rb,5.2245e+00_rb,6.6473e+00_rb,8.2931e+00_rb/)
+      kbo(:,54,12) = (/ &
+     &2.7077e+00_rb,3.6347e+00_rb,4.7766e+00_rb,6.1280e+00_rb,7.6968e+00_rb/)
+      kbo(:,55,12) = (/ &
+     &2.4210e+00_rb,3.2970e+00_rb,4.3697e+00_rb,5.6562e+00_rb,7.1563e+00_rb/)
+      kbo(:,56,12) = (/ &
+     &2.1307e+00_rb,2.9831e+00_rb,3.9864e+00_rb,5.2103e+00_rb,6.6404e+00_rb/)
+      kbo(:,57,12) = (/ &
+     &1.8552e+00_rb,2.6736e+00_rb,3.6295e+00_rb,4.7868e+00_rb,6.1491e+00_rb/)
+      kbo(:,58,12) = (/ &
+     &1.6050e+00_rb,2.3734e+00_rb,3.3136e+00_rb,4.4004e+00_rb,5.7055e+00_rb/)
+      kbo(:,59,12) = (/ &
+     &1.4434e+00_rb,2.1814e+00_rb,3.1118e+00_rb,4.2418e+00_rb,5.5300e+00_rb/)
+      kbo(:,13,13) = (/ &
+     &2.0665e+02_rb,2.0326e+02_rb,2.0074e+02_rb,1.9867e+02_rb,1.9680e+02_rb/)
+      kbo(:,14,13) = (/ &
+     &2.1250e+02_rb,2.0998e+02_rb,2.0827e+02_rb,2.0659e+02_rb,2.0468e+02_rb/)
+      kbo(:,15,13) = (/ &
+     &2.1695e+02_rb,2.1587e+02_rb,2.1446e+02_rb,2.1260e+02_rb,2.1056e+02_rb/)
+      kbo(:,16,13) = (/ &
+     &2.2062e+02_rb,2.1972e+02_rb,2.1811e+02_rb,2.1619e+02_rb,2.1401e+02_rb/)
+      kbo(:,17,13) = (/ &
+     &2.2121e+02_rb,2.1996e+02_rb,2.1823e+02_rb,2.1618e+02_rb,2.1385e+02_rb/)
+      kbo(:,18,13) = (/ &
+     &2.1775e+02_rb,2.1636e+02_rb,2.1445e+02_rb,2.1229e+02_rb,2.1021e+02_rb/)
+      kbo(:,19,13) = (/ &
+     &2.1064e+02_rb,2.0900e+02_rb,2.0712e+02_rb,2.0551e+02_rb,2.0407e+02_rb/)
+      kbo(:,20,13) = (/ &
+     &2.0008e+02_rb,1.9874e+02_rb,1.9769e+02_rb,1.9686e+02_rb,1.9621e+02_rb/)
+      kbo(:,21,13) = (/ &
+     &1.8747e+02_rb,1.8700e+02_rb,1.8691e+02_rb,1.8703e+02_rb,1.8742e+02_rb/)
+      kbo(:,22,13) = (/ &
+     &1.7415e+02_rb,1.7476e+02_rb,1.7572e+02_rb,1.7701e+02_rb,1.7852e+02_rb/)
+      kbo(:,23,13) = (/ &
+     &1.6113e+02_rb,1.6295e+02_rb,1.6510e+02_rb,1.6752e+02_rb,1.7009e+02_rb/)
+      kbo(:,24,13) = (/ &
+     &1.4912e+02_rb,1.5211e+02_rb,1.5536e+02_rb,1.5887e+02_rb,1.6232e+02_rb/)
+      kbo(:,25,13) = (/ &
+     &1.3846e+02_rb,1.4246e+02_rb,1.4677e+02_rb,1.5111e+02_rb,1.5523e+02_rb/)
+      kbo(:,26,13) = (/ &
+     &1.2926e+02_rb,1.3422e+02_rb,1.3933e+02_rb,1.4432e+02_rb,1.4910e+02_rb/)
+      kbo(:,27,13) = (/ &
+     &1.2138e+02_rb,1.2724e+02_rb,1.3302e+02_rb,1.3864e+02_rb,1.4402e+02_rb/)
+      kbo(:,28,13) = (/ &
+     &1.1492e+02_rb,1.2144e+02_rb,1.2785e+02_rb,1.3411e+02_rb,1.4008e+02_rb/)
+      kbo(:,29,13) = (/ &
+     &1.0978e+02_rb,1.1690e+02_rb,1.2395e+02_rb,1.3076e+02_rb,1.3730e+02_rb/)
+      kbo(:,30,13) = (/ &
+     &1.0580e+02_rb,1.1355e+02_rb,1.2118e+02_rb,1.2849e+02_rb,1.3548e+02_rb/)
+      kbo(:,31,13) = (/ &
+     &1.0304e+02_rb,1.1137e+02_rb,1.1944e+02_rb,1.2716e+02_rb,1.3451e+02_rb/)
+      kbo(:,32,13) = (/ &
+     &1.0136e+02_rb,1.1014e+02_rb,1.1859e+02_rb,1.2663e+02_rb,1.3416e+02_rb/)
+      kbo(:,33,13) = (/ &
+     &1.0056e+02_rb,1.0971e+02_rb,1.1845e+02_rb,1.2667e+02_rb,1.3431e+02_rb/)
+      kbo(:,34,13) = (/ &
+     &1.0020e+02_rb,1.0961e+02_rb,1.1855e+02_rb,1.2688e+02_rb,1.3458e+02_rb/)
+      kbo(:,35,13) = (/ &
+     &9.9483e+01_rb,1.0912e+02_rb,1.1821e+02_rb,1.2667e+02_rb,1.3443e+02_rb/)
+      kbo(:,36,13) = (/ &
+     &9.8103e+01_rb,1.0792e+02_rb,1.1721e+02_rb,1.2581e+02_rb,1.3368e+02_rb/)
+      kbo(:,37,13) = (/ &
+     &9.5455e+01_rb,1.0552e+02_rb,1.1504e+02_rb,1.2386e+02_rb,1.3193e+02_rb/)
+      kbo(:,38,13) = (/ &
+     &9.2912e+01_rb,1.0319e+02_rb,1.1292e+02_rb,1.2195e+02_rb,1.3022e+02_rb/)
+      kbo(:,39,13) = (/ &
+     &9.0538e+01_rb,1.0100e+02_rb,1.1091e+02_rb,1.2014e+02_rb,1.2859e+02_rb/)
+      kbo(:,40,13) = (/ &
+     &8.7195e+01_rb,9.7854e+01_rb,1.0799e+02_rb,1.1748e+02_rb,1.2618e+02_rb/)
+      kbo(:,41,13) = (/ &
+     &8.3785e+01_rb,9.4631e+01_rb,1.0497e+02_rb,1.1470e+02_rb,1.2366e+02_rb/)
+      kbo(:,42,13) = (/ &
+     &8.0430e+01_rb,9.1433e+01_rb,1.0197e+02_rb,1.1192e+02_rb,1.2113e+02_rb/)
+      kbo(:,43,13) = (/ &
+     &7.6477e+01_rb,8.7634e+01_rb,9.8384e+01_rb,1.0856e+02_rb,1.1808e+02_rb/)
+      kbo(:,44,13) = (/ &
+     &7.2299e+01_rb,8.3562e+01_rb,9.4524e+01_rb,1.0494e+02_rb,1.1474e+02_rb/)
+      kbo(:,45,13) = (/ &
+     &6.8166e+01_rb,7.9496e+01_rb,9.0629e+01_rb,1.0127e+02_rb,1.1130e+02_rb/)
+      kbo(:,46,13) = (/ &
+     &6.3834e+01_rb,7.5188e+01_rb,8.6450e+01_rb,9.7312e+01_rb,1.0760e+02_rb/)
+      kbo(:,47,13) = (/ &
+     &5.9081e+01_rb,7.0413e+01_rb,8.1772e+01_rb,9.2852e+01_rb,1.0340e+02_rb/)
+      kbo(:,48,13) = (/ &
+     &5.4396e+01_rb,6.5661e+01_rb,7.7060e+01_rb,8.8317e+01_rb,9.9114e+01_rb/)
+      kbo(:,49,13) = (/ &
+     &4.9801e+01_rb,6.0961e+01_rb,7.2354e+01_rb,8.3709e+01_rb,9.4725e+01_rb/)
+      kbo(:,50,13) = (/ &
+     &4.5581e+01_rb,5.6585e+01_rb,6.7933e+01_rb,7.9345e+01_rb,9.0545e+01_rb/)
+      kbo(:,51,13) = (/ &
+     &4.1581e+01_rb,5.2405e+01_rb,6.3662e+01_rb,7.5096e+01_rb,8.6425e+01_rb/)
+      kbo(:,52,13) = (/ &
+     &3.7719e+01_rb,4.8309e+01_rb,5.9448e+01_rb,7.0850e+01_rb,8.2254e+01_rb/)
+      kbo(:,53,13) = (/ &
+     &3.4012e+01_rb,4.4282e+01_rb,5.5265e+01_rb,6.6609e+01_rb,7.8050e+01_rb/)
+      kbo(:,54,13) = (/ &
+     &3.0756e+01_rb,4.0675e+01_rb,5.1476e+01_rb,6.2735e+01_rb,7.4183e+01_rb/)
+      kbo(:,55,13) = (/ &
+     &2.7771e+01_rb,3.7316e+01_rb,4.7906e+01_rb,5.9042e+01_rb,7.0461e+01_rb/)
+      kbo(:,56,13) = (/ &
+     &2.4943e+01_rb,3.4093e+01_rb,4.4398e+01_rb,5.5401e+01_rb,6.6760e+01_rb/)
+      kbo(:,57,13) = (/ &
+     &2.2280e+01_rb,3.0993e+01_rb,4.0957e+01_rb,5.1794e+01_rb,6.3073e+01_rb/)
+      kbo(:,58,13) = (/ &
+     &1.9914e+01_rb,2.8171e+01_rb,3.7788e+01_rb,4.8428e+01_rb,5.9596e+01_rb/)
+      kbo(:,59,13) = (/ &
+     &1.9003e+01_rb,2.7062e+01_rb,3.6534e+01_rb,4.7084e+01_rb,5.8201e+01_rb/)
+      kbo(:,13,14) = (/ &
+     &3.9453e+02_rb,3.9054e+02_rb,3.8556e+02_rb,3.8029e+02_rb,3.7518e+02_rb/)
+      kbo(:,14,14) = (/ &
+     &4.2588e+02_rb,4.2023e+02_rb,4.1375e+02_rb,4.0776e+02_rb,4.0199e+02_rb/)
+      kbo(:,15,14) = (/ &
+     &4.5408e+02_rb,4.4627e+02_rb,4.3917e+02_rb,4.3301e+02_rb,4.2714e+02_rb/)
+      kbo(:,16,14) = (/ &
+     &4.7789e+02_rb,4.6976e+02_rb,4.6328e+02_rb,4.5698e+02_rb,4.5114e+02_rb/)
+      kbo(:,17,14) = (/ &
+     &5.0033e+02_rb,4.9329e+02_rb,4.8659e+02_rb,4.8030e+02_rb,4.7472e+02_rb/)
+      kbo(:,18,14) = (/ &
+     &5.2160e+02_rb,5.1479e+02_rb,5.0850e+02_rb,5.0281e+02_rb,4.9755e+02_rb/)
+      kbo(:,19,14) = (/ &
+     &5.3975e+02_rb,5.3405e+02_rb,5.2880e+02_rb,5.2359e+02_rb,5.1826e+02_rb/)
+      kbo(:,20,14) = (/ &
+     &5.5471e+02_rb,5.5025e+02_rb,5.4544e+02_rb,5.4054e+02_rb,5.3559e+02_rb/)
+      kbo(:,21,14) = (/ &
+     &5.6616e+02_rb,5.6246e+02_rb,5.5854e+02_rb,5.5439e+02_rb,5.5012e+02_rb/)
+      kbo(:,22,14) = (/ &
+     &5.7373e+02_rb,5.7143e+02_rb,5.6842e+02_rb,5.6526e+02_rb,5.6165e+02_rb/)
+      kbo(:,23,14) = (/ &
+     &5.7822e+02_rb,5.7745e+02_rb,5.7602e+02_rb,5.7378e+02_rb,5.7033e+02_rb/)
+      kbo(:,24,14) = (/ &
+     &5.8038e+02_rb,5.8144e+02_rb,5.8147e+02_rb,5.7978e+02_rb,5.7697e+02_rb/)
+      kbo(:,25,14) = (/ &
+     &5.8144e+02_rb,5.8416e+02_rb,5.8500e+02_rb,5.8436e+02_rb,5.8236e+02_rb/)
+      kbo(:,26,14) = (/ &
+     &5.8189e+02_rb,5.8575e+02_rb,5.8780e+02_rb,5.8818e+02_rb,5.8686e+02_rb/)
+      kbo(:,27,14) = (/ &
+     &5.8218e+02_rb,5.8719e+02_rb,5.9038e+02_rb,5.9148e+02_rb,5.9059e+02_rb/)
+      kbo(:,28,14) = (/ &
+     &5.8262e+02_rb,5.8871e+02_rb,5.9261e+02_rb,5.9417e+02_rb,5.9365e+02_rb/)
+      kbo(:,29,14) = (/ &
+     &5.8351e+02_rb,5.9046e+02_rb,5.9468e+02_rb,5.9643e+02_rb,5.9604e+02_rb/)
+      kbo(:,30,14) = (/ &
+     &5.8500e+02_rb,5.9236e+02_rb,5.9667e+02_rb,5.9846e+02_rb,5.9808e+02_rb/)
+      kbo(:,31,14) = (/ &
+     &5.8683e+02_rb,5.9418e+02_rb,5.9850e+02_rb,6.0020e+02_rb,5.9975e+02_rb/)
+      kbo(:,32,14) = (/ &
+     &5.8889e+02_rb,5.9602e+02_rb,6.0013e+02_rb,6.0165e+02_rb,6.0111e+02_rb/)
+      kbo(:,33,14) = (/ &
+     &5.9113e+02_rb,5.9792e+02_rb,6.0167e+02_rb,6.0289e+02_rb,6.0219e+02_rb/)
+      kbo(:,34,14) = (/ &
+     &5.9309e+02_rb,5.9954e+02_rb,6.0296e+02_rb,6.0390e+02_rb,6.0309e+02_rb/)
+      kbo(:,35,14) = (/ &
+     &5.9425e+02_rb,6.0057e+02_rb,6.0391e+02_rb,6.0481e+02_rb,6.0395e+02_rb/)
+      kbo(:,36,14) = (/ &
+     &5.9453e+02_rb,6.0102e+02_rb,6.0449e+02_rb,6.0555e+02_rb,6.0478e+02_rb/)
+      kbo(:,37,14) = (/ &
+     &5.9344e+02_rb,6.0064e+02_rb,6.0466e+02_rb,6.0613e+02_rb,6.0565e+02_rb/)
+      kbo(:,38,14) = (/ &
+     &5.9210e+02_rb,6.0005e+02_rb,6.0460e+02_rb,6.0657e+02_rb,6.0636e+02_rb/)
+      kbo(:,39,14) = (/ &
+     &5.9062e+02_rb,5.9933e+02_rb,6.0439e+02_rb,6.0685e+02_rb,6.0693e+02_rb/)
+      kbo(:,40,14) = (/ &
+     &5.8781e+02_rb,5.9770e+02_rb,6.0363e+02_rb,6.0675e+02_rb,6.0742e+02_rb/)
+      kbo(:,41,14) = (/ &
+     &5.8441e+02_rb,5.9563e+02_rb,6.0254e+02_rb,6.0641e+02_rb,6.0773e+02_rb/)
+      kbo(:,42,14) = (/ &
+     &5.8066e+02_rb,5.9320e+02_rb,6.0125e+02_rb,6.0582e+02_rb,6.0784e+02_rb/)
+      kbo(:,43,14) = (/ &
+     &5.7546e+02_rb,5.8975e+02_rb,5.9921e+02_rb,6.0478e+02_rb,6.0764e+02_rb/)
+      kbo(:,44,14) = (/ &
+     &5.6919e+02_rb,5.8551e+02_rb,5.9655e+02_rb,6.0334e+02_rb,6.0709e+02_rb/)
+      kbo(:,45,14) = (/ &
+     &5.6228e+02_rb,5.8057e+02_rb,5.9328e+02_rb,6.0149e+02_rb,6.0621e+02_rb/)
+      kbo(:,46,14) = (/ &
+     &5.5416e+02_rb,5.7453e+02_rb,5.8925e+02_rb,5.9904e+02_rb,6.0487e+02_rb/)
+      kbo(:,47,14) = (/ &
+     &5.4413e+02_rb,5.6695e+02_rb,5.8396e+02_rb,5.9568e+02_rb,6.0296e+02_rb/)
+      kbo(:,48,14) = (/ &
+     &5.3289e+02_rb,5.5838e+02_rb,5.7778e+02_rb,5.9151e+02_rb,6.0055e+02_rb/)
+      kbo(:,49,14) = (/ &
+     &5.2046e+02_rb,5.4886e+02_rb,5.7056e+02_rb,5.8661e+02_rb,5.9745e+02_rb/)
+      kbo(:,50,14) = (/ &
+     &5.0763e+02_rb,5.3890e+02_rb,5.6309e+02_rb,5.8123e+02_rb,5.9389e+02_rb/)
+      kbo(:,51,14) = (/ &
+     &4.9397e+02_rb,5.2829e+02_rb,5.5490e+02_rb,5.7522e+02_rb,5.8985e+02_rb/)
+      kbo(:,52,14) = (/ &
+     &4.7917e+02_rb,5.1663e+02_rb,5.4597e+02_rb,5.6843e+02_rb,5.8514e+02_rb/)
+      kbo(:,53,14) = (/ &
+     &4.6310e+02_rb,5.0389e+02_rb,5.3606e+02_rb,5.6086e+02_rb,5.7969e+02_rb/)
+      kbo(:,54,14) = (/ &
+     &4.4738e+02_rb,4.9113e+02_rb,5.2610e+02_rb,5.5325e+02_rb,5.7401e+02_rb/)
+      kbo(:,55,14) = (/ &
+     &4.3145e+02_rb,4.7800e+02_rb,5.1576e+02_rb,5.4530e+02_rb,5.6795e+02_rb/)
+      kbo(:,56,14) = (/ &
+     &4.1442e+02_rb,4.6397e+02_rb,5.0460e+02_rb,5.3665e+02_rb,5.6135e+02_rb/)
+      kbo(:,57,14) = (/ &
+     &3.9638e+02_rb,4.4904e+02_rb,4.9255e+02_rb,5.2719e+02_rb,5.5411e+02_rb/)
+      kbo(:,58,14) = (/ &
+     &3.7836e+02_rb,4.3410e+02_rb,4.8026e+02_rb,5.1754e+02_rb,5.4672e+02_rb/)
+      kbo(:,59,14) = (/ &
+     &3.7094e+02_rb,4.2781e+02_rb,4.7507e+02_rb,5.1348e+02_rb,5.4351e+02_rb/)
+      kbo(:,13,15) = (/ &
+     &7.2633e+02_rb,7.1401e+02_rb,7.0254e+02_rb,6.9098e+02_rb,6.8020e+02_rb/)
+      kbo(:,14,15) = (/ &
+     &8.3011e+02_rb,8.1776e+02_rb,8.0585e+02_rb,7.9323e+02_rb,7.8158e+02_rb/)
+      kbo(:,15,15) = (/ &
+     &9.4371e+02_rb,9.3141e+02_rb,9.1779e+02_rb,9.0358e+02_rb,8.9021e+02_rb/)
+      kbo(:,16,15) = (/ &
+     &1.0657e+03_rb,1.0512e+03_rb,1.0343e+03_rb,1.0183e+03_rb,1.0024e+03_rb/)
+      kbo(:,17,15) = (/ &
+     &1.1900e+03_rb,1.1715e+03_rb,1.1530e+03_rb,1.1344e+03_rb,1.1149e+03_rb/)
+      kbo(:,18,15) = (/ &
+     &1.3144e+03_rb,1.2934e+03_rb,1.2719e+03_rb,1.2491e+03_rb,1.2254e+03_rb/)
+      kbo(:,19,15) = (/ &
+     &1.4395e+03_rb,1.4148e+03_rb,1.3884e+03_rb,1.3607e+03_rb,1.3337e+03_rb/)
+      kbo(:,20,15) = (/ &
+     &1.5639e+03_rb,1.5338e+03_rb,1.5021e+03_rb,1.4707e+03_rb,1.4392e+03_rb/)
+      kbo(:,21,15) = (/ &
+     &1.6839e+03_rb,1.6488e+03_rb,1.6126e+03_rb,1.5763e+03_rb,1.5389e+03_rb/)
+      kbo(:,22,15) = (/ &
+     &1.7952e+03_rb,1.7545e+03_rb,1.7135e+03_rb,1.6710e+03_rb,1.6285e+03_rb/)
+      kbo(:,23,15) = (/ &
+     &1.8976e+03_rb,1.8509e+03_rb,1.8033e+03_rb,1.7556e+03_rb,1.7089e+03_rb/)
+      kbo(:,24,15) = (/ &
+     &1.9890e+03_rb,1.9360e+03_rb,1.8826e+03_rb,1.8303e+03_rb,1.7792e+03_rb/)
+      kbo(:,25,15) = (/ &
+     &2.0674e+03_rb,2.0090e+03_rb,1.9512e+03_rb,1.8940e+03_rb,1.8389e+03_rb/)
+      kbo(:,26,15) = (/ &
+     &2.1327e+03_rb,2.0701e+03_rb,2.0075e+03_rb,1.9460e+03_rb,1.8872e+03_rb/)
+      kbo(:,27,15) = (/ &
+     &2.1871e+03_rb,2.1199e+03_rb,2.0526e+03_rb,1.9878e+03_rb,1.9258e+03_rb/)
+      kbo(:,28,15) = (/ &
+     &2.2305e+03_rb,2.1590e+03_rb,2.0884e+03_rb,2.0207e+03_rb,1.9559e+03_rb/)
+      kbo(:,29,15) = (/ &
+     &2.2640e+03_rb,2.1881e+03_rb,2.1149e+03_rb,2.0446e+03_rb,1.9773e+03_rb/)
+      kbo(:,30,15) = (/ &
+     &2.2867e+03_rb,2.2086e+03_rb,2.1332e+03_rb,2.0610e+03_rb,1.9920e+03_rb/)
+      kbo(:,31,15) = (/ &
+     &2.3021e+03_rb,2.2217e+03_rb,2.1448e+03_rb,2.0709e+03_rb,2.0000e+03_rb/)
+      kbo(:,32,15) = (/ &
+     &2.3102e+03_rb,2.2286e+03_rb,2.1502e+03_rb,2.0751e+03_rb,2.0031e+03_rb/)
+      kbo(:,33,15) = (/ &
+     &2.3126e+03_rb,2.2299e+03_rb,2.1503e+03_rb,2.0747e+03_rb,2.0018e+03_rb/)
+      kbo(:,34,15) = (/ &
+     &2.3131e+03_rb,2.2295e+03_rb,2.1494e+03_rb,2.0730e+03_rb,1.9993e+03_rb/)
+      kbo(:,35,15) = (/ &
+     &2.3181e+03_rb,2.2337e+03_rb,2.1530e+03_rb,2.0757e+03_rb,2.0015e+03_rb/)
+      kbo(:,36,15) = (/ &
+     &2.3296e+03_rb,2.2444e+03_rb,2.1625e+03_rb,2.0844e+03_rb,2.0094e+03_rb/)
+      kbo(:,37,15) = (/ &
+     &2.3524e+03_rb,2.2655e+03_rb,2.1822e+03_rb,2.1029e+03_rb,2.0270e+03_rb/)
+      kbo(:,38,15) = (/ &
+     &2.3744e+03_rb,2.2859e+03_rb,2.2015e+03_rb,2.1208e+03_rb,2.0440e+03_rb/)
+      kbo(:,39,15) = (/ &
+     &2.3947e+03_rb,2.3050e+03_rb,2.2197e+03_rb,2.1376e+03_rb,2.0600e+03_rb/)
+      kbo(:,40,15) = (/ &
+     &2.4238e+03_rb,2.3323e+03_rb,2.2455e+03_rb,2.1621e+03_rb,2.0831e+03_rb/)
+      kbo(:,41,15) = (/ &
+     &2.4535e+03_rb,2.3601e+03_rb,2.2718e+03_rb,2.1873e+03_rb,2.1067e+03_rb/)
+      kbo(:,42,15) = (/ &
+     &2.4827e+03_rb,2.3879e+03_rb,2.2978e+03_rb,2.2120e+03_rb,2.1299e+03_rb/)
+      kbo(:,43,15) = (/ &
+     &2.5170e+03_rb,2.4207e+03_rb,2.3287e+03_rb,2.2417e+03_rb,2.1580e+03_rb/)
+      kbo(:,44,15) = (/ &
+     &2.5535e+03_rb,2.4558e+03_rb,2.3619e+03_rb,2.2731e+03_rb,2.1881e+03_rb/)
+      kbo(:,45,15) = (/ &
+     &2.5895e+03_rb,2.4909e+03_rb,2.3955e+03_rb,2.3046e+03_rb,2.2183e+03_rb/)
+      kbo(:,46,15) = (/ &
+     &2.6275e+03_rb,2.5286e+03_rb,2.4314e+03_rb,2.3383e+03_rb,2.2507e+03_rb/)
+      kbo(:,47,15) = (/ &
+     &2.6692e+03_rb,2.5702e+03_rb,2.4716e+03_rb,2.3766e+03_rb,2.2868e+03_rb/)
+      kbo(:,48,15) = (/ &
+     &2.7104e+03_rb,2.6117e+03_rb,2.5124e+03_rb,2.4158e+03_rb,2.3235e+03_rb/)
+      kbo(:,49,15) = (/ &
+     &2.7515e+03_rb,2.6527e+03_rb,2.5535e+03_rb,2.4553e+03_rb,2.3608e+03_rb/)
+      kbo(:,50,15) = (/ &
+     &2.7894e+03_rb,2.6912e+03_rb,2.5919e+03_rb,2.4928e+03_rb,2.3968e+03_rb/)
+      kbo(:,51,15) = (/ &
+     &2.8258e+03_rb,2.7283e+03_rb,2.6293e+03_rb,2.5297e+03_rb,2.4319e+03_rb/)
+      kbo(:,52,15) = (/ &
+     &2.8615e+03_rb,2.7650e+03_rb,2.6661e+03_rb,2.5667e+03_rb,2.4680e+03_rb/)
+      kbo(:,53,15) = (/ &
+     &2.8958e+03_rb,2.8012e+03_rb,2.7030e+03_rb,2.6033e+03_rb,2.5041e+03_rb/)
+      kbo(:,54,15) = (/ &
+     &2.9257e+03_rb,2.8343e+03_rb,2.7368e+03_rb,2.6377e+03_rb,2.5378e+03_rb/)
+      kbo(:,55,15) = (/ &
+     &2.9533e+03_rb,2.8653e+03_rb,2.7685e+03_rb,2.6697e+03_rb,2.5700e+03_rb/)
+      kbo(:,56,15) = (/ &
+     &2.9793e+03_rb,2.8948e+03_rb,2.8002e+03_rb,2.7018e+03_rb,2.6024e+03_rb/)
+      kbo(:,57,15) = (/ &
+     &3.0042e+03_rb,2.9237e+03_rb,2.8317e+03_rb,2.7340e+03_rb,2.6347e+03_rb/)
+      kbo(:,58,15) = (/ &
+     &3.0257e+03_rb,2.9495e+03_rb,2.8610e+03_rb,2.7641e+03_rb,2.6651e+03_rb/)
+      kbo(:,59,15) = (/ &
+     &3.0338e+03_rb,2.9597e+03_rb,2.8725e+03_rb,2.7761e+03_rb,2.6773e+03_rb/)
+      kbo(:,13,16) = (/ &
+     &1.0026e+03_rb,9.7775e+02_rb,9.6058e+02_rb,9.5314e+02_rb,9.4719e+02_rb/)
+      kbo(:,14,16) = (/ &
+     &1.2035e+03_rb,1.1711e+03_rb,1.1486e+03_rb,1.1339e+03_rb,1.1211e+03_rb/)
+      kbo(:,15,16) = (/ &
+     &1.4371e+03_rb,1.3952e+03_rb,1.3661e+03_rb,1.3423e+03_rb,1.3197e+03_rb/)
+      kbo(:,16,16) = (/ &
+     &1.7031e+03_rb,1.6520e+03_rb,1.6127e+03_rb,1.5775e+03_rb,1.5442e+03_rb/)
+      kbo(:,17,16) = (/ &
+     &2.0034e+03_rb,1.9408e+03_rb,1.8881e+03_rb,1.8394e+03_rb,1.7917e+03_rb/)
+      kbo(:,18,16) = (/ &
+     &2.3372e+03_rb,2.2594e+03_rb,2.1891e+03_rb,2.1223e+03_rb,2.0585e+03_rb/)
+      kbo(:,19,16) = (/ &
+     &2.7003e+03_rb,2.6007e+03_rb,2.5092e+03_rb,2.4222e+03_rb,2.3387e+03_rb/)
+      kbo(:,20,16) = (/ &
+     &3.0827e+03_rb,2.9575e+03_rb,2.8405e+03_rb,2.7290e+03_rb,2.6233e+03_rb/)
+      kbo(:,21,16) = (/ &
+     &3.4765e+03_rb,3.3200e+03_rb,3.1728e+03_rb,3.0348e+03_rb,2.9062e+03_rb/)
+      kbo(:,22,16) = (/ &
+     &3.8557e+03_rb,3.6642e+03_rb,3.4867e+03_rb,3.3227e+03_rb,3.1685e+03_rb/)
+      kbo(:,23,16) = (/ &
+     &4.2141e+03_rb,3.9881e+03_rb,3.7808e+03_rb,3.5882e+03_rb,3.4103e+03_rb/)
+      kbo(:,24,16) = (/ &
+     &4.5433e+03_rb,4.2837e+03_rb,4.0442e+03_rb,3.8246e+03_rb,3.6242e+03_rb/)
+      kbo(:,25,16) = (/ &
+     &4.8340e+03_rb,4.5405e+03_rb,4.2717e+03_rb,4.0284e+03_rb,3.8059e+03_rb/)
+      kbo(:,26,16) = (/ &
+     &5.0756e+03_rb,4.7511e+03_rb,4.4591e+03_rb,4.1940e+03_rb,3.9524e+03_rb/)
+      kbo(:,27,16) = (/ &
+     &5.2698e+03_rb,4.9206e+03_rb,4.6082e+03_rb,4.3247e+03_rb,4.0667e+03_rb/)
+      kbo(:,28,16) = (/ &
+     &5.4203e+03_rb,5.0514e+03_rb,4.7208e+03_rb,4.4225e+03_rb,4.1519e+03_rb/)
+      kbo(:,29,16) = (/ &
+     &5.5225e+03_rb,5.1430e+03_rb,4.7990e+03_rb,4.4889e+03_rb,4.2086e+03_rb/)
+      kbo(:,30,16) = (/ &
+     &5.5968e+03_rb,5.2018e+03_rb,4.8479e+03_rb,4.5299e+03_rb,4.2431e+03_rb/)
+      kbo(:,31,16) = (/ &
+     &5.6319e+03_rb,5.2297e+03_rb,4.8692e+03_rb,4.5471e+03_rb,4.2577e+03_rb/)
+      kbo(:,32,16) = (/ &
+     &5.6393e+03_rb,5.2323e+03_rb,4.8693e+03_rb,4.5451e+03_rb,4.2544e+03_rb/)
+      kbo(:,33,16) = (/ &
+     &5.6219e+03_rb,5.2153e+03_rb,4.8522e+03_rb,4.5281e+03_rb,4.2389e+03_rb/)
+      kbo(:,34,16) = (/ &
+     &5.6014e+03_rb,5.1950e+03_rb,4.8333e+03_rb,4.5105e+03_rb,4.2225e+03_rb/)
+      kbo(:,35,16) = (/ &
+     &5.6085e+03_rb,5.1993e+03_rb,4.8360e+03_rb,4.5120e+03_rb,4.2238e+03_rb/)
+      kbo(:,36,16) = (/ &
+     &5.6508e+03_rb,5.2362e+03_rb,4.8672e+03_rb,4.5401e+03_rb,4.2477e+03_rb/)
+      kbo(:,37,16) = (/ &
+     &5.7523e+03_rb,5.3259e+03_rb,4.9464e+03_rb,4.6095e+03_rb,4.3092e+03_rb/)
+      kbo(:,38,16) = (/ &
+     &5.8536e+03_rb,5.4145e+03_rb,5.0247e+03_rb,4.6788e+03_rb,4.3703e+03_rb/)
+      kbo(:,39,16) = (/ &
+     &5.9499e+03_rb,5.4442e+03_rb,5.0495e+03_rb,4.7451e+03_rb,4.4289e+03_rb/)
+      kbo(:,40,16) = (/ &
+     &6.0943e+03_rb,5.6261e+03_rb,5.2115e+03_rb,4.8437e+03_rb,4.5174e+03_rb/)
+      kbo(:,41,16) = (/ &
+     &6.2466e+03_rb,5.7599e+03_rb,5.3292e+03_rb,4.9481e+03_rb,4.6100e+03_rb/)
+      kbo(:,42,16) = (/ &
+     &6.4016e+03_rb,5.8949e+03_rb,5.4490e+03_rb,5.0540e+03_rb,4.7039e+03_rb/)
+      kbo(:,43,16) = (/ &
+     &6.5921e+03_rb,6.0603e+03_rb,5.5952e+03_rb,5.1830e+03_rb,4.8181e+03_rb/)
+      kbo(:,44,16) = (/ &
+     &6.8054e+03_rb,6.2437e+03_rb,5.7562e+03_rb,5.3258e+03_rb,4.9439e+03_rb/)
+      kbo(:,45,16) = (/ &
+     &7.0283e+03_rb,6.4351e+03_rb,5.9235e+03_rb,5.4736e+03_rb,5.0747e+03_rb/)
+      kbo(:,46,16) = (/ &
+     &7.2775e+03_rb,6.6473e+03_rb,6.1076e+03_rb,5.6361e+03_rb,5.2188e+03_rb/)
+      kbo(:,47,16) = (/ &
+     &7.5694e+03_rb,6.8970e+03_rb,6.3223e+03_rb,5.8241e+03_rb,5.3852e+03_rb/)
+      kbo(:,48,16) = (/ &
+     &7.8805e+03_rb,7.1623e+03_rb,6.5487e+03_rb,6.0220e+03_rb,5.5600e+03_rb/)
+      kbo(:,49,16) = (/ &
+     &8.2112e+03_rb,7.4430e+03_rb,6.7899e+03_rb,6.2293e+03_rb,5.7432e+03_rb/)
+      kbo(:,50,16) = (/ &
+     &8.5417e+03_rb,7.7234e+03_rb,7.0279e+03_rb,6.4340e+03_rb,5.9223e+03_rb/)
+      kbo(:,51,16) = (/ &
+     &8.8820e+03_rb,8.0126e+03_rb,7.2736e+03_rb,6.6439e+03_rb,6.1042e+03_rb/)
+      kbo(:,52,16) = (/ &
+     &9.2420e+03_rb,8.3170e+03_rb,7.5326e+03_rb,6.8651e+03_rb,6.2940e+03_rb/)
+      kbo(:,53,16) = (/ &
+     &9.6269e+03_rb,8.6414e+03_rb,7.8081e+03_rb,7.0991e+03_rb,6.4953e+03_rb/)
+      kbo(:,54,16) = (/ &
+     &1.0002e+04_rb,8.9556e+03_rb,8.0739e+03_rb,7.3265e+03_rb,6.6894e+03_rb/)
+      kbo(:,55,16) = (/ &
+     &1.0382e+04_rb,9.2723e+03_rb,8.3431e+03_rb,7.5548e+03_rb,6.8840e+03_rb/)
+      kbo(:,56,16) = (/ &
+     &1.0780e+04_rb,9.6091e+03_rb,8.6265e+03_rb,7.7944e+03_rb,7.0899e+03_rb/)
+      kbo(:,57,16) = (/ &
+     &1.1201e+04_rb,9.9648e+03_rb,8.9241e+03_rb,8.0480e+03_rb,7.3039e+03_rb/)
+      kbo(:,58,16) = (/ &
+     &1.1621e+04_rb,1.0321e+04_rb,9.2223e+03_rb,8.3005e+03_rb,7.5182e+03_rb/)
+      kbo(:,59,16) = (/ &
+     &1.1796e+04_rb,1.0468e+04_rb,9.3476e+03_rb,8.4058e+03_rb,7.6078e+03_rb/)
+
+!     The array KAO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level below 100~ mb.   The first index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index 
+!     runs over the g-channel (1 to 16).
+
+      kao_mo2(:, 1) = (/ &
+     & 2.31723e-06_rb, 2.28697e-06_rb, 2.25710e-06_rb, 2.22762e-06_rb, 2.19852e-06_rb, &
+     & 2.16981e-06_rb, 2.14147e-06_rb, 2.11350e-06_rb, 2.08590e-06_rb, 2.05865e-06_rb, &
+     & 2.03176e-06_rb, 2.00523e-06_rb, 1.97904e-06_rb, 1.95319e-06_rb, 1.92768e-06_rb, &
+     & 1.90250e-06_rb, 1.87765e-06_rb, 1.85313e-06_rb, 1.82893e-06_rb/)
+      kao_mo2(:, 2) = (/ &
+     & 1.81980e-06_rb, 1.81352e-06_rb, 1.80726e-06_rb, 1.80101e-06_rb, 1.79479e-06_rb, &
+     & 1.78860e-06_rb, 1.78242e-06_rb, 1.77626e-06_rb, 1.77013e-06_rb, 1.76402e-06_rb, &
+     & 1.75792e-06_rb, 1.75185e-06_rb, 1.74580e-06_rb, 1.73977e-06_rb, 1.73377e-06_rb, &
+     & 1.72778e-06_rb, 1.72181e-06_rb, 1.71587e-06_rb, 1.70994e-06_rb/)
+      kao_mo2(:, 3) = (/ &
+     & 2.26922e-06_rb, 2.25413e-06_rb, 2.23914e-06_rb, 2.22425e-06_rb, 2.20945e-06_rb, &
+     & 2.19476e-06_rb, 2.18016e-06_rb, 2.16566e-06_rb, 2.15126e-06_rb, 2.13695e-06_rb, &
+     & 2.12274e-06_rb, 2.10862e-06_rb, 2.09459e-06_rb, 2.08066e-06_rb, 2.06683e-06_rb, &
+     & 2.05308e-06_rb, 2.03942e-06_rb, 2.02586e-06_rb, 2.01239e-06_rb/)
+      kao_mo2(:, 4) = (/ &
+     & 2.15555e-06_rb, 2.14539e-06_rb, 2.13527e-06_rb, 2.12520e-06_rb, 2.11517e-06_rb, &
+     & 2.10520e-06_rb, 2.09527e-06_rb, 2.08538e-06_rb, 2.07555e-06_rb, 2.06576e-06_rb, &
+     & 2.05601e-06_rb, 2.04631e-06_rb, 2.03666e-06_rb, 2.02706e-06_rb, 2.01749e-06_rb, &
+     & 2.00798e-06_rb, 1.99851e-06_rb, 1.98908e-06_rb, 1.97970e-06_rb/)
+      kao_mo2(:, 5) = (/ &
+     & 2.05821e-06_rb, 2.04914e-06_rb, 2.04011e-06_rb, 2.03111e-06_rb, 2.02216e-06_rb, &
+     & 2.01324e-06_rb, 2.00437e-06_rb, 1.99553e-06_rb, 1.98673e-06_rb, 1.97798e-06_rb, &
+     & 1.96926e-06_rb, 1.96057e-06_rb, 1.95193e-06_rb, 1.94333e-06_rb, 1.93476e-06_rb, &
+     & 1.92623e-06_rb, 1.91774e-06_rb, 1.90928e-06_rb, 1.90087e-06_rb/)
+      kao_mo2(:, 6) = (/ &
+     & 2.20148e-06_rb, 2.18998e-06_rb, 2.17854e-06_rb, 2.16717e-06_rb, 2.15585e-06_rb, &
+     & 2.14459e-06_rb, 2.13339e-06_rb, 2.12225e-06_rb, 2.11117e-06_rb, 2.10014e-06_rb, &
+     & 2.08918e-06_rb, 2.07827e-06_rb, 2.06741e-06_rb, 2.05662e-06_rb, 2.04588e-06_rb, &
+     & 2.03519e-06_rb, 2.02457e-06_rb, 2.01399e-06_rb, 2.00348e-06_rb/)
+      kao_mo2(:, 7) = (/ &
+     & 2.28960e-06_rb, 2.27651e-06_rb, 2.26349e-06_rb, 2.25054e-06_rb, 2.23767e-06_rb, &
+     & 2.22487e-06_rb, 2.21215e-06_rb, 2.19950e-06_rb, 2.18692e-06_rb, 2.17441e-06_rb, &
+     & 2.16198e-06_rb, 2.14961e-06_rb, 2.13732e-06_rb, 2.12509e-06_rb, 2.11294e-06_rb, &
+     & 2.10085e-06_rb, 2.08884e-06_rb, 2.07689e-06_rb, 2.06501e-06_rb/)
+      kao_mo2(:, 8) = (/ &
+     & 2.28564e-06_rb, 2.27363e-06_rb, 2.26168e-06_rb, 2.24980e-06_rb, 2.23798e-06_rb, &
+     & 2.22622e-06_rb, 2.21452e-06_rb, 2.20288e-06_rb, 2.19131e-06_rb, 2.17980e-06_rb, &
+     & 2.16834e-06_rb, 2.15695e-06_rb, 2.14562e-06_rb, 2.13434e-06_rb, 2.12313e-06_rb, &
+     & 2.11197e-06_rb, 2.10087e-06_rb, 2.08984e-06_rb, 2.07886e-06_rb/)
+      kao_mo2(:, 9) = (/ &
+     & 2.28505e-06_rb, 2.27395e-06_rb, 2.26291e-06_rb, 2.25192e-06_rb, 2.24099e-06_rb, &
+     & 2.23011e-06_rb, 2.21928e-06_rb, 2.20850e-06_rb, 2.19778e-06_rb, 2.18711e-06_rb, &
+     & 2.17649e-06_rb, 2.16592e-06_rb, 2.15540e-06_rb, 2.14494e-06_rb, 2.13452e-06_rb, &
+     & 2.12416e-06_rb, 2.11385e-06_rb, 2.10358e-06_rb, 2.09337e-06_rb/)
+      kao_mo2(:,10) = (/ &
+     & 2.25915e-06_rb, 2.24938e-06_rb, 2.23965e-06_rb, 2.22997e-06_rb, 2.22032e-06_rb, &
+     & 2.21072e-06_rb, 2.20116e-06_rb, 2.19164e-06_rb, 2.18216e-06_rb, 2.17272e-06_rb, &
+     & 2.16333e-06_rb, 2.15397e-06_rb, 2.14465e-06_rb, 2.13538e-06_rb, 2.12614e-06_rb, &
+     & 2.11695e-06_rb, 2.10779e-06_rb, 2.09868e-06_rb, 2.08960e-06_rb/)
+      kao_mo2(:,11) = (/ &
+     & 2.52025e-06_rb, 2.50423e-06_rb, 2.48831e-06_rb, 2.47249e-06_rb, 2.45677e-06_rb, &
+     & 2.44115e-06_rb, 2.42563e-06_rb, 2.41021e-06_rb, 2.39489e-06_rb, 2.37967e-06_rb, &
+     & 2.36454e-06_rb, 2.34951e-06_rb, 2.33457e-06_rb, 2.31973e-06_rb, 2.30498e-06_rb, &
+     & 2.29033e-06_rb, 2.27577e-06_rb, 2.26130e-06_rb, 2.24692e-06_rb/)
+      kao_mo2(:,12) = (/ &
+     & 2.52634e-06_rb, 2.51180e-06_rb, 2.49735e-06_rb, 2.48299e-06_rb, 2.46871e-06_rb, &
+     & 2.45451e-06_rb, 2.44039e-06_rb, 2.42635e-06_rb, 2.41239e-06_rb, 2.39851e-06_rb, &
+     & 2.38472e-06_rb, 2.37100e-06_rb, 2.35736e-06_rb, 2.34380e-06_rb, 2.33032e-06_rb, &
+     & 2.31691e-06_rb, 2.30358e-06_rb, 2.29033e-06_rb, 2.27716e-06_rb/)
+      kao_mo2(:,13) = (/ &
+     & 2.66614e-06_rb, 2.64897e-06_rb, 2.63191e-06_rb, 2.61496e-06_rb, 2.59812e-06_rb, &
+     & 2.58138e-06_rb, 2.56476e-06_rb, 2.54824e-06_rb, 2.53183e-06_rb, 2.51552e-06_rb, &
+     & 2.49932e-06_rb, 2.48322e-06_rb, 2.46723e-06_rb, 2.45134e-06_rb, 2.43555e-06_rb, &
+     & 2.41987e-06_rb, 2.40428e-06_rb, 2.38880e-06_rb, 2.37341e-06_rb/)
+      kao_mo2(:,14) = (/ &
+     & 2.96755e-06_rb, 2.94803e-06_rb, 2.92864e-06_rb, 2.90937e-06_rb, 2.89023e-06_rb, &
+     & 2.87122e-06_rb, 2.85233e-06_rb, 2.83357e-06_rb, 2.81493e-06_rb, 2.79641e-06_rb, &
+     & 2.77802e-06_rb, 2.75974e-06_rb, 2.74159e-06_rb, 2.72355e-06_rb, 2.70563e-06_rb, &
+     & 2.68784e-06_rb, 2.67015e-06_rb, 2.65259e-06_rb, 2.63514e-06_rb/)
+      kao_mo2(:,15) = (/ &
+     & 1.30668e-06_rb, 1.31378e-06_rb, 1.32091e-06_rb, 1.32808e-06_rb, 1.33530e-06_rb, &
+     & 1.34255e-06_rb, 1.34984e-06_rb, 1.35717e-06_rb, 1.36454e-06_rb, 1.37195e-06_rb, &
+     & 1.37941e-06_rb, 1.38690e-06_rb, 1.39443e-06_rb, 1.40200e-06_rb, 1.40962e-06_rb, &
+     & 1.41727e-06_rb, 1.42497e-06_rb, 1.43271e-06_rb, 1.44049e-06_rb/)
+      kao_mo2(:,16) = (/ &
+     & 5.99001e-07_rb, 6.16844e-07_rb, 6.35219e-07_rb, 6.54141e-07_rb, 6.73626e-07_rb, &
+     & 6.93692e-07_rb, 7.14356e-07_rb, 7.35635e-07_rb, 7.57548e-07_rb, 7.80114e-07_rb, &
+     & 8.03352e-07_rb, 8.27282e-07_rb, 8.51925e-07_rb, 8.77302e-07_rb, 9.03435e-07_rb, &
+     & 9.30347e-07_rb, 9.58060e-07_rb, 9.86599e-07_rb, 1.01599e-06_rb/)
+
+!     The array KBO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level above 100~ mb.   The first index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index 
+!     runs over the g-channel (1 to 16).
+
+      kbo_mo2(:, 1) = (/ &
+     & 4.97626e-07_rb, 5.05955e-07_rb, 5.14424e-07_rb, 5.23034e-07_rb, 5.31789e-07_rb, &
+     & 5.40690e-07_rb, 5.49739e-07_rb, 5.58941e-07_rb, 5.68296e-07_rb, 5.77808e-07_rb, &
+     & 5.87479e-07_rb, 5.97312e-07_rb, 6.07310e-07_rb, 6.17475e-07_rb, 6.27810e-07_rb, &
+     & 6.38318e-07_rb, 6.49002e-07_rb, 6.59865e-07_rb, 6.70910e-07_rb/)
+      kbo_mo2(:, 2) = (/ &
+     & 3.10232e-06_rb, 3.06339e-06_rb, 3.02496e-06_rb, 2.98700e-06_rb, 2.94952e-06_rb, &
+     & 2.91252e-06_rb, 2.87597e-06_rb, 2.83989e-06_rb, 2.80426e-06_rb, 2.76907e-06_rb, &
+     & 2.73433e-06_rb, 2.70002e-06_rb, 2.66614e-06_rb, 2.63269e-06_rb, 2.59966e-06_rb, &
+     & 2.56704e-06_rb, 2.53483e-06_rb, 2.50303e-06_rb, 2.47162e-06_rb/)
+      kbo_mo2(:, 3) = (/ &
+     & 2.91635e-06_rb, 2.88637e-06_rb, 2.85669e-06_rb, 2.82733e-06_rb, 2.79826e-06_rb, &
+     & 2.76949e-06_rb, 2.74102e-06_rb, 2.71284e-06_rb, 2.68495e-06_rb, 2.65735e-06_rb, &
+     & 2.63003e-06_rb, 2.60299e-06_rb, 2.57623e-06_rb, 2.54975e-06_rb, 2.52353e-06_rb, &
+     & 2.49759e-06_rb, 2.47191e-06_rb, 2.44650e-06_rb, 2.42135e-06_rb/)
+      kbo_mo2(:, 4) = (/ &
+     & 3.15584e-06_rb, 3.11986e-06_rb, 3.08430e-06_rb, 3.04914e-06_rb, 3.01438e-06_rb, &
+     & 2.98002e-06_rb, 2.94605e-06_rb, 2.91247e-06_rb, 2.87927e-06_rb, 2.84645e-06_rb, &
+     & 2.81400e-06_rb, 2.78192e-06_rb, 2.75021e-06_rb, 2.71886e-06_rb, 2.68787e-06_rb, &
+     & 2.65723e-06_rb, 2.62694e-06_rb, 2.59699e-06_rb, 2.56739e-06_rb/)
+      kbo_mo2(:, 5) = (/ &
+     & 2.52067e-06_rb, 2.50127e-06_rb, 2.48202e-06_rb, 2.46291e-06_rb, 2.44396e-06_rb, &
+     & 2.42515e-06_rb, 2.40648e-06_rb, 2.38796e-06_rb, 2.36958e-06_rb, 2.35134e-06_rb, &
+     & 2.33324e-06_rb, 2.31529e-06_rb, 2.29747e-06_rb, 2.27978e-06_rb, 2.26224e-06_rb, &
+     & 2.24482e-06_rb, 2.22755e-06_rb, 2.21040e-06_rb, 2.19339e-06_rb/)
+      kbo_mo2(:, 6) = (/ &
+     & 2.37304e-06_rb, 2.36340e-06_rb, 2.35380e-06_rb, 2.34423e-06_rb, 2.33471e-06_rb, &
+     & 2.32522e-06_rb, 2.31578e-06_rb, 2.30637e-06_rb, 2.29700e-06_rb, 2.28766e-06_rb, &
+     & 2.27837e-06_rb, 2.26911e-06_rb, 2.25989e-06_rb, 2.25071e-06_rb, 2.24157e-06_rb, &
+     & 2.23246e-06_rb, 2.22339e-06_rb, 2.21436e-06_rb, 2.20536e-06_rb/)
+      kbo_mo2(:, 7) = (/ &
+     & 2.56366e-06_rb, 2.56395e-06_rb, 2.56424e-06_rb, 2.56453e-06_rb, 2.56482e-06_rb, &
+     & 2.56510e-06_rb, 2.56539e-06_rb, 2.56568e-06_rb, 2.56597e-06_rb, 2.56625e-06_rb, &
+     & 2.56654e-06_rb, 2.56683e-06_rb, 2.56712e-06_rb, 2.56741e-06_rb, 2.56769e-06_rb, &
+     & 2.56798e-06_rb, 2.56827e-06_rb, 2.56856e-06_rb, 2.56885e-06_rb/)
+      kbo_mo2(:, 8) = (/ &
+     & 2.54502e-06_rb, 2.55393e-06_rb, 2.56287e-06_rb, 2.57185e-06_rb, 2.58085e-06_rb, &
+     & 2.58989e-06_rb, 2.59896e-06_rb, 2.60806e-06_rb, 2.61719e-06_rb, 2.62636e-06_rb, &
+     & 2.63555e-06_rb, 2.64478e-06_rb, 2.65404e-06_rb, 2.66334e-06_rb, 2.67266e-06_rb, &
+     & 2.68202e-06_rb, 2.69141e-06_rb, 2.70084e-06_rb, 2.71030e-06_rb/)
+      kbo_mo2(:, 9) = (/ &
+     & 1.84106e-06_rb, 1.83922e-06_rb, 1.83737e-06_rb, 1.83553e-06_rb, 1.83369e-06_rb, &
+     & 1.83186e-06_rb, 1.83002e-06_rb, 1.82819e-06_rb, 1.82636e-06_rb, 1.82453e-06_rb, &
+     & 1.82270e-06_rb, 1.82087e-06_rb, 1.81905e-06_rb, 1.81723e-06_rb, 1.81541e-06_rb, &
+     & 1.81359e-06_rb, 1.81177e-06_rb, 1.80996e-06_rb, 1.80814e-06_rb/)
+      kbo_mo2(:,10) = (/ &
+     & 1.83886e-06_rb, 1.83632e-06_rb, 1.83379e-06_rb, 1.83126e-06_rb, 1.82874e-06_rb, &
+     & 1.82622e-06_rb, 1.82370e-06_rb, 1.82119e-06_rb, 1.81868e-06_rb, 1.81617e-06_rb, &
+     & 1.81367e-06_rb, 1.81117e-06_rb, 1.80867e-06_rb, 1.80618e-06_rb, 1.80369e-06_rb, &
+     & 1.80120e-06_rb, 1.79872e-06_rb, 1.79624e-06_rb, 1.79377e-06_rb/)
+      kbo_mo2(:,11) = (/ &
+     & 2.30390e-06_rb, 2.30269e-06_rb, 2.30148e-06_rb, 2.30028e-06_rb, 2.29907e-06_rb, &
+     & 2.29787e-06_rb, 2.29667e-06_rb, 2.29546e-06_rb, 2.29426e-06_rb, 2.29306e-06_rb, &
+     & 2.29186e-06_rb, 2.29066e-06_rb, 2.28946e-06_rb, 2.28826e-06_rb, 2.28706e-06_rb, &
+     & 2.28586e-06_rb, 2.28466e-06_rb, 2.28347e-06_rb, 2.28227e-06_rb/)
+      kbo_mo2(:,12) = (/ &
+     & 2.38201e-06_rb, 2.36536e-06_rb, 2.34882e-06_rb, 2.33240e-06_rb, 2.31609e-06_rb, &
+     & 2.29990e-06_rb, 2.28382e-06_rb, 2.26785e-06_rb, 2.25199e-06_rb, 2.23625e-06_rb, &
+     & 2.22061e-06_rb, 2.20508e-06_rb, 2.18967e-06_rb, 2.17436e-06_rb, 2.15915e-06_rb, &
+     & 2.14406e-06_rb, 2.12907e-06_rb, 2.11418e-06_rb, 2.09940e-06_rb/)
+      kbo_mo2(:,13) = (/ &
+     & 2.33326e-06_rb, 2.32549e-06_rb, 2.31775e-06_rb, 2.31003e-06_rb, 2.30234e-06_rb, &
+     & 2.29467e-06_rb, 2.28703e-06_rb, 2.27941e-06_rb, 2.27182e-06_rb, 2.26426e-06_rb, &
+     & 2.25672e-06_rb, 2.24920e-06_rb, 2.24171e-06_rb, 2.23424e-06_rb, 2.22680e-06_rb, &
+     & 2.21939e-06_rb, 2.21200e-06_rb, 2.20463e-06_rb, 2.19729e-06_rb/)
+      kbo_mo2(:,14) = (/ &
+     & 2.75292e-06_rb, 2.75210e-06_rb, 2.75129e-06_rb, 2.75047e-06_rb, 2.74965e-06_rb, &
+     & 2.74883e-06_rb, 2.74801e-06_rb, 2.74720e-06_rb, 2.74638e-06_rb, 2.74556e-06_rb, &
+     & 2.74475e-06_rb, 2.74393e-06_rb, 2.74311e-06_rb, 2.74230e-06_rb, 2.74148e-06_rb, &
+     & 2.74067e-06_rb, 2.73985e-06_rb, 2.73904e-06_rb, 2.73822e-06_rb/)
+      kbo_mo2(:,15) = (/ &
+     & 2.55262e-06_rb, 2.53364e-06_rb, 2.51480e-06_rb, 2.49611e-06_rb, 2.47755e-06_rb, &
+     & 2.45913e-06_rb, 2.44084e-06_rb, 2.42269e-06_rb, 2.40468e-06_rb, 2.38680e-06_rb, &
+     & 2.36906e-06_rb, 2.35144e-06_rb, 2.33396e-06_rb, 2.31660e-06_rb, 2.29938e-06_rb, &
+     & 2.28228e-06_rb, 2.26531e-06_rb, 2.24847e-06_rb, 2.23175e-06_rb/)
+      kbo_mo2(:,16) = (/ &
+     & 3.11382e-06_rb, 3.08751e-06_rb, 3.06141e-06_rb, 3.03554e-06_rb, 3.00989e-06_rb, &
+     & 2.98445e-06_rb, 2.95923e-06_rb, 2.93422e-06_rb, 2.90942e-06_rb, 2.88483e-06_rb, &
+     & 2.86045e-06_rb, 2.83628e-06_rb, 2.81231e-06_rb, 2.78854e-06_rb, 2.76498e-06_rb, &
+     & 2.74161e-06_rb, 2.71844e-06_rb, 2.69547e-06_rb, 2.67269e-06_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &2.8858e-02_rb,3.6879e-02_rb,4.0746e-02_rb,4.2561e-02_rb,4.2740e-02_rb,4.2707e-02_rb, &
+     &4.4109e-02_rb,4.4540e-02_rb,4.5206e-02_rb,4.4679e-02_rb,4.5034e-02_rb,4.5364e-02_rb, &
+     &4.6790e-02_rb,4.7857e-02_rb,4.8328e-02_rb,4.8084e-02_rb/)
+      forrefo(2,:) = (/ &
+     &2.7887e-02_rb,3.7376e-02_rb,4.0980e-02_rb,4.2986e-02_rb,4.3054e-02_rb,4.2975e-02_rb, &
+     &4.3754e-02_rb,4.4352e-02_rb,4.4723e-02_rb,4.6236e-02_rb,4.5273e-02_rb,4.5360e-02_rb, &
+     &4.5332e-02_rb,4.7587e-02_rb,4.7035e-02_rb,5.0267e-02_rb/)
+      forrefo(3,:) = (/ &
+     &2.5846e-02_rb,3.6753e-02_rb,4.2334e-02_rb,4.3806e-02_rb,4.3848e-02_rb,4.3215e-02_rb, &
+     &4.3838e-02_rb,4.4278e-02_rb,4.4658e-02_rb,4.5403e-02_rb,4.5255e-02_rb,4.6347e-02_rb, &
+     &4.4722e-02_rb,4.6612e-02_rb,4.6836e-02_rb,4.8720e-02_rb/)
+      forrefo(4,:) = (/ &
+     &2.8955e-02_rb,3.7608e-02_rb,4.1989e-02_rb,4.4919e-02_rb,4.2803e-02_rb,4.2842e-02_rb, &
+     &4.2632e-02_rb,4.1056e-02_rb,4.0086e-02_rb,4.1401e-02_rb,4.2746e-02_rb,4.2142e-02_rb, &
+     &4.1871e-02_rb,4.3917e-02_rb,4.5462e-02_rb,4.8359e-02_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 5.96496e-01_rb, 5.49171e-01_rb, 5.05600e-01_rb, 4.65486e-01_rb, 4.28555e-01_rb, &
+     & 3.94554e-01_rb, 3.63250e-01_rb, 3.34430e-01_rb, 3.07897e-01_rb, 2.83468e-01_rb/)
+      selfrefo(:, 2) = (/ &
+     & 7.46455e-01_rb, 6.82459e-01_rb, 6.23950e-01_rb, 5.70457e-01_rb, 5.21550e-01_rb, &
+     & 4.76836e-01_rb, 4.35956e-01_rb, 3.98580e-01_rb, 3.64409e-01_rb, 3.33167e-01_rb/)
+      selfrefo(:, 3) = (/ &
+     & 7.86805e-01_rb, 7.21186e-01_rb, 6.61040e-01_rb, 6.05910e-01_rb, 5.55378e-01_rb, &
+     & 5.09059e-01_rb, 4.66605e-01_rb, 4.27690e-01_rb, 3.92021e-01_rb, 3.59327e-01_rb/)
+      selfrefo(:, 4) = (/ &
+     & 8.11740e-01_rb, 7.44359e-01_rb, 6.82570e-01_rb, 6.25910e-01_rb, 5.73954e-01_rb, &
+     & 5.26311e-01_rb, 4.82622e-01_rb, 4.42560e-01_rb, 4.05823e-01_rb, 3.72136e-01_rb/)
+      selfrefo(:, 5) = (/ &
+     & 8.14870e-01_rb, 7.47200e-01_rb, 6.85150e-01_rb, 6.28253e-01_rb, 5.76081e-01_rb, &
+     & 5.28241e-01_rb, 4.84374e-01_rb, 4.44150e-01_rb, 4.07266e-01_rb, 3.73446e-01_rb/)
+      selfrefo(:, 6) = (/ &
+     & 8.10104e-01_rb, 7.43259e-01_rb, 6.81930e-01_rb, 6.25661e-01_rb, 5.74035e-01_rb, &
+     & 5.26669e-01_rb, 4.83212e-01_rb, 4.43340e-01_rb, 4.06758e-01_rb, 3.73195e-01_rb/)
+      selfrefo(:, 7) = (/ &
+     & 8.13119e-01_rb, 7.48127e-01_rb, 6.88330e-01_rb, 6.33312e-01_rb, 5.82692e-01_rb, &
+     & 5.36118e-01_rb, 4.93267e-01_rb, 4.53840e-01_rb, 4.17565e-01_rb, 3.84189e-01_rb/)
+      selfrefo(:, 8) = (/ &
+     & 8.26137e-01_rb, 7.58984e-01_rb, 6.97290e-01_rb, 6.40611e-01_rb, 5.88539e-01_rb, &
+     & 5.40699e-01_rb, 4.96748e-01_rb, 4.56370e-01_rb, 4.19274e-01_rb, 3.85193e-01_rb/)
+      selfrefo(:, 9) = (/ &
+     & 8.30566e-01_rb, 7.63984e-01_rb, 7.02740e-01_rb, 6.46405e-01_rb, 5.94587e-01_rb, &
+     & 5.46922e-01_rb, 5.03079e-01_rb, 4.62750e-01_rb, 4.25654e-01_rb, 3.91532e-01_rb/)
+      selfrefo(:,10) = (/ &
+     & 8.67471e-01_rb, 7.91575e-01_rb, 7.22320e-01_rb, 6.59124e-01_rb, 6.01457e-01_rb, &
+     & 5.48835e-01_rb, 5.00817e-01_rb, 4.57000e-01_rb, 4.17017e-01_rb, 3.80532e-01_rb/)
+      selfrefo(:,11) = (/ &
+     & 8.51029e-01_rb, 7.79373e-01_rb, 7.13750e-01_rb, 6.53652e-01_rb, 5.98615e-01_rb, &
+     & 5.48212e-01_rb, 5.02053e-01_rb, 4.59780e-01_rb, 4.21067e-01_rb, 3.85613e-01_rb/)
+      selfrefo(:,12) = (/ &
+     & 8.36772e-01_rb, 7.68751e-01_rb, 7.06260e-01_rb, 6.48848e-01_rb, 5.96104e-01_rb, &
+     & 5.47647e-01_rb, 5.03129e-01_rb, 4.62230e-01_rb, 4.24655e-01_rb, 3.90136e-01_rb/)
+      selfrefo(:,13) = (/ &
+     & 8.36551e-01_rb, 7.71089e-01_rb, 7.10750e-01_rb, 6.55133e-01_rb, 6.03867e-01_rb, &
+     & 5.56614e-01_rb, 5.13058e-01_rb, 4.72910e-01_rb, 4.35904e-01_rb, 4.01794e-01_rb/)
+      selfrefo(:,14) = (/ &
+     & 8.84307e-01_rb, 8.11175e-01_rb, 7.44090e-01_rb, 6.82553e-01_rb, 6.26106e-01_rb, &
+     & 5.74326e-01_rb, 5.26829e-01_rb, 4.83260e-01_rb, 4.43294e-01_rb, 4.06633e-01_rb/)
+      selfrefo(:,15) = (/ &
+     & 8.90356e-01_rb, 8.19830e-01_rb, 7.54890e-01_rb, 6.95094e-01_rb, 6.40035e-01_rb, &
+     & 5.89337e-01_rb, 5.42655e-01_rb, 4.99670e-01_rb, 4.60090e-01_rb, 4.23646e-01_rb/)
+      selfrefo(:,16) = (/ &
+     & 9.67549e-01_rb, 8.79393e-01_rb, 7.99270e-01_rb, 7.26447e-01_rb, 6.60259e-01_rb, &
+     & 6.00101e-01_rb, 5.45425e-01_rb, 4.95730e-01_rb, 4.50563e-01_rb, 4.09511e-01_rb/)
+
+      end subroutine lw_kgb11
+
+! **************************************************************************
+      subroutine lw_kgb12
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg12, only : fracrefao, kao, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P = 174.1640 mbar, T= 215.78 K
+      fracrefao(:, 1) = (/ &
+     &  1.3984e-01_rb,1.6809e-01_rb,1.8072e-01_rb,1.5400e-01_rb,1.2613e-01_rb,9.6959e-02_rb, &
+     &  5.9713e-02_rb,3.8631e-02_rb,2.6937e-02_rb,3.1711e-03_rb,2.3458e-03_rb,1.4653e-03_rb, &
+     &  1.0567e-03_rb,6.6504e-04_rb,2.4957e-04_rb,3.5172e-05_rb/)
+      fracrefao(:, 2) = (/ &
+     &  1.2745e-01_rb,1.6107e-01_rb,1.6568e-01_rb,1.5436e-01_rb,1.3183e-01_rb,1.0166e-01_rb, &
+     &  6.4506e-02_rb,4.7756e-02_rb,3.4472e-02_rb,3.7189e-03_rb,2.9349e-03_rb,2.1469e-03_rb, &
+     &  1.3746e-03_rb,7.1691e-04_rb,2.8057e-04_rb,5.6242e-05_rb/)
+      fracrefao(:, 3) = (/ &
+     &  1.2181e-01_rb,1.5404e-01_rb,1.6540e-01_rb,1.5255e-01_rb,1.3736e-01_rb,9.8856e-02_rb, &
+     &  6.8927e-02_rb,5.1385e-02_rb,3.7046e-02_rb,4.0302e-03_rb,3.0949e-03_rb,2.3772e-03_rb, &
+     &  1.6538e-03_rb,8.9641e-04_rb,4.6991e-04_rb,1.1251e-04_rb/)
+      fracrefao(:, 4) = (/ &
+     &  1.1794e-01_rb,1.4864e-01_rb,1.6316e-01_rb,1.5341e-01_rb,1.3986e-01_rb,9.6656e-02_rb, &
+     &  7.2478e-02_rb,5.5061e-02_rb,3.8886e-02_rb,4.3398e-03_rb,3.3576e-03_rb,2.4891e-03_rb, &
+     &  1.7674e-03_rb,1.0764e-03_rb,7.7689e-04_rb,1.1251e-04_rb/)
+      fracrefao(:, 5) = (/ &
+     &  1.1635e-01_rb,1.4342e-01_rb,1.5924e-01_rb,1.5670e-01_rb,1.3740e-01_rb,9.7087e-02_rb, &
+     &  7.6250e-02_rb,5.7802e-02_rb,4.0808e-02_rb,4.4113e-03_rb,3.6035e-03_rb,2.6269e-03_rb, &
+     &  1.7586e-03_rb,1.6498e-03_rb,7.7689e-04_rb,1.1251e-04_rb/)
+      fracrefao(:, 6) = (/ &
+     &  1.1497e-01_rb,1.3751e-01_rb,1.5587e-01_rb,1.5904e-01_rb,1.3140e-01_rb,1.0159e-01_rb, &
+     &  7.9729e-02_rb,6.1475e-02_rb,4.2382e-02_rb,4.5291e-03_rb,3.8161e-03_rb,2.7683e-03_rb, &
+     &  1.9899e-03_rb,2.0395e-03_rb,7.7720e-04_rb,1.1251e-04_rb/)
+      fracrefao(:, 7) = (/ &
+     &  1.1331e-01_rb,1.3015e-01_rb,1.5574e-01_rb,1.5489e-01_rb,1.2697e-01_rb,1.0746e-01_rb, &
+     &  8.4777e-02_rb,6.5145e-02_rb,4.4293e-02_rb,4.7426e-03_rb,3.8383e-03_rb,2.9065e-03_rb, &
+     &  2.8430e-03_rb,2.0401e-03_rb,7.7689e-04_rb,1.1251e-04_rb/)
+      fracrefao(:, 8) = (/ &
+     &  1.0993e-01_rb,1.2320e-01_rb,1.4893e-01_rb,1.4573e-01_rb,1.3174e-01_rb,1.1149e-01_rb, &
+     &  9.3326e-02_rb,6.9942e-02_rb,4.6762e-02_rb,4.9309e-03_rb,3.8583e-03_rb,4.1889e-03_rb, &
+     &  3.0415e-03_rb,2.0406e-03_rb,7.7720e-04_rb,1.1251e-04_rb/)
+      fracrefao(:, 9) = (/ &
+     &  1.2028e-01_rb,1.2091e-01_rb,1.3098e-01_rb,1.3442e-01_rb,1.3574e-01_rb,1.1739e-01_rb, &
+     &  9.5343e-02_rb,7.0224e-02_rb,5.3456e-02_rb,6.0206e-03_rb,5.0758e-03_rb,4.1906e-03_rb, &
+     &  3.0431e-03_rb,2.0400e-03_rb,7.7689e-04_rb,1.1251e-04_rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1, 1) = (/ &
+     &1.7511e-07_rb,6.8135e-05_rb,1.1804e-04_rb,1.6931e-04_rb,2.2006e-04_rb,2.8275e-04_rb, &
+     &3.5722e-04_rb,4.9530e-04_rb,3.5719e-04_rb/)
+      kao(:, 2, 1, 1) = (/ &
+     &1.9831e-07_rb,7.7459e-05_rb,1.3459e-04_rb,1.9095e-04_rb,2.5338e-04_rb,3.1724e-04_rb, &
+     &4.1347e-04_rb,5.5823e-04_rb,4.1876e-04_rb/)
+      kao(:, 3, 1, 1) = (/ &
+     &2.2440e-07_rb,8.7653e-05_rb,1.5288e-04_rb,2.1636e-04_rb,2.8321e-04_rb,3.6387e-04_rb, &
+     &4.5547e-04_rb,6.4036e-04_rb,4.9001e-04_rb/)
+      kao(:, 4, 1, 1) = (/ &
+     &2.4907e-07_rb,9.8921e-05_rb,1.7279e-04_rb,2.4495e-04_rb,3.1911e-04_rb,4.0317e-04_rb, &
+     &5.1922e-04_rb,7.1060e-04_rb,5.5803e-04_rb/)
+      kao(:, 5, 1, 1) = (/ &
+     &2.7577e-07_rb,1.1088e-04_rb,1.9448e-04_rb,2.7670e-04_rb,3.6112e-04_rb,4.5291e-04_rb, &
+     &5.7232e-04_rb,7.9647e-04_rb,6.3718e-04_rb/)
+      kao(:, 1, 2, 1) = (/ &
+     &2.1743e-07_rb,5.9697e-05_rb,1.0011e-04_rb,1.3856e-04_rb,1.7837e-04_rb,2.1937e-04_rb, &
+     &2.7665e-04_rb,3.5934e-04_rb,2.6865e-04_rb/)
+      kao(:, 2, 2, 1) = (/ &
+     &2.4689e-07_rb,6.8199e-05_rb,1.1473e-04_rb,1.5826e-04_rb,2.0299e-04_rb,2.5265e-04_rb, &
+     &3.0999e-04_rb,4.0941e-04_rb,3.2103e-04_rb/)
+      kao(:, 3, 2, 1) = (/ &
+     &2.7759e-07_rb,7.7428e-05_rb,1.3086e-04_rb,1.8044e-04_rb,2.2946e-04_rb,2.8434e-04_rb, &
+     &3.5412e-04_rb,4.7313e-04_rb,3.7455e-04_rb/)
+      kao(:, 4, 2, 1) = (/ &
+     &3.1162e-07_rb,8.7312e-05_rb,1.4837e-04_rb,2.0486e-04_rb,2.6086e-04_rb,3.2026e-04_rb, &
+     &3.9490e-04_rb,5.1882e-04_rb,4.3142e-04_rb/)
+      kao(:, 5, 2, 1) = (/ &
+     &3.4483e-07_rb,9.7902e-05_rb,1.6760e-04_rb,2.3163e-04_rb,2.9600e-04_rb,3.6332e-04_rb, &
+     &4.4224e-04_rb,5.8485e-04_rb,4.9654e-04_rb/)
+      kao(:, 1, 3, 1) = (/ &
+     &3.5522e-07_rb,5.4633e-05_rb,8.9953e-05_rb,1.1946e-04_rb,1.4735e-04_rb,1.7547e-04_rb, &
+     &2.0438e-04_rb,2.5064e-04_rb,1.9532e-04_rb/)
+      kao(:, 2, 3, 1) = (/ &
+     &4.0312e-07_rb,6.2965e-05_rb,1.0335e-04_rb,1.3746e-04_rb,1.6817e-04_rb,1.9939e-04_rb, &
+     &2.3562e-04_rb,2.9335e-04_rb,2.3482e-04_rb/)
+      kao(:, 3, 3, 1) = (/ &
+     &4.5344e-07_rb,7.1817e-05_rb,1.1822e-04_rb,1.5709e-04_rb,1.9287e-04_rb,2.2736e-04_rb, &
+     &2.6619e-04_rb,3.2521e-04_rb,2.7722e-04_rb/)
+      kao(:, 4, 3, 1) = (/ &
+     &5.1341e-07_rb,8.1197e-05_rb,1.3399e-04_rb,1.7909e-04_rb,2.2021e-04_rb,2.5936e-04_rb, &
+     &3.0089e-04_rb,3.7007e-04_rb,3.2243e-04_rb/)
+      kao(:, 5, 3, 1) = (/ &
+     &5.7093e-07_rb,9.0935e-05_rb,1.5129e-04_rb,2.0303e-04_rb,2.4981e-04_rb,2.9482e-04_rb, &
+     &3.4243e-04_rb,4.0910e-04_rb,3.7408e-04_rb/)
+      kao(:, 1, 4, 1) = (/ &
+     &5.9029e-07_rb,4.8269e-05_rb,8.1661e-05_rb,1.0687e-04_rb,1.2826e-04_rb,1.4610e-04_rb, &
+     &1.6333e-04_rb,1.8670e-04_rb,1.4151e-04_rb/)
+      kao(:, 2, 4, 1) = (/ &
+     &6.7060e-07_rb,5.6349e-05_rb,9.4916e-05_rb,1.2365e-04_rb,1.4803e-04_rb,1.6776e-04_rb, &
+     &1.8719e-04_rb,2.1036e-04_rb,1.7196e-04_rb/)
+      kao(:, 3, 4, 1) = (/ &
+     &7.5759e-07_rb,6.4869e-05_rb,1.0916e-04_rb,1.4206e-04_rb,1.6962e-04_rb,1.9348e-04_rb, &
+     &2.1325e-04_rb,2.4238e-04_rb,2.0611e-04_rb/)
+      kao(:, 4, 4, 1) = (/ &
+     &8.5937e-07_rb,7.4063e-05_rb,1.2416e-04_rb,1.6207e-04_rb,1.9412e-04_rb,2.2126e-04_rb, &
+     &2.4479e-04_rb,2.7146e-04_rb,2.4157e-04_rb/)
+      kao(:, 5, 4, 1) = (/ &
+     &9.5897e-07_rb,8.3687e-05_rb,1.3973e-04_rb,1.8364e-04_rb,2.2051e-04_rb,2.5234e-04_rb, &
+     &2.7911e-04_rb,3.0928e-04_rb,2.8248e-04_rb/)
+      kao(:, 1, 5, 1) = (/ &
+     &9.1759e-07_rb,4.1947e-05_rb,7.0794e-05_rb,9.4885e-05_rb,1.1243e-04_rb,1.2599e-04_rb, &
+     &1.3683e-04_rb,1.4293e-04_rb,1.0336e-04_rb/)
+      kao(:, 2, 5, 1) = (/ &
+     &1.0425e-06_rb,4.9113e-05_rb,8.3728e-05_rb,1.1140e-04_rb,1.3168e-04_rb,1.4605e-04_rb, &
+     &1.5650e-04_rb,1.6563e-04_rb,1.2713e-04_rb/)
+      kao(:, 3, 5, 1) = (/ &
+     &1.1835e-06_rb,5.7263e-05_rb,9.7394e-05_rb,1.2924e-04_rb,1.5190e-04_rb,1.6881e-04_rb, &
+     &1.8096e-04_rb,1.8906e-04_rb,1.5436e-04_rb/)
+      kao(:, 4, 5, 1) = (/ &
+     &1.3393e-06_rb,6.6178e-05_rb,1.1132e-04_rb,1.4759e-04_rb,1.7411e-04_rb,1.9396e-04_rb, &
+     &2.0764e-04_rb,2.1628e-04_rb,1.8190e-04_rb/)
+      kao(:, 5, 5, 1) = (/ &
+     &1.4988e-06_rb,7.5103e-05_rb,1.2617e-04_rb,1.6721e-04_rb,1.9778e-04_rb,2.2104e-04_rb, &
+     &2.3789e-04_rb,2.4796e-04_rb,2.1416e-04_rb/)
+      kao(:, 1, 6, 1) = (/ &
+     &1.3509e-06_rb,3.6190e-05_rb,6.0186e-05_rb,8.0089e-05_rb,9.7447e-05_rb,1.0817e-04_rb, &
+     &1.1477e-04_rb,1.1459e-04_rb,7.5216e-05_rb/)
+      kao(:, 2, 6, 1) = (/ &
+     &1.5379e-06_rb,4.3048e-05_rb,7.1223e-05_rb,9.5429e-05_rb,1.1555e-04_rb,1.2778e-04_rb, &
+     &1.3385e-04_rb,1.3550e-04_rb,9.3747e-05_rb/)
+      kao(:, 3, 6, 1) = (/ &
+     &1.7505e-06_rb,5.0649e-05_rb,8.3443e-05_rb,1.1225e-04_rb,1.3468e-04_rb,1.4925e-04_rb, &
+     &1.5516e-04_rb,1.5522e-04_rb,1.1566e-04_rb/)
+      kao(:, 4, 6, 1) = (/ &
+     &1.9769e-06_rb,5.8613e-05_rb,9.7176e-05_rb,1.2952e-04_rb,1.5512e-04_rb,1.7221e-04_rb, &
+     &1.7952e-04_rb,1.7884e-04_rb,1.3754e-04_rb/)
+      kao(:, 5, 6, 1) = (/ &
+     &2.2201e-06_rb,6.7356e-05_rb,1.1202e-04_rb,1.4825e-04_rb,1.7722e-04_rb,1.9650e-04_rb, &
+     &2.0554e-04_rb,2.0495e-04_rb,1.6355e-04_rb/)
+      kao(:, 1, 7, 1) = (/ &
+     &2.1304e-06_rb,3.3089e-05_rb,5.1849e-05_rb,6.8730e-05_rb,8.2305e-05_rb,9.3472e-05_rb, &
+     &9.9164e-05_rb,9.8631e-05_rb,5.9418e-05_rb/)
+      kao(:, 2, 7, 1) = (/ &
+     &2.4308e-06_rb,3.9636e-05_rb,6.2051e-05_rb,8.1968e-05_rb,9.8909e-05_rb,1.1256e-04_rb, &
+     &1.1810e-04_rb,1.1396e-04_rb,7.5269e-05_rb/)
+      kao(:, 3, 7, 1) = (/ &
+     &2.7537e-06_rb,4.6821e-05_rb,7.3795e-05_rb,9.6812e-05_rb,1.1738e-04_rb,1.3274e-04_rb, &
+     &1.3903e-04_rb,1.3282e-04_rb,9.2641e-05_rb/)
+      kao(:, 4, 7, 1) = (/ &
+     &3.1212e-06_rb,5.4439e-05_rb,8.6765e-05_rb,1.1374e-04_rb,1.3694e-04_rb,1.5474e-04_rb, &
+     &1.6192e-04_rb,1.5375e-04_rb,1.1184e-04_rb/)
+      kao(:, 5, 7, 1) = (/ &
+     &3.5210e-06_rb,6.2611e-05_rb,9.9782e-05_rb,1.3214e-04_rb,1.5850e-04_rb,1.7752e-04_rb, &
+     &1.8622e-04_rb,1.7734e-04_rb,1.3357e-04_rb/)
+      kao(:, 1, 8, 1) = (/ &
+     &4.1180e-06_rb,3.5356e-05_rb,4.9875e-05_rb,6.2112e-05_rb,7.3272e-05_rb,8.1665e-05_rb, &
+     &8.7559e-05_rb,8.6370e-05_rb,4.9881e-05_rb/)
+      kao(:, 2, 8, 1) = (/ &
+     &4.6880e-06_rb,4.2308e-05_rb,6.0139e-05_rb,7.5108e-05_rb,8.8001e-05_rb,9.9269e-05_rb, &
+     &1.0597e-04_rb,1.0409e-04_rb,6.3232e-05_rb/)
+      kao(:, 3, 8, 1) = (/ &
+     &5.2893e-06_rb,4.9705e-05_rb,7.1733e-05_rb,8.9997e-05_rb,1.0540e-04_rb,1.1807e-04_rb, &
+     &1.2729e-04_rb,1.2367e-04_rb,7.9488e-05_rb/)
+      kao(:, 4, 8, 1) = (/ &
+     &5.9934e-06_rb,5.7629e-05_rb,8.3852e-05_rb,1.0617e-04_rb,1.2505e-04_rb,1.3960e-04_rb, &
+     &1.5001e-04_rb,1.4519e-04_rb,9.7332e-05_rb/)
+      kao(:, 5, 8, 1) = (/ &
+     &6.8016e-06_rb,6.6193e-05_rb,9.7237e-05_rb,1.2349e-04_rb,1.4561e-04_rb,1.6359e-04_rb, &
+     &1.7405e-04_rb,1.6782e-04_rb,1.1691e-04_rb/)
+      kao(:, 1, 9, 1) = (/ &
+     &1.5173e-05_rb,6.0073e-05_rb,7.5522e-05_rb,8.4608e-05_rb,8.9391e-05_rb,9.1045e-05_rb, &
+     &9.0015e-05_rb,8.5089e-05_rb,6.2916e-05_rb/)
+      kao(:, 2, 9, 1) = (/ &
+     &1.7118e-05_rb,7.2165e-05_rb,9.0975e-05_rb,1.0209e-04_rb,1.0823e-04_rb,1.1031e-04_rb, &
+     &1.0910e-04_rb,1.0450e-04_rb,8.0378e-05_rb/)
+      kao(:, 3, 9, 1) = (/ &
+     &1.9333e-05_rb,8.4779e-05_rb,1.0715e-04_rb,1.2042e-04_rb,1.2865e-04_rb,1.3251e-04_rb, &
+     &1.3198e-04_rb,1.2575e-04_rb,1.0185e-04_rb/)
+      kao(:, 4, 9, 1) = (/ &
+     &2.2020e-05_rb,9.7885e-05_rb,1.2402e-04_rb,1.4031e-04_rb,1.5091e-04_rb,1.5615e-04_rb, &
+     &1.5775e-04_rb,1.5010e-04_rb,1.2495e-04_rb/)
+      kao(:, 5, 9, 1) = (/ &
+     &2.4990e-05_rb,1.1102e-04_rb,1.4167e-04_rb,1.6181e-04_rb,1.7511e-04_rb,1.8231e-04_rb, &
+     &1.8406e-04_rb,1.7738e-04_rb,1.4891e-04_rb/)
+      kao(:, 1,10, 1) = (/ &
+     &6.3843e-05_rb,1.3785e-04_rb,1.5635e-04_rb,1.6287e-04_rb,1.6037e-04_rb,1.5248e-04_rb, &
+     &1.3606e-04_rb,1.0761e-04_rb,1.0144e-04_rb/)
+      kao(:, 2,10, 1) = (/ &
+     &7.2156e-05_rb,1.6111e-04_rb,1.8530e-04_rb,1.9419e-04_rb,1.9482e-04_rb,1.8548e-04_rb, &
+     &1.6571e-04_rb,1.3139e-04_rb,1.2609e-04_rb/)
+      kao(:, 3,10, 1) = (/ &
+     &8.1633e-05_rb,1.8623e-04_rb,2.1467e-04_rb,2.2993e-04_rb,2.3146e-04_rb,2.2096e-04_rb, &
+     &1.9656e-04_rb,1.5757e-04_rb,1.5350e-04_rb/)
+      kao(:, 4,10, 1) = (/ &
+     &9.2413e-05_rb,2.1393e-04_rb,2.4898e-04_rb,2.6688e-04_rb,2.6838e-04_rb,2.5715e-04_rb, &
+     &2.2901e-04_rb,1.8640e-04_rb,1.8257e-04_rb/)
+      kao(:, 5,10, 1) = (/ &
+     &1.0426e-04_rb,2.4538e-04_rb,2.8330e-04_rb,3.0298e-04_rb,3.0752e-04_rb,2.9416e-04_rb, &
+     &2.6511e-04_rb,2.1835e-04_rb,2.1288e-04_rb/)
+      kao(:, 1,11, 1) = (/ &
+     &9.9914e-05_rb,1.8204e-04_rb,1.9923e-04_rb,2.0432e-04_rb,1.9733e-04_rb,1.8201e-04_rb, &
+     &1.5904e-04_rb,1.2299e-04_rb,1.0910e-04_rb/)
+      kao(:, 2,11, 1) = (/ &
+     &1.1199e-04_rb,2.1265e-04_rb,2.3389e-04_rb,2.4089e-04_rb,2.3442e-04_rb,2.2069e-04_rb, &
+     &1.9371e-04_rb,1.4882e-04_rb,1.3411e-04_rb/)
+      kao(:, 3,11, 1) = (/ &
+     &1.2687e-04_rb,2.4499e-04_rb,2.7026e-04_rb,2.7909e-04_rb,2.7675e-04_rb,2.6044e-04_rb, &
+     &2.2915e-04_rb,1.7718e-04_rb,1.6026e-04_rb/)
+      kao(:, 4,11, 1) = (/ &
+     &1.4261e-04_rb,2.8101e-04_rb,3.1141e-04_rb,3.2255e-04_rb,3.1948e-04_rb,3.0150e-04_rb, &
+     &2.6612e-04_rb,2.0752e-04_rb,1.8601e-04_rb/)
+      kao(:, 5,11, 1) = (/ &
+     &1.5789e-04_rb,3.1929e-04_rb,3.5513e-04_rb,3.6602e-04_rb,3.6282e-04_rb,3.4410e-04_rb, &
+     &3.0577e-04_rb,2.4097e-04_rb,2.1352e-04_rb/)
+      kao(:, 1,12, 1) = (/ &
+     &1.1122e-04_rb,1.9022e-04_rb,2.0568e-04_rb,2.0798e-04_rb,2.0013e-04_rb,1.8369e-04_rb, &
+     &1.5756e-04_rb,1.2037e-04_rb,1.0098e-04_rb/)
+      kao(:, 2,12, 1) = (/ &
+     &1.2500e-04_rb,2.2156e-04_rb,2.4046e-04_rb,2.4347e-04_rb,2.3764e-04_rb,2.2116e-04_rb, &
+     &1.9272e-04_rb,1.4643e-04_rb,1.2390e-04_rb/)
+      kao(:, 3,12, 1) = (/ &
+     &1.4056e-04_rb,2.5489e-04_rb,2.7764e-04_rb,2.8122e-04_rb,2.7905e-04_rb,2.5886e-04_rb, &
+     &2.2636e-04_rb,1.7352e-04_rb,1.4664e-04_rb/)
+      kao(:, 4,12, 1) = (/ &
+     &1.5858e-04_rb,2.9021e-04_rb,3.1841e-04_rb,3.2551e-04_rb,3.1903e-04_rb,2.9848e-04_rb, &
+     &2.6254e-04_rb,2.0265e-04_rb,1.7061e-04_rb/)
+      kao(:, 5,12, 1) = (/ &
+     &1.7398e-04_rb,3.2750e-04_rb,3.6207e-04_rb,3.6880e-04_rb,3.6058e-04_rb,3.3907e-04_rb, &
+     &2.9970e-04_rb,2.3401e-04_rb,1.9575e-04_rb/)
+      kao(:, 1,13, 1) = (/ &
+     &9.9982e-05_rb,1.6786e-04_rb,1.8157e-04_rb,1.8311e-04_rb,1.7732e-04_rb,1.6257e-04_rb, &
+     &1.4107e-04_rb,1.0684e-04_rb,8.8282e-05_rb/)
+      kao(:, 2,13, 1) = (/ &
+     &1.1208e-04_rb,1.9489e-04_rb,2.1207e-04_rb,2.1420e-04_rb,2.0856e-04_rb,1.9501e-04_rb, &
+     &1.6942e-04_rb,1.2896e-04_rb,1.0706e-04_rb/)
+      kao(:, 3,13, 1) = (/ &
+     &1.2580e-04_rb,2.2390e-04_rb,2.4368e-04_rb,2.4899e-04_rb,2.4426e-04_rb,2.2695e-04_rb, &
+     &1.9796e-04_rb,1.5273e-04_rb,1.2657e-04_rb/)
+      kao(:, 4,13, 1) = (/ &
+     &1.4115e-04_rb,2.5382e-04_rb,2.8079e-04_rb,2.8499e-04_rb,2.7843e-04_rb,2.6072e-04_rb, &
+     &2.2903e-04_rb,1.7905e-04_rb,1.4711e-04_rb/)
+      kao(:, 5,13, 1) = (/ &
+     &1.5465e-04_rb,2.8798e-04_rb,3.1774e-04_rb,3.2258e-04_rb,3.1431e-04_rb,2.9430e-04_rb, &
+     &2.6133e-04_rb,2.0499e-04_rb,1.6802e-04_rb/)
+      kao(:, 1, 1, 2) = (/ &
+     &3.7683e-07_rb,1.9808e-04_rb,3.6685e-04_rb,5.3916e-04_rb,7.1167e-04_rb,8.9309e-04_rb, &
+     &1.1251e-03_rb,1.6060e-03_rb,1.3216e-03_rb/)
+      kao(:, 2, 1, 2) = (/ &
+     &4.2181e-07_rb,2.2081e-04_rb,4.0843e-04_rb,6.0005e-04_rb,7.9854e-04_rb,1.0235e-03_rb, &
+     &1.2747e-03_rb,1.7730e-03_rb,1.5072e-03_rb/)
+      kao(:, 3, 1, 2) = (/ &
+     &4.6205e-07_rb,2.4503e-04_rb,4.5395e-04_rb,6.6471e-04_rb,8.8503e-04_rb,1.1345e-03_rb, &
+     &1.4567e-03_rb,1.9804e-03_rb,1.6670e-03_rb/)
+      kao(:, 4, 1, 2) = (/ &
+     &5.1491e-07_rb,2.7069e-04_rb,5.0378e-04_rb,7.3699e-04_rb,9.7626e-04_rb,1.2446e-03_rb, &
+     &1.5952e-03_rb,2.2188e-03_rb,1.8463e-03_rb/)
+      kao(:, 5, 1, 2) = (/ &
+     &5.5977e-07_rb,2.9608e-04_rb,5.5719e-04_rb,8.1557e-04_rb,1.0806e-03_rb,1.3738e-03_rb, &
+     &1.7497e-03_rb,2.4313e-03_rb,2.0562e-03_rb/)
+      kao(:, 1, 2, 2) = (/ &
+     &4.7123e-07_rb,1.6943e-04_rb,3.0287e-04_rb,4.3680e-04_rb,5.7665e-04_rb,7.0994e-04_rb, &
+     &8.5911e-04_rb,1.1308e-03_rb,1.0172e-03_rb/)
+      kao(:, 2, 2, 2) = (/ &
+     &5.2931e-07_rb,1.8961e-04_rb,3.3976e-04_rb,4.8868e-04_rb,6.4337e-04_rb,8.0862e-04_rb, &
+     &9.8935e-04_rb,1.2742e-03_rb,1.1602e-03_rb/)
+      kao(:, 3, 2, 2) = (/ &
+     &5.8844e-07_rb,2.1120e-04_rb,3.7935e-04_rb,5.4606e-04_rb,7.1722e-04_rb,8.9758e-04_rb, &
+     &1.1168e-03_rb,1.4348e-03_rb,1.3002e-03_rb/)
+      kao(:, 4, 2, 2) = (/ &
+     &6.4390e-07_rb,2.3336e-04_rb,4.2266e-04_rb,6.0899e-04_rb,7.9911e-04_rb,9.9511e-04_rb, &
+     &1.2304e-03_rb,1.6357e-03_rb,1.4539e-03_rb/)
+      kao(:, 5, 2, 2) = (/ &
+     &7.0717e-07_rb,2.5573e-04_rb,4.6939e-04_rb,6.7801e-04_rb,8.8876e-04_rb,1.1052e-03_rb, &
+     &1.3595e-03_rb,1.7810e-03_rb,1.6268e-03_rb/)
+      kao(:, 1, 3, 2) = (/ &
+     &7.7382e-07_rb,1.5592e-04_rb,2.6004e-04_rb,3.5917e-04_rb,4.5597e-04_rb,5.6221e-04_rb, &
+     &6.6191e-04_rb,7.8092e-04_rb,7.5320e-04_rb/)
+      kao(:, 2, 3, 2) = (/ &
+     &8.7904e-07_rb,1.7462e-04_rb,2.9301e-04_rb,4.0553e-04_rb,5.1639e-04_rb,6.3236e-04_rb, &
+     &7.5999e-04_rb,8.9592e-04_rb,8.6804e-04_rb/)
+      kao(:, 3, 3, 2) = (/ &
+     &9.8281e-07_rb,1.9263e-04_rb,3.2870e-04_rb,4.5631e-04_rb,5.8039e-04_rb,7.0848e-04_rb, &
+     &8.4867e-04_rb,1.0369e-03_rb,9.8463e-04_rb/)
+      kao(:, 4, 3, 2) = (/ &
+     &1.0791e-06_rb,2.1196e-04_rb,3.6740e-04_rb,5.1125e-04_rb,6.5128e-04_rb,7.9536e-04_rb, &
+     &9.4873e-04_rb,1.1498e-03_rb,1.1137e-03_rb/)
+      kao(:, 5, 3, 2) = (/ &
+     &1.1811e-06_rb,2.3314e-04_rb,4.0444e-04_rb,5.7096e-04_rb,7.2953e-04_rb,8.9019e-04_rb, &
+     &1.0598e-03_rb,1.2765e-03_rb,1.2563e-03_rb/)
+      kao(:, 1, 4, 2) = (/ &
+     &1.2931e-06_rb,1.5459e-04_rb,2.3712e-04_rb,3.1151e-04_rb,3.8051e-04_rb,4.4732e-04_rb, &
+     &5.1939e-04_rb,5.8139e-04_rb,5.5932e-04_rb/)
+      kao(:, 2, 4, 2) = (/ &
+     &1.4961e-06_rb,1.6924e-04_rb,2.6743e-04_rb,3.5309e-04_rb,4.3277e-04_rb,5.1005e-04_rb, &
+     &5.8720e-04_rb,6.8557e-04_rb,6.5449e-04_rb/)
+      kao(:, 3, 4, 2) = (/ &
+     &1.6687e-06_rb,1.8668e-04_rb,2.9946e-04_rb,3.9815e-04_rb,4.8978e-04_rb,5.7712e-04_rb, &
+     &6.6568e-04_rb,7.7293e-04_rb,7.4803e-04_rb/)
+      kao(:, 4, 4, 2) = (/ &
+     &1.8491e-06_rb,2.0517e-04_rb,3.2982e-04_rb,4.4741e-04_rb,5.5202e-04_rb,6.5205e-04_rb, &
+     &7.5198e-04_rb,8.7064e-04_rb,8.5540e-04_rb/)
+      kao(:, 5, 4, 2) = (/ &
+     &2.0324e-06_rb,2.2162e-04_rb,3.6469e-04_rb,4.9544e-04_rb,6.1968e-04_rb,7.3378e-04_rb, &
+     &8.4769e-04_rb,9.7614e-04_rb,9.7197e-04_rb/)
+      kao(:, 1, 5, 2) = (/ &
+     &2.0065e-06_rb,1.5150e-04_rb,2.2968e-04_rb,2.8386e-04_rb,3.3168e-04_rb,3.7581e-04_rb, &
+     &4.1489e-04_rb,4.5675e-04_rb,4.1358e-04_rb/)
+      kao(:, 2, 5, 2) = (/ &
+     &2.3252e-06_rb,1.6854e-04_rb,2.5480e-04_rb,3.2081e-04_rb,3.7754e-04_rb,4.3026e-04_rb, &
+     &4.7606e-04_rb,5.2820e-04_rb,4.9368e-04_rb/)
+      kao(:, 3, 5, 2) = (/ &
+     &2.6085e-06_rb,1.8331e-04_rb,2.8033e-04_rb,3.6056e-04_rb,4.2825e-04_rb,4.8928e-04_rb, &
+     &5.4309e-04_rb,5.9807e-04_rb,5.6993e-04_rb/)
+      kao(:, 4, 5, 2) = (/ &
+     &2.9132e-06_rb,1.9761e-04_rb,3.1015e-04_rb,3.9882e-04_rb,4.8412e-04_rb,5.5460e-04_rb, &
+     &6.1782e-04_rb,6.7980e-04_rb,6.5837e-04_rb/)
+      kao(:, 5, 5, 2) = (/ &
+     &3.2361e-06_rb,2.1434e-04_rb,3.4118e-04_rb,4.4180e-04_rb,5.3752e-04_rb,6.2588e-04_rb, &
+     &6.9930e-04_rb,7.7113e-04_rb,7.5327e-04_rb/)
+      kao(:, 1, 6, 2) = (/ &
+     &2.9230e-06_rb,1.3806e-04_rb,2.1835e-04_rb,2.7095e-04_rb,3.0194e-04_rb,3.2758e-04_rb, &
+     &3.4587e-04_rb,3.6408e-04_rb,3.0468e-04_rb/)
+      kao(:, 2, 6, 2) = (/ &
+     &3.4021e-06_rb,1.5365e-04_rb,2.4578e-04_rb,3.0400e-04_rb,3.4286e-04_rb,3.7318e-04_rb, &
+     &3.9861e-04_rb,4.1438e-04_rb,3.7021e-04_rb/)
+      kao(:, 3, 6, 2) = (/ &
+     &3.8620e-06_rb,1.7051e-04_rb,2.7334e-04_rb,3.3438e-04_rb,3.8715e-04_rb,4.2432e-04_rb, &
+     &4.5662e-04_rb,4.7772e-04_rb,4.3260e-04_rb/)
+      kao(:, 4, 6, 2) = (/ &
+     &4.2870e-06_rb,1.8887e-04_rb,2.9668e-04_rb,3.7137e-04_rb,4.2886e-04_rb,4.8133e-04_rb, &
+     &5.2053e-04_rb,5.4689e-04_rb,5.0258e-04_rb/)
+      kao(:, 5, 6, 2) = (/ &
+     &4.8423e-06_rb,2.0662e-04_rb,3.1977e-04_rb,4.1089e-04_rb,4.7609e-04_rb,5.3742e-04_rb, &
+     &5.9126e-04_rb,6.2337e-04_rb,5.7823e-04_rb/)
+      kao(:, 1, 7, 2) = (/ &
+     &4.5404e-06_rb,1.3143e-04_rb,2.0727e-04_rb,2.6052e-04_rb,2.9635e-04_rb,3.0743e-04_rb, &
+     &3.0825e-04_rb,2.9703e-04_rb,2.2197e-04_rb/)
+      kao(:, 2, 7, 2) = (/ &
+     &5.2640e-06_rb,1.4772e-04_rb,2.3068e-04_rb,2.9687e-04_rb,3.3184e-04_rb,3.4986e-04_rb, &
+     &3.5249e-04_rb,3.4543e-04_rb,2.7330e-04_rb/)
+      kao(:, 3, 7, 2) = (/ &
+     &6.0466e-06_rb,1.6470e-04_rb,2.5696e-04_rb,3.3234e-04_rb,3.6914e-04_rb,3.9626e-04_rb, &
+     &4.0246e-04_rb,3.9902e-04_rb,3.2329e-04_rb/)
+      kao(:, 4, 7, 2) = (/ &
+     &6.7565e-06_rb,1.8107e-04_rb,2.8421e-04_rb,3.6286e-04_rb,4.1183e-04_rb,4.3876e-04_rb, &
+     &4.5748e-04_rb,4.5835e-04_rb,3.7913e-04_rb/)
+      kao(:, 5, 7, 2) = (/ &
+     &7.6474e-06_rb,1.9867e-04_rb,3.1475e-04_rb,3.9310e-04_rb,4.5438e-04_rb,4.8957e-04_rb, &
+     &5.1385e-04_rb,5.2320e-04_rb,4.4016e-04_rb/)
+      kao(:, 1, 8, 2) = (/ &
+     &8.6520e-06_rb,1.4110e-04_rb,2.0496e-04_rb,2.5993e-04_rb,2.9742e-04_rb,3.1821e-04_rb, &
+     &3.1456e-04_rb,2.7649e-04_rb,1.8485e-04_rb/)
+      kao(:, 2, 8, 2) = (/ &
+     &1.0009e-05_rb,1.5517e-04_rb,2.3206e-04_rb,2.9171e-04_rb,3.4405e-04_rb,3.6414e-04_rb, &
+     &3.5939e-04_rb,3.1713e-04_rb,2.2424e-04_rb/)
+      kao(:, 3, 8, 2) = (/ &
+     &1.1509e-05_rb,1.7205e-04_rb,2.6018e-04_rb,3.2636e-04_rb,3.8244e-04_rb,4.1241e-04_rb, &
+     &4.0304e-04_rb,3.6377e-04_rb,2.6821e-04_rb/)
+      kao(:, 4, 8, 2) = (/ &
+     &1.3117e-05_rb,1.8959e-04_rb,2.8945e-04_rb,3.6544e-04_rb,4.2147e-04_rb,4.5788e-04_rb, &
+     &4.4922e-04_rb,4.1527e-04_rb,3.1806e-04_rb/)
+      kao(:, 5, 8, 2) = (/ &
+     &1.4790e-05_rb,2.0902e-04_rb,3.1840e-04_rb,4.0603e-04_rb,4.6521e-04_rb,4.9945e-04_rb, &
+     &5.0220e-04_rb,4.7045e-04_rb,3.7190e-04_rb/)
+      kao(:, 1, 9, 2) = (/ &
+     &3.0998e-05_rb,2.0637e-04_rb,2.7947e-04_rb,3.3530e-04_rb,3.6480e-04_rb,3.8205e-04_rb, &
+     &3.8653e-04_rb,3.4762e-04_rb,1.8242e-04_rb/)
+      kao(:, 2, 9, 2) = (/ &
+     &3.6096e-05_rb,2.3076e-04_rb,3.1240e-04_rb,3.7284e-04_rb,4.1471e-04_rb,4.3432e-04_rb, &
+     &4.4125e-04_rb,4.0372e-04_rb,2.2363e-04_rb/)
+      kao(:, 3, 9, 2) = (/ &
+     &4.2035e-05_rb,2.5734e-04_rb,3.4822e-04_rb,4.1425e-04_rb,4.6570e-04_rb,4.9153e-04_rb, &
+     &4.9534e-04_rb,4.6243e-04_rb,2.6686e-04_rb/)
+      kao(:, 4, 9, 2) = (/ &
+     &4.8029e-05_rb,2.8335e-04_rb,3.8624e-04_rb,4.5968e-04_rb,5.1473e-04_rb,5.5196e-04_rb, &
+     &5.5517e-04_rb,5.1807e-04_rb,3.1577e-04_rb/)
+      kao(:, 5, 9, 2) = (/ &
+     &5.5331e-05_rb,3.0966e-04_rb,4.2837e-04_rb,5.0793e-04_rb,5.6875e-04_rb,6.0971e-04_rb, &
+     &6.2368e-04_rb,5.6511e-04_rb,3.7171e-04_rb/)
+      kao(:, 1,10, 2) = (/ &
+     &1.2964e-04_rb,4.0632e-04_rb,5.1358e-04_rb,5.5581e-04_rb,5.6980e-04_rb,5.6112e-04_rb, &
+     &5.2892e-04_rb,4.3728e-04_rb,2.8865e-04_rb/)
+      kao(:, 2,10, 2) = (/ &
+     &1.5095e-04_rb,4.5953e-04_rb,5.7199e-04_rb,6.2596e-04_rb,6.3988e-04_rb,6.3023e-04_rb, &
+     &5.9124e-04_rb,5.0100e-04_rb,3.5610e-04_rb/)
+      kao(:, 3,10, 2) = (/ &
+     &1.7573e-04_rb,5.1815e-04_rb,6.3409e-04_rb,6.9698e-04_rb,7.1541e-04_rb,7.0519e-04_rb, &
+     &6.6061e-04_rb,5.7112e-04_rb,4.2862e-04_rb/)
+      kao(:, 4,10, 2) = (/ &
+     &2.0254e-04_rb,5.7408e-04_rb,7.0140e-04_rb,7.6485e-04_rb,7.9509e-04_rb,7.8487e-04_rb, &
+     &7.3767e-04_rb,6.4340e-04_rb,5.0196e-04_rb/)
+      kao(:, 5,10, 2) = (/ &
+     &2.3735e-04_rb,6.3435e-04_rb,7.7477e-04_rb,8.4107e-04_rb,8.7369e-04_rb,8.7290e-04_rb, &
+     &8.2035e-04_rb,7.1353e-04_rb,5.7378e-04_rb/)
+      kao(:, 1,11, 2) = (/ &
+     &2.0611e-04_rb,5.0579e-04_rb,6.0906e-04_rb,6.6598e-04_rb,6.7463e-04_rb,6.4325e-04_rb, &
+     &5.7358e-04_rb,4.6594e-04_rb,3.7105e-04_rb/)
+      kao(:, 2,11, 2) = (/ &
+     &2.4168e-04_rb,5.7457e-04_rb,6.8930e-04_rb,7.4695e-04_rb,7.5788e-04_rb,7.2324e-04_rb, &
+     &6.4676e-04_rb,5.2943e-04_rb,4.4283e-04_rb/)
+      kao(:, 3,11, 2) = (/ &
+     &2.7855e-04_rb,6.5109e-04_rb,7.7336e-04_rb,8.3624e-04_rb,8.3721e-04_rb,8.0652e-04_rb, &
+     &7.2648e-04_rb,5.9132e-04_rb,5.1523e-04_rb/)
+      kao(:, 4,11, 2) = (/ &
+     &3.2934e-04_rb,7.2843e-04_rb,8.5922e-04_rb,9.2211e-04_rb,9.2829e-04_rb,8.9207e-04_rb, &
+     &8.1359e-04_rb,6.5969e-04_rb,5.9146e-04_rb/)
+      kao(:, 5,11, 2) = (/ &
+     &3.7624e-04_rb,8.0764e-04_rb,9.4816e-04_rb,1.0176e-03_rb,1.0267e-03_rb,9.8589e-04_rb, &
+     &9.0003e-04_rb,7.3360e-04_rb,6.6373e-04_rb/)
+      kao(:, 1,12, 2) = (/ &
+     &2.3690e-04_rb,5.2345e-04_rb,6.1583e-04_rb,6.6206e-04_rb,6.7308e-04_rb,6.4411e-04_rb, &
+     &5.7108e-04_rb,4.4594e-04_rb,3.6966e-04_rb/)
+      kao(:, 2,12, 2) = (/ &
+     &2.7636e-04_rb,5.9693e-04_rb,6.9824e-04_rb,7.5086e-04_rb,7.5372e-04_rb,7.2129e-04_rb, &
+     &6.4015e-04_rb,5.0417e-04_rb,4.3519e-04_rb/)
+      kao(:, 3,12, 2) = (/ &
+     &3.2475e-04_rb,6.7274e-04_rb,7.7976e-04_rb,8.4185e-04_rb,8.4051e-04_rb,8.0110e-04_rb, &
+     &7.2036e-04_rb,5.6771e-04_rb,5.0173e-04_rb/)
+      kao(:, 4,12, 2) = (/ &
+     &3.7742e-04_rb,7.5354e-04_rb,8.6958e-04_rb,9.2971e-04_rb,9.3567e-04_rb,8.9034e-04_rb, &
+     &7.9942e-04_rb,6.3511e-04_rb,5.6743e-04_rb/)
+      kao(:, 5,12, 2) = (/ &
+     &4.2656e-04_rb,8.3460e-04_rb,9.6197e-04_rb,1.0276e-03_rb,1.0348e-03_rb,9.8795e-04_rb, &
+     &8.8414e-04_rb,7.0917e-04_rb,6.3181e-04_rb/)
+      kao(:, 1,13, 2) = (/ &
+     &2.1559e-04_rb,4.7034e-04_rb,5.5318e-04_rb,5.8764e-04_rb,5.9246e-04_rb,5.7342e-04_rb, &
+     &5.0467e-04_rb,3.9184e-04_rb,3.4198e-04_rb/)
+      kao(:, 2,13, 2) = (/ &
+     &2.5152e-04_rb,5.3422e-04_rb,6.2195e-04_rb,6.6659e-04_rb,6.7272e-04_rb,6.3853e-04_rb, &
+     &5.7068e-04_rb,4.4436e-04_rb,3.9456e-04_rb/)
+      kao(:, 3,13, 2) = (/ &
+     &3.0302e-04_rb,6.0127e-04_rb,6.9437e-04_rb,7.4686e-04_rb,7.5249e-04_rb,7.1183e-04_rb, &
+     &6.4004e-04_rb,5.0162e-04_rb,4.4714e-04_rb/)
+      kao(:, 4,13, 2) = (/ &
+     &3.4242e-04_rb,6.7081e-04_rb,7.7273e-04_rb,8.2774e-04_rb,8.3533e-04_rb,7.9499e-04_rb, &
+     &7.1004e-04_rb,5.6394e-04_rb,5.0105e-04_rb/)
+      kao(:, 5,13, 2) = (/ &
+     &3.8220e-04_rb,7.4575e-04_rb,8.5383e-04_rb,9.1037e-04_rb,9.2303e-04_rb,8.8587e-04_rb, &
+     &7.8559e-04_rb,6.3207e-04_rb,5.5475e-04_rb/)
+      kao(:, 1, 1, 3) = (/ &
+     &5.3797e-07_rb,4.8188e-04_rb,8.9729e-04_rb,1.3200e-03_rb,1.7770e-03_rb,2.3291e-03_rb, &
+     &3.1122e-03_rb,4.4511e-03_rb,3.5150e-03_rb/)
+      kao(:, 2, 1, 3) = (/ &
+     &6.1262e-07_rb,5.2615e-04_rb,9.8845e-04_rb,1.4517e-03_rb,1.9408e-03_rb,2.5148e-03_rb, &
+     &3.2963e-03_rb,4.8584e-03_rb,3.8321e-03_rb/)
+      kao(:, 3, 1, 3) = (/ &
+     &7.0635e-07_rb,5.6647e-04_rb,1.0753e-03_rb,1.5925e-03_rb,2.1392e-03_rb,2.7441e-03_rb, &
+     &3.5300e-03_rb,5.0419e-03_rb,4.2299e-03_rb/)
+      kao(:, 4, 1, 3) = (/ &
+     &7.6766e-07_rb,6.0727e-04_rb,1.1623e-03_rb,1.7247e-03_rb,2.3255e-03_rb,3.0054e-03_rb, &
+     &3.8553e-03_rb,5.3163e-03_rb,4.6081e-03_rb/)
+      kao(:, 5, 1, 3) = (/ &
+     &8.3851e-07_rb,6.4796e-04_rb,1.2484e-03_rb,1.8617e-03_rb,2.5127e-03_rb,3.2521e-03_rb, &
+     &4.1787e-03_rb,5.7407e-03_rb,4.9828e-03_rb/)
+      kao(:, 1, 2, 3) = (/ &
+     &6.9858e-07_rb,4.1220e-04_rb,7.5871e-04_rb,1.0893e-03_rb,1.4250e-03_rb,1.8069e-03_rb, &
+     &2.3218e-03_rb,3.2208e-03_rb,2.7451e-03_rb/)
+      kao(:, 2, 2, 3) = (/ &
+     &8.1006e-07_rb,4.4690e-04_rb,8.3751e-04_rb,1.2083e-03_rb,1.5781e-03_rb,1.9758e-03_rb, &
+     &2.4966e-03_rb,3.4638e-03_rb,3.0268e-03_rb/)
+      kao(:, 3, 2, 3) = (/ &
+     &9.0719e-07_rb,4.8245e-04_rb,9.0580e-04_rb,1.3167e-03_rb,1.7362e-03_rb,2.1788e-03_rb, &
+     &2.7148e-03_rb,3.6613e-03_rb,3.3476e-03_rb/)
+      kao(:, 4, 2, 3) = (/ &
+     &9.9070e-07_rb,5.1202e-04_rb,9.7859e-04_rb,1.4272e-03_rb,1.8822e-03_rb,2.3784e-03_rb, &
+     &2.9761e-03_rb,3.9189e-03_rb,3.6534e-03_rb/)
+      kao(:, 5, 2, 3) = (/ &
+     &1.0800e-06_rb,5.4986e-04_rb,1.0443e-03_rb,1.5370e-03_rb,2.0346e-03_rb,2.5754e-03_rb, &
+     &3.2289e-03_rb,4.2581e-03_rb,3.9665e-03_rb/)
+      kao(:, 1, 3, 3) = (/ &
+     &1.1956e-06_rb,3.6533e-04_rb,6.4857e-04_rb,9.1797e-04_rb,1.1753e-03_rb,1.4236e-03_rb, &
+     &1.7165e-03_rb,2.2362e-03_rb,2.0894e-03_rb/)
+      kao(:, 2, 3, 3) = (/ &
+     &1.3685e-06_rb,3.9659e-04_rb,7.1084e-04_rb,1.0164e-03_rb,1.3082e-03_rb,1.5859e-03_rb, &
+     &1.8841e-03_rb,2.3586e-03_rb,2.3274e-03_rb/)
+      kao(:, 3, 3, 3) = (/ &
+     &1.5093e-06_rb,4.2397e-04_rb,7.7009e-04_rb,1.1048e-03_rb,1.4344e-03_rb,1.7565e-03_rb, &
+     &2.0870e-03_rb,2.5514e-03_rb,2.5907e-03_rb/)
+      kao(:, 4, 3, 3) = (/ &
+     &1.6732e-06_rb,4.5580e-04_rb,8.2534e-04_rb,1.1953e-03_rb,1.5533e-03_rb,1.9057e-03_rb, &
+     &2.2804e-03_rb,2.8031e-03_rb,2.8387e-03_rb/)
+      kao(:, 5, 3, 3) = (/ &
+     &1.8304e-06_rb,4.8851e-04_rb,8.8340e-04_rb,1.2735e-03_rb,1.6704e-03_rb,2.0642e-03_rb, &
+     &2.4727e-03_rb,3.0561e-03_rb,3.0939e-03_rb/)
+      kao(:, 1, 4, 3) = (/ &
+     &2.0440e-06_rb,3.4190e-04_rb,5.7528e-04_rb,7.8555e-04_rb,9.8576e-04_rb,1.1789e-03_rb, &
+     &1.3557e-03_rb,1.6128e-03_rb,1.5891e-03_rb/)
+      kao(:, 2, 4, 3) = (/ &
+     &2.2803e-06_rb,3.6626e-04_rb,6.2613e-04_rb,8.6621e-04_rb,1.0945e-03_rb,1.3150e-03_rb, &
+     &1.5191e-03_rb,1.7412e-03_rb,1.7827e-03_rb/)
+      kao(:, 3, 4, 3) = (/ &
+     &2.5344e-06_rb,3.9307e-04_rb,6.7511e-04_rb,9.4372e-04_rb,1.1954e-03_rb,1.4474e-03_rb, &
+     &1.6882e-03_rb,1.9262e-03_rb,2.0030e-03_rb/)
+      kao(:, 4, 4, 3) = (/ &
+     &2.8636e-06_rb,4.1974e-04_rb,7.2769e-04_rb,1.0153e-03_rb,1.2977e-03_rb,1.5716e-03_rb, &
+     &1.8427e-03_rb,2.1315e-03_rb,2.2084e-03_rb/)
+      kao(:, 5, 4, 3) = (/ &
+     &3.0668e-06_rb,4.5207e-04_rb,7.8267e-04_rb,1.0885e-03_rb,1.3854e-03_rb,1.6897e-03_rb, &
+     &1.9964e-03_rb,2.3147e-03_rb,2.4195e-03_rb/)
+      kao(:, 1, 5, 3) = (/ &
+     &3.1319e-06_rb,3.2418e-04_rb,5.2433e-04_rb,6.9885e-04_rb,8.4707e-04_rb,9.8232e-04_rb, &
+     &1.1112e-03_rb,1.2410e-03_rb,1.2226e-03_rb/)
+      kao(:, 2, 5, 3) = (/ &
+     &3.5295e-06_rb,3.4929e-04_rb,5.6868e-04_rb,7.6274e-04_rb,9.3852e-04_rb,1.0972e-03_rb, &
+     &1.2472e-03_rb,1.3812e-03_rb,1.3798e-03_rb/)
+      kao(:, 3, 5, 3) = (/ &
+     &3.9745e-06_rb,3.7641e-04_rb,6.1261e-04_rb,8.2611e-04_rb,1.0255e-03_rb,1.2065e-03_rb, &
+     &1.3836e-03_rb,1.5454e-03_rb,1.5563e-03_rb/)
+      kao(:, 4, 5, 3) = (/ &
+     &4.4389e-06_rb,4.0602e-04_rb,6.5760e-04_rb,8.9247e-04_rb,1.1052e-03_rb,1.3151e-03_rb, &
+     &1.5074e-03_rb,1.7081e-03_rb,1.7334e-03_rb/)
+      kao(:, 5, 5, 3) = (/ &
+     &4.7663e-06_rb,4.3568e-04_rb,7.0547e-04_rb,9.6253e-04_rb,1.1901e-03_rb,1.4105e-03_rb, &
+     &1.6319e-03_rb,1.8559e-03_rb,1.9044e-03_rb/)
+      kao(:, 1, 6, 3) = (/ &
+     &4.5500e-06_rb,3.2085e-04_rb,4.8959e-04_rb,6.2597e-04_rb,7.4855e-04_rb,8.4386e-04_rb, &
+     &9.2463e-04_rb,9.8196e-04_rb,9.3322e-04_rb/)
+      kao(:, 2, 6, 3) = (/ &
+     &5.1832e-06_rb,3.4894e-04_rb,5.2646e-04_rb,6.8892e-04_rb,8.2642e-04_rb,9.4419e-04_rb, &
+     &1.0344e-03_rb,1.1120e-03_rb,1.0567e-03_rb/)
+      kao(:, 3, 6, 3) = (/ &
+     &5.7454e-06_rb,3.7624e-04_rb,5.6596e-04_rb,7.4193e-04_rb,8.9866e-04_rb,1.0339e-03_rb, &
+     &1.1478e-03_rb,1.2434e-03_rb,1.1989e-03_rb/)
+      kao(:, 4, 6, 3) = (/ &
+     &6.4183e-06_rb,4.0049e-04_rb,6.1119e-04_rb,7.9917e-04_rb,9.7241e-04_rb,1.1206e-03_rb, &
+     &1.2562e-03_rb,1.3721e-03_rb,1.3554e-03_rb/)
+      kao(:, 5, 6, 3) = (/ &
+     &6.9324e-06_rb,4.2668e-04_rb,6.6038e-04_rb,8.5368e-04_rb,1.0486e-03_rb,1.2116e-03_rb, &
+     &1.3599e-03_rb,1.5001e-03_rb,1.5043e-03_rb/)
+      kao(:, 1, 7, 3) = (/ &
+     &7.2797e-06_rb,3.0677e-04_rb,4.8071e-04_rb,5.9971e-04_rb,6.8742e-04_rb,7.5672e-04_rb, &
+     &8.0124e-04_rb,8.1058e-04_rb,7.0953e-04_rb/)
+      kao(:, 2, 7, 3) = (/ &
+     &8.1177e-06_rb,3.3920e-04_rb,5.2455e-04_rb,6.4489e-04_rb,7.6436e-04_rb,8.4338e-04_rb, &
+     &9.0408e-04_rb,9.2147e-04_rb,8.0482e-04_rb/)
+      kao(:, 3, 7, 3) = (/ &
+     &8.9509e-06_rb,3.6425e-04_rb,5.6797e-04_rb,6.9667e-04_rb,8.2046e-04_rb,9.2590e-04_rb, &
+     &9.9874e-04_rb,1.0317e-03_rb,9.2280e-04_rb/)
+      kao(:, 4, 7, 3) = (/ &
+     &9.9962e-06_rb,3.8975e-04_rb,6.1216e-04_rb,7.5517e-04_rb,8.8215e-04_rb,1.0000e-03_rb, &
+     &1.0895e-03_rb,1.1382e-03_rb,1.0492e-03_rb/)
+      kao(:, 5, 7, 3) = (/ &
+     &1.0669e-05_rb,4.1752e-04_rb,6.5205e-04_rb,8.1765e-04_rb,9.5018e-04_rb,1.0745e-03_rb, &
+     &1.1767e-03_rb,1.2498e-03_rb,1.1757e-03_rb/)
+      kao(:, 1, 8, 3) = (/ &
+     &1.3269e-05_rb,3.0208e-04_rb,4.8542e-04_rb,6.1720e-04_rb,7.0751e-04_rb,7.5832e-04_rb, &
+     &7.5956e-04_rb,7.2658e-04_rb,5.2753e-04_rb/)
+      kao(:, 2, 8, 3) = (/ &
+     &1.5282e-05_rb,3.2807e-04_rb,5.3968e-04_rb,6.8467e-04_rb,7.6733e-04_rb,8.2175e-04_rb, &
+     &8.4708e-04_rb,8.2655e-04_rb,6.1209e-04_rb/)
+      kao(:, 3, 8, 3) = (/ &
+     &1.6919e-05_rb,3.5455e-04_rb,5.8673e-04_rb,7.5006e-04_rb,8.3417e-04_rb,8.8820e-04_rb, &
+     &9.3120e-04_rb,9.2583e-04_rb,7.0621e-04_rb/)
+      kao(:, 4, 8, 3) = (/ &
+     &1.8616e-05_rb,3.8664e-04_rb,6.2653e-04_rb,8.0927e-04_rb,9.0712e-04_rb,9.6236e-04_rb, &
+     &1.0056e-03_rb,1.0184e-03_rb,8.0931e-04_rb/)
+      kao(:, 5, 8, 3) = (/ &
+     &2.0327e-05_rb,4.2321e-04_rb,6.7354e-04_rb,8.6755e-04_rb,9.7906e-04_rb,1.0424e-03_rb, &
+     &1.0862e-03_rb,1.0982e-03_rb,9.1316e-04_rb/)
+      kao(:, 1, 9, 3) = (/ &
+     &5.0114e-05_rb,4.1653e-04_rb,5.9063e-04_rb,7.3539e-04_rb,8.5123e-04_rb,9.2178e-04_rb, &
+     &9.4309e-04_rb,8.5391e-04_rb,5.1499e-04_rb/)
+      kao(:, 2, 9, 3) = (/ &
+     &5.7273e-05_rb,4.5656e-04_rb,6.4069e-04_rb,7.9699e-04_rb,9.4296e-04_rb,1.0365e-03_rb, &
+     &1.0446e-03_rb,9.3220e-04_rb,6.0883e-04_rb/)
+      kao(:, 3, 9, 3) = (/ &
+     &6.4035e-05_rb,4.9861e-04_rb,7.0653e-04_rb,8.6985e-04_rb,1.0116e-03_rb,1.1468e-03_rb, &
+     &1.1543e-03_rb,1.0092e-03_rb,7.0553e-04_rb/)
+      kao(:, 4, 9, 3) = (/ &
+     &7.2188e-05_rb,5.4617e-04_rb,7.8095e-04_rb,9.4772e-04_rb,1.1003e-03_rb,1.2322e-03_rb, &
+     &1.2562e-03_rb,1.0988e-03_rb,7.9526e-04_rb/)
+      kao(:, 5, 9, 3) = (/ &
+     &7.9550e-05_rb,6.0184e-04_rb,8.5464e-04_rb,1.0416e-03_rb,1.1956e-03_rb,1.3190e-03_rb, &
+     &1.3528e-03_rb,1.1984e-03_rb,8.7997e-04_rb/)
+      kao(:, 1,10, 3) = (/ &
+     &2.3306e-04_rb,7.9772e-04_rb,9.8566e-04_rb,1.1183e-03_rb,1.1737e-03_rb,1.1902e-03_rb, &
+     &1.1793e-03_rb,1.0698e-03_rb,6.6407e-04_rb/)
+      kao(:, 2,10, 3) = (/ &
+     &2.6771e-04_rb,8.8993e-04_rb,1.0956e-03_rb,1.2259e-03_rb,1.2971e-03_rb,1.3020e-03_rb, &
+     &1.2785e-03_rb,1.2036e-03_rb,7.5718e-04_rb/)
+      kao(:, 3,10, 3) = (/ &
+     &3.0294e-04_rb,9.8041e-04_rb,1.2123e-03_rb,1.3475e-03_rb,1.4168e-03_rb,1.4273e-03_rb, &
+     &1.4006e-03_rb,1.3282e-03_rb,8.5838e-04_rb/)
+      kao(:, 4,10, 3) = (/ &
+     &3.4186e-04_rb,1.0838e-03_rb,1.3329e-03_rb,1.4855e-03_rb,1.5514e-03_rb,1.5775e-03_rb, &
+     &1.5302e-03_rb,1.4297e-03_rb,9.7732e-04_rb/)
+      kao(:, 5,10, 3) = (/ &
+     &3.7940e-04_rb,1.2006e-03_rb,1.4657e-03_rb,1.6333e-03_rb,1.7070e-03_rb,1.7269e-03_rb, &
+     &1.6832e-03_rb,1.5552e-03_rb,1.1108e-03_rb/)
+      kao(:, 1,11, 3) = (/ &
+     &4.1370e-04_rb,1.0481e-03_rb,1.2382e-03_rb,1.3193e-03_rb,1.3405e-03_rb,1.3128e-03_rb, &
+     &1.2136e-03_rb,1.0530e-03_rb,7.9947e-04_rb/)
+      kao(:, 2,11, 3) = (/ &
+     &4.6551e-04_rb,1.1702e-03_rb,1.3813e-03_rb,1.4636e-03_rb,1.4831e-03_rb,1.4472e-03_rb, &
+     &1.3317e-03_rb,1.1447e-03_rb,9.1716e-04_rb/)
+      kao(:, 3,11, 3) = (/ &
+     &5.2337e-04_rb,1.3114e-03_rb,1.5380e-03_rb,1.6111e-03_rb,1.6417e-03_rb,1.5910e-03_rb, &
+     &1.4641e-03_rb,1.2585e-03_rb,1.0575e-03_rb/)
+      kao(:, 4,11, 3) = (/ &
+     &5.8236e-04_rb,1.4612e-03_rb,1.6981e-03_rb,1.7829e-03_rb,1.8015e-03_rb,1.7452e-03_rb, &
+     &1.6069e-03_rb,1.3761e-03_rb,1.2010e-03_rb/)
+      kao(:, 5,11, 3) = (/ &
+     &6.7131e-04_rb,1.6254e-03_rb,1.8811e-03_rb,1.9666e-03_rb,1.9744e-03_rb,1.9137e-03_rb, &
+     &1.7677e-03_rb,1.5105e-03_rb,1.3428e-03_rb/)
+      kao(:, 1,12, 3) = (/ &
+     &5.0548e-04_rb,1.1217e-03_rb,1.2964e-03_rb,1.3785e-03_rb,1.3692e-03_rb,1.2935e-03_rb, &
+     &1.1705e-03_rb,9.6704e-04_rb,8.2680e-04_rb/)
+      kao(:, 2,12, 3) = (/ &
+     &5.7320e-04_rb,1.2560e-03_rb,1.4612e-03_rb,1.5290e-03_rb,1.5133e-03_rb,1.4345e-03_rb, &
+     &1.2992e-03_rb,1.0595e-03_rb,9.5961e-04_rb/)
+      kao(:, 3,12, 3) = (/ &
+     &6.3853e-04_rb,1.4125e-03_rb,1.6378e-03_rb,1.6918e-03_rb,1.6663e-03_rb,1.5909e-03_rb, &
+     &1.4283e-03_rb,1.1648e-03_rb,1.0789e-03_rb/)
+      kao(:, 4,12, 3) = (/ &
+     &7.1367e-04_rb,1.5888e-03_rb,1.8194e-03_rb,1.8745e-03_rb,1.8358e-03_rb,1.7471e-03_rb, &
+     &1.5691e-03_rb,1.2862e-03_rb,1.2039e-03_rb/)
+      kao(:, 5,12, 3) = (/ &
+     &8.2207e-04_rb,1.7742e-03_rb,2.0103e-03_rb,2.0603e-03_rb,2.0193e-03_rb,1.9194e-03_rb, &
+     &1.7244e-03_rb,1.4199e-03_rb,1.3514e-03_rb/)
+      kao(:, 1,13, 3) = (/ &
+     &5.0420e-04_rb,1.0317e-03_rb,1.1965e-03_rb,1.2627e-03_rb,1.2425e-03_rb,1.1623e-03_rb, &
+     &1.0397e-03_rb,8.4556e-04_rb,7.6156e-04_rb/)
+      kao(:, 2,13, 3) = (/ &
+     &5.6808e-04_rb,1.1670e-03_rb,1.3463e-03_rb,1.4009e-03_rb,1.3701e-03_rb,1.2956e-03_rb, &
+     &1.1567e-03_rb,9.3024e-04_rb,8.8050e-04_rb/)
+      kao(:, 3,13, 3) = (/ &
+     &6.1838e-04_rb,1.3214e-03_rb,1.5180e-03_rb,1.5502e-03_rb,1.5020e-03_rb,1.4361e-03_rb, &
+     &1.2780e-03_rb,1.0272e-03_rb,9.9967e-04_rb/)
+      kao(:, 4,13, 3) = (/ &
+     &7.0527e-04_rb,1.4908e-03_rb,1.6794e-03_rb,1.7102e-03_rb,1.6621e-03_rb,1.5793e-03_rb, &
+     &1.4142e-03_rb,1.1355e-03_rb,1.1267e-03_rb/)
+      kao(:, 5,13, 3) = (/ &
+     &8.1247e-04_rb,1.6340e-03_rb,1.8549e-03_rb,1.8870e-03_rb,1.8374e-03_rb,1.7298e-03_rb, &
+     &1.5606e-03_rb,1.2534e-03_rb,1.2510e-03_rb/)
+      kao(:, 1, 1, 4) = (/ &
+     &7.9349e-07_rb,1.0718e-03_rb,2.1076e-03_rb,3.1773e-03_rb,4.3493e-03_rb,5.6505e-03_rb, &
+     &7.2449e-03_rb,1.0124e-02_rb,8.6807e-03_rb/)
+      kao(:, 2, 1, 4) = (/ &
+     &7.9171e-07_rb,1.1405e-03_rb,2.2617e-03_rb,3.4209e-03_rb,4.6727e-03_rb,6.0666e-03_rb, &
+     &7.8396e-03_rb,1.0702e-02_rb,9.3285e-03_rb/)
+      kao(:, 3, 1, 4) = (/ &
+     &8.3534e-07_rb,1.2022e-03_rb,2.3697e-03_rb,3.6079e-03_rb,4.9651e-03_rb,6.4864e-03_rb, &
+     &8.3654e-03_rb,1.1513e-02_rb,9.9193e-03_rb/)
+      kao(:, 4, 1, 4) = (/ &
+     &9.5267e-07_rb,1.2723e-03_rb,2.4978e-03_rb,3.7943e-03_rb,5.1994e-03_rb,6.8025e-03_rb, &
+     &8.8715e-03_rb,1.2190e-02_rb,1.0375e-02_rb/)
+      kao(:, 5, 1, 4) = (/ &
+     &1.1458e-06_rb,1.3554e-03_rb,2.6484e-03_rb,4.0109e-03_rb,5.4856e-03_rb,7.1578e-03_rb, &
+     &9.2726e-03_rb,1.2904e-02_rb,1.0954e-02_rb/)
+      kao(:, 1, 2, 4) = (/ &
+     &9.1454e-07_rb,9.0539e-04_rb,1.7315e-03_rb,2.5817e-03_rb,3.4611e-03_rb,4.4469e-03_rb, &
+     &5.5705e-03_rb,7.4448e-03_rb,6.8782e-03_rb/)
+      kao(:, 2, 2, 4) = (/ &
+     &9.5187e-07_rb,9.6041e-04_rb,1.8588e-03_rb,2.7755e-03_rb,3.7306e-03_rb,4.7775e-03_rb, &
+     &6.0319e-03_rb,7.9894e-03_rb,7.4238e-03_rb/)
+      kao(:, 3, 2, 4) = (/ &
+     &1.1150e-06_rb,1.0164e-03_rb,1.9573e-03_rb,2.9264e-03_rb,3.9480e-03_rb,5.1214e-03_rb, &
+     &6.4611e-03_rb,8.5702e-03_rb,7.8654e-03_rb/)
+      kao(:, 4, 2, 4) = (/ &
+     &1.3385e-06_rb,1.0876e-03_rb,2.0659e-03_rb,3.0814e-03_rb,4.1574e-03_rb,5.3507e-03_rb, &
+     &6.8052e-03_rb,9.1287e-03_rb,8.2842e-03_rb/)
+      kao(:, 5, 2, 4) = (/ &
+     &1.6022e-06_rb,1.1568e-03_rb,2.2052e-03_rb,3.2703e-03_rb,4.4002e-03_rb,5.6510e-03_rb, &
+     &7.1684e-03_rb,9.6207e-03_rb,8.7667e-03_rb/)
+      kao(:, 1, 3, 4) = (/ &
+     &1.5574e-06_rb,7.6371e-04_rb,1.4483e-03_rb,2.1006e-03_rb,2.7598e-03_rb,3.4620e-03_rb, &
+     &4.1959e-03_rb,5.2056e-03_rb,5.3344e-03_rb/)
+      kao(:, 2, 3, 4) = (/ &
+     &1.7591e-06_rb,8.1114e-04_rb,1.5471e-03_rb,2.2761e-03_rb,2.9860e-03_rb,3.7307e-03_rb, &
+     &4.5489e-03_rb,5.7315e-03_rb,5.7929e-03_rb/)
+      kao(:, 3, 3, 4) = (/ &
+     &2.0958e-06_rb,8.7335e-04_rb,1.6413e-03_rb,2.3988e-03_rb,3.1565e-03_rb,3.9689e-03_rb, &
+     &4.8920e-03_rb,6.1466e-03_rb,6.1501e-03_rb/)
+      kao(:, 4, 3, 4) = (/ &
+     &2.4948e-06_rb,9.3193e-04_rb,1.7550e-03_rb,2.5427e-03_rb,3.3388e-03_rb,4.1838e-03_rb, &
+     &5.1384e-03_rb,6.5670e-03_rb,6.5006e-03_rb/)
+      kao(:, 5, 3, 4) = (/ &
+     &2.9808e-06_rb,9.8734e-04_rb,1.8752e-03_rb,2.7256e-03_rb,3.5562e-03_rb,4.4297e-03_rb, &
+     &5.4345e-03_rb,6.8804e-03_rb,6.9100e-03_rb/)
+      kao(:, 1, 4, 4) = (/ &
+     &2.8339e-06_rb,6.5550e-04_rb,1.2204e-03_rb,1.7505e-03_rb,2.2569e-03_rb,2.7626e-03_rb, &
+     &3.2755e-03_rb,3.8524e-03_rb,4.1315e-03_rb/)
+      kao(:, 2, 4, 4) = (/ &
+     &3.2988e-06_rb,7.0845e-04_rb,1.2966e-03_rb,1.8754e-03_rb,2.4581e-03_rb,3.0020e-03_rb, &
+     &3.5639e-03_rb,4.2448e-03_rb,4.5130e-03_rb/)
+      kao(:, 3, 4, 4) = (/ &
+     &3.9491e-06_rb,7.6198e-04_rb,1.3871e-03_rb,1.9942e-03_rb,2.6023e-03_rb,3.1978e-03_rb, &
+     &3.8488e-03_rb,4.5802e-03_rb,4.8443e-03_rb/)
+      kao(:, 4, 4, 4) = (/ &
+     &4.6425e-06_rb,8.1982e-04_rb,1.4902e-03_rb,2.1380e-03_rb,2.7710e-03_rb,3.3974e-03_rb, &
+     &4.0487e-03_rb,4.8659e-03_rb,5.1413e-03_rb/)
+      kao(:, 5, 4, 4) = (/ &
+     &5.6265e-06_rb,8.8017e-04_rb,1.5882e-03_rb,2.2893e-03_rb,2.9763e-03_rb,3.6352e-03_rb, &
+     &4.2916e-03_rb,5.1439e-03_rb,5.4622e-03_rb/)
+      kao(:, 1, 5, 4) = (/ &
+     &4.8447e-06_rb,5.8594e-04_rb,1.0296e-03_rb,1.4656e-03_rb,1.8696e-03_rb,2.2619e-03_rb, &
+     &2.6388e-03_rb,3.0084e-03_rb,3.1950e-03_rb/)
+      kao(:, 2, 5, 4) = (/ &
+     &5.5680e-06_rb,6.3350e-04_rb,1.1054e-03_rb,1.5640e-03_rb,2.0148e-03_rb,2.4702e-03_rb, &
+     &2.8772e-03_rb,3.3130e-03_rb,3.5193e-03_rb/)
+      kao(:, 3, 5, 4) = (/ &
+     &6.5723e-06_rb,6.8615e-04_rb,1.1977e-03_rb,1.6753e-03_rb,2.1497e-03_rb,2.6254e-03_rb, &
+     &3.0969e-03_rb,3.5912e-03_rb,3.8422e-03_rb/)
+      kao(:, 4, 5, 4) = (/ &
+     &7.8530e-06_rb,7.4277e-04_rb,1.2884e-03_rb,1.8101e-03_rb,2.3101e-03_rb,2.7992e-03_rb, &
+     &3.2952e-03_rb,3.8151e-03_rb,4.0689e-03_rb/)
+      kao(:, 5, 5, 4) = (/ &
+     &9.4527e-06_rb,8.0105e-04_rb,1.3871e-03_rb,1.9371e-03_rb,2.4908e-03_rb,3.0121e-03_rb, &
+     &3.5288e-03_rb,4.0532e-03_rb,4.3486e-03_rb/)
+      kao(:, 1, 6, 4) = (/ &
+     &7.9687e-06_rb,5.4507e-04_rb,8.9513e-04_rb,1.2382e-03_rb,1.5589e-03_rb,1.8510e-03_rb, &
+     &2.1398e-03_rb,2.3860e-03_rb,2.4635e-03_rb/)
+      kao(:, 2, 6, 4) = (/ &
+     &8.8712e-06_rb,5.9098e-04_rb,9.7039e-04_rb,1.3235e-03_rb,1.6755e-03_rb,2.0285e-03_rb, &
+     &2.3501e-03_rb,2.6411e-03_rb,2.7555e-03_rb/)
+      kao(:, 3, 6, 4) = (/ &
+     &1.0300e-05_rb,6.3947e-04_rb,1.0497e-03_rb,1.4366e-03_rb,1.7944e-03_rb,2.1608e-03_rb, &
+     &2.5184e-03_rb,2.8809e-03_rb,3.0211e-03_rb/)
+      kao(:, 4, 6, 4) = (/ &
+     &1.2171e-05_rb,6.9277e-04_rb,1.1370e-03_rb,1.5510e-03_rb,1.9450e-03_rb,2.3217e-03_rb, &
+     &2.6890e-03_rb,3.0692e-03_rb,3.2284e-03_rb/)
+      kao(:, 5, 6, 4) = (/ &
+     &1.4564e-05_rb,7.4600e-04_rb,1.2318e-03_rb,1.6801e-03_rb,2.0948e-03_rb,2.5115e-03_rb, &
+     &2.8923e-03_rb,3.2756e-03_rb,3.4483e-03_rb/)
+      kao(:, 1, 7, 4) = (/ &
+     &1.3302e-05_rb,5.5386e-04_rb,8.3382e-04_rb,1.0993e-03_rb,1.3564e-03_rb,1.5663e-03_rb, &
+     &1.7522e-03_rb,1.9212e-03_rb,1.8928e-03_rb/)
+      kao(:, 2, 7, 4) = (/ &
+     &1.5137e-05_rb,6.0362e-04_rb,9.0303e-04_rb,1.1816e-03_rb,1.4350e-03_rb,1.6949e-03_rb, &
+     &1.9391e-03_rb,2.1345e-03_rb,2.1400e-03_rb/)
+      kao(:, 3, 7, 4) = (/ &
+     &1.7393e-05_rb,6.5556e-04_rb,9.7760e-04_rb,1.2752e-03_rb,1.5638e-03_rb,1.8142e-03_rb, &
+     &2.0760e-03_rb,2.3419e-03_rb,2.3618e-03_rb/)
+      kao(:, 4, 7, 4) = (/ &
+     &2.0190e-05_rb,7.0877e-04_rb,1.0583e-03_rb,1.3832e-03_rb,1.6934e-03_rb,1.9720e-03_rb, &
+     &2.2273e-03_rb,2.4896e-03_rb,2.5682e-03_rb/)
+      kao(:, 5, 7, 4) = (/ &
+     &2.3865e-05_rb,7.6246e-04_rb,1.1476e-03_rb,1.5003e-03_rb,1.8325e-03_rb,2.1363e-03_rb, &
+     &2.4216e-03_rb,2.6647e-03_rb,2.7377e-03_rb/)
+      kao(:, 1, 8, 4) = (/ &
+     &2.8723e-05_rb,5.8785e-04_rb,8.8654e-04_rb,1.0769e-03_rb,1.2579e-03_rb,1.4310e-03_rb, &
+     &1.5394e-03_rb,1.5987e-03_rb,1.4479e-03_rb/)
+      kao(:, 2, 8, 4) = (/ &
+     &3.1951e-05_rb,6.5934e-04_rb,9.7493e-04_rb,1.1672e-03_rb,1.3594e-03_rb,1.5243e-03_rb, &
+     &1.6749e-03_rb,1.7779e-03_rb,1.6535e-03_rb/)
+      kao(:, 3, 8, 4) = (/ &
+     &3.6028e-05_rb,7.3349e-04_rb,1.0597e-03_rb,1.2704e-03_rb,1.4675e-03_rb,1.6499e-03_rb, &
+     &1.7965e-03_rb,1.9280e-03_rb,1.8443e-03_rb/)
+      kao(:, 4, 8, 4) = (/ &
+     &4.1972e-05_rb,7.9901e-04_rb,1.1534e-03_rb,1.3845e-03_rb,1.5898e-03_rb,1.7819e-03_rb, &
+     &1.9610e-03_rb,2.0652e-03_rb,2.0278e-03_rb/)
+      kao(:, 5, 8, 4) = (/ &
+     &4.8818e-05_rb,8.6068e-04_rb,1.2469e-03_rb,1.5029e-03_rb,1.7252e-03_rb,1.9359e-03_rb, &
+     &2.1153e-03_rb,2.2493e-03_rb,2.1613e-03_rb/)
+      kao(:, 1, 9, 4) = (/ &
+     &1.2151e-04_rb,7.9394e-04_rb,1.1551e-03_rb,1.4165e-03_rb,1.6142e-03_rb,1.6912e-03_rb, &
+     &1.6602e-03_rb,1.6194e-03_rb,1.1991e-03_rb/)
+      kao(:, 2, 9, 4) = (/ &
+     &1.3408e-04_rb,8.8305e-04_rb,1.2970e-03_rb,1.6023e-03_rb,1.7938e-03_rb,1.8665e-03_rb, &
+     &1.8031e-03_rb,1.7264e-03_rb,1.3714e-03_rb/)
+      kao(:, 3, 9, 4) = (/ &
+     &1.5040e-04_rb,9.7901e-04_rb,1.4287e-03_rb,1.7867e-03_rb,2.0033e-03_rb,2.0339e-03_rb, &
+     &1.9620e-03_rb,1.8611e-03_rb,1.5284e-03_rb/)
+      kao(:, 4, 9, 4) = (/ &
+     &1.6901e-04_rb,1.0844e-03_rb,1.5638e-03_rb,1.9651e-03_rb,2.1812e-03_rb,2.2146e-03_rb, &
+     &2.1459e-03_rb,2.0086e-03_rb,1.6589e-03_rb/)
+      kao(:, 5, 9, 4) = (/ &
+     &1.9165e-04_rb,1.1941e-03_rb,1.7106e-03_rb,2.1260e-03_rb,2.3624e-03_rb,2.4142e-03_rb, &
+     &2.3405e-03_rb,2.1792e-03_rb,1.8085e-03_rb/)
+      kao(:, 1,10, 4) = (/ &
+     &5.9868e-04_rb,1.5993e-03_rb,1.9364e-03_rb,2.1129e-03_rb,2.2524e-03_rb,2.3246e-03_rb, &
+     &2.2594e-03_rb,2.0146e-03_rb,1.3568e-03_rb/)
+      kao(:, 2,10, 4) = (/ &
+     &6.6752e-04_rb,1.7567e-03_rb,2.1277e-03_rb,2.3435e-03_rb,2.4977e-03_rb,2.6109e-03_rb, &
+     &2.5681e-03_rb,2.2608e-03_rb,1.5177e-03_rb/)
+      kao(:, 3,10, 4) = (/ &
+     &7.4901e-04_rb,1.9228e-03_rb,2.3324e-03_rb,2.5957e-03_rb,2.7706e-03_rb,2.8949e-03_rb, &
+     &2.8715e-03_rb,2.4740e-03_rb,1.6681e-03_rb/)
+      kao(:, 4,10, 4) = (/ &
+     &8.4268e-04_rb,2.1035e-03_rb,2.5651e-03_rb,2.8675e-03_rb,3.0553e-03_rb,3.1760e-03_rb, &
+     &3.1745e-03_rb,2.7207e-03_rb,1.8575e-03_rb/)
+      kao(:, 5,10, 4) = (/ &
+     &9.4245e-04_rb,2.2879e-03_rb,2.8080e-03_rb,3.1494e-03_rb,3.3540e-03_rb,3.4813e-03_rb, &
+     &3.4487e-03_rb,2.9536e-03_rb,2.0691e-03_rb/)
+      kao(:, 1,11, 4) = (/ &
+     &1.0805e-03_rb,2.1148e-03_rb,2.4220e-03_rb,2.5310e-03_rb,2.5389e-03_rb,2.4625e-03_rb, &
+     &2.3509e-03_rb,2.0401e-03_rb,1.4417e-03_rb/)
+      kao(:, 2,11, 4) = (/ &
+     &1.2248e-03_rb,2.3043e-03_rb,2.6421e-03_rb,2.7805e-03_rb,2.8051e-03_rb,2.7290e-03_rb, &
+     &2.6298e-03_rb,2.3094e-03_rb,1.6718e-03_rb/)
+      kao(:, 3,11, 4) = (/ &
+     &1.3919e-03_rb,2.5018e-03_rb,2.8694e-03_rb,3.0522e-03_rb,3.0921e-03_rb,3.0140e-03_rb, &
+     &2.9024e-03_rb,2.5763e-03_rb,1.8644e-03_rb/)
+      kao(:, 4,11, 4) = (/ &
+     &1.5591e-03_rb,2.7193e-03_rb,3.1319e-03_rb,3.3417e-03_rb,3.3992e-03_rb,3.3292e-03_rb, &
+     &3.1865e-03_rb,2.8388e-03_rb,2.0955e-03_rb/)
+      kao(:, 5,11, 4) = (/ &
+     &1.7150e-03_rb,2.9473e-03_rb,3.3980e-03_rb,3.6551e-03_rb,3.7158e-03_rb,3.6708e-03_rb, &
+     &3.4907e-03_rb,3.0872e-03_rb,2.3494e-03_rb/)
+      kao(:, 1,12, 4) = (/ &
+     &1.3897e-03_rb,2.3284e-03_rb,2.5562e-03_rb,2.6114e-03_rb,2.5756e-03_rb,2.4579e-03_rb, &
+     &2.2328e-03_rb,1.8907e-03_rb,1.4460e-03_rb/)
+      kao(:, 2,12, 4) = (/ &
+     &1.5697e-03_rb,2.5462e-03_rb,2.7773e-03_rb,2.8739e-03_rb,2.8515e-03_rb,2.7127e-03_rb, &
+     &2.4702e-03_rb,2.1317e-03_rb,1.6710e-03_rb/)
+      kao(:, 3,12, 4) = (/ &
+     &1.7564e-03_rb,2.7736e-03_rb,3.0368e-03_rb,3.1575e-03_rb,3.1336e-03_rb,2.9932e-03_rb, &
+     &2.7316e-03_rb,2.3689e-03_rb,1.9165e-03_rb/)
+      kao(:, 4,12, 4) = (/ &
+     &1.9373e-03_rb,3.0028e-03_rb,3.3026e-03_rb,3.4473e-03_rb,3.4197e-03_rb,3.2885e-03_rb, &
+     &3.0105e-03_rb,2.5975e-03_rb,2.1734e-03_rb/)
+      kao(:, 5,12, 4) = (/ &
+     &2.1103e-03_rb,3.2861e-03_rb,3.6126e-03_rb,3.7579e-03_rb,3.7472e-03_rb,3.5983e-03_rb, &
+     &3.3137e-03_rb,2.8243e-03_rb,2.4241e-03_rb/)
+      kao(:, 1,13, 4) = (/ &
+     &1.4034e-03_rb,2.2073e-03_rb,2.3423e-03_rb,2.3940e-03_rb,2.3352e-03_rb,2.2289e-03_rb, &
+     &1.9861e-03_rb,1.6453e-03_rb,1.3641e-03_rb/)
+      kao(:, 2,13, 4) = (/ &
+     &1.5468e-03_rb,2.3993e-03_rb,2.5715e-03_rb,2.6353e-03_rb,2.5905e-03_rb,2.4689e-03_rb, &
+     &2.2035e-03_rb,1.8516e-03_rb,1.5595e-03_rb/)
+      kao(:, 3,13, 4) = (/ &
+     &1.7054e-03_rb,2.6002e-03_rb,2.8041e-03_rb,2.9001e-03_rb,2.8726e-03_rb,2.7020e-03_rb, &
+     &2.4437e-03_rb,2.0505e-03_rb,1.7798e-03_rb/)
+      kao(:, 4,13, 4) = (/ &
+     &1.8746e-03_rb,2.8344e-03_rb,3.0758e-03_rb,3.1886e-03_rb,3.1543e-03_rb,2.9591e-03_rb, &
+     &2.7010e-03_rb,2.2473e-03_rb,2.0185e-03_rb/)
+      kao(:, 5,13, 4) = (/ &
+     &2.0493e-03_rb,3.1290e-03_rb,3.3711e-03_rb,3.5047e-03_rb,3.4626e-03_rb,3.2529e-03_rb, &
+     &2.9617e-03_rb,2.4466e-03_rb,2.2855e-03_rb/)
+      kao(:, 1, 1, 5) = (/ &
+     &2.7288e-06_rb,2.0772e-03_rb,4.1339e-03_rb,6.3040e-03_rb,8.6169e-03_rb,1.1216e-02_rb, &
+     &1.4425e-02_rb,1.9774e-02_rb,1.7219e-02_rb/)
+      kao(:, 2, 1, 5) = (/ &
+     &3.1343e-06_rb,2.2547e-03_rb,4.4747e-03_rb,6.8269e-03_rb,9.3305e-03_rb,1.2134e-02_rb, &
+     &1.5662e-02_rb,2.1511e-02_rb,1.8646e-02_rb/)
+      kao(:, 3, 1, 5) = (/ &
+     &3.5230e-06_rb,2.4421e-03_rb,4.8659e-03_rb,7.3919e-03_rb,1.0064e-02_rb,1.3080e-02_rb, &
+     &1.6864e-02_rb,2.3200e-02_rb,2.0105e-02_rb/)
+      kao(:, 4, 1, 5) = (/ &
+     &3.8970e-06_rb,2.6162e-03_rb,5.2335e-03_rb,7.9722e-03_rb,1.0895e-02_rb,1.4129e-02_rb, &
+     &1.8093e-02_rb,2.4994e-02_rb,2.1780e-02_rb/)
+      kao(:, 5, 1, 5) = (/ &
+     &4.2153e-06_rb,2.7842e-03_rb,5.5880e-03_rb,8.5221e-03_rb,1.1648e-02_rb,1.5136e-02_rb, &
+     &1.9474e-02_rb,2.6742e-02_rb,2.3280e-02_rb/)
+      kao(:, 1, 2, 5) = (/ &
+     &3.8170e-06_rb,1.7299e-03_rb,3.3770e-03_rb,5.0561e-03_rb,6.8488e-03_rb,8.8137e-03_rb, &
+     &1.1142e-02_rb,1.4709e-02_rb,1.3674e-02_rb/)
+      kao(:, 2, 2, 5) = (/ &
+     &4.3252e-06_rb,1.8890e-03_rb,3.6509e-03_rb,5.4769e-03_rb,7.4269e-03_rb,9.5439e-03_rb, &
+     &1.2081e-02_rb,1.6033e-02_rb,1.4831e-02_rb/)
+      kao(:, 3, 2, 5) = (/ &
+     &4.7646e-06_rb,2.0435e-03_rb,3.9774e-03_rb,5.9664e-03_rb,8.0622e-03_rb,1.0295e-02_rb, &
+     &1.3026e-02_rb,1.7373e-02_rb,1.6093e-02_rb/)
+      kao(:, 4, 2, 5) = (/ &
+     &5.2162e-06_rb,2.1898e-03_rb,4.2814e-03_rb,6.4462e-03_rb,8.7251e-03_rb,1.1197e-02_rb, &
+     &1.4093e-02_rb,1.8642e-02_rb,1.7418e-02_rb/)
+      kao(:, 5, 2, 5) = (/ &
+     &5.6571e-06_rb,2.3346e-03_rb,4.5674e-03_rb,6.8936e-03_rb,9.3452e-03_rb,1.2004e-02_rb, &
+     &1.5146e-02_rb,2.0072e-02_rb,1.8662e-02_rb/)
+      kao(:, 1, 3, 5) = (/ &
+     &6.7841e-06_rb,1.4874e-03_rb,2.7805e-03_rb,4.0760e-03_rb,5.3909e-03_rb,6.7517e-03_rb, &
+     &8.3542e-03_rb,1.0487e-02_rb,1.0633e-02_rb/)
+      kao(:, 2, 3, 5) = (/ &
+     &7.5652e-06_rb,1.6242e-03_rb,3.0372e-03_rb,4.4125e-03_rb,5.8428e-03_rb,7.3572e-03_rb, &
+     &9.0599e-03_rb,1.1418e-02_rb,1.1564e-02_rb/)
+      kao(:, 3, 3, 5) = (/ &
+     &8.3338e-06_rb,1.7491e-03_rb,3.3027e-03_rb,4.8269e-03_rb,6.3750e-03_rb,7.9902e-03_rb, &
+     &9.8070e-03_rb,1.2345e-02_rb,1.2611e-02_rb/)
+      kao(:, 4, 3, 5) = (/ &
+     &9.1322e-06_rb,1.8750e-03_rb,3.5479e-03_rb,5.2057e-03_rb,6.8969e-03_rb,8.6842e-03_rb, &
+     &1.0693e-02_rb,1.3305e-02_rb,1.3678e-02_rb/)
+      kao(:, 5, 3, 5) = (/ &
+     &9.9531e-06_rb,2.0097e-03_rb,3.7981e-03_rb,5.5735e-03_rb,7.4004e-03_rb,9.3447e-03_rb, &
+     &1.1509e-02_rb,1.4423e-02_rb,1.4706e-02_rb/)
+      kao(:, 1, 4, 5) = (/ &
+     &1.2103e-05_rb,1.3043e-03_rb,2.3537e-03_rb,3.3772e-03_rb,4.3942e-03_rb,5.3862e-03_rb, &
+     &6.4402e-03_rb,7.7504e-03_rb,8.3034e-03_rb/)
+      kao(:, 2, 4, 5) = (/ &
+     &1.3453e-05_rb,1.4203e-03_rb,2.5925e-03_rb,3.7016e-03_rb,4.7682e-03_rb,5.8654e-03_rb, &
+     &7.0102e-03_rb,8.4347e-03_rb,9.0709e-03_rb/)
+      kao(:, 3, 4, 5) = (/ &
+     &1.4828e-05_rb,1.5367e-03_rb,2.8071e-03_rb,4.0356e-03_rb,5.2345e-03_rb,6.4096e-03_rb, &
+     &7.5937e-03_rb,9.1611e-03_rb,9.8978e-03_rb/)
+      kao(:, 4, 4, 5) = (/ &
+     &1.6265e-05_rb,1.6502e-03_rb,3.0181e-03_rb,4.3485e-03_rb,5.6510e-03_rb,6.9455e-03_rb, &
+     &8.2885e-03_rb,9.9540e-03_rb,1.0767e-02_rb/)
+      kao(:, 5, 4, 5) = (/ &
+     &1.7755e-05_rb,1.7615e-03_rb,3.2390e-03_rb,4.6692e-03_rb,6.0695e-03_rb,7.4667e-03_rb, &
+     &8.9542e-03_rb,1.0781e-02_rb,1.1635e-02_rb/)
+      kao(:, 1, 5, 5) = (/ &
+     &2.0332e-05_rb,1.1698e-03_rb,2.0394e-03_rb,2.8422e-03_rb,3.6398e-03_rb,4.4106e-03_rb, &
+     &5.1682e-03_rb,5.9629e-03_rb,6.5029e-03_rb/)
+      kao(:, 2, 5, 5) = (/ &
+     &2.2530e-05_rb,1.2736e-03_rb,2.2339e-03_rb,3.1431e-03_rb,3.9975e-03_rb,4.8072e-03_rb, &
+     &5.6451e-03_rb,6.5119e-03_rb,7.1285e-03_rb/)
+      kao(:, 3, 5, 5) = (/ &
+     &2.4796e-05_rb,1.3790e-03_rb,2.4265e-03_rb,3.4174e-03_rb,4.3749e-03_rb,5.2936e-03_rb, &
+     &6.1677e-03_rb,7.0807e-03_rb,7.7613e-03_rb/)
+      kao(:, 4, 5, 5) = (/ &
+     &2.7075e-05_rb,1.4796e-03_rb,2.6222e-03_rb,3.6840e-03_rb,4.7300e-03_rb,5.7397e-03_rb, &
+     &6.7237e-03_rb,7.7301e-03_rb,8.5090e-03_rb/)
+      kao(:, 5, 5, 5) = (/ &
+     &2.9544e-05_rb,1.5786e-03_rb,2.8146e-03_rb,3.9658e-03_rb,5.0797e-03_rb,6.1834e-03_rb, &
+     &7.2517e-03_rb,8.3791e-03_rb,9.2155e-03_rb/)
+      kao(:, 1, 6, 5) = (/ &
+     &3.1599e-05_rb,1.0623e-03_rb,1.7784e-03_rb,2.4227e-03_rb,3.0276e-03_rb,3.6296e-03_rb, &
+     &4.1838e-03_rb,4.7343e-03_rb,5.0477e-03_rb/)
+      kao(:, 2, 6, 5) = (/ &
+     &3.5232e-05_rb,1.1598e-03_rb,1.9531e-03_rb,2.6761e-03_rb,3.3625e-03_rb,3.9768e-03_rb, &
+     &4.5866e-03_rb,5.2016e-03_rb,5.5671e-03_rb/)
+      kao(:, 3, 6, 5) = (/ &
+     &3.8902e-05_rb,1.2546e-03_rb,2.1314e-03_rb,2.9272e-03_rb,3.6836e-03_rb,4.3880e-03_rb, &
+     &5.0585e-03_rb,5.6644e-03_rb,6.0941e-03_rb/)
+      kao(:, 4, 6, 5) = (/ &
+     &4.2647e-05_rb,1.3467e-03_rb,2.3051e-03_rb,3.1735e-03_rb,3.9922e-03_rb,4.7680e-03_rb, &
+     &5.5151e-03_rb,6.2191e-03_rb,6.7036e-03_rb/)
+      kao(:, 5, 6, 5) = (/ &
+     &4.6653e-05_rb,1.4422e-03_rb,2.4729e-03_rb,3.4216e-03_rb,4.3101e-03_rb,5.1401e-03_rb, &
+     &5.9675e-03_rb,6.7430e-03_rb,7.2989e-03_rb/)
+      kao(:, 1, 7, 5) = (/ &
+     &5.0846e-05_rb,1.0315e-03_rb,1.6111e-03_rb,2.1236e-03_rb,2.5799e-03_rb,3.0310e-03_rb, &
+     &3.4624e-03_rb,3.8172e-03_rb,3.8938e-03_rb/)
+      kao(:, 2, 7, 5) = (/ &
+     &5.6601e-05_rb,1.1149e-03_rb,1.7798e-03_rb,2.3658e-03_rb,2.8898e-03_rb,3.3716e-03_rb, &
+     &3.7952e-03_rb,4.1967e-03_rb,4.3621e-03_rb/)
+      kao(:, 3, 7, 5) = (/ &
+     &6.2823e-05_rb,1.2046e-03_rb,1.9431e-03_rb,2.5998e-03_rb,3.1765e-03_rb,3.7177e-03_rb, &
+     &4.2137e-03_rb,4.5955e-03_rb,4.7978e-03_rb/)
+      kao(:, 4, 7, 5) = (/ &
+     &6.9611e-05_rb,1.2957e-03_rb,2.0957e-03_rb,2.8201e-03_rb,3.4636e-03_rb,4.0605e-03_rb, &
+     &4.6007e-03_rb,5.0741e-03_rb,5.2639e-03_rb/)
+      kao(:, 5, 7, 5) = (/ &
+     &7.6939e-05_rb,1.3859e-03_rb,2.2478e-03_rb,3.0375e-03_rb,3.7523e-03_rb,4.4027e-03_rb, &
+     &4.9784e-03_rb,5.5148e-03_rb,5.7724e-03_rb/)
+      kao(:, 1, 8, 5) = (/ &
+     &9.6301e-05_rb,1.1719e-03_rb,1.6543e-03_rb,2.0770e-03_rb,2.3972e-03_rb,2.6733e-03_rb, &
+     &2.9412e-03_rb,3.1694e-03_rb,3.0111e-03_rb/)
+      kao(:, 2, 8, 5) = (/ &
+     &1.0686e-04_rb,1.2764e-03_rb,1.7930e-03_rb,2.2808e-03_rb,2.6778e-03_rb,3.0239e-03_rb, &
+     &3.3001e-03_rb,3.5015e-03_rb,3.3999e-03_rb/)
+      kao(:, 3, 8, 5) = (/ &
+     &1.1947e-04_rb,1.3739e-03_rb,1.9473e-03_rb,2.4712e-03_rb,2.9582e-03_rb,3.3516e-03_rb, &
+     &3.6623e-03_rb,3.8834e-03_rb,3.7468e-03_rb/)
+      kao(:, 4, 8, 5) = (/ &
+     &1.3232e-04_rb,1.4765e-03_rb,2.1012e-03_rb,2.6685e-03_rb,3.2209e-03_rb,3.6672e-03_rb, &
+     &4.0113e-03_rb,4.2720e-03_rb,4.1080e-03_rb/)
+      kao(:, 5, 8, 5) = (/ &
+     &1.4706e-04_rb,1.5789e-03_rb,2.2554e-03_rb,2.8711e-03_rb,3.4655e-03_rb,3.9725e-03_rb, &
+     &4.3795e-03_rb,4.6534e-03_rb,4.5441e-03_rb/)
+      kao(:, 1, 9, 5) = (/ &
+     &3.5361e-04_rb,1.7799e-03_rb,2.5051e-03_rb,2.9026e-03_rb,3.0684e-03_rb,3.1720e-03_rb, &
+     &3.1736e-03_rb,2.9481e-03_rb,2.3479e-03_rb/)
+      kao(:, 2, 9, 5) = (/ &
+     &3.8911e-04_rb,1.9917e-03_rb,2.7818e-03_rb,3.1870e-03_rb,3.3554e-03_rb,3.4634e-03_rb, &
+     &3.5258e-03_rb,3.3674e-03_rb,2.6687e-03_rb/)
+      kao(:, 3, 9, 5) = (/ &
+     &4.2895e-04_rb,2.2031e-03_rb,3.0511e-03_rb,3.4571e-03_rb,3.6423e-03_rb,3.7656e-03_rb, &
+     &3.8544e-03_rb,3.7669e-03_rb,2.9800e-03_rb/)
+      kao(:, 4, 9, 5) = (/ &
+     &4.7521e-04_rb,2.4131e-03_rb,3.3032e-03_rb,3.7275e-03_rb,3.9589e-03_rb,4.0895e-03_rb, &
+     &4.1693e-03_rb,4.1455e-03_rb,3.3334e-03_rb/)
+      kao(:, 5, 9, 5) = (/ &
+     &5.2696e-04_rb,2.6212e-03_rb,3.5469e-03_rb,4.0100e-03_rb,4.2674e-03_rb,4.4062e-03_rb, &
+     &4.4862e-03_rb,4.5098e-03_rb,3.6774e-03_rb/)
+      kao(:, 1,10, 5) = (/ &
+     &1.5564e-03_rb,3.2260e-03_rb,4.0223e-03_rb,4.5990e-03_rb,4.8864e-03_rb,4.9553e-03_rb, &
+     &4.6372e-03_rb,3.8115e-03_rb,2.4163e-03_rb/)
+      kao(:, 2,10, 5) = (/ &
+     &1.6655e-03_rb,3.5530e-03_rb,4.4984e-03_rb,5.1615e-03_rb,5.5140e-03_rb,5.5636e-03_rb, &
+     &5.1458e-03_rb,4.1627e-03_rb,2.8169e-03_rb/)
+      kao(:, 3,10, 5) = (/ &
+     &1.7970e-03_rb,3.9283e-03_rb,4.9975e-03_rb,5.7194e-03_rb,6.1431e-03_rb,6.1500e-03_rb, &
+     &5.6336e-03_rb,4.5688e-03_rb,3.2157e-03_rb/)
+      kao(:, 4,10, 5) = (/ &
+     &1.9389e-03_rb,4.3419e-03_rb,5.5082e-03_rb,6.3036e-03_rb,6.7602e-03_rb,6.7061e-03_rb, &
+     &6.1219e-03_rb,4.9831e-03_rb,3.5478e-03_rb/)
+      kao(:, 5,10, 5) = (/ &
+     &2.1200e-03_rb,4.8101e-03_rb,6.0597e-03_rb,6.9046e-03_rb,7.3538e-03_rb,7.2522e-03_rb, &
+     &6.6229e-03_rb,5.4082e-03_rb,3.8617e-03_rb/)
+      kao(:, 1,11, 5) = (/ &
+     &2.5844e-03_rb,4.2072e-03_rb,4.7201e-03_rb,5.1141e-03_rb,5.3078e-03_rb,5.2931e-03_rb, &
+     &4.9397e-03_rb,3.9983e-03_rb,2.6464e-03_rb/)
+      kao(:, 2,11, 5) = (/ &
+     &2.7239e-03_rb,4.5852e-03_rb,5.1921e-03_rb,5.6631e-03_rb,5.9270e-03_rb,5.9381e-03_rb, &
+     &5.5459e-03_rb,4.4351e-03_rb,2.9283e-03_rb/)
+      kao(:, 3,11, 5) = (/ &
+     &2.8937e-03_rb,4.9994e-03_rb,5.7378e-03_rb,6.2452e-03_rb,6.5647e-03_rb,6.5969e-03_rb, &
+     &6.1297e-03_rb,4.8694e-03_rb,3.2879e-03_rb/)
+      kao(:, 4,11, 5) = (/ &
+     &3.0973e-03_rb,5.4803e-03_rb,6.2977e-03_rb,6.8750e-03_rb,7.2241e-03_rb,7.2627e-03_rb, &
+     &6.7036e-03_rb,5.3184e-03_rb,3.6746e-03_rb/)
+      kao(:, 5,11, 5) = (/ &
+     &3.3444e-03_rb,6.0139e-03_rb,6.9682e-03_rb,7.5496e-03_rb,7.9438e-03_rb,7.9183e-03_rb, &
+     &7.2786e-03_rb,5.7800e-03_rb,4.1120e-03_rb/)
+      kao(:, 1,12, 5) = (/ &
+     &3.1142e-03_rb,4.6509e-03_rb,5.0639e-03_rb,5.2099e-03_rb,5.2596e-03_rb,5.1306e-03_rb, &
+     &4.7167e-03_rb,3.8189e-03_rb,2.7150e-03_rb/)
+      kao(:, 2,12, 5) = (/ &
+     &3.2756e-03_rb,5.0359e-03_rb,5.5390e-03_rb,5.7321e-03_rb,5.8154e-03_rb,5.7214e-03_rb, &
+     &5.2745e-03_rb,4.2400e-03_rb,3.0513e-03_rb/)
+      kao(:, 3,12, 5) = (/ &
+     &3.4985e-03_rb,5.4685e-03_rb,6.0590e-03_rb,6.2917e-03_rb,6.4404e-03_rb,6.3170e-03_rb, &
+     &5.8354e-03_rb,4.6512e-03_rb,3.3763e-03_rb/)
+      kao(:, 4,12, 5) = (/ &
+     &3.7766e-03_rb,5.9630e-03_rb,6.6546e-03_rb,6.9419e-03_rb,7.0961e-03_rb,6.9336e-03_rb, &
+     &6.4037e-03_rb,5.0749e-03_rb,3.7160e-03_rb/)
+      kao(:, 5,12, 5) = (/ &
+     &4.1085e-03_rb,6.5232e-03_rb,7.2797e-03_rb,7.6482e-03_rb,7.7587e-03_rb,7.5770e-03_rb, &
+     &6.9583e-03_rb,5.5150e-03_rb,4.0847e-03_rb/)
+      kao(:, 1,13, 5) = (/ &
+     &2.9969e-03_rb,4.3888e-03_rb,4.7684e-03_rb,4.8307e-03_rb,4.7938e-03_rb,4.5847e-03_rb, &
+     &4.1916e-03_rb,3.3359e-03_rb,2.6072e-03_rb/)
+      kao(:, 2,13, 5) = (/ &
+     &3.2153e-03_rb,4.7897e-03_rb,5.2331e-03_rb,5.3333e-03_rb,5.2913e-03_rb,5.1054e-03_rb, &
+     &4.6633e-03_rb,3.6830e-03_rb,2.9306e-03_rb/)
+      kao(:, 3,13, 5) = (/ &
+     &3.4754e-03_rb,5.2096e-03_rb,5.7373e-03_rb,5.8606e-03_rb,5.8296e-03_rb,5.6492e-03_rb, &
+     &5.1331e-03_rb,4.0274e-03_rb,3.2891e-03_rb/)
+      kao(:, 4,13, 5) = (/ &
+     &3.7596e-03_rb,5.6812e-03_rb,6.2772e-03_rb,6.4413e-03_rb,6.4105e-03_rb,6.2095e-03_rb, &
+     &5.6055e-03_rb,4.3924e-03_rb,3.6856e-03_rb/)
+      kao(:, 5,13, 5) = (/ &
+     &4.1250e-03_rb,6.2069e-03_rb,6.8482e-03_rb,7.0531e-03_rb,7.0243e-03_rb,6.7656e-03_rb, &
+     &6.0849e-03_rb,4.7766e-03_rb,4.1519e-03_rb/)
+      kao(:, 1, 1, 6) = (/ &
+     &8.6000e-06_rb,4.4651e-03_rb,9.0097e-03_rb,1.3704e-02_rb,1.8645e-02_rb,2.4046e-02_rb, &
+     &3.0633e-02_rb,4.1152e-02_rb,3.7281e-02_rb/)
+      kao(:, 2, 1, 6) = (/ &
+     &9.1677e-06_rb,4.8343e-03_rb,9.7595e-03_rb,1.4853e-02_rb,2.0235e-02_rb,2.6158e-02_rb, &
+     &3.3249e-02_rb,4.4739e-02_rb,4.0461e-02_rb/)
+      kao(:, 3, 1, 6) = (/ &
+     &9.7617e-06_rb,5.2064e-03_rb,1.0520e-02_rb,1.6024e-02_rb,2.1831e-02_rb,2.8229e-02_rb, &
+     &3.6006e-02_rb,4.8415e-02_rb,4.3651e-02_rb/)
+      kao(:, 4, 1, 6) = (/ &
+     &1.0395e-05_rb,5.5866e-03_rb,1.1290e-02_rb,1.7191e-02_rb,2.3426e-02_rb,3.0307e-02_rb, &
+     &3.8717e-02_rb,5.2240e-02_rb,4.6842e-02_rb/)
+      kao(:, 5, 1, 6) = (/ &
+     &1.1075e-05_rb,5.9593e-03_rb,1.2050e-02_rb,1.8360e-02_rb,2.5043e-02_rb,3.2426e-02_rb, &
+     &4.1434e-02_rb,5.5912e-02_rb,5.0074e-02_rb/)
+      kao(:, 1, 2, 6) = (/ &
+     &1.1648e-05_rb,3.7355e-03_rb,7.3892e-03_rb,1.1190e-02_rb,1.5132e-02_rb,1.9317e-02_rb, &
+     &2.4213e-02_rb,3.1544e-02_rb,3.0250e-02_rb/)
+      kao(:, 2, 2, 6) = (/ &
+     &1.2445e-05_rb,4.0410e-03_rb,8.0302e-03_rb,1.2160e-02_rb,1.6448e-02_rb,2.1055e-02_rb, &
+     &2.6369e-02_rb,3.4311e-02_rb,3.2880e-02_rb/)
+      kao(:, 3, 2, 6) = (/ &
+     &1.3310e-05_rb,4.3542e-03_rb,8.6703e-03_rb,1.3133e-02_rb,1.7778e-02_rb,2.2773e-02_rb, &
+     &2.8564e-02_rb,3.7228e-02_rb,3.5538e-02_rb/)
+      kao(:, 4, 2, 6) = (/ &
+     &1.4232e-05_rb,4.6616e-03_rb,9.3074e-03_rb,1.4103e-02_rb,1.9095e-02_rb,2.4467e-02_rb, &
+     &3.0730e-02_rb,4.0202e-02_rb,3.8172e-02_rb/)
+      kao(:, 5, 2, 6) = (/ &
+     &1.5231e-05_rb,4.9691e-03_rb,9.9386e-03_rb,1.5066e-02_rb,2.0413e-02_rb,2.6167e-02_rb, &
+     &3.2915e-02_rb,4.3077e-02_rb,4.0807e-02_rb/)
+      kao(:, 1, 3, 6) = (/ &
+     &2.0796e-05_rb,3.1636e-03_rb,6.0427e-03_rb,8.9479e-03_rb,1.1951e-02_rb,1.5111e-02_rb, &
+     &1.8532e-02_rb,2.3072e-02_rb,2.3870e-02_rb/)
+      kao(:, 2, 3, 6) = (/ &
+     &2.2285e-05_rb,3.4357e-03_rb,6.5684e-03_rb,9.7449e-03_rb,1.3046e-02_rb,1.6505e-02_rb, &
+     &2.0281e-02_rb,2.5200e-02_rb,2.6059e-02_rb/)
+      kao(:, 3, 3, 6) = (/ &
+     &2.3921e-05_rb,3.7148e-03_rb,7.1066e-03_rb,1.0556e-02_rb,1.4151e-02_rb,1.7911e-02_rb, &
+     &2.2018e-02_rb,2.7457e-02_rb,2.8268e-02_rb/)
+      kao(:, 4, 3, 6) = (/ &
+     &2.5678e-05_rb,3.9815e-03_rb,7.6234e-03_rb,1.1355e-02_rb,1.5233e-02_rb,1.9276e-02_rb, &
+     &2.3703e-02_rb,2.9635e-02_rb,3.0431e-02_rb/)
+      kao(:, 5, 3, 6) = (/ &
+     &2.7604e-05_rb,4.2441e-03_rb,8.1373e-03_rb,1.2146e-02_rb,1.6312e-02_rb,2.0656e-02_rb, &
+     &2.5417e-02_rb,3.1780e-02_rb,3.2590e-02_rb/)
+      kao(:, 1, 4, 6) = (/ &
+     &3.7548e-05_rb,2.7525e-03_rb,5.0829e-03_rb,7.3519e-03_rb,9.5921e-03_rb,1.1880e-02_rb, &
+     &1.4330e-02_rb,1.7270e-02_rb,1.8770e-02_rb/)
+      kao(:, 2, 4, 6) = (/ &
+     &4.0479e-05_rb,3.0018e-03_rb,5.5477e-03_rb,8.0335e-03_rb,1.0500e-02_rb,1.3017e-02_rb, &
+     &1.5741e-02_rb,1.8989e-02_rb,2.0592e-02_rb/)
+      kao(:, 3, 4, 6) = (/ &
+     &4.3632e-05_rb,3.2358e-03_rb,6.0288e-03_rb,8.7218e-03_rb,1.1388e-02_rb,1.4152e-02_rb, &
+     &1.7154e-02_rb,2.0724e-02_rb,2.2417e-02_rb/)
+      kao(:, 4, 4, 6) = (/ &
+     &4.6956e-05_rb,3.4641e-03_rb,6.4839e-03_rb,9.3953e-03_rb,1.2286e-02_rb,1.5294e-02_rb, &
+     &1.8543e-02_rb,2.2416e-02_rb,2.4245e-02_rb/)
+      kao(:, 5, 4, 6) = (/ &
+     &5.0658e-05_rb,3.6946e-03_rb,6.9352e-03_rb,1.0060e-02_rb,1.3165e-02_rb,1.6424e-02_rb, &
+     &1.9935e-02_rb,2.4115e-02_rb,2.6056e-02_rb/)
+      kao(:, 1, 5, 6) = (/ &
+     &6.1528e-05_rb,2.4644e-03_rb,4.3512e-03_rb,6.1626e-03_rb,7.9327e-03_rb,9.6496e-03_rb, &
+     &1.1347e-02_rb,1.3264e-02_rb,1.4745e-02_rb/)
+      kao(:, 2, 5, 6) = (/ &
+     &6.6793e-05_rb,2.6844e-03_rb,4.7746e-03_rb,6.7632e-03_rb,8.7202e-03_rb,1.0626e-02_rb, &
+     &1.2508e-02_rb,1.4649e-02_rb,1.6279e-02_rb/)
+      kao(:, 3, 5, 6) = (/ &
+     &7.2459e-05_rb,2.8961e-03_rb,5.1774e-03_rb,7.3853e-03_rb,9.5105e-03_rb,1.1570e-02_rb, &
+     &1.3632e-02_rb,1.6051e-02_rb,1.7802e-02_rb/)
+      kao(:, 4, 5, 6) = (/ &
+     &7.8727e-05_rb,3.1045e-03_rb,5.5659e-03_rb,7.9693e-03_rb,1.0288e-02_rb,1.2541e-02_rb, &
+     &1.4785e-02_rb,1.7438e-02_rb,1.9338e-02_rb/)
+      kao(:, 5, 5, 6) = (/ &
+     &8.5530e-05_rb,3.3182e-03_rb,5.9543e-03_rb,8.5528e-03_rb,1.1059e-02_rb,1.3485e-02_rb, &
+     &1.5922e-02_rb,1.8829e-02_rb,2.0873e-02_rb/)
+      kao(:, 1, 6, 6) = (/ &
+     &9.4265e-05_rb,2.2301e-03_rb,3.8046e-03_rb,5.2488e-03_rb,6.6170e-03_rb,7.9289e-03_rb, &
+     &9.1950e-03_rb,1.0423e-02_rb,1.1518e-02_rb/)
+      kao(:, 2, 6, 6) = (/ &
+     &1.0266e-04_rb,2.4246e-03_rb,4.1792e-03_rb,5.7800e-03_rb,7.2894e-03_rb,8.7747e-03_rb, &
+     &1.0200e-02_rb,1.1548e-02_rb,1.2780e-02_rb/)
+      kao(:, 3, 6, 6) = (/ &
+     &1.1200e-04_rb,2.6239e-03_rb,4.5381e-03_rb,6.2992e-03_rb,7.9916e-03_rb,9.6188e-03_rb, &
+     &1.1174e-02_rb,1.2683e-02_rb,1.4059e-02_rb/)
+      kao(:, 4, 6, 6) = (/ &
+     &1.2224e-04_rb,2.8287e-03_rb,4.8898e-03_rb,6.8010e-03_rb,8.6582e-03_rb,1.0462e-02_rb, &
+     &1.2176e-02_rb,1.3803e-02_rb,1.5334e-02_rb/)
+      kao(:, 5, 6, 6) = (/ &
+     &1.3337e-04_rb,3.0366e-03_rb,5.2437e-03_rb,7.3027e-03_rb,9.3153e-03_rb,1.1279e-02_rb, &
+     &1.3144e-02_rb,1.4949e-02_rb,1.6628e-02_rb/)
+      kao(:, 1, 7, 6) = (/ &
+     &1.5263e-04_rb,2.1146e-03_rb,3.4378e-03_rb,4.6052e-03_rb,5.6815e-03_rb,6.6787e-03_rb, &
+     &7.5592e-03_rb,8.3902e-03_rb,8.9861e-03_rb/)
+      kao(:, 2, 7, 6) = (/ &
+     &1.6683e-04_rb,2.3125e-03_rb,3.7648e-03_rb,5.0866e-03_rb,6.2982e-03_rb,7.4001e-03_rb, &
+     &8.4314e-03_rb,9.3717e-03_rb,1.0001e-02_rb/)
+      kao(:, 3, 7, 6) = (/ &
+     &1.8246e-04_rb,2.5152e-03_rb,4.0947e-03_rb,5.5502e-03_rb,6.9009e-03_rb,8.1426e-03_rb, &
+     &9.2748e-03_rb,1.0344e-02_rb,1.1085e-02_rb/)
+      kao(:, 4, 7, 6) = (/ &
+     &1.9965e-04_rb,2.7190e-03_rb,4.4394e-03_rb,6.0162e-03_rb,7.4822e-03_rb,8.8463e-03_rb, &
+     &1.0151e-02_rb,1.1321e-02_rb,1.2163e-02_rb/)
+      kao(:, 5, 7, 6) = (/ &
+     &2.1839e-04_rb,2.9201e-03_rb,4.7890e-03_rb,6.4854e-03_rb,8.0589e-03_rb,9.5473e-03_rb, &
+     &1.0985e-02_rb,1.2296e-02_rb,1.3266e-02_rb/)
+      kao(:, 1, 8, 6) = (/ &
+     &2.9912e-04_rb,2.3311e-03_rb,3.4065e-03_rb,4.3529e-03_rb,5.1991e-03_rb,5.9115e-03_rb, &
+     &6.5345e-03_rb,6.9536e-03_rb,6.9673e-03_rb/)
+      kao(:, 2, 8, 6) = (/ &
+     &3.2667e-04_rb,2.5198e-03_rb,3.7444e-03_rb,4.8113e-03_rb,5.7475e-03_rb,6.5852e-03_rb, &
+     &7.2722e-03_rb,7.8027e-03_rb,7.8100e-03_rb/)
+      kao(:, 3, 8, 6) = (/ &
+     &3.5783e-04_rb,2.7045e-03_rb,4.0852e-03_rb,5.2736e-03_rb,6.2947e-03_rb,7.2359e-03_rb, &
+     &8.0488e-03_rb,8.6314e-03_rb,8.7294e-03_rb/)
+      kao(:, 4, 8, 6) = (/ &
+     &3.9253e-04_rb,2.8930e-03_rb,4.4286e-03_rb,5.7246e-03_rb,6.8467e-03_rb,7.8891e-03_rb, &
+     &8.7826e-03_rb,9.4970e-03_rb,9.6421e-03_rb/)
+      kao(:, 5, 8, 6) = (/ &
+     &4.3012e-04_rb,3.0887e-03_rb,4.7690e-03_rb,6.1815e-03_rb,7.4286e-03_rb,8.5468e-03_rb, &
+     &9.5146e-03_rb,1.0319e-02_rb,1.0565e-02_rb/)
+      kao(:, 1, 9, 6) = (/ &
+     &1.0976e-03_rb,4.1506e-03_rb,5.1147e-03_rb,5.7794e-03_rb,6.2915e-03_rb,6.5755e-03_rb, &
+     &6.7173e-03_rb,6.5721e-03_rb,5.2619e-03_rb/)
+      kao(:, 2, 9, 6) = (/ &
+     &1.2019e-03_rb,4.4814e-03_rb,5.5166e-03_rb,6.2823e-03_rb,6.8818e-03_rb,7.2627e-03_rb, &
+     &7.4725e-03_rb,7.3662e-03_rb,5.9464e-03_rb/)
+      kao(:, 3, 9, 6) = (/ &
+     &1.3207e-03_rb,4.7927e-03_rb,5.9242e-03_rb,6.7576e-03_rb,7.4599e-03_rb,7.9614e-03_rb, &
+     &8.2442e-03_rb,8.1477e-03_rb,6.6764e-03_rb/)
+      kao(:, 4, 9, 6) = (/ &
+     &1.4520e-03_rb,5.0989e-03_rb,6.3402e-03_rb,7.2519e-03_rb,8.0196e-03_rb,8.6608e-03_rb, &
+     &9.0083e-03_rb,8.9373e-03_rb,7.4095e-03_rb/)
+      kao(:, 5, 9, 6) = (/ &
+     &1.5966e-03_rb,5.4241e-03_rb,6.7693e-03_rb,7.7581e-03_rb,8.6262e-03_rb,9.3645e-03_rb, &
+     &9.7704e-03_rb,9.7289e-03_rb,8.1550e-03_rb/)
+      kao(:, 1,10, 6) = (/ &
+     &4.4394e-03_rb,9.1190e-03_rb,1.0725e-02_rb,1.1220e-02_rb,1.1152e-02_rb,1.0508e-02_rb, &
+     &9.4386e-03_rb,7.8107e-03_rb,4.9143e-03_rb/)
+      kao(:, 2,10, 6) = (/ &
+     &4.8803e-03_rb,1.0187e-02_rb,1.1809e-02_rb,1.2265e-02_rb,1.2072e-02_rb,1.1380e-02_rb, &
+     &1.0318e-02_rb,8.6414e-03_rb,5.6112e-03_rb/)
+      kao(:, 3,10, 6) = (/ &
+     &5.3784e-03_rb,1.1243e-02_rb,1.2866e-02_rb,1.3294e-02_rb,1.2988e-02_rb,1.2282e-02_rb, &
+     &1.1181e-02_rb,9.4518e-03_rb,6.2671e-03_rb/)
+      kao(:, 4,10, 6) = (/ &
+     &5.9406e-03_rb,1.2247e-02_rb,1.3888e-02_rb,1.4276e-02_rb,1.3911e-02_rb,1.3225e-02_rb, &
+     &1.2026e-02_rb,1.0238e-02_rb,6.9421e-03_rb/)
+      kao(:, 5,10, 6) = (/ &
+     &6.5660e-03_rb,1.3194e-02_rb,1.4891e-02_rb,1.5253e-02_rb,1.4902e-02_rb,1.4176e-02_rb, &
+     &1.2864e-02_rb,1.1066e-02_rb,7.6281e-03_rb/)
+      kao(:, 1,11, 6) = (/ &
+     &6.6711e-03_rb,1.1267e-02_rb,1.2748e-02_rb,1.3242e-02_rb,1.2977e-02_rb,1.2030e-02_rb, &
+     &1.0523e-02_rb,8.3002e-03_rb,5.3202e-03_rb/)
+      kao(:, 2,11, 6) = (/ &
+     &7.3092e-03_rb,1.2565e-02_rb,1.4207e-02_rb,1.4653e-02_rb,1.4245e-02_rb,1.3138e-02_rb, &
+     &1.1437e-02_rb,9.1124e-03_rb,6.0956e-03_rb/)
+      kao(:, 3,11, 6) = (/ &
+     &8.0261e-03_rb,1.3900e-02_rb,1.5599e-02_rb,1.6022e-02_rb,1.5510e-02_rb,1.4232e-02_rb, &
+     &1.2399e-02_rb,9.8954e-03_rb,6.7920e-03_rb/)
+      kao(:, 4,11, 6) = (/ &
+     &8.8835e-03_rb,1.5218e-02_rb,1.7018e-02_rb,1.7348e-02_rb,1.6755e-02_rb,1.5328e-02_rb, &
+     &1.3427e-02_rb,1.0676e-02_rb,7.4156e-03_rb/)
+      kao(:, 5,11, 6) = (/ &
+     &9.8592e-03_rb,1.6591e-02_rb,1.8382e-02_rb,1.8693e-02_rb,1.7995e-02_rb,1.6489e-02_rb, &
+     &1.4464e-02_rb,1.1488e-02_rb,8.0687e-03_rb/)
+      kao(:, 1,12, 6) = (/ &
+     &7.8286e-03_rb,1.1844e-02_rb,1.2951e-02_rb,1.3269e-02_rb,1.2819e-02_rb,1.1719e-02_rb, &
+     &1.0146e-02_rb,7.7901e-03_rb,5.3706e-03_rb/)
+      kao(:, 2,12, 6) = (/ &
+     &8.5205e-03_rb,1.3089e-02_rb,1.4355e-02_rb,1.4624e-02_rb,1.4116e-02_rb,1.2895e-02_rb, &
+     &1.1103e-02_rb,8.5730e-03_rb,5.9882e-03_rb/)
+      kao(:, 3,12, 6) = (/ &
+     &9.3309e-03_rb,1.4405e-02_rb,1.5746e-02_rb,1.6010e-02_rb,1.5387e-02_rb,1.4067e-02_rb, &
+     &1.2065e-02_rb,9.3726e-03_rb,6.6686e-03_rb/)
+      kao(:, 4,12, 6) = (/ &
+     &1.0285e-02_rb,1.5780e-02_rb,1.7147e-02_rb,1.7368e-02_rb,1.6677e-02_rb,1.5224e-02_rb, &
+     &1.3058e-02_rb,1.0197e-02_rb,7.3827e-03_rb/)
+      kao(:, 5,12, 6) = (/ &
+     &1.1378e-02_rb,1.7192e-02_rb,1.8621e-02_rb,1.8778e-02_rb,1.8045e-02_rb,1.6433e-02_rb, &
+     &1.4105e-02_rb,1.1017e-02_rb,8.1428e-03_rb/)
+      kao(:, 1,13, 6) = (/ &
+     &7.7075e-03_rb,1.1053e-02_rb,1.1788e-02_rb,1.1798e-02_rb,1.1282e-02_rb,1.0218e-02_rb, &
+     &8.7608e-03_rb,6.6974e-03_rb,4.9774e-03_rb/)
+      kao(:, 2,13, 6) = (/ &
+     &8.3931e-03_rb,1.2074e-02_rb,1.2868e-02_rb,1.2866e-02_rb,1.2320e-02_rb,1.1165e-02_rb, &
+     &9.5984e-03_rb,7.4025e-03_rb,5.6029e-03_rb/)
+      kao(:, 3,13, 6) = (/ &
+     &9.1257e-03_rb,1.3198e-02_rb,1.3994e-02_rb,1.3989e-02_rb,1.3400e-02_rb,1.2194e-02_rb, &
+     &1.0455e-02_rb,8.1317e-03_rb,6.2279e-03_rb/)
+      kao(:, 4,13, 6) = (/ &
+     &9.9594e-03_rb,1.4337e-02_rb,1.5200e-02_rb,1.5161e-02_rb,1.4494e-02_rb,1.3263e-02_rb, &
+     &1.1356e-02_rb,8.8525e-03_rb,6.8478e-03_rb/)
+      kao(:, 5,13, 6) = (/ &
+     &1.0855e-02_rb,1.5527e-02_rb,1.6501e-02_rb,1.6412e-02_rb,1.5661e-02_rb,1.4395e-02_rb, &
+     &1.2355e-02_rb,9.5887e-03_rb,7.3951e-03_rb/)
+      kao(:, 1, 1, 7) = (/ &
+     &2.8482e-05_rb,1.1072e-02_rb,2.2376e-02_rb,3.4052e-02_rb,4.6363e-02_rb,5.9888e-02_rb, &
+     &7.6137e-02_rb,1.0147e-01_rb,9.2714e-02_rb/)
+      kao(:, 2, 1, 7) = (/ &
+     &2.9459e-05_rb,1.1920e-02_rb,2.4092e-02_rb,3.6662e-02_rb,4.9933e-02_rb,6.4531e-02_rb, &
+     &8.2136e-02_rb,1.0950e-01_rb,9.9856e-02_rb/)
+      kao(:, 3, 1, 7) = (/ &
+     &3.0378e-05_rb,1.2748e-02_rb,2.5776e-02_rb,3.9242e-02_rb,5.3450e-02_rb,6.9069e-02_rb, &
+     &8.7941e-02_rb,1.1741e-01_rb,1.0689e-01_rb/)
+      kao(:, 4, 1, 7) = (/ &
+     &3.1242e-05_rb,1.3565e-02_rb,2.7429e-02_rb,4.1762e-02_rb,5.6896e-02_rb,7.3556e-02_rb, &
+     &9.3626e-02_rb,1.2500e-01_rb,1.1378e-01_rb/)
+      kao(:, 5, 1, 7) = (/ &
+     &3.2096e-05_rb,1.4368e-02_rb,2.9038e-02_rb,4.4226e-02_rb,6.0256e-02_rb,7.7920e-02_rb, &
+     &9.9246e-02_rb,1.3270e-01_rb,1.2050e-01_rb/)
+      kao(:, 1, 2, 7) = (/ &
+     &3.8108e-05_rb,9.1980e-03_rb,1.8505e-02_rb,2.8037e-02_rb,3.7923e-02_rb,4.8524e-02_rb, &
+     &6.0800e-02_rb,7.8866e-02_rb,7.5829e-02_rb/)
+      kao(:, 2, 2, 7) = (/ &
+     &3.9453e-05_rb,9.9404e-03_rb,2.0012e-02_rb,3.0307e-02_rb,4.0999e-02_rb,5.2467e-02_rb, &
+     &6.5752e-02_rb,8.5496e-02_rb,8.1980e-02_rb/)
+      kao(:, 3, 2, 7) = (/ &
+     &4.0728e-05_rb,1.0645e-02_rb,2.1444e-02_rb,3.2483e-02_rb,4.3962e-02_rb,5.6282e-02_rb, &
+     &7.0607e-02_rb,9.1834e-02_rb,8.7906e-02_rb/)
+      kao(:, 4, 2, 7) = (/ &
+     &4.1960e-05_rb,1.1349e-02_rb,2.2852e-02_rb,3.4627e-02_rb,4.6872e-02_rb,6.0009e-02_rb, &
+     &7.5320e-02_rb,9.8100e-02_rb,9.3725e-02_rb/)
+      kao(:, 5, 2, 7) = (/ &
+     &4.3152e-05_rb,1.2042e-02_rb,2.4257e-02_rb,3.6759e-02_rb,4.9754e-02_rb,6.3714e-02_rb, &
+     &7.9963e-02_rb,1.0426e-01_rb,9.9487e-02_rb/)
+      kao(:, 1, 3, 7) = (/ &
+     &6.8682e-05_rb,7.6817e-03_rb,1.5032e-02_rb,2.2610e-02_rb,3.0354e-02_rb,3.8397e-02_rb, &
+     &4.7144e-02_rb,5.8545e-02_rb,6.0680e-02_rb/)
+      kao(:, 2, 3, 7) = (/ &
+     &7.1048e-05_rb,8.3077e-03_rb,1.6309e-02_rb,2.4554e-02_rb,3.2973e-02_rb,4.1716e-02_rb, &
+     &5.1249e-02_rb,6.3726e-02_rb,6.5916e-02_rb/)
+      kao(:, 3, 3, 7) = (/ &
+     &7.3516e-05_rb,8.8904e-03_rb,1.7519e-02_rb,2.6389e-02_rb,3.5446e-02_rb,4.4862e-02_rb, &
+     &5.5125e-02_rb,6.8637e-02_rb,7.0859e-02_rb/)
+      kao(:, 4, 3, 7) = (/ &
+     &7.5927e-05_rb,9.4787e-03_rb,1.8742e-02_rb,2.8235e-02_rb,3.7922e-02_rb,4.7994e-02_rb, &
+     &5.8964e-02_rb,7.3444e-02_rb,7.5806e-02_rb/)
+      kao(:, 5, 3, 7) = (/ &
+     &7.8228e-05_rb,1.0059e-02_rb,1.9946e-02_rb,3.0057e-02_rb,4.0372e-02_rb,5.1096e-02_rb, &
+     &6.2816e-02_rb,7.8277e-02_rb,8.0701e-02_rb/)
+      kao(:, 1, 4, 7) = (/ &
+     &1.2728e-04_rb,6.6847e-03_rb,1.2528e-02_rb,1.8338e-02_rb,2.4310e-02_rb,3.0521e-02_rb, &
+     &3.7034e-02_rb,4.4629e-02_rb,4.8506e-02_rb/)
+      kao(:, 2, 4, 7) = (/ &
+     &1.3229e-04_rb,7.2462e-03_rb,1.3606e-02_rb,1.9949e-02_rb,2.6505e-02_rb,3.3306e-02_rb, &
+     &4.0432e-02_rb,4.8804e-02_rb,5.2931e-02_rb/)
+      kao(:, 3, 4, 7) = (/ &
+     &1.3690e-04_rb,7.7950e-03_rb,1.4636e-02_rb,2.1498e-02_rb,2.8618e-02_rb,3.5967e-02_rb, &
+     &4.3669e-02_rb,5.2720e-02_rb,5.7159e-02_rb/)
+      kao(:, 4, 4, 7) = (/ &
+     &1.4141e-04_rb,8.3363e-03_rb,1.5650e-02_rb,2.3036e-02_rb,3.0707e-02_rb,3.8607e-02_rb, &
+     &4.6880e-02_rb,5.6623e-02_rb,6.1327e-02_rb/)
+      kao(:, 5, 4, 7) = (/ &
+     &1.4572e-04_rb,8.8720e-03_rb,1.6649e-02_rb,2.4570e-02_rb,3.2799e-02_rb,4.1227e-02_rb, &
+     &5.0069e-02_rb,6.0500e-02_rb,6.5502e-02_rb/)
+      kao(:, 1, 5, 7) = (/ &
+     &2.1573e-04_rb,5.8827e-03_rb,1.0779e-02_rb,1.5450e-02_rb,1.9971e-02_rb,2.4513e-02_rb, &
+     &2.9346e-02_rb,3.4831e-02_rb,3.8718e-02_rb/)
+      kao(:, 2, 5, 7) = (/ &
+     &2.2440e-04_rb,6.4009e-03_rb,1.1752e-02_rb,1.6862e-02_rb,2.1813e-02_rb,2.6822e-02_rb, &
+     &3.2187e-02_rb,3.8239e-02_rb,4.2467e-02_rb/)
+      kao(:, 3, 5, 7) = (/ &
+     &2.3312e-04_rb,6.9022e-03_rb,1.2696e-02_rb,1.8213e-02_rb,2.3573e-02_rb,2.9063e-02_rb, &
+     &3.4955e-02_rb,4.1525e-02_rb,4.6111e-02_rb/)
+      kao(:, 4, 5, 7) = (/ &
+     &2.4120e-04_rb,7.3983e-03_rb,1.3629e-02_rb,1.9546e-02_rb,2.5293e-02_rb,3.1249e-02_rb, &
+     &3.7630e-02_rb,4.4709e-02_rb,4.9634e-02_rb/)
+      kao(:, 5, 5, 7) = (/ &
+     &2.4900e-04_rb,7.8813e-03_rb,1.4548e-02_rb,2.0857e-02_rb,2.7012e-02_rb,3.3451e-02_rb, &
+     &4.0320e-02_rb,4.7915e-02_rb,5.3175e-02_rb/)
+      kao(:, 1, 6, 7) = (/ &
+     &3.4036e-04_rb,5.3231e-03_rb,9.2729e-03_rb,1.3061e-02_rb,1.6728e-02_rb,2.0215e-02_rb, &
+     &2.3560e-02_rb,2.7195e-02_rb,3.0556e-02_rb/)
+      kao(:, 2, 6, 7) = (/ &
+     &3.5502e-04_rb,5.8134e-03_rb,1.0151e-02_rb,1.4345e-02_rb,1.8389e-02_rb,2.2227e-02_rb, &
+     &2.5905e-02_rb,3.0036e-02_rb,3.3756e-02_rb/)
+      kao(:, 3, 6, 7) = (/ &
+     &3.6934e-04_rb,6.2790e-03_rb,1.1006e-02_rb,1.5584e-02_rb,1.9972e-02_rb,2.4157e-02_rb, &
+     &2.8189e-02_rb,3.2811e-02_rb,3.6865e-02_rb/)
+      kao(:, 4, 6, 7) = (/ &
+     &3.8386e-04_rb,6.7401e-03_rb,1.1853e-02_rb,1.6807e-02_rb,2.1541e-02_rb,2.6034e-02_rb, &
+     &3.0406e-02_rb,3.5498e-02_rb,3.9873e-02_rb/)
+      kao(:, 5, 6, 7) = (/ &
+     &3.9798e-04_rb,7.1899e-03_rb,1.2680e-02_rb,1.7996e-02_rb,2.3081e-02_rb,2.7888e-02_rb, &
+     &3.2622e-02_rb,3.8170e-02_rb,4.2864e-02_rb/)
+      kao(:, 1, 7, 7) = (/ &
+     &5.6321e-04_rb,5.0131e-03_rb,8.3197e-03_rb,1.1342e-02_rb,1.4164e-02_rb,1.6877e-02_rb, &
+     &1.9447e-02_rb,2.1713e-02_rb,2.3905e-02_rb/)
+      kao(:, 2, 7, 7) = (/ &
+     &5.9016e-04_rb,5.4925e-03_rb,9.1570e-03_rb,1.2482e-02_rb,1.5641e-02_rb,1.8693e-02_rb, &
+     &2.1556e-02_rb,2.4086e-02_rb,2.6629e-02_rb/)
+      kao(:, 3, 7, 7) = (/ &
+     &6.1706e-04_rb,5.9641e-03_rb,9.9615e-03_rb,1.3605e-02_rb,1.7087e-02_rb,2.0445e-02_rb, &
+     &2.3593e-02_rb,2.6361e-02_rb,2.9262e-02_rb/)
+      kao(:, 4, 7, 7) = (/ &
+     &6.4250e-04_rb,6.4355e-03_rb,1.0740e-02_rb,1.4689e-02_rb,1.8507e-02_rb,2.2162e-02_rb, &
+     &2.5558e-02_rb,2.8565e-02_rb,3.1822e-02_rb/)
+      kao(:, 5, 7, 7) = (/ &
+     &6.6706e-04_rb,6.9143e-03_rb,1.1505e-02_rb,1.5753e-02_rb,1.9886e-02_rb,2.3836e-02_rb, &
+     &2.7497e-02_rb,3.0749e-02_rb,3.4313e-02_rb/)
+      kao(:, 1, 8, 7) = (/ &
+     &1.1137e-03_rb,5.2798e-03_rb,8.0960e-03_rb,1.0553e-02_rb,1.2781e-02_rb,1.4788e-02_rb, &
+     &1.6508e-02_rb,1.7972e-02_rb,1.8634e-02_rb/)
+      kao(:, 2, 8, 7) = (/ &
+     &1.1746e-03_rb,5.8110e-03_rb,8.9215e-03_rb,1.1680e-02_rb,1.4167e-02_rb,1.6394e-02_rb, &
+     &1.8389e-02_rb,2.0091e-02_rb,2.0946e-02_rb/)
+      kao(:, 3, 8, 7) = (/ &
+     &1.2333e-03_rb,6.3510e-03_rb,9.7459e-03_rb,1.2786e-02_rb,1.5523e-02_rb,1.7978e-02_rb, &
+     &2.0210e-02_rb,2.2150e-02_rb,2.3198e-02_rb/)
+      kao(:, 4, 8, 7) = (/ &
+     &1.2923e-03_rb,6.8806e-03_rb,1.0573e-02_rb,1.3874e-02_rb,1.6833e-02_rb,1.9520e-02_rb, &
+     &2.2008e-02_rb,2.4130e-02_rb,2.5397e-02_rb/)
+      kao(:, 5, 8, 7) = (/ &
+     &1.3493e-03_rb,7.4001e-03_rb,1.1421e-02_rb,1.4955e-02_rb,1.8119e-02_rb,2.1028e-02_rb, &
+     &2.3751e-02_rb,2.6082e-02_rb,2.7521e-02_rb/)
+      kao(:, 1, 9, 7) = (/ &
+     &4.1652e-03_rb,9.1226e-03_rb,1.1391e-02_rb,1.3127e-02_rb,1.4574e-02_rb,1.5712e-02_rb, &
+     &1.6412e-02_rb,1.6590e-02_rb,1.4324e-02_rb/)
+      kao(:, 2, 9, 7) = (/ &
+     &4.4077e-03_rb,9.7658e-03_rb,1.2393e-02_rb,1.4489e-02_rb,1.6135e-02_rb,1.7441e-02_rb, &
+     &1.8307e-02_rb,1.8536e-02_rb,1.6186e-02_rb/)
+      kao(:, 3, 9, 7) = (/ &
+     &4.6510e-03_rb,1.0425e-02_rb,1.3450e-02_rb,1.5897e-02_rb,1.7759e-02_rb,1.9177e-02_rb, &
+     &2.0163e-02_rb,2.0445e-02_rb,1.8103e-02_rb/)
+      kao(:, 4, 9, 7) = (/ &
+     &4.8932e-03_rb,1.1096e-02_rb,1.4490e-02_rb,1.7265e-02_rb,1.9404e-02_rb,2.0920e-02_rb, &
+     &2.2008e-02_rb,2.2308e-02_rb,1.9978e-02_rb/)
+      kao(:, 5, 9, 7) = (/ &
+     &5.1319e-03_rb,1.1758e-02_rb,1.5541e-02_rb,1.8602e-02_rb,2.0988e-02_rb,2.2688e-02_rb, &
+     &2.3851e-02_rb,2.4156e-02_rb,2.1799e-02_rb/)
+      kao(:, 1,10, 7) = (/ &
+     &1.7349e-02_rb,2.4277e-02_rb,2.5467e-02_rb,2.5566e-02_rb,2.4825e-02_rb,2.3373e-02_rb, &
+     &2.1223e-02_rb,1.8524e-02_rb,1.1809e-02_rb/)
+      kao(:, 2,10, 7) = (/ &
+     &1.8441e-02_rb,2.5550e-02_rb,2.7079e-02_rb,2.7402e-02_rb,2.6767e-02_rb,2.5495e-02_rb, &
+     &2.3503e-02_rb,2.0675e-02_rb,1.3556e-02_rb/)
+      kao(:, 3,10, 7) = (/ &
+     &1.9634e-02_rb,2.6955e-02_rb,2.8784e-02_rb,2.9151e-02_rb,2.8790e-02_rb,2.7521e-02_rb, &
+     &2.5774e-02_rb,2.2876e-02_rb,1.5334e-02_rb/)
+      kao(:, 4,10, 7) = (/ &
+     &2.0834e-02_rb,2.8474e-02_rb,3.0492e-02_rb,3.0988e-02_rb,3.0837e-02_rb,2.9673e-02_rb, &
+     &2.8036e-02_rb,2.5100e-02_rb,1.7072e-02_rb/)
+      kao(:, 5,10, 7) = (/ &
+     &2.2004e-02_rb,3.0118e-02_rb,3.2233e-02_rb,3.2923e-02_rb,3.2760e-02_rb,3.1852e-02_rb, &
+     &3.0321e-02_rb,2.7280e-02_rb,1.8710e-02_rb/)
+      kao(:, 1,11, 7) = (/ &
+     &2.5621e-02_rb,3.2655e-02_rb,3.3386e-02_rb,3.2478e-02_rb,3.0535e-02_rb,2.7796e-02_rb, &
+     &2.3855e-02_rb,1.8680e-02_rb,1.0565e-02_rb/)
+      kao(:, 2,11, 7) = (/ &
+     &2.7487e-02_rb,3.4718e-02_rb,3.5449e-02_rb,3.4659e-02_rb,3.2784e-02_rb,2.9958e-02_rb, &
+     &2.6042e-02_rb,2.0737e-02_rb,1.2143e-02_rb/)
+      kao(:, 3,11, 7) = (/ &
+     &2.9493e-02_rb,3.6885e-02_rb,3.7684e-02_rb,3.6984e-02_rb,3.4999e-02_rb,3.2138e-02_rb, &
+     &2.8186e-02_rb,2.2834e-02_rb,1.3640e-02_rb/)
+      kao(:, 4,11, 7) = (/ &
+     &3.1405e-02_rb,3.9361e-02_rb,4.0123e-02_rb,3.9393e-02_rb,3.7354e-02_rb,3.4345e-02_rb, &
+     &3.0182e-02_rb,2.4896e-02_rb,1.5233e-02_rb/)
+      kao(:, 5,11, 7) = (/ &
+     &3.3372e-02_rb,4.1804e-02_rb,4.2639e-02_rb,4.1888e-02_rb,3.9776e-02_rb,3.6559e-02_rb, &
+     &3.2377e-02_rb,2.6934e-02_rb,1.6905e-02_rb/)
+      kao(:, 1,12, 7) = (/ &
+     &2.8107e-02_rb,3.4513e-02_rb,3.4691e-02_rb,3.3440e-02_rb,3.1149e-02_rb,2.8092e-02_rb, &
+     &2.3835e-02_rb,1.7987e-02_rb,9.8223e-03_rb/)
+      kao(:, 2,12, 7) = (/ &
+     &3.0318e-02_rb,3.7007e-02_rb,3.7165e-02_rb,3.5894e-02_rb,3.3524e-02_rb,3.0240e-02_rb, &
+     &2.5840e-02_rb,1.9792e-02_rb,1.1332e-02_rb/)
+      kao(:, 3,12, 7) = (/ &
+     &3.2580e-02_rb,3.9682e-02_rb,3.9790e-02_rb,3.8457e-02_rb,3.5971e-02_rb,3.2486e-02_rb, &
+     &2.7883e-02_rb,2.1561e-02_rb,1.2728e-02_rb/)
+      kao(:, 4,12, 7) = (/ &
+     &3.4838e-02_rb,4.2408e-02_rb,4.2616e-02_rb,4.1228e-02_rb,3.8571e-02_rb,3.4918e-02_rb, &
+     &2.9920e-02_rb,2.3363e-02_rb,1.4318e-02_rb/)
+      kao(:, 5,12, 7) = (/ &
+     &3.7163e-02_rb,4.5231e-02_rb,4.5400e-02_rb,4.4006e-02_rb,4.1203e-02_rb,3.7331e-02_rb, &
+     &3.2004e-02_rb,2.5209e-02_rb,1.5927e-02_rb/)
+      kao(:, 1,13, 7) = (/ &
+     &2.5217e-02_rb,3.0486e-02_rb,3.0548e-02_rb,2.9385e-02_rb,2.7336e-02_rb,2.4524e-02_rb, &
+     &2.0890e-02_rb,1.5756e-02_rb,9.4392e-03_rb/)
+      kao(:, 2,13, 7) = (/ &
+     &2.7202e-02_rb,3.2841e-02_rb,3.2933e-02_rb,3.1772e-02_rb,2.9593e-02_rb,2.6611e-02_rb, &
+     &2.2741e-02_rb,1.7329e-02_rb,1.0602e-02_rb/)
+      kao(:, 3,13, 7) = (/ &
+     &2.9280e-02_rb,3.5351e-02_rb,3.5444e-02_rb,3.4289e-02_rb,3.1993e-02_rb,2.8821e-02_rb, &
+     &2.4603e-02_rb,1.8828e-02_rb,1.1938e-02_rb/)
+      kao(:, 4,13, 7) = (/ &
+     &3.1331e-02_rb,3.7956e-02_rb,3.7975e-02_rb,3.6801e-02_rb,3.4445e-02_rb,3.1086e-02_rb, &
+     &2.6513e-02_rb,2.0428e-02_rb,1.3267e-02_rb/)
+      kao(:, 5,13, 7) = (/ &
+     &3.3613e-02_rb,4.0685e-02_rb,4.0655e-02_rb,3.9388e-02_rb,3.6935e-02_rb,3.3268e-02_rb, &
+     &2.8459e-02_rb,2.2050e-02_rb,1.4574e-02_rb/)
+      kao(:, 1, 1, 8) = (/ &
+     &7.0857e-05_rb,3.1247e-02_rb,6.3050e-02_rb,9.5741e-02_rb,1.2991e-01_rb,1.6688e-01_rb, &
+     &2.1008e-01_rb,2.7194e-01_rb,2.5981e-01_rb/)
+      kao(:, 2, 1, 8) = (/ &
+     &7.3061e-05_rb,3.3759e-02_rb,6.8122e-02_rb,1.0346e-01_rb,1.4038e-01_rb,1.8030e-01_rb, &
+     &2.2703e-01_rb,2.9445e-01_rb,2.8076e-01_rb/)
+      kao(:, 3, 1, 8) = (/ &
+     &7.5439e-05_rb,3.6248e-02_rb,7.3153e-02_rb,1.1109e-01_rb,1.5077e-01_rb,1.9367e-01_rb, &
+     &2.4381e-01_rb,3.1652e-01_rb,3.0153e-01_rb/)
+      kao(:, 4, 1, 8) = (/ &
+     &7.7957e-05_rb,3.8675e-02_rb,7.8063e-02_rb,1.1859e-01_rb,1.6099e-01_rb,2.0691e-01_rb, &
+     &2.6053e-01_rb,3.3811e-01_rb,3.2197e-01_rb/)
+      kao(:, 5, 1, 8) = (/ &
+     &8.0722e-05_rb,4.1119e-02_rb,8.2986e-02_rb,1.2604e-01_rb,1.7112e-01_rb,2.1995e-01_rb, &
+     &2.7714e-01_rb,3.5946e-01_rb,3.4222e-01_rb/)
+      kao(:, 1, 2, 8) = (/ &
+     &9.7224e-05_rb,2.6558e-02_rb,5.3452e-02_rb,8.0855e-02_rb,1.0918e-01_rb,1.3924e-01_rb, &
+     &1.7330e-01_rb,2.2109e-01_rb,2.1834e-01_rb/)
+      kao(:, 2, 2, 8) = (/ &
+     &1.0058e-04_rb,2.8759e-02_rb,5.7870e-02_rb,8.7575e-02_rb,1.1827e-01_rb,1.5089e-01_rb, &
+     &1.8793e-01_rb,2.3994e-01_rb,2.3652e-01_rb/)
+      kao(:, 3, 2, 8) = (/ &
+     &1.0421e-04_rb,3.0964e-02_rb,6.2308e-02_rb,9.4299e-02_rb,1.2733e-01_rb,1.6243e-01_rb, &
+     &2.0230e-01_rb,2.5862e-01_rb,2.5463e-01_rb/)
+      kao(:, 4, 2, 8) = (/ &
+     &1.0798e-04_rb,3.3179e-02_rb,6.6764e-02_rb,1.0101e-01_rb,1.3640e-01_rb,1.7400e-01_rb, &
+     &2.1675e-01_rb,2.7715e-01_rb,2.7277e-01_rb/)
+      kao(:, 5, 2, 8) = (/ &
+     &1.1188e-04_rb,3.5361e-02_rb,7.1160e-02_rb,1.0767e-01_rb,1.4545e-01_rb,1.8554e-01_rb, &
+     &2.3113e-01_rb,2.9555e-01_rb,2.9088e-01_rb/)
+      kao(:, 1, 3, 8) = (/ &
+     &1.7704e-04_rb,2.1958e-02_rb,4.4006e-02_rb,6.6294e-02_rb,8.8988e-02_rb,1.1245e-01_rb, &
+     &1.3781e-01_rb,1.7014e-01_rb,1.7794e-01_rb/)
+      kao(:, 2, 3, 8) = (/ &
+     &1.8401e-04_rb,2.3898e-02_rb,4.7908e-02_rb,7.2164e-02_rb,9.6867e-02_rb,1.2239e-01_rb, &
+     &1.4998e-01_rb,1.8528e-01_rb,1.9370e-01_rb/)
+      kao(:, 3, 3, 8) = (/ &
+     &1.9123e-04_rb,2.5882e-02_rb,5.1886e-02_rb,7.8168e-02_rb,1.0491e-01_rb,1.3257e-01_rb, &
+     &1.6241e-01_rb,2.0047e-01_rb,2.0978e-01_rb/)
+      kao(:, 4, 3, 8) = (/ &
+     &1.9826e-04_rb,2.7841e-02_rb,5.5828e-02_rb,8.4093e-02_rb,1.1289e-01_rb,1.4266e-01_rb, &
+     &1.7485e-01_rb,2.1582e-01_rb,2.2574e-01_rb/)
+      kao(:, 5, 3, 8) = (/ &
+     &2.0558e-04_rb,2.9781e-02_rb,5.9723e-02_rb,8.9997e-02_rb,1.2076e-01_rb,1.5262e-01_rb, &
+     &1.8706e-01_rb,2.3095e-01_rb,2.4148e-01_rb/)
+      kao(:, 1, 4, 8) = (/ &
+     &3.2677e-04_rb,1.8554e-02_rb,3.5926e-02_rb,5.3829e-02_rb,7.1995e-02_rb,9.0469e-02_rb, &
+     &1.0973e-01_rb,1.3198e-01_rb,1.4393e-01_rb/)
+      kao(:, 2, 4, 8) = (/ &
+     &3.3998e-04_rb,2.0214e-02_rb,3.9351e-02_rb,5.9051e-02_rb,7.8970e-02_rb,9.9220e-02_rb, &
+     &1.2030e-01_rb,1.4461e-01_rb,1.5787e-01_rb/)
+      kao(:, 3, 4, 8) = (/ &
+     &3.5423e-04_rb,2.1886e-02_rb,4.2819e-02_rb,6.4313e-02_rb,8.6016e-02_rb,1.0809e-01_rb, &
+     &1.3108e-01_rb,1.5763e-01_rb,1.7196e-01_rb/)
+      kao(:, 4, 4, 8) = (/ &
+     &3.6836e-04_rb,2.3526e-02_rb,4.6236e-02_rb,6.9481e-02_rb,9.2916e-02_rb,1.1677e-01_rb, &
+     &1.4164e-01_rb,1.7039e-01_rb,1.8576e-01_rb/)
+      kao(:, 5, 4, 8) = (/ &
+     &3.8269e-04_rb,2.5159e-02_rb,4.9646e-02_rb,7.4614e-02_rb,9.9776e-02_rb,1.2541e-01_rb, &
+     &1.5213e-01_rb,1.8307e-01_rb,1.9947e-01_rb/)
+      kao(:, 1, 5, 8) = (/ &
+     &5.5618e-04_rb,1.6693e-02_rb,3.0352e-02_rb,4.4004e-02_rb,5.8213e-02_rb,7.2865e-02_rb, &
+     &8.7904e-02_rb,1.0425e-01_rb,1.1619e-01_rb/)
+      kao(:, 2, 5, 8) = (/ &
+     &5.8090e-04_rb,1.8251e-02_rb,3.3255e-02_rb,4.8452e-02_rb,6.4257e-02_rb,8.0492e-02_rb, &
+     &9.7115e-02_rb,1.1513e-01_rb,1.2836e-01_rb/)
+      kao(:, 3, 5, 8) = (/ &
+     &6.0567e-04_rb,1.9782e-02_rb,3.6119e-02_rb,5.2854e-02_rb,7.0252e-02_rb,8.8045e-02_rb, &
+     &1.0624e-01_rb,1.2602e-01_rb,1.4037e-01_rb/)
+      kao(:, 4, 5, 8) = (/ &
+     &6.3036e-04_rb,2.1279e-02_rb,3.8977e-02_rb,5.7257e-02_rb,7.6243e-02_rb,9.5550e-02_rb, &
+     &1.1529e-01_rb,1.3680e-01_rb,1.5235e-01_rb/)
+      kao(:, 5, 5, 8) = (/ &
+     &6.5503e-04_rb,2.2767e-02_rb,4.1832e-02_rb,6.1655e-02_rb,8.2195e-02_rb,1.0302e-01_rb, &
+     &1.2434e-01_rb,1.4756e-01_rb,1.6424e-01_rb/)
+      kao(:, 1, 6, 8) = (/ &
+     &8.8779e-04_rb,1.5219e-02_rb,2.6847e-02_rb,3.7621e-02_rb,4.8063e-02_rb,5.8817e-02_rb, &
+     &7.0265e-02_rb,8.2696e-02_rb,9.3190e-02_rb/)
+      kao(:, 2, 6, 8) = (/ &
+     &9.2874e-04_rb,1.6673e-02_rb,2.9554e-02_rb,4.1458e-02_rb,5.3049e-02_rb,6.5160e-02_rb, &
+     &7.8074e-02_rb,9.1921e-02_rb,1.0355e-01_rb/)
+      kao(:, 3, 6, 8) = (/ &
+     &9.6950e-04_rb,1.8111e-02_rb,3.2190e-02_rb,4.5211e-02_rb,5.8015e-02_rb,7.1500e-02_rb, &
+     &8.5838e-02_rb,1.0107e-01_rb,1.1382e-01_rb/)
+      kao(:, 4, 6, 8) = (/ &
+     &1.0101e-03_rb,1.9522e-02_rb,3.4803e-02_rb,4.8905e-02_rb,6.3015e-02_rb,7.7875e-02_rb, &
+     &9.3602e-02_rb,1.1021e-01_rb,1.2414e-01_rb/)
+      kao(:, 5, 6, 8) = (/ &
+     &1.0515e-03_rb,2.0916e-02_rb,3.7389e-02_rb,5.2547e-02_rb,6.7966e-02_rb,8.4205e-02_rb, &
+     &1.0130e-01_rb,1.1932e-01_rb,1.3433e-01_rb/)
+      kao(:, 1, 7, 8) = (/ &
+     &1.4977e-03_rb,1.4733e-02_rb,2.4381e-02_rb,3.3428e-02_rb,4.1931e-02_rb,4.9753e-02_rb, &
+     &5.7173e-02_rb,6.5580e-02_rb,7.4312e-02_rb/)
+      kao(:, 2, 7, 8) = (/ &
+     &1.5637e-03_rb,1.6075e-02_rb,2.6857e-02_rb,3.6980e-02_rb,4.6449e-02_rb,5.5152e-02_rb, &
+     &6.3551e-02_rb,7.3261e-02_rb,8.3066e-02_rb/)
+      kao(:, 3, 7, 8) = (/ &
+     &1.6297e-03_rb,1.7399e-02_rb,2.9305e-02_rb,4.0484e-02_rb,5.0904e-02_rb,6.0470e-02_rb, &
+     &6.9956e-02_rb,8.1009e-02_rb,9.1840e-02_rb/)
+      kao(:, 4, 7, 8) = (/ &
+     &1.7004e-03_rb,1.8688e-02_rb,3.1747e-02_rb,4.3982e-02_rb,5.5347e-02_rb,6.5760e-02_rb, &
+     &7.6435e-02_rb,8.8798e-02_rb,1.0066e-01_rb/)
+      kao(:, 5, 7, 8) = (/ &
+     &1.7747e-03_rb,1.9942e-02_rb,3.4156e-02_rb,4.7424e-02_rb,5.9706e-02_rb,7.0996e-02_rb, &
+     &8.2872e-02_rb,9.6510e-02_rb,1.0938e-01_rb/)
+      kao(:, 1, 8, 8) = (/ &
+     &3.0289e-03_rb,1.6187e-02_rb,2.4623e-02_rb,3.1800e-02_rb,3.8382e-02_rb,4.4473e-02_rb, &
+     &4.9956e-02_rb,5.4111e-02_rb,5.8932e-02_rb/)
+      kao(:, 2, 8, 8) = (/ &
+     &3.1588e-03_rb,1.7601e-02_rb,2.6972e-02_rb,3.5067e-02_rb,4.2580e-02_rb,4.9539e-02_rb, &
+     &5.5733e-02_rb,6.0374e-02_rb,6.6309e-02_rb/)
+      kao(:, 3, 8, 8) = (/ &
+     &3.2918e-03_rb,1.8992e-02_rb,2.9294e-02_rb,3.8315e-02_rb,4.6735e-02_rb,5.4548e-02_rb, &
+     &6.1452e-02_rb,6.6677e-02_rb,7.3699e-02_rb/)
+      kao(:, 4, 8, 8) = (/ &
+     &3.4281e-03_rb,2.0362e-02_rb,3.1558e-02_rb,4.1571e-02_rb,5.0908e-02_rb,5.9537e-02_rb, &
+     &6.7138e-02_rb,7.3015e-02_rb,8.1106e-02_rb/)
+      kao(:, 5, 8, 8) = (/ &
+     &3.5753e-03_rb,2.1737e-02_rb,3.3774e-02_rb,4.4733e-02_rb,5.4993e-02_rb,6.4441e-02_rb, &
+     &7.2719e-02_rb,7.9338e-02_rb,8.8474e-02_rb/)
+      kao(:, 1, 9, 8) = (/ &
+     &1.1613e-02_rb,2.6600e-02_rb,3.4830e-02_rb,4.1045e-02_rb,4.5758e-02_rb,4.9187e-02_rb, &
+     &5.0957e-02_rb,5.0881e-02_rb,4.6332e-02_rb/)
+      kao(:, 2, 9, 8) = (/ &
+     &1.2035e-02_rb,2.8837e-02_rb,3.7970e-02_rb,4.4834e-02_rb,5.0301e-02_rb,5.4274e-02_rb, &
+     &5.6564e-02_rb,5.6979e-02_rb,5.2710e-02_rb/)
+      kao(:, 3, 9, 8) = (/ &
+     &1.2460e-02_rb,3.1118e-02_rb,4.1014e-02_rb,4.8606e-02_rb,5.4716e-02_rb,5.9241e-02_rb, &
+     &6.2128e-02_rb,6.3036e-02_rb,5.8975e-02_rb/)
+      kao(:, 4, 9, 8) = (/ &
+     &1.2980e-02_rb,3.3463e-02_rb,4.4127e-02_rb,5.2378e-02_rb,5.9008e-02_rb,6.4138e-02_rb, &
+     &6.7667e-02_rb,6.9075e-02_rb,6.5274e-02_rb/)
+      kao(:, 5, 9, 8) = (/ &
+     &1.3559e-02_rb,3.5809e-02_rb,4.7263e-02_rb,5.6212e-02_rb,6.3302e-02_rb,6.8912e-02_rb, &
+     &7.3069e-02_rb,7.5010e-02_rb,7.1590e-02_rb/)
+      kao(:, 1,10, 8) = (/ &
+     &4.9669e-02_rb,6.5649e-02_rb,7.1116e-02_rb,7.3534e-02_rb,7.3825e-02_rb,7.2083e-02_rb, &
+     &6.7844e-02_rb,5.9498e-02_rb,3.3788e-02_rb/)
+      kao(:, 2,10, 8) = (/ &
+     &5.1505e-02_rb,7.0624e-02_rb,7.6814e-02_rb,7.9826e-02_rb,8.0618e-02_rb,7.8892e-02_rb, &
+     &7.4439e-02_rb,6.5949e-02_rb,3.8529e-02_rb/)
+      kao(:, 3,10, 8) = (/ &
+     &5.3297e-02_rb,7.5384e-02_rb,8.2789e-02_rb,8.6542e-02_rb,8.7369e-02_rb,8.5820e-02_rb, &
+     &8.1089e-02_rb,7.2258e-02_rb,4.3360e-02_rb/)
+      kao(:, 4,10, 8) = (/ &
+     &5.5068e-02_rb,8.0008e-02_rb,8.8749e-02_rb,9.3221e-02_rb,9.4169e-02_rb,9.2692e-02_rb, &
+     &8.7784e-02_rb,7.8437e-02_rb,4.8014e-02_rb/)
+      kao(:, 5,10, 8) = (/ &
+     &5.7734e-02_rb,8.4667e-02_rb,9.4556e-02_rb,9.9634e-02_rb,1.0118e-01_rb,9.9703e-02_rb, &
+     &9.4571e-02_rb,8.4495e-02_rb,5.2667e-02_rb/)
+      kao(:, 1,11, 8) = (/ &
+     &7.6448e-02_rb,9.0381e-02_rb,9.1555e-02_rb,9.0047e-02_rb,8.6717e-02_rb,8.1217e-02_rb, &
+     &7.3241e-02_rb,6.1179e-02_rb,3.1726e-02_rb/)
+      kao(:, 2,11, 8) = (/ &
+     &7.9612e-02_rb,9.5621e-02_rb,9.8574e-02_rb,9.7505e-02_rb,9.4314e-02_rb,8.8768e-02_rb, &
+     &8.0204e-02_rb,6.7360e-02_rb,3.6181e-02_rb/)
+      kao(:, 3,11, 8) = (/ &
+     &8.2652e-02_rb,1.0183e-01_rb,1.0547e-01_rb,1.0483e-01_rb,1.0201e-01_rb,9.6508e-02_rb, &
+     &8.7273e-02_rb,7.3474e-02_rb,4.0817e-02_rb/)
+      kao(:, 4,11, 8) = (/ &
+     &8.5862e-02_rb,1.0806e-01_rb,1.1212e-01_rb,1.1216e-01_rb,1.0950e-01_rb,1.0402e-01_rb, &
+     &9.4626e-02_rb,7.9735e-02_rb,4.5328e-02_rb/)
+      kao(:, 5,11, 8) = (/ &
+     &8.9572e-02_rb,1.1434e-01_rb,1.1896e-01_rb,1.1939e-01_rb,1.1678e-01_rb,1.1141e-01_rb, &
+     &1.0160e-01_rb,8.6030e-02_rb,4.9522e-02_rb/)
+      kao(:, 1,12, 8) = (/ &
+     &8.7861e-02_rb,9.9993e-02_rb,9.9171e-02_rb,9.4628e-02_rb,8.8704e-02_rb,8.0579e-02_rb, &
+     &7.0917e-02_rb,5.7333e-02_rb,2.8393e-02_rb/)
+      kao(:, 2,12, 8) = (/ &
+     &9.1432e-02_rb,1.0608e-01_rb,1.0583e-01_rb,1.0218e-01_rb,9.6300e-02_rb,8.8064e-02_rb, &
+     &7.7816e-02_rb,6.3024e-02_rb,3.2578e-02_rb/)
+      kao(:, 3,12, 8) = (/ &
+     &9.5110e-02_rb,1.1196e-01_rb,1.1325e-01_rb,1.0996e-01_rb,1.0369e-01_rb,9.5361e-02_rb, &
+     &8.4644e-02_rb,6.8902e-02_rb,3.7335e-02_rb/)
+      kao(:, 4,12, 8) = (/ &
+     &9.9318e-02_rb,1.1859e-01_rb,1.2042e-01_rb,1.1748e-01_rb,1.1108e-01_rb,1.0241e-01_rb, &
+     &9.1344e-02_rb,7.4779e-02_rb,4.1207e-02_rb/)
+      kao(:, 5,12, 8) = (/ &
+     &1.0395e-01_rb,1.2551e-01_rb,1.2774e-01_rb,1.2502e-01_rb,1.1865e-01_rb,1.0948e-01_rb, &
+     &9.7810e-02_rb,8.0483e-02_rb,4.4886e-02_rb/)
+      kao(:, 1,13, 8) = (/ &
+     &7.9847e-02_rb,9.1714e-02_rb,9.0958e-02_rb,8.6422e-02_rb,8.0456e-02_rb,7.2533e-02_rb, &
+     &6.2189e-02_rb,4.9649e-02_rb,2.4638e-02_rb/)
+      kao(:, 2,13, 8) = (/ &
+     &8.3442e-02_rb,9.7407e-02_rb,9.6872e-02_rb,9.3129e-02_rb,8.7376e-02_rb,7.8985e-02_rb, &
+     &6.8360e-02_rb,5.4702e-02_rb,2.8608e-02_rb/)
+      kao(:, 3,13, 8) = (/ &
+     &8.7437e-02_rb,1.0293e-01_rb,1.0345e-01_rb,9.9852e-02_rb,9.3864e-02_rb,8.5454e-02_rb, &
+     &7.4382e-02_rb,5.9885e-02_rb,3.2171e-02_rb/)
+      kao(:, 4,13, 8) = (/ &
+     &9.2235e-02_rb,1.0932e-01_rb,1.1033e-01_rb,1.0673e-01_rb,1.0043e-01_rb,9.1575e-02_rb, &
+     &8.0229e-02_rb,6.4806e-02_rb,3.5846e-02_rb/)
+      kao(:, 5,13, 8) = (/ &
+     &9.7358e-02_rb,1.1603e-01_rb,1.1725e-01_rb,1.1373e-01_rb,1.0722e-01_rb,9.7942e-02_rb, &
+     &8.5906e-02_rb,6.9573e-02_rb,3.9453e-02_rb/)
+      kao(:, 1, 1, 9) = (/ &
+     &2.3734e-04_rb,1.2635e-01_rb,2.5378e-01_rb,3.8280e-01_rb,5.1449e-01_rb,6.5095e-01_rb, &
+     &7.9709e-01_rb,9.7059e-01_rb,1.0290e+00_rb/)
+      kao(:, 2, 1, 9) = (/ &
+     &2.4162e-04_rb,1.3562e-01_rb,2.7235e-01_rb,4.1078e-01_rb,5.5198e-01_rb,6.9838e-01_rb, &
+     &8.5534e-01_rb,1.0400e+00_rb,1.1040e+00_rb/)
+      kao(:, 3, 1, 9) = (/ &
+     &2.4599e-04_rb,1.4459e-01_rb,2.9042e-01_rb,4.3810e-01_rb,5.8884e-01_rb,7.4499e-01_rb, &
+     &9.1233e-01_rb,1.1085e+00_rb,1.1777e+00_rb/)
+      kao(:, 4, 1, 9) = (/ &
+     &2.5041e-04_rb,1.5330e-01_rb,3.0793e-01_rb,4.6450e-01_rb,6.2431e-01_rb,7.9002e-01_rb, &
+     &9.6789e-01_rb,1.1761e+00_rb,1.2486e+00_rb/)
+      kao(:, 5, 1, 9) = (/ &
+     &2.5474e-04_rb,1.6182e-01_rb,3.2498e-01_rb,4.9034e-01_rb,6.5899e-01_rb,8.3368e-01_rb, &
+     &1.0214e+00_rb,1.2421e+00_rb,1.3180e+00_rb/)
+      kao(:, 1, 2, 9) = (/ &
+     &3.4870e-04_rb,1.1450e-01_rb,2.2975e-01_rb,3.4621e-01_rb,4.6468e-01_rb,5.8691e-01_rb, &
+     &7.1765e-01_rb,8.7423e-01_rb,9.2933e-01_rb/)
+      kao(:, 2, 2, 9) = (/ &
+     &3.5536e-04_rb,1.2334e-01_rb,2.4755e-01_rb,3.7300e-01_rb,5.0064e-01_rb,6.3232e-01_rb, &
+     &7.7280e-01_rb,9.4059e-01_rb,1.0013e+00_rb/)
+      kao(:, 3, 2, 9) = (/ &
+     &3.6217e-04_rb,1.3183e-01_rb,2.6460e-01_rb,3.9876e-01_rb,5.3531e-01_rb,6.7635e-01_rb, &
+     &8.2730e-01_rb,1.0064e+00_rb,1.0706e+00_rb/)
+      kao(:, 4, 2, 9) = (/ &
+     &3.6933e-04_rb,1.4017e-01_rb,2.8129e-01_rb,4.2395e-01_rb,5.6909e-01_rb,7.1898e-01_rb, &
+     &8.7939e-01_rb,1.0712e+00_rb,1.1382e+00_rb/)
+      kao(:, 5, 2, 9) = (/ &
+     &3.7836e-04_rb,1.4828e-01_rb,2.9766e-01_rb,4.4860e-01_rb,6.0234e-01_rb,7.6096e-01_rb, &
+     &9.3060e-01_rb,1.1332e+00_rb,1.2047e+00_rb/)
+      kao(:, 1, 3, 9) = (/ &
+     &6.8597e-04_rb,1.0077e-01_rb,2.0189e-01_rb,3.0366e-01_rb,4.0641e-01_rb,5.1122e-01_rb, &
+     &6.2085e-01_rb,7.4738e-01_rb,8.1281e-01_rb/)
+      kao(:, 2, 3, 9) = (/ &
+     &6.9976e-04_rb,1.0900e-01_rb,2.1840e-01_rb,3.2848e-01_rb,4.3972e-01_rb,5.5316e-01_rb, &
+     &6.7192e-01_rb,8.0915e-01_rb,8.7943e-01_rb/)
+      kao(:, 3, 3, 9) = (/ &
+     &7.1420e-04_rb,1.1699e-01_rb,2.3444e-01_rb,3.5259e-01_rb,4.7192e-01_rb,5.9381e-01_rb, &
+     &7.2140e-01_rb,8.6946e-01_rb,9.4382e-01_rb/)
+      kao(:, 4, 3, 9) = (/ &
+     &7.3229e-04_rb,1.2483e-01_rb,2.5014e-01_rb,3.7620e-01_rb,5.0367e-01_rb,6.3374e-01_rb, &
+     &7.7001e-01_rb,9.2785e-01_rb,1.0073e+00_rb/)
+      kao(:, 5, 3, 9) = (/ &
+     &7.5049e-04_rb,1.3237e-01_rb,2.6526e-01_rb,3.9901e-01_rb,5.3417e-01_rb,6.7225e-01_rb, &
+     &8.1699e-01_rb,9.8549e-01_rb,1.0683e+00_rb/)
+      kao(:, 1, 4, 9) = (/ &
+     &1.3742e-03_rb,8.7179e-02_rb,1.7451e-01_rb,2.6209e-01_rb,3.5019e-01_rb,4.3920e-01_rb, &
+     &5.3064e-01_rb,6.3091e-01_rb,7.0034e-01_rb/)
+      kao(:, 2, 4, 9) = (/ &
+     &1.4034e-03_rb,9.4872e-02_rb,1.8987e-01_rb,2.8522e-01_rb,3.8105e-01_rb,4.7796e-01_rb, &
+     &5.7741e-01_rb,6.8650e-01_rb,7.6206e-01_rb/)
+      kao(:, 3, 4, 9) = (/ &
+     &1.4371e-03_rb,1.0231e-01_rb,2.0478e-01_rb,3.0758e-01_rb,4.1096e-01_rb,5.1550e-01_rb, &
+     &6.2287e-01_rb,7.4083e-01_rb,8.2187e-01_rb/)
+      kao(:, 4, 4, 9) = (/ &
+     &1.4753e-03_rb,1.0953e-01_rb,2.1924e-01_rb,3.2932e-01_rb,4.4000e-01_rb,5.5196e-01_rb, &
+     &6.6692e-01_rb,7.9351e-01_rb,8.7995e-01_rb/)
+      kao(:, 5, 4, 9) = (/ &
+     &1.5185e-03_rb,1.1661e-01_rb,2.3342e-01_rb,3.5060e-01_rb,4.6845e-01_rb,5.8764e-01_rb, &
+     &7.1008e-01_rb,8.4502e-01_rb,9.3684e-01_rb/)
+      kao(:, 1, 5, 9) = (/ &
+     &2.5355e-03_rb,7.5685e-02_rb,1.4908e-01_rb,2.2375e-01_rb,2.9863e-01_rb,3.7400e-01_rb, &
+     &4.5045e-01_rb,5.3139e-01_rb,5.9720e-01_rb/)
+      kao(:, 2, 5, 9) = (/ &
+     &2.5953e-03_rb,8.2577e-02_rb,1.6333e-01_rb,2.4515e-01_rb,3.2721e-01_rb,4.0982e-01_rb, &
+     &4.9365e-01_rb,5.8247e-01_rb,6.5435e-01_rb/)
+      kao(:, 3, 5, 9) = (/ &
+     &2.6636e-03_rb,8.9208e-02_rb,1.7705e-01_rb,2.6573e-01_rb,3.5473e-01_rb,4.4427e-01_rb, &
+     &5.3522e-01_rb,6.3160e-01_rb,7.0937e-01_rb/)
+      kao(:, 4, 5, 9) = (/ &
+     &2.7420e-03_rb,9.5746e-02_rb,1.9046e-01_rb,2.8588e-01_rb,3.8160e-01_rb,4.7792e-01_rb, &
+     &5.7573e-01_rb,6.7936e-01_rb,7.6310e-01_rb/)
+      kao(:, 5, 5, 9) = (/ &
+     &2.8238e-03_rb,1.0214e-01_rb,2.0360e-01_rb,3.0562e-01_rb,4.0796e-01_rb,5.1095e-01_rb, &
+     &6.1550e-01_rb,7.2630e-01_rb,8.1581e-01_rb/)
+      kao(:, 1, 6, 9) = (/ &
+     &4.3605e-03_rb,6.9106e-02_rb,1.2775e-01_rb,1.8881e-01_rb,2.5131e-01_rb,3.1447e-01_rb, &
+     &3.7819e-01_rb,4.4408e-01_rb,5.0252e-01_rb/)
+      kao(:, 2, 6, 9) = (/ &
+     &4.4677e-03_rb,7.5202e-02_rb,1.4031e-01_rb,2.0810e-01_rb,2.7735e-01_rb,3.4706e-01_rb, &
+     &4.1739e-01_rb,4.9016e-01_rb,5.5457e-01_rb/)
+      kao(:, 3, 6, 9) = (/ &
+     &4.5887e-03_rb,8.1094e-02_rb,1.5254e-01_rb,2.2684e-01_rb,3.0254e-01_rb,3.7858e-01_rb, &
+     &4.5531e-01_rb,5.3473e-01_rb,6.0493e-01_rb/)
+      kao(:, 4, 6, 9) = (/ &
+     &4.7247e-03_rb,8.6870e-02_rb,1.6450e-01_rb,2.4527e-01_rb,3.2719e-01_rb,4.0945e-01_rb, &
+     &4.9240e-01_rb,5.7834e-01_rb,6.5421e-01_rb/)
+      kao(:, 5, 6, 9) = (/ &
+     &4.8692e-03_rb,9.2597e-02_rb,1.7638e-01_rb,2.6357e-01_rb,3.5163e-01_rb,4.4001e-01_rb, &
+     &5.2913e-01_rb,6.2153e-01_rb,7.0308e-01_rb/)
+      kao(:, 1, 7, 9) = (/ &
+     &7.8126e-03_rb,6.9794e-02_rb,1.1632e-01_rb,1.6292e-01_rb,2.1140e-01_rb,2.6176e-01_rb, &
+     &3.1398e-01_rb,3.6765e-01_rb,4.1782e-01_rb/)
+      kao(:, 2, 7, 9) = (/ &
+     &8.0155e-03_rb,7.6059e-02_rb,1.2742e-01_rb,1.7989e-01_rb,2.3439e-01_rb,2.9098e-01_rb, &
+     &3.4941e-01_rb,4.0917e-01_rb,4.6495e-01_rb/)
+      kao(:, 3, 7, 9) = (/ &
+     &8.2416e-03_rb,8.1970e-02_rb,1.3813e-01_rb,1.9625e-01_rb,2.5659e-01_rb,3.1926e-01_rb, &
+     &3.8354e-01_rb,4.4917e-01_rb,5.1030e-01_rb/)
+      kao(:, 4, 7, 9) = (/ &
+     &8.4921e-03_rb,8.7603e-02_rb,1.4873e-01_rb,2.1252e-01_rb,2.7865e-01_rb,3.4736e-01_rb, &
+     &4.1730e-01_rb,4.8866e-01_rb,5.5524e-01_rb/)
+      kao(:, 5, 7, 9) = (/ &
+     &8.7515e-03_rb,9.3044e-02_rb,1.5925e-01_rb,2.2867e-01_rb,3.0064e-01_rb,3.7532e-01_rb, &
+     &4.5091e-01_rb,5.2808e-01_rb,5.9993e-01_rb/)
+      kao(:, 1, 8, 9) = (/ &
+     &1.6603e-02_rb,7.8794e-02_rb,1.2181e-01_rb,1.5872e-01_rb,1.9167e-01_rb,2.2528e-01_rb, &
+     &2.6122e-01_rb,3.0128e-01_rb,3.4340e-01_rb/)
+      kao(:, 2, 8, 9) = (/ &
+     &1.7055e-02_rb,8.5849e-02_rb,1.3372e-01_rb,1.7446e-01_rb,2.1153e-01_rb,2.5044e-01_rb, &
+     &2.9195e-01_rb,3.3805e-01_rb,3.8527e-01_rb/)
+      kao(:, 3, 8, 9) = (/ &
+     &1.7594e-02_rb,9.2738e-02_rb,1.4493e-01_rb,1.8895e-01_rb,2.3080e-01_rb,2.7486e-01_rb, &
+     &3.2173e-01_rb,3.7362e-01_rb,4.2584e-01_rb/)
+      kao(:, 4, 8, 9) = (/ &
+     &1.8162e-02_rb,9.9290e-02_rb,1.5571e-01_rb,2.0324e-01_rb,2.5013e-01_rb,2.9946e-01_rb, &
+     &3.5175e-01_rb,4.0935e-01_rb,4.6655e-01_rb/)
+      kao(:, 5, 8, 9) = (/ &
+     &1.8749e-02_rb,1.0557e-01_rb,1.6622e-01_rb,2.1745e-01_rb,2.6934e-01_rb,3.2386e-01_rb, &
+     &3.8166e-01_rb,4.4484e-01_rb,5.0696e-01_rb/)
+      kao(:, 1, 9, 9) = (/ &
+     &6.5840e-02_rb,1.3860e-01_rb,1.7838e-01_rb,2.0998e-01_rb,2.3508e-01_rb,2.5392e-01_rb, &
+     &2.6499e-01_rb,2.6488e-01_rb,2.7801e-01_rb/)
+      kao(:, 2, 9, 9) = (/ &
+     &6.7872e-02_rb,1.4849e-01_rb,1.9371e-01_rb,2.2975e-01_rb,2.5869e-01_rb,2.8072e-01_rb, &
+     &2.9363e-01_rb,2.9601e-01_rb,3.1493e-01_rb/)
+      kao(:, 3, 9, 9) = (/ &
+     &7.0225e-02_rb,1.5836e-01_rb,2.0886e-01_rb,2.4918e-01_rb,2.8159e-01_rb,3.0644e-01_rb, &
+     &3.2072e-01_rb,3.2657e-01_rb,3.5112e-01_rb/)
+      kao(:, 4, 9, 9) = (/ &
+     &7.2560e-02_rb,1.6804e-01_rb,2.2356e-01_rb,2.6776e-01_rb,3.0359e-01_rb,3.3128e-01_rb, &
+     &3.4695e-01_rb,3.5732e-01_rb,3.8745e-01_rb/)
+      kao(:, 5, 9, 9) = (/ &
+     &7.5125e-02_rb,1.7750e-01_rb,2.3755e-01_rb,2.8560e-01_rb,3.2501e-01_rb,3.5553e-01_rb, &
+     &3.7247e-01_rb,3.8768e-01_rb,4.2319e-01_rb/)
+      kao(:, 1,10, 9) = (/ &
+     &2.8983e-01_rb,3.6990e-01_rb,4.0037e-01_rb,4.0949e-01_rb,4.0589e-01_rb,3.9081e-01_rb, &
+     &3.6404e-01_rb,3.1914e-01_rb,2.2264e-01_rb/)
+      kao(:, 2,10, 9) = (/ &
+     &2.9917e-01_rb,3.8833e-01_rb,4.2499e-01_rb,4.3869e-01_rb,4.3868e-01_rb,4.2555e-01_rb, &
+     &3.9991e-01_rb,3.5416e-01_rb,2.5485e-01_rb/)
+      kao(:, 3,10, 9) = (/ &
+     &3.0939e-01_rb,4.0713e-01_rb,4.4875e-01_rb,4.6776e-01_rb,4.7103e-01_rb,4.6014e-01_rb, &
+     &4.3525e-01_rb,3.8827e-01_rb,2.8738e-01_rb/)
+      kao(:, 4,10, 9) = (/ &
+     &3.2110e-01_rb,4.2672e-01_rb,4.7284e-01_rb,4.9667e-01_rb,5.0290e-01_rb,4.9348e-01_rb, &
+     &4.6953e-01_rb,4.2184e-01_rb,3.1974e-01_rb/)
+      kao(:, 5,10, 9) = (/ &
+     &3.3272e-01_rb,4.4730e-01_rb,4.9768e-01_rb,5.2532e-01_rb,5.3384e-01_rb,5.2588e-01_rb, &
+     &5.0287e-01_rb,4.5423e-01_rb,3.5166e-01_rb/)
+      kao(:, 1,11, 9) = (/ &
+     &4.4524e-01_rb,5.1679e-01_rb,5.3684e-01_rb,5.3332e-01_rb,5.1092e-01_rb,4.7255e-01_rb, &
+     &4.1877e-01_rb,3.4229e-01_rb,1.8048e-01_rb/)
+      kao(:, 2,11, 9) = (/ &
+     &4.5963e-01_rb,5.4202e-01_rb,5.6658e-01_rb,5.6626e-01_rb,5.4700e-01_rb,5.0983e-01_rb, &
+     &4.5605e-01_rb,3.7725e-01_rb,2.0742e-01_rb/)
+      kao(:, 3,11, 9) = (/ &
+     &4.7588e-01_rb,5.6665e-01_rb,5.9649e-01_rb,5.9968e-01_rb,5.8254e-01_rb,5.4674e-01_rb, &
+     &4.9265e-01_rb,4.1176e-01_rb,2.3443e-01_rb/)
+      kao(:, 4,11, 9) = (/ &
+     &4.9478e-01_rb,5.9201e-01_rb,6.2710e-01_rb,6.3330e-01_rb,6.1823e-01_rb,5.8344e-01_rb, &
+     &5.2842e-01_rb,4.4573e-01_rb,2.6065e-01_rb/)
+      kao(:, 5,11, 9) = (/ &
+     &5.1485e-01_rb,6.2017e-01_rb,6.5811e-01_rb,6.6709e-01_rb,6.5355e-01_rb,6.1972e-01_rb, &
+     &5.6393e-01_rb,4.7838e-01_rb,2.8720e-01_rb/)
+      kao(:, 1,12, 9) = (/ &
+     &5.0543e-01_rb,5.6903e-01_rb,5.8050e-01_rb,5.7018e-01_rb,5.4105e-01_rb,4.9466e-01_rb, &
+     &4.2828e-01_rb,3.3843e-01_rb,1.4652e-01_rb/)
+      kao(:, 2,12, 9) = (/ &
+     &5.2298e-01_rb,5.9603e-01_rb,6.1306e-01_rb,6.0448e-01_rb,5.7710e-01_rb,5.3128e-01_rb, &
+     &4.6400e-01_rb,3.7149e-01_rb,1.6865e-01_rb/)
+      kao(:, 3,12, 9) = (/ &
+     &5.4270e-01_rb,6.2472e-01_rb,6.4493e-01_rb,6.3902e-01_rb,6.1334e-01_rb,5.6783e-01_rb, &
+     &4.9936e-01_rb,4.0428e-01_rb,1.8993e-01_rb/)
+      kao(:, 4,12, 9) = (/ &
+     &5.6576e-01_rb,6.5409e-01_rb,6.7814e-01_rb,6.7406e-01_rb,6.4973e-01_rb,6.0390e-01_rb, &
+     &5.3494e-01_rb,4.3628e-01_rb,2.1164e-01_rb/)
+      kao(:, 5,12, 9) = (/ &
+     &5.9076e-01_rb,6.8665e-01_rb,7.1248e-01_rb,7.0991e-01_rb,6.8560e-01_rb,6.4007e-01_rb, &
+     &5.7053e-01_rb,4.6743e-01_rb,2.3320e-01_rb/)
+      kao(:, 1,13, 9) = (/ &
+     &4.5979e-01_rb,5.1890e-01_rb,5.2855e-01_rb,5.1825e-01_rb,4.9146e-01_rb,4.4960e-01_rb, &
+     &3.8971e-01_rb,3.0598e-01_rb,1.2566e-01_rb/)
+      kao(:, 2,13, 9) = (/ &
+     &4.7640e-01_rb,5.4480e-01_rb,5.5925e-01_rb,5.5059e-01_rb,5.2436e-01_rb,4.8283e-01_rb, &
+     &4.2163e-01_rb,3.3565e-01_rb,1.4550e-01_rb/)
+      kao(:, 3,13, 9) = (/ &
+     &4.9565e-01_rb,5.7250e-01_rb,5.8989e-01_rb,5.8311e-01_rb,5.5799e-01_rb,5.1559e-01_rb, &
+     &4.5382e-01_rb,3.6511e-01_rb,1.6523e-01_rb/)
+      kao(:, 4,13, 9) = (/ &
+     &5.1794e-01_rb,6.0150e-01_rb,6.2192e-01_rb,6.1629e-01_rb,5.9157e-01_rb,5.4908e-01_rb, &
+     &4.8624e-01_rb,3.9414e-01_rb,1.8408e-01_rb/)
+      kao(:, 5,13, 9) = (/ &
+     &5.4127e-01_rb,6.3348e-01_rb,6.5477e-01_rb,6.5028e-01_rb,6.2556e-01_rb,5.8254e-01_rb, &
+     &5.1808e-01_rb,4.2264e-01_rb,2.0283e-01_rb/)
+      kao(:, 1, 1,10) = (/ &
+     &6.5918e-04_rb,3.4888e-01_rb,6.9848e-01_rb,1.0485e+00_rb,1.4002e+00_rb,1.7549e+00_rb, &
+     &2.1190e+00_rb,2.5078e+00_rb,2.8004e+00_rb/)
+      kao(:, 2, 1,10) = (/ &
+     &6.7280e-04_rb,3.7184e-01_rb,7.4416e-01_rb,1.1175e+00_rb,1.4925e+00_rb,1.8689e+00_rb, &
+     &2.2475e+00_rb,2.6390e+00_rb,2.9850e+00_rb/)
+      kao(:, 3, 1,10) = (/ &
+     &6.8523e-04_rb,3.9709e-01_rb,7.9353e-01_rb,1.1893e+00_rb,1.5844e+00_rb,1.9796e+00_rb, &
+     &2.3755e+00_rb,2.7728e+00_rb,3.1689e+00_rb/)
+      kao(:, 4, 1,10) = (/ &
+     &6.9619e-04_rb,4.2236e-01_rb,8.4460e-01_rb,1.2663e+00_rb,1.6869e+00_rb,2.1024e+00_rb, &
+     &2.5075e+00_rb,2.8990e+00_rb,3.3737e+00_rb/)
+      kao(:, 5, 1,10) = (/ &
+     &7.0541e-04_rb,4.4505e-01_rb,8.9002e-01_rb,1.3353e+00_rb,1.7799e+00_rb,2.2235e+00_rb, &
+     &2.6534e+00_rb,3.0275e+00_rb,3.5598e+00_rb/)
+      kao(:, 1, 2,10) = (/ &
+     &1.0168e-03_rb,3.3520e-01_rb,6.7064e-01_rb,1.0063e+00_rb,1.3424e+00_rb,1.6793e+00_rb, &
+     &2.0199e+00_rb,2.3746e+00_rb,2.6847e+00_rb/)
+      kao(:, 2, 2,10) = (/ &
+     &1.0383e-03_rb,3.6090e-01_rb,7.2200e-01_rb,1.0832e+00_rb,1.4445e+00_rb,1.8057e+00_rb, &
+     &2.1681e+00_rb,2.5457e+00_rb,2.8891e+00_rb/)
+      kao(:, 3, 2,10) = (/ &
+     &1.0584e-03_rb,3.8758e-01_rb,7.7508e-01_rb,1.1623e+00_rb,1.5490e+00_rb,1.9350e+00_rb, &
+     &2.3176e+00_rb,2.7064e+00_rb,3.0980e+00_rb/)
+      kao(:, 4, 2,10) = (/ &
+     &1.0746e-03_rb,4.1292e-01_rb,8.2598e-01_rb,1.2389e+00_rb,1.6519e+00_rb,2.0646e+00_rb, &
+     &2.4744e+00_rb,2.8678e+00_rb,3.3037e+00_rb/)
+      kao(:, 5, 2,10) = (/ &
+     &1.0744e-03_rb,4.3717e-01_rb,8.7417e-01_rb,1.3107e+00_rb,1.7471e+00_rb,2.1834e+00_rb, &
+     &2.6192e+00_rb,3.0444e+00_rb,3.4941e+00_rb/)
+      kao(:, 1, 3,10) = (/ &
+     &2.0748e-03_rb,3.1600e-01_rb,6.3217e-01_rb,9.4857e-01_rb,1.2657e+00_rb,1.5838e+00_rb, &
+     &1.9039e+00_rb,2.2287e+00_rb,2.5314e+00_rb/)
+      kao(:, 2, 3,10) = (/ &
+     &2.1217e-03_rb,3.4261e-01_rb,6.8545e-01_rb,1.0284e+00_rb,1.3716e+00_rb,1.7154e+00_rb, &
+     &2.0606e+00_rb,2.4138e+00_rb,2.7432e+00_rb/)
+      kao(:, 3, 3,10) = (/ &
+     &2.1619e-03_rb,3.6999e-01_rb,7.4010e-01_rb,1.1107e+00_rb,1.4817e+00_rb,1.8526e+00_rb, &
+     &2.2240e+00_rb,2.5942e+00_rb,2.9634e+00_rb/)
+      kao(:, 4, 3,10) = (/ &
+     &2.1755e-03_rb,3.9596e-01_rb,7.9208e-01_rb,1.1885e+00_rb,1.5854e+00_rb,1.9831e+00_rb, &
+     &2.3825e+00_rb,2.7842e+00_rb,3.1709e+00_rb/)
+      kao(:, 5, 3,10) = (/ &
+     &2.1880e-03_rb,4.2191e-01_rb,8.4399e-01_rb,1.2664e+00_rb,1.6893e+00_rb,2.1130e+00_rb, &
+     &2.5373e+00_rb,2.9615e+00_rb,3.3787e+00_rb/)
+      kao(:, 1, 4,10) = (/ &
+     &4.2494e-03_rb,2.8992e-01_rb,5.8012e-01_rb,8.7071e-01_rb,1.1620e+00_rb,1.4546e+00_rb, &
+     &1.7505e+00_rb,2.0568e+00_rb,2.3239e+00_rb/)
+      kao(:, 2, 4,10) = (/ &
+     &4.3512e-03_rb,3.1537e-01_rb,6.3099e-01_rb,9.4695e-01_rb,1.2638e+00_rb,1.5819e+00_rb, &
+     &1.9039e+00_rb,2.2390e+00_rb,2.5276e+00_rb/)
+      kao(:, 3, 4,10) = (/ &
+     &4.4136e-03_rb,3.4243e-01_rb,6.8516e-01_rb,1.0282e+00_rb,1.3719e+00_rb,1.7170e+00_rb, &
+     &2.0650e+00_rb,2.4245e+00_rb,2.7438e+00_rb/)
+      kao(:, 4, 4,10) = (/ &
+     &4.4541e-03_rb,3.6913e-01_rb,7.3845e-01_rb,1.1085e+00_rb,1.4792e+00_rb,1.8513e+00_rb, &
+     &2.2276e+00_rb,2.6166e+00_rb,2.9583e+00_rb/)
+      kao(:, 5, 4,10) = (/ &
+     &4.4637e-03_rb,3.9522e-01_rb,7.9055e-01_rb,1.1865e+00_rb,1.5830e+00_rb,1.9815e+00_rb, &
+     &2.3838e+00_rb,2.7994e+00_rb,3.1659e+00_rb/)
+      kao(:, 1, 5,10) = (/ &
+     &7.8944e-03_rb,2.6027e-01_rb,5.2060e-01_rb,7.8129e-01_rb,1.0423e+00_rb,1.3045e+00_rb, &
+     &1.5691e+00_rb,1.8427e+00_rb,2.0845e+00_rb/)
+      kao(:, 2, 5,10) = (/ &
+     &8.0572e-03_rb,2.8413e-01_rb,5.6833e-01_rb,8.5287e-01_rb,1.1378e+00_rb,1.4238e+00_rb, &
+     &1.7119e+00_rb,2.0096e+00_rb,2.2754e+00_rb/)
+      kao(:, 3, 5,10) = (/ &
+     &8.1742e-03_rb,3.1030e-01_rb,6.2054e-01_rb,9.3122e-01_rb,1.2421e+00_rb,1.5541e+00_rb, &
+     &1.8685e+00_rb,2.1911e+00_rb,2.4841e+00_rb/)
+      kao(:, 4, 5,10) = (/ &
+     &8.2414e-03_rb,3.3618e-01_rb,6.7234e-01_rb,1.0088e+00_rb,1.3458e+00_rb,1.6840e+00_rb, &
+     &2.0247e+00_rb,2.3758e+00_rb,2.6915e+00_rb/)
+      kao(:, 5, 5,10) = (/ &
+     &8.3003e-03_rb,3.6135e-01_rb,7.2289e-01_rb,1.0847e+00_rb,1.4472e+00_rb,1.8109e+00_rb, &
+     &2.1782e+00_rb,2.5572e+00_rb,2.8943e+00_rb/)
+      kao(:, 1, 6,10) = (/ &
+     &1.3769e-02_rb,2.2868e-01_rb,4.5729e-01_rb,6.8615e-01_rb,9.1532e-01_rb,1.1447e+00_rb, &
+     &1.3758e+00_rb,1.6126e+00_rb,1.8305e+00_rb/)
+      kao(:, 2, 6,10) = (/ &
+     &1.4077e-02_rb,2.5186e-01_rb,5.0368e-01_rb,7.5558e-01_rb,1.0079e+00_rb,1.2605e+00_rb, &
+     &1.5146e+00_rb,1.7737e+00_rb,2.0155e+00_rb/)
+      kao(:, 3, 6,10) = (/ &
+     &1.4339e-02_rb,2.7680e-01_rb,5.5350e-01_rb,8.3033e-01_rb,1.1075e+00_rb,1.3852e+00_rb, &
+     &1.6642e+00_rb,1.9484e+00_rb,2.2148e+00_rb/)
+      kao(:, 4, 6,10) = (/ &
+     &1.4519e-02_rb,3.0142e-01_rb,6.0270e-01_rb,9.0418e-01_rb,1.2061e+00_rb,1.5083e+00_rb, &
+     &1.8129e+00_rb,2.1232e+00_rb,2.4121e+00_rb/)
+      kao(:, 5, 6,10) = (/ &
+     &1.4692e-02_rb,3.2398e-01_rb,6.4788e-01_rb,9.7210e-01_rb,1.2967e+00_rb,1.6219e+00_rb, &
+     &1.9490e+00_rb,2.2841e+00_rb,2.5932e+00_rb/)
+      kao(:, 1, 7,10) = (/ &
+     &2.5736e-02_rb,2.1730e-01_rb,3.9499e-01_rb,5.9240e-01_rb,7.9003e-01_rb,9.8783e-01_rb, &
+     &1.1864e+00_rb,1.3877e+00_rb,1.5798e+00_rb/)
+      kao(:, 2, 7,10) = (/ &
+     &2.6391e-02_rb,2.3410e-01_rb,4.4100e-01_rb,6.6147e-01_rb,8.8204e-01_rb,1.1029e+00_rb, &
+     &1.3242e+00_rb,1.5482e+00_rb,1.7637e+00_rb/)
+      kao(:, 3, 7,10) = (/ &
+     &2.6951e-02_rb,2.5201e-01_rb,4.8957e-01_rb,7.3433e-01_rb,9.7905e-01_rb,1.2243e+00_rb, &
+     &1.4699e+00_rb,1.7185e+00_rb,1.9578e+00_rb/)
+      kao(:, 4, 7,10) = (/ &
+     &2.7390e-02_rb,2.7020e-01_rb,5.3407e-01_rb,8.0106e-01_rb,1.0682e+00_rb,1.3359e+00_rb, &
+     &1.6042e+00_rb,1.8761e+00_rb,2.1361e+00_rb/)
+      kao(:, 5, 7,10) = (/ &
+     &2.8064e-02_rb,2.8861e-01_rb,5.7611e-01_rb,8.6397e-01_rb,1.1521e+00_rb,1.4408e+00_rb, &
+     &1.7300e+00_rb,2.0229e+00_rb,2.3040e+00_rb/)
+      kao(:, 1, 8,10) = (/ &
+     &5.8578e-02_rb,2.6880e-01_rb,4.0001e-01_rb,5.2061e-01_rb,6.7938e-01_rb,8.4922e-01_rb, &
+     &1.0194e+00_rb,1.1905e+00_rb,1.3581e+00_rb/)
+      kao(:, 2, 8,10) = (/ &
+     &6.0087e-02_rb,2.9139e-01_rb,4.3501e-01_rb,5.7583e-01_rb,7.6491e-01_rb,9.5619e-01_rb, &
+     &1.1477e+00_rb,1.3402e+00_rb,1.5292e+00_rb/)
+      kao(:, 3, 8,10) = (/ &
+     &6.1083e-02_rb,3.1400e-01_rb,4.7010e-01_rb,6.4266e-01_rb,8.5685e-01_rb,1.0710e+00_rb, &
+     &1.2856e+00_rb,1.5014e+00_rb,1.7131e+00_rb/)
+      kao(:, 4, 8,10) = (/ &
+     &6.2072e-02_rb,3.3715e-01_rb,5.0004e-01_rb,7.0498e-01_rb,9.3980e-01_rb,1.1748e+00_rb, &
+     &1.4102e+00_rb,1.6468e+00_rb,1.8789e+00_rb/)
+      kao(:, 5, 8,10) = (/ &
+     &6.3481e-02_rb,3.5691e-01_rb,5.2888e-01_rb,7.6432e-01_rb,1.0191e+00_rb,1.2740e+00_rb, &
+     &1.5290e+00_rb,1.7860e+00_rb,2.0375e+00_rb/)
+      kao(:, 1, 9,10) = (/ &
+     &2.5051e-01_rb,4.8216e-01_rb,6.3956e-01_rb,7.5081e-01_rb,8.3417e-01_rb,8.8639e-01_rb, &
+     &9.0389e-01_rb,1.0106e+00_rb,1.1541e+00_rb/)
+      kao(:, 2, 9,10) = (/ &
+     &2.5603e-01_rb,5.1856e-01_rb,6.9227e-01_rb,8.2007e-01_rb,9.1537e-01_rb,9.7189e-01_rb, &
+     &9.9778e-01_rb,1.1454e+00_rb,1.3083e+00_rb/)
+      kao(:, 3, 9,10) = (/ &
+     &2.6013e-01_rb,5.5198e-01_rb,7.4416e-01_rb,8.8806e-01_rb,9.9547e-01_rb,1.0583e+00_rb, &
+     &1.1091e+00_rb,1.2896e+00_rb,1.4729e+00_rb/)
+      kao(:, 4, 9,10) = (/ &
+     &2.6455e-01_rb,5.8224e-01_rb,7.9653e-01_rb,9.5696e-01_rb,1.0752e+00_rb,1.1310e+00_rb, &
+     &1.2203e+00_rb,1.4235e+00_rb,1.6258e+00_rb/)
+      kao(:, 5, 9,10) = (/ &
+     &2.6779e-01_rb,6.1167e-01_rb,8.4854e-01_rb,1.0208e+00_rb,1.1434e+00_rb,1.1964e+00_rb, &
+     &1.3330e+00_rb,1.5553e+00_rb,1.7761e+00_rb/)
+      kao(:, 1,10,10) = (/ &
+     &1.1877e+00_rb,1.3423e+00_rb,1.4114e+00_rb,1.4638e+00_rb,1.4747e+00_rb,1.4384e+00_rb, &
+     &1.3561e+00_rb,1.1884e+00_rb,9.6724e-01_rb/)
+      kao(:, 2,10,10) = (/ &
+     &1.2130e+00_rb,1.4001e+00_rb,1.4986e+00_rb,1.5677e+00_rb,1.5910e+00_rb,1.5689e+00_rb, &
+     &1.4918e+00_rb,1.3127e+00_rb,1.1039e+00_rb/)
+      kao(:, 3,10,10) = (/ &
+     &1.2346e+00_rb,1.4593e+00_rb,1.5877e+00_rb,1.6627e+00_rb,1.7012e+00_rb,1.6974e+00_rb, &
+     &1.6231e+00_rb,1.4376e+00_rb,1.2384e+00_rb/)
+      kao(:, 4,10,10) = (/ &
+     &1.2516e+00_rb,1.5151e+00_rb,1.6747e+00_rb,1.7501e+00_rb,1.8076e+00_rb,1.8250e+00_rb, &
+     &1.7537e+00_rb,1.5512e+00_rb,1.3735e+00_rb/)
+      kao(:, 5,10,10) = (/ &
+     &1.2661e+00_rb,1.5638e+00_rb,1.7522e+00_rb,1.8374e+00_rb,1.9121e+00_rb,1.9420e+00_rb, &
+     &1.8736e+00_rb,1.6582e+00_rb,1.5128e+00_rb/)
+      kao(:, 1,11,10) = (/ &
+     &1.9480e+00_rb,2.0492e+00_rb,2.0295e+00_rb,1.9735e+00_rb,1.8970e+00_rb,1.7736e+00_rb, &
+     &1.5866e+00_rb,1.3339e+00_rb,8.4829e-01_rb/)
+      kao(:, 2,11,10) = (/ &
+     &1.9908e+00_rb,2.1211e+00_rb,2.1260e+00_rb,2.0949e+00_rb,2.0240e+00_rb,1.9060e+00_rb, &
+     &1.7325e+00_rb,1.4683e+00_rb,9.6828e-01_rb/)
+      kao(:, 3,11,10) = (/ &
+     &2.0285e+00_rb,2.1879e+00_rb,2.2239e+00_rb,2.2116e+00_rb,2.1470e+00_rb,2.0366e+00_rb, &
+     &1.8735e+00_rb,1.6014e+00_rb,1.0930e+00_rb/)
+      kao(:, 4,11,10) = (/ &
+     &2.0556e+00_rb,2.2562e+00_rb,2.3222e+00_rb,2.3233e+00_rb,2.2648e+00_rb,2.1592e+00_rb, &
+     &2.0072e+00_rb,1.7228e+00_rb,1.2296e+00_rb/)
+      kao(:, 5,11,10) = (/ &
+     &2.0825e+00_rb,2.3069e+00_rb,2.4192e+00_rb,2.4269e+00_rb,2.3834e+00_rb,2.2768e+00_rb, &
+     &2.1248e+00_rb,1.8445e+00_rb,1.3568e+00_rb/)
+      kao(:, 1,12,10) = (/ &
+     &2.3362e+00_rb,2.4153e+00_rb,2.3669e+00_rb,2.2577e+00_rb,2.1055e+00_rb,1.9147e+00_rb, &
+     &1.6820e+00_rb,1.3486e+00_rb,7.4407e-01_rb/)
+      kao(:, 2,12,10) = (/ &
+     &2.3893e+00_rb,2.4937e+00_rb,2.4670e+00_rb,2.3773e+00_rb,2.2296e+00_rb,2.0482e+00_rb, &
+     &1.8201e+00_rb,1.4800e+00_rb,8.5242e-01_rb/)
+      kao(:, 3,12,10) = (/ &
+     &2.4357e+00_rb,2.5702e+00_rb,2.5666e+00_rb,2.4887e+00_rb,2.3537e+00_rb,2.1812e+00_rb, &
+     &1.9511e+00_rb,1.6049e+00_rb,9.6662e-01_rb/)
+      kao(:, 4,12,10) = (/ &
+     &2.4652e+00_rb,2.6456e+00_rb,2.6664e+00_rb,2.5981e+00_rb,2.4742e+00_rb,2.3104e+00_rb, &
+     &2.0695e+00_rb,1.7245e+00_rb,1.0828e+00_rb/)
+      kao(:, 5,12,10) = (/ &
+     &2.4945e+00_rb,2.7001e+00_rb,2.7645e+00_rb,2.7014e+00_rb,2.5936e+00_rb,2.4312e+00_rb, &
+     &2.1779e+00_rb,1.8427e+00_rb,1.2015e+00_rb/)
+      kao(:, 1,13,10) = (/ &
+     &2.2054e+00_rb,2.3120e+00_rb,2.2775e+00_rb,2.1807e+00_rb,2.0276e+00_rb,1.8297e+00_rb, &
+     &1.5931e+00_rb,1.2531e+00_rb,5.9202e-01_rb/)
+      kao(:, 2,13,10) = (/ &
+     &2.2559e+00_rb,2.3878e+00_rb,2.3725e+00_rb,2.2888e+00_rb,2.1438e+00_rb,1.9536e+00_rb, &
+     &1.7172e+00_rb,1.3694e+00_rb,6.7488e-01_rb/)
+      kao(:, 3,13,10) = (/ &
+     &2.2951e+00_rb,2.4612e+00_rb,2.4689e+00_rb,2.3923e+00_rb,2.2596e+00_rb,2.0732e+00_rb, &
+     &1.8332e+00_rb,1.4777e+00_rb,7.6019e-01_rb/)
+      kao(:, 4,13,10) = (/ &
+     &2.3235e+00_rb,2.5286e+00_rb,2.5591e+00_rb,2.4947e+00_rb,2.3722e+00_rb,2.1862e+00_rb, &
+     &1.9383e+00_rb,1.5857e+00_rb,8.5248e-01_rb/)
+      kao(:, 5,13,10) = (/ &
+     &2.3616e+00_rb,2.5838e+00_rb,2.6490e+00_rb,2.5951e+00_rb,2.4760e+00_rb,2.2908e+00_rb, &
+     &2.0454e+00_rb,1.6895e+00_rb,9.4490e-01_rb/)
+      kao(:, 1, 1,11) = (/ &
+     &9.3294e-04_rb,5.3309e-01_rb,1.0647e+00_rb,1.5932e+00_rb,2.1160e+00_rb,2.6255e+00_rb, &
+     &3.0986e+00_rb,3.3968e+00_rb,4.2319e+00_rb/)
+      kao(:, 2, 1,11) = (/ &
+     &9.5345e-04_rb,5.6455e-01_rb,1.1277e+00_rb,1.6875e+00_rb,2.2413e+00_rb,2.7825e+00_rb, &
+     &3.2884e+00_rb,3.6383e+00_rb,4.4826e+00_rb/)
+      kao(:, 3, 1,11) = (/ &
+     &9.7241e-04_rb,5.9098e-01_rb,1.1810e+00_rb,1.7692e+00_rb,2.3540e+00_rb,2.9286e+00_rb, &
+     &3.4675e+00_rb,3.8516e+00_rb,4.7080e+00_rb/)
+      kao(:, 4, 1,11) = (/ &
+     &9.8984e-04_rb,6.1800e-01_rb,1.2338e+00_rb,1.8462e+00_rb,2.4536e+00_rb,3.0526e+00_rb, &
+     &3.6266e+00_rb,4.0600e+00_rb,4.9071e+00_rb/)
+      kao(:, 5, 1,11) = (/ &
+     &1.0059e-03_rb,6.4816e-01_rb,1.2933e+00_rb,1.9339e+00_rb,2.5658e+00_rb,3.1822e+00_rb, &
+     &3.7668e+00_rb,4.2510e+00_rb,5.1316e+00_rb/)
+      kao(:, 1, 2,11) = (/ &
+     &1.5074e-03_rb,5.1913e-01_rb,1.0387e+00_rb,1.5585e+00_rb,2.0790e+00_rb,2.5998e+00_rb, &
+     &3.1169e+00_rb,3.5984e+00_rb,4.1578e+00_rb/)
+      kao(:, 2, 2,11) = (/ &
+     &1.5417e-03_rb,5.5254e-01_rb,1.1053e+00_rb,1.6578e+00_rb,2.2101e+00_rb,2.7629e+00_rb, &
+     &3.3129e+00_rb,3.8170e+00_rb,4.4201e+00_rb/)
+      kao(:, 3, 2,11) = (/ &
+     &1.5713e-03_rb,5.8438e-01_rb,1.1685e+00_rb,1.7524e+00_rb,2.3358e+00_rb,2.9174e+00_rb, &
+     &3.4950e+00_rb,4.0242e+00_rb,4.6716e+00_rb/)
+      kao(:, 4, 2,11) = (/ &
+     &1.5983e-03_rb,6.1743e-01_rb,1.2340e+00_rb,1.8490e+00_rb,2.4617e+00_rb,3.0691e+00_rb, &
+     &3.6659e+00_rb,4.2202e+00_rb,4.9233e+00_rb/)
+      kao(:, 5, 2,11) = (/ &
+     &1.6216e-03_rb,6.5216e-01_rb,1.3030e+00_rb,1.9521e+00_rb,2.5969e+00_rb,3.2326e+00_rb, &
+     &3.8472e+00_rb,4.4004e+00_rb,5.1936e+00_rb/)
+      kao(:, 1, 3,11) = (/ &
+     &3.2100e-03_rb,4.8846e-01_rb,9.7712e-01_rb,1.4663e+00_rb,1.9565e+00_rb,2.4483e+00_rb, &
+     &2.9445e+00_rb,3.4602e+00_rb,3.9130e+00_rb/)
+      kao(:, 2, 3,11) = (/ &
+     &3.2832e-03_rb,5.2715e-01_rb,1.0544e+00_rb,1.5820e+00_rb,2.1102e+00_rb,2.6392e+00_rb, &
+     &3.1691e+00_rb,3.7028e+00_rb,4.2204e+00_rb/)
+      kao(:, 3, 3,11) = (/ &
+     &3.3509e-03_rb,5.6319e-01_rb,1.1265e+00_rb,1.6900e+00_rb,2.2533e+00_rb,2.8179e+00_rb, &
+     &3.3838e+00_rb,3.9526e+00_rb,4.5066e+00_rb/)
+      kao(:, 4, 3,11) = (/ &
+     &3.4122e-03_rb,6.0075e-01_rb,1.2012e+00_rb,1.8012e+00_rb,2.4005e+00_rb,2.9988e+00_rb, &
+     &3.5947e+00_rb,4.1839e+00_rb,4.8011e+00_rb/)
+      kao(:, 5, 3,11) = (/ &
+     &3.4694e-03_rb,6.3990e-01_rb,1.2794e+00_rb,1.9184e+00_rb,2.5559e+00_rb,3.1911e+00_rb, &
+     &3.8197e+00_rb,4.4273e+00_rb,5.1119e+00_rb/)
+      kao(:, 1, 4,11) = (/ &
+     &6.8944e-03_rb,4.5524e-01_rb,9.1034e-01_rb,1.3656e+00_rb,1.8210e+00_rb,2.2768e+00_rb, &
+     &2.7339e+00_rb,3.1966e+00_rb,3.6419e+00_rb/)
+      kao(:, 2, 4,11) = (/ &
+     &7.0719e-03_rb,4.9844e-01_rb,9.9694e-01_rb,1.4955e+00_rb,1.9943e+00_rb,2.4932e+00_rb, &
+     &2.9929e+00_rb,3.4921e+00_rb,3.9886e+00_rb/)
+      kao(:, 3, 4,11) = (/ &
+     &7.2326e-03_rb,5.3850e-01_rb,1.0768e+00_rb,1.6152e+00_rb,2.1534e+00_rb,2.6917e+00_rb, &
+     &3.2302e+00_rb,3.7700e+00_rb,4.3067e+00_rb/)
+      kao(:, 4, 4,11) = (/ &
+     &7.3806e-03_rb,5.7980e-01_rb,1.1594e+00_rb,1.7389e+00_rb,2.3180e+00_rb,2.8967e+00_rb, &
+     &3.4739e+00_rb,4.0439e+00_rb,4.6359e+00_rb/)
+      kao(:, 5, 4,11) = (/ &
+     &7.4998e-03_rb,6.1978e-01_rb,1.2395e+00_rb,1.8590e+00_rb,2.4785e+00_rb,3.0979e+00_rb, &
+     &3.7146e+00_rb,4.3244e+00_rb,4.9568e+00_rb/)
+      kao(:, 1, 5,11) = (/ &
+     &1.3442e-02_rb,4.2037e-01_rb,8.4065e-01_rb,1.2612e+00_rb,1.6819e+00_rb,2.1029e+00_rb, &
+     &2.5255e+00_rb,2.9520e+00_rb,3.3637e+00_rb/)
+      kao(:, 2, 5,11) = (/ &
+     &1.3797e-02_rb,4.6626e-01_rb,9.3234e-01_rb,1.3987e+00_rb,1.8650e+00_rb,2.3319e+00_rb, &
+     &2.7996e+00_rb,3.2699e+00_rb,3.7300e+00_rb/)
+      kao(:, 3, 5,11) = (/ &
+     &1.4112e-02_rb,5.0925e-01_rb,1.0185e+00_rb,1.5280e+00_rb,2.0375e+00_rb,2.5478e+00_rb, &
+     &3.0591e+00_rb,3.5748e+00_rb,4.0749e+00_rb/)
+      kao(:, 4, 5,11) = (/ &
+     &1.4385e-02_rb,5.5077e-01_rb,1.1015e+00_rb,1.6526e+00_rb,2.2034e+00_rb,2.7548e+00_rb, &
+     &3.3072e+00_rb,3.8625e+00_rb,4.4066e+00_rb/)
+      kao(:, 5, 5,11) = (/ &
+     &1.4645e-02_rb,5.9271e-01_rb,1.1855e+00_rb,1.7781e+00_rb,2.3710e+00_rb,2.9641e+00_rb, &
+     &3.5574e+00_rb,4.1512e+00_rb,4.7419e+00_rb/)
+      kao(:, 1, 6,11) = (/ &
+     &2.4122e-02_rb,3.8084e-01_rb,7.6147e-01_rb,1.1422e+00_rb,1.5231e+00_rb,1.9045e+00_rb, &
+     &2.2870e+00_rb,2.6730e+00_rb,3.0460e+00_rb/)
+      kao(:, 2, 6,11) = (/ &
+     &2.4797e-02_rb,4.2571e-01_rb,8.5136e-01_rb,1.2771e+00_rb,1.7031e+00_rb,2.1298e+00_rb, &
+     &2.5578e+00_rb,2.9908e+00_rb,3.4060e+00_rb/)
+      kao(:, 3, 6,11) = (/ &
+     &2.5418e-02_rb,4.6778e-01_rb,9.3545e-01_rb,1.4036e+00_rb,1.8720e+00_rb,2.3409e+00_rb, &
+     &2.8115e+00_rb,3.2888e+00_rb,3.7438e+00_rb/)
+      kao(:, 4, 6,11) = (/ &
+     &2.5988e-02_rb,5.1023e-01_rb,1.0205e+00_rb,1.5308e+00_rb,2.0415e+00_rb,2.5527e+00_rb, &
+     &3.0658e+00_rb,3.5842e+00_rb,4.0828e+00_rb/)
+      kao(:, 5, 6,11) = (/ &
+     &2.6439e-02_rb,5.5329e-01_rb,1.1066e+00_rb,1.6600e+00_rb,2.2137e+00_rb,2.7680e+00_rb, &
+     &3.3240e+00_rb,3.8852e+00_rb,4.4272e+00_rb/)
+      kao(:, 1, 7,11) = (/ &
+     &4.4902e-02_rb,3.4110e-01_rb,6.7879e-01_rb,1.0183e+00_rb,1.3577e+00_rb,1.6974e+00_rb, &
+     &2.0380e+00_rb,2.3811e+00_rb,2.7150e+00_rb/)
+      kao(:, 2, 7,11) = (/ &
+     &4.6257e-02_rb,3.7900e-01_rb,7.5783e-01_rb,1.1366e+00_rb,1.5157e+00_rb,1.8951e+00_rb, &
+     &2.2756e+00_rb,2.6593e+00_rb,3.0311e+00_rb/)
+      kao(:, 3, 7,11) = (/ &
+     &4.7417e-02_rb,4.1838e-01_rb,8.3644e-01_rb,1.2549e+00_rb,1.6732e+00_rb,2.0920e+00_rb, &
+     &2.5119e+00_rb,2.9363e+00_rb,3.3461e+00_rb/)
+      kao(:, 4, 7,11) = (/ &
+     &4.8439e-02_rb,4.5979e-01_rb,9.1922e-01_rb,1.3788e+00_rb,1.8387e+00_rb,2.2989e+00_rb, &
+     &2.7602e+00_rb,3.2261e+00_rb,3.6771e+00_rb/)
+      kao(:, 5, 7,11) = (/ &
+     &4.9115e-02_rb,5.0257e-01_rb,1.0048e+00_rb,1.5073e+00_rb,2.0099e+00_rb,2.5129e+00_rb, &
+     &3.0174e+00_rb,3.5268e+00_rb,4.0195e+00_rb/)
+      kao(:, 1, 8,11) = (/ &
+     &9.9346e-02_rb,4.0741e-01_rb,6.1474e-01_rb,8.8954e-01_rb,1.1859e+00_rb,1.4823e+00_rb, &
+     &1.7793e+00_rb,2.0775e+00_rb,2.3709e+00_rb/)
+      kao(:, 2, 8,11) = (/ &
+     &1.0236e-01_rb,4.4079e-01_rb,6.7253e-01_rb,9.9766e-01_rb,1.3301e+00_rb,1.6626e+00_rb, &
+     &1.9955e+00_rb,2.3301e+00_rb,2.6593e+00_rb/)
+      kao(:, 3, 8,11) = (/ &
+     &1.0516e-01_rb,4.6951e-01_rb,7.3794e-01_rb,1.1060e+00_rb,1.4745e+00_rb,1.8432e+00_rb, &
+     &2.2125e+00_rb,2.5835e+00_rb,2.9480e+00_rb/)
+      kao(:, 4, 8,11) = (/ &
+     &1.0772e-01_rb,4.9500e-01_rb,8.1532e-01_rb,1.2227e+00_rb,1.6302e+00_rb,2.0375e+00_rb, &
+     &2.4456e+00_rb,2.8562e+00_rb,3.2595e+00_rb/)
+      kao(:, 5, 8,11) = (/ &
+     &1.0947e-01_rb,5.2130e-01_rb,8.9659e-01_rb,1.3445e+00_rb,1.7925e+00_rb,2.2406e+00_rb, &
+     &2.6897e+00_rb,3.1404e+00_rb,3.5840e+00_rb/)
+      kao(:, 1, 9,11) = (/ &
+     &4.1823e-01_rb,7.9567e-01_rb,1.0382e+00_rb,1.1972e+00_rb,1.2989e+00_rb,1.3526e+00_rb, &
+     &1.5261e+00_rb,1.7800e+00_rb,2.0331e+00_rb/)
+      kao(:, 2, 9,11) = (/ &
+     &4.3170e-01_rb,8.4637e-01_rb,1.1195e+00_rb,1.3007e+00_rb,1.4025e+00_rb,1.4821e+00_rb, &
+     &1.7319e+00_rb,2.0202e+00_rb,2.3074e+00_rb/)
+      kao(:, 3, 9,11) = (/ &
+     &4.4387e-01_rb,8.9320e-01_rb,1.1954e+00_rb,1.3918e+00_rb,1.4965e+00_rb,1.6263e+00_rb, &
+     &1.9385e+00_rb,2.2615e+00_rb,2.5830e+00_rb/)
+      kao(:, 4, 9,11) = (/ &
+     &4.5501e-01_rb,9.4246e-01_rb,1.2607e+00_rb,1.4727e+00_rb,1.5878e+00_rb,1.7989e+00_rb, &
+     &2.1575e+00_rb,2.5169e+00_rb,2.8754e+00_rb/)
+      kao(:, 5, 9,11) = (/ &
+     &4.6515e-01_rb,9.9000e-01_rb,1.3196e+00_rb,1.5528e+00_rb,1.6906e+00_rb,1.9810e+00_rb, &
+     &2.3767e+00_rb,2.7728e+00_rb,3.1676e+00_rb/)
+      kao(:, 1,10,11) = (/ &
+     &1.9805e+00_rb,2.2049e+00_rb,2.3763e+00_rb,2.4479e+00_rb,2.4732e+00_rb,2.4264e+00_rb, &
+     &2.2604e+00_rb,1.8802e+00_rb,1.7493e+00_rb/)
+      kao(:, 2,10,11) = (/ &
+     &2.0472e+00_rb,2.3153e+00_rb,2.5048e+00_rb,2.6141e+00_rb,2.6517e+00_rb,2.6235e+00_rb, &
+     &2.4547e+00_rb,2.0470e+00_rb,2.0043e+00_rb/)
+      kao(:, 3,10,11) = (/ &
+     &2.1094e+00_rb,2.4143e+00_rb,2.6357e+00_rb,2.7700e+00_rb,2.8309e+00_rb,2.7965e+00_rb, &
+     &2.6317e+00_rb,2.2035e+00_rb,2.2660e+00_rb/)
+      kao(:, 4,10,11) = (/ &
+     &2.1647e+00_rb,2.5051e+00_rb,2.7487e+00_rb,2.9276e+00_rb,2.9982e+00_rb,2.9552e+00_rb, &
+     &2.7953e+00_rb,2.3731e+00_rb,2.5329e+00_rb/)
+      kao(:, 5,10,11) = (/ &
+     &2.2155e+00_rb,2.5942e+00_rb,2.8618e+00_rb,3.0775e+00_rb,3.1500e+00_rb,3.1109e+00_rb, &
+     &2.9560e+00_rb,2.5540e+00_rb,2.7905e+00_rb/)
+      kao(:, 1,11,11) = (/ &
+     &3.3272e+00_rb,3.3391e+00_rb,3.4265e+00_rb,3.3299e+00_rb,3.1864e+00_rb,3.0000e+00_rb, &
+     &2.7382e+00_rb,2.2548e+00_rb,1.5937e+00_rb/)
+      kao(:, 2,11,11) = (/ &
+     &3.4245e+00_rb,3.4923e+00_rb,3.5888e+00_rb,3.5207e+00_rb,3.3952e+00_rb,3.2270e+00_rb, &
+     &2.9458e+00_rb,2.4552e+00_rb,1.8248e+00_rb/)
+      kao(:, 3,11,11) = (/ &
+     &3.5147e+00_rb,3.6350e+00_rb,3.7493e+00_rb,3.6979e+00_rb,3.6003e+00_rb,3.4366e+00_rb, &
+     &3.1408e+00_rb,2.6446e+00_rb,2.0543e+00_rb/)
+      kao(:, 4,11,11) = (/ &
+     &3.5973e+00_rb,3.7611e+00_rb,3.8955e+00_rb,3.8697e+00_rb,3.7999e+00_rb,3.6320e+00_rb, &
+     &3.3291e+00_rb,2.8219e+00_rb,2.2769e+00_rb/)
+      kao(:, 5,11,11) = (/ &
+     &3.6658e+00_rb,3.8812e+00_rb,4.0226e+00_rb,4.0479e+00_rb,3.9815e+00_rb,3.8145e+00_rb, &
+     &3.5185e+00_rb,2.9782e+00_rb,2.4861e+00_rb/)
+      kao(:, 1,12,11) = (/ &
+     &4.1187e+00_rb,4.0374e+00_rb,4.0352e+00_rb,3.8356e+00_rb,3.5772e+00_rb,3.2668e+00_rb, &
+     &2.8837e+00_rb,2.3539e+00_rb,1.4349e+00_rb/)
+      kao(:, 2,12,11) = (/ &
+     &4.2212e+00_rb,4.1986e+00_rb,4.2178e+00_rb,4.0426e+00_rb,3.8006e+00_rb,3.4932e+00_rb, &
+     &3.0942e+00_rb,2.5554e+00_rb,1.6369e+00_rb/)
+      kao(:, 3,12,11) = (/ &
+     &4.3153e+00_rb,4.3421e+00_rb,4.3917e+00_rb,4.2429e+00_rb,4.0161e+00_rb,3.6975e+00_rb, &
+     &3.3039e+00_rb,2.7454e+00_rb,1.8396e+00_rb/)
+      kao(:, 4,12,11) = (/ &
+     &4.3996e+00_rb,4.4753e+00_rb,4.5481e+00_rb,4.4345e+00_rb,4.2153e+00_rb,3.8944e+00_rb, &
+     &3.5079e+00_rb,2.9264e+00_rb,2.0403e+00_rb/)
+      kao(:, 5,12,11) = (/ &
+     &4.4754e+00_rb,4.5978e+00_rb,4.6899e+00_rb,4.6220e+00_rb,4.4006e+00_rb,4.0838e+00_rb, &
+     &3.7036e+00_rb,3.0926e+00_rb,2.2349e+00_rb/)
+      kao(:, 1,13,11) = (/ &
+     &4.0592e+00_rb,4.0332e+00_rb,3.9681e+00_rb,3.7590e+00_rb,3.4963e+00_rb,3.1626e+00_rb, &
+     &2.7397e+00_rb,2.2238e+00_rb,1.2732e+00_rb/)
+      kao(:, 2,13,11) = (/ &
+     &4.1472e+00_rb,4.1742e+00_rb,4.1368e+00_rb,3.9606e+00_rb,3.7120e+00_rb,3.3731e+00_rb, &
+     &2.9427e+00_rb,2.4115e+00_rb,1.4537e+00_rb/)
+      kao(:, 3,13,11) = (/ &
+     &4.2292e+00_rb,4.3011e+00_rb,4.2979e+00_rb,4.1507e+00_rb,3.9119e+00_rb,3.5700e+00_rb, &
+     &3.1423e+00_rb,2.5914e+00_rb,1.6282e+00_rb/)
+      kao(:, 4,13,11) = (/ &
+     &4.3001e+00_rb,4.4170e+00_rb,4.4457e+00_rb,4.3341e+00_rb,4.0986e+00_rb,3.7637e+00_rb, &
+     &3.3341e+00_rb,2.7592e+00_rb,1.8128e+00_rb/)
+      kao(:, 5,13,11) = (/ &
+     &4.3627e+00_rb,4.5278e+00_rb,4.5856e+00_rb,4.5011e+00_rb,4.2740e+00_rb,3.9472e+00_rb, &
+     &3.5112e+00_rb,2.9185e+00_rb,1.9901e+00_rb/)
+      kao(:, 1, 1,12) = (/ &
+     &1.2832e-03_rb,7.6911e-01_rb,1.5308e+00_rb,2.2815e+00_rb,3.0131e+00_rb,3.7102e+00_rb, &
+     &4.3339e+00_rb,4.8156e+00_rb,6.0262e+00_rb/)
+      kao(:, 2, 1,12) = (/ &
+     &1.3165e-03_rb,8.3137e-01_rb,1.6545e+00_rb,2.4655e+00_rb,3.2561e+00_rb,4.0092e+00_rb, &
+     &4.6800e+00_rb,5.1382e+00_rb,6.5123e+00_rb/)
+      kao(:, 3, 1,12) = (/ &
+     &1.3465e-03_rb,8.9467e-01_rb,1.7805e+00_rb,2.6534e+00_rb,3.5040e+00_rb,4.3130e+00_rb, &
+     &5.0270e+00_rb,5.5081e+00_rb,7.0080e+00_rb/)
+      kao(:, 4, 1,12) = (/ &
+     &1.3733e-03_rb,9.5420e-01_rb,1.9011e+00_rb,2.8343e+00_rb,3.7449e+00_rb,4.6125e+00_rb, &
+     &5.3804e+00_rb,5.8655e+00_rb,7.4899e+00_rb/)
+      kao(:, 5, 1,12) = (/ &
+     &1.3973e-03_rb,1.0065e+00_rb,2.0056e+00_rb,2.9931e+00_rb,3.9616e+00_rb,4.8908e+00_rb, &
+     &5.7173e+00_rb,6.2206e+00_rb,7.9232e+00_rb/)
+      kao(:, 1, 2,12) = (/ &
+     &2.1567e-03_rb,7.9503e-01_rb,1.5851e+00_rb,2.3675e+00_rb,3.1367e+00_rb,3.8805e+00_rb, &
+     &4.5651e+00_rb,5.0566e+00_rb,6.2733e+00_rb/)
+      kao(:, 2, 2,12) = (/ &
+     &2.2096e-03_rb,8.5765e-01_rb,1.7102e+00_rb,2.5549e+00_rb,3.3862e+00_rb,4.1922e+00_rb, &
+     &4.9361e+00_rb,5.4818e+00_rb,6.7723e+00_rb/)
+      kao(:, 3, 2,12) = (/ &
+     &2.2593e-03_rb,9.2132e-01_rb,1.8371e+00_rb,2.7441e+00_rb,3.6360e+00_rb,4.5001e+00_rb, &
+     &5.3023e+00_rb,5.9092e+00_rb,7.2719e+00_rb/)
+      kao(:, 4, 2,12) = (/ &
+     &2.3029e-03_rb,9.7961e-01_rb,1.9547e+00_rb,2.9227e+00_rb,3.8771e+00_rb,4.8047e+00_rb, &
+     &5.6684e+00_rb,6.3211e+00_rb,7.7542e+00_rb/)
+      kao(:, 5, 2,12) = (/ &
+     &2.3432e-03_rb,1.0294e+00_rb,2.0551e+00_rb,3.0745e+00_rb,4.0831e+00_rb,5.0720e+00_rb, &
+     &6.0082e+00_rb,6.7230e+00_rb,8.1662e+00_rb/)
+      kao(:, 1, 3,12) = (/ &
+     &4.8280e-03_rb,7.9900e-01_rb,1.5962e+00_rb,2.3906e+00_rb,3.1803e+00_rb,3.9604e+00_rb, &
+     &4.7157e+00_rb,5.3732e+00_rb,6.3605e+00_rb/)
+      kao(:, 2, 3,12) = (/ &
+     &4.9522e-03_rb,8.6159e-01_rb,1.7217e+00_rb,2.5790e+00_rb,3.4316e+00_rb,4.2766e+00_rb, &
+     &5.0979e+00_rb,5.8264e+00_rb,6.8633e+00_rb/)
+      kao(:, 3, 3,12) = (/ &
+     &5.0521e-03_rb,9.2450e-01_rb,1.8472e+00_rb,2.7674e+00_rb,3.6829e+00_rb,4.5888e+00_rb, &
+     &5.4724e+00_rb,6.2581e+00_rb,7.3659e+00_rb/)
+      kao(:, 4, 3,12) = (/ &
+     &5.1417e-03_rb,9.8492e-01_rb,1.9684e+00_rb,2.9494e+00_rb,3.9267e+00_rb,4.8950e+00_rb, &
+     &5.8398e+00_rb,6.6855e+00_rb,7.8533e+00_rb/)
+      kao(:, 5, 3,12) = (/ &
+     &5.2128e-03_rb,1.0351e+00_rb,2.0685e+00_rb,3.1013e+00_rb,4.1304e+00_rb,5.1536e+00_rb, &
+     &6.1563e+00_rb,7.0696e+00_rb,8.2608e+00_rb/)
+      kao(:, 1, 4,12) = (/ &
+     &1.0891e-02_rb,7.7727e-01_rb,1.5543e+00_rb,2.3309e+00_rb,3.1067e+00_rb,3.8812e+00_rb, &
+     &4.6512e+00_rb,5.4004e+00_rb,6.2133e+00_rb/)
+      kao(:, 2, 4,12) = (/ &
+     &1.1146e-02_rb,8.4013e-01_rb,1.6801e+00_rb,2.5195e+00_rb,3.3588e+00_rb,4.1965e+00_rb, &
+     &5.0315e+00_rb,5.8522e+00_rb,6.7175e+00_rb/)
+      kao(:, 3, 4,12) = (/ &
+     &1.1369e-02_rb,9.0347e-01_rb,1.8066e+00_rb,2.7094e+00_rb,3.6116e+00_rb,4.5128e+00_rb, &
+     &5.4097e+00_rb,6.2868e+00_rb,7.2231e+00_rb/)
+      kao(:, 4, 4,12) = (/ &
+     &1.1543e-02_rb,9.6345e-01_rb,1.9267e+00_rb,2.8898e+00_rb,3.8526e+00_rb,4.8146e+00_rb, &
+     &5.7741e+00_rb,6.7146e+00_rb,7.7051e+00_rb/)
+      kao(:, 5, 4,12) = (/ &
+     &1.1696e-02_rb,1.0158e+00_rb,2.0314e+00_rb,3.0468e+00_rb,4.0618e+00_rb,5.0772e+00_rb, &
+     &6.0909e+00_rb,7.0982e+00_rb,8.1235e+00_rb/)
+      kao(:, 1, 5,12) = (/ &
+     &2.2302e-02_rb,7.3490e-01_rb,1.4696e+00_rb,2.2046e+00_rb,2.9394e+00_rb,3.6745e+00_rb, &
+     &4.4097e+00_rb,5.1450e+00_rb,5.8787e+00_rb/)
+      kao(:, 2, 5,12) = (/ &
+     &2.2823e-02_rb,7.9768e-01_rb,1.5952e+00_rb,2.3932e+00_rb,3.1913e+00_rb,3.9900e+00_rb, &
+     &4.7899e+00_rb,5.5934e+00_rb,6.3823e+00_rb/)
+      kao(:, 3, 5,12) = (/ &
+     &2.3280e-02_rb,8.5775e-01_rb,1.7153e+00_rb,2.5734e+00_rb,3.4313e+00_rb,4.2902e+00_rb, &
+     &5.1502e+00_rb,6.0153e+00_rb,6.8623e+00_rb/)
+      kao(:, 4, 5,12) = (/ &
+     &2.3683e-02_rb,9.1895e-01_rb,1.8383e+00_rb,2.7574e+00_rb,3.6772e+00_rb,4.5980e+00_rb, &
+     &5.5202e+00_rb,6.4486e+00_rb,7.3542e+00_rb/)
+      kao(:, 5, 5,12) = (/ &
+     &2.3999e-02_rb,9.7537e-01_rb,1.9505e+00_rb,2.9260e+00_rb,3.9018e+00_rb,4.8784e+00_rb, &
+     &5.8576e+00_rb,6.8447e+00_rb,7.8034e+00_rb/)
+      kao(:, 1, 6,12) = (/ &
+     &4.2265e-02_rb,6.7923e-01_rb,1.3583e+00_rb,2.0372e+00_rb,2.7164e+00_rb,3.3965e+00_rb, &
+     &4.0771e+00_rb,4.7611e+00_rb,5.4325e+00_rb/)
+      kao(:, 2, 6,12) = (/ &
+     &4.3312e-02_rb,7.4027e-01_rb,1.4802e+00_rb,2.2203e+00_rb,2.9606e+00_rb,3.7016e+00_rb, &
+     &4.4440e+00_rb,5.1934e+00_rb,5.9209e+00_rb/)
+      kao(:, 3, 6,12) = (/ &
+     &4.4154e-02_rb,8.0193e-01_rb,1.6036e+00_rb,2.4053e+00_rb,3.2071e+00_rb,4.0091e+00_rb, &
+     &4.8130e+00_rb,5.6200e+00_rb,6.4137e+00_rb/)
+      kao(:, 4, 6,12) = (/ &
+     &4.4818e-02_rb,8.6447e-01_rb,1.7287e+00_rb,2.5931e+00_rb,3.4580e+00_rb,4.3234e+00_rb, &
+     &5.1892e+00_rb,6.0606e+00_rb,6.9157e+00_rb/)
+      kao(:, 5, 6,12) = (/ &
+     &4.5427e-02_rb,9.2353e-01_rb,1.8468e+00_rb,2.7701e+00_rb,3.6940e+00_rb,4.6182e+00_rb, &
+     &5.5436e+00_rb,6.4744e+00_rb,7.3877e+00_rb/)
+      kao(:, 1, 7,12) = (/ &
+     &8.2851e-02_rb,6.1813e-01_rb,1.2353e+00_rb,1.8525e+00_rb,2.4701e+00_rb,3.0880e+00_rb, &
+     &3.7064e+00_rb,4.3285e+00_rb,4.9392e+00_rb/)
+      kao(:, 2, 7,12) = (/ &
+     &8.4778e-02_rb,6.8174e-01_rb,1.3624e+00_rb,2.0434e+00_rb,2.7245e+00_rb,3.4060e+00_rb, &
+     &4.0883e+00_rb,4.7735e+00_rb,5.4481e+00_rb/)
+      kao(:, 3, 7,12) = (/ &
+     &8.6620e-02_rb,7.4569e-01_rb,1.4908e+00_rb,2.2359e+00_rb,2.9814e+00_rb,3.7272e+00_rb, &
+     &4.4733e+00_rb,5.2220e+00_rb,5.9623e+00_rb/)
+      kao(:, 4, 7,12) = (/ &
+     &8.8221e-02_rb,8.0972e-01_rb,1.6191e+00_rb,2.4284e+00_rb,3.2380e+00_rb,4.0476e+00_rb, &
+     &4.8581e+00_rb,5.6715e+00_rb,6.4756e+00_rb/)
+      kao(:, 5, 7,12) = (/ &
+     &8.9388e-02_rb,8.6929e-01_rb,1.7383e+00_rb,2.6072e+00_rb,3.4769e+00_rb,4.3464e+00_rb, &
+     &5.2172e+00_rb,6.0912e+00_rb,6.9533e+00_rb/)
+      kao(:, 1, 8,12) = (/ &
+     &1.9209e-01_rb,6.2527e-01_rb,1.1133e+00_rb,1.6689e+00_rb,2.2244e+00_rb,2.7803e+00_rb, &
+     &3.3362e+00_rb,3.8938e+00_rb,4.4464e+00_rb/)
+      kao(:, 2, 8,12) = (/ &
+     &1.9727e-01_rb,6.6108e-01_rb,1.2430e+00_rb,1.8635e+00_rb,2.4844e+00_rb,3.1054e+00_rb, &
+     &3.7267e+00_rb,4.3504e+00_rb,4.9671e+00_rb/)
+      kao(:, 3, 8,12) = (/ &
+     &2.0144e-01_rb,7.0485e-01_rb,1.3718e+00_rb,2.0572e+00_rb,2.7423e+00_rb,3.4280e+00_rb, &
+     &4.1141e+00_rb,4.8012e+00_rb,5.4833e+00_rb/)
+      kao(:, 4, 8,12) = (/ &
+     &2.0484e-01_rb,7.5576e-01_rb,1.4986e+00_rb,2.2473e+00_rb,2.9964e+00_rb,3.7450e+00_rb, &
+     &4.4951e+00_rb,5.2469e+00_rb,5.9915e+00_rb/)
+      kao(:, 5, 8,12) = (/ &
+     &2.0777e-01_rb,8.0793e-01_rb,1.6132e+00_rb,2.4193e+00_rb,3.2252e+00_rb,4.0323e+00_rb, &
+     &4.8391e+00_rb,5.6481e+00_rb,6.4494e+00_rb/)
+      kao(:, 1, 9,12) = (/ &
+     &8.2620e-01_rb,1.3515e+00_rb,1.6396e+00_rb,1.8633e+00_rb,2.0617e+00_rb,2.4827e+00_rb, &
+     &2.9771e+00_rb,3.4729e+00_rb,3.9666e+00_rb/)
+      kao(:, 2, 9,12) = (/ &
+     &8.4850e-01_rb,1.4155e+00_rb,1.7443e+00_rb,1.9664e+00_rb,2.2558e+00_rb,2.7862e+00_rb, &
+     &3.3424e+00_rb,3.8990e+00_rb,4.4541e+00_rb/)
+      kao(:, 3, 9,12) = (/ &
+     &8.6743e-01_rb,1.4840e+00_rb,1.8355e+00_rb,2.0729e+00_rb,2.4805e+00_rb,3.0958e+00_rb, &
+     &3.7138e+00_rb,4.3325e+00_rb,4.9497e+00_rb/)
+      kao(:, 4, 9,12) = (/ &
+     &8.8373e-01_rb,1.5402e+00_rb,1.9288e+00_rb,2.1892e+00_rb,2.7106e+00_rb,3.3871e+00_rb, &
+     &4.0635e+00_rb,4.7407e+00_rb,5.4157e+00_rb/)
+      kao(:, 5, 9,12) = (/ &
+     &8.9622e-01_rb,1.5897e+00_rb,2.0124e+00_rb,2.3107e+00_rb,2.9348e+00_rb,3.6673e+00_rb, &
+     &4.4005e+00_rb,5.1335e+00_rb,5.8643e+00_rb/)
+      kao(:, 1,10,12) = (/ &
+     &3.9173e+00_rb,3.9928e+00_rb,4.3366e+00_rb,4.4280e+00_rb,4.2663e+00_rb,3.9998e+00_rb, &
+     &3.6166e+00_rb,3.1308e+00_rb,3.5126e+00_rb/)
+      kao(:, 2,10,12) = (/ &
+     &4.0212e+00_rb,4.1687e+00_rb,4.5593e+00_rb,4.6368e+00_rb,4.5220e+00_rb,4.2834e+00_rb, &
+     &3.8634e+00_rb,3.4894e+00_rb,3.9713e+00_rb/)
+      kao(:, 3,10,12) = (/ &
+     &4.1147e+00_rb,4.3230e+00_rb,4.7454e+00_rb,4.8522e+00_rb,4.7749e+00_rb,4.5433e+00_rb, &
+     &4.0957e+00_rb,3.8708e+00_rb,4.4196e+00_rb/)
+      kao(:, 4,10,12) = (/ &
+     &4.1890e+00_rb,4.4586e+00_rb,4.9236e+00_rb,5.0494e+00_rb,4.9988e+00_rb,4.8016e+00_rb, &
+     &4.3028e+00_rb,4.2486e+00_rb,4.8508e+00_rb/)
+      kao(:, 5,10,12) = (/ &
+     &4.2486e+00_rb,4.5669e+00_rb,5.0902e+00_rb,5.2222e+00_rb,5.2265e+00_rb,5.0216e+00_rb, &
+     &4.5057e+00_rb,4.6204e+00_rb,5.2753e+00_rb/)
+      kao(:, 1,11,12) = (/ &
+     &6.5008e+00_rb,6.1849e+00_rb,6.2789e+00_rb,6.2685e+00_rb,5.9393e+00_rb,5.4109e+00_rb, &
+     &4.7099e+00_rb,3.7046e+00_rb,3.2687e+00_rb/)
+      kao(:, 2,11,12) = (/ &
+     &6.6711e+00_rb,6.4071e+00_rb,6.5745e+00_rb,6.5690e+00_rb,6.2447e+00_rb,5.7486e+00_rb, &
+     &5.0466e+00_rb,3.9652e+00_rb,3.6849e+00_rb/)
+      kao(:, 3,11,12) = (/ &
+     &6.8141e+00_rb,6.5961e+00_rb,6.8266e+00_rb,6.8425e+00_rb,6.5425e+00_rb,6.0645e+00_rb, &
+     &5.3679e+00_rb,4.1951e+00_rb,4.0848e+00_rb/)
+      kao(:, 4,11,12) = (/ &
+     &6.9309e+00_rb,6.7641e+00_rb,7.0497e+00_rb,7.0951e+00_rb,6.8173e+00_rb,6.3688e+00_rb, &
+     &5.6628e+00_rb,4.4427e+00_rb,4.4838e+00_rb/)
+      kao(:, 5,11,12) = (/ &
+     &7.0334e+00_rb,6.9031e+00_rb,7.2676e+00_rb,7.3125e+00_rb,7.0679e+00_rb,6.6762e+00_rb, &
+     &5.9144e+00_rb,4.7231e+00_rb,4.9084e+00_rb/)
+      kao(:, 1,12,12) = (/ &
+     &8.0356e+00_rb,7.5209e+00_rb,7.4229e+00_rb,7.2434e+00_rb,6.7979e+00_rb,6.1202e+00_rb, &
+     &5.2895e+00_rb,4.1070e+00_rb,2.9936e+00_rb/)
+      kao(:, 2,12,12) = (/ &
+     &8.2347e+00_rb,7.7748e+00_rb,7.7310e+00_rb,7.5713e+00_rb,7.1351e+00_rb,6.4951e+00_rb, &
+     &5.6590e+00_rb,4.4043e+00_rb,3.3743e+00_rb/)
+      kao(:, 3,12,12) = (/ &
+     &8.4084e+00_rb,7.9908e+00_rb,8.0012e+00_rb,7.8714e+00_rb,7.4600e+00_rb,6.8499e+00_rb, &
+     &6.0055e+00_rb,4.6706e+00_rb,3.7574e+00_rb/)
+      kao(:, 4,12,12) = (/ &
+     &8.5546e+00_rb,8.1702e+00_rb,8.2474e+00_rb,8.1496e+00_rb,7.7631e+00_rb,7.1869e+00_rb, &
+     &6.3250e+00_rb,4.9362e+00_rb,4.1426e+00_rb/)
+      kao(:, 5,12,12) = (/ &
+     &8.6676e+00_rb,8.3299e+00_rb,8.4723e+00_rb,8.3950e+00_rb,8.0405e+00_rb,7.5149e+00_rb, &
+     &6.6159e+00_rb,5.2129e+00_rb,4.5254e+00_rb/)
+      kao(:, 1,13,12) = (/ &
+     &7.9759e+00_rb,7.5343e+00_rb,7.4503e+00_rb,7.1563e+00_rb,6.6524e+00_rb,6.0033e+00_rb, &
+     &5.2080e+00_rb,4.0643e+00_rb,2.7278e+00_rb/)
+      kao(:, 2,13,12) = (/ &
+     &8.1794e+00_rb,7.7874e+00_rb,7.7473e+00_rb,7.4642e+00_rb,6.9912e+00_rb,6.3834e+00_rb, &
+     &5.5711e+00_rb,4.3572e+00_rb,3.0821e+00_rb/)
+      kao(:, 3,13,12) = (/ &
+     &8.3457e+00_rb,8.0091e+00_rb,8.0057e+00_rb,7.7578e+00_rb,7.3258e+00_rb,6.7364e+00_rb, &
+     &5.9096e+00_rb,4.6439e+00_rb,3.4477e+00_rb/)
+      kao(:, 4,13,12) = (/ &
+     &8.4812e+00_rb,8.2074e+00_rb,8.2395e+00_rb,8.0326e+00_rb,7.6295e+00_rb,7.0667e+00_rb, &
+     &6.2213e+00_rb,4.9334e+00_rb,3.7948e+00_rb/)
+      kao(:, 5,13,12) = (/ &
+     &8.5914e+00_rb,8.3651e+00_rb,8.4655e+00_rb,8.2768e+00_rb,7.9296e+00_rb,7.3785e+00_rb, &
+     &6.5133e+00_rb,5.2165e+00_rb,4.1485e+00_rb/)
+      kao(:, 1, 1,13) = (/ &
+     &1.8376e-03_rb,1.2493e+00_rb,2.4869e+00_rb,3.7066e+00_rb,4.8962e+00_rb,6.0283e+00_rb, &
+     &7.0325e+00_rb,7.5732e+00_rb,9.7924e+00_rb/)
+      kao(:, 2, 1,13) = (/ &
+     &1.8435e-03_rb,1.3137e+00_rb,2.6151e+00_rb,3.8978e+00_rb,5.1474e+00_rb,6.3345e+00_rb, &
+     &7.3693e+00_rb,7.9436e+00_rb,1.0295e+01_rb/)
+      kao(:, 3, 1,13) = (/ &
+     &1.8457e-03_rb,1.3823e+00_rb,2.7512e+00_rb,4.0980e+00_rb,5.4060e+00_rb,6.6439e+00_rb, &
+     &7.7282e+00_rb,8.2817e+00_rb,1.0812e+01_rb/)
+      kao(:, 4, 1,13) = (/ &
+     &1.8458e-03_rb,1.4480e+00_rb,2.8814e+00_rb,4.2920e+00_rb,5.6663e+00_rb,6.9707e+00_rb, &
+     &8.1084e+00_rb,8.6593e+00_rb,1.1333e+01_rb/)
+      kao(:, 5, 1,13) = (/ &
+     &1.8581e-03_rb,1.5191e+00_rb,3.0214e+00_rb,4.4961e+00_rb,5.9276e+00_rb,7.2804e+00_rb, &
+     &8.4721e+00_rb,9.0750e+00_rb,1.1855e+01_rb/)
+      kao(:, 1, 2,13) = (/ &
+     &3.0081e-03_rb,1.2887e+00_rb,2.5721e+00_rb,3.8463e+00_rb,5.1064e+00_rb,6.3378e+00_rb, &
+     &7.4987e+00_rb,8.3933e+00_rb,1.0213e+01_rb/)
+      kao(:, 2, 2,13) = (/ &
+     &3.0389e-03_rb,1.3599e+00_rb,2.7131e+00_rb,4.0552e+00_rb,5.3783e+00_rb,6.6678e+00_rb, &
+     &7.8772e+00_rb,8.7981e+00_rb,1.0756e+01_rb/)
+      kao(:, 3, 2,13) = (/ &
+     &3.0623e-03_rb,1.4308e+00_rb,2.8555e+00_rb,4.2711e+00_rb,5.6674e+00_rb,7.0255e+00_rb, &
+     &8.2810e+00_rb,9.2099e+00_rb,1.1335e+01_rb/)
+      kao(:, 4, 2,13) = (/ &
+     &3.1073e-03_rb,1.4998e+00_rb,2.9927e+00_rb,4.4738e+00_rb,5.9361e+00_rb,7.3612e+00_rb, &
+     &8.6975e+00_rb,9.6506e+00_rb,1.1872e+01_rb/)
+      kao(:, 5, 2,13) = (/ &
+     &3.1371e-03_rb,1.5763e+00_rb,3.1432e+00_rb,4.6958e+00_rb,6.2242e+00_rb,7.7091e+00_rb, &
+     &9.0917e+00_rb,1.0108e+01_rb,1.2448e+01_rb/)
+      kao(:, 1, 3,13) = (/ &
+     &6.7566e-03_rb,1.3010e+00_rb,2.6001e+00_rb,3.8967e+00_rb,5.1878e+00_rb,6.4676e+00_rb, &
+     &7.7183e+00_rb,8.8575e+00_rb,1.0376e+01_rb/)
+      kao(:, 2, 3,13) = (/ &
+     &6.8655e-03_rb,1.3725e+00_rb,2.7424e+00_rb,4.1083e+00_rb,5.4679e+00_rb,6.8133e+00_rb, &
+     &8.1286e+00_rb,9.3210e+00_rb,1.0936e+01_rb/)
+      kao(:, 3, 3,13) = (/ &
+     &7.0162e-03_rb,1.4463e+00_rb,2.8900e+00_rb,4.3294e+00_rb,5.7613e+00_rb,7.1793e+00_rb, &
+     &8.5582e+00_rb,9.7979e+00_rb,1.1523e+01_rb/)
+      kao(:, 4, 3,13) = (/ &
+     &7.1355e-03_rb,1.5186e+00_rb,3.0341e+00_rb,4.5447e+00_rb,6.0464e+00_rb,7.5309e+00_rb, &
+     &8.9783e+00_rb,1.0290e+01_rb,1.2093e+01_rb/)
+      kao(:, 5, 3,13) = (/ &
+     &7.2326e-03_rb,1.6009e+00_rb,3.1979e+00_rb,4.7883e+00_rb,6.3681e+00_rb,7.9274e+00_rb, &
+     &9.4396e+00_rb,1.0789e+01_rb,1.2736e+01_rb/)
+      kao(:, 1, 4,13) = (/ &
+     &1.5770e-02_rb,1.2974e+00_rb,2.5940e+00_rb,3.8891e+00_rb,5.1823e+00_rb,6.4711e+00_rb, &
+     &7.7497e+00_rb,8.9872e+00_rb,1.0364e+01_rb/)
+      kao(:, 2, 4,13) = (/ &
+     &1.6102e-02_rb,1.3725e+00_rb,2.7438e+00_rb,4.1133e+00_rb,5.4792e+00_rb,6.8384e+00_rb, &
+     &8.1824e+00_rb,9.4681e+00_rb,1.0958e+01_rb/)
+      kao(:, 3, 4,13) = (/ &
+     &1.6461e-02_rb,1.4529e+00_rb,2.9044e+00_rb,4.3540e+00_rb,5.7994e+00_rb,7.2375e+00_rb, &
+     &8.6575e+00_rb,1.0008e+01_rb,1.1599e+01_rb/)
+      kao(:, 4, 4,13) = (/ &
+     &1.6764e-02_rb,1.5336e+00_rb,3.0659e+00_rb,4.5952e+00_rb,6.1201e+00_rb,7.6366e+00_rb, &
+     &9.1307e+00_rb,1.0552e+01_rb,1.2240e+01_rb/)
+      kao(:, 5, 4,13) = (/ &
+     &1.6983e-02_rb,1.6203e+00_rb,3.2389e+00_rb,4.8548e+00_rb,6.4661e+00_rb,8.0668e+00_rb, &
+     &9.6455e+00_rb,1.1132e+01_rb,1.2932e+01_rb/)
+      kao(:, 1, 5,13) = (/ &
+     &3.3958e-02_rb,1.2926e+00_rb,2.5850e+00_rb,3.8765e+00_rb,5.1671e+00_rb,6.4548e+00_rb, &
+     &7.7382e+00_rb,9.0001e+00_rb,1.0334e+01_rb/)
+      kao(:, 2, 5,13) = (/ &
+     &3.4722e-02_rb,1.3756e+00_rb,2.7505e+00_rb,4.1243e+00_rb,5.4969e+00_rb,6.8654e+00_rb, &
+     &8.2252e+00_rb,9.5545e+00_rb,1.0994e+01_rb/)
+      kao(:, 3, 5,13) = (/ &
+     &3.5363e-02_rb,1.4648e+00_rb,2.9290e+00_rb,4.3919e+00_rb,5.8529e+00_rb,7.3099e+00_rb, &
+     &8.7568e+00_rb,1.0164e+01_rb,1.1706e+01_rb/)
+      kao(:, 4, 5,13) = (/ &
+     &3.6012e-02_rb,1.5505e+00_rb,3.1003e+00_rb,4.6491e+00_rb,6.1954e+00_rb,7.7382e+00_rb, &
+     &9.2690e+00_rb,1.0761e+01_rb,1.2391e+01_rb/)
+      kao(:, 5, 5,13) = (/ &
+     &3.6453e-02_rb,1.6361e+00_rb,3.2714e+00_rb,4.9053e+00_rb,6.5374e+00_rb,8.1645e+00_rb, &
+     &9.7803e+00_rb,1.1352e+01_rb,1.3075e+01_rb/)
+      kao(:, 1, 6,13) = (/ &
+     &6.7837e-02_rb,1.2756e+00_rb,2.5511e+00_rb,3.8262e+00_rb,5.1016e+00_rb,6.3755e+00_rb, &
+     &7.6486e+00_rb,8.9147e+00_rb,1.0203e+01_rb/)
+      kao(:, 2, 6,13) = (/ &
+     &6.9368e-02_rb,1.3655e+00_rb,2.7307e+00_rb,4.0953e+00_rb,5.4595e+00_rb,6.8218e+00_rb, &
+     &8.1822e+00_rb,9.5288e+00_rb,1.0919e+01_rb/)
+      kao(:, 3, 6,13) = (/ &
+     &7.0610e-02_rb,1.4598e+00_rb,2.9193e+00_rb,4.3789e+00_rb,5.8375e+00_rb,7.2946e+00_rb, &
+     &8.7480e+00_rb,1.0185e+01_rb,1.1675e+01_rb/)
+      kao(:, 4, 6,13) = (/ &
+     &7.1895e-02_rb,1.5499e+00_rb,3.0992e+00_rb,4.6481e+00_rb,6.1963e+00_rb,7.7431e+00_rb, &
+     &9.2863e+00_rb,1.0814e+01_rb,1.2392e+01_rb/)
+      kao(:, 5, 6,13) = (/ &
+     &7.2713e-02_rb,1.6401e+00_rb,3.2796e+00_rb,4.9184e+00_rb,6.5572e+00_rb,8.1927e+00_rb, &
+     &9.8252e+00_rb,1.1440e+01_rb,1.3114e+01_rb/)
+      kao(:, 1, 7,13) = (/ &
+     &1.4148e-01_rb,1.2306e+00_rb,2.4611e+00_rb,3.6917e+00_rb,4.9218e+00_rb,6.1530e+00_rb, &
+     &7.3843e+00_rb,8.6153e+00_rb,9.8436e+00_rb/)
+      kao(:, 2, 7,13) = (/ &
+     &1.4468e-01_rb,1.3267e+00_rb,2.6534e+00_rb,3.9799e+00_rb,5.3067e+00_rb,6.6328e+00_rb, &
+     &7.9589e+00_rb,9.2835e+00_rb,1.0613e+01_rb/)
+      kao(:, 3, 7,13) = (/ &
+     &1.4723e-01_rb,1.4271e+00_rb,2.8538e+00_rb,4.2801e+00_rb,5.7062e+00_rb,7.1323e+00_rb, &
+     &8.5577e+00_rb,9.9797e+00_rb,1.1412e+01_rb/)
+      kao(:, 4, 7,13) = (/ &
+     &1.4959e-01_rb,1.5234e+00_rb,3.0460e+00_rb,4.5687e+00_rb,6.0905e+00_rb,7.6133e+00_rb, &
+     &9.1342e+00_rb,1.0653e+01_rb,1.2180e+01_rb/)
+      kao(:, 5, 7,13) = (/ &
+     &1.5109e-01_rb,1.6156e+00_rb,3.2301e+00_rb,4.8444e+00_rb,6.4594e+00_rb,8.0732e+00_rb, &
+     &9.6859e+00_rb,1.1294e+01_rb,1.2918e+01_rb/)
+      kao(:, 1, 8,13) = (/ &
+     &3.4983e-01_rb,1.1544e+00_rb,2.3087e+00_rb,3.4632e+00_rb,4.6176e+00_rb,5.7728e+00_rb, &
+     &6.9283e+00_rb,8.0852e+00_rb,9.2350e+00_rb/)
+      kao(:, 2, 8,13) = (/ &
+     &3.5757e-01_rb,1.2554e+00_rb,2.5092e+00_rb,3.7633e+00_rb,5.0176e+00_rb,6.2716e+00_rb, &
+     &7.5265e+00_rb,8.7822e+00_rb,1.0034e+01_rb/)
+      kao(:, 3, 8,13) = (/ &
+     &3.6359e-01_rb,1.3606e+00_rb,2.7192e+00_rb,4.0780e+00_rb,5.4366e+00_rb,6.7958e+00_rb, &
+     &8.1543e+00_rb,9.5151e+00_rb,1.0871e+01_rb/)
+      kao(:, 4, 8,13) = (/ &
+     &3.6947e-01_rb,1.4619e+00_rb,2.9219e+00_rb,4.3820e+00_rb,5.8417e+00_rb,7.3019e+00_rb, &
+     &8.7622e+00_rb,1.0223e+01_rb,1.1681e+01_rb/)
+      kao(:, 5, 8,13) = (/ &
+     &3.7269e-01_rb,1.5629e+00_rb,3.1234e+00_rb,4.6839e+00_rb,6.2445e+00_rb,7.8052e+00_rb, &
+     &9.3661e+00_rb,1.0928e+01_rb,1.2487e+01_rb/)
+      kao(:, 1, 9,13) = (/ &
+     &1.6120e+00_rb,2.1579e+00_rb,2.5856e+00_rb,3.2058e+00_rb,4.2226e+00_rb,5.2767e+00_rb, &
+     &6.3317e+00_rb,7.3871e+00_rb,8.4404e+00_rb/)
+      kao(:, 2, 9,13) = (/ &
+     &1.6481e+00_rb,2.2537e+00_rb,2.6687e+00_rb,3.4901e+00_rb,4.6465e+00_rb,5.8062e+00_rb, &
+     &6.9659e+00_rb,8.1266e+00_rb,9.2849e+00_rb/)
+      kao(:, 3, 9,13) = (/ &
+     &1.6791e+00_rb,2.3216e+00_rb,2.7898e+00_rb,3.8113e+00_rb,5.0781e+00_rb,6.3453e+00_rb, &
+     &7.6127e+00_rb,8.8803e+00_rb,1.0146e+01_rb/)
+      kao(:, 4, 9,13) = (/ &
+     &1.7002e+00_rb,2.3849e+00_rb,2.9226e+00_rb,4.1389e+00_rb,5.5144e+00_rb,6.8902e+00_rb, &
+     &8.2665e+00_rb,9.6440e+00_rb,1.1018e+01_rb/)
+      kao(:, 5, 9,13) = (/ &
+     &1.7139e+00_rb,2.4356e+00_rb,3.0744e+00_rb,4.4589e+00_rb,5.9418e+00_rb,7.4246e+00_rb, &
+     &8.9078e+00_rb,1.0391e+01_rb,1.1873e+01_rb/)
+      kao(:, 1,10,13) = (/ &
+     &8.1900e+00_rb,7.5735e+00_rb,7.5164e+00_rb,7.4868e+00_rb,7.2490e+00_rb,6.5441e+00_rb, &
+     &6.0001e+00_rb,6.6902e+00_rb,7.6402e+00_rb/)
+      kao(:, 2,10,13) = (/ &
+     &8.3686e+00_rb,7.7990e+00_rb,7.8449e+00_rb,7.8651e+00_rb,7.5310e+00_rb,6.7442e+00_rb, &
+     &6.5109e+00_rb,7.4533e+00_rb,8.5097e+00_rb/)
+      kao(:, 3,10,13) = (/ &
+     &8.5094e+00_rb,8.0068e+00_rb,8.1129e+00_rb,8.1601e+00_rb,7.7387e+00_rb,7.0241e+00_rb, &
+     &7.1098e+00_rb,8.2483e+00_rb,9.4190e+00_rb/)
+      kao(:, 4,10,13) = (/ &
+     &8.6083e+00_rb,8.1729e+00_rb,8.3302e+00_rb,8.3900e+00_rb,7.9589e+00_rb,7.3305e+00_rb, &
+     &7.7681e+00_rb,9.0471e+00_rb,1.0331e+01_rb/)
+      kao(:, 5,10,13) = (/ &
+     &8.6642e+00_rb,8.2947e+00_rb,8.5084e+00_rb,8.6017e+00_rb,8.1354e+00_rb,7.7044e+00_rb, &
+     &8.4486e+00_rb,9.8464e+00_rb,1.1244e+01_rb/)
+      kao(:, 1,11,13) = (/ &
+     &1.4422e+01_rb,1.2923e+01_rb,1.2146e+01_rb,1.1467e+01_rb,1.0797e+01_rb,9.7043e+00_rb, &
+     &7.9341e+00_rb,6.4523e+00_rb,7.2283e+00_rb/)
+      kao(:, 2,11,13) = (/ &
+     &1.4693e+01_rb,1.3224e+01_rb,1.2546e+01_rb,1.1961e+01_rb,1.1284e+01_rb,1.0051e+01_rb, &
+     &8.2717e+00_rb,7.1710e+00_rb,8.1411e+00_rb/)
+      kao(:, 3,11,13) = (/ &
+     &1.4865e+01_rb,1.3437e+01_rb,1.2872e+01_rb,1.2352e+01_rb,1.1673e+01_rb,1.0373e+01_rb, &
+     &8.6477e+00_rb,7.9776e+00_rb,9.0911e+00_rb/)
+      kao(:, 4,11,13) = (/ &
+     &1.4985e+01_rb,1.3594e+01_rb,1.3136e+01_rb,1.2689e+01_rb,1.2000e+01_rb,1.0700e+01_rb, &
+     &9.0501e+00_rb,8.7877e+00_rb,1.0028e+01_rb/)
+      kao(:, 5,11,13) = (/ &
+     &1.5049e+01_rb,1.3704e+01_rb,1.3344e+01_rb,1.2975e+01_rb,1.2311e+01_rb,1.0977e+01_rb, &
+     &9.5392e+00_rb,9.6092e+00_rb,1.0970e+01_rb/)
+      kao(:, 1,12,13) = (/ &
+     &1.8498e+01_rb,1.6493e+01_rb,1.5330e+01_rb,1.4296e+01_rb,1.3227e+01_rb,1.1776e+01_rb, &
+     &9.6093e+00_rb,6.9105e+00_rb,6.8698e+00_rb/)
+      kao(:, 2,12,13) = (/ &
+     &1.8757e+01_rb,1.6799e+01_rb,1.5767e+01_rb,1.4839e+01_rb,1.3780e+01_rb,1.2237e+01_rb, &
+     &1.0031e+01_rb,7.5179e+00_rb,7.8121e+00_rb/)
+      kao(:, 3,12,13) = (/ &
+     &1.8947e+01_rb,1.7036e+01_rb,1.6095e+01_rb,1.5249e+01_rb,1.4223e+01_rb,1.2650e+01_rb, &
+     &1.0480e+01_rb,8.1785e+00_rb,8.7273e+00_rb/)
+      kao(:, 4,12,13) = (/ &
+     &1.9063e+01_rb,1.7202e+01_rb,1.6365e+01_rb,1.5574e+01_rb,1.4614e+01_rb,1.3047e+01_rb, &
+     &1.0927e+01_rb,8.8781e+00_rb,9.6514e+00_rb/)
+      kao(:, 5,12,13) = (/ &
+     &1.9121e+01_rb,1.7309e+01_rb,1.6592e+01_rb,1.5868e+01_rb,1.4993e+01_rb,1.3399e+01_rb, &
+     &1.1411e+01_rb,9.6204e+00_rb,1.0609e+01_rb/)
+      kao(:, 1,13,13) = (/ &
+     &1.8681e+01_rb,1.6791e+01_rb,1.5759e+01_rb,1.4851e+01_rb,1.3770e+01_rb,1.2167e+01_rb, &
+     &1.0009e+01_rb,7.2580e+00_rb,6.5238e+00_rb/)
+      kao(:, 2,13,13) = (/ &
+     &1.8892e+01_rb,1.7070e+01_rb,1.6163e+01_rb,1.5373e+01_rb,1.4290e+01_rb,1.2645e+01_rb, &
+     &1.0505e+01_rb,7.8149e+00_rb,7.3987e+00_rb/)
+      kao(:, 3,13,13) = (/ &
+     &1.9028e+01_rb,1.7273e+01_rb,1.6517e+01_rb,1.5784e+01_rb,1.4702e+01_rb,1.3114e+01_rb, &
+     &1.1026e+01_rb,8.4153e+00_rb,8.2894e+00_rb/)
+      kao(:, 4,13,13) = (/ &
+     &1.9122e+01_rb,1.7418e+01_rb,1.6814e+01_rb,1.6131e+01_rb,1.5108e+01_rb,1.3570e+01_rb, &
+     &1.1549e+01_rb,9.0457e+00_rb,9.1940e+00_rb/)
+      kao(:, 5,13,13) = (/ &
+     &1.9151e+01_rb,1.7520e+01_rb,1.7041e+01_rb,1.6440e+01_rb,1.5494e+01_rb,1.4010e+01_rb, &
+     &1.2106e+01_rb,9.7104e+00_rb,1.0102e+01_rb/)
+      kao(:, 1, 1,14) = (/ &
+     &3.3087e-03_rb,1.8715e+00_rb,3.7152e+00_rb,5.5155e+00_rb,7.2487e+00_rb,8.8573e+00_rb, &
+     &1.0201e+01_rb,1.0807e+01_rb,1.4497e+01_rb/)
+      kao(:, 2, 1,14) = (/ &
+     &3.2220e-03_rb,1.9525e+00_rb,3.8750e+00_rb,5.7533e+00_rb,7.5552e+00_rb,9.2212e+00_rb, &
+     &1.0608e+01_rb,1.1197e+01_rb,1.5110e+01_rb/)
+      kao(:, 3, 1,14) = (/ &
+     &3.1339e-03_rb,2.0260e+00_rb,4.0195e+00_rb,5.9653e+00_rb,7.8344e+00_rb,9.5608e+00_rb, &
+     &1.0981e+01_rb,1.1562e+01_rb,1.5669e+01_rb/)
+      kao(:, 4, 1,14) = (/ &
+     &3.0455e-03_rb,2.1060e+00_rb,4.1769e+00_rb,6.1939e+00_rb,8.1222e+00_rb,9.8877e+00_rb, &
+     &1.1323e+01_rb,1.1897e+01_rb,1.6244e+01_rb/)
+      kao(:, 5, 1,14) = (/ &
+     &2.9339e-03_rb,2.1869e+00_rb,4.3369e+00_rb,6.4318e+00_rb,8.4325e+00_rb,1.0262e+01_rb, &
+     &1.1718e+01_rb,1.2199e+01_rb,1.6865e+01_rb/)
+      kao(:, 1, 2,14) = (/ &
+     &5.2878e-03_rb,2.0475e+00_rb,4.0760e+00_rb,6.0751e+00_rb,8.0240e+00_rb,9.8767e+00_rb, &
+     &1.1510e+01_rb,1.2463e+01_rb,1.6048e+01_rb/)
+      kao(:, 2, 2,14) = (/ &
+     &5.1473e-03_rb,2.1393e+00_rb,4.2595e+00_rb,6.3491e+00_rb,8.3874e+00_rb,1.0326e+01_rb, &
+     &1.2039e+01_rb,1.3009e+01_rb,1.6775e+01_rb/)
+      kao(:, 3, 2,14) = (/ &
+     &5.0049e-03_rb,2.2262e+00_rb,4.4297e+00_rb,6.5989e+00_rb,8.7109e+00_rb,1.0721e+01_rb, &
+     &1.2503e+01_rb,1.3517e+01_rb,1.7422e+01_rb/)
+      kao(:, 4, 2,14) = (/ &
+     &4.8227e-03_rb,2.3172e+00_rb,4.6099e+00_rb,6.8638e+00_rb,9.0568e+00_rb,1.1128e+01_rb, &
+     &1.2937e+01_rb,1.3964e+01_rb,1.8113e+01_rb/)
+      kao(:, 5, 2,14) = (/ &
+     &4.6542e-03_rb,2.4084e+00_rb,4.7911e+00_rb,7.1333e+00_rb,9.4086e+00_rb,1.1557e+01_rb, &
+     &1.3418e+01_rb,1.4407e+01_rb,1.8817e+01_rb/)
+      kao(:, 1, 3,14) = (/ &
+     &1.1438e-02_rb,2.1889e+00_rb,4.3692e+00_rb,6.5353e+00_rb,8.6778e+00_rb,1.0773e+01_rb, &
+     &1.2758e+01_rb,1.4346e+01_rb,1.7356e+01_rb/)
+      kao(:, 2, 3,14) = (/ &
+     &1.1139e-02_rb,2.3041e+00_rb,4.5995e+00_rb,6.8793e+00_rb,9.1316e+00_rb,1.1334e+01_rb, &
+     &1.3411e+01_rb,1.5052e+01_rb,1.8263e+01_rb/)
+      kao(:, 3, 3,14) = (/ &
+     &1.0770e-02_rb,2.4104e+00_rb,4.8103e+00_rb,7.1935e+00_rb,9.5485e+00_rb,1.1847e+01_rb, &
+     &1.4017e+01_rb,1.5716e+01_rb,1.9097e+01_rb/)
+      kao(:, 4, 3,14) = (/ &
+     &1.0423e-02_rb,2.5146e+00_rb,5.0181e+00_rb,7.5021e+00_rb,9.9570e+00_rb,1.2351e+01_rb, &
+     &1.4597e+01_rb,1.6319e+01_rb,1.9914e+01_rb/)
+      kao(:, 5, 3,14) = (/ &
+     &1.0104e-02_rb,2.6169e+00_rb,5.2203e+00_rb,7.8059e+00_rb,1.0356e+01_rb,1.2839e+01_rb, &
+     &1.5169e+01_rb,1.6937e+01_rb,2.0712e+01_rb/)
+      kao(:, 1, 4,14) = (/ &
+     &2.5365e-02_rb,2.3050e+00_rb,4.6063e+00_rb,6.9017e+00_rb,9.1853e+00_rb,1.1448e+01_rb, &
+     &1.3656e+01_rb,1.5659e+01_rb,1.8370e+01_rb/)
+      kao(:, 2, 4,14) = (/ &
+     &2.4778e-02_rb,2.4401e+00_rb,4.8764e+00_rb,7.3060e+00_rb,9.7240e+00_rb,1.2119e+01_rb, &
+     &1.4458e+01_rb,1.6580e+01_rb,1.9448e+01_rb/)
+      kao(:, 3, 4,14) = (/ &
+     &2.4097e-02_rb,2.5614e+00_rb,5.1183e+00_rb,7.6688e+00_rb,1.0206e+01_rb,1.2719e+01_rb, &
+     &1.5172e+01_rb,1.7403e+01_rb,2.0411e+01_rb/)
+      kao(:, 4, 4,14) = (/ &
+     &2.3478e-02_rb,2.6774e+00_rb,5.3500e+00_rb,8.0159e+00_rb,1.0665e+01_rb,1.3289e+01_rb, &
+     &1.5848e+01_rb,1.8161e+01_rb,2.1330e+01_rb/)
+      kao(:, 5, 4,14) = (/ &
+     &2.2944e-02_rb,2.7978e+00_rb,5.5896e+00_rb,8.3727e+00_rb,1.1139e+01_rb,1.3876e+01_rb, &
+     &1.6535e+01_rb,1.8911e+01_rb,2.2278e+01_rb/)
+      kao(:, 1, 5,14) = (/ &
+     &5.2400e-02_rb,2.3882e+00_rb,4.7744e+00_rb,7.1579e+00_rb,9.5370e+00_rb,1.1906e+01_rb, &
+     &1.4251e+01_rb,1.6502e+01_rb,1.9074e+01_rb/)
+      kao(:, 2, 5,14) = (/ &
+     &5.1529e-02_rb,2.5417e+00_rb,5.0820e+00_rb,7.6184e+00_rb,1.0150e+01_rb,1.2670e+01_rb, &
+     &1.5165e+01_rb,1.7564e+01_rb,2.0300e+01_rb/)
+      kao(:, 3, 5,14) = (/ &
+     &5.0713e-02_rb,2.6834e+00_rb,5.3644e+00_rb,8.0415e+00_rb,1.0713e+01_rb,1.3375e+01_rb, &
+     &1.6005e+01_rb,1.8525e+01_rb,2.1426e+01_rb/)
+      kao(:, 4, 5,14) = (/ &
+     &4.9736e-02_rb,2.8194e+00_rb,5.6359e+00_rb,8.4488e+00_rb,1.1255e+01_rb,1.4048e+01_rb, &
+     &1.6805e+01_rb,1.9440e+01_rb,2.2511e+01_rb/)
+      kao(:, 5, 5,14) = (/ &
+     &4.8999e-02_rb,2.9595e+00_rb,5.9157e+00_rb,8.8682e+00_rb,1.1813e+01_rb,1.4742e+01_rb, &
+     &1.7634e+01_rb,2.0380e+01_rb,2.3625e+01_rb/)
+      kao(:, 1, 6,14) = (/ &
+     &1.0351e-01_rb,2.4306e+00_rb,4.8601e+00_rb,7.2890e+00_rb,9.7147e+00_rb,1.2135e+01_rb, &
+     &1.4543e+01_rb,1.6905e+01_rb,1.9429e+01_rb/)
+      kao(:, 2, 6,14) = (/ &
+     &1.0255e-01_rb,2.6140e+00_rb,5.2274e+00_rb,7.8383e+00_rb,1.0448e+01_rb,1.3051e+01_rb, &
+     &1.5640e+01_rb,1.8174e+01_rb,2.0896e+01_rb/)
+      kao(:, 3, 6,14) = (/ &
+     &1.0183e-01_rb,2.7755e+00_rb,5.5503e+00_rb,8.3234e+00_rb,1.1093e+01_rb,1.3857e+01_rb, &
+     &1.6607e+01_rb,1.9300e+01_rb,2.2186e+01_rb/)
+      kao(:, 4, 6,14) = (/ &
+     &1.0081e-01_rb,2.9307e+00_rb,5.8597e+00_rb,8.7876e+00_rb,1.1711e+01_rb,1.4627e+01_rb, &
+     &1.7527e+01_rb,2.0360e+01_rb,2.3422e+01_rb/)
+      kao(:, 5, 6,14) = (/ &
+     &1.0025e-01_rb,3.0883e+00_rb,6.1762e+00_rb,9.2605e+00_rb,1.2342e+01_rb,1.5414e+01_rb, &
+     &1.8466e+01_rb,2.1444e+01_rb,2.4683e+01_rb/)
+      kao(:, 1, 7,14) = (/ &
+     &2.1803e-01_rb,2.4631e+00_rb,4.9259e+00_rb,7.3877e+00_rb,9.8477e+00_rb,1.2306e+01_rb, &
+     &1.4757e+01_rb,1.7182e+01_rb,1.9695e+01_rb/)
+      kao(:, 2, 7,14) = (/ &
+     &2.1806e-01_rb,2.6703e+00_rb,5.3400e+00_rb,8.0091e+00_rb,1.0677e+01_rb,1.3341e+01_rb, &
+     &1.6000e+01_rb,1.8630e+01_rb,2.1354e+01_rb/)
+      kao(:, 3, 7,14) = (/ &
+     &2.1815e-01_rb,2.8507e+00_rb,5.7004e+00_rb,8.5504e+00_rb,1.1399e+01_rb,1.4242e+01_rb, &
+     &1.7080e+01_rb,1.9888e+01_rb,2.2798e+01_rb/)
+      kao(:, 4, 7,14) = (/ &
+     &2.1765e-01_rb,3.0257e+00_rb,6.0505e+00_rb,9.0745e+00_rb,1.2096e+01_rb,1.5115e+01_rb, &
+     &1.8125e+01_rb,2.1099e+01_rb,2.4193e+01_rb/)
+      kao(:, 5, 7,14) = (/ &
+     &2.1725e-01_rb,3.2088e+00_rb,6.4163e+00_rb,9.6232e+00_rb,1.2829e+01_rb,1.6028e+01_rb, &
+     &1.9219e+01_rb,2.2369e+01_rb,2.5657e+01_rb/)
+      kao(:, 1, 8,14) = (/ &
+     &5.5719e-01_rb,2.4793e+00_rb,4.9583e+00_rb,7.4367e+00_rb,9.9152e+00_rb,1.2393e+01_rb, &
+     &1.4868e+01_rb,1.7332e+01_rb,1.9830e+01_rb/)
+      kao(:, 2, 8,14) = (/ &
+     &5.6059e-01_rb,2.7128e+00_rb,5.4248e+00_rb,8.1366e+00_rb,1.0849e+01_rb,1.3560e+01_rb, &
+     &1.6268e+01_rb,1.8965e+01_rb,2.1697e+01_rb/)
+      kao(:, 3, 8,14) = (/ &
+     &5.6435e-01_rb,2.9177e+00_rb,5.8349e+00_rb,8.7514e+00_rb,1.1668e+01_rb,1.4583e+01_rb, &
+     &1.7497e+01_rb,2.0397e+01_rb,2.3335e+01_rb/)
+      kao(:, 4, 8,14) = (/ &
+     &5.6354e-01_rb,3.1161e+00_rb,6.2315e+00_rb,9.3470e+00_rb,1.2462e+01_rb,1.5576e+01_rb, &
+     &1.8684e+01_rb,2.1779e+01_rb,2.4923e+01_rb/)
+      kao(:, 5, 8,14) = (/ &
+     &5.6160e-01_rb,3.3171e+00_rb,6.6335e+00_rb,9.9496e+00_rb,1.3266e+01_rb,1.6580e+01_rb, &
+     &1.9888e+01_rb,2.3183e+01_rb,2.6532e+01_rb/)
+      kao(:, 1, 9,14) = (/ &
+     &2.7023e+00_rb,3.1133e+00_rb,4.9392e+00_rb,7.4089e+00_rb,9.8776e+00_rb,1.2348e+01_rb, &
+     &1.4816e+01_rb,1.7282e+01_rb,1.9755e+01_rb/)
+      kao(:, 2, 9,14) = (/ &
+     &2.7329e+00_rb,3.1899e+00_rb,5.4498e+00_rb,8.1745e+00_rb,1.0899e+01_rb,1.3624e+01_rb, &
+     &1.6348e+01_rb,1.9070e+01_rb,2.1798e+01_rb/)
+      kao(:, 3, 9,14) = (/ &
+     &2.7414e+00_rb,3.2928e+00_rb,5.9087e+00_rb,8.8629e+00_rb,1.1816e+01_rb,1.4770e+01_rb, &
+     &1.7722e+01_rb,2.0675e+01_rb,2.3632e+01_rb/)
+      kao(:, 4, 9,14) = (/ &
+     &2.7386e+00_rb,3.4095e+00_rb,6.3408e+00_rb,9.5112e+00_rb,1.2680e+01_rb,1.5850e+01_rb, &
+     &1.9019e+01_rb,2.2186e+01_rb,2.5359e+01_rb/)
+      kao(:, 5, 9,14) = (/ &
+     &2.7253e+00_rb,3.5556e+00_rb,6.7742e+00_rb,1.0160e+01_rb,1.3547e+01_rb,1.6934e+01_rb, &
+     &2.0319e+01_rb,2.3701e+01_rb,2.7094e+01_rb/)
+      kao(:, 1,10,14) = (/ &
+     &1.4620e+01_rb,1.3012e+01_rb,1.2093e+01_rb,1.1252e+01_rb,1.0888e+01_rb,1.2263e+01_rb, &
+     &1.4693e+01_rb,1.7142e+01_rb,1.9590e+01_rb/)
+      kao(:, 2,10,14) = (/ &
+     &1.4753e+01_rb,1.3186e+01_rb,1.2290e+01_rb,1.1490e+01_rb,1.1589e+01_rb,1.3604e+01_rb, &
+     &1.6324e+01_rb,1.9044e+01_rb,2.1765e+01_rb/)
+      kao(:, 3,10,14) = (/ &
+     &1.4775e+01_rb,1.3219e+01_rb,1.2416e+01_rb,1.1687e+01_rb,1.2328e+01_rb,1.4817e+01_rb, &
+     &1.7779e+01_rb,2.0743e+01_rb,2.3705e+01_rb/)
+      kao(:, 4,10,14) = (/ &
+     &1.4749e+01_rb,1.3203e+01_rb,1.2546e+01_rb,1.1974e+01_rb,1.3088e+01_rb,1.5981e+01_rb, &
+     &1.9178e+01_rb,2.2373e+01_rb,2.5570e+01_rb/)
+      kao(:, 5,10,14) = (/ &
+     &1.4700e+01_rb,1.3186e+01_rb,1.2659e+01_rb,1.2331e+01_rb,1.3931e+01_rb,1.7138e+01_rb, &
+     &2.0565e+01_rb,2.3991e+01_rb,2.7418e+01_rb/)
+      kao(:, 1,11,14) = (/ &
+     &2.7410e+01_rb,2.3992e+01_rb,2.1335e+01_rb,1.9158e+01_rb,1.6847e+01_rb,1.4928e+01_rb, &
+     &1.5265e+01_rb,1.7677e+01_rb,2.0202e+01_rb/)
+      kao(:, 2,11,14) = (/ &
+     &2.7494e+01_rb,2.4097e+01_rb,2.1553e+01_rb,1.9434e+01_rb,1.7307e+01_rb,1.5809e+01_rb, &
+     &1.6793e+01_rb,1.9551e+01_rb,2.2343e+01_rb/)
+      kao(:, 3,11,14) = (/ &
+     &2.7540e+01_rb,2.4181e+01_rb,2.1730e+01_rb,1.9742e+01_rb,1.7701e+01_rb,1.6732e+01_rb, &
+     &1.8269e+01_rb,2.1306e+01_rb,2.4350e+01_rb/)
+      kao(:, 4,11,14) = (/ &
+     &2.7514e+01_rb,2.4204e+01_rb,2.1897e+01_rb,2.0034e+01_rb,1.8171e+01_rb,1.7696e+01_rb, &
+     &1.9766e+01_rb,2.3053e+01_rb,2.6341e+01_rb/)
+      kao(:, 5,11,14) = (/ &
+     &2.7458e+01_rb,2.4204e+01_rb,2.2040e+01_rb,2.0324e+01_rb,1.8730e+01_rb,1.8750e+01_rb, &
+     &2.1236e+01_rb,2.4764e+01_rb,2.8296e+01_rb/)
+      kao(:, 1,12,14) = (/ &
+     &3.7739e+01_rb,3.3022e+01_rb,2.9081e+01_rb,2.5731e+01_rb,2.2384e+01_rb,1.9192e+01_rb, &
+     &1.6882e+01_rb,1.7924e+01_rb,2.0483e+01_rb/)
+      kao(:, 2,12,14) = (/ &
+     &3.7888e+01_rb,3.3157e+01_rb,2.9316e+01_rb,2.6118e+01_rb,2.2987e+01_rb,1.9918e+01_rb, &
+     &1.8210e+01_rb,1.9805e+01_rb,2.2631e+01_rb/)
+      kao(:, 3,12,14) = (/ &
+     &3.7945e+01_rb,3.3236e+01_rb,2.9563e+01_rb,2.6509e+01_rb,2.3567e+01_rb,2.0714e+01_rb, &
+     &1.9521e+01_rb,2.1672e+01_rb,2.4760e+01_rb/)
+      kao(:, 4,12,14) = (/ &
+     &3.7956e+01_rb,3.3289e+01_rb,2.9765e+01_rb,2.6932e+01_rb,2.4108e+01_rb,2.1541e+01_rb, &
+     &2.0877e+01_rb,2.3478e+01_rb,2.6821e+01_rb/)
+      kao(:, 5,12,14) = (/ &
+     &3.7967e+01_rb,3.3331e+01_rb,2.9953e+01_rb,2.7347e+01_rb,2.4651e+01_rb,2.2457e+01_rb, &
+     &2.2265e+01_rb,2.5248e+01_rb,2.8840e+01_rb/)
+      kao(:, 1,13,14) = (/ &
+     &4.1396e+01_rb,3.6239e+01_rb,3.2059e+01_rb,2.8493e+01_rb,2.4944e+01_rb,2.1585e+01_rb, &
+     &1.8204e+01_rb,1.7791e+01_rb,2.0316e+01_rb/)
+      kao(:, 2,13,14) = (/ &
+     &4.1543e+01_rb,3.6421e+01_rb,3.2427e+01_rb,2.9033e+01_rb,2.5736e+01_rb,2.2468e+01_rb, &
+     &1.9493e+01_rb,1.9781e+01_rb,2.2598e+01_rb/)
+      kao(:, 3,13,14) = (/ &
+     &4.1678e+01_rb,3.6592e+01_rb,3.2739e+01_rb,2.9584e+01_rb,2.6500e+01_rb,2.3336e+01_rb, &
+     &2.0749e+01_rb,2.1701e+01_rb,2.4790e+01_rb/)
+      kao(:, 4,13,14) = (/ &
+     &4.1767e+01_rb,3.6719e+01_rb,3.3041e+01_rb,3.0106e+01_rb,2.7204e+01_rb,2.4205e+01_rb, &
+     &2.2086e+01_rb,2.3604e+01_rb,2.6962e+01_rb/)
+      kao(:, 5,13,14) = (/ &
+     &4.1856e+01_rb,3.6841e+01_rb,3.3340e+01_rb,3.0667e+01_rb,2.7878e+01_rb,2.5159e+01_rb, &
+     &2.3471e+01_rb,2.5553e+01_rb,2.9188e+01_rb/)
+      kao(:, 1, 1,15) = (/ &
+     &4.1661e-03_rb,3.0613e+00_rb,6.0764e+00_rb,9.0246e+00_rb,1.1861e+01_rb,1.4480e+01_rb, &
+     &1.6622e+01_rb,1.7284e+01_rb,2.3722e+01_rb/)
+      kao(:, 2, 1,15) = (/ &
+     &4.0148e-03_rb,3.1418e+00_rb,6.2320e+00_rb,9.2486e+00_rb,1.2140e+01_rb,1.4819e+01_rb, &
+     &1.7035e+01_rb,1.7764e+01_rb,2.4279e+01_rb/)
+      kao(:, 3, 1,15) = (/ &
+     &3.8658e-03_rb,3.2144e+00_rb,6.3745e+00_rb,9.4527e+00_rb,1.2398e+01_rb,1.5111e+01_rb, &
+     &1.7346e+01_rb,1.8143e+01_rb,2.4796e+01_rb/)
+      kao(:, 4, 1,15) = (/ &
+     &3.7196e-03_rb,3.2826e+00_rb,6.5071e+00_rb,9.6422e+00_rb,1.2633e+01_rb,1.5374e+01_rb, &
+     &1.7599e+01_rb,1.8433e+01_rb,2.5267e+01_rb/)
+      kao(:, 5, 1,15) = (/ &
+     &3.5761e-03_rb,3.3515e+00_rb,6.6395e+00_rb,9.8324e+00_rb,1.2873e+01_rb,1.5639e+01_rb, &
+     &1.7844e+01_rb,1.8646e+01_rb,2.5747e+01_rb/)
+      kao(:, 1, 2,15) = (/ &
+     &6.8577e-03_rb,3.3744e+00_rb,6.7125e+00_rb,9.9952e+00_rb,1.3184e+01_rb,1.6201e+01_rb, &
+     &1.8839e+01_rb,2.0375e+01_rb,2.6368e+01_rb/)
+      kao(:, 2, 2,15) = (/ &
+     &6.5948e-03_rb,3.4888e+00_rb,6.9393e+00_rb,1.0331e+01_rb,1.3623e+01_rb,1.6730e+01_rb, &
+     &1.9423e+01_rb,2.0902e+01_rb,2.7246e+01_rb/)
+      kao(:, 3, 2,15) = (/ &
+     &6.3372e-03_rb,3.5940e+00_rb,7.1483e+00_rb,1.0636e+01_rb,1.4019e+01_rb,1.7199e+01_rb, &
+     &1.9946e+01_rb,2.1371e+01_rb,2.8038e+01_rb/)
+      kao(:, 4, 2,15) = (/ &
+     &6.0860e-03_rb,3.6975e+00_rb,7.3505e+00_rb,1.0936e+01_rb,1.4402e+01_rb,1.7655e+01_rb, &
+     &2.0430e+01_rb,2.1802e+01_rb,2.8803e+01_rb/)
+      kao(:, 5, 2,15) = (/ &
+     &5.8418e-03_rb,3.7949e+00_rb,7.5419e+00_rb,1.1217e+01_rb,1.4770e+01_rb,1.8090e+01_rb, &
+     &2.0913e+01_rb,2.2203e+01_rb,2.9539e+01_rb/)
+      kao(:, 1, 3,15) = (/ &
+     &1.5312e-02_rb,3.7161e+00_rb,7.4117e+00_rb,1.1074e+01_rb,1.4677e+01_rb,1.8180e+01_rb, &
+     &2.1427e+01_rb,2.3812e+01_rb,2.9355e+01_rb/)
+      kao(:, 2, 3,15) = (/ &
+     &1.4697e-02_rb,3.8703e+00_rb,7.7181e+00_rb,1.1532e+01_rb,1.5288e+01_rb,1.8926e+01_rb, &
+     &2.2293e+01_rb,2.4742e+01_rb,3.0575e+01_rb/)
+      kao(:, 3, 3,15) = (/ &
+     &1.4095e-02_rb,4.0069e+00_rb,7.9901e+00_rb,1.1939e+01_rb,1.5823e+01_rb,1.9587e+01_rb, &
+     &2.3063e+01_rb,2.5568e+01_rb,3.1646e+01_rb/)
+      kao(:, 4, 3,15) = (/ &
+     &1.3512e-02_rb,4.1402e+00_rb,8.2563e+00_rb,1.2333e+01_rb,1.6342e+01_rb,2.0226e+01_rb, &
+     &2.3806e+01_rb,2.6351e+01_rb,3.2684e+01_rb/)
+      kao(:, 5, 3,15) = (/ &
+     &1.2949e-02_rb,4.2659e+00_rb,8.5058e+00_rb,1.2707e+01_rb,1.6836e+01_rb,2.0833e+01_rb, &
+     &2.4517e+01_rb,2.7109e+01_rb,3.3673e+01_rb/)
+      kao(:, 1, 4,15) = (/ &
+     &3.5017e-02_rb,4.0833e+00_rb,8.1553e+00_rb,1.2211e+01_rb,1.6236e+01_rb,2.0204e+01_rb, &
+     &2.4024e+01_rb,2.7316e+01_rb,3.2472e+01_rb/)
+      kao(:, 2, 4,15) = (/ &
+     &3.3537e-02_rb,4.2828e+00_rb,8.5541e+00_rb,1.2808e+01_rb,1.7029e+01_rb,2.1189e+01_rb, &
+     &2.5196e+01_rb,2.8637e+01_rb,3.4057e+01_rb/)
+      kao(:, 3, 4,15) = (/ &
+     &3.2113e-02_rb,4.4600e+00_rb,8.9081e+00_rb,1.3336e+01_rb,1.7733e+01_rb,2.2059e+01_rb, &
+     &2.6228e+01_rb,2.9796e+01_rb,3.5465e+01_rb/)
+      kao(:, 4, 4,15) = (/ &
+     &3.0746e-02_rb,4.6307e+00_rb,9.2473e+00_rb,1.3839e+01_rb,1.8403e+01_rb,2.2892e+01_rb, &
+     &2.7214e+01_rb,3.0894e+01_rb,3.6805e+01_rb/)
+      kao(:, 5, 4,15) = (/ &
+     &2.9433e-02_rb,4.7874e+00_rb,9.5611e+00_rb,1.4314e+01_rb,1.9029e+01_rb,2.3669e+01_rb, &
+     &2.8132e+01_rb,3.1929e+01_rb,3.8057e+01_rb/)
+      kao(:, 1, 5,15) = (/ &
+     &7.3896e-02_rb,4.4639e+00_rb,8.9220e+00_rb,1.3370e+01_rb,1.7804e+01_rb,2.2204e+01_rb, &
+     &2.6523e+01_rb,3.0537e+01_rb,3.5608e+01_rb/)
+      kao(:, 2, 5,15) = (/ &
+     &7.0692e-02_rb,4.7138e+00_rb,9.4187e+00_rb,1.4116e+01_rb,1.8797e+01_rb,2.3443e+01_rb, &
+     &2.8005e+01_rb,3.2244e+01_rb,3.7595e+01_rb/)
+      kao(:, 3, 5,15) = (/ &
+     &6.7622e-02_rb,4.9383e+00_rb,9.8707e+00_rb,1.4791e+01_rb,1.9696e+01_rb,2.4560e+01_rb, &
+     &2.9335e+01_rb,3.3760e+01_rb,3.9391e+01_rb/)
+      kao(:, 4, 5,15) = (/ &
+     &6.4677e-02_rb,5.1515e+00_rb,1.0296e+01_rb,1.5428e+01_rb,2.0542e+01_rb,2.5616e+01_rb, &
+     &3.0597e+01_rb,3.5203e+01_rb,4.1084e+01_rb/)
+      kao(:, 5, 5,15) = (/ &
+     &6.1858e-02_rb,5.3461e+00_rb,1.0685e+01_rb,1.6012e+01_rb,2.1318e+01_rb,2.6583e+01_rb, &
+     &3.1750e+01_rb,3.6527e+01_rb,4.2635e+01_rb/)
+      kao(:, 1, 6,15) = (/ &
+     &1.4684e-01_rb,4.8264e+00_rb,9.6500e+00_rb,1.4468e+01_rb,1.9279e+01_rb,2.4068e+01_rb, &
+     &2.8816e+01_rb,3.3389e+01_rb,3.8558e+01_rb/)
+      kao(:, 2, 6,15) = (/ &
+     &1.4028e-01_rb,5.1303e+00_rb,1.0258e+01_rb,1.5380e+01_rb,2.0490e+01_rb,2.5585e+01_rb, &
+     &3.0631e+01_rb,3.5492e+01_rb,4.0980e+01_rb/)
+      kao(:, 3, 6,15) = (/ &
+     &1.3401e-01_rb,5.4150e+00_rb,1.0825e+01_rb,1.6231e+01_rb,2.1624e+01_rb,2.7001e+01_rb, &
+     &3.2322e+01_rb,3.7445e+01_rb,4.3249e+01_rb/)
+      kao(:, 4, 6,15) = (/ &
+     &1.2806e-01_rb,5.6771e+00_rb,1.1351e+01_rb,1.7018e+01_rb,2.2674e+01_rb,2.8310e+01_rb, &
+     &3.3887e+01_rb,3.9255e+01_rb,4.5348e+01_rb/)
+      kao(:, 5, 6,15) = (/ &
+     &1.2235e-01_rb,5.9138e+00_rb,1.1824e+01_rb,1.7725e+01_rb,2.3617e+01_rb,2.9485e+01_rb, &
+     &3.5301e+01_rb,4.0890e+01_rb,4.7234e+01_rb/)
+      kao(:, 1, 7,15) = (/ &
+     &3.0725e-01_rb,5.1535e+00_rb,1.0306e+01_rb,1.5454e+01_rb,2.0602e+01_rb,2.5736e+01_rb, &
+     &3.0848e+01_rb,3.5878e+01_rb,4.1204e+01_rb/)
+      kao(:, 2, 7,15) = (/ &
+     &2.9321e-01_rb,5.5259e+00_rb,1.1050e+01_rb,1.6570e+01_rb,2.2088e+01_rb,2.7592e+01_rb, &
+     &3.3073e+01_rb,3.8464e+01_rb,4.4176e+01_rb/)
+      kao(:, 3, 7,15) = (/ &
+     &2.7993e-01_rb,5.8735e+00_rb,1.1744e+01_rb,1.7612e+01_rb,2.3476e+01_rb,2.9329e+01_rb, &
+     &3.5155e+01_rb,4.0875e+01_rb,4.6953e+01_rb/)
+      kao(:, 4, 7,15) = (/ &
+     &2.6791e-01_rb,6.1876e+00_rb,1.2373e+01_rb,1.8557e+01_rb,2.4734e+01_rb,3.0898e+01_rb, &
+     &3.7039e+01_rb,4.3070e+01_rb,4.9468e+01_rb/)
+      kao(:, 5, 7,15) = (/ &
+     &2.5886e-01_rb,6.4685e+00_rb,1.2934e+01_rb,1.9398e+01_rb,2.5854e+01_rb,3.2302e+01_rb, &
+     &3.8716e+01_rb,4.5022e+01_rb,5.1708e+01_rb/)
+      kao(:, 1, 8,15) = (/ &
+     &7.7279e-01_rb,5.4596e+00_rb,1.0918e+01_rb,1.6376e+01_rb,2.1832e+01_rb,2.7286e+01_rb, &
+     &3.2729e+01_rb,3.8130e+01_rb,4.3663e+01_rb/)
+      kao(:, 2, 8,15) = (/ &
+     &7.3823e-01_rb,5.9033e+00_rb,1.1807e+01_rb,1.7707e+01_rb,2.3607e+01_rb,2.9503e+01_rb, &
+     &3.5387e+01_rb,4.1229e+01_rb,4.7214e+01_rb/)
+      kao(:, 3, 8,15) = (/ &
+     &7.0825e-01_rb,6.3158e+00_rb,1.2632e+01_rb,1.8945e+01_rb,2.5259e+01_rb,3.1562e+01_rb, &
+     &3.7862e+01_rb,4.4105e+01_rb,5.0517e+01_rb/)
+      kao(:, 4, 8,15) = (/ &
+     &6.8827e-01_rb,6.6883e+00_rb,1.3376e+01_rb,2.0062e+01_rb,2.6743e+01_rb,3.3422e+01_rb, &
+     &4.0088e+01_rb,4.6704e+01_rb,5.3485e+01_rb/)
+      kao(:, 5, 8,15) = (/ &
+     &6.7674e-01_rb,7.0269e+00_rb,1.4054e+01_rb,2.1077e+01_rb,2.8099e+01_rb,3.5115e+01_rb, &
+     &4.2117e+01_rb,4.9067e+01_rb,5.6197e+01_rb/)
+      kao(:, 1, 9,15) = (/ &
+     &3.6929e+00_rb,5.7245e+00_rb,1.1448e+01_rb,1.7170e+01_rb,2.2894e+01_rb,2.8616e+01_rb, &
+     &3.4335e+01_rb,4.0048e+01_rb,4.5789e+01_rb/)
+      kao(:, 2, 9,15) = (/ &
+     &3.5483e+00_rb,6.2547e+00_rb,1.2509e+01_rb,1.8761e+01_rb,2.5016e+01_rb,3.1268e+01_rb, &
+     &3.7517e+01_rb,4.3757e+01_rb,5.0032e+01_rb/)
+      kao(:, 3, 9,15) = (/ &
+     &3.4652e+00_rb,6.7430e+00_rb,1.3484e+01_rb,2.0224e+01_rb,2.6965e+01_rb,3.3705e+01_rb, &
+     &4.0443e+01_rb,4.7167e+01_rb,5.3930e+01_rb/)
+      kao(:, 4, 9,15) = (/ &
+     &3.4260e+00_rb,7.1974e+00_rb,1.4393e+01_rb,2.1588e+01_rb,2.8784e+01_rb,3.5977e+01_rb, &
+     &4.3167e+01_rb,5.0348e+01_rb,5.7567e+01_rb/)
+      kao(:, 5, 9,15) = (/ &
+     &3.4123e+00_rb,7.6134e+00_rb,1.5225e+01_rb,2.2838e+01_rb,3.0451e+01_rb,3.8059e+01_rb, &
+     &4.5665e+01_rb,5.3256e+01_rb,6.0901e+01_rb/)
+      kao(:, 1,10,15) = (/ &
+     &1.9879e+01_rb,1.7395e+01_rb,1.5929e+01_rb,1.8251e+01_rb,2.3917e+01_rb,2.9895e+01_rb, &
+     &3.5873e+01_rb,4.1851e+01_rb,4.7831e+01_rb/)
+      kao(:, 2,10,15) = (/ &
+     &1.9461e+01_rb,1.7089e+01_rb,1.6077e+01_rb,1.9823e+01_rb,2.6409e+01_rb,3.3015e+01_rb, &
+     &3.9616e+01_rb,4.6210e+01_rb,5.2815e+01_rb/)
+      kao(:, 3,10,15) = (/ &
+     &1.9336e+01_rb,1.7101e+01_rb,1.6570e+01_rb,2.1574e+01_rb,2.8765e+01_rb,3.5957e+01_rb, &
+     &4.3144e+01_rb,5.0330e+01_rb,5.7526e+01_rb/)
+      kao(:, 4,10,15) = (/ &
+     &1.9333e+01_rb,1.7178e+01_rb,1.7183e+01_rb,2.3203e+01_rb,3.0928e+01_rb,3.8662e+01_rb, &
+     &4.6389e+01_rb,5.4117e+01_rb,6.1850e+01_rb/)
+      kao(:, 5,10,15) = (/ &
+     &1.9454e+01_rb,1.7376e+01_rb,1.7879e+01_rb,2.4671e+01_rb,3.2892e+01_rb,4.1116e+01_rb, &
+     &4.9334e+01_rb,5.7555e+01_rb,6.5778e+01_rb/)
+      kao(:, 1,11,15) = (/ &
+     &3.7918e+01_rb,3.3177e+01_rb,2.9050e+01_rb,2.5728e+01_rb,2.6964e+01_rb,3.2638e+01_rb, &
+     &3.9160e+01_rb,4.5686e+01_rb,5.2215e+01_rb/)
+      kao(:, 2,11,15) = (/ &
+     &3.7982e+01_rb,3.3235e+01_rb,2.9190e+01_rb,2.6661e+01_rb,2.9222e+01_rb,3.6220e+01_rb, &
+     &4.3460e+01_rb,5.0704e+01_rb,5.7949e+01_rb/)
+      kao(:, 3,11,15) = (/ &
+     &3.8191e+01_rb,3.3419e+01_rb,2.9491e+01_rb,2.7784e+01_rb,3.1731e+01_rb,3.9527e+01_rb, &
+     &4.7423e+01_rb,5.5330e+01_rb,6.3238e+01_rb/)
+      kao(:, 4,11,15) = (/ &
+     &3.8572e+01_rb,3.3751e+01_rb,2.9960e+01_rb,2.8966e+01_rb,3.4093e+01_rb,4.2514e+01_rb, &
+     &5.1014e+01_rb,5.9516e+01_rb,6.8017e+01_rb/)
+      kao(:, 5,11,15) = (/ &
+     &3.9093e+01_rb,3.4206e+01_rb,3.0547e+01_rb,3.0263e+01_rb,3.6228e+01_rb,4.5245e+01_rb, &
+     &5.4290e+01_rb,6.3320e+01_rb,7.2371e+01_rb/)
+      kao(:, 1,12,15) = (/ &
+     &5.5475e+01_rb,4.8541e+01_rb,4.2038e+01_rb,3.6129e+01_rb,3.3332e+01_rb,3.5714e+01_rb, &
+     &4.2669e+01_rb,4.9771e+01_rb,5.6891e+01_rb/)
+      kao(:, 2,12,15) = (/ &
+     &5.6059e+01_rb,4.9052e+01_rb,4.2754e+01_rb,3.7078e+01_rb,3.5375e+01_rb,3.9558e+01_rb, &
+     &4.7442e+01_rb,5.5347e+01_rb,6.3258e+01_rb/)
+      kao(:, 3,12,15) = (/ &
+     &5.6760e+01_rb,4.9664e+01_rb,4.3494e+01_rb,3.8346e+01_rb,3.7575e+01_rb,4.3186e+01_rb, &
+     &5.1821e+01_rb,6.0453e+01_rb,6.9095e+01_rb/)
+      kao(:, 4,12,15) = (/ &
+     &5.7648e+01_rb,5.0443e+01_rb,4.4349e+01_rb,3.9649e+01_rb,3.9898e+01_rb,4.6561e+01_rb, &
+     &5.5869e+01_rb,6.5177e+01_rb,7.4491e+01_rb/)
+      kao(:, 5,12,15) = (/ &
+     &5.8564e+01_rb,5.1244e+01_rb,4.5202e+01_rb,4.0926e+01_rb,4.2120e+01_rb,4.9601e+01_rb, &
+     &5.9519e+01_rb,6.9433e+01_rb,7.9355e+01_rb/)
+      kao(:, 1,13,15) = (/ &
+     &6.5843e+01_rb,5.7608e+01_rb,4.9977e+01_rb,4.3124e+01_rb,3.8891e+01_rb,3.9628e+01_rb, &
+     &4.6579e+01_rb,5.4339e+01_rb,6.2102e+01_rb/)
+      kao(:, 2,13,15) = (/ &
+     &6.6934e+01_rb,5.8564e+01_rb,5.1105e+01_rb,4.4471e+01_rb,4.1117e+01_rb,4.3582e+01_rb, &
+     &5.1721e+01_rb,6.0334e+01_rb,6.8958e+01_rb/)
+      kao(:, 3,13,15) = (/ &
+     &6.8030e+01_rb,5.9532e+01_rb,5.2179e+01_rb,4.5978e+01_rb,4.3480e+01_rb,4.7374e+01_rb, &
+     &5.6498e+01_rb,6.5896e+01_rb,7.5328e+01_rb/)
+      kao(:, 4,13,15) = (/ &
+     &6.9202e+01_rb,6.0551e+01_rb,5.3246e+01_rb,4.7483e+01_rb,4.5884e+01_rb,5.0923e+01_rb, &
+     &6.0842e+01_rb,7.0980e+01_rb,8.1125e+01_rb/)
+      kao(:, 5,13,15) = (/ &
+     &7.0366e+01_rb,6.1567e+01_rb,5.4251e+01_rb,4.8884e+01_rb,4.8138e+01_rb,5.4098e+01_rb, &
+     &6.4681e+01_rb,7.5454e+01_rb,8.6236e+01_rb/)
+      kao(:, 1, 1,16) = (/ &
+     &4.2680e-03_rb,4.0094e+00_rb,7.9109e+00_rb,1.1649e+01_rb,1.5123e+01_rb,1.8131e+01_rb, &
+     &2.0185e+01_rb,1.9759e+01_rb,3.0246e+01_rb/)
+      kao(:, 2, 1,16) = (/ &
+     &4.1096e-03_rb,4.1769e+00_rb,8.2411e+00_rb,1.2134e+01_rb,1.5754e+01_rb,1.8883e+01_rb, &
+     &2.1013e+01_rb,2.0555e+01_rb,3.1509e+01_rb/)
+      kao(:, 3, 1,16) = (/ &
+     &3.9552e-03_rb,4.3246e+00_rb,8.5324e+00_rb,1.2562e+01_rb,1.6307e+01_rb,1.9544e+01_rb, &
+     &2.1743e+01_rb,2.1252e+01_rb,3.2613e+01_rb/)
+      kao(:, 4, 1,16) = (/ &
+     &3.8024e-03_rb,4.4537e+00_rb,8.7866e+00_rb,1.2936e+01_rb,1.6790e+01_rb,2.0122e+01_rb, &
+     &2.2380e+01_rb,2.1858e+01_rb,3.3579e+01_rb/)
+      kao(:, 5, 1,16) = (/ &
+     &3.6530e-03_rb,4.5661e+00_rb,9.0077e+00_rb,1.3262e+01_rb,1.7211e+01_rb,2.0624e+01_rb, &
+     &2.2936e+01_rb,2.2383e+01_rb,3.4420e+01_rb/)
+      kao(:, 1, 2,16) = (/ &
+     &7.0518e-03_rb,4.7486e+00_rb,9.4112e+00_rb,1.3945e+01_rb,1.8257e+01_rb,2.2167e+01_rb, &
+     &2.5197e+01_rb,2.5646e+01_rb,3.6513e+01_rb/)
+      kao(:, 2, 2,16) = (/ &
+     &6.7731e-03_rb,4.9653e+00_rb,9.8411e+00_rb,1.4578e+01_rb,1.9087e+01_rb,2.3173e+01_rb, &
+     &2.6338e+01_rb,2.6795e+01_rb,3.8174e+01_rb/)
+      kao(:, 3, 2,16) = (/ &
+     &6.4989e-03_rb,5.1561e+00_rb,1.0219e+01_rb,1.5138e+01_rb,1.9822e+01_rb,2.4059e+01_rb, &
+     &2.7344e+01_rb,2.7802e+01_rb,3.9644e+01_rb/)
+      kao(:, 4, 2,16) = (/ &
+     &6.2358e-03_rb,5.3229e+00_rb,1.0548e+01_rb,1.5628e+01_rb,2.0461e+01_rb,2.4836e+01_rb, &
+     &2.8225e+01_rb,2.8690e+01_rb,4.0921e+01_rb/)
+      kao(:, 5, 2,16) = (/ &
+     &5.9777e-03_rb,5.4686e+00_rb,1.0838e+01_rb,1.6055e+01_rb,2.1017e+01_rb,2.5512e+01_rb, &
+     &2.8989e+01_rb,2.9460e+01_rb,4.2034e+01_rb/)
+      kao(:, 1, 3,16) = (/ &
+     &1.5841e-02_rb,5.5685e+00_rb,1.1089e+01_rb,1.6529e+01_rb,2.1842e+01_rb,2.6900e+01_rb, &
+     &3.1365e+01_rb,3.3823e+01_rb,4.3684e+01_rb/)
+      kao(:, 2, 3,16) = (/ &
+     &1.5180e-02_rb,5.8535e+00_rb,1.1654e+01_rb,1.7376e+01_rb,2.2954e+01_rb,2.8269e+01_rb, &
+     &3.2966e+01_rb,3.5548e+01_rb,4.5909e+01_rb/)
+      kao(:, 3, 3,16) = (/ &
+     &1.4542e-02_rb,6.1037e+00_rb,1.2154e+01_rb,1.8119e+01_rb,2.3939e+01_rb,2.9482e+01_rb, &
+     &3.4375e+01_rb,3.7061e+01_rb,4.7877e+01_rb/)
+      kao(:, 4, 3,16) = (/ &
+     &1.3926e-02_rb,6.3236e+00_rb,1.2592e+01_rb,1.8771e+01_rb,2.4803e+01_rb,3.0545e+01_rb, &
+     &3.5612e+01_rb,3.8393e+01_rb,4.9606e+01_rb/)
+      kao(:, 5, 3,16) = (/ &
+     &1.3332e-02_rb,6.5149e+00_rb,1.2971e+01_rb,1.9341e+01_rb,2.5553e+01_rb,3.1470e+01_rb, &
+     &3.6691e+01_rb,3.9549e+01_rb,5.1106e+01_rb/)
+      kao(:, 1, 4,16) = (/ &
+     &3.6504e-02_rb,6.4847e+00_rb,1.2941e+01_rb,1.9357e+01_rb,2.5697e+01_rb,3.1893e+01_rb, &
+     &3.7735e+01_rb,4.2276e+01_rb,5.1393e+01_rb/)
+      kao(:, 2, 4,16) = (/ &
+     &3.4931e-02_rb,6.8562e+00_rb,1.3684e+01_rb,2.0466e+01_rb,2.7170e+01_rb,3.3719e+01_rb, &
+     &3.9896e+01_rb,4.4696e+01_rb,5.4340e+01_rb/)
+      kao(:, 3, 4,16) = (/ &
+     &3.3404e-02_rb,7.1832e+00_rb,1.4337e+01_rb,2.1441e+01_rb,2.8465e+01_rb,3.5334e+01_rb, &
+     &4.1803e+01_rb,4.6838e+01_rb,5.6929e+01_rb/)
+      kao(:, 4, 4,16) = (/ &
+     &3.1940e-02_rb,7.4729e+00_rb,1.4911e+01_rb,2.2302e+01_rb,2.9607e+01_rb,3.6753e+01_rb, &
+     &4.3482e+01_rb,4.8710e+01_rb,5.9213e+01_rb/)
+      kao(:, 5, 4,16) = (/ &
+     &3.0537e-02_rb,7.7225e+00_rb,1.5413e+01_rb,2.3052e+01_rb,3.0605e+01_rb,3.7982e+01_rb, &
+     &4.4943e+01_rb,5.0367e+01_rb,6.1209e+01_rb/)
+      kao(:, 1, 5,16) = (/ &
+     &7.7459e-02_rb,7.5153e+00_rb,1.5015e+01_rb,2.2490e+01_rb,2.9920e+01_rb,3.7263e+01_rb, &
+     &4.4388e+01_rb,5.0697e+01_rb,5.9839e+01_rb/)
+      kao(:, 2, 5,16) = (/ &
+     &7.3973e-02_rb,7.9956e+00_rb,1.5974e+01_rb,2.3926e+01_rb,3.1831e+01_rb,3.9653e+01_rb, &
+     &4.7235e+01_rb,5.3936e+01_rb,6.3661e+01_rb/)
+      kao(:, 3, 5,16) = (/ &
+     &7.0652e-02_rb,8.4194e+00_rb,1.6824e+01_rb,2.5198e+01_rb,3.3521e+01_rb,4.1754e+01_rb, &
+     &4.9742e+01_rb,5.6808e+01_rb,6.7041e+01_rb/)
+      kao(:, 4, 5,16) = (/ &
+     &6.7486e-02_rb,8.7920e+00_rb,1.7565e+01_rb,2.6310e+01_rb,3.5003e+01_rb,4.3595e+01_rb, &
+     &5.1933e+01_rb,5.9317e+01_rb,7.0006e+01_rb/)
+      kao(:, 5, 5,16) = (/ &
+     &6.4478e-02_rb,9.1159e+00_rb,1.8215e+01_rb,2.7284e+01_rb,3.6299e+01_rb,4.5208e+01_rb, &
+     &5.3851e+01_rb,6.1525e+01_rb,7.2598e+01_rb/)
+      kao(:, 1, 6,16) = (/ &
+     &1.5475e-01_rb,8.6422e+00_rb,1.7275e+01_rb,2.5892e+01_rb,3.4482e+01_rb,4.3028e+01_rb, &
+     &5.1423e+01_rb,5.9299e+01_rb,6.8964e+01_rb/)
+      kao(:, 2, 6,16) = (/ &
+     &1.4760e-01_rb,9.2603e+00_rb,1.8510e+01_rb,2.7740e+01_rb,3.6952e+01_rb,4.6093e+01_rb, &
+     &5.5105e+01_rb,6.3549e+01_rb,7.3905e+01_rb/)
+      kao(:, 3, 6,16) = (/ &
+     &1.4090e-01_rb,9.8052e+00_rb,1.9599e+01_rb,2.9376e+01_rb,3.9123e+01_rb,4.8807e+01_rb, &
+     &5.8340e+01_rb,6.7288e+01_rb,7.8246e+01_rb/)
+      kao(:, 4, 6,16) = (/ &
+     &1.3455e-01_rb,1.0284e+01_rb,2.0553e+01_rb,3.0809e+01_rb,4.1029e+01_rb,5.1188e+01_rb, &
+     &6.1191e+01_rb,7.0573e+01_rb,8.2057e+01_rb/)
+      kao(:, 5, 6,16) = (/ &
+     &1.2855e-01_rb,1.0696e+01_rb,2.1381e+01_rb,3.2059e+01_rb,4.2695e+01_rb,5.3257e+01_rb, &
+     &6.3651e+01_rb,7.3440e+01_rb,8.5390e+01_rb/)
+      kao(:, 1, 7,16) = (/ &
+     &3.2765e-01_rb,9.8708e+00_rb,1.9738e+01_rb,2.9598e+01_rb,3.9436e+01_rb,4.9244e+01_rb, &
+     &5.8981e+01_rb,6.8395e+01_rb,7.8872e+01_rb/)
+      kao(:, 2, 7,16) = (/ &
+     &3.1237e-01_rb,1.0655e+01_rb,2.1308e+01_rb,3.1948e+01_rb,4.2573e+01_rb,5.3154e+01_rb, &
+     &6.3663e+01_rb,7.3848e+01_rb,8.5146e+01_rb/)
+      kao(:, 3, 7,16) = (/ &
+     &2.9817e-01_rb,1.1348e+01_rb,2.2690e+01_rb,3.4027e+01_rb,4.5330e+01_rb,5.6613e+01_rb, &
+     &6.7816e+01_rb,7.8654e+01_rb,9.0660e+01_rb/)
+      kao(:, 4, 7,16) = (/ &
+     &2.8488e-01_rb,1.1956e+01_rb,2.3907e+01_rb,3.5845e+01_rb,4.7755e+01_rb,5.9649e+01_rb, &
+     &7.1415e+01_rb,8.2866e+01_rb,9.5510e+01_rb/)
+      kao(:, 5, 7,16) = (/ &
+     &2.7283e-01_rb,1.2480e+01_rb,2.4950e+01_rb,3.7415e+01_rb,4.9097e+01_rb,6.2266e+01_rb, &
+     &7.4578e+01_rb,8.6491e+01_rb,9.9702e+01_rb/)
+      kao(:, 1, 8,16) = (/ &
+     &8.3606e-01_rb,1.1195e+01_rb,2.2388e+01_rb,3.3574e+01_rb,4.4755e+01_rb,5.5920e+01_rb, &
+     &6.7048e+01_rb,7.8029e+01_rb,8.9508e+01_rb/)
+      kao(:, 2, 8,16) = (/ &
+     &7.9798e-01_rb,1.2177e+01_rb,2.4351e+01_rb,3.6522e+01_rb,4.8685e+01_rb,6.0830e+01_rb, &
+     &7.2963e+01_rb,8.4892e+01_rb,9.7369e+01_rb/)
+      kao(:, 3, 8,16) = (/ &
+     &7.6304e-01_rb,1.3047e+01_rb,2.6090e+01_rb,3.9130e+01_rb,5.2156e+01_rb,6.5163e+01_rb, &
+     &7.8140e+01_rb,9.0945e+01_rb,1.0431e+02_rb/)
+      kao(:, 4, 8,16) = (/ &
+     &7.3296e-01_rb,1.3800e+01_rb,2.7601e+01_rb,4.1393e+01_rb,5.5174e+01_rb,6.8947e+01_rb, &
+     &8.2670e+01_rb,9.6216e+01_rb,1.1035e+02_rb/)
+      kao(:, 5, 8,16) = (/ &
+     &7.2250e-01_rb,1.4453e+01_rb,2.8899e+01_rb,4.3348e+01_rb,5.7784e+01_rb,7.2193e+01_rb, &
+     &8.6582e+01_rb,1.0076e+02_rb,1.1557e+02_rb/)
+      kao(:, 1, 9,16) = (/ &
+     &4.0611e+00_rb,1.2573e+01_rb,2.5149e+01_rb,3.7721e+01_rb,5.0293e+01_rb,6.2854e+01_rb, &
+     &7.5422e+01_rb,8.7942e+01_rb,1.0059e+02_rb/)
+      kao(:, 2, 9,16) = (/ &
+     &3.8919e+00_rb,1.3793e+01_rb,2.7583e+01_rb,4.1373e+01_rb,5.5157e+01_rb,6.8943e+01_rb, &
+     &8.2722e+01_rb,9.6458e+01_rb,1.1031e+02_rb/)
+      kao(:, 3, 9,16) = (/ &
+     &3.7505e+00_rb,1.4863e+01_rb,2.9722e+01_rb,4.4587e+01_rb,5.9447e+01_rb,7.4303e+01_rb, &
+     &8.9145e+01_rb,1.0395e+02_rb,1.1889e+02_rb/)
+      kao(:, 4, 9,16) = (/ &
+     &3.6915e+00_rb,1.5793e+01_rb,3.1587e+01_rb,4.7379e+01_rb,6.3167e+01_rb,7.8955e+01_rb, &
+     &9.4727e+01_rb,1.1046e+02_rb,1.2634e+02_rb/)
+      kao(:, 5, 9,16) = (/ &
+     &3.8118e+00_rb,1.6590e+01_rb,3.3180e+01_rb,4.9767e+01_rb,6.6364e+01_rb,8.2935e+01_rb, &
+     &9.9506e+01_rb,1.1603e+02_rb,1.3273e+02_rb/)
+      kao(:, 1,10,16) = (/ &
+     &2.2252e+01_rb,1.9469e+01_rb,2.8181e+01_rb,4.2271e+01_rb,5.6359e+01_rb,7.0451e+01_rb, &
+     &8.4538e+01_rb,9.8612e+01_rb,1.1272e+02_rb/)
+      kao(:, 2,10,16) = (/ &
+     &2.1525e+01_rb,1.8834e+01_rb,3.1126e+01_rb,4.6690e+01_rb,6.2252e+01_rb,7.7813e+01_rb, &
+     &9.3373e+01_rb,1.0893e+02_rb,1.2450e+02_rb/)
+      kao(:, 3,10,16) = (/ &
+     &2.1146e+01_rb,1.8632e+01_rb,3.3699e+01_rb,5.0550e+01_rb,6.7413e+01_rb,8.4265e+01_rb, &
+     &1.0112e+02_rb,1.1795e+02_rb,1.3483e+02_rb/)
+      kao(:, 4,10,16) = (/ &
+     &2.1709e+01_rb,1.9529e+01_rb,3.5926e+01_rb,5.3893e+01_rb,7.1851e+01_rb,8.9812e+01_rb, &
+     &1.0777e+02_rb,1.2572e+02_rb,1.4370e+02_rb/)
+      kao(:, 5,10,16) = (/ &
+     &2.2565e+01_rb,2.0486e+01_rb,3.7826e+01_rb,5.6738e+01_rb,7.5652e+01_rb,9.4560e+01_rb, &
+     &1.1347e+02_rb,1.3237e+02_rb,1.5131e+02_rb/)
+      kao(:, 1,11,16) = (/ &
+     &4.2772e+01_rb,3.7423e+01_rb,3.4479e+01_rb,4.9359e+01_rb,6.5807e+01_rb,8.2260e+01_rb, &
+     &9.8714e+01_rb,1.1516e+02_rb,1.3161e+02_rb/)
+      kao(:, 2,11,16) = (/ &
+     &4.2480e+01_rb,3.7168e+01_rb,3.6886e+01_rb,5.4309e+01_rb,7.2413e+01_rb,9.0516e+01_rb, &
+     &1.0859e+02_rb,1.2671e+02_rb,1.4483e+02_rb/)
+      kao(:, 3,11,16) = (/ &
+     &4.3695e+01_rb,3.8234e+01_rb,3.9646e+01_rb,5.8582e+01_rb,7.8105e+01_rb,9.7632e+01_rb, &
+     &1.1715e+02_rb,1.3667e+02_rb,1.5621e+02_rb/)
+      kao(:, 4,11,16) = (/ &
+     &4.5497e+01_rb,3.9810e+01_rb,4.2112e+01_rb,6.2236e+01_rb,8.2974e+01_rb,1.0371e+02_rb, &
+     &1.2447e+02_rb,1.4520e+02_rb,1.6595e+02_rb/)
+      kao(:, 5,11,16) = (/ &
+     &4.7319e+01_rb,4.1402e+01_rb,4.4245e+01_rb,6.5288e+01_rb,8.7037e+01_rb,1.0880e+02_rb, &
+     &1.3053e+02_rb,1.5228e+02_rb,1.7407e+02_rb/)
+      kao(:, 1,12,16) = (/ &
+     &6.3760e+01_rb,5.5793e+01_rb,4.7823e+01_rb,5.6928e+01_rb,7.5904e+01_rb,9.4850e+01_rb, &
+     &1.1385e+02_rb,1.3279e+02_rb,1.5181e+02_rb/)
+      kao(:, 2,12,16) = (/ &
+     &6.5427e+01_rb,5.7247e+01_rb,4.9649e+01_rb,6.2349e+01_rb,8.3126e+01_rb,1.0392e+02_rb, &
+     &1.2469e+02_rb,1.4546e+02_rb,1.6625e+02_rb/)
+      kao(:, 3,12,16) = (/ &
+     &6.8202e+01_rb,5.9674e+01_rb,5.2535e+01_rb,6.6975e+01_rb,8.9301e+01_rb,1.1163e+02_rb, &
+     &1.3393e+02_rb,1.5627e+02_rb,1.7860e+02_rb/)
+      kao(:, 4,12,16) = (/ &
+     &7.0922e+01_rb,6.2055e+01_rb,5.5321e+01_rb,7.0905e+01_rb,9.4539e+01_rb,1.1818e+02_rb, &
+     &1.4181e+02_rb,1.6544e+02_rb,1.8908e+02_rb/)
+      kao(:, 5,12,16) = (/ &
+     &7.3649e+01_rb,6.4442e+01_rb,5.7813e+01_rb,7.4307e+01_rb,9.9092e+01_rb,1.2384e+02_rb, &
+     &1.4863e+02_rb,1.7339e+02_rb,1.9818e+02_rb/)
+      kao(:, 1,13,16) = (/ &
+     &7.8782e+01_rb,6.8941e+01_rb,5.9088e+01_rb,6.5861e+01_rb,8.6369e+01_rb,1.0796e+02_rb, &
+     &1.2954e+02_rb,1.5113e+02_rb,1.7274e+02_rb/)
+      kao(:, 2,13,16) = (/ &
+     &8.1731e+01_rb,7.1509e+01_rb,6.1634e+01_rb,7.1635e+01_rb,9.4482e+01_rb,1.1810e+02_rb, &
+     &1.4170e+02_rb,1.6534e+02_rb,1.8896e+02_rb/)
+      kao(:, 3,13,16) = (/ &
+     &8.5240e+01_rb,7.4588e+01_rb,6.4915e+01_rb,7.6648e+01_rb,1.0154e+02_rb,1.2693e+02_rb, &
+     &1.5232e+02_rb,1.7766e+02_rb,2.0308e+02_rb/)
+      kao(:, 4,13,16) = (/ &
+     &8.8622e+01_rb,7.7543e+01_rb,6.7967e+01_rb,8.0867e+01_rb,1.0759e+02_rb,1.3449e+02_rb, &
+     &1.6139e+02_rb,1.8828e+02_rb,2.1519e+02_rb/)
+      kao(:, 5,13,16) = (/ &
+     &9.1737e+01_rb,8.0288e+01_rb,7.0891e+01_rb,8.4742e+01_rb,1.1298e+02_rb,1.4117e+02_rb, &
+     &1.6939e+02_rb,1.9762e+02_rb,2.2595e+02_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &1.4739e-04_rb,3.1686e-04_rb,8.5973e-04_rb,1.9039e-03_rb,3.1820e-03_rb,3.6596e-03_rb, &
+     &3.8724e-03_rb,3.6785e-03_rb,3.7141e-03_rb,3.7646e-03_rb,4.2955e-03_rb,4.6343e-03_rb, &
+     &5.0612e-03_rb,4.0227e-03_rb,4.2966e-03_rb,4.6622e-03_rb/)
+      forrefo(2,:) = (/ &
+     &1.9397e-04_rb,3.6322e-04_rb,8.9797e-04_rb,2.1001e-03_rb,3.0307e-03_rb,3.5563e-03_rb, &
+     &3.8498e-03_rb,3.5741e-03_rb,3.5914e-03_rb,3.7658e-03_rb,3.8895e-03_rb,4.4072e-03_rb, &
+     &4.7112e-03_rb,4.2230e-03_rb,4.2666e-03_rb,4.6634e-03_rb/)
+      forrefo(3,:) = (/ &
+     &3.1506e-04_rb,7.3687e-04_rb,1.9678e-03_rb,2.5531e-03_rb,2.8345e-03_rb,2.7809e-03_rb, &
+     &2.9124e-03_rb,2.7125e-03_rb,2.6644e-03_rb,2.4907e-03_rb,2.7032e-03_rb,4.0967e-03_rb, &
+     &4.1971e-03_rb,4.4507e-03_rb,4.2293e-03_rb,4.6633e-03_rb/)
+      forrefo(4,:) = (/ &
+     &8.8196e-04_rb,2.1125e-03_rb,2.8042e-03_rb,2.8891e-03_rb,2.4362e-03_rb,1.8733e-03_rb, &
+     &1.4078e-03_rb,1.1987e-03_rb,1.2808e-03_rb,8.9050e-04_rb,9.4375e-04_rb,7.8351e-04_rb, &
+     &1.0756e-03_rb,1.6586e-03_rb,1.7511e-03_rb,4.7803e-03_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 2.37879e-02_rb, 2.10719e-02_rb, 1.86660e-02_rb, 1.65348e-02_rb, 1.46469e-02_rb, &
+     & 1.29746e-02_rb, 1.14932e-02_rb, 1.01810e-02_rb, 9.01858e-03_rb, 7.98888e-03_rb/)
+      selfrefo(:, 2) = (/ &
+     & 3.10625e-02_rb, 2.82664e-02_rb, 2.57220e-02_rb, 2.34066e-02_rb, 2.12997e-02_rb, &
+     & 1.93824e-02_rb, 1.76377e-02_rb, 1.60500e-02_rb, 1.46053e-02_rb, 1.32906e-02_rb/)
+      selfrefo(:, 3) = (/ &
+     & 5.19103e-02_rb, 4.80004e-02_rb, 4.43850e-02_rb, 4.10419e-02_rb, 3.79506e-02_rb, &
+     & 3.50922e-02_rb, 3.24491e-02_rb, 3.00050e-02_rb, 2.77450e-02_rb, 2.56553e-02_rb/)
+      selfrefo(:, 4) = (/ &
+     & 9.12444e-02_rb, 8.38675e-02_rb, 7.70870e-02_rb, 7.08547e-02_rb, 6.51263e-02_rb, &
+     & 5.98610e-02_rb, 5.50214e-02_rb, 5.05730e-02_rb, 4.64843e-02_rb, 4.27262e-02_rb/)
+      selfrefo(:, 5) = (/ &
+     & 1.11323e-01_rb, 1.04217e-01_rb, 9.75650e-02_rb, 9.13376e-02_rb, 8.55076e-02_rb, &
+     & 8.00498e-02_rb, 7.49403e-02_rb, 7.01570e-02_rb, 6.56790e-02_rb, 6.14868e-02_rb/)
+      selfrefo(:, 6) = (/ &
+     & 1.25301e-01_rb, 1.16877e-01_rb, 1.09020e-01_rb, 1.01691e-01_rb, 9.48543e-02_rb, &
+     & 8.84774e-02_rb, 8.25293e-02_rb, 7.69810e-02_rb, 7.18057e-02_rb, 6.69784e-02_rb/)
+      selfrefo(:, 7) = (/ &
+     & 1.34063e-01_rb, 1.24662e-01_rb, 1.15920e-01_rb, 1.07791e-01_rb, 1.00232e-01_rb, &
+     & 9.32035e-02_rb, 8.66676e-02_rb, 8.05900e-02_rb, 7.49386e-02_rb, 6.96836e-02_rb/)
+      selfrefo(:, 8) = (/ &
+     & 1.26997e-01_rb, 1.18306e-01_rb, 1.10210e-01_rb, 1.02668e-01_rb, 9.56417e-02_rb, &
+     & 8.90964e-02_rb, 8.29991e-02_rb, 7.73190e-02_rb, 7.20276e-02_rb, 6.70984e-02_rb/)
+      selfrefo(:, 9) = (/ &
+     & 1.28823e-01_rb, 1.20235e-01_rb, 1.12220e-01_rb, 1.04739e-01_rb, 9.77569e-02_rb, &
+     & 9.12402e-02_rb, 8.51579e-02_rb, 7.94810e-02_rb, 7.41826e-02_rb, 6.92374e-02_rb/)
+      selfrefo(:,10) = (/ &
+     & 1.35802e-01_rb, 1.25981e-01_rb, 1.16870e-01_rb, 1.08418e-01_rb, 1.00577e-01_rb, &
+     & 9.33034e-02_rb, 8.65557e-02_rb, 8.02960e-02_rb, 7.44890e-02_rb, 6.91020e-02_rb/)
+      selfrefo(:,11) = (/ &
+     & 1.35475e-01_rb, 1.27572e-01_rb, 1.20130e-01_rb, 1.13122e-01_rb, 1.06523e-01_rb, &
+     & 1.00309e-01_rb, 9.44573e-02_rb, 8.89470e-02_rb, 8.37582e-02_rb, 7.88721e-02_rb/)
+      selfrefo(:,12) = (/ &
+     & 1.51195e-01_rb, 1.41159e-01_rb, 1.31790e-01_rb, 1.23043e-01_rb, 1.14876e-01_rb, &
+     & 1.07251e-01_rb, 1.00132e-01_rb, 9.34860e-02_rb, 8.72809e-02_rb, 8.14877e-02_rb/)
+      selfrefo(:,13) = (/ &
+     & 1.57538e-01_rb, 1.47974e-01_rb, 1.38990e-01_rb, 1.30552e-01_rb, 1.22626e-01_rb, &
+     & 1.15181e-01_rb, 1.08188e-01_rb, 1.01620e-01_rb, 9.54505e-02_rb, 8.96556e-02_rb/)
+      selfrefo(:,14) = (/ &
+     & 1.53567e-01_rb, 1.41564e-01_rb, 1.30500e-01_rb, 1.20300e-01_rb, 1.10898e-01_rb, &
+     & 1.02231e-01_rb, 9.42406e-02_rb, 8.68750e-02_rb, 8.00851e-02_rb, 7.38259e-02_rb/)
+      selfrefo(:,15) = (/ &
+     & 1.53687e-01_rb, 1.42981e-01_rb, 1.33020e-01_rb, 1.23753e-01_rb, 1.15132e-01_rb, &
+     & 1.07112e-01_rb, 9.96500e-02_rb, 9.27080e-02_rb, 8.62496e-02_rb, 8.02412e-02_rb/)
+      selfrefo(:,16) = (/ &
+     & 1.65129e-01_rb, 1.53285e-01_rb, 1.42290e-01_rb, 1.32084e-01_rb, 1.22610e-01_rb, &
+     & 1.13815e-01_rb, 1.05651e-01_rb, 9.80730e-02_rb, 9.10384e-02_rb, 8.45083e-02_rb/)
+
+      end subroutine lw_kgb12
+
+! **************************************************************************
+      subroutine lw_kgb13
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg13, only : fracrefao, fracrefbo, kao, kao_mco2, kao_mco, &
+                            kbo_mo3, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P=473.4280 mb, T = 259.83 K      
+      fracrefao(:, 1) = (/ &
+     &  1.7534e-01_rb,1.7394e-01_rb,1.6089e-01_rb,1.3782e-01_rb,1.0696e-01_rb,8.5853e-02_rb, &
+     &  6.6548e-02_rb,4.9053e-02_rb,3.2064e-02_rb,3.4820e-03_rb,2.8763e-03_rb,2.2204e-03_rb, &
+     &  1.5612e-03_rb,9.8572e-04_rb,3.6853e-04_rb,5.1612e-05_rb/)
+      fracrefao(:, 2) = (/ &
+     &  1.7489e-01_rb,1.7309e-01_rb,1.5981e-01_rb,1.3782e-01_rb,1.0797e-01_rb,8.6367e-02_rb, &
+     &  6.7042e-02_rb,4.9257e-02_rb,3.2207e-02_rb,3.4820e-03_rb,2.8767e-03_rb,2.2203e-03_rb, &
+     &  1.5613e-03_rb,9.8571e-04_rb,3.6853e-04_rb,5.1612e-05_rb/)
+      fracrefao(:, 3) = (/ &
+     &  1.7459e-01_rb,1.7259e-01_rb,1.5948e-01_rb,1.3694e-01_rb,1.0815e-01_rb,8.7376e-02_rb, &
+     &  6.7339e-02_rb,4.9541e-02_rb,3.2333e-02_rb,3.5019e-03_rb,2.8958e-03_rb,2.2527e-03_rb, &
+     &  1.6099e-03_rb,9.8574e-04_rb,3.6853e-04_rb,5.1612e-05_rb/)
+      fracrefao(:, 4) = (/ &
+     &  1.7391e-01_rb,1.7244e-01_rb,1.5921e-01_rb,1.3644e-01_rb,1.0787e-01_rb,8.7776e-02_rb, &
+     &  6.8361e-02_rb,4.9628e-02_rb,3.2578e-02_rb,3.5117e-03_rb,2.9064e-03_rb,2.2571e-03_rb, &
+     &  1.6887e-03_rb,1.0045e-03_rb,3.6853e-04_rb,5.1612e-05_rb/)
+      fracrefao(:, 5) = (/ &
+     &  1.7338e-01_rb,1.7157e-01_rb,1.5957e-01_rb,1.3571e-01_rb,1.0773e-01_rb,8.7966e-02_rb, &
+     &  6.9000e-02_rb,5.0300e-02_rb,3.2813e-02_rb,3.5470e-03_rb,2.9425e-03_rb,2.2552e-03_rb, &
+     &  1.7038e-03_rb,1.1025e-03_rb,3.6853e-04_rb,5.1612e-05_rb/)
+      fracrefao(:, 6) = (/ &
+     &  1.7230e-01_rb,1.7082e-01_rb,1.5917e-01_rb,1.3562e-01_rb,1.0806e-01_rb,8.7635e-02_rb, &
+     &  6.9815e-02_rb,5.1155e-02_rb,3.3139e-02_rb,3.6264e-03_rb,2.9436e-03_rb,2.3417e-03_rb, &
+     &  1.7731e-03_rb,1.1156e-03_rb,4.4533e-04_rb,5.1612e-05_rb/)
+      fracrefao(:, 7) = (/ &
+     &  1.7073e-01_rb,1.6961e-01_rb,1.5844e-01_rb,1.3594e-01_rb,1.0821e-01_rb,8.7791e-02_rb, &
+     &  7.0502e-02_rb,5.1904e-02_rb,3.4107e-02_rb,3.5888e-03_rb,2.9574e-03_rb,2.5851e-03_rb, &
+     &  1.9127e-03_rb,1.1537e-03_rb,4.7789e-04_rb,1.0016e-04_rb/)
+      fracrefao(:, 8) = (/ &
+     &  1.6700e-01_rb,1.6848e-01_rb,1.5628e-01_rb,1.3448e-01_rb,1.1011e-01_rb,8.9016e-02_rb, &
+     &  7.1973e-02_rb,5.2798e-02_rb,3.5650e-02_rb,3.8534e-03_rb,3.4142e-03_rb,2.7799e-03_rb, &
+     &  2.1288e-03_rb,1.3043e-03_rb,6.2858e-04_rb,1.0016e-04_rb/)
+      fracrefao(:, 9) = (/ &
+     &  1.6338e-01_rb,1.5565e-01_rb,1.4470e-01_rb,1.3500e-01_rb,1.1909e-01_rb,9.8312e-02_rb, &
+     &  7.9023e-02_rb,5.5728e-02_rb,3.6831e-02_rb,3.6569e-03_rb,3.0552e-03_rb,2.3431e-03_rb, &
+     &  1.7088e-03_rb,1.1082e-03_rb,3.6829e-04_rb,5.1612e-05_rb/)
+
+! Planck fraction mapping level : P=4.758820 mb, T = 250.85 K
+      fracrefbo(:) = (/ &
+     &  1.5411e-01_rb,1.3573e-01_rb,1.2527e-01_rb,1.2698e-01_rb,1.2394e-01_rb,1.0876e-01_rb, &
+     &  8.9906e-02_rb,6.9551e-02_rb,4.8240e-02_rb,5.2434e-03_rb,4.3630e-03_rb,3.4262e-03_rb, &
+     &  2.5124e-03_rb,1.5479e-03_rb,3.7294e-04_rb,5.1050e-05_rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1, 1) = (/ &
+     &6.4065e-07_rb,1.0419e-05_rb,1.7041e-05_rb,2.3341e-05_rb,2.9288e-05_rb,3.6860e-05_rb, &
+     &5.2289e-05_rb,7.6369e-05_rb,2.2034e-05_rb/)
+      kao(:, 2, 1, 1) = (/ &
+     &7.4425e-07_rb,1.2994e-05_rb,2.1634e-05_rb,2.9437e-05_rb,3.6128e-05_rb,4.4577e-05_rb, &
+     &5.5507e-05_rb,7.3010e-05_rb,3.0368e-05_rb/)
+      kao(:, 3, 1, 1) = (/ &
+     &9.1477e-07_rb,1.6195e-05_rb,2.7037e-05_rb,3.6851e-05_rb,4.4956e-05_rb,5.3696e-05_rb, &
+     &6.5423e-05_rb,7.7959e-05_rb,3.9940e-05_rb/)
+      kao(:, 4, 1, 1) = (/ &
+     &1.0920e-06_rb,2.0021e-05_rb,3.3475e-05_rb,4.5528e-05_rb,5.5351e-05_rb,6.4790e-05_rb, &
+     &7.8460e-05_rb,9.0393e-05_rb,5.1295e-05_rb/)
+      kao(:, 5, 1, 1) = (/ &
+     &1.3489e-06_rb,2.4363e-05_rb,4.1025e-05_rb,5.5638e-05_rb,6.7646e-05_rb,7.8828e-05_rb, &
+     &9.2175e-05_rb,1.0262e-04_rb,6.4740e-05_rb/)
+      kao(:, 1, 2, 1) = (/ &
+     &9.4474e-07_rb,9.5739e-06_rb,1.4537e-05_rb,1.9319e-05_rb,2.3955e-05_rb,2.8125e-05_rb, &
+     &3.4867e-05_rb,5.4010e-05_rb,1.9403e-05_rb/)
+      kao(:, 2, 2, 1) = (/ &
+     &1.1323e-06_rb,1.1739e-05_rb,1.8325e-05_rb,2.4542e-05_rb,3.0201e-05_rb,3.5031e-05_rb, &
+     &4.2528e-05_rb,5.9167e-05_rb,2.5395e-05_rb/)
+      kao(:, 3, 2, 1) = (/ &
+     &1.3451e-06_rb,1.4450e-05_rb,2.3075e-05_rb,3.0847e-05_rb,3.7507e-05_rb,4.3224e-05_rb, &
+     &5.0526e-05_rb,6.6079e-05_rb,3.2769e-05_rb/)
+      kao(:, 4, 2, 1) = (/ &
+     &1.6171e-06_rb,1.7819e-05_rb,2.8678e-05_rb,3.8333e-05_rb,4.6715e-05_rb,5.3613e-05_rb, &
+     &6.0668e-05_rb,7.1518e-05_rb,4.1642e-05_rb/)
+      kao(:, 5, 2, 1) = (/ &
+     &1.9441e-06_rb,2.1692e-05_rb,3.5243e-05_rb,4.7173e-05_rb,5.7398e-05_rb,6.5939e-05_rb, &
+     &7.3567e-05_rb,8.2891e-05_rb,5.2140e-05_rb/)
+      kao(:, 1, 3, 1) = (/ &
+     &1.9997e-06_rb,1.0333e-05_rb,1.4351e-05_rb,1.7071e-05_rb,1.9818e-05_rb,2.2671e-05_rb, &
+     &2.5587e-05_rb,3.3080e-05_rb,2.1440e-05_rb/)
+      kao(:, 2, 3, 1) = (/ &
+     &2.2813e-06_rb,1.2534e-05_rb,1.7541e-05_rb,2.1448e-05_rb,2.5145e-05_rb,2.8879e-05_rb, &
+     &3.1889e-05_rb,3.7831e-05_rb,2.6738e-05_rb/)
+      kao(:, 3, 3, 1) = (/ &
+     &2.7401e-06_rb,1.5206e-05_rb,2.1444e-05_rb,2.7039e-05_rb,3.1929e-05_rb,3.6455e-05_rb, &
+     &3.9620e-05_rb,4.6057e-05_rb,3.1366e-05_rb/)
+      kao(:, 4, 3, 1) = (/ &
+     &3.2871e-06_rb,1.8031e-05_rb,2.6416e-05_rb,3.3815e-05_rb,3.9999e-05_rb,4.5410e-05_rb, &
+     &4.9342e-05_rb,5.4203e-05_rb,3.7064e-05_rb/)
+      kao(:, 5, 3, 1) = (/ &
+     &3.8869e-06_rb,2.1455e-05_rb,3.2368e-05_rb,4.1756e-05_rb,4.9581e-05_rb,5.6093e-05_rb, &
+     &6.1027e-05_rb,6.5117e-05_rb,4.4920e-05_rb/)
+      kao(:, 1, 4, 1) = (/ &
+     &4.3610e-06_rb,1.3316e-05_rb,1.6242e-05_rb,1.8257e-05_rb,1.9350e-05_rb,2.0037e-05_rb, &
+     &2.0833e-05_rb,2.3040e-05_rb,2.2366e-05_rb/)
+      kao(:, 2, 4, 1) = (/ &
+     &5.0348e-06_rb,1.5693e-05_rb,1.9649e-05_rb,2.2560e-05_rb,2.3970e-05_rb,2.5222e-05_rb, &
+     &2.6081e-05_rb,2.7399e-05_rb,2.7623e-05_rb/)
+      kao(:, 3, 4, 1) = (/ &
+     &5.7893e-06_rb,1.8717e-05_rb,2.3542e-05_rb,2.7248e-05_rb,2.9677e-05_rb,3.1779e-05_rb, &
+     &3.2973e-05_rb,3.3876e-05_rb,3.4347e-05_rb/)
+      kao(:, 4, 4, 1) = (/ &
+     &6.7700e-06_rb,2.2355e-05_rb,2.8015e-05_rb,3.2751e-05_rb,3.6706e-05_rb,3.9566e-05_rb, &
+     &4.1488e-05_rb,4.1986e-05_rb,4.0984e-05_rb/)
+      kao(:, 5, 4, 1) = (/ &
+     &8.0207e-06_rb,2.6505e-05_rb,3.3421e-05_rb,3.9357e-05_rb,4.5121e-05_rb,4.9003e-05_rb, &
+     &5.1776e-05_rb,5.2148e-05_rb,4.7085e-05_rb/)
+      kao(:, 1, 5, 1) = (/ &
+     &8.6602e-06_rb,1.8553e-05_rb,2.0839e-05_rb,2.1788e-05_rb,2.1544e-05_rb,2.1077e-05_rb, &
+     &1.9473e-05_rb,1.8495e-05_rb,2.3671e-05_rb/)
+      kao(:, 2, 5, 1) = (/ &
+     &9.9810e-06_rb,2.2031e-05_rb,2.4930e-05_rb,2.6247e-05_rb,2.6462e-05_rb,2.6137e-05_rb, &
+     &2.4415e-05_rb,2.2553e-05_rb,2.8177e-05_rb/)
+      kao(:, 3, 5, 1) = (/ &
+     &1.1619e-05_rb,2.6356e-05_rb,2.9247e-05_rb,3.1562e-05_rb,3.1911e-05_rb,3.1801e-05_rb, &
+     &3.0166e-05_rb,2.7978e-05_rb,3.2481e-05_rb/)
+      kao(:, 4, 5, 1) = (/ &
+     &1.3216e-05_rb,3.1104e-05_rb,3.4868e-05_rb,3.7332e-05_rb,3.8497e-05_rb,3.8279e-05_rb, &
+     &3.7615e-05_rb,3.4834e-05_rb,3.8514e-05_rb/)
+      kao(:, 5, 5, 1) = (/ &
+     &1.5414e-05_rb,3.5706e-05_rb,4.1155e-05_rb,4.4051e-05_rb,4.6023e-05_rb,4.6762e-05_rb, &
+     &4.6430e-05_rb,4.3490e-05_rb,4.6117e-05_rb/)
+      kao(:, 1, 6, 1) = (/ &
+     &1.6458e-05_rb,2.5684e-05_rb,2.8012e-05_rb,2.7844e-05_rb,2.6244e-05_rb,2.4237e-05_rb, &
+     &2.0656e-05_rb,1.6798e-05_rb,2.3796e-05_rb/)
+      kao(:, 2, 6, 1) = (/ &
+     &1.8595e-05_rb,3.0385e-05_rb,3.3443e-05_rb,3.3768e-05_rb,3.2056e-05_rb,2.9483e-05_rb, &
+     &2.5851e-05_rb,2.0866e-05_rb,2.8662e-05_rb/)
+      kao(:, 3, 6, 1) = (/ &
+     &2.1348e-05_rb,3.6540e-05_rb,3.9601e-05_rb,3.9640e-05_rb,3.8210e-05_rb,3.5898e-05_rb, &
+     &3.1968e-05_rb,2.5765e-05_rb,3.3968e-05_rb/)
+      kao(:, 4, 6, 1) = (/ &
+     &2.4741e-05_rb,4.2510e-05_rb,4.6979e-05_rb,4.6425e-05_rb,4.6165e-05_rb,4.2824e-05_rb, &
+     &3.8814e-05_rb,3.1863e-05_rb,3.8072e-05_rb/)
+      kao(:, 5, 6, 1) = (/ &
+     &2.8527e-05_rb,5.0183e-05_rb,5.5064e-05_rb,5.5234e-05_rb,5.4182e-05_rb,5.0966e-05_rb, &
+     &4.6758e-05_rb,3.9447e-05_rb,4.4935e-05_rb/)
+      kao(:, 1, 7, 1) = (/ &
+     &3.2476e-05_rb,3.8679e-05_rb,3.9032e-05_rb,3.7741e-05_rb,3.4552e-05_rb,2.9807e-05_rb, &
+     &2.4164e-05_rb,1.7294e-05_rb,2.4102e-05_rb/)
+      kao(:, 2, 7, 1) = (/ &
+     &3.6570e-05_rb,4.6320e-05_rb,4.7537e-05_rb,4.6067e-05_rb,4.2268e-05_rb,3.6503e-05_rb, &
+     &3.0476e-05_rb,2.2134e-05_rb,2.9448e-05_rb/)
+      kao(:, 3, 7, 1) = (/ &
+     &4.1124e-05_rb,5.4270e-05_rb,5.7210e-05_rb,5.5312e-05_rb,5.2106e-05_rb,4.5231e-05_rb, &
+     &3.7737e-05_rb,2.7811e-05_rb,3.4668e-05_rb/)
+      kao(:, 4, 7, 1) = (/ &
+     &4.8133e-05_rb,6.4794e-05_rb,6.7628e-05_rb,6.6254e-05_rb,6.2299e-05_rb,5.4379e-05_rb, &
+     &4.5931e-05_rb,3.4327e-05_rb,4.1743e-05_rb/)
+      kao(:, 5, 7, 1) = (/ &
+     &5.5532e-05_rb,7.7694e-05_rb,8.0423e-05_rb,7.9418e-05_rb,7.2354e-05_rb,6.4221e-05_rb, &
+     &5.4806e-05_rb,4.1684e-05_rb,4.8759e-05_rb/)
+      kao(:, 1, 8, 1) = (/ &
+     &7.4902e-05_rb,7.7106e-05_rb,7.0826e-05_rb,6.4010e-05_rb,5.5968e-05_rb,4.6986e-05_rb, &
+     &3.6409e-05_rb,2.2524e-05_rb,2.8079e-05_rb/)
+      kao(:, 2, 8, 1) = (/ &
+     &8.5067e-05_rb,8.8842e-05_rb,8.3769e-05_rb,7.6787e-05_rb,6.8134e-05_rb,5.7821e-05_rb, &
+     &4.4557e-05_rb,2.8824e-05_rb,3.6133e-05_rb/)
+      kao(:, 3, 8, 1) = (/ &
+     &9.7879e-05_rb,1.0460e-04_rb,9.9884e-05_rb,9.2458e-05_rb,8.3229e-05_rb,7.0097e-05_rb, &
+     &5.5355e-05_rb,3.6496e-05_rb,4.1979e-05_rb/)
+      kao(:, 4, 8, 1) = (/ &
+     &1.1321e-04_rb,1.2375e-04_rb,1.2003e-04_rb,1.1241e-04_rb,1.0088e-04_rb,8.6080e-05_rb, &
+     &6.8531e-05_rb,4.5034e-05_rb,5.0526e-05_rb/)
+      kao(:, 5, 8, 1) = (/ &
+     &1.3142e-04_rb,1.5020e-04_rb,1.4626e-04_rb,1.3653e-04_rb,1.2235e-04_rb,1.0518e-04_rb, &
+     &8.2469e-05_rb,5.5412e-05_rb,6.0484e-05_rb/)
+      kao(:, 1, 9, 1) = (/ &
+     &3.0190e-04_rb,2.8195e-04_rb,2.5208e-04_rb,2.1662e-04_rb,1.7929e-04_rb,1.4025e-04_rb, &
+     &1.0049e-04_rb,5.8291e-05_rb,3.9381e-05_rb/)
+      kao(:, 2, 9, 1) = (/ &
+     &3.5007e-04_rb,3.2966e-04_rb,2.9418e-04_rb,2.5482e-04_rb,2.1206e-04_rb,1.6775e-04_rb, &
+     &1.2208e-04_rb,7.2618e-05_rb,5.1006e-05_rb/)
+      kao(:, 3, 9, 1) = (/ &
+     &4.1355e-04_rb,3.9069e-04_rb,3.5043e-04_rb,3.0530e-04_rb,2.5611e-04_rb,2.0488e-04_rb, &
+     &1.4964e-04_rb,8.8870e-05_rb,6.5960e-05_rb/)
+      kao(:, 4, 9, 1) = (/ &
+     &4.9093e-04_rb,4.6398e-04_rb,4.1726e-04_rb,3.6373e-04_rb,3.0710e-04_rb,2.4775e-04_rb, &
+     &1.8258e-04_rb,1.0881e-04_rb,8.2307e-05_rb/)
+      kao(:, 5, 9, 1) = (/ &
+     &5.8022e-04_rb,5.5027e-04_rb,5.0137e-04_rb,4.3986e-04_rb,3.7225e-04_rb,2.9865e-04_rb, &
+     &2.2079e-04_rb,1.3406e-04_rb,9.5285e-05_rb/)
+      kao(:, 1,10, 1) = (/ &
+     &1.2883e-03_rb,1.1451e-03_rb,9.9720e-04_rb,8.4603e-04_rb,6.8855e-04_rb,5.2856e-04_rb, &
+     &3.6226e-04_rb,1.9198e-04_rb,7.4637e-05_rb/)
+      kao(:, 2,10, 1) = (/ &
+     &1.5104e-03_rb,1.3471e-03_rb,1.1771e-03_rb,9.9916e-04_rb,8.1528e-04_rb,6.2425e-04_rb, &
+     &4.3021e-04_rb,2.3018e-04_rb,8.8724e-05_rb/)
+      kao(:, 3,10, 1) = (/ &
+     &1.8167e-03_rb,1.6260e-03_rb,1.4233e-03_rb,1.2086e-03_rb,9.8644e-04_rb,7.6173e-04_rb, &
+     &5.2737e-04_rb,2.8610e-04_rb,1.0717e-04_rb/)
+      kao(:, 4,10, 1) = (/ &
+     &2.2177e-03_rb,1.9922e-03_rb,1.7424e-03_rb,1.4817e-03_rb,1.2127e-03_rb,9.3691e-04_rb, &
+     &6.5292e-04_rb,3.5708e-04_rb,1.2411e-04_rb/)
+      kao(:, 5,10, 1) = (/ &
+     &2.7210e-03_rb,2.4399e-03_rb,2.1395e-03_rb,1.8137e-03_rb,1.4859e-03_rb,1.1551e-03_rb, &
+     &8.0975e-04_rb,4.4504e-04_rb,1.4851e-04_rb/)
+      kao(:, 1,11, 1) = (/ &
+     &1.9516e-03_rb,1.7255e-03_rb,1.4956e-03_rb,1.2644e-03_rb,1.0251e-03_rb,7.8257e-04_rb, &
+     &5.3359e-04_rb,2.7877e-04_rb,7.8095e-05_rb/)
+      kao(:, 2,11, 1) = (/ &
+     &2.3604e-03_rb,2.0924e-03_rb,1.8171e-03_rb,1.5363e-03_rb,1.2459e-03_rb,9.5100e-04_rb, &
+     &6.5089e-04_rb,3.4345e-04_rb,9.5842e-05_rb/)
+      kao(:, 3,11, 1) = (/ &
+     &2.8804e-03_rb,2.5577e-03_rb,2.2239e-03_rb,1.8797e-03_rb,1.5233e-03_rb,1.1642e-03_rb, &
+     &8.0020e-04_rb,4.2543e-04_rb,1.1860e-04_rb/)
+      kao(:, 4,11, 1) = (/ &
+     &3.5705e-03_rb,3.1731e-03_rb,2.7557e-03_rb,2.3268e-03_rb,1.8893e-03_rb,1.4468e-03_rb, &
+     &9.9612e-04_rb,5.3416e-04_rb,1.4487e-04_rb/)
+      kao(:, 5,11, 1) = (/ &
+     &4.4488e-03_rb,3.9532e-03_rb,3.4428e-03_rb,2.9093e-03_rb,2.3658e-03_rb,1.8156e-03_rb, &
+     &1.2567e-03_rb,6.7979e-04_rb,1.7247e-04_rb/)
+      kao(:, 1,12, 1) = (/ &
+     &2.1650e-03_rb,1.9116e-03_rb,1.6550e-03_rb,1.3963e-03_rb,1.1297e-03_rb,8.5899e-04_rb, &
+     &5.8509e-04_rb,3.0490e-04_rb,7.1706e-05_rb/)
+      kao(:, 2,12, 1) = (/ &
+     &2.6267e-03_rb,2.3248e-03_rb,2.0167e-03_rb,1.7021e-03_rb,1.3758e-03_rb,1.0485e-03_rb, &
+     &7.1504e-04_rb,3.7456e-04_rb,8.9235e-05_rb/)
+      kao(:, 3,12, 1) = (/ &
+     &3.2534e-03_rb,2.8836e-03_rb,2.5027e-03_rb,2.1051e-03_rb,1.7048e-03_rb,1.2988e-03_rb, &
+     &8.8817e-04_rb,4.6846e-04_rb,1.1111e-04_rb/)
+      kao(:, 4,12, 1) = (/ &
+     &4.0663e-03_rb,3.6075e-03_rb,3.1250e-03_rb,2.6309e-03_rb,2.1307e-03_rb,1.6269e-03_rb, &
+     &1.1159e-03_rb,5.9423e-04_rb,1.3807e-04_rb/)
+      kao(:, 5,12, 1) = (/ &
+     &5.1489e-03_rb,4.5663e-03_rb,3.9639e-03_rb,3.3363e-03_rb,2.7011e-03_rb,2.0639e-03_rb, &
+     &1.4193e-03_rb,7.5878e-04_rb,1.6511e-04_rb/)
+      kao(:, 1,13, 1) = (/ &
+     &1.8892e-03_rb,1.6706e-03_rb,1.4468e-03_rb,1.2178e-03_rb,9.8369e-04_rb,7.4837e-04_rb, &
+     &5.0829e-04_rb,2.6445e-04_rb,6.0347e-05_rb/)
+      kao(:, 2,13, 1) = (/ &
+     &2.3493e-03_rb,2.0800e-03_rb,1.8039e-03_rb,1.5176e-03_rb,1.2269e-03_rb,9.3478e-04_rb, &
+     &6.3614e-04_rb,3.3311e-04_rb,7.4952e-05_rb/)
+      kao(:, 3,13, 1) = (/ &
+     &2.9367e-03_rb,2.6050e-03_rb,2.2571e-03_rb,1.8958e-03_rb,1.5337e-03_rb,1.1694e-03_rb, &
+     &7.9916e-04_rb,4.2184e-04_rb,9.2442e-05_rb/)
+      kao(:, 4,13, 1) = (/ &
+     &3.6657e-03_rb,3.2513e-03_rb,2.8158e-03_rb,2.3704e-03_rb,1.9186e-03_rb,1.4653e-03_rb, &
+     &1.0024e-03_rb,5.3341e-04_rb,1.1484e-04_rb/)
+      kao(:, 5,13, 1) = (/ &
+     &4.6760e-03_rb,4.1516e-03_rb,3.5983e-03_rb,3.0289e-03_rb,2.4503e-03_rb,1.8734e-03_rb, &
+     &1.2888e-03_rb,6.8680e-04_rb,1.3777e-04_rb/)
+      kao(:, 1, 1, 2) = (/ &
+     &1.8748e-06_rb,2.5986e-05_rb,3.9140e-05_rb,5.0515e-05_rb,6.0453e-05_rb,7.0222e-05_rb, &
+     &9.2153e-05_rb,1.1527e-04_rb,4.9863e-05_rb/)
+      kao(:, 2, 1, 2) = (/ &
+     &2.2195e-06_rb,3.2877e-05_rb,5.0201e-05_rb,6.4757e-05_rb,7.7459e-05_rb,8.9731e-05_rb, &
+     &1.0523e-04_rb,1.3275e-04_rb,6.4946e-05_rb/)
+      kao(:, 3, 1, 2) = (/ &
+     &2.6699e-06_rb,4.0948e-05_rb,6.3539e-05_rb,8.1241e-05_rb,9.7151e-05_rb,1.1092e-04_rb, &
+     &1.1761e-04_rb,1.3825e-04_rb,8.4658e-05_rb/)
+      kao(:, 4, 1, 2) = (/ &
+     &3.1333e-06_rb,5.0568e-05_rb,7.8106e-05_rb,9.9691e-05_rb,1.1981e-04_rb,1.3549e-04_rb, &
+     &1.3924e-04_rb,1.5344e-04_rb,1.0884e-04_rb/)
+      kao(:, 5, 1, 2) = (/ &
+     &3.7302e-06_rb,6.1696e-05_rb,9.4521e-05_rb,1.2091e-04_rb,1.4534e-04_rb,1.6166e-04_rb, &
+     &1.6745e-04_rb,1.7689e-04_rb,1.3808e-04_rb/)
+      kao(:, 1, 2, 2) = (/ &
+     &2.7303e-06_rb,2.4541e-05_rb,3.5763e-05_rb,4.4104e-05_rb,5.1595e-05_rb,5.8966e-05_rb, &
+     &6.8130e-05_rb,1.0200e-04_rb,3.9223e-05_rb/)
+      kao(:, 2, 2, 2) = (/ &
+     &3.2091e-06_rb,3.1379e-05_rb,4.5745e-05_rb,5.7229e-05_rb,6.6576e-05_rb,7.4659e-05_rb, &
+     &8.1615e-05_rb,9.9977e-05_rb,5.3367e-05_rb/)
+      kao(:, 3, 2, 2) = (/ &
+     &3.8233e-06_rb,3.9294e-05_rb,5.7741e-05_rb,7.2569e-05_rb,8.4616e-05_rb,9.4873e-05_rb, &
+     &1.0240e-04_rb,1.1173e-04_rb,6.9904e-05_rb/)
+      kao(:, 4, 2, 2) = (/ &
+     &4.4247e-06_rb,4.8330e-05_rb,7.1550e-05_rb,9.0142e-05_rb,1.0471e-04_rb,1.1736e-04_rb, &
+     &1.2542e-04_rb,1.2602e-04_rb,8.9761e-05_rb/)
+      kao(:, 5, 2, 2) = (/ &
+     &5.2245e-06_rb,5.9597e-05_rb,8.7482e-05_rb,1.0983e-04_rb,1.2772e-04_rb,1.4263e-04_rb, &
+     &1.4957e-04_rb,1.4619e-04_rb,1.1276e-04_rb/)
+      kao(:, 1, 3, 2) = (/ &
+     &5.2515e-06_rb,2.5764e-05_rb,3.5421e-05_rb,4.2053e-05_rb,4.7449e-05_rb,5.0608e-05_rb, &
+     &5.3790e-05_rb,6.3623e-05_rb,3.2707e-05_rb/)
+      kao(:, 2, 3, 2) = (/ &
+     &6.1812e-06_rb,3.3267e-05_rb,4.5617e-05_rb,5.4363e-05_rb,6.1462e-05_rb,6.5644e-05_rb, &
+     &6.8603e-05_rb,7.2538e-05_rb,4.2974e-05_rb/)
+      kao(:, 3, 3, 2) = (/ &
+     &7.0789e-06_rb,4.1750e-05_rb,5.7967e-05_rb,6.9149e-05_rb,7.8026e-05_rb,8.4324e-05_rb, &
+     &8.7723e-05_rb,8.7036e-05_rb,5.7402e-05_rb/)
+      kao(:, 4, 3, 2) = (/ &
+     &8.1019e-06_rb,5.2243e-05_rb,7.2254e-05_rb,8.6560e-05_rb,9.8380e-05_rb,1.0586e-04_rb, &
+     &1.1006e-04_rb,1.0834e-04_rb,7.4594e-05_rb/)
+      kao(:, 5, 3, 2) = (/ &
+     &9.5928e-06_rb,6.4752e-05_rb,8.9095e-05_rb,1.0726e-04_rb,1.2114e-04_rb,1.3016e-04_rb, &
+     &1.3551e-04_rb,1.3048e-04_rb,9.3901e-05_rb/)
+      kao(:, 1, 4, 2) = (/ &
+     &1.1020e-05_rb,2.8494e-05_rb,3.6932e-05_rb,4.2975e-05_rb,4.6074e-05_rb,4.6953e-05_rb, &
+     &4.6313e-05_rb,4.4542e-05_rb,3.2970e-05_rb/)
+      kao(:, 2, 4, 2) = (/ &
+     &1.2562e-05_rb,3.7065e-05_rb,4.7812e-05_rb,5.4915e-05_rb,5.9599e-05_rb,6.1605e-05_rb, &
+     &6.1355e-05_rb,5.8223e-05_rb,3.9379e-05_rb/)
+      kao(:, 3, 4, 2) = (/ &
+     &1.4576e-05_rb,4.7351e-05_rb,6.1614e-05_rb,7.0211e-05_rb,7.6184e-05_rb,7.9246e-05_rb, &
+     &7.8840e-05_rb,7.4646e-05_rb,4.5622e-05_rb/)
+      kao(:, 4, 4, 2) = (/ &
+     &1.6280e-05_rb,5.8550e-05_rb,7.7244e-05_rb,8.9750e-05_rb,9.5812e-05_rb,1.0028e-04_rb, &
+     &1.0042e-04_rb,9.4563e-05_rb,5.6157e-05_rb/)
+      kao(:, 5, 4, 2) = (/ &
+     &1.8452e-05_rb,7.1720e-05_rb,9.6110e-05_rb,1.1183e-04_rb,1.1944e-04_rb,1.2546e-04_rb, &
+     &1.2521e-04_rb,1.1758e-04_rb,7.2313e-05_rb/)
+      kao(:, 1, 5, 2) = (/ &
+     &2.1312e-05_rb,3.6806e-05_rb,4.2862e-05_rb,4.6599e-05_rb,4.7270e-05_rb,4.6274e-05_rb, &
+     &4.2916e-05_rb,3.6817e-05_rb,3.2593e-05_rb/)
+      kao(:, 2, 5, 2) = (/ &
+     &2.5202e-05_rb,4.5358e-05_rb,5.3413e-05_rb,5.8866e-05_rb,6.0628e-05_rb,5.9617e-05_rb, &
+     &5.6530e-05_rb,4.9579e-05_rb,3.9610e-05_rb/)
+      kao(:, 3, 5, 2) = (/ &
+     &2.8699e-05_rb,5.5778e-05_rb,6.8120e-05_rb,7.4417e-05_rb,7.7573e-05_rb,7.6799e-05_rb, &
+     &7.3323e-05_rb,6.4915e-05_rb,4.8072e-05_rb/)
+      kao(:, 4, 5, 2) = (/ &
+     &3.2753e-05_rb,6.7844e-05_rb,8.5625e-05_rb,9.3879e-05_rb,9.7934e-05_rb,9.8316e-05_rb, &
+     &9.3375e-05_rb,8.3569e-05_rb,5.7445e-05_rb/)
+      kao(:, 5, 5, 2) = (/ &
+     &3.6908e-05_rb,8.3612e-05_rb,1.0490e-04_rb,1.1632e-04_rb,1.2275e-04_rb,1.2328e-04_rb, &
+     &1.1667e-04_rb,1.0539e-04_rb,6.6570e-05_rb/)
+      kao(:, 1, 6, 2) = (/ &
+     &4.3241e-05_rb,5.7363e-05_rb,5.9383e-05_rb,5.9083e-05_rb,5.6687e-05_rb,5.1929e-05_rb, &
+     &4.4854e-05_rb,3.4134e-05_rb,3.3554e-05_rb/)
+      kao(:, 2, 6, 2) = (/ &
+     &4.8160e-05_rb,6.6362e-05_rb,7.1460e-05_rb,7.1908e-05_rb,6.9540e-05_rb,6.3380e-05_rb, &
+     &5.6957e-05_rb,4.4490e-05_rb,3.9435e-05_rb/)
+      kao(:, 3, 6, 2) = (/ &
+     &5.5150e-05_rb,7.8279e-05_rb,8.5897e-05_rb,8.6929e-05_rb,8.6216e-05_rb,7.9912e-05_rb, &
+     &7.1634e-05_rb,5.7727e-05_rb,4.6871e-05_rb/)
+      kao(:, 4, 6, 2) = (/ &
+     &6.2702e-05_rb,9.3878e-05_rb,1.0189e-04_rb,1.0755e-04_rb,1.0575e-04_rb,1.0053e-04_rb, &
+     &8.9365e-05_rb,7.5152e-05_rb,5.7874e-05_rb/)
+      kao(:, 5, 6, 2) = (/ &
+     &7.1646e-05_rb,1.0994e-04_rb,1.2283e-04_rb,1.3142e-04_rb,1.3048e-04_rb,1.2339e-04_rb, &
+     &1.1339e-04_rb,9.4667e-05_rb,6.9560e-05_rb/)
+      kao(:, 1, 7, 2) = (/ &
+     &9.4217e-05_rb,1.0625e-04_rb,1.0297e-04_rb,9.4341e-05_rb,8.4820e-05_rb,7.4540e-05_rb, &
+     &5.9573e-05_rb,4.0162e-05_rb,3.4032e-05_rb/)
+      kao(:, 2, 7, 2) = (/ &
+     &1.0328e-04_rb,1.1698e-04_rb,1.1273e-04_rb,1.0730e-04_rb,9.8854e-05_rb,8.8068e-05_rb, &
+     &7.1680e-05_rb,5.0363e-05_rb,4.1780e-05_rb/)
+      kao(:, 3, 7, 2) = (/ &
+     &1.1436e-04_rb,1.3466e-04_rb,1.3293e-04_rb,1.2807e-04_rb,1.1742e-04_rb,1.0440e-04_rb, &
+     &8.7142e-05_rb,6.2911e-05_rb,5.1346e-05_rb/)
+      kao(:, 4, 7, 2) = (/ &
+     &1.2805e-04_rb,1.5498e-04_rb,1.5579e-04_rb,1.5032e-04_rb,1.3953e-04_rb,1.2638e-04_rb, &
+     &1.0638e-04_rb,7.6925e-05_rb,6.1784e-05_rb/)
+      kao(:, 5, 7, 2) = (/ &
+     &1.4510e-04_rb,1.7937e-04_rb,1.8186e-04_rb,1.7514e-04_rb,1.6579e-04_rb,1.5232e-04_rb, &
+     &1.2822e-04_rb,9.5671e-05_rb,7.0048e-05_rb/)
+      kao(:, 1, 8, 2) = (/ &
+     &2.4926e-04_rb,2.4392e-04_rb,2.2297e-04_rb,1.9521e-04_rb,1.6651e-04_rb,1.3349e-04_rb, &
+     &9.8669e-05_rb,6.3201e-05_rb,3.1807e-05_rb/)
+      kao(:, 2, 8, 2) = (/ &
+     &2.7454e-04_rb,2.7755e-04_rb,2.5558e-04_rb,2.2780e-04_rb,1.9618e-04_rb,1.5908e-04_rb, &
+     &1.2121e-04_rb,7.6667e-05_rb,4.0012e-05_rb/)
+      kao(:, 3, 8, 2) = (/ &
+     &2.9508e-04_rb,3.0091e-04_rb,2.7929e-04_rb,2.5223e-04_rb,2.1930e-04_rb,1.8562e-04_rb, &
+     &1.4312e-04_rb,9.2529e-05_rb,5.6355e-05_rb/)
+      kao(:, 4, 8, 2) = (/ &
+     &3.2350e-04_rb,3.3697e-04_rb,3.1656e-04_rb,2.8676e-04_rb,2.5417e-04_rb,2.1233e-04_rb, &
+     &1.6702e-04_rb,1.1113e-04_rb,6.5692e-05_rb/)
+      kao(:, 5, 8, 2) = (/ &
+     &3.5413e-04_rb,3.7149e-04_rb,3.5724e-04_rb,3.2794e-04_rb,2.8883e-04_rb,2.4521e-04_rb, &
+     &1.9502e-04_rb,1.3265e-04_rb,7.4636e-05_rb/)
+      kao(:, 1, 9, 2) = (/ &
+     &1.1370e-03_rb,1.0245e-03_rb,9.0233e-04_rb,7.7373e-04_rb,6.3596e-04_rb,4.9782e-04_rb, &
+     &3.4706e-04_rb,1.8813e-04_rb,5.4967e-05_rb/)
+      kao(:, 2, 9, 2) = (/ &
+     &1.2549e-03_rb,1.1327e-03_rb,1.0081e-03_rb,8.6174e-04_rb,7.1233e-04_rb,5.5663e-04_rb, &
+     &3.9054e-04_rb,2.1740e-04_rb,6.5863e-05_rb/)
+      kao(:, 3, 9, 2) = (/ &
+     &1.4193e-03_rb,1.2929e-03_rb,1.1501e-03_rb,9.8954e-04_rb,8.1834e-04_rb,6.4034e-04_rb, &
+     &4.5590e-04_rb,2.5841e-04_rb,7.6782e-05_rb/)
+      kao(:, 4, 9, 2) = (/ &
+     &1.5730e-03_rb,1.4525e-03_rb,1.2939e-03_rb,1.1191e-03_rb,9.2869e-04_rb,7.2912e-04_rb, &
+     &5.2003e-04_rb,2.9928e-04_rb,9.3109e-05_rb/)
+      kao(:, 5, 9, 2) = (/ &
+     &1.7020e-03_rb,1.5888e-03_rb,1.4187e-03_rb,1.2315e-03_rb,1.0334e-03_rb,8.2293e-04_rb, &
+     &5.9761e-04_rb,3.4411e-04_rb,1.1836e-04_rb/)
+      kao(:, 1,10, 2) = (/ &
+     &6.1528e-03_rb,5.4056e-03_rb,4.6635e-03_rb,3.9185e-03_rb,3.1663e-03_rb,2.4050e-03_rb, &
+     &1.6372e-03_rb,8.5009e-04_rb,8.0054e-05_rb/)
+      kao(:, 2,10, 2) = (/ &
+     &6.8550e-03_rb,6.0391e-03_rb,5.2246e-03_rb,4.3821e-03_rb,3.5514e-03_rb,2.7172e-03_rb, &
+     &1.8529e-03_rb,9.7224e-04_rb,1.0130e-04_rb/)
+      kao(:, 3,10, 2) = (/ &
+     &7.6163e-03_rb,6.7254e-03_rb,5.8028e-03_rb,4.8844e-03_rb,3.9710e-03_rb,3.0268e-03_rb, &
+     &2.0640e-03_rb,1.0804e-03_rb,1.3327e-04_rb/)
+      kao(:, 4,10, 2) = (/ &
+     &8.4017e-03_rb,7.4385e-03_rb,6.4324e-03_rb,5.4278e-03_rb,4.4132e-03_rb,3.3677e-03_rb, &
+     &2.3075e-03_rb,1.2226e-03_rb,1.6598e-04_rb/)
+      kao(:, 5,10, 2) = (/ &
+     &9.3911e-03_rb,8.3333e-03_rb,7.2272e-03_rb,6.1232e-03_rb,4.9837e-03_rb,3.8167e-03_rb, &
+     &2.6213e-03_rb,1.4063e-03_rb,2.0638e-04_rb/)
+      kao(:, 1,11, 2) = (/ &
+     &1.1762e-02_rb,1.0306e-02_rb,8.8593e-03_rb,7.4127e-03_rb,5.9627e-03_rb,4.5045e-03_rb, &
+     &3.0511e-03_rb,1.5666e-03_rb,8.2025e-05_rb/)
+      kao(:, 2,11, 2) = (/ &
+     &1.3012e-02_rb,1.1426e-02_rb,9.8347e-03_rb,8.2336e-03_rb,6.6323e-03_rb,5.0275e-03_rb, &
+     &3.4043e-03_rb,1.7550e-03_rb,1.0611e-04_rb/)
+      kao(:, 3,11, 2) = (/ &
+     &1.4612e-02_rb,1.2845e-02_rb,1.1070e-02_rb,9.2725e-03_rb,7.4822e-03_rb,5.6847e-03_rb, &
+     &3.8534e-03_rb,1.9989e-03_rb,1.3346e-04_rb/)
+      kao(:, 4,11, 2) = (/ &
+     &1.6251e-02_rb,1.4313e-02_rb,1.2347e-02_rb,1.0360e-02_rb,8.3777e-03_rb,6.3716e-03_rb, &
+     &4.3250e-03_rb,2.2445e-03_rb,1.6083e-04_rb/)
+      kao(:, 5,11, 2) = (/ &
+     &1.8150e-02_rb,1.6016e-02_rb,1.3813e-02_rb,1.1608e-02_rb,9.3833e-03_rb,7.1360e-03_rb, &
+     &4.8421e-03_rb,2.5233e-03_rb,2.0030e-04_rb/)
+      kao(:, 1,12, 2) = (/ &
+     &1.5059e-02_rb,1.3197e-02_rb,1.1332e-02_rb,9.4687e-03_rb,7.6107e-03_rb,5.7434e-03_rb, &
+     &3.8799e-03_rb,1.9799e-03_rb,8.0330e-05_rb/)
+      kao(:, 2,12, 2) = (/ &
+     &1.6512e-02_rb,1.4476e-02_rb,1.2442e-02_rb,1.0410e-02_rb,8.3743e-03_rb,6.3355e-03_rb, &
+     &4.2771e-03_rb,2.1952e-03_rb,9.9323e-05_rb/)
+      kao(:, 3,12, 2) = (/ &
+     &1.8685e-02_rb,1.6400e-02_rb,1.4116e-02_rb,1.1818e-02_rb,9.5219e-03_rb,7.2188e-03_rb, &
+     &4.8730e-03_rb,2.5083e-03_rb,1.2343e-04_rb/)
+      kao(:, 4,12, 2) = (/ &
+     &2.1153e-02_rb,1.8588e-02_rb,1.6002e-02_rb,1.3413e-02_rb,1.0821e-02_rb,8.2029e-03_rb, &
+     &5.5391e-03_rb,2.8500e-03_rb,1.4931e-04_rb/)
+      kao(:, 5,12, 2) = (/ &
+     &2.3737e-02_rb,2.0901e-02_rb,1.7991e-02_rb,1.5090e-02_rb,1.2172e-02_rb,9.2290e-03_rb, &
+     &6.2485e-03_rb,3.2234e-03_rb,1.9022e-04_rb/)
+      kao(:, 1,13, 2) = (/ &
+     &1.4847e-02_rb,1.3010e-02_rb,1.1175e-02_rb,9.3417e-03_rb,7.5039e-03_rb,5.6608e-03_rb, &
+     &3.8195e-03_rb,1.9483e-03_rb,7.0259e-05_rb/)
+      kao(:, 2,13, 2) = (/ &
+     &1.6739e-02_rb,1.4679e-02_rb,1.2619e-02_rb,1.0555e-02_rb,8.4903e-03_rb,6.4217e-03_rb, &
+     &4.3269e-03_rb,2.2129e-03_rb,8.5490e-05_rb/)
+      kao(:, 3,13, 2) = (/ &
+     &1.8825e-02_rb,1.6518e-02_rb,1.4211e-02_rb,1.1898e-02_rb,9.5859e-03_rb,7.2507e-03_rb, &
+     &4.8896e-03_rb,2.5047e-03_rb,1.1226e-04_rb/)
+      kao(:, 4,13, 2) = (/ &
+     &2.1292e-02_rb,1.8712e-02_rb,1.6107e-02_rb,1.3496e-02_rb,1.0877e-02_rb,8.2331e-03_rb, &
+     &5.5639e-03_rb,2.8510e-03_rb,1.4031e-04_rb/)
+      kao(:, 5,13, 2) = (/ &
+     &2.4158e-02_rb,2.1241e-02_rb,1.8299e-02_rb,1.5344e-02_rb,1.2375e-02_rb,9.3646e-03_rb, &
+     &6.3197e-03_rb,3.2533e-03_rb,1.7265e-04_rb/)
+      kao(:, 1, 1, 3) = (/ &
+     &1.0410e-05_rb,6.1962e-05_rb,8.9498e-05_rb,1.0661e-04_rb,1.2164e-04_rb,1.3377e-04_rb, &
+     &1.2941e-04_rb,1.4521e-04_rb,8.1226e-05_rb/)
+      kao(:, 2, 1, 3) = (/ &
+     &1.1876e-05_rb,7.8368e-05_rb,1.1198e-04_rb,1.3409e-04_rb,1.5187e-04_rb,1.6090e-04_rb, &
+     &1.6481e-04_rb,1.6441e-04_rb,1.1141e-04_rb/)
+      kao(:, 3, 1, 3) = (/ &
+     &1.3686e-05_rb,9.7536e-05_rb,1.3724e-04_rb,1.6641e-04_rb,1.8557e-04_rb,1.9386e-04_rb, &
+     &1.9539e-04_rb,1.8991e-04_rb,1.4967e-04_rb/)
+      kao(:, 4, 1, 3) = (/ &
+     &1.5807e-05_rb,1.1754e-04_rb,1.6722e-04_rb,2.0238e-04_rb,2.2277e-04_rb,2.3084e-04_rb, &
+     &2.3103e-04_rb,2.1679e-04_rb,1.9490e-04_rb/)
+      kao(:, 5, 1, 3) = (/ &
+     &1.8430e-05_rb,1.4041e-04_rb,2.0063e-04_rb,2.4077e-04_rb,2.6088e-04_rb,2.7081e-04_rb, &
+     &2.7088e-04_rb,2.6451e-04_rb,2.4633e-04_rb/)
+      kao(:, 1, 2, 3) = (/ &
+     &1.4574e-05_rb,6.1181e-05_rb,8.5219e-05_rb,1.0233e-04_rb,1.1097e-04_rb,1.1864e-04_rb, &
+     &1.2443e-04_rb,1.2339e-04_rb,6.7714e-05_rb/)
+      kao(:, 2, 2, 3) = (/ &
+     &1.6727e-05_rb,7.7358e-05_rb,1.0881e-04_rb,1.2844e-04_rb,1.4104e-04_rb,1.5016e-04_rb, &
+     &1.5142e-04_rb,1.4164e-04_rb,9.0996e-05_rb/)
+      kao(:, 3, 2, 3) = (/ &
+     &1.9092e-05_rb,9.6319e-05_rb,1.3467e-04_rb,1.5937e-04_rb,1.7543e-04_rb,1.8362e-04_rb, &
+     &1.8038e-04_rb,1.5924e-04_rb,1.2122e-04_rb/)
+      kao(:, 4, 2, 3) = (/ &
+     &2.2128e-05_rb,1.1862e-04_rb,1.6445e-04_rb,1.9397e-04_rb,2.1438e-04_rb,2.2054e-04_rb, &
+     &2.1448e-04_rb,2.0102e-04_rb,1.5787e-04_rb/)
+      kao(:, 5, 2, 3) = (/ &
+     &2.5953e-05_rb,1.4141e-04_rb,1.9710e-04_rb,2.3342e-04_rb,2.5581e-04_rb,2.5978e-04_rb, &
+     &2.5390e-04_rb,2.3627e-04_rb,2.0062e-04_rb/)
+      kao(:, 1, 3, 3) = (/ &
+     &2.6011e-05_rb,6.9300e-05_rb,8.8885e-05_rb,1.0316e-04_rb,1.1255e-04_rb,1.1444e-04_rb, &
+     &1.1119e-04_rb,1.0838e-04_rb,5.7064e-05_rb/)
+      kao(:, 2, 3, 3) = (/ &
+     &2.9960e-05_rb,8.6707e-05_rb,1.1415e-04_rb,1.3351e-04_rb,1.4420e-04_rb,1.4685e-04_rb, &
+     &1.4419e-04_rb,1.3258e-04_rb,7.5649e-05_rb/)
+      kao(:, 3, 3, 3) = (/ &
+     &3.4740e-05_rb,1.0851e-04_rb,1.4450e-04_rb,1.6834e-04_rb,1.8054e-04_rb,1.8416e-04_rb, &
+     &1.8038e-04_rb,1.5855e-04_rb,9.9657e-05_rb/)
+      kao(:, 4, 3, 3) = (/ &
+     &4.0367e-05_rb,1.3338e-04_rb,1.7889e-04_rb,2.0752e-04_rb,2.2266e-04_rb,2.2792e-04_rb, &
+     &2.1975e-04_rb,1.8879e-04_rb,1.2950e-04_rb/)
+      kao(:, 5, 3, 3) = (/ &
+     &4.7325e-05_rb,1.6087e-04_rb,2.1635e-04_rb,2.5031e-04_rb,2.7116e-04_rb,2.7639e-04_rb, &
+     &2.6032e-04_rb,2.2480e-04_rb,1.6585e-04_rb/)
+      kao(:, 1, 4, 3) = (/ &
+     &4.6629e-05_rb,8.8856e-05_rb,1.0307e-04_rb,1.1034e-04_rb,1.1324e-04_rb,1.1518e-04_rb, &
+     &1.0941e-04_rb,9.2447e-05_rb,4.9807e-05_rb/)
+      kao(:, 2, 4, 3) = (/ &
+     &5.3813e-05_rb,1.0914e-04_rb,1.2953e-04_rb,1.4280e-04_rb,1.4973e-04_rb,1.5074e-04_rb, &
+     &1.4150e-04_rb,1.2111e-04_rb,6.6358e-05_rb/)
+      kao(:, 3, 4, 3) = (/ &
+     &6.3364e-05_rb,1.3307e-04_rb,1.6255e-04_rb,1.8292e-04_rb,1.9276e-04_rb,1.9285e-04_rb, &
+     &1.8002e-04_rb,1.5407e-04_rb,8.8052e-05_rb/)
+      kao(:, 4, 4, 3) = (/ &
+     &7.4529e-05_rb,1.6123e-04_rb,2.0145e-04_rb,2.2832e-04_rb,2.4093e-04_rb,2.3982e-04_rb, &
+     &2.2562e-04_rb,1.8990e-04_rb,1.1560e-04_rb/)
+      kao(:, 5, 4, 3) = (/ &
+     &8.8134e-05_rb,1.9717e-04_rb,2.4798e-04_rb,2.7909e-04_rb,2.9532e-04_rb,2.9441e-04_rb, &
+     &2.7564e-04_rb,2.2733e-04_rb,1.4686e-04_rb/)
+      kao(:, 1, 5, 3) = (/ &
+     &7.7279e-05_rb,1.1122e-04_rb,1.2109e-04_rb,1.2443e-04_rb,1.2189e-04_rb,1.1617e-04_rb, &
+     &1.0613e-04_rb,8.7521e-05_rb,4.7012e-05_rb/)
+      kao(:, 2, 5, 3) = (/ &
+     &8.9473e-05_rb,1.3546e-04_rb,1.5195e-04_rb,1.5794e-04_rb,1.5786e-04_rb,1.5329e-04_rb, &
+     &1.4127e-04_rb,1.1487e-04_rb,6.0204e-05_rb/)
+      kao(:, 3, 5, 3) = (/ &
+     &1.0328e-04_rb,1.6610e-04_rb,1.8961e-04_rb,1.9990e-04_rb,2.0229e-04_rb,2.0006e-04_rb, &
+     &1.8432e-04_rb,1.4896e-04_rb,7.6087e-05_rb/)
+      kao(:, 4, 5, 3) = (/ &
+     &1.2119e-04_rb,2.0367e-04_rb,2.3155e-04_rb,2.4851e-04_rb,2.5658e-04_rb,2.5211e-04_rb, &
+     &2.3296e-04_rb,1.8864e-04_rb,9.8744e-05_rb/)
+      kao(:, 5, 5, 3) = (/ &
+     &1.4337e-04_rb,2.4554e-04_rb,2.8278e-04_rb,3.0781e-04_rb,3.1834e-04_rb,3.1139e-04_rb, &
+     &2.8860e-04_rb,2.3262e-04_rb,1.2920e-04_rb/)
+      kao(:, 1, 6, 3) = (/ &
+     &1.1761e-04_rb,1.4538e-04_rb,1.4284e-04_rb,1.3740e-04_rb,1.2980e-04_rb,1.1847e-04_rb, &
+     &1.0232e-04_rb,8.1254e-05_rb,4.1748e-05_rb/)
+      kao(:, 2, 6, 3) = (/ &
+     &1.3703e-04_rb,1.7162e-04_rb,1.7382e-04_rb,1.7289e-04_rb,1.6644e-04_rb,1.5514e-04_rb, &
+     &1.3666e-04_rb,1.0938e-04_rb,5.6033e-05_rb/)
+      kao(:, 3, 6, 3) = (/ &
+     &1.5744e-04_rb,2.0479e-04_rb,2.1458e-04_rb,2.1922e-04_rb,2.1487e-04_rb,2.0072e-04_rb, &
+     &1.7976e-04_rb,1.4480e-04_rb,7.3663e-05_rb/)
+      kao(:, 4, 6, 3) = (/ &
+     &1.7947e-04_rb,2.4802e-04_rb,2.6658e-04_rb,2.7311e-04_rb,2.6613e-04_rb,2.5639e-04_rb, &
+     &2.3337e-04_rb,1.8491e-04_rb,9.1670e-05_rb/)
+      kao(:, 5, 6, 3) = (/ &
+     &2.1213e-04_rb,2.9698e-04_rb,3.2800e-04_rb,3.3255e-04_rb,3.3379e-04_rb,3.2227e-04_rb, &
+     &2.9213e-04_rb,2.3295e-04_rb,1.1053e-04_rb/)
+      kao(:, 1, 7, 3) = (/ &
+     &2.1717e-04_rb,2.2955e-04_rb,2.1661e-04_rb,1.9608e-04_rb,1.6989e-04_rb,1.4299e-04_rb, &
+     &1.1566e-04_rb,8.2895e-05_rb,3.7387e-05_rb/)
+      kao(:, 2, 7, 3) = (/ &
+     &2.4414e-04_rb,2.6643e-04_rb,2.5638e-04_rb,2.3114e-04_rb,2.0334e-04_rb,1.7738e-04_rb, &
+     &1.4895e-04_rb,1.0764e-04_rb,5.2222e-05_rb/)
+      kao(:, 3, 7, 3) = (/ &
+     &2.7286e-04_rb,3.0487e-04_rb,2.9526e-04_rb,2.7261e-04_rb,2.5126e-04_rb,2.2507e-04_rb, &
+     &1.8734e-04_rb,1.4022e-04_rb,6.8628e-05_rb/)
+      kao(:, 4, 7, 3) = (/ &
+     &3.1153e-04_rb,3.5338e-04_rb,3.4554e-04_rb,3.2591e-04_rb,3.0719e-04_rb,2.7679e-04_rb, &
+     &2.3565e-04_rb,1.8522e-04_rb,8.6360e-05_rb/)
+      kao(:, 5, 7, 3) = (/ &
+     &3.5307e-04_rb,4.0595e-04_rb,4.0654e-04_rb,3.9853e-04_rb,3.7853e-04_rb,3.4348e-04_rb, &
+     &3.0049e-04_rb,2.3594e-04_rb,1.1315e-04_rb/)
+      kao(:, 1, 8, 3) = (/ &
+     &5.5525e-04_rb,5.3290e-04_rb,4.9219e-04_rb,4.3834e-04_rb,3.7060e-04_rb,2.9620e-04_rb, &
+     &2.1670e-04_rb,1.3044e-04_rb,4.3913e-05_rb/)
+      kao(:, 2, 8, 3) = (/ &
+     &6.1273e-04_rb,5.9169e-04_rb,5.4415e-04_rb,4.8432e-04_rb,4.1256e-04_rb,3.3431e-04_rb, &
+     &2.4554e-04_rb,1.5735e-04_rb,5.6222e-05_rb/)
+      kao(:, 3, 8, 3) = (/ &
+     &6.6697e-04_rb,6.5930e-04_rb,6.1229e-04_rb,5.4542e-04_rb,4.6824e-04_rb,3.7897e-04_rb, &
+     &2.8714e-04_rb,1.8945e-04_rb,7.2182e-05_rb/)
+      kao(:, 4, 8, 3) = (/ &
+     &7.3789e-04_rb,7.3274e-04_rb,6.8030e-04_rb,6.0993e-04_rb,5.2803e-04_rb,4.3826e-04_rb, &
+     &3.4177e-04_rb,2.2879e-04_rb,9.7984e-05_rb/)
+      kao(:, 5, 8, 3) = (/ &
+     &8.2418e-04_rb,8.2930e-04_rb,7.7540e-04_rb,7.0471e-04_rb,6.2407e-04_rb,5.2518e-04_rb, &
+     &4.1114e-04_rb,2.7739e-04_rb,1.2917e-04_rb/)
+      kao(:, 1, 9, 3) = (/ &
+     &2.9866e-03_rb,2.6446e-03_rb,2.3122e-03_rb,1.9743e-03_rb,1.6235e-03_rb,1.2497e-03_rb, &
+     &8.7401e-04_rb,4.7254e-04_rb,6.5815e-05_rb/)
+      kao(:, 2, 9, 3) = (/ &
+     &3.1867e-03_rb,2.8548e-03_rb,2.5070e-03_rb,2.1512e-03_rb,1.7728e-03_rb,1.3804e-03_rb, &
+     &9.6416e-04_rb,5.2342e-04_rb,8.4426e-05_rb/)
+      kao(:, 3, 9, 3) = (/ &
+     &3.3577e-03_rb,3.0331e-03_rb,2.6681e-03_rb,2.2844e-03_rb,1.8894e-03_rb,1.4824e-03_rb, &
+     &1.0437e-03_rb,5.7926e-04_rb,1.1456e-04_rb/)
+      kao(:, 4, 9, 3) = (/ &
+     &3.5955e-03_rb,3.2669e-03_rb,2.8865e-03_rb,2.4786e-03_rb,2.0664e-03_rb,1.6261e-03_rb, &
+     &1.1591e-03_rb,6.6253e-04_rb,1.4708e-04_rb/)
+      kao(:, 5, 9, 3) = (/ &
+     &3.9554e-03_rb,3.6156e-03_rb,3.2186e-03_rb,2.7765e-03_rb,2.3055e-03_rb,1.8177e-03_rb, &
+     &1.3061e-03_rb,7.6692e-04_rb,1.9062e-04_rb/)
+      kao(:, 1,10, 3) = (/ &
+     &1.6695e-02_rb,1.4628e-02_rb,1.2561e-02_rb,1.0499e-02_rb,8.4474e-03_rb,6.4042e-03_rb, &
+     &4.3459e-03_rb,2.2571e-03_rb,5.1038e-05_rb/)
+      kao(:, 2,10, 3) = (/ &
+     &1.8223e-02_rb,1.5977e-02_rb,1.3728e-02_rb,1.1517e-02_rb,9.2932e-03_rb,7.0542e-03_rb, &
+     &4.8075e-03_rb,2.4890e-03_rb,1.1555e-04_rb/)
+      kao(:, 3,10, 3) = (/ &
+     &2.0043e-02_rb,1.7593e-02_rb,1.5175e-02_rb,1.2748e-02_rb,1.0288e-02_rb,7.8318e-03_rb, &
+     &5.3279e-03_rb,2.7782e-03_rb,1.4398e-04_rb/)
+      kao(:, 4,10, 3) = (/ &
+     &2.1904e-02_rb,1.9249e-02_rb,1.6643e-02_rb,1.3989e-02_rb,1.1315e-02_rb,8.6138e-03_rb, &
+     &5.8652e-03_rb,3.0632e-03_rb,1.9715e-04_rb/)
+      kao(:, 5,10, 3) = (/ &
+     &2.3159e-02_rb,2.0410e-02_rb,1.7664e-02_rb,1.4873e-02_rb,1.2019e-02_rb,9.1728e-03_rb, &
+     &6.2874e-03_rb,3.3158e-03_rb,2.7195e-04_rb/)
+      kao(:, 1,11, 3) = (/ &
+     &3.2603e-02_rb,2.8559e-02_rb,2.4510e-02_rb,2.0449e-02_rb,1.6397e-02_rb,1.2361e-02_rb, &
+     &8.3115e-03_rb,4.2614e-03_rb,4.3561e-05_rb/)
+      kao(:, 2,11, 3) = (/ &
+     &3.5490e-02_rb,3.1085e-02_rb,2.6692e-02_rb,2.2303e-02_rb,1.7919e-02_rb,1.3525e-02_rb, &
+     &9.1241e-03_rb,4.6814e-03_rb,1.0680e-04_rb/)
+      kao(:, 3,11, 3) = (/ &
+     &3.8854e-02_rb,3.4035e-02_rb,2.9244e-02_rb,2.4483e-02_rb,1.9700e-02_rb,1.4916e-02_rb, &
+     &1.0095e-02_rb,5.1808e-03_rb,1.8562e-04_rb/)
+      kao(:, 4,11, 3) = (/ &
+     &4.2305e-02_rb,3.7086e-02_rb,3.1904e-02_rb,2.6732e-02_rb,2.1504e-02_rb,1.6276e-02_rb, &
+     &1.1000e-02_rb,5.6671e-03_rb,2.4195e-04_rb/)
+      kao(:, 5,11, 3) = (/ &
+     &4.6003e-02_rb,4.0358e-02_rb,3.4797e-02_rb,2.9165e-02_rb,2.3531e-02_rb,1.7850e-02_rb, &
+     &1.2113e-02_rb,6.2729e-03_rb,3.2815e-04_rb/)
+      kao(:, 1,12, 3) = (/ &
+     &4.2717e-02_rb,3.7390e-02_rb,3.2076e-02_rb,2.6766e-02_rb,2.1453e-02_rb,1.6148e-02_rb, &
+     &1.0833e-02_rb,5.5285e-03_rb,5.3162e-05_rb/)
+      kao(:, 2,12, 3) = (/ &
+     &4.7716e-02_rb,4.1793e-02_rb,3.5854e-02_rb,2.9930e-02_rb,2.4020e-02_rb,1.8099e-02_rb, &
+     &1.2166e-02_rb,6.2010e-03_rb,1.2199e-04_rb/)
+      kao(:, 3,12, 3) = (/ &
+     &5.2485e-02_rb,4.5967e-02_rb,3.9456e-02_rb,3.2983e-02_rb,2.6496e-02_rb,1.9981e-02_rb, &
+     &1.3462e-02_rb,6.8646e-03_rb,1.9551e-04_rb/)
+      kao(:, 4,12, 3) = (/ &
+     &5.6971e-02_rb,4.9905e-02_rb,4.2910e-02_rb,3.5876e-02_rb,2.8829e-02_rb,2.1772e-02_rb, &
+     &1.4678e-02_rb,7.4885e-03_rb,2.4038e-04_rb/)
+      kao(:, 5,12, 3) = (/ &
+     &6.1845e-02_rb,5.4216e-02_rb,4.6694e-02_rb,3.9065e-02_rb,3.1428e-02_rb,2.3760e-02_rb, &
+     &1.6034e-02_rb,8.2201e-03_rb,3.2330e-04_rb/)
+      kao(:, 1,13, 3) = (/ &
+     &4.4159e-02_rb,3.8661e-02_rb,3.3159e-02_rb,2.7655e-02_rb,2.2159e-02_rb,1.6679e-02_rb, &
+     &1.1182e-02_rb,5.6866e-03_rb,7.0844e-05_rb/)
+      kao(:, 2,13, 3) = (/ &
+     &4.9543e-02_rb,4.3376e-02_rb,3.7217e-02_rb,3.1073e-02_rb,2.4939e-02_rb,1.8777e-02_rb, &
+     &1.2622e-02_rb,6.4095e-03_rb,1.2350e-04_rb/)
+      kao(:, 3,13, 3) = (/ &
+     &5.4720e-02_rb,4.7942e-02_rb,4.1156e-02_rb,3.4403e-02_rb,2.7607e-02_rb,2.0806e-02_rb, &
+     &1.3984e-02_rb,7.1021e-03_rb,1.5128e-04_rb/)
+      kao(:, 4,13, 3) = (/ &
+     &5.9716e-02_rb,5.2321e-02_rb,4.4977e-02_rb,3.7585e-02_rb,3.0190e-02_rb,2.2781e-02_rb, &
+     &1.5325e-02_rb,7.8087e-03_rb,2.1269e-04_rb/)
+      kao(:, 5,13, 3) = (/ &
+     &6.4624e-02_rb,5.6664e-02_rb,4.8723e-02_rb,4.0765e-02_rb,3.2763e-02_rb,2.4744e-02_rb, &
+     &1.6652e-02_rb,8.4913e-03_rb,3.0727e-04_rb/)
+      kao(:, 1, 1, 4) = (/ &
+     &5.7873e-05_rb,1.6488e-04_rb,2.0580e-04_rb,2.2960e-04_rb,2.3556e-04_rb,2.2261e-04_rb, &
+     &2.0972e-04_rb,1.9322e-04_rb,1.3088e-04_rb/)
+      kao(:, 2, 1, 4) = (/ &
+     &6.6249e-05_rb,1.9462e-04_rb,2.4549e-04_rb,2.7463e-04_rb,2.7934e-04_rb,2.6538e-04_rb, &
+     &2.3743e-04_rb,2.0925e-04_rb,1.7715e-04_rb/)
+      kao(:, 3, 1, 4) = (/ &
+     &7.5658e-05_rb,2.2561e-04_rb,2.8843e-04_rb,3.1940e-04_rb,3.2388e-04_rb,3.1216e-04_rb, &
+     &2.9036e-04_rb,2.7653e-04_rb,2.3143e-04_rb/)
+      kao(:, 4, 1, 4) = (/ &
+     &8.5832e-05_rb,2.6205e-04_rb,3.3188e-04_rb,3.6495e-04_rb,3.7173e-04_rb,3.6401e-04_rb, &
+     &3.4696e-04_rb,3.4171e-04_rb,2.9590e-04_rb/)
+      kao(:, 5, 1, 4) = (/ &
+     &9.6691e-05_rb,2.9985e-04_rb,3.7678e-04_rb,4.1538e-04_rb,4.2689e-04_rb,4.2505e-04_rb, &
+     &4.1168e-04_rb,4.0784e-04_rb,3.7540e-04_rb/)
+      kao(:, 1, 2, 4) = (/ &
+     &8.0001e-05_rb,1.7863e-04_rb,2.1664e-04_rb,2.3517e-04_rb,2.4432e-04_rb,2.3529e-04_rb, &
+     &2.0358e-04_rb,1.5402e-04_rb,1.1156e-04_rb/)
+      kao(:, 2, 2, 4) = (/ &
+     &9.2299e-05_rb,2.0953e-04_rb,2.5648e-04_rb,2.8347e-04_rb,2.9289e-04_rb,2.8063e-04_rb, &
+     &2.4649e-04_rb,1.9992e-04_rb,1.5181e-04_rb/)
+      kao(:, 3, 2, 4) = (/ &
+     &1.0437e-04_rb,2.4399e-04_rb,3.0364e-04_rb,3.3466e-04_rb,3.4277e-04_rb,3.2781e-04_rb, &
+     &2.9451e-04_rb,2.4303e-04_rb,2.0131e-04_rb/)
+      kao(:, 4, 2, 4) = (/ &
+     &1.1814e-04_rb,2.8134e-04_rb,3.5342e-04_rb,3.8732e-04_rb,3.9443e-04_rb,3.8031e-04_rb, &
+     &3.4829e-04_rb,2.8801e-04_rb,2.6066e-04_rb/)
+      kao(:, 5, 2, 4) = (/ &
+     &1.3198e-04_rb,3.2404e-04_rb,4.0415e-04_rb,4.4181e-04_rb,4.5121e-04_rb,4.4037e-04_rb, &
+     &4.0877e-04_rb,3.5353e-04_rb,3.3227e-04_rb/)
+      kao(:, 1, 3, 4) = (/ &
+     &1.4443e-04_rb,2.3826e-04_rb,2.7329e-04_rb,2.8523e-04_rb,2.8239e-04_rb,2.6871e-04_rb, &
+     &2.4140e-04_rb,1.7625e-04_rb,9.1057e-05_rb/)
+      kao(:, 2, 3, 4) = (/ &
+     &1.6500e-04_rb,2.7899e-04_rb,3.2197e-04_rb,3.3661e-04_rb,3.4010e-04_rb,3.2744e-04_rb, &
+     &2.9069e-04_rb,2.1583e-04_rb,1.2870e-04_rb/)
+      kao(:, 3, 3, 4) = (/ &
+     &1.8759e-04_rb,3.2667e-04_rb,3.7258e-04_rb,3.9759e-04_rb,4.0496e-04_rb,3.8750e-04_rb, &
+     &3.4189e-04_rb,2.6207e-04_rb,1.7564e-04_rb/)
+      kao(:, 4, 3, 4) = (/ &
+     &2.1411e-04_rb,3.7810e-04_rb,4.3373e-04_rb,4.6557e-04_rb,4.7150e-04_rb,4.5014e-04_rb, &
+     &3.9858e-04_rb,3.1356e-04_rb,2.3208e-04_rb/)
+      kao(:, 5, 3, 4) = (/ &
+     &2.3870e-04_rb,4.2957e-04_rb,5.0123e-04_rb,5.3924e-04_rb,5.3944e-04_rb,5.1553e-04_rb, &
+     &4.6343e-04_rb,3.7106e-04_rb,2.9980e-04_rb/)
+      kao(:, 1, 4, 4) = (/ &
+     &2.6076e-04_rb,3.4439e-04_rb,3.6366e-04_rb,3.6515e-04_rb,3.5256e-04_rb,3.2080e-04_rb, &
+     &2.7636e-04_rb,2.0889e-04_rb,8.2321e-05_rb/)
+      kao(:, 2, 4, 4) = (/ &
+     &2.9760e-04_rb,4.0373e-04_rb,4.3154e-04_rb,4.3412e-04_rb,4.1663e-04_rb,3.8448e-04_rb, &
+     &3.3798e-04_rb,2.5481e-04_rb,1.1139e-04_rb/)
+      kao(:, 3, 4, 4) = (/ &
+     &3.4031e-04_rb,4.7084e-04_rb,5.0815e-04_rb,5.1064e-04_rb,4.9099e-04_rb,4.5954e-04_rb, &
+     &4.0644e-04_rb,3.0187e-04_rb,1.5330e-04_rb/)
+      kao(:, 4, 4, 4) = (/ &
+     &3.8682e-04_rb,5.4745e-04_rb,5.9070e-04_rb,5.9370e-04_rb,5.7774e-04_rb,5.4347e-04_rb, &
+     &4.7190e-04_rb,3.5452e-04_rb,2.0604e-04_rb/)
+      kao(:, 5, 4, 4) = (/ &
+     &4.3959e-04_rb,6.2729e-04_rb,6.7728e-04_rb,6.8652e-04_rb,6.7377e-04_rb,6.2625e-04_rb, &
+     &5.4307e-04_rb,4.1535e-04_rb,2.7101e-04_rb/)
+      kao(:, 1, 5, 4) = (/ &
+     &4.3137e-04_rb,4.9354e-04_rb,4.9901e-04_rb,4.7432e-04_rb,4.3778e-04_rb,3.8485e-04_rb, &
+     &3.1938e-04_rb,2.2709e-04_rb,7.3559e-05_rb/)
+      kao(:, 2, 5, 4) = (/ &
+     &4.9217e-04_rb,5.7735e-04_rb,5.8525e-04_rb,5.6095e-04_rb,5.2221e-04_rb,4.6398e-04_rb, &
+     &3.8313e-04_rb,2.8160e-04_rb,1.0296e-04_rb/)
+      kao(:, 3, 5, 4) = (/ &
+     &5.6924e-04_rb,6.7555e-04_rb,6.8298e-04_rb,6.6362e-04_rb,6.1781e-04_rb,5.4692e-04_rb, &
+     &4.5981e-04_rb,3.4088e-04_rb,1.4005e-04_rb/)
+      kao(:, 4, 5, 4) = (/ &
+     &6.5162e-04_rb,7.8635e-04_rb,7.9830e-04_rb,7.7682e-04_rb,7.2322e-04_rb,6.4526e-04_rb, &
+     &5.4580e-04_rb,4.0061e-04_rb,1.8482e-04_rb/)
+      kao(:, 5, 5, 4) = (/ &
+     &7.5040e-04_rb,9.0883e-04_rb,9.2599e-04_rb,8.9925e-04_rb,8.3896e-04_rb,7.5567e-04_rb, &
+     &6.3867e-04_rb,4.6416e-04_rb,2.4367e-04_rb/)
+      kao(:, 1, 6, 4) = (/ &
+     &6.5259e-04_rb,6.7358e-04_rb,6.6023e-04_rb,6.1431e-04_rb,5.5026e-04_rb,4.6572e-04_rb, &
+     &3.6933e-04_rb,2.4724e-04_rb,6.3454e-05_rb/)
+      kao(:, 2, 6, 4) = (/ &
+     &7.5346e-04_rb,7.9866e-04_rb,7.7727e-04_rb,7.2579e-04_rb,6.4756e-04_rb,5.5655e-04_rb, &
+     &4.4395e-04_rb,3.0264e-04_rb,8.7333e-05_rb/)
+      kao(:, 3, 6, 4) = (/ &
+     &8.8029e-04_rb,9.4301e-04_rb,9.1678e-04_rb,8.5383e-04_rb,7.6672e-04_rb,6.6157e-04_rb, &
+     &5.3248e-04_rb,3.6645e-04_rb,1.2006e-04_rb/)
+      kao(:, 4, 6, 4) = (/ &
+     &1.0324e-03_rb,1.1112e-03_rb,1.0784e-03_rb,1.0064e-03_rb,9.0982e-04_rb,7.8126e-04_rb, &
+     &6.2832e-04_rb,4.4008e-04_rb,1.6674e-04_rb/)
+      kao(:, 5, 6, 4) = (/ &
+     &1.1873e-03_rb,1.2942e-03_rb,1.2623e-03_rb,1.1793e-03_rb,1.0646e-03_rb,9.2296e-04_rb, &
+     &7.3952e-04_rb,5.1891e-04_rb,2.2335e-04_rb/)
+      kao(:, 1, 7, 4) = (/ &
+     &1.0039e-03_rb,9.6265e-04_rb,8.9986e-04_rb,8.1533e-04_rb,7.1416e-04_rb,5.9439e-04_rb, &
+     &4.5276e-04_rb,2.8651e-04_rb,6.5221e-05_rb/)
+      kao(:, 2, 7, 4) = (/ &
+     &1.1698e-03_rb,1.1414e-03_rb,1.0686e-03_rb,9.8012e-04_rb,8.6148e-04_rb,7.1658e-04_rb, &
+     &5.4576e-04_rb,3.5076e-04_rb,8.8064e-05_rb/)
+      kao(:, 3, 7, 4) = (/ &
+     &1.3785e-03_rb,1.3654e-03_rb,1.2898e-03_rb,1.1834e-03_rb,1.0346e-03_rb,8.5792e-04_rb, &
+     &6.6115e-04_rb,4.2986e-04_rb,1.2055e-04_rb/)
+      kao(:, 4, 7, 4) = (/ &
+     &1.6296e-03_rb,1.6337e-03_rb,1.5460e-03_rb,1.4118e-03_rb,1.2372e-03_rb,1.0278e-03_rb, &
+     &7.9671e-04_rb,5.1331e-04_rb,1.5903e-04_rb/)
+      kao(:, 5, 7, 4) = (/ &
+     &1.9001e-03_rb,1.9217e-03_rb,1.8220e-03_rb,1.6571e-03_rb,1.4527e-03_rb,1.2164e-03_rb, &
+     &9.4433e-04_rb,6.1289e-04_rb,2.0363e-04_rb/)
+      kao(:, 1, 8, 4) = (/ &
+     &1.8226e-03_rb,1.6514e-03_rb,1.4839e-03_rb,1.2932e-03_rb,1.0982e-03_rb,8.8723e-04_rb, &
+     &6.5582e-04_rb,3.8869e-04_rb,7.0418e-05_rb/)
+      kao(:, 2, 8, 4) = (/ &
+     &2.1183e-03_rb,1.9484e-03_rb,1.7717e-03_rb,1.5557e-03_rb,1.3178e-03_rb,1.0649e-03_rb, &
+     &7.9415e-04_rb,4.7222e-04_rb,9.8173e-05_rb/)
+      kao(:, 3, 8, 4) = (/ &
+     &2.5295e-03_rb,2.3395e-03_rb,2.1347e-03_rb,1.8817e-03_rb,1.6058e-03_rb,1.3046e-03_rb, &
+     &9.6185e-04_rb,5.7415e-04_rb,1.2861e-04_rb/)
+      kao(:, 4, 8, 4) = (/ &
+     &3.0151e-03_rb,2.8208e-03_rb,2.5722e-03_rb,2.2683e-03_rb,1.9222e-03_rb,1.5620e-03_rb, &
+     &1.1535e-03_rb,7.0406e-04_rb,1.7432e-04_rb/)
+      kao(:, 5, 8, 4) = (/ &
+     &3.5096e-03_rb,3.3177e-03_rb,3.0150e-03_rb,2.6542e-03_rb,2.2606e-03_rb,1.8422e-03_rb, &
+     &1.3738e-03_rb,8.5046e-04_rb,2.3260e-04_rb/)
+      kao(:, 1, 9, 4) = (/ &
+     &7.9941e-03_rb,7.0328e-03_rb,6.0711e-03_rb,5.1105e-03_rb,4.1565e-03_rb,3.2070e-03_rb, &
+     &2.2152e-03_rb,1.1971e-03_rb,7.9032e-05_rb/)
+      kao(:, 2, 9, 4) = (/ &
+     &8.9783e-03_rb,7.9063e-03_rb,6.8488e-03_rb,5.7943e-03_rb,4.7410e-03_rb,3.6528e-03_rb, &
+     &2.5467e-03_rb,1.3852e-03_rb,1.1999e-04_rb/)
+      kao(:, 3, 9, 4) = (/ &
+     &1.0198e-02_rb,9.0183e-03_rb,7.8510e-03_rb,6.6811e-03_rb,5.4839e-03_rb,4.2200e-03_rb, &
+     &2.9428e-03_rb,1.6034e-03_rb,1.6821e-04_rb/)
+      kao(:, 4, 9, 4) = (/ &
+     &1.1749e-02_rb,1.0423e-02_rb,9.0948e-03_rb,7.7411e-03_rb,6.3357e-03_rb,4.8731e-03_rb, &
+     &3.3881e-03_rb,1.8608e-03_rb,2.4632e-04_rb/)
+      kao(:, 5, 9, 4) = (/ &
+     &1.3350e-02_rb,1.1910e-02_rb,1.0410e-02_rb,8.8879e-03_rb,7.2904e-03_rb,5.6383e-03_rb, &
+     &3.9275e-03_rb,2.1612e-03_rb,3.3903e-04_rb/)
+      kao(:, 1,10, 4) = (/ &
+     &4.5801e-02_rb,4.0109e-02_rb,3.4395e-02_rb,2.8682e-02_rb,2.2984e-02_rb,1.7267e-02_rb, &
+     &1.1579e-02_rb,5.9235e-03_rb,6.3484e-05_rb/)
+      kao(:, 2,10, 4) = (/ &
+     &4.9659e-02_rb,4.3500e-02_rb,3.7321e-02_rb,3.1127e-02_rb,2.4948e-02_rb,1.8778e-02_rb, &
+     &1.2636e-02_rb,6.5101e-03_rb,9.5466e-05_rb/)
+      kao(:, 3,10, 4) = (/ &
+     &5.4357e-02_rb,4.7634e-02_rb,4.0874e-02_rb,3.4140e-02_rb,2.7418e-02_rb,2.0676e-02_rb, &
+     &1.3967e-02_rb,7.2134e-03_rb,2.1246e-04_rb/)
+      kao(:, 4,10, 4) = (/ &
+     &6.0291e-02_rb,5.2843e-02_rb,4.5373e-02_rb,3.7958e-02_rb,3.0510e-02_rb,2.3082e-02_rb, &
+     &1.5672e-02_rb,8.0960e-03_rb,3.5404e-04_rb/)
+      kao(:, 5,10, 4) = (/ &
+     &6.7661e-02_rb,5.9365e-02_rb,5.1042e-02_rb,4.2745e-02_rb,3.4451e-02_rb,2.6105e-02_rb, &
+     &1.7693e-02_rb,9.1211e-03_rb,4.7192e-04_rb/)
+      kao(:, 1,11, 4) = (/ &
+     &9.0702e-02_rb,7.9394e-02_rb,6.8068e-02_rb,5.6747e-02_rb,4.5417e-02_rb,3.4107e-02_rb, &
+     &2.2797e-02_rb,1.1511e-02_rb,7.5853e-05_rb/)
+      kao(:, 2,11, 4) = (/ &
+     &9.9244e-02_rb,8.6879e-02_rb,7.4483e-02_rb,6.2100e-02_rb,4.9720e-02_rb,3.7362e-02_rb, &
+     &2.5008e-02_rb,1.2672e-02_rb,1.0256e-04_rb/)
+      kao(:, 3,11, 4) = (/ &
+     &1.0852e-01_rb,9.5023e-02_rb,8.1487e-02_rb,6.7960e-02_rb,5.4445e-02_rb,4.0919e-02_rb, &
+     &2.7423e-02_rb,1.3982e-02_rb,1.6509e-04_rb/)
+      kao(:, 4,11, 4) = (/ &
+     &1.1956e-01_rb,1.0470e-01_rb,8.9828e-02_rb,7.4940e-02_rb,6.0117e-02_rb,4.5252e-02_rb, &
+     &3.0437e-02_rb,1.5543e-02_rb,3.1661e-04_rb/)
+      kao(:, 5,11, 4) = (/ &
+     &1.3039e-01_rb,1.1429e-01_rb,9.8079e-02_rb,8.1967e-02_rb,6.5782e-02_rb,4.9565e-02_rb, &
+     &3.3397e-02_rb,1.7070e-02_rb,5.0645e-04_rb/)
+      kao(:, 1,12, 4) = (/ &
+     &1.2021e-01_rb,1.0519e-01_rb,9.0195e-02_rb,7.5171e-02_rb,6.0154e-02_rb,4.5148e-02_rb, &
+     &3.0151e-02_rb,1.5167e-02_rb,6.7632e-05_rb/)
+      kao(:, 2,12, 4) = (/ &
+     &1.3016e-01_rb,1.1394e-01_rb,9.7701e-02_rb,8.1469e-02_rb,6.5222e-02_rb,4.8981e-02_rb, &
+     &3.2777e-02_rb,1.6564e-02_rb,9.6691e-05_rb/)
+      kao(:, 3,12, 4) = (/ &
+     &1.4257e-01_rb,1.2479e-01_rb,1.0706e-01_rb,8.9271e-02_rb,7.1459e-02_rb,5.3715e-02_rb, &
+     &3.5967e-02_rb,1.8266e-02_rb,1.8650e-04_rb/)
+      kao(:, 4,12, 4) = (/ &
+     &1.5648e-01_rb,1.3701e-01_rb,1.1748e-01_rb,9.8018e-02_rb,7.8554e-02_rb,5.9075e-02_rb, &
+     &3.9673e-02_rb,2.0186e-02_rb,3.5387e-04_rb/)
+      kao(:, 5,12, 4) = (/ &
+     &1.6740e-01_rb,1.4658e-01_rb,1.2570e-01_rb,1.0496e-01_rb,8.4156e-02_rb,6.3336e-02_rb, &
+     &4.2553e-02_rb,2.1604e-02_rb,5.3320e-04_rb/)
+      kao(:, 1,13, 4) = (/ &
+     &1.2573e-01_rb,1.1000e-01_rb,9.4314e-02_rb,7.8615e-02_rb,6.2929e-02_rb,4.7219e-02_rb, &
+     &3.1536e-02_rb,1.5865e-02_rb,5.0474e-05_rb/)
+      kao(:, 2,13, 4) = (/ &
+     &1.3569e-01_rb,1.1873e-01_rb,1.0180e-01_rb,8.4863e-02_rb,6.7917e-02_rb,5.1000e-02_rb, &
+     &3.4100e-02_rb,1.7211e-02_rb,1.0366e-04_rb/)
+      kao(:, 3,13, 4) = (/ &
+     &1.4578e-01_rb,1.2755e-01_rb,1.0936e-01_rb,9.1174e-02_rb,7.3030e-02_rb,5.4868e-02_rb, &
+     &3.6725e-02_rb,1.8584e-02_rb,2.4417e-04_rb/)
+      kao(:, 4,13, 4) = (/ &
+     &1.5300e-01_rb,1.3393e-01_rb,1.1485e-01_rb,9.5797e-02_rb,7.6755e-02_rb,5.7691e-02_rb, &
+     &3.8700e-02_rb,1.9588e-02_rb,3.9463e-04_rb/)
+      kao(:, 5,13, 4) = (/ &
+     &1.5948e-01_rb,1.3959e-01_rb,1.1975e-01_rb,9.9939e-02_rb,8.0103e-02_rb,6.0267e-02_rb, &
+     &4.0442e-02_rb,2.0476e-02_rb,5.2489e-04_rb/)
+      kao(:, 1, 1, 5) = (/ &
+     &3.0730e-04_rb,4.0869e-04_rb,4.2558e-04_rb,4.1836e-04_rb,3.9519e-04_rb,3.6372e-04_rb, &
+     &2.8694e-04_rb,2.6584e-04_rb,2.1801e-04_rb/)
+      kao(:, 2, 1, 5) = (/ &
+     &3.2538e-04_rb,4.3862e-04_rb,4.6062e-04_rb,4.5800e-04_rb,4.4348e-04_rb,4.2125e-04_rb, &
+     &3.6505e-04_rb,3.2613e-04_rb,2.9396e-04_rb/)
+      kao(:, 3, 1, 5) = (/ &
+     &3.3965e-04_rb,4.6778e-04_rb,5.0124e-04_rb,5.0588e-04_rb,5.0627e-04_rb,4.8837e-04_rb, &
+     &4.4591e-04_rb,3.9091e-04_rb,3.8601e-04_rb/)
+      kao(:, 4, 1, 5) = (/ &
+     &3.5305e-04_rb,5.0005e-04_rb,5.4810e-04_rb,5.6545e-04_rb,5.7634e-04_rb,5.6350e-04_rb, &
+     &5.3398e-04_rb,4.9322e-04_rb,4.9703e-04_rb/)
+      kao(:, 5, 1, 5) = (/ &
+     &3.6843e-04_rb,5.3559e-04_rb,6.0074e-04_rb,6.3388e-04_rb,6.5476e-04_rb,6.5121e-04_rb, &
+     &6.3615e-04_rb,6.1596e-04_rb,6.2900e-04_rb/)
+      kao(:, 1, 2, 5) = (/ &
+     &4.2086e-04_rb,5.1417e-04_rb,5.1972e-04_rb,4.9790e-04_rb,4.6126e-04_rb,4.1005e-04_rb, &
+     &3.3841e-04_rb,2.3086e-04_rb,1.8396e-04_rb/)
+      kao(:, 2, 2, 5) = (/ &
+     &4.4142e-04_rb,5.4838e-04_rb,5.5918e-04_rb,5.4271e-04_rb,5.1015e-04_rb,4.6371e-04_rb, &
+     &3.9686e-04_rb,2.8420e-04_rb,2.4486e-04_rb/)
+      kao(:, 3, 2, 5) = (/ &
+     &4.6438e-04_rb,5.8432e-04_rb,6.0102e-04_rb,5.9651e-04_rb,5.6920e-04_rb,5.3041e-04_rb, &
+     &4.5976e-04_rb,3.7342e-04_rb,3.2265e-04_rb/)
+      kao(:, 4, 2, 5) = (/ &
+     &4.8279e-04_rb,6.2418e-04_rb,6.4960e-04_rb,6.5695e-04_rb,6.3988e-04_rb,6.0274e-04_rb, &
+     &5.3017e-04_rb,4.6801e-04_rb,4.1702e-04_rb/)
+      kao(:, 5, 2, 5) = (/ &
+     &4.9938e-04_rb,6.6314e-04_rb,7.0911e-04_rb,7.2552e-04_rb,7.1847e-04_rb,6.8356e-04_rb, &
+     &6.1801e-04_rb,5.7242e-04_rb,5.3937e-04_rb/)
+      kao(:, 1, 3, 5) = (/ &
+     &7.5073e-04_rb,8.1743e-04_rb,7.9414e-04_rb,7.4039e-04_rb,6.6425e-04_rb,5.6902e-04_rb, &
+     &4.5211e-04_rb,2.9071e-04_rb,1.7629e-04_rb/)
+      kao(:, 2, 3, 5) = (/ &
+     &7.9242e-04_rb,8.7156e-04_rb,8.5005e-04_rb,8.0165e-04_rb,7.1947e-04_rb,6.2467e-04_rb, &
+     &5.0816e-04_rb,3.5038e-04_rb,2.3642e-04_rb/)
+      kao(:, 3, 3, 5) = (/ &
+     &8.3043e-04_rb,9.2555e-04_rb,9.1453e-04_rb,8.6093e-04_rb,7.8464e-04_rb,6.9275e-04_rb, &
+     &5.7807e-04_rb,4.1288e-04_rb,3.0691e-04_rb/)
+      kao(:, 4, 3, 5) = (/ &
+     &8.6053e-04_rb,9.7674e-04_rb,9.7765e-04_rb,9.2813e-04_rb,8.5853e-04_rb,7.7377e-04_rb, &
+     &6.5702e-04_rb,4.8317e-04_rb,3.9911e-04_rb/)
+      kao(:, 5, 3, 5) = (/ &
+     &8.9084e-04_rb,1.0351e-03_rb,1.0435e-03_rb,1.0049e-03_rb,9.4814e-04_rb,8.6574e-04_rb, &
+     &7.4637e-04_rb,5.6491e-04_rb,5.0649e-04_rb/)
+      kao(:, 1, 4, 5) = (/ &
+     &1.3691e-03_rb,1.3420e-03_rb,1.2789e-03_rb,1.1571e-03_rb,1.0054e-03_rb,8.3457e-04_rb, &
+     &6.3859e-04_rb,4.0761e-04_rb,1.5090e-04_rb/)
+      kao(:, 2, 4, 5) = (/ &
+     &1.4497e-03_rb,1.4458e-03_rb,1.3693e-03_rb,1.2399e-03_rb,1.0886e-03_rb,9.0944e-04_rb, &
+     &6.9922e-04_rb,4.5891e-04_rb,2.1864e-04_rb/)
+      kao(:, 3, 4, 5) = (/ &
+     &1.5092e-03_rb,1.5288e-03_rb,1.4492e-03_rb,1.3231e-03_rb,1.1702e-03_rb,9.8222e-04_rb, &
+     &7.7013e-04_rb,5.2474e-04_rb,3.0407e-04_rb/)
+      kao(:, 4, 4, 5) = (/ &
+     &1.5602e-03_rb,1.6068e-03_rb,1.5312e-03_rb,1.4087e-03_rb,1.2594e-03_rb,1.0655e-03_rb, &
+     &8.5735e-04_rb,5.9578e-04_rb,3.9268e-04_rb/)
+      kao(:, 5, 4, 5) = (/ &
+     &1.6108e-03_rb,1.6853e-03_rb,1.6164e-03_rb,1.5057e-03_rb,1.3492e-03_rb,1.1682e-03_rb, &
+     &9.6058e-04_rb,6.7959e-04_rb,4.9525e-04_rb/)
+      kao(:, 1, 5, 5) = (/ &
+     &2.3434e-03_rb,2.1631e-03_rb,1.9859e-03_rb,1.7683e-03_rb,1.5141e-03_rb,1.2226e-03_rb, &
+     &8.9923e-04_rb,5.4477e-04_rb,1.2575e-04_rb/)
+      kao(:, 2, 5, 5) = (/ &
+     &2.4752e-03_rb,2.3171e-03_rb,2.1360e-03_rb,1.9016e-03_rb,1.6214e-03_rb,1.3108e-03_rb, &
+     &9.7831e-04_rb,5.9705e-04_rb,1.8419e-04_rb/)
+      kao(:, 3, 5, 5) = (/ &
+     &2.5685e-03_rb,2.4387e-03_rb,2.2507e-03_rb,2.0028e-03_rb,1.7171e-03_rb,1.4030e-03_rb, &
+     &1.0542e-03_rb,6.5942e-04_rb,2.6114e-04_rb/)
+      kao(:, 4, 5, 5) = (/ &
+     &2.6469e-03_rb,2.5385e-03_rb,2.3599e-03_rb,2.1047e-03_rb,1.8139e-03_rb,1.4974e-03_rb, &
+     &1.1404e-03_rb,7.3650e-04_rb,3.6173e-04_rb/)
+      kao(:, 5, 5, 5) = (/ &
+     &2.7111e-03_rb,2.6448e-03_rb,2.4645e-03_rb,2.2107e-03_rb,1.9222e-03_rb,1.6048e-03_rb, &
+     &1.2367e-03_rb,8.2822e-04_rb,4.7124e-04_rb/)
+      kao(:, 1, 6, 5) = (/ &
+     &3.6870e-03_rb,3.3081e-03_rb,2.9535e-03_rb,2.5781e-03_rb,2.1710e-03_rb,1.7353e-03_rb, &
+     &1.2527e-03_rb,7.1995e-04_rb,1.0649e-04_rb/)
+      kao(:, 2, 6, 5) = (/ &
+     &3.8867e-03_rb,3.5260e-03_rb,3.1721e-03_rb,2.7718e-03_rb,2.3392e-03_rb,1.8682e-03_rb, &
+     &1.3468e-03_rb,7.8719e-04_rb,1.5668e-04_rb/)
+      kao(:, 3, 6, 5) = (/ &
+     &4.0284e-03_rb,3.6872e-03_rb,3.3334e-03_rb,2.9169e-03_rb,2.4661e-03_rb,1.9733e-03_rb, &
+     &1.4372e-03_rb,8.5750e-04_rb,2.1580e-04_rb/)
+      kao(:, 4, 6, 5) = (/ &
+     &4.1355e-03_rb,3.8269e-03_rb,3.4723e-03_rb,3.0564e-03_rb,2.5962e-03_rb,2.0858e-03_rb, &
+     &1.5388e-03_rb,9.2919e-04_rb,2.8921e-04_rb/)
+      kao(:, 5, 6, 5) = (/ &
+     &4.2530e-03_rb,3.9771e-03_rb,3.6076e-03_rb,3.1973e-03_rb,2.7175e-03_rb,2.1980e-03_rb, &
+     &1.6503e-03_rb,1.0123e-03_rb,3.9933e-04_rb/)
+      kao(:, 1, 7, 5) = (/ &
+     &5.9303e-03_rb,5.2537e-03_rb,4.6038e-03_rb,3.9568e-03_rb,3.2763e-03_rb,2.5699e-03_rb, &
+     &1.8266e-03_rb,1.0238e-03_rb,9.0759e-05_rb/)
+      kao(:, 2, 7, 5) = (/ &
+     &6.2719e-03_rb,5.5854e-03_rb,4.9264e-03_rb,4.2403e-03_rb,3.5196e-03_rb,2.7643e-03_rb, &
+     &1.9714e-03_rb,1.1058e-03_rb,1.3173e-04_rb/)
+      kao(:, 3, 7, 5) = (/ &
+     &6.5193e-03_rb,5.8407e-03_rb,5.1576e-03_rb,4.4431e-03_rb,3.6909e-03_rb,2.9114e-03_rb, &
+     &2.0825e-03_rb,1.1806e-03_rb,1.8536e-04_rb/)
+      kao(:, 4, 7, 5) = (/ &
+     &6.6989e-03_rb,6.0314e-03_rb,5.3552e-03_rb,4.6281e-03_rb,3.8605e-03_rb,3.0624e-03_rb, &
+     &2.1992e-03_rb,1.2697e-03_rb,2.6787e-04_rb/)
+      kao(:, 5, 7, 5) = (/ &
+     &6.9450e-03_rb,6.3008e-03_rb,5.6152e-03_rb,4.8622e-03_rb,4.0675e-03_rb,3.2291e-03_rb, &
+     &2.3204e-03_rb,1.3675e-03_rb,3.5672e-04_rb/)
+      kao(:, 1, 8, 5) = (/ &
+     &1.1078e-02_rb,9.7294e-03_rb,8.3981e-03_rb,7.0957e-03_rb,5.7917e-03_rb,4.4718e-03_rb, &
+     &3.1091e-03_rb,1.6886e-03_rb,1.1294e-04_rb/)
+      kao(:, 2, 8, 5) = (/ &
+     &1.1717e-02_rb,1.0310e-02_rb,8.9257e-03_rb,7.5752e-03_rb,6.2113e-03_rb,4.8050e-03_rb, &
+     &3.3497e-03_rb,1.8274e-03_rb,1.4724e-04_rb/)
+      kao(:, 3, 8, 5) = (/ &
+     &1.2207e-02_rb,1.0778e-02_rb,9.3683e-03_rb,7.9668e-03_rb,6.5278e-03_rb,5.0484e-03_rb, &
+     &3.5310e-03_rb,1.9391e-03_rb,2.0653e-04_rb/)
+      kao(:, 4, 8, 5) = (/ &
+     &1.2674e-02_rb,1.1230e-02_rb,9.8021e-03_rb,8.3609e-03_rb,6.8807e-03_rb,5.3359e-03_rb, &
+     &3.7364e-03_rb,2.0615e-03_rb,2.8343e-04_rb/)
+      kao(:, 5, 8, 5) = (/ &
+     &1.3265e-02_rb,1.1790e-02_rb,1.0322e-02_rb,8.8148e-03_rb,7.2381e-03_rb,5.6108e-03_rb, &
+     &3.9433e-03_rb,2.1912e-03_rb,3.7254e-04_rb/)
+      kao(:, 1, 9, 5) = (/ &
+     &3.7052e-02_rb,3.2437e-02_rb,2.7835e-02_rb,2.3250e-02_rb,1.8658e-02_rb,1.4080e-02_rb, &
+     &9.5558e-03_rb,4.9966e-03_rb,1.9423e-04_rb/)
+      kao(:, 2, 9, 5) = (/ &
+     &3.9539e-02_rb,3.4640e-02_rb,2.9744e-02_rb,2.4857e-02_rb,1.9981e-02_rb,1.5146e-02_rb, &
+     &1.0322e-02_rb,5.4117e-03_rb,2.4661e-04_rb/)
+      kao(:, 3, 9, 5) = (/ &
+     &4.1918e-02_rb,3.6737e-02_rb,3.1561e-02_rb,2.6402e-02_rb,2.1269e-02_rb,1.6195e-02_rb, &
+     &1.1056e-02_rb,5.7963e-03_rb,3.2011e-04_rb/)
+      kao(:, 4, 9, 5) = (/ &
+     &4.4100e-02_rb,3.8673e-02_rb,3.3273e-02_rb,2.7895e-02_rb,2.2554e-02_rb,1.7214e-02_rb, &
+     &1.1779e-02_rb,6.1756e-03_rb,4.1260e-04_rb/)
+      kao(:, 5, 9, 5) = (/ &
+     &4.6405e-02_rb,4.0709e-02_rb,3.5073e-02_rb,2.9453e-02_rb,2.3852e-02_rb,1.8195e-02_rb, &
+     &1.2445e-02_rb,6.5667e-03_rb,5.2938e-04_rb/)
+      kao(:, 1,10, 5) = (/ &
+     &1.5260e-01_rb,1.3356e-01_rb,1.1452e-01_rb,9.5486e-02_rb,7.6440e-02_rb,5.7459e-02_rb, &
+     &3.8411e-02_rb,1.9334e-02_rb,1.8781e-04_rb/)
+      kao(:, 2,10, 5) = (/ &
+     &1.6192e-01_rb,1.4171e-01_rb,1.2154e-01_rb,1.0139e-01_rb,8.1225e-02_rb,6.1032e-02_rb, &
+     &4.0817e-02_rb,2.0639e-02_rb,3.0020e-04_rb/)
+      kao(:, 3,10, 5) = (/ &
+     &1.6952e-01_rb,1.4839e-01_rb,1.2731e-01_rb,1.0623e-01_rb,8.5090e-02_rb,6.3990e-02_rb, &
+     &4.2882e-02_rb,2.1810e-02_rb,3.7223e-04_rb/)
+      kao(:, 4,10, 5) = (/ &
+     &1.7675e-01_rb,1.5478e-01_rb,1.3285e-01_rb,1.1085e-01_rb,8.8843e-02_rb,6.6852e-02_rb, &
+     &4.4829e-02_rb,2.2833e-02_rb,4.6711e-04_rb/)
+      kao(:, 5,10, 5) = (/ &
+     &1.8239e-01_rb,1.5968e-01_rb,1.3704e-01_rb,1.1434e-01_rb,9.1701e-02_rb,6.9058e-02_rb, &
+     &4.6429e-02_rb,2.3733e-02_rb,6.6086e-04_rb/)
+      kao(:, 1,11, 5) = (/ &
+     &2.7058e-01_rb,2.3683e-01_rb,2.0302e-01_rb,1.6928e-01_rb,1.3552e-01_rb,1.0170e-01_rb, &
+     &6.7859e-02_rb,3.4017e-02_rb,1.5001e-04_rb/)
+      kao(:, 2,11, 5) = (/ &
+     &2.7834e-01_rb,2.4359e-01_rb,2.0889e-01_rb,1.7416e-01_rb,1.3942e-01_rb,1.0462e-01_rb, &
+     &6.9857e-02_rb,3.5072e-02_rb,2.9190e-04_rb/)
+      kao(:, 3,11, 5) = (/ &
+     &2.8582e-01_rb,2.5022e-01_rb,2.1462e-01_rb,1.7895e-01_rb,1.4327e-01_rb,1.0754e-01_rb, &
+     &7.1838e-02_rb,3.6157e-02_rb,3.9721e-04_rb/)
+      kao(:, 4,11, 5) = (/ &
+     &2.8898e-01_rb,2.5301e-01_rb,2.1700e-01_rb,1.8097e-01_rb,1.4487e-01_rb,1.0884e-01_rb, &
+     &7.2766e-02_rb,3.6699e-02_rb,5.3597e-04_rb/)
+      kao(:, 5,11, 5) = (/ &
+     &2.9536e-01_rb,2.5857e-01_rb,2.2177e-01_rb,1.8491e-01_rb,1.4809e-01_rb,1.1136e-01_rb, &
+     &7.4481e-02_rb,3.7679e-02_rb,7.1552e-04_rb/)
+      kao(:, 1,12, 5) = (/ &
+     &3.2683e-01_rb,2.8605e-01_rb,2.4525e-01_rb,2.0441e-01_rb,1.6361e-01_rb,1.2282e-01_rb, &
+     &8.1893e-02_rb,4.1016e-02_rb,1.4076e-04_rb/)
+      kao(:, 2,12, 5) = (/ &
+     &3.3106e-01_rb,2.8971e-01_rb,2.4839e-01_rb,2.0704e-01_rb,1.6570e-01_rb,1.2434e-01_rb, &
+     &8.2938e-02_rb,4.1600e-02_rb,2.8033e-04_rb/)
+      kao(:, 3,12, 5) = (/ &
+     &3.3746e-01_rb,2.9539e-01_rb,2.5326e-01_rb,2.1111e-01_rb,1.6904e-01_rb,1.2682e-01_rb, &
+     &8.4697e-02_rb,4.2481e-02_rb,3.8254e-04_rb/)
+      kao(:, 4,12, 5) = (/ &
+     &3.4047e-01_rb,2.9813e-01_rb,2.5560e-01_rb,2.1310e-01_rb,1.7062e-01_rb,1.2812e-01_rb, &
+     &8.5526e-02_rb,4.3047e-02_rb,5.1612e-04_rb/)
+      kao(:, 5,12, 5) = (/ &
+     &3.4523e-01_rb,3.0226e-01_rb,2.5919e-01_rb,2.1613e-01_rb,1.7310e-01_rb,1.3003e-01_rb, &
+     &8.6933e-02_rb,4.3928e-02_rb,7.3625e-04_rb/)
+      kao(:, 1,13, 5) = (/ &
+     &2.9792e-01_rb,2.6068e-01_rb,2.2349e-01_rb,1.8628e-01_rb,1.4905e-01_rb,1.1181e-01_rb, &
+     &7.4561e-02_rb,3.7329e-02_rb,1.5388e-04_rb/)
+      kao(:, 2,13, 5) = (/ &
+     &3.0081e-01_rb,2.6326e-01_rb,2.2566e-01_rb,1.8811e-01_rb,1.5050e-01_rb,1.1291e-01_rb, &
+     &7.5310e-02_rb,3.7768e-02_rb,2.8934e-04_rb/)
+      kao(:, 3,13, 5) = (/ &
+     &3.0121e-01_rb,2.6362e-01_rb,2.2602e-01_rb,1.8840e-01_rb,1.5077e-01_rb,1.1318e-01_rb, &
+     &7.5585e-02_rb,3.7991e-02_rb,3.3166e-04_rb/)
+      kao(:, 4,13, 5) = (/ &
+     &3.0495e-01_rb,2.6698e-01_rb,2.2888e-01_rb,1.9082e-01_rb,1.5277e-01_rb,1.1476e-01_rb, &
+     &7.6636e-02_rb,3.8673e-02_rb,4.6400e-04_rb/)
+      kao(:, 5,13, 5) = (/ &
+     &3.1093e-01_rb,2.7226e-01_rb,2.3342e-01_rb,1.9467e-01_rb,1.5596e-01_rb,1.1716e-01_rb, &
+     &7.8384e-02_rb,3.9602e-02_rb,6.9078e-04_rb/)
+      kao(:, 1, 1, 6) = (/ &
+     &6.7719e-04_rb,7.1472e-04_rb,7.1797e-04_rb,6.8628e-04_rb,6.3509e-04_rb,5.7059e-04_rb, &
+     &5.0987e-04_rb,3.4938e-04_rb,4.0895e-04_rb/)
+      kao(:, 2, 1, 6) = (/ &
+     &6.7482e-04_rb,7.4520e-04_rb,7.5758e-04_rb,7.4570e-04_rb,7.0620e-04_rb,6.5805e-04_rb, &
+     &6.1645e-04_rb,4.7281e-04_rb,5.4801e-04_rb/)
+      kao(:, 3, 1, 6) = (/ &
+     &6.7924e-04_rb,7.8313e-04_rb,8.0713e-04_rb,8.1739e-04_rb,7.9231e-04_rb,7.6723e-04_rb, &
+     &7.3523e-04_rb,6.1861e-04_rb,7.0683e-04_rb/)
+      kao(:, 4, 1, 6) = (/ &
+     &6.8649e-04_rb,8.2657e-04_rb,8.7129e-04_rb,9.0685e-04_rb,8.9681e-04_rb,8.9801e-04_rb, &
+     &8.6860e-04_rb,7.7360e-04_rb,8.9309e-04_rb/)
+      kao(:, 5, 1, 6) = (/ &
+     &6.9142e-04_rb,8.7359e-04_rb,9.5301e-04_rb,1.0075e-03_rb,1.0203e-03_rb,1.0461e-03_rb, &
+     &1.0218e-03_rb,9.5114e-04_rb,1.0965e-03_rb/)
+      kao(:, 1, 2, 6) = (/ &
+     &9.6029e-04_rb,9.5330e-04_rb,9.1502e-04_rb,8.4442e-04_rb,7.4240e-04_rb,6.3131e-04_rb, &
+     &5.2007e-04_rb,3.7829e-04_rb,3.5691e-04_rb/)
+      kao(:, 2, 2, 6) = (/ &
+     &9.5985e-04_rb,9.8942e-04_rb,9.6445e-04_rb,8.9433e-04_rb,8.0300e-04_rb,7.0134e-04_rb, &
+     &6.1315e-04_rb,5.0159e-04_rb,4.8663e-04_rb/)
+      kao(:, 3, 2, 6) = (/ &
+     &9.6320e-04_rb,1.0310e-03_rb,1.0191e-03_rb,9.5205e-04_rb,8.7761e-04_rb,7.9453e-04_rb, &
+     &7.3253e-04_rb,6.2365e-04_rb,6.4547e-04_rb/)
+      kao(:, 4, 2, 6) = (/ &
+     &9.7399e-04_rb,1.0755e-03_rb,1.0817e-03_rb,1.0333e-03_rb,9.7218e-04_rb,9.1068e-04_rb, &
+     &8.7686e-04_rb,7.5862e-04_rb,8.3212e-04_rb/)
+      kao(:, 5, 2, 6) = (/ &
+     &9.8138e-04_rb,1.1324e-03_rb,1.1507e-03_rb,1.1333e-03_rb,1.0937e-03_rb,1.0509e-03_rb, &
+     &1.0310e-03_rb,9.0559e-04_rb,1.0246e-03_rb/)
+      kao(:, 1, 3, 6) = (/ &
+     &1.8119e-03_rb,1.6817e-03_rb,1.5499e-03_rb,1.3740e-03_rb,1.1743e-03_rb,9.5554e-04_rb, &
+     &7.1656e-04_rb,4.7034e-04_rb,2.9777e-04_rb/)
+      kao(:, 2, 3, 6) = (/ &
+     &1.8107e-03_rb,1.7310e-03_rb,1.6189e-03_rb,1.4391e-03_rb,1.2510e-03_rb,1.0204e-03_rb, &
+     &7.8709e-04_rb,5.5271e-04_rb,4.0666e-04_rb/)
+      kao(:, 3, 3, 6) = (/ &
+     &1.8217e-03_rb,1.7823e-03_rb,1.6795e-03_rb,1.5235e-03_rb,1.3331e-03_rb,1.1033e-03_rb, &
+     &8.7727e-04_rb,6.6343e-04_rb,5.5347e-04_rb/)
+      kao(:, 4, 3, 6) = (/ &
+     &1.8325e-03_rb,1.8451e-03_rb,1.7507e-03_rb,1.6178e-03_rb,1.4289e-03_rb,1.2102e-03_rb, &
+     &9.9121e-04_rb,7.9875e-04_rb,7.2923e-04_rb/)
+      kao(:, 5, 3, 6) = (/ &
+     &1.8499e-03_rb,1.9065e-03_rb,1.8500e-03_rb,1.7218e-03_rb,1.5483e-03_rb,1.3411e-03_rb, &
+     &1.1326e-03_rb,9.4539e-04_rb,9.3725e-04_rb/)
+      kao(:, 1, 4, 6) = (/ &
+     &3.4114e-03_rb,3.0491e-03_rb,2.7140e-03_rb,2.3662e-03_rb,1.9783e-03_rb,1.5658e-03_rb, &
+     &1.1300e-03_rb,6.5946e-04_rb,2.6201e-04_rb/)
+      kao(:, 2, 4, 6) = (/ &
+     &3.4376e-03_rb,3.0989e-03_rb,2.7962e-03_rb,2.4537e-03_rb,2.0666e-03_rb,1.6491e-03_rb, &
+     &1.2098e-03_rb,7.2995e-04_rb,3.5441e-04_rb/)
+      kao(:, 3, 4, 6) = (/ &
+     &3.4485e-03_rb,3.1733e-03_rb,2.8848e-03_rb,2.5421e-03_rb,2.1715e-03_rb,1.7580e-03_rb, &
+     &1.3056e-03_rb,8.1745e-04_rb,4.7057e-04_rb/)
+      kao(:, 4, 4, 6) = (/ &
+     &3.4770e-03_rb,3.2632e-03_rb,3.0027e-03_rb,2.6508e-03_rb,2.2906e-03_rb,1.8839e-03_rb, &
+     &1.4242e-03_rb,9.3156e-04_rb,6.1906e-04_rb/)
+      kao(:, 5, 4, 6) = (/ &
+     &3.5195e-03_rb,3.3661e-03_rb,3.1261e-03_rb,2.7792e-03_rb,2.4277e-03_rb,2.0261e-03_rb, &
+     &1.5634e-03_rb,1.0703e-03_rb,8.1465e-04_rb/)
+      kao(:, 1, 5, 6) = (/ &
+     &5.7502e-03_rb,5.0807e-03_rb,4.4217e-03_rb,3.7897e-03_rb,3.1287e-03_rb,2.4547e-03_rb, &
+     &1.7341e-03_rb,9.6239e-04_rb,2.4204e-04_rb/)
+      kao(:, 2, 5, 6) = (/ &
+     &5.7894e-03_rb,5.1466e-03_rb,4.5231e-03_rb,3.9026e-03_rb,3.2431e-03_rb,2.5561e-03_rb, &
+     &1.8209e-03_rb,1.0387e-03_rb,3.3073e-04_rb/)
+      kao(:, 3, 5, 6) = (/ &
+     &5.8510e-03_rb,5.2408e-03_rb,4.6666e-03_rb,4.0479e-03_rb,3.3863e-03_rb,2.6690e-03_rb, &
+     &1.9231e-03_rb,1.1318e-03_rb,4.4023e-04_rb/)
+      kao(:, 4, 5, 6) = (/ &
+     &5.9488e-03_rb,5.3756e-03_rb,4.8127e-03_rb,4.2175e-03_rb,3.5437e-03_rb,2.8108e-03_rb, &
+     &2.0541e-03_rb,1.2413e-03_rb,5.7017e-04_rb/)
+      kao(:, 5, 5, 6) = (/ &
+     &6.0632e-03_rb,5.5286e-03_rb,4.9850e-03_rb,4.3894e-03_rb,3.7125e-03_rb,2.9737e-03_rb, &
+     &2.2202e-03_rb,1.3784e-03_rb,7.3804e-04_rb/)
+      kao(:, 1, 6, 6) = (/ &
+     &9.0144e-03_rb,7.9241e-03_rb,6.8389e-03_rb,5.7807e-03_rb,4.7224e-03_rb,3.6386e-03_rb, &
+     &2.5487e-03_rb,1.3755e-03_rb,2.0268e-04_rb/)
+      kao(:, 2, 6, 6) = (/ &
+     &9.0405e-03_rb,7.9650e-03_rb,6.9105e-03_rb,5.8762e-03_rb,4.8286e-03_rb,3.7488e-03_rb, &
+     &2.6372e-03_rb,1.4443e-03_rb,2.8152e-04_rb/)
+      kao(:, 3, 6, 6) = (/ &
+     &9.2000e-03_rb,8.1570e-03_rb,7.1089e-03_rb,6.0851e-03_rb,5.0081e-03_rb,3.9064e-03_rb, &
+     &2.7603e-03_rb,1.5330e-03_rb,3.9833e-04_rb/)
+      kao(:, 4, 6, 6) = (/ &
+     &9.3676e-03_rb,8.3397e-03_rb,7.3293e-03_rb,6.2884e-03_rb,5.2172e-03_rb,4.0838e-03_rb, &
+     &2.8967e-03_rb,1.6576e-03_rb,5.5504e-04_rb/)
+      kao(:, 5, 6, 6) = (/ &
+     &9.5404e-03_rb,8.5459e-03_rb,7.5717e-03_rb,6.5076e-03_rb,5.4312e-03_rb,4.2828e-03_rb, &
+     &3.0616e-03_rb,1.8170e-03_rb,7.2861e-04_rb/)
+      kao(:, 1, 7, 6) = (/ &
+     &1.4907e-02_rb,1.3059e-02_rb,1.1219e-02_rb,9.3912e-03_rb,7.6074e-03_rb,5.8006e-03_rb, &
+     &3.9637e-03_rb,2.0976e-03_rb,1.8870e-04_rb/)
+      kao(:, 2, 7, 6) = (/ &
+     &1.4960e-02_rb,1.3123e-02_rb,1.1304e-02_rb,9.5034e-03_rb,7.7189e-03_rb,5.9029e-03_rb, &
+     &4.0714e-03_rb,2.1752e-03_rb,2.5278e-04_rb/)
+      kao(:, 3, 7, 6) = (/ &
+     &1.5077e-02_rb,1.3255e-02_rb,1.1479e-02_rb,9.6943e-03_rb,7.9204e-03_rb,6.0871e-03_rb, &
+     &4.2229e-03_rb,2.2784e-03_rb,3.4866e-04_rb/)
+      kao(:, 4, 7, 6) = (/ &
+     &1.5413e-02_rb,1.3606e-02_rb,1.1805e-02_rb,1.0016e-02_rb,8.1764e-03_rb,6.3063e-03_rb, &
+     &4.3884e-03_rb,2.3906e-03_rb,4.7884e-04_rb/)
+      kao(:, 5, 7, 6) = (/ &
+     &1.5640e-02_rb,1.3874e-02_rb,1.2089e-02_rb,1.0323e-02_rb,8.4660e-03_rb,6.5392e-03_rb, &
+     &4.5932e-03_rb,2.5421e-03_rb,6.8588e-04_rb/)
+      kao(:, 1, 8, 6) = (/ &
+     &2.8559e-02_rb,2.4997e-02_rb,2.1448e-02_rb,1.7898e-02_rb,1.4352e-02_rb,1.0840e-02_rb, &
+     &7.3538e-03_rb,3.7976e-03_rb,1.9487e-04_rb/)
+      kao(:, 2, 8, 6) = (/ &
+     &2.8738e-02_rb,2.5172e-02_rb,2.1609e-02_rb,1.8050e-02_rb,1.4521e-02_rb,1.1028e-02_rb, &
+     &7.4791e-03_rb,3.8937e-03_rb,2.5597e-04_rb/)
+      kao(:, 3, 8, 6) = (/ &
+     &2.9088e-02_rb,2.5505e-02_rb,2.1920e-02_rb,1.8369e-02_rb,1.4844e-02_rb,1.1305e-02_rb, &
+     &7.7085e-03_rb,4.0334e-03_rb,3.3647e-04_rb/)
+      kao(:, 4, 8, 6) = (/ &
+     &2.9471e-02_rb,2.5866e-02_rb,2.2282e-02_rb,1.8723e-02_rb,1.5191e-02_rb,1.1604e-02_rb, &
+     &7.9478e-03_rb,4.2092e-03_rb,4.5107e-04_rb/)
+      kao(:, 5, 8, 6) = (/ &
+     &2.9965e-02_rb,2.6334e-02_rb,2.2760e-02_rb,1.9185e-02_rb,1.5605e-02_rb,1.1940e-02_rb, &
+     &8.2260e-03_rb,4.4031e-03_rb,6.3668e-04_rb/)
+      kao(:, 1, 9, 6) = (/ &
+     &1.0333e-01_rb,9.0409e-02_rb,7.7506e-02_rb,6.4597e-02_rb,5.1717e-02_rb,3.8817e-02_rb, &
+     &2.5905e-02_rb,1.3064e-02_rb,2.4712e-04_rb/)
+      kao(:, 2, 9, 6) = (/ &
+     &1.0373e-01_rb,9.0771e-02_rb,7.7825e-02_rb,6.4896e-02_rb,5.1961e-02_rb,3.9016e-02_rb, &
+     &2.6085e-02_rb,1.3262e-02_rb,3.3832e-04_rb/)
+      kao(:, 3, 9, 6) = (/ &
+     &1.0493e-01_rb,9.1818e-02_rb,7.8786e-02_rb,6.5718e-02_rb,5.2648e-02_rb,3.9574e-02_rb, &
+     &2.6569e-02_rb,1.3576e-02_rb,4.4601e-04_rb/)
+      kao(:, 4, 9, 6) = (/ &
+     &1.0587e-01_rb,9.2691e-02_rb,7.9566e-02_rb,6.6407e-02_rb,5.3246e-02_rb,4.0117e-02_rb, &
+     &2.7043e-02_rb,1.3891e-02_rb,5.4826e-04_rb/)
+      kao(:, 5, 9, 6) = (/ &
+     &1.0759e-01_rb,9.4255e-02_rb,8.0925e-02_rb,6.7610e-02_rb,5.4300e-02_rb,4.1036e-02_rb, &
+     &2.7792e-02_rb,1.4265e-02_rb,6.4886e-04_rb/)
+      kao(:, 1,10, 6) = (/ &
+     &3.9062e-01_rb,3.4177e-01_rb,2.9293e-01_rb,2.4412e-01_rb,1.9530e-01_rb,1.4643e-01_rb, &
+     &9.7639e-02_rb,4.8848e-02_rb,1.4547e-04_rb/)
+      kao(:, 2,10, 6) = (/ &
+     &3.9313e-01_rb,3.4397e-01_rb,2.9486e-01_rb,2.4569e-01_rb,1.9653e-01_rb,1.4745e-01_rb, &
+     &9.8352e-02_rb,4.9236e-02_rb,2.6944e-04_rb/)
+      kao(:, 3,10, 6) = (/ &
+     &3.9636e-01_rb,3.4679e-01_rb,2.9726e-01_rb,2.4770e-01_rb,1.9822e-01_rb,1.4872e-01_rb, &
+     &9.9231e-02_rb,4.9728e-02_rb,4.9543e-04_rb/)
+      kao(:, 4,10, 6) = (/ &
+     &4.0190e-01_rb,3.5169e-01_rb,3.0137e-01_rb,2.5124e-01_rb,2.0112e-01_rb,1.5095e-01_rb, &
+     &1.0079e-01_rb,5.0721e-02_rb,7.4715e-04_rb/)
+      kao(:, 5,10, 6) = (/ &
+     &4.1118e-01_rb,3.5981e-01_rb,3.0844e-01_rb,2.5722e-01_rb,2.0591e-01_rb,1.5462e-01_rb, &
+     &1.0334e-01_rb,5.2226e-02_rb,1.0737e-03_rb/)
+      kao(:, 1,11, 6) = (/ &
+     &5.2843e-01_rb,4.6229e-01_rb,3.9627e-01_rb,3.3017e-01_rb,2.6411e-01_rb,1.9813e-01_rb, &
+     &1.3214e-01_rb,6.6158e-02_rb,1.5345e-04_rb/)
+      kao(:, 2,11, 6) = (/ &
+     &5.2350e-01_rb,4.5807e-01_rb,3.9260e-01_rb,3.2718e-01_rb,2.6177e-01_rb,1.9641e-01_rb, &
+     &1.3106e-01_rb,6.5668e-02_rb,2.3814e-04_rb/)
+      kao(:, 3,11, 6) = (/ &
+     &5.2048e-01_rb,4.5536e-01_rb,3.9029e-01_rb,3.2525e-01_rb,2.6032e-01_rb,1.9539e-01_rb, &
+     &1.3041e-01_rb,6.5403e-02_rb,4.8642e-04_rb/)
+      kao(:, 4,11, 6) = (/ &
+     &5.2442e-01_rb,4.5878e-01_rb,3.9329e-01_rb,3.2791e-01_rb,2.6245e-01_rb,1.9699e-01_rb, &
+     &1.3158e-01_rb,6.6140e-02_rb,7.7713e-04_rb/)
+      kao(:, 5,11, 6) = (/ &
+     &5.3645e-01_rb,4.6936e-01_rb,4.0243e-01_rb,3.3557e-01_rb,2.6862e-01_rb,2.0159e-01_rb, &
+     &1.3470e-01_rb,6.7828e-02_rb,1.0827e-03_rb/)
+      kao(:, 1,12, 6) = (/ &
+     &5.9047e-01_rb,5.1664e-01_rb,4.4278e-01_rb,3.6903e-01_rb,2.9521e-01_rb,2.2135e-01_rb, &
+     &1.4776e-01_rb,7.3993e-02_rb,1.4236e-04_rb/)
+      kao(:, 2,12, 6) = (/ &
+     &5.8585e-01_rb,5.1270e-01_rb,4.3944e-01_rb,3.6623e-01_rb,2.9300e-01_rb,2.1996e-01_rb, &
+     &1.4676e-01_rb,7.3476e-02_rb,2.2023e-04_rb/)
+      kao(:, 3,12, 6) = (/ &
+     &5.7367e-01_rb,5.0194e-01_rb,4.3031e-01_rb,3.5876e-01_rb,2.8718e-01_rb,2.1559e-01_rb, &
+     &1.4380e-01_rb,7.2153e-02_rb,4.4743e-04_rb/)
+      kao(:, 4,12, 6) = (/ &
+     &5.7511e-01_rb,5.0312e-01_rb,4.3146e-01_rb,3.5985e-01_rb,2.8795e-01_rb,2.1609e-01_rb, &
+     &1.4436e-01_rb,7.2515e-02_rb,8.0036e-04_rb/)
+      kao(:, 5,12, 6) = (/ &
+     &5.8792e-01_rb,5.1441e-01_rb,4.4120e-01_rb,3.6789e-01_rb,2.9440e-01_rb,2.2104e-01_rb, &
+     &1.4769e-01_rb,7.4288e-02_rb,1.0818e-03_rb/)
+      kao(:, 1,13, 6) = (/ &
+     &5.2587e-01_rb,4.6012e-01_rb,3.9434e-01_rb,3.2864e-01_rb,2.6295e-01_rb,1.9729e-01_rb, &
+     &1.3161e-01_rb,6.5880e-02_rb,1.1855e-04_rb/)
+      kao(:, 2,13, 6) = (/ &
+     &5.1655e-01_rb,4.5203e-01_rb,3.8739e-01_rb,3.2291e-01_rb,2.5848e-01_rb,1.9395e-01_rb, &
+     &1.2940e-01_rb,6.4811e-02_rb,1.8738e-04_rb/)
+      kao(:, 3,13, 6) = (/ &
+     &5.1454e-01_rb,4.5033e-01_rb,3.8607e-01_rb,3.2190e-01_rb,2.5767e-01_rb,1.9330e-01_rb, &
+     &1.2903e-01_rb,6.4719e-02_rb,4.6442e-04_rb/)
+      kao(:, 4,13, 6) = (/ &
+     &5.2306e-01_rb,4.5763e-01_rb,3.9250e-01_rb,3.2722e-01_rb,2.6190e-01_rb,1.9661e-01_rb, &
+     &1.3127e-01_rb,6.5873e-02_rb,7.3146e-04_rb/)
+      kao(:, 5,13, 6) = (/ &
+     &5.3732e-01_rb,4.7035e-01_rb,4.0337e-01_rb,3.3620e-01_rb,2.6904e-01_rb,2.0206e-01_rb, &
+     &1.3501e-01_rb,6.8074e-02_rb,1.0136e-03_rb/)
+      kao(:, 1, 1, 7) = (/ &
+     &1.2103e-03_rb,1.2175e-03_rb,1.1935e-03_rb,1.1549e-03_rb,1.0791e-03_rb,9.5598e-04_rb, &
+     &8.1255e-04_rb,6.1193e-04_rb,6.2180e-04_rb/)
+      kao(:, 2, 1, 7) = (/ &
+     &1.2178e-03_rb,1.2781e-03_rb,1.2880e-03_rb,1.2578e-03_rb,1.2013e-03_rb,1.0898e-03_rb, &
+     &9.4696e-04_rb,8.3333e-04_rb,8.1545e-04_rb/)
+      kao(:, 3, 1, 7) = (/ &
+     &1.2282e-03_rb,1.3405e-03_rb,1.3881e-03_rb,1.3716e-03_rb,1.3394e-03_rb,1.2381e-03_rb, &
+     &1.1125e-03_rb,1.0711e-03_rb,1.0876e-03_rb/)
+      kao(:, 4, 1, 7) = (/ &
+     &1.2403e-03_rb,1.4084e-03_rb,1.4922e-03_rb,1.5029e-03_rb,1.4913e-03_rb,1.4226e-03_rb, &
+     &1.3116e-03_rb,1.3637e-03_rb,1.4095e-03_rb/)
+      kao(:, 5, 1, 7) = (/ &
+     &1.2587e-03_rb,1.4782e-03_rb,1.5894e-03_rb,1.6533e-03_rb,1.6739e-03_rb,1.6196e-03_rb, &
+     &1.5433e-03_rb,1.7053e-03_rb,1.8020e-03_rb/)
+      kao(:, 1, 2, 7) = (/ &
+     &1.5958e-03_rb,1.5396e-03_rb,1.4781e-03_rb,1.3976e-03_rb,1.2942e-03_rb,1.1273e-03_rb, &
+     &9.3307e-04_rb,7.0021e-04_rb,6.0904e-04_rb/)
+      kao(:, 2, 2, 7) = (/ &
+     &1.6176e-03_rb,1.6176e-03_rb,1.5750e-03_rb,1.5193e-03_rb,1.4296e-03_rb,1.2725e-03_rb, &
+     &1.0674e-03_rb,8.4851e-04_rb,7.7411e-04_rb/)
+      kao(:, 3, 2, 7) = (/ &
+     &1.6471e-03_rb,1.6851e-03_rb,1.6807e-03_rb,1.6583e-03_rb,1.5791e-03_rb,1.4314e-03_rb, &
+     &1.2293e-03_rb,1.0317e-03_rb,9.9584e-04_rb/)
+      kao(:, 4, 2, 7) = (/ &
+     &1.6650e-03_rb,1.7627e-03_rb,1.7970e-03_rb,1.8046e-03_rb,1.7334e-03_rb,1.6113e-03_rb, &
+     &1.4228e-03_rb,1.2451e-03_rb,1.2394e-03_rb/)
+      kao(:, 5, 2, 7) = (/ &
+     &1.7122e-03_rb,1.8558e-03_rb,1.9287e-03_rb,1.9533e-03_rb,1.9037e-03_rb,1.8293e-03_rb, &
+     &1.6473e-03_rb,1.5087e-03_rb,1.5795e-03_rb/)
+      kao(:, 1, 3, 7) = (/ &
+     &2.9351e-03_rb,2.6534e-03_rb,2.4324e-03_rb,2.1954e-03_rb,1.9158e-03_rb,1.6076e-03_rb, &
+     &1.2520e-03_rb,8.5789e-04_rb,6.1375e-04_rb/)
+      kao(:, 2, 3, 7) = (/ &
+     &2.9633e-03_rb,2.7281e-03_rb,2.5348e-03_rb,2.3132e-03_rb,2.0567e-03_rb,1.7614e-03_rb, &
+     &1.4143e-03_rb,9.9890e-04_rb,7.9742e-04_rb/)
+      kao(:, 3, 3, 7) = (/ &
+     &3.0018e-03_rb,2.8266e-03_rb,2.6658e-03_rb,2.4521e-03_rb,2.2182e-03_rb,1.9505e-03_rb, &
+     &1.5883e-03_rb,1.1664e-03_rb,9.9661e-04_rb/)
+      kao(:, 4, 3, 7) = (/ &
+     &3.0730e-03_rb,2.9520e-03_rb,2.8043e-03_rb,2.6204e-03_rb,2.4182e-03_rb,2.1521e-03_rb, &
+     &1.7967e-03_rb,1.3650e-03_rb,1.2315e-03_rb/)
+      kao(:, 5, 3, 7) = (/ &
+     &3.1816e-03_rb,3.1107e-03_rb,2.9552e-03_rb,2.8080e-03_rb,2.6346e-03_rb,2.3544e-03_rb, &
+     &2.0373e-03_rb,1.6039e-03_rb,1.5090e-03_rb/)
+      kao(:, 1, 4, 7) = (/ &
+     &5.7269e-03_rb,5.0918e-03_rb,4.4466e-03_rb,3.8641e-03_rb,3.2580e-03_rb,2.6083e-03_rb, &
+     &1.8965e-03_rb,1.1416e-03_rb,5.7204e-04_rb/)
+      kao(:, 2, 4, 7) = (/ &
+     &5.7492e-03_rb,5.1587e-03_rb,4.5741e-03_rb,4.0239e-03_rb,3.4230e-03_rb,2.7638e-03_rb, &
+     &2.0485e-03_rb,1.2804e-03_rb,7.6092e-04_rb/)
+      kao(:, 3, 4, 7) = (/ &
+     &5.8525e-03_rb,5.2748e-03_rb,4.7562e-03_rb,4.2073e-03_rb,3.6092e-03_rb,2.9384e-03_rb, &
+     &2.2265e-03_rb,1.4580e-03_rb,9.9771e-04_rb/)
+      kao(:, 4, 4, 7) = (/ &
+     &5.9797e-03_rb,5.4326e-03_rb,4.9495e-03_rb,4.4248e-03_rb,3.8014e-03_rb,3.1433e-03_rb, &
+     &2.4307e-03_rb,1.6612e-03_rb,1.3149e-03_rb/)
+      kao(:, 5, 4, 7) = (/ &
+     &6.1647e-03_rb,5.6540e-03_rb,5.1948e-03_rb,4.6848e-03_rb,4.0444e-03_rb,3.3860e-03_rb, &
+     &2.6695e-03_rb,1.9106e-03_rb,1.6620e-03_rb/)
+      kao(:, 1, 5, 7) = (/ &
+     &1.0220e-02_rb,9.0008e-03_rb,7.7868e-03_rb,6.5817e-03_rb,5.4248e-03_rb,4.2290e-03_rb, &
+     &3.0009e-03_rb,1.6787e-03_rb,5.3957e-04_rb/)
+      kao(:, 2, 5, 7) = (/ &
+     &1.0367e-02_rb,9.1668e-03_rb,7.9693e-03_rb,6.7850e-03_rb,5.6408e-03_rb,4.4280e-03_rb, &
+     &3.1863e-03_rb,1.8183e-03_rb,7.0339e-04_rb/)
+      kao(:, 3, 5, 7) = (/ &
+     &1.0581e-02_rb,9.4102e-03_rb,8.2049e-03_rb,7.0786e-03_rb,5.9001e-03_rb,4.6839e-03_rb, &
+     &3.3914e-03_rb,1.9878e-03_rb,9.2591e-04_rb/)
+      kao(:, 4, 5, 7) = (/ &
+     &1.0809e-02_rb,9.6775e-03_rb,8.5132e-03_rb,7.3701e-03_rb,6.2042e-03_rb,4.9938e-03_rb, &
+     &3.6238e-03_rb,2.1871e-03_rb,1.1943e-03_rb/)
+      kao(:, 5, 5, 7) = (/ &
+     &1.1112e-02_rb,1.0026e-02_rb,8.9250e-03_rb,7.7808e-03_rb,6.5932e-03_rb,5.3151e-03_rb, &
+     &3.9019e-03_rb,2.4156e-03_rb,1.5529e-03_rb/)
+      kao(:, 1, 6, 7) = (/ &
+     &1.6720e-02_rb,1.4665e-02_rb,1.2615e-02_rb,1.0575e-02_rb,8.5627e-03_rb,6.5744e-03_rb, &
+     &4.5286e-03_rb,2.4830e-03_rb,5.6458e-04_rb/)
+      kao(:, 2, 6, 7) = (/ &
+     &1.7104e-02_rb,1.5034e-02_rb,1.2975e-02_rb,1.0925e-02_rb,8.9009e-03_rb,6.8822e-03_rb, &
+     &4.7999e-03_rb,2.6619e-03_rb,7.2679e-04_rb/)
+      kao(:, 3, 6, 7) = (/ &
+     &1.7534e-02_rb,1.5438e-02_rb,1.3395e-02_rb,1.1323e-02_rb,9.3166e-03_rb,7.2349e-03_rb, &
+     &5.0972e-03_rb,2.8734e-03_rb,9.0147e-04_rb/)
+      kao(:, 4, 6, 7) = (/ &
+     &1.8091e-02_rb,1.6011e-02_rb,1.3940e-02_rb,1.1869e-02_rb,9.7728e-03_rb,7.6440e-03_rb, &
+     &5.4515e-03_rb,3.0818e-03_rb,1.1288e-03_rb/)
+      kao(:, 5, 6, 7) = (/ &
+     &1.8583e-02_rb,1.6530e-02_rb,1.4432e-02_rb,1.2438e-02_rb,1.0309e-02_rb,8.1409e-03_rb, &
+     &5.8462e-03_rb,3.3346e-03_rb,1.4293e-03_rb/)
+      kao(:, 1, 7, 7) = (/ &
+     &2.7982e-02_rb,2.4501e-02_rb,2.1043e-02_rb,1.7577e-02_rb,1.4110e-02_rb,1.0697e-02_rb, &
+     &7.3114e-03_rb,3.8393e-03_rb,5.1721e-04_rb/)
+      kao(:, 2, 7, 7) = (/ &
+     &2.8730e-02_rb,2.5189e-02_rb,2.1653e-02_rb,1.8120e-02_rb,1.4619e-02_rb,1.1160e-02_rb, &
+     &7.6475e-03_rb,4.0900e-03_rb,6.8268e-04_rb/)
+      kao(:, 3, 7, 7) = (/ &
+     &2.9602e-02_rb,2.5984e-02_rb,2.2367e-02_rb,1.8790e-02_rb,1.5226e-02_rb,1.1688e-02_rb, &
+     &8.0684e-03_rb,4.3672e-03_rb,8.7865e-04_rb/)
+      kao(:, 4, 7, 7) = (/ &
+     &3.0383e-02_rb,2.6722e-02_rb,2.3100e-02_rb,1.9474e-02_rb,1.5890e-02_rb,1.2270e-02_rb, &
+     &8.5486e-03_rb,4.6828e-03_rb,1.1058e-03_rb/)
+      kao(:, 5, 7, 7) = (/ &
+     &3.1027e-02_rb,2.7319e-02_rb,2.3722e-02_rb,2.0052e-02_rb,1.6464e-02_rb,1.2803e-02_rb, &
+     &9.0257e-03_rb,5.0413e-03_rb,1.3701e-03_rb/)
+      kao(:, 1, 8, 7) = (/ &
+     &5.4825e-02_rb,4.7970e-02_rb,4.1147e-02_rb,3.4322e-02_rb,2.7487e-02_rb,2.0656e-02_rb, &
+     &1.3854e-02_rb,7.1281e-03_rb,4.3340e-04_rb/)
+      kao(:, 2, 8, 7) = (/ &
+     &5.6231e-02_rb,4.9217e-02_rb,4.2253e-02_rb,3.5263e-02_rb,2.8269e-02_rb,2.1292e-02_rb, &
+     &1.4434e-02_rb,7.4660e-03_rb,6.0870e-04_rb/)
+      kao(:, 3, 8, 7) = (/ &
+     &5.7926e-02_rb,5.0738e-02_rb,4.3579e-02_rb,3.6411e-02_rb,2.9254e-02_rb,2.2161e-02_rb, &
+     &1.5102e-02_rb,7.9134e-03_rb,8.5563e-04_rb/)
+      kao(:, 4, 8, 7) = (/ &
+     &5.9329e-02_rb,5.2017e-02_rb,4.4709e-02_rb,3.7445e-02_rb,3.0174e-02_rb,2.2939e-02_rb, &
+     &1.5732e-02_rb,8.3409e-03_rb,1.1069e-03_rb/)
+      kao(:, 5, 8, 7) = (/ &
+     &6.0706e-02_rb,5.3284e-02_rb,4.5885e-02_rb,3.8526e-02_rb,3.1172e-02_rb,2.3870e-02_rb, &
+     &1.6429e-02_rb,8.7694e-03_rb,1.3835e-03_rb/)
+      kao(:, 1, 9, 7) = (/ &
+     &2.0429e-01_rb,1.7875e-01_rb,1.5322e-01_rb,1.2768e-01_rb,1.0216e-01_rb,7.6684e-02_rb, &
+     &5.1143e-02_rb,2.5629e-02_rb,2.9263e-04_rb/)
+      kao(:, 2, 9, 7) = (/ &
+     &2.0990e-01_rb,1.8367e-01_rb,1.5743e-01_rb,1.3122e-01_rb,1.0506e-01_rb,7.8849e-02_rb, &
+     &5.2652e-02_rb,2.6459e-02_rb,5.6921e-04_rb/)
+      kao(:, 3, 9, 7) = (/ &
+     &2.1338e-01_rb,1.8672e-01_rb,1.6006e-01_rb,1.3349e-01_rb,1.0689e-01_rb,8.0285e-02_rb, &
+     &5.3664e-02_rb,2.7200e-02_rb,9.3758e-04_rb/)
+      kao(:, 4, 9, 7) = (/ &
+     &2.2002e-01_rb,1.9252e-01_rb,1.6512e-01_rb,1.3776e-01_rb,1.1035e-01_rb,8.2930e-02_rb, &
+     &5.5562e-02_rb,2.8342e-02_rb,1.3055e-03_rb/)
+      kao(:, 5, 9, 7) = (/ &
+     &2.2506e-01_rb,1.9692e-01_rb,1.6901e-01_rb,1.4099e-01_rb,1.1303e-01_rb,8.5078e-02_rb, &
+     &5.7190e-02_rb,2.9461e-02_rb,1.8874e-03_rb/)
+      kao(:, 1,10, 7) = (/ &
+     &8.3776e-01_rb,7.3310e-01_rb,6.2841e-01_rb,5.2361e-01_rb,4.1890e-01_rb,3.1415e-01_rb, &
+     &2.0945e-01_rb,1.0479e-01_rb,1.9258e-04_rb/)
+      kao(:, 2,10, 7) = (/ &
+     &8.5667e-01_rb,7.4964e-01_rb,6.4250e-01_rb,5.3547e-01_rb,4.2837e-01_rb,3.2129e-01_rb, &
+     &2.1421e-01_rb,1.0723e-01_rb,3.0052e-04_rb/)
+      kao(:, 3,10, 7) = (/ &
+     &8.7378e-01_rb,7.6452e-01_rb,6.5535e-01_rb,5.4608e-01_rb,4.3691e-01_rb,3.2776e-01_rb, &
+     &2.1870e-01_rb,1.0952e-01_rb,5.4766e-04_rb/)
+      kao(:, 4,10, 7) = (/ &
+     &8.9911e-01_rb,7.8666e-01_rb,6.7423e-01_rb,5.6186e-01_rb,4.4961e-01_rb,3.3744e-01_rb, &
+     &2.2515e-01_rb,1.1291e-01_rb,1.0571e-03_rb/)
+      kao(:, 5,10, 7) = (/ &
+     &9.2543e-01_rb,8.0983e-01_rb,6.9418e-01_rb,5.7864e-01_rb,4.6314e-01_rb,3.4767e-01_rb, &
+     &2.3212e-01_rb,1.1658e-01_rb,1.4779e-03_rb/)
+      kao(:, 1,11, 7) = (/ &
+     &1.1170e+00_rb,9.7735e-01_rb,8.3780e-01_rb,6.9827e-01_rb,5.5860e-01_rb,4.1894e-01_rb, &
+     &2.7927e-01_rb,1.3969e-01_rb,1.8784e-04_rb/)
+      kao(:, 2,11, 7) = (/ &
+     &1.1469e+00_rb,1.0035e+00_rb,8.6021e-01_rb,7.1681e-01_rb,5.7347e-01_rb,4.3009e-01_rb, &
+     &2.8675e-01_rb,1.4352e-01_rb,2.9142e-04_rb/)
+      kao(:, 3,11, 7) = (/ &
+     &1.1926e+00_rb,1.0436e+00_rb,8.9439e-01_rb,7.4544e-01_rb,5.9622e-01_rb,4.4725e-01_rb, &
+     &2.9836e-01_rb,1.4934e-01_rb,4.5203e-04_rb/)
+      kao(:, 4,11, 7) = (/ &
+     &1.2362e+00_rb,1.0816e+00_rb,9.2703e-01_rb,7.7246e-01_rb,6.1814e-01_rb,4.6378e-01_rb, &
+     &3.0936e-01_rb,1.5503e-01_rb,7.8924e-04_rb/)
+      kao(:, 5,11, 7) = (/ &
+     &1.2847e+00_rb,1.1241e+00_rb,9.6352e-01_rb,8.0300e-01_rb,6.4259e-01_rb,4.8242e-01_rb, &
+     &3.2196e-01_rb,1.6156e-01_rb,1.3839e-03_rb/)
+      kao(:, 1,12, 7) = (/ &
+     &1.0784e+00_rb,9.4374e-01_rb,8.0896e-01_rb,6.7399e-01_rb,5.3931e-01_rb,4.0450e-01_rb, &
+     &2.6958e-01_rb,1.3485e-01_rb,1.8250e-04_rb/)
+      kao(:, 2,12, 7) = (/ &
+     &1.1016e+00_rb,9.6383e-01_rb,8.2624e-01_rb,6.8848e-01_rb,5.5081e-01_rb,4.1305e-01_rb, &
+     &2.7543e-01_rb,1.3793e-01_rb,2.7118e-04_rb/)
+      kao(:, 3,12, 7) = (/ &
+     &1.1494e+00_rb,1.0057e+00_rb,8.6213e-01_rb,7.1839e-01_rb,5.7458e-01_rb,4.3099e-01_rb, &
+     &2.8756e-01_rb,1.4395e-01_rb,4.0903e-04_rb/)
+      kao(:, 4,12, 7) = (/ &
+     &1.1966e+00_rb,1.0468e+00_rb,8.9727e-01_rb,7.4760e-01_rb,5.9830e-01_rb,4.4892e-01_rb, &
+     &2.9949e-01_rb,1.5008e-01_rb,6.0710e-04_rb/)
+      kao(:, 5,12, 7) = (/ &
+     &1.2391e+00_rb,1.0842e+00_rb,9.2930e-01_rb,7.7450e-01_rb,6.1988e-01_rb,4.6531e-01_rb, &
+     &3.1051e-01_rb,1.5585e-01_rb,1.1075e-03_rb/)
+      kao(:, 1,13, 7) = (/ &
+     &9.1609e-01_rb,8.0170e-01_rb,6.8730e-01_rb,5.7285e-01_rb,4.5825e-01_rb,3.4365e-01_rb, &
+     &2.2921e-01_rb,1.1478e-01_rb,1.8534e-04_rb/)
+      kao(:, 2,13, 7) = (/ &
+     &9.2338e-01_rb,8.0782e-01_rb,6.9263e-01_rb,5.7718e-01_rb,4.6175e-01_rb,3.4635e-01_rb, &
+     &2.3110e-01_rb,1.1575e-01_rb,2.6985e-04_rb/)
+      kao(:, 3,13, 7) = (/ &
+     &9.4678e-01_rb,8.2823e-01_rb,7.0984e-01_rb,5.9160e-01_rb,4.7336e-01_rb,3.5526e-01_rb, &
+     &2.3691e-01_rb,1.1874e-01_rb,3.9189e-04_rb/)
+      kao(:, 4,13, 7) = (/ &
+     &9.5798e-01_rb,8.3839e-01_rb,7.1856e-01_rb,5.9888e-01_rb,4.7933e-01_rb,3.5969e-01_rb, &
+     &2.4009e-01_rb,1.2046e-01_rb,6.8070e-04_rb/)
+      kao(:, 5,13, 7) = (/ &
+     &9.7420e-01_rb,8.5221e-01_rb,7.3072e-01_rb,6.0920e-01_rb,4.8778e-01_rb,3.6616e-01_rb, &
+     &2.4455e-01_rb,1.2274e-01_rb,1.2004e-03_rb/)
+      kao(:, 1, 1, 8) = (/ &
+     &2.2086e-03_rb,2.0999e-03_rb,2.0159e-03_rb,1.8719e-03_rb,1.7233e-03_rb,1.5637e-03_rb, &
+     &1.3735e-03_rb,1.3147e-03_rb,1.3769e-03_rb/)
+      kao(:, 2, 1, 8) = (/ &
+     &2.2485e-03_rb,2.2158e-03_rb,2.1547e-03_rb,2.0369e-03_rb,1.8898e-03_rb,1.7374e-03_rb, &
+     &1.6006e-03_rb,1.7014e-03_rb,1.7807e-03_rb/)
+      kao(:, 3, 1, 8) = (/ &
+     &2.2803e-03_rb,2.3414e-03_rb,2.2949e-03_rb,2.2265e-03_rb,2.0601e-03_rb,1.9356e-03_rb, &
+     &1.8992e-03_rb,2.1518e-03_rb,2.2509e-03_rb/)
+      kao(:, 4, 1, 8) = (/ &
+     &2.3178e-03_rb,2.4462e-03_rb,2.4702e-03_rb,2.4013e-03_rb,2.2630e-03_rb,2.1680e-03_rb, &
+     &2.2995e-03_rb,2.6824e-03_rb,2.8243e-03_rb/)
+      kao(:, 5, 1, 8) = (/ &
+     &2.3355e-03_rb,2.5902e-03_rb,2.6514e-03_rb,2.5825e-03_rb,2.4802e-03_rb,2.5028e-03_rb, &
+     &2.7971e-03_rb,3.2930e-03_rb,3.4957e-03_rb/)
+      kao(:, 1, 2, 8) = (/ &
+     &3.2554e-03_rb,3.0029e-03_rb,2.8238e-03_rb,2.5475e-03_rb,2.2552e-03_rb,1.9853e-03_rb, &
+     &1.6584e-03_rb,1.2784e-03_rb,1.0936e-03_rb/)
+      kao(:, 2, 2, 8) = (/ &
+     &3.3021e-03_rb,3.1146e-03_rb,2.9858e-03_rb,2.7302e-03_rb,2.4455e-03_rb,2.1856e-03_rb, &
+     &1.8782e-03_rb,1.5376e-03_rb,1.5050e-03_rb/)
+      kao(:, 3, 2, 8) = (/ &
+     &3.3434e-03_rb,3.2633e-03_rb,3.1581e-03_rb,2.9235e-03_rb,2.6724e-03_rb,2.4236e-03_rb, &
+     &2.1164e-03_rb,1.8700e-03_rb,1.9615e-03_rb/)
+      kao(:, 4, 2, 8) = (/ &
+     &3.3924e-03_rb,3.4464e-03_rb,3.3467e-03_rb,3.1420e-03_rb,2.9417e-03_rb,2.6854e-03_rb, &
+     &2.3908e-03_rb,2.2943e-03_rb,2.5456e-03_rb/)
+      kao(:, 5, 2, 8) = (/ &
+     &3.4124e-03_rb,3.5941e-03_rb,3.5577e-03_rb,3.4139e-03_rb,3.2366e-03_rb,2.9618e-03_rb, &
+     &2.7452e-03_rb,2.8336e-03_rb,3.1731e-03_rb/)
+      kao(:, 1, 3, 8) = (/ &
+     &6.2310e-03_rb,5.6159e-03_rb,4.9769e-03_rb,4.4245e-03_rb,3.8289e-03_rb,3.1465e-03_rb, &
+     &2.4651e-03_rb,1.6762e-03_rb,1.0171e-03_rb/)
+      kao(:, 2, 3, 8) = (/ &
+     &6.3558e-03_rb,5.7885e-03_rb,5.2143e-03_rb,4.7067e-03_rb,4.0833e-03_rb,3.4041e-03_rb, &
+     &2.6899e-03_rb,1.9219e-03_rb,1.2943e-03_rb/)
+      kao(:, 3, 3, 8) = (/ &
+     &6.4584e-03_rb,5.9604e-03_rb,5.4819e-03_rb,4.9958e-03_rb,4.3577e-03_rb,3.6662e-03_rb, &
+     &2.9872e-03_rb,2.1872e-03_rb,1.6861e-03_rb/)
+      kao(:, 4, 3, 8) = (/ &
+     &6.6103e-03_rb,6.1684e-03_rb,5.8142e-03_rb,5.2903e-03_rb,4.6437e-03_rb,3.9929e-03_rb, &
+     &3.3051e-03_rb,2.4974e-03_rb,2.2070e-03_rb/)
+      kao(:, 5, 3, 8) = (/ &
+     &6.6588e-03_rb,6.3708e-03_rb,6.1123e-03_rb,5.6154e-03_rb,4.9949e-03_rb,4.3617e-03_rb, &
+     &3.6895e-03_rb,2.8582e-03_rb,2.8798e-03_rb/)
+      kao(:, 1, 4, 8) = (/ &
+     &1.1807e-02_rb,1.0450e-02_rb,9.1344e-03_rb,7.7844e-03_rb,6.5100e-03_rb,5.2593e-03_rb, &
+     &3.9218e-03_rb,2.4635e-03_rb,1.1324e-03_rb/)
+      kao(:, 2, 4, 8) = (/ &
+     &1.2088e-02_rb,1.0775e-02_rb,9.4615e-03_rb,8.1147e-03_rb,6.9001e-03_rb,5.6187e-03_rb, &
+     &4.2536e-03_rb,2.7131e-03_rb,1.3848e-03_rb/)
+      kao(:, 3, 4, 8) = (/ &
+     &1.2276e-02_rb,1.1057e-02_rb,9.7542e-03_rb,8.5429e-03_rb,7.3199e-03_rb,6.0294e-03_rb, &
+     &4.5931e-03_rb,3.0093e-03_rb,1.7357e-03_rb/)
+      kao(:, 4, 4, 8) = (/ &
+     &1.2505e-02_rb,1.1360e-02_rb,1.0130e-02_rb,9.0368e-03_rb,7.7990e-03_rb,6.4476e-03_rb, &
+     &5.0000e-03_rb,3.3597e-03_rb,2.0753e-03_rb/)
+      kao(:, 5, 4, 8) = (/ &
+     &1.2694e-02_rb,1.1662e-02_rb,1.0517e-02_rb,9.4548e-03_rb,8.2827e-03_rb,6.9233e-03_rb, &
+     &5.4172e-03_rb,3.7628e-03_rb,2.5678e-03_rb/)
+      kao(:, 1, 5, 8) = (/ &
+     &2.0656e-02_rb,1.8160e-02_rb,1.5700e-02_rb,1.3242e-02_rb,1.0772e-02_rb,8.3779e-03_rb, &
+     &6.0246e-03_rb,3.5524e-03_rb,1.1630e-03_rb/)
+      kao(:, 2, 5, 8) = (/ &
+     &2.0910e-02_rb,1.8437e-02_rb,1.6005e-02_rb,1.3585e-02_rb,1.1145e-02_rb,8.8221e-03_rb, &
+     &6.4062e-03_rb,3.8753e-03_rb,1.4990e-03_rb/)
+      kao(:, 3, 5, 8) = (/ &
+     &2.1222e-02_rb,1.8787e-02_rb,1.6416e-02_rb,1.3970e-02_rb,1.1606e-02_rb,9.3057e-03_rb, &
+     &6.8725e-03_rb,4.2169e-03_rb,1.9100e-03_rb/)
+      kao(:, 4, 5, 8) = (/ &
+     &2.1675e-02_rb,1.9271e-02_rb,1.6942e-02_rb,1.4504e-02_rb,1.2206e-02_rb,9.8161e-03_rb, &
+     &7.3695e-03_rb,4.6216e-03_rb,2.4296e-03_rb/)
+      kao(:, 5, 5, 8) = (/ &
+     &2.2102e-02_rb,1.9781e-02_rb,1.7441e-02_rb,1.5076e-02_rb,1.2804e-02_rb,1.0400e-02_rb, &
+     &7.9027e-03_rb,5.0748e-03_rb,2.9846e-03_rb/)
+      kao(:, 1, 6, 8) = (/ &
+     &3.4516e-02_rb,3.0236e-02_rb,2.6032e-02_rb,2.1800e-02_rb,1.7574e-02_rb,1.3389e-02_rb, &
+     &9.2847e-03_rb,5.1122e-03_rb,1.0508e-03_rb/)
+      kao(:, 2, 6, 8) = (/ &
+     &3.4800e-02_rb,3.0544e-02_rb,2.6323e-02_rb,2.2117e-02_rb,1.7921e-02_rb,1.3756e-02_rb, &
+     &9.6631e-03_rb,5.4342e-03_rb,1.4451e-03_rb/)
+      kao(:, 3, 6, 8) = (/ &
+     &3.5127e-02_rb,3.0902e-02_rb,2.6702e-02_rb,2.2553e-02_rb,1.8369e-02_rb,1.4212e-02_rb, &
+     &1.0118e-02_rb,5.8263e-03_rb,1.8818e-03_rb/)
+      kao(:, 4, 6, 8) = (/ &
+     &3.5628e-02_rb,3.1400e-02_rb,2.7233e-02_rb,2.3087e-02_rb,1.8895e-02_rb,1.4840e-02_rb, &
+     &1.0658e-02_rb,6.2966e-03_rb,2.4028e-03_rb/)
+      kao(:, 5, 6, 8) = (/ &
+     &3.6414e-02_rb,3.2167e-02_rb,2.8039e-02_rb,2.3770e-02_rb,1.9619e-02_rb,1.5526e-02_rb, &
+     &1.1248e-02_rb,6.8040e-03_rb,2.9828e-03_rb/)
+      kao(:, 1, 7, 8) = (/ &
+     &6.0465e-02_rb,5.2915e-02_rb,4.5423e-02_rb,3.7947e-02_rb,3.0446e-02_rb,2.2948e-02_rb, &
+     &1.5515e-02_rb,8.2239e-03_rb,1.0379e-03_rb/)
+      kao(:, 2, 7, 8) = (/ &
+     &6.0755e-02_rb,5.3175e-02_rb,4.5748e-02_rb,3.8231e-02_rb,3.0723e-02_rb,2.3271e-02_rb, &
+     &1.5903e-02_rb,8.5285e-03_rb,1.3797e-03_rb/)
+      kao(:, 3, 7, 8) = (/ &
+     &6.1398e-02_rb,5.3805e-02_rb,4.6318e-02_rb,3.8793e-02_rb,3.1274e-02_rb,2.3804e-02_rb, &
+     &1.6410e-02_rb,8.9355e-03_rb,1.8226e-03_rb/)
+      kao(:, 4, 7, 8) = (/ &
+     &6.2566e-02_rb,5.4915e-02_rb,4.7291e-02_rb,3.9712e-02_rb,3.2135e-02_rb,2.4531e-02_rb, &
+     &1.7075e-02_rb,9.4211e-03_rb,2.3895e-03_rb/)
+      kao(:, 5, 7, 8) = (/ &
+     &6.4353e-02_rb,5.6526e-02_rb,4.8732e-02_rb,4.1035e-02_rb,3.3303e-02_rb,2.5613e-02_rb, &
+     &1.7950e-02_rb,9.9840e-03_rb,2.9275e-03_rb/)
+      kao(:, 1, 8, 8) = (/ &
+     &1.2368e-01_rb,1.0822e-01_rb,9.2766e-02_rb,7.7347e-02_rb,6.2005e-02_rb,4.6603e-02_rb, &
+     &3.1194e-02_rb,1.5883e-02_rb,8.5274e-04_rb/)
+      kao(:, 2, 8, 8) = (/ &
+     &1.2468e-01_rb,1.0911e-01_rb,9.3546e-02_rb,7.8108e-02_rb,6.2629e-02_rb,4.7130e-02_rb, &
+     &3.1595e-02_rb,1.6348e-02_rb,1.3444e-03_rb/)
+      kao(:, 3, 8, 8) = (/ &
+     &1.2638e-01_rb,1.1058e-01_rb,9.4937e-02_rb,7.9293e-02_rb,6.3607e-02_rb,4.7918e-02_rb, &
+     &3.2304e-02_rb,1.6902e-02_rb,1.7616e-03_rb/)
+      kao(:, 4, 8, 8) = (/ &
+     &1.2969e-01_rb,1.1353e-01_rb,9.7623e-02_rb,8.1508e-02_rb,6.5432e-02_rb,4.9461e-02_rb, &
+     &3.3527e-02_rb,1.7620e-02_rb,2.4617e-03_rb/)
+      kao(:, 5, 8, 8) = (/ &
+     &1.3392e-01_rb,1.1729e-01_rb,1.0082e-01_rb,8.4317e-02_rb,6.7894e-02_rb,5.1430e-02_rb, &
+     &3.4991e-02_rb,1.8580e-02_rb,3.1642e-03_rb/)
+      kao(:, 1, 9, 8) = (/ &
+     &4.6846e-01_rb,4.0990e-01_rb,3.5136e-01_rb,2.9284e-01_rb,2.3423e-01_rb,1.7564e-01_rb, &
+     &1.1723e-01_rb,5.8786e-02_rb,4.0030e-04_rb/)
+      kao(:, 2, 9, 8) = (/ &
+     &4.7406e-01_rb,4.1475e-01_rb,3.5556e-01_rb,2.9624e-01_rb,2.3703e-01_rb,1.7789e-01_rb, &
+     &1.1882e-01_rb,5.9622e-02_rb,6.8004e-04_rb/)
+      kao(:, 3, 9, 8) = (/ &
+     &4.8684e-01_rb,4.2603e-01_rb,3.6514e-01_rb,3.0430e-01_rb,2.4358e-01_rb,1.8292e-01_rb, &
+     &1.2220e-01_rb,6.1402e-02_rb,1.0402e-03_rb/)
+      kao(:, 4, 9, 8) = (/ &
+     &5.0043e-01_rb,4.3778e-01_rb,3.7520e-01_rb,3.1290e-01_rb,2.5060e-01_rb,1.8834e-01_rb, &
+     &1.2594e-01_rb,6.3564e-02_rb,1.7944e-03_rb/)
+      kao(:, 5, 9, 8) = (/ &
+     &5.2090e-01_rb,4.5588e-01_rb,3.9070e-01_rb,3.2594e-01_rb,2.6129e-01_rb,1.9629e-01_rb, &
+     &1.3136e-01_rb,6.6645e-02_rb,2.5620e-03_rb/)
+      kao(:, 1,10, 8) = (/ &
+     &1.9599e+00_rb,1.7147e+00_rb,1.4700e+00_rb,1.2249e+00_rb,9.7999e-01_rb,7.3502e-01_rb, &
+     &4.8995e-01_rb,2.4496e-01_rb,4.5019e-04_rb/)
+      kao(:, 2,10, 8) = (/ &
+     &2.0004e+00_rb,1.7503e+00_rb,1.5003e+00_rb,1.2502e+00_rb,1.0002e+00_rb,7.5004e-01_rb, &
+     &5.0013e-01_rb,2.5017e-01_rb,7.7160e-04_rb/)
+      kao(:, 3,10, 8) = (/ &
+     &2.0706e+00_rb,1.8118e+00_rb,1.5527e+00_rb,1.2941e+00_rb,1.0353e+00_rb,7.7648e-01_rb, &
+     &5.1774e-01_rb,2.5926e-01_rb,1.2278e-03_rb/)
+      kao(:, 4,10, 8) = (/ &
+     &2.1488e+00_rb,1.8803e+00_rb,1.6119e+00_rb,1.3430e+00_rb,1.0744e+00_rb,8.0582e-01_rb, &
+     &5.3747e-01_rb,2.6934e-01_rb,1.1252e-03_rb/)
+      kao(:, 5,10, 8) = (/ &
+     &2.2415e+00_rb,1.9614e+00_rb,1.6811e+00_rb,1.4008e+00_rb,1.1207e+00_rb,8.4068e-01_rb, &
+     &5.6107e-01_rb,2.8130e-01_rb,1.6850e-03_rb/)
+      kao(:, 1,11, 8) = (/ &
+     &2.8911e+00_rb,2.5300e+00_rb,2.1683e+00_rb,1.8069e+00_rb,1.4455e+00_rb,1.0841e+00_rb, &
+     &7.2274e-01_rb,3.6133e-01_rb,4.4874e-04_rb/)
+      kao(:, 2,11, 8) = (/ &
+     &2.9950e+00_rb,2.6205e+00_rb,2.2462e+00_rb,1.8718e+00_rb,1.4974e+00_rb,1.1232e+00_rb, &
+     &7.4873e-01_rb,3.7448e-01_rb,7.8243e-04_rb/)
+      kao(:, 3,11, 8) = (/ &
+     &3.1150e+00_rb,2.7257e+00_rb,2.3363e+00_rb,1.9467e+00_rb,1.5577e+00_rb,1.1681e+00_rb, &
+     &7.7884e-01_rb,3.8967e-01_rb,1.2703e-03_rb/)
+      kao(:, 4,11, 8) = (/ &
+     &3.2669e+00_rb,2.8585e+00_rb,2.4505e+00_rb,2.0417e+00_rb,1.6337e+00_rb,1.2254e+00_rb, &
+     &8.1715e-01_rb,4.0914e-01_rb,1.7634e-03_rb/)
+      kao(:, 5,11, 8) = (/ &
+     &3.4234e+00_rb,2.9957e+00_rb,2.5672e+00_rb,2.1393e+00_rb,1.7114e+00_rb,1.2836e+00_rb, &
+     &8.5639e-01_rb,4.2894e-01_rb,1.6787e-03_rb/)
+      kao(:, 1,12, 8) = (/ &
+     &3.0768e+00_rb,2.6917e+00_rb,2.3070e+00_rb,1.9231e+00_rb,1.5383e+00_rb,1.1537e+00_rb, &
+     &7.6915e-01_rb,3.8462e-01_rb,4.7094e-04_rb/)
+      kao(:, 2,12, 8) = (/ &
+     &3.2435e+00_rb,2.8382e+00_rb,2.4330e+00_rb,2.0274e+00_rb,1.6219e+00_rb,1.2164e+00_rb, &
+     &8.1089e-01_rb,4.0548e-01_rb,8.2872e-04_rb/)
+      kao(:, 3,12, 8) = (/ &
+     &3.4231e+00_rb,2.9954e+00_rb,2.5672e+00_rb,2.1393e+00_rb,1.7115e+00_rb,1.2835e+00_rb, &
+     &8.5578e-01_rb,4.2826e-01_rb,1.3467e-03_rb/)
+      kao(:, 4,12, 8) = (/ &
+     &3.5915e+00_rb,3.1425e+00_rb,2.6940e+00_rb,2.2448e+00_rb,1.7959e+00_rb,1.3469e+00_rb, &
+     &8.9804e-01_rb,4.4980e-01_rb,2.0869e-03_rb/)
+      kao(:, 5,12, 8) = (/ &
+     &3.8078e+00_rb,3.3318e+00_rb,2.8557e+00_rb,2.3795e+00_rb,1.9039e+00_rb,1.4280e+00_rb, &
+     &9.5252e-01_rb,4.7712e-01_rb,1.8673e-03_rb/)
+      kao(:, 1,13, 8) = (/ &
+     &2.3608e+00_rb,2.0656e+00_rb,1.7703e+00_rb,1.4752e+00_rb,1.1801e+00_rb,8.8512e-01_rb, &
+     &5.9005e-01_rb,2.9502e-01_rb,4.6667e-04_rb/)
+      kao(:, 2,13, 8) = (/ &
+     &2.5500e+00_rb,2.2311e+00_rb,1.9119e+00_rb,1.5932e+00_rb,1.2746e+00_rb,9.5617e-01_rb, &
+     &6.3722e-01_rb,3.1884e-01_rb,8.1387e-04_rb/)
+      kao(:, 3,13, 8) = (/ &
+     &2.7068e+00_rb,2.3688e+00_rb,2.0306e+00_rb,1.6919e+00_rb,1.3534e+00_rb,1.0151e+00_rb, &
+     &6.7709e-01_rb,3.3887e-01_rb,1.3055e-03_rb/)
+      kao(:, 4,13, 8) = (/ &
+     &2.8840e+00_rb,2.5234e+00_rb,2.1627e+00_rb,1.8025e+00_rb,1.4417e+00_rb,1.0815e+00_rb, &
+     &7.2137e-01_rb,3.6139e-01_rb,1.9116e-03_rb/)
+      kao(:, 5,13, 8) = (/ &
+     &3.0939e+00_rb,2.7071e+00_rb,2.3203e+00_rb,1.9334e+00_rb,1.5471e+00_rb,1.1606e+00_rb, &
+     &7.7438e-01_rb,3.8815e-01_rb,1.4651e-03_rb/)
+      kao(:, 1, 1, 9) = (/ &
+     &3.8342e-03_rb,3.6037e-03_rb,3.3390e-03_rb,3.1415e-03_rb,3.0062e-03_rb,3.0639e-03_rb, &
+     &3.3790e-03_rb,3.9710e-03_rb,4.6693e-03_rb/)
+      kao(:, 2, 1, 9) = (/ &
+     &3.8099e-03_rb,3.5245e-03_rb,3.4236e-03_rb,3.3696e-03_rb,3.4435e-03_rb,3.7521e-03_rb, &
+     &4.3079e-03_rb,5.1949e-03_rb,5.9521e-03_rb/)
+      kao(:, 3, 1, 9) = (/ &
+     &3.6846e-03_rb,3.4976e-03_rb,3.5740e-03_rb,3.6729e-03_rb,4.0680e-03_rb,4.6302e-03_rb, &
+     &5.4360e-03_rb,6.6553e-03_rb,7.4735e-03_rb/)
+      kao(:, 4, 1, 9) = (/ &
+     &3.5274e-03_rb,3.5376e-03_rb,3.7030e-03_rb,4.1336e-03_rb,4.8513e-03_rb,5.7165e-03_rb, &
+     &6.7340e-03_rb,8.3554e-03_rb,9.2181e-03_rb/)
+      kao(:, 5, 1, 9) = (/ &
+     &3.3692e-03_rb,3.5348e-03_rb,3.9656e-03_rb,4.7179e-03_rb,5.7827e-03_rb,6.9797e-03_rb, &
+     &8.2404e-03_rb,1.0337e-02_rb,1.1151e-02_rb/)
+      kao(:, 1, 2, 9) = (/ &
+     &6.4244e-03_rb,5.9003e-03_rb,5.2917e-03_rb,4.8738e-03_rb,4.2886e-03_rb,3.6979e-03_rb, &
+     &3.3432e-03_rb,3.4356e-03_rb,4.2740e-03_rb/)
+      kao(:, 2, 2, 9) = (/ &
+     &6.4294e-03_rb,5.9365e-03_rb,5.4378e-03_rb,5.0910e-03_rb,4.5359e-03_rb,4.1466e-03_rb, &
+     &4.0476e-03_rb,4.4354e-03_rb,5.4215e-03_rb/)
+      kao(:, 3, 2, 9) = (/ &
+     &6.3847e-03_rb,6.0135e-03_rb,5.5846e-03_rb,5.2573e-03_rb,4.8954e-03_rb,4.7657e-03_rb, &
+     &4.9765e-03_rb,5.6368e-03_rb,6.8419e-03_rb/)
+      kao(:, 4, 2, 9) = (/ &
+     &6.3412e-03_rb,5.9177e-03_rb,5.7222e-03_rb,5.4979e-03_rb,5.4021e-03_rb,5.5794e-03_rb, &
+     &6.1113e-03_rb,7.0879e-03_rb,8.4995e-03_rb/)
+      kao(:, 5, 2, 9) = (/ &
+     &6.1488e-03_rb,5.8853e-03_rb,5.8235e-03_rb,5.8427e-03_rb,6.0130e-03_rb,6.6088e-03_rb, &
+     &7.4819e-03_rb,8.8092e-03_rb,1.0289e-02_rb/)
+      kao(:, 1, 3, 9) = (/ &
+     &1.4195e-02_rb,1.2643e-02_rb,1.1125e-02_rb,9.5338e-03_rb,8.0743e-03_rb,6.7413e-03_rb, &
+     &5.1394e-03_rb,3.4808e-03_rb,3.6417e-03_rb/)
+      kao(:, 2, 3, 9) = (/ &
+     &1.4156e-02_rb,1.2714e-02_rb,1.1322e-02_rb,9.8573e-03_rb,8.5639e-03_rb,7.1930e-03_rb, &
+     &5.4628e-03_rb,4.1430e-03_rb,4.8796e-03_rb/)
+      kao(:, 3, 3, 9) = (/ &
+     &1.4281e-02_rb,1.3014e-02_rb,1.1636e-02_rb,1.0282e-02_rb,9.0638e-03_rb,7.5306e-03_rb, &
+     &5.9490e-03_rb,5.0136e-03_rb,6.2613e-03_rb/)
+      kao(:, 4, 3, 9) = (/ &
+     &1.4318e-02_rb,1.3194e-02_rb,1.1832e-02_rb,1.0698e-02_rb,9.4111e-03_rb,7.9426e-03_rb, &
+     &6.6489e-03_rb,6.1359e-03_rb,7.8675e-03_rb/)
+      kao(:, 5, 3, 9) = (/ &
+     &1.4241e-02_rb,1.3300e-02_rb,1.2028e-02_rb,1.0934e-02_rb,9.7284e-03_rb,8.5621e-03_rb, &
+     &7.5356e-03_rb,7.5232e-03_rb,9.7190e-03_rb/)
+      kao(:, 1, 4, 9) = (/ &
+     &3.1371e-02_rb,2.7594e-02_rb,2.3918e-02_rb,2.0236e-02_rb,1.6538e-02_rb,1.2862e-02_rb, &
+     &9.3415e-03_rb,5.6206e-03_rb,3.0136e-03_rb/)
+      kao(:, 2, 4, 9) = (/ &
+     &3.1367e-02_rb,2.7706e-02_rb,2.4150e-02_rb,2.0624e-02_rb,1.6974e-02_rb,1.3427e-02_rb, &
+     &9.9709e-03_rb,6.1282e-03_rb,4.2995e-03_rb/)
+      kao(:, 3, 4, 9) = (/ &
+     &3.1583e-02_rb,2.8007e-02_rb,2.4625e-02_rb,2.1088e-02_rb,1.7481e-02_rb,1.4076e-02_rb, &
+     &1.0648e-02_rb,6.6037e-03_rb,5.6873e-03_rb/)
+      kao(:, 4, 4, 9) = (/ &
+     &3.1875e-02_rb,2.8446e-02_rb,2.5140e-02_rb,2.1570e-02_rb,1.8204e-02_rb,1.5013e-02_rb, &
+     &1.1353e-02_rb,7.2455e-03_rb,7.5289e-03_rb/)
+      kao(:, 5, 4, 9) = (/ &
+     &3.2159e-02_rb,2.8870e-02_rb,2.5760e-02_rb,2.2306e-02_rb,1.9019e-02_rb,1.5749e-02_rb, &
+     &1.1959e-02_rb,8.0455e-03_rb,9.2604e-03_rb/)
+      kao(:, 1, 5, 9) = (/ &
+     &6.1996e-02_rb,5.4276e-02_rb,4.6766e-02_rb,3.9233e-02_rb,3.1722e-02_rb,2.4192e-02_rb, &
+     &1.6676e-02_rb,9.3526e-03_rb,2.3723e-03_rb/)
+      kao(:, 2, 5, 9) = (/ &
+     &6.2786e-02_rb,5.5036e-02_rb,4.7544e-02_rb,4.0014e-02_rb,3.2500e-02_rb,2.4919e-02_rb, &
+     &1.7414e-02_rb,9.9958e-03_rb,3.1775e-03_rb/)
+      kao(:, 3, 5, 9) = (/ &
+     &6.3408e-02_rb,5.5719e-02_rb,4.8263e-02_rb,4.0805e-02_rb,3.3340e-02_rb,2.5705e-02_rb, &
+     &1.8217e-02_rb,1.0807e-02_rb,4.4457e-03_rb/)
+      kao(:, 4, 5, 9) = (/ &
+     &6.3958e-02_rb,5.6455e-02_rb,4.8967e-02_rb,4.1701e-02_rb,3.4289e-02_rb,2.6801e-02_rb, &
+     &1.9500e-02_rb,1.1614e-02_rb,6.0592e-03_rb/)
+      kao(:, 5, 5, 9) = (/ &
+     &6.4544e-02_rb,5.7091e-02_rb,4.9896e-02_rb,4.2837e-02_rb,3.5365e-02_rb,2.7903e-02_rb, &
+     &2.0589e-02_rb,1.2558e-02_rb,7.7840e-03_rb/)
+      kao(:, 1, 6, 9) = (/ &
+     &1.1420e-01_rb,9.9928e-02_rb,8.5730e-02_rb,7.1669e-02_rb,5.7641e-02_rb,4.3533e-02_rb, &
+     &2.9463e-02_rb,1.5596e-02_rb,1.8870e-03_rb/)
+      kao(:, 2, 6, 9) = (/ &
+     &1.1463e-01_rb,1.0031e-01_rb,8.6249e-02_rb,7.2249e-02_rb,5.8195e-02_rb,4.4132e-02_rb, &
+     &3.0125e-02_rb,1.6255e-02_rb,2.7185e-03_rb/)
+      kao(:, 3, 6, 9) = (/ &
+     &1.1505e-01_rb,1.0074e-01_rb,8.6836e-02_rb,7.2850e-02_rb,5.8886e-02_rb,4.5056e-02_rb, &
+     &3.1103e-02_rb,1.7221e-02_rb,3.7627e-03_rb/)
+      kao(:, 4, 6, 9) = (/ &
+     &1.1693e-01_rb,1.0252e-01_rb,8.8568e-02_rb,7.4567e-02_rb,6.0606e-02_rb,4.6540e-02_rb, &
+     &3.2424e-02_rb,1.8275e-02_rb,5.0267e-03_rb/)
+      kao(:, 5, 6, 9) = (/ &
+     &1.1806e-01_rb,1.0371e-01_rb,8.9817e-02_rb,7.5865e-02_rb,6.1963e-02_rb,4.7866e-02_rb, &
+     &3.3695e-02_rb,1.9500e-02_rb,6.8317e-03_rb/)
+      kao(:, 1, 7, 9) = (/ &
+     &2.1427e-01_rb,1.8749e-01_rb,1.6070e-01_rb,1.3399e-01_rb,1.0738e-01_rb,8.0867e-02_rb, &
+     &5.4264e-02_rb,2.7682e-02_rb,1.2395e-03_rb/)
+      kao(:, 2, 7, 9) = (/ &
+     &2.1459e-01_rb,1.8775e-01_rb,1.6094e-01_rb,1.3438e-01_rb,1.0794e-01_rb,8.1406e-02_rb, &
+     &5.4844e-02_rb,2.8427e-02_rb,2.0965e-03_rb/)
+      kao(:, 3, 7, 9) = (/ &
+     &2.1615e-01_rb,1.8914e-01_rb,1.6231e-01_rb,1.3573e-01_rb,1.0921e-01_rb,8.2571e-02_rb, &
+     &5.5952e-02_rb,2.9582e-02_rb,3.1925e-03_rb/)
+      kao(:, 4, 7, 9) = (/ &
+     &2.1891e-01_rb,1.9155e-01_rb,1.6470e-01_rb,1.3802e-01_rb,1.1113e-01_rb,8.4390e-02_rb, &
+     &5.7587e-02_rb,3.0908e-02_rb,4.5715e-03_rb/)
+      kao(:, 5, 7, 9) = (/ &
+     &2.2155e-01_rb,1.9400e-01_rb,1.6713e-01_rb,1.4027e-01_rb,1.1333e-01_rb,8.6454e-02_rb, &
+     &5.9526e-02_rb,3.2445e-02_rb,6.5617e-03_rb/)
+      kao(:, 1, 8, 9) = (/ &
+     &4.6547e-01_rb,4.0732e-01_rb,3.4911e-01_rb,2.9100e-01_rb,2.3277e-01_rb,1.7470e-01_rb, &
+     &1.1672e-01_rb,5.8764e-02_rb,8.5250e-04_rb/)
+      kao(:, 2, 8, 9) = (/ &
+     &4.6469e-01_rb,4.0659e-01_rb,3.4854e-01_rb,2.9045e-01_rb,2.3244e-01_rb,1.7466e-01_rb, &
+     &1.1705e-01_rb,5.9152e-02_rb,1.3360e-03_rb/)
+      kao(:, 3, 8, 9) = (/ &
+     &4.6927e-01_rb,4.1062e-01_rb,3.5196e-01_rb,2.9346e-01_rb,2.3515e-01_rb,1.7702e-01_rb, &
+     &1.1874e-01_rb,6.0462e-02_rb,2.4435e-03_rb/)
+      kao(:, 4, 8, 9) = (/ &
+     &4.7393e-01_rb,4.1463e-01_rb,3.5541e-01_rb,2.9668e-01_rb,2.3809e-01_rb,1.7953e-01_rb, &
+     &1.2082e-01_rb,6.2242e-02_rb,3.3995e-03_rb/)
+      kao(:, 5, 8, 9) = (/ &
+     &4.8023e-01_rb,4.2020e-01_rb,3.6048e-01_rb,3.0117e-01_rb,2.4212e-01_rb,1.8271e-01_rb, &
+     &1.2350e-01_rb,6.4451e-02_rb,5.1655e-03_rb/)
+      kao(:, 1, 9, 9) = (/ &
+     &1.9039e+00_rb,1.6660e+00_rb,1.4281e+00_rb,1.1899e+00_rb,9.5193e-01_rb,7.1405e-01_rb, &
+     &4.7606e-01_rb,2.3807e-01_rb,5.1784e-04_rb/)
+      kao(:, 2, 9, 9) = (/ &
+     &1.8960e+00_rb,1.6589e+00_rb,1.4220e+00_rb,1.1850e+00_rb,9.4792e-01_rb,7.1098e-01_rb, &
+     &4.7399e-01_rb,2.3745e-01_rb,1.0379e-03_rb/)
+      kao(:, 3, 9, 9) = (/ &
+     &1.8985e+00_rb,1.6610e+00_rb,1.4239e+00_rb,1.1866e+00_rb,9.4922e-01_rb,7.1187e-01_rb, &
+     &4.7501e-01_rb,2.3850e-01_rb,1.9956e-03_rb/)
+      kao(:, 4, 9, 9) = (/ &
+     &1.9331e+00_rb,1.6922e+00_rb,1.4503e+00_rb,1.2084e+00_rb,9.6666e-01_rb,7.2514e-01_rb, &
+     &4.8432e-01_rb,2.4379e-01_rb,3.3200e-03_rb/)
+      kao(:, 5, 9, 9) = (/ &
+     &1.9563e+00_rb,1.7116e+00_rb,1.4675e+00_rb,1.2227e+00_rb,9.7814e-01_rb,7.3426e-01_rb, &
+     &4.9112e-01_rb,2.4753e-01_rb,5.3379e-03_rb/)
+      kao(:, 1,10, 9) = (/ &
+     &8.5901e+00_rb,7.5167e+00_rb,6.4427e+00_rb,5.3701e+00_rb,4.2955e+00_rb,3.2213e+00_rb, &
+     &2.1478e+00_rb,1.0738e+00_rb,2.8232e-05_rb/)
+      kao(:, 2,10, 9) = (/ &
+     &8.5325e+00_rb,7.4671e+00_rb,6.4018e+00_rb,5.3343e+00_rb,4.2664e+00_rb,3.2001e+00_rb, &
+     &2.1333e+00_rb,1.0667e+00_rb,3.4266e-05_rb/)
+      kao(:, 3,10, 9) = (/ &
+     &8.5180e+00_rb,7.4539e+00_rb,6.3892e+00_rb,5.3241e+00_rb,4.2587e+00_rb,3.1944e+00_rb, &
+     &2.1293e+00_rb,1.0648e+00_rb,4.9015e-05_rb/)
+      kao(:, 4,10, 9) = (/ &
+     &8.6373e+00_rb,7.5561e+00_rb,6.4798e+00_rb,5.3988e+00_rb,4.3190e+00_rb,3.2393e+00_rb, &
+     &2.1596e+00_rb,1.0801e+00_rb,1.1052e-03_rb/)
+      kao(:, 5,10, 9) = (/ &
+     &8.7651e+00_rb,7.6691e+00_rb,6.5729e+00_rb,5.4773e+00_rb,4.3830e+00_rb,3.2869e+00_rb, &
+     &2.1915e+00_rb,1.0965e+00_rb,2.0612e-03_rb/)
+      kao(:, 1,11, 9) = (/ &
+     &1.3293e+01_rb,1.1631e+01_rb,9.9694e+00_rb,8.3080e+00_rb,6.6463e+00_rb,4.9848e+00_rb, &
+     &3.3235e+00_rb,1.6616e+00_rb,8.6041e-05_rb/)
+      kao(:, 2,11, 9) = (/ &
+     &1.3175e+01_rb,1.1527e+01_rb,9.8819e+00_rb,8.2359e+00_rb,6.5871e+00_rb,4.9407e+00_rb, &
+     &3.2935e+00_rb,1.6469e+00_rb,8.8405e-05_rb/)
+      kao(:, 3,11, 9) = (/ &
+     &1.3260e+01_rb,1.1601e+01_rb,9.9453e+00_rb,8.2878e+00_rb,6.6300e+00_rb,4.9725e+00_rb, &
+     &3.3155e+00_rb,1.6576e+00_rb,7.6661e-05_rb/)
+      kao(:, 4,11, 9) = (/ &
+     &1.3414e+01_rb,1.1737e+01_rb,1.0061e+01_rb,8.3841e+00_rb,6.7068e+00_rb,5.0294e+00_rb, &
+     &3.3528e+00_rb,1.6766e+00_rb,3.1506e-04_rb/)
+      kao(:, 5,11, 9) = (/ &
+     &1.3624e+01_rb,1.1922e+01_rb,1.0219e+01_rb,8.5160e+00_rb,6.8128e+00_rb,5.1095e+00_rb, &
+     &3.4058e+00_rb,1.7038e+00_rb,1.6944e-03_rb/)
+      kao(:, 1,12, 9) = (/ &
+     &1.4782e+01_rb,1.2935e+01_rb,1.1089e+01_rb,9.2388e+00_rb,7.3920e+00_rb,5.5445e+00_rb, &
+     &3.6962e+00_rb,1.8480e+00_rb,1.3867e-04_rb/)
+      kao(:, 2,12, 9) = (/ &
+     &1.4730e+01_rb,1.2889e+01_rb,1.1047e+01_rb,9.2076e+00_rb,7.3659e+00_rb,5.5246e+00_rb, &
+     &3.6830e+00_rb,1.8415e+00_rb,1.5061e-04_rb/)
+      kao(:, 3,12, 9) = (/ &
+     &1.4865e+01_rb,1.3005e+01_rb,1.1148e+01_rb,9.2913e+00_rb,7.4319e+00_rb,5.5733e+00_rb, &
+     &3.7153e+00_rb,1.8580e+00_rb,1.4666e-04_rb/)
+      kao(:, 4,12, 9) = (/ &
+     &1.5163e+01_rb,1.3269e+01_rb,1.1374e+01_rb,9.4785e+00_rb,7.5816e+00_rb,5.6866e+00_rb, &
+     &3.7915e+00_rb,1.8957e+00_rb,1.4926e-04_rb/)
+      kao(:, 5,12, 9) = (/ &
+     &1.5423e+01_rb,1.3495e+01_rb,1.1567e+01_rb,9.6394e+00_rb,7.7115e+00_rb,5.7838e+00_rb, &
+     &3.8558e+00_rb,1.9287e+00_rb,1.8983e-03_rb/)
+      kao(:, 1,13, 9) = (/ &
+     &1.2526e+01_rb,1.0960e+01_rb,9.3953e+00_rb,7.8295e+00_rb,6.2636e+00_rb,4.6971e+00_rb, &
+     &3.1319e+00_rb,1.5656e+00_rb,2.2960e-04_rb/)
+      kao(:, 2,13, 9) = (/ &
+     &1.2594e+01_rb,1.1020e+01_rb,9.4466e+00_rb,7.8734e+00_rb,6.2977e+00_rb,4.7229e+00_rb, &
+     &3.1489e+00_rb,1.5743e+00_rb,3.0250e-04_rb/)
+      kao(:, 3,13, 9) = (/ &
+     &1.2808e+01_rb,1.1205e+01_rb,9.6060e+00_rb,8.0068e+00_rb,6.4043e+00_rb,4.8030e+00_rb, &
+     &3.2030e+00_rb,1.6008e+00_rb,4.1712e-04_rb/)
+      kao(:, 4,13, 9) = (/ &
+     &1.3107e+01_rb,1.1466e+01_rb,9.8274e+00_rb,8.1873e+00_rb,6.5536e+00_rb,4.9140e+00_rb, &
+     &3.2751e+00_rb,1.6381e+00_rb,6.5679e-04_rb/)
+      kao(:, 5,13, 9) = (/ &
+     &1.3444e+01_rb,1.1761e+01_rb,1.0081e+01_rb,8.4011e+00_rb,6.7204e+00_rb,5.0404e+00_rb, &
+     &3.3592e+00_rb,1.6815e+00_rb,2.8416e-03_rb/)
+      kao(:, 1, 1,10) = (/ &
+     &4.6973e-03_rb,3.3679e-03_rb,3.0810e-03_rb,4.4179e-03_rb,5.3922e-03_rb,6.8127e-03_rb, &
+     &7.5300e-03_rb,9.6520e-03_rb,1.0742e-02_rb/)
+      kao(:, 2, 1,10) = (/ &
+     &3.3940e-03_rb,3.6347e-03_rb,3.8181e-03_rb,5.7069e-03_rb,7.1993e-03_rb,9.1516e-03_rb, &
+     &1.0242e-02_rb,1.2914e-02_rb,1.4284e-02_rb/)
+      kao(:, 3, 1,10) = (/ &
+     &2.9328e-03_rb,3.5249e-03_rb,5.0061e-03_rb,7.3569e-03_rb,8.9474e-03_rb,1.1546e-02_rb, &
+     &1.2963e-02_rb,1.7115e-02_rb,1.7551e-02_rb/)
+      kao(:, 4, 1,10) = (/ &
+     &2.4964e-03_rb,3.6551e-03_rb,6.6228e-03_rb,8.9461e-03_rb,1.0774e-02_rb,1.3965e-02_rb, &
+     &1.7435e-02_rb,2.2332e-02_rb,2.1398e-02_rb/)
+      kao(:, 5, 1,10) = (/ &
+     &2.1304e-03_rb,4.5161e-03_rb,8.4664e-03_rb,1.0811e-02_rb,1.3640e-02_rb,1.7099e-02_rb, &
+     &2.2735e-02_rb,2.8461e-02_rb,2.7259e-02_rb/)
+      kao(:, 1, 2,10) = (/ &
+     &9.4205e-03_rb,8.2881e-03_rb,6.8055e-03_rb,5.1998e-03_rb,6.0003e-03_rb,6.4194e-03_rb, &
+     &7.3653e-03_rb,8.1269e-03_rb,1.1868e-02_rb/)
+      kao(:, 2, 2,10) = (/ &
+     &8.5761e-03_rb,7.3303e-03_rb,5.6742e-03_rb,5.4200e-03_rb,7.5061e-03_rb,8.7164e-03_rb, &
+     &9.8614e-03_rb,1.1132e-02_rb,1.4929e-02_rb/)
+      kao(:, 3, 2,10) = (/ &
+     &7.2342e-03_rb,5.9377e-03_rb,5.5335e-03_rb,7.0973e-03_rb,9.3181e-03_rb,1.1104e-02_rb, &
+     &1.2752e-02_rb,1.5333e-02_rb,1.8200e-02_rb/)
+      kao(:, 4, 2,10) = (/ &
+     &5.3015e-03_rb,5.6105e-03_rb,6.0212e-03_rb,9.3735e-03_rb,1.1344e-02_rb,1.3845e-02_rb, &
+     &1.6350e-02_rb,2.0205e-02_rb,2.2040e-02_rb/)
+      kao(:, 5, 2,10) = (/ &
+     &4.6868e-03_rb,5.1363e-03_rb,7.4969e-03_rb,1.0079e-02_rb,1.4155e-02_rb,1.6850e-02_rb, &
+     &1.9756e-02_rb,2.5412e-02_rb,2.7831e-02_rb/)
+      kao(:, 1, 3,10) = (/ &
+     &2.2659e-02_rb,2.0083e-02_rb,1.7749e-02_rb,1.5132e-02_rb,1.2304e-02_rb,9.8131e-03_rb, &
+     &6.5475e-03_rb,7.6061e-03_rb,9.2024e-03_rb/)
+      kao(:, 2, 3,10) = (/ &
+     &2.3012e-02_rb,2.0379e-02_rb,1.7548e-02_rb,1.4904e-02_rb,1.1694e-02_rb,9.3796e-03_rb, &
+     &9.2412e-03_rb,1.0030e-02_rb,1.2744e-02_rb/)
+      kao(:, 3, 3,10) = (/ &
+     &2.1396e-02_rb,1.8727e-02_rb,1.6107e-02_rb,1.2456e-02_rb,1.0255e-02_rb,1.0536e-02_rb, &
+     &1.1966e-02_rb,1.3095e-02_rb,1.7259e-02_rb/)
+      kao(:, 4, 3,10) = (/ &
+     &1.9331e-02_rb,1.6488e-02_rb,1.2963e-02_rb,1.0270e-02_rb,1.1515e-02_rb,1.2315e-02_rb, &
+     &1.5198e-02_rb,1.6672e-02_rb,2.2500e-02_rb/)
+      kao(:, 5, 3,10) = (/ &
+     &1.6551e-02_rb,1.3344e-02_rb,1.1001e-02_rb,1.0385e-02_rb,1.2450e-02_rb,1.4894e-02_rb, &
+     &1.8912e-02_rb,2.0849e-02_rb,2.4782e-02_rb/)
+      kao(:, 1, 4,10) = (/ &
+     &5.3443e-02_rb,4.6752e-02_rb,4.0212e-02_rb,3.3727e-02_rb,2.6764e-02_rb,2.0366e-02_rb, &
+     &1.4100e-02_rb,8.5626e-03_rb,5.0179e-03_rb/)
+      kao(:, 2, 4,10) = (/ &
+     &5.5520e-02_rb,4.8788e-02_rb,4.2227e-02_rb,3.5776e-02_rb,2.9164e-02_rb,2.2326e-02_rb, &
+     &1.5452e-02_rb,9.1701e-03_rb,6.6031e-03_rb/)
+      kao(:, 3, 4,10) = (/ &
+     &5.3841e-02_rb,4.7471e-02_rb,4.1338e-02_rb,3.5633e-02_rb,2.9297e-02_rb,2.2785e-02_rb, &
+     &1.5793e-02_rb,1.1481e-02_rb,9.9885e-03_rb/)
+      kao(:, 4, 4,10) = (/ &
+     &5.4923e-02_rb,4.8665e-02_rb,4.2046e-02_rb,3.5458e-02_rb,2.8786e-02_rb,2.1135e-02_rb, &
+     &1.3946e-02_rb,1.4729e-02_rb,1.3190e-02_rb/)
+      kao(:, 5, 4,10) = (/ &
+     &5.1650e-02_rb,4.6045e-02_rb,4.0319e-02_rb,3.3252e-02_rb,2.5245e-02_rb,1.9132e-02_rb, &
+     &1.5667e-02_rb,1.8634e-02_rb,1.9277e-02_rb/)
+      kao(:, 1, 5,10) = (/ &
+     &1.1780e-01_rb,1.0308e-01_rb,8.8391e-02_rb,7.4152e-02_rb,5.9704e-02_rb,4.5204e-02_rb, &
+     &3.0807e-02_rb,1.6385e-02_rb,4.0089e-03_rb/)
+      kao(:, 2, 5,10) = (/ &
+     &1.1261e-01_rb,9.8543e-02_rb,8.5059e-02_rb,7.1216e-02_rb,5.7505e-02_rb,4.3649e-02_rb, &
+     &3.0528e-02_rb,1.7529e-02_rb,9.3093e-03_rb/)
+      kao(:, 3, 5,10) = (/ &
+     &1.1400e-01_rb,9.9742e-02_rb,8.6449e-02_rb,7.3042e-02_rb,5.9615e-02_rb,4.6638e-02_rb, &
+     &3.2532e-02_rb,1.8567e-02_rb,1.1184e-02_rb/)
+      kao(:, 4, 5,10) = (/ &
+     &1.1613e-01_rb,1.0163e-01_rb,8.9121e-02_rb,7.4876e-02_rb,6.0453e-02_rb,4.6196e-02_rb, &
+     &3.1216e-02_rb,1.9048e-02_rb,1.2339e-02_rb/)
+      kao(:, 5, 5,10) = (/ &
+     &1.2016e-01_rb,1.0608e-01_rb,9.2375e-02_rb,7.6465e-02_rb,6.2248e-02_rb,4.8476e-02_rb, &
+     &3.3522e-02_rb,1.7446e-02_rb,1.7040e-02_rb/)
+      kao(:, 1, 6,10) = (/ &
+     &2.3387e-01_rb,2.0464e-01_rb,1.7541e-01_rb,1.4624e-01_rb,1.1769e-01_rb,8.8692e-02_rb, &
+     &5.9747e-02_rb,3.0756e-02_rb,2.5605e-03_rb/)
+      kao(:, 2, 6,10) = (/ &
+     &2.3730e-01_rb,2.0756e-01_rb,1.7772e-01_rb,1.4892e-01_rb,1.1985e-01_rb,9.0758e-02_rb, &
+     &6.1778e-02_rb,3.2933e-02_rb,4.6893e-03_rb/)
+      kao(:, 3, 6,10) = (/ &
+     &2.4203e-01_rb,2.1158e-01_rb,1.8155e-01_rb,1.5250e-01_rb,1.2284e-01_rb,9.2705e-02_rb, &
+     &6.3067e-02_rb,3.2776e-02_rb,9.7345e-03_rb/)
+      kao(:, 4, 6,10) = (/ &
+     &2.3049e-01_rb,2.0160e-01_rb,1.7416e-01_rb,1.4569e-01_rb,1.1768e-01_rb,8.9784e-02_rb, &
+     &6.1642e-02_rb,3.4682e-02_rb,1.6936e-02_rb/)
+      kao(:, 5, 6,10) = (/ &
+     &2.3636e-01_rb,2.0679e-01_rb,1.7932e-01_rb,1.5154e-01_rb,1.2337e-01_rb,9.4475e-02_rb, &
+     &6.5584e-02_rb,3.6305e-02_rb,2.2069e-02_rb/)
+      kao(:, 1, 7,10) = (/ &
+     &4.9443e-01_rb,4.3211e-01_rb,3.7050e-01_rb,3.0887e-01_rb,2.4699e-01_rb,1.8540e-01_rb, &
+     &1.2438e-01_rb,6.2986e-02_rb,2.0096e-03_rb/)
+      kao(:, 2, 7,10) = (/ &
+     &4.9639e-01_rb,4.3473e-01_rb,3.7266e-01_rb,3.1039e-01_rb,2.4852e-01_rb,1.8749e-01_rb, &
+     &1.2568e-01_rb,6.4131e-02_rb,3.0764e-03_rb/)
+      kao(:, 3, 7,10) = (/ &
+     &4.9265e-01_rb,4.3128e-01_rb,3.6987e-01_rb,3.0823e-01_rb,2.4792e-01_rb,1.8671e-01_rb, &
+     &1.2562e-01_rb,6.4213e-02_rb,5.4655e-03_rb/)
+      kao(:, 4, 7,10) = (/ &
+     &4.7703e-01_rb,4.1742e-01_rb,3.5749e-01_rb,2.9850e-01_rb,2.4081e-01_rb,1.8239e-01_rb, &
+     &1.2380e-01_rb,6.5802e-02_rb,1.0925e-02_rb/)
+      kao(:, 5, 7,10) = (/ &
+     &4.8180e-01_rb,4.2216e-01_rb,3.6195e-01_rb,3.0277e-01_rb,2.4364e-01_rb,1.8402e-01_rb, &
+     &1.2523e-01_rb,6.7909e-02_rb,1.4296e-02_rb/)
+      kao(:, 1, 8,10) = (/ &
+     &1.1962e+00_rb,1.0464e+00_rb,8.9717e-01_rb,7.4708e-01_rb,5.9764e-01_rb,4.4825e-01_rb, &
+     &2.9884e-01_rb,1.5061e-01_rb,3.8986e-03_rb/)
+      kao(:, 2, 8,10) = (/ &
+     &1.2041e+00_rb,1.0536e+00_rb,9.0306e-01_rb,7.5220e-01_rb,6.0244e-01_rb,4.5171e-01_rb, &
+     &3.0103e-01_rb,1.5197e-01_rb,3.3573e-03_rb/)
+      kao(:, 3, 8,10) = (/ &
+     &1.1525e+00_rb,1.0084e+00_rb,8.6433e-01_rb,7.2027e-01_rb,5.7631e-01_rb,4.3217e-01_rb, &
+     &2.8996e-01_rb,1.4673e-01_rb,3.4045e-03_rb/)
+      kao(:, 4, 8,10) = (/ &
+     &1.1627e+00_rb,1.0178e+00_rb,8.7243e-01_rb,7.2665e-01_rb,5.8167e-01_rb,4.3823e-01_rb, &
+     &2.9244e-01_rb,1.4815e-01_rb,8.5595e-03_rb/)
+      kao(:, 5, 8,10) = (/ &
+     &1.1683e+00_rb,1.0228e+00_rb,8.7612e-01_rb,7.3014e-01_rb,5.8445e-01_rb,4.4237e-01_rb, &
+     &2.9748e-01_rb,1.5239e-01_rb,1.0748e-02_rb/)
+      kao(:, 1, 9,10) = (/ &
+     &5.3473e+00_rb,4.6810e+00_rb,4.0088e+00_rb,3.3420e+00_rb,2.6745e+00_rb,2.0052e+00_rb, &
+     &1.3357e+00_rb,6.6899e-01_rb,9.0646e-06_rb/)
+      kao(:, 2, 9,10) = (/ &
+     &5.3849e+00_rb,4.7131e+00_rb,4.0386e+00_rb,3.3668e+00_rb,2.6936e+00_rb,2.0203e+00_rb, &
+     &1.3467e+00_rb,6.7337e-01_rb,1.6160e-05_rb/)
+      kao(:, 3, 9,10) = (/ &
+     &5.2604e+00_rb,4.6046e+00_rb,3.9456e+00_rb,3.2881e+00_rb,2.6303e+00_rb,1.9734e+00_rb, &
+     &1.3151e+00_rb,6.5758e-01_rb,2.7795e-05_rb/)
+      kao(:, 4, 9,10) = (/ &
+     &4.9950e+00_rb,4.3651e+00_rb,3.7432e+00_rb,3.1211e+00_rb,2.4979e+00_rb,1.8723e+00_rb, &
+     &1.2477e+00_rb,6.2561e-01_rb,4.1978e-05_rb/)
+      kao(:, 5, 9,10) = (/ &
+     &5.1108e+00_rb,4.4671e+00_rb,3.8297e+00_rb,3.1913e+00_rb,2.5537e+00_rb,1.9170e+00_rb, &
+     &1.2756e+00_rb,6.4540e-01_rb,6.6209e-05_rb/)
+      kao(:, 1,10,10) = (/ &
+     &2.6042e+01_rb,2.2785e+01_rb,1.9540e+01_rb,1.6264e+01_rb,1.3016e+01_rb,9.7654e+00_rb, &
+     &6.5078e+00_rb,3.2552e+00_rb,5.7707e-06_rb/)
+      kao(:, 2,10,10) = (/ &
+     &2.6479e+01_rb,2.3167e+01_rb,1.9837e+01_rb,1.6530e+01_rb,1.3239e+01_rb,9.9265e+00_rb, &
+     &6.6195e+00_rb,3.3086e+00_rb,1.0081e-05_rb/)
+      kao(:, 3,10,10) = (/ &
+     &2.6009e+01_rb,2.2746e+01_rb,1.9506e+01_rb,1.6255e+01_rb,1.3009e+01_rb,9.7479e+00_rb, &
+     &6.5045e+00_rb,3.2511e+00_rb,1.6976e-05_rb/)
+      kao(:, 4,10,10) = (/ &
+     &2.4905e+01_rb,2.1818e+01_rb,1.8660e+01_rb,1.5572e+01_rb,1.2451e+01_rb,9.3433e+00_rb, &
+     &6.2220e+00_rb,3.1125e+00_rb,2.8117e-05_rb/)
+      kao(:, 5,10,10) = (/ &
+     &2.5169e+01_rb,2.2024e+01_rb,1.8885e+01_rb,1.5746e+01_rb,1.2587e+01_rb,9.4388e+00_rb, &
+     &6.2934e+00_rb,3.1427e+00_rb,4.4861e-05_rb/)
+      kao(:, 1,11,10) = (/ &
+     &4.3366e+01_rb,3.7949e+01_rb,3.2540e+01_rb,2.7105e+01_rb,2.1683e+01_rb,1.6263e+01_rb, &
+     &1.0837e+01_rb,5.4210e+00_rb,4.9323e-06_rb/)
+      kao(:, 2,11,10) = (/ &
+     &4.4481e+01_rb,3.8935e+01_rb,3.3362e+01_rb,2.7791e+01_rb,2.2247e+01_rb,1.6680e+01_rb, &
+     &1.1125e+01_rb,5.5599e+00_rb,8.9387e-06_rb/)
+      kao(:, 3,11,10) = (/ &
+     &4.2759e+01_rb,3.7428e+01_rb,3.2070e+01_rb,2.6725e+01_rb,2.1369e+01_rb,1.6026e+01_rb, &
+     &1.0686e+01_rb,5.3424e+00_rb,1.3904e-05_rb/)
+      kao(:, 4,11,10) = (/ &
+     &4.2776e+01_rb,3.7387e+01_rb,3.2051e+01_rb,2.6735e+01_rb,2.1399e+01_rb,1.6039e+01_rb, &
+     &1.0699e+01_rb,5.3492e+00_rb,2.3732e-05_rb/)
+      kao(:, 5,11,10) = (/ &
+     &4.2881e+01_rb,3.7499e+01_rb,3.2160e+01_rb,2.6814e+01_rb,2.1427e+01_rb,1.6080e+01_rb, &
+     &1.0724e+01_rb,5.3602e+00_rb,3.9053e-05_rb/)
+      kao(:, 1,12,10) = (/ &
+     &5.2035e+01_rb,4.5530e+01_rb,3.8991e+01_rb,3.2521e+01_rb,2.6007e+01_rb,1.9502e+01_rb, &
+     &1.3003e+01_rb,6.5017e+00_rb,4.1086e-06_rb/)
+      kao(:, 2,12,10) = (/ &
+     &5.2620e+01_rb,4.6040e+01_rb,3.9465e+01_rb,3.2876e+01_rb,2.6300e+01_rb,1.9726e+01_rb, &
+     &1.3150e+01_rb,6.5751e+00_rb,7.6006e-06_rb/)
+      kao(:, 3,12,10) = (/ &
+     &5.1699e+01_rb,4.5233e+01_rb,3.8772e+01_rb,3.2297e+01_rb,2.5847e+01_rb,1.9404e+01_rb, &
+     &1.2928e+01_rb,6.4618e+00_rb,1.3155e-05_rb/)
+      kao(:, 4,12,10) = (/ &
+     &5.1530e+01_rb,4.5092e+01_rb,3.8615e+01_rb,3.2196e+01_rb,2.5751e+01_rb,1.9320e+01_rb, &
+     &1.2877e+01_rb,6.4388e+00_rb,2.2125e-05_rb/)
+      kao(:, 5,12,10) = (/ &
+     &5.2358e+01_rb,4.5788e+01_rb,3.9246e+01_rb,3.2725e+01_rb,2.6162e+01_rb,1.9634e+01_rb, &
+     &1.3083e+01_rb,6.5448e+00_rb,3.4034e-05_rb/)
+      kao(:, 1,13,10) = (/ &
+     &4.8070e+01_rb,4.2058e+01_rb,3.6028e+01_rb,3.0041e+01_rb,2.4032e+01_rb,1.8020e+01_rb, &
+     &1.2016e+01_rb,6.0067e+00_rb,1.1683e-05_rb/)
+      kao(:, 2,13,10) = (/ &
+     &4.7586e+01_rb,4.1613e+01_rb,3.5689e+01_rb,2.9748e+01_rb,2.3780e+01_rb,1.7835e+01_rb, &
+     &1.1890e+01_rb,5.9450e+00_rb,6.6906e-06_rb/)
+      kao(:, 3,13,10) = (/ &
+     &4.7760e+01_rb,4.1804e+01_rb,3.5818e+01_rb,2.9821e+01_rb,2.3863e+01_rb,1.7898e+01_rb, &
+     &1.1923e+01_rb,5.9715e+00_rb,1.1688e-05_rb/)
+      kao(:, 4,13,10) = (/ &
+     &4.7976e+01_rb,4.1998e+01_rb,3.6011e+01_rb,3.0021e+01_rb,2.3989e+01_rb,1.7987e+01_rb, &
+     &1.2008e+01_rb,6.0018e+00_rb,2.0801e-05_rb/)
+      kao(:, 5,13,10) = (/ &
+     &4.8185e+01_rb,4.2179e+01_rb,3.6131e+01_rb,3.0110e+01_rb,2.4087e+01_rb,1.8066e+01_rb, &
+     &1.2054e+01_rb,6.0193e+00_rb,3.3629e-05_rb/)
+      kao(:, 1, 1,11) = (/ &
+     &2.3144e-03_rb,3.0235e-03_rb,4.2030e-03_rb,4.5486e-03_rb,6.9673e-03_rb,8.5656e-03_rb, &
+     &1.0150e-02_rb,1.3548e-02_rb,1.3475e-02_rb/)
+      kao(:, 2, 1,11) = (/ &
+     &2.0416e-03_rb,3.1999e-03_rb,4.6569e-03_rb,6.4031e-03_rb,9.8267e-03_rb,1.1395e-02_rb, &
+     &1.5022e-02_rb,1.8877e-02_rb,1.8904e-02_rb/)
+      kao(:, 3, 1,11) = (/ &
+     &1.8509e-03_rb,4.2185e-03_rb,5.5775e-03_rb,9.1095e-03_rb,1.2979e-02_rb,1.4639e-02_rb, &
+     &2.1829e-02_rb,2.5577e-02_rb,2.5272e-02_rb/)
+      kao(:, 4, 1,11) = (/ &
+     &1.7995e-03_rb,5.2396e-03_rb,7.4739e-03_rb,1.1646e-02_rb,1.7153e-02_rb,1.9747e-02_rb, &
+     &2.8712e-02_rb,3.3739e-02_rb,3.3147e-02_rb/)
+      kao(:, 5, 1,11) = (/ &
+     &1.8412e-03_rb,6.1417e-03_rb,9.5119e-03_rb,1.5457e-02_rb,2.1034e-02_rb,2.5800e-02_rb, &
+     &3.6795e-02_rb,4.3339e-02_rb,4.2100e-02_rb/)
+      kao(:, 1, 2,11) = (/ &
+     &7.4427e-03_rb,5.5490e-03_rb,4.6664e-03_rb,4.6380e-03_rb,5.2610e-03_rb,8.4068e-03_rb, &
+     &1.0505e-02_rb,1.1967e-02_rb,1.0119e-02_rb/)
+      kao(:, 2, 2,11) = (/ &
+     &5.3180e-03_rb,5.4523e-03_rb,5.6480e-03_rb,5.7960e-03_rb,8.0504e-03_rb,1.1015e-02_rb, &
+     &1.3308e-02_rb,1.6901e-02_rb,1.5834e-02_rb/)
+      kao(:, 3, 2,11) = (/ &
+     &4.1509e-03_rb,5.0420e-03_rb,5.9494e-03_rb,7.8778e-03_rb,1.1077e-02_rb,1.4709e-02_rb, &
+     &1.7403e-02_rb,2.2592e-02_rb,2.1710e-02_rb/)
+      kao(:, 4, 2,11) = (/ &
+     &3.7251e-03_rb,5.8604e-03_rb,7.1881e-03_rb,1.0249e-02_rb,1.4831e-02_rb,1.9015e-02_rb, &
+     &2.1299e-02_rb,2.9770e-02_rb,2.9198e-02_rb/)
+      kao(:, 5, 2,11) = (/ &
+     &3.3170e-03_rb,7.3759e-03_rb,9.2312e-03_rb,1.4285e-02_rb,1.9035e-02_rb,2.3096e-02_rb, &
+     &2.6856e-02_rb,3.8325e-02_rb,3.7190e-02_rb/)
+      kao(:, 1, 3,11) = (/ &
+     &2.3930e-02_rb,2.1175e-02_rb,1.8068e-02_rb,1.3752e-02_rb,9.3232e-03_rb,6.3033e-03_rb, &
+     &9.0890e-03_rb,1.0309e-02_rb,9.2920e-03_rb/)
+      kao(:, 2, 3,11) = (/ &
+     &2.1364e-02_rb,1.8346e-02_rb,1.4408e-02_rb,1.0567e-02_rb,7.3487e-03_rb,8.3255e-03_rb, &
+     &1.2320e-02_rb,1.3559e-02_rb,1.1942e-02_rb/)
+      kao(:, 3, 3,11) = (/ &
+     &1.6897e-02_rb,1.4069e-02_rb,1.1090e-02_rb,9.4072e-03_rb,9.0158e-03_rb,1.2182e-02_rb, &
+     &1.6529e-02_rb,1.8032e-02_rb,1.6702e-02_rb/)
+      kao(:, 4, 3,11) = (/ &
+     &1.1735e-02_rb,1.1062e-02_rb,1.1919e-02_rb,1.0177e-02_rb,1.1885e-02_rb,1.6740e-02_rb, &
+     &2.0422e-02_rb,2.2761e-02_rb,2.2381e-02_rb/)
+      kao(:, 5, 3,11) = (/ &
+     &9.3268e-03_rb,1.0886e-02_rb,1.2245e-02_rb,1.2355e-02_rb,1.5695e-02_rb,2.1667e-02_rb, &
+     &2.4460e-02_rb,2.7729e-02_rb,3.0274e-02_rb/)
+      kao(:, 1, 4,11) = (/ &
+     &5.8030e-02_rb,5.0790e-02_rb,4.4332e-02_rb,3.7503e-02_rb,3.1337e-02_rb,2.3862e-02_rb, &
+     &1.5919e-02_rb,8.9924e-03_rb,1.0517e-02_rb/)
+      kao(:, 2, 4,11) = (/ &
+     &5.8203e-02_rb,5.1238e-02_rb,4.3852e-02_rb,3.6687e-02_rb,2.8842e-02_rb,2.1050e-02_rb, &
+     &1.3525e-02_rb,1.1884e-02_rb,1.5506e-02_rb/)
+      kao(:, 3, 4,11) = (/ &
+     &6.0219e-02_rb,5.3113e-02_rb,4.5845e-02_rb,3.6288e-02_rb,2.6852e-02_rb,1.6648e-02_rb, &
+     &1.3537e-02_rb,1.6277e-02_rb,1.8129e-02_rb/)
+      kao(:, 4, 4,11) = (/ &
+     &4.9871e-02_rb,4.2283e-02_rb,3.5849e-02_rb,2.8922e-02_rb,1.9343e-02_rb,1.4341e-02_rb, &
+     &1.8188e-02_rb,2.0990e-02_rb,2.0822e-02_rb/)
+      kao(:, 5, 4,11) = (/ &
+     &3.8385e-02_rb,3.4058e-02_rb,2.7365e-02_rb,2.1994e-02_rb,1.7140e-02_rb,1.6164e-02_rb, &
+     &2.3472e-02_rb,2.6305e-02_rb,2.6373e-02_rb/)
+      kao(:, 1, 5,11) = (/ &
+     &1.3556e-01_rb,1.1844e-01_rb,1.0158e-01_rb,8.5252e-02_rb,6.8440e-02_rb,5.1875e-02_rb, &
+     &3.5448e-02_rb,1.8978e-02_rb,8.8762e-03_rb/)
+      kao(:, 2, 5,11) = (/ &
+     &1.3807e-01_rb,1.2082e-01_rb,1.0421e-01_rb,8.7432e-02_rb,7.0858e-02_rb,5.4903e-02_rb, &
+     &3.7824e-02_rb,2.0068e-02_rb,1.1692e-02_rb/)
+      kao(:, 3, 5,11) = (/ &
+     &1.3721e-01_rb,1.2013e-01_rb,1.0360e-01_rb,8.7259e-02_rb,7.0575e-02_rb,5.3560e-02_rb, &
+     &3.5670e-02_rb,1.8870e-02_rb,1.8216e-02_rb/)
+      kao(:, 4, 5,11) = (/ &
+     &1.2962e-01_rb,1.1333e-01_rb,9.6679e-02_rb,8.1723e-02_rb,6.6334e-02_rb,5.1939e-02_rb, &
+     &3.3737e-02_rb,2.0192e-02_rb,2.7154e-02_rb/)
+      kao(:, 5, 5,11) = (/ &
+     &1.2340e-01_rb,1.0852e-01_rb,9.2540e-02_rb,7.8313e-02_rb,6.2622e-02_rb,4.1413e-02_rb, &
+     &2.5923e-02_rb,2.4326e-02_rb,3.4052e-02_rb/)
+      kao(:, 1, 6,11) = (/ &
+     &2.8825e-01_rb,2.5222e-01_rb,2.1620e-01_rb,1.8017e-01_rb,1.4417e-01_rb,1.0893e-01_rb, &
+     &7.3359e-02_rb,3.7509e-02_rb,5.6670e-03_rb/)
+      kao(:, 2, 6,11) = (/ &
+     &2.8768e-01_rb,2.5188e-01_rb,2.1600e-01_rb,1.7993e-01_rb,1.4497e-01_rb,1.0976e-01_rb, &
+     &7.3838e-02_rb,3.8599e-02_rb,8.8428e-03_rb/)
+      kao(:, 3, 6,11) = (/ &
+     &2.8241e-01_rb,2.4722e-01_rb,2.1181e-01_rb,1.7724e-01_rb,1.4248e-01_rb,1.0766e-01_rb, &
+     &7.3624e-02_rb,3.9950e-02_rb,1.3973e-02_rb/)
+      kao(:, 4, 6,11) = (/ &
+     &2.8627e-01_rb,2.5067e-01_rb,2.1487e-01_rb,1.8056e-01_rb,1.4619e-01_rb,1.1172e-01_rb, &
+     &7.8306e-02_rb,4.0986e-02_rb,2.0403e-02_rb/)
+      kao(:, 5, 6,11) = (/ &
+     &2.7874e-01_rb,2.4399e-01_rb,2.0989e-01_rb,1.7645e-01_rb,1.4231e-01_rb,1.0969e-01_rb, &
+     &7.6704e-02_rb,4.0995e-02_rb,2.4450e-02_rb/)
+      kao(:, 1, 7,11) = (/ &
+     &6.1169e-01_rb,5.3575e-01_rb,4.5923e-01_rb,3.8252e-01_rb,3.0616e-01_rb,2.2929e-01_rb, &
+     &1.5383e-01_rb,7.7531e-02_rb,2.8956e-03_rb/)
+      kao(:, 2, 7,11) = (/ &
+     &6.1159e-01_rb,5.3511e-01_rb,4.5848e-01_rb,3.8242e-01_rb,3.0567e-01_rb,2.3004e-01_rb, &
+     &1.5345e-01_rb,7.7731e-02_rb,6.2629e-03_rb/)
+      kao(:, 3, 7,11) = (/ &
+     &6.0642e-01_rb,5.3036e-01_rb,4.5410e-01_rb,3.7880e-01_rb,3.0308e-01_rb,2.2893e-01_rb, &
+     &1.5450e-01_rb,7.9546e-02_rb,1.1879e-02_rb/)
+      kao(:, 4, 7,11) = (/ &
+     &6.2322e-01_rb,5.4531e-01_rb,4.6718e-01_rb,3.8974e-01_rb,3.1356e-01_rb,2.3563e-01_rb, &
+     &1.5873e-01_rb,8.1521e-02_rb,1.3030e-02_rb/)
+      kao(:, 5, 7,11) = (/ &
+     &6.1773e-01_rb,5.4019e-01_rb,4.6283e-01_rb,3.8859e-01_rb,3.1161e-01_rb,2.3601e-01_rb, &
+     &1.5998e-01_rb,8.3125e-02_rb,1.9458e-02_rb/)
+      kao(:, 1, 8,11) = (/ &
+     &1.4932e+00_rb,1.3065e+00_rb,1.1199e+00_rb,9.3315e-01_rb,7.4665e-01_rb,5.5991e-01_rb, &
+     &3.7327e-01_rb,1.8697e-01_rb,1.1999e-05_rb/)
+      kao(:, 2, 8,11) = (/ &
+     &1.5196e+00_rb,1.3312e+00_rb,1.1397e+00_rb,9.5010e-01_rb,7.6026e-01_rb,5.7020e-01_rb, &
+     &3.8013e-01_rb,1.9174e-01_rb,7.7042e-03_rb/)
+      kao(:, 3, 8,11) = (/ &
+     &1.5505e+00_rb,1.3567e+00_rb,1.1629e+00_rb,9.6902e-01_rb,7.7525e-01_rb,5.8146e-01_rb, &
+     &3.8981e-01_rb,1.9691e-01_rb,1.2006e-02_rb/)
+      kao(:, 4, 8,11) = (/ &
+     &1.4878e+00_rb,1.3018e+00_rb,1.1160e+00_rb,9.2984e-01_rb,7.4341e-01_rb,5.5771e-01_rb, &
+     &3.7622e-01_rb,1.9146e-01_rb,1.2696e-02_rb/)
+      kao(:, 5, 8,11) = (/ &
+     &1.4729e+00_rb,1.2883e+00_rb,1.1049e+00_rb,9.2129e-01_rb,7.3618e-01_rb,5.5599e-01_rb, &
+     &3.7163e-01_rb,1.8805e-01_rb,1.8722e-02_rb/)
+      kao(:, 1, 9,11) = (/ &
+     &6.8904e+00_rb,6.0266e+00_rb,5.1680e+00_rb,4.3068e+00_rb,3.4452e+00_rb,2.5839e+00_rb, &
+     &1.7234e+00_rb,8.6092e-01_rb,6.7224e-06_rb/)
+      kao(:, 2, 9,11) = (/ &
+     &7.0980e+00_rb,6.2107e+00_rb,5.3294e+00_rb,4.4415e+00_rb,3.5510e+00_rb,2.6633e+00_rb, &
+     &1.7755e+00_rb,8.8723e-01_rb,1.2025e-05_rb/)
+      kao(:, 3, 9,11) = (/ &
+     &7.2688e+00_rb,6.3564e+00_rb,5.4482e+00_rb,4.5401e+00_rb,3.6343e+00_rb,2.7243e+00_rb, &
+     &1.8161e+00_rb,9.0754e-01_rb,1.9985e-05_rb/)
+      kao(:, 4, 9,11) = (/ &
+     &7.1740e+00_rb,6.2782e+00_rb,5.3807e+00_rb,4.4818e+00_rb,3.5855e+00_rb,2.6901e+00_rb, &
+     &1.7938e+00_rb,8.9646e-01_rb,3.0947e-05_rb/)
+      kao(:, 5, 9,11) = (/ &
+     &6.7468e+00_rb,5.9097e+00_rb,5.0601e+00_rb,4.2188e+00_rb,3.3754e+00_rb,2.5313e+00_rb, &
+     &1.6873e+00_rb,8.4597e-01_rb,4.6476e-05_rb/)
+      kao(:, 1,10,11) = (/ &
+     &3.5457e+01_rb,3.1027e+01_rb,2.6582e+01_rb,2.2175e+01_rb,1.7740e+01_rb,1.3297e+01_rb, &
+     &8.8648e+00_rb,4.4349e+00_rb,3.8551e-06_rb/)
+      kao(:, 2,10,11) = (/ &
+     &3.5857e+01_rb,3.1366e+01_rb,2.6891e+01_rb,2.2421e+01_rb,1.7929e+01_rb,1.3446e+01_rb, &
+     &8.9645e+00_rb,4.4822e+00_rb,7.1785e-06_rb/)
+      kao(:, 3,10,11) = (/ &
+     &3.7065e+01_rb,3.2447e+01_rb,2.7799e+01_rb,2.3166e+01_rb,1.8532e+01_rb,1.3906e+01_rb, &
+     &9.2664e+00_rb,4.6331e+00_rb,1.2630e-05_rb/)
+      kao(:, 4,10,11) = (/ &
+     &3.6718e+01_rb,3.2113e+01_rb,2.7539e+01_rb,2.2938e+01_rb,1.8366e+01_rb,1.3764e+01_rb, &
+     &9.1841e+00_rb,4.5916e+00_rb,2.1179e-05_rb/)
+      kao(:, 5,10,11) = (/ &
+     &3.5010e+01_rb,3.0613e+01_rb,2.6257e+01_rb,2.1870e+01_rb,1.7497e+01_rb,1.3129e+01_rb, &
+     &8.7481e+00_rb,4.3808e+00_rb,3.3504e-05_rb/)
+      kao(:, 1,11,11) = (/ &
+     &6.2218e+01_rb,5.4427e+01_rb,4.6646e+01_rb,3.8874e+01_rb,3.1110e+01_rb,2.3334e+01_rb, &
+     &1.5561e+01_rb,7.7776e+00_rb,3.5875e-06_rb/)
+      kao(:, 2,11,11) = (/ &
+     &6.2105e+01_rb,5.4407e+01_rb,4.6579e+01_rb,3.8839e+01_rb,3.1033e+01_rb,2.3318e+01_rb, &
+     &1.5536e+01_rb,7.7679e+00_rb,5.9066e-06_rb/)
+      kao(:, 3,11,11) = (/ &
+     &6.4816e+01_rb,5.6715e+01_rb,4.8615e+01_rb,4.0513e+01_rb,3.2442e+01_rb,2.4317e+01_rb, &
+     &1.6205e+01_rb,8.1056e+00_rb,1.0776e-05_rb/)
+      kao(:, 4,11,11) = (/ &
+     &6.2787e+01_rb,5.4987e+01_rb,4.7112e+01_rb,3.9241e+01_rb,3.1378e+01_rb,2.3555e+01_rb, &
+     &1.5697e+01_rb,7.8485e+00_rb,1.7304e-05_rb/)
+      kao(:, 5,11,11) = (/ &
+     &6.1876e+01_rb,5.4130e+01_rb,4.6407e+01_rb,3.8627e+01_rb,3.0933e+01_rb,2.3204e+01_rb, &
+     &1.5469e+01_rb,7.7346e+00_rb,2.7512e-05_rb/)
+      kao(:, 1,12,11) = (/ &
+     &8.0103e+01_rb,7.0095e+01_rb,6.0103e+01_rb,5.0066e+01_rb,4.0052e+01_rb,3.0040e+01_rb, &
+     &2.0026e+01_rb,1.0013e+01_rb,3.2505e-06_rb/)
+      kao(:, 2,12,11) = (/ &
+     &7.9090e+01_rb,6.9204e+01_rb,5.9318e+01_rb,4.9432e+01_rb,3.9544e+01_rb,2.9659e+01_rb, &
+     &1.9773e+01_rb,9.8860e+00_rb,5.5034e-06_rb/)
+      kao(:, 3,12,11) = (/ &
+     &7.9848e+01_rb,6.9859e+01_rb,5.9882e+01_rb,4.9902e+01_rb,3.9894e+01_rb,2.9946e+01_rb, &
+     &1.9960e+01_rb,9.9805e+00_rb,8.6063e-06_rb/)
+      kao(:, 4,12,11) = (/ &
+     &7.8661e+01_rb,6.8779e+01_rb,5.8977e+01_rb,4.9159e+01_rb,3.9293e+01_rb,2.9497e+01_rb, &
+     &1.9663e+01_rb,9.8183e+00_rb,1.4131e-05_rb/)
+      kao(:, 5,12,11) = (/ &
+     &7.8792e+01_rb,6.8975e+01_rb,5.9124e+01_rb,4.9246e+01_rb,3.9445e+01_rb,2.9569e+01_rb, &
+     &1.9707e+01_rb,9.8563e+00_rb,2.3305e-05_rb/)
+      kao(:, 1,13,11) = (/ &
+     &7.5314e+01_rb,6.5898e+01_rb,5.6507e+01_rb,4.7072e+01_rb,3.7657e+01_rb,2.8254e+01_rb, &
+     &1.8828e+01_rb,9.4159e+00_rb,2.7819e-06_rb/)
+      kao(:, 2,13,11) = (/ &
+     &7.4029e+01_rb,6.4852e+01_rb,5.5523e+01_rb,4.6247e+01_rb,3.7031e+01_rb,2.7774e+01_rb, &
+     &1.8528e+01_rb,9.2576e+00_rb,5.0908e-06_rb/)
+      kao(:, 3,13,11) = (/ &
+     &7.3797e+01_rb,6.4573e+01_rb,5.5347e+01_rb,4.6143e+01_rb,3.6917e+01_rb,2.7689e+01_rb, &
+     &1.8458e+01_rb,9.2250e+00_rb,8.2936e-06_rb/)
+      kao(:, 4,13,11) = (/ &
+     &7.5507e+01_rb,6.6112e+01_rb,5.6628e+01_rb,4.7225e+01_rb,3.7779e+01_rb,2.8348e+01_rb, &
+     &1.8877e+01_rb,9.4449e+00_rb,1.2487e-05_rb/)
+      kao(:, 5,13,11) = (/ &
+     &7.6962e+01_rb,6.7290e+01_rb,5.7729e+01_rb,4.8107e+01_rb,3.8486e+01_rb,2.8863e+01_rb, &
+     &1.9221e+01_rb,9.6284e+00_rb,1.8751e-05_rb/)
+      kao(:, 1, 1,12) = (/ &
+     &1.1046e-03_rb,3.3707e-03_rb,5.0558e-03_rb,8.2647e-03_rb,9.1015e-03_rb,1.0694e-02_rb, &
+     &1.8807e-02_rb,2.2647e-02_rb,1.8110e-02_rb/)
+      kao(:, 2, 1,12) = (/ &
+     &1.0969e-03_rb,4.7708e-03_rb,7.6740e-03_rb,1.0546e-02_rb,1.0900e-02_rb,1.6801e-02_rb, &
+     &2.5799e-02_rb,3.1294e-02_rb,2.2312e-02_rb/)
+      kao(:, 3, 1,12) = (/ &
+     &1.0873e-03_rb,6.1594e-03_rb,1.0535e-02_rb,1.2275e-02_rb,1.5399e-02_rb,2.5780e-02_rb, &
+     &3.4278e-02_rb,4.1551e-02_rb,3.1702e-02_rb/)
+      kao(:, 4, 1,12) = (/ &
+     &1.0681e-03_rb,6.7407e-03_rb,1.3124e-02_rb,1.6579e-02_rb,1.9835e-02_rb,3.5596e-02_rb, &
+     &4.4369e-02_rb,5.3472e-02_rb,4.1109e-02_rb/)
+      kao(:, 5, 1,12) = (/ &
+     &1.0270e-03_rb,8.1418e-03_rb,1.5112e-02_rb,2.0848e-02_rb,2.8658e-02_rb,4.6490e-02_rb, &
+     &5.6118e-02_rb,6.7233e-02_rb,5.7448e-02_rb/)
+      kao(:, 1, 2,12) = (/ &
+     &1.5646e-03_rb,3.6954e-03_rb,5.8279e-03_rb,7.1796e-03_rb,9.8217e-03_rb,9.7524e-03_rb, &
+     &1.1081e-02_rb,1.8489e-02_rb,1.8167e-02_rb/)
+      kao(:, 2, 2,12) = (/ &
+     &1.5547e-03_rb,3.8903e-03_rb,7.0691e-03_rb,1.0316e-02_rb,1.1952e-02_rb,1.3642e-02_rb, &
+     &1.6631e-02_rb,2.5775e-02_rb,2.2105e-02_rb/)
+      kao(:, 3, 2,12) = (/ &
+     &1.5005e-03_rb,5.8120e-03_rb,1.0164e-02_rb,1.2828e-02_rb,1.5616e-02_rb,1.8084e-02_rb, &
+     &2.4815e-02_rb,3.4836e-02_rb,2.8922e-02_rb/)
+      kao(:, 4, 2,12) = (/ &
+     &1.4224e-03_rb,7.6958e-03_rb,1.3586e-02_rb,1.5505e-02_rb,1.9916e-02_rb,2.3661e-02_rb, &
+     &3.6496e-02_rb,4.5732e-02_rb,3.8152e-02_rb/)
+      kao(:, 5, 2,12) = (/ &
+     &1.3736e-03_rb,9.1086e-03_rb,1.6016e-02_rb,2.0127e-02_rb,2.5470e-02_rb,3.1020e-02_rb, &
+     &5.0141e-02_rb,5.8654e-02_rb,5.1074e-02_rb/)
+      kao(:, 1, 3,12) = (/ &
+     &1.0482e-02_rb,8.9646e-03_rb,6.8350e-03_rb,8.2815e-03_rb,8.8992e-03_rb,1.0605e-02_rb, &
+     &1.0328e-02_rb,1.1583e-02_rb,1.6044e-02_rb/)
+      kao(:, 2, 3,12) = (/ &
+     &5.7078e-03_rb,6.1160e-03_rb,7.6830e-03_rb,9.7377e-03_rb,1.2964e-02_rb,1.2587e-02_rb, &
+     &1.4124e-02_rb,1.6978e-02_rb,2.4120e-02_rb/)
+      kao(:, 3, 3,12) = (/ &
+     &3.9502e-03_rb,6.0459e-03_rb,1.0569e-02_rb,1.4120e-02_rb,1.6811e-02_rb,1.6440e-02_rb, &
+     &1.9141e-02_rb,2.2713e-02_rb,3.1566e-02_rb/)
+      kao(:, 4, 3,12) = (/ &
+     &3.2701e-03_rb,7.5815e-03_rb,1.2592e-02_rb,1.9220e-02_rb,1.9128e-02_rb,2.1966e-02_rb, &
+     &2.6084e-02_rb,3.3096e-02_rb,3.6118e-02_rb/)
+      kao(:, 5, 3,12) = (/ &
+     &2.7401e-03_rb,7.8080e-03_rb,1.5492e-02_rb,2.3290e-02_rb,2.4892e-02_rb,2.8848e-02_rb, &
+     &3.4321e-02_rb,4.6873e-02_rb,4.7340e-02_rb/)
+      kao(:, 1, 4,12) = (/ &
+     &6.0672e-02_rb,5.3090e-02_rb,4.4556e-02_rb,3.6202e-02_rb,2.6483e-02_rb,1.8181e-02_rb, &
+     &1.2199e-02_rb,1.0993e-02_rb,1.4969e-02_rb/)
+      kao(:, 2, 4,12) = (/ &
+     &4.3589e-02_rb,3.8144e-02_rb,3.0755e-02_rb,2.3593e-02_rb,1.9730e-02_rb,1.5624e-02_rb, &
+     &1.3490e-02_rb,1.5542e-02_rb,2.0057e-02_rb/)
+      kao(:, 3, 4,12) = (/ &
+     &2.4695e-02_rb,2.2865e-02_rb,1.7074e-02_rb,1.5816e-02_rb,1.6661e-02_rb,2.0463e-02_rb, &
+     &1.7348e-02_rb,2.1210e-02_rb,2.8829e-02_rb/)
+      kao(:, 4, 4,12) = (/ &
+     &1.4306e-02_rb,1.8283e-02_rb,1.4453e-02_rb,1.9081e-02_rb,2.2731e-02_rb,2.4085e-02_rb, &
+     &2.3223e-02_rb,2.7809e-02_rb,4.1362e-02_rb/)
+      kao(:, 5, 4,12) = (/ &
+     &1.0713e-02_rb,1.1979e-02_rb,1.4158e-02_rb,2.2119e-02_rb,2.9428e-02_rb,2.9426e-02_rb, &
+     &3.0795e-02_rb,3.5958e-02_rb,5.4444e-02_rb/)
+      kao(:, 1, 5,12) = (/ &
+     &1.5652e-01_rb,1.3723e-01_rb,1.1755e-01_rb,9.8247e-02_rb,7.8467e-02_rb,5.9349e-02_rb, &
+     &3.9820e-02_rb,1.8398e-02_rb,1.1394e-02_rb/)
+      kao(:, 2, 5,12) = (/ &
+     &1.5350e-01_rb,1.3431e-01_rb,1.1514e-01_rb,9.6381e-02_rb,7.7667e-02_rb,5.6368e-02_rb, &
+     &3.3743e-02_rb,1.4780e-02_rb,1.5913e-02_rb/)
+      kao(:, 3, 5,12) = (/ &
+     &1.3349e-01_rb,1.1672e-01_rb,9.9565e-02_rb,8.1852e-02_rb,6.1169e-02_rb,4.3464e-02_rb, &
+     &2.9522e-02_rb,1.7569e-02_rb,2.3571e-02_rb/)
+      kao(:, 4, 5,12) = (/ &
+     &1.0423e-01_rb,9.1271e-02_rb,7.7253e-02_rb,6.0811e-02_rb,4.8046e-02_rb,3.4464e-02_rb, &
+     &2.5349e-02_rb,2.3626e-02_rb,3.4271e-02_rb/)
+      kao(:, 5, 5,12) = (/ &
+     &6.1168e-02_rb,5.3666e-02_rb,4.5385e-02_rb,3.6131e-02_rb,3.2187e-02_rb,3.6873e-02_rb, &
+     &3.0883e-02_rb,3.2443e-02_rb,4.3030e-02_rb/)
+      kao(:, 1, 6,12) = (/ &
+     &3.3296e-01_rb,2.9114e-01_rb,2.4975e-01_rb,2.0812e-01_rb,1.6650e-01_rb,1.2577e-01_rb, &
+     &8.4465e-02_rb,4.3210e-02_rb,7.5744e-03_rb/)
+      kao(:, 2, 6,12) = (/ &
+     &3.2661e-01_rb,2.8604e-01_rb,2.4502e-01_rb,2.0429e-01_rb,1.6474e-01_rb,1.2400e-01_rb, &
+     &8.4046e-02_rb,4.3324e-02_rb,1.2737e-02_rb/)
+      kao(:, 3, 6,12) = (/ &
+     &3.3274e-01_rb,2.9155e-01_rb,2.4958e-01_rb,2.1022e-01_rb,1.6841e-01_rb,1.2817e-01_rb, &
+     &8.5832e-02_rb,4.1156e-02_rb,1.9272e-02_rb/)
+      kao(:, 4, 6,12) = (/ &
+     &3.2428e-01_rb,2.8378e-01_rb,2.4307e-01_rb,2.0420e-01_rb,1.6451e-01_rb,1.2138e-01_rb, &
+     &7.6212e-02_rb,3.3602e-02_rb,2.1893e-02_rb/)
+      kao(:, 5, 6,12) = (/ &
+     &2.8830e-01_rb,2.5208e-01_rb,2.1788e-01_rb,1.7562e-01_rb,1.3634e-01_rb,9.6797e-02_rb, &
+     &6.1659e-02_rb,2.8996e-02_rb,3.3943e-02_rb/)
+      kao(:, 1, 7,12) = (/ &
+     &7.1633e-01_rb,6.2687e-01_rb,5.3652e-01_rb,4.4712e-01_rb,3.5797e-01_rb,2.6845e-01_rb, &
+     &1.7938e-01_rb,9.0924e-02_rb,9.7506e-03_rb/)
+      kao(:, 2, 7,12) = (/ &
+     &7.4602e-01_rb,6.5233e-01_rb,5.5949e-01_rb,4.6595e-01_rb,3.7278e-01_rb,2.7940e-01_rb, &
+     &1.8898e-01_rb,9.6146e-02_rb,1.9089e-02_rb/)
+      kao(:, 3, 7,12) = (/ &
+     &7.5756e-01_rb,6.6287e-01_rb,5.6888e-01_rb,4.7384e-01_rb,3.7881e-01_rb,2.8626e-01_rb, &
+     &1.9222e-01_rb,9.8080e-02_rb,1.5850e-02_rb/)
+      kao(:, 4, 7,12) = (/ &
+     &7.2210e-01_rb,6.3187e-01_rb,5.4195e-01_rb,4.5134e-01_rb,3.6428e-01_rb,2.7503e-01_rb, &
+     &1.8532e-01_rb,9.5998e-02_rb,2.2744e-02_rb/)
+      kao(:, 5, 7,12) = (/ &
+     &7.1833e-01_rb,6.2908e-01_rb,5.3886e-01_rb,4.4907e-01_rb,3.6079e-01_rb,2.7147e-01_rb, &
+     &1.8148e-01_rb,9.1961e-02_rb,3.2788e-02_rb/)
+      kao(:, 1, 8,12) = (/ &
+     &1.8651e+00_rb,1.6319e+00_rb,1.3988e+00_rb,1.1656e+00_rb,9.3248e-01_rb,6.9936e-01_rb, &
+     &4.6627e-01_rb,2.3315e-01_rb,7.1174e-06_rb/)
+      kao(:, 2, 8,12) = (/ &
+     &1.9142e+00_rb,1.6730e+00_rb,1.4347e+00_rb,1.1964e+00_rb,9.5588e-01_rb,7.1697e-01_rb, &
+     &4.7797e-01_rb,2.4089e-01_rb,1.3089e-05_rb/)
+      kao(:, 3, 8,12) = (/ &
+     &1.9338e+00_rb,1.6922e+00_rb,1.4504e+00_rb,1.2080e+00_rb,9.6694e-01_rb,7.2522e-01_rb, &
+     &4.8350e-01_rb,2.4403e-01_rb,6.4382e-03_rb/)
+      kao(:, 4, 8,12) = (/ &
+     &1.9257e+00_rb,1.6851e+00_rb,1.4444e+00_rb,1.2027e+00_rb,9.6352e-01_rb,7.2222e-01_rb, &
+     &4.8580e-01_rb,2.4642e-01_rb,2.0202e-02_rb/)
+      kao(:, 5, 8,12) = (/ &
+     &1.8578e+00_rb,1.6228e+00_rb,1.3921e+00_rb,1.1585e+00_rb,9.2745e-01_rb,6.9620e-01_rb, &
+     &4.7147e-01_rb,2.4294e-01_rb,3.5578e-02_rb/)
+      kao(:, 1, 9,12) = (/ &
+     &8.9732e+00_rb,7.8574e+00_rb,6.7348e+00_rb,5.6085e+00_rb,4.4901e+00_rb,3.3675e+00_rb, &
+     &2.2449e+00_rb,1.1217e+00_rb,5.5128e-06_rb/)
+      kao(:, 2, 9,12) = (/ &
+     &9.0176e+00_rb,7.8899e+00_rb,6.7555e+00_rb,5.6293e+00_rb,4.5061e+00_rb,3.3798e+00_rb, &
+     &2.2531e+00_rb,1.1272e+00_rb,1.0749e-05_rb/)
+      kao(:, 3, 9,12) = (/ &
+     &9.1462e+00_rb,8.0080e+00_rb,6.8640e+00_rb,5.7226e+00_rb,4.5733e+00_rb,3.4343e+00_rb, &
+     &2.2880e+00_rb,1.1452e+00_rb,1.7030e-05_rb/)
+      kao(:, 4, 9,12) = (/ &
+     &9.3997e+00_rb,8.2308e+00_rb,7.0500e+00_rb,5.8749e+00_rb,4.7035e+00_rb,3.5295e+00_rb, &
+     &2.3500e+00_rb,1.1750e+00_rb,2.7289e-05_rb/)
+      kao(:, 5, 9,12) = (/ &
+     &9.4496e+00_rb,8.2622e+00_rb,7.0818e+00_rb,5.9018e+00_rb,4.7215e+00_rb,3.5410e+00_rb, &
+     &2.3622e+00_rb,1.1804e+00_rb,4.0208e-05_rb/)
+      kao(:, 1,10,12) = (/ &
+     &4.7340e+01_rb,4.1390e+01_rb,3.5503e+01_rb,2.9570e+01_rb,2.3638e+01_rb,1.7753e+01_rb, &
+     &1.1835e+01_rb,5.9140e+00_rb,4.0857e-06_rb/)
+      kao(:, 2,10,12) = (/ &
+     &4.7468e+01_rb,4.1532e+01_rb,3.5600e+01_rb,2.9666e+01_rb,2.3733e+01_rb,1.7801e+01_rb, &
+     &1.1867e+01_rb,5.9335e+00_rb,7.3318e-06_rb/)
+      kao(:, 3,10,12) = (/ &
+     &4.7779e+01_rb,4.1808e+01_rb,3.5836e+01_rb,2.9862e+01_rb,2.3890e+01_rb,1.7931e+01_rb, &
+     &1.1954e+01_rb,5.9724e+00_rb,1.2287e-05_rb/)
+      kao(:, 4,10,12) = (/ &
+     &5.0181e+01_rb,4.3911e+01_rb,3.7609e+01_rb,3.1364e+01_rb,2.5077e+01_rb,1.8819e+01_rb, &
+     &1.2546e+01_rb,6.2708e+00_rb,2.0136e-05_rb/)
+      kao(:, 5,10,12) = (/ &
+     &5.0358e+01_rb,4.4054e+01_rb,3.7768e+01_rb,3.1474e+01_rb,2.5199e+01_rb,1.8885e+01_rb, &
+     &1.2590e+01_rb,6.2949e+00_rb,3.0786e-05_rb/)
+      kao(:, 1,11,12) = (/ &
+     &8.8012e+01_rb,7.7091e+01_rb,6.6061e+01_rb,5.5064e+01_rb,4.4041e+01_rb,3.3007e+01_rb, &
+     &2.2019e+01_rb,1.1017e+01_rb,3.6494e-06_rb/)
+      kao(:, 2,11,12) = (/ &
+     &8.9290e+01_rb,7.8045e+01_rb,6.6917e+01_rb,5.5778e+01_rb,4.4669e+01_rb,3.3448e+01_rb, &
+     &2.2295e+01_rb,1.1156e+01_rb,6.7273e-06_rb/)
+      kao(:, 3,11,12) = (/ &
+     &8.6982e+01_rb,7.6115e+01_rb,6.5187e+01_rb,5.4368e+01_rb,4.3469e+01_rb,3.2619e+01_rb, &
+     &2.1748e+01_rb,1.0873e+01_rb,1.1236e-05_rb/)
+      kao(:, 4,11,12) = (/ &
+     &8.9808e+01_rb,7.8580e+01_rb,6.7351e+01_rb,5.6127e+01_rb,4.4937e+01_rb,3.3677e+01_rb, &
+     &2.2469e+01_rb,1.1226e+01_rb,1.9240e-05_rb/)
+      kao(:, 5,11,12) = (/ &
+     &9.0868e+01_rb,7.9552e+01_rb,6.8146e+01_rb,5.6871e+01_rb,4.5498e+01_rb,3.4074e+01_rb, &
+     &2.2716e+01_rb,1.1367e+01_rb,2.9192e-05_rb/)
+      kao(:, 1,12,12) = (/ &
+     &1.1586e+02_rb,1.0129e+02_rb,8.6824e+01_rb,7.2354e+01_rb,5.7931e+01_rb,4.3416e+01_rb, &
+     &2.8943e+01_rb,1.4471e+01_rb,2.9778e-06_rb/)
+      kao(:, 2,12,12) = (/ &
+     &1.1852e+02_rb,1.0370e+02_rb,8.8887e+01_rb,7.4073e+01_rb,5.9259e+01_rb,4.4444e+01_rb, &
+     &2.9629e+01_rb,1.4815e+01_rb,6.0415e-06_rb/)
+      kao(:, 3,12,12) = (/ &
+     &1.1782e+02_rb,1.0310e+02_rb,8.8376e+01_rb,7.3644e+01_rb,5.8951e+01_rb,4.4160e+01_rb, &
+     &2.9459e+01_rb,1.4728e+01_rb,1.0435e-05_rb/)
+      kao(:, 4,12,12) = (/ &
+     &1.1710e+02_rb,1.0244e+02_rb,8.7885e+01_rb,7.3194e+01_rb,5.8621e+01_rb,4.3876e+01_rb, &
+     &2.9251e+01_rb,1.4654e+01_rb,1.8188e-05_rb/)
+      kao(:, 5,12,12) = (/ &
+     &1.1577e+02_rb,1.0131e+02_rb,8.6825e+01_rb,7.2359e+01_rb,5.7901e+01_rb,4.3424e+01_rb, &
+     &2.8943e+01_rb,1.4462e+01_rb,2.8178e-05_rb/)
+      kao(:, 1,13,12) = (/ &
+     &1.1625e+02_rb,1.0180e+02_rb,8.7251e+01_rb,7.2708e+01_rb,5.8118e+01_rb,4.3593e+01_rb, &
+     &2.9061e+01_rb,1.4533e+01_rb,2.6097e-06_rb/)
+      kao(:, 2,13,12) = (/ &
+     &1.1986e+02_rb,1.0483e+02_rb,8.9927e+01_rb,7.4912e+01_rb,5.9931e+01_rb,4.4948e+01_rb, &
+     &2.9950e+01_rb,1.4982e+01_rb,4.5705e-06_rb/)
+      kao(:, 3,13,12) = (/ &
+     &1.1859e+02_rb,1.0377e+02_rb,8.8940e+01_rb,7.4121e+01_rb,5.9293e+01_rb,4.4471e+01_rb, &
+     &2.9646e+01_rb,1.4823e+01_rb,9.6333e-06_rb/)
+      kao(:, 4,13,12) = (/ &
+     &1.1553e+02_rb,1.0103e+02_rb,8.6643e+01_rb,7.2158e+01_rb,5.7729e+01_rb,4.3335e+01_rb, &
+     &2.8881e+01_rb,1.4445e+01_rb,1.6615e-05_rb/)
+      kao(:, 5,13,12) = (/ &
+     &1.1521e+02_rb,1.0087e+02_rb,8.6350e+01_rb,7.1959e+01_rb,5.7620e+01_rb,4.3214e+01_rb, &
+     &2.8812e+01_rb,1.4383e+01_rb,2.5689e-05_rb/)
+      kao(:, 1, 1,13) = (/ &
+     &1.2352e-03_rb,5.0775e-03_rb,9.0568e-03_rb,9.6608e-03_rb,1.7051e-02_rb,2.9171e-02_rb, &
+     &3.4997e-02_rb,4.0847e-02_rb,3.4367e-02_rb/)
+      kao(:, 2, 1,13) = (/ &
+     &1.2435e-03_rb,6.8803e-03_rb,1.1829e-02_rb,1.3668e-02_rb,2.8015e-02_rb,4.0318e-02_rb, &
+     &4.8254e-02_rb,5.5929e-02_rb,5.6166e-02_rb/)
+      kao(:, 3, 1,13) = (/ &
+     &1.2378e-03_rb,7.6901e-03_rb,1.3370e-02_rb,2.0872e-02_rb,4.0011e-02_rb,5.3853e-02_rb, &
+     &6.4341e-02_rb,7.4163e-02_rb,8.0135e-02_rb/)
+      kao(:, 4, 1,13) = (/ &
+     &1.2280e-03_rb,1.0734e-02_rb,1.6343e-02_rb,3.0629e-02_rb,5.6049e-02_rb,6.9850e-02_rb, &
+     &8.3340e-02_rb,9.5619e-02_rb,1.1209e-01_rb/)
+      kao(:, 5, 1,13) = (/ &
+     &1.2088e-03_rb,1.3761e-02_rb,2.1254e-02_rb,4.2402e-02_rb,7.0900e-02_rb,8.8313e-02_rb, &
+     &1.0523e-01_rb,1.2032e-01_rb,1.4179e-01_rb/)
+      kao(:, 1, 2,13) = (/ &
+     &1.7062e-03_rb,5.0744e-03_rb,8.6767e-03_rb,1.3080e-02_rb,1.1607e-02_rb,1.7056e-02_rb, &
+     &2.8742e-02_rb,3.5357e-02_rb,2.3747e-02_rb/)
+      kao(:, 2, 2,13) = (/ &
+     &1.7222e-03_rb,6.7515e-03_rb,1.2374e-02_rb,1.5331e-02_rb,1.8393e-02_rb,2.7370e-02_rb, &
+     &4.2648e-02_rb,4.9678e-02_rb,3.7912e-02_rb/)
+      kao(:, 3, 2,13) = (/ &
+     &1.7299e-03_rb,8.6001e-03_rb,1.6797e-02_rb,2.0526e-02_rb,2.6294e-02_rb,4.1034e-02_rb, &
+     &5.7948e-02_rb,6.7295e-02_rb,5.4721e-02_rb/)
+      kao(:, 4, 2,13) = (/ &
+     &1.7668e-03_rb,1.0879e-02_rb,2.0064e-02_rb,2.7385e-02_rb,3.4476e-02_rb,5.8386e-02_rb, &
+     &7.6246e-02_rb,8.8358e-02_rb,7.0573e-02_rb/)
+      kao(:, 5, 2,13) = (/ &
+     &1.7596e-03_rb,1.1860e-02_rb,2.3664e-02_rb,3.3939e-02_rb,4.8492e-02_rb,7.9884e-02_rb, &
+     &9.7519e-02_rb,1.1290e-01_rb,9.7083e-02_rb/)
+      kao(:, 1, 3,13) = (/ &
+     &3.1651e-03_rb,5.2961e-03_rb,8.5469e-03_rb,1.1513e-02_rb,1.5558e-02_rb,1.4881e-02_rb, &
+     &1.6424e-02_rb,2.5024e-02_rb,2.8147e-02_rb/)
+      kao(:, 2, 3,13) = (/ &
+     &3.3189e-03_rb,8.3809e-03_rb,1.1489e-02_rb,1.6299e-02_rb,2.2221e-02_rb,2.2841e-02_rb, &
+     &2.5024e-02_rb,3.8200e-02_rb,3.8233e-02_rb/)
+      kao(:, 3, 3,13) = (/ &
+     &3.3701e-03_rb,1.1923e-02_rb,1.5036e-02_rb,2.2373e-02_rb,2.6383e-02_rb,3.1900e-02_rb, &
+     &3.2997e-02_rb,5.6522e-02_rb,4.6578e-02_rb/)
+      kao(:, 4, 3,13) = (/ &
+     &3.3871e-03_rb,1.2781e-02_rb,1.7799e-02_rb,2.9758e-02_rb,3.5615e-02_rb,4.1357e-02_rb, &
+     &4.8578e-02_rb,7.5987e-02_rb,6.6261e-02_rb/)
+      kao(:, 5, 3,13) = (/ &
+     &3.3797e-03_rb,1.4220e-02_rb,2.3964e-02_rb,3.5644e-02_rb,4.5626e-02_rb,4.9180e-02_rb, &
+     &6.9386e-02_rb,9.9109e-02_rb,8.8310e-02_rb/)
+      kao(:, 1, 4,13) = (/ &
+     &1.0343e-02_rb,9.0620e-03_rb,1.2015e-02_rb,1.1324e-02_rb,1.3382e-02_rb,1.5654e-02_rb, &
+     &1.8625e-02_rb,1.7070e-02_rb,2.1331e-02_rb/)
+      kao(:, 2, 4,13) = (/ &
+     &6.4226e-03_rb,5.6266e-03_rb,1.6045e-02_rb,1.6336e-02_rb,1.7909e-02_rb,2.2857e-02_rb, &
+     &2.5406e-02_rb,2.4740e-02_rb,3.1419e-02_rb/)
+      kao(:, 3, 4,13) = (/ &
+     &6.5549e-03_rb,5.7385e-03_rb,1.8741e-02_rb,2.0901e-02_rb,2.5444e-02_rb,3.1318e-02_rb, &
+     &3.5488e-02_rb,3.2476e-02_rb,4.5848e-02_rb/)
+      kao(:, 4, 4,13) = (/ &
+     &6.6407e-03_rb,5.8164e-03_rb,2.0962e-02_rb,2.6844e-02_rb,3.4892e-02_rb,4.1403e-02_rb, &
+     &4.7653e-02_rb,4.2426e-02_rb,6.5116e-02_rb/)
+      kao(:, 5, 4,13) = (/ &
+     &6.8300e-03_rb,1.2571e-02_rb,2.5118e-02_rb,3.2793e-02_rb,4.7122e-02_rb,5.5638e-02_rb, &
+     &5.7712e-02_rb,6.2270e-02_rb,8.9700e-02_rb/)
+      kao(:, 1, 5,13) = (/ &
+     &9.0149e-02_rb,7.8756e-02_rb,6.7503e-02_rb,5.7299e-02_rb,4.6607e-02_rb,3.2042e-02_rb, &
+     &2.0392e-02_rb,1.6128e-02_rb,1.9894e-02_rb/)
+      kao(:, 2, 5,13) = (/ &
+     &4.8191e-02_rb,4.2297e-02_rb,3.6135e-02_rb,3.5890e-02_rb,2.5466e-02_rb,2.2998e-02_rb, &
+     &2.3063e-02_rb,2.5066e-02_rb,2.8493e-02_rb/)
+      kao(:, 3, 5,13) = (/ &
+     &2.0878e-02_rb,1.8444e-02_rb,2.0162e-02_rb,2.6175e-02_rb,2.5330e-02_rb,2.8034e-02_rb, &
+     &3.3888e-02_rb,3.5693e-02_rb,3.9583e-02_rb/)
+      kao(:, 4, 5,13) = (/ &
+     &1.2467e-02_rb,1.0910e-02_rb,2.2261e-02_rb,3.0489e-02_rb,3.2389e-02_rb,3.6918e-02_rb, &
+     &4.6126e-02_rb,4.7452e-02_rb,5.4222e-02_rb/)
+      kao(:, 5, 5,13) = (/ &
+     &1.2730e-02_rb,1.1204e-02_rb,2.9691e-02_rb,3.6357e-02_rb,4.1593e-02_rb,4.9722e-02_rb, &
+     &6.1593e-02_rb,5.8372e-02_rb,7.2216e-02_rb/)
+      kao(:, 1, 6,13) = (/ &
+     &3.3772e-01_rb,2.9577e-01_rb,2.5329e-01_rb,2.1108e-01_rb,1.6887e-01_rb,1.2604e-01_rb, &
+     &7.8045e-02_rb,3.5455e-02_rb,1.6952e-02_rb/)
+      kao(:, 2, 6,13) = (/ &
+     &2.6913e-01_rb,2.3492e-01_rb,2.0161e-01_rb,1.6802e-01_rb,1.3597e-01_rb,9.6507e-02_rb, &
+     &6.1842e-02_rb,3.0282e-02_rb,3.2161e-02_rb/)
+      kao(:, 3, 6,13) = (/ &
+     &1.8198e-01_rb,1.5897e-01_rb,1.3649e-01_rb,1.1355e-01_rb,1.0014e-01_rb,6.6575e-02_rb, &
+     &4.2969e-02_rb,3.1778e-02_rb,5.1438e-02_rb/)
+      kao(:, 4, 6,13) = (/ &
+     &9.5916e-02_rb,8.3628e-02_rb,7.1947e-02_rb,6.5931e-02_rb,5.4714e-02_rb,4.3955e-02_rb, &
+     &3.9042e-02_rb,4.5021e-02_rb,5.3865e-02_rb/)
+      kao(:, 5, 6,13) = (/ &
+     &3.8338e-02_rb,3.3822e-02_rb,2.8989e-02_rb,4.7523e-02_rb,4.4391e-02_rb,4.9375e-02_rb, &
+     &5.3458e-02_rb,6.4090e-02_rb,6.5458e-02_rb/)
+      kao(:, 1, 7,13) = (/ &
+     &8.4065e-01_rb,7.3491e-01_rb,6.3155e-01_rb,5.2581e-01_rb,4.2110e-01_rb,3.1579e-01_rb, &
+     &2.1053e-01_rb,1.0597e-01_rb,2.9312e-06_rb/)
+      kao(:, 2, 7,13) = (/ &
+     &8.3906e-01_rb,7.3475e-01_rb,6.2926e-01_rb,5.2485e-01_rb,4.1990e-01_rb,3.1520e-01_rb, &
+     &2.1013e-01_rb,9.8180e-02_rb,5.1556e-06_rb/)
+      kao(:, 3, 7,13) = (/ &
+     &7.1003e-01_rb,6.2128e-01_rb,5.3203e-01_rb,4.4338e-01_rb,3.5504e-01_rb,2.6905e-01_rb, &
+     &1.6926e-01_rb,7.8231e-02_rb,2.0966e-02_rb/)
+      kao(:, 4, 7,13) = (/ &
+     &5.6430e-01_rb,4.9377e-01_rb,4.2325e-01_rb,3.5272e-01_rb,2.8217e-01_rb,2.1549e-01_rb, &
+     &1.3644e-01_rb,6.7355e-02_rb,4.1095e-02_rb/)
+      kao(:, 5, 7,13) = (/ &
+     &3.6362e-01_rb,3.1751e-01_rb,2.7269e-01_rb,2.2725e-01_rb,1.9431e-01_rb,1.4468e-01_rb, &
+     &9.9409e-02_rb,6.2076e-02_rb,6.3795e-02_rb/)
+      kao(:, 1, 8,13) = (/ &
+     &2.2236e+00_rb,1.9437e+00_rb,1.6676e+00_rb,1.3884e+00_rb,1.1107e+00_rb,8.3381e-01_rb, &
+     &5.5588e-01_rb,2.7795e-01_rb,1.5745e-06_rb/)
+      kao(:, 2, 8,13) = (/ &
+     &2.2078e+00_rb,1.9318e+00_rb,1.6572e+00_rb,1.3798e+00_rb,1.1048e+00_rb,8.2853e-01_rb, &
+     &5.5239e-01_rb,2.7779e-01_rb,2.9445e-06_rb/)
+      kao(:, 3, 8,13) = (/ &
+     &2.2271e+00_rb,1.9469e+00_rb,1.6686e+00_rb,1.3901e+00_rb,1.1125e+00_rb,8.3518e-01_rb, &
+     &5.5623e-01_rb,2.8153e-01_rb,5.1096e-06_rb/)
+      kao(:, 4, 8,13) = (/ &
+     &2.1637e+00_rb,1.8932e+00_rb,1.6227e+00_rb,1.3534e+00_rb,1.0818e+00_rb,8.1139e-01_rb, &
+     &5.4287e-01_rb,2.5697e-01_rb,9.9333e-06_rb/)
+      kao(:, 5, 8,13) = (/ &
+     &1.8021e+00_rb,1.5805e+00_rb,1.3532e+00_rb,1.1288e+00_rb,9.0270e-01_rb,6.7733e-01_rb, &
+     &4.5729e-01_rb,2.1399e-01_rb,3.0555e-05_rb/)
+      kao(:, 1, 9,13) = (/ &
+     &1.0795e+01_rb,9.4461e+00_rb,8.0967e+00_rb,6.7526e+00_rb,5.3928e+00_rb,4.0485e+00_rb, &
+     &2.6990e+00_rb,1.3503e+00_rb,8.4365e-07_rb/)
+      kao(:, 2, 9,13) = (/ &
+     &1.1064e+01_rb,9.6811e+00_rb,8.2980e+00_rb,6.9149e+00_rb,5.5320e+00_rb,4.1492e+00_rb, &
+     &2.7660e+00_rb,1.3844e+00_rb,1.6130e-06_rb/)
+      kao(:, 3, 9,13) = (/ &
+     &1.1399e+01_rb,9.9733e+00_rb,8.5488e+00_rb,7.1204e+00_rb,5.6991e+00_rb,4.2710e+00_rb, &
+     &2.8497e+00_rb,1.4241e+00_rb,6.0805e-06_rb/)
+      kao(:, 4, 9,13) = (/ &
+     &1.1508e+01_rb,1.0061e+01_rb,8.6395e+00_rb,7.1995e+00_rb,5.7491e+00_rb,4.3120e+00_rb, &
+     &2.8800e+00_rb,1.4386e+00_rb,1.4128e-05_rb/)
+      kao(:, 5, 9,13) = (/ &
+     &1.1400e+01_rb,9.9831e+00_rb,8.5576e+00_rb,7.1312e+00_rb,5.7049e+00_rb,4.2787e+00_rb, &
+     &2.8526e+00_rb,1.4263e+00_rb,2.6902e-05_rb/)
+      kao(:, 1,10,13) = (/ &
+     &6.0229e+01_rb,5.2742e+01_rb,4.5172e+01_rb,3.7644e+01_rb,3.0138e+01_rb,2.2585e+01_rb, &
+     &1.5057e+01_rb,7.5286e+00_rb,7.1488e-07_rb/)
+      kao(:, 2,10,13) = (/ &
+     &6.2236e+01_rb,5.4452e+01_rb,4.6675e+01_rb,3.8896e+01_rb,3.1118e+01_rb,2.3338e+01_rb, &
+     &1.5559e+01_rb,7.7794e+00_rb,2.2353e-06_rb/)
+      kao(:, 3,10,13) = (/ &
+     &6.3127e+01_rb,5.5205e+01_rb,4.7321e+01_rb,3.9431e+01_rb,3.1516e+01_rb,2.3656e+01_rb, &
+     &1.5745e+01_rb,7.8865e+00_rb,5.3891e-06_rb/)
+      kao(:, 4,10,13) = (/ &
+     &6.1110e+01_rb,5.3475e+01_rb,4.5823e+01_rb,3.8155e+01_rb,3.0566e+01_rb,2.2893e+01_rb, &
+     &1.5262e+01_rb,7.6312e+00_rb,1.1169e-05_rb/)
+      kao(:, 5,10,13) = (/ &
+     &6.4796e+01_rb,5.6740e+01_rb,4.8597e+01_rb,4.0457e+01_rb,3.2404e+01_rb,2.4299e+01_rb, &
+     &1.6199e+01_rb,8.1078e+00_rb,2.0550e-05_rb/)
+      kao(:, 1,11,13) = (/ &
+     &1.1504e+02_rb,1.0058e+02_rb,8.6129e+01_rb,7.1842e+01_rb,5.7476e+01_rb,4.3140e+01_rb, &
+     &2.8738e+01_rb,1.4357e+01_rb,9.3132e-07_rb/)
+      kao(:, 2,11,13) = (/ &
+     &1.1792e+02_rb,1.0317e+02_rb,8.8507e+01_rb,7.3697e+01_rb,5.8960e+01_rb,4.4221e+01_rb, &
+     &2.9502e+01_rb,1.4740e+01_rb,2.4724e-06_rb/)
+      kao(:, 3,11,13) = (/ &
+     &1.2218e+02_rb,1.0691e+02_rb,9.1705e+01_rb,7.6362e+01_rb,6.1091e+01_rb,4.5817e+01_rb, &
+     &3.0544e+01_rb,1.5272e+01_rb,5.4659e-06_rb/)
+      kao(:, 4,11,13) = (/ &
+     &1.2095e+02_rb,1.0583e+02_rb,9.0715e+01_rb,7.5596e+01_rb,6.0430e+01_rb,4.5404e+01_rb, &
+     &3.0213e+01_rb,1.5120e+01_rb,1.0930e-05_rb/)
+      kao(:, 5,11,13) = (/ &
+     &1.1751e+02_rb,1.0271e+02_rb,8.8136e+01_rb,7.3302e+01_rb,5.8706e+01_rb,4.4021e+01_rb, &
+     &2.9378e+01_rb,1.4677e+01_rb,1.9680e-05_rb/)
+      kao(:, 1,12,13) = (/ &
+     &1.6045e+02_rb,1.4037e+02_rb,1.2031e+02_rb,1.0025e+02_rb,8.0142e+01_rb,6.0153e+01_rb, &
+     &4.0104e+01_rb,2.0052e+01_rb,1.7476e-06_rb/)
+      kao(:, 2,12,13) = (/ &
+     &1.6342e+02_rb,1.4301e+02_rb,1.2246e+02_rb,1.0215e+02_rb,8.1640e+01_rb,6.1227e+01_rb, &
+     &4.0821e+01_rb,2.0431e+01_rb,2.4757e-06_rb/)
+      kao(:, 3,12,13) = (/ &
+     &1.6723e+02_rb,1.4633e+02_rb,1.2542e+02_rb,1.0452e+02_rb,8.3616e+01_rb,6.2709e+01_rb, &
+     &4.1810e+01_rb,2.0904e+01_rb,5.2593e-06_rb/)
+      kao(:, 4,12,13) = (/ &
+     &1.7014e+02_rb,1.4884e+02_rb,1.2747e+02_rb,1.0623e+02_rb,8.4980e+01_rb,6.3783e+01_rb, &
+     &4.2524e+01_rb,2.1245e+01_rb,9.8363e-06_rb/)
+      kao(:, 5,12,13) = (/ &
+     &1.6634e+02_rb,1.4563e+02_rb,1.2476e+02_rb,1.0397e+02_rb,8.3150e+01_rb,6.2327e+01_rb, &
+     &4.1610e+01_rb,2.0792e+01_rb,1.5825e-05_rb/)
+      kao(:, 1,13,13) = (/ &
+     &1.7420e+02_rb,1.5232e+02_rb,1.3056e+02_rb,1.0880e+02_rb,8.7095e+01_rb,6.5324e+01_rb, &
+     &4.3550e+01_rb,2.1773e+01_rb,2.0359e-06_rb/)
+      kao(:, 2,13,13) = (/ &
+     &1.7505e+02_rb,1.5318e+02_rb,1.3125e+02_rb,1.0942e+02_rb,8.7528e+01_rb,6.5649e+01_rb, &
+     &4.3765e+01_rb,2.1882e+01_rb,3.6885e-06_rb/)
+      kao(:, 3,13,13) = (/ &
+     &1.7705e+02_rb,1.5491e+02_rb,1.3279e+02_rb,1.1065e+02_rb,8.8524e+01_rb,6.6391e+01_rb, &
+     &4.4262e+01_rb,2.2130e+01_rb,4.3611e-06_rb/)
+      kao(:, 4,13,13) = (/ &
+     &1.7817e+02_rb,1.5590e+02_rb,1.3363e+02_rb,1.1135e+02_rb,8.9083e+01_rb,6.6758e+01_rb, &
+     &4.4540e+01_rb,2.2253e+01_rb,7.0150e-06_rb/)
+      kao(:, 5,13,13) = (/ &
+     &1.7584e+02_rb,1.5385e+02_rb,1.3199e+02_rb,1.0999e+02_rb,8.7917e+01_rb,6.5939e+01_rb, &
+     &4.3996e+01_rb,2.1972e+01_rb,1.1356e-05_rb/)
+      kao(:, 1, 1,14) = (/ &
+     &1.3576e-03_rb,5.9355e-03_rb,1.2070e-02_rb,3.4616e-02_rb,5.3142e-02_rb,6.5578e-02_rb, &
+     &7.6852e-02_rb,8.4718e-02_rb,1.0628e-01_rb/)
+      kao(:, 2, 1,14) = (/ &
+     &1.4884e-03_rb,6.6850e-03_rb,2.0385e-02_rb,5.2397e-02_rb,7.2846e-02_rb,8.9954e-02_rb, &
+     &1.0527e-01_rb,1.1545e-01_rb,1.4569e-01_rb/)
+      kao(:, 3, 1,14) = (/ &
+     &1.6038e-03_rb,1.0153e-02_rb,3.3679e-02_rb,7.2611e-02_rb,9.6223e-02_rb,1.1901e-01_rb, &
+     &1.3945e-01_rb,1.5228e-01_rb,1.9245e-01_rb/)
+      kao(:, 4, 1,14) = (/ &
+     &1.7044e-03_rb,1.3918e-02_rb,4.9229e-02_rb,9.2925e-02_rb,1.2323e-01_rb,1.5253e-01_rb, &
+     &1.7914e-01_rb,1.9539e-01_rb,2.4647e-01_rb/)
+      kao(:, 5, 1,14) = (/ &
+     &1.8000e-03_rb,1.6377e-02_rb,6.7350e-02_rb,1.1593e-01_rb,1.5369e-01_rb,1.9039e-01_rb, &
+     &2.2401e-01_rb,2.4471e-01_rb,3.0739e-01_rb/)
+      kao(:, 1, 2,14) = (/ &
+     &2.3036e-03_rb,8.1410e-03_rb,1.1112e-02_rb,1.5744e-02_rb,3.9389e-02_rb,5.9885e-02_rb, &
+     &7.1149e-02_rb,8.0027e-02_rb,7.8847e-02_rb/)
+      kao(:, 2, 2,14) = (/ &
+     &2.5134e-03_rb,1.3270e-02_rb,1.6290e-02_rb,2.9767e-02_rb,5.8863e-02_rb,8.3096e-02_rb, &
+     &9.8866e-02_rb,1.1160e-01_rb,1.1776e-01_rb/)
+      kao(:, 3, 2,14) = (/ &
+     &2.6930e-03_rb,1.4292e-02_rb,1.9903e-02_rb,4.6191e-02_rb,8.3472e-02_rb,1.1096e-01_rb, &
+     &1.3216e-01_rb,1.4974e-01_rb,1.6719e-01_rb/)
+      kao(:, 4, 2,14) = (/ &
+     &2.7875e-03_rb,1.4114e-02_rb,2.4277e-02_rb,6.6428e-02_rb,1.1553e-01_rb,1.4377e-01_rb, &
+     &1.7103e-01_rb,1.9428e-01_rb,2.3106e-01_rb/)
+      kao(:, 5, 2,14) = (/ &
+     &2.8719e-03_rb,1.9476e-02_rb,3.5900e-02_rb,9.2156e-02_rb,1.4592e-01_rb,1.8154e-01_rb, &
+     &2.1576e-01_rb,2.4502e-01_rb,2.9183e-01_rb/)
+      kao(:, 1, 3,14) = (/ &
+     &5.1130e-03_rb,4.4754e-03_rb,1.7095e-02_rb,1.4542e-02_rb,2.0610e-02_rb,2.6947e-02_rb, &
+     &5.0520e-02_rb,6.8277e-02_rb,4.1188e-02_rb/)
+      kao(:, 2, 3,14) = (/ &
+     &5.4209e-03_rb,4.7463e-03_rb,2.5747e-02_rb,2.2058e-02_rb,2.5589e-02_rb,4.5664e-02_rb, &
+     &7.6140e-02_rb,9.7102e-02_rb,5.5959e-02_rb/)
+      kao(:, 3, 3,14) = (/ &
+     &5.7296e-03_rb,5.0218e-03_rb,2.3801e-02_rb,3.0343e-02_rb,3.8012e-02_rb,6.9885e-02_rb, &
+     &1.1346e-01_rb,1.3263e-01_rb,8.0840e-02_rb/)
+      kao(:, 4, 3,14) = (/ &
+     &5.9993e-03_rb,9.9078e-03_rb,3.1169e-02_rb,3.4849e-02_rb,5.4434e-02_rb,1.0180e-01_rb, &
+     &1.5168e-01_rb,1.7523e-01_rb,1.1385e-01_rb/)
+      kao(:, 5, 3,14) = (/ &
+     &6.2420e-03_rb,1.8221e-02_rb,3.8314e-02_rb,4.8056e-02_rb,8.0195e-02_rb,1.4525e-01_rb, &
+     &1.9539e-01_rb,2.2499e-01_rb,1.6255e-01_rb/)
+      kao(:, 1, 4,14) = (/ &
+     &1.0992e-02_rb,9.6146e-03_rb,8.2555e-03_rb,1.9598e-02_rb,2.6210e-02_rb,2.3069e-02_rb, &
+     &2.4334e-02_rb,4.0918e-02_rb,4.3847e-02_rb/)
+      kao(:, 2, 4,14) = (/ &
+     &1.1861e-02_rb,1.0380e-02_rb,8.8997e-03_rb,3.1372e-02_rb,3.1071e-02_rb,3.3427e-02_rb, &
+     &3.7533e-02_rb,6.6384e-02_rb,5.4303e-02_rb/)
+      kao(:, 3, 4,14) = (/ &
+     &1.2630e-02_rb,1.1058e-02_rb,1.5158e-02_rb,4.6362e-02_rb,4.1015e-02_rb,4.0980e-02_rb, &
+     &5.2909e-02_rb,1.0322e-01_rb,7.5185e-02_rb/)
+      kao(:, 4, 4,14) = (/ &
+     &1.3324e-02_rb,1.1665e-02_rb,2.8664e-02_rb,4.2673e-02_rb,5.2993e-02_rb,5.8606e-02_rb, &
+     &7.8441e-02_rb,1.5172e-01_rb,9.8036e-02_rb/)
+      kao(:, 5, 4,14) = (/ &
+     &1.3148e-02_rb,1.1477e-02_rb,4.1837e-02_rb,5.5479e-02_rb,6.7238e-02_rb,7.8671e-02_rb, &
+     &1.1999e-01_rb,1.9993e-01_rb,1.2716e-01_rb/)
+      kao(:, 1, 5,14) = (/ &
+     &2.2062e-02_rb,1.9303e-02_rb,1.6547e-02_rb,1.3790e-02_rb,1.9210e-02_rb,3.4370e-02_rb, &
+     &2.6360e-02_rb,2.4628e-02_rb,2.1281e-02_rb/)
+      kao(:, 2, 5,14) = (/ &
+     &2.4016e-02_rb,2.1018e-02_rb,1.8036e-02_rb,1.5017e-02_rb,3.4207e-02_rb,3.8549e-02_rb, &
+     &3.6828e-02_rb,3.7924e-02_rb,4.8887e-02_rb/)
+      kao(:, 3, 5,14) = (/ &
+     &2.4307e-02_rb,2.1199e-02_rb,1.8170e-02_rb,2.0814e-02_rb,5.1440e-02_rb,4.8654e-02_rb, &
+     &5.0226e-02_rb,5.5730e-02_rb,8.3554e-02_rb/)
+      kao(:, 4, 5,14) = (/ &
+     &2.3589e-02_rb,2.0645e-02_rb,1.7700e-02_rb,3.6957e-02_rb,7.2673e-02_rb,6.2587e-02_rb, &
+     &6.6284e-02_rb,7.5553e-02_rb,1.2501e-01_rb/)
+      kao(:, 5, 5,14) = (/ &
+     &2.3359e-02_rb,2.0344e-02_rb,1.7524e-02_rb,5.3828e-02_rb,7.8003e-02_rb,7.9260e-02_rb, &
+     &8.5892e-02_rb,1.2047e-01_rb,1.2633e-01_rb/)
+      kao(:, 1, 6,14) = (/ &
+     &4.0073e-02_rb,3.4956e-02_rb,2.9962e-02_rb,2.4964e-02_rb,1.9975e-02_rb,1.9358e-02_rb, &
+     &3.3916e-02_rb,2.3741e-02_rb,4.4372e-06_rb/)
+      kao(:, 2, 6,14) = (/ &
+     &4.0377e-02_rb,3.5184e-02_rb,3.0162e-02_rb,2.5240e-02_rb,2.0191e-02_rb,3.6273e-02_rb, &
+     &4.6417e-02_rb,3.4541e-02_rb,7.2649e-06_rb/)
+      kao(:, 3, 6,14) = (/ &
+     &4.0665e-02_rb,3.5540e-02_rb,3.0502e-02_rb,2.5425e-02_rb,2.0338e-02_rb,5.3239e-02_rb, &
+     &5.4545e-02_rb,5.0382e-02_rb,1.1617e-05_rb/)
+      kao(:, 4, 6,14) = (/ &
+     &4.0830e-02_rb,3.5726e-02_rb,3.0620e-02_rb,2.5522e-02_rb,4.1685e-02_rb,7.6060e-02_rb, &
+     &6.8633e-02_rb,6.7501e-02_rb,4.8322e-02_rb/)
+      kao(:, 5, 6,14) = (/ &
+     &4.0974e-02_rb,3.5852e-02_rb,3.0742e-02_rb,2.5614e-02_rb,6.3799e-02_rb,1.0670e-01_rb, &
+     &8.5712e-02_rb,8.9786e-02_rb,9.4019e-02_rb/)
+      kao(:, 1, 7,14) = (/ &
+     &3.5883e-01_rb,3.1506e-01_rb,2.6911e-01_rb,2.2518e-01_rb,1.7880e-01_rb,1.3456e-01_rb, &
+     &8.9710e-02_rb,5.4606e-02_rb,2.4375e-06_rb/)
+      kao(:, 2, 7,14) = (/ &
+     &1.1133e-01_rb,9.7402e-02_rb,8.3516e-02_rb,6.9576e-02_rb,5.5665e-02_rb,4.1750e-02_rb, &
+     &3.4893e-02_rb,3.9977e-02_rb,4.2861e-06_rb/)
+      kao(:, 3, 7,14) = (/ &
+     &7.4556e-02_rb,6.5240e-02_rb,5.5921e-02_rb,4.6603e-02_rb,3.7275e-02_rb,2.7967e-02_rb, &
+     &5.4564e-02_rb,5.0979e-02_rb,7.1669e-06_rb/)
+      kao(:, 4, 7,14) = (/ &
+     &7.6453e-02_rb,6.6897e-02_rb,5.7506e-02_rb,4.7791e-02_rb,3.8237e-02_rb,4.2981e-02_rb, &
+     &7.9842e-02_rb,6.6791e-02_rb,1.1410e-05_rb/)
+      kao(:, 5, 7,14) = (/ &
+     &7.6151e-02_rb,6.6633e-02_rb,5.7121e-02_rb,4.7606e-02_rb,3.8095e-02_rb,6.8563e-02_rb, &
+     &1.1205e-01_rb,9.1020e-02_rb,1.8778e-05_rb/)
+      kao(:, 1, 8,14) = (/ &
+     &1.6212e+00_rb,1.4215e+00_rb,1.2160e+00_rb,1.0153e+00_rb,8.1222e-01_rb,6.0796e-01_rb, &
+     &4.0531e-01_rb,2.0267e-01_rb,1.3659e-06_rb/)
+      kao(:, 2, 8,14) = (/ &
+     &1.0949e+00_rb,9.5809e-01_rb,8.2118e-01_rb,6.8434e-01_rb,5.4744e-01_rb,4.1058e-01_rb, &
+     &2.7374e-01_rb,1.3687e-01_rb,2.5240e-06_rb/)
+      kao(:, 3, 8,14) = (/ &
+     &5.4276e-01_rb,4.7782e-01_rb,4.0969e-01_rb,3.4354e-01_rb,2.7305e-01_rb,2.0349e-01_rb, &
+     &1.3658e-01_rb,8.0855e-02_rb,4.4900e-06_rb/)
+      kao(:, 4, 8,14) = (/ &
+     &1.6665e-01_rb,1.4583e-01_rb,1.2498e-01_rb,1.0416e-01_rb,8.3314e-02_rb,6.2486e-02_rb, &
+     &4.1670e-02_rb,8.3057e-02_rb,7.7801e-06_rb/)
+      kao(:, 5, 8,14) = (/ &
+     &1.6956e-01_rb,1.4835e-01_rb,1.2718e-01_rb,1.0598e-01_rb,8.5407e-02_rb,6.3592e-02_rb, &
+     &5.5348e-02_rb,1.2090e-01_rb,1.2725e-05_rb/)
+      kao(:, 1, 9,14) = (/ &
+     &1.1544e+01_rb,1.0088e+01_rb,8.6483e+00_rb,7.2069e+00_rb,5.7730e+00_rb,4.3233e+00_rb, &
+     &2.8823e+00_rb,1.4419e+00_rb,7.6692e-07_rb/)
+      kao(:, 2, 9,14) = (/ &
+     &9.0308e+00_rb,7.9019e+00_rb,6.7729e+00_rb,5.6441e+00_rb,4.5156e+00_rb,3.3865e+00_rb, &
+     &2.2577e+00_rb,1.1268e+00_rb,1.4786e-06_rb/)
+      kao(:, 3, 9,14) = (/ &
+     &6.2830e+00_rb,5.4975e+00_rb,4.7120e+00_rb,3.9269e+00_rb,3.1414e+00_rb,2.3561e+00_rb, &
+     &1.5707e+00_rb,7.8536e-01_rb,2.7689e-06_rb/)
+      kao(:, 4, 9,14) = (/ &
+     &3.6304e+00_rb,3.1764e+00_rb,2.7089e+00_rb,2.2550e+00_rb,1.8152e+00_rb,1.3614e+00_rb, &
+     &9.0300e-01_rb,4.5381e-01_rb,4.9167e-06_rb/)
+      kao(:, 5, 9,14) = (/ &
+     &1.4890e+00_rb,1.3035e+00_rb,1.1168e+00_rb,9.3072e-01_rb,7.4457e-01_rb,5.5869e-01_rb, &
+     &3.7227e-01_rb,1.8616e-01_rb,8.2396e-06_rb/)
+      kao(:, 1,10,14) = (/ &
+     &7.2198e+01_rb,6.3175e+01_rb,5.4150e+01_rb,4.5125e+01_rb,3.6100e+01_rb,2.7075e+01_rb, &
+     &1.8050e+01_rb,9.0251e+00_rb,4.5184e-07_rb/)
+      kao(:, 2,10,14) = (/ &
+     &6.4999e+01_rb,5.6876e+01_rb,4.8750e+01_rb,4.0625e+01_rb,3.2499e+01_rb,2.4375e+01_rb, &
+     &1.6250e+01_rb,8.1250e+00_rb,9.0060e-07_rb/)
+      kao(:, 3,10,14) = (/ &
+     &5.3041e+01_rb,4.6463e+01_rb,3.9827e+01_rb,3.3188e+01_rb,2.6599e+01_rb,1.9891e+01_rb, &
+     &1.3300e+01_rb,6.6377e+00_rb,1.7393e-06_rb/)
+      kao(:, 4,10,14) = (/ &
+     &4.2448e+01_rb,3.7144e+01_rb,3.1913e+01_rb,2.6594e+01_rb,2.1225e+01_rb,1.5957e+01_rb, &
+     &1.0638e+01_rb,5.3187e+00_rb,3.1449e-06_rb/)
+      kao(:, 5,10,14) = (/ &
+     &2.5727e+01_rb,2.2511e+01_rb,1.9295e+01_rb,1.6144e+01_rb,1.2810e+01_rb,9.6477e+00_rb, &
+     &6.4321e+00_rb,3.2028e+00_rb,5.3500e-06_rb/)
+      kao(:, 1,11,14) = (/ &
+     &1.4503e+02_rb,1.2691e+02_rb,1.0890e+02_rb,9.0641e+01_rb,7.2517e+01_rb,5.4390e+01_rb, &
+     &3.6259e+01_rb,1.8129e+01_rb,3.6866e-07_rb/)
+      kao(:, 2,11,14) = (/ &
+     &1.4340e+02_rb,1.2547e+02_rb,1.0755e+02_rb,8.9629e+01_rb,7.1700e+01_rb,5.3764e+01_rb, &
+     &3.5851e+01_rb,1.7926e+01_rb,7.4257e-07_rb/)
+      kao(:, 3,11,14) = (/ &
+     &1.2279e+02_rb,1.0744e+02_rb,9.2097e+01_rb,7.6747e+01_rb,6.1397e+01_rb,4.6046e+01_rb, &
+     &3.0699e+01_rb,1.5350e+01_rb,1.4132e-06_rb/)
+      kao(:, 4,11,14) = (/ &
+     &1.0332e+02_rb,9.0407e+01_rb,7.7495e+01_rb,6.4577e+01_rb,5.1661e+01_rb,3.8673e+01_rb, &
+     &2.5832e+01_rb,1.2916e+01_rb,2.5660e-06_rb/)
+      kao(:, 5,11,14) = (/ &
+     &8.4752e+01_rb,7.4338e+01_rb,6.3562e+01_rb,5.3097e+01_rb,4.2377e+01_rb,3.1859e+01_rb, &
+     &2.1189e+01_rb,1.0594e+01_rb,4.3954e-06_rb/)
+      kao(:, 1,12,14) = (/ &
+     &2.1206e+02_rb,1.8578e+02_rb,1.5923e+02_rb,1.3269e+02_rb,1.0615e+02_rb,7.9613e+01_rb, &
+     &5.3076e+01_rb,2.6538e+01_rb,2.9519e-07_rb/)
+      kao(:, 2,12,14) = (/ &
+     &2.1371e+02_rb,1.8696e+02_rb,1.6019e+02_rb,1.3354e+02_rb,1.0696e+02_rb,8.0220e+01_rb, &
+     &5.3478e+01_rb,2.6706e+01_rb,5.9412e-07_rb/)
+      kao(:, 3,12,14) = (/ &
+     &1.9963e+02_rb,1.7467e+02_rb,1.4971e+02_rb,1.2476e+02_rb,9.9809e+01_rb,7.4861e+01_rb, &
+     &4.9906e+01_rb,2.4953e+01_rb,1.1512e-06_rb/)
+      kao(:, 4,12,14) = (/ &
+     &1.7291e+02_rb,1.5155e+02_rb,1.2989e+02_rb,1.0824e+02_rb,8.6596e+01_rb,6.4945e+01_rb, &
+     &4.3297e+01_rb,2.1649e+01_rb,2.0935e-06_rb/)
+      kao(:, 5,12,14) = (/ &
+     &1.4993e+02_rb,1.3106e+02_rb,1.1245e+02_rb,9.3704e+01_rb,7.4891e+01_rb,5.6224e+01_rb, &
+     &3.7445e+01_rb,1.8742e+01_rb,5.3426e-06_rb/)
+      kao(:, 1,13,14) = (/ &
+     &2.3337e+02_rb,2.0357e+02_rb,1.7476e+02_rb,1.4563e+02_rb,1.1651e+02_rb,8.7377e+01_rb, &
+     &5.8250e+01_rb,2.9126e+01_rb,2.3044e-07_rb/)
+      kao(:, 2,13,14) = (/ &
+     &2.3770e+02_rb,2.0799e+02_rb,1.7827e+02_rb,1.4856e+02_rb,1.1885e+02_rb,8.9136e+01_rb, &
+     &5.9426e+01_rb,2.9711e+01_rb,4.7533e-07_rb/)
+      kao(:, 3,13,14) = (/ &
+     &2.3937e+02_rb,2.0945e+02_rb,1.7953e+02_rb,1.4961e+02_rb,1.1968e+02_rb,8.9763e+01_rb, &
+     &5.9841e+01_rb,2.9920e+01_rb,1.2740e-06_rb/)
+      kao(:, 4,13,14) = (/ &
+     &2.1343e+02_rb,1.8675e+02_rb,1.6007e+02_rb,1.3339e+02_rb,1.0671e+02_rb,8.0033e+01_rb, &
+     &5.3356e+01_rb,2.6677e+01_rb,3.7441e-06_rb/)
+      kao(:, 5,13,14) = (/ &
+     &1.8434e+02_rb,1.6130e+02_rb,1.3825e+02_rb,1.1521e+02_rb,9.2167e+01_rb,6.9126e+01_rb, &
+     &4.6084e+01_rb,2.3083e+01_rb,8.0408e-06_rb/)
+      kao(:, 1, 1,15) = (/ &
+     &4.3757e-04_rb,1.7661e-02_rb,6.5219e-02_rb,9.6736e-02_rb,1.2696e-01_rb,1.5472e-01_rb, &
+     &1.7677e-01_rb,1.8124e-01_rb,2.5391e-01_rb/)
+      kao(:, 2, 1,15) = (/ &
+     &4.7244e-04_rb,2.2315e-02_rb,8.7744e-02_rb,1.3008e-01_rb,1.7055e-01_rb,2.0764e-01_rb, &
+     &2.3757e-01_rb,2.4446e-01_rb,3.4110e-01_rb/)
+      kao(:, 3, 1,15) = (/ &
+     &4.9936e-04_rb,3.5467e-02_rb,1.1452e-01_rb,1.6964e-01_rb,2.2220e-01_rb,2.7019e-01_rb, &
+     &3.0873e-01_rb,3.1867e-01_rb,4.4441e-01_rb/)
+      kao(:, 4, 1,15) = (/ &
+     &5.2088e-04_rb,5.0547e-02_rb,1.4538e-01_rb,2.1535e-01_rb,2.8212e-01_rb,3.4264e-01_rb, &
+     &3.9053e-01_rb,4.0360e-01_rb,5.6424e-01_rb/)
+      kao(:, 5, 1,15) = (/ &
+     &5.3484e-04_rb,7.2405e-02_rb,1.8030e-01_rb,2.6712e-01_rb,3.4967e-01_rb,4.2472e-01_rb, &
+     &4.8331e-01_rb,4.9868e-01_rb,6.9933e-01_rb/)
+      kao(:, 1, 2,15) = (/ &
+     &5.8930e-04_rb,5.2056e-04_rb,3.8823e-02_rb,9.4547e-02_rb,1.2473e-01_rb,1.5329e-01_rb, &
+     &1.7814e-01_rb,1.9186e-01_rb,2.4946e-01_rb/)
+      kao(:, 2, 2,15) = (/ &
+     &6.3170e-04_rb,5.6011e-04_rb,6.0488e-02_rb,1.2953e-01_rb,1.7093e-01_rb,2.0982e-01_rb, &
+     &2.4359e-01_rb,2.6142e-01_rb,3.4185e-01_rb/)
+      kao(:, 3, 2,15) = (/ &
+     &6.6396e-04_rb,1.3947e-02_rb,9.3321e-02_rb,1.7148e-01_rb,2.2617e-01_rb,2.7768e-01_rb, &
+     &3.2205e-01_rb,3.4444e-01_rb,4.5233e-01_rb/)
+      kao(:, 4, 2,15) = (/ &
+     &6.8779e-04_rb,3.2900e-02_rb,1.4029e-01_rb,2.2027e-01_rb,2.9047e-01_rb,3.5662e-01_rb, &
+     &4.1356e-01_rb,4.4128e-01_rb,5.8094e-01_rb/)
+      kao(:, 5, 2,15) = (/ &
+     &7.0403e-04_rb,3.1909e-02_rb,1.8526e-01_rb,2.7582e-01_rb,3.6375e-01_rb,4.4666e-01_rb, &
+     &5.1781e-01_rb,5.5205e-01_rb,7.2748e-01_rb/)
+      kao(:, 1, 3,15) = (/ &
+     &1.0314e-03_rb,9.3537e-04_rb,7.8009e-04_rb,3.5190e-02_rb,7.8660e-02_rb,1.3993e-01_rb, &
+     &1.6539e-01_rb,1.8481e-01_rb,1.5700e-01_rb/)
+      kao(:, 2, 3,15) = (/ &
+     &1.1044e-03_rb,9.7099e-04_rb,3.0472e-03_rb,6.2470e-02_rb,1.3066e-01_rb,1.9656e-01_rb, &
+     &2.3229e-01_rb,2.5938e-01_rb,2.6190e-01_rb/)
+      kao(:, 3, 3,15) = (/ &
+     &1.1610e-03_rb,1.0227e-03_rb,3.8685e-02_rb,9.5707e-02_rb,2.0189e-01_rb,2.6560e-01_rb, &
+     &3.1379e-01_rb,3.5039e-01_rb,4.0559e-01_rb/)
+      kao(:, 4, 3,15) = (/ &
+     &1.1999e-03_rb,1.0620e-03_rb,6.9192e-02_rb,1.4962e-01_rb,2.7976e-01_rb,3.4701e-01_rb, &
+     &4.1016e-01_rb,4.5806e-01_rb,5.5953e-01_rb/)
+      kao(:, 5, 3,15) = (/ &
+     &1.2331e-03_rb,1.0899e-03_rb,6.4034e-02_rb,2.1379e-01_rb,3.5531e-01_rb,4.4075e-01_rb, &
+     &5.2094e-01_rb,5.8205e-01_rb,7.1061e-01_rb/)
+      kao(:, 1, 4,15) = (/ &
+     &1.8101e-03_rb,1.5857e-03_rb,1.3614e-03_rb,1.1362e-03_rb,2.5114e-02_rb,5.7242e-02_rb, &
+     &1.1151e-01_rb,1.6445e-01_rb,5.0940e-02_rb/)
+      kao(:, 2, 4,15) = (/ &
+     &1.9417e-03_rb,1.7009e-03_rb,1.4618e-03_rb,1.2222e-03_rb,6.6639e-02_rb,9.6622e-02_rb, &
+     &1.8463e-01_rb,2.3787e-01_rb,1.3472e-01_rb/)
+      kao(:, 3, 4,15) = (/ &
+     &2.0504e-03_rb,1.7934e-03_rb,1.5465e-03_rb,1.2907e-03_rb,6.6457e-02_rb,1.6526e-01_rb, &
+     &2.8062e-01_rb,3.2903e-01_rb,1.3147e-01_rb/)
+      kao(:, 4, 4,15) = (/ &
+     &2.1280e-03_rb,1.8660e-03_rb,1.6076e-03_rb,5.7880e-02_rb,1.0798e-01_rb,2.4822e-01_rb, &
+     &3.8266e-01_rb,4.3856e-01_rb,2.1657e-01_rb/)
+      kao(:, 5, 4,15) = (/ &
+     &3.4223e-03_rb,3.1028e-03_rb,2.6690e-03_rb,1.0905e-01_rb,1.5760e-01_rb,3.4585e-01_rb, &
+     &4.9399e-01_rb,5.6645e-01_rb,3.1389e-01_rb/)
+      kao(:, 1, 5,15) = (/ &
+     &2.8907e-03_rb,2.5398e-03_rb,2.1780e-03_rb,1.8164e-03_rb,1.4541e-03_rb,1.0940e-03_rb, &
+     &7.0483e-02_rb,1.0515e-01_rb,9.1867e-06_rb/)
+      kao(:, 2, 5,15) = (/ &
+     &3.1254e-03_rb,2.7393e-03_rb,2.3477e-03_rb,1.9606e-03_rb,1.5698e-03_rb,3.9518e-02_rb, &
+     &7.4031e-02_rb,1.7523e-01_rb,1.5406e-05_rb/)
+      kao(:, 3, 5,15) = (/ &
+     &6.7235e-03_rb,5.8882e-03_rb,5.0497e-03_rb,4.2126e-03_rb,3.3747e-03_rb,9.4974e-02_rb, &
+     &1.2240e-01_rb,2.6835e-01_rb,2.4302e-05_rb/)
+      kao(:, 4, 5,15) = (/ &
+     &1.0699e-02_rb,9.3645e-03_rb,8.0383e-03_rb,6.6993e-03_rb,5.3674e-03_rb,1.6163e-01_rb, &
+     &2.1236e-01_rb,3.9941e-01_rb,3.6217e-05_rb/)
+      kao(:, 5, 5,15) = (/ &
+     &1.3717e-02_rb,1.2003e-02_rb,1.0303e-02_rb,8.5901e-03_rb,7.6360e-02_rb,1.2908e-01_rb, &
+     &3.1926e-01_rb,5.2644e-01_rb,1.7649e-01_rb/)
+      kao(:, 1, 6,15) = (/ &
+     &8.1592e-03_rb,7.4369e-03_rb,6.3758e-03_rb,5.3146e-03_rb,4.2520e-03_rb,3.1909e-03_rb, &
+     &2.1298e-03_rb,5.0122e-02_rb,5.2510e-06_rb/)
+      kao(:, 2, 6,15) = (/ &
+     &1.6119e-02_rb,1.4482e-02_rb,1.2421e-02_rb,1.0082e-02_rb,8.0668e-03_rb,6.0513e-03_rb, &
+     &2.1472e-02_rb,7.5343e-02_rb,9.3553e-06_rb/)
+      kao(:, 3, 6,15) = (/ &
+     &2.2594e-02_rb,1.9767e-02_rb,1.6948e-02_rb,1.4132e-02_rb,1.1307e-02_rb,8.4832e-03_rb, &
+     &8.7408e-02_rb,1.3678e-01_rb,1.5081e-05_rb/)
+      kao(:, 4, 6,15) = (/ &
+     &2.8287e-02_rb,2.4765e-02_rb,2.1227e-02_rb,1.7693e-02_rb,1.4154e-02_rb,1.0619e-02_rb, &
+     &1.5774e-01_rb,2.2631e-01_rb,2.2824e-05_rb/)
+      kao(:, 5, 6,15) = (/ &
+     &3.3007e-02_rb,2.8867e-02_rb,2.4778e-02_rb,2.0634e-02_rb,1.6523e-02_rb,1.2392e-02_rb, &
+     &2.0991e-01_rb,3.3594e-01_rb,3.3161e-05_rb/)
+      kao(:, 1, 7,15) = (/ &
+     &3.2923e-02_rb,2.8801e-02_rb,2.4671e-02_rb,2.0232e-02_rb,1.6462e-02_rb,1.2339e-02_rb, &
+     &8.2302e-03_rb,4.1175e-03_rb,2.9069e-06_rb/)
+      kao(:, 2, 7,15) = (/ &
+     &4.4354e-02_rb,3.8819e-02_rb,3.3267e-02_rb,2.7723e-02_rb,2.2187e-02_rb,1.6641e-02_rb, &
+     &1.1094e-02_rb,4.4470e-02_rb,5.3667e-06_rb/)
+      kao(:, 3, 7,15) = (/ &
+     &5.4986e-02_rb,4.8115e-02_rb,4.1243e-02_rb,3.4364e-02_rb,2.7498e-02_rb,2.0642e-02_rb, &
+     &1.3901e-02_rb,1.0510e-01_rb,9.1519e-06_rb/)
+      kao(:, 4, 7,15) = (/ &
+     &6.4798e-02_rb,5.6696e-02_rb,4.8186e-02_rb,4.0508e-02_rb,3.2405e-02_rb,2.4095e-02_rb, &
+     &1.6208e-02_rb,1.7836e-01_rb,1.4620e-05_rb/)
+      kao(:, 5, 7,15) = (/ &
+     &7.2855e-02_rb,6.3755e-02_rb,5.4641e-02_rb,4.5546e-02_rb,3.6442e-02_rb,2.7544e-02_rb, &
+     &1.8370e-02_rb,1.8524e-01_rb,2.2125e-05_rb/)
+      kao(:, 1, 8,15) = (/ &
+     &9.4104e-02_rb,8.2337e-02_rb,7.0574e-02_rb,5.8796e-02_rb,4.7043e-02_rb,3.5284e-02_rb, &
+     &2.3531e-02_rb,1.1762e-02_rb,1.5730e-06_rb/)
+      kao(:, 2, 8,15) = (/ &
+     &1.1684e-01_rb,1.0226e-01_rb,8.7581e-02_rb,7.3021e-02_rb,5.8384e-02_rb,4.3796e-02_rb, &
+     &2.9205e-02_rb,1.4602e-02_rb,3.1057e-06_rb/)
+      kao(:, 3, 8,15) = (/ &
+     &1.3899e-01_rb,1.2165e-01_rb,1.0424e-01_rb,8.6874e-02_rb,6.9512e-02_rb,5.2129e-02_rb, &
+     &3.4755e-02_rb,1.7377e-02_rb,5.5778e-06_rb/)
+      kao(:, 4, 8,15) = (/ &
+     &1.6026e-01_rb,1.4023e-01_rb,1.2021e-01_rb,1.0019e-01_rb,8.0158e-02_rb,6.0094e-02_rb, &
+     &4.0057e-02_rb,2.0043e-02_rb,9.3711e-06_rb/)
+      kao(:, 5, 8,15) = (/ &
+     &1.7464e-01_rb,1.5283e-01_rb,1.3102e-01_rb,1.0918e-01_rb,8.7353e-02_rb,6.5505e-02_rb, &
+     &4.3670e-02_rb,2.1848e-02_rb,1.4780e-05_rb/)
+      kao(:, 1, 9,15) = (/ &
+     &4.3914e-01_rb,3.8426e-01_rb,3.2523e-01_rb,2.7101e-01_rb,2.1679e-01_rb,1.6466e-01_rb, &
+     &1.0980e-01_rb,5.4190e-02_rb,8.3394e-07_rb/)
+      kao(:, 2, 9,15) = (/ &
+     &5.3157e-01_rb,4.6496e-01_rb,3.9866e-01_rb,3.3222e-01_rb,2.6580e-01_rb,1.9932e-01_rb, &
+     &1.3289e-01_rb,6.6437e-02_rb,1.7793e-06_rb/)
+      kao(:, 3, 9,15) = (/ &
+     &6.2792e-01_rb,5.4930e-01_rb,4.7092e-01_rb,3.9242e-01_rb,3.1384e-01_rb,2.3543e-01_rb, &
+     &1.5698e-01_rb,7.8487e-02_rb,3.4095e-06_rb/)
+      kao(:, 4, 9,15) = (/ &
+     &6.9612e-01_rb,6.0916e-01_rb,5.2207e-01_rb,4.4160e-01_rb,3.4808e-01_rb,2.6107e-01_rb, &
+     &1.7405e-01_rb,8.7030e-02_rb,6.0449e-06_rb/)
+      kao(:, 5, 9,15) = (/ &
+     &7.1518e-01_rb,6.2568e-01_rb,5.3633e-01_rb,4.4688e-01_rb,3.5754e-01_rb,2.6806e-01_rb, &
+     &1.7876e-01_rb,8.9378e-02_rb,9.9175e-06_rb/)
+      kao(:, 1,10,15) = (/ &
+     &1.3796e+01_rb,1.2071e+01_rb,1.0346e+01_rb,8.6223e+00_rb,6.8983e+00_rb,5.1733e+00_rb, &
+     &3.4490e+00_rb,1.7245e+00_rb,4.7027e-07_rb/)
+      kao(:, 2,10,15) = (/ &
+     &2.6233e+00_rb,2.2954e+00_rb,1.9673e+00_rb,1.6395e+00_rb,1.3116e+00_rb,9.8356e-01_rb, &
+     &6.5573e-01_rb,3.2783e-01_rb,1.0735e-06_rb/)
+      kao(:, 3,10,15) = (/ &
+     &2.9028e+00_rb,2.5398e+00_rb,2.1774e+00_rb,1.8145e+00_rb,1.4515e+00_rb,1.0885e+00_rb, &
+     &7.2570e-01_rb,3.6294e-01_rb,2.1946e-06_rb/)
+      kao(:, 4,10,15) = (/ &
+     &2.9628e+00_rb,2.5919e+00_rb,2.2220e+00_rb,1.8518e+00_rb,1.4813e+00_rb,1.1109e+00_rb, &
+     &7.4065e-01_rb,3.7038e-01_rb,4.0439e-06_rb/)
+      kao(:, 5,10,15) = (/ &
+     &3.0421e+00_rb,2.6615e+00_rb,2.2818e+00_rb,1.9012e+00_rb,1.5210e+00_rb,1.1408e+00_rb, &
+     &7.6043e-01_rb,3.8023e-01_rb,6.8742e-06_rb/)
+      kao(:, 1,11,15) = (/ &
+     &5.1563e+01_rb,4.5117e+01_rb,3.8674e+01_rb,3.2227e+01_rb,2.5782e+01_rb,1.9336e+01_rb, &
+     &1.2891e+01_rb,6.4453e+00_rb,4.0707e-07_rb/)
+      kao(:, 2,11,15) = (/ &
+     &4.0297e+00_rb,3.5262e+00_rb,3.0227e+00_rb,2.5187e+00_rb,2.0150e+00_rb,1.5474e+00_rb, &
+     &1.0073e+00_rb,5.0377e-01_rb,9.5505e-07_rb/)
+      kao(:, 3,11,15) = (/ &
+     &4.2638e+00_rb,3.7317e+00_rb,3.1981e+00_rb,2.6654e+00_rb,2.1321e+00_rb,1.5993e+00_rb, &
+     &1.0662e+00_rb,5.3312e-01_rb,1.9370e-06_rb/)
+      kao(:, 4,11,15) = (/ &
+     &4.5225e+00_rb,3.9566e+00_rb,3.3892e+00_rb,2.8266e+00_rb,2.2603e+00_rb,1.6955e+00_rb, &
+     &1.1303e+00_rb,5.6504e-01_rb,3.5823e-06_rb/)
+      kao(:, 5,11,15) = (/ &
+     &4.7336e+00_rb,4.1418e+00_rb,3.5502e+00_rb,2.9582e+00_rb,2.3669e+00_rb,1.7755e+00_rb, &
+     &1.1834e+00_rb,5.9176e-01_rb,6.1298e-06_rb/)
+      kao(:, 1,12,15) = (/ &
+     &1.0350e+02_rb,9.0564e+01_rb,7.7625e+01_rb,6.4688e+01_rb,5.1750e+01_rb,3.8814e+01_rb, &
+     &2.5874e+01_rb,1.2937e+01_rb,3.8485e-07_rb/)
+      kao(:, 2,12,15) = (/ &
+     &3.5400e+01_rb,3.0974e+01_rb,2.7218e+01_rb,2.2126e+01_rb,1.7700e+01_rb,1.3275e+01_rb, &
+     &8.8500e+00_rb,4.4247e+00_rb,8.6295e-07_rb/)
+      kao(:, 3,12,15) = (/ &
+     &4.7917e+00_rb,4.1902e+00_rb,3.5927e+00_rb,2.9945e+00_rb,2.3939e+00_rb,1.7963e+00_rb, &
+     &1.1970e+00_rb,5.9908e-01_rb,1.7414e-06_rb/)
+      kao(:, 4,12,15) = (/ &
+     &4.7749e+00_rb,4.1779e+00_rb,3.5811e+00_rb,2.9844e+00_rb,2.3876e+00_rb,1.7905e+00_rb, &
+     &1.1938e+00_rb,5.9689e-01_rb,3.1576e-06_rb/)
+      kao(:, 5,12,15) = (/ &
+     &4.7755e+00_rb,4.1774e+00_rb,3.5815e+00_rb,2.9845e+00_rb,2.3876e+00_rb,1.7910e+00_rb, &
+     &1.1938e+00_rb,5.9711e-01_rb,5.4455e-06_rb/)
+      kao(:, 1,13,15) = (/ &
+     &1.3564e+02_rb,1.2035e+02_rb,1.0244e+02_rb,8.5373e+01_rb,6.8293e+01_rb,5.1221e+01_rb, &
+     &3.4147e+01_rb,1.7074e+01_rb,3.5301e-07_rb/)
+      kao(:, 2,13,15) = (/ &
+     &6.6923e+01_rb,5.8556e+01_rb,5.0190e+01_rb,4.1824e+01_rb,3.3458e+01_rb,2.5094e+01_rb, &
+     &1.6730e+01_rb,8.3652e+00_rb,7.8175e-07_rb/)
+      kao(:, 3,13,15) = (/ &
+     &3.7003e+00_rb,3.2381e+00_rb,2.7755e+00_rb,2.3126e+00_rb,1.8500e+00_rb,1.3876e+00_rb, &
+     &9.2513e-01_rb,4.6258e-01_rb,1.5659e-06_rb/)
+      kao(:, 4,13,15) = (/ &
+     &3.7328e+00_rb,3.2655e+00_rb,2.7985e+00_rb,2.3334e+00_rb,1.8661e+00_rb,1.3995e+00_rb, &
+     &9.3310e-01_rb,4.6647e-01_rb,2.9454e-06_rb/)
+      kao(:, 5,13,15) = (/ &
+     &3.7209e+00_rb,3.2581e+00_rb,2.7929e+00_rb,2.3278e+00_rb,1.8618e+00_rb,1.3966e+00_rb, &
+     &9.3071e-01_rb,4.6580e-01_rb,5.0591e-06_rb/)
+      kao(:, 1, 1,16) = (/ &
+     &3.4803e-04_rb,3.1375e-04_rb,9.0029e-02_rb,1.3230e-01_rb,1.7123e-01_rb,2.0432e-01_rb, &
+     &2.2540e-01_rb,2.1561e-01_rb,3.4246e-01_rb/)
+      kao(:, 2, 1,16) = (/ &
+     &3.6711e-04_rb,6.2185e-02_rb,1.2251e-01_rb,1.8007e-01_rb,2.3310e-01_rb,2.7812e-01_rb, &
+     &3.0698e-01_rb,2.9374e-01_rb,4.6619e-01_rb/)
+      kao(:, 3, 1,16) = (/ &
+     &3.8231e-04_rb,8.1789e-02_rb,1.6116e-01_rb,2.3685e-01_rb,3.0661e-01_rb,3.6587e-01_rb, &
+     &4.0384e-01_rb,3.8690e-01_rb,6.1322e-01_rb/)
+      kao(:, 4, 1,16) = (/ &
+     &3.9398e-04_rb,1.0451e-01_rb,2.0587e-01_rb,3.0259e-01_rb,3.9179e-01_rb,4.6767e-01_rb, &
+     &5.1634e-01_rb,4.9462e-01_rb,7.8358e-01_rb/)
+      kao(:, 5, 1,16) = (/ &
+     &4.0251e-04_rb,1.3022e-01_rb,2.5663e-01_rb,3.7711e-01_rb,4.8832e-01_rb,5.8296e-01_rb, &
+     &6.4377e-01_rb,6.1717e-01_rb,9.7664e-01_rb/)
+      kao(:, 1, 2,16) = (/ &
+     &4.4386e-04_rb,3.9528e-04_rb,9.5606e-02_rb,1.4144e-01_rb,1.8490e-01_rb,2.2388e-01_rb, &
+     &2.5317e-01_rb,2.5424e-01_rb,3.6979e-01_rb/)
+      kao(:, 2, 2,16) = (/ &
+     &4.6963e-04_rb,4.2143e-04_rb,1.3208e-01_rb,1.9543e-01_rb,2.5549e-01_rb,3.0939e-01_rb, &
+     &3.5000e-01_rb,3.5157e-01_rb,5.1097e-01_rb/)
+      kao(:, 3, 2,16) = (/ &
+     &4.9052e-04_rb,4.4450e-04_rb,1.7597e-01_rb,2.6040e-01_rb,3.4044e-01_rb,4.1226e-01_rb, &
+     &4.6651e-01_rb,4.6873e-01_rb,6.8087e-01_rb/)
+      kao(:, 4, 2,16) = (/ &
+     &5.0548e-04_rb,4.6448e-04_rb,2.2723e-01_rb,3.3632e-01_rb,4.3972e-01_rb,5.3255e-01_rb, &
+     &6.0266e-01_rb,6.0594e-01_rb,8.7943e-01_rb/)
+      kao(:, 5, 2,16) = (/ &
+     &5.1704e-04_rb,1.4434e-01_rb,2.8579e-01_rb,4.2309e-01_rb,5.5324e-01_rb,6.7011e-01_rb, &
+     &7.5842e-01_rb,7.6291e-01_rb,1.1065e+00_rb/)
+      kao(:, 1, 3,16) = (/ &
+     &7.4514e-04_rb,6.5703e-04_rb,5.6805e-04_rb,1.3986e-01_rb,1.8472e-01_rb,2.2721e-01_rb, &
+     &2.6439e-01_rb,2.8334e-01_rb,3.6943e-01_rb/)
+      kao(:, 2, 3,16) = (/ &
+     &7.9344e-04_rb,7.0163e-04_rb,6.1002e-04_rb,1.9810e-01_rb,2.6159e-01_rb,3.2183e-01_rb, &
+     &3.7436e-01_rb,4.0145e-01_rb,5.2319e-01_rb/)
+      kao(:, 3, 3,16) = (/ &
+     &8.3288e-04_rb,7.4056e-04_rb,6.4608e-04_rb,2.6931e-01_rb,3.5570e-01_rb,4.3753e-01_rb, &
+     &5.0928e-01_rb,5.4624e-01_rb,7.1140e-01_rb/)
+      kao(:, 4, 3,16) = (/ &
+     &8.6418e-04_rb,7.7079e-04_rb,1.2130e-02_rb,3.5401e-01_rb,4.6743e-01_rb,5.7518e-01_rb, &
+     &6.6923e-01_rb,7.1819e-01_rb,9.3487e-01_rb/)
+      kao(:, 5, 3,16) = (/ &
+     &8.8628e-04_rb,7.9797e-04_rb,3.0313e-01_rb,4.5187e-01_rb,5.9661e-01_rb,7.3417e-01_rb, &
+     &8.5463e-01_rb,9.1729e-01_rb,1.1932e+00_rb/)
+      kao(:, 1, 4,16) = (/ &
+     &1.2636e-03_rb,1.1057e-03_rb,9.5136e-04_rb,7.9620e-04_rb,6.4188e-04_rb,2.1791e-01_rb, &
+     &2.5758e-01_rb,2.8791e-01_rb,2.3364e-05_rb/)
+      kao(:, 2, 4,16) = (/ &
+     &1.3610e-03_rb,1.1957e-03_rb,1.0270e-03_rb,8.6413e-04_rb,7.0025e-04_rb,3.1776e-01_rb, &
+     &3.7570e-01_rb,4.1991e-01_rb,3.8771e-05_rb/)
+      kao(:, 3, 4,16) = (/ &
+     &1.4417e-03_rb,1.2662e-03_rb,1.0946e-03_rb,9.2411e-04_rb,3.5694e-01_rb,4.4267e-01_rb, &
+     &5.2346e-01_rb,5.8520e-01_rb,7.1388e-01_rb/)
+      kao(:, 4, 4,16) = (/ &
+     &1.5012e-03_rb,1.3268e-03_rb,1.1484e-03_rb,9.7089e-04_rb,4.7866e-01_rb,5.9391e-01_rb, &
+     &7.0229e-01_rb,7.8545e-01_rb,9.5731e-01_rb/)
+      kao(:, 5, 4,16) = (/ &
+     &1.5493e-03_rb,1.3712e-03_rb,1.1941e-03_rb,1.0165e-03_rb,6.2163e-01_rb,7.7110e-01_rb, &
+     &9.1212e-01_rb,1.0202e+00_rb,1.2432e+00_rb/)
+      kao(:, 1, 5,16) = (/ &
+     &1.9563e-03_rb,1.7130e-03_rb,1.4716e-03_rb,1.2286e-03_rb,9.8449e-04_rb,7.4210e-04_rb, &
+     &5.0011e-04_rb,2.7578e-01_rb,1.4521e-05_rb/)
+      kao(:, 2, 5,16) = (/ &
+     &2.1251e-03_rb,1.8616e-03_rb,1.5991e-03_rb,1.3382e-03_rb,1.0747e-03_rb,8.1191e-04_rb, &
+     &3.6392e-01_rb,4.1523e-01_rb,2.5317e-05_rb/)
+      kao(:, 3, 5,16) = (/ &
+     &2.2685e-03_rb,1.9902e-03_rb,1.7118e-03_rb,1.4319e-03_rb,1.1550e-03_rb,8.7607e-04_rb, &
+     &5.2057e-01_rb,5.9412e-01_rb,4.1189e-05_rb/)
+      kao(:, 4, 5,16) = (/ &
+     &2.3834e-03_rb,2.0939e-03_rb,1.8039e-03_rb,1.5145e-03_rb,1.2237e-03_rb,9.3428e-04_rb, &
+     &7.1378e-01_rb,8.1462e-01_rb,6.3394e-05_rb/)
+      kao(:, 5, 5,16) = (/ &
+     &2.4764e-03_rb,2.1786e-03_rb,1.8819e-03_rb,1.5832e-03_rb,1.2860e-03_rb,7.9256e-01_rb, &
+     &9.4410e-01_rb,1.0778e+00_rb,9.2980e-05_rb/)
+      kao(:, 1, 6,16) = (/ &
+     &2.8061e-03_rb,2.4583e-03_rb,2.1085e-03_rb,1.7622e-03_rb,1.4067e-03_rb,1.0576e-03_rb, &
+     &7.0829e-04_rb,1.6992e-01_rb,8.6758e-06_rb/)
+      kao(:, 2, 6,16) = (/ &
+     &3.0921e-03_rb,2.7056e-03_rb,2.3212e-03_rb,1.9356e-03_rb,1.5529e-03_rb,1.1677e-03_rb, &
+     &7.8418e-04_rb,3.9086e-01_rb,1.5977e-05_rb/)
+      kao(:, 3, 6,16) = (/ &
+     &3.3322e-03_rb,2.9180e-03_rb,2.5057e-03_rb,2.0938e-03_rb,1.6795e-03_rb,1.2657e-03_rb, &
+     &8.5374e-04_rb,5.7620e-01_rb,2.7234e-05_rb/)
+      kao(:, 4, 6,16) = (/ &
+     &3.5394e-03_rb,3.0979e-03_rb,2.6608e-03_rb,2.2263e-03_rb,1.7897e-03_rb,1.3517e-03_rb, &
+     &9.1571e-04_rb,8.0997e-01_rb,4.3592e-05_rb/)
+      kao(:, 5, 6,16) = (/ &
+     &3.6973e-03_rb,3.2450e-03_rb,2.7879e-03_rb,2.3342e-03_rb,1.8813e-03_rb,1.4280e-03_rb, &
+     &2.3591e-01_rb,1.0936e+00_rb,6.6108e-05_rb/)
+      kao(:, 1, 7,16) = (/ &
+     &4.1566e-03_rb,3.6382e-03_rb,3.1187e-03_rb,2.5984e-03_rb,2.0809e-03_rb,1.5620e-03_rb, &
+     &1.0430e-03_rb,5.2415e-04_rb,5.0515e-06_rb/)
+      kao(:, 2, 7,16) = (/ &
+     &4.6397e-03_rb,4.0602e-03_rb,3.4821e-03_rb,2.9026e-03_rb,2.3244e-03_rb,1.7452e-03_rb, &
+     &1.1674e-03_rb,5.8830e-04_rb,9.8982e-06_rb/)
+      kao(:, 3, 7,16) = (/ &
+     &5.0641e-03_rb,4.4282e-03_rb,3.8004e-03_rb,3.1687e-03_rb,2.5412e-03_rb,1.9080e-03_rb, &
+     &1.2777e-03_rb,6.4842e-04_rb,1.7758e-05_rb/)
+      kao(:, 4, 7,16) = (/ &
+     &5.4224e-03_rb,4.7462e-03_rb,4.0771e-03_rb,3.3992e-03_rb,2.7272e-03_rb,2.0505e-03_rb, &
+     &1.3779e-03_rb,7.0354e-04_rb,2.9670e-05_rb/)
+      kao(:, 5, 7,16) = (/ &
+     &5.7229e-03_rb,5.0101e-03_rb,4.3011e-03_rb,3.5983e-03_rb,2.8833e-03_rb,2.1757e-03_rb, &
+     &1.4658e-03_rb,6.1847e-01_rb,4.6639e-05_rb/)
+      kao(:, 1, 8,16) = (/ &
+     &7.1654e-03_rb,6.2688e-03_rb,5.3745e-03_rb,4.4778e-03_rb,3.5800e-03_rb,2.6883e-03_rb, &
+     &1.7931e-03_rb,8.9706e-04_rb,2.8888e-06_rb/)
+      kao(:, 2, 8,16) = (/ &
+     &8.1399e-03_rb,7.1118e-03_rb,6.0997e-03_rb,5.0831e-03_rb,4.0665e-03_rb,3.0517e-03_rb, &
+     &2.0386e-03_rb,1.0214e-03_rb,6.0412e-06_rb/)
+      kao(:, 3, 8,16) = (/ &
+     &8.9800e-03_rb,7.8609e-03_rb,6.7393e-03_rb,5.6216e-03_rb,4.4978e-03_rb,3.3745e-03_rb, &
+     &2.2551e-03_rb,1.1328e-03_rb,1.1454e-05_rb/)
+      kao(:, 4, 8,16) = (/ &
+     &9.7139e-03_rb,8.5067e-03_rb,7.2942e-03_rb,6.0777e-03_rb,4.8682e-03_rb,3.6593e-03_rb, &
+     &2.4437e-03_rb,1.2326e-03_rb,2.0029e-05_rb/)
+      kao(:, 5, 8,16) = (/ &
+     &1.0337e-02_rb,9.0473e-03_rb,7.7560e-03_rb,6.4703e-03_rb,5.1860e-03_rb,3.8948e-03_rb, &
+     &2.6072e-03_rb,1.3207e-03_rb,3.2759e-05_rb/)
+      kao(:, 1, 9,16) = (/ &
+     &2.3247e-02_rb,2.0336e-02_rb,1.7429e-02_rb,1.4524e-02_rb,1.1625e-02_rb,8.7188e-03_rb, &
+     &5.8147e-03_rb,2.9059e-03_rb,1.6015e-06_rb/)
+      kao(:, 2, 9,16) = (/ &
+     &2.6840e-02_rb,2.3482e-02_rb,2.0132e-02_rb,1.6770e-02_rb,1.3422e-02_rb,1.0063e-02_rb, &
+     &6.7117e-03_rb,3.3577e-03_rb,3.6050e-06_rb/)
+      kao(:, 3, 9,16) = (/ &
+     &3.0078e-02_rb,2.6329e-02_rb,2.2553e-02_rb,1.8793e-02_rb,1.5044e-02_rb,1.1280e-02_rb, &
+     &7.5240e-03_rb,3.7656e-03_rb,7.2546e-06_rb/)
+      kao(:, 4, 9,16) = (/ &
+     &3.2925e-02_rb,2.8810e-02_rb,2.4697e-02_rb,2.0586e-02_rb,3.0583e-02_rb,1.2361e-02_rb, &
+     &8.2421e-03_rb,4.1354e-03_rb,1.3329e-05_rb/)
+      kao(:, 5, 9,16) = (/ &
+     &3.5342e-02_rb,3.0934e-02_rb,2.6503e-02_rb,2.2104e-02_rb,1.7684e-02_rb,1.3262e-02_rb, &
+     &8.8536e-03_rb,4.4397e-03_rb,2.2693e-05_rb/)
+      kao(:, 1,10,16) = (/ &
+     &8.4703e-02_rb,7.4117e-02_rb,6.3535e-02_rb,5.2927e-02_rb,4.2343e-02_rb,3.1773e-02_rb, &
+     &2.1175e-02_rb,1.0588e-02_rb,9.2688e-07_rb/)
+      kao(:, 2,10,16) = (/ &
+     &9.9410e-02_rb,8.7009e-02_rb,7.4556e-02_rb,6.2160e-02_rb,4.9698e-02_rb,3.7265e-02_rb, &
+     &2.4850e-02_rb,1.2429e-02_rb,2.2335e-06_rb/)
+      kao(:, 3,10,16) = (/ &
+     &1.1291e-01_rb,9.8729e-02_rb,8.4692e-02_rb,7.0598e-02_rb,5.6422e-02_rb,4.2355e-02_rb, &
+     &2.8232e-02_rb,1.4106e-02_rb,4.7476e-06_rb/)
+      kao(:, 4,10,16) = (/ &
+     &1.2498e-01_rb,1.0930e-01_rb,9.3695e-02_rb,7.8057e-02_rb,6.2479e-02_rb,4.6859e-02_rb, &
+     &3.1244e-02_rb,1.5627e-02_rb,9.1259e-06_rb/)
+      kao(:, 5,10,16) = (/ &
+     &1.3523e-01_rb,1.1838e-01_rb,1.0149e-01_rb,8.4512e-02_rb,6.7619e-02_rb,5.0737e-02_rb, &
+     &3.3842e-02_rb,1.6917e-02_rb,1.6155e-05_rb/)
+      kao(:, 1,11,16) = (/ &
+     &1.1702e-01_rb,1.0242e-01_rb,8.7781e-02_rb,7.3100e-02_rb,5.8528e-02_rb,4.3847e-02_rb, &
+     &2.9250e-02_rb,1.4631e-02_rb,8.3202e-07_rb/)
+      kao(:, 2,11,16) = (/ &
+     &1.3733e-01_rb,1.2017e-01_rb,1.0300e-01_rb,8.5853e-02_rb,6.8653e-02_rb,5.1492e-02_rb, &
+     &3.4322e-02_rb,1.7153e-02_rb,2.0128e-06_rb/)
+      kao(:, 3,11,16) = (/ &
+     &1.5584e-01_rb,1.3638e-01_rb,1.1685e-01_rb,9.7461e-02_rb,7.7843e-02_rb,5.8372e-02_rb, &
+     &3.8976e-02_rb,1.9510e-02_rb,4.3129e-06_rb/)
+      kao(:, 4,11,16) = (/ &
+     &1.7239e-01_rb,1.5086e-01_rb,1.2928e-01_rb,1.0779e-01_rb,8.6176e-02_rb,6.4725e-02_rb, &
+     &4.3097e-02_rb,2.1516e-02_rb,8.3117e-06_rb/)
+      kao(:, 5,11,16) = (/ &
+     &1.8654e-01_rb,1.6325e-01_rb,1.3989e-01_rb,1.1667e-01_rb,9.3408e-02_rb,7.0060e-02_rb, &
+     &4.6775e-02_rb,2.3342e-02_rb,1.4729e-05_rb/)
+      kao(:, 1,12,16) = (/ &
+     &1.1854e-01_rb,1.0376e-01_rb,8.8946e-02_rb,7.4074e-02_rb,5.9255e-02_rb,4.4504e-02_rb, &
+     &2.9679e-02_rb,1.4800e-02_rb,7.4749e-07_rb/)
+      kao(:, 2,12,16) = (/ &
+     &1.3943e-01_rb,1.2204e-01_rb,1.0463e-01_rb,8.7342e-02_rb,6.9856e-02_rb,5.2356e-02_rb, &
+     &3.4894e-02_rb,1.7410e-02_rb,1.8161e-06_rb/)
+      kao(:, 3,12,16) = (/ &
+     &1.5836e-01_rb,1.3868e-01_rb,1.1885e-01_rb,9.9001e-02_rb,7.9338e-02_rb,5.9413e-02_rb, &
+     &3.9707e-02_rb,1.9806e-02_rb,3.8901e-06_rb/)
+      kao(:, 4,12,16) = (/ &
+     &1.7966e-01_rb,1.5728e-01_rb,1.3478e-01_rb,1.1217e-01_rb,8.9784e-02_rb,6.7270e-02_rb, &
+     &4.4900e-02_rb,2.2432e-02_rb,7.2752e-06_rb/)
+      kao(:, 5,12,16) = (/ &
+     &2.0635e-01_rb,1.8060e-01_rb,1.5479e-01_rb,1.2891e-01_rb,1.0321e-01_rb,7.7324e-02_rb, &
+     &5.1591e-02_rb,2.5791e-02_rb,1.2040e-05_rb/)
+      kao(:, 1,13,16) = (/ &
+     &2.1930e-01_rb,8.1271e-02_rb,6.9650e-02_rb,5.7973e-02_rb,4.6358e-02_rb,3.4782e-02_rb, &
+     &2.3204e-02_rb,1.1588e-02_rb,6.6806e-07_rb/)
+      kao(:, 2,13,16) = (/ &
+     &1.1205e-01_rb,9.8083e-02_rb,8.4056e-02_rb,7.0107e-02_rb,5.6050e-02_rb,4.2050e-02_rb, &
+     &2.7998e-02_rb,1.4011e-02_rb,1.5755e-06_rb/)
+      kao(:, 3,13,16) = (/ &
+     &1.3646e-01_rb,1.1932e-01_rb,1.0236e-01_rb,8.5263e-02_rb,6.8236e-02_rb,5.1131e-02_rb, &
+     &3.4091e-02_rb,1.7065e-02_rb,3.1454e-06_rb/)
+      kao(:, 4,13,16) = (/ &
+     &1.5976e-01_rb,1.3979e-01_rb,1.1981e-01_rb,9.9935e-02_rb,7.9931e-02_rb,5.9857e-02_rb, &
+     &3.9898e-02_rb,1.9961e-02_rb,5.5256e-06_rb/)
+      kao(:, 5,13,16) = (/ &
+     &1.7769e-01_rb,1.5548e-01_rb,1.3326e-01_rb,1.1109e-01_rb,8.8840e-02_rb,6.6629e-02_rb, &
+     &4.4447e-02_rb,2.2232e-02_rb,9.1943e-06_rb/)
+
+!     The array KAO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level below 100~ mb.   The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.  The second index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index 
+!     runs over the g-channel (1 to 16).
+
+      kao_mco2( 1, :, 1) = (/ &
+     & 1.09539e-04_rb, 1.17067e-04_rb, 1.25113e-04_rb, 1.33712e-04_rb, 1.42902e-04_rb, &
+     & 1.52724e-04_rb, 1.63221e-04_rb, 1.74439e-04_rb, 1.86428e-04_rb, 1.99241e-04_rb, &
+     & 2.12934e-04_rb, 2.27569e-04_rb, 2.43210e-04_rb, 2.59926e-04_rb, 2.77790e-04_rb, &
+     & 2.96883e-04_rb, 3.17287e-04_rb, 3.39094e-04_rb, 3.62400e-04_rb/)
+      kao_mco2( 2, :, 1) = (/ &
+     & 1.25202e-04_rb, 1.34718e-04_rb, 1.44957e-04_rb, 1.55974e-04_rb, 1.67829e-04_rb, &
+     & 1.80585e-04_rb, 1.94311e-04_rb, 2.09079e-04_rb, 2.24971e-04_rb, 2.42069e-04_rb, &
+     & 2.60468e-04_rb, 2.80265e-04_rb, 3.01567e-04_rb, 3.24488e-04_rb, 3.49150e-04_rb, &
+     & 3.75688e-04_rb, 4.04242e-04_rb, 4.34966e-04_rb, 4.68026e-04_rb/)
+      kao_mco2( 3, :, 1) = (/ &
+     & 1.12112e-04_rb, 1.21090e-04_rb, 1.30786e-04_rb, 1.41259e-04_rb, 1.52571e-04_rb, &
+     & 1.64788e-04_rb, 1.77984e-04_rb, 1.92237e-04_rb, 2.07631e-04_rb, 2.24257e-04_rb, &
+     & 2.42215e-04_rb, 2.61611e-04_rb, 2.82560e-04_rb, 3.05187e-04_rb, 3.29625e-04_rb, &
+     & 3.56021e-04_rb, 3.84530e-04_rb, 4.15322e-04_rb, 4.48580e-04_rb/)
+      kao_mco2( 4, :, 1) = (/ &
+     & 9.74130e-05_rb, 1.05372e-04_rb, 1.13982e-04_rb, 1.23295e-04_rb, 1.33369e-04_rb, &
+     & 1.44265e-04_rb, 1.56053e-04_rb, 1.68803e-04_rb, 1.82595e-04_rb, 1.97514e-04_rb, &
+     & 2.13652e-04_rb, 2.31109e-04_rb, 2.49992e-04_rb, 2.70418e-04_rb, 2.92512e-04_rb, &
+     & 3.16412e-04_rb, 3.42265e-04_rb, 3.70230e-04_rb, 4.00479e-04_rb/)
+      kao_mco2( 5, :, 1) = (/ &
+     & 8.71018e-05_rb, 9.40759e-05_rb, 1.01608e-04_rb, 1.09744e-04_rb, 1.18531e-04_rb, &
+     & 1.28022e-04_rb, 1.38272e-04_rb, 1.49343e-04_rb, 1.61301e-04_rb, 1.74216e-04_rb, &
+     & 1.88166e-04_rb, 2.03232e-04_rb, 2.19504e-04_rb, 2.37079e-04_rb, 2.56062e-04_rb, &
+     & 2.76565e-04_rb, 2.98709e-04_rb, 3.22626e-04_rb, 3.48458e-04_rb/)
+      kao_mco2( 6, :, 1) = (/ &
+     & 7.55256e-05_rb, 8.17414e-05_rb, 8.84688e-05_rb, 9.57500e-05_rb, 1.03630e-04_rb, &
+     & 1.12159e-04_rb, 1.21390e-04_rb, 1.31381e-04_rb, 1.42193e-04_rb, 1.53896e-04_rb, &
+     & 1.66562e-04_rb, 1.80270e-04_rb, 1.95107e-04_rb, 2.11164e-04_rb, 2.28543e-04_rb, &
+     & 2.47353e-04_rb, 2.67710e-04_rb, 2.89743e-04_rb, 3.13589e-04_rb/)
+      kao_mco2( 7, :, 1) = (/ &
+     & 5.31515e-05_rb, 6.06869e-05_rb, 6.92907e-05_rb, 7.91143e-05_rb, 9.03306e-05_rb, &
+     & 1.03137e-04_rb, 1.17759e-04_rb, 1.34454e-04_rb, 1.53516e-04_rb, 1.75281e-04_rb, &
+     & 2.00131e-04_rb, 2.28504e-04_rb, 2.60900e-04_rb, 2.97888e-04_rb, 3.40121e-04_rb, &
+     & 3.88341e-04_rb, 4.43397e-04_rb, 5.06259e-04_rb, 5.78033e-04_rb/)
+      kao_mco2( 8, :, 1) = (/ &
+     & 2.52471e-04_rb, 2.96005e-04_rb, 3.47045e-04_rb, 4.06886e-04_rb, 4.77045e-04_rb, &
+     & 5.59302e-04_rb, 6.55742e-04_rb, 7.68811e-04_rb, 9.01377e-04_rb, 1.05680e-03_rb, &
+     & 1.23902e-03_rb, 1.45267e-03_rb, 1.70315e-03_rb, 1.99683e-03_rb, 2.34114e-03_rb, &
+     & 2.74482e-03_rb, 3.21811e-03_rb, 3.77300e-03_rb, 4.42358e-03_rb/)
+      kao_mco2( 9, :, 1) = (/ &
+     & 4.06711e-05_rb, 4.53161e-05_rb, 5.04917e-05_rb, 5.62583e-05_rb, 6.26836e-05_rb, &
+     & 6.98427e-05_rb, 7.78194e-05_rb, 8.67071e-05_rb, 9.66100e-05_rb, 1.07644e-04_rb, &
+     & 1.19938e-04_rb, 1.33636e-04_rb, 1.48898e-04_rb, 1.65904e-04_rb, 1.84852e-04_rb, &
+     & 2.05964e-04_rb, 2.29487e-04_rb, 2.55697e-04_rb, 2.84900e-04_rb/)
+      kao_mco2( 1, :, 2) = (/ &
+     & 2.01759e-04_rb, 2.15641e-04_rb, 2.30478e-04_rb, 2.46336e-04_rb, 2.63285e-04_rb, &
+     & 2.81400e-04_rb, 3.00761e-04_rb, 3.21455e-04_rb, 3.43573e-04_rb, 3.67212e-04_rb, &
+     & 3.92477e-04_rb, 4.19482e-04_rb, 4.48344e-04_rb, 4.79192e-04_rb, 5.12162e-04_rb, &
+     & 5.47401e-04_rb, 5.85064e-04_rb, 6.25319e-04_rb, 6.68343e-04_rb/)
+      kao_mco2( 2, :, 2) = (/ &
+     & 2.53461e-04_rb, 2.70916e-04_rb, 2.89574e-04_rb, 3.09516e-04_rb, 3.30832e-04_rb, &
+     & 3.53616e-04_rb, 3.77969e-04_rb, 4.03999e-04_rb, 4.31822e-04_rb, 4.61561e-04_rb, &
+     & 4.93348e-04_rb, 5.27324e-04_rb, 5.63640e-04_rb, 6.02457e-04_rb, 6.43948e-04_rb, &
+     & 6.88295e-04_rb, 7.35697e-04_rb, 7.86364e-04_rb, 8.40519e-04_rb/)
+      kao_mco2( 3, :, 2) = (/ &
+     & 2.58821e-04_rb, 2.76943e-04_rb, 2.96334e-04_rb, 3.17082e-04_rb, 3.39283e-04_rb, &
+     & 3.63038e-04_rb, 3.88457e-04_rb, 4.15655e-04_rb, 4.44758e-04_rb, 4.75899e-04_rb, &
+     & 5.09220e-04_rb, 5.44874e-04_rb, 5.83024e-04_rb, 6.23845e-04_rb, 6.67525e-04_rb, &
+     & 7.14263e-04_rb, 7.64273e-04_rb, 8.17785e-04_rb, 8.75043e-04_rb/)
+      kao_mco2( 4, :, 2) = (/ &
+     & 2.46588e-04_rb, 2.64630e-04_rb, 2.83993e-04_rb, 3.04771e-04_rb, 3.27071e-04_rb, &
+     & 3.51001e-04_rb, 3.76683e-04_rb, 4.04244e-04_rb, 4.33821e-04_rb, 4.65563e-04_rb, &
+     & 4.99627e-04_rb, 5.36183e-04_rb, 5.75414e-04_rb, 6.17515e-04_rb, 6.62697e-04_rb, &
+     & 7.11185e-04_rb, 7.63220e-04_rb, 8.19063e-04_rb, 8.78991e-04_rb/)
+      kao_mco2( 5, :, 2) = (/ &
+     & 2.19140e-04_rb, 2.36464e-04_rb, 2.55158e-04_rb, 2.75330e-04_rb, 2.97097e-04_rb, &
+     & 3.20585e-04_rb, 3.45929e-04_rb, 3.73277e-04_rb, 4.02787e-04_rb, 4.34630e-04_rb, &
+     & 4.68991e-04_rb, 5.06068e-04_rb, 5.46076e-04_rb, 5.89247e-04_rb, 6.35831e-04_rb, &
+     & 6.86097e-04_rb, 7.40338e-04_rb, 7.98867e-04_rb, 8.62022e-04_rb/)
+      kao_mco2( 6, :, 2) = (/ &
+     & 1.74073e-04_rb, 1.92221e-04_rb, 2.12260e-04_rb, 2.34388e-04_rb, 2.58824e-04_rb, &
+     & 2.85807e-04_rb, 3.15603e-04_rb, 3.48505e-04_rb, 3.84837e-04_rb, 4.24957e-04_rb, &
+     & 4.69260e-04_rb, 5.18181e-04_rb, 5.72202e-04_rb, 6.31855e-04_rb, 6.97727e-04_rb, &
+     & 7.70466e-04_rb, 8.50789e-04_rb, 9.39485e-04_rb, 1.03743e-03_rb/)
+      kao_mco2( 7, :, 2) = (/ &
+     & 1.74359e-04_rb, 1.99276e-04_rb, 2.27753e-04_rb, 2.60299e-04_rb, 2.97497e-04_rb, &
+     & 3.40010e-04_rb, 3.88599e-04_rb, 4.44130e-04_rb, 5.07598e-04_rb, 5.80135e-04_rb, &
+     & 6.63039e-04_rb, 7.57789e-04_rb, 8.66079e-04_rb, 9.89845e-04_rb, 1.13130e-03_rb, &
+     & 1.29296e-03_rb, 1.47773e-03_rb, 1.68890e-03_rb, 1.93025e-03_rb/)
+      kao_mco2( 8, :, 2) = (/ &
+     & 1.08215e-03_rb, 1.20760e-03_rb, 1.34759e-03_rb, 1.50382e-03_rb, 1.67815e-03_rb, &
+     & 1.87270e-03_rb, 2.08980e-03_rb, 2.33206e-03_rb, 2.60242e-03_rb, 2.90411e-03_rb, &
+     & 3.24078e-03_rb, 3.61648e-03_rb, 4.03573e-03_rb, 4.50359e-03_rb, 5.02568e-03_rb, &
+     & 5.60830e-03_rb, 6.25846e-03_rb, 6.98399e-03_rb, 7.79363e-03_rb/)
+      kao_mco2( 9, :, 2) = (/ &
+     & 1.04969e-04_rb, 1.20766e-04_rb, 1.38939e-04_rb, 1.59848e-04_rb, 1.83903e-04_rb, &
+     & 2.11578e-04_rb, 2.43418e-04_rb, 2.80049e-04_rb, 3.22193e-04_rb, 3.70678e-04_rb, &
+     & 4.26461e-04_rb, 4.90638e-04_rb, 5.64472e-04_rb, 6.49418e-04_rb, 7.47147e-04_rb, &
+     & 8.59583e-04_rb, 9.88940e-04_rb, 1.13776e-03_rb, 1.30898e-03_rb/)
+      kao_mco2( 1, :, 3) = (/ &
+     & 3.72106e-04_rb, 3.96252e-04_rb, 4.21966e-04_rb, 4.49347e-04_rb, 4.78506e-04_rb, &
+     & 5.09557e-04_rb, 5.42623e-04_rb, 5.77834e-04_rb, 6.15330e-04_rb, 6.55260e-04_rb, &
+     & 6.97781e-04_rb, 7.43060e-04_rb, 7.91278e-04_rb, 8.42626e-04_rb, 8.97304e-04_rb, &
+     & 9.55532e-04_rb, 1.01754e-03_rb, 1.08357e-03_rb, 1.15388e-03_rb/)
+      kao_mco2( 2, :, 3) = (/ &
+     & 4.20563e-04_rb, 4.46162e-04_rb, 4.73319e-04_rb, 5.02130e-04_rb, 5.32693e-04_rb, &
+     & 5.65118e-04_rb, 5.99516e-04_rb, 6.36007e-04_rb, 6.74720e-04_rb, 7.15789e-04_rb, &
+     & 7.59358e-04_rb, 8.05579e-04_rb, 8.54613e-04_rb, 9.06632e-04_rb, 9.61817e-04_rb, &
+     & 1.02036e-03_rb, 1.08247e-03_rb, 1.14836e-03_rb, 1.21826e-03_rb/)
+      kao_mco2( 3, :, 3) = (/ &
+     & 4.89664e-04_rb, 5.18321e-04_rb, 5.48654e-04_rb, 5.80764e-04_rb, 6.14752e-04_rb, &
+     & 6.50729e-04_rb, 6.88812e-04_rb, 7.29124e-04_rb, 7.71795e-04_rb, 8.16963e-04_rb, &
+     & 8.64774e-04_rb, 9.15384e-04_rb, 9.68955e-04_rb, 1.02566e-03_rb, 1.08569e-03_rb, &
+     & 1.14922e-03_rb, 1.21648e-03_rb, 1.28767e-03_rb, 1.36303e-03_rb/)
+      kao_mco2( 4, :, 3) = (/ &
+     & 4.61143e-04_rb, 4.92198e-04_rb, 5.25343e-04_rb, 5.60720e-04_rb, 5.98480e-04_rb, &
+     & 6.38783e-04_rb, 6.81799e-04_rb, 7.27713e-04_rb, 7.76718e-04_rb, 8.29023e-04_rb, &
+     & 8.84851e-04_rb, 9.44438e-04_rb, 1.00804e-03_rb, 1.07592e-03_rb, 1.14837e-03_rb, &
+     & 1.22571e-03_rb, 1.30825e-03_rb, 1.39635e-03_rb, 1.49038e-03_rb/)
+      kao_mco2( 5, :, 3) = (/ &
+     & 4.01988e-04_rb, 4.36672e-04_rb, 4.74349e-04_rb, 5.15278e-04_rb, 5.59737e-04_rb, &
+     & 6.08032e-04_rb, 6.60495e-04_rb, 7.17484e-04_rb, 7.79390e-04_rb, 8.46638e-04_rb, &
+     & 9.19688e-04_rb, 9.99041e-04_rb, 1.08524e-03_rb, 1.17888e-03_rb, 1.28059e-03_rb, &
+     & 1.39109e-03_rb, 1.51111e-03_rb, 1.64149e-03_rb, 1.78313e-03_rb/)
+      kao_mco2( 6, :, 3) = (/ &
+     & 3.35536e-04_rb, 3.74371e-04_rb, 4.17700e-04_rb, 4.66045e-04_rb, 5.19985e-04_rb, &
+     & 5.80169e-04_rb, 6.47318e-04_rb, 7.22238e-04_rb, 8.05831e-04_rb, 8.99098e-04_rb, &
+     & 1.00316e-03_rb, 1.11927e-03_rb, 1.24881e-03_rb, 1.39335e-03_rb, 1.55461e-03_rb, &
+     & 1.73455e-03_rb, 1.93530e-03_rb, 2.15930e-03_rb, 2.40921e-03_rb/)
+      kao_mco2( 7, :, 3) = (/ &
+     & 3.24677e-04_rb, 3.75160e-04_rb, 4.33491e-04_rb, 5.00893e-04_rb, 5.78774e-04_rb, &
+     & 6.68765e-04_rb, 7.72749e-04_rb, 8.92900e-04_rb, 1.03173e-03_rb, 1.19215e-03_rb, &
+     & 1.37751e-03_rb, 1.59170e-03_rb, 1.83918e-03_rb, 2.12515e-03_rb, 2.45558e-03_rb, &
+     & 2.83738e-03_rb, 3.27856e-03_rb, 3.78832e-03_rb, 4.37735e-03_rb/)
+      kao_mco2( 8, :, 3) = (/ &
+     & 2.24656e-03_rb, 2.45550e-03_rb, 2.68386e-03_rb, 2.93347e-03_rb, 3.20629e-03_rb, &
+     & 3.50448e-03_rb, 3.83041e-03_rb, 4.18665e-03_rb, 4.57602e-03_rb, 5.00160e-03_rb, &
+     & 5.46677e-03_rb, 5.97519e-03_rb, 6.53090e-03_rb, 7.13829e-03_rb, 7.80217e-03_rb, &
+     & 8.52780e-03_rb, 9.32091e-03_rb, 1.01878e-02_rb, 1.11353e-02_rb/)
+      kao_mco2( 9, :, 3) = (/ &
+     & 2.07746e-04_rb, 2.38909e-04_rb, 2.74746e-04_rb, 3.15959e-04_rb, 3.63355e-04_rb, &
+     & 4.17860e-04_rb, 4.80541e-04_rb, 5.52625e-04_rb, 6.35521e-04_rb, 7.30852e-04_rb, &
+     & 8.40484e-04_rb, 9.66561e-04_rb, 1.11155e-03_rb, 1.27829e-03_rb, 1.47004e-03_rb, &
+     & 1.69055e-03_rb, 1.94414e-03_rb, 2.23577e-03_rb, 2.57115e-03_rb/)
+      kao_mco2( 1, :, 4) = (/ &
+     & 7.26052e-04_rb, 7.62476e-04_rb, 8.00726e-04_rb, 8.40896e-04_rb, 8.83081e-04_rb, &
+     & 9.27382e-04_rb, 9.73905e-04_rb, 1.02276e-03_rb, 1.07407e-03_rb, 1.12795e-03_rb, &
+     & 1.18454e-03_rb, 1.24396e-03_rb, 1.30637e-03_rb, 1.37190e-03_rb, 1.44073e-03_rb, &
+     & 1.51300e-03_rb, 1.58890e-03_rb, 1.66861e-03_rb, 1.75232e-03_rb/)
+      kao_mco2( 2, :, 4) = (/ &
+     & 4.65815e-04_rb, 5.01167e-04_rb, 5.39203e-04_rb, 5.80126e-04_rb, 6.24154e-04_rb, &
+     & 6.71524e-04_rb, 7.22489e-04_rb, 7.77322e-04_rb, 8.36316e-04_rb, 8.99788e-04_rb, &
+     & 9.68077e-04_rb, 1.04155e-03_rb, 1.12060e-03_rb, 1.20564e-03_rb, 1.29714e-03_rb, &
+     & 1.39559e-03_rb, 1.50151e-03_rb, 1.61546e-03_rb, 1.73807e-03_rb/)
+      kao_mco2( 3, :, 4) = (/ &
+     & 3.56225e-04_rb, 3.93073e-04_rb, 4.33732e-04_rb, 4.78598e-04_rb, 5.28105e-04_rb, &
+     & 5.82732e-04_rb, 6.43010e-04_rb, 7.09524e-04_rb, 7.82918e-04_rb, 8.63903e-04_rb, &
+     & 9.53266e-04_rb, 1.05187e-03_rb, 1.16068e-03_rb, 1.28074e-03_rb, 1.41322e-03_rb, &
+     & 1.55941e-03_rb, 1.72071e-03_rb, 1.89870e-03_rb, 2.09511e-03_rb/)
+      kao_mco2( 4, :, 4) = (/ &
+     & 3.37845e-04_rb, 3.79675e-04_rb, 4.26684e-04_rb, 4.79514e-04_rb, 5.38884e-04_rb, &
+     & 6.05606e-04_rb, 6.80589e-04_rb, 7.64855e-04_rb, 8.59555e-04_rb, 9.65980e-04_rb, &
+     & 1.08558e-03_rb, 1.21999e-03_rb, 1.37105e-03_rb, 1.54080e-03_rb, 1.73157e-03_rb, &
+     & 1.94597e-03_rb, 2.18691e-03_rb, 2.45767e-03_rb, 2.76197e-03_rb/)
+      kao_mco2( 5, :, 4) = (/ &
+     & 3.52456e-04_rb, 4.02782e-04_rb, 4.60294e-04_rb, 5.26017e-04_rb, 6.01126e-04_rb, &
+     & 6.86958e-04_rb, 7.85046e-04_rb, 8.97140e-04_rb, 1.02524e-03_rb, 1.17163e-03_rb, &
+     & 1.33892e-03_rb, 1.53010e-03_rb, 1.74858e-03_rb, 1.99825e-03_rb, 2.28358e-03_rb, &
+     & 2.60964e-03_rb, 2.98226e-03_rb, 3.40809e-03_rb, 3.89471e-03_rb/)
+      kao_mco2( 6, :, 4) = (/ &
+     & 4.42884e-04_rb, 5.08187e-04_rb, 5.83119e-04_rb, 6.69100e-04_rb, 7.67758e-04_rb, &
+     & 8.80963e-04_rb, 1.01086e-03_rb, 1.15991e-03_rb, 1.33094e-03_rb, 1.52718e-03_rb, &
+     & 1.75237e-03_rb, 2.01075e-03_rb, 2.30724e-03_rb, 2.64744e-03_rb, 3.03780e-03_rb, &
+     & 3.48572e-03_rb, 3.99969e-03_rb, 4.58944e-03_rb, 5.26614e-03_rb/)
+      kao_mco2( 7, :, 4) = (/ &
+     & 8.09850e-04_rb, 9.09940e-04_rb, 1.02240e-03_rb, 1.14876e-03_rb, 1.29074e-03_rb, &
+     & 1.45026e-03_rb, 1.62950e-03_rb, 1.83089e-03_rb, 2.05718e-03_rb, 2.31143e-03_rb, &
+     & 2.59710e-03_rb, 2.91808e-03_rb, 3.27873e-03_rb, 3.68395e-03_rb, 4.13926e-03_rb, &
+     & 4.65083e-03_rb, 5.22564e-03_rb, 5.87148e-03_rb, 6.59715e-03_rb/)
+      kao_mco2( 8, :, 4) = (/ &
+     & 3.13265e-03_rb, 3.42454e-03_rb, 3.74362e-03_rb, 4.09243e-03_rb, 4.47375e-03_rb, &
+     & 4.89059e-03_rb, 5.34627e-03_rb, 5.84441e-03_rb, 6.38897e-03_rb, 6.98426e-03_rb, &
+     & 7.63502e-03_rb, 8.34642e-03_rb, 9.12409e-03_rb, 9.97423e-03_rb, 1.09036e-02_rb, &
+     & 1.19195e-02_rb, 1.30301e-02_rb, 1.42442e-02_rb, 1.55714e-02_rb/)
+      kao_mco2( 9, :, 4) = (/ &
+     & 5.71287e-04_rb, 6.51252e-04_rb, 7.42411e-04_rb, 8.46330e-04_rb, 9.64794e-04_rb, &
+     & 1.09984e-03_rb, 1.25379e-03_rb, 1.42929e-03_rb, 1.62935e-03_rb, 1.85742e-03_rb, &
+     & 2.11741e-03_rb, 2.41380e-03_rb, 2.75167e-03_rb, 3.13683e-03_rb, 3.57591e-03_rb, &
+     & 4.07645e-03_rb, 4.64705e-03_rb, 5.29751e-03_rb, 6.03903e-03_rb/)
+      kao_mco2( 1, :, 5) = (/ &
+     & 2.92395e-04_rb, 3.32719e-04_rb, 3.78604e-04_rb, 4.30818e-04_rb, 4.90232e-04_rb, &
+     & 5.57839e-04_rb, 6.34771e-04_rb, 7.22312e-04_rb, 8.21927e-04_rb, 9.35278e-04_rb, &
+     & 1.06426e-03_rb, 1.21104e-03_rb, 1.37805e-03_rb, 1.56810e-03_rb, 1.78435e-03_rb, &
+     & 2.03043e-03_rb, 2.31045e-03_rb, 2.62908e-03_rb, 2.99166e-03_rb/)
+      kao_mco2( 2, :, 5) = (/ &
+     & 3.13069e-04_rb, 3.61343e-04_rb, 4.17061e-04_rb, 4.81371e-04_rb, 5.55597e-04_rb, &
+     & 6.41269e-04_rb, 7.40151e-04_rb, 8.54280e-04_rb, 9.86008e-04_rb, 1.13805e-03_rb, &
+     & 1.31353e-03_rb, 1.51608e-03_rb, 1.74985e-03_rb, 2.01967e-03_rb, 2.33110e-03_rb, &
+     & 2.69055e-03_rb, 3.10543e-03_rb, 3.58427e-03_rb, 4.13696e-03_rb/)
+      kao_mco2( 3, :, 5) = (/ &
+     & 3.06937e-04_rb, 3.57841e-04_rb, 4.17187e-04_rb, 4.86375e-04_rb, 5.67038e-04_rb, &
+     & 6.61078e-04_rb, 7.70714e-04_rb, 8.98532e-04_rb, 1.04755e-03_rb, 1.22128e-03_rb, &
+     & 1.42382e-03_rb, 1.65996e-03_rb, 1.93525e-03_rb, 2.25620e-03_rb, 2.63038e-03_rb, &
+     & 3.06661e-03_rb, 3.57519e-03_rb, 4.16812e-03_rb, 4.85937e-03_rb/)
+      kao_mco2( 4, :, 5) = (/ &
+     & 4.06428e-04_rb, 4.72379e-04_rb, 5.49033e-04_rb, 6.38125e-04_rb, 7.41674e-04_rb, &
+     & 8.62026e-04_rb, 1.00191e-03_rb, 1.16449e-03_rb, 1.35345e-03_rb, 1.57308e-03_rb, &
+     & 1.82834e-03_rb, 2.12503e-03_rb, 2.46986e-03_rb, 2.87064e-03_rb, 3.33647e-03_rb, &
+     & 3.87788e-03_rb, 4.50715e-03_rb, 5.23852e-03_rb, 6.08858e-03_rb/)
+      kao_mco2( 5, :, 5) = (/ &
+     & 6.01967e-04_rb, 6.90414e-04_rb, 7.91856e-04_rb, 9.08204e-04_rb, 1.04165e-03_rb, &
+     & 1.19470e-03_rb, 1.37023e-03_rb, 1.57156e-03_rb, 1.80247e-03_rb, 2.06731e-03_rb, &
+     & 2.37106e-03_rb, 2.71944e-03_rb, 3.11901e-03_rb, 3.57729e-03_rb, 4.10290e-03_rb, &
+     & 4.70574e-03_rb, 5.39716e-03_rb, 6.19017e-03_rb, 7.09969e-03_rb/)
+      kao_mco2( 6, :, 5) = (/ &
+     & 1.11622e-03_rb, 1.25799e-03_rb, 1.41776e-03_rb, 1.59783e-03_rb, 1.80077e-03_rb, &
+     & 2.02947e-03_rb, 2.28723e-03_rb, 2.57773e-03_rb, 2.90512e-03_rb, 3.27408e-03_rb, &
+     & 3.68992e-03_rb, 4.15856e-03_rb, 4.68673e-03_rb, 5.28197e-03_rb, 5.95282e-03_rb, &
+     & 6.70887e-03_rb, 7.56094e-03_rb, 8.52123e-03_rb, 9.60348e-03_rb/)
+      kao_mco2( 7, :, 5) = (/ &
+     & 3.63860e-03_rb, 3.96164e-03_rb, 4.31337e-03_rb, 4.69632e-03_rb, 5.11327e-03_rb, &
+     & 5.56724e-03_rb, 6.06151e-03_rb, 6.59967e-03_rb, 7.18561e-03_rb, 7.82356e-03_rb, &
+     & 8.51816e-03_rb, 9.27443e-03_rb, 1.00978e-02_rb, 1.09943e-02_rb, 1.19705e-02_rb, &
+     & 1.30332e-02_rb, 1.41904e-02_rb, 1.54502e-02_rb, 1.68219e-02_rb/)
+      kao_mco2( 8, :, 5) = (/ &
+     & 5.96957e-03_rb, 6.53049e-03_rb, 7.14412e-03_rb, 7.81541e-03_rb, 8.54977e-03_rb, &
+     & 9.35314e-03_rb, 1.02320e-02_rb, 1.11934e-02_rb, 1.22452e-02_rb, 1.33958e-02_rb, &
+     & 1.46545e-02_rb, 1.60315e-02_rb, 1.75379e-02_rb, 1.91858e-02_rb, 2.09886e-02_rb, &
+     & 2.29608e-02_rb, 2.51182e-02_rb, 2.74784e-02_rb, 3.00604e-02_rb/)
+      kao_mco2( 9, :, 5) = (/ &
+     & 1.19381e-03_rb, 1.33882e-03_rb, 1.50143e-03_rb, 1.68379e-03_rb, 1.88831e-03_rb, &
+     & 2.11767e-03_rb, 2.37488e-03_rb, 2.66333e-03_rb, 2.98683e-03_rb, 3.34961e-03_rb, &
+     & 3.75646e-03_rb, 4.21272e-03_rb, 4.72440e-03_rb, 5.29823e-03_rb, 5.94176e-03_rb, &
+     & 6.66345e-03_rb, 7.47280e-03_rb, 8.38045e-03_rb, 9.39835e-03_rb/)
+      kao_mco2( 1, :, 6) = (/ &
+     & 4.12429e-04_rb, 4.84830e-04_rb, 5.69942e-04_rb, 6.69995e-04_rb, 7.87613e-04_rb, &
+     & 9.25878e-04_rb, 1.08842e-03_rb, 1.27949e-03_rb, 1.50410e-03_rb, 1.76814e-03_rb, &
+     & 2.07854e-03_rb, 2.44343e-03_rb, 2.87237e-03_rb, 3.37662e-03_rb, 3.96938e-03_rb, &
+     & 4.66621e-03_rb, 5.48536e-03_rb, 6.44831e-03_rb, 7.58031e-03_rb/)
+      kao_mco2( 2, :, 6) = (/ &
+     & 6.43498e-04_rb, 7.46132e-04_rb, 8.65134e-04_rb, 1.00312e-03_rb, 1.16311e-03_rb, &
+     & 1.34861e-03_rb, 1.56371e-03_rb, 1.81310e-03_rb, 2.10228e-03_rb, 2.43758e-03_rb, &
+     & 2.82635e-03_rb, 3.27714e-03_rb, 3.79981e-03_rb, 4.40586e-03_rb, 5.10855e-03_rb, &
+     & 5.92333e-03_rb, 6.86806e-03_rb, 7.96346e-03_rb, 9.23357e-03_rb/)
+      kao_mco2( 3, :, 6) = (/ &
+     & 1.11336e-03_rb, 1.26910e-03_rb, 1.44662e-03_rb, 1.64897e-03_rb, 1.87962e-03_rb, &
+     & 2.14254e-03_rb, 2.44224e-03_rb, 2.78385e-03_rb, 3.17325e-03_rb, 3.61712e-03_rb, &
+     & 4.12308e-03_rb, 4.69981e-03_rb, 5.35720e-03_rb, 6.10656e-03_rb, 6.96073e-03_rb, &
+     & 7.93439e-03_rb, 9.04424e-03_rb, 1.03093e-02_rb, 1.17514e-02_rb/)
+      kao_mco2( 4, :, 6) = (/ &
+     & 1.87991e-03_rb, 2.10276e-03_rb, 2.35202e-03_rb, 2.63082e-03_rb, 2.94268e-03_rb, &
+     & 3.29150e-03_rb, 3.68168e-03_rb, 4.11810e-03_rb, 4.60626e-03_rb, 5.15228e-03_rb, &
+     & 5.76303e-03_rb, 6.44617e-03_rb, 7.21030e-03_rb, 8.06500e-03_rb, 9.02102e-03_rb, &
+     & 1.00904e-02_rb, 1.12865e-02_rb, 1.26244e-02_rb, 1.41208e-02_rb/)
+      kao_mco2( 5, :, 6) = (/ &
+     & 3.65848e-03_rb, 4.01372e-03_rb, 4.40346e-03_rb, 4.83104e-03_rb, 5.30015e-03_rb, &
+     & 5.81480e-03_rb, 6.37943e-03_rb, 6.99888e-03_rb, 7.67849e-03_rb, 8.42408e-03_rb, &
+     & 9.24208e-03_rb, 1.01395e-02_rb, 1.11241e-02_rb, 1.22042e-02_rb, 1.33893e-02_rb, &
+     & 1.46894e-02_rb, 1.61158e-02_rb, 1.76806e-02_rb, 1.93975e-02_rb/)
+      kao_mco2( 6, :, 6) = (/ &
+     & 5.38476e-03_rb, 5.85088e-03_rb, 6.35735e-03_rb, 6.90765e-03_rb, 7.50560e-03_rb, &
+     & 8.15530e-03_rb, 8.86124e-03_rb, 9.62829e-03_rb, 1.04617e-02_rb, 1.13673e-02_rb, &
+     & 1.23513e-02_rb, 1.34205e-02_rb, 1.45822e-02_rb, 1.58445e-02_rb, 1.72160e-02_rb, &
+     & 1.87062e-02_rb, 2.03255e-02_rb, 2.20849e-02_rb, 2.39966e-02_rb/)
+      kao_mco2( 7, :, 6) = (/ &
+     & 6.27017e-03_rb, 6.84772e-03_rb, 7.47846e-03_rb, 8.16731e-03_rb, 8.91960e-03_rb, &
+     & 9.74118e-03_rb, 1.06384e-02_rb, 1.16183e-02_rb, 1.26885e-02_rb, 1.38573e-02_rb, &
+     & 1.51336e-02_rb, 1.65276e-02_rb, 1.80500e-02_rb, 1.97125e-02_rb, 2.15283e-02_rb, &
+     & 2.35112e-02_rb, 2.56769e-02_rb, 2.80420e-02_rb, 3.06249e-02_rb/)
+      kao_mco2( 8, :, 6) = (/ &
+     & 9.61932e-03_rb, 1.04802e-02_rb, 1.14182e-02_rb, 1.24401e-02_rb, 1.35534e-02_rb, &
+     & 1.47664e-02_rb, 1.60880e-02_rb, 1.75278e-02_rb, 1.90965e-02_rb, 2.08056e-02_rb, &
+     & 2.26677e-02_rb, 2.46964e-02_rb, 2.69066e-02_rb, 2.93147e-02_rb, 3.19383e-02_rb, &
+     & 3.47967e-02_rb, 3.79110e-02_rb, 4.13039e-02_rb, 4.50005e-02_rb/)
+      kao_mco2( 9, :, 6) = (/ &
+     & 2.37921e-03_rb, 2.64556e-03_rb, 2.94173e-03_rb, 3.27105e-03_rb, 3.63724e-03_rb, &
+     & 4.04442e-03_rb, 4.49718e-03_rb, 5.00064e-03_rb, 5.56045e-03_rb, 6.18293e-03_rb, &
+     & 6.87510e-03_rb, 7.64475e-03_rb, 8.50057e-03_rb, 9.45219e-03_rb, 1.05103e-02_rb, &
+     & 1.16870e-02_rb, 1.29953e-02_rb, 1.44501e-02_rb, 1.60677e-02_rb/)
+      kao_mco2( 1, :, 7) = (/ &
+     & 4.64970e-03_rb, 5.13188e-03_rb, 5.66406e-03_rb, 6.25144e-03_rb, 6.89972e-03_rb, &
+     & 7.61523e-03_rb, 8.40493e-03_rb, 9.27654e-03_rb, 1.02385e-02_rb, 1.13003e-02_rb, &
+     & 1.24721e-02_rb, 1.37655e-02_rb, 1.51930e-02_rb, 1.67685e-02_rb, 1.85075e-02_rb, &
+     & 2.04267e-02_rb, 2.25450e-02_rb, 2.48829e-02_rb, 2.74633e-02_rb/)
+      kao_mco2( 2, :, 7) = (/ &
+     & 6.37148e-03_rb, 6.96805e-03_rb, 7.62046e-03_rb, 8.33397e-03_rb, 9.11428e-03_rb, &
+     & 9.96765e-03_rb, 1.09009e-02_rb, 1.19216e-02_rb, 1.30378e-02_rb, 1.42585e-02_rb, &
+     & 1.55935e-02_rb, 1.70536e-02_rb, 1.86503e-02_rb, 2.03965e-02_rb, 2.23062e-02_rb, &
+     & 2.43948e-02_rb, 2.66789e-02_rb, 2.91768e-02_rb, 3.19086e-02_rb/)
+      kao_mco2( 3, :, 7) = (/ &
+     & 7.79364e-03_rb, 8.48097e-03_rb, 9.22892e-03_rb, 1.00428e-02_rb, 1.09285e-02_rb, &
+     & 1.18923e-02_rb, 1.29411e-02_rb, 1.40825e-02_rb, 1.53244e-02_rb, 1.66759e-02_rb, &
+     & 1.81466e-02_rb, 1.97470e-02_rb, 2.14885e-02_rb, 2.33836e-02_rb, 2.54458e-02_rb, &
+     & 2.76899e-02_rb, 3.01320e-02_rb, 3.27893e-02_rb, 3.56811e-02_rb/)
+      kao_mco2( 4, :, 7) = (/ &
+     & 8.70586e-03_rb, 9.48737e-03_rb, 1.03390e-02_rb, 1.12672e-02_rb, 1.22786e-02_rb, &
+     & 1.33808e-02_rb, 1.45820e-02_rb, 1.58910e-02_rb, 1.73175e-02_rb, 1.88721e-02_rb, &
+     & 2.05662e-02_rb, 2.24124e-02_rb, 2.44243e-02_rb, 2.66169e-02_rb, 2.90062e-02_rb, &
+     & 3.16101e-02_rb, 3.44477e-02_rb, 3.75400e-02_rb, 4.09099e-02_rb/)
+      kao_mco2( 5, :, 7) = (/ &
+     & 9.24510e-03_rb, 1.00865e-02_rb, 1.10045e-02_rb, 1.20061e-02_rb, 1.30988e-02_rb, &
+     & 1.42910e-02_rb, 1.55916e-02_rb, 1.70106e-02_rb, 1.85588e-02_rb, 2.02479e-02_rb, &
+     & 2.20908e-02_rb, 2.41013e-02_rb, 2.62948e-02_rb, 2.86880e-02_rb, 3.12990e-02_rb, &
+     & 3.41476e-02_rb, 3.72555e-02_rb, 4.06462e-02_rb, 4.43455e-02_rb/)
+      kao_mco2( 6, :, 7) = (/ &
+     & 1.09559e-02_rb, 1.19933e-02_rb, 1.31290e-02_rb, 1.43722e-02_rb, 1.57331e-02_rb, &
+     & 1.72229e-02_rb, 1.88537e-02_rb, 2.06390e-02_rb, 2.25933e-02_rb, 2.47327e-02_rb, &
+     & 2.70747e-02_rb, 2.96384e-02_rb, 3.24449e-02_rb, 3.55171e-02_rb, 3.88802e-02_rb, &
+     & 4.25619e-02_rb, 4.65921e-02_rb, 5.10039e-02_rb, 5.58335e-02_rb/)
+      kao_mco2( 7, :, 7) = (/ &
+     & 1.36116e-02_rb, 1.48659e-02_rb, 1.62357e-02_rb, 1.77318e-02_rb, 1.93657e-02_rb, &
+     & 2.11502e-02_rb, 2.30991e-02_rb, 2.52276e-02_rb, 2.75522e-02_rb, 3.00910e-02_rb, &
+     & 3.28638e-02_rb, 3.58921e-02_rb, 3.91995e-02_rb, 4.28116e-02_rb, 4.67565e-02_rb, &
+     & 5.10650e-02_rb, 5.57704e-02_rb, 6.09095e-02_rb, 6.65221e-02_rb/)
+      kao_mco2( 8, :, 7) = (/ &
+     & 1.51783e-02_rb, 1.64551e-02_rb, 1.78392e-02_rb, 1.93399e-02_rb, 2.09667e-02_rb, &
+     & 2.27304e-02_rb, 2.46424e-02_rb, 2.67153e-02_rb, 2.89626e-02_rb, 3.13988e-02_rb, &
+     & 3.40401e-02_rb, 3.69035e-02_rb, 4.00077e-02_rb, 4.33731e-02_rb, 4.70216e-02_rb, &
+     & 5.09770e-02_rb, 5.52651e-02_rb, 5.99139e-02_rb, 6.49538e-02_rb/)
+      kao_mco2( 9, :, 7) = (/ &
+     & 1.00072e-02_rb, 1.08638e-02_rb, 1.17937e-02_rb, 1.28032e-02_rb, 1.38991e-02_rb, &
+     & 1.50888e-02_rb, 1.63803e-02_rb, 1.77824e-02_rb, 1.93045e-02_rb, 2.09568e-02_rb, &
+     & 2.27507e-02_rb, 2.46980e-02_rb, 2.68120e-02_rb, 2.91070e-02_rb, 3.15984e-02_rb, &
+     & 3.43031e-02_rb, 3.72393e-02_rb, 4.04268e-02_rb, 4.38872e-02_rb/)
+      kao_mco2( 1, :, 8) = (/ &
+     & 1.59610e-02_rb, 1.74387e-02_rb, 1.90532e-02_rb, 2.08171e-02_rb, 2.27444e-02_rb, &
+     & 2.48501e-02_rb, 2.71508e-02_rb, 2.96645e-02_rb, 3.24109e-02_rb, 3.54115e-02_rb, &
+     & 3.86900e-02_rb, 4.22720e-02_rb, 4.61856e-02_rb, 5.04616e-02_rb, 5.51334e-02_rb, &
+     & 6.02378e-02_rb, 6.58147e-02_rb, 7.19079e-02_rb, 7.85653e-02_rb/)
+      kao_mco2( 2, :, 8) = (/ &
+     & 1.61961e-02_rb, 1.76986e-02_rb, 1.93405e-02_rb, 2.11348e-02_rb, 2.30955e-02_rb, &
+     & 2.52381e-02_rb, 2.75794e-02_rb, 3.01380e-02_rb, 3.29340e-02_rb, 3.59893e-02_rb, &
+     & 3.93280e-02_rb, 4.29766e-02_rb, 4.69636e-02_rb, 5.13204e-02_rb, 5.60815e-02_rb, &
+     & 6.12843e-02_rb, 6.69697e-02_rb, 7.31826e-02_rb, 7.99718e-02_rb/)
+      kao_mco2( 3, :, 8) = (/ &
+     & 1.72034e-02_rb, 1.88241e-02_rb, 2.05974e-02_rb, 2.25377e-02_rb, 2.46609e-02_rb, &
+     & 2.69841e-02_rb, 2.95261e-02_rb, 3.23076e-02_rb, 3.53511e-02_rb, 3.86813e-02_rb, &
+     & 4.23253e-02_rb, 4.63126e-02_rb, 5.06754e-02_rb, 5.54493e-02_rb, 6.06728e-02_rb, &
+     & 6.63885e-02_rb, 7.26426e-02_rb, 7.94859e-02_rb, 8.69738e-02_rb/)
+      kao_mco2( 4, :, 8) = (/ &
+     & 1.79777e-02_rb, 1.96517e-02_rb, 2.14815e-02_rb, 2.34817e-02_rb, 2.56682e-02_rb, &
+     & 2.80583e-02_rb, 3.06709e-02_rb, 3.35268e-02_rb, 3.66486e-02_rb, 4.00611e-02_rb, &
+     & 4.37914e-02_rb, 4.78690e-02_rb, 5.23262e-02_rb, 5.71985e-02_rb, 6.25245e-02_rb, &
+     & 6.83464e-02_rb, 7.47104e-02_rb, 8.16670e-02_rb, 8.92713e-02_rb/)
+      kao_mco2( 5, :, 8) = (/ &
+     & 2.02540e-02_rb, 2.21214e-02_rb, 2.41610e-02_rb, 2.63887e-02_rb, 2.88218e-02_rb, &
+     & 3.14792e-02_rb, 3.43816e-02_rb, 3.75516e-02_rb, 4.10139e-02_rb, 4.47954e-02_rb, &
+     & 4.89256e-02_rb, 5.34366e-02_rb, 5.83635e-02_rb, 6.37447e-02_rb, 6.96220e-02_rb, &
+     & 7.60413e-02_rb, 8.30523e-02_rb, 9.07098e-02_rb, 9.90734e-02_rb/)
+      kao_mco2( 6, :, 8) = (/ &
+     & 2.19009e-02_rb, 2.38517e-02_rb, 2.59762e-02_rb, 2.82899e-02_rb, 3.08097e-02_rb, &
+     & 3.35540e-02_rb, 3.65427e-02_rb, 3.97976e-02_rb, 4.33424e-02_rb, 4.72030e-02_rb, &
+     & 5.14074e-02_rb, 5.59863e-02_rb, 6.09731e-02_rb, 6.64040e-02_rb, 7.23187e-02_rb, &
+     & 7.87603e-02_rb, 8.57755e-02_rb, 9.34157e-02_rb, 1.01736e-01_rb/)
+      kao_mco2( 7, :, 8) = (/ &
+     & 2.52383e-02_rb, 2.73978e-02_rb, 2.97421e-02_rb, 3.22869e-02_rb, 3.50496e-02_rb, &
+     & 3.80486e-02_rb, 4.13042e-02_rb, 4.48383e-02_rb, 4.86749e-02_rb, 5.28397e-02_rb, &
+     & 5.73610e-02_rb, 6.22690e-02_rb, 6.75970e-02_rb, 7.33810e-02_rb, 7.96598e-02_rb, &
+     & 8.64758e-02_rb, 9.38751e-02_rb, 1.01907e-01_rb, 1.10627e-01_rb/)
+      kao_mco2( 8, :, 8) = (/ &
+     & 3.36506e-02_rb, 3.59288e-02_rb, 3.83613e-02_rb, 4.09584e-02_rb, 4.37313e-02_rb, &
+     & 4.66920e-02_rb, 4.98531e-02_rb, 5.32283e-02_rb, 5.68319e-02_rb, 6.06795e-02_rb, &
+     & 6.47876e-02_rb, 6.91739e-02_rb, 7.38570e-02_rb, 7.88573e-02_rb, 8.41960e-02_rb, &
+     & 8.98962e-02_rb, 9.59824e-02_rb, 1.02481e-01_rb, 1.09419e-01_rb/)
+      kao_mco2( 9, :, 8) = (/ &
+     & 2.15151e-02_rb, 2.34420e-02_rb, 2.55415e-02_rb, 2.78291e-02_rb, 3.03215e-02_rb, &
+     & 3.30372e-02_rb, 3.59961e-02_rb, 3.92200e-02_rb, 4.27326e-02_rb, 4.65598e-02_rb, &
+     & 5.07299e-02_rb, 5.52734e-02_rb, 6.02238e-02_rb, 6.56176e-02_rb, 7.14944e-02_rb, &
+     & 7.78977e-02_rb, 8.48744e-02_rb, 9.24759e-02_rb, 1.00758e-01_rb/)
+      kao_mco2( 1, :, 9) = (/ &
+     & 3.34296e-02_rb, 3.64437e-02_rb, 3.97294e-02_rb, 4.33114e-02_rb, 4.72164e-02_rb, &
+     & 5.14734e-02_rb, 5.61143e-02_rb, 6.11735e-02_rb, 6.66890e-02_rb, 7.27016e-02_rb, &
+     & 7.92564e-02_rb, 8.64022e-02_rb, 9.41922e-02_rb, 1.02685e-01_rb, 1.11943e-01_rb, &
+     & 1.22035e-01_rb, 1.33038e-01_rb, 1.45033e-01_rb, 1.58109e-01_rb/)
+      kao_mco2( 2, :, 9) = (/ &
+     & 3.73946e-02_rb, 4.07543e-02_rb, 4.44160e-02_rb, 4.84066e-02_rb, 5.27558e-02_rb, &
+     & 5.74958e-02_rb, 6.26616e-02_rb, 6.82915e-02_rb, 7.44273e-02_rb, 8.11144e-02_rb, &
+     & 8.84023e-02_rb, 9.63449e-02_rb, 1.05001e-01_rb, 1.14435e-01_rb, 1.24717e-01_rb, &
+     & 1.35922e-01_rb, 1.48135e-01_rb, 1.61444e-01_rb, 1.75949e-01_rb/)
+      kao_mco2( 3, :, 9) = (/ &
+     & 4.24539e-02_rb, 4.61192e-02_rb, 5.01010e-02_rb, 5.44265e-02_rb, 5.91255e-02_rb, &
+     & 6.42302e-02_rb, 6.97756e-02_rb, 7.57998e-02_rb, 8.23442e-02_rb, 8.94535e-02_rb, &
+     & 9.71766e-02_rb, 1.05566e-01_rb, 1.14681e-01_rb, 1.24582e-01_rb, 1.35338e-01_rb, &
+     & 1.47022e-01_rb, 1.59716e-01_rb, 1.73505e-01_rb, 1.88485e-01_rb/)
+      kao_mco2( 4, :, 9) = (/ &
+     & 5.30296e-02_rb, 5.73416e-02_rb, 6.20043e-02_rb, 6.70462e-02_rb, 7.24980e-02_rb, &
+     & 7.83931e-02_rb, 8.47676e-02_rb, 9.16604e-02_rb, 9.91137e-02_rb, 1.07173e-01_rb, &
+     & 1.15888e-01_rb, 1.25311e-01_rb, 1.35501e-01_rb, 1.46519e-01_rb, 1.58433e-01_rb, &
+     & 1.71316e-01_rb, 1.85246e-01_rb, 2.00309e-01_rb, 2.16597e-01_rb/)
+      kao_mco2( 5, :, 9) = (/ &
+     & 6.26111e-02_rb, 6.74018e-02_rb, 7.25591e-02_rb, 7.81111e-02_rb, 8.40878e-02_rb, &
+     & 9.05218e-02_rb, 9.74482e-02_rb, 1.04904e-01_rb, 1.12931e-01_rb, 1.21572e-01_rb, &
+     & 1.30875e-01_rb, 1.40889e-01_rb, 1.51669e-01_rb, 1.63274e-01_rb, 1.75767e-01_rb, &
+     & 1.89216e-01_rb, 2.03694e-01_rb, 2.19279e-01_rb, 2.36058e-01_rb/)
+      kao_mco2( 6, :, 9) = (/ &
+     & 7.59080e-02_rb, 8.13446e-02_rb, 8.71706e-02_rb, 9.34139e-02_rb, 1.00104e-01_rb, &
+     & 1.07274e-01_rb, 1.14957e-01_rb, 1.23190e-01_rb, 1.32013e-01_rb, 1.41468e-01_rb, &
+     & 1.51600e-01_rb, 1.62458e-01_rb, 1.74094e-01_rb, 1.86562e-01_rb, 1.99924e-01_rb, &
+     & 2.14243e-01_rb, 2.29587e-01_rb, 2.46031e-01_rb, 2.63652e-01_rb/)
+      kao_mco2( 7, :, 9) = (/ &
+     & 8.81942e-02_rb, 9.39942e-02_rb, 1.00176e-01_rb, 1.06763e-01_rb, 1.13784e-01_rb, &
+     & 1.21267e-01_rb, 1.29242e-01_rb, 1.37742e-01_rb, 1.46800e-01_rb, 1.56454e-01_rb, &
+     & 1.66743e-01_rb, 1.77708e-01_rb, 1.89395e-01_rb, 2.01850e-01_rb, 2.15124e-01_rb, &
+     & 2.29272e-01_rb, 2.44349e-01_rb, 2.60418e-01_rb, 2.77544e-01_rb/)
+      kao_mco2( 8, :, 9) = (/ &
+     & 6.28535e-02_rb, 6.69314e-02_rb, 7.12740e-02_rb, 7.58982e-02_rb, 8.08225e-02_rb, &
+     & 8.60662e-02_rb, 9.16502e-02_rb, 9.75965e-02_rb, 1.03929e-01_rb, 1.10671e-01_rb, &
+     & 1.17852e-01_rb, 1.25498e-01_rb, 1.33640e-01_rb, 1.42311e-01_rb, 1.51544e-01_rb, &
+     & 1.61376e-01_rb, 1.71846e-01_rb, 1.82996e-01_rb, 1.94868e-01_rb/)
+      kao_mco2( 9, :, 9) = (/ &
+     & 6.39196e-02_rb, 6.86702e-02_rb, 7.37738e-02_rb, 7.92568e-02_rb, 8.51473e-02_rb, &
+     & 9.14756e-02_rb, 9.82742e-02_rb, 1.05578e-01_rb, 1.13425e-01_rb, 1.21855e-01_rb, &
+     & 1.30911e-01_rb, 1.40641e-01_rb, 1.51093e-01_rb, 1.62323e-01_rb, 1.74387e-01_rb, &
+     & 1.87348e-01_rb, 2.01272e-01_rb, 2.16231e-01_rb, 2.32301e-01_rb/)
+      kao_mco2( 1, :,10) = (/ &
+     & 9.44086e-02_rb, 1.02788e-01_rb, 1.11911e-01_rb, 1.21844e-01_rb, 1.32659e-01_rb, &
+     & 1.44434e-01_rb, 1.57253e-01_rb, 1.71211e-01_rb, 1.86407e-01_rb, 2.02952e-01_rb, &
+     & 2.20966e-01_rb, 2.40578e-01_rb, 2.61932e-01_rb, 2.85180e-01_rb, 3.10492e-01_rb, &
+     & 3.38051e-01_rb, 3.68056e-01_rb, 4.00723e-01_rb, 4.36291e-01_rb/)
+      kao_mco2( 2, :,10) = (/ &
+     & 1.29528e-01_rb, 1.39646e-01_rb, 1.50554e-01_rb, 1.62315e-01_rb, 1.74994e-01_rb, &
+     & 1.88664e-01_rb, 2.03401e-01_rb, 2.19290e-01_rb, 2.36419e-01_rb, 2.54887e-01_rb, &
+     & 2.74798e-01_rb, 2.96263e-01_rb, 3.19406e-01_rb, 3.44356e-01_rb, 3.71255e-01_rb, &
+     & 4.00256e-01_rb, 4.31522e-01_rb, 4.65230e-01_rb, 5.01571e-01_rb/)
+      kao_mco2( 3, :,10) = (/ &
+     & 1.52325e-01_rb, 1.62991e-01_rb, 1.74404e-01_rb, 1.86616e-01_rb, 1.99684e-01_rb, &
+     & 2.13666e-01_rb, 2.28628e-01_rb, 2.44637e-01_rb, 2.61767e-01_rb, 2.80096e-01_rb, &
+     & 2.99710e-01_rb, 3.20696e-01_rb, 3.43152e-01_rb, 3.67181e-01_rb, 3.92892e-01_rb, &
+     & 4.20403e-01_rb, 4.49841e-01_rb, 4.81340e-01_rb, 5.15045e-01_rb/)
+      kao_mco2( 4, :,10) = (/ &
+     & 1.59763e-01_rb, 1.70378e-01_rb, 1.81698e-01_rb, 1.93770e-01_rb, 2.06644e-01_rb, &
+     & 2.20373e-01_rb, 2.35015e-01_rb, 2.50629e-01_rb, 2.67281e-01_rb, 2.85039e-01_rb, &
+     & 3.03977e-01_rb, 3.24174e-01_rb, 3.45712e-01_rb, 3.68681e-01_rb, 3.93176e-01_rb, &
+     & 4.19299e-01_rb, 4.47157e-01_rb, 4.76866e-01_rb, 5.08549e-01_rb/)
+      kao_mco2( 5, :,10) = (/ &
+     & 1.79202e-01_rb, 1.91125e-01_rb, 2.03840e-01_rb, 2.17402e-01_rb, 2.31866e-01_rb, &
+     & 2.47292e-01_rb, 2.63744e-01_rb, 2.81291e-01_rb, 3.00005e-01_rb, 3.19964e-01_rb, &
+     & 3.41251e-01_rb, 3.63955e-01_rb, 3.88169e-01_rb, 4.13994e-01_rb, 4.41537e-01_rb, &
+     & 4.70912e-01_rb, 5.02242e-01_rb, 5.35656e-01_rb, 5.71293e-01_rb/)
+      kao_mco2( 6, :,10) = (/ &
+     & 1.66628e-01_rb, 1.76984e-01_rb, 1.87984e-01_rb, 1.99668e-01_rb, 2.12078e-01_rb, &
+     & 2.25259e-01_rb, 2.39259e-01_rb, 2.54129e-01_rb, 2.69924e-01_rb, 2.86700e-01_rb, &
+     & 3.04519e-01_rb, 3.23446e-01_rb, 3.43549e-01_rb, 3.64901e-01_rb, 3.87580e-01_rb, &
+     & 4.11669e-01_rb, 4.37255e-01_rb, 4.64431e-01_rb, 4.93297e-01_rb/)
+      kao_mco2( 7, :,10) = (/ &
+     & 2.03980e-01_rb, 2.17141e-01_rb, 2.31152e-01_rb, 2.46067e-01_rb, 2.61945e-01_rb, &
+     & 2.78847e-01_rb, 2.96839e-01_rb, 3.15993e-01_rb, 3.36382e-01_rb, 3.58087e-01_rb, &
+     & 3.81193e-01_rb, 4.05789e-01_rb, 4.31972e-01_rb, 4.59845e-01_rb, 4.89517e-01_rb, &
+     & 5.21103e-01_rb, 5.54727e-01_rb, 5.90520e-01_rb, 6.28623e-01_rb/)
+      kao_mco2( 8, :,10) = (/ &
+     & 1.96161e-04_rb, 2.07177e-04_rb, 2.18812e-04_rb, 2.31101e-04_rb, 2.44079e-04_rb, &
+     & 2.57787e-04_rb, 2.72264e-04_rb, 2.87554e-04_rb, 3.03703e-04_rb, 3.20758e-04_rb, &
+     & 3.38772e-04_rb, 3.57797e-04_rb, 3.77891e-04_rb, 3.99113e-04_rb, 4.21527e-04_rb, &
+     & 4.45200e-04_rb, 4.70202e-04_rb, 4.96608e-04_rb, 5.24498e-04_rb/)
+      kao_mco2( 9, :,10) = (/ &
+     & 1.76275e-01_rb, 1.88091e-01_rb, 2.00699e-01_rb, 2.14152e-01_rb, 2.28507e-01_rb, &
+     & 2.43824e-01_rb, 2.60168e-01_rb, 2.77607e-01_rb, 2.96216e-01_rb, 3.16071e-01_rb, &
+     & 3.37258e-01_rb, 3.59865e-01_rb, 3.83987e-01_rb, 4.09726e-01_rb, 4.37190e-01_rb, &
+     & 4.66495e-01_rb, 4.97765e-01_rb, 5.31131e-01_rb, 5.66733e-01_rb/)
+      kao_mco2( 1, :,11) = (/ &
+     & 1.99797e-01_rb, 2.14154e-01_rb, 2.29543e-01_rb, 2.46038e-01_rb, 2.63718e-01_rb, &
+     & 2.82669e-01_rb, 3.02981e-01_rb, 3.24753e-01_rb, 3.48090e-01_rb, 3.73104e-01_rb, &
+     & 3.99915e-01_rb, 4.28652e-01_rb, 4.59455e-01_rb, 4.92471e-01_rb, 5.27859e-01_rb, &
+     & 5.65791e-01_rb, 6.06448e-01_rb, 6.50027e-01_rb, 6.96738e-01_rb/)
+      kao_mco2( 2, :,11) = (/ &
+     & 2.20638e-01_rb, 2.35685e-01_rb, 2.51759e-01_rb, 2.68929e-01_rb, 2.87271e-01_rb, &
+     & 3.06863e-01_rb, 3.27791e-01_rb, 3.50146e-01_rb, 3.74026e-01_rb, 3.99535e-01_rb, &
+     & 4.26784e-01_rb, 4.55891e-01_rb, 4.86983e-01_rb, 5.20195e-01_rb, 5.55673e-01_rb, &
+     & 5.93570e-01_rb, 6.34052e-01_rb, 6.77294e-01_rb, 7.23486e-01_rb/)
+      kao_mco2( 3, :,11) = (/ &
+     & 2.62988e-01_rb, 2.80924e-01_rb, 3.00085e-01_rb, 3.20552e-01_rb, 3.42414e-01_rb, &
+     & 3.65768e-01_rb, 3.90715e-01_rb, 4.17363e-01_rb, 4.45829e-01_rb, 4.76237e-01_rb, &
+     & 5.08718e-01_rb, 5.43414e-01_rb, 5.80477e-01_rb, 6.20068e-01_rb, 6.62359e-01_rb, &
+     & 7.07535e-01_rb, 7.55791e-01_rb, 8.07339e-01_rb, 8.62403e-01_rb/)
+      kao_mco2( 4, :,11) = (/ &
+     & 2.43674e-01_rb, 2.59946e-01_rb, 2.77304e-01_rb, 2.95821e-01_rb, 3.15575e-01_rb, &
+     & 3.36647e-01_rb, 3.59127e-01_rb, 3.83108e-01_rb, 4.08691e-01_rb, 4.35981e-01_rb, &
+     & 4.65094e-01_rb, 4.96152e-01_rb, 5.29282e-01_rb, 5.64626e-01_rb, 6.02329e-01_rb, &
+     & 6.42550e-01_rb, 6.85457e-01_rb, 7.31229e-01_rb, 7.80057e-01_rb/)
+      kao_mco2( 5, :,11) = (/ &
+     & 2.23323e-01_rb, 2.37553e-01_rb, 2.52689e-01_rb, 2.68791e-01_rb, 2.85918e-01_rb, &
+     & 3.04136e-01_rb, 3.23515e-01_rb, 3.44129e-01_rb, 3.66057e-01_rb, 3.89381e-01_rb, &
+     & 4.14192e-01_rb, 4.40584e-01_rb, 4.68657e-01_rb, 4.98520e-01_rb, 5.30285e-01_rb, &
+     & 5.64074e-01_rb, 6.00016e-01_rb, 6.38248e-01_rb, 6.78917e-01_rb/)
+      kao_mco2( 6, :,11) = (/ &
+     & 2.83716e-01_rb, 3.02622e-01_rb, 3.22788e-01_rb, 3.44298e-01_rb, 3.67241e-01_rb, &
+     & 3.91713e-01_rb, 4.17816e-01_rb, 4.45658e-01_rb, 4.75356e-01_rb, 5.07033e-01_rb, &
+     & 5.40820e-01_rb, 5.76859e-01_rb, 6.15300e-01_rb, 6.56302e-01_rb, 7.00037e-01_rb, &
+     & 7.46686e-01_rb, 7.96443e-01_rb, 8.49516e-01_rb, 9.06126e-01_rb/)
+      kao_mco2( 7, :,11) = (/ &
+     & 1.00497e-03_rb, 1.06500e-03_rb, 1.12863e-03_rb, 1.19606e-03_rb, 1.26751e-03_rb, &
+     & 1.34323e-03_rb, 1.42348e-03_rb, 1.50852e-03_rb, 1.59864e-03_rb, 1.69414e-03_rb, &
+     & 1.79535e-03_rb, 1.90261e-03_rb, 2.01628e-03_rb, 2.13673e-03_rb, 2.26438e-03_rb, &
+     & 2.39966e-03_rb, 2.54302e-03_rb, 2.69494e-03_rb, 2.85594e-03_rb/)
+      kao_mco2( 8, :,11) = (/ &
+     & 3.22623e-04_rb, 3.39937e-04_rb, 3.58181e-04_rb, 3.77404e-04_rb, 3.97658e-04_rb, &
+     & 4.19000e-04_rb, 4.41487e-04_rb, 4.65180e-04_rb, 4.90146e-04_rb, 5.16451e-04_rb, &
+     & 5.44167e-04_rb, 5.73372e-04_rb, 6.04143e-04_rb, 6.36567e-04_rb, 6.70730e-04_rb, &
+     & 7.06726e-04_rb, 7.44655e-04_rb, 7.84619e-04_rb, 8.26727e-04_rb/)
+      kao_mco2( 9, :,11) = (/ &
+     & 2.23872e-01_rb, 2.38360e-01_rb, 2.53786e-01_rb, 2.70210e-01_rb, 2.87697e-01_rb, &
+     & 3.06316e-01_rb, 3.26140e-01_rb, 3.47247e-01_rb, 3.69720e-01_rb, 3.93647e-01_rb, &
+     & 4.19122e-01_rb, 4.46246e-01_rb, 4.75126e-01_rb, 5.05874e-01_rb, 5.38613e-01_rb, &
+     & 5.73470e-01_rb, 6.10583e-01_rb, 6.50098e-01_rb, 6.92170e-01_rb/)
+      kao_mco2( 1, :,12) = (/ &
+     & 3.52418e-01_rb, 3.76085e-01_rb, 4.01341e-01_rb, 4.28293e-01_rb, 4.57055e-01_rb, &
+     & 4.87749e-01_rb, 5.20504e-01_rb, 5.55458e-01_rb, 5.92760e-01_rb, 6.32567e-01_rb, &
+     & 6.75047e-01_rb, 7.20380e-01_rb, 7.68757e-01_rb, 8.20383e-01_rb, 8.75476e-01_rb, &
+     & 9.34268e-01_rb, 9.97009e-01_rb, 1.06396e+00_rb, 1.13541e+00_rb/)
+      kao_mco2( 2, :,12) = (/ &
+     & 3.38812e-01_rb, 3.61001e-01_rb, 3.84645e-01_rb, 4.09836e-01_rb, 4.36678e-01_rb, &
+     & 4.65278e-01_rb, 4.95750e-01_rb, 5.28219e-01_rb, 5.62814e-01_rb, 5.99674e-01_rb, &
+     & 6.38949e-01_rb, 6.80796e-01_rb, 7.25384e-01_rb, 7.72892e-01_rb, 8.23511e-01_rb, &
+     & 8.77446e-01_rb, 9.34913e-01_rb, 9.96144e-01_rb, 1.06138e+00_rb/)
+      kao_mco2( 3, :,12) = (/ &
+     & 3.44644e-01_rb, 3.66671e-01_rb, 3.90105e-01_rb, 4.15038e-01_rb, 4.41564e-01_rb, &
+     & 4.69785e-01_rb, 4.99810e-01_rb, 5.31754e-01_rb, 5.65740e-01_rb, 6.01897e-01_rb, &
+     & 6.40366e-01_rb, 6.81293e-01_rb, 7.24836e-01_rb, 7.71162e-01_rb, 8.20448e-01_rb, &
+     & 8.72885e-01_rb, 9.28673e-01_rb, 9.88027e-01_rb, 1.05117e+00_rb/)
+      kao_mco2( 4, :,12) = (/ &
+     & 4.20358e-01_rb, 4.47809e-01_rb, 4.77053e-01_rb, 5.08207e-01_rb, 5.41395e-01_rb, &
+     & 5.76750e-01_rb, 6.14414e-01_rb, 6.54538e-01_rb, 6.97282e-01_rb, 7.42818e-01_rb, &
+     & 7.91327e-01_rb, 8.43004e-01_rb, 8.98056e-01_rb, 9.56703e-01_rb, 1.01918e+00_rb, &
+     & 1.08574e+00_rb, 1.15664e+00_rb, 1.23217e+00_rb, 1.31264e+00_rb/)
+      kao_mco2( 5, :,12) = (/ &
+     & 4.42756e-01_rb, 4.72000e-01_rb, 5.03174e-01_rb, 5.36408e-01_rb, 5.71837e-01_rb, &
+     & 6.09606e-01_rb, 6.49870e-01_rb, 6.92793e-01_rb, 7.38551e-01_rb, 7.87331e-01_rb, &
+     & 8.39333e-01_rb, 8.94770e-01_rb, 9.53868e-01_rb, 1.01687e+00_rb, 1.08403e+00_rb, &
+     & 1.15563e+00_rb, 1.23196e+00_rb, 1.31333e+00_rb, 1.40007e+00_rb/)
+      kao_mco2( 6, :,12) = (/ &
+     & 1.53662e-01_rb, 1.63104e-01_rb, 1.73126e-01_rb, 1.83764e-01_rb, 1.95055e-01_rb, &
+     & 2.07040e-01_rb, 2.19762e-01_rb, 2.33265e-01_rb, 2.47598e-01_rb, 2.62811e-01_rb, &
+     & 2.78960e-01_rb, 2.96100e-01_rb, 3.14294e-01_rb, 3.33606e-01_rb, 3.54104e-01_rb, &
+     & 3.75862e-01_rb, 3.98956e-01_rb, 4.23470e-01_rb, 4.49490e-01_rb/)
+      kao_mco2( 7, :,12) = (/ &
+     & 5.41472e-04_rb, 5.65116e-04_rb, 5.89793e-04_rb, 6.15547e-04_rb, 6.42426e-04_rb, &
+     & 6.70479e-04_rb, 6.99757e-04_rb, 7.30313e-04_rb, 7.62203e-04_rb, 7.95486e-04_rb, &
+     & 8.30223e-04_rb, 8.66476e-04_rb, 9.04312e-04_rb, 9.43801e-04_rb, 9.85013e-04_rb, &
+     & 1.02803e-03_rb, 1.07292e-03_rb, 1.11977e-03_rb, 1.16866e-03_rb/)
+      kao_mco2( 8, :,12) = (/ &
+     & 5.94251e-04_rb, 6.17650e-04_rb, 6.41969e-04_rb, 6.67246e-04_rb, 6.93518e-04_rb, &
+     & 7.20824e-04_rb, 7.49206e-04_rb, 7.78705e-04_rb, 8.09366e-04_rb, 8.41234e-04_rb, &
+     & 8.74356e-04_rb, 9.08783e-04_rb, 9.44566e-04_rb, 9.81757e-04_rb, 1.02041e-03_rb, &
+     & 1.06059e-03_rb, 1.10235e-03_rb, 1.14575e-03_rb, 1.19087e-03_rb/)
+      kao_mco2( 9, :,12) = (/ &
+     & 4.21683e-01_rb, 4.49025e-01_rb, 4.78140e-01_rb, 5.09142e-01_rb, 5.42155e-01_rb, &
+     & 5.77309e-01_rb, 6.14741e-01_rb, 6.54601e-01_rb, 6.97046e-01_rb, 7.42242e-01_rb, &
+     & 7.90369e-01_rb, 8.41617e-01_rb, 8.96188e-01_rb, 9.54297e-01_rb, 1.01617e+00_rb, &
+     & 1.08206e+00_rb, 1.15222e+00_rb, 1.22693e+00_rb, 1.30649e+00_rb/)
+      kao_mco2( 1, :,13) = (/ &
+     & 5.61805e-01_rb, 5.98988e-01_rb, 6.38631e-01_rb, 6.80898e-01_rb, 7.25962e-01_rb, &
+     & 7.74009e-01_rb, 8.25236e-01_rb, 8.79853e-01_rb, 9.38085e-01_rb, 1.00017e+00_rb, &
+     & 1.06637e+00_rb, 1.13694e+00_rb, 1.21219e+00_rb, 1.29242e+00_rb, 1.37795e+00_rb, &
+     & 1.46915e+00_rb, 1.56638e+00_rb, 1.67005e+00_rb, 1.78058e+00_rb/)
+      kao_mco2( 2, :,13) = (/ &
+     & 5.55938e-01_rb, 5.91800e-01_rb, 6.29976e-01_rb, 6.70615e-01_rb, 7.13876e-01_rb, &
+     & 7.59927e-01_rb, 8.08949e-01_rb, 8.61133e-01_rb, 9.16683e-01_rb, 9.75817e-01_rb, &
+     & 1.03877e+00_rb, 1.10577e+00_rb, 1.17711e+00_rb, 1.25304e+00_rb, 1.33387e+00_rb, &
+     & 1.41992e+00_rb, 1.51152e+00_rb, 1.60902e+00_rb, 1.71282e+00_rb/)
+      kao_mco2( 3, :,13) = (/ &
+     & 5.94615e-01_rb, 6.33277e-01_rb, 6.74453e-01_rb, 7.18307e-01_rb, 7.65012e-01_rb, &
+     & 8.14753e-01_rb, 8.67729e-01_rb, 9.24149e-01_rb, 9.84238e-01_rb, 1.04823e+00_rb, &
+     & 1.11639e+00_rb, 1.18898e+00_rb, 1.26629e+00_rb, 1.34862e+00_rb, 1.43631e+00_rb, &
+     & 1.52970e+00_rb, 1.62916e+00_rb, 1.73509e+00_rb, 1.84791e+00_rb/)
+      kao_mco2( 4, :,13) = (/ &
+     & 5.48973e-01_rb, 5.84145e-01_rb, 6.21570e-01_rb, 6.61394e-01_rb, 7.03768e-01_rb, &
+     & 7.48858e-01_rb, 7.96836e-01_rb, 8.47889e-01_rb, 9.02212e-01_rb, 9.60015e-01_rb, &
+     & 1.02152e+00_rb, 1.08697e+00_rb, 1.15661e+00_rb, 1.23071e+00_rb, 1.30956e+00_rb, &
+     & 1.39347e+00_rb, 1.48274e+00_rb, 1.57774e+00_rb, 1.67883e+00_rb/)
+      kao_mco2( 5, :,13) = (/ &
+     & 1.49742e-01_rb, 1.59049e-01_rb, 1.68934e-01_rb, 1.79434e-01_rb, 1.90586e-01_rb, &
+     & 2.02432e-01_rb, 2.15013e-01_rb, 2.28377e-01_rb, 2.42571e-01_rb, 2.57648e-01_rb, &
+     & 2.73661e-01_rb, 2.90670e-01_rb, 3.08736e-01_rb, 3.27925e-01_rb, 3.48307e-01_rb, &
+     & 3.69955e-01_rb, 3.92949e-01_rb, 4.17372e-01_rb, 4.43312e-01_rb/)
+      kao_mco2( 6, :,13) = (/ &
+     & 8.81777e-04_rb, 9.16690e-04_rb, 9.52985e-04_rb, 9.90718e-04_rb, 1.02994e-03_rb, &
+     & 1.07072e-03_rb, 1.11312e-03_rb, 1.15719e-03_rb, 1.20301e-03_rb, 1.25064e-03_rb, &
+     & 1.30016e-03_rb, 1.35163e-03_rb, 1.40515e-03_rb, 1.46079e-03_rb, 1.51862e-03_rb, &
+     & 1.57875e-03_rb, 1.64126e-03_rb, 1.70624e-03_rb, 1.77380e-03_rb/)
+      kao_mco2( 7, :,13) = (/ &
+     & 8.84366e-04_rb, 9.20446e-04_rb, 9.57999e-04_rb, 9.97083e-04_rb, 1.03776e-03_rb, &
+     & 1.08010e-03_rb, 1.12417e-03_rb, 1.17003e-03_rb, 1.21777e-03_rb, 1.26745e-03_rb, &
+     & 1.31916e-03_rb, 1.37298e-03_rb, 1.42899e-03_rb, 1.48729e-03_rb, 1.54797e-03_rb, &
+     & 1.61113e-03_rb, 1.67686e-03_rb, 1.74527e-03_rb, 1.81647e-03_rb/)
+      kao_mco2( 8, :,13) = (/ &
+     & 8.92597e-04_rb, 9.33069e-04_rb, 9.75377e-04_rb, 1.01960e-03_rb, 1.06583e-03_rb, &
+     & 1.11416e-03_rb, 1.16468e-03_rb, 1.21749e-03_rb, 1.27269e-03_rb, 1.33040e-03_rb, &
+     & 1.39073e-03_rb, 1.45378e-03_rb, 1.51970e-03_rb, 1.58861e-03_rb, 1.66064e-03_rb, &
+     & 1.73594e-03_rb, 1.81465e-03_rb, 1.89693e-03_rb, 1.98294e-03_rb/)
+      kao_mco2( 9, :,13) = (/ &
+     & 1.46280e-01_rb, 1.55378e-01_rb, 1.65043e-01_rb, 1.75308e-01_rb, 1.86212e-01_rb, &
+     & 1.97794e-01_rb, 2.10097e-01_rb, 2.23164e-01_rb, 2.37045e-01_rb, 2.51788e-01_rb, &
+     & 2.67449e-01_rb, 2.84084e-01_rb, 3.01754e-01_rb, 3.20522e-01_rb, 3.40458e-01_rb, &
+     & 3.61634e-01_rb, 3.84127e-01_rb, 4.08020e-01_rb, 4.33398e-01_rb/)
+      kao_mco2( 1, :,14) = (/ &
+     & 9.20236e-01_rb, 9.80010e-01_rb, 1.04367e+00_rb, 1.11146e+00_rb, 1.18366e+00_rb, &
+     & 1.26054e+00_rb, 1.34242e+00_rb, 1.42962e+00_rb, 1.52248e+00_rb, 1.62137e+00_rb, &
+     & 1.72669e+00_rb, 1.83885e+00_rb, 1.95829e+00_rb, 2.08549e+00_rb, 2.22096e+00_rb, &
+     & 2.36522e+00_rb, 2.51886e+00_rb, 2.68247e+00_rb, 2.85671e+00_rb/)
+      kao_mco2( 2, :,14) = (/ &
+     & 8.39823e-01_rb, 8.95471e-01_rb, 9.54806e-01_rb, 1.01807e+00_rb, 1.08553e+00_rb, &
+     & 1.15746e+00_rb, 1.23416e+00_rb, 1.31593e+00_rb, 1.40313e+00_rb, 1.49610e+00_rb, &
+     & 1.59523e+00_rb, 1.70094e+00_rb, 1.81364e+00_rb, 1.93382e+00_rb, 2.06195e+00_rb, &
+     & 2.19858e+00_rb, 2.34426e+00_rb, 2.49960e+00_rb, 2.66522e+00_rb/)
+      kao_mco2( 3, :,14) = (/ &
+     & 5.39252e-01_rb, 5.73971e-01_rb, 6.10925e-01_rb, 6.50259e-01_rb, 6.92125e-01_rb, &
+     & 7.36686e-01_rb, 7.84117e-01_rb, 8.34601e-01_rb, 8.88336e-01_rb, 9.45530e-01_rb, &
+     & 1.00641e+00_rb, 1.07120e+00_rb, 1.14017e+00_rb, 1.21358e+00_rb, 1.29171e+00_rb, &
+     & 1.37488e+00_rb, 1.46340e+00_rb, 1.55762e+00_rb, 1.65790e+00_rb/)
+      kao_mco2( 4, :,14) = (/ &
+     & 1.14837e-03_rb, 1.19701e-03_rb, 1.24770e-03_rb, 1.30055e-03_rb, 1.35563e-03_rb, &
+     & 1.41305e-03_rb, 1.47289e-03_rb, 1.53528e-03_rb, 1.60030e-03_rb, 1.66808e-03_rb, &
+     & 1.73873e-03_rb, 1.81237e-03_rb, 1.88913e-03_rb, 1.96914e-03_rb, 2.05254e-03_rb, &
+     & 2.13947e-03_rb, 2.23009e-03_rb, 2.32454e-03_rb, 2.42299e-03_rb/)
+      kao_mco2( 5, :,14) = (/ &
+     & 1.14611e-03_rb, 1.19424e-03_rb, 1.24440e-03_rb, 1.29666e-03_rb, 1.35111e-03_rb, &
+     & 1.40786e-03_rb, 1.46698e-03_rb, 1.52859e-03_rb, 1.59279e-03_rb, 1.65968e-03_rb, &
+     & 1.72938e-03_rb, 1.80201e-03_rb, 1.87769e-03_rb, 1.95655e-03_rb, 2.03872e-03_rb, &
+     & 2.12434e-03_rb, 2.21355e-03_rb, 2.30651e-03_rb, 2.40338e-03_rb/)
+      kao_mco2( 6, :,14) = (/ &
+     & 1.14203e-03_rb, 1.18930e-03_rb, 1.23852e-03_rb, 1.28979e-03_rb, 1.34317e-03_rb, &
+     & 1.39877e-03_rb, 1.45666e-03_rb, 1.51695e-03_rb, 1.57974e-03_rb, 1.64513e-03_rb, &
+     & 1.71322e-03_rb, 1.78413e-03_rb, 1.85798e-03_rb, 1.93488e-03_rb, 2.01497e-03_rb, &
+     & 2.09837e-03_rb, 2.18522e-03_rb, 2.27567e-03_rb, 2.36986e-03_rb/)
+      kao_mco2( 7, :,14) = (/ &
+     & 1.11217e-03_rb, 1.15727e-03_rb, 1.20421e-03_rb, 1.25305e-03_rb, 1.30386e-03_rb, &
+     & 1.35674e-03_rb, 1.41177e-03_rb, 1.46902e-03_rb, 1.52860e-03_rb, 1.59059e-03_rb, &
+     & 1.65510e-03_rb, 1.72222e-03_rb, 1.79207e-03_rb, 1.86475e-03_rb, 1.94037e-03_rb, &
+     & 2.01907e-03_rb, 2.10095e-03_rb, 2.18616e-03_rb, 2.27482e-03_rb/)
+      kao_mco2( 8, :,14) = (/ &
+     & 1.21596e-03_rb, 1.25817e-03_rb, 1.30183e-03_rb, 1.34702e-03_rb, 1.39377e-03_rb, &
+     & 1.44214e-03_rb, 1.49219e-03_rb, 1.54398e-03_rb, 1.59757e-03_rb, 1.65302e-03_rb, &
+     & 1.71039e-03_rb, 1.76975e-03_rb, 1.83117e-03_rb, 1.89473e-03_rb, 1.96049e-03_rb, &
+     & 2.02853e-03_rb, 2.09893e-03_rb, 2.17178e-03_rb, 2.24716e-03_rb/)
+      kao_mco2( 9, :,14) = (/ &
+     & 1.14611e-03_rb, 1.19424e-03_rb, 1.24440e-03_rb, 1.29666e-03_rb, 1.35111e-03_rb, &
+     & 1.40786e-03_rb, 1.46698e-03_rb, 1.52859e-03_rb, 1.59279e-03_rb, 1.65968e-03_rb, &
+     & 1.72938e-03_rb, 1.80201e-03_rb, 1.87769e-03_rb, 1.95655e-03_rb, 2.03872e-03_rb, &
+     & 2.12434e-03_rb, 2.21355e-03_rb, 2.30651e-03_rb, 2.40338e-03_rb/)
+      kao_mco2( 1, :,15) = (/ &
+     & 1.29470e+00_rb, 1.37848e+00_rb, 1.46768e+00_rb, 1.56266e+00_rb, 1.66378e+00_rb, &
+     & 1.77145e+00_rb, 1.88609e+00_rb, 2.00814e+00_rb, 2.13809e+00_rb, 2.27645e+00_rb, &
+     & 2.42376e+00_rb, 2.58061e+00_rb, 2.74761e+00_rb, 2.92541e+00_rb, 3.11472e+00_rb, &
+     & 3.31628e+00_rb, 3.53088e+00_rb, 3.75938e+00_rb, 4.00265e+00_rb/)
+      kao_mco2( 2, :,15) = (/ &
+     & 7.23701e-01_rb, 7.68508e-01_rb, 8.16089e-01_rb, 8.66616e-01_rb, 9.20272e-01_rb, &
+     & 9.77250e-01_rb, 1.03775e+00_rb, 1.10201e+00_rb, 1.17024e+00_rb, 1.24269e+00_rb, &
+     & 1.31963e+00_rb, 1.40133e+00_rb, 1.48809e+00_rb, 1.58023e+00_rb, 1.67807e+00_rb, &
+     & 1.78196e+00_rb, 1.89229e+00_rb, 2.00945e+00_rb, 2.13386e+00_rb/)
+      kao_mco2( 3, :,15) = (/ &
+     & 1.81684e-03_rb, 1.85424e-03_rb, 1.89241e-03_rb, 1.93137e-03_rb, 1.97114e-03_rb, &
+     & 2.01172e-03_rb, 2.05313e-03_rb, 2.09540e-03_rb, 2.13854e-03_rb, 2.18257e-03_rb, &
+     & 2.22750e-03_rb, 2.27336e-03_rb, 2.32016e-03_rb, 2.36793e-03_rb, 2.41668e-03_rb, &
+     & 2.46643e-03_rb, 2.51721e-03_rb, 2.56903e-03_rb, 2.62192e-03_rb/)
+      kao_mco2( 4, :,15) = (/ &
+     & 1.84644e-03_rb, 1.88437e-03_rb, 1.92309e-03_rb, 1.96260e-03_rb, 2.00293e-03_rb, &
+     & 2.04408e-03_rb, 2.08608e-03_rb, 2.12894e-03_rb, 2.17268e-03_rb, 2.21732e-03_rb, &
+     & 2.26288e-03_rb, 2.30938e-03_rb, 2.35683e-03_rb, 2.40525e-03_rb, 2.45467e-03_rb, &
+     & 2.50510e-03_rb, 2.55658e-03_rb, 2.60910e-03_rb, 2.66271e-03_rb/)
+      kao_mco2( 5, :,15) = (/ &
+     & 1.88579e-03_rb, 1.92454e-03_rb, 1.96408e-03_rb, 2.00443e-03_rb, 2.04561e-03_rb, &
+     & 2.08764e-03_rb, 2.13054e-03_rb, 2.17431e-03_rb, 2.21898e-03_rb, 2.26457e-03_rb, &
+     & 2.31110e-03_rb, 2.35858e-03_rb, 2.40704e-03_rb, 2.45650e-03_rb, 2.50697e-03_rb, &
+     & 2.55848e-03_rb, 2.61104e-03_rb, 2.66469e-03_rb, 2.71943e-03_rb/)
+      kao_mco2( 6, :,15) = (/ &
+     & 1.95322e-03_rb, 1.99316e-03_rb, 2.03391e-03_rb, 2.07549e-03_rb, 2.11793e-03_rb, &
+     & 2.16123e-03_rb, 2.20542e-03_rb, 2.25051e-03_rb, 2.29652e-03_rb, 2.34347e-03_rb, &
+     & 2.39139e-03_rb, 2.44028e-03_rb, 2.49017e-03_rb, 2.54109e-03_rb, 2.59304e-03_rb, &
+     & 2.64605e-03_rb, 2.70015e-03_rb, 2.75536e-03_rb, 2.81169e-03_rb/)
+      kao_mco2( 7, :,15) = (/ &
+     & 2.13640e-03_rb, 2.17976e-03_rb, 2.22400e-03_rb, 2.26914e-03_rb, 2.31520e-03_rb, &
+     & 2.36219e-03_rb, 2.41013e-03_rb, 2.45905e-03_rb, 2.50896e-03_rb, 2.55988e-03_rb, &
+     & 2.61184e-03_rb, 2.66485e-03_rb, 2.71893e-03_rb, 2.77412e-03_rb, 2.83042e-03_rb, &
+     & 2.88787e-03_rb, 2.94648e-03_rb, 3.00629e-03_rb, 3.06730e-03_rb/)
+      kao_mco2( 8, :,15) = (/ &
+     & 2.17014e-03_rb, 2.21411e-03_rb, 2.25897e-03_rb, 2.30474e-03_rb, 2.35143e-03_rb, &
+     & 2.39908e-03_rb, 2.44769e-03_rb, 2.49728e-03_rb, 2.54788e-03_rb, 2.59950e-03_rb, &
+     & 2.65217e-03_rb, 2.70591e-03_rb, 2.76073e-03_rb, 2.81667e-03_rb, 2.87374e-03_rb, &
+     & 2.93197e-03_rb, 2.99137e-03_rb, 3.05198e-03_rb, 3.11382e-03_rb/)
+      kao_mco2( 9, :,15) = (/ &
+     & 1.88579e-03_rb, 1.92454e-03_rb, 1.96408e-03_rb, 2.00443e-03_rb, 2.04561e-03_rb, &
+     & 2.08764e-03_rb, 2.13054e-03_rb, 2.17431e-03_rb, 2.21898e-03_rb, 2.26457e-03_rb, &
+     & 2.31110e-03_rb, 2.35858e-03_rb, 2.40704e-03_rb, 2.45650e-03_rb, 2.50697e-03_rb, &
+     & 2.55848e-03_rb, 2.61104e-03_rb, 2.66469e-03_rb, 2.71943e-03_rb/)
+      kao_mco2( 1, :,16) = (/ &
+     & 1.48989e+00_rb, 1.58377e+00_rb, 1.68356e+00_rb, 1.78964e+00_rb, 1.90241e+00_rb, &
+     & 2.02228e+00_rb, 2.14971e+00_rb, 2.28516e+00_rb, 2.42915e+00_rb, 2.58221e+00_rb, &
+     & 2.74492e+00_rb, 2.91788e+00_rb, 3.10174e+00_rb, 3.29718e+00_rb, 3.50494e+00_rb, &
+     & 3.72578e+00_rb, 3.96055e+00_rb, 4.21010e+00_rb, 4.47538e+00_rb/)
+      kao_mco2( 2, :,16) = (/ &
+     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &
+     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &
+     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &
+     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)
+      kao_mco2( 3, :,16) = (/ &
+     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &
+     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &
+     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &
+     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)
+      kao_mco2( 4, :,16) = (/ &
+     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &
+     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &
+     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &
+     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)
+      kao_mco2( 5, :,16) = (/ &
+     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &
+     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &
+     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &
+     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)
+      kao_mco2( 6, :,16) = (/ &
+     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &
+     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &
+     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &
+     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)
+      kao_mco2( 7, :,16) = (/ &
+     & 2.09970e-03_rb, 2.14101e-03_rb, 2.18312e-03_rb, 2.22606e-03_rb, 2.26985e-03_rb, &
+     & 2.31450e-03_rb, 2.36003e-03_rb, 2.40645e-03_rb, 2.45379e-03_rb, 2.50205e-03_rb, &
+     & 2.55127e-03_rb, 2.60146e-03_rb, 2.65263e-03_rb, 2.70481e-03_rb, 2.75801e-03_rb, &
+     & 2.81226e-03_rb, 2.86758e-03_rb, 2.92399e-03_rb, 2.98150e-03_rb/)
+      kao_mco2( 8, :,16) = (/ &
+     & 2.09970e-03_rb, 2.14101e-03_rb, 2.18312e-03_rb, 2.22606e-03_rb, 2.26985e-03_rb, &
+     & 2.31450e-03_rb, 2.36003e-03_rb, 2.40645e-03_rb, 2.45379e-03_rb, 2.50205e-03_rb, &
+     & 2.55127e-03_rb, 2.60146e-03_rb, 2.65263e-03_rb, 2.70481e-03_rb, 2.75801e-03_rb, &
+     & 2.81226e-03_rb, 2.86758e-03_rb, 2.92399e-03_rb, 2.98150e-03_rb/)
+      kao_mco2( 9, :,16) = (/ &
+     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &
+     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &
+     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &
+     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)
+
+      kao_mco( 1, :, 1) = (/ &
+     & 4.58355e-01_rb, 4.47074e-01_rb, 4.36070e-01_rb, 4.25337e-01_rb, 4.14868e-01_rb, &
+     & 4.04657e-01_rb, 3.94697e-01_rb, 3.84982e-01_rb, 3.75506e-01_rb, 3.66264e-01_rb, &
+     & 3.57249e-01_rb, 3.48456e-01_rb, 3.39879e-01_rb, 3.31514e-01_rb, 3.23354e-01_rb, &
+     & 3.15395e-01_rb, 3.07632e-01_rb, 3.00061e-01_rb, 2.92675e-01_rb/)
+      kao_mco( 2, :, 1) = (/ &
+     & 7.03080e-01_rb, 6.84132e-01_rb, 6.65696e-01_rb, 6.47756e-01_rb, 6.30300e-01_rb, &
+     & 6.13314e-01_rb, 5.96786e-01_rb, 5.80703e-01_rb, 5.65053e-01_rb, 5.49826e-01_rb, &
+     & 5.35009e-01_rb, 5.20591e-01_rb, 5.06561e-01_rb, 4.92910e-01_rb, 4.79627e-01_rb, &
+     & 4.66701e-01_rb, 4.54124e-01_rb, 4.41886e-01_rb, 4.29978e-01_rb/)
+      kao_mco( 3, :, 1) = (/ &
+     & 8.53018e-01_rb, 8.29537e-01_rb, 8.06703e-01_rb, 7.84497e-01_rb, 7.62903e-01_rb, &
+     & 7.41903e-01_rb, 7.21481e-01_rb, 7.01621e-01_rb, 6.82307e-01_rb, 6.63526e-01_rb, &
+     & 6.45261e-01_rb, 6.27499e-01_rb, 6.10226e-01_rb, 5.93429e-01_rb, 5.77094e-01_rb, &
+     & 5.61208e-01_rb, 5.45760e-01_rb, 5.30737e-01_rb, 5.16128e-01_rb/)
+      kao_mco( 4, :, 1) = (/ &
+     & 9.58866e-01_rb, 9.31881e-01_rb, 9.05654e-01_rb, 8.80166e-01_rb, 8.55395e-01_rb, &
+     & 8.31321e-01_rb, 8.07925e-01_rb, 7.85187e-01_rb, 7.63089e-01_rb, 7.41613e-01_rb, &
+     & 7.20742e-01_rb, 7.00457e-01_rb, 6.80744e-01_rb, 6.61586e-01_rb, 6.42966e-01_rb, &
+     & 6.24871e-01_rb, 6.07285e-01_rb, 5.90194e-01_rb, 5.73584e-01_rb/)
+      kao_mco( 5, :, 1) = (/ &
+     & 1.07140e+00_rb, 1.04056e+00_rb, 1.01061e+00_rb, 9.81521e-01_rb, 9.53269e-01_rb, &
+     & 9.25829e-01_rb, 8.99180e-01_rb, 8.73297e-01_rb, 8.48160e-01_rb, 8.23746e-01_rb, &
+     & 8.00035e-01_rb, 7.77006e-01_rb, 7.54641e-01_rb, 7.32919e-01_rb, 7.11822e-01_rb, &
+     & 6.91333e-01_rb, 6.71433e-01_rb, 6.52106e-01_rb, 6.33336e-01_rb/)
+      kao_mco( 6, :, 1) = (/ &
+     & 1.21046e+00_rb, 1.17478e+00_rb, 1.14015e+00_rb, 1.10655e+00_rb, 1.07393e+00_rb, &
+     & 1.04228e+00_rb, 1.01156e+00_rb, 9.81740e-01_rb, 9.52803e-01_rb, 9.24720e-01_rb, &
+     & 8.97463e-01_rb, 8.71011e-01_rb, 8.45338e-01_rb, 8.20422e-01_rb, 7.96240e-01_rb, &
+     & 7.72771e-01_rb, 7.49993e-01_rb, 7.27887e-01_rb, 7.06433e-01_rb/)
+      kao_mco( 7, :, 1) = (/ &
+     & 1.57730e+00_rb, 1.52919e+00_rb, 1.48255e+00_rb, 1.43733e+00_rb, 1.39349e+00_rb, &
+     & 1.35099e+00_rb, 1.30978e+00_rb, 1.26983e+00_rb, 1.23110e+00_rb, 1.19355e+00_rb, &
+     & 1.15715e+00_rb, 1.12186e+00_rb, 1.08764e+00_rb, 1.05446e+00_rb, 1.02230e+00_rb, &
+     & 9.91121e-01_rb, 9.60890e-01_rb, 9.31583e-01_rb, 9.03169e-01_rb/)
+      kao_mco( 8, :, 1) = (/ &
+     & 2.43678e+00_rb, 2.36595e+00_rb, 2.29719e+00_rb, 2.23042e+00_rb, 2.16560e+00_rb, &
+     & 2.10266e+00_rb, 2.04154e+00_rb, 1.98221e+00_rb, 1.92460e+00_rb, 1.86866e+00_rb, &
+     & 1.81435e+00_rb, 1.76162e+00_rb, 1.71042e+00_rb, 1.66070e+00_rb, 1.61244e+00_rb, &
+     & 1.56557e+00_rb, 1.52007e+00_rb, 1.47589e+00_rb, 1.43300e+00_rb/)
+      kao_mco( 9, :, 1) = (/ &
+     & 9.66296e-01_rb, 9.39903e-01_rb, 9.14232e-01_rb, 8.89262e-01_rb, 8.64973e-01_rb, &
+     & 8.41348e-01_rb, 8.18369e-01_rb, 7.96017e-01_rb, 7.74275e-01_rb, 7.53128e-01_rb, &
+     & 7.32558e-01_rb, 7.12549e-01_rb, 6.93088e-01_rb, 6.74157e-01_rb, 6.55744e-01_rb, &
+     & 6.37834e-01_rb, 6.20413e-01_rb, 6.03468e-01_rb, 5.86985e-01_rb/)
+      kao_mco( 1, :, 2) = (/ &
+     & 1.15047e+00_rb, 1.12127e+00_rb, 1.09281e+00_rb, 1.06507e+00_rb, 1.03804e+00_rb, &
+     & 1.01169e+00_rb, 9.86010e-01_rb, 9.60983e-01_rb, 9.36591e-01_rb, 9.12818e-01_rb, &
+     & 8.89649e-01_rb, 8.67067e-01_rb, 8.45059e-01_rb, 8.23610e-01_rb, 8.02705e-01_rb, &
+     & 7.82330e-01_rb, 7.62473e-01_rb, 7.43119e-01_rb, 7.24257e-01_rb/)
+      kao_mco( 2, :, 2) = (/ &
+     & 1.43243e+00_rb, 1.39430e+00_rb, 1.35719e+00_rb, 1.32106e+00_rb, 1.28590e+00_rb, &
+     & 1.25167e+00_rb, 1.21836e+00_rb, 1.18593e+00_rb, 1.15436e+00_rb, 1.12364e+00_rb, &
+     & 1.09373e+00_rb, 1.06462e+00_rb, 1.03628e+00_rb, 1.00870e+00_rb, 9.81848e-01_rb, &
+     & 9.55714e-01_rb, 9.30275e-01_rb, 9.05514e-01_rb, 8.81412e-01_rb/)
+      kao_mco( 3, :, 2) = (/ &
+     & 1.61389e+00_rb, 1.56911e+00_rb, 1.52556e+00_rb, 1.48323e+00_rb, 1.44207e+00_rb, &
+     & 1.40205e+00_rb, 1.36314e+00_rb, 1.32531e+00_rb, 1.28854e+00_rb, 1.25278e+00_rb, &
+     & 1.21801e+00_rb, 1.18421e+00_rb, 1.15135e+00_rb, 1.11940e+00_rb, 1.08834e+00_rb, &
+     & 1.05814e+00_rb, 1.02877e+00_rb, 1.00022e+00_rb, 9.72466e-01_rb/)
+      kao_mco( 4, :, 2) = (/ &
+     & 1.78458e+00_rb, 1.73440e+00_rb, 1.68564e+00_rb, 1.63825e+00_rb, 1.59219e+00_rb, &
+     & 1.54742e+00_rb, 1.50391e+00_rb, 1.46163e+00_rb, 1.42053e+00_rb, 1.38059e+00_rb, &
+     & 1.34178e+00_rb, 1.30405e+00_rb, 1.26739e+00_rb, 1.23175e+00_rb, 1.19712e+00_rb, &
+     & 1.16346e+00_rb, 1.13075e+00_rb, 1.09896e+00_rb, 1.06806e+00_rb/)
+      kao_mco( 5, :, 2) = (/ &
+     & 1.92622e+00_rb, 1.87172e+00_rb, 1.81876e+00_rb, 1.76730e+00_rb, 1.71730e+00_rb, &
+     & 1.66871e+00_rb, 1.62150e+00_rb, 1.57562e+00_rb, 1.53104e+00_rb, 1.48772e+00_rb, &
+     & 1.44563e+00_rb, 1.40473e+00_rb, 1.36498e+00_rb, 1.32636e+00_rb, 1.28883e+00_rb, &
+     & 1.25237e+00_rb, 1.21693e+00_rb, 1.18250e+00_rb, 1.14905e+00_rb/)
+      kao_mco( 6, :, 2) = (/ &
+     & 2.23194e+00_rb, 2.16782e+00_rb, 2.10554e+00_rb, 2.04505e+00_rb, 1.98630e+00_rb, &
+     & 1.92924e+00_rb, 1.87381e+00_rb, 1.81998e+00_rb, 1.76770e+00_rb, 1.71691e+00_rb, &
+     & 1.66759e+00_rb, 1.61968e+00_rb, 1.57315e+00_rb, 1.52796e+00_rb, 1.48406e+00_rb, &
+     & 1.44143e+00_rb, 1.40002e+00_rb, 1.35980e+00_rb, 1.32073e+00_rb/)
+      kao_mco( 7, :, 2) = (/ &
+     & 2.64692e+00_rb, 2.57290e+00_rb, 2.50096e+00_rb, 2.43103e+00_rb, 2.36305e+00_rb, &
+     & 2.29697e+00_rb, 2.23275e+00_rb, 2.17031e+00_rb, 2.10963e+00_rb, 2.05064e+00_rb, &
+     & 1.99330e+00_rb, 1.93756e+00_rb, 1.88338e+00_rb, 1.83072e+00_rb, 1.77953e+00_rb, &
+     & 1.72977e+00_rb, 1.68140e+00_rb, 1.63438e+00_rb, 1.58868e+00_rb/)
+      kao_mco( 8, :, 2) = (/ &
+     & 2.86812e+00_rb, 2.80121e+00_rb, 2.73586e+00_rb, 2.67204e+00_rb, 2.60970e+00_rb, &
+     & 2.54882e+00_rb, 2.48936e+00_rb, 2.43129e+00_rb, 2.37457e+00_rb, 2.31917e+00_rb, &
+     & 2.26507e+00_rb, 2.21223e+00_rb, 2.16062e+00_rb, 2.11022e+00_rb, 2.06099e+00_rb, &
+     & 2.01291e+00_rb, 1.96595e+00_rb, 1.92009e+00_rb, 1.87529e+00_rb/)
+      kao_mco( 9, :, 2) = (/ &
+     & 1.25243e+00_rb, 1.22790e+00_rb, 1.20385e+00_rb, 1.18027e+00_rb, 1.15716e+00_rb, &
+     & 1.13449e+00_rb, 1.11227e+00_rb, 1.09049e+00_rb, 1.06913e+00_rb, 1.04819e+00_rb, &
+     & 1.02766e+00_rb, 1.00754e+00_rb, 9.87804e-01_rb, 9.68457e-01_rb, 9.49490e-01_rb, &
+     & 9.30894e-01_rb, 9.12662e-01_rb, 8.94787e-01_rb, 8.77263e-01_rb/)
+      kao_mco( 1, :, 3) = (/ &
+     & 2.55598e+00_rb, 2.48729e+00_rb, 2.42045e+00_rb, 2.35541e+00_rb, 2.29211e+00_rb, &
+     & 2.23052e+00_rb, 2.17058e+00_rb, 2.11225e+00_rb, 2.05549e+00_rb, 2.00025e+00_rb, &
+     & 1.94650e+00_rb, 1.89419e+00_rb, 1.84329e+00_rb, 1.79376e+00_rb, 1.74555e+00_rb, &
+     & 1.69865e+00_rb, 1.65300e+00_rb, 1.60858e+00_rb, 1.56535e+00_rb/)
+      kao_mco( 2, :, 3) = (/ &
+     & 2.93113e+00_rb, 2.85257e+00_rb, 2.77612e+00_rb, 2.70172e+00_rb, 2.62932e+00_rb, &
+     & 2.55885e+00_rb, 2.49028e+00_rb, 2.42354e+00_rb, 2.35859e+00_rb, 2.29538e+00_rb, &
+     & 2.23386e+00_rb, 2.17400e+00_rb, 2.11573e+00_rb, 2.05903e+00_rb, 2.00385e+00_rb, &
+     & 1.95015e+00_rb, 1.89788e+00_rb, 1.84702e+00_rb, 1.79752e+00_rb/)
+      kao_mco( 3, :, 3) = (/ &
+     & 3.26626e+00_rb, 3.18025e+00_rb, 3.09651e+00_rb, 3.01497e+00_rb, 2.93558e+00_rb, &
+     & 2.85828e+00_rb, 2.78302e+00_rb, 2.70973e+00_rb, 2.63838e+00_rb, 2.56891e+00_rb, &
+     & 2.50126e+00_rb, 2.43540e+00_rb, 2.37127e+00_rb, 2.30883e+00_rb, 2.24803e+00_rb, &
+     & 2.18883e+00_rb, 2.13120e+00_rb, 2.07508e+00_rb, 2.02044e+00_rb/)
+      kao_mco( 4, :, 3) = (/ &
+     & 3.65895e+00_rb, 3.56418e+00_rb, 3.47187e+00_rb, 3.38194e+00_rb, 3.29435e+00_rb, &
+     & 3.20903e+00_rb, 3.12591e+00_rb, 3.04495e+00_rb, 2.96608e+00_rb, 2.88926e+00_rb, &
+     & 2.81443e+00_rb, 2.74153e+00_rb, 2.67053e+00_rb, 2.60136e+00_rb, 2.53398e+00_rb, &
+     & 2.46835e+00_rb, 2.40442e+00_rb, 2.34214e+00_rb, 2.28148e+00_rb/)
+      kao_mco( 5, :, 3) = (/ &
+     & 4.13692e+00_rb, 4.03459e+00_rb, 3.93479e+00_rb, 3.83746e+00_rb, 3.74254e+00_rb, &
+     & 3.64997e+00_rb, 3.55968e+00_rb, 3.47163e+00_rb, 3.38576e+00_rb, 3.30201e+00_rb, &
+     & 3.22034e+00_rb, 3.14068e+00_rb, 3.06299e+00_rb, 2.98723e+00_rb, 2.91334e+00_rb, &
+     & 2.84128e+00_rb, 2.77100e+00_rb, 2.70246e+00_rb, 2.63561e+00_rb/)
+      kao_mco( 6, :, 3) = (/ &
+     & 4.42856e+00_rb, 4.32480e+00_rb, 4.22348e+00_rb, 4.12453e+00_rb, 4.02790e+00_rb, &
+     & 3.93353e+00_rb, 3.84137e+00_rb, 3.75137e+00_rb, 3.66348e+00_rb, 3.57765e+00_rb, &
+     & 3.49383e+00_rb, 3.41198e+00_rb, 3.33204e+00_rb, 3.25397e+00_rb, 3.17774e+00_rb, &
+     & 3.10329e+00_rb, 3.03058e+00_rb, 2.95958e+00_rb, 2.89024e+00_rb/)
+      kao_mco( 7, :, 3) = (/ &
+     & 4.31306e+00_rb, 4.21750e+00_rb, 4.12406e+00_rb, 4.03268e+00_rb, 3.94333e+00_rb, &
+     & 3.85596e+00_rb, 3.77053e+00_rb, 3.68699e+00_rb, 3.60530e+00_rb, 3.52542e+00_rb, &
+     & 3.44731e+00_rb, 3.37093e+00_rb, 3.29624e+00_rb, 3.22321e+00_rb, 3.15179e+00_rb, &
+     & 3.08196e+00_rb, 3.01368e+00_rb, 2.94691e+00_rb, 2.88161e+00_rb/)
+      kao_mco( 8, :, 3) = (/ &
+     & 4.38922e+00_rb, 4.32180e+00_rb, 4.25543e+00_rb, 4.19007e+00_rb, 4.12571e+00_rb, &
+     & 4.06234e+00_rb, 3.99995e+00_rb, 3.93851e+00_rb, 3.87802e+00_rb, 3.81846e+00_rb, &
+     & 3.75981e+00_rb, 3.70206e+00_rb, 3.64520e+00_rb, 3.58922e+00_rb, 3.53409e+00_rb, &
+     & 3.47981e+00_rb, 3.42636e+00_rb, 3.37374e+00_rb, 3.32192e+00_rb/)
+      kao_mco( 9, :, 3) = (/ &
+     & 1.56810e+00_rb, 1.54211e+00_rb, 1.51654e+00_rb, 1.49139e+00_rb, 1.46667e+00_rb, &
+     & 1.44235e+00_rb, 1.41844e+00_rb, 1.39492e+00_rb, 1.37179e+00_rb, 1.34905e+00_rb, &
+     & 1.32668e+00_rb, 1.30469e+00_rb, 1.28306e+00_rb, 1.26178e+00_rb, 1.24086e+00_rb, &
+     & 1.22029e+00_rb, 1.20006e+00_rb, 1.18016e+00_rb, 1.16059e+00_rb/)
+      kao_mco( 1, :, 4) = (/ &
+     & 6.58275e+00_rb, 6.43026e+00_rb, 6.28130e+00_rb, 6.13579e+00_rb, 5.99365e+00_rb, &
+     & 5.85481e+00_rb, 5.71918e+00_rb, 5.58669e+00_rb, 5.45727e+00_rb, 5.33085e+00_rb, &
+     & 5.20736e+00_rb, 5.08673e+00_rb, 4.96889e+00_rb, 4.85379e+00_rb, 4.74135e+00_rb, &
+     & 4.63151e+00_rb, 4.52422e+00_rb, 4.41942e+00_rb, 4.31704e+00_rb/)
+      kao_mco( 2, :, 4) = (/ &
+     & 6.59883e+00_rb, 6.45139e+00_rb, 6.30725e+00_rb, 6.16633e+00_rb, 6.02855e+00_rb, &
+     & 5.89386e+00_rb, 5.76217e+00_rb, 5.63342e+00_rb, 5.50756e+00_rb, 5.38450e+00_rb, &
+     & 5.26419e+00_rb, 5.14657e+00_rb, 5.03158e+00_rb, 4.91916e+00_rb, 4.80925e+00_rb, &
+     & 4.70180e+00_rb, 4.59675e+00_rb, 4.49404e+00_rb, 4.39363e+00_rb/)
+      kao_mco( 3, :, 4) = (/ &
+     & 6.58521e+00_rb, 6.44452e+00_rb, 6.30683e+00_rb, 6.17209e+00_rb, 6.04023e+00_rb, &
+     & 5.91118e+00_rb, 5.78489e+00_rb, 5.66130e+00_rb, 5.54034e+00_rb, 5.42198e+00_rb, &
+     & 5.30614e+00_rb, 5.19277e+00_rb, 5.08183e+00_rb, 4.97326e+00_rb, 4.86701e+00_rb, &
+     & 4.76303e+00_rb, 4.66127e+00_rb, 4.56168e+00_rb, 4.46422e+00_rb/)
+      kao_mco( 4, :, 4) = (/ &
+     & 6.33742e+00_rb, 6.20870e+00_rb, 6.08260e+00_rb, 5.95905e+00_rb, 5.83802e+00_rb, &
+     & 5.71945e+00_rb, 5.60328e+00_rb, 5.48947e+00_rb, 5.37798e+00_rb, 5.26875e+00_rb, &
+     & 5.16174e+00_rb, 5.05690e+00_rb, 4.95419e+00_rb, 4.85357e+00_rb, 4.75499e+00_rb, &
+     & 4.65841e+00_rb, 4.56379e+00_rb, 4.47110e+00_rb, 4.38029e+00_rb/)
+      kao_mco( 5, :, 4) = (/ &
+     & 5.99732e+00_rb, 5.88459e+00_rb, 5.77398e+00_rb, 5.66545e+00_rb, 5.55896e+00_rb, &
+     & 5.45447e+00_rb, 5.35194e+00_rb, 5.25134e+00_rb, 5.15263e+00_rb, 5.05578e+00_rb, &
+     & 4.96075e+00_rb, 4.86750e+00_rb, 4.77601e+00_rb, 4.68623e+00_rb, 4.59815e+00_rb, &
+     & 4.51171e+00_rb, 4.42691e+00_rb, 4.34370e+00_rb, 4.26205e+00_rb/)
+      kao_mco( 6, :, 4) = (/ &
+     & 5.74529e+00_rb, 5.65249e+00_rb, 5.56119e+00_rb, 5.47136e+00_rb, 5.38299e+00_rb, &
+     & 5.29604e+00_rb, 5.21049e+00_rb, 5.12633e+00_rb, 5.04353e+00_rb, 4.96206e+00_rb, &
+     & 4.88191e+00_rb, 4.80306e+00_rb, 4.72547e+00_rb, 4.64915e+00_rb, 4.57405e+00_rb, &
+     & 4.50017e+00_rb, 4.42748e+00_rb, 4.35596e+00_rb, 4.28560e+00_rb/)
+      kao_mco( 7, :, 4) = (/ &
+     & 5.87251e+00_rb, 5.79956e+00_rb, 5.72753e+00_rb, 5.65638e+00_rb, 5.58613e+00_rb, &
+     & 5.51674e+00_rb, 5.44822e+00_rb, 5.38054e+00_rb, 5.31371e+00_rb, 5.24771e+00_rb, &
+     & 5.18253e+00_rb, 5.11815e+00_rb, 5.05458e+00_rb, 4.99180e+00_rb, 4.92979e+00_rb, &
+     & 4.86856e+00_rb, 4.80809e+00_rb, 4.74837e+00_rb, 4.68939e+00_rb/)
+      kao_mco( 8, :, 4) = (/ &
+     & 5.68503e+00_rb, 5.62827e+00_rb, 5.57207e+00_rb, 5.51644e+00_rb, 5.46136e+00_rb, &
+     & 5.40684e+00_rb, 5.35285e+00_rb, 5.29941e+00_rb, 5.24650e+00_rb, 5.19412e+00_rb, &
+     & 5.14226e+00_rb, 5.09092e+00_rb, 5.04009e+00_rb, 4.98977e+00_rb, 4.93995e+00_rb, &
+     & 4.89063e+00_rb, 4.84180e+00_rb, 4.79346e+00_rb, 4.74560e+00_rb/)
+      kao_mco( 9, :, 4) = (/ &
+     & 2.69278e+00_rb, 2.65058e+00_rb, 2.60903e+00_rb, 2.56814e+00_rb, 2.52789e+00_rb, &
+     & 2.48827e+00_rb, 2.44927e+00_rb, 2.41088e+00_rb, 2.37310e+00_rb, 2.33590e+00_rb, &
+     & 2.29929e+00_rb, 2.26325e+00_rb, 2.22778e+00_rb, 2.19286e+00_rb, 2.15849e+00_rb, &
+     & 2.12466e+00_rb, 2.09136e+00_rb, 2.05859e+00_rb, 2.02632e+00_rb/)
+      kao_mco( 1, :, 5) = (/ &
+     & 9.12231e+00_rb, 9.00052e+00_rb, 8.88036e+00_rb, 8.76180e+00_rb, 8.64482e+00_rb, &
+     & 8.52941e+00_rb, 8.41553e+00_rb, 8.30318e+00_rb, 8.19233e+00_rb, 8.08295e+00_rb, &
+     & 7.97504e+00_rb, 7.86857e+00_rb, 7.76352e+00_rb, 7.65987e+00_rb, 7.55760e+00_rb, &
+     & 7.45671e+00_rb, 7.35715e+00_rb, 7.25893e+00_rb, 7.16202e+00_rb/)
+      kao_mco( 2, :, 5) = (/ &
+     & 8.37315e+00_rb, 8.27808e+00_rb, 8.18410e+00_rb, 8.09118e+00_rb, 7.99931e+00_rb, &
+     & 7.90849e+00_rb, 7.81871e+00_rb, 7.72994e+00_rb, 7.64217e+00_rb, 7.55541e+00_rb, &
+     & 7.46963e+00_rb, 7.38482e+00_rb, 7.30098e+00_rb, 7.21809e+00_rb, 7.13614e+00_rb, &
+     & 7.05512e+00_rb, 6.97502e+00_rb, 6.89582e+00_rb, 6.81753e+00_rb/)
+      kao_mco( 3, :, 5) = (/ &
+     & 8.14557e+00_rb, 8.06533e+00_rb, 7.98587e+00_rb, 7.90720e+00_rb, 7.82930e+00_rb, &
+     & 7.75217e+00_rb, 7.67580e+00_rb, 7.60018e+00_rb, 7.52530e+00_rb, 7.45117e+00_rb, &
+     & 7.37776e+00_rb, 7.30508e+00_rb, 7.23311e+00_rb, 7.16186e+00_rb, 7.09130e+00_rb, &
+     & 7.02144e+00_rb, 6.95227e+00_rb, 6.88378e+00_rb, 6.81596e+00_rb/)
+      kao_mco( 4, :, 5) = (/ &
+     & 8.18046e+00_rb, 8.11056e+00_rb, 8.04126e+00_rb, 7.97256e+00_rb, 7.90444e+00_rb, &
+     & 7.83690e+00_rb, 7.76994e+00_rb, 7.70355e+00_rb, 7.63773e+00_rb, 7.57247e+00_rb, &
+     & 7.50777e+00_rb, 7.44362e+00_rb, 7.38002e+00_rb, 7.31697e+00_rb, 7.25445e+00_rb, &
+     & 7.19247e+00_rb, 7.13101e+00_rb, 7.07008e+00_rb, 7.00968e+00_rb/)
+      kao_mco( 5, :, 5) = (/ &
+     & 8.30092e+00_rb, 8.23529e+00_rb, 8.17019e+00_rb, 8.10559e+00_rb, 8.04151e+00_rb, &
+     & 7.97794e+00_rb, 7.91487e+00_rb, 7.85230e+00_rb, 7.79022e+00_rb, 7.72863e+00_rb, &
+     & 7.66753e+00_rb, 7.60691e+00_rb, 7.54678e+00_rb, 7.48711e+00_rb, 7.42792e+00_rb, &
+     & 7.36920e+00_rb, 7.31094e+00_rb, 7.25314e+00_rb, 7.19580e+00_rb/)
+      kao_mco( 6, :, 5) = (/ &
+     & 8.30014e+00_rb, 8.24466e+00_rb, 8.18955e+00_rb, 8.13481e+00_rb, 8.08044e+00_rb, &
+     & 8.02642e+00_rb, 7.97277e+00_rb, 7.91948e+00_rb, 7.86655e+00_rb, 7.81396e+00_rb, &
+     & 7.76173e+00_rb, 7.70985e+00_rb, 7.65832e+00_rb, 7.60713e+00_rb, 7.55628e+00_rb, &
+     & 7.50577e+00_rb, 7.45560e+00_rb, 7.40577e+00_rb, 7.35627e+00_rb/)
+      kao_mco( 7, :, 5) = (/ &
+     & 7.95931e+00_rb, 7.93958e+00_rb, 7.91989e+00_rb, 7.90025e+00_rb, 7.88066e+00_rb, &
+     & 7.86112e+00_rb, 7.84163e+00_rb, 7.82219e+00_rb, 7.80279e+00_rb, 7.78344e+00_rb, &
+     & 7.76414e+00_rb, 7.74489e+00_rb, 7.72568e+00_rb, 7.70653e+00_rb, 7.68742e+00_rb, &
+     & 7.66836e+00_rb, 7.64934e+00_rb, 7.63038e+00_rb, 7.61146e+00_rb/)
+      kao_mco( 8, :, 5) = (/ &
+     & 9.32576e+00_rb, 9.31747e+00_rb, 9.30919e+00_rb, 9.30092e+00_rb, 9.29265e+00_rb, &
+     & 9.28439e+00_rb, 9.27613e+00_rb, 9.26789e+00_rb, 9.25965e+00_rb, 9.25142e+00_rb, &
+     & 9.24320e+00_rb, 9.23498e+00_rb, 9.22677e+00_rb, 9.21857e+00_rb, 9.21038e+00_rb, &
+     & 9.20219e+00_rb, 9.19401e+00_rb, 9.18584e+00_rb, 9.17767e+00_rb/)
+      kao_mco( 9, :, 5) = (/ &
+     & 4.13116e+00_rb, 4.08426e+00_rb, 4.03788e+00_rb, 3.99204e+00_rb, 3.94671e+00_rb, &
+     & 3.90190e+00_rb, 3.85760e+00_rb, 3.81380e+00_rb, 3.77049e+00_rb, 3.72768e+00_rb, &
+     & 3.68536e+00_rb, 3.64351e+00_rb, 3.60214e+00_rb, 3.56124e+00_rb, 3.52081e+00_rb, &
+     & 3.48083e+00_rb, 3.44131e+00_rb, 3.40224e+00_rb, 3.36361e+00_rb/)
+      kao_mco( 1, :, 6) = (/ &
+     & 1.21200e+01_rb, 1.21580e+01_rb, 1.21961e+01_rb, 1.22344e+01_rb, 1.22728e+01_rb, &
+     & 1.23113e+01_rb, 1.23499e+01_rb, 1.23886e+01_rb, 1.24275e+01_rb, 1.24664e+01_rb, &
+     & 1.25056e+01_rb, 1.25448e+01_rb, 1.25841e+01_rb, 1.26236e+01_rb, 1.26632e+01_rb, &
+     & 1.27029e+01_rb, 1.27428e+01_rb, 1.27827e+01_rb, 1.28228e+01_rb/)
+      kao_mco( 2, :, 6) = (/ &
+     & 1.25231e+01_rb, 1.25625e+01_rb, 1.26020e+01_rb, 1.26417e+01_rb, 1.26815e+01_rb, &
+     & 1.27214e+01_rb, 1.27614e+01_rb, 1.28015e+01_rb, 1.28418e+01_rb, 1.28822e+01_rb, &
+     & 1.29228e+01_rb, 1.29634e+01_rb, 1.30042e+01_rb, 1.30451e+01_rb, 1.30862e+01_rb, &
+     & 1.31274e+01_rb, 1.31687e+01_rb, 1.32101e+01_rb, 1.32517e+01_rb/)
+      kao_mco( 3, :, 6) = (/ &
+     & 1.27566e+01_rb, 1.27983e+01_rb, 1.28401e+01_rb, 1.28820e+01_rb, 1.29241e+01_rb, &
+     & 1.29663e+01_rb, 1.30087e+01_rb, 1.30512e+01_rb, 1.30938e+01_rb, 1.31366e+01_rb, &
+     & 1.31795e+01_rb, 1.32225e+01_rb, 1.32657e+01_rb, 1.33090e+01_rb, 1.33525e+01_rb, &
+     & 1.33961e+01_rb, 1.34399e+01_rb, 1.34838e+01_rb, 1.35278e+01_rb/)
+      kao_mco( 4, :, 6) = (/ &
+     & 1.27132e+01_rb, 1.27454e+01_rb, 1.27777e+01_rb, 1.28101e+01_rb, 1.28425e+01_rb, &
+     & 1.28750e+01_rb, 1.29077e+01_rb, 1.29403e+01_rb, 1.29731e+01_rb, 1.30060e+01_rb, &
+     & 1.30389e+01_rb, 1.30720e+01_rb, 1.31051e+01_rb, 1.31383e+01_rb, 1.31716e+01_rb, &
+     & 1.32049e+01_rb, 1.32384e+01_rb, 1.32719e+01_rb, 1.33055e+01_rb/)
+      kao_mco( 5, :, 6) = (/ &
+     & 1.33151e+01_rb, 1.33523e+01_rb, 1.33896e+01_rb, 1.34271e+01_rb, 1.34646e+01_rb, &
+     & 1.35022e+01_rb, 1.35400e+01_rb, 1.35779e+01_rb, 1.36158e+01_rb, 1.36539e+01_rb, &
+     & 1.36921e+01_rb, 1.37303e+01_rb, 1.37687e+01_rb, 1.38072e+01_rb, 1.38458e+01_rb, &
+     & 1.38846e+01_rb, 1.39234e+01_rb, 1.39623e+01_rb, 1.40013e+01_rb/)
+      kao_mco( 6, :, 6) = (/ &
+     & 1.41448e+01_rb, 1.41902e+01_rb, 1.42357e+01_rb, 1.42814e+01_rb, 1.43272e+01_rb, &
+     & 1.43732e+01_rb, 1.44194e+01_rb, 1.44656e+01_rb, 1.45121e+01_rb, 1.45586e+01_rb, &
+     & 1.46054e+01_rb, 1.46522e+01_rb, 1.46993e+01_rb, 1.47464e+01_rb, 1.47938e+01_rb, &
+     & 1.48413e+01_rb, 1.48889e+01_rb, 1.49367e+01_rb, 1.49846e+01_rb/)
+      kao_mco( 7, :, 6) = (/ &
+     & 1.56578e+01_rb, 1.56938e+01_rb, 1.57299e+01_rb, 1.57661e+01_rb, 1.58024e+01_rb, &
+     & 1.58388e+01_rb, 1.58752e+01_rb, 1.59117e+01_rb, 1.59484e+01_rb, 1.59851e+01_rb, &
+     & 1.60218e+01_rb, 1.60587e+01_rb, 1.60957e+01_rb, 1.61327e+01_rb, 1.61698e+01_rb, &
+     & 1.62070e+01_rb, 1.62443e+01_rb, 1.62817e+01_rb, 1.63192e+01_rb/)
+      kao_mco( 8, :, 6) = (/ &
+     & 1.73627e+01_rb, 1.74761e+01_rb, 1.75903e+01_rb, 1.77052e+01_rb, 1.78208e+01_rb, &
+     & 1.79373e+01_rb, 1.80544e+01_rb, 1.81724e+01_rb, 1.82911e+01_rb, 1.84106e+01_rb, &
+     & 1.85309e+01_rb, 1.86519e+01_rb, 1.87738e+01_rb, 1.88964e+01_rb, 1.90198e+01_rb, &
+     & 1.91441e+01_rb, 1.92692e+01_rb, 1.93950e+01_rb, 1.95217e+01_rb/)
+      kao_mco( 9, :, 6) = (/ &
+     & 7.16326e+00_rb, 7.12921e+00_rb, 7.09531e+00_rb, 7.06158e+00_rb, 7.02800e+00_rb, &
+     & 6.99459e+00_rb, 6.96133e+00_rb, 6.92824e+00_rb, 6.89530e+00_rb, 6.86252e+00_rb, &
+     & 6.82989e+00_rb, 6.79742e+00_rb, 6.76510e+00_rb, 6.73293e+00_rb, 6.70092e+00_rb, &
+     & 6.66906e+00_rb, 6.63736e+00_rb, 6.60580e+00_rb, 6.57439e+00_rb/)
+      kao_mco( 1, :, 7) = (/ &
+     & 2.09288e+01_rb, 2.10487e+01_rb, 2.11692e+01_rb, 2.12904e+01_rb, 2.14124e+01_rb, &
+     & 2.15350e+01_rb, 2.16583e+01_rb, 2.17823e+01_rb, 2.19070e+01_rb, 2.20325e+01_rb, &
+     & 2.21587e+01_rb, 2.22855e+01_rb, 2.24132e+01_rb, 2.25415e+01_rb, 2.26706e+01_rb, &
+     & 2.28004e+01_rb, 2.29310e+01_rb, 2.30623e+01_rb, 2.31943e+01_rb/)
+      kao_mco( 2, :, 7) = (/ &
+     & 2.08159e+01_rb, 2.09509e+01_rb, 2.10867e+01_rb, 2.12234e+01_rb, 2.13610e+01_rb, &
+     & 2.14994e+01_rb, 2.16388e+01_rb, 2.17791e+01_rb, 2.19202e+01_rb, 2.20623e+01_rb, &
+     & 2.22053e+01_rb, 2.23493e+01_rb, 2.24942e+01_rb, 2.26400e+01_rb, 2.27867e+01_rb, &
+     & 2.29345e+01_rb, 2.30831e+01_rb, 2.32328e+01_rb, 2.33834e+01_rb/)
+      kao_mco( 3, :, 7) = (/ &
+     & 2.10827e+01_rb, 2.12409e+01_rb, 2.14002e+01_rb, 2.15608e+01_rb, 2.17225e+01_rb, &
+     & 2.18855e+01_rb, 2.20497e+01_rb, 2.22151e+01_rb, 2.23818e+01_rb, 2.25497e+01_rb, &
+     & 2.27189e+01_rb, 2.28893e+01_rb, 2.30611e+01_rb, 2.32341e+01_rb, 2.34084e+01_rb, &
+     & 2.35840e+01_rb, 2.37609e+01_rb, 2.39392e+01_rb, 2.41188e+01_rb/)
+      kao_mco( 4, :, 7) = (/ &
+     & 2.13866e+01_rb, 2.15772e+01_rb, 2.17694e+01_rb, 2.19634e+01_rb, 2.21590e+01_rb, &
+     & 2.23565e+01_rb, 2.25556e+01_rb, 2.27566e+01_rb, 2.29594e+01_rb, 2.31639e+01_rb, &
+     & 2.33703e+01_rb, 2.35785e+01_rb, 2.37886e+01_rb, 2.40005e+01_rb, 2.42144e+01_rb, &
+     & 2.44301e+01_rb, 2.46477e+01_rb, 2.48673e+01_rb, 2.50889e+01_rb/)
+      kao_mco( 5, :, 7) = (/ &
+     & 1.93714e+01_rb, 1.95595e+01_rb, 1.97493e+01_rb, 1.99410e+01_rb, 2.01345e+01_rb, &
+     & 2.03300e+01_rb, 2.05273e+01_rb, 2.07265e+01_rb, 2.09277e+01_rb, 2.11308e+01_rb, &
+     & 2.13359e+01_rb, 2.15430e+01_rb, 2.17521e+01_rb, 2.19632e+01_rb, 2.21764e+01_rb, &
+     & 2.23917e+01_rb, 2.26090e+01_rb, 2.28284e+01_rb, 2.30500e+01_rb/)
+      kao_mco( 6, :, 7) = (/ &
+     & 1.70418e+01_rb, 1.72109e+01_rb, 1.73817e+01_rb, 1.75541e+01_rb, 1.77283e+01_rb, &
+     & 1.79041e+01_rb, 1.80818e+01_rb, 1.82612e+01_rb, 1.84423e+01_rb, 1.86253e+01_rb, &
+     & 1.88101e+01_rb, 1.89967e+01_rb, 1.91852e+01_rb, 1.93755e+01_rb, 1.95678e+01_rb, &
+     & 1.97619e+01_rb, 1.99580e+01_rb, 2.01560e+01_rb, 2.03560e+01_rb/)
+      kao_mco( 7, :, 7) = (/ &
+     & 1.31735e+01_rb, 1.32921e+01_rb, 1.34118e+01_rb, 1.35326e+01_rb, 1.36545e+01_rb, &
+     & 1.37775e+01_rb, 1.39015e+01_rb, 1.40267e+01_rb, 1.41531e+01_rb, 1.42805e+01_rb, &
+     & 1.44091e+01_rb, 1.45389e+01_rb, 1.46698e+01_rb, 1.48019e+01_rb, 1.49353e+01_rb, &
+     & 1.50698e+01_rb, 1.52055e+01_rb, 1.53424e+01_rb, 1.54806e+01_rb/)
+      kao_mco( 8, :, 7) = (/ &
+     & 4.97361e+00_rb, 4.96550e+00_rb, 4.95740e+00_rb, 4.94931e+00_rb, 4.94124e+00_rb, &
+     & 4.93318e+00_rb, 4.92513e+00_rb, 4.91709e+00_rb, 4.90907e+00_rb, 4.90106e+00_rb, &
+     & 4.89307e+00_rb, 4.88509e+00_rb, 4.87712e+00_rb, 4.86916e+00_rb, 4.86122e+00_rb, &
+     & 4.85329e+00_rb, 4.84537e+00_rb, 4.83747e+00_rb, 4.82958e+00_rb/)
+      kao_mco( 9, :, 7) = (/ &
+     & 1.76121e+01_rb, 1.75887e+01_rb, 1.75653e+01_rb, 1.75420e+01_rb, 1.75187e+01_rb, &
+     & 1.74955e+01_rb, 1.74722e+01_rb, 1.74490e+01_rb, 1.74259e+01_rb, 1.74027e+01_rb, &
+     & 1.73796e+01_rb, 1.73566e+01_rb, 1.73335e+01_rb, 1.73105e+01_rb, 1.72875e+01_rb, &
+     & 1.72646e+01_rb, 1.72416e+01_rb, 1.72188e+01_rb, 1.71959e+01_rb/)
+      kao_mco( 1, :, 8) = (/ &
+     & 5.99126e+00_rb, 6.08386e+00_rb, 6.17790e+00_rb, 6.27339e+00_rb, 6.37035e+00_rb, &
+     & 6.46881e+00_rb, 6.56880e+00_rb, 6.67033e+00_rb, 6.77343e+00_rb, 6.87812e+00_rb, &
+     & 6.98443e+00_rb, 7.09238e+00_rb, 7.20201e+00_rb, 7.31332e+00_rb, 7.42636e+00_rb, &
+     & 7.54115e+00_rb, 7.65771e+00_rb, 7.77607e+00_rb, 7.89626e+00_rb/)
+      kao_mco( 2, :, 8) = (/ &
+     & 4.71621e+00_rb, 4.78830e+00_rb, 4.86149e+00_rb, 4.93580e+00_rb, 5.01124e+00_rb, &
+     & 5.08784e+00_rb, 5.16561e+00_rb, 5.24456e+00_rb, 5.32473e+00_rb, 5.40612e+00_rb, &
+     & 5.48875e+00_rb, 5.57264e+00_rb, 5.65782e+00_rb, 5.74430e+00_rb, 5.83211e+00_rb, &
+     & 5.92125e+00_rb, 6.01176e+00_rb, 6.10365e+00_rb, 6.19694e+00_rb/)
+      kao_mco( 3, :, 8) = (/ &
+     & 2.77067e+00_rb, 2.81437e+00_rb, 2.85876e+00_rb, 2.90385e+00_rb, 2.94965e+00_rb, &
+     & 2.99617e+00_rb, 3.04343e+00_rb, 3.09143e+00_rb, 3.14019e+00_rb, 3.18972e+00_rb, &
+     & 3.24003e+00_rb, 3.29114e+00_rb, 3.34305e+00_rb, 3.39578e+00_rb, 3.44934e+00_rb, &
+     & 3.50374e+00_rb, 3.55901e+00_rb, 3.61514e+00_rb, 3.67216e+00_rb/)
+      kao_mco( 4, :, 8) = (/ &
+     & 1.22388e+00_rb, 1.24248e+00_rb, 1.26136e+00_rb, 1.28053e+00_rb, 1.29999e+00_rb, &
+     & 1.31974e+00_rb, 1.33979e+00_rb, 1.36015e+00_rb, 1.38082e+00_rb, 1.40181e+00_rb, &
+     & 1.42311e+00_rb, 1.44473e+00_rb, 1.46669e+00_rb, 1.48897e+00_rb, 1.51160e+00_rb, &
+     & 1.53457e+00_rb, 1.55789e+00_rb, 1.58156e+00_rb, 1.60559e+00_rb/)
+      kao_mco( 5, :, 8) = (/ &
+     & 1.41479e+00_rb, 1.43540e+00_rb, 1.45631e+00_rb, 1.47752e+00_rb, 1.49904e+00_rb, &
+     & 1.52088e+00_rb, 1.54303e+00_rb, 1.56550e+00_rb, 1.58831e+00_rb, 1.61144e+00_rb, &
+     & 1.63491e+00_rb, 1.65872e+00_rb, 1.68288e+00_rb, 1.70740e+00_rb, 1.73227e+00_rb, &
+     & 1.75750e+00_rb, 1.78310e+00_rb, 1.80907e+00_rb, 1.83542e+00_rb/)
+      kao_mco( 6, :, 8) = (/ &
+     & 1.43154e+00_rb, 1.46074e+00_rb, 1.49053e+00_rb, 1.52093e+00_rb, 1.55196e+00_rb, &
+     & 1.58361e+00_rb, 1.61591e+00_rb, 1.64887e+00_rb, 1.68250e+00_rb, 1.71682e+00_rb, &
+     & 1.75184e+00_rb, 1.78757e+00_rb, 1.82403e+00_rb, 1.86123e+00_rb, 1.89920e+00_rb, &
+     & 1.93793e+00_rb, 1.97746e+00_rb, 2.01779e+00_rb, 2.05895e+00_rb/)
+      kao_mco( 7, :, 8) = (/ &
+     & 2.49358e+00_rb, 2.56028e+00_rb, 2.62875e+00_rb, 2.69906e+00_rb, 2.77124e+00_rb, &
+     & 2.84536e+00_rb, 2.92146e+00_rb, 2.99960e+00_rb, 3.07982e+00_rb, 3.16219e+00_rb, &
+     & 3.24677e+00_rb, 3.33360e+00_rb, 3.42276e+00_rb, 3.51430e+00_rb, 3.60829e+00_rb, &
+     & 3.70480e+00_rb, 3.80388e+00_rb, 3.90562e+00_rb, 4.01007e+00_rb/)
+      kao_mco( 8, :, 8) = (/ &
+     & 4.32513e+00_rb, 4.39903e+00_rb, 4.47420e+00_rb, 4.55065e+00_rb, 4.62841e+00_rb, &
+     & 4.70750e+00_rb, 4.78794e+00_rb, 4.86975e+00_rb, 4.95296e+00_rb, 5.03759e+00_rb, &
+     & 5.12367e+00_rb, 5.21122e+00_rb, 5.30027e+00_rb, 5.39084e+00_rb, 5.48295e+00_rb, &
+     & 5.57664e+00_rb, 5.67193e+00_rb, 5.76885e+00_rb, 5.86743e+00_rb/)
+      kao_mco( 9, :, 8) = (/ &
+     & 3.35160e+01_rb, 3.36789e+01_rb, 3.38425e+01_rb, 3.40069e+01_rb, 3.41722e+01_rb, &
+     & 3.43382e+01_rb, 3.45050e+01_rb, 3.46727e+01_rb, 3.48412e+01_rb, 3.50105e+01_rb, &
+     & 3.51806e+01_rb, 3.53515e+01_rb, 3.55233e+01_rb, 3.56959e+01_rb, 3.58693e+01_rb, &
+     & 3.60436e+01_rb, 3.62187e+01_rb, 3.63947e+01_rb, 3.65715e+01_rb/)
+      kao_mco( 1, :, 9) = (/ &
+     & 8.68159e-01_rb, 9.13680e-01_rb, 9.61587e-01_rb, 1.01201e+00_rb, 1.06507e+00_rb, &
+     & 1.12091e+00_rb, 1.17969e+00_rb, 1.24154e+00_rb, 1.30664e+00_rb, 1.37515e+00_rb, &
+     & 1.44726e+00_rb, 1.52314e+00_rb, 1.60300e+00_rb, 1.68705e+00_rb, 1.77551e+00_rb, &
+     & 1.86861e+00_rb, 1.96658e+00_rb, 2.06970e+00_rb, 2.17822e+00_rb/)
+      kao_mco( 2, :, 9) = (/ &
+     & 9.04391e-01_rb, 9.49669e-01_rb, 9.97214e-01_rb, 1.04714e+00_rb, 1.09956e+00_rb, &
+     & 1.15461e+00_rb, 1.21242e+00_rb, 1.27312e+00_rb, 1.33685e+00_rb, 1.40378e+00_rb, &
+     & 1.47406e+00_rb, 1.54786e+00_rb, 1.62535e+00_rb, 1.70673e+00_rb, 1.79217e+00_rb, &
+     & 1.88190e+00_rb, 1.97611e+00_rb, 2.07505e+00_rb, 2.17893e+00_rb/)
+      kao_mco( 3, :, 9) = (/ &
+     & 9.67479e-01_rb, 1.01312e+00_rb, 1.06092e+00_rb, 1.11098e+00_rb, 1.16339e+00_rb, &
+     & 1.21828e+00_rb, 1.27576e+00_rb, 1.33595e+00_rb, 1.39898e+00_rb, 1.46499e+00_rb, &
+     & 1.53411e+00_rb, 1.60649e+00_rb, 1.68228e+00_rb, 1.76165e+00_rb, 1.84476e+00_rb, &
+     & 1.93180e+00_rb, 2.02294e+00_rb, 2.11839e+00_rb, 2.21833e+00_rb/)
+      kao_mco( 4, :, 9) = (/ &
+     & 1.05240e+00_rb, 1.09817e+00_rb, 1.14592e+00_rb, 1.19576e+00_rb, 1.24776e+00_rb, &
+     & 1.30202e+00_rb, 1.35864e+00_rb, 1.41772e+00_rb, 1.47937e+00_rb, 1.54371e+00_rb, &
+     & 1.61084e+00_rb, 1.68089e+00_rb, 1.75398e+00_rb, 1.83026e+00_rb, 1.90985e+00_rb, &
+     & 1.99290e+00_rb, 2.07957e+00_rb, 2.17000e+00_rb, 2.26437e+00_rb/)
+      kao_mco( 5, :, 9) = (/ &
+     & 1.25800e+00_rb, 1.30557e+00_rb, 1.35494e+00_rb, 1.40618e+00_rb, 1.45935e+00_rb, &
+     & 1.51454e+00_rb, 1.57181e+00_rb, 1.63125e+00_rb, 1.69293e+00_rb, 1.75695e+00_rb, &
+     & 1.82339e+00_rb, 1.89234e+00_rb, 1.96389e+00_rb, 2.03816e+00_rb, 2.11523e+00_rb, &
+     & 2.19522e+00_rb, 2.27823e+00_rb, 2.36438e+00_rb, 2.45378e+00_rb/)
+      kao_mco( 6, :, 9) = (/ &
+     & 1.76509e+00_rb, 1.80550e+00_rb, 1.84683e+00_rb, 1.88911e+00_rb, 1.93235e+00_rb, &
+     & 1.97658e+00_rb, 2.02183e+00_rb, 2.06811e+00_rb, 2.11546e+00_rb, 2.16388e+00_rb, &
+     & 2.21342e+00_rb, 2.26408e+00_rb, 2.31591e+00_rb, 2.36893e+00_rb, 2.42315e+00_rb, &
+     & 2.47862e+00_rb, 2.53536e+00_rb, 2.59340e+00_rb, 2.65277e+00_rb/)
+      kao_mco( 7, :, 9) = (/ &
+     & 2.03543e+00_rb, 2.05285e+00_rb, 2.07042e+00_rb, 2.08815e+00_rb, 2.10602e+00_rb, &
+     & 2.12405e+00_rb, 2.14223e+00_rb, 2.16057e+00_rb, 2.17907e+00_rb, 2.19772e+00_rb, &
+     & 2.21654e+00_rb, 2.23551e+00_rb, 2.25465e+00_rb, 2.27395e+00_rb, 2.29342e+00_rb, &
+     & 2.31305e+00_rb, 2.33285e+00_rb, 2.35282e+00_rb, 2.37296e+00_rb/)
+      kao_mco( 8, :, 9) = (/ &
+     & 3.18883e+00_rb, 3.20538e+00_rb, 3.22200e+00_rb, 3.23872e+00_rb, 3.25552e+00_rb, &
+     & 3.27241e+00_rb, 3.28939e+00_rb, 3.30645e+00_rb, 3.32360e+00_rb, 3.34085e+00_rb, &
+     & 3.35818e+00_rb, 3.37560e+00_rb, 3.39311e+00_rb, 3.41071e+00_rb, 3.42841e+00_rb, &
+     & 3.44619e+00_rb, 3.46407e+00_rb, 3.48204e+00_rb, 3.50011e+00_rb/)
+      kao_mco( 9, :, 9) = (/ &
+     & 3.97585e+00_rb, 3.96333e+00_rb, 3.95084e+00_rb, 3.93839e+00_rb, 3.92598e+00_rb, &
+     & 3.91361e+00_rb, 3.90128e+00_rb, 3.88899e+00_rb, 3.87674e+00_rb, 3.86452e+00_rb, &
+     & 3.85235e+00_rb, 3.84021e+00_rb, 3.82811e+00_rb, 3.81605e+00_rb, 3.80402e+00_rb, &
+     & 3.79204e+00_rb, 3.78009e+00_rb, 3.76818e+00_rb, 3.75631e+00_rb/)
+      kao_mco( 1, :,10) = (/ &
+     & 8.62646e-01_rb, 9.35164e-01_rb, 1.01378e+00_rb, 1.09900e+00_rb, 1.19139e+00_rb, &
+     & 1.29154e+00_rb, 1.40011e+00_rb, 1.51781e+00_rb, 1.64541e+00_rb, 1.78373e+00_rb, &
+     & 1.93367e+00_rb, 2.09623e+00_rb, 2.27245e+00_rb, 2.46348e+00_rb, 2.67057e+00_rb, &
+     & 2.89507e+00_rb, 3.13844e+00_rb, 3.40227e+00_rb, 3.68828e+00_rb/)
+      kao_mco( 2, :,10) = (/ &
+     & 8.04693e-01_rb, 8.72167e-01_rb, 9.45298e-01_rb, 1.02456e+00_rb, 1.11047e+00_rb, &
+     & 1.20358e+00_rb, 1.30450e+00_rb, 1.41389e+00_rb, 1.53244e+00_rb, 1.66094e+00_rb, &
+     & 1.80021e+00_rb, 1.95115e+00_rb, 2.11476e+00_rb, 2.29208e+00_rb, 2.48427e+00_rb, &
+     & 2.69258e+00_rb, 2.91835e+00_rb, 3.16305e+00_rb, 3.42827e+00_rb/)
+      kao_mco( 3, :,10) = (/ &
+     & 7.66566e-01_rb, 8.24651e-01_rb, 8.87137e-01_rb, 9.54358e-01_rb, 1.02667e+00_rb, &
+     & 1.10447e+00_rb, 1.18815e+00_rb, 1.27818e+00_rb, 1.37503e+00_rb, 1.47922e+00_rb, &
+     & 1.59131e+00_rb, 1.71189e+00_rb, 1.84160e+00_rb, 1.98114e+00_rb, 2.13126e+00_rb, &
+     & 2.29275e+00_rb, 2.46648e+00_rb, 2.65337e+00_rb, 2.85442e+00_rb/)
+      kao_mco( 4, :,10) = (/ &
+     & 5.40305e-01_rb, 5.77106e-01_rb, 6.16414e-01_rb, 6.58400e-01_rb, 7.03245e-01_rb, &
+     & 7.51145e-01_rb, 8.02307e-01_rb, 8.56954e-01_rb, 9.15323e-01_rb, 9.77668e-01_rb, &
+     & 1.04426e+00_rb, 1.11539e+00_rb, 1.19136e+00_rb, 1.27250e+00_rb, 1.35918e+00_rb, &
+     & 1.45175e+00_rb, 1.55064e+00_rb, 1.65625e+00_rb, 1.76906e+00_rb/)
+      kao_mco( 5, :,10) = (/ &
+     & 8.22474e-01_rb, 8.02911e-01_rb, 7.83814e-01_rb, 7.65171e-01_rb, 7.46971e-01_rb, &
+     & 7.29204e-01_rb, 7.11860e-01_rb, 6.94928e-01_rb, 6.78399e-01_rb, 6.62263e-01_rb, &
+     & 6.46511e-01_rb, 6.31133e-01_rb, 6.16122e-01_rb, 6.01467e-01_rb, 5.87161e-01_rb, &
+     & 5.73195e-01_rb, 5.59562e-01_rb, 5.46252e-01_rb, 5.33260e-01_rb/)
+      kao_mco( 6, :,10) = (/ &
+     & 1.28162e+00_rb, 1.25110e+00_rb, 1.22131e+00_rb, 1.19223e+00_rb, 1.16384e+00_rb, &
+     & 1.13613e+00_rb, 1.10908e+00_rb, 1.08267e+00_rb, 1.05689e+00_rb, 1.03173e+00_rb, &
+     & 1.00716e+00_rb, 9.83184e-01_rb, 9.59774e-01_rb, 9.36921e-01_rb, 9.14613e-01_rb, &
+     & 8.92836e-01_rb, 8.71577e-01_rb, 8.50825e-01_rb, 8.30567e-01_rb/)
+      kao_mco( 7, :,10) = (/ &
+     & 1.92679e+00_rb, 1.90551e+00_rb, 1.88446e+00_rb, 1.86365e+00_rb, 1.84307e+00_rb, &
+     & 1.82271e+00_rb, 1.80258e+00_rb, 1.78267e+00_rb, 1.76298e+00_rb, 1.74351e+00_rb, &
+     & 1.72425e+00_rb, 1.70520e+00_rb, 1.68637e+00_rb, 1.66774e+00_rb, 1.64932e+00_rb, &
+     & 1.63111e+00_rb, 1.61309e+00_rb, 1.59527e+00_rb, 1.57765e+00_rb/)
+      kao_mco( 8, :,10) = (/ &
+     & 4.66485e+00_rb, 4.60869e+00_rb, 4.55320e+00_rb, 4.49838e+00_rb, 4.44423e+00_rb, &
+     & 4.39072e+00_rb, 4.33786e+00_rb, 4.28563e+00_rb, 4.23404e+00_rb, 4.18306e+00_rb, &
+     & 4.13270e+00_rb, 4.08295e+00_rb, 4.03379e+00_rb, 3.98523e+00_rb, 3.93725e+00_rb, &
+     & 3.88985e+00_rb, 3.84301e+00_rb, 3.79675e+00_rb, 3.75104e+00_rb/)
+      kao_mco( 9, :,10) = (/ &
+     & 1.41505e+00_rb, 1.37820e+00_rb, 1.34232e+00_rb, 1.30736e+00_rb, 1.27332e+00_rb, &
+     & 1.24016e+00_rb, 1.20786e+00_rb, 1.17641e+00_rb, 1.14578e+00_rb, 1.11594e+00_rb, &
+     & 1.08688e+00_rb, 1.05858e+00_rb, 1.03101e+00_rb, 1.00416e+00_rb, 9.78015e-01_rb, &
+     & 9.52547e-01_rb, 9.27742e-01_rb, 9.03583e-01_rb, 8.80053e-01_rb/)
+      kao_mco( 1, :,11) = (/ &
+     & 3.40468e-03_rb, 4.05994e-03_rb, 4.84130e-03_rb, 5.77305e-03_rb, 6.88412e-03_rb, &
+     & 8.20902e-03_rb, 9.78890e-03_rb, 1.16728e-02_rb, 1.39194e-02_rb, 1.65983e-02_rb, &
+     & 1.97927e-02_rb, 2.36020e-02_rb, 2.81444e-02_rb, 3.35610e-02_rb, 4.00200e-02_rb, &
+     & 4.77222e-02_rb, 5.69067e-02_rb, 6.78588e-02_rb, 8.09187e-02_rb/)
+      kao_mco( 2, :,11) = (/ &
+     & 3.85021e-02_rb, 4.02208e-02_rb, 4.20162e-02_rb, 4.38918e-02_rb, 4.58512e-02_rb, &
+     & 4.78980e-02_rb, 5.00361e-02_rb, 5.22697e-02_rb, 5.46031e-02_rb, 5.70405e-02_rb, &
+     & 5.95868e-02_rb, 6.22468e-02_rb, 6.50254e-02_rb, 6.79282e-02_rb, 7.09605e-02_rb, &
+     & 7.41282e-02_rb, 7.74372e-02_rb, 8.08940e-02_rb, 8.45051e-02_rb/)
+      kao_mco( 3, :,11) = (/ &
+     & 5.24852e-01_rb, 5.10480e-01_rb, 4.96501e-01_rb, 4.82905e-01_rb, 4.69681e-01_rb, &
+     & 4.56820e-01_rb, 4.44310e-01_rb, 4.32143e-01_rb, 4.20310e-01_rb, 4.08800e-01_rb, &
+     & 3.97606e-01_rb, 3.86718e-01_rb, 3.76128e-01_rb, 3.65828e-01_rb, 3.55810e-01_rb, &
+     & 3.46067e-01_rb, 3.36590e-01_rb, 3.27373e-01_rb, 3.18409e-01_rb/)
+      kao_mco( 4, :,11) = (/ &
+     & 5.86290e-01_rb, 5.70241e-01_rb, 5.54632e-01_rb, 5.39450e-01_rb, 5.24683e-01_rb, &
+     & 5.10321e-01_rb, 4.96352e-01_rb, 4.82765e-01_rb, 4.69550e-01_rb, 4.56697e-01_rb, &
+     & 4.44196e-01_rb, 4.32036e-01_rb, 4.20210e-01_rb, 4.08708e-01_rb, 3.97520e-01_rb, &
+     & 3.86638e-01_rb, 3.76055e-01_rb, 3.65761e-01_rb, 3.55749e-01_rb/)
+      kao_mco( 5, :,11) = (/ &
+     & 1.66977e+00_rb, 1.61807e+00_rb, 1.56798e+00_rb, 1.51943e+00_rb, 1.47239e+00_rb, &
+     & 1.42681e+00_rb, 1.38264e+00_rb, 1.33983e+00_rb, 1.29835e+00_rb, 1.25815e+00_rb, &
+     & 1.21920e+00_rb, 1.18146e+00_rb, 1.14488e+00_rb, 1.10943e+00_rb, 1.07509e+00_rb, &
+     & 1.04180e+00_rb, 1.00955e+00_rb, 9.78295e-01_rb, 9.48008e-01_rb/)
+      kao_mco( 6, :,11) = (/ &
+     & 1.96627e+00_rb, 1.90948e+00_rb, 1.85432e+00_rb, 1.80076e+00_rb, 1.74875e+00_rb, &
+     & 1.69823e+00_rb, 1.64918e+00_rb, 1.60155e+00_rb, 1.55529e+00_rb, 1.51036e+00_rb, &
+     & 1.46674e+00_rb, 1.42437e+00_rb, 1.38323e+00_rb, 1.34328e+00_rb, 1.30448e+00_rb, &
+     & 1.26680e+00_rb, 1.23021e+00_rb, 1.19467e+00_rb, 1.16016e+00_rb/)
+      kao_mco( 7, :,11) = (/ &
+     & 1.67574e+00_rb, 1.63510e+00_rb, 1.59544e+00_rb, 1.55674e+00_rb, 1.51898e+00_rb, &
+     & 1.48213e+00_rb, 1.44618e+00_rb, 1.41111e+00_rb, 1.37688e+00_rb, 1.34348e+00_rb, &
+     & 1.31090e+00_rb, 1.27910e+00_rb, 1.24808e+00_rb, 1.21780e+00_rb, 1.18826e+00_rb, &
+     & 1.15944e+00_rb, 1.13132e+00_rb, 1.10388e+00_rb, 1.07710e+00_rb/)
+      kao_mco( 8, :,11) = (/ &
+     & 2.00764e+00_rb, 1.96233e+00_rb, 1.91803e+00_rb, 1.87474e+00_rb, 1.83242e+00_rb, &
+     & 1.79106e+00_rb, 1.75063e+00_rb, 1.71111e+00_rb, 1.67249e+00_rb, 1.63474e+00_rb, &
+     & 1.59784e+00_rb, 1.56177e+00_rb, 1.52652e+00_rb, 1.49206e+00_rb, 1.45838e+00_rb, &
+     & 1.42546e+00_rb, 1.39329e+00_rb, 1.36184e+00_rb, 1.33110e+00_rb/)
+      kao_mco( 9, :,11) = (/ &
+     & 1.83026e+00_rb, 1.77349e+00_rb, 1.71849e+00_rb, 1.66519e+00_rb, 1.61355e+00_rb, &
+     & 1.56350e+00_rb, 1.51501e+00_rb, 1.46803e+00_rb, 1.42250e+00_rb, 1.37838e+00_rb, &
+     & 1.33563e+00_rb, 1.29421e+00_rb, 1.25407e+00_rb, 1.21517e+00_rb, 1.17749e+00_rb, &
+     & 1.14097e+00_rb, 1.10558e+00_rb, 1.07129e+00_rb, 1.03807e+00_rb/)
+      kao_mco( 1, :,12) = (/ &
+     & 3.90309e-04_rb, 4.81310e-04_rb, 5.93528e-04_rb, 7.31909e-04_rb, 9.02554e-04_rb, &
+     & 1.11299e-03_rb, 1.37248e-03_rb, 1.69247e-03_rb, 2.08708e-03_rb, 2.57368e-03_rb, &
+     & 3.17374e-03_rb, 3.91370e-03_rb, 4.82617e-03_rb, 5.95140e-03_rb, 7.33897e-03_rb, &
+     & 9.05007e-03_rb, 1.11601e-02_rb, 1.37621e-02_rb, 1.69707e-02_rb/)
+      kao_mco( 2, :,12) = (/ &
+     & 9.80585e-02_rb, 9.77457e-02_rb, 9.74339e-02_rb, 9.71231e-02_rb, 9.68132e-02_rb, &
+     & 9.65044e-02_rb, 9.61965e-02_rb, 9.58897e-02_rb, 9.55838e-02_rb, 9.52789e-02_rb, &
+     & 9.49749e-02_rb, 9.46719e-02_rb, 9.43699e-02_rb, 9.40689e-02_rb, 9.37688e-02_rb, &
+     & 9.34697e-02_rb, 9.31715e-02_rb, 9.28743e-02_rb, 9.25780e-02_rb/)
+      kao_mco( 3, :,12) = (/ &
+     & 3.15258e-01_rb, 3.09936e-01_rb, 3.04704e-01_rb, 2.99560e-01_rb, 2.94503e-01_rb, &
+     & 2.89532e-01_rb, 2.84645e-01_rb, 2.79840e-01_rb, 2.75116e-01_rb, 2.70472e-01_rb, &
+     & 2.65906e-01_rb, 2.61417e-01_rb, 2.57004e-01_rb, 2.52666e-01_rb, 2.48401e-01_rb, &
+     & 2.44207e-01_rb, 2.40085e-01_rb, 2.36032e-01_rb, 2.32048e-01_rb/)
+      kao_mco( 4, :,12) = (/ &
+     & 9.74407e-01_rb, 9.46900e-01_rb, 9.20170e-01_rb, 8.94195e-01_rb, 8.68952e-01_rb, &
+     & 8.44422e-01_rb, 8.20585e-01_rb, 7.97421e-01_rb, 7.74910e-01_rb, 7.53035e-01_rb, &
+     & 7.31777e-01_rb, 7.11120e-01_rb, 6.91046e-01_rb, 6.71538e-01_rb, 6.52581e-01_rb, &
+     & 6.34159e-01_rb, 6.16257e-01_rb, 5.98861e-01_rb, 5.81956e-01_rb/)
+      kao_mco( 5, :,12) = (/ &
+     & 1.04234e+00_rb, 1.01364e+00_rb, 9.85726e-01_rb, 9.58581e-01_rb, 9.32184e-01_rb, &
+     & 9.06514e-01_rb, 8.81551e-01_rb, 8.57275e-01_rb, 8.33668e-01_rb, 8.10710e-01_rb, &
+     & 7.88385e-01_rb, 7.66675e-01_rb, 7.45563e-01_rb, 7.25032e-01_rb, 7.05066e-01_rb, &
+     & 6.85650e-01_rb, 6.66769e-01_rb, 6.48408e-01_rb, 6.30552e-01_rb/)
+      kao_mco( 6, :,12) = (/ &
+     & 1.79052e+00_rb, 1.73725e+00_rb, 1.68557e+00_rb, 1.63543e+00_rb, 1.58678e+00_rb, &
+     & 1.53957e+00_rb, 1.49377e+00_rb, 1.44933e+00_rb, 1.40622e+00_rb, 1.36439e+00_rb, &
+     & 1.32380e+00_rb, 1.28442e+00_rb, 1.24621e+00_rb, 1.20913e+00_rb, 1.17316e+00_rb, &
+     & 1.13826e+00_rb, 1.10440e+00_rb, 1.07155e+00_rb, 1.03967e+00_rb/)
+      kao_mco( 7, :,12) = (/ &
+     & 2.99551e+00_rb, 2.90366e+00_rb, 2.81462e+00_rb, 2.72831e+00_rb, 2.64464e+00_rb, &
+     & 2.56355e+00_rb, 2.48494e+00_rb, 2.40874e+00_rb, 2.33487e+00_rb, 2.26328e+00_rb, &
+     & 2.19387e+00_rb, 2.12660e+00_rb, 2.06139e+00_rb, 1.99818e+00_rb, 1.93690e+00_rb, &
+     & 1.87751e+00_rb, 1.81993e+00_rb, 1.76413e+00_rb, 1.71003e+00_rb/)
+      kao_mco( 8, :,12) = (/ &
+     & 2.89665e+00_rb, 2.81184e+00_rb, 2.72951e+00_rb, 2.64960e+00_rb, 2.57202e+00_rb, &
+     & 2.49672e+00_rb, 2.42362e+00_rb, 2.35266e+00_rb, 2.28378e+00_rb, 2.21692e+00_rb, &
+     & 2.15201e+00_rb, 2.08900e+00_rb, 2.02784e+00_rb, 1.96847e+00_rb, 1.91084e+00_rb, &
+     & 1.85489e+00_rb, 1.80059e+00_rb, 1.74787e+00_rb, 1.69669e+00_rb/)
+      kao_mco( 9, :,12) = (/ &
+     & 1.03145e+00_rb, 1.00335e+00_rb, 9.76014e-01_rb, 9.49426e-01_rb, 9.23561e-01_rb, &
+     & 8.98402e-01_rb, 8.73927e-01_rb, 8.50120e-01_rb, 8.26961e-01_rb, 8.04433e-01_rb, &
+     & 7.82518e-01_rb, 7.61201e-01_rb, 7.40464e-01_rb, 7.20293e-01_rb, 7.00670e-01_rb, &
+     & 6.81583e-01_rb, 6.63015e-01_rb, 6.44953e-01_rb, 6.27383e-01_rb/)
+      kao_mco( 1, :,13) = (/ &
+     & 5.27769e-04_rb, 6.65449e-04_rb, 8.39047e-04_rb, 1.05793e-03_rb, 1.33392e-03_rb, &
+     & 1.68190e-03_rb, 2.12066e-03_rb, 2.67388e-03_rb, 3.37143e-03_rb, 4.25094e-03_rb, &
+     & 5.35990e-03_rb, 6.75816e-03_rb, 8.52117e-03_rb, 1.07441e-02_rb, 1.35470e-02_rb, &
+     & 1.70810e-02_rb, 2.15370e-02_rb, 2.71554e-02_rb, 3.42395e-02_rb/)
+      kao_mco( 2, :,13) = (/ &
+     & 1.08329e-01_rb, 1.10179e-01_rb, 1.12060e-01_rb, 1.13974e-01_rb, 1.15920e-01_rb, &
+     & 1.17899e-01_rb, 1.19913e-01_rb, 1.21960e-01_rb, 1.24043e-01_rb, 1.26161e-01_rb, &
+     & 1.28316e-01_rb, 1.30507e-01_rb, 1.32735e-01_rb, 1.35002e-01_rb, 1.37307e-01_rb, &
+     & 1.39652e-01_rb, 1.42037e-01_rb, 1.44462e-01_rb, 1.46929e-01_rb/)
+      kao_mco( 3, :,13) = (/ &
+     & 1.95992e-01_rb, 1.94515e-01_rb, 1.93049e-01_rb, 1.91594e-01_rb, 1.90150e-01_rb, &
+     & 1.88717e-01_rb, 1.87294e-01_rb, 1.85882e-01_rb, 1.84481e-01_rb, 1.83091e-01_rb, &
+     & 1.81711e-01_rb, 1.80341e-01_rb, 1.78982e-01_rb, 1.77633e-01_rb, 1.76294e-01_rb, &
+     & 1.74965e-01_rb, 1.73646e-01_rb, 1.72337e-01_rb, 1.71038e-01_rb/)
+      kao_mco( 4, :,13) = (/ &
+     & 4.49766e-01_rb, 4.42749e-01_rb, 4.35841e-01_rb, 4.29042e-01_rb, 4.22348e-01_rb, &
+     & 4.15759e-01_rb, 4.09272e-01_rb, 4.02887e-01_rb, 3.96601e-01_rb, 3.90414e-01_rb, &
+     & 3.84323e-01_rb, 3.78327e-01_rb, 3.72424e-01_rb, 3.66614e-01_rb, 3.60894e-01_rb, &
+     & 3.55264e-01_rb, 3.49721e-01_rb, 3.44265e-01_rb, 3.38894e-01_rb/)
+      kao_mco( 5, :,13) = (/ &
+     & 1.07498e+00_rb, 1.04736e+00_rb, 1.02045e+00_rb, 9.94232e-01_rb, 9.68686e-01_rb, &
+     & 9.43797e-01_rb, 9.19547e-01_rb, 8.95920e-01_rb, 8.72900e-01_rb, 8.50471e-01_rb, &
+     & 8.28619e-01_rb, 8.07329e-01_rb, 7.86585e-01_rb, 7.66374e-01_rb, 7.46683e-01_rb, &
+     & 7.27498e-01_rb, 7.08805e-01_rb, 6.90593e-01_rb, 6.72849e-01_rb/)
+      kao_mco( 6, :,13) = (/ &
+     & 1.66569e+00_rb, 1.61740e+00_rb, 1.57052e+00_rb, 1.52500e+00_rb, 1.48080e+00_rb, &
+     & 1.43787e+00_rb, 1.39620e+00_rb, 1.35573e+00_rb, 1.31643e+00_rb, 1.27827e+00_rb, &
+     & 1.24122e+00_rb, 1.20524e+00_rb, 1.17031e+00_rb, 1.13638e+00_rb, 1.10344e+00_rb, &
+     & 1.07146e+00_rb, 1.04040e+00_rb, 1.01025e+00_rb, 9.80963e-01_rb/)
+      kao_mco( 7, :,13) = (/ &
+     & 1.52948e+00_rb, 1.48763e+00_rb, 1.44693e+00_rb, 1.40735e+00_rb, 1.36884e+00_rb, &
+     & 1.33139e+00_rb, 1.29497e+00_rb, 1.25954e+00_rb, 1.22508e+00_rb, 1.19156e+00_rb, &
+     & 1.15896e+00_rb, 1.12725e+00_rb, 1.09641e+00_rb, 1.06641e+00_rb, 1.03724e+00_rb, &
+     & 1.00886e+00_rb, 9.81259e-01_rb, 9.54412e-01_rb, 9.28301e-01_rb/)
+      kao_mco( 8, :,13) = (/ &
+     & 3.81027e+00_rb, 3.69422e+00_rb, 3.58170e+00_rb, 3.47261e+00_rb, 3.36684e+00_rb, &
+     & 3.26429e+00_rb, 3.16486e+00_rb, 3.06847e+00_rb, 2.97501e+00_rb, 2.88439e+00_rb, &
+     & 2.79654e+00_rb, 2.71136e+00_rb, 2.62878e+00_rb, 2.54871e+00_rb, 2.47108e+00_rb, &
+     & 2.39581e+00_rb, 2.32284e+00_rb, 2.25209e+00_rb, 2.18350e+00_rb/)
+      kao_mco( 9, :,13) = (/ &
+     & 1.12516e+00_rb, 1.09531e+00_rb, 1.06625e+00_rb, 1.03796e+00_rb, 1.01042e+00_rb, &
+     & 9.83616e-01_rb, 9.57520e-01_rb, 9.32117e-01_rb, 9.07387e-01_rb, 8.83314e-01_rb, &
+     & 8.59880e-01_rb, 8.37067e-01_rb, 8.14859e-01_rb, 7.93241e-01_rb, 7.72196e-01_rb, &
+     & 7.51709e-01_rb, 7.31766e-01_rb, 7.12352e-01_rb, 6.93454e-01_rb/)
+      kao_mco( 1, :,14) = (/ &
+     & 4.79165e-04_rb, 6.26966e-04_rb, 8.20356e-04_rb, 1.07340e-03_rb, 1.40450e-03_rb, &
+     & 1.83772e-03_rb, 2.40457e-03_rb, 3.14628e-03_rb, 4.11676e-03_rb, 5.38660e-03_rb, &
+     & 7.04813e-03_rb, 9.22216e-03_rb, 1.20668e-02_rb, 1.57889e-02_rb, 2.06590e-02_rb, &
+     & 2.70314e-02_rb, 3.53694e-02_rb, 4.62792e-02_rb, 6.05542e-02_rb/)
+      kao_mco( 2, :,14) = (/ &
+     & 4.75367e-04_rb, 6.21987e-04_rb, 8.13830e-04_rb, 1.06484e-03_rb, 1.39328e-03_rb, &
+     & 1.82302e-03_rb, 2.38530e-03_rb, 3.12101e-03_rb, 4.08365e-03_rb, 5.34318e-03_rb, &
+     & 6.99121e-03_rb, 9.14756e-03_rb, 1.19690e-02_rb, 1.56607e-02_rb, 2.04909e-02_rb, &
+     & 2.68111e-02_rb, 3.50806e-02_rb, 4.59007e-02_rb, 6.00580e-02_rb/)
+      kao_mco( 3, :,14) = (/ &
+     & 1.39594e-01_rb, 1.42407e-01_rb, 1.45276e-01_rb, 1.48202e-01_rb, 1.51188e-01_rb, &
+     & 1.54234e-01_rb, 1.57342e-01_rb, 1.60512e-01_rb, 1.63745e-01_rb, 1.67044e-01_rb, &
+     & 1.70410e-01_rb, 1.73843e-01_rb, 1.77345e-01_rb, 1.80918e-01_rb, 1.84563e-01_rb, &
+     & 1.88282e-01_rb, 1.92075e-01_rb, 1.95945e-01_rb, 1.99892e-01_rb/)
+      kao_mco( 4, :,14) = (/ &
+     & 2.73418e-01_rb, 2.71322e-01_rb, 2.69242e-01_rb, 2.67177e-01_rb, 2.65129e-01_rb, &
+     & 2.63096e-01_rb, 2.61079e-01_rb, 2.59077e-01_rb, 2.57091e-01_rb, 2.55120e-01_rb, &
+     & 2.53164e-01_rb, 2.51223e-01_rb, 2.49297e-01_rb, 2.47386e-01_rb, 2.45489e-01_rb, &
+     & 2.43607e-01_rb, 2.41739e-01_rb, 2.39886e-01_rb, 2.38047e-01_rb/)
+      kao_mco( 5, :,14) = (/ &
+     & 5.01880e-01_rb, 4.95066e-01_rb, 4.88344e-01_rb, 4.81713e-01_rb, 4.75173e-01_rb, &
+     & 4.68721e-01_rb, 4.62357e-01_rb, 4.56079e-01_rb, 4.49887e-01_rb, 4.43778e-01_rb, &
+     & 4.37753e-01_rb, 4.31809e-01_rb, 4.25946e-01_rb, 4.20163e-01_rb, 4.14458e-01_rb, &
+     & 4.08830e-01_rb, 4.03279e-01_rb, 3.97804e-01_rb, 3.92403e-01_rb/)
+      kao_mco( 6, :,14) = (/ &
+     & 9.46125e-01_rb, 9.29642e-01_rb, 9.13447e-01_rb, 8.97533e-01_rb, 8.81897e-01_rb, &
+     & 8.66533e-01_rb, 8.51437e-01_rb, 8.36603e-01_rb, 8.22029e-01_rb, 8.07708e-01_rb, &
+     & 7.93636e-01_rb, 7.79810e-01_rb, 7.66225e-01_rb, 7.52876e-01_rb, 7.39760e-01_rb, &
+     & 7.26872e-01_rb, 7.14209e-01_rb, 7.01766e-01_rb, 6.89540e-01_rb/)
+      kao_mco( 7, :,14) = (/ &
+     & 2.47697e+00_rb, 2.41183e+00_rb, 2.34840e+00_rb, 2.28664e+00_rb, 2.22650e+00_rb, &
+     & 2.16795e+00_rb, 2.11093e+00_rb, 2.05541e+00_rb, 2.00136e+00_rb, 1.94872e+00_rb, &
+     & 1.89747e+00_rb, 1.84757e+00_rb, 1.79898e+00_rb, 1.75167e+00_rb, 1.70560e+00_rb, &
+     & 1.66074e+00_rb, 1.61707e+00_rb, 1.57454e+00_rb, 1.53313e+00_rb/)
+      kao_mco( 8, :,14) = (/ &
+     & 2.19323e+00_rb, 2.13926e+00_rb, 2.08662e+00_rb, 2.03528e+00_rb, 1.98519e+00_rb, &
+     & 1.93635e+00_rb, 1.88870e+00_rb, 1.84222e+00_rb, 1.79689e+00_rb, 1.75268e+00_rb, &
+     & 1.70955e+00_rb, 1.66748e+00_rb, 1.62645e+00_rb, 1.58643e+00_rb, 1.54739e+00_rb, &
+     & 1.50932e+00_rb, 1.47218e+00_rb, 1.43595e+00_rb, 1.40062e+00_rb/)
+      kao_mco( 9, :,14) = (/ &
+     & 5.68351e-01_rb, 5.60360e-01_rb, 5.52481e-01_rb, 5.44712e-01_rb, 5.37053e-01_rb, &
+     & 5.29502e-01_rb, 5.22057e-01_rb, 5.14716e-01_rb, 5.07479e-01_rb, 5.00343e-01_rb, &
+     & 4.93308e-01_rb, 4.86372e-01_rb, 4.79533e-01_rb, 4.72790e-01_rb, 4.66142e-01_rb, &
+     & 4.59588e-01_rb, 4.53126e-01_rb, 4.46754e-01_rb, 4.40473e-01_rb/)
+      kao_mco( 1, :,15) = (/ &
+     & 7.87937e-04_rb, 1.01733e-03_rb, 1.31351e-03_rb, 1.69591e-03_rb, 2.18964e-03_rb, &
+     & 2.82712e-03_rb, 3.65018e-03_rb, 4.71286e-03_rb, 6.08493e-03_rb, 7.85644e-03_rb, &
+     & 1.01437e-02_rb, 1.30969e-02_rb, 1.69098e-02_rb, 2.18327e-02_rb, 2.81889e-02_rb, &
+     & 3.63956e-02_rb, 4.69915e-02_rb, 6.06722e-02_rb, 7.83357e-02_rb/)
+      kao_mco( 2, :,15) = (/ &
+     & 7.87937e-04_rb, 1.01733e-03_rb, 1.31351e-03_rb, 1.69591e-03_rb, 2.18964e-03_rb, &
+     & 2.82712e-03_rb, 3.65018e-03_rb, 4.71286e-03_rb, 6.08493e-03_rb, 7.85644e-03_rb, &
+     & 1.01437e-02_rb, 1.30969e-02_rb, 1.69098e-02_rb, 2.18327e-02_rb, 2.81889e-02_rb, &
+     & 3.63956e-02_rb, 4.69915e-02_rb, 6.06722e-02_rb, 7.83357e-02_rb/)
+      kao_mco( 3, :,15) = (/ &
+     & 1.97281e-01_rb, 2.00714e-01_rb, 2.04206e-01_rb, 2.07760e-01_rb, 2.11375e-01_rb, &
+     & 2.15053e-01_rb, 2.18795e-01_rb, 2.22603e-01_rb, 2.26476e-01_rb, 2.30417e-01_rb, &
+     & 2.34426e-01_rb, 2.38506e-01_rb, 2.42656e-01_rb, 2.46878e-01_rb, 2.51174e-01_rb, &
+     & 2.55545e-01_rb, 2.59992e-01_rb, 2.64516e-01_rb, 2.69119e-01_rb/)
+      kao_mco( 4, :,15) = (/ &
+     & 4.47509e-01_rb, 4.52222e-01_rb, 4.56985e-01_rb, 4.61799e-01_rb, 4.66663e-01_rb, &
+     & 4.71578e-01_rb, 4.76545e-01_rb, 4.81565e-01_rb, 4.86637e-01_rb, 4.91763e-01_rb, &
+     & 4.96942e-01_rb, 5.02177e-01_rb, 5.07466e-01_rb, 5.12811e-01_rb, 5.18213e-01_rb, &
+     & 5.23671e-01_rb, 5.29187e-01_rb, 5.34761e-01_rb, 5.40393e-01_rb/)
+      kao_mco( 5, :,15) = (/ &
+     & 1.02732e+00_rb, 1.02091e+00_rb, 1.01453e+00_rb, 1.00820e+00_rb, 1.00191e+00_rb, &
+     & 9.95660e-01_rb, 9.89447e-01_rb, 9.83273e-01_rb, 9.77137e-01_rb, 9.71039e-01_rb, &
+     & 9.64980e-01_rb, 9.58958e-01_rb, 9.52974e-01_rb, 9.47027e-01_rb, 9.41118e-01_rb, &
+     & 9.35245e-01_rb, 9.29409e-01_rb, 9.23609e-01_rb, 9.17846e-01_rb/)
+      kao_mco( 6, :,15) = (/ &
+     & 1.13766e+00_rb, 1.12944e+00_rb, 1.12128e+00_rb, 1.11318e+00_rb, 1.10514e+00_rb, &
+     & 1.09715e+00_rb, 1.08923e+00_rb, 1.08136e+00_rb, 1.07355e+00_rb, 1.06579e+00_rb, &
+     & 1.05809e+00_rb, 1.05045e+00_rb, 1.04286e+00_rb, 1.03532e+00_rb, 1.02784e+00_rb, &
+     & 1.02042e+00_rb, 1.01305e+00_rb, 1.00573e+00_rb, 9.98462e-01_rb/)
+      kao_mco( 7, :,15) = (/ &
+     & 1.13268e+00_rb, 1.12496e+00_rb, 1.11730e+00_rb, 1.10969e+00_rb, 1.10213e+00_rb, &
+     & 1.09462e+00_rb, 1.08717e+00_rb, 1.07976e+00_rb, 1.07241e+00_rb, 1.06510e+00_rb, &
+     & 1.05785e+00_rb, 1.05064e+00_rb, 1.04349e+00_rb, 1.03638e+00_rb, 1.02932e+00_rb, &
+     & 1.02231e+00_rb, 1.01535e+00_rb, 1.00843e+00_rb, 1.00156e+00_rb/)
+      kao_mco( 8, :,15) = (/ &
+     & 1.11982e+00_rb, 1.11343e+00_rb, 1.10707e+00_rb, 1.10075e+00_rb, 1.09447e+00_rb, &
+     & 1.08822e+00_rb, 1.08201e+00_rb, 1.07583e+00_rb, 1.06969e+00_rb, 1.06358e+00_rb, &
+     & 1.05751e+00_rb, 1.05147e+00_rb, 1.04547e+00_rb, 1.03950e+00_rb, 1.03356e+00_rb, &
+     & 1.02766e+00_rb, 1.02180e+00_rb, 1.01596e+00_rb, 1.01016e+00_rb/)
+      kao_mco( 9, :,15) = (/ &
+     & 1.03561e+00_rb, 1.02902e+00_rb, 1.02246e+00_rb, 1.01595e+00_rb, 1.00948e+00_rb, &
+     & 1.00305e+00_rb, 9.96667e-01_rb, 9.90320e-01_rb, 9.84013e-01_rb, 9.77747e-01_rb, &
+     & 9.71520e-01_rb, 9.65334e-01_rb, 9.59186e-01_rb, 9.53078e-01_rb, 9.47008e-01_rb, &
+     & 9.40978e-01_rb, 9.34985e-01_rb, 9.29031e-01_rb, 9.23115e-01_rb/)
+      kao_mco( 1, :,16) = (/ &
+     & 1.22217e-03_rb, 1.56836e-03_rb, 2.01261e-03_rb, 2.58271e-03_rb, 3.31429e-03_rb, &
+     & 4.25310e-03_rb, 5.45784e-03_rb, 7.00383e-03_rb, 8.98775e-03_rb, 1.15336e-02_rb, &
+     & 1.48007e-02_rb, 1.89931e-02_rb, 2.43731e-02_rb, 3.12771e-02_rb, 4.01367e-02_rb, &
+     & 5.15059e-02_rb, 6.60956e-02_rb, 8.48179e-02_rb, 1.08843e-01_rb/)
+      kao_mco( 2, :,16) = (/ &
+     & 1.22217e-03_rb, 1.56836e-03_rb, 2.01261e-03_rb, 2.58271e-03_rb, 3.31429e-03_rb, &
+     & 4.25310e-03_rb, 5.45784e-03_rb, 7.00383e-03_rb, 8.98775e-03_rb, 1.15336e-02_rb, &
+     & 1.48007e-02_rb, 1.89931e-02_rb, 2.43731e-02_rb, 3.12771e-02_rb, 4.01367e-02_rb, &
+     & 5.15059e-02_rb, 6.60956e-02_rb, 8.48179e-02_rb, 1.08843e-01_rb/)
+      kao_mco( 3, :,16) = (/ &
+     & 1.22217e-03_rb, 1.56836e-03_rb, 2.01261e-03_rb, 2.58271e-03_rb, 3.31429e-03_rb, &
+     & 4.25310e-03_rb, 5.45784e-03_rb, 7.00383e-03_rb, 8.98775e-03_rb, 1.15336e-02_rb, &
+     & 1.48007e-02_rb, 1.89931e-02_rb, 2.43731e-02_rb, 3.12771e-02_rb, 4.01367e-02_rb, &
+     & 5.15059e-02_rb, 6.60956e-02_rb, 8.48179e-02_rb, 1.08843e-01_rb/)
+      kao_mco( 4, :,16) = (/ &
+     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &
+     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &
+     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &
+     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)
+      kao_mco( 5, :,16) = (/ &
+     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &
+     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &
+     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &
+     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)
+      kao_mco( 6, :,16) = (/ &
+     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &
+     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &
+     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &
+     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)
+      kao_mco( 7, :,16) = (/ &
+     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &
+     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &
+     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &
+     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)
+      kao_mco( 8, :,16) = (/ &
+     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &
+     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &
+     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &
+     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)
+      kao_mco( 9, :,16) = (/ &
+     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &
+     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &
+     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &
+     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)
+
+!     The array KBO_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level above 100~ mb.   The first index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index 
+!     runs over the g-channel (1 to 16).
+
+      kbo_mo3(:, 1) = (/ &
+     & 1.07596e-02_rb, 1.12146e-02_rb, 1.16887e-02_rb, 1.21830e-02_rb, 1.26981e-02_rb, &
+     & 1.32350e-02_rb, 1.37946e-02_rb, 1.43779e-02_rb, 1.49858e-02_rb, 1.56194e-02_rb, &
+     & 1.62799e-02_rb, 1.69682e-02_rb, 1.76857e-02_rb, 1.84334e-02_rb, 1.92129e-02_rb, &
+     & 2.00252e-02_rb, 2.08719e-02_rb, 2.17544e-02_rb, 2.26743e-02_rb/)
+      kbo_mo3(:, 2) = (/ &
+     & 9.48276e-02_rb, 9.66591e-02_rb, 9.85260e-02_rb, 1.00429e-01_rb, 1.02369e-01_rb, &
+     & 1.04346e-01_rb, 1.06361e-01_rb, 1.08416e-01_rb, 1.10510e-01_rb, 1.12644e-01_rb, &
+     & 1.14820e-01_rb, 1.17037e-01_rb, 1.19298e-01_rb, 1.21602e-01_rb, 1.23951e-01_rb, &
+     & 1.26345e-01_rb, 1.28785e-01_rb, 1.31273e-01_rb, 1.33808e-01_rb/)
+      kbo_mo3(:, 3) = (/ &
+     & 3.54721e-01_rb, 3.55779e-01_rb, 3.56841e-01_rb, 3.57906e-01_rb, 3.58973e-01_rb, &
+     & 3.60044e-01_rb, 3.61119e-01_rb, 3.62196e-01_rb, 3.63277e-01_rb, 3.64360e-01_rb, &
+     & 3.65448e-01_rb, 3.66538e-01_rb, 3.67631e-01_rb, 3.68728e-01_rb, 3.69828e-01_rb, &
+     & 3.70932e-01_rb, 3.72038e-01_rb, 3.73148e-01_rb, 3.74262e-01_rb/)
+      kbo_mo3(:, 4) = (/ &
+     & 6.46454e-01_rb, 6.43823e-01_rb, 6.41202e-01_rb, 6.38593e-01_rb, 6.35994e-01_rb, &
+     & 6.33405e-01_rb, 6.30827e-01_rb, 6.28260e-01_rb, 6.25703e-01_rb, 6.23156e-01_rb, &
+     & 6.20620e-01_rb, 6.18094e-01_rb, 6.15578e-01_rb, 6.13073e-01_rb, 6.10578e-01_rb, &
+     & 6.08093e-01_rb, 6.05618e-01_rb, 6.03153e-01_rb, 6.00698e-01_rb/)
+      kbo_mo3(:, 5) = (/ &
+     & 9.29832e-01_rb, 9.22877e-01_rb, 9.15975e-01_rb, 9.09124e-01_rb, 9.02324e-01_rb, &
+     & 8.95576e-01_rb, 8.88877e-01_rb, 8.82229e-01_rb, 8.75631e-01_rb, 8.69082e-01_rb, &
+     & 8.62582e-01_rb, 8.56130e-01_rb, 8.49727e-01_rb, 8.43372e-01_rb, 8.37064e-01_rb, &
+     & 8.30803e-01_rb, 8.24589e-01_rb, 8.18422e-01_rb, 8.12301e-01_rb/)
+      kbo_mo3(:, 6) = (/ &
+     & 1.43531e+00_rb, 1.42616e+00_rb, 1.41706e+00_rb, 1.40802e+00_rb, 1.39903e+00_rb, &
+     & 1.39010e+00_rb, 1.38124e+00_rb, 1.37242e+00_rb, 1.36367e+00_rb, 1.35496e+00_rb, &
+     & 1.34632e+00_rb, 1.33773e+00_rb, 1.32919e+00_rb, 1.32071e+00_rb, 1.31229e+00_rb, &
+     & 1.30391e+00_rb, 1.29559e+00_rb, 1.28733e+00_rb, 1.27911e+00_rb/)
+      kbo_mo3(:, 7) = (/ &
+     & 2.68664e+00_rb, 2.67196e+00_rb, 2.65736e+00_rb, 2.64284e+00_rb, 2.62840e+00_rb, &
+     & 2.61404e+00_rb, 2.59975e+00_rb, 2.58555e+00_rb, 2.57142e+00_rb, 2.55737e+00_rb, &
+     & 2.54340e+00_rb, 2.52950e+00_rb, 2.51568e+00_rb, 2.50193e+00_rb, 2.48826e+00_rb, &
+     & 2.47466e+00_rb, 2.46114e+00_rb, 2.44769e+00_rb, 2.43432e+00_rb/)
+      kbo_mo3(:, 8) = (/ &
+     & 2.45343e+00_rb, 2.43442e+00_rb, 2.41556e+00_rb, 2.39684e+00_rb, 2.37827e+00_rb, &
+     & 2.35984e+00_rb, 2.34156e+00_rb, 2.32342e+00_rb, 2.30541e+00_rb, 2.28755e+00_rb, &
+     & 2.26983e+00_rb, 2.25224e+00_rb, 2.23479e+00_rb, 2.21747e+00_rb, 2.20029e+00_rb, &
+     & 2.18324e+00_rb, 2.16633e+00_rb, 2.14954e+00_rb, 2.13289e+00_rb/)
+      kbo_mo3(:, 9) = (/ &
+     & 1.55879e-01_rb, 1.55998e-01_rb, 1.56118e-01_rb, 1.56238e-01_rb, 1.56358e-01_rb, &
+     & 1.56478e-01_rb, 1.56599e-01_rb, 1.56719e-01_rb, 1.56840e-01_rb, 1.56960e-01_rb, &
+     & 1.57081e-01_rb, 1.57201e-01_rb, 1.57322e-01_rb, 1.57443e-01_rb, 1.57564e-01_rb, &
+     & 1.57685e-01_rb, 1.57806e-01_rb, 1.57928e-01_rb, 1.58049e-01_rb/)
+      kbo_mo3(:,10) = (/ &
+     & 8.75149e-03_rb, 8.88794e-03_rb, 9.02651e-03_rb, 9.16725e-03_rb, 9.31018e-03_rb, &
+     & 9.45534e-03_rb, 9.60276e-03_rb, 9.75248e-03_rb, 9.90454e-03_rb, 1.00590e-02_rb, &
+     & 1.02158e-02_rb, 1.03751e-02_rb, 1.05368e-02_rb, 1.07011e-02_rb, 1.08680e-02_rb, &
+     & 1.10374e-02_rb, 1.12095e-02_rb, 1.13843e-02_rb, 1.15618e-02_rb/)
+      kbo_mo3(:,11) = (/ &
+     & 8.83874e-03_rb, 8.97926e-03_rb, 9.12201e-03_rb, 9.26703e-03_rb, 9.41436e-03_rb, &
+     & 9.56403e-03_rb, 9.71608e-03_rb, 9.87055e-03_rb, 1.00275e-02_rb, 1.01869e-02_rb, &
+     & 1.03488e-02_rb, 1.05134e-02_rb, 1.06805e-02_rb, 1.08503e-02_rb, 1.10228e-02_rb, &
+     & 1.11980e-02_rb, 1.13761e-02_rb, 1.15569e-02_rb, 1.17407e-02_rb/)
+      kbo_mo3(:,12) = (/ &
+     & 9.59461e-03_rb, 9.70417e-03_rb, 9.81498e-03_rb, 9.92705e-03_rb, 1.00404e-02_rb, &
+     & 1.01550e-02_rb, 1.02710e-02_rb, 1.03883e-02_rb, 1.05069e-02_rb, 1.06269e-02_rb, &
+     & 1.07482e-02_rb, 1.08709e-02_rb, 1.09951e-02_rb, 1.11206e-02_rb, 1.12476e-02_rb, &
+     & 1.13760e-02_rb, 1.15059e-02_rb, 1.16373e-02_rb, 1.17702e-02_rb/)
+      kbo_mo3(:,13) = (/ &
+     & 1.13077e-02_rb, 1.14079e-02_rb, 1.15089e-02_rb, 1.16109e-02_rb, 1.17138e-02_rb, &
+     & 1.18176e-02_rb, 1.19223e-02_rb, 1.20279e-02_rb, 1.21344e-02_rb, 1.22419e-02_rb, &
+     & 1.23504e-02_rb, 1.24598e-02_rb, 1.25702e-02_rb, 1.26816e-02_rb, 1.27939e-02_rb, &
+     & 1.29073e-02_rb, 1.30216e-02_rb, 1.31370e-02_rb, 1.32534e-02_rb/)
+      kbo_mo3(:,14) = (/ &
+     & 6.74844e-03_rb, 6.82637e-03_rb, 6.90519e-03_rb, 6.98493e-03_rb, 7.06558e-03_rb, &
+     & 7.14717e-03_rb, 7.22970e-03_rb, 7.31318e-03_rb, 7.39762e-03_rb, 7.48304e-03_rb, &
+     & 7.56945e-03_rb, 7.65686e-03_rb, 7.74527e-03_rb, 7.83470e-03_rb, 7.92517e-03_rb, &
+     & 8.01668e-03_rb, 8.10925e-03_rb, 8.20289e-03_rb, 8.29761e-03_rb/)
+      kbo_mo3(:,15) = (/ &
+     & 7.94595e-03_rb, 8.00015e-03_rb, 8.05472e-03_rb, 8.10966e-03_rb, 8.16497e-03_rb, &
+     & 8.22067e-03_rb, 8.27674e-03_rb, 8.33320e-03_rb, 8.39004e-03_rb, 8.44727e-03_rb, &
+     & 8.50489e-03_rb, 8.56290e-03_rb, 8.62130e-03_rb, 8.68011e-03_rb, 8.73932e-03_rb, &
+     & 8.79893e-03_rb, 8.85895e-03_rb, 8.91937e-03_rb, 8.98021e-03_rb/)
+      kbo_mo3(:,16) = (/ &
+     & 1.85967e-03_rb, 1.86082e-03_rb, 1.86197e-03_rb, 1.86312e-03_rb, 1.86428e-03_rb, &
+     & 1.86543e-03_rb, 1.86658e-03_rb, 1.86774e-03_rb, 1.86889e-03_rb, 1.87005e-03_rb, &
+     & 1.87121e-03_rb, 1.87236e-03_rb, 1.87352e-03_rb, 1.87468e-03_rb, 1.87584e-03_rb, &
+     & 1.87700e-03_rb, 1.87816e-03_rb, 1.87932e-03_rb, 1.88049e-03_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &1.6586e-05_rb,1.9995e-05_rb,1.8582e-05_rb,1.3988e-05_rb,1.3650e-05_rb,1.1079e-05_rb, &
+     &9.5855e-06_rb,8.4062e-06_rb,1.3558e-05_rb,1.8620e-05_rb,2.2652e-05_rb,1.7883e-05_rb, &
+     &2.6241e-05_rb,3.1171e-05_rb,3.9386e-05_rb,4.4415e-05_rb/)
+      forrefo(2,:) = (/ &
+     &2.0730e-05_rb,2.3258e-05_rb,2.1543e-05_rb,1.5660e-05_rb,9.7872e-06_rb,8.1078e-06_rb, &
+     &7.0246e-06_rb,6.0428e-06_rb,4.8793e-06_rb,4.4937e-06_rb,4.7078e-06_rb,4.6898e-06_rb, &
+     &6.9481e-06_rb,8.6269e-06_rb,3.1761e-06_rb,3.1440e-06_rb/)
+      forrefo(3,:) = (/ &
+     &1.5737e-05_rb,2.2501e-05_rb,2.3520e-05_rb,2.0288e-05_rb,1.2083e-05_rb,6.8256e-06_rb, &
+     &6.0637e-06_rb,5.5434e-06_rb,4.3888e-06_rb,3.8435e-06_rb,3.8477e-06_rb,3.8314e-06_rb, &
+     &3.8251e-06_rb,3.3637e-06_rb,3.1950e-06_rb,3.1440e-06_rb/)
+      forrefo(4,:) = (/ &
+     &1.1400e-05_rb,7.9751e-06_rb,8.8659e-06_rb,1.5884e-05_rb,1.9118e-05_rb,1.9429e-05_rb, &
+     &2.0532e-05_rb,2.2155e-05_rb,2.3894e-05_rb,2.2984e-05_rb,2.3731e-05_rb,2.4538e-05_rb, &
+     &2.6697e-05_rb,1.9329e-05_rb,3.3306e-06_rb,3.2018e-06_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 9.62275e-03_rb, 8.29909e-03_rb, 7.15750e-03_rb, 6.17294e-03_rb, 5.32382e-03_rb, &
+     & 4.59150e-03_rb, 3.95991e-03_rb, 3.41520e-03_rb, 2.94542e-03_rb, 2.54026e-03_rb/)
+      selfrefo(:, 2) = (/ &
+     & 9.76664e-03_rb, 8.47783e-03_rb, 7.35910e-03_rb, 6.38799e-03_rb, 5.54504e-03_rb, &
+     & 4.81331e-03_rb, 4.17815e-03_rb, 3.62680e-03_rb, 3.14821e-03_rb, 2.73277e-03_rb/)
+      selfrefo(:, 3) = (/ &
+     & 9.53856e-03_rb, 8.23750e-03_rb, 7.11390e-03_rb, 6.14356e-03_rb, 5.30558e-03_rb, &
+     & 4.58190e-03_rb, 3.95693e-03_rb, 3.41720e-03_rb, 2.95109e-03_rb, 2.54856e-03_rb/)
+      selfrefo(:, 4) = (/ &
+     & 8.47621e-03_rb, 7.29518e-03_rb, 6.27870e-03_rb, 5.40385e-03_rb, 4.65091e-03_rb, &
+     & 4.00287e-03_rb, 3.44513e-03_rb, 2.96510e-03_rb, 2.55196e-03_rb, 2.19638e-03_rb/)
+      selfrefo(:, 5) = (/ &
+     & 6.71258e-03_rb, 5.95346e-03_rb, 5.28020e-03_rb, 4.68307e-03_rb, 4.15348e-03_rb, &
+     & 3.68377e-03_rb, 3.26718e-03_rb, 2.89770e-03_rb, 2.57000e-03_rb, 2.27937e-03_rb/)
+      selfrefo(:, 6) = (/ &
+     & 6.29140e-03_rb, 5.55557e-03_rb, 4.90580e-03_rb, 4.33203e-03_rb, 3.82536e-03_rb, &
+     & 3.37795e-03_rb, 2.98287e-03_rb, 2.63400e-03_rb, 2.32593e-03_rb, 2.05389e-03_rb/)
+      selfrefo(:, 7) = (/ &
+     & 6.00229e-03_rb, 5.28180e-03_rb, 4.64780e-03_rb, 4.08990e-03_rb, 3.59897e-03_rb, &
+     & 3.16696e-03_rb, 2.78682e-03_rb, 2.45230e-03_rb, 2.15794e-03_rb, 1.89891e-03_rb/)
+      selfrefo(:, 8) = (/ &
+     & 5.78892e-03_rb, 5.07191e-03_rb, 4.44370e-03_rb, 3.89330e-03_rb, 3.41108e-03_rb, &
+     & 2.98858e-03_rb, 2.61842e-03_rb, 2.29410e-03_rb, 2.00995e-03_rb, 1.76100e-03_rb/)
+      selfrefo(:, 9) = (/ &
+     & 4.96186e-03_rb, 4.56767e-03_rb, 4.20480e-03_rb, 3.87076e-03_rb, 3.56325e-03_rb, &
+     & 3.28017e-03_rb, 3.01959e-03_rb, 2.77970e-03_rb, 2.55887e-03_rb, 2.35559e-03_rb/)
+      selfrefo(:,10) = (/ &
+     & 4.56849e-03_rb, 4.35527e-03_rb, 4.15200e-03_rb, 3.95822e-03_rb, 3.77348e-03_rb, &
+     & 3.59736e-03_rb, 3.42946e-03_rb, 3.26940e-03_rb, 3.11681e-03_rb, 2.97134e-03_rb/)
+      selfrefo(:,11) = (/ &
+     & 4.47310e-03_rb, 4.32453e-03_rb, 4.18090e-03_rb, 4.04204e-03_rb, 3.90779e-03_rb, &
+     & 3.77799e-03_rb, 3.65251e-03_rb, 3.53120e-03_rb, 3.41392e-03_rb, 3.30053e-03_rb/)
+      selfrefo(:,12) = (/ &
+     & 4.46459e-03_rb, 4.24031e-03_rb, 4.02730e-03_rb, 3.82499e-03_rb, 3.63284e-03_rb, &
+     & 3.45035e-03_rb, 3.27702e-03_rb, 3.11240e-03_rb, 2.95605e-03_rb, 2.80755e-03_rb/)
+      selfrefo(:,13) = (/ &
+     & 4.43961e-03_rb, 4.35658e-03_rb, 4.27510e-03_rb, 4.19514e-03_rb, 4.11669e-03_rb, &
+     & 4.03969e-03_rb, 3.96414e-03_rb, 3.89000e-03_rb, 3.81725e-03_rb, 3.74585e-03_rb/)
+      selfrefo(:,14) = (/ &
+     & 4.40512e-03_rb, 4.41515e-03_rb, 4.42520e-03_rb, 4.43527e-03_rb, 4.44537e-03_rb, &
+     & 4.45549e-03_rb, 4.46563e-03_rb, 4.47580e-03_rb, 4.48599e-03_rb, 4.49620e-03_rb/)
+      selfrefo(:,15) = (/ &
+     & 3.21965e-03_rb, 3.42479e-03_rb, 3.64300e-03_rb, 3.87512e-03_rb, 4.12202e-03_rb, &
+     & 4.38466e-03_rb, 4.66403e-03_rb, 4.96120e-03_rb, 5.27731e-03_rb, 5.61355e-03_rb/)
+      selfrefo(:,16) = (/ &
+     & 3.11402e-03_rb, 3.35870e-03_rb, 3.62260e-03_rb, 3.90724e-03_rb, 4.21424e-03_rb, &
+     & 4.54536e-03_rb, 4.90250e-03_rb, 5.28770e-03_rb, 5.70317e-03_rb, 6.15128e-03_rb/)
+
+      end subroutine lw_kgb13
+
+! **************************************************************************
+      subroutine lw_kgb14
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg14, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P = 142.5940 mb, T = 215.70 K
+      fracrefao(:) = (/ &
+     &  1.9360e-01_rb, 1.7276e-01_rb, 1.4811e-01_rb, 1.2238e-01_rb, &
+     &  1.0242e-01_rb, 8.6830e-02_rb, 7.1890e-02_rb, 5.4030e-02_rb, &
+     &  3.5075e-02_rb, 3.8052e-03_rb, 3.1458e-03_rb, 2.4873e-03_rb, &
+     &  1.8182e-03_rb, 1.1563e-03_rb, 4.3251e-04_rb, 5.7744e-05_rb/)
+
+! Planck fraction mapping level : P = 4.758820mb, T = 250.85 K
+      fracrefbo(:) = (/ &
+     &  1.8599e-01_rb, 1.6646e-01_rb, 1.4264e-01_rb, 1.2231e-01_rb, &
+     &  1.0603e-01_rb, 9.2014e-02_rb, 7.5287e-02_rb, 5.6758e-02_rb, &
+     &  3.8386e-02_rb, 4.2139e-03_rb, 3.5399e-03_rb, 2.7381e-03_rb, &
+     &  1.9202e-03_rb, 1.2083e-03_rb, 4.5395e-04_rb, 6.2699e-05_rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1) = (/ &
+     &3.5183e-01_rb,3.7165e-01_rb,3.9536e-01_rb,4.2364e-01_rb,4.5645e-01_rb/)
+      kao(:, 2, 1) = (/ &
+     &2.9958e-01_rb,3.1568e-01_rb,3.3580e-01_rb,3.6030e-01_rb,3.8890e-01_rb/)
+      kao(:, 3, 1) = (/ &
+     &2.5105e-01_rb,2.6327e-01_rb,2.7913e-01_rb,2.9918e-01_rb,3.2278e-01_rb/)
+      kao(:, 4, 1) = (/ &
+     &2.0894e-01_rb,2.1786e-01_rb,2.3000e-01_rb,2.4588e-01_rb,2.6517e-01_rb/)
+      kao(:, 5, 1) = (/ &
+     &1.7343e-01_rb,1.7993e-01_rb,1.8907e-01_rb,2.0143e-01_rb,2.1685e-01_rb/)
+      kao(:, 6, 1) = (/ &
+     &1.4374e-01_rb,1.4829e-01_rb,1.5503e-01_rb,1.6436e-01_rb,1.7642e-01_rb/)
+      kao(:, 7, 1) = (/ &
+     &1.1916e-01_rb,1.2232e-01_rb,1.2721e-01_rb,1.3426e-01_rb,1.4361e-01_rb/)
+      kao(:, 8, 1) = (/ &
+     &9.8898e-02_rb,1.0120e-01_rb,1.0467e-01_rb,1.0982e-01_rb,1.1705e-01_rb/)
+      kao(:, 9, 1) = (/ &
+     &8.2212e-02_rb,8.3740e-02_rb,8.6244e-02_rb,9.0121e-02_rb,9.5602e-02_rb/)
+      kao(:,10, 1) = (/ &
+     &6.8330e-02_rb,6.9351e-02_rb,7.1210e-02_rb,7.4137e-02_rb,7.8349e-02_rb/)
+      kao(:,11, 1) = (/ &
+     &5.6910e-02_rb,5.7856e-02_rb,5.9557e-02_rb,6.2211e-02_rb,6.6055e-02_rb/)
+      kao(:,12, 1) = (/ &
+     &4.7279e-02_rb,4.8187e-02_rb,4.9716e-02_rb,5.2169e-02_rb,5.5693e-02_rb/)
+      kao(:,13, 1) = (/ &
+     &3.9228e-02_rb,4.0055e-02_rb,4.1480e-02_rb,4.3734e-02_rb,4.6826e-02_rb/)
+      kao(:, 1, 2) = (/ &
+     &1.2827e+00_rb,1.3853e+00_rb,1.5108e+00_rb,1.6643e+00_rb,1.8505e+00_rb/)
+      kao(:, 2, 2) = (/ &
+     &1.1042e+00_rb,1.1988e+00_rb,1.3140e+00_rb,1.4542e+00_rb,1.6229e+00_rb/)
+      kao(:, 3, 2) = (/ &
+     &9.2790e-01_rb,1.0121e+00_rb,1.1133e+00_rb,1.2349e+00_rb,1.3807e+00_rb/)
+      kao(:, 4, 2) = (/ &
+     &7.7001e-01_rb,8.4339e-01_rb,9.3172e-01_rb,1.0366e+00_rb,1.1604e+00_rb/)
+      kao(:, 5, 2) = (/ &
+     &6.3550e-01_rb,6.9915e-01_rb,7.7552e-01_rb,8.6518e-01_rb,9.7050e-01_rb/)
+      kao(:, 6, 2) = (/ &
+     &5.2058e-01_rb,5.7460e-01_rb,6.3982e-01_rb,7.1578e-01_rb,8.0435e-01_rb/)
+      kao(:, 7, 2) = (/ &
+     &4.2451e-01_rb,4.7028e-01_rb,5.2464e-01_rb,5.8830e-01_rb,6.6179e-01_rb/)
+      kao(:, 8, 2) = (/ &
+     &3.4539e-01_rb,3.8222e-01_rb,4.2607e-01_rb,4.7789e-01_rb,5.3786e-01_rb/)
+      kao(:, 9, 2) = (/ &
+     &2.7941e-01_rb,3.0849e-01_rb,3.4320e-01_rb,3.8420e-01_rb,4.3240e-01_rb/)
+      kao(:,10, 2) = (/ &
+     &2.2666e-01_rb,2.5024e-01_rb,2.7777e-01_rb,3.1051e-01_rb,3.4934e-01_rb/)
+      kao(:,11, 2) = (/ &
+     &1.9193e-01_rb,2.1218e-01_rb,2.3589e-01_rb,2.6422e-01_rb,2.9804e-01_rb/)
+      kao(:,12, 2) = (/ &
+     &1.6216e-01_rb,1.7954e-01_rb,2.0015e-01_rb,2.2464e-01_rb,2.5376e-01_rb/)
+      kao(:,13, 2) = (/ &
+     &1.3654e-01_rb,1.5163e-01_rb,1.6956e-01_rb,1.9071e-01_rb,2.1617e-01_rb/)
+      kao(:, 1, 3) = (/ &
+     &5.3312e+00_rb,5.9534e+00_rb,6.6227e+00_rb,7.3398e+00_rb,8.1099e+00_rb/)
+      kao(:, 2, 3) = (/ &
+     &4.6807e+00_rb,5.2433e+00_rb,5.8458e+00_rb,6.4988e+00_rb,7.1971e+00_rb/)
+      kao(:, 3, 3) = (/ &
+     &3.9284e+00_rb,4.4200e+00_rb,4.9505e+00_rb,5.5235e+00_rb,6.1336e+00_rb/)
+      kao(:, 4, 3) = (/ &
+     &3.2160e+00_rb,3.6333e+00_rb,4.0896e+00_rb,4.5842e+00_rb,5.1138e+00_rb/)
+      kao(:, 5, 3) = (/ &
+     &2.5935e+00_rb,2.9443e+00_rb,3.3309e+00_rb,3.7529e+00_rb,4.2079e+00_rb/)
+      kao(:, 6, 3) = (/ &
+     &2.0555e+00_rb,2.3468e+00_rb,2.6695e+00_rb,3.0246e+00_rb,3.4114e+00_rb/)
+      kao(:, 7, 3) = (/ &
+     &1.6122e+00_rb,1.8522e+00_rb,2.1211e+00_rb,2.4178e+00_rb,2.7436e+00_rb/)
+      kao(:, 8, 3) = (/ &
+     &1.2572e+00_rb,1.4549e+00_rb,1.6787e+00_rb,1.9278e+00_rb,2.2011e+00_rb/)
+      kao(:, 9, 3) = (/ &
+     &9.7554e-01_rb,1.1374e+00_rb,1.3224e+00_rb,1.5307e+00_rb,1.7599e+00_rb/)
+      kao(:,10, 3) = (/ &
+     &7.6412e-01_rb,8.9744e-01_rb,1.0509e+00_rb,1.2253e+00_rb,1.4183e+00_rb/)
+      kao(:,11, 3) = (/ &
+     &6.4606e-01_rb,7.6360e-01_rb,8.9925e-01_rb,1.0524e+00_rb,1.2194e+00_rb/)
+      kao(:,12, 3) = (/ &
+     &5.4819e-01_rb,6.5159e-01_rb,7.6939e-01_rb,8.9987e-01_rb,1.0405e+00_rb/)
+      kao(:,13, 3) = (/ &
+     &4.6584e-01_rb,5.5439e-01_rb,6.5378e-01_rb,7.6270e-01_rb,8.8077e-01_rb/)
+      kao(:, 1, 4) = (/ &
+     &1.6140e+01_rb,1.7514e+01_rb,1.8771e+01_rb,1.9886e+01_rb,2.0829e+01_rb/)
+      kao(:, 2, 4) = (/ &
+     &1.4035e+01_rb,1.5167e+01_rb,1.6185e+01_rb,1.7079e+01_rb,1.7864e+01_rb/)
+      kao(:, 3, 4) = (/ &
+     &1.2090e+01_rb,1.3039e+01_rb,1.3889e+01_rb,1.4653e+01_rb,1.5339e+01_rb/)
+      kao(:, 4, 4) = (/ &
+     &1.0243e+01_rb,1.1063e+01_rb,1.1803e+01_rb,1.2472e+01_rb,1.3075e+01_rb/)
+      kao(:, 5, 4) = (/ &
+     &8.5658e+00_rb,9.2747e+00_rb,9.9250e+00_rb,1.0511e+01_rb,1.1040e+01_rb/)
+      kao(:, 6, 4) = (/ &
+     &7.0689e+00_rb,7.6839e+00_rb,8.2525e+00_rb,8.7702e+00_rb,9.2411e+00_rb/)
+      kao(:, 7, 4) = (/ &
+     &5.7728e+00_rb,6.3036e+00_rb,6.7993e+00_rb,7.2580e+00_rb,7.6760e+00_rb/)
+      kao(:, 8, 4) = (/ &
+     &4.6719e+00_rb,5.1262e+00_rb,5.5542e+00_rb,5.9566e+00_rb,6.3304e+00_rb/)
+      kao(:, 9, 4) = (/ &
+     &3.7449e+00_rb,4.1314e+00_rb,4.4992e+00_rb,4.8512e+00_rb,5.1834e+00_rb/)
+      kao(:,10, 4) = (/ &
+     &2.9983e+00_rb,3.3274e+00_rb,3.6424e+00_rb,3.9480e+00_rb,4.2418e+00_rb/)
+      kao(:,11, 4) = (/ &
+     &2.5136e+00_rb,2.7891e+00_rb,3.0545e+00_rb,3.3182e+00_rb,3.5747e+00_rb/)
+      kao(:,12, 4) = (/ &
+     &2.1004e+00_rb,2.3314e+00_rb,2.5605e+00_rb,2.7929e+00_rb,3.0174e+00_rb/)
+      kao(:,13, 4) = (/ &
+     &1.7524e+00_rb,1.9492e+00_rb,2.1512e+00_rb,2.3564e+00_rb,2.5478e+00_rb/)
+      kao(:, 1, 5) = (/ &
+     &3.4724e+01_rb,3.5203e+01_rb,3.5615e+01_rb,3.5967e+01_rb,3.6300e+01_rb/)
+      kao(:, 2, 5) = (/ &
+     &2.9704e+01_rb,3.0154e+01_rb,3.0541e+01_rb,3.0880e+01_rb,3.1155e+01_rb/)
+      kao(:, 3, 5) = (/ &
+     &2.5203e+01_rb,2.5623e+01_rb,2.5990e+01_rb,2.6275e+01_rb,2.6504e+01_rb/)
+      kao(:, 4, 5) = (/ &
+     &2.1552e+01_rb,2.1924e+01_rb,2.2232e+01_rb,2.2450e+01_rb,2.2639e+01_rb/)
+      kao(:, 5, 5) = (/ &
+     &1.8513e+01_rb,1.8836e+01_rb,1.9081e+01_rb,1.9246e+01_rb,1.9410e+01_rb/)
+      kao(:, 6, 5) = (/ &
+     &1.5765e+01_rb,1.6046e+01_rb,1.6242e+01_rb,1.6370e+01_rb,1.6509e+01_rb/)
+      kao(:, 7, 5) = (/ &
+     &1.3333e+01_rb,1.3583e+01_rb,1.3745e+01_rb,1.3853e+01_rb,1.3971e+01_rb/)
+      kao(:, 8, 5) = (/ &
+     &1.1230e+01_rb,1.1452e+01_rb,1.1589e+01_rb,1.1683e+01_rb,1.1782e+01_rb/)
+      kao(:, 9, 5) = (/ &
+     &9.4196e+00_rb,9.6109e+00_rb,9.7356e+00_rb,9.8175e+00_rb,9.8960e+00_rb/)
+      kao(:,10, 5) = (/ &
+     &7.8743e+00_rb,8.0366e+00_rb,8.1439e+00_rb,8.2124e+00_rb,8.2768e+00_rb/)
+      kao(:,11, 5) = (/ &
+     &6.6265e+00_rb,6.7386e+00_rb,6.8161e+00_rb,6.8681e+00_rb,6.9329e+00_rb/)
+      kao(:,12, 5) = (/ &
+     &5.5390e+00_rb,5.6241e+00_rb,5.6817e+00_rb,5.7305e+00_rb,5.8031e+00_rb/)
+      kao(:,13, 5) = (/ &
+     &4.6094e+00_rb,4.6772e+00_rb,4.7246e+00_rb,4.7737e+00_rb,4.8549e+00_rb/)
+      kao(:, 1, 6) = (/ &
+     &5.5082e+01_rb,5.5287e+01_rb,5.5714e+01_rb,5.6227e+01_rb,5.6768e+01_rb/)
+      kao(:, 2, 6) = (/ &
+     &4.8272e+01_rb,4.8698e+01_rb,4.9143e+01_rb,4.9607e+01_rb,5.0132e+01_rb/)
+      kao(:, 3, 6) = (/ &
+     &4.2021e+01_rb,4.2370e+01_rb,4.2729e+01_rb,4.3163e+01_rb,4.3674e+01_rb/)
+      kao(:, 4, 6) = (/ &
+     &3.6214e+01_rb,3.6443e+01_rb,3.6742e+01_rb,3.7158e+01_rb,3.7640e+01_rb/)
+      kao(:, 5, 6) = (/ &
+     &3.1082e+01_rb,3.1249e+01_rb,3.1507e+01_rb,3.1893e+01_rb,3.2320e+01_rb/)
+      kao(:, 6, 6) = (/ &
+     &2.6864e+01_rb,2.6986e+01_rb,2.7204e+01_rb,2.7526e+01_rb,2.7858e+01_rb/)
+      kao(:, 7, 6) = (/ &
+     &2.3146e+01_rb,2.3231e+01_rb,2.3407e+01_rb,2.3654e+01_rb,2.3926e+01_rb/)
+      kao(:, 8, 6) = (/ &
+     &1.9819e+01_rb,1.9868e+01_rb,1.9994e+01_rb,2.0178e+01_rb,2.0400e+01_rb/)
+      kao(:, 9, 6) = (/ &
+     &1.6892e+01_rb,1.6913e+01_rb,1.7001e+01_rb,1.7132e+01_rb,1.7310e+01_rb/)
+      kao(:,10, 6) = (/ &
+     &1.4365e+01_rb,1.4367e+01_rb,1.4429e+01_rb,1.4521e+01_rb,1.4660e+01_rb/)
+      kao(:,11, 6) = (/ &
+     &1.2162e+01_rb,1.2177e+01_rb,1.2223e+01_rb,1.2309e+01_rb,1.2439e+01_rb/)
+      kao(:,12, 6) = (/ &
+     &1.0257e+01_rb,1.0260e+01_rb,1.0295e+01_rb,1.0375e+01_rb,1.0502e+01_rb/)
+      kao(:,13, 6) = (/ &
+     &8.6109e+00_rb,8.6045e+00_rb,8.6391e+00_rb,8.7159e+00_rb,8.8472e+00_rb/)
+      kao(:, 1, 7) = (/ &
+     &9.6537e+01_rb,9.5488e+01_rb,9.4812e+01_rb,9.4687e+01_rb,9.5057e+01_rb/)
+      kao(:, 2, 7) = (/ &
+     &8.5306e+01_rb,8.4772e+01_rb,8.4928e+01_rb,8.5670e+01_rb,8.6805e+01_rb/)
+      kao(:, 3, 7) = (/ &
+     &7.4847e+01_rb,7.4994e+01_rb,7.5806e+01_rb,7.7131e+01_rb,7.8782e+01_rb/)
+      kao(:, 4, 7) = (/ &
+     &6.5341e+01_rb,6.6016e+01_rb,6.7305e+01_rb,6.9026e+01_rb,7.0761e+01_rb/)
+      kao(:, 5, 7) = (/ &
+     &5.6784e+01_rb,5.7825e+01_rb,5.9429e+01_rb,6.1058e+01_rb,6.2599e+01_rb/)
+      kao(:, 6, 7) = (/ &
+     &4.9097e+01_rb,5.0352e+01_rb,5.1865e+01_rb,5.3258e+01_rb,5.4642e+01_rb/)
+      kao(:, 7, 7) = (/ &
+     &4.2608e+01_rb,4.3857e+01_rb,4.5074e+01_rb,4.6282e+01_rb,4.7459e+01_rb/)
+      kao(:, 8, 7) = (/ &
+     &3.7209e+01_rb,3.8259e+01_rb,3.9241e+01_rb,4.0246e+01_rb,4.1244e+01_rb/)
+      kao(:, 9, 7) = (/ &
+     &3.2353e+01_rb,3.3212e+01_rb,3.4023e+01_rb,3.4877e+01_rb,3.5739e+01_rb/)
+      kao(:,10, 7) = (/ &
+     &2.7960e+01_rb,2.8627e+01_rb,2.9290e+01_rb,3.0022e+01_rb,3.0747e+01_rb/)
+      kao(:,11, 7) = (/ &
+     &2.4264e+01_rb,2.4777e+01_rb,2.5355e+01_rb,2.5965e+01_rb,2.6544e+01_rb/)
+      kao(:,12, 7) = (/ &
+     &2.0930e+01_rb,2.1372e+01_rb,2.1863e+01_rb,2.2353e+01_rb,2.2822e+01_rb/)
+      kao(:,13, 7) = (/ &
+     &1.7993e+01_rb,1.8373e+01_rb,1.8772e+01_rb,1.9157e+01_rb,1.9544e+01_rb/)
+      kao(:, 1, 8) = (/ &
+     &2.1856e+02_rb,2.1566e+02_rb,2.1284e+02_rb,2.0997e+02_rb,2.0718e+02_rb/)
+      kao(:, 2, 8) = (/ &
+     &2.0300e+02_rb,2.0022e+02_rb,1.9750e+02_rb,1.9481e+02_rb,1.9235e+02_rb/)
+      kao(:, 3, 8) = (/ &
+     &1.8584e+02_rb,1.8317e+02_rb,1.8063e+02_rb,1.7831e+02_rb,1.7621e+02_rb/)
+      kao(:, 4, 8) = (/ &
+     &1.6761e+02_rb,1.6519e+02_rb,1.6298e+02_rb,1.6101e+02_rb,1.5981e+02_rb/)
+      kao(:, 5, 8) = (/ &
+     &1.4928e+02_rb,1.4711e+02_rb,1.4522e+02_rb,1.4425e+02_rb,1.4420e+02_rb/)
+      kao(:, 6, 8) = (/ &
+     &1.3122e+02_rb,1.2933e+02_rb,1.2822e+02_rb,1.2825e+02_rb,1.2918e+02_rb/)
+      kao(:, 7, 8) = (/ &
+     &1.1410e+02_rb,1.1264e+02_rb,1.1239e+02_rb,1.1324e+02_rb,1.1505e+02_rb/)
+      kao(:, 8, 8) = (/ &
+     &9.8348e+01_rb,9.7493e+01_rb,9.7940e+01_rb,9.9442e+01_rb,1.0191e+02_rb/)
+      kao(:, 9, 8) = (/ &
+     &8.4647e+01_rb,8.4268e+01_rb,8.5204e+01_rb,8.7179e+01_rb,9.0023e+01_rb/)
+      kao(:,10, 8) = (/ &
+     &7.3021e+01_rb,7.3118e+01_rb,7.4447e+01_rb,7.6754e+01_rb,7.9414e+01_rb/)
+      kao(:,11, 8) = (/ &
+     &6.3300e+01_rb,6.4312e+01_rb,6.6319e+01_rb,6.8546e+01_rb,7.0686e+01_rb/)
+      kao(:,12, 8) = (/ &
+     &5.5501e+01_rb,5.7093e+01_rb,5.8983e+01_rb,6.0787e+01_rb,6.2564e+01_rb/)
+      kao(:,13, 8) = (/ &
+     &4.8706e+01_rb,5.0287e+01_rb,5.1813e+01_rb,5.3328e+01_rb,5.4791e+01_rb/)
+      kao(:, 1, 9) = (/ &
+     &5.5934e+02_rb,5.5574e+02_rb,5.5144e+02_rb,5.4673e+02_rb,5.4155e+02_rb/)
+      kao(:, 2, 9) = (/ &
+     &5.7946e+02_rb,5.7510e+02_rb,5.7015e+02_rb,5.6485e+02_rb,5.5885e+02_rb/)
+      kao(:, 3, 9) = (/ &
+     &5.9076e+02_rb,5.8577e+02_rb,5.8036e+02_rb,5.7428e+02_rb,5.6790e+02_rb/)
+      kao(:, 4, 9) = (/ &
+     &5.9122e+02_rb,5.8578e+02_rb,5.7964e+02_rb,5.7332e+02_rb,5.6635e+02_rb/)
+      kao(:, 5, 9) = (/ &
+     &5.8028e+02_rb,5.7411e+02_rb,5.6769e+02_rb,5.6068e+02_rb,5.5353e+02_rb/)
+      kao(:, 6, 9) = (/ &
+     &5.5962e+02_rb,5.5294e+02_rb,5.4600e+02_rb,5.3888e+02_rb,5.3142e+02_rb/)
+      kao(:, 7, 9) = (/ &
+     &5.2985e+02_rb,5.2302e+02_rb,5.1578e+02_rb,5.0845e+02_rb,5.0105e+02_rb/)
+      kao(:, 8, 9) = (/ &
+     &4.9277e+02_rb,4.8554e+02_rb,4.7838e+02_rb,4.7112e+02_rb,4.6381e+02_rb/)
+      kao(:, 9, 9) = (/ &
+     &4.5092e+02_rb,4.4373e+02_rb,4.3650e+02_rb,4.2952e+02_rb,4.2278e+02_rb/)
+      kao(:,10, 9) = (/ &
+     &4.0542e+02_rb,3.9841e+02_rb,3.9162e+02_rb,3.8505e+02_rb,3.7968e+02_rb/)
+      kao(:,11, 9) = (/ &
+     &3.5669e+02_rb,3.5010e+02_rb,3.4395e+02_rb,3.3923e+02_rb,3.3643e+02_rb/)
+      kao(:,12, 9) = (/ &
+     &3.0992e+02_rb,3.0411e+02_rb,2.9975e+02_rb,2.9742e+02_rb,2.9692e+02_rb/)
+      kao(:,13, 9) = (/ &
+     &2.6703e+02_rb,2.6279e+02_rb,2.6062e+02_rb,2.6039e+02_rb,2.6194e+02_rb/)
+      kao(:, 1,10) = (/ &
+     &9.5667e+02_rb,9.5651e+02_rb,9.5375e+02_rb,9.4993e+02_rb,9.4458e+02_rb/)
+      kao(:, 2,10) = (/ &
+     &1.0737e+03_rb,1.0712e+03_rb,1.0675e+03_rb,1.0621e+03_rb,1.0554e+03_rb/)
+      kao(:, 3,10) = (/ &
+     &1.1862e+03_rb,1.1837e+03_rb,1.1793e+03_rb,1.1732e+03_rb,1.1657e+03_rb/)
+      kao(:, 4,10) = (/ &
+     &1.2923e+03_rb,1.2885e+03_rb,1.2837e+03_rb,1.2762e+03_rb,1.2683e+03_rb/)
+      kao(:, 5,10) = (/ &
+     &1.3860e+03_rb,1.3831e+03_rb,1.3760e+03_rb,1.3692e+03_rb,1.3583e+03_rb/)
+      kao(:, 6,10) = (/ &
+     &1.4574e+03_rb,1.4515e+03_rb,1.4451e+03_rb,1.4344e+03_rb,1.4246e+03_rb/)
+      kao(:, 7,10) = (/ &
+     &1.5032e+03_rb,1.4948e+03_rb,1.4847e+03_rb,1.4737e+03_rb,1.4593e+03_rb/)
+      kao(:, 8,10) = (/ &
+     &1.5178e+03_rb,1.5093e+03_rb,1.4967e+03_rb,1.4828e+03_rb,1.4689e+03_rb/)
+      kao(:, 9,10) = (/ &
+     &1.5009e+03_rb,1.4874e+03_rb,1.4751e+03_rb,1.4596e+03_rb,1.4422e+03_rb/)
+      kao(:,10,10) = (/ &
+     &1.4526e+03_rb,1.4382e+03_rb,1.4207e+03_rb,1.4042e+03_rb,1.3871e+03_rb/)
+      kao(:,11,10) = (/ &
+     &1.3669e+03_rb,1.3492e+03_rb,1.3313e+03_rb,1.3144e+03_rb,1.2952e+03_rb/)
+      kao(:,12,10) = (/ &
+     &1.2561e+03_rb,1.2377e+03_rb,1.2201e+03_rb,1.2021e+03_rb,1.1826e+03_rb/)
+      kao(:,13,10) = (/ &
+     &1.1367e+03_rb,1.1187e+03_rb,1.1007e+03_rb,1.0822e+03_rb,1.0635e+03_rb/)
+      kao(:, 1,11) = (/ &
+     &1.0788e+03_rb,1.0784e+03_rb,1.0786e+03_rb,1.0769e+03_rb,1.0720e+03_rb/)
+      kao(:, 2,11) = (/ &
+     &1.2360e+03_rb,1.2387e+03_rb,1.2382e+03_rb,1.2346e+03_rb,1.2287e+03_rb/)
+      kao(:, 3,11) = (/ &
+     &1.4028e+03_rb,1.4050e+03_rb,1.4041e+03_rb,1.4005e+03_rb,1.3939e+03_rb/)
+      kao(:, 4,11) = (/ &
+     &1.5761e+03_rb,1.5770e+03_rb,1.5755e+03_rb,1.5691e+03_rb,1.5622e+03_rb/)
+      kao(:, 5,11) = (/ &
+     &1.7429e+03_rb,1.7443e+03_rb,1.7409e+03_rb,1.7348e+03_rb,1.7262e+03_rb/)
+      kao(:, 6,11) = (/ &
+     &1.9004e+03_rb,1.9007e+03_rb,1.8945e+03_rb,1.8893e+03_rb,1.8776e+03_rb/)
+      kao(:, 7,11) = (/ &
+     &2.0382e+03_rb,2.0344e+03_rb,2.0314e+03_rb,2.0213e+03_rb,2.0121e+03_rb/)
+      kao(:, 8,11) = (/ &
+     &2.1442e+03_rb,2.1390e+03_rb,2.1319e+03_rb,2.1222e+03_rb,2.1076e+03_rb/)
+      kao(:, 9,11) = (/ &
+     &2.2113e+03_rb,2.2063e+03_rb,2.1931e+03_rb,2.1796e+03_rb,2.1631e+03_rb/)
+      kao(:,10,11) = (/ &
+     &2.2360e+03_rb,2.2231e+03_rb,2.2114e+03_rb,2.1930e+03_rb,2.1737e+03_rb/)
+      kao(:,11,11) = (/ &
+     &2.2031e+03_rb,2.1887e+03_rb,2.1696e+03_rb,2.1476e+03_rb,2.1259e+03_rb/)
+      kao(:,12,11) = (/ &
+     &2.1236e+03_rb,2.1030e+03_rb,2.0791e+03_rb,2.0554e+03_rb,2.0303e+03_rb/)
+      kao(:,13,11) = (/ &
+     &1.9976e+03_rb,1.9732e+03_rb,1.9489e+03_rb,1.9244e+03_rb,1.8976e+03_rb/)
+      kao(:, 1,12) = (/ &
+     &1.1934e+03_rb,1.1955e+03_rb,1.1958e+03_rb,1.1936e+03_rb,1.1920e+03_rb/)
+      kao(:, 2,12) = (/ &
+     &1.3945e+03_rb,1.3970e+03_rb,1.3984e+03_rb,1.3987e+03_rb,1.3979e+03_rb/)
+      kao(:, 3,12) = (/ &
+     &1.6215e+03_rb,1.6249e+03_rb,1.6252e+03_rb,1.6264e+03_rb,1.6242e+03_rb/)
+      kao(:, 4,12) = (/ &
+     &1.8681e+03_rb,1.8729e+03_rb,1.8755e+03_rb,1.8766e+03_rb,1.8729e+03_rb/)
+      kao(:, 5,12) = (/ &
+     &2.1302e+03_rb,2.1346e+03_rb,2.1412e+03_rb,2.1410e+03_rb,2.1383e+03_rb/)
+      kao(:, 6,12) = (/ &
+     &2.4029e+03_rb,2.4115e+03_rb,2.4156e+03_rb,2.4143e+03_rb,2.4101e+03_rb/)
+      kao(:, 7,12) = (/ &
+     &2.6748e+03_rb,2.6869e+03_rb,2.6879e+03_rb,2.6884e+03_rb,2.6793e+03_rb/)
+      kao(:, 8,12) = (/ &
+     &2.9380e+03_rb,2.9477e+03_rb,2.9496e+03_rb,2.9469e+03_rb,2.9380e+03_rb/)
+      kao(:, 9,12) = (/ &
+     &3.1781e+03_rb,3.1822e+03_rb,3.1866e+03_rb,3.1790e+03_rb,3.1694e+03_rb/)
+      kao(:,10,12) = (/ &
+     &3.3770e+03_rb,3.3808e+03_rb,3.3765e+03_rb,3.3686e+03_rb,3.3530e+03_rb/)
+      kao(:,11,12) = (/ &
+     &3.5189e+03_rb,3.5130e+03_rb,3.5038e+03_rb,3.4874e+03_rb,3.4673e+03_rb/)
+      kao(:,12,12) = (/ &
+     &3.5908e+03_rb,3.5789e+03_rb,3.5609e+03_rb,3.5388e+03_rb,3.5103e+03_rb/)
+      kao(:,13,12) = (/ &
+     &3.5806e+03_rb,3.5582e+03_rb,3.5338e+03_rb,3.5034e+03_rb,3.4725e+03_rb/)
+      kao(:, 1,13) = (/ &
+     &1.2919e+03_rb,1.2953e+03_rb,1.2979e+03_rb,1.2980e+03_rb,1.2956e+03_rb/)
+      kao(:, 2,13) = (/ &
+     &1.5383e+03_rb,1.5420e+03_rb,1.5447e+03_rb,1.5440e+03_rb,1.5420e+03_rb/)
+      kao(:, 3,13) = (/ &
+     &1.8220e+03_rb,1.8287e+03_rb,1.8322e+03_rb,1.8325e+03_rb,1.8308e+03_rb/)
+      kao(:, 4,13) = (/ &
+     &2.1443e+03_rb,2.1550e+03_rb,2.1609e+03_rb,2.1623e+03_rb,2.1617e+03_rb/)
+      kao(:, 5,13) = (/ &
+     &2.5123e+03_rb,2.5251e+03_rb,2.5330e+03_rb,2.5368e+03_rb,2.5365e+03_rb/)
+      kao(:, 6,13) = (/ &
+     &2.9214e+03_rb,2.9360e+03_rb,2.9475e+03_rb,2.9537e+03_rb,2.9558e+03_rb/)
+      kao(:, 7,13) = (/ &
+     &3.3684e+03_rb,3.3871e+03_rb,3.4024e+03_rb,3.4082e+03_rb,3.4125e+03_rb/)
+      kao(:, 8,13) = (/ &
+     &3.8472e+03_rb,3.8701e+03_rb,3.8882e+03_rb,3.8980e+03_rb,3.9031e+03_rb/)
+      kao(:, 9,13) = (/ &
+     &4.3463e+03_rb,4.3744e+03_rb,4.3907e+03_rb,4.4045e+03_rb,4.4088e+03_rb/)
+      kao(:,10,13) = (/ &
+     &4.8548e+03_rb,4.8861e+03_rb,4.9050e+03_rb,4.9166e+03_rb,4.9195e+03_rb/)
+      kao(:,11,13) = (/ &
+     &5.3685e+03_rb,5.3944e+03_rb,5.4093e+03_rb,5.4165e+03_rb,5.4085e+03_rb/)
+      kao(:,12,13) = (/ &
+     &5.8390e+03_rb,5.8545e+03_rb,5.8642e+03_rb,5.8596e+03_rb,5.8502e+03_rb/)
+      kao(:,13,13) = (/ &
+     &6.2371e+03_rb,6.2518e+03_rb,6.2489e+03_rb,6.2389e+03_rb,6.2163e+03_rb/)
+      kao(:, 1,14) = (/ &
+     &1.3744e+03_rb,1.3784e+03_rb,1.3801e+03_rb,1.3822e+03_rb,1.3833e+03_rb/)
+      kao(:, 2,14) = (/ &
+     &1.6525e+03_rb,1.6579e+03_rb,1.6603e+03_rb,1.6628e+03_rb,1.6635e+03_rb/)
+      kao(:, 3,14) = (/ &
+     &1.9810e+03_rb,1.9908e+03_rb,1.9968e+03_rb,2.0006e+03_rb,2.0007e+03_rb/)
+      kao(:, 4,14) = (/ &
+     &2.3728e+03_rb,2.3844e+03_rb,2.3938e+03_rb,2.4019e+03_rb,2.4042e+03_rb/)
+      kao(:, 5,14) = (/ &
+     &2.8373e+03_rb,2.8532e+03_rb,2.8650e+03_rb,2.8745e+03_rb,2.8783e+03_rb/)
+      kao(:, 6,14) = (/ &
+     &3.3748e+03_rb,3.3991e+03_rb,3.4179e+03_rb,3.4320e+03_rb,3.4378e+03_rb/)
+      kao(:, 7,14) = (/ &
+     &3.9998e+03_rb,4.0298e+03_rb,4.0539e+03_rb,4.0746e+03_rb,4.0866e+03_rb/)
+      kao(:, 8,14) = (/ &
+     &4.7196e+03_rb,4.7615e+03_rb,4.7914e+03_rb,4.8146e+03_rb,4.8273e+03_rb/)
+      kao(:, 9,14) = (/ &
+     &5.5304e+03_rb,5.5847e+03_rb,5.6275e+03_rb,5.6623e+03_rb,5.6782e+03_rb/)
+      kao(:,10,14) = (/ &
+     &6.4513e+03_rb,6.5110e+03_rb,6.5637e+03_rb,6.6030e+03_rb,6.6279e+03_rb/)
+      kao(:,11,14) = (/ &
+     &7.5126e+03_rb,7.5759e+03_rb,7.6236e+03_rb,7.6577e+03_rb,7.6817e+03_rb/)
+      kao(:,12,14) = (/ &
+     &8.6584e+03_rb,8.7304e+03_rb,8.7796e+03_rb,8.8102e+03_rb,8.8235e+03_rb/)
+      kao(:,13,14) = (/ &
+     &9.8812e+03_rb,9.9499e+03_rb,9.9974e+03_rb,1.0022e+04_rb,1.0029e+04_rb/)
+      kao(:, 1,15) = (/ &
+     &1.4528e+03_rb,1.4581e+03_rb,1.4601e+03_rb,1.4582e+03_rb,1.4558e+03_rb/)
+      kao(:, 2,15) = (/ &
+     &1.7546e+03_rb,1.7631e+03_rb,1.7666e+03_rb,1.7671e+03_rb,1.7653e+03_rb/)
+      kao(:, 3,15) = (/ &
+     &2.1167e+03_rb,2.1275e+03_rb,2.1344e+03_rb,2.1393e+03_rb,2.1396e+03_rb/)
+      kao(:, 4,15) = (/ &
+     &2.5536e+03_rb,2.5679e+03_rb,2.5752e+03_rb,2.5829e+03_rb,2.5878e+03_rb/)
+      kao(:, 5,15) = (/ &
+     &3.0751e+03_rb,3.0964e+03_rb,3.1097e+03_rb,3.1178e+03_rb,3.1252e+03_rb/)
+      kao(:, 6,15) = (/ &
+     &3.6981e+03_rb,3.7293e+03_rb,3.7501e+03_rb,3.7620e+03_rb,3.7738e+03_rb/)
+      kao(:, 7,15) = (/ &
+     &4.4451e+03_rb,4.4852e+03_rb,4.5165e+03_rb,4.5355e+03_rb,4.5519e+03_rb/)
+      kao(:, 8,15) = (/ &
+     &5.3398e+03_rb,5.3890e+03_rb,5.4280e+03_rb,5.4575e+03_rb,5.4832e+03_rb/)
+      kao(:, 9,15) = (/ &
+     &6.4016e+03_rb,6.4666e+03_rb,6.5191e+03_rb,6.5509e+03_rb,6.5855e+03_rb/)
+      kao(:,10,15) = (/ &
+     &7.6539e+03_rb,7.7451e+03_rb,7.8138e+03_rb,7.8602e+03_rb,7.8961e+03_rb/)
+      kao(:,11,15) = (/ &
+     &9.1780e+03_rb,9.2834e+03_rb,9.3652e+03_rb,9.4242e+03_rb,9.4602e+03_rb/)
+      kao(:,12,15) = (/ &
+     &1.0986e+04_rb,1.1091e+04_rb,1.1175e+04_rb,1.1241e+04_rb,1.1280e+04_rb/)
+      kao(:,13,15) = (/ &
+     &1.3095e+04_rb,1.3203e+04_rb,1.3280e+04_rb,1.3335e+04_rb,1.3364e+04_rb/)
+      kao(:, 1,16) = (/ &
+     &1.4758e+03_rb,1.4811e+03_rb,1.4822e+03_rb,1.4873e+03_rb,1.4919e+03_rb/)
+      kao(:, 2,16) = (/ &
+     &1.7931e+03_rb,1.7988e+03_rb,1.8023e+03_rb,1.8054e+03_rb,1.8115e+03_rb/)
+      kao(:, 3,16) = (/ &
+     &2.1801e+03_rb,2.1858e+03_rb,2.1915e+03_rb,2.1950e+03_rb,2.1996e+03_rb/)
+      kao(:, 4,16) = (/ &
+     &2.6497e+03_rb,2.6575e+03_rb,2.6648e+03_rb,2.6696e+03_rb,2.6752e+03_rb/)
+      kao(:, 5,16) = (/ &
+     &3.2162e+03_rb,3.2298e+03_rb,3.2415e+03_rb,3.2482e+03_rb,3.2542e+03_rb/)
+      kao(:, 6,16) = (/ &
+     &3.8965e+03_rb,3.9207e+03_rb,3.9398e+03_rb,3.9520e+03_rb,3.9556e+03_rb/)
+      kao(:, 7,16) = (/ &
+     &4.7145e+03_rb,4.7502e+03_rb,4.7821e+03_rb,4.8036e+03_rb,4.8122e+03_rb/)
+      kao(:, 8,16) = (/ &
+     &5.7091e+03_rb,5.7519e+03_rb,5.7946e+03_rb,5.8300e+03_rb,5.8477e+03_rb/)
+      kao(:, 9,16) = (/ &
+     &6.9081e+03_rb,6.9691e+03_rb,7.0079e+03_rb,7.0618e+03_rb,7.0936e+03_rb/)
+      kao(:,10,16) = (/ &
+     &8.3531e+03_rb,8.4377e+03_rb,8.4862e+03_rb,8.5388e+03_rb,8.5857e+03_rb/)
+      kao(:,11,16) = (/ &
+     &1.0140e+04_rb,1.0233e+04_rb,1.0291e+04_rb,1.0344e+04_rb,1.0381e+04_rb/)
+      kao(:,12,16) = (/ &
+     &1.2278e+04_rb,1.2376e+04_rb,1.2452e+04_rb,1.2503e+04_rb,1.2519e+04_rb/)
+      kao(:,13,16) = (/ &
+     &1.4816e+04_rb,1.4930e+04_rb,1.5014e+04_rb,1.5052e+04_rb,1.5044e+04_rb/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:,13, 1) = (/ &
+     &3.9228e-02_rb,4.0055e-02_rb,4.1480e-02_rb,4.3734e-02_rb,4.6826e-02_rb/)
+      kbo(:,14, 1) = (/ &
+     &3.2541e-02_rb,3.3340e-02_rb,3.4715e-02_rb,3.6769e-02_rb,3.9564e-02_rb/)
+      kbo(:,15, 1) = (/ &
+     &2.6969e-02_rb,2.7753e-02_rb,2.9038e-02_rb,3.0896e-02_rb,3.3356e-02_rb/)
+      kbo(:,16, 1) = (/ &
+     &2.2342e-02_rb,2.3099e-02_rb,2.4270e-02_rb,2.5925e-02_rb,2.8078e-02_rb/)
+      kbo(:,17, 1) = (/ &
+     &1.8513e-02_rb,1.9222e-02_rb,2.0267e-02_rb,2.1721e-02_rb,2.3597e-02_rb/)
+      kbo(:,18, 1) = (/ &
+     &1.5353e-02_rb,1.5989e-02_rb,1.6916e-02_rb,1.8172e-02_rb,1.9812e-02_rb/)
+      kbo(:,19, 1) = (/ &
+     &1.2730e-02_rb,1.3292e-02_rb,1.4104e-02_rb,1.5198e-02_rb,1.6633e-02_rb/)
+      kbo(:,20, 1) = (/ &
+     &1.0558e-02_rb,1.1059e-02_rb,1.1764e-02_rb,1.2725e-02_rb,1.3995e-02_rb/)
+      kbo(:,21, 1) = (/ &
+     &8.7555e-03_rb,9.1943e-03_rb,9.8141e-03_rb,1.0663e-02_rb,1.1783e-02_rb/)
+      kbo(:,22, 1) = (/ &
+     &7.2788e-03_rb,7.6721e-03_rb,8.2312e-03_rb,8.9953e-03_rb,1.0002e-02_rb/)
+      kbo(:,23, 1) = (/ &
+     &6.0534e-03_rb,6.4084e-03_rb,6.9154e-03_rb,7.6052e-03_rb,8.5112e-03_rb/)
+      kbo(:,24, 1) = (/ &
+     &5.0381e-03_rb,5.3630e-03_rb,5.8249e-03_rb,6.4486e-03_rb,7.2625e-03_rb/)
+      kbo(:,25, 1) = (/ &
+     &4.2012e-03_rb,4.4994e-03_rb,4.9231e-03_rb,5.4862e-03_rb,6.2185e-03_rb/)
+      kbo(:,26, 1) = (/ &
+     &3.5140e-03_rb,3.7917e-03_rb,4.1803e-03_rb,4.6907e-03_rb,5.3531e-03_rb/)
+      kbo(:,27, 1) = (/ &
+     &2.9461e-03_rb,3.2058e-03_rb,3.5595e-03_rb,4.0238e-03_rb,4.6243e-03_rb/)
+      kbo(:,28, 1) = (/ &
+     &2.4782e-03_rb,2.7200e-03_rb,3.0408e-03_rb,3.4639e-03_rb,4.0087e-03_rb/)
+      kbo(:,29, 1) = (/ &
+     &2.0935e-03_rb,2.3161e-03_rb,2.6092e-03_rb,2.9949e-03_rb,3.4943e-03_rb/)
+      kbo(:,30, 1) = (/ &
+     &1.7747e-03_rb,1.9777e-03_rb,2.2475e-03_rb,2.5999e-03_rb,3.0591e-03_rb/)
+      kbo(:,31, 1) = (/ &
+     &1.5106e-03_rb,1.6973e-03_rb,1.9445e-03_rb,2.2691e-03_rb,2.6924e-03_rb/)
+      kbo(:,32, 1) = (/ &
+     &1.2905e-03_rb,1.4629e-03_rb,1.6903e-03_rb,1.9914e-03_rb,2.3817e-03_rb/)
+      kbo(:,33, 1) = (/ &
+     &1.1070e-03_rb,1.2664e-03_rb,1.4773e-03_rb,1.7562e-03_rb,2.1183e-03_rb/)
+      kbo(:,34, 1) = (/ &
+     &9.4969e-04_rb,1.0951e-03_rb,1.2897e-03_rb,1.5465e-03_rb,1.8794e-03_rb/)
+      kbo(:,35, 1) = (/ &
+     &8.0650e-04_rb,9.3657e-04_rb,1.1113e-03_rb,1.3423e-03_rb,1.6411e-03_rb/)
+      kbo(:,36, 1) = (/ &
+     &6.7527e-04_rb,7.8828e-04_rb,9.4082e-04_rb,1.1424e-03_rb,1.4040e-03_rb/)
+      kbo(:,37, 1) = (/ &
+     &5.5374e-04_rb,6.4781e-04_rb,7.7522e-04_rb,9.4463e-04_rb,1.1654e-03_rb/)
+      kbo(:,38, 1) = (/ &
+     &4.5356e-04_rb,5.3144e-04_rb,6.3765e-04_rb,7.7978e-04_rb,9.6558e-04_rb/)
+      kbo(:,39, 1) = (/ &
+     &3.7155e-04_rb,4.3614e-04_rb,5.2472e-04_rb,6.4387e-04_rb,8.0047e-04_rb/)
+      kbo(:,40, 1) = (/ &
+     &2.9980e-04_rb,3.5165e-04_rb,4.2320e-04_rb,5.2024e-04_rb,6.4874e-04_rb/)
+      kbo(:,41, 1) = (/ &
+     &2.4145e-04_rb,2.8281e-04_rb,3.4028e-04_rb,4.1898e-04_rb,5.2376e-04_rb/)
+      kbo(:,42, 1) = (/ &
+     &1.9444e-04_rb,2.2740e-04_rb,2.7348e-04_rb,3.3721e-04_rb,4.2264e-04_rb/)
+      kbo(:,43, 1) = (/ &
+     &1.5533e-04_rb,1.8108e-04_rb,2.1726e-04_rb,2.6787e-04_rb,3.3649e-04_rb/)
+      kbo(:,44, 1) = (/ &
+     &1.2372e-04_rb,1.4362e-04_rb,1.7176e-04_rb,2.1151e-04_rb,2.6597e-04_rb/)
+      kbo(:,45, 1) = (/ &
+     &9.8615e-05_rb,1.1395e-04_rb,1.3575e-04_rb,1.6686e-04_rb,2.0989e-04_rb/)
+      kbo(:,46, 1) = (/ &
+     &7.8410e-05_rb,9.0146e-05_rb,1.0684e-04_rb,1.3092e-04_rb,1.6455e-04_rb/)
+      kbo(:,47, 1) = (/ &
+     &6.2111e-05_rb,7.0925e-05_rb,8.3491e-05_rb,1.0171e-04_rb,1.2752e-04_rb/)
+      kbo(:,48, 1) = (/ &
+     &4.9292e-05_rb,5.5878e-05_rb,6.5308e-05_rb,7.9022e-05_rb,9.8758e-05_rb/)
+      kbo(:,49, 1) = (/ &
+     &3.9189e-05_rb,4.4083e-05_rb,5.1134e-05_rb,6.1433e-05_rb,7.6433e-05_rb/)
+      kbo(:,50, 1) = (/ &
+     &3.1297e-05_rb,3.4944e-05_rb,4.0262e-05_rb,4.8024e-05_rb,5.9468e-05_rb/)
+      kbo(:,51, 1) = (/ &
+     &2.5040e-05_rb,2.7793e-05_rb,3.1794e-05_rb,3.7665e-05_rb,4.6363e-05_rb/)
+      kbo(:,52, 1) = (/ &
+     &2.0024e-05_rb,2.2137e-05_rb,2.5151e-05_rb,2.9572e-05_rb,3.6157e-05_rb/)
+      kbo(:,53, 1) = (/ &
+     &1.5989e-05_rb,1.7662e-05_rb,1.9908e-05_rb,2.3247e-05_rb,2.8202e-05_rb/)
+      kbo(:,54, 1) = (/ &
+     &1.2802e-05_rb,1.4140e-05_rb,1.5857e-05_rb,1.8384e-05_rb,2.2160e-05_rb/)
+      kbo(:,55, 1) = (/ &
+     &1.0251e-05_rb,1.1335e-05_rb,1.2664e-05_rb,1.4589e-05_rb,1.7471e-05_rb/)
+      kbo(:,56, 1) = (/ &
+     &8.1863e-06_rb,9.0810e-06_rb,1.0125e-05_rb,1.1592e-05_rb,1.3791e-05_rb/)
+      kbo(:,57, 1) = (/ &
+     &6.5183e-06_rb,7.2717e-06_rb,8.0938e-06_rb,9.2169e-06_rb,1.0895e-05_rb/)
+      kbo(:,58, 1) = (/ &
+     &5.1879e-06_rb,5.8228e-06_rb,6.4835e-06_rb,7.3485e-06_rb,8.6418e-06_rb/)
+      kbo(:,59, 1) = (/ &
+     &4.2168e-06_rb,4.7498e-06_rb,5.3015e-06_rb,6.0144e-06_rb,7.0853e-06_rb/)
+      kbo(:,13, 2) = (/ &
+     &1.3654e-01_rb,1.5163e-01_rb,1.6956e-01_rb,1.9071e-01_rb,2.1617e-01_rb/)
+      kbo(:,14, 2) = (/ &
+     &1.1559e-01_rb,1.2885e-01_rb,1.4454e-01_rb,1.6328e-01_rb,1.8606e-01_rb/)
+      kbo(:,15, 2) = (/ &
+     &9.7693e-02_rb,1.0924e-01_rb,1.2296e-01_rb,1.3968e-01_rb,1.6004e-01_rb/)
+      kbo(:,16, 2) = (/ &
+     &8.2470e-02_rb,9.2497e-02_rb,1.0461e-01_rb,1.1951e-01_rb,1.3759e-01_rb/)
+      kbo(:,17, 2) = (/ &
+     &6.9485e-02_rb,7.8236e-02_rb,8.9019e-02_rb,1.0217e-01_rb,1.1819e-01_rb/)
+      kbo(:,18, 2) = (/ &
+     &5.8434e-02_rb,6.6177e-02_rb,7.5740e-02_rb,8.7380e-02_rb,1.0143e-01_rb/)
+      kbo(:,19, 2) = (/ &
+     &4.9105e-02_rb,5.5950e-02_rb,6.4367e-02_rb,7.4577e-02_rb,8.6834e-02_rb/)
+      kbo(:,20, 2) = (/ &
+     &4.1358e-02_rb,4.7392e-02_rb,5.4755e-02_rb,6.3671e-02_rb,7.4385e-02_rb/)
+      kbo(:,21, 2) = (/ &
+     &3.4862e-02_rb,4.0138e-02_rb,4.6538e-02_rb,5.4275e-02_rb,6.3577e-02_rb/)
+      kbo(:,22, 2) = (/ &
+     &2.9678e-02_rb,3.4317e-02_rb,3.9913e-02_rb,4.6700e-02_rb,5.4863e-02_rb/)
+      kbo(:,23, 2) = (/ &
+     &2.5302e-02_rb,2.9357e-02_rb,3.4270e-02_rb,4.0209e-02_rb,4.7364e-02_rb/)
+      kbo(:,24, 2) = (/ &
+     &2.1615e-02_rb,2.5159e-02_rb,2.9473e-02_rb,3.4693e-02_rb,4.0992e-02_rb/)
+      kbo(:,25, 2) = (/ &
+     &1.8506e-02_rb,2.1620e-02_rb,2.5407e-02_rb,3.0032e-02_rb,3.5645e-02_rb/)
+      kbo(:,26, 2) = (/ &
+     &1.5911e-02_rb,1.8663e-02_rb,2.2016e-02_rb,2.6153e-02_rb,3.1176e-02_rb/)
+      kbo(:,27, 2) = (/ &
+     &1.3710e-02_rb,1.6139e-02_rb,1.9144e-02_rb,2.2842e-02_rb,2.7378e-02_rb/)
+      kbo(:,28, 2) = (/ &
+     &1.1834e-02_rb,1.3997e-02_rb,1.6695e-02_rb,2.0027e-02_rb,2.4111e-02_rb/)
+      kbo(:,29, 2) = (/ &
+     &1.0249e-02_rb,1.2190e-02_rb,1.4630e-02_rb,1.7647e-02_rb,2.1313e-02_rb/)
+      kbo(:,30, 2) = (/ &
+     &8.9036e-03_rb,1.0661e-02_rb,1.2868e-02_rb,1.5600e-02_rb,1.8888e-02_rb/)
+      kbo(:,31, 2) = (/ &
+     &7.7687e-03_rb,9.3699e-03_rb,1.1378e-02_rb,1.3839e-02_rb,1.6787e-02_rb/)
+      kbo(:,32, 2) = (/ &
+     &6.8140e-03_rb,8.2759e-03_rb,1.0101e-02_rb,1.2319e-02_rb,1.4958e-02_rb/)
+      kbo(:,33, 2) = (/ &
+     &6.0058e-03_rb,7.3417e-03_rb,8.9915e-03_rb,1.0990e-02_rb,1.3357e-02_rb/)
+      kbo(:,34, 2) = (/ &
+     &5.2812e-03_rb,6.4864e-03_rb,7.9715e-03_rb,9.7608e-03_rb,1.1880e-02_rb/)
+      kbo(:,35, 2) = (/ &
+     &4.5664e-03_rb,5.6316e-03_rb,6.9402e-03_rb,8.5171e-03_rb,1.0395e-02_rb/)
+      kbo(:,36, 2) = (/ &
+     &3.8650e-03_rb,4.7853e-03_rb,5.9182e-03_rb,7.2844e-03_rb,8.9146e-03_rb/)
+      kbo(:,37, 2) = (/ &
+     &3.1698e-03_rb,3.9391e-03_rb,4.8941e-03_rb,6.0480e-03_rb,7.4275e-03_rb/)
+      kbo(:,38, 2) = (/ &
+     &2.5939e-03_rb,3.2378e-03_rb,4.0393e-03_rb,5.0137e-03_rb,6.1786e-03_rb/)
+      kbo(:,39, 2) = (/ &
+     &2.1228e-03_rb,2.6601e-03_rb,3.3343e-03_rb,4.1558e-03_rb,5.1416e-03_rb/)
+      kbo(:,40, 2) = (/ &
+     &1.6967e-03_rb,2.1355e-03_rb,2.6888e-03_rb,3.3677e-03_rb,4.1883e-03_rb/)
+      kbo(:,41, 2) = (/ &
+     &1.3505e-03_rb,1.7067e-03_rb,2.1592e-03_rb,2.7184e-03_rb,3.3988e-03_rb/)
+      kbo(:,42, 2) = (/ &
+     &1.0736e-03_rb,1.3626e-03_rb,1.7319e-03_rb,2.1915e-03_rb,2.7553e-03_rb/)
+      kbo(:,43, 2) = (/ &
+     &8.4090e-04_rb,1.0714e-03_rb,1.3684e-03_rb,1.7414e-03_rb,2.2023e-03_rb/)
+      kbo(:,44, 2) = (/ &
+     &6.5390e-04_rb,8.3586e-04_rb,1.0728e-03_rb,1.3727e-03_rb,1.7466e-03_rb/)
+      kbo(:,45, 2) = (/ &
+     &5.0782e-04_rb,6.5105e-04_rb,8.3889e-04_rb,1.0793e-03_rb,1.3823e-03_rb/)
+      kbo(:,46, 2) = (/ &
+     &3.9179e-04_rb,5.0302e-04_rb,6.5132e-04_rb,8.4212e-04_rb,1.0854e-03_rb/)
+      kbo(:,47, 2) = (/ &
+     &2.9882e-04_rb,3.8363e-04_rb,4.9873e-04_rb,6.4829e-04_rb,8.4103e-04_rb/)
+      kbo(:,48, 2) = (/ &
+     &2.2778e-04_rb,2.9209e-04_rb,3.8081e-04_rb,4.9759e-04_rb,6.4942e-04_rb/)
+      kbo(:,49, 2) = (/ &
+     &1.7348e-04_rb,2.2201e-04_rb,2.8994e-04_rb,3.8059e-04_rb,4.9968e-04_rb/)
+      kbo(:,50, 2) = (/ &
+     &1.3291e-04_rb,1.6970e-04_rb,2.2169e-04_rb,2.9250e-04_rb,3.8590e-04_rb/)
+      kbo(:,51, 2) = (/ &
+     &1.0207e-04_rb,1.2991e-04_rb,1.6972e-04_rb,2.2476e-04_rb,2.9809e-04_rb/)
+      kbo(:,52, 2) = (/ &
+     &7.8428e-05_rb,9.9370e-05_rb,1.2969e-04_rb,1.7236e-04_rb,2.2955e-04_rb/)
+      kbo(:,53, 2) = (/ &
+     &6.0320e-05_rb,7.5906e-05_rb,9.8948e-05_rb,1.3170e-04_rb,1.7631e-04_rb/)
+      kbo(:,54, 2) = (/ &
+     &4.6701e-05_rb,5.8457e-05_rb,7.5987e-05_rb,1.0130e-04_rb,1.3626e-04_rb/)
+      kbo(:,55, 2) = (/ &
+     &3.6311e-05_rb,4.5177e-05_rb,5.8536e-05_rb,7.8091e-05_rb,1.0548e-04_rb/)
+      kbo(:,56, 2) = (/ &
+     &2.8265e-05_rb,3.4933e-05_rb,4.5042e-05_rb,6.0092e-05_rb,8.1465e-05_rb/)
+      kbo(:,57, 2) = (/ &
+     &2.2041e-05_rb,2.7013e-05_rb,3.4636e-05_rb,4.6160e-05_rb,6.2788e-05_rb/)
+      kbo(:,58, 2) = (/ &
+     &1.7267e-05_rb,2.0998e-05_rb,2.6754e-05_rb,3.5587e-05_rb,4.8495e-05_rb/)
+      kbo(:,59, 2) = (/ &
+     &1.3975e-05_rb,1.7004e-05_rb,2.1693e-05_rb,2.8956e-05_rb,3.9630e-05_rb/)
+      kbo(:,13, 3) = (/ &
+     &4.6584e-01_rb,5.5439e-01_rb,6.5378e-01_rb,7.6270e-01_rb,8.8077e-01_rb/)
+      kbo(:,14, 3) = (/ &
+     &4.0124e-01_rb,4.7657e-01_rb,5.6034e-01_rb,6.5177e-01_rb,7.5174e-01_rb/)
+      kbo(:,15, 3) = (/ &
+     &3.4513e-01_rb,4.0912e-01_rb,4.7944e-01_rb,5.5671e-01_rb,6.4124e-01_rb/)
+      kbo(:,16, 3) = (/ &
+     &2.9666e-01_rb,3.5062e-01_rb,4.0982e-01_rb,4.7509e-01_rb,5.4644e-01_rb/)
+      kbo(:,17, 3) = (/ &
+     &2.5400e-01_rb,2.9955e-01_rb,3.4952e-01_rb,4.0464e-01_rb,4.6504e-01_rb/)
+      kbo(:,18, 3) = (/ &
+     &2.1648e-01_rb,2.5489e-01_rb,2.9720e-01_rb,3.4406e-01_rb,3.9550e-01_rb/)
+      kbo(:,19, 3) = (/ &
+     &1.8385e-01_rb,2.1623e-01_rb,2.5204e-01_rb,2.9205e-01_rb,3.3599e-01_rb/)
+      kbo(:,20, 3) = (/ &
+     &1.5627e-01_rb,1.8359e-01_rb,2.1416e-01_rb,2.4849e-01_rb,2.8606e-01_rb/)
+      kbo(:,21, 3) = (/ &
+     &1.3276e-01_rb,1.5592e-01_rb,1.8216e-01_rb,2.1168e-01_rb,2.4388e-01_rb/)
+      kbo(:,22, 3) = (/ &
+     &1.1395e-01_rb,1.3395e-01_rb,1.5675e-01_rb,1.8217e-01_rb,2.0967e-01_rb/)
+      kbo(:,23, 3) = (/ &
+     &9.7815e-02_rb,1.1526e-01_rb,1.3514e-01_rb,1.5691e-01_rb,1.8033e-01_rb/)
+      kbo(:,24, 3) = (/ &
+     &8.4102e-02_rb,9.9408e-02_rb,1.1660e-01_rb,1.3523e-01_rb,1.5511e-01_rb/)
+      kbo(:,25, 3) = (/ &
+     &7.2584e-02_rb,8.5921e-02_rb,1.0065e-01_rb,1.1653e-01_rb,1.3347e-01_rb/)
+      kbo(:,26, 3) = (/ &
+     &6.2935e-02_rb,7.4476e-02_rb,8.7054e-02_rb,1.0059e-01_rb,1.1498e-01_rb/)
+      kbo(:,27, 3) = (/ &
+     &5.4628e-02_rb,6.4547e-02_rb,7.5255e-02_rb,8.6846e-02_rb,9.9043e-02_rb/)
+      kbo(:,28, 3) = (/ &
+     &4.7438e-02_rb,5.5913e-02_rb,6.5081e-02_rb,7.4969e-02_rb,8.5391e-02_rb/)
+      kbo(:,29, 3) = (/ &
+     &4.1247e-02_rb,4.8483e-02_rb,5.6377e-02_rb,6.4788e-02_rb,7.3775e-02_rb/)
+      kbo(:,30, 3) = (/ &
+     &3.5874e-02_rb,4.2080e-02_rb,4.8862e-02_rb,5.6085e-02_rb,6.3787e-02_rb/)
+      kbo(:,31, 3) = (/ &
+     &3.1224e-02_rb,3.6582e-02_rb,4.2396e-02_rb,4.8680e-02_rb,5.5240e-02_rb/)
+      kbo(:,32, 3) = (/ &
+     &2.7211e-02_rb,3.1854e-02_rb,3.6880e-02_rb,4.2315e-02_rb,4.7892e-02_rb/)
+      kbo(:,33, 3) = (/ &
+     &2.3744e-02_rb,2.7755e-02_rb,3.2147e-02_rb,3.6823e-02_rb,4.1518e-02_rb/)
+      kbo(:,34, 3) = (/ &
+     &2.0626e-02_rb,2.4111e-02_rb,2.7927e-02_rb,3.1884e-02_rb,3.5825e-02_rb/)
+      kbo(:,35, 3) = (/ &
+     &1.7661e-02_rb,2.0671e-02_rb,2.3952e-02_rb,2.7283e-02_rb,3.0580e-02_rb/)
+      kbo(:,36, 3) = (/ &
+     &1.4872e-02_rb,1.7453e-02_rb,2.0237e-02_rb,2.3045e-02_rb,2.5826e-02_rb/)
+      kbo(:,37, 3) = (/ &
+     &1.2231e-02_rb,1.4407e-02_rb,1.6754e-02_rb,1.9119e-02_rb,2.1470e-02_rb/)
+      kbo(:,38, 3) = (/ &
+     &1.0046e-02_rb,1.1883e-02_rb,1.3859e-02_rb,1.5852e-02_rb,1.7844e-02_rb/)
+      kbo(:,39, 3) = (/ &
+     &8.2562e-03_rb,9.8067e-03_rb,1.1470e-02_rb,1.3152e-02_rb,1.4841e-02_rb/)
+      kbo(:,40, 3) = (/ &
+     &6.6596e-03_rb,7.9555e-03_rb,9.3542e-03_rb,1.0774e-02_rb,1.2201e-02_rb/)
+      kbo(:,41, 3) = (/ &
+     &5.3569e-03_rb,6.4354e-03_rb,7.6095e-03_rb,8.8054e-03_rb,1.0012e-02_rb/)
+      kbo(:,42, 3) = (/ &
+     &4.3009e-03_rb,5.1973e-03_rb,6.1851e-03_rb,7.1918e-03_rb,8.2134e-03_rb/)
+      kbo(:,43, 3) = (/ &
+     &3.4093e-03_rb,4.1490e-03_rb,4.9732e-03_rb,5.8239e-03_rb,6.6848e-03_rb/)
+      kbo(:,44, 3) = (/ &
+     &2.6823e-03_rb,3.2897e-03_rb,3.9739e-03_rb,4.6907e-03_rb,5.4167e-03_rb/)
+      kbo(:,45, 3) = (/ &
+     &2.1046e-03_rb,2.6003e-03_rb,3.1662e-03_rb,3.7704e-03_rb,4.3820e-03_rb/)
+      kbo(:,46, 3) = (/ &
+     &1.6388e-03_rb,2.0403e-03_rb,2.5048e-03_rb,3.0127e-03_rb,3.5286e-03_rb/)
+      kbo(:,47, 3) = (/ &
+     &1.2595e-03_rb,1.5807e-03_rb,1.9580e-03_rb,2.3819e-03_rb,2.8168e-03_rb/)
+      kbo(:,48, 3) = (/ &
+     &9.6423e-04_rb,1.2197e-03_rb,1.5249e-03_rb,1.8746e-03_rb,2.2418e-03_rb/)
+      kbo(:,49, 3) = (/ &
+     &7.3527e-04_rb,9.3718e-04_rb,1.1821e-03_rb,1.4684e-03_rb,1.7777e-03_rb/)
+      kbo(:,50, 3) = (/ &
+     &5.6217e-04_rb,7.2217e-04_rb,9.1835e-04_rb,1.1512e-03_rb,1.4112e-03_rb/)
+      kbo(:,51, 3) = (/ &
+     &4.2967e-04_rb,5.5583e-04_rb,7.1300e-04_rb,9.0190e-04_rb,1.1184e-03_rb/)
+      kbo(:,52, 3) = (/ &
+     &3.2742e-04_rb,4.2631e-04_rb,5.5137e-04_rb,7.0406e-04_rb,8.8313e-04_rb/)
+      kbo(:,53, 3) = (/ &
+     &2.4868e-04_rb,3.2582e-04_rb,4.2465e-04_rb,5.4760e-04_rb,6.9409e-04_rb/)
+      kbo(:,54, 3) = (/ &
+     &1.8974e-04_rb,2.5027e-04_rb,3.2861e-04_rb,4.2756e-04_rb,5.4716e-04_rb/)
+      kbo(:,55, 3) = (/ &
+     &1.4494e-04_rb,1.9239e-04_rb,2.5442e-04_rb,3.3395e-04_rb,4.3136e-04_rb/)
+      kbo(:,56, 3) = (/ &
+     &1.1043e-04_rb,1.4756e-04_rb,1.9639e-04_rb,2.5993e-04_rb,3.3900e-04_rb/)
+      kbo(:,57, 3) = (/ &
+     &8.3928e-05_rb,1.1287e-04_rb,1.5113e-04_rb,2.0155e-04_rb,2.6555e-04_rb/)
+      kbo(:,58, 3) = (/ &
+     &6.4018e-05_rb,8.6477e-05_rb,1.1648e-04_rb,1.5666e-04_rb,2.0830e-04_rb/)
+      kbo(:,59, 3) = (/ &
+     &5.1497e-05_rb,6.9896e-05_rb,9.4663e-05_rb,1.2810e-04_rb,1.7150e-04_rb/)
+      kbo(:,13, 4) = (/ &
+     &1.7524e+00_rb,1.9492e+00_rb,2.1512e+00_rb,2.3564e+00_rb,2.5478e+00_rb/)
+      kbo(:,14, 4) = (/ &
+     &1.4772e+00_rb,1.6494e+00_rb,1.8280e+00_rb,2.0044e+00_rb,2.1600e+00_rb/)
+      kbo(:,15, 4) = (/ &
+     &1.2495e+00_rb,1.4008e+00_rb,1.5559e+00_rb,1.6974e+00_rb,1.8203e+00_rb/)
+      kbo(:,16, 4) = (/ &
+     &1.0605e+00_rb,1.1902e+00_rb,1.3172e+00_rb,1.4293e+00_rb,1.5280e+00_rb/)
+      kbo(:,17, 4) = (/ &
+     &8.9958e-01_rb,1.0068e+00_rb,1.1092e+00_rb,1.1993e+00_rb,1.2798e+00_rb/)
+      kbo(:,18, 4) = (/ &
+     &7.6135e-01_rb,8.4970e-01_rb,9.3198e-01_rb,1.0052e+00_rb,1.0709e+00_rb/)
+      kbo(:,19, 4) = (/ &
+     &6.4340e-01_rb,7.1592e-01_rb,7.8258e-01_rb,8.4177e-01_rb,8.9530e-01_rb/)
+      kbo(:,20, 4) = (/ &
+     &5.4418e-01_rb,6.0357e-01_rb,6.5718e-01_rb,7.0498e-01_rb,7.4918e-01_rb/)
+      kbo(:,21, 4) = (/ &
+     &4.5911e-01_rb,5.0742e-01_rb,5.5063e-01_rb,5.8988e-01_rb,6.2662e-01_rb/)
+      kbo(:,22, 4) = (/ &
+     &3.8906e-01_rb,4.2787e-01_rb,4.6285e-01_rb,4.9521e-01_rb,5.2615e-01_rb/)
+      kbo(:,23, 4) = (/ &
+     &3.2912e-01_rb,3.6040e-01_rb,3.8895e-01_rb,4.1593e-01_rb,4.4229e-01_rb/)
+      kbo(:,24, 4) = (/ &
+     &2.7830e-01_rb,3.0371e-01_rb,3.2729e-01_rb,3.5001e-01_rb,3.7213e-01_rb/)
+      kbo(:,25, 4) = (/ &
+     &2.3534e-01_rb,2.5620e-01_rb,2.7595e-01_rb,2.9506e-01_rb,3.1323e-01_rb/)
+      kbo(:,26, 4) = (/ &
+     &1.9937e-01_rb,2.1667e-01_rb,2.3330e-01_rb,2.4915e-01_rb,2.6395e-01_rb/)
+      kbo(:,27, 4) = (/ &
+     &1.6896e-01_rb,1.8346e-01_rb,1.9732e-01_rb,2.1038e-01_rb,2.2245e-01_rb/)
+      kbo(:,28, 4) = (/ &
+     &1.4324e-01_rb,1.5539e-01_rb,1.6686e-01_rb,1.7760e-01_rb,1.8754e-01_rb/)
+      kbo(:,29, 4) = (/ &
+     &1.2158e-01_rb,1.3162e-01_rb,1.4109e-01_rb,1.4990e-01_rb,1.5824e-01_rb/)
+      kbo(:,30, 4) = (/ &
+     &1.0319e-01_rb,1.1149e-01_rb,1.1927e-01_rb,1.2651e-01_rb,1.3374e-01_rb/)
+      kbo(:,31, 4) = (/ &
+     &8.7596e-02_rb,9.4445e-02_rb,1.0083e-01_rb,1.0683e-01_rb,1.1324e-01_rb/)
+      kbo(:,32, 4) = (/ &
+     &7.4371e-02_rb,7.9986e-02_rb,8.5218e-02_rb,9.0404e-02_rb,9.6151e-02_rb/)
+      kbo(:,33, 4) = (/ &
+     &6.3127e-02_rb,6.7754e-02_rb,7.2100e-02_rb,7.6670e-02_rb,8.1947e-02_rb/)
+      kbo(:,34, 4) = (/ &
+     &5.3448e-02_rb,5.7257e-02_rb,6.0976e-02_rb,6.5117e-02_rb,6.9920e-02_rb/)
+      kbo(:,35, 4) = (/ &
+     &4.4958e-02_rb,4.8132e-02_rb,5.1386e-02_rb,5.5110e-02_rb,5.9396e-02_rb/)
+      kbo(:,36, 4) = (/ &
+     &3.7535e-02_rb,4.0225e-02_rb,4.3084e-02_rb,4.6370e-02_rb,5.0142e-02_rb/)
+      kbo(:,37, 4) = (/ &
+     &3.1000e-02_rb,3.3296e-02_rb,3.5751e-02_rb,3.8593e-02_rb,4.1835e-02_rb/)
+      kbo(:,38, 4) = (/ &
+     &2.5584e-02_rb,2.7542e-02_rb,2.9661e-02_rb,3.2102e-02_rb,3.4896e-02_rb/)
+      kbo(:,39, 4) = (/ &
+     &2.1117e-02_rb,2.2790e-02_rb,2.4613e-02_rb,2.6708e-02_rb,2.9115e-02_rb/)
+      kbo(:,40, 4) = (/ &
+     &1.7285e-02_rb,1.8708e-02_rb,2.0253e-02_rb,2.2025e-02_rb,2.4072e-02_rb/)
+      kbo(:,41, 4) = (/ &
+     &1.4124e-02_rb,1.5332e-02_rb,1.6640e-02_rb,1.8138e-02_rb,1.9869e-02_rb/)
+      kbo(:,42, 4) = (/ &
+     &1.1535e-02_rb,1.2562e-02_rb,1.3665e-02_rb,1.4929e-02_rb,1.6393e-02_rb/)
+      kbo(:,43, 4) = (/ &
+     &9.3628e-03_rb,1.0238e-02_rb,1.1164e-02_rb,1.2221e-02_rb,1.3452e-02_rb/)
+      kbo(:,44, 4) = (/ &
+     &7.5734e-03_rb,8.3195e-03_rb,9.0965e-03_rb,9.9764e-03_rb,1.1001e-02_rb/)
+      kbo(:,45, 4) = (/ &
+     &6.1205e-03_rb,6.7536e-03_rb,7.4083e-03_rb,8.1381e-03_rb,8.9936e-03_rb/)
+      kbo(:,46, 4) = (/ &
+     &4.9262e-03_rb,5.4662e-03_rb,6.0165e-03_rb,6.6206e-03_rb,7.3272e-03_rb/)
+      kbo(:,47, 4) = (/ &
+     &3.9391e-03_rb,4.3970e-03_rb,4.8610e-03_rb,5.3580e-03_rb,5.9369e-03_rb/)
+      kbo(:,48, 4) = (/ &
+     &3.1403e-03_rb,3.5287e-03_rb,3.9210e-03_rb,4.3323e-03_rb,4.8039e-03_rb/)
+      kbo(:,49, 4) = (/ &
+     &2.4956e-03_rb,2.8254e-03_rb,3.1568e-03_rb,3.4981e-03_rb,3.8839e-03_rb/)
+      kbo(:,50, 4) = (/ &
+     &1.9828e-03_rb,2.2636e-03_rb,2.5424e-03_rb,2.8288e-03_rb,3.1441e-03_rb/)
+      kbo(:,51, 4) = (/ &
+     &1.5714e-03_rb,1.8113e-03_rb,2.0459e-03_rb,2.2868e-03_rb,2.5462e-03_rb/)
+      kbo(:,52, 4) = (/ &
+     &1.2395e-03_rb,1.4453e-03_rb,1.6428e-03_rb,1.8457e-03_rb,2.0598e-03_rb/)
+      kbo(:,53, 4) = (/ &
+     &9.7290e-04_rb,1.1497e-03_rb,1.3161e-03_rb,1.4871e-03_rb,1.6649e-03_rb/)
+      kbo(:,54, 4) = (/ &
+     &7.6445e-04_rb,9.1516e-04_rb,1.0560e-03_rb,1.2000e-03_rb,1.3484e-03_rb/)
+      kbo(:,55, 4) = (/ &
+     &5.9991e-04_rb,7.2766e-04_rb,8.4765e-04_rb,9.6806e-04_rb,1.0927e-03_rb/)
+      kbo(:,56, 4) = (/ &
+     &4.6862e-04_rb,5.7638e-04_rb,6.7857e-04_rb,7.7940e-04_rb,8.8453e-04_rb/)
+      kbo(:,57, 4) = (/ &
+     &3.6453e-04_rb,4.5447e-04_rb,5.4199e-04_rb,6.2645e-04_rb,7.1474e-04_rb/)
+      kbo(:,58, 4) = (/ &
+     &2.8389e-04_rb,3.5818e-04_rb,4.3272e-04_rb,5.0377e-04_rb,5.7789e-04_rb/)
+      kbo(:,59, 4) = (/ &
+     &2.3060e-04_rb,2.9282e-04_rb,3.5542e-04_rb,4.1534e-04_rb,4.7810e-04_rb/)
+      kbo(:,13, 5) = (/ &
+     &4.6094e+00_rb,4.6772e+00_rb,4.7246e+00_rb,4.7737e+00_rb,4.8549e+00_rb/)
+      kbo(:,14, 5) = (/ &
+     &3.8278e+00_rb,3.8806e+00_rb,3.9251e+00_rb,3.9810e+00_rb,4.0718e+00_rb/)
+      kbo(:,15, 5) = (/ &
+     &3.1722e+00_rb,3.2168e+00_rb,3.2634e+00_rb,3.3308e+00_rb,3.4210e+00_rb/)
+      kbo(:,16, 5) = (/ &
+     &2.6249e+00_rb,2.6705e+00_rb,2.7237e+00_rb,2.7913e+00_rb,2.8656e+00_rb/)
+      kbo(:,17, 5) = (/ &
+     &2.1764e+00_rb,2.2249e+00_rb,2.2741e+00_rb,2.3304e+00_rb,2.3919e+00_rb/)
+      kbo(:,18, 5) = (/ &
+     &1.8098e+00_rb,1.8520e+00_rb,1.8935e+00_rb,1.9392e+00_rb,1.9922e+00_rb/)
+      kbo(:,19, 5) = (/ &
+     &1.5044e+00_rb,1.5380e+00_rb,1.5723e+00_rb,1.6122e+00_rb,1.6588e+00_rb/)
+      kbo(:,20, 5) = (/ &
+     &1.2493e+00_rb,1.2764e+00_rb,1.3059e+00_rb,1.3405e+00_rb,1.3817e+00_rb/)
+      kbo(:,21, 5) = (/ &
+     &1.0373e+00_rb,1.0597e+00_rb,1.0855e+00_rb,1.1148e+00_rb,1.1513e+00_rb/)
+      kbo(:,22, 5) = (/ &
+     &8.6282e-01_rb,8.8188e-01_rb,9.0343e-01_rb,9.2979e-01_rb,9.6231e-01_rb/)
+      kbo(:,23, 5) = (/ &
+     &7.1704e-01_rb,7.3333e-01_rb,7.5232e-01_rb,7.7633e-01_rb,8.0551e-01_rb/)
+      kbo(:,24, 5) = (/ &
+     &5.9518e-01_rb,6.0940e-01_rb,6.2643e-01_rb,6.4862e-01_rb,6.7508e-01_rb/)
+      kbo(:,25, 5) = (/ &
+     &4.9422e-01_rb,5.0656e-01_rb,5.2248e-01_rb,5.4283e-01_rb,5.6739e-01_rb/)
+      kbo(:,26, 5) = (/ &
+     &4.1037e-01_rb,4.2180e-01_rb,4.3687e-01_rb,4.5588e-01_rb,4.7822e-01_rb/)
+      kbo(:,27, 5) = (/ &
+     &3.4124e-01_rb,3.5223e-01_rb,3.6648e-01_rb,3.8368e-01_rb,4.0379e-01_rb/)
+      kbo(:,28, 5) = (/ &
+     &2.8464e-01_rb,2.9501e-01_rb,3.0821e-01_rb,3.2362e-01_rb,3.4157e-01_rb/)
+      kbo(:,29, 5) = (/ &
+     &2.3808e-01_rb,2.4801e-01_rb,2.5984e-01_rb,2.7366e-01_rb,2.8965e-01_rb/)
+      kbo(:,30, 5) = (/ &
+     &1.9967e-01_rb,2.0890e-01_rb,2.1955e-01_rb,2.3198e-01_rb,2.4657e-01_rb/)
+      kbo(:,31, 5) = (/ &
+     &1.6792e-01_rb,1.7624e-01_rb,1.8593e-01_rb,1.9729e-01_rb,2.1071e-01_rb/)
+      kbo(:,32, 5) = (/ &
+     &1.4147e-01_rb,1.4902e-01_rb,1.5786e-01_rb,1.6833e-01_rb,1.8092e-01_rb/)
+      kbo(:,33, 5) = (/ &
+     &1.1942e-01_rb,1.2630e-01_rb,1.3442e-01_rb,1.4414e-01_rb,1.5600e-01_rb/)
+      kbo(:,34, 5) = (/ &
+     &1.0087e-01_rb,1.0707e-01_rb,1.1451e-01_rb,1.2366e-01_rb,1.3474e-01_rb/)
+      kbo(:,35, 5) = (/ &
+     &8.4860e-02_rb,9.0419e-02_rb,9.7193e-02_rb,1.0562e-01_rb,1.1587e-01_rb/)
+      kbo(:,36, 5) = (/ &
+     &7.0999e-02_rb,7.5907e-02_rb,8.1988e-02_rb,8.9567e-02_rb,9.8842e-02_rb/)
+      kbo(:,37, 5) = (/ &
+     &5.8886e-02_rb,6.3102e-02_rb,6.8391e-02_rb,7.5008e-02_rb,8.3160e-02_rb/)
+      kbo(:,38, 5) = (/ &
+     &4.8832e-02_rb,5.2452e-02_rb,5.7040e-02_rb,6.2826e-02_rb,7.0009e-02_rb/)
+      kbo(:,39, 5) = (/ &
+     &4.0501e-02_rb,4.3616e-02_rb,4.7608e-02_rb,5.2697e-02_rb,5.9016e-02_rb/)
+      kbo(:,40, 5) = (/ &
+     &3.3361e-02_rb,3.5983e-02_rb,3.9374e-02_rb,4.3750e-02_rb,4.9196e-02_rb/)
+      kbo(:,41, 5) = (/ &
+     &2.7445e-02_rb,2.9649e-02_rb,3.2516e-02_rb,3.6256e-02_rb,4.0930e-02_rb/)
+      kbo(:,42, 5) = (/ &
+     &2.2572e-02_rb,2.4412e-02_rb,2.6829e-02_rb,3.0022e-02_rb,3.4040e-02_rb/)
+      kbo(:,43, 5) = (/ &
+     &1.8476e-02_rb,1.9991e-02_rb,2.1997e-02_rb,2.4673e-02_rb,2.8080e-02_rb/)
+      kbo(:,44, 5) = (/ &
+     &1.5092e-02_rb,1.6330e-02_rb,1.7973e-02_rb,2.0194e-02_rb,2.3058e-02_rb/)
+      kbo(:,45, 5) = (/ &
+     &1.2321e-02_rb,1.3334e-02_rb,1.4674e-02_rb,1.6507e-02_rb,1.8911e-02_rb/)
+      kbo(:,46, 5) = (/ &
+     &1.0036e-02_rb,1.0861e-02_rb,1.1940e-02_rb,1.3440e-02_rb,1.5434e-02_rb/)
+      kbo(:,47, 5) = (/ &
+     &8.1439e-03_rb,8.8117e-03_rb,9.6681e-03_rb,1.0871e-02_rb,1.2500e-02_rb/)
+      kbo(:,48, 5) = (/ &
+     &6.6059e-03_rb,7.1462e-03_rb,7.8259e-03_rb,8.7835e-03_rb,1.0106e-02_rb/)
+      kbo(:,49, 5) = (/ &
+     &5.3548e-03_rb,5.7913e-03_rb,6.3343e-03_rb,7.0935e-03_rb,8.1581e-03_rb/)
+      kbo(:,50, 5) = (/ &
+     &4.3482e-03_rb,4.7014e-03_rb,5.1411e-03_rb,5.7429e-03_rb,6.6034e-03_rb/)
+      kbo(:,51, 5) = (/ &
+     &3.5331e-03_rb,3.8185e-03_rb,4.1765e-03_rb,4.6543e-03_rb,5.3466e-03_rb/)
+      kbo(:,52, 5) = (/ &
+     &2.8695e-03_rb,3.1007e-03_rb,3.3920e-03_rb,3.7708e-03_rb,4.3257e-03_rb/)
+      kbo(:,53, 5) = (/ &
+     &2.3291e-03_rb,2.5165e-03_rb,2.7524e-03_rb,3.0532e-03_rb,3.4935e-03_rb/)
+      kbo(:,54, 5) = (/ &
+     &1.8925e-03_rb,2.0468e-03_rb,2.2382e-03_rb,2.4801e-03_rb,2.8323e-03_rb/)
+      kbo(:,55, 5) = (/ &
+     &1.5385e-03_rb,1.6657e-03_rb,1.8210e-03_rb,2.0171e-03_rb,2.2988e-03_rb/)
+      kbo(:,56, 5) = (/ &
+     &1.2499e-03_rb,1.3548e-03_rb,1.4808e-03_rb,1.6398e-03_rb,1.8634e-03_rb/)
+      kbo(:,57, 5) = (/ &
+     &1.0138e-03_rb,1.1010e-03_rb,1.2032e-03_rb,1.3320e-03_rb,1.5093e-03_rb/)
+      kbo(:,58, 5) = (/ &
+     &8.2159e-04_rb,8.9516e-04_rb,9.7844e-04_rb,1.0832e-03_rb,1.2245e-03_rb/)
+      kbo(:,59, 5) = (/ &
+     &6.7629e-04_rb,7.3875e-04_rb,8.0921e-04_rb,8.9812e-04_rb,1.0190e-03_rb/)
+      kbo(:,13, 6) = (/ &
+     &8.6109e+00_rb,8.6045e+00_rb,8.6391e+00_rb,8.7159e+00_rb,8.8472e+00_rb/)
+      kbo(:,14, 6) = (/ &
+     &7.2012e+00_rb,7.1992e+00_rb,7.2347e+00_rb,7.3193e+00_rb,7.4652e+00_rb/)
+      kbo(:,15, 6) = (/ &
+     &6.0036e+00_rb,6.0084e+00_rb,6.0525e+00_rb,6.1531e+00_rb,6.3134e+00_rb/)
+      kbo(:,16, 6) = (/ &
+     &4.9860e+00_rb,4.9990e+00_rb,5.0571e+00_rb,5.1776e+00_rb,5.3476e+00_rb/)
+      kbo(:,17, 6) = (/ &
+     &4.1286e+00_rb,4.1532e+00_rb,4.2350e+00_rb,4.3671e+00_rb,4.5277e+00_rb/)
+      kbo(:,18, 6) = (/ &
+     &3.4143e+00_rb,3.4596e+00_rb,3.5560e+00_rb,3.6799e+00_rb,3.8169e+00_rb/)
+      kbo(:,19, 6) = (/ &
+     &2.8306e+00_rb,2.8919e+00_rb,2.9820e+00_rb,3.0877e+00_rb,3.2050e+00_rb/)
+      kbo(:,20, 6) = (/ &
+     &2.3552e+00_rb,2.4158e+00_rb,2.4951e+00_rb,2.5846e+00_rb,2.6876e+00_rb/)
+      kbo(:,21, 6) = (/ &
+     &1.9600e+00_rb,2.0149e+00_rb,2.0826e+00_rb,2.1623e+00_rb,2.2526e+00_rb/)
+      kbo(:,22, 6) = (/ &
+     &1.6326e+00_rb,1.6825e+00_rb,1.7432e+00_rb,1.8140e+00_rb,1.8956e+00_rb/)
+      kbo(:,23, 6) = (/ &
+     &1.3616e+00_rb,1.4065e+00_rb,1.4611e+00_rb,1.5245e+00_rb,1.5974e+00_rb/)
+      kbo(:,24, 6) = (/ &
+     &1.1379e+00_rb,1.1784e+00_rb,1.2266e+00_rb,1.2828e+00_rb,1.3489e+00_rb/)
+      kbo(:,25, 6) = (/ &
+     &9.5263e-01_rb,9.8858e-01_rb,1.0309e+00_rb,1.0818e+00_rb,1.1428e+00_rb/)
+      kbo(:,26, 6) = (/ &
+     &7.9793e-01_rb,8.2975e-01_rb,8.6871e-01_rb,9.1620e-01_rb,9.7213e-01_rb/)
+      kbo(:,27, 6) = (/ &
+     &6.6853e-01_rb,6.9732e-01_rb,7.3341e-01_rb,7.7799e-01_rb,8.3032e-01_rb/)
+      kbo(:,28, 6) = (/ &
+     &5.6032e-01_rb,5.8734e-01_rb,6.2174e-01_rb,6.6339e-01_rb,7.1179e-01_rb/)
+      kbo(:,29, 6) = (/ &
+     &4.7080e-01_rb,4.9684e-01_rb,5.2958e-01_rb,5.6837e-01_rb,6.1280e-01_rb/)
+      kbo(:,30, 6) = (/ &
+     &3.9732e-01_rb,4.2229e-01_rb,4.5298e-01_rb,4.8884e-01_rb,5.2914e-01_rb/)
+      kbo(:,31, 6) = (/ &
+     &3.3719e-01_rb,3.6099e-01_rb,3.8930e-01_rb,4.2211e-01_rb,4.5851e-01_rb/)
+      kbo(:,32, 6) = (/ &
+     &2.8780e-01_rb,3.1000e-01_rb,3.3607e-01_rb,3.6581e-01_rb,3.9865e-01_rb/)
+      kbo(:,33, 6) = (/ &
+     &2.4698e-01_rb,2.6737e-01_rb,2.9124e-01_rb,3.1811e-01_rb,3.4839e-01_rb/)
+      kbo(:,34, 6) = (/ &
+     &2.1208e-01_rb,2.3079e-01_rb,2.5250e-01_rb,2.7695e-01_rb,3.0517e-01_rb/)
+      kbo(:,35, 6) = (/ &
+     &1.8116e-01_rb,1.9828e-01_rb,2.1775e-01_rb,2.3997e-01_rb,2.6607e-01_rb/)
+      kbo(:,36, 6) = (/ &
+     &1.5361e-01_rb,1.6893e-01_rb,1.8633e-01_rb,2.0647e-01_rb,2.3023e-01_rb/)
+      kbo(:,37, 6) = (/ &
+     &1.2853e-01_rb,1.4194e-01_rb,1.5730e-01_rb,1.7520e-01_rb,1.9644e-01_rb/)
+      kbo(:,38, 6) = (/ &
+     &1.0750e-01_rb,1.1924e-01_rb,1.3275e-01_rb,1.4862e-01_rb,1.6766e-01_rb/)
+      kbo(:,39, 6) = (/ &
+     &8.9946e-02_rb,1.0018e-01_rb,1.1208e-01_rb,1.2616e-01_rb,1.4325e-01_rb/)
+      kbo(:,40, 6) = (/ &
+     &7.4468e-02_rb,8.3253e-02_rb,9.3534e-02_rb,1.0578e-01_rb,1.2083e-01_rb/)
+      kbo(:,41, 6) = (/ &
+     &6.1560e-02_rb,6.9060e-02_rb,7.7885e-02_rb,8.8512e-02_rb,1.0168e-01_rb/)
+      kbo(:,42, 6) = (/ &
+     &5.0884e-02_rb,5.7270e-02_rb,6.4836e-02_rb,7.4017e-02_rb,8.5530e-02_rb/)
+      kbo(:,43, 6) = (/ &
+     &4.1741e-02_rb,4.7136e-02_rb,5.3555e-02_rb,6.1413e-02_rb,7.1280e-02_rb/)
+      kbo(:,44, 6) = (/ &
+     &3.4114e-02_rb,3.8637e-02_rb,4.4075e-02_rb,5.0720e-02_rb,5.9134e-02_rb/)
+      kbo(:,45, 6) = (/ &
+     &2.7843e-02_rb,3.1631e-02_rb,3.6225e-02_rb,4.1848e-02_rb,4.9013e-02_rb/)
+      kbo(:,46, 6) = (/ &
+     &2.2624e-02_rb,2.5773e-02_rb,2.9633e-02_rb,3.4369e-02_rb,4.0405e-02_rb/)
+      kbo(:,47, 6) = (/ &
+     &1.8260e-02_rb,2.0843e-02_rb,2.4043e-02_rb,2.7985e-02_rb,3.3023e-02_rb/)
+      kbo(:,48, 6) = (/ &
+     &1.4711e-02_rb,1.6820e-02_rb,1.9466e-02_rb,2.2727e-02_rb,2.6914e-02_rb/)
+      kbo(:,49, 6) = (/ &
+     &1.1827e-02_rb,1.3542e-02_rb,1.5709e-02_rb,1.8410e-02_rb,2.1875e-02_rb/)
+      kbo(:,50, 6) = (/ &
+     &9.5219e-03_rb,1.0923e-02_rb,1.2699e-02_rb,1.4938e-02_rb,1.7808e-02_rb/)
+      kbo(:,51, 6) = (/ &
+     &7.6687e-03_rb,8.8049e-03_rb,1.0259e-02_rb,1.2113e-02_rb,1.4495e-02_rb/)
+      kbo(:,52, 6) = (/ &
+     &6.1732e-03_rb,7.0853e-03_rb,8.2719e-03_rb,9.7966e-03_rb,1.1770e-02_rb/)
+      kbo(:,53, 6) = (/ &
+     &4.9698e-03_rb,5.6903e-03_rb,6.6530e-03_rb,7.9081e-03_rb,9.5294e-03_rb/)
+      kbo(:,54, 6) = (/ &
+     &4.0149e-03_rb,4.5833e-03_rb,5.3685e-03_rb,6.4021e-03_rb,7.7450e-03_rb/)
+      kbo(:,55, 6) = (/ &
+     &3.2497e-03_rb,3.6951e-03_rb,4.3359e-03_rb,5.1870e-03_rb,6.3011e-03_rb/)
+      kbo(:,56, 6) = (/ &
+     &2.6325e-03_rb,2.9773e-03_rb,3.4964e-03_rb,4.1937e-03_rb,5.1170e-03_rb/)
+      kbo(:,57, 6) = (/ &
+     &2.1354e-03_rb,2.3977e-03_rb,2.8151e-03_rb,3.3845e-03_rb,4.1468e-03_rb/)
+      kbo(:,58, 6) = (/ &
+     &1.7364e-03_rb,1.9358e-03_rb,2.2698e-03_rb,2.7348e-03_rb,3.3639e-03_rb/)
+      kbo(:,59, 6) = (/ &
+     &1.4324e-03_rb,1.6023e-03_rb,1.8879e-03_rb,2.2888e-03_rb,2.8370e-03_rb/)
+      kbo(:,13, 7) = (/ &
+     &1.7993e+01_rb,1.8373e+01_rb,1.8772e+01_rb,1.9157e+01_rb,1.9544e+01_rb/)
+      kbo(:,14, 7) = (/ &
+     &1.5395e+01_rb,1.5713e+01_rb,1.6031e+01_rb,1.6348e+01_rb,1.6675e+01_rb/)
+      kbo(:,15, 7) = (/ &
+     &1.3087e+01_rb,1.3328e+01_rb,1.3586e+01_rb,1.3851e+01_rb,1.4166e+01_rb/)
+      kbo(:,16, 7) = (/ &
+     &1.1053e+01_rb,1.1254e+01_rb,1.1469e+01_rb,1.1711e+01_rb,1.2037e+01_rb/)
+      kbo(:,17, 7) = (/ &
+     &9.3076e+00_rb,9.4744e+00_rb,9.6627e+00_rb,9.9088e+00_rb,1.0257e+01_rb/)
+      kbo(:,18, 7) = (/ &
+     &7.8193e+00_rb,7.9665e+00_rb,8.1534e+00_rb,8.4211e+00_rb,8.7715e+00_rb/)
+      kbo(:,19, 7) = (/ &
+     &6.5448e+00_rb,6.6861e+00_rb,6.8916e+00_rb,7.1741e+00_rb,7.4962e+00_rb/)
+      kbo(:,20, 7) = (/ &
+     &5.4651e+00_rb,5.6202e+00_rb,5.8422e+00_rb,6.1124e+00_rb,6.3952e+00_rb/)
+      kbo(:,21, 7) = (/ &
+     &4.5716e+00_rb,4.7392e+00_rb,4.9589e+00_rb,5.1951e+00_rb,5.4343e+00_rb/)
+      kbo(:,22, 7) = (/ &
+     &3.8421e+00_rb,4.0181e+00_rb,4.2111e+00_rb,4.4111e+00_rb,4.6135e+00_rb/)
+      kbo(:,23, 7) = (/ &
+     &3.2420e+00_rb,3.4014e+00_rb,3.5676e+00_rb,3.7366e+00_rb,3.9163e+00_rb/)
+      kbo(:,24, 7) = (/ &
+     &2.7372e+00_rb,2.8745e+00_rb,3.0185e+00_rb,3.1680e+00_rb,3.3279e+00_rb/)
+      kbo(:,25, 7) = (/ &
+     &2.3109e+00_rb,2.4310e+00_rb,2.5564e+00_rb,2.6909e+00_rb,2.8371e+00_rb/)
+      kbo(:,26, 7) = (/ &
+     &1.9553e+00_rb,2.0603e+00_rb,2.1726e+00_rb,2.2928e+00_rb,2.4305e+00_rb/)
+      kbo(:,27, 7) = (/ &
+     &1.6578e+00_rb,1.7514e+00_rb,1.8510e+00_rb,1.9617e+00_rb,2.0943e+00_rb/)
+      kbo(:,28, 7) = (/ &
+     &1.4096e+00_rb,1.4926e+00_rb,1.5811e+00_rb,1.6863e+00_rb,1.8139e+00_rb/)
+      kbo(:,29, 7) = (/ &
+     &1.2014e+00_rb,1.2743e+00_rb,1.3570e+00_rb,1.4576e+00_rb,1.5798e+00_rb/)
+      kbo(:,30, 7) = (/ &
+     &1.0255e+00_rb,1.0913e+00_rb,1.1701e+00_rb,1.2677e+00_rb,1.3837e+00_rb/)
+      kbo(:,31, 7) = (/ &
+     &8.7693e-01_rb,9.3909e-01_rb,1.0166e+00_rb,1.1099e+00_rb,1.2195e+00_rb/)
+      kbo(:,32, 7) = (/ &
+     &7.5259e-01_rb,8.1353e-01_rb,8.8887e-01_rb,9.7843e-01_rb,1.0818e+00_rb/)
+      kbo(:,33, 7) = (/ &
+     &6.4947e-01_rb,7.0941e-01_rb,7.8262e-01_rb,8.6809e-01_rb,9.6577e-01_rb/)
+      kbo(:,34, 7) = (/ &
+     &5.6287e-01_rb,6.2118e-01_rb,6.9115e-01_rb,7.7236e-01_rb,8.6471e-01_rb/)
+      kbo(:,35, 7) = (/ &
+     &4.8662e-01_rb,5.4191e-01_rb,6.0756e-01_rb,6.8389e-01_rb,7.7035e-01_rb/)
+      kbo(:,36, 7) = (/ &
+     &4.1799e-01_rb,4.6899e-01_rb,5.2971e-01_rb,6.0005e-01_rb,6.8040e-01_rb/)
+      kbo(:,37, 7) = (/ &
+     &3.5425e-01_rb,3.9998e-01_rb,4.5446e-01_rb,5.1797e-01_rb,5.9123e-01_rb/)
+      kbo(:,38, 7) = (/ &
+     &3.0041e-01_rb,3.4120e-01_rb,3.9013e-01_rb,4.4734e-01_rb,5.1414e-01_rb/)
+      kbo(:,39, 7) = (/ &
+     &2.5510e-01_rb,2.9152e-01_rb,3.3528e-01_rb,3.8698e-01_rb,4.4801e-01_rb/)
+      kbo(:,40, 7) = (/ &
+     &2.1385e-01_rb,2.4566e-01_rb,2.8431e-01_rb,3.3018e-01_rb,3.8482e-01_rb/)
+      kbo(:,41, 7) = (/ &
+     &1.7890e-01_rb,2.0671e-01_rb,2.4058e-01_rb,2.8118e-01_rb,3.2987e-01_rb/)
+      kbo(:,42, 7) = (/ &
+     &1.4939e-01_rb,1.7381e-01_rb,2.0357e-01_rb,2.3938e-01_rb,2.8282e-01_rb/)
+      kbo(:,43, 7) = (/ &
+     &1.2354e-01_rb,1.4458e-01_rb,1.7057e-01_rb,2.0193e-01_rb,2.4014e-01_rb/)
+      kbo(:,44, 7) = (/ &
+     &1.0153e-01_rb,1.1950e-01_rb,1.4202e-01_rb,1.6945e-01_rb,2.0287e-01_rb/)
+      kbo(:,45, 7) = (/ &
+     &8.3299e-02_rb,9.8554e-02_rb,1.1794e-01_rb,1.4189e-01_rb,1.7119e-01_rb/)
+      kbo(:,46, 7) = (/ &
+     &6.7950e-02_rb,8.0732e-02_rb,9.7254e-02_rb,1.1796e-01_rb,1.4359e-01_rb/)
+      kbo(:,47, 7) = (/ &
+     &5.4969e-02_rb,6.5444e-02_rb,7.9285e-02_rb,9.6924e-02_rb,1.1901e-01_rb/)
+      kbo(:,48, 7) = (/ &
+     &4.4384e-02_rb,5.2919e-02_rb,6.4422e-02_rb,7.9306e-02_rb,9.8242e-02_rb/)
+      kbo(:,49, 7) = (/ &
+     &3.5781e-02_rb,4.2676e-02_rb,5.2185e-02_rb,6.4673e-02_rb,8.0797e-02_rb/)
+      kbo(:,50, 7) = (/ &
+     &2.8901e-02_rb,3.4506e-02_rb,4.2382e-02_rb,5.2852e-02_rb,6.6579e-02_rb/)
+      kbo(:,51, 7) = (/ &
+     &2.3369e-02_rb,2.7878e-02_rb,3.4389e-02_rb,4.3175e-02_rb,5.4833e-02_rb/)
+      kbo(:,52, 7) = (/ &
+     &1.8862e-02_rb,2.2473e-02_rb,2.7804e-02_rb,3.5169e-02_rb,4.5009e-02_rb/)
+      kbo(:,53, 7) = (/ &
+     &1.5202e-02_rb,1.8063e-02_rb,2.2412e-02_rb,2.8532e-02_rb,3.6823e-02_rb/)
+      kbo(:,54, 7) = (/ &
+     &1.2294e-02_rb,1.4584e-02_rb,1.8116e-02_rb,2.3236e-02_rb,3.0266e-02_rb/)
+      kbo(:,55, 7) = (/ &
+     &9.9456e-03_rb,1.1792e-02_rb,1.4659e-02_rb,1.8922e-02_rb,2.4874e-02_rb/)
+      kbo(:,56, 7) = (/ &
+     &8.0324e-03_rb,9.5190e-03_rb,1.1834e-02_rb,1.5356e-02_rb,2.0377e-02_rb/)
+      kbo(:,57, 7) = (/ &
+     &6.4764e-03_rb,7.6756e-03_rb,9.5255e-03_rb,1.2420e-02_rb,1.6628e-02_rb/)
+      kbo(:,58, 7) = (/ &
+     &5.2278e-03_rb,6.1981e-03_rb,7.6844e-03_rb,1.0060e-02_rb,1.3591e-02_rb/)
+      kbo(:,59, 7) = (/ &
+     &4.3384e-03_rb,5.1762e-03_rb,6.4759e-03_rb,8.5723e-03_rb,1.1730e-02_rb/)
+      kbo(:,13, 8) = (/ &
+     &4.8706e+01_rb,5.0287e+01_rb,5.1813e+01_rb,5.3328e+01_rb,5.4791e+01_rb/)
+      kbo(:,14, 8) = (/ &
+     &4.2745e+01_rb,4.3995e+01_rb,4.5243e+01_rb,4.6475e+01_rb,4.7668e+01_rb/)
+      kbo(:,15, 8) = (/ &
+     &3.7251e+01_rb,3.8260e+01_rb,3.9278e+01_rb,4.0277e+01_rb,4.1241e+01_rb/)
+      kbo(:,16, 8) = (/ &
+     &3.2307e+01_rb,3.3121e+01_rb,3.3949e+01_rb,3.4768e+01_rb,3.5567e+01_rb/)
+      kbo(:,17, 8) = (/ &
+     &2.7892e+01_rb,2.8569e+01_rb,2.9248e+01_rb,2.9919e+01_rb,3.0586e+01_rb/)
+      kbo(:,18, 8) = (/ &
+     &2.3896e+01_rb,2.4456e+01_rb,2.5013e+01_rb,2.5581e+01_rb,2.6214e+01_rb/)
+      kbo(:,19, 8) = (/ &
+     &2.0345e+01_rb,2.0796e+01_rb,2.1262e+01_rb,2.1777e+01_rb,2.2440e+01_rb/)
+      kbo(:,20, 8) = (/ &
+     &1.7240e+01_rb,1.7611e+01_rb,1.8026e+01_rb,1.8548e+01_rb,1.9267e+01_rb/)
+      kbo(:,21, 8) = (/ &
+     &1.4559e+01_rb,1.4881e+01_rb,1.5281e+01_rb,1.5850e+01_rb,1.6627e+01_rb/)
+      kbo(:,22, 8) = (/ &
+     &1.2297e+01_rb,1.2604e+01_rb,1.3048e+01_rb,1.3680e+01_rb,1.4474e+01_rb/)
+      kbo(:,23, 8) = (/ &
+     &1.0392e+01_rb,1.0731e+01_rb,1.1231e+01_rb,1.1887e+01_rb,1.2635e+01_rb/)
+      kbo(:,24, 8) = (/ &
+     &8.8024e+00_rb,9.1906e+00_rb,9.7265e+00_rb,1.0368e+01_rb,1.1047e+01_rb/)
+      kbo(:,25, 8) = (/ &
+     &7.4985e+00_rb,7.9218e+00_rb,8.4606e+00_rb,9.0520e+00_rb,9.6698e+00_rb/)
+      kbo(:,26, 8) = (/ &
+     &6.4322e+00_rb,6.8736e+00_rb,7.3794e+00_rb,7.9154e+00_rb,8.4712e+00_rb/)
+      kbo(:,27, 8) = (/ &
+     &5.5575e+00_rb,5.9810e+00_rb,6.4388e+00_rb,6.9229e+00_rb,7.4216e+00_rb/)
+      kbo(:,28, 8) = (/ &
+     &4.8206e+00_rb,5.2066e+00_rb,5.6224e+00_rb,6.0597e+00_rb,6.5182e+00_rb/)
+      kbo(:,29, 8) = (/ &
+     &4.1909e+00_rb,4.5439e+00_rb,4.9224e+00_rb,5.3216e+00_rb,5.7541e+00_rb/)
+      kbo(:,30, 8) = (/ &
+     &3.6537e+00_rb,3.9765e+00_rb,4.3215e+00_rb,4.6952e+00_rb,5.1087e+00_rb/)
+      kbo(:,31, 8) = (/ &
+     &3.1984e+00_rb,3.4930e+00_rb,3.8129e+00_rb,4.1678e+00_rb,4.5716e+00_rb/)
+      kbo(:,32, 8) = (/ &
+     &2.8116e+00_rb,3.0829e+00_rb,3.3853e+00_rb,3.7289e+00_rb,4.1280e+00_rb/)
+      kbo(:,33, 8) = (/ &
+     &2.4834e+00_rb,2.7385e+00_rb,3.0281e+00_rb,3.3657e+00_rb,3.7662e+00_rb/)
+      kbo(:,34, 8) = (/ &
+     &2.1985e+00_rb,2.4407e+00_rb,2.7219e+00_rb,3.0561e+00_rb,3.4576e+00_rb/)
+      kbo(:,35, 8) = (/ &
+     &1.9383e+00_rb,2.1683e+00_rb,2.4400e+00_rb,2.7681e+00_rb,3.1668e+00_rb/)
+      kbo(:,36, 8) = (/ &
+     &1.6974e+00_rb,1.9136e+00_rb,2.1729e+00_rb,2.4903e+00_rb,2.8775e+00_rb/)
+      kbo(:,37, 8) = (/ &
+     &1.4652e+00_rb,1.6633e+00_rb,1.9048e+00_rb,2.2035e+00_rb,2.5698e+00_rb/)
+      kbo(:,38, 8) = (/ &
+     &1.2656e+00_rb,1.4474e+00_rb,1.6717e+00_rb,1.9523e+00_rb,2.2987e+00_rb/)
+      kbo(:,39, 8) = (/ &
+     &1.0950e+00_rb,1.2617e+00_rb,1.4708e+00_rb,1.7354e+00_rb,2.0626e+00_rb/)
+      kbo(:,40, 8) = (/ &
+     &9.3521e-01_rb,1.0851e+00_rb,1.2754e+00_rb,1.5183e+00_rb,1.8212e+00_rb/)
+      kbo(:,41, 8) = (/ &
+     &7.9768e-01_rb,9.3182e-01_rb,1.1039e+00_rb,1.3257e+00_rb,1.6049e+00_rb/)
+      kbo(:,42, 8) = (/ &
+     &6.8000e-01_rb,8.0060e-01_rb,9.5561e-01_rb,1.1575e+00_rb,1.4146e+00_rb/)
+      kbo(:,43, 8) = (/ &
+     &5.7402e-01_rb,6.8098e-01_rb,8.1874e-01_rb,9.9948e-01_rb,1.2325e+00_rb/)
+      kbo(:,44, 8) = (/ &
+     &4.8186e-01_rb,5.7592e-01_rb,6.9798e-01_rb,8.5786e-01_rb,1.0670e+00_rb/)
+      kbo(:,45, 8) = (/ &
+     &4.0392e-01_rb,4.8633e-01_rb,5.9393e-01_rb,7.3592e-01_rb,9.2240e-01_rb/)
+      kbo(:,46, 8) = (/ &
+     &3.3669e-01_rb,4.0818e-01_rb,5.0211e-01_rb,6.2723e-01_rb,7.9252e-01_rb/)
+      kbo(:,47, 8) = (/ &
+     &2.7781e-01_rb,3.3888e-01_rb,4.1961e-01_rb,5.2781e-01_rb,6.7290e-01_rb/)
+      kbo(:,48, 8) = (/ &
+     &2.2877e-01_rb,2.8059e-01_rb,3.4952e-01_rb,4.4268e-01_rb,5.6946e-01_rb/)
+      kbo(:,49, 8) = (/ &
+     &1.8802e-01_rb,2.3180e-01_rb,2.9026e-01_rb,3.7003e-01_rb,4.7989e-01_rb/)
+      kbo(:,50, 8) = (/ &
+     &1.5486e-01_rb,1.9224e-01_rb,2.4194e-01_rb,3.1045e-01_rb,4.0570e-01_rb/)
+      kbo(:,51, 8) = (/ &
+     &1.2726e-01_rb,1.5950e-01_rb,2.0189e-01_rb,2.6070e-01_rb,3.4311e-01_rb/)
+      kbo(:,52, 8) = (/ &
+     &1.0409e-01_rb,1.3185e-01_rb,1.6823e-01_rb,2.1834e-01_rb,2.8934e-01_rb/)
+      kbo(:,53, 8) = (/ &
+     &8.4711e-02_rb,1.0844e-01_rb,1.3980e-01_rb,1.8253e-01_rb,2.4332e-01_rb/)
+      kbo(:,54, 8) = (/ &
+     &6.9167e-02_rb,8.9444e-02_rb,1.1665e-01_rb,1.5372e-01_rb,2.0609e-01_rb/)
+      kbo(:,55, 8) = (/ &
+     &5.6448e-02_rb,7.3743e-02_rb,9.7299e-02_rb,1.2965e-01_rb,1.7511e-01_rb/)
+      kbo(:,56, 8) = (/ &
+     &4.5936e-02_rb,6.0554e-02_rb,8.0824e-02_rb,1.0896e-01_rb,1.4860e-01_rb/)
+      kbo(:,57, 8) = (/ &
+     &3.7232e-02_rb,4.9532e-02_rb,6.6834e-02_rb,9.1174e-02_rb,1.2579e-01_rb/)
+      kbo(:,58, 8) = (/ &
+     &3.0170e-02_rb,4.0563e-02_rb,5.5307e-02_rb,7.6347e-02_rb,1.0664e-01_rb/)
+      kbo(:,59, 8) = (/ &
+     &2.5677e-02_rb,3.5025e-02_rb,4.8385e-02_rb,6.7734e-02_rb,9.6011e-02_rb/)
+      kbo(:,13, 9) = (/ &
+     &2.6703e+02_rb,2.6279e+02_rb,2.6062e+02_rb,2.6039e+02_rb,2.6194e+02_rb/)
+      kbo(:,14, 9) = (/ &
+     &2.2898e+02_rb,2.2692e+02_rb,2.2683e+02_rb,2.2864e+02_rb,2.3216e+02_rb/)
+      kbo(:,15, 9) = (/ &
+     &1.9675e+02_rb,1.9661e+02_rb,1.9840e+02_rb,2.0200e+02_rb,2.0726e+02_rb/)
+      kbo(:,16, 9) = (/ &
+     &1.6984e+02_rb,1.7136e+02_rb,1.7476e+02_rb,1.7992e+02_rb,1.8656e+02_rb/)
+      kbo(:,17, 9) = (/ &
+     &1.4758e+02_rb,1.5050e+02_rb,1.5527e+02_rb,1.6140e+02_rb,1.6749e+02_rb/)
+      kbo(:,18, 9) = (/ &
+     &1.2946e+02_rb,1.3358e+02_rb,1.3896e+02_rb,1.4424e+02_rb,1.4936e+02_rb/)
+      kbo(:,19, 9) = (/ &
+     &1.1448e+02_rb,1.1916e+02_rb,1.2382e+02_rb,1.2832e+02_rb,1.3257e+02_rb/)
+      kbo(:,20, 9) = (/ &
+     &1.0147e+02_rb,1.0559e+02_rb,1.0961e+02_rb,1.1348e+02_rb,1.1720e+02_rb/)
+      kbo(:,21, 9) = (/ &
+     &8.9412e+01_rb,9.2958e+01_rb,9.6430e+01_rb,9.9808e+01_rb,1.0309e+02_rb/)
+      kbo(:,22, 9) = (/ &
+     &7.8582e+01_rb,8.1638e+01_rb,8.4651e+01_rb,8.7620e+01_rb,9.0634e+01_rb/)
+      kbo(:,23, 9) = (/ &
+     &6.8855e+01_rb,7.1486e+01_rb,7.4134e+01_rb,7.6820e+01_rb,7.9730e+01_rb/)
+      kbo(:,24, 9) = (/ &
+     &6.0268e+01_rb,6.2580e+01_rb,6.4940e+01_rb,6.7498e+01_rb,7.0383e+01_rb/)
+      kbo(:,25, 9) = (/ &
+     &5.2817e+01_rb,5.4857e+01_rb,5.7070e+01_rb,5.9583e+01_rb,6.2456e+01_rb/)
+      kbo(:,26, 9) = (/ &
+     &4.6400e+01_rb,4.8304e+01_rb,5.0443e+01_rb,5.2928e+01_rb,5.5843e+01_rb/)
+      kbo(:,27, 9) = (/ &
+     &4.0882e+01_rb,4.2740e+01_rb,4.4869e+01_rb,4.7387e+01_rb,5.0354e+01_rb/)
+      kbo(:,28, 9) = (/ &
+     &3.6127e+01_rb,3.8035e+01_rb,4.0229e+01_rb,4.2798e+01_rb,4.5828e+01_rb/)
+      kbo(:,29, 9) = (/ &
+     &3.2099e+01_rb,3.4067e+01_rb,3.6357e+01_rb,3.9031e+01_rb,4.2139e+01_rb/)
+      kbo(:,30, 9) = (/ &
+     &2.8701e+01_rb,3.0741e+01_rb,3.3127e+01_rb,3.5914e+01_rb,3.9160e+01_rb/)
+      kbo(:,31, 9) = (/ &
+     &2.5860e+01_rb,2.7970e+01_rb,3.0458e+01_rb,3.3377e+01_rb,3.6776e+01_rb/)
+      kbo(:,32, 9) = (/ &
+     &2.3508e+01_rb,2.5694e+01_rb,2.8287e+01_rb,3.1347e+01_rb,3.4892e+01_rb/)
+      kbo(:,33, 9) = (/ &
+     &2.1570e+01_rb,2.3849e+01_rb,2.6553e+01_rb,2.9752e+01_rb,3.3419e+01_rb/)
+      kbo(:,34, 9) = (/ &
+     &1.9918e+01_rb,2.2276e+01_rb,2.5098e+01_rb,2.8399e+01_rb,3.2162e+01_rb/)
+      kbo(:,35, 9) = (/ &
+     &1.8364e+01_rb,2.0767e+01_rb,2.3651e+01_rb,2.7001e+01_rb,3.0813e+01_rb/)
+      kbo(:,36, 9) = (/ &
+     &1.6826e+01_rb,1.9227e+01_rb,2.2113e+01_rb,2.5466e+01_rb,2.9284e+01_rb/)
+      kbo(:,37, 9) = (/ &
+     &1.5183e+01_rb,1.7515e+01_rb,2.0322e+01_rb,2.3610e+01_rb,2.7381e+01_rb/)
+      kbo(:,38, 9) = (/ &
+     &1.3727e+01_rb,1.5985e+01_rb,1.8713e+01_rb,2.1934e+01_rb,2.5649e+01_rb/)
+      kbo(:,39, 9) = (/ &
+     &1.2450e+01_rb,1.4635e+01_rb,1.7282e+01_rb,2.0444e+01_rb,2.4108e+01_rb/)
+      kbo(:,40, 9) = (/ &
+     &1.1136e+01_rb,1.3200e+01_rb,1.5726e+01_rb,1.8770e+01_rb,2.2337e+01_rb/)
+      kbo(:,41, 9) = (/ &
+     &9.9523e+00_rb,1.1888e+01_rb,1.4289e+01_rb,1.7214e+01_rb,2.0673e+01_rb/)
+      kbo(:,42, 9) = (/ &
+     &8.8997e+00_rb,1.0713e+01_rb,1.2995e+01_rb,1.5799e+01_rb,1.9151e+01_rb/)
+      kbo(:,43, 9) = (/ &
+     &7.8779e+00_rb,9.5542e+00_rb,1.1690e+01_rb,1.4348e+01_rb,1.7554e+01_rb/)
+      kbo(:,44, 9) = (/ &
+     &6.9290e+00_rb,8.4792e+00_rb,1.0459e+01_rb,1.2952e+01_rb,1.5997e+01_rb/)
+      kbo(:,45, 9) = (/ &
+     &6.0796e+00_rb,7.5168e+00_rb,9.3520e+00_rb,1.1681e+01_rb,1.4566e+01_rb/)
+      kbo(:,46, 9) = (/ &
+     &5.2960e+00_rb,6.6184e+00_rb,8.3160e+00_rb,1.0473e+01_rb,1.3177e+01_rb/)
+      kbo(:,47, 9) = (/ &
+     &4.5500e+00_rb,5.7498e+00_rb,7.3069e+00_rb,9.2819e+00_rb,1.1781e+01_rb/)
+      kbo(:,48, 9) = (/ &
+     &3.8931e+00_rb,4.9768e+00_rb,6.3975e+00_rb,8.2101e+00_rb,1.0505e+01_rb/)
+      kbo(:,49, 9) = (/ &
+     &3.3134e+00_rb,4.2874e+00_rb,5.5792e+00_rb,7.2463e+00_rb,9.3480e+00_rb/)
+      kbo(:,50, 9) = (/ &
+     &2.8246e+00_rb,3.7000e+00_rb,4.8781e+00_rb,6.4148e+00_rb,8.3545e+00_rb/)
+      kbo(:,51, 9) = (/ &
+     &2.4042e+00_rb,3.1908e+00_rb,4.2622e+00_rb,5.6755e+00_rb,7.4755e+00_rb/)
+      kbo(:,52, 9) = (/ &
+     &2.0363e+00_rb,2.7388e+00_rb,3.7098e+00_rb,5.0044e+00_rb,6.6735e+00_rb/)
+      kbo(:,53, 9) = (/ &
+     &1.7163e+00_rb,2.3398e+00_rb,3.2134e+00_rb,4.3950e+00_rb,5.9331e+00_rb/)
+      kbo(:,54, 9) = (/ &
+     &1.4526e+00_rb,2.0075e+00_rb,2.7999e+00_rb,3.8816e+00_rb,5.3040e+00_rb/)
+      kbo(:,55, 9) = (/ &
+     &1.2300e+00_rb,1.7228e+00_rb,2.4419e+00_rb,3.4323e+00_rb,4.7483e+00_rb/)
+      kbo(:,56, 9) = (/ &
+     &1.0375e+00_rb,1.4731e+00_rb,2.1205e+00_rb,3.0254e+00_rb,4.2381e+00_rb/)
+      kbo(:,57, 9) = (/ &
+     &8.7139e-01_rb,1.2530e+00_rb,1.8332e+00_rb,2.6576e+00_rb,3.7724e+00_rb/)
+      kbo(:,58, 9) = (/ &
+     &7.3413e-01_rb,1.0690e+00_rb,1.5879e+00_rb,2.3382e+00_rb,3.3642e+00_rb/)
+      kbo(:,59, 9) = (/ &
+     &6.5989e-01_rb,9.7719e-01_rb,1.4752e+00_rb,2.2003e+00_rb,3.1955e+00_rb/)
+      kbo(:,13,10) = (/ &
+     &1.1367e+03_rb,1.1187e+03_rb,1.1007e+03_rb,1.0822e+03_rb,1.0635e+03_rb/)
+      kbo(:,14,10) = (/ &
+     &1.0074e+03_rb,9.9018e+02_rb,9.7308e+02_rb,9.5574e+02_rb,9.3889e+02_rb/)
+      kbo(:,15,10) = (/ &
+     &8.7706e+02_rb,8.6124e+02_rb,8.4557e+02_rb,8.3018e+02_rb,8.1545e+02_rb/)
+      kbo(:,16,10) = (/ &
+     &7.5406e+02_rb,7.4004e+02_rb,7.2614e+02_rb,7.1298e+02_rb,7.0106e+02_rb/)
+      kbo(:,17,10) = (/ &
+     &6.4217e+02_rb,6.3016e+02_rb,6.1851e+02_rb,6.1057e+02_rb,6.1770e+02_rb/)
+      kbo(:,18,10) = (/ &
+     &5.4317e+02_rb,5.3308e+02_rb,5.2858e+02_rb,5.4063e+02_rb,5.6728e+02_rb/)
+      kbo(:,19,10) = (/ &
+     &4.6024e+02_rb,4.5629e+02_rb,4.6936e+02_rb,4.9569e+02_rb,5.2404e+02_rb/)
+      kbo(:,20,10) = (/ &
+     &3.9833e+02_rb,4.0962e+02_rb,4.3282e+02_rb,4.5686e+02_rb,4.8096e+02_rb/)
+      kbo(:,21,10) = (/ &
+     &3.5836e+02_rb,3.7926e+02_rb,4.0031e+02_rb,4.2094e+02_rb,4.4134e+02_rb/)
+      kbo(:,22,10) = (/ &
+     &3.2968e+02_rb,3.4978e+02_rb,3.6939e+02_rb,3.8833e+02_rb,4.0603e+02_rb/)
+      kbo(:,23,10) = (/ &
+     &3.0114e+02_rb,3.1980e+02_rb,3.3812e+02_rb,3.5559e+02_rb,3.7182e+02_rb/)
+      kbo(:,24,10) = (/ &
+     &2.7330e+02_rb,2.9068e+02_rb,3.0752e+02_rb,3.2347e+02_rb,3.3875e+02_rb/)
+      kbo(:,25,10) = (/ &
+     &2.4688e+02_rb,2.6295e+02_rb,2.7833e+02_rb,2.9325e+02_rb,3.0804e+02_rb/)
+      kbo(:,26,10) = (/ &
+     &2.2243e+02_rb,2.3718e+02_rb,2.5149e+02_rb,2.6591e+02_rb,2.8021e+02_rb/)
+      kbo(:,27,10) = (/ &
+     &2.0056e+02_rb,2.1372e+02_rb,2.2739e+02_rb,2.4128e+02_rb,2.5540e+02_rb/)
+      kbo(:,28,10) = (/ &
+     &1.8160e+02_rb,1.9338e+02_rb,2.0609e+02_rb,2.1959e+02_rb,2.3363e+02_rb/)
+      kbo(:,29,10) = (/ &
+     &1.6537e+02_rb,1.7620e+02_rb,1.8800e+02_rb,2.0075e+02_rb,2.1484e+02_rb/)
+      kbo(:,30,10) = (/ &
+     &1.5182e+02_rb,1.6163e+02_rb,1.7256e+02_rb,1.8487e+02_rb,1.9853e+02_rb/)
+      kbo(:,31,10) = (/ &
+     &1.4022e+02_rb,1.4937e+02_rb,1.5973e+02_rb,1.7160e+02_rb,1.8530e+02_rb/)
+      kbo(:,32,10) = (/ &
+     &1.3043e+02_rb,1.3908e+02_rb,1.4919e+02_rb,1.6089e+02_rb,1.7519e+02_rb/)
+      kbo(:,33,10) = (/ &
+     &1.2206e+02_rb,1.3058e+02_rb,1.4055e+02_rb,1.5267e+02_rb,1.6777e+02_rb/)
+      kbo(:,34,10) = (/ &
+     &1.1470e+02_rb,1.2330e+02_rb,1.3342e+02_rb,1.4627e+02_rb,1.6240e+02_rb/)
+      kbo(:,35,10) = (/ &
+     &1.0771e+02_rb,1.1657e+02_rb,1.2696e+02_rb,1.4044e+02_rb,1.5769e+02_rb/)
+      kbo(:,36,10) = (/ &
+     &1.0083e+02_rb,1.1016e+02_rb,1.2074e+02_rb,1.3465e+02_rb,1.5261e+02_rb/)
+      kbo(:,37,10) = (/ &
+     &9.3496e+01_rb,1.0322e+02_rb,1.1406e+02_rb,1.2781e+02_rb,1.4573e+02_rb/)
+      kbo(:,38,10) = (/ &
+     &8.6889e+01_rb,9.7016e+01_rb,1.0824e+02_rb,1.2185e+02_rb,1.3969e+02_rb/)
+      kbo(:,39,10) = (/ &
+     &8.1021e+01_rb,9.1487e+01_rb,1.0329e+02_rb,1.1682e+02_rb,1.3445e+02_rb/)
+      kbo(:,40,10) = (/ &
+     &7.4776e+01_rb,8.5570e+01_rb,9.7630e+01_rb,1.1098e+02_rb,1.2786e+02_rb/)
+      kbo(:,41,10) = (/ &
+     &6.8905e+01_rb,7.9963e+01_rb,9.2277e+01_rb,1.0563e+02_rb,1.2163e+02_rb/)
+      kbo(:,42,10) = (/ &
+     &6.3556e+01_rb,7.4784e+01_rb,8.7205e+01_rb,1.0072e+02_rb,1.1596e+02_rb/)
+      kbo(:,43,10) = (/ &
+     &5.8129e+01_rb,6.9316e+01_rb,8.1730e+01_rb,9.5263e+01_rb,1.0987e+02_rb/)
+      kbo(:,44,10) = (/ &
+     &5.2913e+01_rb,6.3890e+01_rb,7.6248e+01_rb,8.9686e+01_rb,1.0397e+02_rb/)
+      kbo(:,45,10) = (/ &
+     &4.8208e+01_rb,5.8780e+01_rb,7.0988e+01_rb,8.4262e+01_rb,9.8407e+01_rb/)
+      kbo(:,46,10) = (/ &
+     &4.3761e+01_rb,5.3798e+01_rb,6.5649e+01_rb,7.8725e+01_rb,9.2702e+01_rb/)
+      kbo(:,47,10) = (/ &
+     &3.9326e+01_rb,4.8763e+01_rb,6.0030e+01_rb,7.2829e+01_rb,8.6540e+01_rb/)
+      kbo(:,48,10) = (/ &
+     &3.5364e+01_rb,4.4166e+01_rb,5.4802e+01_rb,6.7118e+01_rb,8.0555e+01_rb/)
+      kbo(:,49,10) = (/ &
+     &3.1766e+01_rb,3.9895e+01_rb,4.9874e+01_rb,6.1599e+01_rb,7.4720e+01_rb/)
+      kbo(:,50,10) = (/ &
+     &2.8694e+01_rb,3.6225e+01_rb,4.5586e+01_rb,5.6696e+01_rb,6.9417e+01_rb/)
+      kbo(:,51,10) = (/ &
+     &2.5920e+01_rb,3.2954e+01_rb,4.1705e+01_rb,5.2192e+01_rb,6.4368e+01_rb/)
+      kbo(:,52,10) = (/ &
+     &2.3265e+01_rb,2.9945e+01_rb,3.8066e+01_rb,4.7953e+01_rb,5.9548e+01_rb/)
+      kbo(:,53,10) = (/ &
+     &2.0700e+01_rb,2.7205e+01_rb,3.4731e+01_rb,4.4004e+01_rb,5.4983e+01_rb/)
+      kbo(:,54,10) = (/ &
+     &1.8407e+01_rb,2.4804e+01_rb,3.1883e+01_rb,4.0571e+01_rb,5.0997e+01_rb/)
+      kbo(:,55,10) = (/ &
+     &1.6304e+01_rb,2.2551e+01_rb,2.9350e+01_rb,3.7469e+01_rb,4.7350e+01_rb/)
+      kbo(:,56,10) = (/ &
+     &1.4323e+01_rb,2.0360e+01_rb,2.7019e+01_rb,3.4608e+01_rb,4.3950e+01_rb/)
+      kbo(:,57,10) = (/ &
+     &1.2463e+01_rb,1.8241e+01_rb,2.4765e+01_rb,3.1934e+01_rb,4.0687e+01_rb/)
+      kbo(:,58,10) = (/ &
+     &1.0795e+01_rb,1.6294e+01_rb,2.2666e+01_rb,2.9555e+01_rb,3.7776e+01_rb/)
+      kbo(:,59,10) = (/ &
+     &1.0106e+01_rb,1.5507e+01_rb,2.1812e+01_rb,2.8629e+01_rb,3.6645e+01_rb/)
+      kbo(:,13,11) = (/ &
+     &1.9976e+03_rb,1.9732e+03_rb,1.9489e+03_rb,1.9244e+03_rb,1.8976e+03_rb/)
+      kbo(:,14,11) = (/ &
+     &1.8361e+03_rb,1.8109e+03_rb,1.7859e+03_rb,1.7607e+03_rb,1.7342e+03_rb/)
+      kbo(:,15,11) = (/ &
+     &1.6588e+03_rb,1.6335e+03_rb,1.6090e+03_rb,1.5838e+03_rb,1.5592e+03_rb/)
+      kbo(:,16,11) = (/ &
+     &1.4709e+03_rb,1.4475e+03_rb,1.4246e+03_rb,1.4016e+03_rb,1.3798e+03_rb/)
+      kbo(:,17,11) = (/ &
+     &1.2816e+03_rb,1.2604e+03_rb,1.2396e+03_rb,1.2204e+03_rb,1.2023e+03_rb/)
+      kbo(:,18,11) = (/ &
+     &1.1028e+03_rb,1.0839e+03_rb,1.0668e+03_rb,1.0513e+03_rb,1.0382e+03_rb/)
+      kbo(:,19,11) = (/ &
+     &9.4023e+02_rb,9.2525e+02_rb,9.1156e+02_rb,9.0352e+02_rb,9.1240e+02_rb/)
+      kbo(:,20,11) = (/ &
+     &7.9708e+02_rb,7.8540e+02_rb,7.8133e+02_rb,7.9678e+02_rb,8.2988e+02_rb/)
+      kbo(:,21,11) = (/ &
+     &6.7587e+02_rb,6.7233e+02_rb,6.8973e+02_rb,7.2606e+02_rb,7.7277e+02_rb/)
+      kbo(:,22,11) = (/ &
+     &5.8284e+02_rb,5.9841e+02_rb,6.3319e+02_rb,6.7525e+02_rb,7.1925e+02_rb/)
+      kbo(:,23,11) = (/ &
+     &5.2309e+02_rb,5.5425e+02_rb,5.9038e+02_rb,6.2826e+02_rb,6.6879e+02_rb/)
+      kbo(:,24,11) = (/ &
+     &4.8568e+02_rb,5.1820e+02_rb,5.5078e+02_rb,5.8566e+02_rb,6.2252e+02_rb/)
+      kbo(:,25,11) = (/ &
+     &4.5215e+02_rb,4.8337e+02_rb,5.1498e+02_rb,5.4697e+02_rb,5.8166e+02_rb/)
+      kbo(:,26,11) = (/ &
+     &4.2013e+02_rb,4.5049e+02_rb,4.8168e+02_rb,5.1282e+02_rb,5.4620e+02_rb/)
+      kbo(:,27,11) = (/ &
+     &3.8959e+02_rb,4.1991e+02_rb,4.5056e+02_rb,4.8229e+02_rb,5.1534e+02_rb/)
+      kbo(:,28,11) = (/ &
+     &3.6165e+02_rb,3.9145e+02_rb,4.2248e+02_rb,4.5510e+02_rb,4.8890e+02_rb/)
+      kbo(:,29,11) = (/ &
+     &3.3655e+02_rb,3.6613e+02_rb,3.9802e+02_rb,4.3186e+02_rb,4.6748e+02_rb/)
+      kbo(:,30,11) = (/ &
+     &3.1395e+02_rb,3.4455e+02_rb,3.7776e+02_rb,4.1303e+02_rb,4.5043e+02_rb/)
+      kbo(:,31,11) = (/ &
+     &2.9496e+02_rb,3.2692e+02_rb,3.6155e+02_rb,3.9895e+02_rb,4.3848e+02_rb/)
+      kbo(:,32,11) = (/ &
+     &2.7981e+02_rb,3.1316e+02_rb,3.4973e+02_rb,3.8935e+02_rb,4.3105e+02_rb/)
+      kbo(:,33,11) = (/ &
+     &2.6816e+02_rb,3.0318e+02_rb,3.4211e+02_rb,3.8404e+02_rb,4.2836e+02_rb/)
+      kbo(:,34,11) = (/ &
+     &2.5884e+02_rb,2.9576e+02_rb,3.3707e+02_rb,3.8116e+02_rb,4.2770e+02_rb/)
+      kbo(:,35,11) = (/ &
+     &2.4952e+02_rb,2.8807e+02_rb,3.3125e+02_rb,3.7732e+02_rb,4.2524e+02_rb/)
+      kbo(:,36,11) = (/ &
+     &2.3943e+02_rb,2.7867e+02_rb,3.2325e+02_rb,3.7058e+02_rb,4.1944e+02_rb/)
+      kbo(:,37,11) = (/ &
+     &2.2613e+02_rb,2.6501e+02_rb,3.0984e+02_rb,3.5803e+02_rb,4.0758e+02_rb/)
+      kbo(:,38,11) = (/ &
+     &2.1436e+02_rb,2.5281e+02_rb,2.9747e+02_rb,3.4610e+02_rb,3.9628e+02_rb/)
+      kbo(:,39,11) = (/ &
+     &2.0421e+02_rb,2.4224e+02_rb,2.8638e+02_rb,3.3523e+02_rb,3.8565e+02_rb/)
+      kbo(:,40,11) = (/ &
+     &1.9196e+02_rb,2.2865e+02_rb,2.7155e+02_rb,3.1991e+02_rb,3.7045e+02_rb/)
+      kbo(:,41,11) = (/ &
+     &1.8048e+02_rb,2.1574e+02_rb,2.5717e+02_rb,3.0447e+02_rb,3.5504e+02_rb/)
+      kbo(:,42,11) = (/ &
+     &1.7002e+02_rb,2.0375e+02_rb,2.4381e+02_rb,2.8960e+02_rb,3.3999e+02_rb/)
+      kbo(:,43,11) = (/ &
+     &1.5882e+02_rb,1.9068e+02_rb,2.2888e+02_rb,2.7297e+02_rb,3.2243e+02_rb/)
+      kbo(:,44,11) = (/ &
+     &1.4807e+02_rb,1.7774e+02_rb,2.1381e+02_rb,2.5595e+02_rb,3.0384e+02_rb/)
+      kbo(:,45,11) = (/ &
+     &1.3832e+02_rb,1.6584e+02_rb,1.9975e+02_rb,2.3997e+02_rb,2.8600e+02_rb/)
+      kbo(:,46,11) = (/ &
+     &1.2854e+02_rb,1.5423e+02_rb,1.8595e+02_rb,2.2400e+02_rb,2.6785e+02_rb/)
+      kbo(:,47,11) = (/ &
+     &1.1798e+02_rb,1.4267e+02_rb,1.7172e+02_rb,2.0717e+02_rb,2.4874e+02_rb/)
+      kbo(:,48,11) = (/ &
+     &1.0754e+02_rb,1.3197e+02_rb,1.5865e+02_rb,1.9157e+02_rb,2.3076e+02_rb/)
+      kbo(:,49,11) = (/ &
+     &9.7426e+01_rb,1.2165e+02_rb,1.4680e+02_rb,1.7709e+02_rb,2.1383e+02_rb/)
+      kbo(:,50,11) = (/ &
+     &8.8058e+01_rb,1.1199e+02_rb,1.3670e+02_rb,1.6456e+02_rb,1.9880e+02_rb/)
+      kbo(:,51,11) = (/ &
+     &7.9382e+01_rb,1.0270e+02_rb,1.2731e+02_rb,1.5331e+02_rb,1.8527e+02_rb/)
+      kbo(:,52,11) = (/ &
+     &7.1270e+01_rb,9.3720e+01_rb,1.1802e+02_rb,1.4309e+02_rb,1.7263e+02_rb/)
+      kbo(:,53,11) = (/ &
+     &6.3724e+01_rb,8.4883e+01_rb,1.0881e+02_rb,1.3358e+02_rb,1.6088e+02_rb/)
+      kbo(:,54,11) = (/ &
+     &5.7330e+01_rb,7.7159e+01_rb,1.0045e+02_rb,1.2510e+02_rb,1.5088e+02_rb/)
+      kbo(:,55,11) = (/ &
+     &5.1611e+01_rb,7.0208e+01_rb,9.2617e+01_rb,1.1701e+02_rb,1.4209e+02_rb/)
+      kbo(:,56,11) = (/ &
+     &4.6383e+01_rb,6.3679e+01_rb,8.4927e+01_rb,1.0898e+02_rb,1.3380e+02_rb/)
+      kbo(:,57,11) = (/ &
+     &4.1604e+01_rb,5.7613e+01_rb,7.7613e+01_rb,1.0100e+02_rb,1.2575e+02_rb/)
+      kbo(:,58,11) = (/ &
+     &3.7495e+01_rb,5.2208e+01_rb,7.1056e+01_rb,9.3655e+01_rb,1.1815e+02_rb/)
+      kbo(:,59,11) = (/ &
+     &3.5885e+01_rb,5.0106e+01_rb,6.8487e+01_rb,9.0651e+01_rb,1.1506e+02_rb/)
+      kbo(:,13,12) = (/ &
+     &3.5806e+03_rb,3.5582e+03_rb,3.5338e+03_rb,3.5034e+03_rb,3.4725e+03_rb/)
+      kbo(:,14,12) = (/ &
+     &3.4862e+03_rb,3.4597e+03_rb,3.4292e+03_rb,3.3949e+03_rb,3.3614e+03_rb/)
+      kbo(:,15,12) = (/ &
+     &3.3163e+03_rb,3.2855e+03_rb,3.2498e+03_rb,3.2159e+03_rb,3.1795e+03_rb/)
+      kbo(:,16,12) = (/ &
+     &3.0905e+03_rb,3.0565e+03_rb,3.0217e+03_rb,2.9883e+03_rb,2.9514e+03_rb/)
+      kbo(:,17,12) = (/ &
+     &2.8252e+03_rb,2.7909e+03_rb,2.7597e+03_rb,2.7275e+03_rb,2.6935e+03_rb/)
+      kbo(:,18,12) = (/ &
+     &2.5391e+03_rb,2.5095e+03_rb,2.4810e+03_rb,2.4508e+03_rb,2.4233e+03_rb/)
+      kbo(:,19,12) = (/ &
+     &2.2475e+03_rb,2.2231e+03_rb,2.1980e+03_rb,2.1744e+03_rb,2.1532e+03_rb/)
+      kbo(:,20,12) = (/ &
+     &1.9592e+03_rb,1.9385e+03_rb,1.9191e+03_rb,1.9031e+03_rb,1.8880e+03_rb/)
+      kbo(:,21,12) = (/ &
+     &1.6882e+03_rb,1.6730e+03_rb,1.6603e+03_rb,1.6503e+03_rb,1.6513e+03_rb/)
+      kbo(:,22,12) = (/ &
+     &1.4424e+03_rb,1.4327e+03_rb,1.4274e+03_rb,1.4386e+03_rb,1.4720e+03_rb/)
+      kbo(:,23,12) = (/ &
+     &1.2274e+03_rb,1.2245e+03_rb,1.2417e+03_rb,1.2835e+03_rb,1.3444e+03_rb/)
+      kbo(:,24,12) = (/ &
+     &1.0462e+03_rb,1.0639e+03_rb,1.1088e+03_rb,1.1752e+03_rb,1.2597e+03_rb/)
+      kbo(:,25,12) = (/ &
+     &9.1114e+02_rb,9.5200e+02_rb,1.0177e+03_rb,1.1057e+03_rb,1.2094e+03_rb/)
+      kbo(:,26,12) = (/ &
+     &8.2003e+02_rb,8.7985e+02_rb,9.6324e+02_rb,1.0645e+03_rb,1.1739e+03_rb/)
+      kbo(:,27,12) = (/ &
+     &7.6267e+02_rb,8.3792e+02_rb,9.2956e+02_rb,1.0323e+03_rb,1.1455e+03_rb/)
+      kbo(:,28,12) = (/ &
+     &7.2963e+02_rb,8.0994e+02_rb,9.0250e+02_rb,1.0075e+03_rb,1.1258e+03_rb/)
+      kbo(:,29,12) = (/ &
+     &7.0594e+02_rb,7.8863e+02_rb,8.8342e+02_rb,9.9282e+02_rb,1.1166e+03_rb/)
+      kbo(:,30,12) = (/ &
+     &6.8865e+02_rb,7.7319e+02_rb,8.7237e+02_rb,9.8744e+02_rb,1.1171e+03_rb/)
+      kbo(:,31,12) = (/ &
+     &6.7685e+02_rb,7.6521e+02_rb,8.7052e+02_rb,9.9144e+02_rb,1.1267e+03_rb/)
+      kbo(:,32,12) = (/ &
+     &6.7111e+02_rb,7.6562e+02_rb,8.7695e+02_rb,1.0037e+03_rb,1.1434e+03_rb/)
+      kbo(:,33,12) = (/ &
+     &6.7259e+02_rb,7.7346e+02_rb,8.9020e+02_rb,1.0220e+03_rb,1.1658e+03_rb/)
+      kbo(:,34,12) = (/ &
+     &6.7713e+02_rb,7.8296e+02_rb,9.0470e+02_rb,1.0405e+03_rb,1.1875e+03_rb/)
+      kbo(:,35,12) = (/ &
+     &6.7665e+02_rb,7.8599e+02_rb,9.1053e+02_rb,1.0483e+03_rb,1.1976e+03_rb/)
+      kbo(:,36,12) = (/ &
+     &6.6854e+02_rb,7.7898e+02_rb,9.0439e+02_rb,1.0428e+03_rb,1.1928e+03_rb/)
+      kbo(:,37,12) = (/ &
+     &6.4709e+02_rb,7.5625e+02_rb,8.8001e+02_rb,1.0171e+03_rb,1.1660e+03_rb/)
+      kbo(:,38,12) = (/ &
+     &6.2682e+02_rb,7.3409e+02_rb,8.5611e+02_rb,9.9182e+02_rb,1.1392e+03_rb/)
+      kbo(:,39,12) = (/ &
+     &6.0784e+02_rb,7.1328e+02_rb,8.3356e+02_rb,9.6784e+02_rb,1.1136e+03_rb/)
+      kbo(:,40,12) = (/ &
+     &5.7971e+02_rb,6.8247e+02_rb,7.9953e+02_rb,9.3053e+02_rb,1.0739e+03_rb/)
+      kbo(:,41,12) = (/ &
+     &5.5088e+02_rb,6.5173e+02_rb,7.6511e+02_rb,8.9294e+02_rb,1.0334e+03_rb/)
+      kbo(:,42,12) = (/ &
+     &5.2250e+02_rb,6.2258e+02_rb,7.3222e+02_rb,8.5651e+02_rb,9.9385e+02_rb/)
+      kbo(:,43,12) = (/ &
+     &4.8933e+02_rb,5.8876e+02_rb,6.9433e+02_rb,8.1420e+02_rb,9.4769e+02_rb/)
+      kbo(:,44,12) = (/ &
+     &4.5428e+02_rb,5.5295e+02_rb,6.5546e+02_rb,7.7054e+02_rb,8.9971e+02_rb/)
+      kbo(:,45,12) = (/ &
+     &4.2007e+02_rb,5.1771e+02_rb,6.1870e+02_rb,7.2869e+02_rb,8.5325e+02_rb/)
+      kbo(:,46,12) = (/ &
+     &3.8522e+02_rb,4.8086e+02_rb,5.8089e+02_rb,6.8626e+02_rb,8.0577e+02_rb/)
+      kbo(:,47,12) = (/ &
+     &3.4877e+02_rb,4.4033e+02_rb,5.3933e+02_rb,6.4157e+02_rb,7.5519e+02_rb/)
+      kbo(:,48,12) = (/ &
+     &3.1493e+02_rb,4.0108e+02_rb,4.9823e+02_rb,5.9910e+02_rb,7.0691e+02_rb/)
+      kbo(:,49,12) = (/ &
+     &2.8364e+02_rb,3.6388e+02_rb,4.5779e+02_rb,5.5756e+02_rb,6.6121e+02_rb/)
+      kbo(:,50,12) = (/ &
+     &2.5678e+02_rb,3.3121e+02_rb,4.2060e+02_rb,5.1905e+02_rb,6.2075e+02_rb/)
+      kbo(:,51,12) = (/ &
+     &2.3307e+02_rb,3.0175e+02_rb,3.8585e+02_rb,4.8220e+02_rb,5.8283e+02_rb/)
+      kbo(:,52,12) = (/ &
+     &2.1162e+02_rb,2.7441e+02_rb,3.5299e+02_rb,4.4577e+02_rb,5.4547e+02_rb/)
+      kbo(:,53,12) = (/ &
+     &1.9234e+02_rb,2.4923e+02_rb,3.2216e+02_rb,4.1019e+02_rb,5.0837e+02_rb/)
+      kbo(:,54,12) = (/ &
+     &1.7628e+02_rb,2.2813e+02_rb,2.9582e+02_rb,3.7887e+02_rb,4.7480e+02_rb/)
+      kbo(:,55,12) = (/ &
+     &1.6140e+02_rb,2.0966e+02_rb,2.7210e+02_rb,3.5029e+02_rb,4.4296e+02_rb/)
+      kbo(:,56,12) = (/ &
+     &1.4678e+02_rb,1.9288e+02_rb,2.5016e+02_rb,3.2346e+02_rb,4.1177e+02_rb/)
+      kbo(:,57,12) = (/ &
+     &1.3255e+02_rb,1.7758e+02_rb,2.2997e+02_rb,2.9828e+02_rb,3.8188e+02_rb/)
+      kbo(:,58,12) = (/ &
+     &1.1943e+02_rb,1.6353e+02_rb,2.1228e+02_rb,2.7566e+02_rb,3.5477e+02_rb/)
+      kbo(:,59,12) = (/ &
+     &1.1423e+02_rb,1.5792e+02_rb,2.0564e+02_rb,2.6702e+02_rb,3.4426e+02_rb/)
+      kbo(:,13,13) = (/ &
+     &6.2371e+03_rb,6.2518e+03_rb,6.2489e+03_rb,6.2389e+03_rb,6.2163e+03_rb/)
+      kbo(:,14,13) = (/ &
+     &6.5479e+03_rb,6.5460e+03_rb,6.5322e+03_rb,6.5131e+03_rb,6.4799e+03_rb/)
+      kbo(:,15,13) = (/ &
+     &6.7275e+03_rb,6.7134e+03_rb,6.6981e+03_rb,6.6679e+03_rb,6.6340e+03_rb/)
+      kbo(:,16,13) = (/ &
+     &6.7706e+03_rb,6.7549e+03_rb,6.7279e+03_rb,6.6968e+03_rb,6.6585e+03_rb/)
+      kbo(:,17,13) = (/ &
+     &6.6836e+03_rb,6.6601e+03_rb,6.6362e+03_rb,6.6043e+03_rb,6.5760e+03_rb/)
+      kbo(:,18,13) = (/ &
+     &6.4651e+03_rb,6.4504e+03_rb,6.4295e+03_rb,6.4100e+03_rb,6.3855e+03_rb/)
+      kbo(:,19,13) = (/ &
+     &6.1476e+03_rb,6.1374e+03_rb,6.1314e+03_rb,6.1247e+03_rb,6.1206e+03_rb/)
+      kbo(:,20,13) = (/ &
+     &5.7657e+03_rb,5.7701e+03_rb,5.7793e+03_rb,5.7885e+03_rb,5.8038e+03_rb/)
+      kbo(:,21,13) = (/ &
+     &5.3372e+03_rb,5.3657e+03_rb,5.3946e+03_rb,5.4291e+03_rb,5.4659e+03_rb/)
+      kbo(:,22,13) = (/ &
+     &4.8964e+03_rb,4.9428e+03_rb,4.9998e+03_rb,5.0621e+03_rb,5.1258e+03_rb/)
+      kbo(:,23,13) = (/ &
+     &4.4608e+03_rb,4.5344e+03_rb,4.6177e+03_rb,4.7044e+03_rb,4.8008e+03_rb/)
+      kbo(:,24,13) = (/ &
+     &4.0572e+03_rb,4.1535e+03_rb,4.2613e+03_rb,4.3798e+03_rb,4.5026e+03_rb/)
+      kbo(:,25,13) = (/ &
+     &3.6891e+03_rb,3.8125e+03_rb,3.9482e+03_rb,4.0905e+03_rb,4.2411e+03_rb/)
+      kbo(:,26,13) = (/ &
+     &3.3690e+03_rb,3.5206e+03_rb,3.6781e+03_rb,3.8529e+03_rb,4.0416e+03_rb/)
+      kbo(:,27,13) = (/ &
+     &3.0960e+03_rb,3.2709e+03_rb,3.4667e+03_rb,3.6805e+03_rb,3.9027e+03_rb/)
+      kbo(:,28,13) = (/ &
+     &2.8685e+03_rb,3.0838e+03_rb,3.3203e+03_rb,3.5644e+03_rb,3.8131e+03_rb/)
+      kbo(:,29,13) = (/ &
+     &2.7079e+03_rb,2.9620e+03_rb,3.2275e+03_rb,3.4951e+03_rb,3.7635e+03_rb/)
+      kbo(:,30,13) = (/ &
+     &2.6061e+03_rb,2.8858e+03_rb,3.1752e+03_rb,3.4611e+03_rb,3.7451e+03_rb/)
+      kbo(:,31,13) = (/ &
+     &2.5477e+03_rb,2.8507e+03_rb,3.1575e+03_rb,3.4577e+03_rb,3.7506e+03_rb/)
+      kbo(:,32,13) = (/ &
+     &2.5270e+03_rb,2.8474e+03_rb,3.1664e+03_rb,3.4757e+03_rb,3.7742e+03_rb/)
+      kbo(:,33,13) = (/ &
+     &2.5348e+03_rb,2.8669e+03_rb,3.1934e+03_rb,3.5095e+03_rb,3.8093e+03_rb/)
+      kbo(:,34,13) = (/ &
+     &2.5519e+03_rb,2.8931e+03_rb,3.2251e+03_rb,3.5432e+03_rb,3.8451e+03_rb/)
+      kbo(:,35,13) = (/ &
+     &2.5512e+03_rb,2.8985e+03_rb,3.2338e+03_rb,3.5558e+03_rb,3.8584e+03_rb/)
+      kbo(:,36,13) = (/ &
+     &2.5221e+03_rb,2.8745e+03_rb,3.2143e+03_rb,3.5395e+03_rb,3.8450e+03_rb/)
+      kbo(:,37,13) = (/ &
+     &2.4460e+03_rb,2.8025e+03_rb,3.1490e+03_rb,3.4791e+03_rb,3.7899e+03_rb/)
+      kbo(:,38,13) = (/ &
+     &2.3708e+03_rb,2.7313e+03_rb,3.0831e+03_rb,3.4179e+03_rb,3.7342e+03_rb/)
+      kbo(:,39,13) = (/ &
+     &2.3003e+03_rb,2.6642e+03_rb,3.0201e+03_rb,3.3586e+03_rb,3.6803e+03_rb/)
+      kbo(:,40,13) = (/ &
+     &2.1969e+03_rb,2.5616e+03_rb,2.9219e+03_rb,3.2671e+03_rb,3.5954e+03_rb/)
+      kbo(:,41,13) = (/ &
+     &2.0924e+03_rb,2.4560e+03_rb,2.8204e+03_rb,3.1716e+03_rb,3.5055e+03_rb/)
+      kbo(:,42,13) = (/ &
+     &1.9915e+03_rb,2.3511e+03_rb,2.7188e+03_rb,3.0759e+03_rb,3.4151e+03_rb/)
+      kbo(:,43,13) = (/ &
+     &1.8747e+03_rb,2.2279e+03_rb,2.5969e+03_rb,2.9589e+03_rb,3.3053e+03_rb/)
+      kbo(:,44,13) = (/ &
+     &1.7544e+03_rb,2.0986e+03_rb,2.4653e+03_rb,2.8326e+03_rb,3.1860e+03_rb/)
+      kbo(:,45,13) = (/ &
+     &1.6386e+03_rb,1.9731e+03_rb,2.3348e+03_rb,2.7048e+03_rb,3.0644e+03_rb/)
+      kbo(:,46,13) = (/ &
+     &1.5205e+03_rb,1.8444e+03_rb,2.1974e+03_rb,2.5688e+03_rb,2.9332e+03_rb/)
+      kbo(:,47,13) = (/ &
+     &1.3958e+03_rb,1.7058e+03_rb,2.0486e+03_rb,2.4160e+03_rb,2.7851e+03_rb/)
+      kbo(:,48,13) = (/ &
+     &1.2783e+03_rb,1.5734e+03_rb,1.9036e+03_rb,2.2627e+03_rb,2.6347e+03_rb/)
+      kbo(:,49,13) = (/ &
+     &1.1678e+03_rb,1.4470e+03_rb,1.7643e+03_rb,2.1130e+03_rb,2.4832e+03_rb/)
+      kbo(:,50,13) = (/ &
+     &1.0712e+03_rb,1.3344e+03_rb,1.6384e+03_rb,1.9762e+03_rb,2.3408e+03_rb/)
+      kbo(:,51,13) = (/ &
+     &9.8353e+02_rb,1.2311e+03_rb,1.5209e+03_rb,1.8472e+03_rb,2.2032e+03_rb/)
+      kbo(:,52,13) = (/ &
+     &9.0254e+02_rb,1.1339e+03_rb,1.4093e+03_rb,1.7232e+03_rb,2.0693e+03_rb/)
+      kbo(:,53,13) = (/ &
+     &8.2760e+02_rb,1.0429e+03_rb,1.3025e+03_rb,1.6032e+03_rb,1.9381e+03_rb/)
+      kbo(:,54,13) = (/ &
+     &7.6424e+02_rb,9.6451e+02_rb,1.2096e+03_rb,1.4971e+03_rb,1.8216e+03_rb/)
+      kbo(:,55,13) = (/ &
+     &7.1080e+02_rb,8.9446e+02_rb,1.1253e+03_rb,1.4000e+03_rb,1.7133e+03_rb/)
+      kbo(:,56,13) = (/ &
+     &6.6381e+02_rb,8.2901e+02_rb,1.0458e+03_rb,1.3069e+03_rb,1.6083e+03_rb/)
+      kbo(:,57,13) = (/ &
+     &6.2290e+02_rb,7.6867e+02_rb,9.7122e+02_rb,1.2178e+03_rb,1.5070e+03_rb/)
+      kbo(:,58,13) = (/ &
+     &5.8709e+02_rb,7.1760e+02_rb,9.0453e+02_rb,1.1378e+03_rb,1.4149e+03_rb/)
+      kbo(:,59,13) = (/ &
+     &5.7268e+02_rb,6.9849e+02_rb,8.7854e+02_rb,1.1067e+03_rb,1.3783e+03_rb/)
+      kbo(:,13,14) = (/ &
+     &9.8812e+03_rb,9.9499e+03_rb,9.9974e+03_rb,1.0022e+04_rb,1.0029e+04_rb/)
+      kbo(:,14,14) = (/ &
+     &1.1156e+04_rb,1.1216e+04_rb,1.1254e+04_rb,1.1270e+04_rb,1.1265e+04_rb/)
+      kbo(:,15,14) = (/ &
+     &1.2449e+04_rb,1.2496e+04_rb,1.2517e+04_rb,1.2519e+04_rb,1.2490e+04_rb/)
+      kbo(:,16,14) = (/ &
+     &1.3700e+04_rb,1.3729e+04_rb,1.3741e+04_rb,1.3718e+04_rb,1.3680e+04_rb/)
+      kbo(:,17,14) = (/ &
+     &1.4861e+04_rb,1.4895e+04_rb,1.4882e+04_rb,1.4853e+04_rb,1.4786e+04_rb/)
+      kbo(:,18,14) = (/ &
+     &1.5910e+04_rb,1.5917e+04_rb,1.5910e+04_rb,1.5867e+04_rb,1.5794e+04_rb/)
+      kbo(:,19,14) = (/ &
+     &1.6801e+04_rb,1.6817e+04_rb,1.6802e+04_rb,1.6758e+04_rb,1.6676e+04_rb/)
+      kbo(:,20,14) = (/ &
+     &1.7524e+04_rb,1.7556e+04_rb,1.7546e+04_rb,1.7509e+04_rb,1.7437e+04_rb/)
+      kbo(:,21,14) = (/ &
+     &1.8096e+04_rb,1.8141e+04_rb,1.8145e+04_rb,1.8122e+04_rb,1.8064e+04_rb/)
+      kbo(:,22,14) = (/ &
+     &1.8520e+04_rb,1.8595e+04_rb,1.8633e+04_rb,1.8624e+04_rb,1.8566e+04_rb/)
+      kbo(:,23,14) = (/ &
+     &1.8825e+04_rb,1.8946e+04_rb,1.9018e+04_rb,1.9030e+04_rb,1.8984e+04_rb/)
+      kbo(:,24,14) = (/ &
+     &1.9042e+04_rb,1.9220e+04_rb,1.9316e+04_rb,1.9349e+04_rb,1.9324e+04_rb/)
+      kbo(:,25,14) = (/ &
+     &1.9210e+04_rb,1.9418e+04_rb,1.9542e+04_rb,1.9606e+04_rb,1.9602e+04_rb/)
+      kbo(:,26,14) = (/ &
+     &1.9338e+04_rb,1.9577e+04_rb,1.9740e+04_rb,1.9821e+04_rb,1.9828e+04_rb/)
+      kbo(:,27,14) = (/ &
+     &1.9451e+04_rb,1.9723e+04_rb,1.9903e+04_rb,2.0002e+04_rb,2.0015e+04_rb/)
+      kbo(:,28,14) = (/ &
+     &1.9563e+04_rb,1.9853e+04_rb,2.0047e+04_rb,2.0156e+04_rb,2.0162e+04_rb/)
+      kbo(:,29,14) = (/ &
+     &1.9675e+04_rb,1.9975e+04_rb,2.0176e+04_rb,2.0280e+04_rb,2.0284e+04_rb/)
+      kbo(:,30,14) = (/ &
+     &1.9781e+04_rb,2.0092e+04_rb,2.0291e+04_rb,2.0384e+04_rb,2.0380e+04_rb/)
+      kbo(:,31,14) = (/ &
+     &1.9898e+04_rb,2.0205e+04_rb,2.0389e+04_rb,2.0467e+04_rb,2.0456e+04_rb/)
+      kbo(:,32,14) = (/ &
+     &2.0014e+04_rb,2.0306e+04_rb,2.0476e+04_rb,2.0543e+04_rb,2.0514e+04_rb/)
+      kbo(:,33,14) = (/ &
+     &2.0125e+04_rb,2.0400e+04_rb,2.0544e+04_rb,2.0600e+04_rb,2.0558e+04_rb/)
+      kbo(:,34,14) = (/ &
+     &2.0217e+04_rb,2.0476e+04_rb,2.0611e+04_rb,2.0645e+04_rb,2.0591e+04_rb/)
+      kbo(:,35,14) = (/ &
+     &2.0276e+04_rb,2.0526e+04_rb,2.0654e+04_rb,2.0682e+04_rb,2.0620e+04_rb/)
+      kbo(:,36,14) = (/ &
+     &2.0294e+04_rb,2.0553e+04_rb,2.0682e+04_rb,2.0712e+04_rb,2.0656e+04_rb/)
+      kbo(:,37,14) = (/ &
+     &2.0260e+04_rb,2.0540e+04_rb,2.0692e+04_rb,2.0741e+04_rb,2.0704e+04_rb/)
+      kbo(:,38,14) = (/ &
+     &2.0217e+04_rb,2.0522e+04_rb,2.0695e+04_rb,2.0763e+04_rb,2.0734e+04_rb/)
+      kbo(:,39,14) = (/ &
+     &2.0167e+04_rb,2.0500e+04_rb,2.0691e+04_rb,2.0777e+04_rb,2.0762e+04_rb/)
+      kbo(:,40,14) = (/ &
+     &2.0068e+04_rb,2.0438e+04_rb,2.0666e+04_rb,2.0778e+04_rb,2.0786e+04_rb/)
+      kbo(:,41,14) = (/ &
+     &1.9949e+04_rb,2.0361e+04_rb,2.0631e+04_rb,2.0768e+04_rb,2.0804e+04_rb/)
+      kbo(:,42,14) = (/ &
+     &1.9819e+04_rb,2.0274e+04_rb,2.0579e+04_rb,2.0750e+04_rb,2.0814e+04_rb/)
+      kbo(:,43,14) = (/ &
+     &1.9645e+04_rb,2.0149e+04_rb,2.0503e+04_rb,2.0721e+04_rb,2.0814e+04_rb/)
+      kbo(:,44,14) = (/ &
+     &1.9429e+04_rb,1.9994e+04_rb,2.0396e+04_rb,2.0663e+04_rb,2.0798e+04_rb/)
+      kbo(:,45,14) = (/ &
+     &1.9189e+04_rb,1.9824e+04_rb,2.0285e+04_rb,2.0595e+04_rb,2.0770e+04_rb/)
+      kbo(:,46,14) = (/ &
+     &1.8912e+04_rb,1.9621e+04_rb,2.0139e+04_rb,2.0501e+04_rb,2.0722e+04_rb/)
+      kbo(:,47,14) = (/ &
+     &1.8574e+04_rb,1.9355e+04_rb,1.9947e+04_rb,2.0373e+04_rb,2.0652e+04_rb/)
+      kbo(:,48,14) = (/ &
+     &1.8199e+04_rb,1.9060e+04_rb,1.9733e+04_rb,2.0223e+04_rb,2.0560e+04_rb/)
+      kbo(:,49,14) = (/ &
+     &1.7788e+04_rb,1.8737e+04_rb,1.9487e+04_rb,2.0042e+04_rb,2.0440e+04_rb/)
+      kbo(:,50,14) = (/ &
+     &1.7372e+04_rb,1.8402e+04_rb,1.9222e+04_rb,1.9853e+04_rb,2.0312e+04_rb/)
+      kbo(:,51,14) = (/ &
+     &1.6932e+04_rb,1.8048e+04_rb,1.8944e+04_rb,1.9653e+04_rb,2.0163e+04_rb/)
+      kbo(:,52,14) = (/ &
+     &1.6460e+04_rb,1.7668e+04_rb,1.8640e+04_rb,1.9416e+04_rb,1.9992e+04_rb/)
+      kbo(:,53,14) = (/ &
+     &1.5959e+04_rb,1.7252e+04_rb,1.8310e+04_rb,1.9147e+04_rb,1.9806e+04_rb/)
+      kbo(:,54,14) = (/ &
+     &1.5461e+04_rb,1.6846e+04_rb,1.7980e+04_rb,1.8888e+04_rb,1.9606e+04_rb/)
+      kbo(:,55,14) = (/ &
+     &1.4966e+04_rb,1.6424e+04_rb,1.7640e+04_rb,1.8623e+04_rb,1.9399e+04_rb/)
+      kbo(:,56,14) = (/ &
+     &1.4452e+04_rb,1.5984e+04_rb,1.7276e+04_rb,1.8327e+04_rb,1.9166e+04_rb/)
+      kbo(:,57,14) = (/ &
+     &1.3910e+04_rb,1.5518e+04_rb,1.6891e+04_rb,1.8015e+04_rb,1.8917e+04_rb/)
+      kbo(:,58,14) = (/ &
+     &1.3384e+04_rb,1.5053e+04_rb,1.6496e+04_rb,1.7699e+04_rb,1.8667e+04_rb/)
+      kbo(:,59,14) = (/ &
+     &1.3166e+04_rb,1.4859e+04_rb,1.6332e+04_rb,1.7567e+04_rb,1.8563e+04_rb/)
+      kbo(:,13,15) = (/ &
+     &1.3095e+04_rb,1.3203e+04_rb,1.3280e+04_rb,1.3335e+04_rb,1.3364e+04_rb/)
+      kbo(:,14,15) = (/ &
+     &1.5533e+04_rb,1.5637e+04_rb,1.5702e+04_rb,1.5732e+04_rb,1.5730e+04_rb/)
+      kbo(:,15,15) = (/ &
+     &1.8283e+04_rb,1.8379e+04_rb,1.8421e+04_rb,1.8416e+04_rb,1.8371e+04_rb/)
+      kbo(:,16,15) = (/ &
+     &2.1357e+04_rb,2.1409e+04_rb,2.1406e+04_rb,2.1356e+04_rb,2.1240e+04_rb/)
+      kbo(:,17,15) = (/ &
+     &2.4722e+04_rb,2.4699e+04_rb,2.4632e+04_rb,2.4482e+04_rb,2.4282e+04_rb/)
+      kbo(:,18,15) = (/ &
+     &2.8315e+04_rb,2.8214e+04_rb,2.8019e+04_rb,2.7755e+04_rb,2.7441e+04_rb/)
+      kbo(:,19,15) = (/ &
+     &3.2071e+04_rb,3.1837e+04_rb,3.1501e+04_rb,3.1092e+04_rb,3.0622e+04_rb/)
+      kbo(:,20,15) = (/ &
+     &3.5875e+04_rb,3.5466e+04_rb,3.4981e+04_rb,3.4394e+04_rb,3.3745e+04_rb/)
+      kbo(:,21,15) = (/ &
+     &3.9627e+04_rb,3.9030e+04_rb,3.8357e+04_rb,3.7580e+04_rb,3.6746e+04_rb/)
+      kbo(:,22,15) = (/ &
+     &4.3205e+04_rb,4.2400e+04_rb,4.1478e+04_rb,4.0494e+04_rb,3.9468e+04_rb/)
+      kbo(:,23,15) = (/ &
+     &4.6532e+04_rb,4.5460e+04_rb,4.4309e+04_rb,4.3126e+04_rb,4.1899e+04_rb/)
+      kbo(:,24,15) = (/ &
+     &4.9513e+04_rb,4.8176e+04_rb,4.6831e+04_rb,4.5435e+04_rb,4.4005e+04_rb/)
+      kbo(:,25,15) = (/ &
+     &5.2106e+04_rb,5.0560e+04_rb,4.9001e+04_rb,4.7400e+04_rb,4.5767e+04_rb/)
+      kbo(:,26,15) = (/ &
+     &5.4289e+04_rb,5.2537e+04_rb,5.0767e+04_rb,4.8979e+04_rb,4.7180e+04_rb/)
+      kbo(:,27,15) = (/ &
+     &5.6074e+04_rb,5.4129e+04_rb,5.2176e+04_rb,5.0219e+04_rb,4.8292e+04_rb/)
+      kbo(:,28,15) = (/ &
+     &5.7491e+04_rb,5.5358e+04_rb,5.3246e+04_rb,5.1171e+04_rb,4.9128e+04_rb/)
+      kbo(:,29,15) = (/ &
+     &5.8538e+04_rb,5.6261e+04_rb,5.4015e+04_rb,5.1836e+04_rb,4.9710e+04_rb/)
+      kbo(:,30,15) = (/ &
+     &5.9277e+04_rb,5.6882e+04_rb,5.4538e+04_rb,5.2280e+04_rb,5.0075e+04_rb/)
+      kbo(:,31,15) = (/ &
+     &5.9738e+04_rb,5.7244e+04_rb,5.4845e+04_rb,5.2509e+04_rb,5.0252e+04_rb/)
+      kbo(:,32,15) = (/ &
+     &5.9975e+04_rb,5.7405e+04_rb,5.4958e+04_rb,5.2573e+04_rb,5.0275e+04_rb/)
+      kbo(:,33,15) = (/ &
+     &6.0007e+04_rb,5.7410e+04_rb,5.4914e+04_rb,5.2499e+04_rb,5.0167e+04_rb/)
+      kbo(:,34,15) = (/ &
+     &5.9998e+04_rb,5.7359e+04_rb,5.4840e+04_rb,5.2398e+04_rb,5.0041e+04_rb/)
+      kbo(:,35,15) = (/ &
+     &6.0132e+04_rb,5.7462e+04_rb,5.4907e+04_rb,5.2438e+04_rb,5.0062e+04_rb/)
+      kbo(:,36,15) = (/ &
+     &6.0467e+04_rb,5.7764e+04_rb,5.5174e+04_rb,5.2679e+04_rb,5.0279e+04_rb/)
+      kbo(:,37,15) = (/ &
+     &6.1171e+04_rb,5.8407e+04_rb,5.5781e+04_rb,5.3245e+04_rb,5.0803e+04_rb/)
+      kbo(:,38,15) = (/ &
+     &6.1845e+04_rb,5.9045e+04_rb,5.6369e+04_rb,5.3796e+04_rb,5.1321e+04_rb/)
+      kbo(:,39,15) = (/ &
+     &6.2474e+04_rb,5.9622e+04_rb,5.6925e+04_rb,5.4319e+04_rb,5.1811e+04_rb/)
+      kbo(:,40,15) = (/ &
+     &6.3380e+04_rb,6.0485e+04_rb,5.7724e+04_rb,5.5082e+04_rb,5.2540e+04_rb/)
+      kbo(:,41,15) = (/ &
+     &6.4308e+04_rb,6.1360e+04_rb,5.8546e+04_rb,5.5868e+04_rb,5.3286e+04_rb/)
+      kbo(:,42,15) = (/ &
+     &6.5214e+04_rb,6.2221e+04_rb,5.9366e+04_rb,5.6643e+04_rb,5.4029e+04_rb/)
+      kbo(:,43,15) = (/ &
+     &6.6280e+04_rb,6.3259e+04_rb,6.0335e+04_rb,5.7567e+04_rb,5.4915e+04_rb/)
+      kbo(:,44,15) = (/ &
+     &6.7443e+04_rb,6.4360e+04_rb,6.1383e+04_rb,5.8557e+04_rb,5.5857e+04_rb/)
+      kbo(:,45,15) = (/ &
+     &6.8616e+04_rb,6.5461e+04_rb,6.2445e+04_rb,5.9557e+04_rb,5.6818e+04_rb/)
+      kbo(:,46,15) = (/ &
+     &6.9855e+04_rb,6.6628e+04_rb,6.3578e+04_rb,6.0631e+04_rb,5.7835e+04_rb/)
+      kbo(:,47,15) = (/ &
+     &7.1240e+04_rb,6.7969e+04_rb,6.4839e+04_rb,6.1843e+04_rb,5.8987e+04_rb/)
+      kbo(:,48,15) = (/ &
+     &7.2637e+04_rb,6.9326e+04_rb,6.6121e+04_rb,6.3073e+04_rb,6.0145e+04_rb/)
+      kbo(:,49,15) = (/ &
+     &7.4017e+04_rb,7.0688e+04_rb,6.7429e+04_rb,6.4324e+04_rb,6.1340e+04_rb/)
+      kbo(:,50,15) = (/ &
+     &7.5349e+04_rb,7.1972e+04_rb,6.8674e+04_rb,6.5502e+04_rb,6.2467e+04_rb/)
+      kbo(:,51,15) = (/ &
+     &7.6637e+04_rb,7.3219e+04_rb,6.9913e+04_rb,6.6663e+04_rb,6.3587e+04_rb/)
+      kbo(:,52,15) = (/ &
+     &7.7955e+04_rb,7.4483e+04_rb,7.1122e+04_rb,6.7846e+04_rb,6.4721e+04_rb/)
+      kbo(:,53,15) = (/ &
+     &7.9280e+04_rb,7.5753e+04_rb,7.2364e+04_rb,6.9053e+04_rb,6.5858e+04_rb/)
+      kbo(:,54,15) = (/ &
+     &8.0495e+04_rb,7.6933e+04_rb,7.3504e+04_rb,7.0171e+04_rb,6.6914e+04_rb/)
+      kbo(:,55,15) = (/ &
+     &8.1662e+04_rb,7.8089e+04_rb,7.4612e+04_rb,7.1233e+04_rb,6.7959e+04_rb/)
+      kbo(:,56,15) = (/ &
+     &8.2843e+04_rb,7.9230e+04_rb,7.5715e+04_rb,7.2316e+04_rb,6.9008e+04_rb/)
+      kbo(:,57,15) = (/ &
+     &8.4005e+04_rb,8.0398e+04_rb,7.6842e+04_rb,7.3404e+04_rb,7.0077e+04_rb/)
+      kbo(:,58,15) = (/ &
+     &8.5078e+04_rb,8.1502e+04_rb,7.7919e+04_rb,7.4439e+04_rb,7.1083e+04_rb/)
+      kbo(:,59,15) = (/ &
+     &8.5505e+04_rb,8.1958e+04_rb,7.8361e+04_rb,7.4870e+04_rb,7.1482e+04_rb/)
+      kbo(:,13,16) = (/ &
+     &1.4816e+04_rb,1.4930e+04_rb,1.5014e+04_rb,1.5052e+04_rb,1.5044e+04_rb/)
+      kbo(:,14,16) = (/ &
+     &1.7836e+04_rb,1.7951e+04_rb,1.8019e+04_rb,1.8017e+04_rb,1.7984e+04_rb/)
+      kbo(:,15,16) = (/ &
+     &2.1381e+04_rb,2.1462e+04_rb,2.1481e+04_rb,2.1430e+04_rb,2.1342e+04_rb/)
+      kbo(:,16,16) = (/ &
+     &2.5477e+04_rb,2.5475e+04_rb,2.5403e+04_rb,2.5275e+04_rb,2.5089e+04_rb/)
+      kbo(:,17,16) = (/ &
+     &3.0124e+04_rb,3.0002e+04_rb,2.9773e+04_rb,2.9519e+04_rb,2.9186e+04_rb/)
+      kbo(:,18,16) = (/ &
+     &3.5286e+04_rb,3.4965e+04_rb,3.4530e+04_rb,3.4092e+04_rb,3.3540e+04_rb/)
+      kbo(:,19,16) = (/ &
+     &4.0852e+04_rb,4.0241e+04_rb,3.9575e+04_rb,3.8871e+04_rb,3.8057e+04_rb/)
+      kbo(:,20,16) = (/ &
+     &4.6699e+04_rb,4.5739e+04_rb,4.4741e+04_rb,4.3700e+04_rb,4.2576e+04_rb/)
+      kbo(:,21,16) = (/ &
+     &5.2654e+04_rb,5.1275e+04_rb,4.9864e+04_rb,4.8428e+04_rb,4.6961e+04_rb/)
+      kbo(:,22,16) = (/ &
+     &5.8403e+04_rb,5.6551e+04_rb,5.4684e+04_rb,5.2822e+04_rb,5.0976e+04_rb/)
+      kbo(:,23,16) = (/ &
+     &6.3816e+04_rb,6.1463e+04_rb,5.9121e+04_rb,5.6821e+04_rb,5.4590e+04_rb/)
+      kbo(:,24,16) = (/ &
+     &6.8713e+04_rb,6.5863e+04_rb,6.3058e+04_rb,6.0345e+04_rb,5.7751e+04_rb/)
+      kbo(:,25,16) = (/ &
+     &7.2989e+04_rb,6.9656e+04_rb,6.6424e+04_rb,6.3329e+04_rb,6.0404e+04_rb/)
+      kbo(:,26,16) = (/ &
+     &7.6570e+04_rb,7.2775e+04_rb,6.9149e+04_rb,6.5716e+04_rb,6.2522e+04_rb/)
+      kbo(:,27,16) = (/ &
+     &7.9459e+04_rb,7.5274e+04_rb,7.1313e+04_rb,6.7589e+04_rb,6.4169e+04_rb/)
+      kbo(:,28,16) = (/ &
+     &8.1683e+04_rb,7.7174e+04_rb,7.2947e+04_rb,6.8995e+04_rb,6.5376e+04_rb/)
+      kbo(:,29,16) = (/ &
+     &8.3285e+04_rb,7.8510e+04_rb,7.4071e+04_rb,6.9957e+04_rb,6.6188e+04_rb/)
+      kbo(:,30,16) = (/ &
+     &8.4346e+04_rb,7.9371e+04_rb,7.4777e+04_rb,7.0557e+04_rb,6.6673e+04_rb/)
+      kbo(:,31,16) = (/ &
+     &8.4928e+04_rb,7.9835e+04_rb,7.5096e+04_rb,7.0806e+04_rb,6.6861e+04_rb/)
+      kbo(:,32,16) = (/ &
+     &8.5101e+04_rb,7.9916e+04_rb,7.5117e+04_rb,7.0792e+04_rb,6.6791e+04_rb/)
+      kbo(:,33,16) = (/ &
+     &8.4949e+04_rb,7.9717e+04_rb,7.4898e+04_rb,7.0557e+04_rb,6.6529e+04_rb/)
+      kbo(:,34,16) = (/ &
+     &8.4743e+04_rb,7.9470e+04_rb,7.4656e+04_rb,7.0309e+04_rb,6.6256e+04_rb/)
+      kbo(:,35,16) = (/ &
+     &8.4858e+04_rb,7.9542e+04_rb,7.4709e+04_rb,7.0325e+04_rb,6.6240e+04_rb/)
+      kbo(:,36,16) = (/ &
+     &8.5440e+04_rb,8.0039e+04_rb,7.5130e+04_rb,7.0697e+04_rb,6.6564e+04_rb/)
+      kbo(:,37,16) = (/ &
+     &8.6760e+04_rb,8.1217e+04_rb,7.6179e+04_rb,7.1644e+04_rb,6.7431e+04_rb/)
+      kbo(:,38,16) = (/ &
+     &8.8049e+04_rb,8.2388e+04_rb,7.7214e+04_rb,7.2579e+04_rb,6.8294e+04_rb/)
+      kbo(:,39,16) = (/ &
+     &8.9280e+04_rb,8.3525e+04_rb,7.8218e+04_rb,7.3474e+04_rb,6.9111e+04_rb/)
+      kbo(:,40,16) = (/ &
+     &9.1121e+04_rb,8.5172e+04_rb,7.9710e+04_rb,7.4807e+04_rb,7.0344e+04_rb/)
+      kbo(:,41,16) = (/ &
+     &9.3033e+04_rb,8.6893e+04_rb,8.1281e+04_rb,7.6203e+04_rb,7.1626e+04_rb/)
+      kbo(:,42,16) = (/ &
+     &9.4965e+04_rb,8.8622e+04_rb,8.0415e+04_rb,7.7606e+04_rb,7.2910e+04_rb/)
+      kbo(:,43,16) = (/ &
+     &9.7303e+04_rb,9.0720e+04_rb,8.4775e+04_rb,7.9330e+04_rb,7.4454e+04_rb/)
+      kbo(:,44,16) = (/ &
+     &9.9859e+04_rb,9.3029e+04_rb,8.6867e+04_rb,8.1230e+04_rb,7.6153e+04_rb/)
+      kbo(:,45,16) = (/ &
+     &1.0249e+05_rb,9.5410e+04_rb,8.8999e+04_rb,8.3177e+04_rb,7.7890e+04_rb/)
+      kbo(:,46,16) = (/ &
+     &1.0536e+05_rb,9.7993e+04_rb,9.1330e+04_rb,8.5316e+04_rb,7.9796e+04_rb/)
+      kbo(:,47,16) = (/ &
+     &1.0871e+05_rb,1.0095e+05_rb,9.4014e+04_rb,8.7743e+04_rb,8.2024e+04_rb/)
+      kbo(:,48,16) = (/ &
+     &1.1228e+05_rb,1.0405e+05_rb,9.6823e+04_rb,9.0264e+04_rb,8.4322e+04_rb/)
+      kbo(:,49,16) = (/ &
+     &1.1602e+05_rb,1.0727e+05_rb,9.9709e+04_rb,9.2873e+04_rb,8.6711e+04_rb/)
+      kbo(:,50,16) = (/ &
+     &1.1975e+05_rb,1.1051e+05_rb,1.0253e+05_rb,9.5425e+04_rb,8.8999e+04_rb/)
+      kbo(:,51,16) = (/ &
+     &1.2354e+05_rb,1.1380e+05_rb,1.0536e+05_rb,9.7987e+04_rb,9.1299e+04_rb/)
+      kbo(:,52,16) = (/ &
+     &1.2745e+05_rb,1.1723e+05_rb,1.0833e+05_rb,1.0062e+05_rb,9.3694e+04_rb/)
+      kbo(:,53,16) = (/ &
+     &1.3160e+05_rb,1.2088e+05_rb,1.1148e+05_rb,1.0337e+05_rb,9.6183e+04_rb/)
+      kbo(:,54,16) = (/ &
+     &1.3555e+05_rb,1.2436e+05_rb,1.1452e+05_rb,1.0598e+05_rb,9.8537e+04_rb/)
+      kbo(:,55,16) = (/ &
+     &1.3946e+05_rb,1.2781e+05_rb,1.1754e+05_rb,1.0859e+05_rb,1.0085e+05_rb/)
+      kbo(:,56,16) = (/ &
+     &1.4362e+05_rb,1.3143e+05_rb,1.2072e+05_rb,1.1136e+05_rb,1.0326e+05_rb/)
+      kbo(:,57,16) = (/ &
+     &1.4797e+05_rb,1.3519e+05_rb,1.2403e+05_rb,1.1423e+05_rb,1.0573e+05_rb/)
+      kbo(:,58,16) = (/ &
+     &1.5241e+05_rb,1.3886e+05_rb,1.2729e+05_rb,1.1707e+05_rb,1.0818e+05_rb/)
+      kbo(:,59,16) = (/ &
+     &1.5431e+05_rb,1.4041e+05_rb,1.2862e+05_rb,1.1825e+05_rb,1.0919e+05_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &2.7075e-06_rb,2.2609e-06_rb,1.5633e-06_rb,8.7484e-07_rb,5.5470e-07_rb,4.8456e-07_rb, &
+     &4.7463e-07_rb,4.6154e-07_rb,4.4425e-07_rb,4.2960e-07_rb,4.2626e-07_rb,4.1715e-07_rb, &
+     &4.2607e-07_rb,3.6616e-07_rb,2.6366e-07_rb,2.6029e-07_rb/)
+      forrefo(2,:) = (/ &
+     &2.6759e-06_rb,2.2237e-06_rb,1.4466e-06_rb,9.3032e-07_rb,6.4927e-07_rb,5.4809e-07_rb, &
+     &4.9504e-07_rb,4.6305e-07_rb,4.4873e-07_rb,4.2146e-07_rb,4.2176e-07_rb,4.2812e-07_rb, &
+     &4.0529e-07_rb,4.0969e-07_rb,2.9442e-07_rb,2.6821e-07_rb/)
+      forrefo(3,:) = (/ &
+     &2.6608e-06_rb,2.1140e-06_rb,1.4838e-06_rb,9.2083e-07_rb,6.3350e-07_rb,5.7195e-07_rb, &
+     &6.2253e-07_rb,5.1783e-07_rb,4.4749e-07_rb,4.3261e-07_rb,4.2553e-07_rb,4.2175e-07_rb, &
+     &4.1085e-07_rb,4.0358e-07_rb,3.5340e-07_rb,2.7191e-07_rb/)
+      forrefo(4,:) = (/ &
+     &2.6412e-06_rb,1.9814e-06_rb,1.2672e-06_rb,8.1129e-07_rb,7.1447e-07_rb,7.5026e-07_rb, &
+     &7.4386e-07_rb,7.2759e-07_rb,7.3583e-07_rb,7.6493e-07_rb,8.8959e-07_rb,7.5534e-07_rb, &
+     &5.3734e-07_rb,4.5572e-07_rb,4.1676e-07_rb,3.6198e-07_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 4.67262e-03_rb, 3.95211e-03_rb, 3.34270e-03_rb, 2.82726e-03_rb, 2.39130e-03_rb, &
+     & 2.02256e-03_rb, 1.71069e-03_rb, 1.44690e-03_rb, 1.22379e-03_rb, 1.03508e-03_rb/)
+      selfrefo(:, 2) = (/ &
+     & 4.42593e-03_rb, 3.73338e-03_rb, 3.14920e-03_rb, 2.65643e-03_rb, 2.24076e-03_rb, &
+     & 1.89014e-03_rb, 1.59438e-03_rb, 1.34490e-03_rb, 1.13446e-03_rb, 9.56943e-04_rb/)
+      selfrefo(:, 3) = (/ &
+     & 3.96072e-03_rb, 3.33789e-03_rb, 2.81300e-03_rb, 2.37065e-03_rb, 1.99786e-03_rb, &
+     & 1.68369e-03_rb, 1.41893e-03_rb, 1.19580e-03_rb, 1.00776e-03_rb, 8.49286e-04_rb/)
+      selfrefo(:, 4) = (/ &
+     & 3.71833e-03_rb, 3.10030e-03_rb, 2.58500e-03_rb, 2.15535e-03_rb, 1.79711e-03_rb, &
+     & 1.49841e-03_rb, 1.24936e-03_rb, 1.04170e-03_rb, 8.68558e-04_rb, 7.24195e-04_rb/)
+      selfrefo(:, 5) = (/ &
+     & 3.55755e-03_rb, 2.95355e-03_rb, 2.45210e-03_rb, 2.03578e-03_rb, 1.69015e-03_rb, &
+     & 1.40320e-03_rb, 1.16497e-03_rb, 9.67180e-04_rb, 8.02973e-04_rb, 6.66646e-04_rb/)
+      selfrefo(:, 6) = (/ &
+     & 3.47601e-03_rb, 2.88628e-03_rb, 2.39660e-03_rb, 1.99000e-03_rb, 1.65238e-03_rb, &
+     & 1.37204e-03_rb, 1.13927e-03_rb, 9.45980e-04_rb, 7.85487e-04_rb, 6.52224e-04_rb/)
+      selfrefo(:, 7) = (/ &
+     & 3.44479e-03_rb, 2.86224e-03_rb, 2.37820e-03_rb, 1.97602e-03_rb, 1.64185e-03_rb, &
+     & 1.36420e-03_rb, 1.13350e-03_rb, 9.41810e-04_rb, 7.82539e-04_rb, 6.50204e-04_rb/)
+      selfrefo(:, 8) = (/ &
+     & 3.40154e-03_rb, 2.82953e-03_rb, 2.35370e-03_rb, 1.95789e-03_rb, 1.62864e-03_rb, &
+     & 1.35476e-03_rb, 1.12694e-03_rb, 9.37430e-04_rb, 7.79788e-04_rb, 6.48655e-04_rb/)
+      selfrefo(:, 9) = (/ &
+     & 3.39380e-03_rb, 2.82288e-03_rb, 2.34800e-03_rb, 1.95301e-03_rb, 1.62446e-03_rb, &
+     & 1.35119e-03_rb, 1.12389e-03_rb, 9.34820e-04_rb, 7.77560e-04_rb, 6.46755e-04_rb/)
+      selfrefo(:,10) = (/ &
+     & 3.37185e-03_rb, 2.80654e-03_rb, 2.33600e-03_rb, 1.94435e-03_rb, 1.61837e-03_rb, &
+     & 1.34704e-03_rb, 1.12120e-03_rb, 9.33220e-04_rb, 7.76759e-04_rb, 6.46530e-04_rb/)
+      selfrefo(:,11) = (/ &
+     & 3.37924e-03_rb, 2.81172e-03_rb, 2.33950e-03_rb, 1.94659e-03_rb, 1.61967e-03_rb, &
+     & 1.34765e-03_rb, 1.12132e-03_rb, 9.33000e-04_rb, 7.76306e-04_rb, 6.45930e-04_rb/)
+      selfrefo(:,12) = (/ &
+     & 3.39658e-03_rb, 2.82289e-03_rb, 2.34610e-03_rb, 1.94984e-03_rb, 1.62051e-03_rb, &
+     & 1.34680e-03_rb, 1.11933e-03_rb, 9.30270e-04_rb, 7.73146e-04_rb, 6.42561e-04_rb/)
+      selfrefo(:,13) = (/ &
+     & 3.36070e-03_rb, 2.79913e-03_rb, 2.33140e-03_rb, 1.94183e-03_rb, 1.61735e-03_rb, &
+     & 1.34709e-03_rb, 1.12199e-03_rb, 9.34510e-04_rb, 7.78354e-04_rb, 6.48292e-04_rb/)
+      selfrefo(:,14) = (/ &
+     & 3.40428e-03_rb, 2.81994e-03_rb, 2.33590e-03_rb, 1.93495e-03_rb, 1.60282e-03_rb, &
+     & 1.32770e-03_rb, 1.09980e-03_rb, 9.11020e-04_rb, 7.54645e-04_rb, 6.25111e-04_rb/)
+      selfrefo(:,15) = (/ &
+     & 3.27075e-03_rb, 2.70783e-03_rb, 2.24180e-03_rb, 1.85597e-03_rb, 1.53655e-03_rb, &
+     & 1.27210e-03_rb, 1.05317e-03_rb, 8.71910e-04_rb, 7.21849e-04_rb, 5.97615e-04_rb/)
+      selfrefo(:,16) = (/ &
+     & 3.23123e-03_rb, 2.67891e-03_rb, 2.22100e-03_rb, 1.84136e-03_rb, 1.52661e-03_rb, &
+     & 1.26567e-03_rb, 1.04932e-03_rb, 8.69960e-04_rb, 7.21256e-04_rb, 5.97970e-04_rb/)
+
+      end subroutine lw_kgb14
+
+! **************************************************************************
+      subroutine lw_kgb15
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg15, only : fracrefao, kao, kao_mn2, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level : P = 1053. mb, T = 294.2 K
+      fracrefao(:, 1) = (/ &
+     &  1.0689e-01_rb,1.1563e-01_rb,1.2447e-01_rb,1.2921e-01_rb,1.2840e-01_rb,1.2113e-01_rb, &
+     &  1.0643e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &
+     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)
+      fracrefao(:, 2) = (/ &
+     &  1.0782e-01_rb,1.1637e-01_rb,1.2290e-01_rb,1.2911e-01_rb,1.2841e-01_rb,1.2113e-01_rb, &
+     &  1.0643e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &
+     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)
+      fracrefao(:, 3) = (/ &
+     &  1.0858e-01_rb,1.1860e-01_rb,1.2237e-01_rb,1.2665e-01_rb,1.2841e-01_rb,1.2111e-01_rb, &
+     &  1.0642e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &
+     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)
+      fracrefao(:, 4) = (/ &
+     &  1.1022e-01_rb,1.1965e-01_rb,1.2334e-01_rb,1.2383e-01_rb,1.2761e-01_rb,1.2109e-01_rb, &
+     &  1.0642e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &
+     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)
+      fracrefao(:, 5) = (/ &
+     &  1.1342e-01_rb,1.2069e-01_rb,1.2360e-01_rb,1.2447e-01_rb,1.2340e-01_rb,1.2020e-01_rb, &
+     &  1.0639e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &
+     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)
+      fracrefao(:, 6) = (/ &
+     &  1.1771e-01_rb,1.2280e-01_rb,1.2177e-01_rb,1.2672e-01_rb,1.2398e-01_rb,1.1787e-01_rb, &
+     &  1.0131e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &
+     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)
+      fracrefao(:, 7) = (/ &
+     &  1.2320e-01_rb,1.2491e-01_rb,1.2001e-01_rb,1.2936e-01_rb,1.2653e-01_rb,1.1929e-01_rb, &
+     &  9.8955e-02_rb,7.4887e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &
+     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)
+      fracrefao(:, 8) = (/ &
+     &  1.3105e-01_rb,1.2563e-01_rb,1.3055e-01_rb,1.2854e-01_rb,1.3402e-01_rb,1.1571e-01_rb, &
+     &  9.4876e-02_rb,6.0459e-02_rb,5.6457e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &
+     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)
+      fracrefao(:, 9) = (/ &
+     &  1.1375e-01_rb,1.2090e-01_rb,1.2348e-01_rb,1.2458e-01_rb,1.2406e-01_rb,1.1921e-01_rb, &
+     &  1.0802e-01_rb,8.6613e-02_rb,5.8125e-02_rb,6.2984e-03_rb,5.2359e-03_rb,4.0641e-03_rb, &
+     &  2.9379e-03_rb,1.9001e-03_rb,7.2646e-04_rb,1.0553e-04_rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1, 1) = (/ &
+     &3.4242e-02_rb,1.7071e-01_rb,2.6138e-01_rb,3.1721e-01_rb,3.2432e-01_rb,2.6831e-01_rb, &
+     &2.0528e-01_rb,1.1088e-01_rb,5.8968e-01_rb/)
+      kao(:, 2, 1, 1) = (/ &
+     &3.3652e-02_rb,1.6779e-01_rb,2.5725e-01_rb,3.0829e-01_rb,3.1520e-01_rb,2.6815e-01_rb, &
+     &2.0103e-01_rb,1.1213e-01_rb,5.6496e-01_rb/)
+      kao(:, 3, 1, 1) = (/ &
+     &3.2936e-02_rb,1.6580e-01_rb,2.5340e-01_rb,3.0468e-01_rb,3.0583e-01_rb,2.6658e-01_rb, &
+     &1.9781e-01_rb,1.1388e-01_rb,5.5053e-01_rb/)
+      kao(:, 4, 1, 1) = (/ &
+     &3.2004e-02_rb,1.6475e-01_rb,2.5029e-01_rb,3.0171e-01_rb,3.0308e-01_rb,2.6842e-01_rb, &
+     &1.9857e-01_rb,1.1861e-01_rb,5.4961e-01_rb/)
+      kao(:, 5, 1, 1) = (/ &
+     &3.0990e-02_rb,1.6410e-01_rb,2.4670e-01_rb,2.9476e-01_rb,3.0044e-01_rb,2.7387e-01_rb, &
+     &1.9493e-01_rb,1.2451e-01_rb,5.3996e-01_rb/)
+      kao(:, 1, 2, 1) = (/ &
+     &3.0564e-02_rb,1.4940e-01_rb,2.2694e-01_rb,2.6721e-01_rb,2.6456e-01_rb,2.1891e-01_rb, &
+     &1.6459e-01_rb,9.1113e-02_rb,4.6587e-01_rb/)
+      kao(:, 2, 2, 1) = (/ &
+     &2.9826e-02_rb,1.4880e-01_rb,2.2345e-01_rb,2.6474e-01_rb,2.5889e-01_rb,2.2136e-01_rb, &
+     &1.6243e-01_rb,9.1934e-02_rb,4.6056e-01_rb/)
+      kao(:, 3, 2, 1) = (/ &
+     &2.9292e-02_rb,1.4800e-01_rb,2.2058e-01_rb,2.6235e-01_rb,2.5684e-01_rb,2.2295e-01_rb, &
+     &1.6276e-01_rb,9.5842e-02_rb,4.5687e-01_rb/)
+      kao(:, 4, 2, 1) = (/ &
+     &2.8631e-02_rb,1.4795e-01_rb,2.1809e-01_rb,2.5690e-01_rb,2.5387e-01_rb,2.2588e-01_rb, &
+     &1.6201e-01_rb,9.9403e-02_rb,4.5029e-01_rb/)
+      kao(:, 5, 2, 1) = (/ &
+     &2.7916e-02_rb,1.4649e-01_rb,2.1539e-01_rb,2.5025e-01_rb,2.5060e-01_rb,2.2852e-01_rb, &
+     &1.6118e-01_rb,1.0330e-01_rb,4.4510e-01_rb/)
+      kao(:, 1, 3, 1) = (/ &
+     &2.7060e-02_rb,1.3249e-01_rb,1.9563e-01_rb,2.2645e-01_rb,2.1616e-01_rb,1.7969e-01_rb, &
+     &1.3284e-01_rb,7.4965e-02_rb,3.7244e-01_rb/)
+      kao(:, 2, 3, 1) = (/ &
+     &2.6723e-02_rb,1.3208e-01_rb,1.9386e-01_rb,2.2490e-01_rb,2.1534e-01_rb,1.8332e-01_rb, &
+     &1.3372e-01_rb,7.6721e-02_rb,3.7364e-01_rb/)
+      kao(:, 3, 3, 1) = (/ &
+     &2.6384e-02_rb,1.3168e-01_rb,1.9203e-01_rb,2.2240e-01_rb,2.1507e-01_rb,1.8752e-01_rb, &
+     &1.3386e-01_rb,7.9482e-02_rb,3.7891e-01_rb/)
+      kao(:, 4, 3, 1) = (/ &
+     &2.5689e-02_rb,1.3020e-01_rb,1.8980e-01_rb,2.1868e-01_rb,2.1152e-01_rb,1.8912e-01_rb, &
+     &1.3349e-01_rb,8.2411e-02_rb,3.7480e-01_rb/)
+      kao(:, 5, 3, 1) = (/ &
+     &2.4939e-02_rb,1.2901e-01_rb,1.8570e-01_rb,2.1295e-01_rb,2.0942e-01_rb,1.8777e-01_rb, &
+     &1.3349e-01_rb,8.5566e-02_rb,3.6973e-01_rb/)
+      kao(:, 1, 4, 1) = (/ &
+     &2.4242e-02_rb,1.1699e-01_rb,1.6835e-01_rb,1.9257e-01_rb,1.7909e-01_rb,1.4906e-01_rb, &
+     &1.0978e-01_rb,6.3298e-02_rb,3.0317e-01_rb/)
+      kao(:, 2, 4, 1) = (/ &
+     &2.3651e-02_rb,1.1679e-01_rb,1.6721e-01_rb,1.9147e-01_rb,1.7987e-01_rb,1.5405e-01_rb, &
+     &1.1069e-01_rb,6.4435e-02_rb,3.0873e-01_rb/)
+      kao(:, 3, 4, 1) = (/ &
+     &2.2665e-02_rb,1.1583e-01_rb,1.6543e-01_rb,1.8831e-01_rb,1.8066e-01_rb,1.5730e-01_rb, &
+     &1.1107e-01_rb,6.6643e-02_rb,3.1154e-01_rb/)
+      kao(:, 4, 4, 1) = (/ &
+     &2.1814e-02_rb,1.1462e-01_rb,1.6249e-01_rb,1.8491e-01_rb,1.7772e-01_rb,1.5750e-01_rb, &
+     &1.1124e-01_rb,6.9078e-02_rb,3.1214e-01_rb/)
+      kao(:, 5, 4, 1) = (/ &
+     &2.1129e-02_rb,1.1306e-01_rb,1.5907e-01_rb,1.7919e-01_rb,1.7465e-01_rb,1.5650e-01_rb, &
+     &1.1133e-01_rb,7.1551e-02_rb,3.0812e-01_rb/)
+      kao(:, 1, 5, 1) = (/ &
+     &2.0560e-02_rb,1.0249e-01_rb,1.4447e-01_rb,1.6390e-01_rb,1.4827e-01_rb,1.2487e-01_rb, &
+     &9.0642e-02_rb,5.3488e-02_rb,2.4754e-01_rb/)
+      kao(:, 2, 5, 1) = (/ &
+     &1.9799e-02_rb,1.0201e-01_rb,1.4357e-01_rb,1.6295e-01_rb,1.5070e-01_rb,1.2910e-01_rb, &
+     &9.1763e-02_rb,5.4394e-02_rb,2.5641e-01_rb/)
+      kao(:, 3, 5, 1) = (/ &
+     &1.9183e-02_rb,1.0090e-01_rb,1.4151e-01_rb,1.5954e-01_rb,1.5069e-01_rb,1.3095e-01_rb, &
+     &9.2718e-02_rb,5.6321e-02_rb,2.5912e-01_rb/)
+      kao(:, 4, 5, 1) = (/ &
+     &1.8512e-02_rb,9.9552e-02_rb,1.3834e-01_rb,1.5497e-01_rb,1.4881e-01_rb,1.3077e-01_rb, &
+     &9.3091e-02_rb,5.8675e-02_rb,2.5974e-01_rb/)
+      kao(:, 5, 5, 1) = (/ &
+     &1.7786e-02_rb,9.7242e-02_rb,1.3532e-01_rb,1.5076e-01_rb,1.4713e-01_rb,1.3062e-01_rb, &
+     &9.3284e-02_rb,6.0479e-02_rb,2.5760e-01_rb/)
+      kao(:, 1, 6, 1) = (/ &
+     &1.7311e-02_rb,8.8922e-02_rb,1.2346e-01_rb,1.3907e-01_rb,1.2282e-01_rb,1.0362e-01_rb, &
+     &7.4353e-02_rb,4.4575e-02_rb,2.0465e-01_rb/)
+      kao(:, 2, 6, 1) = (/ &
+     &1.6759e-02_rb,8.7881e-02_rb,1.2272e-01_rb,1.3747e-01_rb,1.2636e-01_rb,1.0747e-01_rb, &
+     &7.5966e-02_rb,4.6065e-02_rb,2.1117e-01_rb/)
+      kao(:, 3, 6, 1) = (/ &
+     &1.6118e-02_rb,8.6674e-02_rb,1.1960e-01_rb,1.3378e-01_rb,1.2578e-01_rb,1.0890e-01_rb, &
+     &7.7032e-02_rb,4.7370e-02_rb,2.1535e-01_rb/)
+      kao(:, 4, 6, 1) = (/ &
+     &1.5604e-02_rb,8.5004e-02_rb,1.1715e-01_rb,1.3060e-01_rb,1.2464e-01_rb,1.0936e-01_rb, &
+     &7.8068e-02_rb,4.9979e-02_rb,2.1513e-01_rb/)
+      kao(:, 5, 6, 1) = (/ &
+     &1.5010e-02_rb,8.2612e-02_rb,1.1457e-01_rb,1.2694e-01_rb,1.2379e-01_rb,1.0886e-01_rb, &
+     &7.8577e-02_rb,5.1634e-02_rb,2.1475e-01_rb/)
+      kao(:, 1, 7, 1) = (/ &
+     &1.4769e-02_rb,7.6038e-02_rb,1.0565e-01_rb,1.1761e-01_rb,1.0346e-01_rb,8.6214e-02_rb, &
+     &6.1132e-02_rb,3.6999e-02_rb,1.7055e-01_rb/)
+      kao(:, 2, 7, 1) = (/ &
+     &1.4212e-02_rb,7.5191e-02_rb,1.0412e-01_rb,1.1565e-01_rb,1.0591e-01_rb,8.9750e-02_rb, &
+     &6.2857e-02_rb,3.8703e-02_rb,1.7619e-01_rb/)
+      kao(:, 3, 7, 1) = (/ &
+     &1.3756e-02_rb,7.4145e-02_rb,1.0177e-01_rb,1.1260e-01_rb,1.0586e-01_rb,9.1675e-02_rb, &
+     &6.4846e-02_rb,4.0069e-02_rb,1.8020e-01_rb/)
+      kao(:, 4, 7, 1) = (/ &
+     &1.3258e-02_rb,7.2484e-02_rb,9.9439e-02_rb,1.0966e-01_rb,1.0522e-01_rb,9.2290e-02_rb, &
+     &6.5394e-02_rb,4.2345e-02_rb,1.8038e-01_rb/)
+      kao(:, 5, 7, 1) = (/ &
+     &1.2766e-02_rb,7.0689e-02_rb,9.6896e-02_rb,1.0710e-01_rb,1.0411e-01_rb,9.1721e-02_rb, &
+     &6.6375e-02_rb,4.4166e-02_rb,1.8031e-01_rb/)
+      kao(:, 1, 8, 1) = (/ &
+     &1.2774e-02_rb,6.5331e-02_rb,9.0505e-02_rb,1.0027e-01_rb,8.8579e-02_rb,7.2873e-02_rb, &
+     &5.1439e-02_rb,3.0866e-02_rb,1.4484e-01_rb/)
+      kao(:, 2, 8, 1) = (/ &
+     &1.2386e-02_rb,6.4820e-02_rb,8.9216e-02_rb,9.8573e-02_rb,9.0271e-02_rb,7.6134e-02_rb, &
+     &5.3003e-02_rb,3.2488e-02_rb,1.4948e-01_rb/)
+      kao(:, 3, 8, 1) = (/ &
+     &1.1934e-02_rb,6.3787e-02_rb,8.6950e-02_rb,9.5946e-02_rb,9.0138e-02_rb,7.8085e-02_rb, &
+     &5.5347e-02_rb,3.4134e-02_rb,1.5219e-01_rb/)
+      kao(:, 4, 8, 1) = (/ &
+     &1.1544e-02_rb,6.2588e-02_rb,8.5063e-02_rb,9.3318e-02_rb,8.9759e-02_rb,7.8769e-02_rb, &
+     &5.5958e-02_rb,3.6086e-02_rb,1.5324e-01_rb/)
+      kao(:, 5, 8, 1) = (/ &
+     &1.1084e-02_rb,6.0720e-02_rb,8.2631e-02_rb,9.1723e-02_rb,8.9027e-02_rb,7.8819e-02_rb, &
+     &5.6823e-02_rb,3.7768e-02_rb,1.5367e-01_rb/)
+      kao(:, 1, 9, 1) = (/ &
+     &1.1061e-02_rb,5.5946e-02_rb,7.7372e-02_rb,8.4825e-02_rb,7.4671e-02_rb,6.0881e-02_rb, &
+     &4.3320e-02_rb,2.5693e-02_rb,1.2149e-01_rb/)
+      kao(:, 2, 9, 1) = (/ &
+     &1.0663e-02_rb,5.5517e-02_rb,7.6169e-02_rb,8.3555e-02_rb,7.6380e-02_rb,6.3832e-02_rb, &
+     &4.4653e-02_rb,2.7044e-02_rb,1.2592e-01_rb/)
+      kao(:, 3, 9, 1) = (/ &
+     &1.0298e-02_rb,5.4609e-02_rb,7.4061e-02_rb,8.1380e-02_rb,7.6283e-02_rb,6.5805e-02_rb, &
+     &4.6544e-02_rb,2.8652e-02_rb,1.2784e-01_rb/)
+      kao(:, 4, 9, 1) = (/ &
+     &9.9642e-03_rb,5.3590e-02_rb,7.2457e-02_rb,7.9291e-02_rb,7.6297e-02_rb,6.6701e-02_rb, &
+     &4.7215e-02_rb,3.0429e-02_rb,1.2985e-01_rb/)
+      kao(:, 5, 9, 1) = (/ &
+     &9.5838e-03_rb,5.1774e-02_rb,7.0525e-02_rb,7.7952e-02_rb,7.5761e-02_rb,6.7035e-02_rb, &
+     &4.8099e-02_rb,3.1771e-02_rb,1.2981e-01_rb/)
+      kao(:, 1,10, 1) = (/ &
+     &9.5065e-03_rb,4.7743e-02_rb,6.5906e-02_rb,7.1569e-02_rb,6.3088e-02_rb,5.1008e-02_rb, &
+     &3.6270e-02_rb,2.1647e-02_rb,1.0151e-01_rb/)
+      kao(:, 2,10, 1) = (/ &
+     &9.1696e-03_rb,4.7417e-02_rb,6.4599e-02_rb,7.0371e-02_rb,6.4348e-02_rb,5.3431e-02_rb, &
+     &3.7744e-02_rb,2.2620e-02_rb,1.0603e-01_rb/)
+      kao(:, 3,10, 1) = (/ &
+     &8.8668e-03_rb,4.6740e-02_rb,6.2818e-02_rb,6.8749e-02_rb,6.4307e-02_rb,5.5442e-02_rb, &
+     &3.9323e-02_rb,2.3889e-02_rb,1.0716e-01_rb/)
+      kao(:, 4,10, 1) = (/ &
+     &8.5593e-03_rb,4.5273e-02_rb,6.1475e-02_rb,6.7236e-02_rb,6.4539e-02_rb,5.6295e-02_rb, &
+     &4.0023e-02_rb,2.5561e-02_rb,1.0908e-01_rb/)
+      kao(:, 5,10, 1) = (/ &
+     &8.2765e-03_rb,4.3918e-02_rb,5.9902e-02_rb,6.5936e-02_rb,6.4146e-02_rb,5.6753e-02_rb, &
+     &4.0609e-02_rb,2.6739e-02_rb,1.0938e-01_rb/)
+      kao(:, 1,11, 1) = (/ &
+     &8.0135e-03_rb,4.0574e-02_rb,5.5523e-02_rb,5.9842e-02_rb,5.3590e-02_rb,4.3205e-02_rb, &
+     &3.0578e-02_rb,1.8553e-02_rb,8.6419e-02_rb/)
+      kao(:, 2,11, 1) = (/ &
+     &7.7438e-03_rb,4.0051e-02_rb,5.3954e-02_rb,5.8561e-02_rb,5.4366e-02_rb,4.5533e-02_rb, &
+     &3.1980e-02_rb,1.9368e-02_rb,8.9461e-02_rb/)
+      kao(:, 3,11, 1) = (/ &
+     &7.4839e-03_rb,3.9067e-02_rb,5.2580e-02_rb,5.7160e-02_rb,5.4156e-02_rb,4.6927e-02_rb, &
+     &3.3356e-02_rb,2.0535e-02_rb,9.0297e-02_rb/)
+      kao(:, 4,11, 1) = (/ &
+     &7.2468e-03_rb,3.7809e-02_rb,5.1257e-02_rb,5.6080e-02_rb,5.4294e-02_rb,4.7574e-02_rb, &
+     &3.3980e-02_rb,2.1720e-02_rb,9.1828e-02_rb/)
+      kao(:, 5,11, 1) = (/ &
+     &6.9859e-03_rb,3.6737e-02_rb,5.0287e-02_rb,5.5092e-02_rb,5.3946e-02_rb,4.8082e-02_rb, &
+     &3.4738e-02_rb,2.2682e-02_rb,9.1913e-02_rb/)
+      kao(:, 1,12, 1) = (/ &
+     &6.8723e-03_rb,3.4461e-02_rb,4.6618e-02_rb,5.0325e-02_rb,4.5843e-02_rb,3.7154e-02_rb, &
+     &2.6350e-02_rb,1.5945e-02_rb,7.4796e-02_rb/)
+      kao(:, 2,12, 1) = (/ &
+     &6.6342e-03_rb,3.3814e-02_rb,4.5285e-02_rb,4.9258e-02_rb,4.6140e-02_rb,3.8916e-02_rb, &
+     &2.7614e-02_rb,1.6684e-02_rb,7.6431e-02_rb/)
+      kao(:, 3,12, 1) = (/ &
+     &6.4256e-03_rb,3.2718e-02_rb,4.4302e-02_rb,4.8163e-02_rb,4.5963e-02_rb,4.0038e-02_rb, &
+     &2.8672e-02_rb,1.7798e-02_rb,7.6864e-02_rb/)
+      kao(:, 4,12, 1) = (/ &
+     &6.1980e-03_rb,3.1806e-02_rb,4.3232e-02_rb,4.7321e-02_rb,4.6023e-02_rb,4.0771e-02_rb, &
+     &2.9167e-02_rb,1.8567e-02_rb,7.7874e-02_rb/)
+      kao(:, 5,12, 1) = (/ &
+     &5.9663e-03_rb,3.0964e-02_rb,4.2379e-02_rb,4.6375e-02_rb,4.5692e-02_rb,4.1306e-02_rb, &
+     &2.9920e-02_rb,1.9375e-02_rb,7.7903e-02_rb/)
+      kao(:, 1,13, 1) = (/ &
+     &6.1312e-03_rb,2.9682e-02_rb,3.9975e-02_rb,4.3642e-02_rb,4.0252e-02_rb,3.3035e-02_rb, &
+     &2.3558e-02_rb,1.4050e-02_rb,6.6647e-02_rb/)
+      kao(:, 2,13, 1) = (/ &
+     &5.9440e-03_rb,2.8920e-02_rb,3.8788e-02_rb,4.2829e-02_rb,4.0420e-02_rb,3.4105e-02_rb, &
+     &2.4570e-02_rb,1.4699e-02_rb,6.7206e-02_rb/)
+      kao(:, 3,13, 1) = (/ &
+     &5.7437e-03_rb,2.7994e-02_rb,3.7951e-02_rb,4.1862e-02_rb,4.0303e-02_rb,3.5364e-02_rb, &
+     &2.5449e-02_rb,1.5507e-02_rb,6.7644e-02_rb/)
+      kao(:, 4,13, 1) = (/ &
+     &5.5406e-03_rb,2.7263e-02_rb,3.7056e-02_rb,4.0900e-02_rb,3.9818e-02_rb,3.6193e-02_rb, &
+     &2.6077e-02_rb,1.6255e-02_rb,6.7402e-02_rb/)
+      kao(:, 5,13, 1) = (/ &
+     &5.3457e-03_rb,2.6652e-02_rb,3.6336e-02_rb,3.9995e-02_rb,3.9467e-02_rb,3.6352e-02_rb, &
+     &2.6575e-02_rb,1.6998e-02_rb,6.7304e-02_rb/)
+      kao(:, 1, 1, 2) = (/ &
+     &4.1184e-02_rb,2.7179e-01_rb,3.3427e-01_rb,3.7214e-01_rb,4.0092e-01_rb,3.9640e-01_rb, &
+     &3.3752e-01_rb,3.1662e-01_rb,7.0395e-01_rb/)
+      kao(:, 2, 1, 2) = (/ &
+     &3.9613e-02_rb,2.5448e-01_rb,3.1529e-01_rb,3.6420e-01_rb,3.9285e-01_rb,3.8292e-01_rb, &
+     &3.4622e-01_rb,3.3570e-01_rb,7.0351e-01_rb/)
+      kao(:, 3, 1, 2) = (/ &
+     &3.8482e-02_rb,2.4018e-01_rb,3.0435e-01_rb,3.6080e-01_rb,3.8815e-01_rb,3.7286e-01_rb, &
+     &3.5535e-01_rb,3.5400e-01_rb,6.9477e-01_rb/)
+      kao(:, 4, 1, 2) = (/ &
+     &3.7848e-02_rb,2.2963e-01_rb,2.9537e-01_rb,3.6193e-01_rb,3.8220e-01_rb,3.7308e-01_rb, &
+     &3.6939e-01_rb,3.6570e-01_rb,6.8368e-01_rb/)
+      kao(:, 5, 1, 2) = (/ &
+     &3.7774e-02_rb,2.2394e-01_rb,2.9359e-01_rb,3.5744e-01_rb,3.7874e-01_rb,3.6962e-01_rb, &
+     &3.8607e-01_rb,3.7579e-01_rb,6.9280e-01_rb/)
+      kao(:, 1, 2, 2) = (/ &
+     &3.5631e-02_rb,2.2069e-01_rb,2.7258e-01_rb,3.1550e-01_rb,3.3342e-01_rb,3.2657e-01_rb, &
+     &2.8024e-01_rb,2.7588e-01_rb,5.9197e-01_rb/)
+      kao(:, 2, 2, 2) = (/ &
+     &3.4562e-02_rb,2.0891e-01_rb,2.6384e-01_rb,3.1412e-01_rb,3.2954e-01_rb,3.2211e-01_rb, &
+     &2.9490e-01_rb,2.9533e-01_rb,5.8323e-01_rb/)
+      kao(:, 3, 2, 2) = (/ &
+     &3.3571e-02_rb,1.9802e-01_rb,2.5784e-01_rb,3.1122e-01_rb,3.2677e-01_rb,3.1912e-01_rb, &
+     &3.0590e-01_rb,3.0715e-01_rb,5.7853e-01_rb/)
+      kao(:, 4, 2, 2) = (/ &
+     &3.2736e-02_rb,1.9123e-01_rb,2.5333e-01_rb,3.0890e-01_rb,3.2624e-01_rb,3.1676e-01_rb, &
+     &3.1863e-01_rb,3.1850e-01_rb,5.8754e-01_rb/)
+      kao(:, 5, 2, 2) = (/ &
+     &3.2264e-02_rb,1.8835e-01_rb,2.5452e-01_rb,3.0891e-01_rb,3.2749e-01_rb,3.1271e-01_rb, &
+     &3.2651e-01_rb,3.2839e-01_rb,5.9068e-01_rb/)
+      kao(:, 1, 3, 2) = (/ &
+     &3.1584e-02_rb,1.8152e-01_rb,2.2653e-01_rb,2.6984e-01_rb,2.8266e-01_rb,2.7419e-01_rb, &
+     &2.3718e-01_rb,2.3355e-01_rb,4.9551e-01_rb/)
+      kao(:, 2, 3, 2) = (/ &
+     &3.0265e-02_rb,1.7457e-01_rb,2.2109e-01_rb,2.6703e-01_rb,2.7958e-01_rb,2.7087e-01_rb, &
+     &2.4754e-01_rb,2.5014e-01_rb,4.9470e-01_rb/)
+      kao(:, 3, 3, 2) = (/ &
+     &2.9150e-02_rb,1.6735e-01_rb,2.1902e-01_rb,2.6391e-01_rb,2.7849e-01_rb,2.6534e-01_rb, &
+     &2.5781e-01_rb,2.6293e-01_rb,4.9430e-01_rb/)
+      kao(:, 4, 3, 2) = (/ &
+     &2.8592e-02_rb,1.6364e-01_rb,2.1995e-01_rb,2.6189e-01_rb,2.7866e-01_rb,2.6352e-01_rb, &
+     &2.7044e-01_rb,2.7363e-01_rb,4.9527e-01_rb/)
+      kao(:, 5, 3, 2) = (/ &
+     &2.8231e-02_rb,1.6046e-01_rb,2.1887e-01_rb,2.6443e-01_rb,2.7635e-01_rb,2.6884e-01_rb, &
+     &2.7778e-01_rb,2.8066e-01_rb,4.9153e-01_rb/)
+      kao(:, 1, 4, 2) = (/ &
+     &2.7586e-02_rb,1.5275e-01_rb,1.9293e-01_rb,2.2899e-01_rb,2.4107e-01_rb,2.3244e-01_rb, &
+     &2.0047e-01_rb,1.9534e-01_rb,4.2244e-01_rb/)
+      kao(:, 2, 4, 2) = (/ &
+     &2.6887e-02_rb,1.4829e-01_rb,1.9195e-01_rb,2.2560e-01_rb,2.3907e-01_rb,2.2550e-01_rb, &
+     &2.1032e-01_rb,2.1041e-01_rb,4.2198e-01_rb/)
+      kao(:, 3, 4, 2) = (/ &
+     &2.6805e-02_rb,1.4416e-01_rb,1.9016e-01_rb,2.2531e-01_rb,2.3789e-01_rb,2.2485e-01_rb, &
+     &2.1879e-01_rb,2.2259e-01_rb,4.1901e-01_rb/)
+      kao(:, 4, 4, 2) = (/ &
+     &2.6734e-02_rb,1.4087e-01_rb,1.9109e-01_rb,2.2675e-01_rb,2.3622e-01_rb,2.2628e-01_rb, &
+     &2.2901e-01_rb,2.3158e-01_rb,4.1030e-01_rb/)
+      kao(:, 5, 4, 2) = (/ &
+     &2.6617e-02_rb,1.3796e-01_rb,1.9377e-01_rb,2.2557e-01_rb,2.3342e-01_rb,2.2649e-01_rb, &
+     &2.3523e-01_rb,2.3617e-01_rb,4.1160e-01_rb/)
+      kao(:, 1, 5, 2) = (/ &
+     &2.5332e-02_rb,1.2963e-01_rb,1.6655e-01_rb,1.9042e-01_rb,2.0895e-01_rb,1.9510e-01_rb, &
+     &1.6916e-01_rb,1.6222e-01_rb,3.6316e-01_rb/)
+      kao(:, 2, 5, 2) = (/ &
+     &2.5181e-02_rb,1.2537e-01_rb,1.6592e-01_rb,1.8998e-01_rb,2.0621e-01_rb,1.9136e-01_rb, &
+     &1.7764e-01_rb,1.7625e-01_rb,3.5695e-01_rb/)
+      kao(:, 3, 5, 2) = (/ &
+     &2.4972e-02_rb,1.2219e-01_rb,1.6618e-01_rb,1.9129e-01_rb,2.0217e-01_rb,1.9130e-01_rb, &
+     &1.8535e-01_rb,1.8719e-01_rb,3.4788e-01_rb/)
+      kao(:, 4, 5, 2) = (/ &
+     &2.4749e-02_rb,1.2096e-01_rb,1.6848e-01_rb,1.9087e-01_rb,1.9911e-01_rb,1.9130e-01_rb, &
+     &1.9341e-01_rb,1.9372e-01_rb,3.4412e-01_rb/)
+      kao(:, 5, 5, 2) = (/ &
+     &2.4660e-02_rb,1.2126e-01_rb,1.7164e-01_rb,1.8946e-01_rb,1.9462e-01_rb,1.9216e-01_rb, &
+     &1.9926e-01_rb,1.9935e-01_rb,3.3902e-01_rb/)
+      kao(:, 1, 6, 2) = (/ &
+     &2.3422e-02_rb,1.0907e-01_rb,1.4314e-01_rb,1.6055e-01_rb,1.7919e-01_rb,1.6497e-01_rb, &
+     &1.4423e-01_rb,1.3518e-01_rb,3.0537e-01_rb/)
+      kao(:, 2, 6, 2) = (/ &
+     &2.3193e-02_rb,1.0714e-01_rb,1.4280e-01_rb,1.6151e-01_rb,1.7408e-01_rb,1.6236e-01_rb, &
+     &1.4991e-01_rb,1.4676e-01_rb,2.9795e-01_rb/)
+      kao(:, 3, 6, 2) = (/ &
+     &2.2992e-02_rb,1.0582e-01_rb,1.4541e-01_rb,1.6228e-01_rb,1.7059e-01_rb,1.6204e-01_rb, &
+     &1.5617e-01_rb,1.5704e-01_rb,2.9013e-01_rb/)
+      kao(:, 4, 6, 2) = (/ &
+     &2.2904e-02_rb,1.0595e-01_rb,1.4661e-01_rb,1.6015e-01_rb,1.6718e-01_rb,1.6268e-01_rb, &
+     &1.6254e-01_rb,1.6133e-01_rb,2.8558e-01_rb/)
+      kao(:, 5, 6, 2) = (/ &
+     &2.3037e-02_rb,1.0659e-01_rb,1.4720e-01_rb,1.5884e-01_rb,1.6394e-01_rb,1.6537e-01_rb, &
+     &1.6790e-01_rb,1.6640e-01_rb,2.8291e-01_rb/)
+      kao(:, 1, 7, 2) = (/ &
+     &2.1778e-02_rb,9.4871e-02_rb,1.2415e-01_rb,1.3737e-01_rb,1.5258e-01_rb,1.4160e-01_rb, &
+     &1.2347e-01_rb,1.1302e-01_rb,2.5408e-01_rb/)
+      kao(:, 2, 7, 2) = (/ &
+     &2.1522e-02_rb,9.3423e-02_rb,1.2417e-01_rb,1.3839e-01_rb,1.4741e-01_rb,1.4006e-01_rb, &
+     &1.2799e-01_rb,1.2268e-01_rb,2.4943e-01_rb/)
+      kao(:, 3, 7, 2) = (/ &
+     &2.1257e-02_rb,9.3282e-02_rb,1.2533e-01_rb,1.3843e-01_rb,1.4474e-01_rb,1.3911e-01_rb, &
+     &1.3239e-01_rb,1.3095e-01_rb,2.4208e-01_rb/)
+      kao(:, 4, 7, 2) = (/ &
+     &2.0841e-02_rb,9.3161e-02_rb,1.2672e-01_rb,1.3698e-01_rb,1.4106e-01_rb,1.4019e-01_rb, &
+     &1.3855e-01_rb,1.3550e-01_rb,2.3874e-01_rb/)
+      kao(:, 5, 7, 2) = (/ &
+     &2.0486e-02_rb,9.4079e-02_rb,1.2713e-01_rb,1.3508e-01_rb,1.3852e-01_rb,1.4171e-01_rb, &
+     &1.4291e-01_rb,1.3980e-01_rb,2.3641e-01_rb/)
+      kao(:, 1, 8, 2) = (/ &
+     &2.0219e-02_rb,8.3245e-02_rb,1.0821e-01_rb,1.1854e-01_rb,1.3123e-01_rb,1.2323e-01_rb, &
+     &1.0617e-01_rb,9.4794e-02_rb,2.1425e-01_rb/)
+      kao(:, 2, 8, 2) = (/ &
+     &1.9540e-02_rb,8.2217e-02_rb,1.0811e-01_rb,1.1985e-01_rb,1.2621e-01_rb,1.2208e-01_rb, &
+     &1.0997e-01_rb,1.0316e-01_rb,2.0956e-01_rb/)
+      kao(:, 3, 8, 2) = (/ &
+     &1.9115e-02_rb,8.1811e-02_rb,1.0961e-01_rb,1.1959e-01_rb,1.2388e-01_rb,1.2129e-01_rb, &
+     &1.1337e-01_rb,1.1053e-01_rb,2.0624e-01_rb/)
+      kao(:, 4, 8, 2) = (/ &
+     &1.8733e-02_rb,8.1851e-02_rb,1.1044e-01_rb,1.1828e-01_rb,1.2090e-01_rb,1.2160e-01_rb, &
+     &1.1850e-01_rb,1.1463e-01_rb,2.0160e-01_rb/)
+      kao(:, 5, 8, 2) = (/ &
+     &1.8489e-02_rb,8.3310e-02_rb,1.0940e-01_rb,1.1607e-01_rb,1.1923e-01_rb,1.2205e-01_rb, &
+     &1.2223e-01_rb,1.1845e-01_rb,2.0014e-01_rb/)
+      kao(:, 1, 9, 2) = (/ &
+     &1.7934e-02_rb,7.2499e-02_rb,9.3347e-02_rb,1.0259e-01_rb,1.1263e-01_rb,1.0693e-01_rb, &
+     &9.0284e-02_rb,7.9546e-02_rb,1.8180e-01_rb/)
+      kao(:, 2, 9, 2) = (/ &
+     &1.7445e-02_rb,7.1879e-02_rb,9.3312e-02_rb,1.0334e-01_rb,1.0867e-01_rb,1.0654e-01_rb, &
+     &9.3871e-02_rb,8.7011e-02_rb,1.7650e-01_rb/)
+      kao(:, 3, 9, 2) = (/ &
+     &1.7054e-02_rb,7.1164e-02_rb,9.4558e-02_rb,1.0223e-01_rb,1.0632e-01_rb,1.0559e-01_rb, &
+     &9.7124e-02_rb,9.3354e-02_rb,1.7444e-01_rb/)
+      kao(:, 4, 9, 2) = (/ &
+     &1.6642e-02_rb,7.2006e-02_rb,9.4764e-02_rb,1.0087e-01_rb,1.0340e-01_rb,1.0507e-01_rb, &
+     &1.0155e-01_rb,9.7191e-02_rb,1.7012e-01_rb/)
+      kao(:, 5, 9, 2) = (/ &
+     &1.6243e-02_rb,7.2866e-02_rb,9.2285e-02_rb,9.9097e-02_rb,1.0185e-01_rb,1.0516e-01_rb, &
+     &1.0490e-01_rb,1.0097e-01_rb,1.7041e-01_rb/)
+      kao(:, 1,10, 2) = (/ &
+     &1.5979e-02_rb,6.3035e-02_rb,8.0318e-02_rb,8.8320e-02_rb,9.6214e-02_rb,9.2269e-02_rb, &
+     &7.7109e-02_rb,6.7263e-02_rb,1.5451e-01_rb/)
+      kao(:, 2,10, 2) = (/ &
+     &1.5470e-02_rb,6.2313e-02_rb,8.0559e-02_rb,8.8699e-02_rb,9.3120e-02_rb,9.2382e-02_rb, &
+     &7.9788e-02_rb,7.3810e-02_rb,1.5001e-01_rb/)
+      kao(:, 3,10, 2) = (/ &
+     &1.4968e-02_rb,6.2321e-02_rb,8.1515e-02_rb,8.7265e-02_rb,9.0898e-02_rb,9.1273e-02_rb, &
+     &8.3098e-02_rb,7.9462e-02_rb,1.4837e-01_rb/)
+      kao(:, 4,10, 2) = (/ &
+     &1.4648e-02_rb,6.3201e-02_rb,8.0459e-02_rb,8.6353e-02_rb,8.8769e-02_rb,9.0582e-02_rb, &
+     &8.6861e-02_rb,8.2886e-02_rb,1.4494e-01_rb/)
+      kao(:, 5,10, 2) = (/ &
+     &1.4327e-02_rb,6.4058e-02_rb,7.8092e-02_rb,8.4556e-02_rb,8.7537e-02_rb,9.0662e-02_rb, &
+     &8.9892e-02_rb,8.5887e-02_rb,1.4505e-01_rb/)
+      kao(:, 1,11, 2) = (/ &
+     &1.3861e-02_rb,5.4196e-02_rb,6.8747e-02_rb,7.5984e-02_rb,8.0767e-02_rb,7.9801e-02_rb, &
+     &6.6830e-02_rb,5.9302e-02_rb,1.2963e-01_rb/)
+      kao(:, 2,11, 2) = (/ &
+     &1.3347e-02_rb,5.4113e-02_rb,6.9722e-02_rb,7.5263e-02_rb,7.8466e-02_rb,7.8575e-02_rb, &
+     &6.9140e-02_rb,6.4556e-02_rb,1.2675e-01_rb/)
+      kao(:, 3,11, 2) = (/ &
+     &1.3016e-02_rb,5.4555e-02_rb,6.9179e-02_rb,7.4613e-02_rb,7.7291e-02_rb,7.7531e-02_rb, &
+     &7.2200e-02_rb,6.9022e-02_rb,1.2482e-01_rb/)
+      kao(:, 4,11, 2) = (/ &
+     &1.2671e-02_rb,5.5408e-02_rb,6.7230e-02_rb,7.3198e-02_rb,7.5526e-02_rb,7.7122e-02_rb, &
+     &7.5177e-02_rb,7.1296e-02_rb,1.2336e-01_rb/)
+      kao(:, 5,11, 2) = (/ &
+     &1.2351e-02_rb,5.6031e-02_rb,6.5093e-02_rb,7.1581e-02_rb,7.4883e-02_rb,7.6822e-02_rb, &
+     &7.7284e-02_rb,7.3771e-02_rb,1.2246e-01_rb/)
+      kao(:, 1,12, 2) = (/ &
+     &1.2126e-02_rb,4.7285e-02_rb,5.9933e-02_rb,6.5129e-02_rb,6.8290e-02_rb,6.7884e-02_rb, &
+     &5.7878e-02_rb,5.1782e-02_rb,1.0839e-01_rb/)
+      kao(:, 2,12, 2) = (/ &
+     &1.1745e-02_rb,4.7398e-02_rb,5.9988e-02_rb,6.4477e-02_rb,6.6821e-02_rb,6.6892e-02_rb, &
+     &6.0270e-02_rb,5.6137e-02_rb,1.0621e-01_rb/)
+      kao(:, 3,12, 2) = (/ &
+     &1.1385e-02_rb,4.8238e-02_rb,5.8218e-02_rb,6.3614e-02_rb,6.5819e-02_rb,6.5904e-02_rb, &
+     &6.2567e-02_rb,5.9036e-02_rb,1.0557e-01_rb/)
+      kao(:, 4,12, 2) = (/ &
+     &1.1087e-02_rb,4.8582e-02_rb,5.6782e-02_rb,6.2244e-02_rb,6.4582e-02_rb,6.5133e-02_rb, &
+     &6.4669e-02_rb,6.1446e-02_rb,1.0435e-01_rb/)
+      kao(:, 5,12, 2) = (/ &
+     &1.0909e-02_rb,4.7898e-02_rb,5.5031e-02_rb,6.0882e-02_rb,6.4057e-02_rb,6.5202e-02_rb, &
+     &6.6350e-02_rb,6.3114e-02_rb,1.0415e-01_rb/)
+      kao(:, 1,13, 2) = (/ &
+     &1.1050e-02_rb,4.2216e-02_rb,5.3216e-02_rb,5.6607e-02_rb,5.8614e-02_rb,5.8762e-02_rb, &
+     &5.1111e-02_rb,4.5278e-02_rb,9.1112e-02_rb/)
+      kao(:, 2,13, 2) = (/ &
+     &1.0650e-02_rb,4.2640e-02_rb,5.2374e-02_rb,5.5676e-02_rb,5.7428e-02_rb,5.7903e-02_rb, &
+     &5.3022e-02_rb,4.8756e-02_rb,9.0299e-02_rb/)
+      kao(:, 3,13, 2) = (/ &
+     &1.0375e-02_rb,4.2997e-02_rb,5.0849e-02_rb,5.4963e-02_rb,5.6516e-02_rb,5.6613e-02_rb, &
+     &5.4398e-02_rb,5.1351e-02_rb,8.9757e-02_rb/)
+      kao(:, 4,13, 2) = (/ &
+     &1.0186e-02_rb,4.2550e-02_rb,4.9650e-02_rb,5.4126e-02_rb,5.6087e-02_rb,5.6100e-02_rb, &
+     &5.5740e-02_rb,5.3111e-02_rb,8.9898e-02_rb/)
+      kao(:, 5,13, 2) = (/ &
+     &9.9803e-03_rb,4.1596e-02_rb,4.8435e-02_rb,5.3214e-02_rb,5.5733e-02_rb,5.6166e-02_rb, &
+     &5.6820e-02_rb,5.4773e-02_rb,8.9718e-02_rb/)
+      kao(:, 1, 1, 3) = (/ &
+     &1.0349e-01_rb,2.2333e-01_rb,4.3448e-01_rb,4.7188e-01_rb,4.9049e-01_rb,5.6379e-01_rb, &
+     &6.8188e-01_rb,5.5213e-01_rb,8.7331e-01_rb/)
+      kao(:, 2, 1, 3) = (/ &
+     &9.8776e-02_rb,2.3587e-01_rb,4.2090e-01_rb,4.7099e-01_rb,4.8532e-01_rb,5.6756e-01_rb, &
+     &6.8304e-01_rb,5.3972e-01_rb,8.6585e-01_rb/)
+      kao(:, 3, 1, 3) = (/ &
+     &9.4379e-02_rb,2.4459e-01_rb,4.0703e-01_rb,4.4771e-01_rb,4.8054e-01_rb,5.8051e-01_rb, &
+     &6.8126e-01_rb,5.2715e-01_rb,8.6189e-01_rb/)
+      kao(:, 4, 1, 3) = (/ &
+     &8.9966e-02_rb,2.4911e-01_rb,4.0891e-01_rb,4.3132e-01_rb,4.8073e-01_rb,5.8214e-01_rb, &
+     &6.7058e-01_rb,5.2176e-01_rb,8.6463e-01_rb/)
+      kao(:, 5, 1, 3) = (/ &
+     &8.6080e-02_rb,2.4561e-01_rb,4.0823e-01_rb,4.3495e-01_rb,4.8341e-01_rb,5.8583e-01_rb, &
+     &6.6494e-01_rb,5.1295e-01_rb,8.6781e-01_rb/)
+      kao(:, 1, 2, 3) = (/ &
+     &9.1121e-02_rb,2.7597e-01_rb,3.6090e-01_rb,3.8864e-01_rb,4.2468e-01_rb,5.0778e-01_rb, &
+     &6.0614e-01_rb,4.7263e-01_rb,7.5147e-01_rb/)
+      kao(:, 2, 2, 3) = (/ &
+     &8.6968e-02_rb,2.8112e-01_rb,3.5384e-01_rb,3.7604e-01_rb,4.2522e-01_rb,5.1397e-01_rb, &
+     &5.9893e-01_rb,4.6387e-01_rb,7.5402e-01_rb/)
+      kao(:, 3, 2, 3) = (/ &
+     &8.3177e-02_rb,2.8458e-01_rb,3.4657e-01_rb,3.6832e-01_rb,4.2349e-01_rb,5.1886e-01_rb, &
+     &5.9537e-01_rb,4.5576e-01_rb,7.6481e-01_rb/)
+      kao(:, 4, 2, 3) = (/ &
+     &7.9593e-02_rb,2.8362e-01_rb,3.4405e-01_rb,3.6602e-01_rb,4.2737e-01_rb,5.2263e-01_rb, &
+     &5.9169e-01_rb,4.4715e-01_rb,7.7154e-01_rb/)
+      kao(:, 5, 2, 3) = (/ &
+     &7.6305e-02_rb,2.7901e-01_rb,3.3923e-01_rb,3.6563e-01_rb,4.2905e-01_rb,5.2631e-01_rb, &
+     &5.9188e-01_rb,4.4184e-01_rb,7.8075e-01_rb/)
+      kao(:, 1, 3, 3) = (/ &
+     &8.1532e-02_rb,2.6557e-01_rb,3.0691e-01_rb,3.2639e-01_rb,3.6998e-01_rb,4.4624e-01_rb, &
+     &5.2995e-01_rb,4.1015e-01_rb,6.5448e-01_rb/)
+      kao(:, 2, 3, 3) = (/ &
+     &7.8061e-02_rb,2.5705e-01_rb,3.0144e-01_rb,3.1922e-01_rb,3.7157e-01_rb,4.5007e-01_rb, &
+     &5.2671e-01_rb,4.0238e-01_rb,6.6049e-01_rb/)
+      kao(:, 3, 3, 3) = (/ &
+     &7.4871e-02_rb,2.4964e-01_rb,2.9703e-01_rb,3.1658e-01_rb,3.7272e-01_rb,4.5628e-01_rb, &
+     &5.2424e-01_rb,3.9540e-01_rb,6.6589e-01_rb/)
+      kao(:, 4, 3, 3) = (/ &
+     &7.1934e-02_rb,2.4252e-01_rb,2.8855e-01_rb,3.1667e-01_rb,3.7723e-01_rb,4.6275e-01_rb, &
+     &5.1485e-01_rb,3.8931e-01_rb,6.7492e-01_rb/)
+      kao(:, 5, 3, 3) = (/ &
+     &6.9067e-02_rb,2.3451e-01_rb,2.8461e-01_rb,3.1625e-01_rb,3.8425e-01_rb,4.6414e-01_rb, &
+     &5.0872e-01_rb,3.8671e-01_rb,6.9966e-01_rb/)
+      kao(:, 1, 4, 3) = (/ &
+     &7.4166e-02_rb,2.1898e-01_rb,2.6310e-01_rb,2.7673e-01_rb,3.2117e-01_rb,3.8906e-01_rb, &
+     &4.5677e-01_rb,3.5535e-01_rb,5.6605e-01_rb/)
+      kao(:, 2, 4, 3) = (/ &
+     &7.1027e-02_rb,2.1158e-01_rb,2.5634e-01_rb,2.7577e-01_rb,3.2463e-01_rb,3.9708e-01_rb, &
+     &4.5460e-01_rb,3.5060e-01_rb,5.7431e-01_rb/)
+      kao(:, 3, 4, 3) = (/ &
+     &6.8100e-02_rb,2.0832e-01_rb,2.5127e-01_rb,2.7640e-01_rb,3.2722e-01_rb,4.0091e-01_rb, &
+     &4.5112e-01_rb,3.4506e-01_rb,5.8564e-01_rb/)
+      kao(:, 4, 4, 3) = (/ &
+     &6.5366e-02_rb,2.0407e-01_rb,2.4599e-01_rb,2.7530e-01_rb,3.3554e-01_rb,4.0555e-01_rb, &
+     &4.3614e-01_rb,3.4106e-01_rb,6.0722e-01_rb/)
+      kao(:, 5, 4, 3) = (/ &
+     &6.2828e-02_rb,2.0183e-01_rb,2.4016e-01_rb,2.8032e-01_rb,3.4415e-01_rb,4.1256e-01_rb, &
+     &4.2811e-01_rb,3.3888e-01_rb,6.2274e-01_rb/)
+      kao(:, 1, 5, 3) = (/ &
+     &6.8085e-02_rb,1.8443e-01_rb,2.2193e-01_rb,2.4125e-01_rb,2.7858e-01_rb,3.3878e-01_rb, &
+     &3.9224e-01_rb,3.0775e-01_rb,4.8825e-01_rb/)
+      kao(:, 2, 5, 3) = (/ &
+     &6.5024e-02_rb,1.8062e-01_rb,2.1594e-01_rb,2.3959e-01_rb,2.8255e-01_rb,3.4709e-01_rb, &
+     &3.8693e-01_rb,3.0387e-01_rb,4.9773e-01_rb/)
+      kao(:, 3, 5, 3) = (/ &
+     &6.2309e-02_rb,1.7709e-01_rb,2.1233e-01_rb,2.4099e-01_rb,2.9052e-01_rb,3.5084e-01_rb, &
+     &3.7550e-01_rb,2.9937e-01_rb,5.1983e-01_rb/)
+      kao(:, 4, 5, 3) = (/ &
+     &6.0049e-02_rb,1.7340e-01_rb,2.0891e-01_rb,2.4567e-01_rb,2.9963e-01_rb,3.5573e-01_rb, &
+     &3.6423e-01_rb,2.9642e-01_rb,5.3792e-01_rb/)
+      kao(:, 5, 5, 3) = (/ &
+     &5.7860e-02_rb,1.7101e-01_rb,2.0517e-01_rb,2.5155e-01_rb,3.0986e-01_rb,3.5542e-01_rb, &
+     &3.5482e-01_rb,2.9214e-01_rb,5.5424e-01_rb/)
+      kao(:, 1, 6, 3) = (/ &
+     &6.1553e-02_rb,1.6486e-01_rb,1.8851e-01_rb,2.1013e-01_rb,2.4069e-01_rb,2.9423e-01_rb, &
+     &3.2998e-01_rb,2.6499e-01_rb,4.1520e-01_rb/)
+      kao(:, 2, 6, 3) = (/ &
+     &5.8962e-02_rb,1.6161e-01_rb,1.8469e-01_rb,2.1043e-01_rb,2.4572e-01_rb,3.0023e-01_rb, &
+     &3.2384e-01_rb,2.6279e-01_rb,4.2954e-01_rb/)
+      kao(:, 3, 6, 3) = (/ &
+     &5.6865e-02_rb,1.5845e-01_rb,1.8137e-01_rb,2.1320e-01_rb,2.5567e-01_rb,3.0422e-01_rb, &
+     &3.1399e-01_rb,2.5823e-01_rb,4.4811e-01_rb/)
+      kao(:, 4, 6, 3) = (/ &
+     &5.4727e-02_rb,1.5470e-01_rb,1.8033e-01_rb,2.2018e-01_rb,2.6466e-01_rb,3.0350e-01_rb, &
+     &3.0450e-01_rb,2.5479e-01_rb,4.6359e-01_rb/)
+      kao(:, 5, 6, 3) = (/ &
+     &5.2654e-02_rb,1.5114e-01_rb,1.8009e-01_rb,2.2727e-01_rb,2.7074e-01_rb,3.0288e-01_rb, &
+     &2.9697e-01_rb,2.5146e-01_rb,4.7630e-01_rb/)
+      kao(:, 1, 7, 3) = (/ &
+     &5.4386e-02_rb,1.4374e-01_rb,1.6223e-01_rb,1.8219e-01_rb,2.0984e-01_rb,2.5288e-01_rb, &
+     &2.7777e-01_rb,2.2929e-01_rb,3.5662e-01_rb/)
+      kao(:, 2, 7, 3) = (/ &
+     &5.2357e-02_rb,1.4042e-01_rb,1.5995e-01_rb,1.8335e-01_rb,2.1810e-01_rb,2.5710e-01_rb, &
+     &2.7180e-01_rb,2.2723e-01_rb,3.7033e-01_rb/)
+      kao(:, 3, 7, 3) = (/ &
+     &5.0433e-02_rb,1.3664e-01_rb,1.5916e-01_rb,1.8872e-01_rb,2.2495e-01_rb,2.5913e-01_rb, &
+     &2.6518e-01_rb,2.2296e-01_rb,3.8796e-01_rb/)
+      kao(:, 4, 7, 3) = (/ &
+     &4.8970e-02_rb,1.3435e-01_rb,1.5882e-01_rb,1.9514e-01_rb,2.3146e-01_rb,2.5861e-01_rb, &
+     &2.5643e-01_rb,2.1963e-01_rb,4.0045e-01_rb/)
+      kao(:, 5, 7, 3) = (/ &
+     &4.7677e-02_rb,1.3141e-01_rb,1.5996e-01_rb,2.0198e-01_rb,2.3377e-01_rb,2.5698e-01_rb, &
+     &2.5063e-01_rb,2.1548e-01_rb,4.0471e-01_rb/)
+      kao(:, 1, 8, 3) = (/ &
+     &4.9561e-02_rb,1.2585e-01_rb,1.4205e-01_rb,1.6041e-01_rb,1.8455e-01_rb,2.1813e-01_rb, &
+     &2.3719e-01_rb,1.9955e-01_rb,3.0456e-01_rb/)
+      kao(:, 2, 8, 3) = (/ &
+     &4.7879e-02_rb,1.2232e-01_rb,1.4089e-01_rb,1.6222e-01_rb,1.9194e-01_rb,2.2092e-01_rb, &
+     &2.3163e-01_rb,1.9730e-01_rb,3.1885e-01_rb/)
+      kao(:, 3, 8, 3) = (/ &
+     &4.6426e-02_rb,1.1957e-01_rb,1.4043e-01_rb,1.6717e-01_rb,1.9752e-01_rb,2.2121e-01_rb, &
+     &2.2638e-01_rb,1.9261e-01_rb,3.3187e-01_rb/)
+      kao(:, 4, 8, 3) = (/ &
+     &4.5268e-02_rb,1.1738e-01_rb,1.4149e-01_rb,1.7294e-01_rb,2.0208e-01_rb,2.2061e-01_rb, &
+     &2.1864e-01_rb,1.8926e-01_rb,3.4074e-01_rb/)
+      kao(:, 5, 8, 3) = (/ &
+     &4.3956e-02_rb,1.1566e-01_rb,1.4446e-01_rb,1.7951e-01_rb,2.0361e-01_rb,2.1938e-01_rb, &
+     &2.1462e-01_rb,1.8542e-01_rb,3.4583e-01_rb/)
+      kao(:, 1, 9, 3) = (/ &
+     &4.5250e-02_rb,1.0911e-01_rb,1.2308e-01_rb,1.4028e-01_rb,1.6172e-01_rb,1.8816e-01_rb, &
+     &2.0368e-01_rb,1.7299e-01_rb,2.5859e-01_rb/)
+      kao(:, 2, 9, 3) = (/ &
+     &4.3924e-02_rb,1.0618e-01_rb,1.2262e-01_rb,1.4258e-01_rb,1.6714e-01_rb,1.8918e-01_rb, &
+     &1.9807e-01_rb,1.7073e-01_rb,2.7235e-01_rb/)
+      kao(:, 3, 9, 3) = (/ &
+     &4.2608e-02_rb,1.0467e-01_rb,1.2300e-01_rb,1.4745e-01_rb,1.7253e-01_rb,1.8886e-01_rb, &
+     &1.9316e-01_rb,1.6589e-01_rb,2.8262e-01_rb/)
+      kao(:, 4, 9, 3) = (/ &
+     &4.1423e-02_rb,1.0229e-01_rb,1.2419e-01_rb,1.5295e-01_rb,1.7546e-01_rb,1.8853e-01_rb, &
+     &1.8673e-01_rb,1.6267e-01_rb,2.8816e-01_rb/)
+      kao(:, 5, 9, 3) = (/ &
+     &4.0021e-02_rb,1.0144e-01_rb,1.2853e-01_rb,1.5736e-01_rb,1.7632e-01_rb,1.8748e-01_rb, &
+     &1.8330e-01_rb,1.5887e-01_rb,2.9011e-01_rb/)
+      kao(:, 1,10, 3) = (/ &
+     &4.1171e-02_rb,9.3658e-02_rb,1.0622e-01_rb,1.2188e-01_rb,1.4076e-01_rb,1.6261e-01_rb, &
+     &1.7423e-01_rb,1.4922e-01_rb,2.1862e-01_rb/)
+      kao(:, 2,10, 3) = (/ &
+     &3.9662e-02_rb,9.1742e-02_rb,1.0641e-01_rb,1.2434e-01_rb,1.4583e-01_rb,1.6228e-01_rb, &
+     &1.6976e-01_rb,1.4678e-01_rb,2.3073e-01_rb/)
+      kao(:, 3,10, 3) = (/ &
+     &3.8151e-02_rb,8.9581e-02_rb,1.0765e-01_rb,1.2937e-01_rb,1.4971e-01_rb,1.6177e-01_rb, &
+     &1.6479e-01_rb,1.4256e-01_rb,2.3771e-01_rb/)
+      kao(:, 4,10, 3) = (/ &
+     &3.6829e-02_rb,8.8190e-02_rb,1.0980e-01_rb,1.3385e-01_rb,1.5088e-01_rb,1.6121e-01_rb, &
+     &1.5970e-01_rb,1.3919e-01_rb,2.4389e-01_rb/)
+      kao(:, 5,10, 3) = (/ &
+     &3.5799e-02_rb,8.7081e-02_rb,1.1397e-01_rb,1.3613e-01_rb,1.5068e-01_rb,1.6032e-01_rb, &
+     &1.5668e-01_rb,1.3612e-01_rb,2.4347e-01_rb/)
+      kao(:, 1,11, 3) = (/ &
+     &3.5950e-02_rb,7.9375e-02_rb,9.2025e-02_rb,1.0686e-01_rb,1.2416e-01_rb,1.3928e-01_rb, &
+     &1.4761e-01_rb,1.2730e-01_rb,1.9139e-01_rb/)
+      kao(:, 2,11, 3) = (/ &
+     &3.4807e-02_rb,7.7447e-02_rb,9.2655e-02_rb,1.1006e-01_rb,1.2736e-01_rb,1.3892e-01_rb, &
+     &1.4381e-01_rb,1.2426e-01_rb,1.9723e-01_rb/)
+      kao(:, 3,11, 3) = (/ &
+     &3.3668e-02_rb,7.6215e-02_rb,9.4748e-02_rb,1.1430e-01_rb,1.2842e-01_rb,1.3852e-01_rb, &
+     &1.3892e-01_rb,1.2007e-01_rb,2.0316e-01_rb/)
+      kao(:, 4,11, 3) = (/ &
+     &3.2675e-02_rb,7.5405e-02_rb,9.7335e-02_rb,1.1502e-01_rb,1.2820e-01_rb,1.3796e-01_rb, &
+     &1.3569e-01_rb,1.1793e-01_rb,2.0391e-01_rb/)
+      kao(:, 5,11, 3) = (/ &
+     &3.1803e-02_rb,7.5385e-02_rb,1.0078e-01_rb,1.1505e-01_rb,1.2792e-01_rb,1.3782e-01_rb, &
+     &1.3291e-01_rb,1.1573e-01_rb,2.0592e-01_rb/)
+      kao(:, 1,12, 3) = (/ &
+     &3.2107e-02_rb,6.7817e-02_rb,8.0190e-02_rb,9.4418e-02_rb,1.0883e-01_rb,1.2016e-01_rb, &
+     &1.2478e-01_rb,1.0916e-01_rb,1.6437e-01_rb/)
+      kao(:, 2,12, 3) = (/ &
+     &3.0865e-02_rb,6.6495e-02_rb,8.1339e-02_rb,9.7570e-02_rb,1.0958e-01_rb,1.1971e-01_rb, &
+     &1.2159e-01_rb,1.0575e-01_rb,1.6979e-01_rb/)
+      kao(:, 3,12, 3) = (/ &
+     &2.9814e-02_rb,6.5982e-02_rb,8.4322e-02_rb,9.8160e-02_rb,1.0983e-01_rb,1.1899e-01_rb, &
+     &1.1775e-01_rb,1.0260e-01_rb,1.7251e-01_rb/)
+      kao(:, 4,12, 3) = (/ &
+     &2.8719e-02_rb,6.6210e-02_rb,8.5962e-02_rb,9.8372e-02_rb,1.0963e-01_rb,1.1883e-01_rb, &
+     &1.1590e-01_rb,1.0037e-01_rb,1.7377e-01_rb/)
+      kao(:, 5,12, 3) = (/ &
+     &2.7641e-02_rb,6.7001e-02_rb,8.6676e-02_rb,9.9268e-02_rb,1.1059e-01_rb,1.1880e-01_rb, &
+     &1.1301e-01_rb,9.8900e-02_rb,1.7602e-01_rb/)
+      kao(:, 1,13, 3) = (/ &
+     &2.9283e-02_rb,6.0178e-02_rb,7.1238e-02_rb,8.4877e-02_rb,9.5368e-02_rb,1.0416e-01_rb, &
+     &1.0619e-01_rb,9.4038e-02_rb,1.4273e-01_rb/)
+      kao(:, 2,13, 3) = (/ &
+     &2.8137e-02_rb,5.9367e-02_rb,7.3469e-02_rb,8.5617e-02_rb,9.5728e-02_rb,1.0364e-01_rb, &
+     &1.0343e-01_rb,9.0972e-02_rb,1.4741e-01_rb/)
+      kao(:, 3,13, 3) = (/ &
+     &2.7056e-02_rb,5.9346e-02_rb,7.4992e-02_rb,8.5630e-02_rb,9.5820e-02_rb,1.0325e-01_rb, &
+     &1.0105e-01_rb,8.7823e-02_rb,1.4877e-01_rb/)
+      kao(:, 4,13, 3) = (/ &
+     &2.6017e-02_rb,6.0117e-02_rb,7.5313e-02_rb,8.5867e-02_rb,9.6184e-02_rb,1.0321e-01_rb, &
+     &9.9567e-02_rb,8.6122e-02_rb,1.5028e-01_rb/)
+      kao(:, 5,13, 3) = (/ &
+     &2.5188e-02_rb,6.1586e-02_rb,7.5405e-02_rb,8.7449e-02_rb,9.7275e-02_rb,1.0347e-01_rb, &
+     &9.7619e-02_rb,8.4749e-02_rb,1.5271e-01_rb/)
+      kao(:, 1, 1, 4) = (/ &
+     &2.0140e-01_rb,2.2296e-01_rb,3.8441e-01_rb,7.9237e-01_rb,8.6626e-01_rb,8.2263e-01_rb, &
+     &7.4305e-01_rb,7.5768e-01_rb,1.5145e+00_rb/)
+      kao(:, 2, 1, 4) = (/ &
+     &1.9181e-01_rb,2.1723e-01_rb,4.1174e-01_rb,7.7988e-01_rb,8.4188e-01_rb,7.8979e-01_rb, &
+     &7.0362e-01_rb,7.1757e-01_rb,1.4753e+00_rb/)
+      kao(:, 3, 1, 4) = (/ &
+     &1.8358e-01_rb,2.1296e-01_rb,4.3167e-01_rb,7.6375e-01_rb,8.2127e-01_rb,7.5942e-01_rb, &
+     &6.7535e-01_rb,6.8460e-01_rb,1.4372e+00_rb/)
+      kao(:, 4, 1, 4) = (/ &
+     &1.7731e-01_rb,2.0956e-01_rb,4.3260e-01_rb,7.5378e-01_rb,8.0524e-01_rb,7.2961e-01_rb, &
+     &6.5477e-01_rb,6.4648e-01_rb,1.3999e+00_rb/)
+      kao(:, 5, 1, 4) = (/ &
+     &1.7164e-01_rb,2.1055e-01_rb,4.2755e-01_rb,7.3334e-01_rb,7.8436e-01_rb,7.1000e-01_rb, &
+     &6.4297e-01_rb,6.0884e-01_rb,1.3521e+00_rb/)
+      kao(:, 1, 2, 4) = (/ &
+     &1.7302e-01_rb,2.0244e-01_rb,5.3076e-01_rb,6.9942e-01_rb,7.3274e-01_rb,6.9098e-01_rb, &
+     &6.5285e-01_rb,6.3638e-01_rb,1.2559e+00_rb/)
+      kao(:, 2, 2, 4) = (/ &
+     &1.6489e-01_rb,1.9797e-01_rb,5.4053e-01_rb,6.8204e-01_rb,7.0789e-01_rb,6.6109e-01_rb, &
+     &6.3152e-01_rb,6.0382e-01_rb,1.2010e+00_rb/)
+      kao(:, 3, 2, 4) = (/ &
+     &1.5760e-01_rb,1.9570e-01_rb,5.4478e-01_rb,6.6415e-01_rb,6.8272e-01_rb,6.3617e-01_rb, &
+     &6.0950e-01_rb,5.7193e-01_rb,1.1640e+00_rb/)
+      kao(:, 4, 2, 4) = (/ &
+     &1.5184e-01_rb,1.9435e-01_rb,5.4381e-01_rb,6.4780e-01_rb,6.6147e-01_rb,6.1692e-01_rb, &
+     &5.8732e-01_rb,5.4197e-01_rb,1.1223e+00_rb/)
+      kao(:, 5, 2, 4) = (/ &
+     &1.4698e-01_rb,1.9520e-01_rb,5.4107e-01_rb,6.3896e-01_rb,6.4395e-01_rb,6.0782e-01_rb, &
+     &5.7401e-01_rb,5.1623e-01_rb,1.0839e+00_rb/)
+      kao(:, 1, 3, 4) = (/ &
+     &1.5095e-01_rb,2.3961e-01_rb,5.3891e-01_rb,5.9274e-01_rb,6.0360e-01_rb,5.9975e-01_rb, &
+     &5.7583e-01_rb,5.3639e-01_rb,1.0254e+00_rb/)
+      kao(:, 2, 3, 4) = (/ &
+     &1.4378e-01_rb,2.4579e-01_rb,5.2840e-01_rb,5.8072e-01_rb,5.8574e-01_rb,5.7325e-01_rb, &
+     &5.5457e-01_rb,5.1150e-01_rb,9.9368e-01_rb/)
+      kao(:, 3, 3, 4) = (/ &
+     &1.3744e-01_rb,2.5218e-01_rb,5.1071e-01_rb,5.6679e-01_rb,5.6782e-01_rb,5.5647e-01_rb, &
+     &5.3781e-01_rb,4.7984e-01_rb,9.5622e-01_rb/)
+      kao(:, 4, 3, 4) = (/ &
+     &1.3182e-01_rb,2.5642e-01_rb,4.9891e-01_rb,5.5373e-01_rb,5.5212e-01_rb,5.4201e-01_rb, &
+     &5.2720e-01_rb,4.5497e-01_rb,9.3692e-01_rb/)
+      kao(:, 5, 3, 4) = (/ &
+     &1.2736e-01_rb,2.6156e-01_rb,4.9042e-01_rb,5.4609e-01_rb,5.4094e-01_rb,5.2788e-01_rb, &
+     &5.2063e-01_rb,4.2896e-01_rb,9.1393e-01_rb/)
+      kao(:, 1, 4, 4) = (/ &
+     &1.3296e-01_rb,3.0808e-01_rb,4.5560e-01_rb,5.0161e-01_rb,5.1973e-01_rb,5.1660e-01_rb, &
+     &5.1162e-01_rb,4.5889e-01_rb,8.7778e-01_rb/)
+      kao(:, 2, 4, 4) = (/ &
+     &1.2659e-01_rb,3.1156e-01_rb,4.4164e-01_rb,4.8779e-01_rb,5.0041e-01_rb,4.9812e-01_rb, &
+     &4.9015e-01_rb,4.3243e-01_rb,8.4542e-01_rb/)
+      kao(:, 3, 4, 4) = (/ &
+     &1.2094e-01_rb,3.1188e-01_rb,4.3105e-01_rb,4.7578e-01_rb,4.8617e-01_rb,4.8333e-01_rb, &
+     &4.7842e-01_rb,4.0299e-01_rb,8.1678e-01_rb/)
+      kao(:, 4, 4, 4) = (/ &
+     &1.1593e-01_rb,3.1351e-01_rb,4.2237e-01_rb,4.6451e-01_rb,4.7350e-01_rb,4.7079e-01_rb, &
+     &4.7610e-01_rb,3.7858e-01_rb,7.9667e-01_rb/)
+      kao(:, 5, 4, 4) = (/ &
+     &1.1150e-01_rb,3.1306e-01_rb,4.1390e-01_rb,4.5362e-01_rb,4.6429e-01_rb,4.6167e-01_rb, &
+     &4.7081e-01_rb,3.5772e-01_rb,7.7552e-01_rb/)
+      kao(:, 1, 5, 4) = (/ &
+     &1.1755e-01_rb,3.2807e-01_rb,3.8548e-01_rb,4.2521e-01_rb,4.4554e-01_rb,4.5203e-01_rb, &
+     &4.4500e-01_rb,3.9225e-01_rb,7.4478e-01_rb/)
+      kao(:, 2, 5, 4) = (/ &
+     &1.1209e-01_rb,3.1909e-01_rb,3.7705e-01_rb,4.1235e-01_rb,4.2996e-01_rb,4.3302e-01_rb, &
+     &4.3279e-01_rb,3.6494e-01_rb,7.1780e-01_rb/)
+      kao(:, 3, 5, 4) = (/ &
+     &1.0716e-01_rb,3.1181e-01_rb,3.6570e-01_rb,3.9834e-01_rb,4.1575e-01_rb,4.2162e-01_rb, &
+     &4.2981e-01_rb,3.4051e-01_rb,6.9974e-01_rb/)
+      kao(:, 4, 5, 4) = (/ &
+     &1.0275e-01_rb,3.0301e-01_rb,3.5750e-01_rb,3.8990e-01_rb,4.0553e-01_rb,4.1539e-01_rb, &
+     &4.2536e-01_rb,3.1843e-01_rb,6.8036e-01_rb/)
+      kao(:, 5, 5, 4) = (/ &
+     &9.8998e-02_rb,2.9446e-01_rb,3.5111e-01_rb,3.8417e-01_rb,3.9923e-01_rb,4.1474e-01_rb, &
+     &4.2083e-01_rb,3.0243e-01_rb,6.6644e-01_rb/)
+      kao(:, 1, 6, 4) = (/ &
+     &1.0705e-01_rb,2.7318e-01_rb,3.3208e-01_rb,3.6143e-01_rb,3.8591e-01_rb,3.9313e-01_rb, &
+     &3.9284e-01_rb,3.3741e-01_rb,6.4786e-01_rb/)
+      kao(:, 2, 6, 4) = (/ &
+     &1.0199e-01_rb,2.6545e-01_rb,3.2251e-01_rb,3.5040e-01_rb,3.7450e-01_rb,3.7890e-01_rb, &
+     &3.8585e-01_rb,3.0993e-01_rb,6.2347e-01_rb/)
+      kao(:, 3, 6, 4) = (/ &
+     &9.7437e-02_rb,2.5576e-01_rb,3.1499e-01_rb,3.4107e-01_rb,3.6300e-01_rb,3.7247e-01_rb, &
+     &3.8009e-01_rb,2.8815e-01_rb,6.0580e-01_rb/)
+      kao(:, 4, 6, 4) = (/ &
+     &9.3482e-02_rb,2.4922e-01_rb,3.0800e-01_rb,3.3313e-01_rb,3.5414e-01_rb,3.7096e-01_rb, &
+     &3.7706e-01_rb,2.7157e-01_rb,5.9892e-01_rb/)
+      kao(:, 5, 6, 4) = (/ &
+     &9.0031e-02_rb,2.4481e-01_rb,3.0199e-01_rb,3.2745e-01_rb,3.5204e-01_rb,3.7018e-01_rb, &
+     &3.6552e-01_rb,2.5507e-01_rb,5.9364e-01_rb/)
+      kao(:, 1, 7, 4) = (/ &
+     &1.0201e-01_rb,2.3487e-01_rb,2.8528e-01_rb,3.1378e-01_rb,3.3635e-01_rb,3.4598e-01_rb, &
+     &3.4770e-01_rb,2.9069e-01_rb,5.6026e-01_rb/)
+      kao(:, 2, 7, 4) = (/ &
+     &9.7333e-02_rb,2.2730e-01_rb,2.7830e-01_rb,3.0507e-01_rb,3.2187e-01_rb,3.3481e-01_rb, &
+     &3.4172e-01_rb,2.6797e-01_rb,5.4227e-01_rb/)
+      kao(:, 3, 7, 4) = (/ &
+     &9.3243e-02_rb,2.2136e-01_rb,2.6944e-01_rb,2.9618e-01_rb,3.1454e-01_rb,3.2973e-01_rb, &
+     &3.3451e-01_rb,2.4821e-01_rb,5.2884e-01_rb/)
+      kao(:, 4, 7, 4) = (/ &
+     &8.9660e-02_rb,2.1638e-01_rb,2.6334e-01_rb,2.9056e-01_rb,3.1245e-01_rb,3.2791e-01_rb, &
+     &3.2519e-01_rb,2.3192e-01_rb,5.2407e-01_rb/)
+      kao(:, 5, 7, 4) = (/ &
+     &8.6492e-02_rb,2.1156e-01_rb,2.5984e-01_rb,2.8528e-01_rb,3.1573e-01_rb,3.2789e-01_rb, &
+     &3.1681e-01_rb,2.1806e-01_rb,5.2688e-01_rb/)
+      kao(:, 1, 8, 4) = (/ &
+     &1.0039e-01_rb,2.1049e-01_rb,2.5117e-01_rb,2.7733e-01_rb,2.9294e-01_rb,3.0451e-01_rb, &
+     &3.0671e-01_rb,2.5418e-01_rb,4.9108e-01_rb/)
+      kao(:, 2, 8, 4) = (/ &
+     &9.6148e-02_rb,2.0539e-01_rb,2.4350e-01_rb,2.6931e-01_rb,2.8451e-01_rb,2.9582e-01_rb, &
+     &3.0170e-01_rb,2.3605e-01_rb,4.7511e-01_rb/)
+      kao(:, 3, 8, 4) = (/ &
+     &9.2145e-02_rb,2.0009e-01_rb,2.3646e-01_rb,2.6177e-01_rb,2.7896e-01_rb,2.9276e-01_rb, &
+     &2.9264e-01_rb,2.1892e-01_rb,4.6537e-01_rb/)
+      kao(:, 4, 8, 4) = (/ &
+     &8.8569e-02_rb,1.9568e-01_rb,2.3097e-01_rb,2.5688e-01_rb,2.7814e-01_rb,2.9214e-01_rb, &
+     &2.8481e-01_rb,2.0263e-01_rb,4.6603e-01_rb/)
+      kao(:, 5, 8, 4) = (/ &
+     &8.5629e-02_rb,1.9094e-01_rb,2.2714e-01_rb,2.5259e-01_rb,2.7953e-01_rb,2.8904e-01_rb, &
+     &2.7433e-01_rb,1.9066e-01_rb,4.6777e-01_rb/)
+      kao(:, 1, 9, 4) = (/ &
+     &9.8021e-02_rb,1.9151e-01_rb,2.2309e-01_rb,2.4564e-01_rb,2.5865e-01_rb,2.6783e-01_rb, &
+     &2.6894e-01_rb,2.2292e-01_rb,4.2854e-01_rb/)
+      kao(:, 2, 9, 4) = (/ &
+     &9.3022e-02_rb,1.8527e-01_rb,2.1592e-01_rb,2.3651e-01_rb,2.5064e-01_rb,2.6055e-01_rb, &
+     &2.6499e-01_rb,2.0617e-01_rb,4.1580e-01_rb/)
+      kao(:, 3, 9, 4) = (/ &
+     &8.8595e-02_rb,1.8097e-01_rb,2.1073e-01_rb,2.3156e-01_rb,2.4703e-01_rb,2.5851e-01_rb, &
+     &2.5441e-01_rb,1.9146e-01_rb,4.1005e-01_rb/)
+      kao(:, 4, 9, 4) = (/ &
+     &8.4486e-02_rb,1.7670e-01_rb,2.0686e-01_rb,2.2734e-01_rb,2.4622e-01_rb,2.5730e-01_rb, &
+     &2.4711e-01_rb,1.7700e-01_rb,4.1054e-01_rb/)
+      kao(:, 5, 9, 4) = (/ &
+     &8.1546e-02_rb,1.7284e-01_rb,2.0523e-01_rb,2.2674e-01_rb,2.4921e-01_rb,2.5266e-01_rb, &
+     &2.3614e-01_rb,1.6619e-01_rb,4.1551e-01_rb/)
+      kao(:, 1,10, 4) = (/ &
+     &9.1049e-02_rb,1.7362e-01_rb,1.9833e-01_rb,2.1764e-01_rb,2.2798e-01_rb,2.3471e-01_rb, &
+     &2.3646e-01_rb,1.9422e-01_rb,3.7343e-01_rb/)
+      kao(:, 2,10, 4) = (/ &
+     &8.6996e-02_rb,1.6791e-01_rb,1.9240e-01_rb,2.1075e-01_rb,2.2237e-01_rb,2.2936e-01_rb, &
+     &2.3178e-01_rb,1.7985e-01_rb,3.6356e-01_rb/)
+      kao(:, 3,10, 4) = (/ &
+     &8.2800e-02_rb,1.6395e-01_rb,1.8777e-01_rb,2.0552e-01_rb,2.1940e-01_rb,2.2862e-01_rb, &
+     &2.2169e-01_rb,1.6614e-01_rb,3.6046e-01_rb/)
+      kao(:, 4,10, 4) = (/ &
+     &7.8811e-02_rb,1.5975e-01_rb,1.8561e-01_rb,2.0375e-01_rb,2.1988e-01_rb,2.2450e-01_rb, &
+     &2.1345e-01_rb,1.5492e-01_rb,3.6096e-01_rb/)
+      kao(:, 5,10, 4) = (/ &
+     &7.5529e-02_rb,1.5650e-01_rb,1.8353e-01_rb,2.0505e-01_rb,2.1950e-01_rb,2.1739e-01_rb, &
+     &2.0454e-01_rb,1.4507e-01_rb,3.6055e-01_rb/)
+      kao(:, 1,11, 4) = (/ &
+     &7.7672e-02_rb,1.5145e-01_rb,1.7382e-01_rb,1.8990e-01_rb,1.9990e-01_rb,2.0432e-01_rb, &
+     &2.0547e-01_rb,1.6386e-01_rb,3.1843e-01_rb/)
+      kao(:, 2,11, 4) = (/ &
+     &7.3723e-02_rb,1.4611e-01_rb,1.6807e-01_rb,1.8489e-01_rb,1.9610e-01_rb,2.0254e-01_rb, &
+     &1.9720e-01_rb,1.5217e-01_rb,3.1488e-01_rb/)
+      kao(:, 3,11, 4) = (/ &
+     &7.0457e-02_rb,1.4249e-01_rb,1.6412e-01_rb,1.8266e-01_rb,1.9585e-01_rb,1.9778e-01_rb, &
+     &1.8906e-01_rb,1.4085e-01_rb,3.1421e-01_rb/)
+      kao(:, 4,11, 4) = (/ &
+     &6.7094e-02_rb,1.3863e-01_rb,1.6386e-01_rb,1.8321e-01_rb,1.9415e-01_rb,1.9186e-01_rb, &
+     &1.8023e-01_rb,1.3105e-01_rb,3.1088e-01_rb/)
+      kao(:, 5,11, 4) = (/ &
+     &6.4100e-02_rb,1.3524e-01_rb,1.6357e-01_rb,1.8497e-01_rb,1.9137e-01_rb,1.8498e-01_rb, &
+     &1.7319e-01_rb,1.2321e-01_rb,3.0324e-01_rb/)
+      kao(:, 1,12, 4) = (/ &
+     &6.6765e-02_rb,1.2994e-01_rb,1.4944e-01_rb,1.6445e-01_rb,1.7587e-01_rb,1.8101e-01_rb, &
+     &1.7769e-01_rb,1.3984e-01_rb,2.7673e-01_rb/)
+      kao(:, 2,12, 4) = (/ &
+     &6.3023e-02_rb,1.2593e-01_rb,1.4588e-01_rb,1.6162e-01_rb,1.7387e-01_rb,1.7653e-01_rb, &
+     &1.6990e-01_rb,1.2980e-01_rb,2.7397e-01_rb/)
+      kao(:, 3,12, 4) = (/ &
+     &6.0078e-02_rb,1.2173e-01_rb,1.4433e-01_rb,1.6136e-01_rb,1.7141e-01_rb,1.7100e-01_rb, &
+     &1.6190e-01_rb,1.2017e-01_rb,2.6912e-01_rb/)
+      kao(:, 4,12, 4) = (/ &
+     &5.7591e-02_rb,1.1797e-01_rb,1.4432e-01_rb,1.6200e-01_rb,1.6903e-01_rb,1.6549e-01_rb, &
+     &1.5510e-01_rb,1.1177e-01_rb,2.6329e-01_rb/)
+      kao(:, 5,12, 4) = (/ &
+     &5.5506e-02_rb,1.1583e-01_rb,1.4556e-01_rb,1.5779e-01_rb,1.6302e-01_rb,1.5857e-01_rb, &
+     &1.4926e-01_rb,1.0509e-01_rb,2.5258e-01_rb/)
+      kao(:, 1,13, 4) = (/ &
+     &5.9522e-02_rb,1.1440e-01_rb,1.3268e-01_rb,1.4518e-01_rb,1.5668e-01_rb,1.6016e-01_rb, &
+     &1.5672e-01_rb,1.2200e-01_rb,2.4269e-01_rb/)
+      kao(:, 2,13, 4) = (/ &
+     &5.6603e-02_rb,1.1049e-01_rb,1.3023e-01_rb,1.4451e-01_rb,1.5437e-01_rb,1.5452e-01_rb, &
+     &1.4924e-01_rb,1.1346e-01_rb,2.3750e-01_rb/)
+      kao(:, 3,13, 4) = (/ &
+     &5.4101e-02_rb,1.0639e-01_rb,1.2967e-01_rb,1.4482e-01_rb,1.5052e-01_rb,1.4869e-01_rb, &
+     &1.4191e-01_rb,1.0569e-01_rb,2.3366e-01_rb/)
+      kao(:, 4,13, 4) = (/ &
+     &5.1959e-02_rb,1.0421e-01_rb,1.3053e-01_rb,1.4062e-01_rb,1.4577e-01_rb,1.4358e-01_rb, &
+     &1.3605e-01_rb,9.8273e-02_rb,2.2442e-01_rb/)
+      kao(:, 5,13, 4) = (/ &
+     &4.9821e-02_rb,1.0307e-01_rb,1.3162e-01_rb,1.3605e-01_rb,1.4048e-01_rb,1.3772e-01_rb, &
+     &1.3142e-01_rb,9.2354e-02_rb,2.1552e-01_rb/)
+      kao(:, 1, 1, 5) = (/ &
+     &4.4662e-01_rb,4.5491e-01_rb,4.6518e-01_rb,4.8073e-01_rb,9.6301e-01_rb,1.0662e+00_rb, &
+     &9.6837e-01_rb,6.1516e-01_rb,1.5492e+00_rb/)
+      kao(:, 2, 1, 5) = (/ &
+     &4.3070e-01_rb,4.3901e-01_rb,4.4894e-01_rb,4.8843e-01_rb,9.7366e-01_rb,1.0185e+00_rb, &
+     &9.1919e-01_rb,5.9289e-01_rb,1.4372e+00_rb/)
+      kao(:, 3, 1, 5) = (/ &
+     &4.1920e-01_rb,4.2623e-01_rb,4.3584e-01_rb,5.1853e-01_rb,9.4077e-01_rb,9.6967e-01_rb, &
+     &8.7962e-01_rb,5.7716e-01_rb,1.3511e+00_rb/)
+      kao(:, 4, 1, 5) = (/ &
+     &4.1320e-01_rb,4.1951e-01_rb,4.2768e-01_rb,5.3113e-01_rb,8.9548e-01_rb,9.3086e-01_rb, &
+     &8.2656e-01_rb,5.7871e-01_rb,1.2540e+00_rb/)
+      kao(:, 5, 1, 5) = (/ &
+     &4.1049e-01_rb,4.1583e-01_rb,4.2551e-01_rb,5.4820e-01_rb,8.6249e-01_rb,8.9543e-01_rb, &
+     &7.7827e-01_rb,5.9312e-01_rb,1.1774e+00_rb/)
+      kao(:, 1, 2, 5) = (/ &
+     &3.7419e-01_rb,3.9315e-01_rb,4.1387e-01_rb,7.3684e-01_rb,9.3729e-01_rb,9.5798e-01_rb, &
+     &8.1977e-01_rb,5.4534e-01_rb,1.3830e+00_rb/)
+      kao(:, 2, 2, 5) = (/ &
+     &3.6046e-01_rb,3.7870e-01_rb,3.9949e-01_rb,7.5022e-01_rb,8.9119e-01_rb,9.0575e-01_rb, &
+     &7.6682e-01_rb,5.2408e-01_rb,1.3014e+00_rb/)
+      kao(:, 3, 2, 5) = (/ &
+     &3.5058e-01_rb,3.6732e-01_rb,3.9129e-01_rb,7.6077e-01_rb,8.5537e-01_rb,8.6853e-01_rb, &
+     &7.2131e-01_rb,5.2368e-01_rb,1.1992e+00_rb/)
+      kao(:, 4, 2, 5) = (/ &
+     &3.4363e-01_rb,3.5974e-01_rb,3.8593e-01_rb,7.6592e-01_rb,8.1963e-01_rb,8.3241e-01_rb, &
+     &6.8939e-01_rb,5.2630e-01_rb,1.1280e+00_rb/)
+      kao(:, 5, 2, 5) = (/ &
+     &3.4117e-01_rb,3.5633e-01_rb,3.8040e-01_rb,7.4257e-01_rb,7.9365e-01_rb,7.8846e-01_rb, &
+     &6.5921e-01_rb,5.2675e-01_rb,1.0716e+00_rb/)
+      kao(:, 1, 3, 5) = (/ &
+     &3.1617e-01_rb,3.4533e-01_rb,4.9004e-01_rb,8.0662e-01_rb,8.6490e-01_rb,8.2831e-01_rb, &
+     &6.9369e-01_rb,4.9053e-01_rb,1.2685e+00_rb/)
+      kao(:, 2, 3, 5) = (/ &
+     &3.0386e-01_rb,3.3185e-01_rb,4.9271e-01_rb,7.6499e-01_rb,8.1967e-01_rb,7.8960e-01_rb, &
+     &6.4565e-01_rb,4.7244e-01_rb,1.1699e+00_rb/)
+      kao(:, 3, 3, 5) = (/ &
+     &2.9464e-01_rb,3.2055e-01_rb,5.0043e-01_rb,7.2785e-01_rb,7.8235e-01_rb,7.5123e-01_rb, &
+     &6.1372e-01_rb,4.7097e-01_rb,1.0909e+00_rb/)
+      kao(:, 4, 3, 5) = (/ &
+     &2.8765e-01_rb,3.1339e-01_rb,5.0754e-01_rb,6.9697e-01_rb,7.5208e-01_rb,7.1843e-01_rb, &
+     &5.8571e-01_rb,4.6400e-01_rb,1.0036e+00_rb/)
+      kao(:, 5, 3, 5) = (/ &
+     &2.8344e-01_rb,3.0751e-01_rb,5.1242e-01_rb,6.6855e-01_rb,7.1995e-01_rb,6.9218e-01_rb, &
+     &5.7184e-01_rb,4.7451e-01_rb,9.2127e-01_rb/)
+      kao(:, 1, 4, 5) = (/ &
+     &2.6775e-01_rb,3.0604e-01_rb,6.4660e-01_rb,7.3076e-01_rb,7.6521e-01_rb,7.2923e-01_rb, &
+     &5.8618e-01_rb,4.3353e-01_rb,1.1015e+00_rb/)
+      kao(:, 2, 4, 5) = (/ &
+     &2.5632e-01_rb,2.9306e-01_rb,6.2522e-01_rb,6.9215e-01_rb,7.2674e-01_rb,6.8433e-01_rb, &
+     &5.5230e-01_rb,4.1918e-01_rb,1.0081e+00_rb/)
+      kao(:, 3, 4, 5) = (/ &
+     &2.4780e-01_rb,2.8292e-01_rb,5.9390e-01_rb,6.5413e-01_rb,6.8773e-01_rb,6.5028e-01_rb, &
+     &5.2160e-01_rb,4.1724e-01_rb,9.3062e-01_rb/)
+      kao(:, 4, 4, 5) = (/ &
+     &2.4100e-01_rb,2.7551e-01_rb,5.7041e-01_rb,6.2793e-01_rb,6.5534e-01_rb,6.2452e-01_rb, &
+     &5.0866e-01_rb,4.1719e-01_rb,8.4917e-01_rb/)
+      kao(:, 5, 4, 5) = (/ &
+     &2.3658e-01_rb,2.6967e-01_rb,5.4813e-01_rb,6.0747e-01_rb,6.2636e-01_rb,5.9897e-01_rb, &
+     &4.9899e-01_rb,4.2737e-01_rb,7.8635e-01_rb/)
+      kao(:, 1, 5, 5) = (/ &
+     &2.2714e-01_rb,3.0892e-01_rb,5.8868e-01_rb,6.5760e-01_rb,6.7083e-01_rb,6.2555e-01_rb, &
+     &5.1259e-01_rb,3.8131e-01_rb,9.5049e-01_rb/)
+      kao(:, 2, 5, 5) = (/ &
+     &2.1666e-01_rb,3.0798e-01_rb,5.5062e-01_rb,6.2165e-01_rb,6.2939e-01_rb,5.9031e-01_rb, &
+     &4.8040e-01_rb,3.7074e-01_rb,8.6898e-01_rb/)
+      kao(:, 3, 5, 5) = (/ &
+     &2.0871e-01_rb,3.0702e-01_rb,5.2691e-01_rb,5.8794e-01_rb,5.9599e-01_rb,5.6236e-01_rb, &
+     &4.6150e-01_rb,3.6395e-01_rb,7.8288e-01_rb/)
+      kao(:, 4, 5, 5) = (/ &
+     &2.0276e-01_rb,3.0943e-01_rb,5.0433e-01_rb,5.5988e-01_rb,5.6518e-01_rb,5.3494e-01_rb, &
+     &4.4833e-01_rb,3.6773e-01_rb,7.2419e-01_rb/)
+      kao(:, 5, 5, 5) = (/ &
+     &1.9892e-01_rb,3.1215e-01_rb,4.8278e-01_rb,5.3676e-01_rb,5.4170e-01_rb,5.0924e-01_rb, &
+     &4.4109e-01_rb,3.7855e-01_rb,6.8358e-01_rb/)
+      kao(:, 1, 6, 5) = (/ &
+     &1.9298e-01_rb,3.8310e-01_rb,5.2601e-01_rb,5.8117e-01_rb,5.8505e-01_rb,5.4459e-01_rb, &
+     &4.4513e-01_rb,3.3639e-01_rb,8.1804e-01_rb/)
+      kao(:, 2, 6, 5) = (/ &
+     &1.8380e-01_rb,3.7978e-01_rb,4.9784e-01_rb,5.4325e-01_rb,5.4503e-01_rb,5.1006e-01_rb, &
+     &4.1750e-01_rb,3.2606e-01_rb,7.4136e-01_rb/)
+      kao(:, 3, 6, 5) = (/ &
+     &1.7694e-01_rb,3.8180e-01_rb,4.7027e-01_rb,5.1699e-01_rb,5.1079e-01_rb,4.8235e-01_rb, &
+     &4.0208e-01_rb,3.2052e-01_rb,6.7777e-01_rb/)
+      kao(:, 4, 6, 5) = (/ &
+     &1.7133e-01_rb,3.7179e-01_rb,4.4558e-01_rb,4.8630e-01_rb,4.9002e-01_rb,4.5737e-01_rb, &
+     &3.9155e-01_rb,3.2262e-01_rb,6.2593e-01_rb/)
+      kao(:, 5, 6, 5) = (/ &
+     &1.6754e-01_rb,3.5443e-01_rb,4.2444e-01_rb,4.6383e-01_rb,4.6954e-01_rb,4.4064e-01_rb, &
+     &3.8904e-01_rb,3.3286e-01_rb,5.7664e-01_rb/)
+      kao(:, 1, 7, 5) = (/ &
+     &1.6680e-01_rb,3.8673e-01_rb,4.6977e-01_rb,5.0982e-01_rb,5.0645e-01_rb,4.7419e-01_rb, &
+     &3.9067e-01_rb,2.9795e-01_rb,7.1500e-01_rb/)
+      kao(:, 2, 7, 5) = (/ &
+     &1.5848e-01_rb,3.6483e-01_rb,4.3657e-01_rb,4.7719e-01_rb,4.7339e-01_rb,4.4276e-01_rb, &
+     &3.6591e-01_rb,2.8456e-01_rb,6.4266e-01_rb/)
+      kao(:, 3, 7, 5) = (/ &
+     &1.5206e-01_rb,3.4607e-01_rb,4.1294e-01_rb,4.4755e-01_rb,4.4747e-01_rb,4.1880e-01_rb, &
+     &3.5274e-01_rb,2.8027e-01_rb,5.8922e-01_rb/)
+      kao(:, 4, 7, 5) = (/ &
+     &1.4707e-01_rb,3.2827e-01_rb,3.9251e-01_rb,4.2303e-01_rb,4.2524e-01_rb,3.9890e-01_rb, &
+     &3.4920e-01_rb,2.8325e-01_rb,5.4340e-01_rb/)
+      kao(:, 5, 7, 5) = (/ &
+     &1.4361e-01_rb,3.1545e-01_rb,3.7348e-01_rb,4.0710e-01_rb,4.0646e-01_rb,3.8591e-01_rb, &
+     &3.3880e-01_rb,2.9285e-01_rb,5.0986e-01_rb/)
+      kao(:, 1, 8, 5) = (/ &
+     &1.4820e-01_rb,3.5091e-01_rb,4.2013e-01_rb,4.5147e-01_rb,4.5056e-01_rb,4.1729e-01_rb, &
+     &3.4786e-01_rb,2.6599e-01_rb,6.3121e-01_rb/)
+      kao(:, 2, 8, 5) = (/ &
+     &1.4070e-01_rb,3.2895e-01_rb,3.9148e-01_rb,4.1739e-01_rb,4.1786e-01_rb,3.8937e-01_rb, &
+     &3.2642e-01_rb,2.5048e-01_rb,5.6833e-01_rb/)
+      kao(:, 3, 8, 5) = (/ &
+     &1.3491e-01_rb,3.1064e-01_rb,3.6928e-01_rb,3.9231e-01_rb,3.9615e-01_rb,3.7023e-01_rb, &
+     &3.1619e-01_rb,2.4413e-01_rb,5.2283e-01_rb/)
+      kao(:, 4, 8, 5) = (/ &
+     &1.3040e-01_rb,2.9486e-01_rb,3.4865e-01_rb,3.7267e-01_rb,3.7585e-01_rb,3.5308e-01_rb, &
+     &3.1289e-01_rb,2.4763e-01_rb,4.8158e-01_rb/)
+      kao(:, 5, 8, 5) = (/ &
+     &1.2713e-01_rb,2.8372e-01_rb,3.3299e-01_rb,3.5768e-01_rb,3.6293e-01_rb,3.4468e-01_rb, &
+     &2.9924e-01_rb,2.5414e-01_rb,4.5058e-01_rb/)
+      kao(:, 1, 9, 5) = (/ &
+     &1.3333e-01_rb,3.1732e-01_rb,3.7806e-01_rb,3.9822e-01_rb,3.9576e-01_rb,3.6830e-01_rb, &
+     &3.0959e-01_rb,2.3751e-01_rb,5.5734e-01_rb/)
+      kao(:, 2, 9, 5) = (/ &
+     &1.2728e-01_rb,2.9745e-01_rb,3.4973e-01_rb,3.7018e-01_rb,3.6774e-01_rb,3.4366e-01_rb, &
+     &2.8994e-01_rb,2.2165e-01_rb,5.0172e-01_rb/)
+      kao(:, 3, 9, 5) = (/ &
+     &1.2260e-01_rb,2.7734e-01_rb,3.2656e-01_rb,3.4735e-01_rb,3.4508e-01_rb,3.2798e-01_rb, &
+     &2.8353e-01_rb,2.1398e-01_rb,4.5989e-01_rb/)
+      kao(:, 4, 9, 5) = (/ &
+     &1.1943e-01_rb,2.6308e-01_rb,3.0660e-01_rb,3.2980e-01_rb,3.3173e-01_rb,3.1278e-01_rb, &
+     &2.7390e-01_rb,2.1485e-01_rb,4.2942e-01_rb/)
+      kao(:, 5, 9, 5) = (/ &
+     &1.1701e-01_rb,2.4928e-01_rb,2.9183e-01_rb,3.1474e-01_rb,3.2039e-01_rb,3.0863e-01_rb, &
+     &2.6433e-01_rb,2.1871e-01_rb,3.9836e-01_rb/)
+      kao(:, 1,10, 5) = (/ &
+     &1.2488e-01_rb,2.8649e-01_rb,3.3436e-01_rb,3.5060e-01_rb,3.4715e-01_rb,3.2381e-01_rb, &
+     &2.7352e-01_rb,2.0897e-01_rb,4.9029e-01_rb/)
+      kao(:, 2,10, 5) = (/ &
+     &1.1908e-01_rb,2.6494e-01_rb,3.0883e-01_rb,3.2464e-01_rb,3.2171e-01_rb,3.0303e-01_rb, &
+     &2.5647e-01_rb,1.9520e-01_rb,4.4008e-01_rb/)
+      kao(:, 3,10, 5) = (/ &
+     &1.1556e-01_rb,2.4763e-01_rb,2.8674e-01_rb,3.0514e-01_rb,3.0302e-01_rb,2.8868e-01_rb, &
+     &2.5222e-01_rb,1.8782e-01_rb,4.0842e-01_rb/)
+      kao(:, 4,10, 5) = (/ &
+     &1.1322e-01_rb,2.3334e-01_rb,2.7126e-01_rb,2.8846e-01_rb,2.9340e-01_rb,2.7863e-01_rb, &
+     &2.4033e-01_rb,1.8521e-01_rb,3.8163e-01_rb/)
+      kao(:, 5,10, 5) = (/ &
+     &1.1126e-01_rb,2.2285e-01_rb,2.5915e-01_rb,2.7811e-01_rb,2.8680e-01_rb,2.7376e-01_rb, &
+     &2.3030e-01_rb,1.8823e-01_rb,3.5861e-01_rb/)
+      kao(:, 1,11, 5) = (/ &
+     &1.2133e-01_rb,2.4900e-01_rb,2.8640e-01_rb,2.9703e-01_rb,2.9301e-01_rb,2.7475e-01_rb, &
+     &2.3250e-01_rb,1.7899e-01_rb,4.0785e-01_rb/)
+      kao(:, 2,11, 5) = (/ &
+     &1.1707e-01_rb,2.3382e-01_rb,2.6584e-01_rb,2.7776e-01_rb,2.7455e-01_rb,2.6096e-01_rb, &
+     &2.2631e-01_rb,1.6847e-01_rb,3.7573e-01_rb/)
+      kao(:, 3,11, 5) = (/ &
+     &1.1375e-01_rb,2.1845e-01_rb,2.5115e-01_rb,2.6117e-01_rb,2.6335e-01_rb,2.5113e-01_rb, &
+     &2.1653e-01_rb,1.6132e-01_rb,3.4922e-01_rb/)
+      kao(:, 4,11, 5) = (/ &
+     &1.1166e-01_rb,2.0864e-01_rb,2.3761e-01_rb,2.5163e-01_rb,2.5840e-01_rb,2.4419e-01_rb, &
+     &2.0592e-01_rb,1.6130e-01_rb,3.3156e-01_rb/)
+      kao(:, 5,11, 5) = (/ &
+     &1.1026e-01_rb,2.0025e-01_rb,2.2827e-01_rb,2.4711e-01_rb,2.5459e-01_rb,2.3449e-01_rb, &
+     &1.9737e-01_rb,1.6301e-01_rb,3.1155e-01_rb/)
+      kao(:, 1,12, 5) = (/ &
+     &1.2068e-01_rb,2.2498e-01_rb,2.5241e-01_rb,2.6093e-01_rb,2.5316e-01_rb,2.3830e-01_rb, &
+     &2.0580e-01_rb,1.5434e-01_rb,3.4650e-01_rb/)
+      kao(:, 2,12, 5) = (/ &
+     &1.1732e-01_rb,2.1063e-01_rb,2.3754e-01_rb,2.4422e-01_rb,2.4130e-01_rb,2.2913e-01_rb, &
+     &1.9581e-01_rb,1.4538e-01_rb,3.2419e-01_rb/)
+      kao(:, 3,12, 5) = (/ &
+     &1.1291e-01_rb,2.0050e-01_rb,2.2356e-01_rb,2.3528e-01_rb,2.3734e-01_rb,2.2099e-01_rb, &
+     &1.8732e-01_rb,1.4169e-01_rb,3.0809e-01_rb/)
+      kao(:, 4,12, 5) = (/ &
+     &1.0801e-01_rb,1.9213e-01_rb,2.1514e-01_rb,2.2964e-01_rb,2.3229e-01_rb,2.1151e-01_rb, &
+     &1.7615e-01_rb,1.4140e-01_rb,2.8807e-01_rb/)
+      kao(:, 5,12, 5) = (/ &
+     &1.0409e-01_rb,1.8478e-01_rb,2.0856e-01_rb,2.2937e-01_rb,2.2388e-01_rb,2.0038e-01_rb, &
+     &1.7052e-01_rb,1.4327e-01_rb,2.6150e-01_rb/)
+      kao(:, 1,13, 5) = (/ &
+     &1.1514e-01_rb,2.0822e-01_rb,2.3178e-01_rb,2.3757e-01_rb,2.2988e-01_rb,2.1559e-01_rb, &
+     &1.8505e-01_rb,1.3755e-01_rb,3.0255e-01_rb/)
+      kao(:, 2,13, 5) = (/ &
+     &1.0856e-01_rb,1.9378e-01_rb,2.1572e-01_rb,2.2466e-01_rb,2.2140e-01_rb,2.1071e-01_rb, &
+     &1.7476e-01_rb,1.2903e-01_rb,2.8912e-01_rb/)
+      kao(:, 3,13, 5) = (/ &
+     &1.0257e-01_rb,1.8315e-01_rb,2.0306e-01_rb,2.1501e-01_rb,2.1837e-01_rb,1.9973e-01_rb, &
+     &1.6546e-01_rb,1.2594e-01_rb,2.7440e-01_rb/)
+      kao(:, 4,13, 5) = (/ &
+     &9.7502e-02_rb,1.7382e-01_rb,1.9450e-01_rb,2.1448e-01_rb,2.0917e-01_rb,1.8735e-01_rb, &
+     &1.5671e-01_rb,1.2605e-01_rb,2.4875e-01_rb/)
+      kao(:, 5,13, 5) = (/ &
+     &9.4048e-02_rb,1.6507e-01_rb,1.8951e-01_rb,2.1087e-01_rb,1.9884e-01_rb,1.7732e-01_rb, &
+     &1.5188e-01_rb,1.2757e-01_rb,2.1998e-01_rb/)
+      kao(:, 1, 1, 6) = (/ &
+     &1.2242e+00_rb,1.1159e+00_rb,1.0120e+00_rb,9.1389e-01_rb,8.1856e-01_rb,1.1483e+00_rb, &
+     &9.8709e-01_rb,9.2159e-01_rb,4.7502e-01_rb/)
+      kao(:, 2, 1, 6) = (/ &
+     &1.1928e+00_rb,1.0903e+00_rb,9.9311e-01_rb,9.0065e-01_rb,8.3223e-01_rb,1.1145e+00_rb, &
+     &9.5738e-01_rb,9.2153e-01_rb,6.9449e-01_rb/)
+      kao(:, 3, 1, 6) = (/ &
+     &1.1808e+00_rb,1.0824e+00_rb,9.8824e-01_rb,8.9828e-01_rb,8.9586e-01_rb,1.0864e+00_rb, &
+     &9.3281e-01_rb,9.2795e-01_rb,8.4213e-01_rb/)
+      kao(:, 4, 1, 6) = (/ &
+     &1.1721e+00_rb,1.0760e+00_rb,9.8481e-01_rb,8.9679e-01_rb,9.5583e-01_rb,1.0646e+00_rb, &
+     &9.4941e-01_rb,9.2047e-01_rb,8.5863e-01_rb/)
+      kao(:, 5, 1, 6) = (/ &
+     &1.1790e+00_rb,1.0814e+00_rb,9.8996e-01_rb,8.9927e-01_rb,1.0035e+00_rb,1.0346e+00_rb, &
+     &9.5167e-01_rb,9.2657e-01_rb,7.2509e-01_rb/)
+      kao(:, 1, 2, 6) = (/ &
+     &1.0264e+00_rb,9.4284e-01_rb,8.6709e-01_rb,7.9559e-01_rb,1.1080e+00_rb,1.0254e+00_rb, &
+     &9.2224e-01_rb,8.7122e-01_rb,1.0512e+00_rb/)
+      kao(:, 2, 2, 6) = (/ &
+     &1.0018e+00_rb,9.2359e-01_rb,8.5299e-01_rb,7.8672e-01_rb,1.0674e+00_rb,9.8417e-01_rb, &
+     &8.9700e-01_rb,8.6779e-01_rb,9.4293e-01_rb/)
+      kao(:, 3, 2, 6) = (/ &
+     &9.8988e-01_rb,9.1596e-01_rb,8.4833e-01_rb,7.8816e-01_rb,1.0499e+00_rb,9.5536e-01_rb, &
+     &8.7579e-01_rb,8.5648e-01_rb,8.1445e-01_rb/)
+      kao(:, 4, 2, 6) = (/ &
+     &9.8822e-01_rb,9.1536e-01_rb,8.4663e-01_rb,7.9377e-01_rb,1.0292e+00_rb,9.3843e-01_rb, &
+     &8.7227e-01_rb,8.6174e-01_rb,7.0730e-01_rb/)
+      kao(:, 5, 2, 6) = (/ &
+     &9.8800e-01_rb,9.1393e-01_rb,8.4855e-01_rb,8.2484e-01_rb,1.0072e+00_rb,9.4807e-01_rb, &
+     &8.8827e-01_rb,8.7216e-01_rb,5.9331e-01_rb/)
+      kao(:, 1, 3, 6) = (/ &
+     &8.6794e-01_rb,8.0430e-01_rb,7.5031e-01_rb,8.9541e-01_rb,1.0214e+00_rb,9.4865e-01_rb, &
+     &8.5821e-01_rb,7.9700e-01_rb,8.7719e-01_rb/)
+      kao(:, 2, 3, 6) = (/ &
+     &8.4313e-01_rb,7.8532e-01_rb,7.3608e-01_rb,9.3906e-01_rb,9.7060e-01_rb,9.0816e-01_rb, &
+     &8.3425e-01_rb,7.9621e-01_rb,7.6329e-01_rb/)
+      kao(:, 3, 3, 6) = (/ &
+     &8.3157e-01_rb,7.7858e-01_rb,7.3266e-01_rb,9.5972e-01_rb,9.4116e-01_rb,8.8096e-01_rb, &
+     &8.0848e-01_rb,7.9477e-01_rb,6.5966e-01_rb/)
+      kao(:, 4, 3, 6) = (/ &
+     &8.2987e-01_rb,7.7678e-01_rb,7.3040e-01_rb,9.3971e-01_rb,9.0923e-01_rb,8.7002e-01_rb, &
+     &8.0556e-01_rb,8.1217e-01_rb,6.0022e-01_rb/)
+      kao(:, 5, 3, 6) = (/ &
+     &8.2093e-01_rb,7.6968e-01_rb,7.2610e-01_rb,9.2404e-01_rb,8.9670e-01_rb,8.5391e-01_rb, &
+     &7.9373e-01_rb,8.1610e-01_rb,5.3117e-01_rb/)
+      kao(:, 1, 4, 6) = (/ &
+     &7.3504e-01_rb,6.8896e-01_rb,6.5474e-01_rb,9.5125e-01_rb,9.3510e-01_rb,8.8191e-01_rb, &
+     &7.8339e-01_rb,7.2709e-01_rb,7.9136e-01_rb/)
+      kao(:, 2, 4, 6) = (/ &
+     &7.1205e-01_rb,6.7167e-01_rb,6.7088e-01_rb,9.0689e-01_rb,8.7886e-01_rb,8.4133e-01_rb, &
+     &7.6196e-01_rb,7.2232e-01_rb,6.9067e-01_rb/)
+      kao(:, 3, 4, 6) = (/ &
+     &7.0055e-01_rb,6.6424e-01_rb,7.0492e-01_rb,8.8094e-01_rb,8.5026e-01_rb,8.0832e-01_rb, &
+     &7.4494e-01_rb,7.3074e-01_rb,6.1263e-01_rb/)
+      kao(:, 4, 4, 6) = (/ &
+     &6.9588e-01_rb,6.6015e-01_rb,7.3043e-01_rb,8.5040e-01_rb,8.2745e-01_rb,7.8458e-01_rb, &
+     &7.3728e-01_rb,7.3901e-01_rb,5.3700e-01_rb/)
+      kao(:, 5, 4, 6) = (/ &
+     &6.8558e-01_rb,6.5206e-01_rb,7.5371e-01_rb,8.2365e-01_rb,8.2063e-01_rb,7.6670e-01_rb, &
+     &7.3328e-01_rb,7.4717e-01_rb,4.4797e-01_rb/)
+      kao(:, 1, 5, 6) = (/ &
+     &6.2240e-01_rb,5.9202e-01_rb,7.9818e-01_rb,8.6221e-01_rb,8.4556e-01_rb,7.9840e-01_rb, &
+     &7.0353e-01_rb,6.4834e-01_rb,7.3196e-01_rb/)
+      kao(:, 2, 5, 6) = (/ &
+     &6.0152e-01_rb,5.7633e-01_rb,8.0789e-01_rb,8.1513e-01_rb,8.0789e-01_rb,7.5099e-01_rb, &
+     &6.7710e-01_rb,6.4945e-01_rb,6.3067e-01_rb/)
+      kao(:, 3, 5, 6) = (/ &
+     &5.8999e-01_rb,5.6942e-01_rb,7.6969e-01_rb,7.8647e-01_rb,7.7674e-01_rb,7.1468e-01_rb, &
+     &6.6534e-01_rb,6.5860e-01_rb,5.4173e-01_rb/)
+      kao(:, 4, 5, 6) = (/ &
+     &5.8241e-01_rb,5.6326e-01_rb,7.5015e-01_rb,7.6096e-01_rb,7.5392e-01_rb,6.9429e-01_rb, &
+     &6.6094e-01_rb,6.6621e-01_rb,4.4433e-01_rb/)
+      kao(:, 5, 5, 6) = (/ &
+     &5.7098e-01_rb,5.5310e-01_rb,7.2743e-01_rb,7.3939e-01_rb,7.3730e-01_rb,6.8982e-01_rb, &
+     &6.6680e-01_rb,6.6632e-01_rb,3.5896e-01_rb/)
+      kao(:, 1, 6, 6) = (/ &
+     &5.2885e-01_rb,5.1244e-01_rb,7.5494e-01_rb,7.8724e-01_rb,7.7080e-01_rb,7.0256e-01_rb, &
+     &6.2568e-01_rb,5.6883e-01_rb,6.4732e-01_rb/)
+      kao(:, 2, 6, 6) = (/ &
+     &5.0860e-01_rb,4.9747e-01_rb,7.1101e-01_rb,7.4294e-01_rb,7.2488e-01_rb,6.6139e-01_rb, &
+     &6.0894e-01_rb,5.7630e-01_rb,5.5132e-01_rb/)
+      kao(:, 3, 6, 6) = (/ &
+     &4.9680e-01_rb,4.8858e-01_rb,6.8601e-01_rb,7.0262e-01_rb,6.9083e-01_rb,6.2832e-01_rb, &
+     &5.9581e-01_rb,5.8177e-01_rb,4.5843e-01_rb/)
+      kao(:, 4, 6, 6) = (/ &
+     &4.8828e-01_rb,4.9338e-01_rb,6.6185e-01_rb,6.8834e-01_rb,6.6433e-01_rb,6.1518e-01_rb, &
+     &5.9405e-01_rb,5.8713e-01_rb,3.7286e-01_rb/)
+      kao(:, 5, 6, 6) = (/ &
+     &4.7758e-01_rb,5.0393e-01_rb,6.4306e-01_rb,6.6695e-01_rb,6.4365e-01_rb,6.0629e-01_rb, &
+     &5.9623e-01_rb,5.8994e-01_rb,3.0878e-01_rb/)
+      kao(:, 1, 7, 6) = (/ &
+     &4.5544e-01_rb,5.1675e-01_rb,6.9040e-01_rb,7.2442e-01_rb,6.9583e-01_rb,6.2374e-01_rb, &
+     &5.5330e-01_rb,4.9819e-01_rb,5.7066e-01_rb/)
+      kao(:, 2, 7, 6) = (/ &
+     &4.3526e-01_rb,5.2433e-01_rb,6.5887e-01_rb,6.7132e-01_rb,6.4888e-01_rb,5.8229e-01_rb, &
+     &5.3592e-01_rb,5.0387e-01_rb,4.7263e-01_rb/)
+      kao(:, 3, 7, 6) = (/ &
+     &4.2386e-01_rb,5.3503e-01_rb,6.2067e-01_rb,6.3646e-01_rb,6.0983e-01_rb,5.5722e-01_rb, &
+     &5.2827e-01_rb,5.1003e-01_rb,3.8891e-01_rb/)
+      kao(:, 4, 7, 6) = (/ &
+     &4.1478e-01_rb,5.3714e-01_rb,5.9921e-01_rb,6.0957e-01_rb,5.8334e-01_rb,5.4159e-01_rb, &
+     &5.2418e-01_rb,5.1278e-01_rb,3.1885e-01_rb/)
+      kao(:, 5, 7, 6) = (/ &
+     &4.0467e-01_rb,5.2009e-01_rb,5.7701e-01_rb,5.8575e-01_rb,5.6859e-01_rb,5.4155e-01_rb, &
+     &5.3930e-01_rb,5.1710e-01_rb,2.6235e-01_rb/)
+      kao(:, 1, 8, 6) = (/ &
+     &4.0091e-01_rb,5.6115e-01_rb,6.4335e-01_rb,6.5229e-01_rb,6.2013e-01_rb,5.5832e-01_rb, &
+     &4.9333e-01_rb,4.3362e-01_rb,5.1143e-01_rb/)
+      kao(:, 2, 8, 6) = (/ &
+     &3.8169e-01_rb,5.2953e-01_rb,5.9829e-01_rb,6.0811e-01_rb,5.7734e-01_rb,5.1950e-01_rb, &
+     &4.7393e-01_rb,4.3986e-01_rb,4.2322e-01_rb/)
+      kao(:, 3, 8, 6) = (/ &
+     &3.7078e-01_rb,5.0436e-01_rb,5.6958e-01_rb,5.7197e-01_rb,5.3831e-01_rb,4.9299e-01_rb, &
+     &4.6737e-01_rb,4.4557e-01_rb,3.4628e-01_rb/)
+      kao(:, 4, 8, 6) = (/ &
+     &3.6161e-01_rb,4.8989e-01_rb,5.4426e-01_rb,5.4657e-01_rb,5.1938e-01_rb,4.8189e-01_rb, &
+     &4.6346e-01_rb,4.4852e-01_rb,2.8491e-01_rb/)
+      kao(:, 5, 8, 6) = (/ &
+     &3.5235e-01_rb,4.6785e-01_rb,5.2499e-01_rb,5.2434e-01_rb,5.0210e-01_rb,4.7954e-01_rb, &
+     &4.8680e-01_rb,4.5258e-01_rb,2.3809e-01_rb/)
+      kao(:, 1, 9, 6) = (/ &
+     &3.5188e-01_rb,5.0784e-01_rb,5.8680e-01_rb,5.8599e-01_rb,5.5453e-01_rb,4.9355e-01_rb, &
+     &4.3434e-01_rb,3.7345e-01_rb,4.5760e-01_rb/)
+      kao(:, 2, 9, 6) = (/ &
+     &3.3384e-01_rb,4.7725e-01_rb,5.4527e-01_rb,5.4039e-01_rb,5.1277e-01_rb,4.6053e-01_rb, &
+     &4.1752e-01_rb,3.8054e-01_rb,3.7664e-01_rb/)
+      kao(:, 3, 9, 6) = (/ &
+     &3.2337e-01_rb,4.6079e-01_rb,5.0889e-01_rb,5.0540e-01_rb,4.8167e-01_rb,4.3259e-01_rb, &
+     &4.1005e-01_rb,3.8447e-01_rb,3.0502e-01_rb/)
+      kao(:, 4, 9, 6) = (/ &
+     &3.1489e-01_rb,4.4224e-01_rb,4.8906e-01_rb,4.8098e-01_rb,4.5962e-01_rb,4.2889e-01_rb, &
+     &4.1407e-01_rb,3.8891e-01_rb,2.4901e-01_rb/)
+      kao(:, 5, 9, 6) = (/ &
+     &3.0731e-01_rb,4.2604e-01_rb,4.6542e-01_rb,4.6457e-01_rb,4.4425e-01_rb,4.2325e-01_rb, &
+     &4.3000e-01_rb,3.9500e-01_rb,2.1365e-01_rb/)
+      kao(:, 1,10, 6) = (/ &
+     &3.0872e-01_rb,4.6438e-01_rb,5.2605e-01_rb,5.1940e-01_rb,4.8758e-01_rb,4.3435e-01_rb, &
+     &3.8048e-01_rb,3.2415e-01_rb,4.0329e-01_rb/)
+      kao(:, 2,10, 6) = (/ &
+     &2.9295e-01_rb,4.4115e-01_rb,4.8348e-01_rb,4.7740e-01_rb,4.4909e-01_rb,4.0221e-01_rb, &
+     &3.6624e-01_rb,3.2721e-01_rb,3.3011e-01_rb/)
+      kao(:, 3,10, 6) = (/ &
+     &2.8328e-01_rb,4.1772e-01_rb,4.5515e-01_rb,4.4741e-01_rb,4.2330e-01_rb,3.8012e-01_rb, &
+     &3.5851e-01_rb,3.3085e-01_rb,2.6425e-01_rb/)
+      kao(:, 4,10, 6) = (/ &
+     &2.7562e-01_rb,4.0009e-01_rb,4.2827e-01_rb,4.2695e-01_rb,4.0250e-01_rb,3.7844e-01_rb, &
+     &3.6844e-01_rb,3.3695e-01_rb,2.1886e-01_rb/)
+      kao(:, 5,10, 6) = (/ &
+     &2.6849e-01_rb,3.8403e-01_rb,4.1066e-01_rb,4.0861e-01_rb,3.9231e-01_rb,3.7926e-01_rb, &
+     &3.7696e-01_rb,3.4332e-01_rb,1.9262e-01_rb/)
+      kao(:, 1,11, 6) = (/ &
+     &2.6466e-01_rb,4.1355e-01_rb,4.4454e-01_rb,4.4042e-01_rb,4.1233e-01_rb,3.6752e-01_rb, &
+     &3.2678e-01_rb,2.7894e-01_rb,3.2749e-01_rb/)
+      kao(:, 2,11, 6) = (/ &
+     &2.5291e-01_rb,3.8781e-01_rb,4.1430e-01_rb,4.0659e-01_rb,3.8277e-01_rb,3.4153e-01_rb, &
+     &3.1495e-01_rb,2.7988e-01_rb,2.6257e-01_rb/)
+      kao(:, 3,11, 6) = (/ &
+     &2.4541e-01_rb,3.7100e-01_rb,3.8849e-01_rb,3.8315e-01_rb,3.6055e-01_rb,3.3569e-01_rb, &
+     &3.1896e-01_rb,2.8851e-01_rb,2.1720e-01_rb/)
+      kao(:, 4,11, 6) = (/ &
+     &2.3761e-01_rb,3.4992e-01_rb,3.7138e-01_rb,3.6645e-01_rb,3.4895e-01_rb,3.3415e-01_rb, &
+     &3.2576e-01_rb,2.9375e-01_rb,1.9101e-01_rb/)
+      kao(:, 5,11, 6) = (/ &
+     &2.3136e-01_rb,3.3422e-01_rb,3.5550e-01_rb,3.5462e-01_rb,3.4596e-01_rb,3.4410e-01_rb, &
+     &3.3336e-01_rb,3.0010e-01_rb,1.7683e-01_rb/)
+      kao(:, 1,12, 6) = (/ &
+     &2.3099e-01_rb,3.6467e-01_rb,3.8654e-01_rb,3.7740e-01_rb,3.5454e-01_rb,3.1341e-01_rb, &
+     &2.8207e-01_rb,2.4141e-01_rb,2.7098e-01_rb/)
+      kao(:, 2,12, 6) = (/ &
+     &2.2244e-01_rb,3.4190e-01_rb,3.5753e-01_rb,3.5048e-01_rb,3.3109e-01_rb,2.9786e-01_rb, &
+     &2.7909e-01_rb,2.4469e-01_rb,2.1730e-01_rb/)
+      kao(:, 3,12, 6) = (/ &
+     &2.1694e-01_rb,3.2183e-01_rb,3.3982e-01_rb,3.3193e-01_rb,3.1521e-01_rb,2.9823e-01_rb, &
+     &2.8101e-01_rb,2.4988e-01_rb,1.8539e-01_rb/)
+      kao(:, 4,12, 6) = (/ &
+     &2.1365e-01_rb,3.0582e-01_rb,3.2214e-01_rb,3.1915e-01_rb,3.0963e-01_rb,3.0101e-01_rb, &
+     &2.9010e-01_rb,2.5511e-01_rb,1.7246e-01_rb/)
+      kao(:, 5,12, 6) = (/ &
+     &2.1126e-01_rb,2.9440e-01_rb,3.1065e-01_rb,3.1395e-01_rb,3.1604e-01_rb,3.0993e-01_rb, &
+     &2.9537e-01_rb,2.6162e-01_rb,1.5291e-01_rb/)
+      kao(:, 1,13, 6) = (/ &
+     &2.2386e-01_rb,3.3097e-01_rb,3.4162e-01_rb,3.3327e-01_rb,3.1314e-01_rb,2.7728e-01_rb, &
+     &2.5014e-01_rb,2.1154e-01_rb,2.3428e-01_rb/)
+      kao(:, 2,13, 6) = (/ &
+     &2.2040e-01_rb,3.1261e-01_rb,3.2237e-01_rb,3.1373e-01_rb,2.9682e-01_rb,2.6651e-01_rb, &
+     &2.5032e-01_rb,2.1702e-01_rb,1.9039e-01_rb/)
+      kao(:, 3,13, 6) = (/ &
+     &2.1610e-01_rb,2.9730e-01_rb,3.0955e-01_rb,3.0133e-01_rb,2.8651e-01_rb,2.7201e-01_rb, &
+     &2.5430e-01_rb,2.2027e-01_rb,1.6665e-01_rb/)
+      kao(:, 4,13, 6) = (/ &
+     &2.1312e-01_rb,2.8629e-01_rb,2.9748e-01_rb,2.9400e-01_rb,2.8967e-01_rb,2.7599e-01_rb, &
+     &2.5853e-01_rb,2.2523e-01_rb,1.5373e-01_rb/)
+      kao(:, 5,13, 6) = (/ &
+     &2.0806e-01_rb,2.7757e-01_rb,2.8967e-01_rb,2.9354e-01_rb,2.9376e-01_rb,2.8253e-01_rb, &
+     &2.6218e-01_rb,2.3101e-01_rb,1.3574e-01_rb/)
+      kao(:, 1, 1, 7) = (/ &
+     &3.5613e+00_rb,3.1188e+00_rb,2.6764e+00_rb,2.2340e+00_rb,1.7917e+00_rb,1.6352e+00_rb, &
+     &1.8092e+00_rb,1.6379e+00_rb,2.7539e-02_rb/)
+      kao(:, 2, 1, 7) = (/ &
+     &3.4002e+00_rb,2.9785e+00_rb,2.5569e+00_rb,2.1349e+00_rb,1.7133e+00_rb,1.7200e+00_rb, &
+     &1.7738e+00_rb,1.6325e+00_rb,3.6313e-02_rb/)
+      kao(:, 3, 1, 7) = (/ &
+     &3.2557e+00_rb,2.8529e+00_rb,2.4503e+00_rb,2.0478e+00_rb,1.6479e+00_rb,1.7947e+00_rb, &
+     &1.7613e+00_rb,1.6123e+00_rb,7.9598e-02_rb/)
+      kao(:, 4, 1, 7) = (/ &
+     &3.1418e+00_rb,2.7541e+00_rb,2.3673e+00_rb,1.9817e+00_rb,1.6011e+00_rb,1.8327e+00_rb, &
+     &1.7198e+00_rb,1.6148e+00_rb,2.1944e-01_rb/)
+      kao(:, 5, 1, 7) = (/ &
+     &3.1204e+00_rb,2.7380e+00_rb,2.3562e+00_rb,1.9785e+00_rb,1.6099e+00_rb,1.8773e+00_rb, &
+     &1.7180e+00_rb,1.6127e+00_rb,2.9776e-01_rb/)
+      kao(:, 1, 2, 7) = (/ &
+     &2.9874e+00_rb,2.6163e+00_rb,2.2453e+00_rb,1.8746e+00_rb,1.5312e+00_rb,1.8525e+00_rb, &
+     &1.7071e+00_rb,1.5893e+00_rb,5.1776e-01_rb/)
+      kao(:, 2, 2, 7) = (/ &
+     &2.8505e+00_rb,2.4972e+00_rb,2.1440e+00_rb,1.7909e+00_rb,1.5966e+00_rb,1.8306e+00_rb, &
+     &1.6863e+00_rb,1.5842e+00_rb,4.3879e-01_rb/)
+      kao(:, 3, 2, 7) = (/ &
+     &2.7350e+00_rb,2.3969e+00_rb,2.0589e+00_rb,1.7214e+00_rb,1.6370e+00_rb,1.7877e+00_rb, &
+     &1.6805e+00_rb,1.5918e+00_rb,4.1523e-01_rb/)
+      kao(:, 4, 2, 7) = (/ &
+     &2.6409e+00_rb,2.3156e+00_rb,1.9935e+00_rb,1.6727e+00_rb,1.6830e+00_rb,1.7575e+00_rb, &
+     &1.6634e+00_rb,1.5980e+00_rb,2.9373e-01_rb/)
+      kao(:, 5, 2, 7) = (/ &
+     &2.5886e+00_rb,2.2740e+00_rb,1.9607e+00_rb,1.6497e+00_rb,1.7391e+00_rb,1.7232e+00_rb, &
+     &1.6344e+00_rb,1.6105e+00_rb,1.8509e-01_rb/)
+      kao(:, 1, 3, 7) = (/ &
+     &2.5285e+00_rb,2.2147e+00_rb,1.9010e+00_rb,1.5874e+00_rb,1.8079e+00_rb,1.7347e+00_rb, &
+     &1.6267e+00_rb,1.5173e+00_rb,4.9543e-01_rb/)
+      kao(:, 2, 3, 7) = (/ &
+     &2.4109e+00_rb,2.1124e+00_rb,1.8139e+00_rb,1.5156e+00_rb,1.7831e+00_rb,1.7011e+00_rb, &
+     &1.6143e+00_rb,1.5141e+00_rb,4.4268e-01_rb/)
+      kao(:, 3, 3, 7) = (/ &
+     &2.3122e+00_rb,2.0266e+00_rb,1.7413e+00_rb,1.4891e+00_rb,1.7442e+00_rb,1.6741e+00_rb, &
+     &1.6075e+00_rb,1.5297e+00_rb,3.4522e-01_rb/)
+      kao(:, 4, 3, 7) = (/ &
+     &2.2338e+00_rb,1.9602e+00_rb,1.6889e+00_rb,1.5208e+00_rb,1.7228e+00_rb,1.6317e+00_rb, &
+     &1.5933e+00_rb,1.5434e+00_rb,2.1394e-01_rb/)
+      kao(:, 5, 3, 7) = (/ &
+     &2.1901e+00_rb,1.9250e+00_rb,1.6600e+00_rb,1.5510e+00_rb,1.6972e+00_rb,1.6258e+00_rb, &
+     &1.5808e+00_rb,1.5686e+00_rb,1.5097e-01_rb/)
+      kao(:, 1, 4, 7) = (/ &
+     &2.1490e+00_rb,1.8824e+00_rb,1.6159e+00_rb,1.5783e+00_rb,1.6916e+00_rb,1.6097e+00_rb, &
+     &1.5676e+00_rb,1.4069e+00_rb,5.0896e-01_rb/)
+      kao(:, 2, 4, 7) = (/ &
+     &2.0429e+00_rb,1.7900e+00_rb,1.5373e+00_rb,1.6130e+00_rb,1.6613e+00_rb,1.5828e+00_rb, &
+     &1.5388e+00_rb,1.4176e+00_rb,3.7374e-01_rb/)
+      kao(:, 3, 4, 7) = (/ &
+     &1.9560e+00_rb,1.7146e+00_rb,1.4748e+00_rb,1.6326e+00_rb,1.6129e+00_rb,1.5608e+00_rb, &
+     &1.5146e+00_rb,1.4336e+00_rb,2.6187e-01_rb/)
+      kao(:, 4, 4, 7) = (/ &
+     &1.8914e+00_rb,1.6603e+00_rb,1.4322e+00_rb,1.6118e+00_rb,1.5843e+00_rb,1.5418e+00_rb, &
+     &1.4880e+00_rb,1.4608e+00_rb,1.8007e-01_rb/)
+      kao(:, 5, 4, 7) = (/ &
+     &1.8569e+00_rb,1.6328e+00_rb,1.4097e+00_rb,1.6022e+00_rb,1.5587e+00_rb,1.5446e+00_rb, &
+     &1.4805e+00_rb,1.4912e+00_rb,1.1749e-01_rb/)
+      kao(:, 1, 5, 7) = (/ &
+     &1.8276e+00_rb,1.6010e+00_rb,1.3745e+00_rb,1.6030e+00_rb,1.5630e+00_rb,1.5166e+00_rb, &
+     &1.4457e+00_rb,1.2855e+00_rb,4.3144e-01_rb/)
+      kao(:, 2, 5, 7) = (/ &
+     &1.7325e+00_rb,1.5182e+00_rb,1.3289e+00_rb,1.5483e+00_rb,1.5172e+00_rb,1.4962e+00_rb, &
+     &1.4204e+00_rb,1.2974e+00_rb,3.2532e-01_rb/)
+      kao(:, 3, 5, 7) = (/ &
+     &1.6556e+00_rb,1.4514e+00_rb,1.3491e+00_rb,1.5022e+00_rb,1.4839e+00_rb,1.4801e+00_rb, &
+     &1.3899e+00_rb,1.3214e+00_rb,2.2874e-01_rb/)
+      kao(:, 4, 5, 7) = (/ &
+     &1.6008e+00_rb,1.4058e+00_rb,1.3614e+00_rb,1.4817e+00_rb,1.4667e+00_rb,1.4542e+00_rb, &
+     &1.3728e+00_rb,1.3543e+00_rb,1.4774e-01_rb/)
+      kao(:, 5, 5, 7) = (/ &
+     &1.5722e+00_rb,1.3835e+00_rb,1.3910e+00_rb,1.4609e+00_rb,1.4510e+00_rb,1.4341e+00_rb, &
+     &1.3580e+00_rb,1.3940e+00_rb,9.9947e-02_rb/)
+      kao(:, 1, 6, 7) = (/ &
+     &1.5600e+00_rb,1.3665e+00_rb,1.3891e+00_rb,1.4520e+00_rb,1.4361e+00_rb,1.4207e+00_rb, &
+     &1.3105e+00_rb,1.1513e+00_rb,3.8692e-01_rb/)
+      kao(:, 2, 6, 7) = (/ &
+     &1.4739e+00_rb,1.2917e+00_rb,1.3972e+00_rb,1.4114e+00_rb,1.4085e+00_rb,1.3840e+00_rb, &
+     &1.2763e+00_rb,1.1653e+00_rb,2.7607e-01_rb/)
+      kao(:, 3, 6, 7) = (/ &
+     &1.4042e+00_rb,1.2317e+00_rb,1.3535e+00_rb,1.3731e+00_rb,1.3834e+00_rb,1.3540e+00_rb, &
+     &1.2537e+00_rb,1.1954e+00_rb,1.8549e-01_rb/)
+      kao(:, 4, 6, 7) = (/ &
+     &1.3553e+00_rb,1.1909e+00_rb,1.3235e+00_rb,1.3411e+00_rb,1.3606e+00_rb,1.3282e+00_rb, &
+     &1.2356e+00_rb,1.2339e+00_rb,1.3113e-01_rb/)
+      kao(:, 5, 6, 7) = (/ &
+     &1.3290e+00_rb,1.1708e+00_rb,1.3052e+00_rb,1.3291e+00_rb,1.3435e+00_rb,1.3084e+00_rb, &
+     &1.2394e+00_rb,1.2789e+00_rb,8.5104e-02_rb/)
+      kao(:, 1, 7, 7) = (/ &
+     &1.3486e+00_rb,1.1821e+00_rb,1.3320e+00_rb,1.3296e+00_rb,1.3530e+00_rb,1.2921e+00_rb, &
+     &1.1792e+00_rb,1.0146e+00_rb,3.3967e-01_rb/)
+      kao(:, 2, 7, 7) = (/ &
+     &1.2698e+00_rb,1.1140e+00_rb,1.2658e+00_rb,1.2934e+00_rb,1.3084e+00_rb,1.2591e+00_rb, &
+     &1.1496e+00_rb,1.0323e+00_rb,2.4089e-01_rb/)
+      kao(:, 3, 7, 7) = (/ &
+     &1.2066e+00_rb,1.0597e+00_rb,1.2265e+00_rb,1.2606e+00_rb,1.2717e+00_rb,1.2202e+00_rb, &
+     &1.1236e+00_rb,1.0630e+00_rb,1.6653e-01_rb/)
+      kao(:, 4, 7, 7) = (/ &
+     &1.1624e+00_rb,1.0337e+00_rb,1.1938e+00_rb,1.2388e+00_rb,1.2436e+00_rb,1.1958e+00_rb, &
+     &1.1143e+00_rb,1.1071e+00_rb,1.1640e-01_rb/)
+      kao(:, 5, 7, 7) = (/ &
+     &1.1373e+00_rb,1.0419e+00_rb,1.1824e+00_rb,1.2289e+00_rb,1.2206e+00_rb,1.1715e+00_rb, &
+     &1.1114e+00_rb,1.1517e+00_rb,7.1520e-02_rb/)
+      kao(:, 1, 8, 7) = (/ &
+     &1.1959e+00_rb,1.0587e+00_rb,1.2168e+00_rb,1.2562e+00_rb,1.2533e+00_rb,1.1755e+00_rb, &
+     &1.0535e+00_rb,8.9257e-01_rb,2.9562e-01_rb/)
+      kao(:, 2, 8, 7) = (/ &
+     &1.1212e+00_rb,1.0393e+00_rb,1.1676e+00_rb,1.2170e+00_rb,1.2001e+00_rb,1.1361e+00_rb, &
+     &1.0253e+00_rb,9.0430e-01_rb,2.1449e-01_rb/)
+      kao(:, 3, 8, 7) = (/ &
+     &1.0601e+00_rb,1.0297e+00_rb,1.1266e+00_rb,1.1809e+00_rb,1.1623e+00_rb,1.1020e+00_rb, &
+     &1.0023e+00_rb,9.3591e-01_rb,1.5382e-01_rb/)
+      kao(:, 4, 8, 7) = (/ &
+     &1.0187e+00_rb,1.0227e+00_rb,1.0991e+00_rb,1.1460e+00_rb,1.1243e+00_rb,1.0751e+00_rb, &
+     &9.9421e-01_rb,9.7855e-01_rb,1.0944e-01_rb/)
+      kao(:, 5, 8, 7) = (/ &
+     &9.9531e-01_rb,1.0219e+00_rb,1.0832e+00_rb,1.1243e+00_rb,1.1050e+00_rb,1.0609e+00_rb, &
+     &9.9136e-01_rb,1.0252e+00_rb,7.0614e-02_rb/)
+      kao(:, 1, 9, 7) = (/ &
+     &1.0539e+00_rb,1.0559e+00_rb,1.1142e+00_rb,1.1729e+00_rb,1.1295e+00_rb,1.0580e+00_rb, &
+     &9.3382e-01_rb,7.7194e-01_rb,2.7489e-01_rb/)
+      kao(:, 2, 9, 7) = (/ &
+     &9.8392e-01_rb,1.0263e+00_rb,1.0713e+00_rb,1.1148e+00_rb,1.0796e+00_rb,1.0137e+00_rb, &
+     &9.0260e-01_rb,7.8234e-01_rb,1.9796e-01_rb/)
+      kao(:, 3, 9, 7) = (/ &
+     &9.2807e-01_rb,9.7104e-01_rb,1.0401e+00_rb,1.0698e+00_rb,1.0381e+00_rb,9.8279e-01_rb, &
+     &8.8087e-01_rb,8.1424e-01_rb,1.4396e-01_rb/)
+      kao(:, 4, 9, 7) = (/ &
+     &8.9022e-01_rb,9.3422e-01_rb,1.0109e+00_rb,1.0366e+00_rb,1.0048e+00_rb,9.5511e-01_rb, &
+     &8.7539e-01_rb,8.5432e-01_rb,1.0430e-01_rb/)
+      kao(:, 5, 9, 7) = (/ &
+     &8.6877e-01_rb,9.2050e-01_rb,1.0000e+00_rb,1.0116e+00_rb,9.8826e-01_rb,9.4009e-01_rb, &
+     &8.7922e-01_rb,9.0156e-01_rb,6.8077e-02_rb/)
+      kao(:, 1,10, 7) = (/ &
+     &9.2527e-01_rb,9.7705e-01_rb,1.0325e+00_rb,1.0578e+00_rb,1.0149e+00_rb,9.3478e-01_rb, &
+     &8.1724e-01_rb,6.6415e-01_rb,2.3891e-01_rb/)
+      kao(:, 2,10, 7) = (/ &
+     &8.6097e-01_rb,9.1106e-01_rb,9.9506e-01_rb,1.0007e+00_rb,9.6610e-01_rb,8.9639e-01_rb, &
+     &7.8861e-01_rb,6.7596e-01_rb,1.7815e-01_rb/)
+      kao(:, 3,10, 7) = (/ &
+     &8.1181e-01_rb,8.7070e-01_rb,9.5033e-01_rb,9.5476e-01_rb,9.2168e-01_rb,8.6431e-01_rb, &
+     &7.7032e-01_rb,7.0318e-01_rb,1.3199e-01_rb/)
+      kao(:, 4,10, 7) = (/ &
+     &7.7887e-01_rb,8.4520e-01_rb,9.2163e-01_rb,9.1956e-01_rb,8.9130e-01_rb,8.3659e-01_rb, &
+     &7.6501e-01_rb,7.4145e-01_rb,9.1831e-02_rb/)
+      kao(:, 5,10, 7) = (/ &
+     &7.5933e-01_rb,8.3227e-01_rb,9.0273e-01_rb,9.0188e-01_rb,8.7623e-01_rb,8.2773e-01_rb, &
+     &7.7824e-01_rb,7.8260e-01_rb,6.3171e-02_rb/)
+      kao(:, 1,11, 7) = (/ &
+     &7.8226e-01_rb,8.4719e-01_rb,9.2612e-01_rb,9.1570e-01_rb,8.7421e-01_rb,8.0479e-01_rb, &
+     &6.9799e-01_rb,5.7039e-01_rb,1.8643e-01_rb/)
+      kao(:, 2,11, 7) = (/ &
+     &7.3229e-01_rb,8.0376e-01_rb,8.7472e-01_rb,8.6879e-01_rb,8.2958e-01_rb,7.6891e-01_rb, &
+     &6.7602e-01_rb,5.8714e-01_rb,1.4000e-01_rb/)
+      kao(:, 3,11, 7) = (/ &
+     &6.9599e-01_rb,7.7478e-01_rb,8.4133e-01_rb,8.3314e-01_rb,7.9919e-01_rb,7.4119e-01_rb, &
+     &6.6696e-01_rb,6.1671e-01_rb,1.0181e-01_rb/)
+      kao(:, 4,11, 7) = (/ &
+     &6.7489e-01_rb,7.6185e-01_rb,8.1367e-01_rb,8.1128e-01_rb,7.7952e-01_rb,7.3228e-01_rb, &
+     &6.7358e-01_rb,6.5125e-01_rb,7.0225e-02_rb/)
+      kao(:, 5,11, 7) = (/ &
+     &6.5905e-01_rb,7.5391e-01_rb,7.9725e-01_rb,7.9623e-01_rb,7.7236e-01_rb,7.3477e-01_rb, &
+     &6.9321e-01_rb,6.9245e-01_rb,4.7555e-02_rb/)
+      kao(:, 1,12, 7) = (/ &
+     &6.7862e-01_rb,7.6075e-01_rb,8.1212e-01_rb,7.9974e-01_rb,7.5616e-01_rb,6.9320e-01_rb, &
+     &5.9851e-01_rb,4.9309e-01_rb,1.4949e-01_rb/)
+      kao(:, 2,12, 7) = (/ &
+     &6.3807e-01_rb,7.3022e-01_rb,7.7190e-01_rb,7.6245e-01_rb,7.2390e-01_rb,6.6782e-01_rb, &
+     &5.8563e-01_rb,5.1153e-01_rb,1.1607e-01_rb/)
+      kao(:, 3,12, 7) = (/ &
+     &6.1294e-01_rb,7.1220e-01_rb,7.4125e-01_rb,7.3342e-01_rb,6.9810e-01_rb,6.4969e-01_rb, &
+     &5.8866e-01_rb,5.3877e-01_rb,8.5989e-02_rb/)
+      kao(:, 4,12, 7) = (/ &
+     &5.9734e-01_rb,7.0046e-01_rb,7.2548e-01_rb,7.1635e-01_rb,6.8868e-01_rb,6.5109e-01_rb, &
+     &5.9747e-01_rb,5.7263e-01_rb,5.7849e-02_rb/)
+      kao(:, 5,12, 7) = (/ &
+     &5.8148e-01_rb,6.8644e-01_rb,7.1487e-01_rb,7.0660e-01_rb,6.8790e-01_rb,6.6368e-01_rb, &
+     &6.1903e-01_rb,6.0994e-01_rb,3.8734e-02_rb/)
+      kao(:, 1,13, 7) = (/ &
+     &6.1552e-01_rb,7.1356e-01_rb,7.3721e-01_rb,7.1646e-01_rb,6.7473e-01_rb,6.1507e-01_rb, &
+     &5.2767e-01_rb,4.3311e-01_rb,1.2482e-01_rb/)
+      kao(:, 2,13, 7) = (/ &
+     &5.8292e-01_rb,6.8409e-01_rb,7.0235e-01_rb,6.8503e-01_rb,6.4503e-01_rb,5.9514e-01_rb, &
+     &5.2204e-01_rb,4.4742e-01_rb,9.8236e-02_rb/)
+      kao(:, 3,13, 7) = (/ &
+     &5.6436e-01_rb,6.6497e-01_rb,6.8075e-01_rb,6.6573e-01_rb,6.3039e-01_rb,5.8718e-01_rb, &
+     &5.2651e-01_rb,4.7434e-01_rb,7.2297e-02_rb/)
+      kao(:, 4,13, 7) = (/ &
+     &5.4811e-01_rb,6.4832e-01_rb,6.6742e-01_rb,6.5348e-01_rb,6.2977e-01_rb,5.9747e-01_rb, &
+     &5.3863e-01_rb,5.0502e-01_rb,5.7494e-02_rb/)
+      kao(:, 5,13, 7) = (/ &
+     &5.3739e-01_rb,6.3448e-01_rb,6.5434e-01_rb,6.4659e-01_rb,6.3825e-01_rb,6.0640e-01_rb, &
+     &5.6100e-01_rb,5.4046e-01_rb,3.2048e-02_rb/)
+      kao(:, 1, 1, 8) = (/ &
+     &1.1660e+01_rb,1.0203e+01_rb,8.7459e+00_rb,7.2889e+00_rb,5.8318e+00_rb,4.3748e+00_rb, &
+     &3.7766e+00_rb,3.7739e+00_rb,2.3608e-03_rb/)
+      kao(:, 2, 1, 8) = (/ &
+     &1.1346e+01_rb,9.9282e+00_rb,8.5104e+00_rb,7.0926e+00_rb,5.6748e+00_rb,4.2570e+00_rb, &
+     &3.8721e+00_rb,3.9057e+00_rb,3.1824e-03_rb/)
+      kao(:, 3, 1, 8) = (/ &
+     &1.1194e+01_rb,9.7951e+00_rb,8.3963e+00_rb,6.9976e+00_rb,5.5988e+00_rb,4.2000e+00_rb, &
+     &3.9469e+00_rb,4.0712e+00_rb,4.2520e-03_rb/)
+      kao(:, 4, 1, 8) = (/ &
+     &1.1228e+01_rb,9.8250e+00_rb,8.4220e+00_rb,7.0189e+00_rb,5.6159e+00_rb,4.2457e+00_rb, &
+     &4.0615e+00_rb,4.2140e+00_rb,1.1766e-02_rb/)
+      kao(:, 5, 1, 8) = (/ &
+     &1.1405e+01_rb,9.9798e+00_rb,8.5545e+00_rb,7.1289e+00_rb,5.7036e+00_rb,4.3747e+00_rb, &
+     &4.1857e+00_rb,4.3557e+00_rb,1.5766e-01_rb/)
+      kao(:, 1, 2, 8) = (/ &
+     &9.6985e+00_rb,8.4867e+00_rb,7.2748e+00_rb,6.0630e+00_rb,4.8511e+00_rb,3.9524e+00_rb, &
+     &3.9347e+00_rb,3.7679e+00_rb,7.6708e-02_rb/)
+      kao(:, 2, 2, 8) = (/ &
+     &9.4032e+00_rb,8.2283e+00_rb,7.0533e+00_rb,5.8784e+00_rb,4.7035e+00_rb,3.9843e+00_rb, &
+     &4.0089e+00_rb,3.9489e+00_rb,9.1596e-02_rb/)
+      kao(:, 3, 2, 8) = (/ &
+     &9.2359e+00_rb,8.0819e+00_rb,6.9278e+00_rb,5.7738e+00_rb,4.6198e+00_rb,4.0563e+00_rb, &
+     &4.1174e+00_rb,4.1185e+00_rb,7.3144e-02_rb/)
+      kao(:, 4, 2, 8) = (/ &
+     &9.2178e+00_rb,8.0660e+00_rb,6.9143e+00_rb,5.7625e+00_rb,4.6107e+00_rb,4.1515e+00_rb, &
+     &4.2394e+00_rb,4.2904e+00_rb,1.1674e-01_rb/)
+      kao(:, 5, 2, 8) = (/ &
+     &9.3781e+00_rb,8.2055e+00_rb,7.0329e+00_rb,5.8605e+00_rb,4.6883e+00_rb,4.2988e+00_rb, &
+     &4.3503e+00_rb,4.4505e+00_rb,1.2134e-01_rb/)
+      kao(:, 1, 3, 8) = (/ &
+     &8.1381e+00_rb,7.1213e+00_rb,6.1045e+00_rb,5.0877e+00_rb,4.0880e+00_rb,4.0519e+00_rb, &
+     &3.8139e+00_rb,3.6880e+00_rb,8.7204e-02_rb/)
+      kao(:, 2, 3, 8) = (/ &
+     &7.8478e+00_rb,6.8673e+00_rb,5.8868e+00_rb,4.9063e+00_rb,4.0625e+00_rb,4.0788e+00_rb, &
+     &3.9290e+00_rb,3.8689e+00_rb,6.5887e-02_rb/)
+      kao(:, 3, 3, 8) = (/ &
+     &7.6555e+00_rb,6.6990e+00_rb,5.7426e+00_rb,4.7861e+00_rb,4.0779e+00_rb,4.1101e+00_rb, &
+     &4.0765e+00_rb,4.0574e+00_rb,7.1216e-02_rb/)
+      kao(:, 4, 3, 8) = (/ &
+     &7.5783e+00_rb,6.6314e+00_rb,5.6846e+00_rb,4.7378e+00_rb,4.1353e+00_rb,4.1781e+00_rb, &
+     &4.2207e+00_rb,4.2405e+00_rb,8.4339e-02_rb/)
+      kao(:, 5, 3, 8) = (/ &
+     &7.6543e+00_rb,6.6980e+00_rb,5.7416e+00_rb,4.7853e+00_rb,4.2544e+00_rb,4.2669e+00_rb, &
+     &4.4018e+00_rb,4.4237e+00_rb,7.8612e-02_rb/)
+      kao(:, 1, 4, 8) = (/ &
+     &6.8589e+00_rb,6.0020e+00_rb,5.1451e+00_rb,4.2882e+00_rb,3.9706e+00_rb,3.8613e+00_rb, &
+     &3.5947e+00_rb,3.5300e+00_rb,6.1710e-02_rb/)
+      kao(:, 2, 4, 8) = (/ &
+     &6.5794e+00_rb,5.7574e+00_rb,4.9355e+00_rb,4.1135e+00_rb,3.9575e+00_rb,3.8878e+00_rb, &
+     &3.7477e+00_rb,3.7212e+00_rb,6.0817e-02_rb/)
+      kao(:, 3, 4, 8) = (/ &
+     &6.3760e+00_rb,5.5795e+00_rb,4.7829e+00_rb,3.9985e+00_rb,3.9783e+00_rb,3.9606e+00_rb, &
+     &3.9214e+00_rb,3.9164e+00_rb,6.3574e-02_rb/)
+      kao(:, 4, 4, 8) = (/ &
+     &6.2600e+00_rb,5.4779e+00_rb,4.6959e+00_rb,4.0045e+00_rb,4.0114e+00_rb,4.0769e+00_rb, &
+     &4.1164e+00_rb,4.1060e+00_rb,7.8132e-02_rb/)
+      kao(:, 5, 4, 8) = (/ &
+     &6.2608e+00_rb,5.4787e+00_rb,4.6966e+00_rb,4.0716e+00_rb,4.0797e+00_rb,4.1992e+00_rb, &
+     &4.3140e+00_rb,4.3043e+00_rb,7.5353e-02_rb/)
+      kao(:, 1, 5, 8) = (/ &
+     &5.7927e+00_rb,5.0691e+00_rb,4.3455e+00_rb,3.8105e+00_rb,3.8237e+00_rb,3.5526e+00_rb, &
+     &3.3728e+00_rb,3.3373e+00_rb,4.9756e-02_rb/)
+      kao(:, 2, 5, 8) = (/ &
+     &5.5277e+00_rb,4.8372e+00_rb,4.1467e+00_rb,3.7691e+00_rb,3.7793e+00_rb,3.6108e+00_rb, &
+     &3.5410e+00_rb,3.5220e+00_rb,4.2289e-02_rb/)
+      kao(:, 3, 5, 8) = (/ &
+     &5.3258e+00_rb,4.6606e+00_rb,3.9953e+00_rb,3.7485e+00_rb,3.7814e+00_rb,3.7044e+00_rb, &
+     &3.7302e+00_rb,3.7158e+00_rb,4.7217e-02_rb/)
+      kao(:, 4, 5, 8) = (/ &
+     &5.1933e+00_rb,4.5445e+00_rb,3.8958e+00_rb,3.7349e+00_rb,3.8276e+00_rb,3.8482e+00_rb, &
+     &3.9315e+00_rb,3.9070e+00_rb,5.2805e-02_rb/)
+      kao(:, 5, 5, 8) = (/ &
+     &5.1489e+00_rb,4.5057e+00_rb,3.8627e+00_rb,3.7753e+00_rb,3.9160e+00_rb,4.0236e+00_rb, &
+     &4.1558e+00_rb,4.1173e+00_rb,7.3119e-02_rb/)
+      kao(:, 1, 6, 8) = (/ &
+     &4.9153e+00_rb,4.3014e+00_rb,3.6874e+00_rb,3.6742e+00_rb,3.4664e+00_rb,3.2352e+00_rb, &
+     &3.1382e+00_rb,3.1290e+00_rb,5.3656e-02_rb/)
+      kao(:, 2, 6, 8) = (/ &
+     &4.6666e+00_rb,4.0837e+00_rb,3.5075e+00_rb,3.5947e+00_rb,3.4390e+00_rb,3.3186e+00_rb, &
+     &3.2995e+00_rb,3.2957e+00_rb,3.0716e-02_rb/)
+      kao(:, 3, 6, 8) = (/ &
+     &4.4714e+00_rb,3.9130e+00_rb,3.4299e+00_rb,3.5379e+00_rb,3.4620e+00_rb,3.4453e+00_rb, &
+     &3.4927e+00_rb,3.4789e+00_rb,2.2748e-02_rb/)
+      kao(:, 4, 6, 8) = (/ &
+     &4.3327e+00_rb,3.7916e+00_rb,3.3931e+00_rb,3.5287e+00_rb,3.5342e+00_rb,3.5995e+00_rb, &
+     &3.6934e+00_rb,3.6650e+00_rb,4.0419e-02_rb/)
+      kao(:, 5, 6, 8) = (/ &
+     &4.2621e+00_rb,3.7298e+00_rb,3.3976e+00_rb,3.5656e+00_rb,3.6513e+00_rb,3.7826e+00_rb, &
+     &3.9184e+00_rb,3.8666e+00_rb,1.0762e-01_rb/)
+      kao(:, 1, 7, 8) = (/ &
+     &4.2315e+00_rb,3.7030e+00_rb,3.3451e+00_rb,3.3493e+00_rb,3.1177e+00_rb,2.9742e+00_rb, &
+     &2.9072e+00_rb,2.9068e+00_rb,5.8460e-02_rb/)
+      kao(:, 2, 7, 8) = (/ &
+     &3.9985e+00_rb,3.4984e+00_rb,3.2669e+00_rb,3.2554e+00_rb,3.1149e+00_rb,3.0526e+00_rb, &
+     &3.0595e+00_rb,3.0700e+00_rb,2.7402e-02_rb/)
+      kao(:, 3, 7, 8) = (/ &
+     &3.8099e+00_rb,3.3338e+00_rb,3.2097e+00_rb,3.2104e+00_rb,3.1587e+00_rb,3.1808e+00_rb, &
+     &3.2348e+00_rb,3.2401e+00_rb,1.9004e-02_rb/)
+      kao(:, 4, 7, 8) = (/ &
+     &3.6700e+00_rb,3.2116e+00_rb,3.1648e+00_rb,3.2052e+00_rb,3.2433e+00_rb,3.3349e+00_rb, &
+     &3.4286e+00_rb,3.4160e+00_rb,4.2481e-02_rb/)
+      kao(:, 5, 7, 8) = (/ &
+     &3.5860e+00_rb,3.1383e+00_rb,3.1473e+00_rb,3.2492e+00_rb,3.3786e+00_rb,3.5157e+00_rb, &
+     &3.6429e+00_rb,3.6020e+00_rb,1.5676e-01_rb/)
+      kao(:, 1, 8, 8) = (/ &
+     &3.7309e+00_rb,3.2652e+00_rb,3.2085e+00_rb,3.0458e+00_rb,2.8667e+00_rb,2.7650e+00_rb, &
+     &2.6802e+00_rb,2.6374e+00_rb,6.7482e-02_rb/)
+      kao(:, 2, 8, 8) = (/ &
+     &3.5088e+00_rb,3.0710e+00_rb,3.0883e+00_rb,2.9531e+00_rb,2.8706e+00_rb,2.8363e+00_rb, &
+     &2.8330e+00_rb,2.8092e+00_rb,3.1671e-02_rb/)
+      kao(:, 3, 8, 8) = (/ &
+     &3.3283e+00_rb,2.9131e+00_rb,2.9801e+00_rb,2.9151e+00_rb,2.9077e+00_rb,2.9395e+00_rb, &
+     &2.9913e+00_rb,2.9792e+00_rb,1.9457e-02_rb/)
+      kao(:, 4, 8, 8) = (/ &
+     &3.1890e+00_rb,2.7912e+00_rb,2.9223e+00_rb,2.9235e+00_rb,2.9935e+00_rb,3.0761e+00_rb, &
+     &3.1767e+00_rb,3.1591e+00_rb,4.5502e-02_rb/)
+      kao(:, 5, 8, 8) = (/ &
+     &3.0966e+00_rb,2.7276e+00_rb,2.9000e+00_rb,2.9842e+00_rb,3.1139e+00_rb,3.2433e+00_rb, &
+     &3.3703e+00_rb,3.3444e+00_rb,1.7959e-01_rb/)
+      kao(:, 1, 9, 8) = (/ &
+     &3.2795e+00_rb,2.8728e+00_rb,2.9171e+00_rb,2.7516e+00_rb,2.6513e+00_rb,2.5188e+00_rb, &
+     &2.4080e+00_rb,2.3392e+00_rb,6.9869e-02_rb/)
+      kao(:, 2, 9, 8) = (/ &
+     &3.0734e+00_rb,2.7076e+00_rb,2.7821e+00_rb,2.6844e+00_rb,2.6368e+00_rb,2.5852e+00_rb, &
+     &2.5517e+00_rb,2.5045e+00_rb,4.1359e-02_rb/)
+      kao(:, 3, 9, 8) = (/ &
+     &2.9006e+00_rb,2.6099e+00_rb,2.6833e+00_rb,2.6568e+00_rb,2.6662e+00_rb,2.6837e+00_rb, &
+     &2.7125e+00_rb,2.6712e+00_rb,2.1538e-02_rb/)
+      kao(:, 4, 9, 8) = (/ &
+     &2.7639e+00_rb,2.5377e+00_rb,2.6242e+00_rb,2.6595e+00_rb,2.7323e+00_rb,2.8096e+00_rb, &
+     &2.8901e+00_rb,2.8466e+00_rb,5.4396e-02_rb/)
+      kao(:, 5, 9, 8) = (/ &
+     &2.6669e+00_rb,2.4856e+00_rb,2.6031e+00_rb,2.7098e+00_rb,2.8344e+00_rb,2.9696e+00_rb, &
+     &3.0834e+00_rb,3.0331e+00_rb,2.0077e-01_rb/)
+      kao(:, 1,10, 8) = (/ &
+     &2.8722e+00_rb,2.6105e+00_rb,2.6085e+00_rb,2.5091e+00_rb,2.4056e+00_rb,2.2547e+00_rb, &
+     &2.1348e+00_rb,2.0413e+00_rb,7.1950e-02_rb/)
+      kao(:, 2,10, 8) = (/ &
+     &2.6764e+00_rb,2.5038e+00_rb,2.4795e+00_rb,2.4482e+00_rb,2.3806e+00_rb,2.3128e+00_rb, &
+     &2.2556e+00_rb,2.1912e+00_rb,3.7979e-02_rb/)
+      kao(:, 3,10, 8) = (/ &
+     &2.5139e+00_rb,2.4083e+00_rb,2.3949e+00_rb,2.4105e+00_rb,2.4135e+00_rb,2.4077e+00_rb, &
+     &2.4119e+00_rb,2.3558e+00_rb,2.2438e-02_rb/)
+      kao(:, 4,10, 8) = (/ &
+     &2.3840e+00_rb,2.3185e+00_rb,2.3481e+00_rb,2.4127e+00_rb,2.4770e+00_rb,2.5357e+00_rb, &
+     &2.5771e+00_rb,2.5231e+00_rb,7.0033e-02_rb/)
+      kao(:, 5,10, 8) = (/ &
+     &2.2922e+00_rb,2.2525e+00_rb,2.3358e+00_rb,2.4514e+00_rb,2.5719e+00_rb,2.6836e+00_rb, &
+     &2.7691e+00_rb,2.7055e+00_rb,2.1431e-01_rb/)
+      kao(:, 1,11, 8) = (/ &
+     &2.4203e+00_rb,2.3366e+00_rb,2.2726e+00_rb,2.2388e+00_rb,2.1243e+00_rb,2.0012e+00_rb, &
+     &1.8959e+00_rb,1.8076e+00_rb,5.5769e-02_rb/)
+      kao(:, 2,11, 8) = (/ &
+     &2.2551e+00_rb,2.2021e+00_rb,2.1879e+00_rb,2.1841e+00_rb,2.1218e+00_rb,2.0691e+00_rb, &
+     &2.0223e+00_rb,1.9543e+00_rb,2.8668e-02_rb/)
+      kao(:, 3,11, 8) = (/ &
+     &2.1166e+00_rb,2.0926e+00_rb,2.1229e+00_rb,2.1590e+00_rb,2.1592e+00_rb,2.1682e+00_rb, &
+     &2.1642e+00_rb,2.1075e+00_rb,3.1850e-02_rb/)
+      kao(:, 4,11, 8) = (/ &
+     &2.0122e+00_rb,2.0159e+00_rb,2.0901e+00_rb,2.1693e+00_rb,2.2337e+00_rb,2.2891e+00_rb, &
+     &2.3331e+00_rb,2.2748e+00_rb,1.4071e-01_rb/)
+      kao(:, 5,11, 8) = (/ &
+     &1.9514e+00_rb,1.9763e+00_rb,2.0989e+00_rb,2.2225e+00_rb,2.3388e+00_rb,2.4447e+00_rb, &
+     &2.5215e+00_rb,2.4588e+00_rb,2.8723e-01_rb/)
+      kao(:, 1,12, 8) = (/ &
+     &2.0683e+00_rb,2.0370e+00_rb,2.0375e+00_rb,1.9798e+00_rb,1.8792e+00_rb,1.7675e+00_rb, &
+     &1.6700e+00_rb,1.5868e+00_rb,4.4568e-02_rb/)
+      kao(:, 2,12, 8) = (/ &
+     &1.9287e+00_rb,1.9214e+00_rb,1.9599e+00_rb,1.9353e+00_rb,1.8869e+00_rb,1.8278e+00_rb, &
+     &1.7894e+00_rb,1.7244e+00_rb,2.3573e-02_rb/)
+      kao(:, 3,12, 8) = (/ &
+     &1.8200e+00_rb,1.8347e+00_rb,1.9076e+00_rb,1.9217e+00_rb,1.9295e+00_rb,1.9250e+00_rb, &
+     &1.9263e+00_rb,1.8738e+00_rb,5.2475e-02_rb/)
+      kao(:, 4,12, 8) = (/ &
+     &1.7432e+00_rb,1.7845e+00_rb,1.8845e+00_rb,1.9488e+00_rb,2.0009e+00_rb,2.0498e+00_rb, &
+     &2.0942e+00_rb,2.0382e+00_rb,1.8765e-01_rb/)
+      kao(:, 5,12, 8) = (/ &
+     &1.7053e+00_rb,1.7760e+00_rb,1.9065e+00_rb,2.0215e+00_rb,2.1153e+00_rb,2.2054e+00_rb, &
+     &2.2781e+00_rb,2.2210e+00_rb,3.6587e-01_rb/)
+      kao(:, 1,13, 8) = (/ &
+     &1.8562e+00_rb,1.8459e+00_rb,1.8637e+00_rb,1.7957e+00_rb,1.6878e+00_rb,1.5797e+00_rb, &
+     &1.4757e+00_rb,1.3906e+00_rb,3.6132e-02_rb/)
+      kao(:, 2,13, 8) = (/ &
+     &1.7399e+00_rb,1.7611e+00_rb,1.7971e+00_rb,1.7529e+00_rb,1.6955e+00_rb,1.6354e+00_rb, &
+     &1.5829e+00_rb,1.5250e+00_rb,2.1418e-02_rb/)
+      kao(:, 3,13, 8) = (/ &
+     &1.6467e+00_rb,1.6945e+00_rb,1.7550e+00_rb,1.7487e+00_rb,1.7380e+00_rb,1.7251e+00_rb, &
+     &1.7178e+00_rb,1.6689e+00_rb,6.4309e-02_rb/)
+      kao(:, 4,13, 8) = (/ &
+     &1.5930e+00_rb,1.6654e+00_rb,1.7520e+00_rb,1.7797e+00_rb,1.8113e+00_rb,1.8460e+00_rb, &
+     &1.8831e+00_rb,1.8288e+00_rb,2.0946e-01_rb/)
+      kao(:, 5,13, 8) = (/ &
+     &1.5695e+00_rb,1.6755e+00_rb,1.7906e+00_rb,1.8612e+00_rb,1.9314e+00_rb,2.0101e+00_rb, &
+     &2.0671e+00_rb,2.0074e+00_rb,3.8278e-01_rb/)
+      kao(:, 1, 1, 9) = (/ &
+     &4.3448e+02_rb,3.8017e+02_rb,3.2586e+02_rb,2.7155e+02_rb,2.1724e+02_rb,1.6293e+02_rb, &
+     &1.0862e+02_rb,5.5107e+01_rb,2.7465e-03_rb/)
+      kao(:, 2, 1, 9) = (/ &
+     &5.8321e+02_rb,5.1031e+02_rb,4.3741e+02_rb,3.6451e+02_rb,2.9161e+02_rb,2.1870e+02_rb, &
+     &1.4580e+02_rb,7.3550e+01_rb,3.5822e-03_rb/)
+      kao(:, 3, 1, 9) = (/ &
+     &7.6101e+02_rb,6.6588e+02_rb,5.7076e+02_rb,4.7563e+02_rb,3.8051e+02_rb,2.8538e+02_rb, &
+     &1.9025e+02_rb,9.5593e+01_rb,5.6366e-03_rb/)
+      kao(:, 4, 1, 9) = (/ &
+     &9.6683e+02_rb,8.4598e+02_rb,7.2512e+02_rb,6.0427e+02_rb,4.8342e+02_rb,3.6256e+02_rb, &
+     &2.4171e+02_rb,1.2116e+02_rb,6.3697e-02_rb/)
+      kao(:, 5, 1, 9) = (/ &
+     &1.1977e+03_rb,1.0480e+03_rb,8.9827e+02_rb,7.4856e+02_rb,5.9885e+02_rb,4.4914e+02_rb, &
+     &2.9942e+02_rb,1.4986e+02_rb,2.8050e-01_rb/)
+      kao(:, 1, 2, 9) = (/ &
+     &3.3233e+02_rb,2.9079e+02_rb,2.4925e+02_rb,2.0770e+02_rb,1.6616e+02_rb,1.2462e+02_rb, &
+     &8.3297e+01_rb,4.3020e+01_rb,1.2769e-02_rb/)
+      kao(:, 2, 2, 9) = (/ &
+     &4.5139e+02_rb,3.9497e+02_rb,3.3854e+02_rb,2.8212e+02_rb,2.2570e+02_rb,1.6927e+02_rb, &
+     &1.1303e+02_rb,5.7664e+01_rb,6.8183e-02_rb/)
+      kao(:, 3, 2, 9) = (/ &
+     &5.9515e+02_rb,5.2076e+02_rb,4.4637e+02_rb,3.7197e+02_rb,2.9758e+02_rb,2.2318e+02_rb, &
+     &1.4890e+02_rb,7.5394e+01_rb,1.7070e-01_rb/)
+      kao(:, 4, 2, 9) = (/ &
+     &7.6179e+02_rb,6.6657e+02_rb,5.7134e+02_rb,4.7612e+02_rb,3.8090e+02_rb,2.8567e+02_rb, &
+     &1.9048e+02_rb,9.5968e+01_rb,4.9948e-01_rb/)
+      kao(:, 5, 2, 9) = (/ &
+     &9.5206e+02_rb,8.3305e+02_rb,7.1404e+02_rb,5.9504e+02_rb,4.7603e+02_rb,3.5702e+02_rb, &
+     &2.3802e+02_rb,1.1952e+02_rb,1.1527e+00_rb/)
+      kao(:, 1, 3, 9) = (/ &
+     &2.3507e+02_rb,2.0568e+02_rb,1.7630e+02_rb,1.4692e+02_rb,1.1753e+02_rb,8.8151e+01_rb, &
+     &5.9624e+01_rb,3.1706e+01_rb,5.0754e-02_rb/)
+      kao(:, 2, 3, 9) = (/ &
+     &3.2531e+02_rb,2.8465e+02_rb,2.4398e+02_rb,2.0332e+02_rb,1.6266e+02_rb,1.2199e+02_rb, &
+     &8.2067e+01_rb,4.2715e+01_rb,9.9945e-02_rb/)
+      kao(:, 3, 3, 9) = (/ &
+     &4.3545e+02_rb,3.8102e+02_rb,3.2659e+02_rb,2.7216e+02_rb,2.1773e+02_rb,1.6330e+02_rb, &
+     &1.0943e+02_rb,5.6175e+01_rb,4.3033e-01_rb/)
+      kao(:, 4, 3, 9) = (/ &
+     &5.6623e+02_rb,4.9545e+02_rb,4.2468e+02_rb,3.5390e+02_rb,2.8312e+02_rb,2.1234e+02_rb, &
+     &1.4196e+02_rb,7.2208e+01_rb,1.0055e+00_rb/)
+      kao(:, 5, 3, 9) = (/ &
+     &7.1637e+02_rb,6.2682e+02_rb,5.3728e+02_rb,4.4773e+02_rb,3.5819e+02_rb,2.6864e+02_rb, &
+     &1.7932e+02_rb,9.0659e+01_rb,1.5764e+00_rb/)
+      kao(:, 1, 4, 9) = (/ &
+     &1.6080e+02_rb,1.4070e+02_rb,1.2060e+02_rb,1.0050e+02_rb,8.0399e+01_rb,6.0779e+01_rb, &
+     &4.1842e+01_rb,2.3410e+01_rb,9.5747e-02_rb/)
+      kao(:, 2, 4, 9) = (/ &
+     &2.2661e+02_rb,1.9829e+02_rb,1.6996e+02_rb,1.4163e+02_rb,1.1331e+02_rb,8.5452e+01_rb, &
+     &5.8120e+01_rb,3.1330e+01_rb,8.2203e-01_rb/)
+      kao(:, 3, 4, 9) = (/ &
+     &3.0940e+02_rb,2.7072e+02_rb,2.3205e+02_rb,1.9338e+02_rb,1.5470e+02_rb,1.1642e+02_rb, &
+     &7.8610e+01_rb,4.1331e+01_rb,1.4967e+00_rb/)
+      kao(:, 4, 4, 9) = (/ &
+     &4.0889e+02_rb,3.5778e+02_rb,3.0667e+02_rb,2.5556e+02_rb,2.0445e+02_rb,1.5361e+02_rb, &
+     &1.0323e+02_rb,5.3416e+01_rb,2.0722e+00_rb/)
+      kao(:, 5, 4, 9) = (/ &
+     &5.2581e+02_rb,4.6008e+02_rb,3.9436e+02_rb,3.2863e+02_rb,2.6291e+02_rb,1.9734e+02_rb, &
+     &1.3221e+02_rb,6.7657e+01_rb,2.6260e+00_rb/)
+      kao(:, 1, 5, 9) = (/ &
+     &1.0850e+02_rb,9.4934e+01_rb,8.1372e+01_rb,6.7810e+01_rb,5.4459e+01_rb,4.1884e+01_rb, &
+     &2.9671e+01_rb,1.7923e+01_rb,1.1913e+00_rb/)
+      kao(:, 2, 5, 9) = (/ &
+     &1.5572e+02_rb,1.3625e+02_rb,1.1679e+02_rb,9.7324e+01_rb,7.8121e+01_rb,5.9526e+01_rb, &
+     &4.1277e+01_rb,2.3510e+01_rb,1.9137e+00_rb/)
+      kao(:, 3, 5, 9) = (/ &
+     &2.1676e+02_rb,1.8967e+02_rb,1.6257e+02_rb,1.3548e+02_rb,1.0864e+02_rb,8.2293e+01_rb, &
+     &5.6282e+01_rb,3.0781e+01_rb,2.5565e+00_rb/)
+      kao(:, 4, 5, 9) = (/ &
+     &2.9183e+02_rb,2.5535e+02_rb,2.1887e+02_rb,1.8239e+02_rb,1.4612e+02_rb,1.1027e+02_rb, &
+     &7.4761e+01_rb,3.9788e+01_rb,3.1260e+00_rb/)
+      kao(:, 5, 5, 9) = (/ &
+     &3.8115e+02_rb,3.3351e+02_rb,2.8587e+02_rb,2.3822e+02_rb,1.9070e+02_rb,1.4356e+02_rb, &
+     &9.6772e+01_rb,5.0545e+01_rb,3.5402e+00_rb/)
+      kao(:, 1, 6, 9) = (/ &
+     &7.1661e+01_rb,6.2704e+01_rb,5.3746e+01_rb,4.4797e+01_rb,3.6644e+01_rb,2.8875e+01_rb, &
+     &2.1420e+01_rb,1.4378e+01_rb,2.0773e+00_rb/)
+      kao(:, 2, 6, 9) = (/ &
+     &1.0465e+02_rb,9.1565e+01_rb,7.8484e+01_rb,6.5455e+01_rb,5.3153e+01_rb,4.1163e+01_rb, &
+     &2.9464e+01_rb,1.8199e+01_rb,2.7911e+00_rb/)
+      kao(:, 3, 6, 9) = (/ &
+     &1.4858e+02_rb,1.3001e+02_rb,1.1144e+02_rb,9.2961e+01_rb,7.5079e+01_rb,5.7480e+01_rb, &
+     &4.0178e+01_rb,2.3340e+01_rb,3.3860e+00_rb/)
+      kao(:, 4, 6, 9) = (/ &
+     &2.0400e+02_rb,1.7850e+02_rb,1.5300e+02_rb,1.2759e+02_rb,1.0268e+02_rb,7.8054e+01_rb, &
+     &5.3729e+01_rb,2.9889e+01_rb,3.8146e+00_rb/)
+      kao(:, 5, 6, 9) = (/ &
+     &2.7127e+02_rb,2.3736e+02_rb,2.0345e+02_rb,1.6959e+02_rb,1.3617e+02_rb,1.0303e+02_rb, &
+     &7.0191e+01_rb,3.7883e+01_rb,4.1027e+00_rb/)
+      kao(:, 1, 7, 9) = (/ &
+     &4.7664e+01_rb,4.1706e+01_rb,3.5748e+01_rb,3.0192e+01_rb,2.5283e+01_rb,2.0687e+01_rb, &
+     &1.6356e+01_rb,1.2414e+01_rb,2.7141e+00_rb/)
+      kao(:, 2, 7, 9) = (/ &
+     &7.0406e+01_rb,6.1605e+01_rb,5.2805e+01_rb,4.4485e+01_rb,3.6675e+01_rb,2.9135e+01_rb, &
+     &2.1846e+01_rb,1.4960e+01_rb,3.3740e+00_rb/)
+      kao(:, 3, 7, 9) = (/ &
+     &1.0189e+02_rb,8.9150e+01_rb,7.6414e+01_rb,6.4182e+01_rb,5.2360e+01_rb,4.0780e+01_rb, &
+     &2.9464e+01_rb,1.8559e+01_rb,3.8705e+00_rb/)
+      kao(:, 4, 7, 9) = (/ &
+     &1.4268e+02_rb,1.2484e+02_rb,1.0701e+02_rb,8.9652e+01_rb,7.2635e+01_rb,5.5858e+01_rb, &
+     &3.9357e+01_rb,2.3287e+01_rb,4.2268e+00_rb/)
+      kao(:, 5, 7, 9) = (/ &
+     &1.9337e+02_rb,1.6920e+02_rb,1.4503e+02_rb,1.2126e+02_rb,9.7796e+01_rb,7.4601e+01_rb, &
+     &5.1680e+01_rb,2.9228e+01_rb,4.3853e+00_rb/)
+      kao(:, 1, 8, 9) = (/ &
+     &3.2619e+01_rb,2.8542e+01_rb,2.4489e+01_rb,2.1251e+01_rb,1.8391e+01_rb,1.5792e+01_rb, &
+     &1.3493e+01_rb,1.1316e+01_rb,3.0747e+00_rb/)
+      kao(:, 2, 8, 9) = (/ &
+     &4.8375e+01_rb,4.2328e+01_rb,3.6375e+01_rb,3.1177e+01_rb,2.6286e+01_rb,2.1635e+01_rb, &
+     &1.7234e+01_rb,1.3233e+01_rb,3.6551e+00_rb/)
+      kao(:, 3, 8, 9) = (/ &
+     &7.1088e+01_rb,6.2202e+01_rb,5.3468e+01_rb,4.5389e+01_rb,3.7595e+01_rb,3.0015e+01_rb, &
+     &2.2675e+01_rb,1.5741e+01_rb,4.0898e+00_rb/)
+      kao(:, 4, 8, 9) = (/ &
+     &1.0151e+02_rb,8.8821e+01_rb,7.6303e+01_rb,6.4370e+01_rb,5.2682e+01_rb,4.1218e+01_rb, &
+     &2.9982e+01_rb,1.9170e+01_rb,4.3948e+00_rb/)
+      kao(:, 5, 8, 9) = (/ &
+     &1.4013e+02_rb,1.2261e+02_rb,1.0526e+02_rb,8.8413e+01_rb,7.1810e+01_rb,5.5432e+01_rb, &
+     &3.9307e+01_rb,2.3602e+01_rb,4.4795e+00_rb/)
+      kao(:, 1, 9, 9) = (/ &
+     &2.2374e+01_rb,1.9574e+01_rb,1.7087e+01_rb,1.5322e+01_rb,1.3873e+01_rb,1.2730e+01_rb, &
+     &1.1784e+01_rb,1.0057e+01_rb,3.2920e+00_rb/)
+      kao(:, 2, 9, 9) = (/ &
+     &3.3006e+01_rb,2.8880e+01_rb,2.5155e+01_rb,2.2057e+01_rb,1.9232e+01_rb,1.6658e+01_rb, &
+     &1.4329e+01_rb,1.1850e+01_rb,3.8043e+00_rb/)
+      kao(:, 3, 9, 9) = (/ &
+     &4.8965e+01_rb,4.2845e+01_rb,3.7181e+01_rb,3.2051e+01_rb,2.7172e+01_rb,2.2508e+01_rb, &
+     &1.8078e+01_rb,1.3961e+01_rb,4.2059e+00_rb/)
+      kao(:, 4, 9, 9) = (/ &
+     &7.1218e+01_rb,6.2316e+01_rb,5.3886e+01_rb,4.5928e+01_rb,3.8193e+01_rb,3.0649e+01_rb, &
+     &2.3347e+01_rb,1.6446e+01_rb,4.4539e+00_rb/)
+      kao(:, 5, 9, 9) = (/ &
+     &1.0013e+02_rb,8.7618e+01_rb,7.5558e+01_rb,6.3912e+01_rb,5.2481e+01_rb,4.1239e+01_rb, &
+     &3.0241e+01_rb,1.9662e+01_rb,4.4837e+00_rb/)
+      kao(:, 1,10, 9) = (/ &
+     &1.6016e+01_rb,1.4014e+01_rb,1.2654e+01_rb,1.1832e+01_rb,1.1333e+01_rb,1.1079e+01_rb, &
+     &1.0430e+01_rb,8.9198e+00_rb,3.4165e+00_rb/)
+      kao(:, 2,10, 9) = (/ &
+     &2.3316e+01_rb,2.0402e+01_rb,1.8216e+01_rb,1.6474e+01_rb,1.5033e+01_rb,1.3817e+01_rb, &
+     &1.2667e+01_rb,1.0521e+01_rb,3.8593e+00_rb/)
+      kao(:, 3,10, 9) = (/ &
+     &3.4676e+01_rb,3.0345e+01_rb,2.6796e+01_rb,2.3607e+01_rb,2.0669e+01_rb,1.7940e+01_rb, &
+     &1.5414e+01_rb,1.2426e+01_rb,4.1980e+00_rb/)
+      kao(:, 4,10, 9) = (/ &
+     &5.1075e+01_rb,4.4715e+01_rb,3.9109e+01_rb,3.3826e+01_rb,2.8757e+01_rb,2.3883e+01_rb, &
+     &1.9235e+01_rb,1.4676e+01_rb,4.3830e+00_rb/)
+      kao(:, 5,10, 9) = (/ &
+     &7.2971e+01_rb,6.3894e+01_rb,5.5508e+01_rb,4.7426e+01_rb,3.9536e+01_rb,3.1844e+01_rb, &
+     &2.4374e+01_rb,1.7279e+01_rb,4.3810e+00_rb/)
+      kao(:, 1,11, 9) = (/ &
+     &1.3577e+01_rb,1.1946e+01_rb,1.1209e+01_rb,1.0837e+01_rb,1.0794e+01_rb,1.0607e+01_rb, &
+     &9.9046e+00_rb,8.4158e+00_rb,3.5771e+00_rb/)
+      kao(:, 2,11, 9) = (/ &
+     &1.9792e+01_rb,1.7445e+01_rb,1.5940e+01_rb,1.4785e+01_rb,1.3920e+01_rb,1.3199e+01_rb, &
+     &1.2097e+01_rb,9.9522e+00_rb,3.9185e+00_rb/)
+      kao(:, 3,11, 9) = (/ &
+     &2.9476e+01_rb,2.5957e+01_rb,2.3237e+01_rb,2.0843e+01_rb,1.8688e+01_rb,1.6684e+01_rb, &
+     &1.4791e+01_rb,1.1766e+01_rb,4.1553e+00_rb/)
+      kao(:, 4,11, 9) = (/ &
+     &4.3413e+01_rb,3.8176e+01_rb,3.3695e+01_rb,2.9502e+01_rb,2.5515e+01_rb,2.1698e+01_rb, &
+     &1.8077e+01_rb,1.3908e+01_rb,4.1942e+00_rb/)
+      kao(:, 5,11, 9) = (/ &
+     &6.2007e+01_rb,5.4458e+01_rb,4.7606e+01_rb,4.1020e+01_rb,3.4622e+01_rb,2.8398e+01_rb, &
+     &2.2392e+01_rb,1.6392e+01_rb,4.1692e+00_rb/)
+      kao(:, 1,12, 9) = (/ &
+     &1.1680e+01_rb,1.0479e+01_rb,1.0122e+01_rb,1.0167e+01_rb,1.0289e+01_rb,1.0072e+01_rb, &
+     &9.3417e+00_rb,7.9079e+00_rb,3.5200e+00_rb/)
+      kao(:, 2,12, 9) = (/ &
+     &1.7053e+01_rb,1.5231e+01_rb,1.4215e+01_rb,1.3566e+01_rb,1.3123e+01_rb,1.2618e+01_rb, &
+     &1.1431e+01_rb,9.3416e+00_rb,3.7828e+00_rb/)
+      kao(:, 3,12, 9) = (/ &
+     &2.5404e+01_rb,2.2573e+01_rb,2.0511e+01_rb,1.8777e+01_rb,1.7216e+01_rb,1.5812e+01_rb, &
+     &1.4031e+01_rb,1.1064e+01_rb,3.9374e+00_rb/)
+      kao(:, 4,12, 9) = (/ &
+     &3.7431e+01_rb,3.3112e+01_rb,2.9529e+01_rb,2.6224e+01_rb,2.3088e+01_rb,2.0100e+01_rb, &
+     &1.7184e+01_rb,1.3093e+01_rb,3.9253e+00_rb/)
+      kao(:, 5,12, 9) = (/ &
+     &5.3474e+01_rb,4.7145e+01_rb,4.1510e+01_rb,3.6119e+01_rb,3.0908e+01_rb,2.5843e+01_rb, &
+     &2.0970e+01_rb,1.5444e+01_rb,3.9004e+00_rb/)
+      kao(:, 1,13, 9) = (/ &
+     &1.0438e+01_rb,9.5597e+00_rb,9.5087e+00_rb,9.7911e+00_rb,9.8820e+00_rb,9.5875e+00_rb, &
+     &8.8692e+00_rb,7.4811e+00_rb,3.3069e+00_rb/)
+      kao(:, 2,13, 9) = (/ &
+     &1.5260e+01_rb,1.3818e+01_rb,1.3178e+01_rb,1.2874e+01_rb,1.2679e+01_rb,1.2091e+01_rb, &
+     &1.0875e+01_rb,8.8312e+00_rb,3.5228e+00_rb/)
+      kao(:, 3,13, 9) = (/ &
+     &2.2789e+01_rb,2.0434e+01_rb,1.8837e+01_rb,1.7547e+01_rb,1.6403e+01_rb,1.5263e+01_rb, &
+     &1.3389e+01_rb,1.0463e+01_rb,3.6351e+00_rb/)
+      kao(:, 4,13, 9) = (/ &
+     &3.3586e+01_rb,2.9891e+01_rb,2.6912e+01_rb,2.4218e+01_rb,2.1653e+01_rb,1.9218e+01_rb, &
+     &1.6457e+01_rb,1.2402e+01_rb,3.6180e+00_rb/)
+      kao(:, 5,13, 9) = (/ &
+     &4.7989e+01_rb,4.2477e+01_rb,3.7650e+01_rb,3.3082e+01_rb,2.8647e+01_rb,2.4351e+01_rb, &
+     &2.0129e+01_rb,1.4659e+01_rb,3.6174e+00_rb/)
+      kao(:, 1, 1,10) = (/ &
+     &2.6405e+03_rb,2.3104e+03_rb,1.9803e+03_rb,1.6503e+03_rb,1.3202e+03_rb,9.9017e+02_rb, &
+     &6.6011e+02_rb,3.3006e+02_rb,2.0071e-03_rb/)
+      kao(:, 2, 1,10) = (/ &
+     &3.3430e+03_rb,2.9251e+03_rb,2.5072e+03_rb,2.0894e+03_rb,1.6715e+03_rb,1.2536e+03_rb, &
+     &8.3575e+02_rb,4.1787e+02_rb,3.1756e-03_rb/)
+      kao(:, 3, 1,10) = (/ &
+     &4.1007e+03_rb,3.5881e+03_rb,3.0756e+03_rb,2.5630e+03_rb,2.0504e+03_rb,1.5378e+03_rb, &
+     &1.0252e+03_rb,5.1259e+02_rb,1.5257e-02_rb/)
+      kao(:, 4, 1,10) = (/ &
+     &4.9110e+03_rb,4.2972e+03_rb,3.6833e+03_rb,3.0694e+03_rb,2.4555e+03_rb,1.8416e+03_rb, &
+     &1.2278e+03_rb,6.1388e+02_rb,1.9623e-01_rb/)
+      kao(:, 5, 1,10) = (/ &
+     &5.7642e+03_rb,5.0437e+03_rb,4.3232e+03_rb,3.6026e+03_rb,2.8821e+03_rb,2.1616e+03_rb, &
+     &1.4411e+03_rb,7.2053e+02_rb,3.1630e-01_rb/)
+      kao(:, 1, 2,10) = (/ &
+     &2.0643e+03_rb,1.8062e+03_rb,1.5482e+03_rb,1.2902e+03_rb,1.0321e+03_rb,7.7410e+02_rb, &
+     &5.1607e+02_rb,2.5804e+02_rb,7.9610e-02_rb/)
+      kao(:, 2, 2,10) = (/ &
+     &2.6419e+03_rb,2.3117e+03_rb,1.9815e+03_rb,1.6512e+03_rb,1.3210e+03_rb,9.9073e+02_rb, &
+     &6.6049e+02_rb,3.3024e+02_rb,3.1756e-01_rb/)
+      kao(:, 3, 2,10) = (/ &
+     &3.2679e+03_rb,2.8594e+03_rb,2.4509e+03_rb,2.0424e+03_rb,1.6340e+03_rb,1.2255e+03_rb, &
+     &8.1698e+02_rb,4.0849e+02_rb,1.6019e+00_rb/)
+      kao(:, 4, 2,10) = (/ &
+     &3.9535e+03_rb,3.4593e+03_rb,2.9652e+03_rb,2.4710e+03_rb,1.9768e+03_rb,1.4826e+03_rb, &
+     &9.8838e+02_rb,4.9419e+02_rb,2.9545e+00_rb/)
+      kao(:, 5, 2,10) = (/ &
+     &4.6801e+03_rb,4.0951e+03_rb,3.5101e+03_rb,2.9251e+03_rb,2.3401e+03_rb,1.7551e+03_rb, &
+     &1.1700e+03_rb,5.8502e+02_rb,4.1449e+00_rb/)
+      kao(:, 1, 3,10) = (/ &
+     &1.5076e+03_rb,1.3191e+03_rb,1.1307e+03_rb,9.4224e+02_rb,7.5379e+02_rb,5.6534e+02_rb, &
+     &3.7689e+02_rb,1.8845e+02_rb,5.0945e-01_rb/)
+      kao(:, 2, 3,10) = (/ &
+     &1.9623e+03_rb,1.7170e+03_rb,1.4718e+03_rb,1.2265e+03_rb,9.8117e+02_rb,7.3588e+02_rb, &
+     &4.9059e+02_rb,2.4529e+02_rb,2.4679e+00_rb/)
+      kao(:, 3, 3,10) = (/ &
+     &2.4731e+03_rb,2.1640e+03_rb,1.8549e+03_rb,1.5457e+03_rb,1.2366e+03_rb,9.2743e+02_rb, &
+     &6.1829e+02_rb,3.0914e+02_rb,5.8082e+00_rb/)
+      kao(:, 4, 3,10) = (/ &
+     &3.0330e+03_rb,2.6538e+03_rb,2.2747e+03_rb,1.8956e+03_rb,1.5165e+03_rb,1.1374e+03_rb, &
+     &7.5824e+02_rb,3.7912e+02_rb,6.6677e+00_rb/)
+      kao(:, 5, 3,10) = (/ &
+     &3.6345e+03_rb,3.1802e+03_rb,2.7259e+03_rb,2.2715e+03_rb,1.8172e+03_rb,1.3629e+03_rb, &
+     &9.0862e+02_rb,4.5431e+02_rb,6.6949e+00_rb/)
+      kao(:, 1, 4,10) = (/ &
+     &1.0627e+03_rb,9.2986e+02_rb,7.9702e+02_rb,6.6419e+02_rb,5.3135e+02_rb,3.9851e+02_rb, &
+     &2.6568e+02_rb,1.3284e+02_rb,8.6599e+00_rb/)
+      kao(:, 2, 4,10) = (/ &
+     &1.4166e+03_rb,1.2395e+03_rb,1.0624e+03_rb,8.8537e+02_rb,7.0829e+02_rb,5.3122e+02_rb, &
+     &3.5415e+02_rb,1.7707e+02_rb,9.4746e+00_rb/)
+      kao(:, 3, 4,10) = (/ &
+     &1.8198e+03_rb,1.5923e+03_rb,1.3648e+03_rb,1.1374e+03_rb,9.0989e+02_rb,6.8241e+02_rb, &
+     &4.5494e+02_rb,2.2747e+02_rb,9.4272e+00_rb/)
+      kao(:, 4, 4,10) = (/ &
+     &2.2704e+03_rb,1.9866e+03_rb,1.7028e+03_rb,1.4190e+03_rb,1.1352e+03_rb,8.5140e+02_rb, &
+     &5.6760e+02_rb,2.8380e+02_rb,9.3833e+00_rb/)
+      kao(:, 5, 4,10) = (/ &
+     &2.7615e+03_rb,2.4164e+03_rb,2.0712e+03_rb,1.7260e+03_rb,1.3808e+03_rb,1.0356e+03_rb, &
+     &6.9039e+02_rb,3.4519e+02_rb,9.3214e+00_rb/)
+      kao(:, 1, 5,10) = (/ &
+     &7.3556e+02_rb,6.4362e+02_rb,5.5167e+02_rb,4.5973e+02_rb,3.6778e+02_rb,2.7584e+02_rb, &
+     &1.8389e+02_rb,9.1946e+01_rb,1.0345e+01_rb/)
+      kao(:, 2, 5,10) = (/ &
+     &1.0082e+03_rb,8.8219e+02_rb,7.5616e+02_rb,6.3013e+02_rb,5.0411e+02_rb,3.7808e+02_rb, &
+     &2.5205e+02_rb,1.2603e+02_rb,1.0318e+01_rb/)
+      kao(:, 3, 5,10) = (/ &
+     &1.3203e+03_rb,1.1552e+03_rb,9.9020e+02_rb,8.2516e+02_rb,6.6013e+02_rb,4.9510e+02_rb, &
+     &3.3007e+02_rb,1.6503e+02_rb,1.0269e+01_rb/)
+      kao(:, 4, 5,10) = (/ &
+     &1.6790e+03_rb,1.4691e+03_rb,1.2593e+03_rb,1.0494e+03_rb,8.3951e+02_rb,6.2963e+02_rb, &
+     &4.1976e+02_rb,2.0988e+02_rb,1.0211e+01_rb/)
+      kao(:, 5, 5,10) = (/ &
+     &2.0720e+03_rb,1.8130e+03_rb,1.5540e+03_rb,1.2950e+03_rb,1.0360e+03_rb,7.7699e+02_rb, &
+     &5.1799e+02_rb,2.5900e+02_rb,1.0128e+01_rb/)
+      kao(:, 1, 6,10) = (/ &
+     &4.9443e+02_rb,4.3263e+02_rb,3.7082e+02_rb,3.0902e+02_rb,2.4721e+02_rb,1.8541e+02_rb, &
+     &1.2361e+02_rb,6.1804e+01_rb,1.1088e+01_rb/)
+      kao(:, 2, 6,10) = (/ &
+     &6.9842e+02_rb,6.1111e+02_rb,5.2381e+02_rb,4.3651e+02_rb,3.4921e+02_rb,2.6191e+02_rb, &
+     &1.7460e+02_rb,8.7302e+01_rb,1.1041e+01_rb/)
+      kao(:, 3, 6,10) = (/ &
+     &9.3821e+02_rb,8.2094e+02_rb,7.0366e+02_rb,5.8638e+02_rb,4.6911e+02_rb,3.5183e+02_rb, &
+     &2.3455e+02_rb,1.1728e+02_rb,1.0988e+01_rb/)
+      kao(:, 4, 6,10) = (/ &
+     &1.2155e+03_rb,1.0636e+03_rb,9.1165e+02_rb,7.5971e+02_rb,6.0777e+02_rb,4.5582e+02_rb, &
+     &3.0388e+02_rb,1.5194e+02_rb,1.0913e+01_rb/)
+      kao(:, 5, 6,10) = (/ &
+     &1.5286e+03_rb,1.3375e+03_rb,1.1464e+03_rb,9.5536e+02_rb,7.6429e+02_rb,5.7321e+02_rb, &
+     &3.8214e+02_rb,1.9107e+02_rb,1.0808e+01_rb/)
+      kao(:, 1, 7,10) = (/ &
+     &3.2977e+02_rb,2.8854e+02_rb,2.4732e+02_rb,2.0610e+02_rb,1.6488e+02_rb,1.2366e+02_rb, &
+     &8.2441e+01_rb,4.1221e+01_rb,1.1566e+01_rb/)
+      kao(:, 2, 7,10) = (/ &
+     &4.8209e+02_rb,4.2183e+02_rb,3.6157e+02_rb,3.0131e+02_rb,2.4104e+02_rb,1.8078e+02_rb, &
+     &1.2052e+02_rb,6.0261e+01_rb,1.1564e+01_rb/)
+      kao(:, 3, 7,10) = (/ &
+     &6.6530e+02_rb,5.8214e+02_rb,4.9898e+02_rb,4.1581e+02_rb,3.3265e+02_rb,2.4949e+02_rb, &
+     &1.6632e+02_rb,8.3163e+01_rb,1.1535e+01_rb/)
+      kao(:, 4, 7,10) = (/ &
+     &8.8049e+02_rb,7.7043e+02_rb,6.6036e+02_rb,5.5030e+02_rb,4.4024e+02_rb,3.3018e+02_rb, &
+     &2.2012e+02_rb,1.1006e+02_rb,1.1437e+01_rb/)
+      kao(:, 5, 7,10) = (/ &
+     &1.1278e+03_rb,9.8684e+02_rb,8.4586e+02_rb,7.0488e+02_rb,5.6391e+02_rb,4.2293e+02_rb, &
+     &2.8195e+02_rb,1.4098e+02_rb,1.1316e+01_rb/)
+      kao(:, 1, 8,10) = (/ &
+     &2.2204e+02_rb,1.9428e+02_rb,1.6653e+02_rb,1.3877e+02_rb,1.1102e+02_rb,8.3264e+01_rb, &
+     &5.5510e+01_rb,3.0059e+01_rb,1.1861e+01_rb/)
+      kao(:, 2, 8,10) = (/ &
+     &3.3638e+02_rb,2.9433e+02_rb,2.5228e+02_rb,2.1024e+02_rb,1.6819e+02_rb,1.2614e+02_rb, &
+     &8.4095e+01_rb,4.2076e+01_rb,1.1785e+01_rb/)
+      kao(:, 3, 8,10) = (/ &
+     &4.7771e+02_rb,4.1800e+02_rb,3.5828e+02_rb,2.9857e+02_rb,2.3886e+02_rb,1.7914e+02_rb, &
+     &1.1943e+02_rb,5.9714e+01_rb,1.1693e+01_rb/)
+      kao(:, 4, 8,10) = (/ &
+     &6.4744e+02_rb,5.6651e+02_rb,4.8558e+02_rb,4.0465e+02_rb,3.2372e+02_rb,2.4279e+02_rb, &
+     &1.6186e+02_rb,8.0931e+01_rb,1.1572e+01_rb/)
+      kao(:, 5, 8,10) = (/ &
+     &8.4463e+02_rb,7.3905e+02_rb,6.3347e+02_rb,5.2789e+02_rb,4.2232e+02_rb,3.1674e+02_rb, &
+     &2.1116e+02_rb,1.0558e+02_rb,1.1447e+01_rb/)
+      kao(:, 1, 9,10) = (/ &
+     &1.4633e+02_rb,1.2804e+02_rb,1.0975e+02_rb,9.1455e+01_rb,7.3164e+01_rb,5.4873e+01_rb, &
+     &3.7228e+01_rb,2.6999e+01_rb,1.1829e+01_rb/)
+      kao(:, 2, 9,10) = (/ &
+     &2.2961e+02_rb,2.0091e+02_rb,1.7220e+02_rb,1.4350e+02_rb,1.1480e+02_rb,8.6102e+01_rb, &
+     &5.7402e+01_rb,3.3291e+01_rb,1.1753e+01_rb/)
+      kao(:, 3, 9,10) = (/ &
+     &3.3705e+02_rb,2.9492e+02_rb,2.5279e+02_rb,2.1066e+02_rb,1.6852e+02_rb,1.2639e+02_rb, &
+     &8.4263e+01_rb,4.2726e+01_rb,1.1656e+01_rb/)
+      kao(:, 4, 9,10) = (/ &
+     &4.6791e+02_rb,4.0942e+02_rb,3.5094e+02_rb,2.9245e+02_rb,2.3396e+02_rb,1.7547e+02_rb, &
+     &1.1698e+02_rb,5.8490e+01_rb,1.1546e+01_rb/)
+      kao(:, 5, 9,10) = (/ &
+     &6.2380e+02_rb,5.4582e+02_rb,4.6785e+02_rb,3.8987e+02_rb,3.1190e+02_rb,2.3392e+02_rb, &
+     &1.5595e+02_rb,7.7975e+01_rb,1.1440e+01_rb/)
+      kao(:, 1,10,10) = (/ &
+     &9.9121e+01_rb,8.6731e+01_rb,7.4340e+01_rb,6.1950e+01_rb,4.9560e+01_rb,3.7719e+01_rb, &
+     &3.0913e+01_rb,2.3571e+01_rb,1.2025e+01_rb/)
+      kao(:, 2,10,10) = (/ &
+     &1.5969e+02_rb,1.3973e+02_rb,1.1977e+02_rb,9.9804e+01_rb,7.9844e+01_rb,5.9883e+01_rb, &
+     &4.1267e+01_rb,2.9611e+01_rb,1.1959e+01_rb/)
+      kao(:, 3,10,10) = (/ &
+     &2.4182e+02_rb,2.1160e+02_rb,1.8137e+02_rb,1.5114e+02_rb,1.2091e+02_rb,9.0684e+01_rb, &
+     &6.0456e+01_rb,3.6780e+01_rb,1.1864e+01_rb/)
+      kao(:, 4,10,10) = (/ &
+     &3.4325e+02_rb,3.0034e+02_rb,2.5744e+02_rb,2.1453e+02_rb,1.7163e+02_rb,1.2872e+02_rb, &
+     &8.5813e+01_rb,4.5301e+01_rb,1.1768e+01_rb/)
+      kao(:, 5,10,10) = (/ &
+     &4.6649e+02_rb,4.0818e+02_rb,3.4987e+02_rb,2.9156e+02_rb,2.3325e+02_rb,1.7493e+02_rb, &
+     &1.1662e+02_rb,5.8448e+01_rb,1.1666e+01_rb/)
+      kao(:, 1,11,10) = (/ &
+     &8.4453e+01_rb,7.3896e+01_rb,6.3339e+01_rb,5.2783e+01_rb,4.2282e+01_rb,3.5008e+01_rb, &
+     &3.0468e+01_rb,2.2795e+01_rb,1.2480e+01_rb/)
+      kao(:, 2,11,10) = (/ &
+     &1.3606e+02_rb,1.1905e+02_rb,1.0204e+02_rb,8.5035e+01_rb,6.8028e+01_rb,5.1171e+01_rb, &
+     &3.9405e+01_rb,2.8346e+01_rb,1.2418e+01_rb/)
+      kao(:, 3,11,10) = (/ &
+     &2.0562e+02_rb,1.7991e+02_rb,1.5421e+02_rb,1.2851e+02_rb,1.0281e+02_rb,7.7106e+01_rb, &
+     &5.2236e+01_rb,3.5283e+01_rb,1.2333e+01_rb/)
+      kao(:, 4,11,10) = (/ &
+     &2.9197e+02_rb,2.5547e+02_rb,2.1898e+02_rb,1.8248e+02_rb,1.4598e+02_rb,1.0949e+02_rb, &
+     &7.2992e+01_rb,4.3383e+01_rb,1.2243e+01_rb/)
+      kao(:, 5,11,10) = (/ &
+     &3.9645e+02_rb,3.4690e+02_rb,2.9734e+02_rb,2.4778e+02_rb,1.9823e+02_rb,1.4867e+02_rb, &
+     &9.9113e+01_rb,5.2639e+01_rb,1.2132e+01_rb/)
+      kao(:, 1,12,10) = (/ &
+     &7.3008e+01_rb,6.3882e+01_rb,5.4756e+01_rb,4.5630e+01_rb,3.8097e+01_rb,3.4292e+01_rb, &
+     &2.9157e+01_rb,2.1820e+01_rb,1.2784e+01_rb/)
+      kao(:, 2,12,10) = (/ &
+     &1.1777e+02_rb,1.0304e+02_rb,8.8324e+01_rb,7.3604e+01_rb,5.8883e+01_rb,4.6283e+01_rb, &
+     &3.8218e+01_rb,2.7110e+01_rb,1.2693e+01_rb/)
+      kao(:, 3,12,10) = (/ &
+     &1.7754e+02_rb,1.5535e+02_rb,1.3316e+02_rb,1.1096e+02_rb,8.8771e+01_rb,6.6578e+01_rb, &
+     &4.9180e+01_rb,3.3603e+01_rb,1.2566e+01_rb/)
+      kao(:, 4,12,10) = (/ &
+     &2.5172e+02_rb,2.2026e+02_rb,1.8879e+02_rb,1.5733e+02_rb,1.2586e+02_rb,9.4396e+01_rb, &
+     &6.3855e+01_rb,4.1285e+01_rb,1.2431e+01_rb/)
+      kao(:, 5,12,10) = (/ &
+     &3.4203e+02_rb,2.9928e+02_rb,2.5652e+02_rb,2.1377e+02_rb,1.7102e+02_rb,1.2826e+02_rb, &
+     &8.5508e+01_rb,5.0087e+01_rb,1.2252e+01_rb/)
+      kao(:, 1,13,10) = (/ &
+     &6.5744e+01_rb,5.7526e+01_rb,4.9308e+01_rb,4.1412e+01_rb,3.7107e+01_rb,3.3686e+01_rb, &
+     &2.7959e+01_rb,2.0954e+01_rb,1.2543e+01_rb/)
+      kao(:, 2,13,10) = (/ &
+     &1.0592e+02_rb,9.2679e+01_rb,7.9440e+01_rb,6.6200e+01_rb,5.3492e+01_rb,4.5296e+01_rb, &
+     &3.7012e+01_rb,2.6073e+01_rb,1.2385e+01_rb/)
+      kao(:, 3,13,10) = (/ &
+     &1.5952e+02_rb,1.3958e+02_rb,1.1964e+02_rb,9.9699e+01_rb,7.9759e+01_rb,6.0961e+01_rb, &
+     &4.7985e+01_rb,3.2430e+01_rb,1.2250e+01_rb/)
+      kao(:, 4,13,10) = (/ &
+     &2.2626e+02_rb,1.9798e+02_rb,1.6969e+02_rb,1.4141e+02_rb,1.1313e+02_rb,8.4848e+01_rb, &
+     &6.0965e+01_rb,3.9929e+01_rb,1.2100e+01_rb/)
+      kao(:, 5,13,10) = (/ &
+     &3.0736e+02_rb,2.6894e+02_rb,2.3052e+02_rb,1.9210e+02_rb,1.5368e+02_rb,1.1526e+02_rb, &
+     &7.7678e+01_rb,4.8494e+01_rb,1.1980e+01_rb/)
+      kao(:, 1, 1,11) = (/ &
+     &3.9010e+03_rb,3.4134e+03_rb,2.9257e+03_rb,2.4381e+03_rb,1.9505e+03_rb,1.4629e+03_rb, &
+     &9.7525e+02_rb,4.8762e+02_rb,2.5641e-03_rb/)
+      kao(:, 2, 1,11) = (/ &
+     &4.8941e+03_rb,4.2823e+03_rb,3.6706e+03_rb,3.0588e+03_rb,2.4471e+03_rb,1.8353e+03_rb, &
+     &1.2235e+03_rb,6.1176e+02_rb,4.7147e-03_rb/)
+      kao(:, 3, 1,11) = (/ &
+     &6.0244e+03_rb,5.2713e+03_rb,4.5183e+03_rb,3.7652e+03_rb,3.0122e+03_rb,2.2591e+03_rb, &
+     &1.5061e+03_rb,7.5305e+02_rb,1.8229e-02_rb/)
+      kao(:, 4, 1,11) = (/ &
+     &7.2726e+03_rb,6.3635e+03_rb,5.4544e+03_rb,4.5454e+03_rb,3.6363e+03_rb,2.7272e+03_rb, &
+     &1.8181e+03_rb,9.0907e+02_rb,4.1403e-02_rb/)
+      kao(:, 5, 1,11) = (/ &
+     &8.6200e+03_rb,7.5425e+03_rb,6.4650e+03_rb,5.3875e+03_rb,4.3100e+03_rb,3.2325e+03_rb, &
+     &2.1550e+03_rb,1.0775e+03_rb,7.0391e-01_rb/)
+      kao(:, 1, 2,11) = (/ &
+     &3.0926e+03_rb,2.7060e+03_rb,2.3194e+03_rb,1.9329e+03_rb,1.5463e+03_rb,1.1597e+03_rb, &
+     &7.7315e+02_rb,3.8657e+02_rb,1.4758e-01_rb/)
+      kao(:, 2, 2,11) = (/ &
+     &3.9512e+03_rb,3.4573e+03_rb,2.9634e+03_rb,2.4695e+03_rb,1.9756e+03_rb,1.4817e+03_rb, &
+     &9.8779e+02_rb,4.9390e+02_rb,7.5464e-01_rb/)
+      kao(:, 3, 2,11) = (/ &
+     &4.9225e+03_rb,4.3072e+03_rb,3.6919e+03_rb,3.0766e+03_rb,2.4613e+03_rb,1.8460e+03_rb, &
+     &1.2306e+03_rb,6.1532e+02_rb,2.2469e+00_rb/)
+      kao(:, 4, 2,11) = (/ &
+     &6.0042e+03_rb,5.2537e+03_rb,4.5032e+03_rb,3.7526e+03_rb,3.0021e+03_rb,2.2516e+03_rb, &
+     &1.5011e+03_rb,7.5053e+02_rb,4.5134e+00_rb/)
+      kao(:, 5, 2,11) = (/ &
+     &7.1983e+03_rb,6.2985e+03_rb,5.3987e+03_rb,4.4989e+03_rb,3.5991e+03_rb,2.6994e+03_rb, &
+     &1.7996e+03_rb,8.9979e+02_rb,5.4294e+00_rb/)
+      kao(:, 1, 3,11) = (/ &
+     &2.3009e+03_rb,2.0133e+03_rb,1.7257e+03_rb,1.4381e+03_rb,1.1505e+03_rb,8.6285e+02_rb, &
+     &5.7523e+02_rb,2.8762e+02_rb,4.0343e+00_rb/)
+      kao(:, 2, 3,11) = (/ &
+     &2.9916e+03_rb,2.6177e+03_rb,2.2437e+03_rb,1.8698e+03_rb,1.4958e+03_rb,1.1219e+03_rb, &
+     &7.4790e+02_rb,3.7395e+02_rb,9.4960e+00_rb/)
+      kao(:, 3, 3,11) = (/ &
+     &3.7957e+03_rb,3.3213e+03_rb,2.8468e+03_rb,2.3723e+03_rb,1.8979e+03_rb,1.4234e+03_rb, &
+     &9.4893e+02_rb,4.7447e+02_rb,9.8961e+00_rb/)
+      kao(:, 4, 3,11) = (/ &
+     &4.7090e+03_rb,4.1204e+03_rb,3.5318e+03_rb,2.9432e+03_rb,2.3545e+03_rb,1.7659e+03_rb, &
+     &1.1773e+03_rb,5.8863e+02_rb,9.8448e+00_rb/)
+      kao(:, 5, 3,11) = (/ &
+     &5.7119e+03_rb,4.9979e+03_rb,4.2839e+03_rb,3.5699e+03_rb,2.8560e+03_rb,2.1420e+03_rb, &
+     &1.4280e+03_rb,7.1399e+02_rb,9.5434e+00_rb/)
+      kao(:, 1, 4,11) = (/ &
+     &1.6459e+03_rb,1.4402e+03_rb,1.2345e+03_rb,1.0287e+03_rb,8.2297e+02_rb,6.1723e+02_rb, &
+     &4.1148e+02_rb,2.0574e+02_rb,1.1261e+01_rb/)
+      kao(:, 2, 4,11) = (/ &
+     &2.1944e+03_rb,1.9201e+03_rb,1.6458e+03_rb,1.3715e+03_rb,1.0972e+03_rb,8.2292e+02_rb, &
+     &5.4861e+02_rb,2.7431e+02_rb,1.1246e+01_rb/)
+      kao(:, 3, 4,11) = (/ &
+     &2.8415e+03_rb,2.4863e+03_rb,2.1311e+03_rb,1.7759e+03_rb,1.4207e+03_rb,1.0656e+03_rb, &
+     &7.1037e+02_rb,3.5519e+02_rb,1.1203e+01_rb/)
+      kao(:, 4, 4,11) = (/ &
+     &3.5819e+03_rb,3.1342e+03_rb,2.6865e+03_rb,2.2387e+03_rb,1.7910e+03_rb,1.3432e+03_rb, &
+     &8.9549e+02_rb,4.4774e+02_rb,1.1137e+01_rb/)
+      kao(:, 5, 4,11) = (/ &
+     &4.4164e+03_rb,3.8643e+03_rb,3.3123e+03_rb,2.7602e+03_rb,2.2082e+03_rb,1.6561e+03_rb, &
+     &1.1041e+03_rb,5.5205e+02_rb,1.1062e+01_rb/)
+      kao(:, 1, 5,11) = (/ &
+     &1.1573e+03_rb,1.0126e+03_rb,8.6797e+02_rb,7.2331e+02_rb,5.7865e+02_rb,4.3399e+02_rb, &
+     &2.8932e+02_rb,1.4466e+02_rb,1.2627e+01_rb/)
+      kao(:, 2, 5,11) = (/ &
+     &1.5804e+03_rb,1.3829e+03_rb,1.1853e+03_rb,9.8775e+02_rb,7.9020e+02_rb,5.9265e+02_rb, &
+     &3.9510e+02_rb,1.9755e+02_rb,1.2599e+01_rb/)
+      kao(:, 3, 5,11) = (/ &
+     &2.0873e+03_rb,1.8264e+03_rb,1.5655e+03_rb,1.3046e+03_rb,1.0437e+03_rb,7.8274e+02_rb, &
+     &5.2183e+02_rb,2.6092e+02_rb,1.2536e+01_rb/)
+      kao(:, 4, 5,11) = (/ &
+     &2.6827e+03_rb,2.3473e+03_rb,2.0120e+03_rb,1.6767e+03_rb,1.3413e+03_rb,1.0060e+03_rb, &
+     &6.7067e+02_rb,3.3534e+02_rb,1.2467e+01_rb/)
+      kao(:, 5, 5,11) = (/ &
+     &3.3592e+03_rb,2.9393e+03_rb,2.5194e+03_rb,2.0995e+03_rb,1.6796e+03_rb,1.2597e+03_rb, &
+     &8.3980e+02_rb,4.1990e+02_rb,1.2393e+01_rb/)
+      kao(:, 1, 6,11) = (/ &
+     &7.9180e+02_rb,6.9282e+02_rb,5.9385e+02_rb,4.9487e+02_rb,3.9590e+02_rb,2.9692e+02_rb, &
+     &1.9795e+02_rb,9.8975e+01_rb,1.3948e+01_rb/)
+      kao(:, 2, 6,11) = (/ &
+     &1.1067e+03_rb,9.6838e+02_rb,8.3004e+02_rb,6.9170e+02_rb,5.5336e+02_rb,4.1502e+02_rb, &
+     &2.7668e+02_rb,1.3834e+02_rb,1.3917e+01_rb/)
+      kao(:, 3, 6,11) = (/ &
+     &1.4976e+03_rb,1.3104e+03_rb,1.1232e+03_rb,9.3600e+02_rb,7.4880e+02_rb,5.6160e+02_rb, &
+     &3.7440e+02_rb,1.8720e+02_rb,1.3860e+01_rb/)
+      kao(:, 4, 6,11) = (/ &
+     &1.9619e+03_rb,1.7167e+03_rb,1.4715e+03_rb,1.2262e+03_rb,9.8097e+02_rb,7.3573e+02_rb, &
+     &4.9049e+02_rb,2.4524e+02_rb,1.3785e+01_rb/)
+      kao(:, 5, 6,11) = (/ &
+     &2.4991e+03_rb,2.1867e+03_rb,1.8743e+03_rb,1.5619e+03_rb,1.2496e+03_rb,9.3716e+02_rb, &
+     &6.2477e+02_rb,3.1239e+02_rb,1.3707e+01_rb/)
+      kao(:, 1, 7,11) = (/ &
+     &5.3794e+02_rb,4.7070e+02_rb,4.0346e+02_rb,3.3621e+02_rb,2.6897e+02_rb,2.0173e+02_rb, &
+     &1.3449e+02_rb,6.7243e+01_rb,1.5200e+01_rb/)
+      kao(:, 2, 7,11) = (/ &
+     &7.7168e+02_rb,6.7522e+02_rb,5.7876e+02_rb,4.8230e+02_rb,3.8584e+02_rb,2.8938e+02_rb, &
+     &1.9292e+02_rb,9.6460e+01_rb,1.5161e+01_rb/)
+      kao(:, 3, 7,11) = (/ &
+     &1.0690e+03_rb,9.3537e+02_rb,8.0174e+02_rb,6.6812e+02_rb,5.3449e+02_rb,4.0087e+02_rb, &
+     &2.6725e+02_rb,1.3362e+02_rb,1.5097e+01_rb/)
+      kao(:, 4, 7,11) = (/ &
+     &1.4303e+03_rb,1.2515e+03_rb,1.0727e+03_rb,8.9396e+02_rb,7.1516e+02_rb,5.3637e+02_rb, &
+     &3.5758e+02_rb,1.7879e+02_rb,1.5017e+01_rb/)
+      kao(:, 5, 7,11) = (/ &
+     &1.8576e+03_rb,1.6254e+03_rb,1.3932e+03_rb,1.1610e+03_rb,9.2880e+02_rb,6.9660e+02_rb, &
+     &4.6440e+02_rb,2.3220e+02_rb,1.4920e+01_rb/)
+      kao(:, 1, 8,11) = (/ &
+     &3.6857e+02_rb,3.2250e+02_rb,2.7643e+02_rb,2.3036e+02_rb,1.8428e+02_rb,1.3821e+02_rb, &
+     &9.2143e+01_rb,4.6072e+01_rb,1.6297e+01_rb/)
+      kao(:, 2, 8,11) = (/ &
+     &5.4427e+02_rb,4.7624e+02_rb,4.0820e+02_rb,3.4017e+02_rb,2.7214e+02_rb,2.0410e+02_rb, &
+     &1.3607e+02_rb,6.8035e+01_rb,1.6238e+01_rb/)
+      kao(:, 3, 8,11) = (/ &
+     &7.7191e+02_rb,6.7542e+02_rb,5.7893e+02_rb,4.8244e+02_rb,3.8595e+02_rb,2.8947e+02_rb, &
+     &1.9298e+02_rb,9.6489e+01_rb,1.6155e+01_rb/)
+      kao(:, 4, 8,11) = (/ &
+     &1.0564e+03_rb,9.2435e+02_rb,7.9230e+02_rb,6.6025e+02_rb,5.2820e+02_rb,3.9615e+02_rb, &
+     &2.6410e+02_rb,1.3205e+02_rb,1.6062e+01_rb/)
+      kao(:, 5, 8,11) = (/ &
+     &1.3972e+03_rb,1.2225e+03_rb,1.0479e+03_rb,8.7322e+02_rb,6.9858e+02_rb,5.2393e+02_rb, &
+     &3.4929e+02_rb,1.7465e+02_rb,1.5943e+01_rb/)
+      kao(:, 1, 9,11) = (/ &
+     &2.4734e+02_rb,2.1642e+02_rb,1.8550e+02_rb,1.5459e+02_rb,1.2367e+02_rb,9.2751e+01_rb, &
+     &6.1834e+01_rb,3.4329e+01_rb,1.7139e+01_rb/)
+      kao(:, 2, 9,11) = (/ &
+     &3.7646e+02_rb,3.2941e+02_rb,2.8235e+02_rb,2.3529e+02_rb,1.8823e+02_rb,1.4117e+02_rb, &
+     &9.4116e+01_rb,4.7119e+01_rb,1.7064e+01_rb/)
+      kao(:, 3, 9,11) = (/ &
+     &5.4702e+02_rb,4.7864e+02_rb,4.1027e+02_rb,3.4189e+02_rb,2.7351e+02_rb,2.0513e+02_rb, &
+     &1.3676e+02_rb,6.8378e+01_rb,1.6972e+01_rb/)
+      kao(:, 4, 9,11) = (/ &
+     &7.6564e+02_rb,6.6994e+02_rb,5.7423e+02_rb,4.7853e+02_rb,3.8282e+02_rb,2.8712e+02_rb, &
+     &1.9141e+02_rb,9.5706e+01_rb,1.6856e+01_rb/)
+      kao(:, 5, 9,11) = (/ &
+     &1.0333e+03_rb,9.0412e+02_rb,7.7496e+02_rb,6.4580e+02_rb,5.1664e+02_rb,3.8748e+02_rb, &
+     &2.5832e+02_rb,1.2916e+02_rb,1.6713e+01_rb/)
+      kao(:, 1,10,11) = (/ &
+     &1.6975e+02_rb,1.4853e+02_rb,1.2731e+02_rb,1.0609e+02_rb,8.4874e+01_rb,6.3656e+01_rb, &
+     &4.3000e+01_rb,3.1831e+01_rb,1.7572e+01_rb/)
+      kao(:, 2,10,11) = (/ &
+     &2.6544e+02_rb,2.3226e+02_rb,1.9908e+02_rb,1.6590e+02_rb,1.3272e+02_rb,9.9541e+01_rb, &
+     &6.6361e+01_rb,3.9122e+01_rb,1.7485e+01_rb/)
+      kao(:, 3,10,11) = (/ &
+     &3.9471e+02_rb,3.4537e+02_rb,2.9603e+02_rb,2.4669e+02_rb,1.9735e+02_rb,1.4801e+02_rb, &
+     &9.8676e+01_rb,5.0382e+01_rb,1.7381e+01_rb/)
+      kao(:, 4,10,11) = (/ &
+     &5.6315e+02_rb,4.9275e+02_rb,4.2236e+02_rb,3.5197e+02_rb,2.8157e+02_rb,2.1118e+02_rb, &
+     &1.4079e+02_rb,7.0394e+01_rb,1.7247e+01_rb/)
+      kao(:, 5,10,11) = (/ &
+     &7.7410e+02_rb,6.7734e+02_rb,5.8057e+02_rb,4.8381e+02_rb,3.8705e+02_rb,2.9029e+02_rb, &
+     &1.9352e+02_rb,9.6763e+01_rb,1.7092e+01_rb/)
+      kao(:, 1,11,11) = (/ &
+     &1.4476e+02_rb,1.2667e+02_rb,1.0857e+02_rb,9.0475e+01_rb,7.2380e+01_rb,5.4285e+01_rb, &
+     &4.0590e+01_rb,3.2171e+01_rb,1.7597e+01_rb/)
+      kao(:, 2,11,11) = (/ &
+     &2.2628e+02_rb,1.9800e+02_rb,1.6971e+02_rb,1.4143e+02_rb,1.1314e+02_rb,8.4856e+01_rb, &
+     &5.6719e+01_rb,3.9479e+01_rb,1.7480e+01_rb/)
+      kao(:, 3,11,11) = (/ &
+     &3.3682e+02_rb,2.9472e+02_rb,2.5262e+02_rb,2.1051e+02_rb,1.6841e+02_rb,1.2631e+02_rb, &
+     &8.4204e+01_rb,4.8355e+01_rb,1.7349e+01_rb/)
+      kao(:, 4,11,11) = (/ &
+     &4.8164e+02_rb,4.2144e+02_rb,3.6123e+02_rb,3.0103e+02_rb,2.4082e+02_rb,1.8062e+02_rb, &
+     &1.2041e+02_rb,6.1572e+01_rb,1.7186e+01_rb/)
+      kao(:, 5,11,11) = (/ &
+     &6.6267e+02_rb,5.7984e+02_rb,4.9701e+02_rb,4.1417e+02_rb,3.3134e+02_rb,2.4850e+02_rb, &
+     &1.6567e+02_rb,8.2835e+01_rb,1.7015e+01_rb/)
+      kao(:, 1,12,11) = (/ &
+     &1.2510e+02_rb,1.0946e+02_rb,9.3823e+01_rb,7.8186e+01_rb,6.2549e+01_rb,4.8100e+01_rb, &
+     &4.0318e+01_rb,3.2221e+01_rb,1.7708e+01_rb/)
+      kao(:, 2,12,11) = (/ &
+     &1.9563e+02_rb,1.7117e+02_rb,1.4672e+02_rb,1.2227e+02_rb,9.7813e+01_rb,7.3360e+01_rb, &
+     &5.2529e+01_rb,3.9562e+01_rb,1.7612e+01_rb/)
+      kao(:, 3,12,11) = (/ &
+     &2.9201e+02_rb,2.5551e+02_rb,2.1901e+02_rb,1.8251e+02_rb,1.4600e+02_rb,1.0950e+02_rb, &
+     &7.3154e+01_rb,4.8447e+01_rb,1.7481e+01_rb/)
+      kao(:, 4,12,11) = (/ &
+     &4.1774e+02_rb,3.6552e+02_rb,3.1331e+02_rb,2.6109e+02_rb,2.0887e+02_rb,1.5665e+02_rb, &
+     &1.0444e+02_rb,5.8915e+01_rb,1.7339e+01_rb/)
+      kao(:, 5,12,11) = (/ &
+     &5.7504e+02_rb,5.0316e+02_rb,4.3128e+02_rb,3.5940e+02_rb,2.8752e+02_rb,2.1564e+02_rb, &
+     &1.4376e+02_rb,7.3682e+01_rb,1.7186e+01_rb/)
+      kao(:, 1,13,11) = (/ &
+     &1.1264e+02_rb,9.8561e+01_rb,8.4481e+01_rb,7.0401e+01_rb,5.6432e+01_rb,4.7061e+01_rb, &
+     &4.0409e+01_rb,3.2253e+01_rb,1.8302e+01_rb/)
+      kao(:, 2,13,11) = (/ &
+     &1.7621e+02_rb,1.5419e+02_rb,1.3216e+02_rb,1.1013e+02_rb,8.8108e+01_rb,6.6456e+01_rb, &
+     &5.2592e+01_rb,3.9667e+01_rb,1.8194e+01_rb/)
+      kao(:, 3,13,11) = (/ &
+     &2.6303e+02_rb,2.3015e+02_rb,1.9727e+02_rb,1.6440e+02_rb,1.3152e+02_rb,9.8638e+01_rb, &
+     &6.8547e+01_rb,4.8772e+01_rb,1.8071e+01_rb/)
+      kao(:, 4,13,11) = (/ &
+     &3.7673e+02_rb,3.2964e+02_rb,2.8255e+02_rb,2.3546e+02_rb,1.8837e+02_rb,1.4128e+02_rb, &
+     &9.4251e+01_rb,5.9423e+01_rb,1.7926e+01_rb/)
+      kao(:, 5,13,11) = (/ &
+     &5.1904e+02_rb,4.5416e+02_rb,3.8928e+02_rb,3.2440e+02_rb,2.5952e+02_rb,1.9464e+02_rb, &
+     &1.2976e+02_rb,7.1698e+01_rb,1.7708e+01_rb/)
+      kao(:, 1, 1,12) = (/ &
+     &6.1566e+03_rb,5.3871e+03_rb,4.6175e+03_rb,3.8479e+03_rb,3.0783e+03_rb,2.3087e+03_rb, &
+     &1.5392e+03_rb,7.6958e+02_rb,3.6622e-03_rb/)
+      kao(:, 2, 1,12) = (/ &
+     &7.8640e+03_rb,6.8810e+03_rb,5.8980e+03_rb,4.9150e+03_rb,3.9320e+03_rb,2.9490e+03_rb, &
+     &1.9660e+03_rb,9.8301e+02_rb,3.6025e-03_rb/)
+      kao(:, 3, 1,12) = (/ &
+     &9.7949e+03_rb,8.5705e+03_rb,7.3462e+03_rb,6.1218e+03_rb,4.8974e+03_rb,3.6731e+03_rb, &
+     &2.4487e+03_rb,1.2244e+03_rb,3.3010e-02_rb/)
+      kao(:, 4, 1,12) = (/ &
+     &1.1959e+04_rb,1.0464e+04_rb,8.9695e+03_rb,7.4746e+03_rb,5.9797e+03_rb,4.4847e+03_rb, &
+     &2.9898e+03_rb,1.4949e+03_rb,6.0612e-02_rb/)
+      kao(:, 5, 1,12) = (/ &
+     &1.4386e+04_rb,1.2588e+04_rb,1.0790e+04_rb,8.9913e+03_rb,7.1931e+03_rb,5.3948e+03_rb, &
+     &3.5965e+03_rb,1.7983e+03_rb,7.6915e-02_rb/)
+      kao(:, 1, 2,12) = (/ &
+     &5.0811e+03_rb,4.4460e+03_rb,3.8109e+03_rb,3.1757e+03_rb,2.5406e+03_rb,1.9054e+03_rb, &
+     &1.2703e+03_rb,6.3514e+02_rb,2.7963e-01_rb/)
+      kao(:, 2, 2,12) = (/ &
+     &6.5891e+03_rb,5.7655e+03_rb,4.9418e+03_rb,4.1182e+03_rb,3.2946e+03_rb,2.4709e+03_rb, &
+     &1.6473e+03_rb,8.2364e+02_rb,2.3002e+00_rb/)
+      kao(:, 3, 2,12) = (/ &
+     &8.3666e+03_rb,7.3208e+03_rb,6.2750e+03_rb,5.2291e+03_rb,4.1833e+03_rb,3.1375e+03_rb, &
+     &2.0917e+03_rb,1.0458e+03_rb,4.9790e+00_rb/)
+      kao(:, 4, 2,12) = (/ &
+     &1.0356e+04_rb,9.0616e+03_rb,7.7671e+03_rb,6.4726e+03_rb,5.1781e+03_rb,3.8836e+03_rb, &
+     &2.5890e+03_rb,1.2945e+03_rb,6.0169e+00_rb/)
+      kao(:, 5, 2,12) = (/ &
+     &1.2531e+04_rb,1.0965e+04_rb,9.3984e+03_rb,7.8320e+03_rb,6.2656e+03_rb,4.6992e+03_rb, &
+     &3.1328e+03_rb,1.5664e+03_rb,6.8160e+00_rb/)
+      kao(:, 1, 3,12) = (/ &
+     &3.8913e+03_rb,3.4049e+03_rb,2.9185e+03_rb,2.4321e+03_rb,1.9457e+03_rb,1.4593e+03_rb, &
+     &9.7284e+02_rb,4.8642e+02_rb,1.1253e+01_rb/)
+      kao(:, 2, 3,12) = (/ &
+     &5.1870e+03_rb,4.5386e+03_rb,3.8902e+03_rb,3.2418e+03_rb,2.5935e+03_rb,1.9451e+03_rb, &
+     &1.2967e+03_rb,6.4837e+02_rb,1.1246e+01_rb/)
+      kao(:, 3, 3,12) = (/ &
+     &6.6906e+03_rb,5.8543e+03_rb,5.0180e+03_rb,4.1816e+03_rb,3.3453e+03_rb,2.5090e+03_rb, &
+     &1.6727e+03_rb,8.3633e+02_rb,1.1235e+01_rb/)
+      kao(:, 4, 3,12) = (/ &
+     &8.4124e+03_rb,7.3608e+03_rb,6.3093e+03_rb,5.2577e+03_rb,4.2062e+03_rb,3.1546e+03_rb, &
+     &2.1031e+03_rb,1.0515e+03_rb,1.1206e+01_rb/)
+      kao(:, 5, 3,12) = (/ &
+     &1.0381e+04_rb,9.0837e+03_rb,7.7860e+03_rb,6.4883e+03_rb,5.1907e+03_rb,3.8930e+03_rb, &
+     &2.5953e+03_rb,1.2977e+03_rb,1.1154e+01_rb/)
+      kao(:, 1, 4,12) = (/ &
+     &2.8697e+03_rb,2.5110e+03_rb,2.1523e+03_rb,1.7936e+03_rb,1.4349e+03_rb,1.0761e+03_rb, &
+     &7.1743e+02_rb,3.5872e+02_rb,1.3022e+01_rb/)
+      kao(:, 2, 4,12) = (/ &
+     &3.9101e+03_rb,3.4213e+03_rb,2.9326e+03_rb,2.4438e+03_rb,1.9551e+03_rb,1.4663e+03_rb, &
+     &9.7753e+02_rb,4.8877e+02_rb,1.3025e+01_rb/)
+      kao(:, 3, 4,12) = (/ &
+     &5.1573e+03_rb,4.5126e+03_rb,3.8680e+03_rb,3.2233e+03_rb,2.5786e+03_rb,1.9340e+03_rb, &
+     &1.2893e+03_rb,6.4466e+02_rb,1.3008e+01_rb/)
+      kao(:, 4, 4,12) = (/ &
+     &6.6403e+03_rb,5.8103e+03_rb,4.9802e+03_rb,4.1502e+03_rb,3.3201e+03_rb,2.4901e+03_rb, &
+     &1.6601e+03_rb,8.3004e+02_rb,1.2981e+01_rb/)
+      kao(:, 5, 4,12) = (/ &
+     &8.3023e+03_rb,7.2645e+03_rb,6.2267e+03_rb,5.1889e+03_rb,4.1511e+03_rb,3.1134e+03_rb, &
+     &2.0756e+03_rb,1.0378e+03_rb,1.2927e+01_rb/)
+      kao(:, 1, 5,12) = (/ &
+     &2.0574e+03_rb,1.8002e+03_rb,1.5431e+03_rb,1.2859e+03_rb,1.0287e+03_rb,7.7153e+02_rb, &
+     &5.1435e+02_rb,2.5718e+02_rb,1.4941e+01_rb/)
+      kao(:, 2, 5,12) = (/ &
+     &2.8796e+03_rb,2.5197e+03_rb,2.1597e+03_rb,1.7998e+03_rb,1.4398e+03_rb,1.0799e+03_rb, &
+     &7.1991e+02_rb,3.5996e+02_rb,1.4958e+01_rb/)
+      kao(:, 3, 5,12) = (/ &
+     &3.9044e+03_rb,3.4163e+03_rb,2.9283e+03_rb,2.4402e+03_rb,1.9522e+03_rb,1.4641e+03_rb, &
+     &9.7610e+02_rb,4.8805e+02_rb,1.4965e+01_rb/)
+      kao(:, 4, 5,12) = (/ &
+     &5.1045e+03_rb,4.4665e+03_rb,3.8284e+03_rb,3.1903e+03_rb,2.5523e+03_rb,1.9142e+03_rb, &
+     &1.2761e+03_rb,6.3807e+02_rb,1.4927e+01_rb/)
+      kao(:, 5, 5,12) = (/ &
+     &6.5127e+03_rb,5.6986e+03_rb,4.8846e+03_rb,4.0705e+03_rb,3.2564e+03_rb,2.4423e+03_rb, &
+     &1.6282e+03_rb,8.1409e+02_rb,1.4857e+01_rb/)
+      kao(:, 1, 6,12) = (/ &
+     &1.4218e+03_rb,1.2441e+03_rb,1.0663e+03_rb,8.8861e+02_rb,7.1089e+02_rb,5.3316e+02_rb, &
+     &3.5544e+02_rb,1.7772e+02_rb,1.7034e+01_rb/)
+      kao(:, 2, 6,12) = (/ &
+     &2.0585e+03_rb,1.8012e+03_rb,1.5439e+03_rb,1.2865e+03_rb,1.0292e+03_rb,7.7193e+02_rb, &
+     &5.1462e+02_rb,2.5731e+02_rb,1.7052e+01_rb/)
+      kao(:, 3, 6,12) = (/ &
+     &2.8529e+03_rb,2.4963e+03_rb,2.1397e+03_rb,1.7831e+03_rb,1.4265e+03_rb,1.0699e+03_rb, &
+     &7.1324e+02_rb,3.5662e+02_rb,1.7043e+01_rb/)
+      kao(:, 4, 6,12) = (/ &
+     &3.8237e+03_rb,3.3458e+03_rb,2.8678e+03_rb,2.3898e+03_rb,1.9119e+03_rb,1.4339e+03_rb, &
+     &9.5593e+02_rb,4.7797e+02_rb,1.6999e+01_rb/)
+      kao(:, 5, 6,12) = (/ &
+     &4.9757e+03_rb,4.3537e+03_rb,3.7318e+03_rb,3.1098e+03_rb,2.4878e+03_rb,1.8659e+03_rb, &
+     &1.2439e+03_rb,6.2196e+02_rb,1.6923e+01_rb/)
+      kao(:, 1, 7,12) = (/ &
+     &9.7219e+02_rb,8.5066e+02_rb,7.2914e+02_rb,6.0761e+02_rb,4.8609e+02_rb,3.6457e+02_rb, &
+     &2.4305e+02_rb,1.2152e+02_rb,1.9204e+01_rb/)
+      kao(:, 2, 7,12) = (/ &
+     &1.4501e+03_rb,1.2688e+03_rb,1.0876e+03_rb,9.0631e+02_rb,7.2505e+02_rb,5.4378e+02_rb, &
+     &3.6252e+02_rb,1.8126e+02_rb,1.9225e+01_rb/)
+      kao(:, 3, 7,12) = (/ &
+     &2.0671e+03_rb,1.8087e+03_rb,1.5503e+03_rb,1.2919e+03_rb,1.0335e+03_rb,7.7515e+02_rb, &
+     &5.1676e+02_rb,2.5838e+02_rb,1.9209e+01_rb/)
+      kao(:, 4, 7,12) = (/ &
+     &2.8414e+03_rb,2.4862e+03_rb,2.1311e+03_rb,1.7759e+03_rb,1.4207e+03_rb,1.0655e+03_rb, &
+     &7.1035e+02_rb,3.5518e+02_rb,1.9156e+01_rb/)
+      kao(:, 5, 7,12) = (/ &
+     &3.7638e+03_rb,3.2933e+03_rb,2.8228e+03_rb,2.3524e+03_rb,1.8819e+03_rb,1.4114e+03_rb, &
+     &9.4094e+02_rb,4.7047e+02_rb,1.9066e+01_rb/)
+      kao(:, 1, 8,12) = (/ &
+     &6.6611e+02_rb,5.8284e+02_rb,4.9958e+02_rb,4.1632e+02_rb,3.3305e+02_rb,2.4979e+02_rb, &
+     &1.6653e+02_rb,8.3265e+01_rb,2.1374e+01_rb/)
+      kao(:, 2, 8,12) = (/ &
+     &1.0262e+03_rb,8.9794e+02_rb,7.6966e+02_rb,6.4139e+02_rb,5.1311e+02_rb,3.8483e+02_rb, &
+     &2.5656e+02_rb,1.2828e+02_rb,2.1403e+01_rb/)
+      kao(:, 3, 8,12) = (/ &
+     &1.5100e+03_rb,1.3213e+03_rb,1.1325e+03_rb,9.4376e+02_rb,7.5501e+02_rb,5.6626e+02_rb, &
+     &3.7751e+02_rb,1.8875e+02_rb,2.1385e+01_rb/)
+      kao(:, 4, 8,12) = (/ &
+     &2.1206e+03_rb,1.8555e+03_rb,1.5904e+03_rb,1.3254e+03_rb,1.0603e+03_rb,7.9522e+02_rb, &
+     &5.3015e+02_rb,2.6507e+02_rb,2.1320e+01_rb/)
+      kao(:, 5, 8,12) = (/ &
+     &2.8794e+03_rb,2.5195e+03_rb,2.1596e+03_rb,1.7996e+03_rb,1.4397e+03_rb,1.0798e+03_rb, &
+     &7.1985e+02_rb,3.5993e+02_rb,2.1216e+01_rb/)
+      kao(:, 1, 9,12) = (/ &
+     &4.4380e+02_rb,3.8832e+02_rb,3.3285e+02_rb,2.7737e+02_rb,2.2190e+02_rb,1.6642e+02_rb, &
+     &1.1095e+02_rb,5.5475e+01_rb,2.3490e+01_rb/)
+      kao(:, 2, 9,12) = (/ &
+     &7.0869e+02_rb,6.2011e+02_rb,5.3152e+02_rb,4.4293e+02_rb,3.5435e+02_rb,2.6576e+02_rb, &
+     &1.7717e+02_rb,8.8587e+01_rb,2.3505e+01_rb/)
+      kao(:, 3, 9,12) = (/ &
+     &1.0731e+03_rb,9.3894e+02_rb,8.0481e+02_rb,6.7067e+02_rb,5.3654e+02_rb,4.0240e+02_rb, &
+     &2.6827e+02_rb,1.3414e+02_rb,2.3465e+01_rb/)
+      kao(:, 4, 9,12) = (/ &
+     &1.5496e+03_rb,1.3559e+03_rb,1.1622e+03_rb,9.6851e+02_rb,7.7481e+02_rb,5.8111e+02_rb, &
+     &3.8741e+02_rb,1.9370e+02_rb,2.3379e+01_rb/)
+      kao(:, 5, 9,12) = (/ &
+     &2.1497e+03_rb,1.8810e+03_rb,1.6123e+03_rb,1.3436e+03_rb,1.0749e+03_rb,8.0615e+02_rb, &
+     &5.3743e+02_rb,2.6872e+02_rb,2.3258e+01_rb/)
+      kao(:, 1,10,12) = (/ &
+     &3.0213e+02_rb,2.6436e+02_rb,2.2659e+02_rb,1.8883e+02_rb,1.5106e+02_rb,1.1330e+02_rb, &
+     &7.5532e+01_rb,4.3106e+01_rb,2.5395e+01_rb/)
+      kao(:, 2,10,12) = (/ &
+     &4.9804e+02_rb,4.3578e+02_rb,3.7353e+02_rb,3.1127e+02_rb,2.4902e+02_rb,1.8676e+02_rb, &
+     &1.2451e+02_rb,6.2505e+01_rb,2.5385e+01_rb/)
+      kao(:, 3,10,12) = (/ &
+     &7.7418e+02_rb,6.7741e+02_rb,5.8063e+02_rb,4.8386e+02_rb,3.8709e+02_rb,2.9032e+02_rb, &
+     &1.9354e+02_rb,9.6773e+01_rb,2.5325e+01_rb/)
+      kao(:, 4,10,12) = (/ &
+     &1.1469e+03_rb,1.0035e+03_rb,8.6015e+02_rb,7.1679e+02_rb,5.7343e+02_rb,4.3007e+02_rb, &
+     &2.8671e+02_rb,1.4336e+02_rb,2.5217e+01_rb/)
+      kao(:, 5,10,12) = (/ &
+     &1.6217e+03_rb,1.4190e+03_rb,1.2162e+03_rb,1.0135e+03_rb,8.1083e+02_rb,6.0812e+02_rb, &
+     &4.0541e+02_rb,2.0271e+02_rb,2.5082e+01_rb/)
+      kao(:, 1,11,12) = (/ &
+     &2.6097e+02_rb,2.2835e+02_rb,1.9573e+02_rb,1.6311e+02_rb,1.3048e+02_rb,9.7863e+01_rb, &
+     &6.5361e+01_rb,4.5364e+01_rb,2.6989e+01_rb/)
+      kao(:, 2,11,12) = (/ &
+     &4.3087e+02_rb,3.7701e+02_rb,3.2315e+02_rb,2.6929e+02_rb,2.1543e+02_rb,1.6158e+02_rb, &
+     &1.0772e+02_rb,5.7754e+01_rb,2.6926e+01_rb/)
+      kao(:, 3,11,12) = (/ &
+     &6.7272e+02_rb,5.8863e+02_rb,5.0454e+02_rb,4.2045e+02_rb,3.3636e+02_rb,2.5227e+02_rb, &
+     &1.6818e+02_rb,8.4156e+01_rb,2.6813e+01_rb/)
+      kao(:, 4,11,12) = (/ &
+     &9.9607e+02_rb,8.7156e+02_rb,7.4705e+02_rb,6.2254e+02_rb,4.9803e+02_rb,3.7353e+02_rb, &
+     &2.4902e+02_rb,1.2451e+02_rb,2.6666e+01_rb/)
+      kao(:, 5,11,12) = (/ &
+     &1.4127e+03_rb,1.2361e+03_rb,1.0595e+03_rb,8.8291e+02_rb,7.0633e+02_rb,5.2975e+02_rb, &
+     &3.5316e+02_rb,1.7658e+02_rb,2.6473e+01_rb/)
+      kao(:, 1,12,12) = (/ &
+     &2.2830e+02_rb,1.9976e+02_rb,1.7123e+02_rb,1.4269e+02_rb,1.1415e+02_rb,8.5613e+01_rb, &
+     &6.0099e+01_rb,4.8249e+01_rb,2.8107e+01_rb/)
+      kao(:, 2,12,12) = (/ &
+     &3.7815e+02_rb,3.3089e+02_rb,2.8362e+02_rb,2.3635e+02_rb,1.8908e+02_rb,1.4181e+02_rb, &
+     &9.4540e+01_rb,5.8332e+01_rb,2.7966e+01_rb/)
+      kao(:, 3,12,12) = (/ &
+     &5.9040e+02_rb,5.1660e+02_rb,4.4280e+02_rb,3.6900e+02_rb,2.9520e+02_rb,2.2140e+02_rb, &
+     &1.4760e+02_rb,7.6746e+01_rb,2.7793e+01_rb/)
+      kao(:, 4,12,12) = (/ &
+     &8.7660e+02_rb,7.6702e+02_rb,6.5745e+02_rb,5.4787e+02_rb,4.3830e+02_rb,3.2873e+02_rb, &
+     &2.1915e+02_rb,1.0959e+02_rb,2.7580e+01_rb/)
+      kao(:, 5,12,12) = (/ &
+     &1.2432e+03_rb,1.0878e+03_rb,9.3242e+02_rb,7.7702e+02_rb,6.2161e+02_rb,4.6621e+02_rb, &
+     &3.1081e+02_rb,1.5540e+02_rb,2.7330e+01_rb/)
+      kao(:, 1,13,12) = (/ &
+     &2.0770e+02_rb,1.8173e+02_rb,1.5577e+02_rb,1.2981e+02_rb,1.0385e+02_rb,7.8129e+01_rb, &
+     &6.0586e+01_rb,5.1072e+01_rb,2.8383e+01_rb/)
+      kao(:, 2,13,12) = (/ &
+     &3.4420e+02_rb,3.0118e+02_rb,2.5815e+02_rb,2.1513e+02_rb,1.7210e+02_rb,1.2908e+02_rb, &
+     &8.7185e+01_rb,6.1802e+01_rb,2.8222e+01_rb/)
+      kao(:, 3,13,12) = (/ &
+     &5.3871e+02_rb,4.7137e+02_rb,4.0403e+02_rb,3.3670e+02_rb,2.6936e+02_rb,2.0202e+02_rb, &
+     &1.3468e+02_rb,7.6219e+01_rb,2.8010e+01_rb/)
+      kao(:, 4,13,12) = (/ &
+     &7.9982e+02_rb,6.9985e+02_rb,5.9987e+02_rb,4.9989e+02_rb,3.9991e+02_rb,2.9994e+02_rb, &
+     &1.9996e+02_rb,1.0196e+02_rb,2.7782e+01_rb/)
+      kao(:, 5,13,12) = (/ &
+     &1.1353e+03_rb,9.9341e+02_rb,8.5150e+02_rb,7.0958e+02_rb,5.6767e+02_rb,4.2575e+02_rb, &
+     &2.8384e+02_rb,1.4192e+02_rb,2.7521e+01_rb/)
+      kao(:, 1, 1,13) = (/ &
+     &1.0877e+04_rb,9.5175e+03_rb,8.1579e+03_rb,6.7982e+03_rb,5.4386e+03_rb,4.0789e+03_rb, &
+     &2.7193e+03_rb,1.3596e+03_rb,2.7375e-03_rb/)
+      kao(:, 2, 1,13) = (/ &
+     &1.4140e+04_rb,1.2372e+04_rb,1.0605e+04_rb,8.8373e+03_rb,7.0699e+03_rb,5.3024e+03_rb, &
+     &3.5349e+03_rb,1.7675e+03_rb,2.6515e-03_rb/)
+      kao(:, 3, 1,13) = (/ &
+     &1.7904e+04_rb,1.5666e+04_rb,1.3428e+04_rb,1.1190e+04_rb,8.9519e+03_rb,6.7139e+03_rb, &
+     &4.4759e+03_rb,2.2380e+03_rb,3.8993e-02_rb/)
+      kao(:, 4, 1,13) = (/ &
+     &2.2059e+04_rb,1.9302e+04_rb,1.6544e+04_rb,1.3787e+04_rb,1.1029e+04_rb,8.2721e+03_rb, &
+     &5.5147e+03_rb,2.7574e+03_rb,9.2576e-02_rb/)
+      kao(:, 5, 1,13) = (/ &
+     &2.6544e+04_rb,2.3226e+04_rb,1.9908e+04_rb,1.6590e+04_rb,1.3272e+04_rb,9.9541e+03_rb, &
+     &6.6361e+03_rb,3.3180e+03_rb,1.0695e-01_rb/)
+      kao(:, 1, 2,13) = (/ &
+     &9.6500e+03_rb,8.4437e+03_rb,7.2375e+03_rb,6.0312e+03_rb,4.8250e+03_rb,3.6187e+03_rb, &
+     &2.4125e+03_rb,1.2062e+03_rb,3.2200e-01_rb/)
+      kao(:, 2, 2,13) = (/ &
+     &1.2735e+04_rb,1.1143e+04_rb,9.5512e+03_rb,7.9593e+03_rb,6.3674e+03_rb,4.7756e+03_rb, &
+     &3.1837e+03_rb,1.5919e+03_rb,5.1280e+00_rb/)
+      kao(:, 3, 2,13) = (/ &
+     &1.6244e+04_rb,1.4213e+04_rb,1.2183e+04_rb,1.0152e+04_rb,8.1218e+03_rb,6.0913e+03_rb, &
+     &4.0609e+03_rb,2.0304e+03_rb,7.4252e+00_rb/)
+      kao(:, 4, 2,13) = (/ &
+     &2.0224e+04_rb,1.7696e+04_rb,1.5168e+04_rb,1.2640e+04_rb,1.0112e+04_rb,7.5839e+03_rb, &
+     &5.0559e+03_rb,2.5280e+03_rb,7.7282e+00_rb/)
+      kao(:, 5, 2,13) = (/ &
+     &2.4645e+04_rb,2.1565e+04_rb,1.8484e+04_rb,1.5403e+04_rb,1.2323e+04_rb,9.2420e+03_rb, &
+     &6.1614e+03_rb,3.0807e+03_rb,7.1576e+00_rb/)
+      kao(:, 1, 3,13) = (/ &
+     &7.8601e+03_rb,6.8776e+03_rb,5.8951e+03_rb,4.9126e+03_rb,3.9300e+03_rb,2.9475e+03_rb, &
+     &1.9650e+03_rb,9.8251e+02_rb,1.2409e+01_rb/)
+      kao(:, 2, 3,13) = (/ &
+     &1.0573e+04_rb,9.2512e+03_rb,7.9296e+03_rb,6.6080e+03_rb,5.2864e+03_rb,3.9648e+03_rb, &
+     &2.6432e+03_rb,1.3216e+03_rb,1.2422e+01_rb/)
+      kao(:, 3, 3,13) = (/ &
+     &1.3794e+04_rb,1.2070e+04_rb,1.0346e+04_rb,8.6214e+03_rb,6.8971e+03_rb,5.1729e+03_rb, &
+     &3.4486e+03_rb,1.7243e+03_rb,1.2413e+01_rb/)
+      kao(:, 4, 3,13) = (/ &
+     &1.7502e+04_rb,1.5315e+04_rb,1.3127e+04_rb,1.0939e+04_rb,8.7512e+03_rb,6.5634e+03_rb, &
+     &4.3756e+03_rb,2.1878e+03_rb,1.2394e+01_rb/)
+      kao(:, 5, 3,13) = (/ &
+     &2.1662e+04_rb,1.8954e+04_rb,1.6247e+04_rb,1.3539e+04_rb,1.0831e+04_rb,8.1233e+03_rb, &
+     &5.4155e+03_rb,2.7078e+03_rb,1.2358e+01_rb/)
+      kao(:, 1, 4,13) = (/ &
+     &6.0906e+03_rb,5.3293e+03_rb,4.5680e+03_rb,3.8067e+03_rb,3.0453e+03_rb,2.2840e+03_rb, &
+     &1.5227e+03_rb,7.6133e+02_rb,1.4627e+01_rb/)
+      kao(:, 2, 4,13) = (/ &
+     &8.4475e+03_rb,7.3915e+03_rb,6.3356e+03_rb,5.2797e+03_rb,4.2237e+03_rb,3.1678e+03_rb, &
+     &2.1119e+03_rb,1.0559e+03_rb,1.4656e+01_rb/)
+      kao(:, 3, 4,13) = (/ &
+     &1.1299e+04_rb,9.8868e+03_rb,8.4744e+03_rb,7.0620e+03_rb,5.6496e+03_rb,4.2372e+03_rb, &
+     &2.8248e+03_rb,1.4124e+03_rb,1.4666e+01_rb/)
+      kao(:, 4, 4,13) = (/ &
+     &1.4605e+04_rb,1.2779e+04_rb,1.0954e+04_rb,9.1282e+03_rb,7.3025e+03_rb,5.4769e+03_rb, &
+     &3.6513e+03_rb,1.8256e+03_rb,1.4645e+01_rb/)
+      kao(:, 5, 4,13) = (/ &
+     &1.8360e+04_rb,1.6065e+04_rb,1.3770e+04_rb,1.1475e+04_rb,9.1801e+03_rb,6.8851e+03_rb, &
+     &4.5900e+03_rb,2.2950e+03_rb,1.4604e+01_rb/)
+      kao(:, 1, 5,13) = (/ &
+     &4.6024e+03_rb,4.0271e+03_rb,3.4518e+03_rb,2.8765e+03_rb,2.3012e+03_rb,1.7259e+03_rb, &
+     &1.1506e+03_rb,5.7529e+02_rb,1.7191e+01_rb/)
+      kao(:, 2, 5,13) = (/ &
+     &6.5855e+03_rb,5.7623e+03_rb,4.9391e+03_rb,4.1159e+03_rb,3.2927e+03_rb,2.4695e+03_rb, &
+     &1.6464e+03_rb,8.2318e+02_rb,1.7235e+01_rb/)
+      kao(:, 3, 5,13) = (/ &
+     &8.9962e+03_rb,7.8717e+03_rb,6.7471e+03_rb,5.6226e+03_rb,4.4981e+03_rb,3.3736e+03_rb, &
+     &2.2490e+03_rb,1.1245e+03_rb,1.7249e+01_rb/)
+      kao(:, 4, 5,13) = (/ &
+     &1.1873e+04_rb,1.0388e+04_rb,8.9044e+03_rb,7.4203e+03_rb,5.9363e+03_rb,4.4522e+03_rb, &
+     &2.9681e+03_rb,1.4841e+03_rb,1.7236e+01_rb/)
+      kao(:, 5, 5,13) = (/ &
+     &1.5203e+04_rb,1.3303e+04_rb,1.1402e+04_rb,9.5020e+03_rb,7.6016e+03_rb,5.7012e+03_rb, &
+     &3.8008e+03_rb,1.9004e+03_rb,1.7202e+01_rb/)
+      kao(:, 1, 6,13) = (/ &
+     &3.3402e+03_rb,2.9227e+03_rb,2.5052e+03_rb,2.0876e+03_rb,1.6701e+03_rb,1.2526e+03_rb, &
+     &8.3506e+02_rb,4.1753e+02_rb,2.0086e+01_rb/)
+      kao(:, 2, 6,13) = (/ &
+     &4.9170e+03_rb,4.3024e+03_rb,3.6877e+03_rb,3.0731e+03_rb,2.4585e+03_rb,1.8439e+03_rb, &
+     &1.2292e+03_rb,6.1462e+02_rb,2.0160e+01_rb/)
+      kao(:, 3, 6,13) = (/ &
+     &6.9136e+03_rb,6.0494e+03_rb,5.1852e+03_rb,4.3210e+03_rb,3.4568e+03_rb,2.5926e+03_rb, &
+     &1.7284e+03_rb,8.6420e+02_rb,2.0194e+01_rb/)
+      kao(:, 4, 6,13) = (/ &
+     &9.3499e+03_rb,8.1811e+03_rb,7.0124e+03_rb,5.8437e+03_rb,4.6749e+03_rb,3.5062e+03_rb, &
+     &2.3375e+03_rb,1.1687e+03_rb,2.0186e+01_rb/)
+      kao(:, 5, 6,13) = (/ &
+     &1.2234e+04_rb,1.0705e+04_rb,9.1755e+03_rb,7.6462e+03_rb,6.1170e+03_rb,4.5877e+03_rb, &
+     &3.0585e+03_rb,1.5292e+03_rb,2.0149e+01_rb/)
+      kao(:, 1, 7,13) = (/ &
+     &2.3634e+03_rb,2.0680e+03_rb,1.7726e+03_rb,1.4771e+03_rb,1.1817e+03_rb,8.8628e+02_rb, &
+     &5.9086e+02_rb,2.9543e+02_rb,2.3318e+01_rb/)
+      kao(:, 2, 7,13) = (/ &
+     &3.6109e+03_rb,3.1596e+03_rb,2.7082e+03_rb,2.2568e+03_rb,1.8055e+03_rb,1.3541e+03_rb, &
+     &9.0273e+02_rb,4.5136e+02_rb,2.3426e+01_rb/)
+      kao(:, 3, 7,13) = (/ &
+     &5.2430e+03_rb,4.5876e+03_rb,3.9322e+03_rb,3.2769e+03_rb,2.6215e+03_rb,1.9661e+03_rb, &
+     &1.3107e+03_rb,6.5537e+02_rb,2.3476e+01_rb/)
+      kao(:, 4, 7,13) = (/ &
+     &7.2754e+03_rb,6.3660e+03_rb,5.4565e+03_rb,4.5471e+03_rb,3.6377e+03_rb,2.7283e+03_rb, &
+     &1.8188e+03_rb,9.0942e+02_rb,2.3476e+01_rb/)
+      kao(:, 5, 7,13) = (/ &
+     &9.7107e+03_rb,8.4968e+03_rb,7.2830e+03_rb,6.0691e+03_rb,4.8553e+03_rb,3.6415e+03_rb, &
+     &2.4276e+03_rb,1.2138e+03_rb,2.3445e+01_rb/)
+      kao(:, 1, 8,13) = (/ &
+     &1.6675e+03_rb,1.4591e+03_rb,1.2506e+03_rb,1.0422e+03_rb,8.3375e+02_rb,6.2531e+02_rb, &
+     &4.1687e+02_rb,2.0844e+02_rb,2.6870e+01_rb/)
+      kao(:, 2, 8,13) = (/ &
+     &2.6544e+03_rb,2.3226e+03_rb,1.9908e+03_rb,1.6590e+03_rb,1.3272e+03_rb,9.9538e+02_rb, &
+     &6.6359e+02_rb,3.3179e+02_rb,2.6998e+01_rb/)
+      kao(:, 3, 8,13) = (/ &
+     &3.9767e+03_rb,3.4797e+03_rb,2.9826e+03_rb,2.4855e+03_rb,1.9884e+03_rb,1.4913e+03_rb, &
+     &9.9419e+02_rb,4.9709e+02_rb,2.7066e+01_rb/)
+      kao(:, 4, 8,13) = (/ &
+     &5.6620e+03_rb,4.9542e+03_rb,4.2465e+03_rb,3.5387e+03_rb,2.8310e+03_rb,2.1232e+03_rb, &
+     &1.4155e+03_rb,7.0775e+02_rb,2.7083e+01_rb/)
+      kao(:, 5, 8,13) = (/ &
+     &7.7334e+03_rb,6.7667e+03_rb,5.8000e+03_rb,4.8334e+03_rb,3.8667e+03_rb,2.9000e+03_rb, &
+     &1.9333e+03_rb,9.6667e+02_rb,2.7049e+01_rb/)
+      kao(:, 1, 9,13) = (/ &
+     &1.1358e+03_rb,9.9378e+02_rb,8.5181e+02_rb,7.0984e+02_rb,5.6787e+02_rb,4.2591e+02_rb, &
+     &2.8394e+02_rb,1.4197e+02_rb,3.0678e+01_rb/)
+      kao(:, 2, 9,13) = (/ &
+     &1.8861e+03_rb,1.6503e+03_rb,1.4146e+03_rb,1.1788e+03_rb,9.4305e+02_rb,7.0729e+02_rb, &
+     &4.7153e+02_rb,2.3576e+02_rb,3.0840e+01_rb/)
+      kao(:, 3, 9,13) = (/ &
+     &2.9209e+03_rb,2.5558e+03_rb,2.1907e+03_rb,1.8256e+03_rb,1.4605e+03_rb,1.0953e+03_rb, &
+     &7.3023e+02_rb,3.6511e+02_rb,3.0929e+01_rb/)
+      kao(:, 4, 9,13) = (/ &
+     &4.2847e+03_rb,3.7491e+03_rb,3.2135e+03_rb,2.6779e+03_rb,2.1424e+03_rb,1.6068e+03_rb, &
+     &1.0712e+03_rb,5.3559e+02_rb,3.0953e+01_rb/)
+      kao(:, 5, 9,13) = (/ &
+     &6.0053e+03_rb,5.2546e+03_rb,4.5040e+03_rb,3.7533e+03_rb,3.0026e+03_rb,2.2520e+03_rb, &
+     &1.5013e+03_rb,7.5066e+02_rb,3.0913e+01_rb/)
+      kao(:, 1,10,13) = (/ &
+     &7.8733e+02_rb,6.8892e+02_rb,5.9050e+02_rb,4.9208e+02_rb,3.9366e+02_rb,2.9525e+02_rb, &
+     &1.9683e+02_rb,9.8416e+01_rb,3.4699e+01_rb/)
+      kao(:, 2,10,13) = (/ &
+     &1.3543e+03_rb,1.1850e+03_rb,1.0157e+03_rb,8.4641e+02_rb,6.7713e+02_rb,5.0785e+02_rb, &
+     &3.3856e+02_rb,1.6928e+02_rb,3.4872e+01_rb/)
+      kao(:, 3,10,13) = (/ &
+     &2.1695e+03_rb,1.8983e+03_rb,1.6271e+03_rb,1.3559e+03_rb,1.0848e+03_rb,8.1356e+02_rb, &
+     &5.4238e+02_rb,2.7119e+02_rb,3.4962e+01_rb/)
+      kao(:, 4,10,13) = (/ &
+     &3.2703e+03_rb,2.8615e+03_rb,2.4527e+03_rb,2.0439e+03_rb,1.6351e+03_rb,1.2263e+03_rb, &
+     &8.1756e+02_rb,4.0878e+02_rb,3.4974e+01_rb/)
+      kao(:, 5,10,13) = (/ &
+     &4.6791e+03_rb,4.0942e+03_rb,3.5093e+03_rb,2.9244e+03_rb,2.3395e+03_rb,1.7546e+03_rb, &
+     &1.1698e+03_rb,5.8488e+02_rb,3.4915e+01_rb/)
+      kao(:, 1,11,13) = (/ &
+     &7.0254e+02_rb,6.1472e+02_rb,5.2690e+02_rb,4.3908e+02_rb,3.5127e+02_rb,2.6345e+02_rb, &
+     &1.7563e+02_rb,8.8441e+01_rb,3.8867e+01_rb/)
+      kao(:, 2,11,13) = (/ &
+     &1.2148e+03_rb,1.0630e+03_rb,9.1111e+02_rb,7.5926e+02_rb,6.0740e+02_rb,4.5555e+02_rb, &
+     &3.0370e+02_rb,1.5185e+02_rb,3.8999e+01_rb/)
+      kao(:, 3,11,13) = (/ &
+     &1.9474e+03_rb,1.7040e+03_rb,1.4606e+03_rb,1.2171e+03_rb,9.7371e+02_rb,7.3028e+02_rb, &
+     &4.8685e+02_rb,2.4343e+02_rb,3.9046e+01_rb/)
+      kao(:, 4,11,13) = (/ &
+     &2.9354e+03_rb,2.5684e+03_rb,2.2015e+03_rb,1.8346e+03_rb,1.4677e+03_rb,1.1008e+03_rb, &
+     &7.3384e+02_rb,3.6692e+02_rb,3.9009e+01_rb/)
+      kao(:, 5,11,13) = (/ &
+     &4.2118e+03_rb,3.6853e+03_rb,3.1589e+03_rb,2.6324e+03_rb,2.1059e+03_rb,1.5794e+03_rb, &
+     &1.0529e+03_rb,5.2647e+02_rb,3.8898e+01_rb/)
+      kao(:, 1,12,13) = (/ &
+     &6.3490e+02_rb,5.5553e+02_rb,4.7617e+02_rb,3.9681e+02_rb,3.1745e+02_rb,2.3809e+02_rb, &
+     &1.5872e+02_rb,8.3817e+01_rb,4.2920e+01_rb/)
+      kao(:, 2,12,13) = (/ &
+     &1.0964e+03_rb,9.5936e+02_rb,8.2231e+02_rb,6.8526e+02_rb,5.4821e+02_rb,4.1116e+02_rb, &
+     &2.7410e+02_rb,1.3705e+02_rb,4.3006e+01_rb/)
+      kao(:, 3,12,13) = (/ &
+     &1.7602e+03_rb,1.5402e+03_rb,1.3202e+03_rb,1.1001e+03_rb,8.8010e+02_rb,6.6008e+02_rb, &
+     &4.4005e+02_rb,2.2003e+02_rb,4.2996e+01_rb/)
+      kao(:, 4,12,13) = (/ &
+     &2.6586e+03_rb,2.3263e+03_rb,1.9940e+03_rb,1.6616e+03_rb,1.3293e+03_rb,9.9698e+02_rb, &
+     &6.6465e+02_rb,3.3233e+02_rb,4.2901e+01_rb/)
+      kao(:, 5,12,13) = (/ &
+     &3.8091e+03_rb,3.3329e+03_rb,2.8568e+03_rb,2.3807e+03_rb,1.9045e+03_rb,1.4284e+03_rb, &
+     &9.5227e+02_rb,4.7613e+02_rb,4.2723e+01_rb/)
+      kao(:, 1,13,13) = (/ &
+     &5.9158e+02_rb,5.1763e+02_rb,4.4368e+02_rb,3.6974e+02_rb,2.9579e+02_rb,2.2184e+02_rb, &
+     &1.4790e+02_rb,8.4889e+01_rb,4.6678e+01_rb/)
+      kao(:, 2,13,13) = (/ &
+     &1.0244e+03_rb,8.9631e+02_rb,7.6827e+02_rb,6.4022e+02_rb,5.1218e+02_rb,3.8414e+02_rb, &
+     &2.5609e+02_rb,1.2940e+02_rb,4.6683e+01_rb/)
+      kao(:, 3,13,13) = (/ &
+     &1.6452e+03_rb,1.4395e+03_rb,1.2339e+03_rb,1.0282e+03_rb,8.2259e+02_rb,6.1694e+02_rb, &
+     &4.1130e+02_rb,2.0565e+02_rb,4.6592e+01_rb/)
+      kao(:, 4,13,13) = (/ &
+     &2.4841e+03_rb,2.1736e+03_rb,1.8631e+03_rb,1.5526e+03_rb,1.2421e+03_rb,9.3154e+02_rb, &
+     &6.2103e+02_rb,3.1052e+02_rb,4.6412e+01_rb/)
+      kao(:, 5,13,13) = (/ &
+     &3.5669e+03_rb,3.1210e+03_rb,2.6752e+03_rb,2.2293e+03_rb,1.7834e+03_rb,1.3376e+03_rb, &
+     &8.9172e+02_rb,4.4586e+02_rb,4.6169e+01_rb/)
+      kao(:, 1, 1,14) = (/ &
+     &2.0814e+04_rb,1.8212e+04_rb,1.5610e+04_rb,1.3008e+04_rb,1.0407e+04_rb,7.8051e+03_rb, &
+     &5.2034e+03_rb,2.6017e+03_rb,4.7014e-03_rb/)
+      kao(:, 2, 1,14) = (/ &
+     &2.6951e+04_rb,2.3582e+04_rb,2.0213e+04_rb,1.6844e+04_rb,1.3475e+04_rb,1.0107e+04_rb, &
+     &6.7377e+03_rb,3.3688e+03_rb,6.0711e-03_rb/)
+      kao(:, 3, 1,14) = (/ &
+     &3.3875e+04_rb,2.9641e+04_rb,2.5406e+04_rb,2.1172e+04_rb,1.6938e+04_rb,1.2703e+04_rb, &
+     &8.4688e+03_rb,4.2344e+03_rb,2.5176e-02_rb/)
+      kao(:, 4, 1,14) = (/ &
+     &4.1606e+04_rb,3.6405e+04_rb,3.1205e+04_rb,2.6004e+04_rb,2.0803e+04_rb,1.5602e+04_rb, &
+     &1.0402e+04_rb,5.2008e+03_rb,1.0468e-01_rb/)
+      kao(:, 5, 1,14) = (/ &
+     &5.0069e+04_rb,4.3810e+04_rb,3.7551e+04_rb,3.1293e+04_rb,2.5034e+04_rb,1.8776e+04_rb, &
+     &1.2517e+04_rb,6.2586e+03_rb,1.0717e-01_rb/)
+      kao(:, 1, 2,14) = (/ &
+     &1.9736e+04_rb,1.7269e+04_rb,1.4802e+04_rb,1.2335e+04_rb,9.8681e+03_rb,7.4011e+03_rb, &
+     &4.9341e+03_rb,2.4670e+03_rb,1.4424e-01_rb/)
+      kao(:, 2, 2,14) = (/ &
+     &2.5938e+04_rb,2.2696e+04_rb,1.9454e+04_rb,1.6211e+04_rb,1.2969e+04_rb,9.7268e+03_rb, &
+     &6.4845e+03_rb,3.2423e+03_rb,5.4893e+00_rb/)
+      kao(:, 3, 2,14) = (/ &
+     &3.3117e+04_rb,2.8978e+04_rb,2.4838e+04_rb,2.0698e+04_rb,1.6559e+04_rb,1.2419e+04_rb, &
+     &8.2793e+03_rb,4.1397e+03_rb,6.5583e+00_rb/)
+      kao(:, 4, 2,14) = (/ &
+     &4.1192e+04_rb,3.6043e+04_rb,3.0894e+04_rb,2.5745e+04_rb,2.0596e+04_rb,1.5447e+04_rb, &
+     &1.0298e+04_rb,5.1490e+03_rb,7.2955e+00_rb/)
+      kao(:, 5, 2,14) = (/ &
+     &5.0084e+04_rb,4.3824e+04_rb,3.7563e+04_rb,3.1303e+04_rb,2.5042e+04_rb,1.8782e+04_rb, &
+     &1.2521e+04_rb,6.2605e+03_rb,4.5976e+00_rb/)
+      kao(:, 1, 3,14) = (/ &
+     &1.7352e+04_rb,1.5183e+04_rb,1.3014e+04_rb,1.0845e+04_rb,8.6759e+03_rb,6.5069e+03_rb, &
+     &4.3379e+03_rb,2.1690e+03_rb,1.3353e+01_rb/)
+      kao(:, 2, 3,14) = (/ &
+     &2.3378e+04_rb,2.0456e+04_rb,1.7533e+04_rb,1.4611e+04_rb,1.1689e+04_rb,8.7667e+03_rb, &
+     &5.8445e+03_rb,2.9222e+03_rb,1.3389e+01_rb/)
+      kao(:, 3, 3,14) = (/ &
+     &3.0448e+04_rb,2.6642e+04_rb,2.2836e+04_rb,1.9030e+04_rb,1.5224e+04_rb,1.1418e+04_rb, &
+     &7.6119e+03_rb,3.8060e+03_rb,1.3397e+01_rb/)
+      kao(:, 4, 3,14) = (/ &
+     &3.8507e+04_rb,3.3693e+04_rb,2.8880e+04_rb,2.4067e+04_rb,1.9253e+04_rb,1.4440e+04_rb, &
+     &9.6266e+03_rb,4.8133e+03_rb,1.3385e+01_rb/)
+      kao(:, 5, 3,14) = (/ &
+     &4.7469e+04_rb,4.1535e+04_rb,3.5602e+04_rb,2.9668e+04_rb,2.3734e+04_rb,1.7801e+04_rb, &
+     &1.1867e+04_rb,5.9336e+03_rb,1.3346e+01_rb/)
+      kao(:, 1, 4,14) = (/ &
+     &1.4631e+04_rb,1.2802e+04_rb,1.0973e+04_rb,9.1445e+03_rb,7.3156e+03_rb,5.4867e+03_rb, &
+     &3.6578e+03_rb,1.8289e+03_rb,1.5943e+01_rb/)
+      kao(:, 2, 4,14) = (/ &
+     &2.0262e+04_rb,1.7729e+04_rb,1.5197e+04_rb,1.2664e+04_rb,1.0131e+04_rb,7.5983e+03_rb, &
+     &5.0655e+03_rb,2.5328e+03_rb,1.6007e+01_rb/)
+      kao(:, 3, 4,14) = (/ &
+     &2.6988e+04_rb,2.3615e+04_rb,2.0241e+04_rb,1.6868e+04_rb,1.3494e+04_rb,1.0121e+04_rb, &
+     &6.7470e+03_rb,3.3735e+03_rb,1.6031e+01_rb/)
+      kao(:, 4, 4,14) = (/ &
+     &3.4853e+04_rb,3.0497e+04_rb,2.6140e+04_rb,2.1783e+04_rb,1.7427e+04_rb,1.3070e+04_rb, &
+     &8.7133e+03_rb,4.3567e+03_rb,1.6028e+01_rb/)
+      kao(:, 5, 4,14) = (/ &
+     &4.3821e+04_rb,3.8343e+04_rb,3.2866e+04_rb,2.7388e+04_rb,2.1910e+04_rb,1.6433e+04_rb, &
+     &1.0955e+04_rb,5.4776e+03_rb,1.6009e+01_rb/)
+      kao(:, 1, 5,14) = (/ &
+     &1.2010e+04_rb,1.0509e+04_rb,9.0077e+03_rb,7.5064e+03_rb,6.0051e+03_rb,4.5038e+03_rb, &
+     &3.0026e+03_rb,1.5013e+03_rb,1.9009e+01_rb/)
+      kao(:, 2, 5,14) = (/ &
+     &1.7127e+04_rb,1.4986e+04_rb,1.2846e+04_rb,1.0705e+04_rb,8.5637e+03_rb,6.4228e+03_rb, &
+     &4.2818e+03_rb,2.1409e+03_rb,1.9111e+01_rb/)
+      kao(:, 3, 5,14) = (/ &
+     &2.3449e+04_rb,2.0517e+04_rb,1.7586e+04_rb,1.4655e+04_rb,1.1724e+04_rb,8.7932e+03_rb, &
+     &5.8621e+03_rb,2.9311e+03_rb,1.9171e+01_rb/)
+      kao(:, 4, 5,14) = (/ &
+     &3.0924e+04_rb,2.7059e+04_rb,2.3193e+04_rb,1.9328e+04_rb,1.5462e+04_rb,1.1597e+04_rb, &
+     &7.7310e+03_rb,3.8655e+03_rb,1.9184e+01_rb/)
+      kao(:, 5, 5,14) = (/ &
+     &3.9495e+04_rb,3.4558e+04_rb,2.9621e+04_rb,2.4684e+04_rb,1.9748e+04_rb,1.4811e+04_rb, &
+     &9.8738e+03_rb,4.9369e+03_rb,1.9172e+01_rb/)
+      kao(:, 1, 6,14) = (/ &
+     &9.4628e+03_rb,8.2800e+03_rb,7.0971e+03_rb,5.9142e+03_rb,4.7314e+03_rb,3.5485e+03_rb, &
+     &2.3657e+03_rb,1.1828e+03_rb,2.2644e+01_rb/)
+      kao(:, 2, 6,14) = (/ &
+     &1.3981e+04_rb,1.2233e+04_rb,1.0486e+04_rb,8.7381e+03_rb,6.9905e+03_rb,5.2429e+03_rb, &
+     &3.4952e+03_rb,1.7476e+03_rb,2.2781e+01_rb/)
+      kao(:, 3, 6,14) = (/ &
+     &1.9648e+04_rb,1.7192e+04_rb,1.4736e+04_rb,1.2280e+04_rb,9.8239e+03_rb,7.3679e+03_rb, &
+     &4.9119e+03_rb,2.4560e+03_rb,2.2869e+01_rb/)
+      kao(:, 4, 6,14) = (/ &
+     &2.6483e+04_rb,2.3173e+04_rb,1.9862e+04_rb,1.6552e+04_rb,1.3242e+04_rb,9.9312e+03_rb, &
+     &6.6208e+03_rb,3.3104e+03_rb,2.2915e+01_rb/)
+      kao(:, 5, 6,14) = (/ &
+     &3.4470e+04_rb,3.0161e+04_rb,2.5853e+04_rb,2.1544e+04_rb,1.7235e+04_rb,1.2926e+04_rb, &
+     &8.6175e+03_rb,4.3088e+03_rb,2.2923e+01_rb/)
+      kao(:, 1, 7,14) = (/ &
+     &7.3078e+03_rb,6.3943e+03_rb,5.4808e+03_rb,4.5673e+03_rb,3.6539e+03_rb,2.7404e+03_rb, &
+     &1.8269e+03_rb,9.1346e+02_rb,2.6896e+01_rb/)
+      kao(:, 2, 7,14) = (/ &
+     &1.1178e+04_rb,9.7811e+03_rb,8.3838e+03_rb,6.9865e+03_rb,5.5892e+03_rb,4.1919e+03_rb, &
+     &2.7946e+03_rb,1.3973e+03_rb,2.7090e+01_rb/)
+      kao(:, 3, 7,14) = (/ &
+     &1.6168e+04_rb,1.4147e+04_rb,1.2126e+04_rb,1.0105e+04_rb,8.0839e+03_rb,6.0629e+03_rb, &
+     &4.0420e+03_rb,2.0210e+03_rb,2.7221e+01_rb/)
+      kao(:, 4, 7,14) = (/ &
+     &2.2360e+04_rb,1.9565e+04_rb,1.6770e+04_rb,1.3975e+04_rb,1.1180e+04_rb,8.3848e+03_rb, &
+     &5.5899e+03_rb,2.7949e+03_rb,2.7298e+01_rb/)
+      kao(:, 5, 7,14) = (/ &
+     &2.9827e+04_rb,2.6099e+04_rb,2.2370e+04_rb,1.8642e+04_rb,1.4913e+04_rb,1.1185e+04_rb, &
+     &7.4567e+03_rb,3.7283e+03_rb,2.7315e+01_rb/)
+      kao(:, 1, 8,14) = (/ &
+     &5.5945e+03_rb,4.8952e+03_rb,4.1959e+03_rb,3.4966e+03_rb,2.7972e+03_rb,2.0979e+03_rb, &
+     &1.3986e+03_rb,6.9931e+02_rb,3.1842e+01_rb/)
+      kao(:, 2, 8,14) = (/ &
+     &8.8907e+03_rb,7.7794e+03_rb,6.6680e+03_rb,5.5567e+03_rb,4.4454e+03_rb,3.3340e+03_rb, &
+     &2.2227e+03_rb,1.1113e+03_rb,3.2101e+01_rb/)
+      kao(:, 3, 8,14) = (/ &
+     &1.3296e+04_rb,1.1634e+04_rb,9.9724e+03_rb,8.3103e+03_rb,6.6483e+03_rb,4.9862e+03_rb, &
+     &3.3241e+03_rb,1.6621e+03_rb,3.2282e+01_rb/)
+      kao(:, 4, 8,14) = (/ &
+     &1.8955e+04_rb,1.6586e+04_rb,1.4216e+04_rb,1.1847e+04_rb,9.4776e+03_rb,7.1082e+03_rb, &
+     &4.7388e+03_rb,2.3694e+03_rb,3.2388e+01_rb/)
+      kao(:, 5, 8,14) = (/ &
+     &2.5906e+04_rb,2.2668e+04_rb,1.9430e+04_rb,1.6191e+04_rb,1.2953e+04_rb,9.7149e+03_rb, &
+     &6.4766e+03_rb,3.2383e+03_rb,3.2425e+01_rb/)
+      kao(:, 1, 9,14) = (/ &
+     &4.1067e+03_rb,3.5934e+03_rb,3.0800e+03_rb,2.5667e+03_rb,2.0533e+03_rb,1.5400e+03_rb, &
+     &1.0267e+03_rb,5.1334e+02_rb,3.7521e+01_rb/)
+      kao(:, 2, 9,14) = (/ &
+     &6.8230e+03_rb,5.9701e+03_rb,5.1172e+03_rb,4.2644e+03_rb,3.4115e+03_rb,2.5586e+03_rb, &
+     &1.7057e+03_rb,8.5287e+02_rb,3.7865e+01_rb/)
+      kao(:, 3, 9,14) = (/ &
+     &1.0614e+04_rb,9.2875e+03_rb,7.9607e+03_rb,6.6339e+03_rb,5.3071e+03_rb,3.9804e+03_rb, &
+     &2.6536e+03_rb,1.3268e+03_rb,3.8104e+01_rb/)
+      kao(:, 4, 9,14) = (/ &
+     &1.5585e+04_rb,1.3637e+04_rb,1.1689e+04_rb,9.7408e+03_rb,7.7926e+03_rb,5.8445e+03_rb, &
+     &3.8963e+03_rb,1.9481e+03_rb,3.8251e+01_rb/)
+      kao(:, 5, 9,14) = (/ &
+     &2.1772e+04_rb,1.9051e+04_rb,1.6329e+04_rb,1.3608e+04_rb,1.0886e+04_rb,8.1646e+03_rb, &
+     &5.4430e+03_rb,2.7215e+03_rb,3.8308e+01_rb/)
+      kao(:, 1,10,14) = (/ &
+     &3.0498e+03_rb,2.6686e+03_rb,2.2874e+03_rb,1.9061e+03_rb,1.5249e+03_rb,1.1437e+03_rb, &
+     &7.6245e+02_rb,3.8122e+02_rb,4.4006e+01_rb/)
+      kao(:, 2,10,14) = (/ &
+     &5.3046e+03_rb,4.6415e+03_rb,3.9785e+03_rb,3.3154e+03_rb,2.6523e+03_rb,1.9892e+03_rb, &
+     &1.3261e+03_rb,6.6307e+02_rb,4.4440e+01_rb/)
+      kao(:, 3,10,14) = (/ &
+     &8.5201e+03_rb,7.4551e+03_rb,6.3901e+03_rb,5.3250e+03_rb,4.2600e+03_rb,3.1950e+03_rb, &
+     &2.1300e+03_rb,1.0650e+03_rb,4.4746e+01_rb/)
+      kao(:, 4,10,14) = (/ &
+     &1.2818e+04_rb,1.1216e+04_rb,9.6138e+03_rb,8.0115e+03_rb,6.4092e+03_rb,4.8069e+03_rb, &
+     &3.2046e+03_rb,1.6023e+03_rb,4.4928e+01_rb/)
+      kao(:, 5,10,14) = (/ &
+     &1.8340e+04_rb,1.6048e+04_rb,1.3755e+04_rb,1.1463e+04_rb,9.1701e+03_rb,6.8776e+03_rb, &
+     &4.5851e+03_rb,2.2925e+03_rb,4.5005e+01_rb/)
+      kao(:, 1,11,14) = (/ &
+     &2.9434e+03_rb,2.5755e+03_rb,2.2076e+03_rb,1.8396e+03_rb,1.4717e+03_rb,1.1038e+03_rb, &
+     &7.3585e+02_rb,3.6793e+02_rb,5.1570e+01_rb/)
+      kao(:, 2,11,14) = (/ &
+     &5.1056e+03_rb,4.4674e+03_rb,3.8292e+03_rb,3.1910e+03_rb,2.5528e+03_rb,1.9146e+03_rb, &
+     &1.2764e+03_rb,6.3819e+02_rb,5.2012e+01_rb/)
+      kao(:, 3,11,14) = (/ &
+     &8.1976e+03_rb,7.1728e+03_rb,6.1481e+03_rb,5.1234e+03_rb,4.0987e+03_rb,3.0741e+03_rb, &
+     &2.0494e+03_rb,1.0247e+03_rb,5.2312e+01_rb/)
+      kao(:, 4,11,14) = (/ &
+     &1.2377e+04_rb,1.0830e+04_rb,9.2826e+03_rb,7.7355e+03_rb,6.1884e+03_rb,4.6413e+03_rb, &
+     &3.0942e+03_rb,1.5471e+03_rb,5.2478e+01_rb/)
+      kao(:, 5,11,14) = (/ &
+     &1.7764e+04_rb,1.5544e+04_rb,1.3323e+04_rb,1.1103e+04_rb,8.8820e+03_rb,6.6616e+03_rb, &
+     &4.4410e+03_rb,2.2205e+03_rb,5.2507e+01_rb/)
+      kao(:, 1,12,14) = (/ &
+     &2.8315e+03_rb,2.4776e+03_rb,2.1237e+03_rb,1.7697e+03_rb,1.4158e+03_rb,1.0618e+03_rb, &
+     &7.0789e+02_rb,3.5394e+02_rb,5.9960e+01_rb/)
+      kao(:, 2,12,14) = (/ &
+     &4.9224e+03_rb,4.3071e+03_rb,3.6918e+03_rb,3.0765e+03_rb,2.4612e+03_rb,1.8459e+03_rb, &
+     &1.2306e+03_rb,6.1530e+02_rb,6.0405e+01_rb/)
+      kao(:, 3,12,14) = (/ &
+     &7.9376e+03_rb,6.9454e+03_rb,5.9532e+03_rb,4.9610e+03_rb,3.9688e+03_rb,2.9766e+03_rb, &
+     &1.9844e+03_rb,9.9220e+02_rb,6.0667e+01_rb/)
+      kao(:, 4,12,14) = (/ &
+     &1.2004e+04_rb,1.0504e+04_rb,9.0032e+03_rb,7.5027e+03_rb,6.0021e+03_rb,4.5016e+03_rb, &
+     &3.0011e+03_rb,1.5005e+03_rb,6.0769e+01_rb/)
+      kao(:, 5,12,14) = (/ &
+     &1.7211e+04_rb,1.5059e+04_rb,1.2908e+04_rb,1.0757e+04_rb,8.6054e+03_rb,6.4541e+03_rb, &
+     &4.3027e+03_rb,2.1514e+03_rb,6.0741e+01_rb/)
+      kao(:, 1,13,14) = (/ &
+     &2.8060e+03_rb,2.4552e+03_rb,2.1045e+03_rb,1.7537e+03_rb,1.4030e+03_rb,1.0522e+03_rb, &
+     &7.0149e+02_rb,3.5075e+02_rb,6.9076e+01_rb/)
+      kao(:, 2,13,14) = (/ &
+     &4.9007e+03_rb,4.2881e+03_rb,3.6756e+03_rb,3.0630e+03_rb,2.4504e+03_rb,1.8378e+03_rb, &
+     &1.2252e+03_rb,6.1260e+02_rb,6.9478e+01_rb/)
+      kao(:, 3,13,14) = (/ &
+     &7.8921e+03_rb,6.9056e+03_rb,5.9191e+03_rb,4.9326e+03_rb,3.9460e+03_rb,2.9595e+03_rb, &
+     &1.9730e+03_rb,9.8652e+02_rb,6.9694e+01_rb/)
+      kao(:, 4,13,14) = (/ &
+     &1.1933e+04_rb,1.0441e+04_rb,8.9495e+03_rb,7.4579e+03_rb,5.9663e+03_rb,4.4748e+03_rb, &
+     &2.9832e+03_rb,1.4916e+03_rb,6.9728e+01_rb/)
+      kao(:, 5,13,14) = (/ &
+     &1.7152e+04_rb,1.5008e+04_rb,1.2864e+04_rb,1.0720e+04_rb,8.5759e+03_rb,6.4320e+03_rb, &
+     &4.2880e+03_rb,2.1440e+03_rb,6.9601e+01_rb/)
+      kao(:, 1, 1,15) = (/ &
+     &3.5423e+04_rb,3.0995e+04_rb,2.6567e+04_rb,2.2139e+04_rb,1.7712e+04_rb,1.3284e+04_rb, &
+     &8.8558e+03_rb,4.4279e+03_rb,7.1610e-03_rb/)
+      kao(:, 2, 1,15) = (/ &
+     &4.5820e+04_rb,4.0093e+04_rb,3.4365e+04_rb,2.8638e+04_rb,2.2910e+04_rb,1.7183e+04_rb, &
+     &1.1455e+04_rb,5.7276e+03_rb,7.1091e-03_rb/)
+      kao(:, 3, 1,15) = (/ &
+     &5.7623e+04_rb,5.0421e+04_rb,4.3218e+04_rb,3.6015e+04_rb,2.8812e+04_rb,2.1609e+04_rb, &
+     &1.4406e+04_rb,7.2029e+03_rb,7.8150e-03_rb/)
+      kao(:, 4, 1,15) = (/ &
+     &7.0726e+04_rb,6.1885e+04_rb,5.3044e+04_rb,4.4204e+04_rb,3.5363e+04_rb,2.6522e+04_rb, &
+     &1.7681e+04_rb,8.8407e+03_rb,4.0966e-02_rb/)
+      kao(:, 5, 1,15) = (/ &
+     &8.4947e+04_rb,7.4329e+04_rb,6.3711e+04_rb,5.3092e+04_rb,4.2474e+04_rb,3.1855e+04_rb, &
+     &2.1237e+04_rb,1.0618e+04_rb,1.7079e-01_rb/)
+      kao(:, 1, 2,15) = (/ &
+     &3.6296e+04_rb,3.1759e+04_rb,2.7222e+04_rb,2.2685e+04_rb,1.8148e+04_rb,1.3611e+04_rb, &
+     &9.0740e+03_rb,4.5370e+03_rb,7.6264e-03_rb/)
+      kao(:, 2, 2,15) = (/ &
+     &4.7676e+04_rb,4.1717e+04_rb,3.5757e+04_rb,2.9798e+04_rb,2.3838e+04_rb,1.7879e+04_rb, &
+     &1.1919e+04_rb,5.9595e+03_rb,7.8530e+00_rb/)
+      kao(:, 3, 2,15) = (/ &
+     &6.0722e+04_rb,5.3132e+04_rb,4.5542e+04_rb,3.7951e+04_rb,3.0361e+04_rb,2.2771e+04_rb, &
+     &1.5181e+04_rb,7.5903e+03_rb,1.1682e+01_rb/)
+      kao(:, 4, 2,15) = (/ &
+     &7.5305e+04_rb,6.5892e+04_rb,5.6479e+04_rb,4.7065e+04_rb,3.7652e+04_rb,2.8239e+04_rb, &
+     &1.8826e+04_rb,9.4131e+03_rb,7.5532e+00_rb/)
+      kao(:, 5, 2,15) = (/ &
+     &9.1241e+04_rb,7.9835e+04_rb,6.8430e+04_rb,5.7025e+04_rb,4.5620e+04_rb,3.4215e+04_rb, &
+     &2.2810e+04_rb,1.1405e+04_rb,1.0957e+00_rb/)
+      kao(:, 1, 3,15) = (/ &
+     &3.4715e+04_rb,3.0376e+04_rb,2.6036e+04_rb,2.1697e+04_rb,1.7358e+04_rb,1.3018e+04_rb, &
+     &8.6788e+03_rb,4.3394e+03_rb,1.4232e+01_rb/)
+      kao(:, 2, 3,15) = (/ &
+     &4.6613e+04_rb,4.0787e+04_rb,3.4960e+04_rb,2.9133e+04_rb,2.3307e+04_rb,1.7480e+04_rb, &
+     &1.1653e+04_rb,5.8267e+03_rb,1.4235e+01_rb/)
+      kao(:, 3, 3,15) = (/ &
+     &6.0451e+04_rb,5.2894e+04_rb,4.5338e+04_rb,3.7782e+04_rb,3.0225e+04_rb,2.2669e+04_rb, &
+     &1.5113e+04_rb,7.5563e+03_rb,1.4209e+01_rb/)
+      kao(:, 4, 3,15) = (/ &
+     &7.6104e+04_rb,6.6591e+04_rb,5.7078e+04_rb,4.7565e+04_rb,3.8052e+04_rb,2.8539e+04_rb, &
+     &1.9026e+04_rb,9.5130e+03_rb,1.4121e+01_rb/)
+      kao(:, 5, 3,15) = (/ &
+     &9.3385e+04_rb,8.1712e+04_rb,7.0039e+04_rb,5.8365e+04_rb,4.6692e+04_rb,3.5019e+04_rb, &
+     &2.3346e+04_rb,1.1673e+04_rb,1.4063e+01_rb/)
+      kao(:, 1, 4,15) = (/ &
+     &3.1974e+04_rb,2.7977e+04_rb,2.3981e+04_rb,1.9984e+04_rb,1.5987e+04_rb,1.1990e+04_rb, &
+     &7.9936e+03_rb,3.9968e+03_rb,1.7130e+01_rb/)
+      kao(:, 2, 4,15) = (/ &
+     &4.4033e+04_rb,3.8529e+04_rb,3.3025e+04_rb,2.7521e+04_rb,2.2017e+04_rb,1.6512e+04_rb, &
+     &1.1008e+04_rb,5.5042e+03_rb,1.7154e+01_rb/)
+      kao(:, 3, 4,15) = (/ &
+     &5.8299e+04_rb,5.1012e+04_rb,4.3725e+04_rb,3.6437e+04_rb,2.9150e+04_rb,2.1862e+04_rb, &
+     &1.4575e+04_rb,7.2874e+03_rb,1.7147e+01_rb/)
+      kao(:, 4, 4,15) = (/ &
+     &7.4658e+04_rb,6.5325e+04_rb,5.5993e+04_rb,4.6661e+04_rb,3.7329e+04_rb,2.7997e+04_rb, &
+     &1.8664e+04_rb,9.3322e+03_rb,1.7125e+01_rb/)
+      kao(:, 5, 4,15) = (/ &
+     &9.3061e+04_rb,8.1428e+04_rb,6.9796e+04_rb,5.8163e+04_rb,4.6530e+04_rb,3.4898e+04_rb, &
+     &2.3265e+04_rb,1.1633e+04_rb,1.7053e+01_rb/)
+      kao(:, 1, 5,15) = (/ &
+     &2.8780e+04_rb,2.5183e+04_rb,2.1585e+04_rb,1.7988e+04_rb,1.4390e+04_rb,1.0793e+04_rb, &
+     &7.1950e+03_rb,3.5975e+03_rb,2.0610e+01_rb/)
+      kao(:, 2, 5,15) = (/ &
+     &4.0696e+04_rb,3.5609e+04_rb,3.0522e+04_rb,2.5435e+04_rb,2.0348e+04_rb,1.5261e+04_rb, &
+     &1.0174e+04_rb,5.0871e+03_rb,2.0673e+01_rb/)
+      kao(:, 3, 5,15) = (/ &
+     &5.5132e+04_rb,4.8240e+04_rb,4.1349e+04_rb,3.4457e+04_rb,2.7566e+04_rb,2.0674e+04_rb, &
+     &1.3783e+04_rb,6.8915e+03_rb,2.0688e+01_rb/)
+      kao(:, 4, 5,15) = (/ &
+     &7.2202e+04_rb,6.3177e+04_rb,5.4152e+04_rb,4.5126e+04_rb,3.6101e+04_rb,2.7076e+04_rb, &
+     &1.8051e+04_rb,9.0253e+03_rb,2.0678e+01_rb/)
+      kao(:, 5, 5,15) = (/ &
+     &9.1794e+04_rb,8.0320e+04_rb,6.8846e+04_rb,5.7371e+04_rb,4.5897e+04_rb,3.4423e+04_rb, &
+     &2.2949e+04_rb,1.1474e+04_rb,2.0627e+01_rb/)
+      kao(:, 1, 6,15) = (/ &
+     &2.4928e+04_rb,2.1812e+04_rb,1.8696e+04_rb,1.5580e+04_rb,1.2464e+04_rb,9.3479e+03_rb, &
+     &6.2319e+03_rb,3.1160e+03_rb,2.4743e+01_rb/)
+      kao(:, 2, 6,15) = (/ &
+     &3.6459e+04_rb,3.1902e+04_rb,2.7344e+04_rb,2.2787e+04_rb,1.8230e+04_rb,1.3672e+04_rb, &
+     &9.1148e+03_rb,4.5574e+03_rb,2.4868e+01_rb/)
+      kao(:, 3, 6,15) = (/ &
+     &5.0921e+04_rb,4.4556e+04_rb,3.8191e+04_rb,3.1826e+04_rb,2.5461e+04_rb,1.9095e+04_rb, &
+     &1.2730e+04_rb,6.3651e+03_rb,2.4935e+01_rb/)
+      kao(:, 4, 6,15) = (/ &
+     &6.8337e+04_rb,5.9795e+04_rb,5.1253e+04_rb,4.2711e+04_rb,3.4168e+04_rb,2.5626e+04_rb, &
+     &1.7084e+04_rb,8.5421e+03_rb,2.4952e+01_rb/)
+      kao(:, 5, 6,15) = (/ &
+     &8.8665e+04_rb,7.7582e+04_rb,6.6499e+04_rb,5.5416e+04_rb,4.4333e+04_rb,3.3249e+04_rb, &
+     &2.2166e+04_rb,1.1083e+04_rb,2.4917e+01_rb/)
+      kao(:, 1, 7,15) = (/ &
+     &2.1322e+04_rb,1.8657e+04_rb,1.5992e+04_rb,1.3326e+04_rb,1.0661e+04_rb,7.9957e+03_rb, &
+     &5.3305e+03_rb,2.6652e+03_rb,2.9665e+01_rb/)
+      kao(:, 2, 7,15) = (/ &
+     &3.2413e+04_rb,2.8361e+04_rb,2.4310e+04_rb,2.0258e+04_rb,1.6206e+04_rb,1.2155e+04_rb, &
+     &8.1031e+03_rb,4.0516e+03_rb,2.9861e+01_rb/)
+      kao(:, 3, 7,15) = (/ &
+     &4.6696e+04_rb,4.0859e+04_rb,3.5022e+04_rb,2.9185e+04_rb,2.3348e+04_rb,1.7511e+04_rb, &
+     &1.1674e+04_rb,5.8369e+03_rb,3.0001e+01_rb/)
+      kao(:, 4, 7,15) = (/ &
+     &6.4261e+04_rb,5.6228e+04_rb,4.8195e+04_rb,4.0163e+04_rb,3.2130e+04_rb,2.4098e+04_rb, &
+     &1.6065e+04_rb,8.0325e+03_rb,3.0074e+01_rb/)
+      kao(:, 5, 7,15) = (/ &
+     &8.5103e+04_rb,7.4465e+04_rb,6.3827e+04_rb,5.3189e+04_rb,4.2551e+04_rb,3.1914e+04_rb, &
+     &2.1276e+04_rb,1.0638e+04_rb,3.0077e+01_rb/)
+      kao(:, 1, 8,15) = (/ &
+     &1.8276e+04_rb,1.5991e+04_rb,1.3707e+04_rb,1.1422e+04_rb,9.1380e+03_rb,6.8535e+03_rb, &
+     &4.5690e+03_rb,2.2845e+03_rb,3.5525e+01_rb/)
+      kao(:, 2, 8,15) = (/ &
+     &2.8919e+04_rb,2.5304e+04_rb,2.1689e+04_rb,1.8074e+04_rb,1.4459e+04_rb,1.0845e+04_rb, &
+     &7.2298e+03_rb,3.6149e+03_rb,3.5844e+01_rb/)
+      kao(:, 3, 8,15) = (/ &
+     &4.2999e+04_rb,3.7624e+04_rb,3.2249e+04_rb,2.6874e+04_rb,2.1500e+04_rb,1.6125e+04_rb, &
+     &1.0750e+04_rb,5.3749e+03_rb,3.6058e+01_rb/)
+      kao(:, 4, 8,15) = (/ &
+     &6.0712e+04_rb,5.3123e+04_rb,4.5534e+04_rb,3.7945e+04_rb,3.0356e+04_rb,2.2767e+04_rb, &
+     &1.5178e+04_rb,7.5890e+03_rb,3.6184e+01_rb/)
+      kao(:, 5, 8,15) = (/ &
+     &8.2146e+04_rb,7.1878e+04_rb,6.1610e+04_rb,5.1341e+04_rb,4.1073e+04_rb,3.0805e+04_rb, &
+     &2.0537e+04_rb,1.0268e+04_rb,3.6243e+01_rb/)
+      kao(:, 1, 9,15) = (/ &
+     &1.5122e+04_rb,1.3232e+04_rb,1.1341e+04_rb,9.4512e+03_rb,7.5610e+03_rb,5.6707e+03_rb, &
+     &3.7805e+03_rb,1.8902e+03_rb,4.2513e+01_rb/)
+      kao(:, 2, 9,15) = (/ &
+     &2.4972e+04_rb,2.1851e+04_rb,1.8729e+04_rb,1.5608e+04_rb,1.2486e+04_rb,9.3646e+03_rb, &
+     &6.2431e+03_rb,3.1215e+03_rb,4.2950e+01_rb/)
+      kao(:, 3, 9,15) = (/ &
+     &3.8412e+04_rb,3.3611e+04_rb,2.8809e+04_rb,2.4007e+04_rb,1.9206e+04_rb,1.4404e+04_rb, &
+     &9.6030e+03_rb,4.8015e+03_rb,4.3278e+01_rb/)
+      kao(:, 4, 9,15) = (/ &
+     &5.5843e+04_rb,4.8863e+04_rb,4.1882e+04_rb,3.4902e+04_rb,2.7921e+04_rb,2.0941e+04_rb, &
+     &1.3961e+04_rb,6.9804e+03_rb,4.3480e+01_rb/)
+      kao(:, 5, 9,15) = (/ &
+     &7.7611e+04_rb,6.7910e+04_rb,5.8208e+04_rb,4.8507e+04_rb,3.8805e+04_rb,2.9104e+04_rb, &
+     &1.9403e+04_rb,9.7013e+03_rb,4.3587e+01_rb/)
+      kao(:, 1,10,15) = (/ &
+     &1.2684e+04_rb,1.1099e+04_rb,9.5132e+03_rb,7.9276e+03_rb,6.3421e+03_rb,4.7566e+03_rb, &
+     &3.1710e+03_rb,1.5855e+03_rb,5.0840e+01_rb/)
+      kao(:, 2,10,15) = (/ &
+     &2.1787e+04_rb,1.9064e+04_rb,1.6340e+04_rb,1.3617e+04_rb,1.0893e+04_rb,8.1700e+03_rb, &
+     &5.4467e+03_rb,2.7233e+03_rb,5.1430e+01_rb/)
+      kao(:, 3,10,15) = (/ &
+     &3.4684e+04_rb,3.0349e+04_rb,2.6013e+04_rb,2.1678e+04_rb,1.7342e+04_rb,1.3007e+04_rb, &
+     &8.6710e+03_rb,4.3355e+03_rb,5.1863e+01_rb/)
+      kao(:, 4,10,15) = (/ &
+     &5.1947e+04_rb,4.5454e+04_rb,3.8960e+04_rb,3.2467e+04_rb,2.5974e+04_rb,1.9480e+04_rb, &
+     &1.2987e+04_rb,6.4934e+03_rb,5.2160e+01_rb/)
+      kao(:, 5,10,15) = (/ &
+     &7.3912e+04_rb,6.4673e+04_rb,5.5434e+04_rb,4.6195e+04_rb,3.6956e+04_rb,2.7717e+04_rb, &
+     &1.8478e+04_rb,9.2389e+03_rb,5.2321e+01_rb/)
+      kao(:, 1,11,15) = (/ &
+     &1.3711e+04_rb,1.1997e+04_rb,1.0283e+04_rb,8.5694e+03_rb,6.8555e+03_rb,5.1416e+03_rb, &
+     &3.4277e+03_rb,1.7139e+03_rb,6.1054e+01_rb/)
+      kao(:, 2,11,15) = (/ &
+     &2.3669e+04_rb,2.0711e+04_rb,1.7752e+04_rb,1.4793e+04_rb,1.1835e+04_rb,8.8760e+03_rb, &
+     &5.9173e+03_rb,2.9586e+03_rb,6.1742e+01_rb/)
+      kao(:, 3,11,15) = (/ &
+     &3.7832e+04_rb,3.3103e+04_rb,2.8374e+04_rb,2.3645e+04_rb,1.8916e+04_rb,1.4187e+04_rb, &
+     &9.4579e+03_rb,4.7289e+03_rb,6.2215e+01_rb/)
+      kao(:, 4,11,15) = (/ &
+     &5.6757e+04_rb,4.9662e+04_rb,4.2568e+04_rb,3.5473e+04_rb,2.8378e+04_rb,2.1284e+04_rb, &
+     &1.4189e+04_rb,7.0945e+03_rb,6.2524e+01_rb/)
+      kao(:, 5,11,15) = (/ &
+     &8.0798e+04_rb,7.0698e+04_rb,6.0598e+04_rb,5.0499e+04_rb,4.0399e+04_rb,3.0299e+04_rb, &
+     &2.0199e+04_rb,1.0100e+04_rb,6.2689e+01_rb/)
+      kao(:, 1,12,15) = (/ &
+     &1.4989e+04_rb,1.3115e+04_rb,1.1241e+04_rb,9.3679e+03_rb,7.4943e+03_rb,5.6207e+03_rb, &
+     &3.7471e+03_rb,1.8736e+03_rb,7.3162e+01_rb/)
+      kao(:, 2,12,15) = (/ &
+     &2.5949e+04_rb,2.2705e+04_rb,1.9461e+04_rb,1.6218e+04_rb,1.2974e+04_rb,9.7307e+03_rb, &
+     &6.4871e+03_rb,3.2436e+03_rb,7.3885e+01_rb/)
+      kao(:, 3,12,15) = (/ &
+     &4.1513e+04_rb,3.6324e+04_rb,3.1134e+04_rb,2.5945e+04_rb,2.0756e+04_rb,1.5567e+04_rb, &
+     &1.0378e+04_rb,5.1891e+03_rb,7.4405e+01_rb/)
+      kao(:, 4,12,15) = (/ &
+     &6.2315e+04_rb,5.4526e+04_rb,4.6737e+04_rb,3.8947e+04_rb,3.1158e+04_rb,2.3368e+04_rb, &
+     &1.5579e+04_rb,7.7894e+03_rb,7.4701e+01_rb/)
+      kao(:, 5,12,15) = (/ &
+     &8.8861e+04_rb,7.7754e+04_rb,6.6646e+04_rb,5.5538e+04_rb,4.4431e+04_rb,3.3323e+04_rb, &
+     &2.2215e+04_rb,1.1108e+04_rb,7.4795e+01_rb/)
+      kao(:, 1,13,15) = (/ &
+     &1.6915e+04_rb,1.4801e+04_rb,1.2687e+04_rb,1.0572e+04_rb,8.4577e+03_rb,6.3433e+03_rb, &
+     &4.2289e+03_rb,2.1144e+03_rb,8.7334e+01_rb/)
+      kao(:, 2,13,15) = (/ &
+     &2.9284e+04_rb,2.5624e+04_rb,2.1963e+04_rb,1.8303e+04_rb,1.4642e+04_rb,1.0982e+04_rb, &
+     &7.3211e+03_rb,3.6605e+03_rb,8.8104e+01_rb/)
+      kao(:, 3,13,15) = (/ &
+     &4.6892e+04_rb,4.1031e+04_rb,3.5169e+04_rb,2.9308e+04_rb,2.3446e+04_rb,1.7585e+04_rb, &
+     &1.1723e+04_rb,5.8616e+03_rb,8.8585e+01_rb/)
+      kao(:, 4,13,15) = (/ &
+     &7.0448e+04_rb,6.1642e+04_rb,5.2836e+04_rb,4.4030e+04_rb,3.5224e+04_rb,2.6418e+04_rb, &
+     &1.7612e+04_rb,8.8061e+03_rb,8.8802e+01_rb/)
+      kao(:, 5,13,15) = (/ &
+     &1.0039e+05_rb,8.7843e+04_rb,7.5294e+04_rb,6.2745e+04_rb,5.0196e+04_rb,3.7647e+04_rb, &
+     &2.5098e+04_rb,1.2549e+04_rb,8.8791e+01_rb/)
+      kao(:, 1, 1,16) = (/ &
+     &4.3683e+04_rb,3.8223e+04_rb,3.2762e+04_rb,2.7302e+04_rb,2.1842e+04_rb,1.6381e+04_rb, &
+     &1.0921e+04_rb,5.4604e+03_rb,7.6073e-03_rb/)
+      kao(:, 2, 1,16) = (/ &
+     &5.6813e+04_rb,4.9712e+04_rb,4.2610e+04_rb,3.5508e+04_rb,2.8407e+04_rb,2.1305e+04_rb, &
+     &1.4203e+04_rb,7.1017e+03_rb,7.6403e-03_rb/)
+      kao(:, 3, 1,16) = (/ &
+     &7.1746e+04_rb,6.2777e+04_rb,5.3809e+04_rb,4.4841e+04_rb,3.5873e+04_rb,2.6905e+04_rb, &
+     &1.7936e+04_rb,8.9682e+03_rb,3.7278e-03_rb/)
+      kao(:, 4, 1,16) = (/ &
+     &8.8334e+04_rb,7.7292e+04_rb,6.6250e+04_rb,5.5209e+04_rb,4.4167e+04_rb,3.3125e+04_rb, &
+     &2.2083e+04_rb,1.1042e+04_rb,3.7292e-03_rb/)
+      kao(:, 5, 1,16) = (/ &
+     &1.0639e+05_rb,9.3091e+04_rb,7.9793e+04_rb,6.6494e+04_rb,5.3195e+04_rb,3.9896e+04_rb, &
+     &2.6598e+04_rb,1.3299e+04_rb,7.8826e-01_rb/)
+      kao(:, 1, 2,16) = (/ &
+     &4.6897e+04_rb,4.1035e+04_rb,3.5173e+04_rb,2.9311e+04_rb,2.3449e+04_rb,1.7586e+04_rb, &
+     &1.1724e+04_rb,5.8622e+03_rb,8.2408e-03_rb/)
+      kao(:, 2, 2,16) = (/ &
+     &6.1887e+04_rb,5.4151e+04_rb,4.6415e+04_rb,3.8679e+04_rb,3.0943e+04_rb,2.3208e+04_rb, &
+     &1.5472e+04_rb,7.7359e+03_rb,1.2063e+01_rb/)
+      kao(:, 3, 2,16) = (/ &
+     &7.9108e+04_rb,6.9219e+04_rb,5.9331e+04_rb,4.9442e+04_rb,3.9554e+04_rb,2.9666e+04_rb, &
+     &1.9777e+04_rb,9.8885e+03_rb,1.1743e+01_rb/)
+      kao(:, 4, 2,16) = (/ &
+     &9.8415e+04_rb,8.6113e+04_rb,7.3811e+04_rb,6.1509e+04_rb,4.9207e+04_rb,3.6906e+04_rb, &
+     &2.4604e+04_rb,1.2302e+04_rb,3.5693e-03_rb/)
+      kao(:, 5, 2,16) = (/ &
+     &1.1961e+05_rb,1.0466e+05_rb,8.9707e+04_rb,7.4755e+04_rb,5.9804e+04_rb,4.4853e+04_rb, &
+     &2.9902e+04_rb,1.4951e+04_rb,5.8824e-01_rb/)
+      kao(:, 1, 3,16) = (/ &
+     &4.7187e+04_rb,4.1289e+04_rb,3.5390e+04_rb,2.9492e+04_rb,2.3594e+04_rb,1.7695e+04_rb, &
+     &1.1797e+04_rb,5.8984e+03_rb,1.4554e+01_rb/)
+      kao(:, 2, 3,16) = (/ &
+     &6.3662e+04_rb,5.5704e+04_rb,4.7746e+04_rb,3.9789e+04_rb,3.1831e+04_rb,2.3873e+04_rb, &
+     &1.5915e+04_rb,7.9577e+03_rb,1.4573e+01_rb/)
+      kao(:, 3, 3,16) = (/ &
+     &8.2931e+04_rb,7.2565e+04_rb,6.2198e+04_rb,5.1832e+04_rb,4.1465e+04_rb,3.1099e+04_rb, &
+     &2.0733e+04_rb,1.0366e+04_rb,1.4578e+01_rb/)
+      kao(:, 4, 3,16) = (/ &
+     &1.0484e+05_rb,9.1735e+04_rb,7.8630e+04_rb,6.5525e+04_rb,5.2420e+04_rb,3.9315e+04_rb, &
+     &2.6210e+04_rb,1.3105e+04_rb,1.4538e+01_rb/)
+      kao(:, 5, 3,16) = (/ &
+     &1.2920e+05_rb,1.1305e+05_rb,9.6898e+04_rb,8.0748e+04_rb,6.4599e+04_rb,4.8449e+04_rb, &
+     &3.2299e+04_rb,1.6150e+04_rb,1.4475e+01_rb/)
+      kao(:, 1, 4,16) = (/ &
+     &4.6077e+04_rb,4.0317e+04_rb,3.4558e+04_rb,2.8798e+04_rb,2.3038e+04_rb,1.7279e+04_rb, &
+     &1.1519e+04_rb,5.7596e+03_rb,1.7584e+01_rb/)
+      kao(:, 2, 4,16) = (/ &
+     &6.3824e+04_rb,5.5846e+04_rb,4.7868e+04_rb,3.9890e+04_rb,3.1912e+04_rb,2.3934e+04_rb, &
+     &1.5956e+04_rb,7.9779e+03_rb,1.7639e+01_rb/)
+      kao(:, 3, 4,16) = (/ &
+     &8.4999e+04_rb,7.4374e+04_rb,6.3749e+04_rb,5.3124e+04_rb,4.2499e+04_rb,3.1874e+04_rb, &
+     &2.1250e+04_rb,1.0625e+04_rb,1.7665e+01_rb/)
+      kao(:, 4, 4,16) = (/ &
+     &1.0949e+05_rb,9.5804e+04_rb,8.2118e+04_rb,6.8432e+04_rb,5.4745e+04_rb,4.1059e+04_rb, &
+     &2.7373e+04_rb,1.3686e+04_rb,1.7655e+01_rb/)
+      kao(:, 5, 4,16) = (/ &
+     &1.3706e+05_rb,1.1993e+05_rb,1.0280e+05_rb,8.5665e+04_rb,6.8532e+04_rb,5.1399e+04_rb, &
+     &3.4266e+04_rb,1.7133e+04_rb,1.7601e+01_rb/)
+      kao(:, 1, 5,16) = (/ &
+     &4.4408e+04_rb,3.8857e+04_rb,3.3306e+04_rb,2.7755e+04_rb,2.2204e+04_rb,1.6653e+04_rb, &
+     &1.1102e+04_rb,5.5509e+03_rb,2.1257e+01_rb/)
+      kao(:, 2, 5,16) = (/ &
+     &6.3274e+04_rb,5.5364e+04_rb,4.7455e+04_rb,3.9546e+04_rb,3.1637e+04_rb,2.3728e+04_rb, &
+     &1.5818e+04_rb,7.9092e+03_rb,2.1367e+01_rb/)
+      kao(:, 3, 5,16) = (/ &
+     &8.6266e+04_rb,7.5483e+04_rb,6.4700e+04_rb,5.3916e+04_rb,4.3133e+04_rb,3.2350e+04_rb, &
+     &2.1567e+04_rb,1.0783e+04_rb,2.1428e+01_rb/)
+      kao(:, 4, 5,16) = (/ &
+     &1.1336e+05_rb,9.9194e+04_rb,8.5023e+04_rb,7.0853e+04_rb,5.6682e+04_rb,4.2512e+04_rb, &
+     &2.8341e+04_rb,1.4171e+04_rb,2.1442e+01_rb/)
+      kao(:, 5, 5,16) = (/ &
+     &1.4437e+05_rb,1.2632e+05_rb,1.0827e+05_rb,9.0229e+04_rb,7.2183e+04_rb,5.4137e+04_rb, &
+     &3.6091e+04_rb,1.8046e+04_rb,2.1411e+01_rb/)
+      kao(:, 1, 6,16) = (/ &
+     &4.1622e+04_rb,3.6419e+04_rb,3.1217e+04_rb,2.6014e+04_rb,2.0811e+04_rb,1.5608e+04_rb, &
+     &1.0406e+04_rb,5.2028e+03_rb,2.5704e+01_rb/)
+      kao(:, 2, 6,16) = (/ &
+     &6.1272e+04_rb,5.3613e+04_rb,4.5954e+04_rb,3.8295e+04_rb,3.0636e+04_rb,2.2977e+04_rb, &
+     &1.5318e+04_rb,7.6590e+03_rb,2.5880e+01_rb/)
+      kao(:, 3, 6,16) = (/ &
+     &8.5823e+04_rb,7.5095e+04_rb,6.4367e+04_rb,5.3639e+04_rb,4.2911e+04_rb,3.2183e+04_rb, &
+     &2.1456e+04_rb,1.0728e+04_rb,2.5988e+01_rb/)
+      kao(:, 4, 6,16) = (/ &
+     &1.1534e+05_rb,1.0092e+05_rb,8.6501e+04_rb,7.2084e+04_rb,5.7667e+04_rb,4.3251e+04_rb, &
+     &2.8834e+04_rb,1.4417e+04_rb,2.6050e+01_rb/)
+      kao(:, 5, 6,16) = (/ &
+     &1.4970e+05_rb,1.3098e+05_rb,1.1227e+05_rb,9.3560e+04_rb,7.4848e+04_rb,5.6136e+04_rb, &
+     &3.7424e+04_rb,1.8712e+04_rb,2.6033e+01_rb/)
+      kao(:, 1, 7,16) = (/ &
+     &3.8762e+04_rb,3.3917e+04_rb,2.9071e+04_rb,2.4226e+04_rb,1.9381e+04_rb,1.4536e+04_rb, &
+     &9.6904e+03_rb,4.8452e+03_rb,3.1098e+01_rb/)
+      kao(:, 2, 7,16) = (/ &
+     &5.9114e+04_rb,5.1725e+04_rb,4.4335e+04_rb,3.6946e+04_rb,2.9557e+04_rb,2.2168e+04_rb, &
+     &1.4778e+04_rb,7.3892e+03_rb,3.1343e+01_rb/)
+      kao(:, 3, 7,16) = (/ &
+     &8.5273e+04_rb,7.4614e+04_rb,6.3955e+04_rb,5.3296e+04_rb,4.2636e+04_rb,3.1977e+04_rb, &
+     &2.1318e+04_rb,1.0659e+04_rb,3.1509e+01_rb/)
+      kao(:, 4, 7,16) = (/ &
+     &1.1738e+05_rb,1.0271e+05_rb,8.8034e+04_rb,7.3362e+04_rb,5.8689e+04_rb,4.4017e+04_rb, &
+     &2.9345e+04_rb,1.4672e+04_rb,3.1622e+01_rb/)
+      kao(:, 5, 7,16) = (/ &
+     &1.5542e+05_rb,1.3599e+05_rb,1.1657e+05_rb,9.7138e+04_rb,7.7710e+04_rb,5.8283e+04_rb, &
+     &3.8855e+04_rb,1.9427e+04_rb,3.1655e+01_rb/)
+      kao(:, 1, 8,16) = (/ &
+     &3.6377e+04_rb,3.1830e+04_rb,2.7279e+04_rb,2.2736e+04_rb,1.8189e+04_rb,1.3641e+04_rb, &
+     &9.0943e+03_rb,4.5472e+03_rb,3.7610e+01_rb/)
+      kao(:, 2, 8,16) = (/ &
+     &5.7649e+04_rb,5.0443e+04_rb,4.3237e+04_rb,3.6031e+04_rb,2.8825e+04_rb,2.1619e+04_rb, &
+     &1.4412e+04_rb,7.2062e+03_rb,3.7934e+01_rb/)
+      kao(:, 3, 8,16) = (/ &
+     &8.5747e+04_rb,7.5029e+04_rb,6.4311e+04_rb,5.3592e+04_rb,4.2874e+04_rb,3.2155e+04_rb, &
+     &2.1437e+04_rb,1.0718e+04_rb,3.8193e+01_rb/)
+      kao(:, 4, 8,16) = (/ &
+     &1.2106e+05_rb,1.0593e+05_rb,9.0796e+04_rb,7.5663e+04_rb,6.0531e+04_rb,4.5398e+04_rb, &
+     &3.0265e+04_rb,1.5133e+04_rb,3.8356e+01_rb/)
+      kao(:, 5, 8,16) = (/ &
+     &1.6369e+05_rb,1.4323e+05_rb,1.2277e+05_rb,1.0231e+05_rb,8.1844e+04_rb,6.1383e+04_rb, &
+     &4.0922e+04_rb,2.0461e+04_rb,3.8437e+01_rb/)
+      kao(:, 1, 9,16) = (/ &
+     &3.3210e+04_rb,2.9058e+04_rb,2.4907e+04_rb,2.0756e+04_rb,1.6605e+04_rb,1.2454e+04_rb, &
+     &8.3024e+03_rb,4.1512e+03_rb,4.5425e+01_rb/)
+      kao(:, 2, 9,16) = (/ &
+     &5.4859e+04_rb,4.8001e+04_rb,4.1144e+04_rb,3.4287e+04_rb,2.7429e+04_rb,2.0572e+04_rb, &
+     &1.3715e+04_rb,6.8573e+03_rb,4.5889e+01_rb/)
+      kao(:, 3, 9,16) = (/ &
+     &8.4365e+04_rb,7.3820e+04_rb,6.3274e+04_rb,5.2728e+04_rb,4.2183e+04_rb,3.1637e+04_rb, &
+     &2.1091e+04_rb,1.0546e+04_rb,4.6246e+01_rb/)
+      kao(:, 4, 9,16) = (/ &
+     &1.2241e+05_rb,1.0711e+05_rb,9.1805e+04_rb,7.6504e+04_rb,6.1203e+04_rb,4.5902e+04_rb, &
+     &3.0602e+04_rb,1.5301e+04_rb,4.6486e+01_rb/)
+      kao(:, 5, 9,16) = (/ &
+     &1.6922e+05_rb,1.4806e+05_rb,1.2691e+05_rb,1.0576e+05_rb,8.4608e+04_rb,6.3456e+04_rb, &
+     &4.2304e+04_rb,2.1152e+04_rb,4.6625e+01_rb/)
+      kao(:, 1,10,16) = (/ &
+     &3.0979e+04_rb,2.7106e+04_rb,2.3234e+04_rb,1.9362e+04_rb,1.5489e+04_rb,1.1617e+04_rb, &
+     &7.7447e+03_rb,3.8723e+03_rb,5.4886e+01_rb/)
+      kao(:, 2,10,16) = (/ &
+     &5.3196e+04_rb,4.6547e+04_rb,3.9897e+04_rb,3.3248e+04_rb,2.6598e+04_rb,1.9948e+04_rb, &
+     &1.3299e+04_rb,6.6495e+03_rb,5.5476e+01_rb/)
+      kao(:, 3,10,16) = (/ &
+     &8.4341e+04_rb,7.3798e+04_rb,6.3256e+04_rb,5.2713e+04_rb,4.2170e+04_rb,3.1628e+04_rb, &
+     &2.1085e+04_rb,1.0332e+04_rb,5.5974e+01_rb/)
+      kao(:, 4,10,16) = (/ &
+     &1.2535e+05_rb,1.0968e+05_rb,9.4014e+04_rb,7.8345e+04_rb,6.2676e+04_rb,4.7007e+04_rb, &
+     &3.1338e+04_rb,1.5669e+04_rb,5.6279e+01_rb/)
+      kao(:, 5,10,16) = (/ &
+     &1.7674e+05_rb,1.5464e+05_rb,1.3255e+05_rb,1.1046e+05_rb,8.8368e+04_rb,6.6276e+04_rb, &
+     &4.4184e+04_rb,2.2092e+04_rb,5.6482e+01_rb/)
+      kao(:, 1,11,16) = (/ &
+     &3.7488e+04_rb,3.2802e+04_rb,2.8116e+04_rb,2.3430e+04_rb,1.8744e+04_rb,1.4058e+04_rb, &
+     &9.3718e+03_rb,4.6859e+03_rb,6.6623e+01_rb/)
+      kao(:, 2,11,16) = (/ &
+     &6.4180e+04_rb,5.6158e+04_rb,4.8135e+04_rb,4.0112e+04_rb,3.2090e+04_rb,2.4067e+04_rb, &
+     &1.6045e+04_rb,8.0224e+03_rb,6.7308e+01_rb/)
+      kao(:, 3,11,16) = (/ &
+     &1.0143e+05_rb,8.8753e+04_rb,7.6074e+04_rb,6.3395e+04_rb,5.0716e+04_rb,3.8037e+04_rb, &
+     &2.5358e+04_rb,1.2679e+04_rb,6.7849e+01_rb/)
+      kao(:, 4,11,16) = (/ &
+     &1.5034e+05_rb,1.3155e+05_rb,1.1275e+05_rb,9.3961e+04_rb,7.5169e+04_rb,5.6376e+04_rb, &
+     &3.7584e+04_rb,1.8792e+04_rb,6.8179e+01_rb/)
+      kao(:, 5,11,16) = (/ &
+     &2.1140e+05_rb,1.8498e+05_rb,1.5855e+05_rb,1.3213e+05_rb,1.0570e+05_rb,7.9275e+04_rb, &
+     &5.2850e+04_rb,2.6425e+04_rb,6.8333e+01_rb/)
+      kao(:, 1,12,16) = (/ &
+     &4.5641e+04_rb,3.9936e+04_rb,3.4231e+04_rb,2.8526e+04_rb,2.2821e+04_rb,1.7116e+04_rb, &
+     &1.1410e+04_rb,5.7052e+03_rb,8.0729e+01_rb/)
+      kao(:, 2,12,16) = (/ &
+     &7.7843e+04_rb,6.8113e+04_rb,5.8382e+04_rb,4.8652e+04_rb,3.8922e+04_rb,2.9191e+04_rb, &
+     &1.9461e+04_rb,9.7304e+03_rb,8.1511e+01_rb/)
+      kao(:, 3,12,16) = (/ &
+     &1.2264e+05_rb,1.0731e+05_rb,9.1979e+04_rb,7.6649e+04_rb,6.1320e+04_rb,4.5990e+04_rb, &
+     &3.0660e+04_rb,1.5330e+04_rb,8.2042e+01_rb/)
+      kao(:, 4,12,16) = (/ &
+     &1.8173e+05_rb,1.5901e+05_rb,1.3629e+05_rb,1.1358e+05_rb,9.0863e+04_rb,6.8147e+04_rb, &
+     &4.5431e+04_rb,2.2716e+04_rb,8.2374e+01_rb/)
+      kao(:, 5,12,16) = (/ &
+     &2.5615e+05_rb,2.2413e+05_rb,1.9211e+05_rb,1.6009e+05_rb,1.2807e+05_rb,9.6056e+04_rb, &
+     &6.4037e+04_rb,3.2019e+04_rb,8.2428e+01_rb/)
+      kao(:, 1,13,16) = (/ &
+     &5.7163e+04_rb,5.0018e+04_rb,4.2872e+04_rb,3.5727e+04_rb,2.8582e+04_rb,2.1436e+04_rb, &
+     &1.4291e+04_rb,7.1455e+03_rb,9.7539e+01_rb/)
+      kao(:, 2,13,16) = (/ &
+     &9.7458e+04_rb,8.5276e+04_rb,7.3094e+04_rb,6.0911e+04_rb,4.8729e+04_rb,3.6547e+04_rb, &
+     &2.4365e+04_rb,1.2182e+04_rb,9.8425e+01_rb/)
+      kao(:, 3,13,16) = (/ &
+     &1.5404e+05_rb,1.3479e+05_rb,1.1553e+05_rb,9.6277e+04_rb,7.7021e+04_rb,5.7766e+04_rb, &
+     &3.8511e+04_rb,1.9255e+04_rb,9.8903e+01_rb/)
+      kao(:, 4,13,16) = (/ &
+     &2.2887e+05_rb,2.0026e+05_rb,1.7165e+05_rb,1.4304e+05_rb,1.1444e+05_rb,8.5827e+04_rb, &
+     &5.7218e+04_rb,2.8609e+04_rb,9.9135e+01_rb/)
+      kao(:, 5,13,16) = (/ &
+     &3.2310e+05_rb,2.8271e+05_rb,2.4232e+05_rb,2.0194e+05_rb,1.6155e+05_rb,1.2116e+05_rb, &
+     &8.0775e+04_rb,4.0387e+04_rb,9.9042e+01_rb/)
+
+!     The array KA_Mxx contains the absorption coefficient for 
+!     a minor species at the 16 chosen g-values for a reference pressure
+!     level below 100~ mb.   The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.  The second index refers to temperature 
+!     in 7.2 degree increments.  For instance, JT = 1 refers to a 
+!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index 
+!     runs over the g-channel (1 to 16).
+
+       kao_mn2( 1, :, 1) = (/ &
+     & 3.24352e-08_rb, 3.39625e-08_rb, 3.55618e-08_rb, 3.72364e-08_rb, 3.89899e-08_rb, &
+     & 4.08259e-08_rb, 4.27484e-08_rb, 4.47614e-08_rb, 4.68692e-08_rb, 4.90763e-08_rb, &
+     & 5.13873e-08_rb, 5.38071e-08_rb, 5.63409e-08_rb, 5.89940e-08_rb, 6.17720e-08_rb, &
+     & 6.46808e-08_rb, 6.77266e-08_rb, 7.09158e-08_rb, 7.42553e-08_rb/)
+       kao_mn2( 2, :, 1) = (/ &
+     & 3.44203e-08_rb, 3.60254e-08_rb, 3.77053e-08_rb, 3.94636e-08_rb, 4.13038e-08_rb, &
+     & 4.32299e-08_rb, 4.52458e-08_rb, 4.73557e-08_rb, 4.95640e-08_rb, 5.18753e-08_rb, &
+     & 5.42943e-08_rb, 5.68262e-08_rb, 5.94761e-08_rb, 6.22496e-08_rb, 6.51524e-08_rb, &
+     & 6.81906e-08_rb, 7.13704e-08_rb, 7.46986e-08_rb, 7.81819e-08_rb/)
+       kao_mn2( 3, :, 1) = (/ &
+     & 3.44344e-08_rb, 3.61485e-08_rb, 3.79480e-08_rb, 3.98370e-08_rb, 4.18201e-08_rb, &
+     & 4.39019e-08_rb, 4.60873e-08_rb, 4.83815e-08_rb, 5.07899e-08_rb, 5.33182e-08_rb, &
+     & 5.59723e-08_rb, 5.87586e-08_rb, 6.16836e-08_rb, 6.47541e-08_rb, 6.79776e-08_rb, &
+     & 7.13614e-08_rb, 7.49138e-08_rb, 7.86429e-08_rb, 8.25577e-08_rb/)
+       kao_mn2( 4, :, 1) = (/ &
+     & 4.21102e-08_rb, 4.38921e-08_rb, 4.57493e-08_rb, 4.76852e-08_rb, 4.97029e-08_rb, &
+     & 5.18061e-08_rb, 5.39982e-08_rb, 5.62831e-08_rb, 5.86647e-08_rb, 6.11470e-08_rb, &
+     & 6.37344e-08_rb, 6.64313e-08_rb, 6.92422e-08_rb, 7.21722e-08_rb, 7.52261e-08_rb, &
+     & 7.84092e-08_rb, 8.17270e-08_rb, 8.51852e-08_rb, 8.87897e-08_rb/)
+       kao_mn2( 5, :, 1) = (/ &
+     & 4.78813e-08_rb, 5.01015e-08_rb, 5.24246e-08_rb, 5.48554e-08_rb, 5.73989e-08_rb, &
+     & 6.00603e-08_rb, 6.28452e-08_rb, 6.57592e-08_rb, 6.88083e-08_rb, 7.19987e-08_rb, &
+     & 7.53371e-08_rb, 7.88304e-08_rb, 8.24855e-08_rb, 8.63102e-08_rb, 9.03122e-08_rb, &
+     & 9.44997e-08_rb, 9.88815e-08_rb, 1.03466e-07_rb, 1.08264e-07_rb/)
+       kao_mn2( 6, :, 1) = (/ &
+     & 7.03115e-08_rb, 7.27877e-08_rb, 7.53511e-08_rb, 7.80048e-08_rb, 8.07519e-08_rb, &
+     & 8.35958e-08_rb, 8.65398e-08_rb, 8.95875e-08_rb, 9.27426e-08_rb, 9.60087e-08_rb, &
+     & 9.93899e-08_rb, 1.02890e-07_rb, 1.06514e-07_rb, 1.10265e-07_rb, 1.14148e-07_rb, &
+     & 1.18168e-07_rb, 1.22330e-07_rb, 1.26638e-07_rb, 1.31098e-07_rb/)
+       kao_mn2( 7, :, 1) = (/ &
+     & 8.86454e-08_rb, 9.20065e-08_rb, 9.54951e-08_rb, 9.91159e-08_rb, 1.02874e-07_rb, &
+     & 1.06775e-07_rb, 1.10823e-07_rb, 1.15025e-07_rb, 1.19387e-07_rb, 1.23913e-07_rb, &
+     & 1.28612e-07_rb, 1.33488e-07_rb, 1.38550e-07_rb, 1.43803e-07_rb, 1.49255e-07_rb, &
+     & 1.54915e-07_rb, 1.60788e-07_rb, 1.66885e-07_rb, 1.73213e-07_rb/)
+       kao_mn2( 8, :, 1) = (/ &
+     & 1.34118e-07_rb, 1.38267e-07_rb, 1.42545e-07_rb, 1.46955e-07_rb, 1.51502e-07_rb, &
+     & 1.56189e-07_rb, 1.61022e-07_rb, 1.66004e-07_rb, 1.71140e-07_rb, 1.76435e-07_rb, &
+     & 1.81893e-07_rb, 1.87521e-07_rb, 1.93323e-07_rb, 1.99304e-07_rb, 2.05470e-07_rb, &
+     & 2.11827e-07_rb, 2.18381e-07_rb, 2.25138e-07_rb, 2.32103e-07_rb/)
+       kao_mn2( 9, :, 1) = (/ &
+     & 5.08256e-08_rb, 5.30384e-08_rb, 5.53476e-08_rb, 5.77573e-08_rb, 6.02718e-08_rb, &
+     & 6.28959e-08_rb, 6.56342e-08_rb, 6.84917e-08_rb, 7.14737e-08_rb, 7.45854e-08_rb, &
+     & 7.78327e-08_rb, 8.12213e-08_rb, 8.47574e-08_rb, 8.84475e-08_rb, 9.22983e-08_rb, &
+     & 9.63167e-08_rb, 1.00510e-07_rb, 1.04886e-07_rb, 1.09452e-07_rb/)
+       kao_mn2( 1, :, 2) = (/ &
+     & 8.23958e-08_rb, 8.39092e-08_rb, 8.54504e-08_rb, 8.70200e-08_rb, 8.86183e-08_rb, &
+     & 9.02460e-08_rb, 9.19036e-08_rb, 9.35917e-08_rb, 9.53107e-08_rb, 9.70614e-08_rb, &
+     & 9.88442e-08_rb, 1.00660e-07_rb, 1.02509e-07_rb, 1.04391e-07_rb, 1.06309e-07_rb, &
+     & 1.08261e-07_rb, 1.10250e-07_rb, 1.12275e-07_rb, 1.14337e-07_rb/)
+       kao_mn2( 2, :, 2) = (/ &
+     & 8.52335e-08_rb, 8.69254e-08_rb, 8.86509e-08_rb, 9.04107e-08_rb, 9.22054e-08_rb, &
+     & 9.40357e-08_rb, 9.59024e-08_rb, 9.78061e-08_rb, 9.97476e-08_rb, 1.01728e-07_rb, &
+     & 1.03747e-07_rb, 1.05806e-07_rb, 1.07907e-07_rb, 1.10049e-07_rb, 1.12233e-07_rb, &
+     & 1.14461e-07_rb, 1.16733e-07_rb, 1.19050e-07_rb, 1.21414e-07_rb/)
+       kao_mn2( 3, :, 2) = (/ &
+     & 1.04608e-07_rb, 1.06067e-07_rb, 1.07546e-07_rb, 1.09046e-07_rb, 1.10567e-07_rb, &
+     & 1.12110e-07_rb, 1.13673e-07_rb, 1.15259e-07_rb, 1.16866e-07_rb, 1.18496e-07_rb, &
+     & 1.20149e-07_rb, 1.21825e-07_rb, 1.23524e-07_rb, 1.25247e-07_rb, 1.26994e-07_rb, &
+     & 1.28765e-07_rb, 1.30561e-07_rb, 1.32382e-07_rb, 1.34229e-07_rb/)
+       kao_mn2( 4, :, 2) = (/ &
+     & 1.17504e-07_rb, 1.18763e-07_rb, 1.20036e-07_rb, 1.21322e-07_rb, 1.22622e-07_rb, &
+     & 1.23936e-07_rb, 1.25265e-07_rb, 1.26607e-07_rb, 1.27964e-07_rb, 1.29335e-07_rb, &
+     & 1.30721e-07_rb, 1.32122e-07_rb, 1.33538e-07_rb, 1.34969e-07_rb, 1.36415e-07_rb, &
+     & 1.37877e-07_rb, 1.39354e-07_rb, 1.40848e-07_rb, 1.42357e-07_rb/)
+       kao_mn2( 5, :, 2) = (/ &
+     & 1.23552e-07_rb, 1.25200e-07_rb, 1.26870e-07_rb, 1.28562e-07_rb, 1.30277e-07_rb, &
+     & 1.32015e-07_rb, 1.33776e-07_rb, 1.35560e-07_rb, 1.37368e-07_rb, 1.39200e-07_rb, &
+     & 1.41057e-07_rb, 1.42938e-07_rb, 1.44845e-07_rb, 1.46777e-07_rb, 1.48735e-07_rb, &
+     & 1.50718e-07_rb, 1.52729e-07_rb, 1.54766e-07_rb, 1.56830e-07_rb/)
+       kao_mn2( 6, :, 2) = (/ &
+     & 1.29682e-07_rb, 1.32226e-07_rb, 1.34820e-07_rb, 1.37464e-07_rb, 1.40161e-07_rb, &
+     & 1.42910e-07_rb, 1.45713e-07_rb, 1.48571e-07_rb, 1.51486e-07_rb, 1.54457e-07_rb, &
+     & 1.57487e-07_rb, 1.60576e-07_rb, 1.63726e-07_rb, 1.66937e-07_rb, 1.70212e-07_rb, &
+     & 1.73551e-07_rb, 1.76955e-07_rb, 1.80426e-07_rb, 1.83965e-07_rb/)
+       kao_mn2( 7, :, 2) = (/ &
+     & 1.77416e-07_rb, 1.78627e-07_rb, 1.79846e-07_rb, 1.81073e-07_rb, 1.82309e-07_rb, &
+     & 1.83554e-07_rb, 1.84806e-07_rb, 1.86068e-07_rb, 1.87338e-07_rb, 1.88616e-07_rb, &
+     & 1.89904e-07_rb, 1.91200e-07_rb, 1.92505e-07_rb, 1.93819e-07_rb, 1.95142e-07_rb, &
+     & 1.96474e-07_rb, 1.97815e-07_rb, 1.99165e-07_rb, 2.00524e-07_rb/)
+       kao_mn2( 8, :, 2) = (/ &
+     & 2.20695e-07_rb, 2.20451e-07_rb, 2.20208e-07_rb, 2.19965e-07_rb, 2.19722e-07_rb, &
+     & 2.19480e-07_rb, 2.19238e-07_rb, 2.18996e-07_rb, 2.18754e-07_rb, 2.18513e-07_rb, &
+     & 2.18272e-07_rb, 2.18031e-07_rb, 2.17790e-07_rb, 2.17550e-07_rb, 2.17310e-07_rb, &
+     & 2.17070e-07_rb, 2.16831e-07_rb, 2.16591e-07_rb, 2.16352e-07_rb/)
+       kao_mn2( 9, :, 2) = (/ &
+     & 1.23015e-07_rb, 1.24808e-07_rb, 1.26626e-07_rb, 1.28471e-07_rb, 1.30343e-07_rb, &
+     & 1.32242e-07_rb, 1.34168e-07_rb, 1.36123e-07_rb, 1.38106e-07_rb, 1.40118e-07_rb, &
+     & 1.42160e-07_rb, 1.44231e-07_rb, 1.46332e-07_rb, 1.48464e-07_rb, 1.50627e-07_rb, &
+     & 1.52822e-07_rb, 1.55048e-07_rb, 1.57307e-07_rb, 1.59599e-07_rb/)
+       kao_mn2( 1, :, 3) = (/ &
+     & 1.87585e-07_rb, 1.89503e-07_rb, 1.91440e-07_rb, 1.93398e-07_rb, 1.95375e-07_rb, &
+     & 1.97372e-07_rb, 1.99390e-07_rb, 2.01429e-07_rb, 2.03488e-07_rb, 2.05568e-07_rb, &
+     & 2.07670e-07_rb, 2.09793e-07_rb, 2.11938e-07_rb, 2.14105e-07_rb, 2.16294e-07_rb, &
+     & 2.18505e-07_rb, 2.20739e-07_rb, 2.22996e-07_rb, 2.25275e-07_rb/)
+       kao_mn2( 2, :, 3) = (/ &
+     & 1.82585e-07_rb, 1.84249e-07_rb, 1.85929e-07_rb, 1.87624e-07_rb, 1.89335e-07_rb, &
+     & 1.91061e-07_rb, 1.92803e-07_rb, 1.94561e-07_rb, 1.96335e-07_rb, 1.98125e-07_rb, &
+     & 1.99932e-07_rb, 2.01755e-07_rb, 2.03594e-07_rb, 2.05451e-07_rb, 2.07324e-07_rb, &
+     & 2.09214e-07_rb, 2.11122e-07_rb, 2.13047e-07_rb, 2.14989e-07_rb/)
+       kao_mn2( 3, :, 3) = (/ &
+     & 1.64711e-07_rb, 1.67539e-07_rb, 1.70417e-07_rb, 1.73343e-07_rb, 1.76321e-07_rb, &
+     & 1.79349e-07_rb, 1.82429e-07_rb, 1.85562e-07_rb, 1.88749e-07_rb, 1.91990e-07_rb, &
+     & 1.95288e-07_rb, 1.98642e-07_rb, 2.02053e-07_rb, 2.05523e-07_rb, 2.09053e-07_rb, &
+     & 2.12643e-07_rb, 2.16295e-07_rb, 2.20010e-07_rb, 2.23788e-07_rb/)
+       kao_mn2( 4, :, 3) = (/ &
+     & 1.67494e-07_rb, 1.71011e-07_rb, 1.74601e-07_rb, 1.78267e-07_rb, 1.82009e-07_rb, &
+     & 1.85831e-07_rb, 1.89732e-07_rb, 1.93715e-07_rb, 1.97782e-07_rb, 2.01935e-07_rb, &
+     & 2.06174e-07_rb, 2.10503e-07_rb, 2.14922e-07_rb, 2.19434e-07_rb, 2.24041e-07_rb, &
+     & 2.28745e-07_rb, 2.33548e-07_rb, 2.38451e-07_rb, 2.43457e-07_rb/)
+       kao_mn2( 5, :, 3) = (/ &
+     & 1.97399e-07_rb, 2.00092e-07_rb, 2.02821e-07_rb, 2.05588e-07_rb, 2.08393e-07_rb, &
+     & 2.11236e-07_rb, 2.14118e-07_rb, 2.17039e-07_rb, 2.20000e-07_rb, 2.23001e-07_rb, &
+     & 2.26043e-07_rb, 2.29127e-07_rb, 2.32252e-07_rb, 2.35421e-07_rb, 2.38633e-07_rb, &
+     & 2.41888e-07_rb, 2.45188e-07_rb, 2.48533e-07_rb, 2.51923e-07_rb/)
+       kao_mn2( 6, :, 3) = (/ &
+     & 2.24021e-07_rb, 2.24970e-07_rb, 2.25923e-07_rb, 2.26880e-07_rb, 2.27840e-07_rb, &
+     & 2.28805e-07_rb, 2.29774e-07_rb, 2.30747e-07_rb, 2.31725e-07_rb, 2.32706e-07_rb, &
+     & 2.33692e-07_rb, 2.34681e-07_rb, 2.35675e-07_rb, 2.36673e-07_rb, 2.37675e-07_rb, &
+     & 2.38682e-07_rb, 2.39693e-07_rb, 2.40708e-07_rb, 2.41727e-07_rb/)
+       kao_mn2( 7, :, 3) = (/ &
+     & 1.98178e-07_rb, 2.00676e-07_rb, 2.03205e-07_rb, 2.05766e-07_rb, 2.08359e-07_rb, &
+     & 2.10986e-07_rb, 2.13645e-07_rb, 2.16337e-07_rb, 2.19064e-07_rb, 2.21825e-07_rb, &
+     & 2.24621e-07_rb, 2.27452e-07_rb, 2.30319e-07_rb, 2.33222e-07_rb, 2.36161e-07_rb, &
+     & 2.39138e-07_rb, 2.42152e-07_rb, 2.45204e-07_rb, 2.48294e-07_rb/)
+       kao_mn2( 8, :, 3) = (/ &
+     & 2.83042e-07_rb, 2.89941e-07_rb, 2.97009e-07_rb, 3.04250e-07_rb, 3.11666e-07_rb, &
+     & 3.19264e-07_rb, 3.27047e-07_rb, 3.35019e-07_rb, 3.43186e-07_rb, 3.51552e-07_rb, &
+     & 3.60122e-07_rb, 3.68901e-07_rb, 3.77893e-07_rb, 3.87105e-07_rb, 3.96542e-07_rb, &
+     & 4.06208e-07_rb, 4.16111e-07_rb, 4.26254e-07_rb, 4.36645e-07_rb/)
+       kao_mn2( 9, :, 3) = (/ &
+     & 1.98963e-07_rb, 2.01576e-07_rb, 2.04224e-07_rb, 2.06907e-07_rb, 2.09626e-07_rb, &
+     & 2.12379e-07_rb, 2.15169e-07_rb, 2.17996e-07_rb, 2.20860e-07_rb, 2.23761e-07_rb, &
+     & 2.26701e-07_rb, 2.29679e-07_rb, 2.32696e-07_rb, 2.35753e-07_rb, 2.38851e-07_rb, &
+     & 2.41988e-07_rb, 2.45167e-07_rb, 2.48388e-07_rb, 2.51651e-07_rb/)
+       kao_mn2( 1, :, 4) = (/ &
+     & 3.75434e-07_rb, 3.79581e-07_rb, 3.83775e-07_rb, 3.88014e-07_rb, 3.92301e-07_rb, &
+     & 3.96634e-07_rb, 4.01016e-07_rb, 4.05446e-07_rb, 4.09925e-07_rb, 4.14453e-07_rb, &
+     & 4.19032e-07_rb, 4.23661e-07_rb, 4.28341e-07_rb, 4.33073e-07_rb, 4.37857e-07_rb, &
+     & 4.42694e-07_rb, 4.47585e-07_rb, 4.52529e-07_rb, 4.57528e-07_rb/)
+       kao_mn2( 2, :, 4) = (/ &
+     & 3.76756e-07_rb, 3.80760e-07_rb, 3.84805e-07_rb, 3.88894e-07_rb, 3.93027e-07_rb, &
+     & 3.97203e-07_rb, 4.01423e-07_rb, 4.05689e-07_rb, 4.10000e-07_rb, 4.14356e-07_rb, &
+     & 4.18759e-07_rb, 4.23209e-07_rb, 4.27706e-07_rb, 4.32250e-07_rb, 4.36843e-07_rb, &
+     & 4.41485e-07_rb, 4.46176e-07_rb, 4.50917e-07_rb, 4.55708e-07_rb/)
+       kao_mn2( 3, :, 4) = (/ &
+     & 3.76258e-07_rb, 3.78929e-07_rb, 3.81619e-07_rb, 3.84329e-07_rb, 3.87057e-07_rb, &
+     & 3.89805e-07_rb, 3.92572e-07_rb, 3.95359e-07_rb, 3.98166e-07_rb, 4.00993e-07_rb, &
+     & 4.03839e-07_rb, 4.06706e-07_rb, 4.09594e-07_rb, 4.12502e-07_rb, 4.15430e-07_rb, &
+     & 4.18379e-07_rb, 4.21349e-07_rb, 4.24341e-07_rb, 4.27353e-07_rb/)
+       kao_mn2( 4, :, 4) = (/ &
+     & 3.17796e-07_rb, 3.22447e-07_rb, 3.27166e-07_rb, 3.31954e-07_rb, 3.36812e-07_rb, &
+     & 3.41742e-07_rb, 3.46743e-07_rb, 3.51818e-07_rb, 3.56967e-07_rb, 3.62191e-07_rb, &
+     & 3.67492e-07_rb, 3.72870e-07_rb, 3.78328e-07_rb, 3.83865e-07_rb, 3.89483e-07_rb, &
+     & 3.95183e-07_rb, 4.00967e-07_rb, 4.06835e-07_rb, 4.12789e-07_rb/)
+       kao_mn2( 5, :, 4) = (/ &
+     & 3.33793e-07_rb, 3.38941e-07_rb, 3.44169e-07_rb, 3.49478e-07_rb, 3.54868e-07_rb, &
+     & 3.60342e-07_rb, 3.65900e-07_rb, 3.71544e-07_rb, 3.77275e-07_rb, 3.83094e-07_rb, &
+     & 3.89003e-07_rb, 3.95003e-07_rb, 4.01096e-07_rb, 4.07283e-07_rb, 4.13565e-07_rb, &
+     & 4.19944e-07_rb, 4.26421e-07_rb, 4.32999e-07_rb, 4.39677e-07_rb/)
+       kao_mn2( 6, :, 4) = (/ &
+     & 3.60052e-07_rb, 3.66686e-07_rb, 3.73442e-07_rb, 3.80323e-07_rb, 3.87330e-07_rb, &
+     & 3.94466e-07_rb, 4.01734e-07_rb, 4.09136e-07_rb, 4.16674e-07_rb, 4.24351e-07_rb, &
+     & 4.32169e-07_rb, 4.40132e-07_rb, 4.48241e-07_rb, 4.56500e-07_rb, 4.64910e-07_rb, &
+     & 4.73476e-07_rb, 4.82200e-07_rb, 4.91084e-07_rb, 5.00132e-07_rb/)
+       kao_mn2( 7, :, 4) = (/ &
+     & 4.14713e-07_rb, 4.21885e-07_rb, 4.29181e-07_rb, 4.36603e-07_rb, 4.44153e-07_rb, &
+     & 4.51834e-07_rb, 4.59648e-07_rb, 4.67598e-07_rb, 4.75684e-07_rb, 4.83910e-07_rb, &
+     & 4.92279e-07_rb, 5.00793e-07_rb, 5.09453e-07_rb, 5.18264e-07_rb, 5.27226e-07_rb, &
+     & 5.36344e-07_rb, 5.45620e-07_rb, 5.55055e-07_rb, 5.64654e-07_rb/)
+       kao_mn2( 8, :, 4) = (/ &
+     & 4.15352e-07_rb, 4.24386e-07_rb, 4.33617e-07_rb, 4.43049e-07_rb, 4.52685e-07_rb, &
+     & 4.62532e-07_rb, 4.72592e-07_rb, 4.82872e-07_rb, 4.93374e-07_rb, 5.04106e-07_rb, &
+     & 5.15071e-07_rb, 5.26274e-07_rb, 5.37721e-07_rb, 5.49417e-07_rb, 5.61367e-07_rb, &
+     & 5.73577e-07_rb, 5.86053e-07_rb, 5.98800e-07_rb, 6.11825e-07_rb/)
+       kao_mn2( 9, :, 4) = (/ &
+     & 3.33820e-07_rb, 3.39144e-07_rb, 3.44553e-07_rb, 3.50048e-07_rb, 3.55631e-07_rb, &
+     & 3.61302e-07_rb, 3.67065e-07_rb, 3.72919e-07_rb, 3.78866e-07_rb, 3.84908e-07_rb, &
+     & 3.91047e-07_rb, 3.97284e-07_rb, 4.03620e-07_rb, 4.10057e-07_rb, 4.16597e-07_rb, &
+     & 4.23241e-07_rb, 4.29991e-07_rb, 4.36849e-07_rb, 4.43816e-07_rb/)
+       kao_mn2( 1, :, 5) = (/ &
+     & 6.99819e-07_rb, 7.04629e-07_rb, 7.09472e-07_rb, 7.14349e-07_rb, 7.19258e-07_rb, &
+     & 7.24202e-07_rb, 7.29180e-07_rb, 7.34192e-07_rb, 7.39238e-07_rb, 7.44319e-07_rb, &
+     & 7.49435e-07_rb, 7.54586e-07_rb, 7.59773e-07_rb, 7.64995e-07_rb, 7.70253e-07_rb, &
+     & 7.75547e-07_rb, 7.80877e-07_rb, 7.86245e-07_rb, 7.91649e-07_rb/)
+       kao_mn2( 2, :, 5) = (/ &
+     & 6.98257e-07_rb, 7.03182e-07_rb, 7.08143e-07_rb, 7.13138e-07_rb, 7.18169e-07_rb, &
+     & 7.23235e-07_rb, 7.28336e-07_rb, 7.33474e-07_rb, 7.38648e-07_rb, 7.43858e-07_rb, &
+     & 7.49106e-07_rb, 7.54390e-07_rb, 7.59711e-07_rb, 7.65071e-07_rb, 7.70467e-07_rb, &
+     & 7.75902e-07_rb, 7.81376e-07_rb, 7.86887e-07_rb, 7.92438e-07_rb/)
+       kao_mn2( 3, :, 5) = (/ &
+     & 6.98531e-07_rb, 7.03429e-07_rb, 7.08361e-07_rb, 7.13328e-07_rb, 7.18329e-07_rb, &
+     & 7.23365e-07_rb, 7.28437e-07_rb, 7.33545e-07_rb, 7.38688e-07_rb, 7.43867e-07_rb, &
+     & 7.49082e-07_rb, 7.54335e-07_rb, 7.59623e-07_rb, 7.64950e-07_rb, 7.70313e-07_rb, &
+     & 7.75714e-07_rb, 7.81153e-07_rb, 7.86630e-07_rb, 7.92145e-07_rb/)
+       kao_mn2( 4, :, 5) = (/ &
+     & 7.37210e-07_rb, 7.38869e-07_rb, 7.40532e-07_rb, 7.42198e-07_rb, 7.43868e-07_rb, &
+     & 7.45542e-07_rb, 7.47219e-07_rb, 7.48901e-07_rb, 7.50586e-07_rb, 7.52275e-07_rb, &
+     & 7.53967e-07_rb, 7.55664e-07_rb, 7.57364e-07_rb, 7.59068e-07_rb, 7.60777e-07_rb, &
+     & 7.62488e-07_rb, 7.64204e-07_rb, 7.65924e-07_rb, 7.67647e-07_rb/)
+       kao_mn2( 5, :, 5) = (/ &
+     & 6.07063e-07_rb, 6.12893e-07_rb, 6.18779e-07_rb, 6.24722e-07_rb, 6.30721e-07_rb, &
+     & 6.36778e-07_rb, 6.42893e-07_rb, 6.49067e-07_rb, 6.55301e-07_rb, 6.61594e-07_rb, &
+     & 6.67947e-07_rb, 6.74362e-07_rb, 6.80838e-07_rb, 6.87376e-07_rb, 6.93978e-07_rb, &
+     & 7.00642e-07_rb, 7.07371e-07_rb, 7.14164e-07_rb, 7.21022e-07_rb/)
+       kao_mn2( 6, :, 5) = (/ &
+     & 6.13354e-07_rb, 6.20147e-07_rb, 6.27016e-07_rb, 6.33961e-07_rb, 6.40983e-07_rb, &
+     & 6.48082e-07_rb, 6.55260e-07_rb, 6.62518e-07_rb, 6.69856e-07_rb, 6.77276e-07_rb, &
+     & 6.84777e-07_rb, 6.92362e-07_rb, 7.00030e-07_rb, 7.07784e-07_rb, 7.15624e-07_rb, &
+     & 7.23550e-07_rb, 7.31564e-07_rb, 7.39667e-07_rb, 7.47859e-07_rb/)
+       kao_mn2( 7, :, 5) = (/ &
+     & 6.86666e-07_rb, 6.92902e-07_rb, 6.99195e-07_rb, 7.05545e-07_rb, 7.11952e-07_rb, &
+     & 7.18418e-07_rb, 7.24943e-07_rb, 7.31526e-07_rb, 7.38170e-07_rb, 7.44874e-07_rb, &
+     & 7.51639e-07_rb, 7.58465e-07_rb, 7.65353e-07_rb, 7.72304e-07_rb, 7.79318e-07_rb, &
+     & 7.86395e-07_rb, 7.93537e-07_rb, 8.00744e-07_rb, 8.08016e-07_rb/)
+       kao_mn2( 8, :, 5) = (/ &
+     & 9.39664e-07_rb, 9.39765e-07_rb, 9.39866e-07_rb, 9.39966e-07_rb, 9.40067e-07_rb, &
+     & 9.40168e-07_rb, 9.40268e-07_rb, 9.40369e-07_rb, 9.40470e-07_rb, 9.40571e-07_rb, &
+     & 9.40671e-07_rb, 9.40772e-07_rb, 9.40873e-07_rb, 9.40974e-07_rb, 9.41074e-07_rb, &
+     & 9.41175e-07_rb, 9.41276e-07_rb, 9.41377e-07_rb, 9.41478e-07_rb/)
+       kao_mn2( 9, :, 5) = (/ &
+     & 6.02847e-07_rb, 6.09726e-07_rb, 6.16684e-07_rb, 6.23722e-07_rb, 6.30839e-07_rb, &
+     & 6.38038e-07_rb, 6.45320e-07_rb, 6.52684e-07_rb, 6.60132e-07_rb, 6.67665e-07_rb, &
+     & 6.75284e-07_rb, 6.82991e-07_rb, 6.90785e-07_rb, 6.98668e-07_rb, 7.06641e-07_rb, &
+     & 7.14705e-07_rb, 7.22861e-07_rb, 7.31110e-07_rb, 7.39453e-07_rb/)
+       kao_mn2( 1, :, 6) = (/ &
+     & 1.13692e-06_rb, 1.13231e-06_rb, 1.12772e-06_rb, 1.12315e-06_rb, 1.11859e-06_rb, &
+     & 1.11406e-06_rb, 1.10954e-06_rb, 1.10505e-06_rb, 1.10057e-06_rb, 1.09610e-06_rb, &
+     & 1.09166e-06_rb, 1.08724e-06_rb, 1.08283e-06_rb, 1.07844e-06_rb, 1.07407e-06_rb, &
+     & 1.06971e-06_rb, 1.06538e-06_rb, 1.06106e-06_rb, 1.05676e-06_rb/)
+       kao_mn2( 2, :, 6) = (/ &
+     & 1.13682e-06_rb, 1.13221e-06_rb, 1.12762e-06_rb, 1.12305e-06_rb, 1.11849e-06_rb, &
+     & 1.11396e-06_rb, 1.10944e-06_rb, 1.10495e-06_rb, 1.10047e-06_rb, 1.09600e-06_rb, &
+     & 1.09156e-06_rb, 1.08714e-06_rb, 1.08273e-06_rb, 1.07834e-06_rb, 1.07397e-06_rb, &
+     & 1.06961e-06_rb, 1.06528e-06_rb, 1.06096e-06_rb, 1.05666e-06_rb/)
+       kao_mn2( 3, :, 6) = (/ &
+     & 1.13642e-06_rb, 1.13181e-06_rb, 1.12722e-06_rb, 1.12265e-06_rb, 1.11809e-06_rb, &
+     & 1.11356e-06_rb, 1.10904e-06_rb, 1.10455e-06_rb, 1.10007e-06_rb, 1.09560e-06_rb, &
+     & 1.09116e-06_rb, 1.08674e-06_rb, 1.08233e-06_rb, 1.07794e-06_rb, 1.07357e-06_rb, &
+     & 1.06921e-06_rb, 1.06488e-06_rb, 1.06056e-06_rb, 1.05626e-06_rb/)
+       kao_mn2( 4, :, 6) = (/ &
+     & 1.13626e-06_rb, 1.13160e-06_rb, 1.12696e-06_rb, 1.12233e-06_rb, 1.11773e-06_rb, &
+     & 1.11314e-06_rb, 1.10858e-06_rb, 1.10403e-06_rb, 1.09950e-06_rb, 1.09498e-06_rb, &
+     & 1.09049e-06_rb, 1.08602e-06_rb, 1.08156e-06_rb, 1.07712e-06_rb, 1.07270e-06_rb, &
+     & 1.06830e-06_rb, 1.06392e-06_rb, 1.05955e-06_rb, 1.05520e-06_rb/)
+       kao_mn2( 5, :, 6) = (/ &
+     & 1.22429e-06_rb, 1.21163e-06_rb, 1.19909e-06_rb, 1.18669e-06_rb, 1.17441e-06_rb, &
+     & 1.16226e-06_rb, 1.15024e-06_rb, 1.13834e-06_rb, 1.12656e-06_rb, 1.11491e-06_rb, &
+     & 1.10338e-06_rb, 1.09196e-06_rb, 1.08067e-06_rb, 1.06949e-06_rb, 1.05842e-06_rb, &
+     & 1.04747e-06_rb, 1.03664e-06_rb, 1.02591e-06_rb, 1.01530e-06_rb/)
+       kao_mn2( 6, :, 6) = (/ &
+     & 1.02400e-06_rb, 1.02238e-06_rb, 1.02077e-06_rb, 1.01916e-06_rb, 1.01755e-06_rb, &
+     & 1.01594e-06_rb, 1.01433e-06_rb, 1.01273e-06_rb, 1.01113e-06_rb, 1.00953e-06_rb, &
+     & 1.00794e-06_rb, 1.00635e-06_rb, 1.00476e-06_rb, 1.00317e-06_rb, 1.00159e-06_rb, &
+     & 1.00000e-06_rb, 9.98425e-07_rb, 9.96848e-07_rb, 9.95273e-07_rb/)
+       kao_mn2( 7, :, 6) = (/ &
+     & 1.08594e-06_rb, 1.08185e-06_rb, 1.07778e-06_rb, 1.07373e-06_rb, 1.06969e-06_rb, &
+     & 1.06566e-06_rb, 1.06165e-06_rb, 1.05766e-06_rb, 1.05368e-06_rb, 1.04971e-06_rb, &
+     & 1.04576e-06_rb, 1.04183e-06_rb, 1.03791e-06_rb, 1.03400e-06_rb, 1.03011e-06_rb, &
+     & 1.02623e-06_rb, 1.02237e-06_rb, 1.01852e-06_rb, 1.01469e-06_rb/)
+       kao_mn2( 8, :, 6) = (/ &
+     & 1.25029e-06_rb, 1.22508e-06_rb, 1.20038e-06_rb, 1.17618e-06_rb, 1.15247e-06_rb, &
+     & 1.12924e-06_rb, 1.10647e-06_rb, 1.08416e-06_rb, 1.06231e-06_rb, 1.04089e-06_rb, &
+     & 1.01990e-06_rb, 9.99343e-07_rb, 9.79196e-07_rb, 9.59454e-07_rb, 9.40111e-07_rb, &
+     & 9.21158e-07_rb, 9.02587e-07_rb, 8.84390e-07_rb, 8.66560e-07_rb/)
+       kao_mn2( 9, :, 6) = (/ &
+     & 1.21299e-06_rb, 1.19953e-06_rb, 1.18622e-06_rb, 1.17305e-06_rb, 1.16003e-06_rb, &
+     & 1.14716e-06_rb, 1.13443e-06_rb, 1.12184e-06_rb, 1.10939e-06_rb, 1.09708e-06_rb, &
+     & 1.08491e-06_rb, 1.07287e-06_rb, 1.06096e-06_rb, 1.04919e-06_rb, 1.03755e-06_rb, &
+     & 1.02603e-06_rb, 1.01465e-06_rb, 1.00339e-06_rb, 9.92253e-07_rb/)
+       kao_mn2( 1, :, 7) = (/ &
+     & 1.53893e-06_rb, 1.51743e-06_rb, 1.49623e-06_rb, 1.47532e-06_rb, 1.45471e-06_rb, &
+     & 1.43438e-06_rb, 1.41434e-06_rb, 1.39458e-06_rb, 1.37509e-06_rb, 1.35588e-06_rb, &
+     & 1.33694e-06_rb, 1.31826e-06_rb, 1.29984e-06_rb, 1.28167e-06_rb, 1.26377e-06_rb, &
+     & 1.24611e-06_rb, 1.22870e-06_rb, 1.21153e-06_rb, 1.19460e-06_rb/)
+       kao_mn2( 2, :, 7) = (/ &
+     & 1.53809e-06_rb, 1.51665e-06_rb, 1.49552e-06_rb, 1.47467e-06_rb, 1.45412e-06_rb, &
+     & 1.43386e-06_rb, 1.41388e-06_rb, 1.39418e-06_rb, 1.37475e-06_rb, 1.35559e-06_rb, &
+     & 1.33670e-06_rb, 1.31807e-06_rb, 1.29970e-06_rb, 1.28159e-06_rb, 1.26373e-06_rb, &
+     & 1.24612e-06_rb, 1.22875e-06_rb, 1.21163e-06_rb, 1.19475e-06_rb/)
+       kao_mn2( 3, :, 7) = (/ &
+     & 1.53883e-06_rb, 1.51733e-06_rb, 1.49613e-06_rb, 1.47522e-06_rb, 1.45461e-06_rb, &
+     & 1.43428e-06_rb, 1.41424e-06_rb, 1.39448e-06_rb, 1.37499e-06_rb, 1.35578e-06_rb, &
+     & 1.33684e-06_rb, 1.31816e-06_rb, 1.29974e-06_rb, 1.28157e-06_rb, 1.26367e-06_rb, &
+     & 1.24601e-06_rb, 1.22860e-06_rb, 1.21143e-06_rb, 1.19450e-06_rb/)
+       kao_mn2( 4, :, 7) = (/ &
+     & 1.53789e-06_rb, 1.51645e-06_rb, 1.49532e-06_rb, 1.47448e-06_rb, 1.45393e-06_rb, &
+     & 1.43366e-06_rb, 1.41368e-06_rb, 1.39398e-06_rb, 1.37455e-06_rb, 1.35539e-06_rb, &
+     & 1.33650e-06_rb, 1.31787e-06_rb, 1.29950e-06_rb, 1.28139e-06_rb, 1.26353e-06_rb, &
+     & 1.24592e-06_rb, 1.22856e-06_rb, 1.21143e-06_rb, 1.19455e-06_rb/)
+       kao_mn2( 5, :, 7) = (/ &
+     & 1.54059e-06_rb, 1.51888e-06_rb, 1.49747e-06_rb, 1.47637e-06_rb, 1.45557e-06_rb, &
+     & 1.43505e-06_rb, 1.41483e-06_rb, 1.39489e-06_rb, 1.37523e-06_rb, 1.35585e-06_rb, &
+     & 1.33675e-06_rb, 1.31791e-06_rb, 1.29934e-06_rb, 1.28103e-06_rb, 1.26297e-06_rb, &
+     & 1.24517e-06_rb, 1.22763e-06_rb, 1.21033e-06_rb, 1.19327e-06_rb/)
+       kao_mn2( 6, :, 7) = (/ &
+     & 1.70605e-06_rb, 1.65759e-06_rb, 1.61052e-06_rb, 1.56478e-06_rb, 1.52034e-06_rb, &
+     & 1.47716e-06_rb, 1.43521e-06_rb, 1.39445e-06_rb, 1.35485e-06_rb, 1.31637e-06_rb, &
+     & 1.27898e-06_rb, 1.24266e-06_rb, 1.20737e-06_rb, 1.17308e-06_rb, 1.13976e-06_rb, &
+     & 1.10739e-06_rb, 1.07594e-06_rb, 1.04539e-06_rb, 1.01570e-06_rb/)
+       kao_mn2( 7, :, 7) = (/ &
+     & 1.39128e-06_rb, 1.36388e-06_rb, 1.33702e-06_rb, 1.31068e-06_rb, 1.28487e-06_rb, &
+     & 1.25956e-06_rb, 1.23475e-06_rb, 1.21044e-06_rb, 1.18659e-06_rb, 1.16322e-06_rb, &
+     & 1.14031e-06_rb, 1.11785e-06_rb, 1.09584e-06_rb, 1.07425e-06_rb, 1.05309e-06_rb, &
+     & 1.03235e-06_rb, 1.01202e-06_rb, 9.92088e-07_rb, 9.72548e-07_rb/)
+       kao_mn2( 8, :, 7) = (/ &
+     & 1.15676e-06_rb, 1.13709e-06_rb, 1.11775e-06_rb, 1.09874e-06_rb, 1.08005e-06_rb, &
+     & 1.06168e-06_rb, 1.04362e-06_rb, 1.02587e-06_rb, 1.00842e-06_rb, 9.91271e-07_rb, &
+     & 9.74411e-07_rb, 9.57838e-07_rb, 9.41547e-07_rb, 9.25532e-07_rb, 9.09791e-07_rb, &
+     & 8.94316e-07_rb, 8.79105e-07_rb, 8.64153e-07_rb, 8.49455e-07_rb/)
+       kao_mn2( 9, :, 7) = (/ &
+     & 1.53483e-06_rb, 1.51352e-06_rb, 1.49252e-06_rb, 1.47180e-06_rb, 1.45138e-06_rb, &
+     & 1.43123e-06_rb, 1.41137e-06_rb, 1.39178e-06_rb, 1.37246e-06_rb, 1.35341e-06_rb, &
+     & 1.33463e-06_rb, 1.31610e-06_rb, 1.29784e-06_rb, 1.27982e-06_rb, 1.26206e-06_rb, &
+     & 1.24454e-06_rb, 1.22727e-06_rb, 1.21024e-06_rb, 1.19344e-06_rb/)
+       kao_mn2( 1, :, 8) = (/ &
+     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &
+     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &
+     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &
+     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)
+       kao_mn2( 2, :, 8) = (/ &
+     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &
+     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &
+     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &
+     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)
+       kao_mn2( 3, :, 8) = (/ &
+     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &
+     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &
+     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &
+     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)
+       kao_mn2( 4, :, 8) = (/ &
+     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &
+     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &
+     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &
+     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)
+       kao_mn2( 5, :, 8) = (/ &
+     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &
+     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &
+     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &
+     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)
+       kao_mn2( 6, :, 8) = (/ &
+     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &
+     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &
+     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &
+     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)
+       kao_mn2( 7, :, 8) = (/ &
+     & 1.71827e-06_rb, 1.65481e-06_rb, 1.59370e-06_rb, 1.53484e-06_rb, 1.47816e-06_rb, &
+     & 1.42357e-06_rb, 1.37099e-06_rb, 1.32036e-06_rb, 1.27160e-06_rb, 1.22464e-06_rb, &
+     & 1.17941e-06_rb, 1.13585e-06_rb, 1.09390e-06_rb, 1.05350e-06_rb, 1.01459e-06_rb, &
+     & 9.77124e-07_rb, 9.41037e-07_rb, 9.06284e-07_rb, 8.72813e-07_rb/)
+       kao_mn2( 8, :, 8) = (/ &
+     & 1.77169e-06_rb, 1.62858e-06_rb, 1.49703e-06_rb, 1.37610e-06_rb, 1.26494e-06_rb, &
+     & 1.16276e-06_rb, 1.06883e-06_rb, 9.82495e-07_rb, 9.03131e-07_rb, 8.30177e-07_rb, &
+     & 7.63117e-07_rb, 7.01473e-07_rb, 6.44810e-07_rb, 5.92723e-07_rb, 5.44844e-07_rb, &
+     & 5.00832e-07_rb, 4.60376e-07_rb, 4.23187e-07_rb, 3.89003e-07_rb/)
+       kao_mn2( 9, :, 8) = (/ &
+     & 1.70025e-06_rb, 1.67042e-06_rb, 1.64110e-06_rb, 1.61231e-06_rb, 1.58401e-06_rb, &
+     & 1.55622e-06_rb, 1.52891e-06_rb, 1.50208e-06_rb, 1.47572e-06_rb, 1.44982e-06_rb, &
+     & 1.42438e-06_rb, 1.39939e-06_rb, 1.37483e-06_rb, 1.35071e-06_rb, 1.32700e-06_rb, &
+     & 1.30372e-06_rb, 1.28084e-06_rb, 1.25836e-06_rb, 1.23628e-06_rb/)
+       kao_mn2( 1, :, 9) = (/ &
+     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &
+     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &
+     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &
+     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)
+       kao_mn2( 2, :, 9) = (/ &
+     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &
+     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &
+     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &
+     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)
+       kao_mn2( 3, :, 9) = (/ &
+     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &
+     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &
+     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &
+     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)
+       kao_mn2( 4, :, 9) = (/ &
+     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &
+     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &
+     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &
+     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)
+       kao_mn2( 5, :, 9) = (/ &
+     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &
+     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &
+     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &
+     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)
+       kao_mn2( 6, :, 9) = (/ &
+     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &
+     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &
+     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &
+     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)
+       kao_mn2( 7, :, 9) = (/ &
+     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &
+     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &
+     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &
+     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)
+       kao_mn2( 8, :, 9) = (/ &
+     & 1.08654e-06_rb, 1.09039e-06_rb, 1.09425e-06_rb, 1.09812e-06_rb, 1.10201e-06_rb, &
+     & 1.10592e-06_rb, 1.10983e-06_rb, 1.11376e-06_rb, 1.11771e-06_rb, 1.12167e-06_rb, &
+     & 1.12564e-06_rb, 1.12962e-06_rb, 1.13363e-06_rb, 1.13764e-06_rb, 1.14167e-06_rb, &
+     & 1.14571e-06_rb, 1.14977e-06_rb, 1.15384e-06_rb, 1.15793e-06_rb/)
+       kao_mn2( 9, :, 9) = (/ &
+     & 1.74382e-06_rb, 1.71092e-06_rb, 1.67864e-06_rb, 1.64697e-06_rb, 1.61589e-06_rb, &
+     & 1.58541e-06_rb, 1.55549e-06_rb, 1.52615e-06_rb, 1.49735e-06_rb, 1.46910e-06_rb, &
+     & 1.44138e-06_rb, 1.41419e-06_rb, 1.38751e-06_rb, 1.36133e-06_rb, 1.33564e-06_rb, &
+     & 1.31045e-06_rb, 1.28572e-06_rb, 1.26146e-06_rb, 1.23766e-06_rb/)
+       kao_mn2( 1, :,10) = (/ &
+     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &
+     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &
+     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &
+     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)
+       kao_mn2( 2, :,10) = (/ &
+     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &
+     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &
+     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &
+     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)
+       kao_mn2( 3, :,10) = (/ &
+     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &
+     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &
+     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &
+     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)
+       kao_mn2( 4, :,10) = (/ &
+     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &
+     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &
+     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &
+     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)
+       kao_mn2( 5, :,10) = (/ &
+     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &
+     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &
+     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &
+     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)
+       kao_mn2( 6, :,10) = (/ &
+     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &
+     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &
+     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &
+     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)
+       kao_mn2( 7, :,10) = (/ &
+     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &
+     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &
+     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &
+     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)
+       kao_mn2( 8, :,10) = (/ &
+     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &
+     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &
+     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &
+     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)
+       kao_mn2( 9, :,10) = (/ &
+     & 1.82903e-06_rb, 1.78673e-06_rb, 1.74541e-06_rb, 1.70505e-06_rb, 1.66562e-06_rb, &
+     & 1.62710e-06_rb, 1.58947e-06_rb, 1.55271e-06_rb, 1.51680e-06_rb, 1.48172e-06_rb, &
+     & 1.44745e-06_rb, 1.41398e-06_rb, 1.38128e-06_rb, 1.34933e-06_rb, 1.31813e-06_rb, &
+     & 1.28765e-06_rb, 1.25787e-06_rb, 1.22878e-06_rb, 1.20036e-06_rb/)
+       kao_mn2( 1, :,11) = (/ &
+     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &
+     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &
+     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &
+     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)
+       kao_mn2( 2, :,11) = (/ &
+     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &
+     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &
+     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &
+     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)
+       kao_mn2( 3, :,11) = (/ &
+     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &
+     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &
+     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &
+     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)
+       kao_mn2( 4, :,11) = (/ &
+     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &
+     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &
+     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &
+     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)
+       kao_mn2( 5, :,11) = (/ &
+     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &
+     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &
+     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &
+     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)
+       kao_mn2( 6, :,11) = (/ &
+     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &
+     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &
+     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &
+     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)
+       kao_mn2( 7, :,11) = (/ &
+     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &
+     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &
+     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &
+     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)
+       kao_mn2( 8, :,11) = (/ &
+     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &
+     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &
+     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &
+     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)
+       kao_mn2( 9, :,11) = (/ &
+     & 1.81037e-06_rb, 1.76948e-06_rb, 1.72952e-06_rb, 1.69045e-06_rb, 1.65228e-06_rb, &
+     & 1.61496e-06_rb, 1.57848e-06_rb, 1.54283e-06_rb, 1.50799e-06_rb, 1.47393e-06_rb, &
+     & 1.44064e-06_rb, 1.40810e-06_rb, 1.37630e-06_rb, 1.34522e-06_rb, 1.31484e-06_rb, &
+     & 1.28514e-06_rb, 1.25611e-06_rb, 1.22774e-06_rb, 1.20002e-06_rb/)
+       kao_mn2( 1, :,12) = (/ &
+     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &
+     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &
+     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &
+     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)
+       kao_mn2( 2, :,12) = (/ &
+     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &
+     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &
+     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &
+     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)
+       kao_mn2( 3, :,12) = (/ &
+     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &
+     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &
+     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &
+     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)
+       kao_mn2( 4, :,12) = (/ &
+     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &
+     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &
+     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &
+     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)
+       kao_mn2( 5, :,12) = (/ &
+     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &
+     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &
+     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &
+     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)
+       kao_mn2( 6, :,12) = (/ &
+     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &
+     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &
+     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &
+     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)
+       kao_mn2( 7, :,12) = (/ &
+     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &
+     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &
+     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &
+     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)
+       kao_mn2( 8, :,12) = (/ &
+     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &
+     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &
+     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &
+     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)
+       kao_mn2( 9, :,12) = (/ &
+     & 2.04857e-06_rb, 1.98353e-06_rb, 1.92055e-06_rb, 1.85957e-06_rb, 1.80053e-06_rb, &
+     & 1.74336e-06_rb, 1.68800e-06_rb, 1.63441e-06_rb, 1.58251e-06_rb, 1.53227e-06_rb, &
+     & 1.48362e-06_rb, 1.43651e-06_rb, 1.39090e-06_rb, 1.34674e-06_rb, 1.30398e-06_rb, &
+     & 1.26257e-06_rb, 1.22249e-06_rb, 1.18367e-06_rb, 1.14609e-06_rb/)
+       kao_mn2( 1, :,13) = (/ &
+     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &
+     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &
+     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &
+     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)
+       kao_mn2( 2, :,13) = (/ &
+     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &
+     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &
+     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &
+     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)
+       kao_mn2( 3, :,13) = (/ &
+     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &
+     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &
+     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &
+     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)
+       kao_mn2( 4, :,13) = (/ &
+     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &
+     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &
+     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &
+     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)
+       kao_mn2( 5, :,13) = (/ &
+     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &
+     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &
+     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &
+     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)
+       kao_mn2( 6, :,13) = (/ &
+     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &
+     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &
+     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &
+     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)
+       kao_mn2( 7, :,13) = (/ &
+     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &
+     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &
+     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &
+     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)
+       kao_mn2( 8, :,13) = (/ &
+     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &
+     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &
+     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &
+     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)
+       kao_mn2( 9, :,13) = (/ &
+     & 2.13403e-06_rb, 2.05906e-06_rb, 1.98673e-06_rb, 1.91694e-06_rb, 1.84961e-06_rb, &
+     & 1.78463e-06_rb, 1.72194e-06_rb, 1.66145e-06_rb, 1.60309e-06_rb, 1.54678e-06_rb, &
+     & 1.49244e-06_rb, 1.44002e-06_rb, 1.38943e-06_rb, 1.34062e-06_rb, 1.29353e-06_rb, &
+     & 1.24809e-06_rb, 1.20425e-06_rb, 1.16195e-06_rb, 1.12113e-06_rb/)
+       kao_mn2( 1, :,14) = (/ &
+     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &
+     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &
+     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &
+     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)
+       kao_mn2( 2, :,14) = (/ &
+     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &
+     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &
+     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &
+     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)
+       kao_mn2( 3, :,14) = (/ &
+     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &
+     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &
+     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &
+     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)
+       kao_mn2( 4, :,14) = (/ &
+     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &
+     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &
+     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &
+     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)
+       kao_mn2( 5, :,14) = (/ &
+     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &
+     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &
+     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &
+     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)
+       kao_mn2( 6, :,14) = (/ &
+     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &
+     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &
+     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &
+     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)
+       kao_mn2( 7, :,14) = (/ &
+     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &
+     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &
+     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &
+     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)
+       kao_mn2( 8, :,14) = (/ &
+     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &
+     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &
+     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &
+     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)
+       kao_mn2( 9, :,14) = (/ &
+     & 1.83423e-06_rb, 1.79123e-06_rb, 1.74923e-06_rb, 1.70821e-06_rb, 1.66816e-06_rb, &
+     & 1.62904e-06_rb, 1.59085e-06_rb, 1.55354e-06_rb, 1.51712e-06_rb, 1.48154e-06_rb, &
+     & 1.44681e-06_rb, 1.41288e-06_rb, 1.37975e-06_rb, 1.34740e-06_rb, 1.31581e-06_rb, &
+     & 1.28496e-06_rb, 1.25483e-06_rb, 1.22540e-06_rb, 1.19667e-06_rb/)
+       kao_mn2( 1, :,15) = (/ &
+     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &
+     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &
+     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &
+     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)
+       kao_mn2( 2, :,15) = (/ &
+     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &
+     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &
+     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &
+     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)
+       kao_mn2( 3, :,15) = (/ &
+     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &
+     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &
+     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &
+     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)
+       kao_mn2( 4, :,15) = (/ &
+     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &
+     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &
+     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &
+     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)
+       kao_mn2( 5, :,15) = (/ &
+     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &
+     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &
+     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &
+     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)
+       kao_mn2( 6, :,15) = (/ &
+     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &
+     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &
+     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &
+     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)
+       kao_mn2( 7, :,15) = (/ &
+     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &
+     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &
+     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &
+     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)
+       kao_mn2( 8, :,15) = (/ &
+     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &
+     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &
+     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &
+     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)
+       kao_mn2( 9, :,15) = (/ &
+     & 1.71602e-06_rb, 1.68499e-06_rb, 1.65452e-06_rb, 1.62461e-06_rb, 1.59523e-06_rb, &
+     & 1.56639e-06_rb, 1.53807e-06_rb, 1.51026e-06_rb, 1.48295e-06_rb, 1.45614e-06_rb, &
+     & 1.42981e-06_rb, 1.40395e-06_rb, 1.37857e-06_rb, 1.35364e-06_rb, 1.32917e-06_rb, &
+     & 1.30513e-06_rb, 1.28153e-06_rb, 1.25836e-06_rb, 1.23561e-06_rb/)
+       kao_mn2( 1, :,16) = (/ &
+     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &
+     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &
+     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &
+     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)
+       kao_mn2( 2, :,16) = (/ &
+     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &
+     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &
+     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &
+     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)
+       kao_mn2( 3, :,16) = (/ &
+     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &
+     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &
+     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &
+     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)
+       kao_mn2( 4, :,16) = (/ &
+     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &
+     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &
+     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &
+     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)
+       kao_mn2( 5, :,16) = (/ &
+     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &
+     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &
+     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &
+     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)
+       kao_mn2( 6, :,16) = (/ &
+     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &
+     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &
+     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &
+     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)
+       kao_mn2( 7, :,16) = (/ &
+     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &
+     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &
+     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &
+     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)
+       kao_mn2( 8, :,16) = (/ &
+     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &
+     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &
+     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &
+     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)
+       kao_mn2( 9, :,16) = (/ &
+     & 1.79375e-06_rb, 1.75599e-06_rb, 1.71903e-06_rb, 1.68284e-06_rb, 1.64741e-06_rb, &
+     & 1.61273e-06_rb, 1.57878e-06_rb, 1.54554e-06_rb, 1.51301e-06_rb, 1.48116e-06_rb, &
+     & 1.44998e-06_rb, 1.41945e-06_rb, 1.38957e-06_rb, 1.36032e-06_rb, 1.33168e-06_rb, &
+     & 1.30365e-06_rb, 1.27620e-06_rb, 1.24934e-06_rb, 1.22304e-06_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &1.1755e-06_rb,6.5398e-07_rb,4.3915e-07_rb,3.0753e-07_rb,1.9677e-07_rb,1.4362e-07_rb, &
+     &9.4598e-08_rb,1.1848e-07_rb,1.4280e-07_rb,1.5821e-07_rb,1.5816e-07_rb,1.5769e-07_rb, &
+     &1.5844e-07_rb,1.6016e-07_rb,1.6232e-07_rb,1.6320e-07_rb/)
+      forrefo(2,:) = (/ &
+     &1.0703e-06_rb,6.2783e-07_rb,4.7122e-07_rb,2.6300e-07_rb,1.8538e-07_rb,1.5076e-07_rb, &
+     &1.9474e-07_rb,2.9543e-07_rb,2.0093e-07_rb,1.5819e-07_rb,1.5826e-07_rb,1.5737e-07_rb, &
+     &1.5751e-07_rb,1.5910e-07_rb,1.6181e-07_rb,1.6320e-07_rb/)
+      forrefo(3,:) = (/ &
+     &1.0470e-06_rb,5.8184e-07_rb,4.8218e-07_rb,2.7771e-07_rb,1.9036e-07_rb,1.5737e-07_rb, &
+     &1.8633e-07_rb,2.5754e-07_rb,4.0647e-07_rb,1.5839e-07_rb,1.5914e-07_rb,1.5788e-07_rb, &
+     &1.5731e-07_rb,1.5836e-07_rb,1.6103e-07_rb,1.6320e-07_rb/)
+      forrefo(4,:) = (/ &
+     &1.3891e-06_rb,5.4901e-07_rb,2.8850e-07_rb,1.9176e-07_rb,1.4549e-07_rb,1.3603e-07_rb, &
+     &1.7472e-07_rb,2.9796e-07_rb,3.2452e-07_rb,2.5231e-07_rb,2.8195e-07_rb,1.5527e-07_rb, &
+     &1.5507e-07_rb,1.5442e-07_rb,1.5275e-07_rb,1.6057e-07_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 1.73980e-03_rb, 1.41928e-03_rb, 1.15780e-03_rb, 9.44496e-04_rb, 7.70490e-04_rb, &
+     & 6.28541e-04_rb, 5.12744e-04_rb, 4.18280e-04_rb, 3.41219e-04_rb, 2.78356e-04_rb/)
+      selfrefo(:, 2) = (/ &
+     & 1.84082e-03_rb, 1.50228e-03_rb, 1.22600e-03_rb, 1.00053e-03_rb, 8.16525e-04_rb, &
+     & 6.66359e-04_rb, 5.43811e-04_rb, 4.43800e-04_rb, 3.62182e-04_rb, 2.95574e-04_rb/)
+      selfrefo(:, 3) = (/ &
+     & 1.92957e-03_rb, 1.57727e-03_rb, 1.28930e-03_rb, 1.05390e-03_rb, 8.61484e-04_rb, &
+     & 7.04197e-04_rb, 5.75627e-04_rb, 4.70530e-04_rb, 3.84622e-04_rb, 3.14399e-04_rb/)
+      selfrefo(:, 4) = (/ &
+     & 2.12958e-03_rb, 1.73572e-03_rb, 1.41470e-03_rb, 1.15305e-03_rb, 9.39798e-04_rb, &
+     & 7.65984e-04_rb, 6.24317e-04_rb, 5.08850e-04_rb, 4.14739e-04_rb, 3.38034e-04_rb/)
+      selfrefo(:, 5) = (/ &
+     & 2.30636e-03_rb, 1.88401e-03_rb, 1.53900e-03_rb, 1.25717e-03_rb, 1.02695e-03_rb, &
+     & 8.38891e-04_rb, 6.85270e-04_rb, 5.59780e-04_rb, 4.57270e-04_rb, 3.73533e-04_rb/)
+      selfrefo(:, 6) = (/ &
+     & 2.47824e-03_rb, 2.03278e-03_rb, 1.66740e-03_rb, 1.36769e-03_rb, 1.12185e-03_rb, &
+     & 9.20206e-04_rb, 7.54803e-04_rb, 6.19130e-04_rb, 5.07844e-04_rb, 4.16561e-04_rb/)
+      selfrefo(:, 7) = (/ &
+     & 2.54196e-03_rb, 2.10768e-03_rb, 1.74760e-03_rb, 1.44904e-03_rb, 1.20148e-03_rb, &
+     & 9.96215e-04_rb, 8.26019e-04_rb, 6.84900e-04_rb, 5.67890e-04_rb, 4.70870e-04_rb/)
+      selfrefo(:, 8) = (/ &
+     & 2.52650e-03_rb, 2.11773e-03_rb, 1.77510e-03_rb, 1.48790e-03_rb, 1.24717e-03_rb, &
+     & 1.04539e-03_rb, 8.76251e-04_rb, 7.34480e-04_rb, 6.15646e-04_rb, 5.16039e-04_rb/)
+      selfrefo(:, 9) = (/ &
+     & 2.82351e-03_rb, 2.34652e-03_rb, 1.95010e-03_rb, 1.62065e-03_rb, 1.34686e-03_rb, &
+     & 1.11933e-03_rb, 9.30232e-04_rb, 7.73080e-04_rb, 6.42477e-04_rb, 5.33939e-04_rb/)
+      selfrefo(:,10) = (/ &
+     & 2.98189e-03_rb, 2.46741e-03_rb, 2.04170e-03_rb, 1.68944e-03_rb, 1.39795e-03_rb, &
+     & 1.15676e-03_rb, 9.57176e-04_rb, 7.92030e-04_rb, 6.55377e-04_rb, 5.42302e-04_rb/)
+      selfrefo(:,11) = (/ &
+     & 2.98239e-03_rb, 2.46774e-03_rb, 2.04190e-03_rb, 1.68954e-03_rb, 1.39799e-03_rb, &
+     & 1.15675e-03_rb, 9.57137e-04_rb, 7.91970e-04_rb, 6.55305e-04_rb, 5.42224e-04_rb/)
+      selfrefo(:,12) = (/ &
+     & 2.97833e-03_rb, 2.46461e-03_rb, 2.03950e-03_rb, 1.68772e-03_rb, 1.39661e-03_rb, &
+     & 1.15571e-03_rb, 9.56370e-04_rb, 7.91410e-04_rb, 6.54903e-04_rb, 5.41942e-04_rb/)
+      selfrefo(:,13) = (/ &
+     & 2.97779e-03_rb, 2.46463e-03_rb, 2.03990e-03_rb, 1.68836e-03_rb, 1.39741e-03_rb, &
+     & 1.15659e-03_rb, 9.57278e-04_rb, 7.92310e-04_rb, 6.55771e-04_rb, 5.42762e-04_rb/)
+      selfrefo(:,14) = (/ &
+     & 2.98326e-03_rb, 2.46943e-03_rb, 2.04410e-03_rb, 1.69203e-03_rb, 1.40060e-03_rb, &
+     & 1.15936e-03_rb, 9.59673e-04_rb, 7.94380e-04_rb, 6.57557e-04_rb, 5.44301e-04_rb/)
+      selfrefo(:,15) = (/ &
+     & 2.99407e-03_rb, 2.47825e-03_rb, 2.05130e-03_rb, 1.69790e-03_rb, 1.40539e-03_rb, &
+     & 1.16327e-03_rb, 9.62862e-04_rb, 7.96980e-04_rb, 6.59676e-04_rb, 5.46028e-04_rb/)
+      selfrefo(:,16) = (/ &
+     & 3.00005e-03_rb, 2.48296e-03_rb, 2.05500e-03_rb, 1.70080e-03_rb, 1.40765e-03_rb, &
+     & 1.16503e-03_rb, 9.64224e-04_rb, 7.98030e-04_rb, 6.60481e-04_rb, 5.46641e-04_rb/)
+
+      end subroutine lw_kgb15
+
+! **************************************************************************
+      subroutine lw_kgb16
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrlw_kg16, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo
+
+      implicit none
+      save
+
+! Planck fraction mapping level: P = 387.6100 mbar, T = 250.17 K
+      fracrefao(:, 1) = (/ &
+     &  1.1593e-01_rb,2.3390e-01_rb,1.9120e-01_rb,1.3121e-01_rb,1.0590e-01_rb,8.4852e-02_rb, &
+     &  6.4168e-02_rb,4.2537e-02_rb,2.3220e-02_rb,2.1767e-03_rb,1.8203e-03_rb,1.3724e-03_rb, &
+     &  9.5452e-04_rb,5.5015e-04_rb,1.9348e-04_rb,2.7344e-05_rb/)
+      fracrefao(:, 2) = (/ &
+     &  2.8101e-01_rb,1.9773e-01_rb,1.4749e-01_rb,1.1399e-01_rb,8.8190e-02_rb,7.0531e-02_rb, &
+     &  4.6356e-02_rb,3.0774e-02_rb,1.7332e-02_rb,2.0054e-03_rb,1.5950e-03_rb,1.2760e-03_rb, &
+     &  9.5034e-04_rb,5.4992e-04_rb,1.9349e-04_rb,2.7309e-05_rb/)
+      fracrefao(:, 3) = (/ &
+     &  2.9054e-01_rb,2.1263e-01_rb,1.4133e-01_rb,1.1083e-01_rb,8.5107e-02_rb,6.5247e-02_rb, &
+     &  4.4542e-02_rb,2.7205e-02_rb,1.6495e-02_rb,1.8453e-03_rb,1.5222e-03_rb,1.1884e-03_rb, &
+     &  8.1094e-04_rb,4.9173e-04_rb,1.9344e-04_rb,2.7286e-05_rb/)
+      fracrefao(:, 4) = (/ &
+     &  2.9641e-01_rb,2.1738e-01_rb,1.4228e-01_rb,1.0830e-01_rb,8.2837e-02_rb,6.1359e-02_rb, &
+     &  4.4683e-02_rb,2.5027e-02_rb,1.6057e-02_rb,1.7558e-03_rb,1.4193e-03_rb,1.0970e-03_rb, &
+     &  7.8281e-04_rb,4.3260e-04_rb,1.4837e-04_rb,2.2958e-05_rb/)
+      fracrefao(:, 5) = (/ &
+     &  2.9553e-01_rb,2.2139e-01_rb,1.4816e-01_rb,1.0601e-01_rb,8.0048e-02_rb,6.0082e-02_rb, &
+     &  4.3952e-02_rb,2.3788e-02_rb,1.5734e-02_rb,1.6586e-03_rb,1.3434e-03_rb,1.0281e-03_rb, &
+     &  7.0256e-04_rb,4.2577e-04_rb,1.2803e-04_rb,1.3315e-05_rb/)
+      fracrefao(:, 6) = (/ &
+     &  2.9313e-01_rb,2.2476e-01_rb,1.5470e-01_rb,1.0322e-01_rb,7.8904e-02_rb,5.8175e-02_rb, &
+     &  4.3097e-02_rb,2.3618e-02_rb,1.5385e-02_rb,1.5942e-03_rb,1.2702e-03_rb,9.5566e-04_rb, &
+     &  6.5421e-04_rb,4.0165e-04_rb,1.2805e-04_rb,1.3355e-05_rb/)
+      fracrefao(:, 7) = (/ &
+     &  2.9069e-01_rb,2.2823e-01_rb,1.5995e-01_rb,1.0170e-01_rb,7.7287e-02_rb,5.6780e-02_rb, &
+     &  4.1752e-02_rb,2.3899e-02_rb,1.4937e-02_rb,1.4916e-03_rb,1.1909e-03_rb,9.1307e-04_rb, &
+     &  6.3518e-04_rb,3.9866e-04_rb,1.2805e-04_rb,1.3298e-05_rb/)
+      fracrefao(:, 8) = (/ &
+     &  2.8446e-01_rb,2.2651e-01_rb,1.7133e-01_rb,1.0299e-01_rb,7.4231e-02_rb,5.6031e-02_rb, &
+     &  4.1368e-02_rb,2.4318e-02_rb,1.4135e-02_rb,1.4216e-03_rb,1.1465e-03_rb,8.9800e-04_rb, &
+     &  6.3553e-04_rb,3.9536e-04_rb,1.2749e-04_rb,1.3298e-05_rb/)
+      fracrefao(:, 9) = (/ &
+     &  2.0568e-01_rb,2.5049e-01_rb,2.0568e-01_rb,1.1781e-01_rb,7.5579e-02_rb,5.8136e-02_rb, &
+     &  4.2397e-02_rb,2.6544e-02_rb,1.3067e-02_rb,1.4061e-03_rb,1.1455e-03_rb,8.9408e-04_rb, &
+     &  6.3652e-04_rb,3.9450e-04_rb,1.2841e-04_rb,1.3315e-05_rb/)
+
+! Planck fraction mapping level : P=95.58350 mb, T = 215.70 K
+      fracrefbo(:) = (/ &
+     &  1.8111e-01_rb,2.2612e-01_rb,1.6226e-01_rb,1.1872e-01_rb,9.9048e-02_rb,8.0390e-02_rb, &
+     &  6.1648e-02_rb,4.1704e-02_rb,2.2976e-02_rb,1.9263e-03_rb,1.4694e-03_rb,1.1498e-03_rb, &
+     &  7.9906e-04_rb,4.8310e-04_rb,1.6188e-04_rb,2.2651e-05_rb/)
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different gas column amount ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = gas1/(gas1 + (rat) * gas2), where rat is the 
+!     ratio of the reference MLS column amount value of gas 1 
+!     to that of gas2.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kao(:, 1, 1, 1) = (/ &
+     &2.6621e-07_rb,6.0791e-06_rb,9.3282e-06_rb,1.2208e-05_rb,1.4897e-05_rb,1.7596e-05_rb, &
+     &2.0729e-05_rb,2.6390e-05_rb,2.1078e-05_rb/)
+      kao(:, 2, 1, 1) = (/ &
+     &2.8927e-07_rb,6.1043e-06_rb,9.4020e-06_rb,1.2345e-05_rb,1.5126e-05_rb,1.7938e-05_rb, &
+     &2.1210e-05_rb,2.6769e-05_rb,2.1943e-05_rb/)
+      kao(:, 3, 1, 1) = (/ &
+     &3.1534e-07_rb,6.1325e-06_rb,9.4674e-06_rb,1.2459e-05_rb,1.5335e-05_rb,1.8250e-05_rb, &
+     &2.1635e-05_rb,2.7290e-05_rb,2.2718e-05_rb/)
+      kao(:, 4, 1, 1) = (/ &
+     &3.3330e-07_rb,6.1474e-06_rb,9.4677e-06_rb,1.2509e-05_rb,1.5444e-05_rb,1.8455e-05_rb, &
+     &2.1960e-05_rb,2.7695e-05_rb,2.3390e-05_rb/)
+      kao(:, 5, 1, 1) = (/ &
+     &3.5345e-07_rb,6.1735e-06_rb,9.4652e-06_rb,1.2538e-05_rb,1.5529e-05_rb,1.8608e-05_rb, &
+     &2.2197e-05_rb,2.8038e-05_rb,2.3906e-05_rb/)
+      kao(:, 1, 2, 1) = (/ &
+     &3.4774e-07_rb,6.3116e-06_rb,9.2039e-06_rb,1.1662e-05_rb,1.3842e-05_rb,1.5878e-05_rb, &
+     &1.7925e-05_rb,2.1213e-05_rb,1.7372e-05_rb/)
+      kao(:, 2, 2, 1) = (/ &
+     &3.7649e-07_rb,6.3618e-06_rb,9.2771e-06_rb,1.1777e-05_rb,1.4038e-05_rb,1.6170e-05_rb, &
+     &1.8345e-05_rb,2.1716e-05_rb,1.8135e-05_rb/)
+      kao(:, 3, 2, 1) = (/ &
+     &4.1206e-07_rb,6.4231e-06_rb,9.3322e-06_rb,1.1891e-05_rb,1.4202e-05_rb,1.6428e-05_rb, &
+     &1.8750e-05_rb,2.2212e-05_rb,1.8847e-05_rb/)
+      kao(:, 4, 2, 1) = (/ &
+     &4.4004e-07_rb,6.4581e-06_rb,9.3579e-06_rb,1.1962e-05_rb,1.4316e-05_rb,1.6601e-05_rb, &
+     &1.9025e-05_rb,2.2633e-05_rb,1.9458e-05_rb/)
+      kao(:, 5, 2, 1) = (/ &
+     &4.6078e-07_rb,6.4755e-06_rb,9.3704e-06_rb,1.1973e-05_rb,1.4371e-05_rb,1.6702e-05_rb, &
+     &1.9215e-05_rb,2.2953e-05_rb,1.9948e-05_rb/)
+      kao(:, 1, 3, 1) = (/ &
+     &5.9817e-07_rb,7.8428e-06_rb,1.0496e-05_rb,1.2549e-05_rb,1.4230e-05_rb,1.5565e-05_rb, &
+     &1.6588e-05_rb,1.7671e-05_rb,1.4245e-05_rb/)
+      kao(:, 2, 3, 1) = (/ &
+     &6.5182e-07_rb,7.9343e-06_rb,1.0585e-05_rb,1.2668e-05_rb,1.4392e-05_rb,1.5789e-05_rb, &
+     &1.6949e-05_rb,1.8125e-05_rb,1.4996e-05_rb/)
+      kao(:, 3, 3, 1) = (/ &
+     &7.0221e-07_rb,8.0226e-06_rb,1.0677e-05_rb,1.2755e-05_rb,1.4518e-05_rb,1.5973e-05_rb, &
+     &1.7236e-05_rb,1.8551e-05_rb,1.5656e-05_rb/)
+      kao(:, 4, 3, 1) = (/ &
+     &7.6366e-07_rb,8.1339e-06_rb,1.0778e-05_rb,1.2848e-05_rb,1.4645e-05_rb,1.6156e-05_rb, &
+     &1.7457e-05_rb,1.8931e-05_rb,1.6271e-05_rb/)
+      kao(:, 5, 3, 1) = (/ &
+     &7.9889e-07_rb,8.1643e-06_rb,1.0808e-05_rb,1.2886e-05_rb,1.4686e-05_rb,1.6241e-05_rb, &
+     &1.7601e-05_rb,1.9193e-05_rb,1.6837e-05_rb/)
+      kao(:, 1, 4, 1) = (/ &
+     &1.0320e-06_rb,1.0378e-05_rb,1.2935e-05_rb,1.4632e-05_rb,1.5802e-05_rb,1.6452e-05_rb, &
+     &1.6586e-05_rb,1.6155e-05_rb,1.2287e-05_rb/)
+      kao(:, 2, 4, 1) = (/ &
+     &1.1305e-06_rb,1.0573e-05_rb,1.3130e-05_rb,1.4798e-05_rb,1.5980e-05_rb,1.6653e-05_rb, &
+     &1.6853e-05_rb,1.6526e-05_rb,1.3070e-05_rb/)
+      kao(:, 3, 4, 1) = (/ &
+     &1.2198e-06_rb,1.0772e-05_rb,1.3274e-05_rb,1.4971e-05_rb,1.6111e-05_rb,1.6834e-05_rb, &
+     &1.7084e-05_rb,1.6873e-05_rb,1.3795e-05_rb/)
+      kao(:, 4, 4, 1) = (/ &
+     &1.3096e-06_rb,1.0937e-05_rb,1.3422e-05_rb,1.5096e-05_rb,1.6233e-05_rb,1.6971e-05_rb, &
+     &1.7284e-05_rb,1.7149e-05_rb,1.4420e-05_rb/)
+      kao(:, 5, 4, 1) = (/ &
+     &1.4155e-06_rb,1.1094e-05_rb,1.3596e-05_rb,1.5273e-05_rb,1.6388e-05_rb,1.7112e-05_rb, &
+     &1.7471e-05_rb,1.7381e-05_rb,1.4960e-05_rb/)
+      kao(:, 1, 5, 1) = (/ &
+     &1.6279e-06_rb,1.3142e-05_rb,1.6056e-05_rb,1.7394e-05_rb,1.8017e-05_rb,1.8011e-05_rb, &
+     &1.7308e-05_rb,1.5625e-05_rb,1.1008e-05_rb/)
+      kao(:, 2, 5, 1) = (/ &
+     &1.7835e-06_rb,1.3457e-05_rb,1.6348e-05_rb,1.7668e-05_rb,1.8277e-05_rb,1.8261e-05_rb, &
+     &1.7567e-05_rb,1.5970e-05_rb,1.1698e-05_rb/)
+      kao(:, 3, 5, 1) = (/ &
+     &1.9402e-06_rb,1.3791e-05_rb,1.6620e-05_rb,1.7922e-05_rb,1.8515e-05_rb,1.8474e-05_rb, &
+     &1.7802e-05_rb,1.6252e-05_rb,1.2372e-05_rb/)
+      kao(:, 4, 5, 1) = (/ &
+     &2.0835e-06_rb,1.4086e-05_rb,1.6875e-05_rb,1.8160e-05_rb,1.8703e-05_rb,1.8665e-05_rb, &
+     &1.7992e-05_rb,1.6486e-05_rb,1.3071e-05_rb/)
+      kao(:, 5, 5, 1) = (/ &
+     &2.2582e-06_rb,1.4511e-05_rb,1.7205e-05_rb,1.8422e-05_rb,1.8984e-05_rb,1.8898e-05_rb, &
+     &1.8217e-05_rb,1.6724e-05_rb,1.3787e-05_rb/)
+      kao(:, 1, 6, 1) = (/ &
+     &2.4034e-06_rb,1.6823e-05_rb,1.9391e-05_rb,2.0723e-05_rb,2.0772e-05_rb,2.0043e-05_rb, &
+     &1.8498e-05_rb,1.5704e-05_rb,9.8836e-06_rb/)
+      kao(:, 2, 6, 1) = (/ &
+     &2.6386e-06_rb,1.7226e-05_rb,1.9692e-05_rb,2.1124e-05_rb,2.1126e-05_rb,2.0392e-05_rb, &
+     &1.8810e-05_rb,1.6034e-05_rb,1.0751e-05_rb/)
+      kao(:, 3, 6, 1) = (/ &
+     &2.8660e-06_rb,1.7674e-05_rb,2.0029e-05_rb,2.1524e-05_rb,2.1484e-05_rb,2.0719e-05_rb, &
+     &1.9071e-05_rb,1.6298e-05_rb,1.1450e-05_rb/)
+      kao(:, 4, 6, 1) = (/ &
+     &3.0844e-06_rb,1.8072e-05_rb,2.0407e-05_rb,2.1899e-05_rb,2.1788e-05_rb,2.0987e-05_rb, &
+     &1.9304e-05_rb,1.6540e-05_rb,1.2182e-05_rb/)
+      kao(:, 5, 6, 1) = (/ &
+     &3.2920e-06_rb,1.8533e-05_rb,2.0800e-05_rb,2.2106e-05_rb,2.2044e-05_rb,2.1223e-05_rb, &
+     &1.9506e-05_rb,1.6741e-05_rb,1.2836e-05_rb/)
+      kao(:, 1, 7, 1) = (/ &
+     &3.8221e-06_rb,2.2204e-05_rb,2.4808e-05_rb,2.5531e-05_rb,2.5616e-05_rb,2.3917e-05_rb, &
+     &2.1120e-05_rb,1.6870e-05_rb,8.7171e-06_rb/)
+      kao(:, 2, 7, 1) = (/ &
+     &4.1828e-06_rb,2.2870e-05_rb,2.5558e-05_rb,2.5953e-05_rb,2.6151e-05_rb,2.4347e-05_rb, &
+     &2.1524e-05_rb,1.7202e-05_rb,9.2028e-06_rb/)
+      kao(:, 3, 7, 1) = (/ &
+     &4.5497e-06_rb,2.3564e-05_rb,2.6164e-05_rb,2.6493e-05_rb,2.6591e-05_rb,2.4767e-05_rb, &
+     &2.1899e-05_rb,1.7498e-05_rb,9.7937e-06_rb/)
+      kao(:, 4, 7, 1) = (/ &
+     &4.8742e-06_rb,2.4270e-05_rb,2.6708e-05_rb,2.7099e-05_rb,2.6759e-05_rb,2.5177e-05_rb, &
+     &2.2242e-05_rb,1.7759e-05_rb,1.0449e-05_rb/)
+      kao(:, 5, 7, 1) = (/ &
+     &5.1866e-06_rb,2.4962e-05_rb,2.7348e-05_rb,2.7664e-05_rb,2.7129e-05_rb,2.5537e-05_rb, &
+     &2.2515e-05_rb,1.7998e-05_rb,1.1128e-05_rb/)
+      kao(:, 1, 8, 1) = (/ &
+     &7.4211e-06_rb,3.2998e-05_rb,3.6610e-05_rb,3.7073e-05_rb,3.4983e-05_rb,3.2511e-05_rb, &
+     &2.7821e-05_rb,2.0603e-05_rb,7.1809e-06_rb/)
+      kao(:, 2, 8, 1) = (/ &
+     &8.1099e-06_rb,3.4342e-05_rb,3.7801e-05_rb,3.7976e-05_rb,3.5797e-05_rb,3.2823e-05_rb, &
+     &2.8347e-05_rb,2.1030e-05_rb,7.7735e-06_rb/)
+      kao(:, 3, 8, 1) = (/ &
+     &8.7992e-06_rb,3.5880e-05_rb,3.8837e-05_rb,3.8975e-05_rb,3.6756e-05_rb,3.3300e-05_rb, &
+     &2.8882e-05_rb,2.1428e-05_rb,8.4180e-06_rb/)
+      kao(:, 4, 8, 1) = (/ &
+     &9.4486e-06_rb,3.7431e-05_rb,3.9883e-05_rb,3.9775e-05_rb,3.7762e-05_rb,3.3901e-05_rb, &
+     &2.9403e-05_rb,2.1792e-05_rb,9.1057e-06_rb/)
+      kao(:, 5, 8, 1) = (/ &
+     &1.0041e-05_rb,3.9014e-05_rb,4.1019e-05_rb,4.0539e-05_rb,3.8447e-05_rb,3.4543e-05_rb, &
+     &2.9823e-05_rb,2.2110e-05_rb,9.8280e-06_rb/)
+      kao(:, 1, 9, 1) = (/ &
+     &2.6945e-05_rb,8.1804e-05_rb,8.6984e-05_rb,8.4462e-05_rb,7.8660e-05_rb,6.9398e-05_rb, &
+     &5.6216e-05_rb,3.9134e-05_rb,6.0831e-06_rb/)
+      kao(:, 2, 9, 1) = (/ &
+     &2.9562e-05_rb,8.5456e-05_rb,9.1284e-05_rb,8.7620e-05_rb,8.1311e-05_rb,7.1570e-05_rb, &
+     &5.7999e-05_rb,3.9483e-05_rb,6.6855e-06_rb/)
+      kao(:, 3, 9, 1) = (/ &
+     &3.2110e-05_rb,8.8183e-05_rb,9.6256e-05_rb,9.1033e-05_rb,8.3882e-05_rb,7.3603e-05_rb, &
+     &5.9334e-05_rb,4.0067e-05_rb,7.3573e-06_rb/)
+      kao(:, 4, 9, 1) = (/ &
+     &3.4494e-05_rb,9.0981e-05_rb,1.0082e-04_rb,9.4837e-05_rb,8.6631e-05_rb,7.5471e-05_rb, &
+     &6.0778e-05_rb,4.0870e-05_rb,8.0874e-06_rb/)
+      kao(:, 5, 9, 1) = (/ &
+     &3.6729e-05_rb,9.3406e-05_rb,1.0411e-04_rb,9.8963e-05_rb,8.9287e-05_rb,7.7185e-05_rb, &
+     &6.1987e-05_rb,4.1723e-05_rb,8.8598e-06_rb/)
+      kao(:, 1,10, 1) = (/ &
+     &1.1063e-04_rb,2.0470e-04_rb,2.2594e-04_rb,2.2784e-04_rb,2.0878e-04_rb,1.7781e-04_rb, &
+     &1.3876e-04_rb,9.0190e-05_rb,6.6238e-06_rb/)
+      kao(:, 2,10, 1) = (/ &
+     &1.2128e-04_rb,2.1612e-04_rb,2.3657e-04_rb,2.3782e-04_rb,2.2024e-04_rb,1.8545e-04_rb, &
+     &1.4406e-04_rb,9.3147e-05_rb,7.2888e-06_rb/)
+      kao(:, 3,10, 1) = (/ &
+     &1.3155e-04_rb,2.2685e-04_rb,2.4613e-04_rb,2.4648e-04_rb,2.3100e-04_rb,1.9523e-04_rb, &
+     &1.4909e-04_rb,9.5827e-05_rb,7.7784e-06_rb/)
+      kao(:, 4,10, 1) = (/ &
+     &1.4108e-04_rb,2.3656e-04_rb,2.5475e-04_rb,2.5395e-04_rb,2.3879e-04_rb,2.0427e-04_rb, &
+     &1.5511e-04_rb,9.8368e-05_rb,8.3069e-06_rb/)
+      kao(:, 5,10, 1) = (/ &
+     &1.4988e-04_rb,2.4526e-04_rb,2.6296e-04_rb,2.6141e-04_rb,2.4593e-04_rb,2.1313e-04_rb, &
+     &1.6065e-04_rb,1.0083e-04_rb,8.9709e-06_rb/)
+      kao(:, 1,11, 1) = (/ &
+     &1.6397e-04_rb,2.6056e-04_rb,2.8031e-04_rb,2.7866e-04_rb,2.6081e-04_rb,2.2383e-04_rb, &
+     &1.7351e-04_rb,1.0962e-04_rb,6.8264e-06_rb/)
+      kao(:, 2,11, 1) = (/ &
+     &1.7933e-04_rb,2.7580e-04_rb,2.9343e-04_rb,2.9042e-04_rb,2.7290e-04_rb,2.3596e-04_rb, &
+     &1.8069e-04_rb,1.1353e-04_rb,7.5502e-06_rb/)
+      kao(:, 3,11, 1) = (/ &
+     &1.9324e-04_rb,2.9031e-04_rb,3.0629e-04_rb,3.0108e-04_rb,2.8182e-04_rb,2.4730e-04_rb, &
+     &1.8878e-04_rb,1.1713e-04_rb,7.9027e-06_rb/)
+      kao(:, 4,11, 1) = (/ &
+     &2.0654e-04_rb,3.0384e-04_rb,3.1739e-04_rb,3.1103e-04_rb,2.9049e-04_rb,2.5555e-04_rb, &
+     &1.9705e-04_rb,1.2084e-04_rb,8.5383e-06_rb/)
+      kao(:, 5,11, 1) = (/ &
+     &2.1856e-04_rb,3.1574e-04_rb,3.2801e-04_rb,3.2141e-04_rb,2.9895e-04_rb,2.6285e-04_rb, &
+     &2.0518e-04_rb,1.2441e-04_rb,9.1615e-06_rb/)
+      kao(:, 1,12, 1) = (/ &
+     &1.7554e-04_rb,2.6383e-04_rb,2.7930e-04_rb,2.7562e-04_rb,2.5860e-04_rb,2.2333e-04_rb, &
+     &1.7363e-04_rb,1.0883e-04_rb,5.7385e-06_rb/)
+      kao(:, 2,12, 1) = (/ &
+     &1.9241e-04_rb,2.8007e-04_rb,2.9311e-04_rb,2.8776e-04_rb,2.6852e-04_rb,2.3492e-04_rb, &
+     &1.8150e-04_rb,1.1266e-04_rb,6.8723e-06_rb/)
+      kao(:, 3,12, 1) = (/ &
+     &2.0743e-04_rb,2.9497e-04_rb,3.0602e-04_rb,2.9878e-04_rb,2.7794e-04_rb,2.4424e-04_rb, &
+     &1.8850e-04_rb,1.1619e-04_rb,7.4728e-06_rb/)
+      kao(:, 4,12, 1) = (/ &
+     &2.2033e-04_rb,3.0884e-04_rb,3.1746e-04_rb,3.0874e-04_rb,2.8629e-04_rb,2.5127e-04_rb, &
+     &1.9681e-04_rb,1.2004e-04_rb,7.8331e-06_rb/)
+      kao(:, 5,12, 1) = (/ &
+     &2.3385e-04_rb,3.2096e-04_rb,3.2817e-04_rb,3.1852e-04_rb,2.9492e-04_rb,2.5838e-04_rb, &
+     &2.0541e-04_rb,1.2394e-04_rb,8.4107e-06_rb/)
+      kao(:, 1,13, 1) = (/ &
+     &1.4984e-04_rb,2.2462e-04_rb,2.3735e-04_rb,2.3350e-04_rb,2.1852e-04_rb,1.8858e-04_rb, &
+     &1.4655e-04_rb,9.1919e-05_rb,4.7944e-06_rb/)
+      kao(:, 2,13, 1) = (/ &
+     &1.6431e-04_rb,2.3822e-04_rb,2.4852e-04_rb,2.4374e-04_rb,2.2685e-04_rb,1.9798e-04_rb, &
+     &1.5298e-04_rb,9.5139e-05_rb,5.7512e-06_rb/)
+      kao(:, 3,13, 1) = (/ &
+     &1.7714e-04_rb,2.5149e-04_rb,2.5950e-04_rb,2.5249e-04_rb,2.3438e-04_rb,2.0591e-04_rb, &
+     &1.5891e-04_rb,9.8151e-05_rb,6.2816e-06_rb/)
+      kao(:, 4,13, 1) = (/ &
+     &1.8918e-04_rb,2.6227e-04_rb,2.6867e-04_rb,2.6081e-04_rb,2.4142e-04_rb,2.1149e-04_rb, &
+     &1.6602e-04_rb,1.0121e-04_rb,6.5742e-06_rb/)
+      kao(:, 5,13, 1) = (/ &
+     &1.9984e-04_rb,2.7202e-04_rb,2.7776e-04_rb,2.6884e-04_rb,2.4875e-04_rb,2.1766e-04_rb, &
+     &1.7300e-04_rb,1.0449e-04_rb,7.0482e-06_rb/)
+      kao(:, 1, 1, 2) = (/ &
+     &1.6519e-06_rb,1.6500e-05_rb,2.5026e-05_rb,3.2759e-05_rb,4.0208e-05_rb,4.7995e-05_rb, &
+     &5.7218e-05_rb,7.0450e-05_rb,6.2071e-05_rb/)
+      kao(:, 2, 1, 2) = (/ &
+     &1.7427e-06_rb,1.6766e-05_rb,2.5514e-05_rb,3.3509e-05_rb,4.1226e-05_rb,4.9256e-05_rb, &
+     &5.8782e-05_rb,7.2775e-05_rb,6.4227e-05_rb/)
+      kao(:, 3, 1, 2) = (/ &
+     &1.8342e-06_rb,1.7039e-05_rb,2.6012e-05_rb,3.4217e-05_rb,4.2214e-05_rb,5.0504e-05_rb, &
+     &6.0325e-05_rb,7.4727e-05_rb,6.6376e-05_rb/)
+      kao(:, 4, 1, 2) = (/ &
+     &1.9060e-06_rb,1.7243e-05_rb,2.6493e-05_rb,3.4981e-05_rb,4.3216e-05_rb,5.1749e-05_rb, &
+     &6.1747e-05_rb,7.6716e-05_rb,6.8482e-05_rb/)
+      kao(:, 5, 1, 2) = (/ &
+     &1.9873e-06_rb,1.7462e-05_rb,2.6980e-05_rb,3.5686e-05_rb,4.4149e-05_rb,5.2919e-05_rb, &
+     &6.3181e-05_rb,7.8643e-05_rb,7.0600e-05_rb/)
+      kao(:, 1, 2, 2) = (/ &
+     &2.1537e-06_rb,1.7686e-05_rb,2.5477e-05_rb,3.2084e-05_rb,3.8037e-05_rb,4.3791e-05_rb, &
+     &5.0118e-05_rb,5.9749e-05_rb,5.2659e-05_rb/)
+      kao(:, 2, 2, 2) = (/ &
+     &2.2967e-06_rb,1.7950e-05_rb,2.5979e-05_rb,3.2808e-05_rb,3.8966e-05_rb,4.4991e-05_rb, &
+     &5.1587e-05_rb,6.1578e-05_rb,5.4559e-05_rb/)
+      kao(:, 3, 2, 2) = (/ &
+     &2.4223e-06_rb,1.8241e-05_rb,2.6472e-05_rb,3.3476e-05_rb,3.9818e-05_rb,4.6056e-05_rb, &
+     &5.2876e-05_rb,6.3201e-05_rb,5.6392e-05_rb/)
+      kao(:, 4, 2, 2) = (/ &
+     &2.5452e-06_rb,1.8478e-05_rb,2.6920e-05_rb,3.4112e-05_rb,4.0714e-05_rb,4.7174e-05_rb, &
+     &5.4253e-05_rb,6.4831e-05_rb,5.8337e-05_rb/)
+      kao(:, 5, 2, 2) = (/ &
+     &2.6442e-06_rb,1.8696e-05_rb,2.7330e-05_rb,3.4790e-05_rb,4.1641e-05_rb,4.8326e-05_rb, &
+     &5.5567e-05_rb,6.6400e-05_rb,6.0213e-05_rb/)
+      kao(:, 1, 3, 2) = (/ &
+     &3.6781e-06_rb,2.1946e-05_rb,2.9916e-05_rb,3.5559e-05_rb,4.0089e-05_rb,4.3735e-05_rb, &
+     &4.6884e-05_rb,5.0541e-05_rb,4.3984e-05_rb/)
+      kao(:, 2, 3, 2) = (/ &
+     &3.9348e-06_rb,2.2135e-05_rb,3.0461e-05_rb,3.6306e-05_rb,4.1005e-05_rb,4.4863e-05_rb, &
+     &4.8174e-05_rb,5.2207e-05_rb,4.5557e-05_rb/)
+      kao(:, 3, 3, 2) = (/ &
+     &4.1798e-06_rb,2.2403e-05_rb,3.0963e-05_rb,3.7011e-05_rb,4.1865e-05_rb,4.5861e-05_rb, &
+     &4.9330e-05_rb,5.3612e-05_rb,4.7151e-05_rb/)
+      kao(:, 4, 3, 2) = (/ &
+     &4.4176e-06_rb,2.2879e-05_rb,3.1514e-05_rb,3.7717e-05_rb,4.2706e-05_rb,4.6836e-05_rb, &
+     &5.0501e-05_rb,5.4941e-05_rb,4.8733e-05_rb/)
+      kao(:, 5, 3, 2) = (/ &
+     &4.5930e-06_rb,2.3205e-05_rb,3.1822e-05_rb,3.8274e-05_rb,4.3472e-05_rb,4.7803e-05_rb, &
+     &5.1670e-05_rb,5.6326e-05_rb,5.0305e-05_rb/)
+      kao(:, 1, 4, 2) = (/ &
+     &6.4358e-06_rb,2.9282e-05_rb,3.6943e-05_rb,4.2596e-05_rb,4.5632e-05_rb,4.7319e-05_rb, &
+     &4.7633e-05_rb,4.6727e-05_rb,3.6481e-05_rb/)
+      kao(:, 2, 4, 2) = (/ &
+     &6.8669e-06_rb,2.9817e-05_rb,3.7275e-05_rb,4.3436e-05_rb,4.6592e-05_rb,4.8428e-05_rb, &
+     &4.8930e-05_rb,4.8153e-05_rb,3.7877e-05_rb/)
+      kao(:, 3, 4, 2) = (/ &
+     &7.3364e-06_rb,3.0199e-05_rb,3.7809e-05_rb,4.3827e-05_rb,4.7553e-05_rb,4.9496e-05_rb, &
+     &5.0112e-05_rb,4.9423e-05_rb,3.9242e-05_rb/)
+      kao(:, 4, 4, 2) = (/ &
+     &7.7623e-06_rb,3.0806e-05_rb,3.8513e-05_rb,4.4137e-05_rb,4.8467e-05_rb,5.0544e-05_rb, &
+     &5.1178e-05_rb,5.0627e-05_rb,4.0689e-05_rb/)
+      kao(:, 5, 4, 2) = (/ &
+     &8.2042e-06_rb,3.1502e-05_rb,3.9409e-05_rb,4.4849e-05_rb,4.9430e-05_rb,5.1580e-05_rb, &
+     &5.2292e-05_rb,5.1835e-05_rb,4.2152e-05_rb/)
+      kao(:, 1, 5, 2) = (/ &
+     &1.0402e-05_rb,3.8540e-05_rb,4.6318e-05_rb,5.0020e-05_rb,5.3672e-05_rb,5.3150e-05_rb, &
+     &5.0796e-05_rb,4.5989e-05_rb,3.1155e-05_rb/)
+      kao(:, 2, 5, 2) = (/ &
+     &1.1085e-05_rb,3.9241e-05_rb,4.7238e-05_rb,5.0920e-05_rb,5.3596e-05_rb,5.4294e-05_rb, &
+     &5.2010e-05_rb,4.7261e-05_rb,3.2691e-05_rb/)
+      kao(:, 3, 5, 2) = (/ &
+     &1.1793e-05_rb,3.9912e-05_rb,4.8110e-05_rb,5.1979e-05_rb,5.4361e-05_rb,5.5470e-05_rb, &
+     &5.3221e-05_rb,4.8498e-05_rb,3.4229e-05_rb/)
+      kao(:, 4, 5, 2) = (/ &
+     &1.2505e-05_rb,4.0706e-05_rb,4.8865e-05_rb,5.3127e-05_rb,5.5321e-05_rb,5.6646e-05_rb, &
+     &5.4402e-05_rb,4.9696e-05_rb,3.5620e-05_rb/)
+      kao(:, 5, 5, 2) = (/ &
+     &1.3238e-05_rb,4.1575e-05_rb,5.0157e-05_rb,5.4552e-05_rb,5.6339e-05_rb,5.7036e-05_rb, &
+     &5.5608e-05_rb,5.0863e-05_rb,3.6859e-05_rb/)
+      kao(:, 1, 6, 2) = (/ &
+     &1.5685e-05_rb,4.8160e-05_rb,5.7576e-05_rb,6.0816e-05_rb,6.0795e-05_rb,5.9888e-05_rb, &
+     &5.5641e-05_rb,4.7076e-05_rb,2.7125e-05_rb/)
+      kao(:, 2, 6, 2) = (/ &
+     &1.6746e-05_rb,4.9438e-05_rb,5.8728e-05_rb,6.2091e-05_rb,6.2171e-05_rb,6.0759e-05_rb, &
+     &5.6976e-05_rb,4.8239e-05_rb,2.8411e-05_rb/)
+      kao(:, 3, 6, 2) = (/ &
+     &1.7756e-05_rb,5.0622e-05_rb,5.9836e-05_rb,6.3203e-05_rb,6.3569e-05_rb,6.1458e-05_rb, &
+     &5.8288e-05_rb,4.9429e-05_rb,2.9823e-05_rb/)
+      kao(:, 4, 6, 2) = (/ &
+     &1.8829e-05_rb,5.1859e-05_rb,6.0806e-05_rb,6.4509e-05_rb,6.5119e-05_rb,6.2540e-05_rb, &
+     &5.8809e-05_rb,5.0652e-05_rb,3.1085e-05_rb/)
+      kao(:, 5, 6, 2) = (/ &
+     &1.9856e-05_rb,5.2975e-05_rb,6.2034e-05_rb,6.5989e-05_rb,6.6522e-05_rb,6.3894e-05_rb, &
+     &5.9538e-05_rb,5.1853e-05_rb,3.2453e-05_rb/)
+      kao(:, 1, 7, 2) = (/ &
+     &2.4856e-05_rb,6.4218e-05_rb,7.4055e-05_rb,7.7980e-05_rb,7.5911e-05_rb,7.1057e-05_rb, &
+     &6.3849e-05_rb,5.1579e-05_rb,2.5153e-05_rb/)
+      kao(:, 2, 7, 2) = (/ &
+     &2.6608e-05_rb,6.6305e-05_rb,7.5730e-05_rb,7.9533e-05_rb,7.7616e-05_rb,7.2887e-05_rb, &
+     &6.4610e-05_rb,5.2907e-05_rb,2.6881e-05_rb/)
+      kao(:, 3, 7, 2) = (/ &
+     &2.8288e-05_rb,6.8291e-05_rb,7.7618e-05_rb,8.1185e-05_rb,7.9322e-05_rb,7.4738e-05_rb, &
+     &6.5685e-05_rb,5.4242e-05_rb,2.8455e-05_rb/)
+      kao(:, 4, 7, 2) = (/ &
+     &3.0045e-05_rb,7.0265e-05_rb,7.9536e-05_rb,8.2799e-05_rb,8.1209e-05_rb,7.6305e-05_rb, &
+     &6.7186e-05_rb,5.5601e-05_rb,2.9886e-05_rb/)
+      kao(:, 5, 7, 2) = (/ &
+     &3.1755e-05_rb,7.2003e-05_rb,8.1183e-05_rb,8.4367e-05_rb,8.2925e-05_rb,7.7935e-05_rb, &
+     &6.8892e-05_rb,5.5914e-05_rb,3.1298e-05_rb/)
+      kao(:, 1, 8, 2) = (/ &
+     &4.6308e-05_rb,9.7055e-05_rb,1.0843e-04_rb,1.0990e-04_rb,1.0798e-04_rb,9.8279e-05_rb, &
+     &8.2910e-05_rb,6.2908e-05_rb,2.6615e-05_rb/)
+      kao(:, 2, 8, 2) = (/ &
+     &4.9990e-05_rb,1.0048e-04_rb,1.1189e-04_rb,1.1329e-04_rb,1.1038e-04_rb,1.0108e-04_rb, &
+     &8.5246e-05_rb,6.3800e-05_rb,2.8720e-05_rb/)
+      kao(:, 3, 8, 2) = (/ &
+     &5.3406e-05_rb,1.0353e-04_rb,1.1536e-04_rb,1.1646e-04_rb,1.1270e-04_rb,1.0316e-04_rb, &
+     &8.7419e-05_rb,6.5105e-05_rb,3.1055e-05_rb/)
+      kao(:, 4, 8, 2) = (/ &
+     &5.6634e-05_rb,1.0658e-04_rb,1.1884e-04_rb,1.1968e-04_rb,1.1489e-04_rb,1.0536e-04_rb, &
+     &8.9223e-05_rb,6.6739e-05_rb,3.2877e-05_rb/)
+      kao(:, 5, 8, 2) = (/ &
+     &5.9979e-05_rb,1.0942e-04_rb,1.2217e-04_rb,1.2302e-04_rb,1.1760e-04_rb,1.0763e-04_rb, &
+     &9.1750e-05_rb,6.8524e-05_rb,3.4517e-05_rb/)
+      kao(:, 1, 9, 2) = (/ &
+     &1.6574e-04_rb,2.3675e-04_rb,2.5425e-04_rb,2.5367e-04_rb,2.3792e-04_rb,2.1003e-04_rb, &
+     &1.7177e-04_rb,1.1936e-04_rb,3.2512e-05_rb/)
+      kao(:, 2, 9, 2) = (/ &
+     &1.7873e-04_rb,2.4657e-04_rb,2.6302e-04_rb,2.6299e-04_rb,2.4679e-04_rb,2.1704e-04_rb, &
+     &1.7629e-04_rb,1.2297e-04_rb,3.4956e-05_rb/)
+      kao(:, 3, 9, 2) = (/ &
+     &1.9203e-04_rb,2.5827e-04_rb,2.7104e-04_rb,2.7133e-04_rb,2.5463e-04_rb,2.2408e-04_rb, &
+     &1.8102e-04_rb,1.2579e-04_rb,3.6986e-05_rb/)
+      kao(:, 4, 9, 2) = (/ &
+     &2.0457e-04_rb,2.7047e-04_rb,2.8009e-04_rb,2.7979e-04_rb,2.6236e-04_rb,2.3082e-04_rb, &
+     &1.8610e-04_rb,1.2867e-04_rb,3.9201e-05_rb/)
+      kao(:, 5, 9, 2) = (/ &
+     &2.1654e-04_rb,2.8311e-04_rb,2.9060e-04_rb,2.8789e-04_rb,2.7019e-04_rb,2.3757e-04_rb, &
+     &1.9128e-04_rb,1.3157e-04_rb,4.1162e-05_rb/)
+      kao(:, 1,10, 2) = (/ &
+     &6.9835e-04_rb,7.7425e-04_rb,7.4212e-04_rb,6.8606e-04_rb,6.1917e-04_rb,5.3712e-04_rb, &
+     &4.2860e-04_rb,2.7889e-04_rb,3.4936e-05_rb/)
+      kao(:, 2,10, 2) = (/ &
+     &7.4976e-04_rb,8.1587e-04_rb,7.7895e-04_rb,7.1764e-04_rb,6.4311e-04_rb,5.5763e-04_rb, &
+     &4.4404e-04_rb,2.8872e-04_rb,3.8434e-05_rb/)
+      kao(:, 3,10, 2) = (/ &
+     &8.0421e-04_rb,8.6133e-04_rb,8.1873e-04_rb,7.5123e-04_rb,6.6805e-04_rb,5.7460e-04_rb, &
+     &4.5895e-04_rb,2.9845e-04_rb,4.2197e-05_rb/)
+      kao(:, 4,10, 2) = (/ &
+     &8.5541e-04_rb,9.0651e-04_rb,8.6169e-04_rb,7.8842e-04_rb,6.9649e-04_rb,5.9375e-04_rb, &
+     &4.7283e-04_rb,3.0790e-04_rb,4.6109e-05_rb/)
+      kao(:, 5,10, 2) = (/ &
+     &9.0554e-04_rb,9.5112e-04_rb,9.0374e-04_rb,8.2600e-04_rb,7.2587e-04_rb,6.1366e-04_rb, &
+     &4.8709e-04_rb,3.1697e-04_rb,4.9839e-05_rb/)
+      kao(:, 1,11, 2) = (/ &
+     &1.0573e-03_rb,1.1046e-03_rb,1.0331e-03_rb,9.3641e-04_rb,8.2149e-04_rb,6.9220e-04_rb, &
+     &5.4269e-04_rb,3.5137e-04_rb,3.2311e-05_rb/)
+      kao(:, 2,11, 2) = (/ &
+     &1.1354e-03_rb,1.1699e-03_rb,1.0957e-03_rb,9.8791e-04_rb,8.6081e-04_rb,7.2123e-04_rb, &
+     &5.6428e-04_rb,3.6441e-04_rb,3.5797e-05_rb/)
+      kao(:, 3,11, 2) = (/ &
+     &1.2157e-03_rb,1.2370e-03_rb,1.1565e-03_rb,1.0415e-03_rb,9.0546e-04_rb,7.4993e-04_rb, &
+     &5.8345e-04_rb,3.7768e-04_rb,3.9564e-05_rb/)
+      kao(:, 4,11, 2) = (/ &
+     &1.2894e-03_rb,1.3041e-03_rb,1.2183e-03_rb,1.0951e-03_rb,9.4833e-04_rb,7.8292e-04_rb, &
+     &6.0424e-04_rb,3.8988e-04_rb,4.3105e-05_rb/)
+      kao(:, 5,11, 2) = (/ &
+     &1.3602e-03_rb,1.3714e-03_rb,1.2775e-03_rb,1.1464e-03_rb,9.9122e-04_rb,8.1361e-04_rb, &
+     &6.2375e-04_rb,4.0138e-04_rb,4.6502e-05_rb/)
+      kao(:, 1,12, 2) = (/ &
+     &1.1559e-03_rb,1.1821e-03_rb,1.1002e-03_rb,9.8760e-04_rb,8.5869e-04_rb,7.1597e-04_rb, &
+     &5.5368e-04_rb,3.5629e-04_rb,2.8926e-05_rb/)
+      kao(:, 2,12, 2) = (/ &
+     &1.2387e-03_rb,1.2530e-03_rb,1.1642e-03_rb,1.0435e-03_rb,9.0422e-04_rb,7.4802e-04_rb, &
+     &5.7617e-04_rb,3.7052e-04_rb,3.1589e-05_rb/)
+      kao(:, 3,12, 2) = (/ &
+     &1.3216e-03_rb,1.3229e-03_rb,1.2283e-03_rb,1.1015e-03_rb,9.5193e-04_rb,7.8187e-04_rb, &
+     &5.9954e-04_rb,3.8460e-04_rb,3.4577e-05_rb/)
+      kao(:, 4,12, 2) = (/ &
+     &1.3983e-03_rb,1.3942e-03_rb,1.2931e-03_rb,1.1587e-03_rb,9.9709e-04_rb,8.1633e-04_rb, &
+     &6.2085e-04_rb,3.9719e-04_rb,3.7982e-05_rb/)
+      kao(:, 5,12, 2) = (/ &
+     &1.4751e-03_rb,1.4634e-03_rb,1.3557e-03_rb,1.2116e-03_rb,1.0389e-03_rb,8.4961e-04_rb, &
+     &6.4030e-04_rb,4.0878e-04_rb,4.0969e-05_rb/)
+      kao(:, 1,13, 2) = (/ &
+     &1.0038e-03_rb,1.0239e-03_rb,9.5244e-04_rb,8.5524e-04_rb,7.4348e-04_rb,6.2001e-04_rb, &
+     &4.7929e-04_rb,3.0767e-04_rb,2.4695e-05_rb/)
+      kao(:, 2,13, 2) = (/ &
+     &1.0734e-03_rb,1.0865e-03_rb,1.0094e-03_rb,9.0484e-04_rb,7.8346e-04_rb,6.4723e-04_rb, &
+     &4.9815e-04_rb,3.1985e-04_rb,2.6858e-05_rb/)
+      kao(:, 3,13, 2) = (/ &
+     &1.1391e-03_rb,1.1434e-03_rb,1.0621e-03_rb,9.5239e-04_rb,8.2130e-04_rb,6.7579e-04_rb, &
+     &5.1796e-04_rb,3.3140e-04_rb,2.9385e-05_rb/)
+      kao(:, 4,13, 2) = (/ &
+     &1.2032e-03_rb,1.2025e-03_rb,1.1163e-03_rb,9.9786e-04_rb,8.5960e-04_rb,7.0590e-04_rb, &
+     &5.3619e-04_rb,3.4228e-04_rb,3.2189e-05_rb/)
+      kao(:, 5,13, 2) = (/ &
+     &1.2690e-03_rb,1.2617e-03_rb,1.1676e-03_rb,1.0418e-03_rb,8.9504e-04_rb,7.3293e-04_rb, &
+     &5.5106e-04_rb,3.5176e-04_rb,3.4791e-05_rb/)
+      kao(:, 1, 1, 3) = (/ &
+     &3.4054e-06_rb,3.6169e-05_rb,5.7781e-05_rb,7.9702e-05_rb,9.9450e-05_rb,1.1908e-04_rb, &
+     &1.4021e-04_rb,1.6904e-04_rb,1.5965e-04_rb/)
+      kao(:, 2, 1, 3) = (/ &
+     &3.5406e-06_rb,3.7213e-05_rb,5.9148e-05_rb,7.9930e-05_rb,1.0281e-04_rb,1.2326e-04_rb, &
+     &1.4516e-04_rb,1.7473e-04_rb,1.6518e-04_rb/)
+      kao(:, 3, 1, 3) = (/ &
+     &3.6962e-06_rb,3.8392e-05_rb,6.0628e-05_rb,8.1614e-05_rb,1.0332e-04_rb,1.2805e-04_rb, &
+     &1.5083e-04_rb,1.8127e-04_rb,1.7179e-04_rb/)
+      kao(:, 4, 1, 3) = (/ &
+     &3.8150e-06_rb,3.9649e-05_rb,6.2587e-05_rb,8.4276e-05_rb,1.0580e-04_rb,1.2950e-04_rb, &
+     &1.5730e-04_rb,1.8884e-04_rb,1.7648e-04_rb/)
+      kao(:, 5, 1, 3) = (/ &
+     &3.9425e-06_rb,4.0895e-05_rb,6.4628e-05_rb,8.7067e-05_rb,1.0971e-04_rb,1.3287e-04_rb, &
+     &1.5979e-04_rb,1.9707e-04_rb,1.8056e-04_rb/)
+      kao(:, 1, 2, 3) = (/ &
+     &4.7659e-06_rb,3.7672e-05_rb,5.6772e-05_rb,7.4964e-05_rb,9.3354e-05_rb,1.1163e-04_rb, &
+     &1.2805e-04_rb,1.4897e-04_rb,1.4118e-04_rb/)
+      kao(:, 2, 2, 3) = (/ &
+     &4.9285e-06_rb,3.8459e-05_rb,5.8331e-05_rb,7.6310e-05_rb,9.3490e-05_rb,1.1292e-04_rb, &
+     &1.3218e-04_rb,1.5402e-04_rb,1.4609e-04_rb/)
+      kao(:, 3, 2, 3) = (/ &
+     &5.1241e-06_rb,3.9569e-05_rb,6.0060e-05_rb,7.8269e-05_rb,9.6361e-05_rb,1.1403e-04_rb, &
+     &1.3730e-04_rb,1.5986e-04_rb,1.4966e-04_rb/)
+      kao(:, 4, 2, 3) = (/ &
+     &5.2863e-06_rb,4.0536e-05_rb,6.2133e-05_rb,8.0760e-05_rb,9.8821e-05_rb,1.1724e-04_rb, &
+     &1.3737e-04_rb,1.6656e-04_rb,1.5208e-04_rb/)
+      kao(:, 5, 2, 3) = (/ &
+     &5.4310e-06_rb,4.1540e-05_rb,6.3967e-05_rb,8.3433e-05_rb,1.0178e-04_rb,1.2080e-04_rb, &
+     &1.4142e-04_rb,1.7063e-04_rb,1.5631e-04_rb/)
+      kao(:, 1, 3, 3) = (/ &
+     &8.9186e-06_rb,4.5407e-05_rb,6.3526e-05_rb,7.8550e-05_rb,9.1618e-05_rb,1.0496e-04_rb, &
+     &1.2158e-04_rb,1.3284e-04_rb,1.2340e-04_rb/)
+      kao(:, 2, 3, 3) = (/ &
+     &9.2443e-06_rb,4.6508e-05_rb,6.4784e-05_rb,8.0506e-05_rb,9.3613e-05_rb,1.0642e-04_rb, &
+     &1.2005e-04_rb,1.3711e-04_rb,1.2632e-04_rb/)
+      kao(:, 3, 3, 3) = (/ &
+     &9.5550e-06_rb,4.7677e-05_rb,6.6548e-05_rb,8.2736e-05_rb,9.6188e-05_rb,1.0877e-04_rb, &
+     &1.2156e-04_rb,1.4196e-04_rb,1.2696e-04_rb/)
+      kao(:, 4, 3, 3) = (/ &
+     &9.9051e-06_rb,4.8778e-05_rb,6.8112e-05_rb,8.4988e-05_rb,9.9246e-05_rb,1.1223e-04_rb, &
+     &1.2463e-04_rb,1.4159e-04_rb,1.2947e-04_rb/)
+      kao(:, 5, 3, 3) = (/ &
+     &1.0162e-05_rb,4.9942e-05_rb,6.9999e-05_rb,8.7421e-05_rb,1.0238e-04_rb,1.1576e-04_rb, &
+     &1.2839e-04_rb,1.4461e-04_rb,1.3351e-04_rb/)
+      kao(:, 1, 4, 3) = (/ &
+     &1.6753e-05_rb,5.8237e-05_rb,7.6272e-05_rb,8.8204e-05_rb,9.8762e-05_rb,1.0698e-04_rb, &
+     &1.1349e-04_rb,1.2379e-04_rb,1.0697e-04_rb/)
+      kao(:, 2, 4, 3) = (/ &
+     &1.7441e-05_rb,5.9610e-05_rb,7.7972e-05_rb,9.0358e-05_rb,1.0097e-04_rb,1.0919e-04_rb, &
+     &1.1491e-04_rb,1.2294e-04_rb,1.0628e-04_rb/)
+      kao(:, 3, 4, 3) = (/ &
+     &1.8082e-05_rb,6.1175e-05_rb,7.9988e-05_rb,9.2267e-05_rb,1.0332e-04_rb,1.1211e-04_rb, &
+     &1.1776e-04_rb,1.2346e-04_rb,1.0729e-04_rb/)
+      kao(:, 4, 4, 3) = (/ &
+     &1.8658e-05_rb,6.2685e-05_rb,8.1816e-05_rb,9.5481e-05_rb,1.0615e-04_rb,1.1496e-04_rb, &
+     &1.2097e-04_rb,1.2608e-04_rb,1.1024e-04_rb/)
+      kao(:, 5, 4, 3) = (/ &
+     &1.9340e-05_rb,6.4673e-05_rb,8.3970e-05_rb,9.8481e-05_rb,1.0873e-04_rb,1.1832e-04_rb, &
+     &1.2499e-04_rb,1.2979e-04_rb,1.1362e-04_rb/)
+      kao(:, 1, 5, 3) = (/ &
+     &2.8523e-05_rb,7.5471e-05_rb,9.2112e-05_rb,1.0383e-04_rb,1.0948e-04_rb,1.1290e-04_rb, &
+     &1.1403e-04_rb,1.1277e-04_rb,8.7972e-05_rb/)
+      kao(:, 2, 5, 3) = (/ &
+     &2.9775e-05_rb,7.7638e-05_rb,9.4306e-05_rb,1.0580e-04_rb,1.1226e-04_rb,1.1540e-04_rb, &
+     &1.1664e-04_rb,1.1378e-04_rb,8.7781e-05_rb/)
+      kao(:, 3, 5, 3) = (/ &
+     &3.1032e-05_rb,7.9995e-05_rb,9.6878e-05_rb,1.0807e-04_rb,1.1530e-04_rb,1.1833e-04_rb, &
+     &1.1968e-04_rb,1.1643e-04_rb,8.9738e-05_rb/)
+      kao(:, 4, 5, 3) = (/ &
+     &3.2122e-05_rb,8.2389e-05_rb,9.9387e-05_rb,1.1070e-04_rb,1.1849e-04_rb,1.2073e-04_rb, &
+     &1.2266e-04_rb,1.1931e-04_rb,9.1761e-05_rb/)
+      kao(:, 5, 5, 3) = (/ &
+     &3.3412e-05_rb,8.5294e-05_rb,1.0214e-04_rb,1.1395e-04_rb,1.2220e-04_rb,1.2513e-04_rb, &
+     &1.2589e-04_rb,1.2317e-04_rb,9.4332e-05_rb/)
+      kao(:, 1, 6, 3) = (/ &
+     &4.4933e-05_rb,9.9737e-05_rb,1.1255e-04_rb,1.2118e-04_rb,1.2554e-04_rb,1.2364e-04_rb, &
+     &1.1791e-04_rb,1.0852e-04_rb,7.4135e-05_rb/)
+      kao(:, 2, 6, 3) = (/ &
+     &4.7071e-05_rb,1.0236e-04_rb,1.1567e-04_rb,1.2397e-04_rb,1.2766e-04_rb,1.2658e-04_rb, &
+     &1.2060e-04_rb,1.1056e-04_rb,7.5435e-05_rb/)
+      kao(:, 3, 6, 3) = (/ &
+     &4.9151e-05_rb,1.0514e-04_rb,1.1921e-04_rb,1.2711e-04_rb,1.3040e-04_rb,1.2992e-04_rb, &
+     &1.2331e-04_rb,1.1371e-04_rb,7.6849e-05_rb/)
+      kao(:, 4, 6, 3) = (/ &
+     &5.1024e-05_rb,1.0807e-04_rb,1.2306e-04_rb,1.3034e-04_rb,1.3370e-04_rb,1.3344e-04_rb, &
+     &1.2682e-04_rb,1.1612e-04_rb,7.8630e-05_rb/)
+      kao(:, 5, 6, 3) = (/ &
+     &5.2854e-05_rb,1.1144e-04_rb,1.2670e-04_rb,1.3361e-04_rb,1.3751e-04_rb,1.3677e-04_rb, &
+     &1.3113e-04_rb,1.1903e-04_rb,8.1063e-05_rb/)
+      kao(:, 1, 7, 3) = (/ &
+     &7.4131e-05_rb,1.3771e-04_rb,1.5135e-04_rb,1.5339e-04_rb,1.5199e-04_rb,1.4542e-04_rb, &
+     &1.3212e-04_rb,1.1157e-04_rb,6.3305e-05_rb/)
+      kao(:, 2, 7, 3) = (/ &
+     &7.8122e-05_rb,1.4080e-04_rb,1.5542e-04_rb,1.5789e-04_rb,1.5525e-04_rb,1.4808e-04_rb, &
+     &1.3571e-04_rb,1.1400e-04_rb,6.4305e-05_rb/)
+      kao(:, 3, 7, 3) = (/ &
+     &8.1792e-05_rb,1.4429e-04_rb,1.5980e-04_rb,1.6259e-04_rb,1.5930e-04_rb,1.5173e-04_rb, &
+     &1.3906e-04_rb,1.1682e-04_rb,6.5778e-05_rb/)
+      kao(:, 4, 7, 3) = (/ &
+     &8.5102e-05_rb,1.4854e-04_rb,1.6447e-04_rb,1.6719e-04_rb,1.6365e-04_rb,1.5623e-04_rb, &
+     &1.4249e-04_rb,1.1910e-04_rb,6.8216e-05_rb/)
+      kao(:, 5, 7, 3) = (/ &
+     &8.8343e-05_rb,1.5302e-04_rb,1.6961e-04_rb,1.7246e-04_rb,1.6859e-04_rb,1.6045e-04_rb, &
+     &1.4567e-04_rb,1.2333e-04_rb,7.0812e-05_rb/)
+      kao(:, 1, 8, 3) = (/ &
+     &1.4407e-04_rb,2.1929e-04_rb,2.3408e-04_rb,2.3175e-04_rb,2.1747e-04_rb,1.9684e-04_rb, &
+     &1.7181e-04_rb,1.3227e-04_rb,5.5189e-05_rb/)
+      kao(:, 2, 8, 3) = (/ &
+     &1.5218e-04_rb,2.2535e-04_rb,2.3947e-04_rb,2.3742e-04_rb,2.2354e-04_rb,2.0175e-04_rb, &
+     &1.7481e-04_rb,1.3567e-04_rb,5.7508e-05_rb/)
+      kao(:, 3, 8, 3) = (/ &
+     &1.5981e-04_rb,2.3168e-04_rb,2.4529e-04_rb,2.4373e-04_rb,2.2990e-04_rb,2.0756e-04_rb, &
+     &1.7860e-04_rb,1.3869e-04_rb,5.9914e-05_rb/)
+      kao(:, 4, 8, 3) = (/ &
+     &1.6710e-04_rb,2.3880e-04_rb,2.5211e-04_rb,2.5020e-04_rb,2.3684e-04_rb,2.1373e-04_rb, &
+     &1.8326e-04_rb,1.4183e-04_rb,6.3164e-05_rb/)
+      kao(:, 5, 8, 3) = (/ &
+     &1.7380e-04_rb,2.4599e-04_rb,2.5929e-04_rb,2.5766e-04_rb,2.4400e-04_rb,2.1994e-04_rb, &
+     &1.8763e-04_rb,1.4519e-04_rb,6.6105e-05_rb/)
+      kao(:, 1, 9, 3) = (/ &
+     &5.2627e-04_rb,6.1534e-04_rb,6.0941e-04_rb,5.7646e-04_rb,5.2415e-04_rb,4.5407e-04_rb, &
+     &3.6135e-04_rb,2.4279e-04_rb,6.7993e-05_rb/)
+      kao(:, 2, 9, 3) = (/ &
+     &5.5864e-04_rb,6.4193e-04_rb,6.3124e-04_rb,5.9396e-04_rb,5.3793e-04_rb,4.6535e-04_rb, &
+     &3.7115e-04_rb,2.4862e-04_rb,7.5217e-05_rb/)
+      kao(:, 3, 9, 3) = (/ &
+     &5.8842e-04_rb,6.6676e-04_rb,6.5277e-04_rb,6.1271e-04_rb,5.5239e-04_rb,4.7636e-04_rb, &
+     &3.8150e-04_rb,2.5543e-04_rb,8.1799e-05_rb/)
+      kao(:, 4, 9, 3) = (/ &
+     &6.1785e-04_rb,6.9166e-04_rb,6.7437e-04_rb,6.3091e-04_rb,5.6815e-04_rb,4.8941e-04_rb, &
+     &3.9213e-04_rb,2.6284e-04_rb,8.7598e-05_rb/)
+      kao(:, 5, 9, 3) = (/ &
+     &6.4520e-04_rb,7.1602e-04_rb,6.9663e-04_rb,6.4913e-04_rb,5.8418e-04_rb,5.0317e-04_rb, &
+     &4.0334e-04_rb,2.7060e-04_rb,9.2801e-05_rb/)
+      kao(:, 1,10, 3) = (/ &
+     &2.1645e-03_rb,2.1618e-03_rb,2.0014e-03_rb,1.7923e-03_rb,1.5495e-03_rb,1.2769e-03_rb, &
+     &9.6609e-04_rb,6.0453e-04_rb,1.0410e-04_rb/)
+      kao(:, 2,10, 3) = (/ &
+     &2.3095e-03_rb,2.2836e-03_rb,2.1017e-03_rb,1.8749e-03_rb,1.6151e-03_rb,1.3240e-03_rb, &
+     &9.9711e-04_rb,6.2160e-04_rb,1.1408e-04_rb/)
+      kao(:, 3,10, 3) = (/ &
+     &2.4464e-03_rb,2.3906e-03_rb,2.1944e-03_rb,1.9559e-03_rb,1.6773e-03_rb,1.3715e-03_rb, &
+     &1.0290e-03_rb,6.3832e-04_rb,1.2224e-04_rb/)
+      kao(:, 4,10, 3) = (/ &
+     &2.5757e-03_rb,2.5009e-03_rb,2.2880e-03_rb,2.0317e-03_rb,1.7417e-03_rb,1.4189e-03_rb, &
+     &1.0630e-03_rb,6.5627e-04_rb,1.3004e-04_rb/)
+      kao(:, 5,10, 3) = (/ &
+     &2.6938e-03_rb,2.6117e-03_rb,2.3825e-03_rb,2.1099e-03_rb,1.8067e-03_rb,1.4685e-03_rb, &
+     &1.0955e-03_rb,6.7426e-04_rb,1.3892e-04_rb/)
+      kao(:, 1,11, 3) = (/ &
+     &3.2925e-03_rb,3.1585e-03_rb,2.8624e-03_rb,2.5152e-03_rb,2.1339e-03_rb,1.7245e-03_rb, &
+     &1.2749e-03_rb,7.7353e-04_rb,1.1570e-04_rb/)
+      kao(:, 2,11, 3) = (/ &
+     &3.4939e-03_rb,3.3275e-03_rb,2.9995e-03_rb,2.6330e-03_rb,2.2285e-03_rb,1.7928e-03_rb, &
+     &1.3221e-03_rb,7.9717e-04_rb,1.2609e-04_rb/)
+      kao(:, 3,11, 3) = (/ &
+     &3.6814e-03_rb,3.4852e-03_rb,3.1333e-03_rb,2.7438e-03_rb,2.3219e-03_rb,1.8667e-03_rb, &
+     &1.3711e-03_rb,8.2069e-04_rb,1.3849e-04_rb/)
+      kao(:, 4,11, 3) = (/ &
+     &3.8717e-03_rb,3.6472e-03_rb,3.2720e-03_rb,2.8608e-03_rb,2.4167e-03_rb,1.9357e-03_rb, &
+     &1.4194e-03_rb,8.4717e-04_rb,1.4796e-04_rb/)
+      kao(:, 5,11, 3) = (/ &
+     &4.0507e-03_rb,3.8076e-03_rb,3.4109e-03_rb,2.9754e-03_rb,2.5103e-03_rb,2.0111e-03_rb, &
+     &1.4691e-03_rb,8.7324e-04_rb,1.5498e-04_rb/)
+      kao(:, 1,12, 3) = (/ &
+     &3.6937e-03_rb,3.5033e-03_rb,3.1460e-03_rb,2.7421e-03_rb,2.3088e-03_rb,1.8436e-03_rb, &
+     &1.3493e-03_rb,8.0094e-04_rb,1.1298e-04_rb/)
+      kao(:, 2,12, 3) = (/ &
+     &3.9154e-03_rb,3.6887e-03_rb,3.2999e-03_rb,2.8717e-03_rb,2.4149e-03_rb,1.9245e-03_rb, &
+     &1.4017e-03_rb,8.2771e-04_rb,1.2419e-04_rb/)
+      kao(:, 3,12, 3) = (/ &
+     &4.1285e-03_rb,3.8698e-03_rb,3.4585e-03_rb,3.0012e-03_rb,2.5199e-03_rb,2.0022e-03_rb, &
+     &1.4553e-03_rb,8.5423e-04_rb,1.3225e-04_rb/)
+      kao(:, 4,12, 3) = (/ &
+     &4.3384e-03_rb,4.0509e-03_rb,3.6103e-03_rb,3.1297e-03_rb,2.6243e-03_rb,2.0861e-03_rb, &
+     &1.5110e-03_rb,8.8306e-04_rb,1.4212e-04_rb/)
+      kao(:, 5,12, 3) = (/ &
+     &4.5406e-03_rb,4.2341e-03_rb,3.7730e-03_rb,3.2693e-03_rb,2.7384e-03_rb,2.1705e-03_rb, &
+     &1.5683e-03_rb,9.1255e-04_rb,1.5213e-04_rb/)
+      kao(:, 1,13, 3) = (/ &
+     &3.2602e-03_rb,3.0914e-03_rb,2.7797e-03_rb,2.4220e-03_rb,2.0389e-03_rb,1.6288e-03_rb, &
+     &1.1889e-03_rb,7.0223e-04_rb,9.9450e-05_rb/)
+      kao(:, 2,13, 3) = (/ &
+     &3.4542e-03_rb,3.2567e-03_rb,2.9218e-03_rb,2.5424e-03_rb,2.1356e-03_rb,1.7009e-03_rb, &
+     &1.2356e-03_rb,7.2786e-04_rb,1.0781e-04_rb/)
+      kao(:, 3,13, 3) = (/ &
+     &3.6454e-03_rb,3.4269e-03_rb,3.0649e-03_rb,2.6592e-03_rb,2.2314e-03_rb,1.7744e-03_rb, &
+     &1.2855e-03_rb,7.5225e-04_rb,1.1667e-04_rb/)
+      kao(:, 4,13, 3) = (/ &
+     &3.8341e-03_rb,3.5875e-03_rb,3.2022e-03_rb,2.7784e-03_rb,2.3283e-03_rb,1.8470e-03_rb, &
+     &1.3345e-03_rb,7.7860e-04_rb,1.2556e-04_rb/)
+      kao(:, 5,13, 3) = (/ &
+     &4.0097e-03_rb,3.7448e-03_rb,3.3397e-03_rb,2.8965e-03_rb,2.4238e-03_rb,1.9205e-03_rb, &
+     &1.3873e-03_rb,8.0728e-04_rb,1.3156e-04_rb/)
+      kao(:, 1, 1, 4) = (/ &
+     &7.6190e-06_rb,7.2707e-05_rb,1.2159e-04_rb,1.6797e-04_rb,2.1749e-04_rb,2.7232e-04_rb, &
+     &3.3756e-04_rb,4.5000e-04_rb,3.7863e-04_rb/)
+      kao(:, 2, 1, 4) = (/ &
+     &7.7938e-06_rb,7.4481e-05_rb,1.2500e-04_rb,1.7416e-04_rb,2.2412e-04_rb,2.7984e-04_rb, &
+     &3.4630e-04_rb,4.4903e-04_rb,3.8823e-04_rb/)
+      kao(:, 3, 1, 4) = (/ &
+     &8.0028e-06_rb,7.6115e-05_rb,1.2829e-04_rb,1.8057e-04_rb,2.3237e-04_rb,2.8607e-04_rb, &
+     &3.5506e-04_rb,4.5741e-04_rb,3.9983e-04_rb/)
+      kao(:, 4, 1, 4) = (/ &
+     &8.1270e-06_rb,7.7997e-05_rb,1.3160e-04_rb,1.8544e-04_rb,2.4027e-04_rb,2.9656e-04_rb, &
+     &3.6016e-04_rb,4.6576e-04_rb,4.1176e-04_rb/)
+      kao(:, 5, 1, 4) = (/ &
+     &8.2916e-06_rb,8.0436e-05_rb,1.3585e-04_rb,1.9127e-04_rb,2.4691e-04_rb,3.0708e-04_rb, &
+     &3.7489e-04_rb,4.7422e-04_rb,4.3091e-04_rb/)
+      kao(:, 1, 2, 4) = (/ &
+     &1.0434e-05_rb,7.3238e-05_rb,1.1625e-04_rb,1.5526e-04_rb,1.9383e-04_rb,2.3419e-04_rb, &
+     &2.8405e-04_rb,3.6155e-04_rb,3.1532e-04_rb/)
+      kao(:, 2, 2, 4) = (/ &
+     &1.0681e-05_rb,7.5036e-05_rb,1.1854e-04_rb,1.5997e-04_rb,2.0074e-04_rb,2.4144e-04_rb, &
+     &2.9129e-04_rb,3.7038e-04_rb,3.2501e-04_rb/)
+      kao(:, 3, 2, 4) = (/ &
+     &1.0988e-05_rb,7.7182e-05_rb,1.2126e-04_rb,1.6374e-04_rb,2.0655e-04_rb,2.5052e-04_rb, &
+     &2.9566e-04_rb,3.7520e-04_rb,3.3554e-04_rb/)
+      kao(:, 4, 2, 4) = (/ &
+     &1.1243e-05_rb,7.9396e-05_rb,1.2452e-04_rb,1.6827e-04_rb,2.1213e-04_rb,2.5807e-04_rb, &
+     &3.0951e-04_rb,3.7973e-04_rb,3.4985e-04_rb/)
+      kao(:, 5, 2, 4) = (/ &
+     &1.1433e-05_rb,8.1733e-05_rb,1.2847e-04_rb,1.7400e-04_rb,2.1976e-04_rb,2.6675e-04_rb, &
+     &3.1873e-04_rb,3.9060e-04_rb,3.6531e-04_rb/)
+      kao(:, 1, 3, 4) = (/ &
+     &1.9121e-05_rb,8.5930e-05_rb,1.2401e-04_rb,1.5771e-04_rb,1.8803e-04_rb,2.1587e-04_rb, &
+     &2.4191e-04_rb,2.8659e-04_rb,2.6000e-04_rb/)
+      kao(:, 2, 3, 4) = (/ &
+     &1.9555e-05_rb,8.7968e-05_rb,1.2724e-04_rb,1.6033e-04_rb,1.9279e-04_rb,2.2305e-04_rb, &
+     &2.5217e-04_rb,2.9281e-04_rb,2.6982e-04_rb/)
+      kao(:, 3, 3, 4) = (/ &
+     &2.0014e-05_rb,9.0319e-05_rb,1.3030e-04_rb,1.6432e-04_rb,1.9658e-04_rb,2.2814e-04_rb, &
+     &2.6130e-04_rb,2.9767e-04_rb,2.8111e-04_rb/)
+      kao(:, 4, 3, 4) = (/ &
+     &2.0629e-05_rb,9.3145e-05_rb,1.3414e-04_rb,1.6939e-04_rb,2.0212e-04_rb,2.3402e-04_rb, &
+     &2.6796e-04_rb,3.0992e-04_rb,2.9328e-04_rb/)
+      kao(:, 5, 3, 4) = (/ &
+     &2.0980e-05_rb,9.5719e-05_rb,1.3796e-04_rb,1.7464e-04_rb,2.0857e-04_rb,2.4205e-04_rb, &
+     &2.7670e-04_rb,3.1994e-04_rb,3.0523e-04_rb/)
+      kao(:, 1, 4, 4) = (/ &
+     &3.5480e-05_rb,1.1130e-04_rb,1.4459e-04_rb,1.7323e-04_rb,1.9468e-04_rb,2.1444e-04_rb, &
+     &2.2966e-04_rb,2.4128e-04_rb,2.1617e-04_rb/)
+      kao(:, 2, 4, 4) = (/ &
+     &3.6323e-05_rb,1.1358e-04_rb,1.4824e-04_rb,1.7664e-04_rb,1.9952e-04_rb,2.1840e-04_rb, &
+     &2.3716e-04_rb,2.5075e-04_rb,2.2864e-04_rb/)
+      kao(:, 3, 4, 4) = (/ &
+     &3.7216e-05_rb,1.1624e-04_rb,1.5219e-04_rb,1.8108e-04_rb,2.0484e-04_rb,2.2378e-04_rb, &
+     &2.4107e-04_rb,2.5972e-04_rb,2.3687e-04_rb/)
+      kao(:, 4, 4, 4) = (/ &
+     &3.8132e-05_rb,1.1926e-04_rb,1.5631e-04_rb,1.8514e-04_rb,2.0992e-04_rb,2.3030e-04_rb, &
+     &2.4787e-04_rb,2.6623e-04_rb,2.4575e-04_rb/)
+      kao(:, 5, 4, 4) = (/ &
+     &3.9332e-05_rb,1.2292e-04_rb,1.6148e-04_rb,1.9104e-04_rb,2.1696e-04_rb,2.3764e-04_rb, &
+     &2.5623e-04_rb,2.7468e-04_rb,2.5520e-04_rb/)
+      kao(:, 1, 5, 4) = (/ &
+     &6.0558e-05_rb,1.4537e-04_rb,1.7679e-04_rb,1.9677e-04_rb,2.1242e-04_rb,2.2290e-04_rb, &
+     &2.2712e-04_rb,2.2468e-04_rb,1.8402e-04_rb/)
+      kao(:, 2, 5, 4) = (/ &
+     &6.2024e-05_rb,1.4763e-04_rb,1.8049e-04_rb,2.0169e-04_rb,2.1740e-04_rb,2.2816e-04_rb, &
+     &2.3141e-04_rb,2.3210e-04_rb,1.9363e-04_rb/)
+      kao(:, 3, 5, 4) = (/ &
+     &6.3560e-05_rb,1.5048e-04_rb,1.8446e-04_rb,2.0674e-04_rb,2.2245e-04_rb,2.3297e-04_rb, &
+     &2.3732e-04_rb,2.3625e-04_rb,1.9953e-04_rb/)
+      kao(:, 4, 5, 4) = (/ &
+     &6.5197e-05_rb,1.5389e-04_rb,1.8956e-04_rb,2.1242e-04_rb,2.2805e-04_rb,2.3893e-04_rb, &
+     &2.4394e-04_rb,2.4242e-04_rb,2.0731e-04_rb/)
+      kao(:, 5, 5, 4) = (/ &
+     &6.7408e-05_rb,1.5860e-04_rb,1.9588e-04_rb,2.1916e-04_rb,2.3481e-04_rb,2.4604e-04_rb, &
+     &2.5157e-04_rb,2.5058e-04_rb,2.1479e-04_rb/)
+      kao(:, 1, 6, 4) = (/ &
+     &9.6086e-05_rb,1.8511e-04_rb,2.1787e-04_rb,2.3286e-04_rb,2.3898e-04_rb,2.3907e-04_rb, &
+     &2.3360e-04_rb,2.1667e-04_rb,1.5583e-04_rb/)
+      kao(:, 2, 6, 4) = (/ &
+     &9.8537e-05_rb,1.8825e-04_rb,2.2157e-04_rb,2.3776e-04_rb,2.4456e-04_rb,2.4422e-04_rb, &
+     &2.3850e-04_rb,2.2088e-04_rb,1.6156e-04_rb/)
+      kao(:, 3, 6, 4) = (/ &
+     &1.0106e-04_rb,1.9192e-04_rb,2.2599e-04_rb,2.4309e-04_rb,2.5072e-04_rb,2.5018e-04_rb, &
+     &2.4346e-04_rb,2.2608e-04_rb,1.6736e-04_rb/)
+      kao(:, 4, 6, 4) = (/ &
+     &1.0368e-04_rb,1.9610e-04_rb,2.3144e-04_rb,2.4948e-04_rb,2.5710e-04_rb,2.5653e-04_rb, &
+     &2.4933e-04_rb,2.3314e-04_rb,1.7404e-04_rb/)
+      kao(:, 5, 6, 4) = (/ &
+     &1.0646e-04_rb,2.0089e-04_rb,2.3770e-04_rb,2.5701e-04_rb,2.6421e-04_rb,2.6433e-04_rb, &
+     &2.5582e-04_rb,2.4028e-04_rb,1.7876e-04_rb/)
+      kao(:, 1, 7, 4) = (/ &
+     &1.6042e-04_rb,2.5585e-04_rb,2.8519e-04_rb,2.9642e-04_rb,2.9350e-04_rb,2.7913e-04_rb, &
+     &2.5601e-04_rb,2.2211e-04_rb,1.3626e-04_rb/)
+      kao(:, 2, 7, 4) = (/ &
+     &1.6465e-04_rb,2.6056e-04_rb,2.8988e-04_rb,3.0133e-04_rb,2.9907e-04_rb,2.8588e-04_rb, &
+     &2.6187e-04_rb,2.2729e-04_rb,1.4135e-04_rb/)
+      kao(:, 3, 7, 4) = (/ &
+     &1.6901e-04_rb,2.6578e-04_rb,2.9572e-04_rb,3.0741e-04_rb,3.0551e-04_rb,2.9184e-04_rb, &
+     &2.6817e-04_rb,2.3205e-04_rb,1.4656e-04_rb/)
+      kao(:, 4, 7, 4) = (/ &
+     &1.7367e-04_rb,2.7110e-04_rb,3.0239e-04_rb,3.1497e-04_rb,3.1315e-04_rb,2.9895e-04_rb, &
+     &2.7506e-04_rb,2.3781e-04_rb,1.5059e-04_rb/)
+      kao(:, 5, 7, 4) = (/ &
+     &1.7865e-04_rb,2.7756e-04_rb,3.1008e-04_rb,3.2315e-04_rb,3.2186e-04_rb,3.0753e-04_rb, &
+     &2.8375e-04_rb,2.4404e-04_rb,1.5550e-04_rb/)
+      kao(:, 1, 8, 4) = (/ &
+     &3.1654e-04_rb,4.1629e-04_rb,4.3839e-04_rb,4.3773e-04_rb,4.1826e-04_rb,3.8213e-04_rb, &
+     &3.2793e-04_rb,2.5576e-04_rb,1.2647e-04_rb/)
+      kao(:, 2, 8, 4) = (/ &
+     &3.2537e-04_rb,4.2537e-04_rb,4.4661e-04_rb,4.4494e-04_rb,4.2500e-04_rb,3.8879e-04_rb, &
+     &3.3490e-04_rb,2.6206e-04_rb,1.2938e-04_rb/)
+      kao(:, 3, 8, 4) = (/ &
+     &3.3408e-04_rb,4.3504e-04_rb,4.5626e-04_rb,4.5382e-04_rb,4.3360e-04_rb,3.9751e-04_rb, &
+     &3.4272e-04_rb,2.6854e-04_rb,1.3239e-04_rb/)
+      kao(:, 4, 8, 4) = (/ &
+     &3.4318e-04_rb,4.4480e-04_rb,4.6645e-04_rb,4.6411e-04_rb,4.4358e-04_rb,4.0695e-04_rb, &
+     &3.5185e-04_rb,2.7598e-04_rb,1.3521e-04_rb/)
+      kao(:, 5, 8, 4) = (/ &
+     &3.5364e-04_rb,4.5591e-04_rb,4.7748e-04_rb,4.7551e-04_rb,4.5523e-04_rb,4.1803e-04_rb, &
+     &3.6238e-04_rb,2.8454e-04_rb,1.3901e-04_rb/)
+      kao(:, 1, 9, 4) = (/ &
+     &1.1778e-03_rb,1.2542e-03_rb,1.1993e-03_rb,1.1088e-03_rb,9.9621e-04_rb,8.5814e-04_rb, &
+     &6.9027e-04_rb,4.7338e-04_rb,1.4222e-04_rb/)
+      kao(:, 2, 9, 4) = (/ &
+     &1.2148e-03_rb,1.2865e-03_rb,1.2285e-03_rb,1.1318e-03_rb,1.0140e-03_rb,8.7230e-04_rb, &
+     &7.0194e-04_rb,4.8264e-04_rb,1.4691e-04_rb/)
+      kao(:, 3, 9, 4) = (/ &
+     &1.2493e-03_rb,1.3197e-03_rb,1.2603e-03_rb,1.1590e-03_rb,1.0363e-03_rb,8.9016e-04_rb, &
+     &7.1481e-04_rb,4.9330e-04_rb,1.5194e-04_rb/)
+      kao(:, 4, 9, 4) = (/ &
+     &1.2842e-03_rb,1.3516e-03_rb,1.2898e-03_rb,1.1881e-03_rb,1.0607e-03_rb,9.1030e-04_rb, &
+     &7.3056e-04_rb,5.0488e-04_rb,1.5874e-04_rb/)
+      kao(:, 5, 9, 4) = (/ &
+     &1.3233e-03_rb,1.3878e-03_rb,1.3225e-03_rb,1.2203e-03_rb,1.0882e-03_rb,9.3354e-04_rb, &
+     &7.4949e-04_rb,5.1819e-04_rb,1.6715e-04_rb/)
+      kao(:, 1,10, 4) = (/ &
+     &4.9223e-03_rb,4.6924e-03_rb,4.2372e-03_rb,3.7210e-03_rb,3.1598e-03_rb,2.5466e-03_rb, &
+     &1.8894e-03_rb,1.1610e-03_rb,2.5902e-04_rb/)
+      kao(:, 2,10, 4) = (/ &
+     &5.1019e-03_rb,4.8420e-03_rb,4.3700e-03_rb,3.8242e-03_rb,3.2382e-03_rb,2.6075e-03_rb, &
+     &1.9274e-03_rb,1.1773e-03_rb,2.7993e-04_rb/)
+      kao(:, 3,10, 4) = (/ &
+     &5.2624e-03_rb,4.9912e-03_rb,4.4976e-03_rb,3.9326e-03_rb,3.3295e-03_rb,2.6789e-03_rb, &
+     &1.9739e-03_rb,1.2013e-03_rb,2.9275e-04_rb/)
+      kao(:, 4,10, 4) = (/ &
+     &5.4202e-03_rb,5.1325e-03_rb,4.6211e-03_rb,4.0415e-03_rb,3.4179e-03_rb,2.7474e-03_rb, &
+     &2.0231e-03_rb,1.2303e-03_rb,3.0514e-04_rb/)
+      kao(:, 5,10, 4) = (/ &
+     &5.5922e-03_rb,5.2716e-03_rb,4.7430e-03_rb,4.1489e-03_rb,3.5047e-03_rb,2.8180e-03_rb, &
+     &2.0794e-03_rb,1.2643e-03_rb,3.1858e-04_rb/)
+      kao(:, 1,11, 4) = (/ &
+     &7.2623e-03_rb,6.7979e-03_rb,6.0744e-03_rb,5.2843e-03_rb,4.4298e-03_rb,3.5303e-03_rb, &
+     &2.5670e-03_rb,1.5127e-03_rb,3.1480e-04_rb/)
+      kao(:, 2,11, 4) = (/ &
+     &7.5607e-03_rb,7.0506e-03_rb,6.2894e-03_rb,5.4629e-03_rb,4.5682e-03_rb,3.6306e-03_rb, &
+     &2.6328e-03_rb,1.5436e-03_rb,3.2537e-04_rb/)
+      kao(:, 3,11, 4) = (/ &
+     &7.8471e-03_rb,7.2956e-03_rb,6.4988e-03_rb,5.6385e-03_rb,4.7125e-03_rb,3.7379e-03_rb, &
+     &2.7029e-03_rb,1.5776e-03_rb,3.3231e-04_rb/)
+      kao(:, 4,11, 4) = (/ &
+     &8.1128e-03_rb,7.5290e-03_rb,6.7020e-03_rb,5.8093e-03_rb,4.8535e-03_rb,3.8422e-03_rb, &
+     &2.7753e-03_rb,1.6189e-03_rb,3.4203e-04_rb/)
+      kao(:, 5,11, 4) = (/ &
+     &8.3759e-03_rb,7.7545e-03_rb,6.8899e-03_rb,5.9710e-03_rb,4.9875e-03_rb,3.9509e-03_rb, &
+     &2.8575e-03_rb,1.6684e-03_rb,3.5725e-04_rb/)
+      kao(:, 1,12, 4) = (/ &
+     &8.0096e-03_rb,7.4190e-03_rb,6.5933e-03_rb,5.7152e-03_rb,4.7757e-03_rb,3.7806e-03_rb, &
+     &2.7237e-03_rb,1.5850e-03_rb,3.0906e-04_rb/)
+      kao(:, 2,12, 4) = (/ &
+     &8.3245e-03_rb,7.6924e-03_rb,6.8377e-03_rb,5.9147e-03_rb,4.9319e-03_rb,3.8997e-03_rb, &
+     &2.8053e-03_rb,1.6213e-03_rb,3.1505e-04_rb/)
+      kao(:, 3,12, 4) = (/ &
+     &8.6504e-03_rb,7.9748e-03_rb,7.0681e-03_rb,6.1123e-03_rb,5.0902e-03_rb,4.0202e-03_rb, &
+     &2.8850e-03_rb,1.6649e-03_rb,3.2236e-04_rb/)
+      kao(:, 4,12, 4) = (/ &
+     &8.9354e-03_rb,8.2303e-03_rb,7.2913e-03_rb,6.2946e-03_rb,5.2436e-03_rb,4.1358e-03_rb, &
+     &2.9697e-03_rb,1.7144e-03_rb,3.2906e-04_rb/)
+      kao(:, 5,12, 4) = (/ &
+     &9.2169e-03_rb,8.4842e-03_rb,7.5093e-03_rb,6.4790e-03_rb,5.3967e-03_rb,4.2618e-03_rb, &
+     &3.0601e-03_rb,1.7687e-03_rb,3.3757e-04_rb/)
+      kao(:, 1,13, 4) = (/ &
+     &7.1631e-03_rb,6.6319e-03_rb,5.8920e-03_rb,5.0960e-03_rb,4.2500e-03_rb,3.3594e-03_rb, &
+     &2.4169e-03_rb,1.3985e-03_rb,2.7237e-04_rb/)
+      kao(:, 2,13, 4) = (/ &
+     &7.4650e-03_rb,6.8721e-03_rb,6.1020e-03_rb,5.2700e-03_rb,4.3954e-03_rb,3.4698e-03_rb, &
+     &2.4897e-03_rb,1.4341e-03_rb,2.7736e-04_rb/)
+      kao(:, 3,13, 4) = (/ &
+     &7.7609e-03_rb,7.1282e-03_rb,6.3106e-03_rb,5.4462e-03_rb,4.5330e-03_rb,3.5736e-03_rb, &
+     &2.5636e-03_rb,1.4770e-03_rb,2.8124e-04_rb/)
+      kao(:, 4,13, 4) = (/ &
+     &8.0101e-03_rb,7.3618e-03_rb,6.5123e-03_rb,5.6158e-03_rb,4.6733e-03_rb,3.6861e-03_rb, &
+     &2.6445e-03_rb,1.5233e-03_rb,2.8716e-04_rb/)
+      kao(:, 5,13, 4) = (/ &
+     &8.2606e-03_rb,7.6008e-03_rb,6.7314e-03_rb,5.7990e-03_rb,4.8288e-03_rb,3.8083e-03_rb, &
+     &2.7261e-03_rb,1.5712e-03_rb,2.9686e-04_rb/)
+      kao(:, 1, 1, 5) = (/ &
+     &1.3739e-05_rb,1.5137e-04_rb,2.5878e-04_rb,3.6225e-04_rb,4.6522e-04_rb,5.7109e-04_rb, &
+     &6.9199e-04_rb,8.4168e-04_rb,8.0480e-04_rb/)
+      kao(:, 2, 1, 5) = (/ &
+     &1.3888e-05_rb,1.5627e-04_rb,2.6885e-04_rb,3.7698e-04_rb,4.8125e-04_rb,5.9114e-04_rb, &
+     &7.1164e-04_rb,8.7936e-04_rb,8.3421e-04_rb/)
+      kao(:, 3, 1, 5) = (/ &
+     &1.4142e-05_rb,1.6264e-04_rb,2.8096e-04_rb,3.9281e-04_rb,5.0319e-04_rb,6.1580e-04_rb, &
+     &7.3800e-04_rb,9.1340e-04_rb,8.6788e-04_rb/)
+      kao(:, 4, 1, 5) = (/ &
+     &1.4278e-05_rb,1.6909e-04_rb,2.9347e-04_rb,4.1125e-04_rb,5.2641e-04_rb,6.4515e-04_rb, &
+     &7.7492e-04_rb,9.4989e-04_rb,9.0996e-04_rb/)
+      kao(:, 5, 1, 5) = (/ &
+     &1.4494e-05_rb,1.7605e-04_rb,3.0657e-04_rb,4.3067e-04_rb,5.5274e-04_rb,6.7670e-04_rb, &
+     &8.1211e-04_rb,9.9682e-04_rb,9.5292e-04_rb/)
+      kao(:, 1, 2, 5) = (/ &
+     &1.8692e-05_rb,1.5213e-04_rb,2.4704e-04_rb,3.3748e-04_rb,4.2434e-04_rb,5.1189e-04_rb, &
+     &6.0610e-04_rb,7.3668e-04_rb,6.9411e-04_rb/)
+      kao(:, 2, 2, 5) = (/ &
+     &1.8918e-05_rb,1.5679e-04_rb,2.5663e-04_rb,3.5044e-04_rb,4.4175e-04_rb,5.3243e-04_rb, &
+     &6.2710e-04_rb,7.5567e-04_rb,7.2022e-04_rb/)
+      kao(:, 3, 2, 5) = (/ &
+     &1.9322e-05_rb,1.6205e-04_rb,2.6764e-04_rb,3.6642e-04_rb,4.6108e-04_rb,5.5570e-04_rb, &
+     &6.5662e-04_rb,7.8535e-04_rb,7.5176e-04_rb/)
+      kao(:, 4, 2, 5) = (/ &
+     &1.9585e-05_rb,1.6765e-04_rb,2.7850e-04_rb,3.8286e-04_rb,4.8359e-04_rb,5.8272e-04_rb, &
+     &6.8652e-04_rb,8.2260e-04_rb,7.8717e-04_rb/)
+      kao(:, 5, 2, 5) = (/ &
+     &1.9818e-05_rb,1.7339e-04_rb,2.8992e-04_rb,3.9889e-04_rb,5.0485e-04_rb,6.1010e-04_rb, &
+     &7.2141e-04_rb,8.6363e-04_rb,8.2436e-04_rb/)
+      kao(:, 1, 3, 5) = (/ &
+     &3.4262e-05_rb,1.7533e-04_rb,2.6113e-04_rb,3.3571e-04_rb,4.0540e-04_rb,4.7229e-04_rb, &
+     &5.3818e-04_rb,6.1661e-04_rb,5.8845e-04_rb/)
+      kao(:, 2, 3, 5) = (/ &
+     &3.4716e-05_rb,1.7923e-04_rb,2.6899e-04_rb,3.4836e-04_rb,4.2096e-04_rb,4.9023e-04_rb, &
+     &5.6025e-04_rb,6.3703e-04_rb,6.0869e-04_rb/)
+      kao(:, 3, 3, 5) = (/ &
+     &3.5292e-05_rb,1.8347e-04_rb,2.7811e-04_rb,3.6147e-04_rb,4.3915e-04_rb,5.1242e-04_rb, &
+     &5.8378e-04_rb,6.6557e-04_rb,6.3564e-04_rb/)
+      kao(:, 4, 3, 5) = (/ &
+     &3.6120e-05_rb,1.8884e-04_rb,2.8797e-04_rb,3.7545e-04_rb,4.5740e-04_rb,5.3560e-04_rb, &
+     &6.1221e-04_rb,6.9822e-04_rb,6.6452e-04_rb/)
+      kao(:, 5, 3, 5) = (/ &
+     &3.6636e-05_rb,1.9428e-04_rb,2.9738e-04_rb,3.9013e-04_rb,4.7606e-04_rb,5.5790e-04_rb, &
+     &6.3990e-04_rb,7.3219e-04_rb,6.9591e-04_rb/)
+      kao(:, 1, 4, 5) = (/ &
+     &6.3937e-05_rb,2.1416e-04_rb,2.9895e-04_rb,3.6305e-04_rb,4.1697e-04_rb,4.6136e-04_rb, &
+     &4.9950e-04_rb,5.3752e-04_rb,4.9755e-04_rb/)
+      kao(:, 2, 4, 5) = (/ &
+     &6.4891e-05_rb,2.1788e-04_rb,3.0564e-04_rb,3.7373e-04_rb,4.2957e-04_rb,4.7819e-04_rb, &
+     &5.1730e-04_rb,5.5769e-04_rb,5.1340e-04_rb/)
+      kao(:, 3, 4, 5) = (/ &
+     &6.5931e-05_rb,2.2256e-04_rb,3.1273e-04_rb,3.8551e-04_rb,4.4411e-04_rb,4.9569e-04_rb, &
+     &5.4027e-04_rb,5.8134e-04_rb,5.3558e-04_rb/)
+      kao(:, 4, 4, 5) = (/ &
+     &6.7204e-05_rb,2.2716e-04_rb,3.2137e-04_rb,3.9776e-04_rb,4.6059e-04_rb,5.1431e-04_rb, &
+     &5.6246e-04_rb,6.0834e-04_rb,5.5897e-04_rb/)
+      kao(:, 5, 4, 5) = (/ &
+     &6.9088e-05_rb,2.3323e-04_rb,3.3076e-04_rb,4.1010e-04_rb,4.7742e-04_rb,5.3504e-04_rb, &
+     &5.8525e-04_rb,6.3600e-04_rb,5.8418e-04_rb/)
+      kao(:, 1, 5, 5) = (/ &
+     &1.0861e-04_rb,2.6518e-04_rb,3.4675e-04_rb,4.0531e-04_rb,4.4642e-04_rb,4.7448e-04_rb, &
+     &4.8963e-04_rb,4.9041e-04_rb,4.2330e-04_rb/)
+      kao(:, 2, 5, 5) = (/ &
+     &1.1058e-04_rb,2.6952e-04_rb,3.5268e-04_rb,4.1375e-04_rb,4.5888e-04_rb,4.8791e-04_rb, &
+     &5.0614e-04_rb,5.0767e-04_rb,4.3569e-04_rb/)
+      kao(:, 3, 5, 5) = (/ &
+     &1.1255e-04_rb,2.7465e-04_rb,3.6022e-04_rb,4.2322e-04_rb,4.7137e-04_rb,5.0379e-04_rb, &
+     &5.2287e-04_rb,5.2860e-04_rb,4.5259e-04_rb/)
+      kao(:, 4, 5, 5) = (/ &
+     &1.1490e-04_rb,2.8064e-04_rb,3.6839e-04_rb,4.3377e-04_rb,4.8454e-04_rb,5.2116e-04_rb, &
+     &5.4180e-04_rb,5.5017e-04_rb,4.7054e-04_rb/)
+      kao(:, 5, 5, 5) = (/ &
+     &1.1845e-04_rb,2.8778e-04_rb,3.7745e-04_rb,4.4611e-04_rb,4.9985e-04_rb,5.3937e-04_rb, &
+     &5.6277e-04_rb,5.7154e-04_rb,4.9105e-04_rb/)
+      kao(:, 1, 6, 5) = (/ &
+     &1.7235e-04_rb,3.3181e-04_rb,4.0736e-04_rb,4.5766e-04_rb,4.8926e-04_rb,5.0113e-04_rb, &
+     &4.9597e-04_rb,4.6976e-04_rb,3.5862e-04_rb/)
+      kao(:, 2, 6, 5) = (/ &
+     &1.7547e-04_rb,3.3667e-04_rb,4.1414e-04_rb,4.6509e-04_rb,4.9861e-04_rb,5.1384e-04_rb, &
+     &5.0976e-04_rb,4.8537e-04_rb,3.6976e-04_rb/)
+      kao(:, 3, 6, 5) = (/ &
+     &1.7903e-04_rb,3.4304e-04_rb,4.2198e-04_rb,4.7494e-04_rb,5.0792e-04_rb,5.2713e-04_rb, &
+     &5.2630e-04_rb,5.0120e-04_rb,3.8272e-04_rb/)
+      kao(:, 4, 6, 5) = (/ &
+     &1.8326e-04_rb,3.5076e-04_rb,4.3097e-04_rb,4.8545e-04_rb,5.2030e-04_rb,5.4158e-04_rb, &
+     &5.4362e-04_rb,5.1767e-04_rb,3.9660e-04_rb/)
+      kao(:, 5, 6, 5) = (/ &
+     &1.8798e-04_rb,3.5938e-04_rb,4.4150e-04_rb,4.9742e-04_rb,5.3429e-04_rb,5.5639e-04_rb, &
+     &5.6101e-04_rb,5.3674e-04_rb,4.1415e-04_rb/)
+      kao(:, 1, 7, 5) = (/ &
+     &2.9155e-04_rb,4.4941e-04_rb,5.1334e-04_rb,5.5160e-04_rb,5.6796e-04_rb,5.6534e-04_rb, &
+     &5.3624e-04_rb,4.7508e-04_rb,3.0367e-04_rb/)
+      kao(:, 2, 7, 5) = (/ &
+     &2.9728e-04_rb,4.5662e-04_rb,5.2104e-04_rb,5.6062e-04_rb,5.7827e-04_rb,5.7448e-04_rb, &
+     &5.4737e-04_rb,4.8748e-04_rb,3.1275e-04_rb/)
+      kao(:, 3, 7, 5) = (/ &
+     &3.0362e-04_rb,4.6646e-04_rb,5.3089e-04_rb,5.7148e-04_rb,5.9016e-04_rb,5.8669e-04_rb, &
+     &5.6081e-04_rb,5.0270e-04_rb,3.2221e-04_rb/)
+      kao(:, 4, 7, 5) = (/ &
+     &3.1074e-04_rb,4.7852e-04_rb,5.4299e-04_rb,5.8375e-04_rb,6.0313e-04_rb,6.0067e-04_rb, &
+     &5.7534e-04_rb,5.1934e-04_rb,3.3373e-04_rb/)
+      kao(:, 5, 7, 5) = (/ &
+     &3.1895e-04_rb,4.9180e-04_rb,5.5670e-04_rb,5.9847e-04_rb,6.1763e-04_rb,6.1617e-04_rb, &
+     &5.9045e-04_rb,5.3590e-04_rb,3.4594e-04_rb/)
+      kao(:, 1, 8, 5) = (/ &
+     &5.8477e-04_rb,7.4431e-04_rb,7.7278e-04_rb,7.7426e-04_rb,7.5736e-04_rb,7.1816e-04_rb, &
+     &6.5106e-04_rb,5.3737e-04_rb,2.7725e-04_rb/)
+      kao(:, 2, 8, 5) = (/ &
+     &5.9470e-04_rb,7.5491e-04_rb,7.8490e-04_rb,7.8595e-04_rb,7.6803e-04_rb,7.3022e-04_rb, &
+     &6.6291e-04_rb,5.4897e-04_rb,2.8497e-04_rb/)
+      kao(:, 3, 8, 5) = (/ &
+     &6.0851e-04_rb,7.7097e-04_rb,8.0204e-04_rb,8.0136e-04_rb,7.8218e-04_rb,7.4418e-04_rb, &
+     &6.7668e-04_rb,5.6182e-04_rb,2.9265e-04_rb/)
+      kao(:, 4, 8, 5) = (/ &
+     &6.2426e-04_rb,7.9122e-04_rb,8.2299e-04_rb,8.2167e-04_rb,7.9967e-04_rb,7.6040e-04_rb, &
+     &6.9192e-04_rb,5.7414e-04_rb,3.0175e-04_rb/)
+      kao(:, 5, 8, 5) = (/ &
+     &6.4049e-04_rb,8.1349e-04_rb,8.4675e-04_rb,8.4414e-04_rb,8.2107e-04_rb,7.7949e-04_rb, &
+     &7.0895e-04_rb,5.8878e-04_rb,3.1239e-04_rb/)
+      kao(:, 1, 9, 5) = (/ &
+     &2.2196e-03_rb,2.3078e-03_rb,2.1925e-03_rb,2.0227e-03_rb,1.7963e-03_rb,1.5336e-03_rb, &
+     &1.2354e-03_rb,8.8457e-04_rb,3.2582e-04_rb/)
+      kao(:, 2, 9, 5) = (/ &
+     &2.2570e-03_rb,2.3473e-03_rb,2.2277e-03_rb,2.0540e-03_rb,1.8274e-03_rb,1.5588e-03_rb, &
+     &1.2524e-03_rb,8.9724e-04_rb,3.2676e-04_rb/)
+      kao(:, 3, 9, 5) = (/ &
+     &2.3089e-03_rb,2.3978e-03_rb,2.2707e-03_rb,2.0928e-03_rb,1.8651e-03_rb,1.5919e-03_rb, &
+     &1.2779e-03_rb,9.1370e-04_rb,3.3500e-04_rb/)
+      kao(:, 4, 9, 5) = (/ &
+     &2.3733e-03_rb,2.4602e-03_rb,2.3315e-03_rb,2.1419e-03_rb,1.9119e-03_rb,1.6319e-03_rb, &
+     &1.3090e-03_rb,9.3384e-04_rb,3.3899e-04_rb/)
+      kao(:, 5, 9, 5) = (/ &
+     &2.4406e-03_rb,2.5271e-03_rb,2.3986e-03_rb,2.2033e-03_rb,1.9655e-03_rb,1.6770e-03_rb, &
+     &1.3445e-03_rb,9.5837e-04_rb,3.4762e-04_rb/)
+      kao(:, 1,10, 5) = (/ &
+     &9.4839e-03_rb,8.9137e-03_rb,7.9871e-03_rb,6.9719e-03_rb,5.8780e-03_rb,4.7134e-03_rb, &
+     &3.4759e-03_rb,2.1070e-03_rb,4.8830e-04_rb/)
+      kao(:, 2,10, 5) = (/ &
+     &9.6557e-03_rb,9.0801e-03_rb,8.1340e-03_rb,7.0972e-03_rb,5.9780e-03_rb,4.7945e-03_rb, &
+     &3.5398e-03_rb,2.1454e-03_rb,4.8857e-04_rb/)
+      kao(:, 3,10, 5) = (/ &
+     &9.8746e-03_rb,9.2754e-03_rb,8.2985e-03_rb,7.2339e-03_rb,6.1011e-03_rb,4.8911e-03_rb, &
+     &3.6103e-03_rb,2.1918e-03_rb,5.0136e-04_rb/)
+      kao(:, 4,10, 5) = (/ &
+     &1.0155e-02_rb,9.5179e-03_rb,8.5070e-03_rb,7.4122e-03_rb,6.2501e-03_rb,5.0174e-03_rb, &
+     &3.7003e-03_rb,2.2452e-03_rb,5.1609e-04_rb/)
+      kao(:, 5,10, 5) = (/ &
+     &1.0472e-02_rb,9.8032e-03_rb,8.7668e-03_rb,7.6331e-03_rb,6.4389e-03_rb,5.1659e-03_rb, &
+     &3.8012e-03_rb,2.3067e-03_rb,5.2606e-04_rb/)
+      kao(:, 1,11, 5) = (/ &
+     &1.4268e-02_rb,1.3170e-02_rb,1.1684e-02_rb,1.0078e-02_rb,8.4022e-03_rb,6.6241e-03_rb, &
+     &4.7723e-03_rb,2.7954e-03_rb,5.2361e-04_rb/)
+      kao(:, 2,11, 5) = (/ &
+     &1.4540e-02_rb,1.3417e-02_rb,1.1900e-02_rb,1.0250e-02_rb,8.5500e-03_rb,6.7539e-03_rb, &
+     &4.8654e-03_rb,2.8533e-03_rb,5.3348e-04_rb/)
+      kao(:, 3,11, 5) = (/ &
+     &1.4880e-02_rb,1.3732e-02_rb,1.2163e-02_rb,1.0481e-02_rb,8.7324e-03_rb,6.9009e-03_rb, &
+     &4.9833e-03_rb,2.9218e-03_rb,5.5883e-04_rb/)
+      kao(:, 4,11, 5) = (/ &
+     &1.5319e-02_rb,1.4123e-02_rb,1.2507e-02_rb,1.0772e-02_rb,8.9669e-03_rb,7.0955e-03_rb, &
+     &5.1189e-03_rb,2.9943e-03_rb,5.8850e-04_rb/)
+      kao(:, 5,11, 5) = (/ &
+     &1.5835e-02_rb,1.4577e-02_rb,1.2919e-02_rb,1.1125e-02_rb,9.2533e-03_rb,7.3128e-03_rb, &
+     &5.2667e-03_rb,3.0792e-03_rb,6.1073e-04_rb/)
+      kao(:, 1,12, 5) = (/ &
+     &1.5802e-02_rb,1.4518e-02_rb,1.2819e-02_rb,1.1003e-02_rb,9.1252e-03_rb,7.1742e-03_rb, &
+     &5.1262e-03_rb,2.9592e-03_rb,5.0816e-04_rb/)
+      kao(:, 2,12, 5) = (/ &
+     &1.6146e-02_rb,1.4810e-02_rb,1.3074e-02_rb,1.1225e-02_rb,9.3090e-03_rb,7.3135e-03_rb, &
+     &5.2412e-03_rb,3.0249e-03_rb,5.3398e-04_rb/)
+      kao(:, 3,12, 5) = (/ &
+     &1.6565e-02_rb,1.5205e-02_rb,1.3415e-02_rb,1.1514e-02_rb,9.5432e-03_rb,7.5058e-03_rb, &
+     &5.3826e-03_rb,3.1020e-03_rb,5.6164e-04_rb/)
+      kao(:, 4,12, 5) = (/ &
+     &1.7128e-02_rb,1.5682e-02_rb,1.3836e-02_rb,1.1883e-02_rb,9.8516e-03_rb,7.7437e-03_rb, &
+     &5.5313e-03_rb,3.1868e-03_rb,5.8823e-04_rb/)
+      kao(:, 5,12, 5) = (/ &
+     &1.7790e-02_rb,1.6267e-02_rb,1.4348e-02_rb,1.2311e-02_rb,1.0183e-02_rb,7.9904e-03_rb, &
+     &5.7100e-03_rb,3.2821e-03_rb,6.0779e-04_rb/)
+      kao(:, 1,13, 5) = (/ &
+     &1.4021e-02_rb,1.2885e-02_rb,1.1370e-02_rb,9.7666e-03_rb,8.0956e-03_rb,6.3531e-03_rb, &
+     &4.5485e-03_rb,2.6326e-03_rb,4.6002e-04_rb/)
+      kao(:, 2,13, 5) = (/ &
+     &1.4373e-02_rb,1.3207e-02_rb,1.1632e-02_rb,9.9865e-03_rb,8.2754e-03_rb,6.5087e-03_rb, &
+     &4.6669e-03_rb,2.6967e-03_rb,4.8163e-04_rb/)
+      kao(:, 3,13, 5) = (/ &
+     &1.4774e-02_rb,1.3588e-02_rb,1.1994e-02_rb,1.0306e-02_rb,8.5450e-03_rb,6.7168e-03_rb, &
+     &4.8089e-03_rb,2.7710e-03_rb,4.9996e-04_rb/)
+      kao(:, 4,13, 5) = (/ &
+     &1.5343e-02_rb,1.4084e-02_rb,1.2424e-02_rb,1.0664e-02_rb,8.8287e-03_rb,6.9355e-03_rb, &
+     &4.9590e-03_rb,2.8556e-03_rb,5.2093e-04_rb/)
+      kao(:, 5,13, 5) = (/ &
+     &1.5979e-02_rb,1.4619e-02_rb,1.2888e-02_rb,1.1066e-02_rb,9.1632e-03_rb,7.1872e-03_rb, &
+     &5.1400e-03_rb,2.9489e-03_rb,5.4238e-04_rb/)
+      kao(:, 1, 1, 6) = (/ &
+     &2.4381e-05_rb,3.5965e-04_rb,6.3963e-04_rb,9.0999e-04_rb,1.1781e-03_rb,1.4492e-03_rb, &
+     &1.7469e-03_rb,2.1949e-03_rb,2.0167e-03_rb/)
+      kao(:, 2, 1, 6) = (/ &
+     &2.4551e-05_rb,3.6820e-04_rb,6.5359e-04_rb,9.2911e-04_rb,1.2030e-03_rb,1.4796e-03_rb, &
+     &1.7884e-03_rb,2.2546e-03_rb,2.0633e-03_rb/)
+      kao(:, 3, 1, 6) = (/ &
+     &2.4844e-05_rb,3.7777e-04_rb,6.7015e-04_rb,9.5166e-04_rb,1.2316e-03_rb,1.5153e-03_rb, &
+     &1.8326e-03_rb,2.3125e-03_rb,2.1171e-03_rb/)
+      kao(:, 4, 1, 6) = (/ &
+     &2.5013e-05_rb,3.8840e-04_rb,6.8929e-04_rb,9.7743e-04_rb,1.2638e-03_rb,1.5559e-03_rb, &
+     &1.8833e-03_rb,2.3873e-03_rb,2.1814e-03_rb/)
+      kao(:, 5, 1, 6) = (/ &
+     &2.5349e-05_rb,4.0094e-04_rb,7.1137e-04_rb,1.0079e-03_rb,1.3021e-03_rb,1.6023e-03_rb, &
+     &1.9431e-03_rb,2.4704e-03_rb,2.2554e-03_rb/)
+      kao(:, 1, 2, 6) = (/ &
+     &3.3532e-05_rb,3.4195e-04_rb,5.9227e-04_rb,8.3115e-04_rb,1.0659e-03_rb,1.2984e-03_rb, &
+     &1.5375e-03_rb,1.8307e-03_rb,1.7555e-03_rb/)
+      kao(:, 2, 2, 6) = (/ &
+     &3.3884e-05_rb,3.4950e-04_rb,6.0496e-04_rb,8.4827e-04_rb,1.0865e-03_rb,1.3240e-03_rb, &
+     &1.5683e-03_rb,1.8747e-03_rb,1.7936e-03_rb/)
+      kao(:, 3, 2, 6) = (/ &
+     &3.4432e-05_rb,3.5837e-04_rb,6.1975e-04_rb,8.6913e-04_rb,1.1113e-03_rb,1.3536e-03_rb, &
+     &1.6021e-03_rb,1.9222e-03_rb,1.8373e-03_rb/)
+      kao(:, 4, 2, 6) = (/ &
+     &3.4886e-05_rb,3.6829e-04_rb,6.3662e-04_rb,8.9220e-04_rb,1.1391e-03_rb,1.3857e-03_rb, &
+     &1.6406e-03_rb,1.9755e-03_rb,1.8873e-03_rb/)
+      kao(:, 5, 2, 6) = (/ &
+     &3.5279e-05_rb,3.7968e-04_rb,6.5599e-04_rb,9.1909e-04_rb,1.1730e-03_rb,1.4257e-03_rb, &
+     &1.6862e-03_rb,2.0365e-03_rb,1.9484e-03_rb/)
+      kao(:, 1, 3, 6) = (/ &
+     &6.2269e-05_rb,3.6578e-04_rb,5.8707e-04_rb,7.9355e-04_rb,9.9285e-04_rb,1.1848e-03_rb, &
+     &1.3757e-03_rb,1.5822e-03_rb,1.5104e-03_rb/)
+      kao(:, 2, 3, 6) = (/ &
+     &6.2987e-05_rb,3.7248e-04_rb,5.9883e-04_rb,8.1016e-04_rb,1.0136e-03_rb,1.2090e-03_rb, &
+     &1.4023e-03_rb,1.6140e-03_rb,1.5440e-03_rb/)
+      kao(:, 3, 3, 6) = (/ &
+     &6.3830e-05_rb,3.8077e-04_rb,6.1238e-04_rb,8.2947e-04_rb,1.0380e-03_rb,1.2373e-03_rb, &
+     &1.4338e-03_rb,1.6476e-03_rb,1.5800e-03_rb/)
+      kao(:, 4, 3, 6) = (/ &
+     &6.5057e-05_rb,3.9038e-04_rb,6.2908e-04_rb,8.5186e-04_rb,1.0655e-03_rb,1.2690e-03_rb, &
+     &1.4686e-03_rb,1.6847e-03_rb,1.6204e-03_rb/)
+      kao(:, 5, 3, 6) = (/ &
+     &6.5891e-05_rb,4.0010e-04_rb,6.4778e-04_rb,8.7680e-04_rb,1.0962e-03_rb,1.3060e-03_rb, &
+     &1.5104e-03_rb,1.7307e-03_rb,1.6697e-03_rb/)
+      kao(:, 1, 4, 6) = (/ &
+     &1.1763e-04_rb,4.2852e-04_rb,6.2857e-04_rb,8.0251e-04_rb,9.6160e-04_rb,1.1103e-03_rb, &
+     &1.2549e-03_rb,1.3952e-03_rb,1.2948e-03_rb/)
+      kao(:, 2, 4, 6) = (/ &
+     &1.1903e-04_rb,4.3548e-04_rb,6.3935e-04_rb,8.1698e-04_rb,9.8074e-04_rb,1.1338e-03_rb, &
+     &1.2810e-03_rb,1.4231e-03_rb,1.3227e-03_rb/)
+      kao(:, 3, 4, 6) = (/ &
+     &1.2084e-04_rb,4.4304e-04_rb,6.5330e-04_rb,8.3469e-04_rb,1.0028e-03_rb,1.1604e-03_rb, &
+     &1.3104e-03_rb,1.4544e-03_rb,1.3535e-03_rb/)
+      kao(:, 4, 4, 6) = (/ &
+     &1.2295e-04_rb,4.5274e-04_rb,6.6888e-04_rb,8.5565e-04_rb,1.0277e-03_rb,1.1905e-03_rb, &
+     &1.3437e-03_rb,1.4894e-03_rb,1.3881e-03_rb/)
+      kao(:, 5, 4, 6) = (/ &
+     &1.2576e-04_rb,4.6369e-04_rb,6.8705e-04_rb,8.8171e-04_rb,1.0587e-03_rb,1.2251e-03_rb, &
+     &1.3822e-03_rb,1.5303e-03_rb,1.4309e-03_rb/)
+      kao(:, 1, 5, 6) = (/ &
+     &2.0248e-04_rb,5.1976e-04_rb,7.0294e-04_rb,8.5252e-04_rb,9.7761e-04_rb,1.0816e-03_rb, &
+     &1.1680e-03_rb,1.2476e-03_rb,1.1044e-03_rb/)
+      kao(:, 2, 5, 6) = (/ &
+     &2.0493e-04_rb,5.2640e-04_rb,7.1432e-04_rb,8.6690e-04_rb,9.9395e-04_rb,1.1019e-03_rb, &
+     &1.1914e-03_rb,1.2719e-03_rb,1.1285e-03_rb/)
+      kao(:, 3, 5, 6) = (/ &
+     &2.0806e-04_rb,5.3477e-04_rb,7.2739e-04_rb,8.8542e-04_rb,1.0148e-03_rb,1.1250e-03_rb, &
+     &1.2182e-03_rb,1.3005e-03_rb,1.1542e-03_rb/)
+      kao(:, 4, 5, 6) = (/ &
+     &2.1205e-04_rb,5.4496e-04_rb,7.4280e-04_rb,9.0607e-04_rb,1.0399e-03_rb,1.1525e-03_rb, &
+     &1.2484e-03_rb,1.3331e-03_rb,1.1843e-03_rb/)
+      kao(:, 5, 5, 6) = (/ &
+     &2.1768e-04_rb,5.5787e-04_rb,7.6255e-04_rb,9.3016e-04_rb,1.0697e-03_rb,1.1863e-03_rb, &
+     &1.2845e-03_rb,1.3711e-03_rb,1.2208e-03_rb/)
+      kao(:, 1, 6, 6) = (/ &
+     &3.2402e-04_rb,6.5065e-04_rb,8.1276e-04_rb,9.3175e-04_rb,1.0254e-03_rb,1.0960e-03_rb, &
+     &1.1336e-03_rb,1.1359e-03_rb,9.3926e-04_rb/)
+      kao(:, 2, 6, 6) = (/ &
+     &3.2839e-04_rb,6.5803e-04_rb,8.2121e-04_rb,9.4691e-04_rb,1.0426e-03_rb,1.1132e-03_rb, &
+     &1.1537e-03_rb,1.1594e-03_rb,9.5631e-04_rb/)
+      kao(:, 3, 6, 6) = (/ &
+     &3.3397e-04_rb,6.6749e-04_rb,8.3425e-04_rb,9.6403e-04_rb,1.0654e-03_rb,1.1356e-03_rb, &
+     &1.1768e-03_rb,1.1847e-03_rb,9.7614e-04_rb/)
+      kao(:, 4, 6, 6) = (/ &
+     &3.4074e-04_rb,6.7873e-04_rb,8.5077e-04_rb,9.8417e-04_rb,1.0893e-03_rb,1.1622e-03_rb, &
+     &1.2041e-03_rb,1.2139e-03_rb,1.0001e-03_rb/)
+      kao(:, 5, 6, 6) = (/ &
+     &3.4865e-04_rb,6.9287e-04_rb,8.6902e-04_rb,1.0071e-03_rb,1.1162e-03_rb,1.1933e-03_rb, &
+     &1.2370e-03_rb,1.2465e-03_rb,1.0295e-03_rb/)
+      kao(:, 1, 7, 6) = (/ &
+     &5.4679e-04_rb,8.8419e-04_rb,1.0272e-03_rb,1.1131e-03_rb,1.1586e-03_rb,1.1796e-03_rb, &
+     &1.1677e-03_rb,1.1006e-03_rb,7.9375e-04_rb/)
+      kao(:, 2, 7, 6) = (/ &
+     &5.5453e-04_rb,8.9535e-04_rb,1.0406e-03_rb,1.1278e-03_rb,1.1758e-03_rb,1.1986e-03_rb, &
+     &1.1860e-03_rb,1.1193e-03_rb,8.0863e-04_rb/)
+      kao(:, 3, 7, 6) = (/ &
+     &5.6482e-04_rb,9.0803e-04_rb,1.0560e-03_rb,1.1451e-03_rb,1.1955e-03_rb,1.2220e-03_rb, &
+     &1.2089e-03_rb,1.1408e-03_rb,8.2565e-04_rb/)
+      kao(:, 4, 7, 6) = (/ &
+     &5.7672e-04_rb,9.2334e-04_rb,1.0748e-03_rb,1.1654e-03_rb,1.2195e-03_rb,1.2479e-03_rb, &
+     &1.2361e-03_rb,1.1655e-03_rb,8.4564e-04_rb/)
+      kao(:, 5, 7, 6) = (/ &
+     &5.9187e-04_rb,9.4280e-04_rb,1.0968e-03_rb,1.1862e-03_rb,1.2479e-03_rb,1.2773e-03_rb, &
+     &1.2677e-03_rb,1.1958e-03_rb,8.6975e-04_rb/)
+      kao(:, 1, 8, 6) = (/ &
+     &1.0890e-03_rb,1.4212e-03_rb,1.5274e-03_rb,1.5635e-03_rb,1.5408e-03_rb,1.4729e-03_rb, &
+     &1.3514e-03_rb,1.1730e-03_rb,6.7724e-04_rb/)
+      kao(:, 2, 8, 6) = (/ &
+     &1.1074e-03_rb,1.4404e-03_rb,1.5493e-03_rb,1.5864e-03_rb,1.5647e-03_rb,1.4941e-03_rb, &
+     &1.3720e-03_rb,1.1894e-03_rb,6.8838e-04_rb/)
+      kao(:, 3, 8, 6) = (/ &
+     &1.1299e-03_rb,1.4626e-03_rb,1.5727e-03_rb,1.6115e-03_rb,1.5892e-03_rb,1.5170e-03_rb, &
+     &1.3954e-03_rb,1.2114e-03_rb,7.0024e-04_rb/)
+      kao(:, 4, 8, 6) = (/ &
+     &1.1562e-03_rb,1.4908e-03_rb,1.6005e-03_rb,1.6404e-03_rb,1.6196e-03_rb,1.5467e-03_rb, &
+     &1.4229e-03_rb,1.2388e-03_rb,7.1485e-04_rb/)
+      kao(:, 5, 8, 6) = (/ &
+     &1.1885e-03_rb,1.5267e-03_rb,1.6357e-03_rb,1.6752e-03_rb,1.6528e-03_rb,1.5764e-03_rb, &
+     &1.4553e-03_rb,1.2696e-03_rb,7.3183e-04_rb/)
+      kao(:, 1, 9, 6) = (/ &
+     &4.1665e-03_rb,4.3468e-03_rb,4.1293e-03_rb,3.8165e-03_rb,3.4449e-03_rb,3.0107e-03_rb, &
+     &2.4884e-03_rb,1.8186e-03_rb,7.0770e-04_rb/)
+      kao(:, 2, 9, 6) = (/ &
+     &4.2379e-03_rb,4.4019e-03_rb,4.1804e-03_rb,3.8702e-03_rb,3.4962e-03_rb,3.0618e-03_rb, &
+     &2.5301e-03_rb,1.8480e-03_rb,7.1084e-04_rb/)
+      kao(:, 3, 9, 6) = (/ &
+     &4.3206e-03_rb,4.4730e-03_rb,4.2494e-03_rb,3.9358e-03_rb,3.5562e-03_rb,3.1108e-03_rb, &
+     &2.5726e-03_rb,1.8787e-03_rb,7.1447e-04_rb/)
+      kao(:, 4, 9, 6) = (/ &
+     &4.4148e-03_rb,4.5672e-03_rb,4.3360e-03_rb,4.0233e-03_rb,3.6279e-03_rb,3.1667e-03_rb, &
+     &2.6211e-03_rb,1.9152e-03_rb,7.2547e-04_rb/)
+      kao(:, 5, 9, 6) = (/ &
+     &4.5366e-03_rb,4.6880e-03_rb,4.4475e-03_rb,4.1247e-03_rb,3.7148e-03_rb,3.2357e-03_rb, &
+     &2.6777e-03_rb,1.9564e-03_rb,7.3351e-04_rb/)
+      kao(:, 1,10, 6) = (/ &
+     &1.8255e-02_rb,1.7198e-02_rb,1.5391e-02_rb,1.3391e-02_rb,1.1273e-02_rb,9.0394e-03_rb, &
+     &6.6601e-03_rb,4.0944e-03_rb,9.8389e-04_rb/)
+      kao(:, 2,10, 6) = (/ &
+     &1.8579e-02_rb,1.7439e-02_rb,1.5601e-02_rb,1.3577e-02_rb,1.1427e-02_rb,9.1759e-03_rb, &
+     &6.7580e-03_rb,4.1605e-03_rb,9.8485e-04_rb/)
+      kao(:, 3,10, 6) = (/ &
+     &1.8934e-02_rb,1.7772e-02_rb,1.5898e-02_rb,1.3821e-02_rb,1.1616e-02_rb,9.3279e-03_rb, &
+     &6.8809e-03_rb,4.2287e-03_rb,9.8296e-04_rb/)
+      kao(:, 4,10, 6) = (/ &
+     &1.9364e-02_rb,1.8152e-02_rb,1.6246e-02_rb,1.4125e-02_rb,1.1868e-02_rb,9.5176e-03_rb, &
+     &7.0263e-03_rb,4.3137e-03_rb,9.8595e-04_rb/)
+      kao(:, 5,10, 6) = (/ &
+     &1.9876e-02_rb,1.8605e-02_rb,1.6643e-02_rb,1.4478e-02_rb,1.2165e-02_rb,9.7573e-03_rb, &
+     &7.2015e-03_rb,4.4138e-03_rb,9.9549e-04_rb/)
+      kao(:, 1,11, 6) = (/ &
+     &2.7906e-02_rb,2.5779e-02_rb,2.2845e-02_rb,1.9689e-02_rb,1.6356e-02_rb,1.2926e-02_rb, &
+     &9.3112e-03_rb,5.4266e-03_rb,1.1493e-03_rb/)
+      kao(:, 2,11, 6) = (/ &
+     &2.8474e-02_rb,2.6276e-02_rb,2.3282e-02_rb,2.0063e-02_rb,1.6649e-02_rb,1.3118e-02_rb, &
+     &9.4591e-03_rb,5.5176e-03_rb,1.1605e-03_rb/)
+      kao(:, 3,11, 6) = (/ &
+     &2.9161e-02_rb,2.6826e-02_rb,2.3755e-02_rb,2.0435e-02_rb,1.6944e-02_rb,1.3356e-02_rb, &
+     &9.6281e-03_rb,5.6370e-03_rb,1.1658e-03_rb/)
+      kao(:, 4,11, 6) = (/ &
+     &2.9864e-02_rb,2.7446e-02_rb,2.4305e-02_rb,2.0907e-02_rb,1.7344e-02_rb,1.3665e-02_rb, &
+     &9.8501e-03_rb,5.7787e-03_rb,1.1679e-03_rb/)
+      kao(:, 5,11, 6) = (/ &
+     &3.0716e-02_rb,2.8218e-02_rb,2.4989e-02_rb,2.1484e-02_rb,1.7837e-02_rb,1.4047e-02_rb, &
+     &1.0137e-02_rb,5.9391e-03_rb,1.1749e-03_rb/)
+      kao(:, 1,12, 6) = (/ &
+     &3.1456e-02_rb,2.8840e-02_rb,2.5490e-02_rb,2.1901e-02_rb,1.8104e-02_rb,1.4184e-02_rb, &
+     &1.0144e-02_rb,5.8131e-03_rb,1.1656e-03_rb/)
+      kao(:, 2,12, 6) = (/ &
+     &3.2212e-02_rb,2.9507e-02_rb,2.6048e-02_rb,2.2347e-02_rb,1.8450e-02_rb,1.4457e-02_rb, &
+     &1.0325e-02_rb,5.9330e-03_rb,1.1607e-03_rb/)
+      kao(:, 3,12, 6) = (/ &
+     &3.2965e-02_rb,3.0133e-02_rb,2.6613e-02_rb,2.2834e-02_rb,1.8888e-02_rb,1.4793e-02_rb, &
+     &1.0553e-02_rb,6.0675e-03_rb,1.1612e-03_rb/)
+      kao(:, 4,12, 6) = (/ &
+     &3.3903e-02_rb,3.0999e-02_rb,2.7365e-02_rb,2.3453e-02_rb,1.9368e-02_rb,1.5160e-02_rb, &
+     &1.0832e-02_rb,6.2310e-03_rb,1.1792e-03_rb/)
+      kao(:, 5,12, 6) = (/ &
+     &3.4986e-02_rb,3.1940e-02_rb,2.8176e-02_rb,2.4131e-02_rb,1.9947e-02_rb,1.5618e-02_rb, &
+     &1.1156e-02_rb,6.4247e-03_rb,1.2061e-03_rb/)
+      kao(:, 1,13, 6) = (/ &
+     &2.8494e-02_rb,2.6140e-02_rb,2.3086e-02_rb,1.9829e-02_rb,1.6410e-02_rb,1.2869e-02_rb, &
+     &9.1750e-03_rb,5.2477e-03_rb,1.0839e-03_rb/)
+      kao(:, 2,13, 6) = (/ &
+     &2.9204e-02_rb,2.6786e-02_rb,2.3660e-02_rb,2.0312e-02_rb,1.6791e-02_rb,1.3151e-02_rb, &
+     &9.3741e-03_rb,5.3670e-03_rb,1.0879e-03_rb/)
+      kao(:, 3,13, 6) = (/ &
+     &3.0028e-02_rb,2.7500e-02_rb,2.4267e-02_rb,2.0802e-02_rb,1.7182e-02_rb,1.3458e-02_rb, &
+     &9.5924e-03_rb,5.5018e-03_rb,1.1043e-03_rb/)
+      kao(:, 4,13, 6) = (/ &
+     &3.0958e-02_rb,2.8295e-02_rb,2.4961e-02_rb,2.1395e-02_rb,1.7690e-02_rb,1.3840e-02_rb, &
+     &9.8578e-03_rb,5.6588e-03_rb,1.1197e-03_rb/)
+      kao(:, 5,13, 6) = (/ &
+     &3.2042e-02_rb,2.9250e-02_rb,2.5779e-02_rb,2.2082e-02_rb,1.8250e-02_rb,1.4290e-02_rb, &
+     &1.0177e-02_rb,5.8420e-03_rb,1.1367e-03_rb/)
+      kao(:, 1, 1, 7) = (/ &
+     &4.8330e-05_rb,9.1748e-04_rb,1.6343e-03_rb,2.3037e-03_rb,2.9566e-03_rb,3.6315e-03_rb, &
+     &4.4475e-03_rb,5.8406e-03_rb,5.3151e-03_rb/)
+      kao(:, 2, 1, 7) = (/ &
+     &4.8596e-05_rb,9.3271e-04_rb,1.6606e-03_rb,2.3393e-03_rb,3.0027e-03_rb,3.6916e-03_rb, &
+     &4.5243e-03_rb,5.9244e-03_rb,5.4196e-03_rb/)
+      kao(:, 3, 1, 7) = (/ &
+     &4.9220e-05_rb,9.5049e-04_rb,1.6928e-03_rb,2.3820e-03_rb,3.0582e-03_rb,3.7632e-03_rb, &
+     &4.6161e-03_rb,6.0368e-03_rb,5.5387e-03_rb/)
+      kao(:, 4, 1, 7) = (/ &
+     &4.9714e-05_rb,9.7063e-04_rb,1.7276e-03_rb,2.4311e-03_rb,3.1220e-03_rb,3.8430e-03_rb, &
+     &4.7205e-03_rb,6.1613e-03_rb,5.6708e-03_rb/)
+      kao(:, 5, 1, 7) = (/ &
+     &5.0550e-05_rb,9.9274e-04_rb,1.7651e-03_rb,2.4850e-03_rb,3.1923e-03_rb,3.9328e-03_rb, &
+     &4.8316e-03_rb,6.3027e-03_rb,5.8156e-03_rb/)
+      kao(:, 1, 2, 7) = (/ &
+     &6.7697e-05_rb,8.5995e-04_rb,1.5004e-03_rb,2.0933e-03_rb,2.6519e-03_rb,3.1963e-03_rb, &
+     &3.7792e-03_rb,4.6863e-03_rb,4.4711e-03_rb/)
+      kao(:, 2, 2, 7) = (/ &
+     &6.8123e-05_rb,8.7528e-04_rb,1.5266e-03_rb,2.1301e-03_rb,2.6961e-03_rb,3.2484e-03_rb, &
+     &3.8450e-03_rb,4.7682e-03_rb,4.5579e-03_rb/)
+      kao(:, 3, 2, 7) = (/ &
+     &6.9098e-05_rb,8.9351e-04_rb,1.5568e-03_rb,2.1723e-03_rb,2.7472e-03_rb,3.3096e-03_rb, &
+     &3.9205e-03_rb,4.8697e-03_rb,4.6570e-03_rb/)
+      kao(:, 4, 2, 7) = (/ &
+     &7.0075e-05_rb,9.1426e-04_rb,1.5908e-03_rb,2.2183e-03_rb,2.8071e-03_rb,3.3815e-03_rb, &
+     &4.0084e-03_rb,4.9811e-03_rb,4.7715e-03_rb/)
+      kao(:, 5, 2, 7) = (/ &
+     &7.1192e-05_rb,9.3706e-04_rb,1.6283e-03_rb,2.2693e-03_rb,2.8718e-03_rb,3.4625e-03_rb, &
+     &4.1070e-03_rb,5.1037e-03_rb,4.8979e-03_rb/)
+      kao(:, 1, 3, 7) = (/ &
+     &1.2733e-04_rb,8.7624e-04_rb,1.4506e-03_rb,1.9805e-03_rb,2.4757e-03_rb,2.9317e-03_rb, &
+     &3.3558e-03_rb,3.8170e-03_rb,3.7686e-03_rb/)
+      kao(:, 2, 3, 7) = (/ &
+     &1.2826e-04_rb,8.9276e-04_rb,1.4769e-03_rb,2.0153e-03_rb,2.5174e-03_rb,2.9784e-03_rb, &
+     &3.4075e-03_rb,3.8801e-03_rb,3.8344e-03_rb/)
+      kao(:, 3, 3, 7) = (/ &
+     &1.2973e-04_rb,9.1170e-04_rb,1.5076e-03_rb,2.0539e-03_rb,2.5651e-03_rb,3.0352e-03_rb, &
+     &3.4680e-03_rb,3.9525e-03_rb,3.9125e-03_rb/)
+      kao(:, 4, 3, 7) = (/ &
+     &1.3225e-04_rb,9.3418e-04_rb,1.5436e-03_rb,2.1000e-03_rb,2.6202e-03_rb,3.1002e-03_rb, &
+     &3.5421e-03_rb,4.0383e-03_rb,4.0057e-03_rb/)
+      kao(:, 5, 3, 7) = (/ &
+     &1.3440e-04_rb,9.5794e-04_rb,1.5825e-03_rb,2.1509e-03_rb,2.6822e-03_rb,3.1720e-03_rb, &
+     &3.6252e-03_rb,4.1370e-03_rb,4.1108e-03_rb/)
+      kao(:, 1, 4, 7) = (/ &
+     &2.4414e-04_rb,9.8791e-04_rb,1.4797e-03_rb,1.9337e-03_rb,2.3609e-03_rb,2.7541e-03_rb, &
+     &3.0988e-03_rb,3.3862e-03_rb,3.2303e-03_rb/)
+      kao(:, 2, 4, 7) = (/ &
+     &2.4513e-04_rb,1.0039e-03_rb,1.5070e-03_rb,1.9692e-03_rb,2.4021e-03_rb,2.7995e-03_rb, &
+     &3.1468e-03_rb,3.4333e-03_rb,3.2790e-03_rb/)
+      kao(:, 3, 4, 7) = (/ &
+     &2.4808e-04_rb,1.0229e-03_rb,1.5373e-03_rb,2.0098e-03_rb,2.4481e-03_rb,2.8491e-03_rb, &
+     &3.2030e-03_rb,3.4903e-03_rb,3.3384e-03_rb/)
+      kao(:, 4, 4, 7) = (/ &
+     &2.5202e-04_rb,1.0447e-03_rb,1.5721e-03_rb,2.0572e-03_rb,2.5035e-03_rb,2.9093e-03_rb, &
+     &3.2672e-03_rb,3.5611e-03_rb,3.4115e-03_rb/)
+      kao(:, 5, 4, 7) = (/ &
+     &2.5833e-04_rb,1.0719e-03_rb,1.6144e-03_rb,2.1102e-03_rb,2.5658e-03_rb,2.9793e-03_rb, &
+     &3.3418e-03_rb,3.6423e-03_rb,3.4938e-03_rb/)
+      kao(:, 1, 5, 7) = (/ &
+     &4.2770e-04_rb,1.1830e-03_rb,1.6220e-03_rb,1.9840e-03_rb,2.3123e-03_rb,2.6214e-03_rb, &
+     &2.8956e-03_rb,3.0934e-03_rb,2.7805e-03_rb/)
+      kao(:, 2, 5, 7) = (/ &
+     &4.3162e-04_rb,1.2016e-03_rb,1.6476e-03_rb,2.0183e-03_rb,2.3523e-03_rb,2.6652e-03_rb, &
+     &2.9419e-03_rb,3.1389e-03_rb,2.8192e-03_rb/)
+      kao(:, 3, 5, 7) = (/ &
+     &4.3693e-04_rb,1.2232e-03_rb,1.6764e-03_rb,2.0550e-03_rb,2.3985e-03_rb,2.7158e-03_rb, &
+     &2.9926e-03_rb,3.1918e-03_rb,2.8694e-03_rb/)
+      kao(:, 4, 5, 7) = (/ &
+     &4.4235e-04_rb,1.2462e-03_rb,1.7099e-03_rb,2.0981e-03_rb,2.4518e-03_rb,2.7746e-03_rb, &
+     &3.0533e-03_rb,3.2519e-03_rb,2.9306e-03_rb/)
+      kao(:, 5, 5, 7) = (/ &
+     &4.5257e-04_rb,1.2739e-03_rb,1.7526e-03_rb,2.1524e-03_rb,2.5133e-03_rb,2.8432e-03_rb, &
+     &3.1246e-03_rb,3.3219e-03_rb,2.9994e-03_rb/)
+      kao(:, 1, 6, 7) = (/ &
+     &6.9917e-04_rb,1.4510e-03_rb,1.8508e-03_rb,2.1612e-03_rb,2.3969e-03_rb,2.5820e-03_rb, &
+     &2.7369e-03_rb,2.8411e-03_rb,2.3809e-03_rb/)
+      kao(:, 2, 6, 7) = (/ &
+     &7.0685e-04_rb,1.4737e-03_rb,1.8819e-03_rb,2.1948e-03_rb,2.4365e-03_rb,2.6262e-03_rb, &
+     &2.7822e-03_rb,2.8845e-03_rb,2.4163e-03_rb/)
+      kao(:, 3, 6, 7) = (/ &
+     &7.1685e-04_rb,1.4992e-03_rb,1.9139e-03_rb,2.2300e-03_rb,2.4777e-03_rb,2.6750e-03_rb, &
+     &2.8324e-03_rb,2.9331e-03_rb,2.4594e-03_rb/)
+      kao(:, 4, 6, 7) = (/ &
+     &7.2831e-04_rb,1.5276e-03_rb,1.9491e-03_rb,2.2715e-03_rb,2.5262e-03_rb,2.7293e-03_rb, &
+     &2.8927e-03_rb,2.9913e-03_rb,2.5109e-03_rb/)
+      kao(:, 5, 6, 7) = (/ &
+     &7.4174e-04_rb,1.5586e-03_rb,1.9900e-03_rb,2.3214e-03_rb,2.5825e-03_rb,2.7929e-03_rb, &
+     &2.9629e-03_rb,3.0587e-03_rb,2.5688e-03_rb/)
+      kao(:, 1, 7, 7) = (/ &
+     &1.2039e-03_rb,1.9587e-03_rb,2.2962e-03_rb,2.5331e-03_rb,2.6974e-03_rb,2.7733e-03_rb, &
+     &2.7634e-03_rb,2.6777e-03_rb,2.0245e-03_rb/)
+      kao(:, 2, 7, 7) = (/ &
+     &1.2204e-03_rb,1.9874e-03_rb,2.3314e-03_rb,2.5722e-03_rb,2.7404e-03_rb,2.8207e-03_rb, &
+     &2.8122e-03_rb,2.7221e-03_rb,2.0503e-03_rb/)
+      kao(:, 3, 7, 7) = (/ &
+     &1.2400e-03_rb,2.0184e-03_rb,2.3716e-03_rb,2.6156e-03_rb,2.7851e-03_rb,2.8685e-03_rb, &
+     &2.8623e-03_rb,2.7709e-03_rb,2.0844e-03_rb/)
+      kao(:, 4, 7, 7) = (/ &
+     &1.2633e-03_rb,2.0537e-03_rb,2.4164e-03_rb,2.6645e-03_rb,2.8368e-03_rb,2.9213e-03_rb, &
+     &2.9184e-03_rb,2.8302e-03_rb,2.1246e-03_rb/)
+      kao(:, 5, 7, 7) = (/ &
+     &1.2880e-03_rb,2.0946e-03_rb,2.4660e-03_rb,2.7241e-03_rb,2.8956e-03_rb,2.9852e-03_rb, &
+     &2.9850e-03_rb,2.8977e-03_rb,2.1717e-03_rb/)
+      kao(:, 1, 8, 7) = (/ &
+     &2.4360e-03_rb,3.2317e-03_rb,3.4336e-03_rb,3.4928e-03_rb,3.4872e-03_rb,3.3872e-03_rb, &
+     &3.1811e-03_rb,2.7989e-03_rb,1.6994e-03_rb/)
+      kao(:, 2, 8, 7) = (/ &
+     &2.4784e-03_rb,3.2772e-03_rb,3.4707e-03_rb,3.5477e-03_rb,3.5429e-03_rb,3.4442e-03_rb, &
+     &3.2393e-03_rb,2.8503e-03_rb,1.7216e-03_rb/)
+      kao(:, 3, 8, 7) = (/ &
+     &2.5215e-03_rb,3.3205e-03_rb,3.5181e-03_rb,3.6097e-03_rb,3.6079e-03_rb,3.5043e-03_rb, &
+     &3.2957e-03_rb,2.9015e-03_rb,1.7516e-03_rb/)
+      kao(:, 4, 8, 7) = (/ &
+     &2.5734e-03_rb,3.3690e-03_rb,3.5815e-03_rb,3.6774e-03_rb,3.6742e-03_rb,3.5696e-03_rb, &
+     &3.3583e-03_rb,2.9597e-03_rb,1.7852e-03_rb/)
+      kao(:, 5, 8, 7) = (/ &
+     &2.6287e-03_rb,3.4209e-03_rb,3.6564e-03_rb,3.7526e-03_rb,3.7488e-03_rb,3.6496e-03_rb, &
+     &3.4322e-03_rb,3.0257e-03_rb,1.8234e-03_rb/)
+      kao(:, 1, 9, 7) = (/ &
+     &9.2016e-03_rb,9.7823e-03_rb,9.4145e-03_rb,8.7411e-03_rb,7.8879e-03_rb,6.8736e-03_rb, &
+     &5.6569e-03_rb,4.2025e-03_rb,1.5538e-03_rb/)
+      kao(:, 2, 9, 7) = (/ &
+     &9.3962e-03_rb,9.9769e-03_rb,9.5905e-03_rb,8.8876e-03_rb,8.0147e-03_rb,6.9737e-03_rb, &
+     &5.7408e-03_rb,4.2797e-03_rb,1.5748e-03_rb/)
+      kao(:, 3, 9, 7) = (/ &
+     &9.5905e-03_rb,1.0169e-02_rb,9.7567e-03_rb,9.0284e-03_rb,8.1348e-03_rb,7.0770e-03_rb, &
+     &5.8473e-03_rb,4.3619e-03_rb,1.5893e-03_rb/)
+      kao(:, 4, 9, 7) = (/ &
+     &9.8163e-03_rb,1.0370e-02_rb,9.9309e-03_rb,9.1820e-03_rb,8.2703e-03_rb,7.1825e-03_rb, &
+     &5.9588e-03_rb,4.4477e-03_rb,1.6087e-03_rb/)
+      kao(:, 5, 9, 7) = (/ &
+     &1.0054e-02_rb,1.0584e-02_rb,1.0131e-02_rb,9.3626e-03_rb,8.4298e-03_rb,7.3350e-03_rb, &
+     &6.0835e-03_rb,4.5437e-03_rb,1.6313e-03_rb/)
+      kao(:, 1,10, 7) = (/ &
+     &3.9276e-02_rb,3.6749e-02_rb,3.3301e-02_rb,2.9241e-02_rb,2.4794e-02_rb,2.0028e-02_rb, &
+     &1.4912e-02_rb,9.3013e-03_rb,2.0443e-03_rb/)
+      kao(:, 2,10, 7) = (/ &
+     &4.0105e-02_rb,3.7556e-02_rb,3.4005e-02_rb,2.9863e-02_rb,2.5353e-02_rb,2.0438e-02_rb, &
+     &1.5180e-02_rb,9.4819e-03_rb,2.0242e-03_rb/)
+      kao(:, 3,10, 7) = (/ &
+     &4.0916e-02_rb,3.8307e-02_rb,3.4681e-02_rb,3.0487e-02_rb,2.5876e-02_rb,2.0814e-02_rb, &
+     &1.5451e-02_rb,9.6638e-03_rb,2.0047e-03_rb/)
+      kao(:, 4,10, 7) = (/ &
+     &4.1894e-02_rb,3.9199e-02_rb,3.5443e-02_rb,3.1118e-02_rb,2.6390e-02_rb,2.1233e-02_rb, &
+     &1.5746e-02_rb,9.8447e-03_rb,2.0155e-03_rb/)
+      kao(:, 5,10, 7) = (/ &
+     &4.2954e-02_rb,4.0161e-02_rb,3.6290e-02_rb,3.1839e-02_rb,2.6971e-02_rb,2.1693e-02_rb, &
+     &1.6115e-02_rb,1.0055e-02_rb,2.0394e-03_rb/)
+      kao(:, 1,11, 7) = (/ &
+     &6.0955e-02_rb,5.5737e-02_rb,4.9723e-02_rb,4.3019e-02_rb,3.5876e-02_rb,2.8379e-02_rb, &
+     &2.0432e-02_rb,1.2085e-02_rb,2.3716e-03_rb/)
+      kao(:, 2,11, 7) = (/ &
+     &6.2198e-02_rb,5.6869e-02_rb,5.0662e-02_rb,4.3787e-02_rb,3.6565e-02_rb,2.8915e-02_rb, &
+     &2.0814e-02_rb,1.2323e-02_rb,2.3542e-03_rb/)
+      kao(:, 3,11, 7) = (/ &
+     &6.3419e-02_rb,5.8024e-02_rb,5.1697e-02_rb,4.4702e-02_rb,3.7324e-02_rb,2.9465e-02_rb, &
+     &2.1204e-02_rb,1.2555e-02_rb,2.3313e-03_rb/)
+      kao(:, 4,11, 7) = (/ &
+     &6.4926e-02_rb,5.9386e-02_rb,5.2869e-02_rb,4.5680e-02_rb,3.8119e-02_rb,3.0075e-02_rb, &
+     &2.1667e-02_rb,1.2812e-02_rb,2.3155e-03_rb/)
+      kao(:, 5,11, 7) = (/ &
+     &6.6635e-02_rb,6.0864e-02_rb,5.4124e-02_rb,4.6774e-02_rb,3.9011e-02_rb,3.0829e-02_rb, &
+     &2.2206e-02_rb,1.3119e-02_rb,2.3251e-03_rb/)
+      kao(:, 1,12, 7) = (/ &
+     &6.9869e-02_rb,6.3637e-02_rb,5.6420e-02_rb,4.8546e-02_rb,4.0307e-02_rb,3.1740e-02_rb, &
+     &2.2682e-02_rb,1.3139e-02_rb,2.4428e-03_rb/)
+      kao(:, 2,12, 7) = (/ &
+     &7.1577e-02_rb,6.5133e-02_rb,5.7685e-02_rb,4.9634e-02_rb,4.1244e-02_rb,3.2466e-02_rb, &
+     &2.3165e-02_rb,1.3402e-02_rb,2.4417e-03_rb/)
+      kao(:, 3,12, 7) = (/ &
+     &7.3435e-02_rb,6.6765e-02_rb,5.9111e-02_rb,5.0782e-02_rb,4.2090e-02_rb,3.3070e-02_rb, &
+     &2.3631e-02_rb,1.3663e-02_rb,2.4312e-03_rb/)
+      kao(:, 4,12, 7) = (/ &
+     &7.5274e-02_rb,6.8406e-02_rb,6.0539e-02_rb,5.2024e-02_rb,4.3158e-02_rb,3.3897e-02_rb, &
+     &2.4213e-02_rb,1.3961e-02_rb,2.4213e-03_rb/)
+      kao(:, 5,12, 7) = (/ &
+     &7.7518e-02_rb,7.0447e-02_rb,6.2339e-02_rb,5.3608e-02_rb,4.4457e-02_rb,3.4884e-02_rb, &
+     &2.4882e-02_rb,1.4302e-02_rb,2.4144e-03_rb/)
+      kao(:, 1,13, 7) = (/ &
+     &6.3971e-02_rb,5.8270e-02_rb,5.1535e-02_rb,4.4263e-02_rb,3.6709e-02_rb,2.8872e-02_rb, &
+     &2.0629e-02_rb,1.1917e-02_rb,2.3953e-03_rb/)
+      kao(:, 2,13, 7) = (/ &
+     &6.5643e-02_rb,5.9813e-02_rb,5.2890e-02_rb,4.5419e-02_rb,3.7684e-02_rb,2.9600e-02_rb, &
+     &2.1119e-02_rb,1.2188e-02_rb,2.4046e-03_rb/)
+      kao(:, 3,13, 7) = (/ &
+     &6.7472e-02_rb,6.1457e-02_rb,5.4341e-02_rb,4.6654e-02_rb,3.8721e-02_rb,3.0402e-02_rb, &
+     &2.1696e-02_rb,1.2486e-02_rb,2.3922e-03_rb/)
+      kao(:, 4,13, 7) = (/ &
+     &6.9579e-02_rb,6.3365e-02_rb,5.6023e-02_rb,4.8132e-02_rb,3.9923e-02_rb,3.1337e-02_rb, &
+     &2.2348e-02_rb,1.2806e-02_rb,2.3768e-03_rb/)
+      kao(:, 5,13, 7) = (/ &
+     &7.1993e-02_rb,6.5596e-02_rb,5.7974e-02_rb,4.9776e-02_rb,4.1204e-02_rb,3.2317e-02_rb, &
+     &2.3035e-02_rb,1.3183e-02_rb,2.3765e-03_rb/)
+      kao(:, 1, 1, 8) = (/ &
+     &1.3552e-04_rb,2.4322e-03_rb,4.1951e-03_rb,5.8754e-03_rb,7.6297e-03_rb,9.6149e-03_rb, &
+     &1.1994e-02_rb,1.5380e-02_rb,1.4856e-02_rb/)
+      kao(:, 2, 1, 8) = (/ &
+     &1.3805e-04_rb,2.4459e-03_rb,4.2175e-03_rb,5.9121e-03_rb,7.6823e-03_rb,9.6825e-03_rb, &
+     &1.2072e-02_rb,1.5469e-02_rb,1.4971e-02_rb/)
+      kao(:, 3, 1, 8) = (/ &
+     &1.4131e-04_rb,2.4661e-03_rb,4.2478e-03_rb,5.9602e-03_rb,7.7525e-03_rb,9.7747e-03_rb, &
+     &1.2179e-02_rb,1.5577e-02_rb,1.5128e-02_rb/)
+      kao(:, 4, 1, 8) = (/ &
+     &1.4377e-04_rb,2.4912e-03_rb,4.2859e-03_rb,6.0170e-03_rb,7.8373e-03_rb,9.8887e-03_rb, &
+     &1.2314e-02_rb,1.5728e-02_rb,1.5316e-02_rb/)
+      kao(:, 5, 1, 8) = (/ &
+     &1.4692e-04_rb,2.5205e-03_rb,4.3310e-03_rb,6.0836e-03_rb,7.9343e-03_rb,1.0019e-02_rb, &
+     &1.2473e-02_rb,1.5904e-02_rb,1.5528e-02_rb/)
+      kao(:, 1, 2, 8) = (/ &
+     &1.8928e-04_rb,2.4121e-03_rb,4.0623e-03_rb,5.5541e-03_rb,6.9898e-03_rb,8.5008e-03_rb, &
+     &1.0323e-02_rb,1.3028e-02_rb,1.2924e-02_rb/)
+      kao(:, 2, 2, 8) = (/ &
+     &1.9267e-04_rb,2.4360e-03_rb,4.0898e-03_rb,5.5901e-03_rb,7.0384e-03_rb,8.5652e-03_rb, &
+     &1.0405e-02_rb,1.3116e-02_rb,1.3041e-02_rb/)
+      kao(:, 3, 2, 8) = (/ &
+     &1.9724e-04_rb,2.4656e-03_rb,4.1277e-03_rb,5.6355e-03_rb,7.0999e-03_rb,8.6497e-03_rb, &
+     &1.0515e-02_rb,1.3234e-02_rb,1.3193e-02_rb/)
+      kao(:, 4, 2, 8) = (/ &
+     &2.0128e-04_rb,2.4981e-03_rb,4.1715e-03_rb,5.6919e-03_rb,7.1715e-03_rb,8.7477e-03_rb, &
+     &1.0645e-02_rb,1.3388e-02_rb,1.3368e-02_rb/)
+      kao(:, 5, 2, 8) = (/ &
+     &2.0477e-04_rb,2.5328e-03_rb,4.2216e-03_rb,5.7557e-03_rb,7.2538e-03_rb,8.8556e-03_rb, &
+     &1.0788e-02_rb,1.3565e-02_rb,1.3563e-02_rb/)
+      kao(:, 1, 3, 8) = (/ &
+     &3.5927e-04_rb,2.5910e-03_rb,4.2037e-03_rb,5.6032e-03_rb,6.8389e-03_rb,7.9673e-03_rb, &
+     &9.0787e-03_rb,1.0659e-02_rb,1.1075e-02_rb/)
+      kao(:, 2, 3, 8) = (/ &
+     &3.6570e-04_rb,2.6231e-03_rb,4.2518e-03_rb,5.6510e-03_rb,6.8860e-03_rb,8.0235e-03_rb, &
+     &9.1475e-03_rb,1.0746e-02_rb,1.1185e-02_rb/)
+      kao(:, 3, 3, 8) = (/ &
+     &3.7255e-04_rb,2.6596e-03_rb,4.3088e-03_rb,5.7121e-03_rb,6.9479e-03_rb,8.0889e-03_rb, &
+     &9.2308e-03_rb,1.0860e-02_rb,1.1321e-02_rb/)
+      kao(:, 4, 3, 8) = (/ &
+     &3.8155e-04_rb,2.7037e-03_rb,4.3688e-03_rb,5.7837e-03_rb,7.0219e-03_rb,8.1712e-03_rb, &
+     &9.3303e-03_rb,1.0993e-02_rb,1.1473e-02_rb/)
+      kao(:, 5, 3, 8) = (/ &
+     &3.8777e-04_rb,2.7514e-03_rb,4.4348e-03_rb,5.8612e-03_rb,7.1061e-03_rb,8.2670e-03_rb, &
+     &9.4452e-03_rb,1.1141e-02_rb,1.1658e-02_rb/)
+      kao(:, 1, 4, 8) = (/ &
+     &6.9620e-04_rb,2.9029e-03_rb,4.4649e-03_rb,5.7896e-03_rb,6.9152e-03_rb,7.8788e-03_rb, &
+     &8.6335e-03_rb,9.2668e-03_rb,9.4651e-03_rb/)
+      kao(:, 2, 4, 8) = (/ &
+     &7.1019e-04_rb,2.9517e-03_rb,4.5263e-03_rb,5.8664e-03_rb,6.9912e-03_rb,7.9468e-03_rb, &
+     &8.6984e-03_rb,9.3401e-03_rb,9.5623e-03_rb/)
+      kao(:, 3, 4, 8) = (/ &
+     &7.2359e-04_rb,3.0044e-03_rb,4.5979e-03_rb,5.9489e-03_rb,7.0830e-03_rb,8.0315e-03_rb, &
+     &8.7768e-03_rb,9.4291e-03_rb,9.6859e-03_rb/)
+      kao(:, 4, 4, 8) = (/ &
+     &7.3828e-04_rb,3.0619e-03_rb,4.6789e-03_rb,6.0379e-03_rb,7.1842e-03_rb,8.1322e-03_rb, &
+     &8.8743e-03_rb,9.5317e-03_rb,9.8248e-03_rb/)
+      kao(:, 5, 4, 8) = (/ &
+     &7.5535e-04_rb,3.1266e-03_rb,4.7671e-03_rb,6.1369e-03_rb,7.2972e-03_rb,8.2469e-03_rb, &
+     &8.9884e-03_rb,9.6595e-03_rb,9.9955e-03_rb/)
+      kao(:, 1, 5, 8) = (/ &
+     &1.2367e-03_rb,3.3787e-03_rb,4.7869e-03_rb,5.9863e-03_rb,7.0094e-03_rb,7.8065e-03_rb, &
+     &8.3893e-03_rb,8.6393e-03_rb,8.1050e-03_rb/)
+      kao(:, 2, 5, 8) = (/ &
+     &1.2606e-03_rb,3.4408e-03_rb,4.8727e-03_rb,6.0829e-03_rb,7.1090e-03_rb,7.9083e-03_rb, &
+     &8.4736e-03_rb,8.7084e-03_rb,8.1896e-03_rb/)
+      kao(:, 3, 5, 8) = (/ &
+     &1.2858e-03_rb,3.5058e-03_rb,4.9695e-03_rb,6.1896e-03_rb,7.2184e-03_rb,8.0235e-03_rb, &
+     &8.5795e-03_rb,8.7948e-03_rb,8.2945e-03_rb/)
+      kao(:, 4, 5, 8) = (/ &
+     &1.3144e-03_rb,3.5781e-03_rb,5.0734e-03_rb,6.3066e-03_rb,7.3381e-03_rb,8.1502e-03_rb, &
+     &8.7050e-03_rb,8.8972e-03_rb,8.4098e-03_rb/)
+      kao(:, 5, 5, 8) = (/ &
+     &1.3469e-03_rb,3.6641e-03_rb,5.1833e-03_rb,6.4362e-03_rb,7.4701e-03_rb,8.2878e-03_rb, &
+     &8.8414e-03_rb,9.0166e-03_rb,8.5483e-03_rb/)
+      kao(:, 1, 6, 8) = (/ &
+     &2.0401e-03_rb,4.1601e-03_rb,5.3408e-03_rb,6.2948e-03_rb,7.1082e-03_rb,7.7648e-03_rb, &
+     &8.1607e-03_rb,8.2016e-03_rb,6.9653e-03_rb/)
+      kao(:, 2, 6, 8) = (/ &
+     &2.0844e-03_rb,4.2423e-03_rb,5.4455e-03_rb,6.4160e-03_rb,7.2313e-03_rb,7.8855e-03_rb, &
+     &8.2759e-03_rb,8.2810e-03_rb,7.0331e-03_rb/)
+      kao(:, 3, 6, 8) = (/ &
+     &2.1282e-03_rb,4.3237e-03_rb,5.5575e-03_rb,6.5512e-03_rb,7.3708e-03_rb,8.0202e-03_rb, &
+     &8.4033e-03_rb,8.3806e-03_rb,7.1162e-03_rb/)
+      kao(:, 4, 6, 8) = (/ &
+     &2.1756e-03_rb,4.4109e-03_rb,5.6792e-03_rb,6.6960e-03_rb,7.5224e-03_rb,8.1665e-03_rb, &
+     &8.5397e-03_rb,8.4981e-03_rb,7.2093e-03_rb/)
+      kao(:, 5, 6, 8) = (/ &
+     &2.2255e-03_rb,4.5091e-03_rb,5.8068e-03_rb,6.8485e-03_rb,7.6856e-03_rb,8.3228e-03_rb, &
+     &8.6864e-03_rb,8.6279e-03_rb,7.3203e-03_rb/)
+      kao(:, 1, 7, 8) = (/ &
+     &3.5433e-03_rb,5.7288e-03_rb,6.6788e-03_rb,7.3197e-03_rb,7.7679e-03_rb,8.0638e-03_rb, &
+     &8.2036e-03_rb,7.9558e-03_rb,6.0055e-03_rb/)
+      kao(:, 2, 7, 8) = (/ &
+     &3.6269e-03_rb,5.8458e-03_rb,6.8139e-03_rb,7.4674e-03_rb,7.9220e-03_rb,8.2152e-03_rb, &
+     &8.3417e-03_rb,8.0664e-03_rb,6.0619e-03_rb/)
+      kao(:, 3, 7, 8) = (/ &
+     &3.7095e-03_rb,5.9702e-03_rb,6.9487e-03_rb,7.6264e-03_rb,8.0952e-03_rb,8.3842e-03_rb, &
+     &8.4920e-03_rb,8.1889e-03_rb,6.1273e-03_rb/)
+      kao(:, 4, 7, 8) = (/ &
+     &3.7971e-03_rb,6.0972e-03_rb,7.0950e-03_rb,7.7981e-03_rb,8.2789e-03_rb,8.5668e-03_rb, &
+     &8.6571e-03_rb,8.3173e-03_rb,6.2019e-03_rb/)
+      kao(:, 5, 7, 8) = (/ &
+     &3.8894e-03_rb,6.2311e-03_rb,7.2602e-03_rb,7.9756e-03_rb,8.4749e-03_rb,8.7608e-03_rb, &
+     &8.8292e-03_rb,8.4586e-03_rb,6.2926e-03_rb/)
+      kao(:, 1, 8, 8) = (/ &
+     &7.2384e-03_rb,9.3960e-03_rb,1.0099e-02_rb,1.0331e-02_rb,1.0208e-02_rb,9.8199e-03_rb, &
+     &9.1852e-03_rb,8.2577e-03_rb,5.1301e-03_rb/)
+      kao(:, 2, 8, 8) = (/ &
+     &7.4182e-03_rb,9.6243e-03_rb,1.0349e-02_rb,1.0556e-02_rb,1.0419e-02_rb,1.0021e-02_rb, &
+     &9.3680e-03_rb,8.3968e-03_rb,5.1752e-03_rb/)
+      kao(:, 3, 8, 8) = (/ &
+     &7.6043e-03_rb,9.8546e-03_rb,1.0598e-02_rb,1.0777e-02_rb,1.0633e-02_rb,1.0249e-02_rb, &
+     &9.5676e-03_rb,8.5508e-03_rb,5.2269e-03_rb/)
+      kao(:, 4, 8, 8) = (/ &
+     &7.7980e-03_rb,1.0094e-02_rb,1.0836e-02_rb,1.1012e-02_rb,1.0870e-02_rb,1.0482e-02_rb, &
+     &9.7866e-03_rb,8.7162e-03_rb,5.2872e-03_rb/)
+      kao(:, 5, 8, 8) = (/ &
+     &8.0005e-03_rb,1.0352e-02_rb,1.1093e-02_rb,1.1272e-02_rb,1.1127e-02_rb,1.0726e-02_rb, &
+     &1.0012e-02_rb,8.8875e-03_rb,5.3638e-03_rb/)
+      kao(:, 1, 9, 8) = (/ &
+     &2.7897e-02_rb,2.8473e-02_rb,2.7594e-02_rb,2.5806e-02_rb,2.3354e-02_rb,2.0346e-02_rb, &
+     &1.6782e-02_rb,1.2341e-02_rb,4.1787e-03_rb/)
+      kao(:, 2, 9, 8) = (/ &
+     &2.8638e-02_rb,2.9187e-02_rb,2.8303e-02_rb,2.6475e-02_rb,2.3949e-02_rb,2.0857e-02_rb, &
+     &1.7181e-02_rb,1.2602e-02_rb,4.2128e-03_rb/)
+      kao(:, 3, 9, 8) = (/ &
+     &2.9413e-02_rb,2.9901e-02_rb,2.8994e-02_rb,2.7143e-02_rb,2.4571e-02_rb,2.1381e-02_rb, &
+     &1.7560e-02_rb,1.2888e-02_rb,4.2655e-03_rb/)
+      kao(:, 4, 9, 8) = (/ &
+     &3.0228e-02_rb,3.0665e-02_rb,2.9734e-02_rb,2.7828e-02_rb,2.5188e-02_rb,2.1923e-02_rb, &
+     &1.7970e-02_rb,1.3183e-02_rb,4.3190e-03_rb/)
+      kao(:, 5, 9, 8) = (/ &
+     &3.1084e-02_rb,3.1463e-02_rb,3.0494e-02_rb,2.8550e-02_rb,2.5844e-02_rb,2.2478e-02_rb, &
+     &1.8412e-02_rb,1.3496e-02_rb,4.3806e-03_rb/)
+      kao(:, 1,10, 8) = (/ &
+     &1.1962e-01_rb,1.0878e-01_rb,9.8349e-02_rb,8.6745e-02_rb,7.3912e-02_rb,5.9973e-02_rb, &
+     &4.4839e-02_rb,2.7943e-02_rb,4.7543e-03_rb/)
+      kao(:, 2,10, 8) = (/ &
+     &1.2315e-01_rb,1.1182e-01_rb,1.0110e-01_rb,8.9175e-02_rb,7.5937e-02_rb,6.1630e-02_rb, &
+     &4.6110e-02_rb,2.8679e-02_rb,4.8196e-03_rb/)
+      kao(:, 3,10, 8) = (/ &
+     &1.2693e-01_rb,1.1500e-01_rb,1.0391e-01_rb,9.1586e-02_rb,7.7974e-02_rb,6.3317e-02_rb, &
+     &4.7374e-02_rb,2.9424e-02_rb,4.8761e-03_rb/)
+      kao(:, 4,10, 8) = (/ &
+     &1.3084e-01_rb,1.1837e-01_rb,1.0689e-01_rb,9.4192e-02_rb,8.0184e-02_rb,6.5076e-02_rb, &
+     &4.8672e-02_rb,3.0173e-02_rb,4.8766e-03_rb/)
+      kao(:, 5,10, 8) = (/ &
+     &1.3499e-01_rb,1.2195e-01_rb,1.1004e-01_rb,9.6906e-02_rb,8.2479e-02_rb,6.6930e-02_rb, &
+     &4.9998e-02_rb,3.0984e-02_rb,4.9096e-03_rb/)
+      kao(:, 1,11, 8) = (/ &
+     &1.7854e-01_rb,1.6015e-01_rb,1.4269e-01_rb,1.2418e-01_rb,1.0441e-01_rb,8.3289e-02_rb, &
+     &6.0955e-02_rb,3.6472e-02_rb,5.4769e-03_rb/)
+      kao(:, 2,11, 8) = (/ &
+     &1.8442e-01_rb,1.6524e-01_rb,1.4721e-01_rb,1.2815e-01_rb,1.0771e-01_rb,8.5980e-02_rb, &
+     &6.2870e-02_rb,3.7580e-02_rb,5.4728e-03_rb/)
+      kao(:, 3,11, 8) = (/ &
+     &1.9077e-01_rb,1.7071e-01_rb,1.5197e-01_rb,1.3224e-01_rb,1.1114e-01_rb,8.8708e-02_rb, &
+     &6.4824e-02_rb,3.8654e-02_rb,5.4615e-03_rb/)
+      kao(:, 4,11, 8) = (/ &
+     &1.9746e-01_rb,1.7645e-01_rb,1.5699e-01_rb,1.3658e-01_rb,1.1475e-01_rb,9.1549e-02_rb, &
+     &6.6833e-02_rb,3.9764e-02_rb,5.4686e-03_rb/)
+      kao(:, 5,11, 8) = (/ &
+     &2.0452e-01_rb,1.8255e-01_rb,1.6232e-01_rb,1.4114e-01_rb,1.1852e-01_rb,9.4452e-02_rb, &
+     &6.8909e-02_rb,4.0947e-02_rb,5.4706e-03_rb/)
+      kao(:, 1,12, 8) = (/ &
+     &2.0120e-01_rb,1.7983e-01_rb,1.5919e-01_rb,1.3760e-01_rb,1.1465e-01_rb,9.0568e-02_rb, &
+     &6.5383e-02_rb,3.8355e-02_rb,5.7670e-03_rb/)
+      kao(:, 2,12, 8) = (/ &
+     &2.0757e-01_rb,1.8546e-01_rb,1.6435e-01_rb,1.4209e-01_rb,1.1843e-01_rb,9.3538e-02_rb, &
+     &6.7515e-02_rb,3.9583e-02_rb,5.7182e-03_rb/)
+      kao(:, 3,12, 8) = (/ &
+     &2.1449e-01_rb,1.9151e-01_rb,1.6961e-01_rb,1.4673e-01_rb,1.2244e-01_rb,9.6759e-02_rb, &
+     &6.9782e-02_rb,4.0857e-02_rb,5.7245e-03_rb/)
+      kao(:, 4,12, 8) = (/ &
+     &2.2222e-01_rb,1.9817e-01_rb,1.7542e-01_rb,1.5173e-01_rb,1.2653e-01_rb,1.0003e-01_rb, &
+     &7.2145e-02_rb,4.2184e-02_rb,5.7102e-03_rb/)
+      kao(:, 5,12, 8) = (/ &
+     &2.3023e-01_rb,2.0507e-01_rb,1.8144e-01_rb,1.5689e-01_rb,1.3087e-01_rb,1.0351e-01_rb, &
+     &7.4642e-02_rb,4.3620e-02_rb,5.7450e-03_rb/)
+      kao(:, 1,13, 8) = (/ &
+     &1.8448e-01_rb,1.6553e-01_rb,1.4649e-01_rb,1.2620e-01_rb,1.0471e-01_rb,8.2340e-02_rb, &
+     &5.9042e-02_rb,3.4367e-02_rb,5.6219e-03_rb/)
+      kao(:, 2,13, 8) = (/ &
+     &1.9034e-01_rb,1.7056e-01_rb,1.5103e-01_rb,1.3022e-01_rb,1.0811e-01_rb,8.5094e-02_rb, &
+     &6.1006e-02_rb,3.5479e-02_rb,5.5942e-03_rb/)
+      kao(:, 3,13, 8) = (/ &
+     &1.9658e-01_rb,1.7595e-01_rb,1.5589e-01_rb,1.3452e-01_rb,1.1170e-01_rb,8.7865e-02_rb, &
+     &6.2984e-02_rb,3.6599e-02_rb,5.6072e-03_rb/)
+      kao(:, 4,13, 8) = (/ &
+     &2.0338e-01_rb,1.8188e-01_rb,1.6115e-01_rb,1.3898e-01_rb,1.1533e-01_rb,9.0760e-02_rb, &
+     &6.5090e-02_rb,3.7803e-02_rb,5.6436e-03_rb/)
+      kao(:, 5,13, 8) = (/ &
+     &2.1087e-01_rb,1.8825e-01_rb,1.6661e-01_rb,1.4369e-01_rb,1.1939e-01_rb,9.3967e-02_rb, &
+     &6.7400e-02_rb,3.9148e-02_rb,5.6745e-03_rb/)
+      kao(:, 1, 1, 9) = (/ &
+     &9.4421e-04_rb,7.3440e-03_rb,1.3185e-02_rb,1.9434e-02_rb,2.5910e-02_rb,3.2531e-02_rb, &
+     &3.9377e-02_rb,4.6620e-02_rb,5.1571e-02_rb/)
+      kao(:, 2, 1, 9) = (/ &
+     &9.6482e-04_rb,7.2909e-03_rb,1.3109e-02_rb,1.9331e-02_rb,2.5776e-02_rb,3.2360e-02_rb, &
+     &3.9164e-02_rb,4.6323e-02_rb,5.1303e-02_rb/)
+      kao(:, 3, 1, 9) = (/ &
+     &9.8476e-04_rb,7.2409e-03_rb,1.3044e-02_rb,1.9248e-02_rb,2.5665e-02_rb,3.2216e-02_rb, &
+     &3.8981e-02_rb,4.6102e-02_rb,5.1082e-02_rb/)
+      kao(:, 4, 1, 9) = (/ &
+     &1.0020e-03_rb,7.1999e-03_rb,1.3010e-02_rb,1.9215e-02_rb,2.5618e-02_rb,3.2137e-02_rb, &
+     &3.8862e-02_rb,4.5932e-02_rb,5.0990e-02_rb/)
+      kao(:, 5, 1, 9) = (/ &
+     &1.0184e-03_rb,7.1770e-03_rb,1.3015e-02_rb,1.9243e-02_rb,2.5654e-02_rb,3.2165e-02_rb, &
+     &3.8858e-02_rb,4.5863e-02_rb,5.1066e-02_rb/)
+      kao(:, 1, 2, 9) = (/ &
+     &1.3462e-03_rb,8.0869e-03_rb,1.3393e-02_rb,1.9013e-02_rb,2.4987e-02_rb,3.1278e-02_rb, &
+     &3.7900e-02_rb,4.5296e-02_rb,4.9469e-02_rb/)
+      kao(:, 2, 2, 9) = (/ &
+     &1.3803e-03_rb,8.0241e-03_rb,1.3304e-02_rb,1.8903e-02_rb,2.4859e-02_rb,3.1123e-02_rb, &
+     &3.7707e-02_rb,4.5049e-02_rb,4.9230e-02_rb/)
+      kao(:, 3, 2, 9) = (/ &
+     &1.4130e-03_rb,7.9636e-03_rb,1.3235e-02_rb,1.8828e-02_rb,2.4777e-02_rb,3.1019e-02_rb, &
+     &3.7558e-02_rb,4.4839e-02_rb,4.9085e-02_rb/)
+      kao(:, 4, 2, 9) = (/ &
+     &1.4417e-03_rb,7.9144e-03_rb,1.3198e-02_rb,1.8807e-02_rb,2.4768e-02_rb,3.1006e-02_rb, &
+     &3.7513e-02_rb,4.4699e-02_rb,4.9090e-02_rb/)
+      kao(:, 5, 2, 9) = (/ &
+     &1.4672e-03_rb,7.8840e-03_rb,1.3197e-02_rb,1.8844e-02_rb,2.4841e-02_rb,3.1094e-02_rb, &
+     &3.7591e-02_rb,4.4701e-02_rb,4.9253e-02_rb/)
+      kao(:, 1, 3, 9) = (/ &
+     &2.5556e-03_rb,1.0082e-02_rb,1.5320e-02_rb,1.9920e-02_rb,2.4710e-02_rb,2.9907e-02_rb, &
+     &3.5684e-02_rb,4.2430e-02_rb,4.6609e-02_rb/)
+      kao(:, 2, 3, 9) = (/ &
+     &2.6284e-03_rb,1.0047e-02_rb,1.5209e-02_rb,1.9796e-02_rb,2.4582e-02_rb,2.9765e-02_rb, &
+     &3.5524e-02_rb,4.2220e-02_rb,4.6433e-02_rb/)
+      kao(:, 3, 3, 9) = (/ &
+     &2.6960e-03_rb,1.0006e-02_rb,1.5105e-02_rb,1.9696e-02_rb,2.4496e-02_rb,2.9686e-02_rb, &
+     &3.5446e-02_rb,4.2085e-02_rb,4.6365e-02_rb/)
+      kao(:, 4, 3, 9) = (/ &
+     &2.7589e-03_rb,9.9586e-03_rb,1.5035e-02_rb,1.9644e-02_rb,2.4475e-02_rb,2.9692e-02_rb, &
+     &3.5469e-02_rb,4.2071e-02_rb,4.6440e-02_rb/)
+      kao(:, 5, 3, 9) = (/ &
+     &2.8129e-03_rb,9.9196e-03_rb,1.4994e-02_rb,1.9639e-02_rb,2.4519e-02_rb,2.9788e-02_rb, &
+     &3.5597e-02_rb,4.2188e-02_rb,4.6642e-02_rb/)
+      kao(:, 1, 4, 9) = (/ &
+     &4.8937e-03_rb,1.3203e-02_rb,1.8921e-02_rb,2.3296e-02_rb,2.6924e-02_rb,3.0282e-02_rb, &
+     &3.4096e-02_rb,3.9071e-02_rb,4.3251e-02_rb/)
+      kao(:, 2, 4, 9) = (/ &
+     &5.0488e-03_rb,1.3226e-02_rb,1.8867e-02_rb,2.3170e-02_rb,2.6777e-02_rb,3.0147e-02_rb, &
+     &3.3963e-02_rb,3.8948e-02_rb,4.3159e-02_rb/)
+      kao(:, 3, 4, 9) = (/ &
+     &5.1910e-03_rb,1.3248e-02_rb,1.8795e-02_rb,2.3060e-02_rb,2.6655e-02_rb,3.0063e-02_rb, &
+     &3.3903e-02_rb,3.8899e-02_rb,4.3165e-02_rb/)
+      kao(:, 4, 4, 9) = (/ &
+     &5.3207e-03_rb,1.3268e-02_rb,1.8730e-02_rb,2.2981e-02_rb,2.6589e-02_rb,3.0040e-02_rb, &
+     &3.3930e-02_rb,3.8970e-02_rb,4.3287e-02_rb/)
+      kao(:, 5, 4, 9) = (/ &
+     &5.4422e-03_rb,1.3287e-02_rb,1.8693e-02_rb,2.2945e-02_rb,2.6576e-02_rb,3.0081e-02_rb, &
+     &3.4041e-02_rb,3.9135e-02_rb,4.3512e-02_rb/)
+      kao(:, 1, 5, 9) = (/ &
+     &8.5307e-03_rb,1.7183e-02_rb,2.3465e-02_rb,2.7970e-02_rb,3.1130e-02_rb,3.3358e-02_rb, &
+     &3.4774e-02_rb,3.6613e-02_rb,3.9589e-02_rb/)
+      kao(:, 2, 5, 9) = (/ &
+     &8.8245e-03_rb,1.7347e-02_rb,2.3508e-02_rb,2.7937e-02_rb,3.1047e-02_rb,3.3237e-02_rb, &
+     &3.4670e-02_rb,3.6530e-02_rb,3.9570e-02_rb/)
+      kao(:, 3, 5, 9) = (/ &
+     &9.0927e-03_rb,1.7496e-02_rb,2.3535e-02_rb,2.7881e-02_rb,3.0966e-02_rb,3.3147e-02_rb, &
+     &3.4603e-02_rb,3.6513e-02_rb,3.9628e-02_rb/)
+      kao(:, 4, 5, 9) = (/ &
+     &9.3371e-03_rb,1.7632e-02_rb,2.3559e-02_rb,2.7829e-02_rb,3.0920e-02_rb,3.3100e-02_rb, &
+     &3.4594e-02_rb,3.6581e-02_rb,3.9792e-02_rb/)
+      kao(:, 5, 5, 9) = (/ &
+     &9.5713e-03_rb,1.7760e-02_rb,2.3602e-02_rb,2.7816e-02_rb,3.0915e-02_rb,3.3109e-02_rb, &
+     &3.4648e-02_rb,3.6731e-02_rb,4.0039e-02_rb/)
+      kao(:, 1, 6, 9) = (/ &
+     &1.3837e-02_rb,2.2346e-02_rb,2.8803e-02_rb,3.3403e-02_rb,3.6375e-02_rb,3.7770e-02_rb, &
+     &3.7769e-02_rb,3.6158e-02_rb,3.5736e-02_rb/)
+      kao(:, 2, 6, 9) = (/ &
+     &1.4345e-02_rb,2.2684e-02_rb,2.9062e-02_rb,3.3523e-02_rb,3.6415e-02_rb,3.7748e-02_rb, &
+     &3.7698e-02_rb,3.6127e-02_rb,3.5788e-02_rb/)
+      kao(:, 3, 6, 9) = (/ &
+     &1.4814e-02_rb,2.3025e-02_rb,2.9297e-02_rb,3.3616e-02_rb,3.6414e-02_rb,3.7728e-02_rb, &
+     &3.7657e-02_rb,3.6132e-02_rb,3.5900e-02_rb/)
+      kao(:, 4, 6, 9) = (/ &
+     &1.5241e-02_rb,2.3333e-02_rb,2.9502e-02_rb,3.3707e-02_rb,3.6417e-02_rb,3.7743e-02_rb, &
+     &3.7671e-02_rb,3.6177e-02_rb,3.6086e-02_rb/)
+      kao(:, 5, 6, 9) = (/ &
+     &1.5643e-02_rb,2.3601e-02_rb,2.9688e-02_rb,3.3808e-02_rb,3.6468e-02_rb,3.7791e-02_rb, &
+     &3.7729e-02_rb,3.6273e-02_rb,3.6334e-02_rb/)
+      kao(:, 1, 7, 9) = (/ &
+     &2.3687e-02_rb,3.1230e-02_rb,3.7445e-02_rb,4.1636e-02_rb,4.4049e-02_rb,4.4684e-02_rb, &
+     &4.3161e-02_rb,3.8835e-02_rb,3.1866e-02_rb/)
+      kao(:, 2, 7, 9) = (/ &
+     &2.4610e-02_rb,3.1967e-02_rb,3.8037e-02_rb,4.2097e-02_rb,4.4354e-02_rb,4.4855e-02_rb, &
+     &4.3236e-02_rb,3.8850e-02_rb,3.1969e-02_rb/)
+      kao(:, 3, 7, 9) = (/ &
+     &2.5467e-02_rb,3.2639e-02_rb,3.8612e-02_rb,4.2519e-02_rb,4.4609e-02_rb,4.4967e-02_rb, &
+     &4.3302e-02_rb,3.8885e-02_rb,3.2129e-02_rb/)
+      kao(:, 4, 7, 9) = (/ &
+     &2.6267e-02_rb,3.3238e-02_rb,3.9137e-02_rb,4.2894e-02_rb,4.4845e-02_rb,4.5082e-02_rb, &
+     &4.3395e-02_rb,3.8965e-02_rb,3.2326e-02_rb/)
+      kao(:, 5, 7, 9) = (/ &
+     &2.6995e-02_rb,3.3786e-02_rb,3.9598e-02_rb,4.3239e-02_rb,4.5071e-02_rb,4.5249e-02_rb, &
+     &4.3527e-02_rb,3.9067e-02_rb,3.2557e-02_rb/)
+      kao(:, 1, 8, 9) = (/ &
+     &4.7920e-02_rb,5.2366e-02_rb,5.6749e-02_rb,5.9168e-02_rb,5.9712e-02_rb,5.8092e-02_rb, &
+     &5.3946e-02_rb,4.5783e-02_rb,2.8113e-02_rb/)
+      kao(:, 2, 8, 9) = (/ &
+     &4.9884e-02_rb,5.3965e-02_rb,5.8166e-02_rb,6.0347e-02_rb,6.0665e-02_rb,5.8786e-02_rb, &
+     &5.4351e-02_rb,4.5985e-02_rb,2.8254e-02_rb/)
+      kao(:, 3, 8, 9) = (/ &
+     &5.1719e-02_rb,5.5478e-02_rb,5.9448e-02_rb,6.1483e-02_rb,6.1565e-02_rb,5.9384e-02_rb, &
+     &5.4686e-02_rb,4.6159e-02_rb,2.8435e-02_rb/)
+      kao(:, 4, 8, 9) = (/ &
+     &5.3394e-02_rb,5.6807e-02_rb,6.0645e-02_rb,6.2509e-02_rb,6.2363e-02_rb,5.9916e-02_rb, &
+     &5.4999e-02_rb,4.6361e-02_rb,2.8611e-02_rb/)
+      kao(:, 5, 8, 9) = (/ &
+     &5.4964e-02_rb,5.7985e-02_rb,6.1688e-02_rb,6.3442e-02_rb,6.3043e-02_rb,6.0445e-02_rb, &
+     &5.5342e-02_rb,4.6592e-02_rb,2.8833e-02_rb/)
+      kao(:, 1, 9, 9) = (/ &
+     &1.8387e-01_rb,1.6808e-01_rb,1.5799e-01_rb,1.4671e-01_rb,1.3366e-01_rb,1.1828e-01_rb, &
+     &9.9590e-02_rb,7.4670e-02_rb,2.3960e-02_rb/)
+      kao(:, 2, 9, 9) = (/ &
+     &1.9171e-01_rb,1.7460e-01_rb,1.6351e-01_rb,1.5144e-01_rb,1.3758e-01_rb,1.2130e-01_rb, &
+     &1.0166e-01_rb,7.5740e-02_rb,2.4137e-02_rb/)
+      kao(:, 3, 9, 9) = (/ &
+     &1.9894e-01_rb,1.8065e-01_rb,1.6862e-01_rb,1.5587e-01_rb,1.4113e-01_rb,1.2411e-01_rb, &
+     &1.0364e-01_rb,7.6719e-02_rb,2.4294e-02_rb/)
+      kao(:, 4, 9, 9) = (/ &
+     &2.0563e-01_rb,1.8623e-01_rb,1.7319e-01_rb,1.5976e-01_rb,1.4435e-01_rb,1.2672e-01_rb, &
+     &1.0542e-01_rb,7.7598e-02_rb,2.4446e-02_rb/)
+      kao(:, 5, 9, 9) = (/ &
+     &2.1200e-01_rb,1.9152e-01_rb,1.7746e-01_rb,1.6330e-01_rb,1.4720e-01_rb,1.2898e-01_rb, &
+     &1.0699e-01_rb,7.8411e-02_rb,2.4664e-02_rb/)
+      kao(:, 1,10, 9) = (/ &
+     &7.9805e-01_rb,7.0103e-01_rb,6.0984e-01_rb,5.2274e-01_rb,4.3812e-01_rb,3.5220e-01_rb, &
+     &2.6270e-01_rb,1.6632e-01_rb,1.8620e-02_rb/)
+      kao(:, 2,10, 9) = (/ &
+     &8.3214e-01_rb,7.3068e-01_rb,6.3476e-01_rb,5.4295e-01_rb,4.5426e-01_rb,3.6461e-01_rb, &
+     &2.7128e-01_rb,1.7099e-01_rb,1.8699e-02_rb/)
+      kao(:, 3,10, 9) = (/ &
+     &8.6405e-01_rb,7.5844e-01_rb,6.5814e-01_rb,5.6198e-01_rb,4.6922e-01_rb,3.7620e-01_rb, &
+     &2.7918e-01_rb,1.7530e-01_rb,1.8761e-02_rb/)
+      kao(:, 4,10, 9) = (/ &
+     &8.9399e-01_rb,7.8448e-01_rb,6.8005e-01_rb,5.7978e-01_rb,4.8302e-01_rb,3.8668e-01_rb, &
+     &2.8631e-01_rb,1.7930e-01_rb,1.8825e-02_rb/)
+      kao(:, 5,10, 9) = (/ &
+     &9.2229e-01_rb,8.0909e-01_rb,7.0076e-01_rb,5.9657e-01_rb,4.9598e-01_rb,3.9642e-01_rb, &
+     &2.9286e-01_rb,1.8285e-01_rb,1.8959e-02_rb/)
+      kao(:, 1,11, 9) = (/ &
+     &1.2376e+00_rb,1.0851e+00_rb,9.3781e-01_rb,7.9479e-01_rb,6.5536e-01_rb,5.1636e-01_rb, &
+     &3.7350e-01_rb,2.2328e-01_rb,1.9046e-02_rb/)
+      kao(:, 2,11, 9) = (/ &
+     &1.2888e+00_rb,1.1296e+00_rb,9.7557e-01_rb,8.2566e-01_rb,6.7951e-01_rb,5.3467e-01_rb, &
+     &3.8601e-01_rb,2.3011e-01_rb,1.9117e-02_rb/)
+      kao(:, 3,11, 9) = (/ &
+     &1.3372e+00_rb,1.1719e+00_rb,1.0114e+00_rb,8.5500e-01_rb,7.0234e-01_rb,5.5187e-01_rb, &
+     &3.9765e-01_rb,2.3639e-01_rb,1.9165e-02_rb/)
+      kao(:, 4,11, 9) = (/ &
+     &1.3819e+00_rb,1.2109e+00_rb,1.0444e+00_rb,8.8194e-01_rb,7.2332e-01_rb,5.6752e-01_rb, &
+     &4.0827e-01_rb,2.4219e-01_rb,1.9058e-02_rb/)
+      kao(:, 5,11, 9) = (/ &
+     &1.4259e+00_rb,1.2494e+00_rb,1.0769e+00_rb,9.0854e-01_rb,7.4408e-01_rb,5.8286e-01_rb, &
+     &4.1859e-01_rb,2.4748e-01_rb,1.9067e-02_rb/)
+      kao(:, 1,12, 9) = (/ &
+     &1.4243e+00_rb,1.2488e+00_rb,1.0789e+00_rb,9.1317e-01_rb,7.5092e-01_rb,5.8812e-01_rb, &
+     &4.2112e-01_rb,2.4611e-01_rb,1.9872e-02_rb/)
+      kao(:, 2,12, 9) = (/ &
+     &1.4836e+00_rb,1.3004e+00_rb,1.1224e+00_rb,9.4876e-01_rb,7.7876e-01_rb,6.0917e-01_rb, &
+     &4.3528e-01_rb,2.5376e-01_rb,2.0064e-02_rb/)
+      kao(:, 3,12, 9) = (/ &
+     &1.5386e+00_rb,1.3484e+00_rb,1.1631e+00_rb,9.8199e-01_rb,8.0461e-01_rb,6.2868e-01_rb, &
+     &4.4843e-01_rb,2.6085e-01_rb,2.0179e-02_rb/)
+      kao(:, 4,12, 9) = (/ &
+     &1.5909e+00_rb,1.3940e+00_rb,1.2017e+00_rb,1.0136e+00_rb,8.2931e-01_rb,6.4713e-01_rb, &
+     &4.6088e-01_rb,2.6745e-01_rb,2.0157e-02_rb/)
+      kao(:, 5,12, 9) = (/ &
+     &1.6423e+00_rb,1.4388e+00_rb,1.2396e+00_rb,1.0446e+00_rb,8.5343e-01_rb,6.6506e-01_rb, &
+     &4.7297e-01_rb,2.7367e-01_rb,2.0135e-02_rb/)
+      kao(:, 1,13, 9) = (/ &
+     &1.3090e+00_rb,1.1487e+00_rb,9.9498e-01_rb,8.4529e-01_rb,6.9751e-01_rb,5.4690e-01_rb, &
+     &3.9201e-01_rb,2.2831e-01_rb,1.9648e-02_rb/)
+      kao(:, 2,13, 9) = (/ &
+     &1.3642e+00_rb,1.1967e+00_rb,1.0354e+00_rb,8.7822e-01_rb,7.2355e-01_rb,5.6643e-01_rb, &
+     &4.0528e-01_rb,2.3543e-01_rb,1.9783e-02_rb/)
+      kao(:, 3,13, 9) = (/ &
+     &1.4156e+00_rb,1.2415e+00_rb,1.0731e+00_rb,9.0892e-01_rb,7.4783e-01_rb,5.8491e-01_rb, &
+     &4.1788e-01_rb,2.4217e-01_rb,1.9878e-02_rb/)
+      kao(:, 4,13, 9) = (/ &
+     &1.4652e+00_rb,1.2846e+00_rb,1.1094e+00_rb,9.3863e-01_rb,7.7135e-01_rb,6.0268e-01_rb, &
+     &4.2988e-01_rb,2.4851e-01_rb,1.9864e-02_rb/)
+      kao(:, 5,13, 9) = (/ &
+     &1.5126e+00_rb,1.3260e+00_rb,1.1446e+00_rb,9.6741e-01_rb,7.9378e-01_rb,6.1968e-01_rb, &
+     &4.4123e-01_rb,2.5440e-01_rb,1.9877e-02_rb/)
+      kao(:, 1, 1,10) = (/ &
+     &3.3844e-03_rb,1.5864e-02_rb,3.0967e-02_rb,4.5960e-02_rb,6.0759e-02_rb,7.5076e-02_rb, &
+     &8.8299e-02_rb,9.7840e-02_rb,1.2109e-01_rb/)
+      kao(:, 2, 1,10) = (/ &
+     &3.3774e-03_rb,1.5840e-02_rb,3.0916e-02_rb,4.5912e-02_rb,6.0698e-02_rb,7.5010e-02_rb, &
+     &8.8211e-02_rb,9.7731e-02_rb,1.2099e-01_rb/)
+      kao(:, 3, 1,10) = (/ &
+     &3.3575e-03_rb,1.5844e-02_rb,3.0912e-02_rb,4.5937e-02_rb,6.0728e-02_rb,7.5022e-02_rb, &
+     &8.8124e-02_rb,9.7474e-02_rb,1.2106e-01_rb/)
+      kao(:, 4, 1,10) = (/ &
+     &3.3333e-03_rb,1.5824e-02_rb,3.0829e-02_rb,4.5838e-02_rb,6.0646e-02_rb,7.4990e-02_rb, &
+     &8.8084e-02_rb,9.7173e-02_rb,1.2089e-01_rb/)
+      kao(:, 5, 1,10) = (/ &
+     &3.3084e-03_rb,1.5776e-02_rb,3.0693e-02_rb,4.5649e-02_rb,6.0428e-02_rb,7.4773e-02_rb, &
+     &8.7909e-02_rb,9.6839e-02_rb,1.2042e-01_rb/)
+      kao(:, 1, 2,10) = (/ &
+     &5.1392e-03_rb,1.7464e-02_rb,3.2432e-02_rb,4.7915e-02_rb,6.3487e-02_rb,7.8847e-02_rb, &
+     &9.3621e-02_rb,1.0600e-01_rb,1.2635e-01_rb/)
+      kao(:, 2, 2,10) = (/ &
+     &5.1325e-03_rb,1.7471e-02_rb,3.2464e-02_rb,4.7934e-02_rb,6.3521e-02_rb,7.8889e-02_rb, &
+     &9.3606e-02_rb,1.0592e-01_rb,1.2642e-01_rb/)
+      kao(:, 3, 2,10) = (/ &
+     &5.1157e-03_rb,1.7466e-02_rb,3.2343e-02_rb,4.7787e-02_rb,6.3340e-02_rb,7.8722e-02_rb, &
+     &9.3575e-02_rb,1.0588e-01_rb,1.2605e-01_rb/)
+      kao(:, 4, 2,10) = (/ &
+     &5.0987e-03_rb,1.7399e-02_rb,3.2075e-02_rb,4.7428e-02_rb,6.2893e-02_rb,7.8221e-02_rb, &
+     &9.3145e-02_rb,1.0589e-01_rb,1.2513e-01_rb/)
+      kao(:, 5, 2,10) = (/ &
+     &5.0781e-03_rb,1.7287e-02_rb,3.1803e-02_rb,4.7068e-02_rb,6.2420e-02_rb,7.7655e-02_rb, &
+     &9.2528e-02_rb,1.0558e-01_rb,1.2418e-01_rb/)
+      kao(:, 1, 3,10) = (/ &
+     &1.0449e-02_rb,2.2920e-02_rb,3.5229e-02_rb,4.9841e-02_rb,6.5300e-02_rb,8.0993e-02_rb, &
+     &9.6715e-02_rb,1.1178e-01_rb,1.2900e-01_rb/)
+      kao(:, 2, 3,10) = (/ &
+     &1.0475e-02_rb,2.2840e-02_rb,3.5278e-02_rb,4.9881e-02_rb,6.5245e-02_rb,8.1037e-02_rb, &
+     &9.6863e-02_rb,1.1212e-01_rb,1.2899e-01_rb/)
+      kao(:, 3, 3,10) = (/ &
+     &1.0487e-02_rb,2.2756e-02_rb,3.5213e-02_rb,4.9645e-02_rb,6.4866e-02_rb,8.0649e-02_rb, &
+     &9.6451e-02_rb,1.1190e-01_rb,1.2830e-01_rb/)
+      kao(:, 4, 3,10) = (/ &
+     &1.0493e-02_rb,2.2711e-02_rb,3.4996e-02_rb,4.9204e-02_rb,6.4312e-02_rb,7.9994e-02_rb, &
+     &9.5693e-02_rb,1.1109e-01_rb,1.2723e-01_rb/)
+      kao(:, 5, 3,10) = (/ &
+     &1.0487e-02_rb,2.2599e-02_rb,3.4737e-02_rb,4.8786e-02_rb,6.3856e-02_rb,7.9443e-02_rb, &
+     &9.5024e-02_rb,1.1021e-01_rb,1.2638e-01_rb/)
+      kao(:, 1, 4,10) = (/ &
+     &2.1474e-02_rb,3.4011e-02_rb,4.5615e-02_rb,5.6742e-02_rb,6.8329e-02_rb,8.2791e-02_rb, &
+     &9.7759e-02_rb,1.1367e-01_rb,1.2934e-01_rb/)
+      kao(:, 2, 4,10) = (/ &
+     &2.1593e-02_rb,3.3751e-02_rb,4.5521e-02_rb,5.6645e-02_rb,6.8211e-02_rb,8.2434e-02_rb, &
+     &9.7517e-02_rb,1.1348e-01_rb,1.2896e-01_rb/)
+      kao(:, 3, 4,10) = (/ &
+     &2.1694e-02_rb,3.3429e-02_rb,4.5406e-02_rb,5.6399e-02_rb,6.7862e-02_rb,8.1741e-02_rb, &
+     &9.6866e-02_rb,1.1284e-01_rb,1.2803e-01_rb/)
+      kao(:, 4, 4,10) = (/ &
+     &2.1761e-02_rb,3.3088e-02_rb,4.5200e-02_rb,5.5990e-02_rb,6.7313e-02_rb,8.0951e-02_rb, &
+     &9.6103e-02_rb,1.1192e-01_rb,1.2712e-01_rb/)
+      kao(:, 5, 4,10) = (/ &
+     &2.1871e-02_rb,3.2779e-02_rb,4.4802e-02_rb,5.5607e-02_rb,6.6864e-02_rb,8.0377e-02_rb, &
+     &9.5554e-02_rb,1.1124e-01_rb,1.2647e-01_rb/)
+      kao(:, 1, 5,10) = (/ &
+     &3.9770e-02_rb,5.1894e-02_rb,6.3327e-02_rb,7.2180e-02_rb,8.0917e-02_rb,8.8056e-02_rb, &
+     &9.8598e-02_rb,1.1206e-01_rb,1.2671e-01_rb/)
+      kao(:, 2, 5,10) = (/ &
+     &4.0140e-02_rb,5.1409e-02_rb,6.3212e-02_rb,7.2060e-02_rb,8.0506e-02_rb,8.7647e-02_rb, &
+     &9.8026e-02_rb,1.1163e-01_rb,1.2617e-01_rb/)
+      kao(:, 3, 5,10) = (/ &
+     &4.0492e-02_rb,5.0925e-02_rb,6.2882e-02_rb,7.1952e-02_rb,8.0008e-02_rb,8.6965e-02_rb, &
+     &9.7225e-02_rb,1.1094e-01_rb,1.2542e-01_rb/)
+      kao(:, 4, 5,10) = (/ &
+     &4.0826e-02_rb,5.0532e-02_rb,6.2408e-02_rb,7.1612e-02_rb,7.9337e-02_rb,8.6238e-02_rb, &
+     &9.6327e-02_rb,1.1019e-01_rb,1.2470e-01_rb/)
+      kao(:, 5, 5,10) = (/ &
+     &4.1162e-02_rb,5.0261e-02_rb,6.1890e-02_rb,7.0980e-02_rb,7.8777e-02_rb,8.5713e-02_rb, &
+     &9.5778e-02_rb,1.0986e-01_rb,1.2449e-01_rb/)
+      kao(:, 1, 6,10) = (/ &
+     &6.7916e-02_rb,7.7649e-02_rb,8.9172e-02_rb,9.6900e-02_rb,1.0149e-01_rb,1.0503e-01_rb, &
+     &1.0523e-01_rb,1.0994e-01_rb,1.2156e-01_rb/)
+      kao(:, 2, 6,10) = (/ &
+     &6.8757e-02_rb,7.7814e-02_rb,8.8891e-02_rb,9.7030e-02_rb,1.0144e-01_rb,1.0468e-01_rb, &
+     &1.0479e-01_rb,1.0906e-01_rb,1.2102e-01_rb/)
+      kao(:, 3, 6,10) = (/ &
+     &6.9572e-02_rb,7.7629e-02_rb,8.8407e-02_rb,9.6716e-02_rb,1.0124e-01_rb,1.0403e-01_rb, &
+     &1.0408e-01_rb,1.0810e-01_rb,1.2040e-01_rb/)
+      kao(:, 4, 6,10) = (/ &
+     &7.0420e-02_rb,7.7345e-02_rb,8.8011e-02_rb,9.6134e-02_rb,1.0079e-01_rb,1.0305e-01_rb, &
+     &1.0321e-01_rb,1.0749e-01_rb,1.2017e-01_rb/)
+      kao(:, 5, 6,10) = (/ &
+     &7.1176e-02_rb,7.7213e-02_rb,8.7761e-02_rb,9.5353e-02_rb,9.9879e-02_rb,1.0215e-01_rb, &
+     &1.0265e-01_rb,1.0733e-01_rb,1.2038e-01_rb/)
+      kao(:, 1, 7,10) = (/ &
+     &1.2127e-01_rb,1.2412e-01_rb,1.3217e-01_rb,1.3765e-01_rb,1.3951e-01_rb,1.3625e-01_rb, &
+     &1.2814e-01_rb,1.1487e-01_rb,1.1426e-01_rb/)
+      kao(:, 2, 7,10) = (/ &
+     &1.2309e-01_rb,1.2453e-01_rb,1.3252e-01_rb,1.3798e-01_rb,1.3976e-01_rb,1.3644e-01_rb, &
+     &1.2796e-01_rb,1.1426e-01_rb,1.1391e-01_rb/)
+      kao(:, 3, 7,10) = (/ &
+     &1.2489e-01_rb,1.2494e-01_rb,1.3228e-01_rb,1.3764e-01_rb,1.3951e-01_rb,1.3625e-01_rb, &
+     &1.2756e-01_rb,1.1350e-01_rb,1.1349e-01_rb/)
+      kao(:, 4, 7,10) = (/ &
+     &1.2680e-01_rb,1.2557e-01_rb,1.3198e-01_rb,1.3739e-01_rb,1.3886e-01_rb,1.3552e-01_rb, &
+     &1.2649e-01_rb,1.1282e-01_rb,1.1362e-01_rb/)
+      kao(:, 5, 7,10) = (/ &
+     &1.2852e-01_rb,1.2615e-01_rb,1.3199e-01_rb,1.3726e-01_rb,1.3802e-01_rb,1.3430e-01_rb, &
+     &1.2550e-01_rb,1.1257e-01_rb,1.1419e-01_rb/)
+      kao(:, 1, 8,10) = (/ &
+     &2.5214e-01_rb,2.3134e-01_rb,2.3152e-01_rb,2.2506e-01_rb,2.1543e-01_rb,2.0242e-01_rb, &
+     &1.8079e-01_rb,1.4566e-01_rb,1.0565e-01_rb/)
+      kao(:, 2, 8,10) = (/ &
+     &2.5695e-01_rb,2.3363e-01_rb,2.3275e-01_rb,2.2604e-01_rb,2.1637e-01_rb,2.0282e-01_rb, &
+     &1.8105e-01_rb,1.4554e-01_rb,1.0546e-01_rb/)
+      kao(:, 3, 8,10) = (/ &
+     &2.6176e-01_rb,2.3588e-01_rb,2.3395e-01_rb,2.2621e-01_rb,2.1636e-01_rb,2.0257e-01_rb, &
+     &1.8076e-01_rb,1.4513e-01_rb,1.0533e-01_rb/)
+      kao(:, 4, 8,10) = (/ &
+     &2.6651e-01_rb,2.3871e-01_rb,2.3539e-01_rb,2.2647e-01_rb,2.1633e-01_rb,2.0229e-01_rb, &
+     &1.8002e-01_rb,1.4419e-01_rb,1.0597e-01_rb/)
+      kao(:, 5, 8,10) = (/ &
+     &2.7042e-01_rb,2.4131e-01_rb,2.3677e-01_rb,2.2700e-01_rb,2.1683e-01_rb,2.0167e-01_rb, &
+     &1.7891e-01_rb,1.4342e-01_rb,1.0666e-01_rb/)
+      kao(:, 1, 9,10) = (/ &
+     &9.7736e-01_rb,8.5726e-01_rb,7.4530e-01_rb,6.6330e-01_rb,5.7895e-01_rb,4.8711e-01_rb, &
+     &3.8944e-01_rb,2.7986e-01_rb,9.6120e-02_rb/)
+      kao(:, 2, 9,10) = (/ &
+     &1.0005e+00_rb,8.7740e-01_rb,7.5935e-01_rb,6.7173e-01_rb,5.8495e-01_rb,4.9078e-01_rb, &
+     &3.9206e-01_rb,2.8024e-01_rb,9.6028e-02_rb/)
+      kao(:, 3, 9,10) = (/ &
+     &1.0238e+00_rb,8.9765e-01_rb,7.7412e-01_rb,6.7963e-01_rb,5.9056e-01_rb,4.9392e-01_rb, &
+     &3.9381e-01_rb,2.7971e-01_rb,9.6387e-02_rb/)
+      kao(:, 4, 9,10) = (/ &
+     &1.0459e+00_rb,9.1704e-01_rb,7.8954e-01_rb,6.8917e-01_rb,5.9755e-01_rb,4.9657e-01_rb, &
+     &3.9497e-01_rb,2.7927e-01_rb,9.7373e-02_rb/)
+      kao(:, 5, 9,10) = (/ &
+     &1.0630e+00_rb,9.3201e-01_rb,8.0170e-01_rb,6.9634e-01_rb,6.0306e-01_rb,4.9955e-01_rb, &
+     &3.9651e-01_rb,2.7910e-01_rb,9.7962e-02_rb/)
+      kao(:, 1,10,10) = (/ &
+     &4.2057e+00_rb,3.6817e+00_rb,3.1579e+00_rb,2.6346e+00_rb,2.1198e+00_rb,1.6450e+00_rb, &
+     &1.1902e+00_rb,7.0817e-01_rb,7.8303e-02_rb/)
+      kao(:, 2,10,10) = (/ &
+     &4.3277e+00_rb,3.7881e+00_rb,3.2491e+00_rb,2.7104e+00_rb,2.1754e+00_rb,1.6774e+00_rb, &
+     &1.2094e+00_rb,7.1654e-01_rb,7.8798e-02_rb/)
+      kao(:, 3,10,10) = (/ &
+     &4.4500e+00_rb,3.8956e+00_rb,3.3411e+00_rb,2.7869e+00_rb,2.2338e+00_rb,1.7120e+00_rb, &
+     &1.2289e+00_rb,7.2324e-01_rb,7.8857e-02_rb/)
+      kao(:, 4,10,10) = (/ &
+     &4.5562e+00_rb,3.9883e+00_rb,3.4205e+00_rb,2.8532e+00_rb,2.2862e+00_rb,1.7446e+00_rb, &
+     &1.2492e+00_rb,7.3045e-01_rb,7.9497e-02_rb/)
+      kao(:, 5,10,10) = (/ &
+     &4.6429e+00_rb,4.0644e+00_rb,3.4858e+00_rb,2.9077e+00_rb,2.3298e+00_rb,1.7714e+00_rb, &
+     &1.2652e+00_rb,7.3636e-01_rb,7.8315e-02_rb/)
+      kao(:, 1,11,10) = (/ &
+     &6.3643e+00_rb,5.5702e+00_rb,4.7761e+00_rb,3.9823e+00_rb,3.1901e+00_rb,2.4267e+00_rb, &
+     &1.7139e+00_rb,9.8175e-01_rb,5.2396e-02_rb/)
+      kao(:, 2,11,10) = (/ &
+     &6.5707e+00_rb,5.7511e+00_rb,4.9312e+00_rb,4.1117e+00_rb,3.2928e+00_rb,2.4948e+00_rb, &
+     &1.7532e+00_rb,9.9614e-01_rb,5.2761e-02_rb/)
+      kao(:, 3,11,10) = (/ &
+     &6.7598e+00_rb,5.9160e+00_rb,5.0729e+00_rb,4.2301e+00_rb,3.3876e+00_rb,2.5590e+00_rb, &
+     &1.7914e+00_rb,1.0123e+00_rb,5.3574e-02_rb/)
+      kao(:, 4,11,10) = (/ &
+     &6.9211e+00_rb,6.0577e+00_rb,5.1942e+00_rb,4.3313e+00_rb,3.4687e+00_rb,2.6150e+00_rb, &
+     &1.8227e+00_rb,1.0262e+00_rb,5.6608e-02_rb/)
+      kao(:, 5,11,10) = (/ &
+     &7.0466e+00_rb,6.1673e+00_rb,5.2885e+00_rb,4.4096e+00_rb,3.5315e+00_rb,2.6584e+00_rb, &
+     &1.8463e+00_rb,1.0382e+00_rb,5.6583e-02_rb/)
+      kao(:, 1,12,10) = (/ &
+     &7.1591e+00_rb,6.2650e+00_rb,5.3715e+00_rb,4.4783e+00_rb,3.5872e+00_rb,2.7305e+00_rb, &
+     &1.9173e+00_rb,1.0829e+00_rb,5.4364e-02_rb/)
+      kao(:, 2,12,10) = (/ &
+     &7.3899e+00_rb,6.4678e+00_rb,5.5455e+00_rb,4.6234e+00_rb,3.7023e+00_rb,2.8086e+00_rb, &
+     &1.9670e+00_rb,1.1039e+00_rb,5.3004e-02_rb/)
+      kao(:, 3,12,10) = (/ &
+     &7.5932e+00_rb,6.6457e+00_rb,5.6978e+00_rb,4.7509e+00_rb,3.8044e+00_rb,2.8774e+00_rb, &
+     &2.0093e+00_rb,1.1228e+00_rb,5.1959e-02_rb/)
+      kao(:, 4,12,10) = (/ &
+     &7.7612e+00_rb,6.7925e+00_rb,5.8241e+00_rb,4.8562e+00_rb,3.8890e+00_rb,2.9344e+00_rb, &
+     &2.0429e+00_rb,1.1393e+00_rb,5.3174e-02_rb/)
+      kao(:, 5,12,10) = (/ &
+     &7.8969e+00_rb,6.9118e+00_rb,5.9263e+00_rb,4.9415e+00_rb,3.9571e+00_rb,2.9804e+00_rb, &
+     &2.0685e+00_rb,1.1516e+00_rb,5.1704e-02_rb/)
+      kao(:, 1,13,10) = (/ &
+     &6.4705e+00_rb,5.6627e+00_rb,4.8551e+00_rb,4.0480e+00_rb,3.2529e+00_rb,2.5042e+00_rb, &
+     &1.7607e+00_rb,9.9775e-01_rb,5.2819e-02_rb/)
+      kao(:, 2,13,10) = (/ &
+     &6.6649e+00_rb,5.8328e+00_rb,5.0012e+00_rb,4.1701e+00_rb,3.3469e+00_rb,2.5698e+00_rb, &
+     &1.8026e+00_rb,1.0186e+00_rb,5.2318e-02_rb/)
+      kao(:, 3,13,10) = (/ &
+     &6.8320e+00_rb,5.9796e+00_rb,5.1272e+00_rb,4.2755e+00_rb,3.4276e+00_rb,2.6233e+00_rb, &
+     &1.8383e+00_rb,1.0369e+00_rb,5.1248e-02_rb/)
+      kao(:, 4,13,10) = (/ &
+     &6.9674e+00_rb,6.0982e+00_rb,5.2289e+00_rb,4.3604e+00_rb,3.4933e+00_rb,2.6647e+00_rb, &
+     &1.8662e+00_rb,1.0505e+00_rb,5.2356e-02_rb/)
+      kao(:, 5,13,10) = (/ &
+     &7.0874e+00_rb,6.2027e+00_rb,5.3188e+00_rb,4.4355e+00_rb,3.5528e+00_rb,2.7014e+00_rb, &
+     &1.8899e+00_rb,1.0614e+00_rb,5.1111e-02_rb/)
+      kao(:, 1, 1,11) = (/ &
+     &4.6742e-03_rb,2.0279e-02_rb,3.9426e-02_rb,5.8543e-02_rb,7.7272e-02_rb,9.5241e-02_rb, &
+     &1.1148e-01_rb,1.2235e-01_rb,1.5408e-01_rb/)
+      kao(:, 2, 1,11) = (/ &
+     &4.6073e-03_rb,2.0296e-02_rb,3.9412e-02_rb,5.8523e-02_rb,7.7232e-02_rb,9.5132e-02_rb, &
+     &1.1121e-01_rb,1.2184e-01_rb,1.5399e-01_rb/)
+      kao(:, 3, 1,11) = (/ &
+     &4.5565e-03_rb,2.0227e-02_rb,3.9298e-02_rb,5.8356e-02_rb,7.7038e-02_rb,9.4961e-02_rb, &
+     &1.1109e-01_rb,1.2151e-01_rb,1.5359e-01_rb/)
+      kao(:, 4, 1,11) = (/ &
+     &4.5047e-03_rb,2.0130e-02_rb,3.9180e-02_rb,5.8173e-02_rb,7.6772e-02_rb,9.4618e-02_rb, &
+     &1.1074e-01_rb,1.2134e-01_rb,1.5306e-01_rb/)
+      kao(:, 5, 1,11) = (/ &
+     &4.4540e-03_rb,2.0027e-02_rb,3.9084e-02_rb,5.8025e-02_rb,7.6535e-02_rb,9.4251e-02_rb, &
+     &1.1025e-01_rb,1.2116e-01_rb,1.5260e-01_rb/)
+      kao(:, 1, 2,11) = (/ &
+     &7.4064e-03_rb,2.2194e-02_rb,4.1767e-02_rb,6.1911e-02_rb,8.1938e-02_rb,1.0155e-01_rb, &
+     &1.2014e-01_rb,1.3485e-01_rb,1.6319e-01_rb/)
+      kao(:, 2, 2,11) = (/ &
+     &7.3108e-03_rb,2.2143e-02_rb,4.1684e-02_rb,6.1877e-02_rb,8.1902e-02_rb,1.0152e-01_rb, &
+     &1.2013e-01_rb,1.3472e-01_rb,1.6312e-01_rb/)
+      kao(:, 3, 2,11) = (/ &
+     &7.2232e-03_rb,2.2079e-02_rb,4.1677e-02_rb,6.1891e-02_rb,8.1918e-02_rb,1.0151e-01_rb, &
+     &1.1999e-01_rb,1.3454e-01_rb,1.6316e-01_rb/)
+      kao(:, 4, 2,11) = (/ &
+     &7.1304e-03_rb,2.2033e-02_rb,4.1736e-02_rb,6.1998e-02_rb,8.2035e-02_rb,1.0158e-01_rb, &
+     &1.1988e-01_rb,1.3411e-01_rb,1.6341e-01_rb/)
+      kao(:, 5, 2,11) = (/ &
+     &7.0357e-03_rb,2.1988e-02_rb,4.1742e-02_rb,6.2041e-02_rb,8.2077e-02_rb,1.0158e-01_rb, &
+     &1.1983e-01_rb,1.3366e-01_rb,1.6350e-01_rb/)
+      kao(:, 1, 3,11) = (/ &
+     &1.5774e-02_rb,2.9169e-02_rb,4.5962e-02_rb,6.5827e-02_rb,8.6496e-02_rb,1.0742e-01_rb, &
+     &1.2791e-01_rb,1.4653e-01_rb,1.7156e-01_rb/)
+      kao(:, 2, 3,11) = (/ &
+     &1.5614e-02_rb,2.8989e-02_rb,4.5846e-02_rb,6.5612e-02_rb,8.6438e-02_rb,1.0734e-01_rb, &
+     &1.2776e-01_rb,1.4623e-01_rb,1.7149e-01_rb/)
+      kao(:, 3, 3,11) = (/ &
+     &1.5422e-02_rb,2.8825e-02_rb,4.5777e-02_rb,6.5531e-02_rb,8.6532e-02_rb,1.0747e-01_rb, &
+     &1.2790e-01_rb,1.4632e-01_rb,1.7170e-01_rb/)
+      kao(:, 4, 3,11) = (/ &
+     &1.5220e-02_rb,2.8664e-02_rb,4.5718e-02_rb,6.5531e-02_rb,8.6682e-02_rb,1.0768e-01_rb, &
+     &1.2815e-01_rb,1.4661e-01_rb,1.7201e-01_rb/)
+      kao(:, 5, 3,11) = (/ &
+     &1.5041e-02_rb,2.8491e-02_rb,4.5554e-02_rb,6.5387e-02_rb,8.6561e-02_rb,1.0758e-01_rb, &
+     &1.2814e-01_rb,1.4679e-01_rb,1.7174e-01_rb/)
+      kao(:, 1, 4,11) = (/ &
+     &3.3773e-02_rb,4.4438e-02_rb,5.9281e-02_rb,7.3962e-02_rb,9.2405e-02_rb,1.1202e-01_rb, &
+     &1.3347e-01_rb,1.5431e-01_rb,1.7769e-01_rb/)
+      kao(:, 2, 4,11) = (/ &
+     &3.3523e-02_rb,4.4307e-02_rb,5.8961e-02_rb,7.3730e-02_rb,9.2117e-02_rb,1.1213e-01_rb, &
+     &1.3369e-01_rb,1.5450e-01_rb,1.7797e-01_rb/)
+      kao(:, 3, 4,11) = (/ &
+     &3.3236e-02_rb,4.4011e-02_rb,5.8687e-02_rb,7.3516e-02_rb,9.1754e-02_rb,1.1213e-01_rb, &
+     &1.3376e-01_rb,1.5472e-01_rb,1.7805e-01_rb/)
+      kao(:, 4, 4,11) = (/ &
+     &3.2927e-02_rb,4.3662e-02_rb,5.8418e-02_rb,7.3212e-02_rb,9.1231e-02_rb,1.1190e-01_rb, &
+     &1.3353e-01_rb,1.5459e-01_rb,1.7761e-01_rb/)
+      kao(:, 5, 4,11) = (/ &
+     &3.2628e-02_rb,4.3294e-02_rb,5.8201e-02_rb,7.2680e-02_rb,9.0434e-02_rb,1.1128e-01_rb, &
+     &1.3281e-01_rb,1.5389e-01_rb,1.7655e-01_rb/)
+      kao(:, 1, 5,11) = (/ &
+     &6.5323e-02_rb,7.2628e-02_rb,8.3508e-02_rb,9.5963e-02_rb,1.0655e-01_rb,1.2020e-01_rb, &
+     &1.3782e-01_rb,1.5923e-01_rb,1.8200e-01_rb/)
+      kao(:, 2, 5,11) = (/ &
+     &6.5064e-02_rb,7.2406e-02_rb,8.3203e-02_rb,9.5444e-02_rb,1.0632e-01_rb,1.1979e-01_rb, &
+     &1.3760e-01_rb,1.5925e-01_rb,1.8207e-01_rb/)
+      kao(:, 3, 5,11) = (/ &
+     &6.4756e-02_rb,7.1969e-02_rb,8.2862e-02_rb,9.4908e-02_rb,1.0590e-01_rb,1.1930e-01_rb, &
+     &1.3724e-01_rb,1.5904e-01_rb,1.8162e-01_rb/)
+      kao(:, 4, 5,11) = (/ &
+     &6.4304e-02_rb,7.1135e-02_rb,8.2400e-02_rb,9.4416e-02_rb,1.0531e-01_rb,1.1853e-01_rb, &
+     &1.3656e-01_rb,1.5838e-01_rb,1.8061e-01_rb/)
+      kao(:, 5, 5,11) = (/ &
+     &6.3847e-02_rb,7.0072e-02_rb,8.1806e-02_rb,9.3969e-02_rb,1.0427e-01_rb,1.1735e-01_rb, &
+     &1.3557e-01_rb,1.5724e-01_rb,1.7920e-01_rb/)
+      kao(:, 1, 6,11) = (/ &
+     &1.1614e-01_rb,1.1612e-01_rb,1.2461e-01_rb,1.3093e-01_rb,1.3774e-01_rb,1.4186e-01_rb, &
+     &1.4765e-01_rb,1.6150e-01_rb,1.8364e-01_rb/)
+      kao(:, 2, 6,11) = (/ &
+     &1.1619e-01_rb,1.1550e-01_rb,1.2387e-01_rb,1.3036e-01_rb,1.3714e-01_rb,1.4135e-01_rb, &
+     &1.4700e-01_rb,1.6131e-01_rb,1.8335e-01_rb/)
+      kao(:, 3, 6,11) = (/ &
+     &1.1615e-01_rb,1.1477e-01_rb,1.2280e-01_rb,1.2991e-01_rb,1.3667e-01_rb,1.4072e-01_rb, &
+     &1.4596e-01_rb,1.6062e-01_rb,1.8242e-01_rb/)
+      kao(:, 4, 6,11) = (/ &
+     &1.1574e-01_rb,1.1387e-01_rb,1.2156e-01_rb,1.2938e-01_rb,1.3597e-01_rb,1.3977e-01_rb, &
+     &1.4470e-01_rb,1.5943e-01_rb,1.8095e-01_rb/)
+      kao(:, 5, 6,11) = (/ &
+     &1.1520e-01_rb,1.1286e-01_rb,1.2034e-01_rb,1.2877e-01_rb,1.3515e-01_rb,1.3854e-01_rb, &
+     &1.4325e-01_rb,1.5816e-01_rb,1.7948e-01_rb/)
+      kao(:, 1, 7,11) = (/ &
+     &2.1510e-01_rb,1.9619e-01_rb,2.0174e-01_rb,1.9935e-01_rb,1.9475e-01_rb,1.8847e-01_rb, &
+     &1.8001e-01_rb,1.6816e-01_rb,1.8086e-01_rb/)
+      kao(:, 2, 7,11) = (/ &
+     &2.1625e-01_rb,1.9617e-01_rb,2.0091e-01_rb,1.9825e-01_rb,1.9429e-01_rb,1.8801e-01_rb, &
+     &1.7902e-01_rb,1.6736e-01_rb,1.8038e-01_rb/)
+      kao(:, 3, 7,11) = (/ &
+     &2.1700e-01_rb,1.9569e-01_rb,1.9979e-01_rb,1.9686e-01_rb,1.9372e-01_rb,1.8767e-01_rb, &
+     &1.7767e-01_rb,1.6608e-01_rb,1.7932e-01_rb/)
+      kao(:, 4, 7,11) = (/ &
+     &2.1676e-01_rb,1.9471e-01_rb,1.9847e-01_rb,1.9536e-01_rb,1.9293e-01_rb,1.8720e-01_rb, &
+     &1.7635e-01_rb,1.6450e-01_rb,1.7799e-01_rb/)
+      kao(:, 5, 7,11) = (/ &
+     &2.1625e-01_rb,1.9358e-01_rb,1.9672e-01_rb,1.9373e-01_rb,1.9213e-01_rb,1.8631e-01_rb, &
+     &1.7483e-01_rb,1.6262e-01_rb,1.7662e-01_rb/)
+      kao(:, 1, 8,11) = (/ &
+     &4.6382e-01_rb,4.0807e-01_rb,3.7899e-01_rb,3.5840e-01_rb,3.2915e-01_rb,2.9613e-01_rb, &
+     &2.5854e-01_rb,2.1154e-01_rb,1.7388e-01_rb/)
+      kao(:, 2, 8,11) = (/ &
+     &4.6803e-01_rb,4.1204e-01_rb,3.7966e-01_rb,3.5758e-01_rb,3.2785e-01_rb,2.9605e-01_rb, &
+     &2.5875e-01_rb,2.1026e-01_rb,1.7332e-01_rb/)
+      kao(:, 3, 8,11) = (/ &
+     &4.7076e-01_rb,4.1406e-01_rb,3.7922e-01_rb,3.5601e-01_rb,3.2603e-01_rb,2.9561e-01_rb, &
+     &2.5861e-01_rb,2.0864e-01_rb,1.7242e-01_rb/)
+      kao(:, 4, 8,11) = (/ &
+     &4.7155e-01_rb,4.1450e-01_rb,3.7727e-01_rb,3.5413e-01_rb,3.2392e-01_rb,2.9447e-01_rb, &
+     &2.5827e-01_rb,2.0694e-01_rb,1.7120e-01_rb/)
+      kao(:, 5, 8,11) = (/ &
+     &4.7233e-01_rb,4.1516e-01_rb,3.7581e-01_rb,3.5208e-01_rb,3.2176e-01_rb,2.9332e-01_rb, &
+     &2.5728e-01_rb,2.0514e-01_rb,1.7042e-01_rb/)
+      kao(:, 1, 9,11) = (/ &
+     &1.8678e+00_rb,1.6362e+00_rb,1.4048e+00_rb,1.1793e+00_rb,9.9438e-01_rb,8.2136e-01_rb, &
+     &6.2834e-01_rb,4.2034e-01_rb,1.6334e-01_rb/)
+      kao(:, 2, 9,11) = (/ &
+     &1.8906e+00_rb,1.6563e+00_rb,1.4224e+00_rb,1.1919e+00_rb,9.9937e-01_rb,8.2259e-01_rb, &
+     &6.2713e-01_rb,4.2292e-01_rb,1.6311e-01_rb/)
+      kao(:, 3, 9,11) = (/ &
+     &1.9044e+00_rb,1.6682e+00_rb,1.4321e+00_rb,1.1983e+00_rb,1.0002e+00_rb,8.2124e-01_rb, &
+     &6.2419e-01_rb,4.2359e-01_rb,1.6249e-01_rb/)
+      kao(:, 4, 9,11) = (/ &
+     &1.9121e+00_rb,1.6748e+00_rb,1.4376e+00_rb,1.2016e+00_rb,9.9779e-01_rb,8.1901e-01_rb, &
+     &6.2159e-01_rb,4.2327e-01_rb,1.6166e-01_rb/)
+      kao(:, 5, 9,11) = (/ &
+     &1.9224e+00_rb,1.6839e+00_rb,1.4454e+00_rb,1.2078e+00_rb,9.9866e-01_rb,8.1827e-01_rb, &
+     &6.1893e-01_rb,4.2245e-01_rb,1.6163e-01_rb/)
+      kao(:, 1,10,11) = (/ &
+     &8.3490e+00_rb,7.3068e+00_rb,6.2652e+00_rb,5.2233e+00_rb,4.1816e+00_rb,3.1407e+00_rb, &
+     &2.1527e+00_rb,1.2369e+00_rb,1.2697e-01_rb/)
+      kao(:, 2,10,11) = (/ &
+     &8.4604e+00_rb,7.4045e+00_rb,6.3492e+00_rb,5.2936e+00_rb,4.2378e+00_rb,3.1825e+00_rb, &
+     &2.1701e+00_rb,1.2392e+00_rb,1.2746e-01_rb/)
+      kao(:, 3,10,11) = (/ &
+     &8.5299e+00_rb,7.4655e+00_rb,6.4008e+00_rb,5.3364e+00_rb,4.2721e+00_rb,3.2084e+00_rb, &
+     &2.1800e+00_rb,1.2385e+00_rb,1.2876e-01_rb/)
+      kao(:, 4,10,11) = (/ &
+     &8.6037e+00_rb,7.5302e+00_rb,6.4564e+00_rb,5.3827e+00_rb,4.3093e+00_rb,3.2362e+00_rb, &
+     &2.1902e+00_rb,1.2373e+00_rb,1.3016e-01_rb/)
+      kao(:, 5,10,11) = (/ &
+     &8.6811e+00_rb,7.5976e+00_rb,6.5142e+00_rb,5.4315e+00_rb,4.3481e+00_rb,3.2657e+00_rb, &
+     &2.2039e+00_rb,1.2408e+00_rb,1.3327e-01_rb/)
+      kao(:, 1,11,11) = (/ &
+     &1.2908e+01_rb,1.1296e+01_rb,9.6842e+00_rb,8.0726e+00_rb,6.4609e+00_rb,4.8491e+00_rb, &
+     &3.2606e+00_rb,1.7969e+00_rb,1.0870e-01_rb/)
+      kao(:, 2,11,11) = (/ &
+     &1.3081e+01_rb,1.1447e+01_rb,9.8136e+00_rb,8.1796e+00_rb,6.5463e+00_rb,4.9136e+00_rb, &
+     &3.2978e+00_rb,1.8090e+00_rb,1.0807e-01_rb/)
+      kao(:, 3,11,11) = (/ &
+     &1.3247e+01_rb,1.1593e+01_rb,9.9386e+00_rb,8.2843e+00_rb,6.6304e+00_rb,4.9764e+00_rb, &
+     &3.3344e+00_rb,1.8186e+00_rb,1.0723e-01_rb/)
+      kao(:, 4,11,11) = (/ &
+     &1.3412e+01_rb,1.1737e+01_rb,1.0062e+01_rb,8.3876e+00_rb,6.7133e+00_rb,5.0389e+00_rb, &
+     &3.3728e+00_rb,1.8302e+00_rb,1.0582e-01_rb/)
+      kao(:, 5,11,11) = (/ &
+     &1.3565e+01_rb,1.1871e+01_rb,1.0177e+01_rb,8.4837e+00_rb,6.7902e+00_rb,5.0972e+00_rb, &
+     &3.4088e+00_rb,1.8416e+00_rb,1.0800e-01_rb/)
+      kao(:, 1,12,11) = (/ &
+     &1.4642e+01_rb,1.2812e+01_rb,1.0983e+01_rb,9.1554e+00_rb,7.3265e+00_rb,5.4974e+00_rb, &
+     &3.7020e+00_rb,2.0284e+00_rb,8.2662e-02_rb/)
+      kao(:, 2,12,11) = (/ &
+     &1.4885e+01_rb,1.3026e+01_rb,1.1167e+01_rb,9.3078e+00_rb,7.4487e+00_rb,5.5898e+00_rb, &
+     &3.7559e+00_rb,2.0497e+00_rb,8.1390e-02_rb/)
+      kao(:, 3,12,11) = (/ &
+     &1.5119e+01_rb,1.3231e+01_rb,1.1343e+01_rb,9.4543e+00_rb,7.5661e+00_rb,5.6785e+00_rb, &
+     &3.8088e+00_rb,2.0698e+00_rb,8.0357e-02_rb/)
+      kao(:, 4,12,11) = (/ &
+     &1.5358e+01_rb,1.3440e+01_rb,1.1522e+01_rb,9.6047e+00_rb,7.6867e+00_rb,5.7694e+00_rb, &
+     &3.8642e+00_rb,2.0905e+00_rb,7.9812e-02_rb/)
+      kao(:, 5,12,11) = (/ &
+     &1.5578e+01_rb,1.3633e+01_rb,1.1688e+01_rb,9.7428e+00_rb,7.7978e+00_rb,5.8532e+00_rb, &
+     &3.9171e+00_rb,2.1122e+00_rb,8.2952e-02_rb/)
+      kao(:, 1,13,11) = (/ &
+     &1.3181e+01_rb,1.1536e+01_rb,9.8891e+00_rb,8.2428e+00_rb,6.5963e+00_rb,4.9547e+00_rb, &
+     &3.3878e+00_rb,1.8779e+00_rb,8.5930e-02_rb/)
+      kao(:, 2,13,11) = (/ &
+     &1.3431e+01_rb,1.1753e+01_rb,1.0076e+01_rb,8.3993e+00_rb,6.7218e+00_rb,5.0463e+00_rb, &
+     &3.4400e+00_rb,1.9003e+00_rb,8.2789e-02_rb/)
+      kao(:, 3,13,11) = (/ &
+     &1.3694e+01_rb,1.1985e+01_rb,1.0274e+01_rb,8.5642e+00_rb,6.8544e+00_rb,5.1452e+00_rb, &
+     &3.4940e+00_rb,1.9250e+00_rb,8.1321e-02_rb/)
+      kao(:, 4,13,11) = (/ &
+     &1.3957e+01_rb,1.2214e+01_rb,1.0471e+01_rb,8.7279e+00_rb,6.9861e+00_rb,5.2450e+00_rb, &
+     &3.5504e+00_rb,1.9524e+00_rb,7.8953e-02_rb/)
+      kao(:, 5,13,11) = (/ &
+     &1.4201e+01_rb,1.2428e+01_rb,1.0655e+01_rb,8.8819e+00_rb,7.1097e+00_rb,5.3381e+00_rb, &
+     &3.6055e+00_rb,1.9785e+00_rb,8.1036e-02_rb/)
+      kao(:, 1, 1,12) = (/ &
+     &6.5787e-03_rb,2.6236e-02_rb,5.1362e-02_rb,7.6305e-02_rb,1.0073e-01_rb,1.2420e-01_rb, &
+     &1.4556e-01_rb,1.6001e-01_rb,2.0088e-01_rb/)
+      kao(:, 2, 1,12) = (/ &
+     &6.5355e-03_rb,2.5963e-02_rb,5.1031e-02_rb,7.5853e-02_rb,1.0014e-01_rb,1.2346e-01_rb, &
+     &1.4463e-01_rb,1.5894e-01_rb,1.9973e-01_rb/)
+      kao(:, 3, 1,12) = (/ &
+     &6.4519e-03_rb,2.5842e-02_rb,5.0885e-02_rb,7.5629e-02_rb,9.9804e-02_rb,1.2294e-01_rb, &
+     &1.4394e-01_rb,1.5802e-01_rb,1.9913e-01_rb/)
+      kao(:, 4, 1,12) = (/ &
+     &6.3508e-03_rb,2.5827e-02_rb,5.0889e-02_rb,7.5643e-02_rb,9.9816e-02_rb,1.2289e-01_rb, &
+     &1.4367e-01_rb,1.5727e-01_rb,1.9918e-01_rb/)
+      kao(:, 5, 1,12) = (/ &
+     &6.2468e-03_rb,2.5824e-02_rb,5.0882e-02_rb,7.5643e-02_rb,9.9840e-02_rb,1.2300e-01_rb, &
+     &1.4386e-01_rb,1.5674e-01_rb,1.9923e-01_rb/)
+      kao(:, 1, 2,12) = (/ &
+     &1.0416e-02_rb,2.8932e-02_rb,5.5152e-02_rb,8.2023e-02_rb,1.0846e-01_rb,1.3404e-01_rb, &
+     &1.5780e-01_rb,1.7629e-01_rb,2.1619e-01_rb/)
+      kao(:, 2, 2,12) = (/ &
+     &1.0342e-02_rb,2.8637e-02_rb,5.4892e-02_rb,8.1654e-02_rb,1.0796e-01_rb,1.3340e-01_rb, &
+     &1.5695e-01_rb,1.7507e-01_rb,2.1532e-01_rb/)
+      kao(:, 3, 2,12) = (/ &
+     &1.0224e-02_rb,2.8457e-02_rb,5.4759e-02_rb,8.1469e-02_rb,1.0772e-01_rb,1.3310e-01_rb, &
+     &1.5656e-01_rb,1.7435e-01_rb,2.1487e-01_rb/)
+      kao(:, 4, 2,12) = (/ &
+     &1.0091e-02_rb,2.8318e-02_rb,5.4670e-02_rb,8.1344e-02_rb,1.0759e-01_rb,1.3299e-01_rb, &
+     &1.5649e-01_rb,1.7414e-01_rb,2.1459e-01_rb/)
+      kao(:, 5, 2,12) = (/ &
+     &9.9570e-03_rb,2.8146e-02_rb,5.4539e-02_rb,8.1138e-02_rb,1.0736e-01_rb,1.3278e-01_rb, &
+     &1.5638e-01_rb,1.7422e-01_rb,2.1411e-01_rb/)
+      kao(:, 1, 3,12) = (/ &
+     &2.2302e-02_rb,3.7417e-02_rb,6.1097e-02_rb,8.8747e-02_rb,1.1756e-01_rb,1.4593e-01_rb, &
+     &1.7314e-01_rb,1.9636e-01_rb,2.3403e-01_rb/)
+      kao(:, 2, 3,12) = (/ &
+     &2.2117e-02_rb,3.6950e-02_rb,6.0557e-02_rb,8.8385e-02_rb,1.1711e-01_rb,1.4537e-01_rb, &
+     &1.7254e-01_rb,1.9566e-01_rb,2.3319e-01_rb/)
+      kao(:, 3, 3,12) = (/ &
+     &2.1903e-02_rb,3.6596e-02_rb,6.0142e-02_rb,8.8214e-02_rb,1.1684e-01_rb,1.4504e-01_rb, &
+     &1.7207e-01_rb,1.9507e-01_rb,2.3270e-01_rb/)
+      kao(:, 4, 3,12) = (/ &
+     &2.1706e-02_rb,3.6379e-02_rb,5.9779e-02_rb,8.7937e-02_rb,1.1644e-01_rb,1.4454e-01_rb, &
+     &1.7162e-01_rb,1.9475e-01_rb,2.3180e-01_rb/)
+      kao(:, 5, 3,12) = (/ &
+     &2.1485e-02_rb,3.6152e-02_rb,5.9419e-02_rb,8.7609e-02_rb,1.1597e-01_rb,1.4392e-01_rb, &
+     &1.7083e-01_rb,1.9407e-01_rb,2.3079e-01_rb/)
+      kao(:, 1, 4,12) = (/ &
+     &4.8787e-02_rb,6.0363e-02_rb,7.6958e-02_rb,9.9608e-02_rb,1.2651e-01_rb,1.5698e-01_rb, &
+     &1.8722e-01_rb,2.1554e-01_rb,2.5046e-01_rb/)
+      kao(:, 2, 4,12) = (/ &
+     &4.8476e-02_rb,5.9621e-02_rb,7.6177e-02_rb,9.8903e-02_rb,1.2601e-01_rb,1.5644e-01_rb, &
+     &1.8652e-01_rb,2.1472e-01_rb,2.4963e-01_rb/)
+      kao(:, 3, 4,12) = (/ &
+     &4.8022e-02_rb,5.9054e-02_rb,7.5570e-02_rb,9.8295e-02_rb,1.2578e-01_rb,1.5620e-01_rb, &
+     &1.8618e-01_rb,2.1420e-01_rb,2.4913e-01_rb/)
+      kao(:, 4, 4,12) = (/ &
+     &4.7565e-02_rb,5.8399e-02_rb,7.5073e-02_rb,9.7780e-02_rb,1.2559e-01_rb,1.5591e-01_rb, &
+     &1.8579e-01_rb,2.1367e-01_rb,2.4858e-01_rb/)
+      kao(:, 5, 4,12) = (/ &
+     &4.7078e-02_rb,5.7702e-02_rb,7.4506e-02_rb,9.7303e-02_rb,1.2546e-01_rb,1.5568e-01_rb, &
+     &1.8546e-01_rb,2.1318e-01_rb,2.4815e-01_rb/)
+      kao(:, 1, 5,12) = (/ &
+     &9.7499e-02_rb,9.8718e-02_rb,1.1395e-01_rb,1.2710e-01_rb,1.4448e-01_rb,1.6872e-01_rb, &
+     &1.9875e-01_rb,2.3006e-01_rb,2.6441e-01_rb/)
+      kao(:, 2, 5,12) = (/ &
+     &9.6942e-02_rb,9.7852e-02_rb,1.1233e-01_rb,1.2606e-01_rb,1.4347e-01_rb,1.6785e-01_rb, &
+     &1.9829e-01_rb,2.2956e-01_rb,2.6367e-01_rb/)
+      kao(:, 3, 5,12) = (/ &
+     &9.6111e-02_rb,9.7066e-02_rb,1.1087e-01_rb,1.2520e-01_rb,1.4264e-01_rb,1.6720e-01_rb, &
+     &1.9804e-01_rb,2.2914e-01_rb,2.6333e-01_rb/)
+      kao(:, 4, 5,12) = (/ &
+     &9.5331e-02_rb,9.6285e-02_rb,1.0984e-01_rb,1.2440e-01_rb,1.4205e-01_rb,1.6680e-01_rb, &
+     &1.9797e-01_rb,2.2895e-01_rb,2.6319e-01_rb/)
+      kao(:, 5, 5,12) = (/ &
+     &9.4443e-02_rb,9.5498e-02_rb,1.0898e-01_rb,1.2351e-01_rb,1.4175e-01_rb,1.6646e-01_rb, &
+     &1.9775e-01_rb,2.2870e-01_rb,2.6275e-01_rb/)
+      kao(:, 1, 6,12) = (/ &
+     &1.8140e-01_rb,1.6408e-01_rb,1.7552e-01_rb,1.8196e-01_rb,1.8674e-01_rb,1.9489e-01_rb, &
+     &2.1183e-01_rb,2.4078e-01_rb,2.7512e-01_rb/)
+      kao(:, 2, 6,12) = (/ &
+     &1.8064e-01_rb,1.6323e-01_rb,1.7439e-01_rb,1.7956e-01_rb,1.8547e-01_rb,1.9334e-01_rb, &
+     &2.1068e-01_rb,2.4042e-01_rb,2.7473e-01_rb/)
+      kao(:, 3, 6,12) = (/ &
+     &1.7939e-01_rb,1.6216e-01_rb,1.7344e-01_rb,1.7751e-01_rb,1.8404e-01_rb,1.9207e-01_rb, &
+     &2.1020e-01_rb,2.4067e-01_rb,2.7502e-01_rb/)
+      kao(:, 4, 6,12) = (/ &
+     &1.7796e-01_rb,1.6097e-01_rb,1.7233e-01_rb,1.7595e-01_rb,1.8277e-01_rb,1.9147e-01_rb, &
+     &2.0971e-01_rb,2.4067e-01_rb,2.7492e-01_rb/)
+      kao(:, 5, 6,12) = (/ &
+     &1.7632e-01_rb,1.5943e-01_rb,1.7056e-01_rb,1.7456e-01_rb,1.8167e-01_rb,1.9081e-01_rb, &
+     &2.0890e-01_rb,2.4019e-01_rb,2.7421e-01_rb/)
+      kao(:, 1, 7,12) = (/ &
+     &3.5379e-01_rb,3.1064e-01_rb,2.9565e-01_rb,2.8816e-01_rb,2.7694e-01_rb,2.6472e-01_rb, &
+     &2.4939e-01_rb,2.5136e-01_rb,2.8304e-01_rb/)
+      kao(:, 2, 7,12) = (/ &
+     &3.5306e-01_rb,3.1059e-01_rb,2.9503e-01_rb,2.8682e-01_rb,2.7447e-01_rb,2.6248e-01_rb, &
+     &2.4787e-01_rb,2.5077e-01_rb,2.8333e-01_rb/)
+      kao(:, 3, 7,12) = (/ &
+     &3.5170e-01_rb,3.1024e-01_rb,2.9413e-01_rb,2.8605e-01_rb,2.7226e-01_rb,2.6030e-01_rb, &
+     &2.4686e-01_rb,2.5055e-01_rb,2.8358e-01_rb/)
+      kao(:, 4, 7,12) = (/ &
+     &3.4988e-01_rb,3.0935e-01_rb,2.9228e-01_rb,2.8440e-01_rb,2.7034e-01_rb,2.5822e-01_rb, &
+     &2.4645e-01_rb,2.4996e-01_rb,2.8315e-01_rb/)
+      kao(:, 5, 7,12) = (/ &
+     &3.4759e-01_rb,3.0773e-01_rb,2.8986e-01_rb,2.8199e-01_rb,2.6823e-01_rb,2.5660e-01_rb, &
+     &2.4547e-01_rb,2.4917e-01_rb,2.8239e-01_rb/)
+      kao(:, 1, 8,12) = (/ &
+     &8.0496e-01_rb,7.0527e-01_rb,6.0910e-01_rb,5.5199e-01_rb,5.0022e-01_rb,4.3776e-01_rb, &
+     &3.7465e-01_rb,3.0063e-01_rb,2.8877e-01_rb/)
+      kao(:, 2, 8,12) = (/ &
+     &8.0672e-01_rb,7.0707e-01_rb,6.1070e-01_rb,5.5311e-01_rb,5.0061e-01_rb,4.3582e-01_rb, &
+     &3.7176e-01_rb,2.9952e-01_rb,2.8902e-01_rb/)
+      kao(:, 3, 8,12) = (/ &
+     &8.0691e-01_rb,7.0823e-01_rb,6.1191e-01_rb,5.5364e-01_rb,5.0004e-01_rb,4.3422e-01_rb, &
+     &3.6951e-01_rb,2.9892e-01_rb,2.8876e-01_rb/)
+      kao(:, 4, 8,12) = (/ &
+     &8.0527e-01_rb,7.0753e-01_rb,6.1153e-01_rb,5.5173e-01_rb,4.9853e-01_rb,4.3157e-01_rb, &
+     &3.6699e-01_rb,2.9815e-01_rb,2.8834e-01_rb/)
+      kao(:, 5, 8,12) = (/ &
+     &8.0219e-01_rb,7.0523e-01_rb,6.0964e-01_rb,5.4776e-01_rb,4.9536e-01_rb,4.2816e-01_rb, &
+     &3.6486e-01_rb,2.9693e-01_rb,2.8675e-01_rb/)
+      kao(:, 1, 9,12) = (/ &
+     &3.4182e+00_rb,2.9916e+00_rb,2.5652e+00_rb,2.1389e+00_rb,1.7153e+00_rb,1.3419e+00_rb, &
+     &1.0101e+00_rb,6.4726e-01_rb,2.8926e-01_rb/)
+      kao(:, 2, 9,12) = (/ &
+     &3.4411e+00_rb,3.0119e+00_rb,2.5830e+00_rb,2.1544e+00_rb,1.7278e+00_rb,1.3490e+00_rb, &
+     &1.0168e+00_rb,6.4570e-01_rb,2.8901e-01_rb/)
+      kao(:, 3, 9,12) = (/ &
+     &3.4584e+00_rb,3.0278e+00_rb,2.5976e+00_rb,2.1679e+00_rb,1.7392e+00_rb,1.3535e+00_rb, &
+     &1.0208e+00_rb,6.4462e-01_rb,2.8863e-01_rb/)
+      kao(:, 4, 9,12) = (/ &
+     &3.4643e+00_rb,3.0337e+00_rb,2.6033e+00_rb,2.1735e+00_rb,1.7445e+00_rb,1.3538e+00_rb, &
+     &1.0204e+00_rb,6.4174e-01_rb,2.8774e-01_rb/)
+      kao(:, 5, 9,12) = (/ &
+     &3.4625e+00_rb,3.0324e+00_rb,2.6029e+00_rb,2.1736e+00_rb,1.7453e+00_rb,1.3500e+00_rb, &
+     &1.0152e+00_rb,6.3782e-01_rb,2.8595e-01_rb/)
+      kao(:, 1,10,12) = (/ &
+     &1.6048e+01_rb,1.4043e+01_rb,1.2038e+01_rb,1.0032e+01_rb,8.0269e+00_rb,6.0216e+00_rb, &
+     &4.0164e+00_rb,2.1217e+00_rb,2.8227e-01_rb/)
+      kao(:, 2,10,12) = (/ &
+     &1.6256e+01_rb,1.4226e+01_rb,1.2195e+01_rb,1.0164e+01_rb,8.1333e+00_rb,6.1029e+00_rb, &
+     &4.0729e+00_rb,2.1442e+00_rb,2.8170e-01_rb/)
+      kao(:, 3,10,12) = (/ &
+     &1.6399e+01_rb,1.4351e+01_rb,1.2303e+01_rb,1.0255e+01_rb,8.2073e+00_rb,6.1596e+00_rb, &
+     &4.1123e+00_rb,2.1594e+00_rb,2.8134e-01_rb/)
+      kao(:, 4,10,12) = (/ &
+     &1.6465e+01_rb,1.4409e+01_rb,1.2353e+01_rb,1.0297e+01_rb,8.2414e+00_rb,6.1861e+00_rb, &
+     &4.1319e+00_rb,2.1644e+00_rb,2.8049e-01_rb/)
+      kao(:, 5,10,12) = (/ &
+     &1.6472e+01_rb,1.4416e+01_rb,1.2359e+01_rb,1.0303e+01_rb,8.2464e+00_rb,6.1909e+00_rb, &
+     &4.1366e+00_rb,2.1582e+00_rb,2.7905e-01_rb/)
+      kao(:, 1,11,12) = (/ &
+     &2.6190e+01_rb,2.2917e+01_rb,1.9644e+01_rb,1.6372e+01_rb,1.3098e+01_rb,9.8258e+00_rb, &
+     &6.5533e+00_rb,3.3347e+00_rb,2.0130e-01_rb/)
+      kao(:, 2,11,12) = (/ &
+     &2.6572e+01_rb,2.3252e+01_rb,1.9932e+01_rb,1.6612e+01_rb,1.3292e+01_rb,9.9715e+00_rb, &
+     &6.6522e+00_rb,3.3768e+00_rb,2.0375e-01_rb/)
+      kao(:, 3,11,12) = (/ &
+     &2.6794e+01_rb,2.3447e+01_rb,2.0099e+01_rb,1.6751e+01_rb,1.3404e+01_rb,1.0057e+01_rb, &
+     &6.7102e+00_rb,3.4019e+00_rb,2.0648e-01_rb/)
+      kao(:, 4,11,12) = (/ &
+     &2.6905e+01_rb,2.3544e+01_rb,2.0183e+01_rb,1.6822e+01_rb,1.3461e+01_rb,1.0100e+01_rb, &
+     &6.7401e+00_rb,3.4102e+00_rb,2.0903e-01_rb/)
+      kao(:, 5,11,12) = (/ &
+     &2.6968e+01_rb,2.3599e+01_rb,2.0230e+01_rb,1.6860e+01_rb,1.3492e+01_rb,1.0123e+01_rb, &
+     &6.7556e+00_rb,3.4122e+00_rb,2.1045e-01_rb/)
+      kao(:, 1,12,12) = (/ &
+     &3.1310e+01_rb,2.7398e+01_rb,2.3484e+01_rb,1.9572e+01_rb,1.5659e+01_rb,1.1747e+01_rb, &
+     &7.8342e+00_rb,3.9879e+00_rb,1.6283e-01_rb/)
+      kao(:, 2,12,12) = (/ &
+     &3.1751e+01_rb,2.7784e+01_rb,2.3816e+01_rb,1.9849e+01_rb,1.5882e+01_rb,1.1914e+01_rb, &
+     &7.9470e+00_rb,4.0341e+00_rb,1.6415e-01_rb/)
+      kao(:, 3,12,12) = (/ &
+     &3.2043e+01_rb,2.8038e+01_rb,2.4036e+01_rb,2.0032e+01_rb,1.6028e+01_rb,1.2025e+01_rb, &
+     &8.0217e+00_rb,4.0620e+00_rb,1.6794e-01_rb/)
+      kao(:, 4,12,12) = (/ &
+     &3.2220e+01_rb,2.8195e+01_rb,2.4168e+01_rb,2.0143e+01_rb,1.6116e+01_rb,1.2091e+01_rb, &
+     &8.0659e+00_rb,4.0753e+00_rb,1.6850e-01_rb/)
+      kao(:, 5,12,12) = (/ &
+     &3.2373e+01_rb,2.8329e+01_rb,2.4283e+01_rb,2.0239e+01_rb,1.6193e+01_rb,1.2149e+01_rb, &
+     &8.1043e+00_rb,4.0871e+00_rb,1.6988e-01_rb/)
+      kao(:, 1,13,12) = (/ &
+     &2.9544e+01_rb,2.5852e+01_rb,2.2161e+01_rb,1.8469e+01_rb,1.4777e+01_rb,1.1085e+01_rb, &
+     &7.3931e+00_rb,3.8439e+00_rb,1.2880e-01_rb/)
+      kao(:, 2,13,12) = (/ &
+     &2.9974e+01_rb,2.6228e+01_rb,2.2483e+01_rb,1.8737e+01_rb,1.4992e+01_rb,1.1247e+01_rb, &
+     &7.5021e+00_rb,3.8830e+00_rb,1.3338e-01_rb/)
+      kao(:, 3,13,12) = (/ &
+     &3.0254e+01_rb,2.6474e+01_rb,2.2694e+01_rb,1.8912e+01_rb,1.5132e+01_rb,1.1352e+01_rb, &
+     &7.5719e+00_rb,3.9004e+00_rb,1.3721e-01_rb/)
+      kao(:, 4,13,12) = (/ &
+     &3.0504e+01_rb,2.6693e+01_rb,2.2881e+01_rb,1.9069e+01_rb,1.5258e+01_rb,1.1446e+01_rb, &
+     &7.6348e+00_rb,3.9163e+00_rb,1.3871e-01_rb/)
+      kao(:, 5,13,12) = (/ &
+     &3.0781e+01_rb,2.6934e+01_rb,2.3088e+01_rb,1.9241e+01_rb,1.5395e+01_rb,1.1550e+01_rb, &
+     &7.7042e+00_rb,3.9392e+00_rb,1.4036e-01_rb/)
+      kao(:, 1, 1,13) = (/ &
+     &9.0088e-03_rb,3.7171e-02_rb,7.3185e-02_rb,1.0841e-01_rb,1.4222e-01_rb,1.7328e-01_rb, &
+     &1.9823e-01_rb,2.0424e-01_rb,2.8396e-01_rb/)
+      kao(:, 2, 1,13) = (/ &
+     &8.8070e-03_rb,3.7017e-02_rb,7.2761e-02_rb,1.0769e-01_rb,1.4122e-01_rb,1.7208e-01_rb, &
+     &1.9703e-01_rb,2.0324e-01_rb,2.8185e-01_rb/)
+      kao(:, 3, 1,13) = (/ &
+     &8.6641e-03_rb,3.6729e-02_rb,7.2126e-02_rb,1.0675e-01_rb,1.4002e-01_rb,1.7072e-01_rb, &
+     &1.9555e-01_rb,2.0207e-01_rb,2.7936e-01_rb/)
+      kao(:, 4, 1,13) = (/ &
+     &8.5351e-03_rb,3.6304e-02_rb,7.1373e-02_rb,1.0562e-01_rb,1.3853e-01_rb,1.6891e-01_rb, &
+     &1.9361e-01_rb,2.0011e-01_rb,2.7631e-01_rb/)
+      kao(:, 5, 1,13) = (/ &
+     &8.4180e-03_rb,3.5892e-02_rb,7.0613e-02_rb,1.0456e-01_rb,1.3716e-01_rb,1.6725e-01_rb, &
+     &1.9159e-01_rb,1.9822e-01_rb,2.7366e-01_rb/)
+      kao(:, 1, 2,13) = (/ &
+     &1.4629e-02_rb,4.1401e-02_rb,8.1344e-02_rb,1.2092e-01_rb,1.5970e-01_rb,1.9686e-01_rb, &
+     &2.3007e-01_rb,2.4893e-01_rb,3.1872e-01_rb/)
+      kao(:, 2, 2,13) = (/ &
+     &1.4347e-02_rb,4.1149e-02_rb,8.0754e-02_rb,1.2000e-01_rb,1.5844e-01_rb,1.9525e-01_rb, &
+     &2.2811e-01_rb,2.4701e-01_rb,3.1592e-01_rb/)
+      kao(:, 3, 2,13) = (/ &
+     &1.4116e-02_rb,4.0731e-02_rb,7.9979e-02_rb,1.1881e-01_rb,1.5685e-01_rb,1.9333e-01_rb, &
+     &2.2600e-01_rb,2.4518e-01_rb,3.1267e-01_rb/)
+      kao(:, 4, 2,13) = (/ &
+     &1.3916e-02_rb,4.0235e-02_rb,7.9131e-02_rb,1.1757e-01_rb,1.5518e-01_rb,1.9122e-01_rb, &
+     &2.2354e-01_rb,2.4260e-01_rb,3.0926e-01_rb/)
+      kao(:, 5, 2,13) = (/ &
+     &1.3712e-02_rb,3.9826e-02_rb,7.8358e-02_rb,1.1644e-01_rb,1.5370e-01_rb,1.8938e-01_rb, &
+     &2.2131e-01_rb,2.4017e-01_rb,3.0647e-01_rb/)
+      kao(:, 1, 3,13) = (/ &
+     &3.2046e-02_rb,5.1387e-02_rb,8.9167e-02_rb,1.3251e-01_rb,1.7557e-01_rb,2.1798e-01_rb, &
+     &2.5867e-01_rb,2.9276e-01_rb,3.4967e-01_rb/)
+      kao(:, 2, 3,13) = (/ &
+     &3.1484e-02_rb,5.0885e-02_rb,8.8511e-02_rb,1.3146e-01_rb,1.7409e-01_rb,2.1604e-01_rb, &
+     &2.5621e-01_rb,2.8967e-01_rb,3.4641e-01_rb/)
+      kao(:, 3, 3,13) = (/ &
+     &3.1011e-02_rb,5.0194e-02_rb,8.7651e-02_rb,1.3011e-01_rb,1.7226e-01_rb,2.1375e-01_rb, &
+     &2.5357e-01_rb,2.8697e-01_rb,3.4255e-01_rb/)
+      kao(:, 4, 3,13) = (/ &
+     &3.0595e-02_rb,4.9306e-02_rb,8.6747e-02_rb,1.2888e-01_rb,1.7065e-01_rb,2.1172e-01_rb, &
+     &2.5094e-01_rb,2.8374e-01_rb,3.3932e-01_rb/)
+      kao(:, 5, 3,13) = (/ &
+     &3.0114e-02_rb,4.8480e-02_rb,8.6058e-02_rb,1.2788e-01_rb,1.6935e-01_rb,2.1010e-01_rb, &
+     &2.4901e-01_rb,2.8126e-01_rb,3.3697e-01_rb/)
+      kao(:, 1, 4,13) = (/ &
+     &7.1437e-02_rb,7.9531e-02_rb,1.0765e-01_rb,1.4496e-01_rb,1.9060e-01_rb,2.3699e-01_rb, &
+     &2.8255e-01_rb,3.2483e-01_rb,3.7856e-01_rb/)
+      kao(:, 2, 4,13) = (/ &
+     &7.0222e-02_rb,7.8795e-02_rb,1.0643e-01_rb,1.4338e-01_rb,1.8881e-01_rb,2.3460e-01_rb, &
+     &2.7960e-01_rb,3.2131e-01_rb,3.7439e-01_rb/)
+      kao(:, 3, 4,13) = (/ &
+     &6.9262e-02_rb,7.7852e-02_rb,1.0486e-01_rb,1.4165e-01_rb,1.8684e-01_rb,2.3207e-01_rb, &
+     &2.7650e-01_rb,3.1773e-01_rb,3.7008e-01_rb/)
+      kao(:, 4, 4,13) = (/ &
+     &6.8383e-02_rb,7.7009e-02_rb,1.0310e-01_rb,1.4004e-01_rb,1.8506e-01_rb,2.2994e-01_rb, &
+     &2.7397e-01_rb,3.1473e-01_rb,3.6682e-01_rb/)
+      kao(:, 5, 4,13) = (/ &
+     &6.7482e-02_rb,7.6264e-02_rb,1.0166e-01_rb,1.3889e-01_rb,1.8370e-01_rb,2.2828e-01_rb, &
+     &2.7201e-01_rb,3.1244e-01_rb,3.6430e-01_rb/)
+      kao(:, 1, 5,13) = (/ &
+     &1.4624e-01_rb,1.3361e-01_rb,1.5693e-01_rb,1.7752e-01_rb,2.1095e-01_rb,2.5537e-01_rb, &
+     &3.0486e-01_rb,3.5270e-01_rb,4.0651e-01_rb/)
+      kao(:, 2, 5,13) = (/ &
+     &1.4398e-01_rb,1.3165e-01_rb,1.5512e-01_rb,1.7519e-01_rb,2.0814e-01_rb,2.5302e-01_rb, &
+     &3.0184e-01_rb,3.4895e-01_rb,4.0217e-01_rb/)
+      kao(:, 3, 5,13) = (/ &
+     &1.4207e-01_rb,1.3000e-01_rb,1.5346e-01_rb,1.7248e-01_rb,2.0524e-01_rb,2.5056e-01_rb, &
+     &2.9880e-01_rb,3.4528e-01_rb,3.9789e-01_rb/)
+      kao(:, 4, 5,13) = (/ &
+     &1.4038e-01_rb,1.2884e-01_rb,1.5157e-01_rb,1.6985e-01_rb,2.0246e-01_rb,2.4823e-01_rb, &
+     &2.9613e-01_rb,3.4225e-01_rb,3.9462e-01_rb/)
+      kao(:, 5, 5,13) = (/ &
+     &1.3874e-01_rb,1.2784e-01_rb,1.4941e-01_rb,1.6780e-01_rb,2.0033e-01_rb,2.4657e-01_rb, &
+     &2.9417e-01_rb,3.3986e-01_rb,3.9218e-01_rb/)
+      kao(:, 1, 6,13) = (/ &
+     &2.8046e-01_rb,2.4640e-01_rb,2.4558e-01_rb,2.5477e-01_rb,2.6318e-01_rb,2.8661e-01_rb, &
+     &3.2769e-01_rb,3.7985e-01_rb,4.3568e-01_rb/)
+      kao(:, 2, 6,13) = (/ &
+     &2.7643e-01_rb,2.4318e-01_rb,2.4273e-01_rb,2.5156e-01_rb,2.5913e-01_rb,2.8275e-01_rb, &
+     &3.2478e-01_rb,3.7621e-01_rb,4.3126e-01_rb/)
+      kao(:, 3, 6,13) = (/ &
+     &2.7290e-01_rb,2.4050e-01_rb,2.4016e-01_rb,2.4894e-01_rb,2.5526e-01_rb,2.7880e-01_rb, &
+     &3.2177e-01_rb,3.7266e-01_rb,4.2706e-01_rb/)
+      kao(:, 4, 6,13) = (/ &
+     &2.7013e-01_rb,2.3869e-01_rb,2.3760e-01_rb,2.4573e-01_rb,2.5166e-01_rb,2.7510e-01_rb, &
+     &3.1929e-01_rb,3.6982e-01_rb,4.2412e-01_rb/)
+      kao(:, 5, 6,13) = (/ &
+     &2.6724e-01_rb,2.3701e-01_rb,2.3563e-01_rb,2.4210e-01_rb,2.4866e-01_rb,2.7240e-01_rb, &
+     &3.1774e-01_rb,3.6799e-01_rb,4.2206e-01_rb/)
+      kao(:, 1, 7,13) = (/ &
+     &5.6688e-01_rb,4.9674e-01_rb,4.3519e-01_rb,4.2029e-01_rb,3.9894e-01_rb,3.7594e-01_rb, &
+     &3.7424e-01_rb,4.0700e-01_rb,4.6486e-01_rb/)
+      kao(:, 2, 7,13) = (/ &
+     &5.6062e-01_rb,4.9147e-01_rb,4.2917e-01_rb,4.1552e-01_rb,3.9325e-01_rb,3.7043e-01_rb, &
+     &3.6935e-01_rb,4.0348e-01_rb,4.6044e-01_rb/)
+      kao(:, 3, 7,13) = (/ &
+     &5.5419e-01_rb,4.8620e-01_rb,4.2405e-01_rb,4.1052e-01_rb,3.8832e-01_rb,3.6566e-01_rb, &
+     &3.6433e-01_rb,4.0051e-01_rb,4.5715e-01_rb/)
+      kao(:, 4, 7,13) = (/ &
+     &5.4908e-01_rb,4.8208e-01_rb,4.2069e-01_rb,4.0630e-01_rb,3.8346e-01_rb,3.6097e-01_rb, &
+     &3.5952e-01_rb,3.9819e-01_rb,4.5457e-01_rb/)
+      kao(:, 5, 7,13) = (/ &
+     &5.4429e-01_rb,4.7829e-01_rb,4.1793e-01_rb,4.0260e-01_rb,3.7854e-01_rb,3.5674e-01_rb, &
+     &3.5560e-01_rb,3.9638e-01_rb,4.5240e-01_rb/)
+      kao(:, 1, 8,13) = (/ &
+     &1.3466e+00_rb,1.1788e+00_rb,1.0111e+00_rb,8.5366e-01_rb,7.5173e-01_rb,6.5869e-01_rb, &
+     &5.4376e-01_rb,4.6329e-01_rb,4.8785e-01_rb/)
+      kao(:, 2, 8,13) = (/ &
+     &1.3340e+00_rb,1.1680e+00_rb,1.0021e+00_rb,8.4354e-01_rb,7.4161e-01_rb,6.4846e-01_rb, &
+     &5.3530e-01_rb,4.5751e-01_rb,4.8487e-01_rb/)
+      kao(:, 3, 8,13) = (/ &
+     &1.3215e+00_rb,1.1573e+00_rb,9.9337e-01_rb,8.3476e-01_rb,7.3374e-01_rb,6.3918e-01_rb, &
+     &5.2901e-01_rb,4.5174e-01_rb,4.8277e-01_rb/)
+      kao(:, 4, 8,13) = (/ &
+     &1.3130e+00_rb,1.1502e+00_rb,9.8764e-01_rb,8.2958e-01_rb,7.2734e-01_rb,6.3251e-01_rb, &
+     &5.2258e-01_rb,4.4677e-01_rb,4.8075e-01_rb/)
+      kao(:, 5, 8,13) = (/ &
+     &1.3037e+00_rb,1.1423e+00_rb,9.8136e-01_rb,8.2511e-01_rb,7.2245e-01_rb,6.2665e-01_rb, &
+     &5.1636e-01_rb,4.4197e-01_rb,4.7928e-01_rb/)
+      kao(:, 1, 9,13) = (/ &
+     &6.0221e+00_rb,5.2697e+00_rb,4.5174e+00_rb,3.7653e+00_rb,3.0129e+00_rb,2.2622e+00_rb, &
+     &1.5952e+00_rb,9.9726e-01_rb,5.0671e-01_rb/)
+      kao(:, 2, 9,13) = (/ &
+     &5.9755e+00_rb,5.2290e+00_rb,4.4828e+00_rb,3.7364e+00_rb,2.9901e+00_rb,2.2441e+00_rb, &
+     &1.5732e+00_rb,9.8172e-01_rb,5.0573e-01_rb/)
+      kao(:, 3, 9,13) = (/ &
+     &5.9358e+00_rb,5.1947e+00_rb,4.4536e+00_rb,3.7125e+00_rb,2.9715e+00_rb,2.2305e+00_rb, &
+     &1.5561e+00_rb,9.6836e-01_rb,5.0514e-01_rb/)
+      kao(:, 4, 9,13) = (/ &
+     &5.9085e+00_rb,5.1712e+00_rb,4.4336e+00_rb,3.6962e+00_rb,2.9588e+00_rb,2.2217e+00_rb, &
+     &1.5446e+00_rb,9.5878e-01_rb,5.0373e-01_rb/)
+      kao(:, 5, 9,13) = (/ &
+     &5.8741e+00_rb,5.1412e+00_rb,4.4082e+00_rb,3.6753e+00_rb,2.9426e+00_rb,2.2110e+00_rb, &
+     &1.5366e+00_rb,9.5070e-01_rb,5.0223e-01_rb/)
+      kao(:, 1,10,13) = (/ &
+     &2.9983e+01_rb,2.6236e+01_rb,2.2488e+01_rb,1.8741e+01_rb,1.4994e+01_rb,1.1246e+01_rb, &
+     &7.4983e+00_rb,3.7584e+00_rb,5.2065e-01_rb/)
+      kao(:, 2,10,13) = (/ &
+     &2.9796e+01_rb,2.6072e+01_rb,2.2348e+01_rb,1.8624e+01_rb,1.4900e+01_rb,1.1176e+01_rb, &
+     &7.4520e+00_rb,3.7308e+00_rb,5.2186e-01_rb/)
+      kao(:, 3,10,13) = (/ &
+     &2.9702e+01_rb,2.5989e+01_rb,2.2278e+01_rb,1.8566e+01_rb,1.4854e+01_rb,1.1142e+01_rb, &
+     &7.4298e+00_rb,3.7183e+00_rb,5.2236e-01_rb/)
+      kao(:, 4,10,13) = (/ &
+     &2.9648e+01_rb,2.5942e+01_rb,2.2238e+01_rb,1.8533e+01_rb,1.4828e+01_rb,1.1123e+01_rb, &
+     &7.4177e+00_rb,3.7128e+00_rb,5.2097e-01_rb/)
+      kao(:, 5,10,13) = (/ &
+     &2.9599e+01_rb,2.5901e+01_rb,2.2202e+01_rb,1.8502e+01_rb,1.4804e+01_rb,1.1105e+01_rb, &
+     &7.4063e+00_rb,3.7092e+00_rb,5.1987e-01_rb/)
+      kao(:, 1,11,13) = (/ &
+     &5.1290e+01_rb,4.4882e+01_rb,3.8471e+01_rb,3.2058e+01_rb,2.5646e+01_rb,1.9236e+01_rb, &
+     &1.2824e+01_rb,6.4141e+00_rb,5.2983e-01_rb/)
+      kao(:, 2,11,13) = (/ &
+     &5.1244e+01_rb,4.4838e+01_rb,3.8434e+01_rb,3.2028e+01_rb,2.5623e+01_rb,1.9219e+01_rb, &
+     &1.2814e+01_rb,6.4089e+00_rb,5.3215e-01_rb/)
+      kao(:, 3,11,13) = (/ &
+     &5.1318e+01_rb,4.4905e+01_rb,3.8491e+01_rb,3.2076e+01_rb,2.5662e+01_rb,1.9248e+01_rb, &
+     &1.2833e+01_rb,6.4196e+00_rb,5.3209e-01_rb/)
+      kao(:, 4,11,13) = (/ &
+     &5.1488e+01_rb,4.5053e+01_rb,3.8617e+01_rb,3.2182e+01_rb,2.5747e+01_rb,1.9312e+01_rb, &
+     &1.2877e+01_rb,6.4422e+00_rb,5.3137e-01_rb/)
+      kao(:, 5,11,13) = (/ &
+     &5.1544e+01_rb,4.5101e+01_rb,3.8659e+01_rb,3.2218e+01_rb,2.5776e+01_rb,1.9335e+01_rb, &
+     &1.2893e+01_rb,6.4519e+00_rb,5.3038e-01_rb/)
+      kao(:, 1,12,13) = (/ &
+     &6.4625e+01_rb,5.6547e+01_rb,4.8469e+01_rb,4.0391e+01_rb,3.2315e+01_rb,2.4238e+01_rb, &
+     &1.6158e+01_rb,8.0814e+00_rb,4.6363e-01_rb/)
+      kao(:, 2,12,13) = (/ &
+     &6.4981e+01_rb,5.6858e+01_rb,4.8737e+01_rb,4.0614e+01_rb,3.2493e+01_rb,2.4371e+01_rb, &
+     &1.6249e+01_rb,8.1265e+00_rb,4.7141e-01_rb/)
+      kao(:, 3,12,13) = (/ &
+     &6.5489e+01_rb,5.7301e+01_rb,4.9118e+01_rb,4.0933e+01_rb,3.2747e+01_rb,2.4562e+01_rb, &
+     &1.6376e+01_rb,8.1908e+00_rb,4.7318e-01_rb/)
+      kao(:, 4,12,13) = (/ &
+     &6.5927e+01_rb,5.7688e+01_rb,4.9446e+01_rb,4.1208e+01_rb,3.2967e+01_rb,2.4727e+01_rb, &
+     &1.6488e+01_rb,8.2475e+00_rb,4.7664e-01_rb/)
+      kao(:, 5,12,13) = (/ &
+     &6.6087e+01_rb,5.7823e+01_rb,4.9566e+01_rb,4.1306e+01_rb,3.3048e+01_rb,2.4787e+01_rb, &
+     &1.6528e+01_rb,8.2690e+00_rb,4.7820e-01_rb/)
+      kao(:, 1,13,13) = (/ &
+     &6.4615e+01_rb,5.6540e+01_rb,4.8462e+01_rb,4.0385e+01_rb,3.2309e+01_rb,2.4232e+01_rb, &
+     &1.6156e+01_rb,8.0805e+00_rb,4.0088e-01_rb/)
+      kao(:, 2,13,13) = (/ &
+     &6.5417e+01_rb,5.7241e+01_rb,4.9064e+01_rb,4.0887e+01_rb,3.2711e+01_rb,2.4534e+01_rb, &
+     &1.6357e+01_rb,8.1804e+00_rb,3.9953e-01_rb/)
+      kao(:, 3,13,13) = (/ &
+     &6.6282e+01_rb,5.7998e+01_rb,4.9715e+01_rb,4.1430e+01_rb,3.3145e+01_rb,2.4860e+01_rb, &
+     &1.6576e+01_rb,8.2909e+00_rb,4.0385e-01_rb/)
+      kao(:, 4,13,13) = (/ &
+     &6.6847e+01_rb,5.8491e+01_rb,5.0137e+01_rb,4.1781e+01_rb,3.3427e+01_rb,2.5072e+01_rb, &
+     &1.6717e+01_rb,8.3627e+00_rb,4.1064e-01_rb/)
+      kao(:, 5,13,13) = (/ &
+     &6.7163e+01_rb,5.8769e+01_rb,5.0375e+01_rb,4.1983e+01_rb,3.3587e+01_rb,2.5193e+01_rb, &
+     &1.6798e+01_rb,8.4033e+00_rb,4.1414e-01_rb/)
+      kao(:, 1, 1,14) = (/ &
+     &1.2012e-02_rb,4.7001e-02_rb,9.2646e-02_rb,1.3669e-01_rb,1.7808e-01_rb,2.1465e-01_rb, &
+     &2.4110e-01_rb,2.4013e-01_rb,3.5593e-01_rb/)
+      kao(:, 2, 1,14) = (/ &
+     &1.1787e-02_rb,4.6471e-02_rb,9.1548e-02_rb,1.3506e-01_rb,1.7598e-01_rb,2.1215e-01_rb, &
+     &2.3833e-01_rb,2.3702e-01_rb,3.5168e-01_rb/)
+      kao(:, 3, 1,14) = (/ &
+     &1.1552e-02_rb,4.6117e-02_rb,9.0846e-02_rb,1.3398e-01_rb,1.7452e-01_rb,2.1037e-01_rb, &
+     &2.3630e-01_rb,2.3518e-01_rb,3.4867e-01_rb/)
+      kao(:, 4, 1,14) = (/ &
+     &1.1308e-02_rb,4.5919e-02_rb,9.0260e-02_rb,1.3312e-01_rb,1.7345e-01_rb,2.0914e-01_rb, &
+     &2.3511e-01_rb,2.3456e-01_rb,3.4647e-01_rb/)
+      kao(:, 5, 1,14) = (/ &
+     &1.1074e-02_rb,4.5680e-02_rb,8.9686e-02_rb,1.3217e-01_rb,1.7213e-01_rb,2.0750e-01_rb, &
+     &2.3330e-01_rb,2.3291e-01_rb,3.4372e-01_rb/)
+      kao(:, 1, 2,14) = (/ &
+     &1.9894e-02_rb,5.5751e-02_rb,1.1015e-01_rb,1.6336e-01_rb,2.1450e-01_rb,2.6180e-01_rb, &
+     &3.0044e-01_rb,3.1221e-01_rb,4.2855e-01_rb/)
+      kao(:, 2, 2,14) = (/ &
+     &1.9495e-02_rb,5.5076e-02_rb,1.0879e-01_rb,1.6130e-01_rb,2.1180e-01_rb,2.5853e-01_rb, &
+     &2.9678e-01_rb,3.0859e-01_rb,4.2309e-01_rb/)
+      kao(:, 3, 2,14) = (/ &
+     &1.9117e-02_rb,5.4639e-02_rb,1.0781e-01_rb,1.5983e-01_rb,2.0983e-01_rb,2.5605e-01_rb, &
+     &2.9379e-01_rb,3.0533e-01_rb,4.1905e-01_rb/)
+      kao(:, 4, 2,14) = (/ &
+     &1.8729e-02_rb,5.4397e-02_rb,1.0705e-01_rb,1.5861e-01_rb,2.0822e-01_rb,2.5408e-01_rb, &
+     &2.9159e-01_rb,3.0324e-01_rb,4.1584e-01_rb/)
+      kao(:, 5, 2,14) = (/ &
+     &1.8354e-02_rb,5.4135e-02_rb,1.0645e-01_rb,1.5762e-01_rb,2.0683e-01_rb,2.5235e-01_rb, &
+     &2.8960e-01_rb,3.0120e-01_rb,4.1280e-01_rb/)
+      kao(:, 1, 3,14) = (/ &
+     &4.4808e-02_rb,6.8120e-02_rb,1.3030e-01_rb,1.9402e-01_rb,2.5661e-01_rb,3.1701e-01_rb, &
+     &3.7210e-01_rb,4.0841e-01_rb,5.1219e-01_rb/)
+      kao(:, 2, 3,14) = (/ &
+     &4.3894e-02_rb,6.7026e-02_rb,1.2859e-01_rb,1.9144e-01_rb,2.5317e-01_rb,3.1271e-01_rb, &
+     &3.6711e-01_rb,4.0328e-01_rb,5.0524e-01_rb/)
+      kao(:, 3, 3,14) = (/ &
+     &4.3009e-02_rb,6.6189e-02_rb,1.2745e-01_rb,1.8969e-01_rb,2.5081e-01_rb,3.0975e-01_rb, &
+     &3.6348e-01_rb,3.9877e-01_rb,5.0039e-01_rb/)
+      kao(:, 4, 3,14) = (/ &
+     &4.2131e-02_rb,6.5604e-02_rb,1.2666e-01_rb,1.8820e-01_rb,2.4871e-01_rb,3.0709e-01_rb, &
+     &3.6038e-01_rb,3.9547e-01_rb,4.9608e-01_rb/)
+      kao(:, 5, 3,14) = (/ &
+     &4.1300e-02_rb,6.4954e-02_rb,1.2597e-01_rb,1.8706e-01_rb,2.4708e-01_rb,3.0499e-01_rb, &
+     &3.5781e-01_rb,3.9252e-01_rb,4.9231e-01_rb/)
+      kao(:, 1, 4,14) = (/ &
+     &1.0301e-01_rb,1.0024e-01_rb,1.5513e-01_rb,2.2660e-01_rb,3.0051e-01_rb,3.7330e-01_rb, &
+     &4.4331e-01_rb,5.0277e-01_rb,5.9886e-01_rb/)
+      kao(:, 2, 4,14) = (/ &
+     &1.0093e-01_rb,9.7693e-02_rb,1.5244e-01_rb,2.2368e-01_rb,2.9661e-01_rb,3.6838e-01_rb, &
+     &4.3740e-01_rb,4.9600e-01_rb,5.9091e-01_rb/)
+      kao(:, 3, 4,14) = (/ &
+     &9.8888e-02_rb,9.5814e-02_rb,1.5056e-01_rb,2.2160e-01_rb,2.9368e-01_rb,3.6475e-01_rb, &
+     &4.3305e-01_rb,4.9087e-01_rb,5.8504e-01_rb/)
+      kao(:, 4, 4,14) = (/ &
+     &9.6900e-02_rb,9.4385e-02_rb,1.4923e-01_rb,2.1998e-01_rb,2.9118e-01_rb,3.6134e-01_rb, &
+     &4.2884e-01_rb,4.8615e-01_rb,5.7910e-01_rb/)
+      kao(:, 5, 4,14) = (/ &
+     &9.5071e-02_rb,9.3054e-02_rb,1.4811e-01_rb,2.1854e-01_rb,2.8905e-01_rb,3.5852e-01_rb, &
+     &4.2539e-01_rb,4.8206e-01_rb,5.7407e-01_rb/)
+      kao(:, 1, 5,14) = (/ &
+     &2.1660e-01_rb,1.9045e-01_rb,2.0807e-01_rb,2.6919e-01_rb,3.4511e-01_rb,4.2945e-01_rb, &
+     &5.1231e-01_rb,5.8951e-01_rb,6.8618e-01_rb/)
+      kao(:, 2, 5,14) = (/ &
+     &2.1241e-01_rb,1.8672e-01_rb,2.0475e-01_rb,2.6424e-01_rb,3.4065e-01_rb,4.2384e-01_rb, &
+     &5.0554e-01_rb,5.8155e-01_rb,6.7701e-01_rb/)
+      kao(:, 3, 5,14) = (/ &
+     &2.0837e-01_rb,1.8314e-01_rb,2.0195e-01_rb,2.6053e-01_rb,3.3744e-01_rb,4.1942e-01_rb, &
+     &5.0021e-01_rb,5.7551e-01_rb,6.6986e-01_rb/)
+      kao(:, 4, 5,14) = (/ &
+     &2.0430e-01_rb,1.7971e-01_rb,1.9948e-01_rb,2.5756e-01_rb,3.3465e-01_rb,4.1558e-01_rb, &
+     &4.9517e-01_rb,5.6937e-01_rb,6.6243e-01_rb/)
+      kao(:, 5, 5,14) = (/ &
+     &2.0042e-01_rb,1.7656e-01_rb,1.9774e-01_rb,2.5482e-01_rb,3.3186e-01_rb,4.1183e-01_rb, &
+     &4.9052e-01_rb,5.6389e-01_rb,6.5569e-01_rb/)
+      kao(:, 1, 6,14) = (/ &
+     &4.2427e-01_rb,3.7203e-01_rb,3.3320e-01_rb,3.5686e-01_rb,4.1154e-01_rb,4.8492e-01_rb, &
+     &5.7932e-01_rb,6.7077e-01_rb,7.7255e-01_rb/)
+      kao(:, 2, 6,14) = (/ &
+     &4.1690e-01_rb,3.6557e-01_rb,3.2503e-01_rb,3.5212e-01_rb,4.0345e-01_rb,4.7827e-01_rb, &
+     &5.7140e-01_rb,6.6143e-01_rb,7.6181e-01_rb/)
+      kao(:, 3, 6,14) = (/ &
+     &4.0958e-01_rb,3.5909e-01_rb,3.1787e-01_rb,3.4706e-01_rb,3.9704e-01_rb,4.7318e-01_rb, &
+     &5.6463e-01_rb,6.5338e-01_rb,7.5243e-01_rb/)
+      kao(:, 4, 6,14) = (/ &
+     &4.0201e-01_rb,3.5239e-01_rb,3.1191e-01_rb,3.4259e-01_rb,3.9161e-01_rb,4.6839e-01_rb, &
+     &5.5839e-01_rb,6.4570e-01_rb,7.4289e-01_rb/)
+      kao(:, 5, 6,14) = (/ &
+     &3.9475e-01_rb,3.4591e-01_rb,3.0639e-01_rb,3.3917e-01_rb,3.8642e-01_rb,4.6363e-01_rb, &
+     &5.5236e-01_rb,6.3841e-01_rb,7.3426e-01_rb/)
+      kao(:, 1, 7,14) = (/ &
+     &8.8029e-01_rb,7.7094e-01_rb,6.6160e-01_rb,5.8339e-01_rb,5.7398e-01_rb,5.9529e-01_rb, &
+     &6.4618e-01_rb,7.4819e-01_rb,8.5701e-01_rb/)
+      kao(:, 2, 7,14) = (/ &
+     &8.6525e-01_rb,7.5771e-01_rb,6.5024e-01_rb,5.6937e-01_rb,5.6534e-01_rb,5.8297e-01_rb, &
+     &6.3577e-01_rb,7.3677e-01_rb,8.4377e-01_rb/)
+      kao(:, 3, 7,14) = (/ &
+     &8.5121e-01_rb,7.4536e-01_rb,6.3948e-01_rb,5.5760e-01_rb,5.5733e-01_rb,5.7172e-01_rb, &
+     &6.2728e-01_rb,7.2631e-01_rb,8.3134e-01_rb/)
+      kao(:, 4, 7,14) = (/ &
+     &8.3673e-01_rb,7.3261e-01_rb,6.2850e-01_rb,5.4720e-01_rb,5.4987e-01_rb,5.6219e-01_rb, &
+     &6.1953e-01_rb,7.1698e-01_rb,8.1995e-01_rb/)
+      kao(:, 5, 7,14) = (/ &
+     &8.2233e-01_rb,7.1991e-01_rb,6.1754e-01_rb,5.3796e-01_rb,5.4354e-01_rb,5.5330e-01_rb, &
+     &6.1303e-01_rb,7.0902e-01_rb,8.1040e-01_rb/)
+      kao(:, 1, 8,14) = (/ &
+     &2.1633e+00_rb,1.8933e+00_rb,1.6233e+00_rb,1.3534e+00_rb,1.1037e+00_rb,9.5036e-01_rb, &
+     &8.5982e-01_rb,8.2829e-01_rb,9.4205e-01_rb/)
+      kao(:, 2, 8,14) = (/ &
+     &2.1282e+00_rb,1.8626e+00_rb,1.5970e+00_rb,1.3314e+00_rb,1.0818e+00_rb,9.3527e-01_rb, &
+     &8.4498e-01_rb,8.1322e-01_rb,9.2537e-01_rb/)
+      kao(:, 3, 8,14) = (/ &
+     &2.0953e+00_rb,1.8337e+00_rb,1.5723e+00_rb,1.3107e+00_rb,1.0621e+00_rb,9.2114e-01_rb, &
+     &8.2743e-01_rb,8.0051e-01_rb,9.1039e-01_rb/)
+      kao(:, 4, 8,14) = (/ &
+     &2.0607e+00_rb,1.8035e+00_rb,1.5462e+00_rb,1.2890e+00_rb,1.0433e+00_rb,9.0766e-01_rb, &
+     &8.1242e-01_rb,7.8938e-01_rb,8.9703e-01_rb/)
+      kao(:, 5, 8,14) = (/ &
+     &2.0272e+00_rb,1.7741e+00_rb,1.5210e+00_rb,1.2680e+00_rb,1.0246e+00_rb,8.9475e-01_rb, &
+     &7.9856e-01_rb,7.8051e-01_rb,8.8639e-01_rb/)
+      kao(:, 1, 9,14) = (/ &
+     &1.0073e+01_rb,8.8141e+00_rb,7.5553e+00_rb,6.2968e+00_rb,5.0379e+00_rb,3.7790e+00_rb, &
+     &2.5252e+00_rb,1.5121e+00_rb,1.0239e+00_rb/)
+      kao(:, 2, 9,14) = (/ &
+     &9.9292e+00_rb,8.6881e+00_rb,7.4471e+00_rb,6.2062e+00_rb,4.9656e+00_rb,3.7249e+00_rb, &
+     &2.4866e+00_rb,1.4902e+00_rb,1.0036e+00_rb/)
+      kao(:, 3, 9,14) = (/ &
+     &9.7859e+00_rb,8.5628e+00_rb,7.3398e+00_rb,6.1169e+00_rb,4.8940e+00_rb,3.6711e+00_rb, &
+     &2.4492e+00_rb,1.4699e+00_rb,9.8554e-01_rb/)
+      kao(:, 4, 9,14) = (/ &
+     &9.6386e+00_rb,8.4340e+00_rb,7.2293e+00_rb,6.0249e+00_rb,4.8203e+00_rb,3.6156e+00_rb, &
+     &2.4114e+00_rb,1.4506e+00_rb,9.7113e-01_rb/)
+      kao(:, 5, 9,14) = (/ &
+     &9.4939e+00_rb,8.3072e+00_rb,7.1206e+00_rb,5.9343e+00_rb,4.7478e+00_rb,3.5614e+00_rb, &
+     &2.3752e+00_rb,1.4305e+00_rb,9.6050e-01_rb/)
+      kao(:, 1,10,14) = (/ &
+     &5.2612e+01_rb,4.6036e+01_rb,3.9459e+01_rb,3.2882e+01_rb,2.6307e+01_rb,1.9730e+01_rb, &
+     &1.3154e+01_rb,6.5782e+00_rb,1.1007e+00_rb/)
+      kao(:, 2,10,14) = (/ &
+     &5.2045e+01_rb,4.5541e+01_rb,3.9035e+01_rb,3.2530e+01_rb,2.6024e+01_rb,1.9518e+01_rb, &
+     &1.3013e+01_rb,6.5076e+00_rb,1.0772e+00_rb/)
+      kao(:, 3,10,14) = (/ &
+     &5.1396e+01_rb,4.4972e+01_rb,3.8548e+01_rb,3.2123e+01_rb,2.5700e+01_rb,1.9274e+01_rb, &
+     &1.2851e+01_rb,6.4259e+00_rb,1.0576e+00_rb/)
+      kao(:, 4,10,14) = (/ &
+     &5.0681e+01_rb,4.4348e+01_rb,3.8014e+01_rb,3.1677e+01_rb,2.5342e+01_rb,1.9007e+01_rb, &
+     &1.2671e+01_rb,6.3366e+00_rb,1.0433e+00_rb/)
+      kao(:, 5,10,14) = (/ &
+     &4.9909e+01_rb,4.3671e+01_rb,3.7433e+01_rb,3.1194e+01_rb,2.4957e+01_rb,1.8717e+01_rb, &
+     &1.2479e+01_rb,6.2406e+00_rb,1.0315e+00_rb/)
+      kao(:, 1,11,14) = (/ &
+     &9.5447e+01_rb,8.3519e+01_rb,7.1586e+01_rb,5.9654e+01_rb,4.7724e+01_rb,3.5792e+01_rb, &
+     &2.3862e+01_rb,1.1932e+01_rb,1.1580e+00_rb/)
+      kao(:, 2,11,14) = (/ &
+     &9.4633e+01_rb,8.2803e+01_rb,7.0974e+01_rb,5.9145e+01_rb,4.7317e+01_rb,3.5487e+01_rb, &
+     &2.3658e+01_rb,1.1830e+01_rb,1.1359e+00_rb/)
+      kao(:, 3,11,14) = (/ &
+     &9.3512e+01_rb,8.1822e+01_rb,7.0137e+01_rb,5.8447e+01_rb,4.6756e+01_rb,3.5068e+01_rb, &
+     &2.3379e+01_rb,1.1690e+01_rb,1.1191e+00_rb/)
+      kao(:, 4,11,14) = (/ &
+     &9.1943e+01_rb,8.0451e+01_rb,6.8957e+01_rb,5.7463e+01_rb,4.5972e+01_rb,3.4478e+01_rb, &
+     &2.2985e+01_rb,1.1494e+01_rb,1.1048e+00_rb/)
+      kao(:, 5,11,14) = (/ &
+     &9.0366e+01_rb,7.9072e+01_rb,6.7775e+01_rb,5.6480e+01_rb,4.5183e+01_rb,3.3888e+01_rb, &
+     &2.2593e+01_rb,1.1297e+01_rb,1.0941e+00_rb/)
+      kao(:, 1,12,14) = (/ &
+     &1.2829e+02_rb,1.1225e+02_rb,9.6218e+01_rb,8.0178e+01_rb,6.4148e+01_rb,4.8109e+01_rb, &
+     &3.2071e+01_rb,1.6037e+01_rb,1.2082e+00_rb/)
+      kao(:, 2,12,14) = (/ &
+     &1.2686e+02_rb,1.1100e+02_rb,9.5144e+01_rb,7.9288e+01_rb,6.3431e+01_rb,4.7572e+01_rb, &
+     &3.1716e+01_rb,1.5858e+01_rb,1.1882e+00_rb/)
+      kao(:, 3,12,14) = (/ &
+     &1.2492e+02_rb,1.0930e+02_rb,9.3686e+01_rb,7.8073e+01_rb,6.2461e+01_rb,4.6846e+01_rb, &
+     &3.1229e+01_rb,1.5615e+01_rb,1.1735e+00_rb/)
+      kao(:, 4,12,14) = (/ &
+     &1.2277e+02_rb,1.0742e+02_rb,9.2079e+01_rb,7.6735e+01_rb,6.1388e+01_rb,4.6041e+01_rb, &
+     &3.0695e+01_rb,1.5349e+01_rb,1.1628e+00_rb/)
+      kao(:, 5,12,14) = (/ &
+     &1.2083e+02_rb,1.0573e+02_rb,9.0624e+01_rb,7.5519e+01_rb,6.0418e+01_rb,4.5314e+01_rb, &
+     &3.0211e+01_rb,1.5107e+01_rb,1.1538e+00_rb/)
+      kao(:, 1,13,14) = (/ &
+     &1.3638e+02_rb,1.1933e+02_rb,1.0229e+02_rb,8.5232e+01_rb,6.8189e+01_rb,5.1142e+01_rb, &
+     &3.4096e+01_rb,1.7048e+01_rb,1.2383e+00_rb/)
+      kao(:, 2,13,14) = (/ &
+     &1.3472e+02_rb,1.1788e+02_rb,1.0104e+02_rb,8.4200e+01_rb,6.7359e+01_rb,5.0520e+01_rb, &
+     &3.3681e+01_rb,1.6841e+01_rb,1.2326e+00_rb/)
+      kao(:, 3,13,14) = (/ &
+     &1.3259e+02_rb,1.1602e+02_rb,9.9447e+01_rb,8.2873e+01_rb,6.6300e+01_rb,4.9725e+01_rb, &
+     &3.3151e+01_rb,1.6576e+01_rb,1.2214e+00_rb/)
+      kao(:, 4,13,14) = (/ &
+     &1.3062e+02_rb,1.1429e+02_rb,9.7966e+01_rb,8.1640e+01_rb,6.5311e+01_rb,4.8985e+01_rb, &
+     &3.2658e+01_rb,1.6329e+01_rb,1.2124e+00_rb/)
+      kao(:, 5,13,14) = (/ &
+     &1.2869e+02_rb,1.1261e+02_rb,9.6524e+01_rb,8.0437e+01_rb,6.4351e+01_rb,4.8263e+01_rb, &
+     &3.2178e+01_rb,1.6090e+01_rb,1.2063e+00_rb/)
+      kao(:, 1, 1,15) = (/ &
+     &1.6224e-02_rb,5.5981e-02_rb,1.1058e-01_rb,1.6311e-01_rb,2.1224e-01_rb,2.5534e-01_rb, &
+     &2.8563e-01_rb,2.8102e-01_rb,4.2449e-01_rb/)
+      kao(:, 2, 1,15) = (/ &
+     &1.5819e-02_rb,5.4235e-02_rb,1.0708e-01_rb,1.5789e-01_rb,2.0538e-01_rb,2.4690e-01_rb, &
+     &2.7600e-01_rb,2.7172e-01_rb,4.1075e-01_rb/)
+      kao(:, 3, 1,15) = (/ &
+     &1.5437e-02_rb,5.3030e-02_rb,1.0453e-01_rb,1.5410e-01_rb,2.0034e-01_rb,2.4064e-01_rb, &
+     &2.6869e-01_rb,2.6394e-01_rb,4.0067e-01_rb/)
+      kao(:, 4, 1,15) = (/ &
+     &1.5047e-02_rb,5.2309e-02_rb,1.0294e-01_rb,1.5163e-01_rb,1.9708e-01_rb,2.3671e-01_rb, &
+     &2.6420e-01_rb,2.5937e-01_rb,3.9409e-01_rb/)
+      kao(:, 5, 1,15) = (/ &
+     &1.4670e-02_rb,5.2264e-02_rb,1.0263e-01_rb,1.5109e-01_rb,1.9635e-01_rb,2.3592e-01_rb, &
+     &2.6369e-01_rb,2.6037e-01_rb,3.9232e-01_rb/)
+      kao(:, 1, 2,15) = (/ &
+     &2.7874e-02_rb,6.8016e-02_rb,1.3490e-01_rb,2.0013e-01_rb,2.6255e-01_rb,3.1976e-01_rb, &
+     &3.6546e-01_rb,3.7626e-01_rb,5.2506e-01_rb/)
+      kao(:, 2, 2,15) = (/ &
+     &2.7188e-02_rb,6.5949e-02_rb,1.3068e-01_rb,1.9379e-01_rb,2.5414e-01_rb,3.0936e-01_rb, &
+     &3.5322e-01_rb,3.6307e-01_rb,5.0826e-01_rb/)
+      kao(:, 3, 2,15) = (/ &
+     &2.6530e-02_rb,6.4457e-02_rb,1.2748e-01_rb,1.8895e-01_rb,2.4773e-01_rb,3.0143e-01_rb, &
+     &3.4397e-01_rb,3.5278e-01_rb,4.9544e-01_rb/)
+      kao(:, 4, 2,15) = (/ &
+     &2.5866e-02_rb,6.3478e-02_rb,1.2538e-01_rb,1.8573e-01_rb,2.4341e-01_rb,2.9608e-01_rb, &
+     &3.3770e-01_rb,3.4604e-01_rb,4.8658e-01_rb/)
+      kao(:, 5, 2,15) = (/ &
+     &2.5184e-02_rb,6.3069e-02_rb,1.2422e-01_rb,1.8387e-01_rb,2.4089e-01_rb,2.9292e-01_rb, &
+     &3.3402e-01_rb,3.4222e-01_rb,4.8125e-01_rb/)
+      kao(:, 1, 3,15) = (/ &
+     &6.4680e-02_rb,8.3094e-02_rb,1.6505e-01_rb,2.4624e-01_rb,3.2572e-01_rb,4.0189e-01_rb, &
+     &4.7033e-01_rb,5.1238e-01_rb,6.5139e-01_rb/)
+      kao(:, 2, 3,15) = (/ &
+     &6.3121e-02_rb,8.0680e-02_rb,1.6005e-01_rb,2.3872e-01_rb,3.1571e-01_rb,3.8944e-01_rb, &
+     &4.5551e-01_rb,4.9522e-01_rb,6.3135e-01_rb/)
+      kao(:, 3, 3,15) = (/ &
+     &6.1563e-02_rb,7.8867e-02_rb,1.5612e-01_rb,2.3258e-01_rb,3.0746e-01_rb,3.7914e-01_rb, &
+     &4.4323e-01_rb,4.8117e-01_rb,6.1483e-01_rb/)
+      kao(:, 4, 3,15) = (/ &
+     &6.0025e-02_rb,7.7639e-02_rb,1.5328e-01_rb,2.2820e-01_rb,3.0153e-01_rb,3.7164e-01_rb, &
+     &4.3426e-01_rb,4.7103e-01_rb,6.0254e-01_rb/)
+      kao(:, 5, 3,15) = (/ &
+     &5.8411e-02_rb,7.7256e-02_rb,1.5120e-01_rb,2.2490e-01_rb,2.9704e-01_rb,3.6599e-01_rb, &
+     &4.2759e-01_rb,4.6376e-01_rb,5.9316e-01_rb/)
+      kao(:, 1, 4,15) = (/ &
+     &1.5257e-01_rb,1.3544e-01_rb,2.0077e-01_rb,3.0036e-01_rb,3.9895e-01_rb,4.9562e-01_rb, &
+     &5.8758e-01_rb,6.6215e-01_rb,7.9779e-01_rb/)
+      kao(:, 2, 4,15) = (/ &
+     &1.4896e-01_rb,1.3204e-01_rb,1.9507e-01_rb,2.9140e-01_rb,3.8695e-01_rb,4.8067e-01_rb, &
+     &5.6978e-01_rb,6.4163e-01_rb,7.7379e-01_rb/)
+      kao(:, 3, 4,15) = (/ &
+     &1.4526e-01_rb,1.2874e-01_rb,1.9046e-01_rb,2.8415e-01_rb,3.7702e-01_rb,4.6809e-01_rb, &
+     &5.5459e-01_rb,6.2416e-01_rb,7.5329e-01_rb/)
+      kao(:, 4, 4,15) = (/ &
+     &1.4150e-01_rb,1.2551e-01_rb,1.8699e-01_rb,2.7869e-01_rb,3.6960e-01_rb,4.5869e-01_rb, &
+     &5.4325e-01_rb,6.1092e-01_rb,7.3794e-01_rb/)
+      kao(:, 5, 4,15) = (/ &
+     &1.3788e-01_rb,1.2292e-01_rb,1.8424e-01_rb,2.7423e-01_rb,3.6354e-01_rb,4.5105e-01_rb, &
+     &5.3408e-01_rb,6.0044e-01_rb,7.2537e-01_rb/)
+      kao(:, 1, 5,15) = (/ &
+     &3.2844e-01_rb,2.8856e-01_rb,2.7979e-01_rb,3.6340e-01_rb,4.8359e-01_rb,6.0259e-01_rb, &
+     &7.1867e-01_rb,8.2355e-01_rb,9.6702e-01_rb/)
+      kao(:, 2, 5,15) = (/ &
+     &3.2063e-01_rb,2.8155e-01_rb,2.6962e-01_rb,3.5320e-01_rb,4.6960e-01_rb,5.8494e-01_rb, &
+     &6.9755e-01_rb,7.9908e-01_rb,9.3875e-01_rb/)
+      kao(:, 3, 5,15) = (/ &
+     &3.1261e-01_rb,2.7434e-01_rb,2.6034e-01_rb,3.4461e-01_rb,4.5775e-01_rb,5.6986e-01_rb, &
+     &6.7919e-01_rb,7.7764e-01_rb,9.1375e-01_rb/)
+      kao(:, 4, 5,15) = (/ &
+     &3.0440e-01_rb,2.6704e-01_rb,2.5252e-01_rb,3.3787e-01_rb,4.4841e-01_rb,5.5807e-01_rb, &
+     &6.6481e-01_rb,7.6089e-01_rb,8.9431e-01_rb/)
+      kao(:, 5, 5,15) = (/ &
+     &2.9686e-01_rb,2.6035e-01_rb,2.4591e-01_rb,3.3225e-01_rb,4.4072e-01_rb,5.4821e-01_rb, &
+     &6.5299e-01_rb,7.4709e-01_rb,8.7822e-01_rb/)
+      kao(:, 1, 6,15) = (/ &
+     &6.6195e-01_rb,5.8013e-01_rb,4.9831e-01_rb,4.9605e-01_rb,5.8178e-01_rb,7.2595e-01_rb, &
+     &8.6836e-01_rb,1.0033e+00_rb,1.1633e+00_rb/)
+      kao(:, 2, 6,15) = (/ &
+     &6.4501e-01_rb,5.6519e-01_rb,4.8535e-01_rb,4.7586e-01_rb,5.6606e-01_rb,7.0584e-01_rb, &
+     &8.4395e-01_rb,9.7492e-01_rb,1.1306e+00_rb/)
+      kao(:, 3, 6,15) = (/ &
+     &6.2808e-01_rb,5.5020e-01_rb,4.7240e-01_rb,4.5801e-01_rb,5.5243e-01_rb,6.8837e-01_rb, &
+     &8.2269e-01_rb,9.4987e-01_rb,1.1015e+00_rb/)
+      kao(:, 4, 6,15) = (/ &
+     &6.1101e-01_rb,5.3520e-01_rb,4.5941e-01_rb,4.4278e-01_rb,5.4121e-01_rb,6.7408e-01_rb, &
+     &8.0538e-01_rb,9.2955e-01_rb,1.0781e+00_rb/)
+      kao(:, 5, 6,15) = (/ &
+     &5.9524e-01_rb,5.2132e-01_rb,4.4745e-01_rb,4.2965e-01_rb,5.3187e-01_rb,6.6218e-01_rb, &
+     &7.9084e-01_rb,9.1257e-01_rb,1.0584e+00_rb/)
+      kao(:, 1, 7,15) = (/ &
+     &1.4144e+00_rb,1.2384e+00_rb,1.0623e+00_rb,8.8626e-01_rb,8.1737e-01_rb,8.6950e-01_rb, &
+     &1.0395e+00_rb,1.2069e+00_rb,1.3892e+00_rb/)
+      kao(:, 2, 7,15) = (/ &
+     &1.3748e+00_rb,1.2036e+00_rb,1.0323e+00_rb,8.6117e-01_rb,7.8383e-01_rb,8.4592e-01_rb, &
+     &1.0122e+00_rb,1.1745e+00_rb,1.3519e+00_rb/)
+      kao(:, 3, 7,15) = (/ &
+     &1.3356e+00_rb,1.1692e+00_rb,1.0028e+00_rb,8.3643e-01_rb,7.5357e-01_rb,8.2575e-01_rb, &
+     &9.8798e-01_rb,1.1461e+00_rb,1.3189e+00_rb/)
+      kao(:, 4, 7,15) = (/ &
+     &1.2972e+00_rb,1.1356e+00_rb,9.7391e-01_rb,8.1222e-01_rb,7.2715e-01_rb,8.0916e-01_rb, &
+     &9.6777e-01_rb,1.1223e+00_rb,1.2914e+00_rb/)
+      kao(:, 5, 7,15) = (/ &
+     &1.2621e+00_rb,1.1049e+00_rb,9.4752e-01_rb,7.9014e-01_rb,7.0399e-01_rb,7.9481e-01_rb, &
+     &9.5022e-01_rb,1.1017e+00_rb,1.2675e+00_rb/)
+      kao(:, 1, 8,15) = (/ &
+     &3.5678e+00_rb,3.1226e+00_rb,2.6774e+00_rb,2.2323e+00_rb,1.7871e+00_rb,1.4068e+00_rb, &
+     &1.2751e+00_rb,1.4347e+00_rb,1.6442e+00_rb/)
+      kao(:, 2, 8,15) = (/ &
+     &3.4620e+00_rb,3.0298e+00_rb,2.5977e+00_rb,2.1657e+00_rb,1.7337e+00_rb,1.3525e+00_rb, &
+     &1.2330e+00_rb,1.4002e+00_rb,1.6038e+00_rb/)
+      kao(:, 3, 8,15) = (/ &
+     &3.3581e+00_rb,2.9387e+00_rb,2.5197e+00_rb,2.1005e+00_rb,1.6813e+00_rb,1.3030e+00_rb, &
+     &1.1987e+00_rb,1.3683e+00_rb,1.5668e+00_rb/)
+      kao(:, 4, 8,15) = (/ &
+     &3.2581e+00_rb,2.8514e+00_rb,2.4446e+00_rb,2.0378e+00_rb,1.6310e+00_rb,1.2580e+00_rb, &
+     &1.1700e+00_rb,1.3407e+00_rb,1.5349e+00_rb/)
+      kao(:, 5, 8,15) = (/ &
+     &3.1664e+00_rb,2.7709e+00_rb,2.3756e+00_rb,1.9802e+00_rb,1.5848e+00_rb,1.2171e+00_rb, &
+     &1.1461e+00_rb,1.3159e+00_rb,1.5061e+00_rb/)
+      kao(:, 1, 9,15) = (/ &
+     &1.6997e+01_rb,1.4874e+01_rb,1.2750e+01_rb,1.0625e+01_rb,8.5017e+00_rb,6.3777e+00_rb, &
+     &4.2536e+00_rb,2.2902e+00_rb,1.9313e+00_rb/)
+      kao(:, 2, 9,15) = (/ &
+     &1.6471e+01_rb,1.4414e+01_rb,1.2355e+01_rb,1.0296e+01_rb,8.2389e+00_rb,6.1803e+00_rb, &
+     &4.1219e+00_rb,2.1942e+00_rb,1.8874e+00_rb/)
+      kao(:, 3, 9,15) = (/ &
+     &1.5959e+01_rb,1.3964e+01_rb,1.1970e+01_rb,9.9759e+00_rb,7.9817e+00_rb,5.9872e+00_rb, &
+     &3.9932e+00_rb,2.1070e+00_rb,1.8460e+00_rb/)
+      kao(:, 4, 9,15) = (/ &
+     &1.5470e+01_rb,1.3538e+01_rb,1.1604e+01_rb,9.6708e+00_rb,7.7374e+00_rb,5.8040e+00_rb, &
+     &3.8707e+00_rb,2.0267e+00_rb,1.8089e+00_rb/)
+      kao(:, 5, 9,15) = (/ &
+     &1.5020e+01_rb,1.3143e+01_rb,1.1265e+01_rb,9.3885e+00_rb,7.5114e+00_rb,5.6345e+00_rb, &
+     &3.7577e+00_rb,1.9548e+00_rb,1.7742e+00_rb/)
+      kao(:, 1,10,15) = (/ &
+     &9.0636e+01_rb,7.9307e+01_rb,6.7977e+01_rb,5.6649e+01_rb,4.5320e+01_rb,3.3991e+01_rb, &
+     &2.2662e+01_rb,1.1334e+01_rb,2.2438e+00_rb/)
+      kao(:, 2,10,15) = (/ &
+     &8.7565e+01_rb,7.6621e+01_rb,6.5675e+01_rb,5.4728e+01_rb,4.3786e+01_rb,3.2842e+01_rb, &
+     &2.1895e+01_rb,1.0950e+01_rb,2.1955e+00_rb/)
+      kao(:, 3,10,15) = (/ &
+     &8.4686e+01_rb,7.4100e+01_rb,6.3516e+01_rb,5.2929e+01_rb,4.2345e+01_rb,3.1759e+01_rb, &
+     &2.1174e+01_rb,1.0590e+01_rb,2.1489e+00_rb/)
+      kao(:, 4,10,15) = (/ &
+     &8.2038e+01_rb,7.1783e+01_rb,6.1529e+01_rb,5.1276e+01_rb,4.1020e+01_rb,3.0766e+01_rb, &
+     &2.0512e+01_rb,1.0258e+01_rb,2.1057e+00_rb/)
+      kao(:, 5,10,15) = (/ &
+     &7.9656e+01_rb,6.9701e+01_rb,5.9744e+01_rb,4.9787e+01_rb,3.9829e+01_rb,2.9874e+01_rb, &
+     &1.9917e+01_rb,9.9593e+00_rb,2.0648e+00_rb/)
+      kao(:, 1,11,15) = (/ &
+     &1.6605e+02_rb,1.4529e+02_rb,1.2455e+02_rb,1.0378e+02_rb,8.3029e+01_rb,6.2280e+01_rb, &
+     &4.1517e+01_rb,2.0760e+01_rb,2.5530e+00_rb/)
+      kao(:, 2,11,15) = (/ &
+     &1.6006e+02_rb,1.4006e+02_rb,1.2005e+02_rb,1.0004e+02_rb,8.0031e+01_rb,6.0027e+01_rb, &
+     &4.0019e+01_rb,2.0011e+01_rb,2.4994e+00_rb/)
+      kao(:, 3,11,15) = (/ &
+     &1.5475e+02_rb,1.3539e+02_rb,1.1606e+02_rb,9.6709e+01_rb,7.7371e+01_rb,5.8029e+01_rb, &
+     &3.8687e+01_rb,1.9345e+01_rb,2.4484e+00_rb/)
+      kao(:, 4,11,15) = (/ &
+     &1.5058e+02_rb,1.3176e+02_rb,1.1294e+02_rb,9.4118e+01_rb,7.5292e+01_rb,5.6471e+01_rb, &
+     &3.7649e+01_rb,1.8825e+01_rb,2.4006e+00_rb/)
+      kao(:, 5,11,15) = (/ &
+     &1.4680e+02_rb,1.2845e+02_rb,1.1009e+02_rb,9.1748e+01_rb,7.3399e+01_rb,5.5050e+01_rb, &
+     &3.6700e+01_rb,1.8351e+01_rb,2.3540e+00_rb/)
+      kao(:, 1,12,15) = (/ &
+     &2.2602e+02_rb,1.9778e+02_rb,1.6953e+02_rb,1.4127e+02_rb,1.1301e+02_rb,8.4757e+01_rb, &
+     &5.6507e+01_rb,2.8257e+01_rb,2.8716e+00_rb/)
+      kao(:, 2,12,15) = (/ &
+     &2.1869e+02_rb,1.9135e+02_rb,1.6402e+02_rb,1.3669e+02_rb,1.0935e+02_rb,8.2013e+01_rb, &
+     &5.4674e+01_rb,2.7339e+01_rb,2.8132e+00_rb/)
+      kao(:, 3,12,15) = (/ &
+     &2.1253e+02_rb,1.8597e+02_rb,1.5940e+02_rb,1.3282e+02_rb,1.0626e+02_rb,7.9692e+01_rb, &
+     &5.3134e+01_rb,2.6567e+01_rb,2.7573e+00_rb/)
+      kao(:, 4,12,15) = (/ &
+     &2.0725e+02_rb,1.8134e+02_rb,1.5543e+02_rb,1.2952e+02_rb,1.0362e+02_rb,7.7720e+01_rb, &
+     &5.1811e+01_rb,2.5907e+01_rb,2.7022e+00_rb/)
+      kao(:, 5,12,15) = (/ &
+     &2.0216e+02_rb,1.7690e+02_rb,1.5162e+02_rb,1.2635e+02_rb,1.0108e+02_rb,7.5810e+01_rb, &
+     &5.0540e+01_rb,2.5271e+01_rb,2.6508e+00_rb/)
+      kao(:, 1,13,15) = (/ &
+     &2.4880e+02_rb,2.1770e+02_rb,1.8661e+02_rb,1.5550e+02_rb,1.2440e+02_rb,9.3305e+01_rb, &
+     &6.2205e+01_rb,3.1105e+01_rb,3.1971e+00_rb/)
+      kao(:, 2,13,15) = (/ &
+     &2.4131e+02_rb,2.1114e+02_rb,1.8097e+02_rb,1.5081e+02_rb,1.2065e+02_rb,9.0483e+01_rb, &
+     &6.0327e+01_rb,3.0165e+01_rb,3.1338e+00_rb/)
+      kao(:, 3,13,15) = (/ &
+     &2.3499e+02_rb,2.0562e+02_rb,1.7624e+02_rb,1.4687e+02_rb,1.1750e+02_rb,8.8123e+01_rb, &
+     &5.8749e+01_rb,2.9377e+01_rb,3.0697e+00_rb/)
+      kao(:, 4,13,15) = (/ &
+     &2.2900e+02_rb,2.0038e+02_rb,1.7175e+02_rb,1.4313e+02_rb,1.1451e+02_rb,8.5878e+01_rb, &
+     &5.7253e+01_rb,2.8627e+01_rb,3.0070e+00_rb/)
+      kao(:, 5,13,15) = (/ &
+     &2.2306e+02_rb,1.9518e+02_rb,1.6729e+02_rb,1.3941e+02_rb,1.1152e+02_rb,8.3649e+01_rb, &
+     &5.5766e+01_rb,2.7883e+01_rb,2.9481e+00_rb/)
+      kao(:, 1, 1,16) = (/ &
+     &1.9445e-02_rb,6.3230e-02_rb,1.2479e-01_rb,1.8384e-01_rb,2.3882e-01_rb,2.8643e-01_rb, &
+     &3.1893e-01_rb,3.1112e-01_rb,4.7763e-01_rb/)
+      kao(:, 2, 1,16) = (/ &
+     &1.8835e-02_rb,6.2634e-02_rb,1.2363e-01_rb,1.8213e-01_rb,2.3659e-01_rb,2.8379e-01_rb, &
+     &3.1600e-01_rb,3.0828e-01_rb,4.7319e-01_rb/)
+      kao(:, 3, 1,16) = (/ &
+     &1.8228e-02_rb,6.1941e-02_rb,1.2224e-01_rb,1.8013e-01_rb,2.3399e-01_rb,2.8070e-01_rb, &
+     &3.1257e-01_rb,3.0493e-01_rb,4.6798e-01_rb/)
+      kao(:, 4, 1,16) = (/ &
+     &1.7647e-02_rb,6.1170e-02_rb,1.2073e-01_rb,1.7790e-01_rb,2.3107e-01_rb,2.7723e-01_rb, &
+     &3.0877e-01_rb,3.0124e-01_rb,4.6215e-01_rb/)
+      kao(:, 5, 1,16) = (/ &
+     &1.7079e-02_rb,6.0350e-02_rb,1.1912e-01_rb,1.7548e-01_rb,2.2801e-01_rb,2.7357e-01_rb, &
+     &3.0466e-01_rb,2.9733e-01_rb,4.5602e-01_rb/)
+      kao(:, 1, 2,16) = (/ &
+     &3.4634e-02_rb,7.7044e-02_rb,1.5273e-01_rb,2.2632e-01_rb,2.9575e-01_rb,3.6021e-01_rb, &
+     &4.0997e-01_rb,4.1812e-01_rb,5.9296e-01_rb/)
+      kao(:, 2, 2,16) = (/ &
+     &3.3420e-02_rb,7.6207e-02_rb,1.5110e-01_rb,2.2402e-01_rb,2.9356e-01_rb,3.5685e-01_rb, &
+     &4.0638e-01_rb,4.1457e-01_rb,5.8711e-01_rb/)
+      kao(:, 3, 2,16) = (/ &
+     &3.2246e-02_rb,7.5373e-02_rb,1.4946e-01_rb,2.2157e-01_rb,2.9037e-01_rb,3.5299e-01_rb, &
+     &4.0204e-01_rb,4.1028e-01_rb,5.8073e-01_rb/)
+      kao(:, 4, 2,16) = (/ &
+     &3.1106e-02_rb,7.4437e-02_rb,1.4762e-01_rb,2.1883e-01_rb,2.8679e-01_rb,3.4868e-01_rb, &
+     &3.9718e-01_rb,4.0541e-01_rb,5.7357e-01_rb/)
+      kao(:, 5, 2,16) = (/ &
+     &3.0021e-02_rb,7.3426e-02_rb,1.4561e-01_rb,2.1587e-01_rb,2.8293e-01_rb,3.4400e-01_rb, &
+     &3.9193e-01_rb,4.0015e-01_rb,5.6584e-01_rb/)
+      kao(:, 1, 3,16) = (/ &
+     &8.3051e-02_rb,9.4793e-02_rb,1.8876e-01_rb,2.8144e-01_rb,3.7196e-01_rb,4.5816e-01_rb, &
+     &5.3450e-01_rb,5.7690e-01_rb,7.4391e-01_rb/)
+      kao(:, 2, 3,16) = (/ &
+     &7.9830e-02_rb,9.3082e-02_rb,1.8538e-01_rb,2.7644e-01_rb,3.6534e-01_rb,4.5017e-01_rb, &
+     &5.2550e-01_rb,5.6808e-01_rb,7.3067e-01_rb/)
+      kao(:, 3, 3,16) = (/ &
+     &7.6737e-02_rb,9.1705e-02_rb,1.8269e-01_rb,2.7246e-01_rb,3.6014e-01_rb,4.4395e-01_rb, &
+     &5.1857e-01_rb,5.6175e-01_rb,7.2028e-01_rb/)
+      kao(:, 4, 3,16) = (/ &
+     &7.3809e-02_rb,9.0497e-02_rb,1.8026e-01_rb,2.6888e-01_rb,3.5554e-01_rb,4.3839e-01_rb, &
+     &5.1223e-01_rb,5.5508e-01_rb,7.1107e-01_rb/)
+      kao(:, 5, 3,16) = (/ &
+     &7.1033e-02_rb,8.9276e-02_rb,1.7779e-01_rb,2.6523e-01_rb,3.5066e-01_rb,4.3243e-01_rb, &
+     &5.0536e-01_rb,5.4783e-01_rb,7.0132e-01_rb/)
+      kao(:, 1, 4,16) = (/ &
+     &2.0125e-01_rb,1.7779e-01_rb,2.3399e-01_rb,3.4997e-01_rb,4.6464e-01_rb,5.7674e-01_rb, &
+     &6.8253e-01_rb,7.6508e-01_rb,9.2928e-01_rb/)
+      kao(:, 2, 4,16) = (/ &
+     &1.9265e-01_rb,1.7048e-01_rb,2.2831e-01_rb,3.4146e-01_rb,4.5338e-01_rb,5.6281e-01_rb, &
+     &6.6618e-01_rb,7.4718e-01_rb,9.0679e-01_rb/)
+      kao(:, 3, 4,16) = (/ &
+     &1.8456e-01_rb,1.6365e-01_rb,2.2378e-01_rb,3.3476e-01_rb,4.4451e-01_rb,5.5182e-01_rb, &
+     &6.5330e-01_rb,7.3313e-01_rb,8.8901e-01_rb/)
+      kao(:, 4, 4,16) = (/ &
+     &1.7702e-01_rb,1.5723e-01_rb,2.1978e-01_rb,3.2875e-01_rb,4.3660e-01_rb,5.4199e-01_rb, &
+     &6.4188e-01_rb,7.2098e-01_rb,8.7320e-01_rb/)
+      kao(:, 5, 4,16) = (/ &
+     &1.6997e-01_rb,1.5116e-01_rb,2.1600e-01_rb,3.2314e-01_rb,4.2913e-01_rb,5.3288e-01_rb, &
+     &6.3120e-01_rb,7.0945e-01_rb,8.5826e-01_rb/)
+      kao(:, 1, 5,16) = (/ &
+     &4.4228e-01_rb,3.8795e-01_rb,3.3395e-01_rb,4.3605e-01_rb,5.8013e-01_rb,7.2255e-01_rb, &
+     &8.6084e-01_rb,9.8346e-01_rb,1.1603e+00_rb/)
+      kao(:, 2, 5,16) = (/ &
+     &4.2199e-01_rb,3.7056e-01_rb,3.1956e-01_rb,4.2215e-01_rb,5.6164e-01_rb,6.9945e-01_rb, &
+     &8.3347e-01_rb,9.5217e-01_rb,1.1233e+00_rb/)
+      kao(:, 3, 5,16) = (/ &
+     &4.0375e-01_rb,3.5492e-01_rb,3.0638e-01_rb,4.1150e-01_rb,5.4754e-01_rb,6.8200e-01_rb, &
+     &8.1260e-01_rb,9.2875e-01_rb,1.0951e+00_rb/)
+      kao(:, 4, 5,16) = (/ &
+     &3.8716e-01_rb,3.4051e-01_rb,2.9411e-01_rb,4.0247e-01_rb,5.3546e-01_rb,6.6706e-01_rb, &
+     &7.9494e-01_rb,9.0883e-01_rb,1.0709e+00_rb/)
+      kao(:, 5, 5,16) = (/ &
+     &3.7160e-01_rb,3.2689e-01_rb,2.8321e-01_rb,3.9414e-01_rb,5.2444e-01_rb,6.5338e-01_rb, &
+     &7.7865e-01_rb,8.9056e-01_rb,1.0489e+00_rb/)
+      kao(:, 1, 6,16) = (/ &
+     &9.0506e-01_rb,7.9284e-01_rb,6.8068e-01_rb,5.6916e-01_rb,7.2503e-01_rb,9.0468e-01_rb, &
+     &1.0813e+00_rb,1.2473e+00_rb,1.4500e+00_rb/)
+      kao(:, 2, 6,16) = (/ &
+     &8.6465e-01_rb,7.5773e-01_rb,6.5086e-01_rb,5.4531e-01_rb,6.9722e-01_rb,8.6983e-01_rb, &
+     &1.0397e+00_rb,1.1992e+00_rb,1.3944e+00_rb/)
+      kao(:, 3, 6,16) = (/ &
+     &8.2825e-01_rb,7.2598e-01_rb,6.2379e-01_rb,5.2549e-01_rb,6.7605e-01_rb,8.4340e-01_rb, &
+     &1.0082e+00_rb,1.1629e+00_rb,1.3521e+00_rb/)
+      kao(:, 4, 6,16) = (/ &
+     &7.9420e-01_rb,6.9632e-01_rb,5.9834e-01_rb,5.1029e-01_rb,6.5811e-01_rb,8.2106e-01_rb, &
+     &9.8160e-01_rb,1.1324e+00_rb,1.3162e+00_rb/)
+      kao(:, 5, 6,16) = (/ &
+     &7.6215e-01_rb,6.6829e-01_rb,5.7431e-01_rb,4.9359e-01_rb,6.4194e-01_rb,8.0089e-01_rb, &
+     &9.5749e-01_rb,1.1049e+00_rb,1.2839e+00_rb/)
+      kao(:, 1, 7,16) = (/ &
+     &1.9676e+00_rb,1.7224e+00_rb,1.4775e+00_rb,1.2325e+00_rb,9.8756e-01_rb,1.1304e+00_rb, &
+     &1.3539e+00_rb,1.5704e+00_rb,1.8105e+00_rb/)
+      kao(:, 2, 7,16) = (/ &
+     &1.8838e+00_rb,1.6493e+00_rb,1.4147e+00_rb,1.1804e+00_rb,9.4604e-01_rb,1.0806e+00_rb, &
+     &1.2942e+00_rb,1.5011e+00_rb,1.7307e+00_rb/)
+      kao(:, 3, 7,16) = (/ &
+     &1.8058e+00_rb,1.5808e+00_rb,1.3563e+00_rb,1.1318e+00_rb,9.0772e-01_rb,1.0432e+00_rb, &
+     &1.2494e+00_rb,1.4491e+00_rb,1.6707e+00_rb/)
+      kao(:, 4, 7,16) = (/ &
+     &1.7320e+00_rb,1.5166e+00_rb,1.3008e+00_rb,1.0854e+00_rb,8.7621e-01_rb,1.0114e+00_rb, &
+     &1.2114e+00_rb,1.4051e+00_rb,1.6197e+00_rb/)
+      kao(:, 5, 7,16) = (/ &
+     &1.6617e+00_rb,1.4551e+00_rb,1.2484e+00_rb,1.0417e+00_rb,8.4899e-01_rb,9.8293e-01_rb, &
+     &1.1773e+00_rb,1.3657e+00_rb,1.5743e+00_rb/)
+      kao(:, 1, 8,16) = (/ &
+     &5.0769e+00_rb,4.4432e+00_rb,3.8096e+00_rb,3.1755e+00_rb,2.5417e+00_rb,1.9082e+00_rb, &
+     &1.6892e+00_rb,1.9659e+00_rb,2.2550e+00_rb/)
+      kao(:, 2, 8,16) = (/ &
+     &4.8681e+00_rb,4.2603e+00_rb,3.6527e+00_rb,3.0450e+00_rb,2.4373e+00_rb,1.8300e+00_rb, &
+     &1.6072e+00_rb,1.8705e+00_rb,2.1455e+00_rb/)
+      kao(:, 3, 8,16) = (/ &
+     &4.6692e+00_rb,4.0861e+00_rb,3.5032e+00_rb,2.9205e+00_rb,2.3378e+00_rb,1.7550e+00_rb, &
+     &1.5446e+00_rb,1.7976e+00_rb,2.0621e+00_rb/)
+      kao(:, 4, 8,16) = (/ &
+     &4.4792e+00_rb,3.9199e+00_rb,3.3609e+00_rb,2.8016e+00_rb,2.2429e+00_rb,1.6836e+00_rb, &
+     &1.4923e+00_rb,1.7367e+00_rb,1.9921e+00_rb/)
+      kao(:, 5, 8,16) = (/ &
+     &4.2972e+00_rb,3.7609e+00_rb,3.2243e+00_rb,2.6879e+00_rb,2.1517e+00_rb,1.6153e+00_rb, &
+     &1.4455e+00_rb,1.6824e+00_rb,1.9297e+00_rb/)
+      kao(:, 1, 9,16) = (/ &
+     &2.4893e+01_rb,2.1786e+01_rb,1.8675e+01_rb,1.5563e+01_rb,1.2450e+01_rb,9.3398e+00_rb, &
+     &6.2286e+00_rb,3.1170e+00_rb,2.8014e+00_rb/)
+      kao(:, 2, 9,16) = (/ &
+     &2.3897e+01_rb,2.0912e+01_rb,1.7925e+01_rb,1.4937e+01_rb,1.1951e+01_rb,8.9651e+00_rb, &
+     &5.9788e+00_rb,2.9923e+00_rb,2.6581e+00_rb/)
+      kao(:, 3, 9,16) = (/ &
+     &2.2932e+01_rb,2.0066e+01_rb,1.7201e+01_rb,1.4334e+01_rb,1.1468e+01_rb,8.6027e+00_rb, &
+     &5.7371e+00_rb,2.8711e+00_rb,2.5442e+00_rb/)
+      kao(:, 4, 9,16) = (/ &
+     &2.1999e+01_rb,1.9250e+01_rb,1.6501e+01_rb,1.3753e+01_rb,1.1001e+01_rb,8.2533e+00_rb, &
+     &5.5038e+00_rb,2.7545e+00_rb,2.4493e+00_rb/)
+      kao(:, 5, 9,16) = (/ &
+     &2.1105e+01_rb,1.8469e+01_rb,1.5831e+01_rb,1.3195e+01_rb,1.0556e+01_rb,7.9178e+00_rb, &
+     &5.2806e+00_rb,2.6423e+00_rb,2.3650e+00_rb/)
+      kao(:, 1,10,16) = (/ &
+     &1.3702e+02_rb,1.1990e+02_rb,1.0277e+02_rb,8.5642e+01_rb,6.8515e+01_rb,5.1385e+01_rb, &
+     &3.4262e+01_rb,1.7133e+01_rb,3.4526e+00_rb/)
+      kao(:, 2,10,16) = (/ &
+     &1.3162e+02_rb,1.1516e+02_rb,9.8725e+01_rb,8.2273e+01_rb,6.5802e+01_rb,4.9353e+01_rb, &
+     &3.2909e+01_rb,1.6459e+01_rb,3.2683e+00_rb/)
+      kao(:, 3,10,16) = (/ &
+     &1.2631e+02_rb,1.1053e+02_rb,9.4741e+01_rb,7.8943e+01_rb,6.3147e+01_rb,4.7375e+01_rb, &
+     &3.1582e+01_rb,1.5793e+01_rb,3.1197e+00_rb/)
+      kao(:, 4,10,16) = (/ &
+     &1.2113e+02_rb,1.0599e+02_rb,9.0842e+01_rb,7.5703e+01_rb,6.0562e+01_rb,4.5424e+01_rb, &
+     &3.0282e+01_rb,1.5145e+01_rb,2.9946e+00_rb/)
+      kao(:, 5,10,16) = (/ &
+     &1.1642e+02_rb,1.0187e+02_rb,8.7320e+01_rb,7.2762e+01_rb,5.8215e+01_rb,4.3658e+01_rb, &
+     &2.9108e+01_rb,1.4557e+01_rb,2.8829e+00_rb/)
+      kao(:, 1,11,16) = (/ &
+     &2.5880e+02_rb,2.2644e+02_rb,1.9413e+02_rb,1.6174e+02_rb,1.2941e+02_rb,9.7065e+01_rb, &
+     &6.4700e+01_rb,3.2352e+01_rb,4.1212e+00_rb/)
+      kao(:, 2,11,16) = (/ &
+     &2.4838e+02_rb,2.1734e+02_rb,1.8628e+02_rb,1.5524e+02_rb,1.2419e+02_rb,9.3146e+01_rb, &
+     &6.2097e+01_rb,3.1052e+01_rb,3.9061e+00_rb/)
+      kao(:, 3,11,16) = (/ &
+     &2.3869e+02_rb,2.0886e+02_rb,1.7902e+02_rb,1.4918e+02_rb,1.1935e+02_rb,8.9511e+01_rb, &
+     &5.9677e+01_rb,2.9841e+01_rb,3.7301e+00_rb/)
+      kao(:, 4,11,16) = (/ &
+     &2.2943e+02_rb,2.0074e+02_rb,1.7207e+02_rb,1.4339e+02_rb,1.1472e+02_rb,8.6039e+01_rb, &
+     &5.7356e+01_rb,2.8682e+01_rb,3.5754e+00_rb/)
+      kao(:, 5,11,16) = (/ &
+     &2.2131e+02_rb,1.9367e+02_rb,1.6600e+02_rb,1.3834e+02_rb,1.1067e+02_rb,8.3001e+01_rb, &
+     &5.5340e+01_rb,2.7668e+01_rb,3.4351e+00_rb/)
+      kao(:, 1,12,16) = (/ &
+     &3.6519e+02_rb,3.1953e+02_rb,2.7390e+02_rb,2.2827e+02_rb,1.8260e+02_rb,1.3695e+02_rb, &
+     &9.1294e+01_rb,4.5654e+01_rb,4.8878e+00_rb/)
+      kao(:, 2,12,16) = (/ &
+     &3.5163e+02_rb,3.0767e+02_rb,2.6371e+02_rb,2.1977e+02_rb,1.7580e+02_rb,1.3186e+02_rb, &
+     &8.7903e+01_rb,4.3953e+01_rb,4.5957e+00_rb/)
+      kao(:, 3,12,16) = (/ &
+     &3.3818e+02_rb,2.9589e+02_rb,2.5364e+02_rb,2.1136e+02_rb,1.6910e+02_rb,1.2682e+02_rb, &
+     &8.4547e+01_rb,4.2272e+01_rb,4.4276e+00_rb/)
+      kao(:, 4,12,16) = (/ &
+     &3.2523e+02_rb,2.8457e+02_rb,2.4393e+02_rb,2.0329e+02_rb,1.6262e+02_rb,1.2197e+02_rb, &
+     &8.1319e+01_rb,4.0657e+01_rb,4.2352e+00_rb/)
+      kao(:, 5,12,16) = (/ &
+     &3.1377e+02_rb,2.7452e+02_rb,2.3534e+02_rb,1.9609e+02_rb,1.5688e+02_rb,1.1765e+02_rb, &
+     &7.8446e+01_rb,3.9220e+01_rb,4.0574e+00_rb/)
+      kao(:, 1,13,16) = (/ &
+     &4.1560e+02_rb,3.6364e+02_rb,3.1170e+02_rb,2.5976e+02_rb,2.0781e+02_rb,1.5585e+02_rb, &
+     &1.0390e+02_rb,5.1953e+01_rb,5.7636e+00_rb/)
+      kao(:, 2,13,16) = (/ &
+     &3.9970e+02_rb,3.4978e+02_rb,2.9980e+02_rb,2.4983e+02_rb,1.9986e+02_rb,1.4990e+02_rb, &
+     &9.9932e+01_rb,4.9970e+01_rb,5.4706e+00_rb/)
+      kao(:, 3,13,16) = (/ &
+     &3.8378e+02_rb,3.3582e+02_rb,2.8782e+02_rb,2.3987e+02_rb,1.9190e+02_rb,1.4391e+02_rb, &
+     &9.5948e+01_rb,4.7978e+01_rb,5.2080e+00_rb/)
+      kao(:, 4,13,16) = (/ &
+     &3.6900e+02_rb,3.2290e+02_rb,2.7675e+02_rb,2.3063e+02_rb,1.8451e+02_rb,1.3838e+02_rb, &
+     &9.2254e+01_rb,4.6129e+01_rb,4.9718e+00_rb/)
+      kao(:, 5,13,16) = (/ &
+     &3.5587e+02_rb,3.1138e+02_rb,2.6690e+02_rb,2.2242e+02_rb,1.7795e+02_rb,1.3345e+02_rb, &
+     &8.8970e+01_rb,4.4486e+01_rb,4.7553e+00_rb/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+      kbo(:,13, 1) = (/ &
+     &6.6242e-04_rb,6.9229e-04_rb,7.2125e-04_rb,7.5111e-04_rb,7.7882e-04_rb/)
+      kbo(:,14, 1) = (/ &
+     &5.7148e-04_rb,6.0011e-04_rb,6.2434e-04_rb,6.4765e-04_rb,6.6822e-04_rb/)
+      kbo(:,15, 1) = (/ &
+     &5.0245e-04_rb,5.2495e-04_rb,5.4519e-04_rb,5.6261e-04_rb,5.8004e-04_rb/)
+      kbo(:,16, 1) = (/ &
+     &4.4219e-04_rb,4.6335e-04_rb,4.7782e-04_rb,4.9293e-04_rb,5.0687e-04_rb/)
+      kbo(:,17, 1) = (/ &
+     &3.9452e-04_rb,4.1172e-04_rb,4.2558e-04_rb,4.3834e-04_rb,4.5031e-04_rb/)
+      kbo(:,18, 1) = (/ &
+     &3.5502e-04_rb,3.7021e-04_rb,3.8062e-04_rb,3.9326e-04_rb,4.0413e-04_rb/)
+      kbo(:,19, 1) = (/ &
+     &3.1835e-04_rb,3.3204e-04_rb,3.4438e-04_rb,3.5308e-04_rb,3.6251e-04_rb/)
+      kbo(:,20, 1) = (/ &
+     &2.7685e-04_rb,2.8739e-04_rb,2.9799e-04_rb,3.0565e-04_rb,3.1346e-04_rb/)
+      kbo(:,21, 1) = (/ &
+     &2.3803e-04_rb,2.4613e-04_rb,2.5507e-04_rb,2.6118e-04_rb,2.6805e-04_rb/)
+      kbo(:,22, 1) = (/ &
+     &2.0518e-04_rb,2.1064e-04_rb,2.1799e-04_rb,2.2345e-04_rb,2.2945e-04_rb/)
+      kbo(:,23, 1) = (/ &
+     &1.7609e-04_rb,1.8136e-04_rb,1.8691e-04_rb,1.9179e-04_rb,1.9680e-04_rb/)
+      kbo(:,24, 1) = (/ &
+     &1.5133e-04_rb,1.5582e-04_rb,1.6020e-04_rb,1.6517e-04_rb,1.6912e-04_rb/)
+      kbo(:,25, 1) = (/ &
+     &1.3023e-04_rb,1.3355e-04_rb,1.3826e-04_rb,1.4195e-04_rb,1.4464e-04_rb/)
+      kbo(:,26, 1) = (/ &
+     &1.1153e-04_rb,1.1437e-04_rb,1.1820e-04_rb,1.2126e-04_rb,1.2331e-04_rb/)
+      kbo(:,27, 1) = (/ &
+     &9.5262e-05_rb,9.8055e-05_rb,1.0080e-04_rb,1.0342e-04_rb,1.0508e-04_rb/)
+      kbo(:,28, 1) = (/ &
+     &8.1680e-05_rb,8.3691e-05_rb,8.6133e-05_rb,8.8128e-05_rb,8.9712e-05_rb/)
+      kbo(:,29, 1) = (/ &
+     &7.0309e-05_rb,7.1883e-05_rb,7.3686e-05_rb,7.5287e-05_rb,7.6689e-05_rb/)
+      kbo(:,30, 1) = (/ &
+     &6.0539e-05_rb,6.1910e-05_rb,6.3188e-05_rb,6.4488e-05_rb,6.6886e-05_rb/)
+      kbo(:,31, 1) = (/ &
+     &5.2744e-05_rb,5.3514e-05_rb,5.4453e-05_rb,5.5692e-05_rb,5.7687e-05_rb/)
+      kbo(:,32, 1) = (/ &
+     &4.5908e-05_rb,4.6319e-05_rb,4.7373e-05_rb,4.8133e-05_rb,4.9705e-05_rb/)
+      kbo(:,33, 1) = (/ &
+     &3.9867e-05_rb,4.0547e-05_rb,4.1159e-05_rb,4.1892e-05_rb,4.3045e-05_rb/)
+      kbo(:,34, 1) = (/ &
+     &3.4676e-05_rb,3.5573e-05_rb,3.6016e-05_rb,3.7022e-05_rb,3.7402e-05_rb/)
+      kbo(:,35, 1) = (/ &
+     &3.0380e-05_rb,3.1177e-05_rb,3.1680e-05_rb,3.2397e-05_rb,3.2578e-05_rb/)
+      kbo(:,36, 1) = (/ &
+     &2.6710e-05_rb,2.7409e-05_rb,2.7919e-05_rb,2.8397e-05_rb,2.8592e-05_rb/)
+      kbo(:,37, 1) = (/ &
+     &2.2468e-05_rb,2.3018e-05_rb,2.3378e-05_rb,2.3912e-05_rb,2.4011e-05_rb/)
+      kbo(:,38, 1) = (/ &
+     &1.8961e-05_rb,1.9311e-05_rb,1.9590e-05_rb,2.0060e-05_rb,2.0183e-05_rb/)
+      kbo(:,39, 1) = (/ &
+     &1.6038e-05_rb,1.6240e-05_rb,1.6497e-05_rb,1.6653e-05_rb,1.7067e-05_rb/)
+      kbo(:,40, 1) = (/ &
+     &1.3126e-05_rb,1.3247e-05_rb,1.3457e-05_rb,1.3586e-05_rb,1.3950e-05_rb/)
+      kbo(:,41, 1) = (/ &
+     &1.0642e-05_rb,1.0779e-05_rb,1.0904e-05_rb,1.1060e-05_rb,1.1348e-05_rb/)
+      kbo(:,42, 1) = (/ &
+     &8.5931e-06_rb,8.7256e-06_rb,8.8249e-06_rb,8.9763e-06_rb,9.1997e-06_rb/)
+      kbo(:,43, 1) = (/ &
+     &6.8315e-06_rb,7.0003e-06_rb,7.0825e-06_rb,7.1921e-06_rb,7.3080e-06_rb/)
+      kbo(:,44, 1) = (/ &
+     &5.4113e-06_rb,5.5622e-06_rb,5.6277e-06_rb,5.7357e-06_rb,5.8407e-06_rb/)
+      kbo(:,45, 1) = (/ &
+     &4.2868e-06_rb,4.4145e-06_rb,4.4700e-06_rb,4.5509e-06_rb,4.6597e-06_rb/)
+      kbo(:,46, 1) = (/ &
+     &3.3813e-06_rb,3.5001e-06_rb,3.5350e-06_rb,3.6083e-06_rb,3.6919e-06_rb/)
+      kbo(:,47, 1) = (/ &
+     &2.6664e-06_rb,2.7723e-06_rb,2.7972e-06_rb,2.8533e-06_rb,2.9267e-06_rb/)
+      kbo(:,48, 1) = (/ &
+     &2.0946e-06_rb,2.1711e-06_rb,2.2048e-06_rb,2.2465e-06_rb,2.3102e-06_rb/)
+      kbo(:,49, 1) = (/ &
+     &1.6333e-06_rb,1.6996e-06_rb,1.7388e-06_rb,1.7611e-06_rb,1.8115e-06_rb/)
+      kbo(:,50, 1) = (/ &
+     &1.2781e-06_rb,1.3328e-06_rb,1.3698e-06_rb,1.3938e-06_rb,1.4265e-06_rb/)
+      kbo(:,51, 1) = (/ &
+     &1.0076e-06_rb,1.0460e-06_rb,1.0807e-06_rb,1.1011e-06_rb,1.1257e-06_rb/)
+      kbo(:,52, 1) = (/ &
+     &7.9394e-07_rb,8.1840e-07_rb,8.4881e-07_rb,8.6654e-07_rb,8.8734e-07_rb/)
+      kbo(:,53, 1) = (/ &
+     &6.1785e-07_rb,6.3992e-07_rb,6.6144e-07_rb,6.7843e-07_rb,6.9618e-07_rb/)
+      kbo(:,54, 1) = (/ &
+     &4.8490e-07_rb,5.0506e-07_rb,5.1952e-07_rb,5.3413e-07_rb,5.4905e-07_rb/)
+      kbo(:,55, 1) = (/ &
+     &3.8198e-07_rb,3.9926e-07_rb,4.1207e-07_rb,4.2268e-07_rb,4.3489e-07_rb/)
+      kbo(:,56, 1) = (/ &
+     &3.0062e-07_rb,3.1357e-07_rb,3.2461e-07_rb,3.3313e-07_rb,3.4390e-07_rb/)
+      kbo(:,57, 1) = (/ &
+     &2.3579e-07_rb,2.4608e-07_rb,2.5500e-07_rb,2.6288e-07_rb,2.7145e-07_rb/)
+      kbo(:,58, 1) = (/ &
+     &1.8530e-07_rb,1.9293e-07_rb,2.0021e-07_rb,2.0804e-07_rb,2.1510e-07_rb/)
+      kbo(:,59, 1) = (/ &
+     &1.4951e-07_rb,1.5512e-07_rb,1.6259e-07_rb,1.6844e-07_rb,1.7451e-07_rb/)
+      kbo(:,13, 2) = (/ &
+     &2.8194e-03_rb,3.0121e-03_rb,3.1846e-03_rb,3.3490e-03_rb,3.5100e-03_rb/)
+      kbo(:,14, 2) = (/ &
+     &2.4827e-03_rb,2.6492e-03_rb,2.7938e-03_rb,2.9346e-03_rb,3.0538e-03_rb/)
+      kbo(:,15, 2) = (/ &
+     &2.2064e-03_rb,2.3375e-03_rb,2.4556e-03_rb,2.5697e-03_rb,2.6626e-03_rb/)
+      kbo(:,16, 2) = (/ &
+     &1.9378e-03_rb,2.0444e-03_rb,2.1458e-03_rb,2.2321e-03_rb,2.3069e-03_rb/)
+      kbo(:,17, 2) = (/ &
+     &1.7072e-03_rb,1.7953e-03_rb,1.8810e-03_rb,1.9513e-03_rb,2.0122e-03_rb/)
+      kbo(:,18, 2) = (/ &
+     &1.5182e-03_rb,1.5881e-03_rb,1.6604e-03_rb,1.7175e-03_rb,1.7691e-03_rb/)
+      kbo(:,19, 2) = (/ &
+     &1.3604e-03_rb,1.4237e-03_rb,1.4711e-03_rb,1.5216e-03_rb,1.5631e-03_rb/)
+      kbo(:,20, 2) = (/ &
+     &1.1858e-03_rb,1.2290e-03_rb,1.2712e-03_rb,1.3090e-03_rb,1.3421e-03_rb/)
+      kbo(:,21, 2) = (/ &
+     &1.0189e-03_rb,1.0547e-03_rb,1.0885e-03_rb,1.1186e-03_rb,1.1432e-03_rb/)
+      kbo(:,22, 2) = (/ &
+     &8.7055e-04_rb,9.0481e-04_rb,9.2821e-04_rb,9.5252e-04_rb,9.7075e-04_rb/)
+      kbo(:,23, 2) = (/ &
+     &7.4675e-04_rb,7.7099e-04_rb,7.9133e-04_rb,8.0933e-04_rb,8.2551e-04_rb/)
+      kbo(:,24, 2) = (/ &
+     &6.4034e-04_rb,6.5905e-04_rb,6.7517e-04_rb,6.8951e-04_rb,7.0349e-04_rb/)
+      kbo(:,25, 2) = (/ &
+     &5.4635e-04_rb,5.6117e-04_rb,5.7460e-04_rb,5.8668e-04_rb,5.9880e-04_rb/)
+      kbo(:,26, 2) = (/ &
+     &4.6328e-04_rb,4.7565e-04_rb,4.8724e-04_rb,4.9802e-04_rb,5.0785e-04_rb/)
+      kbo(:,27, 2) = (/ &
+     &3.9145e-04_rb,4.0138e-04_rb,4.1206e-04_rb,4.2067e-04_rb,4.2970e-04_rb/)
+      kbo(:,28, 2) = (/ &
+     &3.2965e-04_rb,3.3905e-04_rb,3.4755e-04_rb,3.5536e-04_rb,3.6345e-04_rb/)
+      kbo(:,29, 2) = (/ &
+     &2.7722e-04_rb,2.8535e-04_rb,2.9237e-04_rb,2.9947e-04_rb,3.0668e-04_rb/)
+      kbo(:,30, 2) = (/ &
+     &2.3378e-04_rb,2.4040e-04_rb,2.4667e-04_rb,2.5278e-04_rb,2.6270e-04_rb/)
+      kbo(:,31, 2) = (/ &
+     &1.9661e-04_rb,2.0207e-04_rb,2.0803e-04_rb,2.1348e-04_rb,2.2186e-04_rb/)
+      kbo(:,32, 2) = (/ &
+     &1.6562e-04_rb,1.7146e-04_rb,1.7695e-04_rb,1.8193e-04_rb,1.8929e-04_rb/)
+      kbo(:,33, 2) = (/ &
+     &1.4107e-04_rb,1.4666e-04_rb,1.5183e-04_rb,1.5594e-04_rb,1.6243e-04_rb/)
+      kbo(:,34, 2) = (/ &
+     &1.2158e-04_rb,1.2598e-04_rb,1.3011e-04_rb,1.3588e-04_rb,1.4023e-04_rb/)
+      kbo(:,35, 2) = (/ &
+     &1.0453e-04_rb,1.0824e-04_rb,1.1246e-04_rb,1.1806e-04_rb,1.2280e-04_rb/)
+      kbo(:,36, 2) = (/ &
+     &9.0281e-05_rb,9.3775e-05_rb,9.7901e-05_rb,1.0364e-04_rb,1.0744e-04_rb/)
+      kbo(:,37, 2) = (/ &
+     &7.5786e-05_rb,7.8742e-05_rb,8.2503e-05_rb,8.7040e-05_rb,8.9489e-05_rb/)
+      kbo(:,38, 2) = (/ &
+     &6.3149e-05_rb,6.6113e-05_rb,6.8833e-05_rb,7.2371e-05_rb,7.4496e-05_rb/)
+      kbo(:,39, 2) = (/ &
+     &5.2982e-05_rb,5.5381e-05_rb,5.7239e-05_rb,5.9241e-05_rb,6.1954e-05_rb/)
+      kbo(:,40, 2) = (/ &
+     &4.3111e-05_rb,4.5156e-05_rb,4.6617e-05_rb,4.8324e-05_rb,5.0544e-05_rb/)
+      kbo(:,41, 2) = (/ &
+     &3.4957e-05_rb,3.6661e-05_rb,3.7913e-05_rb,3.9243e-05_rb,4.1170e-05_rb/)
+      kbo(:,42, 2) = (/ &
+     &2.8335e-05_rb,2.9735e-05_rb,3.0788e-05_rb,3.1864e-05_rb,3.3563e-05_rb/)
+      kbo(:,43, 2) = (/ &
+     &2.2801e-05_rb,2.3962e-05_rb,2.4808e-05_rb,2.5685e-05_rb,2.6685e-05_rb/)
+      kbo(:,44, 2) = (/ &
+     &1.8216e-05_rb,1.9207e-05_rb,1.9940e-05_rb,2.0623e-05_rb,2.1468e-05_rb/)
+      kbo(:,45, 2) = (/ &
+     &1.4497e-05_rb,1.5369e-05_rb,1.6010e-05_rb,1.6560e-05_rb,1.7214e-05_rb/)
+      kbo(:,46, 2) = (/ &
+     &1.1546e-05_rb,1.2283e-05_rb,1.2829e-05_rb,1.3281e-05_rb,1.3789e-05_rb/)
+      kbo(:,47, 2) = (/ &
+     &9.1407e-06_rb,9.7102e-06_rb,1.0256e-05_rb,1.0642e-05_rb,1.1044e-05_rb/)
+      kbo(:,48, 2) = (/ &
+     &7.2582e-06_rb,7.7178e-06_rb,8.1771e-06_rb,8.5159e-06_rb,8.8287e-06_rb/)
+      kbo(:,49, 2) = (/ &
+     &5.7413e-06_rb,6.0895e-06_rb,6.4724e-06_rb,6.7948e-06_rb,7.0423e-06_rb/)
+      kbo(:,50, 2) = (/ &
+     &4.5645e-06_rb,4.8219e-06_rb,5.1398e-06_rb,5.4019e-06_rb,5.6251e-06_rb/)
+      kbo(:,51, 2) = (/ &
+     &3.6347e-06_rb,3.8345e-06_rb,4.0925e-06_rb,4.2999e-06_rb,4.4976e-06_rb/)
+      kbo(:,52, 2) = (/ &
+     &2.8914e-06_rb,3.0394e-06_rb,3.2506e-06_rb,3.4210e-06_rb,3.5835e-06_rb/)
+      kbo(:,53, 2) = (/ &
+     &2.2827e-06_rb,2.4183e-06_rb,2.5753e-06_rb,2.7165e-06_rb,2.8435e-06_rb/)
+      kbo(:,54, 2) = (/ &
+     &1.8109e-06_rb,1.9319e-06_rb,2.0517e-06_rb,2.1771e-06_rb,2.2825e-06_rb/)
+      kbo(:,55, 2) = (/ &
+     &1.4459e-06_rb,1.5442e-06_rb,1.6423e-06_rb,1.7466e-06_rb,1.8412e-06_rb/)
+      kbo(:,56, 2) = (/ &
+     &1.1487e-06_rb,1.2318e-06_rb,1.3168e-06_rb,1.4029e-06_rb,1.4853e-06_rb/)
+      kbo(:,57, 2) = (/ &
+     &9.1432e-07_rb,9.8206e-07_rb,1.0551e-06_rb,1.1262e-06_rb,1.1922e-06_rb/)
+      kbo(:,58, 2) = (/ &
+     &7.2392e-07_rb,7.8435e-07_rb,8.4467e-07_rb,9.0516e-07_rb,9.5596e-07_rb/)
+      kbo(:,59, 2) = (/ &
+     &5.9300e-07_rb,6.4245e-07_rb,6.9378e-07_rb,7.4259e-07_rb,7.8676e-07_rb/)
+      kbo(:,13, 3) = (/ &
+     &8.5247e-03_rb,8.9273e-03_rb,9.3494e-03_rb,9.7833e-03_rb,1.0198e-02_rb/)
+      kbo(:,14, 3) = (/ &
+     &7.6220e-03_rb,7.9465e-03_rb,8.3037e-03_rb,8.6680e-03_rb,9.0184e-03_rb/)
+      kbo(:,15, 3) = (/ &
+     &6.7313e-03_rb,7.0250e-03_rb,7.3390e-03_rb,7.6496e-03_rb,7.9523e-03_rb/)
+      kbo(:,16, 3) = (/ &
+     &5.8626e-03_rb,6.1324e-03_rb,6.4081e-03_rb,6.6680e-03_rb,6.9239e-03_rb/)
+      kbo(:,17, 3) = (/ &
+     &5.1190e-03_rb,5.3847e-03_rb,5.6114e-03_rb,5.8394e-03_rb,6.0319e-03_rb/)
+      kbo(:,18, 3) = (/ &
+     &4.4937e-03_rb,4.7329e-03_rb,4.9304e-03_rb,5.1178e-03_rb,5.2582e-03_rb/)
+      kbo(:,19, 3) = (/ &
+     &3.9714e-03_rb,4.1523e-03_rb,4.3393e-03_rb,4.4847e-03_rb,4.6081e-03_rb/)
+      kbo(:,20, 3) = (/ &
+     &3.4227e-03_rb,3.5888e-03_rb,3.7323e-03_rb,3.8457e-03_rb,3.9571e-03_rb/)
+      kbo(:,21, 3) = (/ &
+     &2.9355e-03_rb,3.0688e-03_rb,3.1813e-03_rb,3.2800e-03_rb,3.3665e-03_rb/)
+      kbo(:,22, 3) = (/ &
+     &2.5131e-03_rb,2.6136e-03_rb,2.7075e-03_rb,2.7888e-03_rb,2.8576e-03_rb/)
+      kbo(:,23, 3) = (/ &
+     &2.1439e-03_rb,2.2229e-03_rb,2.3069e-03_rb,2.3691e-03_rb,2.4314e-03_rb/)
+      kbo(:,24, 3) = (/ &
+     &1.8279e-03_rb,1.8995e-03_rb,1.9649e-03_rb,2.0190e-03_rb,2.0668e-03_rb/)
+      kbo(:,25, 3) = (/ &
+     &1.5582e-03_rb,1.6177e-03_rb,1.6674e-03_rb,1.7146e-03_rb,1.7550e-03_rb/)
+      kbo(:,26, 3) = (/ &
+     &1.3272e-03_rb,1.3717e-03_rb,1.4140e-03_rb,1.4536e-03_rb,1.4858e-03_rb/)
+      kbo(:,27, 3) = (/ &
+     &1.1230e-03_rb,1.1594e-03_rb,1.1953e-03_rb,1.2264e-03_rb,1.2540e-03_rb/)
+      kbo(:,28, 3) = (/ &
+     &9.4753e-04_rb,9.7763e-04_rb,1.0074e-03_rb,1.0308e-03_rb,1.0536e-03_rb/)
+      kbo(:,29, 3) = (/ &
+     &7.9502e-04_rb,8.1974e-04_rb,8.4372e-04_rb,8.6478e-04_rb,8.8308e-04_rb/)
+      kbo(:,30, 3) = (/ &
+     &6.6596e-04_rb,6.8697e-04_rb,7.0803e-04_rb,7.2439e-04_rb,7.5784e-04_rb/)
+      kbo(:,31, 3) = (/ &
+     &5.5745e-04_rb,5.7516e-04_rb,5.9220e-04_rb,6.0512e-04_rb,6.3289e-04_rb/)
+      kbo(:,32, 3) = (/ &
+     &4.6662e-04_rb,4.8150e-04_rb,4.9505e-04_rb,5.0361e-04_rb,5.2756e-04_rb/)
+      kbo(:,33, 3) = (/ &
+     &3.9094e-04_rb,4.0255e-04_rb,4.1211e-04_rb,4.1938e-04_rb,4.4050e-04_rb/)
+      kbo(:,34, 3) = (/ &
+     &3.2769e-04_rb,3.3699e-04_rb,3.4471e-04_rb,3.6275e-04_rb,3.6949e-04_rb/)
+      kbo(:,35, 3) = (/ &
+     &2.7475e-04_rb,2.8204e-04_rb,2.8828e-04_rb,3.0332e-04_rb,3.0836e-04_rb/)
+      kbo(:,36, 3) = (/ &
+     &2.2983e-04_rb,2.3568e-04_rb,2.4113e-04_rb,2.5319e-04_rb,2.5736e-04_rb/)
+      kbo(:,37, 3) = (/ &
+     &1.8895e-04_rb,1.9397e-04_rb,1.9807e-04_rb,2.0882e-04_rb,2.1275e-04_rb/)
+      kbo(:,38, 3) = (/ &
+     &1.5549e-04_rb,1.5951e-04_rb,1.6323e-04_rb,1.7252e-04_rb,1.7561e-04_rb/)
+      kbo(:,39, 3) = (/ &
+     &1.2765e-04_rb,1.3102e-04_rb,1.3443e-04_rb,1.3776e-04_rb,1.4478e-04_rb/)
+      kbo(:,40, 3) = (/ &
+     &1.0414e-04_rb,1.0697e-04_rb,1.0972e-04_rb,1.1251e-04_rb,1.1839e-04_rb/)
+      kbo(:,41, 3) = (/ &
+     &8.4861e-05_rb,8.7037e-05_rb,8.9345e-05_rb,9.1552e-05_rb,9.6450e-05_rb/)
+      kbo(:,42, 3) = (/ &
+     &6.9029e-05_rb,7.0620e-05_rb,7.2608e-05_rb,7.4362e-05_rb,7.8451e-05_rb/)
+      kbo(:,43, 3) = (/ &
+     &5.5731e-05_rb,5.6934e-05_rb,5.8627e-05_rb,6.0036e-05_rb,6.1419e-05_rb/)
+      kbo(:,44, 3) = (/ &
+     &4.4750e-05_rb,4.5795e-05_rb,4.7066e-05_rb,4.8320e-05_rb,4.9340e-05_rb/)
+      kbo(:,45, 3) = (/ &
+     &3.5902e-05_rb,3.6793e-05_rb,3.7710e-05_rb,3.8772e-05_rb,3.9634e-05_rb/)
+      kbo(:,46, 3) = (/ &
+     &2.8669e-05_rb,2.9406e-05_rb,3.0158e-05_rb,3.1055e-05_rb,3.1783e-05_rb/)
+      kbo(:,47, 3) = (/ &
+     &2.2957e-05_rb,2.3586e-05_rb,2.4179e-05_rb,2.4875e-05_rb,2.5463e-05_rb/)
+      kbo(:,48, 3) = (/ &
+     &1.8322e-05_rb,1.8764e-05_rb,1.9281e-05_rb,1.9846e-05_rb,2.0330e-05_rb/)
+      kbo(:,49, 3) = (/ &
+     &1.4581e-05_rb,1.4948e-05_rb,1.5326e-05_rb,1.5796e-05_rb,1.6188e-05_rb/)
+      kbo(:,50, 3) = (/ &
+     &1.1658e-05_rb,1.1996e-05_rb,1.2253e-05_rb,1.2626e-05_rb,1.2988e-05_rb/)
+      kbo(:,51, 3) = (/ &
+     &9.3098e-06_rb,9.6196e-06_rb,9.8320e-06_rb,1.0134e-05_rb,1.0431e-05_rb/)
+      kbo(:,52, 3) = (/ &
+     &7.3883e-06_rb,7.7108e-06_rb,7.8752e-06_rb,8.1035e-06_rb,8.3459e-06_rb/)
+      kbo(:,53, 3) = (/ &
+     &5.8592e-06_rb,6.1249e-06_rb,6.2920e-06_rb,6.4688e-06_rb,6.6480e-06_rb/)
+      kbo(:,54, 3) = (/ &
+     &4.7059e-06_rb,4.9088e-06_rb,5.0922e-06_rb,5.2219e-06_rb,5.3713e-06_rb/)
+      kbo(:,55, 3) = (/ &
+     &3.7899e-06_rb,3.9660e-06_rb,4.1365e-06_rb,4.2472e-06_rb,4.3644e-06_rb/)
+      kbo(:,56, 3) = (/ &
+     &3.0554e-06_rb,3.2100e-06_rb,3.3483e-06_rb,3.4494e-06_rb,3.5457e-06_rb/)
+      kbo(:,57, 3) = (/ &
+     &2.4489e-06_rb,2.5923e-06_rb,2.7014e-06_rb,2.7985e-06_rb,2.8823e-06_rb/)
+      kbo(:,58, 3) = (/ &
+     &1.9694e-06_rb,2.0948e-06_rb,2.1872e-06_rb,2.2740e-06_rb,2.3512e-06_rb/)
+      kbo(:,59, 3) = (/ &
+     &1.6303e-06_rb,1.7449e-06_rb,1.8268e-06_rb,1.9070e-06_rb,1.9708e-06_rb/)
+      kbo(:,13, 4) = (/ &
+     &1.8047e-02_rb,1.8718e-02_rb,1.9333e-02_rb,1.9945e-02_rb,2.0619e-02_rb/)
+      kbo(:,14, 4) = (/ &
+     &1.6432e-02_rb,1.7100e-02_rb,1.7741e-02_rb,1.8401e-02_rb,1.9089e-02_rb/)
+      kbo(:,15, 4) = (/ &
+     &1.4807e-02_rb,1.5451e-02_rb,1.6100e-02_rb,1.6750e-02_rb,1.7413e-02_rb/)
+      kbo(:,16, 4) = (/ &
+     &1.3139e-02_rb,1.3704e-02_rb,1.4262e-02_rb,1.4904e-02_rb,1.5552e-02_rb/)
+      kbo(:,17, 4) = (/ &
+     &1.1663e-02_rb,1.2130e-02_rb,1.2669e-02_rb,1.3218e-02_rb,1.3830e-02_rb/)
+      kbo(:,18, 4) = (/ &
+     &1.0329e-02_rb,1.0751e-02_rb,1.1271e-02_rb,1.1798e-02_rb,1.2374e-02_rb/)
+      kbo(:,19, 4) = (/ &
+     &9.2112e-03_rb,9.6353e-03_rb,1.0130e-02_rb,1.0649e-02_rb,1.1157e-02_rb/)
+      kbo(:,20, 4) = (/ &
+     &8.0574e-03_rb,8.4807e-03_rb,8.9054e-03_rb,9.3587e-03_rb,9.7992e-03_rb/)
+      kbo(:,21, 4) = (/ &
+     &7.0019e-03_rb,7.3853e-03_rb,7.7827e-03_rb,8.1758e-03_rb,8.5421e-03_rb/)
+      kbo(:,22, 4) = (/ &
+     &6.0893e-03_rb,6.4266e-03_rb,6.7752e-03_rb,7.1040e-03_rb,7.4095e-03_rb/)
+      kbo(:,23, 4) = (/ &
+     &5.2966e-03_rb,5.5992e-03_rb,5.8988e-03_rb,6.1748e-03_rb,6.4166e-03_rb/)
+      kbo(:,24, 4) = (/ &
+     &4.6174e-03_rb,4.8835e-03_rb,5.1353e-03_rb,5.3661e-03_rb,5.5632e-03_rb/)
+      kbo(:,25, 4) = (/ &
+     &4.0173e-03_rb,4.2433e-03_rb,4.4670e-03_rb,4.6521e-03_rb,4.8258e-03_rb/)
+      kbo(:,26, 4) = (/ &
+     &3.4865e-03_rb,3.6826e-03_rb,3.8670e-03_rb,4.0200e-03_rb,4.1614e-03_rb/)
+      kbo(:,27, 4) = (/ &
+     &3.0102e-03_rb,3.1785e-03_rb,3.3303e-03_rb,3.4548e-03_rb,3.5736e-03_rb/)
+      kbo(:,28, 4) = (/ &
+     &2.5902e-03_rb,2.7336e-03_rb,2.8553e-03_rb,2.9588e-03_rb,3.0603e-03_rb/)
+      kbo(:,29, 4) = (/ &
+     &2.2148e-03_rb,2.3314e-03_rb,2.4216e-03_rb,2.5098e-03_rb,2.5968e-03_rb/)
+      kbo(:,30, 4) = (/ &
+     &1.8884e-03_rb,1.9733e-03_rb,2.0479e-03_rb,2.1223e-03_rb,2.2826e-03_rb/)
+      kbo(:,31, 4) = (/ &
+     &1.5995e-03_rb,1.6617e-03_rb,1.7230e-03_rb,1.7883e-03_rb,1.9307e-03_rb/)
+      kbo(:,32, 4) = (/ &
+     &1.3496e-03_rb,1.3999e-03_rb,1.4538e-03_rb,1.5096e-03_rb,1.6319e-03_rb/)
+      kbo(:,33, 4) = (/ &
+     &1.1363e-03_rb,1.1813e-03_rb,1.2287e-03_rb,1.2753e-03_rb,1.3874e-03_rb/)
+      kbo(:,34, 4) = (/ &
+     &9.6663e-04_rb,1.0050e-03_rb,1.0440e-03_rb,1.1401e-03_rb,1.1914e-03_rb/)
+      kbo(:,35, 4) = (/ &
+     &8.2252e-04_rb,8.5291e-04_rb,8.9255e-04_rb,9.7906e-04_rb,1.0213e-03_rb/)
+      kbo(:,36, 4) = (/ &
+     &6.9843e-04_rb,7.2671e-04_rb,7.6052e-04_rb,8.3992e-04_rb,8.7893e-04_rb/)
+      kbo(:,37, 4) = (/ &
+     &5.7973e-04_rb,6.0624e-04_rb,6.3703e-04_rb,7.0532e-04_rb,7.4046e-04_rb/)
+      kbo(:,38, 4) = (/ &
+     &4.8124e-04_rb,5.0463e-04_rb,5.3059e-04_rb,5.8984e-04_rb,6.2161e-04_rb/)
+      kbo(:,39, 4) = (/ &
+     &3.9797e-04_rb,4.2007e-04_rb,4.4141e-04_rb,4.6508e-04_rb,5.2126e-04_rb/)
+      kbo(:,40, 4) = (/ &
+     &3.2587e-04_rb,3.4475e-04_rb,3.6264e-04_rb,3.8270e-04_rb,4.3106e-04_rb/)
+      kbo(:,41, 4) = (/ &
+     &2.6592e-04_rb,2.8134e-04_rb,2.9669e-04_rb,3.1406e-04_rb,3.5481e-04_rb/)
+      kbo(:,42, 4) = (/ &
+     &2.1654e-04_rb,2.2933e-04_rb,2.4233e-04_rb,2.5702e-04_rb,2.9186e-04_rb/)
+      kbo(:,43, 4) = (/ &
+     &1.7468e-04_rb,1.8487e-04_rb,1.9562e-04_rb,2.0857e-04_rb,2.2203e-04_rb/)
+      kbo(:,44, 4) = (/ &
+     &1.3990e-04_rb,1.4813e-04_rb,1.5725e-04_rb,1.6786e-04_rb,1.7935e-04_rb/)
+      kbo(:,45, 4) = (/ &
+     &1.1147e-04_rb,1.1816e-04_rb,1.2590e-04_rb,1.3456e-04_rb,1.4433e-04_rb/)
+      kbo(:,46, 4) = (/ &
+     &8.8593e-05_rb,9.4029e-05_rb,1.0037e-04_rb,1.0744e-04_rb,1.1598e-04_rb/)
+      kbo(:,47, 4) = (/ &
+     &7.0072e-05_rb,7.4712e-05_rb,7.9919e-05_rb,8.5900e-05_rb,9.3033e-05_rb/)
+      kbo(:,48, 4) = (/ &
+     &5.5180e-05_rb,5.9132e-05_rb,6.3502e-05_rb,6.8198e-05_rb,7.4266e-05_rb/)
+      kbo(:,49, 4) = (/ &
+     &4.3109e-05_rb,4.6388e-05_rb,5.0075e-05_rb,5.3912e-05_rb,5.8896e-05_rb/)
+      kbo(:,50, 4) = (/ &
+     &3.4049e-05_rb,3.6756e-05_rb,3.9830e-05_rb,4.3128e-05_rb,4.7184e-05_rb/)
+      kbo(:,51, 4) = (/ &
+     &2.7005e-05_rb,2.9148e-05_rb,3.1674e-05_rb,3.4539e-05_rb,3.7748e-05_rb/)
+      kbo(:,52, 4) = (/ &
+     &2.1299e-05_rb,2.3058e-05_rb,2.5114e-05_rb,2.7488e-05_rb,3.0113e-05_rb/)
+      kbo(:,53, 4) = (/ &
+     &1.6705e-05_rb,1.8140e-05_rb,1.9875e-05_rb,2.1784e-05_rb,2.3982e-05_rb/)
+      kbo(:,54, 4) = (/ &
+     &1.3350e-05_rb,1.4560e-05_rb,1.5930e-05_rb,1.7502e-05_rb,1.9341e-05_rb/)
+      kbo(:,55, 4) = (/ &
+     &1.0773e-05_rb,1.1749e-05_rb,1.2886e-05_rb,1.4153e-05_rb,1.5702e-05_rb/)
+      kbo(:,56, 4) = (/ &
+     &8.6460e-06_rb,9.4510e-06_rb,1.0398e-05_rb,1.1452e-05_rb,1.2706e-05_rb/)
+      kbo(:,57, 4) = (/ &
+     &6.9096e-06_rb,7.6015e-06_rb,8.3864e-06_rb,9.2473e-06_rb,1.0265e-05_rb/)
+      kbo(:,58, 4) = (/ &
+     &5.5254e-06_rb,6.1387e-06_rb,6.7789e-06_rb,7.4818e-06_rb,8.3075e-06_rb/)
+      kbo(:,59, 4) = (/ &
+     &4.6551e-06_rb,5.1865e-06_rb,5.7401e-06_rb,6.3194e-06_rb,7.0521e-06_rb/)
+      kbo(:,13, 5) = (/ &
+     &3.4718e-02_rb,3.5594e-02_rb,3.6803e-02_rb,3.8083e-02_rb,3.9520e-02_rb/)
+      kbo(:,14, 5) = (/ &
+     &3.2238e-02_rb,3.3220e-02_rb,3.4363e-02_rb,3.5532e-02_rb,3.6904e-02_rb/)
+      kbo(:,15, 5) = (/ &
+     &3.0600e-02_rb,3.1610e-02_rb,3.2771e-02_rb,3.3966e-02_rb,3.5285e-02_rb/)
+      kbo(:,16, 5) = (/ &
+     &2.8159e-02_rb,2.9168e-02_rb,3.0264e-02_rb,3.1396e-02_rb,3.2647e-02_rb/)
+      kbo(:,17, 5) = (/ &
+     &2.5788e-02_rb,2.6724e-02_rb,2.7768e-02_rb,2.8866e-02_rb,3.0013e-02_rb/)
+      kbo(:,18, 5) = (/ &
+     &2.3487e-02_rb,2.4520e-02_rb,2.5499e-02_rb,2.6557e-02_rb,2.7740e-02_rb/)
+      kbo(:,19, 5) = (/ &
+     &2.1508e-02_rb,2.2551e-02_rb,2.3562e-02_rb,2.4611e-02_rb,2.5770e-02_rb/)
+      kbo(:,20, 5) = (/ &
+     &1.9153e-02_rb,2.0099e-02_rb,2.1123e-02_rb,2.2234e-02_rb,2.3370e-02_rb/)
+      kbo(:,21, 5) = (/ &
+     &1.6910e-02_rb,1.7820e-02_rb,1.8821e-02_rb,1.9939e-02_rb,2.1019e-02_rb/)
+      kbo(:,22, 5) = (/ &
+     &1.4892e-02_rb,1.5824e-02_rb,1.6836e-02_rb,1.7897e-02_rb,1.8973e-02_rb/)
+      kbo(:,23, 5) = (/ &
+     &1.3201e-02_rb,1.4110e-02_rb,1.5066e-02_rb,1.6122e-02_rb,1.7163e-02_rb/)
+      kbo(:,24, 5) = (/ &
+     &1.1786e-02_rb,1.2643e-02_rb,1.3592e-02_rb,1.4574e-02_rb,1.5604e-02_rb/)
+      kbo(:,25, 5) = (/ &
+     &1.0551e-02_rb,1.1376e-02_rb,1.2278e-02_rb,1.3228e-02_rb,1.4135e-02_rb/)
+      kbo(:,26, 5) = (/ &
+     &9.4341e-03_rb,1.0259e-02_rb,1.1075e-02_rb,1.1949e-02_rb,1.2760e-02_rb/)
+      kbo(:,27, 5) = (/ &
+     &8.4286e-03_rb,9.1773e-03_rb,9.9233e-03_rb,1.0676e-02_rb,1.1418e-02_rb/)
+      kbo(:,28, 5) = (/ &
+     &7.5098e-03_rb,8.1852e-03_rb,8.8662e-03_rb,9.5190e-03_rb,1.0161e-02_rb/)
+      kbo(:,29, 5) = (/ &
+     &6.6339e-03_rb,7.2146e-03_rb,7.8111e-03_rb,8.3875e-03_rb,8.9339e-03_rb/)
+      kbo(:,30, 5) = (/ &
+     &5.8318e-03_rb,6.3504e-03_rb,6.8644e-03_rb,7.3656e-03_rb,8.2854e-03_rb/)
+      kbo(:,31, 5) = (/ &
+     &5.0938e-03_rb,5.5450e-03_rb,5.9883e-03_rb,6.4048e-03_rb,7.2251e-03_rb/)
+      kbo(:,32, 5) = (/ &
+     &4.4534e-03_rb,4.8436e-03_rb,5.2343e-03_rb,5.5836e-03_rb,6.3649e-03_rb/)
+      kbo(:,33, 5) = (/ &
+     &3.8952e-03_rb,4.2551e-03_rb,4.5701e-03_rb,4.9101e-03_rb,5.6667e-03_rb/)
+      kbo(:,34, 5) = (/ &
+     &3.4434e-03_rb,3.7546e-03_rb,4.0585e-03_rb,4.7206e-03_rb,5.1136e-03_rb/)
+      kbo(:,35, 5) = (/ &
+     &3.0323e-03_rb,3.3194e-03_rb,3.6005e-03_rb,4.2419e-03_rb,4.6276e-03_rb/)
+      kbo(:,36, 5) = (/ &
+     &2.6713e-03_rb,2.9283e-03_rb,3.2072e-03_rb,3.8119e-03_rb,4.2091e-03_rb/)
+      kbo(:,37, 5) = (/ &
+     &2.2748e-03_rb,2.5138e-03_rb,2.7697e-03_rb,3.3361e-03_rb,3.7192e-03_rb/)
+      kbo(:,38, 5) = (/ &
+     &1.9294e-03_rb,2.1456e-03_rb,2.3858e-03_rb,2.9205e-03_rb,3.2883e-03_rb/)
+      kbo(:,39, 5) = (/ &
+     &1.6394e-03_rb,1.8308e-03_rb,2.0616e-03_rb,2.3311e-03_rb,2.9179e-03_rb/)
+      kbo(:,40, 5) = (/ &
+     &1.3611e-03_rb,1.5347e-03_rb,1.7447e-03_rb,1.9909e-03_rb,2.5336e-03_rb/)
+      kbo(:,41, 5) = (/ &
+     &1.1258e-03_rb,1.2811e-03_rb,1.4710e-03_rb,1.6948e-03_rb,2.1957e-03_rb/)
+      kbo(:,42, 5) = (/ &
+     &9.3054e-04_rb,1.0685e-03_rb,1.2380e-03_rb,1.4417e-03_rb,1.8992e-03_rb/)
+      kbo(:,43, 5) = (/ &
+     &7.5595e-04_rb,8.7758e-04_rb,1.0267e-03_rb,1.2093e-03_rb,1.4383e-03_rb/)
+      kbo(:,44, 5) = (/ &
+     &6.0708e-04_rb,7.1329e-04_rb,8.4285e-04_rb,1.0050e-03_rb,1.2098e-03_rb/)
+      kbo(:,45, 5) = (/ &
+     &4.8565e-04_rb,5.7704e-04_rb,6.8980e-04_rb,8.3254e-04_rb,1.0112e-03_rb/)
+      kbo(:,46, 5) = (/ &
+     &3.8568e-04_rb,4.6292e-04_rb,5.6071e-04_rb,6.8523e-04_rb,8.4055e-04_rb/)
+      kbo(:,47, 5) = (/ &
+     &3.0303e-04_rb,3.6775e-04_rb,4.5081e-04_rb,5.5621e-04_rb,6.9040e-04_rb/)
+      kbo(:,48, 5) = (/ &
+     &2.3629e-04_rb,2.9047e-04_rb,3.6009e-04_rb,4.4971e-04_rb,5.6449e-04_rb/)
+      kbo(:,49, 5) = (/ &
+     &1.8277e-04_rb,2.2768e-04_rb,2.8500e-04_rb,3.5988e-04_rb,4.5780e-04_rb/)
+      kbo(:,50, 5) = (/ &
+     &1.4236e-04_rb,1.7948e-04_rb,2.2683e-04_rb,2.8959e-04_rb,3.7278e-04_rb/)
+      kbo(:,51, 5) = (/ &
+     &1.1105e-04_rb,1.4188e-04_rb,1.8087e-04_rb,2.3323e-04_rb,3.0421e-04_rb/)
+      kbo(:,52, 5) = (/ &
+     &8.5949e-05_rb,1.1090e-04_rb,1.4310e-04_rb,1.8669e-04_rb,2.4668e-04_rb/)
+      kbo(:,53, 5) = (/ &
+     &6.6010e-05_rb,8.6189e-05_rb,1.1254e-04_rb,1.4823e-04_rb,1.9832e-04_rb/)
+      kbo(:,54, 5) = (/ &
+     &5.1508e-05_rb,6.7802e-05_rb,8.9425e-05_rb,1.1908e-04_rb,1.6117e-04_rb/)
+      kbo(:,55, 5) = (/ &
+     &4.0450e-05_rb,5.3662e-05_rb,7.1436e-05_rb,9.6039e-05_rb,1.3135e-04_rb/)
+      kbo(:,56, 5) = (/ &
+     &3.1739e-05_rb,4.2180e-05_rb,5.6735e-05_rb,7.6991e-05_rb,1.0631e-04_rb/)
+      kbo(:,57, 5) = (/ &
+     &2.4823e-05_rb,3.2939e-05_rb,4.4784e-05_rb,6.1322e-05_rb,8.5682e-05_rb/)
+      kbo(:,58, 5) = (/ &
+     &1.9514e-05_rb,2.5849e-05_rb,3.5397e-05_rb,4.8867e-05_rb,6.9076e-05_rb/)
+      kbo(:,59, 5) = (/ &
+     &1.6536e-05_rb,2.1873e-05_rb,3.0188e-05_rb,4.2152e-05_rb,6.0090e-05_rb/)
+      kbo(:,13, 6) = (/ &
+     &7.0936e-02_rb,7.2599e-02_rb,7.4412e-02_rb,7.6631e-02_rb,7.9197e-02_rb/)
+      kbo(:,14, 6) = (/ &
+     &6.5108e-02_rb,6.6883e-02_rb,6.8861e-02_rb,7.1194e-02_rb,7.3890e-02_rb/)
+      kbo(:,15, 6) = (/ &
+     &6.1844e-02_rb,6.3875e-02_rb,6.5914e-02_rb,6.8440e-02_rb,7.1135e-02_rb/)
+      kbo(:,16, 6) = (/ &
+     &5.8757e-02_rb,6.1061e-02_rb,6.3588e-02_rb,6.6243e-02_rb,6.9218e-02_rb/)
+      kbo(:,17, 6) = (/ &
+     &5.6075e-02_rb,5.8373e-02_rb,6.0818e-02_rb,6.3696e-02_rb,6.6956e-02_rb/)
+      kbo(:,18, 6) = (/ &
+     &5.3195e-02_rb,5.5446e-02_rb,5.8088e-02_rb,6.0906e-02_rb,6.3907e-02_rb/)
+      kbo(:,19, 6) = (/ &
+     &5.0738e-02_rb,5.2979e-02_rb,5.5433e-02_rb,5.8280e-02_rb,6.1280e-02_rb/)
+      kbo(:,20, 6) = (/ &
+     &4.6694e-02_rb,4.8984e-02_rb,5.1371e-02_rb,5.4034e-02_rb,5.7035e-02_rb/)
+      kbo(:,21, 6) = (/ &
+     &4.2499e-02_rb,4.4760e-02_rb,4.7087e-02_rb,4.9709e-02_rb,5.2664e-02_rb/)
+      kbo(:,22, 6) = (/ &
+     &3.8535e-02_rb,4.0776e-02_rb,4.3118e-02_rb,4.5805e-02_rb,4.8711e-02_rb/)
+      kbo(:,23, 6) = (/ &
+     &3.4990e-02_rb,3.7200e-02_rb,3.9611e-02_rb,4.2290e-02_rb,4.5266e-02_rb/)
+      kbo(:,24, 6) = (/ &
+     &3.1926e-02_rb,3.4161e-02_rb,3.6618e-02_rb,3.9305e-02_rb,4.2288e-02_rb/)
+      kbo(:,25, 6) = (/ &
+     &2.9165e-02_rb,3.1418e-02_rb,3.3868e-02_rb,3.6528e-02_rb,3.9610e-02_rb/)
+      kbo(:,26, 6) = (/ &
+     &2.6632e-02_rb,2.8869e-02_rb,3.1334e-02_rb,3.4138e-02_rb,3.7332e-02_rb/)
+      kbo(:,27, 6) = (/ &
+     &2.4229e-02_rb,2.6481e-02_rb,2.9027e-02_rb,3.1970e-02_rb,3.5096e-02_rb/)
+      kbo(:,28, 6) = (/ &
+     &2.2118e-02_rb,2.4355e-02_rb,2.6986e-02_rb,2.9969e-02_rb,3.3170e-02_rb/)
+      kbo(:,29, 6) = (/ &
+     &2.0075e-02_rb,2.2435e-02_rb,2.5083e-02_rb,2.8074e-02_rb,3.1267e-02_rb/)
+      kbo(:,30, 6) = (/ &
+     &1.8356e-02_rb,2.0732e-02_rb,2.3448e-02_rb,2.6423e-02_rb,3.0839e-02_rb/)
+      kbo(:,31, 6) = (/ &
+     &1.6821e-02_rb,1.9252e-02_rb,2.1963e-02_rb,2.5007e-02_rb,2.9517e-02_rb/)
+      kbo(:,32, 6) = (/ &
+     &1.5646e-02_rb,1.8065e-02_rb,2.0807e-02_rb,2.3917e-02_rb,2.8359e-02_rb/)
+      kbo(:,33, 6) = (/ &
+     &1.4697e-02_rb,1.7147e-02_rb,1.9949e-02_rb,2.3040e-02_rb,2.7566e-02_rb/)
+      kbo(:,34, 6) = (/ &
+     &1.3988e-02_rb,1.6488e-02_rb,1.9318e-02_rb,2.3681e-02_rb,2.7159e-02_rb/)
+      kbo(:,35, 6) = (/ &
+     &1.3271e-02_rb,1.5781e-02_rb,1.8680e-02_rb,2.3148e-02_rb,2.6620e-02_rb/)
+      kbo(:,36, 6) = (/ &
+     &1.2443e-02_rb,1.5030e-02_rb,1.7973e-02_rb,2.2405e-02_rb,2.5873e-02_rb/)
+      kbo(:,37, 6) = (/ &
+     &1.1274e-02_rb,1.3767e-02_rb,1.6642e-02_rb,2.1024e-02_rb,2.4462e-02_rb/)
+      kbo(:,38, 6) = (/ &
+     &1.0206e-02_rb,1.2636e-02_rb,1.5395e-02_rb,1.9741e-02_rb,2.3148e-02_rb/)
+      kbo(:,39, 6) = (/ &
+     &9.2481e-03_rb,1.1600e-02_rb,1.4300e-02_rb,1.7327e-02_rb,2.1951e-02_rb/)
+      kbo(:,40, 6) = (/ &
+     &8.1267e-03_rb,1.0335e-02_rb,1.2898e-02_rb,1.5836e-02_rb,2.0384e-02_rb/)
+      kbo(:,41, 6) = (/ &
+     &7.0946e-03_rb,9.1506e-03_rb,1.1587e-02_rb,1.4430e-02_rb,1.8862e-02_rb/)
+      kbo(:,42, 6) = (/ &
+     &6.1743e-03_rb,8.0792e-03_rb,1.0417e-02_rb,1.3119e-02_rb,1.7424e-02_rb/)
+      kbo(:,43, 6) = (/ &
+     &5.2531e-03_rb,6.9901e-03_rb,9.1605e-03_rb,1.1697e-02_rb,1.4583e-02_rb/)
+      kbo(:,44, 6) = (/ &
+     &4.3985e-03_rb,5.9665e-03_rb,7.9494e-03_rb,1.0327e-02_rb,1.3038e-02_rb/)
+      kbo(:,45, 6) = (/ &
+     &3.6636e-03_rb,5.0581e-03_rb,6.8612e-03_rb,9.0504e-03_rb,1.1599e-02_rb/)
+      kbo(:,46, 6) = (/ &
+     &3.0066e-03_rb,4.2365e-03_rb,5.8498e-03_rb,7.8432e-03_rb,1.0214e-02_rb/)
+      kbo(:,47, 6) = (/ &
+     &2.4125e-03_rb,3.4783e-03_rb,4.8978e-03_rb,6.6863e-03_rb,8.8516e-03_rb/)
+      kbo(:,48, 6) = (/ &
+     &1.9141e-03_rb,2.8190e-03_rb,4.0533e-03_rb,5.6391e-03_rb,7.5940e-03_rb/)
+      kbo(:,49, 6) = (/ &
+     &1.4995e-03_rb,2.2582e-03_rb,3.3183e-03_rb,4.7078e-03_rb,6.4551e-03_rb/)
+      kbo(:,50, 6) = (/ &
+     &1.1787e-03_rb,1.8162e-03_rb,2.7290e-03_rb,3.9486e-03_rb,5.5105e-03_rb/)
+      kbo(:,51, 6) = (/ &
+     &9.2536e-04_rb,1.4546e-03_rb,2.2372e-03_rb,3.3051e-03_rb,4.6909e-03_rb/)
+      kbo(:,52, 6) = (/ &
+     &7.1718e-04_rb,1.1533e-03_rb,1.8133e-03_rb,2.7360e-03_rb,3.9584e-03_rb/)
+      kbo(:,53, 6) = (/ &
+     &5.4913e-04_rb,9.0136e-04_rb,1.4515e-03_rb,2.2390e-03_rb,3.3052e-03_rb/)
+      kbo(:,54, 6) = (/ &
+     &4.2639e-04_rb,7.1524e-04_rb,1.1781e-03_rb,1.8604e-03_rb,2.8043e-03_rb/)
+      kbo(:,55, 6) = (/ &
+     &3.3211e-04_rb,5.6986e-04_rb,9.6021e-04_rb,1.5541e-03_rb,2.3898e-03_rb/)
+      kbo(:,56, 6) = (/ &
+     &2.5572e-04_rb,4.4925e-04_rb,7.7580e-04_rb,1.2883e-03_rb,2.0250e-03_rb/)
+      kbo(:,57, 6) = (/ &
+     &1.9517e-04_rb,3.4994e-04_rb,6.2105e-04_rb,1.0576e-03_rb,1.7032e-03_rb/)
+      kbo(:,58, 6) = (/ &
+     &1.4935e-04_rb,2.7300e-04_rb,4.9776e-04_rb,8.6979e-04_rb,1.4384e-03_rb/)
+      kbo(:,59, 6) = (/ &
+     &1.2881e-04_rb,2.4100e-04_rb,4.4942e-04_rb,8.0211e-04_rb,1.3455e-03_rb/)
+      kbo(:,13, 7) = (/ &
+     &1.5834e-01_rb,1.6249e-01_rb,1.6718e-01_rb,1.7299e-01_rb,1.7881e-01_rb/)
+      kbo(:,14, 7) = (/ &
+     &1.4697e-01_rb,1.5136e-01_rb,1.5631e-01_rb,1.6088e-01_rb,1.6631e-01_rb/)
+      kbo(:,15, 7) = (/ &
+     &1.4037e-01_rb,1.4484e-01_rb,1.4966e-01_rb,1.5465e-01_rb,1.6040e-01_rb/)
+      kbo(:,16, 7) = (/ &
+     &1.3335e-01_rb,1.3799e-01_rb,1.4282e-01_rb,1.4817e-01_rb,1.5433e-01_rb/)
+      kbo(:,17, 7) = (/ &
+     &1.2994e-01_rb,1.3481e-01_rb,1.4043e-01_rb,1.4652e-01_rb,1.5312e-01_rb/)
+      kbo(:,18, 7) = (/ &
+     &1.2814e-01_rb,1.3395e-01_rb,1.4042e-01_rb,1.4789e-01_rb,1.5627e-01_rb/)
+      kbo(:,19, 7) = (/ &
+     &1.2710e-01_rb,1.3361e-01_rb,1.4139e-01_rb,1.4985e-01_rb,1.5917e-01_rb/)
+      kbo(:,20, 7) = (/ &
+     &1.2151e-01_rb,1.2844e-01_rb,1.3635e-01_rb,1.4526e-01_rb,1.5485e-01_rb/)
+      kbo(:,21, 7) = (/ &
+     &1.1463e-01_rb,1.2176e-01_rb,1.2980e-01_rb,1.3882e-01_rb,1.4834e-01_rb/)
+      kbo(:,22, 7) = (/ &
+     &1.0733e-01_rb,1.1471e-01_rb,1.2303e-01_rb,1.3189e-01_rb,1.4224e-01_rb/)
+      kbo(:,23, 7) = (/ &
+     &1.0056e-01_rb,1.0811e-01_rb,1.1675e-01_rb,1.2597e-01_rb,1.3621e-01_rb/)
+      kbo(:,24, 7) = (/ &
+     &9.4505e-02_rb,1.0259e-01_rb,1.1127e-01_rb,1.2075e-01_rb,1.3101e-01_rb/)
+      kbo(:,25, 7) = (/ &
+     &8.9426e-02_rb,9.7409e-02_rb,1.0620e-01_rb,1.1605e-01_rb,1.2683e-01_rb/)
+      kbo(:,26, 7) = (/ &
+     &8.4533e-02_rb,9.2442e-02_rb,1.0164e-01_rb,1.1173e-01_rb,1.2271e-01_rb/)
+      kbo(:,27, 7) = (/ &
+     &7.9749e-02_rb,8.8003e-02_rb,9.7311e-02_rb,1.0746e-01_rb,1.1871e-01_rb/)
+      kbo(:,28, 7) = (/ &
+     &7.5483e-02_rb,8.3936e-02_rb,9.3313e-02_rb,1.0378e-01_rb,1.1507e-01_rb/)
+      kbo(:,29, 7) = (/ &
+     &7.1103e-02_rb,7.9904e-02_rb,8.9739e-02_rb,1.0032e-01_rb,1.1148e-01_rb/)
+      kbo(:,30, 7) = (/ &
+     &6.7483e-02_rb,7.6590e-02_rb,8.6589e-02_rb,9.7210e-02_rb,1.1098e-01_rb/)
+      kbo(:,31, 7) = (/ &
+     &6.4404e-02_rb,7.3695e-02_rb,8.3853e-02_rb,9.4939e-02_rb,1.0916e-01_rb/)
+      kbo(:,32, 7) = (/ &
+     &6.2132e-02_rb,7.1593e-02_rb,8.2197e-02_rb,9.3726e-02_rb,1.0838e-01_rb/)
+      kbo(:,33, 7) = (/ &
+     &6.0812e-02_rb,7.0660e-02_rb,8.1722e-02_rb,9.3787e-02_rb,1.0875e-01_rb/)
+      kbo(:,34, 7) = (/ &
+     &6.0340e-02_rb,7.0788e-02_rb,8.2210e-02_rb,9.6618e-02_rb,1.0965e-01_rb/)
+      kbo(:,35, 7) = (/ &
+     &5.9655e-02_rb,7.0346e-02_rb,8.1926e-02_rb,9.6670e-02_rb,1.0999e-01_rb/)
+      kbo(:,36, 7) = (/ &
+     &5.8475e-02_rb,6.9222e-02_rb,8.1005e-02_rb,9.6061e-02_rb,1.0964e-01_rb/)
+      kbo(:,37, 7) = (/ &
+     &5.5330e-02_rb,6.5969e-02_rb,7.7716e-02_rb,9.2736e-02_rb,1.0626e-01_rb/)
+      kbo(:,38, 7) = (/ &
+     &5.2353e-02_rb,6.2872e-02_rb,7.4519e-02_rb,8.9400e-02_rb,1.0278e-01_rb/)
+      kbo(:,39, 7) = (/ &
+     &4.9669e-02_rb,5.9933e-02_rb,7.1439e-02_rb,8.4019e-02_rb,9.9553e-02_rb/)
+      kbo(:,40, 7) = (/ &
+     &4.5810e-02_rb,5.5845e-02_rb,6.7001e-02_rb,7.9231e-02_rb,9.4558e-02_rb/)
+      kbo(:,41, 7) = (/ &
+     &4.2118e-02_rb,5.1782e-02_rb,6.2542e-02_rb,7.4429e-02_rb,8.9527e-02_rb/)
+      kbo(:,42, 7) = (/ &
+     &3.8602e-02_rb,4.7947e-02_rb,5.8290e-02_rb,6.9790e-02_rb,8.4691e-02_rb/)
+      kbo(:,43, 7) = (/ &
+     &3.4683e-02_rb,4.3605e-02_rb,5.3513e-02_rb,6.4549e-02_rb,7.6612e-02_rb/)
+      kbo(:,44, 7) = (/ &
+     &3.0820e-02_rb,3.9228e-02_rb,4.8707e-02_rb,5.9113e-02_rb,7.0667e-02_rb/)
+      kbo(:,45, 7) = (/ &
+     &2.7206e-02_rb,3.5088e-02_rb,4.4017e-02_rb,5.3958e-02_rb,6.4971e-02_rb/)
+      kbo(:,46, 7) = (/ &
+     &2.3728e-02_rb,3.1004e-02_rb,3.9410e-02_rb,4.8844e-02_rb,5.9195e-02_rb/)
+      kbo(:,47, 7) = (/ &
+     &2.0318e-02_rb,2.6968e-02_rb,3.4803e-02_rb,4.3672e-02_rb,5.3514e-02_rb/)
+      kbo(:,48, 7) = (/ &
+     &1.7221e-02_rb,2.3270e-02_rb,3.0475e-02_rb,3.8751e-02_rb,4.8067e-02_rb/)
+      kbo(:,49, 7) = (/ &
+     &1.4371e-02_rb,1.9831e-02_rb,2.6371e-02_rb,3.4011e-02_rb,4.2706e-02_rb/)
+      kbo(:,50, 7) = (/ &
+     &1.2067e-02_rb,1.6953e-02_rb,2.2948e-02_rb,3.0025e-02_rb,3.8163e-02_rb/)
+      kbo(:,51, 7) = (/ &
+     &1.0081e-02_rb,1.4494e-02_rb,1.9976e-02_rb,2.6511e-02_rb,3.4117e-02_rb/)
+      kbo(:,52, 7) = (/ &
+     &8.3102e-03_rb,1.2227e-02_rb,1.7157e-02_rb,2.3198e-02_rb,3.0263e-02_rb/)
+      kbo(:,53, 7) = (/ &
+     &6.7300e-03_rb,1.0157e-02_rb,1.4580e-02_rb,2.0030e-02_rb,2.6549e-02_rb/)
+      kbo(:,54, 7) = (/ &
+     &5.5699e-03_rb,8.6183e-03_rb,1.2632e-02_rb,1.7641e-02_rb,2.3782e-02_rb/)
+      kbo(:,55, 7) = (/ &
+     &4.6424e-03_rb,7.3686e-03_rb,1.1048e-02_rb,1.5705e-02_rb,2.1480e-02_rb/)
+      kbo(:,56, 7) = (/ &
+     &3.8360e-03_rb,6.2508e-03_rb,9.5901e-03_rb,1.3914e-02_rb,1.9327e-02_rb/)
+      kbo(:,57, 7) = (/ &
+     &3.1377e-03_rb,5.2589e-03_rb,8.2647e-03_rb,1.2235e-02_rb,1.7290e-02_rb/)
+      kbo(:,58, 7) = (/ &
+     &2.5678e-03_rb,4.4320e-03_rb,7.1403e-03_rb,1.0793e-02_rb,1.5530e-02_rb/)
+      kbo(:,59, 7) = (/ &
+     &2.3969e-03_rb,4.2221e-03_rb,6.8990e-03_rb,1.0531e-02_rb,1.5294e-02_rb/)
+      kbo(:,13, 8) = (/ &
+     &4.5374e-01_rb,4.6892e-01_rb,4.8468e-01_rb,5.0059e-01_rb,5.1827e-01_rb/)
+      kbo(:,14, 8) = (/ &
+     &4.3219e-01_rb,4.4586e-01_rb,4.6019e-01_rb,4.7608e-01_rb,4.9298e-01_rb/)
+      kbo(:,15, 8) = (/ &
+     &4.0920e-01_rb,4.2277e-01_rb,4.3751e-01_rb,4.5370e-01_rb,4.7139e-01_rb/)
+      kbo(:,16, 8) = (/ &
+     &3.8774e-01_rb,3.9959e-01_rb,4.1438e-01_rb,4.3100e-01_rb,4.4920e-01_rb/)
+      kbo(:,17, 8) = (/ &
+     &3.7675e-01_rb,3.9034e-01_rb,4.0535e-01_rb,4.2142e-01_rb,4.3931e-01_rb/)
+      kbo(:,18, 8) = (/ &
+     &3.7210e-01_rb,3.8690e-01_rb,4.0196e-01_rb,4.1888e-01_rb,4.3633e-01_rb/)
+      kbo(:,19, 8) = (/ &
+     &3.8004e-01_rb,3.9604e-01_rb,4.1156e-01_rb,4.2942e-01_rb,4.4872e-01_rb/)
+      kbo(:,20, 8) = (/ &
+     &3.8032e-01_rb,3.9826e-01_rb,4.1629e-01_rb,4.3599e-01_rb,4.5653e-01_rb/)
+      kbo(:,21, 8) = (/ &
+     &3.7841e-01_rb,3.9929e-01_rb,4.1819e-01_rb,4.3972e-01_rb,4.6162e-01_rb/)
+      kbo(:,22, 8) = (/ &
+     &3.7504e-01_rb,3.9852e-01_rb,4.2087e-01_rb,4.4494e-01_rb,4.6985e-01_rb/)
+      kbo(:,23, 8) = (/ &
+     &3.7298e-01_rb,3.9721e-01_rb,4.2335e-01_rb,4.5127e-01_rb,4.7949e-01_rb/)
+      kbo(:,24, 8) = (/ &
+     &3.7096e-01_rb,3.9820e-01_rb,4.2817e-01_rb,4.5927e-01_rb,4.9128e-01_rb/)
+      kbo(:,25, 8) = (/ &
+     &3.6772e-01_rb,3.9818e-01_rb,4.3145e-01_rb,4.6548e-01_rb,5.0188e-01_rb/)
+      kbo(:,26, 8) = (/ &
+     &3.6515e-01_rb,3.9789e-01_rb,4.3248e-01_rb,4.6959e-01_rb,5.0716e-01_rb/)
+      kbo(:,27, 8) = (/ &
+     &3.5912e-01_rb,3.9421e-01_rb,4.3089e-01_rb,4.6934e-01_rb,5.0871e-01_rb/)
+      kbo(:,28, 8) = (/ &
+     &3.5260e-01_rb,3.8990e-01_rb,4.2842e-01_rb,4.6770e-01_rb,5.0872e-01_rb/)
+      kbo(:,29, 8) = (/ &
+     &3.4566e-01_rb,3.8302e-01_rb,4.2135e-01_rb,4.6236e-01_rb,5.0539e-01_rb/)
+      kbo(:,30, 8) = (/ &
+     &3.3909e-01_rb,3.7648e-01_rb,4.1601e-01_rb,4.5869e-01_rb,5.0690e-01_rb/)
+      kbo(:,31, 8) = (/ &
+     &3.3097e-01_rb,3.6927e-01_rb,4.1020e-01_rb,4.5248e-01_rb,5.0201e-01_rb/)
+      kbo(:,32, 8) = (/ &
+     &3.2677e-01_rb,3.6552e-01_rb,4.0712e-01_rb,4.4947e-01_rb,4.9828e-01_rb/)
+      kbo(:,33, 8) = (/ &
+     &3.2437e-01_rb,3.6324e-01_rb,4.0445e-01_rb,4.4744e-01_rb,4.9526e-01_rb/)
+      kbo(:,34, 8) = (/ &
+     &3.2478e-01_rb,3.6385e-01_rb,4.0433e-01_rb,4.5266e-01_rb,4.9618e-01_rb/)
+      kbo(:,35, 8) = (/ &
+     &3.2335e-01_rb,3.6225e-01_rb,4.0283e-01_rb,4.5093e-01_rb,4.9595e-01_rb/)
+      kbo(:,36, 8) = (/ &
+     &3.1952e-01_rb,3.5913e-01_rb,4.0020e-01_rb,4.4926e-01_rb,4.9354e-01_rb/)
+      kbo(:,37, 8) = (/ &
+     &3.0545e-01_rb,3.4531e-01_rb,3.8604e-01_rb,4.3520e-01_rb,4.7874e-01_rb/)
+      kbo(:,38, 8) = (/ &
+     &2.9161e-01_rb,3.3033e-01_rb,3.7111e-01_rb,4.1959e-01_rb,4.6334e-01_rb/)
+      kbo(:,39, 8) = (/ &
+     &2.7728e-01_rb,3.1579e-01_rb,3.5591e-01_rb,3.9884e-01_rb,4.4658e-01_rb/)
+      kbo(:,40, 8) = (/ &
+     &2.6059e-01_rb,2.9767e-01_rb,3.3670e-01_rb,3.7917e-01_rb,4.2621e-01_rb/)
+      kbo(:,41, 8) = (/ &
+     &2.4427e-01_rb,2.7974e-01_rb,3.1821e-01_rb,3.5868e-01_rb,4.0499e-01_rb/)
+      kbo(:,42, 8) = (/ &
+     &2.2818e-01_rb,2.6203e-01_rb,2.9920e-01_rb,3.3811e-01_rb,3.8330e-01_rb/)
+      kbo(:,43, 8) = (/ &
+     &2.1001e-01_rb,2.4274e-01_rb,2.7765e-01_rb,3.1477e-01_rb,3.5346e-01_rb/)
+      kbo(:,44, 8) = (/ &
+     &1.9124e-01_rb,2.2202e-01_rb,2.5515e-01_rb,2.8981e-01_rb,3.2699e-01_rb/)
+      kbo(:,45, 8) = (/ &
+     &1.7260e-01_rb,2.0229e-01_rb,2.3352e-01_rb,2.6561e-01_rb,2.9973e-01_rb/)
+      kbo(:,46, 8) = (/ &
+     &1.5463e-01_rb,1.8250e-01_rb,2.1175e-01_rb,2.4206e-01_rb,2.7362e-01_rb/)
+      kbo(:,47, 8) = (/ &
+     &1.3753e-01_rb,1.6353e-01_rb,1.9105e-01_rb,2.1973e-01_rb,2.4911e-01_rb/)
+      kbo(:,48, 8) = (/ &
+     &1.2102e-01_rb,1.4531e-01_rb,1.7086e-01_rb,1.9744e-01_rb,2.2473e-01_rb/)
+      kbo(:,49, 8) = (/ &
+     &1.0521e-01_rb,1.2719e-01_rb,1.5065e-01_rb,1.7507e-01_rb,1.9976e-01_rb/)
+      kbo(:,50, 8) = (/ &
+     &9.2290e-02_rb,1.1288e-01_rb,1.3468e-01_rb,1.5758e-01_rb,1.8102e-01_rb/)
+      kbo(:,51, 8) = (/ &
+     &8.1396e-02_rb,1.0065e-01_rb,1.2103e-01_rb,1.4278e-01_rb,1.6472e-01_rb/)
+      kbo(:,52, 8) = (/ &
+     &7.1108e-02_rb,8.8827e-02_rb,1.0785e-01_rb,1.2780e-01_rb,1.4857e-01_rb/)
+      kbo(:,53, 8) = (/ &
+     &6.0985e-02_rb,7.7296e-02_rb,9.4909e-02_rb,1.1304e-01_rb,1.3292e-01_rb/)
+      kbo(:,54, 8) = (/ &
+     &5.4165e-02_rb,6.9879e-02_rb,8.6686e-02_rb,1.0438e-01_rb,1.2336e-01_rb/)
+      kbo(:,55, 8) = (/ &
+     &4.9072e-02_rb,6.4377e-02_rb,8.0975e-02_rb,9.8517e-02_rb,1.1715e-01_rb/)
+      kbo(:,56, 8) = (/ &
+     &4.4131e-02_rb,5.9064e-02_rb,7.5254e-02_rb,9.2618e-02_rb,1.1083e-01_rb/)
+      kbo(:,57, 8) = (/ &
+     &3.9404e-02_rb,5.3744e-02_rb,6.9648e-02_rb,8.6728e-02_rb,1.0474e-01_rb/)
+      kbo(:,58, 8) = (/ &
+     &3.5245e-02_rb,4.9278e-02_rb,6.4917e-02_rb,8.1857e-02_rb,9.9966e-02_rb/)
+      kbo(:,59, 8) = (/ &
+     &3.5641e-02_rb,5.0530e-02_rb,6.7256e-02_rb,8.5600e-02_rb,1.0518e-01_rb/)
+      kbo(:,13, 9) = (/ &
+     &3.0582e+00_rb,3.1802e+00_rb,3.2924e+00_rb,3.3999e+00_rb,3.5039e+00_rb/)
+      kbo(:,14, 9) = (/ &
+     &2.7741e+00_rb,2.8902e+00_rb,2.9983e+00_rb,3.1018e+00_rb,3.1995e+00_rb/)
+      kbo(:,15, 9) = (/ &
+     &2.5019e+00_rb,2.6118e+00_rb,2.7174e+00_rb,2.8165e+00_rb,2.9092e+00_rb/)
+      kbo(:,16, 9) = (/ &
+     &2.2794e+00_rb,2.3785e+00_rb,2.4700e+00_rb,2.5601e+00_rb,2.6476e+00_rb/)
+      kbo(:,17, 9) = (/ &
+     &2.1431e+00_rb,2.2237e+00_rb,2.2973e+00_rb,2.3689e+00_rb,2.4470e+00_rb/)
+      kbo(:,18, 9) = (/ &
+     &2.1112e+00_rb,2.1931e+00_rb,2.2642e+00_rb,2.3350e+00_rb,2.3995e+00_rb/)
+      kbo(:,19, 9) = (/ &
+     &2.1192e+00_rb,2.1960e+00_rb,2.2679e+00_rb,2.3312e+00_rb,2.3985e+00_rb/)
+      kbo(:,20, 9) = (/ &
+     &2.0719e+00_rb,2.1504e+00_rb,2.2204e+00_rb,2.2883e+00_rb,2.3541e+00_rb/)
+      kbo(:,21, 9) = (/ &
+     &2.0023e+00_rb,2.0787e+00_rb,2.1566e+00_rb,2.2279e+00_rb,2.2981e+00_rb/)
+      kbo(:,22, 9) = (/ &
+     &1.9677e+00_rb,2.0354e+00_rb,2.1023e+00_rb,2.1820e+00_rb,2.2522e+00_rb/)
+      kbo(:,23, 9) = (/ &
+     &1.9509e+00_rb,2.0289e+00_rb,2.0929e+00_rb,2.1547e+00_rb,2.2177e+00_rb/)
+      kbo(:,24, 9) = (/ &
+     &1.9605e+00_rb,2.0316e+00_rb,2.0945e+00_rb,2.1537e+00_rb,2.2147e+00_rb/)
+      kbo(:,25, 9) = (/ &
+     &1.9774e+00_rb,2.0460e+00_rb,2.1037e+00_rb,2.1656e+00_rb,2.2237e+00_rb/)
+      kbo(:,26, 9) = (/ &
+     &1.9746e+00_rb,2.0494e+00_rb,2.1183e+00_rb,2.1793e+00_rb,2.2462e+00_rb/)
+      kbo(:,27, 9) = (/ &
+     &1.9769e+00_rb,2.0480e+00_rb,2.1184e+00_rb,2.1915e+00_rb,2.2594e+00_rb/)
+      kbo(:,28, 9) = (/ &
+     &1.9705e+00_rb,2.0478e+00_rb,2.1273e+00_rb,2.2021e+00_rb,2.2684e+00_rb/)
+      kbo(:,29, 9) = (/ &
+     &1.9428e+00_rb,2.0233e+00_rb,2.1092e+00_rb,2.1834e+00_rb,2.2523e+00_rb/)
+      kbo(:,30, 9) = (/ &
+     &1.9054e+00_rb,1.9928e+00_rb,2.0804e+00_rb,2.1559e+00_rb,2.2456e+00_rb/)
+      kbo(:,31, 9) = (/ &
+     &1.8578e+00_rb,1.9522e+00_rb,2.0363e+00_rb,2.1176e+00_rb,2.2067e+00_rb/)
+      kbo(:,32, 9) = (/ &
+     &1.8167e+00_rb,1.9163e+00_rb,1.9986e+00_rb,2.0826e+00_rb,2.1707e+00_rb/)
+      kbo(:,33, 9) = (/ &
+     &1.7835e+00_rb,1.8773e+00_rb,1.9713e+00_rb,2.0531e+00_rb,2.1415e+00_rb/)
+      kbo(:,34, 9) = (/ &
+     &1.7699e+00_rb,1.8654e+00_rb,1.9579e+00_rb,2.0589e+00_rb,2.1344e+00_rb/)
+      kbo(:,35, 9) = (/ &
+     &1.7588e+00_rb,1.8543e+00_rb,1.9464e+00_rb,2.0494e+00_rb,2.1255e+00_rb/)
+      kbo(:,36, 9) = (/ &
+     &1.7548e+00_rb,1.8549e+00_rb,1.9407e+00_rb,2.0440e+00_rb,2.1280e+00_rb/)
+      kbo(:,37, 9) = (/ &
+     &1.7109e+00_rb,1.8072e+00_rb,1.9003e+00_rb,1.9969e+00_rb,2.0787e+00_rb/)
+      kbo(:,38, 9) = (/ &
+     &1.6587e+00_rb,1.7570e+00_rb,1.8515e+00_rb,1.9517e+00_rb,2.0362e+00_rb/)
+      kbo(:,39, 9) = (/ &
+     &1.5996e+00_rb,1.6993e+00_rb,1.7940e+00_rb,1.8844e+00_rb,1.9872e+00_rb/)
+      kbo(:,40, 9) = (/ &
+     &1.5318e+00_rb,1.6341e+00_rb,1.7309e+00_rb,1.8212e+00_rb,1.9247e+00_rb/)
+      kbo(:,41, 9) = (/ &
+     &1.4675e+00_rb,1.5693e+00_rb,1.6630e+00_rb,1.7538e+00_rb,1.8608e+00_rb/)
+      kbo(:,42, 9) = (/ &
+     &1.4053e+00_rb,1.5014e+00_rb,1.5957e+00_rb,1.6862e+00_rb,1.7957e+00_rb/)
+      kbo(:,43, 9) = (/ &
+     &1.3266e+00_rb,1.4241e+00_rb,1.5193e+00_rb,1.6083e+00_rb,1.7037e+00_rb/)
+      kbo(:,44, 9) = (/ &
+     &1.2422e+00_rb,1.3405e+00_rb,1.4375e+00_rb,1.5296e+00_rb,1.6219e+00_rb/)
+      kbo(:,45, 9) = (/ &
+     &1.1571e+00_rb,1.2540e+00_rb,1.3469e+00_rb,1.4395e+00_rb,1.5427e+00_rb/)
+      kbo(:,46, 9) = (/ &
+     &1.0762e+00_rb,1.1688e+00_rb,1.2622e+00_rb,1.3587e+00_rb,1.4621e+00_rb/)
+      kbo(:,47, 9) = (/ &
+     &9.9321e-01_rb,1.0861e+00_rb,1.1791e+00_rb,1.2774e+00_rb,1.3779e+00_rb/)
+      kbo(:,48, 9) = (/ &
+     &9.0640e-01_rb,1.0035e+00_rb,1.0964e+00_rb,1.1955e+00_rb,1.2984e+00_rb/)
+      kbo(:,49, 9) = (/ &
+     &8.2476e-01_rb,9.1593e-01_rb,1.0111e+00_rb,1.1148e+00_rb,1.2202e+00_rb/)
+      kbo(:,50, 9) = (/ &
+     &7.5762e-01_rb,8.4984e-01_rb,9.4454e-01_rb,1.0468e+00_rb,1.1530e+00_rb/)
+      kbo(:,51, 9) = (/ &
+     &6.9972e-01_rb,7.8939e-01_rb,8.8551e-01_rb,9.8599e-01_rb,1.0894e+00_rb/)
+      kbo(:,52, 9) = (/ &
+     &6.4292e-01_rb,7.3062e-01_rb,8.2745e-01_rb,9.2620e-01_rb,1.0265e+00_rb/)
+      kbo(:,53, 9) = (/ &
+     &5.8631e-01_rb,6.7367e-01_rb,7.6794e-01_rb,8.6557e-01_rb,9.6191e-01_rb/)
+      kbo(:,54, 9) = (/ &
+     &5.4766e-01_rb,6.3312e-01_rb,7.2658e-01_rb,8.2340e-01_rb,9.1820e-01_rb/)
+      kbo(:,55, 9) = (/ &
+     &5.1893e-01_rb,6.0477e-01_rb,6.9346e-01_rb,7.9003e-01_rb,8.8552e-01_rb/)
+      kbo(:,56, 9) = (/ &
+     &4.9077e-01_rb,5.7504e-01_rb,6.6139e-01_rb,7.5822e-01_rb,8.5232e-01_rb/)
+      kbo(:,57, 9) = (/ &
+     &4.6294e-01_rb,5.4644e-01_rb,6.3217e-01_rb,7.2497e-01_rb,8.2095e-01_rb/)
+      kbo(:,58, 9) = (/ &
+     &4.3872e-01_rb,5.2209e-01_rb,6.0717e-01_rb,6.9576e-01_rb,7.9255e-01_rb/)
+      kbo(:,59, 9) = (/ &
+     &4.5355e-01_rb,5.4099e-01_rb,6.2851e-01_rb,7.1405e-01_rb,8.0552e-01_rb/)
+      kbo(:,13,10) = (/ &
+     &1.4982e+01_rb,1.5495e+01_rb,1.5954e+01_rb,1.6348e+01_rb,1.6704e+01_rb/)
+      kbo(:,14,10) = (/ &
+     &1.3335e+01_rb,1.3739e+01_rb,1.4075e+01_rb,1.4394e+01_rb,1.4701e+01_rb/)
+      kbo(:,15,10) = (/ &
+     &1.2249e+01_rb,1.2466e+01_rb,1.2680e+01_rb,1.2851e+01_rb,1.2999e+01_rb/)
+      kbo(:,16,10) = (/ &
+     &1.1258e+01_rb,1.1509e+01_rb,1.1735e+01_rb,1.1863e+01_rb,1.1992e+01_rb/)
+      kbo(:,17,10) = (/ &
+     &9.6399e+00_rb,9.9316e+00_rb,1.0198e+01_rb,1.0495e+01_rb,1.0685e+01_rb/)
+      kbo(:,18,10) = (/ &
+     &8.3200e+00_rb,8.3604e+00_rb,8.4791e+00_rb,8.5483e+00_rb,8.6485e+00_rb/)
+      kbo(:,19,10) = (/ &
+     &8.1074e+00_rb,8.1199e+00_rb,8.1734e+00_rb,8.2725e+00_rb,8.2532e+00_rb/)
+      kbo(:,20,10) = (/ &
+     &8.0251e+00_rb,8.0270e+00_rb,8.1639e+00_rb,8.2375e+00_rb,8.2230e+00_rb/)
+      kbo(:,21,10) = (/ &
+     &7.9993e+00_rb,8.0934e+00_rb,8.2060e+00_rb,8.1449e+00_rb,8.1878e+00_rb/)
+      kbo(:,22,10) = (/ &
+     &7.7052e+00_rb,7.8023e+00_rb,8.0192e+00_rb,8.0278e+00_rb,8.0411e+00_rb/)
+      kbo(:,23,10) = (/ &
+     &7.2443e+00_rb,7.3880e+00_rb,7.6036e+00_rb,7.7289e+00_rb,7.8141e+00_rb/)
+      kbo(:,24,10) = (/ &
+     &6.8599e+00_rb,6.9432e+00_rb,7.2334e+00_rb,7.4508e+00_rb,7.5685e+00_rb/)
+      kbo(:,25,10) = (/ &
+     &6.7077e+00_rb,6.7570e+00_rb,7.0253e+00_rb,7.1690e+00_rb,7.3506e+00_rb/)
+      kbo(:,26,10) = (/ &
+     &6.7805e+00_rb,6.7972e+00_rb,6.9739e+00_rb,6.9966e+00_rb,7.1457e+00_rb/)
+      kbo(:,27,10) = (/ &
+     &6.6456e+00_rb,6.8298e+00_rb,6.9537e+00_rb,6.8703e+00_rb,6.9847e+00_rb/)
+      kbo(:,28,10) = (/ &
+     &6.6227e+00_rb,6.7740e+00_rb,6.7717e+00_rb,6.7969e+00_rb,6.8834e+00_rb/)
+      kbo(:,29,10) = (/ &
+     &6.5026e+00_rb,6.7130e+00_rb,6.6983e+00_rb,6.7888e+00_rb,6.9842e+00_rb/)
+      kbo(:,30,10) = (/ &
+     &6.4613e+00_rb,6.7438e+00_rb,6.7406e+00_rb,6.8001e+00_rb,7.0628e+00_rb/)
+      kbo(:,31,10) = (/ &
+     &6.4453e+00_rb,6.5818e+00_rb,6.6914e+00_rb,6.8343e+00_rb,7.1118e+00_rb/)
+      kbo(:,32,10) = (/ &
+     &6.4750e+00_rb,6.5165e+00_rb,6.6931e+00_rb,6.9311e+00_rb,7.2907e+00_rb/)
+      kbo(:,33,10) = (/ &
+     &6.3852e+00_rb,6.5174e+00_rb,6.6687e+00_rb,7.0429e+00_rb,7.4921e+00_rb/)
+      kbo(:,34,10) = (/ &
+     &6.2937e+00_rb,6.5395e+00_rb,6.7522e+00_rb,7.1615e+00_rb,7.5856e+00_rb/)
+      kbo(:,35,10) = (/ &
+     &6.2760e+00_rb,6.5561e+00_rb,6.8772e+00_rb,7.3182e+00_rb,7.7508e+00_rb/)
+      kbo(:,36,10) = (/ &
+     &6.2498e+00_rb,6.5146e+00_rb,6.9721e+00_rb,7.4134e+00_rb,7.7777e+00_rb/)
+      kbo(:,37,10) = (/ &
+     &6.0875e+00_rb,6.4490e+00_rb,6.8813e+00_rb,7.4029e+00_rb,7.7937e+00_rb/)
+      kbo(:,38,10) = (/ &
+     &5.9776e+00_rb,6.3534e+00_rb,6.8337e+00_rb,7.2840e+00_rb,7.6800e+00_rb/)
+      kbo(:,39,10) = (/ &
+     &5.9369e+00_rb,6.2769e+00_rb,6.7228e+00_rb,7.1879e+00_rb,7.5772e+00_rb/)
+      kbo(:,40,10) = (/ &
+     &5.8199e+00_rb,6.1346e+00_rb,6.5569e+00_rb,7.0308e+00_rb,7.5139e+00_rb/)
+      kbo(:,41,10) = (/ &
+     &5.6637e+00_rb,5.9953e+00_rb,6.3928e+00_rb,6.8959e+00_rb,7.3899e+00_rb/)
+      kbo(:,42,10) = (/ &
+     &5.4578e+00_rb,5.8740e+00_rb,6.2837e+00_rb,6.7615e+00_rb,7.2182e+00_rb/)
+      kbo(:,43,10) = (/ &
+     &5.2432e+00_rb,5.6884e+00_rb,6.0915e+00_rb,6.5892e+00_rb,7.0176e+00_rb/)
+      kbo(:,44,10) = (/ &
+     &5.0352e+00_rb,5.5134e+00_rb,5.9765e+00_rb,6.3927e+00_rb,6.8192e+00_rb/)
+      kbo(:,45,10) = (/ &
+     &4.8185e+00_rb,5.3066e+00_rb,5.8216e+00_rb,6.2708e+00_rb,6.5394e+00_rb/)
+      kbo(:,46,10) = (/ &
+     &4.5458e+00_rb,5.0700e+00_rb,5.5601e+00_rb,5.9708e+00_rb,6.3061e+00_rb/)
+      kbo(:,47,10) = (/ &
+     &4.3290e+00_rb,4.8090e+00_rb,5.3177e+00_rb,5.7187e+00_rb,6.0493e+00_rb/)
+      kbo(:,48,10) = (/ &
+     &4.1252e+00_rb,4.6210e+00_rb,5.0031e+00_rb,5.3950e+00_rb,5.6779e+00_rb/)
+      kbo(:,49,10) = (/ &
+     &3.8776e+00_rb,4.3638e+00_rb,4.7491e+00_rb,5.0119e+00_rb,5.3209e+00_rb/)
+      kbo(:,50,10) = (/ &
+     &3.6432e+00_rb,4.1171e+00_rb,4.5036e+00_rb,4.8339e+00_rb,5.0310e+00_rb/)
+      kbo(:,51,10) = (/ &
+     &3.4528e+00_rb,3.8987e+00_rb,4.2685e+00_rb,4.6158e+00_rb,4.8586e+00_rb/)
+      kbo(:,52,10) = (/ &
+     &3.2373e+00_rb,3.6786e+00_rb,4.0057e+00_rb,4.3579e+00_rb,4.6615e+00_rb/)
+      kbo(:,53,10) = (/ &
+     &3.0066e+00_rb,3.4261e+00_rb,3.7660e+00_rb,4.0904e+00_rb,4.4162e+00_rb/)
+      kbo(:,54,10) = (/ &
+     &2.8305e+00_rb,3.2571e+00_rb,3.6215e+00_rb,3.9208e+00_rb,4.2651e+00_rb/)
+      kbo(:,55,10) = (/ &
+     &2.6852e+00_rb,3.0952e+00_rb,3.4961e+00_rb,3.7995e+00_rb,4.1315e+00_rb/)
+      kbo(:,56,10) = (/ &
+     &2.5024e+00_rb,2.9749e+00_rb,3.3840e+00_rb,3.6764e+00_rb,4.0215e+00_rb/)
+      kbo(:,57,10) = (/ &
+     &2.3413e+00_rb,2.8251e+00_rb,3.2333e+00_rb,3.5901e+00_rb,3.8695e+00_rb/)
+      kbo(:,58,10) = (/ &
+     &2.2399e+00_rb,2.6684e+00_rb,3.1055e+00_rb,3.4841e+00_rb,3.7568e+00_rb/)
+      kbo(:,59,10) = (/ &
+     &2.3106e+00_rb,2.6842e+00_rb,3.0911e+00_rb,3.5243e+00_rb,3.8718e+00_rb/)
+      kbo(:,13,11) = (/ &
+     &3.1114e+01_rb,3.1701e+01_rb,3.2323e+01_rb,3.2943e+01_rb,3.3516e+01_rb/)
+      kbo(:,14,11) = (/ &
+     &2.7715e+01_rb,2.8303e+01_rb,2.8933e+01_rb,2.9548e+01_rb,3.0169e+01_rb/)
+      kbo(:,15,11) = (/ &
+     &2.4338e+01_rb,2.4986e+01_rb,2.5617e+01_rb,2.6312e+01_rb,2.7005e+01_rb/)
+      kbo(:,16,11) = (/ &
+     &2.1212e+01_rb,2.1803e+01_rb,2.2432e+01_rb,2.3085e+01_rb,2.3696e+01_rb/)
+      kbo(:,17,11) = (/ &
+     &1.8965e+01_rb,1.9451e+01_rb,1.9925e+01_rb,2.0308e+01_rb,2.0718e+01_rb/)
+      kbo(:,18,11) = (/ &
+     &1.6301e+01_rb,1.6846e+01_rb,1.7358e+01_rb,1.7884e+01_rb,1.8436e+01_rb/)
+      kbo(:,19,11) = (/ &
+     &1.3305e+01_rb,1.3592e+01_rb,1.3869e+01_rb,1.4251e+01_rb,1.4704e+01_rb/)
+      kbo(:,20,11) = (/ &
+     &1.2734e+01_rb,1.2816e+01_rb,1.2643e+01_rb,1.2573e+01_rb,1.2686e+01_rb/)
+      kbo(:,21,11) = (/ &
+     &1.2657e+01_rb,1.2589e+01_rb,1.2354e+01_rb,1.2271e+01_rb,1.2114e+01_rb/)
+      kbo(:,22,11) = (/ &
+     &1.2492e+01_rb,1.2455e+01_rb,1.2170e+01_rb,1.1916e+01_rb,1.1871e+01_rb/)
+      kbo(:,23,11) = (/ &
+     &1.2437e+01_rb,1.2266e+01_rb,1.2152e+01_rb,1.1923e+01_rb,1.2016e+01_rb/)
+      kbo(:,24,11) = (/ &
+     &1.2312e+01_rb,1.2409e+01_rb,1.2179e+01_rb,1.1958e+01_rb,1.2034e+01_rb/)
+      kbo(:,25,11) = (/ &
+     &1.1905e+01_rb,1.2160e+01_rb,1.2010e+01_rb,1.2119e+01_rb,1.2127e+01_rb/)
+      kbo(:,26,11) = (/ &
+     &1.1398e+01_rb,1.1792e+01_rb,1.1851e+01_rb,1.2073e+01_rb,1.2295e+01_rb/)
+      kbo(:,27,11) = (/ &
+     &1.1115e+01_rb,1.1534e+01_rb,1.1738e+01_rb,1.2206e+01_rb,1.2469e+01_rb/)
+      kbo(:,28,11) = (/ &
+     &1.0833e+01_rb,1.1382e+01_rb,1.1757e+01_rb,1.2168e+01_rb,1.2751e+01_rb/)
+      kbo(:,29,11) = (/ &
+     &1.0849e+01_rb,1.1242e+01_rb,1.1765e+01_rb,1.2112e+01_rb,1.2581e+01_rb/)
+      kbo(:,30,11) = (/ &
+     &1.0908e+01_rb,1.1219e+01_rb,1.1698e+01_rb,1.2283e+01_rb,1.2675e+01_rb/)
+      kbo(:,31,11) = (/ &
+     &1.1065e+01_rb,1.1480e+01_rb,1.1755e+01_rb,1.2188e+01_rb,1.2848e+01_rb/)
+      kbo(:,32,11) = (/ &
+     &1.1087e+01_rb,1.1591e+01_rb,1.1912e+01_rb,1.2336e+01_rb,1.2746e+01_rb/)
+      kbo(:,33,11) = (/ &
+     &1.1325e+01_rb,1.1662e+01_rb,1.2022e+01_rb,1.2470e+01_rb,1.2619e+01_rb/)
+      kbo(:,34,11) = (/ &
+     &1.1533e+01_rb,1.1754e+01_rb,1.2155e+01_rb,1.2455e+01_rb,1.2615e+01_rb/)
+      kbo(:,35,11) = (/ &
+     &1.1659e+01_rb,1.1966e+01_rb,1.2184e+01_rb,1.2500e+01_rb,1.2545e+01_rb/)
+      kbo(:,36,11) = (/ &
+     &1.1755e+01_rb,1.2074e+01_rb,1.2225e+01_rb,1.2599e+01_rb,1.2813e+01_rb/)
+      kbo(:,37,11) = (/ &
+     &1.1716e+01_rb,1.1980e+01_rb,1.2067e+01_rb,1.2383e+01_rb,1.2671e+01_rb/)
+      kbo(:,38,11) = (/ &
+     &1.1652e+01_rb,1.1821e+01_rb,1.1815e+01_rb,1.2298e+01_rb,1.2561e+01_rb/)
+      kbo(:,39,11) = (/ &
+     &1.1437e+01_rb,1.1591e+01_rb,1.1776e+01_rb,1.2140e+01_rb,1.2306e+01_rb/)
+      kbo(:,40,11) = (/ &
+     &1.1267e+01_rb,1.1380e+01_rb,1.1567e+01_rb,1.1899e+01_rb,1.1967e+01_rb/)
+      kbo(:,41,11) = (/ &
+     &1.0928e+01_rb,1.1128e+01_rb,1.1355e+01_rb,1.1698e+01_rb,1.1735e+01_rb/)
+      kbo(:,42,11) = (/ &
+     &1.0609e+01_rb,1.0842e+01_rb,1.1168e+01_rb,1.1452e+01_rb,1.1524e+01_rb/)
+      kbo(:,43,11) = (/ &
+     &1.0251e+01_rb,1.0481e+01_rb,1.0835e+01_rb,1.1143e+01_rb,1.1300e+01_rb/)
+      kbo(:,44,11) = (/ &
+     &9.7650e+00_rb,1.0106e+01_rb,1.0340e+01_rb,1.0725e+01_rb,1.0899e+01_rb/)
+      kbo(:,45,11) = (/ &
+     &9.2584e+00_rb,9.6204e+00_rb,9.9580e+00_rb,1.0325e+01_rb,1.0626e+01_rb/)
+      kbo(:,46,11) = (/ &
+     &8.9377e+00_rb,9.1742e+00_rb,9.5458e+00_rb,9.9839e+00_rb,1.0197e+01_rb/)
+      kbo(:,47,11) = (/ &
+     &8.5371e+00_rb,8.7965e+00_rb,9.0763e+00_rb,9.5717e+00_rb,9.9938e+00_rb/)
+      kbo(:,48,11) = (/ &
+     &7.9850e+00_rb,8.3229e+00_rb,8.7471e+00_rb,9.1748e+00_rb,9.6663e+00_rb/)
+      kbo(:,49,11) = (/ &
+     &7.4325e+00_rb,7.8561e+00_rb,8.3257e+00_rb,8.9344e+00_rb,9.3488e+00_rb/)
+      kbo(:,50,11) = (/ &
+     &6.9934e+00_rb,7.5330e+00_rb,7.9938e+00_rb,8.5231e+00_rb,9.1226e+00_rb/)
+      kbo(:,51,11) = (/ &
+     &6.6292e+00_rb,7.1581e+00_rb,7.7030e+00_rb,8.1971e+00_rb,8.9077e+00_rb/)
+      kbo(:,52,11) = (/ &
+     &6.2107e+00_rb,6.7791e+00_rb,7.3981e+00_rb,7.9369e+00_rb,8.8177e+00_rb/)
+      kbo(:,53,11) = (/ &
+     &5.7771e+00_rb,6.3836e+00_rb,7.0431e+00_rb,7.8871e+00_rb,8.9292e+00_rb/)
+      kbo(:,54,11) = (/ &
+     &5.5085e+00_rb,6.1058e+00_rb,6.7091e+00_rb,7.6421e+00_rb,8.6682e+00_rb/)
+      kbo(:,55,11) = (/ &
+     &5.3542e+00_rb,5.9311e+00_rb,6.5099e+00_rb,7.2327e+00_rb,8.2463e+00_rb/)
+      kbo(:,56,11) = (/ &
+     &5.2013e+00_rb,5.6998e+00_rb,6.2622e+00_rb,6.8978e+00_rb,7.7861e+00_rb/)
+      kbo(:,57,11) = (/ &
+     &4.9844e+00_rb,5.4898e+00_rb,6.0972e+00_rb,6.6262e+00_rb,7.3665e+00_rb/)
+      kbo(:,58,11) = (/ &
+     &4.7470e+00_rb,5.3695e+00_rb,5.9047e+00_rb,6.4509e+00_rb,7.0483e+00_rb/)
+      kbo(:,59,11) = (/ &
+     &4.7734e+00_rb,5.4744e+00_rb,6.0332e+00_rb,6.5609e+00_rb,7.0505e+00_rb/)
+      kbo(:,13,12) = (/ &
+     &6.9738e+01_rb,7.0752e+01_rb,7.1414e+01_rb,7.2004e+01_rb,7.2657e+01_rb/)
+      kbo(:,14,12) = (/ &
+     &6.4422e+01_rb,6.5346e+01_rb,6.6191e+01_rb,6.7103e+01_rb,6.7985e+01_rb/)
+      kbo(:,15,12) = (/ &
+     &5.8702e+01_rb,5.9763e+01_rb,6.0895e+01_rb,6.1978e+01_rb,6.3157e+01_rb/)
+      kbo(:,16,12) = (/ &
+     &5.3091e+01_rb,5.4316e+01_rb,5.5558e+01_rb,5.6938e+01_rb,5.8399e+01_rb/)
+      kbo(:,17,12) = (/ &
+     &4.7175e+01_rb,4.8634e+01_rb,5.0234e+01_rb,5.1992e+01_rb,5.3803e+01_rb/)
+      kbo(:,18,12) = (/ &
+     &4.1145e+01_rb,4.2755e+01_rb,4.4548e+01_rb,4.6436e+01_rb,4.8468e+01_rb/)
+      kbo(:,19,12) = (/ &
+     &3.4889e+01_rb,3.6512e+01_rb,3.8406e+01_rb,4.0570e+01_rb,4.2997e+01_rb/)
+      kbo(:,20,12) = (/ &
+     &2.8470e+01_rb,3.0112e+01_rb,3.2281e+01_rb,3.4662e+01_rb,3.7243e+01_rb/)
+      kbo(:,21,12) = (/ &
+     &2.3947e+01_rb,2.5322e+01_rb,2.7206e+01_rb,2.9369e+01_rb,3.2034e+01_rb/)
+      kbo(:,22,12) = (/ &
+     &2.2071e+01_rb,2.2771e+01_rb,2.4136e+01_rb,2.6151e+01_rb,2.8304e+01_rb/)
+      kbo(:,23,12) = (/ &
+     &2.1437e+01_rb,2.2028e+01_rb,2.2789e+01_rb,2.3769e+01_rb,2.5664e+01_rb/)
+      kbo(:,24,12) = (/ &
+     &2.1104e+01_rb,2.1623e+01_rb,2.2496e+01_rb,2.3486e+01_rb,2.4592e+01_rb/)
+      kbo(:,25,12) = (/ &
+     &2.1238e+01_rb,2.1868e+01_rb,2.2645e+01_rb,2.3461e+01_rb,2.4762e+01_rb/)
+      kbo(:,26,12) = (/ &
+     &2.1604e+01_rb,2.2258e+01_rb,2.3294e+01_rb,2.4121e+01_rb,2.5265e+01_rb/)
+      kbo(:,27,12) = (/ &
+     &2.2115e+01_rb,2.2777e+01_rb,2.3909e+01_rb,2.4766e+01_rb,2.5867e+01_rb/)
+      kbo(:,28,12) = (/ &
+     &2.2448e+01_rb,2.3238e+01_rb,2.4298e+01_rb,2.5624e+01_rb,2.6343e+01_rb/)
+      kbo(:,29,12) = (/ &
+     &2.2577e+01_rb,2.3289e+01_rb,2.4323e+01_rb,2.5634e+01_rb,2.6765e+01_rb/)
+      kbo(:,30,12) = (/ &
+     &2.2578e+01_rb,2.3315e+01_rb,2.4386e+01_rb,2.5500e+01_rb,2.6908e+01_rb/)
+      kbo(:,31,12) = (/ &
+     &2.2201e+01_rb,2.3259e+01_rb,2.4131e+01_rb,2.5149e+01_rb,2.6545e+01_rb/)
+      kbo(:,32,12) = (/ &
+     &2.2079e+01_rb,2.2922e+01_rb,2.4111e+01_rb,2.5430e+01_rb,2.6527e+01_rb/)
+      kbo(:,33,12) = (/ &
+     &2.2095e+01_rb,2.2961e+01_rb,2.4279e+01_rb,2.5414e+01_rb,2.7005e+01_rb/)
+      kbo(:,34,12) = (/ &
+     &2.2319e+01_rb,2.3341e+01_rb,2.4447e+01_rb,2.6277e+01_rb,2.7940e+01_rb/)
+      kbo(:,35,12) = (/ &
+     &2.2552e+01_rb,2.3701e+01_rb,2.5211e+01_rb,2.6844e+01_rb,2.9224e+01_rb/)
+      kbo(:,36,12) = (/ &
+     &2.3085e+01_rb,2.4181e+01_rb,2.5665e+01_rb,2.7600e+01_rb,3.0387e+01_rb/)
+      kbo(:,37,12) = (/ &
+     &2.2925e+01_rb,2.4128e+01_rb,2.5553e+01_rb,2.7616e+01_rb,3.1077e+01_rb/)
+      kbo(:,38,12) = (/ &
+     &2.2707e+01_rb,2.3887e+01_rb,2.5581e+01_rb,2.8109e+01_rb,3.1584e+01_rb/)
+      kbo(:,39,12) = (/ &
+     &2.2511e+01_rb,2.3842e+01_rb,2.5754e+01_rb,2.8880e+01_rb,3.2658e+01_rb/)
+      kbo(:,40,12) = (/ &
+     &2.1948e+01_rb,2.3291e+01_rb,2.5416e+01_rb,2.8638e+01_rb,3.2604e+01_rb/)
+      kbo(:,41,12) = (/ &
+     &2.1476e+01_rb,2.2682e+01_rb,2.5024e+01_rb,2.8295e+01_rb,3.2225e+01_rb/)
+      kbo(:,42,12) = (/ &
+     &2.0874e+01_rb,2.2077e+01_rb,2.4841e+01_rb,2.8049e+01_rb,3.2070e+01_rb/)
+      kbo(:,43,12) = (/ &
+     &2.0317e+01_rb,2.1501e+01_rb,2.4302e+01_rb,2.7503e+01_rb,3.1532e+01_rb/)
+      kbo(:,44,12) = (/ &
+     &1.9539e+01_rb,2.0870e+01_rb,2.3855e+01_rb,2.7092e+01_rb,3.1110e+01_rb/)
+      kbo(:,45,12) = (/ &
+     &1.8830e+01_rb,2.0599e+01_rb,2.3570e+01_rb,2.6837e+01_rb,3.0566e+01_rb/)
+      kbo(:,46,12) = (/ &
+     &1.8029e+01_rb,2.0375e+01_rb,2.3363e+01_rb,2.6419e+01_rb,3.0085e+01_rb/)
+      kbo(:,47,12) = (/ &
+     &1.7365e+01_rb,1.9999e+01_rb,2.2921e+01_rb,2.5901e+01_rb,2.9166e+01_rb/)
+      kbo(:,48,12) = (/ &
+     &1.7043e+01_rb,1.9606e+01_rb,2.2433e+01_rb,2.5542e+01_rb,2.8495e+01_rb/)
+      kbo(:,49,12) = (/ &
+     &1.6912e+01_rb,1.9487e+01_rb,2.2139e+01_rb,2.5022e+01_rb,2.8110e+01_rb/)
+      kbo(:,50,12) = (/ &
+     &1.6517e+01_rb,1.8987e+01_rb,2.1585e+01_rb,2.4422e+01_rb,2.7428e+01_rb/)
+      kbo(:,51,12) = (/ &
+     &1.5891e+01_rb,1.8550e+01_rb,2.1056e+01_rb,2.3767e+01_rb,2.6461e+01_rb/)
+      kbo(:,52,12) = (/ &
+     &1.5362e+01_rb,1.8085e+01_rb,2.0538e+01_rb,2.3135e+01_rb,2.5477e+01_rb/)
+      kbo(:,53,12) = (/ &
+     &1.4979e+01_rb,1.7596e+01_rb,2.0169e+01_rb,2.2304e+01_rb,2.4351e+01_rb/)
+      kbo(:,54,12) = (/ &
+     &1.4292e+01_rb,1.6762e+01_rb,1.9386e+01_rb,2.1407e+01_rb,2.3360e+01_rb/)
+      kbo(:,55,12) = (/ &
+     &1.3424e+01_rb,1.5675e+01_rb,1.8295e+01_rb,2.0550e+01_rb,2.2398e+01_rb/)
+      kbo(:,56,12) = (/ &
+     &1.2558e+01_rb,1.4702e+01_rb,1.7198e+01_rb,1.9642e+01_rb,2.1560e+01_rb/)
+      kbo(:,57,12) = (/ &
+     &1.1789e+01_rb,1.3891e+01_rb,1.6101e+01_rb,1.8574e+01_rb,2.0696e+01_rb/)
+      kbo(:,58,12) = (/ &
+     &1.0944e+01_rb,1.2980e+01_rb,1.5007e+01_rb,1.7361e+01_rb,1.9688e+01_rb/)
+      kbo(:,59,12) = (/ &
+     &1.0805e+01_rb,1.1957e+01_rb,1.3692e+01_rb,1.5846e+01_rb,1.8110e+01_rb/)
+      kbo(:,13,13) = (/ &
+     &1.5252e+02_rb,1.5442e+02_rb,1.5646e+02_rb,1.5779e+02_rb,1.5854e+02_rb/)
+      kbo(:,14,13) = (/ &
+     &1.5029e+02_rb,1.5315e+02_rb,1.5552e+02_rb,1.5711e+02_rb,1.5813e+02_rb/)
+      kbo(:,15,13) = (/ &
+     &1.4712e+02_rb,1.5063e+02_rb,1.5294e+02_rb,1.5483e+02_rb,1.5630e+02_rb/)
+      kbo(:,16,13) = (/ &
+     &1.4282e+02_rb,1.4612e+02_rb,1.4898e+02_rb,1.5141e+02_rb,1.5352e+02_rb/)
+      kbo(:,17,13) = (/ &
+     &1.3686e+02_rb,1.4066e+02_rb,1.4417e+02_rb,1.4736e+02_rb,1.5020e+02_rb/)
+      kbo(:,18,13) = (/ &
+     &1.3031e+02_rb,1.3486e+02_rb,1.3910e+02_rb,1.4308e+02_rb,1.4669e+02_rb/)
+      kbo(:,19,13) = (/ &
+     &1.2305e+02_rb,1.2878e+02_rb,1.3410e+02_rb,1.3882e+02_rb,1.4318e+02_rb/)
+      kbo(:,20,13) = (/ &
+     &1.1539e+02_rb,1.2206e+02_rb,1.2838e+02_rb,1.3444e+02_rb,1.4010e+02_rb/)
+      kbo(:,21,13) = (/ &
+     &1.0694e+02_rb,1.1477e+02_rb,1.2233e+02_rb,1.2972e+02_rb,1.3638e+02_rb/)
+      kbo(:,22,13) = (/ &
+     &9.8072e+01_rb,1.0767e+02_rb,1.1673e+02_rb,1.2508e+02_rb,1.3303e+02_rb/)
+      kbo(:,23,13) = (/ &
+     &8.9638e+01_rb,1.0003e+02_rb,1.1035e+02_rb,1.2081e+02_rb,1.2954e+02_rb/)
+      kbo(:,24,13) = (/ &
+     &8.2450e+01_rb,9.3359e+01_rb,1.0421e+02_rb,1.1509e+02_rb,1.2544e+02_rb/)
+      kbo(:,25,13) = (/ &
+     &7.6879e+01_rb,8.7792e+01_rb,9.9290e+01_rb,1.1048e+02_rb,1.2100e+02_rb/)
+      kbo(:,26,13) = (/ &
+     &7.3470e+01_rb,8.4233e+01_rb,9.5225e+01_rb,1.0688e+02_rb,1.1752e+02_rb/)
+      kbo(:,27,13) = (/ &
+     &7.1984e+01_rb,8.2203e+01_rb,9.3044e+01_rb,1.0438e+02_rb,1.1537e+02_rb/)
+      kbo(:,28,13) = (/ &
+     &7.1683e+01_rb,8.1066e+01_rb,9.2180e+01_rb,1.0291e+02_rb,1.1419e+02_rb/)
+      kbo(:,29,13) = (/ &
+     &7.3240e+01_rb,8.2713e+01_rb,9.3261e+01_rb,1.0420e+02_rb,1.1497e+02_rb/)
+      kbo(:,30,13) = (/ &
+     &7.5656e+01_rb,8.5740e+01_rb,9.5155e+01_rb,1.0607e+02_rb,1.1653e+02_rb/)
+      kbo(:,31,13) = (/ &
+     &7.9639e+01_rb,8.9485e+01_rb,9.9623e+01_rb,1.0965e+02_rb,1.1967e+02_rb/)
+      kbo(:,32,13) = (/ &
+     &8.5052e+01_rb,9.4635e+01_rb,1.0433e+02_rb,1.1321e+02_rb,1.2287e+02_rb/)
+      kbo(:,33,13) = (/ &
+     &9.0468e+01_rb,1.0058e+02_rb,1.0969e+02_rb,1.1864e+02_rb,1.2671e+02_rb/)
+      kbo(:,34,13) = (/ &
+     &9.5615e+01_rb,1.0581e+02_rb,1.1476e+02_rb,1.2258e+02_rb,1.3070e+02_rb/)
+      kbo(:,35,13) = (/ &
+     &9.9168e+01_rb,1.0972e+02_rb,1.1933e+02_rb,1.2712e+02_rb,1.3373e+02_rb/)
+      kbo(:,36,13) = (/ &
+     &1.0086e+02_rb,1.1164e+02_rb,1.2168e+02_rb,1.3014e+02_rb,1.3667e+02_rb/)
+      kbo(:,37,13) = (/ &
+     &1.0047e+02_rb,1.1211e+02_rb,1.2253e+02_rb,1.3099e+02_rb,1.3706e+02_rb/)
+      kbo(:,38,13) = (/ &
+     &1.0049e+02_rb,1.1250e+02_rb,1.2313e+02_rb,1.3108e+02_rb,1.3732e+02_rb/)
+      kbo(:,39,13) = (/ &
+     &1.0115e+02_rb,1.1295e+02_rb,1.2350e+02_rb,1.3105e+02_rb,1.3768e+02_rb/)
+      kbo(:,40,13) = (/ &
+     &9.9765e+01_rb,1.1141e+02_rb,1.2196e+02_rb,1.2992e+02_rb,1.3631e+02_rb/)
+      kbo(:,41,13) = (/ &
+     &9.8221e+01_rb,1.1003e+02_rb,1.2037e+02_rb,1.2825e+02_rb,1.3487e+02_rb/)
+      kbo(:,42,13) = (/ &
+     &9.7048e+01_rb,1.0845e+02_rb,1.1823e+02_rb,1.2668e+02_rb,1.3349e+02_rb/)
+      kbo(:,43,13) = (/ &
+     &9.4582e+01_rb,1.0608e+02_rb,1.1575e+02_rb,1.2424e+02_rb,1.3118e+02_rb/)
+      kbo(:,44,13) = (/ &
+     &9.2428e+01_rb,1.0325e+02_rb,1.1298e+02_rb,1.2159e+02_rb,1.2888e+02_rb/)
+      kbo(:,45,13) = (/ &
+     &9.0012e+01_rb,1.0014e+02_rb,1.0975e+02_rb,1.1855e+02_rb,1.2634e+02_rb/)
+      kbo(:,46,13) = (/ &
+     &8.6912e+01_rb,9.6825e+01_rb,1.0618e+02_rb,1.1559e+02_rb,1.2362e+02_rb/)
+      kbo(:,47,13) = (/ &
+     &8.3243e+01_rb,9.2791e+01_rb,1.0216e+02_rb,1.1173e+02_rb,1.2014e+02_rb/)
+      kbo(:,48,13) = (/ &
+     &7.9277e+01_rb,8.8596e+01_rb,9.7998e+01_rb,1.0757e+02_rb,1.1661e+02_rb/)
+      kbo(:,49,13) = (/ &
+     &7.5292e+01_rb,8.4192e+01_rb,9.3715e+01_rb,1.0350e+02_rb,1.1301e+02_rb/)
+      kbo(:,50,13) = (/ &
+     &7.1230e+01_rb,8.0247e+01_rb,8.9698e+01_rb,9.9552e+01_rb,1.0903e+02_rb/)
+      kbo(:,51,13) = (/ &
+     &6.7476e+01_rb,7.6410e+01_rb,8.5492e+01_rb,9.5376e+01_rb,1.0529e+02_rb/)
+      kbo(:,52,13) = (/ &
+     &6.3984e+01_rb,7.2323e+01_rb,8.1379e+01_rb,9.1669e+01_rb,1.0161e+02_rb/)
+      kbo(:,53,13) = (/ &
+     &6.0507e+01_rb,6.8710e+01_rb,7.7291e+01_rb,8.7376e+01_rb,9.7642e+01_rb/)
+      kbo(:,54,13) = (/ &
+     &5.7140e+01_rb,6.5369e+01_rb,7.3636e+01_rb,8.3548e+01_rb,9.3708e+01_rb/)
+      kbo(:,55,13) = (/ &
+     &5.3812e+01_rb,6.2020e+01_rb,7.0040e+01_rb,7.9975e+01_rb,8.9949e+01_rb/)
+      kbo(:,56,13) = (/ &
+     &5.0680e+01_rb,5.8469e+01_rb,6.6837e+01_rb,7.6130e+01_rb,8.6168e+01_rb/)
+      kbo(:,57,13) = (/ &
+     &4.7704e+01_rb,5.5283e+01_rb,6.3212e+01_rb,7.2482e+01_rb,8.2593e+01_rb/)
+      kbo(:,58,13) = (/ &
+     &4.4831e+01_rb,5.2037e+01_rb,6.0082e+01_rb,6.9516e+01_rb,7.9098e+01_rb/)
+      kbo(:,59,13) = (/ &
+     &4.1993e+01_rb,5.0276e+01_rb,5.8426e+01_rb,6.7849e+01_rb,7.7045e+01_rb/)
+      kbo(:,13,14) = (/ &
+     &3.2192e+02_rb,3.1800e+02_rb,3.1299e+02_rb,3.0833e+02_rb,3.0378e+02_rb/)
+      kbo(:,14,14) = (/ &
+     &3.3616e+02_rb,3.3204e+02_rb,3.2756e+02_rb,3.2328e+02_rb,3.1928e+02_rb/)
+      kbo(:,15,14) = (/ &
+     &3.4851e+02_rb,3.4454e+02_rb,3.4128e+02_rb,3.3796e+02_rb,3.3453e+02_rb/)
+      kbo(:,16,14) = (/ &
+     &3.5910e+02_rb,3.5703e+02_rb,3.5472e+02_rb,3.5212e+02_rb,3.4919e+02_rb/)
+      kbo(:,17,14) = (/ &
+     &3.6944e+02_rb,3.6874e+02_rb,3.6739e+02_rb,3.6541e+02_rb,3.6285e+02_rb/)
+      kbo(:,18,14) = (/ &
+     &3.7860e+02_rb,3.7918e+02_rb,3.7877e+02_rb,3.7733e+02_rb,3.7491e+02_rb/)
+      kbo(:,19,14) = (/ &
+     &3.8633e+02_rb,3.8813e+02_rb,3.8858e+02_rb,3.8768e+02_rb,3.8541e+02_rb/)
+      kbo(:,20,14) = (/ &
+     &3.9291e+02_rb,3.9591e+02_rb,3.9708e+02_rb,3.9648e+02_rb,3.9435e+02_rb/)
+      kbo(:,21,14) = (/ &
+     &3.9871e+02_rb,4.0263e+02_rb,4.0428e+02_rb,4.0401e+02_rb,4.0199e+02_rb/)
+      kbo(:,22,14) = (/ &
+     &4.0411e+02_rb,4.0861e+02_rb,4.1054e+02_rb,4.1035e+02_rb,4.0818e+02_rb/)
+      kbo(:,23,14) = (/ &
+     &4.0907e+02_rb,4.1390e+02_rb,4.1591e+02_rb,4.1564e+02_rb,4.1319e+02_rb/)
+      kbo(:,24,14) = (/ &
+     &4.1361e+02_rb,4.1846e+02_rb,4.2039e+02_rb,4.1994e+02_rb,4.1722e+02_rb/)
+      kbo(:,25,14) = (/ &
+     &4.1735e+02_rb,4.2250e+02_rb,4.2427e+02_rb,4.2345e+02_rb,4.2038e+02_rb/)
+      kbo(:,26,14) = (/ &
+     &4.2023e+02_rb,4.2561e+02_rb,4.2741e+02_rb,4.2618e+02_rb,4.2275e+02_rb/)
+      kbo(:,27,14) = (/ &
+     &4.2191e+02_rb,4.2794e+02_rb,4.2966e+02_rb,4.2833e+02_rb,4.2447e+02_rb/)
+      kbo(:,28,14) = (/ &
+     &4.2376e+02_rb,4.3047e+02_rb,4.3157e+02_rb,4.2984e+02_rb,4.2560e+02_rb/)
+      kbo(:,29,14) = (/ &
+     &4.2494e+02_rb,4.3173e+02_rb,4.3312e+02_rb,4.3087e+02_rb,4.2623e+02_rb/)
+      kbo(:,30,14) = (/ &
+     &4.2606e+02_rb,4.3133e+02_rb,4.3417e+02_rb,4.3157e+02_rb,4.2642e+02_rb/)
+      kbo(:,31,14) = (/ &
+     &4.2650e+02_rb,4.3107e+02_rb,4.3305e+02_rb,4.3172e+02_rb,4.2612e+02_rb/)
+      kbo(:,32,14) = (/ &
+     &4.2471e+02_rb,4.2957e+02_rb,4.3084e+02_rb,4.2984e+02_rb,4.2547e+02_rb/)
+      kbo(:,33,14) = (/ &
+     &4.2258e+02_rb,4.2628e+02_rb,4.2740e+02_rb,4.2572e+02_rb,4.2270e+02_rb/)
+      kbo(:,34,14) = (/ &
+     &4.1904e+02_rb,4.2166e+02_rb,4.2281e+02_rb,4.2119e+02_rb,4.1745e+02_rb/)
+      kbo(:,35,14) = (/ &
+     &4.1547e+02_rb,4.1665e+02_rb,4.1587e+02_rb,4.1430e+02_rb,4.1140e+02_rb/)
+      kbo(:,36,14) = (/ &
+     &4.1132e+02_rb,4.1218e+02_rb,4.1072e+02_rb,4.0729e+02_rb,4.0326e+02_rb/)
+      kbo(:,37,14) = (/ &
+     &4.1025e+02_rb,4.1006e+02_rb,4.0857e+02_rb,4.0548e+02_rb,4.0090e+02_rb/)
+      kbo(:,38,14) = (/ &
+     &4.0864e+02_rb,4.0868e+02_rb,4.0686e+02_rb,4.0372e+02_rb,3.9921e+02_rb/)
+      kbo(:,39,14) = (/ &
+     &4.0644e+02_rb,4.0717e+02_rb,4.0510e+02_rb,4.0183e+02_rb,3.9677e+02_rb/)
+      kbo(:,40,14) = (/ &
+     &4.0674e+02_rb,4.0768e+02_rb,4.0593e+02_rb,4.0263e+02_rb,3.9822e+02_rb/)
+      kbo(:,41,14) = (/ &
+     &4.0619e+02_rb,4.0758e+02_rb,4.0668e+02_rb,4.0411e+02_rb,4.0014e+02_rb/)
+      kbo(:,42,14) = (/ &
+     &4.0516e+02_rb,4.0769e+02_rb,4.0744e+02_rb,4.0512e+02_rb,4.0147e+02_rb/)
+      kbo(:,43,14) = (/ &
+     &4.0427e+02_rb,4.0784e+02_rb,4.0882e+02_rb,4.0743e+02_rb,4.0425e+02_rb/)
+      kbo(:,44,14) = (/ &
+     &4.0222e+02_rb,4.0791e+02_rb,4.0985e+02_rb,4.0932e+02_rb,4.0671e+02_rb/)
+      kbo(:,45,14) = (/ &
+     &4.0049e+02_rb,4.0766e+02_rb,4.1090e+02_rb,4.1120e+02_rb,4.0941e+02_rb/)
+      kbo(:,46,14) = (/ &
+     &3.9818e+02_rb,4.0642e+02_rb,4.1148e+02_rb,4.1248e+02_rb,4.1163e+02_rb/)
+      kbo(:,47,14) = (/ &
+     &3.9380e+02_rb,4.0435e+02_rb,4.1138e+02_rb,4.1374e+02_rb,4.1407e+02_rb/)
+      kbo(:,48,14) = (/ &
+     &3.8928e+02_rb,4.0188e+02_rb,4.1084e+02_rb,4.1473e+02_rb,4.1611e+02_rb/)
+      kbo(:,49,14) = (/ &
+     &3.8359e+02_rb,3.9878e+02_rb,4.0957e+02_rb,4.1507e+02_rb,4.1710e+02_rb/)
+      kbo(:,50,14) = (/ &
+     &3.7809e+02_rb,3.9485e+02_rb,4.0769e+02_rb,4.1481e+02_rb,4.1835e+02_rb/)
+      kbo(:,51,14) = (/ &
+     &3.7168e+02_rb,3.9024e+02_rb,4.0538e+02_rb,4.1442e+02_rb,4.1907e+02_rb/)
+      kbo(:,52,14) = (/ &
+     &3.6416e+02_rb,3.8544e+02_rb,4.0242e+02_rb,4.1266e+02_rb,4.1894e+02_rb/)
+      kbo(:,53,14) = (/ &
+     &3.5526e+02_rb,3.7935e+02_rb,3.9858e+02_rb,4.1114e+02_rb,4.1870e+02_rb/)
+      kbo(:,54,14) = (/ &
+     &3.4652e+02_rb,3.7311e+02_rb,3.9451e+02_rb,4.0902e+02_rb,4.1841e+02_rb/)
+      kbo(:,55,14) = (/ &
+     &3.3749e+02_rb,3.6678e+02_rb,3.9033e+02_rb,4.0637e+02_rb,4.1776e+02_rb/)
+      kbo(:,56,14) = (/ &
+     &3.2816e+02_rb,3.6010e+02_rb,3.8512e+02_rb,4.0357e+02_rb,4.1651e+02_rb/)
+      kbo(:,57,14) = (/ &
+     &3.1792e+02_rb,3.5199e+02_rb,3.7987e+02_rb,4.0009e+02_rb,4.1450e+02_rb/)
+      kbo(:,58,14) = (/ &
+     &3.0792e+02_rb,3.4419e+02_rb,3.7396e+02_rb,3.9574e+02_rb,4.1235e+02_rb/)
+      kbo(:,59,14) = (/ &
+     &3.0450e+02_rb,3.4137e+02_rb,3.7215e+02_rb,3.9490e+02_rb,4.1294e+02_rb/)
+      kbo(:,13,15) = (/ &
+     &5.8728e+02_rb,5.6960e+02_rb,5.5469e+02_rb,5.4056e+02_rb,5.2654e+02_rb/)
+      kbo(:,14,15) = (/ &
+     &6.4066e+02_rb,6.2243e+02_rb,6.0593e+02_rb,5.8946e+02_rb,5.7294e+02_rb/)
+      kbo(:,15,15) = (/ &
+     &6.9682e+02_rb,6.7763e+02_rb,6.5849e+02_rb,6.3897e+02_rb,6.1931e+02_rb/)
+      kbo(:,16,15) = (/ &
+     &7.5471e+02_rb,7.3292e+02_rb,7.1026e+02_rb,6.8716e+02_rb,6.6402e+02_rb/)
+      kbo(:,17,15) = (/ &
+     &8.1231e+02_rb,7.8651e+02_rb,7.5977e+02_rb,7.3284e+02_rb,7.0637e+02_rb/)
+      kbo(:,18,15) = (/ &
+     &8.6774e+02_rb,8.3725e+02_rb,8.0641e+02_rb,7.7597e+02_rb,7.4653e+02_rb/)
+      kbo(:,19,15) = (/ &
+     &9.1989e+02_rb,8.8492e+02_rb,8.5007e+02_rb,8.1594e+02_rb,7.8315e+02_rb/)
+      kbo(:,20,15) = (/ &
+     &9.6712e+02_rb,9.2752e+02_rb,8.8885e+02_rb,8.5117e+02_rb,8.1509e+02_rb/)
+      kbo(:,21,15) = (/ &
+     &1.0088e+03_rb,9.6497e+02_rb,9.2264e+02_rb,8.8175e+02_rb,8.4261e+02_rb/)
+      kbo(:,22,15) = (/ &
+     &1.0418e+03_rb,9.9399e+02_rb,9.4844e+02_rb,9.0461e+02_rb,8.6306e+02_rb/)
+      kbo(:,23,15) = (/ &
+     &1.0679e+03_rb,1.0170e+03_rb,9.6858e+02_rb,9.2246e+02_rb,8.7882e+02_rb/)
+      kbo(:,24,15) = (/ &
+     &1.0878e+03_rb,1.0343e+03_rb,9.8346e+02_rb,9.3530e+02_rb,8.9008e+02_rb/)
+      kbo(:,25,15) = (/ &
+     &1.1017e+03_rb,1.0460e+03_rb,9.9332e+02_rb,9.4368e+02_rb,8.9722e+02_rb/)
+      kbo(:,26,15) = (/ &
+     &1.1097e+03_rb,1.0523e+03_rb,9.9837e+02_rb,9.4761e+02_rb,9.0024e+02_rb/)
+      kbo(:,27,15) = (/ &
+     &1.1134e+03_rb,1.0547e+03_rb,9.9983e+02_rb,9.4851e+02_rb,9.0041e+02_rb/)
+      kbo(:,28,15) = (/ &
+     &1.1133e+03_rb,1.0539e+03_rb,9.9848e+02_rb,9.4685e+02_rb,8.9828e+02_rb/)
+      kbo(:,29,15) = (/ &
+     &1.1100e+03_rb,1.0502e+03_rb,9.9454e+02_rb,9.4272e+02_rb,8.9398e+02_rb/)
+      kbo(:,30,15) = (/ &
+     &1.1040e+03_rb,1.0443e+03_rb,9.8865e+02_rb,9.3687e+02_rb,8.8821e+02_rb/)
+      kbo(:,31,15) = (/ &
+     &1.0960e+03_rb,1.0364e+03_rb,9.8114e+02_rb,9.2948e+02_rb,8.8105e+02_rb/)
+      kbo(:,32,15) = (/ &
+     &1.0862e+03_rb,1.0270e+03_rb,9.7213e+02_rb,9.2091e+02_rb,8.7298e+02_rb/)
+      kbo(:,33,15) = (/ &
+     &1.0752e+03_rb,1.0167e+03_rb,9.6230e+02_rb,9.1136e+02_rb,8.6427e+02_rb/)
+      kbo(:,34,15) = (/ &
+     &1.0653e+03_rb,1.0075e+03_rb,9.5353e+02_rb,9.0314e+02_rb,8.5654e+02_rb/)
+      kbo(:,35,15) = (/ &
+     &1.0607e+03_rb,1.0031e+03_rb,9.4921e+02_rb,8.9900e+02_rb,8.5273e+02_rb/)
+      kbo(:,36,15) = (/ &
+     &1.0620e+03_rb,1.0042e+03_rb,9.5018e+02_rb,8.9983e+02_rb,8.5343e+02_rb/)
+      kbo(:,37,15) = (/ &
+     &1.0721e+03_rb,1.0134e+03_rb,9.5885e+02_rb,9.0773e+02_rb,8.6067e+02_rb/)
+      kbo(:,38,15) = (/ &
+     &1.0824e+03_rb,1.0229e+03_rb,9.6769e+02_rb,9.1592e+02_rb,8.6811e+02_rb/)
+      kbo(:,39,15) = (/ &
+     &1.0926e+03_rb,1.0322e+03_rb,9.7633e+02_rb,9.2388e+02_rb,8.7544e+02_rb/)
+      kbo(:,40,15) = (/ &
+     &1.1061e+03_rb,1.0474e+03_rb,9.9047e+02_rb,9.3721e+02_rb,8.8756e+02_rb/)
+      kbo(:,41,15) = (/ &
+     &1.1226e+03_rb,1.0637e+03_rb,1.0055e+03_rb,9.5118e+02_rb,9.0046e+02_rb/)
+      kbo(:,42,15) = (/ &
+     &1.1394e+03_rb,1.0801e+03_rb,1.0206e+03_rb,9.6537e+02_rb,9.1362e+02_rb/)
+      kbo(:,43,15) = (/ &
+     &1.1611e+03_rb,1.1003e+03_rb,1.0393e+03_rb,9.8274e+02_rb,9.2982e+02_rb/)
+      kbo(:,44,15) = (/ &
+     &1.1862e+03_rb,1.1226e+03_rb,1.0598e+03_rb,1.0018e+03_rb,9.4776e+02_rb/)
+      kbo(:,45,15) = (/ &
+     &1.2106e+03_rb,1.1455e+03_rb,1.0808e+03_rb,1.0212e+03_rb,9.6597e+02_rb/)
+      kbo(:,46,15) = (/ &
+     &1.2373e+03_rb,1.1703e+03_rb,1.1039e+03_rb,1.0424e+03_rb,9.8575e+02_rb/)
+      kbo(:,47,15) = (/ &
+     &1.2689e+03_rb,1.1988e+03_rb,1.1303e+03_rb,1.0668e+03_rb,1.0082e+03_rb/)
+      kbo(:,48,15) = (/ &
+     &1.2999e+03_rb,1.2281e+03_rb,1.1575e+03_rb,1.0920e+03_rb,1.0314e+03_rb/)
+      kbo(:,49,15) = (/ &
+     &1.3314e+03_rb,1.2580e+03_rb,1.1855e+03_rb,1.1179e+03_rb,1.0553e+03_rb/)
+      kbo(:,50,15) = (/ &
+     &1.3612e+03_rb,1.2867e+03_rb,1.2124e+03_rb,1.1430e+03_rb,1.0785e+03_rb/)
+      kbo(:,51,15) = (/ &
+     &1.3905e+03_rb,1.3151e+03_rb,1.2392e+03_rb,1.1679e+03_rb,1.1016e+03_rb/)
+      kbo(:,52,15) = (/ &
+     &1.4202e+03_rb,1.3438e+03_rb,1.2667e+03_rb,1.1935e+03_rb,1.1254e+03_rb/)
+      kbo(:,53,15) = (/ &
+     &1.4513e+03_rb,1.3727e+03_rb,1.2946e+03_rb,1.2198e+03_rb,1.1498e+03_rb/)
+      kbo(:,54,15) = (/ &
+     &1.4800e+03_rb,1.3995e+03_rb,1.3206e+03_rb,1.2445e+03_rb,1.1728e+03_rb/)
+      kbo(:,55,15) = (/ &
+     &1.5077e+03_rb,1.4256e+03_rb,1.3457e+03_rb,1.2685e+03_rb,1.1953e+03_rb/)
+      kbo(:,56,15) = (/ &
+     &1.5346e+03_rb,1.4518e+03_rb,1.3711e+03_rb,1.2930e+03_rb,1.2182e+03_rb/)
+      kbo(:,57,15) = (/ &
+     &1.5614e+03_rb,1.4781e+03_rb,1.3967e+03_rb,1.3177e+03_rb,1.2417e+03_rb/)
+      kbo(:,58,15) = (/ &
+     &1.5868e+03_rb,1.5034e+03_rb,1.4212e+03_rb,1.3415e+03_rb,1.2645e+03_rb/)
+      kbo(:,59,15) = (/ &
+     &1.5970e+03_rb,1.5135e+03_rb,1.4312e+03_rb,1.3511e+03_rb,1.2737e+03_rb/)
+      kbo(:,13,16) = (/ &
+     &9.8102e+02_rb,9.4348e+02_rb,9.0592e+02_rb,8.7102e+02_rb,8.4003e+02_rb/)
+      kbo(:,14,16) = (/ &
+     &1.1017e+03_rb,1.0558e+03_rb,1.0119e+03_rb,9.7251e+02_rb,9.3606e+02_rb/)
+      kbo(:,15,16) = (/ &
+     &1.2294e+03_rb,1.1733e+03_rb,1.1221e+03_rb,1.0765e+03_rb,1.0331e+03_rb/)
+      kbo(:,16,16) = (/ &
+     &1.3605e+03_rb,1.2927e+03_rb,1.2335e+03_rb,1.1795e+03_rb,1.1282e+03_rb/)
+      kbo(:,17,16) = (/ &
+     &1.4907e+03_rb,1.4118e+03_rb,1.3426e+03_rb,1.2786e+03_rb,1.2181e+03_rb/)
+      kbo(:,18,16) = (/ &
+     &1.6164e+03_rb,1.5261e+03_rb,1.4460e+03_rb,1.3720e+03_rb,1.3020e+03_rb/)
+      kbo(:,19,16) = (/ &
+     &1.7353e+03_rb,1.6329e+03_rb,1.5412e+03_rb,1.4568e+03_rb,1.3777e+03_rb/)
+      kbo(:,20,16) = (/ &
+     &1.8432e+03_rb,1.7287e+03_rb,1.6256e+03_rb,1.5311e+03_rb,1.4432e+03_rb/)
+      kbo(:,21,16) = (/ &
+     &1.9386e+03_rb,1.8123e+03_rb,1.6986e+03_rb,1.5948e+03_rb,1.4993e+03_rb/)
+      kbo(:,22,16) = (/ &
+     &2.0105e+03_rb,1.8749e+03_rb,1.7520e+03_rb,1.6411e+03_rb,1.5395e+03_rb/)
+      kbo(:,23,16) = (/ &
+     &2.0682e+03_rb,1.9239e+03_rb,1.7938e+03_rb,1.6758e+03_rb,1.5698e+03_rb/)
+      kbo(:,24,16) = (/ &
+     &2.1097e+03_rb,1.9590e+03_rb,1.8231e+03_rb,1.7013e+03_rb,1.5912e+03_rb/)
+      kbo(:,25,16) = (/ &
+     &2.1366e+03_rb,1.9806e+03_rb,1.8412e+03_rb,1.7160e+03_rb,1.6035e+03_rb/)
+      kbo(:,26,16) = (/ &
+     &2.1483e+03_rb,1.9894e+03_rb,1.8477e+03_rb,1.7210e+03_rb,1.6077e+03_rb/)
+      kbo(:,27,16) = (/ &
+     &2.1499e+03_rb,1.9893e+03_rb,1.8466e+03_rb,1.7191e+03_rb,1.6062e+03_rb/)
+      kbo(:,28,16) = (/ &
+     &2.1427e+03_rb,1.9818e+03_rb,1.8393e+03_rb,1.7119e+03_rb,1.6006e+03_rb/)
+      kbo(:,29,16) = (/ &
+     &2.1277e+03_rb,1.9675e+03_rb,1.8260e+03_rb,1.6998e+03_rb,1.5909e+03_rb/)
+      kbo(:,30,16) = (/ &
+     &2.1075e+03_rb,1.9489e+03_rb,1.8089e+03_rb,1.6842e+03_rb,1.5788e+03_rb/)
+      kbo(:,31,16) = (/ &
+     &2.0822e+03_rb,1.9262e+03_rb,1.7881e+03_rb,1.6663e+03_rb,1.5639e+03_rb/)
+      kbo(:,32,16) = (/ &
+     &2.0533e+03_rb,1.9005e+03_rb,1.7649e+03_rb,1.6467e+03_rb,1.5469e+03_rb/)
+      kbo(:,33,16) = (/ &
+     &2.0222e+03_rb,1.8726e+03_rb,1.7400e+03_rb,1.6262e+03_rb,1.5282e+03_rb/)
+      kbo(:,34,16) = (/ &
+     &1.9951e+03_rb,1.8486e+03_rb,1.7187e+03_rb,1.6087e+03_rb,1.5123e+03_rb/)
+      kbo(:,35,16) = (/ &
+     &1.9819e+03_rb,1.8366e+03_rb,1.7081e+03_rb,1.6001e+03_rb,1.5043e+03_rb/)
+      kbo(:,36,16) = (/ &
+     &1.9843e+03_rb,1.8387e+03_rb,1.7099e+03_rb,1.6017e+03_rb,1.5056e+03_rb/)
+      kbo(:,37,16) = (/ &
+     &2.0096e+03_rb,1.8607e+03_rb,1.7293e+03_rb,1.6180e+03_rb,1.5204e+03_rb/)
+      kbo(:,38,16) = (/ &
+     &2.0360e+03_rb,1.8842e+03_rb,1.7495e+03_rb,1.6347e+03_rb,1.5358e+03_rb/)
+      kbo(:,39,16) = (/ &
+     &2.0619e+03_rb,1.9070e+03_rb,1.7697e+03_rb,1.6516e+03_rb,1.5509e+03_rb/)
+      kbo(:,40,16) = (/ &
+     &2.1060e+03_rb,1.9450e+03_rb,1.8033e+03_rb,1.6798e+03_rb,1.5761e+03_rb/)
+      kbo(:,41,16) = (/ &
+     &2.1534e+03_rb,1.9860e+03_rb,1.8395e+03_rb,1.7107e+03_rb,1.6027e+03_rb/)
+      kbo(:,42,16) = (/ &
+     &2.2020e+03_rb,2.0285e+03_rb,1.8771e+03_rb,1.7432e+03_rb,1.6297e+03_rb/)
+      kbo(:,43,16) = (/ &
+     &2.2623e+03_rb,2.0820e+03_rb,1.9234e+03_rb,1.7841e+03_rb,1.6639e+03_rb/)
+      kbo(:,44,16) = (/ &
+     &2.3303e+03_rb,2.1416e+03_rb,1.9758e+03_rb,1.8302e+03_rb,1.7027e+03_rb/)
+      kbo(:,45,16) = (/ &
+     &2.4015e+03_rb,2.2036e+03_rb,2.0305e+03_rb,1.8787e+03_rb,1.7442e+03_rb/)
+      kbo(:,46,16) = (/ &
+     &2.4806e+03_rb,2.2729e+03_rb,2.0910e+03_rb,1.9319e+03_rb,1.7910e+03_rb/)
+      kbo(:,47,16) = (/ &
+     &2.5738e+03_rb,2.3537e+03_rb,2.1621e+03_rb,1.9939e+03_rb,1.8463e+03_rb/)
+      kbo(:,48,16) = (/ &
+     &2.6744e+03_rb,2.4391e+03_rb,2.2368e+03_rb,2.0594e+03_rb,1.9042e+03_rb/)
+      kbo(:,49,16) = (/ &
+     &2.7827e+03_rb,2.5294e+03_rb,2.3154e+03_rb,2.1283e+03_rb,1.9646e+03_rb/)
+      kbo(:,50,16) = (/ &
+     &2.8923e+03_rb,2.6199e+03_rb,2.3931e+03_rb,2.1963e+03_rb,2.0240e+03_rb/)
+      kbo(:,51,16) = (/ &
+     &3.0068e+03_rb,2.7139e+03_rb,2.4725e+03_rb,2.2657e+03_rb,2.0848e+03_rb/)
+      kbo(:,52,16) = (/ &
+     &3.1290e+03_rb,2.8143e+03_rb,2.5557e+03_rb,2.3381e+03_rb,2.1483e+03_rb/)
+      kbo(:,53,16) = (/ &
+     &3.2592e+03_rb,2.9226e+03_rb,2.6451e+03_rb,2.4144e+03_rb,2.2150e+03_rb/)
+      kbo(:,54,16) = (/ &
+     &3.3865e+03_rb,3.0292e+03_rb,2.7322e+03_rb,2.4877e+03_rb,2.2788e+03_rb/)
+      kbo(:,55,16) = (/ &
+     &3.5154e+03_rb,3.1374e+03_rb,2.8210e+03_rb,2.5614e+03_rb,2.3429e+03_rb/)
+      kbo(:,56,16) = (/ &
+     &3.6521e+03_rb,3.2511e+03_rb,2.9159e+03_rb,2.6395e+03_rb,2.4095e+03_rb/)
+      kbo(:,57,16) = (/ &
+     &3.7974e+03_rb,3.3719e+03_rb,3.0171e+03_rb,2.7223e+03_rb,2.4795e+03_rb/)
+      kbo(:,58,16) = (/ &
+     &3.9425e+03_rb,3.4927e+03_rb,3.1186e+03_rb,2.8056e+03_rb,2.5484e+03_rb/)
+      kbo(:,59,16) = (/ &
+     &4.0032e+03_rb,3.5431e+03_rb,3.1604e+03_rb,2.8404e+03_rb,2.5772e+03_rb/)
+
+!     The array FORREFO contains the coefficient of the water vapor
+!     foreign-continuum (including the energy term).  The first 
+!     index refers to reference temperature (296,260,224,260) and 
+!     pressure (970,475,219,3 mbar) levels.  The second index 
+!     runs over the g-channel (1 to 16).
+
+      forrefo(1,:) = (/ &
+     &5.1629e-06_rb,7.7578e-06_rb,1.9043e-05_rb,1.4802e-04_rb,2.2980e-04_rb,2.8057e-04_rb, &
+     &3.2824e-04_rb,3.4913e-04_rb,3.6515e-04_rb,3.8271e-04_rb,3.7499e-04_rb,3.6966e-04_rb, &
+     &3.7424e-04_rb,3.8884e-04_rb,3.7117e-04_rb,4.3710e-04_rb/)
+      forrefo(2,:) = (/ &
+     &5.0804e-06_rb,1.3466e-05_rb,7.2606e-05_rb,1.6940e-04_rb,2.1022e-04_rb,2.5900e-04_rb, &
+     &2.9106e-04_rb,3.2261e-04_rb,3.2066e-04_rb,3.5421e-04_rb,3.7128e-04_rb,3.8144e-04_rb, &
+     &3.7854e-04_rb,3.8347e-04_rb,3.8921e-04_rb,3.7339e-04_rb/)
+      forrefo(3,:) = (/ &
+     &5.4797e-05_rb,1.0026e-04_rb,1.2422e-04_rb,1.6386e-04_rb,1.8378e-04_rb,1.9616e-04_rb, &
+     &2.0711e-04_rb,2.2492e-04_rb,2.5240e-04_rb,2.6187e-04_rb,2.6058e-04_rb,2.4892e-04_rb, &
+     &2.6526e-04_rb,3.2105e-04_rb,3.6903e-04_rb,3.7213e-04_rb/)
+      forrefo(4,:) = (/ &
+     &4.2782e-05_rb,1.4775e-04_rb,1.4588e-04_rb,1.6964e-04_rb,1.6667e-04_rb,1.7192e-04_rb, &
+     &1.9057e-04_rb,2.0180e-04_rb,2.1177e-04_rb,2.2326e-04_rb,2.3801e-04_rb,2.9308e-04_rb, &
+     &3.1130e-04_rb,3.1829e-04_rb,3.5035e-04_rb,3.7782e-04_rb/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+     & 1.27793e-03_rb, 1.05944e-03_rb, 8.78300e-04_rb, 7.28133e-04_rb, 6.03641e-04_rb, &
+     & 5.00434e-04_rb, 4.14873e-04_rb, 3.43940e-04_rb, 2.85135e-04_rb, 2.36384e-04_rb/)
+      selfrefo(:, 2) = (/ &
+     & 1.42785e-03_rb, 1.17602e-03_rb, 9.68600e-04_rb, 7.97765e-04_rb, 6.57060e-04_rb, &
+     & 5.41172e-04_rb, 4.45724e-04_rb, 3.67110e-04_rb, 3.02361e-04_rb, 2.49033e-04_rb/)
+      selfrefo(:, 3) = (/ &
+     & 2.94095e-03_rb, 2.27102e-03_rb, 1.75370e-03_rb, 1.35422e-03_rb, 1.04574e-03_rb, &
+     & 8.07525e-04_rb, 6.23577e-04_rb, 4.81530e-04_rb, 3.71841e-04_rb, 2.87138e-04_rb/)
+      selfrefo(:, 4) = (/ &
+     & 3.94894e-03_rb, 3.48184e-03_rb, 3.07000e-03_rb, 2.70687e-03_rb, 2.38669e-03_rb, &
+     & 2.10439e-03_rb, 1.85547e-03_rb, 1.63600e-03_rb, 1.44249e-03_rb, 1.27187e-03_rb/)
+      selfrefo(:, 5) = (/ &
+     & 4.19971e-03_rb, 3.86333e-03_rb, 3.55390e-03_rb, 3.26925e-03_rb, 3.00740e-03_rb, &
+     & 2.76652e-03_rb, 2.54494e-03_rb, 2.34110e-03_rb, 2.15359e-03_rb, 1.98110e-03_rb/)
+      selfrefo(:, 6) = (/ &
+     & 4.95922e-03_rb, 4.57134e-03_rb, 4.21380e-03_rb, 3.88422e-03_rb, 3.58042e-03_rb, &
+     & 3.30038e-03_rb, 3.04225e-03_rb, 2.80430e-03_rb, 2.58496e-03_rb, 2.38278e-03_rb/)
+      selfrefo(:, 7) = (/ &
+     & 5.27379e-03_rb, 4.91005e-03_rb, 4.57140e-03_rb, 4.25611e-03_rb, 3.96256e-03_rb, &
+     & 3.68925e-03_rb, 3.43480e-03_rb, 3.19790e-03_rb, 2.97734e-03_rb, 2.77199e-03_rb/)
+      selfrefo(:, 8) = (/ &
+     & 5.75341e-03_rb, 5.31533e-03_rb, 4.91060e-03_rb, 4.53669e-03_rb, 4.19126e-03_rb, &
+     & 3.87212e-03_rb, 3.57729e-03_rb, 3.30490e-03_rb, 3.05325e-03_rb, 2.82077e-03_rb/)
+      selfrefo(:, 9) = (/ &
+     & 5.49849e-03_rb, 5.14295e-03_rb, 4.81040e-03_rb, 4.49935e-03_rb, 4.20842e-03_rb, &
+     & 3.93629e-03_rb, 3.68177e-03_rb, 3.44370e-03_rb, 3.22102e-03_rb, 3.01275e-03_rb/)
+      selfrefo(:,10) = (/ &
+     & 6.04962e-03_rb, 5.60945e-03_rb, 5.20130e-03_rb, 4.82285e-03_rb, 4.47194e-03_rb, &
+     & 4.14656e-03_rb, 3.84485e-03_rb, 3.56510e-03_rb, 3.30570e-03_rb, 3.06518e-03_rb/)
+      selfrefo(:,11) = (/ &
+     & 6.40108e-03_rb, 5.87551e-03_rb, 5.39310e-03_rb, 4.95029e-03_rb, 4.54385e-03_rb, &
+     & 4.17077e-03_rb, 3.82833e-03_rb, 3.51400e-03_rb, 3.22548e-03_rb, 2.96065e-03_rb/)
+      selfrefo(:,12) = (/ &
+     & 6.77938e-03_rb, 6.15713e-03_rb, 5.59200e-03_rb, 5.07874e-03_rb, 4.61259e-03_rb, &
+     & 4.18922e-03_rb, 3.80472e-03_rb, 3.45550e-03_rb, 3.13834e-03_rb, 2.85029e-03_rb/)
+      selfrefo(:,13) = (/ &
+     & 6.90020e-03_rb, 6.26766e-03_rb, 5.69310e-03_rb, 5.17121e-03_rb, 4.69717e-03_rb, &
+     & 4.26658e-03_rb, 3.87546e-03_rb, 3.52020e-03_rb, 3.19750e-03_rb, 2.90439e-03_rb/)
+      selfrefo(:,14) = (/ &
+     & 6.92759e-03_rb, 6.32882e-03_rb, 5.78180e-03_rb, 5.28206e-03_rb, 4.82552e-03_rb, &
+     & 4.40843e-03_rb, 4.02740e-03_rb, 3.67930e-03_rb, 3.36129e-03_rb, 3.07076e-03_rb/)
+      selfrefo(:,15) = (/ &
+     & 7.54539e-03_rb, 6.81161e-03_rb, 6.14920e-03_rb, 5.55120e-03_rb, 5.01136e-03_rb, &
+     & 4.52402e-03_rb, 4.08407e-03_rb, 3.68690e-03_rb, 3.32836e-03_rb, 3.00468e-03_rb/)
+      selfrefo(:,16) = (/ &
+     & 7.62039e-03_rb, 7.10834e-03_rb, 6.63070e-03_rb, 6.18515e-03_rb, 5.76955e-03_rb, &
+     & 5.38186e-03_rb, 5.02023e-03_rb, 4.68290e-03_rb, 4.36823e-03_rb, 4.07471e-03_rb/)
+
+      end subroutine lw_kgb16
diff --git a/radiation/src/rrtmg_lw_rad.f90 b/radiation/src/rrtmg_lw_rad.f90
new file mode 100644
index 0000000000000000000000000000000000000000..b3dee8daef2fbddf3b34c8d13a997f4e09fe9e98
--- /dev/null
+++ b/radiation/src/rrtmg_lw_rad.f90
@@ -0,0 +1,927 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+       module rrtmg_lw_rad
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+!
+! ****************************************************************************
+! *                                                                          *
+! *                              RRTMG_LW                                    *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                   a rapid radiative transfer model                       *
+! *                       for the longwave region                            * 
+! *             for application to general circulation models                *
+! *                                                                          *
+! *                                                                          *
+! *            Atmospheric and Environmental Research, Inc.                  *
+! *                        131 Hartwell Avenue                               *
+! *                        Lexington, MA 02421                               *
+! *                                                                          *
+! *                                                                          *
+! *                           Eli J. Mlawer                                  *
+! *                        Jennifer S. Delamere                              *
+! *                         Michael J. Iacono                                *
+! *                         Shepard A. Clough                                *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                       email:  miacono@aer.com                            *
+! *                       email:  emlawer@aer.com                            *
+! *                       email:  jdelamer@aer.com                           *
+! *                                                                          *
+! *        The authors wish to acknowledge the contributions of the          *
+! *        following people:  Steven J. Taubman, Karen Cady-Pereira,         *
+! *        Patrick D. Brown, Ronald E. Farren, Luke Chen, Robert Bergstrom.  *
+! *                                                                          *
+! ****************************************************************************
+
+! -------- Modules --------
+      use parkind, only : im => kind_im, rb => kind_rb
+      use rrlw_vsn
+      use mcica_subcol_gen_lw, only: mcica_subcol_lw
+      use rrtmg_lw_cldprmc, only: cldprmc
+! *** Move the required call to rrtmg_lw_ini below and the following 
+! use association to the GCM initialization area ***
+!      use rrtmg_lw_init, only: rrtmg_lw_ini
+      use rrtmg_lw_rtrnmc, only: rtrnmc
+      use rrtmg_lw_setcoef, only: setcoef
+      use rrtmg_lw_taumol, only: taumol
+
+      implicit none
+
+! public interfaces/functions/subroutines
+      public :: rrtmg_lw, inatm
+
+!------------------------------------------------------------------
+      contains
+!------------------------------------------------------------------
+
+!------------------------------------------------------------------
+! Public subroutines
+!------------------------------------------------------------------
+
+      subroutine rrtmg_lw &
+            (ncol    ,nlay    ,icld    ,idrv    , &
+             play    ,plev    ,tlay    ,tlev    ,tsfc    , & 
+             h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr , &
+             cfc11vmr,cfc12vmr,cfc22vmr,ccl4vmr ,emis    , &
+             inflglw ,iceflglw,liqflglw,cldfmcl , &
+             taucmcl ,ciwpmcl ,clwpmcl ,reicmcl ,relqmcl , &
+             tauaer  , &
+             uflx    ,dflx    ,hr      ,uflxc   ,dflxc,  hrc, &
+             duflx_dt,duflxc_dt )
+
+! -------- Description --------
+
+! This program is the driver subroutine for RRTMG_LW, the AER LW radiation 
+! model for application to GCMs, that has been adapted from RRTM_LW for
+! improved efficiency.
+!
+! NOTE: The call to RRTMG_LW_INI should be moved to the GCM initialization
+!  area, since this has to be called only once. 
+!
+! This routine:
+!    a) calls INATM to read in the atmospheric profile from GCM;
+!       all layering in RRTMG is ordered from surface to toa. 
+!    b) calls CLDPRMC to set cloud optical depth for McICA based 
+!       on input cloud properties 
+!    c) calls SETCOEF to calculate various quantities needed for 
+!       the radiative transfer algorithm
+!    d) calls TAUMOL to calculate gaseous optical depths for each 
+!       of the 16 spectral bands
+!    e) calls RTRNMC (for both clear and cloudy profiles) to perform the
+!       radiative transfer calculation using McICA, the Monte-Carlo 
+!       Independent Column Approximation, to represent sub-grid scale 
+!       cloud variability
+!    f) passes the necessary fluxes and cooling rates back to GCM
+!
+! Two modes of operation are possible:
+!     The mode is chosen by using either rrtmg_lw.nomcica.f90 (to not use
+!     McICA) or rrtmg_lw.f90 (to use McICA) to interface with a GCM. 
+!
+!    1) Standard, single forward model calculation (imca = 0)
+!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., 
+!       JC, 2003) method is applied to the forward model calculation (imca = 1)
+!
+! This call to RRTMG_LW must be preceeded by a call to the module
+!     mcica_subcol_gen_lw.f90 to run the McICA sub-column cloud generator,
+!     which will provide the cloud physical or cloud optical properties
+!     on the RRTMG quadrature point (ngpt) dimension.
+!     Two random number generators are available for use when imca = 1.
+!     This is chosen by setting flag irnd on input to mcica_subcol_gen_lw.
+!     1) KISSVEC (irnd = 0)
+!     2) Mersenne-Twister (irnd = 1)
+!
+! Two methods of cloud property input are possible:
+!     Cloud properties can be input in one of two ways (controlled by input 
+!     flags inflglw, iceflglw, and liqflglw; see text file rrtmg_lw_instructions
+!     and subroutine rrtmg_lw_cldprmc.f90 for further details):
+!
+!    1) Input cloud fraction and cloud optical depth directly (inflglw = 0)
+!    2) Input cloud fraction and cloud physical properties (inflglw = 1 or 2);  
+!       cloud optical properties are calculated by cldprmc or cldprmc based
+!       on input settings of iceflglw and liqflglw.  Ice particle size provided
+!       must be appropriately defined for the ice parameterization selected. 
+!
+! One method of aerosol property input is possible:
+!     Aerosol properties can be input in only one way (controlled by input 
+!     flag iaer; see text file rrtmg_lw_instructions for further details):
+!
+!    1) Input aerosol optical depth directly by layer and spectral band (iaer=10);
+!       band average optical depth at the mid-point of each spectral band.
+!       RRTMG_LW currently treats only aerosol absorption;
+!       scattering capability is not presently available.
+!
+! The optional calculation of the change in upward flux as a function of surface 
+! temperature is available (controlled by input flag idrv).  This can be utilized 
+! to approximate adjustments to the upward flux profile caused only by a change in 
+! surface temperature between full radiation calls.  This feature uses the pre-
+! calculated derivative of the Planck function with respect to surface temperature. 
+!
+!    1) Normal forward calculation for the input profile (idrv=0)
+!    2) Normal forward calculation with optional calculation of the change
+!       in upward flux as a function of surface temperature for clear sky
+!       and total sky flux.  Flux partial derivatives are provided in arrays
+!       duflx_dt and duflxc_dt for total and clear sky.  (idrv=1)
+!
+!
+! ------- Modifications -------
+!
+! This version of RRTMG_LW has been modified from RRTM_LW to use a reduced 
+! set of g-points for application to GCMs.  
+!
+!-- Original version (derived from RRTM_LW), reduction of g-points, other
+!   revisions for use with GCMs.  
+!     1999: M. J. Iacono, AER, Inc.
+!-- Adapted for use with NCAR/CAM.
+!     May 2004: M. J. Iacono, AER, Inc.
+!-- Revised to add McICA capability. 
+!     Nov 2005: M. J. Iacono, AER, Inc.
+!-- Conversion to F90 formatting for consistency with rrtmg_sw.
+!     Feb 2007: M. J. Iacono, AER, Inc.
+!-- Modifications to formatting to use assumed-shape arrays.
+!     Aug 2007: M. J. Iacono, AER, Inc.
+!-- Modified to add longwave aerosol absorption.
+!     Apr 2008: M. J. Iacono, AER, Inc.
+!-- Added capability to calculate derivative of upward flux wrt surface temperature. 
+!     Nov 2009: M. J. Iacono, E. J. Mlawer, AER, Inc.
+
+! --------- Modules ----------
+
+      use parrrtm, only : nbndlw, ngptlw, maxxsec, mxmol
+      use rrlw_con, only: fluxfac, heatfac, oneminus, pi
+      use rrlw_wvn, only: ng, ngb, nspa, nspb, wavenum1, wavenum2, delwave
+
+! ------- Declarations -------
+
+! ----- Input -----
+! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained
+! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) 
+      integer(kind=im), intent(in) :: ncol            ! Number of horizontal columns
+      integer(kind=im), intent(in) :: nlay            ! Number of model layers
+      integer(kind=im), intent(inout) :: icld         ! Cloud overlap method
+                                                      !    0: Clear only
+                                                      !    1: Random
+                                                      !    2: Maximum/random
+                                                      !    3: Maximum
+      integer(kind=im), intent(in) :: idrv            ! Flag for calculation of dFdT, the change
+                                                      !    in upward flux as a function of 
+                                                      !    surface temperature [0=off, 1=on]
+                                                      !    0: Normal forward calculation
+                                                      !    1: Normal forward calculation with
+                                                      !       duflx_dt and duflxc_dt output
+
+      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc11vmr(:,:)      ! CFC11 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc12vmr(:,:)      ! CFC12 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc22vmr(:,:)      ! CFC22 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ccl4vmr(:,:)       ! CCL4 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: emis(:,:)          ! Surface emissivity
+                                                      !    Dimensions: (ncol,nbndlw)
+
+      integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties
+      integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification
+      integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification
+
+      real(kind=rb), intent(in) :: cldfmcl(:,:,:)     ! Cloud fraction
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(in) :: ciwpmcl(:,:,:)     ! In-cloud ice water path (g/m2)
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(in) :: clwpmcl(:,:,:)     ! In-cloud liquid water path (g/m2)
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(in) :: reicmcl(:,:)       ! Cloud ice particle effective size (microns)
+                                                      !    Dimensions: (ncol,nlay)
+                                                      ! specific definition of reicmcl depends on setting of iceflglw:
+                                                      ! iceflglw = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !               r_ec must be >= 10.0 microns
+                                                      ! iceflglw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !               r_ec range is limited to 13.0 to 130.0 microns
+                                                      ! iceflglw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+                                                      !               r_k range is limited to 5.0 to 131.0 microns
+                                                      ! iceflglw = 3: generalized effective size, dge, (Fu, 1996),
+                                                      !               dge range is limited to 5.0 to 140.0 microns
+                                                      !               [dge = 1.0315 * r_ec]
+      real(kind=rb), intent(in) :: relqmcl(:,:)       ! Cloud water drop effective radius (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: taucmcl(:,:,:)     ! In-cloud optical depth
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+!      real(kind=rb), intent(in) :: ssacmcl(:,:,:)    ! In-cloud single scattering albedo
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+                                                      !   for future expansion
+                                                      !   lw scattering not yet available
+!      real(kind=rb), intent(in) :: asmcmcl(:,:,:)    ! In-cloud asymmetry parameter
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+                                                      !   for future expansion
+                                                      !   lw scattering not yet available
+      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! aerosol optical depth
+                                                      !   at mid-point of LW spectral bands
+                                                      !    Dimensions: (ncol,nlay,nbndlw)
+!      real(kind=rb), intent(in) :: ssaaer(:,:,:)     ! aerosol single scattering albedo
+                                                      !    Dimensions: (ncol,nlay,nbndlw)
+                                                      !   for future expansion 
+                                                      !   (lw aerosols/scattering not yet available)
+!      real(kind=rb), intent(in) :: asmaer(:,:,:)     ! aerosol asymmetry parameter
+                                                      !    Dimensions: (ncol,nlay,nbndlw)
+                                                      !   for future expansion 
+                                                      !   (lw aerosols/scattering not yet available)
+
+! ----- Output -----
+
+      real(kind=rb), intent(out) :: uflx(:,:)         ! Total sky longwave upward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: dflx(:,:)         ! Total sky longwave downward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: hr(:,:)           ! Total sky longwave radiative heating rate (K/d)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(out) :: uflxc(:,:)        ! Clear sky longwave upward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: dflxc(:,:)        ! Clear sky longwave downward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: hrc(:,:)          ! Clear sky longwave radiative heating rate (K/d)
+                                                      !    Dimensions: (ncol,nlay)
+
+! ----- Optional Output -----
+      real(kind=rb), intent(out), optional :: duflx_dt(:,:)     
+                                                      ! change in upward longwave flux (w/m2/K)
+                                                      ! with respect to surface temperature
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out), optional :: duflxc_dt(:,:)    
+                                                      ! change in clear sky upward longwave flux (w/m2/K)
+                                                      ! with respect to surface temperature
+                                                      !    Dimensions: (ncol,nlay+1)
+
+! ----- Local -----
+
+! Control
+      integer(kind=im) :: nlayers             ! total number of layers
+      integer(kind=im) :: istart              ! beginning band of calculation
+      integer(kind=im) :: iend                ! ending band of calculation
+      integer(kind=im) :: iout                ! output option flag (inactive)
+      integer(kind=im) :: iaer                ! aerosol option flag
+      integer(kind=im) :: iplon               ! column loop index
+      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]
+      integer(kind=im) :: ims                 ! value for changing mcica permute seed
+      integer(kind=im) :: k                   ! layer loop index
+      integer(kind=im) :: ig                  ! g-point loop index
+
+! Atmosphere
+      real(kind=rb) :: pavel(nlay+1)          ! layer pressures (mb) 
+      real(kind=rb) :: tavel(nlay+1)          ! layer temperatures (K)
+      real(kind=rb) :: pz(0:nlay+1)           ! level (interface) pressures (hPa, mb)
+      real(kind=rb) :: tz(0:nlay+1)           ! level (interface) temperatures (K)
+      real(kind=rb) :: tbound                 ! surface temperature (K)
+      real(kind=rb) :: coldry(nlay+1)         ! dry air column density (mol/cm2)
+      real(kind=rb) :: wbrodl(nlay+1)         ! broadening gas column density (mol/cm2)
+      real(kind=rb) :: wkl(mxmol,nlay+1)      ! molecular amounts (mol/cm-2)
+      real(kind=rb) :: wx(maxxsec,nlay+1)     ! cross-section amounts (mol/cm-2)
+      real(kind=rb) :: pwvcm                  ! precipitable water vapor (cm)
+      real(kind=rb) :: semiss(nbndlw)         ! lw surface emissivity
+      real(kind=rb) :: fracs(nlay+1,ngptlw)   ! 
+      real(kind=rb) :: taug(nlay+1,ngptlw)    ! gaseous optical depths
+      real(kind=rb) :: taut(nlay+1,ngptlw)    ! gaseous + aerosol optical depths
+
+      real(kind=rb) :: taua(nlay+1,nbndlw)    ! aerosol optical depth
+!      real(kind=rb) :: ssaa(nlay+1,nbndlw)   ! aerosol single scattering albedo
+                                              !   for future expansion 
+                                              !   (lw aerosols/scattering not yet available)
+!      real(kind=rb) :: asma(nlay+1,nbndlw)   ! aerosol asymmetry parameter
+                                              !   for future expansion 
+                                              !   (lw aerosols/scattering not yet available)
+
+! Atmosphere - setcoef
+      integer(kind=im) :: laytrop             ! tropopause layer index
+      integer(kind=im) :: jp(nlay+1)          ! lookup table index 
+      integer(kind=im) :: jt(nlay+1)          ! lookup table index 
+      integer(kind=im) :: jt1(nlay+1)         ! lookup table index 
+      real(kind=rb) :: planklay(nlay+1,nbndlw)! 
+      real(kind=rb) :: planklev(0:nlay+1,nbndlw)! 
+      real(kind=rb) :: plankbnd(nbndlw)       ! 
+      real(kind=rb) :: dplankbnd_dt(nbndlw)   ! 
+
+      real(kind=rb) :: colh2o(nlay+1)         ! column amount (h2o)
+      real(kind=rb) :: colco2(nlay+1)         ! column amount (co2)
+      real(kind=rb) :: colo3(nlay+1)          ! column amount (o3)
+      real(kind=rb) :: coln2o(nlay+1)         ! column amount (n2o)
+      real(kind=rb) :: colco(nlay+1)          ! column amount (co)
+      real(kind=rb) :: colch4(nlay+1)         ! column amount (ch4)
+      real(kind=rb) :: colo2(nlay+1)          ! column amount (o2)
+      real(kind=rb) :: colbrd(nlay+1)         ! column amount (broadening gases)
+
+      integer(kind=im) :: indself(nlay+1)
+      integer(kind=im) :: indfor(nlay+1)
+      real(kind=rb) :: selffac(nlay+1)
+      real(kind=rb) :: selffrac(nlay+1)
+      real(kind=rb) :: forfac(nlay+1)
+      real(kind=rb) :: forfrac(nlay+1)
+
+      integer(kind=im) :: indminor(nlay+1)
+      real(kind=rb) :: minorfrac(nlay+1)
+      real(kind=rb) :: scaleminor(nlay+1)
+      real(kind=rb) :: scaleminorn2(nlay+1)
+
+      real(kind=rb) :: &                      !
+                         fac00(nlay+1), fac01(nlay+1), &
+                         fac10(nlay+1), fac11(nlay+1) 
+      real(kind=rb) :: &                      !
+                         rat_h2oco2(nlay+1),rat_h2oco2_1(nlay+1), &
+                         rat_h2oo3(nlay+1),rat_h2oo3_1(nlay+1), &
+                         rat_h2on2o(nlay+1),rat_h2on2o_1(nlay+1), &
+                         rat_h2och4(nlay+1),rat_h2och4_1(nlay+1), &
+                         rat_n2oco2(nlay+1),rat_n2oco2_1(nlay+1), &
+                         rat_o3co2(nlay+1),rat_o3co2_1(nlay+1)
+
+! Atmosphere/clouds - cldprop
+      integer(kind=im) :: ncbands             ! number of cloud spectral bands
+      integer(kind=im) :: inflag              ! flag for cloud property method
+      integer(kind=im) :: iceflag             ! flag for ice cloud properties
+      integer(kind=im) :: liqflag             ! flag for liquid cloud properties
+
+! Atmosphere/clouds - cldprmc [mcica]
+      real(kind=rb) :: cldfmc(ngptlw,nlay+1)  ! cloud fraction [mcica]
+      real(kind=rb) :: ciwpmc(ngptlw,nlay+1)  ! in-cloud ice water path [mcica]
+      real(kind=rb) :: clwpmc(ngptlw,nlay+1)  ! in-cloud liquid water path [mcica]
+      real(kind=rb) :: relqmc(nlay+1)         ! liquid particle effective radius (microns)
+      real(kind=rb) :: reicmc(nlay+1)         ! ice particle effective size (microns)
+      real(kind=rb) :: taucmc(ngptlw,nlay+1)  ! in-cloud optical depth [mcica]
+!      real(kind=rb) :: ssacmc(ngptlw,nlay+1) ! in-cloud single scattering albedo [mcica]
+                                              !   for future expansion 
+                                              !   (lw scattering not yet available)
+!      real(kind=rb) :: asmcmc(ngptlw,nlay+1) ! in-cloud asymmetry parameter [mcica]
+                                              !   for future expansion 
+                                              !   (lw scattering not yet available)
+
+! Output
+      real(kind=rb) :: totuflux(0:nlay+1)     ! upward longwave flux (w/m2)
+      real(kind=rb) :: totdflux(0:nlay+1)     ! downward longwave flux (w/m2)
+      real(kind=rb) :: fnet(0:nlay+1)         ! net longwave flux (w/m2)
+      real(kind=rb) :: htr(0:nlay+1)          ! longwave heating rate (k/day)
+      real(kind=rb) :: totuclfl(0:nlay+1)     ! clear sky upward longwave flux (w/m2)
+      real(kind=rb) :: totdclfl(0:nlay+1)     ! clear sky downward longwave flux (w/m2)
+      real(kind=rb) :: fnetc(0:nlay+1)        ! clear sky net longwave flux (w/m2)
+      real(kind=rb) :: htrc(0:nlay+1)         ! clear sky longwave heating rate (k/day)
+      real(kind=rb) :: dtotuflux_dt(0:nlay+1) ! change in upward longwave flux (w/m2/k)
+                                              ! with respect to surface temperature
+      real(kind=rb) :: dtotuclfl_dt(0:nlay+1) ! change in clear sky upward longwave flux (w/m2/k)
+                                              ! with respect to surface temperature
+
+!
+! Initializations
+
+      oneminus = 1._rb - 1.e-6_rb
+      pi = 2._rb * asin(1._rb)
+      fluxfac = pi * 2.e4_rb                  ! orig:   fluxfac = pi * 2.d4  
+      istart = 1
+      iend = 16
+      iout = 0
+      ims = 1
+
+! Set imca to select calculation type:
+!  imca = 0, use standard forward model calculation
+!  imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability
+
+! *** This version uses McICA (imca = 1) ***
+
+! Set icld to select of clear or cloud calculation and cloud overlap method  
+! icld = 0, clear only
+! icld = 1, with clouds using random cloud overlap
+! icld = 2, with clouds using maximum/random cloud overlap
+! icld = 3, with clouds using maximum cloud overlap (McICA only)
+      if (icld.lt.0.or.icld.gt.3) icld = 2
+
+! Set iaer to select aerosol option
+! iaer = 0, no aerosols
+! icld = 10, input total aerosol optical depth (tauaer) directly
+      iaer = 10
+
+! Call model and data initialization, compute lookup tables, perform
+! reduction of g-points from 256 to 140 for input absorption coefficient 
+! data and other arrays.
+!
+! In a GCM this call should be placed in the model initialization
+! area, since this has to be called only once.  
+!      call rrtmg_lw_ini(cpdair)
+
+!  This is the main longitude/column loop within RRTMG.
+      do iplon = 1, ncol
+
+!  Prepare atmospheric profile from GCM for use in RRTMG, and define
+!  other input parameters.  
+
+         call inatm (iplon, nlay, icld, iaer, &
+              play, plev, tlay, tlev, tsfc, h2ovmr, &
+              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, cfc11vmr, cfc12vmr, &
+              cfc22vmr, ccl4vmr, emis, inflglw, iceflglw, liqflglw, &
+              cldfmcl, taucmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, tauaer, &
+              nlayers, pavel, pz, tavel, tz, tbound, semiss, coldry, &
+              wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &
+              cldfmc, taucmc, ciwpmc, clwpmc, reicmc, relqmc, taua)
+
+!  For cloudy atmosphere, use cldprmc to set cloud optical properties based on
+!  input cloud physical properties.  Select method based on choices described
+!  in cldprmc.  Cloud fraction, water path, liquid droplet and ice particle
+!  effective radius must be passed into cldprmc.  Cloud fraction and cloud
+!  optical depth are transferred to rrtmg_lw arrays in cldprmc.  
+
+         call cldprmc(nlayers, inflag, iceflag, liqflag, cldfmc, ciwpmc, &
+                      clwpmc, reicmc, relqmc, ncbands, taucmc)
+
+! Calculate information needed by the radiative transfer routine
+! that is specific to this atmosphere, especially some of the 
+! coefficients and indices needed to compute the optical depths
+! by interpolating data from stored reference atmospheres. 
+
+         call setcoef(nlayers, istart, pavel, tavel, tz, tbound, semiss, &
+                      coldry, wkl, wbrodl, &
+                      laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &
+                      idrv, dplankbnd_dt, &
+                      colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &
+                      colbrd, fac00, fac01, fac10, fac11, &
+                      rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &
+                      rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &
+                      rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &
+                      selffac, selffrac, indself, forfac, forfrac, indfor, &
+                      minorfrac, scaleminor, scaleminorn2, indminor)
+
+!  Calculate the gaseous optical depths and Planck fractions for 
+!  each longwave spectral band.
+
+         call taumol(nlayers, pavel, wx, coldry, &
+                     laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &
+                     colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &
+                     colbrd, fac00, fac01, fac10, fac11, &
+                     rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &
+                     rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &
+                     rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &
+                     selffac, selffrac, indself, forfac, forfrac, indfor, &
+                     minorfrac, scaleminor, scaleminorn2, indminor, &
+                     fracs, taug)
+
+
+! Combine gaseous and aerosol optical depths, if aerosol active
+         if (iaer .eq. 0) then
+            do k = 1, nlayers
+               do ig = 1, ngptlw
+                  taut(k,ig) = taug(k,ig)
+               enddo
+            enddo
+         elseif (iaer .eq. 10) then
+            do k = 1, nlayers
+               do ig = 1, ngptlw
+                  taut(k,ig) = taug(k,ig) + taua(k,ngb(ig))
+               enddo
+            enddo
+         endif
+
+! Call the radiative transfer routine.
+! Either routine can be called to do clear sky calculation.  If clouds
+! are present, then select routine based on cloud overlap assumption
+! to be used.  Clear sky calculation is done simultaneously.
+! For McICA, RTRNMC is called for clear and cloudy calculations.
+
+         call rtrnmc(nlayers, istart, iend, iout, pz, semiss, ncbands, &
+                     cldfmc, taucmc, planklay, planklev, plankbnd, &
+                     pwvcm, fracs, taut, &
+                     totuflux, totdflux, fnet, htr, &
+                     totuclfl, totdclfl, fnetc, htrc, &
+                     idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )
+
+!  Transfer up and down fluxes and heating rate to output arrays.
+!  Vertical indexing goes from bottom to top; reverse here for GCM if necessary.
+
+         do k = 0, nlayers
+            uflx(iplon,k+1) = totuflux(k)
+            dflx(iplon,k+1) = totdflux(k)
+            uflxc(iplon,k+1) = totuclfl(k)
+            dflxc(iplon,k+1) = totdclfl(k)
+         enddo
+         do k = 0, nlayers-1
+            hr(iplon,k+1) = htr(k)
+            hrc(iplon,k+1) = htrc(k)
+         enddo
+
+!  If idrv=1 option is active, transfer upward flux derivatives to output arrays.
+         
+         if (idrv .eq. 1) then 
+            do k = 0, nlayers
+               duflx_dt(iplon,k+1) = dtotuflux_dt(k)
+               duflxc_dt(iplon,k+1) = dtotuclfl_dt(k)
+            enddo
+         endif
+
+! End longitude/column loop
+      enddo
+
+      end subroutine rrtmg_lw
+
+!***************************************************************************
+      subroutine inatm (iplon, nlay, icld, iaer, &
+              play, plev, tlay, tlev, tsfc, h2ovmr, &
+              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, cfc11vmr, cfc12vmr, &
+              cfc22vmr, ccl4vmr, emis, inflglw, iceflglw, liqflglw, &
+              cldfmcl, taucmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, tauaer, &
+              nlayers, pavel, pz, tavel, tz, tbound, semiss, coldry, &
+              wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &
+              cldfmc, taucmc, ciwpmc, clwpmc, reicmc, relqmc, taua)
+!***************************************************************************
+!
+!  Input atmospheric profile from GCM, and prepare it for use in RRTMG_LW.
+!  Set other RRTMG_LW input parameters.  
+!
+!***************************************************************************
+
+! --------- Modules ----------
+
+      use parrrtm, only : nbndlw, ngptlw, nmol, maxxsec, mxmol
+      use rrlw_con, only: fluxfac, heatfac, oneminus, pi, grav, avogad
+      use rrlw_wvn, only: ng, nspa, nspb, wavenum1, wavenum2, delwave, ixindx
+
+! ------- Declarations -------
+
+! ----- Input -----
+! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained
+! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) 
+      integer(kind=im), intent(in) :: iplon           ! column loop index
+      integer(kind=im), intent(in) :: nlay            ! Number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud and cloud overlap flag
+      integer(kind=im), intent(in) :: iaer            ! aerosol option flag
+
+      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc11vmr(:,:)      ! CFC11 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc12vmr(:,:)      ! CFC12 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc22vmr(:,:)      ! CFC22 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ccl4vmr(:,:)       ! CCL4 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: emis(:,:)          ! Surface emissivity
+                                                      !    Dimensions: (ncol,nbndlw)
+
+      integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties
+      integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification
+      integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification
+
+      real(kind=rb), intent(in) :: cldfmcl(:,:,:)     ! Cloud fraction
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(in) :: ciwpmcl(:,:,:)     ! In-cloud ice water path (g/m2)
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(in) :: clwpmcl(:,:,:)     ! In-cloud liquid water path (g/m2)
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(in) :: relqmcl(:,:)       ! Cloud water drop effective radius (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: reicmcl(:,:)       ! Cloud ice effective size (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: taucmcl(:,:,:)     ! In-cloud optical depth
+                                                      !    Dimensions: (ngptlw,ncol,nlay)
+      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth
+                                                      !    Dimensions: (ncol,nlay,nbndlw)
+
+! ----- Output -----
+! Atmosphere
+      integer(kind=im), intent(out) :: nlayers        ! number of layers
+
+      real(kind=rb), intent(out) :: pavel(:)          ! layer pressures (mb) 
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: tavel(:)          ! layer temperatures (K)
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: pz(0:)            ! level (interface) pressures (hPa, mb)
+                                                      !    Dimensions: (0:nlay)
+      real(kind=rb), intent(out) :: tz(0:)            ! level (interface) temperatures (K)
+                                                      !    Dimensions: (0:nlay)
+      real(kind=rb), intent(out) :: tbound            ! surface temperature (K)
+      real(kind=rb), intent(out) :: coldry(:)         ! dry air column density (mol/cm2)
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: wbrodl(:)         ! broadening gas column density (mol/cm2)
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: wkl(:,:)          ! molecular amounts (mol/cm-2)
+                                                      !    Dimensions: (mxmol,nlay)
+      real(kind=rb), intent(out) :: wx(:,:)           ! cross-section amounts (mol/cm-2)
+                                                      !    Dimensions: (maxxsec,nlay)
+      real(kind=rb), intent(out) :: pwvcm             ! precipitable water vapor (cm)
+      real(kind=rb), intent(out) :: semiss(:)         ! lw surface emissivity
+                                                      !    Dimensions: (nbndlw)
+
+! Atmosphere/clouds - cldprmc
+      integer(kind=im), intent(out) :: inflag         ! flag for cloud property method
+      integer(kind=im), intent(out) :: iceflag        ! flag for ice cloud properties
+      integer(kind=im), intent(out) :: liqflag        ! flag for liquid cloud properties
+
+      real(kind=rb), intent(out) :: cldfmc(:,:)       ! cloud fraction [mcica]
+                                                      !    Dimensions: (ngptlw,nlay)
+      real(kind=rb), intent(out) :: ciwpmc(:,:)       ! in-cloud ice water path [mcica]
+                                                      !    Dimensions: (ngptlw,nlay)
+      real(kind=rb), intent(out) :: clwpmc(:,:)       ! in-cloud liquid water path [mcica]
+                                                      !    Dimensions: (ngptlw,nlay)
+      real(kind=rb), intent(out) :: relqmc(:)         ! liquid particle effective radius (microns)
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: reicmc(:)         ! ice particle effective size (microns)
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: taucmc(:,:)       ! in-cloud optical depth [mcica]
+                                                      !    Dimensions: (ngptlw,nlay)
+      real(kind=rb), intent(out) :: taua(:,:)         ! aerosol optical depth
+                                                      !    Dimensions: (nlay,nbndlw)
+
+
+! ----- Local -----
+      real(kind=rb), parameter :: amd = 28.9660_rb    ! Effective molecular weight of dry air (g/mol)
+      real(kind=rb), parameter :: amw = 18.0160_rb    ! Molecular weight of water vapor (g/mol)
+!      real(kind=rb), parameter :: amc = 44.0098_rb    ! Molecular weight of carbon dioxide (g/mol)
+!      real(kind=rb), parameter :: amo = 47.9998_rb    ! Molecular weight of ozone (g/mol)
+!      real(kind=rb), parameter :: amo2 = 31.9999_rb   ! Molecular weight of oxygen (g/mol)
+!      real(kind=rb), parameter :: amch4 = 16.0430_rb  ! Molecular weight of methane (g/mol)
+!      real(kind=rb), parameter :: amn2o = 44.0128_rb  ! Molecular weight of nitrous oxide (g/mol)
+!      real(kind=rb), parameter :: amc11 = 137.3684_rb ! Molecular weight of CFC11 (g/mol) - CCL3F
+!      real(kind=rb), parameter :: amc12 = 120.9138_rb ! Molecular weight of CFC12 (g/mol) - CCL2F2
+!      real(kind=rb), parameter :: amc22 = 86.4688_rb  ! Molecular weight of CFC22 (g/mol) - CHCLF2
+!      real(kind=rb), parameter :: amcl4 = 153.823_rb  ! Molecular weight of CCL4 (g/mol) - CCL4
+
+! Set molecular weight ratios (for converting mmr to vmr)
+!  e.g. h2ovmr = h2ommr * amdw)
+      real(kind=rb), parameter :: amdw = 1.607793_rb  ! Molecular weight of dry air / water vapor
+      real(kind=rb), parameter :: amdc = 0.658114_rb  ! Molecular weight of dry air / carbon dioxide
+      real(kind=rb), parameter :: amdo = 0.603428_rb  ! Molecular weight of dry air / ozone
+      real(kind=rb), parameter :: amdm = 1.805423_rb  ! Molecular weight of dry air / methane
+      real(kind=rb), parameter :: amdn = 0.658090_rb  ! Molecular weight of dry air / nitrous oxide
+      real(kind=rb), parameter :: amdo2 = 0.905140_rb ! Molecular weight of dry air / oxygen
+      real(kind=rb), parameter :: amdc1 = 0.210852_rb ! Molecular weight of dry air / CFC11
+      real(kind=rb), parameter :: amdc2 = 0.239546_rb ! Molecular weight of dry air / CFC12
+
+      integer(kind=im) :: isp, l, ix, n, imol, ib, ig   ! Loop indices
+      real(kind=rb) :: amm, amttl, wvttl, wvsh, summol  
+
+! Add one to nlayers here to include extra model layer at top of atmosphere
+      nlayers = nlay
+
+!  Initialize all molecular amounts and cloud properties to zero here, then pass input amounts
+!  into RRTM arrays below.
+
+      wkl(:,:) = 0.0_rb
+      wx(:,:) = 0.0_rb
+      cldfmc(:,:) = 0.0_rb
+      taucmc(:,:) = 0.0_rb
+      ciwpmc(:,:) = 0.0_rb
+      clwpmc(:,:) = 0.0_rb
+      reicmc(:) = 0.0_rb
+      relqmc(:) = 0.0_rb
+      taua(:,:) = 0.0_rb
+      amttl = 0.0_rb
+      wvttl = 0.0_rb
+ 
+!  Set surface temperature.
+      tbound = tsfc(iplon)
+
+!  Install input GCM arrays into RRTMG_LW arrays for pressure, temperature,
+!  and molecular amounts.  
+!  Pressures are input in mb, or are converted to mb here.
+!  Molecular amounts are input in volume mixing ratio, or are converted from 
+!  mass mixing ratio (or specific humidity for h2o) to volume mixing ratio
+!  here. These are then converted to molecular amount (molec/cm2) below.  
+!  The dry air column COLDRY (in molec/cm2) is calculated from the level 
+!  pressures, pz (in mb), based on the hydrostatic equation and includes a 
+!  correction to account for h2o in the layer.  The molecular weight of moist 
+!  air (amm) is calculated for each layer.  
+!  Note: In RRTMG, layer indexing goes from bottom to top, and coding below
+!  assumes GCM input fields are also bottom to top. Input layer indexing
+!  from GCM fields should be reversed here if necessary.
+
+      pz(0) = plev(iplon,1)
+      tz(0) = tlev(iplon,1)
+      do l = 1, nlayers
+         pavel(l) = play(iplon,l)
+         tavel(l) = tlay(iplon,l)
+         pz(l) = plev(iplon,l+1)
+         tz(l) = tlev(iplon,l+1)
+! For h2o input in vmr:
+         wkl(1,l) = h2ovmr(iplon,l)
+! For h2o input in mmr:
+!         wkl(1,l) = h2o(iplon,l)*amdw
+! For h2o input in specific humidity;
+!         wkl(1,l) = (h2o(iplon,l)/(1._rb - h2o(iplon,l)))*amdw
+         wkl(2,l) = co2vmr(iplon,l)
+         wkl(3,l) = o3vmr(iplon,l)
+         wkl(4,l) = n2ovmr(iplon,l)
+         wkl(6,l) = ch4vmr(iplon,l)
+         wkl(7,l) = o2vmr(iplon,l)
+         amm = (1._rb - wkl(1,l)) * amd + wkl(1,l) * amw            
+         coldry(l) = (pz(l-1)-pz(l)) * 1.e3_rb * avogad / &
+                     (1.e2_rb * grav * amm * (1._rb + wkl(1,l)))
+      enddo
+
+! Set cross section molecule amounts from input; convert to vmr if necessary
+      do l=1, nlayers
+         wx(1,l) = ccl4vmr(iplon,l)
+         wx(2,l) = cfc11vmr(iplon,l)
+         wx(3,l) = cfc12vmr(iplon,l)
+         wx(4,l) = cfc22vmr(iplon,l)
+      enddo      
+
+! The following section can be used to set values for an additional layer (from
+! the GCM top level to 1.e-4 mb) for improved calculation of TOA fluxes. 
+! Temperature and molecular amounts in the extra model layer are set to 
+! their values in the top GCM model layer, though these can be modified
+! here if necessary. 
+! If this feature is utilized, increase nlayers by one above, limit the two
+! loops above to (nlayers-1), and set the top most (extra) layer values here. 
+
+!      pavel(nlayers) = 0.5_rb * pz(nlayers-1)
+!      tavel(nlayers) = tavel(nlayers-1)
+!      pz(nlayers) = 1.e-4_rb
+!      tz(nlayers-1) = 0.5_rb * (tavel(nlayers)+tavel(nlayers-1))
+!      tz(nlayers) = tz(nlayers-1)
+!      wkl(1,nlayers) = wkl(1,nlayers-1)
+!      wkl(2,nlayers) = wkl(2,nlayers-1)
+!      wkl(3,nlayers) = wkl(3,nlayers-1)
+!      wkl(4,nlayers) = wkl(4,nlayers-1)
+!      wkl(6,nlayers) = wkl(6,nlayers-1)
+!      wkl(7,nlayers) = wkl(7,nlayers-1)
+!      amm = (1._rb - wkl(1,nlayers-1)) * amd + wkl(1,nlayers-1) * amw
+!      coldry(nlayers) = (pz(nlayers-1)) * 1.e3_rb * avogad / &
+!                        (1.e2_rb * grav * amm * (1._rb + wkl(1,nlayers-1)))
+!      wx(1,nlayers) = wx(1,nlayers-1)
+!      wx(2,nlayers) = wx(2,nlayers-1)
+!      wx(3,nlayers) = wx(3,nlayers-1)
+!      wx(4,nlayers) = wx(4,nlayers-1)
+
+! At this point all molecular amounts in wkl and wx are in volume mixing ratio; 
+! convert to molec/cm2 based on coldry for use in rrtm.  also, compute precipitable
+! water vapor for diffusivity angle adjustments in rtrn and rtrnmr.
+
+      do l = 1, nlayers
+         summol = 0.0_rb
+         do imol = 2, nmol
+            summol = summol + wkl(imol,l)
+         enddo
+         wbrodl(l) = coldry(l) * (1._rb - summol)
+         do imol = 1, nmol
+            wkl(imol,l) = coldry(l) * wkl(imol,l)
+         enddo
+         amttl = amttl + coldry(l)+wkl(1,l)
+         wvttl = wvttl + wkl(1,l)
+         do ix = 1,maxxsec
+            if (ixindx(ix) .ne. 0) then
+               wx(ixindx(ix),l) = coldry(l) * wx(ix,l) * 1.e-20_rb
+            endif
+         enddo
+      enddo
+
+      wvsh = (amw * wvttl) / (amd * amttl)
+      pwvcm = wvsh * (1.e3_rb * pz(0)) / (1.e2_rb * grav)
+
+! Set spectral surface emissivity for each longwave band.  
+
+      do n=1,nbndlw
+         semiss(n) = emis(iplon,n)
+!          semiss(n) = 1.0_rb
+      enddo
+
+! Transfer aerosol optical properties to RRTM variable;
+! modify to reverse layer indexing here if necessary.
+
+     if (iaer .ge. 1) then
+        do l = 1, nlayers
+           do ib = 1, nbndlw
+              taua(l,ib) = tauaer(iplon,l,ib)
+           enddo
+        enddo
+      endif
+
+! Transfer cloud fraction and cloud optical properties to RRTM variables,
+! modify to reverse layer indexing here if necessary.
+
+      if (icld .ge. 1) then 
+         inflag = inflglw
+         iceflag = iceflglw
+         liqflag = liqflglw
+
+! Move incoming GCM cloud arrays to RRTMG cloud arrays.
+! For GCM input, incoming reicmcl is defined based on selected ice parameterization (inflglw)
+
+         do l = 1, nlayers
+            do ig = 1, ngptlw
+               cldfmc(ig,l) = cldfmcl(ig,iplon,l)
+               taucmc(ig,l) = taucmcl(ig,iplon,l)
+               ciwpmc(ig,l) = ciwpmcl(ig,iplon,l)
+               clwpmc(ig,l) = clwpmcl(ig,iplon,l)
+            enddo
+            reicmc(l) = reicmcl(iplon,l)
+            relqmc(l) = relqmcl(iplon,l)
+         enddo
+
+! If an extra layer is being used in RRTMG, set all cloud properties to zero in the extra layer.
+
+!         cldfmc(:,nlayers) = 0.0_rb
+!         taucmc(:,nlayers) = 0.0_rb
+!         ciwpmc(:,nlayers) = 0.0_rb
+!         clwpmc(:,nlayers) = 0.0_rb
+!         reicmc(nlayers) = 0.0_rb
+!         relqmc(nlayers) = 0.0_rb
+!         taua(nlayers,:) = 0.0_rb
+
+      endif
+      
+      end subroutine inatm
+
+      end module rrtmg_lw_rad
+
diff --git a/radiation/src/rrtmg_lw_rad.nomcica.f90 b/radiation/src/rrtmg_lw_rad.nomcica.f90
new file mode 100644
index 0000000000000000000000000000000000000000..e3a0a5f7c90f6ba6fcbd5b9b60d8f4467de4e4d5
--- /dev/null
+++ b/radiation/src/rrtmg_lw_rad.nomcica.f90
@@ -0,0 +1,1142 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+       module rrtmg_lw_rad
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+!
+! ****************************************************************************
+! *                                                                          *
+! *                              RRTMG_LW                                    *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                   a rapid radiative transfer model                       *
+! *                       for the longwave region                            * 
+! *             for application to general circulation models                *
+! *                                                                          *
+! *                                                                          *
+! *            Atmospheric and Environmental Research, Inc.                  *
+! *                        131 Hartwell Avenue                               *
+! *                        Lexington, MA 02421                               *
+! *                                                                          *
+! *                                                                          *
+! *                           Eli J. Mlawer                                  *
+! *                        Jennifer S. Delamere                              *
+! *                         Michael J. Iacono                                *
+! *                         Shepard A. Clough                                *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                       email:  emlawer@aer.com                            *
+! *                       email:  jdelamer@aer.com                           *
+! *                       email:  miacono@aer.com                            *
+! *                                                                          *
+! *        The authors wish to acknowledge the contributions of the          *
+! *        following people:  Steven J. Taubman, Karen Cady-Pereira,         *
+! *        Patrick D. Brown, Ronald E. Farren, Luke Chen, Robert Bergstrom.  *
+! *                                                                          *
+! ****************************************************************************
+
+! -------- Modules --------
+      use parkind, only : im => kind_im, rb => kind_rb, bb => kind_bool
+      use rrlw_vsn
+      use rrtmg_lw_cldprop, only: cldprop
+! *** Move the required call to rrtmg_lw_ini below and the following 
+! use association to the GCM initialization area ***
+!      use rrtmg_lw_init, only: rrtmg_lw_ini
+      use rrtmg_lw_rtrn, only: rtrn
+      use rrtmg_lw_rtrnmr, only: rtrnmr
+      use rrtmg_lw_setcoef, only: setcoef
+      use rrtmg_lw_taumol, only: taumol
+
+      implicit none
+
+! public interfaces/functions/subroutines
+      public :: rrtmg_lw, rrtmg_lw_1d, inatm
+
+!------------------------------------------------------------------
+      contains
+!------------------------------------------------------------------
+
+!------------------------------------------------------------------
+! Public subroutines
+!------------------------------------------------------------------
+           subroutine rrtmg_lw_1d &
+                   ( ncol    ,nlay    ,icld    ,idrv    , &
+                   play    ,plev    ,tlay    ,tlev    ,tsfc    , &
+                   h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr, &
+                   cfc11vmr,cfc12vmr,cfc22vmr,ccl4vmr ,emis    , &
+                   inflglw ,iceflglw,liqflglw,cldfr   , &
+                   taucld  ,cicewp  ,cliqwp  ,reice   ,reliq   , &
+                   tauaer  , &
+                   uflx    ,dflx    ,hr      ,uflxc   ,dflxc,  hrc, &
+                   duflx_dt,duflxc_dt )
+               use parrrtm, only : nbndlw
+               implicit none
+               integer(kind=im), intent(in) :: ncol            ! Number of horizontal columns
+               integer(kind=im), intent(in) :: nlay            ! Number of model layers
+               integer(kind=im), intent(inout) :: icld         ! Cloud overlap method
+               !    0: Clear only
+               !    1: Random
+               !    2: Maximum/random
+               !    3: Maximum
+               integer(kind=im), intent(in) :: idrv            ! Flag for calculation of dFdT, the change
+               !    in upward flux as a function of
+               !    surface temperature [0=off, 1=on]
+               !    0: Normal forward calculation
+               !    1: Normal forward calculation with
+               !       duflx_dt and duflxc_dt output
+
+               real(kind=rb),dimension(*), intent(in) :: play          ! Layer pressures (hPa, mb)
+               real(kind=rb) :: play_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: plev         ! Interface pressures (hPa, mb)
+               real(kind=rb):: plev_(ncol,nlay+1)
+               !    Dimensions: (ncol,nlay+1)
+               real(kind=rb),dimension(*), intent(in) :: tlay          ! Layer temperatures (K)
+               real(kind=rb):: tlay_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: tlev          ! Interface temperatures (K)
+               real(kind=rb):: tlev_(ncol,nlay+1)
+               !    Dimensions: (ncol,nlay+1)
+               real(kind=rb), intent(in) :: tsfc            ! Surface temperature (K)
+               real(kind=rb):: tsfc_(ncol)
+               !    Dimensions: (ncol)
+               real(kind=rb),dimension(*), intent(in) :: h2ovmr        ! H2O volume mixing ratio
+               real(kind=rb):: h2ovmr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: o3vmr         ! O3 volume mixing ratio
+               real(kind=rb):: o3vmr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: co2vmr        ! CO2 volume mixing ratio
+               real(kind=rb):: co2vmr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: ch4vmr        ! Methane volume mixing ratio
+               real(kind=rb):: ch4vmr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: n2ovmr        ! Nitrous oxide volume mixing ratio
+               real(kind=rb):: n2ovmr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: o2vmr         ! Oxygen volume mixing ratio
+               real(kind=rb):: o2vmr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: cfc11vmr      ! CFC11 volume mixing ratio
+               real(kind=rb):: cfc11vmr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: cfc12vmr      ! CFC12 volume mixing ratio
+               real(kind=rb):: cfc12vmr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: cfc22vmr      ! CFC22 volume mixing ratio
+               real(kind=rb):: cfc22vmr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: ccl4vmr       ! CCL4 volume mixing ratio
+               real(kind=rb):: ccl4vmr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: emis          ! Surface emissivity
+               real(kind=rb):: emis_(ncol,nbndlw)
+               !    Dimensions: (ncol,nbndlw)
+
+               integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties
+               integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification
+               integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification
+
+               real(kind=rb),dimension(*), intent(in) :: cldfr         ! Cloud fraction
+               real(kind=rb):: cldfr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: cicewp        ! Cloud ice water path (g/m2)
+               real(kind=rb):: cicewp_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: cliqwp        ! Cloud liquid water path (g/m2)
+               real(kind=rb):: cliqwp_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: reice         ! Cloud ice particle effective size (microns)
+               real(kind=rb):: reice_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               ! specific definition of reice depends on setting of iceflglw:
+               ! iceflglw = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),
+               !               r_ec must be >= 10.0 microns
+               ! iceflglw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+               !               r_ec range is limited to 13.0 to 130.0 microns
+               ! iceflglw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+               !               r_k range is limited to 5.0 to 131.0 microns
+               ! iceflglw = 3: generalized effective size, dge, (Fu, 1996),
+               !               dge range is limited to 5.0 to 140.0 microns
+               !               [dge = 1.0315 * r_ec]
+               real(kind=rb),dimension(*), intent(in) :: reliq         ! Cloud water drop effective radius (microns)
+               real(kind=rb):: reliq_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(in) :: taucld     ! In-cloud optical depth
+               real(kind=rb):: taucld_(nbndlw,ncol,nlay)
+               !    Dimensions: (nbndlw,ncol,nlay)
+               !      real(kind=rb), intent(in) :: ssacld(:,:,:)     ! In-cloud single scattering albedo
+               !    Dimensions: (nbndlw,ncol,nlay)
+               !   for future expansion
+               !   (lw scattering not yet available)
+               !      real(kind=rb), intent(in) :: asmcld(:,:,:)     ! In-cloud asymmetry parameter
+               !    Dimensions: (nbndlw,ncol,nlay)
+               !   for future expansion
+               !   (lw scattering not yet available)
+               real(kind=rb),dimension(*), intent(in) :: tauaer     ! aerosol optical depth
+               real(kind=rb):: tauaer_(ncol,nlay,nbndlw)
+               !    Dimensions: (ncol,nlay,nbndlw)
+               !      real(kind=rb), intent(in) :: ssaaer(:,:,:)     ! aerosol single scattering albedo
+               !    Dimensions: (ncol,nlay,nbndlw)
+               !   for future expansion
+               !   (lw aerosols/scattering not yet available)
+               !      real(kind=rb), intent(in) :: asmaer(:,:,:)     ! aerosol asymmetry parameter
+               !    Dimensions: (ncol,nlay,nbndlw)
+               !   for future expansion
+               !   (lw aerosols/scattering not yet available)
+
+
+               ! ----- Output -----
+
+               real(kind=rb),dimension(*), intent(out) :: uflx        ! Total sky longwave upward flux (W/m2)
+               real(kind=rb):: uflx_(ncol,nlay+1)
+               !    Dimensions: (ncol,nlay+1)
+               real(kind=rb),dimension(*), intent(out) :: dflx        ! Total sky longwave downward flux (W/m2)
+               real(kind=rb):: dflx_(ncol,nlay+1)
+               !    Dimensions: (ncol,nlay+1)
+               real(kind=rb),dimension(*), intent(out) :: hr         ! Total sky longwave radiative heating rate (K/d)
+               real(kind=rb):: hr_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+               real(kind=rb),dimension(*), intent(out) :: uflxc       ! Clear sky longwave upward flux (W/m2)
+               real(kind=rb):: uflxc_(ncol,nlay+1)
+               !    Dimensions: (ncol,nlay+1)
+               real(kind=rb),dimension(*), intent(out) :: dflxc        ! Clear sky longwave downward flux (W/m2)
+               real(kind=rb):: dflxc_(ncol,nlay+1)
+               !    Dimensions: (ncol,nlay+1)
+               real(kind=rb),dimension(*), intent(out) :: hrc        ! Clear sky longwave radiative heating rate (K/d)
+               real(kind=rb):: hrc_(ncol,nlay)
+               !    Dimensions: (ncol,nlay)
+
+               ! ----- Optional Output -----
+               real(kind=rb),dimension(*), intent(out), optional :: duflx_dt
+               real(kind=rb):: duflx_dt_(ncol,nlay+1)
+               ! change in upward longwave flux (w/m2/k)
+               ! with respect to surface temperature
+               !    Dimensions: (ncol,nlay+1)
+               real(kind=rb),dimension(*), intent(out), optional :: duflxc_dt
+               real(kind=rb):: duflxc_dt_(ncol,nlay+1)
+               ! change in clear sky upward longwave flux (w/m2/k)
+               ! with respect to surface temperature
+               !    Dimensions: (ncol,nlay+1)
+               integer(kind=im) :: ilay, iband
+
+                tsfc_(1)=tsfc
+               do ilay = 1, nlay
+                   play_(1,ilay) = play(ilay)
+                   tlay_(1,ilay) = tlay(ilay)
+                   h2ovmr_(1,ilay) = h2ovmr(ilay)
+                   o3vmr_(1,ilay) = o3vmr(ilay)
+                   co2vmr_(1,ilay) = co2vmr(ilay)
+                   ch4vmr_(1,ilay) = ch4vmr(ilay)
+                   n2ovmr_(1,ilay) = n2ovmr(ilay)
+                   o2vmr_(1,ilay) = o2vmr(ilay)
+                   cfc11vmr_(1,ilay) = cfc11vmr(ilay)
+                   cfc12vmr_(1,ilay) = cfc12vmr(ilay)
+                   cfc22vmr_(1,ilay) = cfc22vmr(ilay)
+                   ccl4vmr_(1,ilay) = ccl4vmr(ilay)
+                   cldfr_(1,ilay) = cldfr(ilay)
+                   cicewp_(1,ilay) = cicewp(ilay)
+                   cliqwp_(1,ilay) = cliqwp(ilay)
+                   reice_(1,ilay) = reice(ilay)
+                   reliq_(1,ilay) = reliq(ilay)
+                   hr_(1,ilay) = hr(ilay)
+                   hrc_(1,ilay) = hrc(ilay)
+                   do iband= 1, nbndlw
+                       taucld_(iband,1,ilay) = taucld((iband-1)*nlay + ilay)
+                       tauaer_(1,ilay,iband) = tauaer((iband-1)*nlay + ilay)
+                   end do
+               end do
+               do iband = 1, nbndlw
+                       emis_(1,iband) = emis(iband)
+               end do
+               do ilay = 1, nlay+1
+                   plev_(1,ilay) = plev(ilay)
+                   tlev_(1,ilay) = tlev(ilay)
+               end do
+
+
+                call rrtmg_lw &
+                        ( ncol    ,nlay    ,icld    ,idrv    , &
+                        play_    ,plev_    ,tlay_    ,tlev_    ,tsfc_    , &
+                        h2ovmr_  ,o3vmr_   ,co2vmr_  ,ch4vmr_  ,n2ovmr_  ,o2vmr_, &
+                        cfc11vmr_,cfc12vmr_,cfc22vmr_,ccl4vmr_ ,emis_    , &
+                        inflglw ,iceflglw,liqflglw,cldfr_   , &
+                        taucld_  ,cicewp_  ,cliqwp_  ,reice_   ,reliq_   , &
+                        tauaer_  , &
+                        uflx_    ,dflx_    ,hr_      ,uflxc_   ,dflxc_,  hrc_, &
+                        duflx_dt_,duflxc_dt_ )
+
+               do ilay = 1, nlay
+                   hr(ilay) = hr_(1,ilay)
+                   hrc(ilay) = hrc_(1,ilay)
+                   uflx(ilay) = uflx_(1,ilay)
+                   uflxc(ilay) = uflxc_(1,ilay)
+                   dflx(ilay) = dflx_(1,ilay)
+                   dflxc(ilay) = dflxc_(1,ilay)
+               end do
+               uflx(nlay+1) = uflx_(1,nlay+1)
+               uflxc(nlay+1) = uflxc_(1,nlay+1)
+               dflx(nlay+1) = dflx_(1,nlay+1)
+               dflxc(nlay+1) = dflxc_(1,nlay+1)
+
+           end subroutine rrtmg_lw_1d
+
+               subroutine rrtmg_lw &
+            ( ncol    ,nlay    ,icld    ,idrv    , &
+             play    ,plev    ,tlay    ,tlev    ,tsfc    , &
+             h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr, &
+             cfc11vmr,cfc12vmr,cfc22vmr,ccl4vmr ,emis    , &
+             inflglw ,iceflglw,liqflglw,cldfr   , &
+             taucld  ,cicewp  ,cliqwp  ,reice   ,reliq   , &
+             tauaer  , &
+             uflx    ,dflx    ,hr      ,uflxc   ,dflxc,  hrc, &
+             duflx_dt,duflxc_dt )
+
+! -------- Description --------
+
+! This program is the driver subroutine for RRTMG_LW, the AER LW radiation 
+! model for application to GCMs, that has been adapted from RRTM_LW for
+! improved efficiency.
+!
+! NOTE: The call to RRTMG_LW_INI should be moved to the GCM initialization
+!  area, since this has to be called only once. 
+!
+! This routine:
+!    a) calls INATM to read in the atmospheric profile from GCM;
+!       all layering in RRTMG is ordered from surface to toa. 
+!    b) calls CLDPROP to set cloud optical depth based on input
+!       cloud properties
+!    c) calls SETCOEF to calculate various quantities needed for 
+!       the radiative transfer algorithm
+!    d) calls TAUMOL to calculate gaseous optical depths for each 
+!       of the 16 spectral bands
+!    e) calls RTRNMR (for both clear and cloudy profiles) to perform the
+!       radiative transfer calculation with a maximum-random cloud
+!       overlap method, or calls RTRN to use random cloud overlap.
+!    f) passes the necessary fluxes and cooling rates back to GCM
+!
+! Two modes of operation are possible:
+!     The mode is chosen by using either rrtmg_lw.nomcica.f90 (to not use
+!     McICA) or rrtmg_lw.f90 (to use McICA) to interface with a GCM. 
+!
+!    1) Standard, single forward model calculation (imca = 0)
+!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., 
+!       JC, 2003) method is applied to the forward model calculation (imca = 1)
+!
+! Two methods of cloud property input are possible:
+!     Cloud properties can be input in one of two ways (controlled by input 
+!     flags inflglw, iceflglw, and liqflglw; see text file rrtmg_lw_instructions
+!     and subroutine rrtmg_lw_cldprop.f90 for further details):
+!
+!    1) Input cloud fraction and cloud optical depth directly (inflglw = 0)
+!    2) Input cloud fraction and cloud physical properties (inflglw = 1 or 2);  
+!       cloud optical properties are calculated by cldprop or cldprmc based
+!       on input settings of iceflglw and liqflglw.  Ice particle size provided
+!       must be appropriately defined for the ice parameterization selected. 
+!
+! One method of aerosol property input is possible:
+!     Aerosol properties can be input in only one way (controlled by input 
+!     flag iaer; see text file rrtmg_lw_instructions for further details):
+!
+!    1) Input aerosol optical depth directly by layer and spectral band (iaer=10);
+!       band average optical depth at the mid-point of each spectral band.
+!       RRTMG_LW currently treats only aerosol absorption;
+!       scattering capability is not presently available.
+!
+! The optional calculation of the change in upward flux as a function of surface 
+! temperature is available (controlled by input flag idrv).  This can be utilized 
+! to approximate adjustments to the upward flux profile caused only by a change in 
+! surface temperature between full radiation calls.  This feature uses the pre-
+! calculated derivative of the Planck function with respect to surface temperature. 
+!
+!    1) Normal forward calculation for the input profile (idrv=0)
+!    2) Normal forward calculation with optional calculation of the change
+!       in upward flux as a function of surface temperature for clear sky
+!       and total sky flux.  Flux partial derivatives are provided in arrays
+!       duflx_dt and duflxc_dt for total and clear sky.  (idrv=1)
+!
+!
+! ------- Modifications -------
+!
+! This version of RRTMG_LW has been modified from RRTM_LW to use a reduced 
+! set of g-points for application to GCMs.  
+!
+!-- Original version (derived from RRTM_LW), reduction of g-points, other
+!   revisions for use with GCMs.  
+!     1999: M. J. Iacono, AER, Inc.
+!-- Adapted for use with NCAR/CAM.
+!     May 2004: M. J. Iacono, AER, Inc.
+!-- Conversion to F90 formatting for consistency with rrtmg_sw.
+!     Feb 2007: M. J. Iacono, AER, Inc.
+!-- Modifications to formatting to use assumed-shape arrays.
+!     Aug 2007: M. J. Iacono, AER, Inc.
+!-- Modified to add longwave aerosol absorption.
+!     Apr 2008: M. J. Iacono, AER, Inc.
+!-- Added capability to calculate derivative of upward flux wrt surface temperature. 
+!     Nov 2009: M. J. Iacono, E. J. Mlawer, AER, Inc.
+
+! --------- Modules ----------
+
+      use parrrtm, only : nbndlw, ngptlw, maxxsec, mxmol
+      use rrlw_con, only: fluxfac, heatfac, oneminus, pi
+      use rrlw_wvn, only: ng, ngb, nspa, nspb, wavenum1, wavenum2, delwave
+
+! ------- Declarations -------
+
+! ----- Input -----
+! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained
+! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) 
+      integer(kind=im), intent(in) :: ncol            ! Number of horizontal columns
+      integer(kind=im), intent(in) :: nlay            ! Number of model layers
+      integer(kind=im), intent(inout) :: icld         ! Cloud overlap method
+                                                      !    0: Clear only
+                                                      !    1: Random
+                                                      !    2: Maximum/random
+                                                      !    3: Maximum
+      integer(kind=im), intent(in) :: idrv            ! Flag for calculation of dFdT, the change
+                                                      !    in upward flux as a function of 
+                                                      !    surface temperature [0=off, 1=on]
+                                                      !    0: Normal forward calculation
+                                                      !    1: Normal forward calculation with
+                                                      !       duflx_dt and duflxc_dt output
+
+      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc11vmr(:,:)      ! CFC11 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc12vmr(:,:)      ! CFC12 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc22vmr(:,:)      ! CFC22 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ccl4vmr(:,:)       ! CCL4 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: emis(:,:)          ! Surface emissivity
+                                                      !    Dimensions: (ncol,nbndlw)
+
+      integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties
+      integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification
+      integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification
+
+      real(kind=rb), intent(in) :: cldfr(:,:)         ! Cloud fraction
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cicewp(:,:)        ! Cloud ice water path (g/m2)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cliqwp(:,:)        ! Cloud liquid water path (g/m2)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: reice(:,:)         ! Cloud ice particle effective size (microns)
+                                                      !    Dimensions: (ncol,nlay)
+                                                      ! specific definition of reice depends on setting of iceflglw:
+                                                      ! iceflglw = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !               r_ec must be >= 10.0 microns
+                                                      ! iceflglw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !               r_ec range is limited to 13.0 to 130.0 microns
+                                                      ! iceflglw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+                                                      !               r_k range is limited to 5.0 to 131.0 microns
+                                                      ! iceflglw = 3: generalized effective size, dge, (Fu, 1996),
+                                                      !               dge range is limited to 5.0 to 140.0 microns
+                                                      !               [dge = 1.0315 * r_ec]
+      real(kind=rb), intent(in) :: reliq(:,:)         ! Cloud water drop effective radius (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: taucld(:,:,:)      ! In-cloud optical depth
+                                                      !    Dimensions: (nbndlw,ncol,nlay)
+!      real(kind=rb), intent(in) :: ssacld(:,:,:)     ! In-cloud single scattering albedo
+                                                      !    Dimensions: (nbndlw,ncol,nlay)
+                                                      !   for future expansion 
+                                                      !   (lw scattering not yet available)
+!      real(kind=rb), intent(in) :: asmcld(:,:,:)     ! In-cloud asymmetry parameter
+                                                      !    Dimensions: (nbndlw,ncol,nlay)
+                                                      !   for future expansion 
+                                                      !   (lw scattering not yet available)
+      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! aerosol optical depth
+                                                      !    Dimensions: (ncol,nlay,nbndlw)
+!      real(kind=rb), intent(in) :: ssaaer(:,:,:)     ! aerosol single scattering albedo
+                                                      !    Dimensions: (ncol,nlay,nbndlw)
+                                                      !   for future expansion 
+                                                      !   (lw aerosols/scattering not yet available)
+!      real(kind=rb), intent(in) :: asmaer(:,:,:)     ! aerosol asymmetry parameter
+                                                      !    Dimensions: (ncol,nlay,nbndlw)
+                                                      !   for future expansion 
+                                                      !   (lw aerosols/scattering not yet available)
+
+
+! ----- Output -----
+
+      real(kind=rb), intent(out) :: uflx(:,:)         ! Total sky longwave upward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: dflx(:,:)         ! Total sky longwave downward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: hr(:,:)           ! Total sky longwave radiative heating rate (K/d)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(out) :: uflxc(:,:)        ! Clear sky longwave upward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: dflxc(:,:)        ! Clear sky longwave downward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: hrc(:,:)          ! Clear sky longwave radiative heating rate (K/d)
+                                                      !    Dimensions: (ncol,nlay)
+
+! ----- Optional Output -----
+      real(kind=rb), intent(out), optional :: duflx_dt(:,:)     
+                                                      ! change in upward longwave flux (w/m2/k)
+                                                      ! with respect to surface temperature
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out), optional :: duflxc_dt(:,:)    
+                                                      ! change in clear sky upward longwave flux (w/m2/k)
+                                                      ! with respect to surface temperature
+                                                      !    Dimensions: (ncol,nlay+1)
+
+! ----- Local -----
+
+! Control
+      integer(kind=im) :: nlayers             ! total number of layers
+      integer(kind=im) :: istart              ! beginning band of calculation
+      integer(kind=im) :: iend                ! ending band of calculation
+      integer(kind=im) :: iout                ! output option flag (inactive)
+      integer(kind=im) :: iaer                ! aerosol option flag
+      integer(kind=im) :: iplon               ! column loop index
+      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]
+      integer(kind=im) :: k                   ! layer loop index
+      integer(kind=im) :: ig                  ! g-point loop index
+
+! Atmosphere
+      real(kind=rb) :: pavel(nlay+1)          ! layer pressures (mb) 
+      real(kind=rb) :: tavel(nlay+1)          ! layer temperatures (K)
+      real(kind=rb) :: pz(0:nlay+1)           ! level (interface) pressures (hPa, mb)
+      real(kind=rb) :: tz(0:nlay+1)           ! level (interface) temperatures (K)
+      real(kind=rb) :: tbound                 ! surface temperature (K)
+      real(kind=rb) :: coldry(nlay+1)         ! dry air column density (mol/cm2)
+      real(kind=rb) :: wbrodl(nlay+1)         ! broadening gas column density (mol/cm2)
+      real(kind=rb) :: wkl(mxmol,nlay+1)      ! molecular amounts (mol/cm-2)
+      real(kind=rb) :: wx(maxxsec,nlay+1)     ! cross-section amounts (mol/cm-2)
+      real(kind=rb) :: pwvcm                  ! precipitable water vapor (cm)
+      real(kind=rb) :: semiss(nbndlw)         ! lw surface emissivity
+      real(kind=rb) :: fracs(nlay+1,ngptlw)   ! 
+      real(kind=rb) :: taug(nlay+1,ngptlw)    ! gaseous optical depths
+      real(kind=rb) :: taut(nlay+1,ngptlw)    ! gaseous + aerosol optical depths
+
+      real(kind=rb) :: taua(nlay+1,nbndlw)    ! aerosol optical depth
+!      real(kind=rb) :: ssaa(nlay+1,nbndlw)   ! aerosol single scattering albedo
+                                              !   for future expansion 
+                                              !   (lw aerosols/scattering not yet available)
+!      real(kind=rb) :: asma(nlay+1,nbndlw)   ! aerosol asymmetry parameter
+                                              !   for future expansion 
+                                              !   (lw aerosols/scattering not yet available)
+
+! Atmosphere - setcoef
+      integer(kind=im) :: laytrop             ! tropopause layer index
+      integer(kind=im) :: jp(nlay+1)          ! lookup table index 
+      integer(kind=im) :: jt(nlay+1)          ! lookup table index 
+      integer(kind=im) :: jt1(nlay+1)         ! lookup table index 
+      real(kind=rb) :: planklay(nlay+1,nbndlw)! 
+      real(kind=rb) :: planklev(0:nlay+1,nbndlw)! 
+      real(kind=rb) :: plankbnd(nbndlw)       ! 
+      real(kind=rb) :: dplankbnd_dt(nbndlw)   ! 
+
+      real(kind=rb) :: colh2o(nlay+1)         ! column amount (h2o)
+      real(kind=rb) :: colco2(nlay+1)         ! column amount (co2)
+      real(kind=rb) :: colo3(nlay+1)          ! column amount (o3)
+      real(kind=rb) :: coln2o(nlay+1)         ! column amount (n2o)
+      real(kind=rb) :: colco(nlay+1)          ! column amount (co)
+      real(kind=rb) :: colch4(nlay+1)         ! column amount (ch4)
+      real(kind=rb) :: colo2(nlay+1)          ! column amount (o2)
+      real(kind=rb) :: colbrd(nlay+1)         ! column amount (broadening gases)
+
+      integer(kind=im) :: indself(nlay+1)
+      integer(kind=im) :: indfor(nlay+1)
+      integer(kind=im) :: idebug
+      real(kind=rb) :: selffac(nlay+1)
+      real(kind=rb) :: selffrac(nlay+1)
+      real(kind=rb) :: forfac(nlay+1)
+      real(kind=rb) :: forfrac(nlay+1)
+
+      integer(kind=im) :: indminor(nlay+1)
+      real(kind=rb) :: minorfrac(nlay+1)
+      real(kind=rb) :: scaleminor(nlay+1)
+      real(kind=rb) :: scaleminorn2(nlay+1)
+
+      real(kind=rb) :: &                      !
+                         fac00(nlay+1), fac01(nlay+1), &
+                         fac10(nlay+1), fac11(nlay+1) 
+      real(kind=rb) :: &                      !
+                         rat_h2oco2(nlay+1),rat_h2oco2_1(nlay+1), &
+                         rat_h2oo3(nlay+1),rat_h2oo3_1(nlay+1), &
+                         rat_h2on2o(nlay+1),rat_h2on2o_1(nlay+1), &
+                         rat_h2och4(nlay+1),rat_h2och4_1(nlay+1), &
+                         rat_n2oco2(nlay+1),rat_n2oco2_1(nlay+1), &
+                         rat_o3co2(nlay+1),rat_o3co2_1(nlay+1)
+
+! Atmosphere/clouds - cldprop
+      integer(kind=im) :: ncbands             ! number of cloud spectral bands
+      integer(kind=im) :: inflag              ! flag for cloud property method
+      integer(kind=im) :: iceflag             ! flag for ice cloud properties
+      integer(kind=im) :: liqflag             ! flag for liquid cloud properties
+
+      real(kind=rb) :: cldfrac(nlay+1)        ! layer cloud fraction
+      real(kind=rb) :: tauc(nbndlw,nlay+1)    ! in-cloud optical depth
+!      real(kind=rb) :: ssac(nbndlw,nlay+1)   ! in-cloud single scattering albedo
+                                              !   for future expansion 
+                                              !   (lw scattering not yet available)
+!      real(kind=rb) :: asmc(nbndlw,nlay+1)   ! in-cloud asymmetry parameter
+                                              !   for future expansion 
+                                              !   (lw scattering not yet available)
+      real(kind=rb) :: ciwp(nlay+1)           ! cloud ice water path
+      real(kind=rb) :: clwp(nlay+1)           ! cloud liquid water path
+      real(kind=rb) :: rel(nlay+1)            ! cloud liquid particle effective radius (microns)
+      real(kind=rb) :: rei(nlay+1)            ! cloud ice particle effective size (microns)
+      real(kind=rb) :: taucloud(nlay+1,nbndlw)! layer in-cloud optical depth
+
+! Output
+      real(kind=rb) :: totuflux(0:nlay+1)     ! upward longwave flux (w/m2)
+      real(kind=rb) :: totdflux(0:nlay+1)     ! downward longwave flux (w/m2)
+      real(kind=rb) :: fnet(0:nlay+1)         ! net longwave flux (w/m2)
+      real(kind=rb) :: htr(0:nlay+1)          ! longwave heating rate (k/day)
+      real(kind=rb) :: totuclfl(0:nlay+1)     ! clear sky upward longwave flux (w/m2)
+      real(kind=rb) :: totdclfl(0:nlay+1)     ! clear sky downward longwave flux (w/m2)
+      real(kind=rb) :: fnetc(0:nlay+1)        ! clear sky net longwave flux (w/m2)
+      real(kind=rb) :: htrc(0:nlay+1)         ! clear sky longwave heating rate (k/day)
+      real(kind=rb) :: dtotuflux_dt(0:nlay+1) ! change in upward longwave flux (w/m2/k)
+                                              ! with respect to surface temperature
+      real(kind=rb) :: dtotuclfl_dt(0:nlay+1) ! change in clear sky upward longwave flux (w/m2/k)
+                                              ! with respect to surface temperature
+
+!
+! Initializations
+
+      oneminus = 1._rb - 1.e-6_rb
+      pi = 2._rb*asin(1._rb)
+      fluxfac = pi * 2.e4_rb                  ! orig:   fluxfac = pi * 2.d4  
+      istart = 1
+      iend = 16
+      iout = 0
+
+! Set imca to select calculation type:
+!  imca = 0, use standard forward model calculation
+!  imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability
+
+! *** This version does not use McICA (imca = 0) ***
+
+! Set default icld to select of clear or cloud calculation and cloud overlap method  
+! icld = 0, clear only
+! icld = 1, with clouds using random cloud overlap
+! icld = 2, with clouds using maximum/random cloud overlap
+! icld = 3, with clouds using maximum cloud overlap (McICA only)
+
+      if (icld.lt.0.or.icld.gt.3) icld = 2
+
+! Set iaer to select aerosol option
+! iaer = 0, no aerosols
+! icld = 10, input total aerosol optical depth (tauaer) directly
+      iaer = 0
+
+! Call model and data initialization, compute lookup tables, perform
+! reduction of g-points from 256 to 140 for input absorption coefficient 
+! data and other arrays.
+!
+! In a GCM this call should be placed in the model initialization
+! area, since this has to be called only once.  
+!      call rrtmg_lw_ini(cpdair)
+
+!  This is the main longitude/column loop within RRTMG.
+
+      do iplon = 1, ncol
+
+!  Prepare atmospheric profile from GCM for use in RRTMG, and define
+!  other input parameters.  
+
+         call inatm (iplon, nlay, icld, iaer, &
+              play, plev, tlay, tlev, tsfc, h2ovmr, &
+              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, cfc11vmr, cfc12vmr, &
+              cfc22vmr, ccl4vmr, emis, inflglw, iceflglw, liqflglw, &
+              cldfr, taucld, cicewp, cliqwp, reice, reliq, tauaer, &
+              nlayers, pavel, pz, tavel, tz, tbound, semiss, coldry, &
+              wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &
+              cldfrac, tauc, ciwp, clwp, rei, rel, taua)
+
+!  For cloudy atmosphere, use cldprop to set cloud optical properties based on
+!  input cloud physical properties.  Select method based on choices described
+!  in cldprop.  Cloud fraction, water path, liquid droplet and ice particle
+!  effective radius must be passed into cldprop.  Cloud fraction and cloud
+!  optical depth are transferred to rrtmg_lw arrays in cldprop.
+         call cldprop(nlayers, inflag, iceflag, liqflag, cldfrac, tauc, &
+                      ciwp, clwp, rei, rel, ncbands, taucloud)
+
+! Calculate information needed by the radiative transfer routine
+! that is specific to this atmosphere, especially some of the 
+! coefficients and indices needed to compute the optical depths
+! by interpolating data from stored reference atmospheres.
+         call setcoef(nlayers, istart, pavel, tavel, tz, tbound, semiss, &
+                      coldry, wkl, wbrodl, &
+                      laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &
+                      idrv, dplankbnd_dt, &
+                      colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &
+                      colbrd, fac00, fac01, fac10, fac11, &
+                      rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &
+                      rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &
+                      rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &
+                      selffac, selffrac, indself, forfac, forfrac, indfor, &
+                      minorfrac, scaleminor, scaleminorn2, indminor)
+
+!  Calculate the gaseous optical depths and Planck fractions for 
+!  each longwave spectral band.
+         call taumol(nlayers, pavel, wx, coldry, &
+                     laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &
+                     colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &
+                     colbrd, fac00, fac01, fac10, fac11, &
+                     rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &
+                     rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &
+                     rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &
+                     selffac, selffrac, indself, forfac, forfrac, indfor, &
+                     minorfrac, scaleminor, scaleminorn2, indminor, &
+                     fracs, taug)
+
+! Combine gaseous and aerosol optical depths, if aerosol active
+         if (iaer .eq. 0) then
+            do k = 1, nlayers
+               do ig = 1, ngptlw
+                  taut(k,ig) = taug(k,ig)
+               enddo
+            enddo
+         elseif (iaer .eq. 10) then
+            do k = 1, nlayers
+               do ig = 1, ngptlw
+                  taut(k,ig) = taug(k,ig) + taua(k,ngb(ig))
+               enddo
+            enddo
+         endif
+
+! Call the radiative transfer routine.
+! Either routine can be called to do clear sky calculation.  If clouds
+! are present, then select routine based on cloud overlap assumption
+! to be used.  Clear sky calculation is done simultaneously.
+
+        if (icld .eq. 1) then
+           call rtrn(nlayers, istart, iend, iout, pz, semiss, ncbands, &
+                  cldfrac, taucloud, planklay, planklev, plankbnd, &
+                  pwvcm, fracs, taut, &
+                  totuflux, totdflux, fnet, htr, &
+                  totuclfl, totdclfl, fnetc, htrc, &
+                  idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )
+        else
+           call rtrnmr(nlayers, istart, iend, iout, pz, semiss, ncbands, &
+                  cldfrac, taucloud, planklay, planklev, plankbnd, &
+                  pwvcm, fracs, taut, &
+                  totuflux, totdflux, fnet, htr, &
+                  totuclfl, totdclfl, fnetc, htrc, &
+                  idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )
+        endif
+
+!  Transfer up and down fluxes and heating rate to output arrays.
+!  Vertical indexing goes from bottom to top; reverse here for GCM if necessary.
+
+           do k = 0, nlayers
+              uflx(iplon,k+1) = totuflux(k)
+              dflx(iplon,k+1) = totdflux(k)
+              uflxc(iplon,k+1) = totuclfl(k)
+              dflxc(iplon,k+1) = totdclfl(k)
+           enddo
+           do k = 0, nlayers-1
+              hr(iplon,k+1) = htr(k)
+              hrc(iplon,k+1) = htrc(k)
+           enddo
+
+!  If idrv=1 option is active, transfer upward flux derivatives to output arrays.
+
+         if (idrv .eq. 1) then 
+            do k = 0, nlayers
+               duflx_dt(iplon,k+1) = dtotuflux_dt(k)
+               duflxc_dt(iplon,k+1) = dtotuclfl_dt(k)
+            enddo
+         endif
+
+! End longitude/column loop
+      enddo
+      end subroutine rrtmg_lw
+
+!***************************************************************************
+      subroutine inatm (iplon, nlay, icld, iaer, &
+              play, plev, tlay, tlev, tsfc, h2ovmr, &
+              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, cfc11vmr, cfc12vmr, &
+              cfc22vmr, ccl4vmr, emis, inflglw, iceflglw, liqflglw, &
+              cldfr, taucld, cicewp, cliqwp, reice, reliq, tauaer, &
+              nlayers, pavel, pz, tavel, tz, tbound, semiss, coldry, &
+              wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &
+              cldfrac, tauc, ciwp, clwp, rei, rel, taua)
+!***************************************************************************
+!
+!  Input atmospheric profile from GCM, and prepare it for use in RRTMG_LW.
+!  Set other RRTMG_LW input parameters.  
+!
+!***************************************************************************
+
+! --------- Modules ----------
+
+      use parrrtm, only : nbndlw, ngptlw, nmol, maxxsec, mxmol
+      use rrlw_con, only: fluxfac, heatfac, oneminus, pi, grav, avogad
+      use rrlw_wvn, only: ng, nspa, nspb, wavenum1, wavenum2, delwave, ixindx
+
+! ------- Declarations -------
+
+! ----- Input -----
+! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained
+! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) 
+      integer(kind=im), intent(in) :: iplon           ! column loop index
+      integer(kind=im), intent(in) :: nlay            ! Number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud and cloud overlap flag
+      integer(kind=im), intent(in) :: iaer            ! aerosol option flag
+
+      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc11vmr(:,:)      ! CFC11 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc12vmr(:,:)      ! CFC12 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cfc22vmr(:,:)      ! CFC22 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ccl4vmr(:,:)       ! CCL4 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: emis(:,:)          ! Surface emissivity
+                                                      !    Dimensions: (ncol,nbndlw)
+
+      integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties
+      integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification
+      integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification
+
+      real(kind=rb), intent(in) :: cldfr(:,:)         ! Cloud fraction
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cicewp(:,:)        ! Cloud ice water path (g/m2)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cliqwp(:,:)        ! Cloud liquid water path (g/m2)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: reice(:,:)         ! Cloud ice effective size (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: reliq(:,:)         ! Cloud water drop effective radius (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: taucld(:,:,:)      ! In-cloud optical depth
+                                                      !    Dimensions: (nbndlw,ncol,nlay)
+      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth
+                                                      !    Dimensions: (ncol,nlay,nbndlw)
+
+! ----- Output -----
+! Atmosphere
+      integer(kind=im), intent(out) :: nlayers        ! number of layers
+
+      real(kind=rb), intent(out) :: pavel(:)          ! layer pressures (mb) 
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: tavel(:)          ! layer temperatures (K)
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: pz(0:)            ! level (interface) pressures (hPa, mb)
+                                                      !    Dimensions: (0:nlay)
+      real(kind=rb), intent(out) :: tz(0:)            ! level (interface) temperatures (K)
+                                                      !    Dimensions: (0:nlay)
+      real(kind=rb), intent(out) :: tbound            ! surface temperature (K)
+      real(kind=rb), intent(out) :: coldry(:)         ! dry air column density (mol/cm2)
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: wbrodl(:)         ! broadening gas column density (mol/cm2)
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: wkl(:,:)          ! molecular amounts (mol/cm-2)
+                                                      !    Dimensions: (mxmol,nlay)
+      real(kind=rb), intent(out) :: wx(:,:)           ! cross-section amounts (mol/cm-2)
+                                                      !    Dimensions: (maxxsec,nlay)
+      real(kind=rb), intent(out) :: pwvcm             ! precipitable water vapor (cm)
+      real(kind=rb), intent(out) :: semiss(:)         ! lw surface emissivity
+                                                      !    Dimensions: (nbndlw)
+
+! Atmosphere/clouds - cldprop
+      integer(kind=im), intent(out) :: inflag         ! flag for cloud property method
+      integer(kind=im), intent(out) :: iceflag        ! flag for ice cloud properties
+      integer(kind=im), intent(out) :: liqflag        ! flag for liquid cloud properties
+
+      real(kind=rb), intent(out) :: cldfrac(:)        ! layer cloud fraction
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: ciwp(:)           ! cloud ice water path
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: clwp(:)           ! cloud liquid water path
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: rel(:)            ! cloud liquid particle effective radius (microns)
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: rei(:)            ! cloud ice particle effective size (microns)
+                                                      !    Dimensions: (nlay)
+      real(kind=rb), intent(out) :: tauc(:,:)         ! in-cloud optical depth
+                                                      !    Dimensions: (nbndlw,nlay)
+      real(kind=rb), intent(out) :: taua(:,:)         ! aerosol optical depth
+                                                      !    Dimensions: (nlay,nbndlw)
+
+
+! ----- Local -----
+      real(kind=rb), parameter :: amd = 28.9660_rb    ! Effective molecular weight of dry air (g/mol)
+      real(kind=rb), parameter :: amw = 18.0160_rb    ! Molecular weight of water vapor (g/mol)
+!      real(kind=rb), parameter :: amc = 44.0098_rb    ! Molecular weight of carbon dioxide (g/mol)
+!      real(kind=rb), parameter :: amo = 47.9998_rb    ! Molecular weight of ozone (g/mol)
+!      real(kind=rb), parameter :: amo2 = 31.9999_rb   ! Molecular weight of oxygen (g/mol)
+!      real(kind=rb), parameter :: amch4 = 16.0430_rb  ! Molecular weight of methane (g/mol)
+!      real(kind=rb), parameter :: amn2o = 44.0128_rb  ! Molecular weight of nitrous oxide (g/mol)
+!      real(kind=rb), parameter :: amc11 = 137.3684_rb ! Molecular weight of CFC11 (g/mol) - CCL3F
+!      real(kind=rb), parameter :: amc12 = 120.9138_rb ! Molecular weight of CFC12 (g/mol) - CCL2F2
+!      real(kind=rb), parameter :: amc22 = 86.4688_rb  ! Molecular weight of CFC22 (g/mol) - CHCLF2
+!      real(kind=rb), parameter :: amcl4 = 153.823_rb  ! Molecular weight of CCL4 (g/mol) - CCL4
+
+! Set molecular weight ratios (for converting mmr to vmr)
+!  e.g. h2ovmr = h2ommr * amdw)
+      real(kind=rb), parameter :: amdw = 1.607793_rb  ! Molecular weight of dry air / water vapor
+      real(kind=rb), parameter :: amdc = 0.658114_rb  ! Molecular weight of dry air / carbon dioxide
+      real(kind=rb), parameter :: amdo = 0.603428_rb  ! Molecular weight of dry air / ozone
+      real(kind=rb), parameter :: amdm = 1.805423_rb  ! Molecular weight of dry air / methane
+      real(kind=rb), parameter :: amdn = 0.658090_rb  ! Molecular weight of dry air / nitrous oxide
+      real(kind=rb), parameter :: amdo2 = 0.905140_rb ! Molecular weight of dry air / oxygen
+      real(kind=rb), parameter :: amdc1 = 0.210852_rb ! Molecular weight of dry air / CFC11
+      real(kind=rb), parameter :: amdc2 = 0.239546_rb ! Molecular weight of dry air / CFC12
+
+      integer(kind=im) :: isp, l, ix, n, imol, ib       ! Loop indices
+      real(kind=rb) :: amm, amttl, wvttl, wvsh, summol  
+
+! Add one to nlayers here to include extra model layer at top of atmosphere
+      nlayers = nlay
+
+!  Initialize all molecular amounts and cloud properties to zero here, then pass input amounts
+!  into RRTM arrays below.
+
+      wkl(:,:) = 0.0_rb
+      wx(:,:) = 0.0_rb
+      cldfrac(:) = 0.0_rb
+      tauc(:,:) = 0.0_rb
+      ciwp(:) = 0.0_rb
+      clwp(:) = 0.0_rb
+      rei(:) = 0.0_rb
+      rel(:) = 0.0_rb
+      taua(:,:) = 0.0_rb
+      amttl = 0.0_rb
+      wvttl = 0.0_rb
+
+!  Set surface temperature.
+      tbound = tsfc(iplon)
+!  Install input GCM arrays into RRTMG_LW arrays for pressure, temperature,
+!  and molecular amounts.  
+!  Pressures are input in mb, or are converted to mb here.
+!  Molecular amounts are input in volume mixing ratio, or are converted from 
+!  mass mixing ratio (or specific humidity for h2o) to volume mixing ratio
+!  here. These are then converted to molecular amount (molec/cm2) below.  
+!  The dry air column COLDRY (in molec/cm2) is calculated from the level 
+!  pressures, pz (in mb), based on the hydrostatic equation and includes a 
+!  correction to account for h2o in the layer.  The molecular weight of moist 
+!  air (amm) is calculated for each layer.  
+!  Note: In RRTMG, layer indexing goes from bottom to top, and coding below
+!  assumes GCM input fields are also bottom to top. Input layer indexing
+!  from GCM fields should be reversed here if necessary.
+
+      pz(0) = plev(iplon,1)
+      tz(0) = tlev(iplon,1)
+      do l = 1, nlayers
+         pavel(l) = play(iplon,l)
+         tavel(l) = tlay(iplon,l)
+         pz(l) = plev(iplon,l+1)
+         tz(l) = tlev(iplon,l+1)
+! For h2o input in vmr:
+!         wkl(1,l) = h2ovmr(iplon,l)
+! For h2o input in mmr:
+         wkl(1,l) = h2ovmr(iplon,l)*amdw
+! For h2o input in specific humidity;
+!         wkl(1,l) = (h2o(iplon,l)/(1._rb - h2o(iplon,l)))*amdw
+         wkl(2,l) = co2vmr(iplon,l)
+         wkl(3,l) = o3vmr(iplon,l)
+         wkl(4,l) = n2ovmr(iplon,l)
+         wkl(6,l) = ch4vmr(iplon,l)
+         wkl(7,l) = o2vmr(iplon,l)
+         amm = (1._rb - wkl(1,l)) * amd + wkl(1,l) * amw            
+         coldry(l) = (pz(l-1)-pz(l)) * 1.e3_rb * avogad / &
+                     (1.e2_rb * grav * amm * (1._rb + wkl(1,l)))
+      enddo
+
+! Set cross section molecule amounts from input; convert to vmr if necessary
+      do l=1, nlayers
+         wx(1,l) = ccl4vmr(iplon,l)
+         wx(2,l) = cfc11vmr(iplon,l)
+         wx(3,l) = cfc12vmr(iplon,l)
+         wx(4,l) = cfc22vmr(iplon,l)
+      enddo      
+
+! The following section can be used to set values for an additional layer (from
+! the GCM top level to 1.e-4 mb) for improved calculation of TOA fluxes. 
+! Temperature and molecular amounts in the extra model layer are set to 
+! their values in the top GCM model layer, though these can be modified
+! here if necessary. 
+! If this feature is utilized, increase nlayers by one above, limit the two
+! loops above to (nlayers-1), and set the top most (extra) layer values here. 
+
+!      pavel(nlayers) = 0.5_rb * pz(nlayers-1)
+!      tavel(nlayers) = tavel(nlayers-1)
+!      pz(nlayers) = 1.e-4_rb
+!      tz(nlayers-1) = 0.5_rb * (tavel(nlayers)+tavel(nlayers-1))
+!      tz(nlayers) = tz(nlayers-1)
+!      wkl(1,nlayers) = wkl(1,nlayers-1)
+!      wkl(2,nlayers) = wkl(2,nlayers-1)
+!      wkl(3,nlayers) = wkl(3,nlayers-1)
+!      wkl(4,nlayers) = wkl(4,nlayers-1)
+!      wkl(6,nlayers) = wkl(6,nlayers-1)
+!      wkl(7,nlayers) = wkl(7,nlayers-1)
+!      amm = (1._rb - wkl(1,nlayers-1)) * amd + wkl(1,nlayers-1) * amw
+!      coldry(nlayers) = (pz(nlayers-1)) * 1.e3_rb * avogad / &
+!                        (1.e2_rb * grav * amm * (1._rb + wkl(1,nlayers-1)))
+!      wx(1,nlayers) = wx(1,nlayers-1)
+!      wx(2,nlayers) = wx(2,nlayers-1)
+!      wx(3,nlayers) = wx(3,nlayers-1)
+!      wx(4,nlayers) = wx(4,nlayers-1)
+
+! At this point all moleculular amounts in wkl and wx are in volume mixing ratio; 
+! convert to molec/cm2 based on coldry for use in rrtm.  also, compute precipitable
+! water vapor for diffusivity angle adjustments in rtrn and rtrnmr.
+
+      do l = 1, nlayers
+         summol = 0.0_rb
+         do imol = 2, nmol
+            summol = summol + wkl(imol,l)
+         enddo
+         wbrodl(l) = coldry(l) * (1._rb - summol)
+         do imol = 1, nmol
+            wkl(imol,l) = coldry(l) * wkl(imol,l)
+         enddo
+         amttl = amttl + coldry(l)+wkl(1,l)
+         wvttl = wvttl + wkl(1,l)
+         do ix = 1,maxxsec
+            if (ixindx(ix) .ne. 0) then
+               wx(ixindx(ix),l) = coldry(l) * wx(ix,l) * 1.e-20_rb
+            endif
+         enddo
+      enddo
+
+      wvsh = (amw * wvttl) / (amd * amttl)
+      pwvcm = wvsh * (1.e3_rb * pz(0)) / (1.e2_rb * grav)
+
+! Set spectral surface emissivity for each longwave band.  
+
+      do n=1,nbndlw
+         semiss(n) = emis(iplon,n)
+!          semiss(n) = 1.0_rb
+      enddo
+
+! Transfer aerosol optical properties to RRTM variable;
+! modify to reverse layer indexing here if necessary.
+
+     if (iaer .ge. 1) then
+        do l = 1, nlayers
+           do ib = 1, nbndlw
+              taua(l,ib) = tauaer(iplon,l,ib)
+           enddo
+        enddo
+      endif
+
+! Transfer cloud fraction and cloud optical properties to RRTM variables,
+! modify to reverse layer indexing here if necessary.
+
+      if (icld .ge. 1) then 
+         inflag = inflglw
+         iceflag = iceflglw
+         liqflag = liqflglw
+
+! Move incoming GCM cloud arrays to RRTMG cloud arrays.
+! For GCM input, incoming reice is defined based on selected ice parameterization (inflglw)
+
+         do l = 1, nlayers
+            cldfrac(l) = cldfr(iplon,l)
+            ciwp(l) = cicewp(iplon,l)
+            clwp(l) = cliqwp(iplon,l)
+            rei(l) = reice(iplon,l)
+            rel(l) = reliq(iplon,l)
+            do n=1,nbndlw
+               tauc(n,l) = taucld(n,iplon,l)
+!               ssac(n,l) = ssacld(n,iplon,l)
+!               asmc(n,l) = asmcld(n,iplon,l)
+            enddo
+         enddo
+
+! If an extra layer is being used in RRTMG, set all cloud properties to zero in the extra layer.
+
+!         cldfrac(nlayers) = 0.0_rb
+!         tauc(:nbndlw,nlayers) = 0.0_rb
+!         ciwp(nlayers) = 0.0_rb
+!         clwp(nlayers) = 0.0_rb
+!         rei(nlayers) = 0.0_rb
+!         rel(nlayers) = 0.0_rb
+!         taua(nlayers,:) = 0.0_rb
+
+      endif
+      
+      end subroutine inatm
+
+      end module rrtmg_lw_rad
+
diff --git a/radiation/src/rrtmg_lw_read_nc.f90 b/radiation/src/rrtmg_lw_read_nc.f90
new file mode 100644
index 0000000000000000000000000000000000000000..50f4c51b876f48c3c51357a80c20be0edf5b16f6
--- /dev/null
+++ b/radiation/src/rrtmg_lw_read_nc.f90
@@ -0,0 +1,1060 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+!=============================================================================== 
+! rrtmg_lw_read_nc.f90
+!
+! Description: This program reads all of the RRTM longwave data from a NetCDF
+!              file in band by band subroutines, as a replacement for the 
+!              rrtmg_lw_k_g.f90 data statements.
+!
+! Written By: Patrick Hofmann
+! Last Update: 1/23/2009
+!===============================================================================
+
+!*******************************************************************************
+subroutine lw_kgb01
+	use rrlw_kg01, only : fracrefao, fracrefbo, kao, kbo, kao_mn2, kbo_mn2, &
+						selfrefo, forrefo, no1
+	use rrlw_ncpar
+	use netcdf
+	
+	implicit none
+	save 
+	
+	integer(kind=im) :: ab
+	integer(kind=im), parameter :: bandNumber = 1, numGPoints = no1
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(4)   = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)   = nf90_get_var(ncid, varID, fracrefbo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)   = nf90_get_var(ncid, varID, kbo, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	!Get absorber index for N2
+	call getAbsorberIndex('N2',ab)
+	status(14)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(15)  = nf90_get_var(ncid, varID, kao_mn2, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	status(16)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsUpperAtmos",varID)
+	status(17)  = nf90_get_var(ncid, varID, kbo_mn2, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb01
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb02
+        use rrlw_kg02, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, no2
+        use rrlw_ncpar
+	use netcdf
+    
+        implicit none
+        save
+		
+   	integer(kind=im), parameter :: bandNumber = 2
+	integer(kind=im), parameter :: numGPoints = no2
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(4)   = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)   = nf90_get_var(ncid, varID, fracrefbo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)   = nf90_get_var(ncid, varID, kbo, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb02
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb03
+        use rrlw_kg03, only : fracrefao, fracrefbo, kao, kbo, kao_mn2o, &
+                          kbo_mn2o, selfrefo, forrefo, no3
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+	
+	integer(kind=im) :: ab
+        integer(kind=im), parameter :: bandNumber = 3
+	integer(kind=im), parameter :: numGPoints = no3
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,keylower,1_im,1_im/))
+	
+	status(4)   = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)   = nf90_get_var(ncid, varID, fracrefbo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,keyupper,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/keylower,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)   = nf90_get_var(ncid, varID, kbo, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/keyupper,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	!Get absorber index for N2
+	call getAbsorberIndex('N2O',ab)
+	status(14)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(15)  = nf90_get_var(ncid, varID, kao_mn2o, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/keylower,T,numGPoints,1_im,1_im,1_im/))
+	
+	status(16)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsUpperAtmos",varID)
+	status(17)  = nf90_get_var(ncid, varID, kbo_mn2o, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/keyupper,T,numGPoints,1_im,1_im,1_im/))
+
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb03
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb04
+        use rrlw_kg04, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, no4
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+		
+        integer(kind=im), parameter :: bandNumber = 4
+	integer(kind=im), parameter :: numGPoints = no4
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,keylower,1_im,1_im/))
+	
+	status(4)   = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)   = nf90_get_var(ncid, varID, fracrefbo(:,1:5), &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,keyupper,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/keylower,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)   = nf90_get_var(ncid, varID, kbo, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/keyupper,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb04
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb05
+        use rrlw_kg05, only : fracrefao, fracrefbo, kao, kbo, kao_mo3, &
+                          selfrefo, forrefo, ccl4o, no5
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+    
+        integer(kind=im) :: ab
+        integer(kind=im), parameter :: bandNumber = 5
+	integer(kind=im), parameter :: numGPoints = no5
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,keylower,1_im,1_im/))
+	
+	status(4)   = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)   = nf90_get_var(ncid, varID, fracrefbo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,keyupper,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, & 
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/keylower,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)   = nf90_get_var(ncid, varID, kbo, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/keyupper,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	!Get absorber index for O3
+	call getAbsorberIndex('O3',ab)
+	status(14)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(15)  = nf90_get_var(ncid, varID, kao_mo3, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/keylower,T,numGPoints,1_im,1_im,1_im/))
+	
+	!Get absorber index for CCL4
+	call getAbsorberIndex('CCL4',ab)
+	status(16)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(17)  = nf90_get_var(ncid, varID, ccl4o, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,1_im,numGPoints,1_im,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb05
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb06
+        use rrlw_kg06, only : fracrefao, kao, kao_mco2, selfrefo, forrefo, &
+                          cfc11adjo, cfc12o, no6
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+	
+	integer(kind=im) :: ab
+        integer(kind=im), parameter :: bandNumber = 6
+	integer(kind=im), parameter :: numGPoints = no6
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(9)   = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+
+	!Get absorber index for CO2
+	call getAbsorberIndex('CO2',ab)
+	status(12)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(13)  = nf90_get_var(ncid, varID, kao_mco2, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	!Get absorber index for CFC11
+	call getAbsorberIndex('CFC11',ab)
+	status(14)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(15)  = nf90_get_var(ncid, varID, cfc11adjo, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,1_im,numGPoints,1_im,1_im,1_im/))
+	
+	!Get absorber index for CFC12
+	call getAbsorberIndex('CFC12',ab)
+	status(16)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(17)  = nf90_get_var(ncid, varID, cfc12o, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,1_im,numGPoints,1_im,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb06
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb07	
+        use rrlw_kg07, only : fracrefao, fracrefbo, kao, kbo, kao_mco2, &
+                          kbo_mco2, selfrefo, forrefo, no7
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+    	
+        integer(kind=im) :: ab
+   	integer(kind=im), parameter :: bandNumber = 7
+	integer(kind=im), parameter :: numGPoints = no7
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,keylower,1_im,1_im/))
+	
+	status(4)   = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)   = nf90_get_var(ncid, varID, fracrefbo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/keylower,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)   = nf90_get_var(ncid, varID, kbo, & 
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	!Get absorber index for CO2
+	call getAbsorberIndex('CO2',ab)
+	status(14)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(15)  = nf90_get_var(ncid, varID, kao_mco2, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/keylower,T,numGPoints,1_im,1_im,1_im/))
+	
+	status(16)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsUpperAtmos",varID)
+	status(17)  = nf90_get_var(ncid, varID, kbo_mco2, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb07
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb08		
+        use rrlw_kg08, only : fracrefao, fracrefbo, kao, kao_mco2, kao_mn2o, &
+                          kao_mo3, kbo, kbo_mco2, kbo_mn2o, selfrefo, forrefo, &
+                          cfc12o, cfc22adjo, no8
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+    	
+        integer(kind=im) :: ab
+        integer(kind=im), parameter :: bandNumber = 8
+	integer(kind=im), parameter :: numGPoints = no8
+        integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+        status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(4)   = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)   = nf90_get_var(ncid, varID, fracrefbo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)   = nf90_get_var(ncid, varID, kbo, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	!Get absorber index for O3
+	call getAbsorberIndex('O3',ab)
+	status(14)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(15)  = nf90_get_var(ncid, varID, kao_mo3, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	!Get absorber index for CO2
+	call getAbsorberIndex('CO2',ab)
+	status(16)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(17)  = nf90_get_var(ncid, varID, kao_mco2, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	status(18)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsUpperAtmos",varID)
+	status(19)  = nf90_get_var(ncid, varID, kbo_mco2, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	!Get absorber index for N2O
+	call getAbsorberIndex('N2O',ab)
+	status(20)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(21)  = nf90_get_var(ncid, varID, kao_mn2o, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	status(22)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsUpperAtmos",varID)
+	status(23)  = nf90_get_var(ncid, varID, kbo_mn2o, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	!Get absorber index for CFC12
+	call getAbsorberIndex('CFC12',ab)
+	status(24)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(25)  = nf90_get_var(ncid, varID, cfc12o, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,1_im,numGPoints,1_im,1_im,1_im/))
+	
+	!Get absorber index for CFC22
+	call getAbsorberIndex('CFC22',ab)
+	status(26)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(27)  = nf90_get_var(ncid, varID, cfc22adjo, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,1_im,numGPoints,1_im,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb08
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb09	
+        use rrlw_kg09, only : fracrefao, fracrefbo, kao, kbo, kao_mn2o, &
+                            kbo_mn2o, selfrefo, forrefo, no9
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+    	
+        integer(kind=im) :: ab
+        integer(kind=im), parameter :: bandNumber = 9
+	integer(kind=im), parameter :: numGPoints = no9
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,keylower,1_im,1_im/))
+	
+	status(4)   = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)   = nf90_get_var(ncid, varID, fracrefbo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/keylower,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)   = nf90_get_var(ncid, varID, kbo, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+
+	!Get absorber index for N2O
+	call getAbsorberIndex('N2O',ab)
+	status(14)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(15)  = nf90_get_var(ncid, varID, kao_mn2o, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/keylower,T,numGPoints,1_im,1_im,1_im/))
+	
+	status(16)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsUpperAtmos",varID)
+	status(17)  = nf90_get_var(ncid, varID, kbo_mn2o, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb09
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb10		
+        use rrlw_kg10, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, no10
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+    	
+   	integer(kind=im), parameter :: bandNumber = 10
+	integer(kind=im), parameter :: numGPoints = no10
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(4)   = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)   = nf90_get_var(ncid, varID, fracrefbo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)   = nf90_get_var(ncid, varID, kbo, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb10
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb11
+        use rrlw_kg11, only : fracrefao, fracrefbo, kao, kbo, kao_mo2, &
+                          kbo_mo2, selfrefo, forrefo, no11
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+	
+	integer(kind=im) :: ab
+	integer(kind=im), parameter :: bandNumber = 11
+	integer(kind=im), parameter :: numGPoints = no11
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)   = nf90_NoErr
+	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)   = nf90_get_var(ncid, varID, fracrefao, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(4)   = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)   = nf90_get_var(ncid, varID, fracrefbo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)   = nf90_get_var(ncid, varID, kao, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)   = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)   = nf90_get_var(ncid, varID, kbo, &
+                      start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11)  = nf90_get_var(ncid, varID, selfrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(1_im2)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(1_im3)  = nf90_get_var(ncid, varID, forrefo, &
+                      start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                      count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	!Get absorber index for O2
+	call getAbsorberIndex('O2',ab)
+	status(14)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(15)  = nf90_get_var(ncid, varID, kao_mo2, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	status(16)  = nf90_inq_varid(ncid,"AbsorptionCoefficientsUpperAtmos",varID)
+	status(17)  = nf90_get_var(ncid, varID, kbo_mo2, &
+                      start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                      count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb11
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb12
+        use rrlw_kg12, only : fracrefao, kao, selfrefo, forrefo, no12
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+		
+	integer(kind=im), parameter :: bandNumber = 12
+	integer(kind=im), parameter :: numGPoints = no12
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:) = nf90_NoErr
+	status(1) = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3) = nf90_get_var(ncid, varID, fracrefao, &
+                    start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                    count = (/numGPoints,keylower,1_im,1_im/))
+	
+	status(4) = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(5) = nf90_get_var(ncid, varID, kao, &
+                    start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                    count = (/keylower,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(6) = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(7) = nf90_get_var(ncid, varID, selfrefo, &
+                    start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                    count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(8) = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(9) = nf90_get_var(ncid, varID, forrefo, &
+                    start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                    count = (/Tforeign,numGPoints,1_im,1_im/))
+
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb12
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb13		
+        use rrlw_kg13, only : fracrefao, fracrefbo, kao, kao_mco2, kao_mco, &
+                          kbo_mo3, selfrefo, forrefo, no13
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+    
+        integer(kind=im) :: ab
+	integer(kind=im), parameter :: bandNumber = 13
+	integer(kind=im), parameter :: numGPoints = no13  
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)  = nf90_NoErr
+	status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)  = nf90_get_var(ncid, varID, fracrefao, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/numGPoints,keylower,1_im,1_im/))
+	
+	status(4)  = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)  = nf90_get_var(ncid, varID, fracrefbo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/),  &
+                     count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)  = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)  = nf90_get_var(ncid, varID, kao, &
+                     start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/keylower,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(9)  = nf90_get_var(ncid, varID, selfrefo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(10) = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(11) = nf90_get_var(ncid, varID, forrefo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	!Get absorber index for O3
+	call getAbsorberIndex('O3',ab)
+	status(12) = nf90_inq_varid(ncid,"AbsorptionCoefficientsUpperAtmos",varID)
+	status(13) = nf90_get_var(ncid, varID, kbo_mo3, &
+                     start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                     count = (/1_im,T,numGPoints,1_im,1_im,1_im/))
+	
+	!Get absorber index for CO2
+	call getAbsorberIndex('CO2',ab)
+	status(14) = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(15) = nf90_get_var(ncid, varID, kao_mco2, &
+                     start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                     count = (/keylower,T,numGPoints,1_im,1_im,1_im/))
+	
+	!Get absorber index for CO
+	call getAbsorberIndex('CO',ab)
+	status(16) = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+        status(17) = nf90_get_var(ncid, varID, kao_mco, &
+                     start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                     count = (/keylower,T,numGPoints,1_im,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb13
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb14	
+        use rrlw_kg14, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, no14
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+	
+	integer(kind=im), parameter :: bandNumber = 14
+	integer(kind=im), parameter :: numGPoints = no14
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)  = nf90_NoErr
+	status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)  = nf90_get_var(ncid, varID, fracrefao, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(4)  = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)  = nf90_get_var(ncid, varID, fracrefbo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)  = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)  = nf90_get_var(ncid, varID, kao, &
+                     start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/1_im,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)  = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)  = nf90_get_var(ncid, varID, kbo, &
+                     start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/1_im,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10) = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11) = nf90_get_var(ncid, varID, selfrefo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12) = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13) = nf90_get_var(ncid, varID, forrefo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/Tforeign,numGPoints,1_im,1_im/))
+
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb14
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb15	
+        use rrlw_kg15, only : fracrefao, kao, kao_mn2, selfrefo, forrefo, no15
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+    
+        integer(kind=im) :: ab
+ 	integer(kind=im), parameter :: bandNumber = 15
+	integer(kind=im), parameter :: numGPoints = no15
+	integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+	status(:)  = nf90_NoErr
+	status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)  = nf90_get_var(ncid, varID, fracrefao, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/numGPoints,keylower,1_im,1_im/))
+	
+	status(4)  = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(5)  = nf90_get_var(ncid, varID, kao, &
+                     start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/keylower,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(6)  = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(7)  = nf90_get_var(ncid, varID, selfrefo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(8)  = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(9)  = nf90_get_var(ncid, varID, forrefo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	!Get absorber index for N2
+	call getAbsorberIndex('N2',ab)
+	status(10) = nf90_inq_varid(ncid,"AbsorptionCoefficientsLowerAtmos",varID)
+	status(11) = nf90_get_var(ncid, varID, kao_mn2, &
+                     start = (/1_im,1_im,1_im,ab,bandNumber,gPointSetNumber/), &
+                     count = (/keylower,T,numGPoints,1_im,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb15
+!*******************************************************************************
+
+!*******************************************************************************
+subroutine lw_kgb16		
+        use rrlw_kg16, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, no16
+	use rrlw_ncpar
+	use netcdf
+	
+        implicit none
+        save
+	  
+        integer(kind=im), parameter :: bandNumber = 16
+ 	integer(kind=im), parameter :: numGPoints = no16
+        integer(kind=im), parameter :: gPointSetNumber = 1
+	integer(kind=im) :: ncid, varID
+	
+        status(:)  = nf90_NoErr
+	status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	
+	status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
+	status(3)  = nf90_get_var(ncid, varID, fracrefao, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/numGPoints,keylower,1_im,1_im/))
+	
+	status(4)  = nf90_inq_varid(ncid,"PlanckFractionUpperAtmos",varID)
+	status(5)  = nf90_get_var(ncid, varID, fracrefbo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/numGPoints,1_im,1_im,1_im/))
+	
+	status(6)  = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsLowerAtmos",varID)
+	status(7)  = nf90_get_var(ncid, varID, kao, &
+                     start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/keylower,Tdiff,plower,numGPoints,1_im,1_im/))
+	
+	status(8)  = nf90_inq_varid(ncid,"KeySpeciesAbsorptionCoefficientsUpperAtmos",varID)
+	status(9)  = nf90_get_var(ncid, varID, kbo, &
+                     start = (/1_im,1_im,1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/1_im,Tdiff,pupper,numGPoints,1_im,1_im/))
+	
+	status(10) = nf90_inq_varid(ncid,"H20SelfAbsorptionCoefficients",varID)
+	status(11) = nf90_get_var(ncid, varID, selfrefo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/Tself,numGPoints,1_im,1_im/))
+	
+	status(12) = nf90_inq_varid(ncid,"H20ForeignAbsorptionCoefficients",varID)
+	status(13) = nf90_get_var(ncid, varID, forrefo, &
+                     start = (/1_im,1_im,bandNumber,gPointSetNumber/), &
+                     count = (/Tforeign,numGPoints,1_im,1_im/))
+	
+	if(any(status(:) /= nf90_NoErr)) stop  "Error reading variables from file" 
+	
+	status(1) = nf90_close(ncid)
+	
+end subroutine lw_kgb16
+!*******************************************************************************
diff --git a/radiation/src/rrtmg_lw_rtrn.f90 b/radiation/src/rrtmg_lw_rtrn.f90
new file mode 100644
index 0000000000000000000000000000000000000000..3bc38714a1932aa6290f1eb242406b6e0185ec60
--- /dev/null
+++ b/radiation/src/rrtmg_lw_rtrn.f90
@@ -0,0 +1,609 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+      module rrtmg_lw_rtrn
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrtm, only : mg, nbndlw, ngptlw
+      use rrlw_con, only: fluxfac, heatfac
+      use rrlw_wvn, only: delwave, ngs
+      use rrlw_tbl, only: tblint, bpade, tau_tbl, exp_tbl, tfn_tbl
+      use rrlw_vsn, only: hvrrtr, hnamrtr
+
+      implicit none
+
+      contains
+
+!-----------------------------------------------------------------------------
+      subroutine rtrn(nlayers, istart, iend, iout, pz, semiss, ncbands, &
+                      cldfrac, taucloud, planklay, planklev, plankbnd, &
+                      pwvcm, fracs, taut, & 
+                      totuflux, totdflux, fnet, htr, &
+                      totuclfl, totdclfl, fnetc, htrc, &
+                      idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )
+!-----------------------------------------------------------------------------
+!
+!  Original version:   E. J. Mlawer, et al. RRTM_V3.0
+!  Revision for GCMs:  Michael J. Iacono; October, 2002
+!  Revision for F90:  Michael J. Iacono; June, 2006
+!  Revision for dFdT option: M. J. Iacono and E. J. Mlawer, November 2009
+!
+!  This program calculates the upward fluxes, downward fluxes, and
+!  heating rates for an arbitrary clear or cloudy atmosphere.  The input
+!  to this program is the atmospheric profile, all Planck function
+!  information, and the cloud fraction by layer.  A variable diffusivity 
+!  angle (SECDIFF) is used for the angle integration.  Bands 2-3 and 5-9 
+!  use a value for SECDIFF that varies from 1.50 to 1.80 as a function of 
+!  the column water vapor, and other bands use a value of 1.66.  The Gaussian 
+!  weight appropriate to this angle (WTDIFF=0.5) is applied here.  Note that 
+!  use of the emissivity angle for the flux integration can cause errors of 
+!  1 to 4 W/m2 within cloudy layers.  
+!  Clouds are treated with a random cloud overlap method.
+!  This subroutine also provides the optional capability to calculate
+!  the derivative of upward flux respect to surface temperature using
+!  the pre-tabulated derivative of the Planck function with respect to 
+!  temperature integrated over each spectral band.
+!***************************************************************************
+
+! ------- Declarations -------
+
+! ----- Input -----
+      integer(kind=im), intent(in) :: nlayers         ! total number of layers
+      integer(kind=im), intent(in) :: istart          ! beginning band of calculation
+      integer(kind=im), intent(in) :: iend            ! ending band of calculation
+      integer(kind=im), intent(in) :: iout            ! output option flag
+
+! Atmosphere
+      real(kind=rb), intent(in) :: pz(0:)             ! level (interface) pressures (hPa, mb)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(in) :: pwvcm              ! precipitable water vapor (cm)
+      real(kind=rb), intent(in) :: semiss(:)          ! lw surface emissivity
+                                                      !    Dimensions: (nbndlw)
+      real(kind=rb), intent(in) :: planklay(:,:)      ! 
+                                                      !    Dimensions: (nlayers,nbndlw)
+      real(kind=rb), intent(in) :: planklev(0:,:)     ! 
+                                                      !    Dimensions: (0:nlayers,nbndlw)
+      real(kind=rb), intent(in) :: plankbnd(:)        ! 
+                                                      !    Dimensions: (nbndlw)
+      real(kind=rb), intent(in) :: fracs(:,:)         ! 
+                                                      !    Dimensions: (nlayers,ngptw)
+      real(kind=rb), intent(in) :: taut(:,:)          ! gaseous + aerosol optical depths
+                                                      !    Dimensions: (nlayers,ngptlw)
+
+! Clouds
+      integer(kind=im), intent(in) :: ncbands         ! number of cloud spectral bands
+      real(kind=rb), intent(in) :: cldfrac(:)         ! layer cloud fraction
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: taucloud(:,:)      ! layer cloud optical depth
+                                                      !    Dimensions: (nlayers,nbndlw)
+      integer(kind=im), intent(in) :: idrv            ! flag for calculation of dF/dt from 
+                                                      ! Planck derivative [0=off, 1=on]
+      real(kind=rb), intent(in) :: dplankbnd_dt(:)    ! derivative of Planck function wrt temp
+                                                      !    Dimensions: (nbndlw)
+
+! ----- Output -----
+      real(kind=rb), intent(out) :: totuflux(0:)      ! upward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: totdflux(0:)      ! downward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: fnet(0:)          ! net longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: htr(0:)           ! longwave heating rate (k/day)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: totuclfl(0:)      ! clear sky upward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: totdclfl(0:)      ! clear sky downward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: fnetc(0:)         ! clear sky net longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: htrc(0:)          ! clear sky longwave heating rate (k/day)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: dtotuflux_dt(0:)  ! change in upward longwave flux (w/m2/k)
+                                                      ! with respect to surface temperature
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: dtotuclfl_dt(0:)  ! change in upward longwave flux (w/m2/k)
+                                                      ! with respect to surface temperature
+                                                      !    Dimensions: (0:nlayers)
+
+! ----- Local -----
+! Declarations for radiative transfer
+      real(kind=rb) :: abscld(nlayers,nbndlw)
+      real(kind=rb) :: atot(nlayers)
+      real(kind=rb) :: atrans(nlayers)
+      real(kind=rb) :: bbugas(nlayers)
+      real(kind=rb) :: bbutot(nlayers)
+      real(kind=rb) :: clrurad(0:nlayers)
+      real(kind=rb) :: clrdrad(0:nlayers)
+      real(kind=rb) :: efclfrac(nlayers,nbndlw)
+      real(kind=rb) :: uflux(0:nlayers)
+      real(kind=rb) :: dflux(0:nlayers)
+      real(kind=rb) :: urad(0:nlayers)
+      real(kind=rb) :: drad(0:nlayers)
+      real(kind=rb) :: uclfl(0:nlayers)
+      real(kind=rb) :: dclfl(0:nlayers)
+      real(kind=rb) :: odcld(nlayers,nbndlw)
+
+
+      real(kind=rb) :: secdiff(nbndlw)                 ! secant of diffusivity angle
+      real(kind=rb) :: a0(nbndlw),a1(nbndlw),a2(nbndlw)! diffusivity angle adjustment coefficients
+      real(kind=rb) :: wtdiff, rec_6
+      real(kind=rb) :: transcld, radld, radclrd, plfrac, blay, dplankup, dplankdn
+      real(kind=rb) :: odepth, odtot, odepth_rec, odtot_rec, gassrc
+      real(kind=rb) :: tblind, tfactot, bbd, bbdtot, tfacgas, transc, tausfac
+      real(kind=rb) :: rad0, reflect, radlu, radclru
+
+      real(kind=rb) :: duflux_dt(0:nlayers)
+      real(kind=rb) :: duclfl_dt(0:nlayers)
+      real(kind=rb) :: d_urad_dt(0:nlayers)
+      real(kind=rb) :: d_clrurad_dt(0:nlayers)
+      real(kind=rb) :: d_rad0_dt, d_radlu_dt, d_radclru_dt
+
+      integer(kind=im) :: icldlyr(nlayers)             ! flag for cloud in layer
+      integer(kind=im) :: ibnd, ib, iband, lay, lev, l ! loop indices
+      integer(kind=im) :: igc                          ! g-point interval counter
+      integer(kind=im) :: iclddn                       ! flag for cloud in down path
+      integer(kind=im) :: ittot, itgas, itr            ! lookup table indices
+      integer(kind=im) :: ipat(16,0:2)
+
+
+! ------- Definitions -------
+! input
+!    nlayers                      ! number of model layers
+!    ngptlw                       ! total number of g-point subintervals
+!    nbndlw                       ! number of longwave spectral bands
+!    ncbands                      ! number of spectral bands for clouds
+!    secdiff                      ! diffusivity angle
+!    wtdiff                       ! weight for radiance to flux conversion
+!    pavel                        ! layer pressures (mb)
+!    pz                           ! level (interface) pressures (mb)
+!    tavel                        ! layer temperatures (k)
+!    tz                           ! level (interface) temperatures(mb)
+!    tbound                       ! surface temperature (k)
+!    cldfrac                      ! layer cloud fraction
+!    taucloud                     ! layer cloud optical depth
+!    itr                          ! integer look-up table index
+!    icldlyr                      ! flag for cloudy layers
+!    iclddn                       ! flag for cloud in column at any layer
+!    semiss                       ! surface emissivities for each band
+!    reflect                      ! surface reflectance
+!    bpade                        ! 1/(pade constant)
+!    tau_tbl                      ! clear sky optical depth look-up table
+!    exp_tbl                      ! exponential look-up table for transmittance
+!    tfn_tbl                      ! tau transition function look-up table
+
+! local
+!    atrans                       ! gaseous absorptivity
+!    abscld                       ! cloud absorptivity
+!    atot                         ! combined gaseous and cloud absorptivity
+!    odclr                        ! clear sky (gaseous) optical depth
+!    odcld                        ! cloud optical depth
+!    odtot                        ! optical depth of gas and cloud
+!    tfacgas                      ! gas-only pade factor, used for planck fn
+!    tfactot                      ! gas and cloud pade factor, used for planck fn
+!    bbdgas                       ! gas-only planck function for downward rt
+!    bbugas                       ! gas-only planck function for upward rt
+!    bbdtot                       ! gas and cloud planck function for downward rt
+!    bbutot                       ! gas and cloud planck function for upward calc.
+!    gassrc                       ! source radiance due to gas only
+!    efclfrac                     ! effective cloud fraction
+!    radlu                        ! spectrally summed upward radiance 
+!    radclru                      ! spectrally summed clear sky upward radiance 
+!    urad                         ! upward radiance by layer
+!    clrurad                      ! clear sky upward radiance by layer
+!    radld                        ! spectrally summed downward radiance 
+!    radclrd                      ! spectrally summed clear sky downward radiance 
+!    drad                         ! downward radiance by layer
+!    clrdrad                      ! clear sky downward radiance by layer
+!    d_radlu_dt                   ! spectrally summed upward radiance 
+!    d_radclru_dt                 ! spectrally summed clear sky upward radiance 
+!    d_urad_dt                    ! upward radiance by layer
+!    d_clrurad_dt                 ! clear sky upward radiance by layer
+
+! output
+!    totuflux                     ! upward longwave flux (w/m2)
+!    totdflux                     ! downward longwave flux (w/m2)
+!    fnet                         ! net longwave flux (w/m2)
+!    htr                          ! longwave heating rate (k/day)
+!    totuclfl                     ! clear sky upward longwave flux (w/m2)
+!    totdclfl                     ! clear sky downward longwave flux (w/m2)
+!    fnetc                        ! clear sky net longwave flux (w/m2)
+!    htrc                         ! clear sky longwave heating rate (k/day)
+!    dtotuflux_dt                 ! change in upward longwave flux (w/m2/k)
+!                                 ! with respect to surface temperature
+!    dtotuclfl_dt                 ! change in clear sky upward longwave flux (w/m2/k)
+!                                 ! with respect to surface temperature
+
+! These arrays indicate the spectral 'region' (used in the 
+! calculation of ice cloud optical depths) corresponding
+! to each spectral band.  See cldprop.f for more details.
+      data ipat /1,1,1,1,1,1,1,1,1, 1, 1, 1, 1, 1, 1, 1, &
+                 1,2,3,3,3,4,4,4,5, 5, 5, 5, 5, 5, 5, 5, &
+                 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/
+
+! This secant and weight corresponds to the standard diffusivity 
+! angle.  This initial value is redefined below for some bands.
+      data wtdiff /0.5_rb/
+      data rec_6 /0.166667_rb/
+
+! Reset diffusivity angle for Bands 2-3 and 5-9 to vary (between 1.50
+! and 1.80) as a function of total column water vapor.  The function
+! has been defined to minimize flux and cooling rate errors in these bands
+! over a wide range of precipitable water values.
+      data a0 / 1.66_rb,  1.55_rb,  1.58_rb,  1.66_rb, &
+                1.54_rb, 1.454_rb,  1.89_rb,  1.33_rb, &
+               1.668_rb,  1.66_rb,  1.66_rb,  1.66_rb, &
+                1.66_rb,  1.66_rb,  1.66_rb,  1.66_rb /
+      data a1 / 0.00_rb,  0.25_rb,  0.22_rb,  0.00_rb, &
+                0.13_rb, 0.446_rb, -0.10_rb,  0.40_rb, &
+              -0.006_rb,  0.00_rb,  0.00_rb,  0.00_rb, &
+                0.00_rb,  0.00_rb,  0.00_rb,  0.00_rb /
+      data a2 / 0.00_rb, -12.0_rb, -11.7_rb,  0.00_rb, &
+               -0.72_rb,-0.243_rb,  0.19_rb,-0.062_rb, &
+               0.414_rb,  0.00_rb,  0.00_rb,  0.00_rb, &
+                0.00_rb,  0.00_rb,  0.00_rb,  0.00_rb /
+
+      hvrrtr = '$Revision$'
+
+      do ibnd = 1,nbndlw
+         if (ibnd.eq.1 .or. ibnd.eq.4 .or. ibnd.ge.10) then
+           secdiff(ibnd) = 1.66_rb
+         else
+           secdiff(ibnd) = a0(ibnd) + a1(ibnd)*exp(a2(ibnd)*pwvcm)
+           if (secdiff(ibnd) .gt. 1.80_rb) secdiff(ibnd) = 1.80_rb
+           if (secdiff(ibnd) .lt. 1.50_rb) secdiff(ibnd) = 1.50_rb
+         endif
+      enddo
+
+      urad(0) = 0.0_rb
+      drad(0) = 0.0_rb
+      totuflux(0) = 0.0_rb
+      totdflux(0) = 0.0_rb
+      clrurad(0) = 0.0_rb
+      clrdrad(0) = 0.0_rb
+      totuclfl(0) = 0.0_rb
+      totdclfl(0) = 0.0_rb
+      if (idrv .eq. 1) then
+         d_urad_dt(0) = 0.0_rb
+         d_clrurad_dt(0) = 0.0_rb
+         dtotuflux_dt(0) = 0.0_rb
+         dtotuclfl_dt(0) = 0.0_rb
+      endif
+
+      do lay = 1, nlayers
+         urad(lay) = 0.0_rb
+         drad(lay) = 0.0_rb
+         totuflux(lay) = 0.0_rb
+         totdflux(lay) = 0.0_rb
+         clrurad(lay) = 0.0_rb
+         clrdrad(lay) = 0.0_rb
+         totuclfl(lay) = 0.0_rb
+         totdclfl(lay) = 0.0_rb
+         if (idrv .eq. 1) then
+            d_urad_dt(lay) = 0.0_rb
+            d_clrurad_dt(lay) = 0.0_rb
+            dtotuflux_dt(lay) = 0.0_rb
+            dtotuclfl_dt(lay) = 0.0_rb
+         endif
+
+         do ib = 1, ncbands
+            if (cldfrac(lay) .ge. 1.e-6_rb) then
+               odcld(lay,ib) = secdiff(ib) * taucloud(lay,ib)
+               transcld = exp(-odcld(lay,ib))
+               abscld(lay,ib) = 1. - transcld
+               efclfrac(lay,ib) = abscld(lay,ib) * cldfrac(lay)
+               icldlyr(lay) = 1
+            else
+               odcld(lay,ib) = 0.0_rb
+               abscld(lay,ib) = 0.0_rb
+               efclfrac(lay,ib) = 0.0_rb
+               icldlyr(lay) = 0
+            endif
+         enddo
+      enddo
+
+      igc = 1
+! Loop over frequency bands.
+      do iband = istart, iend
+
+! Reinitialize g-point counter for each band if output for each band is requested.
+         if (iout.gt.0.and.iband.ge.2) igc = ngs(iband-1)+1
+         if (ncbands .eq. 1) then
+            ib = ipat(iband,0)
+         elseif (ncbands .eq.  5) then
+            ib = ipat(iband,1)
+         elseif (ncbands .eq. 16) then
+            ib = ipat(iband,2)
+         endif
+
+! Loop over g-channels.
+ 1000    continue
+
+! Radiative transfer starts here.
+         radld = 0._rb
+         radclrd = 0._rb
+         iclddn = 0
+
+! Downward radiative transfer loop.  
+
+         do lev = nlayers, 1, -1
+               plfrac = fracs(lev,igc)
+               blay = planklay(lev,iband)
+               dplankup = planklev(lev,iband) - blay
+               dplankdn = planklev(lev-1,iband) - blay
+               odepth = secdiff(iband) * taut(lev,igc)
+               if (odepth .lt. 0.0_rb) odepth = 0.0_rb
+! Cloudy layer
+               if (icldlyr(lev).eq.1) then
+                  iclddn = 1
+                  odtot = odepth + odcld(lev,ib)
+                  if (odtot .lt. 0.06_rb) then
+                     atrans(lev) = odepth - 0.5_rb*odepth*odepth
+                     odepth_rec = rec_6*odepth
+                     gassrc = plfrac*(blay+dplankdn*odepth_rec)*atrans(lev)
+
+                     atot(lev) =  odtot - 0.5_rb*odtot*odtot
+                     odtot_rec = rec_6*odtot
+                     bbdtot =  plfrac * (blay+dplankdn*odtot_rec)
+                     bbd = plfrac*(blay+dplankdn*odepth_rec)
+                     radld = radld - radld * (atrans(lev) + &
+                         efclfrac(lev,ib) * (1. - atrans(lev))) + &
+                         gassrc + cldfrac(lev) * &
+                         (bbdtot * atot(lev) - gassrc)
+                     drad(lev-1) = drad(lev-1) + radld
+                  
+                     bbugas(lev) =  plfrac * (blay+dplankup*odepth_rec)
+                     bbutot(lev) =  plfrac * (blay+dplankup*odtot_rec)
+
+                  elseif (odepth .le. 0.06_rb) then
+                     atrans(lev) = odepth - 0.5_rb*odepth*odepth
+                     odepth_rec = rec_6*odepth
+                     gassrc = plfrac*(blay+dplankdn*odepth_rec)*atrans(lev)
+
+                     odtot = odepth + odcld(lev,ib)
+                     tblind = odtot/(bpade+odtot)
+                     ittot = tblint*tblind + 0.5_rb
+                     tfactot = tfn_tbl(ittot)
+                     bbdtot = plfrac * (blay + tfactot*dplankdn)
+                     bbd = plfrac*(blay+dplankdn*odepth_rec)
+                     atot(lev) = 1._rb - exp_tbl(ittot)
+
+                     radld = radld - radld * (atrans(lev) + &
+                         efclfrac(lev,ib) * (1._rb - atrans(lev))) + &
+                         gassrc + cldfrac(lev) * &
+                         (bbdtot * atot(lev) - gassrc)
+                     drad(lev-1) = drad(lev-1) + radld
+
+                     bbugas(lev) = plfrac * (blay + dplankup*odepth_rec)
+                     bbutot(lev) = plfrac * (blay + tfactot * dplankup)
+
+                  else
+
+                     tblind = odepth/(bpade+odepth)
+                     itgas = tblint*tblind+0.5_rb
+                     odepth = tau_tbl(itgas)
+                     atrans(lev) = 1._rb - exp_tbl(itgas)
+                     tfacgas = tfn_tbl(itgas)
+                     gassrc = atrans(lev) * plfrac * (blay + tfacgas*dplankdn)
+
+                     odtot = odepth + odcld(lev,ib)
+                     tblind = odtot/(bpade+odtot)
+                     ittot = tblint*tblind + 0.5_rb
+                     tfactot = tfn_tbl(ittot)
+                     bbdtot = plfrac * (blay + tfactot*dplankdn)
+                     bbd = plfrac*(blay+tfacgas*dplankdn)
+                     atot(lev) = 1._rb - exp_tbl(ittot)
+
+                  radld = radld - radld * (atrans(lev) + &
+                     efclfrac(lev,ib) * (1._rb - atrans(lev))) + &
+                     gassrc + cldfrac(lev) * &
+                     (bbdtot * atot(lev) - gassrc)
+                  drad(lev-1) = drad(lev-1) + radld
+                  bbugas(lev) = plfrac * (blay + tfacgas * dplankup)
+                  bbutot(lev) = plfrac * (blay + tfactot * dplankup)
+                  endif
+! Clear layer
+               else
+                  if (odepth .le. 0.06_rb) then
+                     atrans(lev) = odepth-0.5_rb*odepth*odepth
+                     odepth = rec_6*odepth
+                     bbd = plfrac*(blay+dplankdn*odepth)
+                     bbugas(lev) = plfrac*(blay+dplankup*odepth)
+                  else
+                     tblind = odepth/(bpade+odepth)
+                     itr = tblint*tblind+0.5_rb
+                     transc = exp_tbl(itr)
+                     atrans(lev) = 1._rb-transc
+                     tausfac = tfn_tbl(itr)
+                     bbd = plfrac*(blay+tausfac*dplankdn)
+                     bbugas(lev) = plfrac * (blay + tausfac * dplankup)
+                  endif   
+                  radld = radld + (bbd-radld)*atrans(lev)
+                  drad(lev-1) = drad(lev-1) + radld
+               endif
+!  Set clear sky stream to total sky stream as long as layers
+!  remain clear.  Streams diverge when a cloud is reached (iclddn=1),
+!  and clear sky stream must be computed separately from that point.
+                  if (iclddn.eq.1) then
+                     radclrd = radclrd + (bbd-radclrd) * atrans(lev) 
+                     clrdrad(lev-1) = clrdrad(lev-1) + radclrd
+                  else
+                     radclrd = radld
+                     clrdrad(lev-1) = drad(lev-1)
+                  endif
+            enddo
+
+! Spectral emissivity & reflectance
+!  Include the contribution of spectrally varying longwave emissivity
+!  and reflection from the surface to the upward radiative transfer.
+!  Note: Spectral and Lambertian reflection are identical for the
+!  diffusivity angle flux integration used here.
+!  Note: The emissivity is applied to plankbnd and dplankbnd_dt when 
+!  they are defined in subroutine setcoef. 
+
+         rad0 = fracs(1,igc) * plankbnd(iband)
+         if (idrv .eq. 1) then
+            d_rad0_dt = fracs(1,igc) * dplankbnd_dt(iband)
+         endif
+
+!  Add in specular reflection of surface downward radiance.
+         reflect = 1._rb - semiss(iband)
+         radlu = rad0 + reflect * radld
+         radclru = rad0 + reflect * radclrd
+
+
+! Upward radiative transfer loop.
+         urad(0) = urad(0) + radlu
+         clrurad(0) = clrurad(0) + radclru
+         if (idrv .eq. 1) then
+            d_radlu_dt = d_rad0_dt
+            d_urad_dt(0) = d_urad_dt(0) + d_radlu_dt
+            d_radclru_dt = d_rad0_dt
+            d_clrurad_dt(0) = d_clrurad_dt(0) + d_radclru_dt
+         endif
+
+         do lev = 1, nlayers
+! Cloudy layer
+            if (icldlyr(lev) .eq. 1) then
+               gassrc = bbugas(lev) * atrans(lev)
+               radlu = radlu - radlu * (atrans(lev) + &
+                   efclfrac(lev,ib) * (1._rb - atrans(lev))) + &
+                   gassrc + cldfrac(lev) * &
+                   (bbutot(lev) * atot(lev) - gassrc)
+               urad(lev) = urad(lev) + radlu
+               if (idrv .eq. 1) then
+                  d_radlu_dt = d_radlu_dt * cldfrac(lev) * (1.0_rb - atot(lev)) + &
+                         d_radlu_dt * (1.0_rb - cldfrac(lev)) * (1.0_rb - atrans(lev))
+                  d_urad_dt(lev) = d_urad_dt(lev) + d_radlu_dt
+               endif
+! Clear layer
+            else
+               radlu = radlu + (bbugas(lev)-radlu)*atrans(lev)
+               urad(lev) = urad(lev) + radlu
+               if (idrv .eq. 1) then
+                  d_radlu_dt = d_radlu_dt * (1.0_rb - atrans(lev))
+                  d_urad_dt(lev) = d_urad_dt(lev) + d_radlu_dt
+               endif
+            endif
+!  Set clear sky stream to total sky stream as long as all layers
+!  are clear (iclddn=0).  Streams must be calculated separately at 
+!  all layers when a cloud is present (iclddn=1), because surface 
+!  reflectance is different for each stream.
+               if (iclddn.eq.1) then
+                  radclru = radclru + (bbugas(lev)-radclru)*atrans(lev) 
+                  clrurad(lev) = clrurad(lev) + radclru
+               else
+                  radclru = radlu
+                  clrurad(lev) = urad(lev)
+               endif
+               if (idrv .eq. 1) then
+                  if (iclddn.eq.1) then
+                     d_radclru_dt = d_radclru_dt * (1.0_rb - atrans(lev))
+                     d_clrurad_dt(lev) = d_clrurad_dt(lev) + d_radclru_dt
+                  else
+                     d_radclru_dt = d_radlu_dt
+                     d_clrurad_dt(lev) = d_urad_dt(lev)
+                  endif
+               endif
+         enddo
+
+! Increment g-point counter
+         igc = igc + 1
+! Return to continue radiative transfer for all g-channels in present band
+         if (igc .le. ngs(iband)) go to 1000
+
+! Process longwave output from band for total and clear streams.
+! Calculate upward, downward, and net flux.
+         do lev = nlayers, 0, -1
+            uflux(lev) = urad(lev)*wtdiff
+            dflux(lev) = drad(lev)*wtdiff
+            urad(lev) = 0.0_rb
+            drad(lev) = 0.0_rb
+            totuflux(lev) = totuflux(lev) + uflux(lev) * delwave(iband)
+            totdflux(lev) = totdflux(lev) + dflux(lev) * delwave(iband)
+            uclfl(lev) = clrurad(lev)*wtdiff
+            dclfl(lev) = clrdrad(lev)*wtdiff
+            clrurad(lev) = 0.0_rb
+            clrdrad(lev) = 0.0_rb
+            totuclfl(lev) = totuclfl(lev) + uclfl(lev) * delwave(iband)
+            totdclfl(lev) = totdclfl(lev) + dclfl(lev) * delwave(iband)
+         enddo
+
+! Calculate total change in upward flux wrt surface temperature
+         if (idrv .eq. 1) then
+            do lev = nlayers, 0, -1
+               duflux_dt(lev) = d_urad_dt(lev) * wtdiff
+               d_urad_dt(lev) = 0.0_rb
+               dtotuflux_dt(lev) = dtotuflux_dt(lev) + duflux_dt(lev) * delwave(iband) * fluxfac
+               duclfl_dt(lev) = d_clrurad_dt(lev) * wtdiff
+               d_clrurad_dt(lev) = 0.0_rb
+               dtotuclfl_dt(lev) = dtotuclfl_dt(lev) + duclfl_dt(lev) * delwave(iband) * fluxfac
+            enddo
+         endif
+
+! End spectral band loop
+      enddo
+
+! Calculate fluxes at surface
+      totuflux(0) = totuflux(0) * fluxfac
+      totdflux(0) = totdflux(0) * fluxfac
+      fnet(0) = totuflux(0) - totdflux(0)
+      totuclfl(0) = totuclfl(0) * fluxfac
+      totdclfl(0) = totdclfl(0) * fluxfac
+      fnetc(0) = totuclfl(0) - totdclfl(0)
+
+! Calculate fluxes at model levels
+      do lev = 1, nlayers
+         totuflux(lev) = totuflux(lev) * fluxfac
+         totdflux(lev) = totdflux(lev) * fluxfac
+         fnet(lev) = totuflux(lev) - totdflux(lev)
+         totuclfl(lev) = totuclfl(lev) * fluxfac
+         totdclfl(lev) = totdclfl(lev) * fluxfac
+         fnetc(lev) = totuclfl(lev) - totdclfl(lev)
+         l = lev - 1
+
+! Calculate heating rates at model layers
+         htr(l)=heatfac*(fnet(l)-fnet(lev))/(pz(l)-pz(lev)) 
+         htrc(l)=heatfac*(fnetc(l)-fnetc(lev))/(pz(l)-pz(lev)) 
+      enddo
+
+! Set heating rate to zero in top layer
+      htr(nlayers) = 0.0_rb
+      htrc(nlayers) = 0.0_rb
+
+      end subroutine rtrn
+
+      end module rrtmg_lw_rtrn
+
diff --git a/radiation/src/rrtmg_lw_rtrnmc.f90 b/radiation/src/rrtmg_lw_rtrnmc.f90
new file mode 100644
index 0000000000000000000000000000000000000000..c3ec8bb0209b010d6326de20307d726500673f9d
--- /dev/null
+++ b/radiation/src/rrtmg_lw_rtrnmc.f90
@@ -0,0 +1,598 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+      module rrtmg_lw_rtrnmc
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! --------- Modules ----------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrtm, only : mg, nbndlw, ngptlw
+      use rrlw_con, only: fluxfac, heatfac
+      use rrlw_wvn, only: delwave, ngb, ngs
+      use rrlw_tbl, only: tblint, bpade, tau_tbl, exp_tbl, tfn_tbl
+      use rrlw_vsn, only: hvrrtc, hnamrtc
+
+      implicit none
+
+      contains
+
+!-----------------------------------------------------------------------------
+      subroutine rtrnmc(nlayers, istart, iend, iout, pz, semiss, ncbands, &
+                        cldfmc, taucmc, planklay, planklev, plankbnd, &
+                        pwvcm, fracs, taut, &
+                        totuflux, totdflux, fnet, htr, &
+                        totuclfl, totdclfl, fnetc, htrc, &
+                        idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )
+!-----------------------------------------------------------------------------
+!
+!  Original version:   E. J. Mlawer, et al. RRTM_V3.0
+!  Revision for GCMs:  Michael J. Iacono; October, 2002
+!  Revision for F90:  Michael J. Iacono; June, 2006
+!  Revision for dFdT option: M. J. Iacono and E. J. Mlawer, November 2009
+!
+!  This program calculates the upward fluxes, downward fluxes, and
+!  heating rates for an arbitrary clear or cloudy atmosphere.  The input
+!  to this program is the atmospheric profile, all Planck function
+!  information, and the cloud fraction by layer.  A variable diffusivity 
+!  angle (SECDIFF) is used for the angle integration.  Bands 2-3 and 5-9 
+!  use a value for SECDIFF that varies from 1.50 to 1.80 as a function of 
+!  the column water vapor, and other bands use a value of 1.66.  The Gaussian 
+!  weight appropriate to this angle (WTDIFF=0.5) is applied here.  Note that 
+!  use of the emissivity angle for the flux integration can cause errors of 
+!  1 to 4 W/m2 within cloudy layers.  
+!  Clouds are treated with the McICA stochastic approach and maximum-random
+!  cloud overlap. 
+!  This subroutine also provides the optional capability to calculate
+!  the derivative of upward flux respect to surface temperature using
+!  the pre-tabulated derivative of the Planck function with respect to 
+!  temperature integrated over each spectral band.
+!***************************************************************************
+
+! ------- Declarations -------
+
+! ----- Input -----
+      integer(kind=im), intent(in) :: nlayers         ! total number of layers
+      integer(kind=im), intent(in) :: istart          ! beginning band of calculation
+      integer(kind=im), intent(in) :: iend            ! ending band of calculation
+      integer(kind=im), intent(in) :: iout            ! output option flag
+
+! Atmosphere
+      real(kind=rb), intent(in) :: pz(0:)             ! level (interface) pressures (hPa, mb)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(in) :: pwvcm              ! precipitable water vapor (cm)
+      real(kind=rb), intent(in) :: semiss(:)          ! lw surface emissivity
+                                                      !    Dimensions: (nbndlw)
+      real(kind=rb), intent(in) :: planklay(:,:)      ! 
+                                                      !    Dimensions: (nlayers,nbndlw)
+      real(kind=rb), intent(in) :: planklev(0:,:)     ! 
+                                                      !    Dimensions: (0:nlayers,nbndlw)
+      real(kind=rb), intent(in) :: plankbnd(:)        ! 
+                                                      !    Dimensions: (nbndlw)
+      real(kind=rb), intent(in) :: fracs(:,:)         ! 
+                                                      !    Dimensions: (nlayers,ngptw)
+      real(kind=rb), intent(in) :: taut(:,:)          ! gaseous + aerosol optical depths
+                                                      !    Dimensions: (nlayers,ngptlw)
+
+! Clouds
+      integer(kind=im), intent(in) :: ncbands         ! number of cloud spectral bands
+      real(kind=rb), intent(in) :: cldfmc(:,:)        ! layer cloud fraction [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+      real(kind=rb), intent(in) :: taucmc(:,:)        ! layer cloud optical depth [mcica]
+                                                      !    Dimensions: (ngptlw,nlayers)
+      integer(kind=im), intent(in) :: idrv            ! flag for calculation of dF/dt from 
+                                                      ! Planck derivative [0=off, 1=on]
+      real(kind=rb), intent(in) :: dplankbnd_dt(:)    ! derivative of Planck function wrt temp
+                                                      !    Dimensions: (nbndlw)
+
+! ----- Output -----
+      real(kind=rb), intent(out) :: totuflux(0:)      ! upward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: totdflux(0:)      ! downward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: fnet(0:)          ! net longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: htr(0:)           ! longwave heating rate (k/day)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: totuclfl(0:)      ! clear sky upward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: totdclfl(0:)      ! clear sky downward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: fnetc(0:)         ! clear sky net longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: htrc(0:)          ! clear sky longwave heating rate (k/day)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: dtotuflux_dt(0:)  ! change in upward longwave flux (w/m2/k)
+                                                      ! with respect to surface temperature
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: dtotuclfl_dt(0:)  ! change in upward longwave flux (w/m2/k)
+                                                      ! with respect to surface temperature
+                                                      !    Dimensions: (0:nlayers)
+
+! ----- Local -----
+! Declarations for radiative transfer
+      real(kind=rb) :: abscld(nlayers,ngptlw)
+      real(kind=rb) :: atot(nlayers)
+      real(kind=rb) :: atrans(nlayers)
+      real(kind=rb) :: bbugas(nlayers)
+      real(kind=rb) :: bbutot(nlayers)
+      real(kind=rb) :: clrurad(0:nlayers)
+      real(kind=rb) :: clrdrad(0:nlayers)
+      real(kind=rb) :: efclfrac(nlayers,ngptlw)
+      real(kind=rb) :: uflux(0:nlayers)
+      real(kind=rb) :: dflux(0:nlayers)
+      real(kind=rb) :: urad(0:nlayers)
+      real(kind=rb) :: drad(0:nlayers)
+      real(kind=rb) :: uclfl(0:nlayers)
+      real(kind=rb) :: dclfl(0:nlayers)
+      real(kind=rb) :: odcld(nlayers,ngptlw)
+
+
+      real(kind=rb) :: secdiff(nbndlw)                 ! secant of diffusivity angle
+      real(kind=rb) :: a0(nbndlw),a1(nbndlw),a2(nbndlw)! diffusivity angle adjustment coefficients
+      real(kind=rb) :: wtdiff, rec_6
+      real(kind=rb) :: transcld, radld, radclrd, plfrac, blay, dplankup, dplankdn
+      real(kind=rb) :: odepth, odtot, odepth_rec, odtot_rec, gassrc
+      real(kind=rb) :: tblind, tfactot, bbd, bbdtot, tfacgas, transc, tausfac
+      real(kind=rb) :: rad0, reflect, radlu, radclru
+
+      real(kind=rb) :: duflux_dt(0:nlayers)
+      real(kind=rb) :: duclfl_dt(0:nlayers)
+      real(kind=rb) :: d_urad_dt(0:nlayers)
+      real(kind=rb) :: d_clrurad_dt(0:nlayers)
+      real(kind=rb) :: d_rad0_dt, d_radlu_dt, d_radclru_dt
+
+      integer(kind=im) :: icldlyr(nlayers)                  ! flag for cloud in layer
+      integer(kind=im) :: ibnd, ib, iband, lay, lev, l, ig  ! loop indices
+      integer(kind=im) :: igc                               ! g-point interval counter
+      integer(kind=im) :: iclddn                            ! flag for cloud in down path
+      integer(kind=im) :: ittot, itgas, itr                 ! lookup table indices
+
+! ------- Definitions -------
+! input
+!    nlayers                      ! number of model layers
+!    ngptlw                       ! total number of g-point subintervals
+!    nbndlw                       ! number of longwave spectral bands
+!    ncbands                      ! number of spectral bands for clouds
+!    secdiff                      ! diffusivity angle
+!    wtdiff                       ! weight for radiance to flux conversion
+!    pavel                        ! layer pressures (mb)
+!    pz                           ! level (interface) pressures (mb)
+!    tavel                        ! layer temperatures (k)
+!    tz                           ! level (interface) temperatures(mb)
+!    tbound                       ! surface temperature (k)
+!    cldfrac                      ! layer cloud fraction
+!    taucloud                     ! layer cloud optical depth
+!    itr                          ! integer look-up table index
+!    icldlyr                      ! flag for cloudy layers
+!    iclddn                       ! flag for cloud in column at any layer
+!    semiss                       ! surface emissivities for each band
+!    reflect                      ! surface reflectance
+!    bpade                        ! 1/(pade constant)
+!    tau_tbl                      ! clear sky optical depth look-up table
+!    exp_tbl                      ! exponential look-up table for transmittance
+!    tfn_tbl                      ! tau transition function look-up table
+
+! local
+!    atrans                       ! gaseous absorptivity
+!    abscld                       ! cloud absorptivity
+!    atot                         ! combined gaseous and cloud absorptivity
+!    odclr                        ! clear sky (gaseous) optical depth
+!    odcld                        ! cloud optical depth
+!    odtot                        ! optical depth of gas and cloud
+!    tfacgas                      ! gas-only pade factor, used for planck fn
+!    tfactot                      ! gas and cloud pade factor, used for planck fn
+!    bbdgas                       ! gas-only planck function for downward rt
+!    bbugas                       ! gas-only planck function for upward rt
+!    bbdtot                       ! gas and cloud planck function for downward rt
+!    bbutot                       ! gas and cloud planck function for upward calc.
+!    gassrc                       ! source radiance due to gas only
+!    efclfrac                     ! effective cloud fraction
+!    radlu                        ! spectrally summed upward radiance 
+!    radclru                      ! spectrally summed clear sky upward radiance 
+!    urad                         ! upward radiance by layer
+!    clrurad                      ! clear sky upward radiance by layer
+!    radld                        ! spectrally summed downward radiance 
+!    radclrd                      ! spectrally summed clear sky downward radiance 
+!    drad                         ! downward radiance by layer
+!    clrdrad                      ! clear sky downward radiance by layer
+!    d_radlu_dt                   ! spectrally summed upward radiance 
+!    d_radclru_dt                 ! spectrally summed clear sky upward radiance 
+!    d_urad_dt                    ! upward radiance by layer
+!    d_clrurad_dt                 ! clear sky upward radiance by layer
+
+! output
+!    totuflux                     ! upward longwave flux (w/m2)
+!    totdflux                     ! downward longwave flux (w/m2)
+!    fnet                         ! net longwave flux (w/m2)
+!    htr                          ! longwave heating rate (k/day)
+!    totuclfl                     ! clear sky upward longwave flux (w/m2)
+!    totdclfl                     ! clear sky downward longwave flux (w/m2)
+!    fnetc                        ! clear sky net longwave flux (w/m2)
+!    htrc                         ! clear sky longwave heating rate (k/day)
+!    dtotuflux_dt                 ! change in upward longwave flux (w/m2/k)
+!                                 ! with respect to surface temperature
+!    dtotuclfl_dt                 ! change in clear sky upward longwave flux (w/m2/k)
+!                                 ! with respect to surface temperature
+
+
+! This secant and weight corresponds to the standard diffusivity 
+! angle.  This initial value is redefined below for some bands.
+      data wtdiff /0.5_rb/
+      data rec_6 /0.166667_rb/
+
+! Reset diffusivity angle for Bands 2-3 and 5-9 to vary (between 1.50
+! and 1.80) as a function of total column water vapor.  The function
+! has been defined to minimize flux and cooling rate errors in these bands
+! over a wide range of precipitable water values.
+      data a0 / 1.66_rb,  1.55_rb,  1.58_rb,  1.66_rb, &
+                1.54_rb, 1.454_rb,  1.89_rb,  1.33_rb, &
+               1.668_rb,  1.66_rb,  1.66_rb,  1.66_rb, &
+                1.66_rb,  1.66_rb,  1.66_rb,  1.66_rb /
+      data a1 / 0.00_rb,  0.25_rb,  0.22_rb,  0.00_rb, &
+                0.13_rb, 0.446_rb, -0.10_rb,  0.40_rb, &
+              -0.006_rb,  0.00_rb,  0.00_rb,  0.00_rb, &
+                0.00_rb,  0.00_rb,  0.00_rb,  0.00_rb /
+      data a2 / 0.00_rb, -12.0_rb, -11.7_rb,  0.00_rb, &
+               -0.72_rb,-0.243_rb,  0.19_rb,-0.062_rb, &
+               0.414_rb,  0.00_rb,  0.00_rb,  0.00_rb, &
+                0.00_rb,  0.00_rb,  0.00_rb,  0.00_rb /
+
+      hvrrtc = '$Revision$'
+
+      do ibnd = 1,nbndlw
+         if (ibnd.eq.1 .or. ibnd.eq.4 .or. ibnd.ge.10) then
+           secdiff(ibnd) = 1.66_rb
+         else
+           secdiff(ibnd) = a0(ibnd) + a1(ibnd)*exp(a2(ibnd)*pwvcm)
+           if (secdiff(ibnd) .gt. 1.80_rb) secdiff(ibnd) = 1.80_rb
+           if (secdiff(ibnd) .lt. 1.50_rb) secdiff(ibnd) = 1.50_rb
+         endif
+      enddo
+
+      urad(0) = 0.0_rb
+      drad(0) = 0.0_rb
+      totuflux(0) = 0.0_rb
+      totdflux(0) = 0.0_rb
+      clrurad(0) = 0.0_rb
+      clrdrad(0) = 0.0_rb
+      totuclfl(0) = 0.0_rb
+      totdclfl(0) = 0.0_rb
+      if (idrv .eq. 1) then
+         d_urad_dt(0) = 0.0_rb
+         d_clrurad_dt(0) = 0.0_rb
+         dtotuflux_dt(0) = 0.0_rb
+         dtotuclfl_dt(0) = 0.0_rb
+      endif
+
+      do lay = 1, nlayers
+         urad(lay) = 0.0_rb
+         drad(lay) = 0.0_rb
+         totuflux(lay) = 0.0_rb
+         totdflux(lay) = 0.0_rb
+         clrurad(lay) = 0.0_rb
+         clrdrad(lay) = 0.0_rb
+         totuclfl(lay) = 0.0_rb
+         totdclfl(lay) = 0.0_rb
+         icldlyr(lay) = 0
+         if (idrv .eq. 1) then
+            d_urad_dt(lay) = 0.0_rb
+            d_clrurad_dt(lay) = 0.0_rb
+            dtotuflux_dt(lay) = 0.0_rb
+            dtotuclfl_dt(lay) = 0.0_rb
+         endif
+
+! Change to band loop?
+         do ig = 1, ngptlw
+            if (cldfmc(ig,lay) .eq. 1._rb) then
+               ib = ngb(ig)
+               odcld(lay,ig) = secdiff(ib) * taucmc(ig,lay)
+               transcld = exp(-odcld(lay,ig))
+               abscld(lay,ig) = 1._rb - transcld
+               efclfrac(lay,ig) = abscld(lay,ig) * cldfmc(ig,lay)
+               icldlyr(lay) = 1
+            else
+               odcld(lay,ig) = 0.0_rb
+               abscld(lay,ig) = 0.0_rb
+               efclfrac(lay,ig) = 0.0_rb
+            endif
+         enddo
+
+      enddo
+
+      igc = 1
+! Loop over frequency bands.
+      do iband = istart, iend
+
+! Reinitialize g-point counter for each band if output for each band is requested.
+         if (iout.gt.0.and.iband.ge.2) igc = ngs(iband-1)+1
+
+! Loop over g-channels.
+ 1000    continue
+
+! Radiative transfer starts here.
+         radld = 0._rb
+         radclrd = 0._rb
+         iclddn = 0
+
+! Downward radiative transfer loop.  
+
+         do lev = nlayers, 1, -1
+               plfrac = fracs(lev,igc)
+               blay = planklay(lev,iband)
+               dplankup = planklev(lev,iband) - blay
+               dplankdn = planklev(lev-1,iband) - blay
+               odepth = secdiff(iband) * taut(lev,igc)
+               if (odepth .lt. 0.0_rb) odepth = 0.0_rb
+!  Cloudy layer
+               if (icldlyr(lev).eq.1) then
+                  iclddn = 1
+                  odtot = odepth + odcld(lev,igc)
+                  if (odtot .lt. 0.06_rb) then
+                     atrans(lev) = odepth - 0.5_rb*odepth*odepth
+                     odepth_rec = rec_6*odepth
+                     gassrc = plfrac*(blay+dplankdn*odepth_rec)*atrans(lev)
+
+                     atot(lev) =  odtot - 0.5_rb*odtot*odtot
+                     odtot_rec = rec_6*odtot
+                     bbdtot =  plfrac * (blay+dplankdn*odtot_rec)
+                     bbd = plfrac*(blay+dplankdn*odepth_rec)
+                     radld = radld - radld * (atrans(lev) + &
+                         efclfrac(lev,igc) * (1. - atrans(lev))) + &
+                         gassrc + cldfmc(igc,lev) * &
+                         (bbdtot * atot(lev) - gassrc)
+                     drad(lev-1) = drad(lev-1) + radld
+                  
+                     bbugas(lev) =  plfrac * (blay+dplankup*odepth_rec)
+                     bbutot(lev) =  plfrac * (blay+dplankup*odtot_rec)
+
+                  elseif (odepth .le. 0.06_rb) then
+                     atrans(lev) = odepth - 0.5_rb*odepth*odepth
+                     odepth_rec = rec_6*odepth
+                     gassrc = plfrac*(blay+dplankdn*odepth_rec)*atrans(lev)
+
+                     odtot = odepth + odcld(lev,igc)
+                     tblind = odtot/(bpade+odtot)
+                     ittot = tblint*tblind + 0.5_rb
+                     tfactot = tfn_tbl(ittot)
+                     bbdtot = plfrac * (blay + tfactot*dplankdn)
+                     bbd = plfrac*(blay+dplankdn*odepth_rec)
+                     atot(lev) = 1. - exp_tbl(ittot)
+
+                     radld = radld - radld * (atrans(lev) + &
+                         efclfrac(lev,igc) * (1._rb - atrans(lev))) + &
+                         gassrc + cldfmc(igc,lev) * &
+                         (bbdtot * atot(lev) - gassrc)
+                     drad(lev-1) = drad(lev-1) + radld
+
+                     bbugas(lev) = plfrac * (blay + dplankup*odepth_rec)
+                     bbutot(lev) = plfrac * (blay + tfactot * dplankup)
+
+                  else
+
+                     tblind = odepth/(bpade+odepth)
+                     itgas = tblint*tblind+0.5_rb
+                     odepth = tau_tbl(itgas)
+                     atrans(lev) = 1._rb - exp_tbl(itgas)
+                     tfacgas = tfn_tbl(itgas)
+                     gassrc = atrans(lev) * plfrac * (blay + tfacgas*dplankdn)
+
+                     odtot = odepth + odcld(lev,igc)
+                     tblind = odtot/(bpade+odtot)
+                     ittot = tblint*tblind + 0.5_rb
+                     tfactot = tfn_tbl(ittot)
+                     bbdtot = plfrac * (blay + tfactot*dplankdn)
+                     bbd = plfrac*(blay+tfacgas*dplankdn)
+                     atot(lev) = 1._rb - exp_tbl(ittot)
+
+                  radld = radld - radld * (atrans(lev) + &
+                    efclfrac(lev,igc) * (1._rb - atrans(lev))) + &
+                    gassrc + cldfmc(igc,lev) * &
+                    (bbdtot * atot(lev) - gassrc)
+                  drad(lev-1) = drad(lev-1) + radld
+                  bbugas(lev) = plfrac * (blay + tfacgas * dplankup)
+                  bbutot(lev) = plfrac * (blay + tfactot * dplankup)
+                  endif
+!  Clear layer
+               else
+                  if (odepth .le. 0.06_rb) then
+                     atrans(lev) = odepth-0.5_rb*odepth*odepth
+                     odepth = rec_6*odepth
+                     bbd = plfrac*(blay+dplankdn*odepth)
+                     bbugas(lev) = plfrac*(blay+dplankup*odepth)
+                  else
+                     tblind = odepth/(bpade+odepth)
+                     itr = tblint*tblind+0.5_rb
+                     transc = exp_tbl(itr)
+                     atrans(lev) = 1._rb-transc
+                     tausfac = tfn_tbl(itr)
+                     bbd = plfrac*(blay+tausfac*dplankdn)
+                     bbugas(lev) = plfrac * (blay + tausfac * dplankup)
+                  endif   
+                  radld = radld + (bbd-radld)*atrans(lev)
+                  drad(lev-1) = drad(lev-1) + radld
+               endif
+!  Set clear sky stream to total sky stream as long as layers
+!  remain clear.  Streams diverge when a cloud is reached (iclddn=1),
+!  and clear sky stream must be computed separately from that point.
+                  if (iclddn.eq.1) then
+                     radclrd = radclrd + (bbd-radclrd) * atrans(lev) 
+                     clrdrad(lev-1) = clrdrad(lev-1) + radclrd
+                  else
+                     radclrd = radld
+                     clrdrad(lev-1) = drad(lev-1)
+                  endif
+            enddo
+
+! Spectral emissivity & reflectance
+!  Include the contribution of spectrally varying longwave emissivity
+!  and reflection from the surface to the upward radiative transfer.
+!  Note: Spectral and Lambertian reflection are identical for the
+!  diffusivity angle flux integration used here.
+!  Note: The emissivity is applied to plankbnd and dplankbnd_dt when 
+!  they are defined in subroutine setcoef. 
+
+         rad0 = fracs(1,igc) * plankbnd(iband)
+         if (idrv .eq. 1) then
+            d_rad0_dt = fracs(1,igc) * dplankbnd_dt(iband)
+         endif
+
+!  Add in specular reflection of surface downward radiance.
+         reflect = 1._rb - semiss(iband)
+         radlu = rad0 + reflect * radld
+         radclru = rad0 + reflect * radclrd
+
+
+! Upward radiative transfer loop.
+         urad(0) = urad(0) + radlu
+         clrurad(0) = clrurad(0) + radclru
+         if (idrv .eq. 1) then
+            d_radlu_dt = d_rad0_dt
+            d_urad_dt(0) = d_urad_dt(0) + d_radlu_dt
+            d_radclru_dt = d_rad0_dt
+            d_clrurad_dt(0) = d_clrurad_dt(0) + d_radclru_dt
+         endif
+
+         do lev = 1, nlayers
+!  Cloudy layer
+            if (icldlyr(lev) .eq. 1) then
+               gassrc = bbugas(lev) * atrans(lev)
+               radlu = radlu - radlu * (atrans(lev) + &
+                   efclfrac(lev,igc) * (1._rb - atrans(lev))) + &
+                   gassrc + cldfmc(igc,lev) * &
+                   (bbutot(lev) * atot(lev) - gassrc)
+               urad(lev) = urad(lev) + radlu
+               if (idrv .eq. 1) then
+                  d_radlu_dt = d_radlu_dt * cldfmc(igc,lev) * (1.0_rb - atot(lev)) + &
+                         d_radlu_dt * (1.0_rb - cldfmc(igc,lev)) * (1.0_rb - atrans(lev))
+                  d_urad_dt(lev) = d_urad_dt(lev) + d_radlu_dt
+               endif
+!  Clear layer
+            else
+               radlu = radlu + (bbugas(lev)-radlu)*atrans(lev)
+               urad(lev) = urad(lev) + radlu
+               if (idrv .eq. 1) then
+                  d_radlu_dt = d_radlu_dt * (1.0_rb - atrans(lev))
+                  d_urad_dt(lev) = d_urad_dt(lev) + d_radlu_dt
+               endif
+            endif
+!  Set clear sky stream to total sky stream as long as all layers
+!  are clear (iclddn=0).  Streams must be calculated separately at 
+!  all layers when a cloud is present (ICLDDN=1), because surface 
+!  reflectance is different for each stream.
+               if (iclddn.eq.1) then
+                  radclru = radclru + (bbugas(lev)-radclru)*atrans(lev) 
+                  clrurad(lev) = clrurad(lev) + radclru
+               else
+                  radclru = radlu
+                  clrurad(lev) = urad(lev)
+               endif
+               if (idrv .eq. 1) then
+                  if (iclddn.eq.1) then
+                     d_radclru_dt = d_radclru_dt * (1.0_rb - atrans(lev))
+                     d_clrurad_dt(lev) = d_clrurad_dt(lev) + d_radclru_dt
+                  else
+                     d_radclru_dt = d_radlu_dt
+                     d_clrurad_dt(lev) = d_urad_dt(lev)
+                  endif
+               endif
+         enddo
+
+! Increment g-point counter
+         igc = igc + 1
+! Return to continue radiative transfer for all g-channels in present band
+         if (igc .le. ngs(iband)) go to 1000
+
+! Process longwave output from band for total and clear streams.
+! Calculate upward, downward, and net flux.
+         do lev = nlayers, 0, -1
+            uflux(lev) = urad(lev)*wtdiff
+            dflux(lev) = drad(lev)*wtdiff
+            urad(lev) = 0.0_rb
+            drad(lev) = 0.0_rb
+            totuflux(lev) = totuflux(lev) + uflux(lev) * delwave(iband)
+            totdflux(lev) = totdflux(lev) + dflux(lev) * delwave(iband)
+            uclfl(lev) = clrurad(lev)*wtdiff
+            dclfl(lev) = clrdrad(lev)*wtdiff
+            clrurad(lev) = 0.0_rb
+            clrdrad(lev) = 0.0_rb
+            totuclfl(lev) = totuclfl(lev) + uclfl(lev) * delwave(iband)
+            totdclfl(lev) = totdclfl(lev) + dclfl(lev) * delwave(iband)
+         enddo
+
+! Calculate total change in upward flux wrt surface temperature
+         if (idrv .eq. 1) then
+            do lev = nlayers, 0, -1
+               duflux_dt(lev) = d_urad_dt(lev) * wtdiff
+               d_urad_dt(lev) = 0.0_rb
+               dtotuflux_dt(lev) = dtotuflux_dt(lev) + duflux_dt(lev) * delwave(iband) * fluxfac
+               duclfl_dt(lev) = d_clrurad_dt(lev) * wtdiff
+               d_clrurad_dt(lev) = 0.0_rb
+               dtotuclfl_dt(lev) = dtotuclfl_dt(lev) + duclfl_dt(lev) * delwave(iband) * fluxfac
+            enddo
+         endif
+
+! End spectral band loop
+      enddo
+
+! Calculate fluxes at surface
+      totuflux(0) = totuflux(0) * fluxfac
+      totdflux(0) = totdflux(0) * fluxfac
+      fnet(0) = totuflux(0) - totdflux(0)
+      totuclfl(0) = totuclfl(0) * fluxfac
+      totdclfl(0) = totdclfl(0) * fluxfac
+      fnetc(0) = totuclfl(0) - totdclfl(0)
+
+! Calculate fluxes at model levels
+      do lev = 1, nlayers
+         totuflux(lev) = totuflux(lev) * fluxfac
+         totdflux(lev) = totdflux(lev) * fluxfac
+         fnet(lev) = totuflux(lev) - totdflux(lev)
+         totuclfl(lev) = totuclfl(lev) * fluxfac
+         totdclfl(lev) = totdclfl(lev) * fluxfac
+         fnetc(lev) = totuclfl(lev) - totdclfl(lev)
+         l = lev - 1
+
+! Calculate heating rates at model layers
+         htr(l)=heatfac*(fnet(l)-fnet(lev))/(pz(l)-pz(lev)) 
+         htrc(l)=heatfac*(fnetc(l)-fnetc(lev))/(pz(l)-pz(lev)) 
+      enddo
+
+! Set heating rate to zero in top layer
+      htr(nlayers) = 0.0_rb
+      htrc(nlayers) = 0.0_rb
+
+      end subroutine rtrnmc
+
+      end module rrtmg_lw_rtrnmc
+
diff --git a/radiation/src/rrtmg_lw_rtrnmr.f90 b/radiation/src/rrtmg_lw_rtrnmr.f90
new file mode 100644
index 0000000000000000000000000000000000000000..5c4e0eea0b8a682cb6fd695bf0ebf3a4cdeecfc5
--- /dev/null
+++ b/radiation/src/rrtmg_lw_rtrnmr.f90
@@ -0,0 +1,815 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+      module rrtmg_lw_rtrnmr
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrtm, only : mg, nbndlw, ngptlw
+      use rrlw_con, only: fluxfac, heatfac
+      use rrlw_wvn, only: delwave, ngs
+      use rrlw_tbl, only: tblint, bpade, tau_tbl, exp_tbl, tfn_tbl, ntbl
+      use rrlw_vsn, only: hvrrtx, hnamrtx
+
+      implicit none
+
+      contains
+
+!-----------------------------------------------------------------------------
+      subroutine rtrnmr(nlayers, istart, iend, iout, pz, semiss, ncbands, &
+                        cldfrac, taucloud, planklay, planklev, plankbnd, &
+                        pwvcm, fracs, taut, & 
+                        totuflux, totdflux, fnet, htr, &
+                        totuclfl, totdclfl, fnetc, htrc, &
+                        idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )
+!-----------------------------------------------------------------------------
+!
+!  Original version:   E. J. Mlawer, et al. RRTM_V3.0
+!  Revision for GCMs:  Michael J. Iacono; October, 2002
+!  Revision for F90:  Michael J. Iacono; June, 2006
+!  Revision for dFdT option: M. J. Iacono and E. J. Mlawer, November 2009
+!
+!  This program calculates the upward fluxes, downward fluxes, and
+!  heating rates for an arbitrary clear or cloudy atmosphere.  The input
+!  to this program is the atmospheric profile, all Planck function
+!  information, and the cloud fraction by layer.  A variable diffusivity 
+!  angle (SECDIFF) is used for the angle integration.  Bands 2-3 and 5-9 
+!  use a value for SECDIFF that varies from 1.50 to 1.80 as a function of 
+!  the column water vapor, and other bands use a value of 1.66.  The Gaussian 
+!  weight appropriate to this angle (WTDIFF=0.5) is applied here.  Note that 
+!  use of the emissivity angle for the flux integration can cause errors of 
+!  1 to 4 W/m2 within cloudy layers.  
+!  Clouds are treated with a maximum-random cloud overlap method.
+!  This subroutine also provides the optional capability to calculate
+!  the derivative of upward flux respect to surface temperature using
+!  the pre-tabulated derivative of the Planck function with respect to 
+!  temperature integrated over each spectral band.
+!***************************************************************************
+
+! ------- Declarations -------
+
+! ----- Input -----
+      integer(kind=im), intent(in) :: nlayers         ! total number of layers
+      integer(kind=im), intent(in) :: istart          ! beginning band of calculation
+      integer(kind=im), intent(in) :: iend            ! ending band of calculation
+      integer(kind=im), intent(in) :: iout            ! output option flag
+
+! Atmosphere
+      real(kind=rb), intent(in) :: pz(0:)             ! level (interface) pressures (hPa, mb)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(in) :: pwvcm              ! precipitable water vapor (cm)
+      real(kind=rb), intent(in) :: semiss(:)          ! lw surface emissivity
+                                                      !    Dimensions: (nbndlw)
+      real(kind=rb), intent(in) :: planklay(:,:)      ! 
+                                                      !    Dimensions: (nlayers,nbndlw)
+      real(kind=rb), intent(in) :: planklev(0:,:)     ! 
+                                                      !    Dimensions: (0:nlayers,nbndlw)
+      real(kind=rb), intent(in) :: plankbnd(:)        ! 
+                                                      !    Dimensions: (nbndlw)
+      real(kind=rb), intent(in) :: fracs(:,:)         ! 
+                                                      !    Dimensions: (nlayers,ngptw)
+      real(kind=rb), intent(in) :: taut(:,:)          ! gaseous + aerosol optical depths
+                                                      !    Dimensions: (nlayers,ngptlw)
+
+! Clouds
+      integer(kind=im), intent(in) :: ncbands         ! number of cloud spectral bands
+      real(kind=rb), intent(in) :: cldfrac(:)         ! layer cloud fraction
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: taucloud(:,:)      ! layer cloud optical depth
+                                                      !    Dimensions: (nlayers,nbndlw)
+      integer(kind=im), intent(in) :: idrv            ! flag for calculation of dF/dt from 
+                                                      ! Planck derivative [0=off, 1=on]
+      real(kind=rb), intent(in) :: dplankbnd_dt(:)    ! derivative of Planck function wrt temp
+                                                      !    Dimensions: (nbndlw)
+
+! ----- Output -----
+      real(kind=rb), intent(out) :: totuflux(0:)      ! upward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: totdflux(0:)      ! downward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: fnet(0:)          ! net longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: htr(0:)           ! longwave heating rate (k/day)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: totuclfl(0:)      ! clear sky upward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: totdclfl(0:)      ! clear sky downward longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: fnetc(0:)         ! clear sky net longwave flux (w/m2)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: htrc(0:)          ! clear sky longwave heating rate (k/day)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: dtotuflux_dt(0:)  ! change in upward longwave flux (w/m2/k)
+                                                      ! with respect to surface temperature
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(out) :: dtotuclfl_dt(0:)  ! change in upward longwave flux (w/m2/k)
+                                                      ! with respect to surface temperature
+                                                      !    Dimensions: (0:nlayers)
+
+! ----- Local -----
+! Declarations for radiative transfer
+      real(kind=rb) :: abscld(nlayers,nbndlw)
+      real(kind=rb) :: atot(nlayers)
+      real(kind=rb) :: atrans(nlayers)
+      real(kind=rb) :: bbugas(nlayers)
+      real(kind=rb) :: bbutot(nlayers)
+      real(kind=rb) :: clrurad(0:nlayers)
+      real(kind=rb) :: clrdrad(0:nlayers)
+      real(kind=rb) :: efclfrac(nlayers,nbndlw)
+      real(kind=rb) :: uflux(0:nlayers)
+      real(kind=rb) :: dflux(0:nlayers)
+      real(kind=rb) :: urad(0:nlayers)
+      real(kind=rb) :: drad(0:nlayers)
+      real(kind=rb) :: uclfl(0:nlayers)
+      real(kind=rb) :: dclfl(0:nlayers)
+      real(kind=rb) :: odcld(nlayers,nbndlw)
+
+      real(kind=rb) :: secdiff(nbndlw)                 ! secant of diffusivity angle
+      real(kind=rb) :: a0(nbndlw),a1(nbndlw),a2(nbndlw)! diffusivity angle adjustment coefficients
+      real(kind=rb) :: wtdiff, rec_6
+      real(kind=rb) :: transcld, radld, radclrd, plfrac, blay, dplankup, dplankdn
+      real(kind=rb) :: odepth, odtot, odepth_rec, odtot_rec, gassrc, ttot
+      real(kind=rb) :: tblind, tfactot, bbd, bbdtot, tfacgas, transc, tausfac
+      real(kind=rb) :: rad0, reflect, radlu, radclru
+
+      real(kind=rb) :: duflux_dt(0:nlayers)
+      real(kind=rb) :: duclfl_dt(0:nlayers)
+      real(kind=rb) :: d_urad_dt(0:nlayers)
+      real(kind=rb) :: d_clrurad_dt(0:nlayers)
+      real(kind=rb) :: d_rad0_dt, d_radlu_dt, d_radclru_dt
+
+      integer(kind=im) :: icldlyr(nlayers)             ! flag for cloud in layer
+      integer(kind=im) :: ibnd, ib, iband, lay, lev, l ! loop indices
+      integer(kind=im) :: igc                          ! g-point interval counter
+      integer(kind=im) :: iclddn                       ! flag for cloud in down path
+      integer(kind=im) :: ittot, itgas, itr            ! lookup table indices
+      integer(kind=im) :: ipat(16,0:2)
+
+! Declarations for cloud overlap adjustment
+      real(kind=rb) :: faccld1(nlayers+1),faccld2(nlayers+1)
+      real(kind=rb) :: facclr1(nlayers+1),facclr2(nlayers+1)
+      real(kind=rb) :: faccmb1(nlayers+1),faccmb2(nlayers+1)
+      real(kind=rb) :: faccld1d(0:nlayers),faccld2d(0:nlayers)
+      real(kind=rb) :: facclr1d(0:nlayers),facclr2d(0:nlayers)
+      real(kind=rb) :: faccmb1d(0:nlayers),faccmb2d(0:nlayers)
+
+      real(kind=rb) :: fmax, fmin, rat1, rat2
+      real(kind=rb) :: clrradd, cldradd, clrradu, cldradu, oldclr, oldcld
+      real(kind=rb) :: rad, cldsrc, radmod
+
+      integer(kind=im) :: istcld(nlayers+1),istcldd(0:nlayers)
+
+! ------- Definitions -------
+! input
+!    nlayers                      ! number of model layers
+!    ngptlw                       ! total number of g-point subintervals
+!    nbndlw                       ! number of longwave spectral bands
+!    ncbands                      ! number of spectral bands for clouds
+!    secdiff                      ! diffusivity angle
+!    wtdiff                       ! weight for radiance to flux conversion
+!    pavel                        ! layer pressures (mb)
+!    pz                           ! level (interface) pressures (mb)
+!    tavel                        ! layer temperatures (k)
+!    tz                           ! level (interface) temperatures(mb)
+!    tbound                       ! surface temperature (k)
+!    cldfrac                      ! layer cloud fraction
+!    taucloud                     ! layer cloud optical depth
+!    itr                          ! integer look-up table index
+!    icldlyr                      ! flag for cloudy layers
+!    iclddn                       ! flag for cloud in column at any layer
+!    semiss                       ! surface emissivities for each band
+!    reflect                      ! surface reflectance
+!    bpade                        ! 1/(pade constant)
+!    tau_tbl                      ! clear sky optical depth look-up table
+!    exp_tbl                      ! exponential look-up table for transmittance
+!    tfn_tbl                      ! tau transition function look-up table
+
+! local
+!    atrans                       ! gaseous absorptivity
+!    abscld                       ! cloud absorptivity
+!    atot                         ! combined gaseous and cloud absorptivity
+!    odclr                        ! clear sky (gaseous) optical depth
+!    odcld                        ! cloud optical depth
+!    odtot                        ! optical depth of gas and cloud
+!    tfacgas                      ! gas-only pade factor, used for planck fn
+!    tfactot                      ! gas and cloud pade factor, used for planck fn
+!    bbdgas                       ! gas-only planck function for downward rt
+!    bbugas                       ! gas-only planck function for upward rt
+!    bbdtot                       ! gas and cloud planck function for downward rt
+!    bbutot                       ! gas and cloud planck function for upward calc.
+!    gassrc                       ! source radiance due to gas only
+!    efclfrac                     ! effective cloud fraction
+!    radlu                        ! spectrally summed upward radiance 
+!    radclru                      ! spectrally summed clear sky upward radiance 
+!    urad                         ! upward radiance by layer
+!    clrurad                      ! clear sky upward radiance by layer
+!    radld                        ! spectrally summed downward radiance 
+!    radclrd                      ! spectrally summed clear sky downward radiance 
+!    drad                         ! downward radiance by layer
+!    clrdrad                      ! clear sky downward radiance by layer
+!    d_radlu_dt                   ! spectrally summed upward radiance 
+!    d_radclru_dt                 ! spectrally summed clear sky upward radiance 
+!    d_urad_dt                    ! upward radiance by layer
+!    d_clrurad_dt                 ! clear sky upward radiance by layer
+
+! output
+!    totuflux                     ! upward longwave flux (w/m2)
+!    totdflux                     ! downward longwave flux (w/m2)
+!    fnet                         ! net longwave flux (w/m2)
+!    htr                          ! longwave heating rate (k/day)
+!    totuclfl                     ! clear sky upward longwave flux (w/m2)
+!    totdclfl                     ! clear sky downward longwave flux (w/m2)
+!    fnetc                        ! clear sky net longwave flux (w/m2)
+!    htrc                         ! clear sky longwave heating rate (k/day)
+!    dtotuflux_dt                 ! change in upward longwave flux (w/m2/k)
+!                                 ! with respect to surface temperature
+!    dtotuclfl_dt                 ! change in clear sky upward longwave flux (w/m2/k)
+!                                 ! with respect to surface temperature
+
+
+! These arrays indicate the spectral 'region' (used in the 
+! calculation of ice cloud optical depths) corresponding
+! to each spectral band.  See cldprop.f for more details.
+      data ipat /1,1,1,1,1,1,1,1,1, 1, 1, 1, 1, 1, 1, 1, &
+                 1,2,3,3,3,4,4,4,5, 5, 5, 5, 5, 5, 5, 5, &
+                 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/
+
+! This secant and weight corresponds to the standard diffusivity 
+! angle.  This initial value is redefined below for some bands.
+      data wtdiff /0.5_rb/
+      data rec_6 /0.166667_rb/
+
+! Reset diffusivity angle for Bands 2-3 and 5-9 to vary (between 1.50
+! and 1.80) as a function of total column water vapor.  The function
+! has been defined to minimize flux and cooling rate errors in these bands
+! over a wide range of precipitable water values.
+      data a0 / 1.66_rb,  1.55_rb,  1.58_rb,  1.66_rb, &
+                1.54_rb, 1.454_rb,  1.89_rb,  1.33_rb, &
+               1.668_rb,  1.66_rb,  1.66_rb,  1.66_rb, &
+                1.66_rb,  1.66_rb,  1.66_rb,  1.66_rb /
+      data a1 / 0.00_rb,  0.25_rb,  0.22_rb,  0.00_rb, &
+                0.13_rb, 0.446_rb, -0.10_rb,  0.40_rb, &
+              -0.006_rb,  0.00_rb,  0.00_rb,  0.00_rb, &
+                0.00_rb,  0.00_rb,  0.00_rb,  0.00_rb /
+      data a2 / 0.00_rb, -12.0_rb, -11.7_rb,  0.00_rb, &
+               -0.72_rb,-0.243_rb,  0.19_rb,-0.062_rb, &
+               0.414_rb,  0.00_rb,  0.00_rb,  0.00_rb, &
+                0.00_rb,  0.00_rb,  0.00_rb,  0.00_rb /
+
+      do ibnd = 1,nbndlw
+         if (ibnd.eq.1 .or. ibnd.eq.4 .or. ibnd.ge.10) then
+           secdiff(ibnd) = 1.66_rb
+         else
+           secdiff(ibnd) = a0(ibnd) + a1(ibnd)*exp(a2(ibnd)*pwvcm)
+           if (secdiff(ibnd) .gt. 1.80_rb) secdiff(ibnd) = 1.80_rb
+           if (secdiff(ibnd) .lt. 1.50_rb) secdiff(ibnd) = 1.50_rb
+         endif
+      enddo
+
+      hvrrtx = '$Revision$'
+
+      urad(0) = 0.0_rb
+      drad(0) = 0.0_rb
+      totuflux(0) = 0.0_rb
+      totdflux(0) = 0.0_rb
+      clrurad(0) = 0.0_rb
+      clrdrad(0) = 0.0_rb
+      totuclfl(0) = 0.0_rb
+      totdclfl(0) = 0.0_rb
+      if (idrv .eq. 1) then
+         d_urad_dt(0) = 0.0_rb
+         d_clrurad_dt(0) = 0.0_rb
+         dtotuflux_dt(0) = 0.0_rb
+         dtotuclfl_dt(0) = 0.0_rb
+      endif
+
+      do lay = 1, nlayers
+         urad(lay) = 0.0_rb
+         drad(lay) = 0.0_rb
+         totuflux(lay) = 0.0_rb
+         totdflux(lay) = 0.0_rb
+         clrurad(lay) = 0.0_rb
+         clrdrad(lay) = 0.0_rb
+         totuclfl(lay) = 0.0_rb
+         totdclfl(lay) = 0.0_rb
+         if (idrv .eq. 1) then
+            d_urad_dt(lay) = 0.0_rb
+            d_clrurad_dt(lay) = 0.0_rb
+            dtotuflux_dt(lay) = 0.0_rb
+            dtotuclfl_dt(lay) = 0.0_rb
+         endif
+
+         do ib = 1, ncbands
+            if (cldfrac(lay) .ge. 1.e-6_rb) then
+               odcld(lay,ib) = secdiff(ib) * taucloud(lay,ib)
+               icldlyr(lay) = 1
+            else
+               odcld(lay,ib) = 0.0_rb
+               icldlyr(lay) = 0
+            endif
+         enddo
+      enddo
+
+! Maximum/Random cloud overlap parameter
+
+      istcld(1) = 1
+      istcldd(nlayers) = 1
+      do lev = 1, nlayers
+
+         if (icldlyr(lev).eq.1) then
+! Maximum/random cloud overlap
+            istcld(lev+1) = 0
+            if (lev .eq. nlayers) then
+               faccld1(lev+1) = 0._rb
+               faccld2(lev+1) = 0._rb
+               facclr1(lev+1) = 0._rb
+               facclr2(lev+1) = 0._rb
+               faccmb1(lev+1) = 0._rb
+               faccmb2(lev+1) = 0._rb
+            elseif (cldfrac(lev+1) .ge. cldfrac(lev)) then
+               faccld1(lev+1) = 0._rb
+               faccld2(lev+1) = 0._rb
+               if (istcld(lev) .eq. 1) then
+                  facclr1(lev+1) = 0._rb
+                  facclr2(lev+1) = 0._rb
+                  if (cldfrac(lev) .lt. 1._rb) facclr2(lev+1) = &
+                     (cldfrac(lev+1)-cldfrac(lev))/(1._rb-cldfrac(lev))
+                  facclr2(lev) = 0._rb
+                  faccld2(lev) = 0._rb
+               else
+                  fmax = max(cldfrac(lev),cldfrac(lev-1))
+                  if (cldfrac(lev+1) .gt. fmax) then
+                     facclr1(lev+1) = rat2
+                     facclr2(lev+1) = (cldfrac(lev+1)-fmax)/(1._rb-fmax)
+                  elseif (cldfrac(lev+1) .lt. fmax) then
+                     facclr1(lev+1) = (cldfrac(lev+1)-cldfrac(lev))/ &
+                        (cldfrac(lev-1)-cldfrac(lev))
+                     facclr2(lev+1) = 0._rb
+                  else
+                     facclr1(lev+1) = rat2
+                     facclr2(lev+1) = 0._rb
+                  endif
+               endif
+               if (facclr1(lev+1).gt.0._rb .or. facclr2(lev+1).gt.0._rb) then
+                  rat1 = 1._rb
+                  rat2 = 0._rb
+               else
+                  rat1 = 0._rb
+                  rat2 = 0._rb
+               endif
+            else
+               facclr1(lev+1) = 0._rb
+               facclr2(lev+1) = 0._rb
+               if (istcld(lev) .eq. 1) then
+                  faccld1(lev+1) = 0._rb
+                  faccld2(lev+1) = (cldfrac(lev)-cldfrac(lev+1))/cldfrac(lev)
+
+                  facclr2(lev) = 0._rb
+                  faccld2(lev) = 0._rb
+               else
+                  fmin = min(cldfrac(lev),cldfrac(lev-1))
+                  if (cldfrac(lev+1) .le. fmin) then
+                     faccld1(lev+1) = rat1
+                     faccld2(lev+1) = (fmin-cldfrac(lev+1))/fmin
+                  else
+                     faccld1(lev+1) = (cldfrac(lev)-cldfrac(lev+1))/(cldfrac(lev)-fmin)
+                     faccld2(lev+1) = 0._rb
+                  endif
+               endif
+               if (faccld1(lev+1).gt.0._rb .or. faccld2(lev+1).gt.0._rb) then
+                  rat1 = 0._rb
+                  rat2 = 1._rb
+               else
+                  rat1 = 0._rb
+                  rat2 = 0._rb
+               endif
+            endif
+            if (istcld(lev).ne.1) then
+                faccmb1(lev+1) = max(0.,min(cldfrac(lev+1)-cldfrac(lev), &
+                    cldfrac(lev-1)-cldfrac(lev)))
+                faccmb2(lev+1) = max(0.,min(cldfrac(lev)-cldfrac(lev+1), &
+                    cldfrac(lev)-cldfrac(lev-1)))
+            endif
+         else
+            istcld(lev+1) = 1
+         endif
+      enddo
+
+      do lev = nlayers, 1, -1
+         if (icldlyr(lev).eq.1) then
+            istcldd(lev-1) = 0
+            if (lev .eq. 1) then
+               faccld1d(lev-1) = 0._rb
+               faccld2d(lev-1) = 0._rb
+               facclr1d(lev-1) = 0._rb
+               facclr2d(lev-1) = 0._rb
+               faccmb1d(lev-1) = 0._rb
+               faccmb2d(lev-1) = 0._rb
+            elseif (cldfrac(lev-1) .ge. cldfrac(lev)) then
+               faccld1d(lev-1) = 0._rb
+               faccld2d(lev-1) = 0._rb
+               if (istcldd(lev) .eq. 1) then
+                  facclr1d(lev-1) = 0._rb
+                  facclr2d(lev-1) = 0._rb
+                  if (cldfrac(lev) .lt. 1._rb) facclr2d(lev-1) = &
+                     (cldfrac(lev-1)-cldfrac(lev))/(1._rb-cldfrac(lev))
+                  facclr2d(lev) = 0._rb
+                  faccld2d(lev) = 0._rb
+               else
+                  fmax = max(cldfrac(lev),cldfrac(lev+1))
+                  if (cldfrac(lev-1) .gt. fmax) then
+                     facclr1d(lev-1) = rat2
+                     facclr2d(lev-1) = (cldfrac(lev-1)-fmax)/(1._rb-fmax)
+                  elseif (cldfrac(lev-1) .lt. fmax) then
+                     facclr1d(lev-1) = (cldfrac(lev-1)-cldfrac(lev))/ &
+                        (cldfrac(lev+1)-cldfrac(lev))
+                     facclr2d(lev-1) = 0.
+                  else
+                     facclr1d(lev-1) = rat2
+                     facclr2d(lev-1) = 0._rb
+                  endif
+               endif
+               if (facclr1d(lev-1).gt.0._rb .or. facclr2d(lev-1).gt.0._rb)then
+                  rat1 = 1._rb
+                  rat2 = 0._rb
+               else
+                  rat1 = 0._rb
+                  rat2 = 0._rb
+               endif
+            else
+               facclr1d(lev-1) = 0._rb
+               facclr2d(lev-1) = 0._rb
+               if (istcldd(lev) .eq. 1) then
+                  faccld1d(lev-1) = 0._rb
+                  faccld2d(lev-1) = (cldfrac(lev)-cldfrac(lev-1))/cldfrac(lev)
+                  facclr2d(lev) = 0._rb
+                  faccld2d(lev) = 0._rb
+               else
+                  fmin = min(cldfrac(lev),cldfrac(lev+1))
+                  if (cldfrac(lev-1) .le. fmin) then
+                     faccld1d(lev-1) = rat1
+                     faccld2d(lev-1) = (fmin-cldfrac(lev-1))/fmin
+                  else
+                     faccld1d(lev-1) = (cldfrac(lev)-cldfrac(lev-1))/(cldfrac(lev)-fmin)
+                     faccld2d(lev-1) = 0._rb
+                  endif
+               endif
+               if (faccld1d(lev-1).gt.0._rb .or. faccld2d(lev-1).gt.0._rb)then
+                  rat1 = 0._rb
+                  rat2 = 1._rb
+               else
+                  rat1 = 0._rb
+                  rat2 = 0._rb
+               endif
+            endif
+            if (istcldd(lev).ne.1 .and. (lev > 1)) then
+	        faccmb1d(lev-1) = max(0.,min(cldfrac(lev+1)-cldfrac(lev), &
+        	    cldfrac(lev-1)-cldfrac(lev)))
+            	faccmb2d(lev-1) = max(0.,min(cldfrac(lev)-cldfrac(lev+1), &
+                    cldfrac(lev)-cldfrac(lev-1)))
+	    endif
+         else
+            istcldd(lev-1) = 1
+         endif
+      enddo
+
+      igc = 1
+! Loop over frequency bands.
+      do iband = istart, iend
+
+! Reinitialize g-point counter for each band if output for each band is requested.
+         if (iout.gt.0.and.iband.ge.2) igc = ngs(iband-1)+1
+         if (ncbands .eq. 1) then
+            ib = ipat(iband,0)
+         elseif (ncbands .eq.  5) then
+            ib = ipat(iband,1)
+         elseif (ncbands .eq. 16) then
+            ib = ipat(iband,2)
+         endif
+
+! Loop over g-channels.
+ 1000    continue
+
+! Radiative transfer starts here.
+         radld = 0._rb
+         radclrd = 0._rb
+         iclddn = 0
+
+! Downward radiative transfer loop.  
+
+         do lev = nlayers, 1, -1
+               plfrac = fracs(lev,igc)
+               blay = planklay(lev,iband)
+               dplankup = planklev(lev,iband) - blay
+               dplankdn = planklev(lev-1,iband) - blay
+               odepth = secdiff(iband) * taut(lev,igc)
+
+               if (odepth .lt. 0.0_rb) odepth = 0.0_rb
+! Cloudy layer
+               if (icldlyr(lev).eq.1) then
+                  iclddn = 1
+                  odtot = odepth + odcld(lev,ib)
+                  if (odtot .lt. 0.06_rb) then
+                     atrans(lev) = odepth - 0.5_rb*odepth*odepth
+                     odepth_rec = rec_6*odepth
+                     gassrc = plfrac*(blay+dplankdn*odepth_rec)*atrans(lev)
+
+                     atot(lev) =  odtot - 0.5_rb*odtot*odtot
+                     odtot_rec = rec_6*odtot
+                     bbdtot =  plfrac * (blay+dplankdn*odtot_rec)
+                     bbd = plfrac*(blay+dplankdn*odepth_rec)
+                  
+                     bbugas(lev) =  plfrac * (blay+dplankup*odepth_rec)
+                     bbutot(lev) =  plfrac * (blay+dplankup*odtot_rec)
+                  elseif (odepth .le. 0.06_rb) then
+                     atrans(lev) = odepth - 0.5_rb*odepth*odepth
+                     odepth_rec = rec_6*odepth
+                     gassrc = plfrac*(blay+dplankdn*odepth_rec)*atrans(lev)
+
+                     odtot = odepth + odcld(lev,ib)
+                     tblind = odtot/(bpade+odtot)
+                     ittot = tblint*tblind + 0.5_rb
+                     tfactot = tfn_tbl(ittot)
+                     bbdtot = plfrac * (blay + tfactot*dplankdn)
+                     bbd = plfrac*(blay+dplankdn*odepth_rec)
+                     atot(lev) = 1._rb - exp_tbl(ittot)
+
+                     bbugas(lev) = plfrac * (blay + dplankup*odepth_rec)
+                     bbutot(lev) = plfrac * (blay + tfactot * dplankup)
+                  else
+                     tblind = odepth/(bpade+odepth)
+                     itgas = tblint*tblind+0.5_rb
+                     itgas = max(itgas, 0)
+                     itgas = min(itgas, ntbl)
+                     odepth = tau_tbl(itgas)
+                     atrans(lev) = 1._rb - exp_tbl(itgas)
+                     tfacgas = tfn_tbl(itgas)
+                     gassrc = atrans(lev) * plfrac * (blay + tfacgas*dplankdn)
+
+                     odtot = odepth + odcld(lev,ib)
+                     tblind = odtot/(bpade+odtot)
+                     ittot = tblint*tblind + 0.5_rb
+                     ittot = max(ittot, 0)
+                     ittot = min(ittot, ntbl)
+                     tfactot = tfn_tbl(ittot)
+                     bbdtot = plfrac * (blay + tfactot*dplankdn)
+                     bbd = plfrac*(blay+tfacgas*dplankdn)
+                     atot(lev) = 1._rb - exp_tbl(ittot)
+
+                     bbugas(lev) = plfrac * (blay + tfacgas * dplankup)
+                     bbutot(lev) = plfrac * (blay + tfactot * dplankup)
+                  endif
+
+                  if (istcldd(lev) .eq. 1) then
+                     cldradd = cldfrac(lev) * radld
+                     clrradd = radld - cldradd
+                     oldcld = cldradd
+                     oldclr = clrradd
+                     rad = 0._rb
+                  endif
+                  ttot = 1._rb - atot(lev)
+                  cldsrc = bbdtot * atot(lev)
+                  cldradd = cldradd * ttot + cldfrac(lev) * cldsrc
+                  clrradd = clrradd * (1._rb-atrans(lev)) + (1._rb - cldfrac(lev)) * gassrc
+                  radld = cldradd + clrradd
+                  drad(lev-1) = drad(lev-1) + radld
+
+                  radmod = rad * &
+                       (facclr1d(lev-1) * (1.-atrans(lev)) + &
+                       faccld1d(lev-1) *  ttot) - &
+                       faccmb1d(lev-1) * gassrc + &
+                       faccmb2d(lev-1) * cldsrc
+
+                  oldcld = cldradd - radmod
+                  oldclr = clrradd + radmod
+                  rad = -radmod + facclr2d(lev-1)*oldclr - faccld2d(lev-1)*oldcld
+                  cldradd = cldradd + rad
+                  clrradd = clrradd - rad
+! Clear layer
+               else
+                  if (odepth .le. 0.06_rb) then
+                     atrans(lev) = odepth-0.5_rb*odepth*odepth
+                     odepth = rec_6*odepth
+                     bbd = plfrac*(blay+dplankdn*odepth)
+                     bbugas(lev) = plfrac*(blay+dplankup*odepth)
+                  else
+                     tblind = odepth/(bpade+odepth)
+                     itr = tblint*tblind+0.5_rb
+                     itr = min(itr,ntbl)
+                     itr = max(0, itr)
+                     transc = exp_tbl(itr)
+                     atrans(lev) = 1._rb-transc
+                     tausfac = tfn_tbl(itr)
+                     bbd = plfrac*(blay+tausfac*dplankdn)
+                     bbugas(lev) = plfrac * (blay + tausfac * dplankup)
+                  endif   
+                  radld = radld + (bbd-radld)*atrans(lev)
+                  drad(lev-1) = drad(lev-1) + radld
+                endif
+!  Set clear sky stream to total sky stream as long as layers
+!  remain clear.  Streams diverge when a cloud is reached (iclddn=1),
+!  and clear sky stream must be computed separately from that point.
+                 if (iclddn.eq.1) then
+                     radclrd = radclrd + (bbd-radclrd) * atrans(lev) 
+                     clrdrad(lev-1) = clrdrad(lev-1) + radclrd
+                  else
+                     radclrd = radld
+                     clrdrad(lev-1) = drad(lev-1)
+                  endif
+            enddo
+
+! Spectral emissivity & reflectance
+!  Include the contribution of spectrally varying longwave emissivity
+!  and reflection from the surface to the upward radiative transfer.
+!  Note: Spectral and Lambertian reflection are identical for the
+!  diffusivity angle flux integration used here.
+!  Note: The emissivity is applied to plankbnd and dplankbnd_dt when 
+!  they are defined in subroutine setcoef. 
+
+         rad0 = fracs(1,igc) * plankbnd(iband)
+         if (idrv .eq. 1) then
+            d_rad0_dt = fracs(1,igc) * dplankbnd_dt(iband)
+         endif
+
+!  Add in reflection of surface downward radiance.
+         reflect = 1._rb - semiss(iband)
+         radlu = rad0 + reflect * radld
+         radclru = rad0 + reflect * radclrd
+
+! Upward radiative transfer loop.
+
+         urad(0) = urad(0) + radlu
+         clrurad(0) = clrurad(0) + radclru
+         if (idrv .eq. 1) then
+            d_radlu_dt = d_rad0_dt
+            d_urad_dt(0) = d_urad_dt(0) + d_radlu_dt
+            d_radclru_dt = d_rad0_dt
+            d_clrurad_dt(0) = d_clrurad_dt(0) + d_radclru_dt
+         endif
+
+         do lev = 1, nlayers
+! Cloudy layer
+            if (icldlyr(lev) .eq. 1) then
+               gassrc = bbugas(lev) * atrans(lev)
+               if (istcld(lev) .eq. 1) then
+                  cldradu = cldfrac(lev) * radlu
+                  clrradu = radlu - cldradu
+                  oldcld = cldradu
+                  oldclr = clrradu
+                  rad = 0._rb
+               endif
+               ttot = 1._rb - atot(lev)
+               cldsrc = bbutot(lev) * atot(lev)
+               cldradu = cldradu * ttot + cldfrac(lev) * cldsrc
+               clrradu = clrradu * (1.0_rb-atrans(lev)) + (1._rb - cldfrac(lev)) * gassrc
+! Total sky radiance
+               radlu = cldradu + clrradu
+               urad(lev) = urad(lev) + radlu
+               radmod = rad * &
+                   (facclr1(lev+1)*(1.0_rb-atrans(lev))+ &
+                   faccld1(lev+1) *  ttot) - &
+                   faccmb1(lev+1) * gassrc + &
+                   faccmb2(lev+1) * cldsrc
+               oldcld = cldradu - radmod
+               oldclr = clrradu + radmod
+               rad = -radmod + facclr2(lev+1)*oldclr - faccld2(lev+1)*oldcld
+               cldradu = cldradu + rad
+               clrradu = clrradu - rad
+               if (idrv .eq. 1) then
+                  d_radlu_dt = d_radlu_dt * cldfrac(lev) * (1.0_rb - atot(lev)) + &
+                         d_radlu_dt * (1.0_rb - cldfrac(lev)) * (1.0_rb - atrans(lev))
+                  d_urad_dt(lev) = d_urad_dt(lev) + d_radlu_dt
+               endif
+! Clear layer
+            else
+               radlu = radlu + (bbugas(lev)-radlu)*atrans(lev)
+               urad(lev) = urad(lev) + radlu
+               if (idrv .eq. 1) then
+                  d_radlu_dt = d_radlu_dt * (1.0_rb - atrans(lev))
+                  d_urad_dt(lev) = d_urad_dt(lev) + d_radlu_dt
+               endif
+            endif
+!  Set clear sky stream to total sky stream as long as all layers
+!  are clear (iclddn=0).  Streams must be calculated separately at 
+!  all layers when a cloud is present (iclddn=1), because surface 
+!  reflectance is different for each stream.
+               if (iclddn.eq.1) then
+                  radclru = radclru + (bbugas(lev)-radclru)*atrans(lev) 
+                  clrurad(lev) = clrurad(lev) + radclru
+               else
+                  radclru = radlu
+                  clrurad(lev) = urad(lev)
+               endif
+               if (idrv .eq. 1) then
+                  if (iclddn.eq.1) then
+                     d_radclru_dt = d_radclru_dt * (1.0_rb - atrans(lev))
+                     d_clrurad_dt(lev) = d_clrurad_dt(lev) + d_radclru_dt
+                  else
+                     d_radclru_dt = d_radlu_dt
+                     d_clrurad_dt(lev) = d_urad_dt(lev)
+                  endif
+               endif
+         enddo
+
+! Increment g-point counter
+         igc = igc + 1
+! Return to continue radiative transfer for all g-channels in present band
+         if (igc .le. ngs(iband)) go to 1000
+
+! Process longwave output from band.
+! Calculate upward, downward, and net flux.
+         do lev = nlayers, 0, -1
+            uflux(lev) = urad(lev)*wtdiff
+            dflux(lev) = drad(lev)*wtdiff
+            urad(lev) = 0.0_rb
+            drad(lev) = 0.0_rb
+            totuflux(lev) = totuflux(lev) + uflux(lev) * delwave(iband)
+            totdflux(lev) = totdflux(lev) + dflux(lev) * delwave(iband)
+            uclfl(lev) = clrurad(lev)*wtdiff
+            dclfl(lev) = clrdrad(lev)*wtdiff
+            clrurad(lev) = 0.0_rb
+            clrdrad(lev) = 0.0_rb
+            totuclfl(lev) = totuclfl(lev) + uclfl(lev) * delwave(iband)
+            totdclfl(lev) = totdclfl(lev) + dclfl(lev) * delwave(iband)
+         enddo
+
+! Calculate total change in upward flux wrt surface temperature
+         if (idrv .eq. 1) then
+            do lev = nlayers, 0, -1
+               duflux_dt(lev) = d_urad_dt(lev) * wtdiff
+               d_urad_dt(lev) = 0.0_rb
+               dtotuflux_dt(lev) = dtotuflux_dt(lev) + duflux_dt(lev) * delwave(iband) * fluxfac
+
+               duclfl_dt(lev) = d_clrurad_dt(lev) * wtdiff
+               d_clrurad_dt(lev) = 0.0_rb
+               dtotuclfl_dt(lev) = dtotuclfl_dt(lev) + duclfl_dt(lev) * delwave(iband) * fluxfac
+            enddo
+         endif
+
+! End spectral band loop
+      enddo
+
+! Calculate fluxes at surface
+      totuflux(0) = totuflux(0) * fluxfac
+      totdflux(0) = totdflux(0) * fluxfac
+      fnet(0) = totuflux(0) - totdflux(0)
+
+      totuclfl(0) = totuclfl(0) * fluxfac
+      totdclfl(0) = totdclfl(0) * fluxfac
+      fnetc(0) = totuclfl(0) - totdclfl(0)
+
+! Calculate fluxes at model levels
+      do lev = 1, nlayers
+         totuflux(lev) = totuflux(lev) * fluxfac
+         totdflux(lev) = totdflux(lev) * fluxfac
+         fnet(lev) = totuflux(lev) - totdflux(lev)
+         totuclfl(lev) = totuclfl(lev) * fluxfac
+         totdclfl(lev) = totdclfl(lev) * fluxfac
+         fnetc(lev) = totuclfl(lev) - totdclfl(lev)
+         l = lev - 1
+
+! Calculate heating rates at model layers
+         htr(l)=heatfac*(fnet(l)-fnet(lev))/(pz(l)-pz(lev)) 
+         htrc(l)=heatfac*(fnetc(l)-fnetc(lev))/(pz(l)-pz(lev)) 
+      enddo
+
+! Set heating rate to zero in top layer
+      htr(nlayers) = 0.0_rb
+      htrc(nlayers) = 0.0_rb
+
+      end subroutine rtrnmr
+
+      end module rrtmg_lw_rtrnmr
+
diff --git a/radiation/src/rrtmg_lw_setcoef.f90 b/radiation/src/rrtmg_lw_setcoef.f90
new file mode 100644
index 0000000000000000000000000000000000000000..51bfdcc597cd72f7f65d6503d852a42d4e63a116
--- /dev/null
+++ b/radiation/src/rrtmg_lw_setcoef.f90
@@ -0,0 +1,2012 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+      module rrtmg_lw_setcoef
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrtm, only : nbndlw, mg, maxxsec, mxmol
+      use rrlw_wvn, only: totplnk, totplk16, totplnkderiv, totplk16deriv
+      use rrlw_ref
+      use rrlw_vsn, only: hvrset, hnamset
+
+      implicit none
+
+      contains
+
+!----------------------------------------------------------------------------
+      subroutine setcoef(nlayers, istart, pavel, tavel, tz, tbound, semiss, &
+                         coldry, wkl, wbroad, &
+                         laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &
+                         idrv, dplankbnd_dt, &
+                         colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &
+                         colbrd, fac00, fac01, fac10, fac11, &
+                         rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &
+                         rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &
+                         rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &
+                         selffac, selffrac, indself, forfac, forfrac, indfor, &
+                         minorfrac, scaleminor, scaleminorn2, indminor)
+!----------------------------------------------------------------------------
+!
+!  Purpose:  For a given atmosphere, calculate the indices and
+!  fractions related to the pressure and temperature interpolations.
+!  Also calculate the values of the integrated Planck functions 
+!  for each band at the level and layer temperatures.
+
+! ------- Declarations -------
+
+! ----- Input -----
+      integer(kind=im), intent(in) :: nlayers         ! total number of layers
+      integer(kind=im), intent(in) :: istart          ! beginning band of calculation
+      integer(kind=im), intent(in) :: idrv            ! Planck derivative option flag
+
+      real(kind=rb), intent(in) :: pavel(:)           ! layer pressures (mb) 
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tavel(:)           ! layer temperatures (K)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tz(0:)             ! level (interface) temperatures (K)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(in) :: tbound             ! surface temperature (K)
+      real(kind=rb), intent(in) :: coldry(:)          ! dry air column density (mol/cm2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: wbroad(:)          ! broadening gas column density (mol/cm2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: wkl(:,:)           ! molecular amounts (mol/cm-2)
+                                                      !    Dimensions: (mxmol,nlayers)
+      real(kind=rb), intent(in) :: semiss(:)          ! lw surface emissivity
+                                                      !    Dimensions: (nbndlw)
+
+! ----- Output -----
+      integer(kind=im), intent(out) :: laytrop        ! tropopause layer index
+      integer(kind=im), intent(out) :: jp(:)          ! 
+                                                      !    Dimensions: (nlayers)
+      integer(kind=im), intent(out) :: jt(:)          !
+                                                      !    Dimensions: (nlayers)
+      integer(kind=im), intent(out) :: jt1(:)         !
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: planklay(:,:)     ! 
+                                                      !    Dimensions: (nlayers,nbndlw)
+      real(kind=rb), intent(out) :: planklev(0:,:)    ! 
+                                                      !    Dimensions: (0:nlayers,nbndlw)
+      real(kind=rb), intent(out) :: plankbnd(:)       ! 
+                                                      !    Dimensions: (nbndlw)
+      real(kind=rb), intent(out) :: dplankbnd_dt(:)   ! 
+                                                      !    Dimensions: (nbndlw)
+
+      real(kind=rb), intent(out) :: colh2o(:)         ! column amount (h2o)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colco2(:)         ! column amount (co2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colo3(:)          ! column amount (o3)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: coln2o(:)         ! column amount (n2o)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colco(:)          ! column amount (co)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colch4(:)         ! column amount (ch4)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colo2(:)          ! column amount (o2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colbrd(:)         ! column amount (broadening gases)
+                                                      !    Dimensions: (nlayers)
+
+      integer(kind=im), intent(out) :: indself(:)
+                                                      !    Dimensions: (nlayers)
+      integer(kind=im), intent(out) :: indfor(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: selffac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: selffrac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: forfac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: forfrac(:)
+                                                      !    Dimensions: (nlayers)
+
+      integer(kind=im), intent(out) :: indminor(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: minorfrac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: scaleminor(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: scaleminorn2(:)
+                                                      !    Dimensions: (nlayers)
+
+      real(kind=rb), intent(out) :: &                 !
+                       fac00(:), fac01(:), &          !    Dimensions: (nlayers)
+                       fac10(:), fac11(:) 
+                                                        
+      real(kind=rb), intent(out) :: &                 !
+                       rat_h2oco2(:),rat_h2oco2_1(:), &
+                       rat_h2oo3(:),rat_h2oo3_1(:), & !    Dimensions: (nlayers)
+                       rat_h2on2o(:),rat_h2on2o_1(:), &
+                       rat_h2och4(:),rat_h2och4_1(:), &
+                       rat_n2oco2(:),rat_n2oco2_1(:), &
+                       rat_o3co2(:),rat_o3co2_1(:)
+                                                        
+
+! ----- Local -----
+      integer(kind=im) :: indbound, indlev0
+      integer(kind=im) :: lay, indlay, indlev, iband
+      integer(kind=im) :: jp1
+      real(kind=rb) :: stpfac, tbndfrac, t0frac, tlayfrac, tlevfrac
+      real(kind=rb) :: dbdtlev, dbdtlay
+      real(kind=rb) :: plog, fp, ft, ft1, water, scalefac, factor, compfp
+
+
+      hvrset = '$Revision$'
+
+      stpfac = 296._rb/1013._rb
+
+      indbound = tbound - 159._rb
+      if (indbound .lt. 1) then
+         indbound = 1
+      elseif (indbound .gt. 180) then
+         indbound = 180
+      endif
+      tbndfrac = tbound - 159._rb - real(indbound)
+      indlev0 = tz(0) - 159._rb
+      if (indlev0 .lt. 1) then
+         indlev0 = 1
+      elseif (indlev0 .gt. 180) then
+         indlev0 = 180
+      endif
+      t0frac = tz(0) - 159._rb - real(indlev0)
+      laytrop = 0
+
+! Begin layer loop 
+!  Calculate the integrated Planck functions for each band at the
+!  surface, level, and layer temperatures.
+      do lay = 1, nlayers
+         indlay = tavel(lay) - 159._rb
+         if (indlay .lt. 1) then
+            indlay = 1
+         elseif (indlay .gt. 180) then
+            indlay = 180
+         endif
+         tlayfrac = tavel(lay) - 159._rb - real(indlay)
+         indlev = tz(lay) - 159._rb
+         if (indlev .lt. 1) then
+            indlev = 1
+         elseif (indlev .gt. 180) then
+            indlev = 180
+         endif
+         tlevfrac = tz(lay) - 159._rb - real(indlev)
+
+! Begin spectral band loop 
+         do iband = 1, 15
+            if (lay.eq.1) then
+               dbdtlev = totplnk(indbound+1,iband) - totplnk(indbound,iband)
+               plankbnd(iband) = semiss(iband) * &
+                   (totplnk(indbound,iband) + tbndfrac * dbdtlev)
+               dbdtlev = totplnk(indlev0+1,iband)-totplnk(indlev0,iband)
+               planklev(0,iband) = totplnk(indlev0,iband) + t0frac * dbdtlev
+               if (idrv .eq. 1) then 
+                  dbdtlev = totplnkderiv(indbound+1,iband) - totplnkderiv(indbound,iband)
+                  dplankbnd_dt(iband) = semiss(iband) * &
+                      (totplnkderiv(indbound,iband) + tbndfrac * dbdtlev)
+               endif
+            endif
+            dbdtlev = totplnk(indlev+1,iband) - totplnk(indlev,iband)
+            dbdtlay = totplnk(indlay+1,iband) - totplnk(indlay,iband)
+            planklay(lay,iband) = totplnk(indlay,iband) + tlayfrac * dbdtlay
+            planklev(lay,iband) = totplnk(indlev,iband) + tlevfrac * dbdtlev
+         enddo
+
+!  For band 16, if radiative transfer will be performed on just
+!  this band, use integrated Planck values up to 3250 cm-1.  
+!  If radiative transfer will be performed across all 16 bands,
+!  then include in the integrated Planck values for this band
+!  contributions from 2600 cm-1 to infinity.
+         iband = 16
+         if (istart .eq. 16) then
+            if (lay.eq.1) then
+               dbdtlev = totplk16(indbound+1) - totplk16(indbound)
+               plankbnd(iband) = semiss(iband) * &
+                    (totplk16(indbound) + tbndfrac * dbdtlev)
+               if (idrv .eq. 1) then
+                  dbdtlev = totplk16deriv(indbound+1) - totplk16deriv(indbound)
+                  dplankbnd_dt(iband) = semiss(iband) * &
+                       (totplk16deriv(indbound) + tbndfrac * dbdtlev)
+               endif
+               dbdtlev = totplnk(indlev0+1,iband)-totplnk(indlev0,iband)
+               planklev(0,iband) = totplk16(indlev0) + &
+                    t0frac * dbdtlev
+            endif
+            dbdtlev = totplk16(indlev+1) - totplk16(indlev)
+            dbdtlay = totplk16(indlay+1) - totplk16(indlay)
+            planklay(lay,iband) = totplk16(indlay) + tlayfrac * dbdtlay
+            planklev(lay,iband) = totplk16(indlev) + tlevfrac * dbdtlev
+         else
+            if (lay.eq.1) then
+               dbdtlev = totplnk(indbound+1,iband) - totplnk(indbound,iband)
+               plankbnd(iband) = semiss(iband) * &
+                    (totplnk(indbound,iband) + tbndfrac * dbdtlev)
+               if (idrv .eq. 1) then 
+                  dbdtlev = totplnkderiv(indbound+1,iband) - totplnkderiv(indbound,iband)
+                  dplankbnd_dt(iband) = semiss(iband) * &
+                       (totplnkderiv(indbound,iband) + tbndfrac * dbdtlev)
+               endif
+               dbdtlev = totplnk(indlev0+1,iband)-totplnk(indlev0,iband)
+               planklev(0,iband) = totplnk(indlev0,iband) + t0frac * dbdtlev
+            endif
+            dbdtlev = totplnk(indlev+1,iband) - totplnk(indlev,iband)
+            dbdtlay = totplnk(indlay+1,iband) - totplnk(indlay,iband)
+            planklay(lay,iband) = totplnk(indlay,iband) + tlayfrac * dbdtlay
+            planklev(lay,iband) = totplnk(indlev,iband) + tlevfrac * dbdtlev
+         endif
+
+!  Find the two reference pressures on either side of the
+!  layer pressure.  Store them in JP and JP1.  Store in FP the
+!  fraction of the difference (in ln(pressure)) between these
+!  two values that the layer pressure lies.
+!         plog = alog(pavel(lay))
+         plog = dlog(pavel(lay))
+         jp(lay) = int(36._rb - 5*(plog+0.04_rb))
+         if (jp(lay) .lt. 1) then
+            jp(lay) = 1
+         elseif (jp(lay) .gt. 58) then
+            jp(lay) = 58
+         endif
+         jp1 = jp(lay) + 1
+         fp = 5._rb *(preflog(jp(lay)) - plog)
+
+!  Determine, for each reference pressure (JP and JP1), which
+!  reference temperature (these are different for each  
+!  reference pressure) is nearest the layer temperature but does
+!  not exceed it.  Store these indices in JT and JT1, resp.
+!  Store in FT (resp. FT1) the fraction of the way between JT
+!  (JT1) and the next highest reference temperature that the 
+!  layer temperature falls.
+         jt(lay) = int(3._rb + (tavel(lay)-tref(jp(lay)))/15._rb)
+         if (jt(lay) .lt. 1) then
+            jt(lay) = 1
+         elseif (jt(lay) .gt. 4) then
+            jt(lay) = 4
+         endif
+         ft = ((tavel(lay)-tref(jp(lay)))/15._rb) - real(jt(lay)-3)
+         jt1(lay) = int(3._rb + (tavel(lay)-tref(jp1))/15._rb)
+         if (jt1(lay) .lt. 1) then
+            jt1(lay) = 1
+         elseif (jt1(lay) .gt. 4) then
+            jt1(lay) = 4
+         endif
+         ft1 = ((tavel(lay)-tref(jp1))/15._rb) - real(jt1(lay)-3)
+         water = wkl(1,lay)/coldry(lay)
+         scalefac = pavel(lay) * stpfac / tavel(lay)
+
+!  If the pressure is less than ~100mb, perform a different
+!  set of species interpolations.
+         if (plog .le. 4.5_rb) go to 5300
+         laytrop =  laytrop + 1
+
+         forfac(lay) = scalefac / (1.+water)
+         factor = (332.0_rb-tavel(lay))/36.0_rb
+         indfor(lay) = min(2, max(1, int(factor)))
+         forfrac(lay) = factor - real(indfor(lay))
+
+!  Set up factors needed to separately include the water vapor
+!  self-continuum in the calculation of absorption coefficient.
+         selffac(lay) = water * forfac(lay)
+         factor = (tavel(lay)-188.0_rb)/7.2_rb
+         indself(lay) = min(9, max(1, int(factor)-7))
+         selffrac(lay) = factor - real(indself(lay) + 7)
+
+!  Set up factors needed to separately include the minor gases
+!  in the calculation of absorption coefficient
+         scaleminor(lay) = pavel(lay)/tavel(lay)
+         scaleminorn2(lay) = (pavel(lay)/tavel(lay)) &
+             *(wbroad(lay)/(coldry(lay)+wkl(1,lay)))
+         factor = (tavel(lay)-180.8_rb)/7.2_rb
+         indminor(lay) = min(18, max(1, int(factor)))
+         minorfrac(lay) = factor - real(indminor(lay))
+
+!  Setup reference ratio to be used in calculation of binary
+!  species parameter in lower atmosphere.
+         rat_h2oco2(lay)=chi_mls(1,jp(lay))/chi_mls(2,jp(lay))
+         rat_h2oco2_1(lay)=chi_mls(1,jp(lay)+1)/chi_mls(2,jp(lay)+1)
+
+         rat_h2oo3(lay)=chi_mls(1,jp(lay))/chi_mls(3,jp(lay))
+         rat_h2oo3_1(lay)=chi_mls(1,jp(lay)+1)/chi_mls(3,jp(lay)+1)
+
+         rat_h2on2o(lay)=chi_mls(1,jp(lay))/chi_mls(4,jp(lay))
+         rat_h2on2o_1(lay)=chi_mls(1,jp(lay)+1)/chi_mls(4,jp(lay)+1)
+
+         rat_h2och4(lay)=chi_mls(1,jp(lay))/chi_mls(6,jp(lay))
+         rat_h2och4_1(lay)=chi_mls(1,jp(lay)+1)/chi_mls(6,jp(lay)+1)
+
+         rat_n2oco2(lay)=chi_mls(4,jp(lay))/chi_mls(2,jp(lay))
+         rat_n2oco2_1(lay)=chi_mls(4,jp(lay)+1)/chi_mls(2,jp(lay)+1)
+
+!  Calculate needed column amounts.
+         colh2o(lay) = 1.e-20_rb * wkl(1,lay)
+         colco2(lay) = 1.e-20_rb * wkl(2,lay)
+         colo3(lay) = 1.e-20_rb * wkl(3,lay)
+         coln2o(lay) = 1.e-20_rb * wkl(4,lay)
+         colco(lay) = 1.e-20_rb * wkl(5,lay)
+         colch4(lay) = 1.e-20_rb * wkl(6,lay)
+         colo2(lay) = 1.e-20_rb * wkl(7,lay)
+         if (colco2(lay) .eq. 0._rb) colco2(lay) = 1.e-32_rb * coldry(lay)
+         if (colo3(lay) .eq. 0._rb) colo3(lay) = 1.e-32_rb * coldry(lay)
+         if (coln2o(lay) .eq. 0._rb) coln2o(lay) = 1.e-32_rb * coldry(lay)
+         if (colco(lay) .eq. 0._rb) colco(lay) = 1.e-32_rb * coldry(lay)
+         if (colch4(lay) .eq. 0._rb) colch4(lay) = 1.e-32_rb * coldry(lay)
+         colbrd(lay) = 1.e-20_rb * wbroad(lay)
+         go to 5400
+
+!  Above laytrop.
+ 5300    continue
+
+         forfac(lay) = scalefac / (1.+water)
+         factor = (tavel(lay)-188.0_rb)/36.0_rb
+         indfor(lay) = 3
+         forfrac(lay) = factor - 1.0_rb
+
+!  Set up factors needed to separately include the water vapor
+!  self-continuum in the calculation of absorption coefficient.
+         selffac(lay) = water * forfac(lay)
+
+!  Set up factors needed to separately include the minor gases
+!  in the calculation of absorption coefficient
+         scaleminor(lay) = pavel(lay)/tavel(lay)         
+         scaleminorn2(lay) = (pavel(lay)/tavel(lay)) &
+             * (wbroad(lay)/(coldry(lay)+wkl(1,lay)))
+         factor = (tavel(lay)-180.8_rb)/7.2_rb
+         indminor(lay) = min(18, max(1, int(factor)))
+         minorfrac(lay) = factor - real(indminor(lay))
+
+!  Setup reference ratio to be used in calculation of binary
+!  species parameter in upper atmosphere.
+         rat_h2oco2(lay)=chi_mls(1,jp(lay))/chi_mls(2,jp(lay))
+         rat_h2oco2_1(lay)=chi_mls(1,jp(lay)+1)/chi_mls(2,jp(lay)+1)         
+
+         rat_o3co2(lay)=chi_mls(3,jp(lay))/chi_mls(2,jp(lay))
+         rat_o3co2_1(lay)=chi_mls(3,jp(lay)+1)/chi_mls(2,jp(lay)+1)         
+
+!  Calculate needed column amounts.
+         colh2o(lay) = 1.e-20_rb * wkl(1,lay)
+         colco2(lay) = 1.e-20_rb * wkl(2,lay)
+         colo3(lay) = 1.e-20_rb * wkl(3,lay)
+         coln2o(lay) = 1.e-20_rb * wkl(4,lay)
+         colco(lay) = 1.e-20_rb * wkl(5,lay)
+         colch4(lay) = 1.e-20_rb * wkl(6,lay)
+         colo2(lay) = 1.e-20_rb * wkl(7,lay)
+         if (colco2(lay) .eq. 0._rb) colco2(lay) = 1.e-32_rb * coldry(lay)
+         if (colo3(lay) .eq. 0._rb) colo3(lay) = 1.e-32_rb * coldry(lay)
+         if (coln2o(lay) .eq. 0._rb) coln2o(lay) = 1.e-32_rb * coldry(lay)
+         if (colco(lay)  .eq. 0._rb) colco(lay) = 1.e-32_rb * coldry(lay)
+         if (colch4(lay) .eq. 0._rb) colch4(lay) = 1.e-32_rb * coldry(lay)
+         colbrd(lay) = 1.e-20_rb * wbroad(lay)
+ 5400    continue
+
+!  We have now isolated the layer ln pressure and temperature,
+!  between two reference pressures and two reference temperatures 
+!  (for each reference pressure).  We multiply the pressure 
+!  fraction FP with the appropriate temperature fractions to get 
+!  the factors that will be needed for the interpolation that yields
+!  the optical depths (performed in routines TAUGBn for band n).`
+
+         compfp = 1. - fp
+         fac10(lay) = compfp * ft
+         fac00(lay) = compfp * (1._rb - ft)
+         fac11(lay) = fp * ft1
+         fac01(lay) = fp * (1._rb - ft1)
+
+!  Rescale selffac and forfac for use in taumol
+         selffac(lay) = colh2o(lay)*selffac(lay)
+         forfac(lay) = colh2o(lay)*forfac(lay)
+
+! End layer loop
+      enddo
+
+      end subroutine setcoef
+
+!***************************************************************************
+      subroutine lwatmref
+!***************************************************************************
+
+      save
+ 
+! These pressures are chosen such that the ln of the first pressure
+! has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and
+! each subsequent ln(pressure) differs from the previous one by 0.2.
+
+      pref(:) = (/ &
+          1.05363e+03_rb,8.62642e+02_rb,7.06272e+02_rb,5.78246e+02_rb,4.73428e+02_rb, &
+          3.87610e+02_rb,3.17348e+02_rb,2.59823e+02_rb,2.12725e+02_rb,1.74164e+02_rb, &
+          1.42594e+02_rb,1.16746e+02_rb,9.55835e+01_rb,7.82571e+01_rb,6.40715e+01_rb, &
+          5.24573e+01_rb,4.29484e+01_rb,3.51632e+01_rb,2.87892e+01_rb,2.35706e+01_rb, &
+          1.92980e+01_rb,1.57998e+01_rb,1.29358e+01_rb,1.05910e+01_rb,8.67114e+00_rb, &
+          7.09933e+00_rb,5.81244e+00_rb,4.75882e+00_rb,3.89619e+00_rb,3.18993e+00_rb, &
+          2.61170e+00_rb,2.13828e+00_rb,1.75067e+00_rb,1.43333e+00_rb,1.17351e+00_rb, &
+          9.60789e-01_rb,7.86628e-01_rb,6.44036e-01_rb,5.27292e-01_rb,4.31710e-01_rb, &
+          3.53455e-01_rb,2.89384e-01_rb,2.36928e-01_rb,1.93980e-01_rb,1.58817e-01_rb, &
+          1.30029e-01_rb,1.06458e-01_rb,8.71608e-02_rb,7.13612e-02_rb,5.84256e-02_rb, &
+          4.78349e-02_rb,3.91639e-02_rb,3.20647e-02_rb,2.62523e-02_rb,2.14936e-02_rb, &
+          1.75975e-02_rb,1.44076e-02_rb,1.17959e-02_rb,9.65769e-03_rb/)
+
+      preflog(:) = (/ &
+           6.9600e+00_rb, 6.7600e+00_rb, 6.5600e+00_rb, 6.3600e+00_rb, 6.1600e+00_rb, &
+           5.9600e+00_rb, 5.7600e+00_rb, 5.5600e+00_rb, 5.3600e+00_rb, 5.1600e+00_rb, &
+           4.9600e+00_rb, 4.7600e+00_rb, 4.5600e+00_rb, 4.3600e+00_rb, 4.1600e+00_rb, &
+           3.9600e+00_rb, 3.7600e+00_rb, 3.5600e+00_rb, 3.3600e+00_rb, 3.1600e+00_rb, &
+           2.9600e+00_rb, 2.7600e+00_rb, 2.5600e+00_rb, 2.3600e+00_rb, 2.1600e+00_rb, &
+           1.9600e+00_rb, 1.7600e+00_rb, 1.5600e+00_rb, 1.3600e+00_rb, 1.1600e+00_rb, &
+           9.6000e-01_rb, 7.6000e-01_rb, 5.6000e-01_rb, 3.6000e-01_rb, 1.6000e-01_rb, &
+          -4.0000e-02_rb,-2.4000e-01_rb,-4.4000e-01_rb,-6.4000e-01_rb,-8.4000e-01_rb, &
+          -1.0400e+00_rb,-1.2400e+00_rb,-1.4400e+00_rb,-1.6400e+00_rb,-1.8400e+00_rb, &
+          -2.0400e+00_rb,-2.2400e+00_rb,-2.4400e+00_rb,-2.6400e+00_rb,-2.8400e+00_rb, &
+          -3.0400e+00_rb,-3.2400e+00_rb,-3.4400e+00_rb,-3.6400e+00_rb,-3.8400e+00_rb, &
+          -4.0400e+00_rb,-4.2400e+00_rb,-4.4400e+00_rb,-4.6400e+00_rb/)
+
+! These are the temperatures associated with the respective 
+! pressures for the mls standard atmosphere. 
+
+      tref(:) = (/ &
+           2.9420e+02_rb, 2.8799e+02_rb, 2.7894e+02_rb, 2.6925e+02_rb, 2.5983e+02_rb, &
+           2.5017e+02_rb, 2.4077e+02_rb, 2.3179e+02_rb, 2.2306e+02_rb, 2.1578e+02_rb, &
+           2.1570e+02_rb, 2.1570e+02_rb, 2.1570e+02_rb, 2.1706e+02_rb, 2.1858e+02_rb, &
+           2.2018e+02_rb, 2.2174e+02_rb, 2.2328e+02_rb, 2.2479e+02_rb, 2.2655e+02_rb, &
+           2.2834e+02_rb, 2.3113e+02_rb, 2.3401e+02_rb, 2.3703e+02_rb, 2.4022e+02_rb, &
+           2.4371e+02_rb, 2.4726e+02_rb, 2.5085e+02_rb, 2.5457e+02_rb, 2.5832e+02_rb, &
+           2.6216e+02_rb, 2.6606e+02_rb, 2.6999e+02_rb, 2.7340e+02_rb, 2.7536e+02_rb, &
+           2.7568e+02_rb, 2.7372e+02_rb, 2.7163e+02_rb, 2.6955e+02_rb, 2.6593e+02_rb, &
+           2.6211e+02_rb, 2.5828e+02_rb, 2.5360e+02_rb, 2.4854e+02_rb, 2.4348e+02_rb, &
+           2.3809e+02_rb, 2.3206e+02_rb, 2.2603e+02_rb, 2.2000e+02_rb, 2.1435e+02_rb, &
+           2.0887e+02_rb, 2.0340e+02_rb, 1.9792e+02_rb, 1.9290e+02_rb, 1.8809e+02_rb, &
+           1.8329e+02_rb, 1.7849e+02_rb, 1.7394e+02_rb, 1.7212e+02_rb/)
+
+       chi_mls(1,1:12) = (/ &
+        1.8760e-02_rb, 1.2223e-02_rb, 5.8909e-03_rb, 2.7675e-03_rb, 1.4065e-03_rb, &
+        7.5970e-04_rb, 3.8876e-04_rb, 1.6542e-04_rb, 3.7190e-05_rb, 7.4765e-06_rb, &
+        4.3082e-06_rb, 3.3319e-06_rb/)
+       chi_mls(1,13:59) = (/ &
+        3.2039e-06_rb,  3.1619e-06_rb,  3.2524e-06_rb,  3.4226e-06_rb,  3.6288e-06_rb, &
+        3.9148e-06_rb,  4.1488e-06_rb,  4.3081e-06_rb,  4.4420e-06_rb,  4.5778e-06_rb, &
+        4.7087e-06_rb,  4.7943e-06_rb,  4.8697e-06_rb,  4.9260e-06_rb,  4.9669e-06_rb, &
+        4.9963e-06_rb,  5.0527e-06_rb,  5.1266e-06_rb,  5.2503e-06_rb,  5.3571e-06_rb, &
+        5.4509e-06_rb,  5.4830e-06_rb,  5.5000e-06_rb,  5.5000e-06_rb,  5.4536e-06_rb, &
+        5.4047e-06_rb,  5.3558e-06_rb,  5.2533e-06_rb,  5.1436e-06_rb,  5.0340e-06_rb, &
+        4.8766e-06_rb,  4.6979e-06_rb,  4.5191e-06_rb,  4.3360e-06_rb,  4.1442e-06_rb, &
+        3.9523e-06_rb,  3.7605e-06_rb,  3.5722e-06_rb,  3.3855e-06_rb,  3.1988e-06_rb, &
+        3.0121e-06_rb,  2.8262e-06_rb,  2.6407e-06_rb,  2.4552e-06_rb,  2.2696e-06_rb, &
+        4.3360e-06_rb,  4.1442e-06_rb/)
+       chi_mls(2,1:12) = (/ &
+        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &
+        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &
+        3.5500e-04_rb,  3.5500e-04_rb/)
+       chi_mls(2,13:59) = (/ &
+        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &
+        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &
+        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &
+        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &
+        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &
+        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &
+        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &
+        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &
+        3.5500e-04_rb,  3.5471e-04_rb,  3.5427e-04_rb,  3.5384e-04_rb,  3.5340e-04_rb, &
+        3.5500e-04_rb,  3.5500e-04_rb/)
+       chi_mls(3,1:12) = (/ &
+        3.0170e-08_rb,  3.4725e-08_rb,  4.2477e-08_rb,  5.2759e-08_rb,  6.6944e-08_rb, &
+        8.7130e-08_rb,  1.1391e-07_rb,  1.5677e-07_rb,  2.1788e-07_rb,  3.2443e-07_rb, &
+        4.6594e-07_rb,  5.6806e-07_rb/)
+       chi_mls(3,13:59) = (/ &
+        6.9607e-07_rb,  1.1186e-06_rb,  1.7618e-06_rb,  2.3269e-06_rb,  2.9577e-06_rb, &
+        3.6593e-06_rb,  4.5950e-06_rb,  5.3189e-06_rb,  5.9618e-06_rb,  6.5113e-06_rb, &
+        7.0635e-06_rb,  7.6917e-06_rb,  8.2577e-06_rb,  8.7082e-06_rb,  8.8325e-06_rb, &
+        8.7149e-06_rb,  8.0943e-06_rb,  7.3307e-06_rb,  6.3101e-06_rb,  5.3672e-06_rb, &
+        4.4829e-06_rb,  3.8391e-06_rb,  3.2827e-06_rb,  2.8235e-06_rb,  2.4906e-06_rb, &
+        2.1645e-06_rb,  1.8385e-06_rb,  1.6618e-06_rb,  1.5052e-06_rb,  1.3485e-06_rb, &
+        1.1972e-06_rb,  1.0482e-06_rb,  8.9926e-07_rb,  7.6343e-07_rb,  6.5381e-07_rb, &
+        5.4419e-07_rb,  4.3456e-07_rb,  3.6421e-07_rb,  3.1194e-07_rb,  2.5967e-07_rb, &
+        2.0740e-07_rb,  1.9146e-07_rb,  1.9364e-07_rb,  1.9582e-07_rb,  1.9800e-07_rb, &
+        7.6343e-07_rb,  6.5381e-07_rb/)
+       chi_mls(4,1:12) = (/ &
+        3.2000e-07_rb,  3.2000e-07_rb,  3.2000e-07_rb,  3.2000e-07_rb,  3.2000e-07_rb, &
+        3.1965e-07_rb,  3.1532e-07_rb,  3.0383e-07_rb,  2.9422e-07_rb,  2.8495e-07_rb, &
+        2.7671e-07_rb,  2.6471e-07_rb/)
+       chi_mls(4,13:59) = (/ &
+        2.4285e-07_rb,  2.0955e-07_rb,  1.7195e-07_rb,  1.3749e-07_rb,  1.1332e-07_rb, &
+        1.0035e-07_rb,  9.1281e-08_rb,  8.5463e-08_rb,  8.0363e-08_rb,  7.3372e-08_rb, &
+        6.5975e-08_rb,  5.6039e-08_rb,  4.7090e-08_rb,  3.9977e-08_rb,  3.2979e-08_rb, &
+        2.6064e-08_rb,  2.1066e-08_rb,  1.6592e-08_rb,  1.3017e-08_rb,  1.0090e-08_rb, &
+        7.6249e-09_rb,  6.1159e-09_rb,  4.6672e-09_rb,  3.2857e-09_rb,  2.8484e-09_rb, &
+        2.4620e-09_rb,  2.0756e-09_rb,  1.8551e-09_rb,  1.6568e-09_rb,  1.4584e-09_rb, &
+        1.3195e-09_rb,  1.2072e-09_rb,  1.0948e-09_rb,  9.9780e-10_rb,  9.3126e-10_rb, &
+        8.6472e-10_rb,  7.9818e-10_rb,  7.5138e-10_rb,  7.1367e-10_rb,  6.7596e-10_rb, &
+        6.3825e-10_rb,  6.0981e-10_rb,  5.8600e-10_rb,  5.6218e-10_rb,  5.3837e-10_rb, &
+        9.9780e-10_rb,  9.3126e-10_rb/)
+       chi_mls(5,1:12) = (/ &
+        1.5000e-07_rb,  1.4306e-07_rb,  1.3474e-07_rb,  1.3061e-07_rb,  1.2793e-07_rb, &
+        1.2038e-07_rb,  1.0798e-07_rb,  9.4238e-08_rb,  7.9488e-08_rb,  6.1386e-08_rb, &
+        4.5563e-08_rb,  3.3475e-08_rb/)
+       chi_mls(5,13:59) = (/ &
+        2.5118e-08_rb,  1.8671e-08_rb,  1.4349e-08_rb,  1.2501e-08_rb,  1.2407e-08_rb, &
+        1.3472e-08_rb,  1.4900e-08_rb,  1.6079e-08_rb,  1.7156e-08_rb,  1.8616e-08_rb, &
+        2.0106e-08_rb,  2.1654e-08_rb,  2.3096e-08_rb,  2.4340e-08_rb,  2.5643e-08_rb, &
+        2.6990e-08_rb,  2.8456e-08_rb,  2.9854e-08_rb,  3.0943e-08_rb,  3.2023e-08_rb, &
+        3.3101e-08_rb,  3.4260e-08_rb,  3.5360e-08_rb,  3.6397e-08_rb,  3.7310e-08_rb, &
+        3.8217e-08_rb,  3.9123e-08_rb,  4.1303e-08_rb,  4.3652e-08_rb,  4.6002e-08_rb, &
+        5.0289e-08_rb,  5.5446e-08_rb,  6.0603e-08_rb,  6.8946e-08_rb,  8.3652e-08_rb, &
+        9.8357e-08_rb,  1.1306e-07_rb,  1.4766e-07_rb,  1.9142e-07_rb,  2.3518e-07_rb, &
+        2.7894e-07_rb,  3.5001e-07_rb,  4.3469e-07_rb,  5.1938e-07_rb,  6.0407e-07_rb, &
+        6.8946e-08_rb,  8.3652e-08_rb/)
+       chi_mls(6,1:12) = (/ &
+        1.7000e-06_rb,  1.7000e-06_rb,  1.6999e-06_rb,  1.6904e-06_rb,  1.6671e-06_rb, &
+        1.6351e-06_rb,  1.6098e-06_rb,  1.5590e-06_rb,  1.5120e-06_rb,  1.4741e-06_rb, &
+        1.4385e-06_rb,  1.4002e-06_rb/)
+       chi_mls(6,13:59) = (/ &
+        1.3573e-06_rb,  1.3130e-06_rb,  1.2512e-06_rb,  1.1668e-06_rb,  1.0553e-06_rb, &
+        9.3281e-07_rb,  8.1217e-07_rb,  7.5239e-07_rb,  7.0728e-07_rb,  6.6722e-07_rb, &
+        6.2733e-07_rb,  5.8604e-07_rb,  5.4769e-07_rb,  5.1480e-07_rb,  4.8206e-07_rb, &
+        4.4943e-07_rb,  4.1702e-07_rb,  3.8460e-07_rb,  3.5200e-07_rb,  3.1926e-07_rb, &
+        2.8646e-07_rb,  2.5498e-07_rb,  2.2474e-07_rb,  1.9588e-07_rb,  1.8295e-07_rb, &
+        1.7089e-07_rb,  1.5882e-07_rb,  1.5536e-07_rb,  1.5304e-07_rb,  1.5072e-07_rb, &
+        1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb, &
+        1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb, &
+        1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb, &
+        1.5000e-07_rb,  1.5000e-07_rb/)
+       chi_mls(7,1:12) = (/ &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb/)
+       chi_mls(7,13:59) = (/ &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &
+        0.2090_rb,  0.2090_rb/)
+
+      end subroutine lwatmref
+
+!***************************************************************************
+      subroutine lwavplank
+!***************************************************************************
+
+      save
+ 
+      totplnk(1:50,  1) = (/ &
+      0.14783e-05_rb,0.15006e-05_rb,0.15230e-05_rb,0.15455e-05_rb,0.15681e-05_rb, &
+      0.15908e-05_rb,0.16136e-05_rb,0.16365e-05_rb,0.16595e-05_rb,0.16826e-05_rb, &
+      0.17059e-05_rb,0.17292e-05_rb,0.17526e-05_rb,0.17762e-05_rb,0.17998e-05_rb, &
+      0.18235e-05_rb,0.18473e-05_rb,0.18712e-05_rb,0.18953e-05_rb,0.19194e-05_rb, &
+      0.19435e-05_rb,0.19678e-05_rb,0.19922e-05_rb,0.20166e-05_rb,0.20412e-05_rb, &
+      0.20658e-05_rb,0.20905e-05_rb,0.21153e-05_rb,0.21402e-05_rb,0.21652e-05_rb, &
+      0.21902e-05_rb,0.22154e-05_rb,0.22406e-05_rb,0.22659e-05_rb,0.22912e-05_rb, &
+      0.23167e-05_rb,0.23422e-05_rb,0.23678e-05_rb,0.23934e-05_rb,0.24192e-05_rb, &
+      0.24450e-05_rb,0.24709e-05_rb,0.24968e-05_rb,0.25229e-05_rb,0.25490e-05_rb, &
+      0.25751e-05_rb,0.26014e-05_rb,0.26277e-05_rb,0.26540e-05_rb,0.26805e-05_rb/)
+      totplnk(51:100,  1) = (/ &
+      0.27070e-05_rb,0.27335e-05_rb,0.27602e-05_rb,0.27869e-05_rb,0.28136e-05_rb, &
+      0.28404e-05_rb,0.28673e-05_rb,0.28943e-05_rb,0.29213e-05_rb,0.29483e-05_rb, &
+      0.29754e-05_rb,0.30026e-05_rb,0.30298e-05_rb,0.30571e-05_rb,0.30845e-05_rb, &
+      0.31119e-05_rb,0.31393e-05_rb,0.31669e-05_rb,0.31944e-05_rb,0.32220e-05_rb, &
+      0.32497e-05_rb,0.32774e-05_rb,0.33052e-05_rb,0.33330e-05_rb,0.33609e-05_rb, &
+      0.33888e-05_rb,0.34168e-05_rb,0.34448e-05_rb,0.34729e-05_rb,0.35010e-05_rb, &
+      0.35292e-05_rb,0.35574e-05_rb,0.35857e-05_rb,0.36140e-05_rb,0.36424e-05_rb, &
+      0.36708e-05_rb,0.36992e-05_rb,0.37277e-05_rb,0.37563e-05_rb,0.37848e-05_rb, &
+      0.38135e-05_rb,0.38421e-05_rb,0.38708e-05_rb,0.38996e-05_rb,0.39284e-05_rb, &
+      0.39572e-05_rb,0.39861e-05_rb,0.40150e-05_rb,0.40440e-05_rb,0.40730e-05_rb/)
+      totplnk(101:150,  1) = (/ &
+      0.41020e-05_rb,0.41311e-05_rb,0.41602e-05_rb,0.41893e-05_rb,0.42185e-05_rb, &
+      0.42477e-05_rb,0.42770e-05_rb,0.43063e-05_rb,0.43356e-05_rb,0.43650e-05_rb, &
+      0.43944e-05_rb,0.44238e-05_rb,0.44533e-05_rb,0.44828e-05_rb,0.45124e-05_rb, &
+      0.45419e-05_rb,0.45715e-05_rb,0.46012e-05_rb,0.46309e-05_rb,0.46606e-05_rb, &
+      0.46903e-05_rb,0.47201e-05_rb,0.47499e-05_rb,0.47797e-05_rb,0.48096e-05_rb, &
+      0.48395e-05_rb,0.48695e-05_rb,0.48994e-05_rb,0.49294e-05_rb,0.49594e-05_rb, &
+      0.49895e-05_rb,0.50196e-05_rb,0.50497e-05_rb,0.50798e-05_rb,0.51100e-05_rb, &
+      0.51402e-05_rb,0.51704e-05_rb,0.52007e-05_rb,0.52309e-05_rb,0.52612e-05_rb, &
+      0.52916e-05_rb,0.53219e-05_rb,0.53523e-05_rb,0.53827e-05_rb,0.54132e-05_rb, &
+      0.54436e-05_rb,0.54741e-05_rb,0.55047e-05_rb,0.55352e-05_rb,0.55658e-05_rb/)
+      totplnk(151:181,  1) = (/ &
+      0.55964e-05_rb,0.56270e-05_rb,0.56576e-05_rb,0.56883e-05_rb,0.57190e-05_rb, &
+      0.57497e-05_rb,0.57804e-05_rb,0.58112e-05_rb,0.58420e-05_rb,0.58728e-05_rb, &
+      0.59036e-05_rb,0.59345e-05_rb,0.59653e-05_rb,0.59962e-05_rb,0.60272e-05_rb, &
+      0.60581e-05_rb,0.60891e-05_rb,0.61201e-05_rb,0.61511e-05_rb,0.61821e-05_rb, &
+      0.62131e-05_rb,0.62442e-05_rb,0.62753e-05_rb,0.63064e-05_rb,0.63376e-05_rb, &
+      0.63687e-05_rb,0.63998e-05_rb,0.64310e-05_rb,0.64622e-05_rb,0.64935e-05_rb, &
+      0.65247e-05_rb/)
+      totplnk(1:50,  2) = (/ &
+      0.20262e-05_rb,0.20757e-05_rb,0.21257e-05_rb,0.21763e-05_rb,0.22276e-05_rb, &
+      0.22794e-05_rb,0.23319e-05_rb,0.23849e-05_rb,0.24386e-05_rb,0.24928e-05_rb, &
+      0.25477e-05_rb,0.26031e-05_rb,0.26591e-05_rb,0.27157e-05_rb,0.27728e-05_rb, &
+      0.28306e-05_rb,0.28889e-05_rb,0.29478e-05_rb,0.30073e-05_rb,0.30673e-05_rb, &
+      0.31279e-05_rb,0.31890e-05_rb,0.32507e-05_rb,0.33129e-05_rb,0.33757e-05_rb, &
+      0.34391e-05_rb,0.35029e-05_rb,0.35674e-05_rb,0.36323e-05_rb,0.36978e-05_rb, &
+      0.37638e-05_rb,0.38304e-05_rb,0.38974e-05_rb,0.39650e-05_rb,0.40331e-05_rb, &
+      0.41017e-05_rb,0.41708e-05_rb,0.42405e-05_rb,0.43106e-05_rb,0.43812e-05_rb, &
+      0.44524e-05_rb,0.45240e-05_rb,0.45961e-05_rb,0.46687e-05_rb,0.47418e-05_rb, &
+      0.48153e-05_rb,0.48894e-05_rb,0.49639e-05_rb,0.50389e-05_rb,0.51143e-05_rb/)
+      totplnk(51:100,  2) = (/ &
+      0.51902e-05_rb,0.52666e-05_rb,0.53434e-05_rb,0.54207e-05_rb,0.54985e-05_rb, &
+      0.55767e-05_rb,0.56553e-05_rb,0.57343e-05_rb,0.58139e-05_rb,0.58938e-05_rb, &
+      0.59742e-05_rb,0.60550e-05_rb,0.61362e-05_rb,0.62179e-05_rb,0.63000e-05_rb, &
+      0.63825e-05_rb,0.64654e-05_rb,0.65487e-05_rb,0.66324e-05_rb,0.67166e-05_rb, &
+      0.68011e-05_rb,0.68860e-05_rb,0.69714e-05_rb,0.70571e-05_rb,0.71432e-05_rb, &
+      0.72297e-05_rb,0.73166e-05_rb,0.74039e-05_rb,0.74915e-05_rb,0.75796e-05_rb, &
+      0.76680e-05_rb,0.77567e-05_rb,0.78459e-05_rb,0.79354e-05_rb,0.80252e-05_rb, &
+      0.81155e-05_rb,0.82061e-05_rb,0.82970e-05_rb,0.83883e-05_rb,0.84799e-05_rb, &
+      0.85719e-05_rb,0.86643e-05_rb,0.87569e-05_rb,0.88499e-05_rb,0.89433e-05_rb, &
+      0.90370e-05_rb,0.91310e-05_rb,0.92254e-05_rb,0.93200e-05_rb,0.94150e-05_rb/)
+      totplnk(101:150,  2) = (/ &
+      0.95104e-05_rb,0.96060e-05_rb,0.97020e-05_rb,0.97982e-05_rb,0.98948e-05_rb, &
+      0.99917e-05_rb,0.10089e-04_rb,0.10186e-04_rb,0.10284e-04_rb,0.10382e-04_rb, &
+      0.10481e-04_rb,0.10580e-04_rb,0.10679e-04_rb,0.10778e-04_rb,0.10877e-04_rb, &
+      0.10977e-04_rb,0.11077e-04_rb,0.11178e-04_rb,0.11279e-04_rb,0.11380e-04_rb, &
+      0.11481e-04_rb,0.11583e-04_rb,0.11684e-04_rb,0.11786e-04_rb,0.11889e-04_rb, &
+      0.11992e-04_rb,0.12094e-04_rb,0.12198e-04_rb,0.12301e-04_rb,0.12405e-04_rb, &
+      0.12509e-04_rb,0.12613e-04_rb,0.12717e-04_rb,0.12822e-04_rb,0.12927e-04_rb, &
+      0.13032e-04_rb,0.13138e-04_rb,0.13244e-04_rb,0.13349e-04_rb,0.13456e-04_rb, &
+      0.13562e-04_rb,0.13669e-04_rb,0.13776e-04_rb,0.13883e-04_rb,0.13990e-04_rb, &
+      0.14098e-04_rb,0.14206e-04_rb,0.14314e-04_rb,0.14422e-04_rb,0.14531e-04_rb/)
+      totplnk(151:181,  2) = (/ &
+      0.14639e-04_rb,0.14748e-04_rb,0.14857e-04_rb,0.14967e-04_rb,0.15076e-04_rb, &
+      0.15186e-04_rb,0.15296e-04_rb,0.15407e-04_rb,0.15517e-04_rb,0.15628e-04_rb, &
+      0.15739e-04_rb,0.15850e-04_rb,0.15961e-04_rb,0.16072e-04_rb,0.16184e-04_rb, &
+      0.16296e-04_rb,0.16408e-04_rb,0.16521e-04_rb,0.16633e-04_rb,0.16746e-04_rb, &
+      0.16859e-04_rb,0.16972e-04_rb,0.17085e-04_rb,0.17198e-04_rb,0.17312e-04_rb, &
+      0.17426e-04_rb,0.17540e-04_rb,0.17654e-04_rb,0.17769e-04_rb,0.17883e-04_rb, &
+      0.17998e-04_rb/)
+      totplnk(1:50, 3) = (/ &
+      1.34822e-06_rb,1.39134e-06_rb,1.43530e-06_rb,1.48010e-06_rb,1.52574e-06_rb, &
+      1.57222e-06_rb,1.61956e-06_rb,1.66774e-06_rb,1.71678e-06_rb,1.76666e-06_rb, &
+      1.81741e-06_rb,1.86901e-06_rb,1.92147e-06_rb,1.97479e-06_rb,2.02898e-06_rb, &
+      2.08402e-06_rb,2.13993e-06_rb,2.19671e-06_rb,2.25435e-06_rb,2.31285e-06_rb, &
+      2.37222e-06_rb,2.43246e-06_rb,2.49356e-06_rb,2.55553e-06_rb,2.61837e-06_rb, &
+      2.68207e-06_rb,2.74664e-06_rb,2.81207e-06_rb,2.87837e-06_rb,2.94554e-06_rb, &
+      3.01356e-06_rb,3.08245e-06_rb,3.15221e-06_rb,3.22282e-06_rb,3.29429e-06_rb, &
+      3.36662e-06_rb,3.43982e-06_rb,3.51386e-06_rb,3.58876e-06_rb,3.66451e-06_rb, &
+      3.74112e-06_rb,3.81857e-06_rb,3.89688e-06_rb,3.97602e-06_rb,4.05601e-06_rb, &
+      4.13685e-06_rb,4.21852e-06_rb,4.30104e-06_rb,4.38438e-06_rb,4.46857e-06_rb/)
+      totplnk(51:100, 3) = (/ &
+      4.55358e-06_rb,4.63943e-06_rb,4.72610e-06_rb,4.81359e-06_rb,4.90191e-06_rb, &
+      4.99105e-06_rb,5.08100e-06_rb,5.17176e-06_rb,5.26335e-06_rb,5.35573e-06_rb, &
+      5.44892e-06_rb,5.54292e-06_rb,5.63772e-06_rb,5.73331e-06_rb,5.82970e-06_rb, &
+      5.92688e-06_rb,6.02485e-06_rb,6.12360e-06_rb,6.22314e-06_rb,6.32346e-06_rb, &
+      6.42455e-06_rb,6.52641e-06_rb,6.62906e-06_rb,6.73247e-06_rb,6.83664e-06_rb, &
+      6.94156e-06_rb,7.04725e-06_rb,7.15370e-06_rb,7.26089e-06_rb,7.36883e-06_rb, &
+      7.47752e-06_rb,7.58695e-06_rb,7.69712e-06_rb,7.80801e-06_rb,7.91965e-06_rb, &
+      8.03201e-06_rb,8.14510e-06_rb,8.25891e-06_rb,8.37343e-06_rb,8.48867e-06_rb, &
+      8.60463e-06_rb,8.72128e-06_rb,8.83865e-06_rb,8.95672e-06_rb,9.07548e-06_rb, &
+      9.19495e-06_rb,9.31510e-06_rb,9.43594e-06_rb,9.55745e-06_rb,9.67966e-06_rb/)
+      totplnk(101:150, 3) = (/ &
+      9.80254e-06_rb,9.92609e-06_rb,1.00503e-05_rb,1.01752e-05_rb,1.03008e-05_rb, &
+      1.04270e-05_rb,1.05539e-05_rb,1.06814e-05_rb,1.08096e-05_rb,1.09384e-05_rb, &
+      1.10679e-05_rb,1.11980e-05_rb,1.13288e-05_rb,1.14601e-05_rb,1.15922e-05_rb, &
+      1.17248e-05_rb,1.18581e-05_rb,1.19920e-05_rb,1.21265e-05_rb,1.22616e-05_rb, &
+      1.23973e-05_rb,1.25337e-05_rb,1.26706e-05_rb,1.28081e-05_rb,1.29463e-05_rb, &
+      1.30850e-05_rb,1.32243e-05_rb,1.33642e-05_rb,1.35047e-05_rb,1.36458e-05_rb, &
+      1.37875e-05_rb,1.39297e-05_rb,1.40725e-05_rb,1.42159e-05_rb,1.43598e-05_rb, &
+      1.45044e-05_rb,1.46494e-05_rb,1.47950e-05_rb,1.49412e-05_rb,1.50879e-05_rb, &
+      1.52352e-05_rb,1.53830e-05_rb,1.55314e-05_rb,1.56803e-05_rb,1.58297e-05_rb, &
+      1.59797e-05_rb,1.61302e-05_rb,1.62812e-05_rb,1.64327e-05_rb,1.65848e-05_rb/)
+      totplnk(151:181, 3) = (/ &
+      1.67374e-05_rb,1.68904e-05_rb,1.70441e-05_rb,1.71982e-05_rb,1.73528e-05_rb, &
+      1.75079e-05_rb,1.76635e-05_rb,1.78197e-05_rb,1.79763e-05_rb,1.81334e-05_rb, &
+      1.82910e-05_rb,1.84491e-05_rb,1.86076e-05_rb,1.87667e-05_rb,1.89262e-05_rb, &
+      1.90862e-05_rb,1.92467e-05_rb,1.94076e-05_rb,1.95690e-05_rb,1.97309e-05_rb, &
+      1.98932e-05_rb,2.00560e-05_rb,2.02193e-05_rb,2.03830e-05_rb,2.05472e-05_rb, &
+      2.07118e-05_rb,2.08768e-05_rb,2.10423e-05_rb,2.12083e-05_rb,2.13747e-05_rb, &
+      2.15414e-05_rb/)
+      totplnk(1:50, 4) = (/ &
+      8.90528e-07_rb,9.24222e-07_rb,9.58757e-07_rb,9.94141e-07_rb,1.03038e-06_rb, &
+      1.06748e-06_rb,1.10545e-06_rb,1.14430e-06_rb,1.18403e-06_rb,1.22465e-06_rb, &
+      1.26618e-06_rb,1.30860e-06_rb,1.35193e-06_rb,1.39619e-06_rb,1.44136e-06_rb, &
+      1.48746e-06_rb,1.53449e-06_rb,1.58246e-06_rb,1.63138e-06_rb,1.68124e-06_rb, &
+      1.73206e-06_rb,1.78383e-06_rb,1.83657e-06_rb,1.89028e-06_rb,1.94495e-06_rb, &
+      2.00060e-06_rb,2.05724e-06_rb,2.11485e-06_rb,2.17344e-06_rb,2.23303e-06_rb, &
+      2.29361e-06_rb,2.35519e-06_rb,2.41777e-06_rb,2.48134e-06_rb,2.54592e-06_rb, &
+      2.61151e-06_rb,2.67810e-06_rb,2.74571e-06_rb,2.81433e-06_rb,2.88396e-06_rb, &
+      2.95461e-06_rb,3.02628e-06_rb,3.09896e-06_rb,3.17267e-06_rb,3.24741e-06_rb, &
+      3.32316e-06_rb,3.39994e-06_rb,3.47774e-06_rb,3.55657e-06_rb,3.63642e-06_rb/)
+      totplnk(51:100, 4) = (/ &
+      3.71731e-06_rb,3.79922e-06_rb,3.88216e-06_rb,3.96612e-06_rb,4.05112e-06_rb, &
+      4.13714e-06_rb,4.22419e-06_rb,4.31227e-06_rb,4.40137e-06_rb,4.49151e-06_rb, &
+      4.58266e-06_rb,4.67485e-06_rb,4.76806e-06_rb,4.86229e-06_rb,4.95754e-06_rb, &
+      5.05383e-06_rb,5.15113e-06_rb,5.24946e-06_rb,5.34879e-06_rb,5.44916e-06_rb, &
+      5.55053e-06_rb,5.65292e-06_rb,5.75632e-06_rb,5.86073e-06_rb,5.96616e-06_rb, &
+      6.07260e-06_rb,6.18003e-06_rb,6.28848e-06_rb,6.39794e-06_rb,6.50838e-06_rb, &
+      6.61983e-06_rb,6.73229e-06_rb,6.84573e-06_rb,6.96016e-06_rb,7.07559e-06_rb, &
+      7.19200e-06_rb,7.30940e-06_rb,7.42779e-06_rb,7.54715e-06_rb,7.66749e-06_rb, &
+      7.78882e-06_rb,7.91110e-06_rb,8.03436e-06_rb,8.15859e-06_rb,8.28379e-06_rb, &
+      8.40994e-06_rb,8.53706e-06_rb,8.66515e-06_rb,8.79418e-06_rb,8.92416e-06_rb/)
+      totplnk(101:150, 4) = (/ &
+      9.05510e-06_rb,9.18697e-06_rb,9.31979e-06_rb,9.45356e-06_rb,9.58826e-06_rb, &
+      9.72389e-06_rb,9.86046e-06_rb,9.99793e-06_rb,1.01364e-05_rb,1.02757e-05_rb, &
+      1.04159e-05_rb,1.05571e-05_rb,1.06992e-05_rb,1.08422e-05_rb,1.09861e-05_rb, &
+      1.11309e-05_rb,1.12766e-05_rb,1.14232e-05_rb,1.15707e-05_rb,1.17190e-05_rb, &
+      1.18683e-05_rb,1.20184e-05_rb,1.21695e-05_rb,1.23214e-05_rb,1.24741e-05_rb, &
+      1.26277e-05_rb,1.27822e-05_rb,1.29376e-05_rb,1.30939e-05_rb,1.32509e-05_rb, &
+      1.34088e-05_rb,1.35676e-05_rb,1.37273e-05_rb,1.38877e-05_rb,1.40490e-05_rb, &
+      1.42112e-05_rb,1.43742e-05_rb,1.45380e-05_rb,1.47026e-05_rb,1.48680e-05_rb, &
+      1.50343e-05_rb,1.52014e-05_rb,1.53692e-05_rb,1.55379e-05_rb,1.57074e-05_rb, &
+      1.58778e-05_rb,1.60488e-05_rb,1.62207e-05_rb,1.63934e-05_rb,1.65669e-05_rb/)
+      totplnk(151:181, 4) = (/ &
+      1.67411e-05_rb,1.69162e-05_rb,1.70920e-05_rb,1.72685e-05_rb,1.74459e-05_rb, &
+      1.76240e-05_rb,1.78029e-05_rb,1.79825e-05_rb,1.81629e-05_rb,1.83440e-05_rb, &
+      1.85259e-05_rb,1.87086e-05_rb,1.88919e-05_rb,1.90760e-05_rb,1.92609e-05_rb, &
+      1.94465e-05_rb,1.96327e-05_rb,1.98199e-05_rb,2.00076e-05_rb,2.01961e-05_rb, &
+      2.03853e-05_rb,2.05752e-05_rb,2.07658e-05_rb,2.09571e-05_rb,2.11491e-05_rb, &
+      2.13418e-05_rb,2.15352e-05_rb,2.17294e-05_rb,2.19241e-05_rb,2.21196e-05_rb, &
+      2.23158e-05_rb/)
+      totplnk(1:50, 5) = (/ &
+      5.70230e-07_rb,5.94788e-07_rb,6.20085e-07_rb,6.46130e-07_rb,6.72936e-07_rb, &
+      7.00512e-07_rb,7.28869e-07_rb,7.58019e-07_rb,7.87971e-07_rb,8.18734e-07_rb, &
+      8.50320e-07_rb,8.82738e-07_rb,9.15999e-07_rb,9.50110e-07_rb,9.85084e-07_rb, &
+      1.02093e-06_rb,1.05765e-06_rb,1.09527e-06_rb,1.13378e-06_rb,1.17320e-06_rb, &
+      1.21353e-06_rb,1.25479e-06_rb,1.29698e-06_rb,1.34011e-06_rb,1.38419e-06_rb, &
+      1.42923e-06_rb,1.47523e-06_rb,1.52221e-06_rb,1.57016e-06_rb,1.61910e-06_rb, &
+      1.66904e-06_rb,1.71997e-06_rb,1.77192e-06_rb,1.82488e-06_rb,1.87886e-06_rb, &
+      1.93387e-06_rb,1.98991e-06_rb,2.04699e-06_rb,2.10512e-06_rb,2.16430e-06_rb, &
+      2.22454e-06_rb,2.28584e-06_rb,2.34821e-06_rb,2.41166e-06_rb,2.47618e-06_rb, &
+      2.54178e-06_rb,2.60847e-06_rb,2.67626e-06_rb,2.74514e-06_rb,2.81512e-06_rb/)
+      totplnk(51:100, 5) = (/ &
+      2.88621e-06_rb,2.95841e-06_rb,3.03172e-06_rb,3.10615e-06_rb,3.18170e-06_rb, &
+      3.25838e-06_rb,3.33618e-06_rb,3.41511e-06_rb,3.49518e-06_rb,3.57639e-06_rb, &
+      3.65873e-06_rb,3.74221e-06_rb,3.82684e-06_rb,3.91262e-06_rb,3.99955e-06_rb, &
+      4.08763e-06_rb,4.17686e-06_rb,4.26725e-06_rb,4.35880e-06_rb,4.45150e-06_rb, &
+      4.54537e-06_rb,4.64039e-06_rb,4.73659e-06_rb,4.83394e-06_rb,4.93246e-06_rb, &
+      5.03215e-06_rb,5.13301e-06_rb,5.23504e-06_rb,5.33823e-06_rb,5.44260e-06_rb, &
+      5.54814e-06_rb,5.65484e-06_rb,5.76272e-06_rb,5.87177e-06_rb,5.98199e-06_rb, &
+      6.09339e-06_rb,6.20596e-06_rb,6.31969e-06_rb,6.43460e-06_rb,6.55068e-06_rb, &
+      6.66793e-06_rb,6.78636e-06_rb,6.90595e-06_rb,7.02670e-06_rb,7.14863e-06_rb, &
+      7.27173e-06_rb,7.39599e-06_rb,7.52142e-06_rb,7.64802e-06_rb,7.77577e-06_rb/)
+      totplnk(101:150, 5) = (/ &
+      7.90469e-06_rb,8.03477e-06_rb,8.16601e-06_rb,8.29841e-06_rb,8.43198e-06_rb, &
+      8.56669e-06_rb,8.70256e-06_rb,8.83957e-06_rb,8.97775e-06_rb,9.11706e-06_rb, &
+      9.25753e-06_rb,9.39915e-06_rb,9.54190e-06_rb,9.68580e-06_rb,9.83085e-06_rb, &
+      9.97704e-06_rb,1.01243e-05_rb,1.02728e-05_rb,1.04224e-05_rb,1.05731e-05_rb, &
+      1.07249e-05_rb,1.08779e-05_rb,1.10320e-05_rb,1.11872e-05_rb,1.13435e-05_rb, &
+      1.15009e-05_rb,1.16595e-05_rb,1.18191e-05_rb,1.19799e-05_rb,1.21418e-05_rb, &
+      1.23048e-05_rb,1.24688e-05_rb,1.26340e-05_rb,1.28003e-05_rb,1.29676e-05_rb, &
+      1.31361e-05_rb,1.33056e-05_rb,1.34762e-05_rb,1.36479e-05_rb,1.38207e-05_rb, &
+      1.39945e-05_rb,1.41694e-05_rb,1.43454e-05_rb,1.45225e-05_rb,1.47006e-05_rb, &
+      1.48797e-05_rb,1.50600e-05_rb,1.52413e-05_rb,1.54236e-05_rb,1.56070e-05_rb/)
+      totplnk(151:181, 5) = (/ &
+      1.57914e-05_rb,1.59768e-05_rb,1.61633e-05_rb,1.63509e-05_rb,1.65394e-05_rb, &
+      1.67290e-05_rb,1.69197e-05_rb,1.71113e-05_rb,1.73040e-05_rb,1.74976e-05_rb, &
+      1.76923e-05_rb,1.78880e-05_rb,1.80847e-05_rb,1.82824e-05_rb,1.84811e-05_rb, &
+      1.86808e-05_rb,1.88814e-05_rb,1.90831e-05_rb,1.92857e-05_rb,1.94894e-05_rb, &
+      1.96940e-05_rb,1.98996e-05_rb,2.01061e-05_rb,2.03136e-05_rb,2.05221e-05_rb, &
+      2.07316e-05_rb,2.09420e-05_rb,2.11533e-05_rb,2.13657e-05_rb,2.15789e-05_rb, &
+      2.17931e-05_rb/)
+      totplnk(1:50, 6) = (/ &
+      2.73493e-07_rb,2.87408e-07_rb,3.01848e-07_rb,3.16825e-07_rb,3.32352e-07_rb, &
+      3.48439e-07_rb,3.65100e-07_rb,3.82346e-07_rb,4.00189e-07_rb,4.18641e-07_rb, &
+      4.37715e-07_rb,4.57422e-07_rb,4.77774e-07_rb,4.98784e-07_rb,5.20464e-07_rb, &
+      5.42824e-07_rb,5.65879e-07_rb,5.89638e-07_rb,6.14115e-07_rb,6.39320e-07_rb, &
+      6.65266e-07_rb,6.91965e-07_rb,7.19427e-07_rb,7.47666e-07_rb,7.76691e-07_rb, &
+      8.06516e-07_rb,8.37151e-07_rb,8.68607e-07_rb,9.00896e-07_rb,9.34029e-07_rb, &
+      9.68018e-07_rb,1.00287e-06_rb,1.03860e-06_rb,1.07522e-06_rb,1.11274e-06_rb, &
+      1.15117e-06_rb,1.19052e-06_rb,1.23079e-06_rb,1.27201e-06_rb,1.31418e-06_rb, &
+      1.35731e-06_rb,1.40141e-06_rb,1.44650e-06_rb,1.49257e-06_rb,1.53965e-06_rb, &
+      1.58773e-06_rb,1.63684e-06_rb,1.68697e-06_rb,1.73815e-06_rb,1.79037e-06_rb/)
+      totplnk(51:100, 6) = (/ &
+      1.84365e-06_rb,1.89799e-06_rb,1.95341e-06_rb,2.00991e-06_rb,2.06750e-06_rb, &
+      2.12619e-06_rb,2.18599e-06_rb,2.24691e-06_rb,2.30895e-06_rb,2.37212e-06_rb, &
+      2.43643e-06_rb,2.50189e-06_rb,2.56851e-06_rb,2.63628e-06_rb,2.70523e-06_rb, &
+      2.77536e-06_rb,2.84666e-06_rb,2.91916e-06_rb,2.99286e-06_rb,3.06776e-06_rb, &
+      3.14387e-06_rb,3.22120e-06_rb,3.29975e-06_rb,3.37953e-06_rb,3.46054e-06_rb, &
+      3.54280e-06_rb,3.62630e-06_rb,3.71105e-06_rb,3.79707e-06_rb,3.88434e-06_rb, &
+      3.97288e-06_rb,4.06270e-06_rb,4.15380e-06_rb,4.24617e-06_rb,4.33984e-06_rb, &
+      4.43479e-06_rb,4.53104e-06_rb,4.62860e-06_rb,4.72746e-06_rb,4.82763e-06_rb, &
+      4.92911e-06_rb,5.03191e-06_rb,5.13603e-06_rb,5.24147e-06_rb,5.34824e-06_rb, &
+      5.45634e-06_rb,5.56578e-06_rb,5.67656e-06_rb,5.78867e-06_rb,5.90213e-06_rb/)
+      totplnk(101:150, 6) = (/ &
+      6.01694e-06_rb,6.13309e-06_rb,6.25060e-06_rb,6.36947e-06_rb,6.48968e-06_rb, &
+      6.61126e-06_rb,6.73420e-06_rb,6.85850e-06_rb,6.98417e-06_rb,7.11120e-06_rb, &
+      7.23961e-06_rb,7.36938e-06_rb,7.50053e-06_rb,7.63305e-06_rb,7.76694e-06_rb, &
+      7.90221e-06_rb,8.03887e-06_rb,8.17690e-06_rb,8.31632e-06_rb,8.45710e-06_rb, &
+      8.59928e-06_rb,8.74282e-06_rb,8.88776e-06_rb,9.03409e-06_rb,9.18179e-06_rb, &
+      9.33088e-06_rb,9.48136e-06_rb,9.63323e-06_rb,9.78648e-06_rb,9.94111e-06_rb, &
+      1.00971e-05_rb,1.02545e-05_rb,1.04133e-05_rb,1.05735e-05_rb,1.07351e-05_rb, &
+      1.08980e-05_rb,1.10624e-05_rb,1.12281e-05_rb,1.13952e-05_rb,1.15637e-05_rb, &
+      1.17335e-05_rb,1.19048e-05_rb,1.20774e-05_rb,1.22514e-05_rb,1.24268e-05_rb, &
+      1.26036e-05_rb,1.27817e-05_rb,1.29612e-05_rb,1.31421e-05_rb,1.33244e-05_rb/)
+      totplnk(151:181, 6) = (/ &
+      1.35080e-05_rb,1.36930e-05_rb,1.38794e-05_rb,1.40672e-05_rb,1.42563e-05_rb, &
+      1.44468e-05_rb,1.46386e-05_rb,1.48318e-05_rb,1.50264e-05_rb,1.52223e-05_rb, &
+      1.54196e-05_rb,1.56182e-05_rb,1.58182e-05_rb,1.60196e-05_rb,1.62223e-05_rb, &
+      1.64263e-05_rb,1.66317e-05_rb,1.68384e-05_rb,1.70465e-05_rb,1.72559e-05_rb, &
+      1.74666e-05_rb,1.76787e-05_rb,1.78921e-05_rb,1.81069e-05_rb,1.83230e-05_rb, &
+      1.85404e-05_rb,1.87591e-05_rb,1.89791e-05_rb,1.92005e-05_rb,1.94232e-05_rb, &
+      1.96471e-05_rb/)
+      totplnk(1:50, 7) = (/ &
+      1.25349e-07_rb,1.32735e-07_rb,1.40458e-07_rb,1.48527e-07_rb,1.56954e-07_rb, &
+      1.65748e-07_rb,1.74920e-07_rb,1.84481e-07_rb,1.94443e-07_rb,2.04814e-07_rb, &
+      2.15608e-07_rb,2.26835e-07_rb,2.38507e-07_rb,2.50634e-07_rb,2.63229e-07_rb, &
+      2.76301e-07_rb,2.89864e-07_rb,3.03930e-07_rb,3.18508e-07_rb,3.33612e-07_rb, &
+      3.49253e-07_rb,3.65443e-07_rb,3.82195e-07_rb,3.99519e-07_rb,4.17428e-07_rb, &
+      4.35934e-07_rb,4.55050e-07_rb,4.74785e-07_rb,4.95155e-07_rb,5.16170e-07_rb, &
+      5.37844e-07_rb,5.60186e-07_rb,5.83211e-07_rb,6.06929e-07_rb,6.31355e-07_rb, &
+      6.56498e-07_rb,6.82373e-07_rb,7.08990e-07_rb,7.36362e-07_rb,7.64501e-07_rb, &
+      7.93420e-07_rb,8.23130e-07_rb,8.53643e-07_rb,8.84971e-07_rb,9.17128e-07_rb, &
+      9.50123e-07_rb,9.83969e-07_rb,1.01868e-06_rb,1.05426e-06_rb,1.09073e-06_rb/)
+      totplnk(51:100, 7) = (/ &
+      1.12810e-06_rb,1.16638e-06_rb,1.20558e-06_rb,1.24572e-06_rb,1.28680e-06_rb, &
+      1.32883e-06_rb,1.37183e-06_rb,1.41581e-06_rb,1.46078e-06_rb,1.50675e-06_rb, &
+      1.55374e-06_rb,1.60174e-06_rb,1.65078e-06_rb,1.70087e-06_rb,1.75200e-06_rb, &
+      1.80421e-06_rb,1.85749e-06_rb,1.91186e-06_rb,1.96732e-06_rb,2.02389e-06_rb, &
+      2.08159e-06_rb,2.14040e-06_rb,2.20035e-06_rb,2.26146e-06_rb,2.32372e-06_rb, &
+      2.38714e-06_rb,2.45174e-06_rb,2.51753e-06_rb,2.58451e-06_rb,2.65270e-06_rb, &
+      2.72210e-06_rb,2.79272e-06_rb,2.86457e-06_rb,2.93767e-06_rb,3.01201e-06_rb, &
+      3.08761e-06_rb,3.16448e-06_rb,3.24261e-06_rb,3.32204e-06_rb,3.40275e-06_rb, &
+      3.48476e-06_rb,3.56808e-06_rb,3.65271e-06_rb,3.73866e-06_rb,3.82595e-06_rb, &
+      3.91456e-06_rb,4.00453e-06_rb,4.09584e-06_rb,4.18851e-06_rb,4.28254e-06_rb/)
+      totplnk(101:150, 7) = (/ &
+      4.37796e-06_rb,4.47475e-06_rb,4.57293e-06_rb,4.67249e-06_rb,4.77346e-06_rb, &
+      4.87583e-06_rb,4.97961e-06_rb,5.08481e-06_rb,5.19143e-06_rb,5.29948e-06_rb, &
+      5.40896e-06_rb,5.51989e-06_rb,5.63226e-06_rb,5.74608e-06_rb,5.86136e-06_rb, &
+      5.97810e-06_rb,6.09631e-06_rb,6.21597e-06_rb,6.33713e-06_rb,6.45976e-06_rb, &
+      6.58388e-06_rb,6.70950e-06_rb,6.83661e-06_rb,6.96521e-06_rb,7.09531e-06_rb, &
+      7.22692e-06_rb,7.36005e-06_rb,7.49468e-06_rb,7.63084e-06_rb,7.76851e-06_rb, &
+      7.90773e-06_rb,8.04846e-06_rb,8.19072e-06_rb,8.33452e-06_rb,8.47985e-06_rb, &
+      8.62674e-06_rb,8.77517e-06_rb,8.92514e-06_rb,9.07666e-06_rb,9.22975e-06_rb, &
+      9.38437e-06_rb,9.54057e-06_rb,9.69832e-06_rb,9.85762e-06_rb,1.00185e-05_rb, &
+      1.01810e-05_rb,1.03450e-05_rb,1.05106e-05_rb,1.06777e-05_rb,1.08465e-05_rb/)
+      totplnk(151:181, 7) = (/ &
+      1.10168e-05_rb,1.11887e-05_rb,1.13621e-05_rb,1.15372e-05_rb,1.17138e-05_rb, &
+      1.18920e-05_rb,1.20718e-05_rb,1.22532e-05_rb,1.24362e-05_rb,1.26207e-05_rb, &
+      1.28069e-05_rb,1.29946e-05_rb,1.31839e-05_rb,1.33749e-05_rb,1.35674e-05_rb, &
+      1.37615e-05_rb,1.39572e-05_rb,1.41544e-05_rb,1.43533e-05_rb,1.45538e-05_rb, &
+      1.47558e-05_rb,1.49595e-05_rb,1.51647e-05_rb,1.53716e-05_rb,1.55800e-05_rb, &
+      1.57900e-05_rb,1.60017e-05_rb,1.62149e-05_rb,1.64296e-05_rb,1.66460e-05_rb, &
+      1.68640e-05_rb/)
+      totplnk(1:50, 8) = (/ &
+      6.74445e-08_rb,7.18176e-08_rb,7.64153e-08_rb,8.12456e-08_rb,8.63170e-08_rb, &
+      9.16378e-08_rb,9.72168e-08_rb,1.03063e-07_rb,1.09184e-07_rb,1.15591e-07_rb, &
+      1.22292e-07_rb,1.29296e-07_rb,1.36613e-07_rb,1.44253e-07_rb,1.52226e-07_rb, &
+      1.60540e-07_rb,1.69207e-07_rb,1.78236e-07_rb,1.87637e-07_rb,1.97421e-07_rb, &
+      2.07599e-07_rb,2.18181e-07_rb,2.29177e-07_rb,2.40598e-07_rb,2.52456e-07_rb, &
+      2.64761e-07_rb,2.77523e-07_rb,2.90755e-07_rb,3.04468e-07_rb,3.18673e-07_rb, &
+      3.33381e-07_rb,3.48603e-07_rb,3.64352e-07_rb,3.80638e-07_rb,3.97474e-07_rb, &
+      4.14871e-07_rb,4.32841e-07_rb,4.51395e-07_rb,4.70547e-07_rb,4.90306e-07_rb, &
+      5.10687e-07_rb,5.31699e-07_rb,5.53357e-07_rb,5.75670e-07_rb,5.98652e-07_rb, &
+      6.22315e-07_rb,6.46672e-07_rb,6.71731e-07_rb,6.97511e-07_rb,7.24018e-07_rb/)
+      totplnk(51:100, 8) = (/ &
+      7.51266e-07_rb,7.79269e-07_rb,8.08038e-07_rb,8.37584e-07_rb,8.67922e-07_rb, &
+      8.99061e-07_rb,9.31016e-07_rb,9.63797e-07_rb,9.97417e-07_rb,1.03189e-06_rb, &
+      1.06722e-06_rb,1.10343e-06_rb,1.14053e-06_rb,1.17853e-06_rb,1.21743e-06_rb, &
+      1.25726e-06_rb,1.29803e-06_rb,1.33974e-06_rb,1.38241e-06_rb,1.42606e-06_rb, &
+      1.47068e-06_rb,1.51630e-06_rb,1.56293e-06_rb,1.61056e-06_rb,1.65924e-06_rb, &
+      1.70894e-06_rb,1.75971e-06_rb,1.81153e-06_rb,1.86443e-06_rb,1.91841e-06_rb, &
+      1.97350e-06_rb,2.02968e-06_rb,2.08699e-06_rb,2.14543e-06_rb,2.20500e-06_rb, &
+      2.26573e-06_rb,2.32762e-06_rb,2.39068e-06_rb,2.45492e-06_rb,2.52036e-06_rb, &
+      2.58700e-06_rb,2.65485e-06_rb,2.72393e-06_rb,2.79424e-06_rb,2.86580e-06_rb, &
+      2.93861e-06_rb,3.01269e-06_rb,3.08803e-06_rb,3.16467e-06_rb,3.24259e-06_rb/)
+      totplnk(101:150, 8) = (/ &
+      3.32181e-06_rb,3.40235e-06_rb,3.48420e-06_rb,3.56739e-06_rb,3.65192e-06_rb, &
+      3.73779e-06_rb,3.82502e-06_rb,3.91362e-06_rb,4.00359e-06_rb,4.09494e-06_rb, &
+      4.18768e-06_rb,4.28182e-06_rb,4.37737e-06_rb,4.47434e-06_rb,4.57273e-06_rb, &
+      4.67254e-06_rb,4.77380e-06_rb,4.87651e-06_rb,4.98067e-06_rb,5.08630e-06_rb, &
+      5.19339e-06_rb,5.30196e-06_rb,5.41201e-06_rb,5.52356e-06_rb,5.63660e-06_rb, &
+      5.75116e-06_rb,5.86722e-06_rb,5.98479e-06_rb,6.10390e-06_rb,6.22453e-06_rb, &
+      6.34669e-06_rb,6.47042e-06_rb,6.59569e-06_rb,6.72252e-06_rb,6.85090e-06_rb, &
+      6.98085e-06_rb,7.11238e-06_rb,7.24549e-06_rb,7.38019e-06_rb,7.51646e-06_rb, &
+      7.65434e-06_rb,7.79382e-06_rb,7.93490e-06_rb,8.07760e-06_rb,8.22192e-06_rb, &
+      8.36784e-06_rb,8.51540e-06_rb,8.66459e-06_rb,8.81542e-06_rb,8.96786e-06_rb/)
+      totplnk(151:181, 8) = (/ &
+      9.12197e-06_rb,9.27772e-06_rb,9.43513e-06_rb,9.59419e-06_rb,9.75490e-06_rb, &
+      9.91728e-06_rb,1.00813e-05_rb,1.02471e-05_rb,1.04144e-05_rb,1.05835e-05_rb, &
+      1.07543e-05_rb,1.09267e-05_rb,1.11008e-05_rb,1.12766e-05_rb,1.14541e-05_rb, &
+      1.16333e-05_rb,1.18142e-05_rb,1.19969e-05_rb,1.21812e-05_rb,1.23672e-05_rb, &
+      1.25549e-05_rb,1.27443e-05_rb,1.29355e-05_rb,1.31284e-05_rb,1.33229e-05_rb, &
+      1.35193e-05_rb,1.37173e-05_rb,1.39170e-05_rb,1.41185e-05_rb,1.43217e-05_rb, &
+      1.45267e-05_rb/)
+      totplnk(1:50, 9) = (/ &
+      2.61522e-08_rb,2.80613e-08_rb,3.00838e-08_rb,3.22250e-08_rb,3.44899e-08_rb, &
+      3.68841e-08_rb,3.94129e-08_rb,4.20820e-08_rb,4.48973e-08_rb,4.78646e-08_rb, &
+      5.09901e-08_rb,5.42799e-08_rb,5.77405e-08_rb,6.13784e-08_rb,6.52001e-08_rb, &
+      6.92126e-08_rb,7.34227e-08_rb,7.78375e-08_rb,8.24643e-08_rb,8.73103e-08_rb, &
+      9.23832e-08_rb,9.76905e-08_rb,1.03240e-07_rb,1.09039e-07_rb,1.15097e-07_rb, &
+      1.21421e-07_rb,1.28020e-07_rb,1.34902e-07_rb,1.42075e-07_rb,1.49548e-07_rb, &
+      1.57331e-07_rb,1.65432e-07_rb,1.73860e-07_rb,1.82624e-07_rb,1.91734e-07_rb, &
+      2.01198e-07_rb,2.11028e-07_rb,2.21231e-07_rb,2.31818e-07_rb,2.42799e-07_rb, &
+      2.54184e-07_rb,2.65983e-07_rb,2.78205e-07_rb,2.90862e-07_rb,3.03963e-07_rb, &
+      3.17519e-07_rb,3.31541e-07_rb,3.46039e-07_rb,3.61024e-07_rb,3.76507e-07_rb/)
+      totplnk(51:100, 9) = (/ &
+      3.92498e-07_rb,4.09008e-07_rb,4.26050e-07_rb,4.43633e-07_rb,4.61769e-07_rb, &
+      4.80469e-07_rb,4.99744e-07_rb,5.19606e-07_rb,5.40067e-07_rb,5.61136e-07_rb, &
+      5.82828e-07_rb,6.05152e-07_rb,6.28120e-07_rb,6.51745e-07_rb,6.76038e-07_rb, &
+      7.01010e-07_rb,7.26674e-07_rb,7.53041e-07_rb,7.80124e-07_rb,8.07933e-07_rb, &
+      8.36482e-07_rb,8.65781e-07_rb,8.95845e-07_rb,9.26683e-07_rb,9.58308e-07_rb, &
+      9.90732e-07_rb,1.02397e-06_rb,1.05803e-06_rb,1.09292e-06_rb,1.12866e-06_rb, &
+      1.16526e-06_rb,1.20274e-06_rb,1.24109e-06_rb,1.28034e-06_rb,1.32050e-06_rb, &
+      1.36158e-06_rb,1.40359e-06_rb,1.44655e-06_rb,1.49046e-06_rb,1.53534e-06_rb, &
+      1.58120e-06_rb,1.62805e-06_rb,1.67591e-06_rb,1.72478e-06_rb,1.77468e-06_rb, &
+      1.82561e-06_rb,1.87760e-06_rb,1.93066e-06_rb,1.98479e-06_rb,2.04000e-06_rb/)
+      totplnk(101:150, 9) = (/ &
+      2.09631e-06_rb,2.15373e-06_rb,2.21228e-06_rb,2.27196e-06_rb,2.33278e-06_rb, &
+      2.39475e-06_rb,2.45790e-06_rb,2.52222e-06_rb,2.58773e-06_rb,2.65445e-06_rb, &
+      2.72238e-06_rb,2.79152e-06_rb,2.86191e-06_rb,2.93354e-06_rb,3.00643e-06_rb, &
+      3.08058e-06_rb,3.15601e-06_rb,3.23273e-06_rb,3.31075e-06_rb,3.39009e-06_rb, &
+      3.47074e-06_rb,3.55272e-06_rb,3.63605e-06_rb,3.72072e-06_rb,3.80676e-06_rb, &
+      3.89417e-06_rb,3.98297e-06_rb,4.07315e-06_rb,4.16474e-06_rb,4.25774e-06_rb, &
+      4.35217e-06_rb,4.44802e-06_rb,4.54532e-06_rb,4.64406e-06_rb,4.74428e-06_rb, &
+      4.84595e-06_rb,4.94911e-06_rb,5.05376e-06_rb,5.15990e-06_rb,5.26755e-06_rb, &
+      5.37671e-06_rb,5.48741e-06_rb,5.59963e-06_rb,5.71340e-06_rb,5.82871e-06_rb, &
+      5.94559e-06_rb,6.06403e-06_rb,6.18404e-06_rb,6.30565e-06_rb,6.42885e-06_rb/)
+      totplnk(151:181, 9) = (/ &
+      6.55364e-06_rb,6.68004e-06_rb,6.80806e-06_rb,6.93771e-06_rb,7.06898e-06_rb, &
+      7.20190e-06_rb,7.33646e-06_rb,7.47267e-06_rb,7.61056e-06_rb,7.75010e-06_rb, &
+      7.89133e-06_rb,8.03423e-06_rb,8.17884e-06_rb,8.32514e-06_rb,8.47314e-06_rb, &
+      8.62284e-06_rb,8.77427e-06_rb,8.92743e-06_rb,9.08231e-06_rb,9.23893e-06_rb, &
+      9.39729e-06_rb,9.55741e-06_rb,9.71927e-06_rb,9.88291e-06_rb,1.00483e-05_rb, &
+      1.02155e-05_rb,1.03844e-05_rb,1.05552e-05_rb,1.07277e-05_rb,1.09020e-05_rb, &
+      1.10781e-05_rb/)
+      totplnk(1:50,10) = (/ &
+      8.89300e-09_rb,9.63263e-09_rb,1.04235e-08_rb,1.12685e-08_rb,1.21703e-08_rb, &
+      1.31321e-08_rb,1.41570e-08_rb,1.52482e-08_rb,1.64090e-08_rb,1.76428e-08_rb, &
+      1.89533e-08_rb,2.03441e-08_rb,2.18190e-08_rb,2.33820e-08_rb,2.50370e-08_rb, &
+      2.67884e-08_rb,2.86402e-08_rb,3.05969e-08_rb,3.26632e-08_rb,3.48436e-08_rb, &
+      3.71429e-08_rb,3.95660e-08_rb,4.21179e-08_rb,4.48040e-08_rb,4.76294e-08_rb, &
+      5.05996e-08_rb,5.37201e-08_rb,5.69966e-08_rb,6.04349e-08_rb,6.40411e-08_rb, &
+      6.78211e-08_rb,7.17812e-08_rb,7.59276e-08_rb,8.02670e-08_rb,8.48059e-08_rb, &
+      8.95508e-08_rb,9.45090e-08_rb,9.96873e-08_rb,1.05093e-07_rb,1.10733e-07_rb, &
+      1.16614e-07_rb,1.22745e-07_rb,1.29133e-07_rb,1.35786e-07_rb,1.42711e-07_rb, &
+      1.49916e-07_rb,1.57410e-07_rb,1.65202e-07_rb,1.73298e-07_rb,1.81709e-07_rb/)
+      totplnk(51:100,10) = (/ &
+      1.90441e-07_rb,1.99505e-07_rb,2.08908e-07_rb,2.18660e-07_rb,2.28770e-07_rb, &
+      2.39247e-07_rb,2.50101e-07_rb,2.61340e-07_rb,2.72974e-07_rb,2.85013e-07_rb, &
+      2.97467e-07_rb,3.10345e-07_rb,3.23657e-07_rb,3.37413e-07_rb,3.51623e-07_rb, &
+      3.66298e-07_rb,3.81448e-07_rb,3.97082e-07_rb,4.13212e-07_rb,4.29848e-07_rb, &
+      4.47000e-07_rb,4.64680e-07_rb,4.82898e-07_rb,5.01664e-07_rb,5.20991e-07_rb, &
+      5.40888e-07_rb,5.61369e-07_rb,5.82440e-07_rb,6.04118e-07_rb,6.26410e-07_rb, &
+      6.49329e-07_rb,6.72887e-07_rb,6.97095e-07_rb,7.21964e-07_rb,7.47506e-07_rb, &
+      7.73732e-07_rb,8.00655e-07_rb,8.28287e-07_rb,8.56635e-07_rb,8.85717e-07_rb, &
+      9.15542e-07_rb,9.46122e-07_rb,9.77469e-07_rb,1.00960e-06_rb,1.04251e-06_rb, &
+      1.07623e-06_rb,1.11077e-06_rb,1.14613e-06_rb,1.18233e-06_rb,1.21939e-06_rb/)
+      totplnk(101:150,10) = (/ &
+      1.25730e-06_rb,1.29610e-06_rb,1.33578e-06_rb,1.37636e-06_rb,1.41785e-06_rb, &
+      1.46027e-06_rb,1.50362e-06_rb,1.54792e-06_rb,1.59319e-06_rb,1.63942e-06_rb, &
+      1.68665e-06_rb,1.73487e-06_rb,1.78410e-06_rb,1.83435e-06_rb,1.88564e-06_rb, &
+      1.93797e-06_rb,1.99136e-06_rb,2.04582e-06_rb,2.10137e-06_rb,2.15801e-06_rb, &
+      2.21576e-06_rb,2.27463e-06_rb,2.33462e-06_rb,2.39577e-06_rb,2.45806e-06_rb, &
+      2.52153e-06_rb,2.58617e-06_rb,2.65201e-06_rb,2.71905e-06_rb,2.78730e-06_rb, &
+      2.85678e-06_rb,2.92749e-06_rb,2.99946e-06_rb,3.07269e-06_rb,3.14720e-06_rb, &
+      3.22299e-06_rb,3.30007e-06_rb,3.37847e-06_rb,3.45818e-06_rb,3.53923e-06_rb, &
+      3.62161e-06_rb,3.70535e-06_rb,3.79046e-06_rb,3.87695e-06_rb,3.96481e-06_rb, &
+      4.05409e-06_rb,4.14477e-06_rb,4.23687e-06_rb,4.33040e-06_rb,4.42538e-06_rb/)
+      totplnk(151:181,10) = (/ &
+      4.52180e-06_rb,4.61969e-06_rb,4.71905e-06_rb,4.81991e-06_rb,4.92226e-06_rb, &
+      5.02611e-06_rb,5.13148e-06_rb,5.23839e-06_rb,5.34681e-06_rb,5.45681e-06_rb, &
+      5.56835e-06_rb,5.68146e-06_rb,5.79614e-06_rb,5.91242e-06_rb,6.03030e-06_rb, &
+      6.14978e-06_rb,6.27088e-06_rb,6.39360e-06_rb,6.51798e-06_rb,6.64398e-06_rb, &
+      6.77165e-06_rb,6.90099e-06_rb,7.03198e-06_rb,7.16468e-06_rb,7.29906e-06_rb, &
+      7.43514e-06_rb,7.57294e-06_rb,7.71244e-06_rb,7.85369e-06_rb,7.99666e-06_rb, &
+      8.14138e-06_rb/)
+      totplnk(1:50,11) = (/ &
+      2.53767e-09_rb,2.77242e-09_rb,3.02564e-09_rb,3.29851e-09_rb,3.59228e-09_rb, &
+      3.90825e-09_rb,4.24777e-09_rb,4.61227e-09_rb,5.00322e-09_rb,5.42219e-09_rb, &
+      5.87080e-09_rb,6.35072e-09_rb,6.86370e-09_rb,7.41159e-09_rb,7.99628e-09_rb, &
+      8.61974e-09_rb,9.28404e-09_rb,9.99130e-09_rb,1.07437e-08_rb,1.15436e-08_rb, &
+      1.23933e-08_rb,1.32953e-08_rb,1.42522e-08_rb,1.52665e-08_rb,1.63410e-08_rb, &
+      1.74786e-08_rb,1.86820e-08_rb,1.99542e-08_rb,2.12985e-08_rb,2.27179e-08_rb, &
+      2.42158e-08_rb,2.57954e-08_rb,2.74604e-08_rb,2.92141e-08_rb,3.10604e-08_rb, &
+      3.30029e-08_rb,3.50457e-08_rb,3.71925e-08_rb,3.94476e-08_rb,4.18149e-08_rb, &
+      4.42991e-08_rb,4.69043e-08_rb,4.96352e-08_rb,5.24961e-08_rb,5.54921e-08_rb, &
+      5.86277e-08_rb,6.19081e-08_rb,6.53381e-08_rb,6.89231e-08_rb,7.26681e-08_rb/)
+      totplnk(51:100,11) = (/ &
+      7.65788e-08_rb,8.06604e-08_rb,8.49187e-08_rb,8.93591e-08_rb,9.39879e-08_rb, &
+      9.88106e-08_rb,1.03834e-07_rb,1.09063e-07_rb,1.14504e-07_rb,1.20165e-07_rb, &
+      1.26051e-07_rb,1.32169e-07_rb,1.38525e-07_rb,1.45128e-07_rb,1.51982e-07_rb, &
+      1.59096e-07_rb,1.66477e-07_rb,1.74132e-07_rb,1.82068e-07_rb,1.90292e-07_rb, &
+      1.98813e-07_rb,2.07638e-07_rb,2.16775e-07_rb,2.26231e-07_rb,2.36015e-07_rb, &
+      2.46135e-07_rb,2.56599e-07_rb,2.67415e-07_rb,2.78592e-07_rb,2.90137e-07_rb, &
+      3.02061e-07_rb,3.14371e-07_rb,3.27077e-07_rb,3.40186e-07_rb,3.53710e-07_rb, &
+      3.67655e-07_rb,3.82031e-07_rb,3.96848e-07_rb,4.12116e-07_rb,4.27842e-07_rb, &
+      4.44039e-07_rb,4.60713e-07_rb,4.77876e-07_rb,4.95537e-07_rb,5.13706e-07_rb, &
+      5.32392e-07_rb,5.51608e-07_rb,5.71360e-07_rb,5.91662e-07_rb,6.12521e-07_rb/)
+      totplnk(101:150,11) = (/ &
+      6.33950e-07_rb,6.55958e-07_rb,6.78556e-07_rb,7.01753e-07_rb,7.25562e-07_rb, &
+      7.49992e-07_rb,7.75055e-07_rb,8.00760e-07_rb,8.27120e-07_rb,8.54145e-07_rb, &
+      8.81845e-07_rb,9.10233e-07_rb,9.39318e-07_rb,9.69113e-07_rb,9.99627e-07_rb, &
+      1.03087e-06_rb,1.06286e-06_rb,1.09561e-06_rb,1.12912e-06_rb,1.16340e-06_rb, &
+      1.19848e-06_rb,1.23435e-06_rb,1.27104e-06_rb,1.30855e-06_rb,1.34690e-06_rb, &
+      1.38609e-06_rb,1.42614e-06_rb,1.46706e-06_rb,1.50886e-06_rb,1.55155e-06_rb, &
+      1.59515e-06_rb,1.63967e-06_rb,1.68512e-06_rb,1.73150e-06_rb,1.77884e-06_rb, &
+      1.82715e-06_rb,1.87643e-06_rb,1.92670e-06_rb,1.97797e-06_rb,2.03026e-06_rb, &
+      2.08356e-06_rb,2.13791e-06_rb,2.19330e-06_rb,2.24975e-06_rb,2.30728e-06_rb, &
+      2.36589e-06_rb,2.42560e-06_rb,2.48641e-06_rb,2.54835e-06_rb,2.61142e-06_rb/)
+      totplnk(151:181,11) = (/ &
+      2.67563e-06_rb,2.74100e-06_rb,2.80754e-06_rb,2.87526e-06_rb,2.94417e-06_rb, &
+      3.01429e-06_rb,3.08562e-06_rb,3.15819e-06_rb,3.23199e-06_rb,3.30704e-06_rb, &
+      3.38336e-06_rb,3.46096e-06_rb,3.53984e-06_rb,3.62002e-06_rb,3.70151e-06_rb, &
+      3.78433e-06_rb,3.86848e-06_rb,3.95399e-06_rb,4.04084e-06_rb,4.12907e-06_rb, &
+      4.21868e-06_rb,4.30968e-06_rb,4.40209e-06_rb,4.49592e-06_rb,4.59117e-06_rb, &
+      4.68786e-06_rb,4.78600e-06_rb,4.88561e-06_rb,4.98669e-06_rb,5.08926e-06_rb, &
+      5.19332e-06_rb/)
+      totplnk(1:50,12) = (/ &
+      2.73921e-10_rb,3.04500e-10_rb,3.38056e-10_rb,3.74835e-10_rb,4.15099e-10_rb, &
+      4.59126e-10_rb,5.07214e-10_rb,5.59679e-10_rb,6.16857e-10_rb,6.79103e-10_rb, &
+      7.46796e-10_rb,8.20335e-10_rb,9.00144e-10_rb,9.86671e-10_rb,1.08039e-09_rb, &
+      1.18180e-09_rb,1.29142e-09_rb,1.40982e-09_rb,1.53757e-09_rb,1.67529e-09_rb, &
+      1.82363e-09_rb,1.98327e-09_rb,2.15492e-09_rb,2.33932e-09_rb,2.53726e-09_rb, &
+      2.74957e-09_rb,2.97710e-09_rb,3.22075e-09_rb,3.48145e-09_rb,3.76020e-09_rb, &
+      4.05801e-09_rb,4.37595e-09_rb,4.71513e-09_rb,5.07672e-09_rb,5.46193e-09_rb, &
+      5.87201e-09_rb,6.30827e-09_rb,6.77205e-09_rb,7.26480e-09_rb,7.78794e-09_rb, &
+      8.34304e-09_rb,8.93163e-09_rb,9.55537e-09_rb,1.02159e-08_rb,1.09151e-08_rb, &
+      1.16547e-08_rb,1.24365e-08_rb,1.32625e-08_rb,1.41348e-08_rb,1.50554e-08_rb/)
+      totplnk(51:100,12) = (/ &
+      1.60264e-08_rb,1.70500e-08_rb,1.81285e-08_rb,1.92642e-08_rb,2.04596e-08_rb, &
+      2.17171e-08_rb,2.30394e-08_rb,2.44289e-08_rb,2.58885e-08_rb,2.74209e-08_rb, &
+      2.90290e-08_rb,3.07157e-08_rb,3.24841e-08_rb,3.43371e-08_rb,3.62782e-08_rb, &
+      3.83103e-08_rb,4.04371e-08_rb,4.26617e-08_rb,4.49878e-08_rb,4.74190e-08_rb, &
+      4.99589e-08_rb,5.26113e-08_rb,5.53801e-08_rb,5.82692e-08_rb,6.12826e-08_rb, &
+      6.44245e-08_rb,6.76991e-08_rb,7.11105e-08_rb,7.46634e-08_rb,7.83621e-08_rb, &
+      8.22112e-08_rb,8.62154e-08_rb,9.03795e-08_rb,9.47081e-08_rb,9.92066e-08_rb, &
+      1.03879e-07_rb,1.08732e-07_rb,1.13770e-07_rb,1.18998e-07_rb,1.24422e-07_rb, &
+      1.30048e-07_rb,1.35880e-07_rb,1.41924e-07_rb,1.48187e-07_rb,1.54675e-07_rb, &
+      1.61392e-07_rb,1.68346e-07_rb,1.75543e-07_rb,1.82988e-07_rb,1.90688e-07_rb/)
+      totplnk(101:150,12) = (/ &
+      1.98650e-07_rb,2.06880e-07_rb,2.15385e-07_rb,2.24172e-07_rb,2.33247e-07_rb, &
+      2.42617e-07_rb,2.52289e-07_rb,2.62272e-07_rb,2.72571e-07_rb,2.83193e-07_rb, &
+      2.94147e-07_rb,3.05440e-07_rb,3.17080e-07_rb,3.29074e-07_rb,3.41430e-07_rb, &
+      3.54155e-07_rb,3.67259e-07_rb,3.80747e-07_rb,3.94631e-07_rb,4.08916e-07_rb, &
+      4.23611e-07_rb,4.38725e-07_rb,4.54267e-07_rb,4.70245e-07_rb,4.86666e-07_rb, &
+      5.03541e-07_rb,5.20879e-07_rb,5.38687e-07_rb,5.56975e-07_rb,5.75751e-07_rb, &
+      5.95026e-07_rb,6.14808e-07_rb,6.35107e-07_rb,6.55932e-07_rb,6.77293e-07_rb, &
+      6.99197e-07_rb,7.21656e-07_rb,7.44681e-07_rb,7.68278e-07_rb,7.92460e-07_rb, &
+      8.17235e-07_rb,8.42614e-07_rb,8.68606e-07_rb,8.95223e-07_rb,9.22473e-07_rb, &
+      9.50366e-07_rb,9.78915e-07_rb,1.00813e-06_rb,1.03802e-06_rb,1.06859e-06_rb/)
+      totplnk(151:181,12) = (/ &
+      1.09986e-06_rb,1.13184e-06_rb,1.16453e-06_rb,1.19796e-06_rb,1.23212e-06_rb, &
+      1.26703e-06_rb,1.30270e-06_rb,1.33915e-06_rb,1.37637e-06_rb,1.41440e-06_rb, &
+      1.45322e-06_rb,1.49286e-06_rb,1.53333e-06_rb,1.57464e-06_rb,1.61679e-06_rb, &
+      1.65981e-06_rb,1.70370e-06_rb,1.74847e-06_rb,1.79414e-06_rb,1.84071e-06_rb, &
+      1.88821e-06_rb,1.93663e-06_rb,1.98599e-06_rb,2.03631e-06_rb,2.08759e-06_rb, &
+      2.13985e-06_rb,2.19310e-06_rb,2.24734e-06_rb,2.30260e-06_rb,2.35888e-06_rb, &
+      2.41619e-06_rb/)
+      totplnk(1:50,13) = (/ &
+      4.53634e-11_rb,5.11435e-11_rb,5.75754e-11_rb,6.47222e-11_rb,7.26531e-11_rb, &
+      8.14420e-11_rb,9.11690e-11_rb,1.01921e-10_rb,1.13790e-10_rb,1.26877e-10_rb, &
+      1.41288e-10_rb,1.57140e-10_rb,1.74555e-10_rb,1.93665e-10_rb,2.14613e-10_rb, &
+      2.37548e-10_rb,2.62633e-10_rb,2.90039e-10_rb,3.19948e-10_rb,3.52558e-10_rb, &
+      3.88073e-10_rb,4.26716e-10_rb,4.68719e-10_rb,5.14331e-10_rb,5.63815e-10_rb, &
+      6.17448e-10_rb,6.75526e-10_rb,7.38358e-10_rb,8.06277e-10_rb,8.79625e-10_rb, &
+      9.58770e-10_rb,1.04410e-09_rb,1.13602e-09_rb,1.23495e-09_rb,1.34135e-09_rb, &
+      1.45568e-09_rb,1.57845e-09_rb,1.71017e-09_rb,1.85139e-09_rb,2.00268e-09_rb, &
+      2.16464e-09_rb,2.33789e-09_rb,2.52309e-09_rb,2.72093e-09_rb,2.93212e-09_rb, &
+      3.15740e-09_rb,3.39757e-09_rb,3.65341e-09_rb,3.92579e-09_rb,4.21559e-09_rb/)
+      totplnk(51:100,13) = (/ &
+      4.52372e-09_rb,4.85115e-09_rb,5.19886e-09_rb,5.56788e-09_rb,5.95928e-09_rb, &
+      6.37419e-09_rb,6.81375e-09_rb,7.27917e-09_rb,7.77168e-09_rb,8.29256e-09_rb, &
+      8.84317e-09_rb,9.42487e-09_rb,1.00391e-08_rb,1.06873e-08_rb,1.13710e-08_rb, &
+      1.20919e-08_rb,1.28515e-08_rb,1.36514e-08_rb,1.44935e-08_rb,1.53796e-08_rb, &
+      1.63114e-08_rb,1.72909e-08_rb,1.83201e-08_rb,1.94008e-08_rb,2.05354e-08_rb, &
+      2.17258e-08_rb,2.29742e-08_rb,2.42830e-08_rb,2.56545e-08_rb,2.70910e-08_rb, &
+      2.85950e-08_rb,3.01689e-08_rb,3.18155e-08_rb,3.35373e-08_rb,3.53372e-08_rb, &
+      3.72177e-08_rb,3.91818e-08_rb,4.12325e-08_rb,4.33727e-08_rb,4.56056e-08_rb, &
+      4.79342e-08_rb,5.03617e-08_rb,5.28915e-08_rb,5.55270e-08_rb,5.82715e-08_rb, &
+      6.11286e-08_rb,6.41019e-08_rb,6.71951e-08_rb,7.04119e-08_rb,7.37560e-08_rb/)
+      totplnk(101:150,13) = (/ &
+      7.72315e-08_rb,8.08424e-08_rb,8.45927e-08_rb,8.84866e-08_rb,9.25281e-08_rb, &
+      9.67218e-08_rb,1.01072e-07_rb,1.05583e-07_rb,1.10260e-07_rb,1.15107e-07_rb, &
+      1.20128e-07_rb,1.25330e-07_rb,1.30716e-07_rb,1.36291e-07_rb,1.42061e-07_rb, &
+      1.48031e-07_rb,1.54206e-07_rb,1.60592e-07_rb,1.67192e-07_rb,1.74015e-07_rb, &
+      1.81064e-07_rb,1.88345e-07_rb,1.95865e-07_rb,2.03628e-07_rb,2.11643e-07_rb, &
+      2.19912e-07_rb,2.28443e-07_rb,2.37244e-07_rb,2.46318e-07_rb,2.55673e-07_rb, &
+      2.65316e-07_rb,2.75252e-07_rb,2.85489e-07_rb,2.96033e-07_rb,3.06891e-07_rb, &
+      3.18070e-07_rb,3.29576e-07_rb,3.41417e-07_rb,3.53600e-07_rb,3.66133e-07_rb, &
+      3.79021e-07_rb,3.92274e-07_rb,4.05897e-07_rb,4.19899e-07_rb,4.34288e-07_rb, &
+      4.49071e-07_rb,4.64255e-07_rb,4.79850e-07_rb,4.95863e-07_rb,5.12300e-07_rb/)
+      totplnk(151:181,13) = (/ &
+      5.29172e-07_rb,5.46486e-07_rb,5.64250e-07_rb,5.82473e-07_rb,6.01164e-07_rb, &
+      6.20329e-07_rb,6.39979e-07_rb,6.60122e-07_rb,6.80767e-07_rb,7.01922e-07_rb, &
+      7.23596e-07_rb,7.45800e-07_rb,7.68539e-07_rb,7.91826e-07_rb,8.15669e-07_rb, &
+      8.40076e-07_rb,8.65058e-07_rb,8.90623e-07_rb,9.16783e-07_rb,9.43544e-07_rb, &
+      9.70917e-07_rb,9.98912e-07_rb,1.02754e-06_rb,1.05681e-06_rb,1.08673e-06_rb, &
+      1.11731e-06_rb,1.14856e-06_rb,1.18050e-06_rb,1.21312e-06_rb,1.24645e-06_rb, &
+      1.28049e-06_rb/)
+      totplnk(1:50,14) = (/ &
+      1.40113e-11_rb,1.59358e-11_rb,1.80960e-11_rb,2.05171e-11_rb,2.32266e-11_rb, &
+      2.62546e-11_rb,2.96335e-11_rb,3.33990e-11_rb,3.75896e-11_rb,4.22469e-11_rb, &
+      4.74164e-11_rb,5.31466e-11_rb,5.94905e-11_rb,6.65054e-11_rb,7.42522e-11_rb, &
+      8.27975e-11_rb,9.22122e-11_rb,1.02573e-10_rb,1.13961e-10_rb,1.26466e-10_rb, &
+      1.40181e-10_rb,1.55206e-10_rb,1.71651e-10_rb,1.89630e-10_rb,2.09265e-10_rb, &
+      2.30689e-10_rb,2.54040e-10_rb,2.79467e-10_rb,3.07128e-10_rb,3.37190e-10_rb, &
+      3.69833e-10_rb,4.05243e-10_rb,4.43623e-10_rb,4.85183e-10_rb,5.30149e-10_rb, &
+      5.78755e-10_rb,6.31255e-10_rb,6.87910e-10_rb,7.49002e-10_rb,8.14824e-10_rb, &
+      8.85687e-10_rb,9.61914e-10_rb,1.04385e-09_rb,1.13186e-09_rb,1.22631e-09_rb, &
+      1.32761e-09_rb,1.43617e-09_rb,1.55243e-09_rb,1.67686e-09_rb,1.80992e-09_rb/)
+      totplnk(51:100,14) = (/ &
+      1.95212e-09_rb,2.10399e-09_rb,2.26607e-09_rb,2.43895e-09_rb,2.62321e-09_rb, &
+      2.81949e-09_rb,3.02844e-09_rb,3.25073e-09_rb,3.48707e-09_rb,3.73820e-09_rb, &
+      4.00490e-09_rb,4.28794e-09_rb,4.58819e-09_rb,4.90647e-09_rb,5.24371e-09_rb, &
+      5.60081e-09_rb,5.97875e-09_rb,6.37854e-09_rb,6.80120e-09_rb,7.24782e-09_rb, &
+      7.71950e-09_rb,8.21740e-09_rb,8.74271e-09_rb,9.29666e-09_rb,9.88054e-09_rb, &
+      1.04956e-08_rb,1.11434e-08_rb,1.18251e-08_rb,1.25422e-08_rb,1.32964e-08_rb, &
+      1.40890e-08_rb,1.49217e-08_rb,1.57961e-08_rb,1.67140e-08_rb,1.76771e-08_rb, &
+      1.86870e-08_rb,1.97458e-08_rb,2.08553e-08_rb,2.20175e-08_rb,2.32342e-08_rb, &
+      2.45077e-08_rb,2.58401e-08_rb,2.72334e-08_rb,2.86900e-08_rb,3.02122e-08_rb, &
+      3.18021e-08_rb,3.34624e-08_rb,3.51954e-08_rb,3.70037e-08_rb,3.88899e-08_rb/)
+      totplnk(101:150,14) = (/ &
+      4.08568e-08_rb,4.29068e-08_rb,4.50429e-08_rb,4.72678e-08_rb,4.95847e-08_rb, &
+      5.19963e-08_rb,5.45058e-08_rb,5.71161e-08_rb,5.98309e-08_rb,6.26529e-08_rb, &
+      6.55857e-08_rb,6.86327e-08_rb,7.17971e-08_rb,7.50829e-08_rb,7.84933e-08_rb, &
+      8.20323e-08_rb,8.57035e-08_rb,8.95105e-08_rb,9.34579e-08_rb,9.75488e-08_rb, &
+      1.01788e-07_rb,1.06179e-07_rb,1.10727e-07_rb,1.15434e-07_rb,1.20307e-07_rb, &
+      1.25350e-07_rb,1.30566e-07_rb,1.35961e-07_rb,1.41539e-07_rb,1.47304e-07_rb, &
+      1.53263e-07_rb,1.59419e-07_rb,1.65778e-07_rb,1.72345e-07_rb,1.79124e-07_rb, &
+      1.86122e-07_rb,1.93343e-07_rb,2.00792e-07_rb,2.08476e-07_rb,2.16400e-07_rb, &
+      2.24568e-07_rb,2.32988e-07_rb,2.41666e-07_rb,2.50605e-07_rb,2.59813e-07_rb, &
+      2.69297e-07_rb,2.79060e-07_rb,2.89111e-07_rb,2.99455e-07_rb,3.10099e-07_rb/)
+      totplnk(151:181,14) = (/ &
+      3.21049e-07_rb,3.32311e-07_rb,3.43893e-07_rb,3.55801e-07_rb,3.68041e-07_rb, &
+      3.80621e-07_rb,3.93547e-07_rb,4.06826e-07_rb,4.20465e-07_rb,4.34473e-07_rb, &
+      4.48856e-07_rb,4.63620e-07_rb,4.78774e-07_rb,4.94325e-07_rb,5.10280e-07_rb, &
+      5.26648e-07_rb,5.43436e-07_rb,5.60652e-07_rb,5.78302e-07_rb,5.96397e-07_rb, &
+      6.14943e-07_rb,6.33949e-07_rb,6.53421e-07_rb,6.73370e-07_rb,6.93803e-07_rb, &
+      7.14731e-07_rb,7.36157e-07_rb,7.58095e-07_rb,7.80549e-07_rb,8.03533e-07_rb, &
+      8.27050e-07_rb/)
+      totplnk(1:50,15) = (/ &
+      3.90483e-12_rb,4.47999e-12_rb,5.13122e-12_rb,5.86739e-12_rb,6.69829e-12_rb, &
+      7.63467e-12_rb,8.68833e-12_rb,9.87221e-12_rb,1.12005e-11_rb,1.26885e-11_rb, &
+      1.43534e-11_rb,1.62134e-11_rb,1.82888e-11_rb,2.06012e-11_rb,2.31745e-11_rb, &
+      2.60343e-11_rb,2.92087e-11_rb,3.27277e-11_rb,3.66242e-11_rb,4.09334e-11_rb, &
+      4.56935e-11_rb,5.09455e-11_rb,5.67338e-11_rb,6.31057e-11_rb,7.01127e-11_rb, &
+      7.78096e-11_rb,8.62554e-11_rb,9.55130e-11_rb,1.05651e-10_rb,1.16740e-10_rb, &
+      1.28858e-10_rb,1.42089e-10_rb,1.56519e-10_rb,1.72243e-10_rb,1.89361e-10_rb, &
+      2.07978e-10_rb,2.28209e-10_rb,2.50173e-10_rb,2.73999e-10_rb,2.99820e-10_rb, &
+      3.27782e-10_rb,3.58034e-10_rb,3.90739e-10_rb,4.26067e-10_rb,4.64196e-10_rb, &
+      5.05317e-10_rb,5.49631e-10_rb,5.97347e-10_rb,6.48689e-10_rb,7.03891e-10_rb/)
+      totplnk(51:100,15) = (/ &
+      7.63201e-10_rb,8.26876e-10_rb,8.95192e-10_rb,9.68430e-10_rb,1.04690e-09_rb, &
+      1.13091e-09_rb,1.22079e-09_rb,1.31689e-09_rb,1.41957e-09_rb,1.52922e-09_rb, &
+      1.64623e-09_rb,1.77101e-09_rb,1.90401e-09_rb,2.04567e-09_rb,2.19647e-09_rb, &
+      2.35690e-09_rb,2.52749e-09_rb,2.70875e-09_rb,2.90127e-09_rb,3.10560e-09_rb, &
+      3.32238e-09_rb,3.55222e-09_rb,3.79578e-09_rb,4.05375e-09_rb,4.32682e-09_rb, &
+      4.61574e-09_rb,4.92128e-09_rb,5.24420e-09_rb,5.58536e-09_rb,5.94558e-09_rb, &
+      6.32575e-09_rb,6.72678e-09_rb,7.14964e-09_rb,7.59526e-09_rb,8.06470e-09_rb, &
+      8.55897e-09_rb,9.07916e-09_rb,9.62638e-09_rb,1.02018e-08_rb,1.08066e-08_rb, &
+      1.14420e-08_rb,1.21092e-08_rb,1.28097e-08_rb,1.35446e-08_rb,1.43155e-08_rb, &
+      1.51237e-08_rb,1.59708e-08_rb,1.68581e-08_rb,1.77873e-08_rb,1.87599e-08_rb/)
+      totplnk(101:150,15) = (/ &
+      1.97777e-08_rb,2.08423e-08_rb,2.19555e-08_rb,2.31190e-08_rb,2.43348e-08_rb, &
+      2.56045e-08_rb,2.69302e-08_rb,2.83140e-08_rb,2.97578e-08_rb,3.12636e-08_rb, &
+      3.28337e-08_rb,3.44702e-08_rb,3.61755e-08_rb,3.79516e-08_rb,3.98012e-08_rb, &
+      4.17265e-08_rb,4.37300e-08_rb,4.58143e-08_rb,4.79819e-08_rb,5.02355e-08_rb, &
+      5.25777e-08_rb,5.50114e-08_rb,5.75393e-08_rb,6.01644e-08_rb,6.28896e-08_rb, &
+      6.57177e-08_rb,6.86521e-08_rb,7.16959e-08_rb,7.48520e-08_rb,7.81239e-08_rb, &
+      8.15148e-08_rb,8.50282e-08_rb,8.86675e-08_rb,9.24362e-08_rb,9.63380e-08_rb, &
+      1.00376e-07_rb,1.04555e-07_rb,1.08878e-07_rb,1.13349e-07_rb,1.17972e-07_rb, &
+      1.22751e-07_rb,1.27690e-07_rb,1.32793e-07_rb,1.38064e-07_rb,1.43508e-07_rb, &
+      1.49129e-07_rb,1.54931e-07_rb,1.60920e-07_rb,1.67099e-07_rb,1.73473e-07_rb/)
+      totplnk(151:181,15) = (/ &
+      1.80046e-07_rb,1.86825e-07_rb,1.93812e-07_rb,2.01014e-07_rb,2.08436e-07_rb, &
+      2.16082e-07_rb,2.23957e-07_rb,2.32067e-07_rb,2.40418e-07_rb,2.49013e-07_rb, &
+      2.57860e-07_rb,2.66963e-07_rb,2.76328e-07_rb,2.85961e-07_rb,2.95868e-07_rb, &
+      3.06053e-07_rb,3.16524e-07_rb,3.27286e-07_rb,3.38345e-07_rb,3.49707e-07_rb, &
+      3.61379e-07_rb,3.73367e-07_rb,3.85676e-07_rb,3.98315e-07_rb,4.11287e-07_rb, &
+      4.24602e-07_rb,4.38265e-07_rb,4.52283e-07_rb,4.66662e-07_rb,4.81410e-07_rb, &
+      4.96535e-07_rb/)
+      totplnk(1:50,16) = (/ &
+      0.28639e-12_rb,0.33349e-12_rb,0.38764e-12_rb,0.44977e-12_rb,0.52093e-12_rb, &
+      0.60231e-12_rb,0.69522e-12_rb,0.80111e-12_rb,0.92163e-12_rb,0.10586e-11_rb, &
+      0.12139e-11_rb,0.13899e-11_rb,0.15890e-11_rb,0.18138e-11_rb,0.20674e-11_rb, &
+      0.23531e-11_rb,0.26744e-11_rb,0.30352e-11_rb,0.34401e-11_rb,0.38936e-11_rb, &
+      0.44011e-11_rb,0.49681e-11_rb,0.56010e-11_rb,0.63065e-11_rb,0.70919e-11_rb, &
+      0.79654e-11_rb,0.89357e-11_rb,0.10012e-10_rb,0.11205e-10_rb,0.12526e-10_rb, &
+      0.13986e-10_rb,0.15600e-10_rb,0.17380e-10_rb,0.19342e-10_rb,0.21503e-10_rb, &
+      0.23881e-10_rb,0.26494e-10_rb,0.29362e-10_rb,0.32509e-10_rb,0.35958e-10_rb, &
+      0.39733e-10_rb,0.43863e-10_rb,0.48376e-10_rb,0.53303e-10_rb,0.58679e-10_rb, &
+      0.64539e-10_rb,0.70920e-10_rb,0.77864e-10_rb,0.85413e-10_rb,0.93615e-10_rb/)
+      totplnk(51:100,16) = (/ &
+      0.10252e-09_rb,0.11217e-09_rb,0.12264e-09_rb,0.13397e-09_rb,0.14624e-09_rb, &
+      0.15950e-09_rb,0.17383e-09_rb,0.18930e-09_rb,0.20599e-09_rb,0.22399e-09_rb, &
+      0.24339e-09_rb,0.26427e-09_rb,0.28674e-09_rb,0.31090e-09_rb,0.33686e-09_rb, &
+      0.36474e-09_rb,0.39466e-09_rb,0.42676e-09_rb,0.46115e-09_rb,0.49800e-09_rb, &
+      0.53744e-09_rb,0.57964e-09_rb,0.62476e-09_rb,0.67298e-09_rb,0.72448e-09_rb, &
+      0.77945e-09_rb,0.83809e-09_rb,0.90062e-09_rb,0.96725e-09_rb,0.10382e-08_rb, &
+      0.11138e-08_rb,0.11941e-08_rb,0.12796e-08_rb,0.13704e-08_rb,0.14669e-08_rb, &
+      0.15694e-08_rb,0.16781e-08_rb,0.17934e-08_rb,0.19157e-08_rb,0.20453e-08_rb, &
+      0.21825e-08_rb,0.23278e-08_rb,0.24815e-08_rb,0.26442e-08_rb,0.28161e-08_rb, &
+      0.29978e-08_rb,0.31898e-08_rb,0.33925e-08_rb,0.36064e-08_rb,0.38321e-08_rb/)
+      totplnk(101:150,16) = (/ &
+      0.40700e-08_rb,0.43209e-08_rb,0.45852e-08_rb,0.48636e-08_rb,0.51567e-08_rb, &
+      0.54652e-08_rb,0.57897e-08_rb,0.61310e-08_rb,0.64897e-08_rb,0.68667e-08_rb, &
+      0.72626e-08_rb,0.76784e-08_rb,0.81148e-08_rb,0.85727e-08_rb,0.90530e-08_rb, &
+      0.95566e-08_rb,0.10084e-07_rb,0.10638e-07_rb,0.11217e-07_rb,0.11824e-07_rb, &
+      0.12458e-07_rb,0.13123e-07_rb,0.13818e-07_rb,0.14545e-07_rb,0.15305e-07_rb, &
+      0.16099e-07_rb,0.16928e-07_rb,0.17795e-07_rb,0.18699e-07_rb,0.19643e-07_rb, &
+      0.20629e-07_rb,0.21656e-07_rb,0.22728e-07_rb,0.23845e-07_rb,0.25010e-07_rb, &
+      0.26223e-07_rb,0.27487e-07_rb,0.28804e-07_rb,0.30174e-07_rb,0.31600e-07_rb, &
+      0.33084e-07_rb,0.34628e-07_rb,0.36233e-07_rb,0.37902e-07_rb,0.39637e-07_rb, &
+      0.41440e-07_rb,0.43313e-07_rb,0.45259e-07_rb,0.47279e-07_rb,0.49376e-07_rb/)
+      totplnk(151:181,16) = (/ &
+      0.51552e-07_rb,0.53810e-07_rb,0.56153e-07_rb,0.58583e-07_rb,0.61102e-07_rb, &
+      0.63713e-07_rb,0.66420e-07_rb,0.69224e-07_rb,0.72129e-07_rb,0.75138e-07_rb, &
+      0.78254e-07_rb,0.81479e-07_rb,0.84818e-07_rb,0.88272e-07_rb,0.91846e-07_rb, &
+      0.95543e-07_rb,0.99366e-07_rb,0.10332e-06_rb,0.10740e-06_rb,0.11163e-06_rb, &
+      0.11599e-06_rb,0.12050e-06_rb,0.12515e-06_rb,0.12996e-06_rb,0.13493e-06_rb, &
+      0.14005e-06_rb,0.14534e-06_rb,0.15080e-06_rb,0.15643e-06_rb,0.16224e-06_rb, &
+      0.16823e-06_rb/)
+      totplk16(1:50) = (/ &
+      0.28481e-12_rb,0.33159e-12_rb,0.38535e-12_rb,0.44701e-12_rb,0.51763e-12_rb, &
+      0.59836e-12_rb,0.69049e-12_rb,0.79549e-12_rb,0.91493e-12_rb,0.10506e-11_rb, &
+      0.12045e-11_rb,0.13788e-11_rb,0.15758e-11_rb,0.17984e-11_rb,0.20493e-11_rb, &
+      0.23317e-11_rb,0.26494e-11_rb,0.30060e-11_rb,0.34060e-11_rb,0.38539e-11_rb, &
+      0.43548e-11_rb,0.49144e-11_rb,0.55387e-11_rb,0.62344e-11_rb,0.70086e-11_rb, &
+      0.78692e-11_rb,0.88248e-11_rb,0.98846e-11_rb,0.11059e-10_rb,0.12358e-10_rb, &
+      0.13794e-10_rb,0.15379e-10_rb,0.17128e-10_rb,0.19055e-10_rb,0.21176e-10_rb, &
+      0.23508e-10_rb,0.26070e-10_rb,0.28881e-10_rb,0.31963e-10_rb,0.35339e-10_rb, &
+      0.39034e-10_rb,0.43073e-10_rb,0.47484e-10_rb,0.52299e-10_rb,0.57548e-10_rb, &
+      0.63267e-10_rb,0.69491e-10_rb,0.76261e-10_rb,0.83616e-10_rb,0.91603e-10_rb/)
+      totplk16(51:100) = (/ &
+      0.10027e-09_rb,0.10966e-09_rb,0.11983e-09_rb,0.13084e-09_rb,0.14275e-09_rb, &
+      0.15562e-09_rb,0.16951e-09_rb,0.18451e-09_rb,0.20068e-09_rb,0.21810e-09_rb, &
+      0.23686e-09_rb,0.25704e-09_rb,0.27875e-09_rb,0.30207e-09_rb,0.32712e-09_rb, &
+      0.35400e-09_rb,0.38282e-09_rb,0.41372e-09_rb,0.44681e-09_rb,0.48223e-09_rb, &
+      0.52013e-09_rb,0.56064e-09_rb,0.60392e-09_rb,0.65015e-09_rb,0.69948e-09_rb, &
+      0.75209e-09_rb,0.80818e-09_rb,0.86794e-09_rb,0.93157e-09_rb,0.99929e-09_rb, &
+      0.10713e-08_rb,0.11479e-08_rb,0.12293e-08_rb,0.13157e-08_rb,0.14074e-08_rb, &
+      0.15047e-08_rb,0.16079e-08_rb,0.17172e-08_rb,0.18330e-08_rb,0.19557e-08_rb, &
+      0.20855e-08_rb,0.22228e-08_rb,0.23680e-08_rb,0.25214e-08_rb,0.26835e-08_rb, &
+      0.28546e-08_rb,0.30352e-08_rb,0.32257e-08_rb,0.34266e-08_rb,0.36384e-08_rb/)
+      totplk16(101:150) = (/ &
+      0.38615e-08_rb,0.40965e-08_rb,0.43438e-08_rb,0.46041e-08_rb,0.48779e-08_rb, &
+      0.51658e-08_rb,0.54683e-08_rb,0.57862e-08_rb,0.61200e-08_rb,0.64705e-08_rb, &
+      0.68382e-08_rb,0.72240e-08_rb,0.76285e-08_rb,0.80526e-08_rb,0.84969e-08_rb, &
+      0.89624e-08_rb,0.94498e-08_rb,0.99599e-08_rb,0.10494e-07_rb,0.11052e-07_rb, &
+      0.11636e-07_rb,0.12246e-07_rb,0.12884e-07_rb,0.13551e-07_rb,0.14246e-07_rb, &
+      0.14973e-07_rb,0.15731e-07_rb,0.16522e-07_rb,0.17347e-07_rb,0.18207e-07_rb, &
+      0.19103e-07_rb,0.20037e-07_rb,0.21011e-07_rb,0.22024e-07_rb,0.23079e-07_rb, &
+      0.24177e-07_rb,0.25320e-07_rb,0.26508e-07_rb,0.27744e-07_rb,0.29029e-07_rb, &
+      0.30365e-07_rb,0.31753e-07_rb,0.33194e-07_rb,0.34691e-07_rb,0.36246e-07_rb, &
+      0.37859e-07_rb,0.39533e-07_rb,0.41270e-07_rb,0.43071e-07_rb,0.44939e-07_rb/)
+      totplk16(151:181) = (/ &
+      0.46875e-07_rb,0.48882e-07_rb,0.50961e-07_rb,0.53115e-07_rb,0.55345e-07_rb, &
+      0.57655e-07_rb,0.60046e-07_rb,0.62520e-07_rb,0.65080e-07_rb,0.67728e-07_rb, &
+      0.70466e-07_rb,0.73298e-07_rb,0.76225e-07_rb,0.79251e-07_rb,0.82377e-07_rb, &
+      0.85606e-07_rb,0.88942e-07_rb,0.92386e-07_rb,0.95942e-07_rb,0.99612e-07_rb, &
+      0.10340e-06_rb,0.10731e-06_rb,0.11134e-06_rb,0.11550e-06_rb,0.11979e-06_rb, &
+      0.12421e-06_rb,0.12876e-06_rb,0.13346e-06_rb,0.13830e-06_rb,0.14328e-06_rb, &
+      0.14841e-06_rb/)
+
+      end subroutine lwavplank
+
+!***************************************************************************
+      subroutine lwavplankderiv
+!***************************************************************************
+
+      save
+ 
+      totplnkderiv(1:50,  1) = (/ &
+      2.22125e-08_rb,2.23245e-08_rb,2.24355e-08_rb,2.25435e-08_rb,2.26560e-08_rb, &
+      2.27620e-08_rb,2.28690e-08_rb,2.29760e-08_rb,2.30775e-08_rb,2.31800e-08_rb, &
+      2.32825e-08_rb,2.33825e-08_rb,2.34820e-08_rb,2.35795e-08_rb,2.36760e-08_rb, &
+      2.37710e-08_rb,2.38655e-08_rb,2.39595e-08_rb,2.40530e-08_rb,2.41485e-08_rb, &
+      2.42395e-08_rb,2.43300e-08_rb,2.44155e-08_rb,2.45085e-08_rb,2.45905e-08_rb, &
+      2.46735e-08_rb,2.47565e-08_rb,2.48465e-08_rb,2.49315e-08_rb,2.50100e-08_rb, &
+      2.50905e-08_rb,2.51705e-08_rb,2.52490e-08_rb,2.53260e-08_rb,2.54075e-08_rb, &
+      2.54785e-08_rb,2.55555e-08_rb,2.56340e-08_rb,2.57050e-08_rb,2.57820e-08_rb, &
+      2.58525e-08_rb,2.59205e-08_rb,2.59945e-08_rb,2.60680e-08_rb,2.61375e-08_rb, &
+      2.61980e-08_rb,2.62745e-08_rb,2.63335e-08_rb,2.63995e-08_rb,2.64710e-08_rb/)
+      totplnkderiv(51:100,  1) = (/ &
+      2.65300e-08_rb,2.66005e-08_rb,2.66685e-08_rb,2.67310e-08_rb,2.67915e-08_rb, &
+      2.68540e-08_rb,2.69065e-08_rb,2.69730e-08_rb,2.70270e-08_rb,2.70690e-08_rb, &
+      2.71420e-08_rb,2.71985e-08_rb,2.72560e-08_rb,2.73180e-08_rb,2.73760e-08_rb, &
+      2.74285e-08_rb,2.74840e-08_rb,2.75290e-08_rb,2.75950e-08_rb,2.76360e-08_rb, &
+      2.76975e-08_rb,2.77475e-08_rb,2.78080e-08_rb,2.78375e-08_rb,2.79120e-08_rb, &
+      2.79510e-08_rb,2.79955e-08_rb,2.80625e-08_rb,2.80920e-08_rb,2.81570e-08_rb, &
+      2.81990e-08_rb,2.82330e-08_rb,2.82830e-08_rb,2.83365e-08_rb,2.83740e-08_rb, &
+      2.84295e-08_rb,2.84910e-08_rb,2.85275e-08_rb,2.85525e-08_rb,2.86085e-08_rb, &
+      2.86535e-08_rb,2.86945e-08_rb,2.87355e-08_rb,2.87695e-08_rb,2.88105e-08_rb, &
+      2.88585e-08_rb,2.88945e-08_rb,2.89425e-08_rb,2.89580e-08_rb,2.90265e-08_rb/)
+      totplnkderiv(101:150,  1) = (/ &
+      2.90445e-08_rb,2.90905e-08_rb,2.91425e-08_rb,2.91560e-08_rb,2.91970e-08_rb, &
+      2.91905e-08_rb,2.92880e-08_rb,2.92950e-08_rb,2.93630e-08_rb,2.93995e-08_rb, &
+      2.94425e-08_rb,2.94635e-08_rb,2.94770e-08_rb,2.95290e-08_rb,2.95585e-08_rb, &
+      2.95815e-08_rb,2.95995e-08_rb,2.96745e-08_rb,2.96725e-08_rb,2.97040e-08_rb, &
+      2.97750e-08_rb,2.97905e-08_rb,2.98175e-08_rb,2.98355e-08_rb,2.98705e-08_rb, &
+      2.99040e-08_rb,2.99680e-08_rb,2.99860e-08_rb,3.00270e-08_rb,3.00200e-08_rb, &
+      3.00770e-08_rb,3.00795e-08_rb,3.01065e-08_rb,3.01795e-08_rb,3.01815e-08_rb, &
+      3.02025e-08_rb,3.02360e-08_rb,3.02360e-08_rb,3.03090e-08_rb,3.03155e-08_rb, &
+      3.03725e-08_rb,3.03635e-08_rb,3.04270e-08_rb,3.04610e-08_rb,3.04635e-08_rb, &
+      3.04610e-08_rb,3.05180e-08_rb,3.05430e-08_rb,3.05290e-08_rb,3.05885e-08_rb/)
+      totplnkderiv(151:181,  1) = (/ &
+      3.05750e-08_rb,3.05775e-08_rb,3.06795e-08_rb,3.07025e-08_rb,3.07365e-08_rb, &
+      3.07435e-08_rb,3.07525e-08_rb,3.07680e-08_rb,3.08115e-08_rb,3.07930e-08_rb, &
+      3.08155e-08_rb,3.08660e-08_rb,3.08865e-08_rb,3.08390e-08_rb,3.09340e-08_rb, &
+      3.09685e-08_rb,3.09340e-08_rb,3.09820e-08_rb,3.10365e-08_rb,3.10705e-08_rb, &
+      3.10750e-08_rb,3.10475e-08_rb,3.11685e-08_rb,3.11455e-08_rb,3.11500e-08_rb, &
+      3.11775e-08_rb,3.11890e-08_rb,3.12045e-08_rb,3.12185e-08_rb,3.12415e-08_rb, &
+      3.12590e-08_rb/)
+      totplnkderiv(1:50,  2) = (/ &
+      4.91150e-08_rb,4.97290e-08_rb,5.03415e-08_rb,5.09460e-08_rb,5.15550e-08_rb, &
+      5.21540e-08_rb,5.27575e-08_rb,5.33500e-08_rb,5.39500e-08_rb,5.45445e-08_rb, &
+      5.51290e-08_rb,5.57235e-08_rb,5.62955e-08_rb,5.68800e-08_rb,5.74620e-08_rb, &
+      5.80425e-08_rb,5.86145e-08_rb,5.91810e-08_rb,5.97435e-08_rb,6.03075e-08_rb, &
+      6.08625e-08_rb,6.14135e-08_rb,6.19775e-08_rb,6.25185e-08_rb,6.30675e-08_rb, &
+      6.36145e-08_rb,6.41535e-08_rb,6.46920e-08_rb,6.52265e-08_rb,6.57470e-08_rb, &
+      6.62815e-08_rb,6.68000e-08_rb,6.73320e-08_rb,6.78550e-08_rb,6.83530e-08_rb, &
+      6.88760e-08_rb,6.93735e-08_rb,6.98790e-08_rb,7.03950e-08_rb,7.08810e-08_rb, &
+      7.13815e-08_rb,7.18795e-08_rb,7.23415e-08_rb,7.28505e-08_rb,7.33285e-08_rb, &
+      7.38075e-08_rb,7.42675e-08_rb,7.47605e-08_rb,7.52380e-08_rb,7.57020e-08_rb/)
+      totplnkderiv(51:100,  2) = (/ &
+      7.61495e-08_rb,7.65955e-08_rb,7.70565e-08_rb,7.75185e-08_rb,7.79735e-08_rb, &
+      7.83915e-08_rb,7.88625e-08_rb,7.93215e-08_rb,7.97425e-08_rb,8.02195e-08_rb, &
+      8.05905e-08_rb,8.10335e-08_rb,8.14770e-08_rb,8.19025e-08_rb,8.22955e-08_rb, &
+      8.27115e-08_rb,8.31165e-08_rb,8.35645e-08_rb,8.39440e-08_rb,8.43785e-08_rb, &
+      8.47380e-08_rb,8.51495e-08_rb,8.55405e-08_rb,8.59720e-08_rb,8.63135e-08_rb, &
+      8.67065e-08_rb,8.70930e-08_rb,8.74545e-08_rb,8.78780e-08_rb,8.82160e-08_rb, &
+      8.85625e-08_rb,8.89850e-08_rb,8.93395e-08_rb,8.97080e-08_rb,9.00675e-08_rb, &
+      9.04085e-08_rb,9.07360e-08_rb,9.11315e-08_rb,9.13815e-08_rb,9.18320e-08_rb, &
+      9.21500e-08_rb,9.24725e-08_rb,9.28640e-08_rb,9.31955e-08_rb,9.35185e-08_rb, &
+      9.38645e-08_rb,9.41780e-08_rb,9.45465e-08_rb,9.48470e-08_rb,9.51375e-08_rb/)
+      totplnkderiv(101:150,  2) = (/ &
+      9.55245e-08_rb,9.57925e-08_rb,9.61195e-08_rb,9.64750e-08_rb,9.68110e-08_rb, &
+      9.71715e-08_rb,9.74150e-08_rb,9.77250e-08_rb,9.79600e-08_rb,9.82600e-08_rb, &
+      9.85300e-08_rb,9.88400e-08_rb,9.91600e-08_rb,9.95350e-08_rb,9.97500e-08_rb, &
+      1.00090e-07_rb,1.00370e-07_rb,1.00555e-07_rb,1.00935e-07_rb,1.01275e-07_rb, &
+      1.01400e-07_rb,1.01790e-07_rb,1.01945e-07_rb,1.02225e-07_rb,1.02585e-07_rb, &
+      1.02895e-07_rb,1.03010e-07_rb,1.03285e-07_rb,1.03540e-07_rb,1.03890e-07_rb, &
+      1.04015e-07_rb,1.04420e-07_rb,1.04640e-07_rb,1.04810e-07_rb,1.05090e-07_rb, &
+      1.05385e-07_rb,1.05600e-07_rb,1.05965e-07_rb,1.06050e-07_rb,1.06385e-07_rb, &
+      1.06390e-07_rb,1.06795e-07_rb,1.06975e-07_rb,1.07240e-07_rb,1.07435e-07_rb, &
+      1.07815e-07_rb,1.07960e-07_rb,1.08010e-07_rb,1.08535e-07_rb,1.08670e-07_rb/)
+      totplnkderiv(151:181,  2) = (/ &
+      1.08855e-07_rb,1.09210e-07_rb,1.09195e-07_rb,1.09510e-07_rb,1.09665e-07_rb, &
+      1.09885e-07_rb,1.10130e-07_rb,1.10440e-07_rb,1.10640e-07_rb,1.10760e-07_rb, &
+      1.11125e-07_rb,1.11195e-07_rb,1.11345e-07_rb,1.11710e-07_rb,1.11765e-07_rb, &
+      1.11960e-07_rb,1.12225e-07_rb,1.12460e-07_rb,1.12595e-07_rb,1.12730e-07_rb, &
+      1.12880e-07_rb,1.13295e-07_rb,1.13215e-07_rb,1.13505e-07_rb,1.13665e-07_rb, &
+      1.13870e-07_rb,1.14025e-07_rb,1.14325e-07_rb,1.14495e-07_rb,1.14605e-07_rb, &
+      1.14905e-07_rb/)
+      totplnkderiv(1:50, 3) = (/ &
+      4.27040e-08_rb,4.35430e-08_rb,4.43810e-08_rb,4.52210e-08_rb,4.60630e-08_rb, &
+      4.69135e-08_rb,4.77585e-08_rb,4.86135e-08_rb,4.94585e-08_rb,5.03230e-08_rb, &
+      5.11740e-08_rb,5.20250e-08_rb,5.28940e-08_rb,5.37465e-08_rb,5.46175e-08_rb, &
+      5.54700e-08_rb,5.63430e-08_rb,5.72085e-08_rb,5.80735e-08_rb,5.89430e-08_rb, &
+      5.98015e-08_rb,6.06680e-08_rb,6.15380e-08_rb,6.24130e-08_rb,6.32755e-08_rb, &
+      6.41340e-08_rb,6.50060e-08_rb,6.58690e-08_rb,6.67315e-08_rb,6.76025e-08_rb, &
+      6.84585e-08_rb,6.93205e-08_rb,7.01845e-08_rb,7.10485e-08_rb,7.19160e-08_rb, &
+      7.27695e-08_rb,7.36145e-08_rb,7.44840e-08_rb,7.53405e-08_rb,7.61770e-08_rb, &
+      7.70295e-08_rb,7.78745e-08_rb,7.87350e-08_rb,7.95740e-08_rb,8.04150e-08_rb, &
+      8.12565e-08_rb,8.20885e-08_rb,8.29455e-08_rb,8.37830e-08_rb,8.46035e-08_rb/)
+      totplnkderiv(51:100, 3) = (/ &
+      8.54315e-08_rb,8.62770e-08_rb,8.70975e-08_rb,8.79140e-08_rb,8.87190e-08_rb, &
+      8.95625e-08_rb,9.03625e-08_rb,9.11795e-08_rb,9.19930e-08_rb,9.27685e-08_rb, &
+      9.36095e-08_rb,9.43785e-08_rb,9.52375e-08_rb,9.59905e-08_rb,9.67680e-08_rb, &
+      9.75840e-08_rb,9.83755e-08_rb,9.91710e-08_rb,9.99445e-08_rb,1.00706e-07_rb, &
+      1.01477e-07_rb,1.02255e-07_rb,1.03021e-07_rb,1.03776e-07_rb,1.04544e-07_rb, &
+      1.05338e-07_rb,1.06082e-07_rb,1.06843e-07_rb,1.07543e-07_rb,1.08298e-07_rb, &
+      1.09103e-07_rb,1.09812e-07_rb,1.10536e-07_rb,1.11268e-07_rb,1.12027e-07_rb, &
+      1.12727e-07_rb,1.13464e-07_rb,1.14183e-07_rb,1.15037e-07_rb,1.15615e-07_rb, &
+      1.16329e-07_rb,1.17057e-07_rb,1.17734e-07_rb,1.18448e-07_rb,1.19149e-07_rb, &
+      1.19835e-07_rb,1.20512e-07_rb,1.21127e-07_rb,1.21895e-07_rb,1.22581e-07_rb/)
+      totplnkderiv(101:150, 3) = (/ &
+      1.23227e-07_rb,1.23928e-07_rb,1.24560e-07_rb,1.25220e-07_rb,1.25895e-07_rb, &
+      1.26565e-07_rb,1.27125e-07_rb,1.27855e-07_rb,1.28490e-07_rb,1.29195e-07_rb, &
+      1.29790e-07_rb,1.30470e-07_rb,1.31070e-07_rb,1.31690e-07_rb,1.32375e-07_rb, &
+      1.32960e-07_rb,1.33570e-07_rb,1.34230e-07_rb,1.34840e-07_rb,1.35315e-07_rb, &
+      1.35990e-07_rb,1.36555e-07_rb,1.37265e-07_rb,1.37945e-07_rb,1.38425e-07_rb, &
+      1.38950e-07_rb,1.39640e-07_rb,1.40220e-07_rb,1.40775e-07_rb,1.41400e-07_rb, &
+      1.42020e-07_rb,1.42500e-07_rb,1.43085e-07_rb,1.43680e-07_rb,1.44255e-07_rb, &
+      1.44855e-07_rb,1.45385e-07_rb,1.45890e-07_rb,1.46430e-07_rb,1.46920e-07_rb, &
+      1.47715e-07_rb,1.48090e-07_rb,1.48695e-07_rb,1.49165e-07_rb,1.49715e-07_rb, &
+      1.50130e-07_rb,1.50720e-07_rb,1.51330e-07_rb,1.51725e-07_rb,1.52350e-07_rb/)
+      totplnkderiv(151:181, 3) = (/ &
+      1.52965e-07_rb,1.53305e-07_rb,1.53915e-07_rb,1.54280e-07_rb,1.54950e-07_rb, &
+      1.55370e-07_rb,1.55850e-07_rb,1.56260e-07_rb,1.56825e-07_rb,1.57470e-07_rb, &
+      1.57760e-07_rb,1.58295e-07_rb,1.58780e-07_rb,1.59470e-07_rb,1.59940e-07_rb, &
+      1.60325e-07_rb,1.60825e-07_rb,1.61100e-07_rb,1.61605e-07_rb,1.62045e-07_rb, &
+      1.62670e-07_rb,1.63020e-07_rb,1.63625e-07_rb,1.63900e-07_rb,1.64420e-07_rb, &
+      1.64705e-07_rb,1.65430e-07_rb,1.65610e-07_rb,1.66220e-07_rb,1.66585e-07_rb, &
+      1.66965e-07_rb/)
+      totplnkderiv(1:50, 4) = (/ &
+      3.32829e-08_rb,3.41160e-08_rb,3.49626e-08_rb,3.58068e-08_rb,3.66765e-08_rb, &
+      3.75320e-08_rb,3.84095e-08_rb,3.92920e-08_rb,4.01830e-08_rb,4.10715e-08_rb, &
+      4.19735e-08_rb,4.28835e-08_rb,4.37915e-08_rb,4.47205e-08_rb,4.56410e-08_rb, &
+      4.65770e-08_rb,4.75090e-08_rb,4.84530e-08_rb,4.93975e-08_rb,5.03470e-08_rb, &
+      5.13000e-08_rb,5.22560e-08_rb,5.32310e-08_rb,5.41865e-08_rb,5.51655e-08_rb, &
+      5.61590e-08_rb,5.71120e-08_rb,5.81075e-08_rb,5.91060e-08_rb,6.00895e-08_rb, &
+      6.10750e-08_rb,6.20740e-08_rb,6.30790e-08_rb,6.40765e-08_rb,6.50940e-08_rb, &
+      6.60895e-08_rb,6.71230e-08_rb,6.81200e-08_rb,6.91260e-08_rb,7.01485e-08_rb, &
+      7.11625e-08_rb,7.21870e-08_rb,7.32010e-08_rb,7.42080e-08_rb,7.52285e-08_rb, &
+      7.62930e-08_rb,7.73040e-08_rb,7.83185e-08_rb,7.93410e-08_rb,8.03560e-08_rb/)
+      totplnkderiv(51:100, 4) = (/ &
+      8.14115e-08_rb,8.24200e-08_rb,8.34555e-08_rb,8.45100e-08_rb,8.55265e-08_rb, &
+      8.65205e-08_rb,8.75615e-08_rb,8.85870e-08_rb,8.96175e-08_rb,9.07015e-08_rb, &
+      9.16475e-08_rb,9.27525e-08_rb,9.37055e-08_rb,9.47375e-08_rb,9.57995e-08_rb, &
+      9.67635e-08_rb,9.77980e-08_rb,9.87735e-08_rb,9.98485e-08_rb,1.00904e-07_rb, &
+      1.01900e-07_rb,1.02876e-07_rb,1.03905e-07_rb,1.04964e-07_rb,1.05956e-07_rb, &
+      1.06870e-07_rb,1.07952e-07_rb,1.08944e-07_rb,1.10003e-07_rb,1.10965e-07_rb, &
+      1.11952e-07_rb,1.12927e-07_rb,1.13951e-07_rb,1.14942e-07_rb,1.15920e-07_rb, &
+      1.16968e-07_rb,1.17877e-07_rb,1.18930e-07_rb,1.19862e-07_rb,1.20817e-07_rb, &
+      1.21817e-07_rb,1.22791e-07_rb,1.23727e-07_rb,1.24751e-07_rb,1.25697e-07_rb, &
+      1.26634e-07_rb,1.27593e-07_rb,1.28585e-07_rb,1.29484e-07_rb,1.30485e-07_rb/)
+      totplnkderiv(101:150, 4) = (/ &
+      1.31363e-07_rb,1.32391e-07_rb,1.33228e-07_rb,1.34155e-07_rb,1.35160e-07_rb, &
+      1.36092e-07_rb,1.37070e-07_rb,1.37966e-07_rb,1.38865e-07_rb,1.39740e-07_rb, &
+      1.40770e-07_rb,1.41620e-07_rb,1.42605e-07_rb,1.43465e-07_rb,1.44240e-07_rb, &
+      1.45305e-07_rb,1.46220e-07_rb,1.47070e-07_rb,1.47935e-07_rb,1.48890e-07_rb, &
+      1.49905e-07_rb,1.50640e-07_rb,1.51435e-07_rb,1.52335e-07_rb,1.53235e-07_rb, &
+      1.54045e-07_rb,1.54895e-07_rb,1.55785e-07_rb,1.56870e-07_rb,1.57360e-07_rb, &
+      1.58395e-07_rb,1.59185e-07_rb,1.60060e-07_rb,1.60955e-07_rb,1.61770e-07_rb, &
+      1.62445e-07_rb,1.63415e-07_rb,1.64170e-07_rb,1.65125e-07_rb,1.65995e-07_rb, &
+      1.66545e-07_rb,1.67580e-07_rb,1.68295e-07_rb,1.69130e-07_rb,1.69935e-07_rb, &
+      1.70800e-07_rb,1.71610e-07_rb,1.72365e-07_rb,1.73215e-07_rb,1.73770e-07_rb/)
+      totplnkderiv(151:181, 4) = (/ &
+      1.74590e-07_rb,1.75525e-07_rb,1.76095e-07_rb,1.77125e-07_rb,1.77745e-07_rb, &
+      1.78580e-07_rb,1.79315e-07_rb,1.80045e-07_rb,1.80695e-07_rb,1.81580e-07_rb, &
+      1.82360e-07_rb,1.83205e-07_rb,1.84055e-07_rb,1.84315e-07_rb,1.85225e-07_rb, &
+      1.85865e-07_rb,1.86660e-07_rb,1.87445e-07_rb,1.88350e-07_rb,1.88930e-07_rb, &
+      1.89420e-07_rb,1.90275e-07_rb,1.90630e-07_rb,1.91650e-07_rb,1.92485e-07_rb, &
+      1.93285e-07_rb,1.93695e-07_rb,1.94595e-07_rb,1.94895e-07_rb,1.95960e-07_rb, &
+      1.96525e-07_rb/)
+      totplnkderiv(1:50, 5) = (/ &
+      2.41948e-08_rb,2.49273e-08_rb,2.56705e-08_rb,2.64263e-08_rb,2.71899e-08_rb, &
+      2.79687e-08_rb,2.87531e-08_rb,2.95520e-08_rb,3.03567e-08_rb,3.11763e-08_rb, &
+      3.20014e-08_rb,3.28390e-08_rb,3.36865e-08_rb,3.45395e-08_rb,3.54083e-08_rb, &
+      3.62810e-08_rb,3.71705e-08_rb,3.80585e-08_rb,3.89650e-08_rb,3.98750e-08_rb, &
+      4.07955e-08_rb,4.17255e-08_rb,4.26635e-08_rb,4.36095e-08_rb,4.45605e-08_rb, &
+      4.55190e-08_rb,4.64910e-08_rb,4.74670e-08_rb,4.84480e-08_rb,4.94430e-08_rb, &
+      5.04460e-08_rb,5.14440e-08_rb,5.24500e-08_rb,5.34835e-08_rb,5.44965e-08_rb, &
+      5.55325e-08_rb,5.65650e-08_rb,5.76050e-08_rb,5.86615e-08_rb,5.97175e-08_rb, &
+      6.07750e-08_rb,6.18400e-08_rb,6.29095e-08_rb,6.39950e-08_rb,6.50665e-08_rb, &
+      6.61405e-08_rb,6.72290e-08_rb,6.82800e-08_rb,6.94445e-08_rb,7.05460e-08_rb/)
+      totplnkderiv(51:100, 5) = (/ &
+      7.16400e-08_rb,7.27475e-08_rb,7.38790e-08_rb,7.49845e-08_rb,7.61270e-08_rb, &
+      7.72375e-08_rb,7.83770e-08_rb,7.95045e-08_rb,8.06315e-08_rb,8.17715e-08_rb, &
+      8.29275e-08_rb,8.40555e-08_rb,8.52110e-08_rb,8.63565e-08_rb,8.75045e-08_rb, &
+      8.86735e-08_rb,8.98150e-08_rb,9.09970e-08_rb,9.21295e-08_rb,9.32730e-08_rb, &
+      9.44605e-08_rb,9.56170e-08_rb,9.67885e-08_rb,9.79275e-08_rb,9.91190e-08_rb, &
+      1.00278e-07_rb,1.01436e-07_rb,1.02625e-07_rb,1.03792e-07_rb,1.04989e-07_rb, &
+      1.06111e-07_rb,1.07320e-07_rb,1.08505e-07_rb,1.09626e-07_rb,1.10812e-07_rb, &
+      1.11948e-07_rb,1.13162e-07_rb,1.14289e-07_rb,1.15474e-07_rb,1.16661e-07_rb, &
+      1.17827e-07_rb,1.19023e-07_rb,1.20167e-07_rb,1.21356e-07_rb,1.22499e-07_rb, &
+      1.23653e-07_rb,1.24876e-07_rb,1.25983e-07_rb,1.27175e-07_rb,1.28325e-07_rb/)
+      totplnkderiv(101:150, 5) = (/ &
+      1.29517e-07_rb,1.30685e-07_rb,1.31840e-07_rb,1.33013e-07_rb,1.34160e-07_rb, &
+      1.35297e-07_rb,1.36461e-07_rb,1.37630e-07_rb,1.38771e-07_rb,1.39913e-07_rb, &
+      1.41053e-07_rb,1.42218e-07_rb,1.43345e-07_rb,1.44460e-07_rb,1.45692e-07_rb, &
+      1.46697e-07_rb,1.47905e-07_rb,1.49010e-07_rb,1.50210e-07_rb,1.51285e-07_rb, &
+      1.52380e-07_rb,1.53555e-07_rb,1.54655e-07_rb,1.55805e-07_rb,1.56850e-07_rb, &
+      1.58055e-07_rb,1.59115e-07_rb,1.60185e-07_rb,1.61255e-07_rb,1.62465e-07_rb, &
+      1.63575e-07_rb,1.64675e-07_rb,1.65760e-07_rb,1.66765e-07_rb,1.67945e-07_rb, &
+      1.69070e-07_rb,1.70045e-07_rb,1.71145e-07_rb,1.72260e-07_rb,1.73290e-07_rb, &
+      1.74470e-07_rb,1.75490e-07_rb,1.76515e-07_rb,1.77555e-07_rb,1.78660e-07_rb, &
+      1.79670e-07_rb,1.80705e-07_rb,1.81895e-07_rb,1.82745e-07_rb,1.83950e-07_rb/)
+      totplnkderiv(151:181, 5) = (/ &
+      1.84955e-07_rb,1.85940e-07_rb,1.87080e-07_rb,1.88010e-07_rb,1.89145e-07_rb, &
+      1.90130e-07_rb,1.91110e-07_rb,1.92130e-07_rb,1.93205e-07_rb,1.94230e-07_rb, &
+      1.95045e-07_rb,1.96070e-07_rb,1.97155e-07_rb,1.98210e-07_rb,1.99080e-07_rb, &
+      2.00280e-07_rb,2.01135e-07_rb,2.02150e-07_rb,2.03110e-07_rb,2.04135e-07_rb, &
+      2.05110e-07_rb,2.06055e-07_rb,2.07120e-07_rb,2.08075e-07_rb,2.08975e-07_rb, &
+      2.09950e-07_rb,2.10870e-07_rb,2.11830e-07_rb,2.12960e-07_rb,2.13725e-07_rb, &
+      2.14765e-07_rb/)
+      totplnkderiv(1:50, 6) = (/ &
+      1.36567e-08_rb,1.41766e-08_rb,1.47079e-08_rb,1.52499e-08_rb,1.58075e-08_rb, &
+      1.63727e-08_rb,1.69528e-08_rb,1.75429e-08_rb,1.81477e-08_rb,1.87631e-08_rb, &
+      1.93907e-08_rb,2.00297e-08_rb,2.06808e-08_rb,2.13432e-08_rb,2.20183e-08_rb, &
+      2.27076e-08_rb,2.34064e-08_rb,2.41181e-08_rb,2.48400e-08_rb,2.55750e-08_rb, &
+      2.63231e-08_rb,2.70790e-08_rb,2.78502e-08_rb,2.86326e-08_rb,2.94259e-08_rb, &
+      3.02287e-08_rb,3.10451e-08_rb,3.18752e-08_rb,3.27108e-08_rb,3.35612e-08_rb, &
+      3.44198e-08_rb,3.52930e-08_rb,3.61785e-08_rb,3.70690e-08_rb,3.79725e-08_rb, &
+      3.88845e-08_rb,3.98120e-08_rb,4.07505e-08_rb,4.16965e-08_rb,4.26515e-08_rb, &
+      4.36190e-08_rb,4.45925e-08_rb,4.55760e-08_rb,4.65735e-08_rb,4.75835e-08_rb, &
+      4.85970e-08_rb,4.96255e-08_rb,5.06975e-08_rb,5.16950e-08_rb,5.27530e-08_rb/)
+      totplnkderiv(51:100, 6) = (/ &
+      5.38130e-08_rb,5.48860e-08_rb,5.59715e-08_rb,5.70465e-08_rb,5.81385e-08_rb, &
+      5.92525e-08_rb,6.03565e-08_rb,6.14815e-08_rb,6.26175e-08_rb,6.37475e-08_rb, &
+      6.48855e-08_rb,6.60340e-08_rb,6.71980e-08_rb,6.83645e-08_rb,6.95430e-08_rb, &
+      7.07145e-08_rb,7.19015e-08_rb,7.30995e-08_rb,7.43140e-08_rb,7.55095e-08_rb, &
+      7.67115e-08_rb,7.79485e-08_rb,7.91735e-08_rb,8.03925e-08_rb,8.16385e-08_rb, &
+      8.28775e-08_rb,8.41235e-08_rb,8.53775e-08_rb,8.66405e-08_rb,8.78940e-08_rb, &
+      8.91805e-08_rb,9.04515e-08_rb,9.17290e-08_rb,9.30230e-08_rb,9.43145e-08_rb, &
+      9.56200e-08_rb,9.69160e-08_rb,9.82140e-08_rb,9.95285e-08_rb,1.00829e-07_rb, &
+      1.02145e-07_rb,1.03478e-07_rb,1.04787e-07_rb,1.06095e-07_rb,1.07439e-07_rb, &
+      1.08785e-07_rb,1.10078e-07_rb,1.11466e-07_rb,1.12795e-07_rb,1.14133e-07_rb/)
+      totplnkderiv(101:150, 6) = (/ &
+      1.15479e-07_rb,1.16825e-07_rb,1.18191e-07_rb,1.19540e-07_rb,1.20908e-07_rb, &
+      1.22257e-07_rb,1.23634e-07_rb,1.24992e-07_rb,1.26345e-07_rb,1.27740e-07_rb, &
+      1.29098e-07_rb,1.30447e-07_rb,1.31831e-07_rb,1.33250e-07_rb,1.34591e-07_rb, &
+      1.36011e-07_rb,1.37315e-07_rb,1.38721e-07_rb,1.40103e-07_rb,1.41504e-07_rb, &
+      1.42882e-07_rb,1.44259e-07_rb,1.45674e-07_rb,1.46997e-07_rb,1.48412e-07_rb, &
+      1.49794e-07_rb,1.51167e-07_rb,1.52577e-07_rb,1.53941e-07_rb,1.55369e-07_rb, &
+      1.56725e-07_rb,1.58125e-07_rb,1.59460e-07_rb,1.60895e-07_rb,1.62260e-07_rb, &
+      1.63610e-07_rb,1.65085e-07_rb,1.66410e-07_rb,1.67805e-07_rb,1.69185e-07_rb, &
+      1.70570e-07_rb,1.71915e-07_rb,1.73375e-07_rb,1.74775e-07_rb,1.76090e-07_rb, &
+      1.77485e-07_rb,1.78905e-07_rb,1.80190e-07_rb,1.81610e-07_rb,1.82960e-07_rb/)
+      totplnkderiv(151:181, 6) = (/ &
+      1.84330e-07_rb,1.85750e-07_rb,1.87060e-07_rb,1.88470e-07_rb,1.89835e-07_rb, &
+      1.91250e-07_rb,1.92565e-07_rb,1.93925e-07_rb,1.95220e-07_rb,1.96620e-07_rb, &
+      1.98095e-07_rb,1.99330e-07_rb,2.00680e-07_rb,2.02090e-07_rb,2.03360e-07_rb, &
+      2.04775e-07_rb,2.06080e-07_rb,2.07440e-07_rb,2.08820e-07_rb,2.10095e-07_rb, &
+      2.11445e-07_rb,2.12785e-07_rb,2.14050e-07_rb,2.15375e-07_rb,2.16825e-07_rb, &
+      2.18080e-07_rb,2.19345e-07_rb,2.20710e-07_rb,2.21980e-07_rb,2.23425e-07_rb, &
+      2.24645e-07_rb/)
+      totplnkderiv(1:50, 7) = (/ &
+      7.22270e-09_rb,7.55350e-09_rb,7.89480e-09_rb,8.24725e-09_rb,8.60780e-09_rb, &
+      8.98215e-09_rb,9.36430e-09_rb,9.76035e-09_rb,1.01652e-08_rb,1.05816e-08_rb, &
+      1.10081e-08_rb,1.14480e-08_rb,1.18981e-08_rb,1.23600e-08_rb,1.28337e-08_rb, &
+      1.33172e-08_rb,1.38139e-08_rb,1.43208e-08_rb,1.48413e-08_rb,1.53702e-08_rb, &
+      1.59142e-08_rb,1.64704e-08_rb,1.70354e-08_rb,1.76178e-08_rb,1.82065e-08_rb, &
+      1.88083e-08_rb,1.94237e-08_rb,2.00528e-08_rb,2.06913e-08_rb,2.13413e-08_rb, &
+      2.20058e-08_rb,2.26814e-08_rb,2.33686e-08_rb,2.40729e-08_rb,2.47812e-08_rb, &
+      2.55099e-08_rb,2.62449e-08_rb,2.69966e-08_rb,2.77569e-08_rb,2.85269e-08_rb, &
+      2.93144e-08_rb,3.01108e-08_rb,3.09243e-08_rb,3.17433e-08_rb,3.25756e-08_rb, &
+      3.34262e-08_rb,3.42738e-08_rb,3.51480e-08_rb,3.60285e-08_rb,3.69160e-08_rb/)
+      totplnkderiv(51:100, 7) = (/ &
+      3.78235e-08_rb,3.87390e-08_rb,3.96635e-08_rb,4.06095e-08_rb,4.15600e-08_rb, &
+      4.25180e-08_rb,4.34895e-08_rb,4.44800e-08_rb,4.54715e-08_rb,4.64750e-08_rb, &
+      4.74905e-08_rb,4.85210e-08_rb,4.95685e-08_rb,5.06135e-08_rb,5.16725e-08_rb, &
+      5.27480e-08_rb,5.38265e-08_rb,5.49170e-08_rb,5.60120e-08_rb,5.71275e-08_rb, &
+      5.82610e-08_rb,5.93775e-08_rb,6.05245e-08_rb,6.17025e-08_rb,6.28355e-08_rb, &
+      6.40135e-08_rb,6.52015e-08_rb,6.63865e-08_rb,6.75790e-08_rb,6.88120e-08_rb, &
+      7.00070e-08_rb,7.12335e-08_rb,7.24720e-08_rb,7.37340e-08_rb,7.49775e-08_rb, &
+      7.62415e-08_rb,7.75185e-08_rb,7.87915e-08_rb,8.00875e-08_rb,8.13630e-08_rb, &
+      8.26710e-08_rb,8.39645e-08_rb,8.53060e-08_rb,8.66305e-08_rb,8.79915e-08_rb, &
+      8.93080e-08_rb,9.06560e-08_rb,9.19860e-08_rb,9.33550e-08_rb,9.47305e-08_rb/)
+      totplnkderiv(101:150, 7) = (/ &
+      9.61180e-08_rb,9.74500e-08_rb,9.88850e-08_rb,1.00263e-07_rb,1.01688e-07_rb, &
+      1.03105e-07_rb,1.04489e-07_rb,1.05906e-07_rb,1.07345e-07_rb,1.08771e-07_rb, &
+      1.10220e-07_rb,1.11713e-07_rb,1.13098e-07_rb,1.14515e-07_rb,1.16019e-07_rb, &
+      1.17479e-07_rb,1.18969e-07_rb,1.20412e-07_rb,1.21852e-07_rb,1.23387e-07_rb, &
+      1.24851e-07_rb,1.26319e-07_rb,1.27811e-07_rb,1.29396e-07_rb,1.30901e-07_rb, &
+      1.32358e-07_rb,1.33900e-07_rb,1.35405e-07_rb,1.36931e-07_rb,1.38443e-07_rb, &
+      1.39985e-07_rb,1.41481e-07_rb,1.43072e-07_rb,1.44587e-07_rb,1.46133e-07_rb, &
+      1.47698e-07_rb,1.49203e-07_rb,1.50712e-07_rb,1.52363e-07_rb,1.53795e-07_rb, &
+      1.55383e-07_rb,1.56961e-07_rb,1.58498e-07_rb,1.60117e-07_rb,1.61745e-07_rb, &
+      1.63190e-07_rb,1.64790e-07_rb,1.66370e-07_rb,1.67975e-07_rb,1.69555e-07_rb/)
+      totplnkderiv(151:181, 7) = (/ &
+      1.71060e-07_rb,1.72635e-07_rb,1.74345e-07_rb,1.75925e-07_rb,1.77395e-07_rb, &
+      1.78960e-07_rb,1.80620e-07_rb,1.82180e-07_rb,1.83840e-07_rb,1.85340e-07_rb, &
+      1.86940e-07_rb,1.88550e-07_rb,1.90095e-07_rb,1.91670e-07_rb,1.93385e-07_rb, &
+      1.94895e-07_rb,1.96500e-07_rb,1.98090e-07_rb,1.99585e-07_rb,2.01280e-07_rb, &
+      2.02950e-07_rb,2.04455e-07_rb,2.06075e-07_rb,2.07635e-07_rb,2.09095e-07_rb, &
+      2.10865e-07_rb,2.12575e-07_rb,2.14050e-07_rb,2.15630e-07_rb,2.17060e-07_rb, &
+      2.18715e-07_rb/)
+      totplnkderiv(1:50, 8) = (/ &
+      4.26397e-09_rb,4.48470e-09_rb,4.71299e-09_rb,4.94968e-09_rb,5.19542e-09_rb, &
+      5.44847e-09_rb,5.71195e-09_rb,5.98305e-09_rb,6.26215e-09_rb,6.55290e-09_rb, &
+      6.85190e-09_rb,7.15950e-09_rb,7.47745e-09_rb,7.80525e-09_rb,8.14190e-09_rb, &
+      8.48915e-09_rb,8.84680e-09_rb,9.21305e-09_rb,9.59105e-09_rb,9.98130e-09_rb, &
+      1.03781e-08_rb,1.07863e-08_rb,1.12094e-08_rb,1.16371e-08_rb,1.20802e-08_rb, &
+      1.25327e-08_rb,1.29958e-08_rb,1.34709e-08_rb,1.39592e-08_rb,1.44568e-08_rb, &
+      1.49662e-08_rb,1.54828e-08_rb,1.60186e-08_rb,1.65612e-08_rb,1.71181e-08_rb, &
+      1.76822e-08_rb,1.82591e-08_rb,1.88487e-08_rb,1.94520e-08_rb,2.00691e-08_rb, &
+      2.06955e-08_rb,2.13353e-08_rb,2.19819e-08_rb,2.26479e-08_rb,2.33234e-08_rb, &
+      2.40058e-08_rb,2.47135e-08_rb,2.54203e-08_rb,2.61414e-08_rb,2.68778e-08_rb/)
+      totplnkderiv(51:100, 8) = (/ &
+      2.76265e-08_rb,2.83825e-08_rb,2.91632e-08_rb,2.99398e-08_rb,3.07389e-08_rb, &
+      3.15444e-08_rb,3.23686e-08_rb,3.31994e-08_rb,3.40487e-08_rb,3.49020e-08_rb, &
+      3.57715e-08_rb,3.66515e-08_rb,3.75465e-08_rb,3.84520e-08_rb,3.93675e-08_rb, &
+      4.02985e-08_rb,4.12415e-08_rb,4.21965e-08_rb,4.31630e-08_rb,4.41360e-08_rb, &
+      4.51220e-08_rb,4.61235e-08_rb,4.71440e-08_rb,4.81515e-08_rb,4.91905e-08_rb, &
+      5.02395e-08_rb,5.12885e-08_rb,5.23735e-08_rb,5.34460e-08_rb,5.45245e-08_rb, &
+      5.56375e-08_rb,5.67540e-08_rb,5.78780e-08_rb,5.90065e-08_rb,6.01520e-08_rb, &
+      6.13000e-08_rb,6.24720e-08_rb,6.36530e-08_rb,6.48500e-08_rb,6.60500e-08_rb, &
+      6.72435e-08_rb,6.84735e-08_rb,6.97025e-08_rb,7.09530e-08_rb,7.21695e-08_rb, &
+      7.34270e-08_rb,7.47295e-08_rb,7.59915e-08_rb,7.72685e-08_rb,7.85925e-08_rb/)
+      totplnkderiv(101:150, 8) = (/ &
+      7.98855e-08_rb,8.12205e-08_rb,8.25120e-08_rb,8.38565e-08_rb,8.52005e-08_rb, &
+      8.65570e-08_rb,8.79075e-08_rb,8.92920e-08_rb,9.06535e-08_rb,9.20455e-08_rb, &
+      9.34230e-08_rb,9.48355e-08_rb,9.62720e-08_rb,9.76890e-08_rb,9.90755e-08_rb, &
+      1.00528e-07_rb,1.01982e-07_rb,1.03436e-07_rb,1.04919e-07_rb,1.06368e-07_rb, &
+      1.07811e-07_rb,1.09326e-07_rb,1.10836e-07_rb,1.12286e-07_rb,1.13803e-07_rb, &
+      1.15326e-07_rb,1.16809e-07_rb,1.18348e-07_rb,1.19876e-07_rb,1.21413e-07_rb, &
+      1.22922e-07_rb,1.24524e-07_rb,1.26049e-07_rb,1.27573e-07_rb,1.29155e-07_rb, &
+      1.30708e-07_rb,1.32327e-07_rb,1.33958e-07_rb,1.35480e-07_rb,1.37081e-07_rb, &
+      1.38716e-07_rb,1.40326e-07_rb,1.41872e-07_rb,1.43468e-07_rb,1.45092e-07_rb, &
+      1.46806e-07_rb,1.48329e-07_rb,1.49922e-07_rb,1.51668e-07_rb,1.53241e-07_rb/)
+      totplnkderiv(151:181, 8) = (/ &
+      1.54996e-07_rb,1.56561e-07_rb,1.58197e-07_rb,1.59884e-07_rb,1.61576e-07_rb, &
+      1.63200e-07_rb,1.64885e-07_rb,1.66630e-07_rb,1.68275e-07_rb,1.69935e-07_rb, &
+      1.71650e-07_rb,1.73245e-07_rb,1.75045e-07_rb,1.76710e-07_rb,1.78330e-07_rb, &
+      1.79995e-07_rb,1.81735e-07_rb,1.83470e-07_rb,1.85200e-07_rb,1.86890e-07_rb, &
+      1.88595e-07_rb,1.90300e-07_rb,1.91995e-07_rb,1.93715e-07_rb,1.95495e-07_rb, &
+      1.97130e-07_rb,1.98795e-07_rb,2.00680e-07_rb,2.02365e-07_rb,2.04090e-07_rb, &
+      2.05830e-07_rb/)
+      totplnkderiv(1:50, 9) = (/ &
+      1.85410e-09_rb,1.96515e-09_rb,2.08117e-09_rb,2.20227e-09_rb,2.32861e-09_rb, &
+      2.46066e-09_rb,2.59812e-09_rb,2.74153e-09_rb,2.89058e-09_rb,3.04567e-09_rb, &
+      3.20674e-09_rb,3.37442e-09_rb,3.54854e-09_rb,3.72892e-09_rb,3.91630e-09_rb, &
+      4.11013e-09_rb,4.31150e-09_rb,4.52011e-09_rb,4.73541e-09_rb,4.95870e-09_rb, &
+      5.18913e-09_rb,5.42752e-09_rb,5.67340e-09_rb,5.92810e-09_rb,6.18995e-09_rb, &
+      6.46055e-09_rb,6.73905e-09_rb,7.02620e-09_rb,7.32260e-09_rb,7.62700e-09_rb, &
+      7.94050e-09_rb,8.26370e-09_rb,8.59515e-09_rb,8.93570e-09_rb,9.28535e-09_rb, &
+      9.64575e-09_rb,1.00154e-08_rb,1.03944e-08_rb,1.07839e-08_rb,1.11832e-08_rb, &
+      1.15909e-08_rb,1.20085e-08_rb,1.24399e-08_rb,1.28792e-08_rb,1.33280e-08_rb, &
+      1.37892e-08_rb,1.42573e-08_rb,1.47408e-08_rb,1.52345e-08_rb,1.57371e-08_rb/)
+      totplnkderiv(51:100, 9) = (/ &
+      1.62496e-08_rb,1.67756e-08_rb,1.73101e-08_rb,1.78596e-08_rb,1.84161e-08_rb, &
+      1.89869e-08_rb,1.95681e-08_rb,2.01632e-08_rb,2.07626e-08_rb,2.13800e-08_rb, &
+      2.20064e-08_rb,2.26453e-08_rb,2.32970e-08_rb,2.39595e-08_rb,2.46340e-08_rb, &
+      2.53152e-08_rb,2.60158e-08_rb,2.67235e-08_rb,2.74471e-08_rb,2.81776e-08_rb, &
+      2.89233e-08_rb,2.96822e-08_rb,3.04488e-08_rb,3.12298e-08_rb,3.20273e-08_rb, &
+      3.28304e-08_rb,3.36455e-08_rb,3.44765e-08_rb,3.53195e-08_rb,3.61705e-08_rb, &
+      3.70385e-08_rb,3.79155e-08_rb,3.88065e-08_rb,3.97055e-08_rb,4.06210e-08_rb, &
+      4.15490e-08_rb,4.24825e-08_rb,4.34355e-08_rb,4.43920e-08_rb,4.53705e-08_rb, &
+      4.63560e-08_rb,4.73565e-08_rb,4.83655e-08_rb,4.93815e-08_rb,5.04180e-08_rb, &
+      5.14655e-08_rb,5.25175e-08_rb,5.35865e-08_rb,5.46720e-08_rb,5.57670e-08_rb/)
+      totplnkderiv(101:150, 9) = (/ &
+      5.68640e-08_rb,5.79825e-08_rb,5.91140e-08_rb,6.02515e-08_rb,6.13985e-08_rb, &
+      6.25525e-08_rb,6.37420e-08_rb,6.49220e-08_rb,6.61145e-08_rb,6.73185e-08_rb, &
+      6.85520e-08_rb,6.97760e-08_rb,7.10050e-08_rb,7.22650e-08_rb,7.35315e-08_rb, &
+      7.48035e-08_rb,7.60745e-08_rb,7.73740e-08_rb,7.86870e-08_rb,7.99845e-08_rb, &
+      8.13325e-08_rb,8.26615e-08_rb,8.40010e-08_rb,8.53640e-08_rb,8.67235e-08_rb, &
+      8.80960e-08_rb,8.95055e-08_rb,9.08945e-08_rb,9.23045e-08_rb,9.37100e-08_rb, &
+      9.51555e-08_rb,9.65630e-08_rb,9.80235e-08_rb,9.94920e-08_rb,1.00966e-07_rb, &
+      1.02434e-07_rb,1.03898e-07_rb,1.05386e-07_rb,1.06905e-07_rb,1.08418e-07_rb, &
+      1.09926e-07_rb,1.11454e-07_rb,1.13010e-07_rb,1.14546e-07_rb,1.16106e-07_rb, &
+      1.17652e-07_rb,1.19264e-07_rb,1.20817e-07_rb,1.22395e-07_rb,1.24024e-07_rb/)
+      totplnkderiv(151:181, 9) = (/ &
+      1.25585e-07_rb,1.27213e-07_rb,1.28817e-07_rb,1.30472e-07_rb,1.32088e-07_rb, &
+      1.33752e-07_rb,1.35367e-07_rb,1.37018e-07_rb,1.38698e-07_rb,1.40394e-07_rb, &
+      1.42026e-07_rb,1.43796e-07_rb,1.45438e-07_rb,1.47175e-07_rb,1.48866e-07_rb, &
+      1.50576e-07_rb,1.52281e-07_rb,1.54018e-07_rb,1.55796e-07_rb,1.57515e-07_rb, &
+      1.59225e-07_rb,1.60989e-07_rb,1.62754e-07_rb,1.64532e-07_rb,1.66285e-07_rb, &
+      1.68070e-07_rb,1.69870e-07_rb,1.71625e-07_rb,1.73440e-07_rb,1.75275e-07_rb, &
+      1.77040e-07_rb/)
+      totplnkderiv(1:50,10) = (/ &
+      7.14917e-10_rb,7.64833e-10_rb,8.17460e-10_rb,8.72980e-10_rb,9.31380e-10_rb, &
+      9.92940e-10_rb,1.05746e-09_rb,1.12555e-09_rb,1.19684e-09_rb,1.27162e-09_rb, &
+      1.35001e-09_rb,1.43229e-09_rb,1.51815e-09_rb,1.60831e-09_rb,1.70271e-09_rb, &
+      1.80088e-09_rb,1.90365e-09_rb,2.01075e-09_rb,2.12261e-09_rb,2.23924e-09_rb, &
+      2.36057e-09_rb,2.48681e-09_rb,2.61814e-09_rb,2.75506e-09_rb,2.89692e-09_rb, &
+      3.04423e-09_rb,3.19758e-09_rb,3.35681e-09_rb,3.52113e-09_rb,3.69280e-09_rb, &
+      3.86919e-09_rb,4.05205e-09_rb,4.24184e-09_rb,4.43877e-09_rb,4.64134e-09_rb, &
+      4.85088e-09_rb,5.06670e-09_rb,5.29143e-09_rb,5.52205e-09_rb,5.75980e-09_rb, &
+      6.00550e-09_rb,6.25840e-09_rb,6.51855e-09_rb,6.78800e-09_rb,7.06435e-09_rb, &
+      7.34935e-09_rb,7.64220e-09_rb,7.94470e-09_rb,8.25340e-09_rb,8.57030e-09_rb/)
+      totplnkderiv(51:100,10) = (/ &
+      8.89680e-09_rb,9.23255e-09_rb,9.57770e-09_rb,9.93045e-09_rb,1.02932e-08_rb, &
+      1.06649e-08_rb,1.10443e-08_rb,1.14348e-08_rb,1.18350e-08_rb,1.22463e-08_rb, &
+      1.26679e-08_rb,1.30949e-08_rb,1.35358e-08_rb,1.39824e-08_rb,1.44425e-08_rb, &
+      1.49126e-08_rb,1.53884e-08_rb,1.58826e-08_rb,1.63808e-08_rb,1.68974e-08_rb, &
+      1.74159e-08_rb,1.79447e-08_rb,1.84886e-08_rb,1.90456e-08_rb,1.96124e-08_rb, &
+      2.01863e-08_rb,2.07737e-08_rb,2.13720e-08_rb,2.19837e-08_rb,2.26044e-08_rb, &
+      2.32396e-08_rb,2.38856e-08_rb,2.45344e-08_rb,2.52055e-08_rb,2.58791e-08_rb, &
+      2.65706e-08_rb,2.72758e-08_rb,2.79852e-08_rb,2.87201e-08_rb,2.94518e-08_rb, &
+      3.02063e-08_rb,3.09651e-08_rb,3.17357e-08_rb,3.25235e-08_rb,3.33215e-08_rb, &
+      3.41285e-08_rb,3.49485e-08_rb,3.57925e-08_rb,3.66330e-08_rb,3.74765e-08_rb/)
+      totplnkderiv(101:150,10) = (/ &
+      3.83675e-08_rb,3.92390e-08_rb,4.01330e-08_rb,4.10340e-08_rb,4.19585e-08_rb, &
+      4.28815e-08_rb,4.38210e-08_rb,4.47770e-08_rb,4.57575e-08_rb,4.67325e-08_rb, &
+      4.77170e-08_rb,4.87205e-08_rb,4.97410e-08_rb,5.07620e-08_rb,5.18180e-08_rb, &
+      5.28540e-08_rb,5.39260e-08_rb,5.50035e-08_rb,5.60885e-08_rb,5.71900e-08_rb, &
+      5.82940e-08_rb,5.94380e-08_rb,6.05690e-08_rb,6.17185e-08_rb,6.28860e-08_rb, &
+      6.40670e-08_rb,6.52300e-08_rb,6.64225e-08_rb,6.76485e-08_rb,6.88715e-08_rb, &
+      7.00750e-08_rb,7.13760e-08_rb,7.25910e-08_rb,7.38860e-08_rb,7.51290e-08_rb, &
+      7.64420e-08_rb,7.77550e-08_rb,7.90725e-08_rb,8.03825e-08_rb,8.17330e-08_rb, &
+      8.30810e-08_rb,8.44330e-08_rb,8.57720e-08_rb,8.72115e-08_rb,8.85800e-08_rb, &
+      8.99945e-08_rb,9.13905e-08_rb,9.28345e-08_rb,9.42665e-08_rb,9.56765e-08_rb/)
+      totplnkderiv(151:181,10) = (/ &
+      9.72000e-08_rb,9.86780e-08_rb,1.00105e-07_rb,1.01616e-07_rb,1.03078e-07_rb, &
+      1.04610e-07_rb,1.06154e-07_rb,1.07639e-07_rb,1.09242e-07_rb,1.10804e-07_rb, &
+      1.12384e-07_rb,1.13871e-07_rb,1.15478e-07_rb,1.17066e-07_rb,1.18703e-07_rb, &
+      1.20294e-07_rb,1.21930e-07_rb,1.23543e-07_rb,1.25169e-07_rb,1.26806e-07_rb, &
+      1.28503e-07_rb,1.30233e-07_rb,1.31834e-07_rb,1.33596e-07_rb,1.35283e-07_rb, &
+      1.36947e-07_rb,1.38594e-07_rb,1.40362e-07_rb,1.42131e-07_rb,1.43823e-07_rb, &
+      1.45592e-07_rb/)
+      totplnkderiv(1:50,11) = (/ &
+      2.25919e-10_rb,2.43810e-10_rb,2.62866e-10_rb,2.83125e-10_rb,3.04676e-10_rb, &
+      3.27536e-10_rb,3.51796e-10_rb,3.77498e-10_rb,4.04714e-10_rb,4.33528e-10_rb, &
+      4.64000e-10_rb,4.96185e-10_rb,5.30165e-10_rb,5.65999e-10_rb,6.03749e-10_rb, &
+      6.43579e-10_rb,6.85479e-10_rb,7.29517e-10_rb,7.75810e-10_rb,8.24440e-10_rb, &
+      8.75520e-10_rb,9.29065e-10_rb,9.85175e-10_rb,1.04405e-09_rb,1.10562e-09_rb, &
+      1.17005e-09_rb,1.23742e-09_rb,1.30780e-09_rb,1.38141e-09_rb,1.45809e-09_rb, &
+      1.53825e-09_rb,1.62177e-09_rb,1.70884e-09_rb,1.79942e-09_rb,1.89390e-09_rb, &
+      1.99205e-09_rb,2.09429e-09_rb,2.20030e-09_rb,2.31077e-09_rb,2.42510e-09_rb, &
+      2.54410e-09_rb,2.66754e-09_rb,2.79529e-09_rb,2.92777e-09_rb,3.06498e-09_rb, &
+      3.20691e-09_rb,3.35450e-09_rb,3.50653e-09_rb,3.66427e-09_rb,3.82723e-09_rb/)
+      totplnkderiv(51:100,11) = (/ &
+      3.99549e-09_rb,4.16911e-09_rb,4.34892e-09_rb,4.53415e-09_rb,4.72504e-09_rb, &
+      4.92197e-09_rb,5.12525e-09_rb,5.33485e-09_rb,5.55085e-09_rb,5.77275e-09_rb, &
+      6.00105e-09_rb,6.23650e-09_rb,6.47855e-09_rb,6.72735e-09_rb,6.98325e-09_rb, &
+      7.24695e-09_rb,7.51730e-09_rb,7.79480e-09_rb,8.07975e-09_rb,8.37170e-09_rb, &
+      8.67195e-09_rb,8.98050e-09_rb,9.29575e-09_rb,9.61950e-09_rb,9.95150e-09_rb, &
+      1.02912e-08_rb,1.06397e-08_rb,1.09964e-08_rb,1.13611e-08_rb,1.17348e-08_rb, &
+      1.21158e-08_rb,1.25072e-08_rb,1.29079e-08_rb,1.33159e-08_rb,1.37342e-08_rb, &
+      1.41599e-08_rb,1.45966e-08_rb,1.50438e-08_rb,1.54964e-08_rb,1.59605e-08_rb, &
+      1.64337e-08_rb,1.69189e-08_rb,1.74134e-08_rb,1.79136e-08_rb,1.84272e-08_rb, &
+      1.89502e-08_rb,1.94845e-08_rb,2.00248e-08_rb,2.05788e-08_rb,2.11455e-08_rb/)
+      totplnkderiv(101:150,11) = (/ &
+      2.17159e-08_rb,2.23036e-08_rb,2.28983e-08_rb,2.35033e-08_rb,2.41204e-08_rb, &
+      2.47485e-08_rb,2.53860e-08_rb,2.60331e-08_rb,2.66891e-08_rb,2.73644e-08_rb, &
+      2.80440e-08_rb,2.87361e-08_rb,2.94412e-08_rb,3.01560e-08_rb,3.08805e-08_rb, &
+      3.16195e-08_rb,3.23690e-08_rb,3.31285e-08_rb,3.39015e-08_rb,3.46820e-08_rb, &
+      3.54770e-08_rb,3.62805e-08_rb,3.70960e-08_rb,3.79295e-08_rb,3.87715e-08_rb, &
+      3.96185e-08_rb,4.04860e-08_rb,4.13600e-08_rb,4.22500e-08_rb,4.31490e-08_rb, &
+      4.40610e-08_rb,4.49810e-08_rb,4.59205e-08_rb,4.68650e-08_rb,4.78260e-08_rb, &
+      4.87970e-08_rb,4.97790e-08_rb,5.07645e-08_rb,5.17730e-08_rb,5.27960e-08_rb, &
+      5.38285e-08_rb,5.48650e-08_rb,5.59205e-08_rb,5.69960e-08_rb,5.80690e-08_rb, &
+      5.91570e-08_rb,6.02640e-08_rb,6.13750e-08_rb,6.25015e-08_rb,6.36475e-08_rb/)
+      totplnkderiv(151:181,11) = (/ &
+      6.47950e-08_rb,6.59510e-08_rb,6.71345e-08_rb,6.83175e-08_rb,6.95250e-08_rb, &
+      7.07325e-08_rb,7.19490e-08_rb,7.31880e-08_rb,7.44315e-08_rb,7.56880e-08_rb, &
+      7.69500e-08_rb,7.82495e-08_rb,7.95330e-08_rb,8.08450e-08_rb,8.21535e-08_rb, &
+      8.34860e-08_rb,8.48330e-08_rb,8.61795e-08_rb,8.75480e-08_rb,8.89235e-08_rb, &
+      9.03060e-08_rb,9.17045e-08_rb,9.31140e-08_rb,9.45240e-08_rb,9.59720e-08_rb, &
+      9.74140e-08_rb,9.88825e-08_rb,1.00347e-07_rb,1.01825e-07_rb,1.03305e-07_rb, &
+      1.04826e-07_rb/)
+      totplnkderiv(1:50,12) = (/ &
+      2.91689e-11_rb,3.20300e-11_rb,3.51272e-11_rb,3.84803e-11_rb,4.21014e-11_rb, &
+      4.60107e-11_rb,5.02265e-11_rb,5.47685e-11_rb,5.96564e-11_rb,6.49111e-11_rb, &
+      7.05522e-11_rb,7.66060e-11_rb,8.30974e-11_rb,9.00441e-11_rb,9.74820e-11_rb, &
+      1.05435e-10_rb,1.13925e-10_rb,1.22981e-10_rb,1.32640e-10_rb,1.42933e-10_rb, &
+      1.53882e-10_rb,1.65527e-10_rb,1.77903e-10_rb,1.91054e-10_rb,2.05001e-10_rb, &
+      2.19779e-10_rb,2.35448e-10_rb,2.52042e-10_rb,2.69565e-10_rb,2.88128e-10_rb, &
+      3.07714e-10_rb,3.28370e-10_rb,3.50238e-10_rb,3.73235e-10_rb,3.97433e-10_rb, &
+      4.22964e-10_rb,4.49822e-10_rb,4.78042e-10_rb,5.07721e-10_rb,5.38915e-10_rb, &
+      5.71610e-10_rb,6.05916e-10_rb,6.41896e-10_rb,6.79600e-10_rb,7.19110e-10_rb, &
+      7.60455e-10_rb,8.03625e-10_rb,8.48870e-10_rb,8.96080e-10_rb,9.45490e-10_rb/)
+      totplnkderiv(51:100,12) = (/ &
+      9.96930e-10_rb,1.05071e-09_rb,1.10679e-09_rb,1.16521e-09_rb,1.22617e-09_rb, &
+      1.28945e-09_rb,1.35554e-09_rb,1.42427e-09_rb,1.49574e-09_rb,1.56984e-09_rb, &
+      1.64695e-09_rb,1.72715e-09_rb,1.81034e-09_rb,1.89656e-09_rb,1.98613e-09_rb, &
+      2.07898e-09_rb,2.17515e-09_rb,2.27498e-09_rb,2.37826e-09_rb,2.48517e-09_rb, &
+      2.59566e-09_rb,2.71004e-09_rb,2.82834e-09_rb,2.95078e-09_rb,3.07686e-09_rb, &
+      3.20739e-09_rb,3.34232e-09_rb,3.48162e-09_rb,3.62515e-09_rb,3.77337e-09_rb, &
+      3.92614e-09_rb,4.08317e-09_rb,4.24567e-09_rb,4.41272e-09_rb,4.58524e-09_rb, &
+      4.76245e-09_rb,4.94450e-09_rb,5.13235e-09_rb,5.32535e-09_rb,5.52415e-09_rb, &
+      5.72770e-09_rb,5.93815e-09_rb,6.15315e-09_rb,6.37525e-09_rb,6.60175e-09_rb, &
+      6.83485e-09_rb,7.07490e-09_rb,7.32060e-09_rb,7.57225e-09_rb,7.83035e-09_rb/)
+      totplnkderiv(101:150,12) = (/ &
+      8.09580e-09_rb,8.36620e-09_rb,8.64410e-09_rb,8.93110e-09_rb,9.22170e-09_rb, &
+      9.52055e-09_rb,9.82595e-09_rb,1.01399e-08_rb,1.04613e-08_rb,1.07878e-08_rb, &
+      1.11223e-08_rb,1.14667e-08_rb,1.18152e-08_rb,1.21748e-08_rb,1.25410e-08_rb, &
+      1.29147e-08_rb,1.32948e-08_rb,1.36858e-08_rb,1.40827e-08_rb,1.44908e-08_rb, &
+      1.49040e-08_rb,1.53284e-08_rb,1.57610e-08_rb,1.61995e-08_rb,1.66483e-08_rb, &
+      1.71068e-08_rb,1.75714e-08_rb,1.80464e-08_rb,1.85337e-08_rb,1.90249e-08_rb, &
+      1.95309e-08_rb,2.00407e-08_rb,2.05333e-08_rb,2.10929e-08_rb,2.16346e-08_rb, &
+      2.21829e-08_rb,2.27402e-08_rb,2.33112e-08_rb,2.38922e-08_rb,2.44802e-08_rb, &
+      2.50762e-08_rb,2.56896e-08_rb,2.63057e-08_rb,2.69318e-08_rb,2.75705e-08_rb, &
+      2.82216e-08_rb,2.88787e-08_rb,2.95505e-08_rb,3.02335e-08_rb,3.09215e-08_rb/)
+      totplnkderiv(151:181,12) = (/ &
+      3.16235e-08_rb,3.23350e-08_rb,3.30590e-08_rb,3.37960e-08_rb,3.45395e-08_rb, &
+      3.52955e-08_rb,3.60615e-08_rb,3.68350e-08_rb,3.76265e-08_rb,3.84255e-08_rb, &
+      3.92400e-08_rb,4.00485e-08_rb,4.08940e-08_rb,4.17310e-08_rb,4.25860e-08_rb, &
+      4.34585e-08_rb,4.43270e-08_rb,4.52220e-08_rb,4.61225e-08_rb,4.70345e-08_rb, &
+      4.79560e-08_rb,4.89000e-08_rb,4.98445e-08_rb,5.07985e-08_rb,5.17705e-08_rb, &
+      5.27575e-08_rb,5.37420e-08_rb,5.47495e-08_rb,5.57725e-08_rb,5.68105e-08_rb, &
+      5.78395e-08_rb/)
+      totplnkderiv(1:50,13) = (/ &
+      5.47482e-12_rb,6.09637e-12_rb,6.77874e-12_rb,7.52703e-12_rb,8.34784e-12_rb, &
+      9.24486e-12_rb,1.02246e-11_rb,1.12956e-11_rb,1.24615e-11_rb,1.37321e-11_rb, &
+      1.51131e-11_rb,1.66129e-11_rb,1.82416e-11_rb,2.00072e-11_rb,2.19187e-11_rb, &
+      2.39828e-11_rb,2.62171e-11_rb,2.86290e-11_rb,3.12283e-11_rb,3.40276e-11_rb, &
+      3.70433e-11_rb,4.02847e-11_rb,4.37738e-11_rb,4.75070e-11_rb,5.15119e-11_rb, &
+      5.58120e-11_rb,6.04059e-11_rb,6.53208e-11_rb,7.05774e-11_rb,7.61935e-11_rb, &
+      8.21832e-11_rb,8.85570e-11_rb,9.53575e-11_rb,1.02592e-10_rb,1.10298e-10_rb, &
+      1.18470e-10_rb,1.27161e-10_rb,1.36381e-10_rb,1.46161e-10_rb,1.56529e-10_rb, &
+      1.67521e-10_rb,1.79142e-10_rb,1.91423e-10_rb,2.04405e-10_rb,2.18123e-10_rb, &
+      2.32608e-10_rb,2.47889e-10_rb,2.63994e-10_rb,2.80978e-10_rb,2.98843e-10_rb/)
+      totplnkderiv(51:100,13) = (/ &
+      3.17659e-10_rb,3.37423e-10_rb,3.58206e-10_rb,3.80090e-10_rb,4.02996e-10_rb, &
+      4.27065e-10_rb,4.52298e-10_rb,4.78781e-10_rb,5.06493e-10_rb,5.35576e-10_rb, &
+      5.65942e-10_rb,5.97761e-10_rb,6.31007e-10_rb,6.65740e-10_rb,7.02095e-10_rb, &
+      7.39945e-10_rb,7.79575e-10_rb,8.20845e-10_rb,8.63870e-10_rb,9.08680e-10_rb, &
+      9.55385e-10_rb,1.00416e-09_rb,1.05464e-09_rb,1.10737e-09_rb,1.16225e-09_rb, &
+      1.21918e-09_rb,1.27827e-09_rb,1.33988e-09_rb,1.40370e-09_rb,1.46994e-09_rb, &
+      1.53850e-09_rb,1.60993e-09_rb,1.68382e-09_rb,1.76039e-09_rb,1.83997e-09_rb, &
+      1.92182e-09_rb,2.00686e-09_rb,2.09511e-09_rb,2.18620e-09_rb,2.28034e-09_rb, &
+      2.37753e-09_rb,2.47805e-09_rb,2.58193e-09_rb,2.68935e-09_rb,2.80064e-09_rb, &
+      2.91493e-09_rb,3.03271e-09_rb,3.15474e-09_rb,3.27987e-09_rb,3.40936e-09_rb/)
+      totplnkderiv(101:150,13) = (/ &
+      3.54277e-09_rb,3.68019e-09_rb,3.82173e-09_rb,3.96703e-09_rb,4.11746e-09_rb, &
+      4.27104e-09_rb,4.43020e-09_rb,4.59395e-09_rb,4.76060e-09_rb,4.93430e-09_rb, &
+      5.11085e-09_rb,5.29280e-09_rb,5.48055e-09_rb,5.67300e-09_rb,5.86950e-09_rb, &
+      6.07160e-09_rb,6.28015e-09_rb,6.49295e-09_rb,6.71195e-09_rb,6.93455e-09_rb, &
+      7.16470e-09_rb,7.39985e-09_rb,7.64120e-09_rb,7.88885e-09_rb,8.13910e-09_rb, &
+      8.39930e-09_rb,8.66535e-09_rb,8.93600e-09_rb,9.21445e-09_rb,9.49865e-09_rb, &
+      9.78845e-09_rb,1.00856e-08_rb,1.04361e-08_rb,1.07018e-08_rb,1.10164e-08_rb, &
+      1.13438e-08_rb,1.16748e-08_rb,1.20133e-08_rb,1.23575e-08_rb,1.27117e-08_rb, &
+      1.30708e-08_rb,1.34383e-08_rb,1.38138e-08_rb,1.41985e-08_rb,1.45859e-08_rb, &
+      1.49846e-08_rb,1.53879e-08_rb,1.58042e-08_rb,1.62239e-08_rb,1.66529e-08_rb/)
+      totplnkderiv(151:181,13) = (/ &
+      1.70954e-08_rb,1.75422e-08_rb,1.79943e-08_rb,1.84537e-08_rb,1.89280e-08_rb, &
+      1.94078e-08_rb,1.98997e-08_rb,2.03948e-08_rb,2.08956e-08_rb,2.14169e-08_rb, &
+      2.19330e-08_rb,2.24773e-08_rb,2.30085e-08_rb,2.35676e-08_rb,2.41237e-08_rb, &
+      2.46919e-08_rb,2.52720e-08_rb,2.58575e-08_rb,2.64578e-08_rb,2.70675e-08_rb, &
+      2.76878e-08_rb,2.83034e-08_rb,2.89430e-08_rb,2.95980e-08_rb,3.02480e-08_rb, &
+      3.09105e-08_rb,3.15980e-08_rb,3.22865e-08_rb,3.29755e-08_rb,3.36775e-08_rb, &
+      3.43990e-08_rb/)
+      totplnkderiv(1:50,14) = (/ &
+      1.81489e-12_rb,2.03846e-12_rb,2.28659e-12_rb,2.56071e-12_rb,2.86352e-12_rb, &
+      3.19789e-12_rb,3.56668e-12_rb,3.97211e-12_rb,4.41711e-12_rb,4.90616e-12_rb, &
+      5.44153e-12_rb,6.02790e-12_rb,6.67001e-12_rb,7.37018e-12_rb,8.13433e-12_rb, &
+      8.96872e-12_rb,9.87526e-12_rb,1.08601e-11_rb,1.19328e-11_rb,1.30938e-11_rb, &
+      1.43548e-11_rb,1.57182e-11_rb,1.71916e-11_rb,1.87875e-11_rb,2.05091e-11_rb, &
+      2.23652e-11_rb,2.43627e-11_rb,2.65190e-11_rb,2.88354e-11_rb,3.13224e-11_rb, &
+      3.39926e-11_rb,3.68664e-11_rb,3.99372e-11_rb,4.32309e-11_rb,4.67496e-11_rb, &
+      5.05182e-11_rb,5.45350e-11_rb,5.88268e-11_rb,6.34126e-11_rb,6.82878e-11_rb, &
+      7.34973e-11_rb,7.90201e-11_rb,8.49075e-11_rb,9.11725e-11_rb,9.78235e-11_rb, &
+      1.04856e-10_rb,1.12342e-10_rb,1.20278e-10_rb,1.28680e-10_rb,1.37560e-10_rb/)
+      totplnkderiv(51:100,14) = (/ &
+      1.46953e-10_rb,1.56900e-10_rb,1.67401e-10_rb,1.78498e-10_rb,1.90161e-10_rb, &
+      2.02523e-10_rb,2.15535e-10_rb,2.29239e-10_rb,2.43665e-10_rb,2.58799e-10_rb, &
+      2.74767e-10_rb,2.91522e-10_rb,3.09141e-10_rb,3.27625e-10_rb,3.47011e-10_rb, &
+      3.67419e-10_rb,3.88720e-10_rb,4.11066e-10_rb,4.34522e-10_rb,4.59002e-10_rb, &
+      4.84657e-10_rb,5.11391e-10_rb,5.39524e-10_rb,5.68709e-10_rb,5.99240e-10_rb, &
+      6.31295e-10_rb,6.64520e-10_rb,6.99200e-10_rb,7.35525e-10_rb,7.73135e-10_rb, &
+      8.12440e-10_rb,8.53275e-10_rb,8.95930e-10_rb,9.40165e-10_rb,9.86260e-10_rb, &
+      1.03423e-09_rb,1.08385e-09_rb,1.13567e-09_rb,1.18916e-09_rb,1.24469e-09_rb, &
+      1.30262e-09_rb,1.36268e-09_rb,1.42479e-09_rb,1.48904e-09_rb,1.55557e-09_rb, &
+      1.62478e-09_rb,1.69642e-09_rb,1.77023e-09_rb,1.84696e-09_rb,1.92646e-09_rb/)
+      totplnkderiv(101:150,14) = (/ &
+      2.00831e-09_rb,2.09299e-09_rb,2.18007e-09_rb,2.27093e-09_rb,2.36398e-09_rb, &
+      2.46020e-09_rb,2.55985e-09_rb,2.66230e-09_rb,2.76795e-09_rb,2.87667e-09_rb, &
+      2.98971e-09_rb,3.10539e-09_rb,3.22462e-09_rb,3.34779e-09_rb,3.47403e-09_rb, &
+      3.60419e-09_rb,3.73905e-09_rb,3.87658e-09_rb,4.01844e-09_rb,4.16535e-09_rb, &
+      4.31470e-09_rb,4.46880e-09_rb,4.62765e-09_rb,4.78970e-09_rb,4.95735e-09_rb, &
+      5.12890e-09_rb,5.30430e-09_rb,5.48595e-09_rb,5.67010e-09_rb,5.86145e-09_rb, &
+      6.05740e-09_rb,6.25725e-09_rb,6.46205e-09_rb,6.67130e-09_rb,6.88885e-09_rb, &
+      7.10845e-09_rb,7.33450e-09_rb,7.56700e-09_rb,7.80440e-09_rb,8.04465e-09_rb, &
+      8.29340e-09_rb,8.54820e-09_rb,8.80790e-09_rb,9.07195e-09_rb,9.34605e-09_rb, &
+      9.62005e-09_rb,9.90685e-09_rb,1.01939e-08_rb,1.04938e-08_rb,1.07957e-08_rb/)
+      totplnkderiv(151:181,14) = (/ &
+      1.11059e-08_rb,1.14208e-08_rb,1.17447e-08_rb,1.20717e-08_rb,1.24088e-08_rb, &
+      1.27490e-08_rb,1.31020e-08_rb,1.34601e-08_rb,1.38231e-08_rb,1.41966e-08_rb, &
+      1.45767e-08_rb,1.49570e-08_rb,1.53503e-08_rb,1.57496e-08_rb,1.61663e-08_rb, &
+      1.65784e-08_rb,1.70027e-08_rb,1.74290e-08_rb,1.78730e-08_rb,1.83235e-08_rb, &
+      1.87810e-08_rb,1.92418e-08_rb,1.97121e-08_rb,2.01899e-08_rb,2.05787e-08_rb, &
+      2.11784e-08_rb,2.16824e-08_rb,2.21931e-08_rb,2.27235e-08_rb,2.32526e-08_rb, &
+      2.37850e-08_rb/)
+      totplnkderiv(1:50,15) = (/ &
+      5.39905e-13_rb,6.11835e-13_rb,6.92224e-13_rb,7.81886e-13_rb,8.81851e-13_rb, &
+      9.93072e-13_rb,1.11659e-12_rb,1.25364e-12_rb,1.40562e-12_rb,1.57359e-12_rb, &
+      1.75937e-12_rb,1.96449e-12_rb,2.19026e-12_rb,2.43892e-12_rb,2.71249e-12_rb, &
+      3.01233e-12_rb,3.34163e-12_rb,3.70251e-12_rb,4.09728e-12_rb,4.52885e-12_rb, &
+      4.99939e-12_rb,5.51242e-12_rb,6.07256e-12_rb,6.68167e-12_rb,7.34274e-12_rb, &
+      8.06178e-12_rb,8.84185e-12_rb,9.68684e-12_rb,1.06020e-11_rb,1.15909e-11_rb, &
+      1.26610e-11_rb,1.38158e-11_rb,1.50620e-11_rb,1.64047e-11_rb,1.78508e-11_rb, &
+      1.94055e-11_rb,2.10805e-11_rb,2.28753e-11_rb,2.48000e-11_rb,2.68699e-11_rb, &
+      2.90824e-11_rb,3.14526e-11_rb,3.39882e-11_rb,3.67020e-11_rb,3.95914e-11_rb, &
+      4.26870e-11_rb,4.59824e-11_rb,4.94926e-11_rb,5.32302e-11_rb,5.72117e-11_rb/)
+      totplnkderiv(51:100,15) = (/ &
+      6.14475e-11_rb,6.59483e-11_rb,7.07393e-11_rb,7.57999e-11_rb,8.11980e-11_rb, &
+      8.68920e-11_rb,9.29390e-11_rb,9.93335e-11_rb,1.06101e-10_rb,1.13263e-10_rb, &
+      1.20827e-10_rb,1.28819e-10_rb,1.37255e-10_rb,1.46163e-10_rb,1.55547e-10_rb, &
+      1.65428e-10_rb,1.75837e-10_rb,1.86816e-10_rb,1.98337e-10_rb,2.10476e-10_rb, &
+      2.23218e-10_rb,2.36600e-10_rb,2.50651e-10_rb,2.65425e-10_rb,2.80895e-10_rb, &
+      2.97102e-10_rb,3.14100e-10_rb,3.31919e-10_rb,3.50568e-10_rb,3.70064e-10_rb, &
+      3.90464e-10_rb,4.11813e-10_rb,4.34111e-10_rb,4.57421e-10_rb,4.81717e-10_rb, &
+      5.07039e-10_rb,5.33569e-10_rb,5.61137e-10_rb,5.89975e-10_rb,6.19980e-10_rb, &
+      6.51170e-10_rb,6.83650e-10_rb,7.17520e-10_rb,7.52735e-10_rb,7.89390e-10_rb, &
+      8.27355e-10_rb,8.66945e-10_rb,9.08020e-10_rb,9.50665e-10_rb,9.95055e-10_rb/)
+      totplnkderiv(101:150,15) = (/ &
+      1.04101e-09_rb,1.08864e-09_rb,1.13823e-09_rb,1.18923e-09_rb,1.24257e-09_rb, &
+      1.29741e-09_rb,1.35442e-09_rb,1.41347e-09_rb,1.47447e-09_rb,1.53767e-09_rb, &
+      1.60322e-09_rb,1.67063e-09_rb,1.74033e-09_rb,1.81256e-09_rb,1.88704e-09_rb, &
+      1.96404e-09_rb,2.04329e-09_rb,2.12531e-09_rb,2.21032e-09_rb,2.29757e-09_rb, &
+      2.38739e-09_rb,2.48075e-09_rb,2.57628e-09_rb,2.67481e-09_rb,2.77627e-09_rb, &
+      2.88100e-09_rb,2.98862e-09_rb,3.09946e-09_rb,3.21390e-09_rb,3.33105e-09_rb, &
+      3.45185e-09_rb,3.57599e-09_rb,3.70370e-09_rb,3.83512e-09_rb,3.96909e-09_rb, &
+      4.10872e-09_rb,4.25070e-09_rb,4.39605e-09_rb,4.54670e-09_rb,4.70015e-09_rb, &
+      4.85850e-09_rb,5.02050e-09_rb,5.18655e-09_rb,5.35815e-09_rb,5.53180e-09_rb, &
+      5.71225e-09_rb,5.89495e-09_rb,6.08260e-09_rb,6.27485e-09_rb,6.47345e-09_rb/)
+      totplnkderiv(151:181,15) = (/ &
+      6.67520e-09_rb,6.88310e-09_rb,7.09400e-09_rb,7.31140e-09_rb,7.53350e-09_rb, &
+      7.76040e-09_rb,7.99215e-09_rb,8.22850e-09_rb,8.47235e-09_rb,8.71975e-09_rb, &
+      8.97360e-09_rb,9.23365e-09_rb,9.49950e-09_rb,9.76965e-09_rb,1.00441e-08_rb, &
+      1.03270e-08_rb,1.06158e-08_rb,1.09112e-08_rb,1.12111e-08_rb,1.15172e-08_rb, &
+      1.18263e-08_rb,1.21475e-08_rb,1.24735e-08_rb,1.28027e-08_rb,1.32023e-08_rb, &
+      1.34877e-08_rb,1.38399e-08_rb,1.42000e-08_rb,1.45625e-08_rb,1.49339e-08_rb, &
+      1.53156e-08_rb/)
+      totplnkderiv(1:50,16) = (/ &
+      4.38799e-14_rb,5.04835e-14_rb,5.79773e-14_rb,6.64627e-14_rb,7.60706e-14_rb, &
+      8.69213e-14_rb,9.91554e-14_rb,1.12932e-13_rb,1.28419e-13_rb,1.45809e-13_rb, &
+      1.65298e-13_rb,1.87109e-13_rb,2.11503e-13_rb,2.38724e-13_rb,2.69058e-13_rb, &
+      3.02878e-13_rb,3.40423e-13_rb,3.82128e-13_rb,4.28390e-13_rb,4.79625e-13_rb, &
+      5.36292e-13_rb,5.98933e-13_rb,6.68066e-13_rb,7.44216e-13_rb,8.28159e-13_rb, &
+      9.20431e-13_rb,1.02180e-12_rb,1.13307e-12_rb,1.25504e-12_rb,1.38863e-12_rb, &
+      1.53481e-12_rb,1.69447e-12_rb,1.86896e-12_rb,2.05903e-12_rb,2.26637e-12_rb, &
+      2.49193e-12_rb,2.73736e-12_rb,3.00416e-12_rb,3.29393e-12_rb,3.60781e-12_rb, &
+      3.94805e-12_rb,4.31675e-12_rb,4.71543e-12_rb,5.14627e-12_rb,5.61226e-12_rb, &
+      6.11456e-12_rb,6.65585e-12_rb,7.23969e-12_rb,7.86811e-12_rb,8.54456e-12_rb/)
+      totplnkderiv(51:100,16) = (/ &
+      9.27075e-12_rb,1.00516e-11_rb,1.08898e-11_rb,1.17884e-11_rb,1.27514e-11_rb, &
+      1.37839e-11_rb,1.48893e-11_rb,1.60716e-11_rb,1.73333e-11_rb,1.86849e-11_rb, &
+      2.01237e-11_rb,2.16610e-11_rb,2.33001e-11_rb,2.50440e-11_rb,2.69035e-11_rb, &
+      2.88827e-11_rb,3.09881e-11_rb,3.32234e-11_rb,3.55981e-11_rb,3.81193e-11_rb, &
+      4.07946e-11_rb,4.36376e-11_rb,4.66485e-11_rb,4.98318e-11_rb,5.32080e-11_rb, &
+      5.67754e-11_rb,6.05524e-11_rb,6.45450e-11_rb,6.87639e-11_rb,7.32160e-11_rb, &
+      7.79170e-11_rb,8.28780e-11_rb,8.81045e-11_rb,9.36200e-11_rb,9.94280e-11_rb, &
+      1.05545e-10_rb,1.11982e-10_rb,1.18752e-10_rb,1.25866e-10_rb,1.33350e-10_rb, &
+      1.41210e-10_rb,1.49469e-10_rb,1.58143e-10_rb,1.67233e-10_rb,1.76760e-10_rb, &
+      1.86758e-10_rb,1.97236e-10_rb,2.08227e-10_rb,2.19723e-10_rb,2.31737e-10_rb/)
+      totplnkderiv(101:150,16) = (/ &
+      2.44329e-10_rb,2.57503e-10_rb,2.71267e-10_rb,2.85647e-10_rb,3.00706e-10_rb, &
+      3.16391e-10_rb,3.32807e-10_rb,3.49887e-10_rb,3.67748e-10_rb,3.86369e-10_rb, &
+      4.05746e-10_rb,4.25984e-10_rb,4.47060e-10_rb,4.68993e-10_rb,4.91860e-10_rb, &
+      5.15601e-10_rb,5.40365e-10_rb,5.66085e-10_rb,5.92855e-10_rb,6.20640e-10_rb, &
+      6.49605e-10_rb,6.79585e-10_rb,7.10710e-10_rb,7.43145e-10_rb,7.76805e-10_rb, &
+      8.11625e-10_rb,8.47800e-10_rb,8.85300e-10_rb,9.24220e-10_rb,9.64550e-10_rb, &
+      1.00623e-09_rb,1.04957e-09_rb,1.09429e-09_rb,1.14079e-09_rb,1.18882e-09_rb, &
+      1.23848e-09_rb,1.28986e-09_rb,1.34301e-09_rb,1.39796e-09_rb,1.45493e-09_rb, &
+      1.51372e-09_rb,1.57440e-09_rb,1.63702e-09_rb,1.70173e-09_rb,1.76874e-09_rb, &
+      1.83753e-09_rb,1.90898e-09_rb,1.98250e-09_rb,2.05836e-09_rb,2.13646e-09_rb/)
+      totplnkderiv(151:181,16) = (/ &
+      2.21710e-09_rb,2.30027e-09_rb,2.38591e-09_rb,2.47432e-09_rb,2.56503e-09_rb, &
+      2.65878e-09_rb,2.75516e-09_rb,2.85432e-09_rb,2.95688e-09_rb,3.06201e-09_rb, &
+      3.17023e-09_rb,3.28153e-09_rb,3.39604e-09_rb,3.51391e-09_rb,3.63517e-09_rb, &
+      3.75955e-09_rb,3.88756e-09_rb,4.01880e-09_rb,4.15405e-09_rb,4.29255e-09_rb, &
+      4.43535e-09_rb,4.58145e-09_rb,4.73165e-09_rb,4.88560e-09_rb,5.04390e-09_rb, &
+      5.20630e-09_rb,5.37255e-09_rb,5.54355e-09_rb,5.71915e-09_rb,5.89855e-09_rb, &
+      6.08280e-09_rb/)
+      totplk16deriv(1:50) = (/ &
+      4.35811e-14_rb,5.01270e-14_rb,5.75531e-14_rb,6.59588e-14_rb,7.54735e-14_rb, &
+      8.62147e-14_rb,9.83225e-14_rb,1.11951e-13_rb,1.27266e-13_rb,1.44456e-13_rb, &
+      1.63715e-13_rb,1.85257e-13_rb,2.09343e-13_rb,2.36209e-13_rb,2.66136e-13_rb, &
+      2.99486e-13_rb,3.36493e-13_rb,3.77582e-13_rb,4.23146e-13_rb,4.73578e-13_rb, &
+      5.29332e-13_rb,5.90936e-13_rb,6.58891e-13_rb,7.33710e-13_rb,8.16135e-13_rb, &
+      9.06705e-13_rb,1.00614e-12_rb,1.11524e-12_rb,1.23477e-12_rb,1.36561e-12_rb, &
+      1.50871e-12_rb,1.66488e-12_rb,1.83552e-12_rb,2.02123e-12_rb,2.22375e-12_rb, &
+      2.44389e-12_rb,2.68329e-12_rb,2.94338e-12_rb,3.22570e-12_rb,3.53129e-12_rb, &
+      3.86236e-12_rb,4.22086e-12_rb,4.60827e-12_rb,5.02666e-12_rb,5.47890e-12_rb, &
+      5.96595e-12_rb,6.49057e-12_rb,7.05592e-12_rb,7.66401e-12_rb,8.31821e-12_rb/)
+      totplk16deriv(51:100) = (/ &
+      9.01998e-12_rb,9.77390e-12_rb,1.05826e-11_rb,1.14491e-11_rb,1.23769e-11_rb, &
+      1.33709e-11_rb,1.44341e-11_rb,1.55706e-11_rb,1.67821e-11_rb,1.80793e-11_rb, &
+      1.94586e-11_rb,2.09316e-11_rb,2.25007e-11_rb,2.41685e-11_rb,2.59454e-11_rb, &
+      2.78356e-11_rb,2.98440e-11_rb,3.19744e-11_rb,3.42355e-11_rb,3.66340e-11_rb, &
+      3.91772e-11_rb,4.18773e-11_rb,4.47339e-11_rb,4.77509e-11_rb,5.09490e-11_rb, &
+      5.43240e-11_rb,5.78943e-11_rb,6.16648e-11_rb,6.56445e-11_rb,6.98412e-11_rb, &
+      7.42680e-11_rb,7.89335e-11_rb,8.38450e-11_rb,8.90220e-11_rb,9.44695e-11_rb, &
+      1.00197e-10_rb,1.06221e-10_rb,1.12550e-10_rb,1.19193e-10_rb,1.26175e-10_rb, &
+      1.33498e-10_rb,1.41188e-10_rb,1.49251e-10_rb,1.57693e-10_rb,1.66530e-10_rb, &
+      1.75798e-10_rb,1.85495e-10_rb,1.95661e-10_rb,2.06275e-10_rb,2.17357e-10_rb/)
+      totplk16deriv(101:150) = (/ &
+      2.28959e-10_rb,2.41085e-10_rb,2.53739e-10_rb,2.66944e-10_rb,2.80755e-10_rb, &
+      2.95121e-10_rb,3.10141e-10_rb,3.25748e-10_rb,3.42057e-10_rb,3.59026e-10_rb, &
+      3.76668e-10_rb,3.95066e-10_rb,4.14211e-10_rb,4.34111e-10_rb,4.54818e-10_rb, &
+      4.76295e-10_rb,4.98681e-10_rb,5.21884e-10_rb,5.46000e-10_rb,5.71015e-10_rb, &
+      5.97065e-10_rb,6.23965e-10_rb,6.51865e-10_rb,6.80905e-10_rb,7.11005e-10_rb, &
+      7.42100e-10_rb,7.74350e-10_rb,8.07745e-10_rb,8.42355e-10_rb,8.78185e-10_rb, &
+      9.15130e-10_rb,9.53520e-10_rb,9.93075e-10_rb,1.03415e-09_rb,1.07649e-09_rb, &
+      1.12021e-09_rb,1.16539e-09_rb,1.21207e-09_rb,1.26025e-09_rb,1.31014e-09_rb, &
+      1.36156e-09_rb,1.41453e-09_rb,1.46909e-09_rb,1.52540e-09_rb,1.58368e-09_rb, &
+      1.64334e-09_rb,1.70527e-09_rb,1.76888e-09_rb,1.83442e-09_rb,1.90182e-09_rb/)
+      totplk16deriv(151:181) = (/ &
+      1.97128e-09_rb,2.04281e-09_rb,2.11635e-09_rb,2.19219e-09_rb,2.26979e-09_rb, &
+      2.34989e-09_rb,2.43219e-09_rb,2.51660e-09_rb,2.60396e-09_rb,2.69317e-09_rb, &
+      2.78501e-09_rb,2.87927e-09_rb,2.97600e-09_rb,3.07548e-09_rb,3.17772e-09_rb, &
+      3.28235e-09_rb,3.38982e-09_rb,3.49985e-09_rb,3.61307e-09_rb,3.72883e-09_rb, &
+      3.84805e-09_rb,3.96975e-09_rb,4.09465e-09_rb,4.22240e-09_rb,4.35370e-09_rb, &
+      4.48800e-09_rb,4.62535e-09_rb,4.76640e-09_rb,4.91110e-09_rb,5.05850e-09_rb, &
+      5.20965e-09_rb/)
+
+      end subroutine lwavplankderiv
+
+      end module rrtmg_lw_setcoef
+
diff --git a/radiation/src/rrtmg_lw_taumol.f90 b/radiation/src/rrtmg_lw_taumol.f90
new file mode 100644
index 0000000000000000000000000000000000000000..4bb4db8af2f39111bebe2dd1fc9b71cd1ca6f60c
--- /dev/null
+++ b/radiation/src/rrtmg_lw_taumol.f90
@@ -0,0 +1,3169 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+      module rrtmg_lw_taumol
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use parrrtm, only : mg, nbndlw, maxxsec, ngptlw
+      use rrlw_con, only: oneminus
+      use rrlw_wvn, only: nspa, nspb
+      use rrlw_vsn, only: hvrtau, hnamtau
+
+      implicit none
+
+      contains
+
+!----------------------------------------------------------------------------
+      subroutine taumol(nlayers, pavel, wx, coldry, &
+                        laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &
+                        colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &
+                        colbrd, fac00, fac01, fac10, fac11, &
+                        rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &
+                        rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &
+                        rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &
+                        selffac, selffrac, indself, forfac, forfrac, indfor, &
+                        minorfrac, scaleminor, scaleminorn2, indminor, &
+                        fracs, taug)
+!----------------------------------------------------------------------------
+
+! *******************************************************************************
+! *                                                                             *
+! *                  Optical depths developed for the                           *
+! *                                                                             *
+! *                RAPID RADIATIVE TRANSFER MODEL (RRTM)                        *
+! *                                                                             *
+! *                                                                             *
+! *            ATMOSPHERIC AND ENVIRONMENTAL RESEARCH, INC.                     *
+! *                        131 HARTWELL AVENUE                                  *
+! *                        LEXINGTON, MA 02421                                  *
+! *                                                                             *
+! *                                                                             *
+! *                           ELI J. MLAWER                                     * 
+! *                         JENNIFER DELAMERE                                   * 
+! *                         STEVEN J. TAUBMAN                                   *
+! *                         SHEPARD A. CLOUGH                                   *
+! *                                                                             *
+! *                                                                             *
+! *                                                                             *
+! *                                                                             *
+! *                       email:  mlawer@aer.com                                *
+! *                       email:  jdelamer@aer.com                              *
+! *                                                                             *
+! *        The authors wish to acknowledge the contributions of the             *
+! *        following people:  Karen Cady-Pereira, Patrick D. Brown,             *  
+! *        Michael J. Iacono, Ronald E. Farren, Luke Chen, Robert Bergstrom.    *
+! *                                                                             *
+! *******************************************************************************
+! *                                                                             *
+! *  Revision for g-point reduction: Michael J. Iacono, AER, Inc.               *
+! *                                                                             *
+! *******************************************************************************
+! *     TAUMOL                                                                  *
+! *                                                                             *
+! *     This file contains the subroutines TAUGBn (where n goes from            *
+! *     1 to 16).  TAUGBn calculates the optical depths and Planck fractions    *
+! *     per g-value and layer for band n.                                       *
+! *                                                                             *
+! *  Output:  optical depths (unitless)                                         *
+! *           fractions needed to compute Planck functions at every layer       *
+! *               and g-value                                                   *
+! *                                                                             *
+! *     COMMON /TAUGCOM/  TAUG(MXLAY,MG)                                        *
+! *     COMMON /PLANKG/   FRACS(MXLAY,MG)                                       *
+! *                                                                             *
+! *  Input                                                                      *
+! *                                                                             *
+! *     COMMON /FEATURES/ NG(NBANDS),NSPA(NBANDS),NSPB(NBANDS)                  *
+! *     COMMON /PRECISE/  ONEMINUS                                              *
+! *     COMMON /PROFILE/  NLAYERS,PAVEL(MXLAY),TAVEL(MXLAY),                    *
+! *     &                 PZ(0:MXLAY),TZ(0:MXLAY)                               *
+! *     COMMON /PROFDATA/ LAYTROP,                                              *
+! *    &                  COLH2O(MXLAY),COLCO2(MXLAY),COLO3(MXLAY),             *
+! *    &                  COLN2O(MXLAY),COLCO(MXLAY),COLCH4(MXLAY),             *
+! *    &                  COLO2(MXLAY)
+! *     COMMON /INTFAC/   FAC00(MXLAY),FAC01(MXLAY),                            *
+! *    &                  FAC10(MXLAY),FAC11(MXLAY)                             *
+! *     COMMON /INTIND/   JP(MXLAY),JT(MXLAY),JT1(MXLAY)                        *
+! *     COMMON /SELF/     SELFFAC(MXLAY), SELFFRAC(MXLAY), INDSELF(MXLAY)       *
+! *                                                                             *
+! *     Description:                                                            *
+! *     NG(IBAND) - number of g-values in band IBAND                            *
+! *     NSPA(IBAND) - for the lower atmosphere, the number of reference         *
+! *                   atmospheres that are stored for band IBAND per            *
+! *                   pressure level and temperature.  Each of these            *
+! *                   atmospheres has different relative amounts of the         *
+! *                   key species for the band (i.e. different binary           *
+! *                   species parameters).                                      *
+! *     NSPB(IBAND) - same for upper atmosphere                                 *
+! *     ONEMINUS - since problems are caused in some cases by interpolation     *
+! *                parameters equal to or greater than 1, for these cases       *
+! *                these parameters are set to this value, slightly < 1.        *
+! *     PAVEL - layer pressures (mb)                                            *
+! *     TAVEL - layer temperatures (degrees K)                                  *
+! *     PZ - level pressures (mb)                                               *
+! *     TZ - level temperatures (degrees K)                                     *
+! *     LAYTROP - layer at which switch is made from one combination of         *
+! *               key species to another                                        *
+! *     COLH2O, COLCO2, COLO3, COLN2O, COLCH4 - column amounts of water         *
+! *               vapor,carbon dioxide, ozone, nitrous ozide, methane,          *
+! *               respectively (molecules/cm**2)                                *
+! *     FACij(LAY) - for layer LAY, these are factors that are needed to        *
+! *                  compute the interpolation factors that multiply the        *
+! *                  appropriate reference k-values.  A value of 0 (1) for      *
+! *                  i,j indicates that the corresponding factor multiplies     *
+! *                  reference k-value for the lower (higher) of the two        *
+! *                  appropriate temperatures, and altitudes, respectively.     *
+! *     JP - the index of the lower (in altitude) of the two appropriate        *
+! *          reference pressure levels needed for interpolation                 *
+! *     JT, JT1 - the indices of the lower of the two appropriate reference     *
+! *               temperatures needed for interpolation (for pressure           *
+! *               levels JP and JP+1, respectively)                             *
+! *     SELFFAC - scale factor needed for water vapor self-continuum, equals    *
+! *               (water vapor density)/(atmospheric density at 296K and        *
+! *               1013 mb)                                                      *
+! *     SELFFRAC - factor needed for temperature interpolation of reference     *
+! *                water vapor self-continuum data                              *
+! *     INDSELF - index of the lower of the two appropriate reference           *
+! *               temperatures needed for the self-continuum interpolation      *
+! *     FORFAC  - scale factor needed for water vapor foreign-continuum.        *
+! *     FORFRAC - factor needed for temperature interpolation of reference      *
+! *                water vapor foreign-continuum data                           *
+! *     INDFOR  - index of the lower of the two appropriate reference           *
+! *               temperatures needed for the foreign-continuum interpolation   *
+! *                                                                             *
+! *  Data input                                                                 *
+! *     COMMON /Kn/ KA(NSPA(n),5,13,MG), KB(NSPB(n),5,13:59,MG), SELFREF(10,MG),*
+! *                 FORREF(4,MG), KA_M'MGAS', KB_M'MGAS'                        *
+! *        (note:  n is the band number,'MGAS' is the species name of the minor *
+! *         gas)                                                                *
+! *                                                                             *
+! *     Description:                                                            *
+! *     KA - k-values for low reference atmospheres (key-species only)          *
+! *          (units: cm**2/molecule)                                            *
+! *     KB - k-values for high reference atmospheres (key-species only)         *
+! *          (units: cm**2/molecule)                                            *
+! *     KA_M'MGAS' - k-values for low reference atmosphere minor species        *
+! *          (units: cm**2/molecule)                                            *
+! *     KB_M'MGAS' - k-values for high reference atmosphere minor species       *
+! *          (units: cm**2/molecule)                                            *
+! *     SELFREF - k-values for water vapor self-continuum for reference         *
+! *               atmospheres (used below LAYTROP)                              *
+! *               (units: cm**2/molecule)                                       *
+! *     FORREF  - k-values for water vapor foreign-continuum for reference      *
+! *               atmospheres (used below/above LAYTROP)                        *
+! *               (units: cm**2/molecule)                                       *
+! *                                                                             *
+! *     DIMENSION ABSA(65*NSPA(n),MG), ABSB(235*NSPB(n),MG)                     *
+! *     EQUIVALENCE (KA,ABSA),(KB,ABSB)                                         *
+! *                                                                             *
+!*******************************************************************************
+
+! ------- Declarations -------
+
+! ----- Input -----
+      integer(kind=im), intent(in) :: nlayers         ! total number of layers
+      real(kind=rb), intent(in) :: pavel(:)           ! layer pressures (mb) 
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: wx(:,:)            ! cross-section amounts (mol/cm2)
+                                                      !    Dimensions: (maxxsec,nlayers)
+      real(kind=rb), intent(in) :: coldry(:)          ! column amount (dry air)
+                                                      !    Dimensions: (nlayers)
+
+      integer(kind=im), intent(in) :: laytrop         ! tropopause layer index
+      integer(kind=im), intent(in) :: jp(:)           ! 
+                                                      !    Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: jt(:)           !
+                                                      !    Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: jt1(:)          !
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: planklay(:,:)      ! 
+                                                      !    Dimensions: (nlayers,nbndlw)
+      real(kind=rb), intent(in) :: planklev(0:,:)     ! 
+                                                      !    Dimensions: (nlayers,nbndlw)
+      real(kind=rb), intent(in) :: plankbnd(:)        ! 
+                                                      !    Dimensions: (nbndlw)
+
+      real(kind=rb), intent(in) :: colh2o(:)          ! column amount (h2o)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colco2(:)          ! column amount (co2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colo3(:)           ! column amount (o3)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: coln2o(:)          ! column amount (n2o)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colco(:)           ! column amount (co)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colch4(:)          ! column amount (ch4)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colo2(:)           ! column amount (o2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colbrd(:)          ! column amount (broadening gases)
+                                                      !    Dimensions: (nlayers)
+
+      integer(kind=im), intent(in) :: indself(:)
+                                                      !    Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: indfor(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: selffac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: selffrac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: forfac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: forfrac(:)
+                                                      !    Dimensions: (nlayers)
+
+      integer(kind=im), intent(in) :: indminor(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: minorfrac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: scaleminor(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: scaleminorn2(:)
+                                                      !    Dimensions: (nlayers)
+
+      real(kind=rb), intent(in) :: &                  !
+                       fac00(:), fac01(:), &          !    Dimensions: (nlayers)
+                       fac10(:), fac11(:) 
+      real(kind=rb), intent(in) :: &                  !
+                       rat_h2oco2(:),rat_h2oco2_1(:), &
+                       rat_h2oo3(:),rat_h2oo3_1(:), & !    Dimensions: (nlayers)
+                       rat_h2on2o(:),rat_h2on2o_1(:), &
+                       rat_h2och4(:),rat_h2och4_1(:), &
+                       rat_n2oco2(:),rat_n2oco2_1(:), &
+                       rat_o3co2(:),rat_o3co2_1(:)
+
+! ----- Output -----
+      real(kind=rb), intent(out) :: fracs(:,:)        ! planck fractions
+                                                      !    Dimensions: (nlayers,ngptlw)
+      real(kind=rb), intent(out) :: taug(:,:)         ! gaseous optical depth 
+                                                      !    Dimensions: (nlayers,ngptlw)
+
+      hvrtau = '$Revision$'
+
+! Calculate gaseous optical depth and planck fractions for each spectral band.
+
+      call taugb1
+      call taugb2
+      call taugb3
+      call taugb4
+      call taugb5
+      call taugb6
+      call taugb7
+      call taugb8
+      call taugb9
+      call taugb10
+      call taugb11
+      call taugb12
+      call taugb13
+      call taugb14
+      call taugb15
+      call taugb16
+
+      contains
+
+!----------------------------------------------------------------------------
+      subroutine taugb1
+!----------------------------------------------------------------------------
+
+! ------- Modifications -------
+!  Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+!  Revised by Michael J. Iacono, Atmospheric & Environmental Research.
+!
+!     band 1:  10-350 cm-1 (low key - h2o; low minor - n2)
+!                          (high key - h2o; high minor - n2)
+!
+!     note: previous versions of rrtm band 1: 
+!           10-250 cm-1 (low - h2o; high - h2o)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng1
+      use rrlw_kg01, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            ka_mn2, kb_mn2, selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig
+      real(kind=rb) :: pp, corradj, scalen2, tauself, taufor, taun2
+
+
+! Minor gas mapping levels:
+!     lower - n2, p = 142.5490 mbar, t = 215.70 k
+!     upper - n2, p = 142.5490 mbar, t = 215.70 k
+
+! Compute the optical depth by interpolating in ln(pressure) and 
+! temperature.  Below laytrop, the water vapor self-continuum and
+! foreign continuum is interpolated (in temperature) separately.
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(1) + 1, 64))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(1) + 1, 64))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         indm = max(1, indminor(lay))
+         pp = pavel(lay)
+         corradj =  1.
+         if (pp .lt. 250._rb) then
+            corradj = 1._rb - 0.15_rb * (250._rb-pp) / 154.4_rb
+         endif
+
+         scalen2 = colbrd(lay) * scaleminorn2(lay)
+         do ig = 1, ng1
+            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) -  forref(indf,ig))) 
+            taun2 = scalen2*(ka_mn2(indm,ig) + & 
+                 minorfrac(lay) * (ka_mn2(indm+1,ig) - ka_mn2(indm,ig)))
+            taug(lay,ig) = corradj * (colh2o(lay) * &
+                (fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) + &
+                 fac11(lay) * absa(ind1+1,ig)) & 
+                 + tauself + taufor + taun2)
+             fracs(lay,ig) = fracrefa(ig)
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+
+         ind0 = max(1,((jp(lay)-13)*5+(jt(lay)-1))*nspb(1) + 1 )
+         ind1 = max(1, ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(1) + 1)
+         indf = indfor(lay)
+         indm = indminor(lay)
+         pp = pavel(lay)
+         corradj =  1._rb - 0.15_rb * (pp / 95.6_rb)
+
+         scalen2 = colbrd(lay) * scaleminorn2(lay)
+         do ig = 1, ng1
+            taufor = forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * (forref(indf+1,ig) - forref(indf,ig))) 
+            taun2 = scalen2*(kb_mn2(indm,ig) + & 
+                 minorfrac(lay) * (kb_mn2(indm+1,ig) - kb_mn2(indm,ig)))
+            taug(lay,ig) = corradj * (colh2o(lay) * &
+                (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig)) &  
+                 + taufor + taun2)
+            fracs(lay,ig) = fracrefb(ig)
+         enddo
+      enddo
+
+      end subroutine taugb1
+
+!----------------------------------------------------------------------------
+      subroutine taugb2
+!----------------------------------------------------------------------------
+!
+!     band 2:  350-500 cm-1 (low key - h2o; high key - h2o)
+!
+!     note: previous version of rrtm band 2: 
+!           250 - 500 cm-1 (low - h2o; high - h2o)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng2, ngs1
+      use rrlw_kg02, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig
+      real(kind=rb) :: pp, corradj, tauself, taufor
+
+
+! Compute the optical depth by interpolating in ln(pressure) and 
+! temperature.  Below laytrop, the water vapor self-continuum and
+! foreign continuum is interpolated (in temperature) separately.
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         ind0 = max(1,min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(2) + 1,64))
+         ind1 = max(1,min((jp(lay)*5+(jt1(lay)-1))*nspa(2) + 1,64))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1,indfor(lay))
+         pp = pavel(lay)
+         corradj = 1._rb - .05_rb * (pp - 100._rb) / 900._rb
+         do ig = 1, ng2
+            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            taug(lay,ngs1+ig) = corradj * (colh2o(lay) * &
+                (fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) + &
+                 fac11(lay) * absa(ind1+1,ig)) &
+                 + tauself + taufor)
+            fracs(lay,ngs1+ig) = fracrefa(ig)
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+
+         ind0 = max(1, ((jp(lay)-13)*5+(jt(lay)-1))*nspb(2) + 1)
+         ind1 = max(1, ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(2) + 1)
+         indf = max(1, indfor(lay))
+         do ig = 1, ng2
+            taufor =  forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * (forref(indf+1,ig) - forref(indf,ig))) 
+            taug(lay,ngs1+ig) = colh2o(lay) * &
+                (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig)) &
+                 + taufor
+            fracs(lay,ngs1+ig) = fracrefb(ig)
+         enddo
+      enddo
+
+      end subroutine taugb2
+
+!----------------------------------------------------------------------------
+      subroutine taugb3
+!----------------------------------------------------------------------------
+!
+!     band 3:  500-630 cm-1 (low key - h2o,co2; low minor - n2o)
+!                           (high key - h2o,co2; high minor - n2o)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng3, ngs2
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg03, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            ka_mn2o, kb_mn2o, selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig
+      integer(kind=im) :: js, js1, jmn2o, jpl
+      real(kind=rb) :: speccomb, specparm, specmult, fs
+      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1
+      real(kind=rb) :: speccomb_mn2o, specparm_mn2o, specmult_mn2o, &
+                       fmn2o, fmn2omf, chi_n2o, ratn2o, adjfac, adjcoln2o
+      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl
+      real(kind=rb) :: p, p4, fk0, fk1, fk2
+      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210
+      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211
+      real(kind=rb) :: tauself, taufor, n2om1, n2om2, absn2o
+      real(kind=rb) :: refrat_planck_a, refrat_planck_b, refrat_m_a, refrat_m_b
+      real(kind=rb) :: tau_major, tau_major1
+
+
+! Minor gas mapping levels:
+!     lower - n2o, p = 706.272 mbar, t = 278.94 k
+!     upper - n2o, p = 95.58 mbar, t = 215.7 k
+
+!  P = 212.725 mb
+      refrat_planck_a = chi_mls(1,9)/chi_mls(2,9)
+
+!  P = 95.58 mb
+      refrat_planck_b = chi_mls(1,13)/chi_mls(2,13)
+
+!  P = 706.270mb
+      refrat_m_a = chi_mls(1,3)/chi_mls(2,3)
+
+!  P = 95.58 mb 
+      refrat_m_b = chi_mls(1,13)/chi_mls(2,13)
+
+! Compute the optical depth by interpolating in ln(pressure) and 
+! temperature, and appropriate species.  Below laytrop, the water vapor 
+! self-continuum and foreign continuum is interpolated (in temperature) 
+! separately.
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)
+         specparm = colh2o(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult,1.0_rb)        
+
+         speccomb1 = colh2o(lay) + rat_h2oco2_1(lay)*colco2(lay)
+         specparm1 = colh2o(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 8._rb*(specparm1)
+         js1 = 1 + int(specmult1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         speccomb_mn2o = colh2o(lay) + refrat_m_a*colco2(lay)
+         specparm_mn2o = colh2o(lay)/speccomb_mn2o
+         if (specparm_mn2o .ge. oneminus) specparm_mn2o = oneminus
+         specmult_mn2o = 8._rb*specparm_mn2o
+         jmn2o = max(1 + int(specmult_mn2o), 1)
+         fmn2o = mod(specmult_mn2o,1.0_rb)
+         fmn2omf = minorfrac(lay)*fmn2o
+!  In atmospheres where the amount of N2O is too great to be considered
+!  a minor species, adjust the column amount of N2O by an empirical factor 
+!  to obtain the proper contribution.
+         chi_n2o = coln2o(lay)/coldry(lay)
+         ratn2o = 1.e20_rb*chi_n2o/chi_mls(4,jp(lay)+1)
+         if (ratn2o .gt. 1.5_rb) then
+            adjfac = 0.5_rb+(ratn2o-0.5_rb)**0.65_rb
+            adjcoln2o = adjfac*chi_mls(4,jp(lay)+1)*coldry(lay)*1.e-20_rb
+         else
+            adjcoln2o = coln2o(lay)
+         endif
+
+         speccomb_planck = colh2o(lay)+refrat_planck_a*colco2(lay)
+         specparm_planck = colh2o(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 8._rb*specparm_planck
+         jpl= max(1 + int(specmult_planck), 1)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(3) + js, 574))
+         ind1 = max(1,min((jp(lay)*5+(jt1(lay)-1))*nspa(3) + js1, 574))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         indm = indminor(lay)
+
+         if (specparm .lt. 0.125_rb) then
+            p = fs - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else if (specparm .gt. 0.875_rb) then
+            p = -fs 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else
+            fac000 = (1._rb - fs) * fac00(lay)
+            fac010 = (1._rb - fs) * fac10(lay)
+            fac100 = fs * fac00(lay)
+            fac110 = fs * fac10(lay)
+         endif
+         if (specparm1 .lt. 0.125_rb) then
+            p = fs1 - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else if (specparm1 .gt. 0.875_rb) then
+            p = -fs1 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else
+            fac001 = (1._rb - fs1) * fac01(lay)
+            fac011 = (1._rb - fs1) * fac11(lay)
+            fac101 = fs1 * fac01(lay)
+            fac111 = fs1 * fac11(lay)
+         endif
+
+         do ig = 1, ng3
+            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            n2om1 = ka_mn2o(jmn2o,indm,ig) + fmn2o * &
+                 (ka_mn2o(jmn2o+1,indm,ig) - ka_mn2o(jmn2o,indm,ig))
+            n2om2 = ka_mn2o(jmn2o,indm+1,ig) + fmn2o * &
+                 (ka_mn2o(jmn2o+1,indm+1,ig) - ka_mn2o(jmn2o,indm+1,ig))
+            absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
+
+            if (specparm .lt. 0.125_rb) then
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac200 * absa(ind0+2,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig) + &
+                    fac210 * absa(ind0+11,ig))
+            else if (specparm .gt. 0.875_rb) then
+               tau_major = speccomb * &
+                    (fac200 * absa(ind0-1,ig) + &
+                    fac100 * absa(ind0,ig) + &
+                    fac000 * absa(ind0+1,ig) + &
+                    fac210 * absa(ind0+8,ig) + &
+                    fac110 * absa(ind0+9,ig) + &
+                    fac010 * absa(ind0+10,ig))
+            else
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig))
+            endif
+
+            if (specparm1 .lt. 0.125_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac201 * absa(ind1+2,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig) + &
+                    fac211 * absa(ind1+11,ig))
+            else if (specparm1 .gt. 0.875_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac201 * absa(ind1-1,ig) + &
+                    fac101 * absa(ind1,ig) + &
+                    fac001 * absa(ind1+1,ig) + &
+                    fac211 * absa(ind1+8,ig) + &
+                    fac111 * absa(ind1+9,ig) + &
+                    fac011 * absa(ind1+10,ig))
+            else
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) +  &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig))
+            endif
+
+            taug(lay,ngs2+ig) = tau_major + tau_major1 &
+                 + tauself + taufor &
+                 + adjcoln2o*absn2o
+            fracs(lay,ngs2+ig) = fracrefa(ig,jpl) + fpl * &
+                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+
+         speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)
+         specparm = colh2o(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 4._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = colh2o(lay) + rat_h2oco2_1(lay)*colco2(lay)
+         specparm1 = colh2o(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 4._rb*(specparm1)
+         js1 = 1 + int(specmult1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs1) * fac01(lay)
+         fac011 = (1._rb - fs1) * fac11(lay)
+         fac101 = fs1 * fac01(lay)
+         fac111 = fs1 * fac11(lay)
+
+         speccomb_mn2o = colh2o(lay) + refrat_m_b*colco2(lay)
+         specparm_mn2o = colh2o(lay)/speccomb_mn2o
+         if (specparm_mn2o .ge. oneminus) specparm_mn2o = oneminus
+         specmult_mn2o = 4._rb*specparm_mn2o
+         jmn2o = 1 + int(specmult_mn2o)
+         fmn2o = mod(specmult_mn2o,1.0_rb)
+         fmn2omf = minorfrac(lay)*fmn2o
+!  In atmospheres where the amount of N2O is too great to be considered
+!  a minor species, adjust the column amount of N2O by an empirical factor 
+!  to obtain the proper contribution.
+         chi_n2o = coln2o(lay)/coldry(lay)
+         ratn2o = 1.e20*chi_n2o/chi_mls(4,jp(lay)+1)
+         if (ratn2o .gt. 1.5_rb) then
+            adjfac = 0.5_rb+(ratn2o-0.5_rb)**0.65_rb
+            adjcoln2o = adjfac*chi_mls(4,jp(lay)+1)*coldry(lay)*1.e-20_rb
+         else
+            adjcoln2o = coln2o(lay)
+         endif
+
+         speccomb_planck = colh2o(lay)+refrat_planck_b*colco2(lay)
+         specparm_planck = colh2o(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 4._rb*specparm_planck
+         jpl= 1 + int(specmult_planck)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, ((jp(lay)-13)*5+(jt(lay)-1))*nspb(3) + js)
+         ind1 = max(1, ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(3) + js1)
+         indf = indfor(lay)
+         indm = indminor(lay)
+
+         do ig = 1, ng3
+            taufor = forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * (forref(indf+1,ig) - forref(indf,ig))) 
+            n2om1 = kb_mn2o(jmn2o,indm,ig) + fmn2o * &
+                 (kb_mn2o(jmn2o+1,indm,ig)-kb_mn2o(jmn2o,indm,ig))
+            n2om2 = kb_mn2o(jmn2o,indm+1,ig) + fmn2o * &
+                 (kb_mn2o(jmn2o+1,indm+1,ig)-kb_mn2o(jmn2o,indm+1,ig))
+            absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
+            taug(lay,ngs2+ig) = speccomb * &
+                (fac000 * absb(ind0,ig) + &
+                fac100 * absb(ind0+1,ig) + &
+                fac010 * absb(ind0+5,ig) + &
+                fac110 * absb(ind0+6,ig)) &
+                + speccomb1 * &
+                (fac001 * absb(ind1,ig) +  &
+                fac101 * absb(ind1+1,ig) + &
+                fac011 * absb(ind1+5,ig) + &
+                fac111 * absb(ind1+6,ig))  &
+                + taufor &
+                + adjcoln2o*absn2o
+            fracs(lay,ngs2+ig) = fracrefb(ig,jpl) + fpl * &
+                (fracrefb(ig,jpl+1)-fracrefb(ig,jpl))
+         enddo
+      enddo
+
+      end subroutine taugb3
+
+!----------------------------------------------------------------------------
+      subroutine taugb4
+!----------------------------------------------------------------------------
+!
+!     band 4:  630-700 cm-1 (low key - h2o,co2; high key - o3,co2)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng4, ngs3
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg04, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig
+      integer(kind=im) :: js, js1, jpl
+      real(kind=rb) :: speccomb, specparm, specmult, fs
+      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1
+      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl
+      real(kind=rb) :: p, p4, fk0, fk1, fk2
+      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210
+      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211
+      real(kind=rb) :: tauself, taufor
+      real(kind=rb) :: refrat_planck_a, refrat_planck_b
+      real(kind=rb) :: tau_major, tau_major1
+
+
+! P =   142.5940 mb
+      refrat_planck_a = chi_mls(1,11)/chi_mls(2,11)
+
+! P = 95.58350 mb
+      refrat_planck_b = chi_mls(3,13)/chi_mls(2,13)
+
+! Compute the optical depth by interpolating in ln(pressure) and 
+! temperature, and appropriate species.  Below laytrop, the water 
+! vapor self-continuum and foreign continuum is interpolated (in temperature) 
+! separately.
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)
+         specparm = colh2o(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = colh2o(lay) + rat_h2oco2_1(lay)*colco2(lay)
+         specparm1 = colh2o(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 8._rb*(specparm1)
+         js1 = 1 + int(specmult1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         speccomb_planck = colh2o(lay)+refrat_planck_a*colco2(lay)
+         specparm_planck = colh2o(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 8._rb*specparm_planck
+         jpl= max(1 + int(specmult_planck), 1)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(4) + js, 574))
+         ind1 = max(1,min((jp(lay)*5+(jt1(lay)-1))*nspa(4) + js1, 574))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+
+         if (specparm .lt. 0.125_rb) then
+            p = fs - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else if (specparm .gt. 0.875_rb) then
+            p = -fs 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else
+            fac000 = (1._rb - fs) * fac00(lay)
+            fac010 = (1._rb - fs) * fac10(lay)
+            fac100 = fs * fac00(lay)
+            fac110 = fs * fac10(lay)
+         endif
+
+         if (specparm1 .lt. 0.125_rb) then
+            p = fs1 - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else if (specparm1 .gt. 0.875_rb) then
+            p = -fs1 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else
+            fac001 = (1._rb - fs1) * fac01(lay)
+            fac011 = (1._rb - fs1) * fac11(lay)
+            fac101 = fs1 * fac01(lay)
+            fac111 = fs1 * fac11(lay)
+         endif
+
+         do ig = 1, ng4
+            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+
+            if (specparm .lt. 0.125_rb) then
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac200 * absa(ind0+2,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig) + &
+                    fac210 * absa(ind0+11,ig))
+            else if (specparm .gt. 0.875_rb) then
+               tau_major = speccomb * &
+                    (fac200 * absa(ind0-1,ig) + &
+                    fac100 * absa(ind0,ig) + &
+                    fac000 * absa(ind0+1,ig) + &
+                    fac210 * absa(ind0+8,ig) + &
+                    fac110 * absa(ind0+9,ig) + &
+                    fac010 * absa(ind0+10,ig))
+            else
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig))
+            endif
+
+            if (specparm1 .lt. 0.125_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) +  &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac201 * absa(ind1+2,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig) + &
+                    fac211 * absa(ind1+11,ig))
+            else if (specparm1 .gt. 0.875_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac201 * absa(ind1-1,ig) + &
+                    fac101 * absa(ind1,ig) + &
+                    fac001 * absa(ind1+1,ig) + &
+                    fac211 * absa(ind1+8,ig) + &
+                    fac111 * absa(ind1+9,ig) + &
+                    fac011 * absa(ind1+10,ig))
+            else
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig))
+            endif
+
+            taug(lay,ngs3+ig) = tau_major + tau_major1 &
+                 + tauself + taufor
+            fracs(lay,ngs3+ig) = fracrefa(ig,jpl) + fpl * &
+                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+
+         speccomb = colo3(lay) + rat_o3co2(lay)*colco2(lay)
+         specparm = colo3(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 4._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = colo3(lay) + rat_o3co2_1(lay)*colco2(lay)
+         specparm1 = colo3(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 4._rb*(specparm1)
+         js1 = 1 + int(specmult1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs1) * fac01(lay)
+         fac011 = (1._rb - fs1) * fac11(lay)
+         fac101 = fs1 * fac01(lay)
+         fac111 = fs1 * fac11(lay)
+
+         speccomb_planck = colo3(lay)+refrat_planck_b*colco2(lay)
+         specparm_planck = colo3(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 4._rb*specparm_planck
+         jpl= 1 + int(specmult_planck)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, ((jp(lay)-13)*5+(jt(lay)-1))*nspb(4) + js)
+         ind1 = max(1, ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(4) + js1)
+
+         do ig = 1, ng4
+            taug(lay,ngs3+ig) =  speccomb * &
+                (fac000 * absb(ind0,ig) + &
+                fac100 * absb(ind0+1,ig) + &
+                fac010 * absb(ind0+5,ig) + &
+                fac110 * absb(ind0+6,ig)) &
+                + speccomb1 * &
+                (fac001 * absb(ind1,ig) +  &
+                fac101 * absb(ind1+1,ig) + &
+                fac011 * absb(ind1+5,ig) + &
+                fac111 * absb(ind1+6,ig))
+            fracs(lay,ngs3+ig) = fracrefb(ig,jpl) + fpl * &
+                (fracrefb(ig,jpl+1)-fracrefb(ig,jpl))
+         enddo
+
+! Empirical modification to code to improve stratospheric cooling rates
+! for co2.  Revised to apply weighting for g-point reduction in this band.
+
+         taug(lay,ngs3+8)=taug(lay,ngs3+8)*0.92
+         taug(lay,ngs3+9)=taug(lay,ngs3+9)*0.88
+         taug(lay,ngs3+10)=taug(lay,ngs3+10)*1.07
+         taug(lay,ngs3+11)=taug(lay,ngs3+11)*1.1
+         taug(lay,ngs3+12)=taug(lay,ngs3+12)*0.99
+         taug(lay,ngs3+13)=taug(lay,ngs3+13)*0.88
+         taug(lay,ngs3+14)=taug(lay,ngs3+14)*0.943
+
+      enddo
+
+      end subroutine taugb4
+
+!----------------------------------------------------------------------------
+      subroutine taugb5
+!----------------------------------------------------------------------------
+!
+!     band 5:  700-820 cm-1 (low key - h2o,co2; low minor - o3, ccl4)
+!                           (high key - o3,co2)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng5, ngs4
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg05, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            ka_mo3, selfref, forref, ccl4
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig
+      integer(kind=im) :: js, js1, jmo3, jpl
+      real(kind=rb) :: speccomb, specparm, specmult, fs
+      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1
+      real(kind=rb) :: speccomb_mo3, specparm_mo3, specmult_mo3, fmo3
+      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl
+      real(kind=rb) :: p, p4, fk0, fk1, fk2
+      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210
+      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211
+      real(kind=rb) :: tauself, taufor, o3m1, o3m2, abso3
+      real(kind=rb) :: refrat_planck_a, refrat_planck_b, refrat_m_a
+      real(kind=rb) :: tau_major, tau_major1
+
+
+! Minor gas mapping level :
+!     lower - o3, p = 317.34 mbar, t = 240.77 k
+!     lower - ccl4
+
+! Calculate reference ratio to be used in calculation of Planck
+! fraction in lower/upper atmosphere.
+
+! P = 473.420 mb
+      refrat_planck_a = chi_mls(1,5)/chi_mls(2,5)
+
+! P = 0.2369 mb
+      refrat_planck_b = chi_mls(3,43)/chi_mls(2,43)
+
+! P = 317.3480
+      refrat_m_a = chi_mls(1,7)/chi_mls(2,7)
+
+! Compute the optical depth by interpolating in ln(pressure) and 
+! temperature, and appropriate species.  Below laytrop, the 
+! water vapor self-continuum and foreign continuum is 
+! interpolated (in temperature) separately.
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)
+         specparm = colh2o(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = colh2o(lay) + rat_h2oco2_1(lay)*colco2(lay)
+         specparm1 = colh2o(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 8._rb*(specparm1)
+         js1 = 1 + int(specmult1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         speccomb_mo3 = colh2o(lay) + refrat_m_a*colco2(lay)
+         specparm_mo3 = colh2o(lay)/speccomb_mo3
+         if (specparm_mo3 .ge. oneminus) specparm_mo3 = oneminus
+         specmult_mo3 = 8._rb*specparm_mo3
+         jmo3 = max(1 + int(specmult_mo3),1)
+         fmo3 = mod(specmult_mo3,1.0_rb)
+
+         speccomb_planck = colh2o(lay)+refrat_planck_a*colco2(lay)
+         specparm_planck = colh2o(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 8._rb*specparm_planck
+         jpl= max(1 + int(specmult_planck),1)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(5) + js, 574))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(5) + js1, 574))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         indm = max(1, indminor(lay))
+
+         if (specparm .lt. 0.125_rb) then
+            p = fs - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else if (specparm .gt. 0.875_rb) then
+            p = -fs 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else
+            fac000 = (1._rb - fs) * fac00(lay)
+            fac010 = (1._rb - fs) * fac10(lay)
+            fac100 = fs * fac00(lay)
+            fac110 = fs * fac10(lay)
+         endif
+
+         if (specparm1 .lt. 0.125_rb) then
+            p = fs1 - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else if (specparm1 .gt. 0.875_rb) then
+            p = -fs1 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else
+            fac001 = (1._rb - fs1) * fac01(lay)
+            fac011 = (1._rb - fs1) * fac11(lay)
+            fac101 = fs1 * fac01(lay)
+            fac111 = fs1 * fac11(lay)
+         endif
+
+         do ig = 1, ng5
+            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            o3m1 = ka_mo3(jmo3,indm,ig) + fmo3 * &
+                 (ka_mo3(jmo3+1,indm,ig)-ka_mo3(jmo3,indm,ig))
+            o3m2 = ka_mo3(jmo3,indm+1,ig) + fmo3 * &
+                 (ka_mo3(jmo3+1,indm+1,ig)-ka_mo3(jmo3,indm+1,ig))
+            abso3 = o3m1 + minorfrac(lay)*(o3m2-o3m1)
+
+            if (specparm .lt. 0.125_rb) then
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac200 * absa(ind0+2,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig) + &
+                    fac210 * absa(ind0+11,ig))
+            else if (specparm .gt. 0.875_rb) then
+               tau_major = speccomb * &
+                    (fac200 * absa(ind0-1,ig) + &
+                    fac100 * absa(ind0,ig) + &
+                    fac000 * absa(ind0+1,ig) + &
+                    fac210 * absa(ind0+8,ig) + &
+                    fac110 * absa(ind0+9,ig) + &
+                    fac010 * absa(ind0+10,ig))
+            else
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig))
+            endif
+
+            if (specparm1 .lt. 0.125_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac201 * absa(ind1+2,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig) + &
+                    fac211 * absa(ind1+11,ig))
+            else if (specparm1 .gt. 0.875_rb) then
+               tau_major1 = speccomb1 * & 
+                    (fac201 * absa(ind1-1,ig) + &
+                    fac101 * absa(ind1,ig) + &
+                    fac001 * absa(ind1+1,ig) + &
+                    fac211 * absa(ind1+8,ig) + &
+                    fac111 * absa(ind1+9,ig) + &
+                    fac011 * absa(ind1+10,ig))
+            else
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig))
+            endif
+
+            taug(lay,ngs4+ig) = tau_major + tau_major1 &
+                 + tauself + taufor &
+                 + abso3*colo3(lay) &
+                 + wx(1,lay) * ccl4(ig)
+            fracs(lay,ngs4+ig) = fracrefa(ig,jpl) + fpl * &
+                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+
+         speccomb = colo3(lay) + rat_o3co2(lay)*colco2(lay)
+         specparm = colo3(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 4._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = colo3(lay) + rat_o3co2_1(lay)*colco2(lay)
+         specparm1 = colo3(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 4._rb*(specparm1)
+         js1 = 1 + int(specmult1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs1) * fac01(lay)
+         fac011 = (1._rb - fs1) * fac11(lay)
+         fac101 = fs1 * fac01(lay)
+         fac111 = fs1 * fac11(lay)
+
+         speccomb_planck = colo3(lay)+refrat_planck_b*colco2(lay)
+         specparm_planck = colo3(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 4._rb*specparm_planck
+         jpl= 1 + int(specmult_planck)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, ((jp(lay)-13)*5+(jt(lay)-1))*nspb(5) + js)
+         ind1 = max(1, ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(5) + js1)
+         
+         do ig = 1, ng5
+            taug(lay,ngs4+ig) = speccomb * &
+                (fac000 * absb(ind0,ig) + &
+                fac100 * absb(ind0+1,ig) + &
+                fac010 * absb(ind0+5,ig) + &
+                fac110 * absb(ind0+6,ig)) &
+                + speccomb1 * &
+                (fac001 * absb(ind1,ig) + &
+                fac101 * absb(ind1+1,ig) + &
+                fac011 * absb(ind1+5,ig) + &
+                fac111 * absb(ind1+6,ig))  &
+                + wx(1,lay) * ccl4(ig)
+            fracs(lay,ngs4+ig) = fracrefb(ig,jpl) + fpl * &
+                (fracrefb(ig,jpl+1)-fracrefb(ig,jpl))
+         enddo
+      enddo
+
+      end subroutine taugb5
+
+!----------------------------------------------------------------------------
+      subroutine taugb6
+!----------------------------------------------------------------------------
+!
+!     band 6:  820-980 cm-1 (low key - h2o; low minor - co2)
+!                           (high key - nothing; high minor - cfc11, cfc12)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng6, ngs5
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg06, only : fracrefa, absa, ka, ka_mco2, &
+                            selfref, forref, cfc11adj, cfc12
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig
+      real(kind=rb) :: chi_co2, ratco2, adjfac, adjcolco2
+      real(kind=rb) :: tauself, taufor, absco2
+
+
+! Minor gas mapping level:
+!     lower - co2, p = 706.2720 mb, t = 294.2 k
+!     upper - cfc11, cfc12
+
+! Compute the optical depth by interpolating in ln(pressure) and
+! temperature. The water vapor self-continuum and foreign continuum
+! is interpolated (in temperature) separately.  
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+! In atmospheres where the amount of CO2 is too great to be considered
+! a minor species, adjust the column amount of CO2 by an empirical factor 
+! to obtain the proper contribution.
+         chi_co2 = colco2(lay)/(coldry(lay))
+         ratco2 = 1.e20_rb*chi_co2/chi_mls(2,jp(lay)+1)
+         if (ratco2 .gt. 3.0_rb) then
+            adjfac = 2.0_rb+(ratco2-2.0_rb)**0.77_rb
+            adjcolco2 = adjfac*chi_mls(2,jp(lay)+1)*coldry(lay)*1.e-20_rb
+         else
+            adjcolco2 = colco2(lay)
+         endif
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(6) + 1, 64))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(6) + 1, 64))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         indm = max(1, indminor(lay))
+
+         do ig = 1, ng6
+            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))
+            absco2 =  (ka_mco2(indm,ig) + minorfrac(lay) * &
+                 (ka_mco2(indm+1,ig) - ka_mco2(indm,ig)))
+            taug(lay,ngs5+ig) = colh2o(lay) * &
+                (fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) +  &
+                 fac11(lay) * absa(ind1+1,ig))  &
+                 + tauself + taufor &
+                 + adjcolco2 * absco2 &
+                 + wx(2,lay) * cfc11adj(ig) &
+                 + wx(3,lay) * cfc12(ig)
+            fracs(lay,ngs5+ig) = fracrefa(ig)
+         enddo
+      enddo
+
+! Upper atmosphere loop
+! Nothing important goes on above laytrop in this band.
+      do lay = laytrop+1, nlayers
+
+         do ig = 1, ng6
+            taug(lay,ngs5+ig) = 0.0_rb &
+                 + wx(2,lay) * cfc11adj(ig) &
+                 + wx(3,lay) * cfc12(ig)
+            fracs(lay,ngs5+ig) = fracrefa(ig)
+         enddo
+      enddo
+
+      end subroutine taugb6
+
+!----------------------------------------------------------------------------
+      subroutine taugb7
+!----------------------------------------------------------------------------
+!
+!     band 7:  980-1080 cm-1 (low key - h2o,o3; low minor - co2)
+!                            (high key - o3; high minor - co2)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng7, ngs6
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg07, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            ka_mco2, kb_mco2, selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig
+      integer(kind=im) :: js, js1, jmco2, jpl
+      real(kind=rb) :: speccomb, specparm, specmult, fs
+      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1
+      real(kind=rb) :: speccomb_mco2, specparm_mco2, specmult_mco2, fmco2
+      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl
+      real(kind=rb) :: p, p4, fk0, fk1, fk2
+      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210
+      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211
+      real(kind=rb) :: tauself, taufor, co2m1, co2m2, absco2
+      real(kind=rb) :: chi_co2, ratco2, adjfac, adjcolco2
+      real(kind=rb) :: refrat_planck_a, refrat_m_a
+      real(kind=rb) :: tau_major, tau_major1
+
+
+! Minor gas mapping level :
+!     lower - co2, p = 706.2620 mbar, t= 278.94 k
+!     upper - co2, p = 12.9350 mbar, t = 234.01 k
+
+! Calculate reference ratio to be used in calculation of Planck
+! fraction in lower atmosphere.
+
+! P = 706.2620 mb
+      refrat_planck_a = chi_mls(1,3)/chi_mls(3,3)
+
+! P = 706.2720 mb
+      refrat_m_a = chi_mls(1,3)/chi_mls(3,3)
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below laytrop, the water
+! vapor self-continuum and foreign continuum is interpolated 
+! (in temperature) separately. 
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         speccomb = colh2o(lay) + rat_h2oo3(lay)*colo3(lay)
+         specparm = colh2o(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = max(1 + int(specmult) , 1)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = colh2o(lay) + rat_h2oo3_1(lay)*colo3(lay)
+         specparm1 = colh2o(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 8._rb*(specparm1)
+         js1 =max( 1 + int(specmult1), 1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         speccomb_mco2 = colh2o(lay) + refrat_m_a*colo3(lay)
+         specparm_mco2 = colh2o(lay)/speccomb_mco2
+         if (specparm_mco2 .ge. oneminus) specparm_mco2 = oneminus
+         specmult_mco2 = 8._rb*specparm_mco2
+
+         jmco2 = max(1 + int(specmult_mco2), 1)
+         fmco2 = mod(specmult_mco2,1.0_rb)
+
+!  In atmospheres where the amount of CO2 is too great to be considered
+!  a minor species, adjust the column amount of CO2 by an empirical factor 
+!  to obtain the proper contribution.
+         chi_co2 = colco2(lay)/(coldry(lay))
+         ratco2 = 1.e20*chi_co2/chi_mls(2,jp(lay)+1)
+         if (ratco2 .gt. 3.0_rb) then
+            adjfac = 3.0_rb+(ratco2-3.0_rb)**0.79_rb
+            adjcolco2 = adjfac*chi_mls(2,jp(lay)+1)*coldry(lay)*1.e-20_rb
+         else
+            adjcolco2 = colco2(lay)
+         endif
+
+         speccomb_planck = colh2o(lay)+refrat_planck_a*colo3(lay)
+         specparm_planck = colh2o(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 8._rb*specparm_planck
+         jpl= max(1 + int(specmult_planck),1)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(7) + js, 574))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(7) + js1, 574))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         indm = max(1, indminor(lay))
+
+         if (specparm .lt. 0.125_rb) then
+            p = fs - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else if (specparm .gt. 0.875_rb) then
+            p = -fs 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else
+            fac000 = (1._rb - fs) * fac00(lay)
+            fac010 = (1._rb - fs) * fac10(lay)
+            fac100 = fs * fac00(lay)
+            fac110 = fs * fac10(lay)
+         endif
+         if (specparm1 .lt. 0.125_rb) then
+            p = fs1 - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else if (specparm1 .gt. 0.875_rb) then
+            p = -fs1 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else
+            fac001 = (1._rb - fs1) * fac01(lay)
+            fac011 = (1._rb - fs1) * fac11(lay)
+            fac101 = fs1 * fac01(lay)
+            fac111 = fs1 * fac11(lay)
+         endif
+
+         do ig = 1, ng7
+            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            co2m1 = ka_mco2(jmco2,indm,ig) + fmco2 * &
+                 (ka_mco2(jmco2+1,indm,ig) - ka_mco2(jmco2,indm,ig))
+            co2m2 = ka_mco2(jmco2,indm+1,ig) + fmco2 * &
+                 (ka_mco2(jmco2+1,indm+1,ig) - ka_mco2(jmco2,indm+1,ig))
+            absco2 = co2m1 + minorfrac(lay) * (co2m2 - co2m1)
+
+            if (specparm .lt. 0.125_rb) then
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac200 * absa(ind0+2,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig) + &
+                    fac210 * absa(ind0+11,ig))
+            else if (specparm .gt. 0.875_rb) then
+               tau_major = speccomb * &
+                    (fac200 * absa(ind0-1,ig) + &
+                    fac100 * absa(ind0,ig) + &
+                    fac000 * absa(ind0+1,ig) + &
+                    fac210 * absa(ind0+8,ig) + &
+                    fac110 * absa(ind0+9,ig) + &
+                    fac010 * absa(ind0+10,ig))
+            else
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig))
+            endif
+
+            if (specparm1 .lt. 0.125_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac201 * absa(ind1+2,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig) + &
+                    fac211 * absa(ind1+11,ig))
+            else if (specparm1 .gt. 0.875_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac201 * absa(ind1-1,ig) + &
+                    fac101 * absa(ind1,ig) + &
+                    fac001 * absa(ind1+1,ig) + &
+                    fac211 * absa(ind1+8,ig) + &
+                    fac111 * absa(ind1+9,ig) + &
+                    fac011 * absa(ind1+10,ig))
+            else
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) +  &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig))
+            endif
+
+            taug(lay,ngs6+ig) = tau_major + tau_major1 &
+                 + tauself + taufor &
+                 + adjcolco2*absco2
+            fracs(lay,ngs6+ig) = fracrefa(ig,jpl) + fpl * &
+                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+
+!  In atmospheres where the amount of CO2 is too great to be considered
+!  a minor species, adjust the column amount of CO2 by an empirical factor 
+!  to obtain the proper contribution.
+         chi_co2 = colco2(lay)/(coldry(lay))
+         ratco2 = 1.e20*chi_co2/chi_mls(2,jp(lay)+1)
+         if (ratco2 .gt. 3.0_rb) then
+            adjfac = 2.0_rb+(ratco2-2.0_rb)**0.79_rb
+            adjcolco2 = adjfac*chi_mls(2,jp(lay)+1)*coldry(lay)*1.e-20_rb
+         else
+            adjcolco2 = colco2(lay)
+         endif
+
+         ind0 = max(1, ((jp(lay)-13)*5+(jt(lay)-1))*nspb(7) + 1)
+         ind1 = max(1, ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(7) + 1)
+         indm = max(1, indminor(lay))
+
+         do ig = 1, ng7
+            absco2 = kb_mco2(indm,ig) + minorfrac(lay) * &
+                 (kb_mco2(indm+1,ig) - kb_mco2(indm,ig))
+            taug(lay,ngs6+ig) = colo3(lay) * &
+                 (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig)) &
+                 + adjcolco2 * absco2
+            fracs(lay,ngs6+ig) = fracrefb(ig)
+         enddo
+
+! Empirical modification to code to improve stratospheric cooling rates
+! for o3.  Revised to apply weighting for g-point reduction in this band.
+
+         taug(lay,ngs6+6)=taug(lay,ngs6+6)*0.92_rb
+         taug(lay,ngs6+7)=taug(lay,ngs6+7)*0.88_rb
+         taug(lay,ngs6+8)=taug(lay,ngs6+8)*1.07_rb
+         taug(lay,ngs6+9)=taug(lay,ngs6+9)*1.1_rb
+         taug(lay,ngs6+10)=taug(lay,ngs6+10)*0.99_rb
+         taug(lay,ngs6+11)=taug(lay,ngs6+11)*0.855_rb
+
+      enddo
+
+      end subroutine taugb7
+
+!----------------------------------------------------------------------------
+      subroutine taugb8
+!----------------------------------------------------------------------------
+!
+!     band 8:  1080-1180 cm-1 (low key - h2o; low minor - co2,o3,n2o)
+!                             (high key - o3; high minor - co2, n2o)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng8, ngs7
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg08, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            ka_mco2, ka_mn2o, ka_mo3, kb_mco2, kb_mn2o, &
+                            selfref, forref, cfc12, cfc22adj
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig
+      real(kind=rb) :: tauself, taufor, absco2, abso3, absn2o
+      real(kind=rb) :: chi_co2, ratco2, adjfac, adjcolco2
+
+
+! Minor gas mapping level:
+!     lower - co2, p = 1053.63 mb, t = 294.2 k
+!     lower - o3,  p = 317.348 mb, t = 240.77 k
+!     lower - n2o, p = 706.2720 mb, t= 278.94 k
+!     lower - cfc12,cfc11
+!     upper - co2, p = 35.1632 mb, t = 223.28 k
+!     upper - n2o, p = 8.716e-2 mb, t = 226.03 k
+
+! Compute the optical depth by interpolating in ln(pressure) and 
+! temperature, and appropriate species.  Below laytrop, the water vapor 
+! self-continuum and foreign continuum is interpolated (in temperature) 
+! separately.
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+!  In atmospheres where the amount of CO2 is too great to be considered
+!  a minor species, adjust the column amount of CO2 by an empirical factor 
+!  to obtain the proper contribution.
+         chi_co2 = colco2(lay)/(coldry(lay))
+         ratco2 = 1.e20_rb*chi_co2/chi_mls(2,jp(lay)+1)
+         if (ratco2 .gt. 3.0_rb) then
+            adjfac = 2.0_rb+(ratco2-2.0_rb)**0.65_rb
+            adjcolco2 = adjfac*chi_mls(2,jp(lay)+1)*coldry(lay)*1.e-20_rb
+         else
+            adjcolco2 = colco2(lay)
+         endif
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(8) + 1, 64))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(8) + 1, 64))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         indm = max(1, indminor(lay))
+
+         do ig = 1, ng8
+            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))
+            absco2 =  (ka_mco2(indm,ig) + minorfrac(lay) * &
+                 (ka_mco2(indm+1,ig) - ka_mco2(indm,ig)))
+            abso3 =  (ka_mo3(indm,ig) + minorfrac(lay) * &
+                 (ka_mo3(indm+1,ig) - ka_mo3(indm,ig)))
+            absn2o =  (ka_mn2o(indm,ig) + minorfrac(lay) * &
+                 (ka_mn2o(indm+1,ig) - ka_mn2o(indm,ig)))
+            taug(lay,ngs7+ig) = colh2o(lay) * &
+                 (fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) +  &
+                 fac11(lay) * absa(ind1+1,ig)) &
+                 + tauself + taufor &
+                 + adjcolco2*absco2 &
+                 + colo3(lay) * abso3 &
+                 + coln2o(lay) * absn2o &
+                 + wx(3,lay) * cfc12(ig) &
+                 + wx(4,lay) * cfc22adj(ig)
+            fracs(lay,ngs7+ig) = fracrefa(ig)
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+
+!  In atmospheres where the amount of CO2 is too great to be considered
+!  a minor species, adjust the column amount of CO2 by an empirical factor 
+!  to obtain the proper contribution.
+         chi_co2 = colco2(lay)/coldry(lay)
+         ratco2 = 1.e20_rb*chi_co2/chi_mls(2,jp(lay)+1)
+         if (ratco2 .gt. 3.0_rb) then
+            adjfac = 2.0_rb+(ratco2-2.0_rb)**0.65_rb
+            adjcolco2 = adjfac*chi_mls(2,jp(lay)+1) * coldry(lay)*1.e-20_rb
+         else
+            adjcolco2 = colco2(lay)
+         endif
+
+         ind0 = max(1, min(((jp(lay)-13)*5+(jt(lay)-1))*nspb(8) + 1, 64))
+         ind1 = max(1, min(((jp(lay)-12)*5+(jt1(lay)-1))*nspb(8) + 1, 64))
+         indm = indminor(lay)
+
+         do ig = 1, ng8
+            absco2 =  (kb_mco2(indm,ig) + minorfrac(lay) * &
+                 (kb_mco2(indm+1,ig) - kb_mco2(indm,ig)))
+            absn2o =  (kb_mn2o(indm,ig) + minorfrac(lay) * &
+                 (kb_mn2o(indm+1,ig) - kb_mn2o(indm,ig)))
+            taug(lay,ngs7+ig) = colo3(lay) * &
+                 (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig)) &
+                 + adjcolco2*absco2 &
+                 + coln2o(lay)*absn2o & 
+                 + wx(3,lay) * cfc12(ig) &
+                 + wx(4,lay) * cfc22adj(ig)
+            fracs(lay,ngs7+ig) = fracrefb(ig)
+         enddo
+      enddo
+
+      end subroutine taugb8
+
+!----------------------------------------------------------------------------
+      subroutine taugb9
+!----------------------------------------------------------------------------
+!
+!     band 9:  1180-1390 cm-1 (low key - h2o,ch4; low minor - n2o)
+!                             (high key - ch4; high minor - n2o)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng9, ngs8
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg09, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            ka_mn2o, kb_mn2o, selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig
+      integer(kind=im) :: js, js1, jmn2o, jpl
+      real(kind=rb) :: speccomb, specparm, specmult, fs
+      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1
+      real(kind=rb) :: speccomb_mn2o, specparm_mn2o, specmult_mn2o, fmn2o
+      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl
+      real(kind=rb) :: p, p4, fk0, fk1, fk2
+      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210
+      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211
+      real(kind=rb) :: tauself, taufor, n2om1, n2om2, absn2o
+      real(kind=rb) :: chi_n2o, ratn2o, adjfac, adjcoln2o
+      real(kind=rb) :: refrat_planck_a, refrat_m_a
+      real(kind=rb) :: tau_major, tau_major1
+
+
+! Minor gas mapping level :
+!     lower - n2o, p = 706.272 mbar, t = 278.94 k
+!     upper - n2o, p = 95.58 mbar, t = 215.7 k
+
+! Calculate reference ratio to be used in calculation of Planck
+! fraction in lower/upper atmosphere.
+
+! P = 212 mb
+      refrat_planck_a = chi_mls(1,9)/chi_mls(6,9)
+
+! P = 706.272 mb 
+      refrat_m_a = chi_mls(1,3)/chi_mls(6,3)
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below laytrop, the water
+! vapor self-continuum and foreign continuum is interpolated 
+! (in temperature) separately.  
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         speccomb = colh2o(lay) + rat_h2och4(lay)*colch4(lay)
+         specparm = colh2o(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = max(1 + int(specmult),1)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = colh2o(lay) + rat_h2och4_1(lay)*colch4(lay)
+         specparm1 = colh2o(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 8._rb*(specparm1)
+         js1 = max(1 + int(specmult1),1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         speccomb_mn2o = colh2o(lay) + refrat_m_a*colch4(lay)
+         specparm_mn2o = colh2o(lay)/speccomb_mn2o
+         if (specparm_mn2o .ge. oneminus) specparm_mn2o = oneminus
+         specmult_mn2o = 8._rb*specparm_mn2o
+         jmn2o = max(1 + int(specmult_mn2o), 1)
+         fmn2o = mod(specmult_mn2o,1.0_rb)
+
+!  In atmospheres where the amount of N2O is too great to be considered
+!  a minor species, adjust the column amount of N2O by an empirical factor 
+!  to obtain the proper contribution.
+         chi_n2o = coln2o(lay)/(coldry(lay))
+         ratn2o = 1.e20_rb*chi_n2o/chi_mls(4,jp(lay)+1)
+         if (ratn2o .gt. 1.5_rb) then
+            adjfac = 0.5_rb+(ratn2o-0.5_rb)**0.65_rb
+            adjcoln2o = adjfac*chi_mls(4,jp(lay)+1)*coldry(lay)*1.e-20_rb
+         else
+            adjcoln2o = coln2o(lay)
+         endif
+
+         speccomb_planck = colh2o(lay)+refrat_planck_a*colch4(lay)
+         specparm_planck = colh2o(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 8._rb*specparm_planck
+         jpl= max(1 + int(specmult_planck),1)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(9) + js, 574))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(9) + js1,574))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         indm = max(1, indminor(lay))
+
+         if (specparm .lt. 0.125_rb) then
+            p = fs - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else if (specparm .gt. 0.875_rb) then
+            p = -fs 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else
+            fac000 = (1._rb - fs) * fac00(lay)
+            fac010 = (1._rb - fs) * fac10(lay)
+            fac100 = fs * fac00(lay)
+            fac110 = fs * fac10(lay)
+         endif
+
+         if (specparm1 .lt. 0.125_rb) then
+            p = fs1 - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else if (specparm1 .gt. 0.875_rb) then
+            p = -fs1 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else
+            fac001 = (1._rb - fs1) * fac01(lay)
+            fac011 = (1._rb - fs1) * fac11(lay)
+            fac101 = fs1 * fac01(lay)
+            fac111 = fs1 * fac11(lay)
+         endif
+
+         do ig = 1, ng9
+            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            n2om1 = ka_mn2o(jmn2o,indm,ig) + fmn2o * &
+                 (ka_mn2o(jmn2o+1,indm,ig) - ka_mn2o(jmn2o,indm,ig))
+            n2om2 = ka_mn2o(jmn2o,indm+1,ig) + fmn2o * &
+                 (ka_mn2o(jmn2o+1,indm+1,ig) - ka_mn2o(jmn2o,indm+1,ig))
+            absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
+
+            if (specparm .lt. 0.125_rb) then
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac200 * absa(ind0+2,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig) + &
+                    fac210 * absa(ind0+11,ig))
+            else if (specparm .gt. 0.875_rb) then
+               tau_major = speccomb * &
+                    (fac200 * absa(ind0-1,ig) + &
+                    fac100 * absa(ind0,ig) + &
+                    fac000 * absa(ind0+1,ig) + &
+                    fac210 * absa(ind0+8,ig) + &
+                    fac110 * absa(ind0+9,ig) + &
+                    fac010 * absa(ind0+10,ig))
+            else
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig))
+            endif
+
+            if (specparm1 .lt. 0.125_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + & 
+                    fac101 * absa(ind1+1,ig) + &
+                    fac201 * absa(ind1+2,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig) + &
+                    fac211 * absa(ind1+11,ig))
+            else if (specparm1 .gt. 0.875_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac201 * absa(ind1-1,ig) + &
+                    fac101 * absa(ind1,ig) + &
+                    fac001 * absa(ind1+1,ig) + &
+                    fac211 * absa(ind1+8,ig) + &
+                    fac111 * absa(ind1+9,ig) + &
+                    fac011 * absa(ind1+10,ig))
+            else
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig))
+            endif
+
+            taug(lay,ngs8+ig) = tau_major + tau_major1 &
+                 + tauself + taufor &
+                 + adjcoln2o*absn2o
+            fracs(lay,ngs8+ig) = fracrefa(ig,jpl) + fpl * &
+                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+
+!  In atmospheres where the amount of N2O is too great to be considered
+!  a minor species, adjust the column amount of N2O by an empirical factor 
+!  to obtain the proper contribution.
+         chi_n2o = coln2o(lay)/(coldry(lay))
+         ratn2o = 1.e20_rb*chi_n2o/chi_mls(4,jp(lay)+1)
+         if (ratn2o .gt. 1.5_rb) then
+            adjfac = 0.5_rb+(ratn2o-0.5_rb)**0.65_rb
+            adjcoln2o = adjfac*chi_mls(4,jp(lay)+1)*coldry(lay)*1.e-20_rb
+         else
+            adjcoln2o = coln2o(lay)
+         endif
+
+         ind0 = max(((jp(lay)-13)*5+(jt(lay)-1))*nspb(9) + 1,1)
+         ind1 = max(((jp(lay)-12)*5+(jt1(lay)-1))*nspb(9) + 1,1)
+         indm = indminor(lay)
+
+         do ig = 1, ng9
+            absn2o = kb_mn2o(indm,ig) + minorfrac(lay) * &
+                (kb_mn2o(indm+1,ig) - kb_mn2o(indm,ig))
+            taug(lay,ngs8+ig) = colch4(lay) * &
+                 (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) +  &
+                 fac11(lay) * absb(ind1+1,ig)) &
+                 + adjcoln2o*absn2o
+            fracs(lay,ngs8+ig) = fracrefb(ig)
+         enddo
+      enddo
+
+      end subroutine taugb9
+
+!----------------------------------------------------------------------------
+      subroutine taugb10
+!----------------------------------------------------------------------------
+!
+!     band 10:  1390-1480 cm-1 (low key - h2o; high key - h2o)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng10, ngs9
+      use rrlw_kg10, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig
+      real(kind=rb) :: tauself, taufor
+
+
+! Compute the optical depth by interpolating in ln(pressure) and 
+! temperature.  Below laytrop, the water vapor self-continuum and
+! foreign continuum is interpolated (in temperature) separately.
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(10) + 1, 64))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(10) + 1, 64))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+
+         do ig = 1, ng10
+            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            taug(lay,ngs9+ig) = colh2o(lay) * &
+                 (fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) + &
+                 fac11(lay) * absa(ind1+1,ig))  &
+                 + tauself + taufor
+            fracs(lay,ngs9+ig) = fracrefa(ig)
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         ind0 = max(((jp(lay)-13)*5+(jt(lay)-1))*nspb(10) + 1,1)
+         ind1 = max(((jp(lay)-12)*5+(jt1(lay)-1))*nspb(10) + 1,1)
+         indf = indfor(lay)
+
+         do ig = 1, ng10
+            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            taug(lay,ngs9+ig) = colh2o(lay) * &
+                 (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) +  &
+                 fac11(lay) * absb(ind1+1,ig)) &
+                 + taufor
+            fracs(lay,ngs9+ig) = fracrefb(ig)
+         enddo
+      enddo
+
+      end subroutine taugb10
+
+!----------------------------------------------------------------------------
+      subroutine taugb11
+!----------------------------------------------------------------------------
+!
+!     band 11:  1480-1800 cm-1 (low - h2o; low minor - o2)
+!                              (high key - h2o; high minor - o2)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng11, ngs10
+      use rrlw_kg11, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            ka_mo2, kb_mo2, selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig
+      real(kind=rb) :: scaleo2, tauself, taufor, tauo2
+
+
+! Minor gas mapping level :
+!     lower - o2, p = 706.2720 mbar, t = 278.94 k
+!     upper - o2, p = 4.758820 mbarm t = 250.85 k
+
+! Compute the optical depth by interpolating in ln(pressure) and 
+! temperature.  Below laytrop, the water vapor self-continuum and
+! foreign continuum is interpolated (in temperature) separately.
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(11) + 1, 64))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(11) + 1, 64))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         indm = max(1, indminor(lay))
+         scaleo2 = colo2(lay)*scaleminor(lay)
+         do ig = 1, ng11
+            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))
+            tauo2 =  scaleo2 * (ka_mo2(indm,ig) + minorfrac(lay) * &
+                 (ka_mo2(indm+1,ig) - ka_mo2(indm,ig)))
+            taug(lay,ngs10+ig) = colh2o(lay) * &
+                 (fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) + &
+                 fac11(lay) * absa(ind1+1,ig)) &
+                 + tauself + taufor &
+                 + tauo2
+            fracs(lay,ngs10+ig) = fracrefa(ig)
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         ind0 = max(((jp(lay)-13)*5+(jt(lay)-1))*nspb(11) + 1,1)
+         ind1 = max(((jp(lay)-12)*5+(jt1(lay)-1))*nspb(11) + 1,1)
+         indf = indfor(lay)
+         indm = indminor(lay)
+         scaleo2 = colo2(lay)*scaleminor(lay)
+         do ig = 1, ng11
+            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            tauo2 =  scaleo2 * (kb_mo2(indm,ig) + minorfrac(lay) * &
+                 (kb_mo2(indm+1,ig) - kb_mo2(indm,ig)))
+            taug(lay,ngs10+ig) = colh2o(lay) * &
+                 (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig))  &
+                 + taufor &
+                 + tauo2
+            fracs(lay,ngs10+ig) = fracrefb(ig)
+         enddo
+      enddo
+
+      end subroutine taugb11
+
+!----------------------------------------------------------------------------
+      subroutine taugb12
+!----------------------------------------------------------------------------
+!
+!     band 12:  1800-2080 cm-1 (low - h2o,co2; high - nothing)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng12, ngs11
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg12, only : fracrefa, absa, ka, &
+                            selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig
+      integer(kind=im) :: js, js1, jpl
+      real(kind=rb) :: speccomb, specparm, specmult, fs
+      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1
+      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl
+      real(kind=rb) :: p, p4, fk0, fk1, fk2
+      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210
+      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211
+      real(kind=rb) :: tauself, taufor
+      real(kind=rb) :: refrat_planck_a
+      real(kind=rb) :: tau_major, tau_major1
+
+
+! Calculate reference ratio to be used in calculation of Planck
+! fraction in lower/upper atmosphere.
+
+! P =   174.164 mb 
+      refrat_planck_a = chi_mls(1,10)/chi_mls(2,10)
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below laytrop, the water
+! vapor self-continuum adn foreign continuum is interpolated 
+! (in temperature) separately.  
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)
+         specparm = colh2o(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = max(1 + int(specmult),1)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = colh2o(lay) + rat_h2oco2_1(lay)*colco2(lay)
+         specparm1 = colh2o(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 8._rb*(specparm1)
+         js1 = max(1 + int(specmult1),1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         speccomb_planck = colh2o(lay)+refrat_planck_a*colco2(lay)
+         specparm_planck = colh2o(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 8._rb*specparm_planck
+         jpl= max(1 + int(specmult_planck),1)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(12) + js, 574))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(12) + js1, 574))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+
+         if (specparm .lt. 0.125_rb) then
+            p = fs - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else if (specparm .gt. 0.875_rb) then
+            p = -fs 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else
+            fac000 = (1._rb - fs) * fac00(lay)
+            fac010 = (1._rb - fs) * fac10(lay)
+            fac100 = fs * fac00(lay)
+            fac110 = fs * fac10(lay)
+         endif
+
+         if (specparm1 .lt. 0.125_rb) then
+            p = fs1 - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else if (specparm1 .gt. 0.875_rb) then
+            p = -fs1 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else
+            fac001 = (1._rb - fs1) * fac01(lay)
+            fac011 = (1._rb - fs1) * fac11(lay)
+            fac101 = fs1 * fac01(lay)
+            fac111 = fs1 * fac11(lay)
+         endif
+
+         do ig = 1, ng12
+            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+
+            if (specparm .lt. 0.125_rb) then
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac200 * absa(ind0+2,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig) + &
+                    fac210 * absa(ind0+11,ig))
+            else if (specparm .gt. 0.875_rb) then
+               tau_major = speccomb * &
+                    (fac200 * absa(ind0-1,ig) + &
+                    fac100 * absa(ind0,ig) + &
+                    fac000 * absa(ind0+1,ig) + &
+                    fac210 * absa(ind0+8,ig) + &
+                    fac110 * absa(ind0+9,ig) + &
+                    fac010 * absa(ind0+10,ig))
+            else
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig))
+            endif
+
+            if (specparm1 .lt. 0.125_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac201 * absa(ind1+2,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig) + &
+                    fac211 * absa(ind1+11,ig))
+            else if (specparm1 .gt. 0.875_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac201 * absa(ind1-1,ig) + &
+                    fac101 * absa(ind1,ig) + &
+                    fac001 * absa(ind1+1,ig) + &
+                    fac211 * absa(ind1+8,ig) + &
+                    fac111 * absa(ind1+9,ig) + &
+                    fac011 * absa(ind1+10,ig))
+            else
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig))
+            endif
+
+            taug(lay,ngs11+ig) = tau_major + tau_major1 &
+                 + tauself + taufor
+            fracs(lay,ngs11+ig) = fracrefa(ig,jpl) + fpl * &
+                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         do ig = 1, ng12
+            taug(lay,ngs11+ig) = 0.0_rb
+            fracs(lay,ngs11+ig) = 0.0_rb
+         enddo
+      enddo
+
+      end subroutine taugb12
+
+!----------------------------------------------------------------------------
+      subroutine taugb13
+!----------------------------------------------------------------------------
+!
+!     band 13:  2080-2250 cm-1 (low key - h2o,n2o; high minor - o3 minor)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng13, ngs12
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg13, only : fracrefa, fracrefb, absa, ka, &
+                            ka_mco2, ka_mco, kb_mo3, selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig
+      integer(kind=im) :: js, js1, jmco2, jmco, jpl
+      real(kind=rb) :: speccomb, specparm, specmult, fs
+      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1
+      real(kind=rb) :: speccomb_mco2, specparm_mco2, specmult_mco2, fmco2
+      real(kind=rb) :: speccomb_mco, specparm_mco, specmult_mco, fmco
+      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl
+      real(kind=rb) :: p, p4, fk0, fk1, fk2
+      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210
+      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211
+      real(kind=rb) :: tauself, taufor, co2m1, co2m2, absco2 
+      real(kind=rb) :: com1, com2, absco, abso3
+      real(kind=rb) :: chi_co2, ratco2, adjfac, adjcolco2
+      real(kind=rb) :: refrat_planck_a, refrat_m_a, refrat_m_a3
+      real(kind=rb) :: tau_major, tau_major1
+
+
+! Minor gas mapping levels :
+!     lower - co2, p = 1053.63 mb, t = 294.2 k
+!     lower - co, p = 706 mb, t = 278.94 k
+!     upper - o3, p = 95.5835 mb, t = 215.7 k
+
+! Calculate reference ratio to be used in calculation of Planck
+! fraction in lower/upper atmosphere.
+
+! P = 473.420 mb (Level 5)
+      refrat_planck_a = chi_mls(1,5)/chi_mls(4,5)
+
+! P = 1053. (Level 1)
+      refrat_m_a = chi_mls(1,1)/chi_mls(4,1)
+
+! P = 706. (Level 3)
+      refrat_m_a3 = chi_mls(1,3)/chi_mls(4,3)
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below laytrop, the water
+! vapor self-continuum and foreign continuum is interpolated 
+! (in temperature) separately.  
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         speccomb = colh2o(lay) + rat_h2on2o(lay)*coln2o(lay)
+         specparm = colh2o(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = max(1 + int(specmult),1)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = colh2o(lay) + rat_h2on2o_1(lay)*coln2o(lay)
+         specparm1 = colh2o(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 8._rb*(specparm1)
+         js1 =max( 1 + int(specmult1),1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         speccomb_mco2 = colh2o(lay) + refrat_m_a*coln2o(lay)
+         specparm_mco2 = colh2o(lay)/speccomb_mco2
+         if (specparm_mco2 .ge. oneminus) specparm_mco2 = oneminus
+         specmult_mco2 = 8._rb*specparm_mco2
+         jmco2 = max(1 + int(specmult_mco2),1)
+         fmco2 = mod(specmult_mco2,1.0_rb)
+
+!  In atmospheres where the amount of CO2 is too great to be considered
+!  a minor species, adjust the column amount of CO2 by an empirical factor 
+!  to obtain the proper contribution.
+         chi_co2 = colco2(lay)/(coldry(lay))
+         ratco2 = 1.e20_rb*chi_co2/3.55e-4_rb
+         if (ratco2 .gt. 3.0_rb) then
+            adjfac = 2.0_rb+(ratco2-2.0_rb)**0.68_rb
+            adjcolco2 = adjfac*3.55e-4*coldry(lay)*1.e-20_rb
+         else
+            adjcolco2 = colco2(lay)
+         endif
+
+         speccomb_mco = colh2o(lay) + refrat_m_a3*coln2o(lay)
+         specparm_mco = colh2o(lay)/speccomb_mco
+         if (specparm_mco .ge. oneminus) specparm_mco = oneminus
+         specmult_mco = 8._rb*specparm_mco
+         jmco = max(1 + int(specmult_mco),1)
+         fmco = mod(specmult_mco,1.0_rb)
+
+         speccomb_planck = colh2o(lay)+refrat_planck_a*coln2o(lay)
+         specparm_planck = colh2o(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 8._rb*specparm_planck
+         jpl= max(1 + int(specmult_planck),1)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(13) + js, 574))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(13) + js1, 574))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         indm = max(1, indminor(lay))
+
+         if (specparm .lt. 0.125_rb) then
+            p = fs - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else if (specparm .gt. 0.875_rb) then
+            p = -fs 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else
+            fac000 = (1._rb - fs) * fac00(lay)
+            fac010 = (1._rb - fs) * fac10(lay)
+            fac100 = fs * fac00(lay)
+            fac110 = fs * fac10(lay)
+         endif
+
+         if (specparm1 .lt. 0.125_rb) then
+            p = fs1 - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else if (specparm1 .gt. 0.875_rb) then
+            p = -fs1 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else
+            fac001 = (1._rb - fs1) * fac01(lay)
+            fac011 = (1._rb - fs1) * fac11(lay)
+            fac101 = fs1 * fac01(lay)
+            fac111 = fs1 * fac11(lay)
+         endif
+
+         do ig = 1, ng13
+            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            co2m1 = ka_mco2(jmco2,indm,ig) + fmco2 * &
+                 (ka_mco2(jmco2+1,indm,ig) - ka_mco2(jmco2,indm,ig))
+            co2m2 = ka_mco2(jmco2,indm+1,ig) + fmco2 * &
+                 (ka_mco2(jmco2+1,indm+1,ig) - ka_mco2(jmco2,indm+1,ig))
+            absco2 = co2m1 + minorfrac(lay) * (co2m2 - co2m1)
+            com1 = ka_mco(jmco,indm,ig) + fmco * &
+                 (ka_mco(jmco+1,indm,ig) - ka_mco(jmco,indm,ig))
+            com2 = ka_mco(jmco,indm+1,ig) + fmco * &
+                 (ka_mco(jmco+1,indm+1,ig) - ka_mco(jmco,indm+1,ig))
+            absco = com1 + minorfrac(lay) * (com2 - com1)
+
+            if (specparm .lt. 0.125_rb) then
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac200 * absa(ind0+2,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig) + &
+                    fac210 * absa(ind0+11,ig))
+            else if (specparm .gt. 0.875_rb) then
+               tau_major = speccomb * &
+                    (fac200 * absa(ind0-1,ig) + &
+                    fac100 * absa(ind0,ig) + &
+                    fac000 * absa(ind0+1,ig) + &
+                    fac210 * absa(ind0+8,ig) + &
+                    fac110 * absa(ind0+9,ig) + &
+                    fac010 * absa(ind0+10,ig))
+            else
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig))
+            endif
+
+            if (specparm1 .lt. 0.125_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac201 * absa(ind1+2,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig) + &
+                    fac211 * absa(ind1+11,ig))
+            else if (specparm1 .gt. 0.875_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac201 * absa(ind1-1,ig) + &
+                    fac101 * absa(ind1,ig) + &
+                    fac001 * absa(ind1+1,ig) + &
+                    fac211 * absa(ind1+8,ig) + &
+                    fac111 * absa(ind1+9,ig) + &
+                    fac011 * absa(ind1+10,ig))
+            else
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig))
+            endif
+
+            taug(lay,ngs12+ig) = tau_major + tau_major1 &
+                 + tauself + taufor &
+                 + adjcolco2*absco2 &
+                 + colco(lay)*absco
+            fracs(lay,ngs12+ig) = fracrefa(ig,jpl) + fpl * &
+                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         indm = indminor(lay)
+         do ig = 1, ng13
+            abso3 = kb_mo3(indm,ig) + minorfrac(lay) * &
+                 (kb_mo3(indm+1,ig) - kb_mo3(indm,ig))
+            taug(lay,ngs12+ig) = colo3(lay)*abso3
+            fracs(lay,ngs12+ig) =  fracrefb(ig)
+         enddo
+      enddo
+
+      end subroutine taugb13
+
+!----------------------------------------------------------------------------
+      subroutine taugb14
+!----------------------------------------------------------------------------
+!
+!     band 14:  2250-2380 cm-1 (low - co2; high - co2)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng14, ngs13
+      use rrlw_kg14, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig
+      real(kind=rb) :: tauself, taufor
+
+
+! Compute the optical depth by interpolating in ln(pressure) and 
+! temperature.  Below laytrop, the water vapor self-continuum 
+! and foreign continuum is interpolated (in temperature) separately.  
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(14) + 1, 64))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(14) + 1, 64))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         do ig = 1, ng14
+            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            taug(lay,ngs13+ig) = colco2(lay) * &
+                 (fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) + &
+                 fac11(lay) * absa(ind1+1,ig)) &
+                 + tauself + taufor
+            fracs(lay,ngs13+ig) = fracrefa(ig)
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         ind0 = max(1, ((jp(lay)-13)*5+(jt(lay)-1))*nspb(14) + 1)
+         ind1 = max(1, ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(14) + 1)
+         do ig = 1, ng14
+            taug(lay,ngs13+ig) = colco2(lay) * &
+                 (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig))
+            fracs(lay,ngs13+ig) = fracrefb(ig)
+         enddo
+      enddo
+
+      end subroutine taugb14
+
+!----------------------------------------------------------------------------
+      subroutine taugb15
+!----------------------------------------------------------------------------
+!
+!     band 15:  2380-2600 cm-1 (low - n2o,co2; low minor - n2)
+!                              (high - nothing)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng15, ngs14
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg15, only : fracrefa, absa, ka, &
+                            ka_mn2, selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig
+      integer(kind=im) :: js, js1, jmn2, jpl
+      real(kind=rb) :: speccomb, specparm, specmult, fs
+      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1
+      real(kind=rb) :: speccomb_mn2, specparm_mn2, specmult_mn2, fmn2
+      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl
+      real(kind=rb) :: p, p4, fk0, fk1, fk2
+      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210
+      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211
+      real(kind=rb) :: scalen2, tauself, taufor, n2m1, n2m2, taun2 
+      real(kind=rb) :: refrat_planck_a, refrat_m_a
+      real(kind=rb) :: tau_major, tau_major1
+
+
+! Minor gas mapping level : 
+!     Lower - Nitrogen Continuum, P = 1053., T = 294.
+
+! Calculate reference ratio to be used in calculation of Planck
+! fraction in lower atmosphere.
+! P = 1053. mb (Level 1)
+      refrat_planck_a = chi_mls(4,1)/chi_mls(2,1)
+
+! P = 1053.
+      refrat_m_a = chi_mls(4,1)/chi_mls(2,1)
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below laytrop, the water
+! vapor self-continuum and foreign continuum is interpolated 
+! (in temperature) separately.  
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         speccomb = coln2o(lay) + rat_n2oco2(lay)*colco2(lay)
+         specparm = coln2o(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = coln2o(lay) + rat_n2oco2_1(lay)*colco2(lay)
+         specparm1 = coln2o(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 8._rb*(specparm1)
+         js1 = 1 + int(specmult1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         speccomb_mn2 = coln2o(lay) + refrat_m_a*colco2(lay)
+         specparm_mn2 = coln2o(lay)/speccomb_mn2
+         if (specparm_mn2 .ge. oneminus) specparm_mn2 = oneminus
+         specmult_mn2 = 8._rb*specparm_mn2
+         jmn2 = max(1 + int(specmult_mn2),1)
+         fmn2 = mod(specmult_mn2,1.0_rb)
+
+         speccomb_planck = coln2o(lay)+refrat_planck_a*colco2(lay)
+         specparm_planck = coln2o(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 8._rb*specparm_planck
+         jpl= max(1 + int(specmult_planck),1)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(15) + js, 574))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(15) + js1,574))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+         indm = max(1, indminor(lay))
+         
+         scalen2 = colbrd(lay)*scaleminor(lay)
+
+         if (specparm .lt. 0.125_rb) then
+            p = fs - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else if (specparm .gt. 0.875_rb) then
+            p = -fs 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else
+            fac000 = (1._rb - fs) * fac00(lay)
+            fac010 = (1._rb - fs) * fac10(lay)
+            fac100 = fs * fac00(lay)
+            fac110 = fs * fac10(lay)
+         endif
+         if (specparm1 .lt. 0.125_rb) then
+            p = fs1 - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else if (specparm1 .gt. 0.875_rb) then
+            p = -fs1 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else
+            fac001 = (1._rb - fs1) * fac01(lay)
+            fac011 = (1._rb - fs1) * fac11(lay)
+            fac101 = fs1 * fac01(lay)
+            fac111 = fs1 * fac11(lay)
+         endif
+
+         do ig = 1, ng15
+            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+            n2m1 = ka_mn2(jmn2,indm,ig) + fmn2 * &
+                 (ka_mn2(jmn2+1,indm,ig) - ka_mn2(jmn2,indm,ig))
+            n2m2 = ka_mn2(jmn2,indm+1,ig) + fmn2 * &
+                 (ka_mn2(jmn2+1,indm+1,ig) - ka_mn2(jmn2,indm+1,ig))
+            taun2 = scalen2 * (n2m1 + minorfrac(lay) * (n2m2 - n2m1))
+
+            if (specparm .lt. 0.125_rb) then
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac200 * absa(ind0+2,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig) + &
+                    fac210 * absa(ind0+11,ig))
+            else if (specparm .gt. 0.875_rb) then
+               tau_major = speccomb * &
+                    (fac200 * absa(ind0-1,ig) + &
+                    fac100 * absa(ind0,ig) + &
+                    fac000 * absa(ind0+1,ig) + &
+                    fac210 * absa(ind0+8,ig) + &
+                    fac110 * absa(ind0+9,ig) + &
+                    fac010 * absa(ind0+10,ig))
+            else
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig))
+            endif 
+
+            if (specparm1 .lt. 0.125_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac201 * absa(ind1+2,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig) + &
+                    fac211 * absa(ind1+11,ig))
+            else if (specparm1 .gt. 0.875_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac201 * absa(ind1-1,ig) + &
+                    fac101 * absa(ind1,ig) + &
+                    fac001 * absa(ind1+1,ig) + &
+                    fac211 * absa(ind1+8,ig) + &
+                    fac111 * absa(ind1+9,ig) + &
+                    fac011 * absa(ind1+10,ig))
+            else
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig))
+            endif
+
+            taug(lay,ngs14+ig) = tau_major + tau_major1 &
+                 + tauself + taufor &
+                 + taun2
+            fracs(lay,ngs14+ig) = fracrefa(ig,jpl) + fpl * &
+                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         do ig = 1, ng15
+            taug(lay,ngs14+ig) = 0.0_rb
+            fracs(lay,ngs14+ig) = 0.0_rb
+         enddo
+      enddo
+
+      end subroutine taugb15
+
+!----------------------------------------------------------------------------
+      subroutine taugb16
+!----------------------------------------------------------------------------
+!
+!     band 16:  2600-3250 cm-1 (low key- h2o,ch4; high key - ch4)
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrtm, only : ng16, ngs15
+      use rrlw_ref, only : chi_mls
+      use rrlw_kg16, only : fracrefa, fracrefb, absa, ka, absb, kb, &
+                            selfref, forref
+
+! ------- Declarations -------
+
+! Local 
+      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig
+      integer(kind=im) :: js, js1, jpl
+      real(kind=rb) :: speccomb, specparm, specmult, fs
+      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1
+      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl
+      real(kind=rb) :: p, p4, fk0, fk1, fk2
+      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210
+      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211
+      real(kind=rb) :: tauself, taufor
+      real(kind=rb) :: refrat_planck_a
+      real(kind=rb) :: tau_major, tau_major1
+
+
+! Calculate reference ratio to be used in calculation of Planck
+! fraction in lower atmosphere.
+
+! P = 387. mb (Level 6)
+      refrat_planck_a = chi_mls(1,6)/chi_mls(6,6)
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature,and appropriate species.  Below laytrop, the water
+! vapor self-continuum and foreign continuum is interpolated 
+! (in temperature) separately.  
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+
+         speccomb = colh2o(lay) + rat_h2och4(lay)*colch4(lay)
+         specparm = colh2o(lay)/speccomb
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult,1.0_rb)
+
+         speccomb1 = colh2o(lay) + rat_h2och4_1(lay)*colch4(lay)
+         specparm1 = colh2o(lay)/speccomb1
+         if (specparm1 .ge. oneminus) specparm1 = oneminus
+         specmult1 = 8._rb*(specparm1)
+         js1 = 1 + int(specmult1)
+         fs1 = mod(specmult1,1.0_rb)
+
+         speccomb_planck = colh2o(lay)+refrat_planck_a*colch4(lay)
+         specparm_planck = colh2o(lay)/speccomb_planck
+         if (specparm_planck .ge. oneminus) specparm_planck=oneminus
+         specmult_planck = 8._rb*specparm_planck
+         jpl= max(1 + int(specmult_planck),1)
+         fpl = mod(specmult_planck,1.0_rb)
+
+         ind0 = max(1, min(((jp(lay)-1)*5+(jt(lay)-1))*nspa(16) + js, 574))
+         ind1 = max(1, min((jp(lay)*5+(jt1(lay)-1))*nspa(16) + js1, 574))
+         inds = max(1, min(indself(lay), 9))
+         indf = max(1, indfor(lay))
+
+         if (specparm .lt. 0.125_rb) then
+            p = fs - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else if (specparm .gt. 0.875_rb) then
+            p = -fs 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac000 = fk0*fac00(lay)
+            fac100 = fk1*fac00(lay)
+            fac200 = fk2*fac00(lay)
+            fac010 = fk0*fac10(lay)
+            fac110 = fk1*fac10(lay)
+            fac210 = fk2*fac10(lay)
+         else
+            fac000 = (1._rb - fs) * fac00(lay)
+            fac010 = (1._rb - fs) * fac10(lay)
+            fac100 = fs * fac00(lay)
+            fac110 = fs * fac10(lay)
+         endif
+
+         if (specparm1 .lt. 0.125_rb) then
+            p = fs1 - 1
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else if (specparm1 .gt. 0.875_rb) then
+            p = -fs1 
+            p4 = p**4
+            fk0 = p4
+            fk1 = 1 - p - 2.0_rb*p4
+            fk2 = p + p4
+            fac001 = fk0*fac01(lay)
+            fac101 = fk1*fac01(lay)
+            fac201 = fk2*fac01(lay)
+            fac011 = fk0*fac11(lay)
+            fac111 = fk1*fac11(lay)
+            fac211 = fk2*fac11(lay)
+         else
+            fac001 = (1._rb - fs1) * fac01(lay)
+            fac011 = (1._rb - fs1) * fac11(lay)
+            fac101 = fs1 * fac01(lay)
+            fac111 = fs1 * fac11(lay)
+         endif
+
+         do ig = 1, ng16
+            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig)))
+            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+
+            if (specparm .lt. 0.125_rb) then
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac200 * absa(ind0+2,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig) + &
+                    fac210 * absa(ind0+11,ig))
+            else if (specparm .gt. 0.875_rb) then
+               tau_major = speccomb * &
+                    (fac200 * absa(ind0-1,ig) + &
+                    fac100 * absa(ind0,ig) + &
+                    fac000 * absa(ind0+1,ig) + &
+                    fac210 * absa(ind0+8,ig) + &
+                    fac110 * absa(ind0+9,ig) + &
+                    fac010 * absa(ind0+10,ig))
+            else
+               tau_major = speccomb * &
+                    (fac000 * absa(ind0,ig) + &
+                    fac100 * absa(ind0+1,ig) + &
+                    fac010 * absa(ind0+9,ig) + &
+                    fac110 * absa(ind0+10,ig))
+            endif
+
+            if (specparm1 .lt. 0.125_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac201 * absa(ind1+2,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig) + &
+                    fac211 * absa(ind1+11,ig))
+            else if (specparm1 .gt. 0.875_rb) then
+               tau_major1 = speccomb1 * &
+                    (fac201 * absa(ind1-1,ig) + &
+                    fac101 * absa(ind1,ig) + &
+                    fac001 * absa(ind1+1,ig) + &
+                    fac211 * absa(ind1+8,ig) + &
+                    fac111 * absa(ind1+9,ig) + &
+                    fac011 * absa(ind1+10,ig))
+            else
+               tau_major1 = speccomb1 * &
+                    (fac001 * absa(ind1,ig) + &
+                    fac101 * absa(ind1+1,ig) + &
+                    fac011 * absa(ind1+9,ig) + &
+                    fac111 * absa(ind1+10,ig))
+            endif
+
+            taug(lay,ngs15+ig) = tau_major + tau_major1 &
+                 + tauself + taufor
+            fracs(lay,ngs15+ig) = fracrefa(ig,jpl) + fpl * &
+                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         ind0 = max(((jp(lay)-13)*5+(jt(lay)-1))*nspb(16) + 1,1)
+         ind1 = max(((jp(lay)-12)*5+(jt1(lay)-1))*nspb(16) + 1,1)
+         do ig = 1, ng16
+            taug(lay,ngs15+ig) = colch4(lay) * &
+                 (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig))
+            fracs(lay,ngs15+ig) = fracrefb(ig)
+         enddo
+      enddo
+
+      end subroutine taugb16
+
+      end subroutine taumol
+
+      end module rrtmg_lw_taumol
+
diff --git a/radiation/src/rrtmg_sw.1col.f90 b/radiation/src/rrtmg_sw.1col.f90
new file mode 100644
index 0000000000000000000000000000000000000000..abf09d9fa0bcc3fe00aab702b511b6c78adf841e
--- /dev/null
+++ b/radiation/src/rrtmg_sw.1col.f90
@@ -0,0 +1,2201 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+      program rrtmg_sw
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+!
+! ****************************************************************************
+! *                                                                          *
+! *                             RRTMG_SW                                     *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                 a rapid radiative transfer model                         *
+! *                  for the solar spectral region                           *
+! *           for application to general circulation models                  *
+! *                                                                          *
+! *                                                                          *
+! *           Atmospheric and Environmental Research, Inc.                   *
+! *                       131 Hartwell Avenue                                *
+! *                       Lexington, MA 02421                                *
+! *                                                                          *
+! *                                                                          *
+! *                          Eli J. Mlawer                                   *
+! *                       Jennifer S. Delamere                               *
+! *                        Michael J. Iacono                                 *
+! *                        Shepard A. Clough                                 *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                      email:  miacono@aer.com                             *
+! *                      email:  emlawer@aer.com                             *
+! *                      email:  jdelamer@aer.com                            *
+! *                                                                          *
+! *       The authors wish to acknowledge the contributions of the           *
+! *       following people: Steven J. Taubman, Patrick D. Brown,             *
+! *       Ronald E. Farren, Luke Chen, Robert Bergstrom.                     *
+! *                                                                          *
+! ****************************************************************************
+
+! ------- Description -------
+
+! This program is the driver for RRTMG_SW, the AER SW radiation model for 
+!  application to GCMs, that has been adapted from RRTM_SW for improved
+!  efficiency and to provide fractional cloudiness and cloud overlap
+!  capability using McICA.
+
+! This routine
+!    a) calls RRTMG_SW_INI to initialize data and to perform
+!       the g-point interval reduction from 224 to 112
+!    b) calls READPROF to read in the atmospheric profile;
+!       all layering in RRTMG is ordered from surface to toa. 
+!    c) calls CLDPROP to set cloud optical depth based on input
+!       cloud properties, or CLDPRMC to set cloud optical depth
+!       for McICA
+!    d) calls SETCOEF to calculate various quantities needed for 
+!       the radiative transfer algorithm
+!    e) calls SPCVRT to call the two-stream model that in turn 
+!       calls TAUMOL to calculate gaseous optical depths for each 
+!       of the 16 spectral bands and to perform the radiative transfer
+!       with or without McICA, the Monte-Carlo Independent Column
+!       Approximation to represent sub-grid scale cloud variability
+!    f) writes out the calculated fluxes and cooling rates
+!
+! Two modes of operation are possible:
+!     The mode is chosen by setting flag imca below.  
+!
+!    1) Standard, single forward model calculation (imca = 0); this is 
+!       valid only for clear sky or fully overcast clouds
+!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., 
+!       JC, 2003) method is applied to the forward model calculation (imca = 1)
+!       For single column calculations, this method also requires setting flag
+!       nmca below to the sample size of the Monte Carlo calculation; 
+!       (nmca = 200 is recommended). This is method is valid for clear sky
+!       or partial cloud conditions
+!
+! Two random number generators are available for use when imca = 1
+!     This is chosen by setting flag irng below.
+!
+!    1) KISSVEC (irng = 0)
+!    2) Mersenne Twister (irng = 1); the default setting
+!
+! Two methods of cloud property input are possible:
+!     Cloud properties can be input in one of two ways (controlled by input 
+!     flags inflag, iceflag and liqflag; see text file rrtmg_sw_instructions
+!     and subroutine rrtmg_sw_cldprop.f90 for further details):
+!
+!    1) Input cloud fraction and cloud optical depth directly (inflgsw = 0)
+!    2) Input cloud fraction and cloud physical properties (inflgsw = 1 or 2);  
+!       cloud optical properties are calculated by cldprop or cldprmc based
+!       on input settings of iceflgsw and liqflgsw. Ice particle size provided
+!       must be appropriately defined for the ice parameterization selected. 
+!
+! Two methods of aerosol property input are possible:
+!     Aerosol properties can be input in one of two ways (controlled by input 
+!     flag iaer, see text file rrtmg_sw_instructions for further details):
+!
+!    1) Input aerosol optical depth, single scattering albedo and asymmetry
+!       parameter directly by layer and spectral band (iaer=10)
+!    2) Input aerosol optical depth and 0.55 micron directly by layer and use
+!       one or more of six ECMWF aerosol types (iaer=6)
+!
+!
+! ------- Modifications -------
+!
+! This version of RRTMG_SW has been modified from RRTM_SW to use a reduced
+! set of g-point intervals and a two-stream model for application to GCMs. 
+!
+!-- Original version (derived from RRTM_SW)
+!     2002: AER. Inc.
+!-- Conversion to F90 formatting; addition of 2-stream radiative transfer
+!     Feb 2003: J.-J. Morcrette, ECMWF
+!-- Additional modifications for GCM application
+!     Aug 2003: M. J. Iacono, AER Inc.
+!-- Total number of g-points reduced from 224 to 112.  Original
+!   set of 224 can be restored by exchanging code in module parrrsw.f90 
+!   and in file rrtmg_sw_init.f90.
+!     Apr 2004: M. J. Iacono, AER, Inc.
+!-- Modifications to include output for direct and diffuse 
+!   downward fluxes.  There are output as "true" fluxes without
+!   any delta scaling applied.  Code can be commented to exclude
+!   this calculation in source file rrtmg_sw_spcvrt.f90.
+!     Jan 2005: E. J. Mlawer, M. J. Iacono, AER, Inc.
+!-- Revised to add McICA capability.
+!     Nov 2005: M. J. Iacono, AER, Inc.
+!-- Reformatted for consistency with rrtmg_lw.
+!     Feb 2007: M. J. Iacono, AER, Inc.
+!-- Modified to output direct and diffuse fluxes either with or without
+!   delta scaling based on setting of idelm flag. 
+!     Dec 2008: M. J. Iacono, AER, Inc.
+!-- Revised to add new solar variability options based on the
+!   NRLSSI2 solar model
+!     Dec 2016: M. J. Iacono, AER
+
+! --------- Modules ---------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only : mxlay, nbndsw, ngptsw, naerec, nstr, nmol, mxmol, &
+                          jpband, jpb1, jpb2
+      use rrsw_aer, only : rsrtaua, rsrpiza, rsrasya
+      use rrsw_con, only : heatfac, oneminus, pi
+      use rrsw_wvn, only : wavenum1, wavenum2
+      use rrsw_vsn
+      use mcica_subcol_gen_sw, only: get_alpha, mcica_subcol_sw
+      use rrtmg_sw_cldprop, only: cldprop_sw
+      use rrtmg_sw_cldprmc, only: cldprmc_sw
+      use rrtmg_sw_init, only: rrtmg_sw_ini
+      use rrtmg_sw_setcoef, only: setcoef_sw
+      use rrtmg_sw_spcvrt, only: spcvrt_sw
+      use rrtmg_sw_spcvmc, only: spcvmc_sw
+
+      implicit none
+
+! ------- Declarations
+
+! ----- Local -----
+
+! Control
+      integer(kind=im) :: nlayers             ! total number of layers
+      integer(kind=im) :: istart              ! beginning band of calculation
+      integer(kind=im) :: iend                ! ending band of calculation
+      integer(kind=im) :: icld                ! clear/cloud and cloud overlap flag
+      integer(kind=im) :: icpr                ! cldprop/cldprmc use flag
+      integer(kind=im) :: iflag               ! control flag
+      integer(kind=im) :: iout                ! output option flag
+      integer(kind=im) :: iaer                ! aerosol option flag
+      integer(kind=im) :: idelm               ! delta-m scaling flag
+                                              ! [0 = direct and diffuse fluxes are unscaled]
+                                              ! [1 = direct and diffuse fluxes are scaled]
+      integer(kind=im) :: isccos              ! instrumental cosine response flag
+      integer(kind=im) :: ird                 ! input unit
+      integer(kind=im) :: iwr                 ! output unit
+      integer(kind=im) :: i                   ! layer loop index                      ! jk
+      integer(kind=im) :: ib                  ! band loop index                       ! jsw
+      integer(kind=im) :: ia, ig              ! indices
+      integer(kind=im) :: iplon               ! column loop index                     ! jl
+      integer(kind=im) :: ims                 ! mcica statistical loop index
+      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]
+      integer(kind=im) :: nmca                ! number of mcica samples (mcica mode)
+      integer(kind=im) :: irng                ! flag for random number generator
+                                              ! [0=kissvec, 1=mersenne twister (default)]
+      integer(kind=im), parameter :: ncol = 1 ! total number of columns
+
+      integer(kind=im) :: iout1, iout2        ! output control flags
+      integer(kind=im) :: indform             ! output control flag
+      character page 
+      character*50 outform(7)
+
+      real(kind=rb) :: zepsec, zepzen         ! epsilon
+      real(kind=rb) :: zdpgcp                 ! flux to heating conversion ratio
+
+
+! Atmosphere
+      real(kind=rb) :: pavel(mxlay)           ! layer pressures (mb) 
+      real(kind=rb) :: tavel(mxlay)           ! layer temperatures (K)
+      real(kind=rb) :: dz(mxlay)              ! layer thickness (m)
+      real(kind=rb) :: pz(0:mxlay)            ! level (interface) pressures (hPa, mb)
+      real(kind=rb) :: tz(0:mxlay)            ! level (interface) temperatures (K)
+      real(kind=rb) :: tbound                 ! surface temperature (K)
+      real(kind=rb) :: pdp(mxlay)             ! layer pressure thickness (hPa, mb)
+      real(kind=rb) :: coldry(mxlay)          ! 
+      real(kind=rb) :: wbrodl(mxlay)          !
+      real(kind=rb) :: wkl(mxmol,mxlay)       ! molecular amounts (mol/cm-2)
+
+      real(kind=rb) :: cossza, zenith         ! cosine of solar zenith angle 
+!      real(kind=rb) :: earth_sun              ! function for Earth/Sun distance factor
+      real(kind=rb) :: adjflux(jpband)        ! adjustment for current Earth/Sun distance
+      real(kind=rb) :: solvar(jpband)         ! solar constant scaling factor from rrtmg_sw
+                                              !  default value of 1368.22 Wm-2 at 1 AU
+      real(kind=rb) :: semiss(jpband)         ! surface emissivity
+      real(kind=rb) :: albdir(nbndsw)         ! surface albedo, direct          ! zalbp
+      real(kind=rb) :: albdif(nbndsw)         ! surface albedo, diffuse         ! zalbd
+
+      real(kind=rb) :: tauaer(mxlay,jpband)   ! aerosol optical depth (iaer=10 only)
+                                              ! (non-delta scaled)      
+      real(kind=rb) :: ssaaer(mxlay,jpband)   ! aerosol single scattering albedo (iaer=10 only)
+                                              ! (non-delta scaled)      
+      real(kind=rb) :: asmaer(mxlay,jpband)   ! aerosol asymmetry parameter (iaer=10 only)
+                                              ! (non-delta scaled)      
+                                              !   first moment of input phase function
+      real(kind=rb) :: ecaer(mxlay,naerec)    ! aerosol optical thickness at 0.55 micron (iaer=6 only)
+                                              ! (non-delta scaled)      
+
+! Atmosphere - setcoef
+      integer(kind=im) :: laytrop             ! tropopause layer index
+      integer(kind=im) :: layswtch            ! tropopause layer index
+      integer(kind=im) :: laylow              ! tropopause layer index
+      integer(kind=im) :: jp(mxlay)           ! 
+      integer(kind=im) :: jt(mxlay)           !
+      integer(kind=im) :: jt1(mxlay)          !
+
+      real(kind=rb) :: colh2o(mxlay)          ! column amount (h2o)
+      real(kind=rb) :: colco2(mxlay)          ! column amount (co2)
+      real(kind=rb) :: colo3(mxlay)           ! column amount (o3)
+      real(kind=rb) :: coln2o(mxlay)          ! column amount (n2o)
+      real(kind=rb) :: colch4(mxlay)          ! column amount (ch4)
+      real(kind=rb) :: colo2(mxlay)           ! column amount (o2)
+      real(kind=rb) :: colmol(mxlay)          ! column amount
+      real(kind=rb) :: co2mult(mxlay)         ! column amount 
+
+      integer(kind=im) :: indself(mxlay)
+      integer(kind=im) :: indfor(mxlay)
+      real(kind=rb) :: selffac(mxlay)
+      real(kind=rb) :: selffrac(mxlay)
+      real(kind=rb) :: forfac(mxlay)
+      real(kind=rb) :: forfrac(mxlay)
+
+      real(kind=rb) :: &                      !
+                         fac00(mxlay), fac01(mxlay), &
+                         fac10(mxlay), fac11(mxlay) 
+
+! Atmosphere/clouds - cldprop
+      integer(kind=im) :: ncbands             ! number of cloud spectral bands
+      integer(kind=im) :: inflag              ! flag for cloud property method
+      integer(kind=im) :: iceflag             ! flag for ice cloud properties
+      integer(kind=im) :: liqflag             ! flag for liquid cloud properties
+
+      real(kind=rb) :: cldfrac(mxlay)         ! layer cloud fraction
+      real(kind=rb) :: tauc(nbndsw,mxlay)     ! in-cloud optical depth (non-delta scaled)
+      real(kind=rb) :: ssac(nbndsw,mxlay)     ! in-cloud single scattering albedo (non-delta scaled)
+      real(kind=rb) :: asmc(nbndsw,mxlay)     ! in-cloud asymmetry parameter (non-delta scaled)
+      real(kind=rb) :: fsfc(nbndsw,mxlay)     ! in-cloud forward scattering fraction (non-delta scaled)
+      real(kind=rb) :: ciwp(mxlay)            ! in-cloud ice water path
+      real(kind=rb) :: clwp(mxlay)            ! in-cloud liquid water path
+      real(kind=rb) :: rei(mxlay)             ! cloud ice particle effective size (microns)
+                                              ! specific definition of rei depends on setting of iceflag:
+                                              ! iceflag = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                              !              r_ec must be >= 10.0 microns
+                                              ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                              !              r_ec range is limited to 13.0 to 130.0 microns
+                                              ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+                                              !              r_k range is limited to 5.0 to 131.0 microns
+                                              ! iceflag = 3: generalized effective size, dge, (Fu, 1996),
+                                              !              dge range is limited to 5.0 to 140.0 microns
+                                              !              [dge = 1.0315 * r_ec]
+      real(kind=rb) :: rel(mxlay)             ! cloud liquid particle effective radius (microns)
+
+      real(kind=rb) :: taucloud(mxlay,jpband) ! in-cloud optical depth
+      real(kind=rb) :: taucldorig(mxlay,jpband)! in-cloud optical depth (non-delta scaled)
+      real(kind=rb) :: ssacloud(mxlay,jpband) ! in-cloud single scattering albedo
+      real(kind=rb) :: asmcloud(mxlay,jpband) ! in-cloud asymmetry parameter
+
+! Atmosphere/clouds - cldprmc [mcica]
+      real(kind=rb) :: cldfmc(ngptsw,mxlay)   ! cloud fraction [mcica]
+      real(kind=rb) :: ciwpmc(ngptsw,mxlay)   ! in-cloud ice water path [mcica]
+      real(kind=rb) :: clwpmc(ngptsw,mxlay)   ! in-cloud liquid water path [mcica]
+      real(kind=rb) :: relqmc(mxlay)          ! liquid particle effective radius (microns)
+      real(kind=rb) :: reicmc(mxlay)          ! ice particle effective radius (microns)
+      real(kind=rb) :: taucmc(ngptsw,mxlay)   ! in-cloud optical depth [mcica]
+      real(kind=rb) :: taormc(ngptsw,mxlay)   ! unscaled in-cloud optical depth [mcica]
+      real(kind=rb) :: ssacmc(ngptsw,mxlay)   ! in-cloud single scattering albedo [mcica]
+      real(kind=rb) :: asmcmc(ngptsw,mxlay)   ! in-cloud asymmetry parameter [mcica]
+      real(kind=rb) :: fsfcmc(ngptsw,mxlay)   ! in-cloud forward scattering fraction [mcica]
+
+! Atmosphere/clouds/aerosol - spcvrt,spcvmc
+      real(kind=rb) :: ztauc(mxlay,nbndsw)    ! cloud optical depth
+      real(kind=rb) :: ztaucorig(mxlay,nbndsw)! unscaled cloud optical depth
+      real(kind=rb) :: zasyc(mxlay,nbndsw)    ! cloud asymmetry parameter 
+                                              !  (first moment of phase function)
+      real(kind=rb) :: zomgc(mxlay,nbndsw)    ! cloud single scattering albedo
+      real(kind=rb) :: ztaua(mxlay,nbndsw)    ! total aerosol optical depth
+      real(kind=rb) :: zasya(mxlay,nbndsw)    ! total aerosol asymmetry parameter 
+      real(kind=rb) :: zomga(mxlay,nbndsw)    ! total aerosol single scattering albedo
+
+      real(kind=rb) :: zcldfmc(mxlay,ngptsw)  ! cloud fraction [mcica]
+      real(kind=rb) :: ztaucmc(mxlay,ngptsw)  ! cloud optical depth [mcica]
+      real(kind=rb) :: ztaormc(mxlay,ngptsw)  ! unscaled cloud optical depth [mcica]
+      real(kind=rb) :: zasycmc(mxlay,ngptsw)  ! cloud asymmetry parameter [mcica] 
+      real(kind=rb) :: zomgcmc(mxlay,ngptsw)  ! cloud single scattering albedo [mcica]
+
+      real(kind=rb) :: zbbfu(mxlay+1)         ! temporary upward shortwave flux (w/m2)
+      real(kind=rb) :: zbbfd(mxlay+1)         ! temporary downward shortwave flux (w/m2)
+      real(kind=rb) :: zbbcu(mxlay+1)         ! temporary clear sky upward shortwave flux (w/m2)
+      real(kind=rb) :: zbbcd(mxlay+1)         ! temporary clear sky downward shortwave flux (w/m2)
+      real(kind=rb) :: zbbfddir(mxlay+1)      ! temporary downward direct shortwave flux (w/m2)
+      real(kind=rb) :: zbbcddir(mxlay+1)      ! temporary clear sky downward direct shortwave flux (w/m2)
+      real(kind=rb) :: zuvfd(mxlay+1)         ! temporary UV downward shortwave flux (w/m2)
+      real(kind=rb) :: zuvcd(mxlay+1)         ! temporary clear sky UV downward shortwave flux (w/m2)
+      real(kind=rb) :: zuvfddir(mxlay+1)      ! temporary UV downward direct shortwave flux (w/m2)
+      real(kind=rb) :: zuvcddir(mxlay+1)      ! temporary clear sky UV downward direct shortwave flux (w/m2)
+      real(kind=rb) :: znifd(mxlay+1)         ! temporary near-IR downward shortwave flux (w/m2)
+      real(kind=rb) :: znicd(mxlay+1)         ! temporary clear sky near-IR downward shortwave flux (w/m2)
+      real(kind=rb) :: znifddir(mxlay+1)      ! temporary near-IR downward direct shortwave flux (w/m2)
+      real(kind=rb) :: znicddir(mxlay+1)      ! temporary clear sky near-IR downward direct shortwave flux (w/m2)
+
+      real(kind=rb) :: alpha(mxlay)           ! vertical cloud fraction correlation parameter
+      real(kind=rb) :: decorr_con             ! cloud fraction decorrelation length, constant (meters)
+      integer(kind=im) :: juldat              ! Julian date (day of year)
+      integer(kind=im) :: idcor               ! Decorrelation length type
+      real(kind=rb) :: lat                    ! latitude (degrees)
+
+! Parameters
+      real(kind=rb), parameter :: cpdair = 1.004e3_rb  ! Specific heat capacity of dry air
+                                                       ! at constant pressure at 273 K (J kg-1 K-1)
+! Output
+      real(kind=rb) :: totuflux(0:mxlay)      ! upward shortwave flux (w/m2)                  ! pfup
+      real(kind=rb) :: totdflux(0:mxlay)      ! downward shortwave flux (w/m2)                ! pfdown
+      real(kind=rb) :: fnet(0:mxlay)          ! net shortwave flux (w/m2)                     ! pfls
+      real(kind=rb) :: htr(0:mxlay)           ! shortwave heating rate (k/day)                ! pheat
+      real(kind=rb) :: totuclfl(0:mxlay)      ! clear sky upward shortwave flux (w/m2)        ! pcup 
+      real(kind=rb) :: totdclfl(0:mxlay)      ! clear sky downward shortwave flux (w/m2)      ! pcdown 
+      real(kind=rb) :: fnetc(0:mxlay)         ! clear sky net shortwave flux (w/m2)           ! pfcs
+      real(kind=rb) :: htrc(0:mxlay)          ! clear sky shortwave heating rate (k/day)      ! pheac
+
+      real(kind=rb) :: dirdflux(0:mxlay)      ! direct downward shortwave flux (w/m2)         ! dirdownflux
+      real(kind=rb) :: difdflux(0:mxlay)      ! diffuse downward shortwave flux (w/m2)        ! difdownflux
+      real(kind=rb) :: dflxuv(0:mxlay)        ! Total sky downward shortwave flux, UV/vis     ! pfdnuv
+      real(kind=rb) :: dflxir(0:mxlay)        ! Total sky downward shortwave flux, near-IR    ! pfdnir 
+      real(kind=rb) :: dirdnuv(0:mxlay)       ! Direct downward shortwave surface flux, UV/vis
+      real(kind=rb) :: difdnuv(0:mxlay)       ! Diffuse downward shortwave surface flux, UV/vis
+      real(kind=rb) :: dirdnir(0:mxlay)       ! Direct downward shortwave surface flux, near-IR
+      real(kind=rb) :: difdnir(0:mxlay)       ! Diffuse downward shortwave surface flux, near-IR
+
+! Output - inactive
+!      real(kind=rb) :: zuvfu(mxlay+1)         ! temporary upward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zuvfd(mxlay+1)         ! temporary downward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zuvcu(mxlay+1)         ! temporary clear sky upward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zuvcd(mxlay+1)         ! temporary clear sky downward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zvsfu(mxlay+1)         ! temporary upward visible shortwave flux (w/m2)
+!      real(kind=rb) :: zvsfd(mxlay+1)         ! temporary downward visible shortwave flux (w/m2)
+!      real(kind=rb) :: zvscu(mxlay+1)         ! temporary clear sky upward visible shortwave flux (w/m2)
+!      real(kind=rb) :: zvscd(mxlay+1)         ! temporary clear sky downward visible shortwave flux (w/m2)
+!      real(kind=rb) :: znifu(mxlay+1)         ! temporary upward near-IR shortwave flux (w/m2)
+!      real(kind=rb) :: znifd(mxlay+1)         ! temporary downward near-IR shortwave flux (w/m2)
+!      real(kind=rb) :: znicu(mxlay+1)         ! temporary clear sky upward near-IR shortwave flux (w/m2)
+!      real(kind=rb) :: znicd(mxlay+1)         ! temporary clear sky downward near-IR shortwave flux (w/m2)
+
+! Output (mean output for McICA calculation)
+      real(kind=rb) :: uflxsum(0:mxlay)       ! upward shortwave flux (w/m2)
+      real(kind=rb) :: dflxsum(0:mxlay)       ! downward shortwave flux (w/m2)
+      real(kind=rb) :: dirdsum(0:mxlay)       ! direct downward shortwave flux (w/m2)
+      real(kind=rb) :: difdsum(0:mxlay)       ! diffuse downward shortwave flux (w/m2)
+      real(kind=rb) :: fnetsum(0:mxlay)       ! net shortwave flux (w/m2)
+      real(kind=rb) :: htrsum(0:mxlay)        ! shortwave heating rate (k/day)
+
+! Solar variability
+      integer(kind=im) :: isolvar             ! Flag for solar variability method
+                                              !   -1 = (when SCON .eq. 0.0): No solar variability
+                                              !        and no solar cycle (Kurucz solar irradiance
+                                              !        of 1368.22 Wm-2 only);
+                                              !        (when SCON .ne. 0.0): Kurucz solar irradiance
+                                              !        scaled to SCON and solar variability defined
+                                              !        (optional) by setting non-zero scale factors
+                                              !        for each band in SOLVAR
+                                              !    0 = (when SCON .eq. 0.0): No solar variability 
+                                              !        and no solar cycle (NRLSSI2 solar constant of 
+                                              !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                              !        range only), with facular and sunspot effects 
+                                              !        fixed to the mean of Solar Cycles 13-24;
+                                              !        (when SCON .ne. 0.0): No solar variability 
+                                              !        and no solar cycle (NRLSSI2 solar constant of 
+                                              !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                              !        range only), is scaled to SCON
+                                              !    1 = Solar variability (using NRLSSI2  solar
+                                              !        model) with solar cycle contribution
+                                              !        determined by fraction of solar cycle
+                                              !        with facular and sunspot variations
+                                              !        fixed to their mean variations over the
+                                              !        average of Solar Cycles 13-24;
+                                              !        two amplitude scale factors allow
+                                              !        facular and sunspot adjustments from
+                                              !        mean solar cycle as defined by solvar 
+                                              !    2 = Solar variability (using NRLSSI2 solar
+                                              !        model) over solar cycle determined by 
+                                              !        direct specification of Mg (facular)
+                                              !        and SB (sunspot) indices provided
+                                              !        in solvar (scon = 0.0 only)
+                                              !    3 = (when SCON .eq. 0.0): No solar variability
+                                              !        and no solar cycle (NRLSSI2 solar irradiance
+                                              !        of 1360.85 Wm-2 only);
+                                              !        (when SCON .ne. 0.0): NRLSSI2 solar irradiance
+                                              !        scaled to SCON and solar variability defined
+                                              !        (optional) by setting non-zero scale factors
+                                              !        for each band in SOLVAR
+      real(kind=rb) :: svar_f                 ! Solar variability facular multiplier
+      real(kind=rb) :: svar_s                 ! Solar variability sunspot multiplier
+      real(kind=rb) :: svar_i                 ! Solar variability baseline irradiance multiplier
+      real(kind=rb) :: svar_f_bnd(jpband)     ! Solar variability facular multiplier (by band)
+      real(kind=rb) :: svar_s_bnd(jpband)     ! Solar variability sunspot multiplier (by band)
+      real(kind=rb) :: svar_i_bnd(jpband)     ! Solar variability baseline irradiance multiplier (by band)
+
+
+! Initializations
+
+      hvrrtm = '$Revision$'
+      hvrini = 'NOT USED'
+      hvrcld = 'NOT USED'
+      hvrclc = 'NOT USED'
+      hvrrft = 'NOT USED'
+      hvrspv = 'NOT USED'
+      hvrspc = 'NOT USED'
+      hvrset = 'NOT USED'
+      hvrtau = 'NOT USED'
+      hvrvqd = 'NOT USED'
+      hvrkg  = '$Revision$'
+      hvratm = 'NOT USED'
+      hvrutl = 'NOT USED'
+      hvrext = 'NOT USED'
+
+      hnamrtm = '  rrtmg_sw.1col.f90:'
+      hnamini = '  rrtmg_sw_init.f90:'
+      hnamcld = 'rrtmgsw_cldprop.f90:'
+      hnamclc = 'rrtmgsw_cldprmc.f90:'
+      hnamrft = 'rrtmg_sw_reftra.f90:'
+      hnamspv = 'rrtmg_sw_spcvrt.f90:'
+      hnamspc = 'rrtmg_sw_spcvmc.f90:'
+      hnamset = 'rrtmgsw_setcoef.f90:'
+      hnamtau = 'rrtmg_sw_taumol.f90:'
+      hnamvqd = 'rrtmg_sw_vrtqdr.f90:'
+      hnamkg  = '   rrtmg_sw_k_g.f90:'
+      hnamatm = '           rrtatm.f:'
+      hnamutl = '         util_xxx.f:'
+      hnamext = '            extra.f:'
+
+      zepsec = 1.e-06_rb
+      zepzen = 1.e-10_rb
+      oneminus = 1.0_rb - zepsec
+      pi = 2._rb * asin(1._rb)
+
+      ird = 9
+      iwr = 10
+      icpr = 0
+      page = char(12)
+
+      data outform &
+         /'(1x,i3,3x,f7.6,4x,4(f10.4,4x),f11.6,4x,f10.5)',&
+          '(1x,i3,4x,f6.5,4x,4(f10.4,4x),f11.6,4x,f10.5)',&
+          '(1x,i3,4x,f6.4,4x,4(f10.4,4x),f11.6,4x,f10.5)',&
+          '(1x,i3,4x,f6.3,4x,4(f10.4,4x),f11.6,4x,f10.5)',&
+          '(1x,i3,4x,f6.2,4x,4(f10.4,4x),f11.6,4x,f10.5)',&
+          '(1x,i3,4x,f6.1,4x,4(f10.4,4x),f11.6,4x,f10.5)',&
+          '(1x,i3,4x,f6.1,4x,4(f10.4,4x),f11.6,4x,f10.5)'/
+
+      uflxsum(0:) = 0._rb
+      dflxsum(0:) = 0._rb
+      dirdsum(0:) = 0._rb
+      difdsum(0:) = 0._rb
+      fnetsum(0:) = 0._rb
+      htrsum(0:) = 0._rb
+
+! Set imca to select calculation type:
+!  (read by subroutine readprof from input file INPUT_RRTM):  
+! imca = 0, use standard forward model calculation (clear and overcast only)
+! imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability
+!           (clear, overcast or partial cloud conditions)
+
+! Set irng to select random number generator for McICA (use when imca = 1)
+! irng = 0, KISSVEC
+! irng = 1, Mersenne Twister
+!      irng = 0
+      irng = 1
+
+! Set icld to select of clear or cloud calculation and cloud overlap method
+!  (read by subroutine readprof from input file INPUT_RRTM):  
+! icld = 0, clear only
+! icld = 1, with clouds using random cloud overlap (McICA only)
+! icld = 2, with clouds using maximum_random cloud overlap (McICA only)
+! icld = 3, with clouds using maximum cloud overlap (McICA only)
+! icld = 4, with clouds using exponential cloud overlap (McICA only)
+! icld = 5, with clouds using exponential_random cloud overlap (McICA only)
+
+! Call model and data initialization, compute lookup tables, perform
+! reduction of g-points from 224 to 112 for input absorption
+! coefficient data and other arrays.
+!
+! In a GCM this call should be placed in the model initialization
+! area, since this has to be called only once.  
+
+      call rrtmg_sw_ini(cpdair)
+
+! Open the input set of atmospheres
+      open (ird,file='INPUT_RRTM',form='formatted')
+! Open the output file
+      open (iwr,file='OUTPUT_RRTM',form='formatted')
+      
+
+! This is the main longitude/column loop within rrtmg.
+
+      do iplon = 1, ncol
+
+! Input atmospheric profile from INPUT_RRTM. 
+        call readprof(ird, nlayers, iout, imca, icld, iaer, isccos, idelm, pdp, &
+                       pavel, tavel, pz, tz, tbound, dz, semiss, zenith, adjflux, &
+                       coldry, wkl, inflag, iceflag, liqflag, &
+                       cldfrac, tauc, ssac, asmc, fsfc, ciwp, clwp, rei, rel, &
+                       tauaer, ssaaer, asmaer, &
+                       decorr_con, juldat, idcor, lat, &
+! solar variability I/O
+                       isolvar,svar_f,svar_s,svar_i, &
+                       svar_f_bnd, svar_s_bnd, svar_i_bnd)
+
+         istart = jpb1                 ! jpb1 = 16
+         iend = jpb2                   ! jpb2 = 29
+         iflag = iout
+
+! Set nmca to sample size for Monte Carlo calculation
+         if (imca.eq.0) nmca = 1
+         if (imca.eq.1) nmca = 200
+
+! Return here for multiple band output
+ 1000    continue
+         if (iflag .gt. 0 .and. iflag .le. jpb2) then
+            istart = iflag
+            iend = iflag
+         endif
+
+! This is the statistical sampling loop for McICA
+
+         do ims = 1, nmca
+
+! Call sub-colum cloud generator for McICA calculations.
+! Output will be averaged over all nmca samples.  The code can be modified to
+! write output for each individual sample (this will be excessive if output
+! is also requested for each spectral band).  
+
+            if (imca.eq.1) then
+               alpha(:) = 0.0_rb
+               if (icld .eq. 4 .or. icld .eq. 5) then 
+                  call get_alpha(iplon, nlayers, icld, idcor, decorr_con, &
+                                 dz, lat, juldat, cldfrac, alpha)
+               endif
+               call mcica_subcol_sw(iplon, nlayers, icld, ims, irng, pavel, &
+                          cldfrac, ciwp, clwp, rei, rel, tauc, ssac, asmc, fsfc, &
+                          alpha, &
+                          cldfmc, ciwpmc, clwpmc, reicmc, relqmc, taucmc, &
+                          ssacmc, asmcmc, fsfcmc)
+            endif
+
+!  For cloudy atmosphere, use cldprop to set cloud optical properties based on
+!  input cloud physical properties.  Select method based on choices described
+!  in cldprop.  Cloud fraction, water path, liquid droplet and ice particle
+!  effective radius must be passed in cldprop.  Cloud fraction and cloud
+!  optical properties are transferred to rrtmg_sw arrays in cldprop.  
+!  Note: Model will be stopped if partial cloud present without McICA.
+
+!  If McICA is requested use cloud fraction and cloud physical properties 
+!  generated by sub-column cloud generator above. 
+
+            if (imca.eq.0) then
+               do i = 1, nlayers
+                  if (cldfrac(i).ne.0._rb .and. cldfrac(i).ne.1._rb) then
+                     stop 'PARTIAL CLOUD NOT ALLOWED FOR IMCA=0'
+                  endif
+               enddo
+               call cldprop_sw(nlayers, inflag, iceflag, liqflag, cldfrac, &
+                               tauc, ssac, asmc, fsfc, ciwp, clwp, rei, rel, &
+                               taucldorig, taucloud, ssacloud, asmcloud)
+               icpr = 1
+            else
+               call cldprmc_sw(nlayers, inflag, iceflag, liqflag, cldfmc, &
+                               ciwpmc, clwpmc, reicmc, relqmc, &
+                               taormc, taucmc, ssacmc, asmcmc, fsfcmc)
+               icpr = 1
+            endif
+
+
+! Calculate coefficients for the temperature and pressure dependence of the 
+! molecular absorption coefficients by interpolating data from stored
+! reference atmospheres.
+
+            call setcoef_sw(nlayers, pavel, tavel, pz, tz, tbound, coldry, wkl, &
+                            laytrop, layswtch, laylow, jp, jt, jt1, &
+                            co2mult, colch4, colco2, colh2o, colmol, coln2o, &
+                            colo2, colo3, fac00, fac01, fac10, fac11, &
+                            selffac, selffrac, indself, forfac, forfrac, indfor)
+  
+
+! Cosine of the solar zenith angle 
+!  Prevent using value of zero;
+
+            cossza = zenith
+            if (cossza.eq.0._rb) cossza = zepzen
+
+! Transfer albedo, cloud and aerosol properties into arrays for 2-stream radiative transfer 
+  
+! Surface albedo
+            do ib=1,nbndsw
+               albdif(ib) = 1._rb - semiss(jpb1-1+ib)
+               albdir(ib) = 1._rb - semiss(jpb1-1+ib)
+            enddo
+
+! Clouds
+            if (icld.eq.0) then
+
+               ztauc(:,:) = 0._rb
+               ztaucorig(:,:) = 0._rb
+               zasyc(:,:) = 0._rb
+               zomgc(:,:) = 1._rb
+               zcldfmc(:,:) = 0._rb
+               ztaucmc(:,:) = 0._rb
+               ztaormc(:,:) = 0._rb
+               zasycmc(:,:) = 0._rb
+               zomgcmc(:,:) = 1._rb
+
+            elseif (icld.ge.1) then
+               if (imca.eq.0) then
+                  do i=1,nlayers
+                     do ib=1,nbndsw
+                        if (cldfrac(i) .ge. zepsec) then
+                           ztauc(i,ib) = taucloud(i,jpb1-1+ib)
+                           ztaucorig(i,ib) = taucldorig(i,jpb1-1+ib)
+                           zasyc(i,ib) = asmcloud(i,jpb1-1+ib)
+                           zomgc(i,ib) = ssacloud(i,jpb1-1+ib)
+                        endif
+                     enddo
+                  enddo
+               else
+                  do i=1,nlayers
+                     do ig=1,ngptsw
+                        zcldfmc(i,ig) = cldfmc(ig,i)
+                        ztaucmc(i,ig) = taucmc(ig,i)
+                        ztaormc(i,ig) = taormc(ig,i)
+                        zasycmc(i,ig) = asmcmc(ig,i)
+                        zomgcmc(i,ig) = ssacmc(ig,i)
+                     enddo
+                  enddo
+               endif   
+            endif   
+
+! Aerosol
+! IAER = 0: no aerosols
+            if (iaer.eq.0) then
+
+               ztaua(:,:) = 0._rb
+               zasya(:,:) = 0._rb
+               zomga(:,:) = 1._rb
+
+! IAER = 6: Use ECMWF six aerosol types. See rrsw_aer.f90 for details.
+! Input aerosol optical thickness at 0.55 micron for each aerosol type (ecaer)
+! or set manually here for each aerosol and layer. 
+            elseif (iaer.eq.6) then
+
+               do i = 1, nlayers
+                  do ia = 1, naerec
+                     ecaer(i,ia) = 1.0e-15_rb
+!                      ecaer(i,ia) = 1.0e-04_rb
+                  enddo
+               enddo
+
+               do i = 1, nlayers
+                  do ib = 1, nbndsw
+                     ztaua(i,ib) = 0._rb
+                     zasya(i,ib) = 0._rb
+                     zomga(i,ib) = 1._rb
+                     do ia = 1, naerec
+                        ztaua(i,ib) = ztaua(i,ib) + rsrtaua(ib,ia) * ecaer(i,ia)
+                        zomga(i,ib) = zomga(i,ib) + rsrtaua(ib,ia) * ecaer(i,ia) * &
+                                      rsrpiza(ib,ia)
+                        zasya(i,ib) = zasya(i,ib) + rsrtaua(ib,ia) * ecaer(i,ia) * &
+                                      rsrpiza(ib,ia) * rsrasya(ib,ia)
+                     enddo
+                     if (zomga(i,ib) /= 0._rb) then
+                        zasya(i,ib) = zasya(i,ib) / zomga(i,ib)
+                     endif
+                     if (ztaua(i,ib) /= 0._rb) then
+                        zomga(i,ib) = zomga(i,ib) / ztaua(i,ib)
+                     endif
+                  enddo
+               enddo
+
+! IAER=10: Direct specification of aerosol properties from IN_AER_RRTM.
+            elseif (iaer.eq.10) then
+
+               do i = 1 ,nlayers
+                  do ib = 1 ,nbndsw
+                     ztaua(i,ib) = tauaer(i,jpb1-1+ib)
+                     zasya(i,ib) = asmaer(i,jpb1-1+ib)
+                     zomga(i,ib) = ssaaer(i,jpb1-1+ib)
+                  enddo
+               enddo
+
+            endif
+
+! Call the 2-stream radiation transfer model
+
+            do i=1,nlayers+1
+               zbbcu(i) = 0._rb
+               zbbcd(i) = 0._rb
+               zbbfu(i) = 0._rb
+               zbbfd(i) = 0._rb
+               zbbcddir(i) = 0._rb
+               zbbfddir(i) = 0._rb
+               zuvcd(i) = 0._rb
+               zuvfd(i) = 0._rb
+               zuvcddir(i) = 0._rb
+               zuvfddir(i) = 0._rb
+               znicd(i) = 0._rb
+               znifd(i) = 0._rb
+               znicddir(i) = 0._rb
+               znifddir(i) = 0._rb
+            enddo
+
+            if (imca.eq.0) then
+               call spcvrt_sw &
+                   (nlayers, istart, iend, icpr, idelm, iout, &
+                    pavel, tavel, pz, tz, tbound, albdif, albdir, &
+                    cldfrac, ztauc, zasyc, zomgc, ztaucorig, &
+                    ztaua, zasya, zomga, cossza, coldry, wkl, adjflux, &	 
+                    isolvar, svar_f, svar_s, svar_i, &
+                    svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+                    laytrop, layswtch, laylow, jp, jt, jt1, &
+                    co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &
+                    fac00, fac01, fac10, fac11, &
+                    selffac, selffrac, indself, forfac, forfrac, indfor, &
+                    zbbfd, zbbfu, zbbcd, zbbcu, zuvfd, zuvcd, znifd, znicd, &
+                    zbbfddir, zbbcddir, zuvfddir, zuvcddir, znifddir, znicddir)
+            else
+               call spcvmc_sw &
+                   (nlayers, istart, iend, icpr, idelm, iout, &
+                    pavel, tavel, pz, tz, tbound, albdif, albdir, &
+                    zcldfmc, ztaucmc, zasycmc, zomgcmc, ztaormc, &
+                    ztaua, zasya, zomga, cossza, coldry, wkl, adjflux, &	 
+                    isolvar, svar_f, svar_s, svar_i, &
+                    svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+                    laytrop, layswtch, laylow, jp, jt, jt1, &
+                    co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &
+                    fac00, fac01, fac10, fac11, &
+                    selffac, selffrac, indself, forfac, forfrac, indfor, &
+                    zbbfd, zbbfu, zbbcd, zbbcu, zuvfd, zuvcd, znifd, znicd, &
+                    zbbfddir, zbbcddir, zuvfddir, zuvcddir, znifddir, znicddir)
+            endif
+
+
+! Prepare output up and down, clear and total flux output
+            do i = 1, nlayers+1
+               totuclfl(i-1) = zbbcu(i)
+               totdclfl(i-1) = zbbcd(i)
+               totuflux(i-1) = zbbfu(i)
+               totdflux(i-1) = zbbfd(i)
+! Prepare direct/diffuse flux output
+               dirdflux(i-1) = zbbfddir(i)
+               difdflux(i-1) = totdflux(i-1) - dirdflux(i-1)
+            enddo
+
+! Prepare net clear and total flux output
+            do i = 1, nlayers+1
+               fnetc(i-1) = totdclfl(i-1) - totuclfl(i-1)
+               fnet(i-1) = totdflux(i-1) - totuflux(i-1)
+            enddo
+
+! Output clear and total heating rates
+            do i = 1, nlayers
+               zdpgcp = heatfac / pdp(i)
+               htrc(i-1) = (fnetc(i) - fnetc(i-1)) * zdpgcp
+               htr(i-1) = (fnet(i) - fnet(i-1)) * zdpgcp
+            enddo
+            htr(nlayers) = 0._rb
+            htrc(nlayers) = 0._rb
+
+! Process output.
+            if (iout .lt. 0) goto 2000
+
+            if (imca .eq. 0) then
+
+               if (istart .ne. iend) then
+                  iout1 = jpb2
+                  iout2 = iend-1
+               else
+                  iout1 = istart
+                  iout2 = iend
+               endif
+
+               if (isccos .eq. 1) then 
+                  write(iwr,9880) 
+               elseif (isccos .eq. 2) then
+                  write(iwr,9881)
+               else
+                  write(iwr,9879)
+               endif
+
+               if (idelm .eq. 0) then
+                  write(iwr,9883)
+               else
+                  write(iwr,9882)
+               endif
+
+               write(iwr,9899) wavenum1(iout1),wavenum2(iout2),iplon
+               write(iwr,9900)
+               write(iwr,9901)
+
+               do i = nlayers, 0, -1
+                  if (pz(i) .lt. 1.e-2_rb) then
+                     indform = 1
+                  elseif (pz(i) .lt. 1.e-1_rb) then
+                     indform = 2
+                  elseif (pz(i) .lt. 1._rb) then
+                     indform = 3
+                  elseif (pz(i) .lt. 10._rb) then
+                     indform = 4
+                  elseif (pz(i) .lt. 100._rb) then
+                     indform = 5
+                  elseif (pz(i) .lt. 1000._rb) then
+                     indform = 6
+                  else
+                     indform = 7
+                  endif
+                  write(iwr,outform(indform)) i, pz(i), totuflux(i), &
+                       difdflux(i), dirdflux(i), totdflux(i), fnet(i), htr(i)
+               enddo
+               write(iwr,9903)page
+
+            elseif (imca .eq. 1) then
+
+               do i = nlayers, 0, -1
+                  uflxsum(i) = uflxsum(i) + totuflux(i)
+                  dflxsum(i) = dflxsum(i) + totdflux(i)
+                  dirdsum(i) = dirdsum(i) + dirdflux(i)
+                  difdsum(i) = difdsum(i) + difdflux(i)
+                  fnetsum(i) = fnetsum(i) + fnet(i)
+                  htrsum(i) = htrsum(i) + htr(i)
+               enddo
+
+! Output average over samples when last sample reached. Comment this if-check 
+! and swap flux output write statement below to output all McICA samples. 
+               if (ims .eq. nmca) then
+
+                  do i = nlayers, 0, -1
+                     uflxsum(i) = uflxsum(i)/nmca
+                     dflxsum(i) = dflxsum(i)/nmca
+                     dirdsum(i) = dirdsum(i)/nmca
+                     difdsum(i) = difdsum(i)/nmca
+                     fnetsum(i) = fnetsum(i)/nmca
+                     htrsum(i) = htrsum(i)/nmca
+                  enddo
+
+                  if (istart .ne. iend) then
+                     iout1 = jpb2
+                     iout2 = iend-1
+                  else
+                     iout1 = istart
+                     iout2 = iend
+                  endif
+
+                  if (isccos .eq. 1) then 
+                     write(iwr,9880) 
+                  elseif (isccos .eq. 2) then
+                     write(iwr,9881)
+                  else
+                     write(iwr,9879)
+                  endif
+
+                  if (idelm .eq. 0) then
+                     write(iwr,9883)
+                  else
+                     write(iwr,9882)
+                  endif
+
+                  write(iwr,9899) wavenum1(iout1),wavenum2(iout2),iplon
+                  write(iwr,9900)
+                  write(iwr,9901)
+
+                  do i = nlayers, 0, -1
+                     if (pz(i) .lt. 1.e-2_rb) then
+                        indform = 1
+                     elseif (pz(i) .lt. 1.e-1_rb) then
+                        indform = 2
+                     elseif (pz(i) .lt. 1._rb) then
+                        indform = 3
+                     elseif (pz(i) .lt. 10._rb) then
+                        indform = 4
+                     elseif (pz(i) .lt. 100._rb) then
+                        indform = 5
+                     elseif (pz(i) .lt. 1000._rb) then
+                        indform = 6
+                     else
+                        indform = 7
+                     endif
+                     write(iwr,outform(indform)) i, pz(i), uflxsum(i), &
+                          difdsum(i), dirdsum(i), dflxsum(i), fnetsum(i), htrsum(i)
+!                     write(iwr,outform(indform)) i, pz(i), totuflux(i), &
+!                          difdflux(i), dirdflux(i), totdflux(i), fnet(i), htr(i)
+                  enddo
+                  write(iwr,9903)page
+
+               endif
+
+            endif
+
+ 2000       continue
+! End statistical loop for McICA
+         enddo
+
+         if (iout .ge. 0 .and. iout .le. jpb2) goto 3500
+         if (iflag .eq. 98) then
+            iflag = jpb1
+         elseif (iflag .gt. 0 .and. iflag .lt. jpb2) then
+            iflag = iflag + 1
+         else
+            goto 3500
+         endif
+            goto 1000
+ 3500    continue
+
+! Output module version numbers
+
+         write(iwr,9910) hnamrtm,hvrrtm,hnamini,hvrini,hnamcld,hvrcld, &
+           hnamclc,hvrclc,hnamrft,hvrrft,hnamspv,hvrspv,hnamspc,hvrspc, &
+           hnamset,hvrset,hnamtau,hvrtau,hnamvqd,hvrvqd,hnamatm,hvratm, &
+           hnamutl,hvrutl,hnamext,hvrext,hnamkg,hvrkg
+
+ 4000    continue
+
+! End longitude/column loop
+      enddo
+
+      close(ird)
+      close(iwr)
+
+ 9879 format(1x)
+ 9880 format(1x,'All output fluxes have been adjusted to account for ins&
+     &trumental cosine response.') 
+ 9881 format(1x,'The output diffuse fluxes have been adjusted to account&
+     & for instrumental cosine response.') 
+
+ 9882 format(1x,'The downwelling direct and diffuse fluxes have been com&
+     &puted using the delta-M scaling approximation.') 
+ 9883 format(1x)
+
+ 9899 format(1x,'Wavenumbers: ',f6.0,' - ',f6.0,' cm-1, ATM ',i6)
+ 9900 format(1x,'LEVEL PRESSURE   UPWARD FLUX   DIFDOWN FLUX  DIRDOWN FL&
+     &UX  DOWNWARD FLUX   NET FLUX    HEATING RATE')
+ 9901 format(1x,'         mb          W/m2          W/m2          W/m2&
+     &        W/m2          W/m2       degree/day')
+ 9902 format(1x,i3,3x,f11.6,4x,1p,2(g12.6,2x),g13.6,3x,g16.9,0p)
+ 9903 format(a)
+ 9910 format('  Modules and versions used in this calculation:',/,/, &
+              7(5x,a20,2x,a18,10x,a20,2x,a18,/))
+
+      contains
+
+!*************************************************************************
+      real(kind=rb) function earth_sun(idn)
+!*************************************************************************
+!
+!  Purpose: Function to calculate the correction factor of Earth's orbit
+!  for current day of the year
+
+!  idn        : Day of the year
+!  earth_sun  : square of the ratio of mean to actual Earth-Sun distance
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use rrsw_con, only : pi
+
+      implicit none
+
+      integer(kind=im), intent(in) :: idn
+
+      real(kind=rb) :: gamma
+
+      gamma = 2._rb*pi*(idn-1)/365._rb
+
+! Use Iqbal's equation 1.2.1
+
+      earth_sun = 1.000110_rb + .034221_rb * cos(gamma) + .001289_rb * sin(gamma) + &
+                   .000719_rb * cos(2._rb*gamma) + .000077_rb * sin(2._rb*gamma)
+
+      end function earth_sun
+
+!************************************************************************
+      subroutine readprof(ird_in, nlayers_out, iout_out, imca, icld_out, &
+           iaer_out, isccos_out, idelm_out, pdp, &
+           pavel_out, tavel_out, pz_out, tz_out, tbound_out, dz_out, semiss_out, &
+           zenith_out, adjflux_out, &
+           coldry_out, wkl_out, inflag_out, iceflag_out,liqflag_out, &
+           cldfrac_out, tauc, ssac, asmc, fsfc, ciwp, clwp, rei, rel, &
+           tauaer_out, ssaaer_out, asmaer_out, &
+           decorr_con_out, juldat_out, idcor_out, lat_out, &
+! solar variability I/O
+           isolvar,svar_f_out,svar_s_out,svar_i_out, &
+           svar_f_bnd_out, svar_s_bnd_out, svar_i_bnd_out)
+!************************************************************************
+
+! -------- Modules --------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only: rrsw_scon
+      use rrsw_con, only: pi,planck,boltz,clight,avogad,alosmt,gascon, &
+                          radcn1,radcn2
+      use rrsw_wvn, only: wavenum1, wavenum2, delwave
+
+! Note: COMMON blocks are left in this routine for array passing with
+!       rrtatm.f for reading input profiles in single-column mode.
+!       Scalars and arrays in subroutine call are renamed to avoid conflict
+!       with COMMON blocks.
+!                                                                         
+! Purpose: Read in atmospheric profile.
+
+      implicit integer(i-n), real(a-h,o-z)
+
+! ------- Parameters -------
+      parameter (mxlay = 603)
+      parameter (nbndsw = 14)
+      parameter (jpbands = 29)
+      parameter (ib1 = 16, ib2 = 29)
+      parameter (mg = 16)
+      parameter (mxstr = 16)
+      parameter (mcmu = 32)
+      parameter (mxmol = 39)
+      parameter (maxinpx = 35)
+      parameter (maxxsec = 4)
+
+      dimension altz(0:mxlay),ixtrans(14)
+      dimension solvar(jpbands)
+
+      common /control/  iaer, nstr, iout, istart, iend, icld, idelm, isccos
+      common /constants/fluxfac,heatfac
+      common /consts/   pic,planckc,boltzc,clightc,avogadc,alosmtc,gasconc, &
+                        radcn1c,radcn2c
+      common /swprop/   zenith, albedo, adjflux(jpbands)
+      common /surface/  ireflect,semiss(jpbands)
+      common /profile/  nlayers,pavel(mxlay),tavel(mxlay),pz(0:mxlay),tz(0:mxlay),tbound
+      common /species/  coldry(mxlay),wkl(mxmol,mxlay),wbrodl(mxlay),colmol(mxlay),nmol
+      common /ifil/     ird,ipr,ipu,idum(15)
+      common /xsecctrl/ nxmol,ixindx(maxinpx)
+      common /xsec/     wx(maxxsec,mxlay)
+      common /pathx/    ixmax,nxmol0,ixindx0(maxinpx),wx0(maxinpx,mxlay)    
+      common /xrrtatm/  ixsect
+
+      common /cloudin/   inflag,clddat1(mxlay),clddat2(mxlay), &
+                         iceflag,liqflag,clddat3(mxlay),clddat4(mxlay), &
+                         clddatmom(0:16,mxlay)
+      common /clouddat/  ncbands,cldfrac(mxlay), &
+                         taucloud(mxlay,jpbands),ssacloud(mxlay,jpbands), &
+                         xmom(0:16,mxlay,jpbands)
+      common /aerdat/    ssaaer(mxlay,jpbands), phase(mcmu,mxlay,jpbands), &
+                         tauaer(mxlay,jpbands)
+
+      character*80 form1(0:1),form2(0:1),form3(0:1)
+      character*1 ctest, cdollar, cdum
+      character*3 cinp
+
+! Dimensions for transfer to rrtmg
+      integer(kind=im), intent(in) :: ird_in                 ! input file unit
+      integer(kind=im), intent(out) :: nlayers_out           ! total number of layers
+      integer(kind=im), intent(out) :: imca                  ! McICA on/off flag (1 = use McICA)
+      integer(kind=im), intent(out) :: icld_out              ! clear/cloud/overlap flag
+      integer(kind=im), intent(out) :: iout_out              ! output option flag
+      integer(kind=im), intent(out) :: iaer_out              ! aerosol flag
+      integer(kind=im), intent(out) :: isccos_out            ! aerosol flag
+      integer(kind=im), intent(out) :: idelm_out             ! aerosol flag
+
+      real(kind=rb), intent(out) :: pavel_out(mxlay)         ! layer pressures (mb) 
+      real(kind=rb), intent(out) :: tavel_out(mxlay)         ! layer temperatures (K)
+      real(kind=rb), intent(out) :: dz_out(mxlay)            ! layer thickness (m)
+      real(kind=rb), intent(out) :: pz_out(0:mxlay)          ! level (interface) pressures (hPa, mb)
+      real(kind=rb), intent(out) :: tz_out(0:mxlay)          ! level (interface) temperatures (K)
+      real(kind=rb), intent(out) :: tbound_out               ! surface temperature (K)
+      real(kind=rb), intent(out) :: pdp(mxlay)               ! layer pressure thickness (hPa, mb)
+      real(kind=rb), intent(out) :: coldry_out(mxlay)        ! dry air molecular amount
+      real(kind=rb), intent(out) :: wkl_out(mxmol,mxlay)     ! molecular amounts (mol/cm-2)
+      real(kind=rb), intent(out) :: semiss_out(jpbands)       ! surface emissivity
+      real(kind=rb), intent(out) :: zenith_out               ! cos solar zenith angle
+      real(kind=rb), intent(out) :: adjflux_out(jpbands)      ! adjustment for current Earth/Sun distance
+      real(kind=rb), intent(out) :: decorr_con_out        ! decorrelation length, constant
+      real(kind=rb), intent(out) :: lat_out               ! latitude 
+      integer(kind=im), intent(out) :: juldat_out         ! Julian date (day of year)
+      integer(kind=im), intent(out) :: idcor_out          ! Decorrelation length type
+
+      integer(kind=im), intent(out) :: inflag_out              ! cloud property option flag
+      integer(kind=im), intent(out) :: iceflag_out             ! ice cloud property flag
+      integer(kind=im), intent(out) :: liqflag_out             ! liquid cloud property flag
+
+      real(kind=rb), intent(out) :: cldfrac_out(mxlay)         ! cloud fraction
+      real(kind=rb), intent(out) :: tauc(nbndsw,mxlay)         ! in-cloud optical depth (non-delta scaled)
+      real(kind=rb), intent(out) :: ssac(nbndsw,mxlay)         ! in-cloud single scattering albedo (non-delta scaled)
+      real(kind=rb), intent(out) :: asmc(nbndsw,mxlay)         ! in-cloud asymmetry parameter (non-delta scaled)
+      real(kind=rb), intent(out) :: fsfc(nbndsw,mxlay)         ! in-cloud forward scattering fraction (non-delta scaled)
+      real(kind=rb), intent(out) :: ciwp(mxlay)                ! in-cloud ice water path
+      real(kind=rb), intent(out) :: clwp(mxlay)                ! in-cloud liquid water path
+      real(kind=rb), intent(out) :: rei(mxlay)                 ! cloud ice particle size
+      real(kind=rb), intent(out) :: rel(mxlay)                 ! cloud liquid particle size
+      real(kind=rb), intent(out) :: tauaer_out(mxlay,jpbands)   ! aerosol optical depth
+      real(kind=rb), intent(out) :: ssaaer_out(mxlay,jpbands)   ! aerosol single scattering albedo
+      real(kind=rb), intent(out) :: asmaer_out(mxlay,jpbands)   ! aerosol asymmetry parameter
+                                                                !   first momemnt of input phase function
+! Solar variability
+      integer(kind=im) :: isolvar                     ! Flag for solar variability method
+                                                      !   -1 = (when SCON .eq. 0.0): No solar variability
+                                                      !        and no solar cycle (Kurucz solar irradiance
+                                                      !        of 1368.22 Wm-2 only);
+                                                      !        (when SCON .ne. 0.0): Kurucz solar irradiance
+                                                      !        scaled to SCON and solar variability defined
+                                                      !        (optional) by setting non-zero scale factors
+                                                      !        for each band in SOLVAR
+                                                      !    0 = (when SCON .eq. 0.0): No solar variability 
+                                                      !        and no solar cycle (NRLSSI2 solar constant of 
+                                                      !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                                      !        range only), with facular and sunspot effects 
+                                                      !        fixed to the mean of Solar Cycles 13-24;
+                                                      !        (when SCON .ne. 0.0): No solar variability 
+                                                      !        and no solar cycle (NRLSSI2 solar constant of 
+                                                      !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                                      !        range only), is scaled to SCON
+                                                      !    1 = Solar variability (using NRLSSI2  solar
+                                                      !        model) with solar cycle contribution
+                                                      !        determined by fraction of solar cycle
+                                                      !        with facular and sunspot variations
+                                                      !        fixed to their mean variations over the
+                                                      !        average of Solar Cycles 13-24;
+                                                      !        two amplitude scale factors allow
+                                                      !        facular and sunspot adjustments from
+                                                      !        mean solar cycle as defined by solvar 
+                                                      !    2 = Solar variability (using NRLSSI2 solar
+                                                      !        model) over solar cycle determined by 
+                                                      !        direct specification of Mg (facular)
+                                                      !        and SB (sunspot) indices provided
+                                                      !        in solvar (scon = 0.0 only)
+                                                      !    3 = (when SCON .eq. 0.0): No solar variability
+                                                      !        and no solar cycle (NRLSSI2 solar irradiance
+                                                      !        of 1360.85 Wm-2 only);
+                                                      !        (when SCON .ne. 0.0): NRLSSI2 solar irradiance
+                                                      !        scaled to SCON and solar variability defined
+                                                      !        (optional) by setting non-zero scale factors
+                                                      !        for each band in SOLVAR
+      real(kind=rb), intent(out) :: svar_f_out                 ! Solar variability facular multiplier
+      real(kind=rb), intent(out) :: svar_s_out                 ! Solar variability sunspot multiplier
+      real(kind=rb), intent(out) :: svar_i_out                 ! Solar variability baseline irradiance multiplier
+      real(kind=rb), intent(out) :: svar_f_bnd_out(jpbands)    ! Solar variability facular multiplier (by band)
+      real(kind=rb), intent(out) :: svar_s_bnd_out(jpbands)    ! Solar variability sunspot multiplier (by band)
+      real(kind=rb), intent(out) :: svar_i_bnd_out(jpbands)    ! Solar variability baseline irradiance multiplier (by band)
+
+!
+! Local
+      integer(kind=im) :: juldat                               ! day of year
+      real(kind=rb) :: fice(mxlay)                             ! cloud ice fraction
+
+! Local inputs for EXP or ER cloud overlap
+      integer(kind=im) :: idcor                           ! decorrelation length type 
+                                                          !  0 = constant
+                                                          !  1 = latitude and day of year dependent
+      real(kind=rb) :: decorr_con                         ! decorrelation length, constant (meters)
+      real(kind=rb) :: lat                                ! latitude (degrees)
+
+! Local - solar variability
+      real(kind=rb) :: scon                             ! solar constant (Wm-2)
+      real(kind=rb) :: svar_f                           ! Solar variability facular multiplier
+      real(kind=rb) :: svar_s                           ! Solar variability sunspot multiplier
+      real(kind=rb) :: svar_i                           ! Solar variability baseline irradiance multiplier
+      real(kind=rb) :: svar_f_bnd(jpbands)              ! Solar variability facular multiplier (by band)
+      real(kind=rb) :: svar_s_bnd(jpbands)              ! Solar variability sunspot multiplier (by band)
+      real(kind=rb) :: svar_i_bnd(jpbands)              ! Solar variability baseline irradiance multiplier (by band)
+      real(kind=rb) :: bndsolvar(nbndsw)                ! Band scale factors for modeling spectral 
+                                                        ! variation of solar cycle for each shortwave band;
+                                                        ! for Kurucz solar constant (isolvar=-1), or
+                                                        ! averaged NRLSSI2 model solar cycle (isolvar=3)
+                                                        !    Dimensions: (nbndsw=14)
+      real(kind=rb) :: indsolvar(2)                     ! Mg and SB index amplitude scale factors (isolvar=1), or
+                                                        ! Mg and SB indices as defined in the NRLSSI2 model (isolvar=2)
+                                                        !    Dimensions: (2)
+      real(kind=rb) :: solcycfrac                       ! Fraction of averaged 11-year solar cycle (0-1)
+                                                        !    at current time (isolvar=1); 
+                                                        !    0.0 represents the first day of year 1
+                                                        !    1.0 represents the last day of year 11
+      real(kind=rb), parameter ::  solcycfrac_min = 0.0189_rb    ! Solar cycle fraction at solar minimum
+      real(kind=rb), parameter ::  solcycfrac_max = 0.3750_rb    ! Solar cycle fraction at solar maximum
+      real(kind=rb), parameter ::  fracdiff_min2max = 0.3561_rb  ! 0.3750 - 0.0189
+      real(kind=rb), parameter ::  fracdiff_max2min = 0.6439_rb  ! 1.0189 - 0.3750
+      real(kind=rb) :: wgt                              ! Weighting factor for amplitude scale factor adjustment
+      real(kind=rb) :: svar_f_0, svar_s_0               ! Solar variability indices for current fractional
+                                                        !  position in typical solar cycle, interpolated
+                                                        !  from lookup table of values over solar cycle
+      real(kind=rb) :: svar_cprim                       ! Solar variability intermediate value
+      real(kind=rb) :: svar_r                           ! Solar variability intermediate value
+      integer(kind=im) :: sfid                          ! Solar variability solar cycle fraction index
+      real(kind=rb) :: tmp_f_0, tmp_s_0                 ! Solar variability temporary quantities
+      real(kind=rb) :: fraclo, frachi, intfrac          ! Solar variability interpolation factors
+
+! Mean quiet sun, facular brightening, and sunspot dimming coefficient terms (NRLSSI2, 100-50000 cm-1), 
+! spectrally integrated (from hi-res values after mapping to g-point space)
+      real(kind=rb), parameter :: Iint = 1360.37_rb     ! Solar quiet sun irradiance term, integrated
+      real(kind=rb), parameter :: Fint = 0.996047_rb    ! Solar facular brightening term (index-offset), integrated
+      real(kind=rb), parameter :: Sint = -0.511590_rb   ! Solar sunspot dimming term (index-offset), integrated
+      real(kind=rb), parameter :: Foffset = 0.14959542_rb    ! Solar facular offset
+      real(kind=rb), parameter :: Soffset = 0.00066696_rb    ! Solar sunspot offset
+
+! Mg and SB indices for average solar cycle integrated over solar cycle
+      real(kind=rb), parameter :: svar_f_avg = 0.1567652_rb  ! Solar variability NRLSSI2 Mg "Bremen" index 
+                                                             !  time-averaged over Solar Cycles 13-24
+                                                             !  and averaged over solar cycle (132 values
+                                                             !  excluding end points in Mg and SB arrays)
+      real(kind=rb), parameter :: svar_s_avg = 902.71260_rb  ! Solar variability NRLSSI2 SB "SPOT67" index 
+                                                             !  time-averaged over Solar Cycles 13-24
+                                                             !  and averaged over solar cycle (132 values
+                                                             !  excluding end points in Mg and SB arrays)
+      integer(kind=im), parameter :: nsolfrac = 134          ! Number of elements in solar arrays 
+                                                             !  132 values (excluding end points) represent
+                                                             !  the center dates of the 12 months per year 
+                                                             !  over the mean 11-year solar cycle;
+                                                             !  2 end points represent the first day of the 
+                                                             !  first month of year 1 and the last day of
+                                                             !  the last month of year 11
+      real(kind=rb) :: intrvl_len                            !  Fractional interval length of mgavgcyc
+                                                             !  and sbavgcyc
+      real(kind=rb) :: intrvl_len_hf                         !  Fractional half interval length of mgavgcyc
+                                                             !  and sbavgcyc
+
+! Mg and SB index look-up tables for average solar cycle as a function of solar cycle
+      real(kind=rb) :: mgavgcyc(nsolfrac)               ! Facular index from NRLSSI2 Mg "Bremen" index 
+                                                        !  time-averaged over Solar Cycles 13-24
+      real(kind=rb) :: sbavgcyc(nsolfrac)               ! Sunspot index from NRLSSI2 SB "SPOT67" index 
+                                                        !  time-averaged over Solar Cycles 13-24
+      mgavgcyc(:) = (/ &
+        &   0.150737_rb,  0.150746_rb,  0.150733_rb,  0.150718_rb,  0.150725_rb,  0.150762_rb, &
+        &   0.150828_rb,  0.150918_rb,  0.151017_rb,  0.151113_rb,  0.151201_rb,  0.151292_rb, &
+        &   0.151403_rb,  0.151557_rb,  0.151766_rb,  0.152023_rb,  0.152322_rb,  0.152646_rb, &
+        &   0.152969_rb,  0.153277_rb,  0.153579_rb,  0.153899_rb,  0.154252_rb,  0.154651_rb, &
+        &   0.155104_rb,  0.155608_rb,  0.156144_rb,  0.156681_rb,  0.157178_rb,  0.157605_rb, &
+        &   0.157971_rb,  0.158320_rb,  0.158702_rb,  0.159133_rb,  0.159583_rb,  0.160018_rb, &
+        &   0.160408_rb,  0.160725_rb,  0.160960_rb,  0.161131_rb,  0.161280_rb,  0.161454_rb, &
+        &   0.161701_rb,  0.162034_rb,  0.162411_rb,  0.162801_rb,  0.163186_rb,  0.163545_rb, &
+        &   0.163844_rb,  0.164029_rb,  0.164054_rb,  0.163910_rb,  0.163621_rb,  0.163239_rb, &
+        &   0.162842_rb,  0.162525_rb,  0.162344_rb,  0.162275_rb,  0.162288_rb,  0.162369_rb, &
+        &   0.162500_rb,  0.162671_rb,  0.162878_rb,  0.163091_rb,  0.163251_rb,  0.163320_rb, &
+        &   0.163287_rb,  0.163153_rb,  0.162927_rb,  0.162630_rb,  0.162328_rb,  0.162083_rb, &
+        &   0.161906_rb,  0.161766_rb,  0.161622_rb,  0.161458_rb,  0.161266_rb,  0.161014_rb, &
+        &   0.160666_rb,  0.160213_rb,  0.159690_rb,  0.159190_rb,  0.158831_rb,  0.158664_rb, &
+        &   0.158634_rb,  0.158605_rb,  0.158460_rb,  0.158152_rb,  0.157691_rb,  0.157152_rb, &
+        &   0.156631_rb,  0.156180_rb,  0.155827_rb,  0.155575_rb,  0.155406_rb,  0.155280_rb, &
+        &   0.155145_rb,  0.154972_rb,  0.154762_rb,  0.154554_rb,  0.154388_rb,  0.154267_rb, &
+        &   0.154152_rb,  0.154002_rb,  0.153800_rb,  0.153567_rb,  0.153348_rb,  0.153175_rb, &
+        &   0.153044_rb,  0.152923_rb,  0.152793_rb,  0.152652_rb,  0.152510_rb,  0.152384_rb, &
+        &   0.152282_rb,  0.152194_rb,  0.152099_rb,  0.151980_rb,  0.151844_rb,  0.151706_rb, &
+        &   0.151585_rb,  0.151496_rb,  0.151437_rb,  0.151390_rb,  0.151347_rb,  0.151295_rb, &
+        &   0.151220_rb,  0.151115_rb,  0.150993_rb,  0.150883_rb,  0.150802_rb,  0.150752_rb, &
+        &   0.150729_rb,  0.150737_rb/)
+      sbavgcyc(:) = (/ &
+        &    50.3550_rb,   44.1322_rb,   52.0179_rb,   59.2231_rb,   66.3702_rb,   71.7545_rb, &
+        &    76.8671_rb,   83.4723_rb,   91.1574_rb,   98.4915_rb,  105.3173_rb,  115.1791_rb, &
+        &   130.9432_rb,  155.0483_rb,  186.5379_rb,  221.5456_rb,  256.9212_rb,  291.5276_rb, &
+        &   325.2953_rb,  356.4789_rb,  387.2470_rb,  422.8557_rb,  466.1698_rb,  521.5139_rb, &
+        &   593.2833_rb,  676.6234_rb,  763.6930_rb,  849.1200_rb,  928.4259_rb,  994.9705_rb, &
+        &  1044.2605_rb, 1087.5703_rb, 1145.0623_rb, 1224.3491_rb, 1320.6497_rb, 1413.0979_rb, &
+        &  1472.1591_rb, 1485.7531_rb, 1464.1610_rb, 1439.1617_rb, 1446.2449_rb, 1496.4323_rb, &
+        &  1577.8394_rb, 1669.5933_rb, 1753.0408_rb, 1821.9296_rb, 1873.2789_rb, 1906.5240_rb, &
+        &  1920.4482_rb, 1904.6881_rb, 1861.8397_rb, 1802.7661_rb, 1734.0215_rb, 1665.0562_rb, &
+        &  1608.8999_rb, 1584.8208_rb, 1594.0162_rb, 1616.1486_rb, 1646.6031_rb, 1687.1962_rb, &
+        &  1736.4778_rb, 1787.2419_rb, 1824.9084_rb, 1835.5236_rb, 1810.2161_rb, 1768.6124_rb, &
+        &  1745.1085_rb, 1748.7762_rb, 1756.1239_rb, 1738.9929_rb, 1700.0656_rb, 1658.2209_rb, &
+        &  1629.2925_rb, 1620.9709_rb, 1622.5157_rb, 1623.4703_rb, 1612.3083_rb, 1577.3031_rb, &
+        &  1516.7953_rb, 1430.0403_rb, 1331.5112_rb, 1255.5171_rb, 1226.7653_rb, 1241.4419_rb, &
+        &  1264.6549_rb, 1255.5559_rb, 1203.0286_rb, 1120.2747_rb, 1025.5101_rb,  935.4602_rb, &
+        &   855.0434_rb,  781.0189_rb,  718.0328_rb,  678.5850_rb,  670.4219_rb,  684.1906_rb, &
+        &   697.0376_rb,  694.8083_rb,  674.1456_rb,  638.8199_rb,  602.3454_rb,  577.6292_rb, &
+        &   565.6213_rb,  553.7846_rb,  531.7452_rb,  503.9732_rb,  476.9708_rb,  452.4296_rb, &
+        &   426.2826_rb,  394.6636_rb,  360.1086_rb,  324.9731_rb,  297.2957_rb,  286.1536_rb, &
+        &   287.4195_rb,  288.9029_rb,  282.7594_rb,  267.7211_rb,  246.6594_rb,  224.7318_rb, &
+        &   209.2318_rb,  204.5217_rb,  204.1653_rb,  200.0440_rb,  191.0689_rb,  175.7699_rb, &
+        &   153.9869_rb,  128.4389_rb,  103.8445_rb,   85.6083_rb,   73.6264_rb,   64.4393_rb, &
+        &    56.5779_rb,   50.3550_rb/)
+
+! Initializations
+
+      data cdollar /'$'/
+      data ixtrans /0,0,0,1,2,3,0,0,0,0,0,4,0,0/
+
+      form1(0) = '(3f10.4,a3,i2,1x,2(f7.2,f8.3,f7.2))'
+      form2(0) = '(3f10.4,a3,i2,23x,(f7.2,f8.3,f7.2))'
+      form3(0) = '(8e10.3)'
+      form1(1) = '(g15.7,g10.4,g10.4,a3,i2,1x,2(g7.2,g8.3,g7.2))'
+      form2(1) = '(g15.7,g10.4,g10.4,a3,i2,23x,(g7.2,g8.3,g7.2))'
+      form3(1) = '(8g15.7)'
+
+! Pass constants to common block names for rrtatm
+      pic = pi
+      planckc = planck
+      boltzc = boltz
+      clightc = clight
+      avogadc = avogad
+      alosmtc = alosmt
+      gasconc = gascon
+      radcn1c = radcn1
+      radcn2c = radcn2
+ 
+      ixmax = maxinpx
+
+      ird = ird_in
+
+      do ilay = 1,mxlay
+         do isp = 1,mxmol
+            wkl(isp,ilay) = 0.0_rb
+         enddo
+         do isp = 1,maxxsec
+            wx(isp,ilay) = 0.0_rb
+         enddo
+      enddo
+
+! Top of read input loop
+ 1000 continue
+      read (ird,9009,end=8800) ctest
+      if (ctest .ne. cdollar) goto 1000
+
+      read (ird,9011) iaer, iatm, iscat, istrm, iout, imca, icld, idelm, icos
+
+      if (idelm.gt.1 .or. idelm.lt.0 .or. icos.gt.0 .or. icos.lt.0) then
+         print *,'INVALID MEASUREMENT COMPARISON FLAG'
+         stop
+      endif
+      isccos = icos
+
+! No cross-sections implemented in shortwave.
+      ixsect = 0
+
+! Only 2-stream scattering implemented in rrtmg
+      if (iscat .ne. 1) then
+         print *,'INVALID SCATTERING OPTION CHOSEN'
+         stop
+      endif
+
+      if (istrm .eq. 0) then 
+         nstr = 2
+      else 
+         print *, 'INVALID VALUE FOR ISTRM'
+         stop
+      endif
+
+      read (ird,9020) juldat, sza, isolvar, scon, solcycfrac, solvar(ib1:ib2)
+
+      indsolvar(:) = 1.0_rb
+      bndsolvar(:) = 1.0_rb
+
+      if (isolvar.eq.1) then 
+         indsolvar(1) = solvar(16)
+         indsolvar(2) = solvar(17)
+! Adjust amplitude scaling of mean solar cycle to be 1.0 at solar minimum (solcycfrac_min=0.0189),
+! to be the requested indsolvar at solar maximum (solcycfrac_max=0.3750), and to vary between 
+! those values at intervening values of solcycfrac. 
+         if (indsolvar(1) .ne. 1.0_rb .or. indsolvar(2) .ne. 1.0_rb) then 
+            if (solcycfrac .ge. 0.0_rb .and. solcycfrac .lt. solcycfrac_min) then
+               wgt = (solcycfrac+1.0_rb-solcycfrac_max)/fracdiff_max2min
+               indsolvar(1) = indsolvar(1) + wgt * (1.0_rb-indsolvar(1))
+               indsolvar(2) = indsolvar(2) + wgt * (1.0_rb-indsolvar(2))
+            endif
+            if (solcycfrac .ge. solcycfrac_min .and. solcycfrac .le. solcycfrac_max) then
+               wgt = (solcycfrac-solcycfrac_min)/fracdiff_min2max
+               indsolvar(1) = 1.0_rb + wgt * (indsolvar(1)-1.0_rb)
+               indsolvar(2) = 1.0_rb + wgt * (indsolvar(2)-1.0_rb)
+            endif
+            if (solcycfrac .gt. solcycfrac_max .and. solcycfrac .le. 1.0_rb) then
+               wgt = (solcycfrac-solcycfrac_max)/fracdiff_max2min
+               indsolvar(1) = indsolvar(1) + wgt * (1.0_rb-indsolvar(1))
+               indsolvar(2) = indsolvar(2) + wgt * (1.0_rb-indsolvar(2))
+            endif
+         endif
+      endif
+         
+      if (isolvar.eq.2) then 
+         indsolvar(1) = solvar(16)
+         indsolvar(2) = solvar(17)
+      endif
+
+      if (isolvar.eq.-1 .or. isolvar.eq.3) then 
+         bndsolvar(:) = solvar(ib1:ib2)
+      endif
+         
+      zenith = cos(sza * pi / 180._rb)
+      if (juldat .eq. 0) then
+         adjflux_jd = 1._rb
+      else
+         adjflux_jd = earth_sun (juldat)
+      endif
+
+! If clouds are present, read in appropriate input file, IN_CLD_RRTM.
+      if (icld .ge. 1) call readcld
+
+! If aerosols are present, read in appropriate input from file, IN_AER_RRTM. 
+      if (iaer .eq. 10) call readaer
+
+
+! Apply selected solar variability option based on ISOLVAR and input 
+! solar constant.
+! For scon = 0, use internally defined solar constant, which is
+! 1368.22 Wm-2 (for ISOLVAR=-1) and 1360.85 Wm-2 (for ISOLVAR=0,3;
+! options ISOLVAR=1,2 model solar cycle variations from 1360.85 Wm-2)
+!
+! SCON = 0 
+! Use internal TSI value 
+      if (scon .eq. 0.0_rb) then 
+
+!   No solar cycle and no solar variability (Kurucz solar irradiance)
+!   Apply constant scaling by band if first element of bndsolvar specified
+         if (isolvar .eq. -1) then
+            solvar(ib1:ib2) = 1.0_rb
+            if (bndsolvar(1).gt.0.0_rb) solvar(ib1:ib2) = bndsolvar(:)
+         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model solar irradiance)
+!   Quiet sun, facular, and sunspot terms averaged over the mean solar cycle 
+!   (defined as average of Solar Cycles 13-24).
+         if (isolvar .eq. 0) then
+            svar_f = 1.0_rb
+            svar_s = 1.0_rb
+            svar_i = 1.0_rb
+         endif 
+
+!   Mean solar cycle with solar variability (NRLSSI2 model)
+!   Facular and sunspot terms interpolated from LUTs to input solar cycle 
+!   fraction for mean solar cycle. Scalings defined below to convert from 
+!   averaged Mg and SB terms to Mg and SB terms interpolated here.
+!   (Includes optional facular and sunspot amplitude scale factors)
+         if (isolvar .eq. 1) then
+!   Interpolate svar_f_0 and svar_s_0 from lookup tables using provided solar cycle fraction
+            if (solcycfrac .le. 0.0_rb) then
+               tmp_f_0 = mgavgcyc(1)
+               tmp_s_0 = sbavgcyc(1)
+            elseif (solcycfrac .ge. 1.0_rb) then
+               tmp_f_0 = mgavgcyc(nsolfrac)
+               tmp_s_0 = sbavgcyc(nsolfrac)
+            else
+               intrvl_len = 1.0_rb / (nsolfrac-2)
+               intrvl_len_hf = 0.5_rb * intrvl_len
+!   Initial half interval (1)
+               if (solcycfrac .le. intrvl_len_hf) then 
+                  sfid = 1
+                  fraclo = 0.0_rb
+                  frachi = intrvl_len_hf
+               endif
+!   Main whole intervals (131)
+               if (solcycfrac .gt. intrvl_len_hf .and. solcycfrac .lt. 1.0_rb-intrvl_len_hf) then 
+                  sfid = floor((solcycfrac-intrvl_len_hf) * (nsolfrac-2)) + 2
+                  fraclo = (sfid-2) * intrvl_len + intrvl_len_hf
+                  frachi = fraclo + intrvl_len
+               endif
+!   Final half interval (1)
+               if (solcycfrac .ge. 1.0_rb-intrvl_len_hf) then 
+                  sfid = (nsolfrac-2) + 1
+                  fraclo = 1.0_rb - intrvl_len_hf
+                  frachi = 1.0_rb
+               endif
+               intfrac = (solcycfrac - fraclo) / (frachi - fraclo)
+               tmp_f_0 = mgavgcyc(sfid) + intfrac * (mgavgcyc(sfid+1) - mgavgcyc(sfid))
+               tmp_s_0 = sbavgcyc(sfid) + intfrac * (sbavgcyc(sfid+1) - sbavgcyc(sfid))
+            endif
+            svar_f_0 = tmp_f_0
+            svar_s_0 = tmp_s_0
+            svar_f = indsolvar(1) * (svar_f_0 - Foffset) / (svar_f_avg - Foffset)
+            svar_s = indsolvar(2) * (svar_s_0 - Soffset) / (svar_s_avg - Soffset)
+            svar_i = 1.0_rb
+         endif 
+!   Specific solar cycle with solar variability (NRLSSI2 model)
+!   Facular and sunspot index terms input directly to model specific 
+!   solar cycle.  Scalings defined below to convert from averaged
+!   Mg and SB terms to specified Mg and SB terms. 
+         if (isolvar .eq. 2) then
+            svar_f = (indsolvar(1) - Foffset) / (svar_f_avg - Foffset)
+            svar_s = (indsolvar(2) - Soffset) / (svar_s_avg - Soffset)
+            svar_i = 1.0_rb
+         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model)
+!   Averaged facular, sunspot and quiet sun terms from mean solar cycle 
+!   (derived as average of Solar Cycles 13-24). This information is built
+!   into coefficient terms specified by g-point elsewhere. Separate
+!   scaling by spectral band is applied as defined by bndsolvar. 
+         if (isolvar .eq. 3) then
+            solvar(ib1:ib2) = bndsolvar(:)
+            do ib = ib1,ib2
+               svar_f_bnd(ib) = solvar(ib)
+               svar_s_bnd(ib) = solvar(ib)
+               svar_i_bnd(ib) = solvar(ib)
+            enddo
+         endif 
+
+      endif
+
+! SCON > 0 
+! Scale from internal TSI to externally specified TSI value (scon)
+      if (scon .gt. 0.0_rb) then 
+
+!   No solar cycle and no solar variability (Kurucz solar irradiance)
+!   Scale from internal solar constant to requested solar constant.
+!   Apply optional constant scaling by band if first element of bndsolvar > 0.0
+         if (isolvar .eq. -1) then
+            if (bndsolvar(1).eq.0.0_rb) solvar(ib1:ib2) = scon / rrsw_scon 
+            if (bndsolvar(1).gt.0.0_rb) solvar(ib1:ib2) = bndsolvar(:) * scon / rrsw_scon 
+         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model solar irradiance)
+!   Quiet sun, facular, and sunspot terms averaged over the mean solar cycle 
+!   (defined as average of Solar Cycles 13-24).
+!   Scale internal solar constant to requested solar constant (scon). 
+!!   Fint is provided as the product of (svar_f_avg-Foffset) and Fint, 
+!!   Sint is provided as the product of (svar_s_avg-Soffset) and Sint
+         if (isolvar .eq. 0) then
+            svar_cprim = Fint + Sint + Iint
+            svar_r = scon / svar_cprim
+            svar_f = svar_r
+            svar_s = svar_r
+            svar_i = svar_r
+         endif 
+
+!   Mean solar cycle with solar variability (NRLSSI2 model)
+!   Facular and sunspot terms interpolated from LUTs to input solar cycle 
+!   fraction for mean solar cycle. Scalings defined below to convert from 
+!   averaged Mg and SB terms to Mg and SB terms interpolated here.
+!   Scale internal solar constant to requested solar constant. 
+!   (Includes optional facular and sunspot amplitude scale factors)
+         if (isolvar .eq. 1) then
+!   Interpolate svar_f_0 and svar_s_0 from lookup tables using provided solar cycle fraction
+            if (solcycfrac .le. 0.0_rb) then
+               tmp_f_0 = mgavgcyc(1)
+               tmp_s_0 = sbavgcyc(1)
+            elseif (solcycfrac .ge. 1.0_rb) then
+               tmp_f_0 = mgavgcyc(nsolfrac)
+               tmp_s_0 = sbavgcyc(nsolfrac)
+            else
+               intrvl_len = 1.0_rb / (nsolfrac-2)
+               intrvl_len_hf = 0.5_rb * intrvl_len
+!   Initial half interval (1)
+               if (solcycfrac .le. intrvl_len_hf) then 
+                  sfid = 1
+                  fraclo = 0.0_rb
+                  frachi = intrvl_len_hf
+               endif
+!   Main whole intervals (131)
+               if (solcycfrac .gt. intrvl_len_hf .and. solcycfrac .lt. 1.0_rb-intrvl_len_hf) then 
+                  sfid = floor((solcycfrac-intrvl_len_hf) * (nsolfrac-2)) + 2
+                  fraclo = (sfid-2) * intrvl_len + intrvl_len_hf
+                  frachi = fraclo + intrvl_len
+               endif
+!   Final half interval (1)
+               if (solcycfrac .ge. 1.0_rb-intrvl_len_hf) then 
+                  sfid = (nsolfrac-2) + 1
+                  fraclo = 1.0_rb - intrvl_len_hf
+                  frachi = 1.0_rb
+               endif
+               intfrac = (solcycfrac - fraclo) / (frachi - fraclo)
+               tmp_f_0 = mgavgcyc(sfid) + intfrac * (mgavgcyc(sfid+1) - mgavgcyc(sfid))
+               tmp_s_0 = sbavgcyc(sfid) + intfrac * (sbavgcyc(sfid+1) - sbavgcyc(sfid))
+            endif
+            svar_f_0 = tmp_f_0
+            svar_s_0 = tmp_s_0
+!   Define Cprime 
+!            svar_cprim = indsolvar(1) * Fint + indsolvar(2) * Sint + Iint
+!   Fint is provided as the product of (svar_f_avg-Foffset) and Fint, 
+!   Sint is provided as the product of (svar_s_avg-Soffset) and Sint
+            svar_i = (scon - (indsolvar(1) * Fint + indsolvar(2) * Sint)) / Iint
+            svar_f = indsolvar(1) * (svar_f_0 - Foffset) / (svar_f_avg - Foffset)
+            svar_s = indsolvar(2) * (svar_s_0 - Soffset) / (svar_s_avg - Soffset)
+         endif 
+
+!   Specific solar cycle with solar variability (NRLSSI2 model)
+!   (Not available for SCON > 0)
+!         if (isolvar .eq. 2) then
+!            scon = 0.0_rb
+!            svar_f = (indsolvar(1) - Foffset) / (svar_f_avg - Foffset)
+!            svar_s = (indsolvar(2) - Soffset) / (svar_s_avg - Soffset)
+!            svar_i = 1.0_rb
+!         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model)
+!   Averaged facular, sunspot and quiet sun terms from mean solar cycle 
+!   (derived as average of Solar Cycles 13-24). This information is built
+!   into coefficient terms specified by g-point elsewhere. Separate
+!   scaling by spectral band is applied as defined by bndsolvar. 
+!   Scale internal solar constant (svar_cprim) to requested solar constant (scon)
+!   Fint is provided as the product of (svar_f_avg-Foffset) and Fint, 
+!   Sint is provided as the product of (svar_s_avg-Soffset) and Sint
+         if (isolvar .eq. 3) then
+            svar_cprim = Fint + Sint + Iint
+            if (bndsolvar(1).eq.0.0_rb) solvar(ib1:ib2) = scon / svar_cprim
+            if (bndsolvar(1).gt.0.0_rb) solvar(ib1:ib2) = bndsolvar(:) * scon / svar_cprim
+            do ib = ib1,ib2
+               svar_f_bnd(ib) = solvar(ib)
+               svar_s_bnd(ib) = solvar(ib)
+               svar_i_bnd(ib) = solvar(ib)
+            enddo
+         endif 
+
+      endif
+
+! Combine Earth-Sun adjustment (adjflux_jd) and solar constant scaling (solvar)
+! by band when no solar variability and no solar cycle requested
+      if (isolvar .lt. 0) then
+         do ib = ib1,ib2
+            adjflux(ib) = adjflux_jd * solvar(ib)
+         enddo
+      endif
+! Define Earth-Sun adjustment (adjflux_jd) by band for other solar options
+      if (isolvar .ge. 0) then
+         do ib = ib1,ib2
+            adjflux(ib) = adjflux_jd
+         enddo
+      endif
+
+      read (ird,9012) iemis, ireflect, semiss(ib1:ib2)
+      if (iemis .eq. 0) then
+         do ib = ib1, ib2
+            semiss(ib) = 1._rb
+         enddo
+      elseif (iemis .eq. 1) then
+         do ib = ib1, ib2
+            semiss(ib) = semiss(ib1)
+         enddo
+      elseif (iemis .eq. 2) then
+!          print *, 'THESE ARE THE INPUT EMISSIVITY VALUES'
+!          print *, semiss(ib1:ib2)
+      else
+          print *, 'IEMIS = ', iemis, ' NOT A VALID INPUT VALUE'
+          stop
+      endif
+     
+!  Read in extra records for EXP or ER cloud overlap
+      if (icld .eq. 4 .or. icld .eq. 5) then
+         read (ird,9014) idcor
+         if (idcor .eq. 0) then 
+            read (ird,9015) decorr_con
+         endif
+         if (idcor .eq. 1) then 
+            read (ird,9015) lat
+            if (iatm .eq. 1) lat = ref_lat
+         endif
+      endif
+
+! When juldat = 0 (1 AU) and latitude-varying decorrelation length selected, 
+! use juldat=94 (roughtly the date of 1 AU Earth-Sun distance in NH spring)
+! for decorrelation length calculation
+      if (juldat .eq. 0 .and. idcor .eq. 1) juldat = 94
+
+      if (iatm .eq. 0) then
+         read (ird,9013) iform,nlayers,nmol
+         if (nmol.eq.0) nmol = 7                                    
+         read (ird,form1(iform)) pavel(1),tavel(1),secntk,cinp, &
+              ipthak,altz(0),pz(0),tz(0),altz(1),pz(1),tz(1)
+         read (ird,form3(iform)) (wkl(m,1),m=1,7), wbrodl(1)
+         if(nmol .gt. 7) read (ird,form3(iform)) (wkl(m,1),m=8,nmol)
+
+         do l = 2, nlayers
+            read (ird,form2(iform)) pavel(l),tavel(l),secntk,cinp, &
+                 ipthrk,altz(l),pz(l),tz(l)
+            read (ird,form3(iform)) (wkl(m,l),m=1,7), wbrodl(l)
+            if(nmol .gt. 7) read (ird,form3(iform)) (wkl(m,l),m=8,nmol)
+         enddo
+           
+         if (ixsect .eq. 1) then                                 
+            read (ird,9300) nxmol0
+            nxmol = nxmol0
+            call xsident(ird)
+            read (ird,9301) iformx
+     
+            do l = 1, nlayers       
+               read (ird,9010) cdum
+               read (ird, form3(iformx)) (wx0(m,l),m=1,7),wbrodx    
+               if (nxmol0 .gt. 7) read (ird,form3(iformx)) &
+                  (wx0(m,l),m=8,nxmol0)
+            enddo
+         endif
+! calculate approximate height of layer mid-points
+         do l = 1,nlayers
+            dz(l) = altz(l) - altz(l-1)
+         enddo
+      else
+         ipu = 7
+         ipr = 66
+         open(unit=ipr,file='tape6',status='unknown')
+         call rrtatm
+         if (ixsect .eq. 1) then
+            do mx = 1, nxmol0
+               ixindx(mx) = ixtrans(ixindx0(mx))
+            enddo
+         endif
+      endif
+
+! Test for mixing ratio input.
+      imix = 1
+      do m = 1, nmol
+         if (wkl(m,1) .gt. 1.0_rb) then
+            imix = 0
+            goto 3600
+         endif
+      enddo
+ 3600 continue
+
+      if (ixsect .eq. 1) then
+         imixx = 0
+         if (wx0(1,1) .le. 1.0_rb) imixx = 1
+      endif
+      do l = 1, nlayers
+         summol = 0.0_rb
+         do imol = 2, nmol
+            summol = summol + wkl(imol,l)
+         enddo
+         if (imix .eq. 1) then
+            coldry(l) = wbrodl(l) / (1._rb - summol)
+            do imol = 1, nmol
+               wkl(imol,l) = coldry(l) * wkl(imol,l)
+            enddo
+         else
+            coldry(l) = wbrodl(l) + summol
+         endif
+         if (ixsect .eq. 1) then
+            do ix = 1, nxmol0
+               if (ixindx(ix) .ne. 0) then
+                  if (imixx .eq. 1) then
+                     wx(ixindx(ix),l) = coldry(l) * wx0(ix,l) * 1.e-20_rb
+                  else
+                     wx(ixindx(ix),l) = wx0(ix,l) * 1.e-20_rb
+                  endif
+               endif
+            enddo 
+         endif
+      enddo
+
+! Pass output arrays to new variables for transfer to rrtmg thorugh subroutine call.
+      nlayers_out = nlayers
+      iout_out = iout
+      icld_out = icld
+      iaer_out = iaer
+      isccos_out = isccos
+      idelm_out = idelm
+      inflag_out = inflag
+      iceflag_out = iceflag
+      liqflag_out = liqflag
+
+      pz_out(0) = pz(0)
+      tz_out(0) = tz(0)
+      tbound_out = tz(0)
+      do l = 1, mxlay
+         pavel_out(l) = pavel(l)
+         tavel_out(l) = tavel(l)
+! convert layer height from km to m
+         dz_out(l) = dz(l) * 1000._rb
+         pz_out(l) = pz(l)
+         tz_out(l) = tz(l)
+         pdp(l) = (pz(l-1) - pz(l))
+         coldry_out(l) = coldry(l)
+         cldfrac_out(l) = cldfrac(l)
+         do imol = 1,nmol
+            wkl_out(imol,l) = wkl(imol,l)
+         enddo
+      enddo
+
+      do l = 1, mxlay
+         if (inflag.eq.0) then
+            do n = 1, nbndsw
+               tauc(n,l) = clddat1(l)
+               ssac(n,l) = clddat2(l)
+               asmc(n,l) = clddatmom(1,l)
+               fsfc(n,l) = asmc(n,l)**2
+            enddo
+            ciwp(l) = 0._rb
+            clwp(l) = 0._rb
+            fice(l) = 0._rb
+            rei(l) = 0._rb
+            rel(l) = 0._rb
+         else
+            do n = 1, nbndsw
+               tauc(n,l) = 0._rb
+               ssac(n,l) = 1._rb
+               asmc(n,l) = 0._rb
+               fsfc(n,l) = 0._rb
+            enddo
+            cwp = clddat1(l)
+            fice(l) = clddat2(l)
+            ciwp(l) = cwp * fice(l)
+            clwp(l) = cwp * (1._rb - fice(l))
+            rei(l) = clddat3(l)
+            rel(l) = clddat4(l)
+         endif 
+      enddo
+
+      do l = 1, mxlay
+         do nb = ib1,ib2
+            tauaer_out(l,nb) = tauaer(l,nb)
+            ssaaer_out(l,nb) = ssaaer(l,nb)
+            asmaer_out(l,nb) = phase(1,l,nb)
+         enddo
+      enddo
+      zenith_out = zenith
+      do nb = ib1,ib2
+        semiss_out(nb) = semiss(nb)
+        adjflux_out(nb) = adjflux(nb)
+      enddo
+      decorr_con_out = decorr_con
+      juldat_out = juldat
+      idcor_out = idcor
+      lat_out = lat
+
+! Solar variability
+      svar_f_out = svar_f
+      svar_s_out = svar_s
+      svar_i_out = svar_i
+      do nb = ib1,ib2
+        svar_f_bnd_out(nb) = svar_f_bnd(nb)
+        svar_s_bnd_out(nb) = svar_s_bnd(nb)
+        svar_i_bnd_out(nb) = svar_i_bnd(nb)
+      enddo
+      
+      goto 9000
+
+ 8800 continue
+      stop ' INVALID INPUT_RRTM '
+
+ 9000 continue
+
+ 9009 format (a1,1x,i2,i2,i2)
+ 9010 format (a1)
+ 9011 format (18x,i2,29x,i1,32x,i1,1x,i1,2x,i3,3x,i1,i1,3x,i1,i1)
+ 9012 format (11x,i1,2x,i1,14f5.3)
+ 9013 format (1x,i1,i3,i5)                                     
+ 9014 format (8x,i2)
+ 9015 format (f10.3)
+ 9020 format (12x, i3, 3x, f7.4, 3x, i2, f10.4, f10.5, 14f10.5)
+ 9300 format (i5)
+ 9301 format (1x,i1)
+
+      end subroutine readprof
+
+!***************************************************************************
+      subroutine readcld
+!***************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb
+
+! Purpose:  To read in IN_CLD_RRTM_SW, the file that contains input 
+!           cloud properties.
+
+      implicit integer(i-n), real(a-h,o-z)
+
+! ------- Parameters ------- 
+      parameter (mxlay = 603, jpbands = 29)
+      parameter (ib1 = 16, ib2 = 29)
+      parameter (mg = 16)
+      parameter (mxstr = 16)
+
+      common /control/   iaer, nstr, iout, istart, iend, icld, idelm, isccos
+      common /profile/   nlayers,pavel(mxlay),tavel(mxlay),pz(0:mxlay),tz(0:mxlay),tbound
+      common /cloudin/   inflag,clddat1(mxlay),clddat2(mxlay), &
+                         iceflag,liqflag,clddat3(mxlay),clddat4(mxlay), &
+                         clddatmom(0:16,mxlay)
+      common /clouddat/  ncbands,cldfrac(mxlay), &
+                         taucloud(mxlay,jpbands),ssacloud(mxlay,jpbands), &
+                         xmom(0:16,mxlay,jpbands)
+
+      character*1 ctest, cpercent
+
+      data cpercent /'%'/
+      irdcld = 11
+
+      open(irdcld,file='IN_CLD_RRTM',form='formatted')
+
+! Read in cloud input option.  
+      read(irdcld,9050) inflag, iceflag, liqflag
+
+      do lay = 1, nlayers
+         cldfrac(lay) = 0._rb
+      enddo
+
+      if (inflag .eq. 0) then
+ 950     continue
+!  For INFLAG = 0 or 1, for each cloudy layer only LAY, FRAC, and
+!  DAT1 are pertinent.  If CTEST = '%', then there are no more 
+!  cloudy layers to process.
+         read (irdcld,9099,end=8950) ctest,lay,frac,dat1,dat2,clddatmom(0:nstr,lay)
+         if (ctest .eq. cpercent) goto 8950
+         cldfrac(lay) = frac
+         clddat1(lay) = dat1
+         clddat2(lay) = dat2
+         goto 950
+ 8950    continue
+
+      else
+ 1000    continue
+! For INFLAG = 0 or 1, for each cloudy layer only LAY, FRAC, and
+! DAT1 are pertinent.  If CTEST = '%', then there are no more 
+! cloudy layers to process.
+         read (irdcld,9100,end=9000) ctest,lay,frac,dat1,dat2,dat3,dat4
+         if (ctest .eq. cpercent) goto 9000
+         cldfrac(lay) = frac
+         clddat1(lay) = dat1
+         clddat2(lay) = dat2
+         clddat3(lay) = dat3
+         clddat4(lay) = dat4
+         goto 1000
+ 9000    continue
+      endif
+
+      close(irdcld)
+
+ 9050 format (3x,i2,4x,i1,4x,i1)
+ 9099 format (a1,1x,i3,19e10.5)
+ 9100 format (a1,1x,i3,5e10.5)
+
+      end subroutine readcld
+
+!***************************************************************************
+      subroutine readaer
+!***************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb
+
+! Purpose:  To read in IN_AER_RRTM, the file that contains input
+!           aerosol properties.
+
+! -------- Modules --------
+
+      use rrsw_wvn, only : wavenum1, wavenum2
+
+      implicit integer(i-n), real(a-h,o-z)
+
+! ------- Parameters -------
+      parameter (mxlay = 603, jpbands = 29)
+      parameter (ib1 = 16, ib2 = 29)
+      parameter (mg = 16)
+      parameter (mxstr = 16)
+      parameter (mcmu = 32)
+
+      real aerpar(3), ssa(jpbands), asym(jpbands), aod(mxlay),aod1(jpbands)
+      real rlambda(jpbands), specfac(jpbands)
+      real rnu0(16:29),rnu1(23:26)
+      real f1(23:26),od0(23:26),od1(23:26)
+      integer lay(mxlay),ivec(mxlay)
+
+      common /control/ iaer, nstr, iout, istart, iend, icld, idelm, isccos
+      common /profile/ nlayers,pavel(mxlay),tavel(mxlay), pz(0:mxlay),tz(0:mxlay),tbound
+      common /swprop/  zenith, albedo, adjflux(jpbands)
+      common /aerdat/  ssaaer(mxlay,jpbands), phase(mcmu,mxlay,jpbands), tauaer(mxlay,jpbands)
+
+      character*1 ctest, cpercent
+
+      data cpercent /'%'/
+
+      data rnu0 /2903._rb,3601._rb,4310._rb,4892._rb,5623._rb,6872._rb, &
+                 7872._rb,10590._rb,14420._rb,18970._rb,25015._rb,30390._rb, & 
+                 43507._rb,1412._rb/
+      data rnu1 /10530.7_rb,14293.3_rb,18678.0_rb,24475.1_rb/
+ 
+      data f1  /0.9929_rb,0.9883_rb,0.978_rb,0.9696_rb/
+      data od0 /0.1084_rb,0.167_rb,0.245_rb,0.3611_rb/
+      data od1 /0.3144_rb,0.4822_rb,0.7013_rb,1.0239_rb/
+
+      eps = 1.e-10_rb
+      irdaer = 12
+      open(irdaer,file='IN_AER_RRTM',form='formatted')
+
+      aod(:) = 0.0_rb
+      tauaer(:,ib1:ib2) = 0.0_rb
+
+! Read in number of different aerosol models option.
+      read (irdaer, 9010) naer
+!       if (naer .gt. 4) then
+!          print *, 'NAER (= ', naer, ') IS GREATER THAN 4'
+!          stop
+!       endif
+        
+! For each aerosol read in optical properties and layer aerosol 
+! optical depths.
+      do ia = 1, naer
+	 read (irdaer, 9011) nlay, iaod, issa, iasym, aerpar(1:3)
+
+         if (iaod .eq. 0) then
+! Set defaults to get standard Angstrom relation.
+            if (aerpar(2) .lt. eps) aerpar(2) = 1._rb
+
+            do ib = ib1, ib2
+  	       rlambda(ib) = 10000._rb/rnu0(ib)
+               specfac(ib) = (aerpar(2) + aerpar(3) * rlambda(ib)) / &
+                            ((aerpar(2) + aerpar(3) - 1._rb) + &
+                              rlambda(ib)**aerpar(1))
+            enddo
+         endif
+
+! For this aerosol, read in layers and optical depth information.
+! Store a nonzero optical depth in aod to check for double specification.
+         do il = 1, nlay
+            read(irdaer, 9012) lay(il), aod1(ib1:ib2)
+            if (aod(lay(il)) .lt. eps) then
+               if (iaod .eq. 0) then
+                  aod(lay(il)) = aod1(ib1)
+                  do ib = ib1, ib2
+                     tauaer(lay(il),ib) = aod(lay(il)) * specfac(ib)
+                  enddo
+               else
+                  do ib = ib1, ib2
+                     aod(lay(il)) = max(aod(lay(il)),aod1(ib))
+                     tauaer(lay(il),ib) = aod1(ib)
+                  enddo
+               endif
+            else
+               print *,'LAYER ',lay(il),' HAS MORE THAN ONE AEROSOL TYPE'
+               stop
+            endif
+         enddo
+
+! Build vector of aerosol layer indices 
+
+         do il=1,nlay
+            ivec(il) = lay(il) 
+         end do
+
+! Correct bands 23 through 26 for sza effect (negligible for others)
+         do ib=23,26
+            if (iaod.eq.0) then
+                od = sum(tauaer(ivec(1:nlay),ib))/zenith
+                rnu = rnu0(ib) + &
+                     (rnu1(ib)-rnu0(ib))*(od-od0(ib))/(od1(ib)-od0(ib))
+               rlambda_new = 10000._rb/rnu
+               specfac_new = (aerpar(2)+aerpar(3)*rlambda_new) / &
+                  ((aerpar(2)+aerpar(3)- 1.)+rlambda_new**aerpar(1))
+               do il=1,nlay
+                  tauaer(lay(il),ib) = tauaer(lay(il),ib) * &
+                         specfac_new/specfac(ib)
+               end do
+            endif
+         end do
+
+! For this aerosol, read and store optical properties
+         read (irdaer, 9013) ssa(ib1:ib2)
+
+         do ib = ib1, ib2
+            do il = 1, nlay
+               if (issa .eq. 0) then 
+                  ssaaer(lay(il),ib) = ssa(ib1)
+               else
+                  ssaaer(lay(il),ib) = ssa(ib)
+               endif
+            enddo
+         enddo
+
+         if (iasym .lt. 2) then
+            read (irdaer, 9013) asym(ib1:ib2)
+
+            do ib = ib1, ib2
+               do il = 1, nlay
+                  do istr = 1,  nstr
+                     if (iasym .eq. 0) then 
+                        phase(istr,lay(il),ib) = asym(ib1)**istr
+                     elseif (iasym .eq. 1) then
+                        phase(istr,lay(il),ib) = asym(ib)**istr
+                     endif
+                  enddo
+               enddo
+            enddo
+         else
+            do il = 1, nlay
+               do istr = 1, nstr
+                  read (irdaer, 9013) phase(istr,lay(il),ib1:ib2)
+               enddo
+            enddo
+         endif
+
+! End of naer loop
+      enddo
+
+ 9000 continue
+      close(irdaer)
+
+ 9010 format (3x, i2)
+ 9011 format (2x, i3, 4x, i1, 4x, i1, 4x, i1, 3f8.3)
+ 9012 format (2x, i3, 14f7.4)
+ 9013 format (14f5.3)
+
+      end subroutine readaer
+
+!**********************************************************************
+      subroutine xsident(ird)
+!**********************************************************************
+
+! Purpose:  This subroutine identifies which cross-sections are to be used.
+
+      implicit integer(i-n), real(a-h,o-z)
+
+! ------- Parameters -------
+      parameter (maxinpx=35)
+      parameter (maxxsec=4)
+
+      common /xsecctrl/ nxmol,ixindx(maxinpx)
+                                                                         
+!     nxmol     - number of cross-sections input by user
+!     ixindx(i) - index of cross-section molecule corresponding to Ith
+!                 cross-section specified by user
+!                 = 0 -- not allowed in rrtm
+!                 = 1 -- ccl4
+!                 = 2 -- cfc11
+!                 = 3 -- cfc12
+!                 = 4 -- cfc22
+!                                                                         
+!     xsname=names, alias=aliases of the cross-section molecules          
+!                                                                         
+      character*10 xsname(maxinpx),alias(maxxsec,4),blank               
+
+      data (alias(1,i),i=1,4)/ &
+         'CCL4      ', 'CCL3F     ', 'CCL2F2    ', 'CHCLF2    '/ 
+      data (alias(2,i),i=1,4)/ &
+         ' ZZZZZZZZ ', 'CFCL3     ', 'CF2CL2    ', 'CHF2CL    '/         
+      data (alias(3,i),i=1,4)/ &
+         ' ZZZZZZZZ ', 'CFC11     ', 'CFC12     ', 'CFC22     '/         
+      data (alias(4,i),i=1,4)/ &
+         ' ZZZZZZZZ ', 'F11       ', 'F12       ', 'F22       '/        
+
+      data blank / '          '/
+
+      do i = 1, nxmol
+         xsname(i) = blank
+      enddo
+
+! Read in the names of the molecules
+
+      if (nxmol.gt.7) then                                               
+         read (ird,'(7a10)') (xsname(i),i=1,7)                            
+         read (ird,'(8a10)') (xsname(i),i=8,nxmol)                       
+      else                                                                
+         read (ird,'(7a10)') (xsname(i),i=1,nxmol)                       
+      endif                                                               
+                                                                         
+!  Match the names read in against the names stored in alias           
+!  and determine the index value.  
+      ixmax = 4
+      do i = 1, nxmol
+!  Left-justify all inputed names.                                      
+         call cljust (xsname(i),10)
+         ixindx(i) = 0
+         do j = 1, ixmax
+            if ((xsname(i).eq.alias(1,j)) .or. &
+                (xsname(i).eq.alias(2,j)) .or. &
+                (xsname(i).eq.alias(3,j)) .or. &                           
+                (xsname(i).eq.alias(4,j))) then                           
+               ixindx(i) = j                                              
+            endif                                                         
+         enddo
+      enddo   
+
+      end subroutine xsident
+
+      end program rrtmg_sw
+
+
diff --git a/radiation/src/rrtmg_sw_cldprmc.f90 b/radiation/src/rrtmg_sw_cldprmc.f90
new file mode 100644
index 0000000000000000000000000000000000000000..c307b147250c5f6ba59384073868637e740de78d
--- /dev/null
+++ b/radiation/src/rrtmg_sw_cldprmc.f90
@@ -0,0 +1,352 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+
+      module rrtmg_sw_cldprmc
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only : ngptsw, jpband, jpb1, jpb2
+      use rrsw_cld, only : extliq1, ssaliq1, asyliq1, &
+                           extice2, ssaice2, asyice2, &
+                           extice3, ssaice3, asyice3, fdlice3, &
+                           abari, bbari, cbari, dbari, ebari, fbari
+      use rrsw_wvn, only : wavenum1, wavenum2, ngb
+      use rrsw_vsn, only : hvrclc, hnamclc
+
+      implicit none
+
+      contains
+
+! ----------------------------------------------------------------------------
+      subroutine cldprmc_sw(nlayers, inflag, iceflag, liqflag, cldfmc, &
+                            ciwpmc, clwpmc, reicmc, relqmc, &
+                            taormc, taucmc, ssacmc, asmcmc, fsfcmc)
+! ----------------------------------------------------------------------------
+
+! Purpose: Compute the cloud optical properties for each cloudy layer
+! and g-point interval for use by the McICA method.  
+! Note: Only inflag = 0 and inflag=2/liqflag=1/iceflag=1,2,3 are available;
+! (Hu & Stamnes, Ebert and Curry, Key, and Fu) are implemented. 
+
+! ------- Input -------
+
+      integer(kind=im), intent(in) :: nlayers         ! total number of layers
+      integer(kind=im), intent(in) :: inflag          ! see definitions
+      integer(kind=im), intent(in) :: iceflag         ! see definitions
+      integer(kind=im), intent(in) :: liqflag         ! see definitions
+
+      real(kind=rb), intent(in) :: cldfmc(:,:)        ! cloud fraction [mcica]
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(in) :: ciwpmc(:,:)        ! cloud ice water path [mcica]
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(in) :: clwpmc(:,:)        ! cloud liquid water path [mcica]
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(in) :: relqmc(:)          ! cloud liquid particle effective radius (microns)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: reicmc(:)          ! cloud ice particle effective radius (microns)
+                                                      !    Dimensions: (nlayers)
+                                                      ! specific definition of reicmc depends on setting of iceflag:
+                                                      ! iceflag = 0: (inactive)
+                                                      !              
+                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !              r_ec range is limited to 13.0 to 130.0 microns
+                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+                                                      !              r_k range is limited to 5.0 to 131.0 microns
+                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),
+                                                      !              dge range is limited to 5.0 to 140.0 microns
+                                                      !              [dge = 1.0315 * r_ec]
+      real(kind=rb), intent(in) :: fsfcmc(:,:)        ! cloud forward scattering fraction
+                                                      !    Dimensions: (ngptsw,nlayers)
+
+! ------- Output -------
+
+      real(kind=rb), intent(inout) :: taucmc(:,:)     ! cloud optical depth (delta scaled)
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(inout) :: ssacmc(:,:)     ! single scattering albedo (delta scaled)
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(inout) :: asmcmc(:,:)     ! asymmetry parameter (delta scaled)
+                                                      !    Dimensions: (ngptsw,nlayers)
+      real(kind=rb), intent(out) :: taormc(:,:)       ! cloud optical depth (non-delta scaled)
+                                                      !    Dimensions: (ngptsw,nlayers)
+
+! ------- Local -------
+
+!      integer(kind=im) :: ncbands
+      integer(kind=im) :: ib, lay, istr, index, icx, ig
+
+      real(kind=rb), parameter :: eps = 1.e-06_rb     ! epsilon
+      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities
+      real(kind=rb) :: cwp                            ! total cloud water path
+      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)
+      real(kind=rb) :: radice                         ! cloud ice effective size (microns)
+      real(kind=rb) :: factor
+      real(kind=rb) :: fint
+
+      real(kind=rb) :: taucldorig_a, taucloud_a, ssacloud_a, ffp, ffp1, ffpssa
+      real(kind=rb) :: tauiceorig, scatice, ssaice, tauice, tauliqorig, scatliq, ssaliq, tauliq
+
+      real(kind=rb) :: fdelta(ngptsw)
+      real(kind=rb) :: extcoice(ngptsw), gice(ngptsw)
+      real(kind=rb) :: ssacoice(ngptsw), forwice(ngptsw)
+      real(kind=rb) :: extcoliq(ngptsw), gliq(ngptsw)
+      real(kind=rb) :: ssacoliq(ngptsw), forwliq(ngptsw)
+
+! Initialize
+
+      hvrclc = '$Revision$'
+
+! Some of these initializations are done elsewhere
+      do lay = 1, nlayers
+         do ig = 1, ngptsw
+            taormc(ig,lay) = taucmc(ig,lay)
+!            taucmc(ig,lay) = 0.0_rb
+!            ssacmc(ig,lay) = 1.0_rb
+!            asmcmc(ig,lay) = 0.0_rb
+         enddo
+      enddo
+
+! Main layer loop
+      do lay = 1, nlayers
+
+! Main g-point interval loop
+         do ig = 1, ngptsw 
+            cwp = ciwpmc(ig,lay) + clwpmc(ig,lay)
+            if (cldfmc(ig,lay) .ge. cldmin .and. &
+               (cwp .ge. cldmin .or. taucmc(ig,lay) .ge. cldmin)) then
+
+! (inflag=0): Cloud optical properties input directly
+               if (inflag .eq. 0) then
+! Cloud optical properties already defined in taucmc, ssacmc, asmcmc are unscaled;
+! Apply delta-M scaling here (using Henyey-Greenstein approximation)
+                  taucldorig_a = taucmc(ig,lay)
+                  ffp = fsfcmc(ig,lay)
+                  ffp1 = 1.0_rb - ffp
+                  ffpssa = 1.0_rb - ffp * ssacmc(ig,lay)
+                  ssacloud_a = ffp1 * ssacmc(ig,lay) / ffpssa
+                  taucloud_a = ffpssa * taucldorig_a
+
+                  taormc(ig,lay) = taucldorig_a
+                  ssacmc(ig,lay) = ssacloud_a
+                  taucmc(ig,lay) = taucloud_a
+                  asmcmc(ig,lay) = (asmcmc(ig,lay) - ffp) / (ffp1)
+
+               elseif (inflag .eq. 1) then 
+                  stop 'INFLAG = 1 OPTION NOT AVAILABLE WITH MCICA'
+
+! (inflag=2): Separate treatement of ice clouds and water clouds.
+               elseif (inflag .eq. 2) then       
+                  radice = reicmc(lay)
+
+! Calculation of absorption coefficients due to ice clouds.
+                  if (ciwpmc(ig,lay) .eq. 0.0_rb) then
+                     extcoice(ig) = 0.0_rb
+                     ssacoice(ig) = 0.0_rb
+                     gice(ig)     = 0.0_rb
+                     forwice(ig)  = 0.0_rb
+
+! (iceflag = 1): 
+! Note: This option uses Ebert and Curry approach for all particle sizes similar to
+! CAM3 implementation, though this is somewhat unjustified for large ice particles
+                  elseif (iceflag .eq. 1) then
+                     if (radice .lt. 13.0_rb .or. radice .gt. 130._rb) stop &
+                        'ICE RADIUS OUT OF BOUNDS'
+                     ib = ngb(ig)
+                     if (wavenum2(ib) .gt. 1.43e04_rb) then
+                        icx = 1
+                     elseif (wavenum2(ib) .gt. 7.7e03_rb) then
+                        icx = 2
+                     elseif (wavenum2(ib) .gt. 5.3e03_rb) then
+                        icx = 3
+                     elseif (wavenum2(ib) .gt. 4.0e03_rb) then
+                        icx = 4
+                     elseif (wavenum2(ib) .ge. 2.5e03_rb) then
+                        icx = 5
+                     endif
+                     extcoice(ig) = (abari(icx) + bbari(icx)/radice)
+                     ssacoice(ig) = 1._rb - cbari(icx) - dbari(icx) * radice
+                     gice(ig) = ebari(icx) + fbari(icx) * radice
+! Check to ensure upper limit of gice is within physical limits for large particles
+                     if (gice(ig).ge.1._rb) gice(ig) = 1._rb - eps
+                     forwice(ig) = gice(ig)*gice(ig)
+! Check to ensure all calculated quantities are within physical limits.
+                     if (extcoice(ig) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'
+                     if (ssacoice(ig) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'
+                     if (ssacoice(ig) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'
+                     if (gice(ig) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'
+                     if (gice(ig) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'
+
+! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns
+
+                  elseif (iceflag .eq. 2) then
+                     if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) stop 'ICE RADIUS OUT OF BOUNDS'
+                     factor = (radice - 2._rb)/3._rb
+                     index = int(factor)
+                     if (index .eq. 43) index = 42
+                     fint = factor - real(index,kind=rb)
+                     ib = ngb(ig)
+                     extcoice(ig) = extice2(index,ib) + fint * &
+                                   (extice2(index+1,ib) -  extice2(index,ib))
+                     ssacoice(ig) = ssaice2(index,ib) + fint * &
+                                   (ssaice2(index+1,ib) -  ssaice2(index,ib))
+                     gice(ig) = asyice2(index,ib) + fint * &
+                                   (asyice2(index+1,ib) -  asyice2(index,ib))
+                     forwice(ig) = gice(ig)*gice(ig)
+! Check to ensure all calculated quantities are within physical limits.
+                     if (extcoice(ig) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'
+                     if (ssacoice(ig) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'
+                     if (ssacoice(ig) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'
+                     if (gice(ig) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'
+                     if (gice(ig) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'
+
+! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns
+
+                  elseif (iceflag .eq. 3) then
+                     if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) stop 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'
+                     factor = (radice - 2._rb)/3._rb
+                     index = int(factor)
+                     if (index .eq. 46) index = 45
+                     fint = factor - real(index,kind=rb)
+                     ib = ngb(ig)
+                     extcoice(ig) = extice3(index,ib) + fint * &
+                                   (extice3(index+1,ib) - extice3(index,ib))
+                     ssacoice(ig) = ssaice3(index,ib) + fint * &
+                                   (ssaice3(index+1,ib) - ssaice3(index,ib))
+                     gice(ig) = asyice3(index,ib) + fint * &
+                               (asyice3(index+1,ib) - asyice3(index,ib))
+                     fdelta(ig) = fdlice3(index,ib) + fint * &
+                                 (fdlice3(index+1,ib) - fdlice3(index,ib))
+                     if (fdelta(ig) .lt. 0.0_rb) stop 'FDELTA LESS THAN 0.0'
+                     if (fdelta(ig) .gt. 1.0_rb) stop 'FDELTA GT THAN 1.0'
+                     forwice(ig) = fdelta(ig) + 0.5_rb / ssacoice(ig)
+! See Fu 1996 p. 2067 
+                     if (forwice(ig) .gt. gice(ig)) forwice(ig) = gice(ig)
+! Check to ensure all calculated quantities are within physical limits.  
+                     if (extcoice(ig) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'
+                     if (ssacoice(ig) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'
+                     if (ssacoice(ig) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'
+                     if (gice(ig) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'
+                     if (gice(ig) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'
+
+                  endif
+
+! Calculation of absorption coefficients due to water clouds.
+                  if (clwpmc(ig,lay) .eq. 0.0_rb) then
+                     extcoliq(ig) = 0.0_rb
+                     ssacoliq(ig) = 0.0_rb
+                     gliq(ig) = 0.0_rb
+                     forwliq(ig) = 0.0_rb
+
+                  elseif (liqflag .eq. 1) then
+                     radliq = relqmc(lay)
+                     if (radliq .lt. 2.5_rb .or. radliq .gt. 60._rb) stop &
+                        'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'
+                     index = int(radliq - 1.5_rb)
+                     if (index .eq. 0) index = 1
+                     if (index .eq. 58) index = 57
+                     fint = radliq - 1.5_rb - real(index,kind=rb)
+                     ib = ngb(ig)
+                     extcoliq(ig) = extliq1(index,ib) + fint * &
+                                   (extliq1(index+1,ib) - extliq1(index,ib))
+                     ssacoliq(ig) = ssaliq1(index,ib) + fint * &
+                                   (ssaliq1(index+1,ib) - ssaliq1(index,ib))
+                     if (fint .lt. 0._rb .and. ssacoliq(ig) .gt. 1._rb) &
+                                    ssacoliq(ig) = ssaliq1(index,ib)
+                     gliq(ig) = asyliq1(index,ib) + fint * &
+                               (asyliq1(index+1,ib) - asyliq1(index,ib))
+                     forwliq(ig) = gliq(ig)*gliq(ig)
+! Check to ensure all calculated quantities are within physical limits.
+                     if (extcoliq(ig) .lt. 0.0_rb) stop 'LIQUID EXTINCTION LESS THAN 0.0'
+                     if (ssacoliq(ig) .gt. 1.0_rb) stop 'LIQUID SSA GRTR THAN 1.0'
+                     if (ssacoliq(ig) .lt. 0.0_rb) stop 'LIQUID SSA LESS THAN 0.0'
+                     if (gliq(ig) .gt. 1.0_rb) stop 'LIQUID ASYM GRTR THAN 1.0'
+                     if (gliq(ig) .lt. 0.0_rb) stop 'LIQUID ASYM LESS THAN 0.0'
+                  endif
+   
+                  tauliqorig = clwpmc(ig,lay) * extcoliq(ig)
+                  tauiceorig = ciwpmc(ig,lay) * extcoice(ig)
+                  taormc(ig,lay) = tauliqorig + tauiceorig
+
+                  ssaliq = ssacoliq(ig) * (1._rb - forwliq(ig)) / &
+                          (1._rb - forwliq(ig) * ssacoliq(ig))
+                  tauliq = (1._rb - forwliq(ig) * ssacoliq(ig)) * tauliqorig
+                  ssaice = ssacoice(ig) * (1._rb - forwice(ig)) / &
+                          (1._rb - forwice(ig) * ssacoice(ig))
+                  tauice = (1._rb - forwice(ig) * ssacoice(ig)) * tauiceorig
+
+                  scatliq = ssaliq * tauliq
+                  scatice = ssaice * tauice
+                  taucmc(ig,lay) = tauliq + tauice
+
+! Ensure non-zero taucmc and scatice
+                  if(taucmc(ig,lay).eq.0.) taucmc(ig,lay) = cldmin
+                  if(scatice.eq.0.) scatice = cldmin
+
+                  ssacmc(ig,lay) = (scatliq + scatice) / taucmc(ig,lay)
+
+                  if (iceflag .eq. 3) then
+! In accordance with the 1996 Fu paper, equation A.3, 
+! the moments for ice were calculated depending on whether using spheres
+! or hexagonal ice crystals.
+! Set asymetry parameter to first moment (istr=1)
+                     istr = 1
+                     asmcmc(ig,lay) = (1.0_rb/(scatliq+scatice))* &
+                        (scatliq*(gliq(ig)**istr - forwliq(ig)) / &
+                        (1.0_rb - forwliq(ig)) + scatice * ((gice(ig)-forwice(ig))/ &
+                        (1.0_rb - forwice(ig)))**istr)
+
+                  else 
+! This code is the standard method for delta-m scaling. 
+! Set asymetry parameter to first moment (istr=1)
+                     istr = 1
+                     asmcmc(ig,lay) = (scatliq *  &
+                        (gliq(ig)**istr - forwliq(ig)) / &
+                        (1.0_rb - forwliq(ig)) + scatice * (gice(ig)**istr - forwice(ig)) / &
+                        (1.0_rb - forwice(ig)))/(scatliq + scatice)
+                  endif 
+
+               endif
+
+            endif
+
+! End g-point interval loop
+         enddo
+
+! End layer loop
+      enddo
+
+      end subroutine cldprmc_sw
+
+      end module rrtmg_sw_cldprmc
+
diff --git a/radiation/src/rrtmg_sw_cldprop.f90 b/radiation/src/rrtmg_sw_cldprop.f90
new file mode 100644
index 0000000000000000000000000000000000000000..71a1d4c86a19fe2de1af7e5682562688da25cde0
--- /dev/null
+++ b/radiation/src/rrtmg_sw_cldprop.f90
@@ -0,0 +1,369 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+
+      module rrtmg_sw_cldprop
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only : nbndsw, jpband, jpb1, jpb2
+      use rrsw_cld, only : extliq1, ssaliq1, asyliq1, &
+                           extice2, ssaice2, asyice2, &
+                           extice3, ssaice3, asyice3, fdlice3, &
+                           abari, bbari, cbari, dbari, ebari, fbari
+      use rrsw_wvn, only : wavenum1, wavenum2
+      use rrsw_vsn, only : hvrcld, hnamcld
+
+      implicit none
+
+      contains
+
+! ----------------------------------------------------------------------------
+      subroutine cldprop_sw(nlayers, inflag, iceflag, liqflag, cldfrac, &
+                            tauc, ssac, asmc, fsfc, ciwp, clwp, rei, rel, &
+                            taucldorig, taucloud, ssacloud, asmcloud)
+! ----------------------------------------------------------------------------
+
+! Purpose: Compute the cloud optical properties for each cloudy layer.
+! Note: Only inflag = 0 and inflag=2/liqflag=1/iceflag=1,2,3 are available;
+! (Hu & Stamnes, Ebert and Curry, Key, and Fu) are implemented.
+
+! ------- Input -------
+
+      integer(kind=im), intent(in) :: nlayers         ! total number of layers
+      integer(kind=im), intent(in) :: inflag          ! see definitions
+      integer(kind=im), intent(in) :: iceflag         ! see definitions
+      integer(kind=im), intent(in) :: liqflag         ! see definitions
+
+      real(kind=rb), intent(in) :: cldfrac(:)         ! cloud fraction
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: ciwp(:)            ! cloud ice water path
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: clwp(:)            ! cloud liquid water path
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: rei(:)             ! cloud ice particle effective size (microns)
+                                                      !    Dimensions: (nlayers)
+                                                      ! specific definition of rei depends on setting of iceflag:
+                                                      ! iceflag = 0: (inactive)
+                                                      !              
+                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !              r_ec range is limited to 13.0 to 130.0 microns
+                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+                                                      !              r_k range is limited to 5.0 to 131.0 microns
+                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),
+                                                      !              dge range is limited to 5.0 to 140.0 microns
+                                                      !              [dge = 1.0315 * r_ec]
+      real(kind=rb), intent(in) :: rel(:)             ! cloud liquid particle effective radius (microns)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tauc(:,:)          ! cloud optical depth
+                                                      !    Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: ssac(:,:)          ! single scattering albedo
+                                                      !    Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: asmc(:,:)          ! asymmetry parameter
+                                                      !    Dimensions: (nbndsw,nlayers)
+      real(kind=rb), intent(in) :: fsfc(:,:)          ! forward scattering fraction
+                                                      !    Dimensions: (nbndsw,nlayers)
+
+! ------- Output -------
+
+      real(kind=rb), intent(out) :: taucloud(:,:)     ! cloud optical depth (delta scaled)
+                                                      !    Dimensions: (nlayers,jpband)
+      real(kind=rb), intent(out) :: taucldorig(:,:)   ! cloud optical depth (non-delta scaled)
+                                                      !    Dimensions: (nlayers,jpband)
+      real(kind=rb), intent(out) :: ssacloud(:,:)     ! single scattering albedo (delta scaled)
+                                                      !    Dimensions: (nlayers,jpband)
+      real(kind=rb), intent(out) :: asmcloud(:,:)     ! asymmetry parameter (delta scaled)
+                                                      !    Dimensions: (nlayers,jpband)
+
+! ------- Local -------
+
+!      integer(kind=im) :: ncbands
+      integer(kind=im) :: ib, ib1, ib2, lay, istr, index, icx
+
+      real(kind=rb), parameter :: eps = 1.e-06_rb     ! epsilon
+      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities
+      real(kind=rb) :: cwp                            ! total cloud water path
+      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)
+      real(kind=rb) :: radice                         ! cloud ice effective size (microns)
+      real(kind=rb) :: factor
+      real(kind=rb) :: fint
+      real(kind=rb) :: tauctot(nlayers)               ! band integrated cloud optical depth
+
+      real(kind=rb) :: taucldorig_a, ssacloud_a, taucloud_a, ffp, ffp1, ffpssa
+      real(kind=rb) :: tauiceorig, scatice, ssaice, tauice, tauliqorig, scatliq, ssaliq, tauliq
+
+      real(kind=rb) :: fdelta(jpb1:jpb2)
+      real(kind=rb) :: extcoice(jpb1:jpb2), gice(jpb1:jpb2)
+      real(kind=rb) :: ssacoice(jpb1:jpb2), forwice(jpb1:jpb2)
+      real(kind=rb) :: extcoliq(jpb1:jpb2), gliq(jpb1:jpb2)
+      real(kind=rb) :: ssacoliq(jpb1:jpb2), forwliq(jpb1:jpb2)
+
+! Initialize
+
+      hvrcld = '$Revision$'
+
+!      ncbands = 29
+      ib1 = jpb1
+      ib2 = jpb2
+      tauctot(:) = 0._rb
+
+      do lay = 1, nlayers
+         do ib = ib1 , ib2
+            taucldorig(lay,ib) = tauc(ib-15,lay)
+            taucloud(lay,ib) = 0.0_rb
+            ssacloud(lay,ib) = 1.0_rb
+            asmcloud(lay,ib) = 0.0_rb
+            tauctot(lay) = tauctot(lay) + tauc(ib-15,lay)
+         enddo
+      enddo
+
+! Main layer loop
+      do lay = 1, nlayers
+
+         cwp = ciwp(lay) + clwp(lay)
+         if (cldfrac(lay) .ge. cldmin .and. &
+            (cwp .ge. cldmin .or. tauctot(lay) .ge. cldmin)) then
+
+! (inflag=0): Cloud optical properties input directly
+! Cloud optical properties already defined in tauc, ssac, asmc are unscaled;
+! Apply delta-M scaling here
+            if (inflag .eq. 0) then
+
+               do ib = ib1 , ib2
+                  taucldorig_a = tauc(ib-15,lay)
+                  ffp = fsfc(ib-15,lay)
+                  ffp1 = 1.0_rb - ffp
+                  ffpssa = 1.0_rb - ffp * ssac(ib-15,lay)
+                  ssacloud_a = ffp1 * ssac(ib-15,lay) / ffpssa
+                  taucloud_a = ffpssa * taucldorig_a
+
+                  taucldorig(lay,ib) = taucldorig_a
+                  ssacloud(lay,ib) = ssacloud_a
+                  taucloud(lay,ib) = taucloud_a
+                  asmcloud(lay,ib) = (asmc(ib-15,lay) - ffp) / (ffp1)
+               enddo
+
+! (inflag=2): Separate treatement of ice clouds and water clouds.
+            elseif (inflag .eq. 2) then       
+               radice = rei(lay)
+
+! Calculation of absorption coefficients due to ice clouds.
+               if (ciwp(lay) .eq. 0.0_rb) then
+                  do ib = ib1 , ib2
+                     extcoice(ib) = 0.0_rb
+                     ssacoice(ib) = 0.0_rb
+                     gice(ib)     = 0.0_rb
+                     forwice(ib)  = 0.0_rb
+                  enddo
+
+! (iceflag = 1): 
+! Note: This option uses Ebert and Curry approach for all particle sizes similar to
+! CAM3 implementation, though this is somewhat ineffective for large ice particles
+               elseif (iceflag .eq. 1) then
+                  if (radice .lt. 13.0_rb .or. radice .gt. 130._rb) stop &
+                     'ICE RADIUS OUT OF BOUNDS'
+                  do ib = ib1, ib2
+                     if (wavenum2(ib) .gt. 1.43e04_rb) then
+                        icx = 1
+                     elseif (wavenum2(ib) .gt. 7.7e03_rb) then
+                        icx = 2
+                     elseif (wavenum2(ib) .gt. 5.3e03_rb) then
+                        icx = 3
+                     elseif (wavenum2(ib) .gt. 4.0e03_rb) then
+                        icx = 4
+                     elseif (wavenum2(ib) .ge. 2.5e03_rb) then
+                        icx = 5
+                     endif
+                     extcoice(ib) = abari(icx) + bbari(icx)/radice
+                     ssacoice(ib) = 1._rb - cbari(icx) - dbari(icx) * radice
+                     gice(ib) = ebari(icx) + fbari(icx) * radice
+
+! Check to ensure upper limit of gice is within physical limits for large particles
+                     if (gice(ib) .ge. 1.0_rb) gice(ib) = 1.0_rb - eps
+                     forwice(ib) = gice(ib)*gice(ib)
+! Check to ensure all calculated quantities are within physical limits.
+                     if (extcoice(ib) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'
+                     if (ssacoice(ib) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'
+                     if (ssacoice(ib) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'
+                     if (gice(ib) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'
+                     if (gice(ib) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'
+                  enddo
+
+! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns
+
+               elseif (iceflag .eq. 2) then
+                  if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) stop 'ICE RADIUS OUT OF BOUNDS'
+                  factor = (radice - 2._rb)/3._rb
+                  index = int(factor)
+                  if (index .eq. 43) index = 42
+                  fint = factor - real(index,kind=rb)
+                  do ib = ib1, ib2
+                     extcoice(ib) = extice2(index,ib) + fint * &
+                                   (extice2(index+1,ib) -  extice2(index,ib))
+                     ssacoice(ib) = ssaice2(index,ib) + fint * &
+                                   (ssaice2(index+1,ib) -  ssaice2(index,ib))
+                     gice(ib) = asyice2(index,ib) + fint * &
+                                   (asyice2(index+1,ib) -  asyice2(index,ib))
+                     forwice(ib) = gice(ib)*gice(ib)
+! Check to ensure all calculated quantities are within physical limits.
+                     if (extcoice(ib) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'
+                     if (ssacoice(ib) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'
+                     if (ssacoice(ib) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'
+                     if (gice(ib) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'
+                     if (gice(ib) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'
+                  enddo
+
+! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns
+
+               elseif (iceflag .eq. 3) then
+                  if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) stop 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'
+                  factor = (radice - 2._rb)/3._rb
+                  index = int(factor)
+                  if (index .eq. 46) index = 45
+                  fint = factor - real(index,kind=rb)
+                  do ib = ib1 , ib2
+                     extcoice(ib) = extice3(index,ib) + fint * &
+                                   (extice3(index+1,ib) - extice3(index,ib))
+                     ssacoice(ib) = ssaice3(index,ib) + fint * &
+                                   (ssaice3(index+1,ib) - ssaice3(index,ib))
+                     gice(ib) = asyice3(index,ib) + fint * &
+                               (asyice3(index+1,ib) - asyice3(index,ib))
+                     fdelta(ib) = fdlice3(index,ib) + fint * &
+                                 (fdlice3(index+1,ib) - fdlice3(index,ib))
+                     if (fdelta(ib) .lt. 0.0_rb) stop 'FDELTA LESS THAN 0.0'
+                     if (fdelta(ib) .gt. 1.0_rb) stop 'FDELTA GT THAN 1.0'                     
+                     forwice(ib) = fdelta(ib) + 0.5_rb / ssacoice(ib)
+! See Fu 1996 p. 2067 
+                     if (forwice(ib) .gt. gice(ib)) forwice(ib) = gice(ib)
+! Check to ensure all calculated quantities are within physical limits.
+                     if (extcoice(ib) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'
+                     if (ssacoice(ib) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'
+                     if (ssacoice(ib) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'
+                     if (gice(ib) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'
+                     if (gice(ib) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'
+                  enddo
+
+               endif
+                  
+! Calculation of absorption coefficients due to water clouds.
+                if (clwp(lay) .eq. 0.0_rb) then
+                   do ib = ib1 , ib2
+                      extcoliq(ib) = 0.0_rb
+                      ssacoliq(ib) = 0.0_rb
+                      gliq(ib) = 0.0_rb
+                      forwliq(ib) = 0.0_rb
+                   enddo
+
+                elseif (liqflag .eq. 1) then
+                   radliq = rel(lay)
+                   if (radliq .lt. 2.5_rb .or. radliq .gt. 60._rb) stop &
+                      'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'
+                   index = int(radliq - 1.5_rb)
+                   if (index .eq. 0) index = 1
+                   if (index .eq. 58) index = 57
+                   fint = radliq - 1.5_rb - real(index,kind=rb)
+                   do ib = ib1 , ib2
+                      extcoliq(ib) = extliq1(index,ib) + fint * &
+                                    (extliq1(index+1,ib) - extliq1(index,ib))
+                      ssacoliq(ib) = ssaliq1(index,ib) + fint * &
+                                    (ssaliq1(index+1,ib) - ssaliq1(index,ib))
+                      if (fint .lt. 0._rb .and. ssacoliq(ib) .gt. 1._rb) &
+                                     ssacoliq(ib) = ssaliq1(index,ib)
+                      gliq(ib) = asyliq1(index,ib) + fint * &
+                                (asyliq1(index+1,ib) - asyliq1(index,ib))
+                      forwliq(ib) = gliq(ib)*gliq(ib)
+! Check to ensure all calculated quantities are within physical limits.
+                      if (extcoliq(ib) .lt. 0.0_rb) stop 'LIQUID EXTINCTION LESS THAN 0.0'
+                      if (ssacoliq(ib) .gt. 1.0_rb) stop 'LIQUID SSA GRTR THAN 1.0'
+                      if (ssacoliq(ib) .lt. 0.0_rb) stop 'LIQUID SSA LESS THAN 0.0'
+                      if (gliq(ib) .gt. 1.0_rb) stop 'LIQUID ASYM GRTR THAN 1.0'
+                      if (gliq(ib) .lt. 0.0_rb) stop 'LIQUID ASYM LESS THAN 0.0'
+                   enddo
+                endif
+
+                do ib = ib1 , ib2
+                   tauliqorig = clwp(lay) * extcoliq(ib)
+                   tauiceorig = ciwp(lay) * extcoice(ib)
+                   taucldorig(lay,ib) = tauliqorig + tauiceorig
+
+                   ssaliq = ssacoliq(ib) * (1.0_rb - forwliq(ib)) / &
+                           (1.0_rb - forwliq(ib) * ssacoliq(ib))
+                   tauliq = (1.0_rb - forwliq(ib) * ssacoliq(ib)) * tauliqorig
+                   ssaice = ssacoice(ib) * (1.0_rb - forwice(ib)) / &
+                           (1.0_rb - forwice(ib) * ssacoice(ib))
+                   tauice = (1.0_rb - forwice(ib) * ssacoice(ib)) * tauiceorig
+
+                   scatliq = ssaliq * tauliq
+                   scatice = ssaice * tauice
+
+                   taucloud(lay,ib) = tauliq + tauice
+
+! Ensure non-zero taucmc and scatice
+                   if (taucloud(lay,ib).eq.0.0_rb) taucloud(lay,ib) = cldmin
+                   if (scatice.eq.0.0_rb) scatice = cldmin
+
+                   ssacloud(lay,ib) = (scatliq + scatice) / taucloud(lay,ib)
+
+                   if (iceflag .eq. 3) then
+! In accordance with the 1996 Fu paper, equation A.3, 
+! the moments for ice were calculated depending on whether using spheres
+! or hexagonal ice crystals.
+                      istr = 1
+                      asmcloud(lay,ib) = (1.0_rb/(scatliq+scatice)) * &
+                         (scatliq*(gliq(ib)**istr - forwliq(ib)) / &
+                         (1.0_rb - forwliq(ib)) + scatice * ((gice(ib)-forwice(ib)) / &
+                         (1.0_rb - forwice(ib)))**istr)
+                   else 
+! This code is the standard method for delta-m scaling. 
+                      istr = 1
+                      asmcloud(lay,ib) = (scatliq *  &
+                         (gliq(ib)**istr - forwliq(ib)) / &
+                         (1.0_rb - forwliq(ib)) + scatice * (gice(ib)**istr - forwice(ib)) / &
+                         (1.0_rb - forwice(ib)))/(scatliq + scatice)
+                   endif 
+
+                enddo
+
+            endif
+
+         endif
+
+! End layer loop
+      enddo
+
+      end subroutine cldprop_sw
+
+      end module rrtmg_sw_cldprop
+
+
diff --git a/radiation/src/rrtmg_sw_init.f90 b/radiation/src/rrtmg_sw_init.f90
new file mode 100644
index 0000000000000000000000000000000000000000..1236caef0b669f96cb0b2405c723dc2664703595
--- /dev/null
+++ b/radiation/src/rrtmg_sw_init.f90
@@ -0,0 +1,3518 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+
+      module rrtmg_sw_init
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+      use parkind, only : im => kind_im, rb => kind_rb
+      use rrsw_wvn
+      use rrtmg_sw_setcoef, only: swatmref
+
+      implicit none
+
+      contains
+
+! **************************************************************************
+      subroutine rrtmg_sw_ini(cpdair)
+! **************************************************************************
+!
+!  Original version:   Michael J. Iacono; February, 2004
+!  Revision for F90 formatting:  M. J. Iacono, July, 2006
+!
+!  This subroutine performs calculations necessary for the initialization
+!  of the shortwave model.  Lookup tables are computed for use in the SW
+!  radiative transfer, and input absorption coefficient data for each
+!  spectral band are reduced from 224 g-point intervals to 112.
+! **************************************************************************
+
+      use parrrsw, only : mg, nbndsw, ngptsw
+      use rrsw_tbl, only: ntbl, tblint, pade, bpade, tau_tbl, exp_tbl
+      use rrsw_vsn, only: hvrini, hnamini
+
+      real(kind=rb), intent(in) :: cpdair     ! Specific heat capacity of dry air
+                                              ! at constant pressure at 273 K
+                                              ! (J kg-1 K-1)
+
+! ------- Local -------
+
+      integer(kind=im) :: ibnd, igc, ig, ind, ipr
+      integer(kind=im) :: igcsm, iprsm
+      integer(kind=im) :: itr
+
+      real(kind=rb) :: wtsum, wtsm(mg)
+      real(kind=rb) :: tfn
+
+      real(kind=rb), parameter :: expeps = 1.e-20_rb   ! Smallest value for exponential table
+
+! ------- Definitions -------
+!     Arrays for 10000-point look-up tables:
+!     TAU_TBL  Clear-sky optical depth 
+!     EXP_TBL  Exponential lookup table for transmittance
+!     PADE     Pade approximation constant (= 0.278)
+!     BPADE    Inverse of the Pade approximation constant
+!
+
+      hvrini = '$Revision$'
+
+! Initialize model data
+      call swdatinit(cpdair)
+      call swcmbdat              ! g-point interval reduction data
+      call swaerpr               ! aerosol optical properties
+      call swcldpr               ! cloud optical properties
+      call swatmref              ! reference MLS profile
+      call sw_kgb16              ! molecular absorption coefficients
+      call sw_kgb17
+      call sw_kgb18
+      call sw_kgb19
+      call sw_kgb20
+      call sw_kgb21
+      call sw_kgb22
+      call sw_kgb23
+      call sw_kgb24
+      call sw_kgb25
+      call sw_kgb26
+      call sw_kgb27
+      call sw_kgb28
+      call sw_kgb29
+
+! Define exponential lookup tables for transmittance. Tau is
+! computed as a function of the tau transition function, and transmittance 
+! is calculated as a function of tau.  All tables are computed at intervals 
+! of 0.0001.  The inverse of the constant used in the Pade approximation to 
+! the tau transition function is set to bpade.
+
+      exp_tbl(0) = 1.0_rb
+      exp_tbl(ntbl) = expeps
+      bpade = 1.0_rb / pade
+      do itr = 1, ntbl-1
+         tfn = real(itr,kind=rb) / real(ntbl,kind=rb)
+         tau_tbl = bpade * tfn / (1._rb - tfn)
+         exp_tbl(itr) = exp(-tau_tbl)
+         if (exp_tbl(itr) .le. expeps) exp_tbl(itr) = expeps
+      enddo
+
+! Perform g-point reduction from 16 per band (224 total points) to
+! a band dependent number (112 total points) for all absorption
+! coefficient input data and Planck fraction input data.
+! Compute relative weighting for new g-point combinations.
+
+      igcsm = 0
+      do ibnd = 1,nbndsw
+         iprsm = 0
+         if (ngc(ibnd).lt.mg) then
+            do igc = 1,ngc(ibnd)
+               igcsm = igcsm + 1
+               wtsum = 0.
+               do ipr = 1, ngn(igcsm)
+                  iprsm = iprsm + 1
+                  wtsum = wtsum + wt(iprsm)
+               enddo
+               wtsm(igc) = wtsum
+            enddo
+            do ig = 1, ng(ibnd+15)
+               ind = (ibnd-1)*mg + ig
+               rwgt(ind) = wt(ig)/wtsm(ngm(ind))
+            enddo
+         else
+            do ig = 1, ng(ibnd+15)
+               igcsm = igcsm + 1
+               ind = (ibnd-1)*mg + ig
+               rwgt(ind) = 1.0_rb
+            enddo
+         endif
+      enddo
+
+! Reduce g-points for absorption coefficient data in each LW spectral band.
+
+      call cmbgb16s
+      call cmbgb17
+      call cmbgb18
+      call cmbgb19
+      call cmbgb20
+      call cmbgb21
+      call cmbgb22
+      call cmbgb23
+      call cmbgb24
+      call cmbgb25
+      call cmbgb26
+      call cmbgb27
+      call cmbgb28
+      call cmbgb29
+
+      end subroutine rrtmg_sw_ini
+
+!***************************************************************************
+      subroutine swdatinit(cpdair)
+!***************************************************************************
+
+! --------- Modules ----------
+
+      use rrsw_con, only: heatfac, grav, planck, boltz, &
+                          clight, avogad, alosmt, gascon, radcn1, radcn2, &
+                          sbcnst, secdy 
+      use rrsw_vsn
+
+      save 
+ 
+      real(kind=rb), intent(in) :: cpdair     ! Specific heat capacity of dry air
+                                              ! at constant pressure at 273 K
+                                              ! (J kg-1 K-1)
+
+! Shortwave spectral band limits (wavenumbers)
+      wavenum1(:) = (/2600._rb, 3250._rb, 4000._rb, 4650._rb, 5150._rb, 6150._rb, 7700._rb, &
+                      8050._rb,12850._rb,16000._rb,22650._rb,29000._rb,38000._rb,  820._rb/)
+      wavenum2(:) = (/3250._rb, 4000._rb, 4650._rb, 5150._rb, 6150._rb, 7700._rb, 8050._rb, &
+                     12850._rb,16000._rb,22650._rb,29000._rb,38000._rb,50000._rb, 2600._rb/)
+      delwave(:) =  (/ 650._rb,  750._rb,  650._rb,  500._rb, 1000._rb, 1550._rb,  350._rb, &
+                      4800._rb, 3150._rb, 6650._rb, 6350._rb, 9000._rb,12000._rb, 1780._rb/)
+
+! Spectral band information
+      ng(:) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16/)
+      nspa(:) = (/9,9,9,9,1,9,9,1,9,1,0,1,9,1/)
+      nspb(:) = (/1,5,1,1,1,5,1,0,1,0,0,1,5,1/)
+
+! Fundamental physical constants from NIST 2002
+
+      grav = 9.8066_rb                        ! Acceleration of gravity
+                                              ! (m s-2)
+      planck = 6.62606876e-27_rb              ! Planck constant
+                                              ! (ergs s; g cm2 s-1)
+      boltz = 1.3806503e-16_rb                ! Boltzmann constant
+                                              ! (ergs K-1; g cm2 s-2 K-1)
+      clight = 2.99792458e+10_rb              ! Speed of light in a vacuum  
+                                              ! (cm s-1)
+      avogad = 6.02214199e+23_rb              ! Avogadro constant
+                                              ! (mol-1)
+      alosmt = 2.6867775e+19_rb               ! Loschmidt constant
+                                              ! (cm-3)
+      gascon = 8.31447200e+07_rb              ! Molar gas constant
+                                              ! (ergs mol-1 K-1)
+      radcn1 = 1.191042772e-12_rb             ! First radiation constant
+                                              ! (W cm2 sr-1)
+      radcn2 = 1.4387752_rb                   ! Second radiation constant
+                                              ! (cm K)
+      sbcnst = 5.670400e-04_rb                ! Stefan-Boltzmann constant
+                                              ! (W cm-2 K-4)
+      secdy = 8.6400e4_rb                     ! Number of seconds per day
+                                              ! (s d-1)
+!
+!     units are generally cgs
+!
+!     The first and second radiation constants are taken from NIST.
+!     They were previously obtained from the relations:
+!          radcn1 = 2.*planck*clight*clight*1.e-07
+!          radcn2 = planck*clight/boltz
+
+!     Heatfac is the factor by which delta-flux / delta-pressure is
+!     multiplied, with flux in W/m-2 and pressure in mbar, to get 
+!     the heating rate in units of degrees/day.  It is equal to:
+!     Original value:
+!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)
+!           Here, cpdair (1.004) is in units of J g-1 K-1, and the 
+!           constant (1.e-5) converts mb to Pa and g-1 to kg-1.
+!        =  (9.8066)(86400)(1e-5)/(1.004)
+!      heatfac = 8.4391_rb
+!
+!     Modified value for consistency with CAM3:
+!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)
+!           Here, cpdair (1.00464) is in units of J g-1 K-1, and the
+!           constant (1.e-5) converts mb to Pa and g-1 to kg-1.
+!        =  (9.80616)(86400)(1e-5)/(1.00464)
+!      heatfac = 8.43339130434_rb
+!
+!     Calculated value (from constants above and input cpdair)
+!        (grav) x (#sec/day) / (specific heat of dry air at const. p x 1.e2)
+!           Here, cpdair is in units of J kg-1 K-1, and the constant (1.e2) 
+!           converts mb to Pa when heatfac is multiplied by W m-2 mb-1. 
+      heatfac = grav * secdy / (cpdair * 1.e2_rb)
+
+      end subroutine swdatinit
+
+!***************************************************************************
+      subroutine swcmbdat
+!***************************************************************************
+
+      save
+ 
+! ------- Definitions -------
+!     Arrays for the g-point reduction from 224 to 112 for the 16 LW bands:
+!     This mapping from 224 to 112 points has been carefully selected to 
+!     minimize the effect on the resulting fluxes and cooling rates, and
+!     caution should be used if the mapping is modified.  The full 224
+!     g-point set can be restored with ngpt=224, ngc=16*16, ngn=224*1., etc.
+!     ngpt    The total number of new g-points
+!     ngc     The number of new g-points in each band
+!     ngs     The cumulative sum of new g-points for each band
+!     ngm     The index of each new g-point relative to the original
+!             16 g-points for each band.  
+!     ngn     The number of original g-points that are combined to make
+!             each new g-point in each band.
+!     ngb     The band index for each new g-point.
+!     wt      RRTM weights for 16 g-points.
+
+! Use this set for 112 quadrature point (g-point) model
+! ------- Data statements -------
+      ngc(:) = (/ 6,12, 8, 8,10,10, 2,10, 8, 6, 6, 8, 6,12 /)
+      ngs(:) = (/ 6,18,26,34,44,54,56,66,74,80,86,94,100,112 /)
+      ngm(:) = (/ 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, &           ! band 16
+                  1,2,3,4,5,6,6,7,8,8,9,10,10,11,12,12, &      ! band 17
+                  1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! band 18
+                  1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! band 19
+                  1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, &     ! band 20
+                  1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, &     ! band 21
+                  1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &           ! band 22
+                  1,1,2,2,3,4,5,6,7,8,9,9,10,10,10,10, &       ! band 23
+                  1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &           ! band 24
+                  1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! band 25
+                  1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! band 26
+                  1,2,3,4,5,6,7,7,7,7,8,8,8,8,8,8, &           ! band 27
+                  1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! band 28
+                  1,2,3,4,5,5,6,6,7,7,8,8,9,10,11,12 /)        ! band 29
+      ngn(:) = (/ 2,2,2,2,4,4, &                               ! band 16
+                  1,1,1,1,1,2,1,2,1,2,1,2, &                   ! band 17
+                  1,1,1,1,2,2,4,4, &                           ! band 18
+                  1,1,1,1,2,2,4,4, &                           ! band 19
+                  1,1,1,1,1,1,1,1,2,6, &                       ! band 20
+                  1,1,1,1,1,1,1,1,2,6, &                       ! band 21
+                  8,8, &                                       ! band 22
+                  2,2,1,1,1,1,1,1,2,4, &                       ! band 23
+                  2,2,2,2,2,2,2,2, &                           ! band 24
+                  1,1,2,2,4,6, &                               ! band 25
+                  1,1,2,2,4,6, &                               ! band 26
+                  1,1,1,1,1,1,4,6, &                           ! band 27
+                  1,1,2,2,4,6, &                               ! band 28
+                  1,1,1,1,2,2,2,2,1,1,1,1 /)                   ! band 29
+      ngb(:) = (/ 16,16,16,16,16,16, &                         ! band 16
+                  17,17,17,17,17,17,17,17,17,17,17,17, &       ! band 17
+                  18,18,18,18,18,18,18,18, &                   ! band 18
+                  19,19,19,19,19,19,19,19, &                   ! band 19
+                  20,20,20,20,20,20,20,20,20,20, &             ! band 20
+                  21,21,21,21,21,21,21,21,21,21, &             ! band 21
+                  22,22, &                                     ! band 22
+                  23,23,23,23,23,23,23,23,23,23, &             ! band 23
+                  24,24,24,24,24,24,24,24, &                   ! band 24
+                  25,25,25,25,25,25, &                         ! band 25
+                  26,26,26,26,26,26, &                         ! band 26
+                  27,27,27,27,27,27,27,27, &                   ! band 27
+                  28,28,28,28,28,28, &                         ! band 28
+                  29,29,29,29,29,29,29,29,29,29,29,29 /)       ! band 29
+
+! Use this set for full 224 quadrature point (g-point) model
+! ------- Data statements -------
+!      ngc(:) = (/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16 /)
+!      ngs(:) = (/ 16,32,48,64,80,96,112,128,144,160,176,192,208,224 /)
+!      ngm(:) = (/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 16
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 17
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 18
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 19
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 20
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 21
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 22
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 23
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 24
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 25
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 26
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 27
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 28
+!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /)    ! band 29
+!      ngn(:) = (/ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 16
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 17
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 18
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 19
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 20
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 21
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 22
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 23
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 24
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 25
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 26
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 27
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 28
+!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 /)           ! band 29
+!      ngb(:) = (/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, &   ! band 16
+!                  17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, &   ! band 17
+!                  18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18, &   ! band 18
+!                  19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, &   ! band 19
+!                  20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, &   ! band 20
+!                  21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, &   ! band 21
+!                  22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, &   ! band 22
+!                  23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, &   ! band 23
+!                  24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, &   ! band 24
+!                  25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25, &   ! band 25
+!                  26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, &   ! band 26
+!                  27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, &   ! band 27
+!                  28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, &   ! band 28
+!                  29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29 /)   ! band 29
+
+
+      wt(:) =  (/ 0.1527534276_rb, 0.1491729617_rb, 0.1420961469_rb, &
+                  0.1316886544_rb, 0.1181945205_rb, 0.1019300893_rb, &
+                  0.0832767040_rb, 0.0626720116_rb, 0.0424925000_rb, &
+                  0.0046269894_rb, 0.0038279891_rb, 0.0030260086_rb, &
+                  0.0022199750_rb, 0.0014140010_rb, 0.0005330000_rb, &
+                  0.0000750000_rb /)
+
+      end subroutine swcmbdat
+
+!***************************************************************************
+      subroutine swaerpr
+!***************************************************************************
+
+! Purpose: Define spectral aerosol properties for six ECMWF aerosol types
+! as used in the ECMWF IFS model (see module rrsw_aer.F90 for details)
+!
+! Original: Defined for rrtmg_sw 14 spectral bands, JJMorcrette, ECMWF Feb 2003
+! Revision: Reformatted for consistency with rrtmg_lw, MJIacono, AER, Jul 2006
+
+      use rrsw_aer, only : rsrtaua, rsrpiza, rsrasya
+
+      save
+
+      rsrtaua( 1, :) = (/ &
+        0.10849_rb, 0.66699_rb, 0.65255_rb, 0.11600_rb, 0.06529_rb, 0.04468_rb/)
+      rsrtaua( 2, :) = (/ &
+        0.10849_rb, 0.66699_rb, 0.65255_rb, 0.11600_rb, 0.06529_rb, 0.04468_rb/)
+      rsrtaua( 3, :) = (/ &
+        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)
+      rsrtaua( 4, :) = (/ &
+        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)
+      rsrtaua( 5, :) = (/ &
+        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)
+      rsrtaua( 6, :) = (/ &
+        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)
+      rsrtaua( 7, :) = (/ &
+        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)
+      rsrtaua( 8, :) = (/ &
+        0.52838_rb, 0.93285_rb, 0.93449_rb, 0.53078_rb, 0.67148_rb, 0.46608_rb/)
+      rsrtaua( 9, :) = (/ &
+        0.52838_rb, 0.93285_rb, 0.93449_rb, 0.53078_rb, 0.67148_rb, 0.46608_rb/)
+      rsrtaua(10, :) = (/ &
+        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)
+      rsrtaua(11, :) = (/ &
+        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)
+      rsrtaua(12, :) = (/ &
+        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)
+      rsrtaua(13, :) = (/ &
+        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)
+      rsrtaua(14, :) = (/ &
+        0.10849_rb, 0.66699_rb, 0.65255_rb, 0.11600_rb, 0.06529_rb, 0.04468_rb/)
+ 
+      rsrpiza( 1, :) = (/ &
+        .5230504_rb, .7868518_rb, .8531531_rb, .4048149_rb, .8748231_rb, .2355667_rb/)
+      rsrpiza( 2, :) = (/ &
+        .5230504_rb, .7868518_rb, .8531531_rb, .4048149_rb, .8748231_rb, .2355667_rb/)
+      rsrpiza( 3, :) = (/ &
+        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)
+      rsrpiza( 4, :) = (/ &
+        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)
+      rsrpiza( 5, :) = (/ &
+        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)
+      rsrpiza( 6, :) = (/ &
+        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)
+      rsrpiza( 7, :) = (/ &
+        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)
+      rsrpiza( 8, :) = (/ &
+        .8970131_rb, .9984940_rb, .9245594_rb, .7768385_rb, .9532763_rb, .9999999_rb/)
+      rsrpiza( 9, :) = (/ &
+        .8970131_rb, .9984940_rb, .9245594_rb, .7768385_rb, .9532763_rb, .9999999_rb/)
+      rsrpiza(10, :) = (/ &
+        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)
+      rsrpiza(11, :) = (/ &
+        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)
+      rsrpiza(12, :) = (/ &
+        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)
+      rsrpiza(13, :) = (/ &
+        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)
+      rsrpiza(14, :) = (/ &
+        .5230504_rb, .7868518_rb, .8531531_rb, .4048149_rb, .8748231_rb, .2355667_rb/)
+
+      rsrasya( 1, :) = (/ &
+        0.700610_rb, 0.818871_rb, 0.702399_rb, 0.689886_rb, .4629866_rb, .1907639_rb/)
+      rsrasya( 2, :) = (/ &
+        0.700610_rb, 0.818871_rb, 0.702399_rb, 0.689886_rb, .4629866_rb, .1907639_rb/)
+      rsrasya( 3, :) = (/ &
+        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)
+      rsrasya( 4, :) = (/ &
+        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)
+      rsrasya( 5, :) = (/ &
+        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)
+      rsrasya( 6, :) = (/ &
+        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)
+      rsrasya( 7, :) = (/ &
+        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)
+      rsrasya( 8, :) = (/ &
+        0.668431_rb, 0.788530_rb, 0.698682_rb, 0.657422_rb, .6735182_rb, .6519706_rb/)
+      rsrasya( 9, :) = (/ &
+        0.668431_rb, 0.788530_rb, 0.698682_rb, 0.657422_rb, .6735182_rb, .6519706_rb/)
+      rsrasya(10, :) = (/ &
+        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)
+      rsrasya(11, :) = (/ &
+        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)
+      rsrasya(12, :) = (/ &
+        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)
+      rsrasya(13, :) = (/ &
+        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)
+      rsrasya(14, :) = (/ &
+        0.700610_rb, 0.818871_rb, 0.702399_rb, 0.689886_rb, .4629866_rb, .1907639_rb/)
+
+      end subroutine swaerpr
+ 
+!***************************************************************************
+      subroutine cmbgb16s
+!***************************************************************************
+!
+!  Original version:       MJIacono; July 1998
+!  Revision for RRTM_SW:   MJIacono; November 2002
+!  Revision for RRTMG_SW:  MJIacono; December 2003
+!  Revision for F90 reformatting:  MJIacono; July 2006
+!
+!  The subroutines CMBGB16->CMBGB29 input the absorption coefficient
+!  data for each band, which are defined for 16 g-points and 14 spectral
+!  bands. The data are combined with appropriate weighting following the
+!  g-point mapping arrays specified in RRTMG_SW_INIT.  Solar source 
+!  Function data in array SFLUXREF are combined without weighting.  All
+!  g-point reduced data are put into new arrays for use in RRTMG_SW.
+!
+!  band 16:  2600-3250 cm-1 (low key- h2o,ch4; high key - ch4)
+!
+!-----------------------------------------------------------------------
+
+      use rrsw_kg16, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, absb, kb, selfref, forref, sfluxref, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf, sumsv1, sumsv2, sumsv3
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(1)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(1)
+               sumk = 0._rb
+               do ipr = 1, ngn(igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(1)
+            sumk = 0._rb
+            do ipr = 1, ngn(igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,3
+         iprsm = 0
+         do igc = 1,ngc(1)
+            sumk = 0._rb
+            do ipr = 1, ngn(igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(1)
+         sumf = 0._rb
+         sumsv1 = 0._rb
+         sumsv2 = 0._rb
+         sumsv3 = 0._rb
+         do ipr = 1, ngn(igc)
+            iprsm = iprsm + 1
+            sumf = sumf + sfluxrefo(iprsm)
+            sumsv1 = sumsv1 + irradnceo(iprsm)
+            sumsv2 = sumsv2 + facbrghto(iprsm)
+            sumsv3 = sumsv3 + snsptdrko(iprsm)
+         enddo
+         sfluxref(igc) = sumf
+         irradnce(igc) = sumsv1
+         facbrght(igc) = sumsv2
+         snsptdrk(igc) = sumsv3
+      enddo
+
+      end subroutine cmbgb16s
+
+!***************************************************************************
+      subroutine cmbgb17
+!***************************************************************************
+!
+!     band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg17, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, absb, kb, selfref, forref, sfluxref, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf, sumsv1, sumsv2, sumsv3
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(2)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(ngs(1)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+16)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jn = 1,5
+         do jt = 1,5
+            do jp = 13,59
+               iprsm = 0
+               do igc = 1,ngc(2)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(ngs(1)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+16)
+                  enddo
+                  kb(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(2)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(1)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+16)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(2)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(1)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+16)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,5
+         iprsm = 0
+         do igc = 1,ngc(2)
+            sumf = 0._rb
+            sumsv1 = 0._rb
+            sumsv2 = 0._rb
+            sumsv3 = 0._rb
+            do ipr = 1, ngn(ngs(1)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + sfluxrefo(iprsm,jp)
+               sumsv1 = sumsv1 + irradnceo(iprsm,jp)
+               sumsv2 = sumsv2 + facbrghto(iprsm,jp)
+               sumsv3 = sumsv3 + snsptdrko(iprsm,jp)
+            enddo
+            sfluxref(igc,jp) = sumf
+            irradnce(igc,jp) = sumsv1
+            facbrght(igc,jp) = sumsv2
+            snsptdrk(igc,jp) = sumsv3
+         enddo
+      enddo
+
+      end subroutine cmbgb17
+
+!***************************************************************************
+      subroutine cmbgb18
+!***************************************************************************
+!
+!     band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg18, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, absb, kb, selfref, forref, sfluxref, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf, sumsv1, sumsv2, sumsv3
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(3)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(ngs(2)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+32)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(3)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(2)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+32)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(3)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(2)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+32)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,3
+         iprsm = 0
+         do igc = 1,ngc(3)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(2)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+32)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(3)
+            sumf = 0._rb
+            sumsv1 = 0._rb
+            sumsv2 = 0._rb
+            sumsv3 = 0._rb
+            do ipr = 1, ngn(ngs(2)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + sfluxrefo(iprsm,jp)
+               sumsv1 = sumsv1 + irradnceo(iprsm,jp)
+               sumsv2 = sumsv2 + facbrghto(iprsm,jp)
+               sumsv3 = sumsv3 + snsptdrko(iprsm,jp)
+            enddo
+            sfluxref(igc,jp) = sumf
+            irradnce(igc,jp) = sumsv1
+            facbrght(igc,jp) = sumsv2
+            snsptdrk(igc,jp) = sumsv3
+         enddo
+      enddo
+
+      end subroutine cmbgb18
+
+!***************************************************************************
+      subroutine cmbgb19
+!***************************************************************************
+!
+!     band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg19, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, absb, kb, selfref, forref, sfluxref, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf, sumsv1, sumsv2, sumsv3
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(4)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(ngs(3)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+48)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(4)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(3)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+48)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(4)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(3)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+48)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,3
+         iprsm = 0
+         do igc = 1,ngc(4)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(3)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+48)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(4)
+            sumf = 0._rb
+            sumsv1 = 0._rb
+            sumsv2 = 0._rb
+            sumsv3 = 0._rb
+            do ipr = 1, ngn(ngs(3)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + sfluxrefo(iprsm,jp)
+               sumsv1 = sumsv1 + irradnceo(iprsm,jp)
+               sumsv2 = sumsv2 + facbrghto(iprsm,jp)
+               sumsv3 = sumsv3 + snsptdrko(iprsm,jp)
+            enddo
+            sfluxref(igc,jp) = sumf
+            irradnce(igc,jp) = sumsv1
+            facbrght(igc,jp) = sumsv2
+            snsptdrk(igc,jp) = sumsv3
+         enddo
+      enddo
+
+      end subroutine cmbgb19
+
+!***************************************************************************
+      subroutine cmbgb20
+!***************************************************************************
+!
+!     band 20:  5150-6150 cm-1 (low - h2o; high - h2o)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg20, only : kao, kbo, selfrefo, forrefo, sfluxrefo, absch4o, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, absb, kb, selfref, forref, sfluxref, absch4, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf1, sumf2, sumsv1, sumsv2, sumsv3
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(5)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(4)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+64)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(5)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(4)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+64)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(5)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(4)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+64)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(5)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(4)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+64)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(5)
+         sumf1 = 0._rb
+         sumf2 = 0._rb
+         sumsv1 = 0._rb
+         sumsv2 = 0._rb
+         sumsv3 = 0._rb
+         do ipr = 1, ngn(ngs(4)+igc)
+            iprsm = iprsm + 1
+            sumf1 = sumf1 + sfluxrefo(iprsm)
+            sumf2 = sumf2 + absch4o(iprsm)*rwgt(iprsm+64)
+            sumsv1 = sumsv1 + irradnceo(iprsm)
+            sumsv2 = sumsv2 + facbrghto(iprsm)
+            sumsv3 = sumsv3 + snsptdrko(iprsm)
+         enddo
+         sfluxref(igc) = sumf1
+         absch4(igc) = sumf2
+         irradnce(igc) = sumsv1
+         facbrght(igc) = sumsv2
+         snsptdrk(igc) = sumsv3
+      enddo
+
+      end subroutine cmbgb20
+
+!***************************************************************************
+      subroutine cmbgb21
+!***************************************************************************
+!
+!     band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg21, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, absb, kb, selfref, forref, sfluxref, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf, sumsv1, sumsv2, sumsv3
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(6)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(ngs(5)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+80)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jn = 1,5
+         do jt = 1,5
+            do jp = 13,59
+               iprsm = 0
+               do igc = 1,ngc(6)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(ngs(5)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+80)
+                  enddo
+                  kb(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(6)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(5)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+80)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(6)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(5)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+80)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(6)
+            sumf = 0._rb
+            sumsv1 = 0._rb
+            sumsv2 = 0._rb
+            sumsv3 = 0._rb
+            do ipr = 1, ngn(ngs(5)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + sfluxrefo(iprsm,jp)
+               sumsv1 = sumsv1 + irradnceo(iprsm,jp)
+               sumsv2 = sumsv2 + facbrghto(iprsm,jp)
+               sumsv3 = sumsv3 + snsptdrko(iprsm,jp)
+            enddo
+            sfluxref(igc,jp) = sumf
+            irradnce(igc,jp) = sumsv1
+            facbrght(igc,jp) = sumsv2
+            snsptdrk(igc,jp) = sumsv3
+         enddo
+      enddo
+
+      end subroutine cmbgb21
+
+!***************************************************************************
+      subroutine cmbgb22
+!***************************************************************************
+!
+!     band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg22, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, absb, kb, selfref, forref, sfluxref, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf, sumsv1, sumsv2, sumsv3
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(7)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(ngs(6)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+96)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(7)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(6)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+96)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(7)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(6)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+96)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,3
+         iprsm = 0
+         do igc = 1,ngc(7)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(6)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+96)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(7)
+            sumf = 0._rb
+            sumsv1 = 0._rb
+            sumsv2 = 0._rb
+            sumsv3 = 0._rb
+            do ipr = 1, ngn(ngs(6)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + sfluxrefo(iprsm,jp)
+               sumsv1 = sumsv1 + irradnceo(iprsm,jp)
+               sumsv2 = sumsv2 + facbrghto(iprsm,jp)
+               sumsv3 = sumsv3 + snsptdrko(iprsm,jp)
+            enddo
+            sfluxref(igc,jp) = sumf
+            irradnce(igc,jp) = sumsv1
+            facbrght(igc,jp) = sumsv2
+            snsptdrk(igc,jp) = sumsv3
+         enddo
+      enddo
+
+      end subroutine cmbgb22
+
+!***************************************************************************
+      subroutine cmbgb23
+!***************************************************************************
+!
+!     band 23:  8050-12850 cm-1 (low - h2o; high - nothing)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg23, only : kao, selfrefo, forrefo, sfluxrefo, raylo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, selfref, forref, sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf1, sumf2, sumsv1, sumsv2, sumsv3
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(8)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(7)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+112)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(8)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(7)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+112)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,3
+         iprsm = 0
+         do igc = 1,ngc(8)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(7)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+112)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(8)
+         sumf1 = 0._rb
+         sumf2 = 0._rb
+         sumsv1 = 0._rb
+         sumsv2 = 0._rb
+         sumsv3 = 0._rb
+         do ipr = 1, ngn(ngs(7)+igc)
+            iprsm = iprsm + 1
+            sumf1 = sumf1 + sfluxrefo(iprsm)
+            sumf2 = sumf2 + raylo(iprsm)*rwgt(iprsm+112)
+            sumsv1 = sumsv1 + irradnceo(iprsm)
+            sumsv2 = sumsv2 + facbrghto(iprsm)
+            sumsv3 = sumsv3 + snsptdrko(iprsm)
+         enddo
+         sfluxref(igc) = sumf1
+         rayl(igc) = sumf2
+         irradnce(igc) = sumsv1
+         facbrght(igc) = sumsv2
+         snsptdrk(igc) = sumsv3
+      enddo
+
+      end subroutine cmbgb23
+
+!***************************************************************************
+      subroutine cmbgb24
+!***************************************************************************
+!
+!     band 24:  12850-16000 cm-1 (low - h2o,o2; high - o2)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg24, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            abso3ao, abso3bo, raylao, raylbo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, absb, kb, selfref, forref, sfluxref, &
+                            abso3a, abso3b, rayla, raylb, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf1, sumf2, sumf3, sumsv1, sumsv2, sumsv3
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(9)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(ngs(8)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+128)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,5
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(9)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(8)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+128)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(9)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(8)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+128)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,3
+         iprsm = 0
+         do igc = 1,ngc(9)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(8)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+128)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(9)
+         sumf1 = 0._rb
+         sumf2 = 0._rb
+         sumf3 = 0._rb
+         do ipr = 1, ngn(ngs(8)+igc)
+            iprsm = iprsm + 1
+            sumf1 = sumf1 + raylbo(iprsm)*rwgt(iprsm+128)
+            sumf2 = sumf2 + abso3ao(iprsm)*rwgt(iprsm+128)
+            sumf3 = sumf3 + abso3bo(iprsm)*rwgt(iprsm+128)
+         enddo
+         raylb(igc) = sumf1
+         abso3a(igc) = sumf2
+         abso3b(igc) = sumf3
+      enddo
+
+      do jp = 1,9
+         iprsm = 0
+         do igc = 1,ngc(9)
+            sumf1 = 0._rb
+            sumf2 = 0._rb
+            sumsv1 = 0._rb
+            sumsv2 = 0._rb
+            sumsv3 = 0._rb
+            do ipr = 1, ngn(ngs(8)+igc)
+               iprsm = iprsm + 1
+               sumf1 = sumf1 + sfluxrefo(iprsm,jp)
+               sumf2 = sumf2 + raylao(iprsm,jp)*rwgt(iprsm+128)
+               sumsv1 = sumsv1 + irradnceo(iprsm,jp)
+               sumsv2 = sumsv2 + facbrghto(iprsm,jp)
+               sumsv3 = sumsv3 + snsptdrko(iprsm,jp)
+            enddo
+            sfluxref(igc,jp) = sumf1
+            rayla(igc,jp) = sumf2
+            irradnce(igc,jp) = sumsv1
+            facbrght(igc,jp) = sumsv2
+            snsptdrk(igc,jp) = sumsv3
+         enddo
+      enddo
+
+      end subroutine cmbgb24
+
+!***************************************************************************
+      subroutine cmbgb25
+!***************************************************************************
+!
+!     band 25:  16000-22650 cm-1 (low - h2o; high - nothing)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg25, only : kao, sfluxrefo, &
+                            abso3ao, abso3bo, raylo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, sfluxref, &
+                            abso3a, abso3b, rayl, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf1, sumf2, sumf3, sumf4, sumsv1, sumsv2, sumsv3
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(10)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(9)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+144)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(10)
+         sumf1 = 0._rb
+         sumf2 = 0._rb
+         sumf3 = 0._rb
+         sumf4 = 0._rb
+         sumsv1 = 0._rb
+         sumsv2 = 0._rb
+         sumsv3 = 0._rb
+         do ipr = 1, ngn(ngs(9)+igc)
+            iprsm = iprsm + 1
+            sumf1 = sumf1 + sfluxrefo(iprsm)
+            sumf2 = sumf2 + abso3ao(iprsm)*rwgt(iprsm+144)
+            sumf3 = sumf3 + abso3bo(iprsm)*rwgt(iprsm+144)
+            sumf4 = sumf4 + raylo(iprsm)*rwgt(iprsm+144)
+            sumsv1 = sumsv1 + irradnceo(iprsm)
+            sumsv2 = sumsv2 + facbrghto(iprsm)
+            sumsv3 = sumsv3 + snsptdrko(iprsm)
+         enddo
+         sfluxref(igc) = sumf1
+         abso3a(igc) = sumf2
+         abso3b(igc) = sumf3
+         rayl(igc) = sumf4
+         irradnce(igc) = sumsv1
+         facbrght(igc) = sumsv2
+         snsptdrk(igc) = sumsv3
+      enddo
+
+      end subroutine cmbgb25
+
+!***************************************************************************
+      subroutine cmbgb26
+!***************************************************************************
+!
+!     band 26:  22650-29000 cm-1 (low - nothing; high - nothing)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg26, only : sfluxrefo, raylo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: igc, ipr, iprsm
+      real(kind=rb) :: sumf1, sumf2, sumsv1, sumsv2, sumsv3
+
+
+      iprsm = 0
+      do igc = 1,ngc(11)
+         sumf1 = 0._rb
+         sumf2 = 0._rb
+         sumsv1 = 0._rb
+         sumsv2 = 0._rb
+         sumsv3 = 0._rb
+         do ipr = 1, ngn(ngs(10)+igc)
+            iprsm = iprsm + 1
+            sumf1 = sumf1 + raylo(iprsm)*rwgt(iprsm+160)
+            sumf2 = sumf2 + sfluxrefo(iprsm)
+            sumsv1 = sumsv1 + irradnceo(iprsm)
+            sumsv2 = sumsv2 + facbrghto(iprsm)
+            sumsv3 = sumsv3 + snsptdrko(iprsm)
+         enddo
+         rayl(igc) = sumf1
+         sfluxref(igc) = sumf2
+         irradnce(igc) = sumsv1
+         facbrght(igc) = sumsv2
+         snsptdrk(igc) = sumsv3
+      enddo
+
+      end subroutine cmbgb26
+
+!***************************************************************************
+      subroutine cmbgb27
+!***************************************************************************
+!
+!     band 27:  29000-38000 cm-1 (low - o3; high - o3)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg27, only : kao, kbo, sfluxrefo, raylo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, absb, kb, sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf1, sumf2, sumsv1, sumsv2, sumsv3
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(12)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(11)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+176)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(12)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(11)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+176)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(12)
+         sumf1 = 0._rb
+         sumf2 = 0._rb
+         sumsv1 = 0._rb
+         sumsv2 = 0._rb
+         sumsv3 = 0._rb
+         do ipr = 1, ngn(ngs(11)+igc)
+            iprsm = iprsm + 1
+            sumf1 = sumf1 + sfluxrefo(iprsm)
+            sumf2 = sumf2 + raylo(iprsm)*rwgt(iprsm+176)
+            sumsv1 = sumsv1 + irradnceo(iprsm)
+            sumsv2 = sumsv2 + facbrghto(iprsm)
+            sumsv3 = sumsv3 + snsptdrko(iprsm)
+         enddo
+         sfluxref(igc) = sumf1
+         rayl(igc) = sumf2
+         irradnce(igc) = sumsv1
+         facbrght(igc) = sumsv2
+         snsptdrk(igc) = sumsv3
+      enddo
+
+      end subroutine cmbgb27
+
+!***************************************************************************
+      subroutine cmbgb28
+!***************************************************************************
+!
+!     band 28:  38000-50000 cm-1 (low - o3,o2; high - o3,o2)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg28, only : kao, kbo, sfluxrefo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absa, ka, absb, kb, sfluxref, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf, sumsv1, sumsv2, sumsv3
+
+
+      do jn = 1,9
+         do jt = 1,5
+            do jp = 1,13
+               iprsm = 0
+               do igc = 1,ngc(13)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(ngs(12)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+192)
+                  enddo
+                  ka(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jn = 1,5
+         do jt = 1,5
+            do jp = 13,59
+               iprsm = 0
+               do igc = 1,ngc(13)
+                  sumk = 0._rb
+                  do ipr = 1, ngn(ngs(12)+igc)
+                     iprsm = iprsm + 1
+                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+192)
+                  enddo
+                  kb(jn,jt,jp,igc) = sumk
+               enddo
+            enddo
+         enddo
+      enddo
+
+      do jp = 1,5
+         iprsm = 0
+         do igc = 1,ngc(13)
+            sumf = 0._rb
+            sumsv1 = 0._rb
+            sumsv2 = 0._rb
+            sumsv3 = 0._rb
+            do ipr = 1, ngn(ngs(12)+igc)
+               iprsm = iprsm + 1
+               sumf = sumf + sfluxrefo(iprsm,jp)
+               sumsv1 = sumsv1 + irradnceo(iprsm,jp)
+               sumsv2 = sumsv2 + facbrghto(iprsm,jp)
+               sumsv3 = sumsv3 + snsptdrko(iprsm,jp)
+            enddo
+            sfluxref(igc,jp) = sumf
+            irradnce(igc,jp) = sumsv1
+            facbrght(igc,jp) = sumsv2
+            snsptdrk(igc,jp) = sumsv3
+         enddo
+      enddo
+
+      end subroutine cmbgb28
+
+!***************************************************************************
+      subroutine cmbgb29
+!***************************************************************************
+!
+!     band 29:  820-2600 cm-1 (low - h2o; high - co2)
+!-----------------------------------------------------------------------
+
+      use rrsw_kg29, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            irradnceo, facbrghto, snsptdrko, &
+                            absh2oo, absco2o, &
+                            absa, ka, absb, kb, selfref, forref, sfluxref, &
+                            absh2o, absco2, &
+                            irradnce, facbrght, snsptdrk
+
+! ------- Local -------
+      integer(kind=im) :: jt, jp, igc, ipr, iprsm
+      real(kind=rb) :: sumk, sumf1, sumf2, sumf3, sumsv1, sumsv2, sumsv3
+
+
+      do jt = 1,5
+         do jp = 1,13
+            iprsm = 0
+            do igc = 1,ngc(14)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(13)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+208)
+               enddo
+               ka(jt,jp,igc) = sumk
+            enddo
+         enddo
+         do jp = 13,59
+            iprsm = 0
+            do igc = 1,ngc(14)
+               sumk = 0._rb
+               do ipr = 1, ngn(ngs(13)+igc)
+                  iprsm = iprsm + 1
+                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+208)
+               enddo
+               kb(jt,jp,igc) = sumk
+            enddo
+         enddo
+      enddo
+
+      do jt = 1,10
+         iprsm = 0
+         do igc = 1,ngc(14)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(13)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+208)
+            enddo
+            selfref(jt,igc) = sumk
+         enddo
+      enddo
+
+      do jt = 1,4
+         iprsm = 0
+         do igc = 1,ngc(14)
+            sumk = 0._rb
+            do ipr = 1, ngn(ngs(13)+igc)
+               iprsm = iprsm + 1
+               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+208)
+            enddo
+            forref(jt,igc) = sumk
+         enddo
+      enddo
+
+      iprsm = 0
+      do igc = 1,ngc(14)
+         sumf1 = 0._rb
+         sumf2 = 0._rb
+         sumf3 = 0._rb
+         sumsv1 = 0._rb
+         sumsv2 = 0._rb
+         sumsv3 = 0._rb
+         do ipr = 1, ngn(ngs(13)+igc)
+            iprsm = iprsm + 1
+            sumf1 = sumf1 + sfluxrefo(iprsm)
+            sumf2 = sumf2 + absco2o(iprsm)*rwgt(iprsm+208)
+            sumf3 = sumf3 + absh2oo(iprsm)*rwgt(iprsm+208)
+            sumsv1 = sumsv1 + irradnceo(iprsm)
+            sumsv2 = sumsv2 + facbrghto(iprsm)
+            sumsv3 = sumsv3 + snsptdrko(iprsm)
+         enddo
+         sfluxref(igc) = sumf1
+         absco2(igc) = sumf2
+         absh2o(igc) = sumf3
+         irradnce(igc) = sumsv1
+         facbrght(igc) = sumsv2
+         snsptdrk(igc) = sumsv3
+      enddo
+
+      end subroutine cmbgb29
+
+!***********************************************************************
+      subroutine swcldpr
+!***********************************************************************
+
+! Purpose: Define cloud extinction coefficient, single scattering albedo
+!          and asymmetry parameter data.
+!
+
+! ------- Modules -------
+
+      use rrsw_cld, only : extliq1, ssaliq1, asyliq1, &
+                           extice2, ssaice2, asyice2, &
+                           extice3, ssaice3, asyice3, fdlice3, &
+                           abari, bbari, cbari, dbari, ebari, fbari
+
+      save
+
+!-----------------------------------------------------------------------
+!
+! Explanation of the method for each value of INFLAG.  A value of
+!  0 for INFLAG do not distingish being liquid and ice clouds.
+!  INFLAG = 2 does distinguish between liquid and ice clouds, and
+!    requires further user input to specify the method to be used to 
+!    compute the aborption due to each.
+!  INFLAG = 0:  For each cloudy layer, the cloud fraction, the cloud optical
+!    depth, the cloud single-scattering albedo, and the
+!    moments of the phase function (0:NSTREAM).  Note
+!    that these values are delta-m scaled within this
+!    subroutine.
+
+!  INFLAG = 2:  For each cloudy layer, the cloud fraction, cloud 
+!    water path (g/m2), and cloud ice fraction are input.
+!  ICEFLAG = 2:  The ice effective radius (microns) is input and the
+!    optical properties due to ice clouds are computed from
+!    the optical properties stored in the RT code, STREAMER v3.0 
+!    (Reference: Key. J., Streamer User's Guide, Cooperative 
+!    Institute for Meteorological Satellite Studies, 2001, 96 pp.).
+!    Valid range of values for re are between 5.0 and
+!    131.0 micron.
+!    This version uses Ebert and Curry, JGR, (1992) method for 
+!    ice particles larger than 131.0 microns. 
+!  ICEFLAG = 3:  The ice generalized effective size (dge) is input
+!    and the optical depths, single-scattering albedo,
+!    and phase function moments are calculated as in
+!    Q. Fu, J. Climate, (1996). Q. Fu provided high resolution
+!    tables which were appropriately averaged for the
+!    bands in RRTM_SW.  Linear interpolation is used to
+!    get the coefficients from the stored tables.
+!    Valid range of values for dge are between 5.0 and
+!    140.0 micron. 
+!    This version uses Ebert and Curry, JGR, (1992) method for 
+!    ice particles larger than 140.0 microns. 
+!  LIQFLAG = 1:  The water droplet effective radius (microns) is input 
+!    and the optical depths due to water clouds are computed 
+!    as in Hu and Stamnes, J., Clim., 6, 728-742, (1993) with
+!    modified coefficients derived from Mie scattering calculations. 
+!    The values for absorption coefficients appropriate for
+!    the spectral bands in RRTM/RRTMG have been obtained for a 
+!    range of effective radii by an averaging procedure 
+!    based on the work of J. Pinto (private communication).
+!    Linear interpolation is used to get the absorption 
+!    coefficients for the input effective radius.
+!
+!     ------------------------------------------------------------------
+
+! Everything below is for INFLAG = 2.
+
+! Coefficients for Ebert and Curry method
+      abari(:) = (/ &
+        & 3.448e-03_rb,3.448e-03_rb,3.448e-03_rb,3.448e-03_rb,3.448e-03_rb /)
+      bbari(:) = (/ &
+        & 2.431e+00_rb,2.431e+00_rb,2.431e+00_rb,2.431e+00_rb,2.431e+00_rb /)
+      cbari(:) = (/ &
+        & 1.000e-05_rb,1.100e-04_rb,1.240e-02_rb,3.779e-02_rb,4.666e-01_rb /)
+      dbari(:) = (/ &
+        & 0.000e+00_rb,1.405e-05_rb,6.867e-04_rb,1.284e-03_rb,2.050e-05_rb /)
+      ebari(:) = (/ &
+        & 7.661e-01_rb,7.730e-01_rb,7.865e-01_rb,8.172e-01_rb,9.595e-01_rb /)
+      fbari(:) = (/ &
+        & 5.851e-04_rb,5.665e-04_rb,7.204e-04_rb,7.463e-04_rb,1.076e-04_rb /)
+
+! LIQFLAG==1 extinction coefficients, single scattering albedos, and asymmetry parameters
+!   Derived from on Mie scattering computations; based on Hu & Stamnes coefficients
+!     BAND  16
+      extliq1(:, 16) = (/ &
+        & 9.004493E-01_rb,6.366723E-01_rb,4.542354E-01_rb,3.468253E-01_rb,2.816431E-01_rb,&
+        & 2.383415E-01_rb,2.070854E-01_rb,1.831854E-01_rb,1.642115E-01_rb,1.487539E-01_rb,&
+        & 1.359169E-01_rb,1.250900E-01_rb,1.158354E-01_rb,1.078400E-01_rb,1.008646E-01_rb,&
+        & 9.472307E-02_rb,8.928000E-02_rb,8.442308E-02_rb,8.005924E-02_rb,7.612231E-02_rb,&
+        & 7.255153E-02_rb,6.929539E-02_rb,6.631769E-02_rb,6.358153E-02_rb,6.106231E-02_rb,&
+        & 5.873077E-02_rb,5.656924E-02_rb,5.455769E-02_rb,5.267846E-02_rb,5.091923E-02_rb,&
+        & 4.926692E-02_rb,4.771154E-02_rb,4.623923E-02_rb,4.484385E-02_rb,4.351539E-02_rb,&
+        & 4.224615E-02_rb,4.103385E-02_rb,3.986538E-02_rb,3.874077E-02_rb,3.765462E-02_rb,&
+        & 3.660077E-02_rb,3.557384E-02_rb,3.457615E-02_rb,3.360308E-02_rb,3.265000E-02_rb,&
+        & 3.171770E-02_rb,3.080538E-02_rb,2.990846E-02_rb,2.903000E-02_rb,2.816461E-02_rb,&
+        & 2.731539E-02_rb,2.648231E-02_rb,2.566308E-02_rb,2.485923E-02_rb,2.407000E-02_rb,&
+        & 2.329615E-02_rb,2.253769E-02_rb,2.179615E-02_rb /)
+!     BAND  17
+      extliq1(:, 17) = (/ &
+       & 6.741200e-01_rb,5.390739e-01_rb,4.198767e-01_rb,3.332553e-01_rb,2.735633e-01_rb,&
+       & 2.317727e-01_rb,2.012760e-01_rb,1.780400e-01_rb,1.596927e-01_rb,1.447980e-01_rb,&
+       & 1.324480e-01_rb,1.220347e-01_rb,1.131327e-01_rb,1.054313e-01_rb,9.870534e-02_rb,&
+       & 9.278200e-02_rb,8.752599e-02_rb,8.282933e-02_rb,7.860600e-02_rb,7.479133e-02_rb,&
+       & 7.132800e-02_rb,6.816733e-02_rb,6.527401e-02_rb,6.261266e-02_rb,6.015934e-02_rb,&
+       & 5.788867e-02_rb,5.578134e-02_rb,5.381667e-02_rb,5.198133e-02_rb,5.026067e-02_rb,&
+       & 4.864466e-02_rb,4.712267e-02_rb,4.568066e-02_rb,4.431200e-02_rb,4.300867e-02_rb,&
+       & 4.176600e-02_rb,4.057400e-02_rb,3.942534e-02_rb,3.832066e-02_rb,3.725068e-02_rb,&
+       & 3.621400e-02_rb,3.520533e-02_rb,3.422333e-02_rb,3.326400e-02_rb,3.232467e-02_rb,&
+       & 3.140535e-02_rb,3.050400e-02_rb,2.962000e-02_rb,2.875267e-02_rb,2.789800e-02_rb,&
+       & 2.705934e-02_rb,2.623667e-02_rb,2.542667e-02_rb,2.463200e-02_rb,2.385267e-02_rb,&
+       & 2.308667e-02_rb,2.233667e-02_rb,2.160067e-02_rb /)
+!     BAND  18
+      extliq1(:, 18) = (/ &
+       & 9.250861e-01_rb,6.245692e-01_rb,4.347038e-01_rb,3.320208e-01_rb,2.714869e-01_rb,&
+       & 2.309516e-01_rb,2.012592e-01_rb,1.783315e-01_rb,1.600369e-01_rb,1.451000e-01_rb,&
+       & 1.326838e-01_rb,1.222069e-01_rb,1.132554e-01_rb,1.055146e-01_rb,9.876000e-02_rb,&
+       & 9.281386e-02_rb,8.754000e-02_rb,8.283078e-02_rb,7.860077e-02_rb,7.477769e-02_rb,&
+       & 7.130847e-02_rb,6.814461e-02_rb,6.524615e-02_rb,6.258462e-02_rb,6.012847e-02_rb,&
+       & 5.785462e-02_rb,5.574231e-02_rb,5.378000e-02_rb,5.194461e-02_rb,5.022462e-02_rb,&
+       & 4.860846e-02_rb,4.708462e-02_rb,4.564154e-02_rb,4.427462e-02_rb,4.297231e-02_rb,&
+       & 4.172769e-02_rb,4.053693e-02_rb,3.939000e-02_rb,3.828462e-02_rb,3.721692e-02_rb,&
+       & 3.618000e-02_rb,3.517077e-02_rb,3.418923e-02_rb,3.323077e-02_rb,3.229154e-02_rb,&
+       & 3.137154e-02_rb,3.047154e-02_rb,2.959077e-02_rb,2.872308e-02_rb,2.786846e-02_rb,&
+       & 2.703077e-02_rb,2.620923e-02_rb,2.540077e-02_rb,2.460615e-02_rb,2.382693e-02_rb,&
+       & 2.306231e-02_rb,2.231231e-02_rb,2.157923e-02_rb /)
+!     BAND  19
+      extliq1(:, 19) = (/ &
+       & 9.298960e-01_rb,5.776460e-01_rb,4.083450e-01_rb,3.211160e-01_rb,2.666390e-01_rb,&
+       & 2.281990e-01_rb,1.993250e-01_rb,1.768080e-01_rb,1.587810e-01_rb,1.440390e-01_rb,&
+       & 1.317720e-01_rb,1.214150e-01_rb,1.125540e-01_rb,1.048890e-01_rb,9.819600e-02_rb,&
+       & 9.230201e-02_rb,8.706900e-02_rb,8.239698e-02_rb,7.819500e-02_rb,7.439899e-02_rb,&
+       & 7.095300e-02_rb,6.780700e-02_rb,6.492900e-02_rb,6.228600e-02_rb,5.984600e-02_rb,&
+       & 5.758599e-02_rb,5.549099e-02_rb,5.353801e-02_rb,5.171400e-02_rb,5.000500e-02_rb,&
+       & 4.840000e-02_rb,4.688500e-02_rb,4.545100e-02_rb,4.409300e-02_rb,4.279700e-02_rb,&
+       & 4.156100e-02_rb,4.037700e-02_rb,3.923800e-02_rb,3.813800e-02_rb,3.707600e-02_rb,&
+       & 3.604500e-02_rb,3.504300e-02_rb,3.406500e-02_rb,3.310800e-02_rb,3.217700e-02_rb,&
+       & 3.126600e-02_rb,3.036800e-02_rb,2.948900e-02_rb,2.862400e-02_rb,2.777500e-02_rb,&
+       & 2.694200e-02_rb,2.612300e-02_rb,2.531700e-02_rb,2.452800e-02_rb,2.375100e-02_rb,&
+       & 2.299100e-02_rb,2.224300e-02_rb,2.151201e-02_rb /)
+!     BAND  20
+      extliq1(:, 20) = (/ &
+       & 8.780964e-01_rb,5.407031e-01_rb,3.961100e-01_rb,3.166645e-01_rb,2.640455e-01_rb,&
+       & 2.261070e-01_rb,1.974820e-01_rb,1.751775e-01_rb,1.573415e-01_rb,1.427725e-01_rb,&
+       & 1.306535e-01_rb,1.204195e-01_rb,1.116650e-01_rb,1.040915e-01_rb,9.747550e-02_rb,&
+       & 9.164800e-02_rb,8.647649e-02_rb,8.185501e-02_rb,7.770200e-02_rb,7.394749e-02_rb,&
+       & 7.053800e-02_rb,6.742700e-02_rb,6.457999e-02_rb,6.196149e-02_rb,5.954450e-02_rb,&
+       & 5.730650e-02_rb,5.522949e-02_rb,5.329450e-02_rb,5.148500e-02_rb,4.979000e-02_rb,&
+       & 4.819600e-02_rb,4.669301e-02_rb,4.527050e-02_rb,4.391899e-02_rb,4.263500e-02_rb,&
+       & 4.140500e-02_rb,4.022850e-02_rb,3.909500e-02_rb,3.800199e-02_rb,3.694600e-02_rb,&
+       & 3.592000e-02_rb,3.492250e-02_rb,3.395050e-02_rb,3.300150e-02_rb,3.207250e-02_rb,&
+       & 3.116250e-02_rb,3.027100e-02_rb,2.939500e-02_rb,2.853500e-02_rb,2.768900e-02_rb,&
+       & 2.686000e-02_rb,2.604350e-02_rb,2.524150e-02_rb,2.445350e-02_rb,2.368049e-02_rb,&
+       & 2.292150e-02_rb,2.217800e-02_rb,2.144800e-02_rb /)
+!     BAND  21
+      extliq1(:, 21) = (/ &
+       & 7.937480e-01_rb,5.123036e-01_rb,3.858181e-01_rb,3.099622e-01_rb,2.586829e-01_rb,&
+       & 2.217587e-01_rb,1.939755e-01_rb,1.723397e-01_rb,1.550258e-01_rb,1.408600e-01_rb,&
+       & 1.290545e-01_rb,1.190661e-01_rb,1.105039e-01_rb,1.030848e-01_rb,9.659387e-02_rb,&
+       & 9.086775e-02_rb,8.577807e-02_rb,8.122452e-02_rb,7.712711e-02_rb,7.342193e-02_rb,&
+       & 7.005387e-02_rb,6.697840e-02_rb,6.416000e-02_rb,6.156903e-02_rb,5.917484e-02_rb,&
+       & 5.695807e-02_rb,5.489968e-02_rb,5.298097e-02_rb,5.118806e-02_rb,4.950645e-02_rb,&
+       & 4.792710e-02_rb,4.643581e-02_rb,4.502484e-02_rb,4.368547e-02_rb,4.241001e-02_rb,&
+       & 4.118936e-02_rb,4.002193e-02_rb,3.889711e-02_rb,3.781322e-02_rb,3.676387e-02_rb,&
+       & 3.574549e-02_rb,3.475548e-02_rb,3.379033e-02_rb,3.284678e-02_rb,3.192420e-02_rb,&
+       & 3.102032e-02_rb,3.013484e-02_rb,2.926258e-02_rb,2.840839e-02_rb,2.756742e-02_rb,&
+       & 2.674258e-02_rb,2.593064e-02_rb,2.513258e-02_rb,2.435000e-02_rb,2.358064e-02_rb,&
+       & 2.282581e-02_rb,2.208548e-02_rb,2.135936e-02_rb /)
+!     BAND  22
+      extliq1(:, 22) = (/ &
+       & 7.533129e-01_rb,5.033129e-01_rb,3.811271e-01_rb,3.062757e-01_rb,2.558729e-01_rb,&
+       & 2.196828e-01_rb,1.924372e-01_rb,1.711714e-01_rb,1.541086e-01_rb,1.401114e-01_rb,&
+       & 1.284257e-01_rb,1.185200e-01_rb,1.100243e-01_rb,1.026529e-01_rb,9.620142e-02_rb,&
+       & 9.050714e-02_rb,8.544428e-02_rb,8.091714e-02_rb,7.684000e-02_rb,7.315429e-02_rb,&
+       & 6.980143e-02_rb,6.673999e-02_rb,6.394000e-02_rb,6.136000e-02_rb,5.897715e-02_rb,&
+       & 5.677000e-02_rb,5.472285e-02_rb,5.281286e-02_rb,5.102858e-02_rb,4.935429e-02_rb,&
+       & 4.778000e-02_rb,4.629714e-02_rb,4.489142e-02_rb,4.355857e-02_rb,4.228715e-02_rb,&
+       & 4.107285e-02_rb,3.990857e-02_rb,3.879000e-02_rb,3.770999e-02_rb,3.666429e-02_rb,&
+       & 3.565000e-02_rb,3.466286e-02_rb,3.370143e-02_rb,3.276143e-02_rb,3.184143e-02_rb,&
+       & 3.094000e-02_rb,3.005714e-02_rb,2.919000e-02_rb,2.833714e-02_rb,2.750000e-02_rb,&
+       & 2.667714e-02_rb,2.586714e-02_rb,2.507143e-02_rb,2.429143e-02_rb,2.352428e-02_rb,&
+       & 2.277143e-02_rb,2.203429e-02_rb,2.130857e-02_rb /)
+!     BAND  23
+      extliq1(:, 23) = (/ &
+       & 7.079894e-01_rb,4.878198e-01_rb,3.719852e-01_rb,3.001873e-01_rb,2.514795e-01_rb,&
+       & 2.163013e-01_rb,1.897100e-01_rb,1.689033e-01_rb,1.521793e-01_rb,1.384449e-01_rb,&
+       & 1.269666e-01_rb,1.172326e-01_rb,1.088745e-01_rb,1.016224e-01_rb,9.527085e-02_rb,&
+       & 8.966240e-02_rb,8.467543e-02_rb,8.021144e-02_rb,7.619344e-02_rb,7.255676e-02_rb,&
+       & 6.924996e-02_rb,6.623030e-02_rb,6.346261e-02_rb,6.091499e-02_rb,5.856325e-02_rb,&
+       & 5.638385e-02_rb,5.435930e-02_rb,5.247156e-02_rb,5.070699e-02_rb,4.905230e-02_rb,&
+       & 4.749499e-02_rb,4.602611e-02_rb,4.463581e-02_rb,4.331543e-02_rb,4.205647e-02_rb,&
+       & 4.085241e-02_rb,3.969978e-02_rb,3.859033e-02_rb,3.751877e-02_rb,3.648168e-02_rb,&
+       & 3.547468e-02_rb,3.449553e-02_rb,3.354072e-02_rb,3.260732e-02_rb,3.169438e-02_rb,&
+       & 3.079969e-02_rb,2.992146e-02_rb,2.905875e-02_rb,2.821201e-02_rb,2.737873e-02_rb,&
+       & 2.656052e-02_rb,2.575586e-02_rb,2.496511e-02_rb,2.418783e-02_rb,2.342500e-02_rb,&
+       & 2.267646e-02_rb,2.194177e-02_rb,2.122146e-02_rb /)
+!     BAND  24
+      extliq1(:, 24) = (/ &
+       & 6.850164e-01_rb,4.762468e-01_rb,3.642001e-01_rb,2.946012e-01_rb,2.472001e-01_rb,&
+       & 2.128588e-01_rb,1.868537e-01_rb,1.664893e-01_rb,1.501142e-01_rb,1.366620e-01_rb,&
+       & 1.254147e-01_rb,1.158721e-01_rb,1.076732e-01_rb,1.005530e-01_rb,9.431306e-02_rb,&
+       & 8.879891e-02_rb,8.389232e-02_rb,7.949714e-02_rb,7.553857e-02_rb,7.195474e-02_rb,&
+       & 6.869413e-02_rb,6.571444e-02_rb,6.298286e-02_rb,6.046779e-02_rb,5.814474e-02_rb,&
+       & 5.599141e-02_rb,5.399114e-02_rb,5.212443e-02_rb,5.037870e-02_rb,4.874321e-02_rb,&
+       & 4.720219e-02_rb,4.574813e-02_rb,4.437160e-02_rb,4.306460e-02_rb,4.181810e-02_rb,&
+       & 4.062603e-02_rb,3.948252e-02_rb,3.838256e-02_rb,3.732049e-02_rb,3.629192e-02_rb,&
+       & 3.529301e-02_rb,3.432190e-02_rb,3.337412e-02_rb,3.244842e-02_rb,3.154175e-02_rb,&
+       & 3.065253e-02_rb,2.978063e-02_rb,2.892367e-02_rb,2.808221e-02_rb,2.725478e-02_rb,&
+       & 2.644174e-02_rb,2.564175e-02_rb,2.485508e-02_rb,2.408303e-02_rb,2.332365e-02_rb,&
+       & 2.257890e-02_rb,2.184824e-02_rb,2.113224e-02_rb /)
+!     BAND  25
+      extliq1(:, 25) = (/ &
+       & 6.673017e-01_rb,4.664520e-01_rb,3.579398e-01_rb,2.902234e-01_rb,2.439904e-01_rb,&
+       & 2.104149e-01_rb,1.849277e-01_rb,1.649234e-01_rb,1.488087e-01_rb,1.355515e-01_rb,&
+       & 1.244562e-01_rb,1.150329e-01_rb,1.069321e-01_rb,9.989310e-02_rb,9.372070e-02_rb,&
+       & 8.826450e-02_rb,8.340622e-02_rb,7.905378e-02_rb,7.513109e-02_rb,7.157859e-02_rb,&
+       & 6.834588e-02_rb,6.539114e-02_rb,6.268150e-02_rb,6.018621e-02_rb,5.788098e-02_rb,&
+       & 5.574351e-02_rb,5.375699e-02_rb,5.190412e-02_rb,5.017099e-02_rb,4.854497e-02_rb,&
+       & 4.701490e-02_rb,4.557030e-02_rb,4.420249e-02_rb,4.290304e-02_rb,4.166427e-02_rb,&
+       & 4.047820e-02_rb,3.934232e-02_rb,3.824778e-02_rb,3.719236e-02_rb,3.616931e-02_rb,&
+       & 3.517597e-02_rb,3.420856e-02_rb,3.326566e-02_rb,3.234346e-02_rb,3.144122e-02_rb,&
+       & 3.055684e-02_rb,2.968798e-02_rb,2.883519e-02_rb,2.799635e-02_rb,2.717228e-02_rb,&
+       & 2.636182e-02_rb,2.556424e-02_rb,2.478114e-02_rb,2.401086e-02_rb,2.325657e-02_rb,&
+       & 2.251506e-02_rb,2.178594e-02_rb,2.107301e-02_rb /)
+!     BAND  26
+      extliq1(:, 26) = (/ &
+       & 6.552414e-01_rb,4.599454e-01_rb,3.538626e-01_rb,2.873547e-01_rb,2.418033e-01_rb,&
+       & 2.086660e-01_rb,1.834885e-01_rb,1.637142e-01_rb,1.477767e-01_rb,1.346583e-01_rb,&
+       & 1.236734e-01_rb,1.143412e-01_rb,1.063148e-01_rb,9.933905e-02_rb,9.322026e-02_rb,&
+       & 8.780979e-02_rb,8.299230e-02_rb,7.867554e-02_rb,7.478450e-02_rb,7.126053e-02_rb,&
+       & 6.805276e-02_rb,6.512143e-02_rb,6.243211e-02_rb,5.995541e-02_rb,5.766712e-02_rb,&
+       & 5.554484e-02_rb,5.357246e-02_rb,5.173222e-02_rb,5.001069e-02_rb,4.839505e-02_rb,&
+       & 4.687471e-02_rb,4.543861e-02_rb,4.407857e-02_rb,4.278577e-02_rb,4.155331e-02_rb,&
+       & 4.037322e-02_rb,3.924302e-02_rb,3.815376e-02_rb,3.710172e-02_rb,3.608296e-02_rb,&
+       & 3.509330e-02_rb,3.412980e-02_rb,3.319009e-02_rb,3.227106e-02_rb,3.137157e-02_rb,&
+       & 3.048950e-02_rb,2.962365e-02_rb,2.877297e-02_rb,2.793726e-02_rb,2.711500e-02_rb,&
+       & 2.630666e-02_rb,2.551206e-02_rb,2.473052e-02_rb,2.396287e-02_rb,2.320861e-02_rb,&
+       & 2.246810e-02_rb,2.174162e-02_rb,2.102927e-02_rb /)
+!     BAND  27
+      extliq1(:, 27) = (/ &
+       & 6.430901e-01_rb,4.532134e-01_rb,3.496132e-01_rb,2.844655e-01_rb,2.397347e-01_rb,&
+       & 2.071236e-01_rb,1.822976e-01_rb,1.627640e-01_rb,1.469961e-01_rb,1.340006e-01_rb,&
+       & 1.231069e-01_rb,1.138441e-01_rb,1.058706e-01_rb,9.893678e-02_rb,9.285166e-02_rb,&
+       & 8.746871e-02_rb,8.267411e-02_rb,7.837656e-02_rb,7.450257e-02_rb,7.099318e-02_rb,&
+       & 6.779929e-02_rb,6.487987e-02_rb,6.220168e-02_rb,5.973530e-02_rb,5.745636e-02_rb,&
+       & 5.534344e-02_rb,5.337986e-02_rb,5.154797e-02_rb,4.983404e-02_rb,4.822582e-02_rb,&
+       & 4.671228e-02_rb,4.528321e-02_rb,4.392997e-02_rb,4.264325e-02_rb,4.141647e-02_rb,&
+       & 4.024259e-02_rb,3.911767e-02_rb,3.803309e-02_rb,3.698782e-02_rb,3.597140e-02_rb,&
+       & 3.498774e-02_rb,3.402852e-02_rb,3.309340e-02_rb,3.217818e-02_rb,3.128292e-02_rb,&
+       & 3.040486e-02_rb,2.954230e-02_rb,2.869545e-02_rb,2.786261e-02_rb,2.704372e-02_rb,&
+       & 2.623813e-02_rb,2.544668e-02_rb,2.466788e-02_rb,2.390313e-02_rb,2.315136e-02_rb,&
+       & 2.241391e-02_rb,2.168921e-02_rb,2.097903e-02_rb /)
+!     BAND  28
+      extliq1(:, 28) = (/ &
+       & 6.367074e-01_rb,4.495768e-01_rb,3.471263e-01_rb,2.826149e-01_rb,2.382868e-01_rb,&
+       & 2.059640e-01_rb,1.813562e-01_rb,1.619881e-01_rb,1.463436e-01_rb,1.334402e-01_rb,&
+       & 1.226166e-01_rb,1.134096e-01_rb,1.054829e-01_rb,9.858838e-02_rb,9.253790e-02_rb,&
+       & 8.718582e-02_rb,8.241830e-02_rb,7.814482e-02_rb,7.429212e-02_rb,7.080165e-02_rb,&
+       & 6.762385e-02_rb,6.471838e-02_rb,6.205388e-02_rb,5.959726e-02_rb,5.732871e-02_rb,&
+       & 5.522402e-02_rb,5.326793e-02_rb,5.144230e-02_rb,4.973440e-02_rb,4.813188e-02_rb,&
+       & 4.662283e-02_rb,4.519798e-02_rb,4.384833e-02_rb,4.256541e-02_rb,4.134253e-02_rb,&
+       & 4.017136e-02_rb,3.904911e-02_rb,3.796779e-02_rb,3.692364e-02_rb,3.591182e-02_rb,&
+       & 3.492930e-02_rb,3.397230e-02_rb,3.303920e-02_rb,3.212572e-02_rb,3.123278e-02_rb,&
+       & 3.035519e-02_rb,2.949493e-02_rb,2.864985e-02_rb,2.781840e-02_rb,2.700197e-02_rb,&
+       & 2.619682e-02_rb,2.540674e-02_rb,2.462966e-02_rb,2.386613e-02_rb,2.311602e-02_rb,&
+       & 2.237846e-02_rb,2.165660e-02_rb,2.094756e-02_rb /)
+!     BAND  29
+      extliq1(:, 29) = (/ &
+       & 4.298416e-01_rb,4.391639e-01_rb,3.975030e-01_rb,3.443028e-01_rb,2.957345e-01_rb,&
+       & 2.556461e-01_rb,2.234755e-01_rb,1.976636e-01_rb,1.767428e-01_rb,1.595611e-01_rb,&
+       & 1.452636e-01_rb,1.332156e-01_rb,1.229481e-01_rb,1.141059e-01_rb,1.064208e-01_rb,&
+       & 9.968527e-02_rb,9.373833e-02_rb,8.845221e-02_rb,8.372112e-02_rb,7.946667e-02_rb,&
+       & 7.561807e-02_rb,7.212029e-02_rb,6.893166e-02_rb,6.600944e-02_rb,6.332277e-02_rb,&
+       & 6.084277e-02_rb,5.854721e-02_rb,5.641361e-02_rb,5.442639e-02_rb,5.256750e-02_rb,&
+       & 5.082499e-02_rb,4.918556e-02_rb,4.763694e-02_rb,4.617222e-02_rb,4.477861e-02_rb,&
+       & 4.344861e-02_rb,4.217999e-02_rb,4.096111e-02_rb,3.978638e-02_rb,3.865361e-02_rb,&
+       & 3.755473e-02_rb,3.649028e-02_rb,3.545361e-02_rb,3.444361e-02_rb,3.345666e-02_rb,&
+       & 3.249167e-02_rb,3.154722e-02_rb,3.062083e-02_rb,2.971250e-02_rb,2.882083e-02_rb,&
+       & 2.794611e-02_rb,2.708778e-02_rb,2.624500e-02_rb,2.541750e-02_rb,2.460528e-02_rb,&
+       & 2.381194e-02_rb,2.303250e-02_rb,2.226833e-02_rb /)
+!     BAND  16
+      ssaliq1(:, 16) = (/ &
+       & 8.362119e-01_rb,8.098460e-01_rb,7.762291e-01_rb,7.486042e-01_rb,7.294172e-01_rb,&
+       & 7.161000e-01_rb,7.060656e-01_rb,6.978387e-01_rb,6.907193e-01_rb,6.843551e-01_rb,&
+       & 6.785668e-01_rb,6.732450e-01_rb,6.683191e-01_rb,6.637264e-01_rb,6.594307e-01_rb,&
+       & 6.554033e-01_rb,6.516115e-01_rb,6.480295e-01_rb,6.446429e-01_rb,6.414306e-01_rb,&
+       & 6.383783e-01_rb,6.354750e-01_rb,6.327068e-01_rb,6.300665e-01_rb,6.275376e-01_rb,&
+       & 6.251245e-01_rb,6.228136e-01_rb,6.205944e-01_rb,6.184720e-01_rb,6.164330e-01_rb,&
+       & 6.144742e-01_rb,6.125962e-01_rb,6.108004e-01_rb,6.090740e-01_rb,6.074200e-01_rb,&
+       & 6.058381e-01_rb,6.043209e-01_rb,6.028681e-01_rb,6.014836e-01_rb,6.001626e-01_rb,&
+       & 5.988957e-01_rb,5.976864e-01_rb,5.965390e-01_rb,5.954379e-01_rb,5.943972e-01_rb,&
+       & 5.934019e-01_rb,5.924624e-01_rb,5.915579e-01_rb,5.907025e-01_rb,5.898913e-01_rb,&
+       & 5.891213e-01_rb,5.883815e-01_rb,5.876851e-01_rb,5.870158e-01_rb,5.863868e-01_rb,&
+       & 5.857821e-01_rb,5.852111e-01_rb,5.846579e-01_rb /)
+!     BAND  17
+      ssaliq1(:, 17) = (/ &
+       & 6.995459e-01_rb,7.158012e-01_rb,7.076001e-01_rb,6.927244e-01_rb,6.786434e-01_rb,&
+       & 6.673545e-01_rb,6.585859e-01_rb,6.516314e-01_rb,6.459010e-01_rb,6.410225e-01_rb,&
+       & 6.367574e-01_rb,6.329554e-01_rb,6.295119e-01_rb,6.263595e-01_rb,6.234462e-01_rb,&
+       & 6.207274e-01_rb,6.181755e-01_rb,6.157678e-01_rb,6.134880e-01_rb,6.113173e-01_rb,&
+       & 6.092495e-01_rb,6.072689e-01_rb,6.053717e-01_rb,6.035507e-01_rb,6.018001e-01_rb,&
+       & 6.001134e-01_rb,5.984951e-01_rb,5.969294e-01_rb,5.954256e-01_rb,5.939698e-01_rb,&
+       & 5.925716e-01_rb,5.912265e-01_rb,5.899270e-01_rb,5.886771e-01_rb,5.874746e-01_rb,&
+       & 5.863185e-01_rb,5.852077e-01_rb,5.841460e-01_rb,5.831249e-01_rb,5.821474e-01_rb,&
+       & 5.812078e-01_rb,5.803173e-01_rb,5.794616e-01_rb,5.786443e-01_rb,5.778617e-01_rb,&
+       & 5.771236e-01_rb,5.764191e-01_rb,5.757400e-01_rb,5.750971e-01_rb,5.744842e-01_rb,&
+       & 5.739012e-01_rb,5.733482e-01_rb,5.728175e-01_rb,5.723214e-01_rb,5.718383e-01_rb,&
+       & 5.713827e-01_rb,5.709471e-01_rb,5.705330e-01_rb /)
+!     BAND  18
+      ssaliq1(:, 18) = (/ &
+       & 9.929711e-01_rb,9.896942e-01_rb,9.852408e-01_rb,9.806820e-01_rb,9.764512e-01_rb,&
+       & 9.725375e-01_rb,9.688677e-01_rb,9.653832e-01_rb,9.620552e-01_rb,9.588522e-01_rb,&
+       & 9.557475e-01_rb,9.527265e-01_rb,9.497731e-01_rb,9.468756e-01_rb,9.440270e-01_rb,&
+       & 9.412230e-01_rb,9.384592e-01_rb,9.357287e-01_rb,9.330369e-01_rb,9.303778e-01_rb,&
+       & 9.277502e-01_rb,9.251546e-01_rb,9.225907e-01_rb,9.200553e-01_rb,9.175521e-01_rb,&
+       & 9.150773e-01_rb,9.126352e-01_rb,9.102260e-01_rb,9.078485e-01_rb,9.055057e-01_rb,&
+       & 9.031978e-01_rb,9.009306e-01_rb,8.987010e-01_rb,8.965177e-01_rb,8.943774e-01_rb,&
+       & 8.922869e-01_rb,8.902430e-01_rb,8.882551e-01_rb,8.863182e-01_rb,8.844373e-01_rb,&
+       & 8.826143e-01_rb,8.808499e-01_rb,8.791413e-01_rb,8.774940e-01_rb,8.759019e-01_rb,&
+       & 8.743650e-01_rb,8.728941e-01_rb,8.714712e-01_rb,8.701065e-01_rb,8.688008e-01_rb,&
+       & 8.675409e-01_rb,8.663295e-01_rb,8.651714e-01_rb,8.640637e-01_rb,8.629943e-01_rb,&
+       & 8.619762e-01_rb,8.609995e-01_rb,8.600581e-01_rb /)
+!     BAND  19
+      ssaliq1(:, 19) = (/ &
+       & 9.910612e-01_rb,9.854226e-01_rb,9.795008e-01_rb,9.742920e-01_rb,9.695996e-01_rb,&
+       & 9.652274e-01_rb,9.610648e-01_rb,9.570521e-01_rb,9.531397e-01_rb,9.493086e-01_rb,&
+       & 9.455413e-01_rb,9.418362e-01_rb,9.381902e-01_rb,9.346016e-01_rb,9.310718e-01_rb,&
+       & 9.275957e-01_rb,9.241757e-01_rb,9.208038e-01_rb,9.174802e-01_rb,9.142058e-01_rb,&
+       & 9.109753e-01_rb,9.077895e-01_rb,9.046433e-01_rb,9.015409e-01_rb,8.984784e-01_rb,&
+       & 8.954572e-01_rb,8.924748e-01_rb,8.895367e-01_rb,8.866395e-01_rb,8.837864e-01_rb,&
+       & 8.809819e-01_rb,8.782267e-01_rb,8.755231e-01_rb,8.728712e-01_rb,8.702802e-01_rb,&
+       & 8.677443e-01_rb,8.652733e-01_rb,8.628678e-01_rb,8.605300e-01_rb,8.582593e-01_rb,&
+       & 8.560596e-01_rb,8.539352e-01_rb,8.518782e-01_rb,8.498915e-01_rb,8.479790e-01_rb,&
+       & 8.461384e-01_rb,8.443645e-01_rb,8.426613e-01_rb,8.410229e-01_rb,8.394495e-01_rb,&
+       & 8.379428e-01_rb,8.364967e-01_rb,8.351117e-01_rb,8.337820e-01_rb,8.325091e-01_rb,&
+       & 8.312874e-01_rb,8.301169e-01_rb,8.289985e-01_rb /)
+!     BAND  20
+      ssaliq1(:, 20) = (/ &
+       & 9.969802e-01_rb,9.950445e-01_rb,9.931448e-01_rb,9.914272e-01_rb,9.898652e-01_rb,&
+       & 9.884250e-01_rb,9.870637e-01_rb,9.857482e-01_rb,9.844558e-01_rb,9.831755e-01_rb,&
+       & 9.819068e-01_rb,9.806477e-01_rb,9.794000e-01_rb,9.781666e-01_rb,9.769461e-01_rb,&
+       & 9.757386e-01_rb,9.745459e-01_rb,9.733650e-01_rb,9.721953e-01_rb,9.710398e-01_rb,&
+       & 9.698936e-01_rb,9.687583e-01_rb,9.676334e-01_rb,9.665192e-01_rb,9.654132e-01_rb,&
+       & 9.643208e-01_rb,9.632374e-01_rb,9.621625e-01_rb,9.611003e-01_rb,9.600518e-01_rb,&
+       & 9.590144e-01_rb,9.579922e-01_rb,9.569864e-01_rb,9.559948e-01_rb,9.550239e-01_rb,&
+       & 9.540698e-01_rb,9.531382e-01_rb,9.522280e-01_rb,9.513409e-01_rb,9.504772e-01_rb,&
+       & 9.496360e-01_rb,9.488220e-01_rb,9.480327e-01_rb,9.472693e-01_rb,9.465333e-01_rb,&
+       & 9.458211e-01_rb,9.451344e-01_rb,9.444732e-01_rb,9.438372e-01_rb,9.432268e-01_rb,&
+       & 9.426391e-01_rb,9.420757e-01_rb,9.415308e-01_rb,9.410102e-01_rb,9.405115e-01_rb,&
+       & 9.400326e-01_rb,9.395716e-01_rb,9.391313e-01_rb /)
+!     BAND  21
+      ssaliq1(:, 21) = (/ &
+       & 9.980034e-01_rb,9.968572e-01_rb,9.958696e-01_rb,9.949747e-01_rb,9.941241e-01_rb,&
+       & 9.933043e-01_rb,9.924971e-01_rb,9.916978e-01_rb,9.909023e-01_rb,9.901046e-01_rb,&
+       & 9.893087e-01_rb,9.885146e-01_rb,9.877195e-01_rb,9.869283e-01_rb,9.861379e-01_rb,&
+       & 9.853523e-01_rb,9.845715e-01_rb,9.837945e-01_rb,9.830217e-01_rb,9.822567e-01_rb,&
+       & 9.814935e-01_rb,9.807356e-01_rb,9.799815e-01_rb,9.792332e-01_rb,9.784845e-01_rb,&
+       & 9.777424e-01_rb,9.770042e-01_rb,9.762695e-01_rb,9.755416e-01_rb,9.748152e-01_rb,&
+       & 9.740974e-01_rb,9.733873e-01_rb,9.726813e-01_rb,9.719861e-01_rb,9.713010e-01_rb,&
+       & 9.706262e-01_rb,9.699647e-01_rb,9.693144e-01_rb,9.686794e-01_rb,9.680596e-01_rb,&
+       & 9.674540e-01_rb,9.668657e-01_rb,9.662926e-01_rb,9.657390e-01_rb,9.652019e-01_rb,&
+       & 9.646820e-01_rb,9.641784e-01_rb,9.636945e-01_rb,9.632260e-01_rb,9.627743e-01_rb,&
+       & 9.623418e-01_rb,9.619227e-01_rb,9.615194e-01_rb,9.611341e-01_rb,9.607629e-01_rb,&
+       & 9.604057e-01_rb,9.600622e-01_rb,9.597322e-01_rb /)
+!     BAND  22
+      ssaliq1(:, 22) = (/ &
+       & 9.988219e-01_rb,9.981767e-01_rb,9.976168e-01_rb,9.971066e-01_rb,9.966195e-01_rb,&
+       & 9.961566e-01_rb,9.956995e-01_rb,9.952481e-01_rb,9.947982e-01_rb,9.943495e-01_rb,&
+       & 9.938955e-01_rb,9.934368e-01_rb,9.929825e-01_rb,9.925239e-01_rb,9.920653e-01_rb,&
+       & 9.916096e-01_rb,9.911552e-01_rb,9.907067e-01_rb,9.902594e-01_rb,9.898178e-01_rb,&
+       & 9.893791e-01_rb,9.889453e-01_rb,9.885122e-01_rb,9.880837e-01_rb,9.876567e-01_rb,&
+       & 9.872331e-01_rb,9.868121e-01_rb,9.863938e-01_rb,9.859790e-01_rb,9.855650e-01_rb,&
+       & 9.851548e-01_rb,9.847491e-01_rb,9.843496e-01_rb,9.839521e-01_rb,9.835606e-01_rb,&
+       & 9.831771e-01_rb,9.827975e-01_rb,9.824292e-01_rb,9.820653e-01_rb,9.817124e-01_rb,&
+       & 9.813644e-01_rb,9.810291e-01_rb,9.807020e-01_rb,9.803864e-01_rb,9.800782e-01_rb,&
+       & 9.797821e-01_rb,9.794958e-01_rb,9.792179e-01_rb,9.789509e-01_rb,9.786940e-01_rb,&
+       & 9.784460e-01_rb,9.782090e-01_rb,9.779789e-01_rb,9.777553e-01_rb,9.775425e-01_rb,&
+       & 9.773387e-01_rb,9.771420e-01_rb,9.769529e-01_rb /)
+!     BAND  23
+      ssaliq1(:, 23) = (/ &
+       & 9.998902e-01_rb,9.998395e-01_rb,9.997915e-01_rb,9.997442e-01_rb,9.997016e-01_rb,&
+       & 9.996600e-01_rb,9.996200e-01_rb,9.995806e-01_rb,9.995411e-01_rb,9.995005e-01_rb,&
+       & 9.994589e-01_rb,9.994178e-01_rb,9.993766e-01_rb,9.993359e-01_rb,9.992948e-01_rb,&
+       & 9.992533e-01_rb,9.992120e-01_rb,9.991723e-01_rb,9.991313e-01_rb,9.990906e-01_rb,&
+       & 9.990510e-01_rb,9.990113e-01_rb,9.989716e-01_rb,9.989323e-01_rb,9.988923e-01_rb,&
+       & 9.988532e-01_rb,9.988140e-01_rb,9.987761e-01_rb,9.987373e-01_rb,9.986989e-01_rb,&
+       & 9.986597e-01_rb,9.986239e-01_rb,9.985861e-01_rb,9.985485e-01_rb,9.985123e-01_rb,&
+       & 9.984762e-01_rb,9.984415e-01_rb,9.984065e-01_rb,9.983722e-01_rb,9.983398e-01_rb,&
+       & 9.983078e-01_rb,9.982758e-01_rb,9.982461e-01_rb,9.982157e-01_rb,9.981872e-01_rb,&
+       & 9.981595e-01_rb,9.981324e-01_rb,9.981068e-01_rb,9.980811e-01_rb,9.980580e-01_rb,&
+       & 9.980344e-01_rb,9.980111e-01_rb,9.979908e-01_rb,9.979690e-01_rb,9.979492e-01_rb,&
+       & 9.979316e-01_rb,9.979116e-01_rb,9.978948e-01_rb /)
+!     BAND  24
+      ssaliq1(:, 24) = (/ &
+       & 9.999978e-01_rb,9.999948e-01_rb,9.999915e-01_rb,9.999905e-01_rb,9.999896e-01_rb,&
+       & 9.999887e-01_rb,9.999888e-01_rb,9.999888e-01_rb,9.999870e-01_rb,9.999854e-01_rb,&
+       & 9.999855e-01_rb,9.999856e-01_rb,9.999839e-01_rb,9.999834e-01_rb,9.999829e-01_rb,&
+       & 9.999809e-01_rb,9.999816e-01_rb,9.999793e-01_rb,9.999782e-01_rb,9.999779e-01_rb,&
+       & 9.999772e-01_rb,9.999764e-01_rb,9.999756e-01_rb,9.999744e-01_rb,9.999744e-01_rb,&
+       & 9.999736e-01_rb,9.999729e-01_rb,9.999716e-01_rb,9.999706e-01_rb,9.999692e-01_rb,&
+       & 9.999690e-01_rb,9.999675e-01_rb,9.999673e-01_rb,9.999660e-01_rb,9.999654e-01_rb,&
+       & 9.999647e-01_rb,9.999647e-01_rb,9.999625e-01_rb,9.999620e-01_rb,9.999614e-01_rb,&
+       & 9.999613e-01_rb,9.999607e-01_rb,9.999604e-01_rb,9.999594e-01_rb,9.999589e-01_rb,&
+       & 9.999586e-01_rb,9.999567e-01_rb,9.999550e-01_rb,9.999557e-01_rb,9.999542e-01_rb,&
+       & 9.999546e-01_rb,9.999539e-01_rb,9.999536e-01_rb,9.999526e-01_rb,9.999523e-01_rb,&
+       & 9.999508e-01_rb,9.999534e-01_rb,9.999507e-01_rb /)
+!     BAND  25
+      ssaliq1(:, 25) = (/ &
+       & 1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,&
+       & 1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,&
+       & 1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,&
+       & 1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,9.999995e-01_rb,&
+       & 9.999995e-01_rb,9.999990e-01_rb,9.999991e-01_rb,9.999991e-01_rb,9.999990e-01_rb,&
+       & 9.999989e-01_rb,9.999988e-01_rb,9.999988e-01_rb,9.999986e-01_rb,9.999988e-01_rb,&
+       & 9.999986e-01_rb,9.999987e-01_rb,9.999986e-01_rb,9.999985e-01_rb,9.999985e-01_rb,&
+       & 9.999985e-01_rb,9.999985e-01_rb,9.999983e-01_rb,9.999983e-01_rb,9.999981e-01_rb,&
+       & 9.999981e-01_rb,9.999986e-01_rb,9.999985e-01_rb,9.999983e-01_rb,9.999984e-01_rb,&
+       & 9.999982e-01_rb,9.999983e-01_rb,9.999982e-01_rb,9.999980e-01_rb,9.999981e-01_rb,&
+       & 9.999978e-01_rb,9.999979e-01_rb,9.999985e-01_rb,9.999985e-01_rb,9.999983e-01_rb,&
+       & 9.999983e-01_rb,9.999983e-01_rb,9.999983e-01_rb /)
+!     BAND  26
+      ssaliq1(:, 26) = (/ &
+       & 1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,&
+       & 1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,&
+       & 1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,&
+       & 1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,1.000000e+00_rb,9.999991e-01_rb,&
+       & 9.999990e-01_rb,9.999992e-01_rb,9.999995e-01_rb,9.999986e-01_rb,9.999994e-01_rb,&
+       & 9.999985e-01_rb,9.999980e-01_rb,9.999984e-01_rb,9.999983e-01_rb,9.999979e-01_rb,&
+       & 9.999969e-01_rb,9.999977e-01_rb,9.999971e-01_rb,9.999969e-01_rb,9.999969e-01_rb,&
+       & 9.999965e-01_rb,9.999970e-01_rb,9.999985e-01_rb,9.999973e-01_rb,9.999961e-01_rb,&
+       & 9.999968e-01_rb,9.999952e-01_rb,9.999970e-01_rb,9.999974e-01_rb,9.999965e-01_rb,&
+       & 9.999969e-01_rb,9.999970e-01_rb,9.999970e-01_rb,9.999960e-01_rb,9.999923e-01_rb,&
+       & 9.999958e-01_rb,9.999937e-01_rb,9.999960e-01_rb,9.999953e-01_rb,9.999946e-01_rb,&
+       & 9.999946e-01_rb,9.999957e-01_rb,9.999951e-01_rb /)
+!     BAND  27
+      ssaliq1(:, 27) = (/ &
+       & 1.000000e+00_rb,1.000000e+00_rb,9.999983e-01_rb,9.999979e-01_rb,9.999965e-01_rb,&
+       & 9.999949e-01_rb,9.999948e-01_rb,9.999918e-01_rb,9.999917e-01_rb,9.999923e-01_rb,&
+       & 9.999908e-01_rb,9.999889e-01_rb,9.999902e-01_rb,9.999895e-01_rb,9.999881e-01_rb,&
+       & 9.999882e-01_rb,9.999876e-01_rb,9.999866e-01_rb,9.999866e-01_rb,9.999858e-01_rb,&
+       & 9.999860e-01_rb,9.999852e-01_rb,9.999836e-01_rb,9.999831e-01_rb,9.999818e-01_rb,&
+       & 9.999808e-01_rb,9.999816e-01_rb,9.999800e-01_rb,9.999783e-01_rb,9.999780e-01_rb,&
+       & 9.999763e-01_rb,9.999746e-01_rb,9.999731e-01_rb,9.999713e-01_rb,9.999762e-01_rb,&
+       & 9.999740e-01_rb,9.999670e-01_rb,9.999703e-01_rb,9.999687e-01_rb,9.999666e-01_rb,&
+       & 9.999683e-01_rb,9.999667e-01_rb,9.999611e-01_rb,9.999635e-01_rb,9.999600e-01_rb,&
+       & 9.999635e-01_rb,9.999594e-01_rb,9.999601e-01_rb,9.999586e-01_rb,9.999559e-01_rb,&
+       & 9.999569e-01_rb,9.999558e-01_rb,9.999523e-01_rb,9.999535e-01_rb,9.999529e-01_rb,&
+       & 9.999553e-01_rb,9.999495e-01_rb,9.999490e-01_rb /)
+!     BAND  28
+      ssaliq1(:, 28) = (/ &
+       & 9.999920e-01_rb,9.999873e-01_rb,9.999855e-01_rb,9.999832e-01_rb,9.999807e-01_rb,&
+       & 9.999778e-01_rb,9.999754e-01_rb,9.999721e-01_rb,9.999692e-01_rb,9.999651e-01_rb,&
+       & 9.999621e-01_rb,9.999607e-01_rb,9.999567e-01_rb,9.999546e-01_rb,9.999521e-01_rb,&
+       & 9.999491e-01_rb,9.999457e-01_rb,9.999439e-01_rb,9.999403e-01_rb,9.999374e-01_rb,&
+       & 9.999353e-01_rb,9.999315e-01_rb,9.999282e-01_rb,9.999244e-01_rb,9.999234e-01_rb,&
+       & 9.999189e-01_rb,9.999130e-01_rb,9.999117e-01_rb,9.999073e-01_rb,9.999020e-01_rb,&
+       & 9.998993e-01_rb,9.998987e-01_rb,9.998922e-01_rb,9.998893e-01_rb,9.998869e-01_rb,&
+       & 9.998805e-01_rb,9.998778e-01_rb,9.998751e-01_rb,9.998708e-01_rb,9.998676e-01_rb,&
+       & 9.998624e-01_rb,9.998642e-01_rb,9.998582e-01_rb,9.998547e-01_rb,9.998546e-01_rb,&
+       & 9.998477e-01_rb,9.998487e-01_rb,9.998466e-01_rb,9.998403e-01_rb,9.998412e-01_rb,&
+       & 9.998406e-01_rb,9.998342e-01_rb,9.998326e-01_rb,9.998333e-01_rb,9.998328e-01_rb,&
+       & 9.998290e-01_rb,9.998276e-01_rb,9.998249e-01_rb /)
+!     BAND  29
+      ssaliq1(:, 29) = (/ &
+       & 8.383753e-01_rb,8.461471e-01_rb,8.373325e-01_rb,8.212889e-01_rb,8.023834e-01_rb,&
+       & 7.829501e-01_rb,7.641777e-01_rb,7.466000e-01_rb,7.304023e-01_rb,7.155998e-01_rb,&
+       & 7.021259e-01_rb,6.898840e-01_rb,6.787615e-01_rb,6.686479e-01_rb,6.594414e-01_rb,&
+       & 6.510417e-01_rb,6.433668e-01_rb,6.363335e-01_rb,6.298788e-01_rb,6.239398e-01_rb,&
+       & 6.184633e-01_rb,6.134055e-01_rb,6.087228e-01_rb,6.043786e-01_rb,6.003439e-01_rb,&
+       & 5.965910e-01_rb,5.930917e-01_rb,5.898280e-01_rb,5.867798e-01_rb,5.839264e-01_rb,&
+       & 5.812576e-01_rb,5.787592e-01_rb,5.764163e-01_rb,5.742189e-01_rb,5.721598e-01_rb,&
+       & 5.702286e-01_rb,5.684182e-01_rb,5.667176e-01_rb,5.651237e-01_rb,5.636253e-01_rb,&
+       & 5.622228e-01_rb,5.609074e-01_rb,5.596713e-01_rb,5.585089e-01_rb,5.574223e-01_rb,&
+       & 5.564002e-01_rb,5.554411e-01_rb,5.545397e-01_rb,5.536914e-01_rb,5.528967e-01_rb,&
+       & 5.521495e-01_rb,5.514457e-01_rb,5.507818e-01_rb,5.501623e-01_rb,5.495750e-01_rb,&
+       & 5.490192e-01_rb,5.484980e-01_rb,5.480046e-01_rb /)
+!     BAND  16
+      asyliq1(:, 16) = (/ &
+       & 8.038165e-01_rb,8.014154e-01_rb,7.942381e-01_rb,7.970521e-01_rb,8.086621e-01_rb,&
+       & 8.233392e-01_rb,8.374127e-01_rb,8.495742e-01_rb,8.596945e-01_rb,8.680497e-01_rb,&
+       & 8.750005e-01_rb,8.808589e-01_rb,8.858749e-01_rb,8.902403e-01_rb,8.940939e-01_rb,&
+       & 8.975379e-01_rb,9.006450e-01_rb,9.034741e-01_rb,9.060659e-01_rb,9.084561e-01_rb,&
+       & 9.106675e-01_rb,9.127198e-01_rb,9.146332e-01_rb,9.164194e-01_rb,9.180970e-01_rb,&
+       & 9.196658e-01_rb,9.211421e-01_rb,9.225352e-01_rb,9.238443e-01_rb,9.250841e-01_rb,&
+       & 9.262541e-01_rb,9.273620e-01_rb,9.284081e-01_rb,9.294002e-01_rb,9.303395e-01_rb,&
+       & 9.312285e-01_rb,9.320715e-01_rb,9.328716e-01_rb,9.336271e-01_rb,9.343427e-01_rb,&
+       & 9.350219e-01_rb,9.356647e-01_rb,9.362728e-01_rb,9.368495e-01_rb,9.373956e-01_rb,&
+       & 9.379113e-01_rb,9.383987e-01_rb,9.388608e-01_rb,9.392986e-01_rb,9.397132e-01_rb,&
+       & 9.401063e-01_rb,9.404776e-01_rb,9.408299e-01_rb,9.411641e-01_rb,9.414800e-01_rb,&
+       & 9.417787e-01_rb,9.420633e-01_rb,9.423364e-01_rb /)
+!     BAND  17
+      asyliq1(:, 17) = (/ &
+       & 8.941000e-01_rb,9.054049e-01_rb,9.049510e-01_rb,9.027216e-01_rb,9.021636e-01_rb,&
+       & 9.037878e-01_rb,9.069852e-01_rb,9.109817e-01_rb,9.152013e-01_rb,9.193040e-01_rb,&
+       & 9.231177e-01_rb,9.265712e-01_rb,9.296606e-01_rb,9.324048e-01_rb,9.348419e-01_rb,&
+       & 9.370131e-01_rb,9.389529e-01_rb,9.406954e-01_rb,9.422727e-01_rb,9.437088e-01_rb,&
+       & 9.450221e-01_rb,9.462308e-01_rb,9.473488e-01_rb,9.483830e-01_rb,9.493492e-01_rb,&
+       & 9.502541e-01_rb,9.510999e-01_rb,9.518971e-01_rb,9.526455e-01_rb,9.533554e-01_rb,&
+       & 9.540249e-01_rb,9.546571e-01_rb,9.552551e-01_rb,9.558258e-01_rb,9.563603e-01_rb,&
+       & 9.568713e-01_rb,9.573569e-01_rb,9.578141e-01_rb,9.582485e-01_rb,9.586604e-01_rb,&
+       & 9.590525e-01_rb,9.594218e-01_rb,9.597710e-01_rb,9.601052e-01_rb,9.604181e-01_rb,&
+       & 9.607159e-01_rb,9.609979e-01_rb,9.612655e-01_rb,9.615184e-01_rb,9.617564e-01_rb,&
+       & 9.619860e-01_rb,9.622009e-01_rb,9.624031e-01_rb,9.625957e-01_rb,9.627792e-01_rb,&
+       & 9.629530e-01_rb,9.631171e-01_rb,9.632746e-01_rb /)
+!     BAND  18
+      asyliq1(:, 18) = (/ &
+       & 8.574638e-01_rb,8.351383e-01_rb,8.142977e-01_rb,8.083068e-01_rb,8.129284e-01_rb,&
+       & 8.215827e-01_rb,8.307238e-01_rb,8.389963e-01_rb,8.460481e-01_rb,8.519273e-01_rb,&
+       & 8.568153e-01_rb,8.609116e-01_rb,8.643892e-01_rb,8.673941e-01_rb,8.700248e-01_rb,&
+       & 8.723707e-01_rb,8.744902e-01_rb,8.764240e-01_rb,8.782057e-01_rb,8.798593e-01_rb,&
+       & 8.814063e-01_rb,8.828573e-01_rb,8.842261e-01_rb,8.855196e-01_rb,8.867497e-01_rb,&
+       & 8.879164e-01_rb,8.890316e-01_rb,8.900941e-01_rb,8.911118e-01_rb,8.920832e-01_rb,&
+       & 8.930156e-01_rb,8.939091e-01_rb,8.947663e-01_rb,8.955888e-01_rb,8.963786e-01_rb,&
+       & 8.971350e-01_rb,8.978617e-01_rb,8.985590e-01_rb,8.992243e-01_rb,8.998631e-01_rb,&
+       & 9.004753e-01_rb,9.010602e-01_rb,9.016192e-01_rb,9.021542e-01_rb,9.026644e-01_rb,&
+       & 9.031535e-01_rb,9.036194e-01_rb,9.040656e-01_rb,9.044894e-01_rb,9.048933e-01_rb,&
+       & 9.052789e-01_rb,9.056481e-01_rb,9.060004e-01_rb,9.063343e-01_rb,9.066544e-01_rb,&
+       & 9.069604e-01_rb,9.072512e-01_rb,9.075290e-01_rb /)
+!     BAND  19
+      asyliq1(:, 19) = (/ &
+       & 8.349569e-01_rb,8.034579e-01_rb,7.932136e-01_rb,8.010156e-01_rb,8.137083e-01_rb,&
+       & 8.255339e-01_rb,8.351938e-01_rb,8.428286e-01_rb,8.488944e-01_rb,8.538187e-01_rb,&
+       & 8.579255e-01_rb,8.614473e-01_rb,8.645338e-01_rb,8.672908e-01_rb,8.697947e-01_rb,&
+       & 8.720843e-01_rb,8.742015e-01_rb,8.761718e-01_rb,8.780160e-01_rb,8.797479e-01_rb,&
+       & 8.813810e-01_rb,8.829250e-01_rb,8.843907e-01_rb,8.857822e-01_rb,8.871059e-01_rb,&
+       & 8.883724e-01_rb,8.895810e-01_rb,8.907384e-01_rb,8.918456e-01_rb,8.929083e-01_rb,&
+       & 8.939284e-01_rb,8.949060e-01_rb,8.958463e-01_rb,8.967486e-01_rb,8.976129e-01_rb,&
+       & 8.984463e-01_rb,8.992439e-01_rb,9.000094e-01_rb,9.007438e-01_rb,9.014496e-01_rb,&
+       & 9.021235e-01_rb,9.027699e-01_rb,9.033859e-01_rb,9.039772e-01_rb,9.045419e-01_rb,&
+       & 9.050819e-01_rb,9.055975e-01_rb,9.060907e-01_rb,9.065607e-01_rb,9.070093e-01_rb,&
+       & 9.074389e-01_rb,9.078475e-01_rb,9.082388e-01_rb,9.086117e-01_rb,9.089678e-01_rb,&
+       & 9.093081e-01_rb,9.096307e-01_rb,9.099410e-01_rb /)
+!     BAND  20
+      asyliq1(:, 20) = (/ &
+       & 8.109692e-01_rb,7.846657e-01_rb,7.881928e-01_rb,8.009509e-01_rb,8.131208e-01_rb,&
+       & 8.230400e-01_rb,8.309448e-01_rb,8.372920e-01_rb,8.424837e-01_rb,8.468166e-01_rb,&
+       & 8.504947e-01_rb,8.536642e-01_rb,8.564256e-01_rb,8.588513e-01_rb,8.610011e-01_rb,&
+       & 8.629122e-01_rb,8.646262e-01_rb,8.661720e-01_rb,8.675752e-01_rb,8.688582e-01_rb,&
+       & 8.700379e-01_rb,8.711300e-01_rb,8.721485e-01_rb,8.731027e-01_rb,8.740010e-01_rb,&
+       & 8.748499e-01_rb,8.756564e-01_rb,8.764239e-01_rb,8.771542e-01_rb,8.778523e-01_rb,&
+       & 8.785211e-01_rb,8.791601e-01_rb,8.797725e-01_rb,8.803589e-01_rb,8.809173e-01_rb,&
+       & 8.814552e-01_rb,8.819705e-01_rb,8.824611e-01_rb,8.829311e-01_rb,8.833791e-01_rb,&
+       & 8.838078e-01_rb,8.842148e-01_rb,8.846044e-01_rb,8.849756e-01_rb,8.853291e-01_rb,&
+       & 8.856645e-01_rb,8.859841e-01_rb,8.862904e-01_rb,8.865801e-01_rb,8.868551e-01_rb,&
+       & 8.871182e-01_rb,8.873673e-01_rb,8.876059e-01_rb,8.878307e-01_rb,8.880462e-01_rb,&
+       & 8.882501e-01_rb,8.884453e-01_rb,8.886339e-01_rb /)
+!     BAND  21
+      asyliq1(:, 21) = (/ &
+       & 7.838510e-01_rb,7.803151e-01_rb,7.980477e-01_rb,8.144160e-01_rb,8.261784e-01_rb,&
+       & 8.344240e-01_rb,8.404278e-01_rb,8.450391e-01_rb,8.487593e-01_rb,8.518741e-01_rb,&
+       & 8.545484e-01_rb,8.568890e-01_rb,8.589560e-01_rb,8.607983e-01_rb,8.624504e-01_rb,&
+       & 8.639408e-01_rb,8.652945e-01_rb,8.665301e-01_rb,8.676634e-01_rb,8.687121e-01_rb,&
+       & 8.696855e-01_rb,8.705933e-01_rb,8.714448e-01_rb,8.722454e-01_rb,8.730014e-01_rb,&
+       & 8.737180e-01_rb,8.743982e-01_rb,8.750436e-01_rb,8.756598e-01_rb,8.762481e-01_rb,&
+       & 8.768089e-01_rb,8.773427e-01_rb,8.778532e-01_rb,8.783434e-01_rb,8.788089e-01_rb,&
+       & 8.792530e-01_rb,8.796784e-01_rb,8.800845e-01_rb,8.804716e-01_rb,8.808411e-01_rb,&
+       & 8.811923e-01_rb,8.815276e-01_rb,8.818472e-01_rb,8.821504e-01_rb,8.824408e-01_rb,&
+       & 8.827155e-01_rb,8.829777e-01_rb,8.832269e-01_rb,8.834631e-01_rb,8.836892e-01_rb,&
+       & 8.839034e-01_rb,8.841075e-01_rb,8.843021e-01_rb,8.844866e-01_rb,8.846631e-01_rb,&
+       & 8.848304e-01_rb,8.849910e-01_rb,8.851425e-01_rb /)
+!     BAND  22
+      asyliq1(:, 22) = (/ &
+       & 7.760783e-01_rb,7.890215e-01_rb,8.090192e-01_rb,8.230252e-01_rb,8.321369e-01_rb,&
+       & 8.384258e-01_rb,8.431529e-01_rb,8.469558e-01_rb,8.501499e-01_rb,8.528899e-01_rb,&
+       & 8.552899e-01_rb,8.573956e-01_rb,8.592570e-01_rb,8.609098e-01_rb,8.623897e-01_rb,&
+       & 8.637169e-01_rb,8.649184e-01_rb,8.660097e-01_rb,8.670096e-01_rb,8.679338e-01_rb,&
+       & 8.687896e-01_rb,8.695880e-01_rb,8.703365e-01_rb,8.710422e-01_rb,8.717092e-01_rb,&
+       & 8.723378e-01_rb,8.729363e-01_rb,8.735063e-01_rb,8.740475e-01_rb,8.745661e-01_rb,&
+       & 8.750560e-01_rb,8.755275e-01_rb,8.759731e-01_rb,8.764000e-01_rb,8.768071e-01_rb,&
+       & 8.771942e-01_rb,8.775628e-01_rb,8.779126e-01_rb,8.782483e-01_rb,8.785626e-01_rb,&
+       & 8.788610e-01_rb,8.791482e-01_rb,8.794180e-01_rb,8.796765e-01_rb,8.799207e-01_rb,&
+       & 8.801522e-01_rb,8.803707e-01_rb,8.805777e-01_rb,8.807749e-01_rb,8.809605e-01_rb,&
+       & 8.811362e-01_rb,8.813047e-01_rb,8.814647e-01_rb,8.816131e-01_rb,8.817588e-01_rb,&
+       & 8.818930e-01_rb,8.820230e-01_rb,8.821445e-01_rb /)
+!     BAND  23
+      asyliq1(:, 23) = (/ &
+       & 7.847907e-01_rb,8.099917e-01_rb,8.257428e-01_rb,8.350423e-01_rb,8.411971e-01_rb,&
+       & 8.457241e-01_rb,8.493010e-01_rb,8.522565e-01_rb,8.547660e-01_rb,8.569311e-01_rb,&
+       & 8.588181e-01_rb,8.604729e-01_rb,8.619296e-01_rb,8.632208e-01_rb,8.643725e-01_rb,&
+       & 8.654050e-01_rb,8.663363e-01_rb,8.671835e-01_rb,8.679590e-01_rb,8.686707e-01_rb,&
+       & 8.693308e-01_rb,8.699433e-01_rb,8.705147e-01_rb,8.710490e-01_rb,8.715497e-01_rb,&
+       & 8.720219e-01_rb,8.724669e-01_rb,8.728849e-01_rb,8.732806e-01_rb,8.736550e-01_rb,&
+       & 8.740099e-01_rb,8.743435e-01_rb,8.746601e-01_rb,8.749610e-01_rb,8.752449e-01_rb,&
+       & 8.755143e-01_rb,8.757688e-01_rb,8.760095e-01_rb,8.762375e-01_rb,8.764532e-01_rb,&
+       & 8.766579e-01_rb,8.768506e-01_rb,8.770323e-01_rb,8.772049e-01_rb,8.773690e-01_rb,&
+       & 8.775226e-01_rb,8.776679e-01_rb,8.778062e-01_rb,8.779360e-01_rb,8.780587e-01_rb,&
+       & 8.781747e-01_rb,8.782852e-01_rb,8.783892e-01_rb,8.784891e-01_rb,8.785824e-01_rb,&
+       & 8.786705e-01_rb,8.787546e-01_rb,8.788336e-01_rb /)
+!     BAND  24
+      asyliq1(:, 24) = (/ &
+       & 8.054324e-01_rb,8.266282e-01_rb,8.378075e-01_rb,8.449848e-01_rb,8.502166e-01_rb,&
+       & 8.542268e-01_rb,8.573477e-01_rb,8.598022e-01_rb,8.617689e-01_rb,8.633859e-01_rb,&
+       & 8.647536e-01_rb,8.659354e-01_rb,8.669807e-01_rb,8.679143e-01_rb,8.687577e-01_rb,&
+       & 8.695222e-01_rb,8.702207e-01_rb,8.708591e-01_rb,8.714446e-01_rb,8.719836e-01_rb,&
+       & 8.724812e-01_rb,8.729426e-01_rb,8.733689e-01_rb,8.737665e-01_rb,8.741373e-01_rb,&
+       & 8.744834e-01_rb,8.748070e-01_rb,8.751131e-01_rb,8.754011e-01_rb,8.756676e-01_rb,&
+       & 8.759219e-01_rb,8.761599e-01_rb,8.763857e-01_rb,8.765984e-01_rb,8.767999e-01_rb,&
+       & 8.769889e-01_rb,8.771669e-01_rb,8.773373e-01_rb,8.774969e-01_rb,8.776469e-01_rb,&
+       & 8.777894e-01_rb,8.779237e-01_rb,8.780505e-01_rb,8.781703e-01_rb,8.782820e-01_rb,&
+       & 8.783886e-01_rb,8.784894e-01_rb,8.785844e-01_rb,8.786736e-01_rb,8.787584e-01_rb,&
+       & 8.788379e-01_rb,8.789130e-01_rb,8.789849e-01_rb,8.790506e-01_rb,8.791141e-01_rb,&
+       & 8.791750e-01_rb,8.792324e-01_rb,8.792867e-01_rb /)
+!     BAND  25
+      asyliq1(:, 25) = (/ &
+       & 8.249534e-01_rb,8.391988e-01_rb,8.474107e-01_rb,8.526860e-01_rb,8.563983e-01_rb,&
+       & 8.592389e-01_rb,8.615144e-01_rb,8.633790e-01_rb,8.649325e-01_rb,8.662504e-01_rb,&
+       & 8.673841e-01_rb,8.683741e-01_rb,8.692495e-01_rb,8.700309e-01_rb,8.707328e-01_rb,&
+       & 8.713650e-01_rb,8.719432e-01_rb,8.724676e-01_rb,8.729498e-01_rb,8.733922e-01_rb,&
+       & 8.737981e-01_rb,8.741745e-01_rb,8.745225e-01_rb,8.748467e-01_rb,8.751512e-01_rb,&
+       & 8.754315e-01_rb,8.756962e-01_rb,8.759450e-01_rb,8.761774e-01_rb,8.763945e-01_rb,&
+       & 8.766021e-01_rb,8.767970e-01_rb,8.769803e-01_rb,8.771511e-01_rb,8.773151e-01_rb,&
+       & 8.774689e-01_rb,8.776147e-01_rb,8.777533e-01_rb,8.778831e-01_rb,8.780050e-01_rb,&
+       & 8.781197e-01_rb,8.782301e-01_rb,8.783323e-01_rb,8.784312e-01_rb,8.785222e-01_rb,&
+       & 8.786096e-01_rb,8.786916e-01_rb,8.787688e-01_rb,8.788411e-01_rb,8.789122e-01_rb,&
+       & 8.789762e-01_rb,8.790373e-01_rb,8.790954e-01_rb,8.791514e-01_rb,8.792018e-01_rb,&
+       & 8.792517e-01_rb,8.792990e-01_rb,8.793429e-01_rb /)
+!     BAND  26
+      asyliq1(:, 26) = (/ &
+       & 8.323091e-01_rb,8.429776e-01_rb,8.498123e-01_rb,8.546929e-01_rb,8.584295e-01_rb,&
+       & 8.613489e-01_rb,8.636324e-01_rb,8.654303e-01_rb,8.668675e-01_rb,8.680404e-01_rb,&
+       & 8.690174e-01_rb,8.698495e-01_rb,8.705666e-01_rb,8.711961e-01_rb,8.717556e-01_rb,&
+       & 8.722546e-01_rb,8.727063e-01_rb,8.731170e-01_rb,8.734933e-01_rb,8.738382e-01_rb,&
+       & 8.741590e-01_rb,8.744525e-01_rb,8.747295e-01_rb,8.749843e-01_rb,8.752210e-01_rb,&
+       & 8.754437e-01_rb,8.756524e-01_rb,8.758472e-01_rb,8.760288e-01_rb,8.762030e-01_rb,&
+       & 8.763603e-01_rb,8.765122e-01_rb,8.766539e-01_rb,8.767894e-01_rb,8.769130e-01_rb,&
+       & 8.770310e-01_rb,8.771422e-01_rb,8.772437e-01_rb,8.773419e-01_rb,8.774355e-01_rb,&
+       & 8.775221e-01_rb,8.776047e-01_rb,8.776802e-01_rb,8.777539e-01_rb,8.778216e-01_rb,&
+       & 8.778859e-01_rb,8.779473e-01_rb,8.780031e-01_rb,8.780562e-01_rb,8.781097e-01_rb,&
+       & 8.781570e-01_rb,8.782021e-01_rb,8.782463e-01_rb,8.782845e-01_rb,8.783235e-01_rb,&
+       & 8.783610e-01_rb,8.783953e-01_rb,8.784273e-01_rb /)
+!     BAND  27
+      asyliq1(:, 27) = (/ &
+       & 8.396448e-01_rb,8.480172e-01_rb,8.535934e-01_rb,8.574145e-01_rb,8.600835e-01_rb,&
+       & 8.620347e-01_rb,8.635500e-01_rb,8.648003e-01_rb,8.658758e-01_rb,8.668248e-01_rb,&
+       & 8.676697e-01_rb,8.684220e-01_rb,8.690893e-01_rb,8.696807e-01_rb,8.702046e-01_rb,&
+       & 8.706676e-01_rb,8.710798e-01_rb,8.714478e-01_rb,8.717778e-01_rb,8.720747e-01_rb,&
+       & 8.723431e-01_rb,8.725889e-01_rb,8.728144e-01_rb,8.730201e-01_rb,8.732129e-01_rb,&
+       & 8.733907e-01_rb,8.735541e-01_rb,8.737100e-01_rb,8.738533e-01_rb,8.739882e-01_rb,&
+       & 8.741164e-01_rb,8.742362e-01_rb,8.743485e-01_rb,8.744530e-01_rb,8.745512e-01_rb,&
+       & 8.746471e-01_rb,8.747373e-01_rb,8.748186e-01_rb,8.748973e-01_rb,8.749732e-01_rb,&
+       & 8.750443e-01_rb,8.751105e-01_rb,8.751747e-01_rb,8.752344e-01_rb,8.752902e-01_rb,&
+       & 8.753412e-01_rb,8.753917e-01_rb,8.754393e-01_rb,8.754843e-01_rb,8.755282e-01_rb,&
+       & 8.755662e-01_rb,8.756039e-01_rb,8.756408e-01_rb,8.756722e-01_rb,8.757072e-01_rb,&
+       & 8.757352e-01_rb,8.757653e-01_rb,8.757932e-01_rb /)
+!     BAND  28
+      asyliq1(:, 28) = (/ &
+       & 8.374590e-01_rb,8.465669e-01_rb,8.518701e-01_rb,8.547627e-01_rb,8.565745e-01_rb,&
+       & 8.579065e-01_rb,8.589717e-01_rb,8.598632e-01_rb,8.606363e-01_rb,8.613268e-01_rb,&
+       & 8.619560e-01_rb,8.625340e-01_rb,8.630689e-01_rb,8.635601e-01_rb,8.640084e-01_rb,&
+       & 8.644180e-01_rb,8.647885e-01_rb,8.651220e-01_rb,8.654218e-01_rb,8.656908e-01_rb,&
+       & 8.659294e-01_rb,8.661422e-01_rb,8.663334e-01_rb,8.665037e-01_rb,8.666543e-01_rb,&
+       & 8.667913e-01_rb,8.669156e-01_rb,8.670242e-01_rb,8.671249e-01_rb,8.672161e-01_rb,&
+       & 8.672993e-01_rb,8.673733e-01_rb,8.674457e-01_rb,8.675103e-01_rb,8.675713e-01_rb,&
+       & 8.676267e-01_rb,8.676798e-01_rb,8.677286e-01_rb,8.677745e-01_rb,8.678178e-01_rb,&
+       & 8.678601e-01_rb,8.678986e-01_rb,8.679351e-01_rb,8.679693e-01_rb,8.680013e-01_rb,&
+       & 8.680334e-01_rb,8.680624e-01_rb,8.680915e-01_rb,8.681178e-01_rb,8.681428e-01_rb,&
+       & 8.681654e-01_rb,8.681899e-01_rb,8.682103e-01_rb,8.682317e-01_rb,8.682498e-01_rb,&
+       & 8.682677e-01_rb,8.682861e-01_rb,8.683041e-01_rb /)
+!     BAND  29
+      asyliq1(:, 29) = (/ &
+       & 7.877069e-01_rb,8.244281e-01_rb,8.367971e-01_rb,8.409074e-01_rb,8.429859e-01_rb,&
+       & 8.454386e-01_rb,8.489350e-01_rb,8.534141e-01_rb,8.585814e-01_rb,8.641267e-01_rb,&
+       & 8.697999e-01_rb,8.754223e-01_rb,8.808785e-01_rb,8.860944e-01_rb,8.910354e-01_rb,&
+       & 8.956837e-01_rb,9.000392e-01_rb,9.041091e-01_rb,9.079071e-01_rb,9.114479e-01_rb,&
+       & 9.147462e-01_rb,9.178234e-01_rb,9.206903e-01_rb,9.233663e-01_rb,9.258668e-01_rb,&
+       & 9.282006e-01_rb,9.303847e-01_rb,9.324288e-01_rb,9.343418e-01_rb,9.361356e-01_rb,&
+       & 9.378176e-01_rb,9.393939e-01_rb,9.408736e-01_rb,9.422622e-01_rb,9.435670e-01_rb,&
+       & 9.447900e-01_rb,9.459395e-01_rb,9.470199e-01_rb,9.480335e-01_rb,9.489852e-01_rb,&
+       & 9.498782e-01_rb,9.507168e-01_rb,9.515044e-01_rb,9.522470e-01_rb,9.529409e-01_rb,&
+       & 9.535946e-01_rb,9.542071e-01_rb,9.547838e-01_rb,9.553256e-01_rb,9.558351e-01_rb,&
+       & 9.563139e-01_rb,9.567660e-01_rb,9.571915e-01_rb,9.575901e-01_rb,9.579685e-01_rb,&
+       & 9.583239e-01_rb,9.586602e-01_rb,9.589766e-01_rb /)
+
+
+! Spherical Ice Particle Parameterization
+! extinction units (ext coef/iwc): [(m^-1)/(g m^-3)]
+      extice2(:, 16) = (/ &
+! band 16
+        & 4.101824e-01_rb,2.435514e-01_rb,1.713697e-01_rb,1.314865e-01_rb,1.063406e-01_rb,&
+        & 8.910701e-02_rb,7.659480e-02_rb,6.711784e-02_rb,5.970353e-02_rb,5.375249e-02_rb,&
+        & 4.887577e-02_rb,4.481025e-02_rb,4.137171e-02_rb,3.842744e-02_rb,3.587948e-02_rb,&
+        & 3.365396e-02_rb,3.169419e-02_rb,2.995593e-02_rb,2.840419e-02_rb,2.701091e-02_rb,&
+        & 2.575336e-02_rb,2.461293e-02_rb,2.357423e-02_rb,2.262443e-02_rb,2.175276e-02_rb,&
+        & 2.095012e-02_rb,2.020875e-02_rb,1.952199e-02_rb,1.888412e-02_rb,1.829018e-02_rb,&
+        & 1.773586e-02_rb,1.721738e-02_rb,1.673144e-02_rb,1.627510e-02_rb,1.584579e-02_rb,&
+        & 1.544122e-02_rb,1.505934e-02_rb,1.469833e-02_rb,1.435654e-02_rb,1.403251e-02_rb,&
+        & 1.372492e-02_rb,1.343255e-02_rb,1.315433e-02_rb /)
+      extice2(:, 17) = (/ &
+! band 17
+        & 3.836650e-01_rb,2.304055e-01_rb,1.637265e-01_rb,1.266681e-01_rb,1.031602e-01_rb,&
+        & 8.695191e-02_rb,7.511544e-02_rb,6.610009e-02_rb,5.900909e-02_rb,5.328833e-02_rb,&
+        & 4.857728e-02_rb,4.463133e-02_rb,4.127880e-02_rb,3.839567e-02_rb,3.589013e-02_rb,&
+        & 3.369280e-02_rb,3.175027e-02_rb,3.002079e-02_rb,2.847121e-02_rb,2.707493e-02_rb,&
+        & 2.581031e-02_rb,2.465962e-02_rb,2.360815e-02_rb,2.264363e-02_rb,2.175571e-02_rb,&
+        & 2.093563e-02_rb,2.017592e-02_rb,1.947015e-02_rb,1.881278e-02_rb,1.819901e-02_rb,&
+        & 1.762463e-02_rb,1.708598e-02_rb,1.657982e-02_rb,1.610330e-02_rb,1.565390e-02_rb,&
+        & 1.522937e-02_rb,1.482768e-02_rb,1.444706e-02_rb,1.408588e-02_rb,1.374270e-02_rb,&
+        & 1.341619e-02_rb,1.310517e-02_rb,1.280857e-02_rb /)
+      extice2(:, 18) = (/ &
+! band 18
+        & 4.152673e-01_rb,2.436816e-01_rb,1.702243e-01_rb,1.299704e-01_rb,1.047528e-01_rb,&
+        & 8.756039e-02_rb,7.513327e-02_rb,6.575690e-02_rb,5.844616e-02_rb,5.259609e-02_rb,&
+        & 4.781531e-02_rb,4.383980e-02_rb,4.048517e-02_rb,3.761891e-02_rb,3.514342e-02_rb,&
+        & 3.298525e-02_rb,3.108814e-02_rb,2.940825e-02_rb,2.791096e-02_rb,2.656858e-02_rb,&
+        & 2.535869e-02_rb,2.426297e-02_rb,2.326627e-02_rb,2.235602e-02_rb,2.152164e-02_rb,&
+        & 2.075420e-02_rb,2.004613e-02_rb,1.939091e-02_rb,1.878296e-02_rb,1.821744e-02_rb,&
+        & 1.769015e-02_rb,1.719741e-02_rb,1.673600e-02_rb,1.630308e-02_rb,1.589615e-02_rb,&
+        & 1.551298e-02_rb,1.515159e-02_rb,1.481021e-02_rb,1.448726e-02_rb,1.418131e-02_rb,&
+        & 1.389109e-02_rb,1.361544e-02_rb,1.335330e-02_rb /)
+      extice2(:, 19) = (/ &
+! band 19
+        & 3.873250e-01_rb,2.331609e-01_rb,1.655002e-01_rb,1.277753e-01_rb,1.038247e-01_rb,&
+        & 8.731780e-02_rb,7.527638e-02_rb,6.611873e-02_rb,5.892850e-02_rb,5.313885e-02_rb,&
+        & 4.838068e-02_rb,4.440356e-02_rb,4.103167e-02_rb,3.813804e-02_rb,3.562870e-02_rb,&
+        & 3.343269e-02_rb,3.149539e-02_rb,2.977414e-02_rb,2.823510e-02_rb,2.685112e-02_rb,&
+        & 2.560015e-02_rb,2.446411e-02_rb,2.342805e-02_rb,2.247948e-02_rb,2.160789e-02_rb,&
+        & 2.080438e-02_rb,2.006139e-02_rb,1.937238e-02_rb,1.873177e-02_rb,1.813469e-02_rb,&
+        & 1.757689e-02_rb,1.705468e-02_rb,1.656479e-02_rb,1.610435e-02_rb,1.567081e-02_rb,&
+        & 1.526192e-02_rb,1.487565e-02_rb,1.451020e-02_rb,1.416396e-02_rb,1.383546e-02_rb,&
+        & 1.352339e-02_rb,1.322657e-02_rb,1.294392e-02_rb /)
+      extice2(:, 20) = (/ &
+! band 20
+        & 3.784280e-01_rb,2.291396e-01_rb,1.632551e-01_rb,1.263775e-01_rb,1.028944e-01_rb,&
+        & 8.666975e-02_rb,7.480952e-02_rb,6.577335e-02_rb,5.866714e-02_rb,5.293694e-02_rb,&
+        & 4.822153e-02_rb,4.427547e-02_rb,4.092626e-02_rb,3.804918e-02_rb,3.555184e-02_rb,&
+        & 3.336440e-02_rb,3.143307e-02_rb,2.971577e-02_rb,2.817912e-02_rb,2.679632e-02_rb,&
+        & 2.554558e-02_rb,2.440903e-02_rb,2.337187e-02_rb,2.242173e-02_rb,2.154821e-02_rb,&
+        & 2.074249e-02_rb,1.999706e-02_rb,1.930546e-02_rb,1.866212e-02_rb,1.806221e-02_rb,&
+        & 1.750152e-02_rb,1.697637e-02_rb,1.648352e-02_rb,1.602010e-02_rb,1.558358e-02_rb,&
+        & 1.517172e-02_rb,1.478250e-02_rb,1.441413e-02_rb,1.406498e-02_rb,1.373362e-02_rb,&
+        & 1.341872e-02_rb,1.311911e-02_rb,1.283371e-02_rb /)
+      extice2(:, 21) = (/ &
+! band 21
+        & 3.719909e-01_rb,2.259490e-01_rb,1.613144e-01_rb,1.250648e-01_rb,1.019462e-01_rb,&
+        & 8.595358e-02_rb,7.425064e-02_rb,6.532618e-02_rb,5.830218e-02_rb,5.263421e-02_rb,&
+        & 4.796697e-02_rb,4.405891e-02_rb,4.074013e-02_rb,3.788776e-02_rb,3.541071e-02_rb,&
+        & 3.324008e-02_rb,3.132280e-02_rb,2.961733e-02_rb,2.809071e-02_rb,2.671645e-02_rb,&
+        & 2.547302e-02_rb,2.434276e-02_rb,2.331102e-02_rb,2.236558e-02_rb,2.149614e-02_rb,&
+        & 2.069397e-02_rb,1.995163e-02_rb,1.926272e-02_rb,1.862174e-02_rb,1.802389e-02_rb,&
+        & 1.746500e-02_rb,1.694142e-02_rb,1.644994e-02_rb,1.598772e-02_rb,1.555225e-02_rb,&
+        & 1.514129e-02_rb,1.475286e-02_rb,1.438515e-02_rb,1.403659e-02_rb,1.370572e-02_rb,&
+        & 1.339124e-02_rb,1.309197e-02_rb,1.280685e-02_rb /)
+      extice2(:, 22) = (/ &
+! band 22
+        & 3.713158e-01_rb,2.253816e-01_rb,1.608461e-01_rb,1.246718e-01_rb,1.016109e-01_rb,&
+        & 8.566332e-02_rb,7.399666e-02_rb,6.510199e-02_rb,5.810290e-02_rb,5.245608e-02_rb,&
+        & 4.780702e-02_rb,4.391478e-02_rb,4.060989e-02_rb,3.776982e-02_rb,3.530374e-02_rb,&
+        & 3.314296e-02_rb,3.123458e-02_rb,2.953719e-02_rb,2.801794e-02_rb,2.665043e-02_rb,&
+        & 2.541321e-02_rb,2.428868e-02_rb,2.326224e-02_rb,2.232173e-02_rb,2.145688e-02_rb,&
+        & 2.065899e-02_rb,1.992067e-02_rb,1.923552e-02_rb,1.859808e-02_rb,1.800356e-02_rb,&
+        & 1.744782e-02_rb,1.692721e-02_rb,1.643855e-02_rb,1.597900e-02_rb,1.554606e-02_rb,&
+        & 1.513751e-02_rb,1.475137e-02_rb,1.438586e-02_rb,1.403938e-02_rb,1.371050e-02_rb,&
+        & 1.339793e-02_rb,1.310050e-02_rb,1.281713e-02_rb /)
+      extice2(:, 23) = (/ &
+! band 23
+        & 3.605883e-01_rb,2.204388e-01_rb,1.580431e-01_rb,1.229033e-01_rb,1.004203e-01_rb,&
+        & 8.482616e-02_rb,7.338941e-02_rb,6.465105e-02_rb,5.776176e-02_rb,5.219398e-02_rb,&
+        & 4.760288e-02_rb,4.375369e-02_rb,4.048111e-02_rb,3.766539e-02_rb,3.521771e-02_rb,&
+        & 3.307079e-02_rb,3.117277e-02_rb,2.948303e-02_rb,2.796929e-02_rb,2.660560e-02_rb,&
+        & 2.537086e-02_rb,2.424772e-02_rb,2.322182e-02_rb,2.228114e-02_rb,2.141556e-02_rb,&
+        & 2.061649e-02_rb,1.987661e-02_rb,1.918962e-02_rb,1.855009e-02_rb,1.795330e-02_rb,&
+        & 1.739514e-02_rb,1.687199e-02_rb,1.638069e-02_rb,1.591845e-02_rb,1.548276e-02_rb,&
+        & 1.507143e-02_rb,1.468249e-02_rb,1.431416e-02_rb,1.396486e-02_rb,1.363318e-02_rb,&
+        & 1.331781e-02_rb,1.301759e-02_rb,1.273147e-02_rb /)
+      extice2(:, 24) = (/ &
+! band 24
+        & 3.527890e-01_rb,2.168469e-01_rb,1.560090e-01_rb,1.216216e-01_rb,9.955787e-02_rb,&
+        & 8.421942e-02_rb,7.294827e-02_rb,6.432192e-02_rb,5.751081e-02_rb,5.199888e-02_rb,&
+        & 4.744835e-02_rb,4.362899e-02_rb,4.037847e-02_rb,3.757910e-02_rb,3.514351e-02_rb,&
+        & 3.300546e-02_rb,3.111382e-02_rb,2.942853e-02_rb,2.791775e-02_rb,2.655584e-02_rb,&
+        & 2.532195e-02_rb,2.419892e-02_rb,2.317255e-02_rb,2.223092e-02_rb,2.136402e-02_rb,&
+        & 2.056334e-02_rb,1.982160e-02_rb,1.913258e-02_rb,1.849087e-02_rb,1.789178e-02_rb,&
+        & 1.733124e-02_rb,1.680565e-02_rb,1.631187e-02_rb,1.584711e-02_rb,1.540889e-02_rb,&
+        & 1.499502e-02_rb,1.460354e-02_rb,1.423269e-02_rb,1.388088e-02_rb,1.354670e-02_rb,&
+        & 1.322887e-02_rb,1.292620e-02_rb,1.263767e-02_rb /)
+      extice2(:, 25) = (/ &
+! band 25
+        & 3.477874e-01_rb,2.143515e-01_rb,1.544887e-01_rb,1.205942e-01_rb,9.881779e-02_rb,&
+        & 8.366261e-02_rb,7.251586e-02_rb,6.397790e-02_rb,5.723183e-02_rb,5.176908e-02_rb,&
+        & 4.725658e-02_rb,4.346715e-02_rb,4.024055e-02_rb,3.746055e-02_rb,3.504080e-02_rb,&
+        & 3.291583e-02_rb,3.103507e-02_rb,2.935891e-02_rb,2.785582e-02_rb,2.650042e-02_rb,&
+        & 2.527206e-02_rb,2.415376e-02_rb,2.313142e-02_rb,2.219326e-02_rb,2.132934e-02_rb,&
+        & 2.053122e-02_rb,1.979169e-02_rb,1.910456e-02_rb,1.846448e-02_rb,1.786680e-02_rb,&
+        & 1.730745e-02_rb,1.678289e-02_rb,1.628998e-02_rb,1.582595e-02_rb,1.538835e-02_rb,&
+        & 1.497499e-02_rb,1.458393e-02_rb,1.421341e-02_rb,1.386187e-02_rb,1.352788e-02_rb,&
+        & 1.321019e-02_rb,1.290762e-02_rb,1.261913e-02_rb /)
+      extice2(:, 26) = (/ &
+! band 26
+        & 3.453721e-01_rb,2.130744e-01_rb,1.536698e-01_rb,1.200140e-01_rb,9.838078e-02_rb,&
+        & 8.331940e-02_rb,7.223803e-02_rb,6.374775e-02_rb,5.703770e-02_rb,5.160290e-02_rb,&
+        & 4.711259e-02_rb,4.334110e-02_rb,4.012923e-02_rb,3.736150e-02_rb,3.495208e-02_rb,&
+        & 3.283589e-02_rb,3.096267e-02_rb,2.929302e-02_rb,2.779560e-02_rb,2.644517e-02_rb,&
+        & 2.522119e-02_rb,2.410677e-02_rb,2.308788e-02_rb,2.215281e-02_rb,2.129165e-02_rb,&
+        & 2.049602e-02_rb,1.975874e-02_rb,1.907365e-02_rb,1.843542e-02_rb,1.783943e-02_rb,&
+        & 1.728162e-02_rb,1.675847e-02_rb,1.626685e-02_rb,1.580401e-02_rb,1.536750e-02_rb,&
+        & 1.495515e-02_rb,1.456502e-02_rb,1.419537e-02_rb,1.384463e-02_rb,1.351139e-02_rb,&
+        & 1.319438e-02_rb,1.289246e-02_rb,1.260456e-02_rb /)
+      extice2(:, 27) = (/ &
+! band 27
+        & 3.417883e-01_rb,2.113379e-01_rb,1.526395e-01_rb,1.193347e-01_rb,9.790253e-02_rb,&
+        & 8.296715e-02_rb,7.196979e-02_rb,6.353806e-02_rb,5.687024e-02_rb,5.146670e-02_rb,&
+        & 4.700001e-02_rb,4.324667e-02_rb,4.004894e-02_rb,3.729233e-02_rb,3.489172e-02_rb,&
+        & 3.278257e-02_rb,3.091499e-02_rb,2.924987e-02_rb,2.775609e-02_rb,2.640859e-02_rb,&
+        & 2.518695e-02_rb,2.407439e-02_rb,2.305697e-02_rb,2.212303e-02_rb,2.126273e-02_rb,&
+        & 2.046774e-02_rb,1.973090e-02_rb,1.904610e-02_rb,1.840801e-02_rb,1.781204e-02_rb,&
+        & 1.725417e-02_rb,1.673086e-02_rb,1.623902e-02_rb,1.577590e-02_rb,1.533906e-02_rb,&
+        & 1.492634e-02_rb,1.453580e-02_rb,1.416571e-02_rb,1.381450e-02_rb,1.348078e-02_rb,&
+        & 1.316327e-02_rb,1.286082e-02_rb,1.257240e-02_rb /)
+      extice2(:, 28) = (/ &
+! band 28
+        & 3.416111e-01_rb,2.114124e-01_rb,1.527734e-01_rb,1.194809e-01_rb,9.804612e-02_rb,&
+        & 8.310287e-02_rb,7.209595e-02_rb,6.365442e-02_rb,5.697710e-02_rb,5.156460e-02_rb,&
+        & 4.708957e-02_rb,4.332850e-02_rb,4.012361e-02_rb,3.736037e-02_rb,3.495364e-02_rb,&
+        & 3.283879e-02_rb,3.096593e-02_rb,2.929589e-02_rb,2.779751e-02_rb,2.644571e-02_rb,&
+        & 2.522004e-02_rb,2.410369e-02_rb,2.308271e-02_rb,2.214542e-02_rb,2.128195e-02_rb,&
+        & 2.048396e-02_rb,1.974429e-02_rb,1.905679e-02_rb,1.841614e-02_rb,1.781774e-02_rb,&
+        & 1.725754e-02_rb,1.673203e-02_rb,1.623807e-02_rb,1.577293e-02_rb,1.533416e-02_rb,&
+        & 1.491958e-02_rb,1.452727e-02_rb,1.415547e-02_rb,1.380262e-02_rb,1.346732e-02_rb,&
+        & 1.314830e-02_rb,1.284439e-02_rb,1.255456e-02_rb /)
+      extice2(:, 29) = (/ &
+! band 29
+        & 4.196611e-01_rb,2.493642e-01_rb,1.761261e-01_rb,1.357197e-01_rb,1.102161e-01_rb,&
+        & 9.269376e-02_rb,7.992985e-02_rb,7.022538e-02_rb,6.260168e-02_rb,5.645603e-02_rb,&
+        & 5.139732e-02_rb,4.716088e-02_rb,4.356133e-02_rb,4.046498e-02_rb,3.777303e-02_rb,&
+        & 3.541094e-02_rb,3.332137e-02_rb,3.145954e-02_rb,2.978998e-02_rb,2.828419e-02_rb,&
+        & 2.691905e-02_rb,2.567559e-02_rb,2.453811e-02_rb,2.349350e-02_rb,2.253072e-02_rb,&
+        & 2.164042e-02_rb,2.081464e-02_rb,2.004652e-02_rb,1.933015e-02_rb,1.866041e-02_rb,&
+        & 1.803283e-02_rb,1.744348e-02_rb,1.688894e-02_rb,1.636616e-02_rb,1.587244e-02_rb,&
+        & 1.540539e-02_rb,1.496287e-02_rb,1.454295e-02_rb,1.414392e-02_rb,1.376423e-02_rb,&
+        & 1.340247e-02_rb,1.305739e-02_rb,1.272784e-02_rb /)
+
+! single-scattering albedo: unitless
+      ssaice2(:, 16) = (/ &
+! band 16
+        & 6.630615e-01_rb,6.451169e-01_rb,6.333696e-01_rb,6.246927e-01_rb,6.178420e-01_rb,&
+        & 6.121976e-01_rb,6.074069e-01_rb,6.032505e-01_rb,5.995830e-01_rb,5.963030e-01_rb,&
+        & 5.933372e-01_rb,5.906311e-01_rb,5.881427e-01_rb,5.858395e-01_rb,5.836955e-01_rb,&
+        & 5.816896e-01_rb,5.798046e-01_rb,5.780264e-01_rb,5.763429e-01_rb,5.747441e-01_rb,&
+        & 5.732213e-01_rb,5.717672e-01_rb,5.703754e-01_rb,5.690403e-01_rb,5.677571e-01_rb,&
+        & 5.665215e-01_rb,5.653297e-01_rb,5.641782e-01_rb,5.630643e-01_rb,5.619850e-01_rb,&
+        & 5.609381e-01_rb,5.599214e-01_rb,5.589328e-01_rb,5.579707e-01_rb,5.570333e-01_rb,&
+        & 5.561193e-01_rb,5.552272e-01_rb,5.543558e-01_rb,5.535041e-01_rb,5.526708e-01_rb,&
+        & 5.518551e-01_rb,5.510561e-01_rb,5.502729e-01_rb /)
+      ssaice2(:, 17) = (/ &
+! band 17
+        & 7.689749e-01_rb,7.398171e-01_rb,7.205819e-01_rb,7.065690e-01_rb,6.956928e-01_rb,&
+        & 6.868989e-01_rb,6.795813e-01_rb,6.733606e-01_rb,6.679838e-01_rb,6.632742e-01_rb,&
+        & 6.591036e-01_rb,6.553766e-01_rb,6.520197e-01_rb,6.489757e-01_rb,6.461991e-01_rb,&
+        & 6.436531e-01_rb,6.413075e-01_rb,6.391375e-01_rb,6.371221e-01_rb,6.352438e-01_rb,&
+        & 6.334876e-01_rb,6.318406e-01_rb,6.302918e-01_rb,6.288315e-01_rb,6.274512e-01_rb,&
+        & 6.261436e-01_rb,6.249022e-01_rb,6.237211e-01_rb,6.225953e-01_rb,6.215201e-01_rb,&
+        & 6.204914e-01_rb,6.195055e-01_rb,6.185592e-01_rb,6.176492e-01_rb,6.167730e-01_rb,&
+        & 6.159280e-01_rb,6.151120e-01_rb,6.143228e-01_rb,6.135587e-01_rb,6.128177e-01_rb,&
+        & 6.120984e-01_rb,6.113993e-01_rb,6.107189e-01_rb /)
+      ssaice2(:, 18) = (/ &
+! band 18
+        & 9.956167e-01_rb,9.814770e-01_rb,9.716104e-01_rb,9.639746e-01_rb,9.577179e-01_rb,&
+        & 9.524010e-01_rb,9.477672e-01_rb,9.436527e-01_rb,9.399467e-01_rb,9.365708e-01_rb,&
+        & 9.334672e-01_rb,9.305921e-01_rb,9.279118e-01_rb,9.253993e-01_rb,9.230330e-01_rb,&
+        & 9.207954e-01_rb,9.186719e-01_rb,9.166501e-01_rb,9.147199e-01_rb,9.128722e-01_rb,&
+        & 9.110997e-01_rb,9.093956e-01_rb,9.077544e-01_rb,9.061708e-01_rb,9.046406e-01_rb,&
+        & 9.031598e-01_rb,9.017248e-01_rb,9.003326e-01_rb,8.989804e-01_rb,8.976655e-01_rb,&
+        & 8.963857e-01_rb,8.951389e-01_rb,8.939233e-01_rb,8.927370e-01_rb,8.915785e-01_rb,&
+        & 8.904464e-01_rb,8.893392e-01_rb,8.882559e-01_rb,8.871951e-01_rb,8.861559e-01_rb,&
+        & 8.851373e-01_rb,8.841383e-01_rb,8.831581e-01_rb /)
+      ssaice2(:, 19) = (/ &
+! band 19
+        & 9.723177e-01_rb,9.452119e-01_rb,9.267592e-01_rb,9.127393e-01_rb,9.014238e-01_rb,&
+        & 8.919334e-01_rb,8.837584e-01_rb,8.765773e-01_rb,8.701736e-01_rb,8.643950e-01_rb,&
+        & 8.591299e-01_rb,8.542942e-01_rb,8.498230e-01_rb,8.456651e-01_rb,8.417794e-01_rb,&
+        & 8.381324e-01_rb,8.346964e-01_rb,8.314484e-01_rb,8.283687e-01_rb,8.254408e-01_rb,&
+        & 8.226505e-01_rb,8.199854e-01_rb,8.174348e-01_rb,8.149891e-01_rb,8.126403e-01_rb,&
+        & 8.103808e-01_rb,8.082041e-01_rb,8.061044e-01_rb,8.040765e-01_rb,8.021156e-01_rb,&
+        & 8.002174e-01_rb,7.983781e-01_rb,7.965941e-01_rb,7.948622e-01_rb,7.931795e-01_rb,&
+        & 7.915432e-01_rb,7.899508e-01_rb,7.884002e-01_rb,7.868891e-01_rb,7.854156e-01_rb,&
+        & 7.839779e-01_rb,7.825742e-01_rb,7.812031e-01_rb /)
+      ssaice2(:, 20) = (/ &
+! band 20
+        & 9.933294e-01_rb,9.860917e-01_rb,9.811564e-01_rb,9.774008e-01_rb,9.743652e-01_rb,&
+        & 9.718155e-01_rb,9.696159e-01_rb,9.676810e-01_rb,9.659531e-01_rb,9.643915e-01_rb,&
+        & 9.629667e-01_rb,9.616561e-01_rb,9.604426e-01_rb,9.593125e-01_rb,9.582548e-01_rb,&
+        & 9.572607e-01_rb,9.563227e-01_rb,9.554347e-01_rb,9.545915e-01_rb,9.537888e-01_rb,&
+        & 9.530226e-01_rb,9.522898e-01_rb,9.515874e-01_rb,9.509130e-01_rb,9.502643e-01_rb,&
+        & 9.496394e-01_rb,9.490366e-01_rb,9.484542e-01_rb,9.478910e-01_rb,9.473456e-01_rb,&
+        & 9.468169e-01_rb,9.463039e-01_rb,9.458056e-01_rb,9.453212e-01_rb,9.448499e-01_rb,&
+        & 9.443910e-01_rb,9.439438e-01_rb,9.435077e-01_rb,9.430821e-01_rb,9.426666e-01_rb,&
+        & 9.422607e-01_rb,9.418638e-01_rb,9.414756e-01_rb /)
+      ssaice2(:, 21) = (/ &
+! band 21
+        & 9.900787e-01_rb,9.828880e-01_rb,9.779258e-01_rb,9.741173e-01_rb,9.710184e-01_rb,&
+        & 9.684012e-01_rb,9.661332e-01_rb,9.641301e-01_rb,9.623352e-01_rb,9.607083e-01_rb,&
+        & 9.592198e-01_rb,9.578474e-01_rb,9.565739e-01_rb,9.553856e-01_rb,9.542715e-01_rb,&
+        & 9.532226e-01_rb,9.522314e-01_rb,9.512919e-01_rb,9.503986e-01_rb,9.495472e-01_rb,&
+        & 9.487337e-01_rb,9.479549e-01_rb,9.472077e-01_rb,9.464897e-01_rb,9.457985e-01_rb,&
+        & 9.451322e-01_rb,9.444890e-01_rb,9.438673e-01_rb,9.432656e-01_rb,9.426826e-01_rb,&
+        & 9.421173e-01_rb,9.415684e-01_rb,9.410351e-01_rb,9.405164e-01_rb,9.400115e-01_rb,&
+        & 9.395198e-01_rb,9.390404e-01_rb,9.385728e-01_rb,9.381164e-01_rb,9.376707e-01_rb,&
+        & 9.372350e-01_rb,9.368091e-01_rb,9.363923e-01_rb /)
+      ssaice2(:, 22) = (/ &
+! band 22
+        & 9.986793e-01_rb,9.985239e-01_rb,9.983911e-01_rb,9.982715e-01_rb,9.981606e-01_rb,&
+        & 9.980562e-01_rb,9.979567e-01_rb,9.978613e-01_rb,9.977691e-01_rb,9.976798e-01_rb,&
+        & 9.975929e-01_rb,9.975081e-01_rb,9.974251e-01_rb,9.973438e-01_rb,9.972640e-01_rb,&
+        & 9.971855e-01_rb,9.971083e-01_rb,9.970322e-01_rb,9.969571e-01_rb,9.968830e-01_rb,&
+        & 9.968099e-01_rb,9.967375e-01_rb,9.966660e-01_rb,9.965951e-01_rb,9.965250e-01_rb,&
+        & 9.964555e-01_rb,9.963867e-01_rb,9.963185e-01_rb,9.962508e-01_rb,9.961836e-01_rb,&
+        & 9.961170e-01_rb,9.960508e-01_rb,9.959851e-01_rb,9.959198e-01_rb,9.958550e-01_rb,&
+        & 9.957906e-01_rb,9.957266e-01_rb,9.956629e-01_rb,9.955997e-01_rb,9.955367e-01_rb,&
+        & 9.954742e-01_rb,9.954119e-01_rb,9.953500e-01_rb /)
+      ssaice2(:, 23) = (/ &
+! band 23
+        & 9.997944e-01_rb,9.997791e-01_rb,9.997664e-01_rb,9.997547e-01_rb,9.997436e-01_rb,&
+        & 9.997327e-01_rb,9.997219e-01_rb,9.997110e-01_rb,9.996999e-01_rb,9.996886e-01_rb,&
+        & 9.996771e-01_rb,9.996653e-01_rb,9.996533e-01_rb,9.996409e-01_rb,9.996282e-01_rb,&
+        & 9.996152e-01_rb,9.996019e-01_rb,9.995883e-01_rb,9.995743e-01_rb,9.995599e-01_rb,&
+        & 9.995453e-01_rb,9.995302e-01_rb,9.995149e-01_rb,9.994992e-01_rb,9.994831e-01_rb,&
+        & 9.994667e-01_rb,9.994500e-01_rb,9.994329e-01_rb,9.994154e-01_rb,9.993976e-01_rb,&
+        & 9.993795e-01_rb,9.993610e-01_rb,9.993422e-01_rb,9.993230e-01_rb,9.993035e-01_rb,&
+        & 9.992837e-01_rb,9.992635e-01_rb,9.992429e-01_rb,9.992221e-01_rb,9.992008e-01_rb,&
+        & 9.991793e-01_rb,9.991574e-01_rb,9.991352e-01_rb /)
+      ssaice2(:, 24) = (/ &
+! band 24
+        & 9.999949e-01_rb,9.999947e-01_rb,9.999943e-01_rb,9.999939e-01_rb,9.999934e-01_rb,&
+        & 9.999927e-01_rb,9.999920e-01_rb,9.999913e-01_rb,9.999904e-01_rb,9.999895e-01_rb,&
+        & 9.999885e-01_rb,9.999874e-01_rb,9.999863e-01_rb,9.999851e-01_rb,9.999838e-01_rb,&
+        & 9.999824e-01_rb,9.999810e-01_rb,9.999795e-01_rb,9.999780e-01_rb,9.999764e-01_rb,&
+        & 9.999747e-01_rb,9.999729e-01_rb,9.999711e-01_rb,9.999692e-01_rb,9.999673e-01_rb,&
+        & 9.999653e-01_rb,9.999632e-01_rb,9.999611e-01_rb,9.999589e-01_rb,9.999566e-01_rb,&
+        & 9.999543e-01_rb,9.999519e-01_rb,9.999495e-01_rb,9.999470e-01_rb,9.999444e-01_rb,&
+        & 9.999418e-01_rb,9.999392e-01_rb,9.999364e-01_rb,9.999336e-01_rb,9.999308e-01_rb,&
+        & 9.999279e-01_rb,9.999249e-01_rb,9.999219e-01_rb /)
+      ssaice2(:, 25) = (/ &
+! band 25
+        & 9.999997e-01_rb,9.999997e-01_rb,9.999997e-01_rb,9.999996e-01_rb,9.999996e-01_rb,&
+        & 9.999995e-01_rb,9.999994e-01_rb,9.999993e-01_rb,9.999993e-01_rb,9.999992e-01_rb,&
+        & 9.999991e-01_rb,9.999989e-01_rb,9.999988e-01_rb,9.999987e-01_rb,9.999986e-01_rb,&
+        & 9.999984e-01_rb,9.999983e-01_rb,9.999981e-01_rb,9.999980e-01_rb,9.999978e-01_rb,&
+        & 9.999976e-01_rb,9.999974e-01_rb,9.999972e-01_rb,9.999971e-01_rb,9.999969e-01_rb,&
+        & 9.999966e-01_rb,9.999964e-01_rb,9.999962e-01_rb,9.999960e-01_rb,9.999957e-01_rb,&
+        & 9.999955e-01_rb,9.999953e-01_rb,9.999950e-01_rb,9.999947e-01_rb,9.999945e-01_rb,&
+        & 9.999942e-01_rb,9.999939e-01_rb,9.999936e-01_rb,9.999934e-01_rb,9.999931e-01_rb,&
+        & 9.999928e-01_rb,9.999925e-01_rb,9.999921e-01_rb /)
+      ssaice2(:, 26) = (/ &
+! band 26
+        & 9.999997e-01_rb,9.999996e-01_rb,9.999996e-01_rb,9.999995e-01_rb,9.999994e-01_rb,&
+        & 9.999993e-01_rb,9.999992e-01_rb,9.999991e-01_rb,9.999990e-01_rb,9.999989e-01_rb,&
+        & 9.999987e-01_rb,9.999986e-01_rb,9.999984e-01_rb,9.999982e-01_rb,9.999980e-01_rb,&
+        & 9.999978e-01_rb,9.999976e-01_rb,9.999974e-01_rb,9.999972e-01_rb,9.999970e-01_rb,&
+        & 9.999967e-01_rb,9.999965e-01_rb,9.999962e-01_rb,9.999959e-01_rb,9.999956e-01_rb,&
+        & 9.999954e-01_rb,9.999951e-01_rb,9.999947e-01_rb,9.999944e-01_rb,9.999941e-01_rb,&
+        & 9.999938e-01_rb,9.999934e-01_rb,9.999931e-01_rb,9.999927e-01_rb,9.999923e-01_rb,&
+        & 9.999920e-01_rb,9.999916e-01_rb,9.999912e-01_rb,9.999908e-01_rb,9.999904e-01_rb,&
+        & 9.999899e-01_rb,9.999895e-01_rb,9.999891e-01_rb /)
+      ssaice2(:, 27) = (/ &
+! band 27
+        & 9.999987e-01_rb,9.999987e-01_rb,9.999985e-01_rb,9.999984e-01_rb,9.999982e-01_rb,&
+        & 9.999980e-01_rb,9.999978e-01_rb,9.999976e-01_rb,9.999973e-01_rb,9.999970e-01_rb,&
+        & 9.999967e-01_rb,9.999964e-01_rb,9.999960e-01_rb,9.999956e-01_rb,9.999952e-01_rb,&
+        & 9.999948e-01_rb,9.999944e-01_rb,9.999939e-01_rb,9.999934e-01_rb,9.999929e-01_rb,&
+        & 9.999924e-01_rb,9.999918e-01_rb,9.999913e-01_rb,9.999907e-01_rb,9.999901e-01_rb,&
+        & 9.999894e-01_rb,9.999888e-01_rb,9.999881e-01_rb,9.999874e-01_rb,9.999867e-01_rb,&
+        & 9.999860e-01_rb,9.999853e-01_rb,9.999845e-01_rb,9.999837e-01_rb,9.999829e-01_rb,&
+        & 9.999821e-01_rb,9.999813e-01_rb,9.999804e-01_rb,9.999796e-01_rb,9.999787e-01_rb,&
+        & 9.999778e-01_rb,9.999768e-01_rb,9.999759e-01_rb /)
+      ssaice2(:, 28) = (/ &
+! band 28
+        & 9.999989e-01_rb,9.999989e-01_rb,9.999987e-01_rb,9.999986e-01_rb,9.999984e-01_rb,&
+        & 9.999982e-01_rb,9.999980e-01_rb,9.999978e-01_rb,9.999975e-01_rb,9.999972e-01_rb,&
+        & 9.999969e-01_rb,9.999966e-01_rb,9.999962e-01_rb,9.999958e-01_rb,9.999954e-01_rb,&
+        & 9.999950e-01_rb,9.999945e-01_rb,9.999941e-01_rb,9.999936e-01_rb,9.999931e-01_rb,&
+        & 9.999925e-01_rb,9.999920e-01_rb,9.999914e-01_rb,9.999908e-01_rb,9.999902e-01_rb,&
+        & 9.999896e-01_rb,9.999889e-01_rb,9.999883e-01_rb,9.999876e-01_rb,9.999869e-01_rb,&
+        & 9.999861e-01_rb,9.999854e-01_rb,9.999846e-01_rb,9.999838e-01_rb,9.999830e-01_rb,&
+        & 9.999822e-01_rb,9.999814e-01_rb,9.999805e-01_rb,9.999796e-01_rb,9.999787e-01_rb,&
+        & 9.999778e-01_rb,9.999769e-01_rb,9.999759e-01_rb /)
+      ssaice2(:, 29) = (/ &
+! band 29
+        & 7.042143e-01_rb,6.691161e-01_rb,6.463240e-01_rb,6.296590e-01_rb,6.166381e-01_rb,&
+        & 6.060183e-01_rb,5.970908e-01_rb,5.894144e-01_rb,5.826968e-01_rb,5.767343e-01_rb,&
+        & 5.713804e-01_rb,5.665256e-01_rb,5.620867e-01_rb,5.579987e-01_rb,5.542101e-01_rb,&
+        & 5.506794e-01_rb,5.473727e-01_rb,5.442620e-01_rb,5.413239e-01_rb,5.385389e-01_rb,&
+        & 5.358901e-01_rb,5.333633e-01_rb,5.309460e-01_rb,5.286277e-01_rb,5.263988e-01_rb,&
+        & 5.242512e-01_rb,5.221777e-01_rb,5.201719e-01_rb,5.182280e-01_rb,5.163410e-01_rb,&
+        & 5.145062e-01_rb,5.127197e-01_rb,5.109776e-01_rb,5.092766e-01_rb,5.076137e-01_rb,&
+        & 5.059860e-01_rb,5.043911e-01_rb,5.028266e-01_rb,5.012904e-01_rb,4.997805e-01_rb,&
+        & 4.982951e-01_rb,4.968326e-01_rb,4.953913e-01_rb /)
+
+! asymmetry factor: unitless
+      asyice2(:, 16) = (/ &
+! band 16
+        & 7.946655e-01_rb,8.547685e-01_rb,8.806016e-01_rb,8.949880e-01_rb,9.041676e-01_rb,&
+        & 9.105399e-01_rb,9.152249e-01_rb,9.188160e-01_rb,9.216573e-01_rb,9.239620e-01_rb,&
+        & 9.258695e-01_rb,9.274745e-01_rb,9.288441e-01_rb,9.300267e-01_rb,9.310584e-01_rb,&
+        & 9.319665e-01_rb,9.327721e-01_rb,9.334918e-01_rb,9.341387e-01_rb,9.347236e-01_rb,&
+        & 9.352551e-01_rb,9.357402e-01_rb,9.361850e-01_rb,9.365942e-01_rb,9.369722e-01_rb,&
+        & 9.373225e-01_rb,9.376481e-01_rb,9.379516e-01_rb,9.382352e-01_rb,9.385010e-01_rb,&
+        & 9.387505e-01_rb,9.389854e-01_rb,9.392070e-01_rb,9.394163e-01_rb,9.396145e-01_rb,&
+        & 9.398024e-01_rb,9.399809e-01_rb,9.401508e-01_rb,9.403126e-01_rb,9.404670e-01_rb,&
+        & 9.406144e-01_rb,9.407555e-01_rb,9.408906e-01_rb /)
+      asyice2(:, 17) = (/ &
+! band 17
+        & 9.078091e-01_rb,9.195850e-01_rb,9.267250e-01_rb,9.317083e-01_rb,9.354632e-01_rb,&
+        & 9.384323e-01_rb,9.408597e-01_rb,9.428935e-01_rb,9.446301e-01_rb,9.461351e-01_rb,&
+        & 9.474555e-01_rb,9.486259e-01_rb,9.496722e-01_rb,9.506146e-01_rb,9.514688e-01_rb,&
+        & 9.522476e-01_rb,9.529612e-01_rb,9.536181e-01_rb,9.542251e-01_rb,9.547883e-01_rb,&
+        & 9.553124e-01_rb,9.558019e-01_rb,9.562601e-01_rb,9.566904e-01_rb,9.570953e-01_rb,&
+        & 9.574773e-01_rb,9.578385e-01_rb,9.581806e-01_rb,9.585054e-01_rb,9.588142e-01_rb,&
+        & 9.591083e-01_rb,9.593888e-01_rb,9.596569e-01_rb,9.599135e-01_rb,9.601593e-01_rb,&
+        & 9.603952e-01_rb,9.606219e-01_rb,9.608399e-01_rb,9.610499e-01_rb,9.612523e-01_rb,&
+        & 9.614477e-01_rb,9.616365e-01_rb,9.618192e-01_rb /)
+      asyice2(:, 18) = (/ &
+! band 18
+        & 8.322045e-01_rb,8.528693e-01_rb,8.648167e-01_rb,8.729163e-01_rb,8.789054e-01_rb,&
+        & 8.835845e-01_rb,8.873819e-01_rb,8.905511e-01_rb,8.932532e-01_rb,8.955965e-01_rb,&
+        & 8.976567e-01_rb,8.994887e-01_rb,9.011334e-01_rb,9.026221e-01_rb,9.039791e-01_rb,&
+        & 9.052237e-01_rb,9.063715e-01_rb,9.074349e-01_rb,9.084245e-01_rb,9.093489e-01_rb,&
+        & 9.102154e-01_rb,9.110303e-01_rb,9.117987e-01_rb,9.125253e-01_rb,9.132140e-01_rb,&
+        & 9.138682e-01_rb,9.144910e-01_rb,9.150850e-01_rb,9.156524e-01_rb,9.161955e-01_rb,&
+        & 9.167160e-01_rb,9.172157e-01_rb,9.176959e-01_rb,9.181581e-01_rb,9.186034e-01_rb,&
+        & 9.190330e-01_rb,9.194478e-01_rb,9.198488e-01_rb,9.202368e-01_rb,9.206126e-01_rb,&
+        & 9.209768e-01_rb,9.213301e-01_rb,9.216731e-01_rb /)
+      asyice2(:, 19) = (/ &
+! band 19
+        & 8.116560e-01_rb,8.488278e-01_rb,8.674331e-01_rb,8.788148e-01_rb,8.865810e-01_rb,&
+        & 8.922595e-01_rb,8.966149e-01_rb,9.000747e-01_rb,9.028980e-01_rb,9.052513e-01_rb,&
+        & 9.072468e-01_rb,9.089632e-01_rb,9.104574e-01_rb,9.117713e-01_rb,9.129371e-01_rb,&
+        & 9.139793e-01_rb,9.149174e-01_rb,9.157668e-01_rb,9.165400e-01_rb,9.172473e-01_rb,&
+        & 9.178970e-01_rb,9.184962e-01_rb,9.190508e-01_rb,9.195658e-01_rb,9.200455e-01_rb,&
+        & 9.204935e-01_rb,9.209130e-01_rb,9.213067e-01_rb,9.216771e-01_rb,9.220262e-01_rb,&
+        & 9.223560e-01_rb,9.226680e-01_rb,9.229636e-01_rb,9.232443e-01_rb,9.235112e-01_rb,&
+        & 9.237652e-01_rb,9.240074e-01_rb,9.242385e-01_rb,9.244594e-01_rb,9.246708e-01_rb,&
+        & 9.248733e-01_rb,9.250674e-01_rb,9.252536e-01_rb /)
+      asyice2(:, 20) = (/ &
+! band 20
+        & 8.047113e-01_rb,8.402864e-01_rb,8.570332e-01_rb,8.668455e-01_rb,8.733206e-01_rb,&
+        & 8.779272e-01_rb,8.813796e-01_rb,8.840676e-01_rb,8.862225e-01_rb,8.879904e-01_rb,&
+        & 8.894682e-01_rb,8.907228e-01_rb,8.918019e-01_rb,8.927404e-01_rb,8.935645e-01_rb,&
+        & 8.942943e-01_rb,8.949452e-01_rb,8.955296e-01_rb,8.960574e-01_rb,8.965366e-01_rb,&
+        & 8.969736e-01_rb,8.973740e-01_rb,8.977422e-01_rb,8.980820e-01_rb,8.983966e-01_rb,&
+        & 8.986889e-01_rb,8.989611e-01_rb,8.992153e-01_rb,8.994533e-01_rb,8.996766e-01_rb,&
+        & 8.998865e-01_rb,9.000843e-01_rb,9.002709e-01_rb,9.004474e-01_rb,9.006146e-01_rb,&
+        & 9.007731e-01_rb,9.009237e-01_rb,9.010670e-01_rb,9.012034e-01_rb,9.013336e-01_rb,&
+        & 9.014579e-01_rb,9.015767e-01_rb,9.016904e-01_rb /)
+      asyice2(:, 21) = (/ &
+! band 21
+        & 8.179122e-01_rb,8.480726e-01_rb,8.621945e-01_rb,8.704354e-01_rb,8.758555e-01_rb,&
+        & 8.797007e-01_rb,8.825750e-01_rb,8.848078e-01_rb,8.865939e-01_rb,8.880564e-01_rb,&
+        & 8.892765e-01_rb,8.903105e-01_rb,8.911982e-01_rb,8.919689e-01_rb,8.926446e-01_rb,&
+        & 8.932419e-01_rb,8.937738e-01_rb,8.942506e-01_rb,8.946806e-01_rb,8.950702e-01_rb,&
+        & 8.954251e-01_rb,8.957497e-01_rb,8.960477e-01_rb,8.963223e-01_rb,8.965762e-01_rb,&
+        & 8.968116e-01_rb,8.970306e-01_rb,8.972347e-01_rb,8.974255e-01_rb,8.976042e-01_rb,&
+        & 8.977720e-01_rb,8.979298e-01_rb,8.980784e-01_rb,8.982188e-01_rb,8.983515e-01_rb,&
+        & 8.984771e-01_rb,8.985963e-01_rb,8.987095e-01_rb,8.988171e-01_rb,8.989195e-01_rb,&
+        & 8.990172e-01_rb,8.991104e-01_rb,8.991994e-01_rb /)
+      asyice2(:, 22) = (/ &
+! band 22
+        & 8.169789e-01_rb,8.455024e-01_rb,8.586925e-01_rb,8.663283e-01_rb,8.713217e-01_rb,&
+        & 8.748488e-01_rb,8.774765e-01_rb,8.795122e-01_rb,8.811370e-01_rb,8.824649e-01_rb,&
+        & 8.835711e-01_rb,8.845073e-01_rb,8.853103e-01_rb,8.860068e-01_rb,8.866170e-01_rb,&
+        & 8.871560e-01_rb,8.876358e-01_rb,8.880658e-01_rb,8.884533e-01_rb,8.888044e-01_rb,&
+        & 8.891242e-01_rb,8.894166e-01_rb,8.896851e-01_rb,8.899324e-01_rb,8.901612e-01_rb,&
+        & 8.903733e-01_rb,8.905706e-01_rb,8.907545e-01_rb,8.909265e-01_rb,8.910876e-01_rb,&
+        & 8.912388e-01_rb,8.913812e-01_rb,8.915153e-01_rb,8.916419e-01_rb,8.917617e-01_rb,&
+        & 8.918752e-01_rb,8.919829e-01_rb,8.920851e-01_rb,8.921824e-01_rb,8.922751e-01_rb,&
+        & 8.923635e-01_rb,8.924478e-01_rb,8.925284e-01_rb /)
+      asyice2(:, 23) = (/ &
+! band 23
+        & 8.387642e-01_rb,8.569979e-01_rb,8.658630e-01_rb,8.711825e-01_rb,8.747605e-01_rb,&
+        & 8.773472e-01_rb,8.793129e-01_rb,8.808621e-01_rb,8.821179e-01_rb,8.831583e-01_rb,&
+        & 8.840361e-01_rb,8.847875e-01_rb,8.854388e-01_rb,8.860094e-01_rb,8.865138e-01_rb,&
+        & 8.869634e-01_rb,8.873668e-01_rb,8.877310e-01_rb,8.880617e-01_rb,8.883635e-01_rb,&
+        & 8.886401e-01_rb,8.888947e-01_rb,8.891298e-01_rb,8.893477e-01_rb,8.895504e-01_rb,&
+        & 8.897393e-01_rb,8.899159e-01_rb,8.900815e-01_rb,8.902370e-01_rb,8.903833e-01_rb,&
+        & 8.905214e-01_rb,8.906518e-01_rb,8.907753e-01_rb,8.908924e-01_rb,8.910036e-01_rb,&
+        & 8.911094e-01_rb,8.912101e-01_rb,8.913062e-01_rb,8.913979e-01_rb,8.914856e-01_rb,&
+        & 8.915695e-01_rb,8.916498e-01_rb,8.917269e-01_rb /)
+      asyice2(:, 24) = (/ &
+! band 24
+        & 8.522208e-01_rb,8.648132e-01_rb,8.711224e-01_rb,8.749901e-01_rb,8.776354e-01_rb,&
+        & 8.795743e-01_rb,8.810649e-01_rb,8.822518e-01_rb,8.832225e-01_rb,8.840333e-01_rb,&
+        & 8.847224e-01_rb,8.853162e-01_rb,8.858342e-01_rb,8.862906e-01_rb,8.866962e-01_rb,&
+        & 8.870595e-01_rb,8.873871e-01_rb,8.876842e-01_rb,8.879551e-01_rb,8.882032e-01_rb,&
+        & 8.884316e-01_rb,8.886425e-01_rb,8.888380e-01_rb,8.890199e-01_rb,8.891895e-01_rb,&
+        & 8.893481e-01_rb,8.894968e-01_rb,8.896366e-01_rb,8.897683e-01_rb,8.898926e-01_rb,&
+        & 8.900102e-01_rb,8.901215e-01_rb,8.902272e-01_rb,8.903276e-01_rb,8.904232e-01_rb,&
+        & 8.905144e-01_rb,8.906014e-01_rb,8.906845e-01_rb,8.907640e-01_rb,8.908402e-01_rb,&
+        & 8.909132e-01_rb,8.909834e-01_rb,8.910507e-01_rb /)
+      asyice2(:, 25) = (/ &
+! band 25
+        & 8.578202e-01_rb,8.683033e-01_rb,8.735431e-01_rb,8.767488e-01_rb,8.789378e-01_rb,&
+        & 8.805399e-01_rb,8.817701e-01_rb,8.827485e-01_rb,8.835480e-01_rb,8.842152e-01_rb,&
+        & 8.847817e-01_rb,8.852696e-01_rb,8.856949e-01_rb,8.860694e-01_rb,8.864020e-01_rb,&
+        & 8.866997e-01_rb,8.869681e-01_rb,8.872113e-01_rb,8.874330e-01_rb,8.876360e-01_rb,&
+        & 8.878227e-01_rb,8.879951e-01_rb,8.881548e-01_rb,8.883033e-01_rb,8.884418e-01_rb,&
+        & 8.885712e-01_rb,8.886926e-01_rb,8.888066e-01_rb,8.889139e-01_rb,8.890152e-01_rb,&
+        & 8.891110e-01_rb,8.892017e-01_rb,8.892877e-01_rb,8.893695e-01_rb,8.894473e-01_rb,&
+        & 8.895214e-01_rb,8.895921e-01_rb,8.896597e-01_rb,8.897243e-01_rb,8.897862e-01_rb,&
+        & 8.898456e-01_rb,8.899025e-01_rb,8.899572e-01_rb /)
+      asyice2(:, 26) = (/ &
+! band 26
+        & 8.625615e-01_rb,8.713831e-01_rb,8.755799e-01_rb,8.780560e-01_rb,8.796983e-01_rb,&
+        & 8.808714e-01_rb,8.817534e-01_rb,8.824420e-01_rb,8.829953e-01_rb,8.834501e-01_rb,&
+        & 8.838310e-01_rb,8.841549e-01_rb,8.844338e-01_rb,8.846767e-01_rb,8.848902e-01_rb,&
+        & 8.850795e-01_rb,8.852484e-01_rb,8.854002e-01_rb,8.855374e-01_rb,8.856620e-01_rb,&
+        & 8.857758e-01_rb,8.858800e-01_rb,8.859759e-01_rb,8.860644e-01_rb,8.861464e-01_rb,&
+        & 8.862225e-01_rb,8.862935e-01_rb,8.863598e-01_rb,8.864218e-01_rb,8.864800e-01_rb,&
+        & 8.865347e-01_rb,8.865863e-01_rb,8.866349e-01_rb,8.866809e-01_rb,8.867245e-01_rb,&
+        & 8.867658e-01_rb,8.868050e-01_rb,8.868423e-01_rb,8.868778e-01_rb,8.869117e-01_rb,&
+        & 8.869440e-01_rb,8.869749e-01_rb,8.870044e-01_rb /)
+      asyice2(:, 27) = (/ &
+! band 27
+        & 8.587495e-01_rb,8.684764e-01_rb,8.728189e-01_rb,8.752872e-01_rb,8.768846e-01_rb,&
+        & 8.780060e-01_rb,8.788386e-01_rb,8.794824e-01_rb,8.799960e-01_rb,8.804159e-01_rb,&
+        & 8.807660e-01_rb,8.810626e-01_rb,8.813175e-01_rb,8.815390e-01_rb,8.817335e-01_rb,&
+        & 8.819057e-01_rb,8.820593e-01_rb,8.821973e-01_rb,8.823220e-01_rb,8.824353e-01_rb,&
+        & 8.825387e-01_rb,8.826336e-01_rb,8.827209e-01_rb,8.828016e-01_rb,8.828764e-01_rb,&
+        & 8.829459e-01_rb,8.830108e-01_rb,8.830715e-01_rb,8.831283e-01_rb,8.831817e-01_rb,&
+        & 8.832320e-01_rb,8.832795e-01_rb,8.833244e-01_rb,8.833668e-01_rb,8.834071e-01_rb,&
+        & 8.834454e-01_rb,8.834817e-01_rb,8.835164e-01_rb,8.835495e-01_rb,8.835811e-01_rb,&
+        & 8.836113e-01_rb,8.836402e-01_rb,8.836679e-01_rb /)
+      asyice2(:, 28) = (/ &
+! band 28
+        & 8.561110e-01_rb,8.678583e-01_rb,8.727554e-01_rb,8.753892e-01_rb,8.770154e-01_rb,&
+        & 8.781109e-01_rb,8.788949e-01_rb,8.794812e-01_rb,8.799348e-01_rb,8.802952e-01_rb,&
+        & 8.805880e-01_rb,8.808300e-01_rb,8.810331e-01_rb,8.812058e-01_rb,8.813543e-01_rb,&
+        & 8.814832e-01_rb,8.815960e-01_rb,8.816956e-01_rb,8.817839e-01_rb,8.818629e-01_rb,&
+        & 8.819339e-01_rb,8.819979e-01_rb,8.820560e-01_rb,8.821089e-01_rb,8.821573e-01_rb,&
+        & 8.822016e-01_rb,8.822425e-01_rb,8.822801e-01_rb,8.823150e-01_rb,8.823474e-01_rb,&
+        & 8.823775e-01_rb,8.824056e-01_rb,8.824318e-01_rb,8.824564e-01_rb,8.824795e-01_rb,&
+        & 8.825011e-01_rb,8.825215e-01_rb,8.825408e-01_rb,8.825589e-01_rb,8.825761e-01_rb,&
+        & 8.825924e-01_rb,8.826078e-01_rb,8.826224e-01_rb /)
+      asyice2(:, 29) = (/ &
+! band 29
+        & 8.311124e-01_rb,8.688197e-01_rb,8.900274e-01_rb,9.040696e-01_rb,9.142334e-01_rb,&
+        & 9.220181e-01_rb,9.282195e-01_rb,9.333048e-01_rb,9.375689e-01_rb,9.412085e-01_rb,&
+        & 9.443604e-01_rb,9.471230e-01_rb,9.495694e-01_rb,9.517549e-01_rb,9.537224e-01_rb,&
+        & 9.555057e-01_rb,9.571316e-01_rb,9.586222e-01_rb,9.599952e-01_rb,9.612656e-01_rb,&
+        & 9.624458e-01_rb,9.635461e-01_rb,9.645756e-01_rb,9.655418e-01_rb,9.664513e-01_rb,&
+        & 9.673098e-01_rb,9.681222e-01_rb,9.688928e-01_rb,9.696256e-01_rb,9.703237e-01_rb,&
+        & 9.709903e-01_rb,9.716280e-01_rb,9.722391e-01_rb,9.728258e-01_rb,9.733901e-01_rb,&
+        & 9.739336e-01_rb,9.744579e-01_rb,9.749645e-01_rb,9.754546e-01_rb,9.759294e-01_rb,&
+        & 9.763901e-01_rb,9.768376e-01_rb,9.772727e-01_rb /)
+
+! Hexagonal Ice Particle Parameterization
+! extinction units (ext coef/iwc): [(m^-1)/(g m^-3)]
+      extice3(:, 16) = (/ &
+! band 16
+        & 5.194013e-01_rb,3.215089e-01_rb,2.327917e-01_rb,1.824424e-01_rb,1.499977e-01_rb,&
+        & 1.273492e-01_rb,1.106421e-01_rb,9.780982e-02_rb,8.764435e-02_rb,7.939266e-02_rb,&
+        & 7.256081e-02_rb,6.681137e-02_rb,6.190600e-02_rb,5.767154e-02_rb,5.397915e-02_rb,&
+        & 5.073102e-02_rb,4.785151e-02_rb,4.528125e-02_rb,4.297296e-02_rb,4.088853e-02_rb,&
+        & 3.899690e-02_rb,3.727251e-02_rb,3.569411e-02_rb,3.424393e-02_rb,3.290694e-02_rb,&
+        & 3.167040e-02_rb,3.052340e-02_rb,2.945654e-02_rb,2.846172e-02_rb,2.753188e-02_rb,&
+        & 2.666085e-02_rb,2.584322e-02_rb,2.507423e-02_rb,2.434967e-02_rb,2.366579e-02_rb,&
+        & 2.301926e-02_rb,2.240711e-02_rb,2.182666e-02_rb,2.127551e-02_rb,2.075150e-02_rb,&
+        & 2.025267e-02_rb,1.977725e-02_rb,1.932364e-02_rb,1.889035e-02_rb,1.847607e-02_rb,&
+        & 1.807956e-02_rb /)
+      extice3(:, 17) = (/ &
+! band 17
+        & 4.901155e-01_rb,3.065286e-01_rb,2.230800e-01_rb,1.753951e-01_rb,1.445402e-01_rb,&
+        & 1.229417e-01_rb,1.069777e-01_rb,9.469760e-02_rb,8.495824e-02_rb,7.704501e-02_rb,&
+        & 7.048834e-02_rb,6.496693e-02_rb,6.025353e-02_rb,5.618286e-02_rb,5.263186e-02_rb,&
+        & 4.950698e-02_rb,4.673585e-02_rb,4.426164e-02_rb,4.203904e-02_rb,4.003153e-02_rb,&
+        & 3.820932e-02_rb,3.654790e-02_rb,3.502688e-02_rb,3.362919e-02_rb,3.234041e-02_rb,&
+        & 3.114829e-02_rb,3.004234e-02_rb,2.901356e-02_rb,2.805413e-02_rb,2.715727e-02_rb,&
+        & 2.631705e-02_rb,2.552828e-02_rb,2.478637e-02_rb,2.408725e-02_rb,2.342734e-02_rb,&
+        & 2.280343e-02_rb,2.221264e-02_rb,2.165242e-02_rb,2.112043e-02_rb,2.061461e-02_rb,&
+        & 2.013308e-02_rb,1.967411e-02_rb,1.923616e-02_rb,1.881783e-02_rb,1.841781e-02_rb,&
+        & 1.803494e-02_rb /)
+      extice3(:, 18) = (/ &
+! band 18
+        & 5.056264e-01_rb,3.160261e-01_rb,2.298442e-01_rb,1.805973e-01_rb,1.487318e-01_rb,&
+        & 1.264258e-01_rb,1.099389e-01_rb,9.725656e-02_rb,8.719819e-02_rb,7.902576e-02_rb,&
+        & 7.225433e-02_rb,6.655206e-02_rb,6.168427e-02_rb,5.748028e-02_rb,5.381296e-02_rb,&
+        & 5.058572e-02_rb,4.772383e-02_rb,4.516857e-02_rb,4.287317e-02_rb,4.079990e-02_rb,&
+        & 3.891801e-02_rb,3.720217e-02_rb,3.563133e-02_rb,3.418786e-02_rb,3.285686e-02_rb,&
+        & 3.162569e-02_rb,3.048352e-02_rb,2.942104e-02_rb,2.843018e-02_rb,2.750395e-02_rb,&
+        & 2.663621e-02_rb,2.582160e-02_rb,2.505539e-02_rb,2.433337e-02_rb,2.365185e-02_rb,&
+        & 2.300750e-02_rb,2.239736e-02_rb,2.181878e-02_rb,2.126937e-02_rb,2.074699e-02_rb,&
+        & 2.024968e-02_rb,1.977567e-02_rb,1.932338e-02_rb,1.889134e-02_rb,1.847823e-02_rb,&
+        & 1.808281e-02_rb /)
+      extice3(:, 19) = (/ &
+! band 19
+        & 4.881605e-01_rb,3.055237e-01_rb,2.225070e-01_rb,1.750688e-01_rb,1.443736e-01_rb,&
+        & 1.228869e-01_rb,1.070054e-01_rb,9.478893e-02_rb,8.509997e-02_rb,7.722769e-02_rb,&
+        & 7.070495e-02_rb,6.521211e-02_rb,6.052311e-02_rb,5.647351e-02_rb,5.294088e-02_rb,&
+        & 4.983217e-02_rb,4.707539e-02_rb,4.461398e-02_rb,4.240288e-02_rb,4.040575e-02_rb,&
+        & 3.859298e-02_rb,3.694016e-02_rb,3.542701e-02_rb,3.403655e-02_rb,3.275444e-02_rb,&
+        & 3.156849e-02_rb,3.046827e-02_rb,2.944481e-02_rb,2.849034e-02_rb,2.759812e-02_rb,&
+        & 2.676226e-02_rb,2.597757e-02_rb,2.523949e-02_rb,2.454400e-02_rb,2.388750e-02_rb,&
+        & 2.326682e-02_rb,2.267909e-02_rb,2.212176e-02_rb,2.159253e-02_rb,2.108933e-02_rb,&
+        & 2.061028e-02_rb,2.015369e-02_rb,1.971801e-02_rb,1.930184e-02_rb,1.890389e-02_rb,&
+        & 1.852300e-02_rb /)
+      extice3(:, 20) = (/ &
+! band 20
+        & 5.103703e-01_rb,3.188144e-01_rb,2.317435e-01_rb,1.819887e-01_rb,1.497944e-01_rb,&
+        & 1.272584e-01_rb,1.106013e-01_rb,9.778822e-02_rb,8.762610e-02_rb,7.936938e-02_rb,&
+        & 7.252809e-02_rb,6.676701e-02_rb,6.184901e-02_rb,5.760165e-02_rb,5.389651e-02_rb,&
+        & 5.063598e-02_rb,4.774457e-02_rb,4.516295e-02_rb,4.284387e-02_rb,4.074922e-02_rb,&
+        & 3.884792e-02_rb,3.711438e-02_rb,3.552734e-02_rb,3.406898e-02_rb,3.272425e-02_rb,&
+        & 3.148038e-02_rb,3.032643e-02_rb,2.925299e-02_rb,2.825191e-02_rb,2.731612e-02_rb,&
+        & 2.643943e-02_rb,2.561642e-02_rb,2.484230e-02_rb,2.411284e-02_rb,2.342429e-02_rb,&
+        & 2.277329e-02_rb,2.215686e-02_rb,2.157231e-02_rb,2.101724e-02_rb,2.048946e-02_rb,&
+        & 1.998702e-02_rb,1.950813e-02_rb,1.905118e-02_rb,1.861468e-02_rb,1.819730e-02_rb,&
+        & 1.779781e-02_rb /)
+      extice3(:, 21) = (/ &
+! band 21
+        & 5.031161e-01_rb,3.144511e-01_rb,2.286942e-01_rb,1.796903e-01_rb,1.479819e-01_rb,&
+        & 1.257860e-01_rb,1.093803e-01_rb,9.676059e-02_rb,8.675183e-02_rb,7.861971e-02_rb,&
+        & 7.188168e-02_rb,6.620754e-02_rb,6.136376e-02_rb,5.718050e-02_rb,5.353127e-02_rb,&
+        & 5.031995e-02_rb,4.747218e-02_rb,4.492952e-02_rb,4.264544e-02_rb,4.058240e-02_rb,&
+        & 3.870979e-02_rb,3.700242e-02_rb,3.543933e-02_rb,3.400297e-02_rb,3.267854e-02_rb,&
+        & 3.145345e-02_rb,3.031691e-02_rb,2.925967e-02_rb,2.827370e-02_rb,2.735203e-02_rb,&
+        & 2.648858e-02_rb,2.567798e-02_rb,2.491555e-02_rb,2.419710e-02_rb,2.351893e-02_rb,&
+        & 2.287776e-02_rb,2.227063e-02_rb,2.169491e-02_rb,2.114821e-02_rb,2.062840e-02_rb,&
+        & 2.013354e-02_rb,1.966188e-02_rb,1.921182e-02_rb,1.878191e-02_rb,1.837083e-02_rb,&
+        & 1.797737e-02_rb /)
+      extice3(:, 22) = (/ &
+! band 22
+        & 4.949453e-01_rb,3.095918e-01_rb,2.253402e-01_rb,1.771964e-01_rb,1.460446e-01_rb,&
+        & 1.242383e-01_rb,1.081206e-01_rb,9.572235e-02_rb,8.588928e-02_rb,7.789990e-02_rb,&
+        & 7.128013e-02_rb,6.570559e-02_rb,6.094684e-02_rb,5.683701e-02_rb,5.325183e-02_rb,&
+        & 5.009688e-02_rb,4.729909e-02_rb,4.480106e-02_rb,4.255708e-02_rb,4.053025e-02_rb,&
+        & 3.869051e-02_rb,3.701310e-02_rb,3.547745e-02_rb,3.406631e-02_rb,3.276512e-02_rb,&
+        & 3.156153e-02_rb,3.044494e-02_rb,2.940626e-02_rb,2.843759e-02_rb,2.753211e-02_rb,&
+        & 2.668381e-02_rb,2.588744e-02_rb,2.513839e-02_rb,2.443255e-02_rb,2.376629e-02_rb,&
+        & 2.313637e-02_rb,2.253990e-02_rb,2.197428e-02_rb,2.143718e-02_rb,2.092649e-02_rb,&
+        & 2.044032e-02_rb,1.997694e-02_rb,1.953478e-02_rb,1.911241e-02_rb,1.870855e-02_rb,&
+        & 1.832199e-02_rb /)
+      extice3(:, 23) = (/ &
+! band 23
+        & 5.052816e-01_rb,3.157665e-01_rb,2.296233e-01_rb,1.803986e-01_rb,1.485473e-01_rb,&
+        & 1.262514e-01_rb,1.097718e-01_rb,9.709524e-02_rb,8.704139e-02_rb,7.887264e-02_rb,&
+        & 7.210424e-02_rb,6.640454e-02_rb,6.153894e-02_rb,5.733683e-02_rb,5.367116e-02_rb,&
+        & 5.044537e-02_rb,4.758477e-02_rb,4.503066e-02_rb,4.273629e-02_rb,4.066395e-02_rb,&
+        & 3.878291e-02_rb,3.706784e-02_rb,3.549771e-02_rb,3.405488e-02_rb,3.272448e-02_rb,&
+        & 3.149387e-02_rb,3.035221e-02_rb,2.929020e-02_rb,2.829979e-02_rb,2.737397e-02_rb,&
+        & 2.650663e-02_rb,2.569238e-02_rb,2.492651e-02_rb,2.420482e-02_rb,2.352361e-02_rb,&
+        & 2.287954e-02_rb,2.226968e-02_rb,2.169136e-02_rb,2.114220e-02_rb,2.062005e-02_rb,&
+        & 2.012296e-02_rb,1.964917e-02_rb,1.919709e-02_rb,1.876524e-02_rb,1.835231e-02_rb,&
+        & 1.795707e-02_rb /)
+      extice3(:, 24) = (/ &
+! band 24
+        & 5.042067e-01_rb,3.151195e-01_rb,2.291708e-01_rb,1.800573e-01_rb,1.482779e-01_rb,&
+        & 1.260324e-01_rb,1.095900e-01_rb,9.694202e-02_rb,8.691087e-02_rb,7.876056e-02_rb,&
+        & 7.200745e-02_rb,6.632062e-02_rb,6.146600e-02_rb,5.727338e-02_rb,5.361599e-02_rb,&
+        & 5.039749e-02_rb,4.754334e-02_rb,4.499500e-02_rb,4.270580e-02_rb,4.063815e-02_rb,&
+        & 3.876135e-02_rb,3.705016e-02_rb,3.548357e-02_rb,3.404400e-02_rb,3.271661e-02_rb,&
+        & 3.148877e-02_rb,3.034969e-02_rb,2.929008e-02_rb,2.830191e-02_rb,2.737818e-02_rb,&
+        & 2.651279e-02_rb,2.570039e-02_rb,2.493624e-02_rb,2.421618e-02_rb,2.353650e-02_rb,&
+        & 2.289390e-02_rb,2.228541e-02_rb,2.170840e-02_rb,2.116048e-02_rb,2.063950e-02_rb,&
+        & 2.014354e-02_rb,1.967082e-02_rb,1.921975e-02_rb,1.878888e-02_rb,1.837688e-02_rb,&
+        & 1.798254e-02_rb /)
+      extice3(:, 25) = (/ &
+! band 25
+        & 5.022507e-01_rb,3.139246e-01_rb,2.283218e-01_rb,1.794059e-01_rb,1.477544e-01_rb,&
+        & 1.255984e-01_rb,1.092222e-01_rb,9.662516e-02_rb,8.663439e-02_rb,7.851688e-02_rb,&
+        & 7.179095e-02_rb,6.612700e-02_rb,6.129193e-02_rb,5.711618e-02_rb,5.347351e-02_rb,&
+        & 5.026796e-02_rb,4.742530e-02_rb,4.488721e-02_rb,4.260724e-02_rb,4.054790e-02_rb,&
+        & 3.867866e-02_rb,3.697435e-02_rb,3.541407e-02_rb,3.398029e-02_rb,3.265824e-02_rb,&
+        & 3.143535e-02_rb,3.030085e-02_rb,2.924551e-02_rb,2.826131e-02_rb,2.734130e-02_rb,&
+        & 2.647939e-02_rb,2.567026e-02_rb,2.490919e-02_rb,2.419203e-02_rb,2.351509e-02_rb,&
+        & 2.287507e-02_rb,2.226903e-02_rb,2.169434e-02_rb,2.114862e-02_rb,2.062975e-02_rb,&
+        & 2.013578e-02_rb,1.966496e-02_rb,1.921571e-02_rb,1.878658e-02_rb,1.837623e-02_rb,&
+        & 1.798348e-02_rb /)
+      extice3(:, 26) = (/ &
+! band 26
+        & 5.068316e-01_rb,3.166869e-01_rb,2.302576e-01_rb,1.808693e-01_rb,1.489122e-01_rb,&
+        & 1.265423e-01_rb,1.100080e-01_rb,9.728926e-02_rb,8.720201e-02_rb,7.900612e-02_rb,&
+        & 7.221524e-02_rb,6.649660e-02_rb,6.161484e-02_rb,5.739877e-02_rb,5.372093e-02_rb,&
+        & 5.048442e-02_rb,4.761431e-02_rb,4.505172e-02_rb,4.274972e-02_rb,4.067050e-02_rb,&
+        & 3.878321e-02_rb,3.706244e-02_rb,3.548710e-02_rb,3.403948e-02_rb,3.270466e-02_rb,&
+        & 3.146995e-02_rb,3.032450e-02_rb,2.925897e-02_rb,2.826527e-02_rb,2.733638e-02_rb,&
+        & 2.646615e-02_rb,2.564920e-02_rb,2.488078e-02_rb,2.415670e-02_rb,2.347322e-02_rb,&
+        & 2.282702e-02_rb,2.221513e-02_rb,2.163489e-02_rb,2.108390e-02_rb,2.056002e-02_rb,&
+        & 2.006128e-02_rb,1.958591e-02_rb,1.913232e-02_rb,1.869904e-02_rb,1.828474e-02_rb,&
+        & 1.788819e-02_rb /)
+      extice3(:, 27) = (/ &
+! band 27
+        & 5.077707e-01_rb,3.172636e-01_rb,2.306695e-01_rb,1.811871e-01_rb,1.491691e-01_rb,&
+        & 1.267565e-01_rb,1.101907e-01_rb,9.744773e-02_rb,8.734125e-02_rb,7.912973e-02_rb,&
+        & 7.232591e-02_rb,6.659637e-02_rb,6.170530e-02_rb,5.748120e-02_rb,5.379634e-02_rb,&
+        & 5.055367e-02_rb,4.767809e-02_rb,4.511061e-02_rb,4.280423e-02_rb,4.072104e-02_rb,&
+        & 3.883015e-02_rb,3.710611e-02_rb,3.552776e-02_rb,3.407738e-02_rb,3.274002e-02_rb,&
+        & 3.150296e-02_rb,3.035532e-02_rb,2.928776e-02_rb,2.829216e-02_rb,2.736150e-02_rb,&
+        & 2.648961e-02_rb,2.567111e-02_rb,2.490123e-02_rb,2.417576e-02_rb,2.349098e-02_rb,&
+        & 2.284354e-02_rb,2.223049e-02_rb,2.164914e-02_rb,2.109711e-02_rb,2.057222e-02_rb,&
+        & 2.007253e-02_rb,1.959626e-02_rb,1.914181e-02_rb,1.870770e-02_rb,1.829261e-02_rb,&
+        & 1.789531e-02_rb /)
+      extice3(:, 28) = (/ &
+! band 28
+        & 5.062281e-01_rb,3.163402e-01_rb,2.300275e-01_rb,1.807060e-01_rb,1.487921e-01_rb,&
+        & 1.264523e-01_rb,1.099403e-01_rb,9.723879e-02_rb,8.716516e-02_rb,7.898034e-02_rb,&
+        & 7.219863e-02_rb,6.648771e-02_rb,6.161254e-02_rb,5.740217e-02_rb,5.372929e-02_rb,&
+        & 5.049716e-02_rb,4.763092e-02_rb,4.507179e-02_rb,4.277290e-02_rb,4.069649e-02_rb,&
+        & 3.881175e-02_rb,3.709331e-02_rb,3.552008e-02_rb,3.407442e-02_rb,3.274141e-02_rb,&
+        & 3.150837e-02_rb,3.036447e-02_rb,2.930037e-02_rb,2.830801e-02_rb,2.738037e-02_rb,&
+        & 2.651132e-02_rb,2.569547e-02_rb,2.492810e-02_rb,2.420499e-02_rb,2.352243e-02_rb,&
+        & 2.287710e-02_rb,2.226604e-02_rb,2.168658e-02_rb,2.113634e-02_rb,2.061316e-02_rb,&
+        & 2.011510e-02_rb,1.964038e-02_rb,1.918740e-02_rb,1.875471e-02_rb,1.834096e-02_rb,&
+        & 1.794495e-02_rb /)
+      extice3(:, 29) = (/ &
+! band 29
+        & 1.338834e-01_rb,1.924912e-01_rb,1.755523e-01_rb,1.534793e-01_rb,1.343937e-01_rb,&
+        & 1.187883e-01_rb,1.060654e-01_rb,9.559106e-02_rb,8.685880e-02_rb,7.948698e-02_rb,&
+        & 7.319086e-02_rb,6.775669e-02_rb,6.302215e-02_rb,5.886236e-02_rb,5.517996e-02_rb,&
+        & 5.189810e-02_rb,4.895539e-02_rb,4.630225e-02_rb,4.389823e-02_rb,4.171002e-02_rb,&
+        & 3.970998e-02_rb,3.787493e-02_rb,3.618537e-02_rb,3.462471e-02_rb,3.317880e-02_rb,&
+        & 3.183547e-02_rb,3.058421e-02_rb,2.941590e-02_rb,2.832256e-02_rb,2.729724e-02_rb,&
+        & 2.633377e-02_rb,2.542675e-02_rb,2.457136e-02_rb,2.376332e-02_rb,2.299882e-02_rb,&
+        & 2.227443e-02_rb,2.158707e-02_rb,2.093400e-02_rb,2.031270e-02_rb,1.972091e-02_rb,&
+        & 1.915659e-02_rb,1.861787e-02_rb,1.810304e-02_rb,1.761055e-02_rb,1.713899e-02_rb,&
+        & 1.668704e-02_rb /)
+
+! single-scattering albedo: unitless
+      ssaice3(:, 16) = (/ &
+! band 16
+        & 6.749442e-01_rb,6.649947e-01_rb,6.565828e-01_rb,6.489928e-01_rb,6.420046e-01_rb,&
+        & 6.355231e-01_rb,6.294964e-01_rb,6.238901e-01_rb,6.186783e-01_rb,6.138395e-01_rb,&
+        & 6.093543e-01_rb,6.052049e-01_rb,6.013742e-01_rb,5.978457e-01_rb,5.946030e-01_rb,&
+        & 5.916302e-01_rb,5.889115e-01_rb,5.864310e-01_rb,5.841731e-01_rb,5.821221e-01_rb,&
+        & 5.802624e-01_rb,5.785785e-01_rb,5.770549e-01_rb,5.756759e-01_rb,5.744262e-01_rb,&
+        & 5.732901e-01_rb,5.722524e-01_rb,5.712974e-01_rb,5.704097e-01_rb,5.695739e-01_rb,&
+        & 5.687747e-01_rb,5.679964e-01_rb,5.672238e-01_rb,5.664415e-01_rb,5.656340e-01_rb,&
+        & 5.647860e-01_rb,5.638821e-01_rb,5.629070e-01_rb,5.618452e-01_rb,5.606815e-01_rb,&
+        & 5.594006e-01_rb,5.579870e-01_rb,5.564255e-01_rb,5.547008e-01_rb,5.527976e-01_rb,&
+        & 5.507005e-01_rb /)
+      ssaice3(:, 17) = (/ &
+! band 17
+        & 7.628550e-01_rb,7.567297e-01_rb,7.508463e-01_rb,7.451972e-01_rb,7.397745e-01_rb,&
+        & 7.345705e-01_rb,7.295775e-01_rb,7.247881e-01_rb,7.201945e-01_rb,7.157894e-01_rb,&
+        & 7.115652e-01_rb,7.075145e-01_rb,7.036300e-01_rb,6.999044e-01_rb,6.963304e-01_rb,&
+        & 6.929007e-01_rb,6.896083e-01_rb,6.864460e-01_rb,6.834067e-01_rb,6.804833e-01_rb,&
+        & 6.776690e-01_rb,6.749567e-01_rb,6.723397e-01_rb,6.698109e-01_rb,6.673637e-01_rb,&
+        & 6.649913e-01_rb,6.626870e-01_rb,6.604441e-01_rb,6.582561e-01_rb,6.561163e-01_rb,&
+        & 6.540182e-01_rb,6.519554e-01_rb,6.499215e-01_rb,6.479099e-01_rb,6.459145e-01_rb,&
+        & 6.439289e-01_rb,6.419468e-01_rb,6.399621e-01_rb,6.379686e-01_rb,6.359601e-01_rb,&
+        & 6.339306e-01_rb,6.318740e-01_rb,6.297845e-01_rb,6.276559e-01_rb,6.254825e-01_rb,&
+        & 6.232583e-01_rb /)
+      ssaice3(:, 18) = (/ &
+! band 18
+        & 9.924147e-01_rb,9.882792e-01_rb,9.842257e-01_rb,9.802522e-01_rb,9.763566e-01_rb,&
+        & 9.725367e-01_rb,9.687905e-01_rb,9.651157e-01_rb,9.615104e-01_rb,9.579725e-01_rb,&
+        & 9.544997e-01_rb,9.510901e-01_rb,9.477416e-01_rb,9.444520e-01_rb,9.412194e-01_rb,&
+        & 9.380415e-01_rb,9.349165e-01_rb,9.318421e-01_rb,9.288164e-01_rb,9.258373e-01_rb,&
+        & 9.229027e-01_rb,9.200106e-01_rb,9.171589e-01_rb,9.143457e-01_rb,9.115688e-01_rb,&
+        & 9.088263e-01_rb,9.061161e-01_rb,9.034362e-01_rb,9.007846e-01_rb,8.981592e-01_rb,&
+        & 8.955581e-01_rb,8.929792e-01_rb,8.904206e-01_rb,8.878803e-01_rb,8.853562e-01_rb,&
+        & 8.828464e-01_rb,8.803488e-01_rb,8.778616e-01_rb,8.753827e-01_rb,8.729102e-01_rb,&
+        & 8.704421e-01_rb,8.679764e-01_rb,8.655112e-01_rb,8.630445e-01_rb,8.605744e-01_rb,&
+        & 8.580989e-01_rb /)
+      ssaice3(:, 19) = (/ &
+! band 19
+        & 9.629413e-01_rb,9.517182e-01_rb,9.409209e-01_rb,9.305366e-01_rb,9.205529e-01_rb,&
+        & 9.109569e-01_rb,9.017362e-01_rb,8.928780e-01_rb,8.843699e-01_rb,8.761992e-01_rb,&
+        & 8.683536e-01_rb,8.608204e-01_rb,8.535873e-01_rb,8.466417e-01_rb,8.399712e-01_rb,&
+        & 8.335635e-01_rb,8.274062e-01_rb,8.214868e-01_rb,8.157932e-01_rb,8.103129e-01_rb,&
+        & 8.050336e-01_rb,7.999432e-01_rb,7.950294e-01_rb,7.902798e-01_rb,7.856825e-01_rb,&
+        & 7.812250e-01_rb,7.768954e-01_rb,7.726815e-01_rb,7.685711e-01_rb,7.645522e-01_rb,&
+        & 7.606126e-01_rb,7.567404e-01_rb,7.529234e-01_rb,7.491498e-01_rb,7.454074e-01_rb,&
+        & 7.416844e-01_rb,7.379688e-01_rb,7.342485e-01_rb,7.305118e-01_rb,7.267468e-01_rb,&
+        & 7.229415e-01_rb,7.190841e-01_rb,7.151628e-01_rb,7.111657e-01_rb,7.070811e-01_rb,&
+        & 7.028972e-01_rb /)
+      ssaice3(:, 20) = (/ &
+! band 20
+        & 9.942270e-01_rb,9.909206e-01_rb,9.876775e-01_rb,9.844960e-01_rb,9.813746e-01_rb,&
+        & 9.783114e-01_rb,9.753049e-01_rb,9.723535e-01_rb,9.694553e-01_rb,9.666088e-01_rb,&
+        & 9.638123e-01_rb,9.610641e-01_rb,9.583626e-01_rb,9.557060e-01_rb,9.530928e-01_rb,&
+        & 9.505211e-01_rb,9.479895e-01_rb,9.454961e-01_rb,9.430393e-01_rb,9.406174e-01_rb,&
+        & 9.382288e-01_rb,9.358717e-01_rb,9.335446e-01_rb,9.312456e-01_rb,9.289731e-01_rb,&
+        & 9.267255e-01_rb,9.245010e-01_rb,9.222980e-01_rb,9.201147e-01_rb,9.179496e-01_rb,&
+        & 9.158008e-01_rb,9.136667e-01_rb,9.115457e-01_rb,9.094359e-01_rb,9.073358e-01_rb,&
+        & 9.052436e-01_rb,9.031577e-01_rb,9.010763e-01_rb,8.989977e-01_rb,8.969203e-01_rb,&
+        & 8.948423e-01_rb,8.927620e-01_rb,8.906778e-01_rb,8.885879e-01_rb,8.864907e-01_rb,&
+        & 8.843843e-01_rb /)
+      ssaice3(:, 21) = (/ &
+! band 21
+        & 9.934014e-01_rb,9.899331e-01_rb,9.865537e-01_rb,9.832610e-01_rb,9.800523e-01_rb,&
+        & 9.769254e-01_rb,9.738777e-01_rb,9.709069e-01_rb,9.680106e-01_rb,9.651862e-01_rb,&
+        & 9.624315e-01_rb,9.597439e-01_rb,9.571212e-01_rb,9.545608e-01_rb,9.520605e-01_rb,&
+        & 9.496177e-01_rb,9.472301e-01_rb,9.448954e-01_rb,9.426111e-01_rb,9.403749e-01_rb,&
+        & 9.381843e-01_rb,9.360370e-01_rb,9.339307e-01_rb,9.318629e-01_rb,9.298313e-01_rb,&
+        & 9.278336e-01_rb,9.258673e-01_rb,9.239302e-01_rb,9.220198e-01_rb,9.201338e-01_rb,&
+        & 9.182700e-01_rb,9.164258e-01_rb,9.145991e-01_rb,9.127874e-01_rb,9.109884e-01_rb,&
+        & 9.091999e-01_rb,9.074194e-01_rb,9.056447e-01_rb,9.038735e-01_rb,9.021033e-01_rb,&
+        & 9.003320e-01_rb,8.985572e-01_rb,8.967766e-01_rb,8.949879e-01_rb,8.931888e-01_rb,&
+        & 8.913770e-01_rb /)
+      ssaice3(:, 22) = (/ &
+! band 22
+        & 9.994833e-01_rb,9.992055e-01_rb,9.989278e-01_rb,9.986500e-01_rb,9.983724e-01_rb,&
+        & 9.980947e-01_rb,9.978172e-01_rb,9.975397e-01_rb,9.972623e-01_rb,9.969849e-01_rb,&
+        & 9.967077e-01_rb,9.964305e-01_rb,9.961535e-01_rb,9.958765e-01_rb,9.955997e-01_rb,&
+        & 9.953230e-01_rb,9.950464e-01_rb,9.947699e-01_rb,9.944936e-01_rb,9.942174e-01_rb,&
+        & 9.939414e-01_rb,9.936656e-01_rb,9.933899e-01_rb,9.931144e-01_rb,9.928390e-01_rb,&
+        & 9.925639e-01_rb,9.922889e-01_rb,9.920141e-01_rb,9.917396e-01_rb,9.914652e-01_rb,&
+        & 9.911911e-01_rb,9.909171e-01_rb,9.906434e-01_rb,9.903700e-01_rb,9.900967e-01_rb,&
+        & 9.898237e-01_rb,9.895510e-01_rb,9.892784e-01_rb,9.890062e-01_rb,9.887342e-01_rb,&
+        & 9.884625e-01_rb,9.881911e-01_rb,9.879199e-01_rb,9.876490e-01_rb,9.873784e-01_rb,&
+        & 9.871081e-01_rb /)
+      ssaice3(:, 23) = (/ &
+! band 23
+        & 9.999343e-01_rb,9.998917e-01_rb,9.998492e-01_rb,9.998067e-01_rb,9.997642e-01_rb,&
+        & 9.997218e-01_rb,9.996795e-01_rb,9.996372e-01_rb,9.995949e-01_rb,9.995528e-01_rb,&
+        & 9.995106e-01_rb,9.994686e-01_rb,9.994265e-01_rb,9.993845e-01_rb,9.993426e-01_rb,&
+        & 9.993007e-01_rb,9.992589e-01_rb,9.992171e-01_rb,9.991754e-01_rb,9.991337e-01_rb,&
+        & 9.990921e-01_rb,9.990505e-01_rb,9.990089e-01_rb,9.989674e-01_rb,9.989260e-01_rb,&
+        & 9.988846e-01_rb,9.988432e-01_rb,9.988019e-01_rb,9.987606e-01_rb,9.987194e-01_rb,&
+        & 9.986782e-01_rb,9.986370e-01_rb,9.985959e-01_rb,9.985549e-01_rb,9.985139e-01_rb,&
+        & 9.984729e-01_rb,9.984319e-01_rb,9.983910e-01_rb,9.983502e-01_rb,9.983094e-01_rb,&
+        & 9.982686e-01_rb,9.982279e-01_rb,9.981872e-01_rb,9.981465e-01_rb,9.981059e-01_rb,&
+        & 9.980653e-01_rb /)
+      ssaice3(:, 24) = (/ &
+! band 24
+        & 9.999978e-01_rb,9.999965e-01_rb,9.999952e-01_rb,9.999939e-01_rb,9.999926e-01_rb,&
+        & 9.999913e-01_rb,9.999900e-01_rb,9.999887e-01_rb,9.999873e-01_rb,9.999860e-01_rb,&
+        & 9.999847e-01_rb,9.999834e-01_rb,9.999821e-01_rb,9.999808e-01_rb,9.999795e-01_rb,&
+        & 9.999782e-01_rb,9.999769e-01_rb,9.999756e-01_rb,9.999743e-01_rb,9.999730e-01_rb,&
+        & 9.999717e-01_rb,9.999704e-01_rb,9.999691e-01_rb,9.999678e-01_rb,9.999665e-01_rb,&
+        & 9.999652e-01_rb,9.999639e-01_rb,9.999626e-01_rb,9.999613e-01_rb,9.999600e-01_rb,&
+        & 9.999587e-01_rb,9.999574e-01_rb,9.999561e-01_rb,9.999548e-01_rb,9.999535e-01_rb,&
+        & 9.999522e-01_rb,9.999509e-01_rb,9.999496e-01_rb,9.999483e-01_rb,9.999470e-01_rb,&
+        & 9.999457e-01_rb,9.999444e-01_rb,9.999431e-01_rb,9.999418e-01_rb,9.999405e-01_rb,&
+        & 9.999392e-01_rb /)
+      ssaice3(:, 25) = (/ &
+! band 25
+        & 9.999994e-01_rb,9.999993e-01_rb,9.999991e-01_rb,9.999990e-01_rb,9.999989e-01_rb,&
+        & 9.999987e-01_rb,9.999986e-01_rb,9.999984e-01_rb,9.999983e-01_rb,9.999982e-01_rb,&
+        & 9.999980e-01_rb,9.999979e-01_rb,9.999977e-01_rb,9.999976e-01_rb,9.999975e-01_rb,&
+        & 9.999973e-01_rb,9.999972e-01_rb,9.999970e-01_rb,9.999969e-01_rb,9.999967e-01_rb,&
+        & 9.999966e-01_rb,9.999965e-01_rb,9.999963e-01_rb,9.999962e-01_rb,9.999960e-01_rb,&
+        & 9.999959e-01_rb,9.999957e-01_rb,9.999956e-01_rb,9.999954e-01_rb,9.999953e-01_rb,&
+        & 9.999952e-01_rb,9.999950e-01_rb,9.999949e-01_rb,9.999947e-01_rb,9.999946e-01_rb,&
+        & 9.999944e-01_rb,9.999943e-01_rb,9.999941e-01_rb,9.999940e-01_rb,9.999939e-01_rb,&
+        & 9.999937e-01_rb,9.999936e-01_rb,9.999934e-01_rb,9.999933e-01_rb,9.999931e-01_rb,&
+        & 9.999930e-01_rb /)
+      ssaice3(:, 26) = (/ &
+! band 26
+        & 9.999997e-01_rb,9.999995e-01_rb,9.999992e-01_rb,9.999990e-01_rb,9.999987e-01_rb,&
+        & 9.999985e-01_rb,9.999983e-01_rb,9.999980e-01_rb,9.999978e-01_rb,9.999976e-01_rb,&
+        & 9.999973e-01_rb,9.999971e-01_rb,9.999969e-01_rb,9.999967e-01_rb,9.999965e-01_rb,&
+        & 9.999963e-01_rb,9.999960e-01_rb,9.999958e-01_rb,9.999956e-01_rb,9.999954e-01_rb,&
+        & 9.999952e-01_rb,9.999950e-01_rb,9.999948e-01_rb,9.999946e-01_rb,9.999944e-01_rb,&
+        & 9.999942e-01_rb,9.999939e-01_rb,9.999937e-01_rb,9.999935e-01_rb,9.999933e-01_rb,&
+        & 9.999931e-01_rb,9.999929e-01_rb,9.999927e-01_rb,9.999925e-01_rb,9.999923e-01_rb,&
+        & 9.999920e-01_rb,9.999918e-01_rb,9.999916e-01_rb,9.999914e-01_rb,9.999911e-01_rb,&
+        & 9.999909e-01_rb,9.999907e-01_rb,9.999905e-01_rb,9.999902e-01_rb,9.999900e-01_rb,&
+        & 9.999897e-01_rb /)
+      ssaice3(:, 27) = (/ &
+! band 27
+        & 9.999991e-01_rb,9.999985e-01_rb,9.999980e-01_rb,9.999974e-01_rb,9.999968e-01_rb,&
+        & 9.999963e-01_rb,9.999957e-01_rb,9.999951e-01_rb,9.999946e-01_rb,9.999940e-01_rb,&
+        & 9.999934e-01_rb,9.999929e-01_rb,9.999923e-01_rb,9.999918e-01_rb,9.999912e-01_rb,&
+        & 9.999907e-01_rb,9.999901e-01_rb,9.999896e-01_rb,9.999891e-01_rb,9.999885e-01_rb,&
+        & 9.999880e-01_rb,9.999874e-01_rb,9.999869e-01_rb,9.999863e-01_rb,9.999858e-01_rb,&
+        & 9.999853e-01_rb,9.999847e-01_rb,9.999842e-01_rb,9.999836e-01_rb,9.999831e-01_rb,&
+        & 9.999826e-01_rb,9.999820e-01_rb,9.999815e-01_rb,9.999809e-01_rb,9.999804e-01_rb,&
+        & 9.999798e-01_rb,9.999793e-01_rb,9.999787e-01_rb,9.999782e-01_rb,9.999776e-01_rb,&
+        & 9.999770e-01_rb,9.999765e-01_rb,9.999759e-01_rb,9.999754e-01_rb,9.999748e-01_rb,&
+        & 9.999742e-01_rb /)
+      ssaice3(:, 28) = (/ &
+! band 28
+        & 9.999975e-01_rb,9.999961e-01_rb,9.999946e-01_rb,9.999931e-01_rb,9.999917e-01_rb,&
+        & 9.999903e-01_rb,9.999888e-01_rb,9.999874e-01_rb,9.999859e-01_rb,9.999845e-01_rb,&
+        & 9.999831e-01_rb,9.999816e-01_rb,9.999802e-01_rb,9.999788e-01_rb,9.999774e-01_rb,&
+        & 9.999759e-01_rb,9.999745e-01_rb,9.999731e-01_rb,9.999717e-01_rb,9.999702e-01_rb,&
+        & 9.999688e-01_rb,9.999674e-01_rb,9.999660e-01_rb,9.999646e-01_rb,9.999631e-01_rb,&
+        & 9.999617e-01_rb,9.999603e-01_rb,9.999589e-01_rb,9.999574e-01_rb,9.999560e-01_rb,&
+        & 9.999546e-01_rb,9.999532e-01_rb,9.999517e-01_rb,9.999503e-01_rb,9.999489e-01_rb,&
+        & 9.999474e-01_rb,9.999460e-01_rb,9.999446e-01_rb,9.999431e-01_rb,9.999417e-01_rb,&
+        & 9.999403e-01_rb,9.999388e-01_rb,9.999374e-01_rb,9.999359e-01_rb,9.999345e-01_rb,&
+        & 9.999330e-01_rb /)
+      ssaice3(:, 29) = (/ &
+! band 29
+        & 4.526500e-01_rb,5.287890e-01_rb,5.410487e-01_rb,5.459865e-01_rb,5.485149e-01_rb,&
+        & 5.498914e-01_rb,5.505895e-01_rb,5.508310e-01_rb,5.507364e-01_rb,5.503793e-01_rb,&
+        & 5.498090e-01_rb,5.490612e-01_rb,5.481637e-01_rb,5.471395e-01_rb,5.460083e-01_rb,&
+        & 5.447878e-01_rb,5.434946e-01_rb,5.421442e-01_rb,5.407514e-01_rb,5.393309e-01_rb,&
+        & 5.378970e-01_rb,5.364641e-01_rb,5.350464e-01_rb,5.336582e-01_rb,5.323140e-01_rb,&
+        & 5.310283e-01_rb,5.298158e-01_rb,5.286914e-01_rb,5.276704e-01_rb,5.267680e-01_rb,&
+        & 5.260000e-01_rb,5.253823e-01_rb,5.249311e-01_rb,5.246629e-01_rb,5.245946e-01_rb,&
+        & 5.247434e-01_rb,5.251268e-01_rb,5.257626e-01_rb,5.266693e-01_rb,5.278653e-01_rb,&
+        & 5.293698e-01_rb,5.312022e-01_rb,5.333823e-01_rb,5.359305e-01_rb,5.388676e-01_rb,&
+        & 5.422146e-01_rb /)
+
+! asymmetry factor: unitless
+      asyice3(:, 16) = (/ &
+! band 16
+        & 8.340752e-01_rb,8.435170e-01_rb,8.517487e-01_rb,8.592064e-01_rb,8.660387e-01_rb,&
+        & 8.723204e-01_rb,8.780997e-01_rb,8.834137e-01_rb,8.882934e-01_rb,8.927662e-01_rb,&
+        & 8.968577e-01_rb,9.005914e-01_rb,9.039899e-01_rb,9.070745e-01_rb,9.098659e-01_rb,&
+        & 9.123836e-01_rb,9.146466e-01_rb,9.166734e-01_rb,9.184817e-01_rb,9.200886e-01_rb,&
+        & 9.215109e-01_rb,9.227648e-01_rb,9.238661e-01_rb,9.248304e-01_rb,9.256727e-01_rb,&
+        & 9.264078e-01_rb,9.270505e-01_rb,9.276150e-01_rb,9.281156e-01_rb,9.285662e-01_rb,&
+        & 9.289806e-01_rb,9.293726e-01_rb,9.297557e-01_rb,9.301435e-01_rb,9.305491e-01_rb,&
+        & 9.309859e-01_rb,9.314671e-01_rb,9.320055e-01_rb,9.326140e-01_rb,9.333053e-01_rb,&
+        & 9.340919e-01_rb,9.349861e-01_rb,9.360000e-01_rb,9.371451e-01_rb,9.384329e-01_rb,&
+        & 9.398744e-01_rb /)
+      asyice3(:, 17) = (/ &
+! band 17
+        & 8.728160e-01_rb,8.777333e-01_rb,8.823754e-01_rb,8.867535e-01_rb,8.908785e-01_rb,&
+        & 8.947611e-01_rb,8.984118e-01_rb,9.018408e-01_rb,9.050582e-01_rb,9.080739e-01_rb,&
+        & 9.108976e-01_rb,9.135388e-01_rb,9.160068e-01_rb,9.183106e-01_rb,9.204595e-01_rb,&
+        & 9.224620e-01_rb,9.243271e-01_rb,9.260632e-01_rb,9.276788e-01_rb,9.291822e-01_rb,&
+        & 9.305817e-01_rb,9.318853e-01_rb,9.331012e-01_rb,9.342372e-01_rb,9.353013e-01_rb,&
+        & 9.363013e-01_rb,9.372450e-01_rb,9.381400e-01_rb,9.389939e-01_rb,9.398145e-01_rb,&
+        & 9.406092e-01_rb,9.413856e-01_rb,9.421511e-01_rb,9.429131e-01_rb,9.436790e-01_rb,&
+        & 9.444561e-01_rb,9.452517e-01_rb,9.460729e-01_rb,9.469270e-01_rb,9.478209e-01_rb,&
+        & 9.487617e-01_rb,9.497562e-01_rb,9.508112e-01_rb,9.519335e-01_rb,9.531294e-01_rb,&
+        & 9.544055e-01_rb /)
+      asyice3(:, 18) = (/ &
+! band 18
+        & 7.897566e-01_rb,7.948704e-01_rb,7.998041e-01_rb,8.045623e-01_rb,8.091495e-01_rb,&
+        & 8.135702e-01_rb,8.178290e-01_rb,8.219305e-01_rb,8.258790e-01_rb,8.296792e-01_rb,&
+        & 8.333355e-01_rb,8.368524e-01_rb,8.402343e-01_rb,8.434856e-01_rb,8.466108e-01_rb,&
+        & 8.496143e-01_rb,8.525004e-01_rb,8.552737e-01_rb,8.579384e-01_rb,8.604990e-01_rb,&
+        & 8.629597e-01_rb,8.653250e-01_rb,8.675992e-01_rb,8.697867e-01_rb,8.718916e-01_rb,&
+        & 8.739185e-01_rb,8.758715e-01_rb,8.777551e-01_rb,8.795734e-01_rb,8.813308e-01_rb,&
+        & 8.830315e-01_rb,8.846799e-01_rb,8.862802e-01_rb,8.878366e-01_rb,8.893534e-01_rb,&
+        & 8.908350e-01_rb,8.922854e-01_rb,8.937090e-01_rb,8.951099e-01_rb,8.964925e-01_rb,&
+        & 8.978609e-01_rb,8.992192e-01_rb,9.005718e-01_rb,9.019229e-01_rb,9.032765e-01_rb,&
+        & 9.046369e-01_rb /)
+      asyice3(:, 19) = (/ &
+! band 19
+        & 7.812615e-01_rb,7.887764e-01_rb,7.959664e-01_rb,8.028413e-01_rb,8.094109e-01_rb,&
+        & 8.156849e-01_rb,8.216730e-01_rb,8.273846e-01_rb,8.328294e-01_rb,8.380166e-01_rb,&
+        & 8.429556e-01_rb,8.476556e-01_rb,8.521258e-01_rb,8.563753e-01_rb,8.604131e-01_rb,&
+        & 8.642481e-01_rb,8.678893e-01_rb,8.713455e-01_rb,8.746254e-01_rb,8.777378e-01_rb,&
+        & 8.806914e-01_rb,8.834948e-01_rb,8.861566e-01_rb,8.886854e-01_rb,8.910897e-01_rb,&
+        & 8.933779e-01_rb,8.955586e-01_rb,8.976402e-01_rb,8.996311e-01_rb,9.015398e-01_rb,&
+        & 9.033745e-01_rb,9.051436e-01_rb,9.068555e-01_rb,9.085185e-01_rb,9.101410e-01_rb,&
+        & 9.117311e-01_rb,9.132972e-01_rb,9.148476e-01_rb,9.163905e-01_rb,9.179340e-01_rb,&
+        & 9.194864e-01_rb,9.210559e-01_rb,9.226505e-01_rb,9.242784e-01_rb,9.259476e-01_rb,&
+        & 9.276661e-01_rb /)
+      asyice3(:, 20) = (/ &
+! band 20
+        & 7.640720e-01_rb,7.691119e-01_rb,7.739941e-01_rb,7.787222e-01_rb,7.832998e-01_rb,&
+        & 7.877304e-01_rb,7.920177e-01_rb,7.961652e-01_rb,8.001765e-01_rb,8.040551e-01_rb,&
+        & 8.078044e-01_rb,8.114280e-01_rb,8.149294e-01_rb,8.183119e-01_rb,8.215791e-01_rb,&
+        & 8.247344e-01_rb,8.277812e-01_rb,8.307229e-01_rb,8.335629e-01_rb,8.363046e-01_rb,&
+        & 8.389514e-01_rb,8.415067e-01_rb,8.439738e-01_rb,8.463560e-01_rb,8.486568e-01_rb,&
+        & 8.508795e-01_rb,8.530274e-01_rb,8.551039e-01_rb,8.571122e-01_rb,8.590558e-01_rb,&
+        & 8.609378e-01_rb,8.627618e-01_rb,8.645309e-01_rb,8.662485e-01_rb,8.679178e-01_rb,&
+        & 8.695423e-01_rb,8.711251e-01_rb,8.726697e-01_rb,8.741792e-01_rb,8.756571e-01_rb,&
+        & 8.771065e-01_rb,8.785307e-01_rb,8.799331e-01_rb,8.813169e-01_rb,8.826854e-01_rb,&
+        & 8.840419e-01_rb /)
+      asyice3(:, 21) = (/ &
+! band 21
+        & 7.602598e-01_rb,7.651572e-01_rb,7.699014e-01_rb,7.744962e-01_rb,7.789452e-01_rb,&
+        & 7.832522e-01_rb,7.874205e-01_rb,7.914538e-01_rb,7.953555e-01_rb,7.991290e-01_rb,&
+        & 8.027777e-01_rb,8.063049e-01_rb,8.097140e-01_rb,8.130081e-01_rb,8.161906e-01_rb,&
+        & 8.192645e-01_rb,8.222331e-01_rb,8.250993e-01_rb,8.278664e-01_rb,8.305374e-01_rb,&
+        & 8.331153e-01_rb,8.356030e-01_rb,8.380037e-01_rb,8.403201e-01_rb,8.425553e-01_rb,&
+        & 8.447121e-01_rb,8.467935e-01_rb,8.488022e-01_rb,8.507412e-01_rb,8.526132e-01_rb,&
+        & 8.544210e-01_rb,8.561675e-01_rb,8.578554e-01_rb,8.594875e-01_rb,8.610665e-01_rb,&
+        & 8.625951e-01_rb,8.640760e-01_rb,8.655119e-01_rb,8.669055e-01_rb,8.682594e-01_rb,&
+        & 8.695763e-01_rb,8.708587e-01_rb,8.721094e-01_rb,8.733308e-01_rb,8.745255e-01_rb,&
+        & 8.756961e-01_rb /)
+      asyice3(:, 22) = (/ &
+! band 22
+        & 7.568957e-01_rb,7.606995e-01_rb,7.644072e-01_rb,7.680204e-01_rb,7.715402e-01_rb,&
+        & 7.749682e-01_rb,7.783057e-01_rb,7.815541e-01_rb,7.847148e-01_rb,7.877892e-01_rb,&
+        & 7.907786e-01_rb,7.936846e-01_rb,7.965084e-01_rb,7.992515e-01_rb,8.019153e-01_rb,&
+        & 8.045011e-01_rb,8.070103e-01_rb,8.094444e-01_rb,8.118048e-01_rb,8.140927e-01_rb,&
+        & 8.163097e-01_rb,8.184571e-01_rb,8.205364e-01_rb,8.225488e-01_rb,8.244958e-01_rb,&
+        & 8.263789e-01_rb,8.281993e-01_rb,8.299586e-01_rb,8.316580e-01_rb,8.332991e-01_rb,&
+        & 8.348831e-01_rb,8.364115e-01_rb,8.378857e-01_rb,8.393071e-01_rb,8.406770e-01_rb,&
+        & 8.419969e-01_rb,8.432682e-01_rb,8.444923e-01_rb,8.456706e-01_rb,8.468044e-01_rb,&
+        & 8.478952e-01_rb,8.489444e-01_rb,8.499533e-01_rb,8.509234e-01_rb,8.518561e-01_rb,&
+        & 8.527528e-01_rb /)
+      asyice3(:, 23) = (/ &
+! band 23
+        & 7.575066e-01_rb,7.606912e-01_rb,7.638236e-01_rb,7.669035e-01_rb,7.699306e-01_rb,&
+        & 7.729046e-01_rb,7.758254e-01_rb,7.786926e-01_rb,7.815060e-01_rb,7.842654e-01_rb,&
+        & 7.869705e-01_rb,7.896211e-01_rb,7.922168e-01_rb,7.947574e-01_rb,7.972428e-01_rb,&
+        & 7.996726e-01_rb,8.020466e-01_rb,8.043646e-01_rb,8.066262e-01_rb,8.088313e-01_rb,&
+        & 8.109796e-01_rb,8.130709e-01_rb,8.151049e-01_rb,8.170814e-01_rb,8.190001e-01_rb,&
+        & 8.208608e-01_rb,8.226632e-01_rb,8.244071e-01_rb,8.260924e-01_rb,8.277186e-01_rb,&
+        & 8.292856e-01_rb,8.307932e-01_rb,8.322411e-01_rb,8.336291e-01_rb,8.349570e-01_rb,&
+        & 8.362244e-01_rb,8.374312e-01_rb,8.385772e-01_rb,8.396621e-01_rb,8.406856e-01_rb,&
+        & 8.416476e-01_rb,8.425479e-01_rb,8.433861e-01_rb,8.441620e-01_rb,8.448755e-01_rb,&
+        & 8.455263e-01_rb /)
+      asyice3(:, 24) = (/ &
+! band 24
+        & 7.568829e-01_rb,7.597947e-01_rb,7.626745e-01_rb,7.655212e-01_rb,7.683337e-01_rb,&
+        & 7.711111e-01_rb,7.738523e-01_rb,7.765565e-01_rb,7.792225e-01_rb,7.818494e-01_rb,&
+        & 7.844362e-01_rb,7.869819e-01_rb,7.894854e-01_rb,7.919459e-01_rb,7.943623e-01_rb,&
+        & 7.967337e-01_rb,7.990590e-01_rb,8.013373e-01_rb,8.035676e-01_rb,8.057488e-01_rb,&
+        & 8.078802e-01_rb,8.099605e-01_rb,8.119890e-01_rb,8.139645e-01_rb,8.158862e-01_rb,&
+        & 8.177530e-01_rb,8.195641e-01_rb,8.213183e-01_rb,8.230149e-01_rb,8.246527e-01_rb,&
+        & 8.262308e-01_rb,8.277483e-01_rb,8.292042e-01_rb,8.305976e-01_rb,8.319275e-01_rb,&
+        & 8.331929e-01_rb,8.343929e-01_rb,8.355265e-01_rb,8.365928e-01_rb,8.375909e-01_rb,&
+        & 8.385197e-01_rb,8.393784e-01_rb,8.401659e-01_rb,8.408815e-01_rb,8.415240e-01_rb,&
+        & 8.420926e-01_rb /)
+      asyice3(:, 25) = (/ &
+! band 25
+        & 7.548616e-01_rb,7.575454e-01_rb,7.602153e-01_rb,7.628696e-01_rb,7.655067e-01_rb,&
+        & 7.681249e-01_rb,7.707225e-01_rb,7.732978e-01_rb,7.758492e-01_rb,7.783750e-01_rb,&
+        & 7.808735e-01_rb,7.833430e-01_rb,7.857819e-01_rb,7.881886e-01_rb,7.905612e-01_rb,&
+        & 7.928983e-01_rb,7.951980e-01_rb,7.974588e-01_rb,7.996789e-01_rb,8.018567e-01_rb,&
+        & 8.039905e-01_rb,8.060787e-01_rb,8.081196e-01_rb,8.101115e-01_rb,8.120527e-01_rb,&
+        & 8.139416e-01_rb,8.157764e-01_rb,8.175557e-01_rb,8.192776e-01_rb,8.209405e-01_rb,&
+        & 8.225427e-01_rb,8.240826e-01_rb,8.255585e-01_rb,8.269688e-01_rb,8.283117e-01_rb,&
+        & 8.295856e-01_rb,8.307889e-01_rb,8.319198e-01_rb,8.329767e-01_rb,8.339579e-01_rb,&
+        & 8.348619e-01_rb,8.356868e-01_rb,8.364311e-01_rb,8.370930e-01_rb,8.376710e-01_rb,&
+        & 8.381633e-01_rb /)
+      asyice3(:, 26) = (/ &
+! band 26
+        & 7.491854e-01_rb,7.518523e-01_rb,7.545089e-01_rb,7.571534e-01_rb,7.597839e-01_rb,&
+        & 7.623987e-01_rb,7.649959e-01_rb,7.675737e-01_rb,7.701303e-01_rb,7.726639e-01_rb,&
+        & 7.751727e-01_rb,7.776548e-01_rb,7.801084e-01_rb,7.825318e-01_rb,7.849230e-01_rb,&
+        & 7.872804e-01_rb,7.896020e-01_rb,7.918862e-01_rb,7.941309e-01_rb,7.963345e-01_rb,&
+        & 7.984951e-01_rb,8.006109e-01_rb,8.026802e-01_rb,8.047009e-01_rb,8.066715e-01_rb,&
+        & 8.085900e-01_rb,8.104546e-01_rb,8.122636e-01_rb,8.140150e-01_rb,8.157072e-01_rb,&
+        & 8.173382e-01_rb,8.189063e-01_rb,8.204096e-01_rb,8.218464e-01_rb,8.232148e-01_rb,&
+        & 8.245130e-01_rb,8.257391e-01_rb,8.268915e-01_rb,8.279682e-01_rb,8.289675e-01_rb,&
+        & 8.298875e-01_rb,8.307264e-01_rb,8.314824e-01_rb,8.321537e-01_rb,8.327385e-01_rb,&
+        & 8.332350e-01_rb /)
+      asyice3(:, 27) = (/ &
+! band 27
+        & 7.397086e-01_rb,7.424069e-01_rb,7.450955e-01_rb,7.477725e-01_rb,7.504362e-01_rb,&
+        & 7.530846e-01_rb,7.557159e-01_rb,7.583283e-01_rb,7.609199e-01_rb,7.634888e-01_rb,&
+        & 7.660332e-01_rb,7.685512e-01_rb,7.710411e-01_rb,7.735009e-01_rb,7.759288e-01_rb,&
+        & 7.783229e-01_rb,7.806814e-01_rb,7.830024e-01_rb,7.852841e-01_rb,7.875246e-01_rb,&
+        & 7.897221e-01_rb,7.918748e-01_rb,7.939807e-01_rb,7.960380e-01_rb,7.980449e-01_rb,&
+        & 7.999995e-01_rb,8.019000e-01_rb,8.037445e-01_rb,8.055311e-01_rb,8.072581e-01_rb,&
+        & 8.089235e-01_rb,8.105255e-01_rb,8.120623e-01_rb,8.135319e-01_rb,8.149326e-01_rb,&
+        & 8.162626e-01_rb,8.175198e-01_rb,8.187025e-01_rb,8.198089e-01_rb,8.208371e-01_rb,&
+        & 8.217852e-01_rb,8.226514e-01_rb,8.234338e-01_rb,8.241306e-01_rb,8.247399e-01_rb,&
+        & 8.252599e-01_rb /)
+      asyice3(:, 28) = (/ &
+! band 28
+        & 7.224533e-01_rb,7.251681e-01_rb,7.278728e-01_rb,7.305654e-01_rb,7.332444e-01_rb,&
+        & 7.359078e-01_rb,7.385539e-01_rb,7.411808e-01_rb,7.437869e-01_rb,7.463702e-01_rb,&
+        & 7.489291e-01_rb,7.514616e-01_rb,7.539661e-01_rb,7.564408e-01_rb,7.588837e-01_rb,&
+        & 7.612933e-01_rb,7.636676e-01_rb,7.660049e-01_rb,7.683034e-01_rb,7.705612e-01_rb,&
+        & 7.727767e-01_rb,7.749480e-01_rb,7.770733e-01_rb,7.791509e-01_rb,7.811789e-01_rb,&
+        & 7.831556e-01_rb,7.850791e-01_rb,7.869478e-01_rb,7.887597e-01_rb,7.905131e-01_rb,&
+        & 7.922062e-01_rb,7.938372e-01_rb,7.954044e-01_rb,7.969059e-01_rb,7.983399e-01_rb,&
+        & 7.997047e-01_rb,8.009985e-01_rb,8.022195e-01_rb,8.033658e-01_rb,8.044357e-01_rb,&
+        & 8.054275e-01_rb,8.063392e-01_rb,8.071692e-01_rb,8.079157e-01_rb,8.085768e-01_rb,&
+        & 8.091507e-01_rb /)
+      asyice3(:, 29) = (/ &
+! band 29
+        & 8.850026e-01_rb,9.005489e-01_rb,9.069242e-01_rb,9.121799e-01_rb,9.168987e-01_rb,&
+        & 9.212259e-01_rb,9.252176e-01_rb,9.289028e-01_rb,9.323000e-01_rb,9.354235e-01_rb,&
+        & 9.382858e-01_rb,9.408985e-01_rb,9.432734e-01_rb,9.454218e-01_rb,9.473557e-01_rb,&
+        & 9.490871e-01_rb,9.506282e-01_rb,9.519917e-01_rb,9.531904e-01_rb,9.542374e-01_rb,&
+        & 9.551461e-01_rb,9.559298e-01_rb,9.566023e-01_rb,9.571775e-01_rb,9.576692e-01_rb,&
+        & 9.580916e-01_rb,9.584589e-01_rb,9.587853e-01_rb,9.590851e-01_rb,9.593729e-01_rb,&
+        & 9.596632e-01_rb,9.599705e-01_rb,9.603096e-01_rb,9.606954e-01_rb,9.611427e-01_rb,&
+        & 9.616667e-01_rb,9.622826e-01_rb,9.630060e-01_rb,9.638524e-01_rb,9.648379e-01_rb,&
+        & 9.659788e-01_rb,9.672916e-01_rb,9.687933e-01_rb,9.705014e-01_rb,9.724337e-01_rb,&
+        & 9.746084e-01_rb /)
+
+! fdelta: unitless
+      fdlice3(:, 16) = (/ &
+! band 16
+        & 4.959277e-02_rb,4.685292e-02_rb,4.426104e-02_rb,4.181231e-02_rb,3.950191e-02_rb,&
+        & 3.732500e-02_rb,3.527675e-02_rb,3.335235e-02_rb,3.154697e-02_rb,2.985578e-02_rb,&
+        & 2.827395e-02_rb,2.679666e-02_rb,2.541909e-02_rb,2.413640e-02_rb,2.294378e-02_rb,&
+        & 2.183639e-02_rb,2.080940e-02_rb,1.985801e-02_rb,1.897736e-02_rb,1.816265e-02_rb,&
+        & 1.740905e-02_rb,1.671172e-02_rb,1.606585e-02_rb,1.546661e-02_rb,1.490917e-02_rb,&
+        & 1.438870e-02_rb,1.390038e-02_rb,1.343939e-02_rb,1.300089e-02_rb,1.258006e-02_rb,&
+        & 1.217208e-02_rb,1.177212e-02_rb,1.137536e-02_rb,1.097696e-02_rb,1.057210e-02_rb,&
+        & 1.015596e-02_rb,9.723704e-03_rb,9.270516e-03_rb,8.791565e-03_rb,8.282026e-03_rb,&
+        & 7.737072e-03_rb,7.151879e-03_rb,6.521619e-03_rb,5.841467e-03_rb,5.106597e-03_rb,&
+        & 4.312183e-03_rb /)
+      fdlice3(:, 17) = (/ &
+! band 17
+        & 5.071224e-02_rb,5.000217e-02_rb,4.933872e-02_rb,4.871992e-02_rb,4.814380e-02_rb,&
+        & 4.760839e-02_rb,4.711170e-02_rb,4.665177e-02_rb,4.622662e-02_rb,4.583426e-02_rb,&
+        & 4.547274e-02_rb,4.514007e-02_rb,4.483428e-02_rb,4.455340e-02_rb,4.429544e-02_rb,&
+        & 4.405844e-02_rb,4.384041e-02_rb,4.363939e-02_rb,4.345340e-02_rb,4.328047e-02_rb,&
+        & 4.311861e-02_rb,4.296586e-02_rb,4.282024e-02_rb,4.267977e-02_rb,4.254248e-02_rb,&
+        & 4.240640e-02_rb,4.226955e-02_rb,4.212995e-02_rb,4.198564e-02_rb,4.183462e-02_rb,&
+        & 4.167494e-02_rb,4.150462e-02_rb,4.132167e-02_rb,4.112413e-02_rb,4.091003e-02_rb,&
+        & 4.067737e-02_rb,4.042420e-02_rb,4.014854e-02_rb,3.984840e-02_rb,3.952183e-02_rb,&
+        & 3.916683e-02_rb,3.878144e-02_rb,3.836368e-02_rb,3.791158e-02_rb,3.742316e-02_rb,&
+        & 3.689645e-02_rb /)
+      fdlice3(:, 18) = (/ &
+! band 18
+        & 1.062938e-01_rb,1.065234e-01_rb,1.067822e-01_rb,1.070682e-01_rb,1.073793e-01_rb,&
+        & 1.077137e-01_rb,1.080693e-01_rb,1.084442e-01_rb,1.088364e-01_rb,1.092439e-01_rb,&
+        & 1.096647e-01_rb,1.100970e-01_rb,1.105387e-01_rb,1.109878e-01_rb,1.114423e-01_rb,&
+        & 1.119004e-01_rb,1.123599e-01_rb,1.128190e-01_rb,1.132757e-01_rb,1.137279e-01_rb,&
+        & 1.141738e-01_rb,1.146113e-01_rb,1.150385e-01_rb,1.154534e-01_rb,1.158540e-01_rb,&
+        & 1.162383e-01_rb,1.166045e-01_rb,1.169504e-01_rb,1.172741e-01_rb,1.175738e-01_rb,&
+        & 1.178472e-01_rb,1.180926e-01_rb,1.183080e-01_rb,1.184913e-01_rb,1.186405e-01_rb,&
+        & 1.187538e-01_rb,1.188291e-01_rb,1.188645e-01_rb,1.188580e-01_rb,1.188076e-01_rb,&
+        & 1.187113e-01_rb,1.185672e-01_rb,1.183733e-01_rb,1.181277e-01_rb,1.178282e-01_rb,&
+        & 1.174731e-01_rb /)
+      fdlice3(:, 19) = (/ &
+! band 19
+        & 1.076195e-01_rb,1.065195e-01_rb,1.054696e-01_rb,1.044673e-01_rb,1.035099e-01_rb,&
+        & 1.025951e-01_rb,1.017203e-01_rb,1.008831e-01_rb,1.000808e-01_rb,9.931116e-02_rb,&
+        & 9.857151e-02_rb,9.785939e-02_rb,9.717230e-02_rb,9.650774e-02_rb,9.586322e-02_rb,&
+        & 9.523623e-02_rb,9.462427e-02_rb,9.402484e-02_rb,9.343544e-02_rb,9.285358e-02_rb,&
+        & 9.227675e-02_rb,9.170245e-02_rb,9.112818e-02_rb,9.055144e-02_rb,8.996974e-02_rb,&
+        & 8.938056e-02_rb,8.878142e-02_rb,8.816981e-02_rb,8.754323e-02_rb,8.689919e-02_rb,&
+        & 8.623517e-02_rb,8.554869e-02_rb,8.483724e-02_rb,8.409832e-02_rb,8.332943e-02_rb,&
+        & 8.252807e-02_rb,8.169175e-02_rb,8.081795e-02_rb,7.990419e-02_rb,7.894796e-02_rb,&
+        & 7.794676e-02_rb,7.689809e-02_rb,7.579945e-02_rb,7.464834e-02_rb,7.344227e-02_rb,&
+        & 7.217872e-02_rb /)
+      fdlice3(:, 20) = (/ &
+! band 20
+        & 1.119014e-01_rb,1.122706e-01_rb,1.126690e-01_rb,1.130947e-01_rb,1.135456e-01_rb,&
+        & 1.140199e-01_rb,1.145154e-01_rb,1.150302e-01_rb,1.155623e-01_rb,1.161096e-01_rb,&
+        & 1.166703e-01_rb,1.172422e-01_rb,1.178233e-01_rb,1.184118e-01_rb,1.190055e-01_rb,&
+        & 1.196025e-01_rb,1.202008e-01_rb,1.207983e-01_rb,1.213931e-01_rb,1.219832e-01_rb,&
+        & 1.225665e-01_rb,1.231411e-01_rb,1.237050e-01_rb,1.242561e-01_rb,1.247926e-01_rb,&
+        & 1.253122e-01_rb,1.258132e-01_rb,1.262934e-01_rb,1.267509e-01_rb,1.271836e-01_rb,&
+        & 1.275896e-01_rb,1.279669e-01_rb,1.283134e-01_rb,1.286272e-01_rb,1.289063e-01_rb,&
+        & 1.291486e-01_rb,1.293522e-01_rb,1.295150e-01_rb,1.296351e-01_rb,1.297104e-01_rb,&
+        & 1.297390e-01_rb,1.297189e-01_rb,1.296480e-01_rb,1.295244e-01_rb,1.293460e-01_rb,&
+        & 1.291109e-01_rb /)
+      fdlice3(:, 21) = (/ &
+! band 21
+        & 1.133298e-01_rb,1.136777e-01_rb,1.140556e-01_rb,1.144615e-01_rb,1.148934e-01_rb,&
+        & 1.153492e-01_rb,1.158269e-01_rb,1.163243e-01_rb,1.168396e-01_rb,1.173706e-01_rb,&
+        & 1.179152e-01_rb,1.184715e-01_rb,1.190374e-01_rb,1.196108e-01_rb,1.201897e-01_rb,&
+        & 1.207720e-01_rb,1.213558e-01_rb,1.219389e-01_rb,1.225194e-01_rb,1.230951e-01_rb,&
+        & 1.236640e-01_rb,1.242241e-01_rb,1.247733e-01_rb,1.253096e-01_rb,1.258309e-01_rb,&
+        & 1.263352e-01_rb,1.268205e-01_rb,1.272847e-01_rb,1.277257e-01_rb,1.281415e-01_rb,&
+        & 1.285300e-01_rb,1.288893e-01_rb,1.292173e-01_rb,1.295118e-01_rb,1.297710e-01_rb,&
+        & 1.299927e-01_rb,1.301748e-01_rb,1.303154e-01_rb,1.304124e-01_rb,1.304637e-01_rb,&
+        & 1.304673e-01_rb,1.304212e-01_rb,1.303233e-01_rb,1.301715e-01_rb,1.299638e-01_rb,&
+        & 1.296983e-01_rb /)
+      fdlice3(:, 22) = (/ &
+! band 22
+        & 1.145360e-01_rb,1.153256e-01_rb,1.161453e-01_rb,1.169929e-01_rb,1.178666e-01_rb,&
+        & 1.187641e-01_rb,1.196835e-01_rb,1.206227e-01_rb,1.215796e-01_rb,1.225522e-01_rb,&
+        & 1.235383e-01_rb,1.245361e-01_rb,1.255433e-01_rb,1.265579e-01_rb,1.275779e-01_rb,&
+        & 1.286011e-01_rb,1.296257e-01_rb,1.306494e-01_rb,1.316703e-01_rb,1.326862e-01_rb,&
+        & 1.336951e-01_rb,1.346950e-01_rb,1.356838e-01_rb,1.366594e-01_rb,1.376198e-01_rb,&
+        & 1.385629e-01_rb,1.394866e-01_rb,1.403889e-01_rb,1.412678e-01_rb,1.421212e-01_rb,&
+        & 1.429469e-01_rb,1.437430e-01_rb,1.445074e-01_rb,1.452381e-01_rb,1.459329e-01_rb,&
+        & 1.465899e-01_rb,1.472069e-01_rb,1.477819e-01_rb,1.483128e-01_rb,1.487976e-01_rb,&
+        & 1.492343e-01_rb,1.496207e-01_rb,1.499548e-01_rb,1.502346e-01_rb,1.504579e-01_rb,&
+        & 1.506227e-01_rb /)
+      fdlice3(:, 23) = (/ &
+! band 23
+        & 1.153263e-01_rb,1.161445e-01_rb,1.169932e-01_rb,1.178703e-01_rb,1.187738e-01_rb,&
+        & 1.197016e-01_rb,1.206516e-01_rb,1.216217e-01_rb,1.226099e-01_rb,1.236141e-01_rb,&
+        & 1.246322e-01_rb,1.256621e-01_rb,1.267017e-01_rb,1.277491e-01_rb,1.288020e-01_rb,&
+        & 1.298584e-01_rb,1.309163e-01_rb,1.319736e-01_rb,1.330281e-01_rb,1.340778e-01_rb,&
+        & 1.351207e-01_rb,1.361546e-01_rb,1.371775e-01_rb,1.381873e-01_rb,1.391820e-01_rb,&
+        & 1.401593e-01_rb,1.411174e-01_rb,1.420540e-01_rb,1.429671e-01_rb,1.438547e-01_rb,&
+        & 1.447146e-01_rb,1.455449e-01_rb,1.463433e-01_rb,1.471078e-01_rb,1.478364e-01_rb,&
+        & 1.485270e-01_rb,1.491774e-01_rb,1.497857e-01_rb,1.503497e-01_rb,1.508674e-01_rb,&
+        & 1.513367e-01_rb,1.517554e-01_rb,1.521216e-01_rb,1.524332e-01_rb,1.526880e-01_rb,&
+        & 1.528840e-01_rb /)
+      fdlice3(:, 24) = (/ &
+! band 24
+        & 1.160842e-01_rb,1.169118e-01_rb,1.177697e-01_rb,1.186556e-01_rb,1.195676e-01_rb,&
+        & 1.205036e-01_rb,1.214616e-01_rb,1.224394e-01_rb,1.234349e-01_rb,1.244463e-01_rb,&
+        & 1.254712e-01_rb,1.265078e-01_rb,1.275539e-01_rb,1.286075e-01_rb,1.296664e-01_rb,&
+        & 1.307287e-01_rb,1.317923e-01_rb,1.328550e-01_rb,1.339149e-01_rb,1.349699e-01_rb,&
+        & 1.360179e-01_rb,1.370567e-01_rb,1.380845e-01_rb,1.390991e-01_rb,1.400984e-01_rb,&
+        & 1.410803e-01_rb,1.420429e-01_rb,1.429840e-01_rb,1.439016e-01_rb,1.447936e-01_rb,&
+        & 1.456579e-01_rb,1.464925e-01_rb,1.472953e-01_rb,1.480642e-01_rb,1.487972e-01_rb,&
+        & 1.494923e-01_rb,1.501472e-01_rb,1.507601e-01_rb,1.513287e-01_rb,1.518511e-01_rb,&
+        & 1.523252e-01_rb,1.527489e-01_rb,1.531201e-01_rb,1.534368e-01_rb,1.536969e-01_rb,&
+        & 1.538984e-01_rb /)
+      fdlice3(:, 25) = (/ &
+! band 25
+        & 1.168725e-01_rb,1.177088e-01_rb,1.185747e-01_rb,1.194680e-01_rb,1.203867e-01_rb,&
+        & 1.213288e-01_rb,1.222923e-01_rb,1.232750e-01_rb,1.242750e-01_rb,1.252903e-01_rb,&
+        & 1.263187e-01_rb,1.273583e-01_rb,1.284069e-01_rb,1.294626e-01_rb,1.305233e-01_rb,&
+        & 1.315870e-01_rb,1.326517e-01_rb,1.337152e-01_rb,1.347756e-01_rb,1.358308e-01_rb,&
+        & 1.368788e-01_rb,1.379175e-01_rb,1.389449e-01_rb,1.399590e-01_rb,1.409577e-01_rb,&
+        & 1.419389e-01_rb,1.429007e-01_rb,1.438410e-01_rb,1.447577e-01_rb,1.456488e-01_rb,&
+        & 1.465123e-01_rb,1.473461e-01_rb,1.481483e-01_rb,1.489166e-01_rb,1.496492e-01_rb,&
+        & 1.503439e-01_rb,1.509988e-01_rb,1.516118e-01_rb,1.521808e-01_rb,1.527038e-01_rb,&
+        & 1.531788e-01_rb,1.536037e-01_rb,1.539764e-01_rb,1.542951e-01_rb,1.545575e-01_rb,&
+        & 1.547617e-01_rb /)
+      fdlice3(:, 26) = (/ &
+!band 26
+        & 1.180509e-01_rb,1.189025e-01_rb,1.197820e-01_rb,1.206875e-01_rb,1.216171e-01_rb,&
+        & 1.225687e-01_rb,1.235404e-01_rb,1.245303e-01_rb,1.255363e-01_rb,1.265564e-01_rb,&
+        & 1.275888e-01_rb,1.286313e-01_rb,1.296821e-01_rb,1.307392e-01_rb,1.318006e-01_rb,&
+        & 1.328643e-01_rb,1.339284e-01_rb,1.349908e-01_rb,1.360497e-01_rb,1.371029e-01_rb,&
+        & 1.381486e-01_rb,1.391848e-01_rb,1.402095e-01_rb,1.412208e-01_rb,1.422165e-01_rb,&
+        & 1.431949e-01_rb,1.441539e-01_rb,1.450915e-01_rb,1.460058e-01_rb,1.468947e-01_rb,&
+        & 1.477564e-01_rb,1.485888e-01_rb,1.493900e-01_rb,1.501580e-01_rb,1.508907e-01_rb,&
+        & 1.515864e-01_rb,1.522428e-01_rb,1.528582e-01_rb,1.534305e-01_rb,1.539578e-01_rb,&
+        & 1.544380e-01_rb,1.548692e-01_rb,1.552494e-01_rb,1.555767e-01_rb,1.558490e-01_rb,&
+        & 1.560645e-01_rb /)
+      fdlice3(:, 27) = (/ &
+! band 27
+        & 1.200480e-01_rb,1.209267e-01_rb,1.218304e-01_rb,1.227575e-01_rb,1.237059e-01_rb,&
+        & 1.246739e-01_rb,1.256595e-01_rb,1.266610e-01_rb,1.276765e-01_rb,1.287041e-01_rb,&
+        & 1.297420e-01_rb,1.307883e-01_rb,1.318412e-01_rb,1.328988e-01_rb,1.339593e-01_rb,&
+        & 1.350207e-01_rb,1.360813e-01_rb,1.371393e-01_rb,1.381926e-01_rb,1.392396e-01_rb,&
+        & 1.402783e-01_rb,1.413069e-01_rb,1.423235e-01_rb,1.433263e-01_rb,1.443134e-01_rb,&
+        & 1.452830e-01_rb,1.462332e-01_rb,1.471622e-01_rb,1.480681e-01_rb,1.489490e-01_rb,&
+        & 1.498032e-01_rb,1.506286e-01_rb,1.514236e-01_rb,1.521863e-01_rb,1.529147e-01_rb,&
+        & 1.536070e-01_rb,1.542614e-01_rb,1.548761e-01_rb,1.554491e-01_rb,1.559787e-01_rb,&
+        & 1.564629e-01_rb,1.568999e-01_rb,1.572879e-01_rb,1.576249e-01_rb,1.579093e-01_rb,&
+        & 1.581390e-01_rb /)
+      fdlice3(:, 28) = (/ &
+! band 28
+        & 1.247813e-01_rb,1.256496e-01_rb,1.265417e-01_rb,1.274560e-01_rb,1.283905e-01_rb,&
+        & 1.293436e-01_rb,1.303135e-01_rb,1.312983e-01_rb,1.322964e-01_rb,1.333060e-01_rb,&
+        & 1.343252e-01_rb,1.353523e-01_rb,1.363855e-01_rb,1.374231e-01_rb,1.384632e-01_rb,&
+        & 1.395042e-01_rb,1.405441e-01_rb,1.415813e-01_rb,1.426140e-01_rb,1.436404e-01_rb,&
+        & 1.446587e-01_rb,1.456672e-01_rb,1.466640e-01_rb,1.476475e-01_rb,1.486157e-01_rb,&
+        & 1.495671e-01_rb,1.504997e-01_rb,1.514117e-01_rb,1.523016e-01_rb,1.531673e-01_rb,&
+        & 1.540073e-01_rb,1.548197e-01_rb,1.556026e-01_rb,1.563545e-01_rb,1.570734e-01_rb,&
+        & 1.577576e-01_rb,1.584054e-01_rb,1.590149e-01_rb,1.595843e-01_rb,1.601120e-01_rb,&
+        & 1.605962e-01_rb,1.610349e-01_rb,1.614266e-01_rb,1.617693e-01_rb,1.620614e-01_rb,&
+        & 1.623011e-01_rb /)
+      fdlice3(:, 29) = (/ &
+! band 29
+        & 1.006055e-01_rb,9.549582e-02_rb,9.063960e-02_rb,8.602900e-02_rb,8.165612e-02_rb,&
+        & 7.751308e-02_rb,7.359199e-02_rb,6.988496e-02_rb,6.638412e-02_rb,6.308156e-02_rb,&
+        & 5.996942e-02_rb,5.703979e-02_rb,5.428481e-02_rb,5.169657e-02_rb,4.926719e-02_rb,&
+        & 4.698880e-02_rb,4.485349e-02_rb,4.285339e-02_rb,4.098061e-02_rb,3.922727e-02_rb,&
+        & 3.758547e-02_rb,3.604733e-02_rb,3.460497e-02_rb,3.325051e-02_rb,3.197604e-02_rb,&
+        & 3.077369e-02_rb,2.963558e-02_rb,2.855381e-02_rb,2.752050e-02_rb,2.652776e-02_rb,&
+        & 2.556772e-02_rb,2.463247e-02_rb,2.371415e-02_rb,2.280485e-02_rb,2.189670e-02_rb,&
+        & 2.098180e-02_rb,2.005228e-02_rb,1.910024e-02_rb,1.811781e-02_rb,1.709709e-02_rb,&
+        & 1.603020e-02_rb,1.490925e-02_rb,1.372635e-02_rb,1.247363e-02_rb,1.114319e-02_rb,&
+        & 9.727157e-03_rb /)
+
+      end subroutine swcldpr
+
+      end module rrtmg_sw_init
+
+
diff --git a/radiation/src/rrtmg_sw_k_g.f90 b/radiation/src/rrtmg_sw_k_g.f90
new file mode 100644
index 0000000000000000000000000000000000000000..1f478c1a90c21cef1b879718520a3d4e2aa6c013
--- /dev/null
+++ b/radiation/src/rrtmg_sw_k_g.f90
@@ -0,0 +1,64520 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! **************************************************************************
+!      subroutine sw_kgbnn
+! **************************************************************************
+!  RRTM Shortwave Radiative Transfer Model
+!  Atmospheric and Environmental Research, Inc., Cambridge, MA
+!
+!  Original by J.Delamere, Atmospheric & Environmental Research.
+!  Reformatted for F90: JJMorcrette, ECMWF
+!  Further F90 and GCM revisions:  MJIacono, AER, July 2002
+!  Solar variability revisions:  MJIacono, AER, November 2015
+!
+!  This file contains 14 subroutines that include the 
+!  absorption coefficients and other data for each of the 14 shortwave
+!  spectral bands used in RRTM_SW.  Here, the data are defined for 16
+!  g-points, or sub-intervals, per band.  These data are combined and
+!  weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce
+!  the total number of g-points from 224 to 112 for use in the GCM.
+! **************************************************************************
+      subroutine sw_kgb16
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg16, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, &
+                            irradnceo, facbrghto, snsptdrko
+      use rrsw_vsn, only: hvrkg, hnamkg
+
+      implicit none
+      save
+
+      hvrkg = '$Revision$'
+
+! Kurucz solar source function
+      sfluxrefo(:) = (/ &
+        &  1.92269_rb    , 1.72844_rb    , 1.64326_rb    , 1.58451_rb     &
+        &, 1.44031_rb    , 1.25108_rb    , 1.02724_rb    , 0.776759_rb    &
+        &, 0.534444_rb   , 5.87755e-02_rb, 4.86706e-02_rb, 3.87989e-02_rb &
+        &, 2.84532e-02_rb, 1.82431e-02_rb, 6.92320e-03_rb, 9.70770e-04_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:) = (/ &
+        & 1.80482E+00_rb, 1.71619E+00_rb, 1.68994E+00_rb, 1.58561E+00_rb,&
+        & 1.43214E+00_rb, 1.24420E+00_rb, 1.02231E+00_rb, 7.68091E-01_rb,&
+        & 5.28826E-01_rb, 5.82363E-02_rb, 4.82582E-02_rb, 3.84759E-02_rb,&
+        & 2.81846E-02_rb, 1.80770E-02_rb, 6.85363E-03_rb, 9.61125E-04_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:) = (/ &
+        & 5.90515E-04_rb, 5.75575E-04_rb, 5.51485E-04_rb, 5.11499E-04_rb,&
+        & 4.59121E-04_rb, 3.95691E-04_rb, 3.23581E-04_rb, 2.43651E-04_rb,&
+        & 1.66062E-04_rb, 1.81173E-05_rb, 1.50358E-05_rb, 1.19376E-05_rb,&
+        & 8.78046E-06_rb, 5.59093E-06_rb, 2.08811E-06_rb, 2.94021E-07_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:) = (/ &
+        &-2.00878E-04_rb,-1.90918E-04_rb,-1.88460E-04_rb,-1.76835E-04_rb,&
+        &-1.59524E-04_rb,-1.38415E-04_rb,-1.13577E-04_rb,-8.52281E-05_rb,&
+        &-5.86712E-05_rb,-6.47215E-06_rb,-5.37923E-06_rb,-4.28842E-06_rb,&
+        &-3.14297E-06_rb,-2.01052E-06_rb,-7.61203E-07_rb,-1.08060E-07_rb/)
+
+! Rayleigh extinction coefficient at v = 2925 cm-1.
+      rayl = 2.91e-10_rb
+
+!     -----------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1, 1) = (/ &
+        & 0.15349e-04_rb,0.89162e-04_rb,0.97706e-04_rb,0.96973e-04_rb,0.90703e-04_rb, &
+        & 0.80393e-04_rb,0.67242e-04_rb,0.50804e-04_rb,0.23334e-04_rb /)
+      kao(:, 2, 1, 1) = (/ &
+        & 0.16138e-04_rb,0.89235e-04_rb,0.97696e-04_rb,0.96116e-04_rb,0.89625e-04_rb, &
+        & 0.79382e-04_rb,0.66587e-04_rb,0.50583e-04_rb,0.24342e-04_rb /)
+      kao(:, 3, 1, 1) = (/ &
+        & 0.16801e-04_rb,0.89390e-04_rb,0.97492e-04_rb,0.95146e-04_rb,0.88483e-04_rb, &
+        & 0.78325e-04_rb,0.65873e-04_rb,0.50342e-04_rb,0.25245e-04_rb /)
+      kao(:, 4, 1, 1) = (/ &
+        & 0.17584e-04_rb,0.89321e-04_rb,0.97141e-04_rb,0.93952e-04_rb,0.87141e-04_rb, &
+        & 0.77126e-04_rb,0.65068e-04_rb,0.49985e-04_rb,0.26046e-04_rb /)
+      kao(:, 5, 1, 1) = (/ &
+        & 0.18258e-04_rb,0.89204e-04_rb,0.96602e-04_rb,0.92773e-04_rb,0.85832e-04_rb, &
+        & 0.76015e-04_rb,0.64318e-04_rb,0.49612e-04_rb,0.26697e-04_rb /)
+      kao(:, 1, 2, 1) = (/ &
+        & 0.12783e-04_rb,0.77013e-04_rb,0.85056e-04_rb,0.84160e-04_rb,0.79021e-04_rb, &
+        & 0.70101e-04_rb,0.58520e-04_rb,0.44007e-04_rb,0.19895e-04_rb /)
+      kao(:, 2, 2, 1) = (/ &
+        & 0.13452e-04_rb,0.77084e-04_rb,0.84929e-04_rb,0.83386e-04_rb,0.78122e-04_rb, &
+        & 0.69293e-04_rb,0.57974e-04_rb,0.43855e-04_rb,0.20713e-04_rb /)
+      kao(:, 3, 2, 1) = (/ &
+        & 0.14066e-04_rb,0.77185e-04_rb,0.84612e-04_rb,0.82498e-04_rb,0.77177e-04_rb, &
+        & 0.68443e-04_rb,0.57444e-04_rb,0.43722e-04_rb,0.21494e-04_rb /)
+      kao(:, 4, 2, 1) = (/ &
+        & 0.14678e-04_rb,0.76996e-04_rb,0.83962e-04_rb,0.81526e-04_rb,0.76049e-04_rb, &
+        & 0.67485e-04_rb,0.56822e-04_rb,0.43530e-04_rb,0.22200e-04_rb /)
+      kao(:, 5, 2, 1) = (/ &
+        & 0.15258e-04_rb,0.76788e-04_rb,0.82821e-04_rb,0.80320e-04_rb,0.74845e-04_rb, &
+        & 0.66487e-04_rb,0.56144e-04_rb,0.43262e-04_rb,0.22757e-04_rb /)
+      kao(:, 1, 3, 1) = (/ &
+        & 0.10474e-04_rb,0.66144e-04_rb,0.73703e-04_rb,0.72701e-04_rb,0.68638e-04_rb, &
+        & 0.60826e-04_rb,0.50854e-04_rb,0.37989e-04_rb,0.17743e-04_rb /)
+      kao(:, 2, 3, 1) = (/ &
+        & 0.11024e-04_rb,0.66096e-04_rb,0.73447e-04_rb,0.72029e-04_rb,0.67858e-04_rb, &
+        & 0.60163e-04_rb,0.50424e-04_rb,0.37886e-04_rb,0.18519e-04_rb /)
+      kao(:, 3, 3, 1) = (/ &
+        & 0.11534e-04_rb,0.65974e-04_rb,0.72795e-04_rb,0.71229e-04_rb,0.67005e-04_rb, &
+        & 0.59442e-04_rb,0.49950e-04_rb,0.37779e-04_rb,0.19184e-04_rb /)
+      kao(:, 4, 3, 1) = (/ &
+        & 0.12091e-04_rb,0.65752e-04_rb,0.72003e-04_rb,0.70357e-04_rb,0.66129e-04_rb, &
+        & 0.58718e-04_rb,0.49503e-04_rb,0.37690e-04_rb,0.19788e-04_rb /)
+      kao(:, 5, 3, 1) = (/ &
+        & 0.12560e-04_rb,0.65678e-04_rb,0.71013e-04_rb,0.69266e-04_rb,0.65076e-04_rb, &
+        & 0.57873e-04_rb,0.48947e-04_rb,0.37519e-04_rb,0.20290e-04_rb /)
+      kao(:, 1, 4, 1) = (/ &
+        & 0.85236e-05_rb,0.56692e-04_rb,0.63625e-04_rb,0.62567e-04_rb,0.59412e-04_rb, &
+        & 0.52601e-04_rb,0.43957e-04_rb,0.32602e-04_rb,0.16862e-04_rb /)
+      kao(:, 2, 4, 1) = (/ &
+        & 0.89886e-05_rb,0.56512e-04_rb,0.63288e-04_rb,0.61902e-04_rb,0.58733e-04_rb, &
+        & 0.52036e-04_rb,0.43629e-04_rb,0.32592e-04_rb,0.17543e-04_rb /)
+      kao(:, 3, 4, 1) = (/ &
+        & 0.94085e-05_rb,0.56287e-04_rb,0.62588e-04_rb,0.61197e-04_rb,0.58020e-04_rb, &
+        & 0.51469e-04_rb,0.43247e-04_rb,0.32567e-04_rb,0.18199e-04_rb /)
+      kao(:, 4, 4, 1) = (/ &
+        & 0.98830e-05_rb,0.55998e-04_rb,0.61716e-04_rb,0.60485e-04_rb,0.57250e-04_rb, &
+        & 0.50840e-04_rb,0.42842e-04_rb,0.32520e-04_rb,0.18771e-04_rb /)
+      kao(:, 5, 4, 1) = (/ &
+        & 0.10278e-04_rb,0.55929e-04_rb,0.61011e-04_rb,0.59745e-04_rb,0.56462e-04_rb, &
+        & 0.50254e-04_rb,0.42468e-04_rb,0.32457e-04_rb,0.19296e-04_rb /)
+      kao(:, 1, 5, 1) = (/ &
+        & 0.68852e-05_rb,0.48282e-04_rb,0.54761e-04_rb,0.53543e-04_rb,0.51345e-04_rb, &
+        & 0.45380e-04_rb,0.37794e-04_rb,0.27880e-04_rb,0.14959e-04_rb /)
+      kao(:, 2, 5, 1) = (/ &
+        & 0.72830e-05_rb,0.48206e-04_rb,0.54379e-04_rb,0.52923e-04_rb,0.50723e-04_rb, &
+        & 0.44903e-04_rb,0.37536e-04_rb,0.27938e-04_rb,0.15841e-04_rb /)
+      kao(:, 3, 5, 1) = (/ &
+        & 0.76436e-05_rb,0.47928e-04_rb,0.53597e-04_rb,0.52299e-04_rb,0.50061e-04_rb, &
+        & 0.44426e-04_rb,0.37240e-04_rb,0.27962e-04_rb,0.16760e-04_rb /)
+      kao(:, 4, 5, 1) = (/ &
+        & 0.80055e-05_rb,0.47625e-04_rb,0.52896e-04_rb,0.51678e-04_rb,0.49302e-04_rb, &
+        & 0.43902e-04_rb,0.36930e-04_rb,0.27968e-04_rb,0.17586e-04_rb /)
+      kao(:, 5, 5, 1) = (/ &
+        & 0.83555e-05_rb,0.47486e-04_rb,0.52258e-04_rb,0.51112e-04_rb,0.48444e-04_rb, &
+        & 0.43409e-04_rb,0.36652e-04_rb,0.27966e-04_rb,0.18270e-04_rb /)
+      kao(:, 1, 6, 1) = (/ &
+        & 0.55363e-05_rb,0.40995e-04_rb,0.46991e-04_rb,0.45840e-04_rb,0.44200e-04_rb, &
+        & 0.38984e-04_rb,0.32341e-04_rb,0.23743e-04_rb,0.12825e-04_rb /)
+      kao(:, 2, 6, 1) = (/ &
+        & 0.58741e-05_rb,0.40851e-04_rb,0.46490e-04_rb,0.45277e-04_rb,0.43651e-04_rb, &
+        & 0.38565e-04_rb,0.32141e-04_rb,0.23813e-04_rb,0.13671e-04_rb /)
+      kao(:, 3, 6, 1) = (/ &
+        & 0.61821e-05_rb,0.40643e-04_rb,0.45850e-04_rb,0.44728e-04_rb,0.42924e-04_rb, &
+        & 0.38164e-04_rb,0.31920e-04_rb,0.23858e-04_rb,0.14647e-04_rb /)
+      kao(:, 4, 6, 1) = (/ &
+        & 0.64614e-05_rb,0.40329e-04_rb,0.45202e-04_rb,0.44163e-04_rb,0.42054e-04_rb, &
+        & 0.37723e-04_rb,0.31679e-04_rb,0.23886e-04_rb,0.15533e-04_rb /)
+      kao(:, 5, 6, 1) = (/ &
+        & 0.67675e-05_rb,0.40137e-04_rb,0.44578e-04_rb,0.43574e-04_rb,0.41267e-04_rb, &
+        & 0.37271e-04_rb,0.31420e-04_rb,0.23883e-04_rb,0.16436e-04_rb /)
+      kao(:, 1, 7, 1) = (/ &
+        & 0.44217e-05_rb,0.34626e-04_rb,0.39970e-04_rb,0.39080e-04_rb,0.37744e-04_rb, &
+        & 0.33237e-04_rb,0.27507e-04_rb,0.20074e-04_rb,0.11007e-04_rb /)
+      kao(:, 2, 7, 1) = (/ &
+        & 0.47104e-05_rb,0.34494e-04_rb,0.39592e-04_rb,0.38568e-04_rb,0.37283e-04_rb, &
+        & 0.32875e-04_rb,0.27342e-04_rb,0.20149e-04_rb,0.11834e-04_rb /)
+      kao(:, 3, 7, 1) = (/ &
+        & 0.49764e-05_rb,0.34300e-04_rb,0.39007e-04_rb,0.38074e-04_rb,0.36415e-04_rb, &
+        & 0.32528e-04_rb,0.27158e-04_rb,0.20213e-04_rb,0.12801e-04_rb /)
+      kao(:, 4, 7, 1) = (/ &
+        & 0.52135e-05_rb,0.34067e-04_rb,0.38449e-04_rb,0.37591e-04_rb,0.35661e-04_rb, &
+        & 0.32173e-04_rb,0.26959e-04_rb,0.20265e-04_rb,0.13763e-04_rb /)
+      kao(:, 5, 7, 1) = (/ &
+        & 0.54275e-05_rb,0.33832e-04_rb,0.37875e-04_rb,0.37057e-04_rb,0.35065e-04_rb, &
+        & 0.31800e-04_rb,0.26760e-04_rb,0.20278e-04_rb,0.14677e-04_rb /)
+      kao(:, 1, 8, 1) = (/ &
+        & 0.35317e-05_rb,0.29115e-04_rb,0.33824e-04_rb,0.33370e-04_rb,0.32237e-04_rb, &
+        & 0.28331e-04_rb,0.23362e-04_rb,0.16932e-04_rb,0.96086e-05_rb /)
+      kao(:, 2, 8, 1) = (/ &
+        & 0.37854e-05_rb,0.29084e-04_rb,0.33632e-04_rb,0.32929e-04_rb,0.31805e-04_rb, &
+        & 0.28018e-04_rb,0.23236e-04_rb,0.17006e-04_rb,0.10621e-04_rb /)
+      kao(:, 3, 8, 1) = (/ &
+        & 0.40127e-05_rb,0.28935e-04_rb,0.33190e-04_rb,0.32483e-04_rb,0.30936e-04_rb, &
+        & 0.27716e-04_rb,0.23074e-04_rb,0.17087e-04_rb,0.11657e-04_rb /)
+      kao(:, 4, 8, 1) = (/ &
+        & 0.42184e-05_rb,0.28732e-04_rb,0.32711e-04_rb,0.32042e-04_rb,0.30351e-04_rb, &
+        & 0.27404e-04_rb,0.22906e-04_rb,0.17140e-04_rb,0.12504e-04_rb /)
+      kao(:, 5, 8, 1) = (/ &
+        & 0.44040e-05_rb,0.28488e-04_rb,0.32207e-04_rb,0.31581e-04_rb,0.29852e-04_rb, &
+        & 0.27086e-04_rb,0.22740e-04_rb,0.17166e-04_rb,0.13401e-04_rb /)
+      kao(:, 1, 9, 1) = (/ &
+        & 0.28004e-05_rb,0.24421e-04_rb,0.28507e-04_rb,0.28270e-04_rb,0.27415e-04_rb, &
+        & 0.24038e-04_rb,0.19759e-04_rb,0.14209e-04_rb,0.88498e-05_rb /)
+      kao(:, 2, 9, 1) = (/ &
+        & 0.30342e-05_rb,0.24385e-04_rb,0.28391e-04_rb,0.27999e-04_rb,0.26969e-04_rb, &
+        & 0.23770e-04_rb,0.19651e-04_rb,0.14288e-04_rb,0.10048e-04_rb /)
+      kao(:, 3, 9, 1) = (/ &
+        & 0.32304e-05_rb,0.24304e-04_rb,0.28136e-04_rb,0.27602e-04_rb,0.26246e-04_rb, &
+        & 0.23508e-04_rb,0.19517e-04_rb,0.14360e-04_rb,0.11188e-04_rb /)
+      kao(:, 4, 9, 1) = (/ &
+        & 0.34049e-05_rb,0.24160e-04_rb,0.27731e-04_rb,0.27211e-04_rb,0.25756e-04_rb, &
+        & 0.23246e-04_rb,0.19380e-04_rb,0.14426e-04_rb,0.12319e-04_rb /)
+      kao(:, 5, 9, 1) = (/ &
+        & 0.35648e-05_rb,0.23940e-04_rb,0.27283e-04_rb,0.26806e-04_rb,0.25320e-04_rb, &
+        & 0.22960e-04_rb,0.19234e-04_rb,0.14451e-04_rb,0.13506e-04_rb /)
+      kao(:, 1,10, 1) = (/ &
+        & 0.22115e-05_rb,0.20358e-04_rb,0.23898e-04_rb,0.23781e-04_rb,0.23142e-04_rb, &
+        & 0.20260e-04_rb,0.16593e-04_rb,0.11876e-04_rb,0.77665e-05_rb /)
+      kao(:, 2,10, 1) = (/ &
+        & 0.24264e-05_rb,0.20362e-04_rb,0.23820e-04_rb,0.23569e-04_rb,0.22708e-04_rb, &
+        & 0.20037e-04_rb,0.16524e-04_rb,0.11954e-04_rb,0.90216e-05_rb /)
+      kao(:, 3,10, 1) = (/ &
+        & 0.26002e-05_rb,0.20303e-04_rb,0.23663e-04_rb,0.23295e-04_rb,0.22132e-04_rb, &
+        & 0.19806e-04_rb,0.16414e-04_rb,0.12011e-04_rb,0.10379e-04_rb /)
+      kao(:, 4,10, 1) = (/ &
+        & 0.27486e-05_rb,0.20198e-04_rb,0.23357e-04_rb,0.22943e-04_rb,0.21707e-04_rb, &
+        & 0.19580e-04_rb,0.16298e-04_rb,0.12060e-04_rb,0.11771e-04_rb /)
+      kao(:, 5,10, 1) = (/ &
+        & 0.28881e-05_rb,0.20019e-04_rb,0.22982e-04_rb,0.22584e-04_rb,0.21296e-04_rb, &
+        & 0.19341e-04_rb,0.16164e-04_rb,0.12088e-04_rb,0.13279e-04_rb /)
+      kao(:, 1,11, 1) = (/ &
+        & 0.18320e-05_rb,0.16927e-04_rb,0.19968e-04_rb,0.19856e-04_rb,0.19352e-04_rb, &
+        & 0.16934e-04_rb,0.13866e-04_rb,0.99116e-05_rb,0.67134e-05_rb /)
+      kao(:, 2,11, 1) = (/ &
+        & 0.20049e-05_rb,0.16927e-04_rb,0.19853e-04_rb,0.19674e-04_rb,0.18853e-04_rb, &
+        & 0.16739e-04_rb,0.13797e-04_rb,0.99757e-05_rb,0.78968e-05_rb /)
+      kao(:, 3,11, 1) = (/ &
+        & 0.21502e-05_rb,0.16866e-04_rb,0.19704e-04_rb,0.19448e-04_rb,0.18441e-04_rb, &
+        & 0.16541e-04_rb,0.13705e-04_rb,0.10023e-04_rb,0.91593e-05_rb /)
+      kao(:, 4,11, 1) = (/ &
+        & 0.22714e-05_rb,0.16777e-04_rb,0.19465e-04_rb,0.19143e-04_rb,0.18062e-04_rb, &
+        & 0.16347e-04_rb,0.13601e-04_rb,0.10057e-04_rb,0.10536e-04_rb /)
+      kao(:, 5,11, 1) = (/ &
+        & 0.23867e-05_rb,0.16634e-04_rb,0.19123e-04_rb,0.18829e-04_rb,0.17732e-04_rb, &
+        & 0.16132e-04_rb,0.13484e-04_rb,0.10082e-04_rb,0.12018e-04_rb /)
+      kao(:, 1,12, 1) = (/ &
+        & 0.15169e-05_rb,0.14042e-04_rb,0.16626e-04_rb,0.16552e-04_rb,0.16148e-04_rb, &
+        & 0.14121e-04_rb,0.11557e-04_rb,0.82558e-05_rb,0.56116e-05_rb /)
+      kao(:, 2,12, 1) = (/ &
+        & 0.16576e-05_rb,0.14051e-04_rb,0.16515e-04_rb,0.16389e-04_rb,0.15651e-04_rb, &
+        & 0.13956e-04_rb,0.11498e-04_rb,0.83065e-05_rb,0.66756e-05_rb /)
+      kao(:, 3,12, 1) = (/ &
+        & 0.17786e-05_rb,0.13996e-04_rb,0.16382e-04_rb,0.16200e-04_rb,0.15335e-04_rb, &
+        & 0.13791e-04_rb,0.11414e-04_rb,0.83396e-05_rb,0.78609e-05_rb /)
+      kao(:, 4,12, 1) = (/ &
+        & 0.18784e-05_rb,0.13920e-04_rb,0.16173e-04_rb,0.15944e-04_rb,0.15016e-04_rb, &
+        & 0.13612e-04_rb,0.11321e-04_rb,0.83696e-05_rb,0.90657e-05_rb /)
+      kao(:, 5,12, 1) = (/ &
+        & 0.19730e-05_rb,0.13808e-04_rb,0.15876e-04_rb,0.15671e-04_rb,0.14704e-04_rb, &
+        & 0.13425e-04_rb,0.11218e-04_rb,0.83846e-05_rb,0.10342e-04_rb /)
+      kao(:, 1,13, 1) = (/ &
+        & 0.12548e-05_rb,0.11622e-04_rb,0.13817e-04_rb,0.13765e-04_rb,0.13366e-04_rb, &
+        & 0.11761e-04_rb,0.96214e-05_rb,0.68586e-05_rb,0.46815e-05_rb /)
+      kao(:, 2,13, 1) = (/ &
+        & 0.13720e-05_rb,0.11638e-04_rb,0.13707e-04_rb,0.13640e-04_rb,0.13007e-04_rb, &
+        & 0.11624e-04_rb,0.95672e-05_rb,0.68978e-05_rb,0.55831e-05_rb /)
+      kao(:, 3,13, 1) = (/ &
+        & 0.14716e-05_rb,0.11595e-04_rb,0.13603e-04_rb,0.13476e-04_rb,0.12728e-04_rb, &
+        & 0.11474e-04_rb,0.94883e-05_rb,0.69284e-05_rb,0.65694e-05_rb /)
+      kao(:, 4,13, 1) = (/ &
+        & 0.15544e-05_rb,0.11533e-04_rb,0.13432e-04_rb,0.13265e-04_rb,0.12450e-04_rb, &
+        & 0.11320e-04_rb,0.94054e-05_rb,0.69510e-05_rb,0.75699e-05_rb /)
+      kao(:, 5,13, 1) = (/ &
+        & 0.16324e-05_rb,0.11450e-04_rb,0.13177e-04_rb,0.13030e-04_rb,0.12193e-04_rb, &
+        & 0.11159e-04_rb,0.93157e-05_rb,0.69543e-05_rb,0.86449e-05_rb /)
+      kao(:, 1, 1, 2) = (/ &
+        & 0.10905e-03_rb,0.19084e-03_rb,0.20069e-03_rb,0.19832e-03_rb,0.18610e-03_rb, &
+        & 0.17089e-03_rb,0.14990e-03_rb,0.11759e-03_rb,0.64675e-04_rb /)
+      kao(:, 2, 1, 2) = (/ &
+        & 0.11105e-03_rb,0.18952e-03_rb,0.19885e-03_rb,0.19823e-03_rb,0.18675e-03_rb, &
+        & 0.17126e-03_rb,0.15098e-03_rb,0.11929e-03_rb,0.67071e-04_rb /)
+      kao(:, 3, 1, 2) = (/ &
+        & 0.11276e-03_rb,0.18853e-03_rb,0.19769e-03_rb,0.19892e-03_rb,0.18804e-03_rb, &
+        & 0.17228e-03_rb,0.15234e-03_rb,0.12104e-03_rb,0.69562e-04_rb /)
+      kao(:, 4, 1, 2) = (/ &
+        & 0.11331e-03_rb,0.18716e-03_rb,0.19673e-03_rb,0.19862e-03_rb,0.18922e-03_rb, &
+        & 0.17345e-03_rb,0.15364e-03_rb,0.12287e-03_rb,0.72145e-04_rb /)
+      kao(:, 5, 1, 2) = (/ &
+        & 0.11374e-03_rb,0.18626e-03_rb,0.19656e-03_rb,0.19857e-03_rb,0.19062e-03_rb, &
+        & 0.17445e-03_rb,0.15373e-03_rb,0.12483e-03_rb,0.74697e-04_rb /)
+      kao(:, 1, 2, 2) = (/ &
+        & 0.94458e-04_rb,0.16650e-03_rb,0.17483e-03_rb,0.17491e-03_rb,0.16501e-03_rb, &
+        & 0.15069e-03_rb,0.13359e-03_rb,0.10498e-03_rb,0.55352e-04_rb /)
+      kao(:, 2, 2, 2) = (/ &
+        & 0.96121e-04_rb,0.16557e-03_rb,0.17383e-03_rb,0.17514e-03_rb,0.16597e-03_rb, &
+        & 0.15082e-03_rb,0.13480e-03_rb,0.10677e-03_rb,0.57531e-04_rb /)
+      kao(:, 3, 2, 2) = (/ &
+        & 0.97581e-04_rb,0.16494e-03_rb,0.17349e-03_rb,0.17480e-03_rb,0.16726e-03_rb, &
+        & 0.15206e-03_rb,0.13520e-03_rb,0.10844e-03_rb,0.59621e-04_rb /)
+      kao(:, 4, 2, 2) = (/ &
+        & 0.98152e-04_rb,0.16427e-03_rb,0.17323e-03_rb,0.17471e-03_rb,0.16812e-03_rb, &
+        & 0.15352e-03_rb,0.13523e-03_rb,0.11008e-03_rb,0.61894e-04_rb /)
+      kao(:, 5, 2, 2) = (/ &
+        & 0.98081e-04_rb,0.16346e-03_rb,0.17334e-03_rb,0.17481e-03_rb,0.16845e-03_rb, &
+        & 0.15496e-03_rb,0.13612e-03_rb,0.11175e-03_rb,0.64159e-04_rb /)
+      kao(:, 1, 3, 2) = (/ &
+        & 0.80988e-04_rb,0.14444e-03_rb,0.15236e-03_rb,0.15355e-03_rb,0.14515e-03_rb, &
+        & 0.13201e-03_rb,0.11827e-03_rb,0.92843e-04_rb,0.47818e-04_rb /)
+      kao(:, 2, 3, 2) = (/ &
+        & 0.82627e-04_rb,0.14399e-03_rb,0.15198e-03_rb,0.15308e-03_rb,0.14622e-03_rb, &
+        & 0.13285e-03_rb,0.11829e-03_rb,0.94579e-04_rb,0.49498e-04_rb /)
+      kao(:, 3, 3, 2) = (/ &
+        & 0.83666e-04_rb,0.14365e-03_rb,0.15183e-03_rb,0.15300e-03_rb,0.14704e-03_rb, &
+        & 0.13418e-03_rb,0.11832e-03_rb,0.96259e-04_rb,0.51225e-04_rb /)
+      kao(:, 4, 3, 2) = (/ &
+        & 0.84164e-04_rb,0.14362e-03_rb,0.15205e-03_rb,0.15285e-03_rb,0.14764e-03_rb, &
+        & 0.13590e-03_rb,0.11954e-03_rb,0.97885e-04_rb,0.52990e-04_rb /)
+      kao(:, 5, 3, 2) = (/ &
+        & 0.84014e-04_rb,0.14269e-03_rb,0.15214e-03_rb,0.15331e-03_rb,0.14865e-03_rb, &
+        & 0.13747e-03_rb,0.12089e-03_rb,0.99389e-04_rb,0.54936e-04_rb /)
+      kao(:, 1, 4, 2) = (/ &
+        & 0.69055e-04_rb,0.12498e-03_rb,0.13260e-03_rb,0.13427e-03_rb,0.12748e-03_rb, &
+        & 0.11593e-03_rb,0.10318e-03_rb,0.81535e-04_rb,0.43344e-04_rb /)
+      kao(:, 2, 4, 2) = (/ &
+        & 0.70374e-04_rb,0.12479e-03_rb,0.13217e-03_rb,0.13387e-03_rb,0.12823e-03_rb, &
+        & 0.11702e-03_rb,0.10316e-03_rb,0.83059e-04_rb,0.44577e-04_rb /)
+      kao(:, 3, 4, 2) = (/ &
+        & 0.71321e-04_rb,0.12483e-03_rb,0.13205e-03_rb,0.13371e-03_rb,0.12866e-03_rb, &
+        & 0.11820e-03_rb,0.10422e-03_rb,0.84648e-04_rb,0.45880e-04_rb /)
+      kao(:, 4, 4, 2) = (/ &
+        & 0.71712e-04_rb,0.12475e-03_rb,0.13249e-03_rb,0.13379e-03_rb,0.12934e-03_rb, &
+        & 0.11960e-03_rb,0.10551e-03_rb,0.86238e-04_rb,0.47243e-04_rb /)
+      kao(:, 5, 4, 2) = (/ &
+        & 0.71917e-04_rb,0.12433e-03_rb,0.13275e-03_rb,0.13434e-03_rb,0.13049e-03_rb, &
+        & 0.12131e-03_rb,0.10676e-03_rb,0.87830e-04_rb,0.48641e-04_rb /)
+      kao(:, 1, 5, 2) = (/ &
+        & 0.58527e-04_rb,0.10840e-03_rb,0.11507e-03_rb,0.11730e-03_rb,0.11099e-03_rb, &
+        & 0.10118e-03_rb,0.89566e-04_rb,0.71122e-04_rb,0.43658e-04_rb /)
+      kao(:, 2, 5, 2) = (/ &
+        & 0.59798e-04_rb,0.10799e-03_rb,0.11447e-03_rb,0.11692e-03_rb,0.11189e-03_rb, &
+        & 0.10224e-03_rb,0.90255e-04_rb,0.72476e-04_rb,0.44361e-04_rb /)
+      kao(:, 3, 5, 2) = (/ &
+        & 0.60601e-04_rb,0.10799e-03_rb,0.11464e-03_rb,0.11677e-03_rb,0.11225e-03_rb, &
+        & 0.10358e-03_rb,0.91122e-04_rb,0.73922e-04_rb,0.45004e-04_rb /)
+      kao(:, 4, 5, 2) = (/ &
+        & 0.60971e-04_rb,0.10798e-03_rb,0.11486e-03_rb,0.11681e-03_rb,0.11304e-03_rb, &
+        & 0.10512e-03_rb,0.91981e-04_rb,0.75441e-04_rb,0.45782e-04_rb /)
+      kao(:, 5, 5, 2) = (/ &
+        & 0.61166e-04_rb,0.10769e-03_rb,0.11529e-03_rb,0.11740e-03_rb,0.11428e-03_rb, &
+        & 0.10674e-03_rb,0.93329e-04_rb,0.76963e-04_rb,0.46781e-04_rb /)
+      kao(:, 1, 6, 2) = (/ &
+        & 0.49298e-04_rb,0.93665e-04_rb,0.99302e-04_rb,0.10166e-03_rb,0.96125e-04_rb, &
+        & 0.87991e-04_rb,0.77830e-04_rb,0.61651e-04_rb,0.45761e-04_rb /)
+      kao(:, 2, 6, 2) = (/ &
+        & 0.50498e-04_rb,0.93479e-04_rb,0.98966e-04_rb,0.10139e-03_rb,0.96705e-04_rb, &
+        & 0.89173e-04_rb,0.78227e-04_rb,0.62850e-04_rb,0.46039e-04_rb /)
+      kao(:, 3, 6, 2) = (/ &
+        & 0.51269e-04_rb,0.93203e-04_rb,0.98973e-04_rb,0.10127e-03_rb,0.97298e-04_rb, &
+        & 0.90362e-04_rb,0.78802e-04_rb,0.64157e-04_rb,0.46346e-04_rb /)
+      kao(:, 4, 6, 2) = (/ &
+        & 0.51588e-04_rb,0.93137e-04_rb,0.99162e-04_rb,0.10129e-03_rb,0.98592e-04_rb, &
+        & 0.91554e-04_rb,0.79929e-04_rb,0.65574e-04_rb,0.46727e-04_rb /)
+      kao(:, 5, 6, 2) = (/ &
+        & 0.51597e-04_rb,0.92792e-04_rb,0.99458e-04_rb,0.10170e-03_rb,0.99448e-04_rb, &
+        & 0.92834e-04_rb,0.81330e-04_rb,0.66366e-04_rb,0.47183e-04_rb /)
+      kao(:, 1, 7, 2) = (/ &
+        & 0.41246e-04_rb,0.80496e-04_rb,0.85316e-04_rb,0.87435e-04_rb,0.82542e-04_rb, &
+        & 0.75819e-04_rb,0.67022e-04_rb,0.53111e-04_rb,0.48352e-04_rb /)
+      kao(:, 2, 7, 2) = (/ &
+        & 0.42332e-04_rb,0.80236e-04_rb,0.84984e-04_rb,0.87173e-04_rb,0.83192e-04_rb, &
+        & 0.76872e-04_rb,0.67154e-04_rb,0.54235e-04_rb,0.49203e-04_rb /)
+      kao(:, 3, 7, 2) = (/ &
+        & 0.43069e-04_rb,0.79969e-04_rb,0.85117e-04_rb,0.87191e-04_rb,0.83963e-04_rb, &
+        & 0.78027e-04_rb,0.67911e-04_rb,0.55423e-04_rb,0.50036e-04_rb /)
+      kao(:, 4, 7, 2) = (/ &
+        & 0.43347e-04_rb,0.79762e-04_rb,0.85176e-04_rb,0.87282e-04_rb,0.84970e-04_rb, &
+        & 0.78971e-04_rb,0.69097e-04_rb,0.56659e-04_rb,0.50699e-04_rb /)
+      kao(:, 5, 7, 2) = (/ &
+        & 0.43381e-04_rb,0.79473e-04_rb,0.85320e-04_rb,0.87550e-04_rb,0.85526e-04_rb, &
+        & 0.80111e-04_rb,0.70399e-04_rb,0.56992e-04_rb,0.51218e-04_rb /)
+      kao(:, 1, 8, 2) = (/ &
+        & 0.34402e-04_rb,0.69256e-04_rb,0.73264e-04_rb,0.74907e-04_rb,0.70733e-04_rb, &
+        & 0.65058e-04_rb,0.57123e-04_rb,0.45547e-04_rb,0.49061e-04_rb /)
+      kao(:, 2, 8, 2) = (/ &
+        & 0.35394e-04_rb,0.68938e-04_rb,0.72891e-04_rb,0.74693e-04_rb,0.71198e-04_rb, &
+        & 0.66010e-04_rb,0.57419e-04_rb,0.46585e-04_rb,0.51368e-04_rb /)
+      kao(:, 3, 8, 2) = (/ &
+        & 0.36086e-04_rb,0.68637e-04_rb,0.72875e-04_rb,0.74679e-04_rb,0.72090e-04_rb, &
+        & 0.66902e-04_rb,0.58282e-04_rb,0.47622e-04_rb,0.51837e-04_rb /)
+      kao(:, 4, 8, 2) = (/ &
+        & 0.36445e-04_rb,0.68326e-04_rb,0.72869e-04_rb,0.74856e-04_rb,0.72765e-04_rb, &
+        & 0.67827e-04_rb,0.59362e-04_rb,0.48483e-04_rb,0.52297e-04_rb /)
+      kao(:, 5, 8, 2) = (/ &
+        & 0.36483e-04_rb,0.68010e-04_rb,0.72961e-04_rb,0.75096e-04_rb,0.73241e-04_rb, &
+        & 0.68587e-04_rb,0.60512e-04_rb,0.48784e-04_rb,0.53745e-04_rb /)
+      kao(:, 1, 9, 2) = (/ &
+        & 0.28433e-04_rb,0.59232e-04_rb,0.62701e-04_rb,0.63901e-04_rb,0.60103e-04_rb, &
+        & 0.55141e-04_rb,0.48531e-04_rb,0.38847e-04_rb,0.54662e-04_rb /)
+      kao(:, 2, 9, 2) = (/ &
+        & 0.29405e-04_rb,0.58918e-04_rb,0.62216e-04_rb,0.63604e-04_rb,0.60633e-04_rb, &
+        & 0.55830e-04_rb,0.48918e-04_rb,0.39795e-04_rb,0.56459e-04_rb /)
+      kao(:, 3, 9, 2) = (/ &
+        & 0.30040e-04_rb,0.58597e-04_rb,0.61986e-04_rb,0.63627e-04_rb,0.61357e-04_rb, &
+        & 0.56779e-04_rb,0.49706e-04_rb,0.40729e-04_rb,0.58698e-04_rb /)
+      kao(:, 4, 9, 2) = (/ &
+        & 0.30412e-04_rb,0.58268e-04_rb,0.61940e-04_rb,0.63690e-04_rb,0.61916e-04_rb, &
+        & 0.57700e-04_rb,0.50677e-04_rb,0.41137e-04_rb,0.60426e-04_rb /)
+      kao(:, 5, 9, 2) = (/ &
+        & 0.30517e-04_rb,0.57913e-04_rb,0.61982e-04_rb,0.63808e-04_rb,0.62307e-04_rb, &
+        & 0.58353e-04_rb,0.51602e-04_rb,0.41668e-04_rb,0.61933e-04_rb /)
+      kao(:, 1,10, 2) = (/ &
+        & 0.23291e-04_rb,0.50308e-04_rb,0.53243e-04_rb,0.54258e-04_rb,0.50787e-04_rb, &
+        & 0.46509e-04_rb,0.41036e-04_rb,0.32969e-04_rb,0.63749e-04_rb /)
+      kao(:, 2,10, 2) = (/ &
+        & 0.24304e-04_rb,0.50027e-04_rb,0.52858e-04_rb,0.54035e-04_rb,0.51457e-04_rb, &
+        & 0.47117e-04_rb,0.41427e-04_rb,0.33795e-04_rb,0.67891e-04_rb /)
+      kao(:, 3,10, 2) = (/ &
+        & 0.24884e-04_rb,0.49658e-04_rb,0.52484e-04_rb,0.53877e-04_rb,0.52001e-04_rb, &
+        & 0.47908e-04_rb,0.42080e-04_rb,0.34652e-04_rb,0.71374e-04_rb /)
+      kao(:, 4,10, 2) = (/ &
+        & 0.25245e-04_rb,0.49329e-04_rb,0.52369e-04_rb,0.53861e-04_rb,0.52353e-04_rb, &
+        & 0.48763e-04_rb,0.42918e-04_rb,0.34903e-04_rb,0.73983e-04_rb /)
+      kao(:, 5,10, 2) = (/ &
+        & 0.25399e-04_rb,0.49019e-04_rb,0.52344e-04_rb,0.53920e-04_rb,0.52702e-04_rb, &
+        & 0.49354e-04_rb,0.43795e-04_rb,0.35336e-04_rb,0.76874e-04_rb /)
+      kao(:, 1,11, 2) = (/ &
+        & 0.19464e-04_rb,0.42428e-04_rb,0.44774e-04_rb,0.45764e-04_rb,0.43065e-04_rb, &
+        & 0.39257e-04_rb,0.34681e-04_rb,0.28149e-04_rb,0.56538e-04_rb /)
+      kao(:, 2,11, 2) = (/ &
+        & 0.20274e-04_rb,0.42118e-04_rb,0.44484e-04_rb,0.45525e-04_rb,0.43594e-04_rb, &
+        & 0.39908e-04_rb,0.35109e-04_rb,0.28880e-04_rb,0.61143e-04_rb /)
+      kao(:, 3,11, 2) = (/ &
+        & 0.20723e-04_rb,0.41781e-04_rb,0.44183e-04_rb,0.45345e-04_rb,0.43968e-04_rb, &
+        & 0.40542e-04_rb,0.35722e-04_rb,0.29427e-04_rb,0.66428e-04_rb /)
+      kao(:, 4,11, 2) = (/ &
+        & 0.20986e-04_rb,0.41469e-04_rb,0.44005e-04_rb,0.45299e-04_rb,0.44240e-04_rb, &
+        & 0.41204e-04_rb,0.36501e-04_rb,0.29565e-04_rb,0.70536e-04_rb /)
+      kao(:, 5,11, 2) = (/ &
+        & 0.21088e-04_rb,0.41122e-04_rb,0.44008e-04_rb,0.45344e-04_rb,0.44427e-04_rb, &
+        & 0.41695e-04_rb,0.37345e-04_rb,0.29974e-04_rb,0.74164e-04_rb /)
+      kao(:, 1,12, 2) = (/ &
+        & 0.16205e-04_rb,0.35661e-04_rb,0.37585e-04_rb,0.38332e-04_rb,0.36196e-04_rb, &
+        & 0.33054e-04_rb,0.29216e-04_rb,0.23917e-04_rb,0.49111e-04_rb /)
+      kao(:, 2,12, 2) = (/ &
+        & 0.16873e-04_rb,0.35314e-04_rb,0.37290e-04_rb,0.38165e-04_rb,0.36667e-04_rb, &
+        & 0.33618e-04_rb,0.29598e-04_rb,0.24536e-04_rb,0.53408e-04_rb /)
+      kao(:, 3,12, 2) = (/ &
+        & 0.17216e-04_rb,0.35012e-04_rb,0.37013e-04_rb,0.37971e-04_rb,0.36937e-04_rb, &
+        & 0.34200e-04_rb,0.30188e-04_rb,0.24727e-04_rb,0.56692e-04_rb /)
+      kao(:, 4,12, 2) = (/ &
+        & 0.17409e-04_rb,0.34711e-04_rb,0.36851e-04_rb,0.37885e-04_rb,0.37053e-04_rb, &
+        & 0.34609e-04_rb,0.30881e-04_rb,0.24937e-04_rb,0.60809e-04_rb /)
+      kao(:, 5,12, 2) = (/ &
+        & 0.17480e-04_rb,0.34362e-04_rb,0.36830e-04_rb,0.37891e-04_rb,0.37213e-04_rb, &
+        & 0.35045e-04_rb,0.31524e-04_rb,0.25269e-04_rb,0.65163e-04_rb /)
+      kao(:, 1,13, 2) = (/ &
+        & 0.13457e-04_rb,0.29884e-04_rb,0.31446e-04_rb,0.32052e-04_rb,0.30374e-04_rb, &
+        & 0.27733e-04_rb,0.24511e-04_rb,0.20198e-04_rb,0.41009e-04_rb /)
+      kao(:, 2,13, 2) = (/ &
+        & 0.14007e-04_rb,0.29560e-04_rb,0.31187e-04_rb,0.31882e-04_rb,0.30716e-04_rb, &
+        & 0.28181e-04_rb,0.24877e-04_rb,0.20737e-04_rb,0.44661e-04_rb /)
+      kao(:, 3,13, 2) = (/ &
+        & 0.14280e-04_rb,0.29273e-04_rb,0.30932e-04_rb,0.31685e-04_rb,0.30856e-04_rb, &
+        & 0.28687e-04_rb,0.25310e-04_rb,0.20664e-04_rb,0.47397e-04_rb /)
+      kao(:, 4,13, 2) = (/ &
+        & 0.14434e-04_rb,0.28982e-04_rb,0.30751e-04_rb,0.31601e-04_rb,0.30957e-04_rb, &
+        & 0.28945e-04_rb,0.25864e-04_rb,0.20868e-04_rb,0.50575e-04_rb /)
+      kao(:, 5,13, 2) = (/ &
+        & 0.14483e-04_rb,0.28660e-04_rb,0.30711e-04_rb,0.31533e-04_rb,0.31075e-04_rb, &
+        & 0.29320e-04_rb,0.26408e-04_rb,0.21257e-04_rb,0.54097e-04_rb /)
+      kao(:, 1, 1, 3) = (/ &
+        & 0.22536e-03_rb,0.32037e-03_rb,0.33781e-03_rb,0.34273e-03_rb,0.33729e-03_rb, &
+        & 0.32075e-03_rb,0.29153e-03_rb,0.24856e-03_rb,0.16410e-03_rb /)
+      kao(:, 2, 1, 3) = (/ &
+        & 0.22342e-03_rb,0.32281e-03_rb,0.34293e-03_rb,0.34673e-03_rb,0.34167e-03_rb, &
+        & 0.32688e-03_rb,0.29787e-03_rb,0.25566e-03_rb,0.17029e-03_rb /)
+      kao(:, 3, 1, 3) = (/ &
+        & 0.22157e-03_rb,0.32559e-03_rb,0.34865e-03_rb,0.35164e-03_rb,0.34805e-03_rb, &
+        & 0.33353e-03_rb,0.30505e-03_rb,0.26380e-03_rb,0.17749e-03_rb /)
+      kao(:, 4, 1, 3) = (/ &
+        & 0.21986e-03_rb,0.32894e-03_rb,0.35375e-03_rb,0.35845e-03_rb,0.35514e-03_rb, &
+        & 0.33992e-03_rb,0.31266e-03_rb,0.27259e-03_rb,0.18209e-03_rb /)
+      kao(:, 5, 1, 3) = (/ &
+        & 0.21815e-03_rb,0.33282e-03_rb,0.35982e-03_rb,0.36699e-03_rb,0.36319e-03_rb, &
+        & 0.34849e-03_rb,0.32265e-03_rb,0.28174e-03_rb,0.18630e-03_rb /)
+      kao(:, 1, 2, 3) = (/ &
+        & 0.19541e-03_rb,0.28383e-03_rb,0.30057e-03_rb,0.30208e-03_rb,0.29811e-03_rb, &
+        & 0.28614e-03_rb,0.25813e-03_rb,0.22172e-03_rb,0.14533e-03_rb /)
+      kao(:, 2, 2, 3) = (/ &
+        & 0.19410e-03_rb,0.28606e-03_rb,0.30502e-03_rb,0.30638e-03_rb,0.30342e-03_rb, &
+        & 0.29123e-03_rb,0.26438e-03_rb,0.22759e-03_rb,0.15063e-03_rb /)
+      kao(:, 3, 2, 3) = (/ &
+        & 0.19280e-03_rb,0.28892e-03_rb,0.31031e-03_rb,0.31345e-03_rb,0.30930e-03_rb, &
+        & 0.29708e-03_rb,0.27075e-03_rb,0.23476e-03_rb,0.15387e-03_rb /)
+      kao(:, 4, 2, 3) = (/ &
+        & 0.19169e-03_rb,0.29226e-03_rb,0.31596e-03_rb,0.32060e-03_rb,0.31687e-03_rb, &
+        & 0.30282e-03_rb,0.27961e-03_rb,0.24147e-03_rb,0.15653e-03_rb /)
+      kao(:, 5, 2, 3) = (/ &
+        & 0.19047e-03_rb,0.29594e-03_rb,0.32186e-03_rb,0.32831e-03_rb,0.32510e-03_rb, &
+        & 0.31022e-03_rb,0.28786e-03_rb,0.24847e-03_rb,0.16195e-03_rb /)
+      kao(:, 1, 3, 3) = (/ &
+        & 0.16871e-03_rb,0.24969e-03_rb,0.26468e-03_rb,0.26465e-03_rb,0.26214e-03_rb, &
+        & 0.25247e-03_rb,0.22732e-03_rb,0.19530e-03_rb,0.12777e-03_rb /)
+      kao(:, 2, 3, 3) = (/ &
+        & 0.16793e-03_rb,0.25161e-03_rb,0.26876e-03_rb,0.26973e-03_rb,0.26695e-03_rb, &
+        & 0.25688e-03_rb,0.23244e-03_rb,0.20054e-03_rb,0.12972e-03_rb /)
+      kao(:, 3, 3, 3) = (/ &
+        & 0.16733e-03_rb,0.25378e-03_rb,0.27385e-03_rb,0.27612e-03_rb,0.27305e-03_rb, &
+        & 0.26119e-03_rb,0.23922e-03_rb,0.20542e-03_rb,0.13061e-03_rb /)
+      kao(:, 4, 3, 3) = (/ &
+        & 0.16706e-03_rb,0.25676e-03_rb,0.27970e-03_rb,0.28379e-03_rb,0.28013e-03_rb, &
+        & 0.26708e-03_rb,0.24668e-03_rb,0.21081e-03_rb,0.13394e-03_rb /)
+      kao(:, 5, 3, 3) = (/ &
+        & 0.16637e-03_rb,0.26037e-03_rb,0.28504e-03_rb,0.29050e-03_rb,0.28611e-03_rb, &
+        & 0.27355e-03_rb,0.25260e-03_rb,0.21670e-03_rb,0.13844e-03_rb /)
+      kao(:, 1, 4, 3) = (/ &
+        & 0.14579e-03_rb,0.21908e-03_rb,0.23187e-03_rb,0.23162e-03_rb,0.22921e-03_rb, &
+        & 0.22070e-03_rb,0.19997e-03_rb,0.17094e-03_rb,0.11198e-03_rb /)
+      kao(:, 2, 4, 3) = (/ &
+        & 0.14542e-03_rb,0.22095e-03_rb,0.23576e-03_rb,0.23659e-03_rb,0.23393e-03_rb, &
+        & 0.22421e-03_rb,0.20413e-03_rb,0.17485e-03_rb,0.11080e-03_rb /)
+      kao(:, 3, 4, 3) = (/ &
+        & 0.14519e-03_rb,0.22277e-03_rb,0.24039e-03_rb,0.24264e-03_rb,0.23941e-03_rb, &
+        & 0.22826e-03_rb,0.20957e-03_rb,0.17862e-03_rb,0.11236e-03_rb /)
+      kao(:, 4, 4, 3) = (/ &
+        & 0.14504e-03_rb,0.22526e-03_rb,0.24523e-03_rb,0.24877e-03_rb,0.24473e-03_rb, &
+        & 0.23381e-03_rb,0.21512e-03_rb,0.18339e-03_rb,0.11577e-03_rb /)
+      kao(:, 5, 4, 3) = (/ &
+        & 0.14497e-03_rb,0.22869e-03_rb,0.25070e-03_rb,0.25513e-03_rb,0.25076e-03_rb, &
+        & 0.23990e-03_rb,0.22117e-03_rb,0.18804e-03_rb,0.11947e-03_rb /)
+      kao(:, 1, 5, 3) = (/ &
+        & 0.12609e-03_rb,0.19125e-03_rb,0.20302e-03_rb,0.20235e-03_rb,0.20038e-03_rb, &
+        & 0.19210e-03_rb,0.17493e-03_rb,0.14918e-03_rb,0.95914e-04_rb /)
+      kao(:, 2, 5, 3) = (/ &
+        & 0.12575e-03_rb,0.19304e-03_rb,0.20668e-03_rb,0.20708e-03_rb,0.20395e-03_rb, &
+        & 0.19513e-03_rb,0.17862e-03_rb,0.15191e-03_rb,0.95952e-04_rb /)
+      kao(:, 3, 5, 3) = (/ &
+        & 0.12572e-03_rb,0.19504e-03_rb,0.21070e-03_rb,0.21227e-03_rb,0.20862e-03_rb, &
+        & 0.19877e-03_rb,0.18323e-03_rb,0.15540e-03_rb,0.98040e-04_rb /)
+      kao(:, 4, 5, 3) = (/ &
+        & 0.12578e-03_rb,0.19736e-03_rb,0.21498e-03_rb,0.21770e-03_rb,0.21305e-03_rb, &
+        & 0.20380e-03_rb,0.18766e-03_rb,0.15949e-03_rb,0.10020e-03_rb /)
+      kao(:, 5, 5, 3) = (/ &
+        & 0.12588e-03_rb,0.20051e-03_rb,0.21971e-03_rb,0.22313e-03_rb,0.21848e-03_rb, &
+        & 0.20915e-03_rb,0.19284e-03_rb,0.16321e-03_rb,0.10267e-03_rb /)
+      kao(:, 1, 6, 3) = (/ &
+        & 0.10863e-03_rb,0.16576e-03_rb,0.17695e-03_rb,0.17678e-03_rb,0.17469e-03_rb, &
+        & 0.16678e-03_rb,0.15163e-03_rb,0.12940e-03_rb,0.89550e-04_rb /)
+      kao(:, 2, 6, 3) = (/ &
+        & 0.10863e-03_rb,0.16706e-03_rb,0.18030e-03_rb,0.18081e-03_rb,0.17775e-03_rb, &
+        & 0.16938e-03_rb,0.15534e-03_rb,0.13148e-03_rb,0.89670e-04_rb /)
+      kao(:, 3, 6, 3) = (/ &
+        & 0.10855e-03_rb,0.16916e-03_rb,0.18384e-03_rb,0.18538e-03_rb,0.18134e-03_rb, &
+        & 0.17272e-03_rb,0.15912e-03_rb,0.13459e-03_rb,0.90520e-04_rb /)
+      kao(:, 4, 6, 3) = (/ &
+        & 0.10855e-03_rb,0.17152e-03_rb,0.18761e-03_rb,0.18997e-03_rb,0.18510e-03_rb, &
+        & 0.17711e-03_rb,0.16286e-03_rb,0.13757e-03_rb,0.91792e-04_rb /)
+      kao(:, 5, 6, 3) = (/ &
+        & 0.10853e-03_rb,0.17415e-03_rb,0.19152e-03_rb,0.19450e-03_rb,0.18955e-03_rb, &
+        & 0.18160e-03_rb,0.16658e-03_rb,0.14151e-03_rb,0.94030e-04_rb /)
+      kao(:, 1, 7, 3) = (/ &
+        & 0.92930e-04_rb,0.14283e-03_rb,0.15332e-03_rb,0.15365e-03_rb,0.15192e-03_rb, &
+        & 0.14476e-03_rb,0.13092e-03_rb,0.11095e-03_rb,0.91877e-04_rb /)
+      kao(:, 2, 7, 3) = (/ &
+        & 0.92984e-04_rb,0.14401e-03_rb,0.15614e-03_rb,0.15721e-03_rb,0.15413e-03_rb, &
+        & 0.14688e-03_rb,0.13443e-03_rb,0.11315e-03_rb,0.90405e-04_rb /)
+      kao(:, 3, 7, 3) = (/ &
+        & 0.92945e-04_rb,0.14573e-03_rb,0.15905e-03_rb,0.16110e-03_rb,0.15737e-03_rb, &
+        & 0.14983e-03_rb,0.13738e-03_rb,0.11591e-03_rb,0.89977e-04_rb /)
+      kao(:, 4, 7, 3) = (/ &
+        & 0.93035e-04_rb,0.14787e-03_rb,0.16239e-03_rb,0.16472e-03_rb,0.16084e-03_rb, &
+        & 0.15371e-03_rb,0.14051e-03_rb,0.11827e-03_rb,0.90955e-04_rb /)
+      kao(:, 5, 7, 3) = (/ &
+        & 0.92985e-04_rb,0.15023e-03_rb,0.16593e-03_rb,0.16877e-03_rb,0.16496e-03_rb, &
+        & 0.15743e-03_rb,0.14348e-03_rb,0.12221e-03_rb,0.92269e-04_rb /)
+      kao(:, 1, 8, 3) = (/ &
+        & 0.79600e-04_rb,0.12290e-03_rb,0.13269e-03_rb,0.13322e-03_rb,0.13145e-03_rb, &
+        & 0.12540e-03_rb,0.11354e-03_rb,0.94559e-04_rb,0.10796e-03_rb /)
+      kao(:, 2, 8, 3) = (/ &
+        & 0.79683e-04_rb,0.12390e-03_rb,0.13495e-03_rb,0.13633e-03_rb,0.13351e-03_rb, &
+        & 0.12708e-03_rb,0.11620e-03_rb,0.96898e-04_rb,0.10854e-03_rb /)
+      kao(:, 3, 8, 3) = (/ &
+        & 0.79630e-04_rb,0.12537e-03_rb,0.13745e-03_rb,0.13937e-03_rb,0.13626e-03_rb, &
+        & 0.12970e-03_rb,0.11867e-03_rb,0.99068e-04_rb,0.10974e-03_rb /)
+      kao(:, 4, 8, 3) = (/ &
+        & 0.79625e-04_rb,0.12719e-03_rb,0.14027e-03_rb,0.14234e-03_rb,0.13941e-03_rb, &
+        & 0.13283e-03_rb,0.12113e-03_rb,0.10155e-03_rb,0.11075e-03_rb /)
+      kao(:, 5, 8, 3) = (/ &
+        & 0.79589e-04_rb,0.12914e-03_rb,0.14322e-03_rb,0.14575e-03_rb,0.14305e-03_rb, &
+        & 0.13597e-03_rb,0.12361e-03_rb,0.10505e-03_rb,0.11038e-03_rb /)
+      kao(:, 1, 9, 3) = (/ &
+        & 0.67917e-04_rb,0.10525e-03_rb,0.11421e-03_rb,0.11510e-03_rb,0.11341e-03_rb, &
+        & 0.10850e-03_rb,0.97945e-04_rb,0.80197e-04_rb,0.13259e-03_rb /)
+      kao(:, 2, 9, 3) = (/ &
+        & 0.67928e-04_rb,0.10625e-03_rb,0.11606e-03_rb,0.11762e-03_rb,0.11532e-03_rb, &
+        & 0.11035e-03_rb,0.10017e-03_rb,0.82394e-04_rb,0.13427e-03_rb /)
+      kao(:, 3, 9, 3) = (/ &
+        & 0.67856e-04_rb,0.10744e-03_rb,0.11824e-03_rb,0.11998e-03_rb,0.11756e-03_rb, &
+        & 0.11235e-03_rb,0.10203e-03_rb,0.84408e-04_rb,0.13461e-03_rb /)
+      kao(:, 4, 9, 3) = (/ &
+        & 0.67768e-04_rb,0.10890e-03_rb,0.12070e-03_rb,0.12262e-03_rb,0.12012e-03_rb, &
+        & 0.11456e-03_rb,0.10420e-03_rb,0.86916e-04_rb,0.13504e-03_rb /)
+      kao(:, 5, 9, 3) = (/ &
+        & 0.67707e-04_rb,0.11054e-03_rb,0.12323e-03_rb,0.12567e-03_rb,0.12318e-03_rb, &
+        & 0.11694e-03_rb,0.10644e-03_rb,0.89648e-04_rb,0.13829e-03_rb /)
+      kao(:, 1,10, 3) = (/ &
+        & 0.57658e-04_rb,0.89812e-04_rb,0.97774e-04_rb,0.98825e-04_rb,0.97412e-04_rb, &
+        & 0.93433e-04_rb,0.84119e-04_rb,0.68026e-04_rb,0.20137e-03_rb /)
+      kao(:, 2,10, 3) = (/ &
+        & 0.57461e-04_rb,0.90575e-04_rb,0.99228e-04_rb,0.10076e-03_rb,0.98930e-04_rb, &
+        & 0.94984e-04_rb,0.86081e-04_rb,0.70085e-04_rb,0.20178e-03_rb /)
+      kao(:, 3,10, 3) = (/ &
+        & 0.57397e-04_rb,0.91666e-04_rb,0.10122e-03_rb,0.10281e-03_rb,0.10088e-03_rb, &
+        & 0.96688e-04_rb,0.87695e-04_rb,0.72010e-04_rb,0.20052e-03_rb /)
+      kao(:, 4,10, 3) = (/ &
+        & 0.57291e-04_rb,0.92869e-04_rb,0.10334e-03_rb,0.10517e-03_rb,0.10317e-03_rb, &
+        & 0.98293e-04_rb,0.89394e-04_rb,0.74251e-04_rb,0.20103e-03_rb /)
+      kao(:, 5,10, 3) = (/ &
+        & 0.57126e-04_rb,0.94072e-04_rb,0.10545e-03_rb,0.10789e-03_rb,0.10579e-03_rb, &
+        & 0.10034e-03_rb,0.91420e-04_rb,0.76761e-04_rb,0.20035e-03_rb /)
+      kao(:, 1,11, 3) = (/ &
+        & 0.48600e-04_rb,0.76535e-04_rb,0.83721e-04_rb,0.84782e-04_rb,0.83379e-04_rb, &
+        & 0.80481e-04_rb,0.72441e-04_rb,0.58503e-04_rb,0.20926e-03_rb /)
+      kao(:, 2,11, 3) = (/ &
+        & 0.48356e-04_rb,0.77272e-04_rb,0.85067e-04_rb,0.86588e-04_rb,0.84928e-04_rb, &
+        & 0.81803e-04_rb,0.74015e-04_rb,0.60222e-04_rb,0.21110e-03_rb /)
+      kao(:, 3,11, 3) = (/ &
+        & 0.48180e-04_rb,0.78198e-04_rb,0.86939e-04_rb,0.88416e-04_rb,0.86712e-04_rb, &
+        & 0.83176e-04_rb,0.75535e-04_rb,0.61973e-04_rb,0.20823e-03_rb /)
+      kao(:, 4,11, 3) = (/ &
+        & 0.48042e-04_rb,0.79160e-04_rb,0.88776e-04_rb,0.90704e-04_rb,0.88934e-04_rb, &
+        & 0.84522e-04_rb,0.76983e-04_rb,0.64264e-04_rb,0.20745e-03_rb /)
+      kao(:, 5,11, 3) = (/ &
+        & 0.47901e-04_rb,0.80171e-04_rb,0.90395e-04_rb,0.92950e-04_rb,0.91253e-04_rb, &
+        & 0.86364e-04_rb,0.78675e-04_rb,0.66159e-04_rb,0.20642e-03_rb /)
+      kao(:, 1,12, 3) = (/ &
+        & 0.40769e-04_rb,0.64775e-04_rb,0.71240e-04_rb,0.72409e-04_rb,0.71085e-04_rb, &
+        & 0.68679e-04_rb,0.61925e-04_rb,0.50009e-04_rb,0.19056e-03_rb /)
+      kao(:, 2,12, 3) = (/ &
+        & 0.40486e-04_rb,0.65479e-04_rb,0.72574e-04_rb,0.73906e-04_rb,0.72438e-04_rb, &
+        & 0.69693e-04_rb,0.63286e-04_rb,0.51717e-04_rb,0.19000e-03_rb /)
+      kao(:, 3,12, 3) = (/ &
+        & 0.40313e-04_rb,0.66212e-04_rb,0.74137e-04_rb,0.75686e-04_rb,0.74201e-04_rb, &
+        & 0.70781e-04_rb,0.64554e-04_rb,0.53372e-04_rb,0.19242e-03_rb /)
+      kao(:, 4,12, 3) = (/ &
+        & 0.40107e-04_rb,0.66938e-04_rb,0.75524e-04_rb,0.77664e-04_rb,0.76142e-04_rb, &
+        & 0.72280e-04_rb,0.65894e-04_rb,0.55174e-04_rb,0.19382e-03_rb /)
+      kao(:, 5,12, 3) = (/ &
+        & 0.39910e-04_rb,0.67782e-04_rb,0.76780e-04_rb,0.79463e-04_rb,0.78210e-04_rb, &
+        & 0.73902e-04_rb,0.67292e-04_rb,0.56789e-04_rb,0.19106e-03_rb /)
+      kao(:, 1,13, 3) = (/ &
+        & 0.34103e-04_rb,0.54622e-04_rb,0.60315e-04_rb,0.61417e-04_rb,0.60332e-04_rb, &
+        & 0.58110e-04_rb,0.52537e-04_rb,0.42612e-04_rb,0.15955e-03_rb /)
+      kao(:, 2,13, 3) = (/ &
+        & 0.33853e-04_rb,0.55148e-04_rb,0.61492e-04_rb,0.62745e-04_rb,0.61577e-04_rb, &
+        & 0.59061e-04_rb,0.53702e-04_rb,0.43873e-04_rb,0.15892e-03_rb /)
+      kao(:, 3,13, 3) = (/ &
+        & 0.33647e-04_rb,0.55699e-04_rb,0.62687e-04_rb,0.64355e-04_rb,0.63160e-04_rb, &
+        & 0.60072e-04_rb,0.54954e-04_rb,0.45643e-04_rb,0.16047e-03_rb /)
+      kao(:, 4,13, 3) = (/ &
+        & 0.33430e-04_rb,0.56291e-04_rb,0.63770e-04_rb,0.65844e-04_rb,0.64844e-04_rb, &
+        & 0.61457e-04_rb,0.56064e-04_rb,0.47101e-04_rb,0.16125e-03_rb /)
+      kao(:, 5,13, 3) = (/ &
+        & 0.33186e-04_rb,0.56947e-04_rb,0.64747e-04_rb,0.67352e-04_rb,0.66508e-04_rb, &
+        & 0.62903e-04_rb,0.57307e-04_rb,0.48379e-04_rb,0.16021e-03_rb /)
+      kao(:, 1, 1, 4) = (/ &
+        & 0.36602e-03_rb,0.52858e-03_rb,0.59251e-03_rb,0.61027e-03_rb,0.60893e-03_rb, &
+        & 0.58987e-03_rb,0.55560e-03_rb,0.49855e-03_rb,0.38105e-03_rb /)
+      kao(:, 2, 1, 4) = (/ &
+        & 0.36935e-03_rb,0.53570e-03_rb,0.60138e-03_rb,0.62341e-03_rb,0.62297e-03_rb, &
+        & 0.60228e-03_rb,0.56872e-03_rb,0.51035e-03_rb,0.39106e-03_rb /)
+      kao(:, 3, 1, 4) = (/ &
+        & 0.37348e-03_rb,0.54590e-03_rb,0.61238e-03_rb,0.63855e-03_rb,0.63820e-03_rb, &
+        & 0.61734e-03_rb,0.58475e-03_rb,0.52206e-03_rb,0.40317e-03_rb /)
+      kao(:, 4, 1, 4) = (/ &
+        & 0.37665e-03_rb,0.55373e-03_rb,0.62261e-03_rb,0.65120e-03_rb,0.65250e-03_rb, &
+        & 0.63373e-03_rb,0.59840e-03_rb,0.53517e-03_rb,0.41639e-03_rb /)
+      kao(:, 5, 1, 4) = (/ &
+        & 0.38076e-03_rb,0.56302e-03_rb,0.63456e-03_rb,0.66611e-03_rb,0.66857e-03_rb, &
+        & 0.65240e-03_rb,0.61521e-03_rb,0.55178e-03_rb,0.43702e-03_rb /)
+      kao(:, 1, 2, 4) = (/ &
+        & 0.32225e-03_rb,0.47151e-03_rb,0.53262e-03_rb,0.55192e-03_rb,0.54706e-03_rb, &
+        & 0.52658e-03_rb,0.49569e-03_rb,0.43958e-03_rb,0.31739e-03_rb /)
+      kao(:, 2, 2, 4) = (/ &
+        & 0.32532e-03_rb,0.47816e-03_rb,0.54076e-03_rb,0.56222e-03_rb,0.55834e-03_rb, &
+        & 0.53879e-03_rb,0.50612e-03_rb,0.44777e-03_rb,0.32763e-03_rb /)
+      kao(:, 3, 2, 4) = (/ &
+        & 0.32941e-03_rb,0.48729e-03_rb,0.55083e-03_rb,0.57497e-03_rb,0.57312e-03_rb, &
+        & 0.55394e-03_rb,0.51991e-03_rb,0.45969e-03_rb,0.33942e-03_rb /)
+      kao(:, 4, 2, 4) = (/ &
+        & 0.33303e-03_rb,0.49510e-03_rb,0.56036e-03_rb,0.58720e-03_rb,0.58669e-03_rb, &
+        & 0.56974e-03_rb,0.53255e-03_rb,0.47385e-03_rb,0.35453e-03_rb /)
+      kao(:, 5, 2, 4) = (/ &
+        & 0.33657e-03_rb,0.50290e-03_rb,0.57014e-03_rb,0.59917e-03_rb,0.59997e-03_rb, &
+        & 0.58475e-03_rb,0.54777e-03_rb,0.48909e-03_rb,0.36980e-03_rb /)
+      kao(:, 1, 3, 4) = (/ &
+        & 0.28263e-03_rb,0.41968e-03_rb,0.47376e-03_rb,0.49297e-03_rb,0.48633e-03_rb, &
+        & 0.46530e-03_rb,0.43654e-03_rb,0.38496e-03_rb,0.26217e-03_rb /)
+      kao(:, 2, 3, 4) = (/ &
+        & 0.28517e-03_rb,0.42528e-03_rb,0.48017e-03_rb,0.50148e-03_rb,0.49564e-03_rb, &
+        & 0.47634e-03_rb,0.44517e-03_rb,0.39228e-03_rb,0.27386e-03_rb /)
+      kao(:, 3, 3, 4) = (/ &
+        & 0.28805e-03_rb,0.43254e-03_rb,0.48769e-03_rb,0.51075e-03_rb,0.50628e-03_rb, &
+        & 0.48940e-03_rb,0.45557e-03_rb,0.40274e-03_rb,0.28527e-03_rb /)
+      kao(:, 4, 3, 4) = (/ &
+        & 0.29156e-03_rb,0.44130e-03_rb,0.49824e-03_rb,0.52245e-03_rb,0.52001e-03_rb, &
+        & 0.50355e-03_rb,0.46711e-03_rb,0.41540e-03_rb,0.29729e-03_rb /)
+      kao(:, 5, 3, 4) = (/ &
+        & 0.29453e-03_rb,0.44828e-03_rb,0.50753e-03_rb,0.53257e-03_rb,0.53321e-03_rb, &
+        & 0.51645e-03_rb,0.48189e-03_rb,0.42882e-03_rb,0.30960e-03_rb /)
+      kao(:, 1, 4, 4) = (/ &
+        & 0.24709e-03_rb,0.37040e-03_rb,0.41811e-03_rb,0.43692e-03_rb,0.42924e-03_rb, &
+        & 0.40974e-03_rb,0.38217e-03_rb,0.33504e-03_rb,0.21956e-03_rb /)
+      kao(:, 2, 4, 4) = (/ &
+        & 0.24935e-03_rb,0.37531e-03_rb,0.42359e-03_rb,0.44356e-03_rb,0.43669e-03_rb, &
+        & 0.41955e-03_rb,0.39063e-03_rb,0.34337e-03_rb,0.23257e-03_rb /)
+      kao(:, 3, 4, 4) = (/ &
+        & 0.25192e-03_rb,0.38183e-03_rb,0.43049e-03_rb,0.45130e-03_rb,0.44572e-03_rb, &
+        & 0.43016e-03_rb,0.39919e-03_rb,0.35274e-03_rb,0.24051e-03_rb /)
+      kao(:, 4, 4, 4) = (/ &
+        & 0.25420e-03_rb,0.38887e-03_rb,0.43864e-03_rb,0.46020e-03_rb,0.45692e-03_rb, &
+        & 0.44111e-03_rb,0.40882e-03_rb,0.36219e-03_rb,0.24966e-03_rb /)
+      kao(:, 5, 4, 4) = (/ &
+        & 0.25772e-03_rb,0.39769e-03_rb,0.44993e-03_rb,0.47213e-03_rb,0.47068e-03_rb, &
+        & 0.45426e-03_rb,0.42157e-03_rb,0.37400e-03_rb,0.25930e-03_rb /)
+      kao(:, 1, 5, 4) = (/ &
+        & 0.21574e-03_rb,0.32603e-03_rb,0.36644e-03_rb,0.38307e-03_rb,0.37721e-03_rb, &
+        & 0.36018e-03_rb,0.33363e-03_rb,0.29143e-03_rb,0.18896e-03_rb /)
+      kao(:, 2, 5, 4) = (/ &
+        & 0.21778e-03_rb,0.33044e-03_rb,0.37107e-03_rb,0.38833e-03_rb,0.38426e-03_rb, &
+        & 0.36797e-03_rb,0.34054e-03_rb,0.29920e-03_rb,0.19816e-03_rb /)
+      kao(:, 3, 5, 4) = (/ &
+        & 0.22015e-03_rb,0.33584e-03_rb,0.37735e-03_rb,0.39513e-03_rb,0.39228e-03_rb, &
+        & 0.37720e-03_rb,0.34842e-03_rb,0.30654e-03_rb,0.20383e-03_rb /)
+      kao(:, 4, 5, 4) = (/ &
+        & 0.22252e-03_rb,0.34167e-03_rb,0.38484e-03_rb,0.40343e-03_rb,0.40251e-03_rb, &
+        & 0.38567e-03_rb,0.35760e-03_rb,0.31401e-03_rb,0.21178e-03_rb /)
+      kao(:, 5, 5, 4) = (/ &
+        & 0.22604e-03_rb,0.34964e-03_rb,0.39509e-03_rb,0.41443e-03_rb,0.41465e-03_rb, &
+        & 0.39685e-03_rb,0.36847e-03_rb,0.32400e-03_rb,0.21929e-03_rb /)
+      kao(:, 1, 6, 4) = (/ &
+        & 0.18783e-03_rb,0.28666e-03_rb,0.32037e-03_rb,0.33351e-03_rb,0.32945e-03_rb, &
+        & 0.31516e-03_rb,0.29066e-03_rb,0.25263e-03_rb,0.16238e-03_rb /)
+      kao(:, 2, 6, 4) = (/ &
+        & 0.18921e-03_rb,0.29078e-03_rb,0.32423e-03_rb,0.33799e-03_rb,0.33536e-03_rb, &
+        & 0.32156e-03_rb,0.29643e-03_rb,0.25941e-03_rb,0.16831e-03_rb /)
+      kao(:, 3, 6, 4) = (/ &
+        & 0.19117e-03_rb,0.29487e-03_rb,0.32978e-03_rb,0.34375e-03_rb,0.34274e-03_rb, &
+        & 0.32907e-03_rb,0.30344e-03_rb,0.26560e-03_rb,0.17389e-03_rb /)
+      kao(:, 4, 6, 4) = (/ &
+        & 0.19356e-03_rb,0.29979e-03_rb,0.33631e-03_rb,0.35135e-03_rb,0.35098e-03_rb, &
+        & 0.33648e-03_rb,0.31108e-03_rb,0.27199e-03_rb,0.18056e-03_rb /)
+      kao(:, 5, 6, 4) = (/ &
+        & 0.19643e-03_rb,0.30567e-03_rb,0.34396e-03_rb,0.35996e-03_rb,0.36067e-03_rb, &
+        & 0.34559e-03_rb,0.32056e-03_rb,0.28009e-03_rb,0.18507e-03_rb /)
+      kao(:, 1, 7, 4) = (/ &
+        & 0.16233e-03_rb,0.25159e-03_rb,0.28051e-03_rb,0.29071e-03_rb,0.28724e-03_rb, &
+        & 0.27399e-03_rb,0.25257e-03_rb,0.21995e-03_rb,0.15053e-03_rb /)
+      kao(:, 2, 7, 4) = (/ &
+        & 0.16394e-03_rb,0.25497e-03_rb,0.28374e-03_rb,0.29454e-03_rb,0.29203e-03_rb, &
+        & 0.28002e-03_rb,0.25781e-03_rb,0.22523e-03_rb,0.15467e-03_rb /)
+      kao(:, 3, 7, 4) = (/ &
+        & 0.16554e-03_rb,0.25862e-03_rb,0.28837e-03_rb,0.29946e-03_rb,0.29804e-03_rb, &
+        & 0.28580e-03_rb,0.26386e-03_rb,0.23003e-03_rb,0.15858e-03_rb /)
+      kao(:, 4, 7, 4) = (/ &
+        & 0.16755e-03_rb,0.26275e-03_rb,0.29380e-03_rb,0.30624e-03_rb,0.30499e-03_rb, &
+        & 0.29233e-03_rb,0.27029e-03_rb,0.23539e-03_rb,0.16161e-03_rb /)
+      kao(:, 5, 7, 4) = (/ &
+        & 0.17007e-03_rb,0.26765e-03_rb,0.30035e-03_rb,0.31353e-03_rb,0.31332e-03_rb, &
+        & 0.30019e-03_rb,0.27871e-03_rb,0.24192e-03_rb,0.16587e-03_rb /)
+      kao(:, 1, 8, 4) = (/ &
+        & 0.14021e-03_rb,0.21983e-03_rb,0.24557e-03_rb,0.25394e-03_rb,0.25027e-03_rb, &
+        & 0.23769e-03_rb,0.21853e-03_rb,0.19056e-03_rb,0.17210e-03_rb /)
+      kao(:, 2, 8, 4) = (/ &
+        & 0.14181e-03_rb,0.22244e-03_rb,0.24837e-03_rb,0.25730e-03_rb,0.25433e-03_rb, &
+        & 0.24284e-03_rb,0.22361e-03_rb,0.19448e-03_rb,0.16707e-03_rb /)
+      kao(:, 3, 8, 4) = (/ &
+        & 0.14344e-03_rb,0.22578e-03_rb,0.25216e-03_rb,0.26169e-03_rb,0.25950e-03_rb, &
+        & 0.24760e-03_rb,0.22868e-03_rb,0.19861e-03_rb,0.16518e-03_rb /)
+      kao(:, 4, 8, 4) = (/ &
+        & 0.14524e-03_rb,0.22935e-03_rb,0.25652e-03_rb,0.26715e-03_rb,0.26554e-03_rb, &
+        & 0.25327e-03_rb,0.23470e-03_rb,0.20360e-03_rb,0.16514e-03_rb /)
+      kao(:, 5, 8, 4) = (/ &
+        & 0.14752e-03_rb,0.23348e-03_rb,0.26209e-03_rb,0.27316e-03_rb,0.27225e-03_rb, &
+        & 0.26056e-03_rb,0.24203e-03_rb,0.20916e-03_rb,0.16671e-03_rb /)
+      kao(:, 1, 9, 4) = (/ &
+        & 0.12008e-03_rb,0.19084e-03_rb,0.21359e-03_rb,0.22137e-03_rb,0.21826e-03_rb, &
+        & 0.20646e-03_rb,0.18855e-03_rb,0.16443e-03_rb,0.31379e-03_rb /)
+      kao(:, 2, 9, 4) = (/ &
+        & 0.12170e-03_rb,0.19281e-03_rb,0.21619e-03_rb,0.22414e-03_rb,0.22156e-03_rb, &
+        & 0.21036e-03_rb,0.19272e-03_rb,0.16751e-03_rb,0.30810e-03_rb /)
+      kao(:, 3, 9, 4) = (/ &
+        & 0.12341e-03_rb,0.19553e-03_rb,0.21930e-03_rb,0.22810e-03_rb,0.22604e-03_rb, &
+        & 0.21457e-03_rb,0.19724e-03_rb,0.17093e-03_rb,0.30579e-03_rb /)
+      kao(:, 4, 9, 4) = (/ &
+        & 0.12515e-03_rb,0.19866e-03_rb,0.22306e-03_rb,0.23273e-03_rb,0.23128e-03_rb, &
+        & 0.22000e-03_rb,0.20255e-03_rb,0.17520e-03_rb,0.30468e-03_rb /)
+      kao(:, 5, 9, 4) = (/ &
+        & 0.12711e-03_rb,0.20244e-03_rb,0.22780e-03_rb,0.23779e-03_rb,0.23723e-03_rb, &
+        & 0.22672e-03_rb,0.20873e-03_rb,0.18006e-03_rb,0.30071e-03_rb /)
+      kao(:, 1,10, 4) = (/ &
+        & 0.10239e-03_rb,0.16495e-03_rb,0.18568e-03_rb,0.19287e-03_rb,0.19038e-03_rb, &
+        & 0.17962e-03_rb,0.16274e-03_rb,0.14112e-03_rb,0.46281e-03_rb /)
+      kao(:, 2,10, 4) = (/ &
+        & 0.10386e-03_rb,0.16652e-03_rb,0.18791e-03_rb,0.19539e-03_rb,0.19307e-03_rb, &
+        & 0.18291e-03_rb,0.16628e-03_rb,0.14354e-03_rb,0.46032e-03_rb /)
+      kao(:, 3,10, 4) = (/ &
+        & 0.10550e-03_rb,0.16884e-03_rb,0.19060e-03_rb,0.19863e-03_rb,0.19685e-03_rb, &
+        & 0.18669e-03_rb,0.17045e-03_rb,0.14674e-03_rb,0.45882e-03_rb /)
+      kao(:, 4,10, 4) = (/ &
+        & 0.10710e-03_rb,0.17185e-03_rb,0.19377e-03_rb,0.20238e-03_rb,0.20140e-03_rb, &
+        & 0.19164e-03_rb,0.17544e-03_rb,0.15076e-03_rb,0.45556e-03_rb /)
+      kao(:, 5,10, 4) = (/ &
+        & 0.10887e-03_rb,0.17528e-03_rb,0.19755e-03_rb,0.20663e-03_rb,0.20650e-03_rb, &
+        & 0.19756e-03_rb,0.18068e-03_rb,0.15495e-03_rb,0.45295e-03_rb /)
+      kao(:, 1,11, 4) = (/ &
+        & 0.87454e-04_rb,0.14214e-03_rb,0.16093e-03_rb,0.16784e-03_rb,0.16634e-03_rb, &
+        & 0.15750e-03_rb,0.14233e-03_rb,0.12157e-03_rb,0.50227e-03_rb /)
+      kao(:, 2,11, 4) = (/ &
+        & 0.89026e-04_rb,0.14363e-03_rb,0.16297e-03_rb,0.17024e-03_rb,0.16905e-03_rb, &
+        & 0.16052e-03_rb,0.14560e-03_rb,0.12384e-03_rb,0.48800e-03_rb /)
+      kao(:, 3,11, 4) = (/ &
+        & 0.90456e-04_rb,0.14595e-03_rb,0.16534e-03_rb,0.17342e-03_rb,0.17281e-03_rb, &
+        & 0.16441e-03_rb,0.14965e-03_rb,0.12699e-03_rb,0.48638e-03_rb /)
+      kao(:, 4,11, 4) = (/ &
+        & 0.91788e-04_rb,0.14885e-03_rb,0.16823e-03_rb,0.17680e-03_rb,0.17688e-03_rb, &
+        & 0.16911e-03_rb,0.15409e-03_rb,0.13060e-03_rb,0.48097e-03_rb /)
+      kao(:, 5,11, 4) = (/ &
+        & 0.92958e-04_rb,0.15220e-03_rb,0.17197e-03_rb,0.18085e-03_rb,0.18150e-03_rb, &
+        & 0.17440e-03_rb,0.15892e-03_rb,0.13466e-03_rb,0.48115e-03_rb /)
+      kao(:, 1,12, 4) = (/ &
+        & 0.74228e-04_rb,0.12171e-03_rb,0.13828e-03_rb,0.14464e-03_rb,0.14381e-03_rb, &
+        & 0.13674e-03_rb,0.12370e-03_rb,0.10454e-03_rb,0.48263e-03_rb /)
+      kao(:, 2,12, 4) = (/ &
+        & 0.75542e-04_rb,0.12330e-03_rb,0.13992e-03_rb,0.14688e-03_rb,0.14666e-03_rb, &
+        & 0.13981e-03_rb,0.12694e-03_rb,0.10662e-03_rb,0.46961e-03_rb /)
+      kao(:, 3,12, 4) = (/ &
+        & 0.76696e-04_rb,0.12551e-03_rb,0.14218e-03_rb,0.14964e-03_rb,0.14989e-03_rb, &
+        & 0.14346e-03_rb,0.13058e-03_rb,0.10986e-03_rb,0.45986e-03_rb /)
+      kao(:, 4,12, 4) = (/ &
+        & 0.77769e-04_rb,0.12821e-03_rb,0.14505e-03_rb,0.15276e-03_rb,0.15361e-03_rb, &
+        & 0.14764e-03_rb,0.13466e-03_rb,0.11322e-03_rb,0.45064e-03_rb /)
+      kao(:, 5,12, 4) = (/ &
+        & 0.78633e-04_rb,0.13113e-03_rb,0.14863e-03_rb,0.15667e-03_rb,0.15783e-03_rb, &
+        & 0.15249e-03_rb,0.13915e-03_rb,0.11696e-03_rb,0.45257e-03_rb /)
+      kao(:, 1,13, 4) = (/ &
+        & 0.62659e-04_rb,0.10388e-03_rb,0.11828e-03_rb,0.12392e-03_rb,0.12371e-03_rb, &
+        & 0.11811e-03_rb,0.10712e-03_rb,0.89769e-04_rb,0.40925e-03_rb /)
+      kao(:, 2,13, 4) = (/ &
+        & 0.63709e-04_rb,0.10546e-03_rb,0.11986e-03_rb,0.12594e-03_rb,0.12627e-03_rb, &
+        & 0.12095e-03_rb,0.11006e-03_rb,0.92053e-04_rb,0.39852e-03_rb /)
+      kao(:, 3,13, 4) = (/ &
+        & 0.64717e-04_rb,0.10750e-03_rb,0.12189e-03_rb,0.12839e-03_rb,0.12907e-03_rb, &
+        & 0.12414e-03_rb,0.11317e-03_rb,0.94939e-04_rb,0.39013e-03_rb /)
+      kao(:, 4,13, 4) = (/ &
+        & 0.65465e-04_rb,0.10983e-03_rb,0.12464e-03_rb,0.13149e-03_rb,0.13253e-03_rb, &
+        & 0.12801e-03_rb,0.11693e-03_rb,0.98001e-04_rb,0.38349e-03_rb /)
+      kao(:, 5,13, 4) = (/ &
+        & 0.66137e-04_rb,0.11222e-03_rb,0.12786e-03_rb,0.13517e-03_rb,0.13652e-03_rb, &
+        & 0.13219e-03_rb,0.12093e-03_rb,0.10155e-03_rb,0.38305e-03_rb /)
+      kao(:, 1, 1, 5) = (/ &
+        & 0.60998e-03_rb,0.92357e-03_rb,0.10463e-02_rb,0.11196e-02_rb,0.11571e-02_rb, &
+        & 0.11569e-02_rb,0.11152e-02_rb,0.10342e-02_rb,0.80721e-03_rb /)
+      kao(:, 2, 1, 5) = (/ &
+        & 0.61496e-03_rb,0.93510e-03_rb,0.10604e-02_rb,0.11361e-02_rb,0.11777e-02_rb, &
+        & 0.11834e-02_rb,0.11457e-02_rb,0.10708e-02_rb,0.83732e-03_rb /)
+      kao(:, 3, 1, 5) = (/ &
+        & 0.62454e-03_rb,0.95002e-03_rb,0.10819e-02_rb,0.11594e-02_rb,0.12038e-02_rb, &
+        & 0.12158e-02_rb,0.11823e-02_rb,0.11158e-02_rb,0.87187e-03_rb /)
+      kao(:, 4, 1, 5) = (/ &
+        & 0.63013e-03_rb,0.96444e-03_rb,0.11010e-02_rb,0.11847e-02_rb,0.12326e-02_rb, &
+        & 0.12499e-02_rb,0.12239e-02_rb,0.11623e-02_rb,0.91505e-03_rb /)
+      kao(:, 5, 1, 5) = (/ &
+        & 0.63867e-03_rb,0.98562e-03_rb,0.11276e-02_rb,0.12151e-02_rb,0.12673e-02_rb, &
+        & 0.12886e-02_rb,0.12687e-02_rb,0.12127e-02_rb,0.95931e-03_rb /)
+      kao(:, 1, 2, 5) = (/ &
+        & 0.54006e-03_rb,0.82110e-03_rb,0.93517e-03_rb,0.10086e-02_rb,0.10436e-02_rb, &
+        & 0.10473e-02_rb,0.10071e-02_rb,0.92435e-03_rb,0.69632e-03_rb /)
+      kao(:, 2, 2, 5) = (/ &
+        & 0.54512e-03_rb,0.83214e-03_rb,0.94586e-03_rb,0.10224e-02_rb,0.10616e-02_rb, &
+        & 0.10697e-02_rb,0.10360e-02_rb,0.95897e-03_rb,0.72282e-03_rb /)
+      kao(:, 3, 2, 5) = (/ &
+        & 0.55430e-03_rb,0.84713e-03_rb,0.96481e-03_rb,0.10423e-02_rb,0.10850e-02_rb, &
+        & 0.10972e-02_rb,0.10691e-02_rb,0.99640e-03_rb,0.75512e-03_rb /)
+      kao(:, 4, 2, 5) = (/ &
+        & 0.56089e-03_rb,0.86369e-03_rb,0.98575e-03_rb,0.10648e-02_rb,0.11112e-02_rb, &
+        & 0.11281e-02_rb,0.11049e-02_rb,0.10361e-02_rb,0.79150e-03_rb /)
+      kao(:, 5, 2, 5) = (/ &
+        & 0.56701e-03_rb,0.88105e-03_rb,0.10081e-02_rb,0.10898e-02_rb,0.11420e-02_rb, &
+        & 0.11626e-02_rb,0.11406e-02_rb,0.10780e-02_rb,0.83023e-03_rb /)
+      kao(:, 1, 3, 5) = (/ &
+        & 0.47586e-03_rb,0.72781e-03_rb,0.83369e-03_rb,0.89860e-03_rb,0.93234e-03_rb, &
+        & 0.93626e-03_rb,0.89909e-03_rb,0.81585e-03_rb,0.59036e-03_rb /)
+      kao(:, 2, 3, 5) = (/ &
+        & 0.48035e-03_rb,0.73757e-03_rb,0.84502e-03_rb,0.91276e-03_rb,0.94800e-03_rb, &
+        & 0.95536e-03_rb,0.92668e-03_rb,0.84501e-03_rb,0.61080e-03_rb /)
+      kao(:, 3, 3, 5) = (/ &
+        & 0.48667e-03_rb,0.74941e-03_rb,0.86058e-03_rb,0.92996e-03_rb,0.96794e-03_rb, &
+        & 0.97737e-03_rb,0.95368e-03_rb,0.87646e-03_rb,0.63872e-03_rb /)
+      kao(:, 4, 3, 5) = (/ &
+        & 0.49637e-03_rb,0.76538e-03_rb,0.87882e-03_rb,0.95073e-03_rb,0.99190e-03_rb, &
+        & 0.10051e-02_rb,0.98438e-03_rb,0.91070e-03_rb,0.66866e-03_rb /)
+      kao(:, 5, 3, 5) = (/ &
+        & 0.50269e-03_rb,0.78028e-03_rb,0.89635e-03_rb,0.97198e-03_rb,0.10179e-02_rb, &
+        & 0.10338e-02_rb,0.10130e-02_rb,0.94553e-03_rb,0.70095e-03_rb /)
+      kao(:, 1, 4, 5) = (/ &
+        & 0.41745e-03_rb,0.64505e-03_rb,0.73966e-03_rb,0.79761e-03_rb,0.82752e-03_rb, &
+        & 0.82878e-03_rb,0.79470e-03_rb,0.71636e-03_rb,0.49987e-03_rb /)
+      kao(:, 2, 4, 5) = (/ &
+        & 0.42212e-03_rb,0.65318e-03_rb,0.75017e-03_rb,0.80979e-03_rb,0.84194e-03_rb, &
+        & 0.84473e-03_rb,0.81717e-03_rb,0.73865e-03_rb,0.51625e-03_rb /)
+      kao(:, 3, 4, 5) = (/ &
+        & 0.42808e-03_rb,0.66407e-03_rb,0.76314e-03_rb,0.82416e-03_rb,0.85814e-03_rb, &
+        & 0.86375e-03_rb,0.83972e-03_rb,0.76440e-03_rb,0.53894e-03_rb /)
+      kao(:, 4, 4, 5) = (/ &
+        & 0.43544e-03_rb,0.67737e-03_rb,0.77911e-03_rb,0.84222e-03_rb,0.87777e-03_rb, &
+        & 0.88583e-03_rb,0.86479e-03_rb,0.79362e-03_rb,0.56271e-03_rb /)
+      kao(:, 5, 4, 5) = (/ &
+        & 0.44549e-03_rb,0.69330e-03_rb,0.79686e-03_rb,0.86274e-03_rb,0.90103e-03_rb, &
+        & 0.91189e-03_rb,0.89184e-03_rb,0.82416e-03_rb,0.58887e-03_rb /)
+      kao(:, 1, 5, 5) = (/ &
+        & 0.36593e-03_rb,0.56942e-03_rb,0.65432e-03_rb,0.70354e-03_rb,0.72916e-03_rb, &
+        & 0.72850e-03_rb,0.69713e-03_rb,0.62558e-03_rb,0.42621e-03_rb /)
+      kao(:, 2, 5, 5) = (/ &
+        & 0.37099e-03_rb,0.57654e-03_rb,0.66395e-03_rb,0.71472e-03_rb,0.74107e-03_rb, &
+        & 0.74240e-03_rb,0.71535e-03_rb,0.64376e-03_rb,0.43884e-03_rb /)
+      kao(:, 3, 5, 5) = (/ &
+        & 0.37647e-03_rb,0.58652e-03_rb,0.67530e-03_rb,0.72837e-03_rb,0.75654e-03_rb, &
+        & 0.75759e-03_rb,0.73402e-03_rb,0.66546e-03_rb,0.45630e-03_rb /)
+      kao(:, 4, 5, 5) = (/ &
+        & 0.38311e-03_rb,0.59837e-03_rb,0.68871e-03_rb,0.74328e-03_rb,0.77277e-03_rb, &
+        & 0.77677e-03_rb,0.75490e-03_rb,0.68962e-03_rb,0.47449e-03_rb /)
+      kao(:, 5, 5, 5) = (/ &
+        & 0.39217e-03_rb,0.61368e-03_rb,0.70480e-03_rb,0.76178e-03_rb,0.79297e-03_rb, &
+        & 0.79889e-03_rb,0.77761e-03_rb,0.71542e-03_rb,0.49580e-03_rb /)
+      kao(:, 1, 6, 5) = (/ &
+        & 0.32055e-03_rb,0.49922e-03_rb,0.57435e-03_rb,0.61868e-03_rb,0.63931e-03_rb, &
+        & 0.63779e-03_rb,0.60689e-03_rb,0.54327e-03_rb,0.36282e-03_rb /)
+      kao(:, 2, 6, 5) = (/ &
+        & 0.32502e-03_rb,0.50520e-03_rb,0.58251e-03_rb,0.62835e-03_rb,0.64977e-03_rb, &
+        & 0.64920e-03_rb,0.62209e-03_rb,0.55837e-03_rb,0.37399e-03_rb /)
+      kao(:, 3, 6, 5) = (/ &
+        & 0.33055e-03_rb,0.51462e-03_rb,0.59267e-03_rb,0.63972e-03_rb,0.66253e-03_rb, &
+        & 0.66213e-03_rb,0.63802e-03_rb,0.57660e-03_rb,0.38710e-03_rb /)
+      kao(:, 4, 6, 5) = (/ &
+        & 0.33647e-03_rb,0.52569e-03_rb,0.60454e-03_rb,0.65260e-03_rb,0.67645e-03_rb, &
+        & 0.67638e-03_rb,0.65560e-03_rb,0.59667e-03_rb,0.40130e-03_rb /)
+      kao(:, 5, 6, 5) = (/ &
+        & 0.34306e-03_rb,0.53846e-03_rb,0.61820e-03_rb,0.66796e-03_rb,0.69284e-03_rb, &
+        & 0.69400e-03_rb,0.67340e-03_rb,0.61700e-03_rb,0.41923e-03_rb /)
+      kao(:, 1, 7, 5) = (/ &
+        & 0.28149e-03_rb,0.43644e-03_rb,0.49974e-03_rb,0.53938e-03_rb,0.55701e-03_rb, &
+        & 0.55579e-03_rb,0.52736e-03_rb,0.47001e-03_rb,0.31306e-03_rb /)
+      kao(:, 2, 7, 5) = (/ &
+        & 0.28528e-03_rb,0.44207e-03_rb,0.50655e-03_rb,0.54763e-03_rb,0.56691e-03_rb, &
+        & 0.56439e-03_rb,0.53930e-03_rb,0.48247e-03_rb,0.32173e-03_rb /)
+      kao(:, 3, 7, 5) = (/ &
+        & 0.29004e-03_rb,0.45020e-03_rb,0.51518e-03_rb,0.55741e-03_rb,0.57771e-03_rb, &
+        & 0.57585e-03_rb,0.55263e-03_rb,0.49748e-03_rb,0.33090e-03_rb /)
+      kao(:, 4, 7, 5) = (/ &
+        & 0.29568e-03_rb,0.46070e-03_rb,0.52625e-03_rb,0.56864e-03_rb,0.58962e-03_rb, &
+        & 0.58944e-03_rb,0.56702e-03_rb,0.51458e-03_rb,0.34232e-03_rb /)
+      kao(:, 5, 7, 5) = (/ &
+        & 0.30178e-03_rb,0.47274e-03_rb,0.53886e-03_rb,0.58253e-03_rb,0.60354e-03_rb, &
+        & 0.60454e-03_rb,0.58225e-03_rb,0.53128e-03_rb,0.35470e-03_rb /)
+      kao(:, 1, 8, 5) = (/ &
+        & 0.24786e-03_rb,0.38205e-03_rb,0.43403e-03_rb,0.46727e-03_rb,0.48302e-03_rb, &
+        & 0.48227e-03_rb,0.45812e-03_rb,0.40611e-03_rb,0.30468e-03_rb /)
+      kao(:, 2, 8, 5) = (/ &
+        & 0.25026e-03_rb,0.38705e-03_rb,0.43948e-03_rb,0.47351e-03_rb,0.49158e-03_rb, &
+        & 0.49003e-03_rb,0.46771e-03_rb,0.41673e-03_rb,0.30992e-03_rb /)
+      kao(:, 3, 8, 5) = (/ &
+        & 0.25464e-03_rb,0.39453e-03_rb,0.44681e-03_rb,0.48211e-03_rb,0.50112e-03_rb, &
+        & 0.49992e-03_rb,0.47844e-03_rb,0.42901e-03_rb,0.31626e-03_rb /)
+      kao(:, 4, 8, 5) = (/ &
+        & 0.25978e-03_rb,0.40390e-03_rb,0.45683e-03_rb,0.49220e-03_rb,0.51134e-03_rb, &
+        & 0.51141e-03_rb,0.48898e-03_rb,0.44238e-03_rb,0.32406e-03_rb /)
+      kao(:, 5, 8, 5) = (/ &
+        & 0.26514e-03_rb,0.41428e-03_rb,0.46827e-03_rb,0.50433e-03_rb,0.52333e-03_rb, &
+        & 0.52414e-03_rb,0.50147e-03_rb,0.45619e-03_rb,0.33317e-03_rb /)
+      kao(:, 1, 9, 5) = (/ &
+        & 0.21824e-03_rb,0.33786e-03_rb,0.37946e-03_rb,0.40535e-03_rb,0.41752e-03_rb, &
+        & 0.41661e-03_rb,0.39611e-03_rb,0.34986e-03_rb,0.52178e-03_rb /)
+      kao(:, 2, 9, 5) = (/ &
+        & 0.22059e-03_rb,0.34230e-03_rb,0.38410e-03_rb,0.41056e-03_rb,0.42477e-03_rb, &
+        & 0.42372e-03_rb,0.40485e-03_rb,0.35866e-03_rb,0.50681e-03_rb /)
+      kao(:, 3, 9, 5) = (/ &
+        & 0.22400e-03_rb,0.34814e-03_rb,0.39039e-03_rb,0.41748e-03_rb,0.43284e-03_rb, &
+        & 0.43220e-03_rb,0.41363e-03_rb,0.36885e-03_rb,0.49302e-03_rb /)
+      kao(:, 4, 9, 5) = (/ &
+        & 0.22873e-03_rb,0.35603e-03_rb,0.39905e-03_rb,0.42659e-03_rb,0.44174e-03_rb, &
+        & 0.44167e-03_rb,0.42288e-03_rb,0.37972e-03_rb,0.48294e-03_rb /)
+      kao(:, 5, 9, 5) = (/ &
+        & 0.23347e-03_rb,0.36495e-03_rb,0.40893e-03_rb,0.43763e-03_rb,0.45181e-03_rb, &
+        & 0.45234e-03_rb,0.43347e-03_rb,0.39120e-03_rb,0.47762e-03_rb /)
+      kao(:, 1,10, 5) = (/ &
+        & 0.19122e-03_rb,0.29954e-03_rb,0.33486e-03_rb,0.35474e-03_rb,0.36349e-03_rb, &
+        & 0.36120e-03_rb,0.34300e-03_rb,0.30153e-03_rb,0.10818e-02_rb /)
+      kao(:, 2,10, 5) = (/ &
+        & 0.19375e-03_rb,0.30331e-03_rb,0.33858e-03_rb,0.35959e-03_rb,0.36963e-03_rb, &
+        & 0.36736e-03_rb,0.35033e-03_rb,0.30927e-03_rb,0.10683e-02_rb /)
+      kao(:, 3,10, 5) = (/ &
+        & 0.19685e-03_rb,0.30858e-03_rb,0.34410e-03_rb,0.36599e-03_rb,0.37648e-03_rb, &
+        & 0.37420e-03_rb,0.35748e-03_rb,0.31737e-03_rb,0.10704e-02_rb /)
+      kao(:, 4,10, 5) = (/ &
+        & 0.20091e-03_rb,0.31499e-03_rb,0.35151e-03_rb,0.37400e-03_rb,0.38421e-03_rb, &
+        & 0.38207e-03_rb,0.36506e-03_rb,0.32617e-03_rb,0.10743e-02_rb /)
+      kao(:, 5,10, 5) = (/ &
+        & 0.20539e-03_rb,0.32294e-03_rb,0.36050e-03_rb,0.38325e-03_rb,0.39308e-03_rb, &
+        & 0.39074e-03_rb,0.37406e-03_rb,0.33544e-03_rb,0.10696e-02_rb /)
+      kao(:, 1,11, 5) = (/ &
+        & 0.16667e-03_rb,0.26520e-03_rb,0.29671e-03_rb,0.31441e-03_rb,0.32093e-03_rb, &
+        & 0.31659e-03_rb,0.30045e-03_rb,0.26340e-03_rb,0.11835e-02_rb /)
+      kao(:, 2,11, 5) = (/ &
+        & 0.16885e-03_rb,0.26948e-03_rb,0.30096e-03_rb,0.31914e-03_rb,0.32661e-03_rb, &
+        & 0.32210e-03_rb,0.30657e-03_rb,0.27004e-03_rb,0.11814e-02_rb /)
+      kao(:, 3,11, 5) = (/ &
+        & 0.17223e-03_rb,0.27439e-03_rb,0.30661e-03_rb,0.32470e-03_rb,0.33272e-03_rb, &
+        & 0.32842e-03_rb,0.31227e-03_rb,0.27654e-03_rb,0.11630e-02_rb /)
+      kao(:, 4,11, 5) = (/ &
+        & 0.17618e-03_rb,0.28049e-03_rb,0.31365e-03_rb,0.33181e-03_rb,0.33965e-03_rb, &
+        & 0.33555e-03_rb,0.31903e-03_rb,0.28400e-03_rb,0.11485e-02_rb /)
+      kao(:, 5,11, 5) = (/ &
+        & 0.18103e-03_rb,0.28752e-03_rb,0.32181e-03_rb,0.34031e-03_rb,0.34776e-03_rb, &
+        & 0.34353e-03_rb,0.32710e-03_rb,0.29221e-03_rb,0.11367e-02_rb /)
+      kao(:, 1,12, 5) = (/ &
+        & 0.14364e-03_rb,0.23191e-03_rb,0.26011e-03_rb,0.27602e-03_rb,0.28230e-03_rb, &
+        & 0.27753e-03_rb,0.26259e-03_rb,0.22940e-03_rb,0.11242e-02_rb /)
+      kao(:, 2,12, 5) = (/ &
+        & 0.14586e-03_rb,0.23578e-03_rb,0.26464e-03_rb,0.28074e-03_rb,0.28728e-03_rb, &
+        & 0.28268e-03_rb,0.26740e-03_rb,0.23511e-03_rb,0.11131e-02_rb /)
+      kao(:, 3,12, 5) = (/ &
+        & 0.14908e-03_rb,0.24042e-03_rb,0.27020e-03_rb,0.28659e-03_rb,0.29280e-03_rb, &
+        & 0.28866e-03_rb,0.27254e-03_rb,0.24089e-03_rb,0.10996e-02_rb /)
+      kao(:, 4,12, 5) = (/ &
+        & 0.15297e-03_rb,0.24595e-03_rb,0.27661e-03_rb,0.29313e-03_rb,0.29926e-03_rb, &
+        & 0.29513e-03_rb,0.27870e-03_rb,0.24706e-03_rb,0.10965e-02_rb /)
+      kao(:, 5,12, 5) = (/ &
+        & 0.15735e-03_rb,0.25242e-03_rb,0.28422e-03_rb,0.30069e-03_rb,0.30695e-03_rb, &
+        & 0.30241e-03_rb,0.28613e-03_rb,0.25425e-03_rb,0.10839e-02_rb /)
+      kao(:, 1,13, 5) = (/ &
+        & 0.12345e-03_rb,0.20108e-03_rb,0.22674e-03_rb,0.24086e-03_rb,0.24638e-03_rb, &
+        & 0.24238e-03_rb,0.22876e-03_rb,0.19931e-03_rb,0.96895e-03_rb /)
+      kao(:, 2,13, 5) = (/ &
+        & 0.12581e-03_rb,0.20480e-03_rb,0.23117e-03_rb,0.24535e-03_rb,0.25104e-03_rb, &
+        & 0.24702e-03_rb,0.23303e-03_rb,0.20421e-03_rb,0.96294e-03_rb /)
+      kao(:, 3,13, 5) = (/ &
+        & 0.12856e-03_rb,0.20921e-03_rb,0.23606e-03_rb,0.25076e-03_rb,0.25631e-03_rb, &
+        & 0.25243e-03_rb,0.23816e-03_rb,0.20920e-03_rb,0.95736e-03_rb /)
+      kao(:, 4,13, 5) = (/ &
+        & 0.13210e-03_rb,0.21428e-03_rb,0.24223e-03_rb,0.25691e-03_rb,0.26218e-03_rb, &
+        & 0.25847e-03_rb,0.24400e-03_rb,0.21468e-03_rb,0.95389e-03_rb /)
+      kao(:, 5,13, 5) = (/ &
+        & 0.13599e-03_rb,0.22037e-03_rb,0.24914e-03_rb,0.26391e-03_rb,0.26911e-03_rb, &
+        & 0.26543e-03_rb,0.25095e-03_rb,0.22101e-03_rb,0.94116e-03_rb /)
+      kao(:, 1, 1, 6) = (/ &
+        & 0.10602e-02_rb,0.17123e-02_rb,0.20157e-02_rb,0.22277e-02_rb,0.23726e-02_rb, &
+        & 0.24628e-02_rb,0.25069e-02_rb,0.24686e-02_rb,0.20168e-02_rb /)
+      kao(:, 2, 1, 6) = (/ &
+        & 0.10672e-02_rb,0.17270e-02_rb,0.20414e-02_rb,0.22652e-02_rb,0.24211e-02_rb, &
+        & 0.25212e-02_rb,0.25704e-02_rb,0.25272e-02_rb,0.20646e-02_rb /)
+      kao(:, 3, 1, 6) = (/ &
+        & 0.10788e-02_rb,0.17509e-02_rb,0.20769e-02_rb,0.23112e-02_rb,0.24814e-02_rb, &
+        & 0.25914e-02_rb,0.26418e-02_rb,0.25942e-02_rb,0.21193e-02_rb /)
+      kao(:, 4, 1, 6) = (/ &
+        & 0.10874e-02_rb,0.17764e-02_rb,0.21176e-02_rb,0.23585e-02_rb,0.25381e-02_rb, &
+        & 0.26622e-02_rb,0.27175e-02_rb,0.26689e-02_rb,0.21851e-02_rb /)
+      kao(:, 5, 1, 6) = (/ &
+        & 0.11018e-02_rb,0.18090e-02_rb,0.21640e-02_rb,0.24172e-02_rb,0.26051e-02_rb, &
+        & 0.27415e-02_rb,0.28075e-02_rb,0.27566e-02_rb,0.22604e-02_rb /)
+      kao(:, 1, 2, 6) = (/ &
+        & 0.95075e-03_rb,0.15355e-02_rb,0.17976e-02_rb,0.19766e-02_rb,0.21006e-02_rb, &
+        & 0.21710e-02_rb,0.21998e-02_rb,0.21663e-02_rb,0.17568e-02_rb /)
+      kao(:, 2, 2, 6) = (/ &
+        & 0.96010e-03_rb,0.15501e-02_rb,0.18242e-02_rb,0.20112e-02_rb,0.21419e-02_rb, &
+        & 0.22180e-02_rb,0.22475e-02_rb,0.22135e-02_rb,0.17960e-02_rb /)
+      kao(:, 3, 2, 6) = (/ &
+        & 0.97337e-03_rb,0.15726e-02_rb,0.18580e-02_rb,0.20531e-02_rb,0.21905e-02_rb, &
+        & 0.22742e-02_rb,0.23072e-02_rb,0.22697e-02_rb,0.18409e-02_rb /)
+      kao(:, 4, 2, 6) = (/ &
+        & 0.98600e-03_rb,0.15975e-02_rb,0.18942e-02_rb,0.20984e-02_rb,0.22403e-02_rb, &
+        & 0.23334e-02_rb,0.23735e-02_rb,0.23328e-02_rb,0.18922e-02_rb /)
+      kao(:, 5, 2, 6) = (/ &
+        & 0.99685e-03_rb,0.16266e-02_rb,0.19353e-02_rb,0.21493e-02_rb,0.22931e-02_rb, &
+        & 0.23955e-02_rb,0.24466e-02_rb,0.24068e-02_rb,0.19548e-02_rb /)
+      kao(:, 1, 3, 6) = (/ &
+        & 0.85253e-03_rb,0.13731e-02_rb,0.15966e-02_rb,0.17555e-02_rb,0.18660e-02_rb, &
+        & 0.19267e-02_rb,0.19415e-02_rb,0.18992e-02_rb,0.15125e-02_rb /)
+      kao(:, 2, 3, 6) = (/ &
+        & 0.86131e-03_rb,0.13853e-02_rb,0.16172e-02_rb,0.17827e-02_rb,0.18992e-02_rb, &
+        & 0.19616e-02_rb,0.19781e-02_rb,0.19388e-02_rb,0.15472e-02_rb /)
+      kao(:, 3, 3, 6) = (/ &
+        & 0.87215e-03_rb,0.13990e-02_rb,0.16433e-02_rb,0.18151e-02_rb,0.19357e-02_rb, &
+        & 0.20044e-02_rb,0.20244e-02_rb,0.19864e-02_rb,0.15842e-02_rb /)
+      kao(:, 4, 3, 6) = (/ &
+        & 0.88704e-03_rb,0.14261e-02_rb,0.16795e-02_rb,0.18576e-02_rb,0.19802e-02_rb, &
+        & 0.20536e-02_rb,0.20804e-02_rb,0.20410e-02_rb,0.16256e-02_rb /)
+      kao(:, 5, 3, 6) = (/ &
+        & 0.89758e-03_rb,0.14527e-02_rb,0.17171e-02_rb,0.19025e-02_rb,0.20236e-02_rb, &
+        & 0.21045e-02_rb,0.21413e-02_rb,0.21023e-02_rb,0.16764e-02_rb /)
+      kao(:, 1, 4, 6) = (/ &
+        & 0.76168e-03_rb,0.12206e-02_rb,0.14175e-02_rb,0.15588e-02_rb,0.16575e-02_rb, &
+        & 0.17098e-02_rb,0.17134e-02_rb,0.16603e-02_rb,0.12974e-02_rb /)
+      kao(:, 2, 4, 6) = (/ &
+        & 0.76958e-03_rb,0.12314e-02_rb,0.14342e-02_rb,0.15807e-02_rb,0.16847e-02_rb, &
+        & 0.17400e-02_rb,0.17442e-02_rb,0.16938e-02_rb,0.13260e-02_rb /)
+      kao(:, 3, 4, 6) = (/ &
+        & 0.78002e-03_rb,0.12481e-02_rb,0.14573e-02_rb,0.16092e-02_rb,0.17173e-02_rb, &
+        & 0.17771e-02_rb,0.17830e-02_rb,0.17337e-02_rb,0.13577e-02_rb /)
+      kao(:, 4, 4, 6) = (/ &
+        & 0.79261e-03_rb,0.12694e-02_rb,0.14861e-02_rb,0.16420e-02_rb,0.17536e-02_rb, &
+        & 0.18179e-02_rb,0.18286e-02_rb,0.17776e-02_rb,0.13930e-02_rb /)
+      kao(:, 5, 4, 6) = (/ &
+        & 0.80905e-03_rb,0.12930e-02_rb,0.15216e-02_rb,0.16835e-02_rb,0.17969e-02_rb, &
+        & 0.18651e-02_rb,0.18829e-02_rb,0.18324e-02_rb,0.14370e-02_rb /)
+      kao(:, 1, 5, 6) = (/ &
+        & 0.67567e-03_rb,0.10847e-02_rb,0.12673e-02_rb,0.13865e-02_rb,0.14678e-02_rb, &
+        & 0.15102e-02_rb,0.15099e-02_rb,0.14466e-02_rb,0.11079e-02_rb /)
+      kao(:, 2, 5, 6) = (/ &
+        & 0.68234e-03_rb,0.10948e-02_rb,0.12810e-02_rb,0.14048e-02_rb,0.14909e-02_rb, &
+        & 0.15364e-02_rb,0.15351e-02_rb,0.14749e-02_rb,0.11322e-02_rb /)
+      kao(:, 3, 5, 6) = (/ &
+        & 0.69172e-03_rb,0.11094e-02_rb,0.12954e-02_rb,0.14275e-02_rb,0.15177e-02_rb, &
+        & 0.15693e-02_rb,0.15680e-02_rb,0.15069e-02_rb,0.11581e-02_rb /)
+      kao(:, 4, 5, 6) = (/ &
+        & 0.70397e-03_rb,0.11284e-02_rb,0.13174e-02_rb,0.14563e-02_rb,0.15501e-02_rb, &
+        & 0.16053e-02_rb,0.16071e-02_rb,0.15445e-02_rb,0.11891e-02_rb /)
+      kao(:, 5, 5, 6) = (/ &
+        & 0.72110e-03_rb,0.11540e-02_rb,0.13487e-02_rb,0.14917e-02_rb,0.15891e-02_rb, &
+        & 0.16474e-02_rb,0.16536e-02_rb,0.15913e-02_rb,0.12262e-02_rb /)
+      kao(:, 1, 6, 6) = (/ &
+        & 0.59508e-03_rb,0.96565e-03_rb,0.11271e-02_rb,0.12321e-02_rb,0.12935e-02_rb, &
+        & 0.13263e-02_rb,0.13235e-02_rb,0.12583e-02_rb,0.94318e-03_rb /)
+      kao(:, 2, 6, 6) = (/ &
+        & 0.60163e-03_rb,0.97555e-03_rb,0.11390e-02_rb,0.12428e-02_rb,0.13136e-02_rb, &
+        & 0.13483e-02_rb,0.13443e-02_rb,0.12812e-02_rb,0.96040e-03_rb /)
+      kao(:, 3, 6, 6) = (/ &
+        & 0.61035e-03_rb,0.98842e-03_rb,0.11551e-02_rb,0.12623e-02_rb,0.13370e-02_rb, &
+        & 0.13759e-02_rb,0.13716e-02_rb,0.13073e-02_rb,0.98049e-03_rb /)
+      kao(:, 4, 6, 6) = (/ &
+        & 0.62216e-03_rb,0.10038e-02_rb,0.11750e-02_rb,0.12870e-02_rb,0.13646e-02_rb, &
+        & 0.14087e-02_rb,0.14042e-02_rb,0.13389e-02_rb,0.10049e-02_rb /)
+      kao(:, 5, 6, 6) = (/ &
+        & 0.63568e-03_rb,0.10246e-02_rb,0.11986e-02_rb,0.13152e-02_rb,0.13969e-02_rb, &
+        & 0.14439e-02_rb,0.14425e-02_rb,0.13760e-02_rb,0.10351e-02_rb /)
+      kao(:, 1, 7, 6) = (/ &
+        & 0.52222e-03_rb,0.85609e-03_rb,0.99991e-03_rb,0.10870e-02_rb,0.11353e-02_rb, &
+        & 0.11602e-02_rb,0.11537e-02_rb,0.10909e-02_rb,0.79969e-03_rb /)
+      kao(:, 2, 7, 6) = (/ &
+        & 0.52839e-03_rb,0.86572e-03_rb,0.10120e-02_rb,0.11011e-02_rb,0.11521e-02_rb, &
+        & 0.11786e-02_rb,0.11705e-02_rb,0.11093e-02_rb,0.81421e-03_rb /)
+      kao(:, 3, 7, 6) = (/ &
+        & 0.53695e-03_rb,0.87703e-03_rb,0.10261e-02_rb,0.11177e-02_rb,0.11714e-02_rb, &
+        & 0.12016e-02_rb,0.11930e-02_rb,0.11309e-02_rb,0.83157e-03_rb /)
+      kao(:, 4, 7, 6) = (/ &
+        & 0.54734e-03_rb,0.89105e-03_rb,0.10435e-02_rb,0.11340e-02_rb,0.11954e-02_rb, &
+        & 0.12276e-02_rb,0.12204e-02_rb,0.11559e-02_rb,0.85189e-03_rb /)
+      kao(:, 5, 7, 6) = (/ &
+        & 0.56071e-03_rb,0.90902e-03_rb,0.10648e-02_rb,0.11575e-02_rb,0.12234e-02_rb, &
+        & 0.12571e-02_rb,0.12523e-02_rb,0.11865e-02_rb,0.87630e-03_rb /)
+      kao(:, 1, 8, 6) = (/ &
+        & 0.45809e-03_rb,0.75296e-03_rb,0.88022e-03_rb,0.95530e-03_rb,0.99775e-03_rb, &
+        & 0.10107e-02_rb,0.99991e-03_rb,0.94255e-03_rb,0.69349e-03_rb /)
+      kao(:, 2, 8, 6) = (/ &
+        & 0.46457e-03_rb,0.76241e-03_rb,0.89241e-03_rb,0.96833e-03_rb,0.10107e-02_rb, &
+        & 0.10258e-02_rb,0.10136e-02_rb,0.95735e-03_rb,0.70413e-03_rb /)
+      kao(:, 3, 8, 6) = (/ &
+        & 0.47249e-03_rb,0.77258e-03_rb,0.90578e-03_rb,0.98260e-03_rb,0.10233e-02_rb, &
+        & 0.10448e-02_rb,0.10324e-02_rb,0.97481e-03_rb,0.71522e-03_rb /)
+      kao(:, 4, 8, 6) = (/ &
+        & 0.48263e-03_rb,0.78537e-03_rb,0.92183e-03_rb,0.10012e-02_rb,0.10427e-02_rb, &
+        & 0.10663e-02_rb,0.10558e-02_rb,0.99531e-03_rb,0.72922e-03_rb /)
+      kao(:, 5, 8, 6) = (/ &
+        & 0.49501e-03_rb,0.80218e-03_rb,0.94059e-03_rb,0.10219e-02_rb,0.10669e-02_rb, &
+        & 0.10907e-02_rb,0.10824e-02_rb,0.10204e-02_rb,0.74659e-03_rb /)
+      kao(:, 1, 9, 6) = (/ &
+        & 0.40630e-03_rb,0.65697e-03_rb,0.76693e-03_rb,0.83253e-03_rb,0.86881e-03_rb, &
+        & 0.87661e-03_rb,0.86393e-03_rb,0.81158e-03_rb,0.85763e-03_rb /)
+      kao(:, 2, 9, 6) = (/ &
+        & 0.41166e-03_rb,0.66657e-03_rb,0.77941e-03_rb,0.84564e-03_rb,0.88174e-03_rb, &
+        & 0.88952e-03_rb,0.87488e-03_rb,0.82351e-03_rb,0.84633e-03_rb /)
+      kao(:, 3, 9, 6) = (/ &
+        & 0.41847e-03_rb,0.67680e-03_rb,0.79185e-03_rb,0.85875e-03_rb,0.89476e-03_rb, &
+        & 0.90456e-03_rb,0.89101e-03_rb,0.83833e-03_rb,0.84017e-03_rb /)
+      kao(:, 4, 9, 6) = (/ &
+        & 0.42661e-03_rb,0.68815e-03_rb,0.80637e-03_rb,0.87435e-03_rb,0.91036e-03_rb, &
+        & 0.92205e-03_rb,0.90961e-03_rb,0.85502e-03_rb,0.83895e-03_rb /)
+      kao(:, 5, 9, 6) = (/ &
+        & 0.43776e-03_rb,0.70278e-03_rb,0.82329e-03_rb,0.89247e-03_rb,0.92828e-03_rb, &
+        & 0.94238e-03_rb,0.93168e-03_rb,0.87536e-03_rb,0.84088e-03_rb /)
+      kao(:, 1,10, 6) = (/ &
+        & 0.36854e-03_rb,0.57908e-03_rb,0.66869e-03_rb,0.72258e-03_rb,0.75231e-03_rb, &
+        & 0.75942e-03_rb,0.74383e-03_rb,0.69709e-03_rb,0.20395e-02_rb /)
+      kao(:, 2,10, 6) = (/ &
+        & 0.37298e-03_rb,0.58711e-03_rb,0.68015e-03_rb,0.73349e-03_rb,0.76293e-03_rb, &
+        & 0.77052e-03_rb,0.75338e-03_rb,0.70798e-03_rb,0.19202e-02_rb /)
+      kao(:, 3,10, 6) = (/ &
+        & 0.37876e-03_rb,0.59595e-03_rb,0.69100e-03_rb,0.74575e-03_rb,0.77497e-03_rb, &
+        & 0.78295e-03_rb,0.76740e-03_rb,0.72017e-03_rb,0.18161e-02_rb /)
+      kao(:, 4,10, 6) = (/ &
+        & 0.38615e-03_rb,0.60708e-03_rb,0.70373e-03_rb,0.75914e-03_rb,0.78952e-03_rb, &
+        & 0.79663e-03_rb,0.78331e-03_rb,0.73385e-03_rb,0.17247e-02_rb /)
+      kao(:, 5,10, 6) = (/ &
+        & 0.39564e-03_rb,0.62052e-03_rb,0.71856e-03_rb,0.77512e-03_rb,0.80699e-03_rb, &
+        & 0.81444e-03_rb,0.80141e-03_rb,0.75081e-03_rb,0.16568e-02_rb /)
+      kao(:, 1,11, 6) = (/ &
+        & 0.33320e-03_rb,0.52088e-03_rb,0.59646e-03_rb,0.63812e-03_rb,0.65660e-03_rb, &
+        & 0.65900e-03_rb,0.64138e-03_rb,0.60020e-03_rb,0.25696e-02_rb /)
+      kao(:, 2,11, 6) = (/ &
+        & 0.33882e-03_rb,0.52942e-03_rb,0.60584e-03_rb,0.64728e-03_rb,0.66639e-03_rb, &
+        & 0.66995e-03_rb,0.65115e-03_rb,0.61030e-03_rb,0.24243e-02_rb /)
+      kao(:, 3,11, 6) = (/ &
+        & 0.34516e-03_rb,0.53993e-03_rb,0.61579e-03_rb,0.65783e-03_rb,0.67758e-03_rb, &
+        & 0.68193e-03_rb,0.66413e-03_rb,0.62169e-03_rb,0.23408e-02_rb /)
+      kao(:, 4,11, 6) = (/ &
+        & 0.35301e-03_rb,0.55124e-03_rb,0.62753e-03_rb,0.66999e-03_rb,0.69148e-03_rb, &
+        & 0.69508e-03_rb,0.67858e-03_rb,0.63426e-03_rb,0.22732e-02_rb /)
+      kao(:, 5,11, 6) = (/ &
+        & 0.36214e-03_rb,0.56453e-03_rb,0.64151e-03_rb,0.68481e-03_rb,0.70755e-03_rb, &
+        & 0.71086e-03_rb,0.69483e-03_rb,0.64938e-03_rb,0.21869e-02_rb /)
+      kao(:, 1,12, 6) = (/ &
+        & 0.29653e-03_rb,0.46559e-03_rb,0.53073e-03_rb,0.56520e-03_rb,0.57894e-03_rb, &
+        & 0.57686e-03_rb,0.55698e-03_rb,0.51584e-03_rb,0.26304e-02_rb /)
+      kao(:, 2,12, 6) = (/ &
+        & 0.30188e-03_rb,0.47447e-03_rb,0.54017e-03_rb,0.57406e-03_rb,0.58804e-03_rb, &
+        & 0.58653e-03_rb,0.56630e-03_rb,0.52472e-03_rb,0.24930e-02_rb /)
+      kao(:, 3,12, 6) = (/ &
+        & 0.30861e-03_rb,0.48517e-03_rb,0.55102e-03_rb,0.58380e-03_rb,0.59890e-03_rb, &
+        & 0.59725e-03_rb,0.57721e-03_rb,0.53486e-03_rb,0.23834e-02_rb /)
+      kao(:, 4,12, 6) = (/ &
+        & 0.31637e-03_rb,0.49701e-03_rb,0.56299e-03_rb,0.59618e-03_rb,0.61191e-03_rb, &
+        & 0.60936e-03_rb,0.58930e-03_rb,0.54649e-03_rb,0.22824e-02_rb /)
+      kao(:, 5,12, 6) = (/ &
+        & 0.32604e-03_rb,0.51148e-03_rb,0.57604e-03_rb,0.61103e-03_rb,0.62611e-03_rb, &
+        & 0.62412e-03_rb,0.60375e-03_rb,0.56026e-03_rb,0.22084e-02_rb /)
+      kao(:, 1,13, 6) = (/ &
+        & 0.26154e-03_rb,0.41366e-03_rb,0.47019e-03_rb,0.50056e-03_rb,0.51140e-03_rb, &
+        & 0.50695e-03_rb,0.48611e-03_rb,0.44348e-03_rb,0.22773e-02_rb /)
+      kao(:, 2,13, 6) = (/ &
+        & 0.26669e-03_rb,0.42267e-03_rb,0.47957e-03_rb,0.51009e-03_rb,0.52067e-03_rb, &
+        & 0.51611e-03_rb,0.49506e-03_rb,0.45138e-03_rb,0.21516e-02_rb /)
+      kao(:, 3,13, 6) = (/ &
+        & 0.27302e-03_rb,0.43290e-03_rb,0.49082e-03_rb,0.52081e-03_rb,0.53105e-03_rb, &
+        & 0.52578e-03_rb,0.50476e-03_rb,0.46026e-03_rb,0.20522e-02_rb /)
+      kao(:, 4,13, 6) = (/ &
+        & 0.28114e-03_rb,0.44552e-03_rb,0.50271e-03_rb,0.53316e-03_rb,0.54314e-03_rb, &
+        & 0.53754e-03_rb,0.51555e-03_rb,0.47096e-03_rb,0.19694e-02_rb /)
+      kao(:, 5,13, 6) = (/ &
+        & 0.29046e-03_rb,0.45904e-03_rb,0.51716e-03_rb,0.54751e-03_rb,0.55727e-03_rb, &
+        & 0.55147e-03_rb,0.52828e-03_rb,0.48333e-03_rb,0.19102e-02_rb /)
+      kao(:, 1, 1, 7) = (/ &
+        & 0.21025e-02_rb,0.35934e-02_rb,0.44505e-02_rb,0.51294e-02_rb,0.56565e-02_rb, &
+        & 0.60638e-02_rb,0.63051e-02_rb,0.63060e-02_rb,0.53132e-02_rb /)
+      kao(:, 2, 1, 7) = (/ &
+        & 0.21147e-02_rb,0.36363e-02_rb,0.45228e-02_rb,0.52203e-02_rb,0.57590e-02_rb, &
+        & 0.61627e-02_rb,0.64080e-02_rb,0.64123e-02_rb,0.54186e-02_rb /)
+      kao(:, 3, 1, 7) = (/ &
+        & 0.21423e-02_rb,0.36907e-02_rb,0.46129e-02_rb,0.53384e-02_rb,0.58809e-02_rb, &
+        & 0.62832e-02_rb,0.65320e-02_rb,0.65359e-02_rb,0.55396e-02_rb /)
+      kao(:, 4, 1, 7) = (/ &
+        & 0.21655e-02_rb,0.37303e-02_rb,0.46928e-02_rb,0.54454e-02_rb,0.60067e-02_rb, &
+        & 0.64159e-02_rb,0.66758e-02_rb,0.66776e-02_rb,0.56738e-02_rb /)
+      kao(:, 5, 1, 7) = (/ &
+        & 0.22041e-02_rb,0.37865e-02_rb,0.47900e-02_rb,0.55720e-02_rb,0.61575e-02_rb, &
+        & 0.65795e-02_rb,0.68426e-02_rb,0.68332e-02_rb,0.58218e-02_rb /)
+      kao(:, 1, 2, 7) = (/ &
+        & 0.19184e-02_rb,0.32868e-02_rb,0.40037e-02_rb,0.45520e-02_rb,0.49723e-02_rb, &
+        & 0.52862e-02_rb,0.54779e-02_rb,0.54778e-02_rb,0.44696e-02_rb /)
+      kao(:, 2, 2, 7) = (/ &
+        & 0.19302e-02_rb,0.33258e-02_rb,0.40693e-02_rb,0.46336e-02_rb,0.50634e-02_rb, &
+        & 0.53829e-02_rb,0.55797e-02_rb,0.55784e-02_rb,0.45568e-02_rb /)
+      kao(:, 3, 2, 7) = (/ &
+        & 0.19586e-02_rb,0.33762e-02_rb,0.41518e-02_rb,0.47383e-02_rb,0.51749e-02_rb, &
+        & 0.54993e-02_rb,0.56986e-02_rb,0.56923e-02_rb,0.46572e-02_rb /)
+      kao(:, 4, 2, 7) = (/ &
+        & 0.19876e-02_rb,0.34214e-02_rb,0.42297e-02_rb,0.48395e-02_rb,0.52957e-02_rb, &
+        & 0.56305e-02_rb,0.58340e-02_rb,0.58219e-02_rb,0.47733e-02_rb /)
+      kao(:, 5, 2, 7) = (/ &
+        & 0.20222e-02_rb,0.34660e-02_rb,0.43057e-02_rb,0.49428e-02_rb,0.54286e-02_rb, &
+        & 0.57769e-02_rb,0.59846e-02_rb,0.59651e-02_rb,0.49022e-02_rb /)
+      kao(:, 1, 3, 7) = (/ &
+        & 0.17389e-02_rb,0.29833e-02_rb,0.35894e-02_rb,0.40314e-02_rb,0.43535e-02_rb, &
+        & 0.45848e-02_rb,0.47251e-02_rb,0.47273e-02_rb,0.37675e-02_rb /)
+      kao(:, 2, 3, 7) = (/ &
+        & 0.17511e-02_rb,0.30210e-02_rb,0.36487e-02_rb,0.40996e-02_rb,0.44314e-02_rb, &
+        & 0.46730e-02_rb,0.48141e-02_rb,0.48126e-02_rb,0.38333e-02_rb /)
+      kao(:, 3, 3, 7) = (/ &
+        & 0.17713e-02_rb,0.30646e-02_rb,0.37133e-02_rb,0.41800e-02_rb,0.45216e-02_rb, &
+        & 0.47732e-02_rb,0.49178e-02_rb,0.49079e-02_rb,0.39121e-02_rb /)
+      kao(:, 4, 3, 7) = (/ &
+        & 0.18058e-02_rb,0.31149e-02_rb,0.37889e-02_rb,0.42777e-02_rb,0.46349e-02_rb, &
+        & 0.48925e-02_rb,0.50383e-02_rb,0.50219e-02_rb,0.40071e-02_rb /)
+      kao(:, 5, 3, 7) = (/ &
+        & 0.18379e-02_rb,0.31573e-02_rb,0.38545e-02_rb,0.43660e-02_rb,0.47479e-02_rb, &
+        & 0.50186e-02_rb,0.51717e-02_rb,0.51483e-02_rb,0.41141e-02_rb /)
+      kao(:, 1, 4, 7) = (/ &
+        & 0.15760e-02_rb,0.26881e-02_rb,0.32116e-02_rb,0.35706e-02_rb,0.38258e-02_rb, &
+        & 0.39911e-02_rb,0.40833e-02_rb,0.40813e-02_rb,0.32298e-02_rb /)
+      kao(:, 2, 4, 7) = (/ &
+        & 0.15813e-02_rb,0.27249e-02_rb,0.32627e-02_rb,0.36295e-02_rb,0.38889e-02_rb, &
+        & 0.40640e-02_rb,0.41571e-02_rb,0.41534e-02_rb,0.32787e-02_rb /)
+      kao(:, 3, 4, 7) = (/ &
+        & 0.16001e-02_rb,0.27603e-02_rb,0.33193e-02_rb,0.36971e-02_rb,0.39631e-02_rb, &
+        & 0.41442e-02_rb,0.42435e-02_rb,0.42324e-02_rb,0.33394e-02_rb /)
+      kao(:, 4, 4, 7) = (/ &
+        & 0.16258e-02_rb,0.28020e-02_rb,0.33780e-02_rb,0.37750e-02_rb,0.40494e-02_rb, &
+        & 0.42369e-02_rb,0.43436e-02_rb,0.43281e-02_rb,0.34138e-02_rb /)
+      kao(:, 5, 4, 7) = (/ &
+        & 0.16664e-02_rb,0.28640e-02_rb,0.34503e-02_rb,0.38637e-02_rb,0.41572e-02_rb, &
+        & 0.43540e-02_rb,0.44611e-02_rb,0.44376e-02_rb,0.34982e-02_rb /)
+      kao(:, 1, 5, 7) = (/ &
+        & 0.14233e-02_rb,0.24061e-02_rb,0.28484e-02_rb,0.31675e-02_rb,0.33803e-02_rb, &
+        & 0.35027e-02_rb,0.35528e-02_rb,0.35417e-02_rb,0.27814e-02_rb /)
+      kao(:, 2, 5, 7) = (/ &
+        & 0.14350e-02_rb,0.24395e-02_rb,0.28937e-02_rb,0.32168e-02_rb,0.34318e-02_rb, &
+        & 0.35619e-02_rb,0.36148e-02_rb,0.35990e-02_rb,0.28208e-02_rb /)
+      kao(:, 3, 5, 7) = (/ &
+        & 0.14521e-02_rb,0.24725e-02_rb,0.29512e-02_rb,0.32733e-02_rb,0.34917e-02_rb, &
+        & 0.36258e-02_rb,0.36856e-02_rb,0.36654e-02_rb,0.28719e-02_rb /)
+      kao(:, 4, 5, 7) = (/ &
+        & 0.14701e-02_rb,0.25117e-02_rb,0.30081e-02_rb,0.33364e-02_rb,0.35619e-02_rb, &
+        & 0.37016e-02_rb,0.37673e-02_rb,0.37455e-02_rb,0.29344e-02_rb /)
+      kao(:, 5, 5, 7) = (/ &
+        & 0.15037e-02_rb,0.25667e-02_rb,0.30753e-02_rb,0.34136e-02_rb,0.36518e-02_rb, &
+        & 0.37975e-02_rb,0.38648e-02_rb,0.38367e-02_rb,0.30050e-02_rb /)
+      kao(:, 1, 6, 7) = (/ &
+        & 0.12833e-02_rb,0.21397e-02_rb,0.25249e-02_rb,0.27989e-02_rb,0.29941e-02_rb, &
+        & 0.30943e-02_rb,0.31134e-02_rb,0.30718e-02_rb,0.23837e-02_rb /)
+      kao(:, 2, 6, 7) = (/ &
+        & 0.12955e-02_rb,0.21689e-02_rb,0.25640e-02_rb,0.28465e-02_rb,0.30386e-02_rb, &
+        & 0.31442e-02_rb,0.31666e-02_rb,0.31216e-02_rb,0.24190e-02_rb /)
+      kao(:, 3, 6, 7) = (/ &
+        & 0.13128e-02_rb,0.22001e-02_rb,0.26092e-02_rb,0.28949e-02_rb,0.30875e-02_rb, &
+        & 0.31967e-02_rb,0.32254e-02_rb,0.31772e-02_rb,0.24633e-02_rb /)
+      kao(:, 4, 6, 7) = (/ &
+        & 0.13321e-02_rb,0.22373e-02_rb,0.26583e-02_rb,0.29483e-02_rb,0.31454e-02_rb, &
+        & 0.32584e-02_rb,0.32916e-02_rb,0.32451e-02_rb,0.25158e-02_rb /)
+      kao(:, 5, 6, 7) = (/ &
+        & 0.13570e-02_rb,0.22801e-02_rb,0.27142e-02_rb,0.30110e-02_rb,0.32147e-02_rb, &
+        & 0.33324e-02_rb,0.33699e-02_rb,0.33240e-02_rb,0.25751e-02_rb /)
+      kao(:, 1, 7, 7) = (/ &
+        & 0.11500e-02_rb,0.18956e-02_rb,0.22352e-02_rb,0.24771e-02_rb,0.26462e-02_rb, &
+        & 0.27285e-02_rb,0.27284e-02_rb,0.26574e-02_rb,0.20286e-02_rb /)
+      kao(:, 2, 7, 7) = (/ &
+        & 0.11641e-02_rb,0.19221e-02_rb,0.22681e-02_rb,0.25137e-02_rb,0.26876e-02_rb, &
+        & 0.27741e-02_rb,0.27762e-02_rb,0.27013e-02_rb,0.20553e-02_rb /)
+      kao(:, 3, 7, 7) = (/ &
+        & 0.11813e-02_rb,0.19513e-02_rb,0.23065e-02_rb,0.25547e-02_rb,0.27305e-02_rb, &
+        & 0.28210e-02_rb,0.28261e-02_rb,0.27499e-02_rb,0.20900e-02_rb /)
+      kao(:, 4, 7, 7) = (/ &
+        & 0.12020e-02_rb,0.19854e-02_rb,0.23499e-02_rb,0.26064e-02_rb,0.27813e-02_rb, &
+        & 0.28738e-02_rb,0.28824e-02_rb,0.28095e-02_rb,0.21311e-02_rb /)
+      kao(:, 5, 7, 7) = (/ &
+        & 0.12251e-02_rb,0.20252e-02_rb,0.23984e-02_rb,0.26618e-02_rb,0.28401e-02_rb, &
+        & 0.29374e-02_rb,0.29496e-02_rb,0.28780e-02_rb,0.21792e-02_rb /)
+      kao(:, 1, 8, 7) = (/ &
+        & 0.10232e-02_rb,0.16906e-02_rb,0.19769e-02_rb,0.21832e-02_rb,0.23202e-02_rb, &
+        & 0.23917e-02_rb,0.23852e-02_rb,0.22950e-02_rb,0.17101e-02_rb /)
+      kao(:, 2, 8, 7) = (/ &
+        & 0.10391e-02_rb,0.17050e-02_rb,0.20071e-02_rb,0.22179e-02_rb,0.23606e-02_rb, &
+        & 0.24337e-02_rb,0.24284e-02_rb,0.23335e-02_rb,0.17331e-02_rb /)
+      kao(:, 3, 8, 7) = (/ &
+        & 0.10558e-02_rb,0.17304e-02_rb,0.20412e-02_rb,0.22560e-02_rb,0.24048e-02_rb, &
+        & 0.24767e-02_rb,0.24718e-02_rb,0.23758e-02_rb,0.17638e-02_rb /)
+      kao(:, 4, 8, 7) = (/ &
+        & 0.10757e-02_rb,0.17611e-02_rb,0.20788e-02_rb,0.22974e-02_rb,0.24509e-02_rb, &
+        & 0.25242e-02_rb,0.25220e-02_rb,0.24275e-02_rb,0.17981e-02_rb /)
+      kao(:, 5, 8, 7) = (/ &
+        & 0.10980e-02_rb,0.17974e-02_rb,0.21207e-02_rb,0.23464e-02_rb,0.25025e-02_rb, &
+        & 0.25827e-02_rb,0.25792e-02_rb,0.24843e-02_rb,0.18371e-02_rb /)
+      kao(:, 1, 9, 7) = (/ &
+        & 0.89817e-03_rb,0.14995e-02_rb,0.17424e-02_rb,0.19141e-02_rb,0.20277e-02_rb, &
+        & 0.20847e-02_rb,0.20717e-02_rb,0.19779e-02_rb,0.16529e-02_rb /)
+      kao(:, 2, 9, 7) = (/ &
+        & 0.91497e-03_rb,0.15202e-02_rb,0.17713e-02_rb,0.19473e-02_rb,0.20642e-02_rb, &
+        & 0.21241e-02_rb,0.21112e-02_rb,0.20125e-02_rb,0.16590e-02_rb /)
+      kao(:, 3, 9, 7) = (/ &
+        & 0.93269e-03_rb,0.15411e-02_rb,0.18029e-02_rb,0.19839e-02_rb,0.21017e-02_rb, &
+        & 0.21633e-02_rb,0.21507e-02_rb,0.20494e-02_rb,0.16738e-02_rb /)
+      kao(:, 4, 9, 7) = (/ &
+        & 0.95304e-03_rb,0.15646e-02_rb,0.18368e-02_rb,0.20225e-02_rb,0.21451e-02_rb, &
+        & 0.22062e-02_rb,0.21951e-02_rb,0.20930e-02_rb,0.16939e-02_rb /)
+      kao(:, 5, 9, 7) = (/ &
+        & 0.97498e-03_rb,0.15941e-02_rb,0.18742e-02_rb,0.20657e-02_rb,0.21958e-02_rb, &
+        & 0.22577e-02_rb,0.22448e-02_rb,0.21409e-02_rb,0.17176e-02_rb /)
+      kao(:, 1,10, 7) = (/ &
+        & 0.79262e-03_rb,0.13163e-02_rb,0.15328e-02_rb,0.16707e-02_rb,0.17648e-02_rb, &
+        & 0.18068e-02_rb,0.17935e-02_rb,0.17058e-02_rb,0.29700e-02_rb /)
+      kao(:, 2,10, 7) = (/ &
+        & 0.80762e-03_rb,0.13411e-02_rb,0.15596e-02_rb,0.17027e-02_rb,0.18000e-02_rb, &
+        & 0.18435e-02_rb,0.18291e-02_rb,0.17355e-02_rb,0.28651e-02_rb /)
+      kao(:, 3,10, 7) = (/ &
+        & 0.82251e-03_rb,0.13646e-02_rb,0.15856e-02_rb,0.17370e-02_rb,0.18349e-02_rb, &
+        & 0.18799e-02_rb,0.18643e-02_rb,0.17669e-02_rb,0.27637e-02_rb /)
+      kao(:, 4,10, 7) = (/ &
+        & 0.84077e-03_rb,0.13892e-02_rb,0.16170e-02_rb,0.17747e-02_rb,0.18736e-02_rb, &
+        & 0.19201e-02_rb,0.19036e-02_rb,0.18042e-02_rb,0.26870e-02_rb /)
+      kao(:, 5,10, 7) = (/ &
+        & 0.86106e-03_rb,0.14180e-02_rb,0.16516e-02_rb,0.18147e-02_rb,0.19171e-02_rb, &
+        & 0.19660e-02_rb,0.19468e-02_rb,0.18451e-02_rb,0.26342e-02_rb /)
+      kao(:, 1,11, 7) = (/ &
+        & 0.72744e-03_rb,0.11669e-02_rb,0.13481e-02_rb,0.14590e-02_rb,0.15393e-02_rb, &
+        & 0.15747e-02_rb,0.15610e-02_rb,0.14772e-02_rb,0.38429e-02_rb /)
+      kao(:, 2,11, 7) = (/ &
+        & 0.73930e-03_rb,0.11904e-02_rb,0.13759e-02_rb,0.14894e-02_rb,0.15715e-02_rb, &
+        & 0.16066e-02_rb,0.15925e-02_rb,0.15038e-02_rb,0.36308e-02_rb /)
+      kao(:, 3,11, 7) = (/ &
+        & 0.75350e-03_rb,0.12120e-02_rb,0.14044e-02_rb,0.15240e-02_rb,0.16053e-02_rb, &
+        & 0.16390e-02_rb,0.16251e-02_rb,0.15339e-02_rb,0.34122e-02_rb /)
+      kao(:, 4,11, 7) = (/ &
+        & 0.76930e-03_rb,0.12355e-02_rb,0.14324e-02_rb,0.15603e-02_rb,0.16424e-02_rb, &
+        & 0.16774e-02_rb,0.16611e-02_rb,0.15677e-02_rb,0.32391e-02_rb /)
+      kao(:, 5,11, 7) = (/ &
+        & 0.78824e-03_rb,0.12645e-02_rb,0.14660e-02_rb,0.15998e-02_rb,0.16846e-02_rb, &
+        & 0.17204e-02_rb,0.17007e-02_rb,0.16046e-02_rb,0.31291e-02_rb /)
+      kao(:, 1,12, 7) = (/ &
+        & 0.66909e-03_rb,0.10517e-02_rb,0.11921e-02_rb,0.12822e-02_rb,0.13379e-02_rb, &
+        & 0.13630e-02_rb,0.13492e-02_rb,0.12752e-02_rb,0.39255e-02_rb /)
+      kao(:, 2,12, 7) = (/ &
+        & 0.68372e-03_rb,0.10717e-02_rb,0.12175e-02_rb,0.13089e-02_rb,0.13666e-02_rb, &
+        & 0.13913e-02_rb,0.13783e-02_rb,0.12999e-02_rb,0.37011e-02_rb /)
+      kao(:, 3,12, 7) = (/ &
+        & 0.69881e-03_rb,0.10912e-02_rb,0.12439e-02_rb,0.13402e-02_rb,0.13970e-02_rb, &
+        & 0.14222e-02_rb,0.14099e-02_rb,0.13279e-02_rb,0.35002e-02_rb /)
+      kao(:, 4,12, 7) = (/ &
+        & 0.71487e-03_rb,0.11132e-02_rb,0.12732e-02_rb,0.13738e-02_rb,0.14317e-02_rb, &
+        & 0.14583e-02_rb,0.14439e-02_rb,0.13590e-02_rb,0.33360e-02_rb /)
+      kao(:, 5,12, 7) = (/ &
+        & 0.73461e-03_rb,0.11382e-02_rb,0.13053e-02_rb,0.14102e-02_rb,0.14713e-02_rb, &
+        & 0.14974e-02_rb,0.14808e-02_rb,0.13924e-02_rb,0.31844e-02_rb /)
+      kao(:, 1,13, 7) = (/ &
+        & 0.61282e-03_rb,0.95575e-03_rb,0.10730e-02_rb,0.11388e-02_rb,0.11718e-02_rb, &
+        & 0.11795e-02_rb,0.11618e-02_rb,0.10974e-02_rb,0.34089e-02_rb /)
+      kao(:, 2,13, 7) = (/ &
+        & 0.62765e-03_rb,0.97500e-03_rb,0.10966e-02_rb,0.11619e-02_rb,0.11959e-02_rb, &
+        & 0.12054e-02_rb,0.11876e-02_rb,0.11206e-02_rb,0.32141e-02_rb /)
+      kao(:, 3,13, 7) = (/ &
+        & 0.64409e-03_rb,0.99523e-03_rb,0.11197e-02_rb,0.11873e-02_rb,0.12235e-02_rb, &
+        & 0.12347e-02_rb,0.12163e-02_rb,0.11468e-02_rb,0.30396e-02_rb /)
+      kao(:, 4,13, 7) = (/ &
+        & 0.66230e-03_rb,0.10180e-02_rb,0.11464e-02_rb,0.12161e-02_rb,0.12557e-02_rb, &
+        & 0.12667e-02_rb,0.12475e-02_rb,0.11749e-02_rb,0.28911e-02_rb /)
+      kao(:, 5,13, 7) = (/ &
+        & 0.68383e-03_rb,0.10452e-02_rb,0.11767e-02_rb,0.12484e-02_rb,0.12902e-02_rb, &
+        & 0.13021e-02_rb,0.12822e-02_rb,0.12049e-02_rb,0.27576e-02_rb /)
+      kao(:, 1, 1, 8) = (/ &
+        & 0.59073e-02_rb,0.94320e-02_rb,0.12084e-01_rb,0.14049e-01_rb,0.15571e-01_rb, &
+        & 0.16640e-01_rb,0.17123e-01_rb,0.16625e-01_rb,0.14851e-01_rb /)
+      kao(:, 2, 1, 8) = (/ &
+        & 0.60213e-02_rb,0.95565e-02_rb,0.12218e-01_rb,0.14200e-01_rb,0.15736e-01_rb, &
+        & 0.16810e-01_rb,0.17290e-01_rb,0.16722e-01_rb,0.14969e-01_rb /)
+      kao(:, 3, 1, 8) = (/ &
+        & 0.61698e-02_rb,0.97176e-02_rb,0.12383e-01_rb,0.14381e-01_rb,0.15939e-01_rb, &
+        & 0.17010e-01_rb,0.17476e-01_rb,0.16866e-01_rb,0.15129e-01_rb /)
+      kao(:, 4, 1, 8) = (/ &
+        & 0.62862e-02_rb,0.98624e-02_rb,0.12544e-01_rb,0.14586e-01_rb,0.16163e-01_rb, &
+        & 0.17225e-01_rb,0.17690e-01_rb,0.17043e-01_rb,0.15322e-01_rb /)
+      kao(:, 5, 1, 8) = (/ &
+        & 0.64346e-02_rb,0.10033e-01_rb,0.12746e-01_rb,0.14817e-01_rb,0.16408e-01_rb, &
+        & 0.17481e-01_rb,0.17940e-01_rb,0.17253e-01_rb,0.15543e-01_rb /)
+      kao(:, 1, 2, 8) = (/ &
+        & 0.53740e-02_rb,0.87218e-02_rb,0.11053e-01_rb,0.12810e-01_rb,0.14176e-01_rb, &
+        & 0.15120e-01_rb,0.15546e-01_rb,0.15059e-01_rb,0.12919e-01_rb /)
+      kao(:, 2, 2, 8) = (/ &
+        & 0.54730e-02_rb,0.88522e-02_rb,0.11203e-01_rb,0.12984e-01_rb,0.14363e-01_rb, &
+        & 0.15303e-01_rb,0.15712e-01_rb,0.15177e-01_rb,0.13038e-01_rb /)
+      kao(:, 3, 2, 8) = (/ &
+        & 0.56074e-02_rb,0.90112e-02_rb,0.11386e-01_rb,0.13184e-01_rb,0.14577e-01_rb, &
+        & 0.15506e-01_rb,0.15908e-01_rb,0.15341e-01_rb,0.13193e-01_rb /)
+      kao(:, 4, 2, 8) = (/ &
+        & 0.57291e-02_rb,0.91663e-02_rb,0.11581e-01_rb,0.13408e-01_rb,0.14805e-01_rb, &
+        & 0.15738e-01_rb,0.16140e-01_rb,0.15527e-01_rb,0.13373e-01_rb /)
+      kao(:, 5, 2, 8) = (/ &
+        & 0.58374e-02_rb,0.93237e-02_rb,0.11790e-01_rb,0.13642e-01_rb,0.15063e-01_rb, &
+        & 0.16008e-01_rb,0.16391e-01_rb,0.15740e-01_rb,0.13573e-01_rb /)
+      kao(:, 1, 3, 8) = (/ &
+        & 0.49151e-02_rb,0.80083e-02_rb,0.10006e-01_rb,0.11528e-01_rb,0.12727e-01_rb, &
+        & 0.13551e-01_rb,0.13911e-01_rb,0.13469e-01_rb,0.11070e-01_rb /)
+      kao(:, 2, 3, 8) = (/ &
+        & 0.50045e-02_rb,0.81384e-02_rb,0.10158e-01_rb,0.11712e-01_rb,0.12918e-01_rb, &
+        & 0.13727e-01_rb,0.14078e-01_rb,0.13598e-01_rb,0.11182e-01_rb /)
+      kao(:, 3, 3, 8) = (/ &
+        & 0.51018e-02_rb,0.82774e-02_rb,0.10333e-01_rb,0.11906e-01_rb,0.13128e-01_rb, &
+        & 0.13932e-01_rb,0.14276e-01_rb,0.13758e-01_rb,0.11318e-01_rb /)
+      kao(:, 4, 3, 8) = (/ &
+        & 0.52290e-02_rb,0.84457e-02_rb,0.10545e-01_rb,0.12130e-01_rb,0.13362e-01_rb, &
+        & 0.14179e-01_rb,0.14506e-01_rb,0.13944e-01_rb,0.11475e-01_rb /)
+      kao(:, 5, 3, 8) = (/ &
+        & 0.53219e-02_rb,0.86004e-02_rb,0.10753e-01_rb,0.12365e-01_rb,0.13624e-01_rb, &
+        & 0.14443e-01_rb,0.14743e-01_rb,0.14150e-01_rb,0.11664e-01_rb /)
+      kao(:, 1, 4, 8) = (/ &
+        & 0.44996e-02_rb,0.73324e-02_rb,0.89976e-02_rb,0.10282e-01_rb,0.11291e-01_rb, &
+        & 0.11989e-01_rb,0.12308e-01_rb,0.11915e-01_rb,0.94610e-02_rb /)
+      kao(:, 2, 4, 8) = (/ &
+        & 0.45903e-02_rb,0.74608e-02_rb,0.91511e-02_rb,0.10467e-01_rb,0.11476e-01_rb, &
+        & 0.12168e-01_rb,0.12474e-01_rb,0.12040e-01_rb,0.95583e-02_rb /)
+      kao(:, 3, 4, 8) = (/ &
+        & 0.46786e-02_rb,0.75960e-02_rb,0.93200e-02_rb,0.10651e-01_rb,0.11685e-01_rb, &
+        & 0.12375e-01_rb,0.12662e-01_rb,0.12197e-01_rb,0.96836e-02_rb /)
+      kao(:, 4, 4, 8) = (/ &
+        & 0.47771e-02_rb,0.77407e-02_rb,0.95085e-02_rb,0.10860e-01_rb,0.11915e-01_rb, &
+        & 0.12611e-01_rb,0.12868e-01_rb,0.12374e-01_rb,0.98243e-02_rb /)
+      kao(:, 5, 4, 8) = (/ &
+        & 0.48920e-02_rb,0.79194e-02_rb,0.97305e-02_rb,0.11107e-01_rb,0.12174e-01_rb, &
+        & 0.12866e-01_rb,0.13096e-01_rb,0.12573e-01_rb,0.99978e-02_rb /)
+      kao(:, 1, 5, 8) = (/ &
+        & 0.41203e-02_rb,0.67057e-02_rb,0.80820e-02_rb,0.91247e-02_rb,0.99321e-02_rb, &
+        & 0.10510e-01_rb,0.10783e-01_rb,0.10430e-01_rb,0.81020e-02_rb /)
+      kao(:, 2, 5, 8) = (/ &
+        & 0.41993e-02_rb,0.68279e-02_rb,0.82322e-02_rb,0.92959e-02_rb,0.10115e-01_rb, &
+        & 0.10684e-01_rb,0.10936e-01_rb,0.10557e-01_rb,0.81860e-02_rb /)
+      kao(:, 3, 5, 8) = (/ &
+        & 0.42833e-02_rb,0.69588e-02_rb,0.83884e-02_rb,0.94726e-02_rb,0.10319e-01_rb, &
+        & 0.10879e-01_rb,0.11113e-01_rb,0.10704e-01_rb,0.82915e-02_rb /)
+      kao(:, 4, 5, 8) = (/ &
+        & 0.43800e-02_rb,0.70975e-02_rb,0.85585e-02_rb,0.96769e-02_rb,0.10538e-01_rb, &
+        & 0.11098e-01_rb,0.11307e-01_rb,0.10873e-01_rb,0.84082e-02_rb /)
+      kao(:, 5, 5, 8) = (/ &
+        & 0.44913e-02_rb,0.72638e-02_rb,0.87668e-02_rb,0.99106e-02_rb,0.10776e-01_rb, &
+        & 0.11337e-01_rb,0.11521e-01_rb,0.11061e-01_rb,0.85492e-02_rb /)
+      kao(:, 1, 6, 8) = (/ &
+        & 0.37432e-02_rb,0.61135e-02_rb,0.72507e-02_rb,0.80822e-02_rb,0.86984e-02_rb, &
+        & 0.91424e-02_rb,0.93607e-02_rb,0.90800e-02_rb,0.69637e-02_rb /)
+      kao(:, 2, 6, 8) = (/ &
+        & 0.38232e-02_rb,0.62277e-02_rb,0.73923e-02_rb,0.82383e-02_rb,0.88666e-02_rb, &
+        & 0.93013e-02_rb,0.95051e-02_rb,0.91939e-02_rb,0.70311e-02_rb /)
+      kao(:, 3, 6, 8) = (/ &
+        & 0.39028e-02_rb,0.63516e-02_rb,0.75330e-02_rb,0.84072e-02_rb,0.90542e-02_rb, &
+        & 0.94860e-02_rb,0.96693e-02_rb,0.93306e-02_rb,0.71143e-02_rb /)
+      kao(:, 4, 6, 8) = (/ &
+        & 0.39917e-02_rb,0.64850e-02_rb,0.76893e-02_rb,0.85935e-02_rb,0.92562e-02_rb, &
+        & 0.96859e-02_rb,0.98481e-02_rb,0.94821e-02_rb,0.72080e-02_rb /)
+      kao(:, 5, 6, 8) = (/ &
+        & 0.40851e-02_rb,0.66256e-02_rb,0.78694e-02_rb,0.87911e-02_rb,0.94733e-02_rb, &
+        & 0.99019e-02_rb,0.10042e-01_rb,0.96464e-02_rb,0.73211e-02_rb /)
+      kao(:, 1, 7, 8) = (/ &
+        & 0.33812e-02_rb,0.55475e-02_rb,0.65017e-02_rb,0.71556e-02_rb,0.76235e-02_rb, &
+        & 0.79451e-02_rb,0.81101e-02_rb,0.78877e-02_rb,0.60070e-02_rb /)
+      kao(:, 2, 7, 8) = (/ &
+        & 0.34581e-02_rb,0.56575e-02_rb,0.66301e-02_rb,0.72977e-02_rb,0.77709e-02_rb, &
+        & 0.80903e-02_rb,0.82426e-02_rb,0.79917e-02_rb,0.60625e-02_rb /)
+      kao(:, 3, 7, 8) = (/ &
+        & 0.35355e-02_rb,0.57759e-02_rb,0.67602e-02_rb,0.74532e-02_rb,0.79395e-02_rb, &
+        & 0.82549e-02_rb,0.83890e-02_rb,0.81121e-02_rb,0.61274e-02_rb /)
+      kao(:, 4, 7, 8) = (/ &
+        & 0.36191e-02_rb,0.58987e-02_rb,0.69034e-02_rb,0.76219e-02_rb,0.81209e-02_rb, &
+        & 0.84343e-02_rb,0.85495e-02_rb,0.82395e-02_rb,0.62026e-02_rb /)
+      kao(:, 5, 7, 8) = (/ &
+        & 0.37084e-02_rb,0.60308e-02_rb,0.70671e-02_rb,0.77977e-02_rb,0.83160e-02_rb, &
+        & 0.86266e-02_rb,0.87205e-02_rb,0.83802e-02_rb,0.62947e-02_rb /)
+      kao(:, 1, 8, 8) = (/ &
+        & 0.30376e-02_rb,0.49774e-02_rb,0.58172e-02_rb,0.63470e-02_rb,0.67038e-02_rb, &
+        & 0.69396e-02_rb,0.70412e-02_rb,0.68509e-02_rb,0.51374e-02_rb /)
+      kao(:, 2, 8, 8) = (/ &
+        & 0.31099e-02_rb,0.50996e-02_rb,0.59344e-02_rb,0.64736e-02_rb,0.68367e-02_rb, &
+        & 0.70701e-02_rb,0.71564e-02_rb,0.69425e-02_rb,0.51813e-02_rb /)
+      kao(:, 3, 8, 8) = (/ &
+        & 0.31853e-02_rb,0.52155e-02_rb,0.60541e-02_rb,0.66147e-02_rb,0.69858e-02_rb, &
+        & 0.72120e-02_rb,0.72858e-02_rb,0.70465e-02_rb,0.52319e-02_rb /)
+      kao(:, 4, 8, 8) = (/ &
+        & 0.32663e-02_rb,0.53312e-02_rb,0.61863e-02_rb,0.67654e-02_rb,0.71468e-02_rb, &
+        & 0.73677e-02_rb,0.74252e-02_rb,0.71560e-02_rb,0.52932e-02_rb /)
+      kao(:, 5, 8, 8) = (/ &
+        & 0.33510e-02_rb,0.54583e-02_rb,0.63345e-02_rb,0.69235e-02_rb,0.73170e-02_rb, &
+        & 0.75339e-02_rb,0.75720e-02_rb,0.72770e-02_rb,0.53726e-02_rb /)
+      kao(:, 1, 9, 8) = (/ &
+        & 0.27168e-02_rb,0.44406e-02_rb,0.51768e-02_rb,0.56339e-02_rb,0.59208e-02_rb, &
+        & 0.60958e-02_rb,0.61438e-02_rb,0.59554e-02_rb,0.42511e-02_rb /)
+      kao(:, 2, 9, 8) = (/ &
+        & 0.27853e-02_rb,0.45486e-02_rb,0.52870e-02_rb,0.57491e-02_rb,0.60397e-02_rb, &
+        & 0.62076e-02_rb,0.62421e-02_rb,0.60358e-02_rb,0.42982e-02_rb /)
+      kao(:, 3, 9, 8) = (/ &
+        & 0.28572e-02_rb,0.46609e-02_rb,0.53998e-02_rb,0.58755e-02_rb,0.61719e-02_rb, &
+        & 0.63300e-02_rb,0.63536e-02_rb,0.61272e-02_rb,0.43479e-02_rb /)
+      kao(:, 4, 9, 8) = (/ &
+        & 0.29351e-02_rb,0.47766e-02_rb,0.55244e-02_rb,0.60103e-02_rb,0.63121e-02_rb, &
+        & 0.64656e-02_rb,0.64718e-02_rb,0.62231e-02_rb,0.44012e-02_rb /)
+      kao(:, 5, 9, 8) = (/ &
+        & 0.30174e-02_rb,0.49013e-02_rb,0.56608e-02_rb,0.61542e-02_rb,0.64584e-02_rb, &
+        & 0.66094e-02_rb,0.65960e-02_rb,0.63252e-02_rb,0.44655e-02_rb /)
+      kao(:, 1,10, 8) = (/ &
+        & 0.24055e-02_rb,0.39503e-02_rb,0.45833e-02_rb,0.49951e-02_rb,0.52507e-02_rb, &
+        & 0.53857e-02_rb,0.53791e-02_rb,0.51629e-02_rb,0.55379e-02_rb /)
+      kao(:, 2,10, 8) = (/ &
+        & 0.24728e-02_rb,0.40487e-02_rb,0.46867e-02_rb,0.51042e-02_rb,0.53576e-02_rb, &
+        & 0.54844e-02_rb,0.54704e-02_rb,0.52383e-02_rb,0.55398e-02_rb /)
+      kao(:, 3,10, 8) = (/ &
+        & 0.25454e-02_rb,0.41511e-02_rb,0.48010e-02_rb,0.52206e-02_rb,0.54751e-02_rb, &
+        & 0.55927e-02_rb,0.55711e-02_rb,0.53216e-02_rb,0.55501e-02_rb /)
+      kao(:, 4,10, 8) = (/ &
+        & 0.26224e-02_rb,0.42542e-02_rb,0.49201e-02_rb,0.53438e-02_rb,0.55977e-02_rb, &
+        & 0.57114e-02_rb,0.56753e-02_rb,0.54074e-02_rb,0.55558e-02_rb /)
+      kao(:, 5,10, 8) = (/ &
+        & 0.27039e-02_rb,0.43672e-02_rb,0.50470e-02_rb,0.54750e-02_rb,0.57276e-02_rb, &
+        & 0.58363e-02_rb,0.57849e-02_rb,0.54996e-02_rb,0.55710e-02_rb /)
+      kao(:, 1,11, 8) = (/ &
+        & 0.21256e-02_rb,0.35221e-02_rb,0.40853e-02_rb,0.44612e-02_rb,0.46874e-02_rb, &
+        & 0.47866e-02_rb,0.47389e-02_rb,0.44975e-02_rb,0.66135e-02_rb /)
+      kao(:, 2,11, 8) = (/ &
+        & 0.21937e-02_rb,0.36149e-02_rb,0.41854e-02_rb,0.45677e-02_rb,0.47907e-02_rb, &
+        & 0.48833e-02_rb,0.48291e-02_rb,0.45707e-02_rb,0.65729e-02_rb /)
+      kao(:, 3,11, 8) = (/ &
+        & 0.22650e-02_rb,0.37098e-02_rb,0.42933e-02_rb,0.46764e-02_rb,0.49020e-02_rb, &
+        & 0.49895e-02_rb,0.49234e-02_rb,0.46462e-02_rb,0.65598e-02_rb /)
+      kao(:, 4,11, 8) = (/ &
+        & 0.23425e-02_rb,0.38113e-02_rb,0.44107e-02_rb,0.47931e-02_rb,0.50165e-02_rb, &
+        & 0.51000e-02_rb,0.50211e-02_rb,0.47251e-02_rb,0.65419e-02_rb /)
+      kao(:, 5,11, 8) = (/ &
+        & 0.24251e-02_rb,0.39222e-02_rb,0.45344e-02_rb,0.49164e-02_rb,0.51382e-02_rb, &
+        & 0.52156e-02_rb,0.51233e-02_rb,0.48118e-02_rb,0.65404e-02_rb /)
+      kao(:, 1,12, 8) = (/ &
+        & 0.19014e-02_rb,0.31169e-02_rb,0.36336e-02_rb,0.39642e-02_rb,0.41602e-02_rb, &
+        & 0.42352e-02_rb,0.41726e-02_rb,0.39183e-02_rb,0.68121e-02_rb /)
+      kao(:, 2,12, 8) = (/ &
+        & 0.19605e-02_rb,0.32068e-02_rb,0.37314e-02_rb,0.40676e-02_rb,0.42627e-02_rb, &
+        & 0.43333e-02_rb,0.42591e-02_rb,0.39851e-02_rb,0.67229e-02_rb /)
+      kao(:, 3,12, 8) = (/ &
+        & 0.20227e-02_rb,0.33010e-02_rb,0.38333e-02_rb,0.41743e-02_rb,0.43708e-02_rb, &
+        & 0.44355e-02_rb,0.43461e-02_rb,0.40520e-02_rb,0.66419e-02_rb /)
+      kao(:, 4,12, 8) = (/ &
+        & 0.20945e-02_rb,0.34006e-02_rb,0.39411e-02_rb,0.42851e-02_rb,0.44804e-02_rb, &
+        & 0.45405e-02_rb,0.44353e-02_rb,0.41230e-02_rb,0.65948e-02_rb /)
+      kao(:, 5,12, 8) = (/ &
+        & 0.21695e-02_rb,0.35114e-02_rb,0.40581e-02_rb,0.44020e-02_rb,0.45960e-02_rb, &
+        & 0.46501e-02_rb,0.45319e-02_rb,0.42045e-02_rb,0.65716e-02_rb /)
+      kao(:, 1,13, 8) = (/ &
+        & 0.17348e-02_rb,0.27575e-02_rb,0.32033e-02_rb,0.34905e-02_rb,0.36669e-02_rb, &
+        & 0.37299e-02_rb,0.36615e-02_rb,0.34092e-02_rb,0.62173e-02_rb /)
+      kao(:, 2,13, 8) = (/ &
+        & 0.17868e-02_rb,0.28403e-02_rb,0.32978e-02_rb,0.35924e-02_rb,0.37684e-02_rb, &
+        & 0.38248e-02_rb,0.37430e-02_rb,0.34686e-02_rb,0.61248e-02_rb /)
+      kao(:, 3,13, 8) = (/ &
+        & 0.18438e-02_rb,0.29272e-02_rb,0.33982e-02_rb,0.36985e-02_rb,0.38711e-02_rb, &
+        & 0.39210e-02_rb,0.38240e-02_rb,0.35286e-02_rb,0.60637e-02_rb /)
+      kao(:, 4,13, 8) = (/ &
+        & 0.19066e-02_rb,0.30192e-02_rb,0.35016e-02_rb,0.38072e-02_rb,0.39764e-02_rb, &
+        & 0.40199e-02_rb,0.39089e-02_rb,0.35954e-02_rb,0.60138e-02_rb /)
+      kao(:, 5,13, 8) = (/ &
+        & 0.19732e-02_rb,0.31237e-02_rb,0.36129e-02_rb,0.39207e-02_rb,0.40892e-02_rb, &
+        & 0.41240e-02_rb,0.40022e-02_rb,0.36721e-02_rb,0.59944e-02_rb /)
+      kao(:, 1, 1, 9) = (/ &
+        & 0.41219e-01_rb,0.41795e-01_rb,0.46848e-01_rb,0.50877e-01_rb,0.53437e-01_rb, &
+        & 0.54488e-01_rb,0.53560e-01_rb,0.50235e-01_rb,0.51545e-01_rb /)
+      kao(:, 2, 1, 9) = (/ &
+        & 0.42156e-01_rb,0.42406e-01_rb,0.47180e-01_rb,0.51006e-01_rb,0.53354e-01_rb, &
+        & 0.54221e-01_rb,0.53185e-01_rb,0.49897e-01_rb,0.51289e-01_rb /)
+      kao(:, 3, 1, 9) = (/ &
+        & 0.43082e-01_rb,0.43034e-01_rb,0.47543e-01_rb,0.51133e-01_rb,0.53289e-01_rb, &
+        & 0.53978e-01_rb,0.52866e-01_rb,0.49591e-01_rb,0.51083e-01_rb /)
+      kao(:, 4, 1, 9) = (/ &
+        & 0.43908e-01_rb,0.43606e-01_rb,0.47876e-01_rb,0.51241e-01_rb,0.53225e-01_rb, &
+        & 0.53768e-01_rb,0.52555e-01_rb,0.49365e-01_rb,0.51010e-01_rb /)
+      kao(:, 5, 1, 9) = (/ &
+        & 0.44717e-01_rb,0.44169e-01_rb,0.48160e-01_rb,0.51395e-01_rb,0.53206e-01_rb, &
+        & 0.53607e-01_rb,0.52301e-01_rb,0.49268e-01_rb,0.51108e-01_rb /)
+      kao(:, 1, 2, 9) = (/ &
+        & 0.38280e-01_rb,0.40368e-01_rb,0.46271e-01_rb,0.50387e-01_rb,0.53287e-01_rb, &
+        & 0.54294e-01_rb,0.53147e-01_rb,0.49359e-01_rb,0.49444e-01_rb /)
+      kao(:, 2, 2, 9) = (/ &
+        & 0.39278e-01_rb,0.41016e-01_rb,0.46659e-01_rb,0.50565e-01_rb,0.53249e-01_rb, &
+        & 0.54064e-01_rb,0.52823e-01_rb,0.49016e-01_rb,0.49210e-01_rb /)
+      kao(:, 3, 2, 9) = (/ &
+        & 0.40252e-01_rb,0.41678e-01_rb,0.47048e-01_rb,0.50745e-01_rb,0.53223e-01_rb, &
+        & 0.53871e-01_rb,0.52519e-01_rb,0.48730e-01_rb,0.49081e-01_rb /)
+      kao(:, 4, 2, 9) = (/ &
+        & 0.41132e-01_rb,0.42274e-01_rb,0.47387e-01_rb,0.50925e-01_rb,0.53214e-01_rb, &
+        & 0.53693e-01_rb,0.52217e-01_rb,0.48559e-01_rb,0.49102e-01_rb /)
+      kao(:, 5, 2, 9) = (/ &
+        & 0.41937e-01_rb,0.42806e-01_rb,0.47675e-01_rb,0.51115e-01_rb,0.53221e-01_rb, &
+        & 0.53535e-01_rb,0.52007e-01_rb,0.48511e-01_rb,0.49285e-01_rb /)
+      kao(:, 1, 3, 9) = (/ &
+        & 0.35016e-01_rb,0.38740e-01_rb,0.45035e-01_rb,0.49481e-01_rb,0.52517e-01_rb, &
+        & 0.53496e-01_rb,0.52191e-01_rb,0.48044e-01_rb,0.46584e-01_rb /)
+      kao(:, 2, 3, 9) = (/ &
+        & 0.36031e-01_rb,0.39393e-01_rb,0.45463e-01_rb,0.49713e-01_rb,0.52514e-01_rb, &
+        & 0.53329e-01_rb,0.51912e-01_rb,0.47725e-01_rb,0.46413e-01_rb /)
+      kao(:, 3, 3, 9) = (/ &
+        & 0.36991e-01_rb,0.40024e-01_rb,0.45863e-01_rb,0.49943e-01_rb,0.52531e-01_rb, &
+        & 0.53167e-01_rb,0.51622e-01_rb,0.47472e-01_rb,0.46354e-01_rb /)
+      kao(:, 4, 3, 9) = (/ &
+        & 0.37902e-01_rb,0.40620e-01_rb,0.46253e-01_rb,0.50181e-01_rb,0.52583e-01_rb, &
+        & 0.53007e-01_rb,0.51384e-01_rb,0.47335e-01_rb,0.46441e-01_rb /)
+      kao(:, 5, 3, 9) = (/ &
+        & 0.38707e-01_rb,0.41126e-01_rb,0.46598e-01_rb,0.50384e-01_rb,0.52633e-01_rb, &
+        & 0.52879e-01_rb,0.51240e-01_rb,0.47311e-01_rb,0.46661e-01_rb /)
+      kao(:, 1, 4, 9) = (/ &
+        & 0.31672e-01_rb,0.36966e-01_rb,0.43365e-01_rb,0.48073e-01_rb,0.51081e-01_rb, &
+        & 0.52063e-01_rb,0.50596e-01_rb,0.46210e-01_rb,0.43228e-01_rb /)
+      kao(:, 2, 4, 9) = (/ &
+        & 0.32685e-01_rb,0.37616e-01_rb,0.43827e-01_rb,0.48349e-01_rb,0.51147e-01_rb, &
+        & 0.51967e-01_rb,0.50386e-01_rb,0.45960e-01_rb,0.43137e-01_rb /)
+      kao(:, 3, 4, 9) = (/ &
+        & 0.33628e-01_rb,0.38241e-01_rb,0.44270e-01_rb,0.48639e-01_rb,0.51209e-01_rb, &
+        & 0.51848e-01_rb,0.50172e-01_rb,0.45771e-01_rb,0.43147e-01_rb /)
+      kao(:, 4, 4, 9) = (/ &
+        & 0.34503e-01_rb,0.38804e-01_rb,0.44698e-01_rb,0.48896e-01_rb,0.51278e-01_rb, &
+        & 0.51724e-01_rb,0.50016e-01_rb,0.45686e-01_rb,0.43281e-01_rb /)
+      kao(:, 5, 4, 9) = (/ &
+        & 0.35339e-01_rb,0.39319e-01_rb,0.45124e-01_rb,0.49160e-01_rb,0.51368e-01_rb, &
+        & 0.51672e-01_rb,0.49945e-01_rb,0.45702e-01_rb,0.43520e-01_rb /)
+      kao(:, 1, 5, 9) = (/ &
+        & 0.28453e-01_rb,0.34915e-01_rb,0.41400e-01_rb,0.46104e-01_rb,0.49014e-01_rb, &
+        & 0.49952e-01_rb,0.48370e-01_rb,0.43932e-01_rb,0.39569e-01_rb /)
+      kao(:, 2, 5, 9) = (/ &
+        & 0.29434e-01_rb,0.35588e-01_rb,0.41893e-01_rb,0.46437e-01_rb,0.49144e-01_rb, &
+        & 0.49919e-01_rb,0.48254e-01_rb,0.43775e-01_rb,0.39548e-01_rb /)
+      kao(:, 3, 5, 9) = (/ &
+        & 0.30340e-01_rb,0.36236e-01_rb,0.42373e-01_rb,0.46769e-01_rb,0.49255e-01_rb, &
+        & 0.49873e-01_rb,0.48133e-01_rb,0.43667e-01_rb,0.39610e-01_rb /)
+      kao(:, 4, 5, 9) = (/ &
+        & 0.31178e-01_rb,0.36810e-01_rb,0.42835e-01_rb,0.47061e-01_rb,0.49370e-01_rb, &
+        & 0.49827e-01_rb,0.48071e-01_rb,0.43623e-01_rb,0.39779e-01_rb /)
+      kao(:, 5, 5, 9) = (/ &
+        & 0.31999e-01_rb,0.37346e-01_rb,0.43284e-01_rb,0.47361e-01_rb,0.49516e-01_rb, &
+        & 0.49857e-01_rb,0.48088e-01_rb,0.43666e-01_rb,0.40037e-01_rb /)
+      kao(:, 1, 6, 9) = (/ &
+        & 0.25421e-01_rb,0.32626e-01_rb,0.39116e-01_rb,0.43609e-01_rb,0.46371e-01_rb, &
+        & 0.47186e-01_rb,0.45634e-01_rb,0.41276e-01_rb,0.35722e-01_rb /)
+      kao(:, 2, 6, 9) = (/ &
+        & 0.26347e-01_rb,0.33315e-01_rb,0.39629e-01_rb,0.44004e-01_rb,0.46570e-01_rb, &
+        & 0.47251e-01_rb,0.45602e-01_rb,0.41217e-01_rb,0.35770e-01_rb /)
+      kao(:, 3, 6, 9) = (/ &
+        & 0.27211e-01_rb,0.33965e-01_rb,0.40142e-01_rb,0.44371e-01_rb,0.46737e-01_rb, &
+        & 0.47271e-01_rb,0.45579e-01_rb,0.41184e-01_rb,0.35883e-01_rb /)
+      kao(:, 4, 6, 9) = (/ &
+        & 0.28013e-01_rb,0.34546e-01_rb,0.40641e-01_rb,0.44704e-01_rb,0.46903e-01_rb, &
+        & 0.47305e-01_rb,0.45608e-01_rb,0.41201e-01_rb,0.36071e-01_rb /)
+      kao(:, 5, 6, 9) = (/ &
+        & 0.28777e-01_rb,0.35080e-01_rb,0.41083e-01_rb,0.45018e-01_rb,0.47083e-01_rb, &
+        & 0.47404e-01_rb,0.45685e-01_rb,0.41273e-01_rb,0.36328e-01_rb /)
+      kao(:, 1, 7, 9) = (/ &
+        & 0.22628e-01_rb,0.30290e-01_rb,0.36520e-01_rb,0.40736e-01_rb,0.43195e-01_rb, &
+        & 0.43894e-01_rb,0.42478e-01_rb,0.38357e-01_rb,0.31858e-01_rb /)
+      kao(:, 2, 7, 9) = (/ &
+        & 0.23496e-01_rb,0.30981e-01_rb,0.37071e-01_rb,0.41159e-01_rb,0.43459e-01_rb, &
+        & 0.44039e-01_rb,0.42534e-01_rb,0.38366e-01_rb,0.31954e-01_rb /)
+      kao(:, 3, 7, 9) = (/ &
+        & 0.24311e-01_rb,0.31616e-01_rb,0.37614e-01_rb,0.41552e-01_rb,0.43690e-01_rb, &
+        & 0.44135e-01_rb,0.42598e-01_rb,0.38398e-01_rb,0.32112e-01_rb /)
+      kao(:, 4, 7, 9) = (/ &
+        & 0.25081e-01_rb,0.32194e-01_rb,0.38124e-01_rb,0.41906e-01_rb,0.43917e-01_rb, &
+        & 0.44249e-01_rb,0.42700e-01_rb,0.38476e-01_rb,0.32312e-01_rb /)
+      kao(:, 5, 7, 9) = (/ &
+        & 0.25796e-01_rb,0.32737e-01_rb,0.38583e-01_rb,0.42251e-01_rb,0.44147e-01_rb, &
+        & 0.44425e-01_rb,0.42840e-01_rb,0.38587e-01_rb,0.32545e-01_rb /)
+      kao(:, 1, 8, 9) = (/ &
+        & 0.20122e-01_rb,0.27995e-01_rb,0.33719e-01_rb,0.37485e-01_rb,0.39621e-01_rb, &
+        & 0.40226e-01_rb,0.38971e-01_rb,0.35214e-01_rb,0.28110e-01_rb /)
+      kao(:, 2, 8, 9) = (/ &
+        & 0.20930e-01_rb,0.28671e-01_rb,0.34304e-01_rb,0.37966e-01_rb,0.39957e-01_rb, &
+        & 0.40447e-01_rb,0.39124e-01_rb,0.35304e-01_rb,0.28246e-01_rb /)
+      kao(:, 3, 8, 9) = (/ &
+        & 0.21692e-01_rb,0.29291e-01_rb,0.34870e-01_rb,0.38392e-01_rb,0.40254e-01_rb, &
+        & 0.40624e-01_rb,0.39266e-01_rb,0.35403e-01_rb,0.28424e-01_rb /)
+      kao(:, 4, 8, 9) = (/ &
+        & 0.22396e-01_rb,0.29880e-01_rb,0.35388e-01_rb,0.38779e-01_rb,0.40528e-01_rb, &
+        & 0.40815e-01_rb,0.39436e-01_rb,0.35538e-01_rb,0.28597e-01_rb /)
+      kao(:, 5, 8, 9) = (/ &
+        & 0.23064e-01_rb,0.30402e-01_rb,0.35848e-01_rb,0.39151e-01_rb,0.40824e-01_rb, &
+        & 0.41057e-01_rb,0.39639e-01_rb,0.35669e-01_rb,0.28823e-01_rb /)
+      kao(:, 1, 9, 9) = (/ &
+        & 0.17909e-01_rb,0.25709e-01_rb,0.30840e-01_rb,0.34036e-01_rb,0.35851e-01_rb, &
+        & 0.36360e-01_rb,0.35282e-01_rb,0.31947e-01_rb,0.24003e-01_rb /)
+      kao(:, 2, 9, 9) = (/ &
+        & 0.18652e-01_rb,0.26369e-01_rb,0.31431e-01_rb,0.34542e-01_rb,0.36244e-01_rb, &
+        & 0.36648e-01_rb,0.35513e-01_rb,0.32109e-01_rb,0.24164e-01_rb /)
+      kao(:, 3, 9, 9) = (/ &
+        & 0.19344e-01_rb,0.26986e-01_rb,0.31997e-01_rb,0.35005e-01_rb,0.36599e-01_rb, &
+        & 0.36904e-01_rb,0.35718e-01_rb,0.32277e-01_rb,0.24318e-01_rb /)
+      kao(:, 4, 9, 9) = (/ &
+        & 0.19991e-01_rb,0.27565e-01_rb,0.32506e-01_rb,0.35425e-01_rb,0.36934e-01_rb, &
+        & 0.37163e-01_rb,0.35949e-01_rb,0.32440e-01_rb,0.24470e-01_rb /)
+      kao(:, 5, 9, 9) = (/ &
+        & 0.20615e-01_rb,0.28069e-01_rb,0.32961e-01_rb,0.35817e-01_rb,0.37281e-01_rb, &
+        & 0.37462e-01_rb,0.36191e-01_rb,0.32591e-01_rb,0.24688e-01_rb /)
+      kao(:, 1,10, 9) = (/ &
+        & 0.16038e-01_rb,0.23520e-01_rb,0.27944e-01_rb,0.30612e-01_rb,0.32108e-01_rb, &
+        & 0.32531e-01_rb,0.31594e-01_rb,0.28710e-01_rb,0.19040e-01_rb /)
+      kao(:, 2,10, 9) = (/ &
+        & 0.16702e-01_rb,0.24155e-01_rb,0.28537e-01_rb,0.31140e-01_rb,0.32544e-01_rb, &
+        & 0.32858e-01_rb,0.31863e-01_rb,0.28938e-01_rb,0.19154e-01_rb /)
+      kao(:, 3,10, 9) = (/ &
+        & 0.17329e-01_rb,0.24747e-01_rb,0.29094e-01_rb,0.31618e-01_rb,0.32949e-01_rb, &
+        & 0.33160e-01_rb,0.32119e-01_rb,0.29151e-01_rb,0.19214e-01_rb /)
+      kao(:, 4,10, 9) = (/ &
+        & 0.17922e-01_rb,0.25302e-01_rb,0.29595e-01_rb,0.32058e-01_rb,0.33330e-01_rb, &
+        & 0.33472e-01_rb,0.32385e-01_rb,0.29320e-01_rb,0.19269e-01_rb /)
+      kao(:, 5,10, 9) = (/ &
+        & 0.18489e-01_rb,0.25799e-01_rb,0.30045e-01_rb,0.32466e-01_rb,0.33700e-01_rb, &
+        & 0.33812e-01_rb,0.32629e-01_rb,0.29481e-01_rb,0.19405e-01_rb /)
+      kao(:, 1,11, 9) = (/ &
+        & 0.14687e-01_rb,0.21702e-01_rb,0.25384e-01_rb,0.27570e-01_rb,0.28760e-01_rb, &
+        & 0.29017e-01_rb,0.28178e-01_rb,0.25716e-01_rb,0.20195e-01_rb /)
+      kao(:, 2,11, 9) = (/ &
+        & 0.15274e-01_rb,0.22296e-01_rb,0.25944e-01_rb,0.28087e-01_rb,0.29202e-01_rb, &
+        & 0.29352e-01_rb,0.28471e-01_rb,0.25960e-01_rb,0.20265e-01_rb /)
+      kao(:, 3,11, 9) = (/ &
+        & 0.15835e-01_rb,0.22836e-01_rb,0.26465e-01_rb,0.28550e-01_rb,0.29611e-01_rb, &
+        & 0.29694e-01_rb,0.28754e-01_rb,0.26152e-01_rb,0.20296e-01_rb /)
+      kao(:, 4,11, 9) = (/ &
+        & 0.16357e-01_rb,0.23338e-01_rb,0.26927e-01_rb,0.28982e-01_rb,0.29998e-01_rb, &
+        & 0.30045e-01_rb,0.29008e-01_rb,0.26312e-01_rb,0.20131e-01_rb /)
+      kao(:, 5,11, 9) = (/ &
+        & 0.16879e-01_rb,0.23791e-01_rb,0.27359e-01_rb,0.29394e-01_rb,0.30387e-01_rb, &
+        & 0.30372e-01_rb,0.29268e-01_rb,0.26507e-01_rb,0.20180e-01_rb /)
+      kao(:, 1,12, 9) = (/ &
+        & 0.13435e-01_rb,0.19917e-01_rb,0.22947e-01_rb,0.24741e-01_rb,0.25656e-01_rb, &
+        & 0.25762e-01_rb,0.25010e-01_rb,0.22879e-01_rb,0.21935e-01_rb /)
+      kao(:, 2,12, 9) = (/ &
+        & 0.13973e-01_rb,0.20460e-01_rb,0.23475e-01_rb,0.25221e-01_rb,0.26084e-01_rb, &
+        & 0.26126e-01_rb,0.25297e-01_rb,0.23091e-01_rb,0.22096e-01_rb /)
+      kao(:, 3,12, 9) = (/ &
+        & 0.14481e-01_rb,0.20956e-01_rb,0.23951e-01_rb,0.25665e-01_rb,0.26486e-01_rb, &
+        & 0.26478e-01_rb,0.25558e-01_rb,0.23263e-01_rb,0.22257e-01_rb /)
+      kao(:, 4,12, 9) = (/ &
+        & 0.14966e-01_rb,0.21408e-01_rb,0.24388e-01_rb,0.26079e-01_rb,0.26872e-01_rb, &
+        & 0.26802e-01_rb,0.25814e-01_rb,0.23444e-01_rb,0.22244e-01_rb /)
+      kao(:, 5,12, 9) = (/ &
+        & 0.15448e-01_rb,0.21834e-01_rb,0.24813e-01_rb,0.26492e-01_rb,0.27230e-01_rb, &
+        & 0.27128e-01_rb,0.26103e-01_rb,0.23676e-01_rb,0.22318e-01_rb /)
+      kao(:, 1,13, 9) = (/ &
+        & 0.12253e-01_rb,0.18169e-01_rb,0.20712e-01_rb,0.22143e-01_rb,0.22829e-01_rb, &
+        & 0.22840e-01_rb,0.22092e-01_rb,0.20210e-01_rb,0.22350e-01_rb /)
+      kao(:, 2,13, 9) = (/ &
+        & 0.12752e-01_rb,0.18675e-01_rb,0.21188e-01_rb,0.22590e-01_rb,0.23242e-01_rb, &
+        & 0.23184e-01_rb,0.22356e-01_rb,0.20395e-01_rb,0.22569e-01_rb /)
+      kao(:, 3,13, 9) = (/ &
+        & 0.13220e-01_rb,0.19134e-01_rb,0.21627e-01_rb,0.23007e-01_rb,0.23621e-01_rb, &
+        & 0.23502e-01_rb,0.22612e-01_rb,0.20571e-01_rb,0.22750e-01_rb /)
+      kao(:, 4,13, 9) = (/ &
+        & 0.13675e-01_rb,0.19566e-01_rb,0.22044e-01_rb,0.23405e-01_rb,0.23969e-01_rb, &
+        & 0.23813e-01_rb,0.22875e-01_rb,0.20780e-01_rb,0.22726e-01_rb /)
+      kao(:, 5,13, 9) = (/ &
+        & 0.14122e-01_rb,0.19976e-01_rb,0.22454e-01_rb,0.23786e-01_rb,0.24318e-01_rb, &
+        & 0.24140e-01_rb,0.23183e-01_rb,0.21041e-01_rb,0.22784e-01_rb /)
+      kao(:, 1, 1,10) = (/ &
+        & 0.14776e+00_rb,0.13250e+00_rb,0.11877e+00_rb,0.11907e+00_rb,0.11538e+00_rb, &
+        & 0.11234e+00_rb,0.10926e+00_rb,0.11039e+00_rb,0.12102e+00_rb /)
+      kao(:, 2, 1,10) = (/ &
+        & 0.14758e+00_rb,0.13180e+00_rb,0.11760e+00_rb,0.11720e+00_rb,0.11379e+00_rb, &
+        & 0.11206e+00_rb,0.10856e+00_rb,0.11029e+00_rb,0.12093e+00_rb /)
+      kao(:, 3, 1,10) = (/ &
+        & 0.14691e+00_rb,0.13078e+00_rb,0.11629e+00_rb,0.11563e+00_rb,0.11248e+00_rb, &
+        & 0.11149e+00_rb,0.10785e+00_rb,0.11040e+00_rb,0.12104e+00_rb /)
+      kao(:, 4, 1,10) = (/ &
+        & 0.14609e+00_rb,0.12985e+00_rb,0.11503e+00_rb,0.11426e+00_rb,0.11150e+00_rb, &
+        & 0.11061e+00_rb,0.10739e+00_rb,0.11031e+00_rb,0.12092e+00_rb /)
+      kao(:, 5, 1,10) = (/ &
+        & 0.14529e+00_rb,0.12911e+00_rb,0.11448e+00_rb,0.11310e+00_rb,0.11058e+00_rb, &
+        & 0.10959e+00_rb,0.10721e+00_rb,0.11007e+00_rb,0.12050e+00_rb /)
+      kao(:, 1, 2,10) = (/ &
+        & 0.14616e+00_rb,0.13131e+00_rb,0.12350e+00_rb,0.12510e+00_rb,0.11934e+00_rb, &
+        & 0.11762e+00_rb,0.11417e+00_rb,0.11460e+00_rb,0.12626e+00_rb /)
+      kao(:, 2, 2,10) = (/ &
+        & 0.14607e+00_rb,0.13063e+00_rb,0.12202e+00_rb,0.12312e+00_rb,0.11789e+00_rb, &
+        & 0.11742e+00_rb,0.11363e+00_rb,0.11470e+00_rb,0.12636e+00_rb /)
+      kao(:, 3, 2,10) = (/ &
+        & 0.14577e+00_rb,0.12991e+00_rb,0.12074e+00_rb,0.12132e+00_rb,0.11671e+00_rb, &
+        & 0.11676e+00_rb,0.11334e+00_rb,0.11448e+00_rb,0.12602e+00_rb /)
+      kao(:, 4, 2,10) = (/ &
+        & 0.14549e+00_rb,0.12948e+00_rb,0.11982e+00_rb,0.11971e+00_rb,0.11561e+00_rb, &
+        & 0.11583e+00_rb,0.11311e+00_rb,0.11380e+00_rb,0.12515e+00_rb /)
+      kao(:, 5, 2,10) = (/ &
+        & 0.14518e+00_rb,0.12921e+00_rb,0.11930e+00_rb,0.11856e+00_rb,0.11453e+00_rb, &
+        & 0.11499e+00_rb,0.11278e+00_rb,0.11303e+00_rb,0.12425e+00_rb /)
+      kao(:, 1, 3,10) = (/ &
+        & 0.14318e+00_rb,0.12893e+00_rb,0.12918e+00_rb,0.12942e+00_rb,0.12491e+00_rb, &
+        & 0.12238e+00_rb,0.11842e+00_rb,0.11706e+00_rb,0.12892e+00_rb /)
+      kao(:, 2, 3,10) = (/ &
+        & 0.14362e+00_rb,0.12877e+00_rb,0.12794e+00_rb,0.12738e+00_rb,0.12367e+00_rb, &
+        & 0.12214e+00_rb,0.11818e+00_rb,0.11730e+00_rb,0.12892e+00_rb /)
+      kao(:, 3, 3,10) = (/ &
+        & 0.14392e+00_rb,0.12859e+00_rb,0.12673e+00_rb,0.12555e+00_rb,0.12238e+00_rb, &
+        & 0.12154e+00_rb,0.11804e+00_rb,0.11693e+00_rb,0.12825e+00_rb /)
+      kao(:, 4, 3,10) = (/ &
+        & 0.14418e+00_rb,0.12858e+00_rb,0.12588e+00_rb,0.12406e+00_rb,0.12111e+00_rb, &
+        & 0.12100e+00_rb,0.11768e+00_rb,0.11605e+00_rb,0.12723e+00_rb /)
+      kao(:, 5, 3,10) = (/ &
+        & 0.14433e+00_rb,0.12868e+00_rb,0.12520e+00_rb,0.12307e+00_rb,0.11981e+00_rb, &
+        & 0.12050e+00_rb,0.11702e+00_rb,0.11519e+00_rb,0.12642e+00_rb /)
+      kao(:, 1, 4,10) = (/ &
+        & 0.13900e+00_rb,0.12627e+00_rb,0.13262e+00_rb,0.13246e+00_rb,0.13018e+00_rb, &
+        & 0.12656e+00_rb,0.12207e+00_rb,0.11856e+00_rb,0.12927e+00_rb /)
+      kao(:, 2, 4,10) = (/ &
+        & 0.13981e+00_rb,0.12631e+00_rb,0.13168e+00_rb,0.13063e+00_rb,0.12928e+00_rb, &
+        & 0.12634e+00_rb,0.12180e+00_rb,0.11842e+00_rb,0.12888e+00_rb /)
+      kao(:, 3, 4,10) = (/ &
+        & 0.14055e+00_rb,0.12635e+00_rb,0.13064e+00_rb,0.12886e+00_rb,0.12826e+00_rb, &
+        & 0.12591e+00_rb,0.12147e+00_rb,0.11781e+00_rb,0.12798e+00_rb /)
+      kao(:, 4, 4,10) = (/ &
+        & 0.14115e+00_rb,0.12659e+00_rb,0.12979e+00_rb,0.12765e+00_rb,0.12712e+00_rb, &
+        & 0.12539e+00_rb,0.12094e+00_rb,0.11686e+00_rb,0.12709e+00_rb /)
+      kao(:, 5, 4,10) = (/ &
+        & 0.14205e+00_rb,0.12716e+00_rb,0.12897e+00_rb,0.12678e+00_rb,0.12607e+00_rb, &
+        & 0.12463e+00_rb,0.12022e+00_rb,0.11611e+00_rb,0.12648e+00_rb /)
+      kao(:, 1, 5,10) = (/ &
+        & 0.13267e+00_rb,0.12451e+00_rb,0.13264e+00_rb,0.13467e+00_rb,0.13410e+00_rb, &
+        & 0.12976e+00_rb,0.12532e+00_rb,0.11842e+00_rb,0.12663e+00_rb /)
+      kao(:, 2, 5,10) = (/ &
+        & 0.13391e+00_rb,0.12448e+00_rb,0.13222e+00_rb,0.13349e+00_rb,0.13365e+00_rb, &
+        & 0.12967e+00_rb,0.12478e+00_rb,0.11793e+00_rb,0.12610e+00_rb /)
+      kao(:, 3, 5,10) = (/ &
+        & 0.13513e+00_rb,0.12441e+00_rb,0.13150e+00_rb,0.13226e+00_rb,0.13285e+00_rb, &
+        & 0.12935e+00_rb,0.12414e+00_rb,0.11714e+00_rb,0.12535e+00_rb /)
+      kao(:, 4, 5,10) = (/ &
+        & 0.13635e+00_rb,0.12468e+00_rb,0.13071e+00_rb,0.13132e+00_rb,0.13192e+00_rb, &
+        & 0.12883e+00_rb,0.12325e+00_rb,0.11628e+00_rb,0.12465e+00_rb /)
+      kao(:, 5, 5,10) = (/ &
+        & 0.13765e+00_rb,0.12523e+00_rb,0.12989e+00_rb,0.13067e+00_rb,0.13104e+00_rb, &
+        & 0.12778e+00_rb,0.12230e+00_rb,0.11574e+00_rb,0.12447e+00_rb /)
+      kao(:, 1, 6,10) = (/ &
+        & 0.12480e+00_rb,0.12304e+00_rb,0.13086e+00_rb,0.13535e+00_rb,0.13580e+00_rb, &
+        & 0.13244e+00_rb,0.12684e+00_rb,0.11687e+00_rb,0.12150e+00_rb /)
+      kao(:, 2, 6,10) = (/ &
+        & 0.12631e+00_rb,0.12320e+00_rb,0.13089e+00_rb,0.13488e+00_rb,0.13591e+00_rb, &
+        & 0.13240e+00_rb,0.12644e+00_rb,0.11610e+00_rb,0.12096e+00_rb /)
+      kao(:, 3, 6,10) = (/ &
+        & 0.12783e+00_rb,0.12334e+00_rb,0.13031e+00_rb,0.13415e+00_rb,0.13555e+00_rb, &
+        & 0.13212e+00_rb,0.12571e+00_rb,0.11517e+00_rb,0.12033e+00_rb /)
+      kao(:, 4, 6,10) = (/ &
+        & 0.12946e+00_rb,0.12375e+00_rb,0.12962e+00_rb,0.13360e+00_rb,0.13480e+00_rb, &
+        & 0.13147e+00_rb,0.12458e+00_rb,0.11440e+00_rb,0.12012e+00_rb /)
+      kao(:, 5, 6,10) = (/ &
+        & 0.13098e+00_rb,0.12424e+00_rb,0.12926e+00_rb,0.13328e+00_rb,0.13390e+00_rb, &
+        & 0.13035e+00_rb,0.12352e+00_rb,0.11410e+00_rb,0.12034e+00_rb /)
+      kao(:, 1, 7,10) = (/ &
+        & 0.11587e+00_rb,0.11977e+00_rb,0.12827e+00_rb,0.13413e+00_rb,0.13637e+00_rb, &
+        & 0.13338e+00_rb,0.12607e+00_rb,0.11369e+00_rb,0.11422e+00_rb /)
+      kao(:, 2, 7,10) = (/ &
+        & 0.11755e+00_rb,0.12008e+00_rb,0.12851e+00_rb,0.13433e+00_rb,0.13653e+00_rb, &
+        & 0.13350e+00_rb,0.12579e+00_rb,0.11303e+00_rb,0.11384e+00_rb /)
+      kao(:, 3, 7,10) = (/ &
+        & 0.11925e+00_rb,0.12045e+00_rb,0.12827e+00_rb,0.13401e+00_rb,0.13627e+00_rb, &
+        & 0.13335e+00_rb,0.12531e+00_rb,0.11227e+00_rb,0.11342e+00_rb /)
+      kao(:, 4, 7,10) = (/ &
+        & 0.12111e+00_rb,0.12107e+00_rb,0.12798e+00_rb,0.13385e+00_rb,0.13564e+00_rb, &
+        & 0.13268e+00_rb,0.12424e+00_rb,0.11167e+00_rb,0.11355e+00_rb /)
+      kao(:, 5, 7,10) = (/ &
+        & 0.12285e+00_rb,0.12168e+00_rb,0.12798e+00_rb,0.13376e+00_rb,0.13482e+00_rb, &
+        & 0.13151e+00_rb,0.12334e+00_rb,0.11149e+00_rb,0.11415e+00_rb /)
+      kao(:, 1, 8,10) = (/ &
+        & 0.10591e+00_rb,0.11393e+00_rb,0.12456e+00_rb,0.13177e+00_rb,0.13532e+00_rb, &
+        & 0.13189e+00_rb,0.12388e+00_rb,0.10965e+00_rb,0.10563e+00_rb /)
+      kao(:, 2, 8,10) = (/ &
+        & 0.10784e+00_rb,0.11446e+00_rb,0.12497e+00_rb,0.13191e+00_rb,0.13527e+00_rb, &
+        & 0.13206e+00_rb,0.12372e+00_rb,0.10901e+00_rb,0.10541e+00_rb /)
+      kao(:, 3, 8,10) = (/ &
+        & 0.10982e+00_rb,0.11499e+00_rb,0.12496e+00_rb,0.13190e+00_rb,0.13491e+00_rb, &
+        & 0.13198e+00_rb,0.12329e+00_rb,0.10836e+00_rb,0.10528e+00_rb /)
+      kao(:, 4, 8,10) = (/ &
+        & 0.11183e+00_rb,0.11569e+00_rb,0.12499e+00_rb,0.13184e+00_rb,0.13435e+00_rb, &
+        & 0.13149e+00_rb,0.12252e+00_rb,0.10787e+00_rb,0.10590e+00_rb /)
+      kao(:, 5, 8,10) = (/ &
+        & 0.11351e+00_rb,0.11638e+00_rb,0.12535e+00_rb,0.13176e+00_rb,0.13360e+00_rb, &
+        & 0.13054e+00_rb,0.12191e+00_rb,0.10801e+00_rb,0.10661e+00_rb /)
+      kao(:, 1, 9,10) = (/ &
+        & 0.95227e-01_rb,0.10714e+00_rb,0.11944e+00_rb,0.12826e+00_rb,0.13131e+00_rb, &
+        & 0.12801e+00_rb,0.11973e+00_rb,0.10506e+00_rb,0.96127e-01_rb /)
+      kao(:, 2, 9,10) = (/ &
+        & 0.97380e-01_rb,0.10792e+00_rb,0.12010e+00_rb,0.12848e+00_rb,0.13131e+00_rb, &
+        & 0.12823e+00_rb,0.11988e+00_rb,0.10446e+00_rb,0.96013e-01_rb /)
+      kao(:, 3, 9,10) = (/ &
+        & 0.99589e-01_rb,0.10861e+00_rb,0.12043e+00_rb,0.12826e+00_rb,0.13099e+00_rb, &
+        & 0.12821e+00_rb,0.11964e+00_rb,0.10385e+00_rb,0.96337e-01_rb /)
+      kao(:, 4, 9,10) = (/ &
+        & 0.10172e+00_rb,0.10937e+00_rb,0.12073e+00_rb,0.12822e+00_rb,0.13048e+00_rb, &
+        & 0.12786e+00_rb,0.11915e+00_rb,0.10369e+00_rb,0.97324e-01_rb /)
+      kao(:, 5, 9,10) = (/ &
+        & 0.10340e+00_rb,0.11015e+00_rb,0.12136e+00_rb,0.12832e+00_rb,0.12998e+00_rb, &
+        & 0.12724e+00_rb,0.11892e+00_rb,0.10410e+00_rb,0.97908e-01_rb /)
+      kao(:, 1,10,10) = (/ &
+        & 0.84549e-01_rb,0.10005e+00_rb,0.11370e+00_rb,0.12280e+00_rb,0.12503e+00_rb, &
+        & 0.12157e+00_rb,0.11395e+00_rb,0.99558e-01_rb,0.78463e-01_rb /)
+      kao(:, 2,10,10) = (/ &
+        & 0.86895e-01_rb,0.10114e+00_rb,0.11438e+00_rb,0.12270e+00_rb,0.12494e+00_rb, &
+        & 0.12211e+00_rb,0.11447e+00_rb,0.98932e-01_rb,0.78293e-01_rb /)
+      kao(:, 3,10,10) = (/ &
+        & 0.89280e-01_rb,0.10200e+00_rb,0.11501e+00_rb,0.12255e+00_rb,0.12466e+00_rb, &
+        & 0.12232e+00_rb,0.11449e+00_rb,0.98490e-01_rb,0.78963e-01_rb /)
+      kao(:, 4,10,10) = (/ &
+        & 0.91373e-01_rb,0.10297e+00_rb,0.11555e+00_rb,0.12264e+00_rb,0.12433e+00_rb, &
+        & 0.12211e+00_rb,0.11429e+00_rb,0.98808e-01_rb,0.79894e-01_rb /)
+      kao(:, 5,10,10) = (/ &
+        & 0.93116e-01_rb,0.10381e+00_rb,0.11616e+00_rb,0.12299e+00_rb,0.12420e+00_rb, &
+        & 0.12176e+00_rb,0.11463e+00_rb,0.99400e-01_rb,0.79228e-01_rb /)
+      kao(:, 1,11,10) = (/ &
+        & 0.75544e-01_rb,0.93054e-01_rb,0.10724e+00_rb,0.11489e+00_rb,0.11666e+00_rb, &
+        & 0.11411e+00_rb,0.10739e+00_rb,0.92708e-01_rb,0.54552e-01_rb /)
+      kao(:, 2,11,10) = (/ &
+        & 0.77908e-01_rb,0.94287e-01_rb,0.10808e+00_rb,0.11471e+00_rb,0.11661e+00_rb, &
+        & 0.11478e+00_rb,0.10772e+00_rb,0.92504e-01_rb,0.54848e-01_rb /)
+      kao(:, 3,11,10) = (/ &
+        & 0.80077e-01_rb,0.95473e-01_rb,0.10868e+00_rb,0.11491e+00_rb,0.11655e+00_rb, &
+        & 0.11482e+00_rb,0.10782e+00_rb,0.93001e-01_rb,0.55769e-01_rb /)
+      kao(:, 4,11,10) = (/ &
+        & 0.81960e-01_rb,0.96566e-01_rb,0.10943e+00_rb,0.11546e+00_rb,0.11672e+00_rb, &
+        & 0.11473e+00_rb,0.10831e+00_rb,0.93879e-01_rb,0.57926e-01_rb /)
+      kao(:, 5,11,10) = (/ &
+        & 0.83450e-01_rb,0.97453e-01_rb,0.11008e+00_rb,0.11599e+00_rb,0.11716e+00_rb, &
+        & 0.11515e+00_rb,0.10911e+00_rb,0.94288e-01_rb,0.57746e-01_rb /)
+      kao(:, 1,12,10) = (/ &
+        & 0.67513e-01_rb,0.86189e-01_rb,0.99369e-01_rb,0.10520e+00_rb,0.10724e+00_rb, &
+        & 0.10586e+00_rb,0.99242e-01_rb,0.85556e-01_rb,0.53156e-01_rb /)
+      kao(:, 2,12,10) = (/ &
+        & 0.69613e-01_rb,0.87484e-01_rb,0.10007e+00_rb,0.10560e+00_rb,0.10749e+00_rb, &
+        & 0.10614e+00_rb,0.99761e-01_rb,0.86270e-01_rb,0.51781e-01_rb /)
+      kao(:, 3,12,10) = (/ &
+        & 0.71469e-01_rb,0.88722e-01_rb,0.10094e+00_rb,0.10629e+00_rb,0.10784e+00_rb, &
+        & 0.10630e+00_rb,0.10046e+00_rb,0.87349e-01_rb,0.51450e-01_rb /)
+      kao(:, 4,12,10) = (/ &
+        & 0.73024e-01_rb,0.89773e-01_rb,0.10183e+00_rb,0.10713e+00_rb,0.10860e+00_rb, &
+        & 0.10686e+00_rb,0.10138e+00_rb,0.88130e-01_rb,0.52601e-01_rb /)
+      kao(:, 5,12,10) = (/ &
+        & 0.74303e-01_rb,0.90696e-01_rb,0.10259e+00_rb,0.10797e+00_rb,0.10971e+00_rb, &
+        & 0.10792e+00_rb,0.10184e+00_rb,0.88445e-01_rb,0.51152e-01_rb /)
+      kao(:, 1,13,10) = (/ &
+        & 0.60529e-01_rb,0.79607e-01_rb,0.90318e-01_rb,0.95428e-01_rb,0.97408e-01_rb, &
+        & 0.96227e-01_rb,0.90699e-01_rb,0.78779e-01_rb,0.52832e-01_rb /)
+      kao(:, 2,13,10) = (/ &
+        & 0.62276e-01_rb,0.80870e-01_rb,0.91247e-01_rb,0.96259e-01_rb,0.97934e-01_rb, &
+        & 0.96714e-01_rb,0.91680e-01_rb,0.79941e-01_rb,0.52303e-01_rb /)
+      kao(:, 3,13,10) = (/ &
+        & 0.63790e-01_rb,0.81933e-01_rb,0.92274e-01_rb,0.97270e-01_rb,0.98880e-01_rb, &
+        & 0.97553e-01_rb,0.92636e-01_rb,0.80918e-01_rb,0.51576e-01_rb /)
+      kao(:, 4,13,10) = (/ &
+        & 0.65028e-01_rb,0.82921e-01_rb,0.93287e-01_rb,0.98387e-01_rb,0.10023e+00_rb, &
+        & 0.98785e-01_rb,0.93367e-01_rb,0.81491e-01_rb,0.53387e-01_rb /)
+      kao(:, 5,13,10) = (/ &
+        & 0.66150e-01_rb,0.83739e-01_rb,0.94354e-01_rb,0.99696e-01_rb,0.10169e+00_rb, &
+        & 0.99901e-01_rb,0.93863e-01_rb,0.81907e-01_rb,0.52837e-01_rb /)
+      kao(:, 1, 1,11) = (/ &
+        & 0.20407e+00_rb,0.18071e+00_rb,0.16029e+00_rb,0.15138e+00_rb,0.14997e+00_rb, &
+        & 0.13984e+00_rb,0.13275e+00_rb,0.14129e+00_rb,0.15399e+00_rb /)
+      kao(:, 2, 1,11) = (/ &
+        & 0.20135e+00_rb,0.17935e+00_rb,0.15932e+00_rb,0.15017e+00_rb,0.14962e+00_rb, &
+        & 0.13862e+00_rb,0.13266e+00_rb,0.14117e+00_rb,0.15393e+00_rb /)
+      kao(:, 3, 1,11) = (/ &
+        & 0.19936e+00_rb,0.17801e+00_rb,0.15787e+00_rb,0.14825e+00_rb,0.14805e+00_rb, &
+        & 0.13791e+00_rb,0.13257e+00_rb,0.14065e+00_rb,0.15357e+00_rb /)
+      kao(:, 4, 1,11) = (/ &
+        & 0.19744e+00_rb,0.17636e+00_rb,0.15587e+00_rb,0.14600e+00_rb,0.14568e+00_rb, &
+        & 0.13759e+00_rb,0.13216e+00_rb,0.14003e+00_rb,0.15311e+00_rb /)
+      kao(:, 5, 1,11) = (/ &
+        & 0.19560e+00_rb,0.17445e+00_rb,0.15370e+00_rb,0.14366e+00_rb,0.14353e+00_rb, &
+        & 0.13719e+00_rb,0.13142e+00_rb,0.13943e+00_rb,0.15271e+00_rb /)
+      kao(:, 1, 2,11) = (/ &
+        & 0.21063e+00_rb,0.18653e+00_rb,0.16583e+00_rb,0.16261e+00_rb,0.15745e+00_rb, &
+        & 0.14703e+00_rb,0.14143e+00_rb,0.14831e+00_rb,0.16307e+00_rb /)
+      kao(:, 2, 2,11) = (/ &
+        & 0.20807e+00_rb,0.18515e+00_rb,0.16450e+00_rb,0.16174e+00_rb,0.15680e+00_rb, &
+        & 0.14604e+00_rb,0.14115e+00_rb,0.14798e+00_rb,0.16304e+00_rb /)
+      kao(:, 3, 2,11) = (/ &
+        & 0.20581e+00_rb,0.18338e+00_rb,0.16244e+00_rb,0.15978e+00_rb,0.15520e+00_rb, &
+        & 0.14566e+00_rb,0.14067e+00_rb,0.14768e+00_rb,0.16312e+00_rb /)
+      kao(:, 4, 2,11) = (/ &
+        & 0.20347e+00_rb,0.18119e+00_rb,0.16010e+00_rb,0.15745e+00_rb,0.15333e+00_rb, &
+        & 0.14529e+00_rb,0.14007e+00_rb,0.14753e+00_rb,0.16343e+00_rb /)
+      kao(:, 5, 2,11) = (/ &
+        & 0.20115e+00_rb,0.17885e+00_rb,0.15773e+00_rb,0.15483e+00_rb,0.15150e+00_rb, &
+        & 0.14453e+00_rb,0.13948e+00_rb,0.14731e+00_rb,0.16359e+00_rb /)
+      kao(:, 1, 3,11) = (/ &
+        & 0.21616e+00_rb,0.19157e+00_rb,0.17353e+00_rb,0.17142e+00_rb,0.16301e+00_rb, &
+        & 0.15566e+00_rb,0.14998e+00_rb,0.15514e+00_rb,0.17145e+00_rb /)
+      kao(:, 2, 3,11) = (/ &
+        & 0.21408e+00_rb,0.19026e+00_rb,0.17182e+00_rb,0.17122e+00_rb,0.16252e+00_rb, &
+        & 0.15476e+00_rb,0.14939e+00_rb,0.15448e+00_rb,0.17139e+00_rb /)
+      kao(:, 3, 3,11) = (/ &
+        & 0.21163e+00_rb,0.18824e+00_rb,0.16950e+00_rb,0.16996e+00_rb,0.16151e+00_rb, &
+        & 0.15419e+00_rb,0.14882e+00_rb,0.15406e+00_rb,0.17163e+00_rb /)
+      kao(:, 4, 3,11) = (/ &
+        & 0.20914e+00_rb,0.18593e+00_rb,0.16692e+00_rb,0.16757e+00_rb,0.16029e+00_rb, &
+        & 0.15344e+00_rb,0.14837e+00_rb,0.15392e+00_rb,0.17198e+00_rb /)
+      kao(:, 5, 3,11) = (/ &
+        & 0.20701e+00_rb,0.18381e+00_rb,0.16453e+00_rb,0.16472e+00_rb,0.15897e+00_rb, &
+        & 0.15236e+00_rb,0.14801e+00_rb,0.15351e+00_rb,0.17179e+00_rb /)
+      kao(:, 1, 4,11) = (/ &
+        & 0.21862e+00_rb,0.19379e+00_rb,0.18221e+00_rb,0.17807e+00_rb,0.16954e+00_rb, &
+        & 0.16407e+00_rb,0.15829e+00_rb,0.16056e+00_rb,0.17755e+00_rb /)
+      kao(:, 2, 4,11) = (/ &
+        & 0.21705e+00_rb,0.19285e+00_rb,0.18086e+00_rb,0.17812e+00_rb,0.16909e+00_rb, &
+        & 0.16313e+00_rb,0.15767e+00_rb,0.16003e+00_rb,0.17784e+00_rb /)
+      kao(:, 3, 4,11) = (/ &
+        & 0.21534e+00_rb,0.19129e+00_rb,0.17879e+00_rb,0.17719e+00_rb,0.16821e+00_rb, &
+        & 0.16252e+00_rb,0.15706e+00_rb,0.15944e+00_rb,0.17796e+00_rb /)
+      kao(:, 4, 4,11) = (/ &
+        & 0.21357e+00_rb,0.18961e+00_rb,0.17644e+00_rb,0.17503e+00_rb,0.16720e+00_rb, &
+        & 0.16179e+00_rb,0.15644e+00_rb,0.15869e+00_rb,0.17755e+00_rb /)
+      kao(:, 5, 4,11) = (/ &
+        & 0.21192e+00_rb,0.18796e+00_rb,0.17436e+00_rb,0.17237e+00_rb,0.16599e+00_rb, &
+        & 0.16096e+00_rb,0.15564e+00_rb,0.15746e+00_rb,0.17656e+00_rb /)
+      kao(:, 1, 5,11) = (/ &
+        & 0.21793e+00_rb,0.19325e+00_rb,0.18965e+00_rb,0.18402e+00_rb,0.17692e+00_rb, &
+        & 0.17250e+00_rb,0.16494e+00_rb,0.16474e+00_rb,0.18189e+00_rb /)
+      kao(:, 2, 5,11) = (/ &
+        & 0.21706e+00_rb,0.19287e+00_rb,0.18835e+00_rb,0.18355e+00_rb,0.17627e+00_rb, &
+        & 0.17161e+00_rb,0.16474e+00_rb,0.16398e+00_rb,0.18195e+00_rb /)
+      kao(:, 3, 5,11) = (/ &
+        & 0.21612e+00_rb,0.19181e+00_rb,0.18687e+00_rb,0.18213e+00_rb,0.17553e+00_rb, &
+        & 0.17088e+00_rb,0.16425e+00_rb,0.16313e+00_rb,0.18152e+00_rb /)
+      kao(:, 4, 5,11) = (/ &
+        & 0.21478e+00_rb,0.19045e+00_rb,0.18500e+00_rb,0.18018e+00_rb,0.17440e+00_rb, &
+        & 0.16996e+00_rb,0.16342e+00_rb,0.16188e+00_rb,0.18054e+00_rb /)
+      kao(:, 5, 5,11) = (/ &
+        & 0.21350e+00_rb,0.18909e+00_rb,0.18333e+00_rb,0.17782e+00_rb,0.17309e+00_rb, &
+        & 0.16916e+00_rb,0.16213e+00_rb,0.16034e+00_rb,0.17917e+00_rb /)
+      kao(:, 1, 6,11) = (/ &
+        & 0.21342e+00_rb,0.19093e+00_rb,0.19390e+00_rb,0.18953e+00_rb,0.18412e+00_rb, &
+        & 0.17932e+00_rb,0.17133e+00_rb,0.16726e+00_rb,0.18355e+00_rb /)
+      kao(:, 2, 6,11) = (/ &
+        & 0.21345e+00_rb,0.19062e+00_rb,0.19295e+00_rb,0.18836e+00_rb,0.18309e+00_rb, &
+        & 0.17848e+00_rb,0.17069e+00_rb,0.16650e+00_rb,0.18323e+00_rb /)
+      kao(:, 3, 6,11) = (/ &
+        & 0.21341e+00_rb,0.18999e+00_rb,0.19180e+00_rb,0.18672e+00_rb,0.18231e+00_rb, &
+        & 0.17805e+00_rb,0.16996e+00_rb,0.16523e+00_rb,0.18230e+00_rb /)
+      kao(:, 4, 6,11) = (/ &
+        & 0.21278e+00_rb,0.18888e+00_rb,0.19035e+00_rb,0.18488e+00_rb,0.18150e+00_rb, &
+        & 0.17740e+00_rb,0.16888e+00_rb,0.16361e+00_rb,0.18086e+00_rb /)
+      kao(:, 5, 6,11) = (/ &
+        & 0.21199e+00_rb,0.18788e+00_rb,0.18853e+00_rb,0.18312e+00_rb,0.18053e+00_rb, &
+        & 0.17647e+00_rb,0.16753e+00_rb,0.16185e+00_rb,0.17942e+00_rb /)
+      kao(:, 1, 7,11) = (/ &
+        & 0.20554e+00_rb,0.18880e+00_rb,0.19483e+00_rb,0.19351e+00_rb,0.18975e+00_rb, &
+        & 0.18476e+00_rb,0.17703e+00_rb,0.16712e+00_rb,0.18079e+00_rb /)
+      kao(:, 2, 7,11) = (/ &
+        & 0.20652e+00_rb,0.18855e+00_rb,0.19393e+00_rb,0.19243e+00_rb,0.18938e+00_rb, &
+        & 0.18427e+00_rb,0.17598e+00_rb,0.16627e+00_rb,0.18028e+00_rb /)
+      kao(:, 3, 7,11) = (/ &
+        & 0.20722e+00_rb,0.18798e+00_rb,0.19279e+00_rb,0.19112e+00_rb,0.18883e+00_rb, &
+        & 0.18376e+00_rb,0.17458e+00_rb,0.16493e+00_rb,0.17920e+00_rb /)
+      kao(:, 4, 7,11) = (/ &
+        & 0.20704e+00_rb,0.18700e+00_rb,0.19152e+00_rb,0.18972e+00_rb,0.18818e+00_rb, &
+        & 0.18325e+00_rb,0.17326e+00_rb,0.16331e+00_rb,0.17789e+00_rb /)
+      kao(:, 5, 7,11) = (/ &
+        & 0.20670e+00_rb,0.18595e+00_rb,0.18990e+00_rb,0.18822e+00_rb,0.18756e+00_rb, &
+        & 0.18244e+00_rb,0.17179e+00_rb,0.16146e+00_rb,0.17654e+00_rb /)
+      kao(:, 1, 8,11) = (/ &
+        & 0.19482e+00_rb,0.18644e+00_rb,0.19372e+00_rb,0.19534e+00_rb,0.19341e+00_rb, &
+        & 0.18978e+00_rb,0.17991e+00_rb,0.16480e+00_rb,0.17385e+00_rb /)
+      kao(:, 2, 8,11) = (/ &
+        & 0.19645e+00_rb,0.18662e+00_rb,0.19286e+00_rb,0.19499e+00_rb,0.19364e+00_rb, &
+        & 0.18939e+00_rb,0.17872e+00_rb,0.16377e+00_rb,0.17323e+00_rb /)
+      kao(:, 3, 8,11) = (/ &
+        & 0.19752e+00_rb,0.18632e+00_rb,0.19176e+00_rb,0.19416e+00_rb,0.19361e+00_rb, &
+        & 0.18898e+00_rb,0.17730e+00_rb,0.16248e+00_rb,0.17231e+00_rb /)
+      kao(:, 4, 8,11) = (/ &
+        & 0.19786e+00_rb,0.18535e+00_rb,0.19058e+00_rb,0.19340e+00_rb,0.19352e+00_rb, &
+        & 0.18844e+00_rb,0.17582e+00_rb,0.16092e+00_rb,0.17110e+00_rb /)
+      kao(:, 5, 8,11) = (/ &
+        & 0.19827e+00_rb,0.18472e+00_rb,0.18922e+00_rb,0.19254e+00_rb,0.19302e+00_rb, &
+        & 0.18739e+00_rb,0.17431e+00_rb,0.15936e+00_rb,0.17034e+00_rb /)
+      kao(:, 1, 9,11) = (/ &
+        & 0.18199e+00_rb,0.18200e+00_rb,0.19084e+00_rb,0.19456e+00_rb,0.19545e+00_rb, &
+        & 0.19216e+00_rb,0.18018e+00_rb,0.16033e+00_rb,0.16333e+00_rb /)
+      kao(:, 2, 9,11) = (/ &
+        & 0.18402e+00_rb,0.18227e+00_rb,0.19032e+00_rb,0.19515e+00_rb,0.19643e+00_rb, &
+        & 0.19212e+00_rb,0.17883e+00_rb,0.15954e+00_rb,0.16306e+00_rb /)
+      kao(:, 3, 9,11) = (/ &
+        & 0.18527e+00_rb,0.18204e+00_rb,0.18956e+00_rb,0.19541e+00_rb,0.19690e+00_rb, &
+        & 0.19201e+00_rb,0.17754e+00_rb,0.15865e+00_rb,0.16240e+00_rb /)
+      kao(:, 4, 9,11) = (/ &
+        & 0.18597e+00_rb,0.18146e+00_rb,0.18866e+00_rb,0.19510e+00_rb,0.19689e+00_rb, &
+        & 0.19145e+00_rb,0.17626e+00_rb,0.15729e+00_rb,0.16157e+00_rb /)
+      kao(:, 5, 9,11) = (/ &
+        & 0.18701e+00_rb,0.18150e+00_rb,0.18776e+00_rb,0.19449e+00_rb,0.19637e+00_rb, &
+        & 0.19035e+00_rb,0.17490e+00_rb,0.15605e+00_rb,0.16154e+00_rb /)
+      kao(:, 1,10,11) = (/ &
+        & 0.16786e+00_rb,0.17459e+00_rb,0.18572e+00_rb,0.19196e+00_rb,0.19497e+00_rb, &
+        & 0.19093e+00_rb,0.17775e+00_rb,0.15445e+00_rb,0.12845e+00_rb /)
+      kao(:, 2,10,11) = (/ &
+        & 0.16990e+00_rb,0.17470e+00_rb,0.18604e+00_rb,0.19354e+00_rb,0.19670e+00_rb, &
+        & 0.19124e+00_rb,0.17643e+00_rb,0.15415e+00_rb,0.12953e+00_rb /)
+      kao(:, 3,10,11) = (/ &
+        & 0.17115e+00_rb,0.17447e+00_rb,0.18577e+00_rb,0.19420e+00_rb,0.19734e+00_rb, &
+        & 0.19133e+00_rb,0.17544e+00_rb,0.15343e+00_rb,0.13019e+00_rb /)
+      kao(:, 4,10,11) = (/ &
+        & 0.17256e+00_rb,0.17421e+00_rb,0.18540e+00_rb,0.19426e+00_rb,0.19741e+00_rb, &
+        & 0.19105e+00_rb,0.17463e+00_rb,0.15245e+00_rb,0.13135e+00_rb /)
+      kao(:, 5,10,11) = (/ &
+        & 0.17411e+00_rb,0.17469e+00_rb,0.18532e+00_rb,0.19400e+00_rb,0.19690e+00_rb, &
+        & 0.19024e+00_rb,0.17373e+00_rb,0.15177e+00_rb,0.13443e+00_rb /)
+      kao(:, 1,11,11) = (/ &
+        & 0.15326e+00_rb,0.16530e+00_rb,0.17933e+00_rb,0.18873e+00_rb,0.19204e+00_rb, &
+        & 0.18645e+00_rb,0.17157e+00_rb,0.14842e+00_rb,0.10906e+00_rb /)
+      kao(:, 2,11,11) = (/ &
+        & 0.15510e+00_rb,0.16508e+00_rb,0.18002e+00_rb,0.19054e+00_rb,0.19337e+00_rb, &
+        & 0.18697e+00_rb,0.17132e+00_rb,0.14823e+00_rb,0.10821e+00_rb /)
+      kao(:, 3,11,11) = (/ &
+        & 0.15695e+00_rb,0.16517e+00_rb,0.18033e+00_rb,0.19125e+00_rb,0.19395e+00_rb, &
+        & 0.18719e+00_rb,0.17114e+00_rb,0.14748e+00_rb,0.10735e+00_rb /)
+      kao(:, 4,11,11) = (/ &
+        & 0.15884e+00_rb,0.16584e+00_rb,0.18066e+00_rb,0.19107e+00_rb,0.19386e+00_rb, &
+        & 0.18714e+00_rb,0.17083e+00_rb,0.14679e+00_rb,0.10767e+00_rb /)
+      kao(:, 5,11,11) = (/ &
+        & 0.16065e+00_rb,0.16693e+00_rb,0.18136e+00_rb,0.19090e+00_rb,0.19313e+00_rb, &
+        & 0.18652e+00_rb,0.17043e+00_rb,0.14693e+00_rb,0.10852e+00_rb /)
+      kao(:, 1,12,11) = (/ &
+        & 0.13812e+00_rb,0.15482e+00_rb,0.17200e+00_rb,0.18322e+00_rb,0.18516e+00_rb, &
+        & 0.17855e+00_rb,0.16404e+00_rb,0.14149e+00_rb,0.85521e-01_rb /)
+      kao(:, 2,12,11) = (/ &
+        & 0.14024e+00_rb,0.15523e+00_rb,0.17295e+00_rb,0.18464e+00_rb,0.18616e+00_rb, &
+        & 0.17947e+00_rb,0.16474e+00_rb,0.14107e+00_rb,0.84251e-01_rb /)
+      kao(:, 3,12,11) = (/ &
+        & 0.14232e+00_rb,0.15625e+00_rb,0.17374e+00_rb,0.18482e+00_rb,0.18666e+00_rb, &
+        & 0.18015e+00_rb,0.16507e+00_rb,0.14067e+00_rb,0.83221e-01_rb /)
+      kao(:, 4,12,11) = (/ &
+        & 0.14452e+00_rb,0.15760e+00_rb,0.17483e+00_rb,0.18482e+00_rb,0.18644e+00_rb, &
+        & 0.18031e+00_rb,0.16530e+00_rb,0.14085e+00_rb,0.83052e-01_rb /)
+      kao(:, 5,12,11) = (/ &
+        & 0.14659e+00_rb,0.15898e+00_rb,0.17608e+00_rb,0.18496e+00_rb,0.18608e+00_rb, &
+        & 0.18007e+00_rb,0.16596e+00_rb,0.14156e+00_rb,0.86150e-01_rb /)
+      kao(:, 1,13,11) = (/ &
+        & 0.12335e+00_rb,0.14397e+00_rb,0.16332e+00_rb,0.17403e+00_rb,0.17485e+00_rb, &
+        & 0.16858e+00_rb,0.15532e+00_rb,0.13315e+00_rb,0.86982e-01_rb /)
+      kao(:, 2,13,11) = (/ &
+        & 0.12553e+00_rb,0.14531e+00_rb,0.16473e+00_rb,0.17477e+00_rb,0.17593e+00_rb, &
+        & 0.16998e+00_rb,0.15639e+00_rb,0.13322e+00_rb,0.83311e-01_rb /)
+      kao(:, 3,13,11) = (/ &
+        & 0.12788e+00_rb,0.14705e+00_rb,0.16612e+00_rb,0.17511e+00_rb,0.17644e+00_rb, &
+        & 0.17090e+00_rb,0.15730e+00_rb,0.13374e+00_rb,0.80969e-01_rb /)
+      kao(:, 4,13,11) = (/ &
+        & 0.13027e+00_rb,0.14889e+00_rb,0.16746e+00_rb,0.17569e+00_rb,0.17660e+00_rb, &
+        & 0.17136e+00_rb,0.15852e+00_rb,0.13468e+00_rb,0.79671e-01_rb /)
+      kao(:, 5,13,11) = (/ &
+        & 0.13255e+00_rb,0.15069e+00_rb,0.16867e+00_rb,0.17661e+00_rb,0.17696e+00_rb, &
+        & 0.17204e+00_rb,0.15992e+00_rb,0.13520e+00_rb,0.81334e-01_rb /)
+      kao(:, 1, 1,12) = (/ &
+        & 0.28721e+00_rb,0.25323e+00_rb,0.21917e+00_rb,0.19050e+00_rb,0.18439e+00_rb, &
+        & 0.17842e+00_rb,0.17156e+00_rb,0.18245e+00_rb,0.20075e+00_rb /)
+      kao(:, 2, 1,12) = (/ &
+        & 0.28561e+00_rb,0.25177e+00_rb,0.21845e+00_rb,0.19052e+00_rb,0.18309e+00_rb, &
+        & 0.17638e+00_rb,0.16966e+00_rb,0.18096e+00_rb,0.19965e+00_rb /)
+      kao(:, 3, 1,12) = (/ &
+        & 0.28230e+00_rb,0.24910e+00_rb,0.21697e+00_rb,0.19014e+00_rb,0.18233e+00_rb, &
+        & 0.17414e+00_rb,0.16821e+00_rb,0.18034e+00_rb,0.19910e+00_rb /)
+      kao(:, 4, 1,12) = (/ &
+        & 0.27834e+00_rb,0.24592e+00_rb,0.21540e+00_rb,0.18935e+00_rb,0.18163e+00_rb, &
+        & 0.17186e+00_rb,0.16739e+00_rb,0.18033e+00_rb,0.19922e+00_rb /)
+      kao(:, 5, 1,12) = (/ &
+        & 0.27434e+00_rb,0.24303e+00_rb,0.21391e+00_rb,0.18803e+00_rb,0.18019e+00_rb, &
+        & 0.17025e+00_rb,0.16693e+00_rb,0.18042e+00_rb,0.19937e+00_rb /)
+      kao(:, 1, 2,12) = (/ &
+        & 0.29623e+00_rb,0.26097e+00_rb,0.22609e+00_rb,0.20293e+00_rb,0.20182e+00_rb, &
+        & 0.19085e+00_rb,0.18240e+00_rb,0.19397e+00_rb,0.21604e+00_rb /)
+      kao(:, 2, 2,12) = (/ &
+        & 0.29432e+00_rb,0.25931e+00_rb,0.22539e+00_rb,0.20142e+00_rb,0.20026e+00_rb, &
+        & 0.18828e+00_rb,0.18057e+00_rb,0.19299e+00_rb,0.21521e+00_rb /)
+      kao(:, 3, 2,12) = (/ &
+        & 0.29132e+00_rb,0.25712e+00_rb,0.22457e+00_rb,0.20070e+00_rb,0.19917e+00_rb, &
+        & 0.18573e+00_rb,0.17946e+00_rb,0.19254e+00_rb,0.21482e+00_rb /)
+      kao(:, 4, 2,12) = (/ &
+        & 0.28797e+00_rb,0.25474e+00_rb,0.22345e+00_rb,0.19986e+00_rb,0.19780e+00_rb, &
+        & 0.18370e+00_rb,0.17875e+00_rb,0.19238e+00_rb,0.21459e+00_rb /)
+      kao(:, 5, 2,12) = (/ &
+        & 0.28466e+00_rb,0.25242e+00_rb,0.22205e+00_rb,0.19838e+00_rb,0.19562e+00_rb, &
+        & 0.18242e+00_rb,0.17806e+00_rb,0.19203e+00_rb,0.21421e+00_rb /)
+      kao(:, 1, 3,12) = (/ &
+        & 0.30561e+00_rb,0.26889e+00_rb,0.23295e+00_rb,0.21956e+00_rb,0.21717e+00_rb, &
+        & 0.20307e+00_rb,0.19524e+00_rb,0.20742e+00_rb,0.23388e+00_rb /)
+      kao(:, 2, 3,12) = (/ &
+        & 0.30324e+00_rb,0.26704e+00_rb,0.23237e+00_rb,0.21738e+00_rb,0.21493e+00_rb, &
+        & 0.20036e+00_rb,0.19375e+00_rb,0.20659e+00_rb,0.23304e+00_rb /)
+      kao(:, 3, 3,12) = (/ &
+        & 0.30058e+00_rb,0.26531e+00_rb,0.23190e+00_rb,0.21598e+00_rb,0.21300e+00_rb, &
+        & 0.19790e+00_rb,0.19244e+00_rb,0.20627e+00_rb,0.23259e+00_rb /)
+      kao(:, 4, 3,12) = (/ &
+        & 0.29826e+00_rb,0.26386e+00_rb,0.23125e+00_rb,0.21516e+00_rb,0.21099e+00_rb, &
+        & 0.19626e+00_rb,0.19135e+00_rb,0.20570e+00_rb,0.23176e+00_rb /)
+      kao(:, 5, 3,12) = (/ &
+        & 0.29569e+00_rb,0.26204e+00_rb,0.22972e+00_rb,0.21357e+00_rb,0.20846e+00_rb, &
+        & 0.19500e+00_rb,0.19003e+00_rb,0.20504e+00_rb,0.23084e+00_rb /)
+      kao(:, 1, 4,12) = (/ &
+        & 0.31580e+00_rb,0.27765e+00_rb,0.24256e+00_rb,0.23825e+00_rb,0.23010e+00_rb, &
+        & 0.21605e+00_rb,0.20908e+00_rb,0.22073e+00_rb,0.25027e+00_rb /)
+      kao(:, 2, 4,12) = (/ &
+        & 0.31385e+00_rb,0.27619e+00_rb,0.24143e+00_rb,0.23561e+00_rb,0.22732e+00_rb, &
+        & 0.21355e+00_rb,0.20732e+00_rb,0.21997e+00_rb,0.24945e+00_rb /)
+      kao(:, 3, 4,12) = (/ &
+        & 0.31115e+00_rb,0.27450e+00_rb,0.24049e+00_rb,0.23383e+00_rb,0.22480e+00_rb, &
+        & 0.21136e+00_rb,0.20583e+00_rb,0.21971e+00_rb,0.24898e+00_rb /)
+      kao(:, 4, 4,12) = (/ &
+        & 0.30851e+00_rb,0.27268e+00_rb,0.23896e+00_rb,0.23220e+00_rb,0.22243e+00_rb, &
+        & 0.20992e+00_rb,0.20459e+00_rb,0.21945e+00_rb,0.24850e+00_rb /)
+      kao(:, 5, 4,12) = (/ &
+        & 0.30578e+00_rb,0.27071e+00_rb,0.23717e+00_rb,0.23033e+00_rb,0.22018e+00_rb, &
+        & 0.20870e+00_rb,0.20353e+00_rb,0.21927e+00_rb,0.24814e+00_rb /)
+      kao(:, 1, 5,12) = (/ &
+        & 0.32525e+00_rb,0.28587e+00_rb,0.25583e+00_rb,0.25377e+00_rb,0.24260e+00_rb, &
+        & 0.22945e+00_rb,0.22249e+00_rb,0.23280e+00_rb,0.26422e+00_rb /)
+      kao(:, 2, 5,12) = (/ &
+        & 0.32339e+00_rb,0.28450e+00_rb,0.25406e+00_rb,0.25143e+00_rb,0.23950e+00_rb, &
+        & 0.22738e+00_rb,0.22044e+00_rb,0.23211e+00_rb,0.26348e+00_rb /)
+      kao(:, 3, 5,12) = (/ &
+        & 0.32075e+00_rb,0.28298e+00_rb,0.25200e+00_rb,0.24974e+00_rb,0.23665e+00_rb, &
+        & 0.22565e+00_rb,0.21882e+00_rb,0.23178e+00_rb,0.26317e+00_rb /)
+      kao(:, 4, 5,12) = (/ &
+        & 0.31838e+00_rb,0.28134e+00_rb,0.24992e+00_rb,0.24807e+00_rb,0.23442e+00_rb, &
+        & 0.22435e+00_rb,0.21780e+00_rb,0.23180e+00_rb,0.26307e+00_rb /)
+      kao(:, 5, 5,12) = (/ &
+        & 0.31581e+00_rb,0.27952e+00_rb,0.24774e+00_rb,0.24618e+00_rb,0.23239e+00_rb, &
+        & 0.22315e+00_rb,0.21723e+00_rb,0.23168e+00_rb,0.26269e+00_rb /)
+      kao(:, 1, 6,12) = (/ &
+        & 0.33335e+00_rb,0.29286e+00_rb,0.27107e+00_rb,0.26707e+00_rb,0.25627e+00_rb, &
+        & 0.24388e+00_rb,0.23516e+00_rb,0.24254e+00_rb,0.27495e+00_rb /)
+      kao(:, 2, 6,12) = (/ &
+        & 0.33185e+00_rb,0.29196e+00_rb,0.26927e+00_rb,0.26528e+00_rb,0.25338e+00_rb, &
+        & 0.24199e+00_rb,0.23321e+00_rb,0.24178e+00_rb,0.27452e+00_rb /)
+      kao(:, 3, 6,12) = (/ &
+        & 0.32960e+00_rb,0.29070e+00_rb,0.26757e+00_rb,0.26387e+00_rb,0.25062e+00_rb, &
+        & 0.24015e+00_rb,0.23158e+00_rb,0.24188e+00_rb,0.27485e+00_rb /)
+      kao(:, 4, 6,12) = (/ &
+        & 0.32714e+00_rb,0.28920e+00_rb,0.26543e+00_rb,0.26229e+00_rb,0.24828e+00_rb, &
+        & 0.23863e+00_rb,0.23085e+00_rb,0.24191e+00_rb,0.27476e+00_rb /)
+      kao(:, 5, 6,12) = (/ &
+        & 0.32443e+00_rb,0.28722e+00_rb,0.26300e+00_rb,0.25993e+00_rb,0.24627e+00_rb, &
+        & 0.23716e+00_rb,0.23011e+00_rb,0.24150e+00_rb,0.27410e+00_rb /)
+      kao(:, 1, 7,12) = (/ &
+        & 0.33805e+00_rb,0.29686e+00_rb,0.28577e+00_rb,0.27897e+00_rb,0.26998e+00_rb, &
+        & 0.25892e+00_rb,0.24589e+00_rb,0.25046e+00_rb,0.28292e+00_rb /)
+      kao(:, 2, 7,12) = (/ &
+        & 0.33717e+00_rb,0.29673e+00_rb,0.28505e+00_rb,0.27748e+00_rb,0.26727e+00_rb, &
+        & 0.25668e+00_rb,0.24439e+00_rb,0.24991e+00_rb,0.28315e+00_rb /)
+      kao(:, 3, 7,12) = (/ &
+        & 0.33582e+00_rb,0.29639e+00_rb,0.28414e+00_rb,0.27664e+00_rb,0.26503e+00_rb, &
+        & 0.25454e+00_rb,0.24355e+00_rb,0.24982e+00_rb,0.28339e+00_rb /)
+      kao(:, 4, 7,12) = (/ &
+        & 0.33418e+00_rb,0.29565e+00_rb,0.28243e+00_rb,0.27502e+00_rb,0.26319e+00_rb, &
+        & 0.25262e+00_rb,0.24314e+00_rb,0.24937e+00_rb,0.28297e+00_rb /)
+      kao(:, 5, 7,12) = (/ &
+        & 0.33223e+00_rb,0.29432e+00_rb,0.28036e+00_rb,0.27276e+00_rb,0.26126e+00_rb, &
+        & 0.25114e+00_rb,0.24223e+00_rb,0.24874e+00_rb,0.28224e+00_rb /)
+      kao(:, 1, 8,12) = (/ &
+        & 0.33811e+00_rb,0.29881e+00_rb,0.29770e+00_rb,0.29087e+00_rb,0.28271e+00_rb, &
+        & 0.27088e+00_rb,0.25606e+00_rb,0.25702e+00_rb,0.28869e+00_rb /)
+      kao(:, 2, 8,12) = (/ &
+        & 0.33858e+00_rb,0.29933e+00_rb,0.29817e+00_rb,0.28968e+00_rb,0.28063e+00_rb, &
+        & 0.26913e+00_rb,0.25508e+00_rb,0.25647e+00_rb,0.28886e+00_rb /)
+      kao(:, 3, 8,12) = (/ &
+        & 0.33853e+00_rb,0.29979e+00_rb,0.29803e+00_rb,0.28900e+00_rb,0.27895e+00_rb, &
+        & 0.26698e+00_rb,0.25454e+00_rb,0.25561e+00_rb,0.28857e+00_rb /)
+      kao(:, 4, 8,12) = (/ &
+        & 0.33786e+00_rb,0.29958e+00_rb,0.29705e+00_rb,0.28721e+00_rb,0.27754e+00_rb, &
+        & 0.26522e+00_rb,0.25386e+00_rb,0.25480e+00_rb,0.28812e+00_rb /)
+      kao(:, 5, 8,12) = (/ &
+        & 0.33672e+00_rb,0.29874e+00_rb,0.29538e+00_rb,0.28492e+00_rb,0.27593e+00_rb, &
+        & 0.26422e+00_rb,0.25288e+00_rb,0.25337e+00_rb,0.28657e+00_rb /)
+      kao(:, 1, 9,12) = (/ &
+        & 0.33304e+00_rb,0.29965e+00_rb,0.30451e+00_rb,0.30108e+00_rb,0.29380e+00_rb, &
+        & 0.28100e+00_rb,0.26620e+00_rb,0.26062e+00_rb,0.28923e+00_rb /)
+      kao(:, 2, 9,12) = (/ &
+        & 0.33493e+00_rb,0.30099e+00_rb,0.30590e+00_rb,0.30051e+00_rb,0.29241e+00_rb, &
+        & 0.27971e+00_rb,0.26553e+00_rb,0.25927e+00_rb,0.28890e+00_rb /)
+      kao(:, 3, 9,12) = (/ &
+        & 0.33639e+00_rb,0.30210e+00_rb,0.30672e+00_rb,0.29976e+00_rb,0.29135e+00_rb, &
+        & 0.27789e+00_rb,0.26459e+00_rb,0.25779e+00_rb,0.28847e+00_rb /)
+      kao(:, 4, 9,12) = (/ &
+        & 0.33691e+00_rb,0.30238e+00_rb,0.30636e+00_rb,0.29831e+00_rb,0.29055e+00_rb, &
+        & 0.27684e+00_rb,0.26372e+00_rb,0.25629e+00_rb,0.28756e+00_rb /)
+      kao(:, 5, 9,12) = (/ &
+        & 0.33680e+00_rb,0.30184e+00_rb,0.30474e+00_rb,0.29664e+00_rb,0.28906e+00_rb, &
+        & 0.27593e+00_rb,0.26250e+00_rb,0.25436e+00_rb,0.28576e+00_rb /)
+      kao(:, 1,10,12) = (/ &
+        & 0.32265e+00_rb,0.29931e+00_rb,0.30809e+00_rb,0.30788e+00_rb,0.30155e+00_rb, &
+        & 0.29032e+00_rb,0.27398e+00_rb,0.25958e+00_rb,0.28232e+00_rb /)
+      kao(:, 2,10,12) = (/ &
+        & 0.32643e+00_rb,0.30217e+00_rb,0.30992e+00_rb,0.30804e+00_rb,0.30109e+00_rb, &
+        & 0.28947e+00_rb,0.27364e+00_rb,0.25761e+00_rb,0.28165e+00_rb /)
+      kao(:, 3,10,12) = (/ &
+        & 0.32903e+00_rb,0.30409e+00_rb,0.31077e+00_rb,0.30846e+00_rb,0.30095e+00_rb, &
+        & 0.28833e+00_rb,0.27259e+00_rb,0.25601e+00_rb,0.28124e+00_rb /)
+      kao(:, 4,10,12) = (/ &
+        & 0.33021e+00_rb,0.30472e+00_rb,0.31062e+00_rb,0.30777e+00_rb,0.30050e+00_rb, &
+        & 0.28725e+00_rb,0.27132e+00_rb,0.25418e+00_rb,0.28034e+00_rb /)
+      kao(:, 5,10,12) = (/ &
+        & 0.33035e+00_rb,0.30379e+00_rb,0.30948e+00_rb,0.30647e+00_rb,0.29984e+00_rb, &
+        & 0.28648e+00_rb,0.26959e+00_rb,0.25216e+00_rb,0.27891e+00_rb /)
+      kao(:, 1,11,12) = (/ &
+        & 0.31092e+00_rb,0.29828e+00_rb,0.30944e+00_rb,0.31067e+00_rb,0.30618e+00_rb, &
+        & 0.29698e+00_rb,0.27822e+00_rb,0.25367e+00_rb,0.20521e+00_rb /)
+      kao(:, 2,11,12) = (/ &
+        & 0.31508e+00_rb,0.30179e+00_rb,0.31084e+00_rb,0.31247e+00_rb,0.30712e+00_rb, &
+        & 0.29665e+00_rb,0.27717e+00_rb,0.25137e+00_rb,0.20791e+00_rb /)
+      kao(:, 3,11,12) = (/ &
+        & 0.31745e+00_rb,0.30351e+00_rb,0.31148e+00_rb,0.31329e+00_rb,0.30764e+00_rb, &
+        & 0.29592e+00_rb,0.27601e+00_rb,0.24946e+00_rb,0.21041e+00_rb /)
+      kao(:, 4,11,12) = (/ &
+        & 0.31864e+00_rb,0.30345e+00_rb,0.31137e+00_rb,0.31328e+00_rb,0.30818e+00_rb, &
+        & 0.29525e+00_rb,0.27444e+00_rb,0.24795e+00_rb,0.21312e+00_rb /)
+      kao(:, 5,11,12) = (/ &
+        & 0.31936e+00_rb,0.30268e+00_rb,0.31034e+00_rb,0.31260e+00_rb,0.30827e+00_rb, &
+        & 0.29465e+00_rb,0.27259e+00_rb,0.24615e+00_rb,0.21621e+00_rb /)
+      kao(:, 1,12,12) = (/ &
+        & 0.29534e+00_rb,0.29381e+00_rb,0.30706e+00_rb,0.31081e+00_rb,0.30893e+00_rb, &
+        & 0.29961e+00_rb,0.27811e+00_rb,0.24533e+00_rb,0.16496e+00_rb /)
+      kao(:, 2,12,12) = (/ &
+        & 0.29914e+00_rb,0.29664e+00_rb,0.30890e+00_rb,0.31347e+00_rb,0.31102e+00_rb, &
+        & 0.29958e+00_rb,0.27683e+00_rb,0.24361e+00_rb,0.16812e+00_rb /)
+      kao(:, 3,12,12) = (/ &
+        & 0.30164e+00_rb,0.29790e+00_rb,0.30986e+00_rb,0.31529e+00_rb,0.31277e+00_rb, &
+        & 0.29960e+00_rb,0.27547e+00_rb,0.24230e+00_rb,0.17163e+00_rb /)
+      kao(:, 4,12,12) = (/ &
+        & 0.30318e+00_rb,0.29799e+00_rb,0.30963e+00_rb,0.31596e+00_rb,0.31358e+00_rb, &
+        & 0.29964e+00_rb,0.27410e+00_rb,0.24090e+00_rb,0.17207e+00_rb /)
+      kao(:, 5,12,12) = (/ &
+        & 0.30462e+00_rb,0.29774e+00_rb,0.30883e+00_rb,0.31580e+00_rb,0.31382e+00_rb, &
+        & 0.29942e+00_rb,0.27289e+00_rb,0.23940e+00_rb,0.17248e+00_rb /)
+      kao(:, 1,13,12) = (/ &
+        & 0.27646e+00_rb,0.28482e+00_rb,0.30092e+00_rb,0.30845e+00_rb,0.30839e+00_rb, &
+        & 0.29721e+00_rb,0.27391e+00_rb,0.23566e+00_rb,0.13145e+00_rb /)
+      kao(:, 2,13,12) = (/ &
+        & 0.28013e+00_rb,0.28703e+00_rb,0.30330e+00_rb,0.31210e+00_rb,0.31152e+00_rb, &
+        & 0.29799e+00_rb,0.27265e+00_rb,0.23501e+00_rb,0.13680e+00_rb /)
+      kao(:, 3,13,12) = (/ &
+        & 0.28251e+00_rb,0.28781e+00_rb,0.30455e+00_rb,0.31430e+00_rb,0.31342e+00_rb, &
+        & 0.29883e+00_rb,0.27192e+00_rb,0.23420e+00_rb,0.14031e+00_rb /)
+      kao(:, 4,13,12) = (/ &
+        & 0.28473e+00_rb,0.28806e+00_rb,0.30532e+00_rb,0.31558e+00_rb,0.31478e+00_rb, &
+        & 0.29964e+00_rb,0.27140e+00_rb,0.23324e+00_rb,0.14138e+00_rb /)
+      kao(:, 5,13,12) = (/ &
+        & 0.28731e+00_rb,0.28885e+00_rb,0.30563e+00_rb,0.31603e+00_rb,0.31529e+00_rb, &
+        & 0.30003e+00_rb,0.27073e+00_rb,0.23300e+00_rb,0.14291e+00_rb /)
+      kao(:, 1, 1,13) = (/ &
+        & 0.39331e+00_rb,0.34536e+00_rb,0.29823e+00_rb,0.25200e+00_rb,0.22257e+00_rb, &
+        & 0.22153e+00_rb,0.23263e+00_rb,0.25940e+00_rb,0.28372e+00_rb /)
+      kao(:, 2, 1,13) = (/ &
+        & 0.38484e+00_rb,0.33824e+00_rb,0.29242e+00_rb,0.24772e+00_rb,0.21768e+00_rb, &
+        & 0.21972e+00_rb,0.23098e+00_rb,0.25833e+00_rb,0.28173e+00_rb /)
+      kao(:, 3, 1,13) = (/ &
+        & 0.37910e+00_rb,0.33360e+00_rb,0.28884e+00_rb,0.24475e+00_rb,0.21421e+00_rb, &
+        & 0.21744e+00_rb,0.22823e+00_rb,0.25633e+00_rb,0.27932e+00_rb /)
+      kao(:, 4, 1,13) = (/ &
+        & 0.37406e+00_rb,0.32956e+00_rb,0.28576e+00_rb,0.24212e+00_rb,0.21151e+00_rb, &
+        & 0.21463e+00_rb,0.22480e+00_rb,0.25354e+00_rb,0.27637e+00_rb /)
+      kao(:, 5, 1,13) = (/ &
+        & 0.36968e+00_rb,0.32602e+00_rb,0.28272e+00_rb,0.24026e+00_rb,0.20970e+00_rb, &
+        & 0.21134e+00_rb,0.22163e+00_rb,0.25081e+00_rb,0.27385e+00_rb /)
+      kao(:, 1, 2,13) = (/ &
+        & 0.41602e+00_rb,0.36529e+00_rb,0.31527e+00_rb,0.26672e+00_rb,0.24637e+00_rb, &
+        & 0.24718e+00_rb,0.25604e+00_rb,0.28585e+00_rb,0.31850e+00_rb /)
+      kao(:, 2, 2,13) = (/ &
+        & 0.40830e+00_rb,0.35891e+00_rb,0.31022e+00_rb,0.26338e+00_rb,0.24193e+00_rb, &
+        & 0.24484e+00_rb,0.25382e+00_rb,0.28396e+00_rb,0.31574e+00_rb /)
+      kao(:, 3, 2,13) = (/ &
+        & 0.40220e+00_rb,0.35391e+00_rb,0.30635e+00_rb,0.26042e+00_rb,0.23856e+00_rb, &
+        & 0.24224e+00_rb,0.25030e+00_rb,0.28140e+00_rb,0.31256e+00_rb /)
+      kao(:, 4, 2,13) = (/ &
+        & 0.39708e+00_rb,0.34976e+00_rb,0.30310e+00_rb,0.25764e+00_rb,0.23590e+00_rb, &
+        & 0.23895e+00_rb,0.24655e+00_rb,0.27840e+00_rb,0.30929e+00_rb /)
+      kao(:, 5, 2,13) = (/ &
+        & 0.39199e+00_rb,0.34559e+00_rb,0.29962e+00_rb,0.25559e+00_rb,0.23369e+00_rb, &
+        & 0.23517e+00_rb,0.24316e+00_rb,0.27577e+00_rb,0.30660e+00_rb /)
+      kao(:, 1, 3,13) = (/ &
+        & 0.43911e+00_rb,0.38551e+00_rb,0.33254e+00_rb,0.28548e+00_rb,0.27501e+00_rb, &
+        & 0.27158e+00_rb,0.27806e+00_rb,0.30961e+00_rb,0.34942e+00_rb /)
+      kao(:, 2, 3,13) = (/ &
+        & 0.43165e+00_rb,0.37930e+00_rb,0.32763e+00_rb,0.28158e+00_rb,0.27135e+00_rb, &
+        & 0.26881e+00_rb,0.27489e+00_rb,0.30725e+00_rb,0.34620e+00_rb /)
+      kao(:, 3, 3,13) = (/ &
+        & 0.42551e+00_rb,0.37419e+00_rb,0.32362e+00_rb,0.27772e+00_rb,0.26799e+00_rb, &
+        & 0.26571e+00_rb,0.27096e+00_rb,0.30422e+00_rb,0.34240e+00_rb /)
+      kao(:, 4, 3,13) = (/ &
+        & 0.42038e+00_rb,0.37000e+00_rb,0.32049e+00_rb,0.27494e+00_rb,0.26498e+00_rb, &
+        & 0.26183e+00_rb,0.26698e+00_rb,0.30136e+00_rb,0.33931e+00_rb /)
+      kao(:, 5, 3,13) = (/ &
+        & 0.41446e+00_rb,0.36533e+00_rb,0.31734e+00_rb,0.27304e+00_rb,0.26234e+00_rb, &
+        & 0.25777e+00_rb,0.26380e+00_rb,0.29913e+00_rb,0.33705e+00_rb /)
+      kao(:, 1, 4,13) = (/ &
+        & 0.46241e+00_rb,0.40571e+00_rb,0.34961e+00_rb,0.30954e+00_rb,0.30425e+00_rb, &
+        & 0.29507e+00_rb,0.29890e+00_rb,0.33301e+00_rb,0.37827e+00_rb /)
+      kao(:, 2, 4,13) = (/ &
+        & 0.45465e+00_rb,0.39923e+00_rb,0.34450e+00_rb,0.30510e+00_rb,0.30124e+00_rb, &
+        & 0.29145e+00_rb,0.29516e+00_rb,0.32984e+00_rb,0.37410e+00_rb /)
+      kao(:, 3, 4,13) = (/ &
+        & 0.44872e+00_rb,0.39432e+00_rb,0.34072e+00_rb,0.30104e+00_rb,0.29841e+00_rb, &
+        & 0.28758e+00_rb,0.29090e+00_rb,0.32641e+00_rb,0.36986e+00_rb /)
+      kao(:, 4, 4,13) = (/ &
+        & 0.44350e+00_rb,0.39014e+00_rb,0.33810e+00_rb,0.29814e+00_rb,0.29548e+00_rb, &
+        & 0.28294e+00_rb,0.28676e+00_rb,0.32342e+00_rb,0.36667e+00_rb /)
+      kao(:, 5, 4,13) = (/ &
+        & 0.43828e+00_rb,0.38609e+00_rb,0.33570e+00_rb,0.29627e+00_rb,0.29269e+00_rb, &
+        & 0.27870e+00_rb,0.28357e+00_rb,0.32115e+00_rb,0.36426e+00_rb /)
+      kao(:, 1, 5,13) = (/ &
+        & 0.48784e+00_rb,0.42784e+00_rb,0.36835e+00_rb,0.33984e+00_rb,0.33294e+00_rb, &
+        & 0.31846e+00_rb,0.32126e+00_rb,0.35651e+00_rb,0.40621e+00_rb /)
+      kao(:, 2, 5,13) = (/ &
+        & 0.48030e+00_rb,0.42153e+00_rb,0.36340e+00_rb,0.33519e+00_rb,0.32973e+00_rb, &
+        & 0.31380e+00_rb,0.31683e+00_rb,0.35311e+00_rb,0.40187e+00_rb /)
+      kao(:, 3, 5,13) = (/ &
+        & 0.47411e+00_rb,0.41636e+00_rb,0.35974e+00_rb,0.33136e+00_rb,0.32664e+00_rb, &
+        & 0.30892e+00_rb,0.31220e+00_rb,0.34964e+00_rb,0.39763e+00_rb /)
+      kao(:, 4, 5,13) = (/ &
+        & 0.46883e+00_rb,0.41227e+00_rb,0.35745e+00_rb,0.32776e+00_rb,0.32317e+00_rb, &
+        & 0.30393e+00_rb,0.30777e+00_rb,0.34651e+00_rb,0.39440e+00_rb /)
+      kao(:, 5, 5,13) = (/ &
+        & 0.46388e+00_rb,0.40844e+00_rb,0.35543e+00_rb,0.32520e+00_rb,0.31964e+00_rb, &
+        & 0.29971e+00_rb,0.30439e+00_rb,0.34429e+00_rb,0.39205e+00_rb /)
+      kao(:, 1, 6,13) = (/ &
+        & 0.51535e+00_rb,0.45180e+00_rb,0.39162e+00_rb,0.37322e+00_rb,0.36050e+00_rb, &
+        & 0.34300e+00_rb,0.34505e+00_rb,0.38137e+00_rb,0.43538e+00_rb /)
+      kao(:, 2, 6,13) = (/ &
+        & 0.50781e+00_rb,0.44545e+00_rb,0.38586e+00_rb,0.36868e+00_rb,0.35573e+00_rb, &
+        & 0.33760e+00_rb,0.34025e+00_rb,0.37783e+00_rb,0.43095e+00_rb /)
+      kao(:, 3, 6,13) = (/ &
+        & 0.50139e+00_rb,0.44011e+00_rb,0.38148e+00_rb,0.36480e+00_rb,0.35183e+00_rb, &
+        & 0.33217e+00_rb,0.33546e+00_rb,0.37434e+00_rb,0.42674e+00_rb /)
+      kao(:, 4, 6,13) = (/ &
+        & 0.49657e+00_rb,0.43636e+00_rb,0.37891e+00_rb,0.36116e+00_rb,0.34800e+00_rb, &
+        & 0.32704e+00_rb,0.33102e+00_rb,0.37152e+00_rb,0.42385e+00_rb /)
+      kao(:, 5, 6,13) = (/ &
+        & 0.49171e+00_rb,0.43263e+00_rb,0.37693e+00_rb,0.35827e+00_rb,0.34376e+00_rb, &
+        & 0.32320e+00_rb,0.32782e+00_rb,0.36976e+00_rb,0.42188e+00_rb /)
+      kao(:, 1, 7,13) = (/ &
+        & 0.54162e+00_rb,0.47464e+00_rb,0.41834e+00_rb,0.40782e+00_rb,0.38721e+00_rb, &
+        & 0.36824e+00_rb,0.37067e+00_rb,0.40670e+00_rb,0.46460e+00_rb /)
+      kao(:, 2, 7,13) = (/ &
+        & 0.53535e+00_rb,0.46937e+00_rb,0.41220e+00_rb,0.40296e+00_rb,0.38145e+00_rb, &
+        & 0.36278e+00_rb,0.36581e+00_rb,0.40309e+00_rb,0.46013e+00_rb /)
+      kao(:, 3, 7,13) = (/ &
+        & 0.52914e+00_rb,0.46429e+00_rb,0.40710e+00_rb,0.39788e+00_rb,0.37673e+00_rb, &
+        & 0.35819e+00_rb,0.36078e+00_rb,0.40008e+00_rb,0.45678e+00_rb /)
+      kao(:, 4, 7,13) = (/ &
+        & 0.52440e+00_rb,0.46050e+00_rb,0.40384e+00_rb,0.39374e+00_rb,0.37204e+00_rb, &
+        & 0.35371e+00_rb,0.35616e+00_rb,0.39775e+00_rb,0.45424e+00_rb /)
+      kao(:, 5, 7,13) = (/ &
+        & 0.52017e+00_rb,0.45722e+00_rb,0.40132e+00_rb,0.39030e+00_rb,0.36733e+00_rb, &
+        & 0.34991e+00_rb,0.35252e+00_rb,0.39600e+00_rb,0.45213e+00_rb /)
+      kao(:, 1, 8,13) = (/ &
+        & 0.56560e+00_rb,0.49547e+00_rb,0.44792e+00_rb,0.43980e+00_rb,0.41568e+00_rb, &
+        & 0.39571e+00_rb,0.39516e+00_rb,0.42687e+00_rb,0.48767e+00_rb /)
+      kao(:, 2, 8,13) = (/ &
+        & 0.55986e+00_rb,0.49068e+00_rb,0.44130e+00_rb,0.43344e+00_rb,0.40921e+00_rb, &
+        & 0.39033e+00_rb,0.39006e+00_rb,0.42429e+00_rb,0.48458e+00_rb /)
+      kao(:, 3, 8,13) = (/ &
+        & 0.55439e+00_rb,0.48622e+00_rb,0.43604e+00_rb,0.42727e+00_rb,0.40340e+00_rb, &
+        & 0.38637e+00_rb,0.38517e+00_rb,0.42255e+00_rb,0.48243e+00_rb /)
+      kao(:, 4, 8,13) = (/ &
+        & 0.55085e+00_rb,0.48344e+00_rb,0.43251e+00_rb,0.42285e+00_rb,0.39791e+00_rb, &
+        & 0.38219e+00_rb,0.38096e+00_rb,0.42076e+00_rb,0.48039e+00_rb /)
+      kao(:, 5, 8,13) = (/ &
+        & 0.54722e+00_rb,0.48060e+00_rb,0.42969e+00_rb,0.41964e+00_rb,0.39283e+00_rb, &
+        & 0.37840e+00_rb,0.37699e+00_rb,0.41955e+00_rb,0.47894e+00_rb /)
+      kao(:, 1, 9,13) = (/ &
+        & 0.58672e+00_rb,0.51388e+00_rb,0.47909e+00_rb,0.46769e+00_rb,0.44479e+00_rb, &
+        & 0.42421e+00_rb,0.41694e+00_rb,0.44339e+00_rb,0.50662e+00_rb /)
+      kao(:, 2, 9,13) = (/ &
+        & 0.58159e+00_rb,0.50951e+00_rb,0.47213e+00_rb,0.46028e+00_rb,0.43736e+00_rb, &
+        & 0.41895e+00_rb,0.41246e+00_rb,0.44257e+00_rb,0.50550e+00_rb /)
+      kao(:, 3, 9,13) = (/ &
+        & 0.57736e+00_rb,0.50610e+00_rb,0.46657e+00_rb,0.45431e+00_rb,0.43100e+00_rb, &
+        & 0.41543e+00_rb,0.40868e+00_rb,0.44206e+00_rb,0.50480e+00_rb /)
+      kao(:, 4, 9,13) = (/ &
+        & 0.57459e+00_rb,0.50394e+00_rb,0.46330e+00_rb,0.44994e+00_rb,0.42562e+00_rb, &
+        & 0.41143e+00_rb,0.40432e+00_rb,0.44089e+00_rb,0.50333e+00_rb /)
+      kao(:, 5, 9,13) = (/ &
+        & 0.57136e+00_rb,0.50148e+00_rb,0.46136e+00_rb,0.44665e+00_rb,0.42115e+00_rb, &
+        & 0.40792e+00_rb,0.40001e+00_rb,0.43966e+00_rb,0.50186e+00_rb /)
+      kao(:, 1,10,13) = (/ &
+        & 0.60279e+00_rb,0.52914e+00_rb,0.50725e+00_rb,0.49385e+00_rb,0.47296e+00_rb, &
+        & 0.45056e+00_rb,0.43650e+00_rb,0.45649e+00_rb,0.52069e+00_rb /)
+      kao(:, 2,10,13) = (/ &
+        & 0.59826e+00_rb,0.52452e+00_rb,0.50048e+00_rb,0.48635e+00_rb,0.46511e+00_rb, &
+        & 0.44618e+00_rb,0.43278e+00_rb,0.45737e+00_rb,0.52170e+00_rb /)
+      kao(:, 3,10,13) = (/ &
+        & 0.59590e+00_rb,0.52228e+00_rb,0.49610e+00_rb,0.47997e+00_rb,0.45903e+00_rb, &
+        & 0.44309e+00_rb,0.42962e+00_rb,0.45759e+00_rb,0.52208e+00_rb /)
+      kao(:, 4,10,13) = (/ &
+        & 0.59454e+00_rb,0.52120e+00_rb,0.49388e+00_rb,0.47548e+00_rb,0.45447e+00_rb, &
+        & 0.44006e+00_rb,0.42512e+00_rb,0.45631e+00_rb,0.52061e+00_rb /)
+      kao(:, 5,10,13) = (/ &
+        & 0.59357e+00_rb,0.52070e+00_rb,0.49246e+00_rb,0.47250e+00_rb,0.45028e+00_rb, &
+        & 0.43610e+00_rb,0.42114e+00_rb,0.45529e+00_rb,0.51951e+00_rb /)
+      kao(:, 1,11,13) = (/ &
+        & 0.60887e+00_rb,0.53839e+00_rb,0.52807e+00_rb,0.51587e+00_rb,0.49623e+00_rb, &
+        & 0.47362e+00_rb,0.45440e+00_rb,0.46645e+00_rb,0.53001e+00_rb /)
+      kao(:, 2,11,13) = (/ &
+        & 0.60756e+00_rb,0.53578e+00_rb,0.52411e+00_rb,0.50806e+00_rb,0.48992e+00_rb, &
+        & 0.47089e+00_rb,0.45204e+00_rb,0.46808e+00_rb,0.53215e+00_rb /)
+      kao(:, 3,11,13) = (/ &
+        & 0.60793e+00_rb,0.53524e+00_rb,0.52214e+00_rb,0.50280e+00_rb,0.48540e+00_rb, &
+        & 0.46881e+00_rb,0.44770e+00_rb,0.46764e+00_rb,0.53195e+00_rb /)
+      kao(:, 4,11,13) = (/ &
+        & 0.60970e+00_rb,0.53618e+00_rb,0.52106e+00_rb,0.49960e+00_rb,0.48160e+00_rb, &
+        & 0.46481e+00_rb,0.44371e+00_rb,0.46667e+00_rb,0.53096e+00_rb /)
+      kao(:, 5,11,13) = (/ &
+        & 0.61038e+00_rb,0.53650e+00_rb,0.52014e+00_rb,0.49804e+00_rb,0.47818e+00_rb, &
+        & 0.45984e+00_rb,0.44017e+00_rb,0.46579e+00_rb,0.53008e+00_rb /)
+      kao(:, 1,12,13) = (/ &
+        & 0.60957e+00_rb,0.54609e+00_rb,0.54565e+00_rb,0.53521e+00_rb,0.51779e+00_rb, &
+        & 0.49593e+00_rb,0.47189e+00_rb,0.47309e+00_rb,0.46983e+00_rb /)
+      kao(:, 2,12,13) = (/ &
+        & 0.61214e+00_rb,0.54625e+00_rb,0.54367e+00_rb,0.52921e+00_rb,0.51339e+00_rb, &
+        & 0.49443e+00_rb,0.46946e+00_rb,0.47371e+00_rb,0.47545e+00_rb /)
+      kao(:, 3,12,13) = (/ &
+        & 0.61642e+00_rb,0.54787e+00_rb,0.54269e+00_rb,0.52579e+00_rb,0.50981e+00_rb, &
+        & 0.49118e+00_rb,0.46605e+00_rb,0.47265e+00_rb,0.47706e+00_rb /)
+      kao(:, 4,12,13) = (/ &
+        & 0.62028e+00_rb,0.54980e+00_rb,0.54303e+00_rb,0.52440e+00_rb,0.50697e+00_rb, &
+        & 0.48619e+00_rb,0.46182e+00_rb,0.47123e+00_rb,0.48084e+00_rb /)
+      kao(:, 5,12,13) = (/ &
+        & 0.62175e+00_rb,0.55026e+00_rb,0.54305e+00_rb,0.52373e+00_rb,0.50407e+00_rb, &
+        & 0.48153e+00_rb,0.45738e+00_rb,0.46998e+00_rb,0.48415e+00_rb /)
+      kao(:, 1,13,13) = (/ &
+        & 0.60459e+00_rb,0.55304e+00_rb,0.55845e+00_rb,0.55195e+00_rb,0.53769e+00_rb, &
+        & 0.51606e+00_rb,0.48661e+00_rb,0.47383e+00_rb,0.40484e+00_rb /)
+      kao(:, 2,13,13) = (/ &
+        & 0.61134e+00_rb,0.55569e+00_rb,0.55809e+00_rb,0.54885e+00_rb,0.53426e+00_rb, &
+        & 0.51450e+00_rb,0.48473e+00_rb,0.47289e+00_rb,0.40823e+00_rb /)
+      kao(:, 3,13,13) = (/ &
+        & 0.61890e+00_rb,0.55963e+00_rb,0.55924e+00_rb,0.54802e+00_rb,0.53230e+00_rb, &
+        & 0.51039e+00_rb,0.48075e+00_rb,0.47078e+00_rb,0.41355e+00_rb /)
+      kao(:, 4,13,13) = (/ &
+        & 0.62388e+00_rb,0.56213e+00_rb,0.56099e+00_rb,0.54740e+00_rb,0.52999e+00_rb, &
+        & 0.50582e+00_rb,0.47603e+00_rb,0.46901e+00_rb,0.41977e+00_rb /)
+      kao(:, 5,13,13) = (/ &
+        & 0.62688e+00_rb,0.56314e+00_rb,0.56152e+00_rb,0.54685e+00_rb,0.52723e+00_rb, &
+        & 0.50138e+00_rb,0.47115e+00_rb,0.46700e+00_rb,0.42405e+00_rb /)
+      kao(:, 1, 1,14) = (/ &
+        & 0.52445e+00_rb,0.46003e+00_rb,0.39566e+00_rb,0.33139e+00_rb,0.26995e+00_rb, &
+        & 0.25837e+00_rb,0.28528e+00_rb,0.32819e+00_rb,0.35568e+00_rb /)
+      kao(:, 2, 1,14) = (/ &
+        & 0.51513e+00_rb,0.45183e+00_rb,0.38858e+00_rb,0.32553e+00_rb,0.26784e+00_rb, &
+        & 0.25515e+00_rb,0.28229e+00_rb,0.32456e+00_rb,0.35149e+00_rb /)
+      kao(:, 3, 1,14) = (/ &
+        & 0.50548e+00_rb,0.44334e+00_rb,0.38125e+00_rb,0.32054e+00_rb,0.26590e+00_rb, &
+        & 0.25305e+00_rb,0.28136e+00_rb,0.32218e+00_rb,0.34858e+00_rb /)
+      kao(:, 4, 1,14) = (/ &
+        & 0.49563e+00_rb,0.43466e+00_rb,0.37374e+00_rb,0.31559e+00_rb,0.26350e+00_rb, &
+        & 0.25115e+00_rb,0.28088e+00_rb,0.32077e+00_rb,0.34651e+00_rb /)
+      kao(:, 5, 1,14) = (/ &
+        & 0.48636e+00_rb,0.42650e+00_rb,0.36724e+00_rb,0.31119e+00_rb,0.26146e+00_rb, &
+        & 0.24908e+00_rb,0.27907e+00_rb,0.31920e+00_rb,0.34392e+00_rb /)
+      kao(:, 1, 2,14) = (/ &
+        & 0.56575e+00_rb,0.49609e+00_rb,0.42647e+00_rb,0.35691e+00_rb,0.29788e+00_rb, &
+        & 0.29937e+00_rb,0.33584e+00_rb,0.38701e+00_rb,0.42822e+00_rb /)
+      kao(:, 2, 2,14) = (/ &
+        & 0.55481e+00_rb,0.48648e+00_rb,0.41819e+00_rb,0.35023e+00_rb,0.29393e+00_rb, &
+        & 0.29578e+00_rb,0.33190e+00_rb,0.38233e+00_rb,0.42282e+00_rb /)
+      kao(:, 3, 2,14) = (/ &
+        & 0.54468e+00_rb,0.47756e+00_rb,0.41048e+00_rb,0.34498e+00_rb,0.29076e+00_rb, &
+        & 0.29330e+00_rb,0.33000e+00_rb,0.37899e+00_rb,0.41892e+00_rb /)
+      kao(:, 4, 2,14) = (/ &
+        & 0.53444e+00_rb,0.46857e+00_rb,0.40281e+00_rb,0.34010e+00_rb,0.28772e+00_rb, &
+        & 0.29117e+00_rb,0.32899e+00_rb,0.37674e+00_rb,0.41581e+00_rb /)
+      kao(:, 5, 2,14) = (/ &
+        & 0.52472e+00_rb,0.46000e+00_rb,0.39601e+00_rb,0.33543e+00_rb,0.28544e+00_rb, &
+        & 0.28841e+00_rb,0.32728e+00_rb,0.37488e+00_rb,0.41300e+00_rb /)
+      kao(:, 1, 3,14) = (/ &
+        & 0.61401e+00_rb,0.53826e+00_rb,0.46254e+00_rb,0.38687e+00_rb,0.33653e+00_rb, &
+        & 0.34874e+00_rb,0.39278e+00_rb,0.45331e+00_rb,0.51178e+00_rb /)
+      kao(:, 2, 3,14) = (/ &
+        & 0.60181e+00_rb,0.52754e+00_rb,0.45329e+00_rb,0.37917e+00_rb,0.33018e+00_rb, &
+        & 0.34432e+00_rb,0.38762e+00_rb,0.44735e+00_rb,0.50487e+00_rb /)
+      kao(:, 3, 3,14) = (/ &
+        & 0.59018e+00_rb,0.51732e+00_rb,0.44448e+00_rb,0.37278e+00_rb,0.32516e+00_rb, &
+        & 0.34086e+00_rb,0.38493e+00_rb,0.44336e+00_rb,0.50014e+00_rb /)
+      kao(:, 4, 3,14) = (/ &
+        & 0.57893e+00_rb,0.50743e+00_rb,0.43595e+00_rb,0.36714e+00_rb,0.32113e+00_rb, &
+        & 0.33824e+00_rb,0.38315e+00_rb,0.44016e+00_rb,0.49598e+00_rb /)
+      kao(:, 5, 3,14) = (/ &
+        & 0.56842e+00_rb,0.49818e+00_rb,0.42822e+00_rb,0.36203e+00_rb,0.31748e+00_rb, &
+        & 0.33494e+00_rb,0.38145e+00_rb,0.43774e+00_rb,0.49238e+00_rb /)
+      kao(:, 1, 4,14) = (/ &
+        & 0.66683e+00_rb,0.58444e+00_rb,0.50208e+00_rb,0.41977e+00_rb,0.38494e+00_rb, &
+        & 0.40485e+00_rb,0.45417e+00_rb,0.52508e+00_rb,0.59839e+00_rb /)
+      kao(:, 2, 4,14) = (/ &
+        & 0.65354e+00_rb,0.57275e+00_rb,0.49199e+00_rb,0.41128e+00_rb,0.37591e+00_rb, &
+        & 0.39916e+00_rb,0.44835e+00_rb,0.51820e+00_rb,0.59043e+00_rb /)
+      kao(:, 3, 4,14) = (/ &
+        & 0.64071e+00_rb,0.56148e+00_rb,0.48227e+00_rb,0.40388e+00_rb,0.36879e+00_rb, &
+        & 0.39404e+00_rb,0.44465e+00_rb,0.51320e+00_rb,0.58464e+00_rb /)
+      kao(:, 4, 4,14) = (/ &
+        & 0.62844e+00_rb,0.55070e+00_rb,0.47297e+00_rb,0.39753e+00_rb,0.36329e+00_rb, &
+        & 0.39017e+00_rb,0.44183e+00_rb,0.50881e+00_rb,0.57888e+00_rb /)
+      kao(:, 5, 4,14) = (/ &
+        & 0.61748e+00_rb,0.54106e+00_rb,0.46467e+00_rb,0.39213e+00_rb,0.35832e+00_rb, &
+        & 0.38631e+00_rb,0.43926e+00_rb,0.50522e+00_rb,0.57403e+00_rb /)
+      kao(:, 1, 5,14) = (/ &
+        & 0.72260e+00_rb,0.63317e+00_rb,0.54375e+00_rb,0.45913e+00_rb,0.43732e+00_rb, &
+        & 0.46505e+00_rb,0.51783e+00_rb,0.59954e+00_rb,0.68564e+00_rb /)
+      kao(:, 2, 5,14) = (/ &
+        & 0.70858e+00_rb,0.62085e+00_rb,0.53314e+00_rb,0.44897e+00_rb,0.42823e+00_rb, &
+        & 0.45720e+00_rb,0.51115e+00_rb,0.59162e+00_rb,0.67653e+00_rb /)
+      kao(:, 3, 5,14) = (/ &
+        & 0.69539e+00_rb,0.60926e+00_rb,0.52314e+00_rb,0.43994e+00_rb,0.42099e+00_rb, &
+        & 0.45017e+00_rb,0.50656e+00_rb,0.58542e+00_rb,0.66941e+00_rb /)
+      kao(:, 4, 5,14) = (/ &
+        & 0.68235e+00_rb,0.59780e+00_rb,0.51326e+00_rb,0.43281e+00_rb,0.41557e+00_rb, &
+        & 0.44468e+00_rb,0.50258e+00_rb,0.57996e+00_rb,0.66206e+00_rb /)
+      kao(:, 5, 5,14) = (/ &
+        & 0.67018e+00_rb,0.58711e+00_rb,0.50404e+00_rb,0.42628e+00_rb,0.41131e+00_rb, &
+        & 0.43975e+00_rb,0.49863e+00_rb,0.57477e+00_rb,0.65556e+00_rb /)
+      kao(:, 1, 6,14) = (/ &
+        & 0.77964e+00_rb,0.68298e+00_rb,0.58633e+00_rb,0.50766e+00_rb,0.49641e+00_rb, &
+        & 0.52605e+00_rb,0.58161e+00_rb,0.67425e+00_rb,0.77212e+00_rb /)
+      kao(:, 2, 6,14) = (/ &
+        & 0.76589e+00_rb,0.67092e+00_rb,0.57596e+00_rb,0.49531e+00_rb,0.48834e+00_rb, &
+        & 0.51573e+00_rb,0.57361e+00_rb,0.66493e+00_rb,0.76124e+00_rb /)
+      kao(:, 3, 6,14) = (/ &
+        & 0.75251e+00_rb,0.65917e+00_rb,0.56583e+00_rb,0.48459e+00_rb,0.48115e+00_rb, &
+        & 0.50704e+00_rb,0.56757e+00_rb,0.65686e+00_rb,0.75182e+00_rb /)
+      kao(:, 4, 6,14) = (/ &
+        & 0.73905e+00_rb,0.64728e+00_rb,0.55554e+00_rb,0.47565e+00_rb,0.47497e+00_rb, &
+        & 0.50004e+00_rb,0.56191e+00_rb,0.64957e+00_rb,0.74243e+00_rb /)
+      kao(:, 5, 6,14) = (/ &
+        & 0.72636e+00_rb,0.63608e+00_rb,0.54581e+00_rb,0.46758e+00_rb,0.47009e+00_rb, &
+        & 0.49349e+00_rb,0.55635e+00_rb,0.64252e+00_rb,0.73397e+00_rb /)
+      kao(:, 1, 7,14) = (/ &
+        & 0.84113e+00_rb,0.73668e+00_rb,0.63225e+00_rb,0.56459e+00_rb,0.56168e+00_rb, &
+        & 0.58736e+00_rb,0.64476e+00_rb,0.74759e+00_rb,0.85655e+00_rb /)
+      kao(:, 2, 7,14) = (/ &
+        & 0.82630e+00_rb,0.72365e+00_rb,0.62103e+00_rb,0.55091e+00_rb,0.55367e+00_rb, &
+        & 0.57467e+00_rb,0.63457e+00_rb,0.73605e+00_rb,0.84323e+00_rb /)
+      kao(:, 3, 7,14) = (/ &
+        & 0.81279e+00_rb,0.71173e+00_rb,0.61068e+00_rb,0.53944e+00_rb,0.54564e+00_rb, &
+        & 0.56363e+00_rb,0.62610e+00_rb,0.72557e+00_rb,0.83073e+00_rb /)
+      kao(:, 4, 7,14) = (/ &
+        & 0.79922e+00_rb,0.69978e+00_rb,0.60035e+00_rb,0.52974e+00_rb,0.53833e+00_rb, &
+        & 0.55444e+00_rb,0.61857e+00_rb,0.71625e+00_rb,0.81942e+00_rb /)
+      kao(:, 5, 7,14) = (/ &
+        & 0.78598e+00_rb,0.68814e+00_rb,0.59031e+00_rb,0.52130e+00_rb,0.53249e+00_rb, &
+        & 0.54592e+00_rb,0.61225e+00_rb,0.70842e+00_rb,0.80994e+00_rb /)
+      kao(:, 1, 8,14) = (/ &
+        & 0.90865e+00_rb,0.79552e+00_rb,0.68301e+00_rb,0.62894e+00_rb,0.62980e+00_rb, &
+        & 0.64956e+00_rb,0.70917e+00_rb,0.82179e+00_rb,0.94167e+00_rb /)
+      kao(:, 2, 8,14) = (/ &
+        & 0.89327e+00_rb,0.78202e+00_rb,0.67089e+00_rb,0.61713e+00_rb,0.62095e+00_rb, &
+        & 0.63402e+00_rb,0.69617e+00_rb,0.80717e+00_rb,0.92484e+00_rb /)
+      kao(:, 3, 8,14) = (/ &
+        & 0.87903e+00_rb,0.76952e+00_rb,0.66001e+00_rb,0.60628e+00_rb,0.61235e+00_rb, &
+        & 0.62019e+00_rb,0.68531e+00_rb,0.79440e+00_rb,0.90974e+00_rb /)
+      kao(:, 4, 8,14) = (/ &
+        & 0.86460e+00_rb,0.75687e+00_rb,0.64914e+00_rb,0.59649e+00_rb,0.60349e+00_rb, &
+        & 0.60828e+00_rb,0.67580e+00_rb,0.78318e+00_rb,0.89639e+00_rb /)
+      kao(:, 5, 8,14) = (/ &
+        & 0.85091e+00_rb,0.74488e+00_rb,0.63886e+00_rb,0.58665e+00_rb,0.59566e+00_rb, &
+        & 0.59754e+00_rb,0.66827e+00_rb,0.77422e+00_rb,0.88585e+00_rb /)
+      kao(:, 1, 9,14) = (/ &
+        & 0.98149e+00_rb,0.85912e+00_rb,0.74373e+00_rb,0.70295e+00_rb,0.70214e+00_rb, &
+        & 0.71285e+00_rb,0.77237e+00_rb,0.89352e+00_rb,0.10239e+01_rb /)
+      kao(:, 2, 9,14) = (/ &
+        & 0.96640e+00_rb,0.84589e+00_rb,0.73081e+00_rb,0.69152e+00_rb,0.69170e+00_rb, &
+        & 0.69439e+00_rb,0.75605e+00_rb,0.87558e+00_rb,0.10032e+01_rb /)
+      kao(:, 3, 9,14) = (/ &
+        & 0.95188e+00_rb,0.83316e+00_rb,0.71892e+00_rb,0.68080e+00_rb,0.68028e+00_rb, &
+        & 0.67751e+00_rb,0.74271e+00_rb,0.86004e+00_rb,0.98493e+00_rb /)
+      kao(:, 4, 9,14) = (/ &
+        & 0.93737e+00_rb,0.82045e+00_rb,0.70700e+00_rb,0.67076e+00_rb,0.66785e+00_rb, &
+        & 0.66265e+00_rb,0.73184e+00_rb,0.84775e+00_rb,0.97055e+00_rb /)
+      kao(:, 5, 9,14) = (/ &
+        & 0.92346e+00_rb,0.80828e+00_rb,0.69536e+00_rb,0.66047e+00_rb,0.65652e+00_rb, &
+        & 0.65000e+00_rb,0.72388e+00_rb,0.83863e+00_rb,0.95986e+00_rb /)
+      kao(:, 1,10,14) = (/ &
+        & 0.10577e+01_rb,0.92576e+00_rb,0.81364e+00_rb,0.78190e+00_rb,0.77617e+00_rb, &
+        & 0.77603e+00_rb,0.83269e+00_rb,0.96109e+00_rb,0.11008e+01_rb /)
+      kao(:, 2,10,14) = (/ &
+        & 0.10450e+01_rb,0.91463e+00_rb,0.80097e+00_rb,0.77046e+00_rb,0.76182e+00_rb, &
+        & 0.75411e+00_rb,0.81384e+00_rb,0.94032e+00_rb,0.10769e+01_rb /)
+      kao(:, 3,10,14) = (/ &
+        & 0.10312e+01_rb,0.90248e+00_rb,0.78812e+00_rb,0.75969e+00_rb,0.74632e+00_rb, &
+        & 0.73436e+00_rb,0.79822e+00_rb,0.92300e+00_rb,0.10571e+01_rb /)
+      kao(:, 4,10,14) = (/ &
+        & 0.10164e+01_rb,0.88956e+00_rb,0.77444e+00_rb,0.74952e+00_rb,0.73099e+00_rb, &
+        & 0.71729e+00_rb,0.78702e+00_rb,0.91062e+00_rb,0.10426e+01_rb /)
+      kao(:, 5,10,14) = (/ &
+        & 0.10010e+01_rb,0.87610e+00_rb,0.76045e+00_rb,0.73747e+00_rb,0.71669e+00_rb, &
+        & 0.70419e+00_rb,0.77819e+00_rb,0.90060e+00_rb,0.10309e+01_rb /)
+      kao(:, 1,11,14) = (/ &
+        & 0.11332e+01_rb,0.99169e+00_rb,0.88520e+00_rb,0.85938e+00_rb,0.84171e+00_rb, &
+        & 0.82777e+00_rb,0.88045e+00_rb,0.10119e+01_rb,0.11581e+01_rb /)
+      kao(:, 2,11,14) = (/ &
+        & 0.11221e+01_rb,0.98196e+00_rb,0.87210e+00_rb,0.84745e+00_rb,0.82287e+00_rb, &
+        & 0.80383e+00_rb,0.86097e+00_rb,0.99198e+00_rb,0.11355e+01_rb /)
+      kao(:, 3,11,14) = (/ &
+        & 0.11079e+01_rb,0.96953e+00_rb,0.85745e+00_rb,0.83492e+00_rb,0.80465e+00_rb, &
+        & 0.78293e+00_rb,0.84710e+00_rb,0.97731e+00_rb,0.11185e+01_rb /)
+      kao(:, 4,11,14) = (/ &
+        & 0.10888e+01_rb,0.95287e+00_rb,0.84018e+00_rb,0.82112e+00_rb,0.78666e+00_rb, &
+        & 0.76752e+00_rb,0.83583e+00_rb,0.96514e+00_rb,0.11044e+01_rb /)
+      kao(:, 5,11,14) = (/ &
+        & 0.10701e+01_rb,0.93668e+00_rb,0.82311e+00_rb,0.80490e+00_rb,0.77024e+00_rb, &
+        & 0.75616e+00_rb,0.82679e+00_rb,0.95569e+00_rb,0.10935e+01_rb /)
+      kao(:, 1,12,14) = (/ &
+        & 0.12101e+01_rb,0.10589e+01_rb,0.96254e+00_rb,0.93478e+00_rb,0.90424e+00_rb, &
+        & 0.88111e+00_rb,0.92612e+00_rb,0.10566e+01_rb,0.12084e+01_rb /)
+      kao(:, 2,12,14) = (/ &
+        & 0.11952e+01_rb,0.10459e+01_rb,0.94639e+00_rb,0.91979e+00_rb,0.88299e+00_rb, &
+        & 0.85667e+00_rb,0.90737e+00_rb,0.10393e+01_rb,0.11885e+01_rb /)
+      kao(:, 3,12,14) = (/ &
+        & 0.11758e+01_rb,0.10290e+01_rb,0.92827e+00_rb,0.90412e+00_rb,0.86234e+00_rb, &
+        & 0.83719e+00_rb,0.89320e+00_rb,0.10260e+01_rb,0.11732e+01_rb /)
+      kao(:, 4,12,14) = (/ &
+        & 0.11552e+01_rb,0.10111e+01_rb,0.90821e+00_rb,0.88659e+00_rb,0.84346e+00_rb, &
+        & 0.82327e+00_rb,0.88324e+00_rb,0.10165e+01_rb,0.11624e+01_rb /)
+      kao(:, 5,12,14) = (/ &
+        & 0.11370e+01_rb,0.99527e+00_rb,0.88941e+00_rb,0.86803e+00_rb,0.82686e+00_rb, &
+        & 0.81098e+00_rb,0.87502e+00_rb,0.10085e+01_rb,0.11531e+01_rb /)
+      kao(:, 1,13,14) = (/ &
+        & 0.12761e+01_rb,0.11169e+01_rb,0.10366e+01_rb,0.10056e+01_rb,0.96619e+00_rb, &
+        & 0.93741e+00_rb,0.96971e+00_rb,0.10971e+01_rb,0.12455e+01_rb /)
+      kao(:, 2,13,14) = (/ &
+        & 0.12590e+01_rb,0.11018e+01_rb,0.10193e+01_rb,0.98827e+00_rb,0.94401e+00_rb, &
+        & 0.91331e+00_rb,0.95200e+00_rb,0.10824e+01_rb,0.12321e+01_rb /)
+      kao(:, 3,13,14) = (/ &
+        & 0.12382e+01_rb,0.10836e+01_rb,0.99864e+00_rb,0.96922e+00_rb,0.92237e+00_rb, &
+        & 0.89570e+00_rb,0.94013e+00_rb,0.10732e+01_rb,0.12212e+01_rb /)
+      kao(:, 4,13,14) = (/ &
+        & 0.12192e+01_rb,0.10671e+01_rb,0.97718e+00_rb,0.94975e+00_rb,0.90316e+00_rb, &
+        & 0.88110e+00_rb,0.93100e+00_rb,0.10658e+01_rb,0.12124e+01_rb /)
+      kao(:, 5,13,14) = (/ &
+        & 0.12013e+01_rb,0.10515e+01_rb,0.95818e+00_rb,0.93022e+00_rb,0.88690e+00_rb, &
+        & 0.86844e+00_rb,0.92401e+00_rb,0.10605e+01_rb,0.12064e+01_rb /)
+      kao(:, 1, 1,15) = (/ &
+        & 0.70834e+00_rb,0.62203e+00_rb,0.53582e+00_rb,0.44981e+00_rb,0.36430e+00_rb, &
+        & 0.30456e+00_rb,0.33772e+00_rb,0.39113e+00_rb,0.42417e+00_rb /)
+      kao(:, 2, 1,15) = (/ &
+        & 0.69132e+00_rb,0.60682e+00_rb,0.52239e+00_rb,0.43815e+00_rb,0.35442e+00_rb, &
+        & 0.29618e+00_rb,0.32847e+00_rb,0.37897e+00_rb,0.41053e+00_rb /)
+      kao(:, 3, 1,15) = (/ &
+        & 0.67551e+00_rb,0.59273e+00_rb,0.51002e+00_rb,0.42746e+00_rb,0.34540e+00_rb, &
+        & 0.29170e+00_rb,0.32190e+00_rb,0.37054e+00_rb,0.40056e+00_rb /)
+      kao(:, 4, 1,15) = (/ &
+        & 0.65954e+00_rb,0.57855e+00_rb,0.49762e+00_rb,0.41681e+00_rb,0.33774e+00_rb, &
+        & 0.29058e+00_rb,0.31932e+00_rb,0.36553e+00_rb,0.39416e+00_rb /)
+      kao(:, 5, 1,15) = (/ &
+        & 0.64426e+00_rb,0.56502e+00_rb,0.48582e+00_rb,0.40671e+00_rb,0.33237e+00_rb, &
+        & 0.29156e+00_rb,0.32280e+00_rb,0.36526e+00_rb,0.39257e+00_rb /)
+      kao(:, 1, 2,15) = (/ &
+        & 0.79278e+00_rb,0.69566e+00_rb,0.59863e+00_rb,0.50180e+00_rb,0.40547e+00_rb, &
+        & 0.36074e+00_rb,0.40858e+00_rb,0.47363e+00_rb,0.52463e+00_rb /)
+      kao(:, 2, 2,15) = (/ &
+        & 0.77384e+00_rb,0.67879e+00_rb,0.58381e+00_rb,0.48896e+00_rb,0.39453e+00_rb, &
+        & 0.34912e+00_rb,0.39677e+00_rb,0.45884e+00_rb,0.50797e+00_rb /)
+      kao(:, 3, 2,15) = (/ &
+        & 0.75601e+00_rb,0.66296e+00_rb,0.56995e+00_rb,0.47701e+00_rb,0.38437e+00_rb, &
+        & 0.34005e+00_rb,0.38826e+00_rb,0.44800e+00_rb,0.49524e+00_rb /)
+      kao(:, 4, 2,15) = (/ &
+        & 0.73809e+00_rb,0.64708e+00_rb,0.55610e+00_rb,0.46517e+00_rb,0.37616e+00_rb, &
+        & 0.33560e+00_rb,0.38277e+00_rb,0.44095e+00_rb,0.48660e+00_rb /)
+      kao(:, 5, 2,15) = (/ &
+        & 0.72001e+00_rb,0.63111e+00_rb,0.54222e+00_rb,0.45336e+00_rb,0.36992e+00_rb, &
+        & 0.33536e+00_rb,0.38227e+00_rb,0.43734e+00_rb,0.48144e+00_rb /)
+      kao(:, 1, 3,15) = (/ &
+        & 0.88640e+00_rb,0.77731e+00_rb,0.66826e+00_rb,0.55931e+00_rb,0.45077e+00_rb, &
+        & 0.42993e+00_rb,0.49594e+00_rb,0.57510e+00_rb,0.65079e+00_rb /)
+      kao(:, 2, 3,15) = (/ &
+        & 0.86545e+00_rb,0.75870e+00_rb,0.65198e+00_rb,0.54530e+00_rb,0.43919e+00_rb, &
+        & 0.41467e+00_rb,0.48152e+00_rb,0.55764e+00_rb,0.63093e+00_rb /)
+      kao(:, 3, 3,15) = (/ &
+        & 0.84484e+00_rb,0.74046e+00_rb,0.63609e+00_rb,0.53174e+00_rb,0.42841e+00_rb, &
+        & 0.40263e+00_rb,0.47018e+00_rb,0.54358e+00_rb,0.61450e+00_rb /)
+      kao(:, 4, 3,15) = (/ &
+        & 0.82484e+00_rb,0.72279e+00_rb,0.62074e+00_rb,0.51870e+00_rb,0.41933e+00_rb, &
+        & 0.39440e+00_rb,0.46214e+00_rb,0.53355e+00_rb,0.60235e+00_rb /)
+      kao(:, 5, 3,15) = (/ &
+        & 0.80403e+00_rb,0.70444e+00_rb,0.60484e+00_rb,0.50526e+00_rb,0.41249e+00_rb, &
+        & 0.39177e+00_rb,0.45674e+00_rb,0.52614e+00_rb,0.59324e+00_rb /)
+      kao(:, 1, 4,15) = (/ &
+        & 0.98775e+00_rb,0.86568e+00_rb,0.74362e+00_rb,0.62157e+00_rb,0.50893e+00_rb, &
+        & 0.51227e+00_rb,0.60104e+00_rb,0.69710e+00_rb,0.79722e+00_rb /)
+      kao(:, 2, 4,15) = (/ &
+        & 0.96448e+00_rb,0.84510e+00_rb,0.72572e+00_rb,0.60634e+00_rb,0.49496e+00_rb, &
+        & 0.49365e+00_rb,0.58337e+00_rb,0.67615e+00_rb,0.77326e+00_rb /)
+      kao(:, 3, 4,15) = (/ &
+        & 0.94121e+00_rb,0.82456e+00_rb,0.70790e+00_rb,0.59124e+00_rb,0.48214e+00_rb, &
+        & 0.47977e+00_rb,0.56920e+00_rb,0.65880e+00_rb,0.75281e+00_rb /)
+      kao(:, 4, 4,15) = (/ &
+        & 0.91776e+00_rb,0.80389e+00_rb,0.69002e+00_rb,0.57613e+00_rb,0.47050e+00_rb, &
+        & 0.47009e+00_rb,0.55863e+00_rb,0.64595e+00_rb,0.73761e+00_rb /)
+      kao(:, 5, 4,15) = (/ &
+        & 0.89560e+00_rb,0.78437e+00_rb,0.67314e+00_rb,0.56190e+00_rb,0.46260e+00_rb, &
+        & 0.46419e+00_rb,0.55009e+00_rb,0.63560e+00_rb,0.72526e+00_rb /)
+      kao(:, 1, 5,15) = (/ &
+        & 0.10958e+01_rb,0.95999e+00_rb,0.82419e+00_rb,0.68839e+00_rb,0.58904e+00_rb, &
+        & 0.60909e+00_rb,0.72523e+00_rb,0.84139e+00_rb,0.96623e+00_rb /)
+      kao(:, 2, 5,15) = (/ &
+        & 0.10697e+01_rb,0.93701e+00_rb,0.80427e+00_rb,0.67151e+00_rb,0.56892e+00_rb, &
+        & 0.58963e+00_rb,0.70431e+00_rb,0.81667e+00_rb,0.93800e+00_rb /)
+      kao(:, 3, 5,15) = (/ &
+        & 0.10434e+01_rb,0.91377e+00_rb,0.78415e+00_rb,0.65453e+00_rb,0.55082e+00_rb, &
+        & 0.57510e+00_rb,0.68668e+00_rb,0.79542e+00_rb,0.91311e+00_rb /)
+      kao(:, 4, 5,15) = (/ &
+        & 0.10167e+01_rb,0.89033e+00_rb,0.76393e+00_rb,0.63753e+00_rb,0.53477e+00_rb, &
+        & 0.56392e+00_rb,0.67291e+00_rb,0.77892e+00_rb,0.89383e+00_rb /)
+      kao(:, 5, 5,15) = (/ &
+        & 0.99271e+00_rb,0.86922e+00_rb,0.74573e+00_rb,0.62224e+00_rb,0.52129e+00_rb, &
+        & 0.55503e+00_rb,0.66157e+00_rb,0.76538e+00_rb,0.87797e+00_rb /)
+      kao(:, 1, 6,15) = (/ &
+        & 0.12165e+01_rb,0.10653e+01_rb,0.91421e+00_rb,0.76309e+00_rb,0.68684e+00_rb, &
+        & 0.72751e+00_rb,0.87072e+00_rb,0.10104e+01_rb,0.11626e+01_rb /)
+      kao(:, 2, 6,15) = (/ &
+        & 0.11851e+01_rb,0.10377e+01_rb,0.89038e+00_rb,0.74302e+00_rb,0.66078e+00_rb, &
+        & 0.70740e+00_rb,0.84652e+00_rb,0.98180e+00_rb,0.11298e+01_rb /)
+      kao(:, 3, 6,15) = (/ &
+        & 0.11540e+01_rb,0.10104e+01_rb,0.86680e+00_rb,0.72322e+00_rb,0.63673e+00_rb, &
+        & 0.69046e+00_rb,0.82558e+00_rb,0.95705e+00_rb,0.11007e+01_rb /)
+      kao(:, 4, 6,15) = (/ &
+        & 0.11233e+01_rb,0.98347e+00_rb,0.84364e+00_rb,0.70381e+00_rb,0.61623e+00_rb, &
+        & 0.67656e+00_rb,0.80855e+00_rb,0.93682e+00_rb,0.10775e+01_rb /)
+      kao(:, 5, 6,15) = (/ &
+        & 0.10954e+01_rb,0.95895e+00_rb,0.82254e+00_rb,0.68614e+00_rb,0.59850e+00_rb, &
+        & 0.66513e+00_rb,0.79440e+00_rb,0.92006e+00_rb,0.10579e+01_rb /)
+      kao(:, 1, 7,15) = (/ &
+        & 0.13516e+01_rb,0.11834e+01_rb,0.10152e+01_rb,0.84752e+00_rb,0.80189e+00_rb, &
+        & 0.86751e+00_rb,0.10388e+01_rb,0.12059e+01_rb,0.13885e+01_rb /)
+      kao(:, 2, 7,15) = (/ &
+        & 0.13129e+01_rb,0.11495e+01_rb,0.98601e+00_rb,0.82254e+00_rb,0.76801e+00_rb, &
+        & 0.84476e+00_rb,0.10112e+01_rb,0.11733e+01_rb,0.13510e+01_rb /)
+      kao(:, 3, 7,15) = (/ &
+        & 0.12754e+01_rb,0.11166e+01_rb,0.95771e+00_rb,0.79885e+00_rb,0.73832e+00_rb, &
+        & 0.82499e+00_rb,0.98705e+00_rb,0.11448e+01_rb,0.13179e+01_rb /)
+      kao(:, 4, 7,15) = (/ &
+        & 0.12391e+01_rb,0.10847e+01_rb,0.93032e+00_rb,0.77593e+00_rb,0.71267e+00_rb, &
+        & 0.80837e+00_rb,0.96685e+00_rb,0.11210e+01_rb,0.12906e+01_rb /)
+      kao(:, 5, 7,15) = (/ &
+        & 0.12065e+01_rb,0.10561e+01_rb,0.90576e+00_rb,0.75539e+00_rb,0.69035e+00_rb, &
+        & 0.79409e+00_rb,0.94938e+00_rb,0.11005e+01_rb,0.12668e+01_rb /)
+      kao(:, 1, 8,15) = (/ &
+        & 0.14988e+01_rb,0.13122e+01_rb,0.11257e+01_rb,0.95045e+00_rb,0.92736e+00_rb, &
+        & 0.10268e+01_rb,0.12293e+01_rb,0.14274e+01_rb,0.16436e+01_rb /)
+      kao(:, 2, 8,15) = (/ &
+        & 0.14532e+01_rb,0.12722e+01_rb,0.10913e+01_rb,0.91652e+00_rb,0.88763e+00_rb, &
+        & 0.10018e+01_rb,0.11994e+01_rb,0.13921e+01_rb,0.16030e+01_rb /)
+      kao(:, 3, 8,15) = (/ &
+        & 0.14089e+01_rb,0.12334e+01_rb,0.10579e+01_rb,0.88636e+00_rb,0.85277e+00_rb, &
+        & 0.97910e+00_rb,0.11719e+01_rb,0.13598e+01_rb,0.15656e+01_rb /)
+      kao(:, 4, 8,15) = (/ &
+        & 0.13671e+01_rb,0.11967e+01_rb,0.10263e+01_rb,0.85849e+00_rb,0.82373e+00_rb, &
+        & 0.95955e+00_rb,0.11482e+01_rb,0.13320e+01_rb,0.15338e+01_rb /)
+      kao(:, 5, 8,15) = (/ &
+        & 0.13292e+01_rb,0.11635e+01_rb,0.99774e+00_rb,0.83411e+00_rb,0.79958e+00_rb, &
+        & 0.94221e+00_rb,0.11271e+01_rb,0.13073e+01_rb,0.15052e+01_rb /)
+      kao(:, 1, 9,15) = (/ &
+        & 0.16562e+01_rb,0.14500e+01_rb,0.12437e+01_rb,0.10742e+01_rb,0.10651e+01_rb, &
+        & 0.12070e+01_rb,0.14445e+01_rb,0.16775e+01_rb,0.19311e+01_rb /)
+      kao(:, 2, 9,15) = (/ &
+        & 0.16034e+01_rb,0.14036e+01_rb,0.12039e+01_rb,0.10312e+01_rb,0.10206e+01_rb, &
+        & 0.11791e+01_rb,0.14116e+01_rb,0.16391e+01_rb,0.18869e+01_rb /)
+      kao(:, 3, 9,15) = (/ &
+        & 0.15525e+01_rb,0.13590e+01_rb,0.11655e+01_rb,0.99233e+00_rb,0.98476e+00_rb, &
+        & 0.11530e+01_rb,0.13804e+01_rb,0.16026e+01_rb,0.18449e+01_rb /)
+      kao(:, 4, 9,15) = (/ &
+        & 0.15047e+01_rb,0.13171e+01_rb,0.11295e+01_rb,0.95737e+00_rb,0.95592e+00_rb, &
+        & 0.11301e+01_rb,0.13529e+01_rb,0.15703e+01_rb,0.18077e+01_rb /)
+      kao(:, 5, 9,15) = (/ &
+        & 0.14611e+01_rb,0.12789e+01_rb,0.10967e+01_rb,0.92635e+00_rb,0.93256e+00_rb, &
+        & 0.11088e+01_rb,0.13272e+01_rb,0.15403e+01_rb,0.17730e+01_rb /)
+      kao(:, 1,10,15) = (/ &
+        & 0.18225e+01_rb,0.15953e+01_rb,0.13682e+01_rb,0.12131e+01_rb,0.12195e+01_rb, &
+        & 0.14041e+01_rb,0.16789e+01_rb,0.19504e+01_rb,0.22442e+01_rb /)
+      kao(:, 2,10,15) = (/ &
+        & 0.17586e+01_rb,0.15393e+01_rb,0.13201e+01_rb,0.11608e+01_rb,0.11760e+01_rb, &
+        & 0.13729e+01_rb,0.16424e+01_rb,0.19078e+01_rb,0.21951e+01_rb /)
+      kao(:, 3,10,15) = (/ &
+        & 0.16992e+01_rb,0.14873e+01_rb,0.12754e+01_rb,0.11134e+01_rb,0.11408e+01_rb, &
+        & 0.13430e+01_rb,0.16073e+01_rb,0.18666e+01_rb,0.21480e+01_rb /)
+      kao(:, 4,10,15) = (/ &
+        & 0.16453e+01_rb,0.14401e+01_rb,0.12349e+01_rb,0.10705e+01_rb,0.11101e+01_rb, &
+        & 0.13157e+01_rb,0.15751e+01_rb,0.18293e+01_rb,0.21045e+01_rb /)
+      kao(:, 5,10,15) = (/ &
+        & 0.15976e+01_rb,0.13983e+01_rb,0.11990e+01_rb,0.10350e+01_rb,0.10845e+01_rb, &
+        & 0.12900e+01_rb,0.15444e+01_rb,0.17936e+01_rb,0.20634e+01_rb /)
+      kao(:, 1,11,15) = (/ &
+        & 0.19716e+01_rb,0.17256e+01_rb,0.14797e+01_rb,0.13408e+01_rb,0.13798e+01_rb, &
+        & 0.16011e+01_rb,0.19108e+01_rb,0.22209e+01_rb,0.25534e+01_rb /)
+      kao(:, 2,11,15) = (/ &
+        & 0.18980e+01_rb,0.16613e+01_rb,0.14245e+01_rb,0.12841e+01_rb,0.13393e+01_rb, &
+        & 0.15661e+01_rb,0.18703e+01_rb,0.21736e+01_rb,0.24991e+01_rb /)
+      kao(:, 3,11,15) = (/ &
+        & 0.18334e+01_rb,0.16046e+01_rb,0.13758e+01_rb,0.12346e+01_rb,0.13019e+01_rb, &
+        & 0.15332e+01_rb,0.18320e+01_rb,0.21288e+01_rb,0.24477e+01_rb /)
+      kao(:, 4,11,15) = (/ &
+        & 0.17833e+01_rb,0.15608e+01_rb,0.13382e+01_rb,0.11928e+01_rb,0.12697e+01_rb, &
+        & 0.15019e+01_rb,0.17959e+01_rb,0.20867e+01_rb,0.23990e+01_rb /)
+      kao(:, 5,11,15) = (/ &
+        & 0.17385e+01_rb,0.15215e+01_rb,0.13045e+01_rb,0.11584e+01_rb,0.12412e+01_rb, &
+        & 0.14723e+01_rb,0.17610e+01_rb,0.20462e+01_rb,0.23526e+01_rb /)
+      kao(:, 1,12,15) = (/ &
+        & 0.21322e+01_rb,0.18661e+01_rb,0.16009e+01_rb,0.14913e+01_rb,0.15626e+01_rb, &
+        & 0.18065e+01_rb,0.21498e+01_rb,0.24997e+01_rb,0.28719e+01_rb /)
+      kao(:, 2,12,15) = (/ &
+        & 0.20605e+01_rb,0.18033e+01_rb,0.15462e+01_rb,0.14346e+01_rb,0.15183e+01_rb, &
+        & 0.17679e+01_rb,0.21055e+01_rb,0.24481e+01_rb,0.28126e+01_rb /)
+      kao(:, 3,12,15) = (/ &
+        & 0.20007e+01_rb,0.17509e+01_rb,0.15011e+01_rb,0.13841e+01_rb,0.14777e+01_rb, &
+        & 0.17312e+01_rb,0.20634e+01_rb,0.23990e+01_rb,0.27564e+01_rb /)
+      kao(:, 4,12,15) = (/ &
+        & 0.19501e+01_rb,0.17066e+01_rb,0.14631e+01_rb,0.13415e+01_rb,0.14420e+01_rb, &
+        & 0.16956e+01_rb,0.20218e+01_rb,0.23506e+01_rb,0.27007e+01_rb /)
+      kao(:, 5,12,15) = (/ &
+        & 0.19023e+01_rb,0.16648e+01_rb,0.14272e+01_rb,0.13048e+01_rb,0.14093e+01_rb, &
+        & 0.16619e+01_rb,0.19834e+01_rb,0.23060e+01_rb,0.26492e+01_rb /)
+      kao(:, 1,13,15) = (/ &
+        & 0.23283e+01_rb,0.20376e+01_rb,0.17570e+01_rb,0.16678e+01_rb,0.17574e+01_rb, &
+        & 0.20182e+01_rb,0.23943e+01_rb,0.27850e+01_rb,0.31979e+01_rb /)
+      kao(:, 2,13,15) = (/ &
+        & 0.22552e+01_rb,0.19735e+01_rb,0.16974e+01_rb,0.16068e+01_rb,0.17079e+01_rb, &
+        & 0.19757e+01_rb,0.23460e+01_rb,0.27289e+01_rb,0.31334e+01_rb /)
+      kao(:, 3,13,15) = (/ &
+        & 0.21945e+01_rb,0.19204e+01_rb,0.16488e+01_rb,0.15544e+01_rb,0.16639e+01_rb, &
+        & 0.19336e+01_rb,0.22972e+01_rb,0.26723e+01_rb,0.30681e+01_rb /)
+      kao(:, 4,13,15) = (/ &
+        & 0.21377e+01_rb,0.18706e+01_rb,0.16045e+01_rb,0.15082e+01_rb,0.16235e+01_rb, &
+        & 0.18922e+01_rb,0.22504e+01_rb,0.26179e+01_rb,0.30055e+01_rb /)
+      kao(:, 5,13,15) = (/ &
+        & 0.20822e+01_rb,0.18221e+01_rb,0.15623e+01_rb,0.14670e+01_rb,0.15845e+01_rb, &
+        & 0.18531e+01_rb,0.22061e+01_rb,0.25663e+01_rb,0.29464e+01_rb /)
+      kao(:, 1, 1,16) = (/ &
+        & 0.84891e+00_rb,0.74682e+00_rb,0.64540e+00_rb,0.54510e+00_rb,0.44671e+00_rb, &
+        & 0.34895e+00_rb,0.38105e+00_rb,0.44177e+00_rb,0.47725e+00_rb /)
+      kao(:, 2, 1,16) = (/ &
+        & 0.82292e+00_rb,0.72425e+00_rb,0.62615e+00_rb,0.52904e+00_rb,0.43334e+00_rb, &
+        & 0.33791e+00_rb,0.37758e+00_rb,0.43769e+00_rb,0.47292e+00_rb /)
+      kao(:, 3, 1,16) = (/ &
+        & 0.79766e+00_rb,0.70221e+00_rb,0.60725e+00_rb,0.51315e+00_rb,0.42001e+00_rb, &
+        & 0.32708e+00_rb,0.37351e+00_rb,0.43297e+00_rb,0.46789e+00_rb /)
+      kao(:, 4, 1,16) = (/ &
+        & 0.77341e+00_rb,0.68098e+00_rb,0.58899e+00_rb,0.49774e+00_rb,0.40711e+00_rb, &
+        & 0.31834e+00_rb,0.36899e+00_rb,0.42775e+00_rb,0.46227e+00_rb /)
+      kao(:, 5, 1,16) = (/ &
+        & 0.74989e+00_rb,0.66035e+00_rb,0.57119e+00_rb,0.48264e+00_rb,0.39437e+00_rb, &
+        & 0.32430e+00_rb,0.36416e+00_rb,0.42216e+00_rb,0.45636e+00_rb /)
+      kao(:, 1, 2,16) = (/ &
+        & 0.98489e+00_rb,0.86457e+00_rb,0.74461e+00_rb,0.62525e+00_rb,0.50699e+00_rb, &
+        & 0.39502e+00_rb,0.46270e+00_rb,0.53626e+00_rb,0.59246e+00_rb /)
+      kao(:, 2, 2,16) = (/ &
+        & 0.95110e+00_rb,0.83523e+00_rb,0.71967e+00_rb,0.60464e+00_rb,0.49055e+00_rb, &
+        & 0.38714e+00_rb,0.45775e+00_rb,0.53066e+00_rb,0.58669e+00_rb /)
+      kao(:, 3, 2,16) = (/ &
+        & 0.91868e+00_rb,0.80699e+00_rb,0.69557e+00_rb,0.58461e+00_rb,0.47447e+00_rb, &
+        & 0.38030e+00_rb,0.45287e+00_rb,0.52498e+00_rb,0.58057e+00_rb /)
+      kao(:, 4, 2,16) = (/ &
+        & 0.88783e+00_rb,0.78006e+00_rb,0.67253e+00_rb,0.56540e+00_rb,0.45894e+00_rb, &
+        & 0.37426e+00_rb,0.44739e+00_rb,0.51869e+00_rb,0.57355e+00_rb /)
+      kao(:, 5, 2,16) = (/ &
+        & 0.85824e+00_rb,0.75420e+00_rb,0.65037e+00_rb,0.54691e+00_rb,0.44407e+00_rb, &
+        & 0.37572e+00_rb,0.44151e+00_rb,0.51192e+00_rb,0.56619e+00_rb /)
+      kao(:, 1, 3,16) = (/ &
+        & 0.11382e+01_rb,0.99791e+00_rb,0.85785e+00_rb,0.71816e+00_rb,0.57913e+00_rb, &
+        & 0.47378e+00_rb,0.56732e+00_rb,0.65745e+00_rb,0.74321e+00_rb /)
+      kao(:, 2, 3,16) = (/ &
+        & 0.10944e+01_rb,0.95984e+00_rb,0.82550e+00_rb,0.69149e+00_rb,0.55807e+00_rb, &
+        & 0.46534e+00_rb,0.55716e+00_rb,0.64588e+00_rb,0.73020e+00_rb /)
+      kao(:, 3, 3,16) = (/ &
+        & 0.10534e+01_rb,0.92416e+00_rb,0.79509e+00_rb,0.66633e+00_rb,0.53808e+00_rb, &
+        & 0.45863e+00_rb,0.54915e+00_rb,0.63663e+00_rb,0.71995e+00_rb /)
+      kao(:, 4, 3,16) = (/ &
+        & 0.10141e+01_rb,0.88986e+00_rb,0.76582e+00_rb,0.64206e+00_rb,0.51870e+00_rb, &
+        & 0.45265e+00_rb,0.54212e+00_rb,0.62853e+00_rb,0.71089e+00_rb /)
+      kao(:, 5, 3,16) = (/ &
+        & 0.97757e+00_rb,0.85802e+00_rb,0.73862e+00_rb,0.61943e+00_rb,0.50068e+00_rb, &
+        & 0.44732e+00_rb,0.53486e+00_rb,0.62017e+00_rb,0.70154e+00_rb /)
+      kao(:, 1, 4,16) = (/ &
+        & 0.13027e+01_rb,0.11412e+01_rb,0.97988e+00_rb,0.81881e+00_rb,0.65819e+00_rb, &
+        & 0.58495e+00_rb,0.70040e+00_rb,0.81176e+00_rb,0.92845e+00_rb /)
+      kao(:, 2, 4,16) = (/ &
+        & 0.12473e+01_rb,0.10931e+01_rb,0.93894e+00_rb,0.78506e+00_rb,0.63160e+00_rb, &
+        & 0.57073e+00_rb,0.68340e+00_rb,0.79216e+00_rb,0.90610e+00_rb /)
+      kao(:, 3, 4,16) = (/ &
+        & 0.11956e+01_rb,0.10481e+01_rb,0.90063e+00_rb,0.75344e+00_rb,0.60663e+00_rb, &
+        & 0.55958e+00_rb,0.67003e+00_rb,0.77669e+00_rb,0.88836e+00_rb /)
+      kao(:, 4, 4,16) = (/ &
+        & 0.11480e+01_rb,0.10066e+01_rb,0.86532e+00_rb,0.72426e+00_rb,0.58351e+00_rb, &
+        & 0.54965e+00_rb,0.65819e+00_rb,0.76307e+00_rb,0.87291e+00_rb /)
+      kao(:, 5, 4,16) = (/ &
+        & 0.11042e+01_rb,0.96837e+00_rb,0.83267e+00_rb,0.69709e+00_rb,0.56180e+00_rb, &
+        & 0.54039e+00_rb,0.64710e+00_rb,0.75045e+00_rb,0.85825e+00_rb /)
+      kao(:, 1, 5,16) = (/ &
+        & 0.14755e+01_rb,0.12919e+01_rb,0.11084e+01_rb,0.92503e+00_rb,0.74199e+00_rb, &
+        & 0.72656e+00_rb,0.86992e+00_rb,0.10084e+01_rb,0.11593e+01_rb /)
+      kao(:, 2, 5,16) = (/ &
+        & 0.14077e+01_rb,0.12330e+01_rb,0.10584e+01_rb,0.88396e+00_rb,0.70985e+00_rb, &
+        & 0.70337e+00_rb,0.84221e+00_rb,0.97628e+00_rb,0.11223e+01_rb /)
+      kao(:, 3, 5,16) = (/ &
+        & 0.13473e+01_rb,0.11805e+01_rb,0.10138e+01_rb,0.84723e+00_rb,0.68084e+00_rb, &
+        & 0.68573e+00_rb,0.82117e+00_rb,0.95190e+00_rb,0.10943e+01_rb /)
+      kao(:, 4, 5,16) = (/ &
+        & 0.12931e+01_rb,0.11332e+01_rb,0.97336e+00_rb,0.81358e+00_rb,0.65399e+00_rb, &
+        & 0.67083e+00_rb,0.80321e+00_rb,0.93120e+00_rb,0.10704e+01_rb /)
+      kao(:, 5, 5,16) = (/ &
+        & 0.12425e+01_rb,0.10889e+01_rb,0.93535e+00_rb,0.78185e+00_rb,0.62849e+00_rb, &
+        & 0.65706e+00_rb,0.78689e+00_rb,0.91252e+00_rb,0.10486e+01_rb /)
+      kao(:, 1, 6,16) = (/ &
+        & 0.16632e+01_rb,0.14561e+01_rb,0.12491e+01_rb,0.10422e+01_rb,0.83545e+00_rb, &
+        & 0.90592e+00_rb,0.10850e+01_rb,0.12579e+01_rb,0.14491e+01_rb /)
+      kao(:, 2, 6,16) = (/ &
+        & 0.15885e+01_rb,0.13911e+01_rb,0.11938e+01_rb,0.99649e+00_rb,0.79932e+00_rb, &
+        & 0.87105e+00_rb,0.10430e+01_rb,0.12092e+01_rb,0.13933e+01_rb /)
+      kao(:, 3, 6,16) = (/ &
+        & 0.15219e+01_rb,0.13330e+01_rb,0.11441e+01_rb,0.95525e+00_rb,0.76651e+00_rb, &
+        & 0.84460e+00_rb,0.10114e+01_rb,0.11726e+01_rb,0.13510e+01_rb /)
+      kao(:, 4, 6,16) = (/ &
+        & 0.14602e+01_rb,0.12790e+01_rb,0.10978e+01_rb,0.91668e+00_rb,0.73549e+00_rb, &
+        & 0.82233e+00_rb,0.98468e+00_rb,0.11417e+01_rb,0.13152e+01_rb /)
+      kao(:, 5, 6,16) = (/ &
+        & 0.14027e+01_rb,0.12286e+01_rb,0.10546e+01_rb,0.88053e+00_rb,0.70846e+00_rb, &
+        & 0.80220e+00_rb,0.96072e+00_rb,0.11140e+01_rb,0.12832e+01_rb /)
+      kao(:, 1, 7,16) = (/ &
+        & 0.18802e+01_rb,0.16460e+01_rb,0.14119e+01_rb,0.11779e+01_rb,0.95036e+00_rb, &
+        & 0.11297e+01_rb,0.13528e+01_rb,0.15688e+01_rb,0.18094e+01_rb /)
+      kao(:, 2, 7,16) = (/ &
+        & 0.17989e+01_rb,0.15751e+01_rb,0.13512e+01_rb,0.11274e+01_rb,0.91055e+00_rb, &
+        & 0.10797e+01_rb,0.12930e+01_rb,0.14993e+01_rb,0.17294e+01_rb /)
+      kao(:, 3, 7,16) = (/ &
+        & 0.17245e+01_rb,0.15100e+01_rb,0.12954e+01_rb,0.10809e+01_rb,0.87508e+00_rb, &
+        & 0.10422e+01_rb,0.12481e+01_rb,0.14473e+01_rb,0.16693e+01_rb /)
+      kao(:, 4, 7,16) = (/ &
+        & 0.16543e+01_rb,0.14485e+01_rb,0.12427e+01_rb,0.10370e+01_rb,0.84724e+00_rb, &
+        & 0.10105e+01_rb,0.12102e+01_rb,0.14035e+01_rb,0.16185e+01_rb /)
+      kao(:, 5, 7,16) = (/ &
+        & 0.15884e+01_rb,0.13908e+01_rb,0.11932e+01_rb,0.99569e+00_rb,0.82331e+00_rb, &
+        & 0.98227e+00_rb,0.11764e+01_rb,0.13643e+01_rb,0.15734e+01_rb /)
+      kao(:, 1, 8,16) = (/ &
+        & 0.21327e+01_rb,0.18670e+01_rb,0.16012e+01_rb,0.13355e+01_rb,0.11430e+01_rb, &
+        & 0.14062e+01_rb,0.16843e+01_rb,0.19535e+01_rb,0.22540e+01_rb /)
+      kao(:, 2, 8,16) = (/ &
+        & 0.20434e+01_rb,0.17888e+01_rb,0.15342e+01_rb,0.12796e+01_rb,0.10891e+01_rb, &
+        & 0.13377e+01_rb,0.16020e+01_rb,0.18582e+01_rb,0.21442e+01_rb /)
+      kao(:, 3, 8,16) = (/ &
+        & 0.19592e+01_rb,0.17151e+01_rb,0.14711e+01_rb,0.12270e+01_rb,0.10443e+01_rb, &
+        & 0.12854e+01_rb,0.15395e+01_rb,0.17855e+01_rb,0.20605e+01_rb /)
+      kao(:, 4, 8,16) = (/ &
+        & 0.18795e+01_rb,0.16454e+01_rb,0.14112e+01_rb,0.11771e+01_rb,0.10093e+01_rb, &
+        & 0.12418e+01_rb,0.14873e+01_rb,0.17251e+01_rb,0.19905e+01_rb /)
+      kao(:, 5, 8,16) = (/ &
+        & 0.18040e+01_rb,0.15793e+01_rb,0.13546e+01_rb,0.11298e+01_rb,0.97893e+00_rb, &
+        & 0.12029e+01_rb,0.14409e+01_rb,0.16715e+01_rb,0.19284e+01_rb /)
+      kao(:, 1, 9,16) = (/ &
+        & 0.24263e+01_rb,0.21237e+01_rb,0.18212e+01_rb,0.15186e+01_rb,0.14038e+01_rb, &
+        & 0.17468e+01_rb,0.20923e+01_rb,0.24275e+01_rb,0.28010e+01_rb /)
+      kao(:, 2, 9,16) = (/ &
+        & 0.23266e+01_rb,0.20365e+01_rb,0.17464e+01_rb,0.14563e+01_rb,0.13334e+01_rb, &
+        & 0.16567e+01_rb,0.19843e+01_rb,0.23023e+01_rb,0.26565e+01_rb /)
+      kao(:, 3, 9,16) = (/ &
+        & 0.22311e+01_rb,0.19529e+01_rb,0.16747e+01_rb,0.13965e+01_rb,0.12741e+01_rb, &
+        & 0.15855e+01_rb,0.18989e+01_rb,0.22031e+01_rb,0.25421e+01_rb /)
+      kao(:, 4, 9,16) = (/ &
+        & 0.21400e+01_rb,0.18731e+01_rb,0.16063e+01_rb,0.13394e+01_rb,0.12261e+01_rb, &
+        & 0.15261e+01_rb,0.18280e+01_rb,0.21210e+01_rb,0.24473e+01_rb /)
+      kao(:, 5, 9,16) = (/ &
+        & 0.20537e+01_rb,0.17976e+01_rb,0.15415e+01_rb,0.12854e+01_rb,0.11844e+01_rb, &
+        & 0.14739e+01_rb,0.17653e+01_rb,0.20482e+01_rb,0.23631e+01_rb /)
+      kao(:, 1,10,16) = (/ &
+        & 0.27556e+01_rb,0.24117e+01_rb,0.20679e+01_rb,0.17241e+01_rb,0.17250e+01_rb, &
+        & 0.21531e+01_rb,0.25793e+01_rb,0.29930e+01_rb,0.34529e+01_rb /)
+      kao(:, 2,10,16) = (/ &
+        & 0.26436e+01_rb,0.23137e+01_rb,0.19838e+01_rb,0.16540e+01_rb,0.16343e+01_rb, &
+        & 0.20375e+01_rb,0.24406e+01_rb,0.28326e+01_rb,0.32672e+01_rb /)
+      kao(:, 3,10,16) = (/ &
+        & 0.25350e+01_rb,0.22187e+01_rb,0.19024e+01_rb,0.15861e+01_rb,0.15582e+01_rb, &
+        & 0.19443e+01_rb,0.23290e+01_rb,0.27026e+01_rb,0.31178e+01_rb /)
+      kao(:, 4,10,16) = (/ &
+        & 0.24300e+01_rb,0.21267e+01_rb,0.18235e+01_rb,0.15203e+01_rb,0.14955e+01_rb, &
+        & 0.18662e+01_rb,0.22353e+01_rb,0.25942e+01_rb,0.29924e+01_rb /)
+      kao(:, 5,10,16) = (/ &
+        & 0.23355e+01_rb,0.20440e+01_rb,0.17526e+01_rb,0.14611e+01_rb,0.14399e+01_rb, &
+        & 0.17966e+01_rb,0.21521e+01_rb,0.24975e+01_rb,0.28809e+01_rb /)
+      kao(:, 1,11,16) = (/ &
+        & 0.30736e+01_rb,0.26899e+01_rb,0.23062e+01_rb,0.19287e+01_rb,0.20594e+01_rb, &
+        & 0.25707e+01_rb,0.30796e+01_rb,0.35755e+01_rb,0.41218e+01_rb /)
+      kao(:, 2,11,16) = (/ &
+        & 0.29458e+01_rb,0.25780e+01_rb,0.22102e+01_rb,0.18490e+01_rb,0.19506e+01_rb, &
+        & 0.24353e+01_rb,0.29176e+01_rb,0.33867e+01_rb,0.39048e+01_rb /)
+      kao(:, 3,11,16) = (/ &
+        & 0.28287e+01_rb,0.24755e+01_rb,0.21223e+01_rb,0.17723e+01_rb,0.18621e+01_rb, &
+        & 0.23252e+01_rb,0.27855e+01_rb,0.32334e+01_rb,0.37281e+01_rb /)
+      kao(:, 4,11,16) = (/ &
+        & 0.27181e+01_rb,0.23787e+01_rb,0.20393e+01_rb,0.17010e+01_rb,0.17848e+01_rb, &
+        & 0.22284e+01_rb,0.26698e+01_rb,0.30991e+01_rb,0.35730e+01_rb /)
+      kao(:, 5,11,16) = (/ &
+        & 0.26214e+01_rb,0.22941e+01_rb,0.19667e+01_rb,0.16394e+01_rb,0.17149e+01_rb, &
+        & 0.21409e+01_rb,0.25649e+01_rb,0.29778e+01_rb,0.34326e+01_rb /)
+      kao(:, 1,12,16) = (/ &
+        & 0.34457e+01_rb,0.30154e+01_rb,0.25850e+01_rb,0.22002e+01_rb,0.24421e+01_rb, &
+        & 0.30491e+01_rb,0.36532e+01_rb,0.42422e+01_rb,0.48881e+01_rb /)
+      kao(:, 2,12,16) = (/ &
+        & 0.33132e+01_rb,0.28993e+01_rb,0.24855e+01_rb,0.21037e+01_rb,0.23175e+01_rb, &
+        & 0.28938e+01_rb,0.34673e+01_rb,0.40262e+01_rb,0.46397e+01_rb /)
+      kao(:, 3,12,16) = (/ &
+        & 0.31843e+01_rb,0.27866e+01_rb,0.23888e+01_rb,0.20132e+01_rb,0.22107e+01_rb, &
+        & 0.27603e+01_rb,0.33070e+01_rb,0.38403e+01_rb,0.44248e+01_rb /)
+      kao(:, 4,12,16) = (/ &
+        & 0.30610e+01_rb,0.26787e+01_rb,0.22963e+01_rb,0.19289e+01_rb,0.21145e+01_rb, &
+        & 0.26402e+01_rb,0.31632e+01_rb,0.36735e+01_rb,0.42326e+01_rb /)
+      kao(:, 5,12,16) = (/ &
+        & 0.29533e+01_rb,0.25844e+01_rb,0.22155e+01_rb,0.18569e+01_rb,0.20264e+01_rb, &
+        & 0.25300e+01_rb,0.30314e+01_rb,0.35205e+01_rb,0.40560e+01_rb /)
+      kao(:, 1,13,16) = (/ &
+        & 0.38898e+01_rb,0.34039e+01_rb,0.29179e+01_rb,0.25320e+01_rb,0.28809e+01_rb, &
+        & 0.35965e+01_rb,0.43091e+01_rb,0.50055e+01_rb,0.57650e+01_rb /)
+      kao(:, 2,13,16) = (/ &
+        & 0.37371e+01_rb,0.32702e+01_rb,0.28033e+01_rb,0.24146e+01_rb,0.27330e+01_rb, &
+        & 0.34120e+01_rb,0.40886e+01_rb,0.47494e+01_rb,0.54692e+01_rb /)
+      kao(:, 3,13,16) = (/ &
+        & 0.35846e+01_rb,0.31367e+01_rb,0.26889e+01_rb,0.23047e+01_rb,0.26019e+01_rb, &
+        & 0.32482e+01_rb,0.38921e+01_rb,0.45212e+01_rb,0.52066e+01_rb /)
+      kao(:, 4,13,16) = (/ &
+        & 0.34450e+01_rb,0.30146e+01_rb,0.25842e+01_rb,0.22048e+01_rb,0.24829e+01_rb, &
+        & 0.31006e+01_rb,0.37153e+01_rb,0.43162e+01_rb,0.49694e+01_rb /)
+      kao(:, 5,13,16) = (/ &
+        & 0.33226e+01_rb,0.29075e+01_rb,0.24923e+01_rb,0.21144e+01_rb,0.23741e+01_rb, &
+        & 0.29651e+01_rb,0.35532e+01_rb,0.41282e+01_rb,0.47532e+01_rb /)
+  
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kbo(:,13, 1) = (/ &
+        & 0.78344e-03_rb,0.81478e-03_rb,0.83713e-03_rb,0.85265e-03_rb,0.85991e-03_rb /)
+      kbo(:,14, 1) = (/ &
+        & 0.65374e-03_rb,0.67963e-03_rb,0.69840e-03_rb,0.71131e-03_rb,0.71719e-03_rb /)
+      kbo(:,15, 1) = (/ &
+        & 0.55587e-03_rb,0.57751e-03_rb,0.59343e-03_rb,0.60410e-03_rb,0.60993e-03_rb /)
+      kbo(:,16, 1) = (/ &
+        & 0.48145e-03_rb,0.49780e-03_rb,0.51251e-03_rb,0.52093e-03_rb,0.52706e-03_rb /)
+      kbo(:,17, 1) = (/ &
+        & 0.42610e-03_rb,0.43577e-03_rb,0.44892e-03_rb,0.45812e-03_rb,0.46352e-03_rb /)
+      kbo(:,18, 1) = (/ &
+        & 0.38503e-03_rb,0.38849e-03_rb,0.40094e-03_rb,0.41067e-03_rb,0.41529e-03_rb /)
+      kbo(:,19, 1) = (/ &
+        & 0.35025e-03_rb,0.34902e-03_rb,0.35803e-03_rb,0.36759e-03_rb,0.37429e-03_rb /)
+      kbo(:,20, 1) = (/ &
+        & 0.30557e-03_rb,0.30381e-03_rb,0.30983e-03_rb,0.31782e-03_rb,0.32429e-03_rb /)
+      kbo(:,21, 1) = (/ &
+        & 0.26346e-03_rb,0.26127e-03_rb,0.26616e-03_rb,0.27270e-03_rb,0.27830e-03_rb /)
+      kbo(:,22, 1) = (/ &
+        & 0.22630e-03_rb,0.22463e-03_rb,0.22867e-03_rb,0.23419e-03_rb,0.23829e-03_rb /)
+      kbo(:,23, 1) = (/ &
+        & 0.19498e-03_rb,0.19376e-03_rb,0.19644e-03_rb,0.20096e-03_rb,0.20404e-03_rb /)
+      kbo(:,24, 1) = (/ &
+        & 0.16839e-03_rb,0.16687e-03_rb,0.16820e-03_rb,0.17215e-03_rb,0.17490e-03_rb /)
+      kbo(:,25, 1) = (/ &
+        & 0.14494e-03_rb,0.14347e-03_rb,0.14334e-03_rb,0.14728e-03_rb,0.14954e-03_rb /)
+      kbo(:,26, 1) = (/ &
+        & 0.12363e-03_rb,0.12241e-03_rb,0.12233e-03_rb,0.12518e-03_rb,0.12767e-03_rb /)
+      kbo(:,27, 1) = (/ &
+        & 0.10560e-03_rb,0.10482e-03_rb,0.10446e-03_rb,0.10681e-03_rb,0.10897e-03_rb /)
+      kbo(:,28, 1) = (/ &
+        & 0.90453e-04_rb,0.89921e-04_rb,0.89199e-04_rb,0.91278e-04_rb,0.93235e-04_rb /)
+      kbo(:,29, 1) = (/ &
+        & 0.77854e-04_rb,0.77467e-04_rb,0.76947e-04_rb,0.77977e-04_rb,0.79713e-04_rb /)
+      kbo(:,30, 1) = (/ &
+        & 0.67346e-04_rb,0.67074e-04_rb,0.66981e-04_rb,0.67340e-04_rb,0.68453e-04_rb /)
+      kbo(:,31, 1) = (/ &
+        & 0.58739e-04_rb,0.58583e-04_rb,0.58517e-04_rb,0.58421e-04_rb,0.59277e-04_rb /)
+      kbo(:,32, 1) = (/ &
+        & 0.51671e-04_rb,0.51476e-04_rb,0.51254e-04_rb,0.51199e-04_rb,0.51510e-04_rb /)
+      kbo(:,33, 1) = (/ &
+        & 0.45523e-04_rb,0.45406e-04_rb,0.45028e-04_rb,0.44849e-04_rb,0.44977e-04_rb /)
+      kbo(:,34, 1) = (/ &
+        & 0.40256e-04_rb,0.40062e-04_rb,0.39751e-04_rb,0.39416e-04_rb,0.39181e-04_rb /)
+      kbo(:,35, 1) = (/ &
+        & 0.35762e-04_rb,0.35429e-04_rb,0.35245e-04_rb,0.34916e-04_rb,0.34484e-04_rb /)
+      kbo(:,36, 1) = (/ &
+        & 0.31776e-04_rb,0.31666e-04_rb,0.31200e-04_rb,0.31013e-04_rb,0.30768e-04_rb /)
+      kbo(:,37, 1) = (/ &
+        & 0.26934e-04_rb,0.26971e-04_rb,0.26615e-04_rb,0.26355e-04_rb,0.26214e-04_rb /)
+      kbo(:,38, 1) = (/ &
+        & 0.22652e-04_rb,0.22874e-04_rb,0.22686e-04_rb,0.22466e-04_rb,0.22266e-04_rb /)
+      kbo(:,39, 1) = (/ &
+        & 0.18970e-04_rb,0.19273e-04_rb,0.19385e-04_rb,0.19198e-04_rb,0.19016e-04_rb /)
+      kbo(:,40, 1) = (/ &
+        & 0.15533e-04_rb,0.15831e-04_rb,0.15964e-04_rb,0.15836e-04_rb,0.15700e-04_rb /)
+      kbo(:,41, 1) = (/ &
+        & 0.12668e-04_rb,0.12826e-04_rb,0.12999e-04_rb,0.13018e-04_rb,0.12872e-04_rb /)
+      kbo(:,42, 1) = (/ &
+        & 0.10356e-04_rb,0.10475e-04_rb,0.10620e-04_rb,0.10666e-04_rb,0.10580e-04_rb /)
+      kbo(:,43, 1) = (/ &
+        & 0.83551e-05_rb,0.84490e-05_rb,0.85217e-05_rb,0.86140e-05_rb,0.86044e-05_rb /)
+      kbo(:,44, 1) = (/ &
+        & 0.66829e-05_rb,0.68022e-05_rb,0.68791e-05_rb,0.69429e-05_rb,0.69314e-05_rb /)
+      kbo(:,45, 1) = (/ &
+        & 0.53860e-05_rb,0.54494e-05_rb,0.55341e-05_rb,0.55544e-05_rb,0.55761e-05_rb /)
+      kbo(:,46, 1) = (/ &
+        & 0.43207e-05_rb,0.43601e-05_rb,0.44477e-05_rb,0.44761e-05_rb,0.44727e-05_rb /)
+      kbo(:,47, 1) = (/ &
+        & 0.34852e-05_rb,0.34924e-05_rb,0.35555e-05_rb,0.35928e-05_rb,0.35957e-05_rb /)
+      kbo(:,48, 1) = (/ &
+        & 0.27913e-05_rb,0.28024e-05_rb,0.28395e-05_rb,0.28713e-05_rb,0.28836e-05_rb /)
+      kbo(:,49, 1) = (/ &
+        & 0.22267e-05_rb,0.22549e-05_rb,0.22736e-05_rb,0.22769e-05_rb,0.23083e-05_rb /)
+      kbo(:,50, 1) = (/ &
+        & 0.17814e-05_rb,0.18056e-05_rb,0.18272e-05_rb,0.18178e-05_rb,0.18340e-05_rb /)
+      kbo(:,51, 1) = (/ &
+        & 0.14202e-05_rb,0.14390e-05_rb,0.14605e-05_rb,0.14515e-05_rb,0.14607e-05_rb /)
+      kbo(:,52, 1) = (/ &
+        & 0.11328e-05_rb,0.11511e-05_rb,0.11629e-05_rb,0.11627e-05_rb,0.11618e-05_rb /)
+      kbo(:,53, 1) = (/ &
+        & 0.90478e-06_rb,0.91291e-06_rb,0.92251e-06_rb,0.92910e-06_rb,0.92898e-06_rb /)
+      kbo(:,54, 1) = (/ &
+        & 0.71737e-06_rb,0.72444e-06_rb,0.73271e-06_rb,0.73646e-06_rb,0.74079e-06_rb /)
+      kbo(:,55, 1) = (/ &
+        & 0.56522e-06_rb,0.57444e-06_rb,0.57690e-06_rb,0.58444e-06_rb,0.59006e-06_rb /)
+      kbo(:,56, 1) = (/ &
+        & 0.44522e-06_rb,0.45152e-06_rb,0.45592e-06_rb,0.46208e-06_rb,0.46721e-06_rb /)
+      kbo(:,57, 1) = (/ &
+        & 0.35045e-06_rb,0.35432e-06_rb,0.36035e-06_rb,0.36444e-06_rb,0.36942e-06_rb /)
+      kbo(:,58, 1) = (/ &
+        & 0.27513e-06_rb,0.27793e-06_rb,0.28330e-06_rb,0.28729e-06_rb,0.29229e-06_rb /)
+      kbo(:,59, 1) = (/ &
+        & 0.21608e-06_rb,0.21966e-06_rb,0.22301e-06_rb,0.22740e-06_rb,0.23129e-06_rb /)
+      kbo(:,13, 2) = (/ &
+        & 0.41669e-02_rb,0.42141e-02_rb,0.42434e-02_rb,0.42683e-02_rb,0.42755e-02_rb /)
+      kbo(:,14, 2) = (/ &
+        & 0.34875e-02_rb,0.35201e-02_rb,0.35377e-02_rb,0.35547e-02_rb,0.35629e-02_rb /)
+      kbo(:,15, 2) = (/ &
+        & 0.29417e-02_rb,0.29682e-02_rb,0.29797e-02_rb,0.29877e-02_rb,0.29948e-02_rb /)
+      kbo(:,16, 2) = (/ &
+        & 0.25072e-02_rb,0.25337e-02_rb,0.25373e-02_rb,0.25423e-02_rb,0.25464e-02_rb /)
+      kbo(:,17, 2) = (/ &
+        & 0.21640e-02_rb,0.21948e-02_rb,0.21974e-02_rb,0.21951e-02_rb,0.21930e-02_rb /)
+      kbo(:,18, 2) = (/ &
+        & 0.18910e-02_rb,0.19229e-02_rb,0.19301e-02_rb,0.19201e-02_rb,0.19153e-02_rb /)
+      kbo(:,19, 2) = (/ &
+        & 0.16495e-02_rb,0.16848e-02_rb,0.16944e-02_rb,0.16885e-02_rb,0.16779e-02_rb /)
+      kbo(:,20, 2) = (/ &
+        & 0.14018e-02_rb,0.14333e-02_rb,0.14424e-02_rb,0.14394e-02_rb,0.14287e-02_rb /)
+      kbo(:,21, 2) = (/ &
+        & 0.11832e-02_rb,0.12125e-02_rb,0.12189e-02_rb,0.12151e-02_rb,0.12082e-02_rb /)
+      kbo(:,22, 2) = (/ &
+        & 0.99669e-03_rb,0.10233e-02_rb,0.10268e-02_rb,0.10250e-02_rb,0.10191e-02_rb /)
+      kbo(:,23, 2) = (/ &
+        & 0.83734e-03_rb,0.86220e-03_rb,0.86642e-03_rb,0.86487e-03_rb,0.86054e-03_rb /)
+      kbo(:,24, 2) = (/ &
+        & 0.70349e-03_rb,0.72654e-03_rb,0.73243e-03_rb,0.73077e-03_rb,0.72754e-03_rb /)
+      kbo(:,25, 2) = (/ &
+        & 0.59070e-03_rb,0.61044e-03_rb,0.61929e-03_rb,0.61773e-03_rb,0.61583e-03_rb /)
+      kbo(:,26, 2) = (/ &
+        & 0.49716e-03_rb,0.51139e-03_rb,0.52115e-03_rb,0.52139e-03_rb,0.52023e-03_rb /)
+      kbo(:,27, 2) = (/ &
+        & 0.41822e-03_rb,0.42737e-03_rb,0.43808e-03_rb,0.43978e-03_rb,0.43884e-03_rb /)
+      kbo(:,28, 2) = (/ &
+        & 0.35061e-03_rb,0.35848e-03_rb,0.36841e-03_rb,0.37095e-03_rb,0.37053e-03_rb /)
+      kbo(:,29, 2) = (/ &
+        & 0.29391e-03_rb,0.30227e-03_rb,0.30912e-03_rb,0.31376e-03_rb,0.31382e-03_rb /)
+      kbo(:,30, 2) = (/ &
+        & 0.24878e-03_rb,0.25551e-03_rb,0.25990e-03_rb,0.26493e-03_rb,0.26717e-03_rb /)
+      kbo(:,31, 2) = (/ &
+        & 0.21146e-03_rb,0.21606e-03_rb,0.21973e-03_rb,0.22385e-03_rb,0.22711e-03_rb /)
+      kbo(:,32, 2) = (/ &
+        & 0.17989e-03_rb,0.18248e-03_rb,0.18678e-03_rb,0.18914e-03_rb,0.19265e-03_rb /)
+      kbo(:,33, 2) = (/ &
+        & 0.15377e-03_rb,0.15569e-03_rb,0.15798e-03_rb,0.16109e-03_rb,0.16313e-03_rb /)
+      kbo(:,34, 2) = (/ &
+        & 0.13129e-03_rb,0.13289e-03_rb,0.13431e-03_rb,0.13679e-03_rb,0.13869e-03_rb /)
+      kbo(:,35, 2) = (/ &
+        & 0.11225e-03_rb,0.11370e-03_rb,0.11480e-03_rb,0.11616e-03_rb,0.11774e-03_rb /)
+      kbo(:,36, 2) = (/ &
+        & 0.96722e-04_rb,0.97093e-04_rb,0.98641e-04_rb,0.99964e-04_rb,0.10029e-03_rb /)
+      kbo(:,37, 2) = (/ &
+        & 0.81278e-04_rb,0.81350e-04_rb,0.82442e-04_rb,0.83555e-04_rb,0.83990e-04_rb /)
+      kbo(:,38, 2) = (/ &
+        & 0.68481e-04_rb,0.68398e-04_rb,0.68899e-04_rb,0.69737e-04_rb,0.70187e-04_rb /)
+      kbo(:,39, 2) = (/ &
+        & 0.57588e-04_rb,0.57895e-04_rb,0.57814e-04_rb,0.58095e-04_rb,0.58861e-04_rb /)
+      kbo(:,40, 2) = (/ &
+        & 0.47541e-04_rb,0.47609e-04_rb,0.47587e-04_rb,0.47727e-04_rb,0.48149e-04_rb /)
+      kbo(:,41, 2) = (/ &
+        & 0.39099e-04_rb,0.39119e-04_rb,0.39164e-04_rb,0.39161e-04_rb,0.39530e-04_rb /)
+      kbo(:,42, 2) = (/ &
+        & 0.32129e-04_rb,0.32067e-04_rb,0.32113e-04_rb,0.32128e-04_rb,0.32332e-04_rb /)
+      kbo(:,43, 2) = (/ &
+        & 0.26339e-04_rb,0.26195e-04_rb,0.26218e-04_rb,0.26313e-04_rb,0.26301e-04_rb /)
+      kbo(:,44, 2) = (/ &
+        & 0.21510e-04_rb,0.21341e-04_rb,0.21297e-04_rb,0.21378e-04_rb,0.21395e-04_rb /)
+      kbo(:,45, 2) = (/ &
+        & 0.17530e-04_rb,0.17454e-04_rb,0.17341e-04_rb,0.17352e-04_rb,0.17454e-04_rb /)
+      kbo(:,46, 2) = (/ &
+        & 0.14267e-04_rb,0.14213e-04_rb,0.14118e-04_rb,0.14076e-04_rb,0.14192e-04_rb /)
+      kbo(:,47, 2) = (/ &
+        & 0.11510e-04_rb,0.11593e-04_rb,0.11522e-04_rb,0.11431e-04_rb,0.11494e-04_rb /)
+      kbo(:,48, 2) = (/ &
+        & 0.92607e-05_rb,0.93963e-05_rb,0.93931e-05_rb,0.93302e-05_rb,0.93175e-05_rb /)
+      kbo(:,49, 2) = (/ &
+        & 0.74566e-05_rb,0.75640e-05_rb,0.76551e-05_rb,0.76195e-05_rb,0.75706e-05_rb /)
+      kbo(:,50, 2) = (/ &
+        & 0.60069e-05_rb,0.60789e-05_rb,0.61866e-05_rb,0.62136e-05_rb,0.61878e-05_rb /)
+      kbo(:,51, 2) = (/ &
+        & 0.48719e-05_rb,0.49189e-05_rb,0.49852e-05_rb,0.50599e-05_rb,0.50406e-05_rb /)
+      kbo(:,52, 2) = (/ &
+        & 0.39542e-05_rb,0.39622e-05_rb,0.40023e-05_rb,0.40853e-05_rb,0.41134e-05_rb /)
+      kbo(:,53, 2) = (/ &
+        & 0.31898e-05_rb,0.32108e-05_rb,0.32348e-05_rb,0.32873e-05_rb,0.33341e-05_rb /)
+      kbo(:,54, 2) = (/ &
+        & 0.25786e-05_rb,0.26009e-05_rb,0.26192e-05_rb,0.26504e-05_rb,0.26983e-05_rb /)
+      kbo(:,55, 2) = (/ &
+        & 0.20942e-05_rb,0.21017e-05_rb,0.21274e-05_rb,0.21442e-05_rb,0.21775e-05_rb /)
+      kbo(:,56, 2) = (/ &
+        & 0.16959e-05_rb,0.17018e-05_rb,0.17251e-05_rb,0.17374e-05_rb,0.17575e-05_rb /)
+      kbo(:,57, 2) = (/ &
+        & 0.13662e-05_rb,0.13805e-05_rb,0.13926e-05_rb,0.14091e-05_rb,0.14210e-05_rb /)
+      kbo(:,58, 2) = (/ &
+        & 0.10989e-05_rb,0.11199e-05_rb,0.11269e-05_rb,0.11436e-05_rb,0.11502e-05_rb /)
+      kbo(:,59, 2) = (/ &
+        & 0.88647e-06_rb,0.91054e-06_rb,0.91770e-06_rb,0.92872e-06_rb,0.93619e-06_rb /)
+      kbo(:,13, 3) = (/ &
+        & 0.91432e-02_rb,0.90907e-02_rb,0.90565e-02_rb,0.89984e-02_rb,0.89385e-02_rb /)
+      kbo(:,14, 3) = (/ &
+        & 0.76455e-02_rb,0.75988e-02_rb,0.75709e-02_rb,0.75150e-02_rb,0.74448e-02_rb /)
+      kbo(:,15, 3) = (/ &
+        & 0.64231e-02_rb,0.63826e-02_rb,0.63449e-02_rb,0.62999e-02_rb,0.62412e-02_rb /)
+      kbo(:,16, 3) = (/ &
+        & 0.54475e-02_rb,0.53998e-02_rb,0.53630e-02_rb,0.53153e-02_rb,0.52574e-02_rb /)
+      kbo(:,17, 3) = (/ &
+        & 0.46876e-02_rb,0.46363e-02_rb,0.45869e-02_rb,0.45398e-02_rb,0.44911e-02_rb /)
+      kbo(:,18, 3) = (/ &
+        & 0.40806e-02_rb,0.40265e-02_rb,0.39670e-02_rb,0.39185e-02_rb,0.38714e-02_rb /)
+      kbo(:,19, 3) = (/ &
+        & 0.35897e-02_rb,0.35272e-02_rb,0.34695e-02_rb,0.34174e-02_rb,0.33721e-02_rb /)
+      kbo(:,20, 3) = (/ &
+        & 0.30557e-02_rb,0.30003e-02_rb,0.29518e-02_rb,0.29027e-02_rb,0.28623e-02_rb /)
+      kbo(:,21, 3) = (/ &
+        & 0.25840e-02_rb,0.25346e-02_rb,0.24907e-02_rb,0.24530e-02_rb,0.24134e-02_rb /)
+      kbo(:,22, 3) = (/ &
+        & 0.21784e-02_rb,0.21342e-02_rb,0.20972e-02_rb,0.20639e-02_rb,0.20310e-02_rb /)
+      kbo(:,23, 3) = (/ &
+        & 0.18415e-02_rb,0.17987e-02_rb,0.17683e-02_rb,0.17405e-02_rb,0.17162e-02_rb /)
+      kbo(:,24, 3) = (/ &
+        & 0.15599e-02_rb,0.15210e-02_rb,0.14940e-02_rb,0.14715e-02_rb,0.14516e-02_rb /)
+      kbo(:,25, 3) = (/ &
+        & 0.13214e-02_rb,0.12882e-02_rb,0.12631e-02_rb,0.12449e-02_rb,0.12269e-02_rb /)
+      kbo(:,26, 3) = (/ &
+        & 0.11148e-02_rb,0.10885e-02_rb,0.10663e-02_rb,0.10485e-02_rb,0.10339e-02_rb /)
+      kbo(:,27, 3) = (/ &
+        & 0.94180e-03_rb,0.92291e-03_rb,0.90201e-03_rb,0.88582e-03_rb,0.87360e-03_rb /)
+      kbo(:,28, 3) = (/ &
+        & 0.79929e-03_rb,0.78315e-03_rb,0.76525e-03_rb,0.75093e-03_rb,0.73943e-03_rb /)
+      kbo(:,29, 3) = (/ &
+        & 0.68110e-03_rb,0.66580e-03_rb,0.65234e-03_rb,0.63866e-03_rb,0.62757e-03_rb /)
+      kbo(:,30, 3) = (/ &
+        & 0.57975e-03_rb,0.56820e-03_rb,0.55835e-03_rb,0.54581e-03_rb,0.53624e-03_rb /)
+      kbo(:,31, 3) = (/ &
+        & 0.49551e-03_rb,0.48804e-03_rb,0.47841e-03_rb,0.46871e-03_rb,0.45833e-03_rb /)
+      kbo(:,32, 3) = (/ &
+        & 0.42572e-03_rb,0.42052e-03_rb,0.41099e-03_rb,0.40377e-03_rb,0.39554e-03_rb /)
+      kbo(:,33, 3) = (/ &
+        & 0.36528e-03_rb,0.36135e-03_rb,0.35701e-03_rb,0.34948e-03_rb,0.34456e-03_rb /)
+      kbo(:,34, 3) = (/ &
+        & 0.31415e-03_rb,0.31283e-03_rb,0.30989e-03_rb,0.30612e-03_rb,0.30054e-03_rb /)
+      kbo(:,35, 3) = (/ &
+        & 0.27352e-03_rb,0.27102e-03_rb,0.26979e-03_rb,0.26826e-03_rb,0.26448e-03_rb /)
+      kbo(:,36, 3) = (/ &
+        & 0.23967e-03_rb,0.23742e-03_rb,0.23456e-03_rb,0.23474e-03_rb,0.23316e-03_rb /)
+      kbo(:,37, 3) = (/ &
+        & 0.20338e-03_rb,0.20142e-03_rb,0.19919e-03_rb,0.19875e-03_rb,0.19818e-03_rb /)
+      kbo(:,38, 3) = (/ &
+        & 0.17257e-03_rb,0.17079e-03_rb,0.16890e-03_rb,0.16818e-03_rb,0.16767e-03_rb /)
+      kbo(:,39, 3) = (/ &
+        & 0.14733e-03_rb,0.14508e-03_rb,0.14396e-03_rb,0.14263e-03_rb,0.14203e-03_rb /)
+      kbo(:,40, 3) = (/ &
+        & 0.12225e-03_rb,0.12069e-03_rb,0.11949e-03_rb,0.11833e-03_rb,0.11808e-03_rb /)
+      kbo(:,41, 3) = (/ &
+        & 0.10097e-03_rb,0.10002e-03_rb,0.98765e-04_rb,0.97895e-04_rb,0.97754e-04_rb /)
+      kbo(:,42, 3) = (/ &
+        & 0.83346e-04_rb,0.82796e-04_rb,0.81713e-04_rb,0.81007e-04_rb,0.80814e-04_rb /)
+      kbo(:,43, 3) = (/ &
+        & 0.68346e-04_rb,0.68043e-04_rb,0.67367e-04_rb,0.66543e-04_rb,0.66059e-04_rb /)
+      kbo(:,44, 3) = (/ &
+        & 0.55818e-04_rb,0.55703e-04_rb,0.55284e-04_rb,0.54584e-04_rb,0.54239e-04_rb /)
+      kbo(:,45, 3) = (/ &
+        & 0.45332e-04_rb,0.45541e-04_rb,0.45337e-04_rb,0.44929e-04_rb,0.44433e-04_rb /)
+      kbo(:,46, 3) = (/ &
+        & 0.36748e-04_rb,0.37223e-04_rb,0.37146e-04_rb,0.36884e-04_rb,0.36439e-04_rb /)
+      kbo(:,47, 3) = (/ &
+        & 0.29601e-04_rb,0.30289e-04_rb,0.30405e-04_rb,0.30257e-04_rb,0.29929e-04_rb /)
+      kbo(:,48, 3) = (/ &
+        & 0.23826e-04_rb,0.24579e-04_rb,0.24815e-04_rb,0.24762e-04_rb,0.24572e-04_rb /)
+      kbo(:,49, 3) = (/ &
+        & 0.19377e-04_rb,0.19814e-04_rb,0.20191e-04_rb,0.20227e-04_rb,0.20080e-04_rb /)
+      kbo(:,50, 3) = (/ &
+        & 0.15665e-04_rb,0.15965e-04_rb,0.16366e-04_rb,0.16467e-04_rb,0.16386e-04_rb /)
+      kbo(:,51, 3) = (/ &
+        & 0.12631e-04_rb,0.12915e-04_rb,0.13203e-04_rb,0.13389e-04_rb,0.13403e-04_rb /)
+      kbo(:,52, 3) = (/ &
+        & 0.10160e-04_rb,0.10402e-04_rb,0.10609e-04_rb,0.10858e-04_rb,0.10900e-04_rb /)
+      kbo(:,53, 3) = (/ &
+        & 0.81514e-05_rb,0.83717e-05_rb,0.85717e-05_rb,0.87255e-05_rb,0.88490e-05_rb /)
+      kbo(:,54, 3) = (/ &
+        & 0.65924e-05_rb,0.67623e-05_rb,0.69218e-05_rb,0.70363e-05_rb,0.71744e-05_rb /)
+      kbo(:,55, 3) = (/ &
+        & 0.53378e-05_rb,0.54823e-05_rb,0.56002e-05_rb,0.57079e-05_rb,0.58136e-05_rb /)
+      kbo(:,56, 3) = (/ &
+        & 0.43093e-05_rb,0.44306e-05_rb,0.45341e-05_rb,0.46443e-05_rb,0.47053e-05_rb /)
+      kbo(:,57, 3) = (/ &
+        & 0.34880e-05_rb,0.35826e-05_rb,0.36738e-05_rb,0.37492e-05_rb,0.38094e-05_rb /)
+      kbo(:,58, 3) = (/ &
+        & 0.28214e-05_rb,0.28911e-05_rb,0.29636e-05_rb,0.30269e-05_rb,0.30943e-05_rb /)
+      kbo(:,59, 3) = (/ &
+        & 0.23049e-05_rb,0.23610e-05_rb,0.24232e-05_rb,0.24708e-05_rb,0.25266e-05_rb /)
+      kbo(:,13, 4) = (/ &
+        & 0.16886e-01_rb,0.17177e-01_rb,0.17415e-01_rb,0.17613e-01_rb,0.17771e-01_rb /)
+      kbo(:,14, 4) = (/ &
+        & 0.14297e-01_rb,0.14572e-01_rb,0.14791e-01_rb,0.14925e-01_rb,0.15051e-01_rb /)
+      kbo(:,15, 4) = (/ &
+        & 0.12142e-01_rb,0.12342e-01_rb,0.12507e-01_rb,0.12640e-01_rb,0.12754e-01_rb /)
+      kbo(:,16, 4) = (/ &
+        & 0.10284e-01_rb,0.10422e-01_rb,0.10545e-01_rb,0.10662e-01_rb,0.10740e-01_rb /)
+      kbo(:,17, 4) = (/ &
+        & 0.87377e-02_rb,0.88415e-02_rb,0.89329e-02_rb,0.90175e-02_rb,0.90716e-02_rb /)
+      kbo(:,18, 4) = (/ &
+        & 0.74766e-02_rb,0.75366e-02_rb,0.76038e-02_rb,0.76818e-02_rb,0.77135e-02_rb /)
+      kbo(:,19, 4) = (/ &
+        & 0.64241e-02_rb,0.64546e-02_rb,0.65027e-02_rb,0.65449e-02_rb,0.65755e-02_rb /)
+      kbo(:,20, 4) = (/ &
+        & 0.54390e-02_rb,0.54528e-02_rb,0.54854e-02_rb,0.55046e-02_rb,0.55309e-02_rb /)
+      kbo(:,21, 4) = (/ &
+        & 0.45856e-02_rb,0.45888e-02_rb,0.46080e-02_rb,0.46219e-02_rb,0.46381e-02_rb /)
+      kbo(:,22, 4) = (/ &
+        & 0.38581e-02_rb,0.38555e-02_rb,0.38631e-02_rb,0.38756e-02_rb,0.38888e-02_rb /)
+      kbo(:,23, 4) = (/ &
+        & 0.32522e-02_rb,0.32442e-02_rb,0.32437e-02_rb,0.32522e-02_rb,0.32616e-02_rb /)
+      kbo(:,24, 4) = (/ &
+        & 0.27421e-02_rb,0.27302e-02_rb,0.27267e-02_rb,0.27311e-02_rb,0.27351e-02_rb /)
+      kbo(:,25, 4) = (/ &
+        & 0.23082e-02_rb,0.22984e-02_rb,0.22916e-02_rb,0.22928e-02_rb,0.22950e-02_rb /)
+      kbo(:,26, 4) = (/ &
+        & 0.19386e-02_rb,0.19299e-02_rb,0.19241e-02_rb,0.19234e-02_rb,0.19234e-02_rb /)
+      kbo(:,27, 4) = (/ &
+        & 0.16295e-02_rb,0.16227e-02_rb,0.16172e-02_rb,0.16132e-02_rb,0.16138e-02_rb /)
+      kbo(:,28, 4) = (/ &
+        & 0.13714e-02_rb,0.13653e-02_rb,0.13589e-02_rb,0.13555e-02_rb,0.13562e-02_rb /)
+      kbo(:,29, 4) = (/ &
+        & 0.11583e-02_rb,0.11513e-02_rb,0.11440e-02_rb,0.11416e-02_rb,0.11458e-02_rb /)
+      kbo(:,30, 4) = (/ &
+        & 0.98213e-03_rb,0.97362e-03_rb,0.96774e-03_rb,0.96738e-03_rb,0.97898e-03_rb /)
+      kbo(:,31, 4) = (/ &
+        & 0.83694e-03_rb,0.82733e-03_rb,0.82506e-03_rb,0.82584e-03_rb,0.83454e-03_rb /)
+      kbo(:,32, 4) = (/ &
+        & 0.71631e-03_rb,0.70972e-03_rb,0.70944e-03_rb,0.70782e-03_rb,0.71382e-03_rb /)
+      kbo(:,33, 4) = (/ &
+        & 0.62056e-03_rb,0.61607e-03_rb,0.61112e-03_rb,0.60974e-03_rb,0.61416e-03_rb /)
+      kbo(:,34, 4) = (/ &
+        & 0.54260e-03_rb,0.53530e-03_rb,0.53018e-03_rb,0.53196e-03_rb,0.53190e-03_rb /)
+      kbo(:,35, 4) = (/ &
+        & 0.47557e-03_rb,0.47060e-03_rb,0.46470e-03_rb,0.46463e-03_rb,0.46278e-03_rb /)
+      kbo(:,36, 4) = (/ &
+        & 0.42108e-03_rb,0.41716e-03_rb,0.41356e-03_rb,0.41052e-03_rb,0.40671e-03_rb /)
+      kbo(:,37, 4) = (/ &
+        & 0.36059e-03_rb,0.35753e-03_rb,0.35465e-03_rb,0.35204e-03_rb,0.34625e-03_rb /)
+      kbo(:,38, 4) = (/ &
+        & 0.30926e-03_rb,0.30682e-03_rb,0.30403e-03_rb,0.30126e-03_rb,0.29597e-03_rb /)
+      kbo(:,39, 4) = (/ &
+        & 0.26586e-03_rb,0.26397e-03_rb,0.26023e-03_rb,0.25654e-03_rb,0.25399e-03_rb /)
+      kbo(:,40, 4) = (/ &
+        & 0.22228e-03_rb,0.22028e-03_rb,0.21711e-03_rb,0.21418e-03_rb,0.21203e-03_rb /)
+      kbo(:,41, 4) = (/ &
+        & 0.18516e-03_rb,0.18277e-03_rb,0.18056e-03_rb,0.17797e-03_rb,0.17615e-03_rb /)
+      kbo(:,42, 4) = (/ &
+        & 0.15367e-03_rb,0.15191e-03_rb,0.15012e-03_rb,0.14803e-03_rb,0.14667e-03_rb /)
+      kbo(:,43, 4) = (/ &
+        & 0.12696e-03_rb,0.12546e-03_rb,0.12398e-03_rb,0.12239e-03_rb,0.12042e-03_rb /)
+      kbo(:,44, 4) = (/ &
+        & 0.10470e-03_rb,0.10323e-03_rb,0.10199e-03_rb,0.10082e-03_rb,0.99093e-04_rb /)
+      kbo(:,45, 4) = (/ &
+        & 0.86543e-04_rb,0.84786e-04_rb,0.83972e-04_rb,0.82789e-04_rb,0.81392e-04_rb /)
+      kbo(:,46, 4) = (/ &
+        & 0.71529e-04_rb,0.69963e-04_rb,0.68982e-04_rb,0.67996e-04_rb,0.66867e-04_rb /)
+      kbo(:,47, 4) = (/ &
+        & 0.59457e-04_rb,0.57707e-04_rb,0.56668e-04_rb,0.55899e-04_rb,0.54959e-04_rb /)
+      kbo(:,48, 4) = (/ &
+        & 0.49467e-04_rb,0.47679e-04_rb,0.46593e-04_rb,0.45887e-04_rb,0.45090e-04_rb /)
+      kbo(:,49, 4) = (/ &
+        & 0.40766e-04_rb,0.39435e-04_rb,0.38281e-04_rb,0.37548e-04_rb,0.37003e-04_rb /)
+      kbo(:,50, 4) = (/ &
+        & 0.33628e-04_rb,0.32753e-04_rb,0.31623e-04_rb,0.30893e-04_rb,0.30385e-04_rb /)
+      kbo(:,51, 4) = (/ &
+        & 0.27865e-04_rb,0.27055e-04_rb,0.26162e-04_rb,0.25458e-04_rb,0.24898e-04_rb /)
+      kbo(:,52, 4) = (/ &
+        & 0.22934e-04_rb,0.22328e-04_rb,0.21731e-04_rb,0.20990e-04_rb,0.20456e-04_rb /)
+      kbo(:,53, 4) = (/ &
+        & 0.18846e-04_rb,0.18445e-04_rb,0.17912e-04_rb,0.17357e-04_rb,0.16833e-04_rb /)
+      kbo(:,54, 4) = (/ &
+        & 0.15388e-04_rb,0.15212e-04_rb,0.14808e-04_rb,0.14414e-04_rb,0.13935e-04_rb /)
+      kbo(:,55, 4) = (/ &
+        & 0.12598e-04_rb,0.12543e-04_rb,0.12261e-04_rb,0.11957e-04_rb,0.11571e-04_rb /)
+      kbo(:,56, 4) = (/ &
+        & 0.10381e-04_rb,0.10344e-04_rb,0.10166e-04_rb,0.98775e-05_rb,0.96020e-05_rb /)
+      kbo(:,57, 4) = (/ &
+        & 0.85457e-05_rb,0.84639e-05_rb,0.83932e-05_rb,0.81757e-05_rb,0.79545e-05_rb /)
+      kbo(:,58, 4) = (/ &
+        & 0.70397e-05_rb,0.69486e-05_rb,0.69316e-05_rb,0.67696e-05_rb,0.65859e-05_rb /)
+      kbo(:,59, 4) = (/ &
+        & 0.58257e-05_rb,0.57596e-05_rb,0.57448e-05_rb,0.56300e-05_rb,0.54831e-05_rb /)
+      kbo(:,13, 5) = (/ &
+        & 0.33040e-01_rb,0.33623e-01_rb,0.34360e-01_rb,0.35360e-01_rb,0.36383e-01_rb /)
+      kbo(:,14, 5) = (/ &
+        & 0.28634e-01_rb,0.29145e-01_rb,0.29913e-01_rb,0.30773e-01_rb,0.31595e-01_rb /)
+      kbo(:,15, 5) = (/ &
+        & 0.24852e-01_rb,0.25387e-01_rb,0.26038e-01_rb,0.26736e-01_rb,0.27406e-01_rb /)
+      kbo(:,16, 5) = (/ &
+        & 0.21426e-01_rb,0.21995e-01_rb,0.22531e-01_rb,0.23082e-01_rb,0.23575e-01_rb /)
+      kbo(:,17, 5) = (/ &
+        & 0.18563e-01_rb,0.19011e-01_rb,0.19492e-01_rb,0.19940e-01_rb,0.20337e-01_rb /)
+      kbo(:,18, 5) = (/ &
+        & 0.16067e-01_rb,0.16476e-01_rb,0.16902e-01_rb,0.17235e-01_rb,0.17579e-01_rb /)
+      kbo(:,19, 5) = (/ &
+        & 0.13911e-01_rb,0.14318e-01_rb,0.14657e-01_rb,0.14999e-01_rb,0.15265e-01_rb /)
+      kbo(:,20, 5) = (/ &
+        & 0.11889e-01_rb,0.12220e-01_rb,0.12522e-01_rb,0.12793e-01_rb,0.13028e-01_rb /)
+      kbo(:,21, 5) = (/ &
+        & 0.10107e-01_rb,0.10365e-01_rb,0.10626e-01_rb,0.10840e-01_rb,0.11030e-01_rb /)
+      kbo(:,22, 5) = (/ &
+        & 0.85828e-02_rb,0.88037e-02_rb,0.90066e-02_rb,0.91828e-02_rb,0.93108e-02_rb /)
+      kbo(:,23, 5) = (/ &
+        & 0.72873e-02_rb,0.74698e-02_rb,0.76229e-02_rb,0.77606e-02_rb,0.78812e-02_rb /)
+      kbo(:,24, 5) = (/ &
+        & 0.61731e-02_rb,0.63486e-02_rb,0.64551e-02_rb,0.65686e-02_rb,0.66826e-02_rb /)
+      kbo(:,25, 5) = (/ &
+        & 0.52349e-02_rb,0.53827e-02_rb,0.54728e-02_rb,0.55581e-02_rb,0.56691e-02_rb /)
+      kbo(:,26, 5) = (/ &
+        & 0.44343e-02_rb,0.45615e-02_rb,0.46303e-02_rb,0.47140e-02_rb,0.48058e-02_rb /)
+      kbo(:,27, 5) = (/ &
+        & 0.37566e-02_rb,0.38599e-02_rb,0.39250e-02_rb,0.39996e-02_rb,0.40739e-02_rb /)
+      kbo(:,28, 5) = (/ &
+        & 0.31898e-02_rb,0.32700e-02_rb,0.33284e-02_rb,0.33863e-02_rb,0.34483e-02_rb /)
+      kbo(:,29, 5) = (/ &
+        & 0.27069e-02_rb,0.27638e-02_rb,0.28173e-02_rb,0.28668e-02_rb,0.29159e-02_rb /)
+      kbo(:,30, 5) = (/ &
+        & 0.22952e-02_rb,0.23414e-02_rb,0.23862e-02_rb,0.24319e-02_rb,0.25045e-02_rb /)
+      kbo(:,31, 5) = (/ &
+        & 0.19469e-02_rb,0.19866e-02_rb,0.20269e-02_rb,0.20617e-02_rb,0.21285e-02_rb /)
+      kbo(:,32, 5) = (/ &
+        & 0.16569e-02_rb,0.16912e-02_rb,0.17225e-02_rb,0.17537e-02_rb,0.18151e-02_rb /)
+      kbo(:,33, 5) = (/ &
+        & 0.14159e-02_rb,0.14407e-02_rb,0.14672e-02_rb,0.14987e-02_rb,0.15568e-02_rb /)
+      kbo(:,34, 5) = (/ &
+        & 0.12124e-02_rb,0.12314e-02_rb,0.12565e-02_rb,0.13096e-02_rb,0.13455e-02_rb /)
+      kbo(:,35, 5) = (/ &
+        & 0.10402e-02_rb,0.10574e-02_rb,0.10852e-02_rb,0.11323e-02_rb,0.11671e-02_rb /)
+      kbo(:,36, 5) = (/ &
+        & 0.89606e-03_rb,0.91393e-03_rb,0.93957e-03_rb,0.98258e-03_rb,0.10142e-02_rb /)
+      kbo(:,37, 5) = (/ &
+        & 0.75556e-03_rb,0.77347e-03_rb,0.79494e-03_rb,0.83337e-03_rb,0.86466e-03_rb /)
+      kbo(:,38, 5) = (/ &
+        & 0.63793e-03_rb,0.65386e-03_rb,0.67373e-03_rb,0.70925e-03_rb,0.73610e-03_rb /)
+      kbo(:,39, 5) = (/ &
+        & 0.53995e-03_rb,0.55394e-03_rb,0.57091e-03_rb,0.59316e-03_rb,0.62725e-03_rb /)
+      kbo(:,40, 5) = (/ &
+        & 0.44830e-03_rb,0.46041e-03_rb,0.47605e-03_rb,0.49517e-03_rb,0.52406e-03_rb /)
+      kbo(:,41, 5) = (/ &
+        & 0.37113e-03_rb,0.38143e-03_rb,0.39555e-03_rb,0.41230e-03_rb,0.43648e-03_rb /)
+      kbo(:,42, 5) = (/ &
+        & 0.30743e-03_rb,0.31617e-03_rb,0.32840e-03_rb,0.34246e-03_rb,0.36323e-03_rb /)
+      kbo(:,43, 5) = (/ &
+        & 0.25237e-03_rb,0.25981e-03_rb,0.27013e-03_rb,0.28179e-03_rb,0.29414e-03_rb /)
+      kbo(:,44, 5) = (/ &
+        & 0.20643e-03_rb,0.21247e-03_rb,0.22138e-03_rb,0.23093e-03_rb,0.24175e-03_rb /)
+      kbo(:,45, 5) = (/ &
+        & 0.16882e-03_rb,0.17379e-03_rb,0.18072e-03_rb,0.18917e-03_rb,0.19837e-03_rb /)
+      kbo(:,46, 5) = (/ &
+        & 0.13808e-03_rb,0.14140e-03_rb,0.14740e-03_rb,0.15462e-03_rb,0.16243e-03_rb /)
+      kbo(:,47, 5) = (/ &
+        & 0.11262e-03_rb,0.11523e-03_rb,0.12010e-03_rb,0.12571e-03_rb,0.13225e-03_rb /)
+      kbo(:,48, 5) = (/ &
+        & 0.91738e-04_rb,0.93816e-04_rb,0.97414e-04_rb,0.10204e-03_rb,0.10733e-03_rb /)
+      kbo(:,49, 5) = (/ &
+        & 0.74533e-04_rb,0.76356e-04_rb,0.78756e-04_rb,0.82697e-04_rb,0.86848e-04_rb /)
+      kbo(:,50, 5) = (/ &
+        & 0.60870e-04_rb,0.62211e-04_rb,0.64031e-04_rb,0.67056e-04_rb,0.70590e-04_rb /)
+      kbo(:,51, 5) = (/ &
+        & 0.49547e-04_rb,0.50786e-04_rb,0.52181e-04_rb,0.54428e-04_rb,0.57574e-04_rb /)
+      kbo(:,52, 5) = (/ &
+        & 0.40457e-04_rb,0.41364e-04_rb,0.42403e-04_rb,0.44095e-04_rb,0.46746e-04_rb /)
+      kbo(:,53, 5) = (/ &
+        & 0.33032e-04_rb,0.33540e-04_rb,0.34449e-04_rb,0.35762e-04_rb,0.37780e-04_rb /)
+      kbo(:,54, 5) = (/ &
+        & 0.27201e-04_rb,0.27411e-04_rb,0.28166e-04_rb,0.29168e-04_rb,0.30744e-04_rb /)
+      kbo(:,55, 5) = (/ &
+        & 0.22471e-04_rb,0.22532e-04_rb,0.23075e-04_rb,0.23887e-04_rb,0.25092e-04_rb /)
+      kbo(:,56, 5) = (/ &
+        & 0.18480e-04_rb,0.18516e-04_rb,0.18857e-04_rb,0.19555e-04_rb,0.20483e-04_rb /)
+      kbo(:,57, 5) = (/ &
+        & 0.15198e-04_rb,0.15262e-04_rb,0.15424e-04_rb,0.15989e-04_rb,0.16742e-04_rb /)
+      kbo(:,58, 5) = (/ &
+        & 0.12523e-04_rb,0.12562e-04_rb,0.12648e-04_rb,0.13089e-04_rb,0.13686e-04_rb /)
+      kbo(:,59, 5) = (/ &
+        & 0.10416e-04_rb,0.10433e-04_rb,0.10536e-04_rb,0.10919e-04_rb,0.11421e-04_rb /)
+      kbo(:,13, 6) = (/ &
+        & 0.69718e-01_rb,0.71167e-01_rb,0.72961e-01_rb,0.74885e-01_rb,0.77322e-01_rb /)
+      kbo(:,14, 6) = (/ &
+        & 0.62182e-01_rb,0.63649e-01_rb,0.65193e-01_rb,0.67193e-01_rb,0.69746e-01_rb /)
+      kbo(:,15, 6) = (/ &
+        & 0.55177e-01_rb,0.56711e-01_rb,0.58414e-01_rb,0.60422e-01_rb,0.62756e-01_rb /)
+      kbo(:,16, 6) = (/ &
+        & 0.48867e-01_rb,0.50234e-01_rb,0.52023e-01_rb,0.54055e-01_rb,0.56254e-01_rb /)
+      kbo(:,17, 6) = (/ &
+        & 0.43174e-01_rb,0.44610e-01_rb,0.46287e-01_rb,0.48302e-01_rb,0.50389e-01_rb /)
+      kbo(:,18, 6) = (/ &
+        & 0.38339e-01_rb,0.39749e-01_rb,0.41335e-01_rb,0.43237e-01_rb,0.45123e-01_rb /)
+      kbo(:,19, 6) = (/ &
+        & 0.34315e-01_rb,0.35543e-01_rb,0.37065e-01_rb,0.38754e-01_rb,0.40597e-01_rb /)
+      kbo(:,20, 6) = (/ &
+        & 0.30036e-01_rb,0.31291e-01_rb,0.32637e-01_rb,0.34202e-01_rb,0.35839e-01_rb /)
+      kbo(:,21, 6) = (/ &
+        & 0.26135e-01_rb,0.27343e-01_rb,0.28574e-01_rb,0.30000e-01_rb,0.31460e-01_rb /)
+      kbo(:,22, 6) = (/ &
+        & 0.22750e-01_rb,0.23832e-01_rb,0.25080e-01_rb,0.26299e-01_rb,0.27580e-01_rb /)
+      kbo(:,23, 6) = (/ &
+        & 0.19795e-01_rb,0.20915e-01_rb,0.22028e-01_rb,0.23060e-01_rb,0.24140e-01_rb /)
+      kbo(:,24, 6) = (/ &
+        & 0.17353e-01_rb,0.18346e-01_rb,0.19305e-01_rb,0.20238e-01_rb,0.21103e-01_rb /)
+      kbo(:,25, 6) = (/ &
+        & 0.15226e-01_rb,0.16064e-01_rb,0.16955e-01_rb,0.17722e-01_rb,0.18477e-01_rb /)
+      kbo(:,26, 6) = (/ &
+        & 0.13309e-01_rb,0.14087e-01_rb,0.14848e-01_rb,0.15498e-01_rb,0.16180e-01_rb /)
+      kbo(:,27, 6) = (/ &
+        & 0.11623e-01_rb,0.12295e-01_rb,0.12913e-01_rb,0.13525e-01_rb,0.14113e-01_rb /)
+      kbo(:,28, 6) = (/ &
+        & 0.10147e-01_rb,0.10710e-01_rb,0.11240e-01_rb,0.11795e-01_rb,0.12384e-01_rb /)
+      kbo(:,29, 6) = (/ &
+        & 0.87968e-02_rb,0.92904e-02_rb,0.97797e-02_rb,0.10288e-01_rb,0.10828e-01_rb /)
+      kbo(:,30, 6) = (/ &
+        & 0.76490e-02_rb,0.80771e-02_rb,0.85219e-02_rb,0.90152e-02_rb,0.97888e-02_rb /)
+      kbo(:,31, 6) = (/ &
+        & 0.66330e-02_rb,0.70376e-02_rb,0.74659e-02_rb,0.79113e-02_rb,0.86622e-02_rb /)
+      kbo(:,32, 6) = (/ &
+        & 0.58073e-02_rb,0.61697e-02_rb,0.65754e-02_rb,0.70309e-02_rb,0.77115e-02_rb /)
+      kbo(:,33, 6) = (/ &
+        & 0.51062e-02_rb,0.54682e-02_rb,0.58582e-02_rb,0.62737e-02_rb,0.69163e-02_rb /)
+      kbo(:,34, 6) = (/ &
+        & 0.45302e-02_rb,0.48855e-02_rb,0.52639e-02_rb,0.58227e-02_rb,0.62719e-02_rb /)
+      kbo(:,35, 6) = (/ &
+        & 0.40254e-02_rb,0.43599e-02_rb,0.47158e-02_rb,0.52732e-02_rb,0.57228e-02_rb /)
+      kbo(:,36, 6) = (/ &
+        & 0.35647e-02_rb,0.38837e-02_rb,0.42167e-02_rb,0.47705e-02_rb,0.52032e-02_rb /)
+      kbo(:,37, 6) = (/ &
+        & 0.30730e-02_rb,0.33561e-02_rb,0.36823e-02_rb,0.41868e-02_rb,0.45932e-02_rb /)
+      kbo(:,38, 6) = (/ &
+        & 0.26407e-02_rb,0.29052e-02_rb,0.32061e-02_rb,0.36781e-02_rb,0.40664e-02_rb /)
+      kbo(:,39, 6) = (/ &
+        & 0.22667e-02_rb,0.25156e-02_rb,0.28017e-02_rb,0.31173e-02_rb,0.36136e-02_rb /)
+      kbo(:,40, 6) = (/ &
+        & 0.19056e-02_rb,0.21267e-02_rb,0.23879e-02_rb,0.26789e-02_rb,0.31309e-02_rb /)
+      kbo(:,41, 6) = (/ &
+        & 0.15967e-02_rb,0.17952e-02_rb,0.20263e-02_rb,0.22865e-02_rb,0.27062e-02_rb /)
+      kbo(:,42, 6) = (/ &
+        & 0.13343e-02_rb,0.15081e-02_rb,0.17167e-02_rb,0.19538e-02_rb,0.23416e-02_rb /)
+      kbo(:,43, 6) = (/ &
+        & 0.10981e-02_rb,0.12492e-02_rb,0.14292e-02_rb,0.16430e-02_rb,0.19013e-02_rb /)
+      kbo(:,44, 6) = (/ &
+        & 0.89464e-03_rb,0.10267e-02_rb,0.11827e-02_rb,0.13698e-02_rb,0.16046e-02_rb /)
+      kbo(:,45, 6) = (/ &
+        & 0.72683e-03_rb,0.83985e-03_rb,0.97469e-03_rb,0.11376e-02_rb,0.13459e-02_rb /)
+      kbo(:,46, 6) = (/ &
+        & 0.58610e-03_rb,0.68242e-03_rb,0.79873e-03_rb,0.94079e-03_rb,0.11248e-02_rb /)
+      kbo(:,47, 6) = (/ &
+        & 0.46823e-03_rb,0.54958e-03_rb,0.64876e-03_rb,0.77111e-03_rb,0.93276e-03_rb /)
+      kbo(:,48, 6) = (/ &
+        & 0.37202e-03_rb,0.44089e-03_rb,0.52431e-03_rb,0.62811e-03_rb,0.76979e-03_rb /)
+      kbo(:,49, 6) = (/ &
+        & 0.29424e-03_rb,0.35087e-03_rb,0.42017e-03_rb,0.50926e-03_rb,0.63166e-03_rb /)
+      kbo(:,50, 6) = (/ &
+        & 0.23381e-03_rb,0.28036e-03_rb,0.33854e-03_rb,0.41547e-03_rb,0.52066e-03_rb /)
+      kbo(:,51, 6) = (/ &
+        & 0.18542e-03_rb,0.22410e-03_rb,0.27211e-03_rb,0.33806e-03_rb,0.42775e-03_rb /)
+      kbo(:,52, 6) = (/ &
+        & 0.14646e-03_rb,0.17824e-03_rb,0.21799e-03_rb,0.27400e-03_rb,0.34964e-03_rb /)
+      kbo(:,53, 6) = (/ &
+        & 0.11499e-03_rb,0.14049e-03_rb,0.17412e-03_rb,0.22038e-03_rb,0.28435e-03_rb /)
+      kbo(:,54, 6) = (/ &
+        & 0.91160e-04_rb,0.11217e-03_rb,0.13972e-03_rb,0.17793e-03_rb,0.23213e-03_rb /)
+      kbo(:,55, 6) = (/ &
+        & 0.72474e-04_rb,0.89606e-04_rb,0.11228e-03_rb,0.14368e-03_rb,0.18928e-03_rb /)
+      kbo(:,56, 6) = (/ &
+        & 0.57463e-04_rb,0.71291e-04_rb,0.89786e-04_rb,0.11554e-03_rb,0.15352e-03_rb /)
+      kbo(:,57, 6) = (/ &
+        & 0.45287e-04_rb,0.56571e-04_rb,0.71524e-04_rb,0.92319e-04_rb,0.12382e-03_rb /)
+      kbo(:,58, 6) = (/ &
+        & 0.35841e-04_rb,0.44939e-04_rb,0.57025e-04_rb,0.73710e-04_rb,0.99673e-04_rb /)
+      kbo(:,59, 6) = (/ &
+        & 0.29941e-04_rb,0.37721e-04_rb,0.48119e-04_rb,0.62420e-04_rb,0.85059e-04_rb /)
+      kbo(:,13, 7) = (/ &
+        & 0.16189e+00_rb,0.16561e+00_rb,0.16999e+00_rb,0.17514e+00_rb,0.18068e+00_rb /)
+      kbo(:,14, 7) = (/ &
+        & 0.14981e+00_rb,0.15416e+00_rb,0.15917e+00_rb,0.16420e+00_rb,0.16989e+00_rb /)
+      kbo(:,15, 7) = (/ &
+        & 0.13875e+00_rb,0.14297e+00_rb,0.14757e+00_rb,0.15249e+00_rb,0.15852e+00_rb /)
+      kbo(:,16, 7) = (/ &
+        & 0.12672e+00_rb,0.13073e+00_rb,0.13523e+00_rb,0.14037e+00_rb,0.14640e+00_rb /)
+      kbo(:,17, 7) = (/ &
+        & 0.11530e+00_rb,0.11958e+00_rb,0.12450e+00_rb,0.12975e+00_rb,0.13596e+00_rb /)
+      kbo(:,18, 7) = (/ &
+        & 0.10572e+00_rb,0.11005e+00_rb,0.11482e+00_rb,0.12031e+00_rb,0.12674e+00_rb /)
+      kbo(:,19, 7) = (/ &
+        & 0.97798e-01_rb,0.10221e+00_rb,0.10713e+00_rb,0.11251e+00_rb,0.11882e+00_rb /)
+      kbo(:,20, 7) = (/ &
+        & 0.88438e-01_rb,0.93059e-01_rb,0.98290e-01_rb,0.10406e+00_rb,0.11034e+00_rb /)
+      kbo(:,21, 7) = (/ &
+        & 0.79615e-01_rb,0.84383e-01_rb,0.89776e-01_rb,0.95707e-01_rb,0.10218e+00_rb /)
+      kbo(:,22, 7) = (/ &
+        & 0.71663e-01_rb,0.76568e-01_rb,0.81968e-01_rb,0.88106e-01_rb,0.94703e-01_rb /)
+      kbo(:,23, 7) = (/ &
+        & 0.64729e-01_rb,0.69601e-01_rb,0.75178e-01_rb,0.81445e-01_rb,0.88072e-01_rb /)
+      kbo(:,24, 7) = (/ &
+        & 0.58713e-01_rb,0.63692e-01_rb,0.69398e-01_rb,0.75609e-01_rb,0.82402e-01_rb /)
+      kbo(:,25, 7) = (/ &
+        & 0.53422e-01_rb,0.58504e-01_rb,0.64255e-01_rb,0.70582e-01_rb,0.77266e-01_rb /)
+      kbo(:,26, 7) = (/ &
+        & 0.48884e-01_rb,0.53907e-01_rb,0.59754e-01_rb,0.66093e-01_rb,0.72781e-01_rb /)
+      kbo(:,27, 7) = (/ &
+        & 0.44782e-01_rb,0.49959e-01_rb,0.55649e-01_rb,0.61937e-01_rb,0.68517e-01_rb /)
+      kbo(:,28, 7) = (/ &
+        & 0.41164e-01_rb,0.46305e-01_rb,0.52009e-01_rb,0.58205e-01_rb,0.64389e-01_rb /)
+      kbo(:,29, 7) = (/ &
+        & 0.37976e-01_rb,0.43033e-01_rb,0.48696e-01_rb,0.54470e-01_rb,0.60707e-01_rb /)
+      kbo(:,30, 7) = (/ &
+        & 0.35210e-01_rb,0.40258e-01_rb,0.45653e-01_rb,0.51435e-01_rb,0.59091e-01_rb /)
+      kbo(:,31, 7) = (/ &
+        & 0.32774e-01_rb,0.37557e-01_rb,0.43028e-01_rb,0.48762e-01_rb,0.56208e-01_rb /)
+      kbo(:,32, 7) = (/ &
+        & 0.30628e-01_rb,0.35555e-01_rb,0.40840e-01_rb,0.46513e-01_rb,0.53917e-01_rb /)
+      kbo(:,33, 7) = (/ &
+        & 0.29120e-01_rb,0.33908e-01_rb,0.39209e-01_rb,0.44801e-01_rb,0.52179e-01_rb /)
+      kbo(:,34, 7) = (/ &
+        & 0.27843e-01_rb,0.32610e-01_rb,0.37873e-01_rb,0.45101e-01_rb,0.51127e-01_rb /)
+      kbo(:,35, 7) = (/ &
+        & 0.26429e-01_rb,0.31201e-01_rb,0.36480e-01_rb,0.43796e-01_rb,0.49886e-01_rb /)
+      kbo(:,36, 7) = (/ &
+        & 0.24910e-01_rb,0.29603e-01_rb,0.34935e-01_rb,0.42317e-01_rb,0.48474e-01_rb /)
+      kbo(:,37, 7) = (/ &
+        & 0.22623e-01_rb,0.27186e-01_rb,0.32364e-01_rb,0.39709e-01_rb,0.45895e-01_rb /)
+      kbo(:,38, 7) = (/ &
+        & 0.20536e-01_rb,0.25035e-01_rb,0.30138e-01_rb,0.37341e-01_rb,0.43584e-01_rb /)
+      kbo(:,39, 7) = (/ &
+        & 0.18744e-01_rb,0.23143e-01_rb,0.28133e-01_rb,0.33754e-01_rb,0.41569e-01_rb /)
+      kbo(:,40, 7) = (/ &
+        & 0.16632e-01_rb,0.20751e-01_rb,0.25556e-01_rb,0.30972e-01_rb,0.38593e-01_rb /)
+      kbo(:,41, 7) = (/ &
+        & 0.14671e-01_rb,0.18541e-01_rb,0.23110e-01_rb,0.28292e-01_rb,0.35702e-01_rb /)
+      kbo(:,42, 7) = (/ &
+        & 0.12909e-01_rb,0.16573e-01_rb,0.20901e-01_rb,0.25885e-01_rb,0.32997e-01_rb /)
+      kbo(:,43, 7) = (/ &
+        & 0.11155e-01_rb,0.14521e-01_rb,0.18561e-01_rb,0.23268e-01_rb,0.28558e-01_rb /)
+      kbo(:,44, 7) = (/ &
+        & 0.95144e-02_rb,0.12576e-01_rb,0.16313e-01_rb,0.20662e-01_rb,0.25638e-01_rb /)
+      kbo(:,45, 7) = (/ &
+        & 0.80643e-02_rb,0.10847e-01_rb,0.14290e-01_rb,0.18347e-01_rb,0.23034e-01_rb /)
+      kbo(:,46, 7) = (/ &
+        & 0.67589e-02_rb,0.92659e-02_rb,0.12372e-01_rb,0.16082e-01_rb,0.20456e-01_rb /)
+      kbo(:,47, 7) = (/ &
+        & 0.55482e-02_rb,0.77474e-02_rb,0.10528e-01_rb,0.13920e-01_rb,0.17966e-01_rb /)
+      kbo(:,48, 7) = (/ &
+        & 0.45013e-02_rb,0.64175e-02_rb,0.88907e-02_rb,0.11958e-01_rb,0.15638e-01_rb /)
+      kbo(:,49, 7) = (/ &
+        & 0.36173e-02_rb,0.52743e-02_rb,0.74530e-02_rb,0.10200e-01_rb,0.13544e-01_rb /)
+      kbo(:,50, 7) = (/ &
+        & 0.29073e-02_rb,0.43372e-02_rb,0.62514e-02_rb,0.87078e-02_rb,0.11757e-01_rb /)
+      kbo(:,51, 7) = (/ &
+        & 0.23200e-02_rb,0.35429e-02_rb,0.52236e-02_rb,0.74160e-02_rb,0.10190e-01_rb /)
+      kbo(:,52, 7) = (/ &
+        & 0.18398e-02_rb,0.28704e-02_rb,0.43321e-02_rb,0.62743e-02_rb,0.87585e-02_rb /)
+      kbo(:,53, 7) = (/ &
+        & 0.14394e-02_rb,0.22999e-02_rb,0.35535e-02_rb,0.52615e-02_rb,0.74854e-02_rb /)
+      kbo(:,54, 7) = (/ &
+        & 0.11368e-02_rb,0.18545e-02_rb,0.29326e-02_rb,0.44372e-02_rb,0.64347e-02_rb /)
+      kbo(:,55, 7) = (/ &
+        & 0.89467e-03_rb,0.14935e-02_rb,0.24197e-02_rb,0.37410e-02_rb,0.55222e-02_rb /)
+      kbo(:,56, 7) = (/ &
+        & 0.69687e-03_rb,0.11894e-02_rb,0.19763e-02_rb,0.31286e-02_rb,0.47149e-02_rb /)
+      kbo(:,57, 7) = (/ &
+        & 0.53791e-03_rb,0.93747e-03_rb,0.15990e-02_rb,0.25976e-02_rb,0.39986e-02_rb /)
+      kbo(:,58, 7) = (/ &
+        & 0.41410e-03_rb,0.73971e-03_rb,0.12907e-02_rb,0.21482e-02_rb,0.33858e-02_rb /)
+      kbo(:,59, 7) = (/ &
+        & 0.35405e-03_rb,0.64717e-03_rb,0.11503e-02_rb,0.19466e-02_rb,0.31094e-02_rb /)
+      kbo(:,13, 8) = (/ &
+        & 0.45516e+00_rb,0.46955e+00_rb,0.48450e+00_rb,0.50029e+00_rb,0.51769e+00_rb /)
+      kbo(:,14, 8) = (/ &
+        & 0.43991e+00_rb,0.45312e+00_rb,0.46646e+00_rb,0.48116e+00_rb,0.49718e+00_rb /)
+      kbo(:,15, 8) = (/ &
+        & 0.42871e+00_rb,0.44246e+00_rb,0.45762e+00_rb,0.47406e+00_rb,0.49132e+00_rb /)
+      kbo(:,16, 8) = (/ &
+        & 0.40699e+00_rb,0.42153e+00_rb,0.43710e+00_rb,0.45468e+00_rb,0.47435e+00_rb /)
+      kbo(:,17, 8) = (/ &
+        & 0.38538e+00_rb,0.39940e+00_rb,0.41418e+00_rb,0.43146e+00_rb,0.45140e+00_rb /)
+      kbo(:,18, 8) = (/ &
+        & 0.36235e+00_rb,0.37741e+00_rb,0.39391e+00_rb,0.41121e+00_rb,0.43054e+00_rb /)
+      kbo(:,19, 8) = (/ &
+        & 0.34180e+00_rb,0.35677e+00_rb,0.37295e+00_rb,0.39070e+00_rb,0.41121e+00_rb /)
+      kbo(:,20, 8) = (/ &
+        & 0.31818e+00_rb,0.33243e+00_rb,0.34824e+00_rb,0.36683e+00_rb,0.38832e+00_rb /)
+      kbo(:,21, 8) = (/ &
+        & 0.29454e+00_rb,0.30892e+00_rb,0.32519e+00_rb,0.34434e+00_rb,0.36621e+00_rb /)
+      kbo(:,22, 8) = (/ &
+        & 0.27292e+00_rb,0.28819e+00_rb,0.30567e+00_rb,0.32553e+00_rb,0.34730e+00_rb /)
+      kbo(:,23, 8) = (/ &
+        & 0.25455e+00_rb,0.27053e+00_rb,0.28810e+00_rb,0.30845e+00_rb,0.33065e+00_rb /)
+      kbo(:,24, 8) = (/ &
+        & 0.23920e+00_rb,0.25523e+00_rb,0.27293e+00_rb,0.29370e+00_rb,0.31644e+00_rb /)
+      kbo(:,25, 8) = (/ &
+        & 0.22572e+00_rb,0.24152e+00_rb,0.26024e+00_rb,0.28092e+00_rb,0.30402e+00_rb /)
+      kbo(:,26, 8) = (/ &
+        & 0.21333e+00_rb,0.23053e+00_rb,0.24913e+00_rb,0.27069e+00_rb,0.29445e+00_rb /)
+      kbo(:,27, 8) = (/ &
+        & 0.20216e+00_rb,0.22006e+00_rb,0.23987e+00_rb,0.26172e+00_rb,0.28552e+00_rb /)
+      kbo(:,28, 8) = (/ &
+        & 0.19243e+00_rb,0.21106e+00_rb,0.23162e+00_rb,0.25373e+00_rb,0.27880e+00_rb /)
+      kbo(:,29, 8) = (/ &
+        & 0.18399e+00_rb,0.20352e+00_rb,0.22446e+00_rb,0.24815e+00_rb,0.27383e+00_rb /)
+      kbo(:,30, 8) = (/ &
+        & 0.17696e+00_rb,0.19707e+00_rb,0.21934e+00_rb,0.24428e+00_rb,0.27560e+00_rb /)
+      kbo(:,31, 8) = (/ &
+        & 0.17154e+00_rb,0.19276e+00_rb,0.21622e+00_rb,0.24297e+00_rb,0.27512e+00_rb /)
+      kbo(:,32, 8) = (/ &
+        & 0.16864e+00_rb,0.19074e+00_rb,0.21586e+00_rb,0.24341e+00_rb,0.27678e+00_rb /)
+      kbo(:,33, 8) = (/ &
+        & 0.16705e+00_rb,0.19103e+00_rb,0.21725e+00_rb,0.24571e+00_rb,0.27988e+00_rb /)
+      kbo(:,34, 8) = (/ &
+        & 0.16718e+00_rb,0.19214e+00_rb,0.21923e+00_rb,0.25236e+00_rb,0.28358e+00_rb /)
+      kbo(:,35, 8) = (/ &
+        & 0.16615e+00_rb,0.19194e+00_rb,0.21973e+00_rb,0.25386e+00_rb,0.28528e+00_rb /)
+      kbo(:,36, 8) = (/ &
+        & 0.16355e+00_rb,0.18981e+00_rb,0.21857e+00_rb,0.25318e+00_rb,0.28503e+00_rb /)
+      kbo(:,37, 8) = (/ &
+        & 0.15644e+00_rb,0.18272e+00_rb,0.21137e+00_rb,0.24627e+00_rb,0.27830e+00_rb /)
+      kbo(:,38, 8) = (/ &
+        & 0.14985e+00_rb,0.17574e+00_rb,0.20437e+00_rb,0.23950e+00_rb,0.27160e+00_rb /)
+      kbo(:,39, 8) = (/ &
+        & 0.14373e+00_rb,0.16918e+00_rb,0.19762e+00_rb,0.22814e+00_rb,0.26522e+00_rb /)
+      kbo(:,40, 8) = (/ &
+        & 0.13479e+00_rb,0.15968e+00_rb,0.18756e+00_rb,0.21775e+00_rb,0.25463e+00_rb /)
+      kbo(:,41, 8) = (/ &
+        & 0.12605e+00_rb,0.15045e+00_rb,0.17752e+00_rb,0.20726e+00_rb,0.24367e+00_rb /)
+      kbo(:,42, 8) = (/ &
+        & 0.11784e+00_rb,0.14153e+00_rb,0.16784e+00_rb,0.19712e+00_rb,0.23353e+00_rb /)
+      kbo(:,43, 8) = (/ &
+        & 0.10839e+00_rb,0.13122e+00_rb,0.15696e+00_rb,0.18528e+00_rb,0.21641e+00_rb /)
+      kbo(:,44, 8) = (/ &
+        & 0.98772e-01_rb,0.12078e+00_rb,0.14549e+00_rb,0.17313e+00_rb,0.20344e+00_rb /)
+      kbo(:,45, 8) = (/ &
+        & 0.89757e-01_rb,0.11096e+00_rb,0.13484e+00_rb,0.16135e+00_rb,0.19086e+00_rb /)
+      kbo(:,46, 8) = (/ &
+        & 0.80754e-01_rb,0.10111e+00_rb,0.12397e+00_rb,0.14951e+00_rb,0.17812e+00_rb /)
+      kbo(:,47, 8) = (/ &
+        & 0.71551e-01_rb,0.90848e-01_rb,0.11265e+00_rb,0.13712e+00_rb,0.16456e+00_rb /)
+      kbo(:,48, 8) = (/ &
+        & 0.63023e-01_rb,0.81188e-01_rb,0.10192e+00_rb,0.12530e+00_rb,0.15155e+00_rb /)
+      kbo(:,49, 8) = (/ &
+        & 0.55112e-01_rb,0.71966e-01_rb,0.91627e-01_rb,0.11386e+00_rb,0.13887e+00_rb /)
+      kbo(:,50, 8) = (/ &
+        & 0.48148e-01_rb,0.63904e-01_rb,0.82545e-01_rb,0.10380e+00_rb,0.12775e+00_rb /)
+      kbo(:,51, 8) = (/ &
+        & 0.42077e-01_rb,0.56742e-01_rb,0.74219e-01_rb,0.94436e-01_rb,0.11735e+00_rb /)
+      kbo(:,52, 8) = (/ &
+        & 0.36406e-01_rb,0.49929e-01_rb,0.66400e-01_rb,0.85557e-01_rb,0.10751e+00_rb /)
+      kbo(:,53, 8) = (/ &
+        & 0.31162e-01_rb,0.43645e-01_rb,0.58971e-01_rb,0.77049e-01_rb,0.97772e-01_rb /)
+      kbo(:,54, 8) = (/ &
+        & 0.26848e-01_rb,0.38389e-01_rb,0.52700e-01_rb,0.69937e-01_rb,0.89664e-01_rb /)
+      kbo(:,55, 8) = (/ &
+        & 0.23145e-01_rb,0.33793e-01_rb,0.47177e-01_rb,0.63590e-01_rb,0.82440e-01_rb /)
+      kbo(:,56, 8) = (/ &
+        & 0.19764e-01_rb,0.29522e-01_rb,0.42050e-01_rb,0.57472e-01_rb,0.75623e-01_rb /)
+      kbo(:,57, 8) = (/ &
+        & 0.16713e-01_rb,0.25602e-01_rb,0.37259e-01_rb,0.51705e-01_rb,0.68976e-01_rb /)
+      kbo(:,58, 8) = (/ &
+        & 0.14134e-01_rb,0.22215e-01_rb,0.32983e-01_rb,0.46579e-01_rb,0.62982e-01_rb /)
+      kbo(:,59, 8) = (/ &
+        & 0.13103e-01_rb,0.20874e-01_rb,0.31397e-01_rb,0.44700e-01_rb,0.60881e-01_rb /)
+      kbo(:,13, 9) = (/ &
+        & 0.30563e+01_rb,0.31744e+01_rb,0.32842e+01_rb,0.33901e+01_rb,0.34937e+01_rb /)
+      kbo(:,14, 9) = (/ &
+        & 0.27752e+01_rb,0.28869e+01_rb,0.29933e+01_rb,0.30958e+01_rb,0.31932e+01_rb /)
+      kbo(:,15, 9) = (/ &
+        & 0.25099e+01_rb,0.26164e+01_rb,0.27185e+01_rb,0.28161e+01_rb,0.29094e+01_rb /)
+      kbo(:,16, 9) = (/ &
+        & 0.23062e+01_rb,0.23985e+01_rb,0.24887e+01_rb,0.25791e+01_rb,0.26657e+01_rb /)
+      kbo(:,17, 9) = (/ &
+        & 0.21996e+01_rb,0.22783e+01_rb,0.23521e+01_rb,0.24248e+01_rb,0.25028e+01_rb /)
+      kbo(:,18, 9) = (/ &
+        & 0.22125e+01_rb,0.22932e+01_rb,0.23665e+01_rb,0.24375e+01_rb,0.25051e+01_rb /)
+      kbo(:,19, 9) = (/ &
+        & 0.22641e+01_rb,0.23491e+01_rb,0.24239e+01_rb,0.24973e+01_rb,0.25657e+01_rb /)
+      kbo(:,20, 9) = (/ &
+        & 0.22472e+01_rb,0.23357e+01_rb,0.24204e+01_rb,0.24964e+01_rb,0.25675e+01_rb /)
+      kbo(:,21, 9) = (/ &
+        & 0.21851e+01_rb,0.22830e+01_rb,0.23690e+01_rb,0.24562e+01_rb,0.25370e+01_rb /)
+      kbo(:,22, 9) = (/ &
+        & 0.21175e+01_rb,0.22142e+01_rb,0.23108e+01_rb,0.24049e+01_rb,0.24949e+01_rb /)
+      kbo(:,23, 9) = (/ &
+        & 0.20447e+01_rb,0.21452e+01_rb,0.22435e+01_rb,0.23385e+01_rb,0.24298e+01_rb /)
+      kbo(:,24, 9) = (/ &
+        & 0.19721e+01_rb,0.20737e+01_rb,0.21717e+01_rb,0.22760e+01_rb,0.23715e+01_rb /)
+      kbo(:,25, 9) = (/ &
+        & 0.18957e+01_rb,0.20036e+01_rb,0.21100e+01_rb,0.22176e+01_rb,0.23221e+01_rb /)
+      kbo(:,26, 9) = (/ &
+        & 0.18288e+01_rb,0.19378e+01_rb,0.20515e+01_rb,0.21609e+01_rb,0.22728e+01_rb /)
+      kbo(:,27, 9) = (/ &
+        & 0.17692e+01_rb,0.18810e+01_rb,0.19951e+01_rb,0.21151e+01_rb,0.22361e+01_rb /)
+      kbo(:,28, 9) = (/ &
+        & 0.17168e+01_rb,0.18338e+01_rb,0.19558e+01_rb,0.20789e+01_rb,0.22051e+01_rb /)
+      kbo(:,29, 9) = (/ &
+        & 0.16702e+01_rb,0.17936e+01_rb,0.19235e+01_rb,0.20524e+01_rb,0.21850e+01_rb /)
+      kbo(:,30, 9) = (/ &
+        & 0.16394e+01_rb,0.17677e+01_rb,0.19029e+01_rb,0.20369e+01_rb,0.21882e+01_rb /)
+      kbo(:,31, 9) = (/ &
+        & 0.16228e+01_rb,0.17523e+01_rb,0.18896e+01_rb,0.20262e+01_rb,0.21815e+01_rb /)
+      kbo(:,32, 9) = (/ &
+        & 0.16178e+01_rb,0.17489e+01_rb,0.18859e+01_rb,0.20233e+01_rb,0.21838e+01_rb /)
+      kbo(:,33, 9) = (/ &
+        & 0.16221e+01_rb,0.17529e+01_rb,0.18876e+01_rb,0.20327e+01_rb,0.21960e+01_rb /)
+      kbo(:,34, 9) = (/ &
+        & 0.16321e+01_rb,0.17688e+01_rb,0.19069e+01_rb,0.20650e+01_rb,0.22191e+01_rb /)
+      kbo(:,35, 9) = (/ &
+        & 0.16388e+01_rb,0.17830e+01_rb,0.19261e+01_rb,0.20887e+01_rb,0.22365e+01_rb /)
+      kbo(:,36, 9) = (/ &
+        & 0.16423e+01_rb,0.17895e+01_rb,0.19390e+01_rb,0.21032e+01_rb,0.22561e+01_rb /)
+      kbo(:,37, 9) = (/ &
+        & 0.16080e+01_rb,0.17565e+01_rb,0.19076e+01_rb,0.20741e+01_rb,0.22287e+01_rb /)
+      kbo(:,38, 9) = (/ &
+        & 0.15745e+01_rb,0.17245e+01_rb,0.18721e+01_rb,0.20419e+01_rb,0.21969e+01_rb /)
+      kbo(:,39, 9) = (/ &
+        & 0.15386e+01_rb,0.16919e+01_rb,0.18410e+01_rb,0.19923e+01_rb,0.21638e+01_rb /)
+      kbo(:,40, 9) = (/ &
+        & 0.14840e+01_rb,0.16355e+01_rb,0.17855e+01_rb,0.19337e+01_rb,0.21026e+01_rb /)
+      kbo(:,41, 9) = (/ &
+        & 0.14260e+01_rb,0.15758e+01_rb,0.17241e+01_rb,0.18746e+01_rb,0.20398e+01_rb /)
+      kbo(:,42, 9) = (/ &
+        & 0.13688e+01_rb,0.15162e+01_rb,0.16646e+01_rb,0.18157e+01_rb,0.19780e+01_rb /)
+      kbo(:,43, 9) = (/ &
+        & 0.13011e+01_rb,0.14473e+01_rb,0.15936e+01_rb,0.17402e+01_rb,0.18823e+01_rb /)
+      kbo(:,44, 9) = (/ &
+        & 0.12278e+01_rb,0.13710e+01_rb,0.15157e+01_rb,0.16568e+01_rb,0.17952e+01_rb /)
+      kbo(:,45, 9) = (/ &
+        & 0.11558e+01_rb,0.12957e+01_rb,0.14361e+01_rb,0.15731e+01_rb,0.17094e+01_rb /)
+      kbo(:,46, 9) = (/ &
+        & 0.10820e+01_rb,0.12147e+01_rb,0.13532e+01_rb,0.14890e+01_rb,0.16181e+01_rb /)
+      kbo(:,47, 9) = (/ &
+        & 0.10024e+01_rb,0.11346e+01_rb,0.12669e+01_rb,0.14002e+01_rb,0.15260e+01_rb /)
+      kbo(:,48, 9) = (/ &
+        & 0.92524e+00_rb,0.10524e+01_rb,0.11804e+01_rb,0.13068e+01_rb,0.14296e+01_rb /)
+      kbo(:,49, 9) = (/ &
+        & 0.84698e+00_rb,0.96805e+00_rb,0.10902e+01_rb,0.12100e+01_rb,0.13299e+01_rb /)
+      kbo(:,50, 9) = (/ &
+        & 0.78084e+00_rb,0.89928e+00_rb,0.10161e+01_rb,0.11323e+01_rb,0.12472e+01_rb /)
+      kbo(:,51, 9) = (/ &
+        & 0.72222e+00_rb,0.83480e+00_rb,0.94748e+00_rb,0.10626e+01_rb,0.11740e+01_rb /)
+      kbo(:,52, 9) = (/ &
+        & 0.66260e+00_rb,0.77045e+00_rb,0.88348e+00_rb,0.99181e+00_rb,0.10995e+01_rb /)
+      kbo(:,53, 9) = (/ &
+        & 0.60516e+00_rb,0.71083e+00_rb,0.81698e+00_rb,0.91863e+00_rb,0.10219e+01_rb /)
+      kbo(:,54, 9) = (/ &
+        & 0.56176e+00_rb,0.66472e+00_rb,0.77054e+00_rb,0.87249e+00_rb,0.97306e+00_rb /)
+      kbo(:,55, 9) = (/ &
+        & 0.52563e+00_rb,0.63037e+00_rb,0.73497e+00_rb,0.83878e+00_rb,0.93923e+00_rb /)
+      kbo(:,56, 9) = (/ &
+        & 0.49056e+00_rb,0.59429e+00_rb,0.69788e+00_rb,0.80509e+00_rb,0.90615e+00_rb /)
+      kbo(:,57, 9) = (/ &
+        & 0.45575e+00_rb,0.55861e+00_rb,0.66303e+00_rb,0.76942e+00_rb,0.87211e+00_rb /)
+      kbo(:,58, 9) = (/ &
+        & 0.42419e+00_rb,0.52609e+00_rb,0.63048e+00_rb,0.73708e+00_rb,0.84331e+00_rb /)
+      kbo(:,59, 9) = (/ &
+        & 0.42340e+00_rb,0.52953e+00_rb,0.63843e+00_rb,0.74879e+00_rb,0.86046e+00_rb /)
+      kbo(:,13,10) = (/ &
+        & 0.14973e+02_rb,0.15466e+02_rb,0.15907e+02_rb,0.16294e+02_rb,0.16648e+02_rb /)
+      kbo(:,14,10) = (/ &
+        & 0.13327e+02_rb,0.13717e+02_rb,0.14036e+02_rb,0.14348e+02_rb,0.14658e+02_rb /)
+      kbo(:,15,10) = (/ &
+        & 0.12219e+02_rb,0.12428e+02_rb,0.12649e+02_rb,0.12810e+02_rb,0.12959e+02_rb /)
+      kbo(:,16,10) = (/ &
+        & 0.11245e+02_rb,0.11501e+02_rb,0.11701e+02_rb,0.11817e+02_rb,0.11948e+02_rb /)
+      kbo(:,17,10) = (/ &
+        & 0.96706e+01_rb,0.99707e+01_rb,0.10257e+02_rb,0.10540e+02_rb,0.10718e+02_rb /)
+      kbo(:,18,10) = (/ &
+        & 0.83018e+01_rb,0.83446e+01_rb,0.84207e+01_rb,0.85262e+01_rb,0.86783e+01_rb /)
+      kbo(:,19,10) = (/ &
+        & 0.82250e+01_rb,0.81929e+01_rb,0.82337e+01_rb,0.82572e+01_rb,0.83177e+01_rb /)
+      kbo(:,20,10) = (/ &
+        & 0.81684e+01_rb,0.81782e+01_rb,0.82244e+01_rb,0.82765e+01_rb,0.82985e+01_rb /)
+      kbo(:,21,10) = (/ &
+        & 0.82586e+01_rb,0.83055e+01_rb,0.84017e+01_rb,0.83815e+01_rb,0.83594e+01_rb /)
+      kbo(:,22,10) = (/ &
+        & 0.83686e+01_rb,0.84604e+01_rb,0.85363e+01_rb,0.84786e+01_rb,0.84786e+01_rb /)
+      kbo(:,23,10) = (/ &
+        & 0.84301e+01_rb,0.85903e+01_rb,0.87569e+01_rb,0.87953e+01_rb,0.87965e+01_rb /)
+      kbo(:,24,10) = (/ &
+        & 0.85690e+01_rb,0.88097e+01_rb,0.90359e+01_rb,0.90994e+01_rb,0.92201e+01_rb /)
+      kbo(:,25,10) = (/ &
+        & 0.87852e+01_rb,0.90719e+01_rb,0.92672e+01_rb,0.94098e+01_rb,0.95600e+01_rb /)
+      kbo(:,26,10) = (/ &
+        & 0.88651e+01_rb,0.92334e+01_rb,0.94525e+01_rb,0.97256e+01_rb,0.98986e+01_rb /)
+      kbo(:,27,10) = (/ &
+        & 0.88645e+01_rb,0.92932e+01_rb,0.96152e+01_rb,0.98392e+01_rb,0.10037e+02_rb /)
+      kbo(:,28,10) = (/ &
+        & 0.88548e+01_rb,0.93070e+01_rb,0.96176e+01_rb,0.99813e+01_rb,0.10238e+02_rb /)
+      kbo(:,29,10) = (/ &
+        & 0.88198e+01_rb,0.92265e+01_rb,0.96024e+01_rb,0.99285e+01_rb,0.10232e+02_rb /)
+      kbo(:,30,10) = (/ &
+        & 0.87818e+01_rb,0.92083e+01_rb,0.95579e+01_rb,0.98976e+01_rb,0.10208e+02_rb /)
+      kbo(:,31,10) = (/ &
+        & 0.86036e+01_rb,0.90621e+01_rb,0.94967e+01_rb,0.98500e+01_rb,0.10159e+02_rb /)
+      kbo(:,32,10) = (/ &
+        & 0.84748e+01_rb,0.89960e+01_rb,0.94428e+01_rb,0.98336e+01_rb,0.10196e+02_rb /)
+      kbo(:,33,10) = (/ &
+        & 0.84172e+01_rb,0.89420e+01_rb,0.94383e+01_rb,0.98344e+01_rb,0.10060e+02_rb /)
+      kbo(:,34,10) = (/ &
+        & 0.84605e+01_rb,0.89751e+01_rb,0.94683e+01_rb,0.98852e+01_rb,0.10023e+02_rb /)
+      kbo(:,35,10) = (/ &
+        & 0.84589e+01_rb,0.89233e+01_rb,0.94002e+01_rb,0.98511e+01_rb,0.10024e+02_rb /)
+      kbo(:,36,10) = (/ &
+        & 0.84558e+01_rb,0.89580e+01_rb,0.93747e+01_rb,0.98030e+01_rb,0.10000e+02_rb /)
+      kbo(:,37,10) = (/ &
+        & 0.82385e+01_rb,0.87614e+01_rb,0.91541e+01_rb,0.95514e+01_rb,0.97363e+01_rb /)
+      kbo(:,38,10) = (/ &
+        & 0.80132e+01_rb,0.84437e+01_rb,0.89304e+01_rb,0.92902e+01_rb,0.94811e+01_rb /)
+      kbo(:,39,10) = (/ &
+        & 0.78203e+01_rb,0.81981e+01_rb,0.85539e+01_rb,0.89689e+01_rb,0.90927e+01_rb /)
+      kbo(:,40,10) = (/ &
+        & 0.75978e+01_rb,0.79610e+01_rb,0.82423e+01_rb,0.86095e+01_rb,0.88190e+01_rb /)
+      kbo(:,41,10) = (/ &
+        & 0.73029e+01_rb,0.76481e+01_rb,0.79708e+01_rb,0.82445e+01_rb,0.84426e+01_rb /)
+      kbo(:,42,10) = (/ &
+        & 0.70166e+01_rb,0.73754e+01_rb,0.76378e+01_rb,0.78862e+01_rb,0.80985e+01_rb /)
+      kbo(:,43,10) = (/ &
+        & 0.66293e+01_rb,0.69504e+01_rb,0.72276e+01_rb,0.75120e+01_rb,0.77099e+01_rb /)
+      kbo(:,44,10) = (/ &
+        & 0.62312e+01_rb,0.65696e+01_rb,0.68647e+01_rb,0.71226e+01_rb,0.73305e+01_rb /)
+      kbo(:,45,10) = (/ &
+        & 0.58229e+01_rb,0.61620e+01_rb,0.64682e+01_rb,0.67341e+01_rb,0.69070e+01_rb /)
+      kbo(:,46,10) = (/ &
+        & 0.53657e+01_rb,0.57492e+01_rb,0.60377e+01_rb,0.63031e+01_rb,0.64992e+01_rb /)
+      kbo(:,47,10) = (/ &
+        & 0.50350e+01_rb,0.53678e+01_rb,0.56656e+01_rb,0.59201e+01_rb,0.61262e+01_rb /)
+      kbo(:,48,10) = (/ &
+        & 0.46566e+01_rb,0.49901e+01_rb,0.52633e+01_rb,0.54964e+01_rb,0.57537e+01_rb /)
+      kbo(:,49,10) = (/ &
+        & 0.42801e+01_rb,0.46217e+01_rb,0.49093e+01_rb,0.51104e+01_rb,0.53644e+01_rb /)
+      kbo(:,50,10) = (/ &
+        & 0.39613e+01_rb,0.43120e+01_rb,0.45848e+01_rb,0.48588e+01_rb,0.50774e+01_rb /)
+      kbo(:,51,10) = (/ &
+        & 0.37006e+01_rb,0.40662e+01_rb,0.43615e+01_rb,0.46264e+01_rb,0.48701e+01_rb /)
+      kbo(:,52,10) = (/ &
+        & 0.34485e+01_rb,0.37934e+01_rb,0.40667e+01_rb,0.43544e+01_rb,0.46481e+01_rb /)
+      kbo(:,53,10) = (/ &
+        & 0.31594e+01_rb,0.35032e+01_rb,0.37934e+01_rb,0.41156e+01_rb,0.44077e+01_rb /)
+      kbo(:,54,10) = (/ &
+        & 0.29800e+01_rb,0.33284e+01_rb,0.36333e+01_rb,0.39624e+01_rb,0.42528e+01_rb /)
+      kbo(:,55,10) = (/ &
+        & 0.28569e+01_rb,0.32159e+01_rb,0.35391e+01_rb,0.38186e+01_rb,0.41402e+01_rb /)
+      kbo(:,56,10) = (/ &
+        & 0.26907e+01_rb,0.31071e+01_rb,0.34476e+01_rb,0.36941e+01_rb,0.40212e+01_rb /)
+      kbo(:,57,10) = (/ &
+        & 0.25638e+01_rb,0.29869e+01_rb,0.33345e+01_rb,0.36081e+01_rb,0.38859e+01_rb /)
+      kbo(:,58,10) = (/ &
+        & 0.24665e+01_rb,0.28708e+01_rb,0.32402e+01_rb,0.35331e+01_rb,0.37851e+01_rb /)
+      kbo(:,59,10) = (/ &
+        & 0.25432e+01_rb,0.29855e+01_rb,0.33662e+01_rb,0.37020e+01_rb,0.39522e+01_rb /)
+      kbo(:,13,11) = (/ &
+        & 0.31099e+02_rb,0.31647e+02_rb,0.32241e+02_rb,0.32842e+02_rb,0.33417e+02_rb /)
+      kbo(:,14,11) = (/ &
+        & 0.27698e+02_rb,0.28253e+02_rb,0.28859e+02_rb,0.29460e+02_rb,0.30083e+02_rb /)
+      kbo(:,15,11) = (/ &
+        & 0.24330e+02_rb,0.24945e+02_rb,0.25542e+02_rb,0.26234e+02_rb,0.26922e+02_rb /)
+      kbo(:,16,11) = (/ &
+        & 0.21190e+02_rb,0.21758e+02_rb,0.22384e+02_rb,0.23019e+02_rb,0.23628e+02_rb /)
+      kbo(:,17,11) = (/ &
+        & 0.18967e+02_rb,0.19413e+02_rb,0.19858e+02_rb,0.20261e+02_rb,0.20672e+02_rb /)
+      kbo(:,18,11) = (/ &
+        & 0.16374e+02_rb,0.16952e+02_rb,0.17497e+02_rb,0.17964e+02_rb,0.18478e+02_rb /)
+      kbo(:,19,11) = (/ &
+        & 0.13248e+02_rb,0.13545e+02_rb,0.13847e+02_rb,0.14297e+02_rb,0.14705e+02_rb /)
+      kbo(:,20,11) = (/ &
+        & 0.12757e+02_rb,0.12785e+02_rb,0.12667e+02_rb,0.12601e+02_rb,0.12612e+02_rb /)
+      kbo(:,21,11) = (/ &
+        & 0.12844e+02_rb,0.12624e+02_rb,0.12433e+02_rb,0.12193e+02_rb,0.12175e+02_rb /)
+      kbo(:,22,11) = (/ &
+        & 0.12738e+02_rb,0.12567e+02_rb,0.12225e+02_rb,0.12063e+02_rb,0.11980e+02_rb /)
+      kbo(:,23,11) = (/ &
+        & 0.12815e+02_rb,0.12660e+02_rb,0.12272e+02_rb,0.12108e+02_rb,0.12066e+02_rb /)
+      kbo(:,24,11) = (/ &
+        & 0.13079e+02_rb,0.12972e+02_rb,0.12651e+02_rb,0.12388e+02_rb,0.12367e+02_rb /)
+      kbo(:,25,11) = (/ &
+        & 0.13341e+02_rb,0.13256e+02_rb,0.13023e+02_rb,0.12848e+02_rb,0.12659e+02_rb /)
+      kbo(:,26,11) = (/ &
+        & 0.13512e+02_rb,0.13453e+02_rb,0.13443e+02_rb,0.13113e+02_rb,0.13141e+02_rb /)
+      kbo(:,27,11) = (/ &
+        & 0.13706e+02_rb,0.13750e+02_rb,0.13824e+02_rb,0.13564e+02_rb,0.13665e+02_rb /)
+      kbo(:,28,11) = (/ &
+        & 0.13979e+02_rb,0.14080e+02_rb,0.14203e+02_rb,0.13858e+02_rb,0.13981e+02_rb /)
+      kbo(:,29,11) = (/ &
+        & 0.13934e+02_rb,0.14086e+02_rb,0.14156e+02_rb,0.14057e+02_rb,0.14114e+02_rb /)
+      kbo(:,30,11) = (/ &
+        & 0.13981e+02_rb,0.13996e+02_rb,0.13975e+02_rb,0.14010e+02_rb,0.14196e+02_rb /)
+      kbo(:,31,11) = (/ &
+        & 0.13896e+02_rb,0.13857e+02_rb,0.13654e+02_rb,0.13807e+02_rb,0.13871e+02_rb /)
+      kbo(:,32,11) = (/ &
+        & 0.13655e+02_rb,0.13646e+02_rb,0.13416e+02_rb,0.13538e+02_rb,0.13488e+02_rb /)
+      kbo(:,33,11) = (/ &
+        & 0.13398e+02_rb,0.13279e+02_rb,0.13235e+02_rb,0.13164e+02_rb,0.13195e+02_rb /)
+      kbo(:,34,11) = (/ &
+        & 0.13280e+02_rb,0.13155e+02_rb,0.13035e+02_rb,0.13095e+02_rb,0.13023e+02_rb /)
+      kbo(:,35,11) = (/ &
+        & 0.13174e+02_rb,0.13038e+02_rb,0.12951e+02_rb,0.12819e+02_rb,0.12932e+02_rb /)
+      kbo(:,36,11) = (/ &
+        & 0.13159e+02_rb,0.12953e+02_rb,0.12943e+02_rb,0.12899e+02_rb,0.13077e+02_rb /)
+      kbo(:,37,11) = (/ &
+        & 0.12968e+02_rb,0.12722e+02_rb,0.12741e+02_rb,0.12684e+02_rb,0.12881e+02_rb /)
+      kbo(:,38,11) = (/ &
+        & 0.12648e+02_rb,0.12436e+02_rb,0.12390e+02_rb,0.12534e+02_rb,0.12593e+02_rb /)
+      kbo(:,39,11) = (/ &
+        & 0.12145e+02_rb,0.12036e+02_rb,0.12198e+02_rb,0.12171e+02_rb,0.12374e+02_rb /)
+      kbo(:,40,11) = (/ &
+        & 0.11784e+02_rb,0.11714e+02_rb,0.11852e+02_rb,0.11995e+02_rb,0.12020e+02_rb /)
+      kbo(:,41,11) = (/ &
+        & 0.11419e+02_rb,0.11429e+02_rb,0.11554e+02_rb,0.11799e+02_rb,0.11809e+02_rb /)
+      kbo(:,42,11) = (/ &
+        & 0.11076e+02_rb,0.11047e+02_rb,0.11287e+02_rb,0.11460e+02_rb,0.11610e+02_rb /)
+      kbo(:,43,11) = (/ &
+        & 0.10635e+02_rb,0.10772e+02_rb,0.10970e+02_rb,0.11110e+02_rb,0.11339e+02_rb /)
+      kbo(:,44,11) = (/ &
+        & 0.10081e+02_rb,0.10347e+02_rb,0.10495e+02_rb,0.10710e+02_rb,0.10998e+02_rb /)
+      kbo(:,45,11) = (/ &
+        & 0.95493e+01_rb,0.97720e+01_rb,0.10013e+02_rb,0.10318e+02_rb,0.10626e+02_rb /)
+      kbo(:,46,11) = (/ &
+        & 0.91901e+01_rb,0.92815e+01_rb,0.95285e+01_rb,0.99399e+01_rb,0.10216e+02_rb /)
+      kbo(:,47,11) = (/ &
+        & 0.86762e+01_rb,0.88384e+01_rb,0.91370e+01_rb,0.95143e+01_rb,0.99290e+01_rb /)
+      kbo(:,48,11) = (/ &
+        & 0.80969e+01_rb,0.84350e+01_rb,0.87222e+01_rb,0.91427e+01_rb,0.95881e+01_rb /)
+      kbo(:,49,11) = (/ &
+        & 0.74881e+01_rb,0.78692e+01_rb,0.82390e+01_rb,0.88564e+01_rb,0.92509e+01_rb /)
+      kbo(:,50,11) = (/ &
+        & 0.70193e+01_rb,0.74373e+01_rb,0.79400e+01_rb,0.84415e+01_rb,0.90721e+01_rb /)
+      kbo(:,51,11) = (/ &
+        & 0.66370e+01_rb,0.71214e+01_rb,0.76381e+01_rb,0.81180e+01_rb,0.89263e+01_rb /)
+      kbo(:,52,11) = (/ &
+        & 0.62242e+01_rb,0.68097e+01_rb,0.73447e+01_rb,0.79515e+01_rb,0.88951e+01_rb /)
+      kbo(:,53,11) = (/ &
+        & 0.58238e+01_rb,0.63775e+01_rb,0.69942e+01_rb,0.79247e+01_rb,0.89454e+01_rb /)
+      kbo(:,54,11) = (/ &
+        & 0.55499e+01_rb,0.61225e+01_rb,0.67115e+01_rb,0.76390e+01_rb,0.86771e+01_rb /)
+      kbo(:,55,11) = (/ &
+        & 0.53976e+01_rb,0.59288e+01_rb,0.64661e+01_rb,0.72387e+01_rb,0.82482e+01_rb /)
+      kbo(:,56,11) = (/ &
+        & 0.52864e+01_rb,0.57486e+01_rb,0.62663e+01_rb,0.68889e+01_rb,0.78153e+01_rb /)
+      kbo(:,57,11) = (/ &
+        & 0.51174e+01_rb,0.55624e+01_rb,0.60808e+01_rb,0.66051e+01_rb,0.73800e+01_rb /)
+      kbo(:,58,11) = (/ &
+        & 0.49368e+01_rb,0.54350e+01_rb,0.59533e+01_rb,0.64218e+01_rb,0.70057e+01_rb /)
+      kbo(:,59,11) = (/ &
+        & 0.50812e+01_rb,0.56369e+01_rb,0.60928e+01_rb,0.64990e+01_rb,0.70265e+01_rb /)
+      kbo(:,13,12) = (/ &
+        & 0.69704e+02_rb,0.70627e+02_rb,0.71228e+02_rb,0.71788e+02_rb,0.72437e+02_rb /)
+      kbo(:,14,12) = (/ &
+        & 0.64379e+02_rb,0.65225e+02_rb,0.66016e+02_rb,0.66901e+02_rb,0.67785e+02_rb /)
+      kbo(:,15,12) = (/ &
+        & 0.58655e+02_rb,0.59644e+02_rb,0.60731e+02_rb,0.61788e+02_rb,0.62973e+02_rb /)
+      kbo(:,16,12) = (/ &
+        & 0.53041e+02_rb,0.54211e+02_rb,0.55406e+02_rb,0.56764e+02_rb,0.58230e+02_rb /)
+      kbo(:,17,12) = (/ &
+        & 0.47145e+02_rb,0.48549e+02_rb,0.50104e+02_rb,0.51815e+02_rb,0.53646e+02_rb /)
+      kbo(:,18,12) = (/ &
+        & 0.41118e+02_rb,0.42628e+02_rb,0.44372e+02_rb,0.46307e+02_rb,0.48319e+02_rb /)
+      kbo(:,19,12) = (/ &
+        & 0.35042e+02_rb,0.36608e+02_rb,0.38443e+02_rb,0.40582e+02_rb,0.43018e+02_rb /)
+      kbo(:,20,12) = (/ &
+        & 0.28625e+02_rb,0.30224e+02_rb,0.32288e+02_rb,0.34780e+02_rb,0.37414e+02_rb /)
+      kbo(:,21,12) = (/ &
+        & 0.24017e+02_rb,0.25409e+02_rb,0.27330e+02_rb,0.29600e+02_rb,0.32108e+02_rb /)
+      kbo(:,22,12) = (/ &
+        & 0.21793e+02_rb,0.22620e+02_rb,0.24096e+02_rb,0.26102e+02_rb,0.28497e+02_rb /)
+      kbo(:,23,12) = (/ &
+        & 0.21413e+02_rb,0.21831e+02_rb,0.22594e+02_rb,0.23606e+02_rb,0.25745e+02_rb /)
+      kbo(:,24,12) = (/ &
+        & 0.21009e+02_rb,0.21418e+02_rb,0.22293e+02_rb,0.23189e+02_rb,0.24234e+02_rb /)
+      kbo(:,25,12) = (/ &
+        & 0.21184e+02_rb,0.21661e+02_rb,0.22476e+02_rb,0.23334e+02_rb,0.24471e+02_rb /)
+      kbo(:,26,12) = (/ &
+        & 0.21853e+02_rb,0.22488e+02_rb,0.23205e+02_rb,0.24024e+02_rb,0.25192e+02_rb /)
+      kbo(:,27,12) = (/ &
+        & 0.22275e+02_rb,0.22928e+02_rb,0.23659e+02_rb,0.24768e+02_rb,0.25734e+02_rb /)
+      kbo(:,28,12) = (/ &
+        & 0.22649e+02_rb,0.23413e+02_rb,0.24091e+02_rb,0.25549e+02_rb,0.26436e+02_rb /)
+      kbo(:,29,12) = (/ &
+        & 0.22704e+02_rb,0.23483e+02_rb,0.24191e+02_rb,0.25460e+02_rb,0.26653e+02_rb /)
+      kbo(:,30,12) = (/ &
+        & 0.22666e+02_rb,0.23444e+02_rb,0.24530e+02_rb,0.25500e+02_rb,0.26652e+02_rb /)
+      kbo(:,31,12) = (/ &
+        & 0.22235e+02_rb,0.23247e+02_rb,0.24248e+02_rb,0.25076e+02_rb,0.26466e+02_rb /)
+      kbo(:,32,12) = (/ &
+        & 0.22226e+02_rb,0.22827e+02_rb,0.24083e+02_rb,0.25139e+02_rb,0.26181e+02_rb /)
+      kbo(:,33,12) = (/ &
+        & 0.22210e+02_rb,0.22941e+02_rb,0.24126e+02_rb,0.25269e+02_rb,0.26783e+02_rb /)
+      kbo(:,34,12) = (/ &
+        & 0.22243e+02_rb,0.23077e+02_rb,0.24337e+02_rb,0.25761e+02_rb,0.27799e+02_rb /)
+      kbo(:,35,12) = (/ &
+        & 0.22396e+02_rb,0.23583e+02_rb,0.24898e+02_rb,0.26594e+02_rb,0.29392e+02_rb /)
+      kbo(:,36,12) = (/ &
+        & 0.22982e+02_rb,0.24125e+02_rb,0.25363e+02_rb,0.27311e+02_rb,0.30508e+02_rb /)
+      kbo(:,37,12) = (/ &
+        & 0.22918e+02_rb,0.23937e+02_rb,0.25281e+02_rb,0.27602e+02_rb,0.31235e+02_rb /)
+      kbo(:,38,12) = (/ &
+        & 0.22758e+02_rb,0.23720e+02_rb,0.25240e+02_rb,0.28261e+02_rb,0.32012e+02_rb /)
+      kbo(:,39,12) = (/ &
+        & 0.22553e+02_rb,0.23629e+02_rb,0.25559e+02_rb,0.29164e+02_rb,0.32971e+02_rb /)
+      kbo(:,40,12) = (/ &
+        & 0.21913e+02_rb,0.23010e+02_rb,0.25397e+02_rb,0.28931e+02_rb,0.33000e+02_rb /)
+      kbo(:,41,12) = (/ &
+        & 0.21428e+02_rb,0.22543e+02_rb,0.25193e+02_rb,0.28521e+02_rb,0.32655e+02_rb /)
+      kbo(:,42,12) = (/ &
+        & 0.20806e+02_rb,0.22057e+02_rb,0.24895e+02_rb,0.28307e+02_rb,0.32344e+02_rb /)
+      kbo(:,43,12) = (/ &
+        & 0.20230e+02_rb,0.21402e+02_rb,0.24438e+02_rb,0.27778e+02_rb,0.31742e+02_rb /)
+      kbo(:,44,12) = (/ &
+        & 0.19439e+02_rb,0.20816e+02_rb,0.24038e+02_rb,0.27280e+02_rb,0.31112e+02_rb /)
+      kbo(:,45,12) = (/ &
+        & 0.18615e+02_rb,0.20644e+02_rb,0.23787e+02_rb,0.26906e+02_rb,0.30508e+02_rb /)
+      kbo(:,46,12) = (/ &
+        & 0.17932e+02_rb,0.20436e+02_rb,0.23444e+02_rb,0.26514e+02_rb,0.30043e+02_rb /)
+      kbo(:,47,12) = (/ &
+        & 0.17388e+02_rb,0.20062e+02_rb,0.22865e+02_rb,0.25992e+02_rb,0.29187e+02_rb /)
+      kbo(:,48,12) = (/ &
+        & 0.17144e+02_rb,0.19562e+02_rb,0.22419e+02_rb,0.25556e+02_rb,0.28578e+02_rb /)
+      kbo(:,49,12) = (/ &
+        & 0.16956e+02_rb,0.19439e+02_rb,0.22133e+02_rb,0.25135e+02_rb,0.28141e+02_rb /)
+      kbo(:,50,12) = (/ &
+        & 0.16529e+02_rb,0.19034e+02_rb,0.21605e+02_rb,0.24563e+02_rb,0.27331e+02_rb /)
+      kbo(:,51,12) = (/ &
+        & 0.15953e+02_rb,0.18522e+02_rb,0.21071e+02_rb,0.23856e+02_rb,0.26389e+02_rb /)
+      kbo(:,52,12) = (/ &
+        & 0.15476e+02_rb,0.18037e+02_rb,0.20576e+02_rb,0.23092e+02_rb,0.25303e+02_rb /)
+      kbo(:,53,12) = (/ &
+        & 0.14987e+02_rb,0.17619e+02_rb,0.20150e+02_rb,0.22182e+02_rb,0.24323e+02_rb /)
+      kbo(:,54,12) = (/ &
+        & 0.14316e+02_rb,0.16769e+02_rb,0.19340e+02_rb,0.21295e+02_rb,0.23328e+02_rb /)
+      kbo(:,55,12) = (/ &
+        & 0.13478e+02_rb,0.15723e+02_rb,0.18284e+02_rb,0.20497e+02_rb,0.22282e+02_rb /)
+      kbo(:,56,12) = (/ &
+        & 0.12615e+02_rb,0.14717e+02_rb,0.17222e+02_rb,0.19626e+02_rb,0.21412e+02_rb /)
+      kbo(:,57,12) = (/ &
+        & 0.11789e+02_rb,0.13910e+02_rb,0.16111e+02_rb,0.18559e+02_rb,0.20605e+02_rb /)
+      kbo(:,58,12) = (/ &
+        & 0.10935e+02_rb,0.12994e+02_rb,0.15023e+02_rb,0.17386e+02_rb,0.19630e+02_rb /)
+      kbo(:,59,12) = (/ &
+        & 0.10847e+02_rb,0.11985e+02_rb,0.13699e+02_rb,0.15922e+02_rb,0.18130e+02_rb /)
+      kbo(:,13,13) = (/ &
+        & 0.15243e+03_rb,0.15414e+03_rb,0.15604e+03_rb,0.15731e+03_rb,0.15805e+03_rb /)
+      kbo(:,14,13) = (/ &
+        & 0.15017e+03_rb,0.15285e+03_rb,0.15509e+03_rb,0.15662e+03_rb,0.15764e+03_rb /)
+      kbo(:,15,13) = (/ &
+        & 0.14701e+03_rb,0.15032e+03_rb,0.15250e+03_rb,0.15435e+03_rb,0.15583e+03_rb /)
+      kbo(:,16,13) = (/ &
+        & 0.14269e+03_rb,0.14580e+03_rb,0.14857e+03_rb,0.15094e+03_rb,0.15306e+03_rb /)
+      kbo(:,17,13) = (/ &
+        & 0.13670e+03_rb,0.14035e+03_rb,0.14376e+03_rb,0.14689e+03_rb,0.14976e+03_rb /)
+      kbo(:,18,13) = (/ &
+        & 0.13015e+03_rb,0.13455e+03_rb,0.13871e+03_rb,0.14263e+03_rb,0.14625e+03_rb /)
+      kbo(:,19,13) = (/ &
+        & 0.12287e+03_rb,0.12845e+03_rb,0.13370e+03_rb,0.13836e+03_rb,0.14277e+03_rb /)
+      kbo(:,20,13) = (/ &
+        & 0.11516e+03_rb,0.12176e+03_rb,0.12807e+03_rb,0.13396e+03_rb,0.13973e+03_rb /)
+      kbo(:,21,13) = (/ &
+        & 0.10676e+03_rb,0.11461e+03_rb,0.12196e+03_rb,0.12926e+03_rb,0.13605e+03_rb /)
+      kbo(:,22,13) = (/ &
+        & 0.98495e+02_rb,0.10775e+03_rb,0.11663e+03_rb,0.12493e+03_rb,0.13260e+03_rb /)
+      kbo(:,23,13) = (/ &
+        & 0.89816e+02_rb,0.10015e+03_rb,0.11065e+03_rb,0.12084e+03_rb,0.12951e+03_rb /)
+      kbo(:,24,13) = (/ &
+        & 0.82797e+02_rb,0.93590e+02_rb,0.10444e+03_rb,0.11545e+03_rb,0.12590e+03_rb /)
+      kbo(:,25,13) = (/ &
+        & 0.77256e+02_rb,0.88067e+02_rb,0.99408e+02_rb,0.11069e+03_rb,0.12164e+03_rb /)
+      kbo(:,26,13) = (/ &
+        & 0.73787e+02_rb,0.84230e+02_rb,0.95403e+02_rb,0.10719e+03_rb,0.11797e+03_rb /)
+      kbo(:,27,13) = (/ &
+        & 0.72626e+02_rb,0.82623e+02_rb,0.93417e+02_rb,0.10482e+03_rb,0.11588e+03_rb /)
+      kbo(:,28,13) = (/ &
+        & 0.72289e+02_rb,0.81705e+02_rb,0.92658e+02_rb,0.10355e+03_rb,0.11467e+03_rb /)
+      kbo(:,29,13) = (/ &
+        & 0.73831e+02_rb,0.83248e+02_rb,0.93801e+02_rb,0.10474e+03_rb,0.11551e+03_rb /)
+      kbo(:,30,13) = (/ &
+        & 0.76016e+02_rb,0.86113e+02_rb,0.95367e+02_rb,0.10651e+03_rb,0.11733e+03_rb /)
+      kbo(:,31,13) = (/ &
+        & 0.80058e+02_rb,0.89705e+02_rb,0.99793e+02_rb,0.10982e+03_rb,0.12052e+03_rb /)
+      kbo(:,32,13) = (/ &
+        & 0.85064e+02_rb,0.94860e+02_rb,0.10434e+03_rb,0.11401e+03_rb,0.12404e+03_rb /)
+      kbo(:,33,13) = (/ &
+        & 0.90655e+02_rb,0.10081e+03_rb,0.10992e+03_rb,0.11933e+03_rb,0.12788e+03_rb /)
+      kbo(:,34,13) = (/ &
+        & 0.95857e+02_rb,0.10597e+03_rb,0.11520e+03_rb,0.12356e+03_rb,0.13127e+03_rb /)
+      kbo(:,35,13) = (/ &
+        & 0.99393e+02_rb,0.11014e+03_rb,0.12003e+03_rb,0.12794e+03_rb,0.13407e+03_rb /)
+      kbo(:,36,13) = (/ &
+        & 0.10100e+03_rb,0.11220e+03_rb,0.12221e+03_rb,0.13085e+03_rb,0.13724e+03_rb /)
+      kbo(:,37,13) = (/ &
+        & 0.10052e+03_rb,0.11217e+03_rb,0.12302e+03_rb,0.13127e+03_rb,0.13704e+03_rb /)
+      kbo(:,38,13) = (/ &
+        & 0.10046e+03_rb,0.11273e+03_rb,0.12310e+03_rb,0.13118e+03_rb,0.13742e+03_rb /)
+      kbo(:,39,13) = (/ &
+        & 0.10122e+03_rb,0.11326e+03_rb,0.12361e+03_rb,0.13081e+03_rb,0.13784e+03_rb /)
+      kbo(:,40,13) = (/ &
+        & 0.10000e+03_rb,0.11180e+03_rb,0.12195e+03_rb,0.12930e+03_rb,0.13636e+03_rb /)
+      kbo(:,41,13) = (/ &
+        & 0.98394e+02_rb,0.11024e+03_rb,0.11969e+03_rb,0.12788e+03_rb,0.13497e+03_rb /)
+      kbo(:,42,13) = (/ &
+        & 0.97071e+02_rb,0.10823e+03_rb,0.11769e+03_rb,0.12630e+03_rb,0.13330e+03_rb /)
+      kbo(:,43,13) = (/ &
+        & 0.94820e+02_rb,0.10592e+03_rb,0.11514e+03_rb,0.12393e+03_rb,0.13107e+03_rb /)
+      kbo(:,44,13) = (/ &
+        & 0.92475e+02_rb,0.10313e+03_rb,0.11198e+03_rb,0.12120e+03_rb,0.12869e+03_rb /)
+      kbo(:,45,13) = (/ &
+        & 0.90255e+02_rb,0.99678e+02_rb,0.10888e+03_rb,0.11824e+03_rb,0.12634e+03_rb /)
+      kbo(:,46,13) = (/ &
+        & 0.87084e+02_rb,0.96376e+02_rb,0.10582e+03_rb,0.11496e+03_rb,0.12350e+03_rb /)
+      kbo(:,47,13) = (/ &
+        & 0.83116e+02_rb,0.92026e+02_rb,0.10209e+03_rb,0.11120e+03_rb,0.12020e+03_rb /)
+      kbo(:,48,13) = (/ &
+        & 0.78845e+02_rb,0.88316e+02_rb,0.97984e+02_rb,0.10729e+03_rb,0.11639e+03_rb /)
+      kbo(:,49,13) = (/ &
+        & 0.74841e+02_rb,0.84389e+02_rb,0.93907e+02_rb,0.10286e+03_rb,0.11277e+03_rb /)
+      kbo(:,50,13) = (/ &
+        & 0.71259e+02_rb,0.80370e+02_rb,0.89851e+02_rb,0.99011e+02_rb,0.10882e+03_rb /)
+      kbo(:,51,13) = (/ &
+        & 0.67667e+02_rb,0.76332e+02_rb,0.85552e+02_rb,0.95111e+02_rb,0.10517e+03_rb /)
+      kbo(:,52,13) = (/ &
+        & 0.64036e+02_rb,0.72373e+02_rb,0.81228e+02_rb,0.91458e+02_rb,0.10109e+03_rb /)
+      kbo(:,53,13) = (/ &
+        & 0.60531e+02_rb,0.68539e+02_rb,0.77029e+02_rb,0.87314e+02_rb,0.97171e+02_rb /)
+      kbo(:,54,13) = (/ &
+        & 0.57169e+02_rb,0.65298e+02_rb,0.73473e+02_rb,0.83504e+02_rb,0.93303e+02_rb /)
+      kbo(:,55,13) = (/ &
+        & 0.53955e+02_rb,0.61813e+02_rb,0.70099e+02_rb,0.79656e+02_rb,0.89859e+02_rb /)
+      kbo(:,56,13) = (/ &
+        & 0.50772e+02_rb,0.58658e+02_rb,0.66829e+02_rb,0.76079e+02_rb,0.86127e+02_rb /)
+      kbo(:,57,13) = (/ &
+        & 0.47708e+02_rb,0.55213e+02_rb,0.63250e+02_rb,0.72545e+02_rb,0.82495e+02_rb /)
+      kbo(:,58,13) = (/ &
+        & 0.45026e+02_rb,0.52243e+02_rb,0.60123e+02_rb,0.69281e+02_rb,0.79017e+02_rb /)
+      kbo(:,59,13) = (/ &
+        & 0.42111e+02_rb,0.50365e+02_rb,0.58368e+02_rb,0.67832e+02_rb,0.76877e+02_rb /)
+      kbo(:,13,14) = (/ &
+        & 0.32174e+03_rb,0.31744e+03_rb,0.31218e+03_rb,0.30740e+03_rb,0.30288e+03_rb /)
+      kbo(:,14,14) = (/ &
+        & 0.33593e+03_rb,0.33142e+03_rb,0.32669e+03_rb,0.32231e+03_rb,0.31834e+03_rb /)
+      kbo(:,15,14) = (/ &
+        & 0.34823e+03_rb,0.34389e+03_rb,0.34037e+03_rb,0.33690e+03_rb,0.33355e+03_rb /)
+      kbo(:,16,14) = (/ &
+        & 0.35878e+03_rb,0.35631e+03_rb,0.35376e+03_rb,0.35105e+03_rb,0.34819e+03_rb /)
+      kbo(:,17,14) = (/ &
+        & 0.36906e+03_rb,0.36793e+03_rb,0.36636e+03_rb,0.36433e+03_rb,0.36182e+03_rb /)
+      kbo(:,18,14) = (/ &
+        & 0.37817e+03_rb,0.37835e+03_rb,0.37763e+03_rb,0.37618e+03_rb,0.37389e+03_rb /)
+      kbo(:,19,14) = (/ &
+        & 0.38585e+03_rb,0.38729e+03_rb,0.38746e+03_rb,0.38655e+03_rb,0.38433e+03_rb /)
+      kbo(:,20,14) = (/ &
+        & 0.39236e+03_rb,0.39495e+03_rb,0.39589e+03_rb,0.39530e+03_rb,0.39330e+03_rb /)
+      kbo(:,21,14) = (/ &
+        & 0.39808e+03_rb,0.40159e+03_rb,0.40312e+03_rb,0.40280e+03_rb,0.40090e+03_rb /)
+      kbo(:,22,14) = (/ &
+        & 0.40338e+03_rb,0.40757e+03_rb,0.40933e+03_rb,0.40908e+03_rb,0.40708e+03_rb /)
+      kbo(:,23,14) = (/ &
+        & 0.40834e+03_rb,0.41282e+03_rb,0.41463e+03_rb,0.41442e+03_rb,0.41222e+03_rb /)
+      kbo(:,24,14) = (/ &
+        & 0.41280e+03_rb,0.41739e+03_rb,0.41916e+03_rb,0.41879e+03_rb,0.41631e+03_rb /)
+      kbo(:,25,14) = (/ &
+        & 0.41635e+03_rb,0.42140e+03_rb,0.42295e+03_rb,0.42231e+03_rb,0.41948e+03_rb /)
+      kbo(:,26,14) = (/ &
+        & 0.41887e+03_rb,0.42439e+03_rb,0.42613e+03_rb,0.42509e+03_rb,0.42199e+03_rb /)
+      kbo(:,27,14) = (/ &
+        & 0.42034e+03_rb,0.42637e+03_rb,0.42837e+03_rb,0.42723e+03_rb,0.42380e+03_rb /)
+      kbo(:,28,14) = (/ &
+        & 0.42191e+03_rb,0.42841e+03_rb,0.43008e+03_rb,0.42870e+03_rb,0.42501e+03_rb /)
+      kbo(:,29,14) = (/ &
+        & 0.42351e+03_rb,0.42979e+03_rb,0.43162e+03_rb,0.42986e+03_rb,0.42579e+03_rb /)
+      kbo(:,30,14) = (/ &
+        & 0.42461e+03_rb,0.42985e+03_rb,0.43291e+03_rb,0.43068e+03_rb,0.42610e+03_rb /)
+      kbo(:,31,14) = (/ &
+        & 0.42505e+03_rb,0.43017e+03_rb,0.43191e+03_rb,0.43099e+03_rb,0.42603e+03_rb /)
+      kbo(:,32,14) = (/ &
+        & 0.42362e+03_rb,0.42860e+03_rb,0.43041e+03_rb,0.42915e+03_rb,0.42555e+03_rb /)
+      kbo(:,33,14) = (/ &
+        & 0.42123e+03_rb,0.42505e+03_rb,0.42663e+03_rb,0.42551e+03_rb,0.42290e+03_rb /)
+      kbo(:,34,14) = (/ &
+        & 0.41773e+03_rb,0.42082e+03_rb,0.42178e+03_rb,0.42110e+03_rb,0.41858e+03_rb /)
+      kbo(:,35,14) = (/ &
+        & 0.41435e+03_rb,0.41544e+03_rb,0.41491e+03_rb,0.41443e+03_rb,0.41216e+03_rb /)
+      kbo(:,36,14) = (/ &
+        & 0.41009e+03_rb,0.41065e+03_rb,0.40988e+03_rb,0.40756e+03_rb,0.40367e+03_rb /)
+      kbo(:,37,14) = (/ &
+        & 0.40889e+03_rb,0.40948e+03_rb,0.40755e+03_rb,0.40547e+03_rb,0.40195e+03_rb /)
+      kbo(:,38,14) = (/ &
+        & 0.40736e+03_rb,0.40781e+03_rb,0.40666e+03_rb,0.40322e+03_rb,0.39939e+03_rb /)
+      kbo(:,39,14) = (/ &
+        & 0.40514e+03_rb,0.40605e+03_rb,0.40431e+03_rb,0.40166e+03_rb,0.39666e+03_rb /)
+      kbo(:,40,14) = (/ &
+        & 0.40543e+03_rb,0.40633e+03_rb,0.40490e+03_rb,0.40260e+03_rb,0.39791e+03_rb /)
+      kbo(:,41,14) = (/ &
+        & 0.40503e+03_rb,0.40615e+03_rb,0.40599e+03_rb,0.40348e+03_rb,0.39947e+03_rb /)
+      kbo(:,42,14) = (/ &
+        & 0.40408e+03_rb,0.40664e+03_rb,0.40681e+03_rb,0.40441e+03_rb,0.40107e+03_rb /)
+      kbo(:,43,14) = (/ &
+        & 0.40250e+03_rb,0.40659e+03_rb,0.40791e+03_rb,0.40633e+03_rb,0.40362e+03_rb /)
+      kbo(:,44,14) = (/ &
+        & 0.40121e+03_rb,0.40653e+03_rb,0.40934e+03_rb,0.40832e+03_rb,0.40616e+03_rb /)
+      kbo(:,45,14) = (/ &
+        & 0.39928e+03_rb,0.40669e+03_rb,0.41014e+03_rb,0.41010e+03_rb,0.40849e+03_rb /)
+      kbo(:,46,14) = (/ &
+        & 0.39656e+03_rb,0.40551e+03_rb,0.41027e+03_rb,0.41167e+03_rb,0.41068e+03_rb /)
+      kbo(:,47,14) = (/ &
+        & 0.39317e+03_rb,0.40403e+03_rb,0.40985e+03_rb,0.41273e+03_rb,0.41264e+03_rb /)
+      kbo(:,48,14) = (/ &
+        & 0.38915e+03_rb,0.40116e+03_rb,0.40932e+03_rb,0.41346e+03_rb,0.41469e+03_rb /)
+      kbo(:,49,14) = (/ &
+        & 0.38398e+03_rb,0.39755e+03_rb,0.40789e+03_rb,0.41416e+03_rb,0.41577e+03_rb /)
+      kbo(:,50,14) = (/ &
+        & 0.37757e+03_rb,0.39396e+03_rb,0.40616e+03_rb,0.41381e+03_rb,0.41707e+03_rb /)
+      kbo(:,51,14) = (/ &
+        & 0.37117e+03_rb,0.38987e+03_rb,0.40415e+03_rb,0.41318e+03_rb,0.41740e+03_rb /)
+      kbo(:,52,14) = (/ &
+        & 0.36408e+03_rb,0.38505e+03_rb,0.40161e+03_rb,0.41151e+03_rb,0.41801e+03_rb /)
+      kbo(:,53,14) = (/ &
+        & 0.35611e+03_rb,0.37948e+03_rb,0.39824e+03_rb,0.40994e+03_rb,0.41764e+03_rb /)
+      kbo(:,54,14) = (/ &
+        & 0.34712e+03_rb,0.37341e+03_rb,0.39425e+03_rb,0.40798e+03_rb,0.41739e+03_rb /)
+      kbo(:,55,14) = (/ &
+        & 0.33857e+03_rb,0.36757e+03_rb,0.38995e+03_rb,0.40583e+03_rb,0.41654e+03_rb /)
+      kbo(:,56,14) = (/ &
+        & 0.32949e+03_rb,0.36056e+03_rb,0.38492e+03_rb,0.40281e+03_rb,0.41532e+03_rb /)
+      kbo(:,57,14) = (/ &
+        & 0.31954e+03_rb,0.35312e+03_rb,0.37997e+03_rb,0.39944e+03_rb,0.41349e+03_rb /)
+      kbo(:,58,14) = (/ &
+        & 0.30943e+03_rb,0.34518e+03_rb,0.37428e+03_rb,0.39571e+03_rb,0.41155e+03_rb /)
+      kbo(:,59,14) = (/ &
+        & 0.30628e+03_rb,0.34259e+03_rb,0.37284e+03_rb,0.39463e+03_rb,0.41220e+03_rb /)
+      kbo(:,13,15) = (/ &
+        & 0.58702e+03_rb,0.56862e+03_rb,0.55331e+03_rb,0.53896e+03_rb,0.52495e+03_rb /)
+      kbo(:,14,15) = (/ &
+        & 0.64037e+03_rb,0.62129e+03_rb,0.60436e+03_rb,0.58772e+03_rb,0.57127e+03_rb /)
+      kbo(:,15,15) = (/ &
+        & 0.69642e+03_rb,0.67640e+03_rb,0.65677e+03_rb,0.63714e+03_rb,0.61752e+03_rb /)
+      kbo(:,16,15) = (/ &
+        & 0.75408e+03_rb,0.73150e+03_rb,0.70834e+03_rb,0.68512e+03_rb,0.66206e+03_rb /)
+      kbo(:,17,15) = (/ &
+        & 0.81156e+03_rb,0.78496e+03_rb,0.75773e+03_rb,0.73064e+03_rb,0.70441e+03_rb /)
+      kbo(:,18,15) = (/ &
+        & 0.86684e+03_rb,0.83552e+03_rb,0.80425e+03_rb,0.77370e+03_rb,0.74441e+03_rb /)
+      kbo(:,19,15) = (/ &
+        & 0.91879e+03_rb,0.88284e+03_rb,0.84773e+03_rb,0.81356e+03_rb,0.78105e+03_rb /)
+      kbo(:,20,15) = (/ &
+        & 0.96599e+03_rb,0.92558e+03_rb,0.88651e+03_rb,0.84884e+03_rb,0.81303e+03_rb /)
+      kbo(:,21,15) = (/ &
+        & 0.10076e+04_rb,0.96291e+03_rb,0.92009e+03_rb,0.87920e+03_rb,0.84047e+03_rb /)
+      kbo(:,22,15) = (/ &
+        & 0.10401e+04_rb,0.99157e+03_rb,0.94567e+03_rb,0.90208e+03_rb,0.86095e+03_rb /)
+      kbo(:,23,15) = (/ &
+        & 0.10659e+04_rb,0.10143e+04_rb,0.96587e+03_rb,0.91983e+03_rb,0.87686e+03_rb /)
+      kbo(:,24,15) = (/ &
+        & 0.10857e+04_rb,0.10316e+04_rb,0.98077e+03_rb,0.93285e+03_rb,0.88829e+03_rb /)
+      kbo(:,25,15) = (/ &
+        & 0.10994e+04_rb,0.10434e+04_rb,0.99070e+03_rb,0.94138e+03_rb,0.89569e+03_rb /)
+      kbo(:,26,15) = (/ &
+        & 0.11072e+04_rb,0.10495e+04_rb,0.99578e+03_rb,0.94553e+03_rb,0.89886e+03_rb /)
+      kbo(:,27,15) = (/ &
+        & 0.11107e+04_rb,0.10519e+04_rb,0.99732e+03_rb,0.94654e+03_rb,0.89932e+03_rb /)
+      kbo(:,28,15) = (/ &
+        & 0.11104e+04_rb,0.10510e+04_rb,0.99596e+03_rb,0.94493e+03_rb,0.89744e+03_rb /)
+      kbo(:,29,15) = (/ &
+        & 0.11068e+04_rb,0.10472e+04_rb,0.99206e+03_rb,0.94099e+03_rb,0.89320e+03_rb /)
+      kbo(:,30,15) = (/ &
+        & 0.11008e+04_rb,0.10413e+04_rb,0.98636e+03_rb,0.93544e+03_rb,0.88772e+03_rb /)
+      kbo(:,31,15) = (/ &
+        & 0.10926e+04_rb,0.10334e+04_rb,0.97895e+03_rb,0.92827e+03_rb,0.88094e+03_rb /)
+      kbo(:,32,15) = (/ &
+        & 0.10829e+04_rb,0.10242e+04_rb,0.97015e+03_rb,0.91986e+03_rb,0.87315e+03_rb /)
+      kbo(:,33,15) = (/ &
+        & 0.10718e+04_rb,0.10140e+04_rb,0.96048e+03_rb,0.91059e+03_rb,0.86462e+03_rb /)
+      kbo(:,34,15) = (/ &
+        & 0.10622e+04_rb,0.10049e+04_rb,0.95198e+03_rb,0.90258e+03_rb,0.85725e+03_rb /)
+      kbo(:,35,15) = (/ &
+        & 0.10576e+04_rb,0.10006e+04_rb,0.94772e+03_rb,0.89854e+03_rb,0.85365e+03_rb /)
+      kbo(:,36,15) = (/ &
+        & 0.10589e+04_rb,0.10017e+04_rb,0.94880e+03_rb,0.89934e+03_rb,0.85436e+03_rb /)
+      kbo(:,37,15) = (/ &
+        & 0.10689e+04_rb,0.10108e+04_rb,0.95721e+03_rb,0.90723e+03_rb,0.86136e+03_rb /)
+      kbo(:,38,15) = (/ &
+        & 0.10792e+04_rb,0.10202e+04_rb,0.96581e+03_rb,0.91534e+03_rb,0.86861e+03_rb /)
+      kbo(:,39,15) = (/ &
+        & 0.10893e+04_rb,0.10294e+04_rb,0.97432e+03_rb,0.92308e+03_rb,0.87586e+03_rb /)
+      kbo(:,40,15) = (/ &
+        & 0.11025e+04_rb,0.10445e+04_rb,0.98826e+03_rb,0.93598e+03_rb,0.88770e+03_rb /)
+      kbo(:,41,15) = (/ &
+        & 0.11189e+04_rb,0.10606e+04_rb,0.10030e+04_rb,0.94969e+03_rb,0.90027e+03_rb /)
+      kbo(:,42,15) = (/ &
+        & 0.11355e+04_rb,0.10769e+04_rb,0.10180e+04_rb,0.96359e+03_rb,0.91305e+03_rb /)
+      kbo(:,43,15) = (/ &
+        & 0.11585e+04_rb,0.10971e+04_rb,0.10364e+04_rb,0.98067e+03_rb,0.92886e+03_rb /)
+      kbo(:,44,15) = (/ &
+        & 0.11827e+04_rb,0.11193e+04_rb,0.10568e+04_rb,0.99947e+03_rb,0.94636e+03_rb /)
+      kbo(:,45,15) = (/ &
+        & 0.12075e+04_rb,0.11422e+04_rb,0.10778e+04_rb,0.10187e+04_rb,0.96421e+03_rb /)
+      kbo(:,46,15) = (/ &
+        & 0.12357e+04_rb,0.11671e+04_rb,0.11007e+04_rb,0.10396e+04_rb,0.98362e+03_rb /)
+      kbo(:,47,15) = (/ &
+        & 0.12667e+04_rb,0.11958e+04_rb,0.11271e+04_rb,0.10639e+04_rb,0.10059e+04_rb /)
+      kbo(:,48,15) = (/ &
+        & 0.12983e+04_rb,0.12254e+04_rb,0.11543e+04_rb,0.10888e+04_rb,0.10288e+04_rb /)
+      kbo(:,49,15) = (/ &
+        & 0.13304e+04_rb,0.12559e+04_rb,0.11825e+04_rb,0.11147e+04_rb,0.10526e+04_rb /)
+      kbo(:,50,15) = (/ &
+        & 0.13621e+04_rb,0.12852e+04_rb,0.12096e+04_rb,0.11397e+04_rb,0.10755e+04_rb /)
+      kbo(:,51,15) = (/ &
+        & 0.13919e+04_rb,0.13140e+04_rb,0.12368e+04_rb,0.11648e+04_rb,0.10985e+04_rb /)
+      kbo(:,52,15) = (/ &
+        & 0.14222e+04_rb,0.13432e+04_rb,0.12647e+04_rb,0.11905e+04_rb,0.11221e+04_rb /)
+      kbo(:,53,15) = (/ &
+        & 0.14531e+04_rb,0.13729e+04_rb,0.12932e+04_rb,0.12171e+04_rb,0.11465e+04_rb /)
+      kbo(:,54,15) = (/ &
+        & 0.14842e+04_rb,0.14002e+04_rb,0.13197e+04_rb,0.12421e+04_rb,0.11696e+04_rb /)
+      kbo(:,55,15) = (/ &
+        & 0.15120e+04_rb,0.14267e+04_rb,0.13453e+04_rb,0.12667e+04_rb,0.11922e+04_rb /)
+      kbo(:,56,15) = (/ &
+        & 0.15401e+04_rb,0.14538e+04_rb,0.13712e+04_rb,0.12915e+04_rb,0.12155e+04_rb /)
+      kbo(:,57,15) = (/ &
+        & 0.15682e+04_rb,0.14811e+04_rb,0.13973e+04_rb,0.13167e+04_rb,0.12393e+04_rb /)
+      kbo(:,58,15) = (/ &
+        & 0.15949e+04_rb,0.15073e+04_rb,0.14224e+04_rb,0.13410e+04_rb,0.12625e+04_rb /)
+      kbo(:,59,15) = (/ &
+        & 0.16055e+04_rb,0.15180e+04_rb,0.14326e+04_rb,0.13507e+04_rb,0.12718e+04_rb /)
+      kbo(:,13,16) = (/ &
+        & 0.98069e+03_rb,0.94212e+03_rb,0.90378e+03_rb,0.86861e+03_rb,0.83780e+03_rb /)
+      kbo(:,14,16) = (/ &
+        & 0.11010e+04_rb,0.10540e+04_rb,0.10095e+04_rb,0.96975e+03_rb,0.93339e+03_rb /)
+      kbo(:,15,16) = (/ &
+        & 0.12287e+04_rb,0.11714e+04_rb,0.11195e+04_rb,0.10736e+04_rb,0.10305e+04_rb /)
+      kbo(:,16,16) = (/ &
+        & 0.13596e+04_rb,0.12909e+04_rb,0.12306e+04_rb,0.11762e+04_rb,0.11252e+04_rb /)
+      kbo(:,17,16) = (/ &
+        & 0.14895e+04_rb,0.14091e+04_rb,0.13394e+04_rb,0.12751e+04_rb,0.12151e+04_rb /)
+      kbo(:,18,16) = (/ &
+        & 0.16148e+04_rb,0.15230e+04_rb,0.14425e+04_rb,0.13683e+04_rb,0.12989e+04_rb /)
+      kbo(:,19,16) = (/ &
+        & 0.17336e+04_rb,0.16302e+04_rb,0.15375e+04_rb,0.14530e+04_rb,0.13744e+04_rb /)
+      kbo(:,20,16) = (/ &
+        & 0.18405e+04_rb,0.17248e+04_rb,0.16208e+04_rb,0.15267e+04_rb,0.14397e+04_rb /)
+      kbo(:,21,16) = (/ &
+        & 0.19359e+04_rb,0.18083e+04_rb,0.16938e+04_rb,0.15909e+04_rb,0.14962e+04_rb /)
+      kbo(:,22,16) = (/ &
+        & 0.20085e+04_rb,0.18707e+04_rb,0.17478e+04_rb,0.16373e+04_rb,0.15366e+04_rb /)
+      kbo(:,23,16) = (/ &
+        & 0.20648e+04_rb,0.19188e+04_rb,0.17890e+04_rb,0.16725e+04_rb,0.15672e+04_rb /)
+      kbo(:,24,16) = (/ &
+        & 0.21054e+04_rb,0.19528e+04_rb,0.18178e+04_rb,0.16967e+04_rb,0.15881e+04_rb /)
+      kbo(:,25,16) = (/ &
+        & 0.21318e+04_rb,0.19742e+04_rb,0.18353e+04_rb,0.17113e+04_rb,0.16005e+04_rb /)
+      kbo(:,26,16) = (/ &
+        & 0.21433e+04_rb,0.19836e+04_rb,0.18416e+04_rb,0.17161e+04_rb,0.16044e+04_rb /)
+      kbo(:,27,16) = (/ &
+        & 0.21445e+04_rb,0.19835e+04_rb,0.18409e+04_rb,0.17145e+04_rb,0.16033e+04_rb /)
+      kbo(:,28,16) = (/ &
+        & 0.21374e+04_rb,0.19764e+04_rb,0.18336e+04_rb,0.17081e+04_rb,0.15978e+04_rb /)
+      kbo(:,29,16) = (/ &
+        & 0.21225e+04_rb,0.19618e+04_rb,0.18208e+04_rb,0.16961e+04_rb,0.15894e+04_rb /)
+      kbo(:,30,16) = (/ &
+        & 0.21033e+04_rb,0.19434e+04_rb,0.18039e+04_rb,0.16808e+04_rb,0.15775e+04_rb /)
+      kbo(:,31,16) = (/ &
+        & 0.20779e+04_rb,0.19206e+04_rb,0.17837e+04_rb,0.16635e+04_rb,0.15631e+04_rb /)
+      kbo(:,32,16) = (/ &
+        & 0.20491e+04_rb,0.18949e+04_rb,0.17612e+04_rb,0.16447e+04_rb,0.15471e+04_rb /)
+      kbo(:,33,16) = (/ &
+        & 0.20177e+04_rb,0.18682e+04_rb,0.17367e+04_rb,0.16246e+04_rb,0.15302e+04_rb /)
+      kbo(:,34,16) = (/ &
+        & 0.19905e+04_rb,0.18445e+04_rb,0.17155e+04_rb,0.16076e+04_rb,0.15146e+04_rb /)
+      kbo(:,35,16) = (/ &
+        & 0.19774e+04_rb,0.18329e+04_rb,0.17061e+04_rb,0.16001e+04_rb,0.15070e+04_rb /)
+      kbo(:,36,16) = (/ &
+        & 0.19799e+04_rb,0.18350e+04_rb,0.17079e+04_rb,0.16017e+04_rb,0.15083e+04_rb /)
+      kbo(:,37,16) = (/ &
+        & 0.20051e+04_rb,0.18569e+04_rb,0.17271e+04_rb,0.16176e+04_rb,0.15230e+04_rb /)
+      kbo(:,38,16) = (/ &
+        & 0.20315e+04_rb,0.18800e+04_rb,0.17473e+04_rb,0.16343e+04_rb,0.15379e+04_rb /)
+      kbo(:,39,16) = (/ &
+        & 0.20576e+04_rb,0.19026e+04_rb,0.17672e+04_rb,0.16508e+04_rb,0.15527e+04_rb /)
+      kbo(:,40,16) = (/ &
+        & 0.21013e+04_rb,0.19405e+04_rb,0.18004e+04_rb,0.16787e+04_rb,0.15771e+04_rb /)
+      kbo(:,41,16) = (/ &
+        & 0.21482e+04_rb,0.19814e+04_rb,0.18363e+04_rb,0.17091e+04_rb,0.16029e+04_rb /)
+      kbo(:,42,16) = (/ &
+        & 0.21964e+04_rb,0.20236e+04_rb,0.18732e+04_rb,0.17410e+04_rb,0.16295e+04_rb /)
+      kbo(:,43,16) = (/ &
+        & 0.22568e+04_rb,0.20769e+04_rb,0.19193e+04_rb,0.17816e+04_rb,0.16630e+04_rb /)
+      kbo(:,44,16) = (/ &
+        & 0.23247e+04_rb,0.21362e+04_rb,0.19712e+04_rb,0.18270e+04_rb,0.17012e+04_rb /)
+      kbo(:,45,16) = (/ &
+        & 0.23959e+04_rb,0.21983e+04_rb,0.20252e+04_rb,0.18744e+04_rb,0.17420e+04_rb /)
+      kbo(:,46,16) = (/ &
+        & 0.24748e+04_rb,0.22670e+04_rb,0.20858e+04_rb,0.19269e+04_rb,0.17884e+04_rb /)
+      kbo(:,47,16) = (/ &
+        & 0.25688e+04_rb,0.23479e+04_rb,0.21568e+04_rb,0.19886e+04_rb,0.18424e+04_rb /)
+      kbo(:,48,16) = (/ &
+        & 0.26704e+04_rb,0.24334e+04_rb,0.22313e+04_rb,0.20542e+04_rb,0.18994e+04_rb /)
+      kbo(:,49,16) = (/ &
+        & 0.27805e+04_rb,0.25238e+04_rb,0.23096e+04_rb,0.21232e+04_rb,0.19594e+04_rb /)
+      kbo(:,50,16) = (/ &
+        & 0.28920e+04_rb,0.26151e+04_rb,0.23873e+04_rb,0.21911e+04_rb,0.20186e+04_rb /)
+      kbo(:,51,16) = (/ &
+        & 0.30093e+04_rb,0.27098e+04_rb,0.24666e+04_rb,0.22601e+04_rb,0.20794e+04_rb /)
+      kbo(:,52,16) = (/ &
+        & 0.31338e+04_rb,0.28121e+04_rb,0.25503e+04_rb,0.23323e+04_rb,0.21428e+04_rb /)
+      kbo(:,53,16) = (/ &
+        & 0.32663e+04_rb,0.29228e+04_rb,0.26405e+04_rb,0.24086e+04_rb,0.22095e+04_rb /)
+      kbo(:,54,16) = (/ &
+        & 0.33958e+04_rb,0.30317e+04_rb,0.27288e+04_rb,0.24819e+04_rb,0.22731e+04_rb /)
+      kbo(:,55,16) = (/ &
+        & 0.35272e+04_rb,0.31418e+04_rb,0.28194e+04_rb,0.25560e+04_rb,0.23371e+04_rb /)
+      kbo(:,56,16) = (/ &
+        & 0.36664e+04_rb,0.32577e+04_rb,0.29162e+04_rb,0.26350e+04_rb,0.24040e+04_rb /)
+      kbo(:,57,16) = (/ &
+        & 0.38139e+04_rb,0.33808e+04_rb,0.30193e+04_rb,0.27188e+04_rb,0.24736e+04_rb /)
+      kbo(:,58,16) = (/ &
+        & 0.39629e+04_rb,0.35038e+04_rb,0.31229e+04_rb,0.28034e+04_rb,0.25431e+04_rb /)
+      kbo(:,59,16) = (/ &
+        & 0.40252e+04_rb,0.35562e+04_rb,0.31659e+04_rb,0.28393e+04_rb,0.25724e+04_rb /)
+
+!     -----------------------------------------------------------------
+
+      forrefo(:, 1) = (/ 0.525585e-05_rb, 0.527618e-05_rb, 0.746929e-04_rb /)
+      forrefo(:, 2) = (/ 0.794660e-05_rb, 0.136902e-04_rb, 0.849878e-04_rb /)
+      forrefo(:, 3) = (/ 0.197099e-04_rb, 0.733094e-04_rb, 0.121687e-03_rb /)
+      forrefo(:, 4) = (/ 0.148274e-03_rb, 0.169776e-03_rb, 0.164848e-03_rb /)
+      forrefo(:, 5) = (/ 0.230296e-03_rb, 0.210384e-03_rb, 0.182028e-03_rb /)
+      forrefo(:, 6) = (/ 0.280575e-03_rb, 0.259217e-03_rb, 0.196080e-03_rb /)
+      forrefo(:, 7) = (/ 0.329034e-03_rb, 0.291575e-03_rb, 0.207044e-03_rb /)
+      forrefo(:, 8) = (/ 0.349989e-03_rb, 0.323471e-03_rb, 0.225712e-03_rb /)
+      forrefo(:, 9) = (/ 0.366097e-03_rb, 0.321519e-03_rb, 0.253150e-03_rb /)
+      forrefo(:,10) = (/ 0.383589e-03_rb, 0.355314e-03_rb, 0.262555e-03_rb /)
+      forrefo(:,11) = (/ 0.375933e-03_rb, 0.372443e-03_rb, 0.261313e-03_rb /)
+      forrefo(:,12) = (/ 0.370652e-03_rb, 0.382366e-03_rb, 0.250070e-03_rb /)
+      forrefo(:,13) = (/ 0.375092e-03_rb, 0.379542e-03_rb, 0.265794e-03_rb /)
+      forrefo(:,14) = (/ 0.389705e-03_rb, 0.384274e-03_rb, 0.322135e-03_rb /)
+      forrefo(:,15) = (/ 0.372084e-03_rb, 0.390422e-03_rb, 0.370035e-03_rb /)
+      forrefo(:,16) = (/ 0.437802e-03_rb, 0.373406e-03_rb, 0.373222e-03_rb /)
+      
+!     -----------------------------------------------------------------
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+!     -----------------------------------------------------------------
+      
+      selfrefo(:, 1) = (/ &
+        &  0.126758e-02_rb, 0.105253e-02_rb, 0.873963e-03_rb, 0.725690e-03_rb, 0.602573e-03_rb, &
+        &  0.500344e-03_rb, 0.415458e-03_rb, 0.344973e-03_rb, 0.286447e-03_rb, 0.237849e-03_rb /)
+      selfrefo(:, 2) = (/ &
+        &  0.144006e-02_rb, 0.118514e-02_rb, 0.975351e-03_rb, 0.802697e-03_rb, 0.660606e-03_rb, &
+        &  0.543667e-03_rb, 0.447429e-03_rb, 0.368226e-03_rb, 0.303044e-03_rb, 0.249400e-03_rb /)
+      selfrefo(:, 3) = (/ &
+        &  0.294018e-02_rb, 0.227428e-02_rb, 0.175920e-02_rb, 0.136077e-02_rb, 0.105258e-02_rb, &
+        &  0.814189e-03_rb, 0.629789e-03_rb, 0.487153e-03_rb, 0.376821e-03_rb, 0.291478e-03_rb /)
+      selfrefo(:, 4) = (/ &
+        &  0.395290e-02_rb, 0.348405e-02_rb, 0.307081e-02_rb, 0.270658e-02_rb, 0.238556e-02_rb, &
+        &  0.210261e-02_rb, 0.185322e-02_rb, 0.163341e-02_rb, 0.143967e-02_rb, 0.126891e-02_rb /)
+      selfrefo(:, 5) = (/ &
+        &  0.419122e-02_rb, 0.385638e-02_rb, 0.354829e-02_rb, 0.326481e-02_rb, 0.300398e-02_rb, &
+        &  0.276399e-02_rb, 0.254317e-02_rb, 0.234000e-02_rb, 0.215305e-02_rb, 0.198104e-02_rb /)
+      selfrefo(:, 6) = (/ &
+        &  0.495659e-02_rb, 0.456777e-02_rb, 0.420945e-02_rb, 0.387924e-02_rb, 0.357494e-02_rb, &
+        &  0.329450e-02_rb, 0.303606e-02_rb, 0.279790e-02_rb, 0.257842e-02_rb, 0.237615e-02_rb /)
+      selfrefo(:, 7) = (/ &
+        &  0.526981e-02_rb, 0.490687e-02_rb, 0.456893e-02_rb, 0.425426e-02_rb, 0.396126e-02_rb, &
+        &  0.368844e-02_rb, 0.343441e-02_rb, 0.319788e-02_rb, 0.297764e-02_rb, 0.277256e-02_rb /)
+      selfrefo(:, 8) = (/ &
+        &  0.575426e-02_rb, 0.531597e-02_rb, 0.491106e-02_rb, 0.453699e-02_rb, 0.419141e-02_rb, &
+        &  0.387216e-02_rb, 0.357722e-02_rb, 0.330475e-02_rb, 0.305303e-02_rb, 0.282048e-02_rb /)
+      selfrefo(:, 9) = (/ &
+        &  0.549881e-02_rb, 0.514328e-02_rb, 0.481074e-02_rb, 0.449970e-02_rb, 0.420877e-02_rb, &
+        &  0.393665e-02_rb, 0.368213e-02_rb, 0.344406e-02_rb, 0.322138e-02_rb, 0.301310e-02_rb /)
+      selfrefo(:,10) = (/ &
+        &  0.605357e-02_rb, 0.561246e-02_rb, 0.520349e-02_rb, 0.482432e-02_rb, 0.447278e-02_rb, &
+        &  0.414686e-02_rb, 0.384469e-02_rb, 0.356453e-02_rb, 0.330479e-02_rb, 0.306398e-02_rb /)
+      selfrefo(:,11) = (/ &
+        &  0.640504e-02_rb, 0.587858e-02_rb, 0.539540e-02_rb, 0.495194e-02_rb, 0.454492e-02_rb, &
+        &  0.417136e-02_rb, 0.382850e-02_rb, 0.351382e-02_rb, 0.322501e-02_rb, 0.295993e-02_rb /)
+      selfrefo(:,12) = (/ &
+        &  0.677803e-02_rb, 0.615625e-02_rb, 0.559152e-02_rb, 0.507859e-02_rb, 0.461271e-02_rb, &
+        &  0.418957e-02_rb, 0.380524e-02_rb, 0.345617e-02_rb, 0.313913e-02_rb, 0.285116e-02_rb /)
+      selfrefo(:,13) = (/ &
+        &  0.690347e-02_rb, 0.627003e-02_rb, 0.569472e-02_rb, 0.517219e-02_rb, 0.469761e-02_rb, &
+        &  0.426658e-02_rb, 0.387509e-02_rb, 0.351953e-02_rb, 0.319659e-02_rb, 0.290328e-02_rb /)
+      selfrefo(:,14) = (/ &
+        &  0.692680e-02_rb, 0.632795e-02_rb, 0.578087e-02_rb, 0.528109e-02_rb, 0.482452e-02_rb, &
+        &  0.440742e-02_rb, 0.402638e-02_rb, 0.367828e-02_rb, 0.336028e-02_rb, 0.306977e-02_rb /)
+      selfrefo(:,15) = (/ &
+        &  0.754894e-02_rb, 0.681481e-02_rb, 0.615207e-02_rb, 0.555378e-02_rb, 0.501367e-02_rb, &
+        &  0.452609e-02_rb, 0.408593e-02_rb, 0.368857e-02_rb, 0.332986e-02_rb, 0.300603e-02_rb /)
+      selfrefo(:,16) = (/ &
+        &  0.760689e-02_rb, 0.709755e-02_rb, 0.662232e-02_rb, 0.617891e-02_rb, 0.576519e-02_rb, &
+        &  0.537917e-02_rb, 0.501899e-02_rb, 0.468293e-02_rb, 0.436938e-02_rb, 0.407682e-02_rb /)
+     
+      end subroutine sw_kgb16
+
+! **************************************************************************
+      subroutine sw_kgb17
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg17, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:,1) = (/ &
+        & 3.15613_rb  ,  3.03449_rb  ,  2.92069_rb  ,  2.63874_rb   , &
+        & 2.34581_rb  ,  2.06999_rb  ,  1.70906_rb  ,  1.29085_rb   , &
+        & 0.874851_rb ,  0.0955392_rb,  0.0787813_rb,  0.0621951_rb , &
+        & 0.0459076_rb,  0.0294129_rb,  0.0110387_rb,  0.00159668_rb /)
+      sfluxrefo(:,2) = (/ &
+        & 2.83147_rb  ,  2.95919_rb  ,  2.96674_rb  ,  2.77677_rb   , &
+        & 2.46826_rb  ,  2.11481_rb  ,  1.73243_rb  ,  1.30279_rb   , &
+        & 0.882714_rb ,  0.0962350_rb,  0.0802122_rb,  0.0636194_rb , &
+        & 0.0472620_rb,  0.0299051_rb,  0.0110785_rb,  0.00159668_rb /)
+      sfluxrefo(:,3) = (/ &
+        & 2.82300_rb  ,  2.94845_rb  ,  2.95887_rb  ,  2.77593_rb   , &
+        & 2.47096_rb  ,  2.12596_rb  ,  1.73847_rb  ,  1.30796_rb   , &
+        & 0.884395_rb ,  0.0966936_rb,  0.0801996_rb,  0.0640199_rb , &
+        & 0.0472803_rb,  0.0300515_rb,  0.0112366_rb,  0.00160814_rb /)
+      sfluxrefo(:,4) = (/ &
+        & 2.81715_rb  ,  2.93789_rb  ,  2.95091_rb  ,  2.77046_rb   , &
+        & 2.47716_rb  ,  2.13591_rb  ,  1.74365_rb  ,  1.31277_rb   , &
+        & 0.887443_rb ,  0.0967016_rb,  0.0803391_rb,  0.0642442_rb , &
+        & 0.0472909_rb,  0.0300720_rb,  0.0114817_rb,  0.00161875_rb /)
+      sfluxrefo(:,5) = (/ &
+        & 2.82335_rb  ,  2.93168_rb  ,  2.91455_rb  ,  2.75213_rb   , &
+        & 2.49168_rb  ,  2.14408_rb  ,  1.75726_rb  ,  1.32401_rb   , &
+        & 0.893644_rb ,  0.0969523_rb,  0.0805197_rb,  0.0639936_rb , &
+        & 0.0475099_rb,  0.0305667_rb,  0.0115372_rb,  0.00161875_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:,1) = (/ &
+        & 3.00380E+00_rb, 3.01499E+00_rb, 2.88453E+00_rb, 2.66215E+00_rb,&
+        & 2.41145E+00_rb, 2.07054E+00_rb, 1.69908E+00_rb, 1.28167E+00_rb,&
+        & 8.67239E-01_rb, 9.46462E-02_rb, 7.80535E-02_rb, 6.16168E-02_rb,&
+        & 4.54819E-02_rb, 2.91472E-02_rb, 1.09384E-02_rb, 1.58227E-03_rb/)
+      irradnceo(:,2) = (/ &
+        & 2.78291E+00_rb, 2.95184E+00_rb, 2.94616E+00_rb, 2.75630E+00_rb,&
+        & 2.45861E+00_rb, 2.10312E+00_rb, 1.72152E+00_rb, 1.29314E+00_rb,&
+        & 8.76016E-01_rb, 9.54462E-02_rb, 7.95557E-02_rb, 6.31187E-02_rb,&
+        & 4.69116E-02_rb, 2.97081E-02_rb, 1.09937E-02_rb, 1.58227E-03_rb/)
+      irradnceo(:,3) = (/ &
+        & 2.77881E+00_rb, 2.92869E+00_rb, 2.94671E+00_rb, 2.75619E+00_rb,&
+        & 2.46125E+00_rb, 2.11314E+00_rb, 1.72657E+00_rb, 1.29878E+00_rb,&
+        & 8.78235E-01_rb, 9.59533E-02_rb, 7.95652E-02_rb, 6.34930E-02_rb,&
+        & 4.69402E-02_rb, 2.98560E-02_rb, 1.11600E-02_rb, 1.60267E-03_rb/)
+      irradnceo(:,4) = (/ &
+        & 2.77427E+00_rb, 2.92613E+00_rb, 2.92863E+00_rb, 2.75471E+00_rb,&
+        & 2.46413E+00_rb, 2.12275E+00_rb, 1.73162E+00_rb, 1.30408E+00_rb,&
+        & 8.81320E-01_rb, 9.59524E-02_rb, 7.97535E-02_rb, 6.37490E-02_rb,&
+        & 4.69216E-02_rb, 2.98679E-02_rb, 1.14332E-02_rb, 1.61722E-03_rb/)
+      irradnceo(:,5) = (/ &
+        & 2.75976E+00_rb, 2.93480E+00_rb, 2.89604E+00_rb, 2.72071E+00_rb,&
+        & 2.46217E+00_rb, 2.14116E+00_rb, 1.75435E+00_rb, 1.32404E+00_rb,&
+        & 8.93287E-01_rb, 9.64493E-02_rb, 7.99754E-02_rb, 6.35176E-02_rb,&
+        & 4.71787E-02_rb, 3.03769E-02_rb, 1.14846E-02_rb, 1.61722E-03_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:,1) = (/ &
+        & 7.92679E-04_rb, 7.90259E-04_rb, 7.50265E-04_rb, 6.86566E-04_rb,&
+        & 6.13488E-04_rb, 5.12914E-04_rb, 4.13317E-04_rb, 3.10175E-04_rb,&
+        & 2.10234E-04_rb, 2.29639E-05_rb, 1.89746E-05_rb, 1.49935E-05_rb,&
+        & 1.10311E-05_rb, 7.04437E-06_rb, 2.64054E-06_rb, 3.76806E-07_rb/)
+      facbrghto(:,2) = (/ &
+        & 7.24729E-04_rb, 7.68724E-04_rb, 7.64896E-04_rb, 7.08831E-04_rb,&
+        & 6.23760E-04_rb, 5.23886E-04_rb, 4.25169E-04_rb, 3.19603E-04_rb,&
+        & 2.17156E-04_rb, 2.36660E-05_rb, 1.97404E-05_rb, 1.56597E-05_rb,&
+        & 1.16608E-05_rb, 7.39474E-06_rb, 2.67023E-06_rb, 3.76806E-07_rb/)
+      facbrghto(:,3) = (/ &
+        & 7.22453E-04_rb, 7.59373E-04_rb, 7.64513E-04_rb, 7.07591E-04_rb,&
+        & 6.22956E-04_rb, 5.28244E-04_rb, 4.28829E-04_rb, 3.23029E-04_rb,&
+        & 2.19000E-04_rb, 2.39727E-05_rb, 1.98054E-05_rb, 1.57951E-05_rb,&
+        & 1.17384E-05_rb, 7.46055E-06_rb, 2.76650E-06_rb, 3.94737E-07_rb/)
+      facbrghto(:,4) = (/ &
+        & 7.19944E-04_rb, 7.57664E-04_rb, 7.55804E-04_rb, 7.06804E-04_rb,&
+        & 6.21975E-04_rb, 5.33055E-04_rb, 4.32950E-04_rb, 3.26216E-04_rb,&
+        & 2.21019E-04_rb, 2.40765E-05_rb, 1.99104E-05_rb, 1.59777E-05_rb,&
+        & 1.17605E-05_rb, 7.46496E-06_rb, 2.88424E-06_rb, 4.17580E-07_rb/)
+      facbrghto(:,5) = (/ &
+        & 7.10164E-04_rb, 7.49716E-04_rb, 7.35392E-04_rb, 6.93190E-04_rb,&
+        & 6.27365E-04_rb, 5.47220E-04_rb, 4.47370E-04_rb, 3.36835E-04_rb,&
+        & 2.26764E-04_rb, 2.45333E-05_rb, 2.03053E-05_rb, 1.60363E-05_rb,&
+        & 1.19581E-05_rb, 7.72650E-06_rb, 2.93031E-06_rb, 4.17580E-07_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:,1) = (/ &
+        &-3.59484E-04_rb,-3.65300E-04_rb,-3.48916E-04_rb,-3.20756E-04_rb,&
+        &-2.90556E-04_rb,-2.45378E-04_rb,-2.00296E-04_rb,-1.50935E-04_rb,&
+        &-1.02160E-04_rb,-1.11770E-05_rb,-9.21224E-06_rb,-7.26637E-06_rb,&
+        &-5.35918E-06_rb,-3.44009E-06_rb,-1.29143E-06_rb,-1.88663E-07_rb/)
+      snsptdrko(:,2) = (/ &
+        &-3.21006E-04_rb,-3.55162E-04_rb,-3.59974E-04_rb,-3.35589E-04_rb,&
+        &-2.96374E-04_rb,-2.51058E-04_rb,-2.05001E-04_rb,-1.53920E-04_rb,&
+        &-1.04476E-04_rb,-1.13950E-05_rb,-9.51824E-06_rb,-7.55462E-06_rb,&
+        &-5.64173E-06_rb,-3.55839E-06_rb,-1.30018E-06_rb,-1.88663E-07_rb/)
+      snsptdrko(:,3) = (/ &
+        &-3.20043E-04_rb,-3.50843E-04_rb,-3.60160E-04_rb,-3.35247E-04_rb,&
+        &-2.96458E-04_rb,-2.53066E-04_rb,-2.06254E-04_rb,-1.55161E-04_rb,&
+        &-1.05030E-04_rb,-1.15221E-05_rb,-9.52632E-06_rb,-7.62653E-06_rb,&
+        &-5.65949E-06_rb,-3.59072E-06_rb,-1.33606E-06_rb,-1.91522E-07_rb/)
+      snsptdrko(:,4) = (/ &
+        &-3.18913E-04_rb,-3.50362E-04_rb,-3.56389E-04_rb,-3.35108E-04_rb,&
+        &-2.96722E-04_rb,-2.54950E-04_rb,-2.07581E-04_rb,-1.56352E-04_rb,&
+        &-1.05703E-04_rb,-1.15254E-05_rb,-9.57868E-06_rb,-7.69098E-06_rb,&
+        &-5.66733E-06_rb,-3.59649E-06_rb,-1.38271E-06_rb,-1.95898E-07_rb/)
+      snsptdrko(:,5) = (/ &
+        &-3.14466E-04_rb,-3.48952E-04_rb,-3.47912E-04_rb,-3.28476E-04_rb,&
+        &-2.98297E-04_rb,-2.60496E-04_rb,-2.13593E-04_rb,-1.61075E-04_rb,&
+        &-1.08403E-04_rb,-1.16544E-05_rb,-9.68748E-06_rb,-7.68153E-06_rb,&
+        &-5.73245E-06_rb,-3.70217E-06_rb,-1.39400E-06_rb,-1.95898E-07_rb/)
+
+! Rayleigh extinction coefficient at v = 3625 cm-1.
+      rayl = 6.86e-10_rb
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1, 1) = (/ &
+        & 0.11134e-05_rb,0.32092e-03_rb,0.55663e-03_rb,0.78227e-03_rb,0.99421e-03_rb, &
+        & 0.12045e-02_rb,0.14116e-02_rb,0.16069e-02_rb,0.19330e-02_rb /)
+      kao(:, 2, 1, 1) = (/ &
+        & 0.10544e-05_rb,0.35434e-03_rb,0.61480e-03_rb,0.86424e-03_rb,0.11055e-02_rb, &
+        & 0.13431e-02_rb,0.15754e-02_rb,0.17951e-02_rb,0.21280e-02_rb /)
+      kao(:, 3, 1, 1) = (/ &
+        & 0.98345e-06_rb,0.38989e-03_rb,0.67747e-03_rb,0.95289e-03_rb,0.12196e-02_rb, &
+        & 0.14864e-02_rb,0.17449e-02_rb,0.19897e-02_rb,0.23564e-02_rb /)
+      kao(:, 4, 1, 1) = (/ &
+        & 0.95017e-06_rb,0.42582e-03_rb,0.74419e-03_rb,0.10463e-02_rb,0.13424e-02_rb, &
+        & 0.16353e-02_rb,0.19215e-02_rb,0.21939e-02_rb,0.25993e-02_rb /)
+      kao(:, 5, 1, 1) = (/ &
+        & 0.91870e-06_rb,0.46371e-03_rb,0.81394e-03_rb,0.11464e-02_rb,0.14715e-02_rb, &
+        & 0.17937e-02_rb,0.21072e-02_rb,0.24077e-02_rb,0.28540e-02_rb /)
+      kao(:, 1, 2, 1) = (/ &
+        & 0.94184e-06_rb,0.26532e-03_rb,0.46157e-03_rb,0.63776e-03_rb,0.81087e-03_rb, &
+        & 0.97728e-03_rb,0.11419e-02_rb,0.12991e-02_rb,0.15121e-02_rb /)
+      kao(:, 2, 2, 1) = (/ &
+        & 0.89060e-06_rb,0.29417e-03_rb,0.50967e-03_rb,0.70759e-03_rb,0.90203e-03_rb, &
+        & 0.10920e-02_rb,0.12764e-02_rb,0.14544e-02_rb,0.16795e-02_rb /)
+      kao(:, 3, 2, 1) = (/ &
+        & 0.82720e-06_rb,0.32361e-03_rb,0.56124e-03_rb,0.78299e-03_rb,0.99718e-03_rb, &
+        & 0.12094e-02_rb,0.14172e-02_rb,0.16165e-02_rb,0.18637e-02_rb /)
+      kao(:, 4, 2, 1) = (/ &
+        & 0.78842e-06_rb,0.35495e-03_rb,0.61684e-03_rb,0.86176e-03_rb,0.10995e-02_rb, &
+        & 0.13345e-02_rb,0.15652e-02_rb,0.17856e-02_rb,0.20621e-02_rb /)
+      kao(:, 5, 2, 1) = (/ &
+        & 0.76610e-06_rb,0.38728e-03_rb,0.67538e-03_rb,0.94613e-03_rb,0.12082e-02_rb, &
+        & 0.14675e-02_rb,0.17206e-02_rb,0.19640e-02_rb,0.22720e-02_rb /)
+      kao(:, 1, 3, 1) = (/ &
+        & 0.79663e-06_rb,0.21369e-03_rb,0.37088e-03_rb,0.51222e-03_rb,0.64549e-03_rb, &
+        & 0.77322e-03_rb,0.89939e-03_rb,0.10205e-02_rb,0.11568e-02_rb /)
+      kao(:, 2, 3, 1) = (/ &
+        & 0.75955e-06_rb,0.23780e-03_rb,0.41153e-03_rb,0.56901e-03_rb,0.72009e-03_rb, &
+        & 0.86735e-03_rb,0.10092e-02_rb,0.11476e-02_rb,0.12913e-02_rb /)
+      kao(:, 3, 3, 1) = (/ &
+        & 0.71692e-06_rb,0.26276e-03_rb,0.45488e-03_rb,0.62922e-03_rb,0.79836e-03_rb, &
+        & 0.96259e-03_rb,0.11236e-02_rb,0.12796e-02_rb,0.14398e-02_rb /)
+      kao(:, 4, 3, 1) = (/ &
+        & 0.66348e-06_rb,0.28896e-03_rb,0.50221e-03_rb,0.69411e-03_rb,0.88226e-03_rb, &
+        & 0.10658e-02_rb,0.12456e-02_rb,0.14191e-02_rb,0.15991e-02_rb /)
+      kao(:, 5, 3, 1) = (/ &
+        & 0.64013e-06_rb,0.31643e-03_rb,0.55166e-03_rb,0.76434e-03_rb,0.97216e-03_rb, &
+        & 0.11745e-02_rb,0.13731e-02_rb,0.15657e-02_rb,0.17671e-02_rb /)
+      kao(:, 1, 4, 1) = (/ &
+        & 0.66217e-06_rb,0.16966e-03_rb,0.29358e-03_rb,0.40688e-03_rb,0.51114e-03_rb, &
+        & 0.60739e-03_rb,0.70191e-03_rb,0.79446e-03_rb,0.88832e-03_rb /)
+      kao(:, 2, 4, 1) = (/ &
+        & 0.64111e-06_rb,0.18902e-03_rb,0.32742e-03_rb,0.45364e-03_rb,0.57086e-03_rb, &
+        & 0.68401e-03_rb,0.79116e-03_rb,0.89507e-03_rb,0.99655e-03_rb /)
+      kao(:, 3, 4, 1) = (/ &
+        & 0.60729e-06_rb,0.21007e-03_rb,0.36354e-03_rb,0.50354e-03_rb,0.63459e-03_rb, &
+        & 0.76113e-03_rb,0.88473e-03_rb,0.10035e-02_rb,0.11163e-02_rb /)
+      kao(:, 4, 4, 1) = (/ &
+        & 0.57250e-06_rb,0.23203e-03_rb,0.40245e-03_rb,0.55758e-03_rb,0.70295e-03_rb, &
+        & 0.84515e-03_rb,0.98379e-03_rb,0.11165e-02_rb,0.12444e-02_rb /)
+      kao(:, 5, 4, 1) = (/ &
+        & 0.53524e-06_rb,0.25529e-03_rb,0.44399e-03_rb,0.61564e-03_rb,0.77626e-03_rb, &
+        & 0.93405e-03_rb,0.10892e-02_rb,0.12369e-02_rb,0.13795e-02_rb /)
+      kao(:, 1, 5, 1) = (/ &
+        & 0.55112e-06_rb,0.13422e-03_rb,0.23166e-03_rb,0.32119e-03_rb,0.40265e-03_rb, &
+        & 0.47812e-03_rb,0.54797e-03_rb,0.61873e-03_rb,0.68912e-03_rb /)
+      kao(:, 2, 5, 1) = (/ &
+        & 0.53669e-06_rb,0.14990e-03_rb,0.25949e-03_rb,0.35886e-03_rb,0.45239e-03_rb, &
+        & 0.53936e-03_rb,0.61894e-03_rb,0.69718e-03_rb,0.77732e-03_rb /)
+      kao(:, 3, 5, 1) = (/ &
+        & 0.51495e-06_rb,0.16706e-03_rb,0.28960e-03_rb,0.40020e-03_rb,0.50461e-03_rb, &
+        & 0.60249e-03_rb,0.69677e-03_rb,0.78464e-03_rb,0.87334e-03_rb /)
+      kao(:, 4, 5, 1) = (/ &
+        & 0.48633e-06_rb,0.18543e-03_rb,0.32159e-03_rb,0.44499e-03_rb,0.56095e-03_rb, &
+        & 0.67055e-03_rb,0.77575e-03_rb,0.87717e-03_rb,0.97694e-03_rb /)
+      kao(:, 5, 5, 1) = (/ &
+        & 0.45162e-06_rb,0.20472e-03_rb,0.35591e-03_rb,0.49350e-03_rb,0.62163e-03_rb, &
+        & 0.74253e-03_rb,0.86247e-03_rb,0.97518e-03_rb,0.10864e-02_rb /)
+      kao(:, 1, 6, 1) = (/ &
+        & 0.45055e-06_rb,0.10556e-03_rb,0.18176e-03_rb,0.25137e-03_rb,0.31438e-03_rb, &
+        & 0.37363e-03_rb,0.42759e-03_rb,0.47883e-03_rb,0.53437e-03_rb /)
+      kao(:, 2, 6, 1) = (/ &
+        & 0.44502e-06_rb,0.11814e-03_rb,0.20383e-03_rb,0.28162e-03_rb,0.35547e-03_rb, &
+        & 0.42261e-03_rb,0.48340e-03_rb,0.54066e-03_rb,0.60352e-03_rb /)
+      kao(:, 3, 6, 1) = (/ &
+        & 0.43066e-06_rb,0.13217e-03_rb,0.22836e-03_rb,0.31552e-03_rb,0.39762e-03_rb, &
+        & 0.47493e-03_rb,0.54543e-03_rb,0.61066e-03_rb,0.68176e-03_rb /)
+      kao(:, 4, 6, 1) = (/ &
+        & 0.41116e-06_rb,0.14733e-03_rb,0.25472e-03_rb,0.35204e-03_rb,0.44334e-03_rb, &
+        & 0.52997e-03_rb,0.60966e-03_rb,0.68622e-03_rb,0.76607e-03_rb /)
+      kao(:, 5, 6, 1) = (/ &
+        & 0.38748e-06_rb,0.16344e-03_rb,0.28281e-03_rb,0.39173e-03_rb,0.49305e-03_rb, &
+        & 0.58880e-03_rb,0.67954e-03_rb,0.76485e-03_rb,0.85401e-03_rb /)
+      kao(:, 1, 7, 1) = (/ &
+        & 0.36582e-06_rb,0.82958e-04_rb,0.14210e-03_rb,0.19574e-03_rb,0.24440e-03_rb, &
+        & 0.29039e-03_rb,0.33281e-03_rb,0.37177e-03_rb,0.42178e-03_rb /)
+      kao(:, 2, 7, 1) = (/ &
+        & 0.36707e-06_rb,0.92909e-04_rb,0.15977e-03_rb,0.22034e-03_rb,0.27742e-03_rb, &
+        & 0.32955e-03_rb,0.37727e-03_rb,0.41956e-03_rb,0.47859e-03_rb /)
+      kao(:, 3, 7, 1) = (/ &
+        & 0.35787e-06_rb,0.10432e-03_rb,0.17930e-03_rb,0.24769e-03_rb,0.31155e-03_rb, &
+        & 0.37242e-03_rb,0.42699e-03_rb,0.47474e-03_rb,0.54083e-03_rb /)
+      kao(:, 4, 7, 1) = (/ &
+        & 0.34482e-06_rb,0.11685e-03_rb,0.20055e-03_rb,0.27725e-03_rb,0.34866e-03_rb, &
+        & 0.41677e-03_rb,0.47903e-03_rb,0.53518e-03_rb,0.60812e-03_rb /)
+      kao(:, 5, 7, 1) = (/ &
+        & 0.32598e-06_rb,0.13001e-03_rb,0.22341e-03_rb,0.30900e-03_rb,0.38919e-03_rb, &
+        & 0.46465e-03_rb,0.53467e-03_rb,0.59926e-03_rb,0.67733e-03_rb /)
+      kao(:, 1, 8, 1) = (/ &
+        & 0.29834e-06_rb,0.65009e-04_rb,0.11183e-03_rb,0.15200e-03_rb,0.18969e-03_rb, &
+        & 0.22517e-03_rb,0.25832e-03_rb,0.28730e-03_rb,0.33955e-03_rb /)
+      kao(:, 2, 8, 1) = (/ &
+        & 0.29745e-06_rb,0.72872e-04_rb,0.12482e-03_rb,0.17221e-03_rb,0.21583e-03_rb, &
+        & 0.25596e-03_rb,0.29328e-03_rb,0.32520e-03_rb,0.38620e-03_rb /)
+      kao(:, 3, 8, 1) = (/ &
+        & 0.29421e-06_rb,0.82036e-04_rb,0.14010e-03_rb,0.19344e-03_rb,0.24362e-03_rb, &
+        & 0.29071e-03_rb,0.33308e-03_rb,0.36867e-03_rb,0.43901e-03_rb /)
+      kao(:, 4, 8, 1) = (/ &
+        & 0.28596e-06_rb,0.92256e-04_rb,0.15738e-03_rb,0.21752e-03_rb,0.27325e-03_rb, &
+        & 0.32643e-03_rb,0.37578e-03_rb,0.41710e-03_rb,0.49358e-03_rb /)
+      kao(:, 5, 8, 1) = (/ &
+        & 0.27296e-06_rb,0.10320e-03_rb,0.17598e-03_rb,0.24339e-03_rb,0.30591e-03_rb, &
+        & 0.36505e-03_rb,0.42061e-03_rb,0.46872e-03_rb,0.54993e-03_rb /)
+      kao(:, 1, 9, 1) = (/ &
+        & 0.24259e-06_rb,0.50626e-04_rb,0.86945e-04_rb,0.11778e-03_rb,0.14692e-03_rb, &
+        & 0.17431e-03_rb,0.20057e-03_rb,0.22131e-03_rb,0.29919e-03_rb /)
+      kao(:, 2, 9, 1) = (/ &
+        & 0.24058e-06_rb,0.56966e-04_rb,0.97467e-04_rb,0.13405e-03_rb,0.16750e-03_rb, &
+        & 0.19814e-03_rb,0.22739e-03_rb,0.25281e-03_rb,0.34022e-03_rb /)
+      kao(:, 3, 9, 1) = (/ &
+        & 0.24091e-06_rb,0.64324e-04_rb,0.10971e-03_rb,0.15061e-03_rb,0.18996e-03_rb, &
+        & 0.22580e-03_rb,0.25885e-03_rb,0.28694e-03_rb,0.38045e-03_rb /)
+      kao(:, 4, 9, 1) = (/ &
+        & 0.23550e-06_rb,0.72451e-04_rb,0.12345e-03_rb,0.16991e-03_rb,0.21362e-03_rb, &
+        & 0.25484e-03_rb,0.29341e-03_rb,0.32523e-03_rb,0.42836e-03_rb /)
+      kao(:, 5, 9, 1) = (/ &
+        & 0.22696e-06_rb,0.81351e-04_rb,0.13839e-03_rb,0.19090e-03_rb,0.23986e-03_rb, &
+        & 0.28608e-03_rb,0.32910e-03_rb,0.36639e-03_rb,0.47925e-03_rb /)
+      kao(:, 1,10, 1) = (/ &
+        & 0.19679e-06_rb,0.39760e-04_rb,0.68052e-04_rb,0.92295e-04_rb,0.11498e-03_rb, &
+        & 0.13656e-03_rb,0.15604e-03_rb,0.17171e-03_rb,0.29679e-03_rb /)
+      kao(:, 2,10, 1) = (/ &
+        & 0.19567e-06_rb,0.44847e-04_rb,0.76829e-04_rb,0.10518e-03_rb,0.13102e-03_rb, &
+        & 0.15509e-03_rb,0.17764e-03_rb,0.19843e-03_rb,0.32863e-03_rb /)
+      kao(:, 3,10, 1) = (/ &
+        & 0.19574e-06_rb,0.50565e-04_rb,0.86466e-04_rb,0.11878e-03_rb,0.14920e-03_rb, &
+        & 0.17698e-03_rb,0.20258e-03_rb,0.22526e-03_rb,0.36959e-03_rb /)
+      kao(:, 4,10, 1) = (/ &
+        & 0.19262e-06_rb,0.57124e-04_rb,0.97546e-04_rb,0.13398e-03_rb,0.16803e-03_rb, &
+        & 0.20046e-03_rb,0.23022e-03_rb,0.25578e-03_rb,0.41543e-03_rb /)
+      kao(:, 5,10, 1) = (/ &
+        & 0.18747e-06_rb,0.64264e-04_rb,0.10971e-03_rb,0.15086e-03_rb,0.18923e-03_rb, &
+        & 0.22565e-03_rb,0.25934e-03_rb,0.28921e-03_rb,0.46463e-03_rb /)
+      kao(:, 1,11, 1) = (/ &
+        & 0.16015e-06_rb,0.33025e-04_rb,0.56562e-04_rb,0.76625e-04_rb,0.95645e-04_rb, &
+        & 0.11358e-03_rb,0.12955e-03_rb,0.14269e-03_rb,0.27545e-03_rb /)
+      kao(:, 2,11, 1) = (/ &
+        & 0.15918e-06_rb,0.37148e-04_rb,0.63775e-04_rb,0.87600e-04_rb,0.10897e-03_rb, &
+        & 0.12893e-03_rb,0.14756e-03_rb,0.16465e-03_rb,0.30799e-03_rb /)
+      kao(:, 3,11, 1) = (/ &
+        & 0.15897e-06_rb,0.41993e-04_rb,0.72040e-04_rb,0.98928e-04_rb,0.12433e-03_rb, &
+        & 0.14733e-03_rb,0.16824e-03_rb,0.18694e-03_rb,0.34340e-03_rb /)
+      kao(:, 4,11, 1) = (/ &
+        & 0.15578e-06_rb,0.47441e-04_rb,0.81426e-04_rb,0.11165e-03_rb,0.13985e-03_rb, &
+        & 0.16673e-03_rb,0.19156e-03_rb,0.21268e-03_rb,0.38176e-03_rb /)
+      kao(:, 5,11, 1) = (/ &
+        & 0.15210e-06_rb,0.53398e-04_rb,0.91657e-04_rb,0.12592e-03_rb,0.15769e-03_rb, &
+        & 0.18781e-03_rb,0.21569e-03_rb,0.24069e-03_rb,0.42228e-03_rb /)
+      kao(:, 1,12, 1) = (/ &
+        & 0.13021e-06_rb,0.27272e-04_rb,0.46832e-04_rb,0.63511e-04_rb,0.79205e-04_rb, &
+        & 0.93949e-04_rb,0.10719e-03_rb,0.11827e-03_rb,0.23944e-03_rb /)
+      kao(:, 2,12, 1) = (/ &
+        & 0.12930e-06_rb,0.30686e-04_rb,0.52925e-04_rb,0.72782e-04_rb,0.90527e-04_rb, &
+        & 0.10708e-03_rb,0.12236e-03_rb,0.13620e-03_rb,0.27121e-03_rb /)
+      kao(:, 3,12, 1) = (/ &
+        & 0.12900e-06_rb,0.34723e-04_rb,0.59867e-04_rb,0.82205e-04_rb,0.10326e-03_rb, &
+        & 0.12238e-03_rb,0.13958e-03_rb,0.15498e-03_rb,0.29930e-03_rb /)
+      kao(:, 4,12, 1) = (/ &
+        & 0.12648e-06_rb,0.39252e-04_rb,0.67618e-04_rb,0.92949e-04_rb,0.11636e-03_rb, &
+        & 0.13835e-03_rb,0.15924e-03_rb,0.17653e-03_rb,0.33050e-03_rb /)
+      kao(:, 5,12, 1) = (/ &
+        & 0.12299e-06_rb,0.44213e-04_rb,0.76244e-04_rb,0.10488e-03_rb,0.13135e-03_rb, &
+        & 0.15601e-03_rb,0.17902e-03_rb,0.19976e-03_rb,0.36579e-03_rb /)
+      kao(:, 1,13, 1) = (/ &
+        & 0.10554e-06_rb,0.22388e-04_rb,0.38597e-04_rb,0.52378e-04_rb,0.65404e-04_rb, &
+        & 0.77567e-04_rb,0.88543e-04_rb,0.97801e-04_rb,0.19599e-03_rb /)
+      kao(:, 2,13, 1) = (/ &
+        & 0.10480e-06_rb,0.25181e-04_rb,0.43670e-04_rb,0.60205e-04_rb,0.74883e-04_rb, &
+        & 0.88605e-04_rb,0.10117e-03_rb,0.11242e-03_rb,0.22146e-03_rb /)
+      kao(:, 3,13, 1) = (/ &
+        & 0.10429e-06_rb,0.28530e-04_rb,0.49422e-04_rb,0.68039e-04_rb,0.85435e-04_rb, &
+        & 0.10136e-03_rb,0.11557e-03_rb,0.12828e-03_rb,0.24447e-03_rb /)
+      kao(:, 4,13, 1) = (/ &
+        & 0.10232e-06_rb,0.32301e-04_rb,0.55797e-04_rb,0.76948e-04_rb,0.96447e-04_rb, &
+        & 0.11462e-03_rb,0.13166e-03_rb,0.14616e-03_rb,0.26999e-03_rb /)
+      kao(:, 5,13, 1) = (/ &
+        & 0.99014e-07_rb,0.36394e-04_rb,0.62994e-04_rb,0.86946e-04_rb,0.10900e-03_rb, &
+        & 0.12937e-03_rb,0.14833e-03_rb,0.16540e-03_rb,0.29916e-03_rb /)
+      kao(:, 1, 1, 2) = (/ &
+        & 0.23488e-04_rb,0.16684e-02_rb,0.29575e-02_rb,0.40083e-02_rb,0.49953e-02_rb, &
+        & 0.59021e-02_rb,0.67446e-02_rb,0.76008e-02_rb,0.87032e-02_rb /)
+      kao(:, 2, 1, 2) = (/ &
+        & 0.25156e-04_rb,0.18462e-02_rb,0.32711e-02_rb,0.45008e-02_rb,0.56182e-02_rb, &
+        & 0.66287e-02_rb,0.75909e-02_rb,0.85558e-02_rb,0.97543e-02_rb /)
+      kao(:, 3, 1, 2) = (/ &
+        & 0.27084e-04_rb,0.20325e-02_rb,0.36034e-02_rb,0.49992e-02_rb,0.62796e-02_rb, &
+        & 0.74134e-02_rb,0.84994e-02_rb,0.95694e-02_rb,0.10847e-01_rb /)
+      kao(:, 4, 1, 2) = (/ &
+        & 0.28147e-04_rb,0.22347e-02_rb,0.39628e-02_rb,0.55005e-02_rb,0.69453e-02_rb, &
+        & 0.82429e-02_rb,0.94699e-02_rb,0.10660e-01_rb,0.11991e-01_rb /)
+      kao(:, 5, 1, 2) = (/ &
+        & 0.28719e-04_rb,0.24475e-02_rb,0.43369e-02_rb,0.60360e-02_rb,0.76183e-02_rb, &
+        & 0.90878e-02_rb,0.10493e-01_rb,0.11805e-01_rb,0.13204e-01_rb /)
+      kao(:, 1, 2, 2) = (/ &
+        & 0.20947e-04_rb,0.14015e-02_rb,0.24728e-02_rb,0.33676e-02_rb,0.41801e-02_rb, &
+        & 0.49244e-02_rb,0.55787e-02_rb,0.62206e-02_rb,0.69741e-02_rb /)
+      kao(:, 2, 2, 2) = (/ &
+        & 0.22352e-04_rb,0.15535e-02_rb,0.27396e-02_rb,0.37870e-02_rb,0.47121e-02_rb, &
+        & 0.55571e-02_rb,0.62892e-02_rb,0.70132e-02_rb,0.78092e-02_rb /)
+      kao(:, 3, 2, 2) = (/ &
+        & 0.23882e-04_rb,0.17213e-02_rb,0.30345e-02_rb,0.42020e-02_rb,0.52782e-02_rb, &
+        & 0.62285e-02_rb,0.70556e-02_rb,0.78819e-02_rb,0.87330e-02_rb /)
+      kao(:, 4, 2, 2) = (/ &
+        & 0.24650e-04_rb,0.18954e-02_rb,0.33384e-02_rb,0.46336e-02_rb,0.58333e-02_rb, &
+        & 0.69311e-02_rb,0.78751e-02_rb,0.88149e-02_rb,0.96911e-02_rb /)
+      kao(:, 5, 2, 2) = (/ &
+        & 0.25136e-04_rb,0.20806e-02_rb,0.36641e-02_rb,0.50966e-02_rb,0.64193e-02_rb, &
+        & 0.76281e-02_rb,0.87403e-02_rb,0.97943e-02_rb,0.10704e-01_rb /)
+      kao(:, 1, 3, 2) = (/ &
+        & 0.17720e-04_rb,0.11414e-02_rb,0.20045e-02_rb,0.27288e-02_rb,0.33891e-02_rb, &
+        & 0.39755e-02_rb,0.44967e-02_rb,0.49389e-02_rb,0.53858e-02_rb /)
+      kao(:, 2, 3, 2) = (/ &
+        & 0.19087e-04_rb,0.12745e-02_rb,0.22336e-02_rb,0.30841e-02_rb,0.38333e-02_rb, &
+        & 0.44983e-02_rb,0.50895e-02_rb,0.55930e-02_rb,0.60666e-02_rb /)
+      kao(:, 3, 3, 2) = (/ &
+        & 0.20125e-04_rb,0.14178e-02_rb,0.24795e-02_rb,0.34278e-02_rb,0.43106e-02_rb, &
+        & 0.50607e-02_rb,0.57280e-02_rb,0.63092e-02_rb,0.68285e-02_rb /)
+      kao(:, 4, 3, 2) = (/ &
+        & 0.20895e-04_rb,0.15666e-02_rb,0.27348e-02_rb,0.37934e-02_rb,0.47769e-02_rb, &
+        & 0.56621e-02_rb,0.64046e-02_rb,0.70864e-02_rb,0.76026e-02_rb /)
+      kao(:, 5, 3, 2) = (/ &
+        & 0.21508e-04_rb,0.17251e-02_rb,0.30153e-02_rb,0.41809e-02_rb,0.52689e-02_rb, &
+        & 0.62462e-02_rb,0.71125e-02_rb,0.79104e-02_rb,0.84389e-02_rb /)
+      kao(:, 1, 4, 2) = (/ &
+        & 0.14661e-04_rb,0.92261e-03_rb,0.16088e-02_rb,0.21788e-02_rb,0.26956e-02_rb, &
+        & 0.31612e-02_rb,0.35626e-02_rb,0.38878e-02_rb,0.41525e-02_rb /)
+      kao(:, 2, 4, 2) = (/ &
+        & 0.15607e-04_rb,0.10329e-02_rb,0.17973e-02_rb,0.24735e-02_rb,0.30696e-02_rb, &
+        & 0.35953e-02_rb,0.40511e-02_rb,0.44162e-02_rb,0.46990e-02_rb /)
+      kao(:, 3, 4, 2) = (/ &
+        & 0.16559e-04_rb,0.11550e-02_rb,0.20019e-02_rb,0.27577e-02_rb,0.34625e-02_rb, &
+        & 0.40662e-02_rb,0.45831e-02_rb,0.49995e-02_rb,0.53073e-02_rb /)
+      kao(:, 4, 4, 2) = (/ &
+        & 0.17263e-04_rb,0.12794e-02_rb,0.22184e-02_rb,0.30614e-02_rb,0.38510e-02_rb, &
+        & 0.45664e-02_rb,0.51532e-02_rb,0.56290e-02_rb,0.59436e-02_rb /)
+      kao(:, 5, 4, 2) = (/ &
+        & 0.17895e-04_rb,0.14130e-02_rb,0.24526e-02_rb,0.33805e-02_rb,0.42622e-02_rb, &
+        & 0.50556e-02_rb,0.57489e-02_rb,0.63094e-02_rb,0.66256e-02_rb /)
+      kao(:, 1, 5, 2) = (/ &
+        & 0.11885e-04_rb,0.74888e-03_rb,0.12826e-02_rb,0.17258e-02_rb,0.21346e-02_rb, &
+        & 0.24972e-02_rb,0.28046e-02_rb,0.30606e-02_rb,0.32323e-02_rb /)
+      kao(:, 2, 5, 2) = (/ &
+        & 0.12452e-04_rb,0.84084e-03_rb,0.14380e-02_rb,0.19698e-02_rb,0.24386e-02_rb, &
+        & 0.28536e-02_rb,0.32075e-02_rb,0.34937e-02_rb,0.36562e-02_rb /)
+      kao(:, 3, 5, 2) = (/ &
+        & 0.13439e-04_rb,0.94272e-03_rb,0.16065e-02_rb,0.22079e-02_rb,0.27660e-02_rb, &
+        & 0.32389e-02_rb,0.36440e-02_rb,0.39673e-02_rb,0.41393e-02_rb /)
+      kao(:, 4, 5, 2) = (/ &
+        & 0.14053e-04_rb,0.10473e-02_rb,0.17899e-02_rb,0.24603e-02_rb,0.30861e-02_rb, &
+        & 0.36521e-02_rb,0.41156e-02_rb,0.44825e-02_rb,0.46529e-02_rb /)
+      kao(:, 5, 5, 2) = (/ &
+        & 0.14586e-04_rb,0.11585e-02_rb,0.19886e-02_rb,0.27257e-02_rb,0.34272e-02_rb, &
+        & 0.40599e-02_rb,0.46115e-02_rb,0.50286e-02_rb,0.52085e-02_rb /)
+      kao(:, 1, 6, 2) = (/ &
+        & 0.94872e-05_rb,0.59793e-03_rb,0.10210e-02_rb,0.13572e-02_rb,0.16716e-02_rb, &
+        & 0.19512e-02_rb,0.21890e-02_rb,0.23827e-02_rb,0.25347e-02_rb /)
+      kao(:, 2, 6, 2) = (/ &
+        & 0.10060e-04_rb,0.67400e-03_rb,0.11432e-02_rb,0.15564e-02_rb,0.19188e-02_rb, &
+        & 0.22389e-02_rb,0.25161e-02_rb,0.27308e-02_rb,0.28770e-02_rb /)
+      kao(:, 3, 6, 2) = (/ &
+        & 0.10743e-04_rb,0.75948e-03_rb,0.12806e-02_rb,0.17551e-02_rb,0.21862e-02_rb, &
+        & 0.25545e-02_rb,0.28729e-02_rb,0.31149e-02_rb,0.32716e-02_rb /)
+      kao(:, 4, 6, 2) = (/ &
+        & 0.11322e-04_rb,0.85134e-03_rb,0.14320e-02_rb,0.19630e-02_rb,0.24514e-02_rb, &
+        & 0.28930e-02_rb,0.32578e-02_rb,0.35375e-02_rb,0.36912e-02_rb /)
+      kao(:, 5, 6, 2) = (/ &
+        & 0.11755e-04_rb,0.94611e-03_rb,0.15986e-02_rb,0.21804e-02_rb,0.27291e-02_rb, &
+        & 0.32306e-02_rb,0.36695e-02_rb,0.39913e-02_rb,0.41439e-02_rb /)
+      kao(:, 1, 7, 2) = (/ &
+        & 0.75931e-05_rb,0.47130e-03_rb,0.81211e-03_rb,0.10658e-02_rb,0.13004e-02_rb, &
+        & 0.15175e-02_rb,0.17002e-02_rb,0.18473e-02_rb,0.19861e-02_rb /)
+      kao(:, 2, 7, 2) = (/ &
+        & 0.80724e-05_rb,0.53358e-03_rb,0.91163e-03_rb,0.12261e-02_rb,0.15014e-02_rb, &
+        & 0.17483e-02_rb,0.19612e-02_rb,0.21201e-02_rb,0.22591e-02_rb /)
+      kao(:, 3, 7, 2) = (/ &
+        & 0.84404e-05_rb,0.60517e-03_rb,0.10236e-02_rb,0.13887e-02_rb,0.17204e-02_rb, &
+        & 0.20031e-02_rb,0.22497e-02_rb,0.24321e-02_rb,0.25823e-02_rb /)
+      kao(:, 4, 7, 2) = (/ &
+        & 0.90511e-05_rb,0.68037e-03_rb,0.11475e-02_rb,0.15596e-02_rb,0.19402e-02_rb, &
+        & 0.22789e-02_rb,0.25633e-02_rb,0.27753e-02_rb,0.29247e-02_rb /)
+      kao(:, 5, 7, 2) = (/ &
+        & 0.94405e-05_rb,0.76103e-03_rb,0.12836e-02_rb,0.17422e-02_rb,0.21698e-02_rb, &
+        & 0.25585e-02_rb,0.28989e-02_rb,0.31444e-02_rb,0.33016e-02_rb /)
+      kao(:, 1, 8, 2) = (/ &
+        & 0.58080e-05_rb,0.36782e-03_rb,0.63516e-03_rb,0.83799e-03_rb,0.10119e-02_rb, &
+        & 0.11754e-02_rb,0.13161e-02_rb,0.14382e-02_rb,0.15837e-02_rb /)
+      kao(:, 2, 8, 2) = (/ &
+        & 0.63156e-05_rb,0.41909e-03_rb,0.71974e-03_rb,0.96952e-03_rb,0.11711e-02_rb, &
+        & 0.13617e-02_rb,0.15234e-02_rb,0.16441e-02_rb,0.18118e-02_rb /)
+      kao(:, 3, 8, 2) = (/ &
+        & 0.66776e-05_rb,0.47829e-03_rb,0.81150e-03_rb,0.11056e-02_rb,0.13493e-02_rb, &
+        & 0.15646e-02_rb,0.17524e-02_rb,0.18937e-02_rb,0.20698e-02_rb /)
+      kao(:, 4, 8, 2) = (/ &
+        & 0.70582e-05_rb,0.54017e-03_rb,0.91330e-03_rb,0.12434e-02_rb,0.15411e-02_rb, &
+        & 0.17884e-02_rb,0.20057e-02_rb,0.21704e-02_rb,0.23548e-02_rb /)
+      kao(:, 5, 8, 2) = (/ &
+        & 0.74902e-05_rb,0.60717e-03_rb,0.10267e-02_rb,0.13908e-02_rb,0.17231e-02_rb, &
+        & 0.20285e-02_rb,0.22810e-02_rb,0.24710e-02_rb,0.26631e-02_rb /)
+      kao(:, 1, 9, 2) = (/ &
+        & 0.45061e-05_rb,0.28626e-03_rb,0.49448e-03_rb,0.65317e-03_rb,0.79081e-03_rb, &
+        & 0.91066e-03_rb,0.10182e-02_rb,0.11107e-02_rb,0.14592e-02_rb /)
+      kao(:, 2, 9, 2) = (/ &
+        & 0.49392e-05_rb,0.32734e-03_rb,0.56558e-03_rb,0.76077e-03_rb,0.91846e-03_rb, &
+        & 0.10578e-02_rb,0.11776e-02_rb,0.12720e-02_rb,0.16778e-02_rb /)
+      kao(:, 3, 9, 2) = (/ &
+        & 0.52580e-05_rb,0.37522e-03_rb,0.63845e-03_rb,0.87805e-03_rb,0.10619e-02_rb, &
+        & 0.12194e-02_rb,0.13606e-02_rb,0.14680e-02_rb,0.19259e-02_rb /)
+      kao(:, 4, 9, 2) = (/ &
+        & 0.54991e-05_rb,0.42659e-03_rb,0.72103e-03_rb,0.98756e-03_rb,0.12163e-02_rb, &
+        & 0.14007e-02_rb,0.15647e-02_rb,0.16900e-02_rb,0.21772e-02_rb /)
+      kao(:, 5, 9, 2) = (/ &
+        & 0.58769e-05_rb,0.48199e-03_rb,0.81466e-03_rb,0.11072e-02_rb,0.13684e-02_rb, &
+        & 0.15984e-02_rb,0.17887e-02_rb,0.19333e-02_rb,0.24331e-02_rb /)
+      kao(:, 1,10, 2) = (/ &
+        & 0.34154e-05_rb,0.22534e-03_rb,0.38788e-03_rb,0.51113e-03_rb,0.62194e-03_rb, &
+        & 0.71432e-03_rb,0.79743e-03_rb,0.86289e-03_rb,0.14758e-02_rb /)
+      kao(:, 2,10, 2) = (/ &
+        & 0.38085e-05_rb,0.25832e-03_rb,0.44748e-03_rb,0.59835e-03_rb,0.72514e-03_rb, &
+        & 0.83284e-03_rb,0.91941e-03_rb,0.99583e-03_rb,0.17358e-02_rb /)
+      kao(:, 3,10, 2) = (/ &
+        & 0.41578e-05_rb,0.29655e-03_rb,0.50553e-03_rb,0.69511e-03_rb,0.84107e-03_rb, &
+        & 0.96374e-03_rb,0.10666e-02_rb,0.11478e-02_rb,0.19625e-02_rb /)
+      kao(:, 4,10, 2) = (/ &
+        & 0.43917e-05_rb,0.33908e-03_rb,0.57351e-03_rb,0.78640e-03_rb,0.96862e-03_rb, &
+        & 0.11109e-02_rb,0.12309e-02_rb,0.13266e-02_rb,0.22103e-02_rb /)
+      kao(:, 5,10, 2) = (/ &
+        & 0.45446e-05_rb,0.38548e-03_rb,0.64883e-03_rb,0.88401e-03_rb,0.10952e-02_rb, &
+        & 0.12706e-02_rb,0.14136e-02_rb,0.15239e-02_rb,0.24754e-02_rb /)
+      kao(:, 1,11, 2) = (/ &
+        & 0.27604e-05_rb,0.18848e-03_rb,0.32532e-03_rb,0.42949e-03_rb,0.52350e-03_rb, &
+        & 0.60084e-03_rb,0.66640e-03_rb,0.72070e-03_rb,0.13692e-02_rb /)
+      kao(:, 2,11, 2) = (/ &
+        & 0.30908e-05_rb,0.21679e-03_rb,0.37259e-03_rb,0.50366e-03_rb,0.61074e-03_rb, &
+        & 0.70158e-03_rb,0.77271e-03_rb,0.83037e-03_rb,0.15689e-02_rb /)
+      kao(:, 3,11, 2) = (/ &
+        & 0.33674e-05_rb,0.24965e-03_rb,0.42244e-03_rb,0.58353e-03_rb,0.70923e-03_rb, &
+        & 0.81330e-03_rb,0.89750e-03_rb,0.96131e-03_rb,0.17971e-02_rb /)
+      kao(:, 4,11, 2) = (/ &
+        & 0.35568e-05_rb,0.28602e-03_rb,0.48044e-03_rb,0.65868e-03_rb,0.81816e-03_rb, &
+        & 0.93857e-03_rb,0.10357e-02_rb,0.11119e-02_rb,0.20509e-02_rb /)
+      kao(:, 5,11, 2) = (/ &
+        & 0.36921e-05_rb,0.32484e-03_rb,0.54623e-03_rb,0.74475e-03_rb,0.92307e-03_rb, &
+        & 0.10758e-02_rb,0.11895e-02_rb,0.12777e-02_rb,0.23253e-02_rb /)
+      kao(:, 1,12, 2) = (/ &
+        & 0.22272e-05_rb,0.15807e-03_rb,0.27163e-03_rb,0.35935e-03_rb,0.43781e-03_rb, &
+        & 0.50321e-03_rb,0.55776e-03_rb,0.60046e-03_rb,0.11852e-02_rb /)
+      kao(:, 2,12, 2) = (/ &
+        & 0.24898e-05_rb,0.18201e-03_rb,0.31004e-03_rb,0.42206e-03_rb,0.51226e-03_rb, &
+        & 0.58824e-03_rb,0.64919e-03_rb,0.69291e-03_rb,0.13623e-02_rb /)
+      kao(:, 3,12, 2) = (/ &
+        & 0.27021e-05_rb,0.20958e-03_rb,0.35322e-03_rb,0.48676e-03_rb,0.59587e-03_rb, &
+        & 0.68364e-03_rb,0.75527e-03_rb,0.80436e-03_rb,0.15654e-02_rb /)
+      kao(:, 4,12, 2) = (/ &
+        & 0.28526e-05_rb,0.24038e-03_rb,0.40262e-03_rb,0.55096e-03_rb,0.68671e-03_rb, &
+        & 0.79103e-03_rb,0.87211e-03_rb,0.93124e-03_rb,0.17898e-02_rb /)
+      kao(:, 5,12, 2) = (/ &
+        & 0.29899e-05_rb,0.27289e-03_rb,0.45904e-03_rb,0.62448e-03_rb,0.77496e-03_rb, &
+        & 0.90212e-03_rb,0.10018e-02_rb,0.10706e-02_rb,0.20265e-02_rb /)
+      kao(:, 1,13, 2) = (/ &
+        & 0.17576e-05_rb,0.13151e-03_rb,0.22518e-03_rb,0.29890e-03_rb,0.36398e-03_rb, &
+        & 0.41884e-03_rb,0.46505e-03_rb,0.50086e-03_rb,0.97916e-03_rb /)
+      kao(:, 2,13, 2) = (/ &
+        & 0.19524e-05_rb,0.15189e-03_rb,0.25686e-03_rb,0.35123e-03_rb,0.42723e-03_rb, &
+        & 0.49061e-03_rb,0.54293e-03_rb,0.57815e-03_rb,0.11260e-02_rb /)
+      kao(:, 3,13, 2) = (/ &
+        & 0.21134e-05_rb,0.17558e-03_rb,0.29382e-03_rb,0.40457e-03_rb,0.49777e-03_rb, &
+        & 0.57153e-03_rb,0.63185e-03_rb,0.67213e-03_rb,0.12960e-02_rb /)
+      kao(:, 4,13, 2) = (/ &
+        & 0.22681e-05_rb,0.20106e-03_rb,0.33583e-03_rb,0.45977e-03_rb,0.57094e-03_rb, &
+        & 0.66275e-03_rb,0.73149e-03_rb,0.77799e-03_rb,0.14856e-02_rb /)
+      kao(:, 5,13, 2) = (/ &
+        & 0.23940e-05_rb,0.22853e-03_rb,0.38323e-03_rb,0.52126e-03_rb,0.64684e-03_rb, &
+        & 0.75455e-03_rb,0.84115e-03_rb,0.89575e-03_rb,0.16816e-02_rb /)
+      kao(:, 1, 1, 3) = (/ &
+        & 0.87154e-04_rb,0.70456e-02_rb,0.11624e-01_rb,0.16007e-01_rb,0.20277e-01_rb, &
+        & 0.24349e-01_rb,0.27902e-01_rb,0.30956e-01_rb,0.33159e-01_rb /)
+      kao(:, 2, 1, 3) = (/ &
+        & 0.92678e-04_rb,0.75324e-02_rb,0.12552e-01_rb,0.17444e-01_rb,0.21967e-01_rb, &
+        & 0.26250e-01_rb,0.30241e-01_rb,0.33348e-01_rb,0.36164e-01_rb /)
+      kao(:, 3, 1, 3) = (/ &
+        & 0.97955e-04_rb,0.80153e-02_rb,0.13502e-01_rb,0.18812e-01_rb,0.23862e-01_rb, &
+        & 0.28480e-01_rb,0.32511e-01_rb,0.35713e-01_rb,0.38349e-01_rb /)
+      kao(:, 4, 1, 3) = (/ &
+        & 0.10404e-03_rb,0.84724e-02_rb,0.14429e-01_rb,0.20136e-01_rb,0.25672e-01_rb, &
+        & 0.30688e-01_rb,0.35011e-01_rb,0.38379e-01_rb,0.40673e-01_rb /)
+      kao(:, 5, 1, 3) = (/ &
+        & 0.11110e-03_rb,0.89123e-02_rb,0.15343e-01_rb,0.21479e-01_rb,0.27290e-01_rb, &
+        & 0.32751e-01_rb,0.37455e-01_rb,0.40931e-01_rb,0.42463e-01_rb /)
+      kao(:, 1, 2, 3) = (/ &
+        & 0.73214e-04_rb,0.61410e-02_rb,0.10125e-01_rb,0.13650e-01_rb,0.17158e-01_rb, &
+        & 0.20627e-01_rb,0.23628e-01_rb,0.26251e-01_rb,0.27481e-01_rb /)
+      kao(:, 2, 2, 3) = (/ &
+        & 0.77936e-04_rb,0.65751e-02_rb,0.10966e-01_rb,0.14877e-01_rb,0.18693e-01_rb, &
+        & 0.22272e-01_rb,0.25630e-01_rb,0.28395e-01_rb,0.29894e-01_rb /)
+      kao(:, 3, 2, 3) = (/ &
+        & 0.83061e-04_rb,0.69828e-02_rb,0.11774e-01_rb,0.16068e-01_rb,0.20317e-01_rb, &
+        & 0.24244e-01_rb,0.27748e-01_rb,0.30432e-01_rb,0.31851e-01_rb /)
+      kao(:, 4, 2, 3) = (/ &
+        & 0.88564e-04_rb,0.73985e-02_rb,0.12581e-01_rb,0.17226e-01_rb,0.21842e-01_rb, &
+        & 0.26177e-01_rb,0.29969e-01_rb,0.32748e-01_rb,0.33805e-01_rb /)
+      kao(:, 5, 2, 3) = (/ &
+        & 0.94933e-04_rb,0.77988e-02_rb,0.13372e-01_rb,0.18367e-01_rb,0.23323e-01_rb, &
+        & 0.27928e-01_rb,0.31964e-01_rb,0.35013e-01_rb,0.35327e-01_rb /)
+      kao(:, 1, 3, 3) = (/ &
+        & 0.60947e-04_rb,0.52436e-02_rb,0.86174e-02_rb,0.11520e-01_rb,0.14231e-01_rb, &
+        & 0.17027e-01_rb,0.19469e-01_rb,0.21634e-01_rb,0.21981e-01_rb /)
+      kao(:, 2, 3, 3) = (/ &
+        & 0.64921e-04_rb,0.55975e-02_rb,0.93512e-02_rb,0.12526e-01_rb,0.15516e-01_rb, &
+        & 0.18471e-01_rb,0.21270e-01_rb,0.23512e-01_rb,0.24114e-01_rb /)
+      kao(:, 3, 3, 3) = (/ &
+        & 0.69521e-04_rb,0.59648e-02_rb,0.10060e-01_rb,0.13582e-01_rb,0.16903e-01_rb, &
+        & 0.20177e-01_rb,0.23055e-01_rb,0.25380e-01_rb,0.25822e-01_rb /)
+      kao(:, 4, 3, 3) = (/ &
+        & 0.74348e-04_rb,0.63104e-02_rb,0.10767e-01_rb,0.14599e-01_rb,0.18273e-01_rb, &
+        & 0.21836e-01_rb,0.24984e-01_rb,0.27358e-01_rb,0.27450e-01_rb /)
+      kao(:, 5, 3, 3) = (/ &
+        & 0.79780e-04_rb,0.66671e-02_rb,0.11458e-01_rb,0.15590e-01_rb,0.19579e-01_rb, &
+        & 0.23358e-01_rb,0.26806e-01_rb,0.29335e-01_rb,0.28786e-01_rb /)
+      kao(:, 1, 4, 3) = (/ &
+        & 0.50799e-04_rb,0.44148e-02_rb,0.72225e-02_rb,0.96483e-02_rb,0.11767e-01_rb, &
+        & 0.13828e-01_rb,0.15844e-01_rb,0.17588e-01_rb,0.17391e-01_rb /)
+      kao(:, 2, 4, 3) = (/ &
+        & 0.54227e-04_rb,0.47231e-02_rb,0.78527e-02_rb,0.10493e-01_rb,0.12835e-01_rb, &
+        & 0.15126e-01_rb,0.17466e-01_rb,0.19219e-01_rb,0.19351e-01_rb /)
+      kao(:, 3, 4, 3) = (/ &
+        & 0.58151e-04_rb,0.50277e-02_rb,0.84823e-02_rb,0.11418e-01_rb,0.13969e-01_rb, &
+        & 0.16576e-01_rb,0.18903e-01_rb,0.20840e-01_rb,0.20853e-01_rb /)
+      kao(:, 4, 4, 3) = (/ &
+        & 0.62433e-04_rb,0.53372e-02_rb,0.90813e-02_rb,0.12325e-01_rb,0.15163e-01_rb, &
+        & 0.17971e-01_rb,0.20590e-01_rb,0.22529e-01_rb,0.22273e-01_rb /)
+      kao(:, 5, 4, 3) = (/ &
+        & 0.66852e-04_rb,0.56429e-02_rb,0.96836e-02_rb,0.13189e-01_rb,0.16280e-01_rb, &
+        & 0.19312e-01_rb,0.22136e-01_rb,0.24263e-01_rb,0.23466e-01_rb /)
+      kao(:, 1, 5, 3) = (/ &
+        & 0.42593e-04_rb,0.36760e-02_rb,0.59913e-02_rb,0.79812e-02_rb,0.97729e-02_rb, &
+        & 0.11265e-01_rb,0.12874e-01_rb,0.14150e-01_rb,0.13651e-01_rb /)
+      kao(:, 2, 5, 3) = (/ &
+        & 0.45779e-04_rb,0.39344e-02_rb,0.65401e-02_rb,0.87030e-02_rb,0.10650e-01_rb, &
+        & 0.12374e-01_rb,0.14135e-01_rb,0.15529e-01_rb,0.15507e-01_rb /)
+      kao(:, 3, 5, 3) = (/ &
+        & 0.48868e-04_rb,0.42013e-02_rb,0.70859e-02_rb,0.94912e-02_rb,0.11609e-01_rb, &
+        & 0.13557e-01_rb,0.15381e-01_rb,0.16993e-01_rb,0.16785e-01_rb /)
+      kao(:, 4, 5, 3) = (/ &
+        & 0.52509e-04_rb,0.44674e-02_rb,0.76022e-02_rb,0.10271e-01_rb,0.12630e-01_rb, &
+        & 0.14736e-01_rb,0.16830e-01_rb,0.18387e-01_rb,0.18040e-01_rb /)
+      kao(:, 5, 5, 3) = (/ &
+        & 0.56196e-04_rb,0.47381e-02_rb,0.81005e-02_rb,0.11026e-01_rb,0.13586e-01_rb, &
+        & 0.15940e-01_rb,0.18160e-01_rb,0.19920e-01_rb,0.19092e-01_rb /)
+      kao(:, 1, 6, 3) = (/ &
+        & 0.36112e-04_rb,0.30316e-02_rb,0.49038e-02_rb,0.65325e-02_rb,0.79606e-02_rb, &
+        & 0.91706e-02_rb,0.10285e-01_rb,0.11252e-01_rb,0.10556e-01_rb /)
+      kao(:, 2, 6, 3) = (/ &
+        & 0.38502e-04_rb,0.32575e-02_rb,0.53855e-02_rb,0.71302e-02_rb,0.87200e-02_rb, &
+        & 0.10138e-01_rb,0.11319e-01_rb,0.12504e-01_rb,0.12109e-01_rb /)
+      kao(:, 3, 6, 3) = (/ &
+        & 0.41070e-04_rb,0.34869e-02_rb,0.58643e-02_rb,0.78020e-02_rb,0.95232e-02_rb, &
+        & 0.11081e-01_rb,0.12413e-01_rb,0.13700e-01_rb,0.13350e-01_rb /)
+      kao(:, 4, 6, 3) = (/ &
+        & 0.44034e-04_rb,0.37142e-02_rb,0.62924e-02_rb,0.84867e-02_rb,0.10400e-01_rb, &
+        & 0.12091e-01_rb,0.13614e-01_rb,0.14850e-01_rb,0.14396e-01_rb /)
+      kao(:, 5, 6, 3) = (/ &
+        & 0.47021e-04_rb,0.39387e-02_rb,0.67171e-02_rb,0.91319e-02_rb,0.11231e-01_rb, &
+        & 0.13129e-01_rb,0.14745e-01_rb,0.16155e-01_rb,0.15392e-01_rb /)
+      kao(:, 1, 7, 3) = (/ &
+        & 0.30001e-04_rb,0.24884e-02_rb,0.39787e-02_rb,0.53262e-02_rb,0.64254e-02_rb, &
+        & 0.74422e-02_rb,0.82418e-02_rb,0.87651e-02_rb,0.83241e-02_rb /)
+      kao(:, 2, 7, 3) = (/ &
+        & 0.32067e-04_rb,0.26831e-02_rb,0.43873e-02_rb,0.58009e-02_rb,0.70881e-02_rb, &
+        & 0.82303e-02_rb,0.91115e-02_rb,0.99530e-02_rb,0.95843e-02_rb /)
+      kao(:, 3, 7, 3) = (/ &
+        & 0.34414e-04_rb,0.28762e-02_rb,0.47981e-02_rb,0.63650e-02_rb,0.77555e-02_rb, &
+        & 0.90130e-02_rb,0.10051e-01_rb,0.10944e-01_rb,0.10687e-01_rb /)
+      kao(:, 4, 7, 3) = (/ &
+        & 0.36543e-04_rb,0.30749e-02_rb,0.51697e-02_rb,0.69549e-02_rb,0.84939e-02_rb, &
+        & 0.98621e-02_rb,0.11012e-01_rb,0.11950e-01_rb,0.11596e-01_rb /)
+      kao(:, 5, 7, 3) = (/ &
+        & 0.38986e-04_rb,0.32672e-02_rb,0.55268e-02_rb,0.74950e-02_rb,0.92206e-02_rb, &
+        & 0.10750e-01_rb,0.11970e-01_rb,0.13029e-01_rb,0.12461e-01_rb /)
+      kao(:, 1, 8, 3) = (/ &
+        & 0.24718e-04_rb,0.20304e-02_rb,0.32253e-02_rb,0.42957e-02_rb,0.51621e-02_rb, &
+        & 0.59477e-02_rb,0.65543e-02_rb,0.67901e-02_rb,0.66578e-02_rb /)
+      kao(:, 2, 8, 3) = (/ &
+        & 0.26226e-04_rb,0.22027e-02_rb,0.35528e-02_rb,0.46844e-02_rb,0.57463e-02_rb, &
+        & 0.66070e-02_rb,0.73566e-02_rb,0.79086e-02_rb,0.76807e-02_rb /)
+      kao(:, 3, 8, 3) = (/ &
+        & 0.28095e-04_rb,0.23614e-02_rb,0.38960e-02_rb,0.51529e-02_rb,0.62773e-02_rb, &
+        & 0.72919e-02_rb,0.81475e-02_rb,0.87344e-02_rb,0.86509e-02_rb /)
+      kao(:, 4, 8, 3) = (/ &
+        & 0.29856e-04_rb,0.25346e-02_rb,0.42180e-02_rb,0.56507e-02_rb,0.68867e-02_rb, &
+        & 0.79948e-02_rb,0.89169e-02_rb,0.96226e-02_rb,0.94212e-02_rb /)
+      kao(:, 5, 8, 3) = (/ &
+        & 0.31432e-04_rb,0.26989e-02_rb,0.45288e-02_rb,0.61158e-02_rb,0.75231e-02_rb, &
+        & 0.87319e-02_rb,0.97447e-02_rb,0.10470e-01_rb,0.10172e-01_rb /)
+      kao(:, 1, 9, 3) = (/ &
+        & 0.20151e-04_rb,0.16622e-02_rb,0.26102e-02_rb,0.34345e-02_rb,0.41518e-02_rb, &
+        & 0.47356e-02_rb,0.51198e-02_rb,0.52901e-02_rb,0.55608e-02_rb /)
+      kao(:, 2, 9, 3) = (/ &
+        & 0.21290e-04_rb,0.18112e-02_rb,0.28622e-02_rb,0.37770e-02_rb,0.46098e-02_rb, &
+        & 0.52825e-02_rb,0.58719e-02_rb,0.62115e-02_rb,0.64287e-02_rb /)
+      kao(:, 3, 9, 3) = (/ &
+        & 0.22604e-04_rb,0.19483e-02_rb,0.31536e-02_rb,0.41418e-02_rb,0.50513e-02_rb, &
+        & 0.58883e-02_rb,0.65199e-02_rb,0.70000e-02_rb,0.71641e-02_rb /)
+      kao(:, 4, 9, 3) = (/ &
+        & 0.24039e-04_rb,0.20909e-02_rb,0.34321e-02_rb,0.45633e-02_rb,0.55575e-02_rb, &
+        & 0.64453e-02_rb,0.71800e-02_rb,0.77062e-02_rb,0.77821e-02_rb /)
+      kao(:, 5, 9, 3) = (/ &
+        & 0.25275e-04_rb,0.22325e-02_rb,0.36976e-02_rb,0.49727e-02_rb,0.60945e-02_rb, &
+        & 0.70632e-02_rb,0.78696e-02_rb,0.84048e-02_rb,0.84571e-02_rb /)
+      kao(:, 1,10, 3) = (/ &
+        & 0.16520e-04_rb,0.13579e-02_rb,0.21217e-02_rb,0.27650e-02_rb,0.33209e-02_rb, &
+        & 0.37657e-02_rb,0.40263e-02_rb,0.41632e-02_rb,0.59019e-02_rb /)
+      kao(:, 2,10, 3) = (/ &
+        & 0.17307e-04_rb,0.14868e-02_rb,0.23230e-02_rb,0.30616e-02_rb,0.37000e-02_rb, &
+        & 0.42629e-02_rb,0.46958e-02_rb,0.48956e-02_rb,0.64729e-02_rb /)
+      kao(:, 3,10, 3) = (/ &
+        & 0.18210e-04_rb,0.16086e-02_rb,0.25635e-02_rb,0.33480e-02_rb,0.40827e-02_rb, &
+        & 0.47590e-02_rb,0.52424e-02_rb,0.56088e-02_rb,0.71072e-02_rb /)
+      kao(:, 4,10, 3) = (/ &
+        & 0.19263e-04_rb,0.17308e-02_rb,0.28038e-02_rb,0.37016e-02_rb,0.44933e-02_rb, &
+        & 0.52114e-02_rb,0.58224e-02_rb,0.62053e-02_rb,0.76445e-02_rb /)
+      kao(:, 5,10, 3) = (/ &
+        & 0.20450e-04_rb,0.18514e-02_rb,0.30286e-02_rb,0.40569e-02_rb,0.49417e-02_rb, &
+        & 0.57292e-02_rb,0.63809e-02_rb,0.68162e-02_rb,0.81800e-02_rb /)
+      kao(:, 1,11, 3) = (/ &
+        & 0.13743e-04_rb,0.11544e-02_rb,0.18005e-02_rb,0.23380e-02_rb,0.28127e-02_rb, &
+        & 0.32019e-02_rb,0.34184e-02_rb,0.35137e-02_rb,0.55132e-02_rb /)
+      kao(:, 2,11, 3) = (/ &
+        & 0.14314e-04_rb,0.12648e-02_rb,0.19811e-02_rb,0.25794e-02_rb,0.31283e-02_rb, &
+        & 0.35835e-02_rb,0.39635e-02_rb,0.41524e-02_rb,0.60640e-02_rb /)
+      kao(:, 3,11, 3) = (/ &
+        & 0.14980e-04_rb,0.13667e-02_rb,0.21846e-02_rb,0.28316e-02_rb,0.34390e-02_rb, &
+        & 0.40069e-02_rb,0.44283e-02_rb,0.47282e-02_rb,0.65662e-02_rb /)
+      kao(:, 4,11, 3) = (/ &
+        & 0.15843e-04_rb,0.14691e-02_rb,0.23844e-02_rb,0.31346e-02_rb,0.37915e-02_rb, &
+        & 0.43926e-02_rb,0.49108e-02_rb,0.52431e-02_rb,0.70521e-02_rb /)
+      kao(:, 5,11, 3) = (/ &
+        & 0.16801e-04_rb,0.15709e-02_rb,0.25738e-02_rb,0.34250e-02_rb,0.41781e-02_rb, &
+        & 0.48258e-02_rb,0.53776e-02_rb,0.57400e-02_rb,0.74913e-02_rb /)
+      kao(:, 1,12, 3) = (/ &
+        & 0.11265e-04_rb,0.97473e-03_rb,0.15190e-02_rb,0.19779e-02_rb,0.23708e-02_rb, &
+        & 0.27002e-02_rb,0.28954e-02_rb,0.29689e-02_rb,0.49052e-02_rb /)
+      kao(:, 2,12, 3) = (/ &
+        & 0.11703e-04_rb,0.10660e-02_rb,0.16806e-02_rb,0.21742e-02_rb,0.26370e-02_rb, &
+        & 0.30184e-02_rb,0.33461e-02_rb,0.35081e-02_rb,0.53515e-02_rb /)
+      kao(:, 3,12, 3) = (/ &
+        & 0.12275e-04_rb,0.11524e-02_rb,0.18532e-02_rb,0.24014e-02_rb,0.28932e-02_rb, &
+        & 0.33615e-02_rb,0.37332e-02_rb,0.39759e-02_rb,0.57806e-02_rb /)
+      kao(:, 4,12, 3) = (/ &
+        & 0.12963e-04_rb,0.12405e-02_rb,0.20200e-02_rb,0.26573e-02_rb,0.31978e-02_rb, &
+        & 0.36904e-02_rb,0.41225e-02_rb,0.44151e-02_rb,0.61956e-02_rb /)
+      kao(:, 5,12, 3) = (/ &
+        & 0.13696e-04_rb,0.13266e-02_rb,0.21814e-02_rb,0.28939e-02_rb,0.35284e-02_rb, &
+        & 0.40629e-02_rb,0.45191e-02_rb,0.48283e-02_rb,0.65800e-02_rb /)
+      kao(:, 1,13, 3) = (/ &
+        & 0.91179e-05_rb,0.81531e-03_rb,0.12754e-02_rb,0.16598e-02_rb,0.19900e-02_rb, &
+        & 0.22634e-02_rb,0.24441e-02_rb,0.24984e-02_rb,0.40576e-02_rb /)
+      kao(:, 2,13, 3) = (/ &
+        & 0.95039e-05_rb,0.89093e-03_rb,0.14150e-02_rb,0.18287e-02_rb,0.22143e-02_rb, &
+        & 0.25329e-02_rb,0.28092e-02_rb,0.29546e-02_rb,0.44374e-02_rb /)
+      kao(:, 3,13, 3) = (/ &
+        & 0.99762e-05_rb,0.96494e-03_rb,0.15625e-02_rb,0.20288e-02_rb,0.24319e-02_rb, &
+        & 0.28108e-02_rb,0.31373e-02_rb,0.33177e-02_rb,0.48094e-02_rb /)
+      kao(:, 4,13, 3) = (/ &
+        & 0.10509e-04_rb,0.10398e-02_rb,0.16996e-02_rb,0.22443e-02_rb,0.26925e-02_rb, &
+        & 0.30942e-02_rb,0.34481e-02_rb,0.37003e-02_rb,0.51550e-02_rb /)
+      kao(:, 5,13, 3) = (/ &
+        & 0.11033e-04_rb,0.11134e-02_rb,0.18372e-02_rb,0.24408e-02_rb,0.29682e-02_rb, &
+        & 0.34114e-02_rb,0.37859e-02_rb,0.40424e-02_rb,0.54893e-02_rb /)
+      kao(:, 1, 1, 4) = (/ &
+        & 0.25564e-03_rb,0.23940e-01_rb,0.41535e-01_rb,0.56276e-01_rb,0.68561e-01_rb, &
+        & 0.78630e-01_rb,0.86993e-01_rb,0.91794e-01_rb,0.84229e-01_rb /)
+      kao(:, 2, 1, 4) = (/ &
+        & 0.29194e-03_rb,0.25170e-01_rb,0.43659e-01_rb,0.59016e-01_rb,0.72302e-01_rb, &
+        & 0.83167e-01_rb,0.91739e-01_rb,0.96774e-01_rb,0.86838e-01_rb /)
+      kao(:, 3, 1, 4) = (/ &
+        & 0.33934e-03_rb,0.26430e-01_rb,0.45835e-01_rb,0.61922e-01_rb,0.75614e-01_rb, &
+        & 0.87285e-01_rb,0.96606e-01_rb,0.10156e+00_rb,0.90084e-01_rb /)
+      kao(:, 4, 1, 4) = (/ &
+        & 0.38871e-03_rb,0.27733e-01_rb,0.48058e-01_rb,0.64973e-01_rb,0.79090e-01_rb, &
+        & 0.91156e-01_rb,0.10084e+00_rb,0.10589e+00_rb,0.92583e-01_rb /)
+      kao(:, 5, 1, 4) = (/ &
+        & 0.44473e-03_rb,0.29028e-01_rb,0.50287e-01_rb,0.68010e-01_rb,0.82805e-01_rb, &
+        & 0.95193e-01_rb,0.10492e+00_rb,0.10995e+00_rb,0.95419e-01_rb /)
+      kao(:, 1, 2, 4) = (/ &
+        & 0.23400e-03_rb,0.20753e-01_rb,0.35742e-01_rb,0.48709e-01_rb,0.59548e-01_rb, &
+        & 0.68206e-01_rb,0.75045e-01_rb,0.78915e-01_rb,0.70180e-01_rb /)
+      kao(:, 2, 2, 4) = (/ &
+        & 0.26775e-03_rb,0.21832e-01_rb,0.37611e-01_rb,0.51156e-01_rb,0.62768e-01_rb, &
+        & 0.72267e-01_rb,0.79422e-01_rb,0.83262e-01_rb,0.72735e-01_rb /)
+      kao(:, 3, 2, 4) = (/ &
+        & 0.30033e-03_rb,0.22961e-01_rb,0.39618e-01_rb,0.53774e-01_rb,0.65773e-01_rb, &
+        & 0.75819e-01_rb,0.83532e-01_rb,0.87496e-01_rb,0.75459e-01_rb /)
+      kao(:, 4, 2, 4) = (/ &
+        & 0.34366e-03_rb,0.24116e-01_rb,0.41597e-01_rb,0.56506e-01_rb,0.68944e-01_rb, &
+        & 0.79231e-01_rb,0.87245e-01_rb,0.91336e-01_rb,0.77669e-01_rb /)
+      kao(:, 5, 2, 4) = (/ &
+        & 0.39179e-03_rb,0.25289e-01_rb,0.43575e-01_rb,0.59282e-01_rb,0.72132e-01_rb, &
+        & 0.82956e-01_rb,0.91038e-01_rb,0.94937e-01_rb,0.80272e-01_rb /)
+      kao(:, 1, 3, 4) = (/ &
+        & 0.20730e-03_rb,0.18044e-01_rb,0.30227e-01_rb,0.41206e-01_rb,0.50626e-01_rb, &
+        & 0.58095e-01_rb,0.63725e-01_rb,0.66721e-01_rb,0.57780e-01_rb /)
+      kao(:, 2, 3, 4) = (/ &
+        & 0.24007e-03_rb,0.18972e-01_rb,0.31883e-01_rb,0.43486e-01_rb,0.53572e-01_rb, &
+        & 0.61742e-01_rb,0.67489e-01_rb,0.70552e-01_rb,0.60009e-01_rb /)
+      kao(:, 3, 3, 4) = (/ &
+        & 0.26931e-03_rb,0.19934e-01_rb,0.33681e-01_rb,0.45775e-01_rb,0.56255e-01_rb, &
+        & 0.64869e-01_rb,0.71254e-01_rb,0.74232e-01_rb,0.62350e-01_rb /)
+      kao(:, 4, 3, 4) = (/ &
+        & 0.30064e-03_rb,0.20965e-01_rb,0.35448e-01_rb,0.48199e-01_rb,0.59036e-01_rb, &
+        & 0.67921e-01_rb,0.74594e-01_rb,0.77689e-01_rb,0.64410e-01_rb /)
+      kao(:, 5, 3, 4) = (/ &
+        & 0.33967e-03_rb,0.21972e-01_rb,0.37192e-01_rb,0.50676e-01_rb,0.61884e-01_rb, &
+        & 0.71207e-01_rb,0.77888e-01_rb,0.80947e-01_rb,0.66667e-01_rb /)
+      kao(:, 1, 4, 4) = (/ &
+        & 0.18201e-03_rb,0.15595e-01_rb,0.25372e-01_rb,0.34431e-01_rb,0.42401e-01_rb, &
+        & 0.48915e-01_rb,0.53613e-01_rb,0.55953e-01_rb,0.47727e-01_rb /)
+      kao(:, 2, 4, 4) = (/ &
+        & 0.20883e-03_rb,0.16422e-01_rb,0.26851e-01_rb,0.36481e-01_rb,0.45074e-01_rb, &
+        & 0.52078e-01_rb,0.56860e-01_rb,0.59287e-01_rb,0.49553e-01_rb /)
+      kao(:, 3, 4, 4) = (/ &
+        & 0.23874e-03_rb,0.17285e-01_rb,0.28425e-01_rb,0.38514e-01_rb,0.47542e-01_rb, &
+        & 0.54904e-01_rb,0.60284e-01_rb,0.62561e-01_rb,0.51595e-01_rb /)
+      kao(:, 4, 4, 4) = (/ &
+        & 0.26707e-03_rb,0.18200e-01_rb,0.30007e-01_rb,0.40613e-01_rb,0.49982e-01_rb, &
+        & 0.57662e-01_rb,0.63231e-01_rb,0.65666e-01_rb,0.53450e-01_rb /)
+      kao(:, 5, 4, 4) = (/ &
+        & 0.30102e-03_rb,0.19113e-01_rb,0.31552e-01_rb,0.42805e-01_rb,0.52535e-01_rb, &
+        & 0.60559e-01_rb,0.66195e-01_rb,0.68549e-01_rb,0.55415e-01_rb /)
+      kao(:, 1, 5, 4) = (/ &
+        & 0.15801e-03_rb,0.13295e-01_rb,0.21524e-01_rb,0.28666e-01_rb,0.35142e-01_rb, &
+        & 0.40757e-01_rb,0.44715e-01_rb,0.46740e-01_rb,0.39384e-01_rb /)
+      kao(:, 2, 5, 4) = (/ &
+        & 0.17994e-03_rb,0.14057e-01_rb,0.22786e-01_rb,0.30487e-01_rb,0.37563e-01_rb, &
+        & 0.43509e-01_rb,0.47676e-01_rb,0.49638e-01_rb,0.40849e-01_rb /)
+      kao(:, 3, 5, 4) = (/ &
+        & 0.20535e-03_rb,0.14811e-01_rb,0.24116e-01_rb,0.32266e-01_rb,0.39764e-01_rb, &
+        & 0.46122e-01_rb,0.50669e-01_rb,0.52413e-01_rb,0.42683e-01_rb /)
+      kao(:, 4, 5, 4) = (/ &
+        & 0.23511e-03_rb,0.15598e-01_rb,0.25481e-01_rb,0.34103e-01_rb,0.41924e-01_rb, &
+        & 0.48592e-01_rb,0.53283e-01_rb,0.55235e-01_rb,0.44335e-01_rb /)
+      kao(:, 5, 5, 4) = (/ &
+        & 0.26640e-03_rb,0.16402e-01_rb,0.26844e-01_rb,0.36000e-01_rb,0.44180e-01_rb, &
+        & 0.51086e-01_rb,0.55918e-01_rb,0.57796e-01_rb,0.45991e-01_rb /)
+      kao(:, 1, 6, 4) = (/ &
+        & 0.13805e-03_rb,0.11222e-01_rb,0.18125e-01_rb,0.23877e-01_rb,0.28939e-01_rb, &
+        & 0.33506e-01_rb,0.36944e-01_rb,0.38672e-01_rb,0.32335e-01_rb /)
+      kao(:, 2, 6, 4) = (/ &
+        & 0.15439e-03_rb,0.11883e-01_rb,0.19262e-01_rb,0.25521e-01_rb,0.31068e-01_rb, &
+        & 0.35882e-01_rb,0.39589e-01_rb,0.41132e-01_rb,0.33684e-01_rb /)
+      kao(:, 3, 6, 4) = (/ &
+        & 0.17561e-03_rb,0.12558e-01_rb,0.20409e-01_rb,0.27033e-01_rb,0.33056e-01_rb, &
+        & 0.38260e-01_rb,0.42155e-01_rb,0.43639e-01_rb,0.35175e-01_rb /)
+      kao(:, 4, 6, 4) = (/ &
+        & 0.19967e-03_rb,0.13236e-01_rb,0.21628e-01_rb,0.28554e-01_rb,0.34939e-01_rb, &
+        & 0.40459e-01_rb,0.44550e-01_rb,0.46147e-01_rb,0.36643e-01_rb /)
+      kao(:, 5, 6, 4) = (/ &
+        & 0.23117e-03_rb,0.13936e-01_rb,0.22836e-01_rb,0.30183e-01_rb,0.36909e-01_rb, &
+        & 0.42652e-01_rb,0.46864e-01_rb,0.48440e-01_rb,0.37992e-01_rb /)
+      kao(:, 1, 7, 4) = (/ &
+        & 0.11987e-03_rb,0.93983e-02_rb,0.15130e-01_rb,0.19808e-01_rb,0.23796e-01_rb, &
+        & 0.27285e-01_rb,0.30176e-01_rb,0.31906e-01_rb,0.26193e-01_rb /)
+      kao(:, 2, 7, 4) = (/ &
+        & 0.13164e-03_rb,0.99743e-02_rb,0.16118e-01_rb,0.21319e-01_rb,0.25600e-01_rb, &
+        & 0.29404e-01_rb,0.32485e-01_rb,0.33909e-01_rb,0.27439e-01_rb /)
+      kao(:, 3, 7, 4) = (/ &
+        & 0.14862e-03_rb,0.10559e-01_rb,0.17124e-01_rb,0.22674e-01_rb,0.27373e-01_rb, &
+        & 0.31501e-01_rb,0.34705e-01_rb,0.36112e-01_rb,0.28667e-01_rb /)
+      kao(:, 4, 7, 4) = (/ &
+        & 0.16941e-03_rb,0.11142e-01_rb,0.18163e-01_rb,0.23992e-01_rb,0.29023e-01_rb, &
+        & 0.33461e-01_rb,0.36882e-01_rb,0.38288e-01_rb,0.29990e-01_rb /)
+      kao(:, 5, 7, 4) = (/ &
+        & 0.19444e-03_rb,0.11740e-01_rb,0.19231e-01_rb,0.25410e-01_rb,0.30702e-01_rb, &
+        & 0.35380e-01_rb,0.38933e-01_rb,0.40325e-01_rb,0.31163e-01_rb /)
+      kao(:, 1, 8, 4) = (/ &
+        & 0.10266e-03_rb,0.78132e-02_rb,0.12495e-01_rb,0.16294e-01_rb,0.19552e-01_rb, &
+        & 0.22203e-01_rb,0.24522e-01_rb,0.26158e-01_rb,0.21477e-01_rb /)
+      kao(:, 2, 8, 4) = (/ &
+        & 0.11308e-03_rb,0.82996e-02_rb,0.13385e-01_rb,0.17650e-01_rb,0.21113e-01_rb, &
+        & 0.24026e-01_rb,0.26424e-01_rb,0.27779e-01_rb,0.22661e-01_rb /)
+      kao(:, 3, 8, 4) = (/ &
+        & 0.12431e-03_rb,0.88118e-02_rb,0.14254e-01_rb,0.18852e-01_rb,0.22717e-01_rb, &
+        & 0.25822e-01_rb,0.28352e-01_rb,0.29667e-01_rb,0.23674e-01_rb /)
+      kao(:, 4, 8, 4) = (/ &
+        & 0.14146e-03_rb,0.93080e-02_rb,0.15152e-01_rb,0.20013e-01_rb,0.24158e-01_rb, &
+        & 0.27569e-01_rb,0.30306e-01_rb,0.31495e-01_rb,0.24838e-01_rb /)
+      kao(:, 5, 8, 4) = (/ &
+        & 0.16275e-03_rb,0.98287e-02_rb,0.16080e-01_rb,0.21227e-01_rb,0.25592e-01_rb, &
+        & 0.29226e-01_rb,0.32075e-01_rb,0.33357e-01_rb,0.25887e-01_rb /)
+      kao(:, 1, 9, 4) = (/ &
+        & 0.85797e-04_rb,0.64412e-02_rb,0.10231e-01_rb,0.13327e-01_rb,0.15923e-01_rb, &
+        & 0.18103e-01_rb,0.19903e-01_rb,0.21189e-01_rb,0.17975e-01_rb /)
+      kao(:, 2, 9, 4) = (/ &
+        & 0.94370e-04_rb,0.68514e-02_rb,0.11041e-01_rb,0.14472e-01_rb,0.17298e-01_rb, &
+        & 0.19661e-01_rb,0.21421e-01_rb,0.22631e-01_rb,0.18990e-01_rb /)
+      kao(:, 3, 9, 4) = (/ &
+        & 0.10603e-03_rb,0.72870e-02_rb,0.11786e-01_rb,0.15570e-01_rb,0.18710e-01_rb, &
+        & 0.21195e-01_rb,0.23092e-01_rb,0.24157e-01_rb,0.19934e-01_rb /)
+      kao(:, 4, 9, 4) = (/ &
+        & 0.11819e-03_rb,0.77217e-02_rb,0.12559e-01_rb,0.16589e-01_rb,0.19991e-01_rb, &
+        & 0.22738e-01_rb,0.24769e-01_rb,0.25771e-01_rb,0.20946e-01_rb /)
+      kao(:, 5, 9, 4) = (/ &
+        & 0.13500e-03_rb,0.81624e-02_rb,0.13346e-01_rb,0.17610e-01_rb,0.21227e-01_rb, &
+        & 0.24140e-01_rb,0.26339e-01_rb,0.27388e-01_rb,0.21819e-01_rb /)
+      kao(:, 1,10, 4) = (/ &
+        & 0.73275e-04_rb,0.53147e-02_rb,0.83832e-02_rb,0.10890e-01_rb,0.12998e-01_rb, &
+        & 0.14772e-01_rb,0.16237e-01_rb,0.17165e-01_rb,0.15972e-01_rb /)
+      kao(:, 2,10, 4) = (/ &
+        & 0.80303e-04_rb,0.56594e-02_rb,0.90964e-02_rb,0.11869e-01_rb,0.14181e-01_rb, &
+        & 0.16065e-01_rb,0.17493e-01_rb,0.18447e-01_rb,0.17075e-01_rb /)
+      kao(:, 3,10, 4) = (/ &
+        & 0.88821e-04_rb,0.60286e-02_rb,0.97491e-02_rb,0.12852e-01_rb,0.15387e-01_rb, &
+        & 0.17394e-01_rb,0.18909e-01_rb,0.19708e-01_rb,0.18078e-01_rb /)
+      kao(:, 4,10, 4) = (/ &
+        & 0.10142e-03_rb,0.63962e-02_rb,0.10392e-01_rb,0.13730e-01_rb,0.16522e-01_rb, &
+        & 0.18771e-01_rb,0.20308e-01_rb,0.21096e-01_rb,0.19037e-01_rb /)
+      kao(:, 5,10, 4) = (/ &
+        & 0.11405e-03_rb,0.67754e-02_rb,0.11065e-01_rb,0.14605e-01_rb,0.17581e-01_rb, &
+        & 0.19991e-01_rb,0.21687e-01_rb,0.22458e-01_rb,0.19875e-01_rb /)
+      kao(:, 1,11, 4) = (/ &
+        & 0.64517e-04_rb,0.45135e-02_rb,0.71165e-02_rb,0.92384e-02_rb,0.10998e-01_rb, &
+        & 0.12474e-01_rb,0.13700e-01_rb,0.14388e-01_rb,0.14631e-01_rb /)
+      kao(:, 2,11, 4) = (/ &
+        & 0.71535e-04_rb,0.48070e-02_rb,0.77137e-02_rb,0.10092e-01_rb,0.12023e-01_rb, &
+        & 0.13623e-01_rb,0.14792e-01_rb,0.15449e-01_rb,0.15481e-01_rb /)
+      kao(:, 3,11, 4) = (/ &
+        & 0.79504e-04_rb,0.51199e-02_rb,0.82600e-02_rb,0.10911e-01_rb,0.13076e-01_rb, &
+        & 0.14755e-01_rb,0.16002e-01_rb,0.16546e-01_rb,0.16298e-01_rb /)
+      kao(:, 4,11, 4) = (/ &
+        & 0.90433e-04_rb,0.54351e-02_rb,0.88101e-02_rb,0.11647e-01_rb,0.14018e-01_rb, &
+        & 0.15922e-01_rb,0.17206e-01_rb,0.17715e-01_rb,0.16991e-01_rb /)
+      kao(:, 5,11, 4) = (/ &
+        & 0.10146e-03_rb,0.57596e-02_rb,0.93865e-02_rb,0.12407e-01_rb,0.14922e-01_rb, &
+        & 0.16951e-01_rb,0.18384e-01_rb,0.18893e-01_rb,0.17666e-01_rb /)
+      kao(:, 1,12, 4) = (/ &
+        & 0.56913e-04_rb,0.38361e-02_rb,0.60238e-02_rb,0.78101e-02_rb,0.92943e-02_rb, &
+        & 0.10515e-01_rb,0.11514e-01_rb,0.12051e-01_rb,0.12708e-01_rb /)
+      kao(:, 2,12, 4) = (/ &
+        & 0.62984e-04_rb,0.40886e-02_rb,0.65153e-02_rb,0.85464e-02_rb,0.10168e-01_rb, &
+        & 0.11498e-01_rb,0.12452e-01_rb,0.12938e-01_rb,0.13473e-01_rb /)
+      kao(:, 3,12, 4) = (/ &
+        & 0.70588e-04_rb,0.43561e-02_rb,0.69761e-02_rb,0.92137e-02_rb,0.11068e-01_rb, &
+        & 0.12482e-01_rb,0.13497e-01_rb,0.13892e-01_rb,0.14090e-01_rb /)
+      kao(:, 4,12, 4) = (/ &
+        & 0.79556e-04_rb,0.46222e-02_rb,0.74472e-02_rb,0.98382e-02_rb,0.11852e-01_rb, &
+        & 0.13461e-01_rb,0.14539e-01_rb,0.14868e-01_rb,0.14684e-01_rb /)
+      kao(:, 5,12, 4) = (/ &
+        & 0.89330e-04_rb,0.49037e-02_rb,0.79332e-02_rb,0.10492e-01_rb,0.12613e-01_rb, &
+        & 0.14331e-01_rb,0.15523e-01_rb,0.15867e-01_rb,0.15266e-01_rb /)
+      kao(:, 1,13, 4) = (/ &
+        & 0.49040e-04_rb,0.32470e-02_rb,0.50782e-02_rb,0.65813e-02_rb,0.78254e-02_rb, &
+        & 0.88398e-02_rb,0.96483e-02_rb,0.10090e-01_rb,0.10614e-01_rb /)
+      kao(:, 2,13, 4) = (/ &
+        & 0.54225e-04_rb,0.34616e-02_rb,0.54906e-02_rb,0.71951e-02_rb,0.85711e-02_rb, &
+        & 0.96781e-02_rb,0.10460e-01_rb,0.10840e-01_rb,0.11206e-01_rb /)
+      kao(:, 3,13, 4) = (/ &
+        & 0.61136e-04_rb,0.36878e-02_rb,0.58777e-02_rb,0.77458e-02_rb,0.93183e-02_rb, &
+        & 0.10528e-01_rb,0.11347e-01_rb,0.11684e-01_rb,0.11730e-01_rb /)
+      kao(:, 4,13, 4) = (/ &
+        & 0.68788e-04_rb,0.39213e-02_rb,0.62791e-02_rb,0.82774e-02_rb,0.99761e-02_rb, &
+        & 0.11332e-01_rb,0.12247e-01_rb,0.12495e-01_rb,0.12250e-01_rb /)
+      kao(:, 5,13, 4) = (/ &
+        & 0.77427e-04_rb,0.41640e-02_rb,0.66890e-02_rb,0.88358e-02_rb,0.10624e-01_rb, &
+        & 0.12069e-01_rb,0.13064e-01_rb,0.13341e-01_rb,0.12730e-01_rb /)
+      kao(:, 1, 1, 5) = (/ &
+        & 0.69098e-02_rb,0.84650e-01_rb,0.13006e+00_rb,0.16652e+00_rb,0.19608e+00_rb, &
+        & 0.21975e+00_rb,0.23496e+00_rb,0.23277e+00_rb,0.18007e+00_rb /)
+      kao(:, 2, 1, 5) = (/ &
+        & 0.78200e-02_rb,0.89279e-01_rb,0.13630e+00_rb,0.17409e+00_rb,0.20398e+00_rb, &
+        & 0.22718e+00_rb,0.24129e+00_rb,0.23750e+00_rb,0.18438e+00_rb /)
+      kao(:, 3, 1, 5) = (/ &
+        & 0.89787e-02_rb,0.94428e-01_rb,0.14296e+00_rb,0.18170e+00_rb,0.21205e+00_rb, &
+        & 0.23450e+00_rb,0.24726e+00_rb,0.24172e+00_rb,0.18878e+00_rb /)
+      kao(:, 4, 1, 5) = (/ &
+        & 0.10426e-01_rb,0.10003e+00_rb,0.15009e+00_rb,0.18943e+00_rb,0.22015e+00_rb, &
+        & 0.24206e+00_rb,0.25341e+00_rb,0.24571e+00_rb,0.19325e+00_rb /)
+      kao(:, 5, 1, 5) = (/ &
+        & 0.12209e-01_rb,0.10603e+00_rb,0.15781e+00_rb,0.19756e+00_rb,0.22832e+00_rb, &
+        & 0.24963e+00_rb,0.25957e+00_rb,0.24958e+00_rb,0.19748e+00_rb /)
+      kao(:, 1, 2, 5) = (/ &
+        & 0.64020e-02_rb,0.74597e-01_rb,0.11458e+00_rb,0.14581e+00_rb,0.17103e+00_rb, &
+        & 0.19105e+00_rb,0.20412e+00_rb,0.20133e+00_rb,0.15242e+00_rb /)
+      kao(:, 2, 2, 5) = (/ &
+        & 0.72586e-02_rb,0.78857e-01_rb,0.12024e+00_rb,0.15257e+00_rb,0.17796e+00_rb, &
+        & 0.19765e+00_rb,0.20972e+00_rb,0.20548e+00_rb,0.15620e+00_rb /)
+      kao(:, 3, 2, 5) = (/ &
+        & 0.82903e-02_rb,0.83602e-01_rb,0.12623e+00_rb,0.15931e+00_rb,0.18512e+00_rb, &
+        & 0.20423e+00_rb,0.21503e+00_rb,0.20937e+00_rb,0.15993e+00_rb /)
+      kao(:, 4, 2, 5) = (/ &
+        & 0.94578e-02_rb,0.88668e-01_rb,0.13277e+00_rb,0.16635e+00_rb,0.19233e+00_rb, &
+        & 0.21098e+00_rb,0.22050e+00_rb,0.21294e+00_rb,0.16397e+00_rb /)
+      kao(:, 5, 2, 5) = (/ &
+        & 0.10865e-01_rb,0.94113e-01_rb,0.13987e+00_rb,0.17375e+00_rb,0.19975e+00_rb, &
+        & 0.21771e+00_rb,0.22592e+00_rb,0.21639e+00_rb,0.16745e+00_rb /)
+      kao(:, 1, 3, 5) = (/ &
+        & 0.56943e-02_rb,0.64084e-01_rb,0.99294e-01_rb,0.12614e+00_rb,0.14746e+00_rb, &
+        & 0.16414e+00_rb,0.17503e+00_rb,0.17255e+00_rb,0.12738e+00_rb /)
+      kao(:, 2, 3, 5) = (/ &
+        & 0.64702e-02_rb,0.67967e-01_rb,0.10427e+00_rb,0.13197e+00_rb,0.15350e+00_rb, &
+        & 0.16985e+00_rb,0.18008e+00_rb,0.17631e+00_rb,0.13087e+00_rb /)
+      kao(:, 3, 3, 5) = (/ &
+        & 0.74200e-02_rb,0.72252e-01_rb,0.10956e+00_rb,0.13801e+00_rb,0.15978e+00_rb, &
+        & 0.17567e+00_rb,0.18476e+00_rb,0.17977e+00_rb,0.13421e+00_rb /)
+      kao(:, 4, 3, 5) = (/ &
+        & 0.84907e-02_rb,0.76772e-01_rb,0.11539e+00_rb,0.14427e+00_rb,0.16615e+00_rb, &
+        & 0.18168e+00_rb,0.18947e+00_rb,0.18300e+00_rb,0.13761e+00_rb /)
+      kao(:, 5, 3, 5) = (/ &
+        & 0.97078e-02_rb,0.81671e-01_rb,0.12172e+00_rb,0.15082e+00_rb,0.17277e+00_rb, &
+        & 0.18769e+00_rb,0.19427e+00_rb,0.18608e+00_rb,0.14067e+00_rb /)
+      kao(:, 1, 4, 5) = (/ &
+        & 0.48829e-02_rb,0.54383e-01_rb,0.85075e-01_rb,0.10815e+00_rb,0.12638e+00_rb, &
+        & 0.14020e+00_rb,0.14903e+00_rb,0.14670e+00_rb,0.10614e+00_rb /)
+      kao(:, 2, 4, 5) = (/ &
+        & 0.55740e-02_rb,0.57779e-01_rb,0.89436e-01_rb,0.11323e+00_rb,0.13160e+00_rb, &
+        & 0.14514e+00_rb,0.15349e+00_rb,0.15027e+00_rb,0.10949e+00_rb /)
+      kao(:, 3, 4, 5) = (/ &
+        & 0.64015e-02_rb,0.61546e-01_rb,0.94139e-01_rb,0.11850e+00_rb,0.13701e+00_rb, &
+        & 0.15017e+00_rb,0.15757e+00_rb,0.15344e+00_rb,0.11257e+00_rb /)
+      kao(:, 4, 4, 5) = (/ &
+        & 0.73719e-02_rb,0.65521e-01_rb,0.99232e-01_rb,0.12403e+00_rb,0.14259e+00_rb, &
+        & 0.15541e+00_rb,0.16175e+00_rb,0.15634e+00_rb,0.11557e+00_rb /)
+      kao(:, 5, 4, 5) = (/ &
+        & 0.84789e-02_rb,0.69810e-01_rb,0.10478e+00_rb,0.12985e+00_rb,0.14840e+00_rb, &
+        & 0.16071e+00_rb,0.16597e+00_rb,0.15910e+00_rb,0.11833e+00_rb /)
+      kao(:, 1, 5, 5) = (/ &
+        & 0.41357e-02_rb,0.45878e-01_rb,0.71866e-01_rb,0.92130e-01_rb,0.10772e+00_rb, &
+        & 0.11935e+00_rb,0.12627e+00_rb,0.12382e+00_rb,0.88490e-01_rb /)
+      kao(:, 2, 5, 5) = (/ &
+        & 0.47278e-02_rb,0.48809e-01_rb,0.75724e-01_rb,0.96485e-01_rb,0.11218e+00_rb, &
+        & 0.12363e+00_rb,0.13023e+00_rb,0.12723e+00_rb,0.91646e-01_rb /)
+      kao(:, 3, 5, 5) = (/ &
+        & 0.54234e-02_rb,0.52108e-01_rb,0.79925e-01_rb,0.10105e+00_rb,0.11684e+00_rb, &
+        & 0.12795e+00_rb,0.13389e+00_rb,0.13024e+00_rb,0.94384e-01_rb /)
+      kao(:, 4, 5, 5) = (/ &
+        & 0.62672e-02_rb,0.55647e-01_rb,0.84438e-01_rb,0.10591e+00_rb,0.12167e+00_rb, &
+        & 0.13255e+00_rb,0.13759e+00_rb,0.13288e+00_rb,0.97037e-01_rb /)
+      kao(:, 5, 5, 5) = (/ &
+        & 0.72387e-02_rb,0.59393e-01_rb,0.89326e-01_rb,0.11102e+00_rb,0.12680e+00_rb, &
+        & 0.13723e+00_rb,0.14128e+00_rb,0.13530e+00_rb,0.99585e-01_rb /)
+      kao(:, 1, 6, 5) = (/ &
+        & 0.34820e-02_rb,0.38455e-01_rb,0.60106e-01_rb,0.77515e-01_rb,0.91143e-01_rb, &
+        & 0.10094e+00_rb,0.10649e+00_rb,0.10403e+00_rb,0.73509e-01_rb /)
+      kao(:, 2, 6, 5) = (/ &
+        & 0.39507e-02_rb,0.40927e-01_rb,0.63402e-01_rb,0.81240e-01_rb,0.94968e-01_rb, &
+        & 0.10469e+00_rb,0.11001e+00_rb,0.10717e+00_rb,0.76426e-01_rb /)
+      kao(:, 3, 6, 5) = (/ &
+        & 0.45266e-02_rb,0.43726e-01_rb,0.67041e-01_rb,0.85234e-01_rb,0.98911e-01_rb, &
+        & 0.10845e+00_rb,0.11329e+00_rb,0.10996e+00_rb,0.78861e-01_rb /)
+      kao(:, 4, 6, 5) = (/ &
+        & 0.52242e-02_rb,0.46807e-01_rb,0.70939e-01_rb,0.89547e-01_rb,0.10312e+00_rb, &
+        & 0.11247e+00_rb,0.11653e+00_rb,0.11237e+00_rb,0.81250e-01_rb /)
+      kao(:, 5, 6, 5) = (/ &
+        & 0.60449e-02_rb,0.50083e-01_rb,0.75175e-01_rb,0.94041e-01_rb,0.10760e+00_rb, &
+        & 0.11657e+00_rb,0.11980e+00_rb,0.11449e+00_rb,0.83549e-01_rb /)
+      kao(:, 1, 7, 5) = (/ &
+        & 0.28711e-02_rb,0.32523e-01_rb,0.49971e-01_rb,0.64597e-01_rb,0.76360e-01_rb, &
+        & 0.84918e-01_rb,0.89523e-01_rb,0.87200e-01_rb,0.60618e-01_rb /)
+      kao(:, 2, 7, 5) = (/ &
+        & 0.32550e-02_rb,0.34614e-01_rb,0.52803e-01_rb,0.67740e-01_rb,0.79713e-01_rb, &
+        & 0.88207e-01_rb,0.92681e-01_rb,0.90060e-01_rb,0.63331e-01_rb /)
+      kao(:, 3, 7, 5) = (/ &
+        & 0.37263e-02_rb,0.36968e-01_rb,0.55904e-01_rb,0.71153e-01_rb,0.83143e-01_rb, &
+        & 0.91509e-01_rb,0.95607e-01_rb,0.92564e-01_rb,0.65595e-01_rb /)
+      kao(:, 4, 7, 5) = (/ &
+        & 0.42953e-02_rb,0.39538e-01_rb,0.59281e-01_rb,0.74912e-01_rb,0.86822e-01_rb, &
+        & 0.94956e-01_rb,0.98438e-01_rb,0.94728e-01_rb,0.67680e-01_rb /)
+      kao(:, 5, 7, 5) = (/ &
+        & 0.49788e-02_rb,0.42264e-01_rb,0.62953e-01_rb,0.78842e-01_rb,0.90742e-01_rb, &
+        & 0.98510e-01_rb,0.10129e+00_rb,0.96641e-01_rb,0.69746e-01_rb /)
+      kao(:, 1, 8, 5) = (/ &
+        & 0.23480e-02_rb,0.27230e-01_rb,0.41671e-01_rb,0.53565e-01_rb,0.63436e-01_rb, &
+        & 0.70999e-01_rb,0.75020e-01_rb,0.72906e-01_rb,0.49386e-01_rb /)
+      kao(:, 2, 8, 5) = (/ &
+        & 0.26517e-02_rb,0.29065e-01_rb,0.44017e-01_rb,0.56225e-01_rb,0.66341e-01_rb, &
+        & 0.73935e-01_rb,0.77879e-01_rb,0.75468e-01_rb,0.51750e-01_rb /)
+      kao(:, 3, 8, 5) = (/ &
+        & 0.30285e-02_rb,0.31112e-01_rb,0.46598e-01_rb,0.59161e-01_rb,0.69302e-01_rb, &
+        & 0.76809e-01_rb,0.80439e-01_rb,0.77729e-01_rb,0.53904e-01_rb /)
+      kao(:, 4, 8, 5) = (/ &
+        & 0.34816e-02_rb,0.33348e-01_rb,0.49448e-01_rb,0.62380e-01_rb,0.72502e-01_rb, &
+        & 0.79786e-01_rb,0.82887e-01_rb,0.79683e-01_rb,0.55731e-01_rb /)
+      kao(:, 5, 8, 5) = (/ &
+        & 0.40444e-02_rb,0.35730e-01_rb,0.52545e-01_rb,0.65794e-01_rb,0.75878e-01_rb, &
+        & 0.82889e-01_rb,0.85379e-01_rb,0.81391e-01_rb,0.57509e-01_rb /)
+      kao(:, 1, 9, 5) = (/ &
+        & 0.19247e-02_rb,0.22630e-01_rb,0.34752e-01_rb,0.44387e-01_rb,0.52455e-01_rb, &
+        & 0.58833e-01_rb,0.62468e-01_rb,0.60719e-01_rb,0.41880e-01_rb /)
+      kao(:, 2, 9, 5) = (/ &
+        & 0.21557e-02_rb,0.24204e-01_rb,0.36750e-01_rb,0.46636e-01_rb,0.54976e-01_rb, &
+        & 0.61421e-01_rb,0.65052e-01_rb,0.62994e-01_rb,0.44010e-01_rb /)
+      kao(:, 3, 9, 5) = (/ &
+        & 0.24477e-02_rb,0.25958e-01_rb,0.38981e-01_rb,0.49108e-01_rb,0.57526e-01_rb, &
+        & 0.63907e-01_rb,0.67351e-01_rb,0.65038e-01_rb,0.45929e-01_rb /)
+      kao(:, 4, 9, 5) = (/ &
+        & 0.28196e-02_rb,0.27882e-01_rb,0.41431e-01_rb,0.51802e-01_rb,0.60249e-01_rb, &
+        & 0.66480e-01_rb,0.69467e-01_rb,0.66788e-01_rb,0.47555e-01_rb /)
+      kao(:, 5, 9, 5) = (/ &
+        & 0.32654e-02_rb,0.29939e-01_rb,0.44072e-01_rb,0.54714e-01_rb,0.63163e-01_rb, &
+        & 0.69207e-01_rb,0.71600e-01_rb,0.68328e-01_rb,0.49077e-01_rb /)
+      kao(:, 1,10, 5) = (/ &
+        & 0.16200e-02_rb,0.18814e-01_rb,0.28911e-01_rb,0.37025e-01_rb,0.43479e-01_rb, &
+        & 0.48691e-01_rb,0.51767e-01_rb,0.50517e-01_rb,0.36565e-01_rb /)
+      kao(:, 2,10, 5) = (/ &
+        & 0.18031e-02_rb,0.20150e-01_rb,0.30632e-01_rb,0.38967e-01_rb,0.45609e-01_rb, &
+        & 0.50940e-01_rb,0.54046e-01_rb,0.52515e-01_rb,0.38425e-01_rb /)
+      kao(:, 3,10, 5) = (/ &
+        & 0.20232e-02_rb,0.21640e-01_rb,0.32572e-01_rb,0.41079e-01_rb,0.47788e-01_rb, &
+        & 0.53101e-01_rb,0.56114e-01_rb,0.54338e-01_rb,0.40162e-01_rb /)
+      kao(:, 4,10, 5) = (/ &
+        & 0.23038e-02_rb,0.23298e-01_rb,0.34703e-01_rb,0.43393e-01_rb,0.50110e-01_rb, &
+        & 0.55298e-01_rb,0.57982e-01_rb,0.55873e-01_rb,0.41782e-01_rb /)
+      kao(:, 5,10, 5) = (/ &
+        & 0.26649e-02_rb,0.25073e-01_rb,0.36983e-01_rb,0.45868e-01_rb,0.52617e-01_rb, &
+        & 0.57641e-01_rb,0.59833e-01_rb,0.57222e-01_rb,0.43243e-01_rb /)
+      kao(:, 1,11, 5) = (/ &
+        & 0.14241e-02_rb,0.16065e-01_rb,0.24586e-01_rb,0.31465e-01_rb,0.36963e-01_rb, &
+        & 0.41093e-01_rb,0.43617e-01_rb,0.42673e-01_rb,0.32343e-01_rb /)
+      kao(:, 2,11, 5) = (/ &
+        & 0.15878e-02_rb,0.17268e-01_rb,0.26144e-01_rb,0.33169e-01_rb,0.38816e-01_rb, &
+        & 0.42988e-01_rb,0.45546e-01_rb,0.44327e-01_rb,0.34054e-01_rb /)
+      kao(:, 3,11, 5) = (/ &
+        & 0.18003e-02_rb,0.18609e-01_rb,0.27888e-01_rb,0.35066e-01_rb,0.40717e-01_rb, &
+        & 0.44861e-01_rb,0.47277e-01_rb,0.45845e-01_rb,0.35562e-01_rb /)
+      kao(:, 4,11, 5) = (/ &
+        & 0.20513e-02_rb,0.20069e-01_rb,0.29794e-01_rb,0.37147e-01_rb,0.42781e-01_rb, &
+        & 0.46774e-01_rb,0.48869e-01_rb,0.47106e-01_rb,0.36881e-01_rb /)
+      kao(:, 5,11, 5) = (/ &
+        & 0.23610e-02_rb,0.21636e-01_rb,0.31786e-01_rb,0.39341e-01_rb,0.44964e-01_rb, &
+        & 0.48832e-01_rb,0.50478e-01_rb,0.48237e-01_rb,0.38136e-01_rb /)
+      kao(:, 1,12, 5) = (/ &
+        & 0.12367e-02_rb,0.13664e-01_rb,0.20841e-01_rb,0.26619e-01_rb,0.31258e-01_rb, &
+        & 0.34766e-01_rb,0.36665e-01_rb,0.35873e-01_rb,0.27811e-01_rb /)
+      kao(:, 2,12, 5) = (/ &
+        & 0.13898e-02_rb,0.14747e-01_rb,0.22238e-01_rb,0.28134e-01_rb,0.32876e-01_rb, &
+        & 0.36392e-01_rb,0.38286e-01_rb,0.37257e-01_rb,0.29212e-01_rb /)
+      kao(:, 3,12, 5) = (/ &
+        & 0.15822e-02_rb,0.15920e-01_rb,0.23808e-01_rb,0.29830e-01_rb,0.34558e-01_rb, &
+        & 0.38014e-01_rb,0.39728e-01_rb,0.38493e-01_rb,0.30517e-01_rb /)
+      kao(:, 4,12, 5) = (/ &
+        & 0.18117e-02_rb,0.17195e-01_rb,0.25479e-01_rb,0.31664e-01_rb,0.36378e-01_rb, &
+        & 0.39675e-01_rb,0.41098e-01_rb,0.39553e-01_rb,0.31705e-01_rb /)
+      kao(:, 5,12, 5) = (/ &
+        & 0.20996e-02_rb,0.18567e-01_rb,0.27225e-01_rb,0.33571e-01_rb,0.38302e-01_rb, &
+        & 0.41437e-01_rb,0.42501e-01_rb,0.40525e-01_rb,0.32748e-01_rb /)
+      kao(:, 1,13, 5) = (/ &
+        & 0.10606e-02_rb,0.11594e-01_rb,0.17616e-01_rb,0.22456e-01_rb,0.26337e-01_rb, &
+        & 0.29282e-01_rb,0.30831e-01_rb,0.30037e-01_rb,0.23251e-01_rb /)
+      kao(:, 2,13, 5) = (/ &
+        & 0.11975e-02_rb,0.12541e-01_rb,0.18850e-01_rb,0.23795e-01_rb,0.27745e-01_rb, &
+        & 0.30676e-01_rb,0.32191e-01_rb,0.31186e-01_rb,0.24461e-01_rb /)
+      kao(:, 3,13, 5) = (/ &
+        & 0.13686e-02_rb,0.13557e-01_rb,0.20236e-01_rb,0.25287e-01_rb,0.29224e-01_rb, &
+        & 0.32085e-01_rb,0.33411e-01_rb,0.32190e-01_rb,0.25539e-01_rb /)
+      kao(:, 4,13, 5) = (/ &
+        & 0.15787e-02_rb,0.14655e-01_rb,0.21685e-01_rb,0.26887e-01_rb,0.30821e-01_rb, &
+        & 0.33533e-01_rb,0.34581e-01_rb,0.33091e-01_rb,0.26483e-01_rb /)
+      kao(:, 5,13, 5) = (/ &
+        & 0.18422e-02_rb,0.15847e-01_rb,0.23201e-01_rb,0.28535e-01_rb,0.32486e-01_rb, &
+        & 0.35059e-01_rb,0.35791e-01_rb,0.33942e-01_rb,0.27340e-01_rb /)
+      kao(:, 1, 1, 6) = (/ &
+        & 0.11257e+00_rb,0.31731e+00_rb,0.42139e+00_rb,0.49121e+00_rb,0.53179e+00_rb, &
+        & 0.54416e+00_rb,0.52879e+00_rb,0.48565e+00_rb,0.38185e+00_rb /)
+      kao(:, 2, 1, 6) = (/ &
+        & 0.12995e+00_rb,0.33757e+00_rb,0.44079e+00_rb,0.50693e+00_rb,0.54374e+00_rb, &
+        & 0.55231e+00_rb,0.53411e+00_rb,0.48973e+00_rb,0.38664e+00_rb /)
+      kao(:, 3, 1, 6) = (/ &
+        & 0.14899e+00_rb,0.35787e+00_rb,0.45940e+00_rb,0.52235e+00_rb,0.55490e+00_rb, &
+        & 0.56009e+00_rb,0.53945e+00_rb,0.49411e+00_rb,0.39028e+00_rb /)
+      kao(:, 4, 1, 6) = (/ &
+        & 0.16946e+00_rb,0.37848e+00_rb,0.47747e+00_rb,0.53692e+00_rb,0.56497e+00_rb, &
+        & 0.56760e+00_rb,0.54484e+00_rb,0.49832e+00_rb,0.39391e+00_rb /)
+      kao(:, 5, 1, 6) = (/ &
+        & 0.19143e+00_rb,0.39915e+00_rb,0.49476e+00_rb,0.55039e+00_rb,0.57468e+00_rb, &
+        & 0.57486e+00_rb,0.55036e+00_rb,0.50307e+00_rb,0.39756e+00_rb /)
+      kao(:, 1, 2, 6) = (/ &
+        & 0.97091e-01_rb,0.28037e+00_rb,0.37054e+00_rb,0.43162e+00_rb,0.46715e+00_rb, &
+        & 0.47740e+00_rb,0.46327e+00_rb,0.42557e+00_rb,0.32833e+00_rb /)
+      kao(:, 2, 2, 6) = (/ &
+        & 0.11208e+00_rb,0.29815e+00_rb,0.38764e+00_rb,0.44615e+00_rb,0.47841e+00_rb, &
+        & 0.48513e+00_rb,0.46886e+00_rb,0.42998e+00_rb,0.33260e+00_rb /)
+      kao(:, 3, 2, 6) = (/ &
+        & 0.12856e+00_rb,0.31599e+00_rb,0.40420e+00_rb,0.45996e+00_rb,0.48848e+00_rb, &
+        & 0.49285e+00_rb,0.47441e+00_rb,0.43431e+00_rb,0.33632e+00_rb /)
+      kao(:, 4, 2, 6) = (/ &
+        & 0.14648e+00_rb,0.33425e+00_rb,0.42020e+00_rb,0.47262e+00_rb,0.49778e+00_rb, &
+        & 0.50015e+00_rb,0.47996e+00_rb,0.43890e+00_rb,0.33965e+00_rb /)
+      kao(:, 5, 2, 6) = (/ &
+        & 0.16579e+00_rb,0.35250e+00_rb,0.43554e+00_rb,0.48445e+00_rb,0.50655e+00_rb, &
+        & 0.50702e+00_rb,0.48572e+00_rb,0.44375e+00_rb,0.34330e+00_rb /)
+      kao(:, 1, 3, 6) = (/ &
+        & 0.80654e-01_rb,0.24334e+00_rb,0.32145e+00_rb,0.37485e+00_rb,0.40615e+00_rb, &
+        & 0.41488e+00_rb,0.40284e+00_rb,0.37005e+00_rb,0.27897e+00_rb /)
+      kao(:, 2, 3, 6) = (/ &
+        & 0.93334e-01_rb,0.25889e+00_rb,0.33665e+00_rb,0.38799e+00_rb,0.41628e+00_rb, &
+        & 0.42254e+00_rb,0.40845e+00_rb,0.37420e+00_rb,0.28281e+00_rb /)
+      kao(:, 3, 3, 6) = (/ &
+        & 0.10735e+00_rb,0.27449e+00_rb,0.35143e+00_rb,0.40015e+00_rb,0.42551e+00_rb, &
+        & 0.42981e+00_rb,0.41382e+00_rb,0.37871e+00_rb,0.28619e+00_rb /)
+      kao(:, 4, 3, 6) = (/ &
+        & 0.12265e+00_rb,0.29043e+00_rb,0.36548e+00_rb,0.41153e+00_rb,0.43393e+00_rb, &
+        & 0.43649e+00_rb,0.41932e+00_rb,0.38340e+00_rb,0.28955e+00_rb /)
+      kao(:, 5, 3, 6) = (/ &
+        & 0.13925e+00_rb,0.30659e+00_rb,0.37895e+00_rb,0.42211e+00_rb,0.44187e+00_rb, &
+        & 0.44276e+00_rb,0.42490e+00_rb,0.38830e+00_rb,0.29282e+00_rb /)
+      kao(:, 1, 4, 6) = (/ &
+        & 0.65986e-01_rb,0.20968e+00_rb,0.27746e+00_rb,0.32321e+00_rb,0.35021e+00_rb, &
+        & 0.35817e+00_rb,0.34816e+00_rb,0.31914e+00_rb,0.23714e+00_rb /)
+      kao(:, 2, 4, 6) = (/ &
+        & 0.76550e-01_rb,0.22318e+00_rb,0.29094e+00_rb,0.33486e+00_rb,0.35941e+00_rb, &
+        & 0.36546e+00_rb,0.35341e+00_rb,0.32318e+00_rb,0.24040e+00_rb /)
+      kao(:, 3, 4, 6) = (/ &
+        & 0.88349e-01_rb,0.23676e+00_rb,0.30387e+00_rb,0.34562e+00_rb,0.36786e+00_rb, &
+        & 0.37204e+00_rb,0.35871e+00_rb,0.32765e+00_rb,0.24343e+00_rb /)
+      kao(:, 4, 4, 6) = (/ &
+        & 0.10129e+00_rb,0.25065e+00_rb,0.31610e+00_rb,0.35574e+00_rb,0.37546e+00_rb, &
+        & 0.37811e+00_rb,0.36390e+00_rb,0.33220e+00_rb,0.24649e+00_rb /)
+      kao(:, 5, 4, 6) = (/ &
+        & 0.11540e+00_rb,0.26489e+00_rb,0.32784e+00_rb,0.36504e+00_rb,0.38250e+00_rb, &
+        & 0.38387e+00_rb,0.36919e+00_rb,0.33697e+00_rb,0.24943e+00_rb /)
+      kao(:, 1, 5, 6) = (/ &
+        & 0.53393e-01_rb,0.18000e+00_rb,0.23883e+00_rb,0.27751e+00_rb,0.30053e+00_rb, &
+        & 0.30742e+00_rb,0.29898e+00_rb,0.27383e+00_rb,0.20106e+00_rb /)
+      kao(:, 2, 5, 6) = (/ &
+        & 0.62233e-01_rb,0.19175e+00_rb,0.25050e+00_rb,0.28777e+00_rb,0.30898e+00_rb, &
+        & 0.31400e+00_rb,0.30389e+00_rb,0.27769e+00_rb,0.20390e+00_rb /)
+      kao(:, 3, 5, 6) = (/ &
+        & 0.72177e-01_rb,0.20364e+00_rb,0.26165e+00_rb,0.29741e+00_rb,0.31640e+00_rb, &
+        & 0.31996e+00_rb,0.30876e+00_rb,0.28174e+00_rb,0.20671e+00_rb /)
+      kao(:, 4, 5, 6) = (/ &
+        & 0.83134e-01_rb,0.21576e+00_rb,0.27227e+00_rb,0.30617e+00_rb,0.32319e+00_rb, &
+        & 0.32542e+00_rb,0.31353e+00_rb,0.28599e+00_rb,0.20956e+00_rb /)
+      kao(:, 5, 5, 6) = (/ &
+        & 0.95090e-01_rb,0.22815e+00_rb,0.28259e+00_rb,0.31429e+00_rb,0.32943e+00_rb, &
+        & 0.33059e+00_rb,0.31837e+00_rb,0.29043e+00_rb,0.21220e+00_rb /)
+      kao(:, 1, 6, 6) = (/ &
+        & 0.42433e-01_rb,0.15317e+00_rb,0.20425e+00_rb,0.23740e+00_rb,0.25663e+00_rb, &
+        & 0.26234e+00_rb,0.25512e+00_rb,0.23364e+00_rb,0.16949e+00_rb /)
+      kao(:, 2, 6, 6) = (/ &
+        & 0.49749e-01_rb,0.16341e+00_rb,0.21435e+00_rb,0.24646e+00_rb,0.26413e+00_rb, &
+        & 0.26825e+00_rb,0.25968e+00_rb,0.23716e+00_rb,0.17204e+00_rb /)
+      kao(:, 3, 6, 6) = (/ &
+        & 0.58017e-01_rb,0.17381e+00_rb,0.22409e+00_rb,0.25485e+00_rb,0.27073e+00_rb, &
+        & 0.27356e+00_rb,0.26405e+00_rb,0.24070e+00_rb,0.17477e+00_rb /)
+      kao(:, 4, 6, 6) = (/ &
+        & 0.67231e-01_rb,0.18439e+00_rb,0.23345e+00_rb,0.26240e+00_rb,0.27677e+00_rb, &
+        & 0.27839e+00_rb,0.26819e+00_rb,0.24459e+00_rb,0.17741e+00_rb /)
+      kao(:, 5, 6, 6) = (/ &
+        & 0.77316e-01_rb,0.19517e+00_rb,0.24253e+00_rb,0.26953e+00_rb,0.28221e+00_rb, &
+        & 0.28296e+00_rb,0.27246e+00_rb,0.24867e+00_rb,0.17984e+00_rb /)
+      kao(:, 1, 7, 6) = (/ &
+        & 0.33835e-01_rb,0.12894e+00_rb,0.17377e+00_rb,0.20223e+00_rb,0.21858e+00_rb, &
+        & 0.22305e+00_rb,0.21661e+00_rb,0.19799e+00_rb,0.14234e+00_rb /)
+      kao(:, 2, 7, 6) = (/ &
+        & 0.39495e-01_rb,0.13775e+00_rb,0.18255e+00_rb,0.21017e+00_rb,0.22506e+00_rb, &
+        & 0.22828e+00_rb,0.22063e+00_rb,0.20115e+00_rb,0.14469e+00_rb /)
+      kao(:, 3, 7, 6) = (/ &
+        & 0.46213e-01_rb,0.14677e+00_rb,0.19104e+00_rb,0.21747e+00_rb,0.23085e+00_rb, &
+        & 0.23293e+00_rb,0.22444e+00_rb,0.20438e+00_rb,0.14721e+00_rb /)
+      kao(:, 4, 7, 6) = (/ &
+        & 0.53881e-01_rb,0.15604e+00_rb,0.19912e+00_rb,0.22407e+00_rb,0.23606e+00_rb, &
+        & 0.23711e+00_rb,0.22803e+00_rb,0.20793e+00_rb,0.14967e+00_rb /)
+      kao(:, 5, 7, 6) = (/ &
+        & 0.62313e-01_rb,0.16559e+00_rb,0.20703e+00_rb,0.23032e+00_rb,0.24086e+00_rb, &
+        & 0.24109e+00_rb,0.23183e+00_rb,0.21164e+00_rb,0.15187e+00_rb /)
+      kao(:, 1, 8, 6) = (/ &
+        & 0.27294e-01_rb,0.10784e+00_rb,0.14673e+00_rb,0.17152e+00_rb,0.18541e+00_rb, &
+        & 0.18896e+00_rb,0.18302e+00_rb,0.16686e+00_rb,0.11892e+00_rb /)
+      kao(:, 2, 8, 6) = (/ &
+        & 0.31945e-01_rb,0.11533e+00_rb,0.15437e+00_rb,0.17841e+00_rb,0.19097e+00_rb, &
+        & 0.19348e+00_rb,0.18650e+00_rb,0.16969e+00_rb,0.12123e+00_rb /)
+      kao(:, 3, 8, 6) = (/ &
+        & 0.37290e-01_rb,0.12309e+00_rb,0.16174e+00_rb,0.18467e+00_rb,0.19597e+00_rb, &
+        & 0.19753e+00_rb,0.18983e+00_rb,0.17262e+00_rb,0.12344e+00_rb /)
+      kao(:, 4, 8, 6) = (/ &
+        & 0.43331e-01_rb,0.13110e+00_rb,0.16878e+00_rb,0.19044e+00_rb,0.20053e+00_rb, &
+        & 0.20117e+00_rb,0.19304e+00_rb,0.17581e+00_rb,0.12571e+00_rb /)
+      kao(:, 5, 8, 6) = (/ &
+        & 0.50086e-01_rb,0.13937e+00_rb,0.17577e+00_rb,0.19586e+00_rb,0.20476e+00_rb, &
+        & 0.20472e+00_rb,0.19647e+00_rb,0.17915e+00_rb,0.12770e+00_rb /)
+      kao(:, 1, 9, 6) = (/ &
+        & 0.21763e-01_rb,0.89580e-01_rb,0.12270e+00_rb,0.14431e+00_rb,0.15639e+00_rb, &
+        & 0.15936e+00_rb,0.15421e+00_rb,0.14030e+00_rb,0.10042e+00_rb /)
+      kao(:, 2, 9, 6) = (/ &
+        & 0.25609e-01_rb,0.95974e-01_rb,0.12925e+00_rb,0.15030e+00_rb,0.16119e+00_rb, &
+        & 0.16326e+00_rb,0.15719e+00_rb,0.14283e+00_rb,0.10252e+00_rb /)
+      kao(:, 3, 9, 6) = (/ &
+        & 0.30067e-01_rb,0.10261e+00_rb,0.13551e+00_rb,0.15572e+00_rb,0.16552e+00_rb, &
+        & 0.16675e+00_rb,0.16007e+00_rb,0.14539e+00_rb,0.10448e+00_rb /)
+      kao(:, 4, 9, 6) = (/ &
+        & 0.35097e-01_rb,0.10949e+00_rb,0.14161e+00_rb,0.16075e+00_rb,0.16947e+00_rb, &
+        & 0.16997e+00_rb,0.16297e+00_rb,0.14823e+00_rb,0.10645e+00_rb /)
+      kao(:, 5, 9, 6) = (/ &
+        & 0.40711e-01_rb,0.11658e+00_rb,0.14773e+00_rb,0.16552e+00_rb,0.17324e+00_rb, &
+        & 0.17317e+00_rb,0.16604e+00_rb,0.15112e+00_rb,0.10826e+00_rb /)
+      kao(:, 1,10, 6) = (/ &
+        & 0.17370e-01_rb,0.74466e-01_rb,0.10240e+00_rb,0.12053e+00_rb,0.13126e+00_rb, &
+        & 0.13417e+00_rb,0.12989e+00_rb,0.11790e+00_rb,0.87103e-01_rb /)
+      kao(:, 2,10, 6) = (/ &
+        & 0.20536e-01_rb,0.79866e-01_rb,0.10796e+00_rb,0.12568e+00_rb,0.13547e+00_rb, &
+        & 0.13755e+00_rb,0.13244e+00_rb,0.12017e+00_rb,0.88680e-01_rb /)
+      kao(:, 3,10, 6) = (/ &
+        & 0.24274e-01_rb,0.85524e-01_rb,0.11324e+00_rb,0.13036e+00_rb,0.13925e+00_rb, &
+        & 0.14055e+00_rb,0.13491e+00_rb,0.12243e+00_rb,0.90062e-01_rb /)
+      kao(:, 4,10, 6) = (/ &
+        & 0.28508e-01_rb,0.91420e-01_rb,0.11852e+00_rb,0.13467e+00_rb,0.14267e+00_rb, &
+        & 0.14339e+00_rb,0.13748e+00_rb,0.12487e+00_rb,0.91240e-01_rb /)
+      kao(:, 5,10, 6) = (/ &
+        & 0.33217e-01_rb,0.97522e-01_rb,0.12382e+00_rb,0.13886e+00_rb,0.14603e+00_rb, &
+        & 0.14625e+00_rb,0.14015e+00_rb,0.12740e+00_rb,0.92631e-01_rb /)
+      kao(:, 1,11, 6) = (/ &
+        & 0.14918e-01_rb,0.64249e-01_rb,0.87193e-01_rb,0.10225e+00_rb,0.11107e+00_rb, &
+        & 0.11380e+00_rb,0.11017e+00_rb,0.99775e-01_rb,0.75883e-01_rb /)
+      kao(:, 2,11, 6) = (/ &
+        & 0.17707e-01_rb,0.68887e-01_rb,0.91783e-01_rb,0.10653e+00_rb,0.11454e+00_rb, &
+        & 0.11659e+00_rb,0.11231e+00_rb,0.10178e+00_rb,0.77400e-01_rb /)
+      kao(:, 3,11, 6) = (/ &
+        & 0.20985e-01_rb,0.73723e-01_rb,0.96290e-01_rb,0.11038e+00_rb,0.11765e+00_rb, &
+        & 0.11911e+00_rb,0.11446e+00_rb,0.10377e+00_rb,0.78827e-01_rb /)
+      kao(:, 4,11, 6) = (/ &
+        & 0.24698e-01_rb,0.78820e-01_rb,0.10085e+00_rb,0.11403e+00_rb,0.12064e+00_rb, &
+        & 0.12159e+00_rb,0.11674e+00_rb,0.10593e+00_rb,0.80678e-01_rb /)
+      kao(:, 5,11, 6) = (/ &
+        & 0.28798e-01_rb,0.84087e-01_rb,0.10545e+00_rb,0.11772e+00_rb,0.12367e+00_rb, &
+        & 0.12416e+00_rb,0.11916e+00_rb,0.10818e+00_rb,0.82090e-01_rb /)
+      kao(:, 1,12, 6) = (/ &
+        & 0.12778e-01_rb,0.55028e-01_rb,0.74326e-01_rb,0.86458e-01_rb,0.93690e-01_rb, &
+        & 0.95887e-01_rb,0.92996e-01_rb,0.84239e-01_rb,0.65531e-01_rb /)
+      kao(:, 2,12, 6) = (/ &
+        & 0.15226e-01_rb,0.59056e-01_rb,0.78180e-01_rb,0.90004e-01_rb,0.96562e-01_rb, &
+        & 0.98210e-01_rb,0.94824e-01_rb,0.85996e-01_rb,0.67232e-01_rb /)
+      kao(:, 3,12, 6) = (/ &
+        & 0.18073e-01_rb,0.63328e-01_rb,0.81993e-01_rb,0.93245e-01_rb,0.99175e-01_rb, &
+        & 0.10034e+00_rb,0.96751e-01_rb,0.87779e-01_rb,0.68728e-01_rb /)
+      kao(:, 4,12, 6) = (/ &
+        & 0.21287e-01_rb,0.67814e-01_rb,0.85944e-01_rb,0.96446e-01_rb,0.10181e+00_rb, &
+        & 0.10253e+00_rb,0.98787e-01_rb,0.89700e-01_rb,0.70024e-01_rb /)
+      kao(:, 5,12, 6) = (/ &
+        & 0.24810e-01_rb,0.72405e-01_rb,0.89913e-01_rb,0.99700e-01_rb,0.10454e+00_rb, &
+        & 0.10492e+00_rb,0.10099e+00_rb,0.91662e-01_rb,0.71222e-01_rb /)
+      kao(:, 1,13, 6) = (/ &
+        & 0.10897e-01_rb,0.46824e-01_rb,0.63070e-01_rb,0.73198e-01_rb,0.78826e-01_rb, &
+        & 0.80547e-01_rb,0.78087e-01_rb,0.70945e-01_rb,0.55427e-01_rb /)
+      kao(:, 2,13, 6) = (/ &
+        & 0.13037e-01_rb,0.50331e-01_rb,0.66369e-01_rb,0.76169e-01_rb,0.81229e-01_rb, &
+        & 0.82485e-01_rb,0.79688e-01_rb,0.72492e-01_rb,0.56776e-01_rb /)
+      kao(:, 3,13, 6) = (/ &
+        & 0.15498e-01_rb,0.54103e-01_rb,0.69687e-01_rb,0.78968e-01_rb,0.83486e-01_rb, &
+        & 0.84334e-01_rb,0.81403e-01_rb,0.74109e-01_rb,0.57973e-01_rb /)
+      kao(:, 4,13, 6) = (/ &
+        & 0.18239e-01_rb,0.58007e-01_rb,0.73146e-01_rb,0.81751e-01_rb,0.85842e-01_rb, &
+        & 0.86346e-01_rb,0.83244e-01_rb,0.75789e-01_rb,0.59123e-01_rb /)
+      kao(:, 5,13, 6) = (/ &
+        & 0.21231e-01_rb,0.61947e-01_rb,0.76584e-01_rb,0.84579e-01_rb,0.88268e-01_rb, &
+        & 0.88508e-01_rb,0.85245e-01_rb,0.77486e-01_rb,0.60191e-01_rb /)
+      kao(:, 1, 1, 7) = (/ &
+        & 0.71609e+00_rb,0.10081e+01_rb,0.11118e+01_rb,0.11603e+01_rb,0.11765e+01_rb, &
+        & 0.11643e+01_rb,0.11202e+01_rb,0.10296e+01_rb,0.82502e+00_rb /)
+      kao(:, 2, 1, 7) = (/ &
+        & 0.75920e+00_rb,0.10292e+01_rb,0.11252e+01_rb,0.11685e+01_rb,0.11822e+01_rb, &
+        & 0.11684e+01_rb,0.11228e+01_rb,0.10318e+01_rb,0.83157e+00_rb /)
+      kao(:, 3, 1, 7) = (/ &
+        & 0.79807e+00_rb,0.10500e+01_rb,0.11397e+01_rb,0.11794e+01_rb,0.11904e+01_rb, &
+        & 0.11740e+01_rb,0.11264e+01_rb,0.10343e+01_rb,0.83726e+00_rb /)
+      kao(:, 4, 1, 7) = (/ &
+        & 0.83183e+00_rb,0.10700e+01_rb,0.11548e+01_rb,0.11918e+01_rb,0.12010e+01_rb, &
+        & 0.11815e+01_rb,0.11313e+01_rb,0.10364e+01_rb,0.84249e+00_rb /)
+      kao(:, 5, 1, 7) = (/ &
+        & 0.86161e+00_rb,0.10887e+01_rb,0.11706e+01_rb,0.12061e+01_rb,0.12126e+01_rb, &
+        & 0.11904e+01_rb,0.11363e+01_rb,0.10383e+01_rb,0.84713e+00_rb /)
+      kao(:, 1, 2, 7) = (/ &
+        & 0.62079e+00_rb,0.89078e+00_rb,0.98349e+00_rb,0.10275e+01_rb,0.10413e+01_rb, &
+        & 0.10318e+01_rb,0.99528e+00_rb,0.92037e+00_rb,0.72464e+00_rb /)
+      kao(:, 2, 2, 7) = (/ &
+        & 0.65800e+00_rb,0.91114e+00_rb,0.99789e+00_rb,0.10381e+01_rb,0.10488e+01_rb, &
+        & 0.10378e+01_rb,0.99952e+00_rb,0.92364e+00_rb,0.73140e+00_rb /)
+      kao(:, 3, 2, 7) = (/ &
+        & 0.69092e+00_rb,0.93058e+00_rb,0.10122e+01_rb,0.10502e+01_rb,0.10590e+01_rb, &
+        & 0.10454e+01_rb,0.10054e+01_rb,0.92699e+00_rb,0.73764e+00_rb /)
+      kao(:, 4, 2, 7) = (/ &
+        & 0.71970e+00_rb,0.94840e+00_rb,0.10270e+01_rb,0.10636e+01_rb,0.10709e+01_rb, &
+        & 0.10547e+01_rb,0.10116e+01_rb,0.93021e+00_rb,0.74329e+00_rb /)
+      kao(:, 5, 2, 7) = (/ &
+        & 0.74579e+00_rb,0.96581e+00_rb,0.10421e+01_rb,0.10781e+01_rb,0.10844e+01_rb, &
+        & 0.10644e+01_rb,0.10185e+01_rb,0.93369e+00_rb,0.74789e+00_rb /)
+      kao(:, 1, 3, 7) = (/ &
+        & 0.52823e+00_rb,0.77783e+00_rb,0.86297e+00_rb,0.90265e+00_rb,0.91464e+00_rb, &
+        & 0.90839e+00_rb,0.87923e+00_rb,0.81632e+00_rb,0.63067e+00_rb /)
+      kao(:, 2, 3, 7) = (/ &
+        & 0.56021e+00_rb,0.79652e+00_rb,0.87677e+00_rb,0.91375e+00_rb,0.92363e+00_rb, &
+        & 0.91571e+00_rb,0.88529e+00_rb,0.82096e+00_rb,0.63740e+00_rb /)
+      kao(:, 3, 3, 7) = (/ &
+        & 0.58848e+00_rb,0.81389e+00_rb,0.89039e+00_rb,0.92584e+00_rb,0.93460e+00_rb, &
+        & 0.92486e+00_rb,0.89232e+00_rb,0.82527e+00_rb,0.64377e+00_rb /)
+      kao(:, 4, 3, 7) = (/ &
+        & 0.61369e+00_rb,0.83008e+00_rb,0.90459e+00_rb,0.93860e+00_rb,0.94727e+00_rb, &
+        & 0.93485e+00_rb,0.89989e+00_rb,0.82959e+00_rb,0.64921e+00_rb /)
+      kao(:, 5, 3, 7) = (/ &
+        & 0.63687e+00_rb,0.84580e+00_rb,0.91897e+00_rb,0.95268e+00_rb,0.96085e+00_rb, &
+        & 0.94565e+00_rb,0.90780e+00_rb,0.83380e+00_rb,0.65367e+00_rb /)
+      kao(:, 1, 4, 7) = (/ &
+        & 0.44508e+00_rb,0.67351e+00_rb,0.75154e+00_rb,0.78756e+00_rb,0.79977e+00_rb, &
+        & 0.79563e+00_rb,0.77123e+00_rb,0.71868e+00_rb,0.54794e+00_rb /)
+      kao(:, 2, 4, 7) = (/ &
+        & 0.47271e+00_rb,0.69026e+00_rb,0.76424e+00_rb,0.79840e+00_rb,0.80928e+00_rb, &
+        & 0.80400e+00_rb,0.77859e+00_rb,0.72416e+00_rb,0.55496e+00_rb /)
+      kao(:, 3, 4, 7) = (/ &
+        & 0.49708e+00_rb,0.70580e+00_rb,0.77670e+00_rb,0.80989e+00_rb,0.82043e+00_rb, &
+        & 0.81421e+00_rb,0.78653e+00_rb,0.72918e+00_rb,0.56105e+00_rb /)
+      kao(:, 4, 4, 7) = (/ &
+        & 0.51921e+00_rb,0.72040e+00_rb,0.78970e+00_rb,0.82209e+00_rb,0.83296e+00_rb, &
+        & 0.82477e+00_rb,0.79492e+00_rb,0.73435e+00_rb,0.56612e+00_rb /)
+      kao(:, 5, 4, 7) = (/ &
+        & 0.53991e+00_rb,0.73468e+00_rb,0.80284e+00_rb,0.83540e+00_rb,0.84599e+00_rb, &
+        & 0.83588e+00_rb,0.80349e+00_rb,0.73920e+00_rb,0.57048e+00_rb /)
+      kao(:, 1, 5, 7) = (/ &
+        & 0.37413e+00_rb,0.58022e+00_rb,0.65026e+00_rb,0.68370e+00_rb,0.69632e+00_rb, &
+        & 0.69319e+00_rb,0.67239e+00_rb,0.62755e+00_rb,0.47517e+00_rb /)
+      kao(:, 2, 5, 7) = (/ &
+        & 0.39785e+00_rb,0.59500e+00_rb,0.66160e+00_rb,0.69388e+00_rb,0.70581e+00_rb, &
+        & 0.70224e+00_rb,0.68037e+00_rb,0.63372e+00_rb,0.48187e+00_rb /)
+      kao(:, 3, 5, 7) = (/ &
+        & 0.41894e+00_rb,0.60858e+00_rb,0.67282e+00_rb,0.70454e+00_rb,0.71693e+00_rb, &
+        & 0.71249e+00_rb,0.68889e+00_rb,0.63962e+00_rb,0.48765e+00_rb /)
+      kao(:, 4, 5, 7) = (/ &
+        & 0.43810e+00_rb,0.62138e+00_rb,0.68416e+00_rb,0.71639e+00_rb,0.72873e+00_rb, &
+        & 0.72302e+00_rb,0.69785e+00_rb,0.64510e+00_rb,0.49243e+00_rb /)
+      kao(:, 5, 5, 7) = (/ &
+        & 0.45627e+00_rb,0.63437e+00_rb,0.69610e+00_rb,0.72855e+00_rb,0.74096e+00_rb, &
+        & 0.73385e+00_rb,0.70672e+00_rb,0.65052e+00_rb,0.49657e+00_rb /)
+      kao(:, 1, 6, 7) = (/ &
+        & 0.31382e+00_rb,0.49799e+00_rb,0.55977e+00_rb,0.58971e+00_rb,0.60230e+00_rb, &
+        & 0.60065e+00_rb,0.58267e+00_rb,0.54392e+00_rb,0.40911e+00_rb /)
+      kao(:, 2, 6, 7) = (/ &
+        & 0.33427e+00_rb,0.51077e+00_rb,0.56976e+00_rb,0.59903e+00_rb,0.61148e+00_rb, &
+        & 0.60961e+00_rb,0.59093e+00_rb,0.55057e+00_rb,0.41554e+00_rb /)
+      kao(:, 3, 6, 7) = (/ &
+        & 0.35247e+00_rb,0.52249e+00_rb,0.57948e+00_rb,0.60895e+00_rb,0.62185e+00_rb, &
+        & 0.61942e+00_rb,0.59984e+00_rb,0.55707e+00_rb,0.42096e+00_rb /)
+      kao(:, 4, 6, 7) = (/ &
+        & 0.36909e+00_rb,0.53360e+00_rb,0.58950e+00_rb,0.61977e+00_rb,0.63265e+00_rb, &
+        & 0.62957e+00_rb,0.60872e+00_rb,0.56306e+00_rb,0.42549e+00_rb /)
+      kao(:, 5, 6, 7) = (/ &
+        & 0.38489e+00_rb,0.54511e+00_rb,0.60025e+00_rb,0.63086e+00_rb,0.64395e+00_rb, &
+        & 0.63979e+00_rb,0.61739e+00_rb,0.56897e+00_rb,0.42951e+00_rb /)
+      kao(:, 1, 7, 7) = (/ &
+        & 0.26224e+00_rb,0.42663e+00_rb,0.48031e+00_rb,0.50651e+00_rb,0.51797e+00_rb, &
+        & 0.51738e+00_rb,0.50230e+00_rb,0.46824e+00_rb,0.34967e+00_rb /)
+      kao(:, 2, 7, 7) = (/ &
+        & 0.28013e+00_rb,0.43764e+00_rb,0.48906e+00_rb,0.51485e+00_rb,0.52656e+00_rb, &
+        & 0.52602e+00_rb,0.51065e+00_rb,0.47517e+00_rb,0.35569e+00_rb /)
+      kao(:, 3, 7, 7) = (/ &
+        & 0.29592e+00_rb,0.44770e+00_rb,0.49758e+00_rb,0.52367e+00_rb,0.53583e+00_rb, &
+        & 0.53525e+00_rb,0.51944e+00_rb,0.48175e+00_rb,0.36089e+00_rb /)
+      kao(:, 4, 7, 7) = (/ &
+        & 0.31035e+00_rb,0.45721e+00_rb,0.50658e+00_rb,0.53311e+00_rb,0.54562e+00_rb, &
+        & 0.54468e+00_rb,0.52799e+00_rb,0.48800e+00_rb,0.36523e+00_rb /)
+      kao(:, 5, 7, 7) = (/ &
+        & 0.32410e+00_rb,0.46702e+00_rb,0.51628e+00_rb,0.54315e+00_rb,0.55572e+00_rb, &
+        & 0.55402e+00_rb,0.53619e+00_rb,0.49402e+00_rb,0.36906e+00_rb /)
+      kao(:, 1, 8, 7) = (/ &
+        & 0.21802e+00_rb,0.36523e+00_rb,0.41109e+00_rb,0.43388e+00_rb,0.44363e+00_rb, &
+        & 0.44316e+00_rb,0.43058e+00_rb,0.40065e+00_rb,0.29668e+00_rb /)
+      kao(:, 2, 8, 7) = (/ &
+        & 0.23315e+00_rb,0.37455e+00_rb,0.41894e+00_rb,0.44116e+00_rb,0.45154e+00_rb, &
+        & 0.45134e+00_rb,0.43880e+00_rb,0.40751e+00_rb,0.30231e+00_rb /)
+      kao(:, 3, 8, 7) = (/ &
+        & 0.24686e+00_rb,0.38301e+00_rb,0.42637e+00_rb,0.44889e+00_rb,0.45978e+00_rb, &
+        & 0.45969e+00_rb,0.44700e+00_rb,0.41408e+00_rb,0.30721e+00_rb /)
+      kao(:, 4, 8, 7) = (/ &
+        & 0.25967e+00_rb,0.39102e+00_rb,0.43427e+00_rb,0.45708e+00_rb,0.46833e+00_rb, &
+        & 0.46819e+00_rb,0.45488e+00_rb,0.42031e+00_rb,0.31131e+00_rb /)
+      kao(:, 5, 8, 7) = (/ &
+        & 0.27188e+00_rb,0.39949e+00_rb,0.44272e+00_rb,0.46608e+00_rb,0.47706e+00_rb, &
+        & 0.47653e+00_rb,0.46230e+00_rb,0.42618e+00_rb,0.31504e+00_rb /)
+      kao(:, 1, 9, 7) = (/ &
+        & 0.18022e+00_rb,0.31183e+00_rb,0.35120e+00_rb,0.37079e+00_rb,0.37884e+00_rb, &
+        & 0.37804e+00_rb,0.36693e+00_rb,0.34063e+00_rb,0.24612e+00_rb /)
+      kao(:, 2, 9, 7) = (/ &
+        & 0.19307e+00_rb,0.31966e+00_rb,0.35801e+00_rb,0.37712e+00_rb,0.38585e+00_rb, &
+        & 0.38558e+00_rb,0.37468e+00_rb,0.34716e+00_rb,0.25138e+00_rb /)
+      kao(:, 3, 9, 7) = (/ &
+        & 0.20463e+00_rb,0.32683e+00_rb,0.36444e+00_rb,0.38387e+00_rb,0.39308e+00_rb, &
+        & 0.39294e+00_rb,0.38210e+00_rb,0.35364e+00_rb,0.25593e+00_rb /)
+      kao(:, 4, 9, 7) = (/ &
+        & 0.21550e+00_rb,0.33367e+00_rb,0.37119e+00_rb,0.39103e+00_rb,0.40042e+00_rb, &
+        & 0.40039e+00_rb,0.38916e+00_rb,0.35964e+00_rb,0.25996e+00_rb /)
+      kao(:, 5, 9, 7) = (/ &
+        & 0.22607e+00_rb,0.34108e+00_rb,0.37860e+00_rb,0.39875e+00_rb,0.40805e+00_rb, &
+        & 0.40762e+00_rb,0.39578e+00_rb,0.36518e+00_rb,0.26360e+00_rb /)
+      kao(:, 1,10, 7) = (/ &
+        & 0.14867e+00_rb,0.26554e+00_rb,0.29985e+00_rb,0.31657e+00_rb,0.32318e+00_rb, &
+        & 0.32201e+00_rb,0.31162e+00_rb,0.28815e+00_rb,0.21732e+00_rb /)
+      kao(:, 2,10, 7) = (/ &
+        & 0.15961e+00_rb,0.27217e+00_rb,0.30555e+00_rb,0.32206e+00_rb,0.32938e+00_rb, &
+        & 0.32864e+00_rb,0.31877e+00_rb,0.29424e+00_rb,0.22230e+00_rb /)
+      kao(:, 3,10, 7) = (/ &
+        & 0.16940e+00_rb,0.27829e+00_rb,0.31116e+00_rb,0.32786e+00_rb,0.33559e+00_rb, &
+        & 0.33509e+00_rb,0.32534e+00_rb,0.30046e+00_rb,0.22643e+00_rb /)
+      kao(:, 4,10, 7) = (/ &
+        & 0.17863e+00_rb,0.28410e+00_rb,0.31692e+00_rb,0.33409e+00_rb,0.34189e+00_rb, &
+        & 0.34154e+00_rb,0.33152e+00_rb,0.30607e+00_rb,0.23022e+00_rb /)
+      kao(:, 5,10, 7) = (/ &
+        & 0.18774e+00_rb,0.29050e+00_rb,0.32341e+00_rb,0.34075e+00_rb,0.34846e+00_rb, &
+        & 0.34771e+00_rb,0.33731e+00_rb,0.31120e+00_rb,0.23340e+00_rb /)
+      kao(:, 1,11, 7) = (/ &
+        & 0.12627e+00_rb,0.22669e+00_rb,0.25719e+00_rb,0.27172e+00_rb,0.27732e+00_rb, &
+        & 0.27601e+00_rb,0.26659e+00_rb,0.24512e+00_rb,0.18584e+00_rb /)
+      kao(:, 2,11, 7) = (/ &
+        & 0.13516e+00_rb,0.23214e+00_rb,0.26193e+00_rb,0.27653e+00_rb,0.28265e+00_rb, &
+        & 0.28160e+00_rb,0.27265e+00_rb,0.25095e+00_rb,0.18968e+00_rb /)
+      kao(:, 3,11, 7) = (/ &
+        & 0.14321e+00_rb,0.23722e+00_rb,0.26679e+00_rb,0.28162e+00_rb,0.28797e+00_rb, &
+        & 0.28724e+00_rb,0.27822e+00_rb,0.25645e+00_rb,0.19293e+00_rb /)
+      kao(:, 4,11, 7) = (/ &
+        & 0.15107e+00_rb,0.24247e+00_rb,0.27199e+00_rb,0.28706e+00_rb,0.29346e+00_rb, &
+        & 0.29269e+00_rb,0.28343e+00_rb,0.26131e+00_rb,0.19541e+00_rb /)
+      kao(:, 5,11, 7) = (/ &
+        & 0.15896e+00_rb,0.24837e+00_rb,0.27786e+00_rb,0.29309e+00_rb,0.29929e+00_rb, &
+        & 0.29804e+00_rb,0.28838e+00_rb,0.26594e+00_rb,0.19802e+00_rb /)
+      kao(:, 1,12, 7) = (/ &
+        & 0.10682e+00_rb,0.19256e+00_rb,0.21863e+00_rb,0.23192e+00_rb,0.23695e+00_rb, &
+        & 0.23560e+00_rb,0.22744e+00_rb,0.20844e+00_rb,0.16014e+00_rb /)
+      kao(:, 2,12, 7) = (/ &
+        & 0.11409e+00_rb,0.19699e+00_rb,0.22274e+00_rb,0.23606e+00_rb,0.24149e+00_rb, &
+        & 0.24040e+00_rb,0.23256e+00_rb,0.21367e+00_rb,0.16300e+00_rb /)
+      kao(:, 3,12, 7) = (/ &
+        & 0.12093e+00_rb,0.20128e+00_rb,0.22702e+00_rb,0.24050e+00_rb,0.24609e+00_rb, &
+        & 0.24521e+00_rb,0.23721e+00_rb,0.21831e+00_rb,0.16579e+00_rb /)
+      kao(:, 4,12, 7) = (/ &
+        & 0.12767e+00_rb,0.20601e+00_rb,0.23174e+00_rb,0.24542e+00_rb,0.25091e+00_rb, &
+        & 0.24990e+00_rb,0.24163e+00_rb,0.22258e+00_rb,0.16866e+00_rb /)
+      kao(:, 5,12, 7) = (/ &
+        & 0.13446e+00_rb,0.21151e+00_rb,0.23730e+00_rb,0.25089e+00_rb,0.25608e+00_rb, &
+        & 0.25469e+00_rb,0.24607e+00_rb,0.22668e+00_rb,0.17141e+00_rb /)
+      kao(:, 1,13, 7) = (/ &
+        & 0.90556e-01_rb,0.16301e+00_rb,0.18506e+00_rb,0.19633e+00_rb,0.20124e+00_rb, &
+        & 0.20042e+00_rb,0.19353e+00_rb,0.17713e+00_rb,0.13589e+00_rb /)
+      kao(:, 2,13, 7) = (/ &
+        & 0.96629e-01_rb,0.16667e+00_rb,0.18855e+00_rb,0.19991e+00_rb,0.20512e+00_rb, &
+        & 0.20458e+00_rb,0.19781e+00_rb,0.18150e+00_rb,0.13866e+00_rb /)
+      kao(:, 3,13, 7) = (/ &
+        & 0.10246e+00_rb,0.17045e+00_rb,0.19232e+00_rb,0.20386e+00_rb,0.20916e+00_rb, &
+        & 0.20868e+00_rb,0.20175e+00_rb,0.18546e+00_rb,0.14157e+00_rb /)
+      kao(:, 4,13, 7) = (/ &
+        & 0.10831e+00_rb,0.17481e+00_rb,0.19664e+00_rb,0.20827e+00_rb,0.21340e+00_rb, &
+        & 0.21278e+00_rb,0.20565e+00_rb,0.18920e+00_rb,0.14421e+00_rb /)
+      kao(:, 5,13, 7) = (/ &
+        & 0.11418e+00_rb,0.17993e+00_rb,0.20190e+00_rb,0.21347e+00_rb,0.21830e+00_rb, &
+        & 0.21718e+00_rb,0.20964e+00_rb,0.19280e+00_rb,0.14715e+00_rb /)
+      kao(:, 1, 1, 8) = (/ &
+        & 0.20844e+01_rb,0.23344e+01_rb,0.25576e+01_rb,0.26701e+01_rb,0.27010e+01_rb, &
+        & 0.26681e+01_rb,0.25683e+01_rb,0.23655e+01_rb,0.20810e+01_rb /)
+      kao(:, 2, 1, 8) = (/ &
+        & 0.20807e+01_rb,0.23304e+01_rb,0.25489e+01_rb,0.26611e+01_rb,0.26920e+01_rb, &
+        & 0.26609e+01_rb,0.25647e+01_rb,0.23645e+01_rb,0.20859e+01_rb /)
+      kao(:, 3, 1, 8) = (/ &
+        & 0.20877e+01_rb,0.23342e+01_rb,0.25477e+01_rb,0.26548e+01_rb,0.26843e+01_rb, &
+        & 0.26541e+01_rb,0.25605e+01_rb,0.23637e+01_rb,0.20903e+01_rb /)
+      kao(:, 4, 1, 8) = (/ &
+        & 0.21052e+01_rb,0.23454e+01_rb,0.25520e+01_rb,0.26529e+01_rb,0.26778e+01_rb, &
+        & 0.26478e+01_rb,0.25565e+01_rb,0.23630e+01_rb,0.20935e+01_rb /)
+      kao(:, 5, 1, 8) = (/ &
+        & 0.21303e+01_rb,0.23633e+01_rb,0.25619e+01_rb,0.26546e+01_rb,0.26749e+01_rb, &
+        & 0.26429e+01_rb,0.25542e+01_rb,0.23619e+01_rb,0.20958e+01_rb /)
+      kao(:, 1, 2, 8) = (/ &
+        & 0.18120e+01_rb,0.21101e+01_rb,0.23204e+01_rb,0.24266e+01_rb,0.24657e+01_rb, &
+        & 0.24469e+01_rb,0.23702e+01_rb,0.21931e+01_rb,0.18669e+01_rb /)
+      kao(:, 2, 2, 8) = (/ &
+        & 0.18187e+01_rb,0.21137e+01_rb,0.23188e+01_rb,0.24223e+01_rb,0.24620e+01_rb, &
+        & 0.24436e+01_rb,0.23687e+01_rb,0.21944e+01_rb,0.18726e+01_rb /)
+      kao(:, 3, 2, 8) = (/ &
+        & 0.18356e+01_rb,0.21255e+01_rb,0.23256e+01_rb,0.24232e+01_rb,0.24590e+01_rb, &
+        & 0.24407e+01_rb,0.23674e+01_rb,0.21960e+01_rb,0.18776e+01_rb /)
+      kao(:, 4, 2, 8) = (/ &
+        & 0.18614e+01_rb,0.21447e+01_rb,0.23386e+01_rb,0.24287e+01_rb,0.24595e+01_rb, &
+        & 0.24387e+01_rb,0.23672e+01_rb,0.21970e+01_rb,0.18816e+01_rb /)
+      kao(:, 5, 2, 8) = (/ &
+        & 0.18927e+01_rb,0.21683e+01_rb,0.23579e+01_rb,0.24392e+01_rb,0.24636e+01_rb, &
+        & 0.24407e+01_rb,0.23665e+01_rb,0.21974e+01_rb,0.18864e+01_rb /)
+      kao(:, 1, 3, 8) = (/ &
+        & 0.15702e+01_rb,0.18942e+01_rb,0.20837e+01_rb,0.21854e+01_rb,0.22324e+01_rb, &
+        & 0.22266e+01_rb,0.21649e+01_rb,0.20134e+01_rb,0.16617e+01_rb /)
+      kao(:, 2, 3, 8) = (/ &
+        & 0.15827e+01_rb,0.19038e+01_rb,0.20886e+01_rb,0.21865e+01_rb,0.22329e+01_rb, &
+        & 0.22266e+01_rb,0.21649e+01_rb,0.20167e+01_rb,0.16695e+01_rb /)
+      kao(:, 3, 3, 8) = (/ &
+        & 0.16046e+01_rb,0.19213e+01_rb,0.21019e+01_rb,0.21942e+01_rb,0.22360e+01_rb, &
+        & 0.22271e+01_rb,0.21665e+01_rb,0.20195e+01_rb,0.16762e+01_rb /)
+      kao(:, 4, 3, 8) = (/ &
+        & 0.16329e+01_rb,0.19443e+01_rb,0.21213e+01_rb,0.22070e+01_rb,0.22424e+01_rb, &
+        & 0.22311e+01_rb,0.21683e+01_rb,0.20214e+01_rb,0.16830e+01_rb /)
+      kao(:, 5, 3, 8) = (/ &
+        & 0.16658e+01_rb,0.19717e+01_rb,0.21452e+01_rb,0.22251e+01_rb,0.22530e+01_rb, &
+        & 0.22371e+01_rb,0.21708e+01_rb,0.20238e+01_rb,0.16904e+01_rb /)
+      kao(:, 1, 4, 8) = (/ &
+        & 0.13564e+01_rb,0.16869e+01_rb,0.18550e+01_rb,0.19537e+01_rb,0.20049e+01_rb, &
+        & 0.20085e+01_rb,0.19601e+01_rb,0.18287e+01_rb,0.14756e+01_rb /)
+      kao(:, 2, 4, 8) = (/ &
+        & 0.13720e+01_rb,0.17000e+01_rb,0.18655e+01_rb,0.19607e+01_rb,0.20100e+01_rb, &
+        & 0.20105e+01_rb,0.19622e+01_rb,0.18339e+01_rb,0.14854e+01_rb /)
+      kao(:, 3, 4, 8) = (/ &
+        & 0.13952e+01_rb,0.17204e+01_rb,0.18837e+01_rb,0.19740e+01_rb,0.20182e+01_rb, &
+        & 0.20154e+01_rb,0.19654e+01_rb,0.18384e+01_rb,0.14948e+01_rb /)
+      kao(:, 4, 4, 8) = (/ &
+        & 0.14229e+01_rb,0.17461e+01_rb,0.19072e+01_rb,0.19926e+01_rb,0.20303e+01_rb, &
+        & 0.20234e+01_rb,0.19691e+01_rb,0.18420e+01_rb,0.15040e+01_rb /)
+      kao(:, 5, 4, 8) = (/ &
+        & 0.14534e+01_rb,0.17751e+01_rb,0.19345e+01_rb,0.20154e+01_rb,0.20467e+01_rb, &
+        & 0.20337e+01_rb,0.19742e+01_rb,0.18465e+01_rb,0.15131e+01_rb /)
+      kao(:, 1, 5, 8) = (/ &
+        & 0.11675e+01_rb,0.14906e+01_rb,0.16422e+01_rb,0.17364e+01_rb,0.17875e+01_rb, &
+        & 0.17970e+01_rb,0.17582e+01_rb,0.16459e+01_rb,0.13057e+01_rb /)
+      kao(:, 2, 5, 8) = (/ &
+        & 0.11839e+01_rb,0.15062e+01_rb,0.16573e+01_rb,0.17483e+01_rb,0.17956e+01_rb, &
+        & 0.18020e+01_rb,0.17623e+01_rb,0.16529e+01_rb,0.13176e+01_rb /)
+      kao(:, 3, 5, 8) = (/ &
+        & 0.12061e+01_rb,0.15281e+01_rb,0.16790e+01_rb,0.17660e+01_rb,0.18082e+01_rb, &
+        & 0.18106e+01_rb,0.17678e+01_rb,0.16587e+01_rb,0.13289e+01_rb /)
+      kao(:, 4, 5, 8) = (/ &
+        & 0.12311e+01_rb,0.15549e+01_rb,0.17048e+01_rb,0.17877e+01_rb,0.18250e+01_rb, &
+        & 0.18222e+01_rb,0.17742e+01_rb,0.16644e+01_rb,0.13398e+01_rb /)
+      kao(:, 5, 5, 8) = (/ &
+        & 0.12582e+01_rb,0.15836e+01_rb,0.17338e+01_rb,0.18131e+01_rb,0.18457e+01_rb, &
+        & 0.18359e+01_rb,0.17826e+01_rb,0.16710e+01_rb,0.13507e+01_rb /)
+      kao(:, 1, 6, 8) = (/ &
+        & 0.99981e+00_rb,0.13080e+01_rb,0.14477e+01_rb,0.15356e+01_rb,0.15829e+01_rb, &
+        & 0.15936e+01_rb,0.15636e+01_rb,0.14683e+01_rb,0.11482e+01_rb /)
+      kao(:, 2, 6, 8) = (/ &
+        & 0.10151e+01_rb,0.13251e+01_rb,0.14655e+01_rb,0.15504e+01_rb,0.15941e+01_rb, &
+        & 0.16015e+01_rb,0.15698e+01_rb,0.14767e+01_rb,0.11619e+01_rb /)
+      kao(:, 3, 6, 8) = (/ &
+        & 0.10344e+01_rb,0.13476e+01_rb,0.14887e+01_rb,0.15702e+01_rb,0.16097e+01_rb, &
+        & 0.16130e+01_rb,0.15772e+01_rb,0.14847e+01_rb,0.11743e+01_rb /)
+      kao(:, 4, 6, 8) = (/ &
+        & 0.10560e+01_rb,0.13735e+01_rb,0.15155e+01_rb,0.15939e+01_rb,0.16293e+01_rb, &
+        & 0.16276e+01_rb,0.15870e+01_rb,0.14924e+01_rb,0.11864e+01_rb /)
+      kao(:, 5, 6, 8) = (/ &
+        & 0.10794e+01_rb,0.13996e+01_rb,0.15438e+01_rb,0.16205e+01_rb,0.16521e+01_rb, &
+        & 0.16451e+01_rb,0.15991e+01_rb,0.15003e+01_rb,0.11982e+01_rb /)
+      kao(:, 1, 7, 8) = (/ &
+        & 0.85239e+00_rb,0.11419e+01_rb,0.12714e+01_rb,0.13507e+01_rb,0.13930e+01_rb, &
+        & 0.14039e+01_rb,0.13790e+01_rb,0.12971e+01_rb,0.10034e+01_rb /)
+      kao(:, 2, 7, 8) = (/ &
+        & 0.86542e+00_rb,0.11591e+01_rb,0.12898e+01_rb,0.13670e+01_rb,0.14062e+01_rb, &
+        & 0.14139e+01_rb,0.13871e+01_rb,0.13072e+01_rb,0.10179e+01_rb /)
+      kao(:, 3, 7, 8) = (/ &
+        & 0.88108e+00_rb,0.11809e+01_rb,0.13130e+01_rb,0.13880e+01_rb,0.14241e+01_rb, &
+        & 0.14278e+01_rb,0.13975e+01_rb,0.13172e+01_rb,0.10310e+01_rb /)
+      kao(:, 4, 7, 8) = (/ &
+        & 0.89900e+00_rb,0.12041e+01_rb,0.13390e+01_rb,0.14123e+01_rb,0.14455e+01_rb, &
+        & 0.14453e+01_rb,0.14105e+01_rb,0.13266e+01_rb,0.10434e+01_rb /)
+      kao(:, 5, 7, 8) = (/ &
+        & 0.91862e+00_rb,0.12279e+01_rb,0.13649e+01_rb,0.14386e+01_rb,0.14692e+01_rb, &
+        & 0.14664e+01_rb,0.14254e+01_rb,0.13367e+01_rb,0.10558e+01_rb /)
+      kao(:, 1, 8, 8) = (/ &
+        & 0.72497e+00_rb,0.99201e+00_rb,0.11107e+01_rb,0.11813e+01_rb,0.12195e+01_rb, &
+        & 0.12285e+01_rb,0.12058e+01_rb,0.11359e+01_rb,0.87110e+00_rb /)
+      kao(:, 2, 8, 8) = (/ &
+        & 0.73517e+00_rb,0.10086e+01_rb,0.11285e+01_rb,0.11988e+01_rb,0.12342e+01_rb, &
+        & 0.12405e+01_rb,0.12160e+01_rb,0.11479e+01_rb,0.88568e+00_rb /)
+      kao(:, 3, 8, 8) = (/ &
+        & 0.74752e+00_rb,0.10285e+01_rb,0.11507e+01_rb,0.12198e+01_rb,0.12532e+01_rb, &
+        & 0.12570e+01_rb,0.12289e+01_rb,0.11589e+01_rb,0.89927e+00_rb /)
+      kao(:, 4, 8, 8) = (/ &
+        & 0.76213e+00_rb,0.10489e+01_rb,0.11747e+01_rb,0.12436e+01_rb,0.12757e+01_rb, &
+        & 0.12769e+01_rb,0.12445e+01_rb,0.11700e+01_rb,0.91203e+00_rb /)
+      kao(:, 5, 8, 8) = (/ &
+        & 0.77854e+00_rb,0.10697e+01_rb,0.11980e+01_rb,0.12679e+01_rb,0.13002e+01_rb, &
+        & 0.12994e+01_rb,0.12621e+01_rb,0.11816e+01_rb,0.92392e+00_rb /)
+      kao(:, 1, 9, 8) = (/ &
+        & 0.61682e+00_rb,0.85841e+00_rb,0.96403e+00_rb,0.10272e+01_rb,0.10606e+01_rb, &
+        & 0.10679e+01_rb,0.10472e+01_rb,0.98715e+00_rb,0.74825e+00_rb /)
+      kao(:, 2, 9, 8) = (/ &
+        & 0.62415e+00_rb,0.87401e+00_rb,0.98140e+00_rb,0.10446e+01_rb,0.10763e+01_rb, &
+        & 0.10811e+01_rb,0.10593e+01_rb,0.10003e+01_rb,0.76294e+00_rb /)
+      kao(:, 3, 9, 8) = (/ &
+        & 0.63387e+00_rb,0.89104e+00_rb,0.10022e+01_rb,0.10651e+01_rb,0.10962e+01_rb, &
+        & 0.10997e+01_rb,0.10740e+01_rb,0.10120e+01_rb,0.77659e+00_rb /)
+      kao(:, 4, 9, 8) = (/ &
+        & 0.64542e+00_rb,0.90872e+00_rb,0.10230e+01_rb,0.10878e+01_rb,0.11188e+01_rb, &
+        & 0.11207e+01_rb,0.10911e+01_rb,0.10243e+01_rb,0.78905e+00_rb /)
+      kao(:, 5, 9, 8) = (/ &
+        & 0.65900e+00_rb,0.92674e+00_rb,0.10436e+01_rb,0.11103e+01_rb,0.11424e+01_rb, &
+        & 0.11435e+01_rb,0.11102e+01_rb,0.10375e+01_rb,0.80034e+00_rb /)
+      kao(:, 1,10, 8) = (/ &
+        & 0.52547e+00_rb,0.74220e+00_rb,0.83433e+00_rb,0.88890e+00_rb,0.91741e+00_rb, &
+        & 0.92336e+00_rb,0.90538e+00_rb,0.85311e+00_rb,0.64696e+00_rb /)
+      kao(:, 2,10, 8) = (/ &
+        & 0.53064e+00_rb,0.75604e+00_rb,0.85107e+00_rb,0.90584e+00_rb,0.93361e+00_rb, &
+        & 0.93836e+00_rb,0.91861e+00_rb,0.86626e+00_rb,0.66062e+00_rb /)
+      kao(:, 3,10, 8) = (/ &
+        & 0.53809e+00_rb,0.77037e+00_rb,0.86942e+00_rb,0.92562e+00_rb,0.95409e+00_rb, &
+        & 0.95774e+00_rb,0.93423e+00_rb,0.87871e+00_rb,0.67391e+00_rb /)
+      kao(:, 4,10, 8) = (/ &
+        & 0.54734e+00_rb,0.78576e+00_rb,0.88734e+00_rb,0.94634e+00_rb,0.97611e+00_rb, &
+        & 0.97890e+00_rb,0.95253e+00_rb,0.89191e+00_rb,0.68526e+00_rb /)
+      kao(:, 5,10, 8) = (/ &
+        & 0.55842e+00_rb,0.80129e+00_rb,0.90542e+00_rb,0.96675e+00_rb,0.99781e+00_rb, &
+        & 0.10013e+01_rb,0.97253e+00_rb,0.90597e+00_rb,0.69583e+00_rb /)
+      kao(:, 1,11, 8) = (/ &
+        & 0.44902e+00_rb,0.64641e+00_rb,0.72682e+00_rb,0.77295e+00_rb,0.79679e+00_rb, &
+        & 0.80095e+00_rb,0.78478e+00_rb,0.73880e+00_rb,0.57500e+00_rb /)
+      kao(:, 2,11, 8) = (/ &
+        & 0.45343e+00_rb,0.65819e+00_rb,0.74259e+00_rb,0.79030e+00_rb,0.81509e+00_rb, &
+        & 0.81866e+00_rb,0.79960e+00_rb,0.75137e+00_rb,0.58784e+00_rb /)
+      kao(:, 3,11, 8) = (/ &
+        & 0.45968e+00_rb,0.67094e+00_rb,0.75812e+00_rb,0.80898e+00_rb,0.83522e+00_rb, &
+        & 0.83854e+00_rb,0.81711e+00_rb,0.76461e+00_rb,0.59939e+00_rb /)
+      kao(:, 4,11, 8) = (/ &
+        & 0.46764e+00_rb,0.68418e+00_rb,0.77402e+00_rb,0.82711e+00_rb,0.85518e+00_rb, &
+        & 0.85968e+00_rb,0.83634e+00_rb,0.77859e+00_rb,0.60954e+00_rb /)
+      kao(:, 5,11, 8) = (/ &
+        & 0.47750e+00_rb,0.69798e+00_rb,0.79021e+00_rb,0.84534e+00_rb,0.87480e+00_rb, &
+        & 0.88011e+00_rb,0.85595e+00_rb,0.79269e+00_rb,0.61896e+00_rb /)
+      kao(:, 1,12, 8) = (/ &
+        & 0.38252e+00_rb,0.56123e+00_rb,0.63221e+00_rb,0.67207e+00_rb,0.69191e+00_rb, &
+        & 0.69451e+00_rb,0.67853e+00_rb,0.63671e+00_rb,0.49624e+00_rb /)
+      kao(:, 2,12, 8) = (/ &
+        & 0.38610e+00_rb,0.57152e+00_rb,0.64559e+00_rb,0.68857e+00_rb,0.70992e+00_rb, &
+        & 0.71250e+00_rb,0.69440e+00_rb,0.64948e+00_rb,0.50772e+00_rb /)
+      kao(:, 3,12, 8) = (/ &
+        & 0.39135e+00_rb,0.58251e+00_rb,0.65953e+00_rb,0.70459e+00_rb,0.72793e+00_rb, &
+        & 0.73188e+00_rb,0.71251e+00_rb,0.66314e+00_rb,0.51771e+00_rb /)
+      kao(:, 4,12, 8) = (/ &
+        & 0.39838e+00_rb,0.59406e+00_rb,0.67357e+00_rb,0.72066e+00_rb,0.74570e+00_rb, &
+        & 0.75075e+00_rb,0.73108e+00_rb,0.67696e+00_rb,0.52680e+00_rb /)
+      kao(:, 5,12, 8) = (/ &
+        & 0.40785e+00_rb,0.60628e+00_rb,0.68802e+00_rb,0.73685e+00_rb,0.76342e+00_rb, &
+        & 0.76842e+00_rb,0.74857e+00_rb,0.69135e+00_rb,0.53408e+00_rb /)
+      kao(:, 1,13, 8) = (/ &
+        & 0.32297e+00_rb,0.48556e+00_rb,0.54760e+00_rb,0.58350e+00_rb,0.60079e+00_rb, &
+        & 0.60116e+00_rb,0.58518e+00_rb,0.54699e+00_rb,0.42276e+00_rb /)
+      kao(:, 2,13, 8) = (/ &
+        & 0.32591e+00_rb,0.49445e+00_rb,0.55963e+00_rb,0.59764e+00_rb,0.61654e+00_rb, &
+        & 0.61844e+00_rb,0.60149e+00_rb,0.55973e+00_rb,0.43280e+00_rb /)
+      kao(:, 3,13, 8) = (/ &
+        & 0.33057e+00_rb,0.50405e+00_rb,0.57184e+00_rb,0.61186e+00_rb,0.63239e+00_rb, &
+        & 0.63557e+00_rb,0.61864e+00_rb,0.57305e+00_rb,0.44151e+00_rb /)
+      kao(:, 4,13, 8) = (/ &
+        & 0.33705e+00_rb,0.51427e+00_rb,0.58428e+00_rb,0.62614e+00_rb,0.64825e+00_rb, &
+        & 0.65175e+00_rb,0.63492e+00_rb,0.58689e+00_rb,0.44893e+00_rb /)
+      kao(:, 5,13, 8) = (/ &
+        & 0.34636e+00_rb,0.52544e+00_rb,0.59740e+00_rb,0.64055e+00_rb,0.66342e+00_rb, &
+        & 0.66736e+00_rb,0.65002e+00_rb,0.60055e+00_rb,0.45487e+00_rb /)
+      kao(:, 1, 1, 9) = (/ &
+        & 0.72991e+01_rb,0.69722e+01_rb,0.72863e+01_rb,0.75002e+01_rb,0.75688e+01_rb, &
+        & 0.74622e+01_rb,0.71020e+01_rb,0.65825e+01_rb,0.69144e+01_rb /)
+      kao(:, 2, 1, 9) = (/ &
+        & 0.72210e+01_rb,0.69084e+01_rb,0.72319e+01_rb,0.74567e+01_rb,0.75409e+01_rb, &
+        & 0.74459e+01_rb,0.71001e+01_rb,0.65930e+01_rb,0.69213e+01_rb /)
+      kao(:, 3, 1, 9) = (/ &
+        & 0.71481e+01_rb,0.68475e+01_rb,0.71760e+01_rb,0.74130e+01_rb,0.75097e+01_rb, &
+        & 0.74266e+01_rb,0.70905e+01_rb,0.65992e+01_rb,0.69258e+01_rb /)
+      kao(:, 4, 1, 9) = (/ &
+        & 0.70810e+01_rb,0.67891e+01_rb,0.71222e+01_rb,0.73713e+01_rb,0.74785e+01_rb, &
+        & 0.74023e+01_rb,0.70766e+01_rb,0.66037e+01_rb,0.69303e+01_rb /)
+      kao(:, 5, 1, 9) = (/ &
+        & 0.70205e+01_rb,0.67342e+01_rb,0.70686e+01_rb,0.73258e+01_rb,0.74436e+01_rb, &
+        & 0.73740e+01_rb,0.70585e+01_rb,0.66060e+01_rb,0.69339e+01_rb /)
+      kao(:, 1, 2, 9) = (/ &
+        & 0.68023e+01_rb,0.66845e+01_rb,0.71435e+01_rb,0.74293e+01_rb,0.75528e+01_rb, &
+        & 0.74805e+01_rb,0.71383e+01_rb,0.65087e+01_rb,0.66425e+01_rb /)
+      kao(:, 2, 2, 9) = (/ &
+        & 0.67309e+01_rb,0.66228e+01_rb,0.70899e+01_rb,0.73862e+01_rb,0.75243e+01_rb, &
+        & 0.74671e+01_rb,0.71358e+01_rb,0.65240e+01_rb,0.66588e+01_rb /)
+      kao(:, 3, 2, 9) = (/ &
+        & 0.66680e+01_rb,0.65659e+01_rb,0.70365e+01_rb,0.73443e+01_rb,0.74954e+01_rb, &
+        & 0.74486e+01_rb,0.71260e+01_rb,0.65367e+01_rb,0.66745e+01_rb /)
+      kao(:, 4, 2, 9) = (/ &
+        & 0.66136e+01_rb,0.65139e+01_rb,0.69841e+01_rb,0.73016e+01_rb,0.74627e+01_rb, &
+        & 0.74252e+01_rb,0.71129e+01_rb,0.65455e+01_rb,0.66889e+01_rb /)
+      kao(:, 5, 2, 9) = (/ &
+        & 0.65687e+01_rb,0.64706e+01_rb,0.69322e+01_rb,0.72576e+01_rb,0.74266e+01_rb, &
+        & 0.73967e+01_rb,0.70986e+01_rb,0.65510e+01_rb,0.67011e+01_rb /)
+      kao(:, 1, 3, 9) = (/ &
+        & 0.62554e+01_rb,0.63717e+01_rb,0.69259e+01_rb,0.72750e+01_rb,0.74339e+01_rb, &
+        & 0.73812e+01_rb,0.70638e+01_rb,0.63830e+01_rb,0.62738e+01_rb /)
+      kao(:, 2, 3, 9) = (/ &
+        & 0.61935e+01_rb,0.63130e+01_rb,0.68741e+01_rb,0.72340e+01_rb,0.74081e+01_rb, &
+        & 0.73723e+01_rb,0.70661e+01_rb,0.64055e+01_rb,0.63017e+01_rb /)
+      kao(:, 3, 3, 9) = (/ &
+        & 0.61417e+01_rb,0.62609e+01_rb,0.68234e+01_rb,0.71924e+01_rb,0.73793e+01_rb, &
+        & 0.73559e+01_rb,0.70613e+01_rb,0.64217e+01_rb,0.63259e+01_rb /)
+      kao(:, 4, 3, 9) = (/ &
+        & 0.61027e+01_rb,0.62184e+01_rb,0.67754e+01_rb,0.71518e+01_rb,0.73493e+01_rb, &
+        & 0.73341e+01_rb,0.70537e+01_rb,0.64352e+01_rb,0.63471e+01_rb /)
+      kao(:, 5, 3, 9) = (/ &
+        & 0.60751e+01_rb,0.61846e+01_rb,0.67335e+01_rb,0.71090e+01_rb,0.73143e+01_rb, &
+        & 0.73100e+01_rb,0.70431e+01_rb,0.64459e+01_rb,0.63674e+01_rb /)
+      kao(:, 1, 4, 9) = (/ &
+        & 0.56712e+01_rb,0.60174e+01_rb,0.66407e+01_rb,0.70308e+01_rb,0.72054e+01_rb, &
+        & 0.71700e+01_rb,0.68768e+01_rb,0.62076e+01_rb,0.58601e+01_rb /)
+      kao(:, 2, 4, 9) = (/ &
+        & 0.56177e+01_rb,0.59637e+01_rb,0.65912e+01_rb,0.69914e+01_rb,0.71823e+01_rb, &
+        & 0.71644e+01_rb,0.68840e+01_rb,0.62360e+01_rb,0.58965e+01_rb /)
+      kao(:, 3, 4, 9) = (/ &
+        & 0.55798e+01_rb,0.59204e+01_rb,0.65459e+01_rb,0.69532e+01_rb,0.71589e+01_rb, &
+        & 0.71503e+01_rb,0.68872e+01_rb,0.62571e+01_rb,0.59275e+01_rb /)
+      kao(:, 4, 4, 9) = (/ &
+        & 0.55576e+01_rb,0.58874e+01_rb,0.65057e+01_rb,0.69160e+01_rb,0.71305e+01_rb, &
+        & 0.71327e+01_rb,0.68860e+01_rb,0.62738e+01_rb,0.59560e+01_rb /)
+      kao(:, 5, 4, 9) = (/ &
+        & 0.55509e+01_rb,0.58664e+01_rb,0.64735e+01_rb,0.68799e+01_rb,0.70989e+01_rb, &
+        & 0.71129e+01_rb,0.68803e+01_rb,0.62864e+01_rb,0.59817e+01_rb /)
+      kao(:, 1, 5, 9) = (/ &
+        & 0.50748e+01_rb,0.56236e+01_rb,0.62897e+01_rb,0.66937e+01_rb,0.68773e+01_rb, &
+        & 0.68583e+01_rb,0.65966e+01_rb,0.59739e+01_rb,0.54247e+01_rb /)
+      kao(:, 2, 5, 9) = (/ &
+        & 0.50332e+01_rb,0.55772e+01_rb,0.62435e+01_rb,0.66588e+01_rb,0.68602e+01_rb, &
+        & 0.68553e+01_rb,0.66099e+01_rb,0.60056e+01_rb,0.54668e+01_rb /)
+      kao(:, 3, 5, 9) = (/ &
+        & 0.50094e+01_rb,0.55429e+01_rb,0.62032e+01_rb,0.66264e+01_rb,0.68392e+01_rb, &
+        & 0.68457e+01_rb,0.66198e+01_rb,0.60291e+01_rb,0.55024e+01_rb /)
+      kao(:, 4, 5, 9) = (/ &
+        & 0.50054e+01_rb,0.55221e+01_rb,0.61728e+01_rb,0.65959e+01_rb,0.68138e+01_rb, &
+        & 0.68347e+01_rb,0.66239e+01_rb,0.60504e+01_rb,0.55378e+01_rb /)
+      kao(:, 5, 5, 9) = (/ &
+        & 0.50196e+01_rb,0.55140e+01_rb,0.61502e+01_rb,0.65696e+01_rb,0.67880e+01_rb, &
+        & 0.68224e+01_rb,0.66232e+01_rb,0.60661e+01_rb,0.55660e+01_rb /)
+      kao(:, 1, 6, 9) = (/ &
+        & 0.44929e+01_rb,0.51985e+01_rb,0.58791e+01_rb,0.62757e+01_rb,0.64716e+01_rb, &
+        & 0.64669e+01_rb,0.62368e+01_rb,0.56853e+01_rb,0.49792e+01_rb /)
+      kao(:, 2, 6, 9) = (/ &
+        & 0.44612e+01_rb,0.51596e+01_rb,0.58385e+01_rb,0.62487e+01_rb,0.64570e+01_rb, &
+        & 0.64678e+01_rb,0.62575e+01_rb,0.57196e+01_rb,0.50244e+01_rb /)
+      kao(:, 3, 6, 9) = (/ &
+        & 0.44521e+01_rb,0.51348e+01_rb,0.58071e+01_rb,0.62248e+01_rb,0.64383e+01_rb, &
+        & 0.64639e+01_rb,0.62747e+01_rb,0.57459e+01_rb,0.50676e+01_rb /)
+      kao(:, 4, 6, 9) = (/ &
+        & 0.44651e+01_rb,0.51248e+01_rb,0.57862e+01_rb,0.62029e+01_rb,0.64206e+01_rb, &
+        & 0.64594e+01_rb,0.62829e+01_rb,0.57703e+01_rb,0.51061e+01_rb /)
+      kao(:, 5, 6, 9) = (/ &
+        & 0.44974e+01_rb,0.51321e+01_rb,0.57769e+01_rb,0.61847e+01_rb,0.64045e+01_rb, &
+        & 0.64518e+01_rb,0.62850e+01_rb,0.57880e+01_rb,0.51383e+01_rb /)
+      kao(:, 1, 7, 9) = (/ &
+        & 0.39405e+01_rb,0.47599e+01_rb,0.54183e+01_rb,0.58070e+01_rb,0.60002e+01_rb, &
+        & 0.60137e+01_rb,0.58231e+01_rb,0.53430e+01_rb,0.45395e+01_rb /)
+      kao(:, 2, 7, 9) = (/ &
+        & 0.39200e+01_rb,0.47279e+01_rb,0.53865e+01_rb,0.57866e+01_rb,0.59900e+01_rb, &
+        & 0.60178e+01_rb,0.58493e+01_rb,0.53803e+01_rb,0.45897e+01_rb /)
+      kao(:, 3, 7, 9) = (/ &
+        & 0.39243e+01_rb,0.47128e+01_rb,0.53651e+01_rb,0.57689e+01_rb,0.59779e+01_rb, &
+        & 0.60210e+01_rb,0.58689e+01_rb,0.54093e+01_rb,0.46370e+01_rb /)
+      kao(:, 4, 7, 9) = (/ &
+        & 0.39509e+01_rb,0.47158e+01_rb,0.53566e+01_rb,0.57541e+01_rb,0.59686e+01_rb, &
+        & 0.60221e+01_rb,0.58794e+01_rb,0.54360e+01_rb,0.46801e+01_rb /)
+      kao(:, 5, 7, 9) = (/ &
+        & 0.39997e+01_rb,0.47365e+01_rb,0.53625e+01_rb,0.57480e+01_rb,0.59641e+01_rb, &
+        & 0.60191e+01_rb,0.58864e+01_rb,0.54567e+01_rb,0.47154e+01_rb /)
+      kao(:, 1, 8, 9) = (/ &
+        & 0.34277e+01_rb,0.43224e+01_rb,0.49312e+01_rb,0.53036e+01_rb,0.54930e+01_rb, &
+        & 0.55228e+01_rb,0.53766e+01_rb,0.49651e+01_rb,0.41155e+01_rb /)
+      kao(:, 2, 8, 9) = (/ &
+        & 0.34174e+01_rb,0.42976e+01_rb,0.49104e+01_rb,0.52883e+01_rb,0.54862e+01_rb, &
+        & 0.55322e+01_rb,0.54048e+01_rb,0.50049e+01_rb,0.41706e+01_rb /)
+      kao(:, 3, 8, 9) = (/ &
+        & 0.34328e+01_rb,0.42901e+01_rb,0.49000e+01_rb,0.52782e+01_rb,0.54821e+01_rb, &
+        & 0.55409e+01_rb,0.54257e+01_rb,0.50383e+01_rb,0.42218e+01_rb /)
+      kao(:, 4, 8, 9) = (/ &
+        & 0.34724e+01_rb,0.43054e+01_rb,0.49030e+01_rb,0.52739e+01_rb,0.54825e+01_rb, &
+        & 0.55468e+01_rb,0.54402e+01_rb,0.50678e+01_rb,0.42656e+01_rb /)
+      kao(:, 5, 8, 9) = (/ &
+        & 0.35331e+01_rb,0.43394e+01_rb,0.49199e+01_rb,0.52816e+01_rb,0.54871e+01_rb, &
+        & 0.55512e+01_rb,0.54505e+01_rb,0.50918e+01_rb,0.43035e+01_rb /)
+      kao(:, 1, 9, 9) = (/ &
+        & 0.29643e+01_rb,0.38841e+01_rb,0.44459e+01_rb,0.47885e+01_rb,0.49734e+01_rb, &
+        & 0.50221e+01_rb,0.49131e+01_rb,0.45659e+01_rb,0.37057e+01_rb /)
+      kao(:, 2, 9, 9) = (/ &
+        & 0.29616e+01_rb,0.38662e+01_rb,0.44298e+01_rb,0.47788e+01_rb,0.49743e+01_rb, &
+        & 0.50365e+01_rb,0.49428e+01_rb,0.46088e+01_rb,0.37656e+01_rb /)
+      kao(:, 3, 9, 9) = (/ &
+        & 0.29848e+01_rb,0.38693e+01_rb,0.44274e+01_rb,0.47752e+01_rb,0.49768e+01_rb, &
+        & 0.50477e+01_rb,0.49663e+01_rb,0.46464e+01_rb,0.38194e+01_rb /)
+      kao(:, 4, 9, 9) = (/ &
+        & 0.30329e+01_rb,0.38944e+01_rb,0.44404e+01_rb,0.47824e+01_rb,0.49850e+01_rb, &
+        & 0.50582e+01_rb,0.49851e+01_rb,0.46790e+01_rb,0.38645e+01_rb /)
+      kao(:, 5, 9, 9) = (/ &
+        & 0.31033e+01_rb,0.39395e+01_rb,0.44689e+01_rb,0.48029e+01_rb,0.49990e+01_rb, &
+        & 0.50689e+01_rb,0.50004e+01_rb,0.47030e+01_rb,0.39063e+01_rb /)
+      kao(:, 1,10, 9) = (/ &
+        & 0.25528e+01_rb,0.34541e+01_rb,0.39652e+01_rb,0.42831e+01_rb,0.44659e+01_rb, &
+        & 0.45285e+01_rb,0.44509e+01_rb,0.41587e+01_rb,0.32612e+01_rb /)
+      kao(:, 2,10, 9) = (/ &
+        & 0.25575e+01_rb,0.34458e+01_rb,0.39558e+01_rb,0.42802e+01_rb,0.44723e+01_rb, &
+        & 0.45451e+01_rb,0.44820e+01_rb,0.42051e+01_rb,0.33240e+01_rb /)
+      kao(:, 3,10, 9) = (/ &
+        & 0.25883e+01_rb,0.34607e+01_rb,0.39625e+01_rb,0.42854e+01_rb,0.44811e+01_rb, &
+        & 0.45602e+01_rb,0.45090e+01_rb,0.42460e+01_rb,0.33785e+01_rb /)
+      kao(:, 4,10, 9) = (/ &
+        & 0.26435e+01_rb,0.34963e+01_rb,0.39867e+01_rb,0.43038e+01_rb,0.44956e+01_rb, &
+        & 0.45761e+01_rb,0.45312e+01_rb,0.42799e+01_rb,0.34270e+01_rb /)
+      kao(:, 5,10, 9) = (/ &
+        & 0.27203e+01_rb,0.35517e+01_rb,0.40270e+01_rb,0.43344e+01_rb,0.45189e+01_rb, &
+        & 0.45941e+01_rb,0.45504e+01_rb,0.43065e+01_rb,0.34705e+01_rb /)
+      kao(:, 1,11, 9) = (/ &
+        & 0.21958e+01_rb,0.30498e+01_rb,0.35059e+01_rb,0.38049e+01_rb,0.39876e+01_rb, &
+        & 0.40622e+01_rb,0.40123e+01_rb,0.37729e+01_rb,0.28786e+01_rb /)
+      kao(:, 2,11, 9) = (/ &
+        & 0.22177e+01_rb,0.30598e+01_rb,0.35116e+01_rb,0.38116e+01_rb,0.39989e+01_rb, &
+        & 0.40819e+01_rb,0.40442e+01_rb,0.38191e+01_rb,0.29389e+01_rb /)
+      kao(:, 3,11, 9) = (/ &
+        & 0.22647e+01_rb,0.30907e+01_rb,0.35359e+01_rb,0.38306e+01_rb,0.40167e+01_rb, &
+        & 0.41020e+01_rb,0.40724e+01_rb,0.38578e+01_rb,0.29915e+01_rb /)
+      kao(:, 4,11, 9) = (/ &
+        & 0.23337e+01_rb,0.31425e+01_rb,0.35763e+01_rb,0.38632e+01_rb,0.40437e+01_rb, &
+        & 0.41245e+01_rb,0.40973e+01_rb,0.38902e+01_rb,0.30386e+01_rb /)
+      kao(:, 5,11, 9) = (/ &
+        & 0.24135e+01_rb,0.32120e+01_rb,0.36330e+01_rb,0.39077e+01_rb,0.40797e+01_rb, &
+        & 0.41526e+01_rb,0.41204e+01_rb,0.39195e+01_rb,0.30818e+01_rb /)
+      kao(:, 1,12, 9) = (/ &
+        & 0.18956e+01_rb,0.26861e+01_rb,0.30931e+01_rb,0.33674e+01_rb,0.35425e+01_rb, &
+        & 0.36210e+01_rb,0.35899e+01_rb,0.33921e+01_rb,0.25824e+01_rb /)
+      kao(:, 2,12, 9) = (/ &
+        & 0.19314e+01_rb,0.27108e+01_rb,0.31141e+01_rb,0.33855e+01_rb,0.35620e+01_rb, &
+        & 0.36450e+01_rb,0.36224e+01_rb,0.34362e+01_rb,0.26351e+01_rb /)
+      kao(:, 3,12, 9) = (/ &
+        & 0.19899e+01_rb,0.27565e+01_rb,0.31515e+01_rb,0.34177e+01_rb,0.35909e+01_rb, &
+        & 0.36718e+01_rb,0.36517e+01_rb,0.34743e+01_rb,0.26837e+01_rb /)
+      kao(:, 4,12, 9) = (/ &
+        & 0.20599e+01_rb,0.28211e+01_rb,0.32055e+01_rb,0.34628e+01_rb,0.36291e+01_rb, &
+        & 0.37038e+01_rb,0.36800e+01_rb,0.35081e+01_rb,0.27286e+01_rb /)
+      kao(:, 5,12, 9) = (/ &
+        & 0.21342e+01_rb,0.28994e+01_rb,0.32752e+01_rb,0.35201e+01_rb,0.36745e+01_rb, &
+        & 0.37420e+01_rb,0.37112e+01_rb,0.35392e+01_rb,0.27703e+01_rb /)
+      kao(:, 1,13, 9) = (/ &
+        & 0.16403e+01_rb,0.23651e+01_rb,0.27290e+01_rb,0.29746e+01_rb,0.31326e+01_rb, &
+        & 0.32080e+01_rb,0.31891e+01_rb,0.30274e+01_rb,0.23307e+01_rb /)
+      kao(:, 2,13, 9) = (/ &
+        & 0.16863e+01_rb,0.24025e+01_rb,0.27611e+01_rb,0.30044e+01_rb,0.31618e+01_rb, &
+        & 0.32369e+01_rb,0.32226e+01_rb,0.30700e+01_rb,0.23815e+01_rb /)
+      kao(:, 3,13, 9) = (/ &
+        & 0.17455e+01_rb,0.24598e+01_rb,0.28102e+01_rb,0.30475e+01_rb,0.32007e+01_rb, &
+        & 0.32722e+01_rb,0.32554e+01_rb,0.31073e+01_rb,0.24291e+01_rb /)
+      kao(:, 4,13, 9) = (/ &
+        & 0.18100e+01_rb,0.25311e+01_rb,0.28759e+01_rb,0.31035e+01_rb,0.32472e+01_rb, &
+        & 0.33131e+01_rb,0.32901e+01_rb,0.31417e+01_rb,0.24730e+01_rb /)
+      kao(:, 5,13, 9) = (/ &
+        & 0.18736e+01_rb,0.26085e+01_rb,0.29527e+01_rb,0.31711e+01_rb,0.33027e+01_rb, &
+        & 0.33589e+01_rb,0.33290e+01_rb,0.31763e+01_rb,0.25126e+01_rb /)
+      kao(:, 1, 1,10) = (/ &
+        & 0.19065e+02_rb,0.16899e+02_rb,0.15643e+02_rb,0.15578e+02_rb,0.15043e+02_rb, &
+        & 0.14288e+02_rb,0.13684e+02_rb,0.14703e+02_rb,0.16312e+02_rb /)
+      kao(:, 2, 1,10) = (/ &
+        & 0.18912e+02_rb,0.16761e+02_rb,0.15514e+02_rb,0.15480e+02_rb,0.14973e+02_rb, &
+        & 0.14273e+02_rb,0.13717e+02_rb,0.14749e+02_rb,0.16352e+02_rb /)
+      kao(:, 3, 1,10) = (/ &
+        & 0.18728e+02_rb,0.16596e+02_rb,0.15380e+02_rb,0.15367e+02_rb,0.14915e+02_rb, &
+        & 0.14240e+02_rb,0.13761e+02_rb,0.14772e+02_rb,0.16373e+02_rb /)
+      kao(:, 4, 1,10) = (/ &
+        & 0.18544e+02_rb,0.16434e+02_rb,0.15250e+02_rb,0.15223e+02_rb,0.14839e+02_rb, &
+        & 0.14214e+02_rb,0.13761e+02_rb,0.14749e+02_rb,0.16351e+02_rb /)
+      kao(:, 5, 1,10) = (/ &
+        & 0.18333e+02_rb,0.16256e+02_rb,0.15122e+02_rb,0.15098e+02_rb,0.14749e+02_rb, &
+        & 0.14176e+02_rb,0.13735e+02_rb,0.14720e+02_rb,0.16309e+02_rb /)
+      kao(:, 1, 2,10) = (/ &
+        & 0.19359e+02_rb,0.17148e+02_rb,0.16419e+02_rb,0.16424e+02_rb,0.16006e+02_rb, &
+        & 0.15375e+02_rb,0.14545e+02_rb,0.15202e+02_rb,0.16997e+02_rb /)
+      kao(:, 2, 2,10) = (/ &
+        & 0.19172e+02_rb,0.16980e+02_rb,0.16267e+02_rb,0.16317e+02_rb,0.15911e+02_rb, &
+        & 0.15334e+02_rb,0.14618e+02_rb,0.15283e+02_rb,0.17084e+02_rb /)
+      kao(:, 3, 2,10) = (/ &
+        & 0.18973e+02_rb,0.16804e+02_rb,0.16126e+02_rb,0.16185e+02_rb,0.15827e+02_rb, &
+        & 0.15302e+02_rb,0.14664e+02_rb,0.15280e+02_rb,0.17092e+02_rb /)
+      kao(:, 4, 2,10) = (/ &
+        & 0.18751e+02_rb,0.16617e+02_rb,0.15988e+02_rb,0.16055e+02_rb,0.15738e+02_rb, &
+        & 0.15272e+02_rb,0.14654e+02_rb,0.15237e+02_rb,0.17035e+02_rb /)
+      kao(:, 5, 2,10) = (/ &
+        & 0.18520e+02_rb,0.16417e+02_rb,0.15855e+02_rb,0.15950e+02_rb,0.15639e+02_rb, &
+        & 0.15219e+02_rb,0.14617e+02_rb,0.15192e+02_rb,0.16961e+02_rb /)
+      kao(:, 1, 3,10) = (/ &
+        & 0.19263e+02_rb,0.17075e+02_rb,0.17060e+02_rb,0.17120e+02_rb,0.16883e+02_rb, &
+        & 0.16381e+02_rb,0.15414e+02_rb,0.15455e+02_rb,0.17398e+02_rb /)
+      kao(:, 2, 3,10) = (/ &
+        & 0.19059e+02_rb,0.16894e+02_rb,0.16898e+02_rb,0.17000e+02_rb,0.16773e+02_rb, &
+        & 0.16323e+02_rb,0.15500e+02_rb,0.15491e+02_rb,0.17437e+02_rb /)
+      kao(:, 3, 3,10) = (/ &
+        & 0.18835e+02_rb,0.16708e+02_rb,0.16745e+02_rb,0.16865e+02_rb,0.16669e+02_rb, &
+        & 0.16285e+02_rb,0.15530e+02_rb,0.15496e+02_rb,0.17423e+02_rb /)
+      kao(:, 4, 3,10) = (/ &
+        & 0.18600e+02_rb,0.16513e+02_rb,0.16588e+02_rb,0.16744e+02_rb,0.16560e+02_rb, &
+        & 0.16244e+02_rb,0.15515e+02_rb,0.15476e+02_rb,0.17372e+02_rb /)
+      kao(:, 5, 3,10) = (/ &
+        & 0.18358e+02_rb,0.16312e+02_rb,0.16416e+02_rb,0.16627e+02_rb,0.16462e+02_rb, &
+        & 0.16172e+02_rb,0.15490e+02_rb,0.15433e+02_rb,0.17293e+02_rb /)
+      kao(:, 1, 4,10) = (/ &
+        & 0.18801e+02_rb,0.16888e+02_rb,0.17351e+02_rb,0.17638e+02_rb,0.17654e+02_rb, &
+        & 0.17241e+02_rb,0.16305e+02_rb,0.15458e+02_rb,0.17321e+02_rb /)
+      kao(:, 2, 4,10) = (/ &
+        & 0.18579e+02_rb,0.16692e+02_rb,0.17197e+02_rb,0.17496e+02_rb,0.17520e+02_rb, &
+        & 0.17188e+02_rb,0.16384e+02_rb,0.15486e+02_rb,0.17346e+02_rb /)
+      kao(:, 3, 4,10) = (/ &
+        & 0.18342e+02_rb,0.16488e+02_rb,0.17035e+02_rb,0.17349e+02_rb,0.17380e+02_rb, &
+        & 0.17158e+02_rb,0.16385e+02_rb,0.15526e+02_rb,0.17367e+02_rb /)
+      kao(:, 4, 4,10) = (/ &
+        & 0.18091e+02_rb,0.16279e+02_rb,0.16863e+02_rb,0.17208e+02_rb,0.17266e+02_rb, &
+        & 0.17103e+02_rb,0.16355e+02_rb,0.15560e+02_rb,0.17358e+02_rb /)
+      kao(:, 5, 4,10) = (/ &
+        & 0.17836e+02_rb,0.16059e+02_rb,0.16677e+02_rb,0.17068e+02_rb,0.17166e+02_rb, &
+        & 0.17011e+02_rb,0.16312e+02_rb,0.15578e+02_rb,0.17344e+02_rb /)
+      kao(:, 1, 5,10) = (/ &
+        & 0.17961e+02_rb,0.16659e+02_rb,0.17334e+02_rb,0.17976e+02_rb,0.18171e+02_rb, &
+        & 0.17832e+02_rb,0.16966e+02_rb,0.15432e+02_rb,0.16855e+02_rb /)
+      kao(:, 2, 5,10) = (/ &
+        & 0.17714e+02_rb,0.16442e+02_rb,0.17178e+02_rb,0.17800e+02_rb,0.18030e+02_rb, &
+        & 0.17804e+02_rb,0.17004e+02_rb,0.15487e+02_rb,0.16904e+02_rb /)
+      kao(:, 3, 5,10) = (/ &
+        & 0.17470e+02_rb,0.16231e+02_rb,0.17012e+02_rb,0.17636e+02_rb,0.17902e+02_rb, &
+        & 0.17774e+02_rb,0.16959e+02_rb,0.15590e+02_rb,0.16987e+02_rb /)
+      kao(:, 4, 5,10) = (/ &
+        & 0.17221e+02_rb,0.16002e+02_rb,0.16835e+02_rb,0.17477e+02_rb,0.17804e+02_rb, &
+        & 0.17680e+02_rb,0.16923e+02_rb,0.15646e+02_rb,0.17004e+02_rb /)
+      kao(:, 5, 5,10) = (/ &
+        & 0.16955e+02_rb,0.15778e+02_rb,0.16648e+02_rb,0.17325e+02_rb,0.17709e+02_rb, &
+        & 0.17576e+02_rb,0.16895e+02_rb,0.15664e+02_rb,0.17027e+02_rb /)
+      kao(:, 1, 6,10) = (/ &
+        & 0.16796e+02_rb,0.16241e+02_rb,0.17123e+02_rb,0.18098e+02_rb,0.18345e+02_rb, &
+        & 0.18145e+02_rb,0.17297e+02_rb,0.15317e+02_rb,0.16076e+02_rb /)
+      kao(:, 2, 6,10) = (/ &
+        & 0.16561e+02_rb,0.16019e+02_rb,0.16973e+02_rb,0.17901e+02_rb,0.18253e+02_rb, &
+        & 0.18123e+02_rb,0.17284e+02_rb,0.15411e+02_rb,0.16194e+02_rb /)
+      kao(:, 3, 6,10) = (/ &
+        & 0.16307e+02_rb,0.15790e+02_rb,0.16801e+02_rb,0.17722e+02_rb,0.18189e+02_rb, &
+        & 0.18068e+02_rb,0.17217e+02_rb,0.15556e+02_rb,0.16309e+02_rb /)
+      kao(:, 4, 6,10) = (/ &
+        & 0.16045e+02_rb,0.15571e+02_rb,0.16615e+02_rb,0.17565e+02_rb,0.18113e+02_rb, &
+        & 0.17968e+02_rb,0.17201e+02_rb,0.15625e+02_rb,0.16374e+02_rb /)
+      kao(:, 5, 6,10) = (/ &
+        & 0.15792e+02_rb,0.15350e+02_rb,0.16424e+02_rb,0.17437e+02_rb,0.17997e+02_rb, &
+        & 0.17869e+02_rb,0.17203e+02_rb,0.15664e+02_rb,0.16420e+02_rb /)
+      kao(:, 1, 7,10) = (/ &
+        & 0.15441e+02_rb,0.15555e+02_rb,0.16836e+02_rb,0.17857e+02_rb,0.18265e+02_rb, &
+        & 0.18114e+02_rb,0.17249e+02_rb,0.15143e+02_rb,0.15078e+02_rb /)
+      kao(:, 2, 7,10) = (/ &
+        & 0.15190e+02_rb,0.15341e+02_rb,0.16649e+02_rb,0.17679e+02_rb,0.18211e+02_rb, &
+        & 0.18098e+02_rb,0.17215e+02_rb,0.15278e+02_rb,0.15251e+02_rb /)
+      kao(:, 3, 7,10) = (/ &
+        & 0.14946e+02_rb,0.15122e+02_rb,0.16458e+02_rb,0.17534e+02_rb,0.18165e+02_rb, &
+        & 0.18029e+02_rb,0.17165e+02_rb,0.15443e+02_rb,0.15389e+02_rb /)
+      kao(:, 4, 7,10) = (/ &
+        & 0.14700e+02_rb,0.14908e+02_rb,0.16252e+02_rb,0.17424e+02_rb,0.18072e+02_rb, &
+        & 0.17929e+02_rb,0.17187e+02_rb,0.15518e+02_rb,0.15458e+02_rb /)
+      kao(:, 5, 7,10) = (/ &
+        & 0.14445e+02_rb,0.14710e+02_rb,0.16048e+02_rb,0.17304e+02_rb,0.17932e+02_rb, &
+        & 0.17873e+02_rb,0.17206e+02_rb,0.15573e+02_rb,0.15541e+02_rb /)
+      kao(:, 1, 8,10) = (/ &
+        & 0.13963e+02_rb,0.14641e+02_rb,0.16339e+02_rb,0.17287e+02_rb,0.17853e+02_rb, &
+        & 0.17712e+02_rb,0.16836e+02_rb,0.14867e+02_rb,0.13958e+02_rb /)
+      kao(:, 2, 8,10) = (/ &
+        & 0.13720e+02_rb,0.14441e+02_rb,0.16121e+02_rb,0.17175e+02_rb,0.17806e+02_rb, &
+        & 0.17701e+02_rb,0.16817e+02_rb,0.15013e+02_rb,0.14139e+02_rb /)
+      kao(:, 3, 8,10) = (/ &
+        & 0.13475e+02_rb,0.14253e+02_rb,0.15918e+02_rb,0.17071e+02_rb,0.17741e+02_rb, &
+        & 0.17634e+02_rb,0.16820e+02_rb,0.15155e+02_rb,0.14269e+02_rb /)
+      kao(:, 4, 8,10) = (/ &
+        & 0.13235e+02_rb,0.14056e+02_rb,0.15727e+02_rb,0.16983e+02_rb,0.17630e+02_rb, &
+        & 0.17564e+02_rb,0.16869e+02_rb,0.15238e+02_rb,0.14383e+02_rb /)
+      kao(:, 5, 8,10) = (/ &
+        & 0.13009e+02_rb,0.13855e+02_rb,0.15556e+02_rb,0.16857e+02_rb,0.17508e+02_rb, &
+        & 0.17529e+02_rb,0.16912e+02_rb,0.15302e+02_rb,0.14496e+02_rb /)
+      kao(:, 1, 9,10) = (/ &
+        & 0.12422e+02_rb,0.13743e+02_rb,0.15496e+02_rb,0.16530e+02_rb,0.17068e+02_rb, &
+        & 0.16944e+02_rb,0.16119e+02_rb,0.14360e+02_rb,0.12852e+02_rb /)
+      kao(:, 2, 9,10) = (/ &
+        & 0.12195e+02_rb,0.13543e+02_rb,0.15328e+02_rb,0.16447e+02_rb,0.17000e+02_rb, &
+        & 0.16934e+02_rb,0.16148e+02_rb,0.14484e+02_rb,0.13012e+02_rb /)
+      kao(:, 3, 9,10) = (/ &
+        & 0.11972e+02_rb,0.13354e+02_rb,0.15163e+02_rb,0.16359e+02_rb,0.16940e+02_rb, &
+        & 0.16900e+02_rb,0.16191e+02_rb,0.14599e+02_rb,0.13152e+02_rb /)
+      kao(:, 4, 9,10) = (/ &
+        & 0.11752e+02_rb,0.13166e+02_rb,0.15011e+02_rb,0.16249e+02_rb,0.16842e+02_rb, &
+        & 0.16880e+02_rb,0.16254e+02_rb,0.14688e+02_rb,0.13295e+02_rb /)
+      kao(:, 5, 9,10) = (/ &
+        & 0.11542e+02_rb,0.12972e+02_rb,0.14878e+02_rb,0.16107e+02_rb,0.16750e+02_rb, &
+        & 0.16884e+02_rb,0.16301e+02_rb,0.14790e+02_rb,0.13417e+02_rb /)
+      kao(:, 1,10,10) = (/ &
+        & 0.10883e+02_rb,0.12799e+02_rb,0.14471e+02_rb,0.15523e+02_rb,0.15963e+02_rb, &
+        & 0.15867e+02_rb,0.15188e+02_rb,0.13687e+02_rb,0.11830e+02_rb /)
+      kao(:, 2,10,10) = (/ &
+        & 0.10669e+02_rb,0.12615e+02_rb,0.14351e+02_rb,0.15423e+02_rb,0.15920e+02_rb, &
+        & 0.15883e+02_rb,0.15251e+02_rb,0.13796e+02_rb,0.11997e+02_rb /)
+      kao(:, 3,10,10) = (/ &
+        & 0.10461e+02_rb,0.12417e+02_rb,0.14235e+02_rb,0.15340e+02_rb,0.15857e+02_rb, &
+        & 0.15885e+02_rb,0.15315e+02_rb,0.13895e+02_rb,0.12154e+02_rb /)
+      kao(:, 4,10,10) = (/ &
+        & 0.10271e+02_rb,0.12218e+02_rb,0.14109e+02_rb,0.15234e+02_rb,0.15808e+02_rb, &
+        & 0.15905e+02_rb,0.15383e+02_rb,0.14000e+02_rb,0.12311e+02_rb /)
+      kao(:, 5,10,10) = (/ &
+        & 0.10108e+02_rb,0.12035e+02_rb,0.13977e+02_rb,0.15117e+02_rb,0.15764e+02_rb, &
+        & 0.15927e+02_rb,0.15450e+02_rb,0.14121e+02_rb,0.12430e+02_rb /)
+      kao(:, 1,11,10) = (/ &
+        & 0.93334e+01_rb,0.11625e+02_rb,0.13302e+02_rb,0.14226e+02_rb,0.14663e+02_rb, &
+        & 0.14671e+02_rb,0.14179e+02_rb,0.12958e+02_rb,0.10939e+02_rb /)
+      kao(:, 2,11,10) = (/ &
+        & 0.91435e+01_rb,0.11452e+02_rb,0.13192e+02_rb,0.14163e+02_rb,0.14640e+02_rb, &
+        & 0.14697e+02_rb,0.14256e+02_rb,0.13072e+02_rb,0.11104e+02_rb /)
+      kao(:, 3,11,10) = (/ &
+        & 0.89744e+01_rb,0.11286e+02_rb,0.13068e+02_rb,0.14085e+02_rb,0.14619e+02_rb, &
+        & 0.14728e+02_rb,0.14326e+02_rb,0.13192e+02_rb,0.11276e+02_rb /)
+      kao(:, 4,11,10) = (/ &
+        & 0.88386e+01_rb,0.11134e+02_rb,0.12957e+02_rb,0.14008e+02_rb,0.14602e+02_rb, &
+        & 0.14761e+02_rb,0.14404e+02_rb,0.13322e+02_rb,0.11423e+02_rb /)
+      kao(:, 5,11,10) = (/ &
+        & 0.88280e+01_rb,0.11011e+02_rb,0.12844e+02_rb,0.13942e+02_rb,0.14584e+02_rb, &
+        & 0.14790e+02_rb,0.14494e+02_rb,0.13437e+02_rb,0.11537e+02_rb /)
+      kao(:, 1,12,10) = (/ &
+        & 0.79516e+01_rb,0.10418e+02_rb,0.11985e+02_rb,0.12856e+02_rb,0.13326e+02_rb, &
+        & 0.13448e+02_rb,0.13142e+02_rb,0.12163e+02_rb,0.97408e+01_rb /)
+      kao(:, 2,12,10) = (/ &
+        & 0.78004e+01_rb,0.10286e+02_rb,0.11886e+02_rb,0.12812e+02_rb,0.13327e+02_rb, &
+        & 0.13488e+02_rb,0.13229e+02_rb,0.12301e+02_rb,0.99474e+01_rb /)
+      kao(:, 3,12,10) = (/ &
+        & 0.76847e+01_rb,0.10169e+02_rb,0.11799e+02_rb,0.12768e+02_rb,0.13325e+02_rb, &
+        & 0.13529e+02_rb,0.13323e+02_rb,0.12442e+02_rb,0.10130e+02_rb /)
+      kao(:, 4,12,10) = (/ &
+        & 0.76979e+01_rb,0.10072e+02_rb,0.11716e+02_rb,0.12735e+02_rb,0.13318e+02_rb, &
+        & 0.13569e+02_rb,0.13422e+02_rb,0.12581e+02_rb,0.10272e+02_rb /)
+      kao(:, 5,12,10) = (/ &
+        & 0.78582e+01_rb,0.10030e+02_rb,0.11643e+02_rb,0.12707e+02_rb,0.13325e+02_rb, &
+        & 0.13613e+02_rb,0.13505e+02_rb,0.12682e+02_rb,0.10410e+02_rb /)
+      kao(:, 1,13,10) = (/ &
+        & 0.68077e+01_rb,0.92695e+01_rb,0.10647e+02_rb,0.11513e+02_rb,0.12044e+02_rb, &
+        & 0.12269e+02_rb,0.12092e+02_rb,0.11295e+02_rb,0.85103e+01_rb /)
+      kao(:, 2,13,10) = (/ &
+        & 0.67020e+01_rb,0.91675e+01_rb,0.10585e+02_rb,0.11489e+02_rb,0.12056e+02_rb, &
+        & 0.12329e+02_rb,0.12198e+02_rb,0.11449e+02_rb,0.87111e+01_rb /)
+      kao(:, 3,13,10) = (/ &
+        & 0.67136e+01_rb,0.90765e+01_rb,0.10537e+02_rb,0.11473e+02_rb,0.12065e+02_rb, &
+        & 0.12379e+02_rb,0.12312e+02_rb,0.11602e+02_rb,0.88718e+01_rb /)
+      kao(:, 4,13,10) = (/ &
+        & 0.68715e+01_rb,0.90508e+01_rb,0.10490e+02_rb,0.11454e+02_rb,0.12087e+02_rb, &
+        & 0.12433e+02_rb,0.12413e+02_rb,0.11728e+02_rb,0.90172e+01_rb /)
+      kao(:, 5,13,10) = (/ &
+        & 0.71183e+01_rb,0.91466e+01_rb,0.10479e+02_rb,0.11436e+02_rb,0.12120e+02_rb, &
+        & 0.12489e+02_rb,0.12478e+02_rb,0.11826e+02_rb,0.91846e+01_rb /)
+      kao(:, 1, 1,11) = (/ &
+        & 0.25290e+02_rb,0.22378e+02_rb,0.19682e+02_rb,0.19092e+02_rb,0.18401e+02_rb, &
+        & 0.17330e+02_rb,0.17194e+02_rb,0.19513e+02_rb,0.21546e+02_rb /)
+      kao(:, 2, 1,11) = (/ &
+        & 0.25153e+02_rb,0.22251e+02_rb,0.19574e+02_rb,0.19002e+02_rb,0.18309e+02_rb, &
+        & 0.17346e+02_rb,0.17168e+02_rb,0.19469e+02_rb,0.21516e+02_rb /)
+      kao(:, 3, 1,11) = (/ &
+        & 0.24990e+02_rb,0.22108e+02_rb,0.19457e+02_rb,0.18891e+02_rb,0.18197e+02_rb, &
+        & 0.17344e+02_rb,0.17153e+02_rb,0.19435e+02_rb,0.21516e+02_rb /)
+      kao(:, 4, 1,11) = (/ &
+        & 0.24785e+02_rb,0.21926e+02_rb,0.19312e+02_rb,0.18774e+02_rb,0.18111e+02_rb, &
+        & 0.17300e+02_rb,0.17168e+02_rb,0.19426e+02_rb,0.21524e+02_rb /)
+      kao(:, 5, 1,11) = (/ &
+        & 0.24562e+02_rb,0.21729e+02_rb,0.19145e+02_rb,0.18657e+02_rb,0.18043e+02_rb, &
+        & 0.17239e+02_rb,0.17190e+02_rb,0.19400e+02_rb,0.21517e+02_rb /)
+      kao(:, 1, 2,11) = (/ &
+        & 0.26738e+02_rb,0.23635e+02_rb,0.21164e+02_rb,0.20882e+02_rb,0.20133e+02_rb, &
+        & 0.18952e+02_rb,0.18391e+02_rb,0.20397e+02_rb,0.22752e+02_rb /)
+      kao(:, 2, 2,11) = (/ &
+        & 0.26579e+02_rb,0.23493e+02_rb,0.21026e+02_rb,0.20770e+02_rb,0.20046e+02_rb, &
+        & 0.18924e+02_rb,0.18351e+02_rb,0.20302e+02_rb,0.22673e+02_rb /)
+      kao(:, 3, 2,11) = (/ &
+        & 0.26369e+02_rb,0.23304e+02_rb,0.20847e+02_rb,0.20634e+02_rb,0.19955e+02_rb, &
+        & 0.18867e+02_rb,0.18355e+02_rb,0.20274e+02_rb,0.22643e+02_rb /)
+      kao(:, 4, 2,11) = (/ &
+        & 0.26147e+02_rb,0.23108e+02_rb,0.20663e+02_rb,0.20491e+02_rb,0.19870e+02_rb, &
+        & 0.18790e+02_rb,0.18365e+02_rb,0.20271e+02_rb,0.22638e+02_rb /)
+      kao(:, 5, 2,11) = (/ &
+        & 0.25876e+02_rb,0.22867e+02_rb,0.20457e+02_rb,0.20308e+02_rb,0.19788e+02_rb, &
+        & 0.18723e+02_rb,0.18359e+02_rb,0.20242e+02_rb,0.22612e+02_rb /)
+      kao(:, 1, 3,11) = (/ &
+        & 0.27801e+02_rb,0.24558e+02_rb,0.22625e+02_rb,0.22456e+02_rb,0.21766e+02_rb, &
+        & 0.20723e+02_rb,0.19785e+02_rb,0.21193e+02_rb,0.23811e+02_rb /)
+      kao(:, 2, 3,11) = (/ &
+        & 0.27586e+02_rb,0.24366e+02_rb,0.22444e+02_rb,0.22341e+02_rb,0.21670e+02_rb, &
+        & 0.20651e+02_rb,0.19732e+02_rb,0.21163e+02_rb,0.23778e+02_rb /)
+      kao(:, 3, 3,11) = (/ &
+        & 0.27362e+02_rb,0.24166e+02_rb,0.22236e+02_rb,0.22200e+02_rb,0.21575e+02_rb, &
+        & 0.20557e+02_rb,0.19718e+02_rb,0.21155e+02_rb,0.23783e+02_rb /)
+      kao(:, 4, 3,11) = (/ &
+        & 0.27084e+02_rb,0.23919e+02_rb,0.22013e+02_rb,0.22018e+02_rb,0.21471e+02_rb, &
+        & 0.20457e+02_rb,0.19708e+02_rb,0.21136e+02_rb,0.23769e+02_rb /)
+      kao(:, 5, 3,11) = (/ &
+        & 0.26795e+02_rb,0.23666e+02_rb,0.21794e+02_rb,0.21827e+02_rb,0.21355e+02_rb, &
+        & 0.20374e+02_rb,0.19655e+02_rb,0.21092e+02_rb,0.23724e+02_rb /)
+      kao(:, 1, 4,11) = (/ &
+        & 0.28327e+02_rb,0.25026e+02_rb,0.23910e+02_rb,0.23720e+02_rb,0.23265e+02_rb, &
+        & 0.22396e+02_rb,0.21086e+02_rb,0.21859e+02_rb,0.24649e+02_rb /)
+      kao(:, 2, 4,11) = (/ &
+        & 0.28095e+02_rb,0.24816e+02_rb,0.23683e+02_rb,0.23594e+02_rb,0.23156e+02_rb, &
+        & 0.22304e+02_rb,0.21023e+02_rb,0.21873e+02_rb,0.24674e+02_rb /)
+      kao(:, 3, 4,11) = (/ &
+        & 0.27817e+02_rb,0.24569e+02_rb,0.23454e+02_rb,0.23446e+02_rb,0.23031e+02_rb, &
+        & 0.22182e+02_rb,0.21022e+02_rb,0.21878e+02_rb,0.24680e+02_rb /)
+      kao(:, 4, 4,11) = (/ &
+        & 0.27525e+02_rb,0.24310e+02_rb,0.23220e+02_rb,0.23268e+02_rb,0.22908e+02_rb, &
+        & 0.22090e+02_rb,0.21022e+02_rb,0.21824e+02_rb,0.24620e+02_rb /)
+      kao(:, 5, 4,11) = (/ &
+        & 0.27191e+02_rb,0.24023e+02_rb,0.22996e+02_rb,0.23072e+02_rb,0.22769e+02_rb, &
+        & 0.22022e+02_rb,0.20982e+02_rb,0.21737e+02_rb,0.24514e+02_rb /)
+      kao(:, 1, 5,11) = (/ &
+        & 0.28259e+02_rb,0.25014e+02_rb,0.24907e+02_rb,0.24706e+02_rb,0.24642e+02_rb, &
+        & 0.23918e+02_rb,0.22330e+02_rb,0.22219e+02_rb,0.25091e+02_rb /)
+      kao(:, 2, 5,11) = (/ &
+        & 0.27993e+02_rb,0.24771e+02_rb,0.24666e+02_rb,0.24596e+02_rb,0.24487e+02_rb, &
+        & 0.23818e+02_rb,0.22348e+02_rb,0.22269e+02_rb,0.25149e+02_rb /)
+      kao(:, 3, 5,11) = (/ &
+        & 0.27691e+02_rb,0.24499e+02_rb,0.24421e+02_rb,0.24432e+02_rb,0.24340e+02_rb, &
+        & 0.23705e+02_rb,0.22420e+02_rb,0.22242e+02_rb,0.25109e+02_rb /)
+      kao(:, 4, 5,11) = (/ &
+        & 0.27357e+02_rb,0.24214e+02_rb,0.24178e+02_rb,0.24253e+02_rb,0.24191e+02_rb, &
+        & 0.23642e+02_rb,0.22422e+02_rb,0.22174e+02_rb,0.25030e+02_rb /)
+      kao(:, 5, 5,11) = (/ &
+        & 0.27008e+02_rb,0.23916e+02_rb,0.23935e+02_rb,0.24063e+02_rb,0.24020e+02_rb, &
+        & 0.23572e+02_rb,0.22355e+02_rb,0.22132e+02_rb,0.24957e+02_rb /)
+      kao(:, 1, 6,11) = (/ &
+        & 0.27627e+02_rb,0.24841e+02_rb,0.25414e+02_rb,0.25513e+02_rb,0.25788e+02_rb, &
+        & 0.25161e+02_rb,0.23567e+02_rb,0.22384e+02_rb,0.25091e+02_rb /)
+      kao(:, 2, 6,11) = (/ &
+        & 0.27317e+02_rb,0.24550e+02_rb,0.25165e+02_rb,0.25384e+02_rb,0.25578e+02_rb, &
+        & 0.25083e+02_rb,0.23662e+02_rb,0.22423e+02_rb,0.25102e+02_rb /)
+      kao(:, 3, 6,11) = (/ &
+        & 0.26994e+02_rb,0.24259e+02_rb,0.24926e+02_rb,0.25206e+02_rb,0.25391e+02_rb, &
+        & 0.25015e+02_rb,0.23758e+02_rb,0.22363e+02_rb,0.25025e+02_rb /)
+      kao(:, 4, 6,11) = (/ &
+        & 0.26640e+02_rb,0.23945e+02_rb,0.24692e+02_rb,0.25002e+02_rb,0.25193e+02_rb, &
+        & 0.24973e+02_rb,0.23733e+02_rb,0.22328e+02_rb,0.24965e+02_rb /)
+      kao(:, 5, 6,11) = (/ &
+        & 0.26265e+02_rb,0.23625e+02_rb,0.24446e+02_rb,0.24785e+02_rb,0.25037e+02_rb, &
+        & 0.24906e+02_rb,0.23659e+02_rb,0.22352e+02_rb,0.24965e+02_rb /)
+      kao(:, 1, 7,11) = (/ &
+        & 0.26430e+02_rb,0.24581e+02_rb,0.25439e+02_rb,0.26140e+02_rb,0.26524e+02_rb, &
+        & 0.25974e+02_rb,0.24552e+02_rb,0.22441e+02_rb,0.24498e+02_rb /)
+      kao(:, 2, 7,11) = (/ &
+        & 0.26105e+02_rb,0.24263e+02_rb,0.25225e+02_rb,0.25974e+02_rb,0.26315e+02_rb, &
+        & 0.25946e+02_rb,0.24677e+02_rb,0.22471e+02_rb,0.24490e+02_rb /)
+      kao(:, 3, 7,11) = (/ &
+        & 0.25752e+02_rb,0.23938e+02_rb,0.24996e+02_rb,0.25749e+02_rb,0.26113e+02_rb, &
+        & 0.25925e+02_rb,0.24758e+02_rb,0.22442e+02_rb,0.24454e+02_rb /)
+      kao(:, 4, 7,11) = (/ &
+        & 0.25389e+02_rb,0.23609e+02_rb,0.24761e+02_rb,0.25499e+02_rb,0.25940e+02_rb, &
+        & 0.25913e+02_rb,0.24720e+02_rb,0.22473e+02_rb,0.24475e+02_rb /)
+      kao(:, 5, 7,11) = (/ &
+        & 0.25010e+02_rb,0.23260e+02_rb,0.24510e+02_rb,0.25262e+02_rb,0.25804e+02_rb, &
+        & 0.25811e+02_rb,0.24640e+02_rb,0.22547e+02_rb,0.24534e+02_rb /)
+      kao(:, 1, 8,11) = (/ &
+        & 0.24762e+02_rb,0.23997e+02_rb,0.25209e+02_rb,0.26467e+02_rb,0.26748e+02_rb, &
+        & 0.26365e+02_rb,0.25094e+02_rb,0.22357e+02_rb,0.23406e+02_rb /)
+      kao(:, 2, 8,11) = (/ &
+        & 0.24421e+02_rb,0.23672e+02_rb,0.24981e+02_rb,0.26217e+02_rb,0.26595e+02_rb, &
+        & 0.26375e+02_rb,0.25195e+02_rb,0.22435e+02_rb,0.23453e+02_rb /)
+      kao(:, 3, 8,11) = (/ &
+        & 0.24067e+02_rb,0.23336e+02_rb,0.24754e+02_rb,0.25956e+02_rb,0.26455e+02_rb, &
+        & 0.26361e+02_rb,0.25241e+02_rb,0.22458e+02_rb,0.23475e+02_rb /)
+      kao(:, 4, 8,11) = (/ &
+        & 0.23691e+02_rb,0.22996e+02_rb,0.24502e+02_rb,0.25698e+02_rb,0.26330e+02_rb, &
+        & 0.26343e+02_rb,0.25197e+02_rb,0.22533e+02_rb,0.23575e+02_rb /)
+      kao(:, 5, 8,11) = (/ &
+        & 0.23311e+02_rb,0.22660e+02_rb,0.24234e+02_rb,0.25450e+02_rb,0.26215e+02_rb, &
+        & 0.26209e+02_rb,0.25123e+02_rb,0.22642e+02_rb,0.23709e+02_rb /)
+      kao(:, 1, 9,11) = (/ &
+        & 0.22800e+02_rb,0.23011e+02_rb,0.24799e+02_rb,0.26181e+02_rb,0.26533e+02_rb, &
+        & 0.26301e+02_rb,0.25044e+02_rb,0.22077e+02_rb,0.21907e+02_rb /)
+      kao(:, 2, 9,11) = (/ &
+        & 0.22436e+02_rb,0.22697e+02_rb,0.24546e+02_rb,0.25945e+02_rb,0.26460e+02_rb, &
+        & 0.26314e+02_rb,0.25122e+02_rb,0.22204e+02_rb,0.22029e+02_rb /)
+      kao(:, 3, 9,11) = (/ &
+        & 0.22079e+02_rb,0.22367e+02_rb,0.24295e+02_rb,0.25706e+02_rb,0.26370e+02_rb, &
+        & 0.26288e+02_rb,0.25162e+02_rb,0.22314e+02_rb,0.22151e+02_rb /)
+      kao(:, 4, 9,11) = (/ &
+        & 0.21719e+02_rb,0.22029e+02_rb,0.24017e+02_rb,0.25487e+02_rb,0.26273e+02_rb, &
+        & 0.26217e+02_rb,0.25110e+02_rb,0.22435e+02_rb,0.22334e+02_rb /)
+      kao(:, 5, 9,11) = (/ &
+        & 0.21341e+02_rb,0.21707e+02_rb,0.23702e+02_rb,0.25282e+02_rb,0.26159e+02_rb, &
+        & 0.26086e+02_rb,0.25065e+02_rb,0.22578e+02_rb,0.22506e+02_rb /)
+      kao(:, 1,10,11) = (/ &
+        & 0.20601e+02_rb,0.21678e+02_rb,0.24058e+02_rb,0.25352e+02_rb,0.25931e+02_rb, &
+        & 0.25718e+02_rb,0.24432e+02_rb,0.21607e+02_rb,0.20262e+02_rb /)
+      kao(:, 2,10,11) = (/ &
+        & 0.20254e+02_rb,0.21345e+02_rb,0.23796e+02_rb,0.25183e+02_rb,0.25875e+02_rb, &
+        & 0.25691e+02_rb,0.24508e+02_rb,0.21774e+02_rb,0.20445e+02_rb /)
+      kao(:, 3,10,11) = (/ &
+        & 0.19899e+02_rb,0.21048e+02_rb,0.23494e+02_rb,0.25000e+02_rb,0.25800e+02_rb, &
+        & 0.25662e+02_rb,0.24533e+02_rb,0.21922e+02_rb,0.20638e+02_rb /)
+      kao(:, 4,10,11) = (/ &
+        & 0.19544e+02_rb,0.20766e+02_rb,0.23207e+02_rb,0.24826e+02_rb,0.25686e+02_rb, &
+        & 0.25593e+02_rb,0.24527e+02_rb,0.22085e+02_rb,0.20832e+02_rb /)
+      kao(:, 5,10,11) = (/ &
+        & 0.19193e+02_rb,0.20470e+02_rb,0.22936e+02_rb,0.24673e+02_rb,0.25544e+02_rb, &
+        & 0.25480e+02_rb,0.24537e+02_rb,0.22218e+02_rb,0.21044e+02_rb /)
+      kao(:, 1,11,11) = (/ &
+        & 0.18170e+02_rb,0.20155e+02_rb,0.22721e+02_rb,0.24145e+02_rb,0.24798e+02_rb, &
+        & 0.24559e+02_rb,0.23403e+02_rb,0.20895e+02_rb,0.18740e+02_rb /)
+      kao(:, 2,11,11) = (/ &
+        & 0.17830e+02_rb,0.19860e+02_rb,0.22479e+02_rb,0.24018e+02_rb,0.24721e+02_rb, &
+        & 0.24556e+02_rb,0.23466e+02_rb,0.21069e+02_rb,0.18949e+02_rb /)
+      kao(:, 3,11,11) = (/ &
+        & 0.17496e+02_rb,0.19576e+02_rb,0.22242e+02_rb,0.23886e+02_rb,0.24621e+02_rb, &
+        & 0.24529e+02_rb,0.23525e+02_rb,0.21231e+02_rb,0.19147e+02_rb /)
+      kao(:, 4,11,11) = (/ &
+        & 0.17168e+02_rb,0.19292e+02_rb,0.22005e+02_rb,0.23734e+02_rb,0.24514e+02_rb, &
+        & 0.24476e+02_rb,0.23580e+02_rb,0.21376e+02_rb,0.19368e+02_rb /)
+      kao(:, 5,11,11) = (/ &
+        & 0.16844e+02_rb,0.19013e+02_rb,0.21771e+02_rb,0.23570e+02_rb,0.24390e+02_rb, &
+        & 0.24440e+02_rb,0.23651e+02_rb,0.21517e+02_rb,0.19612e+02_rb /)
+      kao(:, 1,12,11) = (/ &
+        & 0.15762e+02_rb,0.18615e+02_rb,0.21133e+02_rb,0.22639e+02_rb,0.23214e+02_rb, &
+        & 0.23022e+02_rb,0.22060e+02_rb,0.19958e+02_rb,0.17314e+02_rb /)
+      kao(:, 2,12,11) = (/ &
+        & 0.15455e+02_rb,0.18341e+02_rb,0.20944e+02_rb,0.22510e+02_rb,0.23148e+02_rb, &
+        & 0.23042e+02_rb,0.22164e+02_rb,0.20127e+02_rb,0.17543e+02_rb /)
+      kao(:, 3,12,11) = (/ &
+        & 0.15156e+02_rb,0.18068e+02_rb,0.20768e+02_rb,0.22374e+02_rb,0.23084e+02_rb, &
+        & 0.23060e+02_rb,0.22257e+02_rb,0.20275e+02_rb,0.17770e+02_rb /)
+      kao(:, 4,12,11) = (/ &
+        & 0.14865e+02_rb,0.17794e+02_rb,0.20582e+02_rb,0.22237e+02_rb,0.23018e+02_rb, &
+        & 0.23079e+02_rb,0.22350e+02_rb,0.20427e+02_rb,0.18026e+02_rb /)
+      kao(:, 5,12,11) = (/ &
+        & 0.14612e+02_rb,0.17534e+02_rb,0.20399e+02_rb,0.22086e+02_rb,0.22956e+02_rb, &
+        & 0.23112e+02_rb,0.22443e+02_rb,0.20607e+02_rb,0.18280e+02_rb /)
+      kao(:, 1,13,11) = (/ &
+        & 0.13517e+02_rb,0.16914e+02_rb,0.19425e+02_rb,0.20790e+02_rb,0.21367e+02_rb, &
+        & 0.21315e+02_rb,0.20607e+02_rb,0.18871e+02_rb,0.15967e+02_rb /)
+      kao(:, 2,13,11) = (/ &
+        & 0.13249e+02_rb,0.16688e+02_rb,0.19279e+02_rb,0.20693e+02_rb,0.21344e+02_rb, &
+        & 0.21372e+02_rb,0.20725e+02_rb,0.19043e+02_rb,0.16217e+02_rb /)
+      kao(:, 3,13,11) = (/ &
+        & 0.12994e+02_rb,0.16467e+02_rb,0.19108e+02_rb,0.20602e+02_rb,0.21343e+02_rb, &
+        & 0.21436e+02_rb,0.20839e+02_rb,0.19212e+02_rb,0.16494e+02_rb /)
+      kao(:, 4,13,11) = (/ &
+        & 0.12784e+02_rb,0.16250e+02_rb,0.18951e+02_rb,0.20506e+02_rb,0.21335e+02_rb, &
+        & 0.21503e+02_rb,0.20961e+02_rb,0.19415e+02_rb,0.16770e+02_rb /)
+      kao(:, 5,13,11) = (/ &
+        & 0.12734e+02_rb,0.16049e+02_rb,0.18819e+02_rb,0.20438e+02_rb,0.21329e+02_rb, &
+        & 0.21573e+02_rb,0.21104e+02_rb,0.19623e+02_rb,0.16983e+02_rb /)
+      kao(:, 1, 1,12) = (/ &
+        & 0.32549e+02_rb,0.28774e+02_rb,0.25031e+02_rb,0.22926e+02_rb,0.22117e+02_rb, &
+        & 0.21695e+02_rb,0.23417e+02_rb,0.26761e+02_rb,0.29694e+02_rb /)
+      kao(:, 2, 1,12) = (/ &
+        & 0.32499e+02_rb,0.28739e+02_rb,0.25006e+02_rb,0.22835e+02_rb,0.22088e+02_rb, &
+        & 0.21560e+02_rb,0.23253e+02_rb,0.26542e+02_rb,0.29377e+02_rb /)
+      kao(:, 3, 1,12) = (/ &
+        & 0.32407e+02_rb,0.28660e+02_rb,0.24923e+02_rb,0.22714e+02_rb,0.22014e+02_rb, &
+        & 0.21461e+02_rb,0.23148e+02_rb,0.26398e+02_rb,0.29117e+02_rb /)
+      kao(:, 4, 1,12) = (/ &
+        & 0.32260e+02_rb,0.28512e+02_rb,0.24788e+02_rb,0.22590e+02_rb,0.21881e+02_rb, &
+        & 0.21430e+02_rb,0.23071e+02_rb,0.26295e+02_rb,0.28961e+02_rb /)
+      kao(:, 5, 1,12) = (/ &
+        & 0.32039e+02_rb,0.28307e+02_rb,0.24614e+02_rb,0.22444e+02_rb,0.21715e+02_rb, &
+        & 0.21428e+02_rb,0.22979e+02_rb,0.26201e+02_rb,0.28821e+02_rb /)
+      kao(:, 1, 2,12) = (/ &
+        & 0.35951e+02_rb,0.31737e+02_rb,0.27558e+02_rb,0.25749e+02_rb,0.24746e+02_rb, &
+        & 0.23905e+02_rb,0.24887e+02_rb,0.28459e+02_rb,0.31791e+02_rb /)
+      kao(:, 2, 2,12) = (/ &
+        & 0.35862e+02_rb,0.31672e+02_rb,0.27501e+02_rb,0.25642e+02_rb,0.24725e+02_rb, &
+        & 0.23810e+02_rb,0.24734e+02_rb,0.28277e+02_rb,0.31526e+02_rb /)
+      kao(:, 3, 2,12) = (/ &
+        & 0.35737e+02_rb,0.31562e+02_rb,0.27401e+02_rb,0.25522e+02_rb,0.24641e+02_rb, &
+        & 0.23751e+02_rb,0.24591e+02_rb,0.28127e+02_rb,0.31321e+02_rb /)
+      kao(:, 4, 2,12) = (/ &
+        & 0.35534e+02_rb,0.31380e+02_rb,0.27248e+02_rb,0.25379e+02_rb,0.24498e+02_rb, &
+        & 0.23724e+02_rb,0.24485e+02_rb,0.28006e+02_rb,0.31168e+02_rb /)
+      kao(:, 5, 2,12) = (/ &
+        & 0.35285e+02_rb,0.31161e+02_rb,0.27065e+02_rb,0.25222e+02_rb,0.24328e+02_rb, &
+        & 0.23689e+02_rb,0.24406e+02_rb,0.27908e+02_rb,0.31060e+02_rb /)
+      kao(:, 1, 3,12) = (/ &
+        & 0.39089e+02_rb,0.34457e+02_rb,0.30041e+02_rb,0.28724e+02_rb,0.27574e+02_rb, &
+        & 0.26213e+02_rb,0.26498e+02_rb,0.30215e+02_rb,0.33960e+02_rb /)
+      kao(:, 2, 3,12) = (/ &
+        & 0.38998e+02_rb,0.34382e+02_rb,0.29952e+02_rb,0.28581e+02_rb,0.27562e+02_rb, &
+        & 0.26150e+02_rb,0.26309e+02_rb,0.29980e+02_rb,0.33662e+02_rb /)
+      kao(:, 3, 3,12) = (/ &
+        & 0.38820e+02_rb,0.34217e+02_rb,0.29804e+02_rb,0.28424e+02_rb,0.27473e+02_rb, &
+        & 0.26126e+02_rb,0.26176e+02_rb,0.29817e+02_rb,0.33458e+02_rb /)
+      kao(:, 4, 3,12) = (/ &
+        & 0.38594e+02_rb,0.34019e+02_rb,0.29631e+02_rb,0.28264e+02_rb,0.27343e+02_rb, &
+        & 0.26103e+02_rb,0.26063e+02_rb,0.29657e+02_rb,0.33303e+02_rb /)
+      kao(:, 5, 3,12) = (/ &
+        & 0.38290e+02_rb,0.33755e+02_rb,0.29411e+02_rb,0.28094e+02_rb,0.27189e+02_rb, &
+        & 0.26048e+02_rb,0.25993e+02_rb,0.29534e+02_rb,0.33212e+02_rb /)
+      kao(:, 1, 4,12) = (/ &
+        & 0.41846e+02_rb,0.36848e+02_rb,0.32642e+02_rb,0.31752e+02_rb,0.30348e+02_rb, &
+        & 0.28783e+02_rb,0.28429e+02_rb,0.31940e+02_rb,0.36003e+02_rb /)
+      kao(:, 2, 4,12) = (/ &
+        & 0.41706e+02_rb,0.36722e+02_rb,0.32481e+02_rb,0.31589e+02_rb,0.30346e+02_rb, &
+        & 0.28731e+02_rb,0.28275e+02_rb,0.31704e+02_rb,0.35716e+02_rb /)
+      kao(:, 3, 4,12) = (/ &
+        & 0.41502e+02_rb,0.36539e+02_rb,0.32269e+02_rb,0.31417e+02_rb,0.30279e+02_rb, &
+        & 0.28696e+02_rb,0.28151e+02_rb,0.31470e+02_rb,0.35494e+02_rb /)
+      kao(:, 4, 4,12) = (/ &
+        & 0.41217e+02_rb,0.36286e+02_rb,0.32033e+02_rb,0.31226e+02_rb,0.30155e+02_rb, &
+        & 0.28647e+02_rb,0.28039e+02_rb,0.31307e+02_rb,0.35368e+02_rb /)
+      kao(:, 5, 4,12) = (/ &
+        & 0.40876e+02_rb,0.35985e+02_rb,0.31743e+02_rb,0.31019e+02_rb,0.30013e+02_rb, &
+        & 0.28553e+02_rb,0.27986e+02_rb,0.31205e+02_rb,0.35294e+02_rb /)
+      kao(:, 1, 5,12) = (/ &
+        & 0.43995e+02_rb,0.38706e+02_rb,0.35200e+02_rb,0.34595e+02_rb,0.33005e+02_rb, &
+        & 0.31594e+02_rb,0.30727e+02_rb,0.33547e+02_rb,0.37840e+02_rb /)
+      kao(:, 2, 5,12) = (/ &
+        & 0.43792e+02_rb,0.38521e+02_rb,0.34965e+02_rb,0.34413e+02_rb,0.33017e+02_rb, &
+        & 0.31523e+02_rb,0.30579e+02_rb,0.33292e+02_rb,0.37593e+02_rb /)
+      kao(:, 3, 5,12) = (/ &
+        & 0.43530e+02_rb,0.38288e+02_rb,0.34710e+02_rb,0.34215e+02_rb,0.32953e+02_rb, &
+        & 0.31452e+02_rb,0.30422e+02_rb,0.33082e+02_rb,0.37437e+02_rb /)
+      kao(:, 4, 5,12) = (/ &
+        & 0.43192e+02_rb,0.37991e+02_rb,0.34400e+02_rb,0.33987e+02_rb,0.32832e+02_rb, &
+        & 0.31362e+02_rb,0.30341e+02_rb,0.32970e+02_rb,0.37357e+02_rb /)
+      kao(:, 5, 5,12) = (/ &
+        & 0.42817e+02_rb,0.37661e+02_rb,0.34079e+02_rb,0.33725e+02_rb,0.32688e+02_rb, &
+        & 0.31220e+02_rb,0.30292e+02_rb,0.32861e+02_rb,0.37270e+02_rb /)
+      kao(:, 1, 6,12) = (/ &
+        & 0.45371e+02_rb,0.39886e+02_rb,0.37563e+02_rb,0.36985e+02_rb,0.35582e+02_rb, &
+        & 0.34395e+02_rb,0.32997e+02_rb,0.34724e+02_rb,0.39202e+02_rb /)
+      kao(:, 2, 6,12) = (/ &
+        & 0.45116e+02_rb,0.39656e+02_rb,0.37269e+02_rb,0.36794e+02_rb,0.35596e+02_rb, &
+        & 0.34289e+02_rb,0.32827e+02_rb,0.34552e+02_rb,0.39098e+02_rb /)
+      kao(:, 3, 6,12) = (/ &
+        & 0.44794e+02_rb,0.39373e+02_rb,0.36959e+02_rb,0.36575e+02_rb,0.35485e+02_rb, &
+        & 0.34189e+02_rb,0.32665e+02_rb,0.34424e+02_rb,0.39024e+02_rb /)
+      kao(:, 4, 6,12) = (/ &
+        & 0.44425e+02_rb,0.39049e+02_rb,0.36596e+02_rb,0.36352e+02_rb,0.35337e+02_rb, &
+        & 0.34032e+02_rb,0.32591e+02_rb,0.34348e+02_rb,0.38980e+02_rb /)
+      kao(:, 5, 6,12) = (/ &
+        & 0.43987e+02_rb,0.38666e+02_rb,0.36218e+02_rb,0.36087e+02_rb,0.35122e+02_rb, &
+        & 0.33853e+02_rb,0.32536e+02_rb,0.34232e+02_rb,0.38883e+02_rb /)
+      kao(:, 1, 7,12) = (/ &
+        & 0.45829e+02_rb,0.40296e+02_rb,0.39507e+02_rb,0.38911e+02_rb,0.38052e+02_rb, &
+        & 0.37051e+02_rb,0.34926e+02_rb,0.35286e+02_rb,0.39874e+02_rb /)
+      kao(:, 2, 7,12) = (/ &
+        & 0.45523e+02_rb,0.40015e+02_rb,0.39164e+02_rb,0.38712e+02_rb,0.37995e+02_rb, &
+        & 0.36879e+02_rb,0.34780e+02_rb,0.35237e+02_rb,0.39916e+02_rb /)
+      kao(:, 3, 7,12) = (/ &
+        & 0.45143e+02_rb,0.39672e+02_rb,0.38788e+02_rb,0.38484e+02_rb,0.37843e+02_rb, &
+        & 0.36693e+02_rb,0.34674e+02_rb,0.35202e+02_rb,0.39935e+02_rb /)
+      kao(:, 4, 7,12) = (/ &
+        & 0.44711e+02_rb,0.39294e+02_rb,0.38380e+02_rb,0.38261e+02_rb,0.37608e+02_rb, &
+        & 0.36475e+02_rb,0.34639e+02_rb,0.35181e+02_rb,0.39952e+02_rb /)
+      kao(:, 5, 7,12) = (/ &
+        & 0.44229e+02_rb,0.38875e+02_rb,0.37956e+02_rb,0.37973e+02_rb,0.37347e+02_rb, &
+        & 0.36293e+02_rb,0.34620e+02_rb,0.35062e+02_rb,0.39846e+02_rb /)
+      kao(:, 1, 8,12) = (/ &
+        & 0.45335e+02_rb,0.40267e+02_rb,0.40744e+02_rb,0.40443e+02_rb,0.40247e+02_rb, &
+        & 0.39223e+02_rb,0.36584e+02_rb,0.35367e+02_rb,0.39844e+02_rb /)
+      kao(:, 2, 8,12) = (/ &
+        & 0.44955e+02_rb,0.39893e+02_rb,0.40398e+02_rb,0.40216e+02_rb,0.40115e+02_rb, &
+        & 0.39023e+02_rb,0.36582e+02_rb,0.35440e+02_rb,0.40008e+02_rb /)
+      kao(:, 3, 8,12) = (/ &
+        & 0.44529e+02_rb,0.39492e+02_rb,0.39985e+02_rb,0.39979e+02_rb,0.39873e+02_rb, &
+        & 0.38831e+02_rb,0.36587e+02_rb,0.35498e+02_rb,0.40121e+02_rb /)
+      kao(:, 4, 8,12) = (/ &
+        & 0.44061e+02_rb,0.39061e+02_rb,0.39564e+02_rb,0.39715e+02_rb,0.39565e+02_rb, &
+        & 0.38623e+02_rb,0.36619e+02_rb,0.35513e+02_rb,0.40138e+02_rb /)
+      kao(:, 5, 8,12) = (/ &
+        & 0.43543e+02_rb,0.38605e+02_rb,0.39136e+02_rb,0.39437e+02_rb,0.39265e+02_rb, &
+        & 0.38474e+02_rb,0.36637e+02_rb,0.35396e+02_rb,0.40011e+02_rb /)
+      kao(:, 1, 9,12) = (/ &
+        & 0.43909e+02_rb,0.39954e+02_rb,0.41167e+02_rb,0.41626e+02_rb,0.41945e+02_rb, &
+        & 0.40736e+02_rb,0.38077e+02_rb,0.35393e+02_rb,0.39221e+02_rb /)
+      kao(:, 2, 9,12) = (/ &
+        & 0.43480e+02_rb,0.39498e+02_rb,0.40786e+02_rb,0.41338e+02_rb,0.41733e+02_rb, &
+        & 0.40609e+02_rb,0.38181e+02_rb,0.35523e+02_rb,0.39397e+02_rb /)
+      kao(:, 3, 9,12) = (/ &
+        & 0.43002e+02_rb,0.39038e+02_rb,0.40373e+02_rb,0.41094e+02_rb,0.41410e+02_rb, &
+        & 0.40471e+02_rb,0.38255e+02_rb,0.35563e+02_rb,0.39462e+02_rb /)
+      kao(:, 4, 9,12) = (/ &
+        & 0.42479e+02_rb,0.38560e+02_rb,0.39995e+02_rb,0.40806e+02_rb,0.41101e+02_rb, &
+        & 0.40341e+02_rb,0.38344e+02_rb,0.35573e+02_rb,0.39457e+02_rb /)
+      kao(:, 5, 9,12) = (/ &
+        & 0.41942e+02_rb,0.38060e+02_rb,0.39621e+02_rb,0.40473e+02_rb,0.40785e+02_rb, &
+        & 0.40226e+02_rb,0.38369e+02_rb,0.35494e+02_rb,0.39400e+02_rb /)
+      kao(:, 1,10,12) = (/ &
+        & 0.41598e+02_rb,0.39277e+02_rb,0.40964e+02_rb,0.42358e+02_rb,0.42727e+02_rb, &
+        & 0.41605e+02_rb,0.39147e+02_rb,0.35243e+02_rb,0.37755e+02_rb /)
+      kao(:, 2,10,12) = (/ &
+        & 0.41110e+02_rb,0.38804e+02_rb,0.40573e+02_rb,0.42061e+02_rb,0.42547e+02_rb, &
+        & 0.41580e+02_rb,0.39298e+02_rb,0.35367e+02_rb,0.37893e+02_rb /)
+      kao(:, 3,10,12) = (/ &
+        & 0.40607e+02_rb,0.38301e+02_rb,0.40218e+02_rb,0.41774e+02_rb,0.42273e+02_rb, &
+        & 0.41520e+02_rb,0.39406e+02_rb,0.35478e+02_rb,0.38009e+02_rb /)
+      kao(:, 4,10,12) = (/ &
+        & 0.40087e+02_rb,0.37793e+02_rb,0.39835e+02_rb,0.41418e+02_rb,0.42009e+02_rb, &
+        & 0.41467e+02_rb,0.39471e+02_rb,0.35532e+02_rb,0.38110e+02_rb /)
+      kao(:, 5,10,12) = (/ &
+        & 0.39528e+02_rb,0.37276e+02_rb,0.39445e+02_rb,0.41009e+02_rb,0.41755e+02_rb, &
+        & 0.41409e+02_rb,0.39460e+02_rb,0.35536e+02_rb,0.38153e+02_rb /)
+      kao(:, 1,11,12) = (/ &
+        & 0.38423e+02_rb,0.37785e+02_rb,0.40246e+02_rb,0.42229e+02_rb,0.42700e+02_rb, &
+        & 0.41861e+02_rb,0.39594e+02_rb,0.34991e+02_rb,0.35642e+02_rb /)
+      kao(:, 2,11,12) = (/ &
+        & 0.37903e+02_rb,0.37296e+02_rb,0.39841e+02_rb,0.41927e+02_rb,0.42539e+02_rb, &
+        & 0.41882e+02_rb,0.39751e+02_rb,0.35170e+02_rb,0.35883e+02_rb /)
+      kao(:, 3,11,12) = (/ &
+        & 0.37383e+02_rb,0.36809e+02_rb,0.39442e+02_rb,0.41575e+02_rb,0.42342e+02_rb, &
+        & 0.41911e+02_rb,0.39809e+02_rb,0.35335e+02_rb,0.36101e+02_rb /)
+      kao(:, 4,11,12) = (/ &
+        & 0.36841e+02_rb,0.36301e+02_rb,0.39055e+02_rb,0.41199e+02_rb,0.42145e+02_rb, &
+        & 0.41876e+02_rb,0.39854e+02_rb,0.35442e+02_rb,0.36276e+02_rb /)
+      kao(:, 5,11,12) = (/ &
+        & 0.36274e+02_rb,0.35783e+02_rb,0.38676e+02_rb,0.40833e+02_rb,0.41945e+02_rb, &
+        & 0.41808e+02_rb,0.39839e+02_rb,0.35539e+02_rb,0.36455e+02_rb /)
+      kao(:, 1,12,12) = (/ &
+        & 0.34828e+02_rb,0.35770e+02_rb,0.39099e+02_rb,0.41221e+02_rb,0.41958e+02_rb, &
+        & 0.41456e+02_rb,0.39253e+02_rb,0.34461e+02_rb,0.33246e+02_rb /)
+      kao(:, 2,12,12) = (/ &
+        & 0.34304e+02_rb,0.35295e+02_rb,0.38700e+02_rb,0.40987e+02_rb,0.41846e+02_rb, &
+        & 0.41525e+02_rb,0.39359e+02_rb,0.34698e+02_rb,0.33560e+02_rb /)
+      kao(:, 3,12,12) = (/ &
+        & 0.33784e+02_rb,0.34798e+02_rb,0.38311e+02_rb,0.40707e+02_rb,0.41743e+02_rb, &
+        & 0.41505e+02_rb,0.39465e+02_rb,0.34925e+02_rb,0.33882e+02_rb /)
+      kao(:, 4,12,12) = (/ &
+        & 0.33241e+02_rb,0.34324e+02_rb,0.37917e+02_rb,0.40393e+02_rb,0.41632e+02_rb, &
+        & 0.41461e+02_rb,0.39554e+02_rb,0.35117e+02_rb,0.34172e+02_rb /)
+      kao(:, 5,12,12) = (/ &
+        & 0.32710e+02_rb,0.33867e+02_rb,0.37489e+02_rb,0.40112e+02_rb,0.41490e+02_rb, &
+        & 0.41392e+02_rb,0.39590e+02_rb,0.35312e+02_rb,0.34501e+02_rb /)
+      kao(:, 1,13,12) = (/ &
+        & 0.30997e+02_rb,0.33431e+02_rb,0.37385e+02_rb,0.39653e+02_rb,0.40610e+02_rb, &
+        & 0.40222e+02_rb,0.38101e+02_rb,0.33638e+02_rb,0.30845e+02_rb /)
+      kao(:, 2,13,12) = (/ &
+        & 0.30492e+02_rb,0.32952e+02_rb,0.37042e+02_rb,0.39451e+02_rb,0.40583e+02_rb, &
+        & 0.40257e+02_rb,0.38272e+02_rb,0.33940e+02_rb,0.31245e+02_rb /)
+      kao(:, 3,13,12) = (/ &
+        & 0.29985e+02_rb,0.32520e+02_rb,0.36699e+02_rb,0.39235e+02_rb,0.40521e+02_rb, &
+        & 0.40274e+02_rb,0.38447e+02_rb,0.34242e+02_rb,0.31622e+02_rb /)
+      kao(:, 4,13,12) = (/ &
+        & 0.29485e+02_rb,0.32102e+02_rb,0.36327e+02_rb,0.39047e+02_rb,0.40416e+02_rb, &
+        & 0.40299e+02_rb,0.38596e+02_rb,0.34522e+02_rb,0.32000e+02_rb /)
+      kao(:, 5,13,12) = (/ &
+        & 0.29016e+02_rb,0.31685e+02_rb,0.35962e+02_rb,0.38852e+02_rb,0.40311e+02_rb, &
+        & 0.40331e+02_rb,0.38749e+02_rb,0.34802e+02_rb,0.32433e+02_rb /)
+      kao(:, 1, 1,13) = (/ &
+        & 0.40414e+02_rb,0.35530e+02_rb,0.30727e+02_rb,0.26813e+02_rb,0.26498e+02_rb, &
+        & 0.27724e+02_rb,0.32451e+02_rb,0.37296e+02_rb,0.40920e+02_rb /)
+      kao(:, 2, 1,13) = (/ &
+        & 0.40378e+02_rb,0.35506e+02_rb,0.30718e+02_rb,0.26787e+02_rb,0.26360e+02_rb, &
+        & 0.27557e+02_rb,0.32109e+02_rb,0.36904e+02_rb,0.40512e+02_rb /)
+      kao(:, 3, 1,13) = (/ &
+        & 0.40288e+02_rb,0.35435e+02_rb,0.30689e+02_rb,0.26758e+02_rb,0.26294e+02_rb, &
+        & 0.27365e+02_rb,0.31721e+02_rb,0.36448e+02_rb,0.40077e+02_rb /)
+      kao(:, 4, 1,13) = (/ &
+        & 0.40152e+02_rb,0.35337e+02_rb,0.30607e+02_rb,0.26666e+02_rb,0.26235e+02_rb, &
+        & 0.27137e+02_rb,0.31350e+02_rb,0.36026e+02_rb,0.39605e+02_rb /)
+      kao(:, 5, 1,13) = (/ &
+        & 0.39996e+02_rb,0.35209e+02_rb,0.30500e+02_rb,0.26544e+02_rb,0.26176e+02_rb, &
+        & 0.26906e+02_rb,0.31054e+02_rb,0.35676e+02_rb,0.39227e+02_rb /)
+      kao(:, 1, 2,13) = (/ &
+        & 0.46201e+02_rb,0.40631e+02_rb,0.35149e+02_rb,0.31004e+02_rb,0.30338e+02_rb, &
+        & 0.30975e+02_rb,0.35648e+02_rb,0.41032e+02_rb,0.45728e+02_rb /)
+      kao(:, 2, 2,13) = (/ &
+        & 0.46189e+02_rb,0.40616e+02_rb,0.35151e+02_rb,0.30920e+02_rb,0.30181e+02_rb, &
+        & 0.30854e+02_rb,0.35321e+02_rb,0.40601e+02_rb,0.45258e+02_rb /)
+      kao(:, 3, 2,13) = (/ &
+        & 0.46107e+02_rb,0.40548e+02_rb,0.35109e+02_rb,0.30814e+02_rb,0.30060e+02_rb, &
+        & 0.30665e+02_rb,0.34964e+02_rb,0.40159e+02_rb,0.44756e+02_rb /)
+      kao(:, 4, 2,13) = (/ &
+        & 0.45964e+02_rb,0.40421e+02_rb,0.35002e+02_rb,0.30664e+02_rb,0.29967e+02_rb, &
+        & 0.30436e+02_rb,0.34636e+02_rb,0.39757e+02_rb,0.44299e+02_rb /)
+      kao(:, 5, 2,13) = (/ &
+        & 0.45779e+02_rb,0.40257e+02_rb,0.34861e+02_rb,0.30500e+02_rb,0.29866e+02_rb, &
+        & 0.30215e+02_rb,0.34343e+02_rb,0.39421e+02_rb,0.43898e+02_rb /)
+      kao(:, 1, 3,13) = (/ &
+        & 0.52493e+02_rb,0.46184e+02_rb,0.39933e+02_rb,0.35707e+02_rb,0.34547e+02_rb, &
+        & 0.34524e+02_rb,0.38680e+02_rb,0.44581e+02_rb,0.50362e+02_rb /)
+      kao(:, 2, 3,13) = (/ &
+        & 0.52499e+02_rb,0.46190e+02_rb,0.39958e+02_rb,0.35613e+02_rb,0.34342e+02_rb, &
+        & 0.34438e+02_rb,0.38422e+02_rb,0.44213e+02_rb,0.49916e+02_rb /)
+      kao(:, 3, 3,13) = (/ &
+        & 0.52430e+02_rb,0.46141e+02_rb,0.39924e+02_rb,0.35477e+02_rb,0.34202e+02_rb, &
+        & 0.34294e+02_rb,0.38128e+02_rb,0.43804e+02_rb,0.49438e+02_rb /)
+      kao(:, 4, 3,13) = (/ &
+        & 0.52296e+02_rb,0.46021e+02_rb,0.39821e+02_rb,0.35288e+02_rb,0.34063e+02_rb, &
+        & 0.34077e+02_rb,0.37857e+02_rb,0.43466e+02_rb,0.49020e+02_rb /)
+      kao(:, 5, 3,13) = (/ &
+        & 0.52087e+02_rb,0.45828e+02_rb,0.39654e+02_rb,0.35060e+02_rb,0.33889e+02_rb, &
+        & 0.33876e+02_rb,0.37613e+02_rb,0.43182e+02_rb,0.48640e+02_rb /)
+      kao(:, 1, 4,13) = (/ &
+        & 0.58998e+02_rb,0.51894e+02_rb,0.44809e+02_rb,0.40767e+02_rb,0.39196e+02_rb, &
+        & 0.38349e+02_rb,0.41490e+02_rb,0.47820e+02_rb,0.54353e+02_rb /)
+      kao(:, 2, 4,13) = (/ &
+        & 0.58998e+02_rb,0.51911e+02_rb,0.44850e+02_rb,0.40692e+02_rb,0.38973e+02_rb, &
+        & 0.38281e+02_rb,0.41275e+02_rb,0.47479e+02_rb,0.53941e+02_rb /)
+      kao(:, 3, 4,13) = (/ &
+        & 0.58946e+02_rb,0.51872e+02_rb,0.44826e+02_rb,0.40545e+02_rb,0.38818e+02_rb, &
+        & 0.38152e+02_rb,0.41007e+02_rb,0.47151e+02_rb,0.53507e+02_rb /)
+      kao(:, 4, 4,13) = (/ &
+        & 0.58797e+02_rb,0.51741e+02_rb,0.44719e+02_rb,0.40328e+02_rb,0.38647e+02_rb, &
+        & 0.37950e+02_rb,0.40768e+02_rb,0.46871e+02_rb,0.53108e+02_rb /)
+      kao(:, 5, 4,13) = (/ &
+        & 0.58578e+02_rb,0.51549e+02_rb,0.44555e+02_rb,0.40074e+02_rb,0.38419e+02_rb, &
+        & 0.37769e+02_rb,0.40542e+02_rb,0.46625e+02_rb,0.52790e+02_rb /)
+      kao(:, 1, 5,13) = (/ &
+        & 0.65454e+02_rb,0.57537e+02_rb,0.49631e+02_rb,0.46171e+02_rb,0.44093e+02_rb, &
+        & 0.42375e+02_rb,0.44216e+02_rb,0.50929e+02_rb,0.58021e+02_rb /)
+      kao(:, 2, 5,13) = (/ &
+        & 0.65480e+02_rb,0.57591e+02_rb,0.49679e+02_rb,0.46047e+02_rb,0.43916e+02_rb, &
+        & 0.42317e+02_rb,0.44023e+02_rb,0.50643e+02_rb,0.57621e+02_rb /)
+      kao(:, 3, 5,13) = (/ &
+        & 0.65404e+02_rb,0.57534e+02_rb,0.49633e+02_rb,0.45875e+02_rb,0.43765e+02_rb, &
+        & 0.42200e+02_rb,0.43791e+02_rb,0.50364e+02_rb,0.57215e+02_rb /)
+      kao(:, 4, 5,13) = (/ &
+        & 0.65236e+02_rb,0.57393e+02_rb,0.49518e+02_rb,0.45648e+02_rb,0.43596e+02_rb, &
+        & 0.42013e+02_rb,0.43533e+02_rb,0.50076e+02_rb,0.56838e+02_rb /)
+      kao(:, 5, 5,13) = (/ &
+        & 0.64960e+02_rb,0.57155e+02_rb,0.49326e+02_rb,0.45390e+02_rb,0.43392e+02_rb, &
+        & 0.41855e+02_rb,0.43285e+02_rb,0.49832e+02_rb,0.56537e+02_rb /)
+      kao(:, 1, 6,13) = (/ &
+        & 0.71553e+02_rb,0.62830e+02_rb,0.54580e+02_rb,0.51897e+02_rb,0.49249e+02_rb, &
+        & 0.46670e+02_rb,0.47221e+02_rb,0.54164e+02_rb,0.61741e+02_rb /)
+      kao(:, 2, 6,13) = (/ &
+        & 0.71559e+02_rb,0.62858e+02_rb,0.54547e+02_rb,0.51727e+02_rb,0.49114e+02_rb, &
+        & 0.46626e+02_rb,0.47093e+02_rb,0.53907e+02_rb,0.61336e+02_rb /)
+      kao(:, 3, 6,13) = (/ &
+        & 0.71474e+02_rb,0.62796e+02_rb,0.54422e+02_rb,0.51491e+02_rb,0.49001e+02_rb, &
+        & 0.46518e+02_rb,0.46873e+02_rb,0.53599e+02_rb,0.60908e+02_rb /)
+      kao(:, 4, 6,13) = (/ &
+        & 0.71253e+02_rb,0.62620e+02_rb,0.54248e+02_rb,0.51208e+02_rb,0.48873e+02_rb, &
+        & 0.46377e+02_rb,0.46595e+02_rb,0.53243e+02_rb,0.60469e+02_rb /)
+      kao(:, 5, 6,13) = (/ &
+        & 0.70931e+02_rb,0.62354e+02_rb,0.53993e+02_rb,0.50888e+02_rb,0.48719e+02_rb, &
+        & 0.46222e+02_rb,0.46318e+02_rb,0.52946e+02_rb,0.60113e+02_rb /)
+      kao(:, 1, 7,13) = (/ &
+        & 0.76995e+02_rb,0.67566e+02_rb,0.59542e+02_rb,0.57607e+02_rb,0.54461e+02_rb, &
+        & 0.51316e+02_rb,0.50984e+02_rb,0.57643e+02_rb,0.65674e+02_rb /)
+      kao(:, 2, 7,13) = (/ &
+        & 0.76958e+02_rb,0.67548e+02_rb,0.59397e+02_rb,0.57376e+02_rb,0.54369e+02_rb, &
+        & 0.51326e+02_rb,0.50889e+02_rb,0.57330e+02_rb,0.65196e+02_rb /)
+      kao(:, 3, 7,13) = (/ &
+        & 0.76815e+02_rb,0.67433e+02_rb,0.59207e+02_rb,0.57127e+02_rb,0.54289e+02_rb, &
+        & 0.51287e+02_rb,0.50622e+02_rb,0.56904e+02_rb,0.64662e+02_rb /)
+      kao(:, 4, 7,13) = (/ &
+        & 0.76535e+02_rb,0.67198e+02_rb,0.58948e+02_rb,0.56779e+02_rb,0.54224e+02_rb, &
+        & 0.51158e+02_rb,0.50286e+02_rb,0.56459e+02_rb,0.64124e+02_rb /)
+      kao(:, 5, 7,13) = (/ &
+        & 0.76156e+02_rb,0.66876e+02_rb,0.58634e+02_rb,0.56401e+02_rb,0.54096e+02_rb, &
+        & 0.50976e+02_rb,0.49973e+02_rb,0.56129e+02_rb,0.63785e+02_rb /)
+      kao(:, 1, 8,13) = (/ &
+        & 0.81421e+02_rb,0.71418e+02_rb,0.64455e+02_rb,0.62977e+02_rb,0.59643e+02_rb, &
+        & 0.56434e+02_rb,0.55164e+02_rb,0.60758e+02_rb,0.69127e+02_rb /)
+      kao(:, 2, 8,13) = (/ &
+        & 0.81348e+02_rb,0.71366e+02_rb,0.64215e+02_rb,0.62779e+02_rb,0.59582e+02_rb, &
+        & 0.56462e+02_rb,0.55001e+02_rb,0.60346e+02_rb,0.68584e+02_rb /)
+      kao(:, 3, 8,13) = (/ &
+        & 0.81121e+02_rb,0.71177e+02_rb,0.63909e+02_rb,0.62467e+02_rb,0.59508e+02_rb, &
+        & 0.56437e+02_rb,0.54668e+02_rb,0.59898e+02_rb,0.68043e+02_rb /)
+      kao(:, 4, 8,13) = (/ &
+        & 0.80795e+02_rb,0.70901e+02_rb,0.63558e+02_rb,0.62070e+02_rb,0.59450e+02_rb, &
+        & 0.56283e+02_rb,0.54317e+02_rb,0.59470e+02_rb,0.67583e+02_rb /)
+      kao(:, 5, 8,13) = (/ &
+        & 0.80315e+02_rb,0.70489e+02_rb,0.63126e+02_rb,0.61649e+02_rb,0.59298e+02_rb, &
+        & 0.56050e+02_rb,0.54007e+02_rb,0.59179e+02_rb,0.67330e+02_rb /)
+      kao(:, 1, 9,13) = (/ &
+        & 0.84526e+02_rb,0.74114e+02_rb,0.69139e+02_rb,0.67766e+02_rb,0.64700e+02_rb, &
+        & 0.61791e+02_rb,0.59295e+02_rb,0.62885e+02_rb,0.71468e+02_rb /)
+      kao(:, 2, 9,13) = (/ &
+        & 0.84370e+02_rb,0.73989e+02_rb,0.68856e+02_rb,0.67565e+02_rb,0.64593e+02_rb, &
+        & 0.61811e+02_rb,0.59181e+02_rb,0.62666e+02_rb,0.71181e+02_rb /)
+      kao(:, 3, 9,13) = (/ &
+        & 0.84053e+02_rb,0.73721e+02_rb,0.68457e+02_rb,0.67233e+02_rb,0.64524e+02_rb, &
+        & 0.61778e+02_rb,0.58870e+02_rb,0.62384e+02_rb,0.70849e+02_rb /)
+      kao(:, 4, 9,13) = (/ &
+        & 0.83638e+02_rb,0.73367e+02_rb,0.67980e+02_rb,0.66820e+02_rb,0.64408e+02_rb, &
+        & 0.61582e+02_rb,0.58561e+02_rb,0.62049e+02_rb,0.70550e+02_rb /)
+      kao(:, 5, 9,13) = (/ &
+        & 0.83125e+02_rb,0.72897e+02_rb,0.67415e+02_rb,0.66418e+02_rb,0.64238e+02_rb, &
+        & 0.61304e+02_rb,0.58306e+02_rb,0.61805e+02_rb,0.70366e+02_rb /)
+      kao(:, 1,10,13) = (/ &
+        & 0.86099e+02_rb,0.75664e+02_rb,0.73052e+02_rb,0.71784e+02_rb,0.69581e+02_rb, &
+        & 0.67013e+02_rb,0.63079e+02_rb,0.64019e+02_rb,0.72668e+02_rb /)
+      kao(:, 2,10,13) = (/ &
+        & 0.85793e+02_rb,0.75364e+02_rb,0.72621e+02_rb,0.71506e+02_rb,0.69364e+02_rb, &
+        & 0.66992e+02_rb,0.63098e+02_rb,0.64105e+02_rb,0.72738e+02_rb /)
+      kao(:, 3,10,13) = (/ &
+        & 0.85391e+02_rb,0.74983e+02_rb,0.72119e+02_rb,0.71136e+02_rb,0.69201e+02_rb, &
+        & 0.66897e+02_rb,0.62939e+02_rb,0.63964e+02_rb,0.72620e+02_rb /)
+      kao(:, 4,10,13) = (/ &
+        & 0.84829e+02_rb,0.74472e+02_rb,0.71563e+02_rb,0.70768e+02_rb,0.69027e+02_rb, &
+        & 0.66600e+02_rb,0.62760e+02_rb,0.63750e+02_rb,0.72497e+02_rb /)
+      kao(:, 5,10,13) = (/ &
+        & 0.84210e+02_rb,0.73923e+02_rb,0.70963e+02_rb,0.70409e+02_rb,0.68788e+02_rb, &
+        & 0.66285e+02_rb,0.62604e+02_rb,0.63643e+02_rb,0.72460e+02_rb /)
+      kao(:, 1,11,13) = (/ &
+        & 0.85661e+02_rb,0.75976e+02_rb,0.75616e+02_rb,0.74895e+02_rb,0.73796e+02_rb, &
+        & 0.71450e+02_rb,0.66595e+02_rb,0.64723e+02_rb,0.72988e+02_rb /)
+      kao(:, 2,11,13) = (/ &
+        & 0.85212e+02_rb,0.75487e+02_rb,0.75133e+02_rb,0.74528e+02_rb,0.73552e+02_rb, &
+        & 0.71413e+02_rb,0.66688e+02_rb,0.64835e+02_rb,0.73147e+02_rb /)
+      kao(:, 3,11,13) = (/ &
+        & 0.84633e+02_rb,0.74907e+02_rb,0.74581e+02_rb,0.74183e+02_rb,0.73356e+02_rb, &
+        & 0.71194e+02_rb,0.66687e+02_rb,0.64831e+02_rb,0.73292e+02_rb /)
+      kao(:, 4,11,13) = (/ &
+        & 0.83975e+02_rb,0.74286e+02_rb,0.73943e+02_rb,0.73830e+02_rb,0.73088e+02_rb, &
+        & 0.70916e+02_rb,0.66610e+02_rb,0.64920e+02_rb,0.73470e+02_rb /)
+      kao(:, 5,11,13) = (/ &
+        & 0.83246e+02_rb,0.73605e+02_rb,0.73209e+02_rb,0.73386e+02_rb,0.72735e+02_rb, &
+        & 0.70587e+02_rb,0.66523e+02_rb,0.64950e+02_rb,0.73537e+02_rb /)
+      kao(:, 1,12,13) = (/ &
+        & 0.83352e+02_rb,0.75282e+02_rb,0.76925e+02_rb,0.77365e+02_rb,0.77206e+02_rb, &
+        & 0.74850e+02_rb,0.69716e+02_rb,0.65048e+02_rb,0.72181e+02_rb /)
+      kao(:, 2,12,13) = (/ &
+        & 0.82736e+02_rb,0.74597e+02_rb,0.76403e+02_rb,0.76949e+02_rb,0.76971e+02_rb, &
+        & 0.74863e+02_rb,0.69929e+02_rb,0.65330e+02_rb,0.72664e+02_rb /)
+      kao(:, 3,12,13) = (/ &
+        & 0.82054e+02_rb,0.73916e+02_rb,0.75743e+02_rb,0.76528e+02_rb,0.76666e+02_rb, &
+        & 0.74738e+02_rb,0.70022e+02_rb,0.65629e+02_rb,0.73075e+02_rb /)
+      kao(:, 4,12,13) = (/ &
+        & 0.81316e+02_rb,0.73173e+02_rb,0.75030e+02_rb,0.76061e+02_rb,0.76286e+02_rb, &
+        & 0.74512e+02_rb,0.70083e+02_rb,0.65825e+02_rb,0.73345e+02_rb /)
+      kao(:, 5,12,13) = (/ &
+        & 0.80516e+02_rb,0.72378e+02_rb,0.74331e+02_rb,0.75554e+02_rb,0.75785e+02_rb, &
+        & 0.74233e+02_rb,0.70124e+02_rb,0.65929e+02_rb,0.73501e+02_rb /)
+      kao(:, 1,13,13) = (/ &
+        & 0.79408e+02_rb,0.73858e+02_rb,0.76980e+02_rb,0.78869e+02_rb,0.79397e+02_rb, &
+        & 0.77263e+02_rb,0.72263e+02_rb,0.65338e+02_rb,0.70604e+02_rb /)
+      kao(:, 2,13,13) = (/ &
+        & 0.78716e+02_rb,0.73093e+02_rb,0.76326e+02_rb,0.78426e+02_rb,0.79146e+02_rb, &
+        & 0.77408e+02_rb,0.72561e+02_rb,0.65807e+02_rb,0.71230e+02_rb /)
+      kao(:, 3,13,13) = (/ &
+        & 0.77962e+02_rb,0.72251e+02_rb,0.75686e+02_rb,0.77926e+02_rb,0.78867e+02_rb, &
+        & 0.77356e+02_rb,0.72810e+02_rb,0.66137e+02_rb,0.71698e+02_rb /)
+      kao(:, 4,13,13) = (/ &
+        & 0.77177e+02_rb,0.71385e+02_rb,0.75042e+02_rb,0.77408e+02_rb,0.78464e+02_rb, &
+        & 0.77172e+02_rb,0.73006e+02_rb,0.66333e+02_rb,0.72067e+02_rb /)
+      kao(:, 5,13,13) = (/ &
+        & 0.76340e+02_rb,0.70519e+02_rb,0.74355e+02_rb,0.76889e+02_rb,0.78015e+02_rb, &
+        & 0.76988e+02_rb,0.73079e+02_rb,0.66485e+02_rb,0.72407e+02_rb /)
+      kao(:, 1, 1,14) = (/ &
+        & 0.51404e+02_rb,0.45212e+02_rb,0.39078e+02_rb,0.32978e+02_rb,0.31213e+02_rb, &
+        & 0.35689e+02_rb,0.42239e+02_rb,0.49109e+02_rb,0.53555e+02_rb /)
+      kao(:, 2, 1,14) = (/ &
+        & 0.51456e+02_rb,0.45263e+02_rb,0.39085e+02_rb,0.32975e+02_rb,0.31034e+02_rb, &
+        & 0.35237e+02_rb,0.41756e+02_rb,0.48531e+02_rb,0.52877e+02_rb /)
+      kao(:, 3, 1,14) = (/ &
+        & 0.51419e+02_rb,0.45226e+02_rb,0.39013e+02_rb,0.32932e+02_rb,0.30826e+02_rb, &
+        & 0.34871e+02_rb,0.41372e+02_rb,0.48070e+02_rb,0.52319e+02_rb /)
+      kao(:, 4, 1,14) = (/ &
+        & 0.51315e+02_rb,0.45122e+02_rb,0.38925e+02_rb,0.32886e+02_rb,0.30643e+02_rb, &
+        & 0.34565e+02_rb,0.41054e+02_rb,0.47690e+02_rb,0.51853e+02_rb /)
+      kao(:, 5, 1,14) = (/ &
+        & 0.51134e+02_rb,0.44958e+02_rb,0.38787e+02_rb,0.32819e+02_rb,0.30476e+02_rb, &
+        & 0.34330e+02_rb,0.40799e+02_rb,0.47384e+02_rb,0.51513e+02_rb /)
+      kao(:, 1, 2,14) = (/ &
+        & 0.59575e+02_rb,0.52343e+02_rb,0.45168e+02_rb,0.38156e+02_rb,0.36549e+02_rb, &
+        & 0.40798e+02_rb,0.48433e+02_rb,0.56320e+02_rb,0.62499e+02_rb /)
+      kao(:, 2, 2,14) = (/ &
+        & 0.59656e+02_rb,0.52415e+02_rb,0.45196e+02_rb,0.38159e+02_rb,0.36356e+02_rb, &
+        & 0.40232e+02_rb,0.47806e+02_rb,0.55603e+02_rb,0.61692e+02_rb /)
+      kao(:, 3, 2,14) = (/ &
+        & 0.59635e+02_rb,0.52395e+02_rb,0.45146e+02_rb,0.38116e+02_rb,0.36139e+02_rb, &
+        & 0.39805e+02_rb,0.47339e+02_rb,0.55046e+02_rb,0.61068e+02_rb /)
+      kao(:, 4, 2,14) = (/ &
+        & 0.59522e+02_rb,0.52285e+02_rb,0.45051e+02_rb,0.38066e+02_rb,0.35889e+02_rb, &
+        & 0.39470e+02_rb,0.46981e+02_rb,0.54621e+02_rb,0.60592e+02_rb /)
+      kao(:, 5, 2,14) = (/ &
+        & 0.59307e+02_rb,0.52094e+02_rb,0.44889e+02_rb,0.37960e+02_rb,0.35677e+02_rb, &
+        & 0.39216e+02_rb,0.46687e+02_rb,0.54268e+02_rb,0.60193e+02_rb /)
+      kao(:, 1, 3,14) = (/ &
+        & 0.68809e+02_rb,0.60397e+02_rb,0.52025e+02_rb,0.44161e+02_rb,0.42701e+02_rb, &
+        & 0.46667e+02_rb,0.55520e+02_rb,0.64493e+02_rb,0.72669e+02_rb /)
+      kao(:, 2, 3,14) = (/ &
+        & 0.68924e+02_rb,0.60499e+02_rb,0.52098e+02_rb,0.44133e+02_rb,0.42521e+02_rb, &
+        & 0.45966e+02_rb,0.54732e+02_rb,0.63594e+02_rb,0.71705e+02_rb /)
+      kao(:, 3, 3,14) = (/ &
+        & 0.68950e+02_rb,0.60531e+02_rb,0.52101e+02_rb,0.44100e+02_rb,0.42285e+02_rb, &
+        & 0.45418e+02_rb,0.54095e+02_rb,0.62883e+02_rb,0.70919e+02_rb /)
+      kao(:, 4, 3,14) = (/ &
+        & 0.68857e+02_rb,0.60434e+02_rb,0.52014e+02_rb,0.44041e+02_rb,0.42031e+02_rb, &
+        & 0.45005e+02_rb,0.53564e+02_rb,0.62291e+02_rb,0.70247e+02_rb /)
+      kao(:, 5, 3,14) = (/ &
+        & 0.68666e+02_rb,0.60265e+02_rb,0.51871e+02_rb,0.43942e+02_rb,0.41842e+02_rb, &
+        & 0.44690e+02_rb,0.53134e+02_rb,0.61806e+02_rb,0.69686e+02_rb /)
+      kao(:, 1, 4,14) = (/ &
+        & 0.79311e+02_rb,0.69561e+02_rb,0.59881e+02_rb,0.51276e+02_rb,0.49761e+02_rb, &
+        & 0.53193e+02_rb,0.63396e+02_rb,0.73656e+02_rb,0.83652e+02_rb /)
+      kao(:, 2, 4,14) = (/ &
+        & 0.79511e+02_rb,0.69736e+02_rb,0.60019e+02_rb,0.51173e+02_rb,0.49594e+02_rb, &
+        & 0.52466e+02_rb,0.62461e+02_rb,0.72578e+02_rb,0.82426e+02_rb /)
+      kao(:, 3, 4,14) = (/ &
+        & 0.79562e+02_rb,0.69789e+02_rb,0.60043e+02_rb,0.51075e+02_rb,0.49346e+02_rb, &
+        & 0.51847e+02_rb,0.61639e+02_rb,0.71632e+02_rb,0.81369e+02_rb /)
+      kao(:, 4, 4,14) = (/ &
+        & 0.79512e+02_rb,0.69733e+02_rb,0.59989e+02_rb,0.50979e+02_rb,0.49088e+02_rb, &
+        & 0.51360e+02_rb,0.60947e+02_rb,0.70836e+02_rb,0.80468e+02_rb /)
+      kao(:, 5, 4,14) = (/ &
+        & 0.79325e+02_rb,0.69569e+02_rb,0.59854e+02_rb,0.50871e+02_rb,0.48882e+02_rb, &
+        & 0.50991e+02_rb,0.60362e+02_rb,0.70161e+02_rb,0.79701e+02_rb /)
+      kao(:, 1, 5,14) = (/ &
+        & 0.91112e+02_rb,0.79892e+02_rb,0.68781e+02_rb,0.59496e+02_rb,0.57988e+02_rb, &
+        & 0.60415e+02_rb,0.71595e+02_rb,0.83227e+02_rb,0.94854e+02_rb /)
+      kao(:, 2, 5,14) = (/ &
+        & 0.91447e+02_rb,0.80173e+02_rb,0.69023e+02_rb,0.59416e+02_rb,0.57743e+02_rb, &
+        & 0.59673e+02_rb,0.70483e+02_rb,0.81942e+02_rb,0.93394e+02_rb /)
+      kao(:, 3, 5,14) = (/ &
+        & 0.91583e+02_rb,0.80288e+02_rb,0.69106e+02_rb,0.59276e+02_rb,0.57416e+02_rb, &
+        & 0.59035e+02_rb,0.69528e+02_rb,0.80829e+02_rb,0.92131e+02_rb /)
+      kao(:, 4, 5,14) = (/ &
+        & 0.91566e+02_rb,0.80257e+02_rb,0.69073e+02_rb,0.59136e+02_rb,0.57092e+02_rb, &
+        & 0.58527e+02_rb,0.68724e+02_rb,0.79885e+02_rb,0.91053e+02_rb /)
+      kao(:, 5, 5,14) = (/ &
+        & 0.91390e+02_rb,0.80104e+02_rb,0.68937e+02_rb,0.58973e+02_rb,0.56776e+02_rb, &
+        & 0.58107e+02_rb,0.68079e+02_rb,0.79072e+02_rb,0.90122e+02_rb /)
+      kao(:, 1, 6,14) = (/ &
+        & 0.10419e+03_rb,0.91394e+02_rb,0.78656e+02_rb,0.68916e+02_rb,0.67128e+02_rb, &
+        & 0.68461e+02_rb,0.79894e+02_rb,0.92926e+02_rb,0.10607e+03_rb /)
+      kao(:, 2, 6,14) = (/ &
+        & 0.10463e+03_rb,0.91782e+02_rb,0.79002e+02_rb,0.68819e+02_rb,0.66845e+02_rb, &
+        & 0.67738e+02_rb,0.78628e+02_rb,0.91458e+02_rb,0.10440e+03_rb /)
+      kao(:, 3, 6,14) = (/ &
+        & 0.10486e+03_rb,0.91970e+02_rb,0.79156e+02_rb,0.68698e+02_rb,0.66470e+02_rb, &
+        & 0.67066e+02_rb,0.77628e+02_rb,0.90242e+02_rb,0.10302e+03_rb /)
+      kao(:, 4, 6,14) = (/ &
+        & 0.10494e+03_rb,0.92025e+02_rb,0.79207e+02_rb,0.68555e+02_rb,0.66081e+02_rb, &
+        & 0.66543e+02_rb,0.76843e+02_rb,0.89253e+02_rb,0.10189e+03_rb /)
+      kao(:, 5, 6,14) = (/ &
+        & 0.10481e+03_rb,0.91892e+02_rb,0.79105e+02_rb,0.68344e+02_rb,0.65668e+02_rb, &
+        & 0.66109e+02_rb,0.76190e+02_rb,0.88386e+02_rb,0.10090e+03_rb /)
+      kao(:, 1, 7,14) = (/ &
+        & 0.11850e+03_rb,0.10394e+03_rb,0.89423e+02_rb,0.79509e+02_rb,0.77207e+02_rb, &
+        & 0.77196e+02_rb,0.87943e+02_rb,0.10236e+03_rb,0.11694e+03_rb /)
+      kao(:, 2, 7,14) = (/ &
+        & 0.11905e+03_rb,0.10443e+03_rb,0.89864e+02_rb,0.79528e+02_rb,0.76905e+02_rb, &
+        & 0.76494e+02_rb,0.86650e+02_rb,0.10078e+03_rb,0.11515e+03_rb /)
+      kao(:, 3, 7,14) = (/ &
+        & 0.11939e+03_rb,0.10473e+03_rb,0.90115e+02_rb,0.79401e+02_rb,0.76523e+02_rb, &
+        & 0.75853e+02_rb,0.85715e+02_rb,0.99595e+02_rb,0.11380e+03_rb /)
+      kao(:, 4, 7,14) = (/ &
+        & 0.11951e+03_rb,0.10484e+03_rb,0.90222e+02_rb,0.79220e+02_rb,0.76090e+02_rb, &
+        & 0.75405e+02_rb,0.85022e+02_rb,0.98653e+02_rb,0.11271e+03_rb /)
+      kao(:, 5, 7,14) = (/ &
+        & 0.11942e+03_rb,0.10476e+03_rb,0.90169e+02_rb,0.78976e+02_rb,0.75607e+02_rb, &
+        & 0.75018e+02_rb,0.84352e+02_rb,0.97783e+02_rb,0.11167e+03_rb /)
+      kao(:, 1, 8,14) = (/ &
+        & 0.13381e+03_rb,0.11735e+03_rb,0.10095e+03_rb,0.91226e+02_rb,0.88188e+02_rb, &
+        & 0.86379e+02_rb,0.95828e+02_rb,0.11155e+03_rb,0.12755e+03_rb /)
+      kao(:, 2, 8,14) = (/ &
+        & 0.13446e+03_rb,0.11794e+03_rb,0.10145e+03_rb,0.91271e+02_rb,0.87947e+02_rb, &
+        & 0.85766e+02_rb,0.94652e+02_rb,0.11006e+03_rb,0.12583e+03_rb /)
+      kao(:, 3, 8,14) = (/ &
+        & 0.13492e+03_rb,0.11834e+03_rb,0.10180e+03_rb,0.91233e+02_rb,0.87619e+02_rb, &
+        & 0.85228e+02_rb,0.93811e+02_rb,0.10892e+03_rb,0.12452e+03_rb /)
+      kao(:, 4, 8,14) = (/ &
+        & 0.13505e+03_rb,0.11846e+03_rb,0.10192e+03_rb,0.91090e+02_rb,0.87150e+02_rb, &
+        & 0.84887e+02_rb,0.93111e+02_rb,0.10797e+03_rb,0.12337e+03_rb /)
+      kao(:, 5, 8,14) = (/ &
+        & 0.13500e+03_rb,0.11844e+03_rb,0.10192e+03_rb,0.90797e+02_rb,0.86626e+02_rb, &
+        & 0.84570e+02_rb,0.92421e+02_rb,0.10710e+03_rb,0.12226e+03_rb /)
+      kao(:, 1, 9,14) = (/ &
+        & 0.14952e+03_rb,0.13110e+03_rb,0.11316e+03_rb,0.10410e+03_rb,0.99927e+02_rb, &
+        & 0.96074e+02_rb,0.10374e+03_rb,0.12067e+03_rb,0.13801e+03_rb /)
+      kao(:, 2, 9,14) = (/ &
+        & 0.15028e+03_rb,0.13179e+03_rb,0.11360e+03_rb,0.10415e+03_rb,0.99870e+02_rb, &
+        & 0.95589e+02_rb,0.10257e+03_rb,0.11912e+03_rb,0.13623e+03_rb /)
+      kao(:, 3, 9,14) = (/ &
+        & 0.15082e+03_rb,0.13227e+03_rb,0.11392e+03_rb,0.10405e+03_rb,0.99571e+02_rb, &
+        & 0.95189e+02_rb,0.10182e+03_rb,0.11803e+03_rb,0.13496e+03_rb /)
+      kao(:, 4, 9,14) = (/ &
+        & 0.15103e+03_rb,0.13247e+03_rb,0.11403e+03_rb,0.10385e+03_rb,0.99126e+02_rb, &
+        & 0.94980e+02_rb,0.10122e+03_rb,0.11720e+03_rb,0.13388e+03_rb /)
+      kao(:, 5, 9,14) = (/ &
+        & 0.15094e+03_rb,0.13245e+03_rb,0.11401e+03_rb,0.10348e+03_rb,0.98550e+02_rb, &
+        & 0.94746e+02_rb,0.10055e+03_rb,0.11636e+03_rb,0.13276e+03_rb /)
+      kao(:, 1,10,14) = (/ &
+        & 0.16524e+03_rb,0.14486e+03_rb,0.12594e+03_rb,0.11785e+03_rb,0.11225e+03_rb, &
+        & 0.10654e+03_rb,0.11202e+03_rb,0.12965e+03_rb,0.14829e+03_rb /)
+      kao(:, 2,10,14) = (/ &
+        & 0.16610e+03_rb,0.14564e+03_rb,0.12636e+03_rb,0.11787e+03_rb,0.11233e+03_rb, &
+        & 0.10630e+03_rb,0.11093e+03_rb,0.12811e+03_rb,0.14653e+03_rb /)
+      kao(:, 3,10,14) = (/ &
+        & 0.16659e+03_rb,0.14608e+03_rb,0.12656e+03_rb,0.11769e+03_rb,0.11214e+03_rb, &
+        & 0.10609e+03_rb,0.11032e+03_rb,0.12713e+03_rb,0.14532e+03_rb /)
+      kao(:, 4,10,14) = (/ &
+        & 0.16681e+03_rb,0.14630e+03_rb,0.12659e+03_rb,0.11736e+03_rb,0.11169e+03_rb, &
+        & 0.10597e+03_rb,0.10973e+03_rb,0.12629e+03_rb,0.14416e+03_rb /)
+      kao(:, 5,10,14) = (/ &
+        & 0.16671e+03_rb,0.14623e+03_rb,0.12639e+03_rb,0.11688e+03_rb,0.11111e+03_rb, &
+        & 0.10576e+03_rb,0.10909e+03_rb,0.12542e+03_rb,0.14303e+03_rb /)
+      kao(:, 1,11,14) = (/ &
+        & 0.18065e+03_rb,0.15832e+03_rb,0.13903e+03_rb,0.13201e+03_rb,0.12519e+03_rb, &
+        & 0.11820e+03_rb,0.12047e+03_rb,0.13760e+03_rb,0.15739e+03_rb /)
+      kao(:, 2,11,14) = (/ &
+        & 0.18131e+03_rb,0.15893e+03_rb,0.13916e+03_rb,0.13183e+03_rb,0.12520e+03_rb, &
+        & 0.11800e+03_rb,0.11979e+03_rb,0.13660e+03_rb,0.15612e+03_rb /)
+      kao(:, 3,11,14) = (/ &
+        & 0.18162e+03_rb,0.15925e+03_rb,0.13912e+03_rb,0.13145e+03_rb,0.12487e+03_rb, &
+        & 0.11789e+03_rb,0.11922e+03_rb,0.13566e+03_rb,0.15481e+03_rb /)
+      kao(:, 4,11,14) = (/ &
+        & 0.18161e+03_rb,0.15927e+03_rb,0.13888e+03_rb,0.13091e+03_rb,0.12432e+03_rb, &
+        & 0.11770e+03_rb,0.11858e+03_rb,0.13462e+03_rb,0.15350e+03_rb /)
+      kao(:, 5,11,14) = (/ &
+        & 0.18129e+03_rb,0.15901e+03_rb,0.13849e+03_rb,0.13027e+03_rb,0.12371e+03_rb, &
+        & 0.11738e+03_rb,0.11800e+03_rb,0.13378e+03_rb,0.15248e+03_rb /)
+      kao(:, 1,12,14) = (/ &
+        & 0.19439e+03_rb,0.17031e+03_rb,0.15181e+03_rb,0.14577e+03_rb,0.13828e+03_rb, &
+        & 0.13070e+03_rb,0.12972e+03_rb,0.14546e+03_rb,0.16618e+03_rb /)
+      kao(:, 2,12,14) = (/ &
+        & 0.19483e+03_rb,0.17073e+03_rb,0.15156e+03_rb,0.14543e+03_rb,0.13812e+03_rb, &
+        & 0.13043e+03_rb,0.12913e+03_rb,0.14443e+03_rb,0.16476e+03_rb /)
+      kao(:, 3,12,14) = (/ &
+        & 0.19494e+03_rb,0.17087e+03_rb,0.15124e+03_rb,0.14493e+03_rb,0.13771e+03_rb, &
+        & 0.13020e+03_rb,0.12847e+03_rb,0.14330e+03_rb,0.16335e+03_rb /)
+      kao(:, 4,12,14) = (/ &
+        & 0.19474e+03_rb,0.17073e+03_rb,0.15078e+03_rb,0.14425e+03_rb,0.13718e+03_rb, &
+        & 0.12986e+03_rb,0.12779e+03_rb,0.14240e+03_rb,0.16229e+03_rb /)
+      kao(:, 5,12,14) = (/ &
+        & 0.19420e+03_rb,0.17029e+03_rb,0.15011e+03_rb,0.14337e+03_rb,0.13666e+03_rb, &
+        & 0.12942e+03_rb,0.12725e+03_rb,0.14171e+03_rb,0.16147e+03_rb /)
+      kao(:, 1,13,14) = (/ &
+        & 0.20562e+03_rb,0.18014e+03_rb,0.16395e+03_rb,0.15885e+03_rb,0.15131e+03_rb, &
+        & 0.14344e+03_rb,0.13928e+03_rb,0.15201e+03_rb,0.17336e+03_rb /)
+      kao(:, 2,13,14) = (/ &
+        & 0.20583e+03_rb,0.18034e+03_rb,0.16346e+03_rb,0.15844e+03_rb,0.15102e+03_rb, &
+        & 0.14310e+03_rb,0.13867e+03_rb,0.15101e+03_rb,0.17210e+03_rb /)
+      kao(:, 3,13,14) = (/ &
+        & 0.20579e+03_rb,0.18034e+03_rb,0.16282e+03_rb,0.15782e+03_rb,0.15051e+03_rb, &
+        & 0.14271e+03_rb,0.13803e+03_rb,0.15026e+03_rb,0.17119e+03_rb /)
+      kao(:, 4,13,14) = (/ &
+        & 0.20539e+03_rb,0.18002e+03_rb,0.16199e+03_rb,0.15696e+03_rb,0.15005e+03_rb, &
+        & 0.14226e+03_rb,0.13746e+03_rb,0.14977e+03_rb,0.17061e+03_rb /)
+      kao(:, 5,13,14) = (/ &
+        & 0.20471e+03_rb,0.17946e+03_rb,0.16101e+03_rb,0.15580e+03_rb,0.14942e+03_rb, &
+        & 0.14163e+03_rb,0.13685e+03_rb,0.14922e+03_rb,0.16998e+03_rb /)
+      kao(:, 1, 1,15) = (/ &
+        & 0.61110e+02_rb,0.53539e+02_rb,0.46005e+02_rb,0.38902e+02_rb,0.35970e+02_rb, &
+        & 0.43986e+02_rb,0.52608e+02_rb,0.61157e+02_rb,0.65911e+02_rb /)
+      kao(:, 2, 1,15) = (/ &
+        & 0.61315e+02_rb,0.53717e+02_rb,0.46235e+02_rb,0.39083e+02_rb,0.35687e+02_rb, &
+        & 0.43381e+02_rb,0.51871e+02_rb,0.60290e+02_rb,0.64963e+02_rb /)
+      kao(:, 3, 1,15) = (/ &
+        & 0.61422e+02_rb,0.53821e+02_rb,0.46411e+02_rb,0.39188e+02_rb,0.35438e+02_rb, &
+        & 0.42839e+02_rb,0.51205e+02_rb,0.59514e+02_rb,0.64157e+02_rb /)
+      kao(:, 4, 1,15) = (/ &
+        & 0.61394e+02_rb,0.53877e+02_rb,0.46504e+02_rb,0.39222e+02_rb,0.35189e+02_rb, &
+        & 0.42365e+02_rb,0.50625e+02_rb,0.58813e+02_rb,0.63464e+02_rb /)
+      kao(:, 5, 1,15) = (/ &
+        & 0.61322e+02_rb,0.53865e+02_rb,0.46511e+02_rb,0.39177e+02_rb,0.34939e+02_rb, &
+        & 0.41926e+02_rb,0.50070e+02_rb,0.58152e+02_rb,0.62761e+02_rb /)
+      kao(:, 1, 2,15) = (/ &
+        & 0.73139e+02_rb,0.64054e+02_rb,0.54971e+02_rb,0.46172e+02_rb,0.42554e+02_rb, &
+        & 0.52369e+02_rb,0.62683e+02_rb,0.72904e+02_rb,0.80226e+02_rb /)
+      kao(:, 2, 2,15) = (/ &
+        & 0.73363e+02_rb,0.64250e+02_rb,0.55203e+02_rb,0.46423e+02_rb,0.42168e+02_rb, &
+        & 0.51668e+02_rb,0.61839e+02_rb,0.71917e+02_rb,0.79110e+02_rb /)
+      kao(:, 3, 2,15) = (/ &
+        & 0.73487e+02_rb,0.64383e+02_rb,0.55429e+02_rb,0.46632e+02_rb,0.41828e+02_rb, &
+        & 0.50986e+02_rb,0.61016e+02_rb,0.70950e+02_rb,0.78048e+02_rb /)
+      kao(:, 4, 2,15) = (/ &
+        & 0.73536e+02_rb,0.64501e+02_rb,0.55558e+02_rb,0.46729e+02_rb,0.41557e+02_rb, &
+        & 0.50314e+02_rb,0.60204e+02_rb,0.70005e+02_rb,0.77009e+02_rb /)
+      kao(:, 5, 2,15) = (/ &
+        & 0.73500e+02_rb,0.64509e+02_rb,0.55582e+02_rb,0.46709e+02_rb,0.41283e+02_rb, &
+        & 0.49695e+02_rb,0.59450e+02_rb,0.69119e+02_rb,0.76024e+02_rb /)
+      kao(:, 1, 3,15) = (/ &
+        & 0.87361e+02_rb,0.76491e+02_rb,0.65621e+02_rb,0.54890e+02_rb,0.50598e+02_rb, &
+        & 0.62297e+02_rb,0.74612e+02_rb,0.86825e+02_rb,0.97550e+02_rb /)
+      kao(:, 2, 3,15) = (/ &
+        & 0.87685e+02_rb,0.76774e+02_rb,0.65885e+02_rb,0.55188e+02_rb,0.50206e+02_rb, &
+        & 0.61585e+02_rb,0.73754e+02_rb,0.85807e+02_rb,0.96409e+02_rb /)
+      kao(:, 3, 3,15) = (/ &
+        & 0.87844e+02_rb,0.76919e+02_rb,0.66106e+02_rb,0.55413e+02_rb,0.49812e+02_rb, &
+        & 0.60785e+02_rb,0.72789e+02_rb,0.84689e+02_rb,0.95141e+02_rb /)
+      kao(:, 4, 3,15) = (/ &
+        & 0.87889e+02_rb,0.77037e+02_rb,0.66247e+02_rb,0.55541e+02_rb,0.49446e+02_rb, &
+        & 0.60010e+02_rb,0.71857e+02_rb,0.83593e+02_rb,0.93898e+02_rb /)
+      kao(:, 5, 3,15) = (/ &
+        & 0.87858e+02_rb,0.77051e+02_rb,0.66285e+02_rb,0.55583e+02_rb,0.49097e+02_rb, &
+        & 0.59241e+02_rb,0.70929e+02_rb,0.82513e+02_rb,0.92686e+02_rb /)
+      kao(:, 1, 4,15) = (/ &
+        & 0.10387e+03_rb,0.90929e+02_rb,0.77989e+02_rb,0.65095e+02_rb,0.60436e+02_rb, &
+        & 0.74039e+02_rb,0.88717e+02_rb,0.10327e+03_rb,0.11725e+03_rb /)
+      kao(:, 2, 4,15) = (/ &
+        & 0.10441e+03_rb,0.91405e+02_rb,0.78408e+02_rb,0.65545e+02_rb,0.59926e+02_rb, &
+        & 0.73070e+02_rb,0.87549e+02_rb,0.10190e+03_rb,0.11570e+03_rb /)
+      kao(:, 3, 4,15) = (/ &
+        & 0.10471e+03_rb,0.91680e+02_rb,0.78722e+02_rb,0.65845e+02_rb,0.59509e+02_rb, &
+        & 0.72264e+02_rb,0.86581e+02_rb,0.10076e+03_rb,0.11440e+03_rb /)
+      kao(:, 4, 4,15) = (/ &
+        & 0.10486e+03_rb,0.91873e+02_rb,0.78926e+02_rb,0.66032e+02_rb,0.59086e+02_rb, &
+        & 0.71381e+02_rb,0.85514e+02_rb,0.99526e+02_rb,0.11299e+03_rb /)
+      kao(:, 5, 4,15) = (/ &
+        & 0.10483e+03_rb,0.91879e+02_rb,0.78952e+02_rb,0.66063e+02_rb,0.58651e+02_rb, &
+        & 0.70432e+02_rb,0.84377e+02_rb,0.98185e+02_rb,0.11148e+03_rb /)
+      kao(:, 1, 5,15) = (/ &
+        & 0.12314e+03_rb,0.10778e+03_rb,0.92429e+02_rb,0.77074e+02_rb,0.72086e+02_rb, &
+        & 0.87688e+02_rb,0.10511e+03_rb,0.12238e+03_rb,0.13959e+03_rb /)
+      kao(:, 2, 5,15) = (/ &
+        & 0.12380e+03_rb,0.10836e+03_rb,0.92922e+02_rb,0.77571e+02_rb,0.71572e+02_rb, &
+        & 0.86586e+02_rb,0.10378e+03_rb,0.12082e+03_rb,0.13782e+03_rb /)
+      kao(:, 3, 5,15) = (/ &
+        & 0.12423e+03_rb,0.10877e+03_rb,0.93351e+02_rb,0.77983e+02_rb,0.71097e+02_rb, &
+        & 0.85507e+02_rb,0.10249e+03_rb,0.11931e+03_rb,0.13609e+03_rb /)
+      kao(:, 4, 5,15) = (/ &
+        & 0.12450e+03_rb,0.10905e+03_rb,0.93631e+02_rb,0.78238e+02_rb,0.70653e+02_rb, &
+        & 0.84488e+02_rb,0.10126e+03_rb,0.11788e+03_rb,0.13445e+03_rb /)
+      kao(:, 5, 5,15) = (/ &
+        & 0.12453e+03_rb,0.10910e+03_rb,0.93684e+02_rb,0.78289e+02_rb,0.70179e+02_rb, &
+        & 0.83403e+02_rb,0.99954e+02_rb,0.11636e+03_rb,0.13271e+03_rb /)
+      kao(:, 1, 6,15) = (/ &
+        & 0.14538e+03_rb,0.12724e+03_rb,0.10910e+03_rb,0.90962e+02_rb,0.85931e+02_rb, &
+        & 0.10354e+03_rb,0.12413e+03_rb,0.14456e+03_rb,0.16524e+03_rb /)
+      kao(:, 2, 6,15) = (/ &
+        & 0.14625e+03_rb,0.12800e+03_rb,0.10975e+03_rb,0.91547e+02_rb,0.85303e+02_rb, &
+        & 0.10223e+03_rb,0.12256e+03_rb,0.14271e+03_rb,0.16313e+03_rb /)
+      kao(:, 3, 6,15) = (/ &
+        & 0.14683e+03_rb,0.12855e+03_rb,0.11028e+03_rb,0.92053e+02_rb,0.84796e+02_rb, &
+        & 0.10095e+03_rb,0.12102e+03_rb,0.14092e+03_rb,0.16108e+03_rb /)
+      kao(:, 4, 6,15) = (/ &
+        & 0.14716e+03_rb,0.12887e+03_rb,0.11059e+03_rb,0.92330e+02_rb,0.84296e+02_rb, &
+        & 0.99657e+02_rb,0.11947e+03_rb,0.13910e+03_rb,0.15900e+03_rb /)
+      kao(:, 5, 6,15) = (/ &
+        & 0.14726e+03_rb,0.12897e+03_rb,0.11069e+03_rb,0.92414e+02_rb,0.83857e+02_rb, &
+        & 0.98384e+02_rb,0.11794e+03_rb,0.13732e+03_rb,0.15696e+03_rb /)
+      kao(:, 1, 7,15) = (/ &
+        & 0.17053e+03_rb,0.14925e+03_rb,0.12796e+03_rb,0.10716e+03_rb,0.10213e+03_rb, &
+        & 0.12188e+03_rb,0.14615e+03_rb,0.17020e+03_rb,0.19480e+03_rb /)
+      kao(:, 2, 7,15) = (/ &
+        & 0.17172e+03_rb,0.15029e+03_rb,0.12885e+03_rb,0.10758e+03_rb,0.10144e+03_rb, &
+        & 0.12029e+03_rb,0.14423e+03_rb,0.16798e+03_rb,0.19224e+03_rb /)
+      kao(:, 3, 7,15) = (/ &
+        & 0.17251e+03_rb,0.15103e+03_rb,0.12955e+03_rb,0.10811e+03_rb,0.10086e+03_rb, &
+        & 0.11869e+03_rb,0.14231e+03_rb,0.16572e+03_rb,0.18967e+03_rb /)
+      kao(:, 4, 7,15) = (/ &
+        & 0.17303e+03_rb,0.15150e+03_rb,0.12997e+03_rb,0.10845e+03_rb,0.10032e+03_rb, &
+        & 0.11701e+03_rb,0.14029e+03_rb,0.16338e+03_rb,0.18697e+03_rb /)
+      kao(:, 5, 7,15) = (/ &
+        & 0.17326e+03_rb,0.15170e+03_rb,0.13015e+03_rb,0.10860e+03_rb,0.99828e+02_rb, &
+        & 0.11540e+03_rb,0.13837e+03_rb,0.16114e+03_rb,0.18440e+03_rb /)
+      kao(:, 1, 8,15) = (/ &
+        & 0.19897e+03_rb,0.17412e+03_rb,0.14927e+03_rb,0.12609e+03_rb,0.12102e+03_rb, &
+        & 0.14307e+03_rb,0.17149e+03_rb,0.19971e+03_rb,0.22868e+03_rb /)
+      kao(:, 2, 8,15) = (/ &
+        & 0.20045e+03_rb,0.17541e+03_rb,0.15039e+03_rb,0.12643e+03_rb,0.12014e+03_rb, &
+        & 0.14095e+03_rb,0.16896e+03_rb,0.19679e+03_rb,0.22532e+03_rb /)
+      kao(:, 3, 8,15) = (/ &
+        & 0.20144e+03_rb,0.17633e+03_rb,0.15122e+03_rb,0.12673e+03_rb,0.11946e+03_rb, &
+        & 0.13885e+03_rb,0.16646e+03_rb,0.19386e+03_rb,0.22200e+03_rb /)
+      kao(:, 4, 8,15) = (/ &
+        & 0.20212e+03_rb,0.17694e+03_rb,0.15175e+03_rb,0.12692e+03_rb,0.11890e+03_rb, &
+        & 0.13670e+03_rb,0.16392e+03_rb,0.19092e+03_rb,0.21864e+03_rb /)
+      kao(:, 5, 8,15) = (/ &
+        & 0.20244e+03_rb,0.17722e+03_rb,0.15200e+03_rb,0.12703e+03_rb,0.11832e+03_rb, &
+        & 0.13474e+03_rb,0.16157e+03_rb,0.18819e+03_rb,0.21551e+03_rb /)
+      kao(:, 1, 9,15) = (/ &
+        & 0.23120e+03_rb,0.20232e+03_rb,0.17344e+03_rb,0.14797e+03_rb,0.14299e+03_rb, &
+        & 0.16694e+03_rb,0.20011e+03_rb,0.23304e+03_rb,0.26690e+03_rb /)
+      kao(:, 2, 9,15) = (/ &
+        & 0.23311e+03_rb,0.20399e+03_rb,0.17488e+03_rb,0.14825e+03_rb,0.14181e+03_rb, &
+        & 0.16424e+03_rb,0.19689e+03_rb,0.22930e+03_rb,0.26259e+03_rb /)
+      kao(:, 3, 9,15) = (/ &
+        & 0.23434e+03_rb,0.20510e+03_rb,0.17587e+03_rb,0.14844e+03_rb,0.14100e+03_rb, &
+        & 0.16150e+03_rb,0.19359e+03_rb,0.22546e+03_rb,0.25821e+03_rb /)
+      kao(:, 4, 9,15) = (/ &
+        & 0.23518e+03_rb,0.20584e+03_rb,0.17651e+03_rb,0.14849e+03_rb,0.14028e+03_rb, &
+        & 0.15873e+03_rb,0.19031e+03_rb,0.22162e+03_rb,0.25383e+03_rb /)
+      kao(:, 5, 9,15) = (/ &
+        & 0.23553e+03_rb,0.20616e+03_rb,0.17678e+03_rb,0.14839e+03_rb,0.13959e+03_rb, &
+        & 0.15626e+03_rb,0.18736e+03_rb,0.21823e+03_rb,0.24993e+03_rb /)
+      kao(:, 1,10,15) = (/ &
+        & 0.26766e+03_rb,0.23422e+03_rb,0.20086e+03_rb,0.17305e+03_rb,0.16820e+03_rb, &
+        & 0.19275e+03_rb,0.23109e+03_rb,0.26916e+03_rb,0.30826e+03_rb /)
+      kao(:, 2,10,15) = (/ &
+        & 0.26991e+03_rb,0.23619e+03_rb,0.20254e+03_rb,0.17334e+03_rb,0.16673e+03_rb, &
+        & 0.18936e+03_rb,0.22702e+03_rb,0.26442e+03_rb,0.30283e+03_rb /)
+      kao(:, 3,10,15) = (/ &
+        & 0.27155e+03_rb,0.23766e+03_rb,0.20381e+03_rb,0.17344e+03_rb,0.16570e+03_rb, &
+        & 0.18588e+03_rb,0.22280e+03_rb,0.25950e+03_rb,0.29719e+03_rb /)
+      kao(:, 4,10,15) = (/ &
+        & 0.27254e+03_rb,0.23853e+03_rb,0.20456e+03_rb,0.17332e+03_rb,0.16480e+03_rb, &
+        & 0.18267e+03_rb,0.21887e+03_rb,0.25495e+03_rb,0.29197e+03_rb /)
+      kao(:, 5,10,15) = (/ &
+        & 0.27304e+03_rb,0.23896e+03_rb,0.20491e+03_rb,0.17301e+03_rb,0.16390e+03_rb, &
+        & 0.17979e+03_rb,0.21534e+03_rb,0.25082e+03_rb,0.28725e+03_rb /)
+      kao(:, 1,11,15) = (/ &
+        & 0.31010e+03_rb,0.27147e+03_rb,0.23291e+03_rb,0.20181e+03_rb,0.19592e+03_rb, &
+        & 0.21861e+03_rb,0.26152e+03_rb,0.30466e+03_rb,0.34889e+03_rb /)
+      kao(:, 2,11,15) = (/ &
+        & 0.31237e+03_rb,0.27343e+03_rb,0.23463e+03_rb,0.20183e+03_rb,0.19444e+03_rb, &
+        & 0.21467e+03_rb,0.25634e+03_rb,0.29864e+03_rb,0.34194e+03_rb /)
+      kao(:, 3,11,15) = (/ &
+        & 0.31396e+03_rb,0.27478e+03_rb,0.23578e+03_rb,0.20169e+03_rb,0.19320e+03_rb, &
+        & 0.21082e+03_rb,0.25169e+03_rb,0.29321e+03_rb,0.33575e+03_rb /)
+      kao(:, 4,11,15) = (/ &
+        & 0.31491e+03_rb,0.27559e+03_rb,0.23646e+03_rb,0.20134e+03_rb,0.19199e+03_rb, &
+        & 0.20744e+03_rb,0.24738e+03_rb,0.28820e+03_rb,0.33002e+03_rb /)
+      kao(:, 5,11,15) = (/ &
+        & 0.31516e+03_rb,0.27581e+03_rb,0.23662e+03_rb,0.20063e+03_rb,0.19065e+03_rb, &
+        & 0.20428e+03_rb,0.24308e+03_rb,0.28319e+03_rb,0.32426e+03_rb /)
+      kao(:, 1,12,15) = (/ &
+        & 0.35746e+03_rb,0.31300e+03_rb,0.26858e+03_rb,0.23433e+03_rb,0.22701e+03_rb, &
+        & 0.24649e+03_rb,0.29230e+03_rb,0.34058e+03_rb,0.38993e+03_rb /)
+      kao(:, 2,12,15) = (/ &
+        & 0.35965e+03_rb,0.31492e+03_rb,0.27026e+03_rb,0.23392e+03_rb,0.22536e+03_rb, &
+        & 0.24218e+03_rb,0.28684e+03_rb,0.33421e+03_rb,0.38264e+03_rb /)
+      kao(:, 3,12,15) = (/ &
+        & 0.36096e+03_rb,0.31606e+03_rb,0.27127e+03_rb,0.23331e+03_rb,0.22367e+03_rb, &
+        & 0.23821e+03_rb,0.28173e+03_rb,0.32828e+03_rb,0.37584e+03_rb /)
+      kao(:, 4,12,15) = (/ &
+        & 0.36159e+03_rb,0.31657e+03_rb,0.27171e+03_rb,0.23251e+03_rb,0.22182e+03_rb, &
+        & 0.23456e+03_rb,0.27669e+03_rb,0.32238e+03_rb,0.36910e+03_rb /)
+      kao(:, 5,12,15) = (/ &
+        & 0.36141e+03_rb,0.31636e+03_rb,0.27153e+03_rb,0.23134e+03_rb,0.21976e+03_rb, &
+        & 0.23095e+03_rb,0.27160e+03_rb,0.31644e+03_rb,0.36227e+03_rb /)
+      kao(:, 1,13,15) = (/ &
+        & 0.40931e+03_rb,0.35842e+03_rb,0.30758e+03_rb,0.27041e+03_rb,0.26133e+03_rb, &
+        & 0.27679e+03_rb,0.32393e+03_rb,0.37751e+03_rb,0.43213e+03_rb /)
+      kao(:, 2,13,15) = (/ &
+        & 0.41124e+03_rb,0.36013e+03_rb,0.30908e+03_rb,0.26935e+03_rb,0.25923e+03_rb, &
+        & 0.27218e+03_rb,0.31806e+03_rb,0.37065e+03_rb,0.42432e+03_rb /)
+      kao(:, 3,13,15) = (/ &
+        & 0.41214e+03_rb,0.36093e+03_rb,0.30979e+03_rb,0.26811e+03_rb,0.25684e+03_rb, &
+        & 0.26794e+03_rb,0.31214e+03_rb,0.36375e+03_rb,0.41639e+03_rb /)
+      kao(:, 4,13,15) = (/ &
+        & 0.41225e+03_rb,0.36102e+03_rb,0.30989e+03_rb,0.26655e+03_rb,0.25418e+03_rb, &
+        & 0.26378e+03_rb,0.30615e+03_rb,0.35676e+03_rb,0.40836e+03_rb /)
+      kao(:, 5,13,15) = (/ &
+        & 0.41130e+03_rb,0.36017e+03_rb,0.30917e+03_rb,0.26471e+03_rb,0.25127e+03_rb, &
+        & 0.25962e+03_rb,0.30054e+03_rb,0.35018e+03_rb,0.40087e+03_rb /)
+      kao(:, 1, 1,16) = (/ &
+        & 0.66783e+02_rb,0.58494e+02_rb,0.50207e+02_rb,0.41922e+02_rb,0.39207e+02_rb, &
+        & 0.48837e+02_rb,0.58441e+02_rb,0.67973e+02_rb,0.73684e+02_rb /)
+      kao(:, 2, 1,16) = (/ &
+        & 0.66987e+02_rb,0.58663e+02_rb,0.50340e+02_rb,0.42083e+02_rb,0.39992e+02_rb, &
+        & 0.49756e+02_rb,0.59507e+02_rb,0.69167e+02_rb,0.75232e+02_rb /)
+      kao(:, 3, 1,16) = (/ &
+        & 0.67128e+02_rb,0.58776e+02_rb,0.50426e+02_rb,0.42412e+02_rb,0.40738e+02_rb, &
+        & 0.50635e+02_rb,0.60514e+02_rb,0.70320e+02_rb,0.76487e+02_rb /)
+      kao(:, 4, 1,16) = (/ &
+        & 0.67159e+02_rb,0.58797e+02_rb,0.50435e+02_rb,0.42709e+02_rb,0.41336e+02_rb, &
+        & 0.51345e+02_rb,0.61329e+02_rb,0.71239e+02_rb,0.77474e+02_rb /)
+      kao(:, 5, 1,16) = (/ &
+        & 0.67048e+02_rb,0.58698e+02_rb,0.50349e+02_rb,0.42916e+02_rb,0.41806e+02_rb, &
+        & 0.51893e+02_rb,0.61955e+02_rb,0.71939e+02_rb,0.78212e+02_rb /)
+      kao(:, 1, 2,16) = (/ &
+        & 0.80817e+02_rb,0.70771e+02_rb,0.60724e+02_rb,0.50680e+02_rb,0.46121e+02_rb, &
+        & 0.57561e+02_rb,0.68978e+02_rb,0.80276e+02_rb,0.88125e+02_rb /)
+      kao(:, 2, 2,16) = (/ &
+        & 0.81120e+02_rb,0.71031e+02_rb,0.60942e+02_rb,0.50856e+02_rb,0.46531e+02_rb, &
+        & 0.58009e+02_rb,0.69466e+02_rb,0.80811e+02_rb,0.88902e+02_rb /)
+      kao(:, 3, 2,16) = (/ &
+        & 0.81295e+02_rb,0.71179e+02_rb,0.61065e+02_rb,0.50952e+02_rb,0.47046e+02_rb, &
+        & 0.58603e+02_rb,0.70144e+02_rb,0.81568e+02_rb,0.89842e+02_rb /)
+      kao(:, 4, 2,16) = (/ &
+        & 0.81302e+02_rb,0.71181e+02_rb,0.61061e+02_rb,0.50998e+02_rb,0.47535e+02_rb, &
+        & 0.59172e+02_rb,0.70788e+02_rb,0.82285e+02_rb,0.90723e+02_rb /)
+      kao(:, 5, 2,16) = (/ &
+        & 0.81254e+02_rb,0.71123e+02_rb,0.60992e+02_rb,0.51150e+02_rb,0.47959e+02_rb, &
+        & 0.59657e+02_rb,0.71327e+02_rb,0.82908e+02_rb,0.91460e+02_rb /)
+      kao(:, 1, 3,16) = (/ &
+        & 0.97635e+02_rb,0.85483e+02_rb,0.73330e+02_rb,0.61179e+02_rb,0.56207e+02_rb, &
+        & 0.70215e+02_rb,0.84188e+02_rb,0.98014e+02_rb,0.10988e+03_rb /)
+      kao(:, 2, 3,16) = (/ &
+        & 0.98163e+02_rb,0.85943e+02_rb,0.73724e+02_rb,0.61504e+02_rb,0.55633e+02_rb, &
+        & 0.69472e+02_rb,0.83276e+02_rb,0.96935e+02_rb,0.10869e+03_rb /)
+      kao(:, 3, 3,16) = (/ &
+        & 0.98472e+02_rb,0.86211e+02_rb,0.73951e+02_rb,0.61693e+02_rb,0.55697e+02_rb, &
+        & 0.69495e+02_rb,0.83260e+02_rb,0.96885e+02_rb,0.10871e+03_rb /)
+      kao(:, 4, 3,16) = (/ &
+        & 0.98535e+02_rb,0.86265e+02_rb,0.73995e+02_rb,0.61728e+02_rb,0.55937e+02_rb, &
+        & 0.69749e+02_rb,0.83530e+02_rb,0.97171e+02_rb,0.10906e+03_rb /)
+      kao(:, 5, 3,16) = (/ &
+        & 0.98433e+02_rb,0.86165e+02_rb,0.73899e+02_rb,0.61635e+02_rb,0.56204e+02_rb, &
+        & 0.70040e+02_rb,0.83840e+02_rb,0.97500e+02_rb,0.10946e+03_rb /)
+      kao(:, 1, 4,16) = (/ &
+        & 0.11801e+03_rb,0.10331e+03_rb,0.88600e+02_rb,0.73894e+02_rb,0.68841e+02_rb, &
+        & 0.86008e+02_rb,0.10313e+03_rb,0.12007e+03_rb,0.13623e+03_rb /)
+      kao(:, 2, 4,16) = (/ &
+        & 0.11855e+03_rb,0.10378e+03_rb,0.89007e+02_rb,0.74235e+02_rb,0.68009e+02_rb, &
+        & 0.84957e+02_rb,0.10186e+03_rb,0.11859e+03_rb,0.13456e+03_rb /)
+      kao(:, 3, 4,16) = (/ &
+        & 0.11911e+03_rb,0.10427e+03_rb,0.89430e+02_rb,0.74590e+02_rb,0.67220e+02_rb, &
+        & 0.83955e+02_rb,0.10065e+03_rb,0.11716e+03_rb,0.13292e+03_rb /)
+      kao(:, 4, 4,16) = (/ &
+        & 0.11932e+03_rb,0.10446e+03_rb,0.89591e+02_rb,0.74725e+02_rb,0.66996e+02_rb, &
+        & 0.83620e+02_rb,0.10020e+03_rb,0.11661e+03_rb,0.13231e+03_rb /)
+      kao(:, 5, 4,16) = (/ &
+        & 0.11933e+03_rb,0.10445e+03_rb,0.89579e+02_rb,0.74708e+02_rb,0.67016e+02_rb, &
+        & 0.83607e+02_rb,0.10016e+03_rb,0.11655e+03_rb,0.13223e+03_rb /)
+      kao(:, 1, 5,16) = (/ &
+        & 0.14253e+03_rb,0.12475e+03_rb,0.10698e+03_rb,0.89200e+02_rb,0.84755e+02_rb, &
+        & 0.10590e+03_rb,0.12699e+03_rb,0.14785e+03_rb,0.16865e+03_rb /)
+      kao(:, 2, 5,16) = (/ &
+        & 0.14325e+03_rb,0.12539e+03_rb,0.10752e+03_rb,0.89655e+02_rb,0.83145e+02_rb, &
+        & 0.10388e+03_rb,0.12456e+03_rb,0.14501e+03_rb,0.16542e+03_rb /)
+      kao(:, 3, 5,16) = (/ &
+        & 0.14383e+03_rb,0.12589e+03_rb,0.10795e+03_rb,0.90019e+02_rb,0.82092e+02_rb, &
+        & 0.10255e+03_rb,0.12296e+03_rb,0.14315e+03_rb,0.16327e+03_rb /)
+      kao(:, 4, 5,16) = (/ &
+        & 0.14418e+03_rb,0.12620e+03_rb,0.10822e+03_rb,0.90248e+02_rb,0.81037e+02_rb, &
+        & 0.10121e+03_rb,0.12133e+03_rb,0.14124e+03_rb,0.16108e+03_rb /)
+      kao(:, 5, 5,16) = (/ &
+        & 0.14437e+03_rb,0.12637e+03_rb,0.10836e+03_rb,0.90358e+02_rb,0.80556e+02_rb, &
+        & 0.10057e+03_rb,0.12052e+03_rb,0.14027e+03_rb,0.15994e+03_rb /)
+      kao(:, 1, 6,16) = (/ &
+        & 0.17174e+03_rb,0.15031e+03_rb,0.12887e+03_rb,0.10744e+03_rb,0.10459e+03_rb, &
+        & 0.13069e+03_rb,0.15672e+03_rb,0.18250e+03_rb,0.20866e+03_rb /)
+      kao(:, 2, 6,16) = (/ &
+        & 0.17281e+03_rb,0.15124e+03_rb,0.12968e+03_rb,0.10811e+03_rb,0.10205e+03_rb, &
+        & 0.12751e+03_rb,0.15290e+03_rb,0.17802e+03_rb,0.20356e+03_rb /)
+      kao(:, 3, 6,16) = (/ &
+        & 0.17366e+03_rb,0.15199e+03_rb,0.13032e+03_rb,0.10865e+03_rb,0.10020e+03_rb, &
+        & 0.12519e+03_rb,0.15010e+03_rb,0.17475e+03_rb,0.19982e+03_rb /)
+      kao(:, 4, 6,16) = (/ &
+        & 0.17410e+03_rb,0.15237e+03_rb,0.13065e+03_rb,0.10893e+03_rb,0.98757e+02_rb, &
+        & 0.12337e+03_rb,0.14792e+03_rb,0.17221e+03_rb,0.19689e+03_rb /)
+      kao(:, 5, 6,16) = (/ &
+        & 0.17426e+03_rb,0.15251e+03_rb,0.13077e+03_rb,0.10903e+03_rb,0.97456e+02_rb, &
+        & 0.12171e+03_rb,0.14591e+03_rb,0.16984e+03_rb,0.19419e+03_rb /)
+      kao(:, 1, 7,16) = (/ &
+        & 0.20639e+03_rb,0.18062e+03_rb,0.15485e+03_rb,0.12907e+03_rb,0.12889e+03_rb, &
+        & 0.16105e+03_rb,0.19314e+03_rb,0.22488e+03_rb,0.25751e+03_rb /)
+      kao(:, 2, 7,16) = (/ &
+        & 0.20793e+03_rb,0.18197e+03_rb,0.15600e+03_rb,0.13004e+03_rb,0.12536e+03_rb, &
+        & 0.15664e+03_rb,0.18784e+03_rb,0.21870e+03_rb,0.25043e+03_rb /)
+      kao(:, 3, 7,16) = (/ &
+        & 0.20918e+03_rb,0.18307e+03_rb,0.15695e+03_rb,0.13084e+03_rb,0.12258e+03_rb, &
+        & 0.15317e+03_rb,0.18368e+03_rb,0.21386e+03_rb,0.24487e+03_rb /)
+      kao(:, 4, 7,16) = (/ &
+        & 0.20994e+03_rb,0.18373e+03_rb,0.15753e+03_rb,0.13132e+03_rb,0.12024e+03_rb, &
+        & 0.15023e+03_rb,0.18014e+03_rb,0.20974e+03_rb,0.24016e+03_rb /)
+      kao(:, 5, 7,16) = (/ &
+        & 0.21017e+03_rb,0.18393e+03_rb,0.15770e+03_rb,0.13147e+03_rb,0.11817e+03_rb, &
+        & 0.14763e+03_rb,0.17700e+03_rb,0.20610e+03_rb,0.23592e+03_rb /)
+      kao(:, 1, 8,16) = (/ &
+        & 0.24808e+03_rb,0.21709e+03_rb,0.18610e+03_rb,0.15511e+03_rb,0.15824e+03_rb, &
+        & 0.19773e+03_rb,0.23715e+03_rb,0.27617e+03_rb,0.31647e+03_rb /)
+      kao(:, 2, 8,16) = (/ &
+        & 0.24976e+03_rb,0.21856e+03_rb,0.18737e+03_rb,0.15617e+03_rb,0.15364e+03_rb, &
+        & 0.19198e+03_rb,0.23024e+03_rb,0.26808e+03_rb,0.30723e+03_rb /)
+      kao(:, 3, 8,16) = (/ &
+        & 0.25153e+03_rb,0.22011e+03_rb,0.18870e+03_rb,0.15729e+03_rb,0.14986e+03_rb, &
+        & 0.18726e+03_rb,0.22456e+03_rb,0.26146e+03_rb,0.29964e+03_rb /)
+      kao(:, 4, 8,16) = (/ &
+        & 0.25266e+03_rb,0.22111e+03_rb,0.18956e+03_rb,0.15801e+03_rb,0.14651e+03_rb, &
+        & 0.18308e+03_rb,0.21955e+03_rb,0.25564e+03_rb,0.29297e+03_rb /)
+      kao(:, 5, 8,16) = (/ &
+        & 0.25306e+03_rb,0.22146e+03_rb,0.18986e+03_rb,0.15826e+03_rb,0.14346e+03_rb, &
+        & 0.17924e+03_rb,0.21492e+03_rb,0.25024e+03_rb,0.28677e+03_rb /)
+      kao(:, 1, 9,16) = (/ &
+        & 0.29758e+03_rb,0.26040e+03_rb,0.22322e+03_rb,0.18603e+03_rb,0.19348e+03_rb, &
+        & 0.24177e+03_rb,0.28996e+03_rb,0.33765e+03_rb,0.38707e+03_rb /)
+      kao(:, 2, 9,16) = (/ &
+        & 0.29980e+03_rb,0.26234e+03_rb,0.22489e+03_rb,0.18744e+03_rb,0.18763e+03_rb, &
+        & 0.23446e+03_rb,0.28116e+03_rb,0.32742e+03_rb,0.37536e+03_rb /)
+      kao(:, 3, 9,16) = (/ &
+        & 0.30182e+03_rb,0.26412e+03_rb,0.22641e+03_rb,0.18871e+03_rb,0.18264e+03_rb, &
+        & 0.22823e+03_rb,0.27370e+03_rb,0.31874e+03_rb,0.36539e+03_rb /)
+      kao(:, 4, 9,16) = (/ &
+        & 0.30335e+03_rb,0.26546e+03_rb,0.22757e+03_rb,0.18968e+03_rb,0.17814e+03_rb, &
+        & 0.22260e+03_rb,0.26695e+03_rb,0.31086e+03_rb,0.35637e+03_rb /)
+      kao(:, 5, 9,16) = (/ &
+        & 0.30399e+03_rb,0.26602e+03_rb,0.22805e+03_rb,0.19008e+03_rb,0.17393e+03_rb, &
+        & 0.21734e+03_rb,0.26062e+03_rb,0.30347e+03_rb,0.34789e+03_rb /)
+      kao(:, 1,10,16) = (/ &
+        & 0.35657e+03_rb,0.31201e+03_rb,0.26745e+03_rb,0.22289e+03_rb,0.23471e+03_rb, &
+        & 0.29329e+03_rb,0.35175e+03_rb,0.40960e+03_rb,0.46960e+03_rb /)
+      kao(:, 2,10,16) = (/ &
+        & 0.35941e+03_rb,0.31450e+03_rb,0.26959e+03_rb,0.22468e+03_rb,0.22747e+03_rb, &
+        & 0.28425e+03_rb,0.34089e+03_rb,0.39700e+03_rb,0.45514e+03_rb /)
+      kao(:, 3,10,16) = (/ &
+        & 0.36173e+03_rb,0.31654e+03_rb,0.27134e+03_rb,0.22614e+03_rb,0.22110e+03_rb, &
+        & 0.27628e+03_rb,0.33132e+03_rb,0.38584e+03_rb,0.44234e+03_rb /)
+      kao(:, 4,10,16) = (/ &
+        & 0.36337e+03_rb,0.31797e+03_rb,0.27257e+03_rb,0.22717e+03_rb,0.21518e+03_rb, &
+        & 0.26889e+03_rb,0.32246e+03_rb,0.37553e+03_rb,0.43052e+03_rb /)
+      kao(:, 5,10,16) = (/ &
+        & 0.36404e+03_rb,0.31855e+03_rb,0.27307e+03_rb,0.22759e+03_rb,0.20959e+03_rb, &
+        & 0.26189e+03_rb,0.31406e+03_rb,0.36572e+03_rb,0.41925e+03_rb /)
+      kao(:, 1,11,16) = (/ &
+        & 0.42778e+03_rb,0.37432e+03_rb,0.32086e+03_rb,0.26740e+03_rb,0.27872e+03_rb, &
+        & 0.34830e+03_rb,0.41771e+03_rb,0.48646e+03_rb,0.55765e+03_rb /)
+      kao(:, 2,11,16) = (/ &
+        & 0.43110e+03_rb,0.37723e+03_rb,0.32336e+03_rb,0.26948e+03_rb,0.27023e+03_rb, &
+        & 0.33769e+03_rb,0.40499e+03_rb,0.47168e+03_rb,0.54065e+03_rb /)
+      kao(:, 3,11,16) = (/ &
+        & 0.43351e+03_rb,0.37933e+03_rb,0.32516e+03_rb,0.27099e+03_rb,0.26235e+03_rb, &
+        & 0.32784e+03_rb,0.39315e+03_rb,0.45790e+03_rb,0.52488e+03_rb /)
+      kao(:, 4,11,16) = (/ &
+        & 0.43444e+03_rb,0.38015e+03_rb,0.32587e+03_rb,0.27158e+03_rb,0.25502e+03_rb, &
+        & 0.31866e+03_rb,0.38217e+03_rb,0.44507e+03_rb,0.51019e+03_rb /)
+      kao(:, 5,11,16) = (/ &
+        & 0.43455e+03_rb,0.38025e+03_rb,0.32595e+03_rb,0.27165e+03_rb,0.24835e+03_rb, &
+        & 0.31008e+03_rb,0.37185e+03_rb,0.43305e+03_rb,0.49635e+03_rb /)
+      kao(:, 1,12,16) = (/ &
+        & 0.51115e+03_rb,0.44727e+03_rb,0.38338e+03_rb,0.31950e+03_rb,0.32868e+03_rb, &
+        & 0.41075e+03_rb,0.49264e+03_rb,0.57375e+03_rb,0.65765e+03_rb /)
+      kao(:, 2,12,16) = (/ &
+        & 0.51481e+03_rb,0.45047e+03_rb,0.38614e+03_rb,0.32180e+03_rb,0.31846e+03_rb, &
+        & 0.39795e+03_rb,0.47726e+03_rb,0.55589e+03_rb,0.63715e+03_rb /)
+      kao(:, 3,12,16) = (/ &
+        & 0.51667e+03_rb,0.45210e+03_rb,0.38753e+03_rb,0.32296e+03_rb,0.30906e+03_rb, &
+        & 0.38614e+03_rb,0.46310e+03_rb,0.53942e+03_rb,0.61825e+03_rb /)
+      kao(:, 4,12,16) = (/ &
+        & 0.51678e+03_rb,0.45219e+03_rb,0.38761e+03_rb,0.32303e+03_rb,0.30046e+03_rb, &
+        & 0.37494e+03_rb,0.44968e+03_rb,0.52372e+03_rb,0.60018e+03_rb /)
+      kao(:, 5,12,16) = (/ &
+        & 0.51600e+03_rb,0.45151e+03_rb,0.38702e+03_rb,0.32254e+03_rb,0.29255e+03_rb, &
+        & 0.36403e+03_rb,0.43655e+03_rb,0.50852e+03_rb,0.58277e+03_rb /)
+      kao(:, 1,13,16) = (/ &
+        & 0.60779e+03_rb,0.53183e+03_rb,0.45587e+03_rb,0.37990e+03_rb,0.38498e+03_rb, &
+        & 0.48109e+03_rb,0.57702e+03_rb,0.67207e+03_rb,0.77032e+03_rb /)
+      kao(:, 2,13,16) = (/ &
+        & 0.61089e+03_rb,0.53454e+03_rb,0.45819e+03_rb,0.38184e+03_rb,0.37288e+03_rb, &
+        & 0.46566e+03_rb,0.55850e+03_rb,0.65053e+03_rb,0.74557e+03_rb /)
+      kao(:, 3,13,16) = (/ &
+        & 0.61168e+03_rb,0.53523e+03_rb,0.45878e+03_rb,0.38233e+03_rb,0.36190e+03_rb, &
+        & 0.45112e+03_rb,0.54103e+03_rb,0.63023e+03_rb,0.72223e+03_rb /)
+      kao(:, 4,13,16) = (/ &
+        & 0.61073e+03_rb,0.53440e+03_rb,0.45807e+03_rb,0.38174e+03_rb,0.35168e+03_rb, &
+        & 0.43693e+03_rb,0.52405e+03_rb,0.61044e+03_rb,0.69951e+03_rb /)
+      kao(:, 5,13,16) = (/ &
+        & 0.60852e+03_rb,0.53247e+03_rb,0.45641e+03_rb,0.38036e+03_rb,0.34198e+03_rb, &
+        & 0.42302e+03_rb,0.50734e+03_rb,0.59097e+03_rb,0.67714e+03_rb /)
+
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kbo(:, 1,13, 1) = (/ &
+        & 0.10554e-06_rb,0.38596e-04_rb,0.65402e-04_rb,0.88540e-04_rb,0.19601e-03_rb /)
+      kbo(:, 2,13, 1) = (/ &
+        & 0.10479e-06_rb,0.43672e-04_rb,0.74889e-04_rb,0.10118e-03_rb,0.22146e-03_rb /)
+      kbo(:, 3,13, 1) = (/ &
+        & 0.10429e-06_rb,0.49418e-04_rb,0.85429e-04_rb,0.11557e-03_rb,0.24448e-03_rb /)
+      kbo(:, 4,13, 1) = (/ &
+        & 0.10232e-06_rb,0.55802e-04_rb,0.96459e-04_rb,0.13167e-03_rb,0.27001e-03_rb /)
+      kbo(:, 5,13, 1) = (/ &
+        & 0.99013e-07_rb,0.62996e-04_rb,0.10900e-03_rb,0.14834e-03_rb,0.29917e-03_rb /)
+      kbo(:, 1,14, 1) = (/ &
+        & 0.85136e-07_rb,0.31943e-04_rb,0.54402e-04_rb,0.73887e-04_rb,0.15895e-03_rb /)
+      kbo(:, 2,14, 1) = (/ &
+        & 0.84597e-07_rb,0.36196e-04_rb,0.62429e-04_rb,0.84479e-04_rb,0.17749e-03_rb /)
+      kbo(:, 3,14, 1) = (/ &
+        & 0.83629e-07_rb,0.40982e-04_rb,0.71126e-04_rb,0.96573e-04_rb,0.19740e-03_rb /)
+      kbo(:, 4,14, 1) = (/ &
+        & 0.82310e-07_rb,0.46344e-04_rb,0.80458e-04_rb,0.10984e-03_rb,0.21847e-03_rb /)
+      kbo(:, 5,14, 1) = (/ &
+        & 0.78709e-07_rb,0.52252e-04_rb,0.90989e-04_rb,0.12394e-03_rb,0.24281e-03_rb /)
+      kbo(:, 1,15, 1) = (/ &
+        & 0.68497e-07_rb,0.26393e-04_rb,0.45164e-04_rb,0.61570e-04_rb,0.12493e-03_rb /)
+      kbo(:, 2,15, 1) = (/ &
+        & 0.68062e-07_rb,0.29936e-04_rb,0.51919e-04_rb,0.70387e-04_rb,0.13953e-03_rb /)
+      kbo(:, 3,15, 1) = (/ &
+        & 0.66766e-07_rb,0.33863e-04_rb,0.59056e-04_rb,0.80693e-04_rb,0.15653e-03_rb /)
+      kbo(:, 4,15, 1) = (/ &
+        & 0.65636e-07_rb,0.38294e-04_rb,0.66885e-04_rb,0.91555e-04_rb,0.17510e-03_rb /)
+      kbo(:, 5,15, 1) = (/ &
+        & 0.62711e-07_rb,0.43189e-04_rb,0.75756e-04_rb,0.10355e-03_rb,0.19439e-03_rb /)
+      kbo(:, 1,16, 1) = (/ &
+        & 0.55083e-07_rb,0.21761e-04_rb,0.37484e-04_rb,0.51301e-04_rb,0.97875e-04_rb /)
+      kbo(:, 2,16, 1) = (/ &
+        & 0.54095e-07_rb,0.24670e-04_rb,0.43084e-04_rb,0.58639e-04_rb,0.10996e-03_rb /)
+      kbo(:, 3,16, 1) = (/ &
+        & 0.53340e-07_rb,0.27925e-04_rb,0.48976e-04_rb,0.67234e-04_rb,0.12415e-03_rb /)
+      kbo(:, 4,16, 1) = (/ &
+        & 0.51412e-07_rb,0.31588e-04_rb,0.55576e-04_rb,0.76352e-04_rb,0.13939e-03_rb /)
+      kbo(:, 5,16, 1) = (/ &
+        & 0.49341e-07_rb,0.35677e-04_rb,0.62937e-04_rb,0.86363e-04_rb,0.15543e-03_rb /)
+      kbo(:, 1,17, 1) = (/ &
+        & 0.44022e-07_rb,0.17963e-04_rb,0.31102e-04_rb,0.42604e-04_rb,0.78290e-04_rb /)
+      kbo(:, 2,17, 1) = (/ &
+        & 0.43167e-07_rb,0.20382e-04_rb,0.35754e-04_rb,0.48875e-04_rb,0.87941e-04_rb /)
+      kbo(:, 3,17, 1) = (/ &
+        & 0.42210e-07_rb,0.23091e-04_rb,0.40674e-04_rb,0.56059e-04_rb,0.99257e-04_rb /)
+      kbo(:, 4,17, 1) = (/ &
+        & 0.40402e-07_rb,0.26125e-04_rb,0.46162e-04_rb,0.63586e-04_rb,0.11166e-03_rb /)
+      kbo(:, 5,17, 1) = (/ &
+        & 0.38532e-07_rb,0.29494e-04_rb,0.52327e-04_rb,0.71960e-04_rb,0.12480e-03_rb /)
+      kbo(:, 1,18, 1) = (/ &
+        & 0.34937e-07_rb,0.14903e-04_rb,0.25868e-04_rb,0.35503e-04_rb,0.63368e-04_rb /)
+      kbo(:, 2,18, 1) = (/ &
+        & 0.34308e-07_rb,0.16923e-04_rb,0.29781e-04_rb,0.40789e-04_rb,0.71115e-04_rb /)
+      kbo(:, 3,18, 1) = (/ &
+        & 0.32995e-07_rb,0.19171e-04_rb,0.33872e-04_rb,0.46810e-04_rb,0.80302e-04_rb /)
+      kbo(:, 4,18, 1) = (/ &
+        & 0.31654e-07_rb,0.21679e-04_rb,0.38468e-04_rb,0.53048e-04_rb,0.90431e-04_rb /)
+      kbo(:, 5,18, 1) = (/ &
+        & 0.30282e-07_rb,0.24491e-04_rb,0.43596e-04_rb,0.60078e-04_rb,0.10133e-03_rb /)
+      kbo(:, 1,19, 1) = (/ &
+        & 0.27971e-07_rb,0.12385e-04_rb,0.21549e-04_rb,0.29618e-04_rb,0.51732e-04_rb /)
+      kbo(:, 2,19, 1) = (/ &
+        & 0.27128e-07_rb,0.14042e-04_rb,0.24826e-04_rb,0.34047e-04_rb,0.58064e-04_rb /)
+      kbo(:, 3,19, 1) = (/ &
+        & 0.26018e-07_rb,0.15920e-04_rb,0.28221e-04_rb,0.39072e-04_rb,0.65495e-04_rb /)
+      kbo(:, 4,19, 1) = (/ &
+        & 0.24717e-07_rb,0.18017e-04_rb,0.32056e-04_rb,0.44285e-04_rb,0.73859e-04_rb /)
+      kbo(:, 5,19, 1) = (/ &
+        & 0.23859e-07_rb,0.20360e-04_rb,0.36341e-04_rb,0.50170e-04_rb,0.82944e-04_rb /)
+      kbo(:, 1,20, 1) = (/ &
+        & 0.22529e-07_rb,0.10336e-04_rb,0.17999e-04_rb,0.24776e-04_rb,0.42602e-04_rb /)
+      kbo(:, 2,20, 1) = (/ &
+        & 0.21733e-07_rb,0.11685e-04_rb,0.20769e-04_rb,0.28503e-04_rb,0.47833e-04_rb /)
+      kbo(:, 3,20, 1) = (/ &
+        & 0.20791e-07_rb,0.13280e-04_rb,0.23571e-04_rb,0.32654e-04_rb,0.53995e-04_rb /)
+      kbo(:, 4,20, 1) = (/ &
+        & 0.19663e-07_rb,0.15029e-04_rb,0.26788e-04_rb,0.37066e-04_rb,0.60944e-04_rb /)
+      kbo(:, 5,20, 1) = (/ &
+        & 0.19169e-07_rb,0.16975e-04_rb,0.30353e-04_rb,0.41996e-04_rb,0.68344e-04_rb /)
+      kbo(:, 1,21, 1) = (/ &
+        & 0.18148e-07_rb,0.86039e-05_rb,0.15041e-04_rb,0.20717e-04_rb,0.35143e-04_rb /)
+      kbo(:, 2,21, 1) = (/ &
+        & 0.17465e-07_rb,0.97287e-05_rb,0.17348e-04_rb,0.23862e-04_rb,0.39508e-04_rb /)
+      kbo(:, 3,21, 1) = (/ &
+        & 0.16537e-07_rb,0.11073e-04_rb,0.19687e-04_rb,0.27271e-04_rb,0.44652e-04_rb /)
+      kbo(:, 4,21, 1) = (/ &
+        & 0.15860e-07_rb,0.12526e-04_rb,0.22388e-04_rb,0.31015e-04_rb,0.50269e-04_rb /)
+      kbo(:, 5,21, 1) = (/ &
+        & 0.15452e-07_rb,0.14158e-04_rb,0.25339e-04_rb,0.35141e-04_rb,0.56327e-04_rb /)
+      kbo(:, 1,22, 1) = (/ &
+        & 0.14542e-07_rb,0.71807e-05_rb,0.12682e-04_rb,0.17473e-04_rb,0.29179e-04_rb /)
+      kbo(:, 2,22, 1) = (/ &
+        & 0.13967e-07_rb,0.81574e-05_rb,0.14550e-04_rb,0.20147e-04_rb,0.32795e-04_rb /)
+      kbo(:, 3,22, 1) = (/ &
+        & 0.13241e-07_rb,0.92839e-05_rb,0.16547e-04_rb,0.22971e-04_rb,0.37036e-04_rb /)
+      kbo(:, 4,22, 1) = (/ &
+        & 0.12746e-07_rb,0.10522e-04_rb,0.18840e-04_rb,0.26114e-04_rb,0.41617e-04_rb /)
+      kbo(:, 5,22, 1) = (/ &
+        & 0.12426e-07_rb,0.11886e-04_rb,0.21313e-04_rb,0.29604e-04_rb,0.46709e-04_rb /)
+      kbo(:, 1,23, 1) = (/ &
+        & 0.11724e-07_rb,0.60196e-05_rb,0.10703e-04_rb,0.14753e-04_rb,0.24143e-04_rb /)
+      kbo(:, 2,23, 1) = (/ &
+        & 0.11124e-07_rb,0.68499e-05_rb,0.12233e-04_rb,0.17009e-04_rb,0.27147e-04_rb /)
+      kbo(:, 3,23, 1) = (/ &
+        & 0.10552e-07_rb,0.77897e-05_rb,0.13927e-04_rb,0.19362e-04_rb,0.30661e-04_rb /)
+      kbo(:, 4,23, 1) = (/ &
+        & 0.10213e-07_rb,0.88398e-05_rb,0.15850e-04_rb,0.22024e-04_rb,0.34519e-04_rb /)
+      kbo(:, 5,23, 1) = (/ &
+        & 0.99627e-08_rb,0.99755e-05_rb,0.17919e-04_rb,0.24944e-04_rb,0.38730e-04_rb /)
+      kbo(:, 1,24, 1) = (/ &
+        & 0.93835e-08_rb,0.50505e-05_rb,0.90298e-05_rb,0.12450e-04_rb,0.19940e-04_rb /)
+      kbo(:, 2,24, 1) = (/ &
+        & 0.88722e-08_rb,0.57494e-05_rb,0.10287e-04_rb,0.14351e-04_rb,0.22450e-04_rb /)
+      kbo(:, 3,24, 1) = (/ &
+        & 0.84719e-08_rb,0.65374e-05_rb,0.11727e-04_rb,0.16329e-04_rb,0.25378e-04_rb /)
+      kbo(:, 4,24, 1) = (/ &
+        & 0.81924e-08_rb,0.74186e-05_rb,0.13334e-04_rb,0.18567e-04_rb,0.28560e-04_rb /)
+      kbo(:, 5,24, 1) = (/ &
+        & 0.79194e-08_rb,0.83719e-05_rb,0.15056e-04_rb,0.21003e-04_rb,0.31990e-04_rb /)
+      kbo(:, 1,25, 1) = (/ &
+        & 0.74535e-08_rb,0.42437e-05_rb,0.76220e-05_rb,0.10523e-04_rb,0.16531e-04_rb /)
+      kbo(:, 2,25, 1) = (/ &
+        & 0.70516e-08_rb,0.48300e-05_rb,0.86667e-05_rb,0.12089e-04_rb,0.18616e-04_rb /)
+      kbo(:, 3,25, 1) = (/ &
+        & 0.67746e-08_rb,0.54941e-05_rb,0.98927e-05_rb,0.13790e-04_rb,0.21024e-04_rb /)
+      kbo(:, 4,25, 1) = (/ &
+        & 0.65375e-08_rb,0.62357e-05_rb,0.11233e-04_rb,0.15662e-04_rb,0.23642e-04_rb /)
+      kbo(:, 5,25, 1) = (/ &
+        & 0.63001e-08_rb,0.70282e-05_rb,0.12669e-04_rb,0.17695e-04_rb,0.26478e-04_rb /)
+      kbo(:, 1,26, 1) = (/ &
+        & 0.59520e-08_rb,0.35739e-05_rb,0.64350e-05_rb,0.89330e-05_rb,0.13754e-04_rb /)
+      kbo(:, 2,26, 1) = (/ &
+        & 0.56644e-08_rb,0.40797e-05_rb,0.73291e-05_rb,0.10228e-04_rb,0.15489e-04_rb /)
+      kbo(:, 3,26, 1) = (/ &
+        & 0.54229e-08_rb,0.46366e-05_rb,0.83664e-05_rb,0.11659e-04_rb,0.17486e-04_rb /)
+      kbo(:, 4,26, 1) = (/ &
+        & 0.52155e-08_rb,0.52546e-05_rb,0.94829e-05_rb,0.13246e-04_rb,0.19643e-04_rb /)
+      kbo(:, 5,26, 1) = (/ &
+        & 0.50026e-08_rb,0.59134e-05_rb,0.10676e-04_rb,0.14933e-04_rb,0.21979e-04_rb /)
+      kbo(:, 1,27, 1) = (/ &
+        & 0.47347e-08_rb,0.30117e-05_rb,0.54223e-05_rb,0.75810e-05_rb,0.11424e-04_rb /)
+      kbo(:, 2,27, 1) = (/ &
+        & 0.45215e-08_rb,0.34421e-05_rb,0.61959e-05_rb,0.86619e-05_rb,0.12884e-04_rb /)
+      kbo(:, 3,27, 1) = (/ &
+        & 0.43334e-08_rb,0.39143e-05_rb,0.70702e-05_rb,0.98761e-05_rb,0.14543e-04_rb /)
+      kbo(:, 4,27, 1) = (/ &
+        & 0.41350e-08_rb,0.44275e-05_rb,0.80005e-05_rb,0.11195e-04_rb,0.16319e-04_rb /)
+      kbo(:, 5,27, 1) = (/ &
+        & 0.39653e-08_rb,0.49769e-05_rb,0.89931e-05_rb,0.12598e-04_rb,0.18160e-04_rb /)
+      kbo(:, 1,28, 1) = (/ &
+        & 0.37948e-08_rb,0.25415e-05_rb,0.45819e-05_rb,0.64336e-05_rb,0.94956e-05_rb /)
+      kbo(:, 2,28, 1) = (/ &
+        & 0.36083e-08_rb,0.29038e-05_rb,0.52426e-05_rb,0.73400e-05_rb,0.10719e-04_rb /)
+      kbo(:, 3,28, 1) = (/ &
+        & 0.34418e-08_rb,0.33017e-05_rb,0.59733e-05_rb,0.83575e-05_rb,0.12066e-04_rb /)
+      kbo(:, 4,28, 1) = (/ &
+        & 0.32636e-08_rb,0.37297e-05_rb,0.67493e-05_rb,0.94558e-05_rb,0.13468e-04_rb /)
+      kbo(:, 5,28, 1) = (/ &
+        & 0.31340e-08_rb,0.41873e-05_rb,0.75759e-05_rb,0.10620e-04_rb,0.14953e-04_rb /)
+      kbo(:, 1,29, 1) = (/ &
+        & 0.30121e-08_rb,0.21536e-05_rb,0.38841e-05_rb,0.54491e-05_rb,0.79090e-05_rb /)
+      kbo(:, 2,29, 1) = (/ &
+        & 0.28775e-08_rb,0.24557e-05_rb,0.44467e-05_rb,0.62247e-05_rb,0.89148e-05_rb /)
+      kbo(:, 3,29, 1) = (/ &
+        & 0.27196e-08_rb,0.27900e-05_rb,0.50543e-05_rb,0.70782e-05_rb,0.99943e-05_rb /)
+      kbo(:, 4,29, 1) = (/ &
+        & 0.25798e-08_rb,0.31473e-05_rb,0.57011e-05_rb,0.79936e-05_rb,0.11135e-04_rb /)
+      kbo(:, 5,29, 1) = (/ &
+        & 0.24785e-08_rb,0.35287e-05_rb,0.63894e-05_rb,0.89624e-05_rb,0.12357e-04_rb /)
+      kbo(:, 1,30, 1) = (/ &
+        & 0.24034e-08_rb,0.18231e-05_rb,0.32945e-05_rb,0.46183e-05_rb,0.65837e-05_rb /)
+      kbo(:, 2,30, 1) = (/ &
+        & 0.22702e-08_rb,0.20766e-05_rb,0.37671e-05_rb,0.52735e-05_rb,0.73875e-05_rb /)
+      kbo(:, 3,30, 1) = (/ &
+        & 0.21551e-08_rb,0.23559e-05_rb,0.42744e-05_rb,0.59932e-05_rb,0.82665e-05_rb /)
+      kbo(:, 4,30, 1) = (/ &
+        & 0.20397e-08_rb,0.26541e-05_rb,0.48137e-05_rb,0.67549e-05_rb,0.92071e-05_rb /)
+      kbo(:, 5,30, 1) = (/ &
+        & 0.19208e-08_rb,0.29711e-05_rb,0.53880e-05_rb,0.75598e-05_rb,0.10211e-04_rb /)
+      kbo(:, 1,31, 1) = (/ &
+        & 0.19116e-08_rb,0.15454e-05_rb,0.27957e-05_rb,0.39228e-05_rb,0.54664e-05_rb /)
+      kbo(:, 2,31, 1) = (/ &
+        & 0.18045e-08_rb,0.17579e-05_rb,0.31938e-05_rb,0.44780e-05_rb,0.61205e-05_rb /)
+      kbo(:, 3,31, 1) = (/ &
+        & 0.17015e-08_rb,0.19911e-05_rb,0.36167e-05_rb,0.50753e-05_rb,0.68523e-05_rb /)
+      kbo(:, 4,31, 1) = (/ &
+        & 0.16042e-08_rb,0.22393e-05_rb,0.40666e-05_rb,0.57094e-05_rb,0.76260e-05_rb /)
+      kbo(:, 5,31, 1) = (/ &
+        & 0.15189e-08_rb,0.25035e-05_rb,0.45439e-05_rb,0.63785e-05_rb,0.84562e-05_rb /)
+      kbo(:, 1,32, 1) = (/ &
+        & 0.15134e-08_rb,0.13080e-05_rb,0.23763e-05_rb,0.33360e-05_rb,0.45382e-05_rb /)
+      kbo(:, 2,32, 1) = (/ &
+        & 0.14254e-08_rb,0.14886e-05_rb,0.27086e-05_rb,0.37995e-05_rb,0.50938e-05_rb /)
+      kbo(:, 3,32, 1) = (/ &
+        & 0.13478e-08_rb,0.16831e-05_rb,0.30605e-05_rb,0.42971e-05_rb,0.56933e-05_rb /)
+      kbo(:, 4,32, 1) = (/ &
+        & 0.12726e-08_rb,0.18904e-05_rb,0.34353e-05_rb,0.48247e-05_rb,0.63353e-05_rb /)
+      kbo(:, 5,32, 1) = (/ &
+        & 0.12027e-08_rb,0.21098e-05_rb,0.38318e-05_rb,0.53809e-05_rb,0.70302e-05_rb /)
+      kbo(:, 1,33, 1) = (/ &
+        & 0.12024e-08_rb,0.11084e-05_rb,0.20193e-05_rb,0.28310e-05_rb,0.37849e-05_rb /)
+      kbo(:, 2,33, 1) = (/ &
+        & 0.11338e-08_rb,0.12605e-05_rb,0.22949e-05_rb,0.32221e-05_rb,0.42458e-05_rb /)
+      kbo(:, 3,33, 1) = (/ &
+        & 0.10678e-08_rb,0.14231e-05_rb,0.25881e-05_rb,0.36365e-05_rb,0.47460e-05_rb /)
+      kbo(:, 4,33, 1) = (/ &
+        & 0.10052e-08_rb,0.15963e-05_rb,0.29010e-05_rb,0.40728e-05_rb,0.52804e-05_rb /)
+      kbo(:, 5,33, 1) = (/ &
+        & 0.95946e-09_rb,0.17779e-05_rb,0.32301e-05_rb,0.45381e-05_rb,0.58547e-05_rb /)
+      kbo(:, 1,34, 1) = (/ &
+        & 0.95750e-09_rb,0.93665e-06_rb,0.17068e-05_rb,0.23954e-05_rb,0.31611e-05_rb /)
+      kbo(:, 2,34, 1) = (/ &
+        & 0.89991e-09_rb,0.10636e-05_rb,0.19366e-05_rb,0.27209e-05_rb,0.35440e-05_rb /)
+      kbo(:, 3,34, 1) = (/ &
+        & 0.84944e-09_rb,0.11994e-05_rb,0.21804e-05_rb,0.30651e-05_rb,0.39600e-05_rb /)
+      kbo(:, 4,34, 1) = (/ &
+        & 0.80863e-09_rb,0.13431e-05_rb,0.24406e-05_rb,0.34285e-05_rb,0.44045e-05_rb /)
+      kbo(:, 5,34, 1) = (/ &
+        & 0.76697e-09_rb,0.14937e-05_rb,0.27138e-05_rb,0.38153e-05_rb,0.48739e-05_rb /)
+      kbo(:, 1,35, 1) = (/ &
+        & 0.76931e-09_rb,0.78145e-06_rb,0.14243e-05_rb,0.20004e-05_rb,0.26088e-05_rb /)
+      kbo(:, 2,35, 1) = (/ &
+        & 0.72554e-09_rb,0.88652e-06_rb,0.16140e-05_rb,0.22684e-05_rb,0.29255e-05_rb /)
+      kbo(:, 3,35, 1) = (/ &
+        & 0.68677e-09_rb,0.99872e-06_rb,0.18159e-05_rb,0.25537e-05_rb,0.32672e-05_rb /)
+      kbo(:, 4,35, 1) = (/ &
+        & 0.64986e-09_rb,0.11178e-05_rb,0.20312e-05_rb,0.28542e-05_rb,0.36304e-05_rb /)
+      kbo(:, 5,35, 1) = (/ &
+        & 0.62177e-09_rb,0.12420e-05_rb,0.22566e-05_rb,0.31737e-05_rb,0.40187e-05_rb /)
+      kbo(:, 1,36, 1) = (/ &
+        & 0.62245e-09_rb,0.64235e-06_rb,0.11709e-05_rb,0.16445e-05_rb,0.21213e-05_rb /)
+      kbo(:, 2,36, 1) = (/ &
+        & 0.58696e-09_rb,0.72876e-06_rb,0.13266e-05_rb,0.18646e-05_rb,0.23798e-05_rb /)
+      kbo(:, 3,36, 1) = (/ &
+        & 0.55693e-09_rb,0.82089e-06_rb,0.14927e-05_rb,0.20991e-05_rb,0.26600e-05_rb /)
+      kbo(:, 4,36, 1) = (/ &
+        & 0.52934e-09_rb,0.91874e-06_rb,0.16695e-05_rb,0.23457e-05_rb,0.29575e-05_rb /)
+      kbo(:, 5,36, 1) = (/ &
+        & 0.50585e-09_rb,0.10210e-05_rb,0.18549e-05_rb,0.26085e-05_rb,0.32758e-05_rb /)
+      kbo(:, 1,37, 1) = (/ &
+        & 0.51156e-09_rb,0.51872e-06_rb,0.94550e-06_rb,0.13287e-05_rb,0.17089e-05_rb /)
+      kbo(:, 2,37, 1) = (/ &
+        & 0.48258e-09_rb,0.58908e-06_rb,0.10722e-05_rb,0.15079e-05_rb,0.19187e-05_rb /)
+      kbo(:, 3,37, 1) = (/ &
+        & 0.45694e-09_rb,0.66421e-06_rb,0.12078e-05_rb,0.16992e-05_rb,0.21456e-05_rb /)
+      kbo(:, 4,37, 1) = (/ &
+        & 0.43502e-09_rb,0.74408e-06_rb,0.13520e-05_rb,0.19000e-05_rb,0.23876e-05_rb /)
+      kbo(:, 5,37, 1) = (/ &
+        & 0.41517e-09_rb,0.82758e-06_rb,0.15034e-05_rb,0.21146e-05_rb,0.26473e-05_rb /)
+      kbo(:, 1,38, 1) = (/ &
+        & 0.42094e-09_rb,0.41837e-06_rb,0.76260e-06_rb,0.10719e-05_rb,0.13756e-05_rb /)
+      kbo(:, 2,38, 1) = (/ &
+        & 0.39700e-09_rb,0.47557e-06_rb,0.86572e-06_rb,0.12180e-05_rb,0.15462e-05_rb /)
+      kbo(:, 3,38, 1) = (/ &
+        & 0.37563e-09_rb,0.53684e-06_rb,0.97613e-06_rb,0.13738e-05_rb,0.17289e-05_rb /)
+      kbo(:, 4,38, 1) = (/ &
+        & 0.35783e-09_rb,0.60193e-06_rb,0.10936e-05_rb,0.15374e-05_rb,0.19252e-05_rb /)
+      kbo(:, 5,38, 1) = (/ &
+        & 0.34107e-09_rb,0.67014e-06_rb,0.12173e-05_rb,0.17127e-05_rb,0.21369e-05_rb /)
+      kbo(:, 1,39, 1) = (/ &
+        & 0.34635e-09_rb,0.33732e-06_rb,0.61492e-06_rb,0.86447e-06_rb,0.11055e-05_rb /)
+      kbo(:, 2,39, 1) = (/ &
+        & 0.32654e-09_rb,0.38383e-06_rb,0.69869e-06_rb,0.98355e-06_rb,0.12440e-05_rb /)
+      kbo(:, 3,39, 1) = (/ &
+        & 0.30909e-09_rb,0.43371e-06_rb,0.78869e-06_rb,0.11105e-05_rb,0.13924e-05_rb /)
+      kbo(:, 4,39, 1) = (/ &
+        & 0.29425e-09_rb,0.48681e-06_rb,0.88446e-06_rb,0.12433e-05_rb,0.15526e-05_rb /)
+      kbo(:, 5,39, 1) = (/ &
+        & 0.28000e-09_rb,0.54256e-06_rb,0.98550e-06_rb,0.13868e-05_rb,0.17238e-05_rb /)
+      kbo(:, 1,40, 1) = (/ &
+        & 0.28731e-09_rb,0.26843e-06_rb,0.48915e-06_rb,0.68810e-06_rb,0.87867e-06_rb /)
+      kbo(:, 2,40, 1) = (/ &
+        & 0.27089e-09_rb,0.30600e-06_rb,0.55698e-06_rb,0.78430e-06_rb,0.99075e-06_rb /)
+      kbo(:, 3,40, 1) = (/ &
+        & 0.25607e-09_rb,0.34624e-06_rb,0.62966e-06_rb,0.88677e-06_rb,0.11107e-05_rb /)
+      kbo(:, 4,40, 1) = (/ &
+        & 0.24372e-09_rb,0.38926e-06_rb,0.70732e-06_rb,0.99430e-06_rb,0.12402e-05_rb /)
+      kbo(:, 5,40, 1) = (/ &
+        & 0.23176e-09_rb,0.43465e-06_rb,0.78943e-06_rb,0.11107e-05_rb,0.13787e-05_rb /)
+      kbo(:, 1,41, 1) = (/ &
+        & 0.23903e-09_rb,0.21323e-06_rb,0.38855e-06_rb,0.54701e-06_rb,0.69781e-06_rb /)
+      kbo(:, 2,41, 1) = (/ &
+        & 0.22487e-09_rb,0.24332e-06_rb,0.44328e-06_rb,0.62397e-06_rb,0.78774e-06_rb /)
+      kbo(:, 3,41, 1) = (/ &
+        & 0.21236e-09_rb,0.27581e-06_rb,0.50170e-06_rb,0.70664e-06_rb,0.88427e-06_rb /)
+      kbo(:, 4,41, 1) = (/ &
+        & 0.20204e-09_rb,0.31066e-06_rb,0.56435e-06_rb,0.79384e-06_rb,0.98899e-06_rb /)
+      kbo(:, 5,41, 1) = (/ &
+        & 0.19209e-09_rb,0.34753e-06_rb,0.63119e-06_rb,0.88787e-06_rb,0.11007e-05_rb /)
+      kbo(:, 1,42, 1) = (/ &
+        & 0.19868e-09_rb,0.16950e-06_rb,0.30885e-06_rb,0.43426e-06_rb,0.55336e-06_rb /)
+      kbo(:, 2,42, 1) = (/ &
+        & 0.18681e-09_rb,0.19338e-06_rb,0.35250e-06_rb,0.49622e-06_rb,0.62628e-06_rb /)
+      kbo(:, 3,42, 1) = (/ &
+        & 0.17649e-09_rb,0.21963e-06_rb,0.39950e-06_rb,0.56269e-06_rb,0.70396e-06_rb /)
+      kbo(:, 4,42, 1) = (/ &
+        & 0.16753e-09_rb,0.24778e-06_rb,0.45013e-06_rb,0.63342e-06_rb,0.78770e-06_rb /)
+      kbo(:, 5,42, 1) = (/ &
+        & 0.15930e-09_rb,0.27772e-06_rb,0.50439e-06_rb,0.70945e-06_rb,0.87783e-06_rb /)
+      kbo(:, 1,43, 1) = (/ &
+        & 0.16577e-09_rb,0.13332e-06_rb,0.24323e-06_rb,0.34184e-06_rb,0.43594e-06_rb /)
+      kbo(:, 2,43, 1) = (/ &
+        & 0.15597e-09_rb,0.15245e-06_rb,0.27801e-06_rb,0.39130e-06_rb,0.49460e-06_rb /)
+      kbo(:, 3,43, 1) = (/ &
+        & 0.14721e-09_rb,0.17354e-06_rb,0.31584e-06_rb,0.44499e-06_rb,0.55705e-06_rb /)
+      kbo(:, 4,43, 1) = (/ &
+        & 0.13936e-09_rb,0.19625e-06_rb,0.35661e-06_rb,0.50189e-06_rb,0.62398e-06_rb /)
+      kbo(:, 5,43, 1) = (/ &
+        & 0.13255e-09_rb,0.22044e-06_rb,0.40034e-06_rb,0.56308e-06_rb,0.69634e-06_rb /)
+      kbo(:, 1,44, 1) = (/ &
+        & 0.13861e-09_rb,0.10445e-06_rb,0.19058e-06_rb,0.26841e-06_rb,0.34233e-06_rb /)
+      kbo(:, 2,44, 1) = (/ &
+        & 0.13027e-09_rb,0.11974e-06_rb,0.21836e-06_rb,0.30744e-06_rb,0.38897e-06_rb /)
+      kbo(:, 3,44, 1) = (/ &
+        & 0.12290e-09_rb,0.13662e-06_rb,0.24864e-06_rb,0.35065e-06_rb,0.43916e-06_rb /)
+      kbo(:, 4,44, 1) = (/ &
+        & 0.11611e-09_rb,0.15484e-06_rb,0.28155e-06_rb,0.39627e-06_rb,0.49273e-06_rb /)
+      kbo(:, 5,44, 1) = (/ &
+        & 0.11042e-09_rb,0.17431e-06_rb,0.31666e-06_rb,0.44540e-06_rb,0.55087e-06_rb /)
+      kbo(:, 1,45, 1) = (/ &
+        & 0.11581e-09_rb,0.81915e-07_rb,0.14915e-06_rb,0.21140e-06_rb,0.26987e-06_rb /)
+      kbo(:, 2,45, 1) = (/ &
+        & 0.10906e-09_rb,0.94077e-07_rb,0.17143e-06_rb,0.24173e-06_rb,0.30586e-06_rb /)
+      kbo(:, 3,45, 1) = (/ &
+        & 0.10254e-09_rb,0.10745e-06_rb,0.19582e-06_rb,0.27606e-06_rb,0.34593e-06_rb /)
+      kbo(:, 4,45, 1) = (/ &
+        & 0.96757e-10_rb,0.12205e-06_rb,0.22201e-06_rb,0.31271e-06_rb,0.38876e-06_rb /)
+      kbo(:, 5,45, 1) = (/ &
+        & 0.91979e-10_rb,0.13772e-06_rb,0.25015e-06_rb,0.35208e-06_rb,0.43561e-06_rb /)
+      kbo(:, 1,46, 1) = (/ &
+        & 0.96889e-10_rb,0.64116e-07_rb,0.11708e-06_rb,0.16455e-06_rb,0.21036e-06_rb /)
+      kbo(:, 2,46, 1) = (/ &
+        & 0.91281e-10_rb,0.73641e-07_rb,0.13436e-06_rb,0.18895e-06_rb,0.23951e-06_rb /)
+      kbo(:, 3,46, 1) = (/ &
+        & 0.85830e-10_rb,0.84161e-07_rb,0.15360e-06_rb,0.21643e-06_rb,0.27176e-06_rb /)
+      kbo(:, 4,46, 1) = (/ &
+        & 0.81048e-10_rb,0.95867e-07_rb,0.17447e-06_rb,0.24582e-06_rb,0.30613e-06_rb /)
+      kbo(:, 5,46, 1) = (/ &
+        & 0.76712e-10_rb,0.10844e-06_rb,0.19706e-06_rb,0.27743e-06_rb,0.34329e-06_rb /)
+      kbo(:, 1,47, 1) = (/ &
+        & 0.81516e-10_rb,0.49698e-07_rb,0.90596e-07_rb,0.12727e-06_rb,0.16313e-06_rb /)
+      kbo(:, 2,47, 1) = (/ &
+        & 0.76609e-10_rb,0.57132e-07_rb,0.10433e-06_rb,0.14694e-06_rb,0.18672e-06_rb /)
+      kbo(:, 3,47, 1) = (/ &
+        & 0.71975e-10_rb,0.65534e-07_rb,0.11955e-06_rb,0.16850e-06_rb,0.21215e-06_rb /)
+      kbo(:, 4,47, 1) = (/ &
+        & 0.67908e-10_rb,0.74829e-07_rb,0.13619e-06_rb,0.19209e-06_rb,0.23959e-06_rb /)
+      kbo(:, 5,47, 1) = (/ &
+        & 0.64117e-10_rb,0.84872e-07_rb,0.15433e-06_rb,0.21733e-06_rb,0.26915e-06_rb /)
+      kbo(:, 1,48, 1) = (/ &
+        & 0.68429e-10_rb,0.38715e-07_rb,0.69854e-07_rb,0.98377e-07_rb,0.12619e-06_rb /)
+      kbo(:, 2,48, 1) = (/ &
+        & 0.64236e-10_rb,0.44375e-07_rb,0.80895e-07_rb,0.11471e-06_rb,0.14604e-06_rb /)
+      kbo(:, 3,48, 1) = (/ &
+        & 0.60510e-10_rb,0.51025e-07_rb,0.92977e-07_rb,0.13123e-06_rb,0.16542e-06_rb /)
+      kbo(:, 4,48, 1) = (/ &
+        & 0.56851e-10_rb,0.58345e-07_rb,0.10633e-06_rb,0.14991e-06_rb,0.18745e-06_rb /)
+      kbo(:, 5,48, 1) = (/ &
+        & 0.53674e-10_rb,0.66346e-07_rb,0.12070e-06_rb,0.17001e-06_rb,0.21095e-06_rb /)
+      kbo(:, 1,49, 1) = (/ &
+        & 0.57387e-10_rb,0.29800e-07_rb,0.53817e-07_rb,0.75906e-07_rb,0.97710e-07_rb /)
+      kbo(:, 2,49, 1) = (/ &
+        & 0.53960e-10_rb,0.34500e-07_rb,0.63205e-07_rb,0.88655e-07_rb,0.11310e-06_rb /)
+      kbo(:, 3,49, 1) = (/ &
+        & 0.50740e-10_rb,0.39684e-07_rb,0.72502e-07_rb,0.10193e-06_rb,0.12892e-06_rb /)
+      kbo(:, 4,49, 1) = (/ &
+        & 0.47710e-10_rb,0.45418e-07_rb,0.82941e-07_rb,0.11692e-06_rb,0.14649e-06_rb /)
+      kbo(:, 5,49, 1) = (/ &
+        & 0.45050e-10_rb,0.51797e-07_rb,0.94320e-07_rb,0.13296e-06_rb,0.16526e-06_rb /)
+      kbo(:, 1,50, 1) = (/ &
+        & 0.48010e-10_rb,0.22999e-07_rb,0.41682e-07_rb,0.58975e-07_rb,0.75898e-07_rb /)
+      kbo(:, 2,50, 1) = (/ &
+        & 0.45282e-10_rb,0.26917e-07_rb,0.48929e-07_rb,0.68765e-07_rb,0.87983e-07_rb /)
+      kbo(:, 3,50, 1) = (/ &
+        & 0.42531e-10_rb,0.30879e-07_rb,0.56406e-07_rb,0.79593e-07_rb,0.10109e-06_rb /)
+      kbo(:, 4,50, 1) = (/ &
+        & 0.40002e-10_rb,0.35470e-07_rb,0.64706e-07_rb,0.91312e-07_rb,0.11473e-06_rb /)
+      kbo(:, 5,50, 1) = (/ &
+        & 0.37674e-10_rb,0.40542e-07_rb,0.73834e-07_rb,0.10412e-06_rb,0.12967e-06_rb /)
+      kbo(:, 1,51, 1) = (/ &
+        & 0.40094e-10_rb,0.17810e-07_rb,0.32412e-07_rb,0.45985e-07_rb,0.59041e-07_rb /)
+      kbo(:, 2,51, 1) = (/ &
+        & 0.37901e-10_rb,0.21013e-07_rb,0.37921e-07_rb,0.53479e-07_rb,0.68479e-07_rb /)
+      kbo(:, 3,51, 1) = (/ &
+        & 0.35584e-10_rb,0.24100e-07_rb,0.43988e-07_rb,0.62409e-07_rb,0.79311e-07_rb /)
+      kbo(:, 4,51, 1) = (/ &
+        & 0.33516e-10_rb,0.27737e-07_rb,0.50544e-07_rb,0.71436e-07_rb,0.89912e-07_rb /)
+      kbo(:, 5,51, 1) = (/ &
+        & 0.31503e-10_rb,0.31738e-07_rb,0.57889e-07_rb,0.81591e-07_rb,0.10195e-06_rb /)
+      kbo(:, 1,52, 1) = (/ &
+        & 0.33462e-10_rb,0.13829e-07_rb,0.25227e-07_rb,0.35498e-07_rb,0.45793e-07_rb /)
+      kbo(:, 2,52, 1) = (/ &
+        & 0.31703e-10_rb,0.16272e-07_rb,0.29393e-07_rb,0.41476e-07_rb,0.53340e-07_rb /)
+      kbo(:, 3,52, 1) = (/ &
+        & 0.29856e-10_rb,0.18836e-07_rb,0.34537e-07_rb,0.48490e-07_rb,0.61791e-07_rb /)
+      kbo(:, 4,52, 1) = (/ &
+        & 0.28038e-10_rb,0.21684e-07_rb,0.39578e-07_rb,0.55751e-07_rb,0.70422e-07_rb /)
+      kbo(:, 5,52, 1) = (/ &
+        & 0.26375e-10_rb,0.24824e-07_rb,0.45389e-07_rb,0.63898e-07_rb,0.80071e-07_rb /)
+      kbo(:, 1,53, 1) = (/ &
+        & 0.27859e-10_rb,0.10757e-07_rb,0.19436e-07_rb,0.27368e-07_rb,0.35401e-07_rb /)
+      kbo(:, 2,53, 1) = (/ &
+        & 0.26482e-10_rb,0.12575e-07_rb,0.22786e-07_rb,0.32275e-07_rb,0.41504e-07_rb /)
+      kbo(:, 3,53, 1) = (/ &
+        & 0.25013e-10_rb,0.14718e-07_rb,0.26786e-07_rb,0.37657e-07_rb,0.48150e-07_rb /)
+      kbo(:, 4,53, 1) = (/ &
+        & 0.23481e-10_rb,0.16890e-07_rb,0.30875e-07_rb,0.43561e-07_rb,0.55284e-07_rb /)
+      kbo(:, 5,53, 1) = (/ &
+        & 0.22103e-10_rb,0.19405e-07_rb,0.35435e-07_rb,0.50046e-07_rb,0.62824e-07_rb /)
+      kbo(:, 1,54, 1) = (/ &
+        & 0.23262e-10_rb,0.83534e-08_rb,0.15033e-07_rb,0.21142e-07_rb,0.27491e-07_rb /)
+      kbo(:, 2,54, 1) = (/ &
+        & 0.22075e-10_rb,0.97821e-08_rb,0.17791e-07_rb,0.25298e-07_rb,0.32447e-07_rb /)
+      kbo(:, 3,54, 1) = (/ &
+        & 0.20887e-10_rb,0.11541e-07_rb,0.20852e-07_rb,0.29392e-07_rb,0.37643e-07_rb /)
+      kbo(:, 4,54, 1) = (/ &
+        & 0.19629e-10_rb,0.13228e-07_rb,0.24164e-07_rb,0.34330e-07_rb,0.43622e-07_rb /)
+      kbo(:, 5,54, 1) = (/ &
+        & 0.18475e-10_rb,0.15233e-07_rb,0.27779e-07_rb,0.39304e-07_rb,0.49432e-07_rb /)
+      kbo(:, 1,55, 1) = (/ &
+        & 0.19360e-10_rb,0.64888e-08_rb,0.11644e-07_rb,0.16387e-07_rb,0.21340e-07_rb /)
+      kbo(:, 2,55, 1) = (/ &
+        & 0.18372e-10_rb,0.76367e-08_rb,0.13947e-07_rb,0.19672e-07_rb,0.25401e-07_rb /)
+      kbo(:, 3,55, 1) = (/ &
+        & 0.17421e-10_rb,0.90083e-08_rb,0.16275e-07_rb,0.22971e-07_rb,0.29522e-07_rb /)
+      kbo(:, 4,55, 1) = (/ &
+        & 0.16413e-10_rb,0.10402e-07_rb,0.19081e-07_rb,0.26854e-07_rb,0.34233e-07_rb /)
+      kbo(:, 5,55, 1) = (/ &
+        & 0.15417e-10_rb,0.11984e-07_rb,0.21835e-07_rb,0.30856e-07_rb,0.38954e-07_rb /)
+      kbo(:, 1,56, 1) = (/ &
+        & 0.16094e-10_rb,0.50174e-08_rb,0.90283e-08_rb,0.12718e-07_rb,0.16576e-07_rb /)
+      kbo(:, 2,56, 1) = (/ &
+        & 0.15265e-10_rb,0.59747e-08_rb,0.10850e-07_rb,0.15297e-07_rb,0.19783e-07_rb /)
+      kbo(:, 3,56, 1) = (/ &
+        & 0.14515e-10_rb,0.70142e-08_rb,0.12699e-07_rb,0.17960e-07_rb,0.23171e-07_rb /)
+      kbo(:, 4,56, 1) = (/ &
+        & 0.13715e-10_rb,0.81626e-08_rb,0.14940e-07_rb,0.20994e-07_rb,0.26865e-07_rb /)
+      kbo(:, 5,56, 1) = (/ &
+        & 0.12880e-10_rb,0.94054e-08_rb,0.17206e-07_rb,0.24221e-07_rb,0.30739e-07_rb /)
+      kbo(:, 1,57, 1) = (/ &
+        & 0.13368e-10_rb,0.38838e-08_rb,0.69991e-08_rb,0.98372e-08_rb,0.12821e-07_rb /)
+      kbo(:, 2,57, 1) = (/ &
+        & 0.12743e-10_rb,0.46751e-08_rb,0.84243e-08_rb,0.11856e-07_rb,0.15406e-07_rb /)
+      kbo(:, 3,57, 1) = (/ &
+        & 0.12087e-10_rb,0.54642e-08_rb,0.99295e-08_rb,0.14069e-07_rb,0.18144e-07_rb /)
+      kbo(:, 4,57, 1) = (/ &
+        & 0.11442e-10_rb,0.64461e-08_rb,0.11657e-07_rb,0.16407e-07_rb,0.21072e-07_rb /)
+      kbo(:, 5,57, 1) = (/ &
+        & 0.10759e-10_rb,0.73711e-08_rb,0.13478e-07_rb,0.19106e-07_rb,0.24314e-07_rb /)
+      kbo(:, 1,58, 1) = (/ &
+        & 0.11081e-10_rb,0.30148e-08_rb,0.54165e-08_rb,0.76421e-08_rb,0.99496e-08_rb /)
+      kbo(:, 2,58, 1) = (/ &
+        & 0.10598e-10_rb,0.36337e-08_rb,0.65375e-08_rb,0.92041e-08_rb,0.12025e-07_rb /)
+      kbo(:, 3,58, 1) = (/ &
+        & 0.10052e-10_rb,0.42712e-08_rb,0.77841e-08_rb,0.11053e-07_rb,0.14306e-07_rb /)
+      kbo(:, 4,58, 1) = (/ &
+        & 0.95308e-11_rb,0.50429e-08_rb,0.91133e-08_rb,0.12865e-07_rb,0.16554e-07_rb /)
+      kbo(:, 5,58, 1) = (/ &
+        & 0.89795e-11_rb,0.57979e-08_rb,0.10615e-07_rb,0.15051e-07_rb,0.19216e-07_rb /)
+      kbo(:, 1,59, 1) = (/ &
+        & 0.91194e-11_rb,0.24214e-08_rb,0.43496e-08_rb,0.61531e-08_rb,0.80136e-08_rb /)
+      kbo(:, 2,59, 1) = (/ &
+        & 0.87287e-11_rb,0.29232e-08_rb,0.52535e-08_rb,0.73966e-08_rb,0.96830e-08_rb /)
+      kbo(:, 3,59, 1) = (/ &
+        & 0.82765e-11_rb,0.34412e-08_rb,0.62788e-08_rb,0.88992e-08_rb,0.11534e-07_rb /)
+      kbo(:, 4,59, 1) = (/ &
+        & 0.78605e-11_rb,0.40632e-08_rb,0.73454e-08_rb,0.10382e-07_rb,0.13372e-07_rb /)
+      kbo(:, 5,59, 1) = (/ &
+        & 0.74127e-11_rb,0.46801e-08_rb,0.85910e-08_rb,0.12137e-07_rb,0.15530e-07_rb /)
+      kbo(:, 1,13, 2) = (/ &
+        & 0.17576e-05_rb,0.22518e-03_rb,0.36398e-03_rb,0.46505e-03_rb,0.97920e-03_rb /)
+      kbo(:, 2,13, 2) = (/ &
+        & 0.19522e-05_rb,0.25688e-03_rb,0.42724e-03_rb,0.54293e-03_rb,0.11261e-02_rb /)
+      kbo(:, 3,13, 2) = (/ &
+        & 0.21134e-05_rb,0.29382e-03_rb,0.49778e-03_rb,0.63186e-03_rb,0.12961e-02_rb /)
+      kbo(:, 4,13, 2) = (/ &
+        & 0.22680e-05_rb,0.33585e-03_rb,0.57095e-03_rb,0.73149e-03_rb,0.14857e-02_rb /)
+      kbo(:, 5,13, 2) = (/ &
+        & 0.23939e-05_rb,0.38326e-03_rb,0.64688e-03_rb,0.84120e-03_rb,0.16815e-02_rb /)
+      kbo(:, 1,14, 2) = (/ &
+        & 0.13866e-05_rb,0.18816e-03_rb,0.30541e-03_rb,0.39082e-03_rb,0.80614e-03_rb /)
+      kbo(:, 2,14, 2) = (/ &
+        & 0.14825e-05_rb,0.21525e-03_rb,0.35906e-03_rb,0.45772e-03_rb,0.92976e-03_rb /)
+      kbo(:, 3,14, 2) = (/ &
+        & 0.16428e-05_rb,0.24664e-03_rb,0.41891e-03_rb,0.53341e-03_rb,0.10689e-02_rb /)
+      kbo(:, 4,14, 2) = (/ &
+        & 0.17807e-05_rb,0.28218e-03_rb,0.48021e-03_rb,0.61861e-03_rb,0.12236e-02_rb /)
+      kbo(:, 5,14, 2) = (/ &
+        & 0.18685e-05_rb,0.32204e-03_rb,0.54385e-03_rb,0.71223e-03_rb,0.13844e-02_rb /)
+      kbo(:, 1,15, 2) = (/ &
+        & 0.10483e-05_rb,0.15699e-03_rb,0.25571e-03_rb,0.32803e-03_rb,0.65873e-03_rb /)
+      kbo(:, 2,15, 2) = (/ &
+        & 0.11310e-05_rb,0.18016e-03_rb,0.30071e-03_rb,0.38534e-03_rb,0.75916e-03_rb /)
+      kbo(:, 3,15, 2) = (/ &
+        & 0.12330e-05_rb,0.20672e-03_rb,0.35181e-03_rb,0.44940e-03_rb,0.87041e-03_rb /)
+      kbo(:, 4,15, 2) = (/ &
+        & 0.13426e-05_rb,0.23650e-03_rb,0.40292e-03_rb,0.52246e-03_rb,0.99445e-03_rb /)
+      kbo(:, 5,15, 2) = (/ &
+        & 0.14514e-05_rb,0.26979e-03_rb,0.45684e-03_rb,0.60195e-03_rb,0.11173e-02_rb /)
+      kbo(:, 1,16, 2) = (/ &
+        & 0.80663e-06_rb,0.13098e-03_rb,0.21382e-03_rb,0.27539e-03_rb,0.53727e-03_rb /)
+      kbo(:, 2,16, 2) = (/ &
+        & 0.85747e-06_rb,0.15058e-03_rb,0.25201e-03_rb,0.32406e-03_rb,0.61573e-03_rb /)
+      kbo(:, 3,16, 2) = (/ &
+        & 0.92435e-06_rb,0.17283e-03_rb,0.29542e-03_rb,0.37879e-03_rb,0.70140e-03_rb /)
+      kbo(:, 4,16, 2) = (/ &
+        & 0.99747e-06_rb,0.19793e-03_rb,0.33807e-03_rb,0.44076e-03_rb,0.79468e-03_rb /)
+      kbo(:, 5,16, 2) = (/ &
+        & 0.10819e-05_rb,0.22582e-03_rb,0.38354e-03_rb,0.50663e-03_rb,0.88980e-03_rb /)
+      kbo(:, 1,17, 2) = (/ &
+        & 0.61772e-06_rb,0.10941e-03_rb,0.17926e-03_rb,0.23144e-03_rb,0.43554e-03_rb /)
+      kbo(:, 2,17, 2) = (/ &
+        & 0.65718e-06_rb,0.12576e-03_rb,0.21174e-03_rb,0.27275e-03_rb,0.49750e-03_rb /)
+      kbo(:, 3,17, 2) = (/ &
+        & 0.69949e-06_rb,0.14461e-03_rb,0.24852e-03_rb,0.31937e-03_rb,0.56462e-03_rb /)
+      kbo(:, 4,17, 2) = (/ &
+        & 0.75387e-06_rb,0.16580e-03_rb,0.28374e-03_rb,0.37213e-03_rb,0.63507e-03_rb /)
+      kbo(:, 5,17, 2) = (/ &
+        & 0.79715e-06_rb,0.18926e-03_rb,0.32236e-03_rb,0.42588e-03_rb,0.70728e-03_rb /)
+      kbo(:, 1,18, 2) = (/ &
+        & 0.47188e-06_rb,0.91952e-04_rb,0.15100e-03_rb,0.19495e-03_rb,0.35543e-03_rb /)
+      kbo(:, 2,18, 2) = (/ &
+        & 0.50937e-06_rb,0.10513e-03_rb,0.17852e-03_rb,0.22999e-03_rb,0.40250e-03_rb /)
+      kbo(:, 3,18, 2) = (/ &
+        & 0.54206e-06_rb,0.12130e-03_rb,0.20959e-03_rb,0.26979e-03_rb,0.45662e-03_rb /)
+      kbo(:, 4,18, 2) = (/ &
+        & 0.57328e-06_rb,0.13936e-03_rb,0.23815e-03_rb,0.31451e-03_rb,0.51113e-03_rb /)
+      kbo(:, 5,18, 2) = (/ &
+        & 0.61077e-06_rb,0.15916e-03_rb,0.27075e-03_rb,0.35967e-03_rb,0.57076e-03_rb /)
+      kbo(:, 1,19, 2) = (/ &
+        & 0.36005e-06_rb,0.76984e-04_rb,0.12743e-03_rb,0.16422e-03_rb,0.28885e-03_rb /)
+      kbo(:, 2,19, 2) = (/ &
+        & 0.38988e-06_rb,0.88029e-04_rb,0.15067e-03_rb,0.19396e-03_rb,0.32854e-03_rb /)
+      kbo(:, 3,19, 2) = (/ &
+        & 0.41989e-06_rb,0.10172e-03_rb,0.17539e-03_rb,0.22784e-03_rb,0.37045e-03_rb /)
+      kbo(:, 4,19, 2) = (/ &
+        & 0.44092e-06_rb,0.11727e-03_rb,0.20004e-03_rb,0.26592e-03_rb,0.41598e-03_rb /)
+      kbo(:, 5,19, 2) = (/ &
+        & 0.46883e-06_rb,0.13386e-03_rb,0.22769e-03_rb,0.30285e-03_rb,0.46550e-03_rb /)
+      kbo(:, 1,20, 2) = (/ &
+        & 0.27908e-06_rb,0.64450e-04_rb,0.10795e-03_rb,0.13889e-03_rb,0.23878e-03_rb /)
+      kbo(:, 2,20, 2) = (/ &
+        & 0.30934e-06_rb,0.74187e-04_rb,0.12773e-03_rb,0.16417e-03_rb,0.27017e-03_rb /)
+      kbo(:, 3,20, 2) = (/ &
+        & 0.33086e-06_rb,0.85801e-04_rb,0.14782e-03_rb,0.19307e-03_rb,0.30508e-03_rb /)
+      kbo(:, 4,20, 2) = (/ &
+        & 0.35058e-06_rb,0.98861e-04_rb,0.16868e-03_rb,0.22508e-03_rb,0.34249e-03_rb /)
+      kbo(:, 5,20, 2) = (/ &
+        & 0.37069e-06_rb,0.11306e-03_rb,0.19188e-03_rb,0.25601e-03_rb,0.38519e-03_rb /)
+      kbo(:, 1,21, 2) = (/ &
+        & 0.22418e-06_rb,0.54095e-04_rb,0.91414e-04_rb,0.11757e-03_rb,0.19697e-03_rb /)
+      kbo(:, 2,21, 2) = (/ &
+        & 0.24559e-06_rb,0.62567e-04_rb,0.10819e-03_rb,0.13908e-03_rb,0.22284e-03_rb /)
+      kbo(:, 3,21, 2) = (/ &
+        & 0.26169e-06_rb,0.72383e-04_rb,0.12481e-03_rb,0.16368e-03_rb,0.25205e-03_rb /)
+      kbo(:, 4,21, 2) = (/ &
+        & 0.27885e-06_rb,0.83446e-04_rb,0.14258e-03_rb,0.18910e-03_rb,0.28386e-03_rb /)
+      kbo(:, 5,21, 2) = (/ &
+        & 0.29344e-06_rb,0.95540e-04_rb,0.16198e-03_rb,0.21609e-03_rb,0.31947e-03_rb /)
+      kbo(:, 1,22, 2) = (/ &
+        & 0.17941e-06_rb,0.45830e-04_rb,0.78176e-04_rb,0.10061e-03_rb,0.16313e-03_rb /)
+      kbo(:, 2,22, 2) = (/ &
+        & 0.19397e-06_rb,0.53139e-04_rb,0.92556e-04_rb,0.11901e-03_rb,0.18482e-03_rb /)
+      kbo(:, 3,22, 2) = (/ &
+        & 0.20707e-06_rb,0.61593e-04_rb,0.10579e-03_rb,0.14008e-03_rb,0.20965e-03_rb /)
+      kbo(:, 4,22, 2) = (/ &
+        & 0.22071e-06_rb,0.71016e-04_rb,0.12100e-03_rb,0.16128e-03_rb,0.23661e-03_rb /)
+      kbo(:, 5,22, 2) = (/ &
+        & 0.23148e-06_rb,0.81286e-04_rb,0.13795e-03_rb,0.18401e-03_rb,0.26580e-03_rb /)
+      kbo(:, 1,23, 2) = (/ &
+        & 0.14291e-06_rb,0.38825e-04_rb,0.66866e-04_rb,0.86140e-04_rb,0.13511e-03_rb /)
+      kbo(:, 2,23, 2) = (/ &
+        & 0.15179e-06_rb,0.45135e-04_rb,0.78450e-04_rb,0.10194e-03_rb,0.15369e-03_rb /)
+      kbo(:, 3,23, 2) = (/ &
+        & 0.16326e-06_rb,0.52399e-04_rb,0.89919e-04_rb,0.12001e-03_rb,0.17441e-03_rb /)
+      kbo(:, 4,23, 2) = (/ &
+        & 0.17307e-06_rb,0.60440e-04_rb,0.10293e-03_rb,0.13735e-03_rb,0.19668e-03_rb /)
+      kbo(:, 5,23, 2) = (/ &
+        & 0.18137e-06_rb,0.69189e-04_rb,0.11759e-03_rb,0.15651e-03_rb,0.21998e-03_rb /)
+      kbo(:, 1,24, 2) = (/ &
+        & 0.11245e-06_rb,0.32862e-04_rb,0.57166e-04_rb,0.73828e-04_rb,0.11185e-03_rb /)
+      kbo(:, 2,24, 2) = (/ &
+        & 0.11958e-06_rb,0.38281e-04_rb,0.66635e-04_rb,0.87390e-04_rb,0.12740e-03_rb /)
+      kbo(:, 3,24, 2) = (/ &
+        & 0.12702e-06_rb,0.44519e-04_rb,0.76606e-04_rb,0.10190e-03_rb,0.14418e-03_rb /)
+      kbo(:, 4,24, 2) = (/ &
+        & 0.13467e-06_rb,0.51373e-04_rb,0.87622e-04_rb,0.11700e-03_rb,0.16205e-03_rb /)
+      kbo(:, 5,24, 2) = (/ &
+        & 0.14120e-06_rb,0.58874e-04_rb,0.10019e-03_rb,0.13348e-03_rb,0.18188e-03_rb /)
+      kbo(:, 1,25, 2) = (/ &
+        & 0.88242e-07_rb,0.27950e-04_rb,0.49010e-04_rb,0.63434e-04_rb,0.92877e-04_rb /)
+      kbo(:, 2,25, 2) = (/ &
+        & 0.94383e-07_rb,0.32610e-04_rb,0.56690e-04_rb,0.75114e-04_rb,0.10531e-03_rb /)
+      kbo(:, 3,25, 2) = (/ &
+        & 0.99712e-07_rb,0.37929e-04_rb,0.65204e-04_rb,0.87113e-04_rb,0.11931e-03_rb /)
+      kbo(:, 4,25, 2) = (/ &
+        & 0.10473e-06_rb,0.43778e-04_rb,0.74805e-04_rb,0.99950e-04_rb,0.13427e-03_rb /)
+      kbo(:, 5,25, 2) = (/ &
+        & 0.10988e-06_rb,0.50229e-04_rb,0.85598e-04_rb,0.11406e-03_rb,0.15050e-03_rb /)
+      kbo(:, 1,26, 2) = (/ &
+        & 0.69696e-07_rb,0.23895e-04_rb,0.42166e-04_rb,0.54733e-04_rb,0.77146e-04_rb /)
+      kbo(:, 2,26, 2) = (/ &
+        & 0.74390e-07_rb,0.27921e-04_rb,0.48387e-04_rb,0.64817e-04_rb,0.87607e-04_rb /)
+      kbo(:, 3,26, 2) = (/ &
+        & 0.78856e-07_rb,0.32497e-04_rb,0.55692e-04_rb,0.74691e-04_rb,0.99387e-04_rb /)
+      kbo(:, 4,26, 2) = (/ &
+        & 0.83253e-07_rb,0.37491e-04_rb,0.64130e-04_rb,0.85609e-04_rb,0.11193e-03_rb /)
+      kbo(:, 5,26, 2) = (/ &
+        & 0.87675e-07_rb,0.43011e-04_rb,0.73398e-04_rb,0.97828e-04_rb,0.12574e-03_rb /)
+      kbo(:, 1,27, 2) = (/ &
+        & 0.54619e-07_rb,0.20469e-04_rb,0.35869e-04_rb,0.47259e-04_rb,0.64151e-04_rb /)
+      kbo(:, 2,27, 2) = (/ &
+        & 0.58657e-07_rb,0.23925e-04_rb,0.41468e-04_rb,0.55499e-04_rb,0.72911e-04_rb /)
+      kbo(:, 3,27, 2) = (/ &
+        & 0.62532e-07_rb,0.27839e-04_rb,0.47735e-04_rb,0.63985e-04_rb,0.82955e-04_rb /)
+      kbo(:, 4,27, 2) = (/ &
+        & 0.66184e-07_rb,0.32141e-04_rb,0.55001e-04_rb,0.73456e-04_rb,0.93567e-04_rb /)
+      kbo(:, 5,27, 2) = (/ &
+        & 0.69305e-07_rb,0.36605e-04_rb,0.62968e-04_rb,0.83938e-04_rb,0.10517e-03_rb /)
+      kbo(:, 1,28, 2) = (/ &
+        & 0.43348e-07_rb,0.17476e-04_rb,0.30692e-04_rb,0.40803e-04_rb,0.53271e-04_rb /)
+      kbo(:, 2,28, 2) = (/ &
+        & 0.46348e-07_rb,0.20496e-04_rb,0.35498e-04_rb,0.47629e-04_rb,0.60809e-04_rb /)
+      kbo(:, 3,28, 2) = (/ &
+        & 0.49507e-07_rb,0.23857e-04_rb,0.40974e-04_rb,0.54947e-04_rb,0.69222e-04_rb /)
+      kbo(:, 4,28, 2) = (/ &
+        & 0.52419e-07_rb,0.27560e-04_rb,0.47205e-04_rb,0.63044e-04_rb,0.78123e-04_rb /)
+      kbo(:, 5,28, 2) = (/ &
+        & 0.54842e-07_rb,0.31094e-04_rb,0.54028e-04_rb,0.72116e-04_rb,0.87834e-04_rb /)
+      kbo(:, 1,29, 2) = (/ &
+        & 0.34480e-07_rb,0.15027e-04_rb,0.26268e-04_rb,0.35358e-04_rb,0.44711e-04_rb /)
+      kbo(:, 2,29, 2) = (/ &
+        & 0.36985e-07_rb,0.17638e-04_rb,0.30405e-04_rb,0.40938e-04_rb,0.51054e-04_rb /)
+      kbo(:, 3,29, 2) = (/ &
+        & 0.39476e-07_rb,0.20512e-04_rb,0.35237e-04_rb,0.47207e-04_rb,0.58034e-04_rb /)
+      kbo(:, 4,29, 2) = (/ &
+        & 0.41650e-07_rb,0.23694e-04_rb,0.40586e-04_rb,0.54286e-04_rb,0.65708e-04_rb /)
+      kbo(:, 5,29, 2) = (/ &
+        & 0.43693e-07_rb,0.26438e-04_rb,0.46467e-04_rb,0.62035e-04_rb,0.73872e-04_rb /)
+      kbo(:, 1,30, 2) = (/ &
+        & 0.27402e-07_rb,0.12932e-04_rb,0.22585e-04_rb,0.30365e-04_rb,0.37471e-04_rb /)
+      kbo(:, 2,30, 2) = (/ &
+        & 0.29377e-07_rb,0.15183e-04_rb,0.26158e-04_rb,0.35195e-04_rb,0.42867e-04_rb /)
+      kbo(:, 3,30, 2) = (/ &
+        & 0.31353e-07_rb,0.17658e-04_rb,0.30343e-04_rb,0.40606e-04_rb,0.48858e-04_rb /)
+      kbo(:, 4,30, 2) = (/ &
+        & 0.33056e-07_rb,0.20286e-04_rb,0.34924e-04_rb,0.46735e-04_rb,0.55329e-04_rb /)
+      kbo(:, 5,30, 2) = (/ &
+        & 0.34673e-07_rb,0.22451e-04_rb,0.39717e-04_rb,0.53329e-04_rb,0.62151e-04_rb /)
+      kbo(:, 1,31, 2) = (/ &
+        & 0.21716e-07_rb,0.11156e-04_rb,0.19427e-04_rb,0.26169e-04_rb,0.31512e-04_rb /)
+      kbo(:, 2,31, 2) = (/ &
+        & 0.23313e-07_rb,0.13091e-04_rb,0.22568e-04_rb,0.30377e-04_rb,0.36216e-04_rb /)
+      kbo(:, 3,31, 2) = (/ &
+        & 0.24803e-07_rb,0.15221e-04_rb,0.26157e-04_rb,0.35050e-04_rb,0.41256e-04_rb /)
+      kbo(:, 4,31, 2) = (/ &
+        & 0.26260e-07_rb,0.17277e-04_rb,0.30091e-04_rb,0.40288e-04_rb,0.46693e-04_rb /)
+      kbo(:, 5,31, 2) = (/ &
+        & 0.27334e-07_rb,0.19159e-04_rb,0.33773e-04_rb,0.45892e-04_rb,0.52314e-04_rb /)
+      kbo(:, 1,32, 2) = (/ &
+        & 0.17123e-07_rb,0.96453e-05_rb,0.16688e-04_rb,0.22528e-04_rb,0.26648e-04_rb /)
+      kbo(:, 2,32, 2) = (/ &
+        & 0.18489e-07_rb,0.11305e-04_rb,0.19464e-04_rb,0.26137e-04_rb,0.30617e-04_rb /)
+      kbo(:, 3,32, 2) = (/ &
+        & 0.19621e-07_rb,0.13143e-04_rb,0.22554e-04_rb,0.30238e-04_rb,0.34876e-04_rb /)
+      kbo(:, 4,32, 2) = (/ &
+        & 0.20653e-07_rb,0.14698e-04_rb,0.25928e-04_rb,0.34712e-04_rb,0.39398e-04_rb /)
+      kbo(:, 5,32, 2) = (/ &
+        & 0.21500e-07_rb,0.16315e-04_rb,0.28651e-04_rb,0.39302e-04_rb,0.44097e-04_rb /)
+      kbo(:, 1,33, 2) = (/ &
+        & 0.13414e-07_rb,0.83355e-05_rb,0.14409e-04_rb,0.19461e-04_rb,0.22582e-04_rb /)
+      kbo(:, 2,33, 2) = (/ &
+        & 0.14456e-07_rb,0.97647e-05_rb,0.16818e-04_rb,0.22578e-04_rb,0.25923e-04_rb /)
+      kbo(:, 3,33, 2) = (/ &
+        & 0.15416e-07_rb,0.11250e-04_rb,0.19451e-04_rb,0.26119e-04_rb,0.29482e-04_rb /)
+      kbo(:, 4,33, 2) = (/ &
+        & 0.16184e-07_rb,0.12520e-04_rb,0.22064e-04_rb,0.29911e-04_rb,0.33230e-04_rb /)
+      kbo(:, 5,33, 2) = (/ &
+        & 0.16861e-07_rb,0.13810e-04_rb,0.24332e-04_rb,0.33363e-04_rb,0.37135e-04_rb /)
+      kbo(:, 1,34, 2) = (/ &
+        & 0.10575e-07_rb,0.71786e-05_rb,0.12407e-04_rb,0.16719e-04_rb,0.19158e-04_rb /)
+      kbo(:, 2,34, 2) = (/ &
+        & 0.11328e-07_rb,0.84093e-05_rb,0.14457e-04_rb,0.19433e-04_rb,0.21940e-04_rb /)
+      kbo(:, 3,34, 2) = (/ &
+        & 0.12049e-07_rb,0.95860e-05_rb,0.16718e-04_rb,0.22425e-04_rb,0.24932e-04_rb /)
+      kbo(:, 4,34, 2) = (/ &
+        & 0.12689e-07_rb,0.10655e-04_rb,0.18771e-04_rb,0.25647e-04_rb,0.28065e-04_rb /)
+      kbo(:, 5,34, 2) = (/ &
+        & 0.13241e-07_rb,0.11703e-04_rb,0.20628e-04_rb,0.28184e-04_rb,0.31323e-04_rb /)
+      kbo(:, 1,35, 2) = (/ &
+        & 0.82489e-08_rb,0.60850e-05_rb,0.10505e-04_rb,0.14140e-04_rb,0.16004e-04_rb /)
+      kbo(:, 2,35, 2) = (/ &
+        & 0.88532e-08_rb,0.71306e-05_rb,0.12250e-04_rb,0.16463e-04_rb,0.18333e-04_rb /)
+      kbo(:, 3,35, 2) = (/ &
+        & 0.93468e-08_rb,0.80269e-05_rb,0.14158e-04_rb,0.18989e-04_rb,0.20835e-04_rb /)
+      kbo(:, 4,35, 2) = (/ &
+        & 0.98478e-08_rb,0.89450e-05_rb,0.15691e-04_rb,0.21576e-04_rb,0.23428e-04_rb /)
+      kbo(:, 5,35, 2) = (/ &
+        & 0.10332e-07_rb,0.98354e-05_rb,0.17293e-04_rb,0.23618e-04_rb,0.26128e-04_rb /)
+      kbo(:, 1,36, 2) = (/ &
+        & 0.63951e-08_rb,0.50545e-05_rb,0.87378e-05_rb,0.11778e-04_rb,0.13176e-04_rb /)
+      kbo(:, 2,36, 2) = (/ &
+        & 0.68252e-08_rb,0.59348e-05_rb,0.10193e-04_rb,0.13730e-04_rb,0.15104e-04_rb /)
+      kbo(:, 3,36, 2) = (/ &
+        & 0.72445e-08_rb,0.66480e-05_rb,0.11783e-04_rb,0.15832e-04_rb,0.17160e-04_rb /)
+      kbo(:, 4,36, 2) = (/ &
+        & 0.75871e-08_rb,0.73960e-05_rb,0.13005e-04_rb,0.17866e-04_rb,0.19295e-04_rb /)
+      kbo(:, 5,36, 2) = (/ &
+        & 0.79075e-08_rb,0.81558e-05_rb,0.14306e-04_rb,0.19617e-04_rb,0.21532e-04_rb /)
+      kbo(:, 1,37, 2) = (/ &
+        & 0.50574e-08_rb,0.41215e-05_rb,0.71249e-05_rb,0.95923e-05_rb,0.10686e-04_rb /)
+      kbo(:, 2,37, 2) = (/ &
+        & 0.53967e-08_rb,0.48518e-05_rb,0.83286e-05_rb,0.11206e-04_rb,0.12269e-04_rb /)
+      kbo(:, 3,37, 2) = (/ &
+        & 0.57517e-08_rb,0.54411e-05_rb,0.96383e-05_rb,0.12942e-04_rb,0.13958e-04_rb /)
+      kbo(:, 4,37, 2) = (/ &
+        & 0.60273e-08_rb,0.60590e-05_rb,0.10644e-04_rb,0.14619e-04_rb,0.15714e-04_rb /)
+      kbo(:, 5,37, 2) = (/ &
+        & 0.62775e-08_rb,0.66900e-05_rb,0.11723e-04_rb,0.16077e-04_rb,0.17560e-04_rb /)
+      kbo(:, 1,38, 2) = (/ &
+        & 0.39948e-08_rb,0.33535e-05_rb,0.57976e-05_rb,0.77989e-05_rb,0.86548e-05_rb /)
+      kbo(:, 2,38, 2) = (/ &
+        & 0.42642e-08_rb,0.39584e-05_rb,0.67932e-05_rb,0.91290e-05_rb,0.99507e-05_rb /)
+      kbo(:, 3,38, 2) = (/ &
+        & 0.45529e-08_rb,0.44478e-05_rb,0.78746e-05_rb,0.10563e-04_rb,0.11338e-04_rb /)
+      kbo(:, 4,38, 2) = (/ &
+        & 0.47911e-08_rb,0.49592e-05_rb,0.87019e-05_rb,0.11950e-04_rb,0.12783e-04_rb /)
+      kbo(:, 5,38, 2) = (/ &
+        & 0.49959e-08_rb,0.54820e-05_rb,0.95964e-05_rb,0.13155e-04_rb,0.14308e-04_rb /)
+      kbo(:, 1,39, 2) = (/ &
+        & 0.31607e-08_rb,0.27260e-05_rb,0.47143e-05_rb,0.63381e-05_rb,0.70094e-05_rb /)
+      kbo(:, 2,39, 2) = (/ &
+        & 0.33771e-08_rb,0.32263e-05_rb,0.55352e-05_rb,0.74322e-05_rb,0.80695e-05_rb /)
+      kbo(:, 3,39, 2) = (/ &
+        & 0.35907e-08_rb,0.36316e-05_rb,0.64256e-05_rb,0.86133e-05_rb,0.92019e-05_rb /)
+      kbo(:, 4,39, 2) = (/ &
+        & 0.37920e-08_rb,0.40555e-05_rb,0.71128e-05_rb,0.97677e-05_rb,0.10392e-04_rb /)
+      kbo(:, 5,39, 2) = (/ &
+        & 0.39687e-08_rb,0.44882e-05_rb,0.78499e-05_rb,0.10753e-04_rb,0.11647e-04_rb /)
+      kbo(:, 1,40, 2) = (/ &
+        & 0.25137e-08_rb,0.21782e-05_rb,0.37700e-05_rb,0.50636e-05_rb,0.55872e-05_rb /)
+      kbo(:, 2,40, 2) = (/ &
+        & 0.26953e-08_rb,0.25872e-05_rb,0.44411e-05_rb,0.59538e-05_rb,0.64693e-05_rb /)
+      kbo(:, 3,40, 2) = (/ &
+        & 0.28738e-08_rb,0.29415e-05_rb,0.51697e-05_rb,0.69217e-05_rb,0.73806e-05_rb /)
+      kbo(:, 4,40, 2) = (/ &
+        & 0.30365e-08_rb,0.32887e-05_rb,0.57574e-05_rb,0.79115e-05_rb,0.83547e-05_rb /)
+      kbo(:, 5,40, 2) = (/ &
+        & 0.31827e-08_rb,0.36391e-05_rb,0.63730e-05_rb,0.87114e-05_rb,0.93854e-05_rb /)
+      kbo(:, 1,41, 2) = (/ &
+        & 0.20049e-08_rb,0.17350e-05_rb,0.30089e-05_rb,0.40342e-05_rb,0.44437e-05_rb /)
+      kbo(:, 2,41, 2) = (/ &
+        & 0.21522e-08_rb,0.20685e-05_rb,0.35532e-05_rb,0.47542e-05_rb,0.51577e-05_rb /)
+      kbo(:, 3,41, 2) = (/ &
+        & 0.22978e-08_rb,0.23716e-05_rb,0.41490e-05_rb,0.55459e-05_rb,0.59029e-05_rb /)
+      kbo(:, 4,41, 2) = (/ &
+        & 0.24277e-08_rb,0.26608e-05_rb,0.46585e-05_rb,0.63928e-05_rb,0.67015e-05_rb /)
+      kbo(:, 5,41, 2) = (/ &
+        & 0.25592e-08_rb,0.29434e-05_rb,0.51614e-05_rb,0.70376e-05_rb,0.75472e-05_rb /)
+      kbo(:, 1,42, 2) = (/ &
+        & 0.16007e-08_rb,0.13793e-05_rb,0.23939e-05_rb,0.32203e-05_rb,0.35347e-05_rb /)
+      kbo(:, 2,42, 2) = (/ &
+        & 0.17182e-08_rb,0.16509e-05_rb,0.28388e-05_rb,0.37950e-05_rb,0.41069e-05_rb /)
+      kbo(:, 3,42, 2) = (/ &
+        & 0.18364e-08_rb,0.19058e-05_rb,0.33250e-05_rb,0.44386e-05_rb,0.47169e-05_rb /)
+      kbo(:, 4,42, 2) = (/ &
+        & 0.19459e-08_rb,0.21436e-05_rb,0.37676e-05_rb,0.51389e-05_rb,0.53710e-05_rb /)
+      kbo(:, 5,42, 2) = (/ &
+        & 0.20555e-08_rb,0.23781e-05_rb,0.41722e-05_rb,0.56915e-05_rb,0.60613e-05_rb /)
+      kbo(:, 1,43, 2) = (/ &
+        & 0.12763e-08_rb,0.10855e-05_rb,0.18842e-05_rb,0.25355e-05_rb,0.27894e-05_rb /)
+      kbo(:, 2,43, 2) = (/ &
+        & 0.13693e-08_rb,0.13038e-05_rb,0.22434e-05_rb,0.29991e-05_rb,0.32452e-05_rb /)
+      kbo(:, 3,43, 2) = (/ &
+        & 0.14669e-08_rb,0.15227e-05_rb,0.26394e-05_rb,0.35195e-05_rb,0.37403e-05_rb /)
+      kbo(:, 4,43, 2) = (/ &
+        & 0.15621e-08_rb,0.17145e-05_rb,0.30188e-05_rb,0.40881e-05_rb,0.42757e-05_rb /)
+      kbo(:, 5,43, 2) = (/ &
+        & 0.16467e-08_rb,0.19093e-05_rb,0.33481e-05_rb,0.45768e-05_rb,0.48357e-05_rb /)
+      kbo(:, 1,44, 2) = (/ &
+        & 0.10164e-08_rb,0.84908e-06_rb,0.14741e-05_rb,0.19864e-05_rb,0.21744e-05_rb /)
+      kbo(:, 2,44, 2) = (/ &
+        & 0.10926e-08_rb,0.10232e-05_rb,0.17642e-05_rb,0.23536e-05_rb,0.25562e-05_rb /)
+      kbo(:, 3,44, 2) = (/ &
+        & 0.11717e-08_rb,0.12156e-05_rb,0.20836e-05_rb,0.27750e-05_rb,0.29547e-05_rb /)
+      kbo(:, 4,44, 2) = (/ &
+        & 0.12502e-08_rb,0.13671e-05_rb,0.24149e-05_rb,0.32374e-05_rb,0.33856e-05_rb /)
+      kbo(:, 5,44, 2) = (/ &
+        & 0.13204e-08_rb,0.15290e-05_rb,0.26801e-05_rb,0.36631e-05_rb,0.38430e-05_rb /)
+      kbo(:, 1,45, 2) = (/ &
+        & 0.80967e-09_rb,0.66247e-06_rb,0.11525e-05_rb,0.15557e-05_rb,0.16911e-05_rb /)
+      kbo(:, 2,45, 2) = (/ &
+        & 0.87091e-09_rb,0.80114e-06_rb,0.13838e-05_rb,0.18457e-05_rb,0.20071e-05_rb /)
+      kbo(:, 3,45, 2) = (/ &
+        & 0.93471e-09_rb,0.96063e-06_rb,0.16414e-05_rb,0.21862e-05_rb,0.23357e-05_rb /)
+      kbo(:, 4,45, 2) = (/ &
+        & 0.99996e-09_rb,0.10898e-05_rb,0.19287e-05_rb,0.25587e-05_rb,0.26765e-05_rb /)
+      kbo(:, 5,45, 2) = (/ &
+        & 0.10594e-08_rb,0.12255e-05_rb,0.21437e-05_rb,0.29239e-05_rb,0.30491e-05_rb /)
+      kbo(:, 1,46, 2) = (/ &
+        & 0.64438e-09_rb,0.51408e-06_rb,0.89692e-06_rb,0.12176e-05_rb,0.13094e-05_rb /)
+      kbo(:, 2,46, 2) = (/ &
+        & 0.69338e-09_rb,0.62335e-06_rb,0.10783e-05_rb,0.14408e-05_rb,0.15697e-05_rb /)
+      kbo(:, 3,46, 2) = (/ &
+        & 0.74249e-09_rb,0.75197e-06_rb,0.12859e-05_rb,0.17116e-05_rb,0.18286e-05_rb /)
+      kbo(:, 4,46, 2) = (/ &
+        & 0.79710e-09_rb,0.86785e-06_rb,0.15182e-05_rb,0.20117e-05_rb,0.21072e-05_rb /)
+      kbo(:, 5,46, 2) = (/ &
+        & 0.84966e-09_rb,0.97923e-06_rb,0.17156e-05_rb,0.23354e-05_rb,0.24096e-05_rb /)
+      kbo(:, 1,47, 2) = (/ &
+        & 0.51236e-09_rb,0.39483e-06_rb,0.69100e-06_rb,0.94871e-06_rb,0.10050e-05_rb /)
+      kbo(:, 2,47, 2) = (/ &
+        & 0.55075e-09_rb,0.48075e-06_rb,0.83326e-06_rb,0.11171e-05_rb,0.12169e-05_rb /)
+      kbo(:, 3,47, 2) = (/ &
+        & 0.59153e-09_rb,0.58279e-06_rb,0.99922e-06_rb,0.13307e-05_rb,0.14227e-05_rb /)
+      kbo(:, 4,47, 2) = (/ &
+        & 0.63485e-09_rb,0.68347e-06_rb,0.11845e-05_rb,0.15696e-05_rb,0.16474e-05_rb /)
+      kbo(:, 5,47, 2) = (/ &
+        & 0.67833e-09_rb,0.77359e-06_rb,0.13593e-05_rb,0.18329e-05_rb,0.18933e-05_rb /)
+      kbo(:, 1,48, 2) = (/ &
+        & 0.40749e-09_rb,0.30162e-06_rb,0.53408e-06_rb,0.72777e-06_rb,0.76768e-06_rb /)
+      kbo(:, 2,48, 2) = (/ &
+        & 0.43682e-09_rb,0.36975e-06_rb,0.64201e-06_rb,0.86174e-06_rb,0.93334e-06_rb /)
+      kbo(:, 3,48, 2) = (/ &
+        & 0.46981e-09_rb,0.45015e-06_rb,0.77460e-06_rb,0.10306e-05_rb,0.11092e-05_rb /)
+      kbo(:, 4,48, 2) = (/ &
+        & 0.50302e-09_rb,0.53912e-06_rb,0.92171e-06_rb,0.12225e-05_rb,0.12874e-05_rb /)
+      kbo(:, 5,48, 2) = (/ &
+        & 0.53999e-09_rb,0.61013e-06_rb,0.10790e-05_rb,0.14334e-05_rb,0.14828e-05_rb /)
+      kbo(:, 1,49, 2) = (/ &
+        & 0.32288e-09_rb,0.23115e-06_rb,0.41625e-06_rb,0.55318e-06_rb,0.58476e-06_rb /)
+      kbo(:, 2,49, 2) = (/ &
+        & 0.34731e-09_rb,0.28355e-06_rb,0.49493e-06_rb,0.66850e-06_rb,0.71600e-06_rb /)
+      kbo(:, 3,49, 2) = (/ &
+        & 0.37310e-09_rb,0.34682e-06_rb,0.59820e-06_rb,0.79617e-06_rb,0.85985e-06_rb /)
+      kbo(:, 4,49, 2) = (/ &
+        & 0.39975e-09_rb,0.42034e-06_rb,0.71527e-06_rb,0.95046e-06_rb,0.10041e-05_rb /)
+      kbo(:, 5,49, 2) = (/ &
+        & 0.42970e-09_rb,0.48341e-06_rb,0.84829e-06_rb,0.11191e-05_rb,0.11582e-05_rb /)
+      kbo(:, 1,50, 2) = (/ &
+        & 0.25646e-09_rb,0.17743e-06_rb,0.32423e-06_rb,0.42175e-06_rb,0.44754e-06_rb /)
+      kbo(:, 2,50, 2) = (/ &
+        & 0.27669e-09_rb,0.21856e-06_rb,0.38220e-06_rb,0.52102e-06_rb,0.55141e-06_rb /)
+      kbo(:, 3,50, 2) = (/ &
+        & 0.29654e-09_rb,0.26808e-06_rb,0.46375e-06_rb,0.61921e-06_rb,0.67025e-06_rb /)
+      kbo(:, 4,50, 2) = (/ &
+        & 0.31872e-09_rb,0.32662e-06_rb,0.55687e-06_rb,0.73985e-06_rb,0.78291e-06_rb /)
+      kbo(:, 5,50, 2) = (/ &
+        & 0.34198e-09_rb,0.38136e-06_rb,0.66385e-06_rb,0.87591e-06_rb,0.90771e-06_rb /)
+      kbo(:, 1,51, 2) = (/ &
+        & 0.20472e-09_rb,0.13694e-06_rb,0.24726e-06_rb,0.32216e-06_rb,0.34229e-06_rb /)
+      kbo(:, 2,51, 2) = (/ &
+        & 0.22054e-09_rb,0.16842e-06_rb,0.29646e-06_rb,0.40635e-06_rb,0.42402e-06_rb /)
+      kbo(:, 3,51, 2) = (/ &
+        & 0.23653e-09_rb,0.20731e-06_rb,0.35913e-06_rb,0.48027e-06_rb,0.51714e-06_rb /)
+      kbo(:, 4,51, 2) = (/ &
+        & 0.25402e-09_rb,0.25379e-06_rb,0.43377e-06_rb,0.57689e-06_rb,0.61228e-06_rb /)
+      kbo(:, 5,51, 2) = (/ &
+        & 0.27233e-09_rb,0.30202e-06_rb,0.51940e-06_rb,0.68626e-06_rb,0.71146e-06_rb /)
+      kbo(:, 1,52, 2) = (/ &
+        & 0.16428e-09_rb,0.10687e-06_rb,0.18803e-06_rb,0.24517e-06_rb,0.26090e-06_rb /)
+      kbo(:, 2,52, 2) = (/ &
+        & 0.17520e-09_rb,0.12978e-06_rb,0.23025e-06_rb,0.31106e-06_rb,0.32512e-06_rb /)
+      kbo(:, 3,52, 2) = (/ &
+        & 0.18865e-09_rb,0.15994e-06_rb,0.27726e-06_rb,0.37261e-06_rb,0.39888e-06_rb /)
+      kbo(:, 4,52, 2) = (/ &
+        & 0.20265e-09_rb,0.19670e-06_rb,0.33708e-06_rb,0.44845e-06_rb,0.47779e-06_rb /)
+      kbo(:, 5,52, 2) = (/ &
+        & 0.21711e-09_rb,0.23739e-06_rb,0.40528e-06_rb,0.53668e-06_rb,0.55828e-06_rb /)
+      kbo(:, 1,53, 2) = (/ &
+        & 0.13206e-09_rb,0.82677e-07_rb,0.14284e-06_rb,0.18640e-06_rb,0.19898e-06_rb /)
+      kbo(:, 2,53, 2) = (/ &
+        & 0.13938e-09_rb,0.99597e-07_rb,0.18095e-06_rb,0.23725e-06_rb,0.24911e-06_rb /)
+      kbo(:, 3,53, 2) = (/ &
+        & 0.15056e-09_rb,0.12309e-06_rb,0.21494e-06_rb,0.29026e-06_rb,0.30720e-06_rb /)
+      kbo(:, 4,53, 2) = (/ &
+        & 0.16136e-09_rb,0.15205e-06_rb,0.26147e-06_rb,0.34774e-06_rb,0.37331e-06_rb /)
+      kbo(:, 5,53, 2) = (/ &
+        & 0.17318e-09_rb,0.18547e-06_rb,0.31566e-06_rb,0.41857e-06_rb,0.43649e-06_rb /)
+      kbo(:, 1,54, 2) = (/ &
+        & 0.10628e-09_rb,0.63529e-07_rb,0.10938e-06_rb,0.14285e-06_rb,0.15281e-06_rb /)
+      kbo(:, 2,54, 2) = (/ &
+        & 0.11181e-09_rb,0.77068e-07_rb,0.14036e-06_rb,0.18201e-06_rb,0.19163e-06_rb /)
+      kbo(:, 3,54, 2) = (/ &
+        & 0.11992e-09_rb,0.95387e-07_rb,0.16692e-06_rb,0.22878e-06_rb,0.23824e-06_rb /)
+      kbo(:, 4,54, 2) = (/ &
+        & 0.12900e-09_rb,0.11809e-06_rb,0.20406e-06_rb,0.27163e-06_rb,0.29078e-06_rb /)
+      kbo(:, 5,54, 2) = (/ &
+        & 0.13828e-09_rb,0.14510e-06_rb,0.24678e-06_rb,0.32753e-06_rb,0.34217e-06_rb /)
+      kbo(:, 1,55, 2) = (/ &
+        & 0.85664e-10_rb,0.48444e-07_rb,0.83932e-07_rb,0.10950e-06_rb,0.11785e-06_rb /)
+      kbo(:, 2,55, 2) = (/ &
+        & 0.89999e-10_rb,0.59885e-07_rb,0.10776e-06_rb,0.14023e-06_rb,0.14763e-06_rb /)
+      kbo(:, 3,55, 2) = (/ &
+        & 0.95836e-10_rb,0.73941e-07_rb,0.13023e-06_rb,0.17876e-06_rb,0.18426e-06_rb /)
+      kbo(:, 4,55, 2) = (/ &
+        & 0.10323e-09_rb,0.91791e-07_rb,0.15882e-06_rb,0.21202e-06_rb,0.22611e-06_rb /)
+      kbo(:, 5,55, 2) = (/ &
+        & 0.11081e-09_rb,0.11336e-06_rb,0.19316e-06_rb,0.25647e-06_rb,0.26918e-06_rb /)
+      kbo(:, 1,56, 2) = (/ &
+        & 0.69093e-10_rb,0.36832e-07_rb,0.64123e-07_rb,0.84030e-07_rb,0.90974e-07_rb /)
+      kbo(:, 2,56, 2) = (/ &
+        & 0.72433e-10_rb,0.47084e-07_rb,0.82613e-07_rb,0.10758e-06_rb,0.11346e-06_rb /)
+      kbo(:, 3,56, 2) = (/ &
+        & 0.76616e-10_rb,0.57388e-07_rb,0.10182e-06_rb,0.13768e-06_rb,0.14224e-06_rb /)
+      kbo(:, 4,56, 2) = (/ &
+        & 0.82709e-10_rb,0.71294e-07_rb,0.12355e-06_rb,0.16530e-06_rb,0.17549e-06_rb /)
+      kbo(:, 5,56, 2) = (/ &
+        & 0.88636e-10_rb,0.88445e-07_rb,0.15094e-06_rb,0.20067e-06_rb,0.21118e-06_rb /)
+      kbo(:, 1,57, 2) = (/ &
+        & 0.55980e-10_rb,0.28018e-07_rb,0.48867e-07_rb,0.64857e-07_rb,0.70055e-07_rb /)
+      kbo(:, 2,57, 2) = (/ &
+        & 0.58397e-10_rb,0.36620e-07_rb,0.63232e-07_rb,0.82428e-07_rb,0.87457e-07_rb /)
+      kbo(:, 3,57, 2) = (/ &
+        & 0.61509e-10_rb,0.44446e-07_rb,0.80512e-07_rb,0.10580e-06_rb,0.10988e-06_rb /)
+      kbo(:, 4,57, 2) = (/ &
+        & 0.66015e-10_rb,0.55222e-07_rb,0.96401e-07_rb,0.12935e-06_rb,0.13614e-06_rb /)
+      kbo(:, 5,57, 2) = (/ &
+        & 0.70976e-10_rb,0.68821e-07_rb,0.11780e-06_rb,0.15632e-06_rb,0.16586e-06_rb /)
+      kbo(:, 1,58, 2) = (/ &
+        & 0.45722e-10_rb,0.21506e-07_rb,0.37326e-07_rb,0.50333e-07_rb,0.54855e-07_rb /)
+      kbo(:, 2,58, 2) = (/ &
+        & 0.47090e-10_rb,0.28249e-07_rb,0.48612e-07_rb,0.63442e-07_rb,0.67550e-07_rb /)
+      kbo(:, 3,58, 2) = (/ &
+        & 0.49550e-10_rb,0.34430e-07_rb,0.62769e-07_rb,0.81509e-07_rb,0.84917e-07_rb /)
+      kbo(:, 4,58, 2) = (/ &
+        & 0.52817e-10_rb,0.42958e-07_rb,0.75173e-07_rb,0.10204e-06_rb,0.10603e-06_rb /)
+      kbo(:, 5,58, 2) = (/ &
+        & 0.56864e-10_rb,0.53637e-07_rb,0.92044e-07_rb,0.12229e-06_rb,0.13011e-06_rb /)
+      kbo(:, 1,59, 2) = (/ &
+        & 0.37496e-10_rb,0.17255e-07_rb,0.29967e-07_rb,0.40394e-07_rb,0.44059e-07_rb /)
+      kbo(:, 2,59, 2) = (/ &
+        & 0.38367e-10_rb,0.22782e-07_rb,0.39144e-07_rb,0.51019e-07_rb,0.54404e-07_rb /)
+      kbo(:, 3,59, 2) = (/ &
+        & 0.40346e-10_rb,0.27842e-07_rb,0.50692e-07_rb,0.65716e-07_rb,0.68440e-07_rb /)
+      kbo(:, 4,59, 2) = (/ &
+        & 0.42908e-10_rb,0.34761e-07_rb,0.60846e-07_rb,0.82834e-07_rb,0.85713e-07_rb /)
+      kbo(:, 5,59, 2) = (/ &
+        & 0.46213e-10_rb,0.43467e-07_rb,0.74626e-07_rb,0.99144e-07_rb,0.10518e-06_rb /)
+      kbo(:, 1,13, 3) = (/ &
+        & 0.91180e-05_rb,0.12754e-02_rb,0.19900e-02_rb,0.24440e-02_rb,0.40576e-02_rb /)
+      kbo(:, 2,13, 3) = (/ &
+        & 0.95037e-05_rb,0.14150e-02_rb,0.22145e-02_rb,0.28094e-02_rb,0.44375e-02_rb /)
+      kbo(:, 3,13, 3) = (/ &
+        & 0.99757e-05_rb,0.15626e-02_rb,0.24320e-02_rb,0.31375e-02_rb,0.48097e-02_rb /)
+      kbo(:, 4,13, 3) = (/ &
+        & 0.10508e-04_rb,0.16997e-02_rb,0.26926e-02_rb,0.34483e-02_rb,0.51554e-02_rb /)
+      kbo(:, 5,13, 3) = (/ &
+        & 0.11033e-04_rb,0.18373e-02_rb,0.29684e-02_rb,0.37861e-02_rb,0.54896e-02_rb /)
+      kbo(:, 1,14, 3) = (/ &
+        & 0.73209e-05_rb,0.10727e-02_rb,0.16787e-02_rb,0.20881e-02_rb,0.33041e-02_rb /)
+      kbo(:, 2,14, 3) = (/ &
+        & 0.76795e-05_rb,0.11937e-02_rb,0.18683e-02_rb,0.23616e-02_rb,0.36246e-02_rb /)
+      kbo(:, 3,14, 3) = (/ &
+        & 0.80417e-05_rb,0.13177e-02_rb,0.20567e-02_rb,0.26465e-02_rb,0.39438e-02_rb /)
+      kbo(:, 4,14, 3) = (/ &
+        & 0.84296e-05_rb,0.14317e-02_rb,0.22826e-02_rb,0.29022e-02_rb,0.42368e-02_rb /)
+      kbo(:, 5,14, 3) = (/ &
+        & 0.88950e-05_rb,0.15495e-02_rb,0.25084e-02_rb,0.31901e-02_rb,0.44992e-02_rb /)
+      kbo(:, 1,15, 3) = (/ &
+        & 0.58275e-05_rb,0.89895e-03_rb,0.14161e-02_rb,0.17760e-02_rb,0.26508e-02_rb /)
+      kbo(:, 2,15, 3) = (/ &
+        & 0.61166e-05_rb,0.10025e-02_rb,0.15706e-02_rb,0.19893e-02_rb,0.29219e-02_rb /)
+      kbo(:, 3,15, 3) = (/ &
+        & 0.64340e-05_rb,0.11055e-02_rb,0.17375e-02_rb,0.22237e-02_rb,0.31718e-02_rb /)
+      kbo(:, 4,15, 3) = (/ &
+        & 0.67501e-05_rb,0.12028e-02_rb,0.19291e-02_rb,0.24433e-02_rb,0.34015e-02_rb /)
+      kbo(:, 5,15, 3) = (/ &
+        & 0.70843e-05_rb,0.13034e-02_rb,0.21152e-02_rb,0.26892e-02_rb,0.36350e-02_rb /)
+      kbo(:, 1,16, 3) = (/ &
+        & 0.45776e-05_rb,0.75233e-03_rb,0.11906e-02_rb,0.14957e-02_rb,0.21076e-02_rb /)
+      kbo(:, 2,16, 3) = (/ &
+        & 0.48262e-05_rb,0.84051e-03_rb,0.13192e-02_rb,0.16780e-02_rb,0.23267e-02_rb /)
+      kbo(:, 3,16, 3) = (/ &
+        & 0.51024e-05_rb,0.92603e-03_rb,0.14653e-02_rb,0.18671e-02_rb,0.25242e-02_rb /)
+      kbo(:, 4,16, 3) = (/ &
+        & 0.53856e-05_rb,0.10093e-02_rb,0.16288e-02_rb,0.20599e-02_rb,0.27134e-02_rb /)
+      kbo(:, 5,16, 3) = (/ &
+        & 0.56625e-05_rb,0.10939e-02_rb,0.17834e-02_rb,0.22693e-02_rb,0.29092e-02_rb /)
+      kbo(:, 1,17, 3) = (/ &
+        & 0.35978e-05_rb,0.63055e-03_rb,0.10001e-02_rb,0.12618e-02_rb,0.16759e-02_rb /)
+      kbo(:, 2,17, 3) = (/ &
+        & 0.38090e-05_rb,0.70519e-03_rb,0.11080e-02_rb,0.14142e-02_rb,0.18563e-02_rb /)
+      kbo(:, 3,17, 3) = (/ &
+        & 0.40365e-05_rb,0.77593e-03_rb,0.12352e-02_rb,0.15692e-02_rb,0.20215e-02_rb /)
+      kbo(:, 4,17, 3) = (/ &
+        & 0.42692e-05_rb,0.84648e-03_rb,0.13753e-02_rb,0.17361e-02_rb,0.21882e-02_rb /)
+      kbo(:, 5,17, 3) = (/ &
+        & 0.45325e-05_rb,0.91815e-03_rb,0.15031e-02_rb,0.19156e-02_rb,0.23511e-02_rb /)
+      kbo(:, 1,18, 3) = (/ &
+        & 0.28577e-05_rb,0.52923e-03_rb,0.84060e-03_rb,0.10641e-02_rb,0.13524e-02_rb /)
+      kbo(:, 2,18, 3) = (/ &
+        & 0.30189e-05_rb,0.59275e-03_rb,0.93264e-03_rb,0.11925e-02_rb,0.15051e-02_rb /)
+      kbo(:, 3,18, 3) = (/ &
+        & 0.31971e-05_rb,0.65140e-03_rb,0.10422e-02_rb,0.13174e-02_rb,0.16413e-02_rb /)
+      kbo(:, 4,18, 3) = (/ &
+        & 0.33981e-05_rb,0.71144e-03_rb,0.11594e-02_rb,0.14613e-02_rb,0.17851e-02_rb /)
+      kbo(:, 5,18, 3) = (/ &
+        & 0.36127e-05_rb,0.77200e-03_rb,0.12685e-02_rb,0.16164e-02_rb,0.19166e-02_rb /)
+      kbo(:, 1,19, 3) = (/ &
+        & 0.22832e-05_rb,0.44489e-03_rb,0.70523e-03_rb,0.89150e-03_rb,0.11054e-02_rb /)
+      kbo(:, 2,19, 3) = (/ &
+        & 0.24005e-05_rb,0.49860e-03_rb,0.78596e-03_rb,0.10033e-02_rb,0.12310e-02_rb /)
+      kbo(:, 3,19, 3) = (/ &
+        & 0.25465e-05_rb,0.54746e-03_rb,0.88096e-03_rb,0.11084e-02_rb,0.13479e-02_rb /)
+      kbo(:, 4,19, 3) = (/ &
+        & 0.27167e-05_rb,0.59760e-03_rb,0.97685e-03_rb,0.12305e-02_rb,0.14668e-02_rb /)
+      kbo(:, 5,19, 3) = (/ &
+        & 0.28927e-05_rb,0.64844e-03_rb,0.10695e-02_rb,0.13632e-02_rb,0.15746e-02_rb /)
+      kbo(:, 1,20, 3) = (/ &
+        & 0.18426e-05_rb,0.37567e-03_rb,0.59276e-03_rb,0.75002e-03_rb,0.91159e-03_rb /)
+      kbo(:, 2,20, 3) = (/ &
+        & 0.19324e-05_rb,0.42049e-03_rb,0.66376e-03_rb,0.84304e-03_rb,0.10175e-02_rb /)
+      kbo(:, 3,20, 3) = (/ &
+        & 0.20563e-05_rb,0.46104e-03_rb,0.74561e-03_rb,0.93568e-03_rb,0.11153e-02_rb /)
+      kbo(:, 4,20, 3) = (/ &
+        & 0.21952e-05_rb,0.50302e-03_rb,0.82491e-03_rb,0.10410e-02_rb,0.12131e-02_rb /)
+      kbo(:, 5,20, 3) = (/ &
+        & 0.23429e-05_rb,0.54570e-03_rb,0.90324e-03_rb,0.11512e-02_rb,0.13002e-02_rb /)
+      kbo(:, 1,21, 3) = (/ &
+        & 0.14914e-05_rb,0.31727e-03_rb,0.49879e-03_rb,0.63141e-03_rb,0.75480e-03_rb /)
+      kbo(:, 2,21, 3) = (/ &
+        & 0.15711e-05_rb,0.35367e-03_rb,0.56105e-03_rb,0.70859e-03_rb,0.84278e-03_rb /)
+      kbo(:, 3,21, 3) = (/ &
+        & 0.16720e-05_rb,0.38776e-03_rb,0.63122e-03_rb,0.79066e-03_rb,0.92492e-03_rb /)
+      kbo(:, 4,21, 3) = (/ &
+        & 0.17830e-05_rb,0.42327e-03_rb,0.69655e-03_rb,0.88311e-03_rb,0.10041e-02_rb /)
+      kbo(:, 5,21, 3) = (/ &
+        & 0.19065e-05_rb,0.45905e-03_rb,0.76238e-03_rb,0.97320e-03_rb,0.10767e-02_rb /)
+      kbo(:, 1,22, 3) = (/ &
+        & 0.12007e-05_rb,0.26976e-03_rb,0.42316e-03_rb,0.53750e-03_rb,0.62747e-03_rb /)
+      kbo(:, 2,22, 3) = (/ &
+        & 0.12744e-05_rb,0.29880e-03_rb,0.47840e-03_rb,0.60094e-03_rb,0.70134e-03_rb /)
+      kbo(:, 3,22, 3) = (/ &
+        & 0.13572e-05_rb,0.32813e-03_rb,0.53672e-03_rb,0.67341e-03_rb,0.76916e-03_rb /)
+      kbo(:, 4,22, 3) = (/ &
+        & 0.14459e-05_rb,0.35761e-03_rb,0.59154e-03_rb,0.75421e-03_rb,0.83371e-03_rb /)
+      kbo(:, 5,22, 3) = (/ &
+        & 0.15538e-05_rb,0.38792e-03_rb,0.64663e-03_rb,0.82877e-03_rb,0.89529e-03_rb /)
+      kbo(:, 1,23, 3) = (/ &
+        & 0.96861e-06_rb,0.22918e-03_rb,0.36015e-03_rb,0.45719e-03_rb,0.52404e-03_rb /)
+      kbo(:, 2,23, 3) = (/ &
+        & 0.10336e-05_rb,0.25321e-03_rb,0.40834e-03_rb,0.51161e-03_rb,0.58351e-03_rb /)
+      kbo(:, 3,23, 3) = (/ &
+        & 0.10985e-05_rb,0.27767e-03_rb,0.45571e-03_rb,0.57459e-03_rb,0.63985e-03_rb /)
+      kbo(:, 4,23, 3) = (/ &
+        & 0.11768e-05_rb,0.30252e-03_rb,0.50195e-03_rb,0.64190e-03_rb,0.69303e-03_rb /)
+      kbo(:, 5,23, 3) = (/ &
+        & 0.12615e-05_rb,0.32794e-03_rb,0.54831e-03_rb,0.70579e-03_rb,0.74540e-03_rb /)
+      kbo(:, 1,24, 3) = (/ &
+        & 0.77560e-06_rb,0.19437e-03_rb,0.30748e-03_rb,0.38828e-03_rb,0.43529e-03_rb /)
+      kbo(:, 2,24, 3) = (/ &
+        & 0.82580e-06_rb,0.21438e-03_rb,0.34835e-03_rb,0.43617e-03_rb,0.48373e-03_rb /)
+      kbo(:, 3,24, 3) = (/ &
+        & 0.88200e-06_rb,0.23492e-03_rb,0.38680e-03_rb,0.49169e-03_rb,0.53189e-03_rb /)
+      kbo(:, 4,24, 3) = (/ &
+        & 0.94947e-06_rb,0.25573e-03_rb,0.42635e-03_rb,0.54641e-03_rb,0.57637e-03_rb /)
+      kbo(:, 5,24, 3) = (/ &
+        & 0.10182e-05_rb,0.27745e-03_rb,0.46607e-03_rb,0.60046e-03_rb,0.61998e-03_rb /)
+      kbo(:, 1,25, 3) = (/ &
+        & 0.61963e-06_rb,0.16454e-03_rb,0.26284e-03_rb,0.33016e-03_rb,0.36284e-03_rb /)
+      kbo(:, 2,25, 3) = (/ &
+        & 0.66146e-06_rb,0.18162e-03_rb,0.29714e-03_rb,0.37315e-03_rb,0.40370e-03_rb /)
+      kbo(:, 3,25, 3) = (/ &
+        & 0.71111e-06_rb,0.19882e-03_rb,0.32942e-03_rb,0.42130e-03_rb,0.44382e-03_rb /)
+      kbo(:, 4,25, 3) = (/ &
+        & 0.76573e-06_rb,0.21663e-03_rb,0.36228e-03_rb,0.46640e-03_rb,0.48052e-03_rb /)
+      kbo(:, 5,25, 3) = (/ &
+        & 0.82100e-06_rb,0.23503e-03_rb,0.39627e-03_rb,0.51132e-03_rb,0.51776e-03_rb /)
+      kbo(:, 1,26, 3) = (/ &
+        & 0.49718e-06_rb,0.13982e-03_rb,0.22523e-03_rb,0.28275e-03_rb,0.30558e-03_rb /)
+      kbo(:, 2,26, 3) = (/ &
+        & 0.53365e-06_rb,0.15431e-03_rb,0.25368e-03_rb,0.32044e-03_rb,0.33895e-03_rb /)
+      kbo(:, 3,26, 3) = (/ &
+        & 0.57705e-06_rb,0.16884e-03_rb,0.28082e-03_rb,0.36019e-03_rb,0.37173e-03_rb /)
+      kbo(:, 4,26, 3) = (/ &
+        & 0.62061e-06_rb,0.18393e-03_rb,0.30865e-03_rb,0.39866e-03_rb,0.40243e-03_rb /)
+      kbo(:, 5,26, 3) = (/ &
+        & 0.66427e-06_rb,0.19968e-03_rb,0.33757e-03_rb,0.43663e-03_rb,0.43309e-03_rb /)
+      kbo(:, 1,27, 3) = (/ &
+        & 0.39961e-06_rb,0.11889e-03_rb,0.19361e-03_rb,0.24270e-03_rb,0.25693e-03_rb /)
+      kbo(:, 2,27, 3) = (/ &
+        & 0.43136e-06_rb,0.13100e-03_rb,0.21632e-03_rb,0.27591e-03_rb,0.28463e-03_rb /)
+      kbo(:, 3,27, 3) = (/ &
+        & 0.46490e-06_rb,0.14333e-03_rb,0.23966e-03_rb,0.30849e-03_rb,0.31106e-03_rb /)
+      kbo(:, 4,27, 3) = (/ &
+        & 0.50009e-06_rb,0.15630e-03_rb,0.26346e-03_rb,0.34083e-03_rb,0.33713e-03_rb /)
+      kbo(:, 5,27, 3) = (/ &
+        & 0.53808e-06_rb,0.16999e-03_rb,0.28768e-03_rb,0.37323e-03_rb,0.36279e-03_rb /)
+      kbo(:, 1,28, 3) = (/ &
+        & 0.31986e-06_rb,0.10106e-03_rb,0.16585e-03_rb,0.20891e-03_rb,0.21558e-03_rb /)
+      kbo(:, 2,28, 3) = (/ &
+        & 0.34540e-06_rb,0.11119e-03_rb,0.18500e-03_rb,0.23760e-03_rb,0.23854e-03_rb /)
+      kbo(:, 3,28, 3) = (/ &
+        & 0.37226e-06_rb,0.12183e-03_rb,0.20456e-03_rb,0.26419e-03_rb,0.26053e-03_rb /)
+      kbo(:, 4,28, 3) = (/ &
+        & 0.40317e-06_rb,0.13290e-03_rb,0.22487e-03_rb,0.29156e-03_rb,0.28262e-03_rb /)
+      kbo(:, 5,28, 3) = (/ &
+        & 0.43271e-06_rb,0.14482e-03_rb,0.24541e-03_rb,0.31934e-03_rb,0.30419e-03_rb /)
+      kbo(:, 1,29, 3) = (/ &
+        & 0.25677e-06_rb,0.86060e-04_rb,0.14206e-03_rb,0.18023e-03_rb,0.18141e-03_rb /)
+      kbo(:, 2,29, 3) = (/ &
+        & 0.27736e-06_rb,0.94677e-04_rb,0.15841e-03_rb,0.20378e-03_rb,0.20088e-03_rb /)
+      kbo(:, 3,29, 3) = (/ &
+        & 0.30104e-06_rb,0.10372e-03_rb,0.17515e-03_rb,0.22663e-03_rb,0.21921e-03_rb /)
+      kbo(:, 4,29, 3) = (/ &
+        & 0.32584e-06_rb,0.11340e-03_rb,0.19232e-03_rb,0.24953e-03_rb,0.23789e-03_rb /)
+      kbo(:, 5,29, 3) = (/ &
+        & 0.34891e-06_rb,0.12368e-03_rb,0.20976e-03_rb,0.27364e-03_rb,0.25570e-03_rb /)
+      kbo(:, 1,30, 3) = (/ &
+        & 0.20556e-06_rb,0.73274e-04_rb,0.12170e-03_rb,0.15588e-03_rb,0.15312e-03_rb /)
+      kbo(:, 2,30, 3) = (/ &
+        & 0.22376e-06_rb,0.80651e-04_rb,0.13568e-03_rb,0.17524e-03_rb,0.16948e-03_rb /)
+      kbo(:, 3,30, 3) = (/ &
+        & 0.24313e-06_rb,0.88481e-04_rb,0.14992e-03_rb,0.19447e-03_rb,0.18477e-03_rb /)
+      kbo(:, 4,30, 3) = (/ &
+        & 0.26233e-06_rb,0.96824e-04_rb,0.16458e-03_rb,0.21409e-03_rb,0.20027e-03_rb /)
+      kbo(:, 5,30, 3) = (/ &
+        & 0.28249e-06_rb,0.10580e-03_rb,0.17987e-03_rb,0.23435e-03_rb,0.21532e-03_rb /)
+      kbo(:, 1,31, 3) = (/ &
+        & 0.16553e-06_rb,0.62536e-04_rb,0.10457e-03_rb,0.13443e-03_rb,0.12968e-03_rb /)
+      kbo(:, 2,31, 3) = (/ &
+        & 0.18078e-06_rb,0.68863e-04_rb,0.11643e-03_rb,0.15060e-03_rb,0.14304e-03_rb /)
+      kbo(:, 3,31, 3) = (/ &
+        & 0.19619e-06_rb,0.75670e-04_rb,0.12864e-03_rb,0.16681e-03_rb,0.15615e-03_rb /)
+      kbo(:, 4,31, 3) = (/ &
+        & 0.21158e-06_rb,0.82899e-04_rb,0.14114e-03_rb,0.18385e-03_rb,0.16911e-03_rb /)
+      kbo(:, 5,31, 3) = (/ &
+        & 0.22915e-06_rb,0.90629e-04_rb,0.15456e-03_rb,0.20099e-03_rb,0.18146e-03_rb /)
+      kbo(:, 1,32, 3) = (/ &
+        & 0.13380e-06_rb,0.53407e-04_rb,0.89930e-04_rb,0.11591e-03_rb,0.11005e-03_rb /)
+      kbo(:, 2,32, 3) = (/ &
+        & 0.14604e-06_rb,0.58887e-04_rb,0.10001e-03_rb,0.12963e-03_rb,0.12107e-03_rb /)
+      kbo(:, 3,32, 3) = (/ &
+        & 0.15848e-06_rb,0.64790e-04_rb,0.11040e-03_rb,0.14349e-03_rb,0.13230e-03_rb /)
+      kbo(:, 4,32, 3) = (/ &
+        & 0.17190e-06_rb,0.71169e-04_rb,0.12125e-03_rb,0.15792e-03_rb,0.14297e-03_rb /)
+      kbo(:, 5,32, 3) = (/ &
+        & 0.18587e-06_rb,0.77792e-04_rb,0.13292e-03_rb,0.17265e-03_rb,0.15308e-03_rb /)
+      kbo(:, 1,33, 3) = (/ &
+        & 0.10830e-06_rb,0.45686e-04_rb,0.77339e-04_rb,0.99867e-04_rb,0.93562e-04_rb /)
+      kbo(:, 2,33, 3) = (/ &
+        & 0.11765e-06_rb,0.50526e-04_rb,0.85959e-04_rb,0.11153e-03_rb,0.10269e-03_rb /)
+      kbo(:, 3,33, 3) = (/ &
+        & 0.12824e-06_rb,0.55627e-04_rb,0.94900e-04_rb,0.12354e-03_rb,0.11205e-03_rb /)
+      kbo(:, 4,33, 3) = (/ &
+        & 0.13958e-06_rb,0.61158e-04_rb,0.10440e-03_rb,0.13573e-03_rb,0.12099e-03_rb /)
+      kbo(:, 5,33, 3) = (/ &
+        & 0.15078e-06_rb,0.66909e-04_rb,0.11431e-03_rb,0.14861e-03_rb,0.12918e-03_rb /)
+      kbo(:, 1,34, 3) = (/ &
+        & 0.87537e-07_rb,0.39073e-04_rb,0.66330e-04_rb,0.85860e-04_rb,0.79296e-04_rb /)
+      kbo(:, 2,34, 3) = (/ &
+        & 0.95270e-07_rb,0.43282e-04_rb,0.73743e-04_rb,0.95733e-04_rb,0.87082e-04_rb /)
+      kbo(:, 3,34, 3) = (/ &
+        & 0.10423e-06_rb,0.47701e-04_rb,0.81447e-04_rb,0.10609e-03_rb,0.94857e-04_rb /)
+      kbo(:, 4,34, 3) = (/ &
+        & 0.11348e-06_rb,0.52484e-04_rb,0.89624e-04_rb,0.11638e-03_rb,0.10211e-03_rb /)
+      kbo(:, 5,34, 3) = (/ &
+        & 0.12289e-06_rb,0.57431e-04_rb,0.98122e-04_rb,0.12760e-03_rb,0.10866e-03_rb /)
+      kbo(:, 1,35, 3) = (/ &
+        & 0.69891e-07_rb,0.33129e-04_rb,0.56323e-04_rb,0.73036e-04_rb,0.66568e-04_rb /)
+      kbo(:, 2,35, 3) = (/ &
+        & 0.76465e-07_rb,0.36724e-04_rb,0.62627e-04_rb,0.81520e-04_rb,0.73176e-04_rb /)
+      kbo(:, 3,35, 3) = (/ &
+        & 0.83833e-07_rb,0.40619e-04_rb,0.69293e-04_rb,0.90161e-04_rb,0.79548e-04_rb /)
+      kbo(:, 4,35, 3) = (/ &
+        & 0.91436e-07_rb,0.44671e-04_rb,0.76362e-04_rb,0.99075e-04_rb,0.85497e-04_rb /)
+      kbo(:, 5,35, 3) = (/ &
+        & 0.99263e-07_rb,0.48886e-04_rb,0.83550e-04_rb,0.10849e-03_rb,0.90720e-04_rb /)
+      kbo(:, 1,36, 3) = (/ &
+        & 0.55080e-07_rb,0.27796e-04_rb,0.47261e-04_rb,0.61299e-04_rb,0.55237e-04_rb /)
+      kbo(:, 2,36, 3) = (/ &
+        & 0.60562e-07_rb,0.30850e-04_rb,0.52635e-04_rb,0.68515e-04_rb,0.60794e-04_rb /)
+      kbo(:, 3,36, 3) = (/ &
+        & 0.66440e-07_rb,0.34200e-04_rb,0.58298e-04_rb,0.75847e-04_rb,0.66097e-04_rb /)
+      kbo(:, 4,36, 3) = (/ &
+        & 0.72913e-07_rb,0.37650e-04_rb,0.64310e-04_rb,0.83530e-04_rb,0.71032e-04_rb /)
+      kbo(:, 5,36, 3) = (/ &
+        & 0.79545e-07_rb,0.41216e-04_rb,0.70397e-04_rb,0.91304e-04_rb,0.75193e-04_rb /)
+      kbo(:, 1,37, 3) = (/ &
+        & 0.43644e-07_rb,0.22997e-04_rb,0.39088e-04_rb,0.50714e-04_rb,0.45374e-04_rb /)
+      kbo(:, 2,37, 3) = (/ &
+        & 0.48182e-07_rb,0.25585e-04_rb,0.43661e-04_rb,0.56813e-04_rb,0.50057e-04_rb /)
+      kbo(:, 3,37, 3) = (/ &
+        & 0.53067e-07_rb,0.28429e-04_rb,0.48465e-04_rb,0.63020e-04_rb,0.54490e-04_rb /)
+      kbo(:, 4,37, 3) = (/ &
+        & 0.58349e-07_rb,0.31365e-04_rb,0.53603e-04_rb,0.69516e-04_rb,0.58585e-04_rb /)
+      kbo(:, 5,37, 3) = (/ &
+        & 0.63727e-07_rb,0.34398e-04_rb,0.58710e-04_rb,0.76032e-04_rb,0.62046e-04_rb /)
+      kbo(:, 1,38, 3) = (/ &
+        & 0.34661e-07_rb,0.19003e-04_rb,0.32295e-04_rb,0.41898e-04_rb,0.37207e-04_rb /)
+      kbo(:, 2,38, 3) = (/ &
+        & 0.38414e-07_rb,0.21200e-04_rb,0.36170e-04_rb,0.47045e-04_rb,0.41150e-04_rb /)
+      kbo(:, 3,38, 3) = (/ &
+        & 0.42378e-07_rb,0.23605e-04_rb,0.40247e-04_rb,0.52306e-04_rb,0.44872e-04_rb /)
+      kbo(:, 4,38, 3) = (/ &
+        & 0.46598e-07_rb,0.26110e-04_rb,0.44620e-04_rb,0.57800e-04_rb,0.48293e-04_rb /)
+      kbo(:, 5,38, 3) = (/ &
+        & 0.50995e-07_rb,0.28683e-04_rb,0.48935e-04_rb,0.63250e-04_rb,0.51155e-04_rb /)
+      kbo(:, 1,39, 3) = (/ &
+        & 0.27545e-07_rb,0.15700e-04_rb,0.26661e-04_rb,0.34603e-04_rb,0.30487e-04_rb /)
+      kbo(:, 2,39, 3) = (/ &
+        & 0.30553e-07_rb,0.17568e-04_rb,0.29948e-04_rb,0.38935e-04_rb,0.33813e-04_rb /)
+      kbo(:, 3,39, 3) = (/ &
+        & 0.33772e-07_rb,0.19601e-04_rb,0.33411e-04_rb,0.43403e-04_rb,0.36922e-04_rb /)
+      kbo(:, 4,39, 3) = (/ &
+        & 0.37164e-07_rb,0.21726e-04_rb,0.37113e-04_rb,0.48030e-04_rb,0.39771e-04_rb /)
+      kbo(:, 5,39, 3) = (/ &
+        & 0.40795e-07_rb,0.23901e-04_rb,0.40765e-04_rb,0.52607e-04_rb,0.42152e-04_rb /)
+      kbo(:, 1,40, 3) = (/ &
+        & 0.21852e-07_rb,0.12819e-04_rb,0.21757e-04_rb,0.28221e-04_rb,0.24745e-04_rb /)
+      kbo(:, 2,40, 3) = (/ &
+        & 0.24207e-07_rb,0.14395e-04_rb,0.24527e-04_rb,0.31867e-04_rb,0.27502e-04_rb /)
+      kbo(:, 3,40, 3) = (/ &
+        & 0.26806e-07_rb,0.16092e-04_rb,0.27462e-04_rb,0.35646e-04_rb,0.30145e-04_rb /)
+      kbo(:, 4,40, 3) = (/ &
+        & 0.29612e-07_rb,0.17894e-04_rb,0.30572e-04_rb,0.39527e-04_rb,0.32543e-04_rb /)
+      kbo(:, 5,40, 3) = (/ &
+        & 0.32577e-07_rb,0.19746e-04_rb,0.33672e-04_rb,0.43399e-04_rb,0.34556e-04_rb /)
+      kbo(:, 1,41, 3) = (/ &
+        & 0.17336e-07_rb,0.10441e-04_rb,0.17695e-04_rb,0.22954e-04_rb,0.20042e-04_rb /)
+      kbo(:, 2,41, 3) = (/ &
+        & 0.19187e-07_rb,0.11771e-04_rb,0.20025e-04_rb,0.26029e-04_rb,0.22346e-04_rb /)
+      kbo(:, 3,41, 3) = (/ &
+        & 0.21311e-07_rb,0.13190e-04_rb,0.22516e-04_rb,0.29201e-04_rb,0.24577e-04_rb /)
+      kbo(:, 4,41, 3) = (/ &
+        & 0.23597e-07_rb,0.14712e-04_rb,0.25122e-04_rb,0.32466e-04_rb,0.26584e-04_rb /)
+      kbo(:, 5,41, 3) = (/ &
+        & 0.25958e-07_rb,0.16280e-04_rb,0.27744e-04_rb,0.35762e-04_rb,0.28295e-04_rb /)
+      kbo(:, 1,42, 3) = (/ &
+        & 0.13752e-07_rb,0.84970e-05_rb,0.14379e-04_rb,0.18640e-04_rb,0.16205e-04_rb /)
+      kbo(:, 2,42, 3) = (/ &
+        & 0.15240e-07_rb,0.96082e-05_rb,0.16325e-04_rb,0.21225e-04_rb,0.18124e-04_rb /)
+      kbo(:, 3,42, 3) = (/ &
+        & 0.16924e-07_rb,0.10802e-04_rb,0.18430e-04_rb,0.23896e-04_rb,0.20024e-04_rb /)
+      kbo(:, 4,42, 3) = (/ &
+        & 0.18767e-07_rb,0.12087e-04_rb,0.20609e-04_rb,0.26651e-04_rb,0.21698e-04_rb /)
+      kbo(:, 5,42, 3) = (/ &
+        & 0.20666e-07_rb,0.13409e-04_rb,0.22837e-04_rb,0.29427e-04_rb,0.23153e-04_rb /)
+      kbo(:, 1,43, 3) = (/ &
+        & 0.10827e-07_rb,0.68624e-05_rb,0.11586e-04_rb,0.14999e-04_rb,0.12975e-04_rb /)
+      kbo(:, 2,43, 3) = (/ &
+        & 0.12030e-07_rb,0.77847e-05_rb,0.13205e-04_rb,0.17164e-04_rb,0.14605e-04_rb /)
+      kbo(:, 3,43, 3) = (/ &
+        & 0.13352e-07_rb,0.87779e-05_rb,0.14974e-04_rb,0.19410e-04_rb,0.16231e-04_rb /)
+      kbo(:, 4,43, 3) = (/ &
+        & 0.14829e-07_rb,0.98620e-05_rb,0.16795e-04_rb,0.21751e-04_rb,0.17634e-04_rb /)
+      kbo(:, 5,43, 3) = (/ &
+        & 0.16396e-07_rb,0.10975e-04_rb,0.18682e-04_rb,0.24066e-04_rb,0.18879e-04_rb /)
+      kbo(:, 1,44, 3) = (/ &
+        & 0.85731e-08_rb,0.55132e-05_rb,0.92862e-05_rb,0.12000e-04_rb,0.10347e-04_rb /)
+      kbo(:, 2,44, 3) = (/ &
+        & 0.95033e-08_rb,0.62816e-05_rb,0.10629e-04_rb,0.13817e-04_rb,0.11712e-04_rb /)
+      kbo(:, 3,44, 3) = (/ &
+        & 0.10537e-07_rb,0.70964e-05_rb,0.12108e-04_rb,0.15700e-04_rb,0.13095e-04_rb /)
+      kbo(:, 4,44, 3) = (/ &
+        & 0.11722e-07_rb,0.80120e-05_rb,0.13621e-04_rb,0.17679e-04_rb,0.14296e-04_rb /)
+      kbo(:, 5,44, 3) = (/ &
+        & 0.12991e-07_rb,0.89457e-05_rb,0.15220e-04_rb,0.19614e-04_rb,0.15350e-04_rb /)
+      kbo(:, 1,45, 3) = (/ &
+        & 0.67515e-08_rb,0.44212e-05_rb,0.74244e-05_rb,0.95776e-05_rb,0.82429e-05_rb /)
+      kbo(:, 2,45, 3) = (/ &
+        & 0.74999e-08_rb,0.50603e-05_rb,0.85360e-05_rb,0.11095e-04_rb,0.93791e-05_rb /)
+      kbo(:, 3,45, 3) = (/ &
+        & 0.83182e-08_rb,0.57411e-05_rb,0.97686e-05_rb,0.12667e-04_rb,0.10528e-04_rb /)
+      kbo(:, 4,45, 3) = (/ &
+        & 0.92526e-08_rb,0.64942e-05_rb,0.11028e-04_rb,0.14328e-04_rb,0.11566e-04_rb /)
+      kbo(:, 5,45, 3) = (/ &
+        & 0.10269e-07_rb,0.72769e-05_rb,0.12375e-04_rb,0.15964e-04_rb,0.12472e-04_rb /)
+      kbo(:, 1,46, 3) = (/ &
+        & 0.53031e-08_rb,0.35301e-05_rb,0.59050e-05_rb,0.75965e-05_rb,0.65452e-05_rb /)
+      kbo(:, 2,46, 3) = (/ &
+        & 0.58907e-08_rb,0.40561e-05_rb,0.68233e-05_rb,0.88621e-05_rb,0.74771e-05_rb /)
+      kbo(:, 3,46, 3) = (/ &
+        & 0.65422e-08_rb,0.46270e-05_rb,0.78393e-05_rb,0.10169e-04_rb,0.84370e-05_rb /)
+      kbo(:, 4,46, 3) = (/ &
+        & 0.72669e-08_rb,0.52433e-05_rb,0.89061e-05_rb,0.11563e-04_rb,0.93268e-05_rb /)
+      kbo(:, 5,46, 3) = (/ &
+        & 0.80880e-08_rb,0.58967e-05_rb,0.10016e-04_rb,0.12930e-04_rb,0.10106e-04_rb /)
+      kbo(:, 1,47, 3) = (/ &
+        & 0.41459e-08_rb,0.27965e-05_rb,0.46529e-05_rb,0.59648e-05_rb,0.51552e-05_rb /)
+      kbo(:, 2,47, 3) = (/ &
+        & 0.46324e-08_rb,0.32253e-05_rb,0.54100e-05_rb,0.70094e-05_rb,0.59110e-05_rb /)
+      kbo(:, 3,47, 3) = (/ &
+        & 0.51433e-08_rb,0.37014e-05_rb,0.62395e-05_rb,0.80976e-05_rb,0.67100e-05_rb /)
+      kbo(:, 4,47, 3) = (/ &
+        & 0.57045e-08_rb,0.42091e-05_rb,0.71381e-05_rb,0.92537e-05_rb,0.74896e-05_rb /)
+      kbo(:, 5,47, 3) = (/ &
+        & 0.63526e-08_rb,0.47541e-05_rb,0.80573e-05_rb,0.10428e-04_rb,0.81540e-05_rb /)
+      kbo(:, 1,48, 3) = (/ &
+        & 0.32549e-08_rb,0.22089e-05_rb,0.36571e-05_rb,0.46663e-05_rb,0.40387e-05_rb /)
+      kbo(:, 2,48, 3) = (/ &
+        & 0.36192e-08_rb,0.25581e-05_rb,0.42752e-05_rb,0.55265e-05_rb,0.46582e-05_rb /)
+      kbo(:, 3,48, 3) = (/ &
+        & 0.40215e-08_rb,0.29515e-05_rb,0.49553e-05_rb,0.64327e-05_rb,0.53236e-05_rb /)
+      kbo(:, 4,48, 3) = (/ &
+        & 0.44736e-08_rb,0.33690e-05_rb,0.57015e-05_rb,0.73859e-05_rb,0.59960e-05_rb /)
+      kbo(:, 5,48, 3) = (/ &
+        & 0.49760e-08_rb,0.38276e-05_rb,0.64596e-05_rb,0.83844e-05_rb,0.65647e-05_rb /)
+      kbo(:, 1,49, 3) = (/ &
+        & 0.25432e-08_rb,0.17390e-05_rb,0.28607e-05_rb,0.36438e-05_rb,0.31425e-05_rb /)
+      kbo(:, 2,49, 3) = (/ &
+        & 0.28364e-08_rb,0.20219e-05_rb,0.33698e-05_rb,0.43412e-05_rb,0.36654e-05_rb /)
+      kbo(:, 3,49, 3) = (/ &
+        & 0.31601e-08_rb,0.23472e-05_rb,0.39232e-05_rb,0.50964e-05_rb,0.42142e-05_rb /)
+      kbo(:, 4,49, 3) = (/ &
+        & 0.35101e-08_rb,0.26948e-05_rb,0.45429e-05_rb,0.58797e-05_rb,0.47715e-05_rb /)
+      kbo(:, 5,49, 3) = (/ &
+        & 0.38989e-08_rb,0.30718e-05_rb,0.51731e-05_rb,0.67190e-05_rb,0.52720e-05_rb /)
+      kbo(:, 1,50, 3) = (/ &
+        & 0.20093e-08_rb,0.13704e-05_rb,0.22373e-05_rb,0.28375e-05_rb,0.24550e-05_rb /)
+      kbo(:, 2,50, 3) = (/ &
+        & 0.22270e-08_rb,0.16020e-05_rb,0.26626e-05_rb,0.34144e-05_rb,0.28963e-05_rb /)
+      kbo(:, 3,50, 3) = (/ &
+        & 0.24797e-08_rb,0.18686e-05_rb,0.31131e-05_rb,0.40348e-05_rb,0.33398e-05_rb /)
+      kbo(:, 4,50, 3) = (/ &
+        & 0.27614e-08_rb,0.21593e-05_rb,0.36199e-05_rb,0.46856e-05_rb,0.38019e-05_rb /)
+      kbo(:, 5,50, 3) = (/ &
+        & 0.30674e-08_rb,0.24699e-05_rb,0.41517e-05_rb,0.53844e-05_rb,0.42322e-05_rb /)
+      kbo(:, 1,51, 3) = (/ &
+        & 0.15907e-08_rb,0.10803e-05_rb,0.17518e-05_rb,0.22064e-05_rb,0.19254e-05_rb /)
+      kbo(:, 2,51, 3) = (/ &
+        & 0.17509e-08_rb,0.12691e-05_rb,0.21000e-05_rb,0.26794e-05_rb,0.22832e-05_rb /)
+      kbo(:, 3,51, 3) = (/ &
+        & 0.19509e-08_rb,0.14861e-05_rb,0.24726e-05_rb,0.31957e-05_rb,0.26418e-05_rb /)
+      kbo(:, 4,51, 3) = (/ &
+        & 0.21703e-08_rb,0.17284e-05_rb,0.28838e-05_rb,0.37325e-05_rb,0.30257e-05_rb /)
+      kbo(:, 5,51, 3) = (/ &
+        & 0.24124e-08_rb,0.19844e-05_rb,0.33305e-05_rb,0.43128e-05_rb,0.34015e-05_rb /)
+      kbo(:, 1,52, 3) = (/ &
+        & 0.12564e-08_rb,0.84669e-06_rb,0.13717e-05_rb,0.17147e-05_rb,0.14947e-05_rb /)
+      kbo(:, 2,52, 3) = (/ &
+        & 0.13794e-08_rb,0.10024e-05_rb,0.16523e-05_rb,0.20993e-05_rb,0.17870e-05_rb /)
+      kbo(:, 3,52, 3) = (/ &
+        & 0.15320e-08_rb,0.11790e-05_rb,0.19577e-05_rb,0.25220e-05_rb,0.20845e-05_rb /)
+      kbo(:, 4,52, 3) = (/ &
+        & 0.17130e-08_rb,0.13791e-05_rb,0.22952e-05_rb,0.29677e-05_rb,0.24040e-05_rb /)
+      kbo(:, 5,52, 3) = (/ &
+        & 0.19041e-08_rb,0.15914e-05_rb,0.26635e-05_rb,0.34439e-05_rb,0.27247e-05_rb /)
+      kbo(:, 1,53, 3) = (/ &
+        & 0.99523e-09_rb,0.66219e-06_rb,0.10632e-05_rb,0.13341e-05_rb,0.11550e-05_rb /)
+      kbo(:, 2,53, 3) = (/ &
+        & 0.10903e-08_rb,0.79022e-06_rb,0.12914e-05_rb,0.16401e-05_rb,0.13929e-05_rb /)
+      kbo(:, 3,53, 3) = (/ &
+        & 0.12082e-08_rb,0.93266e-06_rb,0.15445e-05_rb,0.19841e-05_rb,0.16452e-05_rb /)
+      kbo(:, 4,53, 3) = (/ &
+        & 0.13437e-08_rb,0.10969e-05_rb,0.18212e-05_rb,0.23517e-05_rb,0.19029e-05_rb /)
+      kbo(:, 5,53, 3) = (/ &
+        & 0.14972e-08_rb,0.12734e-05_rb,0.21276e-05_rb,0.27431e-05_rb,0.21722e-05_rb /)
+      kbo(:, 1,54, 3) = (/ &
+        & 0.78782e-09_rb,0.51993e-06_rb,0.82752e-06_rb,0.10421e-05_rb,0.88632e-06_rb /)
+      kbo(:, 2,54, 3) = (/ &
+        & 0.86642e-09_rb,0.62440e-06_rb,0.10138e-05_rb,0.12820e-05_rb,0.10958e-05_rb /)
+      kbo(:, 3,54, 3) = (/ &
+        & 0.95141e-09_rb,0.74051e-06_rb,0.12221e-05_rb,0.15626e-05_rb,0.13014e-05_rb /)
+      kbo(:, 4,54, 3) = (/ &
+        & 0.10622e-08_rb,0.87438e-06_rb,0.14481e-05_rb,0.18675e-05_rb,0.15138e-05_rb /)
+      kbo(:, 5,54, 3) = (/ &
+        & 0.11829e-08_rb,0.10217e-05_rb,0.17025e-05_rb,0.21900e-05_rb,0.17349e-05_rb /)
+      kbo(:, 1,55, 3) = (/ &
+        & 0.62734e-09_rb,0.40844e-06_rb,0.64675e-06_rb,0.81168e-06_rb,0.68015e-06_rb /)
+      kbo(:, 2,55, 3) = (/ &
+        & 0.68670e-09_rb,0.49437e-06_rb,0.79822e-06_rb,0.10031e-05_rb,0.85955e-06_rb /)
+      kbo(:, 3,55, 3) = (/ &
+        & 0.75551e-09_rb,0.58813e-06_rb,0.96640e-06_rb,0.12305e-05_rb,0.10290e-05_rb /)
+      kbo(:, 4,55, 3) = (/ &
+        & 0.83896e-09_rb,0.69762e-06_rb,0.11529e-05_rb,0.14845e-05_rb,0.12025e-05_rb /)
+      kbo(:, 5,55, 3) = (/ &
+        & 0.93727e-09_rb,0.81992e-06_rb,0.13618e-05_rb,0.17489e-05_rb,0.13856e-05_rb /)
+      kbo(:, 1,56, 3) = (/ &
+        & 0.50214e-09_rb,0.32028e-06_rb,0.50524e-06_rb,0.63147e-06_rb,0.51903e-06_rb /)
+      kbo(:, 2,56, 3) = (/ &
+        & 0.54775e-09_rb,0.38841e-06_rb,0.62589e-06_rb,0.78445e-06_rb,0.67099e-06_rb /)
+      kbo(:, 3,56, 3) = (/ &
+        & 0.59971e-09_rb,0.46602e-06_rb,0.76356e-06_rb,0.96978e-06_rb,0.80912e-06_rb /)
+      kbo(:, 4,56, 3) = (/ &
+        & 0.66466e-09_rb,0.55509e-06_rb,0.91533e-06_rb,0.11766e-05_rb,0.95284e-06_rb /)
+      kbo(:, 5,56, 3) = (/ &
+        & 0.73931e-09_rb,0.65625e-06_rb,0.10864e-05_rb,0.13946e-05_rb,0.11055e-05_rb /)
+      kbo(:, 1,57, 3) = (/ &
+        & 0.40171e-09_rb,0.25009e-06_rb,0.39211e-06_rb,0.49250e-06_rb,0.39332e-06_rb /)
+      kbo(:, 2,57, 3) = (/ &
+        & 0.43379e-09_rb,0.30473e-06_rb,0.48932e-06_rb,0.61342e-06_rb,0.52076e-06_rb /)
+      kbo(:, 3,57, 3) = (/ &
+        & 0.47729e-09_rb,0.36874e-06_rb,0.59978e-06_rb,0.76246e-06_rb,0.63556e-06_rb /)
+      kbo(:, 4,57, 3) = (/ &
+        & 0.52454e-09_rb,0.44075e-06_rb,0.72488e-06_rb,0.93079e-06_rb,0.75448e-06_rb /)
+      kbo(:, 5,57, 3) = (/ &
+        & 0.58546e-09_rb,0.52389e-06_rb,0.86565e-06_rb,0.11107e-05_rb,0.87858e-06_rb /)
+      kbo(:, 1,58, 3) = (/ &
+        & 0.32222e-09_rb,0.19536e-06_rb,0.30484e-06_rb,0.38123e-06_rb,0.29798e-06_rb /)
+      kbo(:, 2,58, 3) = (/ &
+        & 0.34550e-09_rb,0.24003e-06_rb,0.38206e-06_rb,0.48033e-06_rb,0.40193e-06_rb /)
+      kbo(:, 3,58, 3) = (/ &
+        & 0.37930e-09_rb,0.29179e-06_rb,0.47226e-06_rb,0.59938e-06_rb,0.50056e-06_rb /)
+      kbo(:, 4,58, 3) = (/ &
+        & 0.41675e-09_rb,0.35035e-06_rb,0.57500e-06_rb,0.73642e-06_rb,0.59836e-06_rb /)
+      kbo(:, 5,58, 3) = (/ &
+        & 0.46320e-09_rb,0.41854e-06_rb,0.69041e-06_rb,0.88548e-06_rb,0.70003e-06_rb /)
+      kbo(:, 1,59, 3) = (/ &
+        & 0.26166e-09_rb,0.15868e-06_rb,0.24697e-06_rb,0.30892e-06_rb,0.23964e-06_rb /)
+      kbo(:, 2,59, 3) = (/ &
+        & 0.28095e-09_rb,0.19552e-06_rb,0.31068e-06_rb,0.39037e-06_rb,0.32469e-06_rb /)
+      kbo(:, 3,59, 3) = (/ &
+        & 0.30730e-09_rb,0.23856e-06_rb,0.38554e-06_rb,0.48902e-06_rb,0.40738e-06_rb /)
+      kbo(:, 4,59, 3) = (/ &
+        & 0.33781e-09_rb,0.28749e-06_rb,0.47157e-06_rb,0.60286e-06_rb,0.48803e-06_rb /)
+      kbo(:, 5,59, 3) = (/ &
+        & 0.37526e-09_rb,0.34439e-06_rb,0.56789e-06_rb,0.72742e-06_rb,0.57238e-06_rb /)
+      kbo(:, 1,13, 4) = (/ &
+        & 0.49038e-04_rb,0.50781e-02_rb,0.78254e-02_rb,0.96484e-02_rb,0.10614e-01_rb /)
+      kbo(:, 2,13, 4) = (/ &
+        & 0.54225e-04_rb,0.54905e-02_rb,0.85710e-02_rb,0.10460e-01_rb,0.11206e-01_rb /)
+      kbo(:, 3,13, 4) = (/ &
+        & 0.61134e-04_rb,0.58773e-02_rb,0.93183e-02_rb,0.11347e-01_rb,0.11729e-01_rb /)
+      kbo(:, 4,13, 4) = (/ &
+        & 0.68793e-04_rb,0.62794e-02_rb,0.99768e-02_rb,0.12248e-01_rb,0.12250e-01_rb /)
+      kbo(:, 5,13, 4) = (/ &
+        & 0.77429e-04_rb,0.66893e-02_rb,0.10624e-01_rb,0.13064e-01_rb,0.12730e-01_rb /)
+      kbo(:, 1,14, 4) = (/ &
+        & 0.40706e-04_rb,0.43045e-02_rb,0.66240e-02_rb,0.81227e-02_rb,0.87105e-02_rb /)
+      kbo(:, 2,14, 4) = (/ &
+        & 0.45789e-04_rb,0.46404e-02_rb,0.72547e-02_rb,0.88508e-02_rb,0.92183e-02_rb /)
+      kbo(:, 3,14, 4) = (/ &
+        & 0.51359e-04_rb,0.49670e-02_rb,0.78649e-02_rb,0.95928e-02_rb,0.96590e-02_rb /)
+      kbo(:, 4,14, 4) = (/ &
+        & 0.58448e-04_rb,0.53112e-02_rb,0.84165e-02_rb,0.10356e-01_rb,0.10085e-01_rb /)
+      kbo(:, 5,14, 4) = (/ &
+        & 0.66585e-04_rb,0.56590e-02_rb,0.89770e-02_rb,0.11022e-01_rb,0.10540e-01_rb /)
+      kbo(:, 1,15, 4) = (/ &
+        & 0.33161e-04_rb,0.36374e-02_rb,0.56007e-02_rb,0.68408e-02_rb,0.70399e-02_rb /)
+      kbo(:, 2,15, 4) = (/ &
+        & 0.37316e-04_rb,0.39145e-02_rb,0.61318e-02_rb,0.74812e-02_rb,0.74533e-02_rb /)
+      kbo(:, 3,15, 4) = (/ &
+        & 0.42184e-04_rb,0.41949e-02_rb,0.66272e-02_rb,0.81097e-02_rb,0.78393e-02_rb /)
+      kbo(:, 4,15, 4) = (/ &
+        & 0.48249e-04_rb,0.44861e-02_rb,0.70934e-02_rb,0.87330e-02_rb,0.82262e-02_rb /)
+      kbo(:, 5,15, 4) = (/ &
+        & 0.54912e-04_rb,0.47829e-02_rb,0.75688e-02_rb,0.92830e-02_rb,0.86058e-02_rb /)
+      kbo(:, 1,16, 4) = (/ &
+        & 0.26598e-04_rb,0.30649e-02_rb,0.47323e-02_rb,0.57742e-02_rb,0.56644e-02_rb /)
+      kbo(:, 2,16, 4) = (/ &
+        & 0.30096e-04_rb,0.32950e-02_rb,0.51778e-02_rb,0.63145e-02_rb,0.60193e-02_rb /)
+      kbo(:, 3,16, 4) = (/ &
+        & 0.34085e-04_rb,0.35350e-02_rb,0.55806e-02_rb,0.68447e-02_rb,0.63708e-02_rb /)
+      kbo(:, 4,16, 4) = (/ &
+        & 0.38919e-04_rb,0.37831e-02_rb,0.59719e-02_rb,0.73465e-02_rb,0.67088e-02_rb /)
+      kbo(:, 5,16, 4) = (/ &
+        & 0.44492e-04_rb,0.40393e-02_rb,0.63750e-02_rb,0.78120e-02_rb,0.70249e-02_rb /)
+      kbo(:, 1,17, 4) = (/ &
+        & 0.21449e-04_rb,0.25756e-02_rb,0.39936e-02_rb,0.48662e-02_rb,0.46205e-02_rb /)
+      kbo(:, 2,17, 4) = (/ &
+        & 0.24103e-04_rb,0.27706e-02_rb,0.43619e-02_rb,0.53164e-02_rb,0.49202e-02_rb /)
+      kbo(:, 3,17, 4) = (/ &
+        & 0.27451e-04_rb,0.29765e-02_rb,0.46959e-02_rb,0.57632e-02_rb,0.52122e-02_rb /)
+      kbo(:, 4,17, 4) = (/ &
+        & 0.31381e-04_rb,0.31884e-02_rb,0.50222e-02_rb,0.61735e-02_rb,0.54790e-02_rb /)
+      kbo(:, 5,17, 4) = (/ &
+        & 0.35953e-04_rb,0.34099e-02_rb,0.53645e-02_rb,0.65659e-02_rb,0.57419e-02_rb /)
+      kbo(:, 1,18, 4) = (/ &
+        & 0.17468e-04_rb,0.21642e-02_rb,0.33642e-02_rb,0.40972e-02_rb,0.37921e-02_rb /)
+      kbo(:, 2,18, 4) = (/ &
+        & 0.19506e-04_rb,0.23308e-02_rb,0.36683e-02_rb,0.44696e-02_rb,0.40385e-02_rb /)
+      kbo(:, 3,18, 4) = (/ &
+        & 0.22326e-04_rb,0.25072e-02_rb,0.39454e-02_rb,0.48507e-02_rb,0.42773e-02_rb /)
+      kbo(:, 4,18, 4) = (/ &
+        & 0.25558e-04_rb,0.26901e-02_rb,0.42240e-02_rb,0.51855e-02_rb,0.45000e-02_rb /)
+      kbo(:, 5,18, 4) = (/ &
+        & 0.29519e-04_rb,0.28816e-02_rb,0.45135e-02_rb,0.55168e-02_rb,0.47259e-02_rb /)
+      kbo(:, 1,19, 4) = (/ &
+        & 0.14162e-04_rb,0.18165e-02_rb,0.28311e-02_rb,0.34491e-02_rb,0.31263e-02_rb /)
+      kbo(:, 2,19, 4) = (/ &
+        & 0.15880e-04_rb,0.19594e-02_rb,0.30792e-02_rb,0.37577e-02_rb,0.33277e-02_rb /)
+      kbo(:, 3,19, 4) = (/ &
+        & 0.18250e-04_rb,0.21124e-02_rb,0.33110e-02_rb,0.40717e-02_rb,0.35255e-02_rb /)
+      kbo(:, 4,19, 4) = (/ &
+        & 0.20948e-04_rb,0.22711e-02_rb,0.35512e-02_rb,0.43541e-02_rb,0.37114e-02_rb /)
+      kbo(:, 5,19, 4) = (/ &
+        & 0.24279e-04_rb,0.24360e-02_rb,0.37972e-02_rb,0.46336e-02_rb,0.39063e-02_rb /)
+      kbo(:, 1,20, 4) = (/ &
+        & 0.11677e-04_rb,0.15268e-02_rb,0.23854e-02_rb,0.29054e-02_rb,0.25927e-02_rb /)
+      kbo(:, 2,20, 4) = (/ &
+        & 0.13127e-04_rb,0.16502e-02_rb,0.25884e-02_rb,0.31642e-02_rb,0.27584e-02_rb /)
+      kbo(:, 3,20, 4) = (/ &
+        & 0.15145e-04_rb,0.17827e-02_rb,0.27854e-02_rb,0.34198e-02_rb,0.29228e-02_rb /)
+      kbo(:, 4,20, 4) = (/ &
+        & 0.17426e-04_rb,0.19208e-02_rb,0.29919e-02_rb,0.36563e-02_rb,0.30836e-02_rb /)
+      kbo(:, 5,20, 4) = (/ &
+        & 0.20187e-04_rb,0.20638e-02_rb,0.32027e-02_rb,0.38955e-02_rb,0.32517e-02_rb /)
+      kbo(:, 1,21, 4) = (/ &
+        & 0.96248e-05_rb,0.12839e-02_rb,0.20069e-02_rb,0.24439e-02_rb,0.21521e-02_rb /)
+      kbo(:, 2,21, 4) = (/ &
+        & 0.10884e-04_rb,0.13905e-02_rb,0.21753e-02_rb,0.26634e-02_rb,0.22901e-02_rb /)
+      kbo(:, 3,21, 4) = (/ &
+        & 0.12576e-04_rb,0.15057e-02_rb,0.23430e-02_rb,0.28714e-02_rb,0.24271e-02_rb /)
+      kbo(:, 4,21, 4) = (/ &
+        & 0.14492e-04_rb,0.16245e-02_rb,0.25229e-02_rb,0.30709e-02_rb,0.25653e-02_rb /)
+      kbo(:, 5,21, 4) = (/ &
+        & 0.16785e-04_rb,0.17487e-02_rb,0.27053e-02_rb,0.32769e-02_rb,0.27041e-02_rb /)
+      kbo(:, 1,22, 4) = (/ &
+        & 0.78987e-05_rb,0.10841e-02_rb,0.16963e-02_rb,0.20646e-02_rb,0.17920e-02_rb /)
+      kbo(:, 2,22, 4) = (/ &
+        & 0.90688e-05_rb,0.11783e-02_rb,0.18364e-02_rb,0.22523e-02_rb,0.19054e-02_rb /)
+      kbo(:, 3,22, 4) = (/ &
+        & 0.10436e-04_rb,0.12776e-02_rb,0.19832e-02_rb,0.24220e-02_rb,0.20200e-02_rb /)
+      kbo(:, 4,22, 4) = (/ &
+        & 0.12051e-04_rb,0.13800e-02_rb,0.21391e-02_rb,0.25904e-02_rb,0.21364e-02_rb /)
+      kbo(:, 5,22, 4) = (/ &
+        & 0.13992e-04_rb,0.14877e-02_rb,0.22983e-02_rb,0.27690e-02_rb,0.22519e-02_rb /)
+      kbo(:, 1,23, 4) = (/ &
+        & 0.65143e-05_rb,0.91629e-03_rb,0.14337e-02_rb,0.17468e-02_rb,0.14890e-02_rb /)
+      kbo(:, 2,23, 4) = (/ &
+        & 0.75295e-05_rb,0.99880e-03_rb,0.15532e-02_rb,0.19017e-02_rb,0.15844e-02_rb /)
+      kbo(:, 3,23, 4) = (/ &
+        & 0.86172e-05_rb,0.10843e-02_rb,0.16828e-02_rb,0.20454e-02_rb,0.16822e-02_rb /)
+      kbo(:, 4,23, 4) = (/ &
+        & 0.10017e-04_rb,0.11729e-02_rb,0.18176e-02_rb,0.21912e-02_rb,0.17800e-02_rb /)
+      kbo(:, 5,23, 4) = (/ &
+        & 0.11640e-04_rb,0.12668e-02_rb,0.19549e-02_rb,0.23447e-02_rb,0.18765e-02_rb /)
+      kbo(:, 1,24, 4) = (/ &
+        & 0.53432e-05_rb,0.77571e-03_rb,0.12114e-02_rb,0.14805e-02_rb,0.12372e-02_rb /)
+      kbo(:, 2,24, 4) = (/ &
+        & 0.61515e-05_rb,0.84718e-03_rb,0.13153e-02_rb,0.16078e-02_rb,0.13181e-02_rb /)
+      kbo(:, 3,24, 4) = (/ &
+        & 0.70923e-05_rb,0.92024e-03_rb,0.14293e-02_rb,0.17300e-02_rb,0.13989e-02_rb /)
+      kbo(:, 4,24, 4) = (/ &
+        & 0.82684e-05_rb,0.99740e-03_rb,0.15447e-02_rb,0.18573e-02_rb,0.14811e-02_rb /)
+      kbo(:, 5,24, 4) = (/ &
+        & 0.96268e-05_rb,0.10789e-02_rb,0.16627e-02_rb,0.19892e-02_rb,0.15621e-02_rb /)
+      kbo(:, 1,25, 4) = (/ &
+        & 0.43932e-05_rb,0.65898e-03_rb,0.10259e-02_rb,0.12568e-02_rb,0.10287e-02_rb /)
+      kbo(:, 2,25, 4) = (/ &
+        & 0.50483e-05_rb,0.71973e-03_rb,0.11174e-02_rb,0.13610e-02_rb,0.10973e-02_rb /)
+      kbo(:, 3,25, 4) = (/ &
+        & 0.58527e-05_rb,0.78269e-03_rb,0.12157e-02_rb,0.14658e-02_rb,0.11648e-02_rb /)
+      kbo(:, 4,25, 4) = (/ &
+        & 0.68258e-05_rb,0.84968e-03_rb,0.13158e-02_rb,0.15774e-02_rb,0.12354e-02_rb /)
+      kbo(:, 5,25, 4) = (/ &
+        & 0.79780e-05_rb,0.92093e-03_rb,0.14171e-02_rb,0.16917e-02_rb,0.13029e-02_rb /)
+      kbo(:, 1,26, 4) = (/ &
+        & 0.36349e-05_rb,0.56139e-03_rb,0.87232e-03_rb,0.10671e-02_rb,0.85747e-03_rb /)
+      kbo(:, 2,26, 4) = (/ &
+        & 0.41763e-05_rb,0.61307e-03_rb,0.95284e-03_rb,0.11559e-02_rb,0.91640e-03_rb /)
+      kbo(:, 3,26, 4) = (/ &
+        & 0.48643e-05_rb,0.66769e-03_rb,0.10377e-02_rb,0.12480e-02_rb,0.97417e-03_rb /)
+      kbo(:, 4,26, 4) = (/ &
+        & 0.56806e-05_rb,0.72618e-03_rb,0.11238e-02_rb,0.13443e-02_rb,0.10341e-02_rb /)
+      kbo(:, 5,26, 4) = (/ &
+        & 0.66574e-05_rb,0.78791e-03_rb,0.12118e-02_rb,0.14426e-02_rb,0.10908e-02_rb /)
+      kbo(:, 1,27, 4) = (/ &
+        & 0.29849e-05_rb,0.47845e-03_rb,0.74324e-03_rb,0.90695e-03_rb,0.71654e-03_rb /)
+      kbo(:, 2,27, 4) = (/ &
+        & 0.34528e-05_rb,0.52305e-03_rb,0.81407e-03_rb,0.98348e-03_rb,0.76622e-03_rb /)
+      kbo(:, 3,27, 4) = (/ &
+        & 0.40386e-05_rb,0.57067e-03_rb,0.88635e-03_rb,0.10643e-02_rb,0.81617e-03_rb /)
+      kbo(:, 4,27, 4) = (/ &
+        & 0.47349e-05_rb,0.62159e-03_rb,0.96045e-03_rb,0.11476e-02_rb,0.86667e-03_rb /)
+      kbo(:, 5,27, 4) = (/ &
+        & 0.55504e-05_rb,0.67486e-03_rb,0.10373e-02_rb,0.12327e-02_rb,0.91437e-03_rb /)
+      kbo(:, 1,28, 4) = (/ &
+        & 0.24474e-05_rb,0.40819e-03_rb,0.63469e-03_rb,0.77184e-03_rb,0.59959e-03_rb /)
+      kbo(:, 2,28, 4) = (/ &
+        & 0.28527e-05_rb,0.44694e-03_rb,0.69550e-03_rb,0.83809e-03_rb,0.64151e-03_rb /)
+      kbo(:, 3,28, 4) = (/ &
+        & 0.33444e-05_rb,0.48804e-03_rb,0.75797e-03_rb,0.90921e-03_rb,0.68464e-03_rb /)
+      kbo(:, 4,28, 4) = (/ &
+        & 0.39332e-05_rb,0.53229e-03_rb,0.82174e-03_rb,0.98103e-03_rb,0.72680e-03_rb /)
+      kbo(:, 5,28, 4) = (/ &
+        & 0.46245e-05_rb,0.57864e-03_rb,0.88872e-03_rb,0.10544e-02_rb,0.76723e-03_rb /)
+      kbo(:, 1,29, 4) = (/ &
+        & 0.20253e-05_rb,0.34921e-03_rb,0.54365e-03_rb,0.65865e-03_rb,0.50331e-03_rb /)
+      kbo(:, 2,29, 4) = (/ &
+        & 0.23720e-05_rb,0.38278e-03_rb,0.59577e-03_rb,0.71729e-03_rb,0.53864e-03_rb /)
+      kbo(:, 3,29, 4) = (/ &
+        & 0.27945e-05_rb,0.41887e-03_rb,0.64907e-03_rb,0.77823e-03_rb,0.57581e-03_rb /)
+      kbo(:, 4,29, 4) = (/ &
+        & 0.32936e-05_rb,0.45699e-03_rb,0.70481e-03_rb,0.84074e-03_rb,0.61089e-03_rb /)
+      kbo(:, 5,29, 4) = (/ &
+        & 0.38881e-05_rb,0.49757e-03_rb,0.76325e-03_rb,0.90356e-03_rb,0.64564e-03_rb /)
+      kbo(:, 1,30, 4) = (/ &
+        & 0.16797e-05_rb,0.29918e-03_rb,0.46598e-03_rb,0.56316e-03_rb,0.42270e-03_rb /)
+      kbo(:, 2,30, 4) = (/ &
+        & 0.19764e-05_rb,0.32839e-03_rb,0.51076e-03_rb,0.61439e-03_rb,0.45306e-03_rb /)
+      kbo(:, 3,30, 4) = (/ &
+        & 0.23384e-05_rb,0.35985e-03_rb,0.55686e-03_rb,0.66712e-03_rb,0.48445e-03_rb /)
+      kbo(:, 4,30, 4) = (/ &
+        & 0.27662e-05_rb,0.39302e-03_rb,0.60525e-03_rb,0.72092e-03_rb,0.51425e-03_rb /)
+      kbo(:, 5,30, 4) = (/ &
+        & 0.32687e-05_rb,0.42837e-03_rb,0.65610e-03_rb,0.77570e-03_rb,0.54396e-03_rb /)
+      kbo(:, 1,31, 4) = (/ &
+        & 0.13991e-05_rb,0.25687e-03_rb,0.39996e-03_rb,0.48307e-03_rb,0.35570e-03_rb /)
+      kbo(:, 2,31, 4) = (/ &
+        & 0.16564e-05_rb,0.28246e-03_rb,0.43858e-03_rb,0.52743e-03_rb,0.38211e-03_rb /)
+      kbo(:, 3,31, 4) = (/ &
+        & 0.19660e-05_rb,0.30971e-03_rb,0.47856e-03_rb,0.57309e-03_rb,0.40826e-03_rb /)
+      kbo(:, 4,31, 4) = (/ &
+        & 0.23334e-05_rb,0.33881e-03_rb,0.52066e-03_rb,0.61919e-03_rb,0.43367e-03_rb /)
+      kbo(:, 5,31, 4) = (/ &
+        & 0.27587e-05_rb,0.36964e-03_rb,0.56499e-03_rb,0.66660e-03_rb,0.45969e-03_rb /)
+      kbo(:, 1,32, 4) = (/ &
+        & 0.11711e-05_rb,0.22102e-03_rb,0.34394e-03_rb,0.41512e-03_rb,0.29980e-03_rb /)
+      kbo(:, 2,32, 4) = (/ &
+        & 0.13928e-05_rb,0.24337e-03_rb,0.37713e-03_rb,0.45351e-03_rb,0.32253e-03_rb /)
+      kbo(:, 3,32, 4) = (/ &
+        & 0.16589e-05_rb,0.26704e-03_rb,0.41202e-03_rb,0.49272e-03_rb,0.34442e-03_rb /)
+      kbo(:, 4,32, 4) = (/ &
+        & 0.19740e-05_rb,0.29261e-03_rb,0.44855e-03_rb,0.53274e-03_rb,0.36633e-03_rb /)
+      kbo(:, 5,32, 4) = (/ &
+        & 0.23323e-05_rb,0.31973e-03_rb,0.48726e-03_rb,0.57383e-03_rb,0.38915e-03_rb /)
+      kbo(:, 1,33, 4) = (/ &
+        & 0.98300e-06_rb,0.19047e-03_rb,0.29592e-03_rb,0.35739e-03_rb,0.25303e-03_rb /)
+      kbo(:, 2,33, 4) = (/ &
+        & 0.11751e-05_rb,0.20983e-03_rb,0.32474e-03_rb,0.39043e-03_rb,0.27259e-03_rb /)
+      kbo(:, 3,33, 4) = (/ &
+        & 0.14027e-05_rb,0.23065e-03_rb,0.35505e-03_rb,0.42405e-03_rb,0.29120e-03_rb /)
+      kbo(:, 4,33, 4) = (/ &
+        & 0.16692e-05_rb,0.25302e-03_rb,0.38699e-03_rb,0.45888e-03_rb,0.31018e-03_rb /)
+      kbo(:, 5,33, 4) = (/ &
+        & 0.19716e-05_rb,0.27715e-03_rb,0.42119e-03_rb,0.49468e-03_rb,0.32989e-03_rb /)
+      kbo(:, 1,34, 4) = (/ &
+        & 0.82915e-06_rb,0.16396e-03_rb,0.25433e-03_rb,0.30700e-03_rb,0.21406e-03_rb /)
+      kbo(:, 2,34, 4) = (/ &
+        & 0.99352e-06_rb,0.18083e-03_rb,0.27935e-03_rb,0.33552e-03_rb,0.23048e-03_rb /)
+      kbo(:, 3,34, 4) = (/ &
+        & 0.11877e-05_rb,0.19915e-03_rb,0.30578e-03_rb,0.36455e-03_rb,0.24659e-03_rb /)
+      kbo(:, 4,34, 4) = (/ &
+        & 0.14139e-05_rb,0.21886e-03_rb,0.33384e-03_rb,0.39476e-03_rb,0.26317e-03_rb /)
+      kbo(:, 5,34, 4) = (/ &
+        & 0.16670e-05_rb,0.24021e-03_rb,0.36390e-03_rb,0.42603e-03_rb,0.28005e-03_rb /)
+      kbo(:, 1,35, 4) = (/ &
+        & 0.68670e-06_rb,0.13979e-03_rb,0.21673e-03_rb,0.26161e-03_rb,0.17974e-03_rb /)
+      kbo(:, 2,35, 4) = (/ &
+        & 0.82437e-06_rb,0.15448e-03_rb,0.23846e-03_rb,0.28611e-03_rb,0.19377e-03_rb /)
+      kbo(:, 3,35, 4) = (/ &
+        & 0.98649e-06_rb,0.17044e-03_rb,0.26139e-03_rb,0.31132e-03_rb,0.20765e-03_rb /)
+      kbo(:, 4,35, 4) = (/ &
+        & 0.11740e-05_rb,0.18773e-03_rb,0.28609e-03_rb,0.33740e-03_rb,0.22197e-03_rb /)
+      kbo(:, 5,35, 4) = (/ &
+        & 0.13833e-05_rb,0.20652e-03_rb,0.31233e-03_rb,0.36449e-03_rb,0.23658e-03_rb /)
+      kbo(:, 1,36, 4) = (/ &
+        & 0.55564e-06_rb,0.11786e-03_rb,0.18283e-03_rb,0.22089e-03_rb,0.14951e-03_rb /)
+      kbo(:, 2,36, 4) = (/ &
+        & 0.66731e-06_rb,0.13053e-03_rb,0.20151e-03_rb,0.24189e-03_rb,0.16146e-03_rb /)
+      kbo(:, 3,36, 4) = (/ &
+        & 0.80048e-06_rb,0.14432e-03_rb,0.22154e-03_rb,0.26364e-03_rb,0.17348e-03_rb /)
+      kbo(:, 4,36, 4) = (/ &
+        & 0.95195e-06_rb,0.15937e-03_rb,0.24310e-03_rb,0.28609e-03_rb,0.18577e-03_rb /)
+      kbo(:, 5,36, 4) = (/ &
+        & 0.11217e-05_rb,0.17580e-03_rb,0.26601e-03_rb,0.30949e-03_rb,0.19850e-03_rb /)
+      kbo(:, 1,37, 4) = (/ &
+        & 0.44526e-06_rb,0.98334e-04_rb,0.15236e-03_rb,0.18395e-03_rb,0.12369e-03_rb /)
+      kbo(:, 2,37, 4) = (/ &
+        & 0.53551e-06_rb,0.10927e-03_rb,0.16837e-03_rb,0.20194e-03_rb,0.13387e-03_rb /)
+      kbo(:, 3,37, 4) = (/ &
+        & 0.64307e-06_rb,0.12110e-03_rb,0.18556e-03_rb,0.22059e-03_rb,0.14418e-03_rb /)
+      kbo(:, 4,37, 4) = (/ &
+        & 0.76688e-06_rb,0.13411e-03_rb,0.20414e-03_rb,0.23985e-03_rb,0.15477e-03_rb /)
+      kbo(:, 5,37, 4) = (/ &
+        & 0.90591e-06_rb,0.14842e-03_rb,0.22405e-03_rb,0.25996e-03_rb,0.16566e-03_rb /)
+      kbo(:, 1,38, 4) = (/ &
+        & 0.35630e-06_rb,0.81991e-04_rb,0.12690e-03_rb,0.15312e-03_rb,0.10226e-03_rb /)
+      kbo(:, 2,38, 4) = (/ &
+        & 0.42911e-06_rb,0.91391e-04_rb,0.14064e-03_rb,0.16849e-03_rb,0.11095e-03_rb /)
+      kbo(:, 3,38, 4) = (/ &
+        & 0.51583e-06_rb,0.10163e-03_rb,0.15538e-03_rb,0.18448e-03_rb,0.11977e-03_rb /)
+      kbo(:, 4,38, 4) = (/ &
+        & 0.61654e-06_rb,0.11287e-03_rb,0.17138e-03_rb,0.20101e-03_rb,0.12884e-03_rb /)
+      kbo(:, 5,38, 4) = (/ &
+        & 0.73028e-06_rb,0.12530e-03_rb,0.18862e-03_rb,0.21826e-03_rb,0.13816e-03_rb /)
+      kbo(:, 1,39, 4) = (/ &
+        & 0.28455e-06_rb,0.68362e-04_rb,0.10572e-03_rb,0.12747e-03_rb,0.84494e-04_rb /)
+      kbo(:, 2,39, 4) = (/ &
+        & 0.34313e-06_rb,0.76413e-04_rb,0.11751e-03_rb,0.14060e-03_rb,0.91905e-04_rb /)
+      kbo(:, 3,39, 4) = (/ &
+        & 0.41305e-06_rb,0.85299e-04_rb,0.13016e-03_rb,0.15431e-03_rb,0.99463e-04_rb /)
+      kbo(:, 4,39, 4) = (/ &
+        & 0.49466e-06_rb,0.95047e-04_rb,0.14396e-03_rb,0.16851e-03_rb,0.10725e-03_rb /)
+      kbo(:, 5,39, 4) = (/ &
+        & 0.58721e-06_rb,0.10583e-03_rb,0.15886e-03_rb,0.18332e-03_rb,0.11516e-03_rb /)
+      kbo(:, 1,40, 4) = (/ &
+        & 0.22416e-06_rb,0.56451e-04_rb,0.87192e-04_rb,0.10503e-03_rb,0.69299e-04_rb /)
+      kbo(:, 2,40, 4) = (/ &
+        & 0.27058e-06_rb,0.63325e-04_rb,0.97241e-04_rb,0.11625e-03_rb,0.75635e-04_rb /)
+      kbo(:, 3,40, 4) = (/ &
+        & 0.32640e-06_rb,0.70942e-04_rb,0.10801e-03_rb,0.12792e-03_rb,0.82061e-04_rb /)
+      kbo(:, 4,40, 4) = (/ &
+        & 0.39178e-06_rb,0.79381e-04_rb,0.11985e-03_rb,0.14005e-03_rb,0.88722e-04_rb /)
+      kbo(:, 5,40, 4) = (/ &
+        & 0.46694e-06_rb,0.88673e-04_rb,0.13261e-03_rb,0.15274e-03_rb,0.95437e-04_rb /)
+      kbo(:, 1,41, 4) = (/ &
+        & 0.17620e-06_rb,0.46495e-04_rb,0.71829e-04_rb,0.86351e-04_rb,0.56701e-04_rb /)
+      kbo(:, 2,41, 4) = (/ &
+        & 0.21295e-06_rb,0.52383e-04_rb,0.80380e-04_rb,0.95937e-04_rb,0.62100e-04_rb /)
+      kbo(:, 3,41, 4) = (/ &
+        & 0.25720e-06_rb,0.58900e-04_rb,0.89548e-04_rb,0.10594e-03_rb,0.67568e-04_rb /)
+      kbo(:, 4,41, 4) = (/ &
+        & 0.30957e-06_rb,0.66136e-04_rb,0.99643e-04_rb,0.11623e-03_rb,0.73280e-04_rb /)
+      kbo(:, 5,41, 4) = (/ &
+        & 0.37003e-06_rb,0.74203e-04_rb,0.11061e-03_rb,0.12707e-03_rb,0.78979e-04_rb /)
+      kbo(:, 1,42, 4) = (/ &
+        & 0.13843e-06_rb,0.38238e-04_rb,0.59124e-04_rb,0.70982e-04_rb,0.46331e-04_rb /)
+      kbo(:, 2,42, 4) = (/ &
+        & 0.16726e-06_rb,0.43269e-04_rb,0.66424e-04_rb,0.79125e-04_rb,0.50956e-04_rb /)
+      kbo(:, 3,42, 4) = (/ &
+        & 0.20232e-06_rb,0.48870e-04_rb,0.74247e-04_rb,0.87661e-04_rb,0.55561e-04_rb /)
+      kbo(:, 4,42, 4) = (/ &
+        & 0.24408e-06_rb,0.55119e-04_rb,0.82827e-04_rb,0.96453e-04_rb,0.60447e-04_rb /)
+      kbo(:, 5,42, 4) = (/ &
+        & 0.29276e-06_rb,0.62028e-04_rb,0.92221e-04_rb,0.10570e-03_rb,0.65281e-04_rb /)
+      kbo(:, 1,43, 4) = (/ &
+        & 0.10793e-06_rb,0.31191e-04_rb,0.48305e-04_rb,0.57948e-04_rb,0.37666e-04_rb /)
+      kbo(:, 2,43, 4) = (/ &
+        & 0.13017e-06_rb,0.35465e-04_rb,0.54489e-04_rb,0.64841e-04_rb,0.41556e-04_rb /)
+      kbo(:, 3,43, 4) = (/ &
+        & 0.15771e-06_rb,0.40235e-04_rb,0.61176e-04_rb,0.72082e-04_rb,0.45452e-04_rb /)
+      kbo(:, 4,43, 4) = (/ &
+        & 0.19064e-06_rb,0.45599e-04_rb,0.68488e-04_rb,0.79576e-04_rb,0.49593e-04_rb /)
+      kbo(:, 5,43, 4) = (/ &
+        & 0.22944e-06_rb,0.51552e-04_rb,0.76431e-04_rb,0.87462e-04_rb,0.53715e-04_rb /)
+      kbo(:, 1,44, 4) = (/ &
+        & 0.83879e-07_rb,0.25325e-04_rb,0.39297e-04_rb,0.47118e-04_rb,0.30510e-04_rb /)
+      kbo(:, 2,44, 4) = (/ &
+        & 0.10087e-06_rb,0.28920e-04_rb,0.44532e-04_rb,0.52929e-04_rb,0.33772e-04_rb /)
+      kbo(:, 3,44, 4) = (/ &
+        & 0.12238e-06_rb,0.32977e-04_rb,0.50189e-04_rb,0.59075e-04_rb,0.37069e-04_rb /)
+      kbo(:, 4,44, 4) = (/ &
+        & 0.14813e-06_rb,0.37556e-04_rb,0.56451e-04_rb,0.65448e-04_rb,0.40567e-04_rb /)
+      kbo(:, 5,44, 4) = (/ &
+        & 0.17874e-06_rb,0.42672e-04_rb,0.63196e-04_rb,0.72159e-04_rb,0.44085e-04_rb /)
+      kbo(:, 1,45, 4) = (/ &
+        & 0.65261e-07_rb,0.20516e-04_rb,0.31895e-04_rb,0.38279e-04_rb,0.24650e-04_rb /)
+      kbo(:, 2,45, 4) = (/ &
+        & 0.78145e-07_rb,0.23540e-04_rb,0.36319e-04_rb,0.43161e-04_rb,0.27390e-04_rb /)
+      kbo(:, 3,45, 4) = (/ &
+        & 0.94805e-07_rb,0.26962e-04_rb,0.41134e-04_rb,0.48357e-04_rb,0.30190e-04_rb /)
+      kbo(:, 4,45, 4) = (/ &
+        & 0.11490e-06_rb,0.30858e-04_rb,0.46429e-04_rb,0.53785e-04_rb,0.33136e-04_rb /)
+      kbo(:, 5,45, 4) = (/ &
+        & 0.13905e-06_rb,0.35210e-04_rb,0.52216e-04_rb,0.59482e-04_rb,0.36122e-04_rb /)
+      kbo(:, 1,46, 4) = (/ &
+        & 0.50668e-07_rb,0.16526e-04_rb,0.25752e-04_rb,0.30954e-04_rb,0.19817e-04_rb /)
+      kbo(:, 2,46, 4) = (/ &
+        & 0.60361e-07_rb,0.19058e-04_rb,0.29471e-04_rb,0.35060e-04_rb,0.22123e-04_rb /)
+      kbo(:, 3,46, 4) = (/ &
+        & 0.73101e-07_rb,0.21937e-04_rb,0.33569e-04_rb,0.39461e-04_rb,0.24498e-04_rb /)
+      kbo(:, 4,46, 4) = (/ &
+        & 0.88747e-07_rb,0.25222e-04_rb,0.38048e-04_rb,0.44039e-04_rb,0.26973e-04_rb /)
+      kbo(:, 5,46, 4) = (/ &
+        & 0.10762e-06_rb,0.28932e-04_rb,0.42964e-04_rb,0.48871e-04_rb,0.29499e-04_rb /)
+      kbo(:, 1,47, 4) = (/ &
+        & 0.39185e-07_rb,0.13207e-04_rb,0.20626e-04_rb,0.24835e-04_rb,0.15826e-04_rb /)
+      kbo(:, 2,47, 4) = (/ &
+        & 0.46335e-07_rb,0.15303e-04_rb,0.23722e-04_rb,0.28277e-04_rb,0.17762e-04_rb /)
+      kbo(:, 3,47, 4) = (/ &
+        & 0.55896e-07_rb,0.17703e-04_rb,0.27162e-04_rb,0.31976e-04_rb,0.19780e-04_rb /)
+      kbo(:, 4,47, 4) = (/ &
+        & 0.67962e-07_rb,0.20451e-04_rb,0.30940e-04_rb,0.35867e-04_rb,0.21834e-04_rb /)
+      kbo(:, 5,47, 4) = (/ &
+        & 0.82535e-07_rb,0.23583e-04_rb,0.35128e-04_rb,0.39933e-04_rb,0.23972e-04_rb /)
+      kbo(:, 1,48, 4) = (/ &
+        & 0.30435e-07_rb,0.10528e-04_rb,0.16458e-04_rb,0.19871e-04_rb,0.12630e-04_rb /)
+      kbo(:, 2,48, 4) = (/ &
+        & 0.35657e-07_rb,0.12255e-04_rb,0.19034e-04_rb,0.22757e-04_rb,0.14230e-04_rb /)
+      kbo(:, 3,48, 4) = (/ &
+        & 0.42777e-07_rb,0.14241e-04_rb,0.21916e-04_rb,0.25856e-04_rb,0.15916e-04_rb /)
+      kbo(:, 4,48, 4) = (/ &
+        & 0.51977e-07_rb,0.16531e-04_rb,0.25094e-04_rb,0.29142e-04_rb,0.17632e-04_rb /)
+      kbo(:, 5,48, 4) = (/ &
+        & 0.63246e-07_rb,0.19162e-04_rb,0.28631e-04_rb,0.32586e-04_rb,0.19447e-04_rb /)
+      kbo(:, 1,49, 4) = (/ &
+        & 0.23722e-07_rb,0.83656e-05_rb,0.13088e-04_rb,0.15834e-04_rb,0.10060e-04_rb /)
+      kbo(:, 2,49, 4) = (/ &
+        & 0.27509e-07_rb,0.97869e-05_rb,0.15227e-04_rb,0.18252e-04_rb,0.11363e-04_rb /)
+      kbo(:, 3,49, 4) = (/ &
+        & 0.32769e-07_rb,0.11426e-04_rb,0.17628e-04_rb,0.20853e-04_rb,0.12767e-04_rb /)
+      kbo(:, 4,49, 4) = (/ &
+        & 0.39719e-07_rb,0.13326e-04_rb,0.20285e-04_rb,0.23637e-04_rb,0.14223e-04_rb /)
+      kbo(:, 5,49, 4) = (/ &
+        & 0.48415e-07_rb,0.15524e-04_rb,0.23268e-04_rb,0.26530e-04_rb,0.15739e-04_rb /)
+      kbo(:, 1,50, 4) = (/ &
+        & 0.18623e-07_rb,0.66620e-05_rb,0.10425e-04_rb,0.12634e-04_rb,0.80132e-05_rb /)
+      kbo(:, 2,50, 4) = (/ &
+        & 0.21393e-07_rb,0.78264e-05_rb,0.12188e-04_rb,0.14643e-04_rb,0.90757e-05_rb /)
+      kbo(:, 3,50, 4) = (/ &
+        & 0.25281e-07_rb,0.91787e-05_rb,0.14186e-04_rb,0.16825e-04_rb,0.10247e-04_rb /)
+      kbo(:, 4,50, 4) = (/ &
+        & 0.30530e-07_rb,0.10758e-04_rb,0.16419e-04_rb,0.19178e-04_rb,0.11482e-04_rb /)
+      kbo(:, 5,50, 4) = (/ &
+        & 0.37213e-07_rb,0.12593e-04_rb,0.18920e-04_rb,0.21643e-04_rb,0.12749e-04_rb /)
+      kbo(:, 1,51, 4) = (/ &
+        & 0.14681e-07_rb,0.53043e-05_rb,0.82956e-05_rb,0.10064e-04_rb,0.63669e-05_rb /)
+      kbo(:, 2,51, 4) = (/ &
+        & 0.16717e-07_rb,0.62508e-05_rb,0.97501e-05_rb,0.11737e-04_rb,0.72473e-05_rb /)
+      kbo(:, 3,51, 4) = (/ &
+        & 0.19587e-07_rb,0.73643e-05_rb,0.11400e-04_rb,0.13558e-04_rb,0.82290e-05_rb /)
+      kbo(:, 4,51, 4) = (/ &
+        & 0.23555e-07_rb,0.86748e-05_rb,0.13268e-04_rb,0.15537e-04_rb,0.92634e-05_rb /)
+      kbo(:, 5,51, 4) = (/ &
+        & 0.28671e-07_rb,0.10209e-04_rb,0.15379e-04_rb,0.17635e-04_rb,0.10316e-04_rb /)
+      kbo(:, 1,52, 4) = (/ &
+        & 0.11626e-07_rb,0.42149e-05_rb,0.65740e-05_rb,0.79835e-05_rb,0.50595e-05_rb /)
+      kbo(:, 2,52, 4) = (/ &
+        & 0.13102e-07_rb,0.49884e-05_rb,0.77758e-05_rb,0.93846e-05_rb,0.57856e-05_rb /)
+      kbo(:, 3,52, 4) = (/ &
+        & 0.15208e-07_rb,0.58955e-05_rb,0.91392e-05_rb,0.10898e-04_rb,0.65937e-05_rb /)
+      kbo(:, 4,52, 4) = (/ &
+        & 0.18174e-07_rb,0.69758e-05_rb,0.10692e-04_rb,0.12554e-04_rb,0.74564e-05_rb /)
+      kbo(:, 5,52, 4) = (/ &
+        & 0.22057e-07_rb,0.82505e-05_rb,0.12462e-04_rb,0.14331e-04_rb,0.83301e-05_rb /)
+      kbo(:, 1,53, 4) = (/ &
+        & 0.92130e-08_rb,0.33378e-05_rb,0.51998e-05_rb,0.63006e-05_rb,0.40097e-05_rb /)
+      kbo(:, 2,53, 4) = (/ &
+        & 0.10298e-07_rb,0.39704e-05_rb,0.61839e-05_rb,0.74775e-05_rb,0.46077e-05_rb /)
+      kbo(:, 3,53, 4) = (/ &
+        & 0.11831e-07_rb,0.47088e-05_rb,0.73062e-05_rb,0.87345e-05_rb,0.52620e-05_rb /)
+      kbo(:, 4,53, 4) = (/ &
+        & 0.14030e-07_rb,0.55942e-05_rb,0.85921e-05_rb,0.10119e-04_rb,0.59838e-05_rb /)
+      kbo(:, 5,53, 4) = (/ &
+        & 0.16970e-07_rb,0.66447e-05_rb,0.10063e-04_rb,0.11620e-04_rb,0.67208e-05_rb /)
+      kbo(:, 1,54, 4) = (/ &
+        & 0.73443e-08_rb,0.26498e-05_rb,0.41229e-05_rb,0.49788e-05_rb,0.31929e-05_rb /)
+      kbo(:, 2,54, 4) = (/ &
+        & 0.81453e-08_rb,0.31689e-05_rb,0.49320e-05_rb,0.59701e-05_rb,0.36706e-05_rb /)
+      kbo(:, 3,54, 4) = (/ &
+        & 0.92853e-08_rb,0.37746e-05_rb,0.58561e-05_rb,0.70139e-05_rb,0.42105e-05_rb /)
+      kbo(:, 4,54, 4) = (/ &
+        & 0.10913e-07_rb,0.44986e-05_rb,0.69192e-05_rb,0.81733e-05_rb,0.48081e-05_rb /)
+      kbo(:, 5,54, 4) = (/ &
+        & 0.13151e-07_rb,0.53689e-05_rb,0.81469e-05_rb,0.94377e-05_rb,0.54320e-05_rb /)
+      kbo(:, 1,55, 4) = (/ &
+        & 0.58690e-08_rb,0.21056e-05_rb,0.32710e-05_rb,0.39362e-05_rb,0.25357e-05_rb /)
+      kbo(:, 2,55, 4) = (/ &
+        & 0.64824e-08_rb,0.25292e-05_rb,0.39335e-05_rb,0.47652e-05_rb,0.29266e-05_rb /)
+      kbo(:, 3,55, 4) = (/ &
+        & 0.73195e-08_rb,0.30260e-05_rb,0.46942e-05_rb,0.56346e-05_rb,0.33700e-05_rb /)
+      kbo(:, 4,55, 4) = (/ &
+        & 0.85298e-08_rb,0.36216e-05_rb,0.55727e-05_rb,0.65990e-05_rb,0.38662e-05_rb /)
+      kbo(:, 5,55, 4) = (/ &
+        & 0.10227e-07_rb,0.43366e-05_rb,0.65935e-05_rb,0.76627e-05_rb,0.43889e-05_rb /)
+      kbo(:, 1,56, 4) = (/ &
+        & 0.46879e-08_rb,0.16674e-05_rb,0.25848e-05_rb,0.30992e-05_rb,0.20097e-05_rb /)
+      kbo(:, 2,56, 4) = (/ &
+        & 0.51579e-08_rb,0.20145e-05_rb,0.31307e-05_rb,0.37875e-05_rb,0.23304e-05_rb /)
+      kbo(:, 3,56, 4) = (/ &
+        & 0.57829e-08_rb,0.24199e-05_rb,0.37529e-05_rb,0.45119e-05_rb,0.26962e-05_rb /)
+      kbo(:, 4,56, 4) = (/ &
+        & 0.66817e-08_rb,0.29092e-05_rb,0.44788e-05_rb,0.53142e-05_rb,0.31037e-05_rb /)
+      kbo(:, 5,56, 4) = (/ &
+        & 0.79548e-08_rb,0.34985e-05_rb,0.53248e-05_rb,0.62066e-05_rb,0.35387e-05_rb /)
+      kbo(:, 1,57, 4) = (/ &
+        & 0.37487e-08_rb,0.13177e-05_rb,0.20362e-05_rb,0.24278e-05_rb,0.15888e-05_rb /)
+      kbo(:, 2,57, 4) = (/ &
+        & 0.41132e-08_rb,0.16006e-05_rb,0.24863e-05_rb,0.30001e-05_rb,0.18530e-05_rb /)
+      kbo(:, 3,57, 4) = (/ &
+        & 0.45796e-08_rb,0.19301e-05_rb,0.29957e-05_rb,0.36053e-05_rb,0.21515e-05_rb /)
+      kbo(:, 4,57, 4) = (/ &
+        & 0.52447e-08_rb,0.23301e-05_rb,0.35902e-05_rb,0.42690e-05_rb,0.24844e-05_rb /)
+      kbo(:, 5,57, 4) = (/ &
+        & 0.61952e-08_rb,0.28175e-05_rb,0.42894e-05_rb,0.50133e-05_rb,0.28503e-05_rb /)
+      kbo(:, 1,58, 4) = (/ &
+        & 0.30053e-08_rb,0.10419e-05_rb,0.16034e-05_rb,0.19071e-05_rb,0.12550e-05_rb /)
+      kbo(:, 2,58, 4) = (/ &
+        & 0.32906e-08_rb,0.12717e-05_rb,0.19750e-05_rb,0.23751e-05_rb,0.14761e-05_rb /)
+      kbo(:, 3,58, 4) = (/ &
+        & 0.36412e-08_rb,0.15413e-05_rb,0.23950e-05_rb,0.28817e-05_rb,0.17173e-05_rb /)
+      kbo(:, 4,58, 4) = (/ &
+        & 0.41327e-08_rb,0.18673e-05_rb,0.28800e-05_rb,0.34301e-05_rb,0.19893e-05_rb /)
+      kbo(:, 5,58, 4) = (/ &
+        & 0.48448e-08_rb,0.22699e-05_rb,0.34559e-05_rb,0.40496e-05_rb,0.22938e-05_rb /)
+      kbo(:, 1,59, 4) = (/ &
+        & 0.24517e-08_rb,0.85367e-06_rb,0.13121e-05_rb,0.15587e-05_rb,0.10209e-05_rb /)
+      kbo(:, 2,59, 4) = (/ &
+        & 0.26814e-08_rb,0.10459e-05_rb,0.16241e-05_rb,0.19505e-05_rb,0.12067e-05_rb /)
+      kbo(:, 3,59, 4) = (/ &
+        & 0.29604e-08_rb,0.12726e-05_rb,0.19786e-05_rb,0.23765e-05_rb,0.14071e-05_rb /)
+      kbo(:, 4,59, 4) = (/ &
+        & 0.33490e-08_rb,0.15486e-05_rb,0.23884e-05_rb,0.28393e-05_rb,0.16353e-05_rb /)
+      kbo(:, 5,59, 4) = (/ &
+        & 0.39177e-08_rb,0.18923e-05_rb,0.28751e-05_rb,0.33648e-05_rb,0.18896e-05_rb /)
+      kbo(:, 1,13, 5) = (/ &
+        & 0.10606e-02_rb,0.17616e-01_rb,0.26337e-01_rb,0.30832e-01_rb,0.23250e-01_rb /)
+      kbo(:, 2,13, 5) = (/ &
+        & 0.11975e-02_rb,0.18851e-01_rb,0.27746e-01_rb,0.32191e-01_rb,0.24461e-01_rb /)
+      kbo(:, 3,13, 5) = (/ &
+        & 0.13686e-02_rb,0.20236e-01_rb,0.29224e-01_rb,0.33409e-01_rb,0.25538e-01_rb /)
+      kbo(:, 4,13, 5) = (/ &
+        & 0.15788e-02_rb,0.21686e-01_rb,0.30822e-01_rb,0.34581e-01_rb,0.26483e-01_rb /)
+      kbo(:, 5,13, 5) = (/ &
+        & 0.18422e-02_rb,0.23201e-01_rb,0.32485e-01_rb,0.35791e-01_rb,0.27339e-01_rb /)
+      kbo(:, 1,14, 5) = (/ &
+        & 0.90299e-03_rb,0.14939e-01_rb,0.22235e-01_rb,0.25969e-01_rb,0.19459e-01_rb /)
+      kbo(:, 2,14, 5) = (/ &
+        & 0.10276e-02_rb,0.16043e-01_rb,0.23464e-01_rb,0.27102e-01_rb,0.20418e-01_rb /)
+      kbo(:, 3,14, 5) = (/ &
+        & 0.11848e-02_rb,0.17244e-01_rb,0.24766e-01_rb,0.28137e-01_rb,0.21279e-01_rb /)
+      kbo(:, 4,14, 5) = (/ &
+        & 0.13763e-02_rb,0.18494e-01_rb,0.26159e-01_rb,0.29141e-01_rb,0.22035e-01_rb /)
+      kbo(:, 5,14, 5) = (/ &
+        & 0.16087e-02_rb,0.19801e-01_rb,0.27586e-01_rb,0.30208e-01_rb,0.22712e-01_rb /)
+      kbo(:, 1,15, 5) = (/ &
+        & 0.76169e-03_rb,0.12657e-01_rb,0.18744e-01_rb,0.21807e-01_rb,0.16155e-01_rb /)
+      kbo(:, 2,15, 5) = (/ &
+        & 0.87429e-03_rb,0.13622e-01_rb,0.19820e-01_rb,0.22753e-01_rb,0.16908e-01_rb /)
+      kbo(:, 3,15, 5) = (/ &
+        & 0.10153e-02_rb,0.14650e-01_rb,0.20967e-01_rb,0.23637e-01_rb,0.17597e-01_rb /)
+      kbo(:, 4,15, 5) = (/ &
+        & 0.11860e-02_rb,0.15728e-01_rb,0.22159e-01_rb,0.24521e-01_rb,0.18236e-01_rb /)
+      kbo(:, 5,15, 5) = (/ &
+        & 0.13940e-02_rb,0.16855e-01_rb,0.23377e-01_rb,0.25442e-01_rb,0.18800e-01_rb /)
+      kbo(:, 1,16, 5) = (/ &
+        & 0.63979e-03_rb,0.10716e-01_rb,0.15782e-01_rb,0.18280e-01_rb,0.13330e-01_rb /)
+      kbo(:, 2,16, 5) = (/ &
+        & 0.73992e-03_rb,0.11550e-01_rb,0.16721e-01_rb,0.19074e-01_rb,0.13955e-01_rb /)
+      kbo(:, 3,16, 5) = (/ &
+        & 0.86535e-03_rb,0.12432e-01_rb,0.17715e-01_rb,0.19835e-01_rb,0.14519e-01_rb /)
+      kbo(:, 4,16, 5) = (/ &
+        & 0.10180e-02_rb,0.13358e-01_rb,0.18733e-01_rb,0.20612e-01_rb,0.15053e-01_rb /)
+      kbo(:, 5,16, 5) = (/ &
+        & 0.12020e-02_rb,0.14330e-01_rb,0.19780e-01_rb,0.21390e-01_rb,0.15523e-01_rb /)
+      kbo(:, 1,17, 5) = (/ &
+        & 0.53827e-03_rb,0.90675e-02_rb,0.13282e-01_rb,0.15310e-01_rb,0.11002e-01_rb /)
+      kbo(:, 2,17, 5) = (/ &
+        & 0.62733e-03_rb,0.97818e-02_rb,0.14093e-01_rb,0.15985e-01_rb,0.11517e-01_rb /)
+      kbo(:, 3,17, 5) = (/ &
+        & 0.73894e-03_rb,0.10536e-01_rb,0.14937e-01_rb,0.16642e-01_rb,0.11982e-01_rb /)
+      kbo(:, 4,17, 5) = (/ &
+        & 0.87471e-03_rb,0.11329e-01_rb,0.15813e-01_rb,0.17308e-01_rb,0.12431e-01_rb /)
+      kbo(:, 5,17, 5) = (/ &
+        & 0.10369e-02_rb,0.12167e-01_rb,0.16717e-01_rb,0.17966e-01_rb,0.12833e-01_rb /)
+      kbo(:, 1,18, 5) = (/ &
+        & 0.45632e-03_rb,0.76631e-02_rb,0.11175e-01_rb,0.12821e-01_rb,0.91007e-02_rb /)
+      kbo(:, 2,18, 5) = (/ &
+        & 0.53618e-03_rb,0.82741e-02_rb,0.11867e-01_rb,0.13402e-01_rb,0.95284e-02_rb /)
+      kbo(:, 3,18, 5) = (/ &
+        & 0.63520e-03_rb,0.89179e-02_rb,0.12591e-01_rb,0.13960e-01_rb,0.99227e-02_rb /)
+      kbo(:, 4,18, 5) = (/ &
+        & 0.75513e-03_rb,0.95966e-02_rb,0.13345e-01_rb,0.14529e-01_rb,0.10294e-01_rb /)
+      kbo(:, 5,18, 5) = (/ &
+        & 0.89828e-03_rb,0.10325e-01_rb,0.14127e-01_rb,0.15082e-01_rb,0.10637e-01_rb /)
+      kbo(:, 1,19, 5) = (/ &
+        & 0.38782e-03_rb,0.64686e-02_rb,0.93947e-02_rb,0.10738e-01_rb,0.75366e-02_rb /)
+      kbo(:, 2,19, 5) = (/ &
+        & 0.45826e-03_rb,0.69872e-02_rb,0.99878e-02_rb,0.11230e-01_rb,0.78920e-02_rb /)
+      kbo(:, 3,19, 5) = (/ &
+        & 0.54544e-03_rb,0.75386e-02_rb,0.10613e-01_rb,0.11706e-01_rb,0.82219e-02_rb /)
+      kbo(:, 4,19, 5) = (/ &
+        & 0.65085e-03_rb,0.81243e-02_rb,0.11261e-01_rb,0.12183e-01_rb,0.85447e-02_rb /)
+      kbo(:, 5,19, 5) = (/ &
+        & 0.77601e-03_rb,0.87598e-02_rb,0.11933e-01_rb,0.12660e-01_rb,0.88388e-02_rb /)
+      kbo(:, 1,20, 5) = (/ &
+        & 0.33304e-03_rb,0.54623e-02_rb,0.79028e-02_rb,0.89960e-02_rb,0.62635e-02_rb /)
+      kbo(:, 2,20, 5) = (/ &
+        & 0.39553e-03_rb,0.59055e-02_rb,0.84155e-02_rb,0.94111e-02_rb,0.65613e-02_rb /)
+      kbo(:, 3,20, 5) = (/ &
+        & 0.47180e-03_rb,0.63779e-02_rb,0.89500e-02_rb,0.98172e-02_rb,0.68459e-02_rb /)
+      kbo(:, 4,20, 5) = (/ &
+        & 0.56453e-03_rb,0.68862e-02_rb,0.95048e-02_rb,0.10225e-01_rb,0.71246e-02_rb /)
+      kbo(:, 5,20, 5) = (/ &
+        & 0.67486e-03_rb,0.74411e-02_rb,0.10082e-01_rb,0.10637e-01_rb,0.73786e-02_rb /)
+      kbo(:, 1,21, 5) = (/ &
+        & 0.28693e-03_rb,0.46180e-02_rb,0.66504e-02_rb,0.75379e-02_rb,0.52071e-02_rb /)
+      kbo(:, 2,21, 5) = (/ &
+        & 0.34180e-03_rb,0.49948e-02_rb,0.70898e-02_rb,0.78866e-02_rb,0.54645e-02_rb /)
+      kbo(:, 3,21, 5) = (/ &
+        & 0.40811e-03_rb,0.54006e-02_rb,0.75474e-02_rb,0.82331e-02_rb,0.57127e-02_rb /)
+      kbo(:, 4,21, 5) = (/ &
+        & 0.48873e-03_rb,0.58434e-02_rb,0.80212e-02_rb,0.85844e-02_rb,0.59470e-02_rb /)
+      kbo(:, 5,21, 5) = (/ &
+        & 0.58593e-03_rb,0.63260e-02_rb,0.85182e-02_rb,0.89408e-02_rb,0.61662e-02_rb /)
+      kbo(:, 1,22, 5) = (/ &
+        & 0.24974e-03_rb,0.39240e-02_rb,0.56208e-02_rb,0.63345e-02_rb,0.43431e-02_rb /)
+      kbo(:, 2,22, 5) = (/ &
+        & 0.29749e-03_rb,0.42526e-02_rb,0.59996e-02_rb,0.66266e-02_rb,0.45624e-02_rb /)
+      kbo(:, 3,22, 5) = (/ &
+        & 0.35608e-03_rb,0.46047e-02_rb,0.63919e-02_rb,0.69259e-02_rb,0.47738e-02_rb /)
+      kbo(:, 4,22, 5) = (/ &
+        & 0.42699e-03_rb,0.49920e-02_rb,0.67993e-02_rb,0.72276e-02_rb,0.49714e-02_rb /)
+      kbo(:, 5,22, 5) = (/ &
+        & 0.51198e-03_rb,0.54166e-02_rb,0.72302e-02_rb,0.75387e-02_rb,0.51660e-02_rb /)
+      kbo(:, 1,23, 5) = (/ &
+        & 0.21716e-03_rb,0.33375e-02_rb,0.47528e-02_rb,0.53238e-02_rb,0.36258e-02_rb /)
+      kbo(:, 2,23, 5) = (/ &
+        & 0.25886e-03_rb,0.36243e-02_rb,0.50797e-02_rb,0.55740e-02_rb,0.38107e-02_rb /)
+      kbo(:, 3,23, 5) = (/ &
+        & 0.31026e-03_rb,0.39353e-02_rb,0.54169e-02_rb,0.58309e-02_rb,0.39876e-02_rb /)
+      kbo(:, 4,23, 5) = (/ &
+        & 0.37235e-03_rb,0.42757e-02_rb,0.57711e-02_rb,0.60911e-02_rb,0.41586e-02_rb /)
+      kbo(:, 5,23, 5) = (/ &
+        & 0.44568e-03_rb,0.46463e-02_rb,0.61476e-02_rb,0.63633e-02_rb,0.43277e-02_rb /)
+      kbo(:, 1,24, 5) = (/ &
+        & 0.18738e-03_rb,0.28412e-02_rb,0.40251e-02_rb,0.44754e-02_rb,0.30232e-02_rb /)
+      kbo(:, 2,24, 5) = (/ &
+        & 0.22422e-03_rb,0.30930e-02_rb,0.43062e-02_rb,0.46921e-02_rb,0.31788e-02_rb /)
+      kbo(:, 3,24, 5) = (/ &
+        & 0.26942e-03_rb,0.33694e-02_rb,0.45983e-02_rb,0.49126e-02_rb,0.33287e-02_rb /)
+      kbo(:, 4,24, 5) = (/ &
+        & 0.32317e-03_rb,0.36702e-02_rb,0.49092e-02_rb,0.51393e-02_rb,0.34771e-02_rb /)
+      kbo(:, 5,24, 5) = (/ &
+        & 0.38638e-03_rb,0.39951e-02_rb,0.52385e-02_rb,0.53815e-02_rb,0.36232e-02_rb /)
+      kbo(:, 1,25, 5) = (/ &
+        & 0.16224e-03_rb,0.24232e-02_rb,0.34141e-02_rb,0.37661e-02_rb,0.25262e-02_rb /)
+      kbo(:, 2,25, 5) = (/ &
+        & 0.19465e-03_rb,0.26463e-02_rb,0.36575e-02_rb,0.39541e-02_rb,0.26577e-02_rb /)
+      kbo(:, 3,25, 5) = (/ &
+        & 0.23391e-03_rb,0.28936e-02_rb,0.39130e-02_rb,0.41446e-02_rb,0.27841e-02_rb /)
+      kbo(:, 4,25, 5) = (/ &
+        & 0.28044e-03_rb,0.31598e-02_rb,0.41853e-02_rb,0.43442e-02_rb,0.29098e-02_rb /)
+      kbo(:, 5,25, 5) = (/ &
+        & 0.33483e-03_rb,0.34437e-02_rb,0.44735e-02_rb,0.45625e-02_rb,0.30351e-02_rb /)
+      kbo(:, 1,26, 5) = (/ &
+        & 0.14132e-03_rb,0.20737e-02_rb,0.29036e-02_rb,0.31762e-02_rb,0.21157e-02_rb /)
+      kbo(:, 2,26, 5) = (/ &
+        & 0.16977e-03_rb,0.22743e-02_rb,0.31152e-02_rb,0.33382e-02_rb,0.22258e-02_rb /)
+      kbo(:, 3,26, 5) = (/ &
+        & 0.20409e-03_rb,0.24947e-02_rb,0.33401e-02_rb,0.35048e-02_rb,0.23338e-02_rb /)
+      kbo(:, 4,26, 5) = (/ &
+        & 0.24472e-03_rb,0.27297e-02_rb,0.35798e-02_rb,0.36835e-02_rb,0.24421e-02_rb /)
+      kbo(:, 5,26, 5) = (/ &
+        & 0.29131e-03_rb,0.29804e-02_rb,0.38308e-02_rb,0.38797e-02_rb,0.25500e-02_rb /)
+      kbo(:, 1,27, 5) = (/ &
+        & 0.12293e-03_rb,0.17797e-02_rb,0.24725e-02_rb,0.26822e-02_rb,0.17718e-02_rb /)
+      kbo(:, 2,27, 5) = (/ &
+        & 0.14789e-03_rb,0.19595e-02_rb,0.26584e-02_rb,0.28222e-02_rb,0.18655e-02_rb /)
+      kbo(:, 3,27, 5) = (/ &
+        & 0.17790e-03_rb,0.21552e-02_rb,0.28584e-02_rb,0.29695e-02_rb,0.19589e-02_rb /)
+      kbo(:, 4,27, 5) = (/ &
+        & 0.21315e-03_rb,0.23624e-02_rb,0.30688e-02_rb,0.31309e-02_rb,0.20520e-02_rb /)
+      kbo(:, 5,27, 5) = (/ &
+        & 0.25285e-03_rb,0.25825e-02_rb,0.32876e-02_rb,0.33068e-02_rb,0.21445e-02_rb /)
+      kbo(:, 1,28, 5) = (/ &
+        & 0.10657e-03_rb,0.15319e-02_rb,0.21096e-02_rb,0.22678e-02_rb,0.14844e-02_rb /)
+      kbo(:, 2,28, 5) = (/ &
+        & 0.12856e-03_rb,0.16920e-02_rb,0.22743e-02_rb,0.23899e-02_rb,0.15639e-02_rb /)
+      kbo(:, 3,28, 5) = (/ &
+        & 0.15471e-03_rb,0.18636e-02_rb,0.24511e-02_rb,0.25221e-02_rb,0.16436e-02_rb /)
+      kbo(:, 4,28, 5) = (/ &
+        & 0.18512e-03_rb,0.20472e-02_rb,0.26364e-02_rb,0.26681e-02_rb,0.17238e-02_rb /)
+      kbo(:, 5,28, 5) = (/ &
+        & 0.21872e-03_rb,0.22411e-02_rb,0.28270e-02_rb,0.28260e-02_rb,0.18048e-02_rb /)
+      kbo(:, 1,29, 5) = (/ &
+        & 0.92876e-04_rb,0.13237e-02_rb,0.18049e-02_rb,0.19214e-02_rb,0.12471e-02_rb /)
+      kbo(:, 2,29, 5) = (/ &
+        & 0.11226e-03_rb,0.14659e-02_rb,0.19518e-02_rb,0.20295e-02_rb,0.13143e-02_rb /)
+      kbo(:, 3,29, 5) = (/ &
+        & 0.13519e-03_rb,0.16171e-02_rb,0.21089e-02_rb,0.21498e-02_rb,0.13833e-02_rb /)
+      kbo(:, 4,29, 5) = (/ &
+        & 0.16102e-03_rb,0.17778e-02_rb,0.22703e-02_rb,0.22810e-02_rb,0.14528e-02_rb /)
+      kbo(:, 5,29, 5) = (/ &
+        & 0.18981e-03_rb,0.19484e-02_rb,0.24374e-02_rb,0.24249e-02_rb,0.15236e-02_rb /)
+      kbo(:, 1,30, 5) = (/ &
+        & 0.80828e-04_rb,0.11471e-02_rb,0.15486e-02_rb,0.16307e-02_rb,0.10482e-02_rb /)
+      kbo(:, 2,30, 5) = (/ &
+        & 0.98063e-04_rb,0.12718e-02_rb,0.16797e-02_rb,0.17287e-02_rb,0.11053e-02_rb /)
+      kbo(:, 3,30, 5) = (/ &
+        & 0.11772e-03_rb,0.14050e-02_rb,0.18177e-02_rb,0.18379e-02_rb,0.11648e-02_rb /)
+      kbo(:, 4,30, 5) = (/ &
+        & 0.13981e-03_rb,0.15469e-02_rb,0.19589e-02_rb,0.19565e-02_rb,0.12258e-02_rb /)
+      kbo(:, 5,30, 5) = (/ &
+        & 0.16446e-03_rb,0.16947e-02_rb,0.21055e-02_rb,0.20874e-02_rb,0.12885e-02_rb /)
+      kbo(:, 1,31, 5) = (/ &
+        & 0.70539e-04_rb,0.99621e-03_rb,0.13325e-02_rb,0.13879e-02_rb,0.88220e-03_rb /)
+      kbo(:, 2,31, 5) = (/ &
+        & 0.85589e-04_rb,0.11063e-02_rb,0.14492e-02_rb,0.14776e-02_rb,0.93113e-03_rb /)
+      kbo(:, 3,31, 5) = (/ &
+        & 0.10244e-03_rb,0.12240e-02_rb,0.15701e-02_rb,0.15764e-02_rb,0.98237e-03_rb /)
+      kbo(:, 4,31, 5) = (/ &
+        & 0.12151e-03_rb,0.13488e-02_rb,0.16942e-02_rb,0.16846e-02_rb,0.10364e-02_rb /)
+      kbo(:, 5,31, 5) = (/ &
+        & 0.14245e-03_rb,0.14753e-02_rb,0.18229e-02_rb,0.18042e-02_rb,0.10910e-02_rb /)
+      kbo(:, 1,32, 5) = (/ &
+        & 0.61598e-04_rb,0.86708e-03_rb,0.11506e-02_rb,0.11857e-02_rb,0.74396e-03_rb /)
+      kbo(:, 2,32, 5) = (/ &
+        & 0.74698e-04_rb,0.96443e-03_rb,0.12533e-02_rb,0.12673e-02_rb,0.78590e-03_rb /)
+      kbo(:, 3,32, 5) = (/ &
+        & 0.89092e-04_rb,0.10684e-02_rb,0.13590e-02_rb,0.13571e-02_rb,0.83090e-03_rb /)
+      kbo(:, 4,32, 5) = (/ &
+        & 0.10537e-03_rb,0.11766e-02_rb,0.14682e-02_rb,0.14560e-02_rb,0.87827e-03_rb /)
+      kbo(:, 5,32, 5) = (/ &
+        & 0.12327e-03_rb,0.12850e-02_rb,0.15813e-02_rb,0.15643e-02_rb,0.92599e-03_rb /)
+      kbo(:, 1,33, 5) = (/ &
+        & 0.53748e-04_rb,0.75629e-03_rb,0.99595e-03_rb,0.10163e-02_rb,0.62809e-03_rb /)
+      kbo(:, 2,33, 5) = (/ &
+        & 0.64972e-04_rb,0.84265e-03_rb,0.10856e-02_rb,0.10908e-02_rb,0.66416e-03_rb /)
+      kbo(:, 3,33, 5) = (/ &
+        & 0.77386e-04_rb,0.93397e-03_rb,0.11787e-02_rb,0.11727e-02_rb,0.70387e-03_rb /)
+      kbo(:, 4,33, 5) = (/ &
+        & 0.91138e-04_rb,0.10266e-02_rb,0.12749e-02_rb,0.12630e-02_rb,0.74507e-03_rb /)
+      kbo(:, 5,33, 5) = (/ &
+        & 0.10640e-03_rb,0.11189e-02_rb,0.13738e-02_rb,0.13608e-02_rb,0.78830e-03_rb /)
+      kbo(:, 1,34, 5) = (/ &
+        & 0.46667e-04_rb,0.65884e-03_rb,0.86049e-03_rb,0.87214e-03_rb,0.53099e-03_rb /)
+      kbo(:, 2,34, 5) = (/ &
+        & 0.56263e-04_rb,0.73490e-03_rb,0.93900e-03_rb,0.93946e-03_rb,0.56278e-03_rb /)
+      kbo(:, 3,34, 5) = (/ &
+        & 0.66853e-04_rb,0.81383e-03_rb,0.10209e-02_rb,0.10142e-02_rb,0.59776e-03_rb /)
+      kbo(:, 4,34, 5) = (/ &
+        & 0.78598e-04_rb,0.89314e-03_rb,0.11054e-02_rb,0.10963e-02_rb,0.63419e-03_rb /)
+      kbo(:, 5,34, 5) = (/ &
+        & 0.91503e-04_rb,0.97193e-03_rb,0.11927e-02_rb,0.11840e-02_rb,0.67320e-03_rb /)
+      kbo(:, 1,35, 5) = (/ &
+        & 0.39599e-04_rb,0.56866e-03_rb,0.73803e-03_rb,0.74491e-03_rb,0.44688e-03_rb /)
+      kbo(:, 2,35, 5) = (/ &
+        & 0.47677e-04_rb,0.63490e-03_rb,0.80685e-03_rb,0.80540e-03_rb,0.47466e-03_rb /)
+      kbo(:, 3,35, 5) = (/ &
+        & 0.56630e-04_rb,0.70279e-03_rb,0.87860e-03_rb,0.87332e-03_rb,0.50476e-03_rb /)
+      kbo(:, 4,35, 5) = (/ &
+        & 0.66506e-04_rb,0.77061e-03_rb,0.95262e-03_rb,0.94676e-03_rb,0.53730e-03_rb /)
+      kbo(:, 5,35, 5) = (/ &
+        & 0.77343e-04_rb,0.83870e-03_rb,0.10295e-02_rb,0.10250e-02_rb,0.57200e-03_rb /)
+      kbo(:, 1,36, 5) = (/ &
+        & 0.32767e-04_rb,0.48523e-03_rb,0.62751e-03_rb,0.63183e-03_rb,0.37353e-03_rb /)
+      kbo(:, 2,36, 5) = (/ &
+        & 0.39450e-04_rb,0.54261e-03_rb,0.68744e-03_rb,0.68587e-03_rb,0.39744e-03_rb /)
+      kbo(:, 3,36, 5) = (/ &
+        & 0.46861e-04_rb,0.60093e-03_rb,0.74977e-03_rb,0.74623e-03_rb,0.42315e-03_rb /)
+      kbo(:, 4,36, 5) = (/ &
+        & 0.54956e-04_rb,0.65916e-03_rb,0.81469e-03_rb,0.81158e-03_rb,0.45144e-03_rb /)
+      kbo(:, 5,36, 5) = (/ &
+        & 0.63908e-04_rb,0.71820e-03_rb,0.88212e-03_rb,0.88103e-03_rb,0.48165e-03_rb /)
+      kbo(:, 1,37, 5) = (/ &
+        & 0.26734e-04_rb,0.40754e-03_rb,0.52645e-03_rb,0.53014e-03_rb,0.31118e-03_rb /)
+      kbo(:, 2,37, 5) = (/ &
+        & 0.32273e-04_rb,0.45661e-03_rb,0.57825e-03_rb,0.57766e-03_rb,0.33206e-03_rb /)
+      kbo(:, 3,37, 5) = (/ &
+        & 0.38488e-04_rb,0.50697e-03_rb,0.63245e-03_rb,0.63058e-03_rb,0.35476e-03_rb /)
+      kbo(:, 4,37, 5) = (/ &
+        & 0.45228e-04_rb,0.55706e-03_rb,0.68918e-03_rb,0.68809e-03_rb,0.37944e-03_rb /)
+      kbo(:, 5,37, 5) = (/ &
+        & 0.52675e-04_rb,0.60808e-03_rb,0.74794e-03_rb,0.74934e-03_rb,0.40598e-03_rb /)
+      kbo(:, 1,38, 5) = (/ &
+        & 0.21751e-04_rb,0.34209e-03_rb,0.44146e-03_rb,0.44458e-03_rb,0.25920e-03_rb /)
+      kbo(:, 2,38, 5) = (/ &
+        & 0.26326e-04_rb,0.38415e-03_rb,0.48603e-03_rb,0.48632e-03_rb,0.27730e-03_rb /)
+      kbo(:, 3,38, 5) = (/ &
+        & 0.31515e-04_rb,0.42736e-03_rb,0.53325e-03_rb,0.53262e-03_rb,0.29714e-03_rb /)
+      kbo(:, 4,38, 5) = (/ &
+        & 0.37219e-04_rb,0.47064e-03_rb,0.58263e-03_rb,0.58321e-03_rb,0.31890e-03_rb /)
+      kbo(:, 5,38, 5) = (/ &
+        & 0.43344e-04_rb,0.51493e-03_rb,0.63402e-03_rb,0.63729e-03_rb,0.34212e-03_rb /)
+      kbo(:, 1,39, 5) = (/ &
+        & 0.17643e-04_rb,0.28717e-03_rb,0.37020e-03_rb,0.37288e-03_rb,0.21580e-03_rb /)
+      kbo(:, 2,39, 5) = (/ &
+        & 0.21418e-04_rb,0.32343e-03_rb,0.40871e-03_rb,0.40953e-03_rb,0.23151e-03_rb /)
+      kbo(:, 3,39, 5) = (/ &
+        & 0.25725e-04_rb,0.36044e-03_rb,0.44966e-03_rb,0.45005e-03_rb,0.24880e-03_rb /)
+      kbo(:, 4,39, 5) = (/ &
+        & 0.30479e-04_rb,0.39785e-03_rb,0.49263e-03_rb,0.49445e-03_rb,0.26783e-03_rb /)
+      kbo(:, 5,39, 5) = (/ &
+        & 0.35653e-04_rb,0.43646e-03_rb,0.53771e-03_rb,0.54230e-03_rb,0.28822e-03_rb /)
+      kbo(:, 1,40, 5) = (/ &
+        & 0.14102e-04_rb,0.23814e-03_rb,0.30730e-03_rb,0.30981e-03_rb,0.17864e-03_rb /)
+      kbo(:, 2,40, 5) = (/ &
+        & 0.17187e-04_rb,0.26934e-03_rb,0.34039e-03_rb,0.34146e-03_rb,0.19234e-03_rb /)
+      kbo(:, 3,40, 5) = (/ &
+        & 0.20739e-04_rb,0.30130e-03_rb,0.37571e-03_rb,0.37672e-03_rb,0.20737e-03_rb /)
+      kbo(:, 4,40, 5) = (/ &
+        & 0.24670e-04_rb,0.33333e-03_rb,0.41283e-03_rb,0.41538e-03_rb,0.22408e-03_rb /)
+      kbo(:, 5,40, 5) = (/ &
+        & 0.29046e-04_rb,0.36694e-03_rb,0.45216e-03_rb,0.45729e-03_rb,0.24187e-03_rb /)
+      kbo(:, 1,41, 5) = (/ &
+        & 0.11221e-04_rb,0.19710e-03_rb,0.25465e-03_rb,0.25696e-03_rb,0.14773e-03_rb /)
+      kbo(:, 2,41, 5) = (/ &
+        & 0.13747e-04_rb,0.22390e-03_rb,0.28305e-03_rb,0.28413e-03_rb,0.15955e-03_rb /)
+      kbo(:, 3,41, 5) = (/ &
+        & 0.16649e-04_rb,0.25145e-03_rb,0.31346e-03_rb,0.31467e-03_rb,0.17269e-03_rb /)
+      kbo(:, 4,41, 5) = (/ &
+        & 0.19899e-04_rb,0.27935e-03_rb,0.34563e-03_rb,0.34845e-03_rb,0.18718e-03_rb /)
+      kbo(:, 5,41, 5) = (/ &
+        & 0.23568e-04_rb,0.30830e-03_rb,0.37974e-03_rb,0.38512e-03_rb,0.20281e-03_rb /)
+      kbo(:, 1,42, 5) = (/ &
+        & 0.89147e-05_rb,0.16314e-03_rb,0.21088e-03_rb,0.21294e-03_rb,0.12205e-03_rb /)
+      kbo(:, 2,42, 5) = (/ &
+        & 0.10957e-04_rb,0.18596e-03_rb,0.23523e-03_rb,0.23628e-03_rb,0.13225e-03_rb /)
+      kbo(:, 3,42, 5) = (/ &
+        & 0.13327e-04_rb,0.20974e-03_rb,0.26134e-03_rb,0.26263e-03_rb,0.14356e-03_rb /)
+      kbo(:, 4,42, 5) = (/ &
+        & 0.16005e-04_rb,0.23378e-03_rb,0.28925e-03_rb,0.29202e-03_rb,0.15621e-03_rb /)
+      kbo(:, 5,42, 5) = (/ &
+        & 0.19038e-04_rb,0.25914e-03_rb,0.31897e-03_rb,0.32415e-03_rb,0.16982e-03_rb /)
+      kbo(:, 1,43, 5) = (/ &
+        & 0.69995e-05_rb,0.13405e-03_rb,0.17338e-03_rb,0.17535e-03_rb,0.10036e-03_rb /)
+      kbo(:, 2,43, 5) = (/ &
+        & 0.86406e-05_rb,0.15345e-03_rb,0.19416e-03_rb,0.19514e-03_rb,0.10910e-03_rb /)
+      kbo(:, 3,43, 5) = (/ &
+        & 0.10556e-04_rb,0.17373e-03_rb,0.21659e-03_rb,0.21767e-03_rb,0.11887e-03_rb /)
+      kbo(:, 4,43, 5) = (/ &
+        & 0.12739e-04_rb,0.19445e-03_rb,0.24053e-03_rb,0.24311e-03_rb,0.12980e-03_rb /)
+      kbo(:, 5,43, 5) = (/ &
+        & 0.15232e-04_rb,0.21640e-03_rb,0.26645e-03_rb,0.27107e-03_rb,0.14169e-03_rb /)
+      kbo(:, 1,44, 5) = (/ &
+        & 0.54712e-05_rb,0.10970e-03_rb,0.14195e-03_rb,0.14386e-03_rb,0.82260e-04_rb /)
+      kbo(:, 2,44, 5) = (/ &
+        & 0.67644e-05_rb,0.12612e-03_rb,0.15963e-03_rb,0.16061e-03_rb,0.89727e-04_rb /)
+      kbo(:, 3,44, 5) = (/ &
+        & 0.82973e-05_rb,0.14348e-03_rb,0.17878e-03_rb,0.17975e-03_rb,0.98122e-04_rb /)
+      kbo(:, 4,44, 5) = (/ &
+        & 0.10082e-04_rb,0.16132e-03_rb,0.19952e-03_rb,0.20155e-03_rb,0.10755e-03_rb /)
+      kbo(:, 5,44, 5) = (/ &
+        & 0.12107e-04_rb,0.18008e-03_rb,0.22179e-03_rb,0.22576e-03_rb,0.11787e-03_rb /)
+      kbo(:, 1,45, 5) = (/ &
+        & 0.42767e-05_rb,0.89680e-04_rb,0.11611e-03_rb,0.11781e-03_rb,0.67338e-04_rb /)
+      kbo(:, 2,45, 5) = (/ &
+        & 0.52860e-05_rb,0.10360e-03_rb,0.13107e-03_rb,0.13203e-03_rb,0.73722e-04_rb /)
+      kbo(:, 3,45, 5) = (/ &
+        & 0.65107e-05_rb,0.11838e-03_rb,0.14735e-03_rb,0.14829e-03_rb,0.80852e-04_rb /)
+      kbo(:, 4,45, 5) = (/ &
+        & 0.79501e-05_rb,0.13374e-03_rb,0.16520e-03_rb,0.16693e-03_rb,0.88969e-04_rb /)
+      kbo(:, 5,45, 5) = (/ &
+        & 0.95937e-05_rb,0.14993e-03_rb,0.18456e-03_rb,0.18781e-03_rb,0.97897e-04_rb /)
+      kbo(:, 1,46, 5) = (/ &
+        & 0.33226e-05_rb,0.72918e-04_rb,0.94635e-04_rb,0.96069e-04_rb,0.54912e-04_rb /)
+      kbo(:, 2,46, 5) = (/ &
+        & 0.41185e-05_rb,0.84705e-04_rb,0.10726e-03_rb,0.10809e-03_rb,0.60325e-04_rb /)
+      kbo(:, 3,46, 5) = (/ &
+        & 0.50796e-05_rb,0.97414e-04_rb,0.12106e-03_rb,0.12184e-03_rb,0.66415e-04_rb /)
+      kbo(:, 4,46, 5) = (/ &
+        & 0.62311e-05_rb,0.11055e-03_rb,0.13625e-03_rb,0.13772e-03_rb,0.73354e-04_rb /)
+      kbo(:, 5,46, 5) = (/ &
+        & 0.75594e-05_rb,0.12439e-03_rb,0.15297e-03_rb,0.15569e-03_rb,0.80972e-04_rb /)
+      kbo(:, 1,47, 5) = (/ &
+        & 0.25507e-05_rb,0.58753e-04_rb,0.76599e-04_rb,0.77798e-04_rb,0.44508e-04_rb /)
+      kbo(:, 2,47, 5) = (/ &
+        & 0.31800e-05_rb,0.68679e-04_rb,0.87240e-04_rb,0.87843e-04_rb,0.49115e-04_rb /)
+      kbo(:, 3,47, 5) = (/ &
+        & 0.39273e-05_rb,0.79497e-04_rb,0.98871e-04_rb,0.99421e-04_rb,0.54249e-04_rb /)
+      kbo(:, 4,47, 5) = (/ &
+        & 0.48346e-05_rb,0.90782e-04_rb,0.11173e-03_rb,0.11282e-03_rb,0.60113e-04_rb /)
+      kbo(:, 5,47, 5) = (/ &
+        & 0.58995e-05_rb,0.10267e-03_rb,0.12592e-03_rb,0.12815e-03_rb,0.66656e-04_rb /)
+      kbo(:, 1,48, 5) = (/ &
+        & 0.19539e-05_rb,0.47174e-04_rb,0.61874e-04_rb,0.62916e-04_rb,0.35973e-04_rb /)
+      kbo(:, 2,48, 5) = (/ &
+        & 0.24452e-05_rb,0.55575e-04_rb,0.70853e-04_rb,0.71238e-04_rb,0.39898e-04_rb /)
+      kbo(:, 3,48, 5) = (/ &
+        & 0.30402e-05_rb,0.64783e-04_rb,0.80633e-04_rb,0.80921e-04_rb,0.44214e-04_rb /)
+      kbo(:, 4,48, 5) = (/ &
+        & 0.37390e-05_rb,0.74439e-04_rb,0.91498e-04_rb,0.92208e-04_rb,0.49162e-04_rb /)
+      kbo(:, 5,48, 5) = (/ &
+        & 0.45836e-05_rb,0.84608e-04_rb,0.10358e-03_rb,0.10531e-03_rb,0.54702e-04_rb /)
+      kbo(:, 1,49, 5) = (/ &
+        & 0.14940e-05_rb,0.37716e-04_rb,0.49829e-04_rb,0.50804e-04_rb,0.28987e-04_rb /)
+      kbo(:, 2,49, 5) = (/ &
+        & 0.18758e-05_rb,0.44777e-04_rb,0.57392e-04_rb,0.57697e-04_rb,0.32317e-04_rb /)
+      kbo(:, 3,49, 5) = (/ &
+        & 0.23413e-05_rb,0.52604e-04_rb,0.65608e-04_rb,0.65748e-04_rb,0.35946e-04_rb /)
+      kbo(:, 4,49, 5) = (/ &
+        & 0.28961e-05_rb,0.60891e-04_rb,0.74824e-04_rb,0.75182e-04_rb,0.40099e-04_rb /)
+      kbo(:, 5,49, 5) = (/ &
+        & 0.35524e-05_rb,0.69587e-04_rb,0.85068e-04_rb,0.86295e-04_rb,0.44804e-04_rb /)
+      kbo(:, 1,50, 5) = (/ &
+        & 0.11500e-05_rb,0.30169e-04_rb,0.40157e-04_rb,0.41069e-04_rb,0.23362e-04_rb /)
+      kbo(:, 2,50, 5) = (/ &
+        & 0.14453e-05_rb,0.36089e-04_rb,0.46549e-04_rb,0.46799e-04_rb,0.26193e-04_rb /)
+      kbo(:, 3,50, 5) = (/ &
+        & 0.18129e-05_rb,0.42735e-04_rb,0.53474e-04_rb,0.53514e-04_rb,0.29249e-04_rb /)
+      kbo(:, 4,50, 5) = (/ &
+        & 0.22529e-05_rb,0.49843e-04_rb,0.61234e-04_rb,0.61404e-04_rb,0.32748e-04_rb /)
+      kbo(:, 5,50, 5) = (/ &
+        & 0.27762e-05_rb,0.57328e-04_rb,0.70027e-04_rb,0.70783e-04_rb,0.36712e-04_rb /)
+      kbo(:, 1,51, 5) = (/ &
+        & 0.88851e-06_rb,0.24095e-04_rb,0.32303e-04_rb,0.33210e-04_rb,0.18805e-04_rb /)
+      kbo(:, 2,51, 5) = (/ &
+        & 0.11177e-05_rb,0.29082e-04_rb,0.37705e-04_rb,0.37944e-04_rb,0.21209e-04_rb /)
+      kbo(:, 3,51, 5) = (/ &
+        & 0.14060e-05_rb,0.34667e-04_rb,0.43578e-04_rb,0.43570e-04_rb,0.23792e-04_rb /)
+      kbo(:, 4,51, 5) = (/ &
+        & 0.17539e-05_rb,0.40739e-04_rb,0.50114e-04_rb,0.50172e-04_rb,0.26720e-04_rb /)
+      kbo(:, 5,51, 5) = (/ &
+        & 0.21729e-05_rb,0.47224e-04_rb,0.57598e-04_rb,0.58070e-04_rb,0.30079e-04_rb /)
+      kbo(:, 1,52, 5) = (/ &
+        & 0.68525e-06_rb,0.19178e-04_rb,0.25896e-04_rb,0.26809e-04_rb,0.15097e-04_rb /)
+      kbo(:, 2,52, 5) = (/ &
+        & 0.86301e-06_rb,0.23336e-04_rb,0.30434e-04_rb,0.30713e-04_rb,0.17120e-04_rb /)
+      kbo(:, 3,52, 5) = (/ &
+        & 0.10889e-05_rb,0.28028e-04_rb,0.35422e-04_rb,0.35397e-04_rb,0.19301e-04_rb /)
+      kbo(:, 4,52, 5) = (/ &
+        & 0.13649e-05_rb,0.33187e-04_rb,0.40954e-04_rb,0.40921e-04_rb,0.21752e-04_rb /)
+      kbo(:, 5,52, 5) = (/ &
+        & 0.16982e-05_rb,0.38747e-04_rb,0.47260e-04_rb,0.47557e-04_rb,0.24588e-04_rb /)
+      kbo(:, 1,53, 5) = (/ &
+        & 0.52809e-06_rb,0.15206e-04_rb,0.20688e-04_rb,0.21592e-04_rb,0.12084e-04_rb /)
+      kbo(:, 2,53, 5) = (/ &
+        & 0.66493e-06_rb,0.18647e-04_rb,0.24479e-04_rb,0.24819e-04_rb,0.13781e-04_rb /)
+      kbo(:, 3,53, 5) = (/ &
+        & 0.84102e-06_rb,0.22574e-04_rb,0.28683e-04_rb,0.28690e-04_rb,0.15621e-04_rb /)
+      kbo(:, 4,53, 5) = (/ &
+        & 0.10585e-05_rb,0.26955e-04_rb,0.33364e-04_rb,0.33298e-04_rb,0.17677e-04_rb /)
+      kbo(:, 5,53, 5) = (/ &
+        & 0.13239e-05_rb,0.31710e-04_rb,0.38733e-04_rb,0.38864e-04_rb,0.20049e-04_rb /)
+      kbo(:, 1,54, 5) = (/ &
+        & 0.40969e-06_rb,0.12093e-04_rb,0.16564e-04_rb,0.17421e-04_rb,0.96882e-05_rb /)
+      kbo(:, 2,54, 5) = (/ &
+        & 0.51569e-06_rb,0.14937e-04_rb,0.19734e-04_rb,0.20094e-04_rb,0.11112e-04_rb /)
+      kbo(:, 3,54, 5) = (/ &
+        & 0.65296e-06_rb,0.18229e-04_rb,0.23282e-04_rb,0.23321e-04_rb,0.12664e-04_rb /)
+      kbo(:, 4,54, 5) = (/ &
+        & 0.82573e-06_rb,0.21950e-04_rb,0.27231e-04_rb,0.27150e-04_rb,0.14393e-04_rb /)
+      kbo(:, 5,54, 5) = (/ &
+        & 0.10373e-05_rb,0.26013e-04_rb,0.31791e-04_rb,0.31828e-04_rb,0.16379e-04_rb /)
+      kbo(:, 1,55, 5) = (/ &
+        & 0.31928e-06_rb,0.96162e-05_rb,0.13257e-04_rb,0.14053e-04_rb,0.77741e-05_rb /)
+      kbo(:, 2,55, 5) = (/ &
+        & 0.40112e-06_rb,0.11963e-04_rb,0.15906e-04_rb,0.16257e-04_rb,0.89578e-05_rb /)
+      kbo(:, 3,55, 5) = (/ &
+        & 0.50816e-06_rb,0.14717e-04_rb,0.18886e-04_rb,0.18947e-04_rb,0.10262e-04_rb /)
+      kbo(:, 4,55, 5) = (/ &
+        & 0.64465e-06_rb,0.17864e-04_rb,0.22207e-04_rb,0.22155e-04_rb,0.11715e-04_rb /)
+      kbo(:, 5,55, 5) = (/ &
+        & 0.81328e-06_rb,0.21326e-04_rb,0.26076e-04_rb,0.26061e-04_rb,0.13376e-04_rb /)
+      kbo(:, 1,56, 5) = (/ &
+        & 0.24829e-06_rb,0.76204e-05_rb,0.10578e-04_rb,0.11309e-04_rb,0.62208e-05_rb /)
+      kbo(:, 2,56, 5) = (/ &
+        & 0.31176e-06_rb,0.95488e-05_rb,0.12780e-04_rb,0.13125e-04_rb,0.72013e-05_rb /)
+      kbo(:, 3,56, 5) = (/ &
+        & 0.39506e-06_rb,0.11850e-04_rb,0.15279e-04_rb,0.15348e-04_rb,0.82947e-05_rb /)
+      kbo(:, 4,56, 5) = (/ &
+        & 0.50266e-06_rb,0.14492e-04_rb,0.18074e-04_rb,0.18040e-04_rb,0.95153e-05_rb /)
+      kbo(:, 5,56, 5) = (/ &
+        & 0.63638e-06_rb,0.17442e-04_rb,0.21336e-04_rb,0.21310e-04_rb,0.10904e-04_rb /)
+      kbo(:, 1,57, 5) = (/ &
+        & 0.19302e-06_rb,0.60187e-05_rb,0.84162e-05_rb,0.90799e-05_rb,0.49649e-05_rb /)
+      kbo(:, 2,57, 5) = (/ &
+        & 0.24222e-06_rb,0.75959e-05_rb,0.10233e-04_rb,0.10570e-04_rb,0.57701e-05_rb /)
+      kbo(:, 3,57, 5) = (/ &
+        & 0.30688e-06_rb,0.95080e-05_rb,0.12318e-04_rb,0.12403e-04_rb,0.66913e-05_rb /)
+      kbo(:, 4,57, 5) = (/ &
+        & 0.39089e-06_rb,0.11719e-04_rb,0.14670e-04_rb,0.14644e-04_rb,0.77166e-05_rb /)
+      kbo(:, 5,57, 5) = (/ &
+        & 0.49674e-06_rb,0.14214e-04_rb,0.17402e-04_rb,0.17382e-04_rb,0.88727e-05_rb /)
+      kbo(:, 1,58, 5) = (/ &
+        & 0.15046e-06_rb,0.47663e-05_rb,0.66998e-05_rb,0.72908e-05_rb,0.39631e-05_rb /)
+      kbo(:, 2,58, 5) = (/ &
+        & 0.18856e-06_rb,0.60459e-05_rb,0.81908e-05_rb,0.85206e-05_rb,0.46270e-05_rb /)
+      kbo(:, 3,58, 5) = (/ &
+        & 0.23869e-06_rb,0.76302e-05_rb,0.99245e-05_rb,0.10023e-04_rb,0.53977e-05_rb /)
+      kbo(:, 4,58, 5) = (/ &
+        & 0.30459e-06_rb,0.94767e-05_rb,0.11911e-04_rb,0.11894e-04_rb,0.62579e-05_rb /)
+      kbo(:, 5,58, 5) = (/ &
+        & 0.38820e-06_rb,0.11588e-04_rb,0.14205e-04_rb,0.14182e-04_rb,0.72226e-05_rb /)
+      kbo(:, 1,59, 5) = (/ &
+        & 0.12212e-06_rb,0.39332e-05_rb,0.55230e-05_rb,0.60094e-05_rb,0.32499e-05_rb /)
+      kbo(:, 2,59, 5) = (/ &
+        & 0.15324e-06_rb,0.50178e-05_rb,0.67879e-05_rb,0.70566e-05_rb,0.38108e-05_rb /)
+      kbo(:, 3,59, 5) = (/ &
+        & 0.19418e-06_rb,0.63678e-05_rb,0.82647e-05_rb,0.83443e-05_rb,0.44672e-05_rb /)
+      kbo(:, 4,59, 5) = (/ &
+        & 0.24820e-06_rb,0.79543e-05_rb,0.99670e-05_rb,0.99518e-05_rb,0.52027e-05_rb /)
+      kbo(:, 5,59, 5) = (/ &
+        & 0.31740e-06_rb,0.97704e-05_rb,0.11964e-04_rb,0.11938e-04_rb,0.60278e-05_rb /)
+      kbo(:, 1,13, 6) = (/ &
+        & 0.10896e-01_rb,0.63076e-01_rb,0.78831e-01_rb,0.78091e-01_rb,0.55428e-01_rb /)
+      kbo(:, 2,13, 6) = (/ &
+        & 0.13036e-01_rb,0.66370e-01_rb,0.81226e-01_rb,0.79692e-01_rb,0.56778e-01_rb /)
+      kbo(:, 3,13, 6) = (/ &
+        & 0.15498e-01_rb,0.69685e-01_rb,0.83483e-01_rb,0.81400e-01_rb,0.57975e-01_rb /)
+      kbo(:, 4,13, 6) = (/ &
+        & 0.18239e-01_rb,0.73147e-01_rb,0.85845e-01_rb,0.83249e-01_rb,0.59127e-01_rb /)
+      kbo(:, 5,13, 6) = (/ &
+        & 0.21232e-01_rb,0.76581e-01_rb,0.88266e-01_rb,0.85245e-01_rb,0.60192e-01_rb /)
+      kbo(:, 1,14, 6) = (/ &
+        & 0.94274e-02_rb,0.53526e-01_rb,0.66496e-01_rb,0.65527e-01_rb,0.46374e-01_rb /)
+      kbo(:, 2,14, 6) = (/ &
+        & 0.11284e-01_rb,0.56390e-01_rb,0.68527e-01_rb,0.66955e-01_rb,0.47524e-01_rb /)
+      kbo(:, 3,14, 6) = (/ &
+        & 0.13394e-01_rb,0.59305e-01_rb,0.70546e-01_rb,0.68479e-01_rb,0.48560e-01_rb /)
+      kbo(:, 4,14, 6) = (/ &
+        & 0.15751e-01_rb,0.62293e-01_rb,0.72634e-01_rb,0.70165e-01_rb,0.49587e-01_rb /)
+      kbo(:, 5,14, 6) = (/ &
+        & 0.18326e-01_rb,0.65240e-01_rb,0.74773e-01_rb,0.71967e-01_rb,0.50492e-01_rb /)
+      kbo(:, 1,15, 6) = (/ &
+        & 0.81352e-02_rb,0.45294e-01_rb,0.55939e-01_rb,0.54933e-01_rb,0.38471e-01_rb /)
+      kbo(:, 2,15, 6) = (/ &
+        & 0.97406e-02_rb,0.47797e-01_rb,0.57705e-01_rb,0.56201e-01_rb,0.39475e-01_rb /)
+      kbo(:, 3,15, 6) = (/ &
+        & 0.11542e-01_rb,0.50349e-01_rb,0.59500e-01_rb,0.57588e-01_rb,0.40391e-01_rb /)
+      kbo(:, 4,15, 6) = (/ &
+        & 0.13568e-01_rb,0.52924e-01_rb,0.61342e-01_rb,0.59116e-01_rb,0.41250e-01_rb /)
+      kbo(:, 5,15, 6) = (/ &
+        & 0.15789e-01_rb,0.55427e-01_rb,0.63250e-01_rb,0.60727e-01_rb,0.42016e-01_rb /)
+      kbo(:, 1,16, 6) = (/ &
+        & 0.70159e-02_rb,0.38272e-01_rb,0.46984e-01_rb,0.46002e-01_rb,0.31818e-01_rb /)
+      kbo(:, 2,16, 6) = (/ &
+        & 0.83846e-02_rb,0.40476e-01_rb,0.48519e-01_rb,0.47148e-01_rb,0.32640e-01_rb /)
+      kbo(:, 3,16, 6) = (/ &
+        & 0.99392e-02_rb,0.42699e-01_rb,0.50118e-01_rb,0.48421e-01_rb,0.33435e-01_rb /)
+      kbo(:, 4,16, 6) = (/ &
+        & 0.11675e-01_rb,0.44875e-01_rb,0.51760e-01_rb,0.49780e-01_rb,0.34161e-01_rb /)
+      kbo(:, 5,16, 6) = (/ &
+        & 0.13584e-01_rb,0.46992e-01_rb,0.53405e-01_rb,0.51224e-01_rb,0.34855e-01_rb /)
+      kbo(:, 1,17, 6) = (/ &
+        & 0.60402e-02_rb,0.32343e-01_rb,0.39419e-01_rb,0.38482e-01_rb,0.26323e-01_rb /)
+      kbo(:, 2,17, 6) = (/ &
+        & 0.72134e-02_rb,0.34265e-01_rb,0.40783e-01_rb,0.39523e-01_rb,0.27045e-01_rb /)
+      kbo(:, 3,17, 6) = (/ &
+        & 0.85415e-02_rb,0.36157e-01_rb,0.42200e-01_rb,0.40657e-01_rb,0.27733e-01_rb /)
+      kbo(:, 4,17, 6) = (/ &
+        & 0.10023e-01_rb,0.37979e-01_rb,0.43620e-01_rb,0.41877e-01_rb,0.28354e-01_rb /)
+      kbo(:, 5,17, 6) = (/ &
+        & 0.11662e-01_rb,0.39775e-01_rb,0.45034e-01_rb,0.43161e-01_rb,0.28989e-01_rb /)
+      kbo(:, 1,18, 6) = (/ &
+        & 0.51905e-02_rb,0.27334e-01_rb,0.33081e-01_rb,0.32183e-01_rb,0.21845e-01_rb /)
+      kbo(:, 2,18, 6) = (/ &
+        & 0.61907e-02_rb,0.28996e-01_rb,0.34295e-01_rb,0.33127e-01_rb,0.22456e-01_rb /)
+      kbo(:, 3,18, 6) = (/ &
+        & 0.73283e-02_rb,0.30572e-01_rb,0.35522e-01_rb,0.34131e-01_rb,0.23047e-01_rb /)
+      kbo(:, 4,18, 6) = (/ &
+        & 0.85960e-02_rb,0.32113e-01_rb,0.36725e-01_rb,0.35202e-01_rb,0.23589e-01_rb /)
+      kbo(:, 5,18, 6) = (/ &
+        & 0.10011e-01_rb,0.33654e-01_rb,0.37950e-01_rb,0.36339e-01_rb,0.24154e-01_rb /)
+      kbo(:, 1,19, 6) = (/ &
+        & 0.44474e-02_rb,0.23093e-01_rb,0.27758e-01_rb,0.26913e-01_rb,0.18159e-01_rb /)
+      kbo(:, 2,19, 6) = (/ &
+        & 0.53019e-02_rb,0.24497e-01_rb,0.28826e-01_rb,0.27764e-01_rb,0.18694e-01_rb /)
+      kbo(:, 3,19, 6) = (/ &
+        & 0.62735e-02_rb,0.25825e-01_rb,0.29864e-01_rb,0.28669e-01_rb,0.19187e-01_rb /)
+      kbo(:, 4,19, 6) = (/ &
+        & 0.73683e-02_rb,0.27139e-01_rb,0.30890e-01_rb,0.29627e-01_rb,0.19650e-01_rb /)
+      kbo(:, 5,19, 6) = (/ &
+        & 0.85933e-02_rb,0.28467e-01_rb,0.31975e-01_rb,0.30634e-01_rb,0.20138e-01_rb /)
+      kbo(:, 1,20, 6) = (/ &
+        & 0.38215e-02_rb,0.19522e-01_rb,0.23307e-01_rb,0.22532e-01_rb,0.15180e-01_rb /)
+      kbo(:, 2,20, 6) = (/ &
+        & 0.45489e-02_rb,0.20697e-01_rb,0.24217e-01_rb,0.23292e-01_rb,0.15626e-01_rb /)
+      kbo(:, 3,20, 6) = (/ &
+        & 0.53838e-02_rb,0.21827e-01_rb,0.25099e-01_rb,0.24107e-01_rb,0.16039e-01_rb /)
+      kbo(:, 4,20, 6) = (/ &
+        & 0.63294e-02_rb,0.22947e-01_rb,0.25996e-01_rb,0.24951e-01_rb,0.16431e-01_rb /)
+      kbo(:, 5,20, 6) = (/ &
+        & 0.73910e-02_rb,0.24098e-01_rb,0.26969e-01_rb,0.25840e-01_rb,0.16861e-01_rb /)
+      kbo(:, 1,21, 6) = (/ &
+        & 0.32849e-02_rb,0.16485e-01_rb,0.19564e-01_rb,0.18873e-01_rb,0.12724e-01_rb /)
+      kbo(:, 2,21, 6) = (/ &
+        & 0.39093e-02_rb,0.17476e-01_rb,0.20333e-01_rb,0.19553e-01_rb,0.13080e-01_rb /)
+      kbo(:, 3,21, 6) = (/ &
+        & 0.46257e-02_rb,0.18440e-01_rb,0.21099e-01_rb,0.20272e-01_rb,0.13424e-01_rb /)
+      kbo(:, 4,21, 6) = (/ &
+        & 0.54436e-02_rb,0.19400e-01_rb,0.21897e-01_rb,0.21018e-01_rb,0.13774e-01_rb /)
+      kbo(:, 5,21, 6) = (/ &
+        & 0.63568e-02_rb,0.20406e-01_rb,0.22777e-01_rb,0.21806e-01_rb,0.14153e-01_rb /)
+      kbo(:, 1,22, 6) = (/ &
+        & 0.28524e-02_rb,0.13970e-01_rb,0.16464e-01_rb,0.15855e-01_rb,0.10647e-01_rb /)
+      kbo(:, 2,22, 6) = (/ &
+        & 0.33998e-02_rb,0.14799e-01_rb,0.17121e-01_rb,0.16464e-01_rb,0.10957e-01_rb /)
+      kbo(:, 3,22, 6) = (/ &
+        & 0.40218e-02_rb,0.15618e-01_rb,0.17789e-01_rb,0.17098e-01_rb,0.11264e-01_rb /)
+      kbo(:, 4,22, 6) = (/ &
+        & 0.47350e-02_rb,0.16459e-01_rb,0.18512e-01_rb,0.17761e-01_rb,0.11585e-01_rb /)
+      kbo(:, 5,22, 6) = (/ &
+        & 0.55269e-02_rb,0.17342e-01_rb,0.19306e-01_rb,0.18466e-01_rb,0.11905e-01_rb /)
+      kbo(:, 1,23, 6) = (/ &
+        & 0.24776e-02_rb,0.11832e-01_rb,0.13862e-01_rb,0.13338e-01_rb,0.89101e-02_rb /)
+      kbo(:, 2,23, 6) = (/ &
+        & 0.29594e-02_rb,0.12532e-01_rb,0.14430e-01_rb,0.13874e-01_rb,0.91836e-02_rb /)
+      kbo(:, 3,23, 6) = (/ &
+        & 0.35060e-02_rb,0.13237e-01_rb,0.15025e-01_rb,0.14435e-01_rb,0.94582e-02_rb /)
+      kbo(:, 4,23, 6) = (/ &
+        & 0.41276e-02_rb,0.13976e-01_rb,0.15673e-01_rb,0.15028e-01_rb,0.97462e-02_rb /)
+      kbo(:, 5,23, 6) = (/ &
+        & 0.48108e-02_rb,0.14761e-01_rb,0.16387e-01_rb,0.15666e-01_rb,0.10041e-01_rb /)
+      kbo(:, 1,24, 6) = (/ &
+        & 0.21553e-02_rb,0.10022e-01_rb,0.11681e-01_rb,0.11233e-01_rb,0.74484e-02_rb /)
+      kbo(:, 2,24, 6) = (/ &
+        & 0.25764e-02_rb,0.10621e-01_rb,0.12176e-01_rb,0.11709e-01_rb,0.76914e-02_rb /)
+      kbo(:, 3,24, 6) = (/ &
+        & 0.30587e-02_rb,0.11236e-01_rb,0.12711e-01_rb,0.12208e-01_rb,0.79451e-02_rb /)
+      kbo(:, 4,24, 6) = (/ &
+        & 0.36022e-02_rb,0.11891e-01_rb,0.13293e-01_rb,0.12744e-01_rb,0.82033e-02_rb /)
+      kbo(:, 5,24, 6) = (/ &
+        & 0.41914e-02_rb,0.12593e-01_rb,0.13939e-01_rb,0.13324e-01_rb,0.84674e-02_rb /)
+      kbo(:, 1,25, 6) = (/ &
+        & 0.18796e-02_rb,0.85000e-02_rb,0.98543e-02_rb,0.94788e-02_rb,0.62281e-02_rb /)
+      kbo(:, 2,25, 6) = (/ &
+        & 0.22512e-02_rb,0.90173e-02_rb,0.10293e-01_rb,0.99015e-02_rb,0.64465e-02_rb /)
+      kbo(:, 3,25, 6) = (/ &
+        & 0.26761e-02_rb,0.95606e-02_rb,0.10772e-01_rb,0.10351e-01_rb,0.66771e-02_rb /)
+      kbo(:, 4,25, 6) = (/ &
+        & 0.31512e-02_rb,0.10144e-01_rb,0.11303e-01_rb,0.10838e-01_rb,0.69100e-02_rb /)
+      kbo(:, 5,25, 6) = (/ &
+        & 0.36575e-02_rb,0.10772e-01_rb,0.11893e-01_rb,0.11363e-01_rb,0.71526e-02_rb /)
+      kbo(:, 1,26, 6) = (/ &
+        & 0.16486e-02_rb,0.72263e-02_rb,0.83293e-02_rb,0.80207e-02_rb,0.52267e-02_rb /)
+      kbo(:, 2,26, 6) = (/ &
+        & 0.19790e-02_rb,0.76783e-02_rb,0.87239e-02_rb,0.83966e-02_rb,0.54266e-02_rb /)
+      kbo(:, 3,26, 6) = (/ &
+        & 0.23552e-02_rb,0.81632e-02_rb,0.91606e-02_rb,0.88030e-02_rb,0.56340e-02_rb /)
+      kbo(:, 4,26, 6) = (/ &
+        & 0.27655e-02_rb,0.86841e-02_rb,0.96465e-02_rb,0.92463e-02_rb,0.58421e-02_rb /)
+      kbo(:, 5,26, 6) = (/ &
+        & 0.32014e-02_rb,0.92461e-02_rb,0.10190e-01_rb,0.97263e-02_rb,0.60618e-02_rb /)
+      kbo(:, 1,27, 6) = (/ &
+        & 0.14479e-02_rb,0.61551e-02_rb,0.70548e-02_rb,0.67980e-02_rb,0.43916e-02_rb /)
+      kbo(:, 2,27, 6) = (/ &
+        & 0.17422e-02_rb,0.65560e-02_rb,0.74109e-02_rb,0.71369e-02_rb,0.45703e-02_rb /)
+      kbo(:, 3,27, 6) = (/ &
+        & 0.20711e-02_rb,0.69878e-02_rb,0.78116e-02_rb,0.75081e-02_rb,0.47565e-02_rb /)
+      kbo(:, 4,27, 6) = (/ &
+        & 0.24273e-02_rb,0.74543e-02_rb,0.82596e-02_rb,0.79125e-02_rb,0.49414e-02_rb /)
+      kbo(:, 5,27, 6) = (/ &
+        & 0.28006e-02_rb,0.79622e-02_rb,0.87633e-02_rb,0.83523e-02_rb,0.51438e-02_rb /)
+      kbo(:, 1,28, 6) = (/ &
+        & 0.12757e-02_rb,0.52552e-02_rb,0.59880e-02_rb,0.57731e-02_rb,0.36940e-02_rb /)
+      kbo(:, 2,28, 6) = (/ &
+        & 0.15355e-02_rb,0.56117e-02_rb,0.63148e-02_rb,0.60828e-02_rb,0.38537e-02_rb /)
+      kbo(:, 3,28, 6) = (/ &
+        & 0.18209e-02_rb,0.60000e-02_rb,0.66831e-02_rb,0.64236e-02_rb,0.40153e-02_rb /)
+      kbo(:, 4,28, 6) = (/ &
+        & 0.21272e-02_rb,0.64202e-02_rb,0.70979e-02_rb,0.67923e-02_rb,0.41811e-02_rb /)
+      kbo(:, 5,28, 6) = (/ &
+        & 0.24474e-02_rb,0.68778e-02_rb,0.75643e-02_rb,0.71983e-02_rb,0.43640e-02_rb /)
+      kbo(:, 1,29, 6) = (/ &
+        & 0.11295e-02_rb,0.45004e-02_rb,0.50997e-02_rb,0.49184e-02_rb,0.31153e-02_rb /)
+      kbo(:, 2,29, 6) = (/ &
+        & 0.13559e-02_rb,0.48180e-02_rb,0.54010e-02_rb,0.52034e-02_rb,0.32572e-02_rb /)
+      kbo(:, 3,29, 6) = (/ &
+        & 0.16033e-02_rb,0.51685e-02_rb,0.57423e-02_rb,0.55151e-02_rb,0.33997e-02_rb /)
+      kbo(:, 4,29, 6) = (/ &
+        & 0.18647e-02_rb,0.55488e-02_rb,0.61280e-02_rb,0.58545e-02_rb,0.35531e-02_rb /)
+      kbo(:, 5,29, 6) = (/ &
+        & 0.21368e-02_rb,0.59683e-02_rb,0.65578e-02_rb,0.62309e-02_rb,0.37192e-02_rb /)
+      kbo(:, 1,30, 6) = (/ &
+        & 0.10010e-02_rb,0.38621e-02_rb,0.43580e-02_rb,0.42036e-02_rb,0.26325e-02_rb /)
+      kbo(:, 2,30, 6) = (/ &
+        & 0.11967e-02_rb,0.41511e-02_rb,0.46366e-02_rb,0.44656e-02_rb,0.27570e-02_rb /)
+      kbo(:, 3,30, 6) = (/ &
+        & 0.14096e-02_rb,0.44678e-02_rb,0.49534e-02_rb,0.47515e-02_rb,0.28856e-02_rb /)
+      kbo(:, 4,30, 6) = (/ &
+        & 0.16325e-02_rb,0.48140e-02_rb,0.53117e-02_rb,0.50685e-02_rb,0.30242e-02_rb /)
+      kbo(:, 5,30, 6) = (/ &
+        & 0.18599e-02_rb,0.52016e-02_rb,0.57103e-02_rb,0.54169e-02_rb,0.31738e-02_rb /)
+      kbo(:, 1,31, 6) = (/ &
+        & 0.88685e-03_rb,0.33266e-02_rb,0.37394e-02_rb,0.36064e-02_rb,0.22280e-02_rb /)
+      kbo(:, 2,31, 6) = (/ &
+        & 0.10569e-02_rb,0.35897e-02_rb,0.39964e-02_rb,0.38465e-02_rb,0.23389e-02_rb /)
+      kbo(:, 3,31, 6) = (/ &
+        & 0.12382e-02_rb,0.38779e-02_rb,0.42920e-02_rb,0.41135e-02_rb,0.24573e-02_rb /)
+      kbo(:, 4,31, 6) = (/ &
+        & 0.14278e-02_rb,0.41961e-02_rb,0.46258e-02_rb,0.44080e-02_rb,0.25818e-02_rb /)
+      kbo(:, 5,31, 6) = (/ &
+        & 0.16136e-02_rb,0.45547e-02_rb,0.50001e-02_rb,0.47313e-02_rb,0.27214e-02_rb /)
+      kbo(:, 1,32, 6) = (/ &
+        & 0.78559e-03_rb,0.28763e-02_rb,0.32195e-02_rb,0.31059e-02_rb,0.18911e-02_rb /)
+      kbo(:, 2,32, 6) = (/ &
+        & 0.93178e-03_rb,0.31157e-02_rb,0.34609e-02_rb,0.33287e-02_rb,0.19930e-02_rb /)
+      kbo(:, 3,32, 6) = (/ &
+        & 0.10867e-02_rb,0.33798e-02_rb,0.37377e-02_rb,0.35772e-02_rb,0.21006e-02_rb /)
+      kbo(:, 4,32, 6) = (/ &
+        & 0.12446e-02_rb,0.36754e-02_rb,0.40497e-02_rb,0.38517e-02_rb,0.22158e-02_rb /)
+      kbo(:, 5,32, 6) = (/ &
+        & 0.13936e-02_rb,0.40072e-02_rb,0.44007e-02_rb,0.41538e-02_rb,0.23413e-02_rb /)
+      kbo(:, 1,33, 6) = (/ &
+        & 0.69486e-03_rb,0.24959e-02_rb,0.27846e-02_rb,0.26858e-02_rb,0.16103e-02_rb /)
+      kbo(:, 2,33, 6) = (/ &
+        & 0.82037e-03_rb,0.27142e-02_rb,0.30117e-02_rb,0.28933e-02_rb,0.17041e-02_rb /)
+      kbo(:, 3,33, 6) = (/ &
+        & 0.95137e-03_rb,0.29589e-02_rb,0.32703e-02_rb,0.31258e-02_rb,0.18033e-02_rb /)
+      kbo(:, 4,33, 6) = (/ &
+        & 0.10800e-02_rb,0.32345e-02_rb,0.35641e-02_rb,0.33810e-02_rb,0.19089e-02_rb /)
+      kbo(:, 5,33, 6) = (/ &
+        & 0.11986e-02_rb,0.35406e-02_rb,0.38943e-02_rb,0.36682e-02_rb,0.20234e-02_rb /)
+      kbo(:, 1,34, 6) = (/ &
+        & 0.61032e-03_rb,0.21671e-02_rb,0.24134e-02_rb,0.23268e-02_rb,0.13754e-02_rb /)
+      kbo(:, 2,34, 6) = (/ &
+        & 0.71748e-03_rb,0.23678e-02_rb,0.26264e-02_rb,0.25207e-02_rb,0.14624e-02_rb /)
+      kbo(:, 3,34, 6) = (/ &
+        & 0.82600e-03_rb,0.25947e-02_rb,0.28697e-02_rb,0.27368e-02_rb,0.15523e-02_rb /)
+      kbo(:, 4,34, 6) = (/ &
+        & 0.92939e-03_rb,0.28495e-02_rb,0.31449e-02_rb,0.29773e-02_rb,0.16488e-02_rb /)
+      kbo(:, 5,34, 6) = (/ &
+        & 0.10239e-02_rb,0.31299e-02_rb,0.34552e-02_rb,0.32520e-02_rb,0.17543e-02_rb /)
+      kbo(:, 1,35, 6) = (/ &
+        & 0.52678e-03_rb,0.18713e-02_rb,0.20838e-02_rb,0.20082e-02_rb,0.11717e-02_rb /)
+      kbo(:, 2,35, 6) = (/ &
+        & 0.61674e-03_rb,0.20541e-02_rb,0.22811e-02_rb,0.21873e-02_rb,0.12500e-02_rb /)
+      kbo(:, 3,35, 6) = (/ &
+        & 0.70570e-03_rb,0.22625e-02_rb,0.25066e-02_rb,0.23870e-02_rb,0.13326e-02_rb /)
+      kbo(:, 4,35, 6) = (/ &
+        & 0.78855e-03_rb,0.24971e-02_rb,0.27629e-02_rb,0.26134e-02_rb,0.14204e-02_rb /)
+      kbo(:, 5,35, 6) = (/ &
+        & 0.86492e-03_rb,0.27499e-02_rb,0.30514e-02_rb,0.28766e-02_rb,0.15154e-02_rb /)
+      kbo(:, 1,36, 6) = (/ &
+        & 0.44569e-03_rb,0.16031e-02_rb,0.17868e-02_rb,0.17221e-02_rb,0.99240e-03_rb /)
+      kbo(:, 2,36, 6) = (/ &
+        & 0.52055e-03_rb,0.17679e-02_rb,0.19674e-02_rb,0.18854e-02_rb,0.10623e-02_rb /)
+      kbo(:, 3,36, 6) = (/ &
+        & 0.59380e-03_rb,0.19567e-02_rb,0.21742e-02_rb,0.20700e-02_rb,0.11368e-02_rb /)
+      kbo(:, 4,36, 6) = (/ &
+        & 0.66114e-03_rb,0.21690e-02_rb,0.24093e-02_rb,0.22827e-02_rb,0.12171e-02_rb /)
+      kbo(:, 5,36, 6) = (/ &
+        & 0.72347e-03_rb,0.23953e-02_rb,0.26735e-02_rb,0.25294e-02_rb,0.13028e-02_rb /)
+      kbo(:, 1,37, 6) = (/ &
+        & 0.36881e-03_rb,0.13558e-02_rb,0.15140e-02_rb,0.14605e-02_rb,0.83527e-03_rb /)
+      kbo(:, 2,37, 6) = (/ &
+        & 0.43070e-03_rb,0.15018e-02_rb,0.16759e-02_rb,0.16073e-02_rb,0.89749e-03_rb /)
+      kbo(:, 3,37, 6) = (/ &
+        & 0.49122e-03_rb,0.16697e-02_rb,0.18620e-02_rb,0.17747e-02_rb,0.96428e-03_rb /)
+      kbo(:, 4,37, 6) = (/ &
+        & 0.54687e-03_rb,0.18590e-02_rb,0.20742e-02_rb,0.19690e-02_rb,0.10365e-02_rb /)
+      kbo(:, 5,37, 6) = (/ &
+        & 0.59826e-03_rb,0.20615e-02_rb,0.23143e-02_rb,0.21948e-02_rb,0.11140e-02_rb /)
+      kbo(:, 1,38, 6) = (/ &
+        & 0.30472e-03_rb,0.11463e-02_rb,0.12827e-02_rb,0.12387e-02_rb,0.70293e-03_rb /)
+      kbo(:, 2,38, 6) = (/ &
+        & 0.35606e-03_rb,0.12755e-02_rb,0.14277e-02_rb,0.13705e-02_rb,0.75844e-03_rb /)
+      kbo(:, 3,38, 6) = (/ &
+        & 0.40587e-03_rb,0.14248e-02_rb,0.15948e-02_rb,0.15225e-02_rb,0.81832e-03_rb /)
+      kbo(:, 4,38, 6) = (/ &
+        & 0.45170e-03_rb,0.15929e-02_rb,0.17869e-02_rb,0.16996e-02_rb,0.88272e-03_rb /)
+      kbo(:, 5,38, 6) = (/ &
+        & 0.49447e-03_rb,0.17743e-02_rb,0.20049e-02_rb,0.19060e-02_rb,0.95296e-03_rb /)
+      kbo(:, 1,39, 6) = (/ &
+        & 0.25159e-03_rb,0.96943e-03_rb,0.10877e-02_rb,0.10513e-02_rb,0.59159e-03_rb /)
+      kbo(:, 2,39, 6) = (/ &
+        & 0.29433e-03_rb,0.10839e-02_rb,0.12173e-02_rb,0.11700e-02_rb,0.64088e-03_rb /)
+      kbo(:, 3,39, 6) = (/ &
+        & 0.33554e-03_rb,0.12164e-02_rb,0.13675e-02_rb,0.13079e-02_rb,0.69454e-03_rb /)
+      kbo(:, 4,39, 6) = (/ &
+        & 0.37315e-03_rb,0.13660e-02_rb,0.15416e-02_rb,0.14697e-02_rb,0.75241e-03_rb /)
+      kbo(:, 5,39, 6) = (/ &
+        & 0.40840e-03_rb,0.15291e-02_rb,0.17396e-02_rb,0.16583e-02_rb,0.81566e-03_rb /)
+      kbo(:, 1,40, 6) = (/ &
+        & 0.20445e-03_rb,0.81104e-03_rb,0.91201e-03_rb,0.88303e-03_rb,0.49462e-03_rb /)
+      kbo(:, 2,40, 6) = (/ &
+        & 0.24013e-03_rb,0.91062e-03_rb,0.10259e-02_rb,0.98834e-03_rb,0.53806e-03_rb /)
+      kbo(:, 3,40, 6) = (/ &
+        & 0.27454e-03_rb,0.10267e-02_rb,0.11591e-02_rb,0.11112e-02_rb,0.58582e-03_rb /)
+      kbo(:, 4,40, 6) = (/ &
+        & 0.30609e-03_rb,0.11586e-02_rb,0.13148e-02_rb,0.12564e-02_rb,0.63733e-03_rb /)
+      kbo(:, 5,40, 6) = (/ &
+        & 0.33521e-03_rb,0.13038e-02_rb,0.14932e-02_rb,0.14267e-02_rb,0.69406e-03_rb /)
+      kbo(:, 1,41, 6) = (/ &
+        & 0.16568e-03_rb,0.67706e-03_rb,0.76339e-03_rb,0.74014e-03_rb,0.41311e-03_rb /)
+      kbo(:, 2,41, 6) = (/ &
+        & 0.19545e-03_rb,0.76370e-03_rb,0.86317e-03_rb,0.83349e-03_rb,0.45126e-03_rb /)
+      kbo(:, 3,41, 6) = (/ &
+        & 0.22429e-03_rb,0.86513e-03_rb,0.98057e-03_rb,0.94284e-03_rb,0.49336e-03_rb /)
+      kbo(:, 4,41, 6) = (/ &
+        & 0.25075e-03_rb,0.98100e-03_rb,0.11192e-02_rb,0.10723e-02_rb,0.53916e-03_rb /)
+      kbo(:, 5,41, 6) = (/ &
+        & 0.27523e-03_rb,0.11101e-02_rb,0.12797e-02_rb,0.12259e-02_rb,0.58980e-03_rb /)
+      kbo(:, 1,42, 6) = (/ &
+        & 0.13464e-03_rb,0.56478e-03_rb,0.63846e-03_rb,0.61972e-03_rb,0.34485e-03_rb /)
+      kbo(:, 2,42, 6) = (/ &
+        & 0.15918e-03_rb,0.64002e-03_rb,0.72573e-03_rb,0.70212e-03_rb,0.37807e-03_rb /)
+      kbo(:, 3,42, 6) = (/ &
+        & 0.18309e-03_rb,0.72866e-03_rb,0.82914e-03_rb,0.79959e-03_rb,0.41541e-03_rb /)
+      kbo(:, 4,42, 6) = (/ &
+        & 0.20534e-03_rb,0.83063e-03_rb,0.95224e-03_rb,0.91510e-03_rb,0.45609e-03_rb /)
+      kbo(:, 5,42, 6) = (/ &
+        & 0.22591e-03_rb,0.94536e-03_rb,0.10960e-02_rb,0.10535e-02_rb,0.50132e-03_rb /)
+      kbo(:, 1,43, 6) = (/ &
+        & 0.10834e-03_rb,0.46763e-03_rb,0.52964e-03_rb,0.51479e-03_rb,0.28641e-03_rb /)
+      kbo(:, 2,43, 6) = (/ &
+        & 0.12878e-03_rb,0.53191e-03_rb,0.60529e-03_rb,0.58655e-03_rb,0.31538e-03_rb /)
+      kbo(:, 3,43, 6) = (/ &
+        & 0.14877e-03_rb,0.60848e-03_rb,0.69517e-03_rb,0.67233e-03_rb,0.34781e-03_rb /)
+      kbo(:, 4,43, 6) = (/ &
+        & 0.16739e-03_rb,0.69818e-03_rb,0.80315e-03_rb,0.77433e-03_rb,0.38376e-03_rb /)
+      kbo(:, 5,43, 6) = (/ &
+        & 0.18458e-03_rb,0.79951e-03_rb,0.93071e-03_rb,0.89755e-03_rb,0.42371e-03_rb /)
+      kbo(:, 1,44, 6) = (/ &
+        & 0.86770e-04_rb,0.38551e-03_rb,0.43712e-03_rb,0.42544e-03_rb,0.23710e-03_rb /)
+      kbo(:, 2,44, 6) = (/ &
+        & 0.10382e-03_rb,0.44040e-03_rb,0.50222e-03_rb,0.48753e-03_rb,0.26235e-03_rb /)
+      kbo(:, 3,44, 6) = (/ &
+        & 0.12059e-03_rb,0.50571e-03_rb,0.58013e-03_rb,0.56233e-03_rb,0.29036e-03_rb /)
+      kbo(:, 4,44, 6) = (/ &
+        & 0.13632e-03_rb,0.58391e-03_rb,0.67429e-03_rb,0.65221e-03_rb,0.32192e-03_rb /)
+      kbo(:, 5,44, 6) = (/ &
+        & 0.15073e-03_rb,0.67339e-03_rb,0.78624e-03_rb,0.76086e-03_rb,0.35732e-03_rb /)
+      kbo(:, 1,45, 6) = (/ &
+        & 0.69317e-04_rb,0.31724e-03_rb,0.36001e-03_rb,0.35090e-03_rb,0.19579e-03_rb /)
+      kbo(:, 2,45, 6) = (/ &
+        & 0.83569e-04_rb,0.36417e-03_rb,0.41579e-03_rb,0.40435e-03_rb,0.21781e-03_rb /)
+      kbo(:, 3,45, 6) = (/ &
+        & 0.97725e-04_rb,0.42014e-03_rb,0.48329e-03_rb,0.46938e-03_rb,0.24226e-03_rb /)
+      kbo(:, 4,45, 6) = (/ &
+        & 0.11101e-03_rb,0.48745e-03_rb,0.56520e-03_rb,0.54804e-03_rb,0.26965e-03_rb /)
+      kbo(:, 5,45, 6) = (/ &
+        & 0.12310e-03_rb,0.56606e-03_rb,0.66327e-03_rb,0.64374e-03_rb,0.30080e-03_rb /)
+      kbo(:, 1,46, 6) = (/ &
+        & 0.55030e-04_rb,0.26007e-03_rb,0.29522e-03_rb,0.28798e-03_rb,0.16098e-03_rb /)
+      kbo(:, 2,46, 6) = (/ &
+        & 0.66908e-04_rb,0.29981e-03_rb,0.34235e-03_rb,0.33361e-03_rb,0.18009e-03_rb /)
+      kbo(:, 3,46, 6) = (/ &
+        & 0.78894e-04_rb,0.34737e-03_rb,0.40028e-03_rb,0.38969e-03_rb,0.20138e-03_rb /)
+      kbo(:, 4,46, 6) = (/ &
+        & 0.90228e-04_rb,0.40507e-03_rb,0.47110e-03_rb,0.45796e-03_rb,0.22525e-03_rb /)
+      kbo(:, 5,46, 6) = (/ &
+        & 0.10044e-03_rb,0.47380e-03_rb,0.55673e-03_rb,0.54149e-03_rb,0.25231e-03_rb /)
+      kbo(:, 1,47, 6) = (/ &
+        & 0.43131e-04_rb,0.21132e-03_rb,0.23992e-03_rb,0.23430e-03_rb,0.13147e-03_rb /)
+      kbo(:, 2,47, 6) = (/ &
+        & 0.53026e-04_rb,0.24489e-03_rb,0.27966e-03_rb,0.27282e-03_rb,0.14794e-03_rb /)
+      kbo(:, 3,47, 6) = (/ &
+        & 0.63179e-04_rb,0.28502e-03_rb,0.32837e-03_rb,0.32046e-03_rb,0.16642e-03_rb /)
+      kbo(:, 4,47, 6) = (/ &
+        & 0.72849e-04_rb,0.33391e-03_rb,0.38868e-03_rb,0.37909e-03_rb,0.18727e-03_rb /)
+      kbo(:, 5,47, 6) = (/ &
+        & 0.81641e-04_rb,0.39308e-03_rb,0.46293e-03_rb,0.45114e-03_rb,0.21071e-03_rb /)
+      kbo(:, 1,48, 6) = (/ &
+        & 0.33560e-04_rb,0.17139e-03_rb,0.19468e-03_rb,0.19001e-03_rb,0.10710e-03_rb /)
+      kbo(:, 2,48, 6) = (/ &
+        & 0.41736e-04_rb,0.19942e-03_rb,0.22765e-03_rb,0.22235e-03_rb,0.12121e-03_rb /)
+      kbo(:, 3,48, 6) = (/ &
+        & 0.50371e-04_rb,0.23319e-03_rb,0.26893e-03_rb,0.26280e-03_rb,0.13718e-03_rb /)
+      kbo(:, 4,48, 6) = (/ &
+        & 0.58779e-04_rb,0.27466e-03_rb,0.31973e-03_rb,0.31295e-03_rb,0.15543e-03_rb /)
+      kbo(:, 5,48, 6) = (/ &
+        & 0.66247e-04_rb,0.32531e-03_rb,0.38347e-03_rb,0.37465e-03_rb,0.17582e-03_rb /)
+      kbo(:, 1,49, 6) = (/ &
+        & 0.25958e-04_rb,0.13895e-03_rb,0.15751e-03_rb,0.15378e-03_rb,0.86997e-04_rb /)
+      kbo(:, 2,49, 6) = (/ &
+        & 0.32663e-04_rb,0.16210e-03_rb,0.18496e-03_rb,0.18058e-03_rb,0.99003e-04_rb /)
+      kbo(:, 3,49, 6) = (/ &
+        & 0.39912e-04_rb,0.19033e-03_rb,0.21954e-03_rb,0.21463e-03_rb,0.11278e-03_rb /)
+      kbo(:, 4,49, 6) = (/ &
+        & 0.47146e-04_rb,0.22536e-03_rb,0.26252e-03_rb,0.25743e-03_rb,0.12854e-03_rb /)
+      kbo(:, 5,49, 6) = (/ &
+        & 0.53714e-04_rb,0.26879e-03_rb,0.31652e-03_rb,0.31040e-03_rb,0.14638e-03_rb /)
+      kbo(:, 1,50, 6) = (/ &
+        & 0.20123e-04_rb,0.11283e-03_rb,0.12763e-03_rb,0.12462e-03_rb,0.70722e-04_rb /)
+      kbo(:, 2,50, 6) = (/ &
+        & 0.25601e-04_rb,0.13215e-03_rb,0.15042e-03_rb,0.14697e-03_rb,0.80931e-04_rb /)
+      kbo(:, 3,50, 6) = (/ &
+        & 0.31614e-04_rb,0.15574e-03_rb,0.17957e-03_rb,0.17552e-03_rb,0.92734e-04_rb /)
+      kbo(:, 4,50, 6) = (/ &
+        & 0.37764e-04_rb,0.18520e-03_rb,0.21596e-03_rb,0.21200e-03_rb,0.10641e-03_rb /)
+      kbo(:, 5,50, 6) = (/ &
+        & 0.43463e-04_rb,0.22248e-03_rb,0.26195e-03_rb,0.25758e-03_rb,0.12203e-03_rb /)
+      kbo(:, 1,51, 6) = (/ &
+        & 0.15566e-04_rb,0.91692e-04_rb,0.10348e-03_rb,0.10093e-03_rb,0.57420e-04_rb /)
+      kbo(:, 2,51, 6) = (/ &
+        & 0.20041e-04_rb,0.10771e-03_rb,0.12230e-03_rb,0.11952e-03_rb,0.66019e-04_rb /)
+      kbo(:, 3,51, 6) = (/ &
+        & 0.25022e-04_rb,0.12757e-03_rb,0.14670e-03_rb,0.14349e-03_rb,0.76182e-04_rb /)
+      kbo(:, 4,51, 6) = (/ &
+        & 0.30196e-04_rb,0.15226e-03_rb,0.17772e-03_rb,0.17429e-03_rb,0.87954e-04_rb /)
+      kbo(:, 5,51, 6) = (/ &
+        & 0.35140e-04_rb,0.18405e-03_rb,0.21697e-03_rb,0.21356e-03_rb,0.10162e-03_rb /)
+      kbo(:, 1,52, 6) = (/ &
+        & 0.11977e-04_rb,0.74321e-04_rb,0.83777e-04_rb,0.81525e-04_rb,0.46492e-04_rb /)
+      kbo(:, 2,52, 6) = (/ &
+        & 0.15618e-04_rb,0.87662e-04_rb,0.99315e-04_rb,0.96995e-04_rb,0.53744e-04_rb /)
+      kbo(:, 3,52, 6) = (/ &
+        & 0.19731e-04_rb,0.10434e-03_rb,0.11957e-03_rb,0.11696e-03_rb,0.62355e-04_rb /)
+      kbo(:, 4,52, 6) = (/ &
+        & 0.24071e-04_rb,0.12514e-03_rb,0.14574e-03_rb,0.14300e-03_rb,0.72491e-04_rb /)
+      kbo(:, 5,52, 6) = (/ &
+        & 0.28292e-04_rb,0.15185e-03_rb,0.17919e-03_rb,0.17642e-03_rb,0.84356e-04_rb /)
+      kbo(:, 1,53, 6) = (/ &
+        & 0.91836e-05_rb,0.60131e-04_rb,0.67720e-04_rb,0.65649e-04_rb,0.37522e-04_rb /)
+      kbo(:, 2,53, 6) = (/ &
+        & 0.12113e-04_rb,0.71192e-04_rb,0.80457e-04_rb,0.78425e-04_rb,0.43599e-04_rb /)
+      kbo(:, 3,53, 6) = (/ &
+        & 0.15471e-04_rb,0.85141e-04_rb,0.97276e-04_rb,0.95110e-04_rb,0.50903e-04_rb /)
+      kbo(:, 4,53, 6) = (/ &
+        & 0.19102e-04_rb,0.10263e-03_rb,0.11918e-03_rb,0.11694e-03_rb,0.59553e-04_rb /)
+      kbo(:, 5,53, 6) = (/ &
+        & 0.22693e-04_rb,0.12514e-03_rb,0.14755e-03_rb,0.14527e-03_rb,0.69812e-04_rb /)
+      kbo(:, 1,54, 6) = (/ &
+        & 0.70721e-05_rb,0.48764e-04_rb,0.54926e-04_rb,0.53041e-04_rb,0.30337e-04_rb /)
+      kbo(:, 2,54, 6) = (/ &
+        & 0.94270e-05_rb,0.57982e-04_rb,0.65461e-04_rb,0.63579e-04_rb,0.35439e-04_rb /)
+      kbo(:, 3,54, 6) = (/ &
+        & 0.12173e-04_rb,0.69671e-04_rb,0.79433e-04_rb,0.77530e-04_rb,0.41618e-04_rb /)
+      kbo(:, 4,54, 6) = (/ &
+        & 0.15195e-04_rb,0.84502e-04_rb,0.97826e-04_rb,0.96029e-04_rb,0.49017e-04_rb /)
+      kbo(:, 5,54, 6) = (/ &
+        & 0.18243e-04_rb,0.10358e-03_rb,0.12196e-03_rb,0.12023e-03_rb,0.57880e-04_rb /)
+      kbo(:, 1,55, 6) = (/ &
+        & 0.54549e-05_rb,0.39521e-04_rb,0.44580e-04_rb,0.42901e-04_rb,0.24523e-04_rb /)
+      kbo(:, 2,55, 6) = (/ &
+        & 0.73474e-05_rb,0.47258e-04_rb,0.53311e-04_rb,0.51627e-04_rb,0.28799e-04_rb /)
+      kbo(:, 3,55, 6) = (/ &
+        & 0.95818e-05_rb,0.57041e-04_rb,0.64957e-04_rb,0.63210e-04_rb,0.34015e-04_rb /)
+      kbo(:, 4,55, 6) = (/ &
+        & 0.12078e-04_rb,0.69528e-04_rb,0.80422e-04_rb,0.78845e-04_rb,0.40325e-04_rb /)
+      kbo(:, 5,55, 6) = (/ &
+        & 0.14658e-04_rb,0.85891e-04_rb,0.10087e-03_rb,0.99485e-04_rb,0.47973e-04_rb /)
+      kbo(:, 1,56, 6) = (/ &
+        & 0.41972e-05_rb,0.31935e-04_rb,0.36125e-04_rb,0.34628e-04_rb,0.19758e-04_rb /)
+      kbo(:, 2,56, 6) = (/ &
+        & 0.56951e-05_rb,0.38357e-04_rb,0.43303e-04_rb,0.41823e-04_rb,0.23341e-04_rb /)
+      kbo(:, 3,56, 6) = (/ &
+        & 0.75109e-05_rb,0.46586e-04_rb,0.52984e-04_rb,0.51438e-04_rb,0.27705e-04_rb /)
+      kbo(:, 4,56, 6) = (/ &
+        & 0.95701e-05_rb,0.57135e-04_rb,0.66020e-04_rb,0.64513e-04_rb,0.33090e-04_rb /)
+      kbo(:, 5,56, 6) = (/ &
+        & 0.11741e-04_rb,0.70996e-04_rb,0.83348e-04_rb,0.82172e-04_rb,0.39639e-04_rb /)
+      kbo(:, 1,57, 6) = (/ &
+        & 0.32187e-05_rb,0.25710e-04_rb,0.29175e-04_rb,0.27903e-04_rb,0.15874e-04_rb /)
+      kbo(:, 2,57, 6) = (/ &
+        & 0.44067e-05_rb,0.31037e-04_rb,0.35094e-04_rb,0.33812e-04_rb,0.18857e-04_rb /)
+      kbo(:, 3,57, 6) = (/ &
+        & 0.58663e-05_rb,0.37889e-04_rb,0.43100e-04_rb,0.41766e-04_rb,0.22502e-04_rb /)
+      kbo(:, 4,57, 6) = (/ &
+        & 0.75519e-05_rb,0.46817e-04_rb,0.54053e-04_rb,0.52634e-04_rb,0.27030e-04_rb /)
+      kbo(:, 5,57, 6) = (/ &
+        & 0.93649e-05_rb,0.58529e-04_rb,0.68705e-04_rb,0.67601e-04_rb,0.32661e-04_rb /)
+      kbo(:, 1,58, 6) = (/ &
+        & 0.24696e-05_rb,0.20698e-04_rb,0.23574e-04_rb,0.22507e-04_rb,0.12764e-04_rb /)
+      kbo(:, 2,58, 6) = (/ &
+        & 0.34175e-05_rb,0.25141e-04_rb,0.28438e-04_rb,0.27351e-04_rb,0.15243e-04_rb /)
+      kbo(:, 3,58, 6) = (/ &
+        & 0.45825e-05_rb,0.30855e-04_rb,0.35092e-04_rb,0.33951e-04_rb,0.18275e-04_rb /)
+      kbo(:, 4,58, 6) = (/ &
+        & 0.59665e-05_rb,0.38392e-04_rb,0.44239e-04_rb,0.43055e-04_rb,0.22112e-04_rb /)
+      kbo(:, 5,58, 6) = (/ &
+        & 0.74784e-05_rb,0.48383e-04_rb,0.56772e-04_rb,0.55657e-04_rb,0.26900e-04_rb /)
+      kbo(:, 1,59, 6) = (/ &
+        & 0.20113e-05_rb,0.17223e-04_rb,0.19628e-04_rb,0.18772e-04_rb,0.10576e-04_rb /)
+      kbo(:, 2,59, 6) = (/ &
+        & 0.27973e-05_rb,0.21075e-04_rb,0.23849e-04_rb,0.22960e-04_rb,0.12702e-04_rb /)
+      kbo(:, 3,59, 6) = (/ &
+        & 0.37714e-05_rb,0.26064e-04_rb,0.29696e-04_rb,0.28726e-04_rb,0.15326e-04_rb /)
+      kbo(:, 4,59, 6) = (/ &
+        & 0.49189e-05_rb,0.32724e-04_rb,0.37808e-04_rb,0.36791e-04_rb,0.18710e-04_rb /)
+      kbo(:, 5,59, 6) = (/ &
+        & 0.61850e-05_rb,0.41676e-04_rb,0.49043e-04_rb,0.48051e-04_rb,0.22936e-04_rb /)
+      kbo(:, 1,13, 7) = (/ &
+        & 0.90574e-01_rb,0.18508e+00_rb,0.20125e+00_rb,0.19353e+00_rb,0.13590e+00_rb /)
+      kbo(:, 2,13, 7) = (/ &
+        & 0.96633e-01_rb,0.18856e+00_rb,0.20514e+00_rb,0.19781e+00_rb,0.13867e+00_rb /)
+      kbo(:, 3,13, 7) = (/ &
+        & 0.10246e+00_rb,0.19231e+00_rb,0.20916e+00_rb,0.20175e+00_rb,0.14157e+00_rb /)
+      kbo(:, 4,13, 7) = (/ &
+        & 0.10831e+00_rb,0.19664e+00_rb,0.21340e+00_rb,0.20566e+00_rb,0.14422e+00_rb /)
+      kbo(:, 5,13, 7) = (/ &
+        & 0.11418e+00_rb,0.20190e+00_rb,0.21829e+00_rb,0.20964e+00_rb,0.14715e+00_rb /)
+      kbo(:, 1,14, 7) = (/ &
+        & 0.76731e-01_rb,0.15637e+00_rb,0.17031e+00_rb,0.16454e+00_rb,0.11471e+00_rb /)
+      kbo(:, 2,14, 7) = (/ &
+        & 0.81853e-01_rb,0.15935e+00_rb,0.17367e+00_rb,0.16809e+00_rb,0.11738e+00_rb /)
+      kbo(:, 3,14, 7) = (/ &
+        & 0.86939e-01_rb,0.16284e+00_rb,0.17719e+00_rb,0.17151e+00_rb,0.11993e+00_rb /)
+      kbo(:, 4,14, 7) = (/ &
+        & 0.91985e-01_rb,0.16698e+00_rb,0.18115e+00_rb,0.17500e+00_rb,0.12254e+00_rb /)
+      kbo(:, 5,14, 7) = (/ &
+        & 0.97005e-01_rb,0.17199e+00_rb,0.18590e+00_rb,0.17860e+00_rb,0.12524e+00_rb /)
+      kbo(:, 1,15, 7) = (/ &
+        & 0.64796e-01_rb,0.13180e+00_rb,0.14379e+00_rb,0.13927e+00_rb,0.96282e-01_rb /)
+      kbo(:, 2,15, 7) = (/ &
+        & 0.69175e-01_rb,0.13451e+00_rb,0.14669e+00_rb,0.14230e+00_rb,0.98702e-01_rb /)
+      kbo(:, 3,15, 7) = (/ &
+        & 0.73574e-01_rb,0.13779e+00_rb,0.14991e+00_rb,0.14533e+00_rb,0.10111e+00_rb /)
+      kbo(:, 4,15, 7) = (/ &
+        & 0.77907e-01_rb,0.14175e+00_rb,0.15375e+00_rb,0.14848e+00_rb,0.10336e+00_rb /)
+      kbo(:, 5,15, 7) = (/ &
+        & 0.82082e-01_rb,0.14644e+00_rb,0.15826e+00_rb,0.15192e+00_rb,0.10558e+00_rb /)
+      kbo(:, 1,16, 7) = (/ &
+        & 0.54603e-01_rb,0.11092e+00_rb,0.12113e+00_rb,0.11747e+00_rb,0.80564e-01_rb /)
+      kbo(:, 2,16, 7) = (/ &
+        & 0.58392e-01_rb,0.11343e+00_rb,0.12376e+00_rb,0.12011e+00_rb,0.82662e-01_rb /)
+      kbo(:, 3,16, 7) = (/ &
+        & 0.62149e-01_rb,0.11652e+00_rb,0.12680e+00_rb,0.12283e+00_rb,0.84744e-01_rb /)
+      kbo(:, 4,16, 7) = (/ &
+        & 0.65779e-01_rb,0.12031e+00_rb,0.13049e+00_rb,0.12576e+00_rb,0.86806e-01_rb /)
+      kbo(:, 5,16, 7) = (/ &
+        & 0.69275e-01_rb,0.12462e+00_rb,0.13474e+00_rb,0.12909e+00_rb,0.88592e-01_rb /)
+      kbo(:, 1,17, 7) = (/ &
+        & 0.46019e-01_rb,0.93276e-01_rb,0.10182e+00_rb,0.98886e-01_rb,0.67386e-01_rb /)
+      kbo(:, 2,17, 7) = (/ &
+        & 0.49257e-01_rb,0.95617e-01_rb,0.10427e+00_rb,0.10122e+00_rb,0.69214e-01_rb /)
+      kbo(:, 3,17, 7) = (/ &
+        & 0.52438e-01_rb,0.98544e-01_rb,0.10723e+00_rb,0.10369e+00_rb,0.71047e-01_rb /)
+      kbo(:, 4,17, 7) = (/ &
+        & 0.55444e-01_rb,0.10204e+00_rb,0.11074e+00_rb,0.10647e+00_rb,0.72809e-01_rb /)
+      kbo(:, 5,17, 7) = (/ &
+        & 0.58360e-01_rb,0.10585e+00_rb,0.11469e+00_rb,0.10967e+00_rb,0.74297e-01_rb /)
+      kbo(:, 1,18, 7) = (/ &
+        & 0.38789e-01_rb,0.78385e-01_rb,0.85426e-01_rb,0.83127e-01_rb,0.56424e-01_rb /)
+      kbo(:, 2,18, 7) = (/ &
+        & 0.41550e-01_rb,0.80626e-01_rb,0.87775e-01_rb,0.85216e-01_rb,0.58103e-01_rb /)
+      kbo(:, 3,18, 7) = (/ &
+        & 0.44172e-01_rb,0.83391e-01_rb,0.90633e-01_rb,0.87547e-01_rb,0.59665e-01_rb /)
+      kbo(:, 4,18, 7) = (/ &
+        & 0.46672e-01_rb,0.86541e-01_rb,0.93910e-01_rb,0.90224e-01_rb,0.61155e-01_rb /)
+      kbo(:, 5,18, 7) = (/ &
+        & 0.49119e-01_rb,0.89890e-01_rb,0.97478e-01_rb,0.93171e-01_rb,0.62440e-01_rb /)
+      kbo(:, 1,19, 7) = (/ &
+        & 0.32688e-01_rb,0.65866e-01_rb,0.71699e-01_rb,0.69831e-01_rb,0.47341e-01_rb /)
+      kbo(:, 2,19, 7) = (/ &
+        & 0.34993e-01_rb,0.67987e-01_rb,0.73938e-01_rb,0.71758e-01_rb,0.48787e-01_rb /)
+      kbo(:, 3,19, 7) = (/ &
+        & 0.37158e-01_rb,0.70566e-01_rb,0.76608e-01_rb,0.73972e-01_rb,0.50204e-01_rb /)
+      kbo(:, 4,19, 7) = (/ &
+        & 0.39257e-01_rb,0.73365e-01_rb,0.79594e-01_rb,0.76458e-01_rb,0.51459e-01_rb /)
+      kbo(:, 5,19, 7) = (/ &
+        & 0.41326e-01_rb,0.76343e-01_rb,0.82757e-01_rb,0.79138e-01_rb,0.52598e-01_rb /)
+      kbo(:, 1,20, 7) = (/ &
+        & 0.27557e-01_rb,0.55396e-01_rb,0.60366e-01_rb,0.58674e-01_rb,0.39775e-01_rb /)
+      kbo(:, 2,20, 7) = (/ &
+        & 0.29458e-01_rb,0.57423e-01_rb,0.62478e-01_rb,0.60497e-01_rb,0.41091e-01_rb /)
+      kbo(:, 3,20, 7) = (/ &
+        & 0.31261e-01_rb,0.59745e-01_rb,0.64927e-01_rb,0.62579e-01_rb,0.42317e-01_rb /)
+      kbo(:, 4,20, 7) = (/ &
+        & 0.33046e-01_rb,0.62240e-01_rb,0.67549e-01_rb,0.64853e-01_rb,0.43439e-01_rb /)
+      kbo(:, 5,20, 7) = (/ &
+        & 0.34818e-01_rb,0.64890e-01_rb,0.70320e-01_rb,0.67290e-01_rb,0.44513e-01_rb /)
+      kbo(:, 1,21, 7) = (/ &
+        & 0.23194e-01_rb,0.46662e-01_rb,0.50879e-01_rb,0.49331e-01_rb,0.33429e-01_rb /)
+      kbo(:, 2,21, 7) = (/ &
+        & 0.24776e-01_rb,0.48529e-01_rb,0.52871e-01_rb,0.51054e-01_rb,0.34590e-01_rb /)
+      kbo(:, 3,21, 7) = (/ &
+        & 0.26303e-01_rb,0.50578e-01_rb,0.55098e-01_rb,0.52980e-01_rb,0.35684e-01_rb /)
+      kbo(:, 4,21, 7) = (/ &
+        & 0.27810e-01_rb,0.52793e-01_rb,0.57429e-01_rb,0.55052e-01_rb,0.36688e-01_rb /)
+      kbo(:, 5,21, 7) = (/ &
+        & 0.29323e-01_rb,0.55187e-01_rb,0.59853e-01_rb,0.57245e-01_rb,0.37657e-01_rb /)
+      kbo(:, 1,22, 7) = (/ &
+        & 0.19600e-01_rb,0.39448e-01_rb,0.43057e-01_rb,0.41623e-01_rb,0.28169e-01_rb /)
+      kbo(:, 2,22, 7) = (/ &
+        & 0.20910e-01_rb,0.41135e-01_rb,0.44924e-01_rb,0.43250e-01_rb,0.29188e-01_rb /)
+      kbo(:, 3,22, 7) = (/ &
+        & 0.22195e-01_rb,0.42970e-01_rb,0.46916e-01_rb,0.45021e-01_rb,0.30138e-01_rb /)
+      kbo(:, 4,22, 7) = (/ &
+        & 0.23466e-01_rb,0.44963e-01_rb,0.48978e-01_rb,0.46906e-01_rb,0.31021e-01_rb /)
+      kbo(:, 5,22, 7) = (/ &
+        & 0.24791e-01_rb,0.47151e-01_rb,0.51143e-01_rb,0.48901e-01_rb,0.31919e-01_rb /)
+      kbo(:, 1,23, 7) = (/ &
+        & 0.16563e-01_rb,0.33405e-01_rb,0.36517e-01_rb,0.35235e-01_rb,0.23758e-01_rb /)
+      kbo(:, 2,23, 7) = (/ &
+        & 0.17634e-01_rb,0.34920e-01_rb,0.38215e-01_rb,0.36726e-01_rb,0.24656e-01_rb /)
+      kbo(:, 3,23, 7) = (/ &
+        & 0.18715e-01_rb,0.36571e-01_rb,0.39976e-01_rb,0.38337e-01_rb,0.25473e-01_rb /)
+      kbo(:, 4,23, 7) = (/ &
+        & 0.19810e-01_rb,0.38397e-01_rb,0.41828e-01_rb,0.40046e-01_rb,0.26273e-01_rb /)
+      kbo(:, 5,23, 7) = (/ &
+        & 0.20990e-01_rb,0.40406e-01_rb,0.43840e-01_rb,0.41881e-01_rb,0.27068e-01_rb /)
+      kbo(:, 1,24, 7) = (/ &
+        & 0.13980e-01_rb,0.28346e-01_rb,0.31027e-01_rb,0.29909e-01_rb,0.20058e-01_rb /)
+      kbo(:, 2,24, 7) = (/ &
+        & 0.14874e-01_rb,0.29707e-01_rb,0.32546e-01_rb,0.31266e-01_rb,0.20839e-01_rb /)
+      kbo(:, 3,24, 7) = (/ &
+        & 0.15797e-01_rb,0.31204e-01_rb,0.34123e-01_rb,0.32728e-01_rb,0.21557e-01_rb /)
+      kbo(:, 4,24, 7) = (/ &
+        & 0.16758e-01_rb,0.32875e-01_rb,0.35824e-01_rb,0.34296e-01_rb,0.22274e-01_rb /)
+      kbo(:, 5,24, 7) = (/ &
+        & 0.17809e-01_rb,0.34737e-01_rb,0.37711e-01_rb,0.35981e-01_rb,0.22992e-01_rb /)
+      kbo(:, 1,25, 7) = (/ &
+        & 0.11798e-01_rb,0.24110e-01_rb,0.26426e-01_rb,0.25457e-01_rb,0.16985e-01_rb /)
+      kbo(:, 2,25, 7) = (/ &
+        & 0.12561e-01_rb,0.25347e-01_rb,0.27781e-01_rb,0.26691e-01_rb,0.17655e-01_rb /)
+      kbo(:, 3,25, 7) = (/ &
+        & 0.13359e-01_rb,0.26711e-01_rb,0.29222e-01_rb,0.28026e-01_rb,0.18302e-01_rb /)
+      kbo(:, 4,25, 7) = (/ &
+        & 0.14208e-01_rb,0.28241e-01_rb,0.30806e-01_rb,0.29472e-01_rb,0.18949e-01_rb /)
+      kbo(:, 5,25, 7) = (/ &
+        & 0.15157e-01_rb,0.29980e-01_rb,0.32597e-01_rb,0.31029e-01_rb,0.19596e-01_rb /)
+      kbo(:, 1,26, 7) = (/ &
+        & 0.99745e-02_rb,0.20581e-01_rb,0.22580e-01_rb,0.21746e-01_rb,0.14432e-01_rb /)
+      kbo(:, 2,26, 7) = (/ &
+        & 0.10633e-01_rb,0.21703e-01_rb,0.23807e-01_rb,0.22873e-01_rb,0.15014e-01_rb /)
+      kbo(:, 3,26, 7) = (/ &
+        & 0.11328e-01_rb,0.22948e-01_rb,0.25141e-01_rb,0.24108e-01_rb,0.15588e-01_rb /)
+      kbo(:, 4,26, 7) = (/ &
+        & 0.12091e-01_rb,0.24380e-01_rb,0.26636e-01_rb,0.25439e-01_rb,0.16180e-01_rb /)
+      kbo(:, 5,26, 7) = (/ &
+        & 0.12943e-01_rb,0.26016e-01_rb,0.28335e-01_rb,0.26899e-01_rb,0.16787e-01_rb /)
+      kbo(:, 1,27, 7) = (/ &
+        & 0.84424e-02_rb,0.17603e-01_rb,0.19348e-01_rb,0.18632e-01_rb,0.12275e-01_rb /)
+      kbo(:, 2,27, 7) = (/ &
+        & 0.90172e-02_rb,0.18627e-01_rb,0.20475e-01_rb,0.19670e-01_rb,0.12796e-01_rb /)
+      kbo(:, 3,27, 7) = (/ &
+        & 0.96344e-02_rb,0.19791e-01_rb,0.21724e-01_rb,0.20817e-01_rb,0.13316e-01_rb /)
+      kbo(:, 4,27, 7) = (/ &
+        & 0.10319e-01_rb,0.21143e-01_rb,0.23141e-01_rb,0.22059e-01_rb,0.13859e-01_rb /)
+      kbo(:, 5,27, 7) = (/ &
+        & 0.11083e-01_rb,0.22688e-01_rb,0.24742e-01_rb,0.23449e-01_rb,0.14418e-01_rb /)
+      kbo(:, 1,28, 7) = (/ &
+        & 0.71594e-02_rb,0.15094e-01_rb,0.16638e-01_rb,0.16016e-01_rb,0.10452e-01_rb /)
+      kbo(:, 2,28, 7) = (/ &
+        & 0.76603e-02_rb,0.16043e-01_rb,0.17678e-01_rb,0.16989e-01_rb,0.10928e-01_rb /)
+      kbo(:, 3,28, 7) = (/ &
+        & 0.82161e-02_rb,0.17148e-01_rb,0.18856e-01_rb,0.18055e-01_rb,0.11409e-01_rb /)
+      kbo(:, 4,28, 7) = (/ &
+        & 0.88297e-02_rb,0.18429e-01_rb,0.20193e-01_rb,0.19234e-01_rb,0.11908e-01_rb /)
+      kbo(:, 5,28, 7) = (/ &
+        & 0.95210e-02_rb,0.19896e-01_rb,0.21697e-01_rb,0.20565e-01_rb,0.12423e-01_rb /)
+      kbo(:, 1,29, 7) = (/ &
+        & 0.60865e-02_rb,0.12992e-01_rb,0.14367e-01_rb,0.13830e-01_rb,0.89337e-02_rb /)
+      kbo(:, 2,29, 7) = (/ &
+        & 0.65273e-02_rb,0.13894e-01_rb,0.15342e-01_rb,0.14741e-01_rb,0.93649e-02_rb /)
+      kbo(:, 3,29, 7) = (/ &
+        & 0.70278e-02_rb,0.14949e-01_rb,0.16457e-01_rb,0.15746e-01_rb,0.98158e-02_rb /)
+      kbo(:, 4,29, 7) = (/ &
+        & 0.75858e-02_rb,0.16169e-01_rb,0.17720e-01_rb,0.16877e-01_rb,0.10273e-01_rb /)
+      kbo(:, 5,29, 7) = (/ &
+        & 0.82154e-02_rb,0.17564e-01_rb,0.19150e-01_rb,0.18159e-01_rb,0.10745e-01_rb /)
+      kbo(:, 1,30, 7) = (/ &
+        & 0.51820e-02_rb,0.11236e-01_rb,0.12459e-01_rb,0.12000e-01_rb,0.76507e-02_rb /)
+      kbo(:, 2,30, 7) = (/ &
+        & 0.55811e-02_rb,0.12098e-01_rb,0.13380e-01_rb,0.12854e-01_rb,0.80497e-02_rb /)
+      kbo(:, 3,30, 7) = (/ &
+        & 0.60310e-02_rb,0.13108e-01_rb,0.14440e-01_rb,0.13813e-01_rb,0.84648e-02_rb /)
+      kbo(:, 4,30, 7) = (/ &
+        & 0.65404e-02_rb,0.14273e-01_rb,0.15644e-01_rb,0.14905e-01_rb,0.88882e-02_rb /)
+      kbo(:, 5,30, 7) = (/ &
+        & 0.71170e-02_rb,0.15597e-01_rb,0.17012e-01_rb,0.16134e-01_rb,0.93248e-02_rb /)
+      kbo(:, 1,31, 7) = (/ &
+        & 0.44272e-02_rb,0.97757e-02_rb,0.10859e-01_rb,0.10467e-01_rb,0.65734e-02_rb /)
+      kbo(:, 2,31, 7) = (/ &
+        & 0.47878e-02_rb,0.10603e-01_rb,0.11740e-01_rb,0.11277e-01_rb,0.69415e-02_rb /)
+      kbo(:, 3,31, 7) = (/ &
+        & 0.51963e-02_rb,0.11572e-01_rb,0.12753e-01_rb,0.12201e-01_rb,0.73188e-02_rb /)
+      kbo(:, 4,31, 7) = (/ &
+        & 0.56609e-02_rb,0.12684e-01_rb,0.13904e-01_rb,0.13252e-01_rb,0.77091e-02_rb /)
+      kbo(:, 5,31, 7) = (/ &
+        & 0.61977e-02_rb,0.13944e-01_rb,0.15244e-01_rb,0.14424e-01_rb,0.81161e-02_rb /)
+      kbo(:, 1,32, 7) = (/ &
+        & 0.37962e-02_rb,0.85614e-02_rb,0.95233e-02_rb,0.91812e-02_rb,0.56658e-02_rb /)
+      kbo(:, 2,32, 7) = (/ &
+        & 0.41228e-02_rb,0.93595e-02_rb,0.10368e-01_rb,0.99574e-02_rb,0.60000e-02_rb /)
+      kbo(:, 3,32, 7) = (/ &
+        & 0.44947e-02_rb,0.10287e-01_rb,0.11338e-01_rb,0.10850e-01_rb,0.63462e-02_rb /)
+      kbo(:, 4,32, 7) = (/ &
+        & 0.49244e-02_rb,0.11349e-01_rb,0.12467e-01_rb,0.11857e-01_rb,0.67069e-02_rb /)
+      kbo(:, 5,32, 7) = (/ &
+        & 0.54252e-02_rb,0.12554e-01_rb,0.13767e-01_rb,0.12983e-01_rb,0.70910e-02_rb /)
+      kbo(:, 1,33, 7) = (/ &
+        & 0.32656e-02_rb,0.75519e-02_rb,0.84026e-02_rb,0.81028e-02_rb,0.48937e-02_rb /)
+      kbo(:, 2,33, 7) = (/ &
+        & 0.35630e-02_rb,0.83178e-02_rb,0.92157e-02_rb,0.88531e-02_rb,0.52004e-02_rb /)
+      kbo(:, 3,33, 7) = (/ &
+        & 0.39050e-02_rb,0.92063e-02_rb,0.10168e-01_rb,0.97125e-02_rb,0.55156e-02_rb /)
+      kbo(:, 4,33, 7) = (/ &
+        & 0.43055e-02_rb,0.10227e-01_rb,0.11270e-01_rb,0.10682e-01_rb,0.58516e-02_rb /)
+      kbo(:, 5,33, 7) = (/ &
+        & 0.47651e-02_rb,0.11396e-01_rb,0.12524e-01_rb,0.11769e-01_rb,0.62091e-02_rb /)
+      kbo(:, 1,34, 7) = (/ &
+        & 0.28105e-02_rb,0.66873e-02_rb,0.74405e-02_rb,0.71742e-02_rb,0.42413e-02_rb /)
+      kbo(:, 2,34, 7) = (/ &
+        & 0.30819e-02_rb,0.74197e-02_rb,0.82328e-02_rb,0.78962e-02_rb,0.45189e-02_rb /)
+      kbo(:, 3,34, 7) = (/ &
+        & 0.33974e-02_rb,0.82731e-02_rb,0.91582e-02_rb,0.87214e-02_rb,0.48133e-02_rb /)
+      kbo(:, 4,34, 7) = (/ &
+        & 0.37682e-02_rb,0.92558e-02_rb,0.10225e-01_rb,0.96550e-02_rb,0.51300e-02_rb /)
+      kbo(:, 5,34, 7) = (/ &
+        & 0.41836e-02_rb,0.10408e-01_rb,0.11429e-01_rb,0.10709e-01_rb,0.54671e-02_rb /)
+      kbo(:, 1,35, 7) = (/ &
+        & 0.24038e-02_rb,0.58948e-02_rb,0.65709e-02_rb,0.63304e-02_rb,0.36544e-02_rb /)
+      kbo(:, 2,35, 7) = (/ &
+        & 0.26483e-02_rb,0.65885e-02_rb,0.73295e-02_rb,0.70175e-02_rb,0.39080e-02_rb /)
+      kbo(:, 3,35, 7) = (/ &
+        & 0.29372e-02_rb,0.74016e-02_rb,0.82197e-02_rb,0.78032e-02_rb,0.41855e-02_rb /)
+      kbo(:, 4,35, 7) = (/ &
+        & 0.32728e-02_rb,0.83531e-02_rb,0.92365e-02_rb,0.86973e-02_rb,0.44777e-02_rb /)
+      kbo(:, 5,35, 7) = (/ &
+        & 0.36421e-02_rb,0.94681e-02_rb,0.10387e-01_rb,0.97145e-02_rb,0.47967e-02_rb /)
+      kbo(:, 1,36, 7) = (/ &
+        & 0.20373e-02_rb,0.51550e-02_rb,0.57662e-02_rb,0.55498e-02_rb,0.31231e-02_rb /)
+      kbo(:, 2,36, 7) = (/ &
+        & 0.22554e-02_rb,0.58057e-02_rb,0.64818e-02_rb,0.61953e-02_rb,0.33549e-02_rb /)
+      kbo(:, 3,36, 7) = (/ &
+        & 0.25127e-02_rb,0.65796e-02_rb,0.73228e-02_rb,0.69361e-02_rb,0.36112e-02_rb /)
+      kbo(:, 4,36, 7) = (/ &
+        & 0.28104e-02_rb,0.74827e-02_rb,0.82833e-02_rb,0.77843e-02_rb,0.38823e-02_rb /)
+      kbo(:, 5,36, 7) = (/ &
+        & 0.31359e-02_rb,0.85467e-02_rb,0.93763e-02_rb,0.87575e-02_rb,0.41812e-02_rb /)
+      kbo(:, 1,37, 7) = (/ &
+        & 0.17035e-02_rb,0.44466e-02_rb,0.49856e-02_rb,0.47970e-02_rb,0.26734e-02_rb /)
+      kbo(:, 2,37, 7) = (/ &
+        & 0.18934e-02_rb,0.50433e-02_rb,0.56462e-02_rb,0.53907e-02_rb,0.28873e-02_rb /)
+      kbo(:, 3,37, 7) = (/ &
+        & 0.21171e-02_rb,0.57558e-02_rb,0.64223e-02_rb,0.60783e-02_rb,0.31233e-02_rb /)
+      kbo(:, 4,37, 7) = (/ &
+        & 0.23767e-02_rb,0.65938e-02_rb,0.73141e-02_rb,0.68717e-02_rb,0.33760e-02_rb /)
+      kbo(:, 5,37, 7) = (/ &
+        & 0.26616e-02_rb,0.75860e-02_rb,0.83359e-02_rb,0.77859e-02_rb,0.36530e-02_rb /)
+      kbo(:, 1,38, 7) = (/ &
+        & 0.14234e-02_rb,0.38379e-02_rb,0.43139e-02_rb,0.41486e-02_rb,0.22904e-02_rb /)
+      kbo(:, 2,38, 7) = (/ &
+        & 0.15875e-02_rb,0.43850e-02_rb,0.49236e-02_rb,0.46956e-02_rb,0.24873e-02_rb /)
+      kbo(:, 3,38, 7) = (/ &
+        & 0.17824e-02_rb,0.50419e-02_rb,0.56400e-02_rb,0.53338e-02_rb,0.27024e-02_rb /)
+      kbo(:, 4,38, 7) = (/ &
+        & 0.20080e-02_rb,0.58195e-02_rb,0.64682e-02_rb,0.60767e-02_rb,0.29386e-02_rb /)
+      kbo(:, 5,38, 7) = (/ &
+        & 0.22567e-02_rb,0.67445e-02_rb,0.74253e-02_rb,0.69357e-02_rb,0.31979e-02_rb /)
+      kbo(:, 1,39, 7) = (/ &
+        & 0.11890e-02_rb,0.33180e-02_rb,0.37396e-02_rb,0.35935e-02_rb,0.19623e-02_rb /)
+      kbo(:, 2,39, 7) = (/ &
+        & 0.13309e-02_rb,0.38204e-02_rb,0.43017e-02_rb,0.40980e-02_rb,0.21427e-02_rb /)
+      kbo(:, 3,39, 7) = (/ &
+        & 0.14997e-02_rb,0.44279e-02_rb,0.49653e-02_rb,0.46926e-02_rb,0.23415e-02_rb /)
+      kbo(:, 4,39, 7) = (/ &
+        & 0.16956e-02_rb,0.51508e-02_rb,0.57361e-02_rb,0.53891e-02_rb,0.25595e-02_rb /)
+      kbo(:, 5,39, 7) = (/ &
+        & 0.19128e-02_rb,0.60136e-02_rb,0.66353e-02_rb,0.61975e-02_rb,0.28034e-02_rb /)
+      kbo(:, 1,40, 7) = (/ &
+        & 0.98185e-03_rb,0.28304e-02_rb,0.31989e-02_rb,0.30741e-02_rb,0.16759e-02_rb /)
+      kbo(:, 2,40, 7) = (/ &
+        & 0.11018e-02_rb,0.32825e-02_rb,0.37073e-02_rb,0.35318e-02_rb,0.18412e-02_rb /)
+      kbo(:, 3,40, 7) = (/ &
+        & 0.12459e-02_rb,0.38338e-02_rb,0.43125e-02_rb,0.40771e-02_rb,0.20230e-02_rb /)
+      kbo(:, 4,40, 7) = (/ &
+        & 0.14138e-02_rb,0.44950e-02_rb,0.50204e-02_rb,0.47198e-02_rb,0.22264e-02_rb /)
+      kbo(:, 5,40, 7) = (/ &
+        & 0.16015e-02_rb,0.52867e-02_rb,0.58524e-02_rb,0.54701e-02_rb,0.24538e-02_rb /)
+      kbo(:, 1,41, 7) = (/ &
+        & 0.80888e-03_rb,0.24101e-02_rb,0.27302e-02_rb,0.26250e-02_rb,0.14285e-02_rb /)
+      kbo(:, 2,41, 7) = (/ &
+        & 0.91042e-03_rb,0.28166e-02_rb,0.31895e-02_rb,0.30396e-02_rb,0.15812e-02_rb /)
+      kbo(:, 3,41, 7) = (/ &
+        & 0.10323e-02_rb,0.33144e-02_rb,0.37392e-02_rb,0.35375e-02_rb,0.17482e-02_rb /)
+      kbo(:, 4,41, 7) = (/ &
+        & 0.11757e-02_rb,0.39172e-02_rb,0.43885e-02_rb,0.41290e-02_rb,0.19366e-02_rb /)
+      kbo(:, 5,41, 7) = (/ &
+        & 0.13368e-02_rb,0.46417e-02_rb,0.51571e-02_rb,0.48237e-02_rb,0.21455e-02_rb /)
+      kbo(:, 1,42, 7) = (/ &
+        & 0.66584e-03_rb,0.20506e-02_rb,0.23294e-02_rb,0.22418e-02_rb,0.12147e-02_rb /)
+      kbo(:, 2,42, 7) = (/ &
+        & 0.75117e-03_rb,0.24164e-02_rb,0.27427e-02_rb,0.26163e-02_rb,0.13552e-02_rb /)
+      kbo(:, 3,42, 7) = (/ &
+        & 0.85464e-03_rb,0.28657e-02_rb,0.32419e-02_rb,0.30702e-02_rb,0.15103e-02_rb /)
+      kbo(:, 4,42, 7) = (/ &
+        & 0.97690e-03_rb,0.34148e-02_rb,0.38374e-02_rb,0.36136e-02_rb,0.16836e-02_rb /)
+      kbo(:, 5,42, 7) = (/ &
+        & 0.11154e-02_rb,0.40777e-02_rb,0.45486e-02_rb,0.42564e-02_rb,0.18765e-02_rb /)
+      kbo(:, 1,43, 7) = (/ &
+        & 0.54468e-03_rb,0.17260e-02_rb,0.19662e-02_rb,0.18963e-02_rb,0.10278e-02_rb /)
+      kbo(:, 2,43, 7) = (/ &
+        & 0.61495e-03_rb,0.20517e-02_rb,0.23339e-02_rb,0.22307e-02_rb,0.11544e-02_rb /)
+      kbo(:, 3,43, 7) = (/ &
+        & 0.70090e-03_rb,0.24526e-02_rb,0.27821e-02_rb,0.26393e-02_rb,0.12972e-02_rb /)
+      kbo(:, 4,43, 7) = (/ &
+        & 0.80460e-03_rb,0.29460e-02_rb,0.33228e-02_rb,0.31329e-02_rb,0.14583e-02_rb /)
+      kbo(:, 5,43, 7) = (/ &
+        & 0.92296e-03_rb,0.35462e-02_rb,0.39738e-02_rb,0.37220e-02_rb,0.16369e-02_rb /)
+      kbo(:, 1,44, 7) = (/ &
+        & 0.44364e-03_rb,0.14437e-02_rb,0.16496e-02_rb,0.15952e-02_rb,0.86540e-03_rb /)
+      kbo(:, 2,44, 7) = (/ &
+        & 0.50199e-03_rb,0.17304e-02_rb,0.19739e-02_rb,0.18912e-02_rb,0.97937e-03_rb /)
+      kbo(:, 3,44, 7) = (/ &
+        & 0.57242e-03_rb,0.20860e-02_rb,0.23731e-02_rb,0.22565e-02_rb,0.11106e-02_rb /)
+      kbo(:, 4,44, 7) = (/ &
+        & 0.65930e-03_rb,0.25283e-02_rb,0.28613e-02_rb,0.27024e-02_rb,0.12573e-02_rb /)
+      kbo(:, 5,44, 7) = (/ &
+        & 0.75974e-03_rb,0.30673e-02_rb,0.34531e-02_rb,0.32379e-02_rb,0.14238e-02_rb /)
+      kbo(:, 1,45, 7) = (/ &
+        & 0.36129e-03_rb,0.12055e-02_rb,0.13811e-02_rb,0.13394e-02_rb,0.72668e-03_rb /)
+      kbo(:, 2,45, 7) = (/ &
+        & 0.40925e-03_rb,0.14558e-02_rb,0.16660e-02_rb,0.16003e-02_rb,0.82937e-03_rb /)
+      kbo(:, 3,45, 7) = (/ &
+        & 0.46755e-03_rb,0.17705e-02_rb,0.20201e-02_rb,0.19260e-02_rb,0.94755e-03_rb /)
+      kbo(:, 4,45, 7) = (/ &
+        & 0.53937e-03_rb,0.21654e-02_rb,0.24593e-02_rb,0.23275e-02_rb,0.10822e-02_rb /)
+      kbo(:, 5,45, 7) = (/ &
+        & 0.62400e-03_rb,0.26505e-02_rb,0.29965e-02_rb,0.28141e-02_rb,0.12345e-02_rb /)
+      kbo(:, 1,46, 7) = (/ &
+        & 0.29308e-03_rb,0.99917e-03_rb,0.11483e-02_rb,0.11175e-02_rb,0.60699e-03_rb /)
+      kbo(:, 2,46, 7) = (/ &
+        & 0.33256e-03_rb,0.12167e-02_rb,0.13963e-02_rb,0.13454e-02_rb,0.69810e-03_rb /)
+      kbo(:, 3,46, 7) = (/ &
+        & 0.38031e-03_rb,0.14933e-02_rb,0.17091e-02_rb,0.16341e-02_rb,0.80431e-03_rb /)
+      kbo(:, 4,46, 7) = (/ &
+        & 0.43974e-03_rb,0.18423e-02_rb,0.21003e-02_rb,0.19926e-02_rb,0.92607e-03_rb /)
+      kbo(:, 5,46, 7) = (/ &
+        & 0.51042e-03_rb,0.22760e-02_rb,0.25842e-02_rb,0.24318e-02_rb,0.10656e-02_rb /)
+      kbo(:, 1,47, 7) = (/ &
+        & 0.23621e-03_rb,0.81920e-03_rb,0.94415e-03_rb,0.92230e-03_rb,0.50239e-03_rb /)
+      kbo(:, 2,47, 7) = (/ &
+        & 0.26847e-03_rb,0.10045e-02_rb,0.11560e-02_rb,0.11182e-02_rb,0.58268e-03_rb /)
+      kbo(:, 3,47, 7) = (/ &
+        & 0.30727e-03_rb,0.12442e-02_rb,0.14284e-02_rb,0.13701e-02_rb,0.67654e-03_rb /)
+      kbo(:, 4,47, 7) = (/ &
+        & 0.35565e-03_rb,0.15479e-02_rb,0.17727e-02_rb,0.16866e-02_rb,0.78602e-03_rb /)
+      kbo(:, 5,47, 7) = (/ &
+        & 0.41455e-03_rb,0.19320e-02_rb,0.22031e-02_rb,0.20787e-02_rb,0.91297e-03_rb /)
+      kbo(:, 1,48, 7) = (/ &
+        & 0.19056e-03_rb,0.66912e-03_rb,0.77329e-03_rb,0.75810e-03_rb,0.41434e-03_rb /)
+      kbo(:, 2,48, 7) = (/ &
+        & 0.21662e-03_rb,0.82638e-03_rb,0.95404e-03_rb,0.92602e-03_rb,0.48448e-03_rb /)
+      kbo(:, 3,48, 7) = (/ &
+        & 0.24805e-03_rb,0.10324e-02_rb,0.11883e-02_rb,0.11443e-02_rb,0.56714e-03_rb /)
+      kbo(:, 4,48, 7) = (/ &
+        & 0.28732e-03_rb,0.12967e-02_rb,0.14909e-02_rb,0.14226e-02_rb,0.66465e-03_rb /)
+      kbo(:, 5,48, 7) = (/ &
+        & 0.33598e-03_rb,0.16339e-02_rb,0.18720e-02_rb,0.17712e-02_rb,0.77925e-03_rb /)
+      kbo(:, 1,49, 7) = (/ &
+        & 0.15370e-03_rb,0.54435e-03_rb,0.63072e-03_rb,0.62031e-03_rb,0.34039e-03_rb /)
+      kbo(:, 2,49, 7) = (/ &
+        & 0.17493e-03_rb,0.67703e-03_rb,0.78385e-03_rb,0.76375e-03_rb,0.40110e-03_rb /)
+      kbo(:, 3,49, 7) = (/ &
+        & 0.20006e-03_rb,0.85331e-03_rb,0.98454e-03_rb,0.95185e-03_rb,0.47334e-03_rb /)
+      kbo(:, 4,49, 7) = (/ &
+        & 0.23184e-03_rb,0.10822e-02_rb,0.12482e-02_rb,0.11953e-02_rb,0.56021e-03_rb /)
+      kbo(:, 5,49, 7) = (/ &
+        & 0.27201e-03_rb,0.13761e-02_rb,0.15848e-02_rb,0.15038e-02_rb,0.66336e-03_rb /)
+      kbo(:, 1,50, 7) = (/ &
+        & 0.12445e-03_rb,0.44363e-03_rb,0.51558e-03_rb,0.50858e-03_rb,0.27983e-03_rb /)
+      kbo(:, 2,50, 7) = (/ &
+        & 0.14173e-03_rb,0.55572e-03_rb,0.64516e-03_rb,0.63048e-03_rb,0.33240e-03_rb /)
+      kbo(:, 3,50, 7) = (/ &
+        & 0.16225e-03_rb,0.70658e-03_rb,0.81789e-03_rb,0.79296e-03_rb,0.39601e-03_rb /)
+      kbo(:, 4,50, 7) = (/ &
+        & 0.18768e-03_rb,0.90539e-03_rb,0.10468e-02_rb,0.10060e-02_rb,0.47285e-03_rb /)
+      kbo(:, 5,50, 7) = (/ &
+        & 0.22071e-03_rb,0.11624e-02_rb,0.13446e-02_rb,0.12795e-02_rb,0.56523e-03_rb /)
+      kbo(:, 1,51, 7) = (/ &
+        & 0.10079e-03_rb,0.36142e-03_rb,0.42089e-03_rb,0.41617e-03_rb,0.23042e-03_rb /)
+      kbo(:, 2,51, 7) = (/ &
+        & 0.11508e-03_rb,0.45540e-03_rb,0.53023e-03_rb,0.51983e-03_rb,0.27489e-03_rb /)
+      kbo(:, 3,51, 7) = (/ &
+        & 0.13183e-03_rb,0.58426e-03_rb,0.67873e-03_rb,0.65942e-03_rb,0.33073e-03_rb /)
+      kbo(:, 4,51, 7) = (/ &
+        & 0.15243e-03_rb,0.75694e-03_rb,0.87652e-03_rb,0.84573e-03_rb,0.39869e-03_rb /)
+      kbo(:, 5,51, 7) = (/ &
+        & 0.17921e-03_rb,0.98295e-03_rb,0.11402e-02_rb,0.10885e-02_rb,0.48140e-03_rb /)
+      kbo(:, 1,52, 7) = (/ &
+        & 0.81556e-04_rb,0.29363e-03_rb,0.34244e-03_rb,0.33921e-03_rb,0.18905e-03_rb /)
+      kbo(:, 2,52, 7) = (/ &
+        & 0.93358e-04_rb,0.37204e-03_rb,0.43415e-03_rb,0.42707e-03_rb,0.22730e-03_rb /)
+      kbo(:, 3,52, 7) = (/ &
+        & 0.10711e-03_rb,0.48125e-03_rb,0.56095e-03_rb,0.54625e-03_rb,0.27517e-03_rb /)
+      kbo(:, 4,52, 7) = (/ &
+        & 0.12382e-03_rb,0.62999e-03_rb,0.73195e-03_rb,0.70815e-03_rb,0.33506e-03_rb /)
+      kbo(:, 5,52, 7) = (/ &
+        & 0.14564e-03_rb,0.82786e-03_rb,0.96258e-03_rb,0.92197e-03_rb,0.40847e-03_rb /)
+      kbo(:, 1,53, 7) = (/ &
+        & 0.65849e-04_rb,0.23779e-03_rb,0.27734e-03_rb,0.27519e-03_rb,0.15433e-03_rb /)
+      kbo(:, 2,53, 7) = (/ &
+        & 0.75546e-04_rb,0.30303e-03_rb,0.35410e-03_rb,0.34952e-03_rb,0.18741e-03_rb /)
+      kbo(:, 3,53, 7) = (/ &
+        & 0.86880e-04_rb,0.39464e-03_rb,0.46133e-03_rb,0.45049e-03_rb,0.22844e-03_rb /)
+      kbo(:, 4,53, 7) = (/ &
+        & 0.10061e-03_rb,0.52205e-03_rb,0.60866e-03_rb,0.59002e-03_rb,0.28045e-03_rb /)
+      kbo(:, 5,53, 7) = (/ &
+        & 0.11837e-03_rb,0.69424e-03_rb,0.80911e-03_rb,0.77763e-03_rb,0.34549e-03_rb /)
+      kbo(:, 1,54, 7) = (/ &
+        & 0.53194e-04_rb,0.19358e-03_rb,0.22554e-03_rb,0.22386e-03_rb,0.12634e-03_rb /)
+      kbo(:, 2,54, 7) = (/ &
+        & 0.61356e-04_rb,0.24774e-03_rb,0.28991e-03_rb,0.28698e-03_rb,0.15485e-03_rb /)
+      kbo(:, 3,54, 7) = (/ &
+        & 0.70732e-04_rb,0.32546e-03_rb,0.38104e-03_rb,0.37325e-03_rb,0.19067e-03_rb /)
+      kbo(:, 4,54, 7) = (/ &
+        & 0.81989e-04_rb,0.43475e-03_rb,0.50842e-03_rb,0.49348e-03_rb,0.23573e-03_rb /)
+      kbo(:, 5,54, 7) = (/ &
+        & 0.96606e-04_rb,0.58491e-03_rb,0.68358e-03_rb,0.65848e-03_rb,0.29331e-03_rb /)
+      kbo(:, 1,55, 7) = (/ &
+        & 0.42968e-04_rb,0.15774e-03_rb,0.18351e-03_rb,0.18209e-03_rb,0.10325e-03_rb /)
+      kbo(:, 2,55, 7) = (/ &
+        & 0.49757e-04_rb,0.20300e-03_rb,0.23752e-03_rb,0.23563e-03_rb,0.12786e-03_rb /)
+      kbo(:, 3,55, 7) = (/ &
+        & 0.57602e-04_rb,0.26853e-03_rb,0.31476e-03_rb,0.30938e-03_rb,0.15908e-03_rb /)
+      kbo(:, 4,55, 7) = (/ &
+        & 0.66944e-04_rb,0.36215e-03_rb,0.42458e-03_rb,0.41285e-03_rb,0.19867e-03_rb /)
+      kbo(:, 5,55, 7) = (/ &
+        & 0.78909e-04_rb,0.49332e-03_rb,0.57794e-03_rb,0.55775e-03_rb,0.24929e-03_rb /)
+      kbo(:, 1,56, 7) = (/ &
+        & 0.34572e-04_rb,0.12819e-03_rb,0.14868e-03_rb,0.14747e-03_rb,0.84103e-04_rb /)
+      kbo(:, 2,56, 7) = (/ &
+        & 0.40234e-04_rb,0.16586e-03_rb,0.19409e-03_rb,0.19266e-03_rb,0.10511e-03_rb /)
+      kbo(:, 3,56, 7) = (/ &
+        & 0.46756e-04_rb,0.22079e-03_rb,0.25905e-03_rb,0.25536e-03_rb,0.13228e-03_rb /)
+      kbo(:, 4,56, 7) = (/ &
+        & 0.54583e-04_rb,0.30103e-03_rb,0.35315e-03_rb,0.34421e-03_rb,0.16708e-03_rb /)
+      kbo(:, 5,56, 7) = (/ &
+        & 0.64414e-04_rb,0.41471e-03_rb,0.48701e-03_rb,0.47045e-03_rb,0.21139e-03_rb /)
+      kbo(:, 1,57, 7) = (/ &
+        & 0.27768e-04_rb,0.10391e-03_rb,0.12029e-03_rb,0.11888e-03_rb,0.68178e-04_rb /)
+      kbo(:, 2,57, 7) = (/ &
+        & 0.32463e-04_rb,0.13502e-03_rb,0.15785e-03_rb,0.15684e-03_rb,0.86073e-04_rb /)
+      kbo(:, 3,57, 7) = (/ &
+        & 0.37880e-04_rb,0.18114e-03_rb,0.21255e-03_rb,0.20984e-03_rb,0.10949e-03_rb /)
+      kbo(:, 4,57, 7) = (/ &
+        & 0.44374e-04_rb,0.24914e-03_rb,0.29262e-03_rb,0.28609e-03_rb,0.14004e-03_rb /)
+      kbo(:, 5,57, 7) = (/ &
+        & 0.52560e-04_rb,0.34723e-03_rb,0.40853e-03_rb,0.39531e-03_rb,0.17907e-03_rb /)
+      kbo(:, 1,58, 7) = (/ &
+        & 0.22293e-04_rb,0.84410e-04_rb,0.97318e-04_rb,0.95954e-04_rb,0.55246e-04_rb /)
+      kbo(:, 2,58, 7) = (/ &
+        & 0.26200e-04_rb,0.11013e-03_rb,0.12878e-03_rb,0.12778e-03_rb,0.70434e-04_rb /)
+      kbo(:, 3,58, 7) = (/ &
+        & 0.30694e-04_rb,0.14878e-03_rb,0.17475e-03_rb,0.17269e-03_rb,0.90681e-04_rb /)
+      kbo(:, 4,58, 7) = (/ &
+        & 0.36071e-04_rb,0.20666e-03_rb,0.24284e-03_rb,0.23795e-03_rb,0.11731e-03_rb /)
+      kbo(:, 5,58, 7) = (/ &
+        & 0.42845e-04_rb,0.29161e-03_rb,0.34322e-03_rb,0.33267e-03_rb,0.15208e-03_rb /)
+      kbo(:, 1,59, 7) = (/ &
+        & 0.18430e-04_rb,0.71706e-04_rb,0.82601e-04_rb,0.81289e-04_rb,0.46584e-04_rb /)
+      kbo(:, 2,59, 7) = (/ &
+        & 0.21734e-04_rb,0.94599e-04_rb,0.11060e-03_rb,0.10958e-03_rb,0.60168e-04_rb /)
+      kbo(:, 3,59, 7) = (/ &
+        & 0.25561e-04_rb,0.12924e-03_rb,0.15196e-03_rb,0.15008e-03_rb,0.78430e-04_rb /)
+      kbo(:, 4,59, 7) = (/ &
+        & 0.30185e-04_rb,0.18220e-03_rb,0.21420e-03_rb,0.20980e-03_rb,0.10280e-03_rb /)
+      kbo(:, 5,59, 7) = (/ &
+        & 0.36067e-04_rb,0.26061e-03_rb,0.30710e-03_rb,0.29739e-03_rb,0.13531e-03_rb /)
+      kbo(:, 1,13, 8) = (/ &
+        & 0.32299e+00_rb,0.54760e+00_rb,0.60079e+00_rb,0.58517e+00_rb,0.42276e+00_rb /)
+      kbo(:, 2,13, 8) = (/ &
+        & 0.32594e+00_rb,0.55963e+00_rb,0.61653e+00_rb,0.60147e+00_rb,0.43281e+00_rb /)
+      kbo(:, 3,13, 8) = (/ &
+        & 0.33056e+00_rb,0.57182e+00_rb,0.63236e+00_rb,0.61863e+00_rb,0.44149e+00_rb /)
+      kbo(:, 4,13, 8) = (/ &
+        & 0.33706e+00_rb,0.58426e+00_rb,0.64822e+00_rb,0.63489e+00_rb,0.44893e+00_rb /)
+      kbo(:, 5,13, 8) = (/ &
+        & 0.34635e+00_rb,0.59739e+00_rb,0.66343e+00_rb,0.65003e+00_rb,0.45486e+00_rb /)
+      kbo(:, 1,14, 8) = (/ &
+        & 0.27185e+00_rb,0.47396e+00_rb,0.52087e+00_rb,0.50518e+00_rb,0.35898e+00_rb /)
+      kbo(:, 2,14, 8) = (/ &
+        & 0.27455e+00_rb,0.48454e+00_rb,0.53473e+00_rb,0.52058e+00_rb,0.36725e+00_rb /)
+      kbo(:, 3,14, 8) = (/ &
+        & 0.27878e+00_rb,0.49523e+00_rb,0.54876e+00_rb,0.53556e+00_rb,0.37477e+00_rb /)
+      kbo(:, 4,14, 8) = (/ &
+        & 0.28540e+00_rb,0.50660e+00_rb,0.56244e+00_rb,0.54948e+00_rb,0.38095e+00_rb /)
+      kbo(:, 5,14, 8) = (/ &
+        & 0.29474e+00_rb,0.51876e+00_rb,0.57592e+00_rb,0.56255e+00_rb,0.38660e+00_rb /)
+      kbo(:, 1,15, 8) = (/ &
+        & 0.22818e+00_rb,0.40825e+00_rb,0.45003e+00_rb,0.43582e+00_rb,0.30350e+00_rb /)
+      kbo(:, 2,15, 8) = (/ &
+        & 0.23074e+00_rb,0.41749e+00_rb,0.46220e+00_rb,0.44930e+00_rb,0.31064e+00_rb /)
+      kbo(:, 3,15, 8) = (/ &
+        & 0.23510e+00_rb,0.42737e+00_rb,0.47434e+00_rb,0.46202e+00_rb,0.31696e+00_rb /)
+      kbo(:, 4,15, 8) = (/ &
+        & 0.24186e+00_rb,0.43783e+00_rb,0.48637e+00_rb,0.47387e+00_rb,0.32265e+00_rb /)
+      kbo(:, 5,15, 8) = (/ &
+        & 0.25121e+00_rb,0.44943e+00_rb,0.49855e+00_rb,0.48519e+00_rb,0.32816e+00_rb /)
+      kbo(:, 1,16, 8) = (/ &
+        & 0.19120e+00_rb,0.34975e+00_rb,0.38732e+00_rb,0.37509e+00_rb,0.25617e+00_rb /)
+      kbo(:, 2,16, 8) = (/ &
+        & 0.19385e+00_rb,0.35826e+00_rb,0.39799e+00_rb,0.38666e+00_rb,0.26259e+00_rb /)
+      kbo(:, 3,16, 8) = (/ &
+        & 0.19846e+00_rb,0.36727e+00_rb,0.40872e+00_rb,0.39750e+00_rb,0.26815e+00_rb /)
+      kbo(:, 4,16, 8) = (/ &
+        & 0.20537e+00_rb,0.37712e+00_rb,0.41954e+00_rb,0.40777e+00_rb,0.27330e+00_rb /)
+      kbo(:, 5,16, 8) = (/ &
+        & 0.21427e+00_rb,0.38868e+00_rb,0.43071e+00_rb,0.41784e+00_rb,0.27853e+00_rb /)
+      kbo(:, 1,17, 8) = (/ &
+        & 0.15988e+00_rb,0.29854e+00_rb,0.33180e+00_rb,0.32201e+00_rb,0.21611e+00_rb /)
+      kbo(:, 2,17, 8) = (/ &
+        & 0.16279e+00_rb,0.30628e+00_rb,0.34129e+00_rb,0.33188e+00_rb,0.22162e+00_rb /)
+      kbo(:, 3,17, 8) = (/ &
+        & 0.16763e+00_rb,0.31463e+00_rb,0.35085e+00_rb,0.34122e+00_rb,0.22664e+00_rb /)
+      kbo(:, 4,17, 8) = (/ &
+        & 0.17444e+00_rb,0.32432e+00_rb,0.36068e+00_rb,0.35032e+00_rb,0.23161e+00_rb /)
+      kbo(:, 5,17, 8) = (/ &
+        & 0.18274e+00_rb,0.33609e+00_rb,0.37140e+00_rb,0.35944e+00_rb,0.23665e+00_rb /)
+      kbo(:, 1,18, 8) = (/ &
+        & 0.13352e+00_rb,0.25404e+00_rb,0.28330e+00_rb,0.27577e+00_rb,0.18225e+00_rb /)
+      kbo(:, 2,18, 8) = (/ &
+        & 0.13667e+00_rb,0.26103e+00_rb,0.29171e+00_rb,0.28431e+00_rb,0.18712e+00_rb /)
+      kbo(:, 3,18, 8) = (/ &
+        & 0.14164e+00_rb,0.26910e+00_rb,0.30030e+00_rb,0.29254e+00_rb,0.19176e+00_rb /)
+      kbo(:, 4,18, 8) = (/ &
+        & 0.14809e+00_rb,0.27886e+00_rb,0.30959e+00_rb,0.30073e+00_rb,0.19637e+00_rb /)
+      kbo(:, 5,18, 8) = (/ &
+        & 0.15551e+00_rb,0.29050e+00_rb,0.32020e+00_rb,0.30930e+00_rb,0.20115e+00_rb /)
+      kbo(:, 1,19, 8) = (/ &
+        & 0.11177e+00_rb,0.21580e+00_rb,0.24136e+00_rb,0.23552e+00_rb,0.15392e+00_rb /)
+      kbo(:, 2,19, 8) = (/ &
+        & 0.11504e+00_rb,0.22243e+00_rb,0.24890e+00_rb,0.24304e+00_rb,0.15833e+00_rb /)
+      kbo(:, 3,19, 8) = (/ &
+        & 0.11975e+00_rb,0.23031e+00_rb,0.25687e+00_rb,0.25048e+00_rb,0.16244e+00_rb /)
+      kbo(:, 4,19, 8) = (/ &
+        & 0.12553e+00_rb,0.23994e+00_rb,0.26588e+00_rb,0.25812e+00_rb,0.16671e+00_rb /)
+      kbo(:, 5,19, 8) = (/ &
+        & 0.13204e+00_rb,0.25107e+00_rb,0.27639e+00_rb,0.26629e+00_rb,0.17110e+00_rb /)
+      kbo(:, 1,20, 8) = (/ &
+        & 0.93818e-01_rb,0.18336e+00_rb,0.20533e+00_rb,0.20083e+00_rb,0.13063e+00_rb /)
+      kbo(:, 2,20, 8) = (/ &
+        & 0.97153e-01_rb,0.18975e+00_rb,0.21222e+00_rb,0.20754e+00_rb,0.13445e+00_rb /)
+      kbo(:, 3,20, 8) = (/ &
+        & 0.10157e+00_rb,0.19759e+00_rb,0.21989e+00_rb,0.21439e+00_rb,0.13819e+00_rb /)
+      kbo(:, 4,20, 8) = (/ &
+        & 0.10656e+00_rb,0.20692e+00_rb,0.22885e+00_rb,0.22170e+00_rb,0.14200e+00_rb /)
+      kbo(:, 5,20, 8) = (/ &
+        & 0.11217e+00_rb,0.21741e+00_rb,0.23914e+00_rb,0.22972e+00_rb,0.14595e+00_rb /)
+      kbo(:, 1,21, 8) = (/ &
+        & 0.78864e-01_rb,0.15581e+00_rb,0.17467e+00_rb,0.17111e+00_rb,0.11093e+00_rb /)
+      kbo(:, 2,21, 8) = (/ &
+        & 0.82115e-01_rb,0.16213e+00_rb,0.18114e+00_rb,0.17722e+00_rb,0.11448e+00_rb /)
+      kbo(:, 3,21, 8) = (/ &
+        & 0.86091e-01_rb,0.16989e+00_rb,0.18858e+00_rb,0.18368e+00_rb,0.11795e+00_rb /)
+      kbo(:, 4,21, 8) = (/ &
+        & 0.90544e-01_rb,0.17883e+00_rb,0.19740e+00_rb,0.19075e+00_rb,0.12140e+00_rb /)
+      kbo(:, 5,21, 8) = (/ &
+        & 0.95531e-01_rb,0.18857e+00_rb,0.20719e+00_rb,0.19872e+00_rb,0.12494e+00_rb /)
+      kbo(:, 1,22, 8) = (/ &
+        & 0.66536e-01_rb,0.13293e+00_rb,0.14913e+00_rb,0.14618e+00_rb,0.94429e-01_rb /)
+      kbo(:, 2,22, 8) = (/ &
+        & 0.69639e-01_rb,0.13931e+00_rb,0.15537e+00_rb,0.15187e+00_rb,0.97680e-01_rb /)
+      kbo(:, 3,22, 8) = (/ &
+        & 0.73194e-01_rb,0.14688e+00_rb,0.16282e+00_rb,0.15805e+00_rb,0.10087e+00_rb /)
+      kbo(:, 4,22, 8) = (/ &
+        & 0.77205e-01_rb,0.15536e+00_rb,0.17135e+00_rb,0.16503e+00_rb,0.10414e+00_rb /)
+      kbo(:, 5,22, 8) = (/ &
+        & 0.81667e-01_rb,0.16427e+00_rb,0.18066e+00_rb,0.17291e+00_rb,0.10744e+00_rb /)
+      kbo(:, 1,23, 8) = (/ &
+        & 0.56261e-01_rb,0.11383e+00_rb,0.12760e+00_rb,0.12512e+00_rb,0.80559e-01_rb /)
+      kbo(:, 2,23, 8) = (/ &
+        & 0.59086e-01_rb,0.12014e+00_rb,0.13384e+00_rb,0.13048e+00_rb,0.83485e-01_rb /)
+      kbo(:, 3,23, 8) = (/ &
+        & 0.62281e-01_rb,0.12738e+00_rb,0.14121e+00_rb,0.13648e+00_rb,0.86460e-01_rb /)
+      kbo(:, 4,23, 8) = (/ &
+        & 0.65906e-01_rb,0.13517e+00_rb,0.14937e+00_rb,0.14336e+00_rb,0.89462e-01_rb /)
+      kbo(:, 5,23, 8) = (/ &
+        & 0.69998e-01_rb,0.14335e+00_rb,0.15807e+00_rb,0.15098e+00_rb,0.92588e-01_rb /)
+      kbo(:, 1,24, 8) = (/ &
+        & 0.47642e-01_rb,0.97933e-01_rb,0.10963e+00_rb,0.10742e+00_rb,0.68750e-01_rb /)
+      kbo(:, 2,24, 8) = (/ &
+        & 0.50193e-01_rb,0.10399e+00_rb,0.11587e+00_rb,0.11258e+00_rb,0.71432e-01_rb /)
+      kbo(:, 3,24, 8) = (/ &
+        & 0.53085e-01_rb,0.11077e+00_rb,0.12298e+00_rb,0.11845e+00_rb,0.74194e-01_rb /)
+      kbo(:, 4,24, 8) = (/ &
+        & 0.56384e-01_rb,0.11795e+00_rb,0.13070e+00_rb,0.12512e+00_rb,0.76973e-01_rb /)
+      kbo(:, 5,24, 8) = (/ &
+        & 0.60174e-01_rb,0.12555e+00_rb,0.13879e+00_rb,0.13237e+00_rb,0.79920e-01_rb /)
+      kbo(:, 1,25, 8) = (/ &
+        & 0.40432e-01_rb,0.84645e-01_rb,0.94724e-01_rb,0.92637e-01_rb,0.58805e-01_rb /)
+      kbo(:, 2,25, 8) = (/ &
+        & 0.42748e-01_rb,0.90409e-01_rb,0.10079e+00_rb,0.97654e-01_rb,0.61289e-01_rb /)
+      kbo(:, 3,25, 8) = (/ &
+        & 0.45392e-01_rb,0.96682e-01_rb,0.10756e+00_rb,0.10341e+00_rb,0.63818e-01_rb /)
+      kbo(:, 4,25, 8) = (/ &
+        & 0.48438e-01_rb,0.10335e+00_rb,0.11478e+00_rb,0.10978e+00_rb,0.66481e-01_rb /)
+      kbo(:, 5,25, 8) = (/ &
+        & 0.52019e-01_rb,0.11050e+00_rb,0.12234e+00_rb,0.11664e+00_rb,0.69209e-01_rb /)
+      kbo(:, 1,26, 8) = (/ &
+        & 0.34430e-01_rb,0.73567e-01_rb,0.82349e-01_rb,0.80341e-01_rb,0.50485e-01_rb /)
+      kbo(:, 2,26, 8) = (/ &
+        & 0.36558e-01_rb,0.78997e-01_rb,0.88163e-01_rb,0.85293e-01_rb,0.52835e-01_rb /)
+      kbo(:, 3,26, 8) = (/ &
+        & 0.39009e-01_rb,0.84818e-01_rb,0.94521e-01_rb,0.90851e-01_rb,0.55181e-01_rb /)
+      kbo(:, 4,26, 8) = (/ &
+        & 0.41876e-01_rb,0.91074e-01_rb,0.10127e+00_rb,0.96922e-01_rb,0.57644e-01_rb /)
+      kbo(:, 5,26, 8) = (/ &
+        & 0.45294e-01_rb,0.97874e-01_rb,0.10841e+00_rb,0.10340e+00_rb,0.60258e-01_rb /)
+      kbo(:, 1,27, 8) = (/ &
+        & 0.29418e-01_rb,0.64289e-01_rb,0.71984e-01_rb,0.70112e-01_rb,0.43514e-01_rb /)
+      kbo(:, 2,27, 8) = (/ &
+        & 0.31367e-01_rb,0.69333e-01_rb,0.77500e-01_rb,0.74945e-01_rb,0.45654e-01_rb /)
+      kbo(:, 3,27, 8) = (/ &
+        & 0.33650e-01_rb,0.74779e-01_rb,0.83451e-01_rb,0.80284e-01_rb,0.47838e-01_rb /)
+      kbo(:, 4,27, 8) = (/ &
+        & 0.36373e-01_rb,0.80698e-01_rb,0.89803e-01_rb,0.86035e-01_rb,0.50188e-01_rb /)
+      kbo(:, 5,27, 8) = (/ &
+        & 0.39625e-01_rb,0.87227e-01_rb,0.96605e-01_rb,0.92163e-01_rb,0.52661e-01_rb /)
+      kbo(:, 1,28, 8) = (/ &
+        & 0.25206e-01_rb,0.56436e-01_rb,0.63282e-01_rb,0.61571e-01_rb,0.37602e-01_rb /)
+      kbo(:, 2,28, 8) = (/ &
+        & 0.27009e-01_rb,0.61147e-01_rb,0.68481e-01_rb,0.66237e-01_rb,0.39562e-01_rb /)
+      kbo(:, 3,28, 8) = (/ &
+        & 0.29150e-01_rb,0.66302e-01_rb,0.74074e-01_rb,0.71341e-01_rb,0.41601e-01_rb /)
+      kbo(:, 4,28, 8) = (/ &
+        & 0.31750e-01_rb,0.71955e-01_rb,0.80104e-01_rb,0.76785e-01_rb,0.43794e-01_rb /)
+      kbo(:, 5,28, 8) = (/ &
+        & 0.34834e-01_rb,0.78268e-01_rb,0.86662e-01_rb,0.82632e-01_rb,0.46193e-01_rb /)
+      kbo(:, 1,29, 8) = (/ &
+        & 0.21672e-01_rb,0.49821e-01_rb,0.55985e-01_rb,0.54431e-01_rb,0.32677e-01_rb /)
+      kbo(:, 2,29, 8) = (/ &
+        & 0.23360e-01_rb,0.54257e-01_rb,0.60871e-01_rb,0.58918e-01_rb,0.34453e-01_rb /)
+      kbo(:, 3,29, 8) = (/ &
+        & 0.25420e-01_rb,0.59159e-01_rb,0.66168e-01_rb,0.63765e-01_rb,0.36398e-01_rb /)
+      kbo(:, 4,29, 8) = (/ &
+        & 0.27908e-01_rb,0.64629e-01_rb,0.71935e-01_rb,0.68977e-01_rb,0.38490e-01_rb /)
+      kbo(:, 5,29, 8) = (/ &
+        & 0.30843e-01_rb,0.70791e-01_rb,0.78323e-01_rb,0.74610e-01_rb,0.40747e-01_rb /)
+      kbo(:, 1,30, 8) = (/ &
+        & 0.18703e-01_rb,0.44236e-01_rb,0.49819e-01_rb,0.48423e-01_rb,0.28503e-01_rb /)
+      kbo(:, 2,30, 8) = (/ &
+        & 0.20315e-01_rb,0.48445e-01_rb,0.54425e-01_rb,0.52720e-01_rb,0.30174e-01_rb /)
+      kbo(:, 3,30, 8) = (/ &
+        & 0.22307e-01_rb,0.53163e-01_rb,0.59481e-01_rb,0.57359e-01_rb,0.32018e-01_rb /)
+      kbo(:, 4,30, 8) = (/ &
+        & 0.24687e-01_rb,0.58495e-01_rb,0.65064e-01_rb,0.62368e-01_rb,0.34022e-01_rb /)
+      kbo(:, 5,30, 8) = (/ &
+        & 0.27510e-01_rb,0.64597e-01_rb,0.71352e-01_rb,0.67860e-01_rb,0.36243e-01_rb /)
+      kbo(:, 1,31, 8) = (/ &
+        & 0.16227e-01_rb,0.39546e-01_rb,0.44613e-01_rb,0.43384e-01_rb,0.24947e-01_rb /)
+      kbo(:, 2,31, 8) = (/ &
+        & 0.17791e-01_rb,0.43576e-01_rb,0.49010e-01_rb,0.47501e-01_rb,0.26577e-01_rb /)
+      kbo(:, 3,31, 8) = (/ &
+        & 0.19720e-01_rb,0.48163e-01_rb,0.53877e-01_rb,0.51962e-01_rb,0.28347e-01_rb /)
+      kbo(:, 4,31, 8) = (/ &
+        & 0.22010e-01_rb,0.53419e-01_rb,0.59368e-01_rb,0.56842e-01_rb,0.30326e-01_rb /)
+      kbo(:, 5,31, 8) = (/ &
+        & 0.24778e-01_rb,0.59533e-01_rb,0.65582e-01_rb,0.62279e-01_rb,0.32464e-01_rb /)
+      kbo(:, 1,32, 8) = (/ &
+        & 0.14168e-01_rb,0.35610e-01_rb,0.40228e-01_rb,0.39145e-01_rb,0.21998e-01_rb /)
+      kbo(:, 2,32, 8) = (/ &
+        & 0.15701e-01_rb,0.39518e-01_rb,0.44455e-01_rb,0.43108e-01_rb,0.23551e-01_rb /)
+      kbo(:, 3,32, 8) = (/ &
+        & 0.17568e-01_rb,0.44028e-01_rb,0.49228e-01_rb,0.47442e-01_rb,0.25303e-01_rb /)
+      kbo(:, 4,32, 8) = (/ &
+        & 0.19822e-01_rb,0.49274e-01_rb,0.54644e-01_rb,0.52269e-01_rb,0.27219e-01_rb /)
+      kbo(:, 5,32, 8) = (/ &
+        & 0.22492e-01_rb,0.55429e-01_rb,0.60878e-01_rb,0.57696e-01_rb,0.29289e-01_rb /)
+      kbo(:, 1,33, 8) = (/ &
+        & 0.12469e-01_rb,0.32321e-01_rb,0.36548e-01_rb,0.35586e-01_rb,0.19535e-01_rb /)
+      kbo(:, 2,33, 8) = (/ &
+        & 0.13967e-01_rb,0.36160e-01_rb,0.40670e-01_rb,0.39414e-01_rb,0.21057e-01_rb /)
+      kbo(:, 3,33, 8) = (/ &
+        & 0.15804e-01_rb,0.40646e-01_rb,0.45371e-01_rb,0.43697e-01_rb,0.22748e-01_rb /)
+      kbo(:, 4,33, 8) = (/ &
+        & 0.18007e-01_rb,0.45935e-01_rb,0.50790e-01_rb,0.48504e-01_rb,0.24589e-01_rb /)
+      kbo(:, 5,33, 8) = (/ &
+        & 0.20583e-01_rb,0.52117e-01_rb,0.57083e-01_rb,0.53949e-01_rb,0.26612e-01_rb /)
+      kbo(:, 1,34, 8) = (/ &
+        & 0.11030e-01_rb,0.29462e-01_rb,0.33333e-01_rb,0.32457e-01_rb,0.17441e-01_rb /)
+      kbo(:, 2,34, 8) = (/ &
+        & 0.12485e-01_rb,0.33252e-01_rb,0.37374e-01_rb,0.36203e-01_rb,0.18902e-01_rb /)
+      kbo(:, 3,34, 8) = (/ &
+        & 0.14284e-01_rb,0.37735e-01_rb,0.42039e-01_rb,0.40449e-01_rb,0.20533e-01_rb /)
+      kbo(:, 4,34, 8) = (/ &
+        & 0.16406e-01_rb,0.43050e-01_rb,0.47473e-01_rb,0.45250e-01_rb,0.22315e-01_rb /)
+      kbo(:, 5,34, 8) = (/ &
+        & 0.18889e-01_rb,0.49221e-01_rb,0.53838e-01_rb,0.50709e-01_rb,0.24295e-01_rb /)
+      kbo(:, 1,35, 8) = (/ &
+        & 0.97045e-02_rb,0.26765e-01_rb,0.30294e-01_rb,0.29494e-01_rb,0.15527e-01_rb /)
+      kbo(:, 2,35, 8) = (/ &
+        & 0.11116e-01_rb,0.30471e-01_rb,0.34237e-01_rb,0.33156e-01_rb,0.16936e-01_rb /)
+      kbo(:, 3,35, 8) = (/ &
+        & 0.12833e-01_rb,0.34908e-01_rb,0.38827e-01_rb,0.37335e-01_rb,0.18494e-01_rb /)
+      kbo(:, 4,35, 8) = (/ &
+        & 0.14851e-01_rb,0.40160e-01_rb,0.44228e-01_rb,0.42095e-01_rb,0.20230e-01_rb /)
+      kbo(:, 5,35, 8) = (/ &
+        & 0.17220e-01_rb,0.46275e-01_rb,0.50600e-01_rb,0.47524e-01_rb,0.22137e-01_rb /)
+      kbo(:, 1,36, 8) = (/ &
+        & 0.84787e-02_rb,0.24131e-01_rb,0.27339e-01_rb,0.26619e-01_rb,0.13756e-01_rb /)
+      kbo(:, 2,36, 8) = (/ &
+        & 0.98033e-02_rb,0.27706e-01_rb,0.31147e-01_rb,0.30166e-01_rb,0.15106e-01_rb /)
+      kbo(:, 3,36, 8) = (/ &
+        & 0.11407e-01_rb,0.32015e-01_rb,0.35610e-01_rb,0.34239e-01_rb,0.16593e-01_rb /)
+      kbo(:, 4,36, 8) = (/ &
+        & 0.13302e-01_rb,0.37140e-01_rb,0.40907e-01_rb,0.38904e-01_rb,0.18257e-01_rb /)
+      kbo(:, 5,36, 8) = (/ &
+        & 0.15537e-01_rb,0.43129e-01_rb,0.47182e-01_rb,0.44236e-01_rb,0.20074e-01_rb /)
+      kbo(:, 1,37, 8) = (/ &
+        & 0.72685e-02_rb,0.21392e-01_rb,0.24301e-01_rb,0.23679e-01_rb,0.12087e-01_rb /)
+      kbo(:, 2,37, 8) = (/ &
+        & 0.84733e-02_rb,0.24759e-01_rb,0.27898e-01_rb,0.27046e-01_rb,0.13342e-01_rb /)
+      kbo(:, 3,37, 8) = (/ &
+        & 0.99353e-02_rb,0.28848e-01_rb,0.32152e-01_rb,0.30940e-01_rb,0.14748e-01_rb /)
+      kbo(:, 4,37, 8) = (/ &
+        & 0.11673e-01_rb,0.33734e-01_rb,0.37224e-01_rb,0.35422e-01_rb,0.16319e-01_rb /)
+      kbo(:, 5,37, 8) = (/ &
+        & 0.13740e-01_rb,0.39481e-01_rb,0.43256e-01_rb,0.40566e-01_rb,0.18049e-01_rb /)
+      kbo(:, 1,38, 8) = (/ &
+        & 0.62326e-02_rb,0.18999e-01_rb,0.21644e-01_rb,0.21103e-01_rb,0.10629e-01_rb /)
+      kbo(:, 2,38, 8) = (/ &
+        & 0.73269e-02_rb,0.22170e-01_rb,0.25042e-01_rb,0.24299e-01_rb,0.11807e-01_rb /)
+      kbo(:, 3,38, 8) = (/ &
+        & 0.86586e-02_rb,0.26045e-01_rb,0.29098e-01_rb,0.28019e-01_rb,0.13138e-01_rb /)
+      kbo(:, 4,38, 8) = (/ &
+        & 0.10254e-01_rb,0.30699e-01_rb,0.33952e-01_rb,0.32316e-01_rb,0.14621e-01_rb /)
+      kbo(:, 5,38, 8) = (/ &
+        & 0.12168e-01_rb,0.36211e-01_rb,0.39748e-01_rb,0.37288e-01_rb,0.16263e-01_rb /)
+      kbo(:, 1,39, 8) = (/ &
+        & 0.53522e-02_rb,0.16925e-01_rb,0.19337e-01_rb,0.18863e-01_rb,0.93697e-02_rb /)
+      kbo(:, 2,39, 8) = (/ &
+        & 0.63437e-02_rb,0.19916e-01_rb,0.22555e-01_rb,0.21900e-01_rb,0.10477e-01_rb /)
+      kbo(:, 3,39, 8) = (/ &
+        & 0.75600e-02_rb,0.23590e-01_rb,0.26428e-01_rb,0.25453e-01_rb,0.11732e-01_rb /)
+      kbo(:, 4,39, 8) = (/ &
+        & 0.90277e-02_rb,0.28027e-01_rb,0.31081e-01_rb,0.29581e-01_rb,0.13140e-01_rb /)
+      kbo(:, 5,39, 8) = (/ &
+        & 0.10804e-01_rb,0.33325e-01_rb,0.36655e-01_rb,0.34396e-01_rb,0.14714e-01_rb /)
+      kbo(:, 1,40, 8) = (/ &
+        & 0.45183e-02_rb,0.14862e-01_rb,0.17043e-01_rb,0.16640e-01_rb,0.81906e-02_rb /)
+      kbo(:, 2,40, 8) = (/ &
+        & 0.53964e-02_rb,0.17630e-01_rb,0.20043e-01_rb,0.19482e-01_rb,0.92335e-02_rb /)
+      kbo(:, 3,40, 8) = (/ &
+        & 0.64835e-02_rb,0.21041e-01_rb,0.23674e-01_rb,0.22821e-01_rb,0.10400e-01_rb /)
+      kbo(:, 4,40, 8) = (/ &
+        & 0.78100e-02_rb,0.25197e-01_rb,0.28056e-01_rb,0.26733e-01_rb,0.11718e-01_rb /)
+      kbo(:, 5,40, 8) = (/ &
+        & 0.94310e-02_rb,0.30203e-01_rb,0.33322e-01_rb,0.31321e-01_rb,0.13209e-01_rb /)
+      kbo(:, 1,41, 8) = (/ &
+        & 0.38020e-02_rb,0.13035e-01_rb,0.15007e-01_rb,0.14665e-01_rb,0.71645e-02_rb /)
+      kbo(:, 2,41, 8) = (/ &
+        & 0.45796e-02_rb,0.15592e-01_rb,0.17802e-01_rb,0.17320e-01_rb,0.81332e-02_rb /)
+      kbo(:, 3,41, 8) = (/ &
+        & 0.55464e-02_rb,0.18749e-01_rb,0.21191e-01_rb,0.20448e-01_rb,0.92312e-02_rb /)
+      kbo(:, 4,41, 8) = (/ &
+        & 0.67408e-02_rb,0.22629e-01_rb,0.25309e-01_rb,0.24143e-01_rb,0.10458e-01_rb /)
+      kbo(:, 5,41, 8) = (/ &
+        & 0.82155e-02_rb,0.27347e-01_rb,0.30277e-01_rb,0.28506e-01_rb,0.11871e-01_rb /)
+      kbo(:, 1,42, 8) = (/ &
+        & 0.31962e-02_rb,0.11444e-01_rb,0.13229e-01_rb,0.12937e-01_rb,0.62788e-02_rb /)
+      kbo(:, 2,42, 8) = (/ &
+        & 0.38815e-02_rb,0.13798e-01_rb,0.15822e-01_rb,0.15407e-01_rb,0.71774e-02_rb /)
+      kbo(:, 3,42, 8) = (/ &
+        & 0.47422e-02_rb,0.16722e-01_rb,0.18990e-01_rb,0.18339e-01_rb,0.81986e-02_rb /)
+      kbo(:, 4,42, 8) = (/ &
+        & 0.58154e-02_rb,0.20342e-01_rb,0.22857e-01_rb,0.21830e-01_rb,0.93594e-02_rb /)
+      kbo(:, 5,42, 8) = (/ &
+        & 0.71546e-02_rb,0.24787e-01_rb,0.27545e-01_rb,0.25973e-01_rb,0.10684e-01_rb /)
+      kbo(:, 1,43, 8) = (/ &
+        & 0.26542e-02_rb,0.99421e-02_rb,0.11545e-01_rb,0.11297e-01_rb,0.54681e-02_rb /)
+      kbo(:, 2,43, 8) = (/ &
+        & 0.32467e-02_rb,0.12085e-01_rb,0.13926e-01_rb,0.13575e-01_rb,0.63017e-02_rb /)
+      kbo(:, 3,43, 8) = (/ &
+        & 0.40037e-02_rb,0.14758e-01_rb,0.16848e-01_rb,0.16296e-01_rb,0.72434e-02_rb /)
+      kbo(:, 4,43, 8) = (/ &
+        & 0.49534e-02_rb,0.18094e-01_rb,0.20438e-01_rb,0.19556e-01_rb,0.83354e-02_rb /)
+      kbo(:, 5,43, 8) = (/ &
+        & 0.61525e-02_rb,0.22230e-01_rb,0.24817e-01_rb,0.23450e-01_rb,0.95751e-02_rb /)
+      kbo(:, 1,44, 8) = (/ &
+        & 0.21881e-02_rb,0.85857e-02_rb,0.10019e-01_rb,0.98043e-02_rb,0.47456e-02_rb /)
+      kbo(:, 2,44, 8) = (/ &
+        & 0.26937e-02_rb,0.10525e-01_rb,0.12192e-01_rb,0.11898e-01_rb,0.55168e-02_rb /)
+      kbo(:, 3,44, 8) = (/ &
+        & 0.33531e-02_rb,0.12952e-01_rb,0.14870e-01_rb,0.14408e-01_rb,0.63938e-02_rb /)
+      kbo(:, 4,44, 8) = (/ &
+        & 0.41916e-02_rb,0.16016e-01_rb,0.18187e-01_rb,0.17441e-01_rb,0.73995e-02_rb /)
+      kbo(:, 5,44, 8) = (/ &
+        & 0.52529e-02_rb,0.19825e-01_rb,0.22245e-01_rb,0.21074e-01_rb,0.85693e-02_rb /)
+      kbo(:, 1,45, 8) = (/ &
+        & 0.17974e-02_rb,0.74036e-02_rb,0.86819e-02_rb,0.84949e-02_rb,0.41100e-02_rb /)
+      kbo(:, 2,45, 8) = (/ &
+        & 0.22283e-02_rb,0.91556e-02_rb,0.10664e-01_rb,0.10414e-01_rb,0.48257e-02_rb /)
+      kbo(:, 3,45, 8) = (/ &
+        & 0.27993e-02_rb,0.11360e-01_rb,0.13115e-01_rb,0.12731e-01_rb,0.56423e-02_rb /)
+      kbo(:, 4,45, 8) = (/ &
+        & 0.35358e-02_rb,0.14164e-01_rb,0.16170e-01_rb,0.15543e-01_rb,0.65867e-02_rb /)
+      kbo(:, 5,45, 8) = (/ &
+        & 0.44762e-02_rb,0.17671e-01_rb,0.19928e-01_rb,0.18931e-01_rb,0.76725e-02_rb /)
+      kbo(:, 1,46, 8) = (/ &
+        & 0.14666e-02_rb,0.63443e-02_rb,0.74710e-02_rb,0.73099e-02_rb,0.35540e-02_rb /)
+      kbo(:, 2,46, 8) = (/ &
+        & 0.18286e-02_rb,0.79140e-02_rb,0.92719e-02_rb,0.90588e-02_rb,0.41981e-02_rb /)
+      kbo(:, 3,46, 8) = (/ &
+        & 0.23196e-02_rb,0.99089e-02_rb,0.11508e-01_rb,0.11192e-01_rb,0.49656e-02_rb /)
+      kbo(:, 4,46, 8) = (/ &
+        & 0.29575e-02_rb,0.12451e-01_rb,0.14296e-01_rb,0.13779e-01_rb,0.58441e-02_rb /)
+      kbo(:, 5,46, 8) = (/ &
+        & 0.37842e-02_rb,0.15662e-01_rb,0.17758e-01_rb,0.16921e-01_rb,0.68660e-02_rb /)
+      kbo(:, 1,47, 8) = (/ &
+        & 0.11822e-02_rb,0.53700e-02_rb,0.63483e-02_rb,0.62090e-02_rb,0.30500e-02_rb /)
+      kbo(:, 2,47, 8) = (/ &
+        & 0.14817e-02_rb,0.67616e-02_rb,0.79678e-02_rb,0.77874e-02_rb,0.36317e-02_rb /)
+      kbo(:, 3,47, 8) = (/ &
+        & 0.18918e-02_rb,0.85392e-02_rb,0.99818e-02_rb,0.97254e-02_rb,0.43248e-02_rb /)
+      kbo(:, 4,47, 8) = (/ &
+        & 0.24382e-02_rb,0.10820e-01_rb,0.12503e-01_rb,0.12088e-01_rb,0.51477e-02_rb /)
+      kbo(:, 5,47, 8) = (/ &
+        & 0.31533e-02_rb,0.13725e-01_rb,0.15656e-01_rb,0.14970e-01_rb,0.61000e-02_rb /)
+      kbo(:, 1,48, 8) = (/ &
+        & 0.94906e-03_rb,0.45298e-02_rb,0.53706e-02_rb,0.52506e-02_rb,0.26162e-02_rb /)
+      kbo(:, 2,48, 8) = (/ &
+        & 0.11965e-02_rb,0.57597e-02_rb,0.68213e-02_rb,0.66698e-02_rb,0.31403e-02_rb /)
+      kbo(:, 3,48, 8) = (/ &
+        & 0.15369e-02_rb,0.73380e-02_rb,0.86368e-02_rb,0.84246e-02_rb,0.37687e-02_rb /)
+      kbo(:, 4,48, 8) = (/ &
+        & 0.20008e-02_rb,0.93814e-02_rb,0.10911e-01_rb,0.10580e-01_rb,0.45213e-02_rb /)
+      kbo(:, 5,48, 8) = (/ &
+        & 0.26159e-02_rb,0.12002e-01_rb,0.13774e-01_rb,0.13221e-01_rb,0.54142e-02_rb /)
+      kbo(:, 1,49, 8) = (/ &
+        & 0.75913e-03_rb,0.38043e-02_rb,0.45203e-02_rb,0.44181e-02_rb,0.22379e-02_rb /)
+      kbo(:, 2,49, 8) = (/ &
+        & 0.96097e-03_rb,0.48899e-02_rb,0.58138e-02_rb,0.56878e-02_rb,0.27098e-02_rb /)
+      kbo(:, 3,49, 8) = (/ &
+        & 0.12447e-02_rb,0.62895e-02_rb,0.74501e-02_rb,0.72727e-02_rb,0.32859e-02_rb /)
+      kbo(:, 4,49, 8) = (/ &
+        & 0.16322e-02_rb,0.81122e-02_rb,0.94989e-02_rb,0.92349e-02_rb,0.39720e-02_rb /)
+      kbo(:, 5,49, 8) = (/ &
+        & 0.21597e-02_rb,0.10470e-01_rb,0.12092e-01_rb,0.11650e-01_rb,0.47938e-02_rb /)
+      kbo(:, 1,50, 8) = (/ &
+        & 0.60949e-03_rb,0.32009e-02_rb,0.38080e-02_rb,0.37204e-02_rb,0.19148e-02_rb /)
+      kbo(:, 2,50, 8) = (/ &
+        & 0.77332e-03_rb,0.41637e-02_rb,0.49658e-02_rb,0.48588e-02_rb,0.23498e-02_rb /)
+      kbo(:, 3,50, 8) = (/ &
+        & 0.10099e-02_rb,0.54095e-02_rb,0.64416e-02_rb,0.62938e-02_rb,0.28713e-02_rb /)
+      kbo(:, 4,50, 8) = (/ &
+        & 0.13353e-02_rb,0.70417e-02_rb,0.83004e-02_rb,0.80844e-02_rb,0.35114e-02_rb /)
+      kbo(:, 5,50, 8) = (/ &
+        & 0.17873e-02_rb,0.91691e-02_rb,0.10658e-01_rb,0.10303e-01_rb,0.42641e-02_rb /)
+      kbo(:, 1,51, 8) = (/ &
+        & 0.48960e-03_rb,0.26873e-02_rb,0.32008e-02_rb,0.31259e-02_rb,0.16378e-02_rb /)
+      kbo(:, 2,51, 8) = (/ &
+        & 0.62187e-03_rb,0.35423e-02_rb,0.42349e-02_rb,0.41443e-02_rb,0.20325e-02_rb /)
+      kbo(:, 3,51, 8) = (/ &
+        & 0.81788e-03_rb,0.46529e-02_rb,0.55656e-02_rb,0.54424e-02_rb,0.25164e-02_rb /)
+      kbo(:, 4,51, 8) = (/ &
+        & 0.10935e-02_rb,0.61155e-02_rb,0.72565e-02_rb,0.70765e-02_rb,0.31007e-02_rb /)
+      kbo(:, 5,51, 8) = (/ &
+        & 0.14776e-02_rb,0.80416e-02_rb,0.94087e-02_rb,0.91197e-02_rb,0.38085e-02_rb /)
+      kbo(:, 1,52, 8) = (/ &
+        & 0.39302e-03_rb,0.22435e-02_rb,0.26754e-02_rb,0.26122e-02_rb,0.13898e-02_rb /)
+      kbo(:, 2,52, 8) = (/ &
+        & 0.49889e-03_rb,0.30006e-02_rb,0.35943e-02_rb,0.35172e-02_rb,0.17532e-02_rb /)
+      kbo(:, 3,52, 8) = (/ &
+        & 0.65922e-03_rb,0.39906e-02_rb,0.47901e-02_rb,0.46880e-02_rb,0.21980e-02_rb /)
+      kbo(:, 4,52, 8) = (/ &
+        & 0.89075e-03_rb,0.52980e-02_rb,0.63237e-02_rb,0.61748e-02_rb,0.27412e-02_rb /)
+      kbo(:, 5,52, 8) = (/ &
+        & 0.12150e-02_rb,0.70312e-02_rb,0.82837e-02_rb,0.80497e-02_rb,0.33956e-02_rb /)
+      kbo(:, 1,53, 8) = (/ &
+        & 0.31533e-03_rb,0.18598e-02_rb,0.22216e-02_rb,0.21690e-02_rb,0.11705e-02_rb /)
+      kbo(:, 2,53, 8) = (/ &
+        & 0.39919e-03_rb,0.25290e-02_rb,0.30338e-02_rb,0.29679e-02_rb,0.15051e-02_rb /)
+      kbo(:, 3,53, 8) = (/ &
+        & 0.52958e-03_rb,0.34096e-02_rb,0.41030e-02_rb,0.40189e-02_rb,0.19137e-02_rb /)
+      kbo(:, 4,53, 8) = (/ &
+        & 0.72147e-03_rb,0.45756e-02_rb,0.54894e-02_rb,0.53678e-02_rb,0.24147e-02_rb /)
+      kbo(:, 5,53, 8) = (/ &
+        & 0.99563e-03_rb,0.61321e-02_rb,0.72739e-02_rb,0.70826e-02_rb,0.30286e-02_rb /)
+      kbo(:, 1,54, 8) = (/ &
+        & 0.25434e-03_rb,0.15477e-02_rb,0.18502e-02_rb,0.18075e-02_rb,0.98891e-03_rb /)
+      kbo(:, 2,54, 8) = (/ &
+        & 0.32221e-03_rb,0.21398e-02_rb,0.25708e-02_rb,0.25148e-02_rb,0.12935e-02_rb /)
+      kbo(:, 3,54, 8) = (/ &
+        & 0.42775e-03_rb,0.29272e-02_rb,0.35315e-02_rb,0.34599e-02_rb,0.16741e-02_rb /)
+      kbo(:, 4,54, 8) = (/ &
+        & 0.58762e-03_rb,0.39761e-02_rb,0.47907e-02_rb,0.46896e-02_rb,0.21376e-02_rb /)
+      kbo(:, 5,54, 8) = (/ &
+        & 0.82053e-03_rb,0.53824e-02_rb,0.64244e-02_rb,0.62664e-02_rb,0.27173e-02_rb /)
+      kbo(:, 1,55, 8) = (/ &
+        & 0.20618e-03_rb,0.12866e-02_rb,0.15400e-02_rb,0.15055e-02_rb,0.83572e-03_rb /)
+      kbo(:, 2,55, 8) = (/ &
+        & 0.26059e-03_rb,0.18094e-02_rb,0.21787e-02_rb,0.21302e-02_rb,0.11090e-02_rb /)
+      kbo(:, 3,55, 8) = (/ &
+        & 0.34651e-03_rb,0.25140e-02_rb,0.30392e-02_rb,0.29780e-02_rb,0.14628e-02_rb /)
+      kbo(:, 4,55, 8) = (/ &
+        & 0.47882e-03_rb,0.34608e-02_rb,0.41831e-02_rb,0.41003e-02_rb,0.18992e-02_rb /)
+      kbo(:, 5,55, 8) = (/ &
+        & 0.67671e-03_rb,0.47331e-02_rb,0.56817e-02_rb,0.55503e-02_rb,0.24360e-02_rb /)
+      kbo(:, 1,56, 8) = (/ &
+        & 0.16681e-03_rb,0.10621e-02_rb,0.12728e-02_rb,0.12461e-02_rb,0.70162e-03_rb /)
+      kbo(:, 2,56, 8) = (/ &
+        & 0.21064e-03_rb,0.15213e-02_rb,0.18350e-02_rb,0.17945e-02_rb,0.94828e-03_rb /)
+      kbo(:, 3,56, 8) = (/ &
+        & 0.28028e-03_rb,0.21500e-02_rb,0.26045e-02_rb,0.25521e-02_rb,0.12721e-02_rb /)
+      kbo(:, 4,56, 8) = (/ &
+        & 0.38906e-03_rb,0.30029e-02_rb,0.36387e-02_rb,0.35710e-02_rb,0.16833e-02_rb /)
+      kbo(:, 5,56, 8) = (/ &
+        & 0.55568e-03_rb,0.41534e-02_rb,0.50111e-02_rb,0.49027e-02_rb,0.21849e-02_rb /)
+      kbo(:, 1,57, 8) = (/ &
+        & 0.13484e-03_rb,0.87168e-03_rb,0.10444e-02_rb,0.10248e-02_rb,0.58516e-03_rb /)
+      kbo(:, 2,57, 8) = (/ &
+        & 0.17007e-03_rb,0.12717e-02_rb,0.15360e-02_rb,0.15024e-02_rb,0.80805e-03_rb /)
+      kbo(:, 3,57, 8) = (/ &
+        & 0.22603e-03_rb,0.18296e-02_rb,0.22211e-02_rb,0.21757e-02_rb,0.11006e-02_rb /)
+      kbo(:, 4,57, 8) = (/ &
+        & 0.31565e-03_rb,0.25963e-02_rb,0.31531e-02_rb,0.30959e-02_rb,0.14851e-02_rb /)
+      kbo(:, 5,57, 8) = (/ &
+        & 0.45417e-03_rb,0.36365e-02_rb,0.44058e-02_rb,0.43157e-02_rb,0.19625e-02_rb /)
+      kbo(:, 1,58, 8) = (/ &
+        & 0.10938e-03_rb,0.71449e-03_rb,0.85655e-03_rb,0.84240e-03_rb,0.48772e-03_rb /)
+      kbo(:, 2,58, 8) = (/ &
+        & 0.13752e-03_rb,0.10624e-02_rb,0.12849e-02_rb,0.12583e-02_rb,0.68689e-03_rb /)
+      kbo(:, 3,58, 8) = (/ &
+        & 0.18307e-03_rb,0.15572e-02_rb,0.18954e-02_rb,0.18566e-02_rb,0.95344e-03_rb /)
+      kbo(:, 4,58, 8) = (/ &
+        & 0.25673e-03_rb,0.22481e-02_rb,0.27363e-02_rb,0.26877e-02_rb,0.13079e-02_rb /)
+      kbo(:, 5,58, 8) = (/ &
+        & 0.37230e-03_rb,0.31921e-02_rb,0.38812e-02_rb,0.38070e-02_rb,0.17570e-02_rb /)
+      kbo(:, 1,59, 8) = (/ &
+        & 0.92153e-04_rb,0.62798e-03_rb,0.75374e-03_rb,0.74243e-03_rb,0.43161e-03_rb /)
+      kbo(:, 2,59, 8) = (/ &
+        & 0.11676e-03_rb,0.95019e-03_rb,0.11525e-02_rb,0.11296e-02_rb,0.61959e-03_rb /)
+      kbo(:, 3,59, 8) = (/ &
+        & 0.15687e-03_rb,0.14168e-02_rb,0.17285e-02_rb,0.16938e-02_rb,0.87468e-03_rb /)
+      kbo(:, 4,59, 8) = (/ &
+        & 0.22278e-03_rb,0.20743e-02_rb,0.25302e-02_rb,0.24863e-02_rb,0.12161e-02_rb /)
+      kbo(:, 5,59, 8) = (/ &
+        & 0.32724e-03_rb,0.29797e-02_rb,0.36313e-02_rb,0.35664e-02_rb,0.16577e-02_rb /)
+      kbo(:, 1,13, 9) = (/ &
+        & 0.16403e+01_rb,0.27290e+01_rb,0.31326e+01_rb,0.31890e+01_rb,0.23307e+01_rb /)
+      kbo(:, 2,13, 9) = (/ &
+        & 0.16862e+01_rb,0.27611e+01_rb,0.31617e+01_rb,0.32226e+01_rb,0.23816e+01_rb /)
+      kbo(:, 3,13, 9) = (/ &
+        & 0.17455e+01_rb,0.28101e+01_rb,0.32005e+01_rb,0.32552e+01_rb,0.24291e+01_rb /)
+      kbo(:, 4,13, 9) = (/ &
+        & 0.18100e+01_rb,0.28758e+01_rb,0.32471e+01_rb,0.32901e+01_rb,0.24729e+01_rb /)
+      kbo(:, 5,13, 9) = (/ &
+        & 0.18736e+01_rb,0.29528e+01_rb,0.33027e+01_rb,0.33291e+01_rb,0.25126e+01_rb /)
+      kbo(:, 1,14, 9) = (/ &
+        & 0.14276e+01_rb,0.24116e+01_rb,0.27645e+01_rb,0.28207e+01_rb,0.20786e+01_rb /)
+      kbo(:, 2,14, 9) = (/ &
+        & 0.14761e+01_rb,0.24553e+01_rb,0.28027e+01_rb,0.28564e+01_rb,0.21275e+01_rb /)
+      kbo(:, 3,14, 9) = (/ &
+        & 0.15303e+01_rb,0.25161e+01_rb,0.28501e+01_rb,0.28940e+01_rb,0.21750e+01_rb /)
+      kbo(:, 4,14, 9) = (/ &
+        & 0.15845e+01_rb,0.25879e+01_rb,0.29061e+01_rb,0.29354e+01_rb,0.22167e+01_rb /)
+      kbo(:, 5,14, 9) = (/ &
+        & 0.16378e+01_rb,0.26632e+01_rb,0.29707e+01_rb,0.29827e+01_rb,0.22552e+01_rb /)
+      kbo(:, 1,15, 9) = (/ &
+        & 0.12454e+01_rb,0.21329e+01_rb,0.24382e+01_rb,0.24839e+01_rb,0.18332e+01_rb /)
+      kbo(:, 2,15, 9) = (/ &
+        & 0.12895e+01_rb,0.21869e+01_rb,0.24841e+01_rb,0.25234e+01_rb,0.18816e+01_rb /)
+      kbo(:, 3,15, 9) = (/ &
+        & 0.13344e+01_rb,0.22528e+01_rb,0.25385e+01_rb,0.25663e+01_rb,0.19251e+01_rb /)
+      kbo(:, 4,15, 9) = (/ &
+        & 0.13794e+01_rb,0.23234e+01_rb,0.26021e+01_rb,0.26153e+01_rb,0.19652e+01_rb /)
+      kbo(:, 5,15, 9) = (/ &
+        & 0.14250e+01_rb,0.23931e+01_rb,0.26727e+01_rb,0.26688e+01_rb,0.20043e+01_rb /)
+      kbo(:, 1,16, 9) = (/ &
+        & 0.10848e+01_rb,0.18880e+01_rb,0.21511e+01_rb,0.21813e+01_rb,0.16071e+01_rb /)
+      kbo(:, 2,16, 9) = (/ &
+        & 0.11214e+01_rb,0.19471e+01_rb,0.22027e+01_rb,0.22246e+01_rb,0.16520e+01_rb /)
+      kbo(:, 3,16, 9) = (/ &
+        & 0.11587e+01_rb,0.20122e+01_rb,0.22636e+01_rb,0.22737e+01_rb,0.16924e+01_rb /)
+      kbo(:, 4,16, 9) = (/ &
+        & 0.11968e+01_rb,0.20768e+01_rb,0.23313e+01_rb,0.23282e+01_rb,0.17327e+01_rb /)
+      kbo(:, 5,16, 9) = (/ &
+        & 0.12369e+01_rb,0.21393e+01_rb,0.24028e+01_rb,0.23861e+01_rb,0.17713e+01_rb /)
+      kbo(:, 1,17, 9) = (/ &
+        & 0.94054e+00_rb,0.16727e+01_rb,0.18972e+01_rb,0.19128e+01_rb,0.14046e+01_rb /)
+      kbo(:, 2,17, 9) = (/ &
+        & 0.97101e+00_rb,0.17314e+01_rb,0.19542e+01_rb,0.19610e+01_rb,0.14464e+01_rb /)
+      kbo(:, 3,17, 9) = (/ &
+        & 0.10024e+01_rb,0.17905e+01_rb,0.20183e+01_rb,0.20147e+01_rb,0.14867e+01_rb /)
+      kbo(:, 4,17, 9) = (/ &
+        & 0.10357e+01_rb,0.18485e+01_rb,0.20868e+01_rb,0.20722e+01_rb,0.15247e+01_rb /)
+      kbo(:, 5,17, 9) = (/ &
+        & 0.10722e+01_rb,0.19059e+01_rb,0.21551e+01_rb,0.21344e+01_rb,0.15620e+01_rb /)
+      kbo(:, 1,18, 9) = (/ &
+        & 0.81293e+00_rb,0.14815e+01_rb,0.16736e+01_rb,0.16776e+01_rb,0.12272e+01_rb /)
+      kbo(:, 2,18, 9) = (/ &
+        & 0.83847e+00_rb,0.15352e+01_rb,0.17337e+01_rb,0.17293e+01_rb,0.12665e+01_rb /)
+      kbo(:, 3,18, 9) = (/ &
+        & 0.86557e+00_rb,0.15883e+01_rb,0.17983e+01_rb,0.17854e+01_rb,0.13052e+01_rb /)
+      kbo(:, 4,18, 9) = (/ &
+        & 0.89549e+00_rb,0.16413e+01_rb,0.18633e+01_rb,0.18465e+01_rb,0.13420e+01_rb /)
+      kbo(:, 5,18, 9) = (/ &
+        & 0.92973e+00_rb,0.16952e+01_rb,0.19268e+01_rb,0.19102e+01_rb,0.13778e+01_rb /)
+      kbo(:, 1,19, 9) = (/ &
+        & 0.70038e+00_rb,0.13093e+01_rb,0.14779e+01_rb,0.14733e+01_rb,0.10709e+01_rb /)
+      kbo(:, 2,19, 9) = (/ &
+        & 0.72263e+00_rb,0.13577e+01_rb,0.15381e+01_rb,0.15268e+01_rb,0.11090e+01_rb /)
+      kbo(:, 3,19, 9) = (/ &
+        & 0.74709e+00_rb,0.14065e+01_rb,0.15995e+01_rb,0.15853e+01_rb,0.11457e+01_rb /)
+      kbo(:, 4,19, 9) = (/ &
+        & 0.77505e+00_rb,0.14562e+01_rb,0.16599e+01_rb,0.16467e+01_rb,0.11819e+01_rb /)
+      kbo(:, 5,19, 9) = (/ &
+        & 0.80778e+00_rb,0.15082e+01_rb,0.17205e+01_rb,0.17095e+01_rb,0.12170e+01_rb /)
+      kbo(:, 1,20, 9) = (/ &
+        & 0.60096e+00_rb,0.11549e+01_rb,0.13070e+01_rb,0.12966e+01_rb,0.93504e+00_rb /)
+      kbo(:, 2,20, 9) = (/ &
+        & 0.62117e+00_rb,0.11996e+01_rb,0.13644e+01_rb,0.13518e+01_rb,0.97145e+00_rb /)
+      kbo(:, 3,20, 9) = (/ &
+        & 0.64437e+00_rb,0.12456e+01_rb,0.14215e+01_rb,0.14105e+01_rb,0.10075e+01_rb /)
+      kbo(:, 4,20, 9) = (/ &
+        & 0.67172e+00_rb,0.12935e+01_rb,0.14792e+01_rb,0.14711e+01_rb,0.10425e+01_rb /)
+      kbo(:, 5,20, 9) = (/ &
+        & 0.70425e+00_rb,0.13447e+01_rb,0.15379e+01_rb,0.15320e+01_rb,0.10771e+01_rb /)
+      kbo(:, 1,21, 9) = (/ &
+        & 0.51409e+00_rb,0.10184e+01_rb,0.11562e+01_rb,0.11440e+01_rb,0.81589e+00_rb /)
+      kbo(:, 2,21, 9) = (/ &
+        & 0.53296e+00_rb,0.10604e+01_rb,0.12096e+01_rb,0.11991e+01_rb,0.85095e+00_rb /)
+      kbo(:, 3,21, 9) = (/ &
+        & 0.55527e+00_rb,0.11043e+01_rb,0.12638e+01_rb,0.12567e+01_rb,0.88570e+00_rb /)
+      kbo(:, 4,21, 9) = (/ &
+        & 0.58243e+00_rb,0.11512e+01_rb,0.13194e+01_rb,0.13151e+01_rb,0.92023e+00_rb /)
+      kbo(:, 5,21, 9) = (/ &
+        & 0.61501e+00_rb,0.12017e+01_rb,0.13771e+01_rb,0.13737e+01_rb,0.95470e+00_rb /)
+      kbo(:, 1,22, 9) = (/ &
+        & 0.44038e+00_rb,0.90186e+00_rb,0.10262e+01_rb,0.10153e+01_rb,0.71382e+00_rb /)
+      kbo(:, 2,22, 9) = (/ &
+        & 0.45853e+00_rb,0.94198e+00_rb,0.10770e+01_rb,0.10695e+01_rb,0.74736e+00_rb /)
+      kbo(:, 3,22, 9) = (/ &
+        & 0.48068e+00_rb,0.98449e+00_rb,0.11290e+01_rb,0.11248e+01_rb,0.78150e+00_rb /)
+      kbo(:, 4,22, 9) = (/ &
+        & 0.50812e+00_rb,0.10306e+01_rb,0.11833e+01_rb,0.11809e+01_rb,0.81518e+00_rb /)
+      kbo(:, 5,22, 9) = (/ &
+        & 0.54141e+00_rb,0.10817e+01_rb,0.12405e+01_rb,0.12383e+01_rb,0.84849e+00_rb /)
+      kbo(:, 1,23, 9) = (/ &
+        & 0.37767e+00_rb,0.80078e+00_rb,0.91306e+00_rb,0.90433e+00_rb,0.62612e+00_rb /)
+      kbo(:, 2,23, 9) = (/ &
+        & 0.39558e+00_rb,0.83957e+00_rb,0.96154e+00_rb,0.95658e+00_rb,0.65837e+00_rb /)
+      kbo(:, 3,23, 9) = (/ &
+        & 0.41794e+00_rb,0.88149e+00_rb,0.10123e+01_rb,0.10097e+01_rb,0.69117e+00_rb /)
+      kbo(:, 4,23, 9) = (/ &
+        & 0.44579e+00_rb,0.92784e+00_rb,0.10657e+01_rb,0.10643e+01_rb,0.72352e+00_rb /)
+      kbo(:, 5,23, 9) = (/ &
+        & 0.47930e+00_rb,0.97981e+00_rb,0.11229e+01_rb,0.11209e+01_rb,0.75697e+00_rb /)
+      kbo(:, 1,24, 9) = (/ &
+        & 0.32501e+00_rb,0.71314e+00_rb,0.81551e+00_rb,0.80817e+00_rb,0.55055e+00_rb /)
+      kbo(:, 2,24, 9) = (/ &
+        & 0.34301e+00_rb,0.75171e+00_rb,0.86229e+00_rb,0.85830e+00_rb,0.58144e+00_rb /)
+      kbo(:, 3,24, 9) = (/ &
+        & 0.36572e+00_rb,0.79385e+00_rb,0.91196e+00_rb,0.91014e+00_rb,0.61242e+00_rb /)
+      kbo(:, 4,24, 9) = (/ &
+        & 0.39391e+00_rb,0.84084e+00_rb,0.96525e+00_rb,0.96386e+00_rb,0.64468e+00_rb /)
+      kbo(:, 5,24, 9) = (/ &
+        & 0.42682e+00_rb,0.89378e+00_rb,0.10230e+01_rb,0.10202e+01_rb,0.67755e+00_rb /)
+      kbo(:, 1,25, 9) = (/ &
+        & 0.28120e+00_rb,0.63782e+00_rb,0.73197e+00_rb,0.72532e+00_rb,0.48624e+00_rb /)
+      kbo(:, 2,25, 9) = (/ &
+        & 0.29939e+00_rb,0.67672e+00_rb,0.77772e+00_rb,0.77395e+00_rb,0.51566e+00_rb /)
+      kbo(:, 3,25, 9) = (/ &
+        & 0.32259e+00_rb,0.71969e+00_rb,0.82682e+00_rb,0.82484e+00_rb,0.54562e+00_rb /)
+      kbo(:, 4,25, 9) = (/ &
+        & 0.35054e+00_rb,0.76785e+00_rb,0.88040e+00_rb,0.87836e+00_rb,0.57709e+00_rb /)
+      kbo(:, 5,25, 9) = (/ &
+        & 0.38231e+00_rb,0.82200e+00_rb,0.93896e+00_rb,0.93503e+00_rb,0.60997e+00_rb /)
+      kbo(:, 1,26, 9) = (/ &
+        & 0.24516e+00_rb,0.57415e+00_rb,0.66146e+00_rb,0.65501e+00_rb,0.43198e+00_rb /)
+      kbo(:, 2,26, 9) = (/ &
+        & 0.26380e+00_rb,0.61364e+00_rb,0.70651e+00_rb,0.70261e+00_rb,0.46025e+00_rb /)
+      kbo(:, 3,26, 9) = (/ &
+        & 0.28716e+00_rb,0.65790e+00_rb,0.75577e+00_rb,0.75300e+00_rb,0.48987e+00_rb /)
+      kbo(:, 4,26, 9) = (/ &
+        & 0.31438e+00_rb,0.70747e+00_rb,0.80990e+00_rb,0.80672e+00_rb,0.52086e+00_rb /)
+      kbo(:, 5,26, 9) = (/ &
+        & 0.34509e+00_rb,0.76331e+00_rb,0.86957e+00_rb,0.86437e+00_rb,0.55315e+00_rb /)
+      kbo(:, 1,27, 9) = (/ &
+        & 0.21544e+00_rb,0.52037e+00_rb,0.60144e+00_rb,0.59535e+00_rb,0.38600e+00_rb /)
+      kbo(:, 2,27, 9) = (/ &
+        & 0.23456e+00_rb,0.56067e+00_rb,0.64661e+00_rb,0.64229e+00_rb,0.41342e+00_rb /)
+      kbo(:, 3,27, 9) = (/ &
+        & 0.25766e+00_rb,0.60633e+00_rb,0.69633e+00_rb,0.69257e+00_rb,0.44235e+00_rb /)
+      kbo(:, 4,27, 9) = (/ &
+        & 0.28405e+00_rb,0.65751e+00_rb,0.75133e+00_rb,0.74692e+00_rb,0.47298e+00_rb /)
+      kbo(:, 5,27, 9) = (/ &
+        & 0.31370e+00_rb,0.71529e+00_rb,0.81234e+00_rb,0.80601e+00_rb,0.50534e+00_rb /)
+      kbo(:, 1,28, 9) = (/ &
+        & 0.19107e+00_rb,0.47529e+00_rb,0.55077e+00_rb,0.54503e+00_rb,0.34666e+00_rb /)
+      kbo(:, 2,28, 9) = (/ &
+        & 0.21041e+00_rb,0.51675e+00_rb,0.59653e+00_rb,0.59172e+00_rb,0.37350e+00_rb /)
+      kbo(:, 3,28, 9) = (/ &
+        & 0.23301e+00_rb,0.56364e+00_rb,0.64698e+00_rb,0.64221e+00_rb,0.40186e+00_rb /)
+      kbo(:, 4,28, 9) = (/ &
+        & 0.25866e+00_rb,0.61667e+00_rb,0.70320e+00_rb,0.69763e+00_rb,0.43205e+00_rb /)
+      kbo(:, 5,28, 9) = (/ &
+        & 0.28710e+00_rb,0.67650e+00_rb,0.76586e+00_rb,0.75834e+00_rb,0.46367e+00_rb /)
+      kbo(:, 1,29, 9) = (/ &
+        & 0.17112e+00_rb,0.43830e+00_rb,0.50881e+00_rb,0.50311e+00_rb,0.31371e+00_rb /)
+      kbo(:, 2,29, 9) = (/ &
+        & 0.19046e+00_rb,0.48081e+00_rb,0.55535e+00_rb,0.54996e+00_rb,0.34018e+00_rb /)
+      kbo(:, 3,29, 9) = (/ &
+        & 0.21264e+00_rb,0.52926e+00_rb,0.60692e+00_rb,0.60125e+00_rb,0.36829e+00_rb /)
+      kbo(:, 4,29, 9) = (/ &
+        & 0.23734e+00_rb,0.58428e+00_rb,0.66473e+00_rb,0.65816e+00_rb,0.39807e+00_rb /)
+      kbo(:, 5,29, 9) = (/ &
+        & 0.26483e+00_rb,0.64604e+00_rb,0.72961e+00_rb,0.72085e+00_rb,0.42916e+00_rb /)
+      kbo(:, 1,30, 9) = (/ &
+        & 0.15474e+00_rb,0.40804e+00_rb,0.47416e+00_rb,0.46844e+00_rb,0.28591e+00_rb /)
+      kbo(:, 2,30, 9) = (/ &
+        & 0.17385e+00_rb,0.45175e+00_rb,0.52179e+00_rb,0.51582e+00_rb,0.31208e+00_rb /)
+      kbo(:, 3,30, 9) = (/ &
+        & 0.19550e+00_rb,0.50197e+00_rb,0.57484e+00_rb,0.56852e+00_rb,0.33963e+00_rb /)
+      kbo(:, 4,30, 9) = (/ &
+        & 0.21942e+00_rb,0.55897e+00_rb,0.63459e+00_rb,0.62718e+00_rb,0.36926e+00_rb /)
+      kbo(:, 5,30, 9) = (/ &
+        & 0.24626e+00_rb,0.62254e+00_rb,0.70206e+00_rb,0.69222e+00_rb,0.40317e+00_rb /)
+      kbo(:, 1,31, 9) = (/ &
+        & 0.14123e+00_rb,0.38383e+00_rb,0.44627e+00_rb,0.44042e+00_rb,0.26282e+00_rb /)
+      kbo(:, 2,31, 9) = (/ &
+        & 0.16008e+00_rb,0.42905e+00_rb,0.49523e+00_rb,0.48891e+00_rb,0.28832e+00_rb /)
+      kbo(:, 3,31, 9) = (/ &
+        & 0.18115e+00_rb,0.48120e+00_rb,0.55018e+00_rb,0.54338e+00_rb,0.31669e+00_rb /)
+      kbo(:, 4,31, 9) = (/ &
+        & 0.20456e+00_rb,0.54014e+00_rb,0.61227e+00_rb,0.60422e+00_rb,0.34861e+00_rb /)
+      kbo(:, 5,31, 9) = (/ &
+        & 0.23090e+00_rb,0.60549e+00_rb,0.68253e+00_rb,0.67193e+00_rb,0.38334e+00_rb /)
+      kbo(:, 1,32, 9) = (/ &
+        & 0.13011e+00_rb,0.36494e+00_rb,0.42434e+00_rb,0.41840e+00_rb,0.24343e+00_rb /)
+      kbo(:, 2,32, 9) = (/ &
+        & 0.14859e+00_rb,0.41192e+00_rb,0.47502e+00_rb,0.46846e+00_rb,0.27034e+00_rb /)
+      kbo(:, 3,32, 9) = (/ &
+        & 0.16925e+00_rb,0.46604e+00_rb,0.53210e+00_rb,0.52502e+00_rb,0.30012e+00_rb /)
+      kbo(:, 4,32, 9) = (/ &
+        & 0.19229e+00_rb,0.52692e+00_rb,0.59693e+00_rb,0.58841e+00_rb,0.33258e+00_rb /)
+      kbo(:, 5,32, 9) = (/ &
+        & 0.21839e+00_rb,0.59419e+00_rb,0.67028e+00_rb,0.65920e+00_rb,0.36819e+00_rb /)
+      kbo(:, 1,33, 9) = (/ &
+        & 0.12092e+00_rb,0.35074e+00_rb,0.40776e+00_rb,0.40175e+00_rb,0.22934e+00_rb /)
+      kbo(:, 2,33, 9) = (/ &
+        & 0.13904e+00_rb,0.39967e+00_rb,0.46044e+00_rb,0.45383e+00_rb,0.25698e+00_rb /)
+      kbo(:, 3,33, 9) = (/ &
+        & 0.15944e+00_rb,0.45574e+00_rb,0.51998e+00_rb,0.51285e+00_rb,0.28727e+00_rb /)
+      kbo(:, 4,33, 9) = (/ &
+        & 0.18230e+00_rb,0.51859e+00_rb,0.58782e+00_rb,0.57914e+00_rb,0.32052e+00_rb /)
+      kbo(:, 5,33, 9) = (/ &
+        & 0.20843e+00_rb,0.58793e+00_rb,0.66452e+00_rb,0.65307e+00_rb,0.35723e+00_rb /)
+      kbo(:, 1,34, 9) = (/ &
+        & 0.11270e+00_rb,0.33906e+00_rb,0.39419e+00_rb,0.38828e+00_rb,0.21761e+00_rb /)
+      kbo(:, 2,34, 9) = (/ &
+        & 0.13054e+00_rb,0.38970e+00_rb,0.44887e+00_rb,0.44251e+00_rb,0.24563e+00_rb /)
+      kbo(:, 3,34, 9) = (/ &
+        & 0.15070e+00_rb,0.44751e+00_rb,0.51092e+00_rb,0.50399e+00_rb,0.27652e+00_rb /)
+      kbo(:, 4,34, 9) = (/ &
+        & 0.17349e+00_rb,0.51224e+00_rb,0.58169e+00_rb,0.57301e+00_rb,0.31064e+00_rb /)
+      kbo(:, 5,34, 9) = (/ &
+        & 0.19973e+00_rb,0.58363e+00_rb,0.66163e+00_rb,0.64989e+00_rb,0.34860e+00_rb /)
+      kbo(:, 1,35, 9) = (/ &
+        & 0.10431e+00_rb,0.32621e+00_rb,0.37969e+00_rb,0.37421e+00_rb,0.20589e+00_rb /)
+      kbo(:, 2,35, 9) = (/ &
+        & 0.12172e+00_rb,0.37794e+00_rb,0.43594e+00_rb,0.43005e+00_rb,0.23415e+00_rb /)
+      kbo(:, 3,35, 9) = (/ &
+        & 0.14155e+00_rb,0.43696e+00_rb,0.49993e+00_rb,0.49338e+00_rb,0.26546e+00_rb /)
+      kbo(:, 4,35, 9) = (/ &
+        & 0.16416e+00_rb,0.50303e+00_rb,0.57285e+00_rb,0.56442e+00_rb,0.30031e+00_rb /)
+      kbo(:, 5,35, 9) = (/ &
+        & 0.19033e+00_rb,0.57592e+00_rb,0.65509e+00_rb,0.64342e+00_rb,0.33926e+00_rb /)
+      kbo(:, 1,36, 9) = (/ &
+        & 0.95441e-01_rb,0.31093e+00_rb,0.36283e+00_rb,0.35795e+00_rb,0.19348e+00_rb /)
+      kbo(:, 2,36, 9) = (/ &
+        & 0.11226e+00_rb,0.36299e+00_rb,0.41996e+00_rb,0.41468e+00_rb,0.22173e+00_rb /)
+      kbo(:, 3,36, 9) = (/ &
+        & 0.13160e+00_rb,0.42251e+00_rb,0.48508e+00_rb,0.47906e+00_rb,0.25327e+00_rb /)
+      kbo(:, 4,36, 9) = (/ &
+        & 0.15379e+00_rb,0.48924e+00_rb,0.55909e+00_rb,0.55119e+00_rb,0.28853e+00_rb /)
+      kbo(:, 5,36, 9) = (/ &
+        & 0.17959e+00_rb,0.56298e+00_rb,0.64257e+00_rb,0.63136e+00_rb,0.32808e+00_rb /)
+      kbo(:, 1,37, 9) = (/ &
+        & 0.85477e-01_rb,0.29072e+00_rb,0.34067e+00_rb,0.33658e+00_rb,0.17886e+00_rb /)
+      kbo(:, 2,37, 9) = (/ &
+        & 0.10144e+00_rb,0.34200e+00_rb,0.39763e+00_rb,0.39300e+00_rb,0.20669e+00_rb /)
+      kbo(:, 3,37, 9) = (/ &
+        & 0.11996e+00_rb,0.40095e+00_rb,0.46252e+00_rb,0.45719e+00_rb,0.23796e+00_rb /)
+      kbo(:, 4,37, 9) = (/ &
+        & 0.14137e+00_rb,0.46732e+00_rb,0.53621e+00_rb,0.52913e+00_rb,0.27304e+00_rb /)
+      kbo(:, 5,37, 9) = (/ &
+        & 0.16629e+00_rb,0.54086e+00_rb,0.61939e+00_rb,0.60918e+00_rb,0.31246e+00_rb /)
+      kbo(:, 1,38, 9) = (/ &
+        & 0.76626e-01_rb,0.27223e+00_rb,0.32047e+00_rb,0.31724e+00_rb,0.16576e+00_rb /)
+      kbo(:, 2,38, 9) = (/ &
+        & 0.91774e-01_rb,0.32273e+00_rb,0.37721e+00_rb,0.37319e+00_rb,0.19315e+00_rb /)
+      kbo(:, 3,38, 9) = (/ &
+        & 0.10950e+00_rb,0.38104e+00_rb,0.44177e+00_rb,0.43708e+00_rb,0.22413e+00_rb /)
+      kbo(:, 4,38, 9) = (/ &
+        & 0.13015e+00_rb,0.44697e+00_rb,0.51498e+00_rb,0.50870e+00_rb,0.25903e+00_rb /)
+      kbo(:, 5,38, 9) = (/ &
+        & 0.15424e+00_rb,0.52018e+00_rb,0.59766e+00_rb,0.58842e+00_rb,0.29827e+00_rb /)
+      kbo(:, 1,39, 9) = (/ &
+        & 0.68857e-01_rb,0.25564e+00_rb,0.30247e+00_rb,0.30005e+00_rb,0.15419e+00_rb /)
+      kbo(:, 2,39, 9) = (/ &
+        & 0.83231e-01_rb,0.30541e+00_rb,0.35891e+00_rb,0.35551e+00_rb,0.18117e+00_rb /)
+      kbo(:, 3,39, 9) = (/ &
+        & 0.10022e+00_rb,0.36305e+00_rb,0.42306e+00_rb,0.41901e+00_rb,0.21190e+00_rb /)
+      kbo(:, 4,39, 9) = (/ &
+        & 0.12015e+00_rb,0.42854e+00_rb,0.49574e+00_rb,0.49023e+00_rb,0.24662e+00_rb /)
+      kbo(:, 5,39, 9) = (/ &
+        & 0.14353e+00_rb,0.50140e+00_rb,0.57784e+00_rb,0.56950e+00_rb,0.28564e+00_rb /)
+      kbo(:, 1,40, 9) = (/ &
+        & 0.60721e-01_rb,0.23607e+00_rb,0.28098e+00_rb,0.27949e+00_rb,0.14134e+00_rb /)
+      kbo(:, 2,40, 9) = (/ &
+        & 0.74142e-01_rb,0.28436e+00_rb,0.33629e+00_rb,0.33356e+00_rb,0.16758e+00_rb /)
+      kbo(:, 3,40, 9) = (/ &
+        & 0.90161e-01_rb,0.34051e+00_rb,0.39918e+00_rb,0.39576e+00_rb,0.19765e+00_rb /)
+      kbo(:, 4,40, 9) = (/ &
+        & 0.10909e+00_rb,0.40469e+00_rb,0.47035e+00_rb,0.46571e+00_rb,0.23173e+00_rb /)
+      kbo(:, 5,40, 9) = (/ &
+        & 0.13146e+00_rb,0.47643e+00_rb,0.55083e+00_rb,0.54364e+00_rb,0.27006e+00_rb /)
+      kbo(:, 1,41, 9) = (/ &
+        & 0.53403e-01_rb,0.21760e+00_rb,0.26060e+00_rb,0.26004e+00_rb,0.12944e+00_rb /)
+      kbo(:, 2,41, 9) = (/ &
+        & 0.65918e-01_rb,0.26438e+00_rb,0.31466e+00_rb,0.31265e+00_rb,0.15490e+00_rb /)
+      kbo(:, 3,41, 9) = (/ &
+        & 0.80936e-01_rb,0.31888e+00_rb,0.37609e+00_rb,0.37327e+00_rb,0.18421e+00_rb /)
+      kbo(:, 4,41, 9) = (/ &
+        & 0.98889e-01_rb,0.38155e+00_rb,0.44565e+00_rb,0.44176e+00_rb,0.21756e+00_rb /)
+      kbo(:, 5,41, 9) = (/ &
+        & 0.12024e+00_rb,0.45195e+00_rb,0.52424e+00_rb,0.51812e+00_rb,0.25511e+00_rb /)
+      kbo(:, 1,42, 9) = (/ &
+        & 0.46980e-01_rb,0.20072e+00_rb,0.24188e+00_rb,0.24222e+00_rb,0.11863e+00_rb /)
+      kbo(:, 2,42, 9) = (/ &
+        & 0.58572e-01_rb,0.24586e+00_rb,0.29443e+00_rb,0.29314e+00_rb,0.14330e+00_rb /)
+      kbo(:, 3,42, 9) = (/ &
+        & 0.72653e-01_rb,0.29875e+00_rb,0.35445e+00_rb,0.35212e+00_rb,0.17184e+00_rb /)
+      kbo(:, 4,42, 9) = (/ &
+        & 0.89663e-01_rb,0.35979e+00_rb,0.42236e+00_rb,0.41911e+00_rb,0.20443e+00_rb /)
+      kbo(:, 5,42, 9) = (/ &
+        & 0.11004e+00_rb,0.42873e+00_rb,0.49904e+00_rb,0.49389e+00_rb,0.24118e+00_rb /)
+      kbo(:, 1,43, 9) = (/ &
+        & 0.40748e-01_rb,0.18301e+00_rb,0.22189e+00_rb,0.22309e+00_rb,0.10752e+00_rb /)
+      kbo(:, 2,43, 9) = (/ &
+        & 0.51357e-01_rb,0.22603e+00_rb,0.27246e+00_rb,0.27198e+00_rb,0.13119e+00_rb /)
+      kbo(:, 3,43, 9) = (/ &
+        & 0.64381e-01_rb,0.27684e+00_rb,0.33058e+00_rb,0.32881e+00_rb,0.15875e+00_rb /)
+      kbo(:, 4,43, 9) = (/ &
+        & 0.80299e-01_rb,0.33572e+00_rb,0.39639e+00_rb,0.39376e+00_rb,0.19029e+00_rb /)
+      kbo(:, 5,43, 9) = (/ &
+        & 0.99551e-01_rb,0.40267e+00_rb,0.47065e+00_rb,0.46647e+00_rb,0.22598e+00_rb /)
+      kbo(:, 1,44, 9) = (/ &
+        & 0.35065e-01_rb,0.16586e+00_rb,0.20221e+00_rb,0.20417e+00_rb,0.96831e-01_rb /)
+      kbo(:, 2,44, 9) = (/ &
+        & 0.44686e-01_rb,0.20650e+00_rb,0.25055e+00_rb,0.25097e+00_rb,0.11942e+00_rb /)
+      kbo(:, 3,44, 9) = (/ &
+        & 0.56631e-01_rb,0.25500e+00_rb,0.30652e+00_rb,0.30540e+00_rb,0.14585e+00_rb /)
+      kbo(:, 4,44, 9) = (/ &
+        & 0.71442e-01_rb,0.31160e+00_rb,0.37021e+00_rb,0.36812e+00_rb,0.17630e+00_rb /)
+      kbo(:, 5,44, 9) = (/ &
+        & 0.89487e-01_rb,0.37611e+00_rb,0.44177e+00_rb,0.43843e+00_rb,0.21076e+00_rb /)
+      kbo(:, 1,45, 9) = (/ &
+        & 0.30099e-01_rb,0.15014e+00_rb,0.18399e+00_rb,0.18651e+00_rb,0.87081e-01_rb /)
+      kbo(:, 2,45, 9) = (/ &
+        & 0.38792e-01_rb,0.18842e+00_rb,0.23006e+00_rb,0.23134e+00_rb,0.10857e+00_rb /)
+      kbo(:, 3,45, 9) = (/ &
+        & 0.49706e-01_rb,0.23455e+00_rb,0.28377e+00_rb,0.28337e+00_rb,0.13385e+00_rb /)
+      kbo(:, 4,45, 9) = (/ &
+        & 0.63416e-01_rb,0.28880e+00_rb,0.34526e+00_rb,0.34365e+00_rb,0.16313e+00_rb /)
+      kbo(:, 5,45, 9) = (/ &
+        & 0.80320e-01_rb,0.35087e+00_rb,0.41430e+00_rb,0.41165e+00_rb,0.19641e+00_rb /)
+      kbo(:, 1,46, 9) = (/ &
+        & 0.25615e-01_rb,0.13501e+00_rb,0.16621e+00_rb,0.16909e+00_rb,0.77761e-01_rb /)
+      kbo(:, 2,46, 9) = (/ &
+        & 0.33396e-01_rb,0.17087e+00_rb,0.20986e+00_rb,0.21193e+00_rb,0.98069e-01_rb /)
+      kbo(:, 3,46, 9) = (/ &
+        & 0.43320e-01_rb,0.21451e+00_rb,0.26120e+00_rb,0.26156e+00_rb,0.12212e+00_rb /)
+      kbo(:, 4,46, 9) = (/ &
+        & 0.55857e-01_rb,0.26606e+00_rb,0.32018e+00_rb,0.31908e+00_rb,0.15012e+00_rb /)
+      kbo(:, 5,46, 9) = (/ &
+        & 0.71564e-01_rb,0.32546e+00_rb,0.38657e+00_rb,0.38454e+00_rb,0.18211e+00_rb /)
+      kbo(:, 1,47, 9) = (/ &
+        & 0.21470e-01_rb,0.11984e+00_rb,0.14813e+00_rb,0.15126e+00_rb,0.68564e-01_rb /)
+      kbo(:, 2,47, 9) = (/ &
+        & 0.28327e-01_rb,0.15313e+00_rb,0.18908e+00_rb,0.19182e+00_rb,0.87445e-01_rb /)
+      kbo(:, 3,47, 9) = (/ &
+        & 0.37186e-01_rb,0.19381e+00_rb,0.23756e+00_rb,0.23882e+00_rb,0.11016e+00_rb /)
+      kbo(:, 4,47, 9) = (/ &
+        & 0.48514e-01_rb,0.24239e+00_rb,0.29373e+00_rb,0.29331e+00_rb,0.13670e+00_rb /)
+      kbo(:, 5,47, 9) = (/ &
+        & 0.62915e-01_rb,0.29879e+00_rb,0.35729e+00_rb,0.35580e+00_rb,0.16718e+00_rb /)
+      kbo(:, 1,48, 9) = (/ &
+        & 0.17915e-01_rb,0.10594e+00_rb,0.13153e+00_rb,0.13471e+00_rb,0.60247e-01_rb /)
+      kbo(:, 2,48, 9) = (/ &
+        & 0.23922e-01_rb,0.13687e+00_rb,0.16982e+00_rb,0.17297e+00_rb,0.77702e-01_rb /)
+      kbo(:, 3,48, 9) = (/ &
+        & 0.31789e-01_rb,0.17464e+00_rb,0.21543e+00_rb,0.21754e+00_rb,0.99032e-01_rb /)
+      kbo(:, 4,48, 9) = (/ &
+        & 0.41975e-01_rb,0.22024e+00_rb,0.26872e+00_rb,0.26906e+00_rb,0.12414e+00_rb /)
+      kbo(:, 5,48, 9) = (/ &
+        & 0.55099e-01_rb,0.27366e+00_rb,0.32950e+00_rb,0.32848e+00_rb,0.15313e+00_rb /)
+      kbo(:, 1,49, 9) = (/ &
+        & 0.14883e-01_rb,0.93224e-01_rb,0.11635e+00_rb,0.11939e+00_rb,0.52749e-01_rb /)
+      kbo(:, 2,49, 9) = (/ &
+        & 0.20112e-01_rb,0.12194e+00_rb,0.15191e+00_rb,0.15532e+00_rb,0.68811e-01_rb /)
+      kbo(:, 3,49, 9) = (/ &
+        & 0.27052e-01_rb,0.15700e+00_rb,0.19473e+00_rb,0.19754e+00_rb,0.88692e-01_rb /)
+      kbo(:, 4,49, 9) = (/ &
+        & 0.36170e-01_rb,0.19958e+00_rb,0.24512e+00_rb,0.24626e+00_rb,0.11239e+00_rb /)
+      kbo(:, 5,49, 9) = (/ &
+        & 0.48053e-01_rb,0.24998e+00_rb,0.30305e+00_rb,0.30260e+00_rb,0.13992e+00_rb /)
+      kbo(:, 1,50, 9) = (/ &
+        & 0.12401e-01_rb,0.82224e-01_rb,0.10323e+00_rb,0.10603e+00_rb,0.46388e-01_rb /)
+      kbo(:, 2,50, 9) = (/ &
+        & 0.16961e-01_rb,0.10896e+00_rb,0.13629e+00_rb,0.13978e+00_rb,0.61130e-01_rb /)
+      kbo(:, 3,50, 9) = (/ &
+        & 0.23097e-01_rb,0.14168e+00_rb,0.17654e+00_rb,0.17982e+00_rb,0.79649e-01_rb /)
+      kbo(:, 4,50, 9) = (/ &
+        & 0.31266e-01_rb,0.18143e+00_rb,0.22418e+00_rb,0.22611e+00_rb,0.10201e+00_rb /)
+      kbo(:, 5,50, 9) = (/ &
+        & 0.42049e-01_rb,0.22900e+00_rb,0.27939e+00_rb,0.27959e+00_rb,0.12818e+00_rb /)
+      kbo(:, 1,51, 9) = (/ &
+        & 0.10311e-01_rb,0.72407e-01_rb,0.91543e-01_rb,0.94015e-01_rb,0.40739e-01_rb /)
+      kbo(:, 2,51, 9) = (/ &
+        & 0.14299e-01_rb,0.97301e-01_rb,0.12223e+00_rb,0.12566e+00_rb,0.54336e-01_rb /)
+      kbo(:, 3,51, 9) = (/ &
+        & 0.19709e-01_rb,0.12788e+00_rb,0.16001e+00_rb,0.16354e+00_rb,0.71514e-01_rb /)
+      kbo(:, 4,51, 9) = (/ &
+        & 0.27010e-01_rb,0.16504e+00_rb,0.20502e+00_rb,0.20766e+00_rb,0.92576e-01_rb /)
+      kbo(:, 5,51, 9) = (/ &
+        & 0.36820e-01_rb,0.20996e+00_rb,0.25769e+00_rb,0.25854e+00_rb,0.11743e+00_rb /)
+      kbo(:, 1,52, 9) = (/ &
+        & 0.85238e-02_rb,0.63439e-01_rb,0.80796e-01_rb,0.82950e-01_rb,0.35726e-01_rb /)
+      kbo(:, 2,52, 9) = (/ &
+        & 0.12004e-01_rb,0.86535e-01_rb,0.10929e+00_rb,0.11252e+00_rb,0.48201e-01_rb /)
+      kbo(:, 3,52, 9) = (/ &
+        & 0.16756e-01_rb,0.11511e+00_rb,0.14456e+00_rb,0.14824e+00_rb,0.64036e-01_rb /)
+      kbo(:, 4,52, 9) = (/ &
+        & 0.23247e-01_rb,0.14984e+00_rb,0.18701e+00_rb,0.19020e+00_rb,0.83745e-01_rb /)
+      kbo(:, 5,52, 9) = (/ &
+        & 0.32110e-01_rb,0.19199e+00_rb,0.23699e+00_rb,0.23857e+00_rb,0.10729e+00_rb /)
+      kbo(:, 1,53, 9) = (/ &
+        & 0.70021e-02_rb,0.55279e-01_rb,0.70908e-01_rb,0.72826e-01_rb,0.31267e-01_rb /)
+      kbo(:, 2,53, 9) = (/ &
+        & 0.10022e-01_rb,0.76605e-01_rb,0.97337e-01_rb,0.10026e+00_rb,0.42555e-01_rb /)
+      kbo(:, 3,53, 9) = (/ &
+        & 0.14186e-01_rb,0.10324e+00_rb,0.13015e+00_rb,0.13384e+00_rb,0.57176e-01_rb /)
+      kbo(:, 4,53, 9) = (/ &
+        & 0.19924e-01_rb,0.13568e+00_rb,0.17006e+00_rb,0.17360e+00_rb,0.75508e-01_rb /)
+      kbo(:, 5,53, 9) = (/ &
+        & 0.27873e-01_rb,0.17508e+00_rb,0.21734e+00_rb,0.21965e+00_rb,0.97730e-01_rb /)
+      kbo(:, 1,54, 9) = (/ &
+        & 0.57827e-02_rb,0.48416e-01_rb,0.62508e-01_rb,0.64310e-01_rb,0.27618e-01_rb /)
+      kbo(:, 2,54, 9) = (/ &
+        & 0.84043e-02_rb,0.68151e-01_rb,0.87167e-01_rb,0.89761e-01_rb,0.37874e-01_rb /)
+      kbo(:, 3,54, 9) = (/ &
+        & 0.12088e-01_rb,0.93069e-01_rb,0.11782e+00_rb,0.12138e+00_rb,0.51418e-01_rb /)
+      kbo(:, 4,54, 9) = (/ &
+        & 0.17188e-01_rb,0.12356e+00_rb,0.15542e+00_rb,0.15914e+00_rb,0.68446e-01_rb /)
+      kbo(:, 5,54, 9) = (/ &
+        & 0.24356e-01_rb,0.16057e+00_rb,0.20027e+00_rb,0.20317e+00_rb,0.89427e-01_rb /)
+      kbo(:, 1,55, 9) = (/ &
+        & 0.47829e-02_rb,0.42445e-01_rb,0.55108e-01_rb,0.56879e-01_rb,0.24415e-01_rb /)
+      kbo(:, 2,55, 9) = (/ &
+        & 0.70515e-02_rb,0.60688e-01_rb,0.78130e-01_rb,0.80430e-01_rb,0.33849e-01_rb /)
+      kbo(:, 3,55, 9) = (/ &
+        & 0.10307e-01_rb,0.83954e-01_rb,0.10678e+00_rb,0.11014e+00_rb,0.46263e-01_rb /)
+      kbo(:, 4,55, 9) = (/ &
+        & 0.14854e-01_rb,0.11267e+00_rb,0.14216e+00_rb,0.14598e+00_rb,0.62158e-01_rb /)
+      kbo(:, 5,55, 9) = (/ &
+        & 0.21317e-01_rb,0.14754e+00_rb,0.18474e+00_rb,0.18809e+00_rb,0.81914e-01_rb /)
+      kbo(:, 1,56, 9) = (/ &
+        & 0.39349e-02_rb,0.37013e-01_rb,0.48295e-01_rb,0.50091e-01_rb,0.21529e-01_rb /)
+      kbo(:, 2,56, 9) = (/ &
+        & 0.58808e-02_rb,0.53785e-01_rb,0.69695e-01_rb,0.71776e-01_rb,0.30144e-01_rb /)
+      kbo(:, 3,56, 9) = (/ &
+        & 0.87470e-02_rb,0.75476e-01_rb,0.96519e-01_rb,0.99590e-01_rb,0.41605e-01_rb /)
+      kbo(:, 4,56, 9) = (/ &
+        & 0.12799e-01_rb,0.10247e+00_rb,0.12972e+00_rb,0.13354e+00_rb,0.56396e-01_rb /)
+      kbo(:, 5,56, 9) = (/ &
+        & 0.18597e-01_rb,0.13533e+00_rb,0.17007e+00_rb,0.17370e+00_rb,0.74854e-01_rb /)
+      kbo(:, 1,57, 9) = (/ &
+        & 0.32237e-02_rb,0.32103e-01_rb,0.42068e-01_rb,0.43893e-01_rb,0.18889e-01_rb /)
+      kbo(:, 2,57, 9) = (/ &
+        & 0.48776e-02_rb,0.47453e-01_rb,0.61873e-01_rb,0.63812e-01_rb,0.26899e-01_rb /)
+      kbo(:, 3,57, 9) = (/ &
+        & 0.73816e-02_rb,0.67586e-01_rb,0.86956e-01_rb,0.89701e-01_rb,0.37405e-01_rb /)
+      kbo(:, 4,57, 9) = (/ &
+        & 0.10984e-01_rb,0.92907e-01_rb,0.11806e+00_rb,0.12175e+00_rb,0.51002e-01_rb /)
+      kbo(:, 5,57, 9) = (/ &
+        & 0.16168e-01_rb,0.12385e+00_rb,0.15617e+00_rb,0.15996e+00_rb,0.68253e-01_rb /)
+      kbo(:, 1,58, 9) = (/ &
+        & 0.26462e-02_rb,0.27879e-01_rb,0.36685e-01_rb,0.38484e-01_rb,0.16601e-01_rb /)
+      kbo(:, 2,58, 9) = (/ &
+        & 0.40522e-02_rb,0.41929e-01_rb,0.54967e-01_rb,0.56858e-01_rb,0.24050e-01_rb /)
+      kbo(:, 3,58, 9) = (/ &
+        & 0.62364e-02_rb,0.60609e-01_rb,0.78458e-01_rb,0.80919e-01_rb,0.33657e-01_rb /)
+      kbo(:, 4,58, 9) = (/ &
+        & 0.94512e-02_rb,0.84383e-01_rb,0.10769e+00_rb,0.11117e+00_rb,0.46338e-01_rb /)
+      kbo(:, 5,58, 9) = (/ &
+        & 0.14101e-01_rb,0.11363e+00_rb,0.14367e+00_rb,0.14755e+00_rb,0.62487e-01_rb /)
+      kbo(:, 1,59, 9) = (/ &
+        & 0.23375e-02_rb,0.26104e-01_rb,0.34483e-01_rb,0.36273e-01_rb,0.15643e-01_rb /)
+      kbo(:, 2,59, 9) = (/ &
+        & 0.36353e-02_rb,0.39676e-01_rb,0.52191e-01_rb,0.54098e-01_rb,0.22879e-01_rb /)
+      kbo(:, 3,59, 9) = (/ &
+        & 0.56781e-02_rb,0.57810e-01_rb,0.75085e-01_rb,0.77452e-01_rb,0.32253e-01_rb /)
+      kbo(:, 4,59, 9) = (/ &
+        & 0.87345e-02_rb,0.80998e-01_rb,0.10362e+00_rb,0.10701e+00_rb,0.44587e-01_rb /)
+      kbo(:, 5,59, 9) = (/ &
+        & 0.13202e-01_rb,0.10960e+00_rb,0.13878e+00_rb,0.14268e+00_rb,0.60173e-01_rb /)
+      kbo(:, 1,13,10) = (/ &
+        & 0.68082e+01_rb,0.10647e+02_rb,0.12044e+02_rb,0.12092e+02_rb,0.85097e+01_rb /)
+      kbo(:, 2,13,10) = (/ &
+        & 0.67019e+01_rb,0.10585e+02_rb,0.12055e+02_rb,0.12198e+02_rb,0.87119e+01_rb /)
+      kbo(:, 3,13,10) = (/ &
+        & 0.67137e+01_rb,0.10536e+02_rb,0.12063e+02_rb,0.12312e+02_rb,0.88714e+01_rb /)
+      kbo(:, 4,13,10) = (/ &
+        & 0.68713e+01_rb,0.10489e+02_rb,0.12087e+02_rb,0.12413e+02_rb,0.90170e+01_rb /)
+      kbo(:, 5,13,10) = (/ &
+        & 0.71185e+01_rb,0.10479e+02_rb,0.12121e+02_rb,0.12479e+02_rb,0.91853e+01_rb /)
+      kbo(:, 1,14,10) = (/ &
+        & 0.58410e+01_rb,0.94018e+01_rb,0.10846e+02_rb,0.11035e+02_rb,0.76674e+01_rb /)
+      kbo(:, 2,14,10) = (/ &
+        & 0.58467e+01_rb,0.93735e+01_rb,0.10875e+02_rb,0.11156e+02_rb,0.78256e+01_rb /)
+      kbo(:, 3,14,10) = (/ &
+        & 0.59984e+01_rb,0.93438e+01_rb,0.10908e+02_rb,0.11271e+02_rb,0.79426e+01_rb /)
+      kbo(:, 4,14,10) = (/ &
+        & 0.62373e+01_rb,0.93563e+01_rb,0.10953e+02_rb,0.11364e+02_rb,0.81071e+01_rb /)
+      kbo(:, 5,14,10) = (/ &
+        & 0.65135e+01_rb,0.94809e+01_rb,0.10997e+02_rb,0.11429e+02_rb,0.82861e+01_rb /)
+      kbo(:, 1,15,10) = (/ &
+        & 0.50343e+01_rb,0.83265e+01_rb,0.97137e+01_rb,0.99946e+01_rb,0.69930e+01_rb /)
+      kbo(:, 2,15,10) = (/ &
+        & 0.51660e+01_rb,0.83107e+01_rb,0.97594e+01_rb,0.10123e+02_rb,0.71240e+01_rb /)
+      kbo(:, 3,15,10) = (/ &
+        & 0.53903e+01_rb,0.83316e+01_rb,0.98216e+01_rb,0.10239e+02_rb,0.72628e+01_rb /)
+      kbo(:, 4,15,10) = (/ &
+        & 0.56415e+01_rb,0.84645e+01_rb,0.98856e+01_rb,0.10324e+02_rb,0.74229e+01_rb /)
+      kbo(:, 5,15,10) = (/ &
+        & 0.58842e+01_rb,0.87055e+01_rb,0.99631e+01_rb,0.10400e+02_rb,0.75908e+01_rb /)
+      kbo(:, 1,16,10) = (/ &
+        & 0.44015e+01_rb,0.74103e+01_rb,0.86530e+01_rb,0.90071e+01_rb,0.63301e+01_rb /)
+      kbo(:, 2,16,10) = (/ &
+        & 0.45955e+01_rb,0.74391e+01_rb,0.87237e+01_rb,0.91359e+01_rb,0.64715e+01_rb /)
+      kbo(:, 3,16,10) = (/ &
+        & 0.48140e+01_rb,0.75662e+01_rb,0.88065e+01_rb,0.92379e+01_rb,0.66426e+01_rb /)
+      kbo(:, 4,16,10) = (/ &
+        & 0.50318e+01_rb,0.77981e+01_rb,0.89101e+01_rb,0.93283e+01_rb,0.68095e+01_rb /)
+      kbo(:, 5,16,10) = (/ &
+        & 0.52436e+01_rb,0.80914e+01_rb,0.90522e+01_rb,0.94292e+01_rb,0.69717e+01_rb /)
+      kbo(:, 1,17,10) = (/ &
+        & 0.38938e+01_rb,0.65976e+01_rb,0.77151e+01_rb,0.80672e+01_rb,0.57119e+01_rb /)
+      kbo(:, 2,17,10) = (/ &
+        & 0.40781e+01_rb,0.67171e+01_rb,0.78068e+01_rb,0.81879e+01_rb,0.58706e+01_rb /)
+      kbo(:, 3,17,10) = (/ &
+        & 0.42641e+01_rb,0.69435e+01_rb,0.79191e+01_rb,0.82934e+01_rb,0.60296e+01_rb /)
+      kbo(:, 4,17,10) = (/ &
+        & 0.44480e+01_rb,0.72305e+01_rb,0.80762e+01_rb,0.84106e+01_rb,0.62012e+01_rb /)
+      kbo(:, 5,17,10) = (/ &
+        & 0.46308e+01_rb,0.75237e+01_rb,0.83037e+01_rb,0.85418e+01_rb,0.63775e+01_rb /)
+      kbo(:, 1,18,10) = (/ &
+        & 0.34407e+01_rb,0.58963e+01_rb,0.69001e+01_rb,0.71891e+01_rb,0.51366e+01_rb /)
+      kbo(:, 2,18,10) = (/ &
+        & 0.35988e+01_rb,0.61068e+01_rb,0.70120e+01_rb,0.73051e+01_rb,0.52912e+01_rb /)
+      kbo(:, 3,18,10) = (/ &
+        & 0.37577e+01_rb,0.63853e+01_rb,0.71752e+01_rb,0.74336e+01_rb,0.54376e+01_rb /)
+      kbo(:, 4,18,10) = (/ &
+        & 0.39161e+01_rb,0.66726e+01_rb,0.74020e+01_rb,0.75773e+01_rb,0.56097e+01_rb /)
+      kbo(:, 5,18,10) = (/ &
+        & 0.40711e+01_rb,0.69480e+01_rb,0.76793e+01_rb,0.77395e+01_rb,0.57994e+01_rb /)
+      kbo(:, 1,19,10) = (/ &
+        & 0.30222e+01_rb,0.53136e+01_rb,0.61695e+01_rb,0.63815e+01_rb,0.46248e+01_rb /)
+      kbo(:, 2,19,10) = (/ &
+        & 0.31568e+01_rb,0.55745e+01_rb,0.63303e+01_rb,0.65186e+01_rb,0.47653e+01_rb /)
+      kbo(:, 3,19,10) = (/ &
+        & 0.32936e+01_rb,0.58515e+01_rb,0.65536e+01_rb,0.66691e+01_rb,0.49110e+01_rb /)
+      kbo(:, 4,19,10) = (/ &
+        & 0.34320e+01_rb,0.61200e+01_rb,0.68298e+01_rb,0.68431e+01_rb,0.50671e+01_rb /)
+      kbo(:, 5,19,10) = (/ &
+        & 0.35717e+01_rb,0.63810e+01_rb,0.71341e+01_rb,0.70485e+01_rb,0.52482e+01_rb /)
+      kbo(:, 1,20,10) = (/ &
+        & 0.26646e+01_rb,0.48341e+01_rb,0.55294e+01_rb,0.56818e+01_rb,0.41697e+01_rb /)
+      kbo(:, 2,20,10) = (/ &
+        & 0.27751e+01_rb,0.50933e+01_rb,0.57470e+01_rb,0.58376e+01_rb,0.43064e+01_rb /)
+      kbo(:, 3,20,10) = (/ &
+        & 0.28895e+01_rb,0.53454e+01_rb,0.60203e+01_rb,0.60166e+01_rb,0.44569e+01_rb /)
+      kbo(:, 4,20,10) = (/ &
+        & 0.30071e+01_rb,0.55962e+01_rb,0.63194e+01_rb,0.62235e+01_rb,0.46038e+01_rb /)
+      kbo(:, 5,20,10) = (/ &
+        & 0.31278e+01_rb,0.58505e+01_rb,0.66184e+01_rb,0.64780e+01_rb,0.47569e+01_rb /)
+      kbo(:, 1,21,10) = (/ &
+        & 0.23601e+01_rb,0.44020e+01_rb,0.49905e+01_rb,0.50776e+01_rb,0.37561e+01_rb /)
+      kbo(:, 2,21,10) = (/ &
+        & 0.24527e+01_rb,0.46408e+01_rb,0.52514e+01_rb,0.52563e+01_rb,0.39021e+01_rb /)
+      kbo(:, 3,21,10) = (/ &
+        & 0.25482e+01_rb,0.48775e+01_rb,0.55424e+01_rb,0.54642e+01_rb,0.40531e+01_rb /)
+      kbo(:, 4,21,10) = (/ &
+        & 0.26469e+01_rb,0.51183e+01_rb,0.58389e+01_rb,0.57185e+01_rb,0.42025e+01_rb /)
+      kbo(:, 5,21,10) = (/ &
+        & 0.27509e+01_rb,0.53673e+01_rb,0.61341e+01_rb,0.60025e+01_rb,0.43477e+01_rb /)
+      kbo(:, 1,22,10) = (/ &
+        & 0.20933e+01_rb,0.40130e+01_rb,0.45530e+01_rb,0.45722e+01_rb,0.33997e+01_rb /)
+      kbo(:, 2,22,10) = (/ &
+        & 0.21774e+01_rb,0.42389e+01_rb,0.48339e+01_rb,0.47801e+01_rb,0.35503e+01_rb /)
+      kbo(:, 3,22,10) = (/ &
+        & 0.22636e+01_rb,0.44688e+01_rb,0.51214e+01_rb,0.50286e+01_rb,0.36916e+01_rb /)
+      kbo(:, 4,22,10) = (/ &
+        & 0.23497e+01_rb,0.47085e+01_rb,0.54112e+01_rb,0.53109e+01_rb,0.38464e+01_rb /)
+      kbo(:, 5,22,10) = (/ &
+        & 0.24400e+01_rb,0.49544e+01_rb,0.57104e+01_rb,0.56159e+01_rb,0.40026e+01_rb /)
+      kbo(:, 1,23,10) = (/ &
+        & 0.18483e+01_rb,0.36572e+01_rb,0.41816e+01_rb,0.41476e+01_rb,0.30773e+01_rb /)
+      kbo(:, 2,23,10) = (/ &
+        & 0.19296e+01_rb,0.38779e+01_rb,0.44582e+01_rb,0.43906e+01_rb,0.32324e+01_rb /)
+      kbo(:, 3,23,10) = (/ &
+        & 0.20105e+01_rb,0.41090e+01_rb,0.47398e+01_rb,0.46676e+01_rb,0.33790e+01_rb /)
+      kbo(:, 4,23,10) = (/ &
+        & 0.20922e+01_rb,0.43460e+01_rb,0.50319e+01_rb,0.49689e+01_rb,0.35381e+01_rb /)
+      kbo(:, 5,23,10) = (/ &
+        & 0.21812e+01_rb,0.45942e+01_rb,0.53379e+01_rb,0.52907e+01_rb,0.36872e+01_rb /)
+      kbo(:, 1,24,10) = (/ &
+        & 0.16291e+01_rb,0.33480e+01_rb,0.38514e+01_rb,0.38051e+01_rb,0.27880e+01_rb /)
+      kbo(:, 2,24,10) = (/ &
+        & 0.17053e+01_rb,0.35635e+01_rb,0.41240e+01_rb,0.40716e+01_rb,0.29407e+01_rb /)
+      kbo(:, 3,24,10) = (/ &
+        & 0.17841e+01_rb,0.37930e+01_rb,0.44076e+01_rb,0.43668e+01_rb,0.31035e+01_rb /)
+      kbo(:, 4,24,10) = (/ &
+        & 0.18670e+01_rb,0.40349e+01_rb,0.47044e+01_rb,0.46831e+01_rb,0.32549e+01_rb /)
+      kbo(:, 5,24,10) = (/ &
+        & 0.19687e+01_rb,0.42837e+01_rb,0.50178e+01_rb,0.50123e+01_rb,0.34093e+01_rb /)
+      kbo(:, 1,25,10) = (/ &
+        & 0.14342e+01_rb,0.30870e+01_rb,0.35616e+01_rb,0.35262e+01_rb,0.25309e+01_rb /)
+      kbo(:, 2,25,10) = (/ &
+        & 0.15073e+01_rb,0.32988e+01_rb,0.38348e+01_rb,0.38083e+01_rb,0.26935e+01_rb /)
+      kbo(:, 3,25,10) = (/ &
+        & 0.15855e+01_rb,0.35267e+01_rb,0.41227e+01_rb,0.41156e+01_rb,0.28544e+01_rb /)
+      kbo(:, 4,25,10) = (/ &
+        & 0.16765e+01_rb,0.37674e+01_rb,0.44270e+01_rb,0.44387e+01_rb,0.30112e+01_rb /)
+      kbo(:, 5,25,10) = (/ &
+        & 0.17969e+01_rb,0.40179e+01_rb,0.47482e+01_rb,0.47807e+01_rb,0.31986e+01_rb /)
+      kbo(:, 1,26,10) = (/ &
+        & 0.12644e+01_rb,0.28734e+01_rb,0.33145e+01_rb,0.33023e+01_rb,0.23207e+01_rb /)
+      kbo(:, 2,26,10) = (/ &
+        & 0.13357e+01_rb,0.30796e+01_rb,0.35932e+01_rb,0.35956e+01_rb,0.24777e+01_rb /)
+      kbo(:, 3,26,10) = (/ &
+        & 0.14174e+01_rb,0.33035e+01_rb,0.38863e+01_rb,0.39081e+01_rb,0.26420e+01_rb /)
+      kbo(:, 4,26,10) = (/ &
+        & 0.15234e+01_rb,0.35430e+01_rb,0.41997e+01_rb,0.42431e+01_rb,0.28241e+01_rb /)
+      kbo(:, 5,26,10) = (/ &
+        & 0.16603e+01_rb,0.37959e+01_rb,0.45341e+01_rb,0.45996e+01_rb,0.30401e+01_rb /)
+      kbo(:, 1,27,10) = (/ &
+        & 0.11180e+01_rb,0.26923e+01_rb,0.31092e+01_rb,0.31181e+01_rb,0.21320e+01_rb /)
+      kbo(:, 2,27,10) = (/ &
+        & 0.11893e+01_rb,0.28981e+01_rb,0.33903e+01_rb,0.34176e+01_rb,0.22961e+01_rb /)
+      kbo(:, 3,27,10) = (/ &
+        & 0.12805e+01_rb,0.31184e+01_rb,0.36930e+01_rb,0.37398e+01_rb,0.24775e+01_rb /)
+      kbo(:, 4,27,10) = (/ &
+        & 0.14017e+01_rb,0.33577e+01_rb,0.40190e+01_rb,0.40909e+01_rb,0.26920e+01_rb /)
+      kbo(:, 5,27,10) = (/ &
+        & 0.15494e+01_rb,0.36148e+01_rb,0.43685e+01_rb,0.44626e+01_rb,0.29161e+01_rb /)
+      kbo(:, 1,28,10) = (/ &
+        & 0.99411e+00_rb,0.25422e+01_rb,0.29403e+01_rb,0.29678e+01_rb,0.19736e+01_rb /)
+      kbo(:, 2,28,10) = (/ &
+        & 0.10693e+01_rb,0.27468e+01_rb,0.32278e+01_rb,0.32747e+01_rb,0.21580e+01_rb /)
+      kbo(:, 3,28,10) = (/ &
+        & 0.11727e+01_rb,0.29677e+01_rb,0.35410e+01_rb,0.36136e+01_rb,0.23718e+01_rb /)
+      kbo(:, 4,28,10) = (/ &
+        & 0.13040e+01_rb,0.32092e+01_rb,0.38816e+01_rb,0.39808e+01_rb,0.25959e+01_rb /)
+      kbo(:, 5,28,10) = (/ &
+        & 0.14604e+01_rb,0.34721e+01_rb,0.42472e+01_rb,0.43708e+01_rb,0.28373e+01_rb /)
+      kbo(:, 1,29,10) = (/ &
+        & 0.89294e+00_rb,0.24188e+01_rb,0.28058e+01_rb,0.28515e+01_rb,0.18636e+01_rb /)
+      kbo(:, 2,29,10) = (/ &
+        & 0.97544e+00_rb,0.26259e+01_rb,0.31039e+01_rb,0.31712e+01_rb,0.20699e+01_rb /)
+      kbo(:, 3,29,10) = (/ &
+        & 0.10880e+01_rb,0.28493e+01_rb,0.34305e+01_rb,0.35278e+01_rb,0.22886e+01_rb /)
+      kbo(:, 4,29,10) = (/ &
+        & 0.12277e+01_rb,0.30947e+01_rb,0.37862e+01_rb,0.39124e+01_rb,0.25256e+01_rb /)
+      kbo(:, 5,29,10) = (/ &
+        & 0.13896e+01_rb,0.33676e+01_rb,0.41685e+01_rb,0.43225e+01_rb,0.27864e+01_rb /)
+      kbo(:, 1,30,10) = (/ &
+        & 0.81230e+00_rb,0.23190e+01_rb,0.27059e+01_rb,0.27666e+01_rb,0.17929e+01_rb /)
+      kbo(:, 2,30,10) = (/ &
+        & 0.90285e+00_rb,0.25306e+01_rb,0.30146e+01_rb,0.31051e+01_rb,0.20049e+01_rb /)
+      kbo(:, 3,30,10) = (/ &
+        & 0.10223e+01_rb,0.27572e+01_rb,0.33560e+01_rb,0.34779e+01_rb,0.22359e+01_rb /)
+      kbo(:, 4,30,10) = (/ &
+        & 0.11675e+01_rb,0.30101e+01_rb,0.37284e+01_rb,0.38827e+01_rb,0.24866e+01_rb /)
+      kbo(:, 5,30,10) = (/ &
+        & 0.13337e+01_rb,0.32968e+01_rb,0.41265e+01_rb,0.43099e+01_rb,0.27369e+01_rb /)
+      kbo(:, 1,31,10) = (/ &
+        & 0.75110e+00_rb,0.22419e+01_rb,0.26379e+01_rb,0.27157e+01_rb,0.17433e+01_rb /)
+      kbo(:, 2,31,10) = (/ &
+        & 0.84809e+00_rb,0.24579e+01_rb,0.29592e+01_rb,0.30730e+01_rb,0.19665e+01_rb /)
+      kbo(:, 3,31,10) = (/ &
+        & 0.97252e+00_rb,0.26914e+01_rb,0.33168e+01_rb,0.34645e+01_rb,0.22008e+01_rb /)
+      kbo(:, 4,31,10) = (/ &
+        & 0.11219e+01_rb,0.29550e+01_rb,0.37069e+01_rb,0.38878e+01_rb,0.24456e+01_rb /)
+      kbo(:, 5,31,10) = (/ &
+        & 0.12926e+01_rb,0.32597e+01_rb,0.41224e+01_rb,0.43304e+01_rb,0.27059e+01_rb /)
+      kbo(:, 1,32,10) = (/ &
+        & 0.70499e+00_rb,0.21846e+01_rb,0.25985e+01_rb,0.26966e+01_rb,0.17143e+01_rb /)
+      kbo(:, 2,32,10) = (/ &
+        & 0.80768e+00_rb,0.24067e+01_rb,0.29356e+01_rb,0.30726e+01_rb,0.19337e+01_rb /)
+      kbo(:, 3,32,10) = (/ &
+        & 0.93561e+00_rb,0.26499e+01_rb,0.33107e+01_rb,0.34825e+01_rb,0.21698e+01_rb /)
+      kbo(:, 4,32,10) = (/ &
+        & 0.10894e+01_rb,0.29281e+01_rb,0.37179e+01_rb,0.39220e+01_rb,0.24264e+01_rb /)
+      kbo(:, 5,32,10) = (/ &
+        & 0.12637e+01_rb,0.32525e+01_rb,0.41500e+01_rb,0.43764e+01_rb,0.26992e+01_rb /)
+      kbo(:, 1,33,10) = (/ &
+        & 0.67118e+00_rb,0.21457e+01_rb,0.25854e+01_rb,0.27057e+01_rb,0.16861e+01_rb /)
+      kbo(:, 2,33,10) = (/ &
+        & 0.77795e+00_rb,0.23758e+01_rb,0.29404e+01_rb,0.30997e+01_rb,0.19111e+01_rb /)
+      kbo(:, 3,33,10) = (/ &
+        & 0.91001e+00_rb,0.26325e+01_rb,0.33337e+01_rb,0.35269e+01_rb,0.21600e+01_rb /)
+      kbo(:, 4,33,10) = (/ &
+        & 0.10674e+01_rb,0.29280e+01_rb,0.37566e+01_rb,0.39787e+01_rb,0.24291e+01_rb /)
+      kbo(:, 5,33,10) = (/ &
+        & 0.12452e+01_rb,0.32737e+01_rb,0.42022e+01_rb,0.44428e+01_rb,0.27130e+01_rb /)
+      kbo(:, 1,34,10) = (/ &
+        & 0.64347e+00_rb,0.21163e+01_rb,0.25854e+01_rb,0.27260e+01_rb,0.16632e+01_rb /)
+      kbo(:, 2,34,10) = (/ &
+        & 0.75313e+00_rb,0.23563e+01_rb,0.29579e+01_rb,0.31342e+01_rb,0.18999e+01_rb /)
+      kbo(:, 3,34,10) = (/ &
+        & 0.88833e+00_rb,0.26269e+01_rb,0.33662e+01_rb,0.35749e+01_rb,0.21605e+01_rb /)
+      kbo(:, 4,34,10) = (/ &
+        & 0.10487e+01_rb,0.29401e+01_rb,0.38003e+01_rb,0.40358e+01_rb,0.24405e+01_rb /)
+      kbo(:, 5,34,10) = (/ &
+        & 0.12301e+01_rb,0.33056e+01_rb,0.42553e+01_rb,0.45073e+01_rb,0.27333e+01_rb /)
+      kbo(:, 1,35,10) = (/ &
+        & 0.61333e+00_rb,0.20804e+01_rb,0.25725e+01_rb,0.27255e+01_rb,0.16337e+01_rb /)
+      kbo(:, 2,35,10) = (/ &
+        & 0.72416e+00_rb,0.23301e+01_rb,0.29566e+01_rb,0.31440e+01_rb,0.18805e+01_rb /)
+      kbo(:, 3,35,10) = (/ &
+        & 0.85987e+00_rb,0.26111e+01_rb,0.33740e+01_rb,0.35934e+01_rb,0.21502e+01_rb /)
+      kbo(:, 4,35,10) = (/ &
+        & 0.10212e+01_rb,0.29378e+01_rb,0.38159e+01_rb,0.40603e+01_rb,0.24378e+01_rb /)
+      kbo(:, 5,35,10) = (/ &
+        & 0.12063e+01_rb,0.33167e+01_rb,0.42768e+01_rb,0.45362e+01_rb,0.27369e+01_rb /)
+      kbo(:, 1,36,10) = (/ &
+        & 0.57858e+00_rb,0.20318e+01_rb,0.25343e+01_rb,0.26932e+01_rb,0.15911e+01_rb /)
+      kbo(:, 2,36,10) = (/ &
+        & 0.68823e+00_rb,0.22888e+01_rb,0.29242e+01_rb,0.31171e+01_rb,0.18445e+01_rb /)
+      kbo(:, 3,36,10) = (/ &
+        & 0.82172e+00_rb,0.25765e+01_rb,0.33460e+01_rb,0.35706e+01_rb,0.21205e+01_rb /)
+      kbo(:, 4,36,10) = (/ &
+        & 0.98227e+00_rb,0.29099e+01_rb,0.37920e+01_rb,0.40410e+01_rb,0.24128e+01_rb /)
+      kbo(:, 5,36,10) = (/ &
+        & 0.11693e+01_rb,0.32947e+01_rb,0.42558e+01_rb,0.45198e+01_rb,0.27160e+01_rb /)
+      kbo(:, 1,37,10) = (/ &
+        & 0.53405e+00_rb,0.19558e+01_rb,0.24506e+01_rb,0.26071e+01_rb,0.15218e+01_rb /)
+      kbo(:, 2,37,10) = (/ &
+        & 0.63968e+00_rb,0.22170e+01_rb,0.28388e+01_rb,0.30310e+01_rb,0.17770e+01_rb /)
+      kbo(:, 3,37,10) = (/ &
+        & 0.76779e+00_rb,0.25049e+01_rb,0.32599e+01_rb,0.34842e+01_rb,0.20552e+01_rb /)
+      kbo(:, 4,37,10) = (/ &
+        & 0.92384e+00_rb,0.28358e+01_rb,0.37058e+01_rb,0.39557e+01_rb,0.23490e+01_rb /)
+      kbo(:, 5,37,10) = (/ &
+        & 0.11094e+01_rb,0.32175e+01_rb,0.41691e+01_rb,0.44348e+01_rb,0.26544e+01_rb /)
+      kbo(:, 1,38,10) = (/ &
+        & 0.49328e+00_rb,0.18861e+01_rb,0.23724e+01_rb,0.25236e+01_rb,0.14577e+01_rb /)
+      kbo(:, 2,38,10) = (/ &
+        & 0.59575e+00_rb,0.21506e+01_rb,0.27570e+01_rb,0.29471e+01_rb,0.17138e+01_rb /)
+      kbo(:, 3,38,10) = (/ &
+        & 0.71877e+00_rb,0.24381e+01_rb,0.31760e+01_rb,0.33985e+01_rb,0.19934e+01_rb /)
+      kbo(:, 4,38,10) = (/ &
+        & 0.87044e+00_rb,0.27651e+01_rb,0.36203e+01_rb,0.38701e+01_rb,0.22879e+01_rb /)
+      kbo(:, 5,38,10) = (/ &
+        & 0.10541e+01_rb,0.31424e+01_rb,0.40835e+01_rb,0.43497e+01_rb,0.25942e+01_rb /)
+      kbo(:, 1,39,10) = (/ &
+        & 0.45633e+00_rb,0.18232e+01_rb,0.23004e+01_rb,0.24453e+01_rb,0.13998e+01_rb /)
+      kbo(:, 2,39,10) = (/ &
+        & 0.55664e+00_rb,0.20902e+01_rb,0.26810e+01_rb,0.28682e+01_rb,0.16563e+01_rb /)
+      kbo(:, 3,39,10) = (/ &
+        & 0.67511e+00_rb,0.23775e+01_rb,0.30973e+01_rb,0.33174e+01_rb,0.19363e+01_rb /)
+      kbo(:, 4,39,10) = (/ &
+        & 0.82312e+00_rb,0.27002e+01_rb,0.35399e+01_rb,0.37881e+01_rb,0.22310e+01_rb /)
+      kbo(:, 5,39,10) = (/ &
+        & 0.10047e+01_rb,0.30719e+01_rb,0.40016e+01_rb,0.42681e+01_rb,0.25376e+01_rb /)
+      kbo(:, 1,40,10) = (/ &
+        & 0.41369e+00_rb,0.17392e+01_rb,0.21979e+01_rb,0.23287e+01_rb,0.13226e+01_rb /)
+      kbo(:, 2,40,10) = (/ &
+        & 0.51051e+00_rb,0.20064e+01_rb,0.25693e+01_rb,0.27492e+01_rb,0.15756e+01_rb /)
+      kbo(:, 3,40,10) = (/ &
+        & 0.62337e+00_rb,0.22909e+01_rb,0.29791e+01_rb,0.31928e+01_rb,0.18532e+01_rb /)
+      kbo(:, 4,40,10) = (/ &
+        & 0.76463e+00_rb,0.26052e+01_rb,0.34168e+01_rb,0.36603e+01_rb,0.21464e+01_rb /)
+      kbo(:, 5,40,10) = (/ &
+        & 0.94032e+00_rb,0.29656e+01_rb,0.38751e+01_rb,0.41396e+01_rb,0.24517e+01_rb /)
+      kbo(:, 1,41,10) = (/ &
+        & 0.37354e+00_rb,0.16561e+01_rb,0.20963e+01_rb,0.22111e+01_rb,0.12469e+01_rb /)
+      kbo(:, 2,41,10) = (/ &
+        & 0.46665e+00_rb,0.19239e+01_rb,0.24587e+01_rb,0.26289e+01_rb,0.14959e+01_rb /)
+      kbo(:, 3,41,10) = (/ &
+        & 0.57545e+00_rb,0.22047e+01_rb,0.28597e+01_rb,0.30659e+01_rb,0.17694e+01_rb /)
+      kbo(:, 4,41,10) = (/ &
+        & 0.70985e+00_rb,0.25106e+01_rb,0.32912e+01_rb,0.35291e+01_rb,0.20606e+01_rb /)
+      kbo(:, 5,41,10) = (/ &
+        & 0.87840e+00_rb,0.28591e+01_rb,0.37457e+01_rb,0.40073e+01_rb,0.23640e+01_rb /)
+      kbo(:, 1,42,10) = (/ &
+        & 0.33676e+00_rb,0.15772e+01_rb,0.19999e+01_rb,0.20973e+01_rb,0.11755e+01_rb /)
+      kbo(:, 2,42,10) = (/ &
+        & 0.42603e+00_rb,0.18429e+01_rb,0.23518e+01_rb,0.25105e+01_rb,0.14196e+01_rb /)
+      kbo(:, 3,42,10) = (/ &
+        & 0.53169e+00_rb,0.21211e+01_rb,0.27440e+01_rb,0.29424e+01_rb,0.16886e+01_rb /)
+      kbo(:, 4,42,10) = (/ &
+        & 0.65992e+00_rb,0.24200e+01_rb,0.31691e+01_rb,0.34004e+01_rb,0.19770e+01_rb /)
+      kbo(:, 5,42,10) = (/ &
+        & 0.82123e+00_rb,0.27572e+01_rb,0.36189e+01_rb,0.38764e+01_rb,0.22780e+01_rb /)
+      kbo(:, 1,43,10) = (/ &
+        & 0.29880e+00_rb,0.14855e+01_rb,0.18883e+01_rb,0.19649e+01_rb,0.10947e+01_rb /)
+      kbo(:, 2,43,10) = (/ &
+        & 0.38323e+00_rb,0.17495e+01_rb,0.22289e+01_rb,0.23704e+01_rb,0.13324e+01_rb /)
+      kbo(:, 3,43,10) = (/ &
+        & 0.48519e+00_rb,0.20243e+01_rb,0.26093e+01_rb,0.27970e+01_rb,0.15948e+01_rb /)
+      kbo(:, 4,43,10) = (/ &
+        & 0.60690e+00_rb,0.23164e+01_rb,0.30260e+01_rb,0.32477e+01_rb,0.18788e+01_rb /)
+      kbo(:, 5,43,10) = (/ &
+        & 0.75876e+00_rb,0.26404e+01_rb,0.34692e+01_rb,0.37199e+01_rb,0.21767e+01_rb /)
+      kbo(:, 1,44,10) = (/ &
+        & 0.26234e+00_rb,0.13896e+01_rb,0.17735e+01_rb,0.18283e+01_rb,0.10125e+01_rb /)
+      kbo(:, 2,44,10) = (/ &
+        & 0.34133e+00_rb,0.16516e+01_rb,0.21029e+01_rb,0.22231e+01_rb,0.12426e+01_rb /)
+      kbo(:, 3,44,10) = (/ &
+        & 0.43896e+00_rb,0.19234e+01_rb,0.24698e+01_rb,0.26446e+01_rb,0.14975e+01_rb /)
+      kbo(:, 4,44,10) = (/ &
+        & 0.55556e+00_rb,0.22104e+01_rb,0.28764e+01_rb,0.30872e+01_rb,0.17758e+01_rb /)
+      kbo(:, 5,44,10) = (/ &
+        & 0.69720e+00_rb,0.25211e+01_rb,0.33108e+01_rb,0.35530e+01_rb,0.20699e+01_rb /)
+      kbo(:, 1,45,10) = (/ &
+        & 0.22932e+00_rb,0.12967e+01_rb,0.16617e+01_rb,0.16976e+01_rb,0.93402e+00_rb /)
+      kbo(:, 2,45,10) = (/ &
+        & 0.30290e+00_rb,0.15560e+01_rb,0.19824e+01_rb,0.20804e+01_rb,0.11566e+01_rb /)
+      kbo(:, 3,45,10) = (/ &
+        & 0.39581e+00_rb,0.18251e+01_rb,0.23356e+01_rb,0.24949e+01_rb,0.14039e+01_rb /)
+      kbo(:, 4,45,10) = (/ &
+        & 0.50777e+00_rb,0.21068e+01_rb,0.27305e+01_rb,0.29300e+01_rb,0.16755e+01_rb /)
+      kbo(:, 5,45,10) = (/ &
+        & 0.64060e+00_rb,0.24073e+01_rb,0.31565e+01_rb,0.33892e+01_rb,0.19653e+01_rb /)
+      kbo(:, 1,46,10) = (/ &
+        & 0.19825e+00_rb,0.12020e+01_rb,0.15457e+01_rb,0.15662e+01_rb,0.85464e+00_rb /)
+      kbo(:, 2,46,10) = (/ &
+        & 0.26591e+00_rb,0.14563e+01_rb,0.18595e+01_rb,0.19337e+01_rb,0.10694e+01_rb /)
+      kbo(:, 3,46,10) = (/ &
+        & 0.35343e+00_rb,0.17232e+01_rb,0.22000e+01_rb,0.23390e+01_rb,0.13083e+01_rb /)
+      kbo(:, 4,46,10) = (/ &
+        & 0.46053e+00_rb,0.19999e+01_rb,0.25801e+01_rb,0.27669e+01_rb,0.15716e+01_rb /)
+      kbo(:, 5,46,10) = (/ &
+        & 0.58556e+00_rb,0.22922e+01_rb,0.29962e+01_rb,0.32174e+01_rb,0.18560e+01_rb /)
+      kbo(:, 1,47,10) = (/ &
+        & 0.16836e+00_rb,0.11008e+01_rb,0.14194e+01_rb,0.14270e+01_rb,0.77061e+00_rb /)
+      kbo(:, 2,47,10) = (/ &
+        & 0.22922e+00_rb,0.13473e+01_rb,0.17277e+01_rb,0.17767e+01_rb,0.97668e+00_rb /)
+      kbo(:, 3,47,10) = (/ &
+        & 0.31004e+00_rb,0.16106e+01_rb,0.20551e+01_rb,0.21688e+01_rb,0.12060e+01_rb /)
+      kbo(:, 4,47,10) = (/ &
+        & 0.41110e+00_rb,0.18840e+01_rb,0.24189e+01_rb,0.25893e+01_rb,0.14598e+01_rb /)
+      kbo(:, 5,47,10) = (/ &
+        & 0.52932e+00_rb,0.21690e+01_rb,0.28216e+01_rb,0.30298e+01_rb,0.17368e+01_rb /)
+      kbo(:, 1,48,10) = (/ &
+        & 0.14220e+00_rb,0.10041e+01_rb,0.12957e+01_rb,0.12963e+01_rb,0.69114e+00_rb /)
+      kbo(:, 2,48,10) = (/ &
+        & 0.19626e+00_rb,0.12419e+01_rb,0.15985e+01_rb,0.16273e+01_rb,0.88794e+00_rb /)
+      kbo(:, 3,48,10) = (/ &
+        & 0.27002e+00_rb,0.15006e+01_rb,0.19169e+01_rb,0.20039e+01_rb,0.11083e+01_rb /)
+      kbo(:, 4,48,10) = (/ &
+        & 0.36488e+00_rb,0.17700e+01_rb,0.22644e+01_rb,0.24151e+01_rb,0.13523e+01_rb /)
+      kbo(:, 5,48,10) = (/ &
+        & 0.47701e+00_rb,0.20494e+01_rb,0.26525e+01_rb,0.28466e+01_rb,0.16205e+01_rb /)
+      kbo(:, 1,49,10) = (/ &
+        & 0.11950e+00_rb,0.91234e+00_rb,0.11755e+01_rb,0.11741e+01_rb,0.61611e+00_rb /)
+      kbo(:, 2,49,10) = (/ &
+        & 0.16698e+00_rb,0.11406e+01_rb,0.14723e+01_rb,0.14860e+01_rb,0.80337e+00_rb /)
+      kbo(:, 3,49,10) = (/ &
+        & 0.23352e+00_rb,0.13921e+01_rb,0.17842e+01_rb,0.18450e+01_rb,0.10147e+01_rb /)
+      kbo(:, 4,49,10) = (/ &
+        & 0.32154e+00_rb,0.16580e+01_rb,0.21177e+01_rb,0.22439e+01_rb,0.12490e+01_rb /)
+      kbo(:, 5,49,10) = (/ &
+        & 0.42774e+00_rb,0.19330e+01_rb,0.24891e+01_rb,0.26683e+01_rb,0.15078e+01_rb /)
+      kbo(:, 1,50,10) = (/ &
+        & 0.10087e+00_rb,0.83065e+00_rb,0.10669e+01_rb,0.10674e+01_rb,0.54936e+00_rb /)
+      kbo(:, 2,50,10) = (/ &
+        & 0.14237e+00_rb,0.10490e+01_rb,0.13561e+01_rb,0.13605e+01_rb,0.72778e+00_rb /)
+      kbo(:, 3,50,10) = (/ &
+        & 0.20234e+00_rb,0.12926e+01_rb,0.16630e+01_rb,0.17021e+01_rb,0.93055e+00_rb /)
+      kbo(:, 4,50,10) = (/ &
+        & 0.28362e+00_rb,0.15546e+01_rb,0.19861e+01_rb,0.20879e+01_rb,0.11563e+01_rb /)
+      kbo(:, 5,50,10) = (/ &
+        & 0.38392e+00_rb,0.18265e+01_rb,0.23423e+01_rb,0.25044e+01_rb,0.14058e+01_rb /)
+      kbo(:, 1,51,10) = (/ &
+        & 0.85305e-01_rb,0.75516e+00_rb,0.96600e+00_rb,0.96989e+00_rb,0.48900e+00_rb /)
+      kbo(:, 2,51,10) = (/ &
+        & 0.12119e+00_rb,0.96396e+00_rb,0.12458e+01_rb,0.12458e+01_rb,0.65803e+00_rb /)
+      kbo(:, 3,51,10) = (/ &
+        & 0.17492e+00_rb,0.11993e+01_rb,0.15474e+01_rb,0.15706e+01_rb,0.85222e+00_rb /)
+      kbo(:, 4,51,10) = (/ &
+        & 0.24953e+00_rb,0.14559e+01_rb,0.18635e+01_rb,0.19410e+01_rb,0.10697e+01_rb /)
+      kbo(:, 5,51,10) = (/ &
+        & 0.34420e+00_rb,0.17250e+01_rb,0.22062e+01_rb,0.23483e+01_rb,0.13105e+01_rb /)
+      kbo(:, 1,52,10) = (/ &
+        & 0.72122e-01_rb,0.68398e+00_rb,0.87088e+00_rb,0.87737e+00_rb,0.43154e+00_rb /)
+      kbo(:, 2,52,10) = (/ &
+        & 0.10277e+00_rb,0.88315e+00_rb,0.11388e+01_rb,0.11383e+01_rb,0.59136e+00_rb /)
+      kbo(:, 3,52,10) = (/ &
+        & 0.15043e+00_rb,0.11094e+01_rb,0.14345e+01_rb,0.14453e+01_rb,0.77736e+00_rb /)
+      kbo(:, 4,52,10) = (/ &
+        & 0.21816e+00_rb,0.13587e+01_rb,0.17451e+01_rb,0.17993e+01_rb,0.98663e+00_rb /)
+      kbo(:, 5,52,10) = (/ &
+        & 0.30639e+00_rb,0.16242e+01_rb,0.20759e+01_rb,0.21951e+01_rb,0.12188e+01_rb /)
+      kbo(:, 1,53,10) = (/ &
+        & 0.60992e-01_rb,0.61681e+00_rb,0.78096e+00_rb,0.78801e+00_rb,0.37771e+00_rb /)
+      kbo(:, 2,53,10) = (/ &
+        & 0.86893e-01_rb,0.80591e+00_rb,0.10354e+01_rb,0.10374e+01_rb,0.52892e+00_rb /)
+      kbo(:, 3,53,10) = (/ &
+        & 0.12844e+00_rb,0.10223e+01_rb,0.13228e+01_rb,0.13263e+01_rb,0.70557e+00_rb /)
+      kbo(:, 4,53,10) = (/ &
+        & 0.18962e+00_rb,0.12639e+01_rb,0.16288e+01_rb,0.16633e+01_rb,0.90648e+00_rb /)
+      kbo(:, 5,53,10) = (/ &
+        & 0.27104e+00_rb,0.15253e+01_rb,0.19505e+01_rb,0.20457e+01_rb,0.11304e+01_rb /)
+      kbo(:, 1,54,10) = (/ &
+        & 0.52146e-01_rb,0.55862e+00_rb,0.70341e+00_rb,0.70953e+00_rb,0.33141e+00_rb /)
+      kbo(:, 2,54,10) = (/ &
+        & 0.74252e-01_rb,0.73817e+00_rb,0.94468e+00_rb,0.94968e+00_rb,0.47420e+00_rb /)
+      kbo(:, 3,54,10) = (/ &
+        & 0.11046e+00_rb,0.94583e+00_rb,0.12229e+01_rb,0.12232e+01_rb,0.64224e+00_rb /)
+      kbo(:, 4,54,10) = (/ &
+        & 0.16584e+00_rb,0.11796e+01_rb,0.15239e+01_rb,0.15447e+01_rb,0.83594e+00_rb /)
+      kbo(:, 5,54,10) = (/ &
+        & 0.24084e+00_rb,0.14356e+01_rb,0.18395e+01_rb,0.19125e+01_rb,0.10521e+01_rb /)
+      kbo(:, 1,55,10) = (/ &
+        & 0.44769e-01_rb,0.50580e+00_rb,0.63367e+00_rb,0.63830e+00_rb,0.29171e+00_rb /)
+      kbo(:, 2,55,10) = (/ &
+        & 0.63801e-01_rb,0.67695e+00_rb,0.86251e+00_rb,0.86950e+00_rb,0.42385e+00_rb /)
+      kbo(:, 3,55,10) = (/ &
+        & 0.95281e-01_rb,0.87561e+00_rb,0.11296e+01_rb,0.11298e+01_rb,0.58465e+00_rb /)
+      kbo(:, 4,55,10) = (/ &
+        & 0.14509e+00_rb,0.11012e+01_rb,0.14250e+01_rb,0.14355e+01_rb,0.77056e+00_rb /)
+      kbo(:, 5,55,10) = (/ &
+        & 0.21402e+00_rb,0.13506e+01_rb,0.17360e+01_rb,0.17888e+01_rb,0.97966e+00_rb /)
+      kbo(:, 1,56,10) = (/ &
+        & 0.38303e-01_rb,0.45495e+00_rb,0.56826e+00_rb,0.57046e+00_rb,0.25591e+00_rb /)
+      kbo(:, 2,56,10) = (/ &
+        & 0.54762e-01_rb,0.61846e+00_rb,0.78411e+00_rb,0.79150e+00_rb,0.37700e+00_rb /)
+      kbo(:, 3,56,10) = (/ &
+        & 0.82009e-01_rb,0.80830e+00_rb,0.10394e+01_rb,0.10417e+01_rb,0.52950e+00_rb /)
+      kbo(:, 4,56,10) = (/ &
+        & 0.12621e+00_rb,0.10253e+01_rb,0.13275e+01_rb,0.13316e+01_rb,0.70721e+00_rb /)
+      kbo(:, 5,56,10) = (/ &
+        & 0.18937e+00_rb,0.12680e+01_rb,0.16344e+01_rb,0.16700e+01_rb,0.90979e+00_rb /)
+      kbo(:, 1,57,10) = (/ &
+        & 0.32632e-01_rb,0.40611e+00_rb,0.50731e+00_rb,0.50659e+00_rb,0.22496e+00_rb /)
+      kbo(:, 2,57,10) = (/ &
+        & 0.47019e-01_rb,0.56304e+00_rb,0.71002e+00_rb,0.71651e+00_rb,0.33305e+00_rb /)
+      kbo(:, 3,57,10) = (/ &
+        & 0.70456e-01_rb,0.74361e+00_rb,0.95266e+00_rb,0.95775e+00_rb,0.47635e+00_rb /)
+      kbo(:, 4,57,10) = (/ &
+        & 0.10937e+00_rb,0.95229e+00_rb,0.12322e+01_rb,0.12329e+01_rb,0.64711e+00_rb /)
+      kbo(:, 5,57,10) = (/ &
+        & 0.16675e+00_rb,0.11875e+01_rb,0.15342e+01_rb,0.15565e+01_rb,0.84216e+00_rb /)
+      kbo(:, 1,58,10) = (/ &
+        & 0.27856e-01_rb,0.36188e+00_rb,0.45369e+00_rb,0.45016e+00_rb,0.19835e+00_rb /)
+      kbo(:, 2,58,10) = (/ &
+        & 0.40581e-01_rb,0.51273e+00_rb,0.64353e+00_rb,0.64865e+00_rb,0.29546e+00_rb /)
+      kbo(:, 3,58,10) = (/ &
+        & 0.60914e-01_rb,0.68524e+00_rb,0.87436e+00_rb,0.88146e+00_rb,0.42903e+00_rb /)
+      kbo(:, 4,58,10) = (/ &
+        & 0.95154e-01_rb,0.88582e+00_rb,0.11439e+01_rb,0.11441e+01_rb,0.59161e+00_rb /)
+      kbo(:, 5,58,10) = (/ &
+        & 0.14715e+00_rb,0.11133e+01_rb,0.14407e+01_rb,0.14528e+01_rb,0.77938e+00_rb /)
+      kbo(:, 1,59,10) = (/ &
+        & 0.25371e-01_rb,0.34461e+00_rb,0.43295e+00_rb,0.42860e+00_rb,0.18805e+00_rb /)
+      kbo(:, 2,59,10) = (/ &
+        & 0.37551e-01_rb,0.49296e+00_rb,0.61778e+00_rb,0.62208e+00_rb,0.28092e+00_rb /)
+      kbo(:, 3,59,10) = (/ &
+        & 0.57031e-01_rb,0.66239e+00_rb,0.84380e+00_rb,0.85137e+00_rb,0.40984e+00_rb /)
+      kbo(:, 4,59,10) = (/ &
+        & 0.89730e-01_rb,0.85967e+00_rb,0.11090e+01_rb,0.11096e+01_rb,0.56882e+00_rb /)
+      kbo(:, 5,59,10) = (/ &
+        & 0.13959e+00_rb,0.10839e+01_rb,0.14035e+01_rb,0.14125e+01_rb,0.75487e+00_rb /)
+      kbo(:, 1,13,11) = (/ &
+        & 0.13518e+02_rb,0.19426e+02_rb,0.21368e+02_rb,0.20607e+02_rb,0.15967e+02_rb /)
+      kbo(:, 2,13,11) = (/ &
+        & 0.13249e+02_rb,0.19278e+02_rb,0.21345e+02_rb,0.20725e+02_rb,0.16218e+02_rb /)
+      kbo(:, 3,13,11) = (/ &
+        & 0.12991e+02_rb,0.19106e+02_rb,0.21344e+02_rb,0.20838e+02_rb,0.16493e+02_rb /)
+      kbo(:, 4,13,11) = (/ &
+        & 0.12783e+02_rb,0.18953e+02_rb,0.21337e+02_rb,0.20959e+02_rb,0.16769e+02_rb /)
+      kbo(:, 5,13,11) = (/ &
+        & 0.12735e+02_rb,0.18820e+02_rb,0.21328e+02_rb,0.21104e+02_rb,0.16982e+02_rb /)
+      kbo(:, 1,14,11) = (/ &
+        & 0.11504e+02_rb,0.17534e+02_rb,0.19457e+02_rb,0.19131e+02_rb,0.14625e+02_rb /)
+      kbo(:, 2,14,11) = (/ &
+        & 0.11281e+02_rb,0.17396e+02_rb,0.19491e+02_rb,0.19271e+02_rb,0.14939e+02_rb /)
+      kbo(:, 3,14,11) = (/ &
+        & 0.11112e+02_rb,0.17290e+02_rb,0.19527e+02_rb,0.19415e+02_rb,0.15255e+02_rb /)
+      kbo(:, 4,14,11) = (/ &
+        & 0.11115e+02_rb,0.17213e+02_rb,0.19560e+02_rb,0.19580e+02_rb,0.15504e+02_rb /)
+      kbo(:, 5,14,11) = (/ &
+        & 0.11342e+02_rb,0.17139e+02_rb,0.19615e+02_rb,0.19759e+02_rb,0.15706e+02_rb /)
+      kbo(:, 1,15,11) = (/ &
+        & 0.98170e+01_rb,0.15599e+02_rb,0.17627e+02_rb,0.17666e+02_rb,0.13354e+02_rb /)
+      kbo(:, 2,15,11) = (/ &
+        & 0.96747e+01_rb,0.15533e+02_rb,0.17695e+02_rb,0.17842e+02_rb,0.13687e+02_rb /)
+      kbo(:, 3,15,11) = (/ &
+        & 0.96984e+01_rb,0.15502e+02_rb,0.17755e+02_rb,0.18036e+02_rb,0.14004e+02_rb /)
+      kbo(:, 4,15,11) = (/ &
+        & 0.99522e+01_rb,0.15480e+02_rb,0.17829e+02_rb,0.18235e+02_rb,0.14263e+02_rb /)
+      kbo(:, 5,15,11) = (/ &
+        & 0.10344e+02_rb,0.15525e+02_rb,0.17929e+02_rb,0.18418e+02_rb,0.14475e+02_rb /)
+      kbo(:, 1,16,11) = (/ &
+        & 0.84332e+01_rb,0.13806e+02_rb,0.15926e+02_rb,0.16215e+02_rb,0.12224e+02_rb /)
+      kbo(:, 2,16,11) = (/ &
+        & 0.84583e+01_rb,0.13805e+02_rb,0.16021e+02_rb,0.16437e+02_rb,0.12556e+02_rb /)
+      kbo(:, 3,16,11) = (/ &
+        & 0.87066e+01_rb,0.13823e+02_rb,0.16108e+02_rb,0.16660e+02_rb,0.12834e+02_rb /)
+      kbo(:, 4,16,11) = (/ &
+        & 0.90827e+01_rb,0.13924e+02_rb,0.16226e+02_rb,0.16883e+02_rb,0.13078e+02_rb /)
+      kbo(:, 5,16,11) = (/ &
+        & 0.95263e+01_rb,0.14156e+02_rb,0.16382e+02_rb,0.17079e+02_rb,0.13334e+02_rb /)
+      kbo(:, 1,17,11) = (/ &
+        & 0.73068e+01_rb,0.12252e+02_rb,0.14341e+02_rb,0.14810e+02_rb,0.11129e+02_rb /)
+      kbo(:, 2,17,11) = (/ &
+        & 0.75295e+01_rb,0.12291e+02_rb,0.14463e+02_rb,0.15052e+02_rb,0.11439e+02_rb /)
+      kbo(:, 3,17,11) = (/ &
+        & 0.78853e+01_rb,0.12405e+02_rb,0.14606e+02_rb,0.15309e+02_rb,0.11729e+02_rb /)
+      kbo(:, 4,17,11) = (/ &
+        & 0.83040e+01_rb,0.12643e+02_rb,0.14776e+02_rb,0.15548e+02_rb,0.12006e+02_rb /)
+      kbo(:, 5,17,11) = (/ &
+        & 0.87123e+01_rb,0.13039e+02_rb,0.14982e+02_rb,0.15762e+02_rb,0.12286e+02_rb /)
+      kbo(:, 1,18,11) = (/ &
+        & 0.64287e+01_rb,0.10933e+02_rb,0.12879e+02_rb,0.13451e+02_rb,0.10053e+02_rb /)
+      kbo(:, 2,18,11) = (/ &
+        & 0.67446e+01_rb,0.11039e+02_rb,0.13041e+02_rb,0.13740e+02_rb,0.10377e+02_rb /)
+      kbo(:, 3,18,11) = (/ &
+        & 0.71271e+01_rb,0.11266e+02_rb,0.13222e+02_rb,0.14018e+02_rb,0.10699e+02_rb /)
+      kbo(:, 4,18,11) = (/ &
+        & 0.75067e+01_rb,0.11650e+02_rb,0.13455e+02_rb,0.14263e+02_rb,0.11011e+02_rb /)
+      kbo(:, 5,18,11) = (/ &
+        & 0.78797e+01_rb,0.12144e+02_rb,0.13766e+02_rb,0.14517e+02_rb,0.11323e+02_rb /)
+      kbo(:, 1,19,11) = (/ &
+        & 0.57165e+01_rb,0.98198e+01_rb,0.11563e+02_rb,0.12210e+02_rb,0.90287e+01_rb /)
+      kbo(:, 2,19,11) = (/ &
+        & 0.60504e+01_rb,0.10030e+02_rb,0.11759e+02_rb,0.12511e+02_rb,0.93771e+01_rb /)
+      kbo(:, 3,19,11) = (/ &
+        & 0.63872e+01_rb,0.10390e+02_rb,0.12004e+02_rb,0.12787e+02_rb,0.97382e+01_rb /)
+      kbo(:, 4,19,11) = (/ &
+        & 0.67262e+01_rb,0.10858e+02_rb,0.12325e+02_rb,0.13071e+02_rb,0.10100e+02_rb /)
+      kbo(:, 5,19,11) = (/ &
+        & 0.70630e+01_rb,0.11396e+02_rb,0.12720e+02_rb,0.13371e+02_rb,0.10433e+02_rb /)
+      kbo(:, 1,20,11) = (/ &
+        & 0.51077e+01_rb,0.88680e+01_rb,0.10415e+02_rb,0.11053e+02_rb,0.80963e+01_rb /)
+      kbo(:, 2,20,11) = (/ &
+        & 0.54017e+01_rb,0.92107e+01_rb,0.10662e+02_rb,0.11361e+02_rb,0.84758e+01_rb /)
+      kbo(:, 3,20,11) = (/ &
+        & 0.57015e+01_rb,0.96698e+01_rb,0.10982e+02_rb,0.11668e+02_rb,0.88481e+01_rb /)
+      kbo(:, 4,20,11) = (/ &
+        & 0.60041e+01_rb,0.10196e+02_rb,0.11384e+02_rb,0.12000e+02_rb,0.92376e+01_rb /)
+      kbo(:, 5,20,11) = (/ &
+        & 0.63106e+01_rb,0.10732e+02_rb,0.11884e+02_rb,0.12349e+02_rb,0.96255e+01_rb /)
+      kbo(:, 1,21,11) = (/ &
+        & 0.45414e+01_rb,0.80841e+01_rb,0.94333e+01_rb,0.10001e+02_rb,0.72987e+01_rb /)
+      kbo(:, 2,21,11) = (/ &
+        & 0.48060e+01_rb,0.85169e+01_rb,0.97399e+01_rb,0.10324e+02_rb,0.76799e+01_rb /)
+      kbo(:, 3,21,11) = (/ &
+        & 0.50754e+01_rb,0.90311e+01_rb,0.10134e+02_rb,0.10673e+02_rb,0.80692e+01_rb /)
+      kbo(:, 4,21,11) = (/ &
+        & 0.53489e+01_rb,0.95660e+01_rb,0.10626e+02_rb,0.11046e+02_rb,0.84671e+01_rb /)
+      kbo(:, 5,21,11) = (/ &
+        & 0.56226e+01_rb,0.10100e+02_rb,0.11188e+02_rb,0.11467e+02_rb,0.88878e+01_rb /)
+      kbo(:, 1,22,11) = (/ &
+        & 0.40512e+01_rb,0.74537e+01_rb,0.86113e+01_rb,0.90760e+01_rb,0.66406e+01_rb /)
+      kbo(:, 2,22,11) = (/ &
+        & 0.42861e+01_rb,0.79455e+01_rb,0.89988e+01_rb,0.94326e+01_rb,0.70298e+01_rb /)
+      kbo(:, 3,22,11) = (/ &
+        & 0.45284e+01_rb,0.84723e+01_rb,0.94806e+01_rb,0.98282e+01_rb,0.74365e+01_rb /)
+      kbo(:, 4,22,11) = (/ &
+        & 0.47765e+01_rb,0.90022e+01_rb,0.10036e+02_rb,0.10267e+02_rb,0.78530e+01_rb /)
+      kbo(:, 5,22,11) = (/ &
+        & 0.50273e+01_rb,0.95375e+01_rb,0.10644e+02_rb,0.10762e+02_rb,0.82925e+01_rb /)
+      kbo(:, 1,23,11) = (/ &
+        & 0.36272e+01_rb,0.69345e+01_rb,0.79292e+01_rb,0.82821e+01_rb,0.60862e+01_rb /)
+      kbo(:, 2,23,11) = (/ &
+        & 0.38324e+01_rb,0.74412e+01_rb,0.84058e+01_rb,0.86779e+01_rb,0.64814e+01_rb /)
+      kbo(:, 3,23,11) = (/ &
+        & 0.40496e+01_rb,0.79556e+01_rb,0.89497e+01_rb,0.91277e+01_rb,0.69031e+01_rb /)
+      kbo(:, 4,23,11) = (/ &
+        & 0.42736e+01_rb,0.84881e+01_rb,0.95512e+01_rb,0.96353e+01_rb,0.73423e+01_rb /)
+      kbo(:, 5,23,11) = (/ &
+        & 0.45008e+01_rb,0.90231e+01_rb,0.10199e+02_rb,0.10196e+02_rb,0.78107e+01_rb /)
+      kbo(:, 1,24,11) = (/ &
+        & 0.32617e+01_rb,0.64927e+01_rb,0.73814e+01_rb,0.76204e+01_rb,0.56351e+01_rb /)
+      kbo(:, 2,24,11) = (/ &
+        & 0.34455e+01_rb,0.69864e+01_rb,0.79146e+01_rb,0.80668e+01_rb,0.60482e+01_rb /)
+      kbo(:, 3,24,11) = (/ &
+        & 0.36375e+01_rb,0.74982e+01_rb,0.85124e+01_rb,0.85688e+01_rb,0.64793e+01_rb /)
+      kbo(:, 4,24,11) = (/ &
+        & 0.38361e+01_rb,0.80253e+01_rb,0.91530e+01_rb,0.91384e+01_rb,0.69488e+01_rb /)
+      kbo(:, 5,24,11) = (/ &
+        & 0.40434e+01_rb,0.85770e+01_rb,0.98249e+01_rb,0.97701e+01_rb,0.74392e+01_rb /)
+      kbo(:, 1,25,11) = (/ &
+        & 0.29504e+01_rb,0.60996e+01_rb,0.69378e+01_rb,0.70933e+01_rb,0.52696e+01_rb /)
+      kbo(:, 2,25,11) = (/ &
+        & 0.31134e+01_rb,0.65859e+01_rb,0.75193e+01_rb,0.75874e+01_rb,0.56908e+01_rb /)
+      kbo(:, 3,25,11) = (/ &
+        & 0.32850e+01_rb,0.70991e+01_rb,0.81583e+01_rb,0.81455e+01_rb,0.61504e+01_rb /)
+      kbo(:, 4,25,11) = (/ &
+        & 0.34639e+01_rb,0.76357e+01_rb,0.88289e+01_rb,0.87766e+01_rb,0.66391e+01_rb /)
+      kbo(:, 5,25,11) = (/ &
+        & 0.36575e+01_rb,0.82031e+01_rb,0.95335e+01_rb,0.94728e+01_rb,0.71181e+01_rb /)
+      kbo(:, 1,26,11) = (/ &
+        & 0.26785e+01_rb,0.57592e+01_rb,0.65944e+01_rb,0.66793e+01_rb,0.49659e+01_rb /)
+      kbo(:, 2,26,11) = (/ &
+        & 0.28303e+01_rb,0.62512e+01_rb,0.72180e+01_rb,0.72292e+01_rb,0.54158e+01_rb /)
+      kbo(:, 3,26,11) = (/ &
+        & 0.29845e+01_rb,0.67700e+01_rb,0.78853e+01_rb,0.78517e+01_rb,0.58929e+01_rb /)
+      kbo(:, 4,26,11) = (/ &
+        & 0.31498e+01_rb,0.73218e+01_rb,0.85892e+01_rb,0.85405e+01_rb,0.63779e+01_rb /)
+      kbo(:, 5,26,11) = (/ &
+        & 0.33365e+01_rb,0.79095e+01_rb,0.93260e+01_rb,0.92876e+01_rb,0.68593e+01_rb /)
+      kbo(:, 1,27,11) = (/ &
+        & 0.24381e+01_rb,0.54719e+01_rb,0.63296e+01_rb,0.63699e+01_rb,0.47378e+01_rb /)
+      kbo(:, 2,27,11) = (/ &
+        & 0.25833e+01_rb,0.59706e+01_rb,0.69839e+01_rb,0.69809e+01_rb,0.52024e+01_rb /)
+      kbo(:, 3,27,11) = (/ &
+        & 0.27276e+01_rb,0.65032e+01_rb,0.76823e+01_rb,0.76623e+01_rb,0.56849e+01_rb /)
+      kbo(:, 4,27,11) = (/ &
+        & 0.28843e+01_rb,0.70768e+01_rb,0.84223e+01_rb,0.83973e+01_rb,0.61613e+01_rb /)
+      kbo(:, 5,27,11) = (/ &
+        & 0.30776e+01_rb,0.76837e+01_rb,0.91929e+01_rb,0.91871e+01_rb,0.66697e+01_rb /)
+      kbo(:, 1,28,11) = (/ &
+        & 0.22238e+01_rb,0.52366e+01_rb,0.61335e+01_rb,0.61574e+01_rb,0.45705e+01_rb /)
+      kbo(:, 2,28,11) = (/ &
+        & 0.23648e+01_rb,0.57451e+01_rb,0.68151e+01_rb,0.68266e+01_rb,0.50347e+01_rb /)
+      kbo(:, 3,28,11) = (/ &
+        & 0.25067e+01_rb,0.62980e+01_rb,0.75460e+01_rb,0.75548e+01_rb,0.55064e+01_rb /)
+      kbo(:, 4,28,11) = (/ &
+        & 0.26680e+01_rb,0.68930e+01_rb,0.83223e+01_rb,0.83308e+01_rb,0.60103e+01_rb /)
+      kbo(:, 5,28,11) = (/ &
+        & 0.28763e+01_rb,0.75234e+01_rb,0.91269e+01_rb,0.91547e+01_rb,0.65443e+01_rb /)
+      kbo(:, 1,29,11) = (/ &
+        & 0.20343e+01_rb,0.50540e+01_rb,0.60021e+01_rb,0.60360e+01_rb,0.44306e+01_rb /)
+      kbo(:, 2,29,11) = (/ &
+        & 0.21732e+01_rb,0.55785e+01_rb,0.67134e+01_rb,0.67544e+01_rb,0.48924e+01_rb /)
+      kbo(:, 3,29,11) = (/ &
+        & 0.23217e+01_rb,0.61554e+01_rb,0.74828e+01_rb,0.75217e+01_rb,0.53899e+01_rb /)
+      kbo(:, 4,29,11) = (/ &
+        & 0.24991e+01_rb,0.67727e+01_rb,0.82943e+01_rb,0.83341e+01_rb,0.59211e+01_rb /)
+      kbo(:, 5,29,11) = (/ &
+        & 0.27298e+01_rb,0.74309e+01_rb,0.91294e+01_rb,0.91877e+01_rb,0.64776e+01_rb /)
+      kbo(:, 1,30,11) = (/ &
+        & 0.18678e+01_rb,0.49203e+01_rb,0.59291e+01_rb,0.59875e+01_rb,0.43204e+01_rb /)
+      kbo(:, 2,30,11) = (/ &
+        & 0.20102e+01_rb,0.54667e+01_rb,0.66747e+01_rb,0.67430e+01_rb,0.48026e+01_rb /)
+      kbo(:, 3,30,11) = (/ &
+        & 0.21719e+01_rb,0.60682e+01_rb,0.74827e+01_rb,0.75477e+01_rb,0.53281e+01_rb /)
+      kbo(:, 4,30,11) = (/ &
+        & 0.23720e+01_rb,0.67126e+01_rb,0.83252e+01_rb,0.83910e+01_rb,0.58826e+01_rb /)
+      kbo(:, 5,30,11) = (/ &
+        & 0.26264e+01_rb,0.73977e+01_rb,0.91870e+01_rb,0.92723e+01_rb,0.64598e+01_rb /)
+      kbo(:, 1,31,11) = (/ &
+        & 0.17244e+01_rb,0.48370e+01_rb,0.59156e+01_rb,0.60001e+01_rb,0.42555e+01_rb /)
+      kbo(:, 2,31,11) = (/ &
+        & 0.18755e+01_rb,0.54107e+01_rb,0.66999e+01_rb,0.67904e+01_rb,0.47644e+01_rb /)
+      kbo(:, 3,31,11) = (/ &
+        & 0.20573e+01_rb,0.60363e+01_rb,0.75402e+01_rb,0.76274e+01_rb,0.53155e+01_rb /)
+      kbo(:, 4,31,11) = (/ &
+        & 0.22829e+01_rb,0.67094e+01_rb,0.84079e+01_rb,0.84962e+01_rb,0.58901e+01_rb /)
+      kbo(:, 5,31,11) = (/ &
+        & 0.25590e+01_rb,0.74195e+01_rb,0.92909e+01_rb,0.93994e+01_rb,0.64871e+01_rb /)
+      kbo(:, 1,32,11) = (/ &
+        & 0.16069e+01_rb,0.48030e+01_rb,0.59579e+01_rb,0.60639e+01_rb,0.42356e+01_rb /)
+      kbo(:, 2,32,11) = (/ &
+        & 0.17705e+01_rb,0.54037e+01_rb,0.67788e+01_rb,0.68874e+01_rb,0.47712e+01_rb /)
+      kbo(:, 3,32,11) = (/ &
+        & 0.19742e+01_rb,0.60574e+01_rb,0.76448e+01_rb,0.77491e+01_rb,0.53434e+01_rb /)
+      kbo(:, 4,32,11) = (/ &
+        & 0.22247e+01_rb,0.67560e+01_rb,0.85310e+01_rb,0.86385e+01_rb,0.59381e+01_rb /)
+      kbo(:, 5,32,11) = (/ &
+        & 0.25238e+01_rb,0.74880e+01_rb,0.94292e+01_rb,0.95570e+01_rb,0.65497e+01_rb /)
+      kbo(:, 1,33,11) = (/ &
+        & 0.15128e+01_rb,0.48140e+01_rb,0.60501e+01_rb,0.61714e+01_rb,0.42550e+01_rb /)
+      kbo(:, 2,33,11) = (/ &
+        & 0.16946e+01_rb,0.54417e+01_rb,0.69000e+01_rb,0.70212e+01_rb,0.48155e+01_rb /)
+      kbo(:, 3,33,11) = (/ &
+        & 0.19206e+01_rb,0.61213e+01_rb,0.77839e+01_rb,0.79020e+01_rb,0.54069e+01_rb /)
+      kbo(:, 4,33,11) = (/ &
+        & 0.21946e+01_rb,0.68422e+01_rb,0.86827e+01_rb,0.88075e+01_rb,0.60169e+01_rb /)
+      kbo(:, 5,33,11) = (/ &
+        & 0.25173e+01_rb,0.75913e+01_rb,0.95924e+01_rb,0.97373e+01_rb,0.66398e+01_rb /)
+      kbo(:, 1,34,11) = (/ &
+        & 0.14356e+01_rb,0.48418e+01_rb,0.61495e+01_rb,0.62828e+01_rb,0.42896e+01_rb /)
+      kbo(:, 2,34,11) = (/ &
+        & 0.16357e+01_rb,0.54935e+01_rb,0.70184e+01_rb,0.71516e+01_rb,0.48691e+01_rb /)
+      kbo(:, 3,34,11) = (/ &
+        & 0.18838e+01_rb,0.61957e+01_rb,0.79151e+01_rb,0.80457e+01_rb,0.54742e+01_rb /)
+      kbo(:, 4,34,11) = (/ &
+        & 0.21788e+01_rb,0.69325e+01_rb,0.88256e+01_rb,0.89643e+01_rb,0.60956e+01_rb /)
+      kbo(:, 5,34,11) = (/ &
+        & 0.25238e+01_rb,0.76930e+01_rb,0.97439e+01_rb,0.99021e+01_rb,0.67264e+01_rb /)
+      kbo(:, 1,35,11) = (/ &
+        & 0.13620e+01_rb,0.48400e+01_rb,0.61911e+01_rb,0.63341e+01_rb,0.42950e+01_rb /)
+      kbo(:, 2,35,11) = (/ &
+        & 0.15765e+01_rb,0.55077e+01_rb,0.70717e+01_rb,0.72149e+01_rb,0.48872e+01_rb /)
+      kbo(:, 3,35,11) = (/ &
+        & 0.18416e+01_rb,0.62238e+01_rb,0.79778e+01_rb,0.81173e+01_rb,0.55014e+01_rb /)
+      kbo(:, 4,35,11) = (/ &
+        & 0.21528e+01_rb,0.69694e+01_rb,0.88951e+01_rb,0.90430e+01_rb,0.61304e+01_rb /)
+      kbo(:, 5,35,11) = (/ &
+        & 0.25135e+01_rb,0.77370e+01_rb,0.98191e+01_rb,0.99865e+01_rb,0.67662e+01_rb /)
+      kbo(:, 1,36,11) = (/ &
+        & 0.12836e+01_rb,0.47892e+01_rb,0.61549e+01_rb,0.63050e+01_rb,0.42540e+01_rb /)
+      kbo(:, 2,36,11) = (/ &
+        & 0.15070e+01_rb,0.54649e+01_rb,0.70416e+01_rb,0.71923e+01_rb,0.48536e+01_rb /)
+      kbo(:, 3,36,11) = (/ &
+        & 0.17830e+01_rb,0.61872e+01_rb,0.79531e+01_rb,0.80994e+01_rb,0.54734e+01_rb /)
+      kbo(:, 4,36,11) = (/ &
+        & 0.21055e+01_rb,0.69369e+01_rb,0.88745e+01_rb,0.90288e+01_rb,0.61066e+01_rb /)
+      kbo(:, 5,36,11) = (/ &
+        & 0.24754e+01_rb,0.77090e+01_rb,0.98023e+01_rb,0.99759e+01_rb,0.67459e+01_rb /)
+      kbo(:, 1,37,11) = (/ &
+        & 0.11878e+01_rb,0.46541e+01_rb,0.59975e+01_rb,0.61531e+01_rb,0.41357e+01_rb /)
+      kbo(:, 2,37,11) = (/ &
+        & 0.14114e+01_rb,0.53279e+01_rb,0.68836e+01_rb,0.70407e+01_rb,0.47366e+01_rb /)
+      kbo(:, 3,37,11) = (/ &
+        & 0.16907e+01_rb,0.60488e+01_rb,0.77961e+01_rb,0.79492e+01_rb,0.53587e+01_rb /)
+      kbo(:, 4,37,11) = (/ &
+        & 0.20171e+01_rb,0.67987e+01_rb,0.87214e+01_rb,0.88782e+01_rb,0.59931e+01_rb /)
+      kbo(:, 5,37,11) = (/ &
+        & 0.23879e+01_rb,0.75721e+01_rb,0.96505e+01_rb,0.98263e+01_rb,0.66346e+01_rb /)
+      kbo(:, 1,38,11) = (/ &
+        & 0.11019e+01_rb,0.45241e+01_rb,0.58411e+01_rb,0.60015e+01_rb,0.40206e+01_rb /)
+      kbo(:, 2,38,11) = (/ &
+        & 0.13240e+01_rb,0.51938e+01_rb,0.67248e+01_rb,0.68881e+01_rb,0.46215e+01_rb /)
+      kbo(:, 3,38,11) = (/ &
+        & 0.16050e+01_rb,0.59127e+01_rb,0.76377e+01_rb,0.77969e+01_rb,0.52444e+01_rb /)
+      kbo(:, 4,38,11) = (/ &
+        & 0.19344e+01_rb,0.66614e+01_rb,0.85656e+01_rb,0.87241e+01_rb,0.58797e+01_rb /)
+      kbo(:, 5,38,11) = (/ &
+        & 0.23053e+01_rb,0.74352e+01_rb,0.94961e+01_rb,0.96730e+01_rb,0.65232e+01_rb /)
+      kbo(:, 1,39,11) = (/ &
+        & 0.10261e+01_rb,0.44035e+01_rb,0.56925e+01_rb,0.58571e+01_rb,0.39130e+01_rb /)
+      kbo(:, 2,39,11) = (/ &
+        & 0.12458e+01_rb,0.50694e+01_rb,0.65735e+01_rb,0.67411e+01_rb,0.45130e+01_rb /)
+      kbo(:, 3,39,11) = (/ &
+        & 0.15281e+01_rb,0.57844e+01_rb,0.74853e+01_rb,0.76497e+01_rb,0.51353e+01_rb /)
+      kbo(:, 4,39,11) = (/ &
+        & 0.18590e+01_rb,0.65310e+01_rb,0.84139e+01_rb,0.85752e+01_rb,0.57711e+01_rb /)
+      kbo(:, 5,39,11) = (/ &
+        & 0.22296e+01_rb,0.73031e+01_rb,0.93461e+01_rb,0.95233e+01_rb,0.64155e+01_rb /)
+      kbo(:, 1,40,11) = (/ &
+        & 0.94020e+00_rb,0.42252e+01_rb,0.54618e+01_rb,0.56305e+01_rb,0.37514e+01_rb /)
+      kbo(:, 2,40,11) = (/ &
+        & 0.11510e+01_rb,0.48808e+01_rb,0.63359e+01_rb,0.65051e+01_rb,0.43464e+01_rb /)
+      kbo(:, 3,40,11) = (/ &
+        & 0.14267e+01_rb,0.55865e+01_rb,0.72429e+01_rb,0.74116e+01_rb,0.49659e+01_rb /)
+      kbo(:, 4,40,11) = (/ &
+        & 0.17534e+01_rb,0.63284e+01_rb,0.81706e+01_rb,0.83346e+01_rb,0.56004e+01_rb /)
+      kbo(:, 5,40,11) = (/ &
+        & 0.21196e+01_rb,0.70954e+01_rb,0.91038e+01_rb,0.92790e+01_rb,0.62443e+01_rb /)
+      kbo(:, 1,41,11) = (/ &
+        & 0.86129e+00_rb,0.40457e+01_rb,0.52264e+01_rb,0.53976e+01_rb,0.35879e+01_rb /)
+      kbo(:, 2,41,11) = (/ &
+        & 0.10633e+01_rb,0.46915e+01_rb,0.60924e+01_rb,0.62635e+01_rb,0.41768e+01_rb /)
+      kbo(:, 3,41,11) = (/ &
+        & 0.13283e+01_rb,0.53845e+01_rb,0.69926e+01_rb,0.71649e+01_rb,0.47921e+01_rb /)
+      kbo(:, 4,41,11) = (/ &
+        & 0.16485e+01_rb,0.61201e+01_rb,0.79175e+01_rb,0.80844e+01_rb,0.54240e+01_rb /)
+      kbo(:, 5,41,11) = (/ &
+        & 0.20093e+01_rb,0.68812e+01_rb,0.88522e+01_rb,0.90249e+01_rb,0.60668e+01_rb /)
+      kbo(:, 1,42,11) = (/ &
+        & 0.79123e+00_rb,0.38735e+01_rb,0.49960e+01_rb,0.51699e+01_rb,0.34287e+01_rb /)
+      kbo(:, 2,42,11) = (/ &
+        & 0.98295e+00_rb,0.45072e+01_rb,0.58533e+01_rb,0.60254e+01_rb,0.40109e+01_rb /)
+      kbo(:, 3,42,11) = (/ &
+        & 0.12364e+01_rb,0.51876e+01_rb,0.67459e+01_rb,0.69214e+01_rb,0.46212e+01_rb /)
+      kbo(:, 4,42,11) = (/ &
+        & 0.15484e+01_rb,0.59150e+01_rb,0.76665e+01_rb,0.78373e+01_rb,0.52503e+01_rb /)
+      kbo(:, 5,42,11) = (/ &
+        & 0.19026e+01_rb,0.66716e+01_rb,0.86018e+01_rb,0.87728e+01_rb,0.58915e+01_rb /)
+      kbo(:, 1,43,11) = (/ &
+        & 0.71984e+00_rb,0.36729e+01_rb,0.47235e+01_rb,0.48975e+01_rb,0.32397e+01_rb /)
+      kbo(:, 2,43,11) = (/ &
+        & 0.89808e+00_rb,0.42916e+01_rb,0.55697e+01_rb,0.57443e+01_rb,0.38153e+01_rb /)
+      kbo(:, 3,43,11) = (/ &
+        & 0.11360e+01_rb,0.49574e+01_rb,0.64519e+01_rb,0.66289e+01_rb,0.44184e+01_rb /)
+      kbo(:, 4,43,11) = (/ &
+        & 0.14345e+01_rb,0.56728e+01_rb,0.73660e+01_rb,0.75410e+01_rb,0.50437e+01_rb /)
+      kbo(:, 5,43,11) = (/ &
+        & 0.17793e+01_rb,0.64228e+01_rb,0.82999e+01_rb,0.84705e+01_rb,0.56823e+01_rb /)
+      kbo(:, 1,44,11) = (/ &
+        & 0.65285e+00_rb,0.34667e+01_rb,0.44372e+01_rb,0.46082e+01_rb,0.30399e+01_rb /)
+      kbo(:, 2,44,11) = (/ &
+        & 0.81657e+00_rb,0.40674e+01_rb,0.52701e+01_rb,0.54466e+01_rb,0.36094e+01_rb /)
+      kbo(:, 3,44,11) = (/ &
+        & 0.10370e+01_rb,0.47171e+01_rb,0.61405e+01_rb,0.63175e+01_rb,0.42038e+01_rb /)
+      kbo(:, 4,44,11) = (/ &
+        & 0.13194e+01_rb,0.54184e+01_rb,0.70473e+01_rb,0.72248e+01_rb,0.48237e+01_rb /)
+      kbo(:, 5,44,11) = (/ &
+        & 0.16514e+01_rb,0.61584e+01_rb,0.79760e+01_rb,0.81477e+01_rb,0.54581e+01_rb /)
+      kbo(:, 1,45,11) = (/ &
+        & 0.59324e+00_rb,0.32687e+01_rb,0.41610e+01_rb,0.43270e+01_rb,0.28437e+01_rb /)
+      kbo(:, 2,45,11) = (/ &
+        & 0.74292e+00_rb,0.38502e+01_rb,0.49754e+01_rb,0.51525e+01_rb,0.34081e+01_rb /)
+      kbo(:, 3,45,11) = (/ &
+        & 0.94606e+00_rb,0.44838e+01_rb,0.58347e+01_rb,0.60112e+01_rb,0.39932e+01_rb /)
+      kbo(:, 4,45,11) = (/ &
+        & 0.12103e+01_rb,0.51691e+01_rb,0.67312e+01_rb,0.69113e+01_rb,0.46063e+01_rb /)
+      kbo(:, 5,45,11) = (/ &
+        & 0.15283e+01_rb,0.58970e+01_rb,0.76529e+01_rb,0.78283e+01_rb,0.52365e+01_rb /)
+      kbo(:, 1,46,11) = (/ &
+        & 0.53665e+00_rb,0.30665e+01_rb,0.38788e+01_rb,0.40344e+01_rb,0.26396e+01_rb /)
+      kbo(:, 2,46,11) = (/ &
+        & 0.67326e+00_rb,0.36275e+01_rb,0.46685e+01_rb,0.48445e+01_rb,0.31970e+01_rb /)
+      kbo(:, 3,46,11) = (/ &
+        & 0.85964e+00_rb,0.42450e+01_rb,0.55161e+01_rb,0.56940e+01_rb,0.37742e+01_rb /)
+      kbo(:, 4,46,11) = (/ &
+        & 0.11026e+01_rb,0.49112e+01_rb,0.63992e+01_rb,0.65795e+01_rb,0.43785e+01_rb /)
+      kbo(:, 5,46,11) = (/ &
+        & 0.14030e+01_rb,0.56247e+01_rb,0.73128e+01_rb,0.74918e+01_rb,0.50037e+01_rb /)
+      kbo(:, 1,47,11) = (/ &
+        & 0.47965e+00_rb,0.28512e+01_rb,0.35773e+01_rb,0.37190e+01_rb,0.24179e+01_rb /)
+      kbo(:, 2,47,11) = (/ &
+        & 0.60499e+00_rb,0.33895e+01_rb,0.43353e+01_rb,0.45070e+01_rb,0.29653e+01_rb /)
+      kbo(:, 3,47,11) = (/ &
+        & 0.77211e+00_rb,0.39857e+01_rb,0.51656e+01_rb,0.53439e+01_rb,0.35346e+01_rb /)
+      kbo(:, 4,47,11) = (/ &
+        & 0.99280e+00_rb,0.46320e+01_rb,0.60346e+01_rb,0.62138e+01_rb,0.41278e+01_rb /)
+      kbo(:, 5,47,11) = (/ &
+        & 0.12711e+01_rb,0.53272e+01_rb,0.69377e+01_rb,0.71189e+01_rb,0.47464e+01_rb /)
+      kbo(:, 1,48,11) = (/ &
+        & 0.42651e+00_rb,0.26445e+01_rb,0.32894e+01_rb,0.34148e+01_rb,0.22033e+01_rb /)
+      kbo(:, 2,48,11) = (/ &
+        & 0.54388e+00_rb,0.31611e+01_rb,0.40161e+01_rb,0.41791e+01_rb,0.27373e+01_rb /)
+      kbo(:, 3,48,11) = (/ &
+        & 0.69368e+00_rb,0.37347e+01_rb,0.48206e+01_rb,0.49989e+01_rb,0.32997e+01_rb /)
+      kbo(:, 4,48,11) = (/ &
+        & 0.89279e+00_rb,0.43620e+01_rb,0.56767e+01_rb,0.58554e+01_rb,0.38822e+01_rb /)
+      kbo(:, 5,48,11) = (/ &
+        & 0.11484e+01_rb,0.50369e+01_rb,0.65668e+01_rb,0.67495e+01_rb,0.44918e+01_rb /)
+      kbo(:, 1,49,11) = (/ &
+        & 0.37713e+00_rb,0.24439e+01_rb,0.30160e+01_rb,0.31206e+01_rb,0.19976e+01_rb /)
+      kbo(:, 2,49,11) = (/ &
+        & 0.48766e+00_rb,0.29434e+01_rb,0.37104e+01_rb,0.38599e+01_rb,0.25143e+01_rb /)
+      kbo(:, 3,49,11) = (/ &
+        & 0.62407e+00_rb,0.34939e+01_rb,0.44847e+01_rb,0.46596e+01_rb,0.30680e+01_rb /)
+      kbo(:, 4,49,11) = (/ &
+        & 0.80298e+00_rb,0.41006e+01_rb,0.53255e+01_rb,0.55049e+01_rb,0.36413e+01_rb /)
+      kbo(:, 5,49,11) = (/ &
+        & 0.10353e+01_rb,0.47554e+01_rb,0.62010e+01_rb,0.63820e+01_rb,0.42407e+01_rb /)
+      kbo(:, 1,50,11) = (/ &
+        & 0.33334e+00_rb,0.22573e+01_rb,0.27730e+01_rb,0.28537e+01_rb,0.18141e+01_rb /)
+      kbo(:, 2,50,11) = (/ &
+        & 0.43824e+00_rb,0.27477e+01_rb,0.34359e+01_rb,0.35712e+01_rb,0.23112e+01_rb /)
+      kbo(:, 3,50,11) = (/ &
+        & 0.56555e+00_rb,0.32767e+01_rb,0.41807e+01_rb,0.43497e+01_rb,0.28540e+01_rb /)
+      kbo(:, 4,50,11) = (/ &
+        & 0.72662e+00_rb,0.38631e+01_rb,0.50003e+01_rb,0.51798e+01_rb,0.34206e+01_rb /)
+      kbo(:, 5,50,11) = (/ &
+        & 0.93811e+00_rb,0.44998e+01_rb,0.58635e+01_rb,0.60433e+01_rb,0.40092e+01_rb /)
+      kbo(:, 1,51,11) = (/ &
+        & 0.29344e+00_rb,0.20792e+01_rb,0.25493e+01_rb,0.26045e+01_rb,0.16447e+01_rb /)
+      kbo(:, 2,51,11) = (/ &
+        & 0.39320e+00_rb,0.25633e+01_rb,0.31811e+01_rb,0.32996e+01_rb,0.21202e+01_rb /)
+      kbo(:, 3,51,11) = (/ &
+        & 0.51335e+00_rb,0.30739e+01_rb,0.38968e+01_rb,0.40554e+01_rb,0.26493e+01_rb /)
+      kbo(:, 4,51,11) = (/ &
+        & 0.65991e+00_rb,0.36396e+01_rb,0.46910e+01_rb,0.48692e+01_rb,0.32095e+01_rb /)
+      kbo(:, 5,51,11) = (/ &
+        & 0.85305e+00_rb,0.42602e+01_rb,0.55428e+01_rb,0.57227e+01_rb,0.37890e+01_rb /)
+      kbo(:, 1,52,11) = (/ &
+        & 0.25634e+00_rb,0.19065e+01_rb,0.23373e+01_rb,0.23675e+01_rb,0.14849e+01_rb /)
+      kbo(:, 2,52,11) = (/ &
+        & 0.35085e+00_rb,0.23832e+01_rb,0.29380e+01_rb,0.30363e+01_rb,0.19379e+01_rb /)
+      kbo(:, 3,52,11) = (/ &
+        & 0.46463e+00_rb,0.28806e+01_rb,0.36245e+01_rb,0.37705e+01_rb,0.24499e+01_rb /)
+      kbo(:, 4,52,11) = (/ &
+        & 0.60014e+00_rb,0.34247e+01_rb,0.43901e+01_rb,0.45644e+01_rb,0.30013e+01_rb /)
+      kbo(:, 5,52,11) = (/ &
+        & 0.77502e+00_rb,0.40268e+01_rb,0.52264e+01_rb,0.54064e+01_rb,0.35729e+01_rb /)
+      kbo(:, 1,53,11) = (/ &
+        & 0.22198e+00_rb,0.17382e+01_rb,0.21355e+01_rb,0.21443e+01_rb,0.13321e+01_rb /)
+      kbo(:, 2,53,11) = (/ &
+        & 0.31088e+00_rb,0.22037e+01_rb,0.27070e+01_rb,0.27809e+01_rb,0.17631e+01_rb /)
+      kbo(:, 3,53,11) = (/ &
+        & 0.41868e+00_rb,0.26937e+01_rb,0.33628e+01_rb,0.34937e+01_rb,0.22551e+01_rb /)
+      kbo(:, 4,53,11) = (/ &
+        & 0.54590e+00_rb,0.32172e+01_rb,0.40994e+01_rb,0.42669e+01_rb,0.27950e+01_rb /)
+      kbo(:, 5,53,11) = (/ &
+        & 0.70382e+00_rb,0.37993e+01_rb,0.49134e+01_rb,0.50934e+01_rb,0.33609e+01_rb /)
+      kbo(:, 1,54,11) = (/ &
+        & 0.19279e+00_rb,0.15884e+01_rb,0.19576e+01_rb,0.19516e+01_rb,0.11991e+01_rb /)
+      kbo(:, 2,54,11) = (/ &
+        & 0.27614e+00_rb,0.20423e+01_rb,0.25053e+01_rb,0.25559e+01_rb,0.16106e+01_rb /)
+      kbo(:, 3,54,11) = (/ &
+        & 0.37900e+00_rb,0.25264e+01_rb,0.31323e+01_rb,0.32473e+01_rb,0.20825e+01_rb /)
+      kbo(:, 4,54,11) = (/ &
+        & 0.49954e+00_rb,0.30344e+01_rb,0.38425e+01_rb,0.39994e+01_rb,0.26090e+01_rb /)
+      kbo(:, 5,54,11) = (/ &
+        & 0.64483e+00_rb,0.35967e+01_rb,0.46320e+01_rb,0.48104e+01_rb,0.31683e+01_rb /)
+      kbo(:, 1,55,11) = (/ &
+        & 0.16752e+00_rb,0.14506e+01_rb,0.17924e+01_rb,0.17780e+01_rb,0.10766e+01_rb /)
+      kbo(:, 2,55,11) = (/ &
+        & 0.24546e+00_rb,0.18924e+01_rb,0.23215e+01_rb,0.23502e+01_rb,0.14718e+01_rb /)
+      kbo(:, 3,55,11) = (/ &
+        & 0.34282e+00_rb,0.23686e+01_rb,0.29203e+01_rb,0.30171e+01_rb,0.19238e+01_rb /)
+      kbo(:, 4,55,11) = (/ &
+        & 0.45751e+00_rb,0.28657e+01_rb,0.36048e+01_rb,0.37504e+01_rb,0.24347e+01_rb /)
+      kbo(:, 5,55,11) = (/ &
+        & 0.59345e+00_rb,0.34091e+01_rb,0.43692e+01_rb,0.45436e+01_rb,0.29860e+01_rb /)
+      kbo(:, 1,56,11) = (/ &
+        & 0.14442e+00_rb,0.13191e+01_rb,0.16307e+01_rb,0.16158e+01_rb,0.95966e+00_rb /)
+      kbo(:, 2,56,11) = (/ &
+        & 0.21629e+00_rb,0.17456e+01_rb,0.21454e+01_rb,0.21553e+01_rb,0.13384e+01_rb /)
+      kbo(:, 3,56,11) = (/ &
+        & 0.30838e+00_rb,0.22117e+01_rb,0.27184e+01_rb,0.27939e+01_rb,0.17710e+01_rb /)
+      kbo(:, 4,56,11) = (/ &
+        & 0.41780e+00_rb,0.27024e+01_rb,0.33761e+01_rb,0.35083e+01_rb,0.22647e+01_rb /)
+      kbo(:, 5,56,11) = (/ &
+        & 0.54633e+00_rb,0.32277e+01_rb,0.41153e+01_rb,0.42835e+01_rb,0.28057e+01_rb /)
+      kbo(:, 1,57,11) = (/ &
+        & 0.12369e+00_rb,0.11942e+01_rb,0.14751e+01_rb,0.14660e+01_rb,0.84794e+00_rb /)
+      kbo(:, 2,57,11) = (/ &
+        & 0.18943e+00_rb,0.16025e+01_rb,0.19752e+01_rb,0.19706e+01_rb,0.12104e+01_rb /)
+      kbo(:, 3,57,11) = (/ &
+        & 0.27580e+00_rb,0.20577e+01_rb,0.25253e+01_rb,0.25785e+01_rb,0.16249e+01_rb /)
+      kbo(:, 4,57,11) = (/ &
+        & 0.38015e+00_rb,0.25425e+01_rb,0.31554e+01_rb,0.32724e+01_rb,0.20995e+01_rb /)
+      kbo(:, 5,57,11) = (/ &
+        & 0.50220e+00_rb,0.30528e+01_rb,0.38694e+01_rb,0.40275e+01_rb,0.26279e+01_rb /)
+      kbo(:, 1,58,11) = (/ &
+        & 0.10619e+00_rb,0.10815e+01_rb,0.13338e+01_rb,0.13340e+01_rb,0.74924e+00_rb /)
+      kbo(:, 2,58,11) = (/ &
+        & 0.16586e+00_rb,0.14713e+01_rb,0.18183e+01_rb,0.18047e+01_rb,0.10933e+01_rb /)
+      kbo(:, 3,58,11) = (/ &
+        & 0.24668e+00_rb,0.19150e+01_rb,0.23498e+01_rb,0.23824e+01_rb,0.14931e+01_rb /)
+      kbo(:, 4,58,11) = (/ &
+        & 0.34613e+00_rb,0.23936e+01_rb,0.29542e+01_rb,0.30545e+01_rb,0.19489e+01_rb /)
+      kbo(:, 5,58,11) = (/ &
+        & 0.46251e+00_rb,0.28928e+01_rb,0.36439e+01_rb,0.37914e+01_rb,0.24628e+01_rb /)
+      kbo(:, 1,59,11) = (/ &
+        & 0.98781e-01_rb,0.10374e+01_rb,0.12790e+01_rb,0.12834e+01_rb,0.71091e+00_rb /)
+      kbo(:, 2,59,11) = (/ &
+        & 0.15643e+00_rb,0.14199e+01_rb,0.17560e+01_rb,0.17406e+01_rb,0.10475e+01_rb /)
+      kbo(:, 3,59,11) = (/ &
+        & 0.23512e+00_rb,0.18585e+01_rb,0.22815e+01_rb,0.23061e+01_rb,0.14408e+01_rb /)
+      kbo(:, 4,59,11) = (/ &
+        & 0.33250e+00_rb,0.23338e+01_rb,0.28755e+01_rb,0.29686e+01_rb,0.18898e+01_rb /)
+      kbo(:, 5,59,11) = (/ &
+        & 0.44697e+00_rb,0.28298e+01_rb,0.35555e+01_rb,0.36984e+01_rb,0.23975e+01_rb /)
+      kbo(:, 1,13,12) = (/ &
+        & 0.30998e+02_rb,0.37385e+02_rb,0.40609e+02_rb,0.38100e+02_rb,0.30845e+02_rb /)
+      kbo(:, 2,13,12) = (/ &
+        & 0.30490e+02_rb,0.37042e+02_rb,0.40582e+02_rb,0.38272e+02_rb,0.31245e+02_rb /)
+      kbo(:, 3,13,12) = (/ &
+        & 0.29985e+02_rb,0.36701e+02_rb,0.40520e+02_rb,0.38445e+02_rb,0.31621e+02_rb /)
+      kbo(:, 4,13,12) = (/ &
+        & 0.29490e+02_rb,0.36329e+02_rb,0.40415e+02_rb,0.38594e+02_rb,0.32000e+02_rb /)
+      kbo(:, 5,13,12) = (/ &
+        & 0.29015e+02_rb,0.35959e+02_rb,0.40312e+02_rb,0.38750e+02_rb,0.32433e+02_rb /)
+      kbo(:, 1,14,12) = (/ &
+        & 0.27110e+02_rb,0.35184e+02_rb,0.38617e+02_rb,0.36399e+02_rb,0.28635e+02_rb /)
+      kbo(:, 2,14,12) = (/ &
+        & 0.26641e+02_rb,0.34930e+02_rb,0.38606e+02_rb,0.36649e+02_rb,0.29079e+02_rb /)
+      kbo(:, 3,14,12) = (/ &
+        & 0.26184e+02_rb,0.34642e+02_rb,0.38568e+02_rb,0.36926e+02_rb,0.29498e+02_rb /)
+      kbo(:, 4,14,12) = (/ &
+        & 0.25751e+02_rb,0.34348e+02_rb,0.38555e+02_rb,0.37188e+02_rb,0.29949e+02_rb /)
+      kbo(:, 5,14,12) = (/ &
+        & 0.25340e+02_rb,0.34077e+02_rb,0.38568e+02_rb,0.37453e+02_rb,0.30433e+02_rb /)
+      kbo(:, 1,15,12) = (/ &
+        & 0.23379e+02_rb,0.32658e+02_rb,0.36083e+02_rb,0.34396e+02_rb,0.26632e+02_rb /)
+      kbo(:, 2,15,12) = (/ &
+        & 0.22961e+02_rb,0.32462e+02_rb,0.36143e+02_rb,0.34739e+02_rb,0.27099e+02_rb /)
+      kbo(:, 3,15,12) = (/ &
+        & 0.22574e+02_rb,0.32277e+02_rb,0.36234e+02_rb,0.35089e+02_rb,0.27554e+02_rb /)
+      kbo(:, 4,15,12) = (/ &
+        & 0.22226e+02_rb,0.32107e+02_rb,0.36368e+02_rb,0.35457e+02_rb,0.28061e+02_rb /)
+      kbo(:, 5,15,12) = (/ &
+        & 0.22052e+02_rb,0.31945e+02_rb,0.36473e+02_rb,0.35860e+02_rb,0.28623e+02_rb /)
+      kbo(:, 1,16,12) = (/ &
+        & 0.19977e+02_rb,0.29953e+02_rb,0.33281e+02_rb,0.32282e+02_rb,0.24730e+02_rb /)
+      kbo(:, 2,16,12) = (/ &
+        & 0.19633e+02_rb,0.29859e+02_rb,0.33454e+02_rb,0.32701e+02_rb,0.25245e+02_rb /)
+      kbo(:, 3,16,12) = (/ &
+        & 0.19340e+02_rb,0.29766e+02_rb,0.33693e+02_rb,0.33152e+02_rb,0.25800e+02_rb /)
+      kbo(:, 4,16,12) = (/ &
+        & 0.19247e+02_rb,0.29689e+02_rb,0.33933e+02_rb,0.33616e+02_rb,0.26378e+02_rb /)
+      kbo(:, 5,16,12) = (/ &
+        & 0.19403e+02_rb,0.29623e+02_rb,0.34160e+02_rb,0.34111e+02_rb,0.26924e+02_rb /)
+      kbo(:, 1,17,12) = (/ &
+        & 0.17051e+02_rb,0.27143e+02_rb,0.30473e+02_rb,0.30161e+02_rb,0.22931e+02_rb /)
+      kbo(:, 2,17,12) = (/ &
+        & 0.16797e+02_rb,0.27123e+02_rb,0.30776e+02_rb,0.30670e+02_rb,0.23518e+02_rb /)
+      kbo(:, 3,17,12) = (/ &
+        & 0.16741e+02_rb,0.27141e+02_rb,0.31121e+02_rb,0.31186e+02_rb,0.24127e+02_rb /)
+      kbo(:, 4,17,12) = (/ &
+        & 0.16948e+02_rb,0.27189e+02_rb,0.31472e+02_rb,0.31736e+02_rb,0.24729e+02_rb /)
+      kbo(:, 5,17,12) = (/ &
+        & 0.17485e+02_rb,0.27288e+02_rb,0.31858e+02_rb,0.32324e+02_rb,0.25297e+02_rb /)
+      kbo(:, 1,18,12) = (/ &
+        & 0.14597e+02_rb,0.24342e+02_rb,0.27826e+02_rb,0.28130e+02_rb,0.21245e+02_rb /)
+      kbo(:, 2,18,12) = (/ &
+        & 0.14547e+02_rb,0.24446e+02_rb,0.28237e+02_rb,0.28704e+02_rb,0.21885e+02_rb /)
+      kbo(:, 3,18,12) = (/ &
+        & 0.14765e+02_rb,0.24583e+02_rb,0.28672e+02_rb,0.29288e+02_rb,0.22535e+02_rb /)
+      kbo(:, 4,18,12) = (/ &
+        & 0.15315e+02_rb,0.24794e+02_rb,0.29147e+02_rb,0.29934e+02_rb,0.23159e+02_rb /)
+      kbo(:, 5,18,12) = (/ &
+        & 0.16067e+02_rb,0.25143e+02_rb,0.29634e+02_rb,0.30628e+02_rb,0.23749e+02_rb /)
+      kbo(:, 1,19,12) = (/ &
+        & 0.12640e+02_rb,0.21753e+02_rb,0.25384e+02_rb,0.26151e+02_rb,0.19661e+02_rb /)
+      kbo(:, 2,19,12) = (/ &
+        & 0.12835e+02_rb,0.21949e+02_rb,0.25878e+02_rb,0.26810e+02_rb,0.20358e+02_rb /)
+      kbo(:, 3,19,12) = (/ &
+        & 0.13356e+02_rb,0.22229e+02_rb,0.26410e+02_rb,0.27515e+02_rb,0.21037e+02_rb /)
+      kbo(:, 4,19,12) = (/ &
+        & 0.14056e+02_rb,0.22664e+02_rb,0.26964e+02_rb,0.28265e+02_rb,0.21685e+02_rb /)
+      kbo(:, 5,19,12) = (/ &
+        & 0.14855e+02_rb,0.23244e+02_rb,0.27571e+02_rb,0.29046e+02_rb,0.22336e+02_rb /)
+      kbo(:, 1,20,12) = (/ &
+        & 0.11082e+02_rb,0.19491e+02_rb,0.23194e+02_rb,0.24313e+02_rb,0.18232e+02_rb /)
+      kbo(:, 2,20,12) = (/ &
+        & 0.11562e+02_rb,0.19787e+02_rb,0.23755e+02_rb,0.25073e+02_rb,0.18946e+02_rb /)
+      kbo(:, 3,20,12) = (/ &
+        & 0.12224e+02_rb,0.20238e+02_rb,0.24350e+02_rb,0.25880e+02_rb,0.19650e+02_rb /)
+      kbo(:, 4,20,12) = (/ &
+        & 0.12987e+02_rb,0.20868e+02_rb,0.25012e+02_rb,0.26726e+02_rb,0.20347e+02_rb /)
+      kbo(:, 5,20,12) = (/ &
+        & 0.13788e+02_rb,0.21712e+02_rb,0.25741e+02_rb,0.27588e+02_rb,0.21074e+02_rb /)
+      kbo(:, 1,21,12) = (/ &
+        & 0.98833e+01_rb,0.17574e+02_rb,0.21209e+02_rb,0.22623e+02_rb,0.16925e+02_rb /)
+      kbo(:, 2,21,12) = (/ &
+        & 0.10489e+02_rb,0.18010e+02_rb,0.21858e+02_rb,0.23471e+02_rb,0.17666e+02_rb /)
+      kbo(:, 3,21,12) = (/ &
+        & 0.11209e+02_rb,0.18622e+02_rb,0.22555e+02_rb,0.24382e+02_rb,0.18394e+02_rb /)
+      kbo(:, 4,21,12) = (/ &
+        & 0.11974e+02_rb,0.19474e+02_rb,0.23320e+02_rb,0.25315e+02_rb,0.19156e+02_rb /)
+      kbo(:, 5,21,12) = (/ &
+        & 0.12743e+02_rb,0.20530e+02_rb,0.24213e+02_rb,0.26280e+02_rb,0.19957e+02_rb /)
+      kbo(:, 1,22,12) = (/ &
+        & 0.89432e+01_rb,0.16023e+02_rb,0.19521e+02_rb,0.21142e+02_rb,0.15785e+02_rb /)
+      kbo(:, 2,22,12) = (/ &
+        & 0.96012e+01_rb,0.16615e+02_rb,0.20251e+02_rb,0.22105e+02_rb,0.16565e+02_rb /)
+      kbo(:, 3,22,12) = (/ &
+        & 0.10308e+02_rb,0.17429e+02_rb,0.21053e+02_rb,0.23102e+02_rb,0.17352e+02_rb /)
+      kbo(:, 4,22,12) = (/ &
+        & 0.11034e+02_rb,0.18474e+02_rb,0.21986e+02_rb,0.24140e+02_rb,0.18184e+02_rb /)
+      kbo(:, 5,22,12) = (/ &
+        & 0.11779e+02_rb,0.19675e+02_rb,0.23025e+02_rb,0.25198e+02_rb,0.19053e+02_rb /)
+      kbo(:, 1,23,12) = (/ &
+        & 0.81558e+01_rb,0.14793e+02_rb,0.18088e+02_rb,0.19855e+02_rb,0.14800e+02_rb /)
+      kbo(:, 2,23,12) = (/ &
+        & 0.87957e+01_rb,0.15543e+02_rb,0.18895e+02_rb,0.20923e+02_rb,0.15621e+02_rb /)
+      kbo(:, 3,23,12) = (/ &
+        & 0.94593e+01_rb,0.16540e+02_rb,0.19849e+02_rb,0.22025e+02_rb,0.16480e+02_rb /)
+      kbo(:, 4,23,12) = (/ &
+        & 0.10153e+02_rb,0.17706e+02_rb,0.20923e+02_rb,0.23160e+02_rb,0.17388e+02_rb /)
+      kbo(:, 5,23,12) = (/ &
+        & 0.10876e+02_rb,0.18993e+02_rb,0.22113e+02_rb,0.24310e+02_rb,0.18322e+02_rb /)
+      kbo(:, 1,24,12) = (/ &
+        & 0.74526e+01_rb,0.13830e+02_rb,0.16894e+02_rb,0.18769e+02_rb,0.13959e+02_rb /)
+      kbo(:, 2,24,12) = (/ &
+        & 0.80517e+01_rb,0.14766e+02_rb,0.17833e+02_rb,0.19936e+02_rb,0.14836e+02_rb /)
+      kbo(:, 3,24,12) = (/ &
+        & 0.86841e+01_rb,0.15873e+02_rb,0.18916e+02_rb,0.21150e+02_rb,0.15773e+02_rb /)
+      kbo(:, 4,24,12) = (/ &
+        & 0.93535e+01_rb,0.17122e+02_rb,0.20131e+02_rb,0.22383e+02_rb,0.16742e+02_rb /)
+      kbo(:, 5,24,12) = (/ &
+        & 0.10068e+02_rb,0.18482e+02_rb,0.21482e+02_rb,0.23634e+02_rb,0.17753e+02_rb /)
+      kbo(:, 1,25,12) = (/ &
+        & 0.68105e+01_rb,0.13122e+02_rb,0.15953e+02_rb,0.17890e+02_rb,0.13264e+02_rb /)
+      kbo(:, 2,25,12) = (/ &
+        & 0.73796e+01_rb,0.14193e+02_rb,0.17028e+02_rb,0.19160e+02_rb,0.14211e+02_rb /)
+      kbo(:, 3,25,12) = (/ &
+        & 0.79883e+01_rb,0.15386e+02_rb,0.18237e+02_rb,0.20473e+02_rb,0.15219e+02_rb /)
+      kbo(:, 4,25,12) = (/ &
+        & 0.86473e+01_rb,0.16702e+02_rb,0.19605e+02_rb,0.21810e+02_rb,0.16257e+02_rb /)
+      kbo(:, 5,25,12) = (/ &
+        & 0.93513e+01_rb,0.18139e+02_rb,0.21087e+02_rb,0.23158e+02_rb,0.17339e+02_rb /)
+      kbo(:, 1,26,12) = (/ &
+        & 0.62530e+01_rb,0.12619e+02_rb,0.15260e+02_rb,0.17241e+02_rb,0.12729e+02_rb /)
+      kbo(:, 2,26,12) = (/ &
+        & 0.67955e+01_rb,0.13786e+02_rb,0.16460e+02_rb,0.18602e+02_rb,0.13751e+02_rb /)
+      kbo(:, 3,26,12) = (/ &
+        & 0.73876e+01_rb,0.15061e+02_rb,0.17816e+02_rb,0.20014e+02_rb,0.14821e+02_rb /)
+      kbo(:, 4,26,12) = (/ &
+        & 0.80374e+01_rb,0.16453e+02_rb,0.19314e+02_rb,0.21444e+02_rb,0.15933e+02_rb /)
+      kbo(:, 5,26,12) = (/ &
+        & 0.87427e+01_rb,0.17956e+02_rb,0.20909e+02_rb,0.22878e+02_rb,0.17080e+02_rb /)
+      kbo(:, 1,27,12) = (/ &
+        & 0.57700e+01_rb,0.12257e+02_rb,0.14782e+02_rb,0.16780e+02_rb,0.12335e+02_rb /)
+      kbo(:, 2,27,12) = (/ &
+        & 0.62864e+01_rb,0.13513e+02_rb,0.16114e+02_rb,0.18231e+02_rb,0.13431e+02_rb /)
+      kbo(:, 3,27,12) = (/ &
+        & 0.68675e+01_rb,0.14868e+02_rb,0.17601e+02_rb,0.19730e+02_rb,0.14565e+02_rb /)
+      kbo(:, 4,27,12) = (/ &
+        & 0.75138e+01_rb,0.16329e+02_rb,0.19199e+02_rb,0.21244e+02_rb,0.15742e+02_rb /)
+      kbo(:, 5,27,12) = (/ &
+        & 0.82289e+01_rb,0.17883e+02_rb,0.20886e+02_rb,0.22748e+02_rb,0.16940e+02_rb /)
+      kbo(:, 1,28,12) = (/ &
+        & 0.53548e+01_rb,0.12024e+02_rb,0.14494e+02_rb,0.16490e+02_rb,0.12074e+02_rb /)
+      kbo(:, 2,28,12) = (/ &
+        & 0.58567e+01_rb,0.13364e+02_rb,0.15954e+02_rb,0.18023e+02_rb,0.13231e+02_rb /)
+      kbo(:, 3,28,12) = (/ &
+        & 0.64249e+01_rb,0.14793e+02_rb,0.17548e+02_rb,0.19599e+02_rb,0.14431e+02_rb /)
+      kbo(:, 4,28,12) = (/ &
+        & 0.70763e+01_rb,0.16306e+02_rb,0.19232e+02_rb,0.21185e+02_rb,0.15664e+02_rb /)
+      kbo(:, 5,28,12) = (/ &
+        & 0.78108e+01_rb,0.17913e+02_rb,0.20999e+02_rb,0.22748e+02_rb,0.16904e+02_rb /)
+      kbo(:, 1,29,12) = (/ &
+        & 0.50045e+01_rb,0.11918e+02_rb,0.14389e+02_rb,0.16363e+02_rb,0.11938e+02_rb /)
+      kbo(:, 2,29,12) = (/ &
+        & 0.55030e+01_rb,0.13334e+02_rb,0.15959e+02_rb,0.17970e+02_rb,0.13155e+02_rb /)
+      kbo(:, 3,29,12) = (/ &
+        & 0.60662e+01_rb,0.14820e+02_rb,0.17638e+02_rb,0.19611e+02_rb,0.14408e+02_rb /)
+      kbo(:, 4,29,12) = (/ &
+        & 0.67325e+01_rb,0.16392e+02_rb,0.19392e+02_rb,0.21253e+02_rb,0.15686e+02_rb /)
+      kbo(:, 5,29,12) = (/ &
+        & 0.74925e+01_rb,0.18044e+02_rb,0.21206e+02_rb,0.22856e+02_rb,0.16965e+02_rb /)
+      kbo(:, 1,30,12) = (/ &
+        & 0.47172e+01_rb,0.11917e+02_rb,0.14428e+02_rb,0.16368e+02_rb,0.11903e+02_rb /)
+      kbo(:, 2,30,12) = (/ &
+        & 0.52125e+01_rb,0.13400e+02_rb,0.16089e+02_rb,0.18040e+02_rb,0.13179e+02_rb /)
+      kbo(:, 3,30,12) = (/ &
+        & 0.57884e+01_rb,0.14940e+02_rb,0.17829e+02_rb,0.19728e+02_rb,0.14475e+02_rb /)
+      kbo(:, 4,30,12) = (/ &
+        & 0.64722e+01_rb,0.16556e+02_rb,0.19636e+02_rb,0.21408e+02_rb,0.15787e+02_rb /)
+      kbo(:, 5,30,12) = (/ &
+        & 0.72704e+01_rb,0.18251e+02_rb,0.21479e+02_rb,0.23035e+02_rb,0.17093e+02_rb /)
+      kbo(:, 1,31,12) = (/ &
+        & 0.44858e+01_rb,0.12017e+02_rb,0.14590e+02_rb,0.16495e+02_rb,0.11969e+02_rb /)
+      kbo(:, 2,31,12) = (/ &
+        & 0.49908e+01_rb,0.13550e+02_rb,0.16315e+02_rb,0.18215e+02_rb,0.13287e+02_rb /)
+      kbo(:, 3,31,12) = (/ &
+        & 0.55864e+01_rb,0.15140e+02_rb,0.18101e+02_rb,0.19933e+02_rb,0.14620e+02_rb /)
+      kbo(:, 4,31,12) = (/ &
+        & 0.63024e+01_rb,0.16801e+02_rb,0.19948e+02_rb,0.21636e+02_rb,0.15956e+02_rb /)
+      kbo(:, 5,31,12) = (/ &
+        & 0.71504e+01_rb,0.18530e+02_rb,0.21815e+02_rb,0.23280e+02_rb,0.17277e+02_rb /)
+      kbo(:, 1,32,12) = (/ &
+        & 0.43064e+01_rb,0.12199e+02_rb,0.14841e+02_rb,0.16712e+02_rb,0.12112e+02_rb /)
+      kbo(:, 2,32,12) = (/ &
+        & 0.48346e+01_rb,0.13779e+02_rb,0.16613e+02_rb,0.18463e+02_rb,0.13462e+02_rb /)
+      kbo(:, 3,32,12) = (/ &
+        & 0.54614e+01_rb,0.15404e+02_rb,0.18438e+02_rb,0.20209e+02_rb,0.14821e+02_rb /)
+      kbo(:, 4,32,12) = (/ &
+        & 0.62177e+01_rb,0.17102e+02_rb,0.20311e+02_rb,0.21920e+02_rb,0.16172e+02_rb /)
+      kbo(:, 5,32,12) = (/ &
+        & 0.71259e+01_rb,0.18855e+02_rb,0.22195e+02_rb,0.23574e+02_rb,0.17506e+02_rb /)
+      kbo(:, 1,33,12) = (/ &
+        & 0.41801e+01_rb,0.12450e+02_rb,0.15154e+02_rb,0.16994e+02_rb,0.12315e+02_rb /)
+      kbo(:, 2,33,12) = (/ &
+        & 0.47391e+01_rb,0.14064e+02_rb,0.16963e+02_rb,0.18765e+02_rb,0.13689e+02_rb /)
+      kbo(:, 3,33,12) = (/ &
+        & 0.54061e+01_rb,0.15717e+02_rb,0.18820e+02_rb,0.20527e+02_rb,0.15064e+02_rb /)
+      kbo(:, 4,33,12) = (/ &
+        & 0.62146e+01_rb,0.17442e+02_rb,0.20711e+02_rb,0.22242e+02_rb,0.16420e+02_rb /)
+      kbo(:, 5,33,12) = (/ &
+        & 0.71827e+01_rb,0.19219e+02_rb,0.22608e+02_rb,0.23903e+02_rb,0.17762e+02_rb /)
+      kbo(:, 1,34,12) = (/ &
+        & 0.40887e+01_rb,0.12691e+02_rb,0.15451e+02_rb,0.17259e+02_rb,0.12512e+02_rb /)
+      kbo(:, 2,34,12) = (/ &
+        & 0.46819e+01_rb,0.14330e+02_rb,0.17288e+02_rb,0.19046e+02_rb,0.13902e+02_rb /)
+      kbo(:, 3,34,12) = (/ &
+        & 0.53890e+01_rb,0.16007e+02_rb,0.19166e+02_rb,0.20816e+02_rb,0.15287e+02_rb /)
+      kbo(:, 4,34,12) = (/ &
+        & 0.62486e+01_rb,0.17752e+02_rb,0.21067e+02_rb,0.22532e+02_rb,0.16650e+02_rb /)
+      kbo(:, 5,34,12) = (/ &
+        & 0.72682e+01_rb,0.19545e+02_rb,0.22972e+02_rb,0.24194e+02_rb,0.17995e+02_rb /)
+      kbo(:, 1,35,12) = (/ &
+        & 0.39916e+01_rb,0.12809e+02_rb,0.15601e+02_rb,0.17383e+02_rb,0.12605e+02_rb /)
+      kbo(:, 2,35,12) = (/ &
+        & 0.46112e+01_rb,0.14460e+02_rb,0.17457e+02_rb,0.19181e+02_rb,0.14005e+02_rb /)
+      kbo(:, 3,35,12) = (/ &
+        & 0.53474e+01_rb,0.16154e+02_rb,0.19347e+02_rb,0.20958e+02_rb,0.15398e+02_rb /)
+      kbo(:, 4,35,12) = (/ &
+        & 0.62430e+01_rb,0.17913e+02_rb,0.21258e+02_rb,0.22679e+02_rb,0.16764e+02_rb /)
+      kbo(:, 5,35,12) = (/ &
+        & 0.72953e+01_rb,0.19716e+02_rb,0.23169e+02_rb,0.24345e+02_rb,0.18113e+02_rb /)
+      kbo(:, 1,36,12) = (/ &
+        & 0.38696e+01_rb,0.12768e+02_rb,0.15571e+02_rb,0.17332e+02_rb,0.12565e+02_rb /)
+      kbo(:, 2,36,12) = (/ &
+        & 0.45034e+01_rb,0.14429e+02_rb,0.17436e+02_rb,0.19141e+02_rb,0.13973e+02_rb /)
+      kbo(:, 3,36,12) = (/ &
+        & 0.52555e+01_rb,0.16128e+02_rb,0.19333e+02_rb,0.20927e+02_rb,0.15372e+02_rb /)
+      kbo(:, 4,36,12) = (/ &
+        & 0.61640e+01_rb,0.17893e+02_rb,0.21249e+02_rb,0.22656e+02_rb,0.16743e+02_rb /)
+      kbo(:, 5,36,12) = (/ &
+        & 0.72295e+01_rb,0.19702e+02_rb,0.23168e+02_rb,0.24329e+02_rb,0.18096e+02_rb /)
+      kbo(:, 1,37,12) = (/ &
+        & 0.36883e+01_rb,0.12493e+02_rb,0.15274e+02_rb,0.17021e+02_rb,0.12322e+02_rb /)
+      kbo(:, 2,37,12) = (/ &
+        & 0.43193e+01_rb,0.14156e+02_rb,0.17140e+02_rb,0.18841e+02_rb,0.13739e+02_rb /)
+      kbo(:, 3,37,12) = (/ &
+        & 0.50636e+01_rb,0.15852e+02_rb,0.19039e+02_rb,0.20638e+02_rb,0.15145e+02_rb /)
+      kbo(:, 4,37,12) = (/ &
+        & 0.59573e+01_rb,0.17616e+02_rb,0.20958e+02_rb,0.22386e+02_rb,0.16525e+02_rb /)
+      kbo(:, 5,37,12) = (/ &
+        & 0.70089e+01_rb,0.19421e+02_rb,0.22881e+02_rb,0.24071e+02_rb,0.17883e+02_rb /)
+      kbo(:, 1,38,12) = (/ &
+        & 0.35253e+01_rb,0.12215e+02_rb,0.14971e+02_rb,0.16706e+02_rb,0.12079e+02_rb /)
+      kbo(:, 2,38,12) = (/ &
+        & 0.41507e+01_rb,0.13877e+02_rb,0.16837e+02_rb,0.18535e+02_rb,0.13501e+02_rb /)
+      kbo(:, 3,38,12) = (/ &
+        & 0.48852e+01_rb,0.15572e+02_rb,0.18736e+02_rb,0.20342e+02_rb,0.14913e+02_rb /)
+      kbo(:, 4,38,12) = (/ &
+        & 0.57613e+01_rb,0.17329e+02_rb,0.20656e+02_rb,0.22106e+02_rb,0.16300e+02_rb /)
+      kbo(:, 5,38,12) = (/ &
+        & 0.67957e+01_rb,0.19130e+02_rb,0.22581e+02_rb,0.23804e+02_rb,0.17665e+02_rb /)
+      kbo(:, 1,39,12) = (/ &
+        & 0.33825e+01_rb,0.11947e+02_rb,0.14676e+02_rb,0.16402e+02_rb,0.11843e+02_rb /)
+      kbo(:, 2,39,12) = (/ &
+        & 0.39997e+01_rb,0.13607e+02_rb,0.16542e+02_rb,0.18237e+02_rb,0.13271e+02_rb /)
+      kbo(:, 3,39,12) = (/ &
+        & 0.47242e+01_rb,0.15300e+02_rb,0.18440e+02_rb,0.20053e+02_rb,0.14687e+02_rb /)
+      kbo(:, 4,39,12) = (/ &
+        & 0.55821e+01_rb,0.17050e+02_rb,0.20362e+02_rb,0.21831e+02_rb,0.16081e+02_rb /)
+      kbo(:, 5,39,12) = (/ &
+        & 0.65965e+01_rb,0.18849e+02_rb,0.22289e+02_rb,0.23541e+02_rb,0.17452e+02_rb /)
+      kbo(:, 1,40,12) = (/ &
+        & 0.31990e+01_rb,0.11518e+02_rb,0.14197e+02_rb,0.15916e+02_rb,0.11466e+02_rb /)
+      kbo(:, 2,40,12) = (/ &
+        & 0.37954e+01_rb,0.13171e+02_rb,0.16060e+02_rb,0.17759e+02_rb,0.12898e+02_rb /)
+      kbo(:, 3,40,12) = (/ &
+        & 0.44984e+01_rb,0.14859e+02_rb,0.17955e+02_rb,0.19586e+02_rb,0.14321e+02_rb /)
+      kbo(:, 4,40,12) = (/ &
+        & 0.53220e+01_rb,0.16595e+02_rb,0.19875e+02_rb,0.21381e+02_rb,0.15725e+02_rb /)
+      kbo(:, 5,40,12) = (/ &
+        & 0.62999e+01_rb,0.18387e+02_rb,0.21803e+02_rb,0.23109e+02_rb,0.17102e+02_rb /)
+      kbo(:, 1,41,12) = (/ &
+        & 0.30240e+01_rb,0.11079e+02_rb,0.13703e+02_rb,0.15411e+02_rb,0.11075e+02_rb /)
+      kbo(:, 2,41,12) = (/ &
+        & 0.35998e+01_rb,0.12722e+02_rb,0.15561e+02_rb,0.17259e+02_rb,0.12509e+02_rb /)
+      kbo(:, 3,41,12) = (/ &
+        & 0.42766e+01_rb,0.14402e+02_rb,0.17450e+02_rb,0.19096e+02_rb,0.13938e+02_rb /)
+      kbo(:, 4,41,12) = (/ &
+        & 0.50663e+01_rb,0.16123e+02_rb,0.19365e+02_rb,0.20905e+02_rb,0.15352e+02_rb /)
+      kbo(:, 5,41,12) = (/ &
+        & 0.60051e+01_rb,0.17908e+02_rb,0.21295e+02_rb,0.22653e+02_rb,0.16735e+02_rb /)
+      kbo(:, 1,42,12) = (/ &
+        & 0.28652e+01_rb,0.10648e+02_rb,0.13219e+02_rb,0.14913e+02_rb,0.10689e+02_rb /)
+      kbo(:, 2,42,12) = (/ &
+        & 0.34153e+01_rb,0.12278e+02_rb,0.15063e+02_rb,0.16761e+02_rb,0.12121e+02_rb /)
+      kbo(:, 3,42,12) = (/ &
+        & 0.40672e+01_rb,0.13952e+02_rb,0.16947e+02_rb,0.18606e+02_rb,0.13557e+02_rb /)
+      kbo(:, 4,42,12) = (/ &
+        & 0.48264e+01_rb,0.15661e+02_rb,0.18858e+02_rb,0.20426e+02_rb,0.14977e+02_rb /)
+      kbo(:, 5,42,12) = (/ &
+        & 0.57266e+01_rb,0.17431e+02_rb,0.20787e+02_rb,0.22197e+02_rb,0.16370e+02_rb /)
+      kbo(:, 1,43,12) = (/ &
+        & 0.26870e+01_rb,0.10134e+02_rb,0.12642e+02_rb,0.14316e+02_rb,0.10228e+02_rb /)
+      kbo(:, 2,43,12) = (/ &
+        & 0.32108e+01_rb,0.11745e+02_rb,0.14465e+02_rb,0.16161e+02_rb,0.11657e+02_rb /)
+      kbo(:, 3,43,12) = (/ &
+        & 0.38308e+01_rb,0.13408e+02_rb,0.16340e+02_rb,0.18012e+02_rb,0.13095e+02_rb /)
+      kbo(:, 4,43,12) = (/ &
+        & 0.45569e+01_rb,0.15107e+02_rb,0.18246e+02_rb,0.19843e+02_rb,0.14521e+02_rb /)
+      kbo(:, 5,43,12) = (/ &
+        & 0.54100e+01_rb,0.16859e+02_rb,0.20173e+02_rb,0.21637e+02_rb,0.15927e+02_rb /)
+      kbo(:, 1,44,12) = (/ &
+        & 0.25051e+01_rb,0.95885e+01_rb,0.12032e+02_rb,0.13682e+02_rb,0.97372e+01_rb /)
+      kbo(:, 2,44,12) = (/ &
+        & 0.30054e+01_rb,0.11180e+02_rb,0.13825e+02_rb,0.15517e+02_rb,0.11159e+02_rb /)
+      kbo(:, 3,44,12) = (/ &
+        & 0.35923e+01_rb,0.12828e+02_rb,0.15690e+02_rb,0.17372e+02_rb,0.12597e+02_rb /)
+      kbo(:, 4,44,12) = (/ &
+        & 0.42861e+01_rb,0.14518e+02_rb,0.17591e+02_rb,0.19215e+02_rb,0.14031e+02_rb /)
+      kbo(:, 5,44,12) = (/ &
+        & 0.50891e+01_rb,0.16248e+02_rb,0.19511e+02_rb,0.21026e+02_rb,0.15447e+02_rb /)
+      kbo(:, 1,45,12) = (/ &
+        & 0.23284e+01_rb,0.90519e+01_rb,0.11435e+02_rb,0.13049e+02_rb,0.92487e+01_rb /)
+      kbo(:, 2,45,12) = (/ &
+        & 0.28153e+01_rb,0.10623e+02_rb,0.13197e+02_rb,0.14880e+02_rb,0.10666e+02_rb /)
+      kbo(:, 3,45,12) = (/ &
+        & 0.33686e+01_rb,0.12254e+02_rb,0.15046e+02_rb,0.16733e+02_rb,0.12101e+02_rb /)
+      kbo(:, 4,45,12) = (/ &
+        & 0.40279e+01_rb,0.13936e+02_rb,0.16938e+02_rb,0.18583e+02_rb,0.13540e+02_rb /)
+      kbo(:, 5,45,12) = (/ &
+        & 0.47894e+01_rb,0.15648e+02_rb,0.18852e+02_rb,0.20408e+02_rb,0.14963e+02_rb /)
+      kbo(:, 1,46,12) = (/ &
+        & 0.21477e+01_rb,0.84947e+01_rb,0.10808e+02_rb,0.12382e+02_rb,0.87316e+01_rb /)
+      kbo(:, 2,46,12) = (/ &
+        & 0.26237e+01_rb,0.10040e+02_rb,0.12543e+02_rb,0.14206e+02_rb,0.10145e+02_rb /)
+      kbo(:, 3,46,12) = (/ &
+        & 0.31493e+01_rb,0.11653e+02_rb,0.14367e+02_rb,0.16054e+02_rb,0.11575e+02_rb /)
+      kbo(:, 4,46,12) = (/ &
+        & 0.37687e+01_rb,0.13319e+02_rb,0.16247e+02_rb,0.17910e+02_rb,0.13015e+02_rb /)
+      kbo(:, 5,46,12) = (/ &
+        & 0.44919e+01_rb,0.15018e+02_rb,0.18154e+02_rb,0.19746e+02_rb,0.14446e+02_rb /)
+      kbo(:, 1,47,12) = (/ &
+        & 0.19539e+01_rb,0.78866e+01_rb,0.10121e+02_rb,0.11642e+02_rb,0.81629e+01_rb /)
+      kbo(:, 2,47,12) = (/ &
+        & 0.24188e+01_rb,0.94011e+01_rb,0.11827e+02_rb,0.13461e+02_rb,0.95671e+01_rb /)
+      kbo(:, 3,47,12) = (/ &
+        & 0.29183e+01_rb,0.10990e+02_rb,0.13614e+02_rb,0.15297e+02_rb,0.10990e+02_rb /)
+      kbo(:, 4,47,12) = (/ &
+        & 0.34981e+01_rb,0.12636e+02_rb,0.15480e+02_rb,0.17155e+02_rb,0.12429e+02_rb /)
+      kbo(:, 5,47,12) = (/ &
+        & 0.41787e+01_rb,0.14323e+02_rb,0.17378e+02_rb,0.19005e+02_rb,0.13866e+02_rb /)
+      kbo(:, 1,48,12) = (/ &
+        & 0.17686e+01_rb,0.73016e+01_rb,0.94471e+01_rb,0.10908e+02_rb,0.76062e+01_rb /)
+      kbo(:, 2,48,12) = (/ &
+        & 0.22191e+01_rb,0.87750e+01_rb,0.11125e+02_rb,0.12718e+02_rb,0.89921e+01_rb /)
+      kbo(:, 3,48,12) = (/ &
+        & 0.27045e+01_rb,0.10336e+02_rb,0.12878e+02_rb,0.14548e+02_rb,0.10409e+02_rb /)
+      kbo(:, 4,48,12) = (/ &
+        & 0.32460e+01_rb,0.11962e+02_rb,0.14721e+02_rb,0.16399e+02_rb,0.11843e+02_rb /)
+      kbo(:, 5,48,12) = (/ &
+        & 0.38847e+01_rb,0.13635e+02_rb,0.16605e+02_rb,0.18256e+02_rb,0.13285e+02_rb /)
+      kbo(:, 1,49,12) = (/ &
+        & 0.15926e+01_rb,0.67448e+01_rb,0.87885e+01_rb,0.10183e+02_rb,0.70558e+01_rb /)
+      kbo(:, 2,49,12) = (/ &
+        & 0.20265e+01_rb,0.81616e+01_rb,0.10434e+02_rb,0.11978e+02_rb,0.84210e+01_rb /)
+      kbo(:, 3,49,12) = (/ &
+        & 0.24995e+01_rb,0.96943e+01_rb,0.12158e+02_rb,0.13804e+02_rb,0.98335e+01_rb /)
+      kbo(:, 4,49,12) = (/ &
+        & 0.30106e+01_rb,0.11296e+02_rb,0.13964e+02_rb,0.15645e+02_rb,0.11261e+02_rb /)
+      kbo(:, 5,49,12) = (/ &
+        & 0.36091e+01_rb,0.12953e+02_rb,0.15838e+02_rb,0.17505e+02_rb,0.12701e+02_rb /)
+      kbo(:, 1,50,12) = (/ &
+        & 0.14367e+01_rb,0.62503e+01_rb,0.81839e+01_rb,0.95114e+01_rb,0.65470e+01_rb /)
+      kbo(:, 2,50,12) = (/ &
+        & 0.18513e+01_rb,0.76037e+01_rb,0.97986e+01_rb,0.11290e+02_rb,0.78962e+01_rb /)
+      kbo(:, 3,50,12) = (/ &
+        & 0.23123e+01_rb,0.91032e+01_rb,0.11496e+02_rb,0.13108e+02_rb,0.92947e+01_rb /)
+      kbo(:, 4,50,12) = (/ &
+        & 0.28056e+01_rb,0.10680e+02_rb,0.13267e+02_rb,0.14942e+02_rb,0.10716e+02_rb /)
+      kbo(:, 5,50,12) = (/ &
+        & 0.33664e+01_rb,0.12318e+02_rb,0.15124e+02_rb,0.16800e+02_rb,0.12153e+02_rb /)
+      kbo(:, 1,51,12) = (/ &
+        & 0.12944e+01_rb,0.57936e+01_rb,0.76117e+01_rb,0.88742e+01_rb,0.60642e+01_rb /)
+      kbo(:, 2,51,12) = (/ &
+        & 0.16888e+01_rb,0.70852e+01_rb,0.91933e+01_rb,0.10628e+02_rb,0.73944e+01_rb /)
+      kbo(:, 3,51,12) = (/ &
+        & 0.21353e+01_rb,0.85416e+01_rb,0.10863e+02_rb,0.12436e+02_rb,0.87735e+01_rb /)
+      kbo(:, 4,51,12) = (/ &
+        & 0.26169e+01_rb,0.10093e+02_rb,0.12607e+02_rb,0.14266e+02_rb,0.10192e+02_rb /)
+      kbo(:, 5,51,12) = (/ &
+        & 0.31479e+01_rb,0.11711e+02_rb,0.14438e+02_rb,0.16116e+02_rb,0.11624e+02_rb /)
+      kbo(:, 1,52,12) = (/ &
+        & 0.11616e+01_rb,0.53570e+01_rb,0.70533e+01_rb,0.82560e+01_rb,0.55953e+01_rb /)
+      kbo(:, 2,52,12) = (/ &
+        & 0.15340e+01_rb,0.65899e+01_rb,0.86019e+01_rb,0.99750e+01_rb,0.68982e+01_rb /)
+      kbo(:, 3,52,12) = (/ &
+        & 0.19643e+01_rb,0.79903e+01_rb,0.10241e+02_rb,0.11768e+02_rb,0.82604e+01_rb /)
+      kbo(:, 4,52,12) = (/ &
+        & 0.24347e+01_rb,0.95157e+01_rb,0.11958e+02_rb,0.13593e+02_rb,0.96707e+01_rb /)
+      kbo(:, 5,52,12) = (/ &
+        & 0.29410e+01_rb,0.11112e+02_rb,0.13756e+02_rb,0.15434e+02_rb,0.11097e+02_rb /)
+      kbo(:, 1,53,12) = (/ &
+        & 0.10377e+01_rb,0.49398e+01_rb,0.65141e+01_rb,0.76518e+01_rb,0.51386e+01_rb /)
+      kbo(:, 2,53,12) = (/ &
+        & 0.13876e+01_rb,0.61188e+01_rb,0.80207e+01_rb,0.93291e+01_rb,0.64095e+01_rb /)
+      kbo(:, 3,53,12) = (/ &
+        & 0.17987e+01_rb,0.74567e+01_rb,0.96292e+01_rb,0.11104e+02_rb,0.77562e+01_rb /)
+      kbo(:, 4,53,12) = (/ &
+        & 0.22559e+01_rb,0.89467e+01_rb,0.11320e+02_rb,0.12921e+02_rb,0.91504e+01_rb /)
+      kbo(:, 5,53,12) = (/ &
+        & 0.27477e+01_rb,0.10518e+02_rb,0.13086e+02_rb,0.14756e+02_rb,0.10571e+02_rb /)
+      kbo(:, 1,54,12) = (/ &
+        & 0.93266e+00_rb,0.45754e+01_rb,0.60420e+01_rb,0.71108e+01_rb,0.47321e+01_rb /)
+      kbo(:, 2,54,12) = (/ &
+        & 0.12608e+01_rb,0.57055e+01_rb,0.75003e+01_rb,0.87512e+01_rb,0.59717e+01_rb /)
+      kbo(:, 3,54,12) = (/ &
+        & 0.16525e+01_rb,0.69875e+01_rb,0.90782e+01_rb,0.10501e+02_rb,0.72982e+01_rb /)
+      kbo(:, 4,54,12) = (/ &
+        & 0.20962e+01_rb,0.84351e+01_rb,0.10744e+02_rb,0.12308e+02_rb,0.86747e+01_rb /)
+      kbo(:, 5,54,12) = (/ &
+        & 0.25775e+01_rb,0.99827e+01_rb,0.12485e+02_rb,0.14138e+02_rb,0.10092e+02_rb /)
+      kbo(:, 1,55,12) = (/ &
+        & 0.84048e+00_rb,0.42428e+01_rb,0.56145e+01_rb,0.66054e+01_rb,0.43544e+01_rb /)
+      kbo(:, 2,55,12) = (/ &
+        & 0.11472e+01_rb,0.53270e+01_rb,0.70144e+01_rb,0.82122e+01_rb,0.55615e+01_rb /)
+      kbo(:, 3,55,12) = (/ &
+        & 0.15181e+01_rb,0.65556e+01_rb,0.85601e+01_rb,0.99280e+01_rb,0.68631e+01_rb /)
+      kbo(:, 4,55,12) = (/ &
+        & 0.19474e+01_rb,0.79524e+01_rb,0.10198e+02_rb,0.11721e+02_rb,0.82252e+01_rb /)
+      kbo(:, 5,55,12) = (/ &
+        & 0.24188e+01_rb,0.94776e+01_rb,0.11916e+02_rb,0.13548e+02_rb,0.96351e+01_rb /)
+      kbo(:, 1,56,12) = (/ &
+        & 0.75447e+00_rb,0.39270e+01_rb,0.52064e+01_rb,0.61093e+01_rb,0.39870e+01_rb /)
+      kbo(:, 2,56,12) = (/ &
+        & 0.10395e+01_rb,0.49623e+01_rb,0.65429e+01_rb,0.76840e+01_rb,0.51623e+01_rb /)
+      kbo(:, 3,56,12) = (/ &
+        & 0.13908e+01_rb,0.61440e+01_rb,0.80522e+01_rb,0.93640e+01_rb,0.64360e+01_rb /)
+      kbo(:, 4,56,12) = (/ &
+        & 0.18031e+01_rb,0.74859e+01_rb,0.96627e+01_rb,0.11140e+02_rb,0.77842e+01_rb /)
+      kbo(:, 5,56,12) = (/ &
+        & 0.22626e+01_rb,0.89798e+01_rb,0.11358e+02_rb,0.12960e+02_rb,0.91800e+01_rb /)
+      kbo(:, 1,57,12) = (/ &
+        & 0.67513e+00_rb,0.36336e+01_rb,0.48180e+01_rb,0.56247e+01_rb,0.36284e+01_rb /)
+      kbo(:, 2,57,12) = (/ &
+        & 0.93951e+00_rb,0.46135e+01_rb,0.60910e+01_rb,0.71671e+01_rb,0.47736e+01_rb /)
+      kbo(:, 3,57,12) = (/ &
+        & 0.12699e+01_rb,0.57481e+01_rb,0.75541e+01_rb,0.88107e+01_rb,0.60168e+01_rb /)
+      kbo(:, 4,57,12) = (/ &
+        & 0.16637e+01_rb,0.70362e+01_rb,0.91351e+01_rb,0.10564e+02_rb,0.73465e+01_rb /)
+      kbo(:, 5,57,12) = (/ &
+        & 0.21102e+01_rb,0.84904e+01_rb,0.10807e+02_rb,0.12374e+02_rb,0.87256e+01_rb /)
+      kbo(:, 1,58,12) = (/ &
+        & 0.60371e+00_rb,0.33725e+01_rb,0.44640e+01_rb,0.51801e+01_rb,0.32968e+01_rb /)
+      kbo(:, 2,58,12) = (/ &
+        & 0.85131e+00_rb,0.42951e+01_rb,0.56822e+01_rb,0.66873e+01_rb,0.44155e+01_rb /)
+      kbo(:, 3,58,12) = (/ &
+        & 0.11611e+01_rb,0.53867e+01_rb,0.70919e+01_rb,0.82985e+01_rb,0.56282e+01_rb /)
+      kbo(:, 4,58,12) = (/ &
+        & 0.15366e+01_rb,0.66258e+01_rb,0.86445e+01_rb,0.10022e+02_rb,0.69358e+01_rb /)
+      kbo(:, 5,58,12) = (/ &
+        & 0.19698e+01_rb,0.80329e+01_rb,0.10290e+02_rb,0.11819e+02_rb,0.83004e+01_rb /)
+      kbo(:, 1,59,12) = (/ &
+        & 0.57552e+00_rb,0.32717e+01_rb,0.43250e+01_rb,0.50045e+01_rb,0.31668e+01_rb /)
+      kbo(:, 2,59,12) = (/ &
+        & 0.81716e+00_rb,0.41713e+01_rb,0.55225e+01_rb,0.64964e+01_rb,0.42740e+01_rb /)
+      kbo(:, 3,59,12) = (/ &
+        & 0.11190e+01_rb,0.52446e+01_rb,0.69091e+01_rb,0.80966e+01_rb,0.54744e+01_rb /)
+      kbo(:, 4,59,12) = (/ &
+        & 0.14869e+01_rb,0.64659e+01_rb,0.84502e+01_rb,0.98065e+01_rb,0.67716e+01_rb /)
+      kbo(:, 5,59,12) = (/ &
+        & 0.19139e+01_rb,0.78535e+01_rb,0.10085e+02_rb,0.11598e+02_rb,0.81311e+01_rb /)
+      kbo(:, 1,13,13) = (/ &
+        & 0.79406e+02_rb,0.76977e+02_rb,0.79398e+02_rb,0.72265e+02_rb,0.70608e+02_rb /)
+      kbo(:, 2,13,13) = (/ &
+        & 0.78716e+02_rb,0.76325e+02_rb,0.79145e+02_rb,0.72561e+02_rb,0.71233e+02_rb /)
+      kbo(:, 3,13,13) = (/ &
+        & 0.77960e+02_rb,0.75684e+02_rb,0.78864e+02_rb,0.72811e+02_rb,0.71703e+02_rb /)
+      kbo(:, 4,13,13) = (/ &
+        & 0.77172e+02_rb,0.75038e+02_rb,0.78462e+02_rb,0.73003e+02_rb,0.72067e+02_rb /)
+      kbo(:, 5,13,13) = (/ &
+        & 0.76342e+02_rb,0.74357e+02_rb,0.78015e+02_rb,0.73077e+02_rb,0.72406e+02_rb /)
+      kbo(:, 1,14,13) = (/ &
+        & 0.74002e+02_rb,0.75964e+02_rb,0.80244e+02_rb,0.73931e+02_rb,0.67973e+02_rb /)
+      kbo(:, 2,14,13) = (/ &
+        & 0.73259e+02_rb,0.75350e+02_rb,0.80187e+02_rb,0.74373e+02_rb,0.68671e+02_rb /)
+      kbo(:, 3,14,13) = (/ &
+        & 0.72511e+02_rb,0.74741e+02_rb,0.79998e+02_rb,0.74718e+02_rb,0.69297e+02_rb /)
+      kbo(:, 4,14,13) = (/ &
+        & 0.71760e+02_rb,0.74129e+02_rb,0.79694e+02_rb,0.74933e+02_rb,0.69925e+02_rb /)
+      kbo(:, 5,14,13) = (/ &
+        & 0.70963e+02_rb,0.73482e+02_rb,0.79282e+02_rb,0.75062e+02_rb,0.70592e+02_rb /)
+      kbo(:, 1,15,13) = (/ &
+        & 0.67727e+02_rb,0.74204e+02_rb,0.79973e+02_rb,0.74524e+02_rb,0.64503e+02_rb /)
+      kbo(:, 2,15,13) = (/ &
+        & 0.66995e+02_rb,0.73663e+02_rb,0.80067e+02_rb,0.75070e+02_rb,0.65404e+02_rb /)
+      kbo(:, 3,15,13) = (/ &
+        & 0.66299e+02_rb,0.73080e+02_rb,0.80001e+02_rb,0.75489e+02_rb,0.66341e+02_rb /)
+      kbo(:, 4,15,13) = (/ &
+        & 0.65584e+02_rb,0.72498e+02_rb,0.79808e+02_rb,0.75814e+02_rb,0.67293e+02_rb /)
+      kbo(:, 5,15,13) = (/ &
+        & 0.64881e+02_rb,0.71894e+02_rb,0.79644e+02_rb,0.76073e+02_rb,0.68159e+02_rb /)
+      kbo(:, 1,16,13) = (/ &
+        & 0.60910e+02_rb,0.71706e+02_rb,0.78658e+02_rb,0.73971e+02_rb,0.60740e+02_rb /)
+      kbo(:, 2,16,13) = (/ &
+        & 0.60264e+02_rb,0.71204e+02_rb,0.78897e+02_rb,0.74647e+02_rb,0.61882e+02_rb /)
+      kbo(:, 3,16,13) = (/ &
+        & 0.59646e+02_rb,0.70743e+02_rb,0.78998e+02_rb,0.75253e+02_rb,0.63062e+02_rb /)
+      kbo(:, 4,16,13) = (/ &
+        & 0.59033e+02_rb,0.70274e+02_rb,0.79093e+02_rb,0.75819e+02_rb,0.64263e+02_rb /)
+      kbo(:, 5,16,13) = (/ &
+        & 0.58482e+02_rb,0.69838e+02_rb,0.79175e+02_rb,0.76359e+02_rb,0.65453e+02_rb /)
+      kbo(:, 1,17,13) = (/ &
+        & 0.53962e+02_rb,0.68666e+02_rb,0.76384e+02_rb,0.72467e+02_rb,0.57058e+02_rb /)
+      kbo(:, 2,17,13) = (/ &
+        & 0.53430e+02_rb,0.68393e+02_rb,0.76843e+02_rb,0.73413e+02_rb,0.58438e+02_rb /)
+      kbo(:, 3,17,13) = (/ &
+        & 0.52920e+02_rb,0.68105e+02_rb,0.77273e+02_rb,0.74323e+02_rb,0.59869e+02_rb /)
+      kbo(:, 4,17,13) = (/ &
+        & 0.52483e+02_rb,0.67847e+02_rb,0.77698e+02_rb,0.75214e+02_rb,0.61307e+02_rb /)
+      kbo(:, 5,17,13) = (/ &
+        & 0.52082e+02_rb,0.67535e+02_rb,0.78034e+02_rb,0.76077e+02_rb,0.62785e+02_rb /)
+      kbo(:, 1,18,13) = (/ &
+        & 0.47235e+02_rb,0.65232e+02_rb,0.73440e+02_rb,0.70305e+02_rb,0.53676e+02_rb /)
+      kbo(:, 2,18,13) = (/ &
+        & 0.46798e+02_rb,0.65205e+02_rb,0.74239e+02_rb,0.71589e+02_rb,0.55262e+02_rb /)
+      kbo(:, 3,18,13) = (/ &
+        & 0.46439e+02_rb,0.65179e+02_rb,0.75037e+02_rb,0.72870e+02_rb,0.56922e+02_rb /)
+      kbo(:, 4,18,13) = (/ &
+        & 0.46165e+02_rb,0.65077e+02_rb,0.75787e+02_rb,0.74113e+02_rb,0.58606e+02_rb /)
+      kbo(:, 5,18,13) = (/ &
+        & 0.46076e+02_rb,0.64950e+02_rb,0.76497e+02_rb,0.75319e+02_rb,0.60364e+02_rb /)
+      kbo(:, 1,19,13) = (/ &
+        & 0.40875e+02_rb,0.61443e+02_rb,0.70167e+02_rb,0.67815e+02_rb,0.50666e+02_rb /)
+      kbo(:, 2,19,13) = (/ &
+        & 0.40599e+02_rb,0.61754e+02_rb,0.71348e+02_rb,0.69451e+02_rb,0.52443e+02_rb /)
+      kbo(:, 3,19,13) = (/ &
+        & 0.40423e+02_rb,0.61971e+02_rb,0.72494e+02_rb,0.71103e+02_rb,0.54265e+02_rb /)
+      kbo(:, 4,19,13) = (/ &
+        & 0.40489e+02_rb,0.62135e+02_rb,0.73624e+02_rb,0.72723e+02_rb,0.56176e+02_rb /)
+      kbo(:, 5,19,13) = (/ &
+        & 0.40909e+02_rb,0.62251e+02_rb,0.74691e+02_rb,0.74287e+02_rb,0.58151e+02_rb /)
+      kbo(:, 1,20,13) = (/ &
+        & 0.35203e+02_rb,0.57554e+02_rb,0.66740e+02_rb,0.65266e+02_rb,0.47986e+02_rb /)
+      kbo(:, 2,20,13) = (/ &
+        & 0.35059e+02_rb,0.58164e+02_rb,0.68281e+02_rb,0.67270e+02_rb,0.49928e+02_rb /)
+      kbo(:, 3,20,13) = (/ &
+        & 0.35179e+02_rb,0.58679e+02_rb,0.69865e+02_rb,0.69298e+02_rb,0.51957e+02_rb /)
+      kbo(:, 4,20,13) = (/ &
+        & 0.35687e+02_rb,0.59136e+02_rb,0.71375e+02_rb,0.71295e+02_rb,0.54068e+02_rb /)
+      kbo(:, 5,20,13) = (/ &
+        & 0.36572e+02_rb,0.59563e+02_rb,0.72814e+02_rb,0.73197e+02_rb,0.56184e+02_rb /)
+      kbo(:, 1,21,13) = (/ &
+        & 0.30294e+02_rb,0.53730e+02_rb,0.63335e+02_rb,0.62843e+02_rb,0.45639e+02_rb /)
+      kbo(:, 2,21,13) = (/ &
+        & 0.30407e+02_rb,0.54622e+02_rb,0.65309e+02_rb,0.65230e+02_rb,0.47736e+02_rb /)
+      kbo(:, 3,21,13) = (/ &
+        & 0.30898e+02_rb,0.55470e+02_rb,0.67283e+02_rb,0.67630e+02_rb,0.49955e+02_rb /)
+      kbo(:, 4,21,13) = (/ &
+        & 0.31814e+02_rb,0.56234e+02_rb,0.69205e+02_rb,0.69979e+02_rb,0.52223e+02_rb /)
+      kbo(:, 5,21,13) = (/ &
+        & 0.33171e+02_rb,0.57002e+02_rb,0.70988e+02_rb,0.72170e+02_rb,0.54507e+02_rb /)
+      kbo(:, 1,22,13) = (/ &
+        & 0.26203e+02_rb,0.50178e+02_rb,0.60369e+02_rb,0.60883e+02_rb,0.43752e+02_rb /)
+      kbo(:, 2,22,13) = (/ &
+        & 0.26668e+02_rb,0.51399e+02_rb,0.62731e+02_rb,0.63628e+02_rb,0.46055e+02_rb /)
+      kbo(:, 3,22,13) = (/ &
+        & 0.27573e+02_rb,0.52567e+02_rb,0.65094e+02_rb,0.66337e+02_rb,0.48427e+02_rb /)
+      kbo(:, 4,22,13) = (/ &
+        & 0.28933e+02_rb,0.53710e+02_rb,0.67379e+02_rb,0.68992e+02_rb,0.50840e+02_rb /)
+      kbo(:, 5,22,13) = (/ &
+        & 0.30713e+02_rb,0.54842e+02_rb,0.69500e+02_rb,0.71453e+02_rb,0.53313e+02_rb /)
+      kbo(:, 1,23,13) = (/ &
+        & 0.22949e+02_rb,0.47062e+02_rb,0.57786e+02_rb,0.59287e+02_rb,0.42207e+02_rb /)
+      kbo(:, 2,23,13) = (/ &
+        & 0.23779e+02_rb,0.48563e+02_rb,0.60567e+02_rb,0.62337e+02_rb,0.44709e+02_rb /)
+      kbo(:, 3,23,13) = (/ &
+        & 0.25087e+02_rb,0.50088e+02_rb,0.63282e+02_rb,0.65361e+02_rb,0.47224e+02_rb /)
+      kbo(:, 4,23,13) = (/ &
+        & 0.26833e+02_rb,0.51601e+02_rb,0.65861e+02_rb,0.68253e+02_rb,0.49790e+02_rb /)
+      kbo(:, 5,23,13) = (/ &
+        & 0.28975e+02_rb,0.53148e+02_rb,0.68312e+02_rb,0.70979e+02_rb,0.52442e+02_rb /)
+      kbo(:, 1,24,13) = (/ &
+        & 0.20450e+02_rb,0.44418e+02_rb,0.55719e+02_rb,0.58070e+02_rb,0.41028e+02_rb /)
+      kbo(:, 2,24,13) = (/ &
+        & 0.21647e+02_rb,0.46218e+02_rb,0.58860e+02_rb,0.61413e+02_rb,0.43697e+02_rb /)
+      kbo(:, 3,24,13) = (/ &
+        & 0.23313e+02_rb,0.48082e+02_rb,0.61856e+02_rb,0.64696e+02_rb,0.46357e+02_rb /)
+      kbo(:, 4,24,13) = (/ &
+        & 0.25383e+02_rb,0.49987e+02_rb,0.64735e+02_rb,0.67792e+02_rb,0.49079e+02_rb /)
+      kbo(:, 5,24,13) = (/ &
+        & 0.27788e+02_rb,0.51882e+02_rb,0.67449e+02_rb,0.70725e+02_rb,0.51885e+02_rb /)
+      kbo(:, 1,25,13) = (/ &
+        & 0.18632e+02_rb,0.42267e+02_rb,0.54194e+02_rb,0.57249e+02_rb,0.40189e+02_rb /)
+      kbo(:, 2,25,13) = (/ &
+        & 0.20151e+02_rb,0.44393e+02_rb,0.57583e+02_rb,0.60858e+02_rb,0.43004e+02_rb /)
+      kbo(:, 3,25,13) = (/ &
+        & 0.22101e+02_rb,0.46593e+02_rb,0.60865e+02_rb,0.64337e+02_rb,0.45809e+02_rb /)
+      kbo(:, 4,25,13) = (/ &
+        & 0.24391e+02_rb,0.48836e+02_rb,0.63984e+02_rb,0.67613e+02_rb,0.48696e+02_rb /)
+      kbo(:, 5,25,13) = (/ &
+        & 0.26959e+02_rb,0.50995e+02_rb,0.66882e+02_rb,0.70682e+02_rb,0.51602e+02_rb /)
+      kbo(:, 1,26,13) = (/ &
+        & 0.17370e+02_rb,0.40657e+02_rb,0.53173e+02_rb,0.56858e+02_rb,0.39692e+02_rb /)
+      kbo(:, 2,26,13) = (/ &
+        & 0.19155e+02_rb,0.43087e+02_rb,0.56801e+02_rb,0.60671e+02_rb,0.42632e+02_rb /)
+      kbo(:, 3,26,13) = (/ &
+        & 0.21292e+02_rb,0.45598e+02_rb,0.60302e+02_rb,0.64290e+02_rb,0.45592e+02_rb /)
+      kbo(:, 4,26,13) = (/ &
+        & 0.23727e+02_rb,0.48098e+02_rb,0.63591e+02_rb,0.67690e+02_rb,0.48603e+02_rb /)
+      kbo(:, 5,26,13) = (/ &
+        & 0.26455e+02_rb,0.50493e+02_rb,0.66616e+02_rb,0.70861e+02_rb,0.51588e+02_rb /)
+      kbo(:, 1,27,13) = (/ &
+        & 0.16499e+02_rb,0.39533e+02_rb,0.52563e+02_rb,0.56787e+02_rb,0.39461e+02_rb /)
+      kbo(:, 2,27,13) = (/ &
+        & 0.18462e+02_rb,0.42240e+02_rb,0.56391e+02_rb,0.60738e+02_rb,0.42525e+02_rb /)
+      kbo(:, 3,27,13) = (/ &
+        & 0.20737e+02_rb,0.45009e+02_rb,0.60060e+02_rb,0.64459e+02_rb,0.45612e+02_rb /)
+      kbo(:, 4,27,13) = (/ &
+        & 0.23336e+02_rb,0.47712e+02_rb,0.63452e+02_rb,0.67944e+02_rb,0.48705e+02_rb /)
+      kbo(:, 5,27,13) = (/ &
+        & 0.26215e+02_rb,0.50322e+02_rb,0.66583e+02_rb,0.71174e+02_rb,0.51756e+02_rb /)
+      kbo(:, 1,28,13) = (/ &
+        & 0.15882e+02_rb,0.38845e+02_rb,0.52318e+02_rb,0.56965e+02_rb,0.39468e+02_rb /)
+      kbo(:, 2,28,13) = (/ &
+        & 0.17994e+02_rb,0.41785e+02_rb,0.56289e+02_rb,0.61007e+02_rb,0.42649e+02_rb /)
+      kbo(:, 3,28,13) = (/ &
+        & 0.20424e+02_rb,0.44749e+02_rb,0.60052e+02_rb,0.64808e+02_rb,0.45826e+02_rb /)
+      kbo(:, 4,28,13) = (/ &
+        & 0.23178e+02_rb,0.47630e+02_rb,0.63526e+02_rb,0.68347e+02_rb,0.48967e+02_rb /)
+      kbo(:, 5,28,13) = (/ &
+        & 0.26217e+02_rb,0.50385e+02_rb,0.66714e+02_rb,0.71584e+02_rb,0.52071e+02_rb /)
+      kbo(:, 1,29,13) = (/ &
+        & 0.15496e+02_rb,0.38533e+02_rb,0.52388e+02_rb,0.57377e+02_rb,0.39687e+02_rb /)
+      kbo(:, 2,29,13) = (/ &
+        & 0.17758e+02_rb,0.41667e+02_rb,0.56458e+02_rb,0.61470e+02_rb,0.42963e+02_rb /)
+      kbo(:, 3,29,13) = (/ &
+        & 0.20345e+02_rb,0.44782e+02_rb,0.60267e+02_rb,0.65320e+02_rb,0.46203e+02_rb /)
+      kbo(:, 4,29,13) = (/ &
+        & 0.23257e+02_rb,0.47788e+02_rb,0.63789e+02_rb,0.68865e+02_rb,0.49378e+02_rb /)
+      kbo(:, 5,29,13) = (/ &
+        & 0.26442e+02_rb,0.50623e+02_rb,0.67004e+02_rb,0.72085e+02_rb,0.52513e+02_rb /)
+      kbo(:, 1,30,13) = (/ &
+        & 0.15305e+02_rb,0.38520e+02_rb,0.52687e+02_rb,0.57942e+02_rb,0.40075e+02_rb /)
+      kbo(:, 2,30,13) = (/ &
+        & 0.17725e+02_rb,0.41787e+02_rb,0.56809e+02_rb,0.62069e+02_rb,0.43408e+02_rb /)
+      kbo(:, 3,30,13) = (/ &
+        & 0.20471e+02_rb,0.45011e+02_rb,0.60646e+02_rb,0.65935e+02_rb,0.46678e+02_rb /)
+      kbo(:, 4,30,13) = (/ &
+        & 0.23532e+02_rb,0.48109e+02_rb,0.64191e+02_rb,0.69457e+02_rb,0.49879e+02_rb /)
+      kbo(:, 5,30,13) = (/ &
+        & 0.26835e+02_rb,0.50980e+02_rb,0.67409e+02_rb,0.72648e+02_rb,0.53041e+02_rb /)
+      kbo(:, 1,31,13) = (/ &
+        & 0.15319e+02_rb,0.38759e+02_rb,0.53187e+02_rb,0.58637e+02_rb,0.40597e+02_rb /)
+      kbo(:, 2,31,13) = (/ &
+        & 0.17890e+02_rb,0.42121e+02_rb,0.57326e+02_rb,0.62778e+02_rb,0.43969e+02_rb /)
+      kbo(:, 3,31,13) = (/ &
+        & 0.20784e+02_rb,0.45419e+02_rb,0.61174e+02_rb,0.66627e+02_rb,0.47246e+02_rb /)
+      kbo(:, 4,31,13) = (/ &
+        & 0.23963e+02_rb,0.48555e+02_rb,0.64709e+02_rb,0.70119e+02_rb,0.50470e+02_rb /)
+      kbo(:, 5,31,13) = (/ &
+        & 0.27377e+02_rb,0.51448e+02_rb,0.67912e+02_rb,0.73265e+02_rb,0.53642e+02_rb /)
+      kbo(:, 1,32,13) = (/ &
+        & 0.15518e+02_rb,0.39176e+02_rb,0.53833e+02_rb,0.59441e+02_rb,0.41231e+02_rb /)
+      kbo(:, 2,32,13) = (/ &
+        & 0.18219e+02_rb,0.42608e+02_rb,0.57967e+02_rb,0.63575e+02_rb,0.44614e+02_rb /)
+      kbo(:, 3,32,13) = (/ &
+        & 0.21240e+02_rb,0.45958e+02_rb,0.61807e+02_rb,0.67376e+02_rb,0.47899e+02_rb /)
+      kbo(:, 4,32,13) = (/ &
+        & 0.24535e+02_rb,0.49103e+02_rb,0.65323e+02_rb,0.70819e+02_rb,0.51129e+02_rb /)
+      kbo(:, 5,32,13) = (/ &
+        & 0.28030e+02_rb,0.51991e+02_rb,0.68477e+02_rb,0.73912e+02_rb,0.54297e+02_rb /)
+      kbo(:, 1,33,13) = (/ &
+        & 0.15857e+02_rb,0.39728e+02_rb,0.54587e+02_rb,0.60326e+02_rb,0.41934e+02_rb /)
+      kbo(:, 2,33,13) = (/ &
+        & 0.18681e+02_rb,0.43207e+02_rb,0.58700e+02_rb,0.64428e+02_rb,0.45312e+02_rb /)
+      kbo(:, 3,33,13) = (/ &
+        & 0.21817e+02_rb,0.46584e+02_rb,0.62510e+02_rb,0.68164e+02_rb,0.48601e+02_rb /)
+      kbo(:, 4,33,13) = (/ &
+        & 0.25208e+02_rb,0.49716e+02_rb,0.65986e+02_rb,0.71546e+02_rb,0.51832e+02_rb /)
+      kbo(:, 5,33,13) = (/ &
+        & 0.28769e+02_rb,0.52588e+02_rb,0.69085e+02_rb,0.74576e+02_rb,0.54996e+02_rb /)
+      kbo(:, 1,34,13) = (/ &
+        & 0.16218e+02_rb,0.40255e+02_rb,0.55264e+02_rb,0.61104e+02_rb,0.42563e+02_rb /)
+      kbo(:, 2,34,13) = (/ &
+        & 0.19136e+02_rb,0.43775e+02_rb,0.59363e+02_rb,0.65173e+02_rb,0.45933e+02_rb /)
+      kbo(:, 3,34,13) = (/ &
+        & 0.22367e+02_rb,0.47148e+02_rb,0.63138e+02_rb,0.68848e+02_rb,0.49223e+02_rb /)
+      kbo(:, 4,34,13) = (/ &
+        & 0.25824e+02_rb,0.50264e+02_rb,0.66569e+02_rb,0.72180e+02_rb,0.52454e+02_rb /)
+      kbo(:, 5,34,13) = (/ &
+        & 0.29432e+02_rb,0.53119e+02_rb,0.69617e+02_rb,0.75149e+02_rb,0.55607e+02_rb /)
+      kbo(:, 1,35,13) = (/ &
+        & 0.16382e+02_rb,0.40509e+02_rb,0.55591e+02_rb,0.61512e+02_rb,0.42891e+02_rb /)
+      kbo(:, 2,35,13) = (/ &
+        & 0.19362e+02_rb,0.44056e+02_rb,0.59682e+02_rb,0.65556e+02_rb,0.46259e+02_rb /)
+      kbo(:, 3,35,13) = (/ &
+        & 0.22646e+02_rb,0.47437e+02_rb,0.63450e+02_rb,0.69212e+02_rb,0.49551e+02_rb /)
+      kbo(:, 4,35,13) = (/ &
+        & 0.26140e+02_rb,0.50553e+02_rb,0.66864e+02_rb,0.72519e+02_rb,0.52785e+02_rb /)
+      kbo(:, 5,35,13) = (/ &
+        & 0.29778e+02_rb,0.53403e+02_rb,0.69889e+02_rb,0.75460e+02_rb,0.55937e+02_rb /)
+      kbo(:, 1,36,13) = (/ &
+        & 0.16282e+02_rb,0.40412e+02_rb,0.55499e+02_rb,0.61489e+02_rb,0.42866e+02_rb /)
+      kbo(:, 2,36,13) = (/ &
+        & 0.19286e+02_rb,0.43996e+02_rb,0.59618e+02_rb,0.65550e+02_rb,0.46244e+02_rb /)
+      kbo(:, 3,36,13) = (/ &
+        & 0.22586e+02_rb,0.47399e+02_rb,0.63406e+02_rb,0.69212e+02_rb,0.49542e+02_rb /)
+      kbo(:, 4,36,13) = (/ &
+        & 0.26096e+02_rb,0.50533e+02_rb,0.66829e+02_rb,0.72526e+02_rb,0.52781e+02_rb /)
+      kbo(:, 5,36,13) = (/ &
+        & 0.29750e+02_rb,0.53407e+02_rb,0.69875e+02_rb,0.75478e+02_rb,0.55943e+02_rb /)
+      kbo(:, 1,37,13) = (/ &
+        & 0.15776e+02_rb,0.39797e+02_rb,0.54788e+02_rb,0.60844e+02_rb,0.42332e+02_rb /)
+      kbo(:, 2,37,13) = (/ &
+        & 0.18757e+02_rb,0.43418e+02_rb,0.58970e+02_rb,0.64965e+02_rb,0.45736e+02_rb /)
+      kbo(:, 3,37,13) = (/ &
+        & 0.22032e+02_rb,0.46879e+02_rb,0.62830e+02_rb,0.68697e+02_rb,0.49053e+02_rb /)
+      kbo(:, 4,37,13) = (/ &
+        & 0.25533e+02_rb,0.50076e+02_rb,0.66324e+02_rb,0.72072e+02_rb,0.52311e+02_rb /)
+      kbo(:, 5,37,13) = (/ &
+        & 0.29180e+02_rb,0.52997e+02_rb,0.69437e+02_rb,0.75080e+02_rb,0.55481e+02_rb /)
+      kbo(:, 1,38,13) = (/ &
+        & 0.15271e+02_rb,0.39166e+02_rb,0.54054e+02_rb,0.60165e+02_rb,0.41777e+02_rb /)
+      kbo(:, 2,38,13) = (/ &
+        & 0.18227e+02_rb,0.42823e+02_rb,0.58302e+02_rb,0.64350e+02_rb,0.45207e+02_rb /)
+      kbo(:, 3,38,13) = (/ &
+        & 0.21473e+02_rb,0.46333e+02_rb,0.62224e+02_rb,0.68144e+02_rb,0.48540e+02_rb /)
+      kbo(:, 4,38,13) = (/ &
+        & 0.24954e+02_rb,0.49588e+02_rb,0.65790e+02_rb,0.71578e+02_rb,0.51811e+02_rb /)
+      kbo(:, 5,38,13) = (/ &
+        & 0.28592e+02_rb,0.52564e+02_rb,0.68973e+02_rb,0.74653e+02_rb,0.55000e+02_rb /)
+      kbo(:, 1,39,13) = (/ &
+        & 0.14788e+02_rb,0.38557e+02_rb,0.53339e+02_rb,0.59493e+02_rb,0.41232e+02_rb /)
+      kbo(:, 2,39,13) = (/ &
+        & 0.17725e+02_rb,0.42239e+02_rb,0.57643e+02_rb,0.63735e+02_rb,0.44689e+02_rb /)
+      kbo(:, 3,39,13) = (/ &
+        & 0.20936e+02_rb,0.45800e+02_rb,0.61629e+02_rb,0.67599e+02_rb,0.48036e+02_rb /)
+      kbo(:, 4,39,13) = (/ &
+        & 0.24393e+02_rb,0.49102e+02_rb,0.65258e+02_rb,0.71089e+02_rb,0.51322e+02_rb /)
+      kbo(:, 5,39,13) = (/ &
+        & 0.28020e+02_rb,0.52130e+02_rb,0.68507e+02_rb,0.74225e+02_rb,0.54528e+02_rb /)
+      kbo(:, 1,40,13) = (/ &
+        & 0.14035e+02_rb,0.37576e+02_rb,0.52178e+02_rb,0.58374e+02_rb,0.40328e+02_rb /)
+      kbo(:, 2,40,13) = (/ &
+        & 0.16933e+02_rb,0.41290e+02_rb,0.56557e+02_rb,0.62694e+02_rb,0.43829e+02_rb /)
+      kbo(:, 3,40,13) = (/ &
+        & 0.20073e+02_rb,0.44909e+02_rb,0.60638e+02_rb,0.66668e+02_rb,0.47203e+02_rb /)
+      kbo(:, 4,40,13) = (/ &
+        & 0.23486e+02_rb,0.48287e+02_rb,0.64365e+02_rb,0.70250e+02_rb,0.50504e+02_rb /)
+      kbo(:, 5,40,13) = (/ &
+        & 0.27084e+02_rb,0.51393e+02_rb,0.67719e+02_rb,0.73485e+02_rb,0.53736e+02_rb /)
+      kbo(:, 1,41,13) = (/ &
+        & 0.13270e+02_rb,0.36551e+02_rb,0.50952e+02_rb,0.57187e+02_rb,0.39381e+02_rb /)
+      kbo(:, 2,41,13) = (/ &
+        & 0.16132e+02_rb,0.40293e+02_rb,0.55396e+02_rb,0.61573e+02_rb,0.42921e+02_rb /)
+      kbo(:, 3,41,13) = (/ &
+        & 0.19195e+02_rb,0.43957e+02_rb,0.59575e+02_rb,0.65658e+02_rb,0.46320e+02_rb /)
+      kbo(:, 4,41,13) = (/ &
+        & 0.22552e+02_rb,0.47415e+02_rb,0.63413e+02_rb,0.69340e+02_rb,0.49639e+02_rb /)
+      kbo(:, 5,41,13) = (/ &
+        & 0.26115e+02_rb,0.50603e+02_rb,0.66868e+02_rb,0.72675e+02_rb,0.52897e+02_rb /)
+      kbo(:, 1,42,13) = (/ &
+        & 0.12533e+02_rb,0.35537e+02_rb,0.49715e+02_rb,0.55979e+02_rb,0.38430e+02_rb /)
+      kbo(:, 2,42,13) = (/ &
+        & 0.15340e+02_rb,0.39292e+02_rb,0.54229e+02_rb,0.60445e+02_rb,0.42004e+02_rb /)
+      kbo(:, 3,42,13) = (/ &
+        & 0.18342e+02_rb,0.42991e+02_rb,0.58494e+02_rb,0.64631e+02_rb,0.45437e+02_rb /)
+      kbo(:, 4,42,13) = (/ &
+        & 0.21634e+02_rb,0.46527e+02_rb,0.62435e+02_rb,0.68417e+02_rb,0.48777e+02_rb /)
+      kbo(:, 5,42,13) = (/ &
+        & 0.25154e+02_rb,0.49791e+02_rb,0.65989e+02_rb,0.71836e+02_rb,0.52054e+02_rb /)
+      kbo(:, 1,43,13) = (/ &
+        & 0.11668e+02_rb,0.34309e+02_rb,0.48203e+02_rb,0.54498e+02_rb,0.37270e+02_rb /)
+      kbo(:, 2,43,13) = (/ &
+        & 0.14402e+02_rb,0.38082e+02_rb,0.52797e+02_rb,0.59048e+02_rb,0.40873e+02_rb /)
+      kbo(:, 3,43,13) = (/ &
+        & 0.17344e+02_rb,0.41812e+02_rb,0.57160e+02_rb,0.63341e+02_rb,0.44355e+02_rb /)
+      kbo(:, 4,43,13) = (/ &
+        & 0.20545e+02_rb,0.45427e+02_rb,0.61209e+02_rb,0.67260e+02_rb,0.47724e+02_rb /)
+      kbo(:, 5,43,13) = (/ &
+        & 0.24007e+02_rb,0.48779e+02_rb,0.64893e+02_rb,0.70794e+02_rb,0.51019e+02_rb /)
+      kbo(:, 1,44,13) = (/ &
+        & 0.10777e+02_rb,0.32982e+02_rb,0.46555e+02_rb,0.52865e+02_rb,0.36017e+02_rb /)
+      kbo(:, 2,44,13) = (/ &
+        & 0.13422e+02_rb,0.36774e+02_rb,0.51234e+02_rb,0.57518e+02_rb,0.39647e+02_rb /)
+      kbo(:, 3,44,13) = (/ &
+        & 0.16301e+02_rb,0.40529e+02_rb,0.55688e+02_rb,0.61909e+02_rb,0.43184e+02_rb /)
+      kbo(:, 4,44,13) = (/ &
+        & 0.19410e+02_rb,0.44205e+02_rb,0.59841e+02_rb,0.65956e+02_rb,0.46575e+02_rb /)
+      kbo(:, 5,44,13) = (/ &
+        & 0.22792e+02_rb,0.47657e+02_rb,0.63668e+02_rb,0.69623e+02_rb,0.49898e+02_rb /)
+      kbo(:, 1,45,13) = (/ &
+        & 0.99376e+01_rb,0.31658e+02_rb,0.44891e+02_rb,0.51201e+02_rb,0.34758e+02_rb /)
+      kbo(:, 2,45,13) = (/ &
+        & 0.12468e+02_rb,0.35468e+02_rb,0.49648e+02_rb,0.55955e+02_rb,0.38412e+02_rb /)
+      kbo(:, 3,45,13) = (/ &
+        & 0.15282e+02_rb,0.39240e+02_rb,0.54182e+02_rb,0.60441e+02_rb,0.41991e+02_rb /)
+      kbo(:, 4,45,13) = (/ &
+        & 0.18307e+02_rb,0.42958e+02_rb,0.58447e+02_rb,0.64617e+02_rb,0.45427e+02_rb /)
+      kbo(:, 5,45,13) = (/ &
+        & 0.21602e+02_rb,0.46508e+02_rb,0.62404e+02_rb,0.68417e+02_rb,0.48775e+02_rb /)
+      kbo(:, 1,46,13) = (/ &
+        & 0.90997e+01_rb,0.30250e+02_rb,0.43114e+02_rb,0.49420e+02_rb,0.33417e+02_rb /)
+      kbo(:, 2,46,13) = (/ &
+        & 0.11497e+02_rb,0.34076e+02_rb,0.47932e+02_rb,0.54263e+02_rb,0.37087e+02_rb /)
+      kbo(:, 3,46,13) = (/ &
+        & 0.14229e+02_rb,0.37865e+02_rb,0.52547e+02_rb,0.58836e+02_rb,0.40705e+02_rb /)
+      kbo(:, 4,46,13) = (/ &
+        & 0.17178e+02_rb,0.41613e+02_rb,0.56930e+02_rb,0.63142e+02_rb,0.44193e+02_rb /)
+      kbo(:, 5,46,13) = (/ &
+        & 0.20366e+02_rb,0.45251e+02_rb,0.61008e+02_rb,0.67091e+02_rb,0.47569e+02_rb /)
+      kbo(:, 1,47,13) = (/ &
+        & 0.82326e+01_rb,0.28698e+02_rb,0.41131e+02_rb,0.47406e+02_rb,0.31895e+02_rb /)
+      kbo(:, 2,47,13) = (/ &
+        & 0.10467e+02_rb,0.32516e+02_rb,0.45987e+02_rb,0.52322e+02_rb,0.35605e+02_rb /)
+      kbo(:, 3,47,13) = (/ &
+        & 0.13084e+02_rb,0.36324e+02_rb,0.50700e+02_rb,0.57015e+02_rb,0.39250e+02_rb /)
+      kbo(:, 4,47,13) = (/ &
+        & 0.15956e+02_rb,0.40097e+02_rb,0.55181e+02_rb,0.61437e+02_rb,0.42802e+02_rb /)
+      kbo(:, 5,47,13) = (/ &
+        & 0.19031e+02_rb,0.43799e+02_rb,0.59396e+02_rb,0.65543e+02_rb,0.46212e+02_rb /)
+      kbo(:, 1,48,13) = (/ &
+        & 0.74393e+01_rb,0.27161e+02_rb,0.39157e+02_rb,0.45343e+02_rb,0.30350e+02_rb /)
+      kbo(:, 2,48,13) = (/ &
+        & 0.95049e+01_rb,0.30953e+02_rb,0.44020e+02_rb,0.50347e+02_rb,0.34113e+02_rb /)
+      kbo(:, 3,48,13) = (/ &
+        & 0.11978e+02_rb,0.34782e+02_rb,0.48813e+02_rb,0.55151e+02_rb,0.37782e+02_rb /)
+      kbo(:, 4,48,13) = (/ &
+        & 0.14764e+02_rb,0.38570e+02_rb,0.53387e+02_rb,0.59681e+02_rb,0.41384e+02_rb /)
+      kbo(:, 5,48,13) = (/ &
+        & 0.17748e+02_rb,0.42312e+02_rb,0.57728e+02_rb,0.63933e+02_rb,0.44844e+02_rb /)
+      kbo(:, 1,49,13) = (/ &
+        & 0.67167e+01_rb,0.25650e+02_rb,0.37197e+02_rb,0.43247e+02_rb,0.28796e+02_rb /)
+      kbo(:, 2,49,13) = (/ &
+        & 0.86101e+01_rb,0.29402e+02_rb,0.42045e+02_rb,0.48354e+02_rb,0.32610e+02_rb /)
+      kbo(:, 3,49,13) = (/ &
+        & 0.10926e+02_rb,0.33234e+02_rb,0.46891e+02_rb,0.53243e+02_rb,0.36305e+02_rb /)
+      kbo(:, 4,49,13) = (/ &
+        & 0.13605e+02_rb,0.37035e+02_rb,0.51562e+02_rb,0.57884e+02_rb,0.39936e+02_rb /)
+      kbo(:, 5,49,13) = (/ &
+        & 0.16513e+02_rb,0.40804e+02_rb,0.56010e+02_rb,0.62260e+02_rb,0.43466e+02_rb /)
+      kbo(:, 1,50,13) = (/ &
+        & 0.60927e+01_rb,0.24264e+02_rb,0.35366e+02_rb,0.41271e+02_rb,0.27331e+02_rb /)
+      kbo(:, 2,50,13) = (/ &
+        & 0.78376e+01_rb,0.27958e+02_rb,0.40194e+02_rb,0.46451e+02_rb,0.31176e+02_rb /)
+      kbo(:, 3,50,13) = (/ &
+        & 0.99975e+01_rb,0.31777e+02_rb,0.45061e+02_rb,0.51408e+02_rb,0.34914e+02_rb /)
+      kbo(:, 4,50,13) = (/ &
+        & 0.12552e+02_rb,0.35595e+02_rb,0.49816e+02_rb,0.56159e+02_rb,0.38569e+02_rb /)
+      kbo(:, 5,50,13) = (/ &
+        & 0.15384e+02_rb,0.39379e+02_rb,0.54352e+02_rb,0.60637e+02_rb,0.42153e+02_rb /)
+      kbo(:, 1,51,13) = (/ &
+        & 0.55303e+01_rb,0.22951e+02_rb,0.33599e+02_rb,0.39341e+02_rb,0.25901e+02_rb /)
+      kbo(:, 2,51,13) = (/ &
+        & 0.71468e+01_rb,0.26574e+02_rb,0.38412e+02_rb,0.44565e+02_rb,0.29771e+02_rb /)
+      kbo(:, 3,51,13) = (/ &
+        & 0.91530e+01_rb,0.30360e+02_rb,0.43274e+02_rb,0.49608e+02_rb,0.33559e+02_rb /)
+      kbo(:, 4,51,13) = (/ &
+        & 0.11570e+02_rb,0.34196e+02_rb,0.48091e+02_rb,0.54457e+02_rb,0.37233e+02_rb /)
+      kbo(:, 5,51,13) = (/ &
+        & 0.14322e+02_rb,0.37996e+02_rb,0.52708e+02_rb,0.59018e+02_rb,0.40851e+02_rb /)
+      kbo(:, 1,52,13) = (/ &
+        & 0.50134e+01_rb,0.21673e+02_rb,0.31833e+02_rb,0.37382e+02_rb,0.24463e+02_rb /)
+      kbo(:, 2,52,13) = (/ &
+        & 0.65135e+01_rb,0.25216e+02_rb,0.36639e+02_rb,0.42658e+02_rb,0.28359e+02_rb /)
+      kbo(:, 3,52,13) = (/ &
+        & 0.83642e+01_rb,0.28959e+02_rb,0.41485e+02_rb,0.47797e+02_rb,0.32187e+02_rb /)
+      kbo(:, 4,52,13) = (/ &
+        & 0.10636e+02_rb,0.32789e+02_rb,0.46344e+02_rb,0.52709e+02_rb,0.35895e+02_rb /)
+      kbo(:, 5,52,13) = (/ &
+        & 0.13285e+02_rb,0.36604e+02_rb,0.51047e+02_rb,0.57380e+02_rb,0.39540e+02_rb /)
+      kbo(:, 1,53,13) = (/ &
+        & 0.45376e+01_rb,0.20438e+02_rb,0.30067e+02_rb,0.35396e+02_rb,0.23001e+02_rb /)
+      kbo(:, 2,53,13) = (/ &
+        & 0.59241e+01_rb,0.23884e+02_rb,0.34872e+02_rb,0.40744e+02_rb,0.26941e+02_rb /)
+      kbo(:, 3,53,13) = (/ &
+        & 0.76354e+01_rb,0.27568e+02_rb,0.39698e+02_rb,0.45939e+02_rb,0.30794e+02_rb /)
+      kbo(:, 4,53,13) = (/ &
+        & 0.97536e+01_rb,0.31378e+02_rb,0.44569e+02_rb,0.50924e+02_rb,0.34545e+02_rb /)
+      kbo(:, 5,53,13) = (/ &
+        & 0.12275e+02_rb,0.35210e+02_rb,0.49348e+02_rb,0.55701e+02_rb,0.38212e+02_rb /)
+      kbo(:, 1,54,13) = (/ &
+        & 0.41389e+01_rb,0.19353e+02_rb,0.28454e+02_rb,0.33563e+02_rb,0.21647e+02_rb /)
+      kbo(:, 2,54,13) = (/ &
+        & 0.54194e+01_rb,0.22692e+02_rb,0.33259e+02_rb,0.38976e+02_rb,0.25632e+02_rb /)
+      kbo(:, 3,54,13) = (/ &
+        & 0.70164e+01_rb,0.26307e+02_rb,0.38072e+02_rb,0.44208e+02_rb,0.29508e+02_rb /)
+      kbo(:, 4,54,13) = (/ &
+        & 0.89936e+01_rb,0.30086e+02_rb,0.42934e+02_rb,0.49276e+02_rb,0.33306e+02_rb /)
+      kbo(:, 5,54,13) = (/ &
+        & 0.11387e+02_rb,0.33931e+02_rb,0.47765e+02_rb,0.54132e+02_rb,0.36987e+02_rb /)
+      kbo(:, 1,55,13) = (/ &
+        & 0.37927e+01_rb,0.18358e+02_rb,0.26927e+02_rb,0.31801e+02_rb,0.20350e+02_rb /)
+      kbo(:, 2,55,13) = (/ &
+        & 0.49755e+01_rb,0.21582e+02_rb,0.31711e+02_rb,0.37250e+02_rb,0.24368e+02_rb /)
+      kbo(:, 3,55,13) = (/ &
+        & 0.64669e+01_rb,0.25119e+02_rb,0.36517e+02_rb,0.42532e+02_rb,0.28268e+02_rb /)
+      kbo(:, 4,55,13) = (/ &
+        & 0.83082e+01_rb,0.28857e+02_rb,0.41362e+02_rb,0.47679e+02_rb,0.32095e+02_rb /)
+      kbo(:, 5,55,13) = (/ &
+        & 0.10573e+02_rb,0.32695e+02_rb,0.46225e+02_rb,0.52593e+02_rb,0.35810e+02_rb /)
+      kbo(:, 1,56,13) = (/ &
+        & 0.34680e+01_rb,0.17374e+02_rb,0.25413e+02_rb,0.30039e+02_rb,0.19069e+02_rb /)
+      kbo(:, 2,56,13) = (/ &
+        & 0.45601e+01_rb,0.20503e+02_rb,0.30163e+02_rb,0.35509e+02_rb,0.23088e+02_rb /)
+      kbo(:, 3,56,13) = (/ &
+        & 0.59518e+01_rb,0.23956e+02_rb,0.34971e+02_rb,0.40858e+02_rb,0.27027e+02_rb /)
+      kbo(:, 4,56,13) = (/ &
+        & 0.76711e+01_rb,0.27642e+02_rb,0.39801e+02_rb,0.46057e+02_rb,0.30878e+02_rb /)
+      kbo(:, 5,56,13) = (/ &
+        & 0.98017e+01_rb,0.31462e+02_rb,0.44674e+02_rb,0.51031e+02_rb,0.34630e+02_rb /)
+      kbo(:, 1,57,13) = (/ &
+        & 0.31571e+01_rb,0.16389e+02_rb,0.23903e+02_rb,0.28270e+02_rb,0.17802e+02_rb /)
+      kbo(:, 2,57,13) = (/ &
+        & 0.41775e+01_rb,0.19466e+02_rb,0.28628e+02_rb,0.33765e+02_rb,0.21796e+02_rb /)
+      kbo(:, 3,57,13) = (/ &
+        & 0.54676e+01_rb,0.22817e+02_rb,0.33433e+02_rb,0.39170e+02_rb,0.25777e+02_rb /)
+      kbo(:, 4,57,13) = (/ &
+        & 0.70767e+01_rb,0.26436e+02_rb,0.38248e+02_rb,0.44404e+02_rb,0.29650e+02_rb /)
+      kbo(:, 5,57,13) = (/ &
+        & 0.90728e+01_rb,0.30224e+02_rb,0.43110e+02_rb,0.49455e+02_rb,0.33445e+02_rb /)
+      kbo(:, 1,58,13) = (/ &
+        & 0.28749e+01_rb,0.15464e+02_rb,0.22485e+02_rb,0.26596e+02_rb,0.16612e+02_rb /)
+      kbo(:, 2,58,13) = (/ &
+        & 0.38438e+01_rb,0.18517e+02_rb,0.27179e+02_rb,0.32099e+02_rb,0.20568e+02_rb /)
+      kbo(:, 3,58,13) = (/ &
+        & 0.50410e+01_rb,0.21758e+02_rb,0.31967e+02_rb,0.37546e+02_rb,0.24584e+02_rb /)
+      kbo(:, 4,58,13) = (/ &
+        & 0.65535e+01_rb,0.25311e+02_rb,0.36779e+02_rb,0.42823e+02_rb,0.28478e+02_rb /)
+      kbo(:, 5,58,13) = (/ &
+        & 0.84187e+01_rb,0.29065e+02_rb,0.41628e+02_rb,0.47951e+02_rb,0.32304e+02_rb /)
+      kbo(:, 1,59,13) = (/ &
+        & 0.27657e+01_rb,0.15098e+02_rb,0.21927e+02_rb,0.25930e+02_rb,0.16137e+02_rb /)
+      kbo(:, 2,59,13) = (/ &
+        & 0.37163e+01_rb,0.18141e+02_rb,0.26603e+02_rb,0.31433e+02_rb,0.20078e+02_rb /)
+      kbo(:, 3,59,13) = (/ &
+        & 0.48770e+01_rb,0.21342e+02_rb,0.31379e+02_rb,0.36884e+02_rb,0.24100e+02_rb /)
+      kbo(:, 4,59,13) = (/ &
+        & 0.63518e+01_rb,0.24865e+02_rb,0.36188e+02_rb,0.42182e+02_rb,0.28007e+02_rb /)
+      kbo(:, 5,59,13) = (/ &
+        & 0.81684e+01_rb,0.28600e+02_rb,0.41035e+02_rb,0.47343e+02_rb,0.31847e+02_rb /)
+      kbo(:, 1,13,14) = (/ &
+        & 0.20563e+03_rb,0.16395e+03_rb,0.15131e+03_rb,0.13928e+03_rb,0.17336e+03_rb /)
+      kbo(:, 2,13,14) = (/ &
+        & 0.20583e+03_rb,0.16346e+03_rb,0.15102e+03_rb,0.13867e+03_rb,0.17209e+03_rb /)
+      kbo(:, 3,13,14) = (/ &
+        & 0.20579e+03_rb,0.16282e+03_rb,0.15051e+03_rb,0.13803e+03_rb,0.17119e+03_rb /)
+      kbo(:, 4,13,14) = (/ &
+        & 0.20538e+03_rb,0.16198e+03_rb,0.15005e+03_rb,0.13746e+03_rb,0.17062e+03_rb /)
+      kbo(:, 5,13,14) = (/ &
+        & 0.20471e+03_rb,0.16100e+03_rb,0.14942e+03_rb,0.13685e+03_rb,0.16998e+03_rb /)
+      kbo(:, 1,14,14) = (/ &
+        & 0.21387e+03_rb,0.17486e+03_rb,0.16410e+03_rb,0.14896e+03_rb,0.17926e+03_rb /)
+      kbo(:, 2,14,14) = (/ &
+        & 0.21398e+03_rb,0.17407e+03_rb,0.16354e+03_rb,0.14849e+03_rb,0.17872e+03_rb /)
+      kbo(:, 3,14,14) = (/ &
+        & 0.21371e+03_rb,0.17306e+03_rb,0.16300e+03_rb,0.14796e+03_rb,0.17838e+03_rb /)
+      kbo(:, 4,14,14) = (/ &
+        & 0.21320e+03_rb,0.17193e+03_rb,0.16238e+03_rb,0.14748e+03_rb,0.17807e+03_rb /)
+      kbo(:, 5,14,14) = (/ &
+        & 0.21239e+03_rb,0.17062e+03_rb,0.16158e+03_rb,0.14661e+03_rb,0.17726e+03_rb /)
+      kbo(:, 1,15,14) = (/ &
+        & 0.21868e+03_rb,0.18392e+03_rb,0.17597e+03_rb,0.15877e+03_rb,0.18409e+03_rb /)
+      kbo(:, 2,15,14) = (/ &
+        & 0.21861e+03_rb,0.18285e+03_rb,0.17533e+03_rb,0.15845e+03_rb,0.18413e+03_rb /)
+      kbo(:, 3,15,14) = (/ &
+        & 0.21838e+03_rb,0.18168e+03_rb,0.17469e+03_rb,0.15814e+03_rb,0.18423e+03_rb /)
+      kbo(:, 4,15,14) = (/ &
+        & 0.21785e+03_rb,0.18028e+03_rb,0.17392e+03_rb,0.15747e+03_rb,0.18391e+03_rb /)
+      kbo(:, 5,15,14) = (/ &
+        & 0.21714e+03_rb,0.17881e+03_rb,0.17281e+03_rb,0.15644e+03_rb,0.18337e+03_rb /)
+      kbo(:, 1,16,14) = (/ &
+        & 0.21989e+03_rb,0.19090e+03_rb,0.18666e+03_rb,0.16823e+03_rb,0.18717e+03_rb /)
+      kbo(:, 2,16,14) = (/ &
+        & 0.22000e+03_rb,0.18989e+03_rb,0.18604e+03_rb,0.16822e+03_rb,0.18797e+03_rb /)
+      kbo(:, 3,16,14) = (/ &
+        & 0.21982e+03_rb,0.18856e+03_rb,0.18533e+03_rb,0.16794e+03_rb,0.18851e+03_rb /)
+      kbo(:, 4,16,14) = (/ &
+        & 0.21954e+03_rb,0.18709e+03_rb,0.18432e+03_rb,0.16715e+03_rb,0.18854e+03_rb /)
+      kbo(:, 5,16,14) = (/ &
+        & 0.21898e+03_rb,0.18542e+03_rb,0.18303e+03_rb,0.16600e+03_rb,0.18839e+03_rb /)
+      kbo(:, 1,17,14) = (/ &
+        & 0.21793e+03_rb,0.19596e+03_rb,0.19603e+03_rb,0.17703e+03_rb,0.18857e+03_rb /)
+      kbo(:, 2,17,14) = (/ &
+        & 0.21821e+03_rb,0.19492e+03_rb,0.19548e+03_rb,0.17725e+03_rb,0.19023e+03_rb /)
+      kbo(:, 3,17,14) = (/ &
+        & 0.21850e+03_rb,0.19369e+03_rb,0.19462e+03_rb,0.17701e+03_rb,0.19133e+03_rb /)
+      kbo(:, 4,17,14) = (/ &
+        & 0.21855e+03_rb,0.19221e+03_rb,0.19343e+03_rb,0.17616e+03_rb,0.19194e+03_rb /)
+      kbo(:, 5,17,14) = (/ &
+        & 0.21839e+03_rb,0.19057e+03_rb,0.19206e+03_rb,0.17490e+03_rb,0.19225e+03_rb /)
+      kbo(:, 1,18,14) = (/ &
+        & 0.21311e+03_rb,0.19935e+03_rb,0.20385e+03_rb,0.18492e+03_rb,0.18864e+03_rb /)
+      kbo(:, 2,18,14) = (/ &
+        & 0.21399e+03_rb,0.19838e+03_rb,0.20339e+03_rb,0.18536e+03_rb,0.19117e+03_rb /)
+      kbo(:, 3,18,14) = (/ &
+        & 0.21477e+03_rb,0.19727e+03_rb,0.20251e+03_rb,0.18517e+03_rb,0.19296e+03_rb /)
+      kbo(:, 4,18,14) = (/ &
+        & 0.21537e+03_rb,0.19602e+03_rb,0.20131e+03_rb,0.18433e+03_rb,0.19426e+03_rb /)
+      kbo(:, 5,18,14) = (/ &
+        & 0.21594e+03_rb,0.19460e+03_rb,0.19989e+03_rb,0.18299e+03_rb,0.19511e+03_rb /)
+      kbo(:, 1,19,14) = (/ &
+        & 0.20628e+03_rb,0.20131e+03_rb,0.21018e+03_rb,0.19181e+03_rb,0.18780e+03_rb /)
+      kbo(:, 2,19,14) = (/ &
+        & 0.20786e+03_rb,0.20061e+03_rb,0.20985e+03_rb,0.19249e+03_rb,0.19117e+03_rb /)
+      kbo(:, 3,19,14) = (/ &
+        & 0.20939e+03_rb,0.19978e+03_rb,0.20915e+03_rb,0.19245e+03_rb,0.19379e+03_rb /)
+      kbo(:, 4,19,14) = (/ &
+        & 0.21078e+03_rb,0.19876e+03_rb,0.20808e+03_rb,0.19159e+03_rb,0.19578e+03_rb /)
+      kbo(:, 5,19,14) = (/ &
+        & 0.21196e+03_rb,0.19762e+03_rb,0.20666e+03_rb,0.19020e+03_rb,0.19726e+03_rb /)
+      kbo(:, 1,20,14) = (/ &
+        & 0.19806e+03_rb,0.20215e+03_rb,0.21525e+03_rb,0.19781e+03_rb,0.18646e+03_rb /)
+      kbo(:, 2,20,14) = (/ &
+        & 0.20054e+03_rb,0.20180e+03_rb,0.21527e+03_rb,0.19874e+03_rb,0.19072e+03_rb /)
+      kbo(:, 3,20,14) = (/ &
+        & 0.20298e+03_rb,0.20132e+03_rb,0.21478e+03_rb,0.19877e+03_rb,0.19413e+03_rb /)
+      kbo(:, 4,20,14) = (/ &
+        & 0.20522e+03_rb,0.20070e+03_rb,0.21384e+03_rb,0.19793e+03_rb,0.19681e+03_rb /)
+      kbo(:, 5,20,14) = (/ &
+        & 0.20725e+03_rb,0.19975e+03_rb,0.21249e+03_rb,0.19659e+03_rb,0.19899e+03_rb /)
+      kbo(:, 1,21,14) = (/ &
+        & 0.18919e+03_rb,0.20217e+03_rb,0.21942e+03_rb,0.20291e+03_rb,0.18499e+03_rb /)
+      kbo(:, 2,21,14) = (/ &
+        & 0.19268e+03_rb,0.20239e+03_rb,0.21974e+03_rb,0.20415e+03_rb,0.19012e+03_rb /)
+      kbo(:, 3,21,14) = (/ &
+        & 0.19609e+03_rb,0.20231e+03_rb,0.21947e+03_rb,0.20425e+03_rb,0.19432e+03_rb /)
+      kbo(:, 4,21,14) = (/ &
+        & 0.19926e+03_rb,0.20201e+03_rb,0.21866e+03_rb,0.20346e+03_rb,0.19770e+03_rb /)
+      kbo(:, 5,21,14) = (/ &
+        & 0.20224e+03_rb,0.20136e+03_rb,0.21742e+03_rb,0.20212e+03_rb,0.20044e+03_rb /)
+      kbo(:, 1,22,14) = (/ &
+        & 0.18064e+03_rb,0.20182e+03_rb,0.22276e+03_rb,0.20740e+03_rb,0.18409e+03_rb /)
+      kbo(:, 2,22,14) = (/ &
+        & 0.18513e+03_rb,0.20253e+03_rb,0.22341e+03_rb,0.20876e+03_rb,0.18988e+03_rb /)
+      kbo(:, 3,22,14) = (/ &
+        & 0.18951e+03_rb,0.20287e+03_rb,0.22329e+03_rb,0.20890e+03_rb,0.19474e+03_rb /)
+      kbo(:, 4,22,14) = (/ &
+        & 0.19368e+03_rb,0.20283e+03_rb,0.22259e+03_rb,0.20812e+03_rb,0.19869e+03_rb /)
+      kbo(:, 5,22,14) = (/ &
+        & 0.19752e+03_rb,0.20248e+03_rb,0.22143e+03_rb,0.20676e+03_rb,0.20185e+03_rb /)
+      kbo(:, 1,23,14) = (/ &
+        & 0.17261e+03_rb,0.20129e+03_rb,0.22560e+03_rb,0.21126e+03_rb,0.18360e+03_rb /)
+      kbo(:, 2,23,14) = (/ &
+        & 0.17813e+03_rb,0.20255e+03_rb,0.22645e+03_rb,0.21277e+03_rb,0.18993e+03_rb /)
+      kbo(:, 3,23,14) = (/ &
+        & 0.18347e+03_rb,0.20322e+03_rb,0.22649e+03_rb,0.21288e+03_rb,0.19534e+03_rb /)
+      kbo(:, 4,23,14) = (/ &
+        & 0.18858e+03_rb,0.20345e+03_rb,0.22593e+03_rb,0.21211e+03_rb,0.19972e+03_rb /)
+      kbo(:, 5,23,14) = (/ &
+        & 0.19325e+03_rb,0.20330e+03_rb,0.22470e+03_rb,0.21066e+03_rb,0.20314e+03_rb /)
+      kbo(:, 1,24,14) = (/ &
+        & 0.16550e+03_rb,0.20079e+03_rb,0.22797e+03_rb,0.21459e+03_rb,0.18352e+03_rb /)
+      kbo(:, 2,24,14) = (/ &
+        & 0.17199e+03_rb,0.20247e+03_rb,0.22899e+03_rb,0.21614e+03_rb,0.19031e+03_rb /)
+      kbo(:, 3,24,14) = (/ &
+        & 0.17829e+03_rb,0.20349e+03_rb,0.22920e+03_rb,0.21621e+03_rb,0.19610e+03_rb /)
+      kbo(:, 4,24,14) = (/ &
+        & 0.18424e+03_rb,0.20395e+03_rb,0.22865e+03_rb,0.21544e+03_rb,0.20080e+03_rb /)
+      kbo(:, 5,24,14) = (/ &
+        & 0.18966e+03_rb,0.20393e+03_rb,0.22735e+03_rb,0.21388e+03_rb,0.20437e+03_rb /)
+      kbo(:, 1,25,14) = (/ &
+        & 0.15949e+03_rb,0.20048e+03_rb,0.22999e+03_rb,0.21758e+03_rb,0.18395e+03_rb /)
+      kbo(:, 2,25,14) = (/ &
+        & 0.16698e+03_rb,0.20247e+03_rb,0.23119e+03_rb,0.21903e+03_rb,0.19108e+03_rb /)
+      kbo(:, 3,25,14) = (/ &
+        & 0.17411e+03_rb,0.20370e+03_rb,0.23144e+03_rb,0.21904e+03_rb,0.19711e+03_rb /)
+      kbo(:, 4,25,14) = (/ &
+        & 0.18088e+03_rb,0.20435e+03_rb,0.23082e+03_rb,0.21817e+03_rb,0.20192e+03_rb /)
+      kbo(:, 5,25,14) = (/ &
+        & 0.18710e+03_rb,0.20450e+03_rb,0.22950e+03_rb,0.21648e+03_rb,0.20559e+03_rb /)
+      kbo(:, 1,26,14) = (/ &
+        & 0.15479e+03_rb,0.20038e+03_rb,0.23181e+03_rb,0.22016e+03_rb,0.18490e+03_rb /)
+      kbo(:, 2,26,14) = (/ &
+        & 0.16322e+03_rb,0.20258e+03_rb,0.23307e+03_rb,0.22145e+03_rb,0.19222e+03_rb /)
+      kbo(:, 3,26,14) = (/ &
+        & 0.17119e+03_rb,0.20401e+03_rb,0.23326e+03_rb,0.22140e+03_rb,0.19831e+03_rb /)
+      kbo(:, 4,26,14) = (/ &
+        & 0.17866e+03_rb,0.20478e+03_rb,0.23259e+03_rb,0.22038e+03_rb,0.20315e+03_rb /)
+      kbo(:, 5,26,14) = (/ &
+        & 0.18553e+03_rb,0.20498e+03_rb,0.23122e+03_rb,0.21854e+03_rb,0.20685e+03_rb /)
+      kbo(:, 1,27,14) = (/ &
+        & 0.15143e+03_rb,0.20049e+03_rb,0.23344e+03_rb,0.22241e+03_rb,0.18615e+03_rb /)
+      kbo(:, 2,27,14) = (/ &
+        & 0.16070e+03_rb,0.20279e+03_rb,0.23465e+03_rb,0.22352e+03_rb,0.19353e+03_rb /)
+      kbo(:, 3,27,14) = (/ &
+        & 0.16932e+03_rb,0.20430e+03_rb,0.23473e+03_rb,0.22331e+03_rb,0.19960e+03_rb /)
+      kbo(:, 4,27,14) = (/ &
+        & 0.17737e+03_rb,0.20518e+03_rb,0.23402e+03_rb,0.22212e+03_rb,0.20440e+03_rb /)
+      kbo(:, 5,27,14) = (/ &
+        & 0.18472e+03_rb,0.20537e+03_rb,0.23257e+03_rb,0.22015e+03_rb,0.20807e+03_rb /)
+      kbo(:, 1,28,14) = (/ &
+        & 0.14935e+03_rb,0.20078e+03_rb,0.23487e+03_rb,0.22436e+03_rb,0.18762e+03_rb /)
+      kbo(:, 2,28,14) = (/ &
+        & 0.15926e+03_rb,0.20312e+03_rb,0.23597e+03_rb,0.22523e+03_rb,0.19491e+03_rb /)
+      kbo(:, 3,28,14) = (/ &
+        & 0.16839e+03_rb,0.20467e+03_rb,0.23597e+03_rb,0.22484e+03_rb,0.20092e+03_rb /)
+      kbo(:, 4,28,14) = (/ &
+        & 0.17687e+03_rb,0.20554e+03_rb,0.23516e+03_rb,0.22345e+03_rb,0.20562e+03_rb /)
+      kbo(:, 5,28,14) = (/ &
+        & 0.18453e+03_rb,0.20570e+03_rb,0.23357e+03_rb,0.22135e+03_rb,0.20921e+03_rb /)
+      kbo(:, 1,29,14) = (/ &
+        & 0.14844e+03_rb,0.20117e+03_rb,0.23614e+03_rb,0.22601e+03_rb,0.18927e+03_rb /)
+      kbo(:, 2,29,14) = (/ &
+        & 0.15878e+03_rb,0.20350e+03_rb,0.23707e+03_rb,0.22664e+03_rb,0.19642e+03_rb /)
+      kbo(:, 3,29,14) = (/ &
+        & 0.16829e+03_rb,0.20505e+03_rb,0.23696e+03_rb,0.22601e+03_rb,0.20229e+03_rb /)
+      kbo(:, 4,29,14) = (/ &
+        & 0.17702e+03_rb,0.20585e+03_rb,0.23602e+03_rb,0.22445e+03_rb,0.20685e+03_rb /)
+      kbo(:, 5,29,14) = (/ &
+        & 0.18487e+03_rb,0.20599e+03_rb,0.23430e+03_rb,0.22220e+03_rb,0.21031e+03_rb /)
+      kbo(:, 1,30,14) = (/ &
+        & 0.14841e+03_rb,0.20165e+03_rb,0.23724e+03_rb,0.22742e+03_rb,0.19101e+03_rb /)
+      kbo(:, 2,30,14) = (/ &
+        & 0.15903e+03_rb,0.20395e+03_rb,0.23798e+03_rb,0.22774e+03_rb,0.19796e+03_rb /)
+      kbo(:, 3,30,14) = (/ &
+        & 0.16878e+03_rb,0.20543e+03_rb,0.23774e+03_rb,0.22689e+03_rb,0.20367e+03_rb /)
+      kbo(:, 4,30,14) = (/ &
+        & 0.17765e+03_rb,0.20614e+03_rb,0.23662e+03_rb,0.22515e+03_rb,0.20804e+03_rb /)
+      kbo(:, 5,30,14) = (/ &
+        & 0.18556e+03_rb,0.20626e+03_rb,0.23478e+03_rb,0.22274e+03_rb,0.21133e+03_rb /)
+      kbo(:, 1,31,14) = (/ &
+        & 0.14910e+03_rb,0.20219e+03_rb,0.23816e+03_rb,0.22857e+03_rb,0.19280e+03_rb /)
+      kbo(:, 2,31,14) = (/ &
+        & 0.15987e+03_rb,0.20442e+03_rb,0.23873e+03_rb,0.22860e+03_rb,0.19955e+03_rb /)
+      kbo(:, 3,31,14) = (/ &
+        & 0.16974e+03_rb,0.20578e+03_rb,0.23830e+03_rb,0.22751e+03_rb,0.20503e+03_rb /)
+      kbo(:, 4,31,14) = (/ &
+        & 0.17870e+03_rb,0.20640e+03_rb,0.23703e+03_rb,0.22559e+03_rb,0.20917e+03_rb /)
+      kbo(:, 5,31,14) = (/ &
+        & 0.18656e+03_rb,0.20647e+03_rb,0.23504e+03_rb,0.22303e+03_rb,0.21232e+03_rb /)
+      kbo(:, 1,32,14) = (/ &
+        & 0.15031e+03_rb,0.20279e+03_rb,0.23897e+03_rb,0.22949e+03_rb,0.19459e+03_rb /)
+      kbo(:, 2,32,14) = (/ &
+        & 0.16119e+03_rb,0.20489e+03_rb,0.23931e+03_rb,0.22922e+03_rb,0.20113e+03_rb /)
+      kbo(:, 3,32,14) = (/ &
+        & 0.17110e+03_rb,0.20610e+03_rb,0.23869e+03_rb,0.22791e+03_rb,0.20634e+03_rb /)
+      kbo(:, 4,32,14) = (/ &
+        & 0.18002e+03_rb,0.20662e+03_rb,0.23723e+03_rb,0.22582e+03_rb,0.21029e+03_rb /)
+      kbo(:, 5,32,14) = (/ &
+        & 0.18777e+03_rb,0.20659e+03_rb,0.23510e+03_rb,0.22308e+03_rb,0.21322e+03_rb /)
+      kbo(:, 1,33,14) = (/ &
+        & 0.15197e+03_rb,0.20341e+03_rb,0.23965e+03_rb,0.23019e+03_rb,0.19639e+03_rb /)
+      kbo(:, 2,33,14) = (/ &
+        & 0.16285e+03_rb,0.20534e+03_rb,0.23976e+03_rb,0.22964e+03_rb,0.20267e+03_rb /)
+      kbo(:, 3,33,14) = (/ &
+        & 0.17270e+03_rb,0.20638e+03_rb,0.23893e+03_rb,0.22811e+03_rb,0.20758e+03_rb /)
+      kbo(:, 4,33,14) = (/ &
+        & 0.18151e+03_rb,0.20680e+03_rb,0.23727e+03_rb,0.22584e+03_rb,0.21132e+03_rb /)
+      kbo(:, 5,33,14) = (/ &
+        & 0.18912e+03_rb,0.20665e+03_rb,0.23500e+03_rb,0.22296e+03_rb,0.21406e+03_rb /)
+      kbo(:, 1,34,14) = (/ &
+        & 0.15352e+03_rb,0.20391e+03_rb,0.24014e+03_rb,0.23069e+03_rb,0.19790e+03_rb /)
+      kbo(:, 2,34,14) = (/ &
+        & 0.16437e+03_rb,0.20566e+03_rb,0.24006e+03_rb,0.22992e+03_rb,0.20396e+03_rb /)
+      kbo(:, 3,34,14) = (/ &
+        & 0.17416e+03_rb,0.20662e+03_rb,0.23907e+03_rb,0.22823e+03_rb,0.20863e+03_rb /)
+      kbo(:, 4,34,14) = (/ &
+        & 0.18285e+03_rb,0.20695e+03_rb,0.23728e+03_rb,0.22580e+03_rb,0.21218e+03_rb /)
+      kbo(:, 5,34,14) = (/ &
+        & 0.19033e+03_rb,0.20667e+03_rb,0.23487e+03_rb,0.22280e+03_rb,0.21474e+03_rb /)
+      kbo(:, 1,35,14) = (/ &
+        & 0.15421e+03_rb,0.20418e+03_rb,0.24052e+03_rb,0.23110e+03_rb,0.19876e+03_rb /)
+      kbo(:, 2,35,14) = (/ &
+        & 0.16507e+03_rb,0.20586e+03_rb,0.24033e+03_rb,0.23020e+03_rb,0.20468e+03_rb /)
+      kbo(:, 3,35,14) = (/ &
+        & 0.17486e+03_rb,0.20677e+03_rb,0.23924e+03_rb,0.22841e+03_rb,0.20923e+03_rb /)
+      kbo(:, 4,35,14) = (/ &
+        & 0.18350e+03_rb,0.20705e+03_rb,0.23737e+03_rb,0.22589e+03_rb,0.21269e+03_rb /)
+      kbo(:, 5,35,14) = (/ &
+        & 0.19094e+03_rb,0.20669e+03_rb,0.23489e+03_rb,0.22281e+03_rb,0.21514e+03_rb /)
+      kbo(:, 1,36,14) = (/ &
+        & 0.15381e+03_rb,0.20424e+03_rb,0.24080e+03_rb,0.23145e+03_rb,0.19888e+03_rb /)
+      kbo(:, 2,36,14) = (/ &
+        & 0.16478e+03_rb,0.20592e+03_rb,0.24060e+03_rb,0.23055e+03_rb,0.20484e+03_rb /)
+      kbo(:, 3,36,14) = (/ &
+        & 0.17464e+03_rb,0.20684e+03_rb,0.23950e+03_rb,0.22874e+03_rb,0.20938e+03_rb /)
+      kbo(:, 4,36,14) = (/ &
+        & 0.18336e+03_rb,0.20715e+03_rb,0.23762e+03_rb,0.22618e+03_rb,0.21284e+03_rb /)
+      kbo(:, 5,36,14) = (/ &
+        & 0.19086e+03_rb,0.20678e+03_rb,0.23514e+03_rb,0.22311e+03_rb,0.21532e+03_rb /)
+      kbo(:, 1,37,14) = (/ &
+        & 0.15177e+03_rb,0.20394e+03_rb,0.24096e+03_rb,0.23178e+03_rb,0.19802e+03_rb /)
+      kbo(:, 2,37,14) = (/ &
+        & 0.16298e+03_rb,0.20578e+03_rb,0.24091e+03_rb,0.23102e+03_rb,0.20416e+03_rb /)
+      kbo(:, 3,37,14) = (/ &
+        & 0.17307e+03_rb,0.20681e+03_rb,0.23994e+03_rb,0.22934e+03_rb,0.20893e+03_rb /)
+      kbo(:, 4,37,14) = (/ &
+        & 0.18204e+03_rb,0.20721e+03_rb,0.23818e+03_rb,0.22688e+03_rb,0.21255e+03_rb /)
+      kbo(:, 5,37,14) = (/ &
+        & 0.18973e+03_rb,0.20695e+03_rb,0.23573e+03_rb,0.22383e+03_rb,0.21516e+03_rb /)
+      kbo(:, 1,38,14) = (/ &
+        & 0.14968e+03_rb,0.20359e+03_rb,0.24104e+03_rb,0.23202e+03_rb,0.19703e+03_rb /)
+      kbo(:, 2,38,14) = (/ &
+        & 0.16113e+03_rb,0.20560e+03_rb,0.24116e+03_rb,0.23143e+03_rb,0.20341e+03_rb /)
+      kbo(:, 3,38,14) = (/ &
+        & 0.17144e+03_rb,0.20674e+03_rb,0.24033e+03_rb,0.22988e+03_rb,0.20838e+03_rb /)
+      kbo(:, 4,38,14) = (/ &
+        & 0.18063e+03_rb,0.20724e+03_rb,0.23866e+03_rb,0.22752e+03_rb,0.21216e+03_rb /)
+      kbo(:, 5,38,14) = (/ &
+        & 0.18855e+03_rb,0.20710e+03_rb,0.23632e+03_rb,0.22453e+03_rb,0.21493e+03_rb /)
+      kbo(:, 1,39,14) = (/ &
+        & 0.14764e+03_rb,0.20322e+03_rb,0.24106e+03_rb,0.23220e+03_rb,0.19604e+03_rb /)
+      kbo(:, 2,39,14) = (/ &
+        & 0.15932e+03_rb,0.20540e+03_rb,0.24137e+03_rb,0.23180e+03_rb,0.20262e+03_rb /)
+      kbo(:, 3,39,14) = (/ &
+        & 0.16984e+03_rb,0.20665e+03_rb,0.24065e+03_rb,0.23036e+03_rb,0.20781e+03_rb /)
+      kbo(:, 4,39,14) = (/ &
+        & 0.17923e+03_rb,0.20725e+03_rb,0.23910e+03_rb,0.22810e+03_rb,0.21175e+03_rb /)
+      kbo(:, 5,39,14) = (/ &
+        & 0.18737e+03_rb,0.20722e+03_rb,0.23684e+03_rb,0.22517e+03_rb,0.21467e+03_rb /)
+      kbo(:, 1,40,14) = (/ &
+        & 0.14438e+03_rb,0.20254e+03_rb,0.24092e+03_rb,0.23225e+03_rb,0.19425e+03_rb /)
+      kbo(:, 2,40,14) = (/ &
+        & 0.15633e+03_rb,0.20498e+03_rb,0.24152e+03_rb,0.23217e+03_rb,0.20115e+03_rb /)
+      kbo(:, 3,40,14) = (/ &
+        & 0.16718e+03_rb,0.20642e+03_rb,0.24105e+03_rb,0.23096e+03_rb,0.20672e+03_rb /)
+      kbo(:, 4,40,14) = (/ &
+        & 0.17690e+03_rb,0.20720e+03_rb,0.23969e+03_rb,0.22887e+03_rb,0.21093e+03_rb /)
+      kbo(:, 5,40,14) = (/ &
+        & 0.18539e+03_rb,0.20733e+03_rb,0.23758e+03_rb,0.22609e+03_rb,0.21411e+03_rb /)
+      kbo(:, 1,41,14) = (/ &
+        & 0.14093e+03_rb,0.20170e+03_rb,0.24062e+03_rb,0.23214e+03_rb,0.19226e+03_rb /)
+      kbo(:, 2,41,14) = (/ &
+        & 0.15309e+03_rb,0.20441e+03_rb,0.24155e+03_rb,0.23243e+03_rb,0.19951e+03_rb /)
+      kbo(:, 3,41,14) = (/ &
+        & 0.16434e+03_rb,0.20613e+03_rb,0.24136e+03_rb,0.23149e+03_rb,0.20545e+03_rb /)
+      kbo(:, 4,41,14) = (/ &
+        & 0.17439e+03_rb,0.20709e+03_rb,0.24022e+03_rb,0.22963e+03_rb,0.21000e+03_rb /)
+      kbo(:, 5,41,14) = (/ &
+        & 0.18325e+03_rb,0.20739e+03_rb,0.23829e+03_rb,0.22700e+03_rb,0.21344e+03_rb /)
+      kbo(:, 1,42,14) = (/ &
+        & 0.13742e+03_rb,0.20072e+03_rb,0.24018e+03_rb,0.23188e+03_rb,0.19017e+03_rb /)
+      kbo(:, 2,42,14) = (/ &
+        & 0.14987e+03_rb,0.20381e+03_rb,0.24151e+03_rb,0.23260e+03_rb,0.19778e+03_rb /)
+      kbo(:, 3,42,14) = (/ &
+        & 0.16144e+03_rb,0.20580e+03_rb,0.24159e+03_rb,0.23194e+03_rb,0.20408e+03_rb /)
+      kbo(:, 4,42,14) = (/ &
+        & 0.17182e+03_rb,0.20693e+03_rb,0.24068e+03_rb,0.23030e+03_rb,0.20897e+03_rb /)
+      kbo(:, 5,42,14) = (/ &
+        & 0.18101e+03_rb,0.20739e+03_rb,0.23894e+03_rb,0.22785e+03_rb,0.21269e+03_rb /)
+      kbo(:, 1,43,14) = (/ &
+        & 0.13316e+03_rb,0.19946e+03_rb,0.23952e+03_rb,0.23134e+03_rb,0.18746e+03_rb /)
+      kbo(:, 2,43,14) = (/ &
+        & 0.14590e+03_rb,0.20299e+03_rb,0.24131e+03_rb,0.23265e+03_rb,0.19555e+03_rb /)
+      kbo(:, 3,43,14) = (/ &
+        & 0.15782e+03_rb,0.20531e+03_rb,0.24176e+03_rb,0.23237e+03_rb,0.20228e+03_rb /)
+      kbo(:, 4,43,14) = (/ &
+        & 0.16860e+03_rb,0.20666e+03_rb,0.24113e+03_rb,0.23099e+03_rb,0.20761e+03_rb /)
+      kbo(:, 5,43,14) = (/ &
+        & 0.17818e+03_rb,0.20733e+03_rb,0.23964e+03_rb,0.22878e+03_rb,0.21166e+03_rb /)
+      kbo(:, 1,44,14) = (/ &
+        & 0.12851e+03_rb,0.19793e+03_rb,0.23860e+03_rb,0.23051e+03_rb,0.18440e+03_rb /)
+      kbo(:, 2,44,14) = (/ &
+        & 0.14156e+03_rb,0.20195e+03_rb,0.24092e+03_rb,0.23249e+03_rb,0.19298e+03_rb /)
+      kbo(:, 3,44,14) = (/ &
+        & 0.15381e+03_rb,0.20468e+03_rb,0.24182e+03_rb,0.23268e+03_rb,0.20015e+03_rb /)
+      kbo(:, 4,44,14) = (/ &
+        & 0.16494e+03_rb,0.20625e+03_rb,0.24148e+03_rb,0.23163e+03_rb,0.20597e+03_rb /)
+      kbo(:, 5,44,14) = (/ &
+        & 0.17499e+03_rb,0.20719e+03_rb,0.24029e+03_rb,0.22969e+03_rb,0.21043e+03_rb /)
+      kbo(:, 1,45,14) = (/ &
+        & 0.12377e+03_rb,0.19622e+03_rb,0.23745e+03_rb,0.22938e+03_rb,0.18114e+03_rb /)
+      kbo(:, 2,45,14) = (/ &
+        & 0.13713e+03_rb,0.20074e+03_rb,0.24035e+03_rb,0.23210e+03_rb,0.19024e+03_rb /)
+      kbo(:, 3,45,14) = (/ &
+        & 0.14969e+03_rb,0.20389e+03_rb,0.24171e+03_rb,0.23283e+03_rb,0.19787e+03_rb /)
+      kbo(:, 4,45,14) = (/ &
+        & 0.16122e+03_rb,0.20580e+03_rb,0.24172e+03_rb,0.23215e+03_rb,0.20417e+03_rb /)
+      kbo(:, 5,45,14) = (/ &
+        & 0.17169e+03_rb,0.20697e+03_rb,0.24085e+03_rb,0.23051e+03_rb,0.20907e+03_rb /)
+      kbo(:, 1,46,14) = (/ &
+        & 0.11871e+03_rb,0.19418e+03_rb,0.23600e+03_rb,0.22790e+03_rb,0.17747e+03_rb /)
+      kbo(:, 2,46,14) = (/ &
+        & 0.13231e+03_rb,0.19929e+03_rb,0.23954e+03_rb,0.23143e+03_rb,0.18712e+03_rb /)
+      kbo(:, 3,46,14) = (/ &
+        & 0.14514e+03_rb,0.20288e+03_rb,0.24138e+03_rb,0.23280e+03_rb,0.19526e+03_rb /)
+      kbo(:, 4,46,14) = (/ &
+        & 0.15711e+03_rb,0.20523e+03_rb,0.24187e+03_rb,0.23257e+03_rb,0.20207e+03_rb /)
+      kbo(:, 5,46,14) = (/ &
+        & 0.16802e+03_rb,0.20664e+03_rb,0.24132e+03_rb,0.23126e+03_rb,0.20749e+03_rb /)
+      kbo(:, 1,47,14) = (/ &
+        & 0.11295e+03_rb,0.19159e+03_rb,0.23398e+03_rb,0.22588e+03_rb,0.17313e+03_rb /)
+      kbo(:, 2,47,14) = (/ &
+        & 0.12683e+03_rb,0.19741e+03_rb,0.23835e+03_rb,0.23031e+03_rb,0.18342e+03_rb /)
+      kbo(:, 3,47,14) = (/ &
+        & 0.13999e+03_rb,0.20159e+03_rb,0.24085e+03_rb,0.23253e+03_rb,0.19217e+03_rb /)
+      kbo(:, 4,47,14) = (/ &
+        & 0.15234e+03_rb,0.20442e+03_rb,0.24186e+03_rb,0.23286e+03_rb,0.19949e+03_rb /)
+      kbo(:, 5,47,14) = (/ &
+        & 0.16373e+03_rb,0.20618e+03_rb,0.24169e+03_rb,0.23194e+03_rb,0.20549e+03_rb /)
+      kbo(:, 1,48,14) = (/ &
+        & 0.10712e+03_rb,0.18871e+03_rb,0.23159e+03_rb,0.22347e+03_rb,0.16850e+03_rb /)
+      kbo(:, 2,48,14) = (/ &
+        & 0.12124e+03_rb,0.19529e+03_rb,0.23687e+03_rb,0.22882e+03_rb,0.17946e+03_rb /)
+      kbo(:, 3,48,14) = (/ &
+        & 0.13473e+03_rb,0.20007e+03_rb,0.24005e+03_rb,0.23191e+03_rb,0.18883e+03_rb /)
+      kbo(:, 4,48,14) = (/ &
+        & 0.14742e+03_rb,0.20342e+03_rb,0.24164e+03_rb,0.23294e+03_rb,0.19670e+03_rb /)
+      kbo(:, 5,48,14) = (/ &
+        & 0.15928e+03_rb,0.20562e+03_rb,0.24192e+03_rb,0.23247e+03_rb,0.20325e+03_rb /)
+      kbo(:, 1,49,14) = (/ &
+        & 0.10120e+03_rb,0.18550e+03_rb,0.22880e+03_rb,0.22071e+03_rb,0.16363e+03_rb /)
+      kbo(:, 2,49,14) = (/ &
+        & 0.11556e+03_rb,0.19285e+03_rb,0.23504e+03_rb,0.22697e+03_rb,0.17524e+03_rb /)
+      kbo(:, 3,49,14) = (/ &
+        & 0.12932e+03_rb,0.19832e+03_rb,0.23901e+03_rb,0.23097e+03_rb,0.18524e+03_rb /)
+      kbo(:, 4,49,14) = (/ &
+        & 0.14238e+03_rb,0.20226e+03_rb,0.24120e+03_rb,0.23278e+03_rb,0.19370e+03_rb /)
+      kbo(:, 5,49,14) = (/ &
+        & 0.15460e+03_rb,0.20488e+03_rb,0.24199e+03_rb,0.23283e+03_rb,0.20078e+03_rb /)
+      kbo(:, 1,50,14) = (/ &
+        & 0.95603e+02_rb,0.18216e+03_rb,0.22576e+03_rb,0.21768e+03_rb,0.15878e+03_rb /)
+      kbo(:, 2,50,14) = (/ &
+        & 0.11015e+03_rb,0.19031e+03_rb,0.23298e+03_rb,0.22490e+03_rb,0.17105e+03_rb /)
+      kbo(:, 3,50,14) = (/ &
+        & 0.12415e+03_rb,0.19646e+03_rb,0.23775e+03_rb,0.22975e+03_rb,0.18166e+03_rb /)
+      kbo(:, 4,50,14) = (/ &
+        & 0.13752e+03_rb,0.20094e+03_rb,0.24058e+03_rb,0.23236e+03_rb,0.19069e+03_rb /)
+      kbo(:, 5,50,14) = (/ &
+        & 0.15007e+03_rb,0.20403e+03_rb,0.24187e+03_rb,0.23299e+03_rb,0.19826e+03_rb /)
+      kbo(:, 1,51,14) = (/ &
+        & 0.90137e+02_rb,0.17868e+03_rb,0.22240e+03_rb,0.21442e+03_rb,0.15384e+03_rb /)
+      kbo(:, 2,51,14) = (/ &
+        & 0.10484e+03_rb,0.18757e+03_rb,0.23066e+03_rb,0.22258e+03_rb,0.16677e+03_rb /)
+      kbo(:, 3,51,14) = (/ &
+        & 0.11907e+03_rb,0.19442e+03_rb,0.23628e+03_rb,0.22824e+03_rb,0.17796e+03_rb /)
+      kbo(:, 4,51,14) = (/ &
+        & 0.13269e+03_rb,0.19948e+03_rb,0.23976e+03_rb,0.23167e+03_rb,0.18756e+03_rb /)
+      kbo(:, 5,51,14) = (/ &
+        & 0.14552e+03_rb,0.20302e+03_rb,0.24154e+03_rb,0.23296e+03_rb,0.19565e+03_rb /)
+      kbo(:, 1,52,14) = (/ &
+        & 0.84690e+02_rb,0.17496e+03_rb,0.21864e+03_rb,0.21080e+03_rb,0.14862e+03_rb /)
+      kbo(:, 2,52,14) = (/ &
+        & 0.99471e+02_rb,0.18453e+03_rb,0.22798e+03_rb,0.21992e+03_rb,0.16225e+03_rb /)
+      kbo(:, 3,52,14) = (/ &
+        & 0.11391e+03_rb,0.19213e+03_rb,0.23451e+03_rb,0.22644e+03_rb,0.17406e+03_rb /)
+      kbo(:, 4,52,14) = (/ &
+        & 0.12777e+03_rb,0.19781e+03_rb,0.23872e+03_rb,0.23070e+03_rb,0.18424e+03_rb /)
+      kbo(:, 5,52,14) = (/ &
+        & 0.14091e+03_rb,0.20189e+03_rb,0.24107e+03_rb,0.23273e+03_rb,0.19286e+03_rb /)
+      kbo(:, 1,53,14) = (/ &
+        & 0.79262e+02_rb,0.17095e+03_rb,0.21436e+03_rb,0.20681e+03_rb,0.14317e+03_rb /)
+      kbo(:, 2,53,14) = (/ &
+        & 0.94047e+02_rb,0.18126e+03_rb,0.22494e+03_rb,0.21690e+03_rb,0.15748e+03_rb /)
+      kbo(:, 3,53,14) = (/ &
+        & 0.10865e+03_rb,0.18958e+03_rb,0.23241e+03_rb,0.22434e+03_rb,0.16994e+03_rb /)
+      kbo(:, 4,53,14) = (/ &
+        & 0.12274e+03_rb,0.19595e+03_rb,0.23742e+03_rb,0.22941e+03_rb,0.18070e+03_rb /)
+      kbo(:, 5,53,14) = (/ &
+        & 0.13618e+03_rb,0.20056e+03_rb,0.24040e+03_rb,0.23224e+03_rb,0.18988e+03_rb /)
+      kbo(:, 1,54,14) = (/ &
+        & 0.74312e+02_rb,0.16701e+03_rb,0.21000e+03_rb,0.20283e+03_rb,0.13801e+03_rb /)
+      kbo(:, 2,54,14) = (/ &
+        & 0.89059e+02_rb,0.17802e+03_rb,0.22177e+03_rb,0.21381e+03_rb,0.15289e+03_rb /)
+      kbo(:, 3,54,14) = (/ &
+        & 0.10379e+03_rb,0.18701e+03_rb,0.23021e+03_rb,0.22214e+03_rb,0.16595e+03_rb /)
+      kbo(:, 4,54,14) = (/ &
+        & 0.11808e+03_rb,0.19403e+03_rb,0.23602e+03_rb,0.22797e+03_rb,0.17728e+03_rb /)
+      kbo(:, 5,54,14) = (/ &
+        & 0.13174e+03_rb,0.19918e+03_rb,0.23961e+03_rb,0.23155e+03_rb,0.18697e+03_rb /)
+      kbo(:, 1,55,14) = (/ &
+        & 0.69615e+02_rb,0.16296e+03_rb,0.20540e+03_rb,0.19866e+03_rb,0.13288e+03_rb /)
+      kbo(:, 2,55,14) = (/ &
+        & 0.84276e+02_rb,0.17466e+03_rb,0.21835e+03_rb,0.21056e+03_rb,0.14828e+03_rb /)
+      kbo(:, 3,55,14) = (/ &
+        & 0.99066e+02_rb,0.18433e+03_rb,0.22782e+03_rb,0.21977e+03_rb,0.16197e+03_rb /)
+      kbo(:, 4,55,14) = (/ &
+        & 0.11354e+03_rb,0.19199e+03_rb,0.23442e+03_rb,0.22636e+03_rb,0.17383e+03_rb /)
+      kbo(:, 5,55,14) = (/ &
+        & 0.12741e+03_rb,0.19770e+03_rb,0.23866e+03_rb,0.23065e+03_rb,0.18403e+03_rb /)
+      kbo(:, 1,56,14) = (/ &
+        & 0.64944e+02_rb,0.15877e+03_rb,0.20044e+03_rb,0.19421e+03_rb,0.12762e+03_rb /)
+      kbo(:, 2,56,14) = (/ &
+        & 0.79524e+02_rb,0.17114e+03_rb,0.21461e+03_rb,0.20707e+03_rb,0.14351e+03_rb /)
+      kbo(:, 3,56,14) = (/ &
+        & 0.94323e+02_rb,0.18144e+03_rb,0.22514e+03_rb,0.21711e+03_rb,0.15778e+03_rb /)
+      kbo(:, 4,56,14) = (/ &
+        & 0.10894e+03_rb,0.18976e+03_rb,0.23257e+03_rb,0.22452e+03_rb,0.17022e+03_rb /)
+      kbo(:, 5,56,14) = (/ &
+        & 0.12301e+03_rb,0.19605e+03_rb,0.23752e+03_rb,0.22954e+03_rb,0.18094e+03_rb /)
+      kbo(:, 1,57,14) = (/ &
+        & 0.60353e+02_rb,0.15431e+03_rb,0.19514e+03_rb,0.18945e+03_rb,0.12225e+03_rb /)
+      kbo(:, 2,57,14) = (/ &
+        & 0.74815e+02_rb,0.16742e+03_rb,0.21049e+03_rb,0.20329e+03_rb,0.13860e+03_rb /)
+      kbo(:, 3,57,14) = (/ &
+        & 0.89567e+02_rb,0.17837e+03_rb,0.22214e+03_rb,0.21419e+03_rb,0.15343e+03_rb /)
+      kbo(:, 4,57,14) = (/ &
+        & 0.10431e+03_rb,0.18733e+03_rb,0.23050e+03_rb,0.22244e+03_rb,0.16644e+03_rb /)
+      kbo(:, 5,57,14) = (/ &
+        & 0.11856e+03_rb,0.19423e+03_rb,0.23618e+03_rb,0.22816e+03_rb,0.17767e+03_rb /)
+      kbo(:, 1,58,14) = (/ &
+        & 0.56098e+02_rb,0.14991e+03_rb,0.18980e+03_rb,0.18465e+03_rb,0.11706e+03_rb /)
+      kbo(:, 2,58,14) = (/ &
+        & 0.70377e+02_rb,0.16367e+03_rb,0.20622e+03_rb,0.19942e+03_rb,0.13378e+03_rb /)
+      kbo(:, 3,58,14) = (/ &
+        & 0.85049e+02_rb,0.17528e+03_rb,0.21902e+03_rb,0.21119e+03_rb,0.14910e+03_rb /)
+      kbo(:, 4,58,14) = (/ &
+        & 0.99857e+02_rb,0.18482e+03_rb,0.22827e+03_rb,0.22022e+03_rb,0.16268e+03_rb /)
+      kbo(:, 5,58,14) = (/ &
+        & 0.11428e+03_rb,0.19233e+03_rb,0.23470e+03_rb,0.22666e+03_rb,0.17444e+03_rb /)
+      kbo(:, 1,59,14) = (/ &
+        & 0.54418e+02_rb,0.14809e+03_rb,0.18754e+03_rb,0.18261e+03_rb,0.11495e+03_rb /)
+      kbo(:, 2,59,14) = (/ &
+        & 0.68598e+02_rb,0.16210e+03_rb,0.20441e+03_rb,0.19778e+03_rb,0.13180e+03_rb /)
+      kbo(:, 3,59,14) = (/ &
+        & 0.83246e+02_rb,0.17398e+03_rb,0.21768e+03_rb,0.20993e+03_rb,0.14733e+03_rb /)
+      kbo(:, 4,59,14) = (/ &
+        & 0.98055e+02_rb,0.18375e+03_rb,0.22732e+03_rb,0.21927e+03_rb,0.16113e+03_rb /)
+      kbo(:, 5,59,14) = (/ &
+        & 0.11255e+03_rb,0.19153e+03_rb,0.23406e+03_rb,0.22601e+03_rb,0.17310e+03_rb /)
+      kbo(:, 1,13,15) = (/ &
+        & 0.40932e+03_rb,0.30758e+03_rb,0.26133e+03_rb,0.32395e+03_rb,0.43211e+03_rb /)
+      kbo(:, 2,13,15) = (/ &
+        & 0.41123e+03_rb,0.30908e+03_rb,0.25921e+03_rb,0.31805e+03_rb,0.42431e+03_rb /)
+      kbo(:, 3,13,15) = (/ &
+        & 0.41219e+03_rb,0.30983e+03_rb,0.25685e+03_rb,0.31214e+03_rb,0.41639e+03_rb /)
+      kbo(:, 4,13,15) = (/ &
+        & 0.41228e+03_rb,0.30991e+03_rb,0.25419e+03_rb,0.30614e+03_rb,0.40836e+03_rb /)
+      kbo(:, 5,13,15) = (/ &
+        & 0.41130e+03_rb,0.30917e+03_rb,0.25126e+03_rb,0.30055e+03_rb,0.40088e+03_rb /)
+      kbo(:, 1,14,15) = (/ &
+        & 0.46527e+03_rb,0.34966e+03_rb,0.29823e+03_rb,0.35533e+03_rb,0.47402e+03_rb /)
+      kbo(:, 2,14,15) = (/ &
+        & 0.46656e+03_rb,0.35065e+03_rb,0.29540e+03_rb,0.34864e+03_rb,0.46510e+03_rb /)
+      kbo(:, 3,14,15) = (/ &
+        & 0.46685e+03_rb,0.35090e+03_rb,0.29209e+03_rb,0.34189e+03_rb,0.45610e+03_rb /)
+      kbo(:, 4,14,15) = (/ &
+        & 0.46575e+03_rb,0.35012e+03_rb,0.28845e+03_rb,0.33526e+03_rb,0.44716e+03_rb /)
+      kbo(:, 5,14,15) = (/ &
+        & 0.46388e+03_rb,0.34873e+03_rb,0.28457e+03_rb,0.32965e+03_rb,0.43950e+03_rb /)
+      kbo(:, 1,15,15) = (/ &
+        & 0.52376e+03_rb,0.39388e+03_rb,0.33756e+03_rb,0.38636e+03_rb,0.51543e+03_rb /)
+      kbo(:, 2,15,15) = (/ &
+        & 0.52445e+03_rb,0.39416e+03_rb,0.33368e+03_rb,0.37892e+03_rb,0.50548e+03_rb /)
+      kbo(:, 3,15,15) = (/ &
+        & 0.52345e+03_rb,0.39343e+03_rb,0.32922e+03_rb,0.37141e+03_rb,0.49535e+03_rb /)
+      kbo(:, 4,15,15) = (/ &
+        & 0.52134e+03_rb,0.39188e+03_rb,0.32434e+03_rb,0.36468e+03_rb,0.48621e+03_rb /)
+      kbo(:, 5,15,15) = (/ &
+        & 0.51791e+03_rb,0.38933e+03_rb,0.31931e+03_rb,0.35855e+03_rb,0.47766e+03_rb /)
+      kbo(:, 1,16,15) = (/ &
+        & 0.58401e+03_rb,0.43962e+03_rb,0.37845e+03_rb,0.41772e+03_rb,0.55681e+03_rb /)
+      kbo(:, 2,16,15) = (/ &
+        & 0.58308e+03_rb,0.43844e+03_rb,0.37324e+03_rb,0.40927e+03_rb,0.54538e+03_rb /)
+      kbo(:, 3,16,15) = (/ &
+        & 0.58094e+03_rb,0.43662e+03_rb,0.36730e+03_rb,0.40107e+03_rb,0.53429e+03_rb /)
+      kbo(:, 4,16,15) = (/ &
+        & 0.57721e+03_rb,0.43385e+03_rb,0.36102e+03_rb,0.39367e+03_rb,0.52421e+03_rb /)
+      kbo(:, 5,16,15) = (/ &
+        & 0.57218e+03_rb,0.43010e+03_rb,0.35444e+03_rb,0.38654e+03_rb,0.51433e+03_rb /)
+      kbo(:, 1,17,15) = (/ &
+        & 0.64407e+03_rb,0.48569e+03_rb,0.41994e+03_rb,0.44912e+03_rb,0.59692e+03_rb /)
+      kbo(:, 2,17,15) = (/ &
+        & 0.64180e+03_rb,0.48304e+03_rb,0.41300e+03_rb,0.43957e+03_rb,0.58409e+03_rb /)
+      kbo(:, 3,17,15) = (/ &
+        & 0.63774e+03_rb,0.47951e+03_rb,0.40543e+03_rb,0.43048e+03_rb,0.57188e+03_rb /)
+      kbo(:, 4,17,15) = (/ &
+        & 0.63221e+03_rb,0.47511e+03_rb,0.39752e+03_rb,0.42195e+03_rb,0.56041e+03_rb /)
+      kbo(:, 5,17,15) = (/ &
+        & 0.62531e+03_rb,0.46997e+03_rb,0.38917e+03_rb,0.41353e+03_rb,0.54901e+03_rb /)
+      kbo(:, 1,18,15) = (/ &
+        & 0.70302e+03_rb,0.53125e+03_rb,0.46110e+03_rb,0.48015e+03_rb,0.63499e+03_rb /)
+      kbo(:, 2,18,15) = (/ &
+        & 0.69876e+03_rb,0.52681e+03_rb,0.45218e+03_rb,0.46935e+03_rb,0.62082e+03_rb /)
+      kbo(:, 3,18,15) = (/ &
+        & 0.69273e+03_rb,0.52130e+03_rb,0.44272e+03_rb,0.45897e+03_rb,0.60731e+03_rb /)
+      kbo(:, 4,18,15) = (/ &
+        & 0.68529e+03_rb,0.51514e+03_rb,0.43287e+03_rb,0.44907e+03_rb,0.59416e+03_rb /)
+      kbo(:, 5,18,15) = (/ &
+        & 0.67604e+03_rb,0.50804e+03_rb,0.42255e+03_rb,0.43929e+03_rb,0.58117e+03_rb /)
+      kbo(:, 1,19,15) = (/ &
+        & 0.75927e+03_rb,0.57536e+03_rb,0.50097e+03_rb,0.51007e+03_rb,0.67027e+03_rb /)
+      kbo(:, 2,19,15) = (/ &
+        & 0.75290e+03_rb,0.56864e+03_rb,0.48996e+03_rb,0.49791e+03_rb,0.65476e+03_rb /)
+      kbo(:, 3,19,15) = (/ &
+        & 0.74466e+03_rb,0.56117e+03_rb,0.47832e+03_rb,0.48599e+03_rb,0.63995e+03_rb /)
+      kbo(:, 4,19,15) = (/ &
+        & 0.73483e+03_rb,0.55286e+03_rb,0.46627e+03_rb,0.47459e+03_rb,0.62519e+03_rb /)
+      kbo(:, 5,19,15) = (/ &
+        & 0.72353e+03_rb,0.54375e+03_rb,0.45395e+03_rb,0.46331e+03_rb,0.61054e+03_rb /)
+      kbo(:, 1,20,15) = (/ &
+        & 0.81171e+03_rb,0.61670e+03_rb,0.53858e+03_rb,0.53802e+03_rb,0.70226e+03_rb /)
+      kbo(:, 2,20,15) = (/ &
+        & 0.80307e+03_rb,0.60788e+03_rb,0.52517e+03_rb,0.52417e+03_rb,0.68550e+03_rb /)
+      kbo(:, 3,20,15) = (/ &
+        & 0.79257e+03_rb,0.59823e+03_rb,0.51114e+03_rb,0.51080e+03_rb,0.66917e+03_rb /)
+      kbo(:, 4,20,15) = (/ &
+        & 0.78036e+03_rb,0.58759e+03_rb,0.49687e+03_rb,0.49775e+03_rb,0.65285e+03_rb /)
+      kbo(:, 5,20,15) = (/ &
+        & 0.76671e+03_rb,0.57649e+03_rb,0.48237e+03_rb,0.48486e+03_rb,0.63647e+03_rb /)
+      kbo(:, 1,21,15) = (/ &
+        & 0.85929e+03_rb,0.65464e+03_rb,0.57309e+03_rb,0.56354e+03_rb,0.73074e+03_rb /)
+      kbo(:, 2,21,15) = (/ &
+        & 0.84853e+03_rb,0.64350e+03_rb,0.55721e+03_rb,0.54790e+03_rb,0.71267e+03_rb /)
+      kbo(:, 3,21,15) = (/ &
+        & 0.83578e+03_rb,0.63172e+03_rb,0.54090e+03_rb,0.53299e+03_rb,0.69483e+03_rb /)
+      kbo(:, 4,21,15) = (/ &
+        & 0.82132e+03_rb,0.61900e+03_rb,0.52438e+03_rb,0.51831e+03_rb,0.67689e+03_rb /)
+      kbo(:, 5,21,15) = (/ &
+        & 0.80511e+03_rb,0.60568e+03_rb,0.50774e+03_rb,0.50398e+03_rb,0.65894e+03_rb /)
+      kbo(:, 1,22,15) = (/ &
+        & 0.90088e+03_rb,0.68794e+03_rb,0.60297e+03_rb,0.58517e+03_rb,0.75429e+03_rb /)
+      kbo(:, 2,22,15) = (/ &
+        & 0.88795e+03_rb,0.67453e+03_rb,0.58458e+03_rb,0.56794e+03_rb,0.73512e+03_rb /)
+      kbo(:, 3,22,15) = (/ &
+        & 0.87296e+03_rb,0.66047e+03_rb,0.56607e+03_rb,0.55151e+03_rb,0.71573e+03_rb /)
+      kbo(:, 4,22,15) = (/ &
+        & 0.85602e+03_rb,0.64569e+03_rb,0.54736e+03_rb,0.53534e+03_rb,0.69633e+03_rb /)
+      kbo(:, 5,22,15) = (/ &
+        & 0.83763e+03_rb,0.63042e+03_rb,0.52879e+03_rb,0.51959e+03_rb,0.67694e+03_rb /)
+      kbo(:, 1,23,15) = (/ &
+        & 0.93708e+03_rb,0.71670e+03_rb,0.62868e+03_rb,0.60370e+03_rb,0.77407e+03_rb /)
+      kbo(:, 2,23,15) = (/ &
+        & 0.92204e+03_rb,0.70111e+03_rb,0.60797e+03_rb,0.58479e+03_rb,0.75367e+03_rb /)
+      kbo(:, 3,23,15) = (/ &
+        & 0.90485e+03_rb,0.68501e+03_rb,0.58723e+03_rb,0.56696e+03_rb,0.73284e+03_rb /)
+      kbo(:, 4,23,15) = (/ &
+        & 0.88551e+03_rb,0.66835e+03_rb,0.56656e+03_rb,0.54939e+03_rb,0.71207e+03_rb /)
+      kbo(:, 5,23,15) = (/ &
+        & 0.86499e+03_rb,0.65129e+03_rb,0.54624e+03_rb,0.53240e+03_rb,0.69156e+03_rb /)
+      kbo(:, 1,24,15) = (/ &
+        & 0.96776e+03_rb,0.74092e+03_rb,0.64997e+03_rb,0.61898e+03_rb,0.79010e+03_rb /)
+      kbo(:, 2,24,15) = (/ &
+        & 0.95072e+03_rb,0.72338e+03_rb,0.62717e+03_rb,0.59867e+03_rb,0.76855e+03_rb /)
+      kbo(:, 3,24,15) = (/ &
+        & 0.93122e+03_rb,0.70539e+03_rb,0.60446e+03_rb,0.57944e+03_rb,0.74652e+03_rb /)
+      kbo(:, 4,24,15) = (/ &
+        & 0.90993e+03_rb,0.68704e+03_rb,0.58213e+03_rb,0.56067e+03_rb,0.72451e+03_rb /)
+      kbo(:, 5,24,15) = (/ &
+        & 0.88757e+03_rb,0.66845e+03_rb,0.56030e+03_rb,0.54254e+03_rb,0.70312e+03_rb /)
+      kbo(:, 1,25,15) = (/ &
+        & 0.99329e+03_rb,0.76073e+03_rb,0.66706e+03_rb,0.63101e+03_rb,0.80276e+03_rb /)
+      kbo(:, 2,25,15) = (/ &
+        & 0.97397e+03_rb,0.74138e+03_rb,0.64231e+03_rb,0.60949e+03_rb,0.78003e+03_rb /)
+      kbo(:, 3,25,15) = (/ &
+        & 0.95257e+03_rb,0.72186e+03_rb,0.61798e+03_rb,0.58904e+03_rb,0.75681e+03_rb /)
+      kbo(:, 4,25,15) = (/ &
+        & 0.92942e+03_rb,0.70193e+03_rb,0.59417e+03_rb,0.56923e+03_rb,0.73392e+03_rb /)
+      kbo(:, 5,25,15) = (/ &
+        & 0.90532e+03_rb,0.68191e+03_rb,0.57100e+03_rb,0.55015e+03_rb,0.71169e+03_rb /)
+      kbo(:, 1,26,15) = (/ &
+        & 0.10136e+04_rb,0.77623e+03_rb,0.67983e+03_rb,0.63982e+03_rb,0.81189e+03_rb /)
+      kbo(:, 2,26,15) = (/ &
+        & 0.99212e+03_rb,0.75536e+03_rb,0.65345e+03_rb,0.61726e+03_rb,0.78804e+03_rb /)
+      kbo(:, 3,26,15) = (/ &
+        & 0.96906e+03_rb,0.73441e+03_rb,0.62784e+03_rb,0.59585e+03_rb,0.76400e+03_rb /)
+      kbo(:, 4,26,15) = (/ &
+        & 0.94442e+03_rb,0.71314e+03_rb,0.60278e+03_rb,0.57514e+03_rb,0.74031e+03_rb /)
+      kbo(:, 5,26,15) = (/ &
+        & 0.91870e+03_rb,0.69199e+03_rb,0.57850e+03_rb,0.55532e+03_rb,0.71748e+03_rb /)
+      kbo(:, 1,27,15) = (/ &
+        & 0.10295e+04_rb,0.78816e+03_rb,0.68910e+03_rb,0.64601e+03_rb,0.81822e+03_rb /)
+      kbo(:, 2,27,15) = (/ &
+        & 0.10061e+04_rb,0.76604e+03_rb,0.66144e+03_rb,0.62260e+03_rb,0.79343e+03_rb /)
+      kbo(:, 3,27,15) = (/ &
+        & 0.98153e+03_rb,0.74373e+03_rb,0.63470e+03_rb,0.60041e+03_rb,0.76875e+03_rb /)
+      kbo(:, 4,27,15) = (/ &
+        & 0.95548e+03_rb,0.72130e+03_rb,0.60866e+03_rb,0.57907e+03_rb,0.74456e+03_rb /)
+      kbo(:, 5,27,15) = (/ &
+        & 0.92838e+03_rb,0.69916e+03_rb,0.58347e+03_rb,0.55864e+03_rb,0.72113e+03_rb /)
+      kbo(:, 1,28,15) = (/ &
+        & 0.10413e+04_rb,0.79681e+03_rb,0.69534e+03_rb,0.64995e+03_rb,0.82220e+03_rb /)
+      kbo(:, 2,28,15) = (/ &
+        & 0.10164e+04_rb,0.77357e+03_rb,0.66667e+03_rb,0.62595e+03_rb,0.79680e+03_rb /)
+      kbo(:, 3,28,15) = (/ &
+        & 0.99062e+03_rb,0.75026e+03_rb,0.63903e+03_rb,0.60314e+03_rb,0.77147e+03_rb /)
+      kbo(:, 4,28,15) = (/ &
+        & 0.96323e+03_rb,0.72694e+03_rb,0.61220e+03_rb,0.58130e+03_rb,0.74687e+03_rb /)
+      kbo(:, 5,28,15) = (/ &
+        & 0.93489e+03_rb,0.70393e+03_rb,0.58636e+03_rb,0.56041e+03_rb,0.72308e+03_rb /)
+      kbo(:, 1,29,15) = (/ &
+        & 0.10495e+04_rb,0.80260e+03_rb,0.69878e+03_rb,0.65184e+03_rb,0.82409e+03_rb /)
+      kbo(:, 2,29,15) = (/ &
+        & 0.10235e+04_rb,0.77841e+03_rb,0.66934e+03_rb,0.62739e+03_rb,0.79811e+03_rb /)
+      kbo(:, 3,29,15) = (/ &
+        & 0.99642e+03_rb,0.75425e+03_rb,0.64103e+03_rb,0.60412e+03_rb,0.77230e+03_rb /)
+      kbo(:, 4,29,15) = (/ &
+        & 0.96796e+03_rb,0.73025e+03_rb,0.61357e+03_rb,0.58189e+03_rb,0.74741e+03_rb /)
+      kbo(:, 5,29,15) = (/ &
+        & 0.93857e+03_rb,0.70654e+03_rb,0.58732e+03_rb,0.56077e+03_rb,0.72335e+03_rb /)
+      kbo(:, 1,30,15) = (/ &
+        & 0.10549e+04_rb,0.80614e+03_rb,0.70001e+03_rb,0.65202e+03_rb,0.82418e+03_rb /)
+      kbo(:, 2,30,15) = (/ &
+        & 0.10278e+04_rb,0.78108e+03_rb,0.67004e+03_rb,0.62730e+03_rb,0.79771e+03_rb /)
+      kbo(:, 3,30,15) = (/ &
+        & 0.99966e+03_rb,0.75628e+03_rb,0.64121e+03_rb,0.60374e+03_rb,0.77172e+03_rb /)
+      kbo(:, 4,30,15) = (/ &
+        & 0.97021e+03_rb,0.73170e+03_rb,0.61335e+03_rb,0.58130e+03_rb,0.74664e+03_rb /)
+      kbo(:, 5,30,15) = (/ &
+        & 0.94007e+03_rb,0.70743e+03_rb,0.58676e+03_rb,0.55999e+03_rb,0.72234e+03_rb /)
+      kbo(:, 1,31,15) = (/ &
+        & 0.10577e+04_rb,0.80741e+03_rb,0.69925e+03_rb,0.65081e+03_rb,0.82281e+03_rb /)
+      kbo(:, 2,31,15) = (/ &
+        & 0.10297e+04_rb,0.78182e+03_rb,0.66894e+03_rb,0.62588e+03_rb,0.79605e+03_rb /)
+      kbo(:, 3,31,15) = (/ &
+        & 0.10005e+04_rb,0.75649e+03_rb,0.63976e+03_rb,0.60219e+03_rb,0.76987e+03_rb /)
+      kbo(:, 4,31,15) = (/ &
+        & 0.97028e+03_rb,0.73149e+03_rb,0.61167e+03_rb,0.57962e+03_rb,0.74468e+03_rb /)
+      kbo(:, 5,31,15) = (/ &
+        & 0.93951e+03_rb,0.70673e+03_rb,0.58494e+03_rb,0.55830e+03_rb,0.72033e+03_rb /)
+      kbo(:, 1,32,15) = (/ &
+        & 0.10585e+04_rb,0.80706e+03_rb,0.69697e+03_rb,0.64853e+03_rb,0.82034e+03_rb /)
+      kbo(:, 2,32,15) = (/ &
+        & 0.10295e+04_rb,0.78094e+03_rb,0.66639e+03_rb,0.62348e+03_rb,0.79329e+03_rb /)
+      kbo(:, 3,32,15) = (/ &
+        & 0.99955e+03_rb,0.75528e+03_rb,0.63700e+03_rb,0.59969e+03_rb,0.76700e+03_rb /)
+      kbo(:, 4,32,15) = (/ &
+        & 0.96864e+03_rb,0.72996e+03_rb,0.60885e+03_rb,0.57712e+03_rb,0.74178e+03_rb /)
+      kbo(:, 5,32,15) = (/ &
+        & 0.93737e+03_rb,0.70488e+03_rb,0.58204e+03_rb,0.55579e+03_rb,0.71738e+03_rb /)
+      kbo(:, 1,33,15) = (/ &
+        & 0.10575e+04_rb,0.80530e+03_rb,0.69345e+03_rb,0.64529e+03_rb,0.81678e+03_rb /)
+      kbo(:, 2,33,15) = (/ &
+        & 0.10278e+04_rb,0.77890e+03_rb,0.66278e+03_rb,0.62027e+03_rb,0.78965e+03_rb /)
+      kbo(:, 3,33,15) = (/ &
+        & 0.99704e+03_rb,0.75290e+03_rb,0.63324e+03_rb,0.59645e+03_rb,0.76337e+03_rb /)
+      kbo(:, 4,33,15) = (/ &
+        & 0.96555e+03_rb,0.72726e+03_rb,0.60509e+03_rb,0.57394e+03_rb,0.73813e+03_rb /)
+      kbo(:, 5,33,15) = (/ &
+        & 0.93393e+03_rb,0.70207e+03_rb,0.57839e+03_rb,0.55267e+03_rb,0.71377e+03_rb /)
+      kbo(:, 1,34,15) = (/ &
+        & 0.10561e+04_rb,0.80340e+03_rb,0.69012e+03_rb,0.64228e+03_rb,0.81344e+03_rb /)
+      kbo(:, 2,34,15) = (/ &
+        & 0.10257e+04_rb,0.77677e+03_rb,0.65936e+03_rb,0.61726e+03_rb,0.78628e+03_rb /)
+      kbo(:, 3,34,15) = (/ &
+        & 0.99442e+03_rb,0.75053e+03_rb,0.62978e+03_rb,0.59351e+03_rb,0.76009e+03_rb /)
+      kbo(:, 4,34,15) = (/ &
+        & 0.96258e+03_rb,0.72472e+03_rb,0.60168e+03_rb,0.57104e+03_rb,0.73478e+03_rb /)
+      kbo(:, 5,34,15) = (/ &
+        & 0.93053e+03_rb,0.69938e+03_rb,0.57499e+03_rb,0.54984e+03_rb,0.71051e+03_rb /)
+      kbo(:, 1,35,15) = (/ &
+        & 0.10564e+04_rb,0.80326e+03_rb,0.68907e+03_rb,0.64121e+03_rb,0.81221e+03_rb /)
+      kbo(:, 2,35,15) = (/ &
+        & 0.10257e+04_rb,0.77646e+03_rb,0.65819e+03_rb,0.61612e+03_rb,0.78498e+03_rb /)
+      kbo(:, 3,35,15) = (/ &
+        & 0.99396e+03_rb,0.74998e+03_rb,0.62850e+03_rb,0.59231e+03_rb,0.75874e+03_rb /)
+      kbo(:, 4,35,15) = (/ &
+        & 0.96182e+03_rb,0.72398e+03_rb,0.60037e+03_rb,0.56987e+03_rb,0.73339e+03_rb /)
+      kbo(:, 5,35,15) = (/ &
+        & 0.92945e+03_rb,0.69852e+03_rb,0.57362e+03_rb,0.54864e+03_rb,0.70910e+03_rb /)
+      kbo(:, 1,36,15) = (/ &
+        & 0.10593e+04_rb,0.80545e+03_rb,0.69086e+03_rb,0.64252e+03_rb,0.81357e+03_rb /)
+      kbo(:, 2,36,15) = (/ &
+        & 0.10283e+04_rb,0.77842e+03_rb,0.65978e+03_rb,0.61726e+03_rb,0.78619e+03_rb /)
+      kbo(:, 3,36,15) = (/ &
+        & 0.99627e+03_rb,0.75174e+03_rb,0.62993e+03_rb,0.59335e+03_rb,0.75988e+03_rb /)
+      kbo(:, 4,36,15) = (/ &
+        & 0.96386e+03_rb,0.72553e+03_rb,0.60161e+03_rb,0.57080e+03_rb,0.73443e+03_rb /)
+      kbo(:, 5,36,15) = (/ &
+        & 0.93134e+03_rb,0.69996e+03_rb,0.57477e+03_rb,0.54947e+03_rb,0.71003e+03_rb /)
+      kbo(:, 1,37,15) = (/ &
+        & 0.10662e+04_rb,0.81134e+03_rb,0.69713e+03_rb,0.64751e+03_rb,0.81885e+03_rb /)
+      kbo(:, 2,37,15) = (/ &
+        & 0.10351e+04_rb,0.78402e+03_rb,0.66565e+03_rb,0.62189e+03_rb,0.79122e+03_rb /)
+      kbo(:, 3,37,15) = (/ &
+        & 0.10030e+04_rb,0.75714e+03_rb,0.63542e+03_rb,0.59764e+03_rb,0.76460e+03_rb /)
+      kbo(:, 4,37,15) = (/ &
+        & 0.97042e+03_rb,0.73071e+03_rb,0.60674e+03_rb,0.57477e+03_rb,0.73895e+03_rb /)
+      kbo(:, 5,37,15) = (/ &
+        & 0.93771e+03_rb,0.70485e+03_rb,0.57959e+03_rb,0.55322e+03_rb,0.71431e+03_rb /)
+      kbo(:, 1,38,15) = (/ &
+        & 0.10729e+04_rb,0.81713e+03_rb,0.70342e+03_rb,0.65252e+03_rb,0.82415e+03_rb /)
+      kbo(:, 2,38,15) = (/ &
+        & 0.10416e+04_rb,0.78952e+03_rb,0.67152e+03_rb,0.62655e+03_rb,0.79626e+03_rb /)
+      kbo(:, 3,38,15) = (/ &
+        & 0.10096e+04_rb,0.76249e+03_rb,0.64098e+03_rb,0.60198e+03_rb,0.76937e+03_rb /)
+      kbo(:, 4,38,15) = (/ &
+        & 0.97695e+03_rb,0.73588e+03_rb,0.61197e+03_rb,0.57883e+03_rb,0.74352e+03_rb /)
+      kbo(:, 5,38,15) = (/ &
+        & 0.94411e+03_rb,0.70978e+03_rb,0.58447e+03_rb,0.55704e+03_rb,0.71866e+03_rb /)
+      kbo(:, 1,39,15) = (/ &
+        & 0.10791e+04_rb,0.82257e+03_rb,0.70938e+03_rb,0.65729e+03_rb,0.82913e+03_rb /)
+      kbo(:, 2,39,15) = (/ &
+        & 0.10479e+04_rb,0.79481e+03_rb,0.67717e+03_rb,0.63099e+03_rb,0.80105e+03_rb /)
+      kbo(:, 3,39,15) = (/ &
+        & 0.10158e+04_rb,0.76754e+03_rb,0.64630e+03_rb,0.60614e+03_rb,0.77394e+03_rb /)
+      kbo(:, 4,39,15) = (/ &
+        & 0.98307e+03_rb,0.74076e+03_rb,0.61694e+03_rb,0.58271e+03_rb,0.74789e+03_rb /)
+      kbo(:, 5,39,15) = (/ &
+        & 0.95013e+03_rb,0.71446e+03_rb,0.58917e+03_rb,0.56072e+03_rb,0.72285e+03_rb /)
+      kbo(:, 1,40,15) = (/ &
+        & 0.10882e+04_rb,0.83071e+03_rb,0.71862e+03_rb,0.66478e+03_rb,0.83689e+03_rb /)
+      kbo(:, 2,40,15) = (/ &
+        & 0.10571e+04_rb,0.80265e+03_rb,0.68589e+03_rb,0.63804e+03_rb,0.80862e+03_rb /)
+      kbo(:, 3,40,15) = (/ &
+        & 0.10251e+04_rb,0.77527e+03_rb,0.65462e+03_rb,0.61278e+03_rb,0.78119e+03_rb /)
+      kbo(:, 4,40,15) = (/ &
+        & 0.99232e+03_rb,0.74818e+03_rb,0.62475e+03_rb,0.58893e+03_rb,0.75487e+03_rb /)
+      kbo(:, 5,40,15) = (/ &
+        & 0.95932e+03_rb,0.72168e+03_rb,0.59655e+03_rb,0.56653e+03_rb,0.72946e+03_rb /)
+      kbo(:, 1,41,15) = (/ &
+        & 0.10971e+04_rb,0.83901e+03_rb,0.72823e+03_rb,0.67265e+03_rb,0.84493e+03_rb /)
+      kbo(:, 2,41,15) = (/ &
+        & 0.10663e+04_rb,0.81071e+03_rb,0.69500e+03_rb,0.64543e+03_rb,0.81648e+03_rb /)
+      kbo(:, 3,41,15) = (/ &
+        & 0.10345e+04_rb,0.78315e+03_rb,0.66331e+03_rb,0.61971e+03_rb,0.78878e+03_rb /)
+      kbo(:, 4,41,15) = (/ &
+        & 0.10019e+04_rb,0.75590e+03_rb,0.63295e+03_rb,0.59541e+03_rb,0.76210e+03_rb /)
+      kbo(:, 5,41,15) = (/ &
+        & 0.96878e+03_rb,0.72921e+03_rb,0.60428e+03_rb,0.57260e+03_rb,0.73637e+03_rb /)
+      kbo(:, 1,42,15) = (/ &
+        & 0.11058e+04_rb,0.84736e+03_rb,0.73795e+03_rb,0.68059e+03_rb,0.85278e+03_rb /)
+      kbo(:, 2,42,15) = (/ &
+        & 0.10754e+04_rb,0.81879e+03_rb,0.70412e+03_rb,0.65281e+03_rb,0.82432e+03_rb /)
+      kbo(:, 3,42,15) = (/ &
+        & 0.10438e+04_rb,0.79093e+03_rb,0.67198e+03_rb,0.62664e+03_rb,0.79629e+03_rb /)
+      kbo(:, 4,42,15) = (/ &
+        & 0.10112e+04_rb,0.76353e+03_rb,0.64116e+03_rb,0.60189e+03_rb,0.76925e+03_rb /)
+      kbo(:, 5,42,15) = (/ &
+        & 0.97804e+03_rb,0.73660e+03_rb,0.61202e+03_rb,0.57870e+03_rb,0.74332e+03_rb /)
+      kbo(:, 1,43,15) = (/ &
+        & 0.11158e+04_rb,0.85717e+03_rb,0.74955e+03_rb,0.69024e+03_rb,0.86217e+03_rb /)
+      kbo(:, 2,43,15) = (/ &
+        & 0.10861e+04_rb,0.82836e+03_rb,0.71518e+03_rb,0.66177e+03_rb,0.83370e+03_rb /)
+      kbo(:, 3,43,15) = (/ &
+        & 0.10546e+04_rb,0.80021e+03_rb,0.68243e+03_rb,0.63507e+03_rb,0.80541e+03_rb /)
+      kbo(:, 4,43,15) = (/ &
+        & 0.10222e+04_rb,0.77261e+03_rb,0.65115e+03_rb,0.60984e+03_rb,0.77795e+03_rb /)
+      kbo(:, 5,43,15) = (/ &
+        & 0.98916e+03_rb,0.74551e+03_rb,0.62143e+03_rb,0.58614e+03_rb,0.75171e+03_rb /)
+      kbo(:, 1,44,15) = (/ &
+        & 0.11264e+04_rb,0.86786e+03_rb,0.76217e+03_rb,0.70088e+03_rb,0.87207e+03_rb /)
+      kbo(:, 2,44,15) = (/ &
+        & 0.10970e+04_rb,0.83855e+03_rb,0.72711e+03_rb,0.67158e+03_rb,0.84381e+03_rb /)
+      kbo(:, 3,44,15) = (/ &
+        & 0.10660e+04_rb,0.81015e+03_rb,0.69375e+03_rb,0.64429e+03_rb,0.81530e+03_rb /)
+      kbo(:, 4,44,15) = (/ &
+        & 0.10339e+04_rb,0.78245e+03_rb,0.66207e+03_rb,0.61859e+03_rb,0.78750e+03_rb /)
+      kbo(:, 5,44,15) = (/ &
+        & 0.10010e+04_rb,0.75506e+03_rb,0.63169e+03_rb,0.59432e+03_rb,0.76086e+03_rb /)
+      kbo(:, 1,45,15) = (/ &
+        & 0.11364e+04_rb,0.87855e+03_rb,0.77494e+03_rb,0.71181e+03_rb,0.88191e+03_rb /)
+      kbo(:, 2,45,15) = (/ &
+        & 0.11078e+04_rb,0.84885e+03_rb,0.73921e+03_rb,0.68154e+03_rb,0.85373e+03_rb /)
+      kbo(:, 3,45,15) = (/ &
+        & 0.10773e+04_rb,0.82021e+03_rb,0.70525e+03_rb,0.65361e+03_rb,0.82516e+03_rb /)
+      kbo(:, 4,45,15) = (/ &
+        & 0.10454e+04_rb,0.79218e+03_rb,0.67305e+03_rb,0.62740e+03_rb,0.79708e+03_rb /)
+      kbo(:, 5,45,15) = (/ &
+        & 0.10127e+04_rb,0.76466e+03_rb,0.64208e+03_rb,0.60256e+03_rb,0.76997e+03_rb /)
+      kbo(:, 1,46,15) = (/ &
+        & 0.11465e+04_rb,0.88995e+03_rb,0.78864e+03_rb,0.72357e+03_rb,0.89218e+03_rb /)
+      kbo(:, 2,46,15) = (/ &
+        & 0.11189e+04_rb,0.85981e+03_rb,0.75227e+03_rb,0.69242e+03_rb,0.86430e+03_rb /)
+      kbo(:, 3,46,15) = (/ &
+        & 0.10889e+04_rb,0.83077e+03_rb,0.71764e+03_rb,0.66370e+03_rb,0.83569e+03_rb /)
+      kbo(:, 4,46,15) = (/ &
+        & 0.10574e+04_rb,0.80253e+03_rb,0.68479e+03_rb,0.63689e+03_rb,0.80730e+03_rb /)
+      kbo(:, 5,46,15) = (/ &
+        & 0.10249e+04_rb,0.77483e+03_rb,0.65332e+03_rb,0.61153e+03_rb,0.77982e+03_rb /)
+      kbo(:, 1,47,15) = (/ &
+        & 0.11573e+04_rb,0.90286e+03_rb,0.80421e+03_rb,0.73669e+03_rb,0.90313e+03_rb /)
+      kbo(:, 2,47,15) = (/ &
+        & 0.11308e+04_rb,0.87219e+03_rb,0.76703e+03_rb,0.70495e+03_rb,0.87583e+03_rb /)
+      kbo(:, 3,47,15) = (/ &
+        & 0.11017e+04_rb,0.84272e+03_rb,0.73168e+03_rb,0.67524e+03_rb,0.84747e+03_rb /)
+      kbo(:, 4,47,15) = (/ &
+        & 0.10706e+04_rb,0.81413e+03_rb,0.69808e+03_rb,0.64772e+03_rb,0.81886e+03_rb /)
+      kbo(:, 5,47,15) = (/ &
+        & 0.10385e+04_rb,0.78623e+03_rb,0.66606e+03_rb,0.62176e+03_rb,0.79095e+03_rb /)
+      kbo(:, 1,48,15) = (/ &
+        & 0.11675e+04_rb,0.91580e+03_rb,0.81991e+03_rb,0.74998e+03_rb,0.91375e+03_rb /)
+      kbo(:, 2,48,15) = (/ &
+        & 0.11421e+04_rb,0.88462e+03_rb,0.78203e+03_rb,0.71783e+03_rb,0.88726e+03_rb /)
+      kbo(:, 3,48,15) = (/ &
+        & 0.11139e+04_rb,0.85471e+03_rb,0.74597e+03_rb,0.68710e+03_rb,0.85917e+03_rb /)
+      kbo(:, 4,48,15) = (/ &
+        & 0.10836e+04_rb,0.82582e+03_rb,0.71165e+03_rb,0.65875e+03_rb,0.83052e+03_rb /)
+      kbo(:, 5,48,15) = (/ &
+        & 0.10518e+04_rb,0.79762e+03_rb,0.67897e+03_rb,0.63216e+03_rb,0.80224e+03_rb /)
+      kbo(:, 1,49,15) = (/ &
+        & 0.11770e+04_rb,0.92887e+03_rb,0.83589e+03_rb,0.76347e+03_rb,0.92401e+03_rb /)
+      kbo(:, 2,49,15) = (/ &
+        & 0.11531e+04_rb,0.89735e+03_rb,0.79736e+03_rb,0.73085e+03_rb,0.89839e+03_rb /)
+      kbo(:, 3,49,15) = (/ &
+        & 0.11259e+04_rb,0.86690e+03_rb,0.76049e+03_rb,0.69928e+03_rb,0.87069e+03_rb /)
+      kbo(:, 4,49,15) = (/ &
+        & 0.10963e+04_rb,0.83754e+03_rb,0.72543e+03_rb,0.67003e+03_rb,0.84223e+03_rb /)
+      kbo(:, 5,49,15) = (/ &
+        & 0.10650e+04_rb,0.80903e+03_rb,0.69202e+03_rb,0.64278e+03_rb,0.81363e+03_rb /)
+      kbo(:, 1,50,15) = (/ &
+        & 0.11850e+04_rb,0.94106e+03_rb,0.85114e+03_rb,0.77623e+03_rb,0.93320e+03_rb /)
+      kbo(:, 2,50,15) = (/ &
+        & 0.11628e+04_rb,0.90935e+03_rb,0.81191e+03_rb,0.74315e+03_rb,0.90846e+03_rb /)
+      kbo(:, 3,50,15) = (/ &
+        & 0.11368e+04_rb,0.87848e+03_rb,0.77441e+03_rb,0.71118e+03_rb,0.88145e+03_rb /)
+      kbo(:, 4,50,15) = (/ &
+        & 0.11080e+04_rb,0.84872e+03_rb,0.73862e+03_rb,0.68089e+03_rb,0.85311e+03_rb /)
+      kbo(:, 5,50,15) = (/ &
+        & 0.10771e+04_rb,0.81987e+03_rb,0.70453e+03_rb,0.65297e+03_rb,0.82446e+03_rb /)
+      kbo(:, 1,51,15) = (/ &
+        & 0.11923e+04_rb,0.95283e+03_rb,0.86626e+03_rb,0.78865e+03_rb,0.94170e+03_rb /)
+      kbo(:, 2,51,15) = (/ &
+        & 0.11717e+04_rb,0.92110e+03_rb,0.82616e+03_rb,0.75525e+03_rb,0.91794e+03_rb /)
+      kbo(:, 3,51,15) = (/ &
+        & 0.11468e+04_rb,0.88978e+03_rb,0.78804e+03_rb,0.72292e+03_rb,0.89168e+03_rb /)
+      kbo(:, 4,51,15) = (/ &
+        & 0.11189e+04_rb,0.85951e+03_rb,0.75159e+03_rb,0.69174e+03_rb,0.86368e+03_rb /)
+      kbo(:, 5,51,15) = (/ &
+        & 0.10888e+04_rb,0.83043e+03_rb,0.71698e+03_rb,0.66309e+03_rb,0.83504e+03_rb /)
+      kbo(:, 1,52,15) = (/ &
+        & 0.11987e+04_rb,0.96448e+03_rb,0.88155e+03_rb,0.80101e+03_rb,0.94976e+03_rb /)
+      kbo(:, 2,52,15) = (/ &
+        & 0.11799e+04_rb,0.93288e+03_rb,0.84067e+03_rb,0.76742e+03_rb,0.92694e+03_rb /)
+      kbo(:, 3,52,15) = (/ &
+        & 0.11564e+04_rb,0.90125e+03_rb,0.80189e+03_rb,0.73467e+03_rb,0.90155e+03_rb /)
+      kbo(:, 4,52,15) = (/ &
+        & 0.11296e+04_rb,0.87065e+03_rb,0.76482e+03_rb,0.70289e+03_rb,0.87401e+03_rb /)
+      kbo(:, 5,52,15) = (/ &
+        & 0.11001e+04_rb,0.84107e+03_rb,0.72948e+03_rb,0.67337e+03_rb,0.84559e+03_rb /)
+      kbo(:, 1,53,15) = (/ &
+        & 0.12042e+04_rb,0.97597e+03_rb,0.89729e+03_rb,0.81334e+03_rb,0.95716e+03_rb /)
+      kbo(:, 2,53,15) = (/ &
+        & 0.11876e+04_rb,0.94467e+03_rb,0.85557e+03_rb,0.77990e+03_rb,0.93591e+03_rb /)
+      kbo(:, 3,53,15) = (/ &
+        & 0.11657e+04_rb,0.91285e+03_rb,0.81605e+03_rb,0.74663e+03_rb,0.91125e+03_rb /)
+      kbo(:, 4,53,15) = (/ &
+        & 0.11399e+04_rb,0.88179e+03_rb,0.77830e+03_rb,0.71447e+03_rb,0.88437e+03_rb /)
+      kbo(:, 5,53,15) = (/ &
+        & 0.11113e+04_rb,0.85189e+03_rb,0.74233e+03_rb,0.68396e+03_rb,0.85611e+03_rb /)
+      kbo(:, 1,54,15) = (/ &
+        & 0.12085e+04_rb,0.98643e+03_rb,0.91208e+03_rb,0.82462e+03_rb,0.96332e+03_rb /)
+      kbo(:, 2,54,15) = (/ &
+        & 0.11940e+04_rb,0.95533e+03_rb,0.86934e+03_rb,0.79114e+03_rb,0.94342e+03_rb /)
+      kbo(:, 3,54,15) = (/ &
+        & 0.11737e+04_rb,0.92362e+03_rb,0.82909e+03_rb,0.75767e+03_rb,0.91977e+03_rb /)
+      kbo(:, 4,54,15) = (/ &
+        & 0.11490e+04_rb,0.89214e+03_rb,0.79079e+03_rb,0.72522e+03_rb,0.89369e+03_rb /)
+      kbo(:, 5,54,15) = (/ &
+        & 0.11212e+04_rb,0.86180e+03_rb,0.75420e+03_rb,0.69390e+03_rb,0.86571e+03_rb /)
+      kbo(:, 1,55,15) = (/ &
+        & 0.12111e+04_rb,0.99597e+03_rb,0.92635e+03_rb,0.83534e+03_rb,0.96856e+03_rb /)
+      kbo(:, 2,55,15) = (/ &
+        & 0.11993e+04_rb,0.96550e+03_rb,0.88281e+03_rb,0.80196e+03_rb,0.95029e+03_rb /)
+      kbo(:, 3,55,15) = (/ &
+        & 0.11808e+04_rb,0.93390e+03_rb,0.84185e+03_rb,0.76841e+03_rb,0.92774e+03_rb /)
+      kbo(:, 4,55,15) = (/ &
+        & 0.11574e+04_rb,0.90226e+03_rb,0.80305e+03_rb,0.73557e+03_rb,0.90236e+03_rb /)
+      kbo(:, 5,55,15) = (/ &
+        & 0.11305e+04_rb,0.87151e+03_rb,0.76581e+03_rb,0.70377e+03_rb,0.87482e+03_rb /)
+      kbo(:, 1,56,15) = (/ &
+        & 0.12133e+04_rb,0.10055e+04_rb,0.94091e+03_rb,0.84599e+03_rb,0.97308e+03_rb /)
+      kbo(:, 2,56,15) = (/ &
+        & 0.12041e+04_rb,0.97555e+03_rb,0.89660e+03_rb,0.81280e+03_rb,0.95684e+03_rb /)
+      kbo(:, 3,56,15) = (/ &
+        & 0.11875e+04_rb,0.94422e+03_rb,0.85482e+03_rb,0.77921e+03_rb,0.93538e+03_rb /)
+      kbo(:, 4,56,15) = (/ &
+        & 0.11654e+04_rb,0.91235e+03_rb,0.81536e+03_rb,0.74599e+03_rb,0.91077e+03_rb /)
+      kbo(:, 5,56,15) = (/ &
+        & 0.11395e+04_rb,0.88125e+03_rb,0.77756e+03_rb,0.71383e+03_rb,0.88381e+03_rb /)
+      kbo(:, 1,57,15) = (/ &
+        & 0.12144e+04_rb,0.10149e+04_rb,0.95530e+03_rb,0.85635e+03_rb,0.97654e+03_rb /)
+      kbo(:, 2,57,15) = (/ &
+        & 0.12082e+04_rb,0.98553e+03_rb,0.91069e+03_rb,0.82360e+03_rb,0.96286e+03_rb /)
+      kbo(:, 3,57,15) = (/ &
+        & 0.11936e+04_rb,0.95436e+03_rb,0.86797e+03_rb,0.78997e+03_rb,0.94263e+03_rb /)
+      kbo(:, 4,57,15) = (/ &
+        & 0.11730e+04_rb,0.92261e+03_rb,0.82779e+03_rb,0.75653e+03_rb,0.91896e+03_rb /)
+      kbo(:, 5,57,15) = (/ &
+        & 0.11481e+04_rb,0.89107e+03_rb,0.78949e+03_rb,0.72412e+03_rb,0.89274e+03_rb /)
+      kbo(:, 1,58,15) = (/ &
+        & 0.12146e+04_rb,0.10236e+04_rb,0.96889e+03_rb,0.86606e+03_rb,0.97897e+03_rb /)
+      kbo(:, 2,58,15) = (/ &
+        & 0.12111e+04_rb,0.99468e+03_rb,0.92419e+03_rb,0.83372e+03_rb,0.96790e+03_rb /)
+      kbo(:, 3,58,15) = (/ &
+        & 0.11988e+04_rb,0.96400e+03_rb,0.88060e+03_rb,0.80022e+03_rb,0.94932e+03_rb /)
+      kbo(:, 4,58,15) = (/ &
+        & 0.11798e+04_rb,0.93230e+03_rb,0.83979e+03_rb,0.76663e+03_rb,0.92647e+03_rb /)
+      kbo(:, 5,58,15) = (/ &
+        & 0.11561e+04_rb,0.90059e+03_rb,0.80102e+03_rb,0.73388e+03_rb,0.90094e+03_rb /)
+      kbo(:, 1,59,15) = (/ &
+        & 0.12143e+04_rb,0.10270e+04_rb,0.97431e+03_rb,0.86988e+03_rb,0.97963e+03_rb /)
+      kbo(:, 2,59,15) = (/ &
+        & 0.12120e+04_rb,0.99826e+03_rb,0.92964e+03_rb,0.83774e+03_rb,0.96974e+03_rb /)
+      kbo(:, 3,59,15) = (/ &
+        & 0.12008e+04_rb,0.96785e+03_rb,0.88575e+03_rb,0.80426e+03_rb,0.95182e+03_rb /)
+      kbo(:, 4,59,15) = (/ &
+        & 0.11824e+04_rb,0.93625e+03_rb,0.84468e+03_rb,0.77075e+03_rb,0.92946e+03_rb /)
+      kbo(:, 5,59,15) = (/ &
+        & 0.11592e+04_rb,0.90444e+03_rb,0.80567e+03_rb,0.73781e+03_rb,0.90417e+03_rb /)
+      kbo(:, 1,13,16) = (/ &
+        & 0.60786e+03_rb,0.45592e+03_rb,0.38499e+03_rb,0.57704e+03_rb,0.77025e+03_rb /)
+      kbo(:, 2,13,16) = (/ &
+        & 0.61089e+03_rb,0.45819e+03_rb,0.37289e+03_rb,0.55854e+03_rb,0.74550e+03_rb /)
+      kbo(:, 3,13,16) = (/ &
+        & 0.61169e+03_rb,0.45879e+03_rb,0.36189e+03_rb,0.54102e+03_rb,0.72223e+03_rb /)
+      kbo(:, 4,13,16) = (/ &
+        & 0.61079e+03_rb,0.45811e+03_rb,0.35169e+03_rb,0.52404e+03_rb,0.69950e+03_rb /)
+      kbo(:, 5,13,16) = (/ &
+        & 0.60850e+03_rb,0.45639e+03_rb,0.34199e+03_rb,0.50729e+03_rb,0.67716e+03_rb /)
+      kbo(:, 1,14,16) = (/ &
+        & 0.71905e+03_rb,0.53931e+03_rb,0.44704e+03_rb,0.66948e+03_rb,0.89363e+03_rb /)
+      kbo(:, 2,14,16) = (/ &
+        & 0.71950e+03_rb,0.53965e+03_rb,0.43274e+03_rb,0.64598e+03_rb,0.86230e+03_rb /)
+      kbo(:, 3,14,16) = (/ &
+        & 0.71818e+03_rb,0.53865e+03_rb,0.41969e+03_rb,0.62353e+03_rb,0.83220e+03_rb /)
+      kbo(:, 4,14,16) = (/ &
+        & 0.71532e+03_rb,0.53651e+03_rb,0.40717e+03_rb,0.60193e+03_rb,0.80343e+03_rb /)
+      kbo(:, 5,14,16) = (/ &
+        & 0.71008e+03_rb,0.53258e+03_rb,0.39527e+03_rb,0.58080e+03_rb,0.77521e+03_rb /)
+      kbo(:, 1,15,16) = (/ &
+        & 0.84339e+03_rb,0.63256e+03_rb,0.51534e+03_rb,0.76897e+03_rb,0.10264e+04_rb /)
+      kbo(:, 2,15,16) = (/ &
+        & 0.84056e+03_rb,0.63042e+03_rb,0.49783e+03_rb,0.73927e+03_rb,0.98670e+03_rb /)
+      kbo(:, 3,15,16) = (/ &
+        & 0.83549e+03_rb,0.62663e+03_rb,0.48183e+03_rb,0.71056e+03_rb,0.94836e+03_rb /)
+      kbo(:, 4,15,16) = (/ &
+        & 0.82865e+03_rb,0.62150e+03_rb,0.46649e+03_rb,0.68266e+03_rb,0.91115e+03_rb /)
+      kbo(:, 5,15,16) = (/ &
+        & 0.81975e+03_rb,0.61483e+03_rb,0.45195e+03_rb,0.65670e+03_rb,0.87636e+03_rb /)
+      kbo(:, 1,16,16) = (/ &
+        & 0.97910e+03_rb,0.73434e+03_rb,0.58857e+03_rb,0.87272e+03_rb,0.11648e+04_rb /)
+      kbo(:, 2,16,16) = (/ &
+        & 0.97153e+03_rb,0.72866e+03_rb,0.56721e+03_rb,0.83540e+03_rb,0.11150e+04_rb /)
+      kbo(:, 3,16,16) = (/ &
+        & 0.96129e+03_rb,0.72098e+03_rb,0.54742e+03_rb,0.79937e+03_rb,0.10667e+04_rb /)
+      kbo(:, 4,16,16) = (/ &
+        & 0.94880e+03_rb,0.71161e+03_rb,0.52876e+03_rb,0.76497e+03_rb,0.10209e+04_rb /)
+      kbo(:, 5,16,16) = (/ &
+        & 0.93421e+03_rb,0.70067e+03_rb,0.51082e+03_rb,0.73352e+03_rb,0.97881e+03_rb /)
+      kbo(:, 1,17,16) = (/ &
+        & 0.11229e+04_rb,0.84221e+03_rb,0.66547e+03_rb,0.97911e+03_rb,0.13066e+04_rb /)
+      kbo(:, 2,17,16) = (/ &
+        & 0.11091e+04_rb,0.83187e+03_rb,0.63930e+03_rb,0.93226e+03_rb,0.12440e+04_rb /)
+      kbo(:, 3,17,16) = (/ &
+        & 0.10923e+04_rb,0.81922e+03_rb,0.61539e+03_rb,0.88802e+03_rb,0.11849e+04_rb /)
+      kbo(:, 4,17,16) = (/ &
+        & 0.10728e+04_rb,0.80459e+03_rb,0.59256e+03_rb,0.84691e+03_rb,0.11301e+04_rb /)
+      kbo(:, 5,17,16) = (/ &
+        & 0.10515e+04_rb,0.78865e+03_rb,0.57044e+03_rb,0.80936e+03_rb,0.10799e+04_rb /)
+      kbo(:, 1,18,16) = (/ &
+        & 0.12716e+04_rb,0.95370e+03_rb,0.74447e+03_rb,0.10843e+04_rb,0.14469e+04_rb /)
+      kbo(:, 2,18,16) = (/ &
+        & 0.12500e+04_rb,0.93749e+03_rb,0.71274e+03_rb,0.10272e+04_rb,0.13706e+04_rb /)
+      kbo(:, 3,18,16) = (/ &
+        & 0.12251e+04_rb,0.91883e+03_rb,0.68394e+03_rb,0.97432e+03_rb,0.13000e+04_rb /)
+      kbo(:, 4,18,16) = (/ &
+        & 0.11973e+04_rb,0.89795e+03_rb,0.65609e+03_rb,0.92626e+03_rb,0.12359e+04_rb /)
+      kbo(:, 5,18,16) = (/ &
+        & 0.11679e+04_rb,0.87596e+03_rb,0.62959e+03_rb,0.88232e+03_rb,0.11772e+04_rb /)
+      kbo(:, 1,19,16) = (/ &
+        & 0.14213e+04_rb,0.10659e+04_rb,0.82299e+03_rb,0.11854e+04_rb,0.15817e+04_rb /)
+      kbo(:, 2,19,16) = (/ &
+        & 0.13899e+04_rb,0.10424e+04_rb,0.78536e+03_rb,0.11181e+04_rb,0.14919e+04_rb /)
+      kbo(:, 3,19,16) = (/ &
+        & 0.13555e+04_rb,0.10166e+04_rb,0.75067e+03_rb,0.10563e+04_rb,0.14093e+04_rb /)
+      kbo(:, 4,19,16) = (/ &
+        & 0.13187e+04_rb,0.98902e+03_rb,0.71751e+03_rb,0.10008e+04_rb,0.13351e+04_rb /)
+      kbo(:, 5,19,16) = (/ &
+        & 0.12809e+04_rb,0.96067e+03_rb,0.68653e+03_rb,0.95065e+03_rb,0.12682e+04_rb /)
+      kbo(:, 1,20,16) = (/ &
+        & 0.15671e+04_rb,0.11753e+04_rb,0.89787e+03_rb,0.12782e+04_rb,0.17052e+04_rb /)
+      kbo(:, 2,20,16) = (/ &
+        & 0.15245e+04_rb,0.11434e+04_rb,0.85373e+03_rb,0.12013e+04_rb,0.16026e+04_rb /)
+      kbo(:, 3,20,16) = (/ &
+        & 0.14795e+04_rb,0.11097e+04_rb,0.81323e+03_rb,0.11307e+04_rb,0.15085e+04_rb /)
+      kbo(:, 4,20,16) = (/ &
+        & 0.14333e+04_rb,0.10750e+04_rb,0.77488e+03_rb,0.10684e+04_rb,0.14252e+04_rb /)
+      kbo(:, 5,20,16) = (/ &
+        & 0.13861e+04_rb,0.10396e+04_rb,0.73891e+03_rb,0.10119e+04_rb,0.13498e+04_rb /)
+      kbo(:, 1,21,16) = (/ &
+        & 0.17057e+04_rb,0.12793e+04_rb,0.96840e+03_rb,0.13620e+04_rb,0.18170e+04_rb /)
+      kbo(:, 2,21,16) = (/ &
+        & 0.16509e+04_rb,0.12382e+04_rb,0.91726e+03_rb,0.12758e+04_rb,0.17018e+04_rb /)
+      kbo(:, 3,21,16) = (/ &
+        & 0.15947e+04_rb,0.11960e+04_rb,0.87064e+03_rb,0.11975e+04_rb,0.15973e+04_rb /)
+      kbo(:, 4,21,16) = (/ &
+        & 0.15386e+04_rb,0.11540e+04_rb,0.82723e+03_rb,0.11286e+04_rb,0.15054e+04_rb /)
+      kbo(:, 5,21,16) = (/ &
+        & 0.14823e+04_rb,0.11117e+04_rb,0.78614e+03_rb,0.10661e+04_rb,0.14220e+04_rb /)
+      kbo(:, 1,22,16) = (/ &
+        & 0.18293e+04_rb,0.13720e+04_rb,0.10288e+04_rb,0.14300e+04_rb,0.19074e+04_rb /)
+      kbo(:, 2,22,16) = (/ &
+        & 0.17617e+04_rb,0.13213e+04_rb,0.97120e+03_rb,0.13351e+04_rb,0.17808e+04_rb /)
+      kbo(:, 3,22,16) = (/ &
+        & 0.16944e+04_rb,0.12708e+04_rb,0.91894e+03_rb,0.12506e+04_rb,0.16681e+04_rb /)
+      kbo(:, 4,22,16) = (/ &
+        & 0.16287e+04_rb,0.12215e+04_rb,0.87041e+03_rb,0.11757e+04_rb,0.15681e+04_rb /)
+      kbo(:, 5,22,16) = (/ &
+        & 0.15635e+04_rb,0.11726e+04_rb,0.82499e+03_rb,0.11083e+04_rb,0.14783e+04_rb /)
+      kbo(:, 1,23,16) = (/ &
+        & 0.19373e+04_rb,0.14530e+04_rb,0.10803e+04_rb,0.14855e+04_rb,0.19814e+04_rb /)
+      kbo(:, 2,23,16) = (/ &
+        & 0.18577e+04_rb,0.13933e+04_rb,0.10171e+04_rb,0.13836e+04_rb,0.18455e+04_rb /)
+      kbo(:, 3,23,16) = (/ &
+        & 0.17799e+04_rb,0.13350e+04_rb,0.95955e+03_rb,0.12936e+04_rb,0.17253e+04_rb /)
+      kbo(:, 4,23,16) = (/ &
+        & 0.17053e+04_rb,0.12790e+04_rb,0.90643e+03_rb,0.12138e+04_rb,0.16189e+04_rb /)
+      kbo(:, 5,23,16) = (/ &
+        & 0.16318e+04_rb,0.12239e+04_rb,0.85742e+03_rb,0.11422e+04_rb,0.15233e+04_rb /)
+      kbo(:, 1,24,16) = (/ &
+        & 0.20285e+04_rb,0.15214e+04_rb,0.11229e+04_rb,0.15287e+04_rb,0.20389e+04_rb /)
+      kbo(:, 2,24,16) = (/ &
+        & 0.19379e+04_rb,0.14534e+04_rb,0.10546e+04_rb,0.14215e+04_rb,0.18958e+04_rb /)
+      kbo(:, 3,24,16) = (/ &
+        & 0.18509e+04_rb,0.13882e+04_rb,0.99252e+03_rb,0.13268e+04_rb,0.17696e+04_rb /)
+      kbo(:, 4,24,16) = (/ &
+        & 0.17680e+04_rb,0.13260e+04_rb,0.93542e+03_rb,0.12431e+04_rb,0.16579e+04_rb /)
+      kbo(:, 5,24,16) = (/ &
+        & 0.16872e+04_rb,0.12654e+04_rb,0.88318e+03_rb,0.11679e+04_rb,0.15576e+04_rb /)
+      kbo(:, 1,25,16) = (/ &
+        & 0.21022e+04_rb,0.15767e+04_rb,0.11562e+04_rb,0.15596e+04_rb,0.20800e+04_rb /)
+      kbo(:, 2,25,16) = (/ &
+        & 0.20021e+04_rb,0.15016e+04_rb,0.10837e+04_rb,0.14483e+04_rb,0.19315e+04_rb /)
+      kbo(:, 3,25,16) = (/ &
+        & 0.19072e+04_rb,0.14304e+04_rb,0.10177e+04_rb,0.13507e+04_rb,0.18013e+04_rb /)
+      kbo(:, 4,25,16) = (/ &
+        & 0.18172e+04_rb,0.13629e+04_rb,0.95761e+03_rb,0.12639e+04_rb,0.16854e+04_rb /)
+      kbo(:, 5,25,16) = (/ &
+        & 0.17302e+04_rb,0.12976e+04_rb,0.90262e+03_rb,0.11861e+04_rb,0.15818e+04_rb /)
+      kbo(:, 1,26,16) = (/ &
+        & 0.21584e+04_rb,0.16188e+04_rb,0.11798e+04_rb,0.15785e+04_rb,0.21051e+04_rb /)
+      kbo(:, 2,26,16) = (/ &
+        & 0.20504e+04_rb,0.15378e+04_rb,0.11040e+04_rb,0.14649e+04_rb,0.19536e+04_rb /)
+      kbo(:, 3,26,16) = (/ &
+        & 0.19488e+04_rb,0.14616e+04_rb,0.10351e+04_rb,0.13650e+04_rb,0.18204e+04_rb /)
+      kbo(:, 4,26,16) = (/ &
+        & 0.18527e+04_rb,0.13896e+04_rb,0.97267e+03_rb,0.12762e+04_rb,0.17019e+04_rb /)
+      kbo(:, 5,26,16) = (/ &
+        & 0.17609e+04_rb,0.13206e+04_rb,0.91583e+03_rb,0.11969e+04_rb,0.15961e+04_rb /)
+      kbo(:, 1,27,16) = (/ &
+        & 0.21995e+04_rb,0.16496e+04_rb,0.11960e+04_rb,0.15887e+04_rb,0.21185e+04_rb /)
+      kbo(:, 2,27,16) = (/ &
+        & 0.20852e+04_rb,0.15639e+04_rb,0.11175e+04_rb,0.14736e+04_rb,0.19651e+04_rb /)
+      kbo(:, 3,27,16) = (/ &
+        & 0.19784e+04_rb,0.14838e+04_rb,0.10466e+04_rb,0.13723e+04_rb,0.18300e+04_rb /)
+      kbo(:, 4,27,16) = (/ &
+        & 0.18776e+04_rb,0.14082e+04_rb,0.98231e+03_rb,0.12823e+04_rb,0.17101e+04_rb /)
+      kbo(:, 5,27,16) = (/ &
+        & 0.17820e+04_rb,0.13365e+04_rb,0.92416e+03_rb,0.12022e+04_rb,0.16031e+04_rb /)
+      kbo(:, 1,28,16) = (/ &
+        & 0.22274e+04_rb,0.16706e+04_rb,0.12052e+04_rb,0.15913e+04_rb,0.21220e+04_rb /)
+      kbo(:, 2,28,16) = (/ &
+        & 0.21084e+04_rb,0.15813e+04_rb,0.11251e+04_rb,0.14757e+04_rb,0.19679e+04_rb /)
+      kbo(:, 3,28,16) = (/ &
+        & 0.19974e+04_rb,0.14981e+04_rb,0.10528e+04_rb,0.13738e+04_rb,0.18320e+04_rb /)
+      kbo(:, 4,28,16) = (/ &
+        & 0.18930e+04_rb,0.14198e+04_rb,0.98736e+03_rb,0.12834e+04_rb,0.17114e+04_rb /)
+      kbo(:, 5,28,16) = (/ &
+        & 0.17945e+04_rb,0.13459e+04_rb,0.92826e+03_rb,0.12029e+04_rb,0.16040e+04_rb /)
+      kbo(:, 1,29,16) = (/ &
+        & 0.22434e+04_rb,0.16825e+04_rb,0.12082e+04_rb,0.15868e+04_rb,0.21160e+04_rb /)
+      kbo(:, 2,29,16) = (/ &
+        & 0.21209e+04_rb,0.15907e+04_rb,0.11272e+04_rb,0.14716e+04_rb,0.19623e+04_rb /)
+      kbo(:, 3,29,16) = (/ &
+        & 0.20069e+04_rb,0.15052e+04_rb,0.10541e+04_rb,0.13700e+04_rb,0.18268e+04_rb /)
+      kbo(:, 4,29,16) = (/ &
+        & 0.18999e+04_rb,0.14249e+04_rb,0.98819e+03_rb,0.12798e+04_rb,0.17065e+04_rb /)
+      kbo(:, 5,29,16) = (/ &
+        & 0.17996e+04_rb,0.13497e+04_rb,0.92869e+03_rb,0.11992e+04_rb,0.15991e+04_rb /)
+      kbo(:, 1,30,16) = (/ &
+        & 0.22495e+04_rb,0.16871e+04_rb,0.12065e+04_rb,0.15776e+04_rb,0.21036e+04_rb /)
+      kbo(:, 2,30,16) = (/ &
+        & 0.21251e+04_rb,0.15938e+04_rb,0.11251e+04_rb,0.14633e+04_rb,0.19512e+04_rb /)
+      kbo(:, 3,30,16) = (/ &
+        & 0.20091e+04_rb,0.15068e+04_rb,0.10517e+04_rb,0.13621e+04_rb,0.18163e+04_rb /)
+      kbo(:, 4,30,16) = (/ &
+        & 0.19004e+04_rb,0.14253e+04_rb,0.98584e+03_rb,0.12727e+04_rb,0.16970e+04_rb /)
+      kbo(:, 5,30,16) = (/ &
+        & 0.17984e+04_rb,0.13488e+04_rb,0.92610e+03_rb,0.11928e+04_rb,0.15905e+04_rb /)
+      kbo(:, 1,31,16) = (/ &
+        & 0.22474e+04_rb,0.16855e+04_rb,0.12005e+04_rb,0.15635e+04_rb,0.20848e+04_rb /)
+      kbo(:, 2,31,16) = (/ &
+        & 0.21214e+04_rb,0.15910e+04_rb,0.11192e+04_rb,0.14507e+04_rb,0.19344e+04_rb /)
+      kbo(:, 3,31,16) = (/ &
+        & 0.20043e+04_rb,0.15033e+04_rb,0.10461e+04_rb,0.13510e+04_rb,0.18015e+04_rb /)
+      kbo(:, 4,31,16) = (/ &
+        & 0.18948e+04_rb,0.14211e+04_rb,0.98049e+03_rb,0.12625e+04_rb,0.16835e+04_rb /)
+      kbo(:, 5,31,16) = (/ &
+        & 0.17922e+04_rb,0.13441e+04_rb,0.92102e+03_rb,0.11837e+04_rb,0.15784e+04_rb /)
+      kbo(:, 1,32,16) = (/ &
+        & 0.22387e+04_rb,0.16790e+04_rb,0.11913e+04_rb,0.15463e+04_rb,0.20617e+04_rb /)
+      kbo(:, 2,32,16) = (/ &
+        & 0.21117e+04_rb,0.15838e+04_rb,0.11104e+04_rb,0.14353e+04_rb,0.19138e+04_rb /)
+      kbo(:, 3,32,16) = (/ &
+        & 0.19944e+04_rb,0.14958e+04_rb,0.10381e+04_rb,0.13373e+04_rb,0.17831e+04_rb /)
+      kbo(:, 4,32,16) = (/ &
+        & 0.18846e+04_rb,0.14135e+04_rb,0.97304e+03_rb,0.12502e+04_rb,0.16670e+04_rb /)
+      kbo(:, 5,32,16) = (/ &
+        & 0.17818e+04_rb,0.13363e+04_rb,0.91392e+03_rb,0.11724e+04_rb,0.15633e+04_rb /)
+      kbo(:, 1,33,16) = (/ &
+        & 0.22243e+04_rb,0.16682e+04_rb,0.11793e+04_rb,0.15266e+04_rb,0.20355e+04_rb /)
+      kbo(:, 2,33,16) = (/ &
+        & 0.20975e+04_rb,0.15731e+04_rb,0.10994e+04_rb,0.14177e+04_rb,0.18903e+04_rb /)
+      kbo(:, 3,33,16) = (/ &
+        & 0.19805e+04_rb,0.14854e+04_rb,0.10282e+04_rb,0.13217e+04_rb,0.17623e+04_rb /)
+      kbo(:, 4,33,16) = (/ &
+        & 0.18707e+04_rb,0.14030e+04_rb,0.96384e+03_rb,0.12361e+04_rb,0.16482e+04_rb /)
+      kbo(:, 5,33,16) = (/ &
+        & 0.17684e+04_rb,0.13263e+04_rb,0.90541e+03_rb,0.11600e+04_rb,0.15467e+04_rb /)
+      kbo(:, 1,34,16) = (/ &
+        & 0.22110e+04_rb,0.16582e+04_rb,0.11687e+04_rb,0.15094e+04_rb,0.20126e+04_rb /)
+      kbo(:, 2,34,16) = (/ &
+        & 0.20843e+04_rb,0.15632e+04_rb,0.10894e+04_rb,0.14021e+04_rb,0.18696e+04_rb /)
+      kbo(:, 3,34,16) = (/ &
+        & 0.19675e+04_rb,0.14756e+04_rb,0.10193e+04_rb,0.13079e+04_rb,0.17439e+04_rb /)
+      kbo(:, 4,34,16) = (/ &
+        & 0.18579e+04_rb,0.13934e+04_rb,0.95559e+03_rb,0.12238e+04_rb,0.16318e+04_rb /)
+      kbo(:, 5,34,16) = (/ &
+        & 0.17560e+04_rb,0.13170e+04_rb,0.89776e+03_rb,0.11489e+04_rb,0.15318e+04_rb /)
+      kbo(:, 1,35,16) = (/ &
+        & 0.22070e+04_rb,0.16552e+04_rb,0.11645e+04_rb,0.15017e+04_rb,0.20024e+04_rb /)
+      kbo(:, 2,35,16) = (/ &
+        & 0.20800e+04_rb,0.15600e+04_rb,0.10855e+04_rb,0.13953e+04_rb,0.18605e+04_rb /)
+      kbo(:, 3,35,16) = (/ &
+        & 0.19630e+04_rb,0.14722e+04_rb,0.10157e+04_rb,0.13017e+04_rb,0.17356e+04_rb /)
+      kbo(:, 4,35,16) = (/ &
+        & 0.18532e+04_rb,0.13899e+04_rb,0.95221e+03_rb,0.12182e+04_rb,0.16243e+04_rb /)
+      kbo(:, 5,35,16) = (/ &
+        & 0.17512e+04_rb,0.13134e+04_rb,0.89456e+03_rb,0.11438e+04_rb,0.15251e+04_rb /)
+      kbo(:, 1,36,16) = (/ &
+        & 0.22146e+04_rb,0.16609e+04_rb,0.11681e+04_rb,0.15050e+04_rb,0.20067e+04_rb /)
+      kbo(:, 2,36,16) = (/ &
+        & 0.20867e+04_rb,0.15651e+04_rb,0.10887e+04_rb,0.13982e+04_rb,0.18642e+04_rb /)
+      kbo(:, 3,36,16) = (/ &
+        & 0.19689e+04_rb,0.14767e+04_rb,0.10184e+04_rb,0.13041e+04_rb,0.17389e+04_rb /)
+      kbo(:, 4,36,16) = (/ &
+        & 0.18582e+04_rb,0.13937e+04_rb,0.95458e+03_rb,0.12204e+04_rb,0.16272e+04_rb /)
+      kbo(:, 5,36,16) = (/ &
+        & 0.17557e+04_rb,0.13168e+04_rb,0.89664e+03_rb,0.11458e+04_rb,0.15277e+04_rb /)
+      kbo(:, 1,37,16) = (/ &
+        & 0.22411e+04_rb,0.16809e+04_rb,0.11837e+04_rb,0.15248e+04_rb,0.20331e+04_rb /)
+      kbo(:, 2,37,16) = (/ &
+        & 0.21106e+04_rb,0.15830e+04_rb,0.11025e+04_rb,0.14155e+04_rb,0.18873e+04_rb /)
+      kbo(:, 3,37,16) = (/ &
+        & 0.19909e+04_rb,0.14932e+04_rb,0.10307e+04_rb,0.13195e+04_rb,0.17594e+04_rb /)
+      kbo(:, 4,37,16) = (/ &
+        & 0.18783e+04_rb,0.14088e+04_rb,0.96559e+03_rb,0.12340e+04_rb,0.16453e+04_rb /)
+      kbo(:, 5,37,16) = (/ &
+        & 0.17743e+04_rb,0.13307e+04_rb,0.90666e+03_rb,0.11578e+04_rb,0.15438e+04_rb /)
+      kbo(:, 1,38,16) = (/ &
+        & 0.22677e+04_rb,0.17008e+04_rb,0.11995e+04_rb,0.15451e+04_rb,0.20601e+04_rb /)
+      kbo(:, 2,38,16) = (/ &
+        & 0.21347e+04_rb,0.16010e+04_rb,0.11166e+04_rb,0.14334e+04_rb,0.19112e+04_rb /)
+      kbo(:, 3,38,16) = (/ &
+        & 0.20130e+04_rb,0.15097e+04_rb,0.10432e+04_rb,0.13353e+04_rb,0.17805e+04_rb /)
+      kbo(:, 4,38,16) = (/ &
+        & 0.18989e+04_rb,0.14242e+04_rb,0.97692e+03_rb,0.12480e+04_rb,0.16640e+04_rb /)
+      kbo(:, 5,38,16) = (/ &
+        & 0.17929e+04_rb,0.13447e+04_rb,0.91684e+03_rb,0.11704e+04_rb,0.15605e+04_rb /)
+      kbo(:, 1,39,16) = (/ &
+        & 0.22932e+04_rb,0.17199e+04_rb,0.12149e+04_rb,0.15649e+04_rb,0.20865e+04_rb /)
+      kbo(:, 2,39,16) = (/ &
+        & 0.21580e+04_rb,0.16185e+04_rb,0.11304e+04_rb,0.14510e+04_rb,0.19346e+04_rb /)
+      kbo(:, 3,39,16) = (/ &
+        & 0.20342e+04_rb,0.15257e+04_rb,0.10554e+04_rb,0.13508e+04_rb,0.18011e+04_rb /)
+      kbo(:, 4,39,16) = (/ &
+        & 0.19186e+04_rb,0.14389e+04_rb,0.98789e+03_rb,0.12618e+04_rb,0.16825e+04_rb /)
+      kbo(:, 5,39,16) = (/ &
+        & 0.18110e+04_rb,0.13582e+04_rb,0.92676e+03_rb,0.11826e+04_rb,0.15768e+04_rb /)
+      kbo(:, 1,40,16) = (/ &
+        & 0.23330e+04_rb,0.17497e+04_rb,0.12394e+04_rb,0.15975e+04_rb,0.21300e+04_rb /)
+      kbo(:, 2,40,16) = (/ &
+        & 0.21946e+04_rb,0.16460e+04_rb,0.11524e+04_rb,0.14797e+04_rb,0.19730e+04_rb /)
+      kbo(:, 3,40,16) = (/ &
+        & 0.20673e+04_rb,0.15505e+04_rb,0.10747e+04_rb,0.13759e+04_rb,0.18346e+04_rb /)
+      kbo(:, 4,40,16) = (/ &
+        & 0.19494e+04_rb,0.14621e+04_rb,0.10054e+04_rb,0.12842e+04_rb,0.17123e+04_rb /)
+      kbo(:, 5,40,16) = (/ &
+        & 0.18395e+04_rb,0.13796e+04_rb,0.94264e+03_rb,0.12026e+04_rb,0.16034e+04_rb /)
+      kbo(:, 1,41,16) = (/ &
+        & 0.23748e+04_rb,0.17811e+04_rb,0.12653e+04_rb,0.16323e+04_rb,0.21765e+04_rb /)
+      kbo(:, 2,41,16) = (/ &
+        & 0.22335e+04_rb,0.16751e+04_rb,0.11760e+04_rb,0.15106e+04_rb,0.20142e+04_rb /)
+      kbo(:, 3,41,16) = (/ &
+        & 0.21020e+04_rb,0.15765e+04_rb,0.10953e+04_rb,0.14029e+04_rb,0.18706e+04_rb /)
+      kbo(:, 4,41,16) = (/ &
+        & 0.19818e+04_rb,0.14863e+04_rb,0.10239e+04_rb,0.13082e+04_rb,0.17443e+04_rb /)
+      kbo(:, 5,41,16) = (/ &
+        & 0.18696e+04_rb,0.14022e+04_rb,0.95944e+03_rb,0.12238e+04_rb,0.16317e+04_rb /)
+      kbo(:, 1,42,16) = (/ &
+        & 0.24183e+04_rb,0.18137e+04_rb,0.12922e+04_rb,0.16686e+04_rb,0.22248e+04_rb /)
+      kbo(:, 2,42,16) = (/ &
+        & 0.22718e+04_rb,0.17039e+04_rb,0.11997e+04_rb,0.15420e+04_rb,0.20561e+04_rb /)
+      kbo(:, 3,42,16) = (/ &
+        & 0.21373e+04_rb,0.16030e+04_rb,0.11164e+04_rb,0.14305e+04_rb,0.19073e+04_rb /)
+      kbo(:, 4,42,16) = (/ &
+        & 0.20143e+04_rb,0.15107e+04_rb,0.10428e+04_rb,0.13327e+04_rb,0.17770e+04_rb /)
+      kbo(:, 5,42,16) = (/ &
+        & 0.18998e+04_rb,0.14249e+04_rb,0.97647e+03_rb,0.12457e+04_rb,0.16610e+04_rb /)
+      kbo(:, 1,43,16) = (/ &
+        & 0.24703e+04_rb,0.18528e+04_rb,0.13249e+04_rb,0.17136e+04_rb,0.22848e+04_rb /)
+      kbo(:, 2,43,16) = (/ &
+        & 0.23188e+04_rb,0.17391e+04_rb,0.12289e+04_rb,0.15811e+04_rb,0.21082e+04_rb /)
+      kbo(:, 3,43,16) = (/ &
+        & 0.21803e+04_rb,0.16352e+04_rb,0.11426e+04_rb,0.14651e+04_rb,0.19535e+04_rb /)
+      kbo(:, 4,43,16) = (/ &
+        & 0.20539e+04_rb,0.15404e+04_rb,0.10659e+04_rb,0.13633e+04_rb,0.18177e+04_rb /)
+      kbo(:, 5,43,16) = (/ &
+        & 0.19367e+04_rb,0.14525e+04_rb,0.99744e+03_rb,0.12728e+04_rb,0.16970e+04_rb /)
+      kbo(:, 1,44,16) = (/ &
+        & 0.25274e+04_rb,0.18956e+04_rb,0.13612e+04_rb,0.17642e+04_rb,0.23522e+04_rb /)
+      kbo(:, 2,44,16) = (/ &
+        & 0.23706e+04_rb,0.17780e+04_rb,0.12614e+04_rb,0.16248e+04_rb,0.21664e+04_rb /)
+      kbo(:, 3,44,16) = (/ &
+        & 0.22278e+04_rb,0.16708e+04_rb,0.11717e+04_rb,0.15040e+04_rb,0.20053e+04_rb /)
+      kbo(:, 4,44,16) = (/ &
+        & 0.20979e+04_rb,0.15734e+04_rb,0.10920e+04_rb,0.13972e+04_rb,0.18630e+04_rb /)
+      kbo(:, 5,44,16) = (/ &
+        & 0.19771e+04_rb,0.14828e+04_rb,0.10207e+04_rb,0.13030e+04_rb,0.17374e+04_rb /)
+      kbo(:, 1,45,16) = (/ &
+        & 0.25859e+04_rb,0.19394e+04_rb,0.13990e+04_rb,0.18173e+04_rb,0.24231e+04_rb /)
+      kbo(:, 2,45,16) = (/ &
+        & 0.24239e+04_rb,0.18179e+04_rb,0.12948e+04_rb,0.16708e+04_rb,0.22278e+04_rb /)
+      kbo(:, 3,45,16) = (/ &
+        & 0.22761e+04_rb,0.17071e+04_rb,0.12017e+04_rb,0.15441e+04_rb,0.20588e+04_rb /)
+      kbo(:, 4,45,16) = (/ &
+        & 0.21421e+04_rb,0.16066e+04_rb,0.11186e+04_rb,0.14324e+04_rb,0.19099e+04_rb /)
+      kbo(:, 5,45,16) = (/ &
+        & 0.20183e+04_rb,0.15137e+04_rb,0.10446e+04_rb,0.13343e+04_rb,0.17791e+04_rb /)
+      kbo(:, 1,46,16) = (/ &
+        & 0.26504e+04_rb,0.19878e+04_rb,0.14409e+04_rb,0.18767e+04_rb,0.25023e+04_rb /)
+      kbo(:, 2,46,16) = (/ &
+        & 0.24823e+04_rb,0.18617e+04_rb,0.13316e+04_rb,0.17220e+04_rb,0.22960e+04_rb /)
+      kbo(:, 3,46,16) = (/ &
+        & 0.23297e+04_rb,0.17473e+04_rb,0.12351e+04_rb,0.15885e+04_rb,0.21180e+04_rb /)
+      kbo(:, 4,46,16) = (/ &
+        & 0.21905e+04_rb,0.16429e+04_rb,0.11482e+04_rb,0.14718e+04_rb,0.19624e+04_rb /)
+      kbo(:, 5,46,16) = (/ &
+        & 0.20627e+04_rb,0.15470e+04_rb,0.10708e+04_rb,0.13689e+04_rb,0.18252e+04_rb /)
+      kbo(:, 1,47,16) = (/ &
+        & 0.27247e+04_rb,0.20435e+04_rb,0.14902e+04_rb,0.19477e+04_rb,0.25969e+04_rb /)
+      kbo(:, 2,47,16) = (/ &
+        & 0.25493e+04_rb,0.19120e+04_rb,0.13747e+04_rb,0.17822e+04_rb,0.23763e+04_rb /)
+      kbo(:, 3,47,16) = (/ &
+        & 0.23907e+04_rb,0.17930e+04_rb,0.12733e+04_rb,0.16405e+04_rb,0.21874e+04_rb /)
+      kbo(:, 4,47,16) = (/ &
+        & 0.22466e+04_rb,0.16850e+04_rb,0.11827e+04_rb,0.15177e+04_rb,0.20235e+04_rb /)
+      kbo(:, 5,47,16) = (/ &
+        & 0.21136e+04_rb,0.15852e+04_rb,0.11012e+04_rb,0.14091e+04_rb,0.18788e+04_rb /)
+      kbo(:, 1,48,16) = (/ &
+        & 0.28012e+04_rb,0.21009e+04_rb,0.15426e+04_rb,0.20233e+04_rb,0.26978e+04_rb /)
+      kbo(:, 2,48,16) = (/ &
+        & 0.26190e+04_rb,0.19642e+04_rb,0.14199e+04_rb,0.18460e+04_rb,0.24614e+04_rb /)
+      kbo(:, 3,48,16) = (/ &
+        & 0.24541e+04_rb,0.18406e+04_rb,0.13132e+04_rb,0.16956e+04_rb,0.22609e+04_rb /)
+      kbo(:, 4,48,16) = (/ &
+        & 0.23037e+04_rb,0.17278e+04_rb,0.12184e+04_rb,0.15658e+04_rb,0.20877e+04_rb /)
+      kbo(:, 5,48,16) = (/ &
+        & 0.21661e+04_rb,0.16246e+04_rb,0.11331e+04_rb,0.14514e+04_rb,0.19352e+04_rb /)
+      kbo(:, 1,49,16) = (/ &
+        & 0.28818e+04_rb,0.21613e+04_rb,0.15982e+04_rb,0.21038e+04_rb,0.28050e+04_rb /)
+      kbo(:, 2,49,16) = (/ &
+        & 0.26914e+04_rb,0.20185e+04_rb,0.14674e+04_rb,0.19143e+04_rb,0.25524e+04_rb /)
+      kbo(:, 3,49,16) = (/ &
+        & 0.25196e+04_rb,0.18897e+04_rb,0.13550e+04_rb,0.17541e+04_rb,0.23389e+04_rb /)
+      kbo(:, 4,49,16) = (/ &
+        & 0.23632e+04_rb,0.17724e+04_rb,0.12557e+04_rb,0.16163e+04_rb,0.21550e+04_rb /)
+      kbo(:, 5,49,16) = (/ &
+        & 0.22208e+04_rb,0.16656e+04_rb,0.11666e+04_rb,0.14961e+04_rb,0.19948e+04_rb /)
+      kbo(:, 1,50,16) = (/ &
+        & 0.29612e+04_rb,0.22209e+04_rb,0.16532e+04_rb,0.21839e+04_rb,0.29118e+04_rb /)
+      kbo(:, 2,50,16) = (/ &
+        & 0.27615e+04_rb,0.20712e+04_rb,0.15149e+04_rb,0.19827e+04_rb,0.26437e+04_rb /)
+      kbo(:, 3,50,16) = (/ &
+        & 0.25830e+04_rb,0.19373e+04_rb,0.13961e+04_rb,0.18120e+04_rb,0.24160e+04_rb /)
+      kbo(:, 4,50,16) = (/ &
+        & 0.24210e+04_rb,0.18157e+04_rb,0.12921e+04_rb,0.16664e+04_rb,0.22218e+04_rb /)
+      kbo(:, 5,50,16) = (/ &
+        & 0.22734e+04_rb,0.17051e+04_rb,0.11994e+04_rb,0.15401e+04_rb,0.20534e+04_rb /)
+      kbo(:, 1,51,16) = (/ &
+        & 0.30414e+04_rb,0.22810e+04_rb,0.17098e+04_rb,0.22662e+04_rb,0.30216e+04_rb /)
+      kbo(:, 2,51,16) = (/ &
+        & 0.28321e+04_rb,0.21241e+04_rb,0.15635e+04_rb,0.20530e+04_rb,0.27374e+04_rb /)
+      kbo(:, 3,51,16) = (/ &
+        & 0.26473e+04_rb,0.19855e+04_rb,0.14379e+04_rb,0.18712e+04_rb,0.24950e+04_rb /)
+      kbo(:, 4,51,16) = (/ &
+        & 0.24793e+04_rb,0.18595e+04_rb,0.13289e+04_rb,0.17174e+04_rb,0.22898e+04_rb /)
+      kbo(:, 5,51,16) = (/ &
+        & 0.23268e+04_rb,0.17451e+04_rb,0.12327e+04_rb,0.15846e+04_rb,0.21128e+04_rb /)
+      kbo(:, 1,52,16) = (/ &
+        & 0.31248e+04_rb,0.23436e+04_rb,0.17703e+04_rb,0.23534e+04_rb,0.31379e+04_rb /)
+      kbo(:, 2,52,16) = (/ &
+        & 0.29063e+04_rb,0.21797e+04_rb,0.16147e+04_rb,0.21274e+04_rb,0.28366e+04_rb /)
+      kbo(:, 3,52,16) = (/ &
+        & 0.27134e+04_rb,0.20351e+04_rb,0.14818e+04_rb,0.19344e+04_rb,0.25793e+04_rb /)
+      kbo(:, 4,52,16) = (/ &
+        & 0.25389e+04_rb,0.19042e+04_rb,0.13672e+04_rb,0.17712e+04_rb,0.23616e+04_rb /)
+      kbo(:, 5,52,16) = (/ &
+        & 0.23814e+04_rb,0.17860e+04_rb,0.12669e+04_rb,0.16310e+04_rb,0.21746e+04_rb /)
+      kbo(:, 1,53,16) = (/ &
+        & 0.32126e+04_rb,0.24095e+04_rb,0.18346e+04_rb,0.24459e+04_rb,0.32612e+04_rb /)
+      kbo(:, 2,53,16) = (/ &
+        & 0.29838e+04_rb,0.22378e+04_rb,0.16687e+04_rb,0.22061e+04_rb,0.29415e+04_rb /)
+      kbo(:, 3,53,16) = (/ &
+        & 0.27817e+04_rb,0.20863e+04_rb,0.15283e+04_rb,0.20017e+04_rb,0.26689e+04_rb /)
+      kbo(:, 4,53,16) = (/ &
+        & 0.26009e+04_rb,0.19507e+04_rb,0.14074e+04_rb,0.18280e+04_rb,0.24374e+04_rb /)
+      kbo(:, 5,53,16) = (/ &
+        & 0.24377e+04_rb,0.18283e+04_rb,0.13025e+04_rb,0.16802e+04_rb,0.22403e+04_rb /)
+      kbo(:, 1,54,16) = (/ &
+        & 0.32965e+04_rb,0.24725e+04_rb,0.18972e+04_rb,0.25356e+04_rb,0.33807e+04_rb /)
+      kbo(:, 2,54,16) = (/ &
+        & 0.30576e+04_rb,0.22932e+04_rb,0.17211e+04_rb,0.22822e+04_rb,0.30430e+04_rb /)
+      kbo(:, 3,54,16) = (/ &
+        & 0.28468e+04_rb,0.21351e+04_rb,0.15733e+04_rb,0.20668e+04_rb,0.27558e+04_rb /)
+      kbo(:, 4,54,16) = (/ &
+        & 0.26600e+04_rb,0.19950e+04_rb,0.14459e+04_rb,0.18829e+04_rb,0.25105e+04_rb /)
+      kbo(:, 5,54,16) = (/ &
+        & 0.24912e+04_rb,0.18684e+04_rb,0.13364e+04_rb,0.17275e+04_rb,0.23034e+04_rb /)
+      kbo(:, 1,55,16) = (/ &
+        & 0.33833e+04_rb,0.25376e+04_rb,0.19611e+04_rb,0.26264e+04_rb,0.35019e+04_rb /)
+      kbo(:, 2,55,16) = (/ &
+        & 0.31321e+04_rb,0.23491e+04_rb,0.17750e+04_rb,0.23596e+04_rb,0.31462e+04_rb /)
+      kbo(:, 3,55,16) = (/ &
+        & 0.29119e+04_rb,0.21839e+04_rb,0.16184e+04_rb,0.21327e+04_rb,0.28435e+04_rb /)
+      kbo(:, 4,55,16) = (/ &
+        & 0.27182e+04_rb,0.20386e+04_rb,0.14848e+04_rb,0.19390e+04_rb,0.25853e+04_rb /)
+      kbo(:, 5,55,16) = (/ &
+        & 0.25438e+04_rb,0.19078e+04_rb,0.13702e+04_rb,0.17749e+04_rb,0.23665e+04_rb /)
+      kbo(:, 1,56,16) = (/ &
+        & 0.34732e+04_rb,0.26050e+04_rb,0.20286e+04_rb,0.27221e+04_rb,0.36294e+04_rb /)
+      kbo(:, 2,56,16) = (/ &
+        & 0.32087e+04_rb,0.24066e+04_rb,0.18312e+04_rb,0.24406e+04_rb,0.32540e+04_rb /)
+      kbo(:, 3,56,16) = (/ &
+        & 0.29798e+04_rb,0.22348e+04_rb,0.16657e+04_rb,0.22014e+04_rb,0.29353e+04_rb /)
+      kbo(:, 4,56,16) = (/ &
+        & 0.27779e+04_rb,0.20834e+04_rb,0.15255e+04_rb,0.19978e+04_rb,0.26637e+04_rb /)
+      kbo(:, 5,56,16) = (/ &
+        & 0.25980e+04_rb,0.19485e+04_rb,0.14055e+04_rb,0.18247e+04_rb,0.24330e+04_rb /)
+      kbo(:, 1,57,16) = (/ &
+        & 0.35673e+04_rb,0.26755e+04_rb,0.21006e+04_rb,0.28229e+04_rb,0.37639e+04_rb /)
+      kbo(:, 2,57,16) = (/ &
+        & 0.32883e+04_rb,0.24663e+04_rb,0.18907e+04_rb,0.25257e+04_rb,0.33676e+04_rb /)
+      kbo(:, 3,57,16) = (/ &
+        & 0.30500e+04_rb,0.22875e+04_rb,0.17155e+04_rb,0.22739e+04_rb,0.30319e+04_rb /)
+      kbo(:, 4,57,16) = (/ &
+        & 0.28394e+04_rb,0.21295e+04_rb,0.15682e+04_rb,0.20597e+04_rb,0.27463e+04_rb /)
+      kbo(:, 5,57,16) = (/ &
+        & 0.26543e+04_rb,0.19907e+04_rb,0.14421e+04_rb,0.18768e+04_rb,0.25025e+04_rb /)
+      kbo(:, 1,58,16) = (/ &
+        & 0.36607e+04_rb,0.27457e+04_rb,0.21738e+04_rb,0.29233e+04_rb,0.38978e+04_rb /)
+      kbo(:, 2,58,16) = (/ &
+        & 0.33686e+04_rb,0.25266e+04_rb,0.19501e+04_rb,0.26108e+04_rb,0.34810e+04_rb /)
+      kbo(:, 3,58,16) = (/ &
+        & 0.31191e+04_rb,0.23393e+04_rb,0.17656e+04_rb,0.23462e+04_rb,0.31282e+04_rb /)
+      kbo(:, 4,58,16) = (/ &
+        & 0.29009e+04_rb,0.21757e+04_rb,0.16107e+04_rb,0.21213e+04_rb,0.28285e+04_rb /)
+      kbo(:, 5,58,16) = (/ &
+        & 0.27090e+04_rb,0.20318e+04_rb,0.14784e+04_rb,0.19292e+04_rb,0.25722e+04_rb /)
+      kbo(:, 1,59,16) = (/ &
+        & 0.36992e+04_rb,0.27745e+04_rb,0.22044e+04_rb,0.29651e+04_rb,0.39534e+04_rb /)
+      kbo(:, 2,59,16) = (/ &
+        & 0.34022e+04_rb,0.25517e+04_rb,0.19749e+04_rb,0.26461e+04_rb,0.35281e+04_rb /)
+      kbo(:, 3,59,16) = (/ &
+        & 0.31476e+04_rb,0.23607e+04_rb,0.17864e+04_rb,0.23762e+04_rb,0.31682e+04_rb /)
+      kbo(:, 4,59,16) = (/ &
+        & 0.29259e+04_rb,0.21945e+04_rb,0.16281e+04_rb,0.21469e+04_rb,0.28626e+04_rb /)
+      kbo(:, 5,59,16) = (/ &
+        & 0.27315e+04_rb,0.20486e+04_rb,0.14936e+04_rb,0.19510e+04_rb,0.26013e+04_rb /)
+
+!     -----------------------------------------------------------------
+
+      forrefo(:, 1) = (/ 0.553258e-03_rb, 0.555486e-03_rb, 0.601339e-03_rb, 0.708280e-03_rb /)
+      forrefo(:, 2) = (/ 0.158558e-02_rb, 0.162957e-02_rb, 0.204991e-02_rb, 0.475881e-02_rb /)
+      forrefo(:, 3) = (/ 0.772542e-02_rb, 0.784562e-02_rb, 0.111979e-01_rb, 0.229016e-01_rb /)
+      forrefo(:, 4) = (/ 0.255097e-01_rb, 0.256272e-01_rb, 0.270691e-01_rb, 0.259505e-01_rb /)
+      forrefo(:, 5) = (/ 0.323263e-01_rb, 0.324495e-01_rb, 0.305535e-01_rb, 0.263993e-01_rb /)
+      forrefo(:, 6) = (/ 0.346920e-01_rb, 0.348255e-01_rb, 0.323586e-01_rb, 0.276357e-01_rb /)
+      forrefo(:, 7) = (/ 0.366509e-01_rb, 0.366412e-01_rb, 0.344434e-01_rb, 0.319223e-01_rb /)
+      forrefo(:, 8) = (/ 0.378451e-01_rb, 0.375341e-01_rb, 0.374369e-01_rb, 0.320334e-01_rb /)
+      forrefo(:, 9) = (/ 0.407348e-01_rb, 0.396203e-01_rb, 0.393988e-01_rb, 0.318343e-01_rb /)
+      forrefo(:,10) = (/ 0.433035e-01_rb, 0.426488e-01_rb, 0.408085e-01_rb, 0.332749e-01_rb /)
+      forrefo(:,11) = (/ 0.428254e-01_rb, 0.441151e-01_rb, 0.408887e-01_rb, 0.327077e-01_rb /)
+      forrefo(:,12) = (/ 0.443226e-01_rb, 0.446690e-01_rb, 0.404676e-01_rb, 0.350492e-01_rb /)
+      forrefo(:,13) = (/ 0.466103e-01_rb, 0.460809e-01_rb, 0.401286e-01_rb, 0.370427e-01_rb /)
+      forrefo(:,14) = (/ 0.483928e-01_rb, 0.477284e-01_rb, 0.380684e-01_rb, 0.387940e-01_rb /)
+      forrefo(:,15) = (/ 0.506987e-01_rb, 0.490016e-01_rb, 0.467069e-01_rb, 0.368998e-01_rb /)
+      forrefo(:,16) = (/ 0.510836e-01_rb, 0.522771e-01_rb, 0.500130e-01_rb, 0.483406e-01_rb /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+        &  0.160537e-01_rb, 0.149038e-01_rb, 0.138363e-01_rb, 0.128452e-01_rb, 0.119251e-01_rb, &
+        &  0.110709e-01_rb, 0.102779e-01_rb, 0.954175e-02_rb, 0.885829e-02_rb, 0.822379e-02_rb /)
+      selfrefo(:, 2) = (/ &
+        &  0.365753e-01_rb, 0.342267e-01_rb, 0.320288e-01_rb, 0.299720e-01_rb, 0.280474e-01_rb, &
+        &  0.262463e-01_rb, 0.245609e-01_rb, 0.229837e-01_rb, 0.215078e-01_rb, 0.201267e-01_rb /)
+      selfrefo(:, 3) = (/ &
+        &  0.127419e+00_rb, 0.118553e+00_rb, 0.110304e+00_rb, 0.102629e+00_rb, 0.954883e-01_rb, &
+        &  0.888442e-01_rb, 0.826624e-01_rb, 0.769107e-01_rb, 0.715593e-01_rb, 0.665802e-01_rb /)
+      selfrefo(:, 4) = (/ &
+        &  0.378687e+00_rb, 0.348961e+00_rb, 0.321568e+00_rb, 0.296325e+00_rb, 0.273064e+00_rb, &
+        &  0.251629e+00_rb, 0.231876e+00_rb, 0.213674e+00_rb, 0.196901e+00_rb, 0.181444e+00_rb /)
+      selfrefo(:, 5) = (/ &
+        &  0.472822e+00_rb, 0.435018e+00_rb, 0.400236e+00_rb, 0.368236e+00_rb, 0.338794e+00_rb, &
+        &  0.311706e+00_rb, 0.286783e+00_rb, 0.263854e+00_rb, 0.242757e+00_rb, 0.223348e+00_rb /)
+      selfrefo(:, 6) = (/ &
+        &  0.505620e+00_rb, 0.465050e+00_rb, 0.427736e+00_rb, 0.393416e+00_rb, 0.361849e+00_rb, &
+        &  0.332815e+00_rb, 0.306111e+00_rb, 0.281550e+00_rb, 0.258959e+00_rb, 0.238181e+00_rb /)
+      selfrefo(:, 7) = (/ &
+        &  0.530488e+00_rb, 0.487993e+00_rb, 0.448902e+00_rb, 0.412943e+00_rb, 0.379864e+00_rb, &
+        &  0.349434e+00_rb, 0.321443e+00_rb, 0.295694e+00_rb, 0.272007e+00_rb, 0.250218e+00_rb /)
+      selfrefo(:, 8) = (/ &
+        &  0.540222e+00_rb, 0.497746e+00_rb, 0.458610e+00_rb, 0.422551e+00_rb, 0.389327e+00_rb, &
+        &  0.358716e+00_rb, 0.330511e+00_rb, 0.304524e+00_rb, 0.280580e+00_rb, 0.258519e+00_rb /)
+      selfrefo(:, 9) = (/ &
+        &  0.565727e+00_rb, 0.522899e+00_rb, 0.483313e+00_rb, 0.446724e+00_rb, 0.412905e+00_rb, &
+        &  0.381646e+00_rb, 0.352753e+00_rb, 0.326048e+00_rb, 0.301365e+00_rb, 0.278550e+00_rb /)
+      selfrefo(:,10) = (/ &
+        &  0.610122e+00_rb, 0.562337e+00_rb, 0.518295e+00_rb, 0.477702e+00_rb, 0.440289e+00_rb, &
+        &  0.405806e+00_rb, 0.374023e+00_rb, 0.344730e+00_rb, 0.317730e+00_rb, 0.292846e+00_rb /)
+      selfrefo(:,11) = (/ &
+        &  0.645176e+00_rb, 0.588957e+00_rb, 0.537636e+00_rb, 0.490788e+00_rb, 0.448022e+00_rb, &
+        &  0.408982e+00_rb, 0.373344e+00_rb, 0.340812e+00_rb, 0.311114e+00_rb, 0.284004e+00_rb /)
+      selfrefo(:,12) = (/ &
+        &  0.651737e+00_rb, 0.596547e+00_rb, 0.546031e+00_rb, 0.499792e+00_rb, 0.457469e+00_rb, &
+        &  0.418730e+00_rb, 0.383272e+00_rb, 0.350816e+00_rb, 0.321108e+00_rb, 0.293916e+00_rb /)
+      selfrefo(:,13) = (/ &
+        &  0.661086e+00_rb, 0.607954e+00_rb, 0.559093e+00_rb, 0.514159e+00_rb, 0.472836e+00_rb, &
+        &  0.434834e+00_rb, 0.399886e+00_rb, 0.367747e+00_rb, 0.338191e+00_rb, 0.311011e+00_rb /)
+      selfrefo(:,14) = (/ &
+        &  0.692554e+00_rb, 0.635574e+00_rb, 0.583282e+00_rb, 0.535293e+00_rb, 0.491251e+00_rb, &
+        &  0.450834e+00_rb, 0.413741e+00_rb, 0.379701e+00_rb, 0.348461e+00_rb, 0.319791e+00_rb /)
+      selfrefo(:,15) = (/ &
+        &  0.714646e+00_rb, 0.657179e+00_rb, 0.604334e+00_rb, 0.555737e+00_rb, 0.511049e+00_rb, &
+        &  0.469954e+00_rb, 0.432164e+00_rb, 0.397412e+00_rb, 0.365455e+00_rb, 0.336068e+00_rb /)
+      selfrefo(:,16) = (/ &
+        &  0.782126e+00_rb, 0.710682e+00_rb, 0.645764e+00_rb, 0.586776e+00_rb, 0.533177e+00_rb, &
+        &  0.484473e+00_rb, 0.440219e+00_rb, 0.400007e+00_rb, 0.363468e+00_rb, 0.330266e+00_rb /)
+     
+      end subroutine sw_kgb17
+
+! **************************************************************************
+      subroutine sw_kgb18
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg18, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:,1) = (/ &
+        & 3.65840_rb    , 3.54375_rb    , 3.34481_rb    , 3.10534_rb    , &
+        & 2.79879_rb    , 2.42841_rb    , 1.98748_rb    , 1.49377_rb    , &
+        & 1.00196_rb    , 0.108342_rb   , 8.95099e-02_rb, 7.05199e-02_rb, &
+        & 5.16432e-02_rb, 3.27635e-02_rb, 1.25133e-02_rb, 1.73001e-03_rb /)  
+      sfluxrefo(:,2) = (/ &
+        & 3.86372_rb    , 3.48521_rb    , 3.30790_rb    , 3.08103_rb    , &
+        & 2.77552_rb    , 2.40722_rb    , 1.97307_rb    , 1.48023_rb    , &
+        & 0.993055_rb   , 0.107691_rb   , 8.84430e-02_rb, 6.99354e-02_rb, &
+        & 5.07881e-02_rb, 3.24121e-02_rb, 1.19442e-02_rb, 1.57612e-03_rb /)
+      sfluxrefo(:,3) = (/ &
+        & 3.90370_rb    , 3.50657_rb    , 3.30629_rb    , 3.06046_rb    , &
+        & 2.76982_rb    , 2.39907_rb    , 1.96358_rb    , 1.47458_rb    , &
+        & 0.988475_rb   , 0.106698_rb   , 8.75242e-02_rb, 6.85898e-02_rb, &
+        & 5.04798e-02_rb, 3.13718e-02_rb, 1.09533e-02_rb, 1.57612e-03_rb /)
+      sfluxrefo(:,4) = (/ &
+        & 3.93165_rb    , 3.52058_rb    , 3.31346_rb    , 3.04944_rb    , &
+        & 2.76074_rb    , 2.39433_rb    , 1.95556_rb    , 1.46712_rb    , &
+        & 0.984056_rb   , 0.105885_rb   , 8.73062e-02_rb, 6.84054e-02_rb, &
+        & 4.87443e-02_rb, 2.99295e-02_rb, 1.09533e-02_rb, 1.57612e-03_rb /)
+      sfluxrefo(:,5) = (/ &
+        & 3.94082_rb    , 3.55221_rb    , 3.31863_rb    , 3.04730_rb    , &
+        & 2.74918_rb    , 2.38328_rb    , 1.95212_rb    , 1.45889_rb    , &
+        & 0.978888_rb   , 0.105102_rb   , 8.65732e-02_rb, 6.74563e-02_rb, &
+        & 4.76592e-02_rb, 2.91017e-02_rb, 1.09533e-02_rb, 1.57612e-03_rb /)
+      sfluxrefo(:,6) = (/ &
+        & 3.94198_rb    , 3.58743_rb    , 3.32106_rb    , 3.05866_rb    , &
+        & 2.74115_rb    , 2.36939_rb    , 1.94305_rb    , 1.45180_rb    , &
+        & 0.971784_rb   , 1.04045e-01_rb, 8.53731e-02_rb, 6.60654e-02_rb, &
+        & 4.63228e-02_rb, 2.91016e-02_rb, 1.09552e-02_rb, 1.57612e-03_rb /)
+      sfluxrefo(:,7) = (/ &
+        & 3.93596_rb    , 3.63366_rb    , 3.33144_rb    , 3.06252_rb    , &
+        & 2.74054_rb    , 2.35492_rb    , 1.92769_rb    , 1.44300_rb    , &
+        & 0.961809_rb   , 1.02867e-01_rb, 8.34164e-02_rb, 6.41005e-02_rb, &
+        & 4.61826e-02_rb, 2.91006e-02_rb, 1.09553e-02_rb, 1.57612e-03_rb /)
+      sfluxrefo(:,8) = (/ &
+        & 3.92520_rb    , 3.69078_rb    , 3.35656_rb    , 3.07055_rb    , &
+        & 2.73862_rb    , 2.34430_rb    , 1.90187_rb    , 1.42242_rb    , &
+        & 0.946676_rb   , 9.96302e-02_rb, 8.14421e-02_rb, 6.38622e-02_rb, &
+        & 4.61794e-02_rb, 2.91017e-02_rb, 1.09553e-02_rb, 1.57612e-03_rb /)
+      sfluxrefo(:,9) = (/ &
+        & 3.80721_rb    , 3.74437_rb    , 3.50205_rb    , 3.18009_rb    , &
+        & 2.75757_rb    , 2.29188_rb    , 1.84382_rb    , 1.35694_rb    , &
+        & 0.914040_rb   , 9.86811e-02_rb, 8.14321e-02_rb, 6.38541e-02_rb, &
+        & 4.61795e-02_rb, 2.90960e-02_rb, 1.09613e-02_rb, 1.57612e-03_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:,1) = (/ &
+        & 3.49440E+00_rb, 3.57650E+00_rb, 3.41488E+00_rb, 3.14413E+00_rb,&
+        & 2.81877E+00_rb, 2.43443E+00_rb, 1.99233E+00_rb, 1.49600E+00_rb,&
+        & 1.00377E+00_rb, 1.08483E-01_rb, 8.95901E-02_rb, 7.04863E-02_rb,&
+        & 5.17070E-02_rb, 3.26854E-02_rb, 1.24569E-02_rb, 1.72274E-03_rb/)
+      irradnceo(:,2) = (/ &
+        & 3.68553E+00_rb, 3.56505E+00_rb, 3.35418E+00_rb, 3.11289E+00_rb,&
+        & 2.79208E+00_rb, 2.41416E+00_rb, 1.97742E+00_rb, 1.48270E+00_rb,&
+        & 9.95111E-01_rb, 1.07772E-01_rb, 8.86279E-02_rb, 6.98929E-02_rb,&
+        & 5.10621E-02_rb, 3.23227E-02_rb, 1.19330E-02_rb, 1.60968E-03_rb/)
+      irradnceo(:,3) = (/ &
+        & 3.75860E+00_rb, 3.57346E+00_rb, 3.33478E+00_rb, 3.09398E+00_rb,&
+        & 2.78402E+00_rb, 2.40611E+00_rb, 1.96708E+00_rb, 1.47636E+00_rb,&
+        & 9.90253E-01_rb, 1.06549E-01_rb, 8.75229E-02_rb, 6.89197E-02_rb,&
+        & 5.05164E-02_rb, 3.14200E-02_rb, 1.11817E-02_rb, 1.58850E-03_rb/)
+      irradnceo(:,4) = (/ &
+        & 3.81767E+00_rb, 3.57466E+00_rb, 3.32940E+00_rb, 3.08251E+00_rb,&
+        & 2.77077E+00_rb, 2.40182E+00_rb, 1.95824E+00_rb, 1.46906E+00_rb,&
+        & 9.84809E-01_rb, 1.05919E-01_rb, 8.72473E-02_rb, 6.83740E-02_rb,&
+        & 4.89285E-02_rb, 3.01940E-02_rb, 1.11449E-02_rb, 1.58850E-03_rb/)
+      irradnceo(:,5) = (/ &
+        & 3.87128E+00_rb, 3.57646E+00_rb, 3.33718E+00_rb, 3.06566E+00_rb,&
+        & 2.75945E+00_rb, 2.38977E+00_rb, 1.95417E+00_rb, 1.46006E+00_rb,&
+        & 9.79580E-01_rb, 1.05017E-01_rb, 8.65276E-02_rb, 6.73472E-02_rb,&
+        & 4.78356E-02_rb, 2.92746E-02_rb, 1.11449E-02_rb, 1.58850E-03_rb/)
+      irradnceo(:,6) = (/ &
+        & 3.90742E+00_rb, 3.59616E+00_rb, 3.33608E+00_rb, 3.06693E+00_rb,&
+        & 2.74816E+00_rb, 2.37539E+00_rb, 1.94331E+00_rb, 1.45351E+00_rb,&
+        & 9.71722E-01_rb, 1.03829E-01_rb, 8.53982E-02_rb, 6.59824E-02_rb,&
+        & 4.64343E-02_rb, 2.92747E-02_rb, 1.11449E-02_rb, 1.58850E-03_rb/)
+      irradnceo(:,7) = (/ &
+        & 3.92574E+00_rb, 3.64369E+00_rb, 3.33733E+00_rb, 3.06377E+00_rb,&
+        & 2.74380E+00_rb, 2.35857E+00_rb, 1.92632E+00_rb, 1.44340E+00_rb,&
+        & 9.61341E-01_rb, 1.02784E-01_rb, 8.33603E-02_rb, 6.39926E-02_rb,&
+        & 4.62416E-02_rb, 2.92746E-02_rb, 1.11449E-02_rb, 1.58850E-03_rb/)
+      irradnceo(:,8) = (/ &
+        & 3.92268E+00_rb, 3.71504E+00_rb, 3.37141E+00_rb, 3.05973E+00_rb,&
+        & 2.73287E+00_rb, 2.34241E+00_rb, 1.90068E+00_rb, 1.41996E+00_rb,&
+        & 9.44915E-01_rb, 9.93891E-02_rb, 8.13306E-02_rb, 6.36746E-02_rb,&
+        & 4.62467E-02_rb, 2.92746E-02_rb, 1.11449E-02_rb, 1.58850E-03_rb/)
+      irradnceo(:,9) = (/ &
+        & 3.82674E+00_rb, 3.70356E+00_rb, 3.53205E+00_rb, 3.21082E+00_rb,&
+        & 2.75496E+00_rb, 2.28523E+00_rb, 1.83335E+00_rb, 1.35206E+00_rb,&
+        & 9.11881E-01_rb, 9.84346E-02_rb, 8.13206E-02_rb, 6.36749E-02_rb,&
+        & 4.62421E-02_rb, 2.92738E-02_rb, 1.11449E-02_rb, 1.58850E-03_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:,1) = (/ &
+        & 7.58999E-04_rb, 6.55830E-04_rb, 6.20804E-04_rb, 6.12259E-04_rb,&
+        & 5.54428E-04_rb, 4.79876E-04_rb, 3.89163E-04_rb, 3.01726E-04_rb,&
+        & 2.12719E-04_rb, 2.39117E-05_rb, 2.02305E-05_rb, 1.64707E-05_rb,&
+        & 1.21059E-05_rb, 8.13734E-06_rb, 2.81665E-06_rb, 5.39623E-07_rb/)
+      facbrghto(:,2) = (/ &
+        & 6.36794E-04_rb, 6.57247E-04_rb, 6.67170E-04_rb, 6.31953E-04_rb,&
+        & 5.70430E-04_rb, 4.94028E-04_rb, 3.98611E-04_rb, 3.10582E-04_rb,&
+        & 2.17379E-04_rb, 2.42843E-05_rb, 2.07745E-05_rb, 1.67557E-05_rb,&
+        & 1.23009E-05_rb, 8.09594E-06_rb, 3.16603E-06_rb, 4.44158E-07_rb/)
+      facbrghto(:,3) = (/ &
+        & 5.87600E-04_rb, 6.50301E-04_rb, 6.86813E-04_rb, 6.39318E-04_rb,&
+        & 5.76886E-04_rb, 4.99174E-04_rb, 4.06306E-04_rb, 3.14503E-04_rb,&
+        & 2.20859E-04_rb, 2.51296E-05_rb, 2.13220E-05_rb, 1.70147E-05_rb,&
+        & 1.28933E-05_rb, 8.11242E-06_rb, 3.34674E-06_rb, 4.36119E-07_rb/)
+      facbrghto(:,4) = (/ &
+        & 5.46975E-04_rb, 6.49450E-04_rb, 6.92184E-04_rb, 6.48755E-04_rb,&
+        & 5.84166E-04_rb, 5.01298E-04_rb, 4.14016E-04_rb, 3.18445E-04_rb,&
+        & 2.24422E-04_rb, 2.55811E-05_rb, 2.17482E-05_rb, 1.73672E-05_rb,&
+        & 1.31428E-05_rb, 8.70580E-06_rb, 3.32525E-06_rb, 4.36119E-07_rb/)
+      facbrghto(:,5) = (/ &
+        & 5.08232E-04_rb, 6.48741E-04_rb, 6.91036E-04_rb, 6.61654E-04_rb,&
+        & 5.89889E-04_rb, 5.07646E-04_rb, 4.18691E-04_rb, 3.23911E-04_rb,&
+        & 2.27748E-04_rb, 2.62553E-05_rb, 2.19886E-05_rb, 1.80693E-05_rb,&
+        & 1.35550E-05_rb, 8.83925E-06_rb, 3.32525E-06_rb, 4.36119E-07_rb/)
+      facbrghto(:,6) = (/ &
+        & 4.76940E-04_rb, 6.39693E-04_rb, 6.93532E-04_rb, 6.63608E-04_rb,&
+        & 5.99297E-04_rb, 5.14808E-04_rb, 4.25655E-04_rb, 3.28971E-04_rb,&
+        & 2.32714E-04_rb, 2.71686E-05_rb, 2.25696E-05_rb, 1.82517E-05_rb,&
+        & 1.42076E-05_rb, 8.83924E-06_rb, 3.32525E-06_rb, 4.36119E-07_rb/)
+      facbrghto(:,7) = (/ &
+        & 4.57140E-04_rb, 6.09182E-04_rb, 6.96958E-04_rb, 6.69137E-04_rb,&
+        & 6.04079E-04_rb, 5.25112E-04_rb, 4.36423E-04_rb, 3.35550E-04_rb,&
+        & 2.39276E-04_rb, 2.78692E-05_rb, 2.32621E-05_rb, 1.92758E-05_rb,&
+        & 1.41543E-05_rb, 8.83830E-06_rb, 3.32525E-06_rb, 4.36119E-07_rb/)
+      facbrghto(:,8) = (/ &
+        & 4.52565E-04_rb, 5.50855E-04_rb, 6.84333E-04_rb, 6.76955E-04_rb,&
+        & 6.15651E-04_rb, 5.39009E-04_rb, 4.52801E-04_rb, 3.48779E-04_rb,&
+        & 2.49515E-04_rb, 2.92096E-05_rb, 2.43576E-05_rb, 1.92334E-05_rb,&
+        & 1.41526E-05_rb, 8.84028E-06_rb, 3.32525E-06_rb, 4.36119E-07_rb/)
+      facbrghto(:,9) = (/ &
+        & 4.91883E-04_rb, 5.60107E-04_rb, 5.57685E-04_rb, 5.96261E-04_rb,&
+        & 6.31358E-04_rb, 5.93500E-04_rb, 4.90937E-04_rb, 3.83419E-04_rb,&
+        & 2.64987E-04_rb, 2.95723E-05_rb, 2.43196E-05_rb, 1.92312E-05_rb,&
+        & 1.41532E-05_rb, 8.84046E-06_rb, 3.32525E-06_rb, 4.36119E-07_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:,1) = (/ &
+        &-4.51300E-04_rb,-4.45609E-04_rb,-4.24720E-04_rb,-3.99722E-04_rb,&
+        &-3.60952E-04_rb,-3.12628E-04_rb,-2.56030E-04_rb,-1.94296E-04_rb,&
+        &-1.32174E-04_rb,-1.43956E-05_rb,-1.19486E-05_rb,-9.47930E-06_rb,&
+        &-6.94662E-06_rb,-4.48228E-06_rb,-1.65440E-06_rb,-2.51503E-07_rb/)
+      snsptdrko(:,2) = (/ &
+        &-4.55729E-04_rb,-4.43042E-04_rb,-4.26015E-04_rb,-3.99035E-04_rb,&
+        &-3.60091E-04_rb,-3.12410E-04_rb,-2.55602E-04_rb,-1.94059E-04_rb,&
+        &-1.31762E-04_rb,-1.43450E-05_rb,-1.19028E-05_rb,-9.43882E-06_rb,&
+        &-6.91015E-06_rb,-4.40578E-06_rb,-1.62750E-06_rb,-2.15621E-07_rb/)
+      snsptdrko(:,3) = (/ &
+        &-4.56549E-04_rb,-4.43019E-04_rb,-4.27191E-04_rb,-3.98183E-04_rb,&
+        &-3.60119E-04_rb,-3.12019E-04_rb,-2.55511E-04_rb,-1.93908E-04_rb,&
+        &-1.31579E-04_rb,-1.43209E-05_rb,-1.18561E-05_rb,-9.35705E-06_rb,&
+        &-6.92644E-06_rb,-4.29189E-06_rb,-1.54851E-06_rb,-2.10351E-07_rb/)
+      snsptdrko(:,4) = (/ &
+        &-4.56684E-04_rb,-4.43572E-04_rb,-4.27672E-04_rb,-3.98699E-04_rb,&
+        &-3.59420E-04_rb,-3.11860E-04_rb,-2.55447E-04_rb,-1.93638E-04_rb,&
+        &-1.31347E-04_rb,-1.42991E-05_rb,-1.18693E-05_rb,-9.33361E-06_rb,&
+        &-6.78764E-06_rb,-4.20873E-06_rb,-1.54183E-06_rb,-2.10351E-07_rb/)
+      snsptdrko(:,5) = (/ &
+        &-4.56270E-04_rb,-4.44762E-04_rb,-4.28429E-04_rb,-3.98934E-04_rb,&
+        &-3.58924E-04_rb,-3.11262E-04_rb,-2.55667E-04_rb,-1.93279E-04_rb,&
+        &-1.31122E-04_rb,-1.42714E-05_rb,-1.17983E-05_rb,-9.31874E-06_rb,&
+        &-6.67579E-06_rb,-4.12466E-06_rb,-1.54183E-06_rb,-2.10351E-07_rb/)
+      snsptdrko(:,6) = (/ &
+        &-4.55193E-04_rb,-4.46168E-04_rb,-4.29248E-04_rb,-3.99450E-04_rb,&
+        &-3.58992E-04_rb,-3.10587E-04_rb,-2.55473E-04_rb,-1.93094E-04_rb,&
+        &-1.30784E-04_rb,-1.42502E-05_rb,-1.17328E-05_rb,-9.14896E-06_rb,&
+        &-6.59212E-06_rb,-4.12465E-06_rb,-1.54183E-06_rb,-2.10351E-07_rb/)
+      snsptdrko(:,7) = (/ &
+        &-4.54045E-04_rb,-4.47013E-04_rb,-4.31032E-04_rb,-3.99936E-04_rb,&
+        &-3.59117E-04_rb,-3.10327E-04_rb,-2.54888E-04_rb,-1.92799E-04_rb,&
+        &-1.30214E-04_rb,-1.42080E-05_rb,-1.15499E-05_rb,-9.02467E-06_rb,&
+        &-6.55881E-06_rb,-4.12446E-06_rb,-1.54183E-06_rb,-2.10351E-07_rb/)
+      snsptdrko(:,8) = (/ &
+        &-4.52992E-04_rb,-4.46009E-04_rb,-4.34048E-04_rb,-4.01532E-04_rb,&
+        &-3.59657E-04_rb,-3.10308E-04_rb,-2.54431E-04_rb,-1.91476E-04_rb,&
+        &-1.29373E-04_rb,-1.39204E-05_rb,-1.14329E-05_rb,-8.97348E-06_rb,&
+        &-6.55862E-06_rb,-4.12468E-06_rb,-1.54183E-06_rb,-2.10351E-07_rb/)
+      snsptdrko(:,9) = (/ &
+        &-4.54391E-04_rb,-4.52912E-04_rb,-4.28976E-04_rb,-4.03420E-04_rb,&
+        &-3.64644E-04_rb,-3.11647E-04_rb,-2.50240E-04_rb,-1.86827E-04_rb,&
+        &-1.26855E-04_rb,-1.38507E-05_rb,-1.14187E-05_rb,-8.97252E-06_rb,&
+        &-6.55863E-06_rb,-4.12466E-06_rb,-1.54183E-06_rb,-2.10351E-07_rb/)
+
+! Rayleigh extinction coefficient at v = 4325 cm-1.
+      rayl = 1.39e-09_rb
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1, 1) = (/ &
+        & 0.14813e-04_rb,0.39842e-04_rb,0.43362e-04_rb,0.43095e-04_rb,0.39811e-04_rb, &
+        & 0.34994e-04_rb,0.28984e-04_rb,0.20609e-04_rb,0.18845e-05_rb /)
+      kao(:, 2, 1, 1) = (/ &
+        & 0.14432e-04_rb,0.38749e-04_rb,0.42119e-04_rb,0.41834e-04_rb,0.38900e-04_rb, &
+        & 0.34365e-04_rb,0.28571e-04_rb,0.20503e-04_rb,0.14715e-05_rb /)
+      kao(:, 3, 1, 1) = (/ &
+        & 0.13969e-04_rb,0.37666e-04_rb,0.40942e-04_rb,0.40703e-04_rb,0.37982e-04_rb, &
+        & 0.33731e-04_rb,0.28158e-04_rb,0.20351e-04_rb,0.10842e-05_rb /)
+      kao(:, 4, 1, 1) = (/ &
+        & 0.13367e-04_rb,0.36605e-04_rb,0.39729e-04_rb,0.39529e-04_rb,0.37033e-04_rb, &
+        & 0.33096e-04_rb,0.27690e-04_rb,0.20154e-04_rb,0.78702e-06_rb /)
+      kao(:, 5, 1, 1) = (/ &
+        & 0.12765e-04_rb,0.35584e-04_rb,0.38536e-04_rb,0.38361e-04_rb,0.36073e-04_rb, &
+        & 0.32384e-04_rb,0.27242e-04_rb,0.19932e-04_rb,0.58296e-06_rb /)
+      kao(:, 1, 2, 1) = (/ &
+        & 0.12299e-04_rb,0.34179e-04_rb,0.37405e-04_rb,0.37535e-04_rb,0.34714e-04_rb, &
+        & 0.30335e-04_rb,0.24892e-04_rb,0.17524e-04_rb,0.13301e-05_rb /)
+      kao(:, 2, 2, 1) = (/ &
+        & 0.12064e-04_rb,0.33225e-04_rb,0.36357e-04_rb,0.36512e-04_rb,0.33870e-04_rb, &
+        & 0.29789e-04_rb,0.24578e-04_rb,0.17435e-04_rb,0.10217e-05_rb /)
+      kao(:, 3, 2, 1) = (/ &
+        & 0.11697e-04_rb,0.32301e-04_rb,0.35316e-04_rb,0.35481e-04_rb,0.33049e-04_rb, &
+        & 0.29226e-04_rb,0.24233e-04_rb,0.17304e-04_rb,0.72152e-06_rb /)
+      kao(:, 4, 2, 1) = (/ &
+        & 0.11209e-04_rb,0.31395e-04_rb,0.34263e-04_rb,0.34436e-04_rb,0.32173e-04_rb, &
+        & 0.28610e-04_rb,0.23847e-04_rb,0.17161e-04_rb,0.51787e-06_rb /)
+      kao(:, 5, 2, 1) = (/ &
+        & 0.10706e-04_rb,0.30496e-04_rb,0.33311e-04_rb,0.33396e-04_rb,0.31295e-04_rb, &
+        & 0.28002e-04_rb,0.23445e-04_rb,0.16971e-04_rb,0.40230e-06_rb /)
+      kao(:, 1, 3, 1) = (/ &
+        & 0.10271e-04_rb,0.29273e-04_rb,0.32049e-04_rb,0.32365e-04_rb,0.29857e-04_rb, &
+        & 0.26171e-04_rb,0.21352e-04_rb,0.14814e-04_rb,0.80470e-06_rb /)
+      kao(:, 2, 3, 1) = (/ &
+        & 0.10058e-04_rb,0.28458e-04_rb,0.31196e-04_rb,0.31440e-04_rb,0.29133e-04_rb, &
+        & 0.25640e-04_rb,0.21056e-04_rb,0.14756e-04_rb,0.53010e-06_rb /)
+      kao(:, 3, 3, 1) = (/ &
+        & 0.98172e-05_rb,0.27651e-04_rb,0.30352e-04_rb,0.30609e-04_rb,0.28396e-04_rb, &
+        & 0.25110e-04_rb,0.20730e-04_rb,0.14655e-04_rb,0.38652e-06_rb /)
+      kao(:, 4, 3, 1) = (/ &
+        & 0.94577e-05_rb,0.26874e-04_rb,0.29475e-04_rb,0.29749e-04_rb,0.27669e-04_rb, &
+        & 0.24553e-04_rb,0.20400e-04_rb,0.14536e-04_rb,0.33236e-06_rb /)
+      kao(:, 5, 3, 1) = (/ &
+        & 0.90508e-05_rb,0.26128e-04_rb,0.28631e-04_rb,0.28834e-04_rb,0.26952e-04_rb, &
+        & 0.24015e-04_rb,0.20045e-04_rb,0.14382e-04_rb,0.30659e-06_rb /)
+      kao(:, 1, 4, 1) = (/ &
+        & 0.86081e-05_rb,0.24897e-04_rb,0.27317e-04_rb,0.27632e-04_rb,0.25465e-04_rb, &
+        & 0.22328e-04_rb,0.18112e-04_rb,0.12468e-04_rb,0.39286e-06_rb /)
+      kao(:, 2, 4, 1) = (/ &
+        & 0.83793e-05_rb,0.24273e-04_rb,0.26590e-04_rb,0.26865e-04_rb,0.24876e-04_rb, &
+        & 0.21867e-04_rb,0.17849e-04_rb,0.12420e-04_rb,0.32266e-06_rb /)
+      kao(:, 3, 4, 1) = (/ &
+        & 0.82296e-05_rb,0.23584e-04_rb,0.25869e-04_rb,0.26155e-04_rb,0.24255e-04_rb, &
+        & 0.21403e-04_rb,0.17579e-04_rb,0.12338e-04_rb,0.30775e-06_rb /)
+      kao(:, 4, 4, 1) = (/ &
+        & 0.79731e-05_rb,0.22915e-04_rb,0.25166e-04_rb,0.25435e-04_rb,0.23627e-04_rb, &
+        & 0.20917e-04_rb,0.17282e-04_rb,0.12242e-04_rb,0.30418e-06_rb /)
+      kao(:, 5, 4, 1) = (/ &
+        & 0.76553e-05_rb,0.22259e-04_rb,0.24440e-04_rb,0.24673e-04_rb,0.23003e-04_rb, &
+        & 0.20437e-04_rb,0.16984e-04_rb,0.12112e-04_rb,0.30638e-06_rb /)
+      kao(:, 1, 5, 1) = (/ &
+        & 0.72259e-05_rb,0.21089e-04_rb,0.23177e-04_rb,0.23419e-04_rb,0.21584e-04_rb, &
+        & 0.18926e-04_rb,0.15251e-04_rb,0.10417e-04_rb,0.25170e-06_rb /)
+      kao(:, 2, 5, 1) = (/ &
+        & 0.70215e-05_rb,0.20567e-04_rb,0.22541e-04_rb,0.22788e-04_rb,0.21102e-04_rb, &
+        & 0.18526e-04_rb,0.15049e-04_rb,0.10379e-04_rb,0.25958e-06_rb /)
+      kao(:, 3, 5, 1) = (/ &
+        & 0.68490e-05_rb,0.20018e-04_rb,0.21938e-04_rb,0.22206e-04_rb,0.20579e-04_rb, &
+        & 0.18139e-04_rb,0.14806e-04_rb,0.10313e-04_rb,0.26666e-06_rb /)
+      kao(:, 4, 5, 1) = (/ &
+        & 0.66973e-05_rb,0.19444e-04_rb,0.21340e-04_rb,0.21615e-04_rb,0.20070e-04_rb, &
+        & 0.17728e-04_rb,0.14554e-04_rb,0.10239e-04_rb,0.28589e-06_rb /)
+      kao(:, 5, 5, 1) = (/ &
+        & 0.64808e-05_rb,0.18883e-04_rb,0.20738e-04_rb,0.20994e-04_rb,0.19546e-04_rb, &
+        & 0.17304e-04_rb,0.14306e-04_rb,0.10148e-04_rb,0.30886e-06_rb /)
+      kao(:, 1, 6, 1) = (/ &
+        & 0.60727e-05_rb,0.17794e-04_rb,0.19609e-04_rb,0.19769e-04_rb,0.18228e-04_rb, &
+        & 0.15946e-04_rb,0.12793e-04_rb,0.86559e-05_rb,0.18559e-06_rb /)
+      kao(:, 2, 6, 1) = (/ &
+        & 0.58949e-05_rb,0.17390e-04_rb,0.19059e-04_rb,0.19244e-04_rb,0.17820e-04_rb, &
+        & 0.15647e-04_rb,0.12626e-04_rb,0.86354e-05_rb,0.19544e-06_rb /)
+      kao(:, 3, 6, 1) = (/ &
+        & 0.57268e-05_rb,0.16935e-04_rb,0.18564e-04_rb,0.18724e-04_rb,0.17402e-04_rb, &
+        & 0.15304e-04_rb,0.12433e-04_rb,0.85882e-05_rb,0.22033e-06_rb /)
+      kao(:, 4, 6, 1) = (/ &
+        & 0.56243e-05_rb,0.16459e-04_rb,0.18054e-04_rb,0.18263e-04_rb,0.16984e-04_rb, &
+        & 0.14971e-04_rb,0.12215e-04_rb,0.85268e-05_rb,0.25072e-06_rb /)
+      kao(:, 5, 6, 1) = (/ &
+        & 0.54584e-05_rb,0.15984e-04_rb,0.17548e-04_rb,0.17773e-04_rb,0.16551e-04_rb, &
+        & 0.14601e-04_rb,0.12004e-04_rb,0.84568e-05_rb,0.28110e-06_rb /)
+      kao(:, 1, 7, 1) = (/ &
+        & 0.50624e-05_rb,0.14963e-04_rb,0.16482e-04_rb,0.16611e-04_rb,0.15339e-04_rb, &
+        & 0.13333e-04_rb,0.10656e-04_rb,0.71570e-05_rb,0.13453e-06_rb /)
+      kao(:, 2, 7, 1) = (/ &
+        & 0.49428e-05_rb,0.14636e-04_rb,0.16040e-04_rb,0.16181e-04_rb,0.14992e-04_rb, &
+        & 0.13144e-04_rb,0.10533e-04_rb,0.71532e-05_rb,0.15620e-06_rb /)
+      kao(:, 3, 7, 1) = (/ &
+        & 0.47955e-05_rb,0.14256e-04_rb,0.15611e-04_rb,0.15735e-04_rb,0.14643e-04_rb, &
+        & 0.12865e-04_rb,0.10390e-04_rb,0.71248e-05_rb,0.18571e-06_rb /)
+      kao(:, 4, 7, 1) = (/ &
+        & 0.46743e-05_rb,0.13876e-04_rb,0.15213e-04_rb,0.15342e-04_rb,0.14293e-04_rb, &
+        & 0.12576e-04_rb,0.10215e-04_rb,0.70735e-05_rb,0.21382e-06_rb /)
+      kao(:, 5, 7, 1) = (/ &
+        & 0.45708e-05_rb,0.13473e-04_rb,0.14782e-04_rb,0.14947e-04_rb,0.13933e-04_rb, &
+        & 0.12274e-04_rb,0.10036e-04_rb,0.70177e-05_rb,0.24419e-06_rb /)
+      kao(:, 1, 8, 1) = (/ &
+        & 0.42289e-05_rb,0.12528e-04_rb,0.13817e-04_rb,0.13922e-04_rb,0.12867e-04_rb, &
+        & 0.11126e-04_rb,0.88468e-05_rb,0.59010e-05_rb,0.10600e-06_rb /)
+      kao(:, 2, 8, 1) = (/ &
+        & 0.41319e-05_rb,0.12286e-04_rb,0.13480e-04_rb,0.13582e-04_rb,0.12584e-04_rb, &
+        & 0.10973e-04_rb,0.87644e-05_rb,0.59049e-05_rb,0.12951e-06_rb /)
+      kao(:, 3, 8, 1) = (/ &
+        & 0.40317e-05_rb,0.11996e-04_rb,0.13116e-04_rb,0.13206e-04_rb,0.12295e-04_rb, &
+        & 0.10786e-04_rb,0.86537e-05_rb,0.58898e-05_rb,0.15731e-06_rb /)
+      kao(:, 4, 8, 1) = (/ &
+        & 0.39107e-05_rb,0.11666e-04_rb,0.12771e-04_rb,0.12870e-04_rb,0.12010e-04_rb, &
+        & 0.10546e-04_rb,0.85244e-05_rb,0.58536e-05_rb,0.18716e-06_rb /)
+      kao(:, 5, 8, 1) = (/ &
+        & 0.38384e-05_rb,0.11346e-04_rb,0.12435e-04_rb,0.12549e-04_rb,0.11706e-04_rb, &
+        & 0.10289e-04_rb,0.83756e-05_rb,0.58104e-05_rb,0.21679e-06_rb /)
+      kao(:, 1, 9, 1) = (/ &
+        & 0.35240e-05_rb,0.10418e-04_rb,0.11558e-04_rb,0.11687e-04_rb,0.10748e-04_rb, &
+        & 0.92305e-05_rb,0.73198e-05_rb,0.48514e-05_rb,0.10176e-06_rb /)
+      kao(:, 2, 9, 1) = (/ &
+        & 0.34478e-05_rb,0.10296e-04_rb,0.11296e-04_rb,0.11369e-04_rb,0.10532e-04_rb, &
+        & 0.91375e-05_rb,0.72737e-05_rb,0.48639e-05_rb,0.12695e-06_rb /)
+      kao(:, 3, 9, 1) = (/ &
+        & 0.33718e-05_rb,0.10068e-04_rb,0.10996e-04_rb,0.11063e-04_rb,0.10290e-04_rb, &
+        & 0.89957e-05_rb,0.71844e-05_rb,0.48583e-05_rb,0.15482e-06_rb /)
+      kao(:, 4, 9, 1) = (/ &
+        & 0.32801e-05_rb,0.97990e-05_rb,0.10712e-04_rb,0.10762e-04_rb,0.10056e-04_rb, &
+        & 0.88255e-05_rb,0.70907e-05_rb,0.48364e-05_rb,0.18123e-06_rb /)
+      kao(:, 5, 9, 1) = (/ &
+        & 0.31960e-05_rb,0.95350e-05_rb,0.10427e-04_rb,0.10501e-04_rb,0.98056e-05_rb, &
+        & 0.86157e-05_rb,0.69723e-05_rb,0.48010e-05_rb,0.20738e-06_rb /)
+      kao(:, 1,10, 1) = (/ &
+        & 0.29197e-05_rb,0.86183e-05_rb,0.96100e-05_rb,0.97448e-05_rb,0.89187e-05_rb, &
+        & 0.76354e-05_rb,0.60318e-05_rb,0.39733e-05_rb,0.10310e-06_rb /)
+      kao(:, 2,10, 1) = (/ &
+        & 0.28677e-05_rb,0.85565e-05_rb,0.94191e-05_rb,0.94682e-05_rb,0.87653e-05_rb, &
+        & 0.75725e-05_rb,0.60089e-05_rb,0.39956e-05_rb,0.12951e-06_rb /)
+      kao(:, 3,10, 1) = (/ &
+        & 0.28036e-05_rb,0.84121e-05_rb,0.91902e-05_rb,0.92251e-05_rb,0.85811e-05_rb, &
+        & 0.74653e-05_rb,0.59452e-05_rb,0.39967e-05_rb,0.15684e-06_rb /)
+      kao(:, 4,10, 1) = (/ &
+        & 0.27420e-05_rb,0.82035e-05_rb,0.89440e-05_rb,0.89748e-05_rb,0.83817e-05_rb, &
+        & 0.73422e-05_rb,0.58725e-05_rb,0.39844e-05_rb,0.18564e-06_rb /)
+      kao(:, 5,10, 1) = (/ &
+        & 0.26596e-05_rb,0.79739e-05_rb,0.87074e-05_rb,0.87508e-05_rb,0.81784e-05_rb, &
+        & 0.71781e-05_rb,0.57815e-05_rb,0.39569e-05_rb,0.21476e-06_rb /)
+      kao(:, 1,11, 1) = (/ &
+        & 0.23988e-05_rb,0.71135e-05_rb,0.79121e-05_rb,0.80118e-05_rb,0.73370e-05_rb, &
+        & 0.62844e-05_rb,0.49610e-05_rb,0.32641e-05_rb,0.91697e-07_rb /)
+      kao(:, 2,11, 1) = (/ &
+        & 0.23552e-05_rb,0.70587e-05_rb,0.77519e-05_rb,0.77821e-05_rb,0.72113e-05_rb, &
+        & 0.62297e-05_rb,0.49407e-05_rb,0.32815e-05_rb,0.11307e-06_rb /)
+      kao(:, 3,11, 1) = (/ &
+        & 0.23046e-05_rb,0.69367e-05_rb,0.75662e-05_rb,0.75790e-05_rb,0.70631e-05_rb, &
+        & 0.61409e-05_rb,0.48867e-05_rb,0.32812e-05_rb,0.13715e-06_rb /)
+      kao(:, 4,11, 1) = (/ &
+        & 0.22557e-05_rb,0.67632e-05_rb,0.73640e-05_rb,0.73772e-05_rb,0.68972e-05_rb, &
+        & 0.60381e-05_rb,0.48254e-05_rb,0.32705e-05_rb,0.16436e-06_rb /)
+      kao(:, 5,11, 1) = (/ &
+        & 0.21899e-05_rb,0.65748e-05_rb,0.71695e-05_rb,0.71946e-05_rb,0.67295e-05_rb, &
+        & 0.59022e-05_rb,0.47488e-05_rb,0.32476e-05_rb,0.19025e-06_rb /)
+      kao(:, 1,12, 1) = (/ &
+        & 0.19699e-05_rb,0.58670e-05_rb,0.65075e-05_rb,0.65808e-05_rb,0.60300e-05_rb, &
+        & 0.51665e-05_rb,0.40749e-05_rb,0.26788e-05_rb,0.77100e-07_rb /)
+      kao(:, 2,12, 1) = (/ &
+        & 0.19348e-05_rb,0.58146e-05_rb,0.63730e-05_rb,0.63891e-05_rb,0.59260e-05_rb, &
+        & 0.51196e-05_rb,0.40577e-05_rb,0.26926e-05_rb,0.95693e-07_rb /)
+      kao(:, 3,12, 1) = (/ &
+        & 0.18947e-05_rb,0.57134e-05_rb,0.62207e-05_rb,0.62238e-05_rb,0.58090e-05_rb, &
+        & 0.50459e-05_rb,0.40113e-05_rb,0.26916e-05_rb,0.11572e-06_rb /)
+      kao(:, 4,12, 1) = (/ &
+        & 0.18552e-05_rb,0.55709e-05_rb,0.60522e-05_rb,0.60611e-05_rb,0.56693e-05_rb, &
+        & 0.49594e-05_rb,0.39606e-05_rb,0.26824e-05_rb,0.13797e-06_rb /)
+      kao(:, 5,12, 1) = (/ &
+        & 0.18040e-05_rb,0.54137e-05_rb,0.58935e-05_rb,0.59096e-05_rb,0.55294e-05_rb, &
+        & 0.48443e-05_rb,0.38977e-05_rb,0.26633e-05_rb,0.15884e-06_rb /)
+      kao(:, 1,13, 1) = (/ &
+        & 0.16167e-05_rb,0.48272e-05_rb,0.53475e-05_rb,0.53983e-05_rb,0.49503e-05_rb, &
+        & 0.42413e-05_rb,0.33431e-05_rb,0.21956e-05_rb,0.61381e-07_rb /)
+      kao(:, 2,13, 1) = (/ &
+        & 0.15895e-05_rb,0.47809e-05_rb,0.52342e-05_rb,0.52409e-05_rb,0.48652e-05_rb, &
+        & 0.42021e-05_rb,0.33263e-05_rb,0.22072e-05_rb,0.76382e-07_rb /)
+      kao(:, 3,13, 1) = (/ &
+        & 0.15582e-05_rb,0.46982e-05_rb,0.51055e-05_rb,0.51058e-05_rb,0.47716e-05_rb, &
+        & 0.41406e-05_rb,0.32886e-05_rb,0.22058e-05_rb,0.93083e-07_rb /)
+      kao(:, 4,13, 1) = (/ &
+        & 0.15242e-05_rb,0.45831e-05_rb,0.49696e-05_rb,0.49735e-05_rb,0.46534e-05_rb, &
+        & 0.40678e-05_rb,0.32469e-05_rb,0.21969e-05_rb,0.11211e-06_rb /)
+      kao(:, 5,13, 1) = (/ &
+        & 0.14859e-05_rb,0.44492e-05_rb,0.48392e-05_rb,0.48479e-05_rb,0.45378e-05_rb, &
+        & 0.39689e-05_rb,0.31933e-05_rb,0.21813e-05_rb,0.12970e-06_rb /)
+      kao(:, 1, 1, 2) = (/ &
+        & 0.10138e-03_rb,0.20456e-03_rb,0.22117e-03_rb,0.21948e-03_rb,0.20805e-03_rb, &
+        & 0.18373e-03_rb,0.14999e-03_rb,0.95382e-04_rb,0.33213e-05_rb /)
+      kao(:, 2, 1, 2) = (/ &
+        & 0.10141e-03_rb,0.20889e-03_rb,0.22456e-03_rb,0.22223e-03_rb,0.20912e-03_rb, &
+        & 0.18467e-03_rb,0.15060e-03_rb,0.95713e-04_rb,0.28479e-05_rb /)
+      kao(:, 3, 1, 2) = (/ &
+        & 0.10125e-03_rb,0.21223e-03_rb,0.22712e-03_rb,0.22388e-03_rb,0.20983e-03_rb, &
+        & 0.18513e-03_rb,0.15100e-03_rb,0.95881e-04_rb,0.26338e-05_rb /)
+      kao(:, 4, 1, 2) = (/ &
+        & 0.10105e-03_rb,0.21442e-03_rb,0.22863e-03_rb,0.22421e-03_rb,0.21046e-03_rb, &
+        & 0.18540e-03_rb,0.15060e-03_rb,0.95798e-04_rb,0.27638e-05_rb /)
+      kao(:, 5, 1, 2) = (/ &
+        & 0.10040e-03_rb,0.21612e-03_rb,0.22899e-03_rb,0.22416e-03_rb,0.21046e-03_rb, &
+        & 0.18570e-03_rb,0.15001e-03_rb,0.95569e-04_rb,0.29313e-05_rb /)
+      kao(:, 1, 2, 2) = (/ &
+        & 0.89639e-04_rb,0.17797e-03_rb,0.19284e-03_rb,0.18986e-03_rb,0.17824e-03_rb, &
+        & 0.15789e-03_rb,0.12906e-03_rb,0.83524e-04_rb,0.23926e-05_rb /)
+      kao(:, 2, 2, 2) = (/ &
+        & 0.89499e-04_rb,0.18144e-03_rb,0.19563e-03_rb,0.19227e-03_rb,0.17941e-03_rb, &
+        & 0.15844e-03_rb,0.12961e-03_rb,0.83632e-04_rb,0.21969e-05_rb /)
+      kao(:, 3, 2, 2) = (/ &
+        & 0.89411e-04_rb,0.18401e-03_rb,0.19753e-03_rb,0.19350e-03_rb,0.17999e-03_rb, &
+        & 0.15883e-03_rb,0.12989e-03_rb,0.83577e-04_rb,0.23158e-05_rb /)
+      kao(:, 4, 2, 2) = (/ &
+        & 0.88841e-04_rb,0.18541e-03_rb,0.19872e-03_rb,0.19398e-03_rb,0.18053e-03_rb, &
+        & 0.15907e-03_rb,0.12972e-03_rb,0.83396e-04_rb,0.23760e-05_rb /)
+      kao(:, 5, 2, 2) = (/ &
+        & 0.87949e-04_rb,0.18659e-03_rb,0.19902e-03_rb,0.19407e-03_rb,0.18073e-03_rb, &
+        & 0.15910e-03_rb,0.12937e-03_rb,0.83120e-04_rb,0.25247e-05_rb /)
+      kao(:, 1, 3, 2) = (/ &
+        & 0.77466e-04_rb,0.15264e-03_rb,0.16704e-03_rb,0.16342e-03_rb,0.15300e-03_rb, &
+        & 0.13499e-03_rb,0.11007e-03_rb,0.71881e-04_rb,0.17839e-05_rb /)
+      kao(:, 2, 3, 2) = (/ &
+        & 0.77483e-04_rb,0.15611e-03_rb,0.16950e-03_rb,0.16551e-03_rb,0.15408e-03_rb, &
+        & 0.13580e-03_rb,0.11055e-03_rb,0.72020e-04_rb,0.18564e-05_rb /)
+      kao(:, 3, 3, 2) = (/ &
+        & 0.77142e-04_rb,0.15867e-03_rb,0.17112e-03_rb,0.16672e-03_rb,0.15481e-03_rb, &
+        & 0.13616e-03_rb,0.11077e-03_rb,0.71922e-04_rb,0.20228e-05_rb /)
+      kao(:, 4, 3, 2) = (/ &
+        & 0.76460e-04_rb,0.16058e-03_rb,0.17186e-03_rb,0.16717e-03_rb,0.15519e-03_rb, &
+        & 0.13641e-03_rb,0.11060e-03_rb,0.71775e-04_rb,0.21717e-05_rb /)
+      kao(:, 5, 3, 2) = (/ &
+        & 0.75510e-04_rb,0.16158e-03_rb,0.17210e-03_rb,0.16730e-03_rb,0.15521e-03_rb, &
+        & 0.13649e-03_rb,0.11022e-03_rb,0.71516e-04_rb,0.23140e-05_rb /)
+      kao(:, 1, 4, 2) = (/ &
+        & 0.65931e-04_rb,0.12940e-03_rb,0.14295e-03_rb,0.14005e-03_rb,0.13095e-03_rb, &
+        & 0.11494e-03_rb,0.93656e-04_rb,0.61167e-04_rb,0.17094e-05_rb /)
+      kao(:, 2, 4, 2) = (/ &
+        & 0.66090e-04_rb,0.13269e-03_rb,0.14542e-03_rb,0.14233e-03_rb,0.13201e-03_rb, &
+        & 0.11558e-03_rb,0.93975e-04_rb,0.61436e-04_rb,0.18527e-05_rb /)
+      kao(:, 3, 4, 2) = (/ &
+        & 0.65630e-04_rb,0.13532e-03_rb,0.14717e-03_rb,0.14364e-03_rb,0.13266e-03_rb, &
+        & 0.11604e-03_rb,0.94126e-04_rb,0.61467e-04_rb,0.19576e-05_rb /)
+      kao(:, 4, 4, 2) = (/ &
+        & 0.64971e-04_rb,0.13708e-03_rb,0.14818e-03_rb,0.14427e-03_rb,0.13304e-03_rb, &
+        & 0.11616e-03_rb,0.94152e-04_rb,0.61334e-04_rb,0.20614e-05_rb /)
+      kao(:, 5, 4, 2) = (/ &
+        & 0.64122e-04_rb,0.13834e-03_rb,0.14864e-03_rb,0.14451e-03_rb,0.13312e-03_rb, &
+        & 0.11638e-03_rb,0.93955e-04_rb,0.61162e-04_rb,0.21640e-05_rb /)
+      kao(:, 1, 5, 2) = (/ &
+        & 0.55594e-04_rb,0.10830e-03_rb,0.12068e-03_rb,0.11865e-03_rb,0.11127e-03_rb, &
+        & 0.97925e-04_rb,0.79208e-04_rb,0.51842e-04_rb,0.15954e-05_rb /)
+      kao(:, 2, 5, 2) = (/ &
+        & 0.55669e-04_rb,0.11117e-03_rb,0.12299e-03_rb,0.12091e-03_rb,0.11248e-03_rb, &
+        & 0.98643e-04_rb,0.79433e-04_rb,0.52127e-04_rb,0.16966e-05_rb /)
+      kao(:, 3, 5, 2) = (/ &
+        & 0.55430e-04_rb,0.11345e-03_rb,0.12478e-03_rb,0.12235e-03_rb,0.11332e-03_rb, &
+        & 0.99117e-04_rb,0.79823e-04_rb,0.52286e-04_rb,0.18304e-05_rb /)
+      kao(:, 4, 5, 2) = (/ &
+        & 0.54800e-04_rb,0.11543e-03_rb,0.12601e-03_rb,0.12304e-03_rb,0.11389e-03_rb, &
+        & 0.99346e-04_rb,0.79935e-04_rb,0.52275e-04_rb,0.19479e-05_rb /)
+      kao(:, 5, 5, 2) = (/ &
+        & 0.54027e-04_rb,0.11665e-03_rb,0.12660e-03_rb,0.12339e-03_rb,0.11410e-03_rb, &
+        & 0.99535e-04_rb,0.79840e-04_rb,0.52168e-04_rb,0.20583e-05_rb /)
+      kao(:, 1, 6, 2) = (/ &
+        & 0.46500e-04_rb,0.89887e-04_rb,0.10048e-03_rb,0.99161e-04_rb,0.93136e-04_rb, &
+        & 0.82279e-04_rb,0.66872e-04_rb,0.43617e-04_rb,0.14730e-05_rb /)
+      kao(:, 2, 6, 2) = (/ &
+        & 0.46632e-04_rb,0.92444e-04_rb,0.10271e-03_rb,0.10123e-03_rb,0.94559e-04_rb, &
+        & 0.83135e-04_rb,0.67204e-04_rb,0.44046e-04_rb,0.16215e-05_rb /)
+      kao(:, 3, 6, 2) = (/ &
+        & 0.46490e-04_rb,0.94415e-04_rb,0.10446e-03_rb,0.10269e-03_rb,0.95387e-04_rb, &
+        & 0.83676e-04_rb,0.67579e-04_rb,0.44279e-04_rb,0.17358e-05_rb /)
+      kao(:, 4, 6, 2) = (/ &
+        & 0.46004e-04_rb,0.96190e-04_rb,0.10570e-03_rb,0.10346e-03_rb,0.95883e-04_rb, &
+        & 0.84038e-04_rb,0.67753e-04_rb,0.44348e-04_rb,0.18096e-05_rb /)
+      kao(:, 5, 6, 2) = (/ &
+        & 0.45362e-04_rb,0.97511e-04_rb,0.10645e-03_rb,0.10384e-03_rb,0.96197e-04_rb, &
+        & 0.84347e-04_rb,0.67758e-04_rb,0.44305e-04_rb,0.18882e-05_rb /)
+      kao(:, 1, 7, 2) = (/ &
+        & 0.38597e-04_rb,0.74019e-04_rb,0.82882e-04_rb,0.81807e-04_rb,0.76936e-04_rb, &
+        & 0.68278e-04_rb,0.55744e-04_rb,0.36507e-04_rb,0.13400e-05_rb /)
+      kao(:, 2, 7, 2) = (/ &
+        & 0.38728e-04_rb,0.76353e-04_rb,0.85030e-04_rb,0.83822e-04_rb,0.78523e-04_rb, &
+        & 0.69221e-04_rb,0.56199e-04_rb,0.36932e-04_rb,0.14766e-05_rb /)
+      kao(:, 3, 7, 2) = (/ &
+        & 0.38688e-04_rb,0.78164e-04_rb,0.86691e-04_rb,0.85269e-04_rb,0.79424e-04_rb, &
+        & 0.69849e-04_rb,0.56507e-04_rb,0.37211e-04_rb,0.16077e-05_rb /)
+      kao(:, 4, 7, 2) = (/ &
+        & 0.38399e-04_rb,0.79654e-04_rb,0.87882e-04_rb,0.86145e-04_rb,0.79917e-04_rb, &
+        & 0.70214e-04_rb,0.56698e-04_rb,0.37302e-04_rb,0.17365e-05_rb /)
+      kao(:, 5, 7, 2) = (/ &
+        & 0.37899e-04_rb,0.81012e-04_rb,0.88706e-04_rb,0.86589e-04_rb,0.80259e-04_rb, &
+        & 0.70429e-04_rb,0.56810e-04_rb,0.37287e-04_rb,0.18595e-05_rb /)
+      kao(:, 1, 8, 2) = (/ &
+        & 0.31959e-04_rb,0.60671e-04_rb,0.67963e-04_rb,0.67053e-04_rb,0.63057e-04_rb, &
+        & 0.56287e-04_rb,0.46187e-04_rb,0.30298e-04_rb,0.12071e-05_rb /)
+      kao(:, 2, 8, 2) = (/ &
+        & 0.32062e-04_rb,0.62753e-04_rb,0.69892e-04_rb,0.68941e-04_rb,0.64624e-04_rb, &
+        & 0.57187e-04_rb,0.46566e-04_rb,0.30687e-04_rb,0.13582e-05_rb /)
+      kao(:, 3, 8, 2) = (/ &
+        & 0.32098e-04_rb,0.64435e-04_rb,0.71423e-04_rb,0.70359e-04_rb,0.65646e-04_rb, &
+        & 0.57882e-04_rb,0.46897e-04_rb,0.30993e-04_rb,0.15217e-05_rb /)
+      kao(:, 4, 8, 2) = (/ &
+        & 0.31956e-04_rb,0.65758e-04_rb,0.72650e-04_rb,0.71275e-04_rb,0.66275e-04_rb, &
+        & 0.58298e-04_rb,0.47100e-04_rb,0.31079e-04_rb,0.16794e-05_rb /)
+      kao(:, 5, 8, 2) = (/ &
+        & 0.31584e-04_rb,0.66916e-04_rb,0.73502e-04_rb,0.71819e-04_rb,0.66611e-04_rb, &
+        & 0.58505e-04_rb,0.47243e-04_rb,0.31088e-04_rb,0.18250e-05_rb /)
+      kao(:, 1, 9, 2) = (/ &
+        & 0.26355e-04_rb,0.49472e-04_rb,0.55415e-04_rb,0.54584e-04_rb,0.51361e-04_rb, &
+        & 0.46135e-04_rb,0.38027e-04_rb,0.24983e-04_rb,0.13549e-05_rb /)
+      kao(:, 2, 9, 2) = (/ &
+        & 0.26472e-04_rb,0.51302e-04_rb,0.57165e-04_rb,0.56417e-04_rb,0.52936e-04_rb, &
+        & 0.47048e-04_rb,0.38417e-04_rb,0.25347e-04_rb,0.14941e-05_rb /)
+      kao(:, 3, 9, 2) = (/ &
+        & 0.26545e-04_rb,0.52866e-04_rb,0.58563e-04_rb,0.57776e-04_rb,0.53988e-04_rb, &
+        & 0.47706e-04_rb,0.38739e-04_rb,0.25638e-04_rb,0.16563e-05_rb /)
+      kao(:, 4, 9, 2) = (/ &
+        & 0.26469e-04_rb,0.54105e-04_rb,0.59749e-04_rb,0.58746e-04_rb,0.54668e-04_rb, &
+        & 0.48161e-04_rb,0.38970e-04_rb,0.25744e-04_rb,0.18262e-05_rb /)
+      kao(:, 5, 9, 2) = (/ &
+        & 0.26248e-04_rb,0.55079e-04_rb,0.60619e-04_rb,0.59317e-04_rb,0.55099e-04_rb, &
+        & 0.48435e-04_rb,0.39115e-04_rb,0.25778e-04_rb,0.20238e-05_rb /)
+      kao(:, 1,10, 2) = (/ &
+        & 0.21631e-04_rb,0.40297e-04_rb,0.45170e-04_rb,0.44298e-04_rb,0.41876e-04_rb, &
+        & 0.37690e-04_rb,0.31212e-04_rb,0.20552e-04_rb,0.16328e-05_rb /)
+      kao(:, 2,10, 2) = (/ &
+        & 0.21814e-04_rb,0.41896e-04_rb,0.46681e-04_rb,0.46065e-04_rb,0.43227e-04_rb, &
+        & 0.38608e-04_rb,0.31614e-04_rb,0.20857e-04_rb,0.18610e-05_rb /)
+      kao(:, 3,10, 2) = (/ &
+        & 0.21864e-04_rb,0.43247e-04_rb,0.47945e-04_rb,0.47327e-04_rb,0.44273e-04_rb, &
+        & 0.39201e-04_rb,0.31894e-04_rb,0.21119e-04_rb,0.20775e-05_rb /)
+      kao(:, 4,10, 2) = (/ &
+        & 0.21835e-04_rb,0.44386e-04_rb,0.48986e-04_rb,0.48228e-04_rb,0.44916e-04_rb, &
+        & 0.39637e-04_rb,0.32093e-04_rb,0.21228e-04_rb,0.22541e-05_rb /)
+      kao(:, 5,10, 2) = (/ &
+        & 0.21728e-04_rb,0.45263e-04_rb,0.49804e-04_rb,0.48818e-04_rb,0.45409e-04_rb, &
+        & 0.39950e-04_rb,0.32269e-04_rb,0.21290e-04_rb,0.24525e-05_rb /)
+      kao(:, 1,11, 2) = (/ &
+        & 0.17823e-04_rb,0.33378e-04_rb,0.37337e-04_rb,0.36619e-04_rb,0.34598e-04_rb, &
+        & 0.31113e-04_rb,0.25761e-04_rb,0.16956e-04_rb,0.15042e-05_rb /)
+      kao(:, 2,11, 2) = (/ &
+        & 0.17970e-04_rb,0.34679e-04_rb,0.38589e-04_rb,0.38065e-04_rb,0.35695e-04_rb, &
+        & 0.31869e-04_rb,0.26044e-04_rb,0.17214e-04_rb,0.16847e-05_rb /)
+      kao(:, 3,11, 2) = (/ &
+        & 0.17997e-04_rb,0.35791e-04_rb,0.39619e-04_rb,0.39097e-04_rb,0.36539e-04_rb, &
+        & 0.32374e-04_rb,0.26298e-04_rb,0.17428e-04_rb,0.18887e-05_rb /)
+      kao(:, 4,11, 2) = (/ &
+        & 0.17967e-04_rb,0.36717e-04_rb,0.40463e-04_rb,0.39821e-04_rb,0.37071e-04_rb, &
+        & 0.32716e-04_rb,0.26461e-04_rb,0.17496e-04_rb,0.20546e-05_rb /)
+      kao(:, 5,11, 2) = (/ &
+        & 0.17868e-04_rb,0.37423e-04_rb,0.41124e-04_rb,0.40304e-04_rb,0.37473e-04_rb, &
+        & 0.32971e-04_rb,0.26612e-04_rb,0.17532e-04_rb,0.22240e-05_rb /)
+      kao(:, 1,12, 2) = (/ &
+        & 0.14665e-04_rb,0.27605e-04_rb,0.30811e-04_rb,0.30250e-04_rb,0.28525e-04_rb, &
+        & 0.25644e-04_rb,0.21186e-04_rb,0.13955e-04_rb,0.12588e-05_rb /)
+      kao(:, 2,12, 2) = (/ &
+        & 0.14775e-04_rb,0.28655e-04_rb,0.31851e-04_rb,0.31408e-04_rb,0.29418e-04_rb, &
+        & 0.26261e-04_rb,0.21430e-04_rb,0.14172e-04_rb,0.14181e-05_rb /)
+      kao(:, 3,12, 2) = (/ &
+        & 0.14799e-04_rb,0.29571e-04_rb,0.32687e-04_rb,0.32242e-04_rb,0.30093e-04_rb, &
+        & 0.26683e-04_rb,0.21636e-04_rb,0.14338e-04_rb,0.15619e-05_rb /)
+      kao(:, 4,12, 2) = (/ &
+        & 0.14777e-04_rb,0.30325e-04_rb,0.33371e-04_rb,0.32826e-04_rb,0.30553e-04_rb, &
+        & 0.26945e-04_rb,0.21775e-04_rb,0.14380e-04_rb,0.16917e-05_rb /)
+      kao(:, 5,12, 2) = (/ &
+        & 0.14685e-04_rb,0.30904e-04_rb,0.33907e-04_rb,0.33214e-04_rb,0.30875e-04_rb, &
+        & 0.27158e-04_rb,0.21883e-04_rb,0.14414e-04_rb,0.18423e-05_rb /)
+      kao(:, 1,13, 2) = (/ &
+        & 0.12044e-04_rb,0.22772e-04_rb,0.25375e-04_rb,0.24926e-04_rb,0.23458e-04_rb, &
+        & 0.21059e-04_rb,0.17387e-04_rb,0.11457e-04_rb,0.99122e-06_rb /)
+      kao(:, 2,13, 2) = (/ &
+        & 0.12128e-04_rb,0.23637e-04_rb,0.26249e-04_rb,0.25842e-04_rb,0.24187e-04_rb, &
+        & 0.21582e-04_rb,0.17590e-04_rb,0.11636e-04_rb,0.11037e-05_rb /)
+      kao(:, 3,13, 2) = (/ &
+        & 0.12152e-04_rb,0.24386e-04_rb,0.26910e-04_rb,0.26531e-04_rb,0.24731e-04_rb, &
+        & 0.21923e-04_rb,0.17760e-04_rb,0.11755e-04_rb,0.12026e-05_rb /)
+      kao(:, 4,13, 2) = (/ &
+        & 0.12130e-04_rb,0.24996e-04_rb,0.27464e-04_rb,0.27006e-04_rb,0.25113e-04_rb, &
+        & 0.22138e-04_rb,0.17874e-04_rb,0.11797e-04_rb,0.13028e-05_rb /)
+      kao(:, 5,13, 2) = (/ &
+        & 0.12050e-04_rb,0.25474e-04_rb,0.27895e-04_rb,0.27297e-04_rb,0.25373e-04_rb, &
+        & 0.22302e-04_rb,0.17948e-04_rb,0.11817e-04_rb,0.14010e-05_rb /)
+      kao(:, 1, 1, 3) = (/ &
+        & 0.36823e-03_rb,0.49613e-03_rb,0.51817e-03_rb,0.50538e-03_rb,0.45711e-03_rb, &
+        & 0.39605e-03_rb,0.31486e-03_rb,0.21474e-03_rb,0.10932e-04_rb /)
+      kao(:, 2, 1, 3) = (/ &
+        & 0.37008e-03_rb,0.50778e-03_rb,0.53361e-03_rb,0.51778e-03_rb,0.46995e-03_rb, &
+        & 0.40629e-03_rb,0.32309e-03_rb,0.21878e-03_rb,0.11421e-04_rb /)
+      kao(:, 3, 1, 3) = (/ &
+        & 0.36989e-03_rb,0.51812e-03_rb,0.54699e-03_rb,0.52922e-03_rb,0.48036e-03_rb, &
+        & 0.41559e-03_rb,0.32965e-03_rb,0.22226e-03_rb,0.12395e-04_rb /)
+      kao(:, 4, 1, 3) = (/ &
+        & 0.36721e-03_rb,0.52763e-03_rb,0.55746e-03_rb,0.53957e-03_rb,0.48891e-03_rb, &
+        & 0.42313e-03_rb,0.33545e-03_rb,0.22588e-03_rb,0.13515e-04_rb /)
+      kao(:, 5, 1, 3) = (/ &
+        & 0.36313e-03_rb,0.53652e-03_rb,0.56680e-03_rb,0.54791e-03_rb,0.49664e-03_rb, &
+        & 0.42907e-03_rb,0.34043e-03_rb,0.22916e-03_rb,0.14734e-04_rb /)
+      kao(:, 1, 2, 3) = (/ &
+        & 0.32411e-03_rb,0.42815e-03_rb,0.44725e-03_rb,0.43813e-03_rb,0.40150e-03_rb, &
+        & 0.34871e-03_rb,0.27912e-03_rb,0.18929e-03_rb,0.80741e-05_rb /)
+      kao(:, 2, 2, 3) = (/ &
+        & 0.32567e-03_rb,0.43786e-03_rb,0.46069e-03_rb,0.45027e-03_rb,0.41319e-03_rb, &
+        & 0.35819e-03_rb,0.28635e-03_rb,0.19325e-03_rb,0.87340e-05_rb /)
+      kao(:, 3, 2, 3) = (/ &
+        & 0.32429e-03_rb,0.44638e-03_rb,0.47228e-03_rb,0.46074e-03_rb,0.42272e-03_rb, &
+        & 0.36602e-03_rb,0.29201e-03_rb,0.19653e-03_rb,0.96110e-05_rb /)
+      kao(:, 4, 2, 3) = (/ &
+        & 0.32137e-03_rb,0.45531e-03_rb,0.48142e-03_rb,0.46951e-03_rb,0.42996e-03_rb, &
+        & 0.37250e-03_rb,0.29709e-03_rb,0.19974e-03_rb,0.10697e-04_rb /)
+      kao(:, 5, 2, 3) = (/ &
+        & 0.31776e-03_rb,0.46207e-03_rb,0.48880e-03_rb,0.47659e-03_rb,0.43551e-03_rb, &
+        & 0.37776e-03_rb,0.30138e-03_rb,0.20274e-03_rb,0.11704e-04_rb /)
+      kao(:, 1, 3, 3) = (/ &
+        & 0.28488e-03_rb,0.36767e-03_rb,0.38081e-03_rb,0.37438e-03_rb,0.34525e-03_rb, &
+        & 0.30150e-03_rb,0.24332e-03_rb,0.16415e-03_rb,0.63970e-05_rb /)
+      kao(:, 2, 3, 3) = (/ &
+        & 0.28539e-03_rb,0.37509e-03_rb,0.39196e-03_rb,0.38510e-03_rb,0.35566e-03_rb, &
+        & 0.30998e-03_rb,0.24963e-03_rb,0.16766e-03_rb,0.72006e-05_rb /)
+      kao(:, 3, 3, 3) = (/ &
+        & 0.28397e-03_rb,0.38215e-03_rb,0.40156e-03_rb,0.39428e-03_rb,0.36418e-03_rb, &
+        & 0.31727e-03_rb,0.25446e-03_rb,0.17107e-03_rb,0.79574e-05_rb /)
+      kao(:, 4, 3, 3) = (/ &
+        & 0.28134e-03_rb,0.38867e-03_rb,0.40959e-03_rb,0.40230e-03_rb,0.37093e-03_rb, &
+        & 0.32301e-03_rb,0.25898e-03_rb,0.17447e-03_rb,0.87131e-05_rb /)
+      kao(:, 5, 3, 3) = (/ &
+        & 0.27886e-03_rb,0.39360e-03_rb,0.41642e-03_rb,0.40852e-03_rb,0.37609e-03_rb, &
+        & 0.32740e-03_rb,0.26312e-03_rb,0.17737e-03_rb,0.94704e-05_rb /)
+      kao(:, 1, 4, 3) = (/ &
+        & 0.24923e-03_rb,0.31555e-03_rb,0.32423e-03_rb,0.31731e-03_rb,0.29410e-03_rb, &
+        & 0.25671e-03_rb,0.20762e-03_rb,0.14074e-03_rb,0.55877e-05_rb /)
+      kao(:, 2, 4, 3) = (/ &
+        & 0.24977e-03_rb,0.32120e-03_rb,0.33372e-03_rb,0.32657e-03_rb,0.30295e-03_rb, &
+        & 0.26472e-03_rb,0.21303e-03_rb,0.14396e-03_rb,0.61575e-05_rb /)
+      kao(:, 3, 4, 3) = (/ &
+        & 0.24865e-03_rb,0.32668e-03_rb,0.34180e-03_rb,0.33446e-03_rb,0.31033e-03_rb, &
+        & 0.27144e-03_rb,0.21777e-03_rb,0.14714e-03_rb,0.67916e-05_rb /)
+      kao(:, 4, 4, 3) = (/ &
+        & 0.24709e-03_rb,0.33133e-03_rb,0.34841e-03_rb,0.34134e-03_rb,0.31600e-03_rb, &
+        & 0.27647e-03_rb,0.22179e-03_rb,0.15016e-03_rb,0.74653e-05_rb /)
+      kao(:, 5, 4, 3) = (/ &
+        & 0.24455e-03_rb,0.33491e-03_rb,0.35388e-03_rb,0.34708e-03_rb,0.32069e-03_rb, &
+        & 0.28005e-03_rb,0.22522e-03_rb,0.15242e-03_rb,0.81619e-05_rb /)
+      kao(:, 1, 5, 3) = (/ &
+        & 0.21526e-03_rb,0.27115e-03_rb,0.27505e-03_rb,0.26802e-03_rb,0.24968e-03_rb, &
+        & 0.21690e-03_rb,0.17481e-03_rb,0.11906e-03_rb,0.50850e-05_rb /)
+      kao(:, 2, 5, 3) = (/ &
+        & 0.21611e-03_rb,0.27621e-03_rb,0.28298e-03_rb,0.27620e-03_rb,0.25722e-03_rb, &
+        & 0.22411e-03_rb,0.18004e-03_rb,0.12197e-03_rb,0.55738e-05_rb /)
+      kao(:, 3, 5, 3) = (/ &
+        & 0.21583e-03_rb,0.28060e-03_rb,0.28955e-03_rb,0.28282e-03_rb,0.26346e-03_rb, &
+        & 0.23005e-03_rb,0.18415e-03_rb,0.12451e-03_rb,0.60864e-05_rb /)
+      kao(:, 4, 5, 3) = (/ &
+        & 0.21446e-03_rb,0.28363e-03_rb,0.29469e-03_rb,0.28896e-03_rb,0.26860e-03_rb, &
+        & 0.23435e-03_rb,0.18768e-03_rb,0.12690e-03_rb,0.66417e-05_rb /)
+      kao(:, 5, 5, 3) = (/ &
+        & 0.21217e-03_rb,0.28626e-03_rb,0.29929e-03_rb,0.29370e-03_rb,0.27250e-03_rb, &
+        & 0.23763e-03_rb,0.19073e-03_rb,0.12909e-03_rb,0.72122e-05_rb /)
+      kao(:, 1, 6, 3) = (/ &
+        & 0.18262e-03_rb,0.23112e-03_rb,0.23388e-03_rb,0.22681e-03_rb,0.21062e-03_rb, &
+        & 0.18196e-03_rb,0.14634e-03_rb,0.99707e-04_rb,0.48078e-05_rb /)
+      kao(:, 2, 6, 3) = (/ &
+        & 0.18393e-03_rb,0.23591e-03_rb,0.24094e-03_rb,0.23364e-03_rb,0.21663e-03_rb, &
+        & 0.18814e-03_rb,0.15114e-03_rb,0.10205e-03_rb,0.52252e-05_rb /)
+      kao(:, 3, 6, 3) = (/ &
+        & 0.18379e-03_rb,0.23984e-03_rb,0.24676e-03_rb,0.23956e-03_rb,0.22221e-03_rb, &
+        & 0.19356e-03_rb,0.15489e-03_rb,0.10434e-03_rb,0.56405e-05_rb /)
+      kao(:, 4, 6, 3) = (/ &
+        & 0.18270e-03_rb,0.24258e-03_rb,0.25102e-03_rb,0.24458e-03_rb,0.22685e-03_rb, &
+        & 0.19771e-03_rb,0.15805e-03_rb,0.10655e-03_rb,0.60728e-05_rb /)
+      kao(:, 5, 6, 3) = (/ &
+        & 0.18067e-03_rb,0.24446e-03_rb,0.25467e-03_rb,0.24894e-03_rb,0.23051e-03_rb, &
+        & 0.20056e-03_rb,0.16088e-03_rb,0.10844e-03_rb,0.65160e-05_rb /)
+      kao(:, 1, 7, 3) = (/ &
+        & 0.15269e-03_rb,0.19407e-03_rb,0.19640e-03_rb,0.19073e-03_rb,0.17715e-03_rb, &
+        & 0.15224e-03_rb,0.12181e-03_rb,0.83302e-04_rb,0.45185e-05_rb /)
+      kao(:, 2, 7, 3) = (/ &
+        & 0.15450e-03_rb,0.19834e-03_rb,0.20246e-03_rb,0.19675e-03_rb,0.18242e-03_rb, &
+        & 0.15776e-03_rb,0.12610e-03_rb,0.85306e-04_rb,0.49315e-05_rb /)
+      kao(:, 3, 7, 3) = (/ &
+        & 0.15459e-03_rb,0.20178e-03_rb,0.20759e-03_rb,0.20176e-03_rb,0.18737e-03_rb, &
+        & 0.16233e-03_rb,0.12951e-03_rb,0.87417e-04_rb,0.53491e-05_rb /)
+      kao(:, 4, 7, 3) = (/ &
+        & 0.15368e-03_rb,0.20410e-03_rb,0.21160e-03_rb,0.20623e-03_rb,0.19161e-03_rb, &
+        & 0.16603e-03_rb,0.13246e-03_rb,0.89237e-04_rb,0.57562e-05_rb /)
+      kao(:, 5, 7, 3) = (/ &
+        & 0.15207e-03_rb,0.20567e-03_rb,0.21458e-03_rb,0.20991e-03_rb,0.19525e-03_rb, &
+        & 0.16906e-03_rb,0.13481e-03_rb,0.90932e-04_rb,0.61659e-05_rb /)
+      kao(:, 1, 8, 3) = (/ &
+        & 0.12672e-03_rb,0.16159e-03_rb,0.16329e-03_rb,0.15821e-03_rb,0.14746e-03_rb, &
+        & 0.12624e-03_rb,0.10116e-03_rb,0.69306e-04_rb,0.46652e-05_rb /)
+      kao(:, 2, 8, 3) = (/ &
+        & 0.12853e-03_rb,0.16539e-03_rb,0.16859e-03_rb,0.16359e-03_rb,0.15208e-03_rb, &
+        & 0.13120e-03_rb,0.10513e-03_rb,0.71005e-04_rb,0.51392e-05_rb /)
+      kao(:, 3, 8, 3) = (/ &
+        & 0.12901e-03_rb,0.16841e-03_rb,0.17301e-03_rb,0.16813e-03_rb,0.15614e-03_rb, &
+        & 0.13532e-03_rb,0.10829e-03_rb,0.72863e-04_rb,0.55244e-05_rb /)
+      kao(:, 4, 8, 3) = (/ &
+        & 0.12833e-03_rb,0.17058e-03_rb,0.17652e-03_rb,0.17184e-03_rb,0.15971e-03_rb, &
+        & 0.13867e-03_rb,0.11087e-03_rb,0.74475e-04_rb,0.58193e-05_rb /)
+      kao(:, 5, 8, 3) = (/ &
+        & 0.12715e-03_rb,0.17197e-03_rb,0.17918e-03_rb,0.17513e-03_rb,0.16292e-03_rb, &
+        & 0.14144e-03_rb,0.11301e-03_rb,0.75965e-04_rb,0.61705e-05_rb /)
+      kao(:, 1, 9, 3) = (/ &
+        & 0.10428e-03_rb,0.13348e-03_rb,0.13462e-03_rb,0.12995e-03_rb,0.12158e-03_rb, &
+        & 0.10379e-03_rb,0.83005e-04_rb,0.57371e-04_rb,0.55965e-05_rb /)
+      kao(:, 2, 9, 3) = (/ &
+        & 0.10619e-03_rb,0.13710e-03_rb,0.13932e-03_rb,0.13469e-03_rb,0.12538e-03_rb, &
+        & 0.10800e-03_rb,0.86632e-04_rb,0.58954e-04_rb,0.61961e-05_rb /)
+      kao(:, 3, 9, 3) = (/ &
+        & 0.10690e-03_rb,0.13978e-03_rb,0.14315e-03_rb,0.13877e-03_rb,0.12885e-03_rb, &
+        & 0.11169e-03_rb,0.89643e-04_rb,0.60568e-04_rb,0.68526e-05_rb /)
+      kao(:, 4, 9, 3) = (/ &
+        & 0.10668e-03_rb,0.14178e-03_rb,0.14626e-03_rb,0.14213e-03_rb,0.13207e-03_rb, &
+        & 0.11468e-03_rb,0.91984e-04_rb,0.62070e-04_rb,0.75122e-05_rb /)
+      kao(:, 5, 9, 3) = (/ &
+        & 0.10582e-03_rb,0.14316e-03_rb,0.14873e-03_rb,0.14501e-03_rb,0.13471e-03_rb, &
+        & 0.11704e-03_rb,0.93876e-04_rb,0.63388e-04_rb,0.80761e-05_rb /)
+      kao(:, 1,10, 3) = (/ &
+        & 0.85476e-04_rb,0.10982e-03_rb,0.11034e-03_rb,0.10643e-03_rb,0.99702e-04_rb, &
+        & 0.84967e-04_rb,0.68008e-04_rb,0.47229e-04_rb,0.66145e-05_rb /)
+      kao(:, 2,10, 3) = (/ &
+        & 0.87242e-04_rb,0.11322e-03_rb,0.11463e-03_rb,0.11045e-03_rb,0.10293e-03_rb, &
+        & 0.88580e-04_rb,0.71113e-04_rb,0.48631e-04_rb,0.75452e-05_rb /)
+      kao(:, 3,10, 3) = (/ &
+        & 0.88111e-04_rb,0.11563e-03_rb,0.11792e-03_rb,0.11404e-03_rb,0.10587e-03_rb, &
+        & 0.91877e-04_rb,0.73790e-04_rb,0.50044e-04_rb,0.84881e-05_rb /)
+      kao(:, 4,10, 3) = (/ &
+        & 0.88200e-04_rb,0.11743e-03_rb,0.12065e-03_rb,0.11708e-03_rb,0.10870e-03_rb, &
+        & 0.94480e-04_rb,0.75897e-04_rb,0.51384e-04_rb,0.95136e-05_rb /)
+      kao(:, 5,10, 3) = (/ &
+        & 0.87583e-04_rb,0.11871e-03_rb,0.12292e-03_rb,0.11954e-03_rb,0.11103e-03_rb, &
+        & 0.96523e-04_rb,0.77526e-04_rb,0.52518e-04_rb,0.10532e-04_rb /)
+      kao(:, 1,11, 3) = (/ &
+        & 0.70556e-04_rb,0.91428e-04_rb,0.91867e-04_rb,0.88463e-04_rb,0.82846e-04_rb, &
+        & 0.70774e-04_rb,0.56632e-04_rb,0.39167e-04_rb,0.61872e-05_rb /)
+      kao(:, 2,11, 3) = (/ &
+        & 0.71933e-04_rb,0.94182e-04_rb,0.95269e-04_rb,0.91646e-04_rb,0.85383e-04_rb, &
+        & 0.73738e-04_rb,0.59219e-04_rb,0.40474e-04_rb,0.69965e-05_rb /)
+      kao(:, 3,11, 3) = (/ &
+        & 0.72567e-04_rb,0.96098e-04_rb,0.97927e-04_rb,0.94606e-04_rb,0.87837e-04_rb, &
+        & 0.76370e-04_rb,0.61326e-04_rb,0.41633e-04_rb,0.78235e-05_rb /)
+      kao(:, 4,11, 3) = (/ &
+        & 0.72529e-04_rb,0.97532e-04_rb,0.10011e-03_rb,0.97076e-04_rb,0.90134e-04_rb, &
+        & 0.78428e-04_rb,0.63016e-04_rb,0.42754e-04_rb,0.87904e-05_rb /)
+      kao(:, 5,11, 3) = (/ &
+        & 0.71990e-04_rb,0.98552e-04_rb,0.10193e-03_rb,0.99080e-04_rb,0.92091e-04_rb, &
+        & 0.80068e-04_rb,0.64349e-04_rb,0.43674e-04_rb,0.98011e-05_rb /)
+      kao(:, 1,12, 3) = (/ &
+        & 0.58072e-04_rb,0.75815e-04_rb,0.76168e-04_rb,0.73252e-04_rb,0.68521e-04_rb, &
+        & 0.58748e-04_rb,0.47029e-04_rb,0.32430e-04_rb,0.51838e-05_rb /)
+      kao(:, 2,12, 3) = (/ &
+        & 0.59149e-04_rb,0.78005e-04_rb,0.78889e-04_rb,0.75853e-04_rb,0.70691e-04_rb, &
+        & 0.61160e-04_rb,0.49105e-04_rb,0.33572e-04_rb,0.58669e-05_rb /)
+      kao(:, 3,12, 3) = (/ &
+        & 0.59615e-04_rb,0.79572e-04_rb,0.81043e-04_rb,0.78301e-04_rb,0.72716e-04_rb, &
+        & 0.63265e-04_rb,0.50777e-04_rb,0.34506e-04_rb,0.66464e-05_rb /)
+      kao(:, 4,12, 3) = (/ &
+        & 0.59506e-04_rb,0.80712e-04_rb,0.82811e-04_rb,0.80321e-04_rb,0.74571e-04_rb, &
+        & 0.64935e-04_rb,0.52165e-04_rb,0.35447e-04_rb,0.74412e-05_rb /)
+      kao(:, 5,12, 3) = (/ &
+        & 0.59067e-04_rb,0.81520e-04_rb,0.84288e-04_rb,0.81977e-04_rb,0.76172e-04_rb, &
+        & 0.66259e-04_rb,0.53281e-04_rb,0.36178e-04_rb,0.82465e-05_rb /)
+      kao(:, 1,13, 3) = (/ &
+        & 0.47640e-04_rb,0.62583e-04_rb,0.62887e-04_rb,0.60485e-04_rb,0.56559e-04_rb, &
+        & 0.48624e-04_rb,0.38904e-04_rb,0.26773e-04_rb,0.40582e-05_rb /)
+      kao(:, 2,13, 3) = (/ &
+        & 0.48498e-04_rb,0.64379e-04_rb,0.65087e-04_rb,0.62641e-04_rb,0.58377e-04_rb, &
+        & 0.50572e-04_rb,0.40566e-04_rb,0.27717e-04_rb,0.46616e-05_rb /)
+      kao(:, 3,13, 3) = (/ &
+        & 0.48844e-04_rb,0.65656e-04_rb,0.66851e-04_rb,0.64628e-04_rb,0.60042e-04_rb, &
+        & 0.52254e-04_rb,0.41917e-04_rb,0.28510e-04_rb,0.53204e-05_rb /)
+      kao(:, 4,13, 3) = (/ &
+        & 0.48722e-04_rb,0.66574e-04_rb,0.68303e-04_rb,0.66300e-04_rb,0.61547e-04_rb, &
+        & 0.53614e-04_rb,0.43058e-04_rb,0.29254e-04_rb,0.59442e-05_rb /)
+      kao(:, 5,13, 3) = (/ &
+        & 0.48355e-04_rb,0.67217e-04_rb,0.69511e-04_rb,0.67651e-04_rb,0.62864e-04_rb, &
+        & 0.54712e-04_rb,0.43998e-04_rb,0.29875e-04_rb,0.66436e-05_rb /)
+      kao(:, 1, 1, 4) = (/ &
+        & 0.85387e-03_rb,0.97268e-03_rb,0.95201e-03_rb,0.89226e-03_rb,0.81465e-03_rb, &
+        & 0.69707e-03_rb,0.54829e-03_rb,0.35882e-03_rb,0.37920e-04_rb /)
+      kao(:, 2, 1, 4) = (/ &
+        & 0.85496e-03_rb,0.98746e-03_rb,0.97188e-03_rb,0.91775e-03_rb,0.83529e-03_rb, &
+        & 0.71649e-03_rb,0.56376e-03_rb,0.37061e-03_rb,0.43155e-04_rb /)
+      kao(:, 3, 1, 4) = (/ &
+        & 0.85154e-03_rb,0.99908e-03_rb,0.98969e-03_rb,0.94014e-03_rb,0.85604e-03_rb, &
+        & 0.73379e-03_rb,0.57832e-03_rb,0.38183e-03_rb,0.48702e-04_rb /)
+      kao(:, 4, 1, 4) = (/ &
+        & 0.84606e-03_rb,0.10090e-02_rb,0.10068e-02_rb,0.95944e-03_rb,0.87434e-03_rb, &
+        & 0.74975e-03_rb,0.59243e-03_rb,0.39188e-03_rb,0.54022e-04_rb /)
+      kao(:, 5, 1, 4) = (/ &
+        & 0.84061e-03_rb,0.10171e-02_rb,0.10218e-02_rb,0.97684e-03_rb,0.88906e-03_rb, &
+        & 0.76345e-03_rb,0.60471e-03_rb,0.40180e-03_rb,0.59778e-04_rb /)
+      kao(:, 1, 2, 4) = (/ &
+        & 0.76106e-03_rb,0.86763e-03_rb,0.84620e-03_rb,0.79337e-03_rb,0.72368e-03_rb, &
+        & 0.62633e-03_rb,0.49168e-03_rb,0.32346e-03_rb,0.31322e-04_rb /)
+      kao(:, 2, 2, 4) = (/ &
+        & 0.76153e-03_rb,0.88148e-03_rb,0.86349e-03_rb,0.81559e-03_rb,0.74480e-03_rb, &
+        & 0.64448e-03_rb,0.50635e-03_rb,0.33430e-03_rb,0.35566e-04_rb /)
+      kao(:, 3, 2, 4) = (/ &
+        & 0.75977e-03_rb,0.89195e-03_rb,0.87871e-03_rb,0.83605e-03_rb,0.76286e-03_rb, &
+        & 0.66127e-03_rb,0.51959e-03_rb,0.34472e-03_rb,0.39705e-04_rb /)
+      kao(:, 4, 2, 4) = (/ &
+        & 0.75771e-03_rb,0.89987e-03_rb,0.89406e-03_rb,0.85530e-03_rb,0.78123e-03_rb, &
+        & 0.67612e-03_rb,0.53221e-03_rb,0.35447e-03_rb,0.44266e-04_rb /)
+      kao(:, 5, 2, 4) = (/ &
+        & 0.75289e-03_rb,0.90657e-03_rb,0.90771e-03_rb,0.87200e-03_rb,0.79715e-03_rb, &
+        & 0.68926e-03_rb,0.54382e-03_rb,0.36372e-03_rb,0.48708e-04_rb /)
+      kao(:, 1, 3, 4) = (/ &
+        & 0.66893e-03_rb,0.76246e-03_rb,0.74334e-03_rb,0.69752e-03_rb,0.63501e-03_rb, &
+        & 0.55362e-03_rb,0.43455e-03_rb,0.28843e-03_rb,0.24260e-04_rb /)
+      kao(:, 2, 3, 4) = (/ &
+        & 0.67118e-03_rb,0.77588e-03_rb,0.75944e-03_rb,0.71710e-03_rb,0.65461e-03_rb, &
+        & 0.57122e-03_rb,0.44991e-03_rb,0.29906e-03_rb,0.27434e-04_rb /)
+      kao(:, 3, 3, 4) = (/ &
+        & 0.67218e-03_rb,0.78505e-03_rb,0.77328e-03_rb,0.73497e-03_rb,0.67286e-03_rb, &
+        & 0.58718e-03_rb,0.46375e-03_rb,0.30933e-03_rb,0.30808e-04_rb /)
+      kao(:, 4, 3, 4) = (/ &
+        & 0.67058e-03_rb,0.79242e-03_rb,0.78627e-03_rb,0.75181e-03_rb,0.68946e-03_rb, &
+        & 0.60183e-03_rb,0.47532e-03_rb,0.31743e-03_rb,0.34324e-04_rb /)
+      kao(:, 5, 3, 4) = (/ &
+        & 0.66467e-03_rb,0.79822e-03_rb,0.79776e-03_rb,0.76779e-03_rb,0.70481e-03_rb, &
+        & 0.61510e-03_rb,0.48553e-03_rb,0.32526e-03_rb,0.37905e-04_rb /)
+      kao(:, 1, 4, 4) = (/ &
+        & 0.58297e-03_rb,0.66020e-03_rb,0.64337e-03_rb,0.60610e-03_rb,0.55222e-03_rb, &
+        & 0.48338e-03_rb,0.38154e-03_rb,0.25537e-03_rb,0.20054e-04_rb /)
+      kao(:, 2, 4, 4) = (/ &
+        & 0.58616e-03_rb,0.67311e-03_rb,0.65764e-03_rb,0.62362e-03_rb,0.56996e-03_rb, &
+        & 0.49939e-03_rb,0.39657e-03_rb,0.26418e-03_rb,0.22457e-04_rb /)
+      kao(:, 3, 4, 4) = (/ &
+        & 0.58719e-03_rb,0.68291e-03_rb,0.67014e-03_rb,0.63926e-03_rb,0.58703e-03_rb, &
+        & 0.51453e-03_rb,0.40976e-03_rb,0.27280e-03_rb,0.24974e-04_rb /)
+      kao(:, 4, 4, 4) = (/ &
+        & 0.58451e-03_rb,0.68925e-03_rb,0.68144e-03_rb,0.65410e-03_rb,0.60312e-03_rb, &
+        & 0.52903e-03_rb,0.42147e-03_rb,0.28096e-03_rb,0.27613e-04_rb /)
+      kao(:, 5, 4, 4) = (/ &
+        & 0.57885e-03_rb,0.69369e-03_rb,0.69153e-03_rb,0.66725e-03_rb,0.61666e-03_rb, &
+        & 0.54114e-03_rb,0.43123e-03_rb,0.28907e-03_rb,0.30243e-04_rb /)
+      kao(:, 1, 5, 4) = (/ &
+        & 0.50639e-03_rb,0.56897e-03_rb,0.55412e-03_rb,0.52127e-03_rb,0.47341e-03_rb, &
+        & 0.41669e-03_rb,0.33293e-03_rb,0.22215e-03_rb,0.17057e-04_rb /)
+      kao(:, 2, 5, 4) = (/ &
+        & 0.51065e-03_rb,0.58111e-03_rb,0.56740e-03_rb,0.53642e-03_rb,0.48970e-03_rb, &
+        & 0.43166e-03_rb,0.34671e-03_rb,0.23111e-03_rb,0.19191e-04_rb /)
+      kao(:, 3, 5, 4) = (/ &
+        & 0.51131e-03_rb,0.58923e-03_rb,0.57802e-03_rb,0.54989e-03_rb,0.50519e-03_rb, &
+        & 0.44520e-03_rb,0.35867e-03_rb,0.23955e-03_rb,0.21238e-04_rb /)
+      kao(:, 4, 5, 4) = (/ &
+        & 0.50888e-03_rb,0.59432e-03_rb,0.58700e-03_rb,0.56238e-03_rb,0.51899e-03_rb, &
+        & 0.45787e-03_rb,0.36960e-03_rb,0.24733e-03_rb,0.23442e-04_rb /)
+      kao(:, 5, 5, 4) = (/ &
+        & 0.50411e-03_rb,0.59804e-03_rb,0.59497e-03_rb,0.57342e-03_rb,0.53158e-03_rb, &
+        & 0.46924e-03_rb,0.37886e-03_rb,0.25450e-03_rb,0.25756e-04_rb /)
+      kao(:, 1, 6, 4) = (/ &
+        & 0.43673e-03_rb,0.48782e-03_rb,0.47499e-03_rb,0.44629e-03_rb,0.40354e-03_rb, &
+        & 0.35457e-03_rb,0.28605e-03_rb,0.19086e-03_rb,0.14702e-04_rb /)
+      kao(:, 2, 6, 4) = (/ &
+        & 0.44102e-03_rb,0.49831e-03_rb,0.48639e-03_rb,0.45943e-03_rb,0.41879e-03_rb, &
+        & 0.36808e-03_rb,0.29802e-03_rb,0.19985e-03_rb,0.16471e-04_rb /)
+      kao(:, 3, 6, 4) = (/ &
+        & 0.44221e-03_rb,0.50518e-03_rb,0.49538e-03_rb,0.47075e-03_rb,0.43183e-03_rb, &
+        & 0.37995e-03_rb,0.30882e-03_rb,0.20763e-03_rb,0.18420e-04_rb /)
+      kao(:, 4, 6, 4) = (/ &
+        & 0.44017e-03_rb,0.50994e-03_rb,0.50323e-03_rb,0.48141e-03_rb,0.44360e-03_rb, &
+        & 0.39116e-03_rb,0.31844e-03_rb,0.21460e-03_rb,0.20473e-04_rb /)
+      kao(:, 5, 6, 4) = (/ &
+        & 0.43656e-03_rb,0.51249e-03_rb,0.51000e-03_rb,0.49068e-03_rb,0.45425e-03_rb, &
+        & 0.40107e-03_rb,0.32653e-03_rb,0.22109e-03_rb,0.22600e-04_rb /)
+      kao(:, 1, 7, 4) = (/ &
+        & 0.37627e-03_rb,0.41525e-03_rb,0.40365e-03_rb,0.37923e-03_rb,0.34257e-03_rb, &
+        & 0.30147e-03_rb,0.24324e-03_rb,0.16094e-03_rb,0.13400e-04_rb /)
+      kao(:, 2, 7, 4) = (/ &
+        & 0.38051e-03_rb,0.42489e-03_rb,0.41400e-03_rb,0.39067e-03_rb,0.35555e-03_rb, &
+        & 0.31257e-03_rb,0.25353e-03_rb,0.16947e-03_rb,0.14905e-04_rb /)
+      kao(:, 3, 7, 4) = (/ &
+        & 0.38196e-03_rb,0.43154e-03_rb,0.42169e-03_rb,0.40035e-03_rb,0.36703e-03_rb, &
+        & 0.32311e-03_rb,0.26291e-03_rb,0.17672e-03_rb,0.16566e-04_rb /)
+      kao(:, 4, 7, 4) = (/ &
+        & 0.38108e-03_rb,0.43587e-03_rb,0.42809e-03_rb,0.40890e-03_rb,0.37694e-03_rb, &
+        & 0.33246e-03_rb,0.27094e-03_rb,0.18305e-03_rb,0.18352e-04_rb /)
+      kao(:, 5, 7, 4) = (/ &
+        & 0.37854e-03_rb,0.43889e-03_rb,0.43402e-03_rb,0.41697e-03_rb,0.38532e-03_rb, &
+        & 0.34074e-03_rb,0.27816e-03_rb,0.18873e-03_rb,0.20220e-04_rb /)
+      kao(:, 1, 8, 4) = (/ &
+        & 0.31968e-03_rb,0.35301e-03_rb,0.34310e-03_rb,0.32206e-03_rb,0.28904e-03_rb, &
+        & 0.25356e-03_rb,0.20523e-03_rb,0.13432e-03_rb,0.13548e-04_rb /)
+      kao(:, 2, 8, 4) = (/ &
+        & 0.32386e-03_rb,0.36229e-03_rb,0.35288e-03_rb,0.33214e-03_rb,0.30033e-03_rb, &
+        & 0.26345e-03_rb,0.21374e-03_rb,0.14198e-03_rb,0.14966e-04_rb /)
+      kao(:, 3, 8, 4) = (/ &
+        & 0.32521e-03_rb,0.36848e-03_rb,0.35986e-03_rb,0.34056e-03_rb,0.31042e-03_rb, &
+        & 0.27222e-03_rb,0.22115e-03_rb,0.14841e-03_rb,0.16278e-04_rb /)
+      kao(:, 4, 8, 4) = (/ &
+        & 0.32527e-03_rb,0.37258e-03_rb,0.36553e-03_rb,0.34811e-03_rb,0.31916e-03_rb, &
+        & 0.28034e-03_rb,0.22837e-03_rb,0.15443e-03_rb,0.17614e-04_rb /)
+      kao(:, 5, 8, 4) = (/ &
+        & 0.32272e-03_rb,0.37533e-03_rb,0.37025e-03_rb,0.35438e-03_rb,0.32632e-03_rb, &
+        & 0.28740e-03_rb,0.23484e-03_rb,0.15952e-03_rb,0.19075e-04_rb /)
+      kao(:, 1, 9, 4) = (/ &
+        & 0.26794e-03_rb,0.29655e-03_rb,0.28851e-03_rb,0.27155e-03_rb,0.24290e-03_rb, &
+        & 0.21182e-03_rb,0.17187e-03_rb,0.11158e-03_rb,0.16893e-04_rb /)
+      kao(:, 2, 9, 4) = (/ &
+        & 0.27215e-03_rb,0.30477e-03_rb,0.29765e-03_rb,0.28075e-03_rb,0.25336e-03_rb, &
+        & 0.22120e-03_rb,0.17858e-03_rb,0.11794e-03_rb,0.18576e-04_rb /)
+      kao(:, 3, 9, 4) = (/ &
+        & 0.27400e-03_rb,0.31061e-03_rb,0.30447e-03_rb,0.28836e-03_rb,0.26224e-03_rb, &
+        & 0.22886e-03_rb,0.18474e-03_rb,0.12372e-03_rb,0.20056e-04_rb /)
+      kao(:, 4, 9, 4) = (/ &
+        & 0.27385e-03_rb,0.31424e-03_rb,0.30923e-03_rb,0.29477e-03_rb,0.26977e-03_rb, &
+        & 0.23554e-03_rb,0.19093e-03_rb,0.12884e-03_rb,0.21321e-04_rb /)
+      kao(:, 5, 9, 4) = (/ &
+        & 0.27196e-03_rb,0.31647e-03_rb,0.31308e-03_rb,0.30006e-03_rb,0.27604e-03_rb, &
+        & 0.24191e-03_rb,0.19649e-03_rb,0.13352e-03_rb,0.22611e-04_rb /)
+      kao(:, 1,10, 4) = (/ &
+        & 0.22255e-03_rb,0.24716e-03_rb,0.24087e-03_rb,0.22672e-03_rb,0.20216e-03_rb, &
+        & 0.17582e-03_rb,0.14339e-03_rb,0.92528e-04_rb,0.22471e-04_rb /)
+      kao(:, 2,10, 4) = (/ &
+        & 0.22663e-03_rb,0.25429e-03_rb,0.24908e-03_rb,0.23506e-03_rb,0.21167e-03_rb, &
+        & 0.18377e-03_rb,0.14910e-03_rb,0.97972e-04_rb,0.24536e-04_rb /)
+      kao(:, 3,10, 4) = (/ &
+        & 0.22867e-03_rb,0.25963e-03_rb,0.25532e-03_rb,0.24169e-03_rb,0.21923e-03_rb, &
+        & 0.19067e-03_rb,0.15458e-03_rb,0.10293e-03_rb,0.26453e-04_rb /)
+      kao(:, 4,10, 4) = (/ &
+        & 0.22853e-03_rb,0.26273e-03_rb,0.25960e-03_rb,0.24704e-03_rb,0.22549e-03_rb, &
+        & 0.19679e-03_rb,0.15968e-03_rb,0.10728e-03_rb,0.28383e-04_rb /)
+      kao(:, 5,10, 4) = (/ &
+        & 0.22704e-03_rb,0.26469e-03_rb,0.26259e-03_rb,0.25141e-03_rb,0.23080e-03_rb, &
+        & 0.20216e-03_rb,0.16433e-03_rb,0.11116e-03_rb,0.30111e-04_rb /)
+      kao(:, 1,11, 4) = (/ &
+        & 0.18570e-03_rb,0.20791e-03_rb,0.20310e-03_rb,0.19106e-03_rb,0.17066e-03_rb, &
+        & 0.14797e-03_rb,0.12097e-03_rb,0.78704e-04_rb,0.20720e-04_rb /)
+      kao(:, 2,11, 4) = (/ &
+        & 0.18868e-03_rb,0.21356e-03_rb,0.20969e-03_rb,0.19807e-03_rb,0.17821e-03_rb, &
+        & 0.15434e-03_rb,0.12584e-03_rb,0.83179e-04_rb,0.23268e-04_rb /)
+      kao(:, 3,11, 4) = (/ &
+        & 0.18972e-03_rb,0.21732e-03_rb,0.21447e-03_rb,0.20305e-03_rb,0.18416e-03_rb, &
+        & 0.15993e-03_rb,0.13006e-03_rb,0.87134e-04_rb,0.25781e-04_rb /)
+      kao(:, 4,11, 4) = (/ &
+        & 0.18929e-03_rb,0.21955e-03_rb,0.21771e-03_rb,0.20711e-03_rb,0.18907e-03_rb, &
+        & 0.16493e-03_rb,0.13420e-03_rb,0.90699e-04_rb,0.28181e-04_rb /)
+      kao(:, 5,11, 4) = (/ &
+        & 0.18766e-03_rb,0.22095e-03_rb,0.21987e-03_rb,0.21045e-03_rb,0.19312e-03_rb, &
+        & 0.16934e-03_rb,0.13812e-03_rb,0.93840e-04_rb,0.30489e-04_rb /)
+      kao(:, 1,12, 4) = (/ &
+        & 0.15409e-03_rb,0.17399e-03_rb,0.17010e-03_rb,0.16002e-03_rb,0.14311e-03_rb, &
+        & 0.12376e-03_rb,0.10121e-03_rb,0.66428e-04_rb,0.17813e-04_rb /)
+      kao(:, 2,12, 4) = (/ &
+        & 0.15599e-03_rb,0.17831e-03_rb,0.17521e-03_rb,0.16554e-03_rb,0.14890e-03_rb, &
+        & 0.12881e-03_rb,0.10527e-03_rb,0.69964e-04_rb,0.19918e-04_rb /)
+      kao(:, 3,12, 4) = (/ &
+        & 0.15661e-03_rb,0.18119e-03_rb,0.17892e-03_rb,0.16934e-03_rb,0.15365e-03_rb, &
+        & 0.13338e-03_rb,0.10864e-03_rb,0.73142e-04_rb,0.22121e-04_rb /)
+      kao(:, 4,12, 4) = (/ &
+        & 0.15608e-03_rb,0.18293e-03_rb,0.18145e-03_rb,0.17254e-03_rb,0.15743e-03_rb, &
+        & 0.13747e-03_rb,0.11209e-03_rb,0.75971e-04_rb,0.24425e-04_rb /)
+      kao(:, 5,12, 4) = (/ &
+        & 0.15453e-03_rb,0.18383e-03_rb,0.18309e-03_rb,0.17510e-03_rb,0.16067e-03_rb, &
+        & 0.14102e-03_rb,0.11529e-03_rb,0.78607e-04_rb,0.26791e-04_rb /)
+      kao(:, 1,13, 4) = (/ &
+        & 0.12705e-03_rb,0.14485e-03_rb,0.14155e-03_rb,0.13312e-03_rb,0.11914e-03_rb, &
+        & 0.10299e-03_rb,0.84416e-04_rb,0.55598e-04_rb,0.14429e-04_rb /)
+      kao(:, 2,13, 4) = (/ &
+        & 0.12843e-03_rb,0.14822e-03_rb,0.14555e-03_rb,0.13748e-03_rb,0.12377e-03_rb, &
+        & 0.10702e-03_rb,0.87520e-04_rb,0.58405e-04_rb,0.16147e-04_rb /)
+      kao(:, 3,13, 4) = (/ &
+        & 0.12875e-03_rb,0.15043e-03_rb,0.14850e-03_rb,0.14053e-03_rb,0.12752e-03_rb, &
+        & 0.11081e-03_rb,0.90348e-04_rb,0.60934e-04_rb,0.17992e-04_rb /)
+      kao(:, 4,13, 4) = (/ &
+        & 0.12822e-03_rb,0.15175e-03_rb,0.15049e-03_rb,0.14301e-03_rb,0.13059e-03_rb, &
+        & 0.11413e-03_rb,0.93171e-04_rb,0.63296e-04_rb,0.19888e-04_rb /)
+      kao(:, 5,13, 4) = (/ &
+        & 0.12684e-03_rb,0.15239e-03_rb,0.15179e-03_rb,0.14511e-03_rb,0.13320e-03_rb, &
+        & 0.11702e-03_rb,0.95786e-04_rb,0.65468e-04_rb,0.21706e-04_rb /)
+      kao(:, 1, 1, 5) = (/ &
+        & 0.16451e-02_rb,0.17375e-02_rb,0.16665e-02_rb,0.15396e-02_rb,0.13696e-02_rb, &
+        & 0.11731e-02_rb,0.92753e-03_rb,0.61159e-03_rb,0.14680e-03_rb /)
+      kao(:, 2, 1, 5) = (/ &
+        & 0.16450e-02_rb,0.17591e-02_rb,0.16954e-02_rb,0.15711e-02_rb,0.14087e-02_rb, &
+        & 0.12092e-02_rb,0.95859e-03_rb,0.63308e-03_rb,0.16131e-03_rb /)
+      kao(:, 3, 1, 5) = (/ &
+        & 0.16396e-02_rb,0.17762e-02_rb,0.17200e-02_rb,0.16012e-02_rb,0.14448e-02_rb, &
+        & 0.12424e-02_rb,0.98862e-03_rb,0.65400e-03_rb,0.17365e-03_rb /)
+      kao(:, 4, 1, 5) = (/ &
+        & 0.16299e-02_rb,0.17875e-02_rb,0.17415e-02_rb,0.16313e-02_rb,0.14788e-02_rb, &
+        & 0.12751e-02_rb,0.10161e-02_rb,0.67524e-03_rb,0.18499e-03_rb /)
+      kao(:, 5, 1, 5) = (/ &
+        & 0.16127e-02_rb,0.17946e-02_rb,0.17629e-02_rb,0.16594e-02_rb,0.15119e-02_rb, &
+        & 0.13059e-02_rb,0.10419e-02_rb,0.69511e-03_rb,0.19999e-03_rb /)
+      kao(:, 1, 2, 5) = (/ &
+        & 0.15084e-02_rb,0.15931e-02_rb,0.15186e-02_rb,0.13958e-02_rb,0.12369e-02_rb, &
+        & 0.10500e-02_rb,0.83688e-03_rb,0.55465e-03_rb,0.11914e-03_rb /)
+      kao(:, 2, 2, 5) = (/ &
+        & 0.15115e-02_rb,0.16146e-02_rb,0.15457e-02_rb,0.14241e-02_rb,0.12724e-02_rb, &
+        & 0.10844e-02_rb,0.86669e-03_rb,0.57603e-03_rb,0.13037e-03_rb /)
+      kao(:, 3, 2, 5) = (/ &
+        & 0.15084e-02_rb,0.16309e-02_rb,0.15669e-02_rb,0.14522e-02_rb,0.13074e-02_rb, &
+        & 0.11181e-02_rb,0.89787e-03_rb,0.59657e-03_rb,0.13918e-03_rb /)
+      kao(:, 4, 2, 5) = (/ &
+        & 0.14965e-02_rb,0.16419e-02_rb,0.15861e-02_rb,0.14781e-02_rb,0.13385e-02_rb, &
+        & 0.11507e-02_rb,0.92569e-03_rb,0.61596e-03_rb,0.15053e-03_rb /)
+      kao(:, 5, 2, 5) = (/ &
+        & 0.14804e-02_rb,0.16493e-02_rb,0.16042e-02_rb,0.15021e-02_rb,0.13704e-02_rb, &
+        & 0.11804e-02_rb,0.95044e-03_rb,0.63472e-03_rb,0.16410e-03_rb /)
+      kao(:, 1, 3, 5) = (/ &
+        & 0.13707e-02_rb,0.14436e-02_rb,0.13706e-02_rb,0.12561e-02_rb,0.11093e-02_rb, &
+        & 0.93534e-03_rb,0.74505e-03_rb,0.49303e-03_rb,0.93388e-04_rb /)
+      kao(:, 2, 3, 5) = (/ &
+        & 0.13760e-02_rb,0.14666e-02_rb,0.13986e-02_rb,0.12850e-02_rb,0.11416e-02_rb, &
+        & 0.96700e-03_rb,0.77192e-03_rb,0.51430e-03_rb,0.10062e-03_rb /)
+      kao(:, 3, 3, 5) = (/ &
+        & 0.13732e-02_rb,0.14839e-02_rb,0.14208e-02_rb,0.13112e-02_rb,0.11718e-02_rb, &
+        & 0.99814e-03_rb,0.79899e-03_rb,0.53404e-03_rb,0.10964e-03_rb /)
+      kao(:, 4, 3, 5) = (/ &
+        & 0.13644e-02_rb,0.14939e-02_rb,0.14404e-02_rb,0.13346e-02_rb,0.12002e-02_rb, &
+        & 0.10295e-02_rb,0.82532e-03_rb,0.55285e-03_rb,0.12023e-03_rb /)
+      kao(:, 5, 3, 5) = (/ &
+        & 0.13512e-02_rb,0.15024e-02_rb,0.14568e-02_rb,0.13559e-02_rb,0.12266e-02_rb, &
+        & 0.10592e-02_rb,0.85085e-03_rb,0.57058e-03_rb,0.13064e-03_rb /)
+      kao(:, 1, 4, 5) = (/ &
+        & 0.12336e-02_rb,0.12968e-02_rb,0.12255e-02_rb,0.11189e-02_rb,0.98785e-03_rb, &
+        & 0.83184e-03_rb,0.66033e-03_rb,0.43467e-03_rb,0.70047e-04_rb /)
+      kao(:, 2, 4, 5) = (/ &
+        & 0.12419e-02_rb,0.13192e-02_rb,0.12543e-02_rb,0.11482e-02_rb,0.10189e-02_rb, &
+        & 0.86315e-03_rb,0.68559e-03_rb,0.45559e-03_rb,0.76629e-04_rb /)
+      kao(:, 3, 4, 5) = (/ &
+        & 0.12416e-02_rb,0.13349e-02_rb,0.12771e-02_rb,0.11745e-02_rb,0.10469e-02_rb, &
+        & 0.89182e-03_rb,0.71110e-03_rb,0.47551e-03_rb,0.84761e-04_rb /)
+      kao(:, 4, 4, 5) = (/ &
+        & 0.12342e-02_rb,0.13470e-02_rb,0.12958e-02_rb,0.11964e-02_rb,0.10726e-02_rb, &
+        & 0.91965e-03_rb,0.73487e-03_rb,0.49419e-03_rb,0.93979e-04_rb /)
+      kao(:, 5, 4, 5) = (/ &
+        & 0.12238e-02_rb,0.13566e-02_rb,0.13110e-02_rb,0.12168e-02_rb,0.10976e-02_rb, &
+        & 0.94731e-03_rb,0.75866e-03_rb,0.51080e-03_rb,0.10249e-03_rb /)
+      kao(:, 1, 5, 5) = (/ &
+        & 0.10970e-02_rb,0.11491e-02_rb,0.10850e-02_rb,0.99037e-03_rb,0.87478e-03_rb, &
+        & 0.73644e-03_rb,0.58168e-03_rb,0.38673e-03_rb,0.55328e-04_rb /)
+      kao(:, 2, 5, 5) = (/ &
+        & 0.11051e-02_rb,0.11716e-02_rb,0.11129e-02_rb,0.10196e-02_rb,0.90431e-03_rb, &
+        & 0.76445e-03_rb,0.60553e-03_rb,0.40600e-03_rb,0.61413e-04_rb /)
+      kao(:, 3, 5, 5) = (/ &
+        & 0.11053e-02_rb,0.11877e-02_rb,0.11365e-02_rb,0.10446e-02_rb,0.92981e-03_rb, &
+        & 0.79114e-03_rb,0.62919e-03_rb,0.42419e-03_rb,0.68340e-04_rb /)
+      kao(:, 4, 5, 5) = (/ &
+        & 0.11000e-02_rb,0.12008e-02_rb,0.11557e-02_rb,0.10648e-02_rb,0.95310e-03_rb, &
+        & 0.81721e-03_rb,0.65273e-03_rb,0.44128e-03_rb,0.75425e-04_rb /)
+      kao(:, 5, 5, 5) = (/ &
+        & 0.10930e-02_rb,0.12101e-02_rb,0.11704e-02_rb,0.10855e-02_rb,0.97521e-03_rb, &
+        & 0.84232e-03_rb,0.67516e-03_rb,0.45733e-03_rb,0.82112e-04_rb /)
+      kao(:, 1, 6, 5) = (/ &
+        & 0.96254e-03_rb,0.10041e-02_rb,0.94496e-03_rb,0.86305e-03_rb,0.76515e-03_rb, &
+        & 0.64666e-03_rb,0.50949e-03_rb,0.34237e-03_rb,0.45743e-04_rb /)
+      kao(:, 2, 6, 5) = (/ &
+        & 0.97168e-03_rb,0.10257e-02_rb,0.97306e-03_rb,0.89241e-03_rb,0.79300e-03_rb, &
+        & 0.67315e-03_rb,0.53212e-03_rb,0.35953e-03_rb,0.50936e-04_rb /)
+      kao(:, 3, 6, 5) = (/ &
+        & 0.97307e-03_rb,0.10417e-02_rb,0.99540e-03_rb,0.91663e-03_rb,0.81739e-03_rb, &
+        & 0.69764e-03_rb,0.55388e-03_rb,0.37625e-03_rb,0.56704e-04_rb /)
+      kao(:, 4, 6, 5) = (/ &
+        & 0.97112e-03_rb,0.10538e-02_rb,0.10130e-02_rb,0.93600e-03_rb,0.83875e-03_rb, &
+        & 0.72048e-03_rb,0.57540e-03_rb,0.39219e-03_rb,0.62214e-04_rb /)
+      kao(:, 5, 6, 5) = (/ &
+        & 0.96524e-03_rb,0.10634e-02_rb,0.10272e-02_rb,0.95339e-03_rb,0.85814e-03_rb, &
+        & 0.74256e-03_rb,0.59649e-03_rb,0.40723e-03_rb,0.68154e-04_rb /)
+      kao(:, 1, 7, 5) = (/ &
+        & 0.83977e-03_rb,0.87150e-03_rb,0.81798e-03_rb,0.74510e-03_rb,0.66073e-03_rb, &
+        & 0.55889e-03_rb,0.44038e-03_rb,0.30023e-03_rb,0.39438e-04_rb /)
+      kao(:, 2, 7, 5) = (/ &
+        & 0.84860e-03_rb,0.89183e-03_rb,0.84311e-03_rb,0.77202e-03_rb,0.68677e-03_rb, &
+        & 0.58412e-03_rb,0.46261e-03_rb,0.31513e-03_rb,0.44026e-04_rb /)
+      kao(:, 3, 7, 5) = (/ &
+        & 0.85156e-03_rb,0.90640e-03_rb,0.86357e-03_rb,0.79472e-03_rb,0.70843e-03_rb, &
+        & 0.60616e-03_rb,0.48333e-03_rb,0.32962e-03_rb,0.48169e-04_rb /)
+      kao(:, 4, 7, 5) = (/ &
+        & 0.84996e-03_rb,0.91804e-03_rb,0.88000e-03_rb,0.81332e-03_rb,0.72741e-03_rb, &
+        & 0.62668e-03_rb,0.50295e-03_rb,0.34425e-03_rb,0.52632e-04_rb /)
+      kao(:, 5, 7, 5) = (/ &
+        & 0.84411e-03_rb,0.92502e-03_rb,0.89195e-03_rb,0.82771e-03_rb,0.74479e-03_rb, &
+        & 0.64630e-03_rb,0.52177e-03_rb,0.35838e-03_rb,0.57490e-04_rb /)
+      kao(:, 1, 8, 5) = (/ &
+        & 0.72566e-03_rb,0.75029e-03_rb,0.70410e-03_rb,0.64085e-03_rb,0.56881e-03_rb, &
+        & 0.48163e-03_rb,0.37585e-03_rb,0.26029e-03_rb,0.35173e-04_rb /)
+      kao(:, 2, 8, 5) = (/ &
+        & 0.73526e-03_rb,0.76878e-03_rb,0.72724e-03_rb,0.66569e-03_rb,0.59239e-03_rb, &
+        & 0.50357e-03_rb,0.39670e-03_rb,0.27234e-03_rb,0.38442e-04_rb /)
+      kao(:, 3, 8, 5) = (/ &
+        & 0.73942e-03_rb,0.78240e-03_rb,0.74617e-03_rb,0.68580e-03_rb,0.61175e-03_rb, &
+        & 0.52308e-03_rb,0.41633e-03_rb,0.28548e-03_rb,0.42620e-04_rb /)
+      kao(:, 4, 8, 5) = (/ &
+        & 0.73787e-03_rb,0.79331e-03_rb,0.76108e-03_rb,0.70193e-03_rb,0.62821e-03_rb, &
+        & 0.54092e-03_rb,0.43381e-03_rb,0.29821e-03_rb,0.47013e-04_rb /)
+      kao(:, 5, 8, 5) = (/ &
+        & 0.73365e-03_rb,0.79895e-03_rb,0.77125e-03_rb,0.71463e-03_rb,0.64295e-03_rb, &
+        & 0.55753e-03_rb,0.45033e-03_rb,0.31091e-03_rb,0.51519e-04_rb /)
+      kao(:, 1, 9, 5) = (/ &
+        & 0.62112e-03_rb,0.63900e-03_rb,0.60071e-03_rb,0.54641e-03_rb,0.48585e-03_rb, &
+        & 0.41219e-03_rb,0.31988e-03_rb,0.22088e-03_rb,0.39225e-04_rb /)
+      kao(:, 2, 9, 5) = (/ &
+        & 0.63089e-03_rb,0.65678e-03_rb,0.62144e-03_rb,0.56855e-03_rb,0.50663e-03_rb, &
+        & 0.43158e-03_rb,0.33912e-03_rb,0.23261e-03_rb,0.43145e-04_rb /)
+      kao(:, 3, 9, 5) = (/ &
+        & 0.63630e-03_rb,0.67023e-03_rb,0.63841e-03_rb,0.58635e-03_rb,0.52398e-03_rb, &
+        & 0.44876e-03_rb,0.35619e-03_rb,0.24341e-03_rb,0.47182e-04_rb /)
+      kao(:, 4, 9, 5) = (/ &
+        & 0.63678e-03_rb,0.68001e-03_rb,0.65143e-03_rb,0.60045e-03_rb,0.53807e-03_rb, &
+        & 0.46446e-03_rb,0.37160e-03_rb,0.25517e-03_rb,0.51310e-04_rb /)
+      kao(:, 5, 9, 5) = (/ &
+        & 0.63384e-03_rb,0.68558e-03_rb,0.66049e-03_rb,0.61133e-03_rb,0.55067e-03_rb, &
+        & 0.47828e-03_rb,0.38622e-03_rb,0.26607e-03_rb,0.55652e-04_rb /)
+      kao(:, 1,10, 5) = (/ &
+        & 0.52818e-03_rb,0.54302e-03_rb,0.51109e-03_rb,0.46524e-03_rb,0.41303e-03_rb, &
+        & 0.35089e-03_rb,0.27050e-03_rb,0.18719e-03_rb,0.51897e-04_rb /)
+      kao(:, 2,10, 5) = (/ &
+        & 0.53874e-03_rb,0.56000e-03_rb,0.52974e-03_rb,0.48429e-03_rb,0.43151e-03_rb, &
+        & 0.36826e-03_rb,0.28749e-03_rb,0.19624e-03_rb,0.57480e-04_rb /)
+      kao(:, 3,10, 5) = (/ &
+        & 0.54407e-03_rb,0.57298e-03_rb,0.54499e-03_rb,0.50007e-03_rb,0.44685e-03_rb, &
+        & 0.38282e-03_rb,0.30218e-03_rb,0.20623e-03_rb,0.63250e-04_rb /)
+      kao(:, 4,10, 5) = (/ &
+        & 0.54510e-03_rb,0.58221e-03_rb,0.55605e-03_rb,0.51259e-03_rb,0.45923e-03_rb, &
+        & 0.39550e-03_rb,0.31547e-03_rb,0.21632e-03_rb,0.68339e-04_rb /)
+      kao(:, 5,10, 5) = (/ &
+        & 0.54335e-03_rb,0.58744e-03_rb,0.56412e-03_rb,0.52185e-03_rb,0.47008e-03_rb, &
+        & 0.40728e-03_rb,0.32798e-03_rb,0.22618e-03_rb,0.72964e-04_rb /)
+      kao(:, 1,11, 5) = (/ &
+        & 0.44901e-03_rb,0.46427e-03_rb,0.43915e-03_rb,0.40187e-03_rb,0.35719e-03_rb, &
+        & 0.30380e-03_rb,0.23427e-03_rb,0.15956e-03_rb,0.52228e-04_rb /)
+      kao(:, 2,11, 5) = (/ &
+        & 0.45685e-03_rb,0.47845e-03_rb,0.45475e-03_rb,0.41772e-03_rb,0.37275e-03_rb, &
+        & 0.31798e-03_rb,0.24772e-03_rb,0.16817e-03_rb,0.56979e-04_rb /)
+      kao(:, 3,11, 5) = (/ &
+        & 0.46005e-03_rb,0.48879e-03_rb,0.46665e-03_rb,0.43038e-03_rb,0.38526e-03_rb, &
+        & 0.32982e-03_rb,0.25983e-03_rb,0.17707e-03_rb,0.61788e-04_rb /)
+      kao(:, 4,11, 5) = (/ &
+        & 0.46029e-03_rb,0.49540e-03_rb,0.47547e-03_rb,0.44015e-03_rb,0.39539e-03_rb, &
+        & 0.34025e-03_rb,0.27087e-03_rb,0.18596e-03_rb,0.66537e-04_rb /)
+      kao(:, 5,11, 5) = (/ &
+        & 0.45760e-03_rb,0.49879e-03_rb,0.48175e-03_rb,0.44812e-03_rb,0.40429e-03_rb, &
+        & 0.34971e-03_rb,0.28105e-03_rb,0.19422e-03_rb,0.70982e-04_rb /)
+      kao(:, 1,12, 5) = (/ &
+        & 0.37789e-03_rb,0.39359e-03_rb,0.37439e-03_rb,0.34335e-03_rb,0.30516e-03_rb, &
+        & 0.25987e-03_rb,0.20136e-03_rb,0.13616e-03_rb,0.47471e-04_rb /)
+      kao(:, 2,12, 5) = (/ &
+        & 0.38345e-03_rb,0.40460e-03_rb,0.38678e-03_rb,0.35616e-03_rb,0.31793e-03_rb, &
+        & 0.27155e-03_rb,0.21219e-03_rb,0.14366e-03_rb,0.51576e-04_rb /)
+      kao(:, 3,12, 5) = (/ &
+        & 0.38556e-03_rb,0.41241e-03_rb,0.39583e-03_rb,0.36622e-03_rb,0.32808e-03_rb, &
+        & 0.28132e-03_rb,0.22259e-03_rb,0.15133e-03_rb,0.55529e-04_rb /)
+      kao(:, 4,12, 5) = (/ &
+        & 0.38464e-03_rb,0.41687e-03_rb,0.40247e-03_rb,0.37394e-03_rb,0.33650e-03_rb, &
+        & 0.28994e-03_rb,0.23157e-03_rb,0.15870e-03_rb,0.59557e-04_rb /)
+      kao(:, 5,12, 5) = (/ &
+        & 0.38119e-03_rb,0.41880e-03_rb,0.40725e-03_rb,0.38009e-03_rb,0.34354e-03_rb, &
+        & 0.29781e-03_rb,0.23974e-03_rb,0.16572e-03_rb,0.63195e-04_rb /)
+      kao(:, 1,13, 5) = (/ &
+        & 0.31518e-03_rb,0.33080e-03_rb,0.31644e-03_rb,0.29051e-03_rb,0.25824e-03_rb, &
+        & 0.21997e-03_rb,0.17074e-03_rb,0.11585e-03_rb,0.39419e-04_rb /)
+      kao(:, 2,13, 5) = (/ &
+        & 0.31945e-03_rb,0.33947e-03_rb,0.32620e-03_rb,0.30064e-03_rb,0.26839e-03_rb, &
+        & 0.22968e-03_rb,0.17999e-03_rb,0.12241e-03_rb,0.42717e-04_rb /)
+      kao(:, 3,13, 5) = (/ &
+        & 0.32042e-03_rb,0.34518e-03_rb,0.33311e-03_rb,0.30844e-03_rb,0.27653e-03_rb, &
+        & 0.23733e-03_rb,0.18840e-03_rb,0.12892e-03_rb,0.45799e-04_rb /)
+      kao(:, 4,13, 5) = (/ &
+        & 0.31877e-03_rb,0.34829e-03_rb,0.33813e-03_rb,0.31466e-03_rb,0.28316e-03_rb, &
+        & 0.24429e-03_rb,0.19577e-03_rb,0.13500e-03_rb,0.49095e-04_rb /)
+      kao(:, 5,13, 5) = (/ &
+        & 0.31533e-03_rb,0.34943e-03_rb,0.34164e-03_rb,0.31953e-03_rb,0.28883e-03_rb, &
+        & 0.25064e-03_rb,0.20247e-03_rb,0.14079e-03_rb,0.52225e-04_rb /)
+      kao(:, 1, 1, 6) = (/ &
+        & 0.30073e-02_rb,0.30215e-02_rb,0.28549e-02_rb,0.26145e-02_rb,0.23223e-02_rb, &
+        & 0.19698e-02_rb,0.15631e-02_rb,0.10671e-02_rb,0.34349e-03_rb /)
+      kao(:, 2, 1, 6) = (/ &
+        & 0.30045e-02_rb,0.30464e-02_rb,0.29000e-02_rb,0.26682e-02_rb,0.23795e-02_rb, &
+        & 0.20320e-02_rb,0.16241e-02_rb,0.11180e-02_rb,0.37241e-03_rb /)
+      kao(:, 3, 1, 6) = (/ &
+        & 0.29924e-02_rb,0.30694e-02_rb,0.29376e-02_rb,0.27170e-02_rb,0.24327e-02_rb, &
+        & 0.20955e-02_rb,0.16828e-02_rb,0.11692e-02_rb,0.41183e-03_rb /)
+      kao(:, 4, 1, 6) = (/ &
+        & 0.29732e-02_rb,0.30875e-02_rb,0.29723e-02_rb,0.27617e-02_rb,0.24862e-02_rb, &
+        & 0.21555e-02_rb,0.17426e-02_rb,0.12186e-02_rb,0.45672e-03_rb /)
+      kao(:, 5, 1, 6) = (/ &
+        & 0.29511e-02_rb,0.31004e-02_rb,0.30014e-02_rb,0.28043e-02_rb,0.25375e-02_rb, &
+        & 0.22174e-02_rb,0.18018e-02_rb,0.12656e-02_rb,0.49848e-03_rb /)
+      kao(:, 1, 2, 6) = (/ &
+        & 0.28011e-02_rb,0.28061e-02_rb,0.26513e-02_rb,0.24171e-02_rb,0.21391e-02_rb, &
+        & 0.18145e-02_rb,0.14290e-02_rb,0.97808e-03_rb,0.28283e-03_rb /)
+      kao(:, 2, 2, 6) = (/ &
+        & 0.28038e-02_rb,0.28333e-02_rb,0.26971e-02_rb,0.24708e-02_rb,0.21906e-02_rb, &
+        & 0.18715e-02_rb,0.14859e-02_rb,0.10236e-02_rb,0.31088e-03_rb /)
+      kao(:, 3, 2, 6) = (/ &
+        & 0.27978e-02_rb,0.28587e-02_rb,0.27386e-02_rb,0.25159e-02_rb,0.22406e-02_rb, &
+        & 0.19256e-02_rb,0.15398e-02_rb,0.10695e-02_rb,0.34605e-03_rb /)
+      kao(:, 4, 2, 6) = (/ &
+        & 0.27864e-02_rb,0.28782e-02_rb,0.27737e-02_rb,0.25561e-02_rb,0.22888e-02_rb, &
+        & 0.19778e-02_rb,0.15963e-02_rb,0.11144e-02_rb,0.38043e-03_rb /)
+      kao(:, 5, 2, 6) = (/ &
+        & 0.27682e-02_rb,0.28941e-02_rb,0.28027e-02_rb,0.25952e-02_rb,0.23337e-02_rb, &
+        & 0.20308e-02_rb,0.16518e-02_rb,0.11583e-02_rb,0.41249e-03_rb /)
+      kao(:, 1, 3, 6) = (/ &
+        & 0.26013e-02_rb,0.25925e-02_rb,0.24368e-02_rb,0.22059e-02_rb,0.19447e-02_rb, &
+        & 0.16443e-02_rb,0.12895e-02_rb,0.88356e-03_rb,0.22980e-03_rb /)
+      kao(:, 2, 3, 6) = (/ &
+        & 0.26118e-02_rb,0.26228e-02_rb,0.24826e-02_rb,0.22596e-02_rb,0.19971e-02_rb, &
+        & 0.16971e-02_rb,0.13425e-02_rb,0.92292e-03_rb,0.25666e-03_rb /)
+      kao(:, 3, 3, 6) = (/ &
+        & 0.26121e-02_rb,0.26511e-02_rb,0.25221e-02_rb,0.23045e-02_rb,0.20442e-02_rb, &
+        & 0.17465e-02_rb,0.13937e-02_rb,0.96423e-03_rb,0.28307e-03_rb /)
+      kao(:, 4, 3, 6) = (/ &
+        & 0.26050e-02_rb,0.26757e-02_rb,0.25536e-02_rb,0.23446e-02_rb,0.20883e-02_rb, &
+        & 0.17925e-02_rb,0.14453e-02_rb,0.10074e-02_rb,0.30818e-03_rb /)
+      kao(:, 5, 3, 6) = (/ &
+        & 0.25933e-02_rb,0.26944e-02_rb,0.25823e-02_rb,0.23794e-02_rb,0.21318e-02_rb, &
+        & 0.18378e-02_rb,0.14965e-02_rb,0.10492e-02_rb,0.33812e-03_rb /)
+      kao(:, 1, 4, 6) = (/ &
+        & 0.24078e-02_rb,0.23894e-02_rb,0.22370e-02_rb,0.20125e-02_rb,0.17599e-02_rb, &
+        & 0.14763e-02_rb,0.11554e-02_rb,0.78494e-03_rb,0.18813e-03_rb /)
+      kao(:, 2, 4, 6) = (/ &
+        & 0.24225e-02_rb,0.24253e-02_rb,0.22813e-02_rb,0.20638e-02_rb,0.18093e-02_rb, &
+        & 0.15251e-02_rb,0.12031e-02_rb,0.82373e-03_rb,0.21030e-03_rb /)
+      kao(:, 3, 4, 6) = (/ &
+        & 0.24294e-02_rb,0.24564e-02_rb,0.23198e-02_rb,0.21085e-02_rb,0.18532e-02_rb, &
+        & 0.15708e-02_rb,0.12482e-02_rb,0.86229e-03_rb,0.23129e-03_rb /)
+      kao(:, 4, 4, 6) = (/ &
+        & 0.24309e-02_rb,0.24808e-02_rb,0.23546e-02_rb,0.21467e-02_rb,0.18923e-02_rb, &
+        & 0.16129e-02_rb,0.12944e-02_rb,0.90119e-03_rb,0.25224e-03_rb /)
+      kao(:, 5, 4, 6) = (/ &
+        & 0.24223e-02_rb,0.24983e-02_rb,0.23839e-02_rb,0.21783e-02_rb,0.19305e-02_rb, &
+        & 0.16540e-02_rb,0.13401e-02_rb,0.94049e-03_rb,0.27779e-03_rb /)
+      kao(:, 1, 5, 6) = (/ &
+        & 0.22071e-02_rb,0.21851e-02_rb,0.20436e-02_rb,0.18357e-02_rb,0.15952e-02_rb, &
+        & 0.13304e-02_rb,0.10307e-02_rb,0.69163e-03_rb,0.14983e-03_rb /)
+      kao(:, 2, 5, 6) = (/ &
+        & 0.22284e-02_rb,0.22243e-02_rb,0.20887e-02_rb,0.18839e-02_rb,0.16450e-02_rb, &
+        & 0.13762e-02_rb,0.10736e-02_rb,0.72602e-03_rb,0.16732e-03_rb /)
+      kao(:, 3, 5, 6) = (/ &
+        & 0.22426e-02_rb,0.22593e-02_rb,0.21270e-02_rb,0.19281e-02_rb,0.16889e-02_rb, &
+        & 0.14169e-02_rb,0.11148e-02_rb,0.76201e-03_rb,0.18420e-03_rb /)
+      kao(:, 4, 5, 6) = (/ &
+        & 0.22476e-02_rb,0.22863e-02_rb,0.21609e-02_rb,0.19676e-02_rb,0.17258e-02_rb, &
+        & 0.14525e-02_rb,0.11537e-02_rb,0.79815e-03_rb,0.20325e-03_rb /)
+      kao(:, 5, 5, 6) = (/ &
+        & 0.22399e-02_rb,0.23048e-02_rb,0.21912e-02_rb,0.19974e-02_rb,0.17586e-02_rb, &
+        & 0.14880e-02_rb,0.11934e-02_rb,0.83564e-03_rb,0.22470e-03_rb /)
+      kao(:, 1, 6, 6) = (/ &
+        & 0.20075e-02_rb,0.19795e-02_rb,0.18447e-02_rb,0.16541e-02_rb,0.14341e-02_rb, &
+        & 0.11951e-02_rb,0.92238e-03_rb,0.60660e-03_rb,0.12381e-03_rb /)
+      kao(:, 2, 6, 6) = (/ &
+        & 0.20344e-02_rb,0.20227e-02_rb,0.18912e-02_rb,0.17028e-02_rb,0.14828e-02_rb, &
+        & 0.12404e-02_rb,0.96234e-03_rb,0.63833e-03_rb,0.13822e-03_rb /)
+      kao(:, 3, 6, 6) = (/ &
+        & 0.20513e-02_rb,0.20598e-02_rb,0.19311e-02_rb,0.17466e-02_rb,0.15267e-02_rb, &
+        & 0.12805e-02_rb,0.99815e-03_rb,0.66987e-03_rb,0.15138e-03_rb /)
+      kao(:, 4, 6, 6) = (/ &
+        & 0.20576e-02_rb,0.20878e-02_rb,0.19661e-02_rb,0.17857e-02_rb,0.15647e-02_rb, &
+        & 0.13147e-02_rb,0.10319e-02_rb,0.70266e-03_rb,0.16753e-03_rb /)
+      kao(:, 5, 6, 6) = (/ &
+        & 0.20521e-02_rb,0.21067e-02_rb,0.19938e-02_rb,0.18157e-02_rb,0.15969e-02_rb, &
+        & 0.13475e-02_rb,0.10644e-02_rb,0.73524e-03_rb,0.18430e-03_rb /)
+      kao(:, 1, 7, 6) = (/ &
+        & 0.17951e-02_rb,0.17708e-02_rb,0.16476e-02_rb,0.14764e-02_rb,0.12769e-02_rb, &
+        & 0.10613e-02_rb,0.82141e-03_rb,0.53387e-03_rb,0.10356e-03_rb /)
+      kao(:, 2, 7, 6) = (/ &
+        & 0.18257e-02_rb,0.18161e-02_rb,0.16970e-02_rb,0.15264e-02_rb,0.13250e-02_rb, &
+        & 0.11052e-02_rb,0.85771e-03_rb,0.56341e-03_rb,0.11419e-03_rb /)
+      kao(:, 3, 7, 6) = (/ &
+        & 0.18457e-02_rb,0.18541e-02_rb,0.17382e-02_rb,0.15700e-02_rb,0.13685e-02_rb, &
+        & 0.11444e-02_rb,0.89062e-03_rb,0.59265e-03_rb,0.12737e-03_rb /)
+      kao(:, 4, 7, 6) = (/ &
+        & 0.18534e-02_rb,0.18833e-02_rb,0.17713e-02_rb,0.16066e-02_rb,0.14063e-02_rb, &
+        & 0.11787e-02_rb,0.92220e-03_rb,0.62067e-03_rb,0.14148e-03_rb /)
+      kao(:, 5, 7, 6) = (/ &
+        & 0.18508e-02_rb,0.19025e-02_rb,0.17986e-02_rb,0.16377e-02_rb,0.14382e-02_rb, &
+        & 0.12095e-02_rb,0.95313e-03_rb,0.64883e-03_rb,0.15624e-03_rb /)
+      kao(:, 1, 8, 6) = (/ &
+        & 0.15853e-02_rb,0.15606e-02_rb,0.14491e-02_rb,0.13005e-02_rb,0.11253e-02_rb, &
+        & 0.93388e-03_rb,0.72631e-03_rb,0.46832e-03_rb,0.90402e-04_rb /)
+      kao(:, 2, 8, 6) = (/ &
+        & 0.16191e-02_rb,0.16074e-02_rb,0.14980e-02_rb,0.13497e-02_rb,0.11730e-02_rb, &
+        & 0.97691e-03_rb,0.76027e-03_rb,0.49835e-03_rb,0.10124e-03_rb /)
+      kao(:, 3, 8, 6) = (/ &
+        & 0.16393e-02_rb,0.16464e-02_rb,0.15392e-02_rb,0.13927e-02_rb,0.12147e-02_rb, &
+        & 0.10153e-02_rb,0.79129e-03_rb,0.52537e-03_rb,0.11276e-03_rb /)
+      kao(:, 4, 8, 6) = (/ &
+        & 0.16487e-02_rb,0.16729e-02_rb,0.15721e-02_rb,0.14286e-02_rb,0.12504e-02_rb, &
+        & 0.10480e-02_rb,0.82072e-03_rb,0.55187e-03_rb,0.12515e-03_rb /)
+      kao(:, 5, 8, 6) = (/ &
+        & 0.16472e-02_rb,0.16924e-02_rb,0.15977e-02_rb,0.14588e-02_rb,0.12817e-02_rb, &
+        & 0.10777e-02_rb,0.84873e-03_rb,0.57800e-03_rb,0.13784e-03_rb /)
+      kao(:, 1, 9, 6) = (/ &
+        & 0.13936e-02_rb,0.13674e-02_rb,0.12635e-02_rb,0.11331e-02_rb,0.97871e-03_rb, &
+        & 0.81331e-03_rb,0.63480e-03_rb,0.40910e-03_rb,0.92222e-04_rb /)
+      kao(:, 2, 9, 6) = (/ &
+        & 0.14271e-02_rb,0.14126e-02_rb,0.13114e-02_rb,0.11804e-02_rb,0.10248e-02_rb, &
+        & 0.85405e-03_rb,0.66828e-03_rb,0.43677e-03_rb,0.10207e-03_rb /)
+      kao(:, 3, 9, 6) = (/ &
+        & 0.14461e-02_rb,0.14478e-02_rb,0.13500e-02_rb,0.12219e-02_rb,0.10647e-02_rb, &
+        & 0.89058e-03_rb,0.69816e-03_rb,0.46305e-03_rb,0.11262e-03_rb /)
+      kao(:, 4, 9, 6) = (/ &
+        & 0.14547e-02_rb,0.14726e-02_rb,0.13807e-02_rb,0.12557e-02_rb,0.10996e-02_rb, &
+        & 0.92247e-03_rb,0.72520e-03_rb,0.48654e-03_rb,0.12376e-03_rb /)
+      kao(:, 5, 9, 6) = (/ &
+        & 0.14563e-02_rb,0.14902e-02_rb,0.14046e-02_rb,0.12841e-02_rb,0.11288e-02_rb, &
+        & 0.95105e-03_rb,0.75065e-03_rb,0.51065e-03_rb,0.13556e-03_rb /)
+      kao(:, 1,10, 6) = (/ &
+        & 0.12161e-02_rb,0.11928e-02_rb,0.11004e-02_rb,0.98725e-03_rb,0.85318e-03_rb, &
+        & 0.70775e-03_rb,0.55081e-03_rb,0.35481e-03_rb,0.12422e-03_rb /)
+      kao(:, 2,10, 6) = (/ &
+        & 0.12463e-02_rb,0.12352e-02_rb,0.11444e-02_rb,0.10316e-02_rb,0.89480e-03_rb, &
+        & 0.74560e-03_rb,0.58282e-03_rb,0.38195e-03_rb,0.13273e-03_rb /)
+      kao(:, 3,10, 6) = (/ &
+        & 0.12646e-02_rb,0.12662e-02_rb,0.11796e-02_rb,0.10687e-02_rb,0.93096e-03_rb, &
+        & 0.77883e-03_rb,0.61138e-03_rb,0.40526e-03_rb,0.14193e-03_rb /)
+      kao(:, 4,10, 6) = (/ &
+        & 0.12733e-02_rb,0.12880e-02_rb,0.12074e-02_rb,0.10979e-02_rb,0.96169e-03_rb, &
+        & 0.80809e-03_rb,0.63689e-03_rb,0.42724e-03_rb,0.15291e-03_rb /)
+      kao(:, 5,10, 6) = (/ &
+        & 0.12740e-02_rb,0.13044e-02_rb,0.12293e-02_rb,0.11231e-02_rb,0.98752e-03_rb, &
+        & 0.83380e-03_rb,0.66030e-03_rb,0.44847e-03_rb,0.16460e-03_rb /)
+      kao(:, 1,11, 6) = (/ &
+        & 0.10656e-02_rb,0.10497e-02_rb,0.96881e-03_rb,0.87108e-03_rb,0.75627e-03_rb, &
+        & 0.62893e-03_rb,0.48955e-03_rb,0.31741e-03_rb,0.13016e-03_rb /)
+      kao(:, 2,11, 6) = (/ &
+        & 0.10879e-02_rb,0.10821e-02_rb,0.10046e-02_rb,0.90804e-03_rb,0.79130e-03_rb, &
+        & 0.66235e-03_rb,0.51807e-03_rb,0.34003e-03_rb,0.13779e-03_rb /)
+      kao(:, 3,11, 6) = (/ &
+        & 0.11001e-02_rb,0.11057e-02_rb,0.10327e-02_rb,0.93770e-03_rb,0.82120e-03_rb, &
+        & 0.69087e-03_rb,0.54346e-03_rb,0.36047e-03_rb,0.14411e-03_rb /)
+      kao(:, 4,11, 6) = (/ &
+        & 0.11047e-02_rb,0.11226e-02_rb,0.10548e-02_rb,0.96212e-03_rb,0.84667e-03_rb, &
+        & 0.71575e-03_rb,0.56548e-03_rb,0.37954e-03_rb,0.15311e-03_rb /)
+      kao(:, 5,11, 6) = (/ &
+        & 0.11028e-02_rb,0.11345e-02_rb,0.10715e-02_rb,0.98143e-03_rb,0.86845e-03_rb, &
+        & 0.73791e-03_rb,0.58600e-03_rb,0.39874e-03_rb,0.16257e-03_rb /)
+      kao(:, 1,12, 6) = (/ &
+        & 0.92541e-03_rb,0.91485e-03_rb,0.84575e-03_rb,0.76287e-03_rb,0.66530e-03_rb, &
+        & 0.55435e-03_rb,0.43055e-03_rb,0.28106e-03_rb,0.11779e-03_rb /)
+      kao(:, 2,12, 6) = (/ &
+        & 0.94153e-03_rb,0.94015e-03_rb,0.87425e-03_rb,0.79221e-03_rb,0.69422e-03_rb, &
+        & 0.58249e-03_rb,0.45555e-03_rb,0.30043e-03_rb,0.12541e-03_rb /)
+      kao(:, 3,12, 6) = (/ &
+        & 0.95043e-03_rb,0.95859e-03_rb,0.89645e-03_rb,0.81618e-03_rb,0.71892e-03_rb, &
+        & 0.60660e-03_rb,0.47691e-03_rb,0.31810e-03_rb,0.13086e-03_rb /)
+      kao(:, 4,12, 6) = (/ &
+        & 0.95300e-03_rb,0.97180e-03_rb,0.91414e-03_rb,0.83540e-03_rb,0.73965e-03_rb, &
+        & 0.62755e-03_rb,0.49627e-03_rb,0.33494e-03_rb,0.13792e-03_rb /)
+      kao(:, 5,12, 6) = (/ &
+        & 0.94924e-03_rb,0.98033e-03_rb,0.92629e-03_rb,0.85073e-03_rb,0.75722e-03_rb, &
+        & 0.64562e-03_rb,0.51410e-03_rb,0.35114e-03_rb,0.14650e-03_rb /)
+      kao(:, 1,13, 6) = (/ &
+        & 0.79344e-03_rb,0.78971e-03_rb,0.73267e-03_rb,0.66405e-03_rb,0.58083e-03_rb, &
+        & 0.48392e-03_rb,0.37549e-03_rb,0.24569e-03_rb,0.97034e-04_rb /)
+      kao(:, 2,13, 6) = (/ &
+        & 0.80574e-03_rb,0.81004e-03_rb,0.75547e-03_rb,0.68809e-03_rb,0.60484e-03_rb, &
+        & 0.50707e-03_rb,0.39618e-03_rb,0.26227e-03_rb,0.10267e-03_rb /)
+      kao(:, 3,13, 6) = (/ &
+        & 0.81227e-03_rb,0.82486e-03_rb,0.77408e-03_rb,0.70758e-03_rb,0.62511e-03_rb, &
+        & 0.52731e-03_rb,0.41439e-03_rb,0.27759e-03_rb,0.10742e-03_rb /)
+      kao(:, 4,13, 6) = (/ &
+        & 0.81298e-03_rb,0.83538e-03_rb,0.78743e-03_rb,0.72262e-03_rb,0.64193e-03_rb, &
+        & 0.54449e-03_rb,0.43080e-03_rb,0.29211e-03_rb,0.11325e-03_rb /)
+      kao(:, 5,13, 6) = (/ &
+        & 0.80893e-03_rb,0.84184e-03_rb,0.79706e-03_rb,0.73516e-03_rb,0.65638e-03_rb, &
+        & 0.55984e-03_rb,0.44607e-03_rb,0.30621e-03_rb,0.12059e-03_rb /)
+      kao(:, 1, 1, 7) = (/ &
+        & 0.54732e-02_rb,0.53034e-02_rb,0.49969e-02_rb,0.45431e-02_rb,0.40134e-02_rb, &
+        & 0.34010e-02_rb,0.26972e-02_rb,0.18637e-02_rb,0.96692e-03_rb /)
+      kao(:, 2, 1, 7) = (/ &
+        & 0.54607e-02_rb,0.53367e-02_rb,0.50546e-02_rb,0.46321e-02_rb,0.41099e-02_rb, &
+        & 0.34970e-02_rb,0.27999e-02_rb,0.19729e-02_rb,0.11063e-02_rb /)
+      kao(:, 3, 1, 7) = (/ &
+        & 0.54405e-02_rb,0.53637e-02_rb,0.51145e-02_rb,0.47117e-02_rb,0.41981e-02_rb, &
+        & 0.35927e-02_rb,0.29070e-02_rb,0.20850e-02_rb,0.12360e-02_rb /)
+      kao(:, 4, 1, 7) = (/ &
+        & 0.54052e-02_rb,0.53858e-02_rb,0.51679e-02_rb,0.47829e-02_rb,0.42844e-02_rb, &
+        & 0.36942e-02_rb,0.30161e-02_rb,0.22030e-02_rb,0.13785e-02_rb /)
+      kao(:, 5, 1, 7) = (/ &
+        & 0.53549e-02_rb,0.54029e-02_rb,0.52131e-02_rb,0.48529e-02_rb,0.43733e-02_rb, &
+        & 0.37946e-02_rb,0.31262e-02_rb,0.23268e-02_rb,0.15336e-02_rb /)
+      kao(:, 1, 2, 7) = (/ &
+        & 0.52482e-02_rb,0.50940e-02_rb,0.47786e-02_rb,0.43454e-02_rb,0.38186e-02_rb, &
+        & 0.32129e-02_rb,0.25325e-02_rb,0.17227e-02_rb,0.80430e-03_rb /)
+      kao(:, 2, 2, 7) = (/ &
+        & 0.52403e-02_rb,0.51313e-02_rb,0.48370e-02_rb,0.44315e-02_rb,0.39109e-02_rb, &
+        & 0.33052e-02_rb,0.26254e-02_rb,0.18226e-02_rb,0.90614e-03_rb /)
+      kao(:, 3, 2, 7) = (/ &
+        & 0.52188e-02_rb,0.51614e-02_rb,0.48948e-02_rb,0.45073e-02_rb,0.39963e-02_rb, &
+        & 0.33961e-02_rb,0.27198e-02_rb,0.19222e-02_rb,0.10146e-02_rb /)
+      kao(:, 4, 2, 7) = (/ &
+        & 0.51826e-02_rb,0.51837e-02_rb,0.49460e-02_rb,0.45770e-02_rb,0.40791e-02_rb, &
+        & 0.34891e-02_rb,0.28146e-02_rb,0.20278e-02_rb,0.11325e-02_rb /)
+      kao(:, 5, 2, 7) = (/ &
+        & 0.51359e-02_rb,0.51960e-02_rb,0.49902e-02_rb,0.46430e-02_rb,0.41602e-02_rb, &
+        & 0.35811e-02_rb,0.29127e-02_rb,0.21431e-02_rb,0.12633e-02_rb /)
+      kao(:, 1, 3, 7) = (/ &
+        & 0.49876e-02_rb,0.48388e-02_rb,0.45133e-02_rb,0.40992e-02_rb,0.35901e-02_rb, &
+        & 0.30030e-02_rb,0.23527e-02_rb,0.15765e-02_rb,0.64714e-03_rb /)
+      kao(:, 2, 3, 7) = (/ &
+        & 0.49850e-02_rb,0.48808e-02_rb,0.45736e-02_rb,0.41821e-02_rb,0.36790e-02_rb, &
+        & 0.30941e-02_rb,0.24388e-02_rb,0.16655e-02_rb,0.72927e-03_rb /)
+      kao(:, 3, 3, 7) = (/ &
+        & 0.49660e-02_rb,0.49117e-02_rb,0.46346e-02_rb,0.42593e-02_rb,0.37631e-02_rb, &
+        & 0.31820e-02_rb,0.25243e-02_rb,0.17543e-02_rb,0.81771e-03_rb /)
+      kao(:, 4, 3, 7) = (/ &
+        & 0.49361e-02_rb,0.49307e-02_rb,0.46909e-02_rb,0.43285e-02_rb,0.38459e-02_rb, &
+        & 0.32679e-02_rb,0.26083e-02_rb,0.18450e-02_rb,0.91578e-03_rb /)
+      kao(:, 5, 3, 7) = (/ &
+        & 0.48943e-02_rb,0.49413e-02_rb,0.47366e-02_rb,0.43959e-02_rb,0.39239e-02_rb, &
+        & 0.33496e-02_rb,0.26941e-02_rb,0.19416e-02_rb,0.10197e-02_rb /)
+      kao(:, 1, 4, 7) = (/ &
+        & 0.46848e-02_rb,0.45423e-02_rb,0.42109e-02_rb,0.38147e-02_rb,0.33318e-02_rb, &
+        & 0.27806e-02_rb,0.21628e-02_rb,0.14435e-02_rb,0.52019e-03_rb /)
+      kao(:, 2, 4, 7) = (/ &
+        & 0.46885e-02_rb,0.45846e-02_rb,0.42767e-02_rb,0.38967e-02_rb,0.34228e-02_rb, &
+        & 0.28698e-02_rb,0.22469e-02_rb,0.15180e-02_rb,0.58537e-03_rb /)
+      kao(:, 3, 4, 7) = (/ &
+        & 0.46784e-02_rb,0.46158e-02_rb,0.43389e-02_rb,0.39718e-02_rb,0.35088e-02_rb, &
+        & 0.29561e-02_rb,0.23285e-02_rb,0.15932e-02_rb,0.65783e-03_rb /)
+      kao(:, 4, 4, 7) = (/ &
+        & 0.46546e-02_rb,0.46379e-02_rb,0.43907e-02_rb,0.40421e-02_rb,0.35928e-02_rb, &
+        & 0.30394e-02_rb,0.24053e-02_rb,0.16703e-02_rb,0.73788e-03_rb /)
+      kao(:, 5, 4, 7) = (/ &
+        & 0.46218e-02_rb,0.46560e-02_rb,0.44359e-02_rb,0.41109e-02_rb,0.36691e-02_rb, &
+        & 0.31156e-02_rb,0.24821e-02_rb,0.17515e-02_rb,0.82261e-03_rb /)
+      kao(:, 1, 5, 7) = (/ &
+        & 0.43680e-02_rb,0.42271e-02_rb,0.38928e-02_rb,0.35080e-02_rb,0.30576e-02_rb, &
+        & 0.25405e-02_rb,0.19725e-02_rb,0.13117e-02_rb,0.42455e-03_rb /)
+      kao(:, 2, 5, 7) = (/ &
+        & 0.43836e-02_rb,0.42742e-02_rb,0.39603e-02_rb,0.35901e-02_rb,0.31440e-02_rb, &
+        & 0.26294e-02_rb,0.20540e-02_rb,0.13812e-02_rb,0.47676e-03_rb /)
+      kao(:, 3, 5, 7) = (/ &
+        & 0.43831e-02_rb,0.43074e-02_rb,0.40201e-02_rb,0.36636e-02_rb,0.32261e-02_rb, &
+        & 0.27164e-02_rb,0.21330e-02_rb,0.14464e-02_rb,0.53568e-03_rb /)
+      kao(:, 4, 5, 7) = (/ &
+        & 0.43690e-02_rb,0.43343e-02_rb,0.40742e-02_rb,0.37289e-02_rb,0.33089e-02_rb, &
+        & 0.28017e-02_rb,0.22054e-02_rb,0.15130e-02_rb,0.59880e-03_rb /)
+      kao(:, 5, 5, 7) = (/ &
+        & 0.43473e-02_rb,0.43575e-02_rb,0.41195e-02_rb,0.37951e-02_rb,0.33885e-02_rb, &
+        & 0.28774e-02_rb,0.22767e-02_rb,0.15816e-02_rb,0.66710e-03_rb /)
+      kao(:, 1, 6, 7) = (/ &
+        & 0.40714e-02_rb,0.39122e-02_rb,0.35777e-02_rb,0.32091e-02_rb,0.27872e-02_rb, &
+        & 0.22994e-02_rb,0.17735e-02_rb,0.11790e-02_rb,0.33561e-03_rb /)
+      kao(:, 2, 6, 7) = (/ &
+        & 0.40973e-02_rb,0.39625e-02_rb,0.36472e-02_rb,0.32877e-02_rb,0.28694e-02_rb, &
+        & 0.23826e-02_rb,0.18515e-02_rb,0.12426e-02_rb,0.37756e-03_rb /)
+      kao(:, 3, 6, 7) = (/ &
+        & 0.41108e-02_rb,0.40033e-02_rb,0.37116e-02_rb,0.33595e-02_rb,0.29464e-02_rb, &
+        & 0.24646e-02_rb,0.19290e-02_rb,0.13037e-02_rb,0.42584e-03_rb /)
+      kao(:, 4, 6, 7) = (/ &
+        & 0.41078e-02_rb,0.40382e-02_rb,0.37677e-02_rb,0.34232e-02_rb,0.30216e-02_rb, &
+        & 0.25463e-02_rb,0.20016e-02_rb,0.13624e-02_rb,0.47733e-03_rb /)
+      kao(:, 5, 6, 7) = (/ &
+        & 0.40964e-02_rb,0.40666e-02_rb,0.38151e-02_rb,0.34890e-02_rb,0.30973e-02_rb, &
+        & 0.26200e-02_rb,0.20705e-02_rb,0.14239e-02_rb,0.53330e-03_rb /)
+      kao(:, 1, 7, 7) = (/ &
+        & 0.37806e-02_rb,0.36256e-02_rb,0.32982e-02_rb,0.29389e-02_rb,0.25345e-02_rb, &
+        & 0.20760e-02_rb,0.15879e-02_rb,0.10489e-02_rb,0.28018e-03_rb /)
+      kao(:, 2, 7, 7) = (/ &
+        & 0.38204e-02_rb,0.36872e-02_rb,0.33713e-02_rb,0.30154e-02_rb,0.26103e-02_rb, &
+        & 0.21557e-02_rb,0.16619e-02_rb,0.11071e-02_rb,0.31519e-03_rb /)
+      kao(:, 3, 7, 7) = (/ &
+        & 0.38460e-02_rb,0.37374e-02_rb,0.34369e-02_rb,0.30817e-02_rb,0.26834e-02_rb, &
+        & 0.22319e-02_rb,0.17344e-02_rb,0.11636e-02_rb,0.35270e-03_rb /)
+      kao(:, 4, 7, 7) = (/ &
+        & 0.38578e-02_rb,0.37771e-02_rb,0.34946e-02_rb,0.31444e-02_rb,0.27541e-02_rb, &
+        & 0.23067e-02_rb,0.18034e-02_rb,0.12192e-02_rb,0.39298e-03_rb /)
+      kao(:, 5, 7, 7) = (/ &
+        & 0.38608e-02_rb,0.38134e-02_rb,0.35421e-02_rb,0.32035e-02_rb,0.28239e-02_rb, &
+        & 0.23777e-02_rb,0.18670e-02_rb,0.12748e-02_rb,0.43632e-03_rb /)
+      kao(:, 1, 8, 7) = (/ &
+        & 0.34769e-02_rb,0.33291e-02_rb,0.30196e-02_rb,0.26781e-02_rb,0.23024e-02_rb, &
+        & 0.18824e-02_rb,0.14244e-02_rb,0.92897e-03_rb,0.24101e-03_rb /)
+      kao(:, 2, 8, 7) = (/ &
+        & 0.35239e-02_rb,0.33972e-02_rb,0.30964e-02_rb,0.27587e-02_rb,0.23816e-02_rb, &
+        & 0.19578e-02_rb,0.14914e-02_rb,0.98181e-03_rb,0.27130e-03_rb /)
+      kao(:, 3, 8, 7) = (/ &
+        & 0.35607e-02_rb,0.34526e-02_rb,0.31656e-02_rb,0.28309e-02_rb,0.24544e-02_rb, &
+        & 0.20284e-02_rb,0.15562e-02_rb,0.10333e-02_rb,0.30255e-03_rb /)
+      kao(:, 4, 8, 7) = (/ &
+        & 0.35844e-02_rb,0.35023e-02_rb,0.32271e-02_rb,0.28968e-02_rb,0.25226e-02_rb, &
+        & 0.20957e-02_rb,0.16188e-02_rb,0.10830e-02_rb,0.33737e-03_rb /)
+      kao(:, 5, 8, 7) = (/ &
+        & 0.35961e-02_rb,0.35446e-02_rb,0.32825e-02_rb,0.29568e-02_rb,0.25866e-02_rb, &
+        & 0.21594e-02_rb,0.16782e-02_rb,0.11324e-02_rb,0.37448e-03_rb /)
+      kao(:, 1, 9, 7) = (/ &
+        & 0.31490e-02_rb,0.30162e-02_rb,0.27350e-02_rb,0.24183e-02_rb,0.20753e-02_rb, &
+        & 0.16954e-02_rb,0.12750e-02_rb,0.82561e-03_rb,0.24776e-03_rb /)
+      kao(:, 2, 9, 7) = (/ &
+        & 0.32098e-02_rb,0.30913e-02_rb,0.28147e-02_rb,0.25006e-02_rb,0.21544e-02_rb, &
+        & 0.17699e-02_rb,0.13387e-02_rb,0.87243e-03_rb,0.27735e-03_rb /)
+      kao(:, 3, 9, 7) = (/ &
+        & 0.32582e-02_rb,0.31563e-02_rb,0.28883e-02_rb,0.25742e-02_rb,0.22278e-02_rb, &
+        & 0.18394e-02_rb,0.14003e-02_rb,0.91830e-03_rb,0.30712e-03_rb /)
+      kao(:, 4, 9, 7) = (/ &
+        & 0.32928e-02_rb,0.32146e-02_rb,0.29543e-02_rb,0.26421e-02_rb,0.22954e-02_rb, &
+        & 0.19038e-02_rb,0.14592e-02_rb,0.96296e-03_rb,0.33982e-03_rb /)
+      kao(:, 5, 9, 7) = (/ &
+        & 0.33113e-02_rb,0.32637e-02_rb,0.30129e-02_rb,0.27034e-02_rb,0.23582e-02_rb, &
+        & 0.19652e-02_rb,0.15140e-02_rb,0.10071e-02_rb,0.37422e-03_rb /)
+      kao(:, 1,10, 7) = (/ &
+        & 0.28236e-02_rb,0.26993e-02_rb,0.24463e-02_rb,0.21584e-02_rb,0.18515e-02_rb, &
+        & 0.15144e-02_rb,0.11396e-02_rb,0.73456e-03_rb,0.30599e-03_rb /)
+      kao(:, 2,10, 7) = (/ &
+        & 0.28929e-02_rb,0.27796e-02_rb,0.25302e-02_rb,0.22416e-02_rb,0.19311e-02_rb, &
+        & 0.15864e-02_rb,0.12002e-02_rb,0.77955e-03_rb,0.32947e-03_rb /)
+      kao(:, 3,10, 7) = (/ &
+        & 0.29497e-02_rb,0.28523e-02_rb,0.26078e-02_rb,0.23174e-02_rb,0.20043e-02_rb, &
+        & 0.16542e-02_rb,0.12577e-02_rb,0.82291e-03_rb,0.35529e-03_rb /)
+      kao(:, 4,10, 7) = (/ &
+        & 0.29901e-02_rb,0.29165e-02_rb,0.26763e-02_rb,0.23877e-02_rb,0.20731e-02_rb, &
+        & 0.17177e-02_rb,0.13124e-02_rb,0.86431e-03_rb,0.38167e-03_rb /)
+      kao(:, 5,10, 7) = (/ &
+        & 0.30139e-02_rb,0.29672e-02_rb,0.27348e-02_rb,0.24509e-02_rb,0.21349e-02_rb, &
+        & 0.17760e-02_rb,0.13646e-02_rb,0.90496e-03_rb,0.40993e-03_rb /)
+      kao(:, 1,11, 7) = (/ &
+        & 0.25422e-02_rb,0.24347e-02_rb,0.22108e-02_rb,0.19505e-02_rb,0.16727e-02_rb, &
+        & 0.13714e-02_rb,0.10368e-02_rb,0.66936e-03_rb,0.31350e-03_rb /)
+      kao(:, 2,11, 7) = (/ &
+        & 0.26126e-02_rb,0.25184e-02_rb,0.22944e-02_rb,0.20307e-02_rb,0.17483e-02_rb, &
+        & 0.14377e-02_rb,0.10928e-02_rb,0.71181e-03_rb,0.33782e-03_rb /)
+      kao(:, 3,11, 7) = (/ &
+        & 0.26690e-02_rb,0.25901e-02_rb,0.23690e-02_rb,0.21043e-02_rb,0.18188e-02_rb, &
+        & 0.15016e-02_rb,0.11462e-02_rb,0.75188e-03_rb,0.35774e-03_rb /)
+      kao(:, 4,11, 7) = (/ &
+        & 0.27048e-02_rb,0.26504e-02_rb,0.24329e-02_rb,0.21704e-02_rb,0.18832e-02_rb, &
+        & 0.15599e-02_rb,0.11973e-02_rb,0.79054e-03_rb,0.37720e-03_rb /)
+      kao(:, 5,11, 7) = (/ &
+        & 0.27241e-02_rb,0.26964e-02_rb,0.24876e-02_rb,0.22289e-02_rb,0.19396e-02_rb, &
+        & 0.16131e-02_rb,0.12459e-02_rb,0.82843e-03_rb,0.39980e-03_rb /)
+      kao(:, 1,12, 7) = (/ &
+        & 0.22863e-02_rb,0.21916e-02_rb,0.19903e-02_rb,0.17560e-02_rb,0.15053e-02_rb, &
+        & 0.12361e-02_rb,0.93929e-03_rb,0.60469e-03_rb,0.28176e-03_rb /)
+      kao(:, 2,12, 7) = (/ &
+        & 0.23519e-02_rb,0.22705e-02_rb,0.20691e-02_rb,0.18315e-02_rb,0.15760e-02_rb, &
+        & 0.12985e-02_rb,0.99139e-03_rb,0.64462e-03_rb,0.30471e-03_rb /)
+      kao(:, 3,12, 7) = (/ &
+        & 0.23974e-02_rb,0.23352e-02_rb,0.21377e-02_rb,0.19000e-02_rb,0.16408e-02_rb, &
+        & 0.13574e-02_rb,0.10412e-02_rb,0.68214e-03_rb,0.32553e-03_rb /)
+      kao(:, 4,12, 7) = (/ &
+        & 0.24260e-02_rb,0.23879e-02_rb,0.21943e-02_rb,0.19602e-02_rb,0.16992e-02_rb, &
+        & 0.14109e-02_rb,0.10885e-02_rb,0.71852e-03_rb,0.34169e-03_rb /)
+      kao(:, 5,12, 7) = (/ &
+        & 0.24412e-02_rb,0.24274e-02_rb,0.22422e-02_rb,0.20116e-02_rb,0.17502e-02_rb, &
+        & 0.14591e-02_rb,0.11336e-02_rb,0.75474e-03_rb,0.36020e-03_rb /)
+      kao(:, 1,13, 7) = (/ &
+        & 0.20393e-02_rb,0.19603e-02_rb,0.17821e-02_rb,0.15739e-02_rb,0.13509e-02_rb, &
+        & 0.11133e-02_rb,0.84826e-03_rb,0.54289e-03_rb,0.23248e-03_rb /)
+      kao(:, 2,13, 7) = (/ &
+        & 0.20953e-02_rb,0.20307e-02_rb,0.18542e-02_rb,0.16433e-02_rb,0.14162e-02_rb, &
+        & 0.11712e-02_rb,0.89683e-03_rb,0.57958e-03_rb,0.25095e-03_rb /)
+      kao(:, 3,13, 7) = (/ &
+        & 0.21323e-02_rb,0.20881e-02_rb,0.19144e-02_rb,0.17046e-02_rb,0.14742e-02_rb, &
+        & 0.12241e-02_rb,0.94271e-03_rb,0.61480e-03_rb,0.26566e-03_rb /)
+      kao(:, 4,13, 7) = (/ &
+        & 0.21562e-02_rb,0.21324e-02_rb,0.19654e-02_rb,0.17578e-02_rb,0.15256e-02_rb, &
+        & 0.12715e-02_rb,0.98599e-03_rb,0.64941e-03_rb,0.28144e-03_rb /)
+      kao(:, 5,13, 7) = (/ &
+        & 0.21687e-02_rb,0.21674e-02_rb,0.20081e-02_rb,0.18029e-02_rb,0.15712e-02_rb, &
+        & 0.13148e-02_rb,0.10270e-02_rb,0.68370e-03_rb,0.29755e-03_rb /)
+      kao(:, 1, 1, 8) = (/ &
+        & 0.10084e-01_rb,0.95278e-02_rb,0.88730e-02_rb,0.81189e-02_rb,0.71873e-02_rb, &
+        & 0.61505e-02_rb,0.50159e-02_rb,0.37383e-02_rb,0.30410e-02_rb /)
+      kao(:, 2, 1, 8) = (/ &
+        & 0.10011e-01_rb,0.95195e-02_rb,0.89419e-02_rb,0.82272e-02_rb,0.73508e-02_rb, &
+        & 0.63699e-02_rb,0.52392e-02_rb,0.39784e-02_rb,0.34237e-02_rb /)
+      kao(:, 3, 1, 8) = (/ &
+        & 0.99285e-02_rb,0.95060e-02_rb,0.90107e-02_rb,0.83435e-02_rb,0.75299e-02_rb, &
+        & 0.65814e-02_rb,0.54661e-02_rb,0.42490e-02_rb,0.38569e-02_rb /)
+      kao(:, 4, 1, 8) = (/ &
+        & 0.98396e-02_rb,0.95039e-02_rb,0.90786e-02_rb,0.84657e-02_rb,0.77142e-02_rb, &
+        & 0.67908e-02_rb,0.57132e-02_rb,0.45510e-02_rb,0.43277e-02_rb /)
+      kao(:, 5, 1, 8) = (/ &
+        & 0.97470e-02_rb,0.95073e-02_rb,0.91451e-02_rb,0.85961e-02_rb,0.78983e-02_rb, &
+        & 0.70134e-02_rb,0.59878e-02_rb,0.48898e-02_rb,0.48367e-02_rb /)
+      kao(:, 1, 2, 8) = (/ &
+        & 0.10032e-01_rb,0.95001e-02_rb,0.88015e-02_rb,0.80012e-02_rb,0.70675e-02_rb, &
+        & 0.59994e-02_rb,0.48088e-02_rb,0.34803e-02_rb,0.24973e-02_rb /)
+      kao(:, 2, 2, 8) = (/ &
+        & 0.99727e-02_rb,0.94952e-02_rb,0.88708e-02_rb,0.81052e-02_rb,0.72227e-02_rb, &
+        & 0.61975e-02_rb,0.50149e-02_rb,0.36876e-02_rb,0.28262e-02_rb /)
+      kao(:, 3, 2, 8) = (/ &
+        & 0.99020e-02_rb,0.94876e-02_rb,0.89395e-02_rb,0.82200e-02_rb,0.73884e-02_rb, &
+        & 0.63917e-02_rb,0.52241e-02_rb,0.39189e-02_rb,0.31881e-02_rb /)
+      kao(:, 4, 2, 8) = (/ &
+        & 0.98208e-02_rb,0.94907e-02_rb,0.90072e-02_rb,0.83409e-02_rb,0.75534e-02_rb, &
+        & 0.65848e-02_rb,0.54476e-02_rb,0.41701e-02_rb,0.35802e-02_rb /)
+      kao(:, 5, 2, 8) = (/ &
+        & 0.97350e-02_rb,0.95036e-02_rb,0.90758e-02_rb,0.84664e-02_rb,0.77179e-02_rb, &
+        & 0.67885e-02_rb,0.56906e-02_rb,0.44399e-02_rb,0.40032e-02_rb /)
+      kao(:, 1, 3, 8) = (/ &
+        & 0.99249e-02_rb,0.94002e-02_rb,0.86731e-02_rb,0.78226e-02_rb,0.68627e-02_rb, &
+        & 0.57870e-02_rb,0.45641e-02_rb,0.32036e-02_rb,0.20068e-02_rb /)
+      kao(:, 2, 3, 8) = (/ &
+        & 0.98781e-02_rb,0.94039e-02_rb,0.87415e-02_rb,0.79225e-02_rb,0.70078e-02_rb, &
+        & 0.59682e-02_rb,0.47504e-02_rb,0.33906e-02_rb,0.22741e-02_rb /)
+      kao(:, 3, 3, 8) = (/ &
+        & 0.98245e-02_rb,0.94056e-02_rb,0.88077e-02_rb,0.80290e-02_rb,0.71634e-02_rb, &
+        & 0.61455e-02_rb,0.49439e-02_rb,0.35923e-02_rb,0.25675e-02_rb /)
+      kao(:, 4, 3, 8) = (/ &
+        & 0.97585e-02_rb,0.94181e-02_rb,0.88723e-02_rb,0.81452e-02_rb,0.73134e-02_rb, &
+        & 0.63196e-02_rb,0.51498e-02_rb,0.38082e-02_rb,0.28828e-02_rb /)
+      kao(:, 5, 3, 8) = (/ &
+        & 0.96800e-02_rb,0.94346e-02_rb,0.89400e-02_rb,0.82650e-02_rb,0.74596e-02_rb, &
+        & 0.65093e-02_rb,0.53613e-02_rb,0.40378e-02_rb,0.32210e-02_rb /)
+      kao(:, 1, 4, 8) = (/ &
+        & 0.97390e-02_rb,0.92223e-02_rb,0.84805e-02_rb,0.75962e-02_rb,0.66183e-02_rb, &
+        & 0.55421e-02_rb,0.43153e-02_rb,0.29439e-02_rb,0.16096e-02_rb /)
+      kao(:, 2, 4, 8) = (/ &
+        & 0.97149e-02_rb,0.92440e-02_rb,0.85515e-02_rb,0.76965e-02_rb,0.67525e-02_rb, &
+        & 0.57037e-02_rb,0.44852e-02_rb,0.31152e-02_rb,0.18298e-02_rb /)
+      kao(:, 3, 4, 8) = (/ &
+        & 0.96772e-02_rb,0.92607e-02_rb,0.86210e-02_rb,0.78004e-02_rb,0.68947e-02_rb, &
+        & 0.58626e-02_rb,0.46601e-02_rb,0.32973e-02_rb,0.20675e-02_rb /)
+      kao(:, 4, 4, 8) = (/ &
+        & 0.96222e-02_rb,0.92823e-02_rb,0.86884e-02_rb,0.79077e-02_rb,0.70317e-02_rb, &
+        & 0.60213e-02_rb,0.48471e-02_rb,0.34874e-02_rb,0.23199e-02_rb /)
+      kao(:, 5, 4, 8) = (/ &
+        & 0.95548e-02_rb,0.93032e-02_rb,0.87544e-02_rb,0.80177e-02_rb,0.71673e-02_rb, &
+        & 0.61924e-02_rb,0.50398e-02_rb,0.36845e-02_rb,0.25914e-02_rb /)
+      kao(:, 1, 5, 8) = (/ &
+        & 0.94682e-02_rb,0.89654e-02_rb,0.82210e-02_rb,0.73222e-02_rb,0.63403e-02_rb, &
+        & 0.52735e-02_rb,0.40692e-02_rb,0.27114e-02_rb,0.12929e-02_rb /)
+      kao(:, 2, 5, 8) = (/ &
+        & 0.94609e-02_rb,0.90053e-02_rb,0.83016e-02_rb,0.74278e-02_rb,0.64685e-02_rb, &
+        & 0.54213e-02_rb,0.42231e-02_rb,0.28638e-02_rb,0.14728e-02_rb /)
+      kao(:, 3, 5, 8) = (/ &
+        & 0.94353e-02_rb,0.90391e-02_rb,0.83802e-02_rb,0.75305e-02_rb,0.66027e-02_rb, &
+        & 0.55646e-02_rb,0.43790e-02_rb,0.30279e-02_rb,0.16663e-02_rb /)
+      kao(:, 4, 5, 8) = (/ &
+        & 0.93989e-02_rb,0.90684e-02_rb,0.84481e-02_rb,0.76404e-02_rb,0.67294e-02_rb, &
+        & 0.57082e-02_rb,0.45495e-02_rb,0.31980e-02_rb,0.18711e-02_rb /)
+      kao(:, 5, 5, 8) = (/ &
+        & 0.93472e-02_rb,0.90926e-02_rb,0.85136e-02_rb,0.77442e-02_rb,0.68542e-02_rb, &
+        & 0.58646e-02_rb,0.47259e-02_rb,0.33701e-02_rb,0.20921e-02_rb /)
+      kao(:, 1, 6, 8) = (/ &
+        & 0.90687e-02_rb,0.86083e-02_rb,0.78842e-02_rb,0.69920e-02_rb,0.60171e-02_rb, &
+        & 0.49784e-02_rb,0.38163e-02_rb,0.24892e-02_rb,0.10375e-02_rb /)
+      kao(:, 2, 6, 8) = (/ &
+        & 0.90845e-02_rb,0.86742e-02_rb,0.79759e-02_rb,0.71037e-02_rb,0.61494e-02_rb, &
+        & 0.51176e-02_rb,0.39577e-02_rb,0.26285e-02_rb,0.11848e-02_rb /)
+      kao(:, 3, 6, 8) = (/ &
+        & 0.90836e-02_rb,0.87225e-02_rb,0.80580e-02_rb,0.72119e-02_rb,0.62799e-02_rb, &
+        & 0.52546e-02_rb,0.41006e-02_rb,0.27750e-02_rb,0.13422e-02_rb /)
+      kao(:, 4, 6, 8) = (/ &
+        & 0.90655e-02_rb,0.87611e-02_rb,0.81305e-02_rb,0.73221e-02_rb,0.64054e-02_rb, &
+        & 0.53892e-02_rb,0.42503e-02_rb,0.29301e-02_rb,0.15078e-02_rb /)
+      kao(:, 5, 6, 8) = (/ &
+        & 0.90286e-02_rb,0.87944e-02_rb,0.82022e-02_rb,0.74247e-02_rb,0.65248e-02_rb, &
+        & 0.55305e-02_rb,0.44113e-02_rb,0.30838e-02_rb,0.16859e-02_rb /)
+      kao(:, 1, 7, 8) = (/ &
+        & 0.85850e-02_rb,0.81350e-02_rb,0.74326e-02_rb,0.65794e-02_rb,0.56482e-02_rb, &
+        & 0.46582e-02_rb,0.35544e-02_rb,0.22844e-02_rb,0.80765e-03_rb /)
+      kao(:, 2, 7, 8) = (/ &
+        & 0.86250e-02_rb,0.82179e-02_rb,0.75359e-02_rb,0.67022e-02_rb,0.57899e-02_rb, &
+        & 0.47962e-02_rb,0.36869e-02_rb,0.24122e-02_rb,0.92682e-03_rb /)
+      kao(:, 3, 7, 8) = (/ &
+        & 0.86440e-02_rb,0.82839e-02_rb,0.76315e-02_rb,0.68246e-02_rb,0.59218e-02_rb, &
+        & 0.49298e-02_rb,0.38219e-02_rb,0.25431e-02_rb,0.10538e-02_rb /)
+      kao(:, 4, 7, 8) = (/ &
+        & 0.86410e-02_rb,0.83371e-02_rb,0.77195e-02_rb,0.69421e-02_rb,0.60483e-02_rb, &
+        & 0.50620e-02_rb,0.39587e-02_rb,0.26818e-02_rb,0.11890e-02_rb /)
+      kao(:, 5, 7, 8) = (/ &
+        & 0.86213e-02_rb,0.83816e-02_rb,0.78035e-02_rb,0.70537e-02_rb,0.61695e-02_rb, &
+        & 0.51947e-02_rb,0.41038e-02_rb,0.28206e-02_rb,0.13358e-02_rb /)
+      kao(:, 1, 8, 8) = (/ &
+        & 0.80690e-02_rb,0.76260e-02_rb,0.69398e-02_rb,0.61270e-02_rb,0.52372e-02_rb, &
+        & 0.42965e-02_rb,0.32695e-02_rb,0.20922e-02_rb,0.69791e-03_rb /)
+      kao(:, 2, 8, 8) = (/ &
+        & 0.81346e-02_rb,0.77325e-02_rb,0.70609e-02_rb,0.62554e-02_rb,0.53744e-02_rb, &
+        & 0.44362e-02_rb,0.34019e-02_rb,0.22104e-02_rb,0.78609e-03_rb /)
+      kao(:, 3, 8, 8) = (/ &
+        & 0.81749e-02_rb,0.78188e-02_rb,0.71688e-02_rb,0.63791e-02_rb,0.55086e-02_rb, &
+        & 0.45702e-02_rb,0.35360e-02_rb,0.23302e-02_rb,0.88068e-03_rb /)
+      kao(:, 4, 8, 8) = (/ &
+        & 0.81959e-02_rb,0.78839e-02_rb,0.72650e-02_rb,0.64997e-02_rb,0.56387e-02_rb, &
+        & 0.47059e-02_rb,0.36681e-02_rb,0.24532e-02_rb,0.97840e-03_rb /)
+      kao(:, 5, 8, 8) = (/ &
+        & 0.81937e-02_rb,0.79411e-02_rb,0.73546e-02_rb,0.66134e-02_rb,0.57649e-02_rb, &
+        & 0.48383e-02_rb,0.38022e-02_rb,0.25773e-02_rb,0.10847e-02_rb /)
+      kao(:, 1, 9, 8) = (/ &
+        & 0.75182e-02_rb,0.70907e-02_rb,0.64287e-02_rb,0.56605e-02_rb,0.48216e-02_rb, &
+        & 0.39323e-02_rb,0.29776e-02_rb,0.18987e-02_rb,0.67472e-03_rb /)
+      kao(:, 2, 9, 8) = (/ &
+        & 0.76076e-02_rb,0.72195e-02_rb,0.65653e-02_rb,0.58009e-02_rb,0.49640e-02_rb, &
+        & 0.40692e-02_rb,0.31049e-02_rb,0.20098e-02_rb,0.74914e-03_rb /)
+      kao(:, 3, 9, 8) = (/ &
+        & 0.76735e-02_rb,0.73227e-02_rb,0.66862e-02_rb,0.59346e-02_rb,0.51012e-02_rb, &
+        & 0.42015e-02_rb,0.32328e-02_rb,0.21222e-02_rb,0.83367e-03_rb /)
+      kao(:, 4, 9, 8) = (/ &
+        & 0.77132e-02_rb,0.74045e-02_rb,0.67969e-02_rb,0.60620e-02_rb,0.52309e-02_rb, &
+        & 0.43347e-02_rb,0.33599e-02_rb,0.22355e-02_rb,0.91964e-03_rb /)
+      kao(:, 5, 9, 8) = (/ &
+        & 0.77286e-02_rb,0.74752e-02_rb,0.68965e-02_rb,0.61793e-02_rb,0.53584e-02_rb, &
+        & 0.44621e-02_rb,0.34884e-02_rb,0.23497e-02_rb,0.10114e-02_rb /)
+      kao(:, 1,10, 8) = (/ &
+        & 0.70149e-02_rb,0.65825e-02_rb,0.59329e-02_rb,0.52017e-02_rb,0.44219e-02_rb, &
+        & 0.35899e-02_rb,0.27069e-02_rb,0.17187e-02_rb,0.74519e-03_rb /)
+      kao(:, 2,10, 8) = (/ &
+        & 0.71248e-02_rb,0.67269e-02_rb,0.60810e-02_rb,0.53515e-02_rb,0.45670e-02_rb, &
+        & 0.37282e-02_rb,0.28313e-02_rb,0.18204e-02_rb,0.83494e-03_rb /)
+      kao(:, 3,10, 8) = (/ &
+        & 0.72044e-02_rb,0.68394e-02_rb,0.62076e-02_rb,0.54929e-02_rb,0.47097e-02_rb, &
+        & 0.38613e-02_rb,0.29540e-02_rb,0.19235e-02_rb,0.93279e-03_rb /)
+      kao(:, 4,10, 8) = (/ &
+        & 0.72597e-02_rb,0.69309e-02_rb,0.63267e-02_rb,0.56269e-02_rb,0.48423e-02_rb, &
+        & 0.39913e-02_rb,0.30764e-02_rb,0.20273e-02_rb,0.10348e-02_rb /)
+      kao(:, 5,10, 8) = (/ &
+        & 0.72955e-02_rb,0.70104e-02_rb,0.64378e-02_rb,0.57479e-02_rb,0.49695e-02_rb, &
+        & 0.41180e-02_rb,0.31960e-02_rb,0.21324e-02_rb,0.11387e-02_rb /)
+      kao(:, 1,11, 8) = (/ &
+        & 0.65628e-02_rb,0.61735e-02_rb,0.55551e-02_rb,0.48677e-02_rb,0.41265e-02_rb, &
+        & 0.33334e-02_rb,0.25028e-02_rb,0.15938e-02_rb,0.74406e-03_rb /)
+      kao(:, 2,11, 8) = (/ &
+        & 0.66786e-02_rb,0.63151e-02_rb,0.57025e-02_rb,0.50172e-02_rb,0.42702e-02_rb, &
+        & 0.34674e-02_rb,0.26229e-02_rb,0.16875e-02_rb,0.82711e-03_rb /)
+      kao(:, 3,11, 8) = (/ &
+        & 0.67664e-02_rb,0.64350e-02_rb,0.58347e-02_rb,0.51562e-02_rb,0.44059e-02_rb, &
+        & 0.35945e-02_rb,0.27422e-02_rb,0.17822e-02_rb,0.92379e-03_rb /)
+      kao(:, 4,11, 8) = (/ &
+        & 0.68381e-02_rb,0.65357e-02_rb,0.59597e-02_rb,0.52850e-02_rb,0.45292e-02_rb, &
+        & 0.37195e-02_rb,0.28585e-02_rb,0.18773e-02_rb,0.10214e-02_rb /)
+      kao(:, 5,11, 8) = (/ &
+        & 0.68910e-02_rb,0.66274e-02_rb,0.60702e-02_rb,0.54014e-02_rb,0.46503e-02_rb, &
+        & 0.38396e-02_rb,0.29707e-02_rb,0.19733e-02_rb,0.11179e-02_rb /)
+      kao(:, 1,12, 8) = (/ &
+        & 0.60794e-02_rb,0.57316e-02_rb,0.51563e-02_rb,0.45236e-02_rb,0.38371e-02_rb, &
+        & 0.31013e-02_rb,0.23239e-02_rb,0.14745e-02_rb,0.70212e-03_rb /)
+      kao(:, 2,12, 8) = (/ &
+        & 0.62026e-02_rb,0.58782e-02_rb,0.53110e-02_rb,0.46778e-02_rb,0.39838e-02_rb, &
+        & 0.32334e-02_rb,0.24368e-02_rb,0.15615e-02_rb,0.77146e-03_rb /)
+      kao(:, 3,12, 8) = (/ &
+        & 0.63087e-02_rb,0.60102e-02_rb,0.54544e-02_rb,0.48220e-02_rb,0.41191e-02_rb, &
+        & 0.33562e-02_rb,0.25462e-02_rb,0.16493e-02_rb,0.85116e-03_rb /)
+      kao(:, 4,12, 8) = (/ &
+        & 0.63948e-02_rb,0.61265e-02_rb,0.55863e-02_rb,0.49541e-02_rb,0.42453e-02_rb, &
+        & 0.34753e-02_rb,0.26508e-02_rb,0.17372e-02_rb,0.93862e-03_rb /)
+      kao(:, 5,12, 8) = (/ &
+        & 0.64607e-02_rb,0.62309e-02_rb,0.57052e-02_rb,0.50757e-02_rb,0.43660e-02_rb, &
+        & 0.35907e-02_rb,0.27548e-02_rb,0.18249e-02_rb,0.10221e-02_rb /)
+      kao(:, 1,13, 8) = (/ &
+        & 0.55937e-02_rb,0.52793e-02_rb,0.47517e-02_rb,0.41692e-02_rb,0.35394e-02_rb, &
+        & 0.28625e-02_rb,0.21454e-02_rb,0.13668e-02_rb,0.61956e-03_rb /)
+      kao(:, 2,13, 8) = (/ &
+        & 0.57319e-02_rb,0.54374e-02_rb,0.49129e-02_rb,0.43258e-02_rb,0.36843e-02_rb, &
+        & 0.29907e-02_rb,0.22551e-02_rb,0.14474e-02_rb,0.68007e-03_rb /)
+      kao(:, 3,13, 8) = (/ &
+        & 0.58515e-02_rb,0.55788e-02_rb,0.50622e-02_rb,0.44734e-02_rb,0.38194e-02_rb, &
+        & 0.31146e-02_rb,0.23600e-02_rb,0.15267e-02_rb,0.75016e-03_rb /)
+      kao(:, 4,13, 8) = (/ &
+        & 0.59483e-02_rb,0.57068e-02_rb,0.51995e-02_rb,0.46068e-02_rb,0.39501e-02_rb, &
+        & 0.32357e-02_rb,0.24610e-02_rb,0.16061e-02_rb,0.82038e-03_rb /)
+      kao(:, 5,13, 8) = (/ &
+        & 0.60233e-02_rb,0.58195e-02_rb,0.53236e-02_rb,0.47349e-02_rb,0.40732e-02_rb, &
+        & 0.33509e-02_rb,0.25596e-02_rb,0.16868e-02_rb,0.89122e-03_rb /)
+      kao(:, 1, 1, 9) = (/ &
+        & 0.19771e-01_rb,0.18370e-01_rb,0.17356e-01_rb,0.16079e-01_rb,0.14680e-01_rb, &
+        & 0.13282e-01_rb,0.11980e-01_rb,0.11582e-01_rb,0.12985e-01_rb /)
+      kao(:, 2, 1, 9) = (/ &
+        & 0.19636e-01_rb,0.18337e-01_rb,0.17425e-01_rb,0.16276e-01_rb,0.15036e-01_rb, &
+        & 0.13800e-01_rb,0.12788e-01_rb,0.12799e-01_rb,0.14491e-01_rb /)
+      kao(:, 3, 1, 9) = (/ &
+        & 0.19487e-01_rb,0.18291e-01_rb,0.17516e-01_rb,0.16543e-01_rb,0.15458e-01_rb, &
+        & 0.14398e-01_rb,0.13717e-01_rb,0.14121e-01_rb,0.16094e-01_rb /)
+      kao(:, 4, 1, 9) = (/ &
+        & 0.19329e-01_rb,0.18244e-01_rb,0.17665e-01_rb,0.16858e-01_rb,0.15921e-01_rb, &
+        & 0.15082e-01_rb,0.14738e-01_rb,0.15534e-01_rb,0.17796e-01_rb /)
+      kao(:, 5, 1, 9) = (/ &
+        & 0.19162e-01_rb,0.18208e-01_rb,0.17862e-01_rb,0.17203e-01_rb,0.16407e-01_rb, &
+        & 0.15804e-01_rb,0.15831e-01_rb,0.17016e-01_rb,0.19554e-01_rb /)
+      kao(:, 1, 2, 9) = (/ &
+        & 0.20491e-01_rb,0.19041e-01_rb,0.17931e-01_rb,0.16490e-01_rb,0.14871e-01_rb, &
+        & 0.13204e-01_rb,0.11551e-01_rb,0.10493e-01_rb,0.11370e-01_rb /)
+      kao(:, 2, 2, 9) = (/ &
+        & 0.20351e-01_rb,0.19021e-01_rb,0.18003e-01_rb,0.16688e-01_rb,0.15207e-01_rb, &
+        & 0.13674e-01_rb,0.12228e-01_rb,0.11542e-01_rb,0.12722e-01_rb /)
+      kao(:, 3, 2, 9) = (/ &
+        & 0.20205e-01_rb,0.18987e-01_rb,0.18097e-01_rb,0.16946e-01_rb,0.15590e-01_rb, &
+        & 0.14204e-01_rb,0.13003e-01_rb,0.12703e-01_rb,0.14170e-01_rb /)
+      kao(:, 4, 2, 9) = (/ &
+        & 0.20054e-01_rb,0.18946e-01_rb,0.18241e-01_rb,0.17244e-01_rb,0.16012e-01_rb, &
+        & 0.14800e-01_rb,0.13862e-01_rb,0.13953e-01_rb,0.15702e-01_rb /)
+      kao(:, 5, 2, 9) = (/ &
+        & 0.19890e-01_rb,0.18914e-01_rb,0.18431e-01_rb,0.17568e-01_rb,0.16464e-01_rb, &
+        & 0.15445e-01_rb,0.14813e-01_rb,0.15302e-01_rb,0.17318e-01_rb /)
+      kao(:, 1, 3, 9) = (/ &
+        & 0.21143e-01_rb,0.19662e-01_rb,0.18419e-01_rb,0.16811e-01_rb,0.15005e-01_rb, &
+        & 0.13075e-01_rb,0.11094e-01_rb,0.93893e-02_rb,0.95682e-02_rb /)
+      kao(:, 2, 3, 9) = (/ &
+        & 0.21021e-01_rb,0.19658e-01_rb,0.18498e-01_rb,0.17007e-01_rb,0.15312e-01_rb, &
+        & 0.13491e-01_rb,0.11661e-01_rb,0.10256e-01_rb,0.10742e-01_rb /)
+      kao(:, 3, 3, 9) = (/ &
+        & 0.20887e-01_rb,0.19635e-01_rb,0.18594e-01_rb,0.17251e-01_rb,0.15669e-01_rb, &
+        & 0.13959e-01_rb,0.12304e-01_rb,0.11227e-01_rb,0.12012e-01_rb /)
+      kao(:, 4, 3, 9) = (/ &
+        & 0.20742e-01_rb,0.19603e-01_rb,0.18727e-01_rb,0.17530e-01_rb,0.16058e-01_rb, &
+        & 0.14485e-01_rb,0.13015e-01_rb,0.12294e-01_rb,0.13375e-01_rb /)
+      kao(:, 5, 3, 9) = (/ &
+        & 0.20582e-01_rb,0.19578e-01_rb,0.18903e-01_rb,0.17831e-01_rb,0.16483e-01_rb, &
+        & 0.15047e-01_rb,0.13818e-01_rb,0.13471e-01_rb,0.14836e-01_rb /)
+      kao(:, 1, 4, 9) = (/ &
+        & 0.21726e-01_rb,0.20199e-01_rb,0.18812e-01_rb,0.17047e-01_rb,0.15080e-01_rb, &
+        & 0.12938e-01_rb,0.10693e-01_rb,0.84650e-02_rb,0.79270e-02_rb /)
+      kao(:, 2, 4, 9) = (/ &
+        & 0.21624e-01_rb,0.20213e-01_rb,0.18897e-01_rb,0.17238e-01_rb,0.15368e-01_rb, &
+        & 0.13326e-01_rb,0.11175e-01_rb,0.91656e-02_rb,0.89409e-02_rb /)
+      kao(:, 3, 4, 9) = (/ &
+        & 0.21502e-01_rb,0.20207e-01_rb,0.18990e-01_rb,0.17468e-01_rb,0.15708e-01_rb, &
+        & 0.13755e-01_rb,0.11721e-01_rb,0.99561e-02_rb,0.10044e-01_rb /)
+      kao(:, 4, 4, 9) = (/ &
+        & 0.21364e-01_rb,0.20186e-01_rb,0.19114e-01_rb,0.17747e-01_rb,0.16075e-01_rb, &
+        & 0.14230e-01_rb,0.12327e-01_rb,0.10844e-01_rb,0.11238e-01_rb /)
+      kao(:, 5, 4, 9) = (/ &
+        & 0.21208e-01_rb,0.20165e-01_rb,0.19280e-01_rb,0.18035e-01_rb,0.16477e-01_rb, &
+        & 0.14734e-01_rb,0.13004e-01_rb,0.11837e-01_rb,0.12527e-01_rb /)
+      kao(:, 1, 5, 9) = (/ &
+        & 0.22212e-01_rb,0.20643e-01_rb,0.19101e-01_rb,0.17193e-01_rb,0.15094e-01_rb, &
+        & 0.12790e-01_rb,0.10344e-01_rb,0.77661e-02_rb,0.65292e-02_rb /)
+      kao(:, 2, 5, 9) = (/ &
+        & 0.22131e-01_rb,0.20679e-01_rb,0.19192e-01_rb,0.17388e-01_rb,0.15373e-01_rb, &
+        & 0.13156e-01_rb,0.10779e-01_rb,0.83326e-02_rb,0.74004e-02_rb /)
+      kao(:, 3, 5, 9) = (/ &
+        & 0.22024e-01_rb,0.20689e-01_rb,0.19289e-01_rb,0.17614e-01_rb,0.15701e-01_rb, &
+        & 0.13560e-01_rb,0.11259e-01_rb,0.89716e-02_rb,0.83509e-02_rb /)
+      kao(:, 4, 5, 9) = (/ &
+        & 0.21891e-01_rb,0.20674e-01_rb,0.19419e-01_rb,0.17880e-01_rb,0.16055e-01_rb, &
+        & 0.14002e-01_rb,0.11784e-01_rb,0.96942e-02_rb,0.93863e-02_rb /)
+      kao(:, 5, 5, 9) = (/ &
+        & 0.21733e-01_rb,0.20659e-01_rb,0.19581e-01_rb,0.18166e-01_rb,0.16436e-01_rb, &
+        & 0.14467e-01_rb,0.12356e-01_rb,0.10508e-01_rb,0.10499e-01_rb /)
+      kao(:, 1, 6, 9) = (/ &
+        & 0.22561e-01_rb,0.20963e-01_rb,0.19278e-01_rb,0.17248e-01_rb,0.15027e-01_rb, &
+        & 0.12605e-01_rb,0.99913e-02_rb,0.71998e-02_rb,0.53191e-02_rb /)
+      kao(:, 2, 6, 9) = (/ &
+        & 0.22505e-01_rb,0.21027e-01_rb,0.19391e-01_rb,0.17451e-01_rb,0.15296e-01_rb, &
+        & 0.12947e-01_rb,0.10394e-01_rb,0.76719e-02_rb,0.60628e-02_rb /)
+      kao(:, 3, 6, 9) = (/ &
+        & 0.22407e-01_rb,0.21057e-01_rb,0.19505e-01_rb,0.17673e-01_rb,0.15617e-01_rb, &
+        & 0.13330e-01_rb,0.10834e-01_rb,0.82004e-02_rb,0.68698e-02_rb /)
+      kao(:, 4, 6, 9) = (/ &
+        & 0.22287e-01_rb,0.21061e-01_rb,0.19636e-01_rb,0.17933e-01_rb,0.15963e-01_rb, &
+        & 0.13742e-01_rb,0.11312e-01_rb,0.87854e-02_rb,0.77488e-02_rb /)
+      kao(:, 5, 6, 9) = (/ &
+        & 0.22148e-01_rb,0.21053e-01_rb,0.19794e-01_rb,0.18212e-01_rb,0.16329e-01_rb, &
+        & 0.14180e-01_rb,0.11816e-01_rb,0.94417e-02_rb,0.86993e-02_rb /)
+      kao(:, 1, 7, 9) = (/ &
+        & 0.22745e-01_rb,0.21135e-01_rb,0.19327e-01_rb,0.17197e-01_rb,0.14893e-01_rb, &
+        & 0.12374e-01_rb,0.96536e-02_rb,0.67256e-02_rb,0.43127e-02_rb /)
+      kao(:, 2, 7, 9) = (/ &
+        & 0.22707e-01_rb,0.21230e-01_rb,0.19474e-01_rb,0.17423e-01_rb,0.15162e-01_rb, &
+        & 0.12700e-01_rb,0.10030e-01_rb,0.71370e-02_rb,0.49389e-02_rb /)
+      kao(:, 3, 7, 9) = (/ &
+        & 0.22632e-01_rb,0.21281e-01_rb,0.19608e-01_rb,0.17649e-01_rb,0.15471e-01_rb, &
+        & 0.13070e-01_rb,0.10436e-01_rb,0.75822e-02_rb,0.56174e-02_rb /)
+      kao(:, 4, 7, 9) = (/ &
+        & 0.22537e-01_rb,0.21307e-01_rb,0.19744e-01_rb,0.17903e-01_rb,0.15813e-01_rb, &
+        & 0.13461e-01_rb,0.10872e-01_rb,0.80682e-02_rb,0.63562e-02_rb /)
+      kao(:, 5, 7, 9) = (/ &
+        & 0.22420e-01_rb,0.21314e-01_rb,0.19904e-01_rb,0.18182e-01_rb,0.16160e-01_rb, &
+        & 0.13874e-01_rb,0.11331e-01_rb,0.86088e-02_rb,0.71565e-02_rb /)
+      kao(:, 1, 8, 9) = (/ &
+        & 0.22742e-01_rb,0.21141e-01_rb,0.19244e-01_rb,0.17036e-01_rb,0.14667e-01_rb, &
+        & 0.12093e-01_rb,0.93194e-02_rb,0.63016e-02_rb,0.33604e-02_rb /)
+      kao(:, 2, 8, 9) = (/ &
+        & 0.22738e-01_rb,0.21267e-01_rb,0.19420e-01_rb,0.17289e-01_rb,0.14951e-01_rb, &
+        & 0.12414e-01_rb,0.96717e-02_rb,0.66654e-02_rb,0.38903e-02_rb /)
+      kao(:, 3, 8, 9) = (/ &
+        & 0.22699e-01_rb,0.21347e-01_rb,0.19574e-01_rb,0.17525e-01_rb,0.15260e-01_rb, &
+        & 0.12775e-01_rb,0.10048e-01_rb,0.70608e-02_rb,0.44626e-02_rb /)
+      kao(:, 4, 8, 9) = (/ &
+        & 0.22634e-01_rb,0.21402e-01_rb,0.19725e-01_rb,0.17775e-01_rb,0.15596e-01_rb, &
+        & 0.13150e-01_rb,0.10455e-01_rb,0.74847e-02_rb,0.50904e-02_rb /)
+      kao(:, 5, 8, 9) = (/ &
+        & 0.22550e-01_rb,0.21432e-01_rb,0.19888e-01_rb,0.18059e-01_rb,0.15936e-01_rb, &
+        & 0.13540e-01_rb,0.10879e-01_rb,0.79454e-02_rb,0.57754e-02_rb /)
+      kao(:, 1, 9, 9) = (/ &
+        & 0.22571e-01_rb,0.20980e-01_rb,0.19017e-01_rb,0.16764e-01_rb,0.14350e-01_rb, &
+        & 0.11743e-01_rb,0.89583e-02_rb,0.59107e-02_rb,0.27753e-02_rb /)
+      kao(:, 2, 9, 9) = (/ &
+        & 0.22607e-01_rb,0.21147e-01_rb,0.19231e-01_rb,0.17040e-01_rb,0.14648e-01_rb, &
+        & 0.12069e-01_rb,0.92988e-02_rb,0.62425e-02_rb,0.31527e-02_rb /)
+      kao(:, 3, 9, 9) = (/ &
+        & 0.22609e-01_rb,0.21268e-01_rb,0.19413e-01_rb,0.17284e-01_rb,0.14954e-01_rb, &
+        & 0.12424e-01_rb,0.96568e-02_rb,0.66010e-02_rb,0.35387e-02_rb /)
+      kao(:, 4, 9, 9) = (/ &
+        & 0.22589e-01_rb,0.21355e-01_rb,0.19582e-01_rb,0.17535e-01_rb,0.15285e-01_rb, &
+        & 0.12790e-01_rb,0.10038e-01_rb,0.69765e-02_rb,0.39766e-02_rb /)
+      kao(:, 5, 9, 9) = (/ &
+        & 0.22546e-01_rb,0.21413e-01_rb,0.19758e-01_rb,0.17821e-01_rb,0.15622e-01_rb, &
+        & 0.13166e-01_rb,0.10432e-01_rb,0.73821e-02_rb,0.44450e-02_rb /)
+      kao(:, 1,10, 9) = (/ &
+        & 0.22137e-01_rb,0.20618e-01_rb,0.18650e-01_rb,0.16403e-01_rb,0.13972e-01_rb, &
+        & 0.11364e-01_rb,0.85848e-02_rb,0.55632e-02_rb,0.31593e-02_rb /)
+      kao(:, 2,10, 9) = (/ &
+        & 0.22231e-01_rb,0.20835e-01_rb,0.18905e-01_rb,0.16706e-01_rb,0.14289e-01_rb, &
+        & 0.11695e-01_rb,0.89167e-02_rb,0.58739e-02_rb,0.35325e-02_rb /)
+      kao(:, 3,10, 9) = (/ &
+        & 0.22295e-01_rb,0.21010e-01_rb,0.19131e-01_rb,0.16972e-01_rb,0.14595e-01_rb, &
+        & 0.12040e-01_rb,0.92665e-02_rb,0.62059e-02_rb,0.39315e-02_rb /)
+      kao(:, 4,10, 9) = (/ &
+        & 0.22331e-01_rb,0.21144e-01_rb,0.19334e-01_rb,0.17233e-01_rb,0.14916e-01_rb, &
+        & 0.12396e-01_rb,0.96355e-02_rb,0.65507e-02_rb,0.43409e-02_rb /)
+      kao(:, 5,10, 9) = (/ &
+        & 0.22332e-01_rb,0.21248e-01_rb,0.19527e-01_rb,0.17517e-01_rb,0.15252e-01_rb, &
+        & 0.12765e-01_rb,0.10012e-01_rb,0.69176e-02_rb,0.47851e-02_rb /)
+      kao(:, 1,11, 9) = (/ &
+        & 0.21611e-01_rb,0.20177e-01_rb,0.18220e-01_rb,0.16014e-01_rb,0.13625e-01_rb, &
+        & 0.11072e-01_rb,0.83376e-02_rb,0.53526e-02_rb,0.32967e-02_rb /)
+      kao(:, 2,11, 9) = (/ &
+        & 0.21754e-01_rb,0.20431e-01_rb,0.18507e-01_rb,0.16333e-01_rb,0.13954e-01_rb, &
+        & 0.11415e-01_rb,0.86702e-02_rb,0.56558e-02_rb,0.36779e-02_rb /)
+      kao(:, 3,11, 9) = (/ &
+        & 0.21862e-01_rb,0.20634e-01_rb,0.18769e-01_rb,0.16624e-01_rb,0.14280e-01_rb, &
+        & 0.11762e-01_rb,0.90145e-02_rb,0.59759e-02_rb,0.40891e-02_rb /)
+      kao(:, 4,11, 9) = (/ &
+        & 0.21929e-01_rb,0.20796e-01_rb,0.18995e-01_rb,0.16914e-01_rb,0.14621e-01_rb, &
+        & 0.12122e-01_rb,0.93752e-02_rb,0.63026e-02_rb,0.45492e-02_rb /)
+      kao(:, 5,11, 9) = (/ &
+        & 0.21956e-01_rb,0.20925e-01_rb,0.19222e-01_rb,0.17218e-01_rb,0.14974e-01_rb, &
+        & 0.12492e-01_rb,0.97406e-02_rb,0.66508e-02_rb,0.50324e-02_rb /)
+      kao(:, 1,12, 9) = (/ &
+        & 0.20989e-01_rb,0.19649e-01_rb,0.17719e-01_rb,0.15554e-01_rb,0.13207e-01_rb, &
+        & 0.10709e-01_rb,0.80423e-02_rb,0.51308e-02_rb,0.32152e-02_rb /)
+      kao(:, 2,12, 9) = (/ &
+        & 0.21187e-01_rb,0.19941e-01_rb,0.18042e-01_rb,0.15892e-01_rb,0.13549e-01_rb, &
+        & 0.11055e-01_rb,0.83766e-02_rb,0.54250e-02_rb,0.35851e-02_rb /)
+      kao(:, 3,12, 9) = (/ &
+        & 0.21336e-01_rb,0.20173e-01_rb,0.18327e-01_rb,0.16203e-01_rb,0.13894e-01_rb, &
+        & 0.11411e-01_rb,0.87228e-02_rb,0.57329e-02_rb,0.40006e-02_rb /)
+      kao(:, 4,12, 9) = (/ &
+        & 0.21440e-01_rb,0.20364e-01_rb,0.18584e-01_rb,0.16516e-01_rb,0.14243e-01_rb, &
+        & 0.11781e-01_rb,0.90825e-02_rb,0.60483e-02_rb,0.44327e-02_rb /)
+      kao(:, 5,12, 9) = (/ &
+        & 0.21509e-01_rb,0.20531e-01_rb,0.18841e-01_rb,0.16838e-01_rb,0.14607e-01_rb, &
+        & 0.12155e-01_rb,0.94413e-02_rb,0.63798e-02_rb,0.48628e-02_rb /)
+      kao(:, 1,13, 9) = (/ &
+        & 0.20300e-01_rb,0.19036e-01_rb,0.17142e-01_rb,0.15033e-01_rb,0.12745e-01_rb, &
+        & 0.10318e-01_rb,0.77330e-02_rb,0.48977e-02_rb,0.29186e-02_rb /)
+      kao(:, 2,13, 9) = (/ &
+        & 0.20539e-01_rb,0.19361e-01_rb,0.17504e-01_rb,0.15398e-01_rb,0.13114e-01_rb, &
+        & 0.10679e-01_rb,0.80651e-02_rb,0.51844e-02_rb,0.32743e-02_rb /)
+      kao(:, 3,13, 9) = (/ &
+        & 0.20734e-01_rb,0.19633e-01_rb,0.17821e-01_rb,0.15739e-01_rb,0.13481e-01_rb, &
+        & 0.11044e-01_rb,0.84099e-02_rb,0.54812e-02_rb,0.36601e-02_rb /)
+      kao(:, 4,13, 9) = (/ &
+        & 0.20892e-01_rb,0.19871e-01_rb,0.18120e-01_rb,0.16090e-01_rb,0.13847e-01_rb, &
+        & 0.11415e-01_rb,0.87615e-02_rb,0.57863e-02_rb,0.40403e-02_rb /)
+      kao(:, 5,13, 9) = (/ &
+        & 0.21016e-01_rb,0.20092e-01_rb,0.18420e-01_rb,0.16433e-01_rb,0.14220e-01_rb, &
+        & 0.11787e-01_rb,0.91177e-02_rb,0.61020e-02_rb,0.44775e-02_rb /)
+      kao(:, 1, 1,10) = (/ &
+        & 0.32077e-01_rb,0.29717e-01_rb,0.27957e-01_rb,0.27088e-01_rb,0.26148e-01_rb, &
+        & 0.25463e-01_rb,0.27887e-01_rb,0.32409e-01_rb,0.37623e-01_rb /)
+      kao(:, 2, 1,10) = (/ &
+        & 0.31656e-01_rb,0.29512e-01_rb,0.28047e-01_rb,0.27317e-01_rb,0.26667e-01_rb, &
+        & 0.26788e-01_rb,0.30344e-01_rb,0.35248e-01_rb,0.40533e-01_rb /)
+      kao(:, 3, 1,10) = (/ &
+        & 0.31222e-01_rb,0.29398e-01_rb,0.28183e-01_rb,0.27633e-01_rb,0.27598e-01_rb, &
+        & 0.28788e-01_rb,0.33344e-01_rb,0.38694e-01_rb,0.44458e-01_rb /)
+      kao(:, 4, 1,10) = (/ &
+        & 0.30838e-01_rb,0.29185e-01_rb,0.28219e-01_rb,0.28269e-01_rb,0.28900e-01_rb, &
+        & 0.31215e-01_rb,0.36765e-01_rb,0.42659e-01_rb,0.48710e-01_rb /)
+      kao(:, 5, 1,10) = (/ &
+        & 0.30476e-01_rb,0.28982e-01_rb,0.28435e-01_rb,0.29011e-01_rb,0.30822e-01_rb, &
+        & 0.34422e-01_rb,0.40770e-01_rb,0.47309e-01_rb,0.54027e-01_rb /)
+      kao(:, 1, 2,10) = (/ &
+        & 0.34215e-01_rb,0.31859e-01_rb,0.30015e-01_rb,0.28551e-01_rb,0.26684e-01_rb, &
+        & 0.25243e-01_rb,0.25874e-01_rb,0.29803e-01_rb,0.34327e-01_rb /)
+      kao(:, 2, 2,10) = (/ &
+        & 0.33819e-01_rb,0.31701e-01_rb,0.30099e-01_rb,0.28712e-01_rb,0.27156e-01_rb, &
+        & 0.26446e-01_rb,0.28380e-01_rb,0.32886e-01_rb,0.37685e-01_rb /)
+      kao(:, 3, 2,10) = (/ &
+        & 0.33393e-01_rb,0.31477e-01_rb,0.30146e-01_rb,0.28931e-01_rb,0.28112e-01_rb, &
+        & 0.28308e-01_rb,0.31383e-01_rb,0.36360e-01_rb,0.41605e-01_rb /)
+      kao(:, 4, 2,10) = (/ &
+        & 0.33012e-01_rb,0.31222e-01_rb,0.30110e-01_rb,0.29460e-01_rb,0.29343e-01_rb, &
+        & 0.30463e-01_rb,0.34829e-01_rb,0.40350e-01_rb,0.46115e-01_rb /)
+      kao(:, 5, 2,10) = (/ &
+        & 0.32618e-01_rb,0.30977e-01_rb,0.30249e-01_rb,0.30140e-01_rb,0.31029e-01_rb, &
+        & 0.33086e-01_rb,0.38518e-01_rb,0.44611e-01_rb,0.51063e-01_rb /)
+      kao(:, 1, 3,10) = (/ &
+        & 0.36609e-01_rb,0.34016e-01_rb,0.32008e-01_rb,0.30013e-01_rb,0.27528e-01_rb, &
+        & 0.25143e-01_rb,0.24092e-01_rb,0.26746e-01_rb,0.30590e-01_rb /)
+      kao(:, 2, 3,10) = (/ &
+        & 0.36187e-01_rb,0.33816e-01_rb,0.32068e-01_rb,0.30121e-01_rb,0.27943e-01_rb, &
+        & 0.26137e-01_rb,0.26190e-01_rb,0.29769e-01_rb,0.34003e-01_rb /)
+      kao(:, 3, 3,10) = (/ &
+        & 0.35755e-01_rb,0.33555e-01_rb,0.32022e-01_rb,0.30354e-01_rb,0.28696e-01_rb, &
+        & 0.27732e-01_rb,0.28744e-01_rb,0.33056e-01_rb,0.37754e-01_rb /)
+      kao(:, 4, 3,10) = (/ &
+        & 0.35304e-01_rb,0.33277e-01_rb,0.31985e-01_rb,0.30856e-01_rb,0.29759e-01_rb, &
+        & 0.29582e-01_rb,0.31793e-01_rb,0.36769e-01_rb,0.41965e-01_rb /)
+      kao(:, 5, 3,10) = (/ &
+        & 0.34895e-01_rb,0.32987e-01_rb,0.32094e-01_rb,0.31490e-01_rb,0.31100e-01_rb, &
+        & 0.31735e-01_rb,0.35104e-01_rb,0.40646e-01_rb,0.46442e-01_rb /)
+      kao(:, 1, 4,10) = (/ &
+        & 0.38977e-01_rb,0.36120e-01_rb,0.33897e-01_rb,0.31410e-01_rb,0.28525e-01_rb, &
+        & 0.25373e-01_rb,0.22918e-01_rb,0.23596e-01_rb,0.26905e-01_rb /)
+      kao(:, 2, 4,10) = (/ &
+        & 0.38508e-01_rb,0.35924e-01_rb,0.33917e-01_rb,0.31530e-01_rb,0.28933e-01_rb, &
+        & 0.26161e-01_rb,0.24652e-01_rb,0.26430e-01_rb,0.30108e-01_rb /)
+      kao(:, 3, 4,10) = (/ &
+        & 0.38014e-01_rb,0.35658e-01_rb,0.33872e-01_rb,0.31757e-01_rb,0.29547e-01_rb, &
+        & 0.27436e-01_rb,0.26616e-01_rb,0.29450e-01_rb,0.33541e-01_rb /)
+      kao(:, 4, 4,10) = (/ &
+        & 0.37555e-01_rb,0.35363e-01_rb,0.33895e-01_rb,0.32125e-01_rb,0.30540e-01_rb, &
+        & 0.28878e-01_rb,0.28956e-01_rb,0.32793e-01_rb,0.37351e-01_rb /)
+      kao(:, 5, 4,10) = (/ &
+        & 0.37151e-01_rb,0.35088e-01_rb,0.33984e-01_rb,0.32788e-01_rb,0.31573e-01_rb, &
+        & 0.30633e-01_rb,0.31627e-01_rb,0.36308e-01_rb,0.41371e-01_rb /)
+      kao(:, 1, 5,10) = (/ &
+        & 0.41153e-01_rb,0.38034e-01_rb,0.35706e-01_rb,0.32805e-01_rb,0.29387e-01_rb, &
+        & 0.25927e-01_rb,0.22231e-01_rb,0.20561e-01_rb,0.23186e-01_rb /)
+      kao(:, 2, 5,10) = (/ &
+        & 0.40611e-01_rb,0.37835e-01_rb,0.35759e-01_rb,0.32923e-01_rb,0.29781e-01_rb, &
+        & 0.26577e-01_rb,0.23565e-01_rb,0.23003e-01_rb,0.26110e-01_rb /)
+      kao(:, 3, 5,10) = (/ &
+        & 0.40174e-01_rb,0.37589e-01_rb,0.35747e-01_rb,0.33131e-01_rb,0.30334e-01_rb, &
+        & 0.27648e-01_rb,0.25145e-01_rb,0.25696e-01_rb,0.29208e-01_rb /)
+      kao(:, 4, 5,10) = (/ &
+        & 0.39802e-01_rb,0.37389e-01_rb,0.35760e-01_rb,0.33447e-01_rb,0.31294e-01_rb, &
+        & 0.28785e-01_rb,0.27005e-01_rb,0.28729e-01_rb,0.32665e-01_rb /)
+      kao(:, 5, 5,10) = (/ &
+        & 0.39471e-01_rb,0.37195e-01_rb,0.35872e-01_rb,0.34084e-01_rb,0.32227e-01_rb, &
+        & 0.30087e-01_rb,0.29177e-01_rb,0.32029e-01_rb,0.36449e-01_rb /)
+      kao(:, 1, 6,10) = (/ &
+        & 0.43370e-01_rb,0.39997e-01_rb,0.37440e-01_rb,0.34118e-01_rb,0.30345e-01_rb, &
+        & 0.26246e-01_rb,0.21955e-01_rb,0.18231e-01_rb,0.19573e-01_rb /)
+      kao(:, 2, 6,10) = (/ &
+        & 0.42801e-01_rb,0.39763e-01_rb,0.37480e-01_rb,0.34252e-01_rb,0.30723e-01_rb, &
+        & 0.26892e-01_rb,0.22943e-01_rb,0.20080e-01_rb,0.22108e-01_rb /)
+      kao(:, 3, 6,10) = (/ &
+        & 0.42453e-01_rb,0.39592e-01_rb,0.37449e-01_rb,0.34486e-01_rb,0.31160e-01_rb, &
+        & 0.27853e-01_rb,0.24129e-01_rb,0.22254e-01_rb,0.24945e-01_rb /)
+      kao(:, 4, 6,10) = (/ &
+        & 0.42151e-01_rb,0.39446e-01_rb,0.37500e-01_rb,0.34777e-01_rb,0.31970e-01_rb, &
+        & 0.28872e-01_rb,0.25539e-01_rb,0.24809e-01_rb,0.28086e-01_rb /)
+      kao(:, 5, 6,10) = (/ &
+        & 0.41833e-01_rb,0.39344e-01_rb,0.37631e-01_rb,0.35392e-01_rb,0.32810e-01_rb, &
+        & 0.29983e-01_rb,0.27309e-01_rb,0.27744e-01_rb,0.31535e-01_rb /)
+      kao(:, 1, 7,10) = (/ &
+        & 0.45445e-01_rb,0.41961e-01_rb,0.39238e-01_rb,0.35426e-01_rb,0.31192e-01_rb, &
+        & 0.26649e-01_rb,0.21695e-01_rb,0.16623e-01_rb,0.16293e-01_rb /)
+      kao(:, 2, 7,10) = (/ &
+        & 0.45078e-01_rb,0.41797e-01_rb,0.39225e-01_rb,0.35507e-01_rb,0.31562e-01_rb, &
+        & 0.27229e-01_rb,0.22532e-01_rb,0.18019e-01_rb,0.18534e-01_rb /)
+      kao(:, 3, 7,10) = (/ &
+        & 0.44870e-01_rb,0.41785e-01_rb,0.39209e-01_rb,0.35749e-01_rb,0.31958e-01_rb, &
+        & 0.27976e-01_rb,0.23572e-01_rb,0.19783e-01_rb,0.21105e-01_rb /)
+      kao(:, 4, 7,10) = (/ &
+        & 0.44638e-01_rb,0.41726e-01_rb,0.39301e-01_rb,0.35989e-01_rb,0.32614e-01_rb, &
+        & 0.28887e-01_rb,0.24743e-01_rb,0.21842e-01_rb,0.23947e-01_rb /)
+      kao(:, 5, 7,10) = (/ &
+        & 0.44319e-01_rb,0.41703e-01_rb,0.39403e-01_rb,0.36491e-01_rb,0.33461e-01_rb, &
+        & 0.29864e-01_rb,0.26133e-01_rb,0.24238e-01_rb,0.27063e-01_rb /)
+      kao(:, 1, 8,10) = (/ &
+        & 0.47338e-01_rb,0.43694e-01_rb,0.40795e-01_rb,0.36657e-01_rb,0.31991e-01_rb, &
+        & 0.26976e-01_rb,0.21436e-01_rb,0.15589e-01_rb,0.13371e-01_rb /)
+      kao(:, 2, 8,10) = (/ &
+        & 0.47172e-01_rb,0.43681e-01_rb,0.40850e-01_rb,0.36728e-01_rb,0.32341e-01_rb, &
+        & 0.27474e-01_rb,0.22184e-01_rb,0.16691e-01_rb,0.15337e-01_rb /)
+      kao(:, 3, 8,10) = (/ &
+        & 0.47077e-01_rb,0.43885e-01_rb,0.40965e-01_rb,0.37016e-01_rb,0.32654e-01_rb, &
+        & 0.28038e-01_rb,0.23084e-01_rb,0.18052e-01_rb,0.17670e-01_rb /)
+      kao(:, 4, 8,10) = (/ &
+        & 0.46877e-01_rb,0.43984e-01_rb,0.41138e-01_rb,0.37264e-01_rb,0.33142e-01_rb, &
+        & 0.28868e-01_rb,0.24126e-01_rb,0.19696e-01_rb,0.20174e-01_rb /)
+      kao(:, 5, 8,10) = (/ &
+        & 0.46627e-01_rb,0.44042e-01_rb,0.41218e-01_rb,0.37582e-01_rb,0.33931e-01_rb, &
+        & 0.29818e-01_rb,0.25367e-01_rb,0.21590e-01_rb,0.22899e-01_rb /)
+      kao(:, 1, 9,10) = (/ &
+        & 0.49069e-01_rb,0.45230e-01_rb,0.41949e-01_rb,0.37482e-01_rb,0.32547e-01_rb, &
+        & 0.27221e-01_rb,0.21190e-01_rb,0.14771e-01_rb,0.82104e-02_rb /)
+      kao(:, 2, 9,10) = (/ &
+        & 0.48982e-01_rb,0.45358e-01_rb,0.42113e-01_rb,0.37642e-01_rb,0.32970e-01_rb, &
+        & 0.27650e-01_rb,0.21850e-01_rb,0.15738e-01_rb,0.94586e-02_rb /)
+      kao(:, 3, 9,10) = (/ &
+        & 0.48934e-01_rb,0.45677e-01_rb,0.42390e-01_rb,0.38084e-01_rb,0.33301e-01_rb, &
+        & 0.28097e-01_rb,0.22664e-01_rb,0.16844e-01_rb,0.11686e-01_rb /)
+      kao(:, 4, 9,10) = (/ &
+        & 0.48760e-01_rb,0.45876e-01_rb,0.42614e-01_rb,0.38405e-01_rb,0.33732e-01_rb, &
+        & 0.28793e-01_rb,0.23625e-01_rb,0.18186e-01_rb,0.14417e-01_rb /)
+      kao(:, 5, 9,10) = (/ &
+        & 0.48535e-01_rb,0.45946e-01_rb,0.42722e-01_rb,0.38669e-01_rb,0.34439e-01_rb, &
+        & 0.29718e-01_rb,0.24746e-01_rb,0.19636e-01_rb,0.17490e-01_rb /)
+      kao(:, 1,10,10) = (/ &
+        & 0.50581e-01_rb,0.46588e-01_rb,0.42861e-01_rb,0.37978e-01_rb,0.32756e-01_rb, &
+        & 0.27218e-01_rb,0.20963e-01_rb,0.14152e-01_rb,0.94977e-02_rb /)
+      kao(:, 2,10,10) = (/ &
+        & 0.50552e-01_rb,0.46832e-01_rb,0.43092e-01_rb,0.38231e-01_rb,0.33230e-01_rb, &
+        & 0.27672e-01_rb,0.21597e-01_rb,0.15000e-01_rb,0.11069e-01_rb /)
+      kao(:, 3,10,10) = (/ &
+        & 0.50470e-01_rb,0.47126e-01_rb,0.43390e-01_rb,0.38763e-01_rb,0.33692e-01_rb, &
+        & 0.28191e-01_rb,0.22303e-01_rb,0.15932e-01_rb,0.12529e-01_rb /)
+      kao(:, 4,10,10) = (/ &
+        & 0.50251e-01_rb,0.47290e-01_rb,0.43621e-01_rb,0.39150e-01_rb,0.34250e-01_rb, &
+        & 0.28907e-01_rb,0.23153e-01_rb,0.17091e-01_rb,0.14647e-01_rb /)
+      kao(:, 5,10,10) = (/ &
+        & 0.50025e-01_rb,0.47335e-01_rb,0.43789e-01_rb,0.39526e-01_rb,0.34961e-01_rb, &
+        & 0.29783e-01_rb,0.24207e-01_rb,0.18303e-01_rb,0.16505e-01_rb /)
+      kao(:, 1,11,10) = (/ &
+        & 0.51775e-01_rb,0.47733e-01_rb,0.43604e-01_rb,0.38377e-01_rb,0.33010e-01_rb, &
+        & 0.27211e-01_rb,0.20853e-01_rb,0.13952e-01_rb,0.10099e-01_rb /)
+      kao(:, 2,11,10) = (/ &
+        & 0.51722e-01_rb,0.48082e-01_rb,0.43912e-01_rb,0.38859e-01_rb,0.33550e-01_rb, &
+        & 0.27720e-01_rb,0.21535e-01_rb,0.14746e-01_rb,0.11460e-01_rb /)
+      kao(:, 3,11,10) = (/ &
+        & 0.51577e-01_rb,0.48309e-01_rb,0.44107e-01_rb,0.39371e-01_rb,0.34132e-01_rb, &
+        & 0.28431e-01_rb,0.22288e-01_rb,0.15640e-01_rb,0.12761e-01_rb /)
+      kao(:, 4,11,10) = (/ &
+        & 0.51367e-01_rb,0.48474e-01_rb,0.44409e-01_rb,0.39819e-01_rb,0.34807e-01_rb, &
+        & 0.29240e-01_rb,0.23192e-01_rb,0.16707e-01_rb,0.14096e-01_rb /)
+      kao(:, 5,11,10) = (/ &
+        & 0.51186e-01_rb,0.48565e-01_rb,0.44658e-01_rb,0.40350e-01_rb,0.35545e-01_rb, &
+        & 0.30221e-01_rb,0.24214e-01_rb,0.17744e-01_rb,0.15290e-01_rb /)
+      kao(:, 1,12,10) = (/ &
+        & 0.52731e-01_rb,0.48681e-01_rb,0.44186e-01_rb,0.38733e-01_rb,0.33169e-01_rb, &
+        & 0.27108e-01_rb,0.20634e-01_rb,0.13723e-01_rb,0.97949e-02_rb /)
+      kao(:, 2,12,10) = (/ &
+        & 0.52654e-01_rb,0.49001e-01_rb,0.44433e-01_rb,0.39315e-01_rb,0.33776e-01_rb, &
+        & 0.27772e-01_rb,0.21363e-01_rb,0.14506e-01_rb,0.11186e-01_rb /)
+      kao(:, 3,12,10) = (/ &
+        & 0.52581e-01_rb,0.49321e-01_rb,0.44768e-01_rb,0.39827e-01_rb,0.34382e-01_rb, &
+        & 0.28565e-01_rb,0.22205e-01_rb,0.15366e-01_rb,0.12310e-01_rb /)
+      kao(:, 4,12,10) = (/ &
+        & 0.52474e-01_rb,0.49527e-01_rb,0.45170e-01_rb,0.40364e-01_rb,0.35120e-01_rb, &
+        & 0.29376e-01_rb,0.23174e-01_rb,0.16305e-01_rb,0.14325e-01_rb /)
+      kao(:, 5,12,10) = (/ &
+        & 0.52313e-01_rb,0.49659e-01_rb,0.45526e-01_rb,0.41026e-01_rb,0.35905e-01_rb, &
+        & 0.30399e-01_rb,0.24222e-01_rb,0.17291e-01_rb,0.16045e-01_rb /)
+      kao(:, 1,13,10) = (/ &
+        & 0.53347e-01_rb,0.49460e-01_rb,0.44667e-01_rb,0.39102e-01_rb,0.33300e-01_rb, &
+        & 0.27005e-01_rb,0.20373e-01_rb,0.13403e-01_rb,0.88882e-02_rb /)
+      kao(:, 2,13,10) = (/ &
+        & 0.53473e-01_rb,0.49893e-01_rb,0.44992e-01_rb,0.39672e-01_rb,0.33886e-01_rb, &
+        & 0.27737e-01_rb,0.21157e-01_rb,0.14194e-01_rb,0.99472e-02_rb /)
+      kao(:, 3,13,10) = (/ &
+        & 0.53543e-01_rb,0.50285e-01_rb,0.45484e-01_rb,0.40250e-01_rb,0.34541e-01_rb, &
+        & 0.28510e-01_rb,0.22035e-01_rb,0.15061e-01_rb,0.11235e-01_rb /)
+      kao(:, 4,13,10) = (/ &
+        & 0.53461e-01_rb,0.50524e-01_rb,0.45912e-01_rb,0.40827e-01_rb,0.35322e-01_rb, &
+        & 0.29374e-01_rb,0.23048e-01_rb,0.15925e-01_rb,0.12822e-01_rb /)
+      kao(:, 5,13,10) = (/ &
+        & 0.53278e-01_rb,0.50624e-01_rb,0.46303e-01_rb,0.41556e-01_rb,0.36186e-01_rb, &
+        & 0.30414e-01_rb,0.24058e-01_rb,0.16868e-01_rb,0.14203e-01_rb /)
+      kao(:, 1, 1,11) = (/ &
+        & 0.37171e-01_rb,0.34434e-01_rb,0.32644e-01_rb,0.32703e-01_rb,0.33235e-01_rb, &
+        & 0.36611e-01_rb,0.43526e-01_rb,0.50696e-01_rb,0.58297e-01_rb /)
+      kao(:, 2, 1,11) = (/ &
+        & 0.36741e-01_rb,0.34071e-01_rb,0.32455e-01_rb,0.33094e-01_rb,0.34229e-01_rb, &
+        & 0.38792e-01_rb,0.46364e-01_rb,0.53998e-01_rb,0.61977e-01_rb /)
+      kao(:, 3, 1,11) = (/ &
+        & 0.36310e-01_rb,0.33795e-01_rb,0.32514e-01_rb,0.33548e-01_rb,0.35414e-01_rb, &
+        & 0.41445e-01_rb,0.49627e-01_rb,0.57817e-01_rb,0.66049e-01_rb /)
+      kao(:, 4, 1,11) = (/ &
+        & 0.35845e-01_rb,0.33632e-01_rb,0.32631e-01_rb,0.34397e-01_rb,0.37428e-01_rb, &
+        & 0.44985e-01_rb,0.53868e-01_rb,0.62763e-01_rb,0.71579e-01_rb /)
+      kao(:, 5, 1,11) = (/ &
+        & 0.35331e-01_rb,0.33379e-01_rb,0.32910e-01_rb,0.35528e-01_rb,0.39783e-01_rb, &
+        & 0.48705e-01_rb,0.58316e-01_rb,0.67942e-01_rb,0.77160e-01_rb /)
+      kao(:, 1, 2,11) = (/ &
+        & 0.40448e-01_rb,0.37395e-01_rb,0.35029e-01_rb,0.34305e-01_rb,0.33991e-01_rb, &
+        & 0.35316e-01_rb,0.40968e-01_rb,0.47712e-01_rb,0.54932e-01_rb /)
+      kao(:, 2, 2,11) = (/ &
+        & 0.39920e-01_rb,0.36968e-01_rb,0.34927e-01_rb,0.34599e-01_rb,0.34841e-01_rb, &
+        & 0.37250e-01_rb,0.43923e-01_rb,0.51161e-01_rb,0.58827e-01_rb /)
+      kao(:, 3, 2,11) = (/ &
+        & 0.39405e-01_rb,0.36691e-01_rb,0.34999e-01_rb,0.35076e-01_rb,0.35924e-01_rb, &
+        & 0.39772e-01_rb,0.47443e-01_rb,0.55253e-01_rb,0.63303e-01_rb /)
+      kao(:, 4, 2,11) = (/ &
+        & 0.38792e-01_rb,0.36414e-01_rb,0.35121e-01_rb,0.35787e-01_rb,0.37790e-01_rb, &
+        & 0.43290e-01_rb,0.51773e-01_rb,0.60284e-01_rb,0.68983e-01_rb /)
+      kao(:, 5, 2,11) = (/ &
+        & 0.38190e-01_rb,0.36098e-01_rb,0.35328e-01_rb,0.36844e-01_rb,0.39952e-01_rb, &
+        & 0.47291e-01_rb,0.56573e-01_rb,0.65870e-01_rb,0.75177e-01_rb /)
+      kao(:, 1, 3,11) = (/ &
+        & 0.43810e-01_rb,0.40500e-01_rb,0.37754e-01_rb,0.36293e-01_rb,0.34676e-01_rb, &
+        & 0.34367e-01_rb,0.37493e-01_rb,0.43650e-01_rb,0.50087e-01_rb /)
+      kao(:, 2, 3,11) = (/ &
+        & 0.43199e-01_rb,0.40018e-01_rb,0.37716e-01_rb,0.36450e-01_rb,0.35395e-01_rb, &
+        & 0.35866e-01_rb,0.40426e-01_rb,0.47076e-01_rb,0.53958e-01_rb /)
+      kao(:, 3, 3,11) = (/ &
+        & 0.42538e-01_rb,0.39757e-01_rb,0.37868e-01_rb,0.36772e-01_rb,0.36302e-01_rb, &
+        & 0.37914e-01_rb,0.44070e-01_rb,0.51299e-01_rb,0.58670e-01_rb /)
+      kao(:, 4, 3,11) = (/ &
+        & 0.41856e-01_rb,0.39457e-01_rb,0.37979e-01_rb,0.37163e-01_rb,0.37947e-01_rb, &
+        & 0.40970e-01_rb,0.48419e-01_rb,0.56334e-01_rb,0.64404e-01_rb /)
+      kao(:, 5, 3,11) = (/ &
+        & 0.41250e-01_rb,0.39154e-01_rb,0.38065e-01_rb,0.38049e-01_rb,0.39929e-01_rb, &
+        & 0.44658e-01_rb,0.53223e-01_rb,0.61909e-01_rb,0.70665e-01_rb /)
+      kao(:, 1, 4,11) = (/ &
+        & 0.47088e-01_rb,0.43589e-01_rb,0.40605e-01_rb,0.38686e-01_rb,0.35713e-01_rb, &
+        & 0.33942e-01_rb,0.34171e-01_rb,0.39143e-01_rb,0.44787e-01_rb /)
+      kao(:, 2, 4,11) = (/ &
+        & 0.46380e-01_rb,0.43081e-01_rb,0.40678e-01_rb,0.38772e-01_rb,0.36271e-01_rb, &
+        & 0.35115e-01_rb,0.36728e-01_rb,0.42523e-01_rb,0.48625e-01_rb /)
+      kao(:, 3, 4,11) = (/ &
+        & 0.45787e-01_rb,0.42889e-01_rb,0.40853e-01_rb,0.39000e-01_rb,0.36901e-01_rb, &
+        & 0.36794e-01_rb,0.40276e-01_rb,0.46812e-01_rb,0.53448e-01_rb /)
+      kao(:, 4, 4,11) = (/ &
+        & 0.45216e-01_rb,0.42628e-01_rb,0.40916e-01_rb,0.39286e-01_rb,0.38129e-01_rb, &
+        & 0.39329e-01_rb,0.44499e-01_rb,0.51734e-01_rb,0.59041e-01_rb /)
+      kao(:, 5, 4,11) = (/ &
+        & 0.44698e-01_rb,0.42312e-01_rb,0.40992e-01_rb,0.39909e-01_rb,0.39896e-01_rb, &
+        & 0.42322e-01_rb,0.49157e-01_rb,0.57134e-01_rb,0.65206e-01_rb /)
+      kao(:, 1, 5,11) = (/ &
+        & 0.50564e-01_rb,0.46864e-01_rb,0.43550e-01_rb,0.41145e-01_rb,0.37282e-01_rb, &
+        & 0.33847e-01_rb,0.31921e-01_rb,0.34655e-01_rb,0.39581e-01_rb /)
+      kao(:, 2, 5,11) = (/ &
+        & 0.49853e-01_rb,0.46324e-01_rb,0.43735e-01_rb,0.41212e-01_rb,0.37826e-01_rb, &
+        & 0.34760e-01_rb,0.33939e-01_rb,0.37988e-01_rb,0.43340e-01_rb /)
+      kao(:, 3, 5,11) = (/ &
+        & 0.49277e-01_rb,0.46142e-01_rb,0.43937e-01_rb,0.41409e-01_rb,0.38245e-01_rb, &
+        & 0.36079e-01_rb,0.36891e-01_rb,0.42172e-01_rb,0.48104e-01_rb /)
+      kao(:, 4, 5,11) = (/ &
+        & 0.48731e-01_rb,0.45921e-01_rb,0.43964e-01_rb,0.41658e-01_rb,0.39073e-01_rb, &
+        & 0.38270e-01_rb,0.40535e-01_rb,0.46833e-01_rb,0.53415e-01_rb /)
+      kao(:, 5, 5,11) = (/ &
+        & 0.48265e-01_rb,0.45648e-01_rb,0.43993e-01_rb,0.42096e-01_rb,0.40473e-01_rb, &
+        & 0.40846e-01_rb,0.44703e-01_rb,0.51860e-01_rb,0.59120e-01_rb /)
+      kao(:, 1, 6,11) = (/ &
+        & 0.54155e-01_rb,0.50312e-01_rb,0.46699e-01_rb,0.43479e-01_rb,0.38935e-01_rb, &
+        & 0.34460e-01_rb,0.30470e-01_rb,0.30214e-01_rb,0.34389e-01_rb /)
+      kao(:, 2, 6,11) = (/ &
+        & 0.53396e-01_rb,0.49741e-01_rb,0.46925e-01_rb,0.43573e-01_rb,0.39485e-01_rb, &
+        & 0.35160e-01_rb,0.32122e-01_rb,0.33415e-01_rb,0.38087e-01_rb /)
+      kao(:, 3, 6,11) = (/ &
+        & 0.52823e-01_rb,0.49548e-01_rb,0.47130e-01_rb,0.43740e-01_rb,0.39828e-01_rb, &
+        & 0.36044e-01_rb,0.34474e-01_rb,0.37304e-01_rb,0.42510e-01_rb /)
+      kao(:, 4, 6,11) = (/ &
+        & 0.52327e-01_rb,0.49384e-01_rb,0.47097e-01_rb,0.43937e-01_rb,0.40452e-01_rb, &
+        & 0.37736e-01_rb,0.37393e-01_rb,0.41655e-01_rb,0.47452e-01_rb /)
+      kao(:, 5, 6,11) = (/ &
+        & 0.51903e-01_rb,0.49131e-01_rb,0.47026e-01_rb,0.44222e-01_rb,0.41687e-01_rb, &
+        & 0.39818e-01_rb,0.40660e-01_rb,0.46275e-01_rb,0.52724e-01_rb /)
+      kao(:, 1, 7,11) = (/ &
+        & 0.58007e-01_rb,0.53733e-01_rb,0.49779e-01_rb,0.45887e-01_rb,0.40462e-01_rb, &
+        & 0.35176e-01_rb,0.29765e-01_rb,0.26441e-01_rb,0.29320e-01_rb /)
+      kao(:, 2, 7,11) = (/ &
+        & 0.57151e-01_rb,0.53110e-01_rb,0.50041e-01_rb,0.45960e-01_rb,0.40973e-01_rb, &
+        & 0.35887e-01_rb,0.31026e-01_rb,0.29123e-01_rb,0.32803e-01_rb /)
+      kao(:, 3, 7,11) = (/ &
+        & 0.56502e-01_rb,0.52846e-01_rb,0.50182e-01_rb,0.46056e-01_rb,0.41337e-01_rb, &
+        & 0.36666e-01_rb,0.32781e-01_rb,0.32480e-01_rb,0.36858e-01_rb /)
+      kao(:, 4, 7,11) = (/ &
+        & 0.55999e-01_rb,0.52671e-01_rb,0.50072e-01_rb,0.46217e-01_rb,0.41835e-01_rb, &
+        & 0.38000e-01_rb,0.35109e-01_rb,0.36308e-01_rb,0.41318e-01_rb /)
+      kao(:, 5, 7,11) = (/ &
+        & 0.55573e-01_rb,0.52382e-01_rb,0.49967e-01_rb,0.46401e-01_rb,0.42955e-01_rb, &
+        & 0.39677e-01_rb,0.37716e-01_rb,0.40481e-01_rb,0.46095e-01_rb /)
+      kao(:, 1, 8,11) = (/ &
+        & 0.61929e-01_rb,0.57176e-01_rb,0.52730e-01_rb,0.48103e-01_rb,0.42015e-01_rb, &
+        & 0.35869e-01_rb,0.29499e-01_rb,0.23665e-01_rb,0.24549e-01_rb /)
+      kao(:, 2, 8,11) = (/ &
+        & 0.61013e-01_rb,0.56553e-01_rb,0.52930e-01_rb,0.48080e-01_rb,0.42522e-01_rb, &
+        & 0.36573e-01_rb,0.30581e-01_rb,0.25834e-01_rb,0.27791e-01_rb /)
+      kao(:, 3, 8,11) = (/ &
+        & 0.60303e-01_rb,0.56131e-01_rb,0.52872e-01_rb,0.48123e-01_rb,0.42911e-01_rb, &
+        & 0.37343e-01_rb,0.31938e-01_rb,0.28446e-01_rb,0.31375e-01_rb /)
+      kao(:, 4, 8,11) = (/ &
+        & 0.59783e-01_rb,0.55843e-01_rb,0.52678e-01_rb,0.48331e-01_rb,0.43398e-01_rb, &
+        & 0.38468e-01_rb,0.33698e-01_rb,0.31535e-01_rb,0.35398e-01_rb /)
+      kao(:, 5, 8,11) = (/ &
+        & 0.59221e-01_rb,0.55525e-01_rb,0.52626e-01_rb,0.48547e-01_rb,0.44309e-01_rb, &
+        & 0.39969e-01_rb,0.35748e-01_rb,0.35119e-01_rb,0.39791e-01_rb /)
+      kao(:, 1, 9,11) = (/ &
+        & 0.65420e-01_rb,0.60290e-01_rb,0.55521e-01_rb,0.50117e-01_rb,0.43421e-01_rb, &
+        & 0.36608e-01_rb,0.29349e-01_rb,0.21841e-01_rb,0.18774e-01_rb /)
+      kao(:, 2, 9,11) = (/ &
+        & 0.64534e-01_rb,0.59710e-01_rb,0.55627e-01_rb,0.50054e-01_rb,0.43842e-01_rb, &
+        & 0.37357e-01_rb,0.30337e-01_rb,0.23525e-01_rb,0.22756e-01_rb /)
+      kao(:, 3, 9,11) = (/ &
+        & 0.63805e-01_rb,0.59237e-01_rb,0.55452e-01_rb,0.50019e-01_rb,0.44319e-01_rb, &
+        & 0.38089e-01_rb,0.31491e-01_rb,0.25524e-01_rb,0.26401e-01_rb /)
+      kao(:, 4, 9,11) = (/ &
+        & 0.63315e-01_rb,0.59001e-01_rb,0.55252e-01_rb,0.50261e-01_rb,0.44802e-01_rb, &
+        & 0.39006e-01_rb,0.32915e-01_rb,0.27972e-01_rb,0.30021e-01_rb /)
+      kao(:, 5, 9,11) = (/ &
+        & 0.62781e-01_rb,0.58825e-01_rb,0.55257e-01_rb,0.50524e-01_rb,0.45567e-01_rb, &
+        & 0.40297e-01_rb,0.34643e-01_rb,0.30888e-01_rb,0.34021e-01_rb /)
+      kao(:, 1,10,11) = (/ &
+        & 0.68132e-01_rb,0.62682e-01_rb,0.57743e-01_rb,0.51836e-01_rb,0.44670e-01_rb, &
+        & 0.37300e-01_rb,0.29365e-01_rb,0.20724e-01_rb,0.15957e-01_rb /)
+      kao(:, 2,10,11) = (/ &
+        & 0.67210e-01_rb,0.62151e-01_rb,0.57960e-01_rb,0.51867e-01_rb,0.45128e-01_rb, &
+        & 0.38064e-01_rb,0.30245e-01_rb,0.22146e-01_rb,0.17704e-01_rb /)
+      kao(:, 3,10,11) = (/ &
+        & 0.66632e-01_rb,0.61949e-01_rb,0.57882e-01_rb,0.51878e-01_rb,0.45637e-01_rb, &
+        & 0.38758e-01_rb,0.31283e-01_rb,0.23744e-01_rb,0.20098e-01_rb /)
+      kao(:, 4,10,11) = (/ &
+        & 0.66350e-01_rb,0.62044e-01_rb,0.57835e-01_rb,0.52180e-01_rb,0.46090e-01_rb, &
+        & 0.39573e-01_rb,0.32509e-01_rb,0.25642e-01_rb,0.22076e-01_rb /)
+      kao(:, 5,10,11) = (/ &
+        & 0.65965e-01_rb,0.62105e-01_rb,0.57959e-01_rb,0.52489e-01_rb,0.46765e-01_rb, &
+        & 0.40717e-01_rb,0.34057e-01_rb,0.28015e-01_rb,0.24829e-01_rb /)
+      kao(:, 1,11,11) = (/ &
+        & 0.69905e-01_rb,0.64410e-01_rb,0.59589e-01_rb,0.53150e-01_rb,0.45760e-01_rb, &
+        & 0.38179e-01_rb,0.29785e-01_rb,0.20444e-01_rb,0.16092e-01_rb /)
+      kao(:, 2,11,11) = (/ &
+        & 0.69271e-01_rb,0.64175e-01_rb,0.59782e-01_rb,0.53281e-01_rb,0.46486e-01_rb, &
+        & 0.38949e-01_rb,0.30645e-01_rb,0.21725e-01_rb,0.17857e-01_rb /)
+      kao(:, 3,11,11) = (/ &
+        & 0.69073e-01_rb,0.64491e-01_rb,0.59955e-01_rb,0.53684e-01_rb,0.46981e-01_rb, &
+        & 0.39609e-01_rb,0.31674e-01_rb,0.23165e-01_rb,0.20394e-01_rb /)
+      kao(:, 4,11,11) = (/ &
+        & 0.68904e-01_rb,0.64793e-01_rb,0.60179e-01_rb,0.54162e-01_rb,0.47530e-01_rb, &
+        & 0.40495e-01_rb,0.32809e-01_rb,0.24930e-01_rb,0.23016e-01_rb /)
+      kao(:, 5,11,11) = (/ &
+        & 0.68639e-01_rb,0.65010e-01_rb,0.60484e-01_rb,0.54605e-01_rb,0.48370e-01_rb, &
+        & 0.41561e-01_rb,0.34350e-01_rb,0.26933e-01_rb,0.26488e-01_rb /)
+      kao(:, 1,12,11) = (/ &
+        & 0.71529e-01_rb,0.66044e-01_rb,0.61072e-01_rb,0.54140e-01_rb,0.46654e-01_rb, &
+        & 0.38794e-01_rb,0.29996e-01_rb,0.20236e-01_rb,0.16124e-01_rb /)
+      kao(:, 2,12,11) = (/ &
+        & 0.71291e-01_rb,0.66315e-01_rb,0.61418e-01_rb,0.54500e-01_rb,0.47446e-01_rb, &
+        & 0.39590e-01_rb,0.30905e-01_rb,0.21401e-01_rb,0.17542e-01_rb /)
+      kao(:, 3,12,11) = (/ &
+        & 0.71222e-01_rb,0.66826e-01_rb,0.61770e-01_rb,0.55219e-01_rb,0.48148e-01_rb, &
+        & 0.40334e-01_rb,0.31908e-01_rb,0.22727e-01_rb,0.19804e-01_rb /)
+      kao(:, 4,12,11) = (/ &
+        & 0.71079e-01_rb,0.67236e-01_rb,0.62161e-01_rb,0.55849e-01_rb,0.48917e-01_rb, &
+        & 0.41311e-01_rb,0.33042e-01_rb,0.24356e-01_rb,0.21082e-01_rb /)
+      kao(:, 5,12,11) = (/ &
+        & 0.70901e-01_rb,0.67518e-01_rb,0.62549e-01_rb,0.56439e-01_rb,0.49900e-01_rb, &
+        & 0.42406e-01_rb,0.34548e-01_rb,0.26106e-01_rb,0.23666e-01_rb /)
+      kao(:, 1,13,11) = (/ &
+        & 0.73149e-01_rb,0.67708e-01_rb,0.62294e-01_rb,0.54947e-01_rb,0.47337e-01_rb, &
+        & 0.39165e-01_rb,0.30053e-01_rb,0.20069e-01_rb,0.15304e-01_rb /)
+      kao(:, 2,13,11) = (/ &
+        & 0.73122e-01_rb,0.68287e-01_rb,0.62803e-01_rb,0.55664e-01_rb,0.48241e-01_rb, &
+        & 0.39986e-01_rb,0.31044e-01_rb,0.21133e-01_rb,0.17384e-01_rb /)
+      kao(:, 3,13,11) = (/ &
+        & 0.73057e-01_rb,0.68826e-01_rb,0.63303e-01_rb,0.56536e-01_rb,0.49104e-01_rb, &
+        & 0.40926e-01_rb,0.32050e-01_rb,0.22349e-01_rb,0.18964e-01_rb /)
+      kao(:, 4,13,11) = (/ &
+        & 0.73037e-01_rb,0.69286e-01_rb,0.63846e-01_rb,0.57252e-01_rb,0.50018e-01_rb, &
+        & 0.42025e-01_rb,0.33217e-01_rb,0.23850e-01_rb,0.20572e-01_rb /)
+      kao(:, 5,13,11) = (/ &
+        & 0.73013e-01_rb,0.69604e-01_rb,0.64290e-01_rb,0.57954e-01_rb,0.51076e-01_rb, &
+        & 0.43212e-01_rb,0.34653e-01_rb,0.25391e-01_rb,0.23448e-01_rb /)
+      kao(:, 1, 1,12) = (/ &
+        & 0.43248e-01_rb,0.41017e-01_rb,0.40213e-01_rb,0.39821e-01_rb,0.45256e-01_rb, &
+        & 0.55821e-01_rb,0.66932e-01_rb,0.78037e-01_rb,0.88086e-01_rb /)
+      kao(:, 2, 1,12) = (/ &
+        & 0.42407e-01_rb,0.40307e-01_rb,0.40078e-01_rb,0.40681e-01_rb,0.47543e-01_rb, &
+        & 0.59099e-01_rb,0.70845e-01_rb,0.82585e-01_rb,0.93228e-01_rb /)
+      kao(:, 3, 1,12) = (/ &
+        & 0.41692e-01_rb,0.39727e-01_rb,0.39865e-01_rb,0.41830e-01_rb,0.50093e-01_rb, &
+        & 0.62450e-01_rb,0.74841e-01_rb,0.87232e-01_rb,0.98476e-01_rb /)
+      kao(:, 4, 1,12) = (/ &
+        & 0.41002e-01_rb,0.39248e-01_rb,0.39945e-01_rb,0.42942e-01_rb,0.52768e-01_rb, &
+        & 0.65829e-01_rb,0.78890e-01_rb,0.91937e-01_rb,0.10362e+00_rb /)
+      kao(:, 5, 1,12) = (/ &
+        & 0.40428e-01_rb,0.39045e-01_rb,0.40116e-01_rb,0.44981e-01_rb,0.56655e-01_rb, &
+        & 0.70681e-01_rb,0.84705e-01_rb,0.98731e-01_rb,0.11111e+00_rb /)
+      kao(:, 1, 2,12) = (/ &
+        & 0.47227e-01_rb,0.44198e-01_rb,0.42698e-01_rb,0.42511e-01_rb,0.46394e-01_rb, &
+        & 0.55784e-01_rb,0.66888e-01_rb,0.77989e-01_rb,0.88812e-01_rb /)
+      kao(:, 2, 2,12) = (/ &
+        & 0.46375e-01_rb,0.43473e-01_rb,0.42428e-01_rb,0.43299e-01_rb,0.48252e-01_rb, &
+        & 0.59000e-01_rb,0.70708e-01_rb,0.82423e-01_rb,0.93885e-01_rb /)
+      kao(:, 3, 2,12) = (/ &
+        & 0.45650e-01_rb,0.42988e-01_rb,0.42307e-01_rb,0.44252e-01_rb,0.50414e-01_rb, &
+        & 0.62373e-01_rb,0.74750e-01_rb,0.87127e-01_rb,0.99197e-01_rb /)
+      kao(:, 4, 2,12) = (/ &
+        & 0.44980e-01_rb,0.42686e-01_rb,0.42476e-01_rb,0.45355e-01_rb,0.53027e-01_rb, &
+        & 0.66067e-01_rb,0.79179e-01_rb,0.92288e-01_rb,0.10480e+00_rb /)
+      kao(:, 5, 2,12) = (/ &
+        & 0.44383e-01_rb,0.42475e-01_rb,0.42723e-01_rb,0.47155e-01_rb,0.57007e-01_rb, &
+        & 0.71138e-01_rb,0.85276e-01_rb,0.99396e-01_rb,0.11272e+00_rb /)
+      kao(:, 1, 3,12) = (/ &
+        & 0.51829e-01_rb,0.48303e-01_rb,0.45805e-01_rb,0.45348e-01_rb,0.47474e-01_rb, &
+        & 0.53773e-01_rb,0.64381e-01_rb,0.75065e-01_rb,0.85879e-01_rb /)
+      kao(:, 2, 3,12) = (/ &
+        & 0.50945e-01_rb,0.47626e-01_rb,0.45531e-01_rb,0.46104e-01_rb,0.48805e-01_rb, &
+        & 0.57008e-01_rb,0.68342e-01_rb,0.79675e-01_rb,0.91103e-01_rb /)
+      kao(:, 3, 3,12) = (/ &
+        & 0.50329e-01_rb,0.47163e-01_rb,0.45393e-01_rb,0.46795e-01_rb,0.50514e-01_rb, &
+        & 0.60488e-01_rb,0.72503e-01_rb,0.84519e-01_rb,0.96625e-01_rb /)
+      kao(:, 4, 3,12) = (/ &
+        & 0.49725e-01_rb,0.46894e-01_rb,0.45600e-01_rb,0.47784e-01_rb,0.52670e-01_rb, &
+        & 0.64382e-01_rb,0.77172e-01_rb,0.89966e-01_rb,0.10271e+00_rb /)
+      kao(:, 5, 3,12) = (/ &
+        & 0.49109e-01_rb,0.46633e-01_rb,0.45896e-01_rb,0.49191e-01_rb,0.56129e-01_rb, &
+        & 0.69438e-01_rb,0.83245e-01_rb,0.97061e-01_rb,0.11071e+00_rb /)
+      kao(:, 1, 4,12) = (/ &
+        & 0.57082e-01_rb,0.53110e-01_rb,0.49763e-01_rb,0.48460e-01_rb,0.48719e-01_rb, &
+        & 0.51181e-01_rb,0.59984e-01_rb,0.69952e-01_rb,0.80045e-01_rb /)
+      kao(:, 2, 4,12) = (/ &
+        & 0.56133e-01_rb,0.52450e-01_rb,0.49568e-01_rb,0.49064e-01_rb,0.49725e-01_rb, &
+        & 0.54041e-01_rb,0.64091e-01_rb,0.74728e-01_rb,0.85496e-01_rb /)
+      kao(:, 3, 4,12) = (/ &
+        & 0.55439e-01_rb,0.51866e-01_rb,0.49497e-01_rb,0.49475e-01_rb,0.51076e-01_rb, &
+        & 0.57243e-01_rb,0.68327e-01_rb,0.79652e-01_rb,0.91098e-01_rb /)
+      kao(:, 4, 4,12) = (/ &
+        & 0.54777e-01_rb,0.51575e-01_rb,0.49681e-01_rb,0.50221e-01_rb,0.52765e-01_rb, &
+        & 0.61084e-01_rb,0.73197e-01_rb,0.85337e-01_rb,0.97552e-01_rb /)
+      kao(:, 5, 4,12) = (/ &
+        & 0.54098e-01_rb,0.51233e-01_rb,0.49878e-01_rb,0.51295e-01_rb,0.55484e-01_rb, &
+        & 0.66162e-01_rb,0.79298e-01_rb,0.92434e-01_rb,0.10558e+00_rb /)
+      kao(:, 1, 5,12) = (/ &
+        & 0.62544e-01_rb,0.58281e-01_rb,0.54351e-01_rb,0.52107e-01_rb,0.50211e-01_rb, &
+        & 0.49416e-01_rb,0.54519e-01_rb,0.63528e-01_rb,0.72634e-01_rb /)
+      kao(:, 2, 5,12) = (/ &
+        & 0.61658e-01_rb,0.57644e-01_rb,0.54210e-01_rb,0.52563e-01_rb,0.50949e-01_rb, &
+        & 0.51794e-01_rb,0.58802e-01_rb,0.68560e-01_rb,0.78383e-01_rb /)
+      kao(:, 3, 5,12) = (/ &
+        & 0.60918e-01_rb,0.57016e-01_rb,0.54117e-01_rb,0.52719e-01_rb,0.52074e-01_rb, &
+        & 0.54457e-01_rb,0.63161e-01_rb,0.73629e-01_rb,0.84158e-01_rb /)
+      kao(:, 4, 5,12) = (/ &
+        & 0.60164e-01_rb,0.56692e-01_rb,0.54302e-01_rb,0.53086e-01_rb,0.53404e-01_rb, &
+        & 0.57689e-01_rb,0.68126e-01_rb,0.79422e-01_rb,0.90757e-01_rb /)
+      kao(:, 5, 5,12) = (/ &
+        & 0.59366e-01_rb,0.56267e-01_rb,0.54377e-01_rb,0.53811e-01_rb,0.55627e-01_rb, &
+        & 0.62331e-01_rb,0.74295e-01_rb,0.86596e-01_rb,0.98923e-01_rb /)
+      kao(:, 1, 6,12) = (/ &
+        & 0.68500e-01_rb,0.63504e-01_rb,0.59102e-01_rb,0.56112e-01_rb,0.52198e-01_rb, &
+        & 0.48725e-01_rb,0.49458e-01_rb,0.56540e-01_rb,0.64611e-01_rb /)
+      kao(:, 2, 6,12) = (/ &
+        & 0.67642e-01_rb,0.62951e-01_rb,0.59010e-01_rb,0.56509e-01_rb,0.52640e-01_rb, &
+        & 0.50781e-01_rb,0.53492e-01_rb,0.61845e-01_rb,0.70650e-01_rb /)
+      kao(:, 3, 6,12) = (/ &
+        & 0.66730e-01_rb,0.62270e-01_rb,0.58880e-01_rb,0.56541e-01_rb,0.53578e-01_rb, &
+        & 0.52912e-01_rb,0.57553e-01_rb,0.66900e-01_rb,0.76420e-01_rb /)
+      kao(:, 4, 6,12) = (/ &
+        & 0.65853e-01_rb,0.61851e-01_rb,0.59079e-01_rb,0.56674e-01_rb,0.54628e-01_rb, &
+        & 0.55405e-01_rb,0.62327e-01_rb,0.72621e-01_rb,0.82946e-01_rb /)
+      kao(:, 5, 6,12) = (/ &
+        & 0.64917e-01_rb,0.61395e-01_rb,0.59088e-01_rb,0.57140e-01_rb,0.56317e-01_rb, &
+        & 0.59242e-01_rb,0.68519e-01_rb,0.79819e-01_rb,0.91147e-01_rb /)
+      kao(:, 1, 7,12) = (/ &
+        & 0.74814e-01_rb,0.69115e-01_rb,0.63783e-01_rb,0.59970e-01_rb,0.54833e-01_rb, &
+        & 0.49011e-01_rb,0.46051e-01_rb,0.49756e-01_rb,0.56816e-01_rb /)
+      kao(:, 2, 7,12) = (/ &
+        & 0.73755e-01_rb,0.68509e-01_rb,0.63672e-01_rb,0.60441e-01_rb,0.55205e-01_rb, &
+        & 0.50759e-01_rb,0.49447e-01_rb,0.55044e-01_rb,0.62843e-01_rb /)
+      kao(:, 3, 7,12) = (/ &
+        & 0.72664e-01_rb,0.67698e-01_rb,0.63630e-01_rb,0.60499e-01_rb,0.55993e-01_rb, &
+        & 0.52467e-01_rb,0.52809e-01_rb,0.59966e-01_rb,0.68463e-01_rb /)
+      kao(:, 4, 7,12) = (/ &
+        & 0.71633e-01_rb,0.67174e-01_rb,0.63866e-01_rb,0.60581e-01_rb,0.56744e-01_rb, &
+        & 0.54377e-01_rb,0.56941e-01_rb,0.65640e-01_rb,0.74923e-01_rb /)
+      kao(:, 5, 7,12) = (/ &
+        & 0.70621e-01_rb,0.66745e-01_rb,0.63972e-01_rb,0.60930e-01_rb,0.57801e-01_rb, &
+        & 0.57488e-01_rb,0.62631e-01_rb,0.72711e-01_rb,0.82984e-01_rb /)
+      kao(:, 1, 8,12) = (/ &
+        & 0.81108e-01_rb,0.74731e-01_rb,0.68669e-01_rb,0.63699e-01_rb,0.57482e-01_rb, &
+        & 0.50207e-01_rb,0.44226e-01_rb,0.43565e-01_rb,0.49479e-01_rb /)
+      kao(:, 2, 8,12) = (/ &
+        & 0.79714e-01_rb,0.73898e-01_rb,0.68659e-01_rb,0.64276e-01_rb,0.57881e-01_rb, &
+        & 0.51786e-01_rb,0.46974e-01_rb,0.48378e-01_rb,0.55162e-01_rb /)
+      kao(:, 3, 8,12) = (/ &
+        & 0.78456e-01_rb,0.73135e-01_rb,0.68758e-01_rb,0.64370e-01_rb,0.58662e-01_rb, &
+        & 0.53164e-01_rb,0.49684e-01_rb,0.53168e-01_rb,0.60666e-01_rb /)
+      kao(:, 4, 8,12) = (/ &
+        & 0.77309e-01_rb,0.72680e-01_rb,0.69000e-01_rb,0.64433e-01_rb,0.59353e-01_rb, &
+        & 0.54540e-01_rb,0.53042e-01_rb,0.58717e-01_rb,0.66992e-01_rb /)
+      kao(:, 5, 8,12) = (/ &
+        & 0.76406e-01_rb,0.72288e-01_rb,0.69084e-01_rb,0.64775e-01_rb,0.60105e-01_rb, &
+        & 0.56876e-01_rb,0.57740e-01_rb,0.65467e-01_rb,0.74695e-01_rb /)
+      kao(:, 1, 9,12) = (/ &
+        & 0.87281e-01_rb,0.80336e-01_rb,0.73586e-01_rb,0.67589e-01_rb,0.60164e-01_rb, &
+        & 0.51553e-01_rb,0.43512e-01_rb,0.38366e-01_rb,0.42260e-01_rb /)
+      kao(:, 2, 9,12) = (/ &
+        & 0.85638e-01_rb,0.79229e-01_rb,0.73710e-01_rb,0.68169e-01_rb,0.60640e-01_rb, &
+        & 0.53028e-01_rb,0.45744e-01_rb,0.42413e-01_rb,0.47570e-01_rb /)
+      kao(:, 3, 9,12) = (/ &
+        & 0.84292e-01_rb,0.78481e-01_rb,0.73900e-01_rb,0.68269e-01_rb,0.61342e-01_rb, &
+        & 0.54381e-01_rb,0.47902e-01_rb,0.46760e-01_rb,0.52980e-01_rb /)
+      kao(:, 4, 9,12) = (/ &
+        & 0.83115e-01_rb,0.77996e-01_rb,0.74142e-01_rb,0.68304e-01_rb,0.62073e-01_rb, &
+        & 0.55597e-01_rb,0.50525e-01_rb,0.51779e-01_rb,0.58954e-01_rb /)
+      kao(:, 5, 9,12) = (/ &
+        & 0.82186e-01_rb,0.77706e-01_rb,0.74161e-01_rb,0.68663e-01_rb,0.62685e-01_rb, &
+        & 0.57315e-01_rb,0.54189e-01_rb,0.58003e-01_rb,0.66142e-01_rb /)
+      kao(:, 1,10,12) = (/ &
+        & 0.93285e-01_rb,0.85813e-01_rb,0.78575e-01_rb,0.71552e-01_rb,0.62937e-01_rb, &
+        & 0.53130e-01_rb,0.43544e-01_rb,0.34852e-01_rb,0.25971e-01_rb /)
+      kao(:, 2,10,12) = (/ &
+        & 0.91673e-01_rb,0.84652e-01_rb,0.78625e-01_rb,0.72093e-01_rb,0.63376e-01_rb, &
+        & 0.54541e-01_rb,0.45576e-01_rb,0.38102e-01_rb,0.28356e-01_rb /)
+      kao(:, 3,10,12) = (/ &
+        & 0.90273e-01_rb,0.83828e-01_rb,0.78840e-01_rb,0.72190e-01_rb,0.64026e-01_rb, &
+        & 0.55889e-01_rb,0.47404e-01_rb,0.41695e-01_rb,0.31456e-01_rb /)
+      kao(:, 4,10,12) = (/ &
+        & 0.88982e-01_rb,0.83233e-01_rb,0.79026e-01_rb,0.72231e-01_rb,0.64765e-01_rb, &
+        & 0.57025e-01_rb,0.49463e-01_rb,0.46003e-01_rb,0.35501e-01_rb /)
+      kao(:, 5,10,12) = (/ &
+        & 0.88015e-01_rb,0.82954e-01_rb,0.78987e-01_rb,0.72605e-01_rb,0.65378e-01_rb, &
+        & 0.58432e-01_rb,0.52293e-01_rb,0.51371e-01_rb,0.39951e-01_rb /)
+      kao(:, 1,11,12) = (/ &
+        & 0.98224e-01_rb,0.90470e-01_rb,0.83283e-01_rb,0.75729e-01_rb,0.65953e-01_rb, &
+        & 0.55333e-01_rb,0.44607e-01_rb,0.33712e-01_rb,0.29825e-01_rb /)
+      kao(:, 2,11,12) = (/ &
+        & 0.96868e-01_rb,0.89565e-01_rb,0.83537e-01_rb,0.76001e-01_rb,0.66302e-01_rb, &
+        & 0.56711e-01_rb,0.46387e-01_rb,0.36339e-01_rb,0.33228e-01_rb /)
+      kao(:, 3,11,12) = (/ &
+        & 0.95464e-01_rb,0.88759e-01_rb,0.83774e-01_rb,0.75894e-01_rb,0.67115e-01_rb, &
+        & 0.57847e-01_rb,0.48034e-01_rb,0.39456e-01_rb,0.36088e-01_rb /)
+      kao(:, 4,11,12) = (/ &
+        & 0.94340e-01_rb,0.88366e-01_rb,0.83721e-01_rb,0.76044e-01_rb,0.67766e-01_rb, &
+        & 0.58947e-01_rb,0.50010e-01_rb,0.43247e-01_rb,0.40125e-01_rb /)
+      kao(:, 5,11,12) = (/ &
+        & 0.93518e-01_rb,0.88039e-01_rb,0.83475e-01_rb,0.76422e-01_rb,0.68414e-01_rb, &
+        & 0.60495e-01_rb,0.52431e-01_rb,0.48069e-01_rb,0.44798e-01_rb /)
+      kao(:, 1,12,12) = (/ &
+        & 0.10275e+00_rb,0.94729e-01_rb,0.87688e-01_rb,0.79394e-01_rb,0.68734e-01_rb, &
+        & 0.57476e-01_rb,0.45697e-01_rb,0.32943e-01_rb,0.29614e-01_rb /)
+      kao(:, 2,12,12) = (/ &
+        & 0.10159e+00_rb,0.94167e-01_rb,0.88202e-01_rb,0.79488e-01_rb,0.69232e-01_rb, &
+        & 0.58694e-01_rb,0.47208e-01_rb,0.35215e-01_rb,0.33437e-01_rb /)
+      kao(:, 3,12,12) = (/ &
+        & 0.10046e+00_rb,0.93671e-01_rb,0.88347e-01_rb,0.79409e-01_rb,0.69985e-01_rb, &
+        & 0.59703e-01_rb,0.48739e-01_rb,0.37920e-01_rb,0.36670e-01_rb /)
+      kao(:, 4,12,12) = (/ &
+        & 0.99712e-01_rb,0.93473e-01_rb,0.88135e-01_rb,0.79671e-01_rb,0.70541e-01_rb, &
+        & 0.60786e-01_rb,0.50658e-01_rb,0.41158e-01_rb,0.41155e-01_rb /)
+      kao(:, 5,12,12) = (/ &
+        & 0.99052e-01_rb,0.93236e-01_rb,0.87897e-01_rb,0.79933e-01_rb,0.71310e-01_rb, &
+        & 0.62364e-01_rb,0.52850e-01_rb,0.45390e-01_rb,0.47055e-01_rb /)
+      kao(:, 1,13,12) = (/ &
+        & 0.10693e+00_rb,0.98594e-01_rb,0.91730e-01_rb,0.82575e-01_rb,0.71131e-01_rb, &
+        & 0.59390e-01_rb,0.46621e-01_rb,0.32428e-01_rb,0.26794e-01_rb /)
+      kao(:, 2,13,12) = (/ &
+        & 0.10593e+00_rb,0.98329e-01_rb,0.92368e-01_rb,0.82651e-01_rb,0.71827e-01_rb, &
+        & 0.60538e-01_rb,0.47868e-01_rb,0.34468e-01_rb,0.29114e-01_rb /)
+      kao(:, 3,13,12) = (/ &
+        & 0.10521e+00_rb,0.98305e-01_rb,0.92444e-01_rb,0.82725e-01_rb,0.72549e-01_rb, &
+        & 0.61456e-01_rb,0.49349e-01_rb,0.36800e-01_rb,0.32781e-01_rb /)
+      kao(:, 4,13,12) = (/ &
+        & 0.10471e+00_rb,0.98393e-01_rb,0.92240e-01_rb,0.83082e-01_rb,0.73117e-01_rb, &
+        & 0.62504e-01_rb,0.51152e-01_rb,0.39616e-01_rb,0.37780e-01_rb /)
+      kao(:, 5,13,12) = (/ &
+        & 0.10409e+00_rb,0.98364e-01_rb,0.92131e-01_rb,0.83350e-01_rb,0.73995e-01_rb, &
+        & 0.64047e-01_rb,0.53327e-01_rb,0.43375e-01_rb,0.42285e-01_rb /)
+      kao(:, 1, 1,13) = (/ &
+        & 0.52810e-01_rb,0.49450e-01_rb,0.49647e-01_rb,0.57104e-01_rb,0.73433e-01_rb, &
+        & 0.91743e-01_rb,0.11005e+00_rb,0.12834e+00_rb,0.14491e+00_rb /)
+      kao(:, 2, 1,13) = (/ &
+        & 0.51653e-01_rb,0.48971e-01_rb,0.50186e-01_rb,0.59440e-01_rb,0.77723e-01_rb, &
+        & 0.97098e-01_rb,0.11647e+00_rb,0.13583e+00_rb,0.15375e+00_rb /)
+      kao(:, 3, 1,13) = (/ &
+        & 0.50696e-01_rb,0.48582e-01_rb,0.50737e-01_rb,0.61667e-01_rb,0.81568e-01_rb, &
+        & 0.10190e+00_rb,0.12223e+00_rb,0.14254e+00_rb,0.16133e+00_rb /)
+      kao(:, 4, 1,13) = (/ &
+        & 0.49759e-01_rb,0.48321e-01_rb,0.51484e-01_rb,0.64441e-01_rb,0.85673e-01_rb, &
+        & 0.10703e+00_rb,0.12837e+00_rb,0.14971e+00_rb,0.16936e+00_rb /)
+      kao(:, 5, 1,13) = (/ &
+        & 0.48804e-01_rb,0.48067e-01_rb,0.52560e-01_rb,0.67354e-01_rb,0.89656e-01_rb, &
+        & 0.11200e+00_rb,0.13434e+00_rb,0.15666e+00_rb,0.17718e+00_rb /)
+      kao(:, 1, 2,13) = (/ &
+        & 0.57042e-01_rb,0.54069e-01_rb,0.53905e-01_rb,0.58729e-01_rb,0.73592e-01_rb, &
+        & 0.91941e-01_rb,0.11029e+00_rb,0.12863e+00_rb,0.14602e+00_rb /)
+      kao(:, 2, 2,13) = (/ &
+        & 0.55841e-01_rb,0.53550e-01_rb,0.54566e-01_rb,0.60781e-01_rb,0.78168e-01_rb, &
+        & 0.97652e-01_rb,0.11714e+00_rb,0.13661e+00_rb,0.15506e+00_rb /)
+      kao(:, 3, 2,13) = (/ &
+        & 0.54920e-01_rb,0.52981e-01_rb,0.54943e-01_rb,0.62919e-01_rb,0.82379e-01_rb, &
+        & 0.10292e+00_rb,0.12345e+00_rb,0.14397e+00_rb,0.16344e+00_rb /)
+      kao(:, 4, 2,13) = (/ &
+        & 0.54055e-01_rb,0.52591e-01_rb,0.55488e-01_rb,0.65511e-01_rb,0.86681e-01_rb, &
+        & 0.10829e+00_rb,0.12990e+00_rb,0.15147e+00_rb,0.17196e+00_rb /)
+      kao(:, 5, 2,13) = (/ &
+        & 0.53226e-01_rb,0.52334e-01_rb,0.56238e-01_rb,0.68429e-01_rb,0.90830e-01_rb, &
+        & 0.11345e+00_rb,0.13607e+00_rb,0.15868e+00_rb,0.17998e+00_rb /)
+      kao(:, 1, 3,13) = (/ &
+        & 0.62670e-01_rb,0.59309e-01_rb,0.58772e-01_rb,0.61122e-01_rb,0.72960e-01_rb, &
+        & 0.91113e-01_rb,0.10930e+00_rb,0.12747e+00_rb,0.14514e+00_rb /)
+      kao(:, 2, 3,13) = (/ &
+        & 0.61411e-01_rb,0.58632e-01_rb,0.59230e-01_rb,0.62688e-01_rb,0.77748e-01_rb, &
+        & 0.97139e-01_rb,0.11652e+00_rb,0.13590e+00_rb,0.15479e+00_rb /)
+      kao(:, 3, 3,13) = (/ &
+        & 0.60334e-01_rb,0.57923e-01_rb,0.59411e-01_rb,0.64539e-01_rb,0.82093e-01_rb, &
+        & 0.10257e+00_rb,0.12305e+00_rb,0.14350e+00_rb,0.16343e+00_rb /)
+      kao(:, 4, 3,13) = (/ &
+        & 0.59451e-01_rb,0.57416e-01_rb,0.59633e-01_rb,0.66820e-01_rb,0.86494e-01_rb, &
+        & 0.10804e+00_rb,0.12960e+00_rb,0.15112e+00_rb,0.17209e+00_rb /)
+      kao(:, 5, 3,13) = (/ &
+        & 0.58597e-01_rb,0.57143e-01_rb,0.60240e-01_rb,0.69594e-01_rb,0.91059e-01_rb, &
+        & 0.11373e+00_rb,0.13640e+00_rb,0.15905e+00_rb,0.18103e+00_rb /)
+      kao(:, 1, 4,13) = (/ &
+        & 0.69822e-01_rb,0.65601e-01_rb,0.63945e-01_rb,0.64755e-01_rb,0.73038e-01_rb, &
+        & 0.90165e-01_rb,0.10817e+00_rb,0.12616e+00_rb,0.14389e+00_rb /)
+      kao(:, 2, 4,13) = (/ &
+        & 0.68507e-01_rb,0.64727e-01_rb,0.64234e-01_rb,0.66213e-01_rb,0.77749e-01_rb, &
+        & 0.96668e-01_rb,0.11597e+00_rb,0.13524e+00_rb,0.15427e+00_rb /)
+      kao(:, 3, 4,13) = (/ &
+        & 0.67276e-01_rb,0.63962e-01_rb,0.64238e-01_rb,0.67909e-01_rb,0.82185e-01_rb, &
+        & 0.10254e+00_rb,0.12301e+00_rb,0.14345e+00_rb,0.16365e+00_rb /)
+      kao(:, 4, 4,13) = (/ &
+        & 0.66381e-01_rb,0.63334e-01_rb,0.64220e-01_rb,0.69770e-01_rb,0.86724e-01_rb, &
+        & 0.10832e+00_rb,0.12994e+00_rb,0.15151e+00_rb,0.17282e+00_rb /)
+      kao(:, 5, 4,13) = (/ &
+        & 0.65437e-01_rb,0.62972e-01_rb,0.64673e-01_rb,0.72222e-01_rb,0.91630e-01_rb, &
+        & 0.11445e+00_rb,0.13728e+00_rb,0.16006e+00_rb,0.18257e+00_rb /)
+      kao(:, 1, 5,13) = (/ &
+        & 0.78344e-01_rb,0.73091e-01_rb,0.69713e-01_rb,0.69214e-01_rb,0.74668e-01_rb, &
+        & 0.88915e-01_rb,0.10667e+00_rb,0.12441e+00_rb,0.14209e+00_rb /)
+      kao(:, 2, 5,13) = (/ &
+        & 0.76773e-01_rb,0.71981e-01_rb,0.69752e-01_rb,0.70736e-01_rb,0.78904e-01_rb, &
+        & 0.95797e-01_rb,0.11493e+00_rb,0.13406e+00_rb,0.15311e+00_rb /)
+      kao(:, 3, 5,13) = (/ &
+        & 0.75310e-01_rb,0.71068e-01_rb,0.69651e-01_rb,0.72503e-01_rb,0.83070e-01_rb, &
+        & 0.10214e+00_rb,0.12251e+00_rb,0.14289e+00_rb,0.16320e+00_rb /)
+      kao(:, 4, 5,13) = (/ &
+        & 0.74250e-01_rb,0.70202e-01_rb,0.69499e-01_rb,0.74333e-01_rb,0.87301e-01_rb, &
+        & 0.10818e+00_rb,0.12976e+00_rb,0.15132e+00_rb,0.17281e+00_rb /)
+      kao(:, 5, 5,13) = (/ &
+        & 0.73209e-01_rb,0.69739e-01_rb,0.69847e-01_rb,0.76315e-01_rb,0.91870e-01_rb, &
+        & 0.11438e+00_rb,0.13720e+00_rb,0.16000e+00_rb,0.18274e+00_rb /)
+      kao(:, 1, 6,13) = (/ &
+        & 0.87696e-01_rb,0.81522e-01_rb,0.76509e-01_rb,0.74345e-01_rb,0.77107e-01_rb, &
+        & 0.86456e-01_rb,0.10266e+00_rb,0.11975e+00_rb,0.13684e+00_rb /)
+      kao(:, 2, 6,13) = (/ &
+        & 0.85834e-01_rb,0.80104e-01_rb,0.76319e-01_rb,0.75879e-01_rb,0.80970e-01_rb, &
+        & 0.93234e-01_rb,0.11135e+00_rb,0.12988e+00_rb,0.14843e+00_rb /)
+      kao(:, 3, 6,13) = (/ &
+        & 0.84103e-01_rb,0.79034e-01_rb,0.76204e-01_rb,0.77685e-01_rb,0.84459e-01_rb, &
+        & 0.99600e-01_rb,0.11936e+00_rb,0.13921e+00_rb,0.15907e+00_rb /)
+      kao(:, 4, 6,13) = (/ &
+        & 0.82699e-01_rb,0.78102e-01_rb,0.75915e-01_rb,0.79277e-01_rb,0.87923e-01_rb, &
+        & 0.10572e+00_rb,0.12681e+00_rb,0.14791e+00_rb,0.16901e+00_rb /)
+      kao(:, 5, 6,13) = (/ &
+        & 0.81604e-01_rb,0.77529e-01_rb,0.76175e-01_rb,0.80727e-01_rb,0.91640e-01_rb, &
+        & 0.11182e+00_rb,0.13414e+00_rb,0.15644e+00_rb,0.17875e+00_rb /)
+      kao(:, 1, 7,13) = (/ &
+        & 0.97322e-01_rb,0.90329e-01_rb,0.84313e-01_rb,0.80452e-01_rb,0.80118e-01_rb, &
+        & 0.84204e-01_rb,0.96138e-01_rb,0.11212e+00_rb,0.12812e+00_rb /)
+      kao(:, 2, 7,13) = (/ &
+        & 0.95378e-01_rb,0.88856e-01_rb,0.83999e-01_rb,0.81744e-01_rb,0.83529e-01_rb, &
+        & 0.90072e-01_rb,0.10504e+00_rb,0.12254e+00_rb,0.14003e+00_rb /)
+      kao(:, 3, 7,13) = (/ &
+        & 0.93471e-01_rb,0.87725e-01_rb,0.83968e-01_rb,0.83424e-01_rb,0.86362e-01_rb, &
+        & 0.95913e-01_rb,0.11338e+00_rb,0.13227e+00_rb,0.15114e+00_rb /)
+      kao(:, 4, 7,13) = (/ &
+        & 0.91861e-01_rb,0.86679e-01_rb,0.83638e-01_rb,0.84829e-01_rb,0.89126e-01_rb, &
+        & 0.10167e+00_rb,0.12111e+00_rb,0.14127e+00_rb,0.16142e+00_rb /)
+      kao(:, 5, 7,13) = (/ &
+        & 0.90669e-01_rb,0.86079e-01_rb,0.83677e-01_rb,0.85955e-01_rb,0.92165e-01_rb, &
+        & 0.10751e+00_rb,0.12862e+00_rb,0.15005e+00_rb,0.17145e+00_rb /)
+      kao(:, 1, 8,13) = (/ &
+        & 0.10748e+00_rb,0.99760e-01_rb,0.92641e-01_rb,0.87386e-01_rb,0.83918e-01_rb, &
+        & 0.82807e-01_rb,0.88461e-01_rb,0.10199e+00_rb,0.11655e+00_rb /)
+      kao(:, 2, 8,13) = (/ &
+        & 0.10548e+00_rb,0.98347e-01_rb,0.92153e-01_rb,0.88724e-01_rb,0.86807e-01_rb, &
+        & 0.87435e-01_rb,0.96918e-01_rb,0.11262e+00_rb,0.12866e+00_rb /)
+      kao(:, 3, 8,13) = (/ &
+        & 0.10345e+00_rb,0.96941e-01_rb,0.92269e-01_rb,0.90148e-01_rb,0.89023e-01_rb, &
+        & 0.92390e-01_rb,0.10517e+00_rb,0.12260e+00_rb,0.14006e+00_rb /)
+      kao(:, 4, 8,13) = (/ &
+        & 0.10168e+00_rb,0.95648e-01_rb,0.92050e-01_rb,0.91217e-01_rb,0.91169e-01_rb, &
+        & 0.97530e-01_rb,0.11302e+00_rb,0.13185e+00_rb,0.15061e+00_rb /)
+      kao(:, 5, 8,13) = (/ &
+        & 0.10031e+00_rb,0.94918e-01_rb,0.92030e-01_rb,0.91944e-01_rb,0.93599e-01_rb, &
+        & 0.10280e+00_rb,0.12083e+00_rb,0.14095e+00_rb,0.16101e+00_rb /)
+      kao(:, 1, 9,13) = (/ &
+        & 0.11850e+00_rb,0.10963e+00_rb,0.10118e+00_rb,0.94592e-01_rb,0.88496e-01_rb, &
+        & 0.82777e-01_rb,0.81368e-01_rb,0.90482e-01_rb,0.10334e+00_rb /)
+      kao(:, 2, 9,13) = (/ &
+        & 0.11636e+00_rb,0.10836e+00_rb,0.10080e+00_rb,0.96151e-01_rb,0.90961e-01_rb, &
+        & 0.86437e-01_rb,0.88759e-01_rb,0.10103e+00_rb,0.11540e+00_rb /)
+      kao(:, 3, 9,13) = (/ &
+        & 0.11416e+00_rb,0.10675e+00_rb,0.10109e+00_rb,0.97591e-01_rb,0.92676e-01_rb, &
+        & 0.90148e-01_rb,0.96288e-01_rb,0.11094e+00_rb,0.12669e+00_rb /)
+      kao(:, 4, 9,13) = (/ &
+        & 0.11214e+00_rb,0.10527e+00_rb,0.10096e+00_rb,0.98437e-01_rb,0.94256e-01_rb, &
+        & 0.94326e-01_rb,0.10386e+00_rb,0.12050e+00_rb,0.13763e+00_rb /)
+      kao(:, 5, 9,13) = (/ &
+        & 0.11054e+00_rb,0.10425e+00_rb,0.10085e+00_rb,0.98717e-01_rb,0.96200e-01_rb, &
+        & 0.98935e-01_rb,0.11173e+00_rb,0.13010e+00_rb,0.14859e+00_rb /)
+      kao(:, 1,10,13) = (/ &
+        & 0.13016e+00_rb,0.11986e+00_rb,0.10995e+00_rb,0.10196e+00_rb,0.93774e-01_rb, &
+        & 0.84360e-01_rb,0.76878e-01_rb,0.79680e-01_rb,0.67359e-01_rb /)
+      kao(:, 2,10,13) = (/ &
+        & 0.12774e+00_rb,0.11853e+00_rb,0.10979e+00_rb,0.10367e+00_rb,0.96160e-01_rb, &
+        & 0.87173e-01_rb,0.82710e-01_rb,0.89689e-01_rb,0.82456e-01_rb /)
+      kao(:, 3,10,13) = (/ &
+        & 0.12531e+00_rb,0.11685e+00_rb,0.11022e+00_rb,0.10509e+00_rb,0.97450e-01_rb, &
+        & 0.90061e-01_rb,0.89222e-01_rb,0.99588e-01_rb,0.96338e-01_rb /)
+      kao(:, 4,10,13) = (/ &
+        & 0.12312e+00_rb,0.11523e+00_rb,0.11015e+00_rb,0.10584e+00_rb,0.98534e-01_rb, &
+        & 0.93531e-01_rb,0.96262e-01_rb,0.10942e+00_rb,0.11043e+00_rb /)
+      kao(:, 5,10,13) = (/ &
+        & 0.12128e+00_rb,0.11400e+00_rb,0.10998e+00_rb,0.10588e+00_rb,0.10008e+00_rb, &
+        & 0.97359e-01_rb,0.10364e+00_rb,0.11932e+00_rb,0.12582e+00_rb /)
+      kao(:, 1,11,13) = (/ &
+        & 0.14105e+00_rb,0.12987e+00_rb,0.11910e+00_rb,0.11026e+00_rb,0.10035e+00_rb, &
+        & 0.88081e-01_rb,0.76687e-01_rb,0.74205e-01_rb,0.50899e-01_rb /)
+      kao(:, 2,11,13) = (/ &
+        & 0.13825e+00_rb,0.12810e+00_rb,0.11908e+00_rb,0.11198e+00_rb,0.10215e+00_rb, &
+        & 0.90197e-01_rb,0.81650e-01_rb,0.83605e-01_rb,0.56975e-01_rb /)
+      kao(:, 3,11,13) = (/ &
+        & 0.13566e+00_rb,0.12624e+00_rb,0.11939e+00_rb,0.11316e+00_rb,0.10299e+00_rb, &
+        & 0.92874e-01_rb,0.87279e-01_rb,0.93203e-01_rb,0.64736e-01_rb /)
+      kao(:, 4,11,13) = (/ &
+        & 0.13334e+00_rb,0.12460e+00_rb,0.11935e+00_rb,0.11337e+00_rb,0.10395e+00_rb, &
+        & 0.95956e-01_rb,0.93410e-01_rb,0.10293e+00_rb,0.71284e-01_rb /)
+      kao(:, 5,11,13) = (/ &
+        & 0.13131e+00_rb,0.12363e+00_rb,0.11937e+00_rb,0.11314e+00_rb,0.10517e+00_rb, &
+        & 0.98969e-01_rb,0.10016e+00_rb,0.11304e+00_rb,0.78587e-01_rb /)
+      kao(:, 1,12,13) = (/ &
+        & 0.15212e+00_rb,0.13991e+00_rb,0.12851e+00_rb,0.11872e+00_rb,0.10663e+00_rb, &
+        & 0.91867e-01_rb,0.77350e-01_rb,0.69757e-01_rb,0.57657e-01_rb /)
+      kao(:, 2,12,13) = (/ &
+        & 0.14895e+00_rb,0.13760e+00_rb,0.12846e+00_rb,0.12032e+00_rb,0.10790e+00_rb, &
+        & 0.93798e-01_rb,0.81816e-01_rb,0.78361e-01_rb,0.63811e-01_rb /)
+      kao(:, 3,12,13) = (/ &
+        & 0.14609e+00_rb,0.13558e+00_rb,0.12854e+00_rb,0.12100e+00_rb,0.10856e+00_rb, &
+        & 0.96260e-01_rb,0.86684e-01_rb,0.87192e-01_rb,0.72200e-01_rb /)
+      kao(:, 4,12,13) = (/ &
+        & 0.14343e+00_rb,0.13400e+00_rb,0.12849e+00_rb,0.12073e+00_rb,0.10951e+00_rb, &
+        & 0.98753e-01_rb,0.91530e-01_rb,0.96391e-01_rb,0.79517e-01_rb /)
+      kao(:, 5,12,13) = (/ &
+        & 0.14120e+00_rb,0.13303e+00_rb,0.12833e+00_rb,0.12041e+00_rb,0.11038e+00_rb, &
+        & 0.10129e+00_rb,0.97562e-01_rb,0.10658e+00_rb,0.84371e-01_rb /)
+      kao(:, 1,13,13) = (/ &
+        & 0.16284e+00_rb,0.14976e+00_rb,0.13792e+00_rb,0.12684e+00_rb,0.11275e+00_rb, &
+        & 0.95645e-01_rb,0.78767e-01_rb,0.66366e-01_rb,0.59038e-01_rb /)
+      kao(:, 2,13,13) = (/ &
+        & 0.15947e+00_rb,0.14721e+00_rb,0.13779e+00_rb,0.12800e+00_rb,0.11359e+00_rb, &
+        & 0.97597e-01_rb,0.82782e-01_rb,0.73753e-01_rb,0.67374e-01_rb /)
+      kao(:, 3,13,13) = (/ &
+        & 0.15626e+00_rb,0.14498e+00_rb,0.13763e+00_rb,0.12811e+00_rb,0.11414e+00_rb, &
+        & 0.99826e-01_rb,0.86643e-01_rb,0.81525e-01_rb,0.75874e-01_rb /)
+      kao(:, 4,13,13) = (/ &
+        & 0.15335e+00_rb,0.14330e+00_rb,0.13746e+00_rb,0.12758e+00_rb,0.11501e+00_rb, &
+        & 0.10172e+00_rb,0.90750e-01_rb,0.90246e-01_rb,0.81744e-01_rb /)
+      kao(:, 5,13,13) = (/ &
+        & 0.15088e+00_rb,0.14217e+00_rb,0.13690e+00_rb,0.12723e+00_rb,0.11557e+00_rb, &
+        & 0.10388e+00_rb,0.96218e-01_rb,0.10042e+00_rb,0.88529e-01_rb /)
+      kao(:, 1, 1,14) = (/ &
+        & 0.62837e-01_rb,0.60695e-01_rb,0.77720e-01_rb,0.11279e+00_rb,0.15033e+00_rb, &
+        & 0.18788e+00_rb,0.22539e+00_rb,0.26284e+00_rb,0.29421e+00_rb /)
+      kao(:, 2, 1,14) = (/ &
+        & 0.61599e-01_rb,0.60148e-01_rb,0.79591e-01_rb,0.11750e+00_rb,0.15661e+00_rb, &
+        & 0.19570e+00_rb,0.23478e+00_rb,0.27378e+00_rb,0.30578e+00_rb /)
+      kao(:, 3, 1,14) = (/ &
+        & 0.60827e-01_rb,0.59792e-01_rb,0.82175e-01_rb,0.12253e+00_rb,0.16330e+00_rb, &
+        & 0.20407e+00_rb,0.24482e+00_rb,0.28548e+00_rb,0.31829e+00_rb /)
+      kao(:, 4, 1,14) = (/ &
+        & 0.60773e-01_rb,0.59852e-01_rb,0.85295e-01_rb,0.12765e+00_rb,0.17012e+00_rb, &
+        & 0.21258e+00_rb,0.25502e+00_rb,0.29736e+00_rb,0.33114e+00_rb /)
+      kao(:, 5, 1,14) = (/ &
+        & 0.60579e-01_rb,0.60436e-01_rb,0.88993e-01_rb,0.13334e+00_rb,0.17771e+00_rb, &
+        & 0.22206e+00_rb,0.26642e+00_rb,0.31066e+00_rb,0.34557e+00_rb /)
+      kao(:, 1, 2,14) = (/ &
+        & 0.70150e-01_rb,0.67933e-01_rb,0.82763e-01_rb,0.11770e+00_rb,0.15687e+00_rb, &
+        & 0.19605e+00_rb,0.23520e+00_rb,0.27426e+00_rb,0.30923e+00_rb /)
+      kao(:, 2, 2,14) = (/ &
+        & 0.68737e-01_rb,0.67168e-01_rb,0.84453e-01_rb,0.12329e+00_rb,0.16434e+00_rb, &
+        & 0.20537e+00_rb,0.24638e+00_rb,0.28735e+00_rb,0.32358e+00_rb /)
+      kao(:, 3, 2,14) = (/ &
+        & 0.67693e-01_rb,0.66713e-01_rb,0.87076e-01_rb,0.12893e+00_rb,0.17184e+00_rb, &
+        & 0.21474e+00_rb,0.25764e+00_rb,0.30044e+00_rb,0.33811e+00_rb /)
+      kao(:, 4, 2,14) = (/ &
+        & 0.67352e-01_rb,0.66652e-01_rb,0.90088e-01_rb,0.13441e+00_rb,0.17914e+00_rb, &
+        & 0.22388e+00_rb,0.26860e+00_rb,0.31321e+00_rb,0.35245e+00_rb /)
+      kao(:, 5, 2,14) = (/ &
+        & 0.66923e-01_rb,0.67069e-01_rb,0.93870e-01_rb,0.14034e+00_rb,0.18704e+00_rb, &
+        & 0.23374e+00_rb,0.28042e+00_rb,0.32702e+00_rb,0.36794e+00_rb /)
+      kao(:, 1, 3,14) = (/ &
+        & 0.79385e-01_rb,0.76263e-01_rb,0.87808e-01_rb,0.12001e+00_rb,0.15997e+00_rb, &
+        & 0.19992e+00_rb,0.23984e+00_rb,0.27971e+00_rb,0.31814e+00_rb /)
+      kao(:, 2, 3,14) = (/ &
+        & 0.77666e-01_rb,0.75357e-01_rb,0.89439e-01_rb,0.12673e+00_rb,0.16892e+00_rb, &
+        & 0.21110e+00_rb,0.25327e+00_rb,0.29539e+00_rb,0.33569e+00_rb /)
+      kao(:, 3, 3,14) = (/ &
+        & 0.76193e-01_rb,0.74694e-01_rb,0.92082e-01_rb,0.13335e+00_rb,0.17774e+00_rb, &
+        & 0.22213e+00_rb,0.26651e+00_rb,0.31084e+00_rb,0.35313e+00_rb /)
+      kao(:, 4, 3,14) = (/ &
+        & 0.75335e-01_rb,0.74405e-01_rb,0.95067e-01_rb,0.13953e+00_rb,0.18597e+00_rb, &
+        & 0.23241e+00_rb,0.27884e+00_rb,0.32518e+00_rb,0.36942e+00_rb /)
+      kao(:, 5, 3,14) = (/ &
+        & 0.74635e-01_rb,0.74698e-01_rb,0.98457e-01_rb,0.14565e+00_rb,0.19414e+00_rb, &
+        & 0.24262e+00_rb,0.29108e+00_rb,0.33947e+00_rb,0.38555e+00_rb /)
+      kao(:, 1, 4,14) = (/ &
+        & 0.89595e-01_rb,0.85781e-01_rb,0.93997e-01_rb,0.12072e+00_rb,0.16001e+00_rb, &
+        & 0.19998e+00_rb,0.23994e+00_rb,0.27984e+00_rb,0.31934e+00_rb /)
+      kao(:, 2, 4,14) = (/ &
+        & 0.87421e-01_rb,0.84747e-01_rb,0.95233e-01_rb,0.12788e+00_rb,0.17024e+00_rb, &
+        & 0.21274e+00_rb,0.25525e+00_rb,0.29772e+00_rb,0.33967e+00_rb /)
+      kao(:, 3, 4,14) = (/ &
+        & 0.85503e-01_rb,0.83808e-01_rb,0.97531e-01_rb,0.13512e+00_rb,0.18009e+00_rb, &
+        & 0.22508e+00_rb,0.27005e+00_rb,0.31493e+00_rb,0.35929e+00_rb /)
+      kao(:, 4, 4,14) = (/ &
+        & 0.84061e-01_rb,0.83216e-01_rb,0.10039e+00_rb,0.14194e+00_rb,0.18919e+00_rb, &
+        & 0.23644e+00_rb,0.28372e+00_rb,0.33088e+00_rb,0.37743e+00_rb /)
+      kao(:, 5, 4,14) = (/ &
+        & 0.83141e-01_rb,0.83249e-01_rb,0.10352e+00_rb,0.14853e+00_rb,0.19798e+00_rb, &
+        & 0.24744e+00_rb,0.29688e+00_rb,0.34622e+00_rb,0.39491e+00_rb /)
+      kao(:, 1, 5,14) = (/ &
+        & 0.10093e+00_rb,0.96180e-01_rb,0.10202e+00_rb,0.12191e+00_rb,0.15810e+00_rb, &
+        & 0.19761e+00_rb,0.23710e+00_rb,0.27651e+00_rb,0.31584e+00_rb /)
+      kao(:, 2, 5,14) = (/ &
+        & 0.98348e-01_rb,0.95154e-01_rb,0.10279e+00_rb,0.12897e+00_rb,0.16954e+00_rb, &
+        & 0.21190e+00_rb,0.25425e+00_rb,0.29655e+00_rb,0.33869e+00_rb /)
+      kao(:, 3, 5,14) = (/ &
+        & 0.96078e-01_rb,0.94065e-01_rb,0.10459e+00_rb,0.13623e+00_rb,0.18035e+00_rb, &
+        & 0.22539e+00_rb,0.27041e+00_rb,0.31537e+00_rb,0.36019e+00_rb /)
+      kao(:, 4, 5,14) = (/ &
+        & 0.94202e-01_rb,0.93296e-01_rb,0.10703e+00_rb,0.14326e+00_rb,0.19057e+00_rb, &
+        & 0.23817e+00_rb,0.28575e+00_rb,0.33330e+00_rb,0.38060e+00_rb /)
+      kao(:, 5, 5,14) = (/ &
+        & 0.93055e-01_rb,0.92935e-01_rb,0.10982e+00_rb,0.15042e+00_rb,0.20048e+00_rb, &
+        & 0.25056e+00_rb,0.30061e+00_rb,0.35061e+00_rb,0.40035e+00_rb /)
+      kao(:, 1, 6,14) = (/ &
+        & 0.11421e+00_rb,0.10796e+00_rb,0.11173e+00_rb,0.12476e+00_rb,0.15549e+00_rb, &
+        & 0.19408e+00_rb,0.23286e+00_rb,0.27161e+00_rb,0.31032e+00_rb /)
+      kao(:, 2, 6,14) = (/ &
+        & 0.11123e+00_rb,0.10718e+00_rb,0.11218e+00_rb,0.13121e+00_rb,0.16775e+00_rb, &
+        & 0.20966e+00_rb,0.25155e+00_rb,0.29340e+00_rb,0.33523e+00_rb /)
+      kao(:, 3, 6,14) = (/ &
+        & 0.10875e+00_rb,0.10588e+00_rb,0.11334e+00_rb,0.13798e+00_rb,0.17972e+00_rb, &
+        & 0.22462e+00_rb,0.26950e+00_rb,0.31433e+00_rb,0.35914e+00_rb /)
+      kao(:, 4, 6,14) = (/ &
+        & 0.10666e+00_rb,0.10458e+00_rb,0.11529e+00_rb,0.14519e+00_rb,0.19132e+00_rb, &
+        & 0.23911e+00_rb,0.28688e+00_rb,0.33463e+00_rb,0.38232e+00_rb /)
+      kao(:, 5, 6,14) = (/ &
+        & 0.10502e+00_rb,0.10381e+00_rb,0.11770e+00_rb,0.15287e+00_rb,0.20267e+00_rb, &
+        & 0.25329e+00_rb,0.30392e+00_rb,0.35446e+00_rb,0.40496e+00_rb /)
+      kao(:, 1, 7,14) = (/ &
+        & 0.12988e+00_rb,0.12138e+00_rb,0.12291e+00_rb,0.12930e+00_rb,0.15315e+00_rb, &
+        & 0.18907e+00_rb,0.22686e+00_rb,0.26460e+00_rb,0.30239e+00_rb /)
+      kao(:, 2, 7,14) = (/ &
+        & 0.12649e+00_rb,0.12054e+00_rb,0.12314e+00_rb,0.13530e+00_rb,0.16601e+00_rb, &
+        & 0.20667e+00_rb,0.24798e+00_rb,0.28925e+00_rb,0.33056e+00_rb /)
+      kao(:, 3, 7,14) = (/ &
+        & 0.12370e+00_rb,0.11924e+00_rb,0.12400e+00_rb,0.14174e+00_rb,0.17907e+00_rb, &
+        & 0.22369e+00_rb,0.26838e+00_rb,0.31304e+00_rb,0.35775e+00_rb /)
+      kao(:, 4, 7,14) = (/ &
+        & 0.12121e+00_rb,0.11770e+00_rb,0.12551e+00_rb,0.14889e+00_rb,0.19207e+00_rb, &
+        & 0.24005e+00_rb,0.28802e+00_rb,0.33592e+00_rb,0.38391e+00_rb /)
+      kao(:, 5, 7,14) = (/ &
+        & 0.11892e+00_rb,0.11635e+00_rb,0.12739e+00_rb,0.15666e+00_rb,0.20470e+00_rb, &
+        & 0.25583e+00_rb,0.30694e+00_rb,0.35802e+00_rb,0.40917e+00_rb /)
+      kao(:, 1, 8,14) = (/ &
+        & 0.14795e+00_rb,0.13669e+00_rb,0.13564e+00_rb,0.13646e+00_rb,0.15231e+00_rb, &
+        & 0.18310e+00_rb,0.21966e+00_rb,0.25622e+00_rb,0.29284e+00_rb /)
+      kao(:, 2, 8,14) = (/ &
+        & 0.14430e+00_rb,0.13540e+00_rb,0.13550e+00_rb,0.14118e+00_rb,0.16490e+00_rb, &
+        & 0.20238e+00_rb,0.24284e+00_rb,0.28324e+00_rb,0.32374e+00_rb /)
+      kao(:, 3, 8,14) = (/ &
+        & 0.14109e+00_rb,0.13403e+00_rb,0.13585e+00_rb,0.14713e+00_rb,0.17836e+00_rb, &
+        & 0.22126e+00_rb,0.26548e+00_rb,0.30963e+00_rb,0.35392e+00_rb /)
+      kao(:, 4, 8,14) = (/ &
+        & 0.13807e+00_rb,0.13250e+00_rb,0.13707e+00_rb,0.15422e+00_rb,0.19232e+00_rb, &
+        & 0.23967e+00_rb,0.28757e+00_rb,0.33540e+00_rb,0.38338e+00_rb /)
+      kao(:, 5, 8,14) = (/ &
+        & 0.13514e+00_rb,0.13080e+00_rb,0.13878e+00_rb,0.16197e+00_rb,0.20594e+00_rb, &
+        & 0.25719e+00_rb,0.30860e+00_rb,0.35994e+00_rb,0.41142e+00_rb /)
+      kao(:, 1, 9,14) = (/ &
+        & 0.16812e+00_rb,0.15406e+00_rb,0.15051e+00_rb,0.14632e+00_rb,0.15371e+00_rb, &
+        & 0.17730e+00_rb,0.21108e+00_rb,0.24622e+00_rb,0.28143e+00_rb /)
+      kao(:, 2, 9,14) = (/ &
+        & 0.16420e+00_rb,0.15230e+00_rb,0.14950e+00_rb,0.14998e+00_rb,0.16549e+00_rb, &
+        & 0.19706e+00_rb,0.23609e+00_rb,0.27539e+00_rb,0.31477e+00_rb /)
+      kao(:, 3, 9,14) = (/ &
+        & 0.16053e+00_rb,0.15077e+00_rb,0.14903e+00_rb,0.15488e+00_rb,0.17883e+00_rb, &
+        & 0.21740e+00_rb,0.26082e+00_rb,0.30423e+00_rb,0.34775e+00_rb /)
+      kao(:, 4, 9,14) = (/ &
+        & 0.15694e+00_rb,0.14891e+00_rb,0.14991e+00_rb,0.16140e+00_rb,0.19301e+00_rb, &
+        & 0.23753e+00_rb,0.28500e+00_rb,0.33244e+00_rb,0.37999e+00_rb /)
+      kao(:, 5, 9,14) = (/ &
+        & 0.15342e+00_rb,0.14670e+00_rb,0.15145e+00_rb,0.16838e+00_rb,0.20634e+00_rb, &
+        & 0.25567e+00_rb,0.30677e+00_rb,0.35784e+00_rb,0.40903e+00_rb /)
+      kao(:, 1,10,14) = (/ &
+        & 0.18962e+00_rb,0.17319e+00_rb,0.16709e+00_rb,0.15817e+00_rb,0.15908e+00_rb, &
+        & 0.17425e+00_rb,0.20287e+00_rb,0.23665e+00_rb,0.27049e+00_rb /)
+      kao(:, 2,10,14) = (/ &
+        & 0.18536e+00_rb,0.17110e+00_rb,0.16526e+00_rb,0.16124e+00_rb,0.16946e+00_rb, &
+        & 0.19394e+00_rb,0.22959e+00_rb,0.26781e+00_rb,0.30611e+00_rb /)
+      kao(:, 3,10,14) = (/ &
+        & 0.18117e+00_rb,0.16910e+00_rb,0.16400e+00_rb,0.16579e+00_rb,0.18236e+00_rb, &
+        & 0.21466e+00_rb,0.25610e+00_rb,0.29874e+00_rb,0.34146e+00_rb /)
+      kao(:, 4,10,14) = (/ &
+        & 0.17697e+00_rb,0.16677e+00_rb,0.16446e+00_rb,0.17161e+00_rb,0.19589e+00_rb, &
+        & 0.23479e+00_rb,0.28114e+00_rb,0.32796e+00_rb,0.37484e+00_rb /)
+      kao(:, 5,10,14) = (/ &
+        & 0.17281e+00_rb,0.16399e+00_rb,0.16565e+00_rb,0.17716e+00_rb,0.20808e+00_rb, &
+        & 0.25277e+00_rb,0.30323e+00_rb,0.35372e+00_rb,0.40429e+00_rb /)
+      kao(:, 1,11,14) = (/ &
+        & 0.21055e+00_rb,0.19254e+00_rb,0.18359e+00_rb,0.17274e+00_rb,0.17137e+00_rb, &
+        & 0.18167e+00_rb,0.20669e+00_rb,0.24044e+00_rb,0.24447e+00_rb /)
+      kao(:, 2,11,14) = (/ &
+        & 0.20570e+00_rb,0.19011e+00_rb,0.18168e+00_rb,0.17577e+00_rb,0.18167e+00_rb, &
+        & 0.20144e+00_rb,0.23412e+00_rb,0.27305e+00_rb,0.28987e+00_rb /)
+      kao(:, 3,11,14) = (/ &
+        & 0.20088e+00_rb,0.18755e+00_rb,0.18057e+00_rb,0.18058e+00_rb,0.19347e+00_rb, &
+        & 0.22124e+00_rb,0.26062e+00_rb,0.30406e+00_rb,0.33203e+00_rb /)
+      kao(:, 4,11,14) = (/ &
+        & 0.19608e+00_rb,0.18439e+00_rb,0.18082e+00_rb,0.18569e+00_rb,0.20488e+00_rb, &
+        & 0.23927e+00_rb,0.28460e+00_rb,0.33201e+00_rb,0.37191e+00_rb /)
+      kao(:, 5,11,14) = (/ &
+        & 0.19134e+00_rb,0.18083e+00_rb,0.18137e+00_rb,0.19023e+00_rb,0.21563e+00_rb, &
+        & 0.25670e+00_rb,0.30697e+00_rb,0.35809e+00_rb,0.40924e+00_rb /)
+      kao(:, 1,12,14) = (/ &
+        & 0.23222e+00_rb,0.21282e+00_rb,0.20059e+00_rb,0.18856e+00_rb,0.18455e+00_rb, &
+        & 0.18954e+00_rb,0.20921e+00_rb,0.24116e+00_rb,0.20678e+00_rb /)
+      kao(:, 2,12,14) = (/ &
+        & 0.22666e+00_rb,0.20982e+00_rb,0.19853e+00_rb,0.19166e+00_rb,0.19460e+00_rb, &
+        & 0.20805e+00_rb,0.23602e+00_rb,0.27405e+00_rb,0.24947e+00_rb /)
+      kao(:, 3,12,14) = (/ &
+        & 0.22121e+00_rb,0.20649e+00_rb,0.19756e+00_rb,0.19621e+00_rb,0.20452e+00_rb, &
+        & 0.22597e+00_rb,0.26146e+00_rb,0.30478e+00_rb,0.28725e+00_rb /)
+      kao(:, 4,12,14) = (/ &
+        & 0.21578e+00_rb,0.20240e+00_rb,0.19746e+00_rb,0.20035e+00_rb,0.21392e+00_rb, &
+        & 0.24302e+00_rb,0.28559e+00_rb,0.33317e+00_rb,0.32415e+00_rb /)
+      kao(:, 5,12,14) = (/ &
+        & 0.21026e+00_rb,0.19816e+00_rb,0.19729e+00_rb,0.20402e+00_rb,0.22339e+00_rb, &
+        & 0.25983e+00_rb,0.30840e+00_rb,0.35980e+00_rb,0.36272e+00_rb /)
+      kao(:, 1,13,14) = (/ &
+        & 0.25447e+00_rb,0.23356e+00_rb,0.21785e+00_rb,0.20504e+00_rb,0.19797e+00_rb, &
+        & 0.19705e+00_rb,0.20967e+00_rb,0.23794e+00_rb,0.19657e+00_rb /)
+      kao(:, 2,13,14) = (/ &
+        & 0.24820e+00_rb,0.22981e+00_rb,0.21561e+00_rb,0.20828e+00_rb,0.20711e+00_rb, &
+        & 0.21347e+00_rb,0.23520e+00_rb,0.27088e+00_rb,0.23547e+00_rb /)
+      kao(:, 3,13,14) = (/ &
+        & 0.24206e+00_rb,0.22556e+00_rb,0.21467e+00_rb,0.21216e+00_rb,0.21525e+00_rb, &
+        & 0.22938e+00_rb,0.25994e+00_rb,0.30180e+00_rb,0.27108e+00_rb /)
+      kao(:, 4,13,14) = (/ &
+        & 0.23572e+00_rb,0.22056e+00_rb,0.21408e+00_rb,0.21517e+00_rb,0.22293e+00_rb, &
+        & 0.24576e+00_rb,0.28399e+00_rb,0.33091e+00_rb,0.30909e+00_rb /)
+      kao(:, 5,13,14) = (/ &
+        & 0.22932e+00_rb,0.21557e+00_rb,0.21287e+00_rb,0.21778e+00_rb,0.23130e+00_rb, &
+        & 0.26208e+00_rb,0.30701e+00_rb,0.35815e+00_rb,0.34602e+00_rb /)
+      kao(:, 1, 1,15) = (/ &
+        & 0.79223e-01_rb,0.75104e-01_rb,0.13846e+00_rb,0.20766e+00_rb,0.27685e+00_rb, &
+        & 0.34601e+00_rb,0.41512e+00_rb,0.48397e+00_rb,0.52564e+00_rb /)
+      kao(:, 2, 1,15) = (/ &
+        & 0.76682e-01_rb,0.76450e-01_rb,0.14571e+00_rb,0.21854e+00_rb,0.29137e+00_rb, &
+        & 0.36417e+00_rb,0.43689e+00_rb,0.50929e+00_rb,0.55383e+00_rb /)
+      kao(:, 3, 1,15) = (/ &
+        & 0.74345e-01_rb,0.78213e-01_rb,0.15207e+00_rb,0.22808e+00_rb,0.30407e+00_rb, &
+        & 0.38004e+00_rb,0.45593e+00_rb,0.53155e+00_rb,0.57851e+00_rb /)
+      kao(:, 4, 1,15) = (/ &
+        & 0.72607e-01_rb,0.80130e-01_rb,0.15758e+00_rb,0.23638e+00_rb,0.31513e+00_rb, &
+        & 0.39385e+00_rb,0.47252e+00_rb,0.55092e+00_rb,0.60005e+00_rb /)
+      kao(:, 5, 1,15) = (/ &
+        & 0.72847e-01_rb,0.82433e-01_rb,0.16249e+00_rb,0.24371e+00_rb,0.32491e+00_rb, &
+        & 0.40606e+00_rb,0.48713e+00_rb,0.56790e+00_rb,0.61880e+00_rb /)
+      kao(:, 1, 2,15) = (/ &
+        & 0.89010e-01_rb,0.84748e-01_rb,0.15528e+00_rb,0.23291e+00_rb,0.31052e+00_rb, &
+        & 0.38812e+00_rb,0.46559e+00_rb,0.54282e+00_rb,0.60189e+00_rb /)
+      kao(:, 2, 2,15) = (/ &
+        & 0.86286e-01_rb,0.86390e-01_rb,0.16350e+00_rb,0.24523e+00_rb,0.32694e+00_rb, &
+        & 0.40865e+00_rb,0.49029e+00_rb,0.57166e+00_rb,0.63436e+00_rb /)
+      kao(:, 3, 2,15) = (/ &
+        & 0.83865e-01_rb,0.88469e-01_rb,0.17076e+00_rb,0.25611e+00_rb,0.34145e+00_rb, &
+        & 0.42675e+00_rb,0.51202e+00_rb,0.59693e+00_rb,0.66276e+00_rb /)
+      kao(:, 4, 2,15) = (/ &
+        & 0.81971e-01_rb,0.90581e-01_rb,0.17733e+00_rb,0.26595e+00_rb,0.35459e+00_rb, &
+        & 0.44319e+00_rb,0.53165e+00_rb,0.61981e+00_rb,0.68802e+00_rb /)
+      kao(:, 5, 2,15) = (/ &
+        & 0.81826e-01_rb,0.93085e-01_rb,0.18319e+00_rb,0.27476e+00_rb,0.36629e+00_rb, &
+        & 0.45781e+00_rb,0.54921e+00_rb,0.64033e+00_rb,0.71080e+00_rb /)
+      kao(:, 1, 3,15) = (/ &
+        & 0.10078e+00_rb,0.96469e-01_rb,0.17126e+00_rb,0.25687e+00_rb,0.34247e+00_rb, &
+        & 0.42804e+00_rb,0.51357e+00_rb,0.59868e+00_rb,0.67473e+00_rb /)
+      kao(:, 2, 3,15) = (/ &
+        & 0.97698e-01_rb,0.98193e-01_rb,0.18058e+00_rb,0.27084e+00_rb,0.36108e+00_rb, &
+        & 0.45128e+00_rb,0.54134e+00_rb,0.63128e+00_rb,0.71182e+00_rb /)
+      kao(:, 3, 3,15) = (/ &
+        & 0.95186e-01_rb,0.10027e+00_rb,0.18871e+00_rb,0.28303e+00_rb,0.37733e+00_rb, &
+        & 0.47160e+00_rb,0.56577e+00_rb,0.65972e+00_rb,0.74408e+00_rb /)
+      kao(:, 4, 3,15) = (/ &
+        & 0.93223e-01_rb,0.10231e+00_rb,0.19621e+00_rb,0.29427e+00_rb,0.39234e+00_rb, &
+        & 0.49035e+00_rb,0.58829e+00_rb,0.68586e+00_rb,0.77383e+00_rb /)
+      kao(:, 5, 3,15) = (/ &
+        & 0.93003e-01_rb,0.10431e+00_rb,0.20302e+00_rb,0.30448e+00_rb,0.40592e+00_rb, &
+        & 0.50734e+00_rb,0.60870e+00_rb,0.70970e+00_rb,0.80084e+00_rb /)
+      kao(:, 1, 4,15) = (/ &
+        & 0.11556e+00_rb,0.11007e+00_rb,0.18689e+00_rb,0.28032e+00_rb,0.37373e+00_rb, &
+        & 0.46710e+00_rb,0.56044e+00_rb,0.65346e+00_rb,0.74264e+00_rb /)
+      kao(:, 2, 4,15) = (/ &
+        & 0.11235e+00_rb,0.11167e+00_rb,0.19754e+00_rb,0.29630e+00_rb,0.39502e+00_rb, &
+        & 0.49371e+00_rb,0.59235e+00_rb,0.69064e+00_rb,0.78516e+00_rb /)
+      kao(:, 3, 4,15) = (/ &
+        & 0.10972e+00_rb,0.11355e+00_rb,0.20696e+00_rb,0.31040e+00_rb,0.41383e+00_rb, &
+        & 0.51721e+00_rb,0.62053e+00_rb,0.72352e+00_rb,0.82248e+00_rb /)
+      kao(:, 4, 4,15) = (/ &
+        & 0.10741e+00_rb,0.11554e+00_rb,0.21557e+00_rb,0.32331e+00_rb,0.43105e+00_rb, &
+        & 0.53874e+00_rb,0.64632e+00_rb,0.75359e+00_rb,0.85679e+00_rb /)
+      kao(:, 5, 4,15) = (/ &
+        & 0.10619e+00_rb,0.11745e+00_rb,0.22327e+00_rb,0.33487e+00_rb,0.44646e+00_rb, &
+        & 0.55799e+00_rb,0.66944e+00_rb,0.78056e+00_rb,0.88741e+00_rb /)
+      kao(:, 1, 5,15) = (/ &
+        & 0.13422e+00_rb,0.12619e+00_rb,0.20125e+00_rb,0.30186e+00_rb,0.40245e+00_rb, &
+        & 0.50302e+00_rb,0.60348e+00_rb,0.70372e+00_rb,0.80253e+00_rb /)
+      kao(:, 2, 5,15) = (/ &
+        & 0.13052e+00_rb,0.12743e+00_rb,0.21345e+00_rb,0.32016e+00_rb,0.42685e+00_rb, &
+        & 0.53351e+00_rb,0.64011e+00_rb,0.74634e+00_rb,0.85136e+00_rb /)
+      kao(:, 3, 5,15) = (/ &
+        & 0.12741e+00_rb,0.12876e+00_rb,0.22450e+00_rb,0.33672e+00_rb,0.44894e+00_rb, &
+        & 0.56113e+00_rb,0.67322e+00_rb,0.78494e+00_rb,0.89542e+00_rb /)
+      kao(:, 4, 5,15) = (/ &
+        & 0.12456e+00_rb,0.13045e+00_rb,0.23454e+00_rb,0.35177e+00_rb,0.46901e+00_rb, &
+        & 0.58622e+00_rb,0.70332e+00_rb,0.82004e+00_rb,0.93535e+00_rb /)
+      kao(:, 5, 5,15) = (/ &
+        & 0.12240e+00_rb,0.13234e+00_rb,0.24346e+00_rb,0.36515e+00_rb,0.48682e+00_rb, &
+        & 0.60842e+00_rb,0.72992e+00_rb,0.85105e+00_rb,0.97074e+00_rb /)
+      kao(:, 1, 6,15) = (/ &
+        & 0.15641e+00_rb,0.14549e+00_rb,0.21406e+00_rb,0.31903e+00_rb,0.42534e+00_rb, &
+        & 0.53165e+00_rb,0.63788e+00_rb,0.74385e+00_rb,0.84964e+00_rb /)
+      kao(:, 2, 6,15) = (/ &
+        & 0.15207e+00_rb,0.14574e+00_rb,0.22708e+00_rb,0.34022e+00_rb,0.45360e+00_rb, &
+        & 0.56697e+00_rb,0.68027e+00_rb,0.79322e+00_rb,0.90603e+00_rb /)
+      kao(:, 3, 6,15) = (/ &
+        & 0.14825e+00_rb,0.14665e+00_rb,0.23979e+00_rb,0.35965e+00_rb,0.47950e+00_rb, &
+        & 0.59932e+00_rb,0.71907e+00_rb,0.83857e+00_rb,0.95773e+00_rb /)
+      kao(:, 4, 6,15) = (/ &
+        & 0.14482e+00_rb,0.14790e+00_rb,0.25144e+00_rb,0.37711e+00_rb,0.50278e+00_rb, &
+        & 0.62841e+00_rb,0.75400e+00_rb,0.87926e+00_rb,0.10043e+01_rb /)
+      kao(:, 5, 6,15) = (/ &
+        & 0.14196e+00_rb,0.14929e+00_rb,0.26158e+00_rb,0.39235e+00_rb,0.52312e+00_rb, &
+        & 0.65390e+00_rb,0.78460e+00_rb,0.91489e+00_rb,0.10450e+01_rb /)
+      kao(:, 1, 7,15) = (/ &
+        & 0.18245e+00_rb,0.16813e+00_rb,0.22831e+00_rb,0.33360e+00_rb,0.44476e+00_rb, &
+        & 0.55591e+00_rb,0.66702e+00_rb,0.77783e+00_rb,0.88903e+00_rb /)
+      kao(:, 2, 7,15) = (/ &
+        & 0.17706e+00_rb,0.16763e+00_rb,0.24144e+00_rb,0.35719e+00_rb,0.47625e+00_rb, &
+        & 0.59524e+00_rb,0.71422e+00_rb,0.83295e+00_rb,0.95194e+00_rb /)
+      kao(:, 3, 7,15) = (/ &
+        & 0.17236e+00_rb,0.16756e+00_rb,0.25360e+00_rb,0.37892e+00_rb,0.50520e+00_rb, &
+        & 0.63143e+00_rb,0.75766e+00_rb,0.88351e+00_rb,0.10099e+01_rb /)
+      kao(:, 4, 7,15) = (/ &
+        & 0.16823e+00_rb,0.16816e+00_rb,0.26586e+00_rb,0.39858e+00_rb,0.53141e+00_rb, &
+        & 0.66420e+00_rb,0.79692e+00_rb,0.92941e+00_rb,0.10623e+01_rb /)
+      kao(:, 5, 7,15) = (/ &
+        & 0.16468e+00_rb,0.16894e+00_rb,0.27725e+00_rb,0.41585e+00_rb,0.55445e+00_rb, &
+        & 0.69298e+00_rb,0.83146e+00_rb,0.96971e+00_rb,0.11082e+01_rb /)
+      kao(:, 1, 8,15) = (/ &
+        & 0.21221e+00_rb,0.19366e+00_rb,0.24501e+00_rb,0.34518e+00_rb,0.46022e+00_rb, &
+        & 0.57522e+00_rb,0.69013e+00_rb,0.80500e+00_rb,0.92024e+00_rb /)
+      kao(:, 2, 8,15) = (/ &
+        & 0.20558e+00_rb,0.19344e+00_rb,0.25798e+00_rb,0.37195e+00_rb,0.49597e+00_rb, &
+        & 0.61989e+00_rb,0.74379e+00_rb,0.86737e+00_rb,0.99166e+00_rb /)
+      kao(:, 3, 8,15) = (/ &
+        & 0.19977e+00_rb,0.19260e+00_rb,0.26963e+00_rb,0.39624e+00_rb,0.52829e+00_rb, &
+        & 0.66032e+00_rb,0.79227e+00_rb,0.92396e+00_rb,0.10564e+01_rb /)
+      kao(:, 4, 8,15) = (/ &
+        & 0.19471e+00_rb,0.19196e+00_rb,0.28135e+00_rb,0.41773e+00_rb,0.55693e+00_rb, &
+        & 0.69614e+00_rb,0.83525e+00_rb,0.97412e+00_rb,0.11137e+01_rb /)
+      kao(:, 5, 8,15) = (/ &
+        & 0.19023e+00_rb,0.19149e+00_rb,0.29229e+00_rb,0.43683e+00_rb,0.58243e+00_rb, &
+        & 0.72800e+00_rb,0.87352e+00_rb,0.10186e+01_rb,0.11647e+01_rb /)
+      kao(:, 1, 9,15) = (/ &
+        & 0.24675e+00_rb,0.22274e+00_rb,0.26456e+00_rb,0.35496e+00_rb,0.47007e+00_rb, &
+        & 0.58755e+00_rb,0.70496e+00_rb,0.82216e+00_rb,0.94015e+00_rb /)
+      kao(:, 2, 9,15) = (/ &
+        & 0.23844e+00_rb,0.22223e+00_rb,0.27692e+00_rb,0.38304e+00_rb,0.51028e+00_rb, &
+        & 0.63780e+00_rb,0.76534e+00_rb,0.89259e+00_rb,0.10206e+01_rb /)
+      kao(:, 3, 9,15) = (/ &
+        & 0.23115e+00_rb,0.22076e+00_rb,0.28808e+00_rb,0.40973e+00_rb,0.54629e+00_rb, &
+        & 0.68281e+00_rb,0.81930e+00_rb,0.95554e+00_rb,0.10926e+01_rb /)
+      kao(:, 4, 9,15) = (/ &
+        & 0.22487e+00_rb,0.21935e+00_rb,0.29872e+00_rb,0.43339e+00_rb,0.57783e+00_rb, &
+        & 0.72230e+00_rb,0.86661e+00_rb,0.10108e+01_rb,0.11557e+01_rb /)
+      kao(:, 5, 9,15) = (/ &
+        & 0.21911e+00_rb,0.21807e+00_rb,0.30914e+00_rb,0.45602e+00_rb,0.60799e+00_rb, &
+        & 0.75991e+00_rb,0.91189e+00_rb,0.10634e+01_rb,0.12161e+01_rb /)
+      kao(:, 1,10,15) = (/ &
+        & 0.28580e+00_rb,0.25610e+00_rb,0.28839e+00_rb,0.36810e+00_rb,0.47645e+00_rb, &
+        & 0.59554e+00_rb,0.71455e+00_rb,0.83348e+00_rb,0.95290e+00_rb /)
+      kao(:, 2,10,15) = (/ &
+        & 0.27554e+00_rb,0.25438e+00_rb,0.29985e+00_rb,0.39603e+00_rb,0.52141e+00_rb, &
+        & 0.65175e+00_rb,0.78205e+00_rb,0.91212e+00_rb,0.10429e+01_rb /)
+      kao(:, 3,10,15) = (/ &
+        & 0.26639e+00_rb,0.25230e+00_rb,0.31000e+00_rb,0.42263e+00_rb,0.56074e+00_rb, &
+        & 0.70092e+00_rb,0.84101e+00_rb,0.98094e+00_rb,0.11215e+01_rb /)
+      kao(:, 4,10,15) = (/ &
+        & 0.25840e+00_rb,0.24961e+00_rb,0.31933e+00_rb,0.44762e+00_rb,0.59663e+00_rb, &
+        & 0.74572e+00_rb,0.89477e+00_rb,0.10436e+01_rb,0.11932e+01_rb /)
+      kao(:, 5,10,15) = (/ &
+        & 0.25110e+00_rb,0.24738e+00_rb,0.32882e+00_rb,0.47409e+00_rb,0.63208e+00_rb, &
+        & 0.79011e+00_rb,0.94801e+00_rb,0.11055e+01_rb,0.12642e+01_rb /)
+      kao(:, 1,11,15) = (/ &
+        & 0.32402e+00_rb,0.29231e+00_rb,0.32114e+00_rb,0.39449e+00_rb,0.49965e+00_rb, &
+        & 0.62359e+00_rb,0.74830e+00_rb,0.87279e+00_rb,0.99780e+00_rb /)
+      kao(:, 2,11,15) = (/ &
+        & 0.31203e+00_rb,0.28940e+00_rb,0.33009e+00_rb,0.42179e+00_rb,0.54573e+00_rb, &
+        & 0.68214e+00_rb,0.81856e+00_rb,0.95481e+00_rb,0.10916e+01_rb /)
+      kao(:, 3,11,15) = (/ &
+        & 0.30125e+00_rb,0.28556e+00_rb,0.33820e+00_rb,0.44749e+00_rb,0.58870e+00_rb, &
+        & 0.73583e+00_rb,0.88295e+00_rb,0.10298e+01_rb,0.11773e+01_rb /)
+      kao(:, 4,11,15) = (/ &
+        & 0.29153e+00_rb,0.28159e+00_rb,0.34632e+00_rb,0.47427e+00_rb,0.63035e+00_rb, &
+        & 0.78788e+00_rb,0.94537e+00_rb,0.11027e+01_rb,0.12607e+01_rb /)
+      kao(:, 5,11,15) = (/ &
+        & 0.28247e+00_rb,0.27799e+00_rb,0.35496e+00_rb,0.50259e+00_rb,0.66996e+00_rb, &
+        & 0.83740e+00_rb,0.10047e+01_rb,0.11720e+01_rb,0.13400e+01_rb /)
+      kao(:, 1,12,15) = (/ &
+        & 0.36545e+00_rb,0.33140e+00_rb,0.35636e+00_rb,0.42085e+00_rb,0.52250e+00_rb, &
+        & 0.64898e+00_rb,0.77872e+00_rb,0.90834e+00_rb,0.10384e+01_rb /)
+      kao(:, 2,12,15) = (/ &
+        & 0.35131e+00_rb,0.32685e+00_rb,0.36231e+00_rb,0.44658e+00_rb,0.56903e+00_rb, &
+        & 0.71087e+00_rb,0.85304e+00_rb,0.99503e+00_rb,0.11374e+01_rb /)
+      kao(:, 3,12,15) = (/ &
+        & 0.33841e+00_rb,0.32098e+00_rb,0.36825e+00_rb,0.47208e+00_rb,0.61613e+00_rb, &
+        & 0.77016e+00_rb,0.92410e+00_rb,0.10779e+01_rb,0.12323e+01_rb /)
+      kao(:, 4,12,15) = (/ &
+        & 0.32642e+00_rb,0.31543e+00_rb,0.37504e+00_rb,0.50058e+00_rb,0.66195e+00_rb, &
+        & 0.82736e+00_rb,0.99279e+00_rb,0.11580e+01_rb,0.13239e+01_rb /)
+      kao(:, 5,12,15) = (/ &
+        & 0.31541e+00_rb,0.31006e+00_rb,0.38358e+00_rb,0.53015e+00_rb,0.70512e+00_rb, &
+        & 0.88131e+00_rb,0.10574e+01_rb,0.12335e+01_rb,0.14101e+01_rb /)
+      kao(:, 1,13,15) = (/ &
+        & 0.40964e+00_rb,0.37314e+00_rb,0.39372e+00_rb,0.44813e+00_rb,0.54521e+00_rb, &
+        & 0.67332e+00_rb,0.80793e+00_rb,0.94247e+00_rb,0.10773e+01_rb /)
+      kao(:, 2,13,15) = (/ &
+        & 0.39277e+00_rb,0.36624e+00_rb,0.39629e+00_rb,0.47194e+00_rb,0.59295e+00_rb, &
+        & 0.73949e+00_rb,0.88734e+00_rb,0.10350e+01_rb,0.11832e+01_rb /)
+      kao(:, 3,13,15) = (/ &
+        & 0.37714e+00_rb,0.35816e+00_rb,0.39962e+00_rb,0.49769e+00_rb,0.64296e+00_rb, &
+        & 0.80367e+00_rb,0.96435e+00_rb,0.11249e+01_rb,0.12860e+01_rb /)
+      kao(:, 4,13,15) = (/ &
+        & 0.36268e+00_rb,0.35049e+00_rb,0.40459e+00_rb,0.52725e+00_rb,0.69174e+00_rb, &
+        & 0.86463e+00_rb,0.10374e+01_rb,0.12101e+01_rb,0.13834e+01_rb /)
+      kao(:, 5,13,15) = (/ &
+        & 0.34948e+00_rb,0.34295e+00_rb,0.41358e+00_rb,0.55736e+00_rb,0.73767e+00_rb, &
+        & 0.92205e+00_rb,0.11064e+01_rb,0.12905e+01_rb,0.14753e+01_rb /)
+      kao(:, 1, 1,16) = (/ &
+        & 0.90320e-01_rb,0.86361e-01_rb,0.17271e+00_rb,0.25905e+00_rb,0.34536e+00_rb, &
+        & 0.43163e+00_rb,0.51777e+00_rb,0.60344e+00_rb,0.64541e+00_rb /)
+      kao(:, 2, 1,16) = (/ &
+        & 0.88026e-01_rb,0.92415e-01_rb,0.18482e+00_rb,0.27721e+00_rb,0.36957e+00_rb, &
+        & 0.46188e+00_rb,0.55406e+00_rb,0.64572e+00_rb,0.69076e+00_rb /)
+      kao(:, 3, 1,16) = (/ &
+        & 0.85829e-01_rb,0.97954e-01_rb,0.19590e+00_rb,0.29382e+00_rb,0.39172e+00_rb, &
+        & 0.48957e+00_rb,0.58728e+00_rb,0.68449e+00_rb,0.73223e+00_rb /)
+      kao(:, 4, 1,16) = (/ &
+        & 0.83674e-01_rb,0.10298e+00_rb,0.20595e+00_rb,0.30890e+00_rb,0.41183e+00_rb, &
+        & 0.51469e+00_rb,0.61741e+00_rb,0.71956e+00_rb,0.77014e+00_rb /)
+      kao(:, 5, 1,16) = (/ &
+        & 0.84304e-01_rb,0.10756e+00_rb,0.21511e+00_rb,0.32264e+00_rb,0.43014e+00_rb, &
+        & 0.53758e+00_rb,0.64487e+00_rb,0.75164e+00_rb,0.80439e+00_rb /)
+      kao(:, 1, 2,16) = (/ &
+        & 0.99611e-01_rb,0.10121e+00_rb,0.20241e+00_rb,0.30359e+00_rb,0.40479e+00_rb, &
+        & 0.50590e+00_rb,0.60686e+00_rb,0.70732e+00_rb,0.77453e+00_rb /)
+      kao(:, 2, 2,16) = (/ &
+        & 0.97224e-01_rb,0.10870e+00_rb,0.21739e+00_rb,0.32607e+00_rb,0.43471e+00_rb, &
+        & 0.54336e+00_rb,0.65181e+00_rb,0.75967e+00_rb,0.83199e+00_rb /)
+      kao(:, 3, 2,16) = (/ &
+        & 0.94894e-01_rb,0.11558e+00_rb,0.23114e+00_rb,0.34669e+00_rb,0.46220e+00_rb, &
+        & 0.57772e+00_rb,0.69302e+00_rb,0.80771e+00_rb,0.88476e+00_rb /)
+      kao(:, 4, 2,16) = (/ &
+        & 0.92656e-01_rb,0.12184e+00_rb,0.24366e+00_rb,0.36546e+00_rb,0.48723e+00_rb, &
+        & 0.60893e+00_rb,0.73046e+00_rb,0.85132e+00_rb,0.93269e+00_rb /)
+      kao(:, 5, 2,16) = (/ &
+        & 0.93593e-01_rb,0.12749e+00_rb,0.25497e+00_rb,0.38243e+00_rb,0.50985e+00_rb, &
+        & 0.63721e+00_rb,0.76438e+00_rb,0.89083e+00_rb,0.97622e+00_rb /)
+      kao(:, 1, 3,16) = (/ &
+        & 0.11521e+00_rb,0.11614e+00_rb,0.23226e+00_rb,0.34836e+00_rb,0.46443e+00_rb, &
+        & 0.58044e+00_rb,0.69629e+00_rb,0.81149e+00_rb,0.90951e+00_rb /)
+      kao(:, 2, 3,16) = (/ &
+        & 0.11222e+00_rb,0.12555e+00_rb,0.25108e+00_rb,0.37659e+00_rb,0.50206e+00_rb, &
+        & 0.62747e+00_rb,0.75258e+00_rb,0.87709e+00_rb,0.98316e+00_rb /)
+      kao(:, 3, 3,16) = (/ &
+        & 0.10948e+00_rb,0.13410e+00_rb,0.26819e+00_rb,0.40226e+00_rb,0.53629e+00_rb, &
+        & 0.67035e+00_rb,0.80421e+00_rb,0.93726e+00_rb,0.10505e+01_rb /)
+      kao(:, 4, 3,16) = (/ &
+        & 0.10697e+00_rb,0.14195e+00_rb,0.28389e+00_rb,0.42580e+00_rb,0.56768e+00_rb, &
+        & 0.70947e+00_rb,0.85107e+00_rb,0.99187e+00_rb,0.11120e+01_rb /)
+      kao(:, 5, 3,16) = (/ &
+        & 0.10462e+00_rb,0.14901e+00_rb,0.29800e+00_rb,0.44697e+00_rb,0.59590e+00_rb, &
+        & 0.74474e+00_rb,0.89338e+00_rb,0.10415e+01_rb,0.11678e+01_rb /)
+      kao(:, 1, 4,16) = (/ &
+        & 0.13825e+00_rb,0.13238e+00_rb,0.26314e+00_rb,0.39468e+00_rb,0.52618e+00_rb, &
+        & 0.65761e+00_rb,0.78893e+00_rb,0.91946e+00_rb,0.10423e+01_rb /)
+      kao(:, 2, 4,16) = (/ &
+        & 0.13437e+00_rb,0.14320e+00_rb,0.28638e+00_rb,0.42954e+00_rb,0.57266e+00_rb, &
+        & 0.71574e+00_rb,0.85868e+00_rb,0.10008e+01_rb,0.11347e+01_rb /)
+      kao(:, 3, 4,16) = (/ &
+        & 0.13067e+00_rb,0.15392e+00_rb,0.30782e+00_rb,0.46170e+00_rb,0.61554e+00_rb, &
+        & 0.76929e+00_rb,0.92283e+00_rb,0.10757e+01_rb,0.12195e+01_rb /)
+      kao(:, 4, 4,16) = (/ &
+        & 0.12733e+00_rb,0.16364e+00_rb,0.32725e+00_rb,0.49085e+00_rb,0.65439e+00_rb, &
+        & 0.81785e+00_rb,0.98125e+00_rb,0.11437e+01_rb,0.12968e+01_rb /)
+      kao(:, 5, 4,16) = (/ &
+        & 0.12429e+00_rb,0.17242e+00_rb,0.34483e+00_rb,0.51721e+00_rb,0.68954e+00_rb, &
+        & 0.86178e+00_rb,0.10339e+01_rb,0.12053e+01_rb,0.13667e+01_rb /)
+      kao(:, 1, 5,16) = (/ &
+        & 0.16714e+00_rb,0.15294e+00_rb,0.29770e+00_rb,0.44651e+00_rb,0.59528e+00_rb, &
+        & 0.74397e+00_rb,0.89246e+00_rb,0.10402e+01_rb,0.11846e+01_rb /)
+      kao(:, 2, 5,16) = (/ &
+        & 0.16248e+00_rb,0.16289e+00_rb,0.32569e+00_rb,0.48850e+00_rb,0.65127e+00_rb, &
+        & 0.81396e+00_rb,0.97625e+00_rb,0.11381e+01_rb,0.12962e+01_rb /)
+      kao(:, 3, 5,16) = (/ &
+        & 0.15803e+00_rb,0.17580e+00_rb,0.35158e+00_rb,0.52733e+00_rb,0.70303e+00_rb, &
+        & 0.87864e+00_rb,0.10540e+01_rb,0.12284e+01_rb,0.13993e+01_rb /)
+      kao(:, 4, 5,16) = (/ &
+        & 0.15368e+00_rb,0.18757e+00_rb,0.37512e+00_rb,0.56264e+00_rb,0.75011e+00_rb, &
+        & 0.93747e+00_rb,0.11247e+01_rb,0.13108e+01_rb,0.14933e+01_rb /)
+      kao(:, 5, 5,16) = (/ &
+        & 0.14943e+00_rb,0.19824e+00_rb,0.39645e+00_rb,0.59477e+00_rb,0.79303e+00_rb, &
+        & 0.99112e+00_rb,0.11890e+01_rb,0.13858e+01_rb,0.15783e+01_rb /)
+      kao(:, 1, 6,16) = (/ &
+        & 0.20217e+00_rb,0.17926e+00_rb,0.33507e+00_rb,0.50257e+00_rb,0.67002e+00_rb, &
+        & 0.83741e+00_rb,0.10046e+01_rb,0.11708e+01_rb,0.13365e+01_rb /)
+      kao(:, 2, 6,16) = (/ &
+        & 0.19655e+00_rb,0.18668e+00_rb,0.36910e+00_rb,0.55360e+00_rb,0.73806e+00_rb, &
+        & 0.92245e+00_rb,0.11065e+01_rb,0.12896e+01_rb,0.14724e+01_rb /)
+      kao(:, 3, 6,16) = (/ &
+        & 0.19100e+00_rb,0.20029e+00_rb,0.40054e+00_rb,0.60077e+00_rb,0.80095e+00_rb, &
+        & 0.10010e+01_rb,0.12008e+01_rb,0.13997e+01_rb,0.15979e+01_rb /)
+      kao(:, 4, 6,16) = (/ &
+        & 0.18556e+00_rb,0.21465e+00_rb,0.42926e+00_rb,0.64385e+00_rb,0.85838e+00_rb, &
+        & 0.10728e+01_rb,0.12869e+01_rb,0.15000e+01_rb,0.17126e+01_rb /)
+      kao(:, 5, 6,16) = (/ &
+        & 0.18024e+00_rb,0.22760e+00_rb,0.45517e+00_rb,0.68271e+00_rb,0.91019e+00_rb, &
+        & 0.11375e+01_rb,0.13647e+01_rb,0.15907e+01_rb,0.18161e+01_rb /)
+      kao(:, 1, 7,16) = (/ &
+        & 0.24417e+00_rb,0.21368e+00_rb,0.37507e+00_rb,0.56256e+00_rb,0.75006e+00_rb, &
+        & 0.93742e+00_rb,0.11245e+01_rb,0.13107e+01_rb,0.14982e+01_rb /)
+      kao(:, 2, 7,16) = (/ &
+        & 0.23715e+00_rb,0.21661e+00_rb,0.41650e+00_rb,0.62470e+00_rb,0.83285e+00_rb, &
+        & 0.10409e+01_rb,0.12487e+01_rb,0.14555e+01_rb,0.16638e+01_rb /)
+      kao(:, 3, 7,16) = (/ &
+        & 0.23022e+00_rb,0.22856e+00_rb,0.45485e+00_rb,0.68222e+00_rb,0.90954e+00_rb, &
+        & 0.11367e+01_rb,0.13637e+01_rb,0.15896e+01_rb,0.18170e+01_rb /)
+      kao(:, 4, 7,16) = (/ &
+        & 0.22335e+00_rb,0.24491e+00_rb,0.48979e+00_rb,0.73464e+00_rb,0.97947e+00_rb, &
+        & 0.12241e+01_rb,0.14686e+01_rb,0.17118e+01_rb,0.19566e+01_rb /)
+      kao(:, 5, 7,16) = (/ &
+        & 0.21655e+00_rb,0.26068e+00_rb,0.52133e+00_rb,0.78194e+00_rb,0.10425e+01_rb, &
+        & 0.13029e+01_rb,0.15630e+01_rb,0.18220e+01_rb,0.20827e+01_rb /)
+      kao(:, 1, 8,16) = (/ &
+        & 0.29541e+00_rb,0.25848e+00_rb,0.41687e+00_rb,0.62527e+00_rb,0.83361e+00_rb, &
+        & 0.10419e+01_rb,0.12499e+01_rb,0.14571e+01_rb,0.16668e+01_rb /)
+      kao(:, 2, 8,16) = (/ &
+        & 0.28549e+00_rb,0.25449e+00_rb,0.46724e+00_rb,0.70082e+00_rb,0.93434e+00_rb, &
+        & 0.11678e+01_rb,0.14009e+01_rb,0.16328e+01_rb,0.18680e+01_rb /)
+      kao(:, 3, 8,16) = (/ &
+        & 0.27625e+00_rb,0.26285e+00_rb,0.51364e+00_rb,0.77040e+00_rb,0.10271e+01_rb, &
+        & 0.12838e+01_rb,0.15402e+01_rb,0.17956e+01_rb,0.20538e+01_rb /)
+      kao(:, 4, 8,16) = (/ &
+        & 0.26742e+00_rb,0.27883e+00_rb,0.55601e+00_rb,0.83395e+00_rb,0.11118e+01_rb, &
+        & 0.13896e+01_rb,0.16670e+01_rb,0.19436e+01_rb,0.22230e+01_rb /)
+      kao(:, 5, 8,16) = (/ &
+        & 0.25873e+00_rb,0.29706e+00_rb,0.59410e+00_rb,0.89109e+00_rb,0.11880e+01_rb, &
+        & 0.14848e+01_rb,0.17812e+01_rb,0.20764e+01_rb,0.23753e+01_rb /)
+      kao(:, 1, 9,16) = (/ &
+        & 0.35727e+00_rb,0.31262e+00_rb,0.45859e+00_rb,0.68783e+00_rb,0.91710e+00_rb, &
+        & 0.11462e+01_rb,0.13749e+01_rb,0.16027e+01_rb,0.18342e+01_rb /)
+      kao(:, 2, 9,16) = (/ &
+        & 0.34378e+00_rb,0.30157e+00_rb,0.51912e+00_rb,0.77863e+00_rb,0.10382e+01_rb, &
+        & 0.12975e+01_rb,0.15566e+01_rb,0.18147e+01_rb,0.20764e+01_rb /)
+      kao(:, 3, 9,16) = (/ &
+        & 0.33111e+00_rb,0.30494e+00_rb,0.57506e+00_rb,0.86254e+00_rb,0.11500e+01_rb, &
+        & 0.14374e+01_rb,0.17244e+01_rb,0.20104e+01_rb,0.23002e+01_rb /)
+      kao(:, 4, 9,16) = (/ &
+        & 0.31901e+00_rb,0.31860e+00_rb,0.62597e+00_rb,0.93889e+00_rb,0.12519e+01_rb, &
+        & 0.15648e+01_rb,0.18772e+01_rb,0.21885e+01_rb,0.25042e+01_rb /)
+      kao(:, 5, 9,16) = (/ &
+        & 0.30738e+00_rb,0.33686e+00_rb,0.67173e+00_rb,0.10075e+01_rb,0.13433e+01_rb, &
+        & 0.16788e+01_rb,0.20142e+01_rb,0.23482e+01_rb,0.26866e+01_rb /)
+      kao(:, 1,10,16) = (/ &
+        & 0.42900e+00_rb,0.37537e+00_rb,0.50742e+00_rb,0.76107e+00_rb,0.10147e+01_rb, &
+        & 0.12682e+01_rb,0.15216e+01_rb,0.17737e+01_rb,0.20298e+01_rb /)
+      kao(:, 2,10,16) = (/ &
+        & 0.41120e+00_rb,0.35980e+00_rb,0.57626e+00_rb,0.86440e+00_rb,0.11524e+01_rb, &
+        & 0.14403e+01_rb,0.17281e+01_rb,0.20148e+01_rb,0.23052e+01_rb /)
+      kao(:, 3,10,16) = (/ &
+        & 0.39435e+00_rb,0.35582e+00_rb,0.64201e+00_rb,0.96295e+00_rb,0.12838e+01_rb, &
+        & 0.16046e+01_rb,0.19250e+01_rb,0.22444e+01_rb,0.25680e+01_rb /)
+      kao(:, 4,10,16) = (/ &
+        & 0.37835e+00_rb,0.36721e+00_rb,0.70220e+00_rb,0.10532e+01_rb,0.14042e+01_rb, &
+        & 0.17550e+01_rb,0.21055e+01_rb,0.24551e+01_rb,0.28089e+01_rb /)
+      kao(:, 5,10,16) = (/ &
+        & 0.36302e+00_rb,0.38402e+00_rb,0.75599e+00_rb,0.11339e+01_rb,0.15118e+01_rb, &
+        & 0.18894e+01_rb,0.22669e+01_rb,0.26429e+01_rb,0.30243e+01_rb /)
+      kao(:, 1,11,16) = (/ &
+        & 0.50130e+00_rb,0.43864e+00_rb,0.59754e+00_rb,0.89626e+00_rb,0.11949e+01_rb, &
+        & 0.14934e+01_rb,0.17919e+01_rb,0.20890e+01_rb,0.23902e+01_rb /)
+      kao(:, 2,11,16) = (/ &
+        & 0.47862e+00_rb,0.41971e+00_rb,0.67375e+00_rb,0.10106e+01_rb,0.13473e+01_rb, &
+        & 0.16840e+01_rb,0.20203e+01_rb,0.23553e+01_rb,0.26950e+01_rb /)
+      kao(:, 3,11,16) = (/ &
+        & 0.45729e+00_rb,0.41739e+00_rb,0.74475e+00_rb,0.11171e+01_rb,0.14893e+01_rb, &
+        & 0.18615e+01_rb,0.22335e+01_rb,0.26038e+01_rb,0.29786e+01_rb /)
+      kao(:, 4,11,16) = (/ &
+        & 0.43691e+00_rb,0.42957e+00_rb,0.80967e+00_rb,0.12144e+01_rb,0.16191e+01_rb, &
+        & 0.20236e+01_rb,0.24280e+01_rb,0.28308e+01_rb,0.32389e+01_rb /)
+      kao(:, 5,11,16) = (/ &
+        & 0.41748e+00_rb,0.44621e+00_rb,0.86800e+00_rb,0.13019e+01_rb,0.17360e+01_rb, &
+        & 0.21698e+01_rb,0.26031e+01_rb,0.30355e+01_rb,0.34723e+01_rb /)
+      kao(:, 1,12,16) = (/ &
+        & 0.58052e+00_rb,0.50796e+00_rb,0.69775e+00_rb,0.10466e+01_rb,0.13954e+01_rb, &
+        & 0.17440e+01_rb,0.20924e+01_rb,0.24394e+01_rb,0.27908e+01_rb /)
+      kao(:, 2,12,16) = (/ &
+        & 0.55207e+00_rb,0.48627e+00_rb,0.78177e+00_rb,0.11726e+01_rb,0.15635e+01_rb, &
+        & 0.19543e+01_rb,0.23447e+01_rb,0.27336e+01_rb,0.31273e+01_rb /)
+      kao(:, 3,12,16) = (/ &
+        & 0.52503e+00_rb,0.48543e+00_rb,0.85881e+00_rb,0.12881e+01_rb,0.17174e+01_rb, &
+        & 0.21467e+01_rb,0.25754e+01_rb,0.30027e+01_rb,0.34355e+01_rb /)
+      kao(:, 4,12,16) = (/ &
+        & 0.49945e+00_rb,0.49746e+00_rb,0.92780e+00_rb,0.13917e+01_rb,0.18554e+01_rb, &
+        & 0.23191e+01_rb,0.27823e+01_rb,0.32446e+01_rb,0.37108e+01_rb /)
+      kao(:, 5,12,16) = (/ &
+        & 0.47536e+00_rb,0.51344e+00_rb,0.98885e+00_rb,0.14832e+01_rb,0.19776e+01_rb, &
+        & 0.24717e+01_rb,0.29655e+01_rb,0.34576e+01_rb,0.39563e+01_rb /)
+      kao(:, 1,13,16) = (/ &
+        & 0.66560e+00_rb,0.58240e+00_rb,0.80598e+00_rb,0.12089e+01_rb,0.16118e+01_rb, &
+        & 0.20145e+01_rb,0.24172e+01_rb,0.28183e+01_rb,0.32240e+01_rb /)
+      kao(:, 2,13,16) = (/ &
+        & 0.62986e+00_rb,0.55885e+00_rb,0.89794e+00_rb,0.13468e+01_rb,0.17957e+01_rb, &
+        & 0.22443e+01_rb,0.26925e+01_rb,0.31396e+01_rb,0.35914e+01_rb /)
+      kao(:, 3,13,16) = (/ &
+        & 0.59613e+00_rb,0.55868e+00_rb,0.98065e+00_rb,0.14709e+01_rb,0.19611e+01_rb, &
+        & 0.24513e+01_rb,0.29409e+01_rb,0.34293e+01_rb,0.39230e+01_rb /)
+      kao(:, 4,13,16) = (/ &
+        & 0.56427e+00_rb,0.56950e+00_rb,0.10539e+01_rb,0.15808e+01_rb,0.21076e+01_rb, &
+        & 0.26342e+01_rb,0.31605e+01_rb,0.36850e+01_rb,0.42159e+01_rb /)
+      kao(:, 5,13,16) = (/ &
+        & 0.53530e+00_rb,0.58425e+00_rb,0.11174e+01_rb,0.16761e+01_rb,0.22346e+01_rb, &
+        & 0.27933e+01_rb,0.33512e+01_rb,0.39078e+01_rb,0.44703e+01_rb /)
+  
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kbo(:,13, 1) = (/ &
+        & 0.12810e-03_rb,0.12891e-03_rb,0.12890e-03_rb,0.12713e-03_rb,0.12477e-03_rb /)
+      kbo(:,14, 1) = (/ &
+        & 0.10653e-03_rb,0.10667e-03_rb,0.10648e-03_rb,0.10473e-03_rb,0.10293e-03_rb /)
+      kbo(:,15, 1) = (/ &
+        & 0.90176e-04_rb,0.90077e-04_rb,0.89286e-04_rb,0.87879e-04_rb,0.85987e-04_rb /)
+      kbo(:,16, 1) = (/ &
+        & 0.77704e-04_rb,0.77304e-04_rb,0.75879e-04_rb,0.74246e-04_rb,0.72070e-04_rb /)
+      kbo(:,17, 1) = (/ &
+        & 0.67183e-04_rb,0.65906e-04_rb,0.64619e-04_rb,0.63000e-04_rb,0.61056e-04_rb /)
+      kbo(:,18, 1) = (/ &
+        & 0.58741e-04_rb,0.57649e-04_rb,0.56028e-04_rb,0.54293e-04_rb,0.52506e-04_rb /)
+      kbo(:,19, 1) = (/ &
+        & 0.51839e-04_rb,0.50715e-04_rb,0.49053e-04_rb,0.47195e-04_rb,0.45368e-04_rb /)
+      kbo(:,20, 1) = (/ &
+        & 0.44321e-04_rb,0.43297e-04_rb,0.41923e-04_rb,0.40298e-04_rb,0.38744e-04_rb /)
+      kbo(:,21, 1) = (/ &
+        & 0.37527e-04_rb,0.36516e-04_rb,0.35380e-04_rb,0.34037e-04_rb,0.32951e-04_rb /)
+      kbo(:,22, 1) = (/ &
+        & 0.31752e-04_rb,0.30703e-04_rb,0.29586e-04_rb,0.28499e-04_rb,0.27519e-04_rb /)
+      kbo(:,23, 1) = (/ &
+        & 0.26638e-04_rb,0.25643e-04_rb,0.24693e-04_rb,0.23832e-04_rb,0.22913e-04_rb /)
+      kbo(:,24, 1) = (/ &
+        & 0.22325e-04_rb,0.21480e-04_rb,0.20621e-04_rb,0.19867e-04_rb,0.19066e-04_rb /)
+      kbo(:,25, 1) = (/ &
+        & 0.18764e-04_rb,0.17998e-04_rb,0.17269e-04_rb,0.16527e-04_rb,0.15821e-04_rb /)
+      kbo(:,26, 1) = (/ &
+        & 0.15650e-04_rb,0.14992e-04_rb,0.14356e-04_rb,0.13710e-04_rb,0.13119e-04_rb /)
+      kbo(:,27, 1) = (/ &
+        & 0.13054e-04_rb,0.12477e-04_rb,0.11929e-04_rb,0.11393e-04_rb,0.10948e-04_rb /)
+      kbo(:,28, 1) = (/ &
+        & 0.10852e-04_rb,0.10390e-04_rb,0.99195e-05_rb,0.95020e-05_rb,0.91993e-05_rb /)
+      kbo(:,29, 1) = (/ &
+        & 0.90990e-05_rb,0.87209e-05_rb,0.83384e-05_rb,0.80029e-05_rb,0.77245e-05_rb /)
+      kbo(:,30, 1) = (/ &
+        & 0.77169e-05_rb,0.73662e-05_rb,0.70552e-05_rb,0.68029e-05_rb,0.65749e-05_rb /)
+      kbo(:,31, 1) = (/ &
+        & 0.65250e-05_rb,0.62364e-05_rb,0.60172e-05_rb,0.57804e-05_rb,0.55504e-05_rb /)
+      kbo(:,32, 1) = (/ &
+        & 0.55167e-05_rb,0.53021e-05_rb,0.51088e-05_rb,0.49113e-05_rb,0.47150e-05_rb /)
+      kbo(:,33, 1) = (/ &
+        & 0.47261e-05_rb,0.45530e-05_rb,0.43641e-05_rb,0.41725e-05_rb,0.40077e-05_rb /)
+      kbo(:,34, 1) = (/ &
+        & 0.40646e-05_rb,0.39062e-05_rb,0.37472e-05_rb,0.36009e-05_rb,0.34549e-05_rb /)
+      kbo(:,35, 1) = (/ &
+        & 0.35479e-05_rb,0.34057e-05_rb,0.32704e-05_rb,0.31420e-05_rb,0.30219e-05_rb /)
+      kbo(:,36, 1) = (/ &
+        & 0.31353e-05_rb,0.30270e-05_rb,0.29024e-05_rb,0.27776e-05_rb,0.26600e-05_rb /)
+      kbo(:,37, 1) = (/ &
+        & 0.26595e-05_rb,0.25621e-05_rb,0.24646e-05_rb,0.23582e-05_rb,0.22563e-05_rb /)
+      kbo(:,38, 1) = (/ &
+        & 0.22468e-05_rb,0.21651e-05_rb,0.20812e-05_rb,0.20043e-05_rb,0.19221e-05_rb /)
+      kbo(:,39, 1) = (/ &
+        & 0.19009e-05_rb,0.18335e-05_rb,0.17685e-05_rb,0.17039e-05_rb,0.16406e-05_rb /)
+      kbo(:,40, 1) = (/ &
+        & 0.15746e-05_rb,0.15188e-05_rb,0.14669e-05_rb,0.14148e-05_rb,0.13668e-05_rb /)
+      kbo(:,41, 1) = (/ &
+        & 0.13001e-05_rb,0.12561e-05_rb,0.12122e-05_rb,0.11718e-05_rb,0.11306e-05_rb /)
+      kbo(:,42, 1) = (/ &
+        & 0.10716e-05_rb,0.10380e-05_rb,0.10018e-05_rb,0.96745e-06_rb,0.93475e-06_rb /)
+      kbo(:,43, 1) = (/ &
+        & 0.87651e-06_rb,0.85172e-06_rb,0.82453e-06_rb,0.79560e-06_rb,0.77011e-06_rb /)
+      kbo(:,44, 1) = (/ &
+        & 0.71565e-06_rb,0.69699e-06_rb,0.67699e-06_rb,0.65403e-06_rb,0.63202e-06_rb /)
+      kbo(:,45, 1) = (/ &
+        & 0.58391e-06_rb,0.56946e-06_rb,0.55318e-06_rb,0.53575e-06_rb,0.51774e-06_rb /)
+      kbo(:,46, 1) = (/ &
+        & 0.47490e-06_rb,0.46531e-06_rb,0.45175e-06_rb,0.43686e-06_rb,0.42260e-06_rb /)
+      kbo(:,47, 1) = (/ &
+        & 0.38718e-06_rb,0.37610e-06_rb,0.36650e-06_rb,0.35580e-06_rb,0.34417e-06_rb /)
+      kbo(:,48, 1) = (/ &
+        & 0.31464e-06_rb,0.30494e-06_rb,0.29872e-06_rb,0.29096e-06_rb,0.28230e-06_rb /)
+      kbo(:,49, 1) = (/ &
+        & 0.25542e-06_rb,0.24885e-06_rb,0.24314e-06_rb,0.23745e-06_rb,0.23092e-06_rb /)
+      kbo(:,50, 1) = (/ &
+        & 0.20741e-06_rb,0.20175e-06_rb,0.19699e-06_rb,0.19305e-06_rb,0.18791e-06_rb /)
+      kbo(:,51, 1) = (/ &
+        & 0.16760e-06_rb,0.16406e-06_rb,0.15993e-06_rb,0.15631e-06_rb,0.15327e-06_rb /)
+      kbo(:,52, 1) = (/ &
+        & 0.13579e-06_rb,0.13287e-06_rb,0.12985e-06_rb,0.12725e-06_rb,0.12470e-06_rb /)
+      kbo(:,53, 1) = (/ &
+        & 0.11006e-06_rb,0.10757e-06_rb,0.10568e-06_rb,0.10314e-06_rb,0.10101e-06_rb /)
+      kbo(:,54, 1) = (/ &
+        & 0.88711e-07_rb,0.87131e-07_rb,0.85162e-07_rb,0.83405e-07_rb,0.81585e-07_rb /)
+      kbo(:,55, 1) = (/ &
+        & 0.70889e-07_rb,0.69917e-07_rb,0.68692e-07_rb,0.67463e-07_rb,0.66047e-07_rb /)
+      kbo(:,56, 1) = (/ &
+        & 0.56659e-07_rb,0.56077e-07_rb,0.55518e-07_rb,0.54462e-07_rb,0.53563e-07_rb /)
+      kbo(:,57, 1) = (/ &
+        & 0.45380e-07_rb,0.45159e-07_rb,0.44718e-07_rb,0.44063e-07_rb,0.43116e-07_rb /)
+      kbo(:,58, 1) = (/ &
+        & 0.35962e-07_rb,0.36177e-07_rb,0.35997e-07_rb,0.35600e-07_rb,0.34340e-07_rb /)
+      kbo(:,59, 1) = (/ &
+        & 0.28578e-07_rb,0.28924e-07_rb,0.28901e-07_rb,0.28176e-07_rb,0.27246e-07_rb /)
+      kbo(:,13, 2) = (/ &
+        & 0.63215e-03_rb,0.64756e-03_rb,0.65734e-03_rb,0.66515e-03_rb,0.67077e-03_rb /)
+      kbo(:,14, 2) = (/ &
+        & 0.52378e-03_rb,0.53631e-03_rb,0.54485e-03_rb,0.55071e-03_rb,0.55605e-03_rb /)
+      kbo(:,15, 2) = (/ &
+        & 0.43777e-03_rb,0.44814e-03_rb,0.45521e-03_rb,0.46124e-03_rb,0.46700e-03_rb /)
+      kbo(:,16, 2) = (/ &
+        & 0.37023e-03_rb,0.37869e-03_rb,0.38568e-03_rb,0.39070e-03_rb,0.39760e-03_rb /)
+      kbo(:,17, 2) = (/ &
+        & 0.31753e-03_rb,0.32632e-03_rb,0.33254e-03_rb,0.33817e-03_rb,0.34312e-03_rb /)
+      kbo(:,18, 2) = (/ &
+        & 0.27580e-03_rb,0.28310e-03_rb,0.28915e-03_rb,0.29488e-03_rb,0.29855e-03_rb /)
+      kbo(:,19, 2) = (/ &
+        & 0.24129e-03_rb,0.24697e-03_rb,0.25302e-03_rb,0.25785e-03_rb,0.26137e-03_rb /)
+      kbo(:,20, 2) = (/ &
+        & 0.20470e-03_rb,0.21040e-03_rb,0.21552e-03_rb,0.21963e-03_rb,0.22260e-03_rb /)
+      kbo(:,21, 2) = (/ &
+        & 0.17290e-03_rb,0.17782e-03_rb,0.18188e-03_rb,0.18513e-03_rb,0.18794e-03_rb /)
+      kbo(:,22, 2) = (/ &
+        & 0.14599e-03_rb,0.15063e-03_rb,0.15389e-03_rb,0.15682e-03_rb,0.15965e-03_rb /)
+      kbo(:,23, 2) = (/ &
+        & 0.12390e-03_rb,0.12797e-03_rb,0.13071e-03_rb,0.13347e-03_rb,0.13571e-03_rb /)
+      kbo(:,24, 2) = (/ &
+        & 0.10553e-03_rb,0.10875e-03_rb,0.11134e-03_rb,0.11351e-03_rb,0.11513e-03_rb /)
+      kbo(:,25, 2) = (/ &
+        & 0.90263e-04_rb,0.92560e-04_rb,0.94667e-04_rb,0.96225e-04_rb,0.97041e-04_rb /)
+      kbo(:,26, 2) = (/ &
+        & 0.76542e-04_rb,0.78227e-04_rb,0.79755e-04_rb,0.80768e-04_rb,0.81412e-04_rb /)
+      kbo(:,27, 2) = (/ &
+        & 0.64562e-04_rb,0.66024e-04_rb,0.67121e-04_rb,0.67878e-04_rb,0.67992e-04_rb /)
+      kbo(:,28, 2) = (/ &
+        & 0.54587e-04_rb,0.55668e-04_rb,0.56439e-04_rb,0.56778e-04_rb,0.56649e-04_rb /)
+      kbo(:,29, 2) = (/ &
+        & 0.46248e-04_rb,0.46885e-04_rb,0.47469e-04_rb,0.47476e-04_rb,0.47464e-04_rb /)
+      kbo(:,30, 2) = (/ &
+        & 0.39084e-04_rb,0.39701e-04_rb,0.39836e-04_rb,0.39919e-04_rb,0.39762e-04_rb /)
+      kbo(:,31, 2) = (/ &
+        & 0.33297e-04_rb,0.33670e-04_rb,0.33781e-04_rb,0.33571e-04_rb,0.33418e-04_rb /)
+      kbo(:,32, 2) = (/ &
+        & 0.28475e-04_rb,0.28479e-04_rb,0.28352e-04_rb,0.28202e-04_rb,0.28107e-04_rb /)
+      kbo(:,33, 2) = (/ &
+        & 0.24023e-04_rb,0.23977e-04_rb,0.23874e-04_rb,0.23858e-04_rb,0.23729e-04_rb /)
+      kbo(:,34, 2) = (/ &
+        & 0.20276e-04_rb,0.20314e-04_rb,0.20262e-04_rb,0.20205e-04_rb,0.20013e-04_rb /)
+      kbo(:,35, 2) = (/ &
+        & 0.17177e-04_rb,0.17179e-04_rb,0.17181e-04_rb,0.17048e-04_rb,0.16915e-04_rb /)
+      kbo(:,36, 2) = (/ &
+        & 0.14586e-04_rb,0.14632e-04_rb,0.14569e-04_rb,0.14465e-04_rb,0.14404e-04_rb /)
+      kbo(:,37, 2) = (/ &
+        & 0.12165e-04_rb,0.12220e-04_rb,0.12164e-04_rb,0.12099e-04_rb,0.12036e-04_rb /)
+      kbo(:,38, 2) = (/ &
+        & 0.10178e-04_rb,0.10224e-04_rb,0.10201e-04_rb,0.10134e-04_rb,0.10060e-04_rb /)
+      kbo(:,39, 2) = (/ &
+        & 0.85622e-05_rb,0.85826e-05_rb,0.85520e-05_rb,0.85109e-05_rb,0.84378e-05_rb /)
+      kbo(:,40, 2) = (/ &
+        & 0.70263e-05_rb,0.70549e-05_rb,0.70334e-05_rb,0.70000e-05_rb,0.69500e-05_rb /)
+      kbo(:,41, 2) = (/ &
+        & 0.57510e-05_rb,0.57749e-05_rb,0.57692e-05_rb,0.57384e-05_rb,0.57121e-05_rb /)
+      kbo(:,42, 2) = (/ &
+        & 0.47038e-05_rb,0.47261e-05_rb,0.47278e-05_rb,0.47023e-05_rb,0.46867e-05_rb /)
+      kbo(:,43, 2) = (/ &
+        & 0.38249e-05_rb,0.38339e-05_rb,0.38498e-05_rb,0.38364e-05_rb,0.38125e-05_rb /)
+      kbo(:,44, 2) = (/ &
+        & 0.30973e-05_rb,0.31120e-05_rb,0.31166e-05_rb,0.31203e-05_rb,0.31022e-05_rb /)
+      kbo(:,45, 2) = (/ &
+        & 0.25085e-05_rb,0.25263e-05_rb,0.25293e-05_rb,0.25328e-05_rb,0.25249e-05_rb /)
+      kbo(:,46, 2) = (/ &
+        & 0.20261e-05_rb,0.20479e-05_rb,0.20565e-05_rb,0.20575e-05_rb,0.20588e-05_rb /)
+      kbo(:,47, 2) = (/ &
+        & 0.16319e-05_rb,0.16639e-05_rb,0.16745e-05_rb,0.16740e-05_rb,0.16759e-05_rb /)
+      kbo(:,48, 2) = (/ &
+        & 0.13097e-05_rb,0.13449e-05_rb,0.13611e-05_rb,0.13624e-05_rb,0.13589e-05_rb /)
+      kbo(:,49, 2) = (/ &
+        & 0.10521e-05_rb,0.10847e-05_rb,0.11052e-05_rb,0.11102e-05_rb,0.11085e-05_rb /)
+      kbo(:,50, 2) = (/ &
+        & 0.84668e-06_rb,0.87235e-06_rb,0.89544e-06_rb,0.90607e-06_rb,0.90616e-06_rb /)
+      kbo(:,51, 2) = (/ &
+        & 0.68060e-06_rb,0.70180e-06_rb,0.72187e-06_rb,0.73562e-06_rb,0.73800e-06_rb /)
+      kbo(:,52, 2) = (/ &
+        & 0.54634e-06_rb,0.56481e-06_rb,0.58256e-06_rb,0.59543e-06_rb,0.60122e-06_rb /)
+      kbo(:,53, 2) = (/ &
+        & 0.43866e-06_rb,0.45577e-06_rb,0.46957e-06_rb,0.48176e-06_rb,0.48940e-06_rb /)
+      kbo(:,54, 2) = (/ &
+        & 0.35062e-06_rb,0.36647e-06_rb,0.37935e-06_rb,0.38978e-06_rb,0.39697e-06_rb /)
+      kbo(:,55, 2) = (/ &
+        & 0.27883e-06_rb,0.29514e-06_rb,0.30397e-06_rb,0.31251e-06_rb,0.32004e-06_rb /)
+      kbo(:,56, 2) = (/ &
+        & 0.22098e-06_rb,0.23550e-06_rb,0.24289e-06_rb,0.25018e-06_rb,0.25708e-06_rb /)
+      kbo(:,57, 2) = (/ &
+        & 0.17295e-06_rb,0.18624e-06_rb,0.19332e-06_rb,0.19934e-06_rb,0.20587e-06_rb /)
+      kbo(:,58, 2) = (/ &
+        & 0.13623e-06_rb,0.14680e-06_rb,0.15403e-06_rb,0.15912e-06_rb,0.16499e-06_rb /)
+      kbo(:,59, 2) = (/ &
+        & 0.10864e-06_rb,0.11680e-06_rb,0.12353e-06_rb,0.12840e-06_rb,0.13352e-06_rb /)
+      kbo(:,13, 3) = (/ &
+        & 0.21069e-02_rb,0.21571e-02_rb,0.21943e-02_rb,0.22061e-02_rb,0.22124e-02_rb /)
+      kbo(:,14, 3) = (/ &
+        & 0.17411e-02_rb,0.17833e-02_rb,0.18097e-02_rb,0.18225e-02_rb,0.18251e-02_rb /)
+      kbo(:,15, 3) = (/ &
+        & 0.14440e-02_rb,0.14790e-02_rb,0.14963e-02_rb,0.15066e-02_rb,0.15066e-02_rb /)
+      kbo(:,16, 3) = (/ &
+        & 0.11998e-02_rb,0.12261e-02_rb,0.12398e-02_rb,0.12500e-02_rb,0.12487e-02_rb /)
+      kbo(:,17, 3) = (/ &
+        & 0.99980e-03_rb,0.10202e-02_rb,0.10332e-02_rb,0.10399e-02_rb,0.10392e-02_rb /)
+      kbo(:,18, 3) = (/ &
+        & 0.83805e-03_rb,0.85629e-03_rb,0.86827e-03_rb,0.87303e-03_rb,0.87540e-03_rb /)
+      kbo(:,19, 3) = (/ &
+        & 0.70743e-03_rb,0.72381e-03_rb,0.73251e-03_rb,0.73550e-03_rb,0.73931e-03_rb /)
+      kbo(:,20, 3) = (/ &
+        & 0.59348e-03_rb,0.60572e-03_rb,0.61137e-03_rb,0.61496e-03_rb,0.61761e-03_rb /)
+      kbo(:,21, 3) = (/ &
+        & 0.49556e-03_rb,0.50488e-03_rb,0.50987e-03_rb,0.51421e-03_rb,0.51581e-03_rb /)
+      kbo(:,22, 3) = (/ &
+        & 0.41461e-03_rb,0.42145e-03_rb,0.42584e-03_rb,0.42969e-03_rb,0.43055e-03_rb /)
+      kbo(:,23, 3) = (/ &
+        & 0.34683e-03_rb,0.35181e-03_rb,0.35660e-03_rb,0.35911e-03_rb,0.35958e-03_rb /)
+      kbo(:,24, 3) = (/ &
+        & 0.29004e-03_rb,0.29383e-03_rb,0.29787e-03_rb,0.29964e-03_rb,0.30042e-03_rb /)
+      kbo(:,25, 3) = (/ &
+        & 0.24146e-03_rb,0.24561e-03_rb,0.24879e-03_rb,0.25053e-03_rb,0.25134e-03_rb /)
+      kbo(:,26, 3) = (/ &
+        & 0.20160e-03_rb,0.20537e-03_rb,0.20774e-03_rb,0.20928e-03_rb,0.21023e-03_rb /)
+      kbo(:,27, 3) = (/ &
+        & 0.16916e-03_rb,0.17226e-03_rb,0.17386e-03_rb,0.17529e-03_rb,0.17634e-03_rb /)
+      kbo(:,28, 3) = (/ &
+        & 0.14183e-03_rb,0.14414e-03_rb,0.14604e-03_rb,0.14741e-03_rb,0.14844e-03_rb /)
+      kbo(:,29, 3) = (/ &
+        & 0.11954e-03_rb,0.12161e-03_rb,0.12286e-03_rb,0.12386e-03_rb,0.12448e-03_rb /)
+      kbo(:,30, 3) = (/ &
+        & 0.10067e-03_rb,0.10205e-03_rb,0.10331e-03_rb,0.10409e-03_rb,0.10476e-03_rb /)
+      kbo(:,31, 3) = (/ &
+        & 0.85014e-04_rb,0.86248e-04_rb,0.87024e-04_rb,0.87958e-04_rb,0.88579e-04_rb /)
+      kbo(:,32, 3) = (/ &
+        & 0.71930e-04_rb,0.73074e-04_rb,0.73985e-04_rb,0.74934e-04_rb,0.74848e-04_rb /)
+      kbo(:,33, 3) = (/ &
+        & 0.61205e-04_rb,0.62259e-04_rb,0.63209e-04_rb,0.63383e-04_rb,0.63466e-04_rb /)
+      kbo(:,34, 3) = (/ &
+        & 0.52046e-04_rb,0.52896e-04_rb,0.53420e-04_rb,0.53516e-04_rb,0.53755e-04_rb /)
+      kbo(:,35, 3) = (/ &
+        & 0.44380e-04_rb,0.45121e-04_rb,0.45277e-04_rb,0.45604e-04_rb,0.45761e-04_rb /)
+      kbo(:,36, 3) = (/ &
+        & 0.38058e-04_rb,0.38409e-04_rb,0.38657e-04_rb,0.38813e-04_rb,0.38628e-04_rb /)
+      kbo(:,37, 3) = (/ &
+        & 0.31735e-04_rb,0.31990e-04_rb,0.32199e-04_rb,0.32288e-04_rb,0.32179e-04_rb /)
+      kbo(:,38, 3) = (/ &
+        & 0.26378e-04_rb,0.26667e-04_rb,0.26778e-04_rb,0.26840e-04_rb,0.26760e-04_rb /)
+      kbo(:,39, 3) = (/ &
+        & 0.21949e-04_rb,0.22195e-04_rb,0.22340e-04_rb,0.22330e-04_rb,0.22281e-04_rb /)
+      kbo(:,40, 3) = (/ &
+        & 0.18001e-04_rb,0.18209e-04_rb,0.18338e-04_rb,0.18376e-04_rb,0.18309e-04_rb /)
+      kbo(:,41, 3) = (/ &
+        & 0.14715e-04_rb,0.14906e-04_rb,0.15025e-04_rb,0.15098e-04_rb,0.15026e-04_rb /)
+      kbo(:,42, 3) = (/ &
+        & 0.12019e-04_rb,0.12197e-04_rb,0.12312e-04_rb,0.12380e-04_rb,0.12346e-04_rb /)
+      kbo(:,43, 3) = (/ &
+        & 0.97566e-05_rb,0.99318e-05_rb,0.10036e-04_rb,0.10096e-04_rb,0.10118e-04_rb /)
+      kbo(:,44, 3) = (/ &
+        & 0.78810e-05_rb,0.80716e-05_rb,0.81637e-05_rb,0.82202e-05_rb,0.82608e-05_rb /)
+      kbo(:,45, 3) = (/ &
+        & 0.63541e-05_rb,0.65171e-05_rb,0.66330e-05_rb,0.66977e-05_rb,0.67239e-05_rb /)
+      kbo(:,46, 3) = (/ &
+        & 0.51077e-05_rb,0.52428e-05_rb,0.53636e-05_rb,0.54363e-05_rb,0.54693e-05_rb /)
+      kbo(:,47, 3) = (/ &
+        & 0.40883e-05_rb,0.42196e-05_rb,0.43199e-05_rb,0.44074e-05_rb,0.44462e-05_rb /)
+      kbo(:,48, 3) = (/ &
+        & 0.32909e-05_rb,0.33941e-05_rb,0.34746e-05_rb,0.35546e-05_rb,0.36089e-05_rb /)
+      kbo(:,49, 3) = (/ &
+        & 0.26401e-05_rb,0.27269e-05_rb,0.28003e-05_rb,0.28616e-05_rb,0.29188e-05_rb /)
+      kbo(:,50, 3) = (/ &
+        & 0.21222e-05_rb,0.22032e-05_rb,0.22638e-05_rb,0.23127e-05_rb,0.23603e-05_rb /)
+      kbo(:,51, 3) = (/ &
+        & 0.17056e-05_rb,0.17838e-05_rb,0.18386e-05_rb,0.18804e-05_rb,0.19134e-05_rb /)
+      kbo(:,52, 3) = (/ &
+        & 0.13662e-05_rb,0.14333e-05_rb,0.14855e-05_rb,0.15238e-05_rb,0.15521e-05_rb /)
+      kbo(:,53, 3) = (/ &
+        & 0.10889e-05_rb,0.11445e-05_rb,0.11955e-05_rb,0.12300e-05_rb,0.12560e-05_rb /)
+      kbo(:,54, 3) = (/ &
+        & 0.86251e-06_rb,0.91556e-06_rb,0.95999e-06_rb,0.99454e-06_rb,0.10171e-05_rb /)
+      kbo(:,55, 3) = (/ &
+        & 0.68640e-06_rb,0.72868e-06_rb,0.77389e-06_rb,0.80627e-06_rb,0.82696e-06_rb /)
+      kbo(:,56, 3) = (/ &
+        & 0.54334e-06_rb,0.58339e-06_rb,0.61953e-06_rb,0.65190e-06_rb,0.67285e-06_rb /)
+      kbo(:,57, 3) = (/ &
+        & 0.43336e-06_rb,0.46511e-06_rb,0.49561e-06_rb,0.52337e-06_rb,0.54491e-06_rb /)
+      kbo(:,58, 3) = (/ &
+        & 0.34428e-06_rb,0.37236e-06_rb,0.39687e-06_rb,0.42017e-06_rb,0.43790e-06_rb /)
+      kbo(:,59, 3) = (/ &
+        & 0.27883e-06_rb,0.30237e-06_rb,0.32096e-06_rb,0.33978e-06_rb,0.35485e-06_rb /)
+      kbo(:,13, 4) = (/ &
+        & 0.52806e-02_rb,0.53551e-02_rb,0.53836e-02_rb,0.53810e-02_rb,0.53413e-02_rb /)
+      kbo(:,14, 4) = (/ &
+        & 0.43594e-02_rb,0.44114e-02_rb,0.44268e-02_rb,0.44183e-02_rb,0.43877e-02_rb /)
+      kbo(:,15, 4) = (/ &
+        & 0.36080e-02_rb,0.36421e-02_rb,0.36603e-02_rb,0.36540e-02_rb,0.36307e-02_rb /)
+      kbo(:,16, 4) = (/ &
+        & 0.30007e-02_rb,0.30324e-02_rb,0.30479e-02_rb,0.30377e-02_rb,0.30175e-02_rb /)
+      kbo(:,17, 4) = (/ &
+        & 0.25113e-02_rb,0.25415e-02_rb,0.25489e-02_rb,0.25428e-02_rb,0.25281e-02_rb /)
+      kbo(:,18, 4) = (/ &
+        & 0.21119e-02_rb,0.21340e-02_rb,0.21396e-02_rb,0.21381e-02_rb,0.21232e-02_rb /)
+      kbo(:,19, 4) = (/ &
+        & 0.17705e-02_rb,0.17884e-02_rb,0.17942e-02_rb,0.17931e-02_rb,0.17819e-02_rb /)
+      kbo(:,20, 4) = (/ &
+        & 0.14714e-02_rb,0.14854e-02_rb,0.14921e-02_rb,0.14920e-02_rb,0.14874e-02_rb /)
+      kbo(:,21, 4) = (/ &
+        & 0.12224e-02_rb,0.12349e-02_rb,0.12432e-02_rb,0.12411e-02_rb,0.12395e-02_rb /)
+      kbo(:,22, 4) = (/ &
+        & 0.10170e-02_rb,0.10281e-02_rb,0.10319e-02_rb,0.10310e-02_rb,0.10286e-02_rb /)
+      kbo(:,23, 4) = (/ &
+        & 0.84681e-03_rb,0.85484e-03_rb,0.85517e-03_rb,0.85545e-03_rb,0.85571e-03_rb /)
+      kbo(:,24, 4) = (/ &
+        & 0.70330e-03_rb,0.70875e-03_rb,0.71078e-03_rb,0.71261e-03_rb,0.71112e-03_rb /)
+      kbo(:,25, 4) = (/ &
+        & 0.58481e-03_rb,0.58870e-03_rb,0.59157e-03_rb,0.59305e-03_rb,0.59234e-03_rb /)
+      kbo(:,26, 4) = (/ &
+        & 0.48640e-03_rb,0.49044e-03_rb,0.49395e-03_rb,0.49468e-03_rb,0.49466e-03_rb /)
+      kbo(:,27, 4) = (/ &
+        & 0.40472e-03_rb,0.40915e-03_rb,0.41235e-03_rb,0.41278e-03_rb,0.41345e-03_rb /)
+      kbo(:,28, 4) = (/ &
+        & 0.33826e-03_rb,0.34205e-03_rb,0.34364e-03_rb,0.34480e-03_rb,0.34528e-03_rb /)
+      kbo(:,29, 4) = (/ &
+        & 0.28308e-03_rb,0.28627e-03_rb,0.28792e-03_rb,0.28910e-03_rb,0.28958e-03_rb /)
+      kbo(:,30, 4) = (/ &
+        & 0.23759e-03_rb,0.23994e-03_rb,0.24196e-03_rb,0.24295e-03_rb,0.24270e-03_rb /)
+      kbo(:,31, 4) = (/ &
+        & 0.19993e-03_rb,0.20202e-03_rb,0.20390e-03_rb,0.20456e-03_rb,0.20411e-03_rb /)
+      kbo(:,32, 4) = (/ &
+        & 0.16851e-03_rb,0.17060e-03_rb,0.17151e-03_rb,0.17169e-03_rb,0.17133e-03_rb /)
+      kbo(:,33, 4) = (/ &
+        & 0.14275e-03_rb,0.14392e-03_rb,0.14445e-03_rb,0.14452e-03_rb,0.14399e-03_rb /)
+      kbo(:,34, 4) = (/ &
+        & 0.12060e-03_rb,0.12142e-03_rb,0.12181e-03_rb,0.12165e-03_rb,0.12105e-03_rb /)
+      kbo(:,35, 4) = (/ &
+        & 0.10168e-03_rb,0.10240e-03_rb,0.10276e-03_rb,0.10261e-03_rb,0.10202e-03_rb /)
+      kbo(:,36, 4) = (/ &
+        & 0.85780e-04_rb,0.86636e-04_rb,0.86815e-04_rb,0.86780e-04_rb,0.86722e-04_rb /)
+      kbo(:,37, 4) = (/ &
+        & 0.71540e-04_rb,0.72201e-04_rb,0.72422e-04_rb,0.72501e-04_rb,0.72398e-04_rb /)
+      kbo(:,38, 4) = (/ &
+        & 0.59609e-04_rb,0.60152e-04_rb,0.60443e-04_rb,0.60540e-04_rb,0.60534e-04_rb /)
+      kbo(:,39, 4) = (/ &
+        & 0.49681e-04_rb,0.50194e-04_rb,0.50481e-04_rb,0.50649e-04_rb,0.50643e-04_rb /)
+      kbo(:,40, 4) = (/ &
+        & 0.40815e-04_rb,0.41335e-04_rb,0.41565e-04_rb,0.41729e-04_rb,0.41776e-04_rb /)
+      kbo(:,41, 4) = (/ &
+        & 0.33476e-04_rb,0.33932e-04_rb,0.34171e-04_rb,0.34301e-04_rb,0.34397e-04_rb /)
+      kbo(:,42, 4) = (/ &
+        & 0.27419e-04_rb,0.27824e-04_rb,0.28083e-04_rb,0.28221e-04_rb,0.28296e-04_rb /)
+      kbo(:,43, 4) = (/ &
+        & 0.22349e-04_rb,0.22753e-04_rb,0.22975e-04_rb,0.23100e-04_rb,0.23164e-04_rb /)
+      kbo(:,44, 4) = (/ &
+        & 0.18197e-04_rb,0.18488e-04_rb,0.18747e-04_rb,0.18878e-04_rb,0.18943e-04_rb /)
+      kbo(:,45, 4) = (/ &
+        & 0.14815e-04_rb,0.15081e-04_rb,0.15284e-04_rb,0.15408e-04_rb,0.15493e-04_rb /)
+      kbo(:,46, 4) = (/ &
+        & 0.12046e-04_rb,0.12304e-04_rb,0.12476e-04_rb,0.12590e-04_rb,0.12654e-04_rb /)
+      kbo(:,47, 4) = (/ &
+        & 0.97834e-05_rb,0.10018e-04_rb,0.10187e-04_rb,0.10295e-04_rb,0.10365e-04_rb /)
+      kbo(:,48, 4) = (/ &
+        & 0.79058e-05_rb,0.81583e-05_rb,0.83158e-05_rb,0.84259e-05_rb,0.84791e-05_rb /)
+      kbo(:,49, 4) = (/ &
+        & 0.63847e-05_rb,0.66212e-05_rb,0.67735e-05_rb,0.68818e-05_rb,0.69382e-05_rb /)
+      kbo(:,50, 4) = (/ &
+        & 0.51619e-05_rb,0.53698e-05_rb,0.55239e-05_rb,0.56230e-05_rb,0.56931e-05_rb /)
+      kbo(:,51, 4) = (/ &
+        & 0.41764e-05_rb,0.43546e-05_rb,0.45018e-05_rb,0.45927e-05_rb,0.46609e-05_rb /)
+      kbo(:,52, 4) = (/ &
+        & 0.33696e-05_rb,0.35302e-05_rb,0.36585e-05_rb,0.37548e-05_rb,0.38091e-05_rb /)
+      kbo(:,53, 4) = (/ &
+        & 0.27142e-05_rb,0.28585e-05_rb,0.29700e-05_rb,0.30632e-05_rb,0.31163e-05_rb /)
+      kbo(:,54, 4) = (/ &
+        & 0.21974e-05_rb,0.23176e-05_rb,0.24169e-05_rb,0.24980e-05_rb,0.25555e-05_rb /)
+      kbo(:,55, 4) = (/ &
+        & 0.17820e-05_rb,0.18827e-05_rb,0.19647e-05_rb,0.20347e-05_rb,0.20895e-05_rb /)
+      kbo(:,56, 4) = (/ &
+        & 0.14445e-05_rb,0.15274e-05_rb,0.15999e-05_rb,0.16558e-05_rb,0.17004e-05_rb /)
+      kbo(:,57, 4) = (/ &
+        & 0.11612e-05_rb,0.12390e-05_rb,0.13020e-05_rb,0.13508e-05_rb,0.13881e-05_rb /)
+      kbo(:,58, 4) = (/ &
+        & 0.93606e-06_rb,0.10017e-05_rb,0.10598e-05_rb,0.11016e-05_rb,0.11367e-05_rb /)
+      kbo(:,59, 4) = (/ &
+        & 0.76682e-06_rb,0.82318e-06_rb,0.87281e-06_rb,0.91208e-06_rb,0.94037e-06_rb /)
+      kbo(:,13, 5) = (/ &
+        & 0.12856e-01_rb,0.13079e-01_rb,0.13167e-01_rb,0.13177e-01_rb,0.13097e-01_rb /)
+      kbo(:,14, 5) = (/ &
+        & 0.10708e-01_rb,0.10853e-01_rb,0.10911e-01_rb,0.10898e-01_rb,0.10814e-01_rb /)
+      kbo(:,15, 5) = (/ &
+        & 0.88690e-02_rb,0.89759e-02_rb,0.90116e-02_rb,0.89730e-02_rb,0.88895e-02_rb /)
+      kbo(:,16, 5) = (/ &
+        & 0.73377e-02_rb,0.74116e-02_rb,0.74224e-02_rb,0.73845e-02_rb,0.73097e-02_rb /)
+      kbo(:,17, 5) = (/ &
+        & 0.61050e-02_rb,0.61465e-02_rb,0.61522e-02_rb,0.61190e-02_rb,0.60607e-02_rb /)
+      kbo(:,18, 5) = (/ &
+        & 0.51170e-02_rb,0.51524e-02_rb,0.51567e-02_rb,0.51299e-02_rb,0.50853e-02_rb /)
+      kbo(:,19, 5) = (/ &
+        & 0.42872e-02_rb,0.43210e-02_rb,0.43249e-02_rb,0.43090e-02_rb,0.42772e-02_rb /)
+      kbo(:,20, 5) = (/ &
+        & 0.35726e-02_rb,0.35987e-02_rb,0.36030e-02_rb,0.35888e-02_rb,0.35606e-02_rb /)
+      kbo(:,21, 5) = (/ &
+        & 0.29687e-02_rb,0.29865e-02_rb,0.29887e-02_rb,0.29805e-02_rb,0.29536e-02_rb /)
+      kbo(:,22, 5) = (/ &
+        & 0.24631e-02_rb,0.24766e-02_rb,0.24818e-02_rb,0.24706e-02_rb,0.24511e-02_rb /)
+      kbo(:,23, 5) = (/ &
+        & 0.20423e-02_rb,0.20574e-02_rb,0.20622e-02_rb,0.20550e-02_rb,0.20390e-02_rb /)
+      kbo(:,24, 5) = (/ &
+        & 0.17009e-02_rb,0.17137e-02_rb,0.17151e-02_rb,0.17066e-02_rb,0.16944e-02_rb /)
+      kbo(:,25, 5) = (/ &
+        & 0.14175e-02_rb,0.14281e-02_rb,0.14264e-02_rb,0.14202e-02_rb,0.14101e-02_rb /)
+      kbo(:,26, 5) = (/ &
+        & 0.11824e-02_rb,0.11879e-02_rb,0.11852e-02_rb,0.11799e-02_rb,0.11727e-02_rb /)
+      kbo(:,27, 5) = (/ &
+        & 0.98538e-03_rb,0.98799e-03_rb,0.98648e-03_rb,0.98258e-03_rb,0.97798e-03_rb /)
+      kbo(:,28, 5) = (/ &
+        & 0.82156e-03_rb,0.82317e-03_rb,0.82299e-03_rb,0.82154e-03_rb,0.81913e-03_rb /)
+      kbo(:,29, 5) = (/ &
+        & 0.68689e-03_rb,0.68935e-03_rb,0.68992e-03_rb,0.69010e-03_rb,0.68854e-03_rb /)
+      kbo(:,30, 5) = (/ &
+        & 0.57658e-03_rb,0.57999e-03_rb,0.58178e-03_rb,0.58209e-03_rb,0.58220e-03_rb /)
+      kbo(:,31, 5) = (/ &
+        & 0.48638e-03_rb,0.49049e-03_rb,0.49261e-03_rb,0.49405e-03_rb,0.49565e-03_rb /)
+      kbo(:,32, 5) = (/ &
+        & 0.41128e-03_rb,0.41527e-03_rb,0.41847e-03_rb,0.42111e-03_rb,0.42278e-03_rb /)
+      kbo(:,33, 5) = (/ &
+        & 0.34942e-03_rb,0.35347e-03_rb,0.35669e-03_rb,0.35970e-03_rb,0.36033e-03_rb /)
+      kbo(:,34, 5) = (/ &
+        & 0.29778e-03_rb,0.30183e-03_rb,0.30543e-03_rb,0.30722e-03_rb,0.30756e-03_rb /)
+      kbo(:,35, 5) = (/ &
+        & 0.25439e-03_rb,0.25855e-03_rb,0.26145e-03_rb,0.26279e-03_rb,0.26328e-03_rb /)
+      kbo(:,36, 5) = (/ &
+        & 0.21688e-03_rb,0.22055e-03_rb,0.22366e-03_rb,0.22472e-03_rb,0.22545e-03_rb /)
+      kbo(:,37, 5) = (/ &
+        & 0.18184e-03_rb,0.18525e-03_rb,0.18789e-03_rb,0.18888e-03_rb,0.18981e-03_rb /)
+      kbo(:,38, 5) = (/ &
+        & 0.15217e-03_rb,0.15529e-03_rb,0.15752e-03_rb,0.15878e-03_rb,0.15947e-03_rb /)
+      kbo(:,39, 5) = (/ &
+        & 0.12738e-03_rb,0.13010e-03_rb,0.13202e-03_rb,0.13325e-03_rb,0.13405e-03_rb /)
+      kbo(:,40, 5) = (/ &
+        & 0.10533e-03_rb,0.10771e-03_rb,0.10944e-03_rb,0.11063e-03_rb,0.11132e-03_rb /)
+      kbo(:,41, 5) = (/ &
+        & 0.86935e-04_rb,0.89079e-04_rb,0.90576e-04_rb,0.91599e-04_rb,0.92136e-04_rb /)
+      kbo(:,42, 5) = (/ &
+        & 0.71757e-04_rb,0.73600e-04_rb,0.74913e-04_rb,0.75823e-04_rb,0.76332e-04_rb /)
+      kbo(:,43, 5) = (/ &
+        & 0.58933e-04_rb,0.60448e-04_rb,0.61689e-04_rb,0.62502e-04_rb,0.62968e-04_rb /)
+      kbo(:,44, 5) = (/ &
+        & 0.48240e-04_rb,0.49626e-04_rb,0.50671e-04_rb,0.51353e-04_rb,0.51808e-04_rb /)
+      kbo(:,45, 5) = (/ &
+        & 0.39365e-04_rb,0.40603e-04_rb,0.41556e-04_rb,0.42201e-04_rb,0.42661e-04_rb /)
+      kbo(:,46, 5) = (/ &
+        & 0.32140e-04_rb,0.33199e-04_rb,0.34102e-04_rb,0.34681e-04_rb,0.35122e-04_rb /)
+      kbo(:,47, 5) = (/ &
+        & 0.26212e-04_rb,0.27122e-04_rb,0.27914e-04_rb,0.28482e-04_rb,0.28883e-04_rb /)
+      kbo(:,48, 5) = (/ &
+        & 0.21367e-04_rb,0.22132e-04_rb,0.22808e-04_rb,0.23366e-04_rb,0.23750e-04_rb /)
+      kbo(:,49, 5) = (/ &
+        & 0.17366e-04_rb,0.18036e-04_rb,0.18610e-04_rb,0.19128e-04_rb,0.19501e-04_rb /)
+      kbo(:,50, 5) = (/ &
+        & 0.14166e-04_rb,0.14744e-04_rb,0.15227e-04_rb,0.15695e-04_rb,0.16033e-04_rb /)
+      kbo(:,51, 5) = (/ &
+        & 0.11520e-04_rb,0.12036e-04_rb,0.12466e-04_rb,0.12850e-04_rb,0.13177e-04_rb /)
+      kbo(:,52, 5) = (/ &
+        & 0.93545e-05_rb,0.97967e-05_rb,0.10185e-04_rb,0.10504e-04_rb,0.10808e-04_rb /)
+      kbo(:,53, 5) = (/ &
+        & 0.75900e-05_rb,0.79775e-05_rb,0.83066e-05_rb,0.85876e-05_rb,0.88446e-05_rb /)
+      kbo(:,54, 5) = (/ &
+        & 0.61841e-05_rb,0.65213e-05_rb,0.67983e-05_rb,0.70299e-05_rb,0.72479e-05_rb /)
+      kbo(:,55, 5) = (/ &
+        & 0.50267e-05_rb,0.53142e-05_rb,0.55644e-05_rb,0.57696e-05_rb,0.59449e-05_rb /)
+      kbo(:,56, 5) = (/ &
+        & 0.40664e-05_rb,0.43169e-05_rb,0.45344e-05_rb,0.47274e-05_rb,0.48783e-05_rb /)
+      kbo(:,57, 5) = (/ &
+        & 0.32881e-05_rb,0.34993e-05_rb,0.36900e-05_rb,0.38580e-05_rb,0.39983e-05_rb /)
+      kbo(:,58, 5) = (/ &
+        & 0.26562e-05_rb,0.28386e-05_rb,0.30033e-05_rb,0.31435e-05_rb,0.32655e-05_rb /)
+      kbo(:,59, 5) = (/ &
+        & 0.21842e-05_rb,0.23355e-05_rb,0.24742e-05_rb,0.25918e-05_rb,0.26979e-05_rb /)
+      kbo(:,13, 6) = (/ &
+        & 0.31802e-01_rb,0.32385e-01_rb,0.32761e-01_rb,0.32924e-01_rb,0.32887e-01_rb /)
+      kbo(:,14, 6) = (/ &
+        & 0.27075e-01_rb,0.27526e-01_rb,0.27777e-01_rb,0.27825e-01_rb,0.27714e-01_rb /)
+      kbo(:,15, 6) = (/ &
+        & 0.22867e-01_rb,0.23213e-01_rb,0.23346e-01_rb,0.23326e-01_rb,0.23192e-01_rb /)
+      kbo(:,16, 6) = (/ &
+        & 0.19243e-01_rb,0.19469e-01_rb,0.19534e-01_rb,0.19508e-01_rb,0.19374e-01_rb /)
+      kbo(:,17, 6) = (/ &
+        & 0.16143e-01_rb,0.16291e-01_rb,0.16340e-01_rb,0.16286e-01_rb,0.16140e-01_rb /)
+      kbo(:,18, 6) = (/ &
+        & 0.13508e-01_rb,0.13619e-01_rb,0.13632e-01_rb,0.13563e-01_rb,0.13444e-01_rb /)
+      kbo(:,19, 6) = (/ &
+        & 0.11360e-01_rb,0.11423e-01_rb,0.11418e-01_rb,0.11354e-01_rb,0.11254e-01_rb /)
+      kbo(:,20, 6) = (/ &
+        & 0.95257e-02_rb,0.95677e-02_rb,0.95569e-02_rb,0.94993e-02_rb,0.94147e-02_rb /)
+      kbo(:,21, 6) = (/ &
+        & 0.79688e-02_rb,0.80079e-02_rb,0.79930e-02_rb,0.79576e-02_rb,0.78976e-02_rb /)
+      kbo(:,22, 6) = (/ &
+        & 0.66527e-02_rb,0.66824e-02_rb,0.66717e-02_rb,0.66442e-02_rb,0.65988e-02_rb /)
+      kbo(:,23, 6) = (/ &
+        & 0.55583e-02_rb,0.55741e-02_rb,0.55685e-02_rb,0.55458e-02_rb,0.55136e-02_rb /)
+      kbo(:,24, 6) = (/ &
+        & 0.46281e-02_rb,0.46404e-02_rb,0.46354e-02_rb,0.46240e-02_rb,0.46070e-02_rb /)
+      kbo(:,25, 6) = (/ &
+        & 0.38479e-02_rb,0.38586e-02_rb,0.38647e-02_rb,0.38587e-02_rb,0.38482e-02_rb /)
+      kbo(:,26, 6) = (/ &
+        & 0.31996e-02_rb,0.32113e-02_rb,0.32185e-02_rb,0.32206e-02_rb,0.32221e-02_rb /)
+      kbo(:,27, 6) = (/ &
+        & 0.26655e-02_rb,0.26804e-02_rb,0.26909e-02_rb,0.27001e-02_rb,0.27000e-02_rb /)
+      kbo(:,28, 6) = (/ &
+        & 0.22269e-02_rb,0.22430e-02_rb,0.22546e-02_rb,0.22636e-02_rb,0.22685e-02_rb /)
+      kbo(:,29, 6) = (/ &
+        & 0.18711e-02_rb,0.18853e-02_rb,0.19010e-02_rb,0.19079e-02_rb,0.19146e-02_rb /)
+      kbo(:,30, 6) = (/ &
+        & 0.15792e-02_rb,0.15950e-02_rb,0.16049e-02_rb,0.16149e-02_rb,0.16250e-02_rb /)
+      kbo(:,31, 6) = (/ &
+        & 0.13390e-02_rb,0.13523e-02_rb,0.13631e-02_rb,0.13762e-02_rb,0.13899e-02_rb /)
+      kbo(:,32, 6) = (/ &
+        & 0.11423e-02_rb,0.11552e-02_rb,0.11689e-02_rb,0.11828e-02_rb,0.12002e-02_rb /)
+      kbo(:,33, 6) = (/ &
+        & 0.97837e-03_rb,0.99414e-03_rb,0.10078e-02_rb,0.10254e-02_rb,0.10445e-02_rb /)
+      kbo(:,34, 6) = (/ &
+        & 0.84508e-03_rb,0.85961e-03_rb,0.87553e-03_rb,0.89474e-03_rb,0.91454e-03_rb /)
+      kbo(:,35, 6) = (/ &
+        & 0.73067e-03_rb,0.74643e-03_rb,0.76522e-03_rb,0.78433e-03_rb,0.80547e-03_rb /)
+      kbo(:,36, 6) = (/ &
+        & 0.63501e-03_rb,0.65286e-03_rb,0.67124e-03_rb,0.69177e-03_rb,0.71245e-03_rb /)
+      kbo(:,37, 6) = (/ &
+        & 0.54302e-03_rb,0.56011e-03_rb,0.57838e-03_rb,0.59932e-03_rb,0.61930e-03_rb /)
+      kbo(:,38, 6) = (/ &
+        & 0.46413e-03_rb,0.48141e-03_rb,0.49888e-03_rb,0.51888e-03_rb,0.53851e-03_rb /)
+      kbo(:,39, 6) = (/ &
+        & 0.39787e-03_rb,0.41416e-03_rb,0.43137e-03_rb,0.45076e-03_rb,0.46884e-03_rb /)
+      kbo(:,40, 6) = (/ &
+        & 0.33542e-03_rb,0.35026e-03_rb,0.36640e-03_rb,0.38421e-03_rb,0.40074e-03_rb /)
+      kbo(:,41, 6) = (/ &
+        & 0.28198e-03_rb,0.29533e-03_rb,0.31033e-03_rb,0.32658e-03_rb,0.34246e-03_rb /)
+      kbo(:,42, 6) = (/ &
+        & 0.23644e-03_rb,0.24877e-03_rb,0.26248e-03_rb,0.27695e-03_rb,0.29184e-03_rb /)
+      kbo(:,43, 6) = (/ &
+        & 0.19698e-03_rb,0.20826e-03_rb,0.22042e-03_rb,0.23357e-03_rb,0.24697e-03_rb /)
+      kbo(:,44, 6) = (/ &
+        & 0.16338e-03_rb,0.17334e-03_rb,0.18409e-03_rb,0.19557e-03_rb,0.20792e-03_rb /)
+      kbo(:,45, 6) = (/ &
+        & 0.13558e-03_rb,0.14397e-03_rb,0.15333e-03_rb,0.16359e-03_rb,0.17463e-03_rb /)
+      kbo(:,46, 6) = (/ &
+        & 0.11191e-03_rb,0.11919e-03_rb,0.12729e-03_rb,0.13624e-03_rb,0.14629e-03_rb /)
+      kbo(:,47, 6) = (/ &
+        & 0.91906e-04_rb,0.98189e-04_rb,0.10520e-03_rb,0.11302e-03_rb,0.12177e-03_rb /)
+      kbo(:,48, 6) = (/ &
+        & 0.75087e-04_rb,0.80743e-04_rb,0.86708e-04_rb,0.93427e-04_rb,0.10110e-03_rb /)
+      kbo(:,49, 6) = (/ &
+        & 0.61186e-04_rb,0.66125e-04_rb,0.71313e-04_rb,0.77107e-04_rb,0.83777e-04_rb /)
+      kbo(:,50, 6) = (/ &
+        & 0.49938e-04_rb,0.54303e-04_rb,0.58807e-04_rb,0.63705e-04_rb,0.69474e-04_rb /)
+      kbo(:,51, 6) = (/ &
+        & 0.40809e-04_rb,0.44513e-04_rb,0.48369e-04_rb,0.52594e-04_rb,0.57525e-04_rb /)
+      kbo(:,52, 6) = (/ &
+        & 0.33309e-04_rb,0.36401e-04_rb,0.39694e-04_rb,0.43295e-04_rb,0.47517e-04_rb /)
+      kbo(:,53, 6) = (/ &
+        & 0.27001e-04_rb,0.29637e-04_rb,0.32443e-04_rb,0.35515e-04_rb,0.39073e-04_rb /)
+      kbo(:,54, 6) = (/ &
+        & 0.21920e-04_rb,0.24176e-04_rb,0.26587e-04_rb,0.29204e-04_rb,0.32173e-04_rb /)
+      kbo(:,55, 6) = (/ &
+        & 0.17840e-04_rb,0.19707e-04_rb,0.21784e-04_rb,0.24000e-04_rb,0.26498e-04_rb /)
+      kbo(:,56, 6) = (/ &
+        & 0.14500e-04_rb,0.16042e-04_rb,0.17779e-04_rb,0.19655e-04_rb,0.21743e-04_rb /)
+      kbo(:,57, 6) = (/ &
+        & 0.11756e-04_rb,0.13018e-04_rb,0.14458e-04_rb,0.16053e-04_rb,0.17779e-04_rb /)
+      kbo(:,58, 6) = (/ &
+        & 0.95229e-05_rb,0.10574e-04_rb,0.11760e-04_rb,0.13107e-04_rb,0.14585e-04_rb /)
+      kbo(:,59, 6) = (/ &
+        & 0.78970e-05_rb,0.87821e-05_rb,0.97860e-05_rb,0.10919e-04_rb,0.12187e-04_rb /)
+      kbo(:,13, 7) = (/ &
+        & 0.81347e-01_rb,0.83688e-01_rb,0.85307e-01_rb,0.86283e-01_rb,0.87010e-01_rb /)
+      kbo(:,14, 7) = (/ &
+        & 0.72041e-01_rb,0.73994e-01_rb,0.75287e-01_rb,0.76180e-01_rb,0.76714e-01_rb /)
+      kbo(:,15, 7) = (/ &
+        & 0.63278e-01_rb,0.64818e-01_rb,0.65954e-01_rb,0.66651e-01_rb,0.67143e-01_rb /)
+      kbo(:,16, 7) = (/ &
+        & 0.55139e-01_rb,0.56478e-01_rb,0.57384e-01_rb,0.58076e-01_rb,0.58539e-01_rb /)
+      kbo(:,17, 7) = (/ &
+        & 0.47894e-01_rb,0.48966e-01_rb,0.49829e-01_rb,0.50447e-01_rb,0.50916e-01_rb /)
+      kbo(:,18, 7) = (/ &
+        & 0.41499e-01_rb,0.42507e-01_rb,0.43240e-01_rb,0.43755e-01_rb,0.44135e-01_rb /)
+      kbo(:,19, 7) = (/ &
+        & 0.35885e-01_rb,0.36754e-01_rb,0.37403e-01_rb,0.37954e-01_rb,0.38313e-01_rb /)
+      kbo(:,20, 7) = (/ &
+        & 0.30699e-01_rb,0.31463e-01_rb,0.32108e-01_rb,0.32586e-01_rb,0.32972e-01_rb /)
+      kbo(:,21, 7) = (/ &
+        & 0.26192e-01_rb,0.26846e-01_rb,0.27409e-01_rb,0.27839e-01_rb,0.28217e-01_rb /)
+      kbo(:,22, 7) = (/ &
+        & 0.22340e-01_rb,0.22929e-01_rb,0.23404e-01_rb,0.23811e-01_rb,0.24187e-01_rb /)
+      kbo(:,23, 7) = (/ &
+        & 0.19095e-01_rb,0.19575e-01_rb,0.20007e-01_rb,0.20410e-01_rb,0.20766e-01_rb /)
+      kbo(:,24, 7) = (/ &
+        & 0.16366e-01_rb,0.16771e-01_rb,0.17186e-01_rb,0.17542e-01_rb,0.17949e-01_rb /)
+      kbo(:,25, 7) = (/ &
+        & 0.14069e-01_rb,0.14481e-01_rb,0.14832e-01_rb,0.15200e-01_rb,0.15580e-01_rb /)
+      kbo(:,26, 7) = (/ &
+        & 0.12162e-01_rb,0.12539e-01_rb,0.12888e-01_rb,0.13247e-01_rb,0.13615e-01_rb /)
+      kbo(:,27, 7) = (/ &
+        & 0.10528e-01_rb,0.10892e-01_rb,0.11265e-01_rb,0.11631e-01_rb,0.12012e-01_rb /)
+      kbo(:,28, 7) = (/ &
+        & 0.91441e-02_rb,0.95086e-02_rb,0.98896e-02_rb,0.10282e-01_rb,0.10687e-01_rb /)
+      kbo(:,29, 7) = (/ &
+        & 0.79938e-02_rb,0.83641e-02_rb,0.87511e-02_rb,0.91674e-02_rb,0.96121e-02_rb /)
+      kbo(:,30, 7) = (/ &
+        & 0.70400e-02_rb,0.74172e-02_rb,0.78125e-02_rb,0.82611e-02_rb,0.87532e-02_rb /)
+      kbo(:,31, 7) = (/ &
+        & 0.62612e-02_rb,0.66491e-02_rb,0.70836e-02_rb,0.75546e-02_rb,0.80730e-02_rb /)
+      kbo(:,32, 7) = (/ &
+        & 0.56090e-02_rb,0.60373e-02_rb,0.65021e-02_rb,0.70140e-02_rb,0.75729e-02_rb /)
+      kbo(:,33, 7) = (/ &
+        & 0.51011e-02_rb,0.55473e-02_rb,0.60429e-02_rb,0.66026e-02_rb,0.72780e-02_rb /)
+      kbo(:,34, 7) = (/ &
+        & 0.46990e-02_rb,0.51673e-02_rb,0.57072e-02_rb,0.63464e-02_rb,0.71159e-02_rb /)
+      kbo(:,35, 7) = (/ &
+        & 0.43314e-02_rb,0.48384e-02_rb,0.54243e-02_rb,0.61639e-02_rb,0.69924e-02_rb /)
+      kbo(:,36, 7) = (/ &
+        & 0.39886e-02_rb,0.45262e-02_rb,0.51941e-02_rb,0.59985e-02_rb,0.68708e-02_rb /)
+      kbo(:,37, 7) = (/ &
+        & 0.36017e-02_rb,0.41399e-02_rb,0.48219e-02_rb,0.56481e-02_rb,0.65560e-02_rb /)
+      kbo(:,38, 7) = (/ &
+        & 0.32617e-02_rb,0.38037e-02_rb,0.45057e-02_rb,0.53485e-02_rb,0.62708e-02_rb /)
+      kbo(:,39, 7) = (/ &
+        & 0.29777e-02_rb,0.35364e-02_rb,0.42387e-02_rb,0.50890e-02_rb,0.60544e-02_rb /)
+      kbo(:,40, 7) = (/ &
+        & 0.26397e-02_rb,0.31715e-02_rb,0.38573e-02_rb,0.46880e-02_rb,0.56335e-02_rb /)
+      kbo(:,41, 7) = (/ &
+        & 0.23227e-02_rb,0.28385e-02_rb,0.34927e-02_rb,0.42880e-02_rb,0.52154e-02_rb /)
+      kbo(:,42, 7) = (/ &
+        & 0.20486e-02_rb,0.25378e-02_rb,0.31647e-02_rb,0.39312e-02_rb,0.48261e-02_rb /)
+      kbo(:,43, 7) = (/ &
+        & 0.17755e-02_rb,0.22226e-02_rb,0.28140e-02_rb,0.35274e-02_rb,0.43895e-02_rb /)
+      kbo(:,44, 7) = (/ &
+        & 0.15269e-02_rb,0.19274e-02_rb,0.24688e-02_rb,0.31407e-02_rb,0.39517e-02_rb /)
+      kbo(:,45, 7) = (/ &
+        & 0.13050e-02_rb,0.16697e-02_rb,0.21647e-02_rb,0.27916e-02_rb,0.35423e-02_rb /)
+      kbo(:,46, 7) = (/ &
+        & 0.11057e-02_rb,0.14327e-02_rb,0.18777e-02_rb,0.24513e-02_rb,0.31448e-02_rb /)
+      kbo(:,47, 7) = (/ &
+        & 0.92448e-03_rb,0.12134e-02_rb,0.16064e-02_rb,0.21237e-02_rb,0.27575e-02_rb /)
+      kbo(:,48, 7) = (/ &
+        & 0.76618e-03_rb,0.10179e-02_rb,0.13627e-02_rb,0.18254e-02_rb,0.24067e-02_rb /)
+      kbo(:,49, 7) = (/ &
+        & 0.62940e-03_rb,0.85036e-03_rb,0.11489e-02_rb,0.15623e-02_rb,0.20896e-02_rb /)
+      kbo(:,50, 7) = (/ &
+        & 0.51855e-03_rb,0.71067e-03_rb,0.97602e-03_rb,0.13414e-02_rb,0.18179e-02_rb /)
+      kbo(:,51, 7) = (/ &
+        & 0.42590e-03_rb,0.59305e-03_rb,0.82548e-03_rb,0.11486e-02_rb,0.15798e-02_rb /)
+      kbo(:,52, 7) = (/ &
+        & 0.34697e-03_rb,0.49059e-03_rb,0.69535e-03_rb,0.97532e-03_rb,0.13630e-02_rb /)
+      kbo(:,53, 7) = (/ &
+        & 0.28092e-03_rb,0.40191e-03_rb,0.57931e-03_rb,0.82673e-03_rb,0.11685e-02_rb /)
+      kbo(:,54, 7) = (/ &
+        & 0.22883e-03_rb,0.33102e-03_rb,0.48584e-03_rb,0.70577e-03_rb,0.10069e-02_rb /)
+      kbo(:,55, 7) = (/ &
+        & 0.18567e-03_rb,0.27212e-03_rb,0.40629e-03_rb,0.59966e-03_rb,0.86643e-03_rb /)
+      kbo(:,56, 7) = (/ &
+        & 0.14981e-03_rb,0.22158e-03_rb,0.33702e-03_rb,0.50672e-03_rb,0.74022e-03_rb /)
+      kbo(:,57, 7) = (/ &
+        & 0.11956e-03_rb,0.17899e-03_rb,0.27717e-03_rb,0.42406e-03_rb,0.63003e-03_rb /)
+      kbo(:,58, 7) = (/ &
+        & 0.95581e-04_rb,0.14413e-03_rb,0.22637e-03_rb,0.35457e-03_rb,0.53700e-03_rb /)
+      kbo(:,59, 7) = (/ &
+        & 0.81967e-04_rb,0.12578e-03_rb,0.20146e-03_rb,0.32061e-03_rb,0.49099e-03_rb /)
+      kbo(:,13, 8) = (/ &
+        & 0.22107e+00_rb,0.22673e+00_rb,0.23188e+00_rb,0.23626e+00_rb,0.23937e+00_rb /)
+      kbo(:,14, 8) = (/ &
+        & 0.20348e+00_rb,0.20983e+00_rb,0.21521e+00_rb,0.21960e+00_rb,0.22328e+00_rb /)
+      kbo(:,15, 8) = (/ &
+        & 0.18724e+00_rb,0.19358e+00_rb,0.19903e+00_rb,0.20382e+00_rb,0.20780e+00_rb /)
+      kbo(:,16, 8) = (/ &
+        & 0.17271e+00_rb,0.17902e+00_rb,0.18466e+00_rb,0.18949e+00_rb,0.19358e+00_rb /)
+      kbo(:,17, 8) = (/ &
+        & 0.15881e+00_rb,0.16550e+00_rb,0.17139e+00_rb,0.17656e+00_rb,0.18127e+00_rb /)
+      kbo(:,18, 8) = (/ &
+        & 0.14632e+00_rb,0.15311e+00_rb,0.15937e+00_rb,0.16532e+00_rb,0.17049e+00_rb /)
+      kbo(:,19, 8) = (/ &
+        & 0.13481e+00_rb,0.14215e+00_rb,0.14899e+00_rb,0.15502e+00_rb,0.16068e+00_rb /)
+      kbo(:,20, 8) = (/ &
+        & 0.12437e+00_rb,0.13191e+00_rb,0.13890e+00_rb,0.14560e+00_rb,0.15188e+00_rb /)
+      kbo(:,21, 8) = (/ &
+        & 0.11481e+00_rb,0.12252e+00_rb,0.12982e+00_rb,0.13710e+00_rb,0.14374e+00_rb /)
+      kbo(:,22, 8) = (/ &
+        & 0.10661e+00_rb,0.11453e+00_rb,0.12244e+00_rb,0.12996e+00_rb,0.13720e+00_rb /)
+      kbo(:,23, 8) = (/ &
+        & 0.99573e-01_rb,0.10782e+00_rb,0.11598e+00_rb,0.12384e+00_rb,0.13154e+00_rb /)
+      kbo(:,24, 8) = (/ &
+        & 0.93585e-01_rb,0.10212e+00_rb,0.11044e+00_rb,0.11870e+00_rb,0.12683e+00_rb /)
+      kbo(:,25, 8) = (/ &
+        & 0.88642e-01_rb,0.97342e-01_rb,0.10600e+00_rb,0.11474e+00_rb,0.12338e+00_rb /)
+      kbo(:,26, 8) = (/ &
+        & 0.84783e-01_rb,0.93706e-01_rb,0.10275e+00_rb,0.11190e+00_rb,0.12089e+00_rb /)
+      kbo(:,27, 8) = (/ &
+        & 0.81924e-01_rb,0.91085e-01_rb,0.10043e+00_rb,0.11011e+00_rb,0.11942e+00_rb /)
+      kbo(:,28, 8) = (/ &
+        & 0.79898e-01_rb,0.89495e-01_rb,0.99246e-01_rb,0.10903e+00_rb,0.11866e+00_rb /)
+      kbo(:,29, 8) = (/ &
+        & 0.78843e-01_rb,0.88816e-01_rb,0.99112e-01_rb,0.10908e+00_rb,0.11873e+00_rb /)
+      kbo(:,30, 8) = (/ &
+        & 0.78672e-01_rb,0.89175e-01_rb,0.99763e-01_rb,0.10991e+00_rb,0.11974e+00_rb /)
+      kbo(:,31, 8) = (/ &
+        & 0.79471e-01_rb,0.90393e-01_rb,0.10090e+00_rb,0.11134e+00_rb,0.12148e+00_rb /)
+      kbo(:,32, 8) = (/ &
+        & 0.81097e-01_rb,0.92118e-01_rb,0.10299e+00_rb,0.11352e+00_rb,0.12362e+00_rb /)
+      kbo(:,33, 8) = (/ &
+        & 0.83219e-01_rb,0.94430e-01_rb,0.10536e+00_rb,0.11619e+00_rb,0.12656e+00_rb /)
+      kbo(:,34, 8) = (/ &
+        & 0.85363e-01_rb,0.96707e-01_rb,0.10798e+00_rb,0.11904e+00_rb,0.12986e+00_rb /)
+      kbo(:,35, 8) = (/ &
+        & 0.86741e-01_rb,0.98297e-01_rb,0.11004e+00_rb,0.12158e+00_rb,0.13234e+00_rb /)
+      kbo(:,36, 8) = (/ &
+        & 0.87017e-01_rb,0.99113e-01_rb,0.11121e+00_rb,0.12302e+00_rb,0.13390e+00_rb /)
+      kbo(:,37, 8) = (/ &
+        & 0.85258e-01_rb,0.97671e-01_rb,0.10985e+00_rb,0.12188e+00_rb,0.13289e+00_rb /)
+      kbo(:,38, 8) = (/ &
+        & 0.83622e-01_rb,0.96133e-01_rb,0.10847e+00_rb,0.12060e+00_rb,0.13189e+00_rb /)
+      kbo(:,39, 8) = (/ &
+        & 0.82148e-01_rb,0.94689e-01_rb,0.10723e+00_rb,0.11944e+00_rb,0.13102e+00_rb /)
+      kbo(:,40, 8) = (/ &
+        & 0.78933e-01_rb,0.91494e-01_rb,0.10410e+00_rb,0.11650e+00_rb,0.12816e+00_rb /)
+      kbo(:,41, 8) = (/ &
+        & 0.75553e-01_rb,0.88087e-01_rb,0.10066e+00_rb,0.11319e+00_rb,0.12513e+00_rb /)
+      kbo(:,42, 8) = (/ &
+        & 0.72215e-01_rb,0.84600e-01_rb,0.97314e-01_rb,0.10990e+00_rb,0.12202e+00_rb /)
+      kbo(:,43, 8) = (/ &
+        & 0.68050e-01_rb,0.80392e-01_rb,0.93038e-01_rb,0.10568e+00_rb,0.11811e+00_rb /)
+      kbo(:,44, 8) = (/ &
+        & 0.63504e-01_rb,0.75885e-01_rb,0.88427e-01_rb,0.10109e+00_rb,0.11352e+00_rb /)
+      kbo(:,45, 8) = (/ &
+        & 0.59117e-01_rb,0.71359e-01_rb,0.83835e-01_rb,0.96461e-01_rb,0.10897e+00_rb /)
+      kbo(:,46, 8) = (/ &
+        & 0.54516e-01_rb,0.66547e-01_rb,0.79117e-01_rb,0.91745e-01_rb,0.10426e+00_rb /)
+      kbo(:,47, 8) = (/ &
+        & 0.49520e-01_rb,0.61408e-01_rb,0.73788e-01_rb,0.86383e-01_rb,0.98886e-01_rb /)
+      kbo(:,48, 8) = (/ &
+        & 0.44727e-01_rb,0.56224e-01_rb,0.68415e-01_rb,0.81094e-01_rb,0.93621e-01_rb /)
+      kbo(:,49, 8) = (/ &
+        & 0.40177e-01_rb,0.51146e-01_rb,0.63191e-01_rb,0.75749e-01_rb,0.88249e-01_rb /)
+      kbo(:,50, 8) = (/ &
+        & 0.36081e-01_rb,0.46596e-01_rb,0.58341e-01_rb,0.70769e-01_rb,0.83353e-01_rb /)
+      kbo(:,51, 8) = (/ &
+        & 0.32278e-01_rb,0.42393e-01_rb,0.53717e-01_rb,0.65898e-01_rb,0.78578e-01_rb /)
+      kbo(:,52, 8) = (/ &
+        & 0.28586e-01_rb,0.38352e-01_rb,0.49175e-01_rb,0.61145e-01_rb,0.73682e-01_rb /)
+      kbo(:,53, 8) = (/ &
+        & 0.25090e-01_rb,0.34439e-01_rb,0.44807e-01_rb,0.56352e-01_rb,0.68823e-01_rb /)
+      kbo(:,54, 8) = (/ &
+        & 0.22080e-01_rb,0.30938e-01_rb,0.40952e-01_rb,0.52101e-01_rb,0.64364e-01_rb /)
+      kbo(:,55, 8) = (/ &
+        & 0.19382e-01_rb,0.27719e-01_rb,0.37405e-01_rb,0.48197e-01_rb,0.60044e-01_rb /)
+      kbo(:,56, 8) = (/ &
+        & 0.16835e-01_rb,0.24689e-01_rb,0.33908e-01_rb,0.44390e-01_rb,0.55911e-01_rb /)
+      kbo(:,57, 8) = (/ &
+        & 0.14459e-01_rb,0.21799e-01_rb,0.30531e-01_rb,0.40642e-01_rb,0.51808e-01_rb /)
+      kbo(:,58, 8) = (/ &
+        & 0.12380e-01_rb,0.19213e-01_rb,0.27475e-01_rb,0.37204e-01_rb,0.48065e-01_rb /)
+      kbo(:,59, 8) = (/ &
+        & 0.11536e-01_rb,0.18115e-01_rb,0.26160e-01_rb,0.35756e-01_rb,0.46501e-01_rb /)
+      kbo(:,13, 9) = (/ &
+        & 0.79231e+00_rb,0.80247e+00_rb,0.81169e+00_rb,0.81859e+00_rb,0.82469e+00_rb /)
+      kbo(:,14, 9) = (/ &
+        & 0.76567e+00_rb,0.77861e+00_rb,0.78976e+00_rb,0.79966e+00_rb,0.80754e+00_rb /)
+      kbo(:,15, 9) = (/ &
+        & 0.73926e+00_rb,0.75515e+00_rb,0.76982e+00_rb,0.78244e+00_rb,0.79228e+00_rb /)
+      kbo(:,16, 9) = (/ &
+        & 0.71308e+00_rb,0.73273e+00_rb,0.74955e+00_rb,0.76355e+00_rb,0.77553e+00_rb /)
+      kbo(:,17, 9) = (/ &
+        & 0.68845e+00_rb,0.70973e+00_rb,0.72813e+00_rb,0.74466e+00_rb,0.75909e+00_rb /)
+      kbo(:,18, 9) = (/ &
+        & 0.66397e+00_rb,0.68720e+00_rb,0.70872e+00_rb,0.72756e+00_rb,0.74467e+00_rb /)
+      kbo(:,19, 9) = (/ &
+        & 0.64097e+00_rb,0.66723e+00_rb,0.69155e+00_rb,0.71362e+00_rb,0.73339e+00_rb /)
+      kbo(:,20, 9) = (/ &
+        & 0.62162e+00_rb,0.65070e+00_rb,0.67764e+00_rb,0.70183e+00_rb,0.72348e+00_rb /)
+      kbo(:,21, 9) = (/ &
+        & 0.60571e+00_rb,0.63800e+00_rb,0.66649e+00_rb,0.69291e+00_rb,0.71712e+00_rb /)
+      kbo(:,22, 9) = (/ &
+        & 0.59651e+00_rb,0.62972e+00_rb,0.66058e+00_rb,0.68832e+00_rb,0.71517e+00_rb /)
+      kbo(:,23, 9) = (/ &
+        & 0.58974e+00_rb,0.62545e+00_rb,0.65753e+00_rb,0.68785e+00_rb,0.71519e+00_rb /)
+      kbo(:,24, 9) = (/ &
+        & 0.58721e+00_rb,0.62395e+00_rb,0.65801e+00_rb,0.68952e+00_rb,0.71705e+00_rb /)
+      kbo(:,25, 9) = (/ &
+        & 0.58931e+00_rb,0.62554e+00_rb,0.66080e+00_rb,0.69275e+00_rb,0.72212e+00_rb /)
+      kbo(:,26, 9) = (/ &
+        & 0.59392e+00_rb,0.63108e+00_rb,0.66576e+00_rb,0.69831e+00_rb,0.72831e+00_rb /)
+      kbo(:,27, 9) = (/ &
+        & 0.60088e+00_rb,0.63911e+00_rb,0.67310e+00_rb,0.70594e+00_rb,0.73492e+00_rb /)
+      kbo(:,28, 9) = (/ &
+        & 0.61058e+00_rb,0.64827e+00_rb,0.68351e+00_rb,0.71436e+00_rb,0.74248e+00_rb /)
+      kbo(:,29, 9) = (/ &
+        & 0.62259e+00_rb,0.66086e+00_rb,0.69462e+00_rb,0.72450e+00_rb,0.75205e+00_rb /)
+      kbo(:,30, 9) = (/ &
+        & 0.63547e+00_rb,0.67373e+00_rb,0.70715e+00_rb,0.73642e+00_rb,0.76277e+00_rb /)
+      kbo(:,31, 9) = (/ &
+        & 0.65060e+00_rb,0.68811e+00_rb,0.72216e+00_rb,0.75104e+00_rb,0.77730e+00_rb /)
+      kbo(:,32, 9) = (/ &
+        & 0.66635e+00_rb,0.70367e+00_rb,0.73703e+00_rb,0.76712e+00_rb,0.79450e+00_rb /)
+      kbo(:,33, 9) = (/ &
+        & 0.68330e+00_rb,0.72114e+00_rb,0.75529e+00_rb,0.78560e+00_rb,0.81251e+00_rb /)
+      kbo(:,34, 9) = (/ &
+        & 0.69895e+00_rb,0.73787e+00_rb,0.77209e+00_rb,0.80355e+00_rb,0.82948e+00_rb /)
+      kbo(:,35, 9) = (/ &
+        & 0.71249e+00_rb,0.75244e+00_rb,0.78786e+00_rb,0.82021e+00_rb,0.84807e+00_rb /)
+      kbo(:,36, 9) = (/ &
+        & 0.72352e+00_rb,0.76491e+00_rb,0.80192e+00_rb,0.83419e+00_rb,0.86330e+00_rb /)
+      kbo(:,37, 9) = (/ &
+        & 0.72315e+00_rb,0.76487e+00_rb,0.80310e+00_rb,0.83637e+00_rb,0.86732e+00_rb /)
+      kbo(:,38, 9) = (/ &
+        & 0.72144e+00_rb,0.76571e+00_rb,0.80444e+00_rb,0.83852e+00_rb,0.86991e+00_rb /)
+      kbo(:,39, 9) = (/ &
+        & 0.72061e+00_rb,0.76655e+00_rb,0.80661e+00_rb,0.84238e+00_rb,0.87357e+00_rb /)
+      kbo(:,40, 9) = (/ &
+        & 0.71071e+00_rb,0.75799e+00_rb,0.79882e+00_rb,0.83566e+00_rb,0.86813e+00_rb /)
+      kbo(:,41, 9) = (/ &
+        & 0.69960e+00_rb,0.74652e+00_rb,0.79034e+00_rb,0.82858e+00_rb,0.86201e+00_rb /)
+      kbo(:,42, 9) = (/ &
+        & 0.68767e+00_rb,0.73584e+00_rb,0.78080e+00_rb,0.82018e+00_rb,0.85505e+00_rb /)
+      kbo(:,43, 9) = (/ &
+        & 0.67181e+00_rb,0.72136e+00_rb,0.76709e+00_rb,0.80803e+00_rb,0.84449e+00_rb /)
+      kbo(:,44, 9) = (/ &
+        & 0.65485e+00_rb,0.70505e+00_rb,0.75190e+00_rb,0.79482e+00_rb,0.83260e+00_rb /)
+      kbo(:,45, 9) = (/ &
+        & 0.63639e+00_rb,0.68756e+00_rb,0.73541e+00_rb,0.78029e+00_rb,0.82060e+00_rb /)
+      kbo(:,46, 9) = (/ &
+        & 0.61610e+00_rb,0.67008e+00_rb,0.71893e+00_rb,0.76424e+00_rb,0.80647e+00_rb /)
+      kbo(:,47, 9) = (/ &
+        & 0.59373e+00_rb,0.64972e+00_rb,0.69969e+00_rb,0.74707e+00_rb,0.79068e+00_rb /)
+      kbo(:,48, 9) = (/ &
+        & 0.56865e+00_rb,0.62791e+00_rb,0.68069e+00_rb,0.72878e+00_rb,0.77390e+00_rb /)
+      kbo(:,49, 9) = (/ &
+        & 0.54350e+00_rb,0.60516e+00_rb,0.66027e+00_rb,0.71007e+00_rb,0.75592e+00_rb /)
+      kbo(:,50, 9) = (/ &
+        & 0.51991e+00_rb,0.58375e+00_rb,0.64136e+00_rb,0.69342e+00_rb,0.74093e+00_rb /)
+      kbo(:,51, 9) = (/ &
+        & 0.49673e+00_rb,0.56229e+00_rb,0.62200e+00_rb,0.67685e+00_rb,0.72556e+00_rb /)
+      kbo(:,52, 9) = (/ &
+        & 0.47256e+00_rb,0.53950e+00_rb,0.60133e+00_rb,0.65838e+00_rb,0.70926e+00_rb /)
+      kbo(:,53, 9) = (/ &
+        & 0.44771e+00_rb,0.51552e+00_rb,0.57980e+00_rb,0.63854e+00_rb,0.69202e+00_rb /)
+      kbo(:,54, 9) = (/ &
+        & 0.42506e+00_rb,0.49358e+00_rb,0.56009e+00_rb,0.62090e+00_rb,0.67547e+00_rb /)
+      kbo(:,55, 9) = (/ &
+        & 0.40218e+00_rb,0.47240e+00_rb,0.53999e+00_rb,0.60216e+00_rb,0.65925e+00_rb /)
+      kbo(:,56, 9) = (/ &
+        & 0.37888e+00_rb,0.45101e+00_rb,0.51913e+00_rb,0.58357e+00_rb,0.64216e+00_rb /)
+      kbo(:,57, 9) = (/ &
+        & 0.35513e+00_rb,0.42824e+00_rb,0.49765e+00_rb,0.56376e+00_rb,0.62409e+00_rb /)
+      kbo(:,58, 9) = (/ &
+        & 0.33174e+00_rb,0.40632e+00_rb,0.47713e+00_rb,0.54453e+00_rb,0.60605e+00_rb /)
+      kbo(:,59, 9) = (/ &
+        & 0.32315e+00_rb,0.39758e+00_rb,0.46935e+00_rb,0.53732e+00_rb,0.59942e+00_rb /)
+      kbo(:,13,10) = (/ &
+        & 0.20814e+01_rb,0.20759e+01_rb,0.20660e+01_rb,0.20703e+01_rb,0.20598e+01_rb /)
+      kbo(:,14,10) = (/ &
+        & 0.20861e+01_rb,0.20862e+01_rb,0.20902e+01_rb,0.20921e+01_rb,0.20850e+01_rb /)
+      kbo(:,15,10) = (/ &
+        & 0.20793e+01_rb,0.20969e+01_rb,0.21057e+01_rb,0.21014e+01_rb,0.21089e+01_rb /)
+      kbo(:,16,10) = (/ &
+        & 0.20801e+01_rb,0.20948e+01_rb,0.21151e+01_rb,0.21351e+01_rb,0.21560e+01_rb /)
+      kbo(:,17,10) = (/ &
+        & 0.20802e+01_rb,0.21249e+01_rb,0.21608e+01_rb,0.21842e+01_rb,0.21924e+01_rb /)
+      kbo(:,18,10) = (/ &
+        & 0.20972e+01_rb,0.21483e+01_rb,0.21814e+01_rb,0.21999e+01_rb,0.22088e+01_rb /)
+      kbo(:,19,10) = (/ &
+        & 0.21086e+01_rb,0.21513e+01_rb,0.21845e+01_rb,0.22099e+01_rb,0.22261e+01_rb /)
+      kbo(:,20,10) = (/ &
+        & 0.21001e+01_rb,0.21488e+01_rb,0.21917e+01_rb,0.22212e+01_rb,0.22394e+01_rb /)
+      kbo(:,21,10) = (/ &
+        & 0.20945e+01_rb,0.21494e+01_rb,0.22004e+01_rb,0.22330e+01_rb,0.22537e+01_rb /)
+      kbo(:,22,10) = (/ &
+        & 0.20951e+01_rb,0.21635e+01_rb,0.22151e+01_rb,0.22483e+01_rb,0.22658e+01_rb /)
+      kbo(:,23,10) = (/ &
+        & 0.21106e+01_rb,0.21802e+01_rb,0.22288e+01_rb,0.22593e+01_rb,0.22769e+01_rb /)
+      kbo(:,24,10) = (/ &
+        & 0.21251e+01_rb,0.21978e+01_rb,0.22479e+01_rb,0.22750e+01_rb,0.23069e+01_rb /)
+      kbo(:,25,10) = (/ &
+        & 0.21350e+01_rb,0.22127e+01_rb,0.22620e+01_rb,0.22919e+01_rb,0.23205e+01_rb /)
+      kbo(:,26,10) = (/ &
+        & 0.21397e+01_rb,0.22248e+01_rb,0.22778e+01_rb,0.23148e+01_rb,0.23338e+01_rb /)
+      kbo(:,27,10) = (/ &
+        & 0.21476e+01_rb,0.22244e+01_rb,0.22911e+01_rb,0.23271e+01_rb,0.23529e+01_rb /)
+      kbo(:,28,10) = (/ &
+        & 0.21502e+01_rb,0.22263e+01_rb,0.22854e+01_rb,0.23382e+01_rb,0.23803e+01_rb /)
+      kbo(:,29,10) = (/ &
+        & 0.21444e+01_rb,0.22159e+01_rb,0.22839e+01_rb,0.23447e+01_rb,0.24026e+01_rb /)
+      kbo(:,30,10) = (/ &
+        & 0.21459e+01_rb,0.22135e+01_rb,0.22803e+01_rb,0.23564e+01_rb,0.24114e+01_rb /)
+      kbo(:,31,10) = (/ &
+        & 0.21548e+01_rb,0.22131e+01_rb,0.22785e+01_rb,0.23559e+01_rb,0.23993e+01_rb /)
+      kbo(:,32,10) = (/ &
+        & 0.21820e+01_rb,0.22366e+01_rb,0.23010e+01_rb,0.23445e+01_rb,0.23808e+01_rb /)
+      kbo(:,33,10) = (/ &
+        & 0.22356e+01_rb,0.22739e+01_rb,0.22923e+01_rb,0.23386e+01_rb,0.23842e+01_rb /)
+      kbo(:,34,10) = (/ &
+        & 0.22861e+01_rb,0.23162e+01_rb,0.23352e+01_rb,0.23408e+01_rb,0.23839e+01_rb /)
+      kbo(:,35,10) = (/ &
+        & 0.23385e+01_rb,0.23680e+01_rb,0.23728e+01_rb,0.23741e+01_rb,0.23938e+01_rb /)
+      kbo(:,36,10) = (/ &
+        & 0.23851e+01_rb,0.24072e+01_rb,0.24258e+01_rb,0.24337e+01_rb,0.24446e+01_rb /)
+      kbo(:,37,10) = (/ &
+        & 0.23954e+01_rb,0.24271e+01_rb,0.24525e+01_rb,0.24638e+01_rb,0.24744e+01_rb /)
+      kbo(:,38,10) = (/ &
+        & 0.24138e+01_rb,0.24360e+01_rb,0.24658e+01_rb,0.24931e+01_rb,0.25112e+01_rb /)
+      kbo(:,39,10) = (/ &
+        & 0.24207e+01_rb,0.24415e+01_rb,0.24747e+01_rb,0.25054e+01_rb,0.25446e+01_rb /)
+      kbo(:,40,10) = (/ &
+        & 0.24183e+01_rb,0.24401e+01_rb,0.24836e+01_rb,0.25135e+01_rb,0.25532e+01_rb /)
+      kbo(:,41,10) = (/ &
+        & 0.24046e+01_rb,0.24486e+01_rb,0.24788e+01_rb,0.25037e+01_rb,0.25503e+01_rb /)
+      kbo(:,42,10) = (/ &
+        & 0.23965e+01_rb,0.24448e+01_rb,0.24659e+01_rb,0.25035e+01_rb,0.25440e+01_rb /)
+      kbo(:,43,10) = (/ &
+        & 0.23757e+01_rb,0.24456e+01_rb,0.24672e+01_rb,0.25043e+01_rb,0.25340e+01_rb /)
+      kbo(:,44,10) = (/ &
+        & 0.23417e+01_rb,0.24271e+01_rb,0.24708e+01_rb,0.24891e+01_rb,0.25157e+01_rb /)
+      kbo(:,45,10) = (/ &
+        & 0.23140e+01_rb,0.24224e+01_rb,0.24648e+01_rb,0.24895e+01_rb,0.25109e+01_rb /)
+      kbo(:,46,10) = (/ &
+        & 0.22839e+01_rb,0.23815e+01_rb,0.24548e+01_rb,0.24874e+01_rb,0.24983e+01_rb /)
+      kbo(:,47,10) = (/ &
+        & 0.22509e+01_rb,0.23585e+01_rb,0.24548e+01_rb,0.24976e+01_rb,0.25158e+01_rb /)
+      kbo(:,48,10) = (/ &
+        & 0.22243e+01_rb,0.23182e+01_rb,0.24167e+01_rb,0.24851e+01_rb,0.25144e+01_rb /)
+      kbo(:,49,10) = (/ &
+        & 0.21934e+01_rb,0.22838e+01_rb,0.23882e+01_rb,0.24694e+01_rb,0.25145e+01_rb /)
+      kbo(:,50,10) = (/ &
+        & 0.21637e+01_rb,0.22591e+01_rb,0.23593e+01_rb,0.24450e+01_rb,0.25097e+01_rb /)
+      kbo(:,51,10) = (/ &
+        & 0.21256e+01_rb,0.22383e+01_rb,0.23340e+01_rb,0.24239e+01_rb,0.25025e+01_rb /)
+      kbo(:,52,10) = (/ &
+        & 0.20804e+01_rb,0.22090e+01_rb,0.23144e+01_rb,0.24005e+01_rb,0.24803e+01_rb /)
+      kbo(:,53,10) = (/ &
+        & 0.20229e+01_rb,0.21712e+01_rb,0.22790e+01_rb,0.23709e+01_rb,0.24497e+01_rb /)
+      kbo(:,54,10) = (/ &
+        & 0.19647e+01_rb,0.21430e+01_rb,0.22514e+01_rb,0.23430e+01_rb,0.24343e+01_rb /)
+      kbo(:,55,10) = (/ &
+        & 0.19094e+01_rb,0.20990e+01_rb,0.22287e+01_rb,0.23283e+01_rb,0.24126e+01_rb /)
+      kbo(:,56,10) = (/ &
+        & 0.18499e+01_rb,0.20432e+01_rb,0.21961e+01_rb,0.22965e+01_rb,0.23921e+01_rb /)
+      kbo(:,57,10) = (/ &
+        & 0.17845e+01_rb,0.19868e+01_rb,0.21557e+01_rb,0.22661e+01_rb,0.23666e+01_rb /)
+      kbo(:,58,10) = (/ &
+        & 0.17304e+01_rb,0.19324e+01_rb,0.21130e+01_rb,0.22379e+01_rb,0.23344e+01_rb /)
+      kbo(:,59,10) = (/ &
+        & 0.17036e+01_rb,0.19129e+01_rb,0.20925e+01_rb,0.22299e+01_rb,0.23291e+01_rb /)
+      kbo(:,13,11) = (/ &
+        & 0.28487e+01_rb,0.28532e+01_rb,0.28392e+01_rb,0.28113e+01_rb,0.28077e+01_rb /)
+      kbo(:,14,11) = (/ &
+        & 0.29217e+01_rb,0.29135e+01_rb,0.28970e+01_rb,0.28895e+01_rb,0.29104e+01_rb /)
+      kbo(:,15,11) = (/ &
+        & 0.29720e+01_rb,0.29567e+01_rb,0.29515e+01_rb,0.29771e+01_rb,0.29749e+01_rb /)
+      kbo(:,16,11) = (/ &
+        & 0.29934e+01_rb,0.30029e+01_rb,0.30226e+01_rb,0.30339e+01_rb,0.30204e+01_rb /)
+      kbo(:,17,11) = (/ &
+        & 0.30408e+01_rb,0.30652e+01_rb,0.30797e+01_rb,0.30959e+01_rb,0.31120e+01_rb /)
+      kbo(:,18,11) = (/ &
+        & 0.31059e+01_rb,0.31457e+01_rb,0.31893e+01_rb,0.32154e+01_rb,0.32284e+01_rb /)
+      kbo(:,19,11) = (/ &
+        & 0.31895e+01_rb,0.32505e+01_rb,0.32863e+01_rb,0.32994e+01_rb,0.32949e+01_rb /)
+      kbo(:,20,11) = (/ &
+        & 0.32605e+01_rb,0.33203e+01_rb,0.33389e+01_rb,0.33469e+01_rb,0.33350e+01_rb /)
+      kbo(:,21,11) = (/ &
+        & 0.33097e+01_rb,0.33567e+01_rb,0.33762e+01_rb,0.33842e+01_rb,0.33798e+01_rb /)
+      kbo(:,22,11) = (/ &
+        & 0.33482e+01_rb,0.33901e+01_rb,0.34068e+01_rb,0.34227e+01_rb,0.34010e+01_rb /)
+      kbo(:,23,11) = (/ &
+        & 0.33722e+01_rb,0.34154e+01_rb,0.34438e+01_rb,0.34434e+01_rb,0.34235e+01_rb /)
+      kbo(:,24,11) = (/ &
+        & 0.33951e+01_rb,0.34377e+01_rb,0.34659e+01_rb,0.34658e+01_rb,0.34557e+01_rb /)
+      kbo(:,25,11) = (/ &
+        & 0.34209e+01_rb,0.34720e+01_rb,0.34904e+01_rb,0.34950e+01_rb,0.34725e+01_rb /)
+      kbo(:,26,11) = (/ &
+        & 0.34497e+01_rb,0.34967e+01_rb,0.35233e+01_rb,0.35072e+01_rb,0.34967e+01_rb /)
+      kbo(:,27,11) = (/ &
+        & 0.34791e+01_rb,0.35327e+01_rb,0.35370e+01_rb,0.35122e+01_rb,0.35139e+01_rb /)
+      kbo(:,28,11) = (/ &
+        & 0.35134e+01_rb,0.35471e+01_rb,0.35465e+01_rb,0.35405e+01_rb,0.35525e+01_rb /)
+      kbo(:,29,11) = (/ &
+        & 0.35424e+01_rb,0.35704e+01_rb,0.35632e+01_rb,0.35824e+01_rb,0.35567e+01_rb /)
+      kbo(:,30,11) = (/ &
+        & 0.35629e+01_rb,0.35947e+01_rb,0.35992e+01_rb,0.36011e+01_rb,0.36027e+01_rb /)
+      kbo(:,31,11) = (/ &
+        & 0.35753e+01_rb,0.36045e+01_rb,0.36365e+01_rb,0.36213e+01_rb,0.36310e+01_rb /)
+      kbo(:,32,11) = (/ &
+        & 0.35596e+01_rb,0.36100e+01_rb,0.36333e+01_rb,0.36490e+01_rb,0.36651e+01_rb /)
+      kbo(:,33,11) = (/ &
+        & 0.35241e+01_rb,0.35883e+01_rb,0.36383e+01_rb,0.36740e+01_rb,0.36685e+01_rb /)
+      kbo(:,34,11) = (/ &
+        & 0.35027e+01_rb,0.35491e+01_rb,0.36249e+01_rb,0.36739e+01_rb,0.36810e+01_rb /)
+      kbo(:,35,11) = (/ &
+        & 0.34699e+01_rb,0.35289e+01_rb,0.35926e+01_rb,0.36193e+01_rb,0.36411e+01_rb /)
+      kbo(:,36,11) = (/ &
+        & 0.35153e+01_rb,0.35225e+01_rb,0.35498e+01_rb,0.35989e+01_rb,0.36429e+01_rb /)
+      kbo(:,37,11) = (/ &
+        & 0.35644e+01_rb,0.35488e+01_rb,0.35358e+01_rb,0.35755e+01_rb,0.36247e+01_rb /)
+      kbo(:,38,11) = (/ &
+        & 0.35952e+01_rb,0.35902e+01_rb,0.35685e+01_rb,0.35598e+01_rb,0.35995e+01_rb /)
+      kbo(:,39,11) = (/ &
+        & 0.36371e+01_rb,0.36388e+01_rb,0.36159e+01_rb,0.35751e+01_rb,0.35930e+01_rb /)
+      kbo(:,40,11) = (/ &
+        & 0.36530e+01_rb,0.36611e+01_rb,0.36495e+01_rb,0.35923e+01_rb,0.35985e+01_rb /)
+      kbo(:,41,11) = (/ &
+        & 0.36431e+01_rb,0.36852e+01_rb,0.36606e+01_rb,0.36324e+01_rb,0.35949e+01_rb /)
+      kbo(:,42,11) = (/ &
+        & 0.36510e+01_rb,0.36940e+01_rb,0.36905e+01_rb,0.36729e+01_rb,0.36122e+01_rb /)
+      kbo(:,43,11) = (/ &
+        & 0.36633e+01_rb,0.36955e+01_rb,0.37103e+01_rb,0.36924e+01_rb,0.36526e+01_rb /)
+      kbo(:,44,11) = (/ &
+        & 0.36584e+01_rb,0.36852e+01_rb,0.37131e+01_rb,0.37219e+01_rb,0.36946e+01_rb /)
+      kbo(:,45,11) = (/ &
+        & 0.36636e+01_rb,0.36530e+01_rb,0.37160e+01_rb,0.37197e+01_rb,0.37150e+01_rb /)
+      kbo(:,46,11) = (/ &
+        & 0.36713e+01_rb,0.36779e+01_rb,0.37130e+01_rb,0.37408e+01_rb,0.37431e+01_rb /)
+      kbo(:,47,11) = (/ &
+        & 0.36885e+01_rb,0.36889e+01_rb,0.37012e+01_rb,0.37377e+01_rb,0.37538e+01_rb /)
+      kbo(:,48,11) = (/ &
+        & 0.36735e+01_rb,0.37253e+01_rb,0.37092e+01_rb,0.37311e+01_rb,0.37444e+01_rb /)
+      kbo(:,49,11) = (/ &
+        & 0.36543e+01_rb,0.37300e+01_rb,0.37306e+01_rb,0.37311e+01_rb,0.37688e+01_rb /)
+      kbo(:,50,11) = (/ &
+        & 0.36397e+01_rb,0.37435e+01_rb,0.37659e+01_rb,0.37491e+01_rb,0.37600e+01_rb /)
+      kbo(:,51,11) = (/ &
+        & 0.36124e+01_rb,0.37293e+01_rb,0.37963e+01_rb,0.37839e+01_rb,0.37789e+01_rb /)
+      kbo(:,52,11) = (/ &
+        & 0.35636e+01_rb,0.37078e+01_rb,0.37818e+01_rb,0.38114e+01_rb,0.37775e+01_rb /)
+      kbo(:,53,11) = (/ &
+        & 0.34978e+01_rb,0.36691e+01_rb,0.37922e+01_rb,0.38152e+01_rb,0.38092e+01_rb /)
+      kbo(:,54,11) = (/ &
+        & 0.34749e+01_rb,0.36230e+01_rb,0.37686e+01_rb,0.38328e+01_rb,0.38292e+01_rb /)
+      kbo(:,55,11) = (/ &
+        & 0.34238e+01_rb,0.35883e+01_rb,0.37261e+01_rb,0.38299e+01_rb,0.38488e+01_rb /)
+      kbo(:,56,11) = (/ &
+        & 0.33568e+01_rb,0.35597e+01_rb,0.37073e+01_rb,0.38247e+01_rb,0.38591e+01_rb /)
+      kbo(:,57,11) = (/ &
+        & 0.32794e+01_rb,0.35193e+01_rb,0.36712e+01_rb,0.37875e+01_rb,0.38581e+01_rb /)
+      kbo(:,58,11) = (/ &
+        & 0.31971e+01_rb,0.34544e+01_rb,0.36268e+01_rb,0.37609e+01_rb,0.38393e+01_rb /)
+      kbo(:,59,11) = (/ &
+        & 0.31680e+01_rb,0.34441e+01_rb,0.36338e+01_rb,0.37596e+01_rb,0.38510e+01_rb /)
+      kbo(:,13,12) = (/ &
+        & 0.40944e+01_rb,0.40706e+01_rb,0.40738e+01_rb,0.40615e+01_rb,0.40255e+01_rb /)
+      kbo(:,14,12) = (/ &
+        & 0.42568e+01_rb,0.42640e+01_rb,0.42578e+01_rb,0.42281e+01_rb,0.41677e+01_rb /)
+      kbo(:,15,12) = (/ &
+        & 0.44471e+01_rb,0.44460e+01_rb,0.44235e+01_rb,0.43647e+01_rb,0.43107e+01_rb /)
+      kbo(:,16,12) = (/ &
+        & 0.45971e+01_rb,0.45776e+01_rb,0.45277e+01_rb,0.44905e+01_rb,0.45101e+01_rb /)
+      kbo(:,17,12) = (/ &
+        & 0.46780e+01_rb,0.46358e+01_rb,0.46311e+01_rb,0.46380e+01_rb,0.46103e+01_rb /)
+      kbo(:,18,12) = (/ &
+        & 0.47294e+01_rb,0.47444e+01_rb,0.47418e+01_rb,0.47299e+01_rb,0.47059e+01_rb /)
+      kbo(:,19,12) = (/ &
+        & 0.48604e+01_rb,0.48842e+01_rb,0.48819e+01_rb,0.49000e+01_rb,0.48969e+01_rb /)
+      kbo(:,20,12) = (/ &
+        & 0.49979e+01_rb,0.50271e+01_rb,0.50614e+01_rb,0.50783e+01_rb,0.50637e+01_rb /)
+      kbo(:,21,12) = (/ &
+        & 0.51216e+01_rb,0.51841e+01_rb,0.52155e+01_rb,0.52098e+01_rb,0.51706e+01_rb /)
+      kbo(:,22,12) = (/ &
+        & 0.52796e+01_rb,0.53177e+01_rb,0.53275e+01_rb,0.53003e+01_rb,0.52540e+01_rb /)
+      kbo(:,23,12) = (/ &
+        & 0.54021e+01_rb,0.54214e+01_rb,0.54107e+01_rb,0.53770e+01_rb,0.53308e+01_rb /)
+      kbo(:,24,12) = (/ &
+        & 0.54951e+01_rb,0.54954e+01_rb,0.54655e+01_rb,0.54275e+01_rb,0.53548e+01_rb /)
+      kbo(:,25,12) = (/ &
+        & 0.55606e+01_rb,0.55401e+01_rb,0.55126e+01_rb,0.54611e+01_rb,0.53900e+01_rb /)
+      kbo(:,26,12) = (/ &
+        & 0.56084e+01_rb,0.55775e+01_rb,0.55344e+01_rb,0.54935e+01_rb,0.53765e+01_rb /)
+      kbo(:,27,12) = (/ &
+        & 0.56424e+01_rb,0.55975e+01_rb,0.55674e+01_rb,0.55057e+01_rb,0.54137e+01_rb /)
+      kbo(:,28,12) = (/ &
+        & 0.56582e+01_rb,0.56350e+01_rb,0.55811e+01_rb,0.55009e+01_rb,0.54160e+01_rb /)
+      kbo(:,29,12) = (/ &
+        & 0.56833e+01_rb,0.56401e+01_rb,0.55975e+01_rb,0.55109e+01_rb,0.54249e+01_rb /)
+      kbo(:,30,12) = (/ &
+        & 0.57003e+01_rb,0.56620e+01_rb,0.55904e+01_rb,0.55121e+01_rb,0.54542e+01_rb /)
+      kbo(:,31,12) = (/ &
+        & 0.57132e+01_rb,0.56848e+01_rb,0.56091e+01_rb,0.55447e+01_rb,0.55236e+01_rb /)
+      kbo(:,32,12) = (/ &
+        & 0.57800e+01_rb,0.57027e+01_rb,0.56220e+01_rb,0.56024e+01_rb,0.55523e+01_rb /)
+      kbo(:,33,12) = (/ &
+        & 0.57668e+01_rb,0.57069e+01_rb,0.56826e+01_rb,0.56406e+01_rb,0.56224e+01_rb /)
+      kbo(:,34,12) = (/ &
+        & 0.57877e+01_rb,0.57628e+01_rb,0.57465e+01_rb,0.57131e+01_rb,0.56752e+01_rb /)
+      kbo(:,35,12) = (/ &
+        & 0.58053e+01_rb,0.58032e+01_rb,0.57814e+01_rb,0.58008e+01_rb,0.57412e+01_rb /)
+      kbo(:,36,12) = (/ &
+        & 0.57386e+01_rb,0.58034e+01_rb,0.57934e+01_rb,0.57973e+01_rb,0.57760e+01_rb /)
+      kbo(:,37,12) = (/ &
+        & 0.56650e+01_rb,0.57400e+01_rb,0.57795e+01_rb,0.58096e+01_rb,0.57723e+01_rb /)
+      kbo(:,38,12) = (/ &
+        & 0.56068e+01_rb,0.56512e+01_rb,0.57137e+01_rb,0.58154e+01_rb,0.57795e+01_rb /)
+      kbo(:,39,12) = (/ &
+        & 0.55712e+01_rb,0.56156e+01_rb,0.56456e+01_rb,0.57952e+01_rb,0.57768e+01_rb /)
+      kbo(:,40,12) = (/ &
+        & 0.55331e+01_rb,0.55774e+01_rb,0.56049e+01_rb,0.57462e+01_rb,0.57382e+01_rb /)
+      kbo(:,41,12) = (/ &
+        & 0.55579e+01_rb,0.55330e+01_rb,0.55754e+01_rb,0.56805e+01_rb,0.57245e+01_rb /)
+      kbo(:,42,12) = (/ &
+        & 0.55684e+01_rb,0.55372e+01_rb,0.55455e+01_rb,0.56019e+01_rb,0.57291e+01_rb /)
+      kbo(:,43,12) = (/ &
+        & 0.56282e+01_rb,0.55547e+01_rb,0.55863e+01_rb,0.55852e+01_rb,0.56892e+01_rb /)
+      kbo(:,44,12) = (/ &
+        & 0.56429e+01_rb,0.55998e+01_rb,0.55663e+01_rb,0.55662e+01_rb,0.56522e+01_rb /)
+      kbo(:,45,12) = (/ &
+        & 0.56488e+01_rb,0.56642e+01_rb,0.55915e+01_rb,0.56136e+01_rb,0.56176e+01_rb /)
+      kbo(:,46,12) = (/ &
+        & 0.57246e+01_rb,0.57165e+01_rb,0.56557e+01_rb,0.56271e+01_rb,0.56227e+01_rb /)
+      kbo(:,47,12) = (/ &
+        & 0.57406e+01_rb,0.57550e+01_rb,0.57336e+01_rb,0.56616e+01_rb,0.56928e+01_rb /)
+      kbo(:,48,12) = (/ &
+        & 0.57616e+01_rb,0.57715e+01_rb,0.57765e+01_rb,0.57429e+01_rb,0.57151e+01_rb /)
+      kbo(:,49,12) = (/ &
+        & 0.58013e+01_rb,0.57807e+01_rb,0.58014e+01_rb,0.57796e+01_rb,0.57022e+01_rb /)
+      kbo(:,50,12) = (/ &
+        & 0.58611e+01_rb,0.58307e+01_rb,0.58954e+01_rb,0.58904e+01_rb,0.58254e+01_rb /)
+      kbo(:,51,12) = (/ &
+        & 0.59182e+01_rb,0.59013e+01_rb,0.59353e+01_rb,0.59746e+01_rb,0.59215e+01_rb /)
+      kbo(:,52,12) = (/ &
+        & 0.59636e+01_rb,0.59631e+01_rb,0.59638e+01_rb,0.60147e+01_rb,0.60288e+01_rb /)
+      kbo(:,53,12) = (/ &
+        & 0.60261e+01_rb,0.59972e+01_rb,0.59771e+01_rb,0.60154e+01_rb,0.60632e+01_rb /)
+      kbo(:,54,12) = (/ &
+        & 0.60204e+01_rb,0.60805e+01_rb,0.60002e+01_rb,0.60580e+01_rb,0.60854e+01_rb /)
+      kbo(:,55,12) = (/ &
+        & 0.60584e+01_rb,0.61138e+01_rb,0.60917e+01_rb,0.60710e+01_rb,0.61237e+01_rb /)
+      kbo(:,56,12) = (/ &
+        & 0.60402e+01_rb,0.61059e+01_rb,0.61154e+01_rb,0.61008e+01_rb,0.61463e+01_rb /)
+      kbo(:,57,12) = (/ &
+        & 0.60080e+01_rb,0.61076e+01_rb,0.61306e+01_rb,0.61548e+01_rb,0.61892e+01_rb /)
+      kbo(:,58,12) = (/ &
+        & 0.59781e+01_rb,0.61168e+01_rb,0.61621e+01_rb,0.61680e+01_rb,0.62246e+01_rb /)
+      kbo(:,59,12) = (/ &
+        & 0.59824e+01_rb,0.60878e+01_rb,0.61825e+01_rb,0.62179e+01_rb,0.62658e+01_rb /)
+      kbo(:,13,13) = (/ &
+        & 0.62252e+01_rb,0.61003e+01_rb,0.59711e+01_rb,0.58641e+01_rb,0.57820e+01_rb /)
+      kbo(:,14,13) = (/ &
+        & 0.66429e+01_rb,0.64784e+01_rb,0.63526e+01_rb,0.62330e+01_rb,0.61644e+01_rb /)
+      kbo(:,15,13) = (/ &
+        & 0.69743e+01_rb,0.68232e+01_rb,0.67077e+01_rb,0.66230e+01_rb,0.65438e+01_rb /)
+      kbo(:,16,13) = (/ &
+        & 0.72971e+01_rb,0.72050e+01_rb,0.71016e+01_rb,0.69747e+01_rb,0.67726e+01_rb /)
+      kbo(:,17,13) = (/ &
+        & 0.77109e+01_rb,0.75892e+01_rb,0.74253e+01_rb,0.72127e+01_rb,0.70341e+01_rb /)
+      kbo(:,18,13) = (/ &
+        & 0.80450e+01_rb,0.78275e+01_rb,0.75988e+01_rb,0.74227e+01_rb,0.73977e+01_rb /)
+      kbo(:,19,13) = (/ &
+        & 0.81727e+01_rb,0.79248e+01_rb,0.78355e+01_rb,0.77125e+01_rb,0.75391e+01_rb /)
+      kbo(:,20,13) = (/ &
+        & 0.82796e+01_rb,0.81265e+01_rb,0.80271e+01_rb,0.78599e+01_rb,0.77204e+01_rb /)
+      kbo(:,21,13) = (/ &
+        & 0.84685e+01_rb,0.83415e+01_rb,0.82106e+01_rb,0.80317e+01_rb,0.78896e+01_rb /)
+      kbo(:,22,13) = (/ &
+        & 0.86169e+01_rb,0.85255e+01_rb,0.83779e+01_rb,0.82528e+01_rb,0.81573e+01_rb /)
+      kbo(:,23,13) = (/ &
+        & 0.88276e+01_rb,0.86892e+01_rb,0.86001e+01_rb,0.84644e+01_rb,0.83125e+01_rb /)
+      kbo(:,24,13) = (/ &
+        & 0.89834e+01_rb,0.88963e+01_rb,0.87866e+01_rb,0.86675e+01_rb,0.84751e+01_rb /)
+      kbo(:,25,13) = (/ &
+        & 0.91971e+01_rb,0.90977e+01_rb,0.89941e+01_rb,0.88254e+01_rb,0.85750e+01_rb /)
+      kbo(:,26,13) = (/ &
+        & 0.93611e+01_rb,0.92762e+01_rb,0.91306e+01_rb,0.88795e+01_rb,0.86828e+01_rb /)
+      kbo(:,27,13) = (/ &
+        & 0.95231e+01_rb,0.94096e+01_rb,0.91709e+01_rb,0.89786e+01_rb,0.86968e+01_rb /)
+      kbo(:,28,13) = (/ &
+        & 0.96495e+01_rb,0.94564e+01_rb,0.92347e+01_rb,0.89785e+01_rb,0.86180e+01_rb /)
+      kbo(:,29,13) = (/ &
+        & 0.97336e+01_rb,0.94935e+01_rb,0.92561e+01_rb,0.89137e+01_rb,0.86661e+01_rb /)
+      kbo(:,30,13) = (/ &
+        & 0.97605e+01_rb,0.95111e+01_rb,0.92200e+01_rb,0.89355e+01_rb,0.85920e+01_rb /)
+      kbo(:,31,13) = (/ &
+        & 0.97562e+01_rb,0.95167e+01_rb,0.91771e+01_rb,0.88618e+01_rb,0.85414e+01_rb /)
+      kbo(:,32,13) = (/ &
+        & 0.97192e+01_rb,0.94434e+01_rb,0.91403e+01_rb,0.87870e+01_rb,0.85159e+01_rb /)
+      kbo(:,33,13) = (/ &
+        & 0.97162e+01_rb,0.94370e+01_rb,0.90971e+01_rb,0.88239e+01_rb,0.85528e+01_rb /)
+      kbo(:,34,13) = (/ &
+        & 0.96997e+01_rb,0.93448e+01_rb,0.90783e+01_rb,0.87958e+01_rb,0.87225e+01_rb /)
+      kbo(:,35,13) = (/ &
+        & 0.97261e+01_rb,0.93769e+01_rb,0.90457e+01_rb,0.89061e+01_rb,0.87695e+01_rb /)
+      kbo(:,36,13) = (/ &
+        & 0.97573e+01_rb,0.94639e+01_rb,0.92105e+01_rb,0.90277e+01_rb,0.88187e+01_rb /)
+      kbo(:,37,13) = (/ &
+        & 0.98297e+01_rb,0.95424e+01_rb,0.93169e+01_rb,0.90796e+01_rb,0.89104e+01_rb /)
+      kbo(:,38,13) = (/ &
+        & 0.99015e+01_rb,0.96432e+01_rb,0.94039e+01_rb,0.91616e+01_rb,0.89941e+01_rb /)
+      kbo(:,39,13) = (/ &
+        & 0.99137e+01_rb,0.96714e+01_rb,0.94790e+01_rb,0.92092e+01_rb,0.90352e+01_rb /)
+      kbo(:,40,13) = (/ &
+        & 0.99728e+01_rb,0.96872e+01_rb,0.94263e+01_rb,0.92759e+01_rb,0.90690e+01_rb /)
+      kbo(:,41,13) = (/ &
+        & 0.10009e+02_rb,0.96720e+01_rb,0.94529e+01_rb,0.92520e+01_rb,0.90775e+01_rb /)
+      kbo(:,42,13) = (/ &
+        & 0.99394e+01_rb,0.96947e+01_rb,0.94735e+01_rb,0.92670e+01_rb,0.90312e+01_rb /)
+      kbo(:,43,13) = (/ &
+        & 0.98412e+01_rb,0.96685e+01_rb,0.93802e+01_rb,0.91747e+01_rb,0.90019e+01_rb /)
+      kbo(:,44,13) = (/ &
+        & 0.98284e+01_rb,0.96419e+01_rb,0.93576e+01_rb,0.91166e+01_rb,0.88968e+01_rb /)
+      kbo(:,45,13) = (/ &
+        & 0.98765e+01_rb,0.96737e+01_rb,0.94176e+01_rb,0.90811e+01_rb,0.88300e+01_rb /)
+      kbo(:,46,13) = (/ &
+        & 0.99370e+01_rb,0.96739e+01_rb,0.94534e+01_rb,0.91692e+01_rb,0.88574e+01_rb /)
+      kbo(:,47,13) = (/ &
+        & 0.10145e+02_rb,0.99712e+01_rb,0.96675e+01_rb,0.93530e+01_rb,0.89895e+01_rb /)
+      kbo(:,48,13) = (/ &
+        & 0.10395e+02_rb,0.10167e+02_rb,0.99330e+01_rb,0.95943e+01_rb,0.92927e+01_rb /)
+      kbo(:,49,13) = (/ &
+        & 0.10580e+02_rb,0.10365e+02_rb,0.10114e+02_rb,0.98197e+01_rb,0.95303e+01_rb /)
+      kbo(:,50,13) = (/ &
+        & 0.10794e+02_rb,0.10715e+02_rb,0.10421e+02_rb,0.10154e+02_rb,0.98629e+01_rb /)
+      kbo(:,51,13) = (/ &
+        & 0.10946e+02_rb,0.10939e+02_rb,0.10689e+02_rb,0.10427e+02_rb,0.10145e+02_rb /)
+      kbo(:,52,13) = (/ &
+        & 0.11156e+02_rb,0.11126e+02_rb,0.10973e+02_rb,0.10622e+02_rb,0.10371e+02_rb /)
+      kbo(:,53,13) = (/ &
+        & 0.11165e+02_rb,0.11308e+02_rb,0.11212e+02_rb,0.10985e+02_rb,0.10624e+02_rb /)
+      kbo(:,54,13) = (/ &
+        & 0.11221e+02_rb,0.11354e+02_rb,0.11431e+02_rb,0.11243e+02_rb,0.10959e+02_rb /)
+      kbo(:,55,13) = (/ &
+        & 0.11238e+02_rb,0.11406e+02_rb,0.11591e+02_rb,0.11479e+02_rb,0.11275e+02_rb /)
+      kbo(:,56,13) = (/ &
+        & 0.11335e+02_rb,0.11405e+02_rb,0.11662e+02_rb,0.11637e+02_rb,0.11480e+02_rb /)
+      kbo(:,57,13) = (/ &
+        & 0.11355e+02_rb,0.11451e+02_rb,0.11592e+02_rb,0.11670e+02_rb,0.11515e+02_rb /)
+      kbo(:,58,13) = (/ &
+        & 0.11389e+02_rb,0.11476e+02_rb,0.11586e+02_rb,0.11657e+02_rb,0.11618e+02_rb /)
+      kbo(:,59,13) = (/ &
+        & 0.11480e+02_rb,0.11599e+02_rb,0.11673e+02_rb,0.11677e+02_rb,0.11653e+02_rb /)
+      kbo(:,13,14) = (/ &
+        & 0.97590e+01_rb,0.94275e+01_rb,0.91020e+01_rb,0.89149e+01_rb,0.87289e+01_rb /)
+      kbo(:,14,14) = (/ &
+        & 0.10505e+02_rb,0.10164e+02_rb,0.99232e+01_rb,0.97321e+01_rb,0.94201e+01_rb /)
+      kbo(:,15,14) = (/ &
+        & 0.11237e+02_rb,0.10955e+02_rb,0.10714e+02_rb,0.10370e+02_rb,0.10019e+02_rb /)
+      kbo(:,16,14) = (/ &
+        & 0.12124e+02_rb,0.11740e+02_rb,0.11352e+02_rb,0.10992e+02_rb,0.10632e+02_rb /)
+      kbo(:,17,14) = (/ &
+        & 0.12886e+02_rb,0.12429e+02_rb,0.12001e+02_rb,0.11642e+02_rb,0.11273e+02_rb /)
+      kbo(:,18,14) = (/ &
+        & 0.13556e+02_rb,0.13047e+02_rb,0.12733e+02_rb,0.12297e+02_rb,0.11616e+02_rb /)
+      kbo(:,19,14) = (/ &
+        & 0.14349e+02_rb,0.13901e+02_rb,0.13193e+02_rb,0.12562e+02_rb,0.12015e+02_rb /)
+      kbo(:,20,14) = (/ &
+        & 0.15084e+02_rb,0.14361e+02_rb,0.13567e+02_rb,0.12903e+02_rb,0.12393e+02_rb /)
+      kbo(:,21,14) = (/ &
+        & 0.15509e+02_rb,0.14641e+02_rb,0.13824e+02_rb,0.13136e+02_rb,0.12832e+02_rb /)
+      kbo(:,22,14) = (/ &
+        & 0.15737e+02_rb,0.14756e+02_rb,0.13944e+02_rb,0.13493e+02_rb,0.13014e+02_rb /)
+      kbo(:,23,14) = (/ &
+        & 0.15733e+02_rb,0.14806e+02_rb,0.14130e+02_rb,0.13708e+02_rb,0.13129e+02_rb /)
+      kbo(:,24,14) = (/ &
+        & 0.15735e+02_rb,0.14832e+02_rb,0.14382e+02_rb,0.13702e+02_rb,0.13090e+02_rb /)
+      kbo(:,25,14) = (/ &
+        & 0.15596e+02_rb,0.15046e+02_rb,0.14369e+02_rb,0.13676e+02_rb,0.13207e+02_rb /)
+      kbo(:,26,14) = (/ &
+        & 0.15679e+02_rb,0.15085e+02_rb,0.14382e+02_rb,0.13864e+02_rb,0.13243e+02_rb /)
+      kbo(:,27,14) = (/ &
+        & 0.15773e+02_rb,0.15051e+02_rb,0.14458e+02_rb,0.13792e+02_rb,0.13309e+02_rb /)
+      kbo(:,28,14) = (/ &
+        & 0.15791e+02_rb,0.15118e+02_rb,0.14520e+02_rb,0.13908e+02_rb,0.13506e+02_rb /)
+      kbo(:,29,14) = (/ &
+        & 0.15907e+02_rb,0.15282e+02_rb,0.14696e+02_rb,0.14168e+02_rb,0.13591e+02_rb /)
+      kbo(:,30,14) = (/ &
+        & 0.15997e+02_rb,0.15426e+02_rb,0.14908e+02_rb,0.14325e+02_rb,0.13655e+02_rb /)
+      kbo(:,31,14) = (/ &
+        & 0.16254e+02_rb,0.15640e+02_rb,0.15053e+02_rb,0.14410e+02_rb,0.13542e+02_rb /)
+      kbo(:,32,14) = (/ &
+        & 0.16522e+02_rb,0.15885e+02_rb,0.15194e+02_rb,0.14363e+02_rb,0.13365e+02_rb /)
+      kbo(:,33,14) = (/ &
+        & 0.16844e+02_rb,0.16068e+02_rb,0.15151e+02_rb,0.14109e+02_rb,0.13003e+02_rb /)
+      kbo(:,34,14) = (/ &
+        & 0.16915e+02_rb,0.16003e+02_rb,0.14953e+02_rb,0.13814e+02_rb,0.12608e+02_rb /)
+      kbo(:,35,14) = (/ &
+        & 0.16922e+02_rb,0.15890e+02_rb,0.14756e+02_rb,0.13405e+02_rb,0.12281e+02_rb /)
+      kbo(:,36,14) = (/ &
+        & 0.16966e+02_rb,0.15773e+02_rb,0.14522e+02_rb,0.13240e+02_rb,0.11917e+02_rb /)
+      kbo(:,37,14) = (/ &
+        & 0.17142e+02_rb,0.15897e+02_rb,0.14564e+02_rb,0.13378e+02_rb,0.11953e+02_rb /)
+      kbo(:,38,14) = (/ &
+        & 0.17346e+02_rb,0.16051e+02_rb,0.14752e+02_rb,0.13439e+02_rb,0.11971e+02_rb /)
+      kbo(:,39,14) = (/ &
+        & 0.17475e+02_rb,0.16210e+02_rb,0.14948e+02_rb,0.13510e+02_rb,0.12056e+02_rb /)
+      kbo(:,40,14) = (/ &
+        & 0.17754e+02_rb,0.16503e+02_rb,0.15328e+02_rb,0.13801e+02_rb,0.12328e+02_rb /)
+      kbo(:,41,14) = (/ &
+        & 0.18031e+02_rb,0.16909e+02_rb,0.15619e+02_rb,0.14276e+02_rb,0.12740e+02_rb /)
+      kbo(:,42,14) = (/ &
+        & 0.18386e+02_rb,0.17235e+02_rb,0.15966e+02_rb,0.14652e+02_rb,0.13194e+02_rb /)
+      kbo(:,43,14) = (/ &
+        & 0.18710e+02_rb,0.17591e+02_rb,0.16361e+02_rb,0.15070e+02_rb,0.13707e+02_rb /)
+      kbo(:,44,14) = (/ &
+        & 0.19098e+02_rb,0.17898e+02_rb,0.16845e+02_rb,0.15582e+02_rb,0.14265e+02_rb /)
+      kbo(:,45,14) = (/ &
+        & 0.19252e+02_rb,0.18167e+02_rb,0.17135e+02_rb,0.15969e+02_rb,0.14652e+02_rb /)
+      kbo(:,46,14) = (/ &
+        & 0.19041e+02_rb,0.18357e+02_rb,0.17265e+02_rb,0.16200e+02_rb,0.15002e+02_rb /)
+      kbo(:,47,14) = (/ &
+        & 0.18766e+02_rb,0.18032e+02_rb,0.17152e+02_rb,0.16208e+02_rb,0.15088e+02_rb /)
+      kbo(:,48,14) = (/ &
+        & 0.18411e+02_rb,0.17740e+02_rb,0.16984e+02_rb,0.16085e+02_rb,0.15089e+02_rb /)
+      kbo(:,49,14) = (/ &
+        & 0.18291e+02_rb,0.17667e+02_rb,0.16941e+02_rb,0.16014e+02_rb,0.14979e+02_rb /)
+      kbo(:,50,14) = (/ &
+        & 0.18624e+02_rb,0.17786e+02_rb,0.17174e+02_rb,0.16136e+02_rb,0.15128e+02_rb /)
+      kbo(:,51,14) = (/ &
+        & 0.19430e+02_rb,0.18470e+02_rb,0.17722e+02_rb,0.16775e+02_rb,0.15711e+02_rb /)
+      kbo(:,52,14) = (/ &
+        & 0.20123e+02_rb,0.18895e+02_rb,0.18060e+02_rb,0.17255e+02_rb,0.16173e+02_rb /)
+      kbo(:,53,14) = (/ &
+        & 0.20744e+02_rb,0.19415e+02_rb,0.18626e+02_rb,0.17397e+02_rb,0.16465e+02_rb /)
+      kbo(:,54,14) = (/ &
+        & 0.21714e+02_rb,0.20093e+02_rb,0.19173e+02_rb,0.18078e+02_rb,0.16884e+02_rb /)
+      kbo(:,55,14) = (/ &
+        & 0.22731e+02_rb,0.21068e+02_rb,0.19674e+02_rb,0.18569e+02_rb,0.17315e+02_rb /)
+      kbo(:,56,14) = (/ &
+        & 0.23924e+02_rb,0.22190e+02_rb,0.20317e+02_rb,0.18891e+02_rb,0.17603e+02_rb /)
+      kbo(:,57,14) = (/ &
+        & 0.24940e+02_rb,0.23270e+02_rb,0.21498e+02_rb,0.19833e+02_rb,0.18265e+02_rb /)
+      kbo(:,58,14) = (/ &
+        & 0.25828e+02_rb,0.24271e+02_rb,0.22518e+02_rb,0.20827e+02_rb,0.19003e+02_rb /)
+      kbo(:,59,14) = (/ &
+        & 0.26483e+02_rb,0.24983e+02_rb,0.23453e+02_rb,0.21676e+02_rb,0.19755e+02_rb /)
+      kbo(:,13,15) = (/ &
+        & 0.15960e+02_rb,0.15303e+02_rb,0.14694e+02_rb,0.13842e+02_rb,0.13008e+02_rb /)
+      kbo(:,14,15) = (/ &
+        & 0.17675e+02_rb,0.16896e+02_rb,0.15925e+02_rb,0.14915e+02_rb,0.14133e+02_rb /)
+      kbo(:,15,15) = (/ &
+        & 0.19385e+02_rb,0.18234e+02_rb,0.16959e+02_rb,0.15987e+02_rb,0.15180e+02_rb /)
+      kbo(:,16,15) = (/ &
+        & 0.20552e+02_rb,0.19165e+02_rb,0.17982e+02_rb,0.16927e+02_rb,0.16368e+02_rb /)
+      kbo(:,17,15) = (/ &
+        & 0.21349e+02_rb,0.19954e+02_rb,0.19023e+02_rb,0.18091e+02_rb,0.17398e+02_rb /)
+      kbo(:,18,15) = (/ &
+        & 0.22160e+02_rb,0.21597e+02_rb,0.20213e+02_rb,0.19055e+02_rb,0.18102e+02_rb /)
+      kbo(:,19,15) = (/ &
+        & 0.23816e+02_rb,0.22303e+02_rb,0.21008e+02_rb,0.19912e+02_rb,0.18903e+02_rb /)
+      kbo(:,20,15) = (/ &
+        & 0.24810e+02_rb,0.23381e+02_rb,0.21933e+02_rb,0.20846e+02_rb,0.19540e+02_rb /)
+      kbo(:,21,15) = (/ &
+        & 0.25893e+02_rb,0.24250e+02_rb,0.22750e+02_rb,0.21616e+02_rb,0.19627e+02_rb /)
+      kbo(:,22,15) = (/ &
+        & 0.26542e+02_rb,0.24773e+02_rb,0.23600e+02_rb,0.21309e+02_rb,0.19278e+02_rb /)
+      kbo(:,23,15) = (/ &
+        & 0.27270e+02_rb,0.25621e+02_rb,0.23587e+02_rb,0.21255e+02_rb,0.19478e+02_rb /)
+      kbo(:,24,15) = (/ &
+        & 0.27744e+02_rb,0.26088e+02_rb,0.23254e+02_rb,0.21242e+02_rb,0.19100e+02_rb /)
+      kbo(:,25,15) = (/ &
+        & 0.28557e+02_rb,0.25575e+02_rb,0.23098e+02_rb,0.20631e+02_rb,0.18206e+02_rb /)
+      kbo(:,26,15) = (/ &
+        & 0.28140e+02_rb,0.25135e+02_rb,0.22210e+02_rb,0.19496e+02_rb,0.17366e+02_rb /)
+      kbo(:,27,15) = (/ &
+        & 0.27284e+02_rb,0.24232e+02_rb,0.21249e+02_rb,0.18720e+02_rb,0.16279e+02_rb /)
+      kbo(:,28,15) = (/ &
+        & 0.26494e+02_rb,0.23076e+02_rb,0.20060e+02_rb,0.17566e+02_rb,0.14956e+02_rb /)
+      kbo(:,29,15) = (/ &
+        & 0.24773e+02_rb,0.21460e+02_rb,0.18370e+02_rb,0.15793e+02_rb,0.13302e+02_rb /)
+      kbo(:,30,15) = (/ &
+        & 0.23157e+02_rb,0.19587e+02_rb,0.16563e+02_rb,0.13805e+02_rb,0.11647e+02_rb /)
+      kbo(:,31,15) = (/ &
+        & 0.20881e+02_rb,0.17370e+02_rb,0.14460e+02_rb,0.11958e+02_rb,0.99808e+01_rb /)
+      kbo(:,32,15) = (/ &
+        & 0.18247e+02_rb,0.15035e+02_rb,0.12296e+02_rb,0.10101e+02_rb,0.83032e+01_rb /)
+      kbo(:,33,15) = (/ &
+        & 0.15492e+02_rb,0.12470e+02_rb,0.10235e+02_rb,0.81131e+01_rb,0.64390e+01_rb /)
+      kbo(:,34,15) = (/ &
+        & 0.13284e+02_rb,0.10782e+02_rb,0.82553e+01_rb,0.64597e+01_rb,0.42402e+01_rb /)
+      kbo(:,35,15) = (/ &
+        & 0.11520e+02_rb,0.89534e+01_rb,0.69691e+01_rb,0.48753e+01_rb,0.27443e+01_rb /)
+      kbo(:,36,15) = (/ &
+        & 0.10067e+02_rb,0.75650e+01_rb,0.54572e+01_rb,0.31866e+01_rb,0.14626e+01_rb /)
+      kbo(:,37,15) = (/ &
+        & 0.97744e+01_rb,0.73767e+01_rb,0.52433e+01_rb,0.27509e+01_rb,0.10380e+01_rb /)
+      kbo(:,38,15) = (/ &
+        & 0.94733e+01_rb,0.70859e+01_rb,0.47807e+01_rb,0.23954e+01_rb,0.74468e+00_rb /)
+      kbo(:,39,15) = (/ &
+        & 0.94041e+01_rb,0.67286e+01_rb,0.41966e+01_rb,0.20683e+01_rb,0.27939e+00_rb /)
+      kbo(:,40,15) = (/ &
+        & 0.10076e+02_rb,0.74414e+01_rb,0.47964e+01_rb,0.25258e+01_rb,0.87689e+00_rb /)
+      kbo(:,41,15) = (/ &
+        & 0.10878e+02_rb,0.81759e+01_rb,0.56173e+01_rb,0.30416e+01_rb,0.13231e+01_rb /)
+      kbo(:,42,15) = (/ &
+        & 0.11858e+02_rb,0.88284e+01_rb,0.63009e+01_rb,0.37211e+01_rb,0.17214e+01_rb /)
+      kbo(:,43,15) = (/ &
+        & 0.13284e+02_rb,0.99847e+01_rb,0.73905e+01_rb,0.50291e+01_rb,0.24940e+01_rb /)
+      kbo(:,44,15) = (/ &
+        & 0.14796e+02_rb,0.11545e+02_rb,0.85671e+01_rb,0.61687e+01_rb,0.37136e+01_rb /)
+      kbo(:,45,15) = (/ &
+        & 0.16662e+02_rb,0.12949e+02_rb,0.98033e+01_rb,0.73353e+01_rb,0.52329e+01_rb /)
+      kbo(:,46,15) = (/ &
+        & 0.19200e+02_rb,0.14684e+02_rb,0.11434e+02_rb,0.85867e+01_rb,0.64428e+01_rb /)
+      kbo(:,47,15) = (/ &
+        & 0.21780e+02_rb,0.16837e+02_rb,0.13158e+02_rb,0.10165e+02_rb,0.76608e+01_rb /)
+      kbo(:,48,15) = (/ &
+        & 0.24689e+02_rb,0.19487e+02_rb,0.15145e+02_rb,0.11845e+02_rb,0.89940e+01_rb /)
+      kbo(:,49,15) = (/ &
+        & 0.27130e+02_rb,0.21775e+02_rb,0.17116e+02_rb,0.13679e+02_rb,0.10905e+02_rb /)
+      kbo(:,50,15) = (/ &
+        & 0.27854e+02_rb,0.22306e+02_rb,0.17103e+02_rb,0.13783e+02_rb,0.10863e+02_rb /)
+      kbo(:,51,15) = (/ &
+        & 0.27653e+02_rb,0.21825e+02_rb,0.16692e+02_rb,0.12707e+02_rb,0.98148e+01_rb /)
+      kbo(:,52,15) = (/ &
+        & 0.27815e+02_rb,0.22411e+02_rb,0.17151e+02_rb,0.12787e+02_rb,0.95823e+01_rb /)
+      kbo(:,53,15) = (/ &
+        & 0.29119e+02_rb,0.23144e+02_rb,0.17252e+02_rb,0.13594e+02_rb,0.99767e+01_rb /)
+      kbo(:,54,15) = (/ &
+        & 0.29129e+02_rb,0.23469e+02_rb,0.17342e+02_rb,0.12745e+02_rb,0.95359e+01_rb /)
+      kbo(:,55,15) = (/ &
+        & 0.29058e+02_rb,0.23190e+02_rb,0.17458e+02_rb,0.12690e+02_rb,0.90099e+01_rb /)
+      kbo(:,56,15) = (/ &
+        & 0.28657e+02_rb,0.23001e+02_rb,0.17896e+02_rb,0.13433e+02_rb,0.94907e+01_rb /)
+      kbo(:,57,15) = (/ &
+        & 0.29240e+02_rb,0.22830e+02_rb,0.17734e+02_rb,0.13185e+02_rb,0.97411e+01_rb /)
+      kbo(:,58,15) = (/ &
+        & 0.29947e+02_rb,0.22946e+02_rb,0.17582e+02_rb,0.13008e+02_rb,0.96489e+01_rb /)
+      kbo(:,59,15) = (/ &
+        & 0.28976e+02_rb,0.21746e+02_rb,0.15522e+02_rb,0.11254e+02_rb,0.80222e+01_rb /)
+      kbo(:,13,16) = (/ &
+        & 0.25931e+02_rb,0.24537e+02_rb,0.23224e+02_rb,0.21983e+02_rb,0.20855e+02_rb /)
+      kbo(:,14,16) = (/ &
+        & 0.29220e+02_rb,0.27507e+02_rb,0.25899e+02_rb,0.24431e+02_rb,0.23088e+02_rb /)
+      kbo(:,15,16) = (/ &
+        & 0.32471e+02_rb,0.30409e+02_rb,0.28502e+02_rb,0.26794e+02_rb,0.25226e+02_rb /)
+      kbo(:,16,16) = (/ &
+        & 0.35624e+02_rb,0.33186e+02_rb,0.30989e+02_rb,0.28748e+02_rb,0.24479e+02_rb /)
+      kbo(:,17,16) = (/ &
+        & 0.38605e+02_rb,0.35797e+02_rb,0.30613e+02_rb,0.25949e+02_rb,0.21171e+02_rb /)
+      kbo(:,18,16) = (/ &
+        & 0.41350e+02_rb,0.31676e+02_rb,0.25965e+02_rb,0.21818e+02_rb,0.18145e+02_rb /)
+      kbo(:,19,16) = (/ &
+        & 0.34377e+02_rb,0.28144e+02_rb,0.23342e+02_rb,0.17735e+02_rb,0.13818e+02_rb /)
+      kbo(:,20,16) = (/ &
+        & 0.31245e+02_rb,0.24408e+02_rb,0.19618e+02_rb,0.13984e+02_rb,0.93171e+01_rb /)
+      kbo(:,21,16) = (/ &
+        & 0.28216e+02_rb,0.21711e+02_rb,0.16938e+02_rb,0.11225e+02_rb,0.60954e+01_rb /)
+      kbo(:,22,16) = (/ &
+        & 0.25410e+02_rb,0.20320e+02_rb,0.12451e+02_rb,0.80509e+01_rb,0.41742e+01_rb /)
+      kbo(:,23,16) = (/ &
+        & 0.22191e+02_rb,0.15284e+02_rb,0.84334e+01_rb,0.32443e+01_rb,0.10236e-04_rb /)
+      kbo(:,24,16) = (/ &
+        & 0.19170e+02_rb,0.98429e+01_rb,0.40822e+01_rb,0.90070e-05_rb,0.84964e-05_rb /)
+      kbo(:,25,16) = (/ &
+        & 0.11441e+02_rb,0.50508e+01_rb,0.77316e-05_rb,0.71796e-05_rb,0.66473e-05_rb /)
+      kbo(:,26,16) = (/ &
+        & 0.73617e+01_rb,0.56953e+00_rb,0.62155e-05_rb,0.57759e-05_rb,0.53447e-05_rb /)
+      kbo(:,27,16) = (/ &
+        & 0.37038e+01_rb,0.54098e-05_rb,0.49933e-05_rb,0.45180e-05_rb,0.42997e-05_rb /)
+      kbo(:,28,16) = (/ &
+        & 0.47094e-05_rb,0.43472e-05_rb,0.40149e-05_rb,0.36332e-05_rb,0.34550e-05_rb /)
+      kbo(:,29,16) = (/ &
+        & 0.37812e-05_rb,0.34885e-05_rb,0.32238e-05_rb,0.29187e-05_rb,0.27779e-05_rb /)
+      kbo(:,30,16) = (/ &
+        & 0.30339e-05_rb,0.28004e-05_rb,0.25314e-05_rb,0.23451e-05_rb,0.22313e-05_rb /)
+      kbo(:,31,16) = (/ &
+        & 0.24328e-05_rb,0.22460e-05_rb,0.20326e-05_rb,0.18813e-05_rb,0.17930e-05_rb /)
+      kbo(:,32,16) = (/ &
+        & 0.18939e-05_rb,0.18012e-05_rb,0.16316e-05_rb,0.15109e-05_rb,0.14395e-05_rb /)
+      kbo(:,33,16) = (/ &
+        & 0.15657e-05_rb,0.14309e-05_rb,0.13083e-05_rb,0.12124e-05_rb,0.15795e-05_rb /)
+      kbo(:,34,16) = (/ &
+        & 0.12582e-05_rb,0.11508e-05_rb,0.10527e-05_rb,0.97625e-06_rb,0.19757e-05_rb /)
+      kbo(:,35,16) = (/ &
+        & 0.10197e-05_rb,0.93275e-06_rb,0.85375e-06_rb,0.79153e-06_rb,0.21668e-05_rb /)
+      kbo(:,36,16) = (/ &
+        & 0.83336e-06_rb,0.76274e-06_rb,0.69805e-06_rb,0.64735e-06_rb,0.17739e-05_rb /)
+      kbo(:,37,16) = (/ &
+        & 0.68945e-06_rb,0.63022e-06_rb,0.57702e-06_rb,0.53486e-06_rb,0.10843e-05_rb /)
+      kbo(:,38,16) = (/ &
+        & 0.55406e-06_rb,0.52180e-06_rb,0.47760e-06_rb,0.44282e-06_rb,0.89395e-06_rb /)
+      kbo(:,39,16) = (/ &
+        & 0.45861e-06_rb,0.43223e-06_rb,0.39548e-06_rb,0.36639e-06_rb,0.47718e-06_rb /)
+      kbo(:,40,16) = (/ &
+        & 0.38297e-06_rb,0.36441e-06_rb,0.32989e-06_rb,0.30551e-06_rb,0.28352e-06_rb /)
+      kbo(:,41,16) = (/ &
+        & 0.31987e-06_rb,0.30430e-06_rb,0.27838e-06_rb,0.25513e-06_rb,0.23647e-06_rb /)
+      kbo(:,42,16) = (/ &
+        & 0.26734e-06_rb,0.24677e-06_rb,0.23264e-06_rb,0.21290e-06_rb,0.19743e-06_rb /)
+      kbo(:,43,16) = (/ &
+        & 0.22458e-06_rb,0.20712e-06_rb,0.19517e-06_rb,0.17853e-06_rb,0.16551e-06_rb /)
+      kbo(:,44,16) = (/ &
+        & 0.18898e-06_rb,0.17429e-06_rb,0.16587e-06_rb,0.15173e-06_rb,0.13895e-06_rb /)
+      kbo(:,45,16) = (/ &
+        & 0.15450e-06_rb,0.14658e-06_rb,0.13533e-06_rb,0.12759e-06_rb,0.11679e-06_rb /)
+      kbo(:,46,16) = (/ &
+        & 0.13028e-06_rb,0.12362e-06_rb,0.11400e-06_rb,0.10744e-06_rb,0.98279e-07_rb /)
+      kbo(:,47,16) = (/ &
+        & 0.11024e-06_rb,0.10159e-06_rb,0.96435e-07_rb,0.91711e-07_rb,0.83972e-07_rb /)
+      kbo(:,48,16) = (/ &
+        & 0.93198e-07_rb,0.85906e-07_rb,0.81590e-07_rb,0.75279e-07_rb,0.70931e-07_rb /)
+      kbo(:,49,16) = (/ &
+        & 0.76236e-07_rb,0.72626e-07_rb,0.68995e-07_rb,0.63641e-07_rb,0.60530e-07_rb /)
+      kbo(:,50,16) = (/ &
+        & 0.64328e-07_rb,0.61369e-07_rb,0.56594e-07_rb,0.53672e-07_rb,0.49555e-07_rb /)
+      kbo(:,51,16) = (/ &
+        & 0.54169e-07_rb,0.51722e-07_rb,0.47685e-07_rb,0.45298e-07_rb,0.41770e-07_rb /)
+      kbo(:,52,16) = (/ &
+        & 0.46180e-07_rb,0.42221e-07_rb,0.40251e-07_rb,0.37120e-07_rb,0.35204e-07_rb /)
+      kbo(:,53,16) = (/ &
+        & 0.33194e-01_rb,0.35538e-07_rb,0.33930e-07_rb,0.31297e-07_rb,0.29712e-07_rb /)
+      kbo(:,54,16) = (/ &
+        & 0.63212e-01_rb,0.54132e-01_rb,0.36437e-01_rb,0.71353e-02_rb,0.24978e-07_rb /)
+      kbo(:,55,16) = (/ &
+        & 0.62321e-01_rb,0.69163e-01_rb,0.76899e-01_rb,0.64692e-01_rb,0.42869e-01_rb /)
+      kbo(:,56,16) = (/ &
+        & 0.73050e-01_rb,0.83118e-01_rb,0.74962e-01_rb,0.82540e-01_rb,0.91058e-01_rb /)
+      kbo(:,57,16) = (/ &
+        & 0.71162e-01_rb,0.79898e-01_rb,0.89953e-01_rb,0.10014e+00_rb,0.10382e+00_rb /)
+      kbo(:,58,16) = (/ &
+        & 0.67770e-01_rb,0.78960e-01_rb,0.86882e-01_rb,0.97002e-01_rb,0.10740e+00_rb /)
+      kbo(:,59,16) = (/ &
+        & 0.66421e-01_rb,0.77608e-01_rb,0.10426e+00_rb,0.10063e+00_rb,0.10735e+00_rb /)
+  
+!     -----------------------------------------------------------------
+
+      forrefo(:, 1) = (/ 0.860560e-06_rb, 0.130439e-05_rb, 0.382378e-05_rb /)
+      forrefo(:, 2) = (/ 0.817926e-06_rb, 0.158599e-05_rb, 0.658771e-04_rb /)
+      forrefo(:, 3) = (/ 0.129369e-05_rb, 0.824406e-05_rb, 0.952778e-04_rb /)
+      forrefo(:, 4) = (/ 0.438918e-05_rb, 0.375356e-04_rb, 0.119111e-03_rb /)
+      forrefo(:, 5) = (/ 0.306057e-04_rb, 0.622798e-04_rb, 0.100740e-03_rb /)
+      forrefo(:, 6) = (/ 0.891934e-04_rb, 0.856393e-04_rb, 0.635583e-04_rb /)
+      forrefo(:, 7) = (/ 0.171959e-03_rb, 0.173431e-03_rb, 0.611721e-04_rb /)
+      forrefo(:, 8) = (/ 0.357795e-03_rb, 0.247261e-03_rb, 0.488864e-04_rb /)
+      forrefo(:, 9) = (/ 0.326623e-03_rb, 0.289471e-03_rb, 0.548834e-04_rb /)
+      forrefo(:,10) = (/ 0.345103e-03_rb, 0.320898e-03_rb, 0.633214e-04_rb /)
+      forrefo(:,11) = (/ 0.392567e-03_rb, 0.325153e-03_rb, 0.744479e-04_rb /)
+      forrefo(:,12) = (/ 0.349277e-03_rb, 0.345610e-03_rb, 0.916479e-04_rb /)
+      forrefo(:,13) = (/ 0.425161e-03_rb, 0.348452e-03_rb, 0.125788e-03_rb /)
+      forrefo(:,14) = (/ 0.407594e-03_rb, 0.435836e-03_rb, 0.287583e-03_rb /)
+      forrefo(:,15) = (/ 0.521605e-03_rb, 0.486596e-03_rb, 0.483511e-03_rb /)
+      forrefo(:,16) = (/ 0.773790e-03_rb, 0.737247e-03_rb, 0.665939e-03_rb /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+           
+      selfrefo(:, 1) = (/ &
+        &  0.750370e-03_rb, 0.644938e-03_rb, 0.554321e-03_rb, 0.476436e-03_rb, 0.409494e-03_rb, &
+        &  0.351957e-03_rb, 0.302505e-03_rb, 0.260002e-03_rb, 0.223470e-03_rb, 0.192071e-03_rb /)
+      selfrefo(:, 2) = (/ &
+        &  0.136135e-02_rb, 0.113187e-02_rb, 0.941076e-03_rb, 0.782440e-03_rb, 0.650546e-03_rb, &
+        &  0.540885e-03_rb, 0.449709e-03_rb, 0.373902e-03_rb, 0.310874e-03_rb, 0.258471e-03_rb /)
+      selfrefo(:, 3) = (/ &
+        &  0.333950e-02_rb, 0.256391e-02_rb, 0.196845e-02_rb, 0.151129e-02_rb, 0.116030e-02_rb, &
+        &  0.890824e-03_rb, 0.683934e-03_rb, 0.525093e-03_rb, 0.403143e-03_rb, 0.309515e-03_rb /)
+      selfrefo(:, 4) = (/ &
+        &  0.793392e-02_rb, 0.589865e-02_rb, 0.438548e-02_rb, 0.326048e-02_rb, 0.242408e-02_rb, &
+        &  0.180223e-02_rb, 0.133991e-02_rb, 0.996186e-03_rb, 0.740636e-03_rb, 0.550642e-03_rb /)
+      selfrefo(:, 5) = (/ &
+        &  0.828169e-02_rb, 0.703139e-02_rb, 0.596984e-02_rb, 0.506856e-02_rb, 0.430335e-02_rb, &
+        &  0.365366e-02_rb, 0.310206e-02_rb, 0.263374e-02_rb, 0.223612e-02_rb, 0.189852e-02_rb /)
+      selfrefo(:, 6) = (/ &
+        &  0.834190e-02_rb, 0.780225e-02_rb, 0.729750e-02_rb, 0.682541e-02_rb, 0.638386e-02_rb, &
+        &  0.597087e-02_rb, 0.558460e-02_rb, 0.522332e-02_rb, 0.488541e-02_rb, 0.456936e-02_rb /)
+      selfrefo(:, 7) = (/ &
+        &  0.119082e-01_rb, 0.112566e-01_rb, 0.106406e-01_rb, 0.100583e-01_rb, 0.950785e-02_rb, &
+        &  0.898755e-02_rb, 0.849571e-02_rb, 0.803080e-02_rb, 0.759132e-02_rb, 0.717590e-02_rb /)
+      selfrefo(:, 8) = (/ &
+        &  0.144004e-01_rb, 0.141762e-01_rb, 0.139554e-01_rb, 0.137381e-01_rb, 0.135241e-01_rb, &
+        &  0.133135e-01_rb, 0.131062e-01_rb, 0.129021e-01_rb, 0.127011e-01_rb, 0.125033e-01_rb /)
+      selfrefo(:, 9) = (/ &
+        &  0.186171e-01_rb, 0.175281e-01_rb, 0.165027e-01_rb, 0.155373e-01_rb, 0.146284e-01_rb, &
+        &  0.137726e-01_rb, 0.129670e-01_rb, 0.122084e-01_rb, 0.114942e-01_rb, 0.108218e-01_rb /)
+      selfrefo(:,10) = (/ &
+        &  0.209396e-01_rb, 0.195077e-01_rb, 0.181737e-01_rb, 0.169309e-01_rb, 0.157731e-01_rb, &
+        &  0.146945e-01_rb, 0.136897e-01_rb, 0.127535e-01_rb, 0.118814e-01_rb, 0.110689e-01_rb /)
+      selfrefo(:,11) = (/ &
+        &  0.203661e-01_rb, 0.193311e-01_rb, 0.183487e-01_rb, 0.174163e-01_rb, 0.165312e-01_rb, &
+        &  0.156911e-01_rb, 0.148937e-01_rb, 0.141368e-01_rb, 0.134184e-01_rb, 0.127365e-01_rb /)
+      selfrefo(:,12) = (/ &
+        &  0.226784e-01_rb, 0.210210e-01_rb, 0.194848e-01_rb, 0.180608e-01_rb, 0.167409e-01_rb, &
+        &  0.155174e-01_rb, 0.143834e-01_rb, 0.133322e-01_rb, 0.123579e-01_rb, 0.114547e-01_rb /)
+      selfrefo(:,13) = (/ &
+        &  0.221773e-01_rb, 0.210306e-01_rb, 0.199433e-01_rb, 0.189122e-01_rb, 0.179344e-01_rb, &
+        &  0.170071e-01_rb, 0.161278e-01_rb, 0.152939e-01_rb, 0.145032e-01_rb, 0.137533e-01_rb /)
+      selfrefo(:,14) = (/ &
+        &  0.275920e-01_rb, 0.252595e-01_rb, 0.231241e-01_rb, 0.211693e-01_rb, 0.193797e-01_rb, &
+        &  0.177415e-01_rb, 0.162417e-01_rb, 0.148687e-01_rb, 0.136117e-01_rb, 0.124610e-01_rb /)
+      selfrefo(:,15) = (/ &
+        &  0.288687e-01_rb, 0.269968e-01_rb, 0.252462e-01_rb, 0.236092e-01_rb, 0.220783e-01_rb, &
+        &  0.206466e-01_rb, 0.193078e-01_rb, 0.180559e-01_rb, 0.168851e-01_rb, 0.157902e-01_rb /)
+      selfrefo(:,16) = (/ &
+        &  0.371842e-01_rb, 0.347595e-01_rb, 0.324929e-01_rb, 0.303741e-01_rb, 0.283934e-01_rb, &
+        &  0.265419e-01_rb, 0.248112e-01_rb, 0.231933e-01_rb, 0.216809e-01_rb, 0.202671e-01_rb /)
+  
+      end subroutine sw_kgb18
+
+! **************************************************************************
+      subroutine sw_kgb19
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg19, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:,1) = (/ &
+        & 3.25791_rb    , 3.29697_rb    , 3.16031_rb    , 2.96115_rb    , &
+        & 2.69238_rb    , 2.33819_rb    , 1.92760_rb    , 1.44918_rb    , &
+        & 0.979764_rb   , 0.107336_rb   , 8.94523e-02_rb, 6.98325e-02_rb, &
+        & 5.12051e-02_rb, 3.23645e-02_rb, 1.23401e-02_rb, 1.71339e-03_rb /)
+      sfluxrefo(:,2) = (/ &
+        & 3.22769_rb    , 3.28817_rb    , 3.16687_rb    , 2.97662_rb    , &
+        & 2.69495_rb    , 2.34392_rb    , 1.92900_rb    , 1.45391_rb    , &
+        & 0.982522_rb   , 0.107638_rb   , 8.92458e-02_rb, 6.99885e-02_rb, &
+        & 5.09679e-02_rb, 3.23789e-02_rb, 1.22673e-02_rb, 1.56040e-03_rb /)
+      sfluxrefo(:,3) = (/ &
+        & 3.22294_rb    , 3.27780_rb    , 3.17424_rb    , 2.97143_rb    , &
+        & 2.69785_rb    , 2.34993_rb    , 1.93155_rb    , 1.45196_rb    , &
+        & 0.985329_rb   , 0.108027_rb   , 8.93552e-02_rb, 6.99937e-02_rb, &
+        & 5.11678e-02_rb, 3.24846e-02_rb, 1.20636e-02_rb, 1.56040e-03_rb /)
+      sfluxrefo(:,4) = (/ &
+        & 3.22445_rb    , 3.26113_rb    , 3.18438_rb    , 2.96921_rb    , &
+        & 2.69579_rb    , 2.35586_rb    , 1.93454_rb    , 1.44949_rb    , &
+        & 0.987347_rb   , 0.108611_rb   , 8.91643e-02_rb, 7.02236e-02_rb, &
+        & 5.12980e-02_rb, 3.25282e-02_rb, 1.21189e-02_rb, 1.56040e-03_rb /)
+      sfluxrefo(:,5) = (/ &
+        & 3.22497_rb    , 3.25109_rb    , 3.18741_rb    , 2.96970_rb    , &
+        & 2.69460_rb    , 2.36020_rb    , 1.93301_rb    , 1.45224_rb    , &
+        & 0.988564_rb   , 0.108255_rb   , 8.93830e-02_rb, 7.03655e-02_rb, &
+        & 5.13017e-02_rb, 3.29414e-02_rb, 1.21189e-02_rb, 1.56040e-03_rb /)
+      sfluxrefo(:,6) = (/ &
+        & 3.22632_rb    , 3.24174_rb    , 3.18524_rb    , 2.97402_rb    , &
+        & 2.69807_rb    , 2.35742_rb    , 1.93377_rb    , 1.45621_rb    , &
+        & 0.988132_rb   , 0.108344_rb   , 8.93188e-02_rb, 7.04907e-02_rb, &
+        & 5.17938e-02_rb, 3.31465e-02_rb, 1.21155e-02_rb, 1.56040e-03_rb /)
+      sfluxrefo(:,7) = (/ &
+        & 3.22793_rb    , 3.23589_rb    , 3.17720_rb    , 2.97869_rb    , &
+        & 2.70293_rb    , 2.35436_rb    , 1.93557_rb    , 1.45868_rb    , &
+        & 0.988654_rb   , 0.108198_rb   , 8.93375e-02_rb, 7.09790e-02_rb, &
+        & 5.24733e-02_rb, 3.31298e-02_rb, 1.21126e-02_rb, 1.56040e-03_rb /)
+      sfluxrefo(:,8) = (/ &
+        & 3.22966_rb    , 3.24087_rb    , 3.15676_rb    , 2.98171_rb    , &
+        & 2.70894_rb    , 2.34975_rb    , 1.93855_rb    , 1.46354_rb    , &
+        & 0.988544_rb   , 0.108574_rb   , 9.02522e-02_rb, 7.12908e-02_rb, &
+        & 5.24844e-02_rb, 3.31084e-02_rb, 1.21060e-02_rb, 1.56040e-03_rb /)
+      sfluxrefo(:,9) = (/ &
+        & 3.27240_rb    , 3.24666_rb    , 3.13886_rb    , 2.95238_rb    , &
+        & 2.70190_rb    , 2.34460_rb    , 1.93948_rb    , 1.47111_rb    , &
+        & 0.990821_rb   , 0.108730_rb   , 9.01625e-02_rb, 7.13261e-02_rb, &
+        & 5.24813e-02_rb, 3.31083e-02_rb, 1.21126e-02_rb, 1.56040e-03_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:,1) = (/ &
+        & 3.29286E+00_rb, 3.24885E+00_rb, 3.15900E+00_rb, 2.96040E+00_rb,&
+        & 2.69977E+00_rb, 2.35850E+00_rb, 1.94159E+00_rb, 1.45874E+00_rb,&
+        & 9.87699E-01_rb, 1.08954E-01_rb, 9.04621E-02_rb, 7.04124E-02_rb,&
+        & 5.15416E-02_rb, 3.26988E-02_rb, 1.24435E-02_rb, 1.76133E-03_rb/)
+      irradnceo(:,2) = (/ &
+        & 3.22496E+00_rb, 3.26018E+00_rb, 3.16804E+00_rb, 2.96961E+00_rb,&
+        & 2.70793E+00_rb, 2.36729E+00_rb, 1.94928E+00_rb, 1.46784E+00_rb,&
+        & 9.91843E-01_rb, 1.09396E-01_rb, 9.04612E-02_rb, 7.05080E-02_rb,&
+        & 5.15188E-02_rb, 3.27539E-02_rb, 1.24115E-02_rb, 1.65981E-03_rb/)
+      irradnceo(:,3) = (/ &
+        & 3.21236E+00_rb, 3.25198E+00_rb, 3.17586E+00_rb, 2.96576E+00_rb,&
+        & 2.70824E+00_rb, 2.37391E+00_rb, 1.95462E+00_rb, 1.46684E+00_rb,&
+        & 9.96719E-01_rb, 1.09657E-01_rb, 9.03525E-02_rb, 7.06845E-02_rb,&
+        & 5.16394E-02_rb, 3.28856E-02_rb, 1.25086E-02_rb, 1.65981E-03_rb/)
+      irradnceo(:,4) = (/ &
+        & 3.21237E+00_rb, 3.23846E+00_rb, 3.17989E+00_rb, 2.96225E+00_rb,&
+        & 2.70974E+00_rb, 2.37787E+00_rb, 1.95632E+00_rb, 1.46783E+00_rb,&
+        & 1.00020E+00_rb, 1.10287E-01_rb, 9.04245E-02_rb, 7.08427E-02_rb,&
+        & 5.18418E-02_rb, 3.31583E-02_rb, 1.25482E-02_rb, 1.65981E-03_rb/)
+      irradnceo(:,5) = (/ &
+        & 3.21234E+00_rb, 3.22907E+00_rb, 3.17922E+00_rb, 2.96430E+00_rb,&
+        & 2.70945E+00_rb, 2.37906E+00_rb, 1.95595E+00_rb, 1.47248E+00_rb,&
+        & 1.00200E+00_rb, 1.09940E-01_rb, 9.06673E-02_rb, 7.13884E-02_rb,&
+        & 5.19400E-02_rb, 3.36558E-02_rb, 1.25436E-02_rb, 1.65981E-03_rb/)
+      irradnceo(:,6) = (/ &
+        & 3.21276E+00_rb, 3.21675E+00_rb, 3.17737E+00_rb, 2.97201E+00_rb,&
+        & 2.70985E+00_rb, 2.37666E+00_rb, 1.95587E+00_rb, 1.47760E+00_rb,&
+        & 1.00387E+00_rb, 1.09480E-01_rb, 9.08326E-02_rb, 7.15717E-02_rb,&
+        & 5.31111E-02_rb, 3.37363E-02_rb, 1.25449E-02_rb, 1.65981E-03_rb/)
+      irradnceo(:,7) = (/ &
+        & 3.21323E+00_rb, 3.21715E+00_rb, 3.16001E+00_rb, 2.97836E+00_rb,&
+        & 2.71309E+00_rb, 2.37377E+00_rb, 1.95927E+00_rb, 1.48015E+00_rb,&
+        & 1.00588E+00_rb, 1.09771E-01_rb, 9.06271E-02_rb, 7.29082E-02_rb,&
+        & 5.35345E-02_rb, 3.37265E-02_rb, 1.25427E-02_rb, 1.65981E-03_rb/)
+      irradnceo(:,8) = (/ &
+        & 3.21454E+00_rb, 3.22206E+00_rb, 3.13704E+00_rb, 2.98088E+00_rb,&
+        & 2.72350E+00_rb, 2.36766E+00_rb, 1.95828E+00_rb, 1.48829E+00_rb,&
+        & 1.00641E+00_rb, 1.10868E-01_rb, 9.16997E-02_rb, 7.30508E-02_rb,&
+        & 5.34875E-02_rb, 3.37286E-02_rb, 1.25323E-02_rb, 1.65984E-03_rb/)
+      irradnceo(:,9) = (/ &
+        & 3.27853E+00_rb, 3.22066E+00_rb, 3.11487E+00_rb, 2.94851E+00_rb,&
+        & 2.71736E+00_rb, 2.35175E+00_rb, 1.96182E+00_rb, 1.49385E+00_rb,&
+        & 1.01121E+00_rb, 1.10865E-01_rb, 9.17954E-02_rb, 7.30072E-02_rb,&
+        & 5.35235E-02_rb, 3.37278E-02_rb, 1.25406E-02_rb, 1.65981E-03_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:,1) = (/ &
+        & 2.65541E-04_rb, 2.69664E-04_rb, 2.64272E-04_rb, 2.39897E-04_rb,&
+        & 2.08576E-04_rb, 1.73816E-04_rb, 1.27187E-04_rb, 9.35832E-05_rb,&
+        & 6.51644E-05_rb, 6.95323E-06_rb, 5.65076E-06_rb, 3.93261E-06_rb,&
+        & 2.80501E-06_rb, 1.74715E-06_rb, 6.82905E-07_rb, 1.04621E-07_rb/)
+      facbrghto(:,2) = (/ &
+        & 2.62055E-04_rb, 2.69019E-04_rb, 2.56732E-04_rb, 2.36500E-04_rb,&
+        & 2.10621E-04_rb, 1.72377E-04_rb, 1.33173E-04_rb, 9.89652E-05_rb,&
+        & 6.76075E-05_rb, 7.04834E-06_rb, 5.69313E-06_rb, 4.07868E-06_rb,&
+        & 2.97458E-06_rb, 1.80882E-06_rb, 7.43632E-07_rb, 1.78658E-07_rb/)
+      facbrghto(:,3) = (/ &
+        & 2.61651E-04_rb, 2.68249E-04_rb, 2.55386E-04_rb, 2.34114E-04_rb,&
+        & 2.08670E-04_rb, 1.70007E-04_rb, 1.35598E-04_rb, 1.02934E-04_rb,&
+        & 6.93774E-05_rb, 7.32597E-06_rb, 5.95116E-06_rb, 4.25768E-06_rb,&
+        & 2.90881E-06_rb, 1.88603E-06_rb, 1.08060E-06_rb, 1.78658E-07_rb/)
+      facbrghto(:,4) = (/ &
+        & 2.61872E-04_rb, 2.67128E-04_rb, 2.54409E-04_rb, 2.31214E-04_rb,&
+        & 2.08367E-04_rb, 1.68601E-04_rb, 1.36659E-04_rb, 1.05614E-04_rb,&
+        & 7.11289E-05_rb, 7.49937E-06_rb, 5.90873E-06_rb, 4.45262E-06_rb,&
+        & 3.32674E-06_rb, 2.08252E-06_rb, 1.13294E-06_rb, 1.78658E-07_rb/)
+      facbrghto(:,5) = (/ &
+        & 2.61996E-04_rb, 2.66348E-04_rb, 2.53227E-04_rb, 2.30506E-04_rb,&
+        & 2.05240E-04_rb, 1.67036E-04_rb, 1.39007E-04_rb, 1.07716E-04_rb,&
+        & 7.27332E-05_rb, 7.60283E-06_rb, 6.13186E-06_rb, 4.63423E-06_rb,&
+        & 3.27597E-06_rb, 2.80885E-06_rb, 1.13379E-06_rb, 1.78658E-07_rb/)
+      facbrghto(:,6) = (/ &
+        & 2.62227E-04_rb, 2.65325E-04_rb, 2.51577E-04_rb, 2.30266E-04_rb,&
+        & 1.99545E-04_rb, 1.69132E-04_rb, 1.40762E-04_rb, 1.09359E-04_rb,&
+        & 7.42886E-05_rb, 7.67481E-06_rb, 6.29675E-06_rb, 4.84250E-06_rb,&
+        & 4.01851E-06_rb, 2.94948E-06_rb, 1.13386E-06_rb, 1.78658E-07_rb/)
+      facbrghto(:,7) = (/ &
+        & 2.62454E-04_rb, 2.64243E-04_rb, 2.48983E-04_rb, 2.29993E-04_rb,&
+        & 1.95203E-04_rb, 1.69307E-04_rb, 1.43596E-04_rb, 1.11033E-04_rb,&
+        & 7.57847E-05_rb, 8.09006E-06_rb, 6.46175E-06_rb, 5.82815E-06_rb,&
+        & 4.33021E-06_rb, 2.95548E-06_rb, 1.13447E-06_rb, 1.78658E-07_rb/)
+      facbrghto(:,8) = (/ &
+        & 2.62554E-04_rb, 2.62449E-04_rb, 2.43949E-04_rb, 2.28673E-04_rb,&
+        & 1.94817E-04_rb, 1.68699E-04_rb, 1.45781E-04_rb, 1.13515E-04_rb,&
+        & 7.80069E-05_rb, 9.06515E-06_rb, 7.51718E-06_rb, 5.93589E-06_rb,&
+        & 4.34552E-06_rb, 2.95218E-06_rb, 1.13716E-06_rb, 1.78659E-07_rb/)
+      facbrghto(:,9) = (/ &
+        & 2.59937E-04_rb, 2.55765E-04_rb, 2.36349E-04_rb, 2.13143E-04_rb,&
+        & 2.01578E-04_rb, 1.77978E-04_rb, 1.51533E-04_rb, 1.18811E-04_rb,&
+        & 8.32132E-05_rb, 9.11293E-06_rb, 7.60989E-06_rb, 5.94609E-06_rb,&
+        & 4.33140E-06_rb, 2.95526E-06_rb, 1.13507E-06_rb, 1.78658E-07_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:,1) = (/ &
+        &-3.82079E-04_rb,-3.80434E-04_rb,-3.68787E-04_rb,-3.44649E-04_rb,&
+        &-3.13303E-04_rb,-2.73575E-04_rb,-2.25103E-04_rb,-1.69770E-04_rb,&
+        &-1.15124E-04_rb,-1.27085E-05_rb,-1.05676E-05_rb,-8.20294E-06_rb,&
+        &-6.00478E-06_rb,-3.82368E-06_rb,-1.44417E-06_rb,-2.03820E-07_rb/)
+      snsptdrko(:,2) = (/ &
+        &-3.71376E-04_rb,-3.82583E-04_rb,-3.71780E-04_rb,-3.47103E-04_rb,&
+        &-3.14745E-04_rb,-2.74199E-04_rb,-2.25693E-04_rb,-1.70142E-04_rb,&
+        &-1.15255E-04_rb,-1.27481E-05_rb,-1.05434E-05_rb,-8.17755E-06_rb,&
+        &-5.98639E-06_rb,-3.82133E-06_rb,-1.43787E-06_rb,-1.88080E-07_rb/)
+      snsptdrko(:,3) = (/ &
+        &-3.69376E-04_rb,-3.81303E-04_rb,-3.72509E-04_rb,-3.47756E-04_rb,&
+        &-3.15608E-04_rb,-2.74721E-04_rb,-2.26076E-04_rb,-1.70068E-04_rb,&
+        &-1.15578E-04_rb,-1.27548E-05_rb,-1.04313E-05_rb,-8.18666E-06_rb,&
+        &-5.99652E-06_rb,-3.82001E-06_rb,-1.40763E-06_rb,-1.88080E-07_rb/)
+      snsptdrko(:,4) = (/ &
+        &-3.69424E-04_rb,-3.78824E-04_rb,-3.73271E-04_rb,-3.47598E-04_rb,&
+        &-3.16553E-04_rb,-2.75211E-04_rb,-2.26141E-04_rb,-1.70157E-04_rb,&
+        &-1.15790E-04_rb,-1.27903E-05_rb,-1.04810E-05_rb,-8.17061E-06_rb,&
+        &-5.95800E-06_rb,-3.82068E-06_rb,-1.40301E-06_rb,-1.88080E-07_rb/)
+      snsptdrko(:,5) = (/ &
+        &-3.69544E-04_rb,-3.76205E-04_rb,-3.74015E-04_rb,-3.47781E-04_rb,&
+        &-3.17146E-04_rb,-2.75999E-04_rb,-2.25983E-04_rb,-1.70364E-04_rb,&
+        &-1.15998E-04_rb,-1.26938E-05_rb,-1.04424E-05_rb,-8.26345E-06_rb,&
+        &-5.99245E-06_rb,-3.76211E-06_rb,-1.40262E-06_rb,-1.88080E-07_rb/)
+      snsptdrko(:,6) = (/ &
+        &-3.69743E-04_rb,-3.73997E-04_rb,-3.73491E-04_rb,-3.48983E-04_rb,&
+        &-3.17850E-04_rb,-2.76183E-04_rb,-2.26053E-04_rb,-1.70571E-04_rb,&
+        &-1.16159E-04_rb,-1.26384E-05_rb,-1.04454E-05_rb,-8.24584E-06_rb,&
+        &-6.07922E-06_rb,-3.74953E-06_rb,-1.40255E-06_rb,-1.88080E-07_rb/)
+      snsptdrko(:,7) = (/ &
+        &-3.70028E-04_rb,-3.73495E-04_rb,-3.70853E-04_rb,-3.49824E-04_rb,&
+        &-3.18455E-04_rb,-2.76790E-04_rb,-2.26560E-04_rb,-1.70613E-04_rb,&
+        &-1.16363E-04_rb,-1.26311E-05_rb,-1.04368E-05_rb,-8.29029E-06_rb,&
+        &-6.10521E-06_rb,-3.74572E-06_rb,-1.40221E-06_rb,-1.88080E-07_rb/)
+      snsptdrko(:,8) = (/ &
+        &-3.70491E-04_rb,-3.73645E-04_rb,-3.65425E-04_rb,-3.51625E-04_rb,&
+        &-3.19853E-04_rb,-2.77340E-04_rb,-2.27148E-04_rb,-1.71242E-04_rb,&
+        &-1.16115E-04_rb,-1.27154E-05_rb,-1.04544E-05_rb,-8.29784E-06_rb,&
+        &-6.09114E-06_rb,-3.74735E-06_rb,-1.40078E-06_rb,-1.88080E-07_rb/)
+      snsptdrko(:,9) = (/ &
+        &-3.79132E-04_rb,-3.72764E-04_rb,-3.61234E-04_rb,-3.44057E-04_rb,&
+        &-3.20647E-04_rb,-2.78048E-04_rb,-2.29213E-04_rb,-1.71594E-04_rb,&
+        &-1.16202E-04_rb,-1.27089E-05_rb,-1.04521E-05_rb,-8.29095E-06_rb,&
+        &-6.09989E-06_rb,-3.74608E-06_rb,-1.40188E-06_rb,-1.88080E-07_rb/)
+
+! Rayleigh extinction coefficient at v = 4900 cm-1.
+      rayl = 2.29e-09_rb
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1, 1) = (/ &
+        & 0.14981e-05_rb,0.26659e-05_rb,0.31874e-05_rb,0.35509e-05_rb,0.37593e-05_rb, &
+        & 0.38514e-05_rb,0.37369e-05_rb,0.35011e-05_rb,0.23894e-05_rb /)
+      kao(:, 2, 1, 1) = (/ &
+        & 0.15103e-05_rb,0.27348e-05_rb,0.32692e-05_rb,0.36558e-05_rb,0.38926e-05_rb, &
+        & 0.39737e-05_rb,0.38798e-05_rb,0.36565e-05_rb,0.24072e-05_rb /)
+      kao(:, 3, 1, 1) = (/ &
+        & 0.15233e-05_rb,0.28090e-05_rb,0.33744e-05_rb,0.37729e-05_rb,0.40258e-05_rb, &
+        & 0.41107e-05_rb,0.40389e-05_rb,0.38226e-05_rb,0.24704e-05_rb /)
+      kao(:, 4, 1, 1) = (/ &
+        & 0.15219e-05_rb,0.28978e-05_rb,0.35015e-05_rb,0.38984e-05_rb,0.41569e-05_rb, &
+        & 0.42771e-05_rb,0.42110e-05_rb,0.39963e-05_rb,0.25504e-05_rb /)
+      kao(:, 5, 1, 1) = (/ &
+        & 0.15254e-05_rb,0.29633e-05_rb,0.36224e-05_rb,0.40435e-05_rb,0.42975e-05_rb, &
+        & 0.44410e-05_rb,0.43849e-05_rb,0.41847e-05_rb,0.26420e-05_rb /)
+      kao(:, 1, 2, 1) = (/ &
+        & 0.13024e-05_rb,0.23699e-05_rb,0.28370e-05_rb,0.31443e-05_rb,0.33326e-05_rb, &
+        & 0.33798e-05_rb,0.32797e-05_rb,0.30078e-05_rb,0.18819e-05_rb /)
+      kao(:, 2, 2, 1) = (/ &
+        & 0.13249e-05_rb,0.24299e-05_rb,0.29103e-05_rb,0.32336e-05_rb,0.34308e-05_rb, &
+        & 0.35019e-05_rb,0.34046e-05_rb,0.31323e-05_rb,0.19511e-05_rb /)
+      kao(:, 3, 2, 1) = (/ &
+        & 0.13241e-05_rb,0.25059e-05_rb,0.30019e-05_rb,0.33317e-05_rb,0.35516e-05_rb, &
+        & 0.36333e-05_rb,0.35372e-05_rb,0.32615e-05_rb,0.20254e-05_rb /)
+      kao(:, 4, 2, 1) = (/ &
+        & 0.13325e-05_rb,0.25840e-05_rb,0.31009e-05_rb,0.34399e-05_rb,0.36699e-05_rb, &
+        & 0.37727e-05_rb,0.36811e-05_rb,0.34016e-05_rb,0.20611e-05_rb /)
+      kao(:, 5, 2, 1) = (/ &
+        & 0.13321e-05_rb,0.26601e-05_rb,0.32189e-05_rb,0.35640e-05_rb,0.38012e-05_rb, &
+        & 0.39113e-05_rb,0.38271e-05_rb,0.35499e-05_rb,0.21368e-05_rb /)
+      kao(:, 1, 3, 1) = (/ &
+        & 0.11079e-05_rb,0.20757e-05_rb,0.24846e-05_rb,0.27511e-05_rb,0.28883e-05_rb, &
+        & 0.29142e-05_rb,0.28203e-05_rb,0.25706e-05_rb,0.15124e-05_rb /)
+      kao(:, 2, 3, 1) = (/ &
+        & 0.11298e-05_rb,0.21278e-05_rb,0.25551e-05_rb,0.28306e-05_rb,0.29814e-05_rb, &
+        & 0.30126e-05_rb,0.29328e-05_rb,0.26721e-05_rb,0.15784e-05_rb /)
+      kao(:, 3, 3, 1) = (/ &
+        & 0.11405e-05_rb,0.21812e-05_rb,0.26237e-05_rb,0.29130e-05_rb,0.30816e-05_rb, &
+        & 0.31265e-05_rb,0.30480e-05_rb,0.27784e-05_rb,0.16468e-05_rb /)
+      kao(:, 4, 3, 1) = (/ &
+        & 0.11347e-05_rb,0.22472e-05_rb,0.27094e-05_rb,0.30057e-05_rb,0.31821e-05_rb, &
+        & 0.32536e-05_rb,0.31714e-05_rb,0.28837e-05_rb,0.17189e-05_rb /)
+      kao(:, 5, 3, 1) = (/ &
+        & 0.11383e-05_rb,0.23152e-05_rb,0.28016e-05_rb,0.31126e-05_rb,0.33051e-05_rb, &
+        & 0.33759e-05_rb,0.32961e-05_rb,0.29993e-05_rb,0.17919e-05_rb /)
+      kao(:, 1, 4, 1) = (/ &
+        & 0.93104e-06_rb,0.18005e-05_rb,0.21693e-05_rb,0.23819e-05_rb,0.24829e-05_rb, &
+        & 0.24860e-05_rb,0.23860e-05_rb,0.21586e-05_rb,0.12198e-05_rb /)
+      kao(:, 2, 4, 1) = (/ &
+        & 0.94591e-06_rb,0.18309e-05_rb,0.22153e-05_rb,0.24487e-05_rb,0.25574e-05_rb, &
+        & 0.25721e-05_rb,0.24802e-05_rb,0.22458e-05_rb,0.13105e-05_rb /)
+      kao(:, 3, 4, 1) = (/ &
+        & 0.95638e-06_rb,0.18753e-05_rb,0.22788e-05_rb,0.25149e-05_rb,0.26499e-05_rb, &
+        & 0.26671e-05_rb,0.25797e-05_rb,0.23335e-05_rb,0.14017e-05_rb /)
+      kao(:, 4, 4, 1) = (/ &
+        & 0.95763e-06_rb,0.19379e-05_rb,0.23271e-05_rb,0.25858e-05_rb,0.27437e-05_rb, &
+        & 0.27792e-05_rb,0.26790e-05_rb,0.24268e-05_rb,0.14872e-05_rb /)
+      kao(:, 5, 4, 1) = (/ &
+        & 0.95668e-06_rb,0.19877e-05_rb,0.23997e-05_rb,0.26721e-05_rb,0.28382e-05_rb, &
+        & 0.28806e-05_rb,0.27857e-05_rb,0.25225e-05_rb,0.15698e-05_rb /)
+      kao(:, 1, 5, 1) = (/ &
+        & 0.77329e-06_rb,0.15354e-05_rb,0.18723e-05_rb,0.20411e-05_rb,0.21095e-05_rb, &
+        & 0.21017e-05_rb,0.19998e-05_rb,0.18017e-05_rb,0.97629e-06_rb /)
+      kao(:, 2, 5, 1) = (/ &
+        & 0.78241e-06_rb,0.15660e-05_rb,0.19091e-05_rb,0.20970e-05_rb,0.21786e-05_rb, &
+        & 0.21730e-05_rb,0.20794e-05_rb,0.18731e-05_rb,0.10645e-05_rb /)
+      kao(:, 3, 5, 1) = (/ &
+        & 0.79463e-06_rb,0.15948e-05_rb,0.19458e-05_rb,0.21529e-05_rb,0.22557e-05_rb, &
+        & 0.22576e-05_rb,0.21631e-05_rb,0.19462e-05_rb,0.11507e-05_rb /)
+      kao(:, 4, 5, 1) = (/ &
+        & 0.79779e-06_rb,0.16389e-05_rb,0.19877e-05_rb,0.22087e-05_rb,0.23274e-05_rb, &
+        & 0.23462e-05_rb,0.22501e-05_rb,0.20204e-05_rb,0.12366e-05_rb /)
+      kao(:, 5, 5, 1) = (/ &
+        & 0.79875e-06_rb,0.16865e-05_rb,0.20410e-05_rb,0.22789e-05_rb,0.24049e-05_rb, &
+        & 0.24283e-05_rb,0.23388e-05_rb,0.21006e-05_rb,0.13155e-05_rb /)
+      kao(:, 1, 6, 1) = (/ &
+        & 0.63799e-06_rb,0.13079e-05_rb,0.15873e-05_rb,0.17187e-05_rb,0.17689e-05_rb, &
+        & 0.17509e-05_rb,0.16625e-05_rb,0.14950e-05_rb,0.77624e-06_rb /)
+      kao(:, 2, 6, 1) = (/ &
+        & 0.64423e-06_rb,0.13180e-05_rb,0.16173e-05_rb,0.17648e-05_rb,0.18253e-05_rb, &
+        & 0.18152e-05_rb,0.17299e-05_rb,0.15482e-05_rb,0.85457e-06_rb /)
+      kao(:, 3, 6, 1) = (/ &
+        & 0.65214e-06_rb,0.13481e-05_rb,0.16476e-05_rb,0.18158e-05_rb,0.18867e-05_rb, &
+        & 0.18859e-05_rb,0.17999e-05_rb,0.16080e-05_rb,0.93968e-06_rb /)
+      kao(:, 4, 6, 1) = (/ &
+        & 0.65949e-06_rb,0.13728e-05_rb,0.16795e-05_rb,0.18618e-05_rb,0.19507e-05_rb, &
+        & 0.19568e-05_rb,0.18693e-05_rb,0.16710e-05_rb,0.10256e-05_rb /)
+      kao(:, 5, 6, 1) = (/ &
+        & 0.66012e-06_rb,0.14051e-05_rb,0.17174e-05_rb,0.19154e-05_rb,0.20111e-05_rb, &
+        & 0.20230e-05_rb,0.19421e-05_rb,0.17361e-05_rb,0.11072e-05_rb /)
+      kao(:, 1, 7, 1) = (/ &
+        & 0.52652e-06_rb,0.10995e-05_rb,0.13221e-05_rb,0.14282e-05_rb,0.14627e-05_rb, &
+        & 0.14494e-05_rb,0.13754e-05_rb,0.12359e-05_rb,0.62399e-06_rb /)
+      kao(:, 2, 7, 1) = (/ &
+        & 0.52631e-06_rb,0.11047e-05_rb,0.13498e-05_rb,0.14646e-05_rb,0.15094e-05_rb, &
+        & 0.14961e-05_rb,0.14272e-05_rb,0.12791e-05_rb,0.69692e-06_rb /)
+      kao(:, 3, 7, 1) = (/ &
+        & 0.53263e-06_rb,0.11231e-05_rb,0.13763e-05_rb,0.15059e-05_rb,0.15602e-05_rb, &
+        & 0.15533e-05_rb,0.14827e-05_rb,0.13257e-05_rb,0.76959e-06_rb /)
+      kao(:, 4, 7, 1) = (/ &
+        & 0.53788e-06_rb,0.11448e-05_rb,0.14026e-05_rb,0.15478e-05_rb,0.16122e-05_rb, &
+        & 0.16137e-05_rb,0.15398e-05_rb,0.13748e-05_rb,0.84488e-06_rb /)
+      kao(:, 5, 7, 1) = (/ &
+        & 0.54243e-06_rb,0.11660e-05_rb,0.14288e-05_rb,0.15891e-05_rb,0.16619e-05_rb, &
+        & 0.16672e-05_rb,0.15978e-05_rb,0.14265e-05_rb,0.92439e-06_rb /)
+      kao(:, 1, 8, 1) = (/ &
+        & 0.42860e-06_rb,0.91208e-06_rb,0.10887e-05_rb,0.11732e-05_rb,0.12000e-05_rb, &
+        & 0.11901e-05_rb,0.11300e-05_rb,0.10181e-05_rb,0.51360e-06_rb /)
+      kao(:, 2, 8, 1) = (/ &
+        & 0.42605e-06_rb,0.91355e-06_rb,0.11105e-05_rb,0.12004e-05_rb,0.12359e-05_rb, &
+        & 0.12238e-05_rb,0.11674e-05_rb,0.10496e-05_rb,0.58593e-06_rb /)
+      kao(:, 3, 8, 1) = (/ &
+        & 0.42910e-06_rb,0.92458e-06_rb,0.11341e-05_rb,0.12355e-05_rb,0.12754e-05_rb, &
+        & 0.12667e-05_rb,0.12100e-05_rb,0.10877e-05_rb,0.65209e-06_rb /)
+      kao(:, 4, 8, 1) = (/ &
+        & 0.43345e-06_rb,0.94024e-06_rb,0.11540e-05_rb,0.12669e-05_rb,0.13186e-05_rb, &
+        & 0.13163e-05_rb,0.12567e-05_rb,0.11280e-05_rb,0.72051e-06_rb /)
+      kao(:, 5, 8, 1) = (/ &
+        & 0.43744e-06_rb,0.95845e-06_rb,0.11764e-05_rb,0.13022e-05_rb,0.13595e-05_rb, &
+        & 0.13618e-05_rb,0.13034e-05_rb,0.11671e-05_rb,0.79373e-06_rb /)
+      kao(:, 1, 9, 1) = (/ &
+        & 0.34458e-06_rb,0.74844e-06_rb,0.89217e-06_rb,0.95875e-06_rb,0.98243e-06_rb, &
+        & 0.97566e-06_rb,0.92936e-06_rb,0.83611e-06_rb,0.44181e-06_rb /)
+      kao(:, 2, 9, 1) = (/ &
+        & 0.34797e-06_rb,0.75304e-06_rb,0.90816e-06_rb,0.98264e-06_rb,0.10080e-05_rb, &
+        & 0.99889e-06_rb,0.95318e-06_rb,0.86041e-06_rb,0.51013e-06_rb /)
+      kao(:, 3, 9, 1) = (/ &
+        & 0.34593e-06_rb,0.76020e-06_rb,0.92707e-06_rb,0.10062e-05_rb,0.10391e-05_rb, &
+        & 0.10296e-05_rb,0.98530e-06_rb,0.89011e-06_rb,0.58070e-06_rb /)
+      kao(:, 4, 9, 1) = (/ &
+        & 0.34971e-06_rb,0.77088e-06_rb,0.94623e-06_rb,0.10342e-05_rb,0.10726e-05_rb, &
+        & 0.10689e-05_rb,0.10210e-05_rb,0.92020e-06_rb,0.65697e-06_rb /)
+      kao(:, 5, 9, 1) = (/ &
+        & 0.35282e-06_rb,0.78517e-06_rb,0.96245e-06_rb,0.10609e-05_rb,0.11071e-05_rb, &
+        & 0.11073e-05_rb,0.10583e-05_rb,0.95054e-06_rb,0.72956e-06_rb /)
+      kao(:, 1,10, 1) = (/ &
+        & 0.27840e-06_rb,0.61035e-06_rb,0.72930e-06_rb,0.78415e-06_rb,0.80451e-06_rb, &
+        & 0.79924e-06_rb,0.76231e-06_rb,0.68727e-06_rb,0.40208e-06_rb /)
+      kao(:, 2,10, 1) = (/ &
+        & 0.28171e-06_rb,0.61798e-06_rb,0.74197e-06_rb,0.80115e-06_rb,0.82183e-06_rb, &
+        & 0.81621e-06_rb,0.78030e-06_rb,0.70425e-06_rb,0.46700e-06_rb /)
+      kao(:, 3,10, 1) = (/ &
+        & 0.28023e-06_rb,0.62269e-06_rb,0.75685e-06_rb,0.82101e-06_rb,0.84538e-06_rb, &
+        & 0.83821e-06_rb,0.80301e-06_rb,0.72663e-06_rb,0.53781e-06_rb /)
+      kao(:, 4,10, 1) = (/ &
+        & 0.28163e-06_rb,0.63156e-06_rb,0.77214e-06_rb,0.84244e-06_rb,0.87184e-06_rb, &
+        & 0.86752e-06_rb,0.83024e-06_rb,0.75000e-06_rb,0.60478e-06_rb /)
+      kao(:, 5,10, 1) = (/ &
+        & 0.28518e-06_rb,0.64070e-06_rb,0.78628e-06_rb,0.86439e-06_rb,0.89969e-06_rb, &
+        & 0.89910e-06_rb,0.85933e-06_rb,0.77376e-06_rb,0.67016e-06_rb /)
+      kao(:, 1,11, 1) = (/ &
+        & 0.22555e-06_rb,0.50042e-06_rb,0.59960e-06_rb,0.64537e-06_rb,0.66324e-06_rb, &
+        & 0.65924e-06_rb,0.63003e-06_rb,0.56890e-06_rb,0.34466e-06_rb /)
+      kao(:, 2,11, 1) = (/ &
+        & 0.22858e-06_rb,0.50705e-06_rb,0.60997e-06_rb,0.65948e-06_rb,0.67688e-06_rb, &
+        & 0.67311e-06_rb,0.64462e-06_rb,0.58333e-06_rb,0.40300e-06_rb /)
+      kao(:, 3,11, 1) = (/ &
+        & 0.22677e-06_rb,0.51178e-06_rb,0.62299e-06_rb,0.67572e-06_rb,0.69624e-06_rb, &
+        & 0.69126e-06_rb,0.66285e-06_rb,0.60090e-06_rb,0.46066e-06_rb /)
+      kao(:, 4,11, 1) = (/ &
+        & 0.22825e-06_rb,0.51907e-06_rb,0.63500e-06_rb,0.69311e-06_rb,0.71796e-06_rb, &
+        & 0.71484e-06_rb,0.68416e-06_rb,0.61859e-06_rb,0.51966e-06_rb /)
+      kao(:, 5,11, 1) = (/ &
+        & 0.23122e-06_rb,0.52598e-06_rb,0.64574e-06_rb,0.71116e-06_rb,0.74046e-06_rb, &
+        & 0.73979e-06_rb,0.70672e-06_rb,0.63708e-06_rb,0.58196e-06_rb /)
+      kao(:, 1,12, 1) = (/ &
+        & 0.18149e-06_rb,0.40829e-06_rb,0.49022e-06_rb,0.52910e-06_rb,0.54408e-06_rb, &
+        & 0.54163e-06_rb,0.51867e-06_rb,0.46933e-06_rb,0.28496e-06_rb /)
+      kao(:, 2,12, 1) = (/ &
+        & 0.18433e-06_rb,0.41378e-06_rb,0.49908e-06_rb,0.54027e-06_rb,0.55522e-06_rb, &
+        & 0.55286e-06_rb,0.53038e-06_rb,0.48103e-06_rb,0.33336e-06_rb /)
+      kao(:, 3,12, 1) = (/ &
+        & 0.18246e-06_rb,0.41799e-06_rb,0.50965e-06_rb,0.55347e-06_rb,0.57134e-06_rb, &
+        & 0.56787e-06_rb,0.54477e-06_rb,0.49462e-06_rb,0.38023e-06_rb /)
+      kao(:, 4,12, 1) = (/ &
+        & 0.18409e-06_rb,0.42347e-06_rb,0.51936e-06_rb,0.56749e-06_rb,0.58877e-06_rb, &
+        & 0.58648e-06_rb,0.56149e-06_rb,0.50825e-06_rb,0.43081e-06_rb /)
+      kao(:, 5,12, 1) = (/ &
+        & 0.18582e-06_rb,0.42888e-06_rb,0.52830e-06_rb,0.58240e-06_rb,0.60647e-06_rb, &
+        & 0.60598e-06_rb,0.57933e-06_rb,0.52277e-06_rb,0.48565e-06_rb /)
+      kao(:, 1,13, 1) = (/ &
+        & 0.14345e-06_rb,0.32927e-06_rb,0.39750e-06_rb,0.43000e-06_rb,0.44318e-06_rb, &
+        & 0.44201e-06_rb,0.42469e-06_rb,0.38538e-06_rb,0.23377e-06_rb /)
+      kao(:, 2,13, 1) = (/ &
+        & 0.14571e-06_rb,0.33355e-06_rb,0.40430e-06_rb,0.43954e-06_rb,0.45256e-06_rb, &
+        & 0.45159e-06_rb,0.43399e-06_rb,0.39467e-06_rb,0.27338e-06_rb /)
+      kao(:, 3,13, 1) = (/ &
+        & 0.14442e-06_rb,0.33719e-06_rb,0.41316e-06_rb,0.44996e-06_rb,0.46575e-06_rb, &
+        & 0.46364e-06_rb,0.44528e-06_rb,0.40510e-06_rb,0.31154e-06_rb /)
+      kao(:, 4,13, 1) = (/ &
+        & 0.14600e-06_rb,0.34141e-06_rb,0.42136e-06_rb,0.46096e-06_rb,0.47937e-06_rb, &
+        & 0.47817e-06_rb,0.45850e-06_rb,0.41598e-06_rb,0.35289e-06_rb /)
+      kao(:, 5,13, 1) = (/ &
+        & 0.14667e-06_rb,0.34608e-06_rb,0.42853e-06_rb,0.47296e-06_rb,0.49300e-06_rb, &
+        & 0.49352e-06_rb,0.47280e-06_rb,0.42757e-06_rb,0.39752e-06_rb /)
+      kao(:, 1, 1, 2) = (/ &
+        & 0.16288e-04_rb,0.25817e-04_rb,0.29597e-04_rb,0.31319e-04_rb,0.31220e-04_rb, &
+        & 0.29539e-04_rb,0.25627e-04_rb,0.19758e-04_rb,0.72944e-05_rb /)
+      kao(:, 2, 1, 2) = (/ &
+        & 0.18123e-04_rb,0.28565e-04_rb,0.32633e-04_rb,0.34427e-04_rb,0.34219e-04_rb, &
+        & 0.32223e-04_rb,0.27987e-04_rb,0.21485e-04_rb,0.79554e-05_rb /)
+      kao(:, 3, 1, 2) = (/ &
+        & 0.19957e-04_rb,0.31607e-04_rb,0.36033e-04_rb,0.37887e-04_rb,0.37694e-04_rb, &
+        & 0.35399e-04_rb,0.30718e-04_rb,0.23412e-04_rb,0.85293e-05_rb /)
+      kao(:, 4, 1, 2) = (/ &
+        & 0.22005e-04_rb,0.35064e-04_rb,0.39763e-04_rb,0.41694e-04_rb,0.41490e-04_rb, &
+        & 0.38891e-04_rb,0.33715e-04_rb,0.25512e-04_rb,0.91232e-05_rb /)
+      kao(:, 5, 1, 2) = (/ &
+        & 0.24240e-04_rb,0.38906e-04_rb,0.43899e-04_rb,0.45870e-04_rb,0.45580e-04_rb, &
+        & 0.42616e-04_rb,0.36912e-04_rb,0.27728e-04_rb,0.97792e-05_rb /)
+      kao(:, 1, 2, 2) = (/ &
+        & 0.14944e-04_rb,0.23223e-04_rb,0.25792e-04_rb,0.27019e-04_rb,0.26963e-04_rb, &
+        & 0.25431e-04_rb,0.22069e-04_rb,0.16933e-04_rb,0.59071e-05_rb /)
+      kao(:, 2, 2, 2) = (/ &
+        & 0.16615e-04_rb,0.25452e-04_rb,0.28322e-04_rb,0.29800e-04_rb,0.29593e-04_rb, &
+        & 0.27776e-04_rb,0.24123e-04_rb,0.18444e-04_rb,0.63142e-05_rb /)
+      kao(:, 3, 2, 2) = (/ &
+        & 0.18355e-04_rb,0.27996e-04_rb,0.31338e-04_rb,0.32892e-04_rb,0.32575e-04_rb, &
+        & 0.30478e-04_rb,0.26504e-04_rb,0.20132e-04_rb,0.67898e-05_rb /)
+      kao(:, 4, 2, 2) = (/ &
+        & 0.20092e-04_rb,0.30938e-04_rb,0.34680e-04_rb,0.36255e-04_rb,0.35836e-04_rb, &
+        & 0.33500e-04_rb,0.29106e-04_rb,0.21950e-04_rb,0.73343e-05_rb /)
+      kao(:, 5, 2, 2) = (/ &
+        & 0.21897e-04_rb,0.34150e-04_rb,0.38274e-04_rb,0.39931e-04_rb,0.39337e-04_rb, &
+        & 0.36752e-04_rb,0.31831e-04_rb,0.23882e-04_rb,0.78705e-05_rb /)
+      kao(:, 1, 3, 2) = (/ &
+        & 0.13130e-04_rb,0.20363e-04_rb,0.22377e-04_rb,0.23003e-04_rb,0.22683e-04_rb, &
+        & 0.21429e-04_rb,0.18621e-04_rb,0.14177e-04_rb,0.47892e-05_rb /)
+      kao(:, 2, 3, 2) = (/ &
+        & 0.14610e-04_rb,0.22299e-04_rb,0.24486e-04_rb,0.25140e-04_rb,0.24842e-04_rb, &
+        & 0.23413e-04_rb,0.20361e-04_rb,0.15469e-04_rb,0.52250e-05_rb /)
+      kao(:, 3, 3, 2) = (/ &
+        & 0.16133e-04_rb,0.24482e-04_rb,0.26876e-04_rb,0.27653e-04_rb,0.27357e-04_rb, &
+        & 0.25669e-04_rb,0.22341e-04_rb,0.16897e-04_rb,0.56647e-05_rb /)
+      kao(:, 4, 3, 2) = (/ &
+        & 0.17708e-04_rb,0.26887e-04_rb,0.29522e-04_rb,0.30577e-04_rb,0.30151e-04_rb, &
+        & 0.28221e-04_rb,0.24545e-04_rb,0.18455e-04_rb,0.60735e-05_rb /)
+      kao(:, 5, 3, 2) = (/ &
+        & 0.19305e-04_rb,0.29364e-04_rb,0.32520e-04_rb,0.33741e-04_rb,0.33162e-04_rb, &
+        & 0.30976e-04_rb,0.26800e-04_rb,0.20103e-04_rb,0.64864e-05_rb /)
+      kao(:, 1, 4, 2) = (/ &
+        & 0.11163e-04_rb,0.17498e-04_rb,0.19069e-04_rb,0.19561e-04_rb,0.19154e-04_rb, &
+        & 0.17906e-04_rb,0.15522e-04_rb,0.11778e-04_rb,0.40461e-05_rb /)
+      kao(:, 2, 4, 2) = (/ &
+        & 0.12505e-04_rb,0.19238e-04_rb,0.20917e-04_rb,0.21365e-04_rb,0.20913e-04_rb, &
+        & 0.19471e-04_rb,0.16986e-04_rb,0.12856e-04_rb,0.43935e-05_rb /)
+      kao(:, 3, 4, 2) = (/ &
+        & 0.13848e-04_rb,0.21132e-04_rb,0.22975e-04_rb,0.23433e-04_rb,0.22893e-04_rb, &
+        & 0.21327e-04_rb,0.18662e-04_rb,0.14056e-04_rb,0.47015e-05_rb /)
+      kao(:, 4, 4, 2) = (/ &
+        & 0.15219e-04_rb,0.23159e-04_rb,0.25250e-04_rb,0.25753e-04_rb,0.25088e-04_rb, &
+        & 0.23437e-04_rb,0.20455e-04_rb,0.15366e-04_rb,0.50239e-05_rb /)
+      kao(:, 5, 4, 2) = (/ &
+        & 0.16631e-04_rb,0.25311e-04_rb,0.27651e-04_rb,0.28243e-04_rb,0.27566e-04_rb, &
+        & 0.25775e-04_rb,0.22344e-04_rb,0.16758e-04_rb,0.53594e-05_rb /)
+      kao(:, 1, 5, 2) = (/ &
+        & 0.92688e-05_rb,0.14829e-04_rb,0.16036e-04_rb,0.16388e-04_rb,0.16087e-04_rb, &
+        & 0.15049e-04_rb,0.12939e-04_rb,0.97243e-05_rb,0.35064e-05_rb /)
+      kao(:, 2, 5, 2) = (/ &
+        & 0.10428e-04_rb,0.16289e-04_rb,0.17596e-04_rb,0.17928e-04_rb,0.17547e-04_rb, &
+        & 0.16347e-04_rb,0.14108e-04_rb,0.10621e-04_rb,0.37893e-05_rb /)
+      kao(:, 3, 5, 2) = (/ &
+        & 0.11600e-04_rb,0.17922e-04_rb,0.19403e-04_rb,0.19701e-04_rb,0.19227e-04_rb, &
+        & 0.17835e-04_rb,0.15439e-04_rb,0.11627e-04_rb,0.40426e-05_rb /)
+      kao(:, 4, 5, 2) = (/ &
+        & 0.12795e-04_rb,0.19672e-04_rb,0.21360e-04_rb,0.21677e-04_rb,0.21078e-04_rb, &
+        & 0.19535e-04_rb,0.16919e-04_rb,0.12746e-04_rb,0.43015e-05_rb /)
+      kao(:, 5, 5, 2) = (/ &
+        & 0.14029e-04_rb,0.21551e-04_rb,0.23410e-04_rb,0.23746e-04_rb,0.23106e-04_rb, &
+        & 0.21397e-04_rb,0.18500e-04_rb,0.13918e-04_rb,0.45663e-05_rb /)
+      kao(:, 1, 6, 2) = (/ &
+        & 0.75358e-05_rb,0.12284e-04_rb,0.13321e-04_rb,0.13580e-04_rb,0.13322e-04_rb, &
+        & 0.12459e-04_rb,0.10757e-04_rb,0.80012e-05_rb,0.28595e-05_rb /)
+      kao(:, 2, 6, 2) = (/ &
+        & 0.84801e-05_rb,0.13541e-04_rb,0.14600e-04_rb,0.14857e-04_rb,0.14519e-04_rb, &
+        & 0.13528e-04_rb,0.11747e-04_rb,0.87199e-05_rb,0.31250e-05_rb /)
+      kao(:, 3, 6, 2) = (/ &
+        & 0.94797e-05_rb,0.14898e-04_rb,0.16088e-04_rb,0.16329e-04_rb,0.15922e-04_rb, &
+        & 0.14786e-04_rb,0.12839e-04_rb,0.95406e-05_rb,0.33925e-05_rb /)
+      kao(:, 4, 6, 2) = (/ &
+        & 0.10510e-04_rb,0.16387e-04_rb,0.17709e-04_rb,0.17968e-04_rb,0.17465e-04_rb, &
+        & 0.16205e-04_rb,0.13999e-04_rb,0.10465e-04_rb,0.36786e-05_rb /)
+      kao(:, 5, 6, 2) = (/ &
+        & 0.11554e-04_rb,0.17973e-04_rb,0.19442e-04_rb,0.19736e-04_rb,0.19170e-04_rb, &
+        & 0.17751e-04_rb,0.15288e-04_rb,0.11441e-04_rb,0.39618e-05_rb /)
+      kao(:, 1, 7, 2) = (/ &
+        & 0.59994e-05_rb,0.10068e-04_rb,0.10903e-04_rb,0.11100e-04_rb,0.10910e-04_rb, &
+        & 0.10207e-04_rb,0.88301e-05_rb,0.65755e-05_rb,0.23537e-05_rb /)
+      kao(:, 2, 7, 2) = (/ &
+        & 0.67911e-05_rb,0.11098e-04_rb,0.11964e-04_rb,0.12161e-04_rb,0.11910e-04_rb, &
+        & 0.11113e-04_rb,0.96475e-05_rb,0.71733e-05_rb,0.26021e-05_rb /)
+      kao(:, 3, 7, 2) = (/ &
+        & 0.76012e-05_rb,0.12205e-04_rb,0.13167e-04_rb,0.13368e-04_rb,0.13058e-04_rb, &
+        & 0.12136e-04_rb,0.10571e-04_rb,0.78452e-05_rb,0.28416e-05_rb /)
+      kao(:, 4, 7, 2) = (/ &
+        & 0.84582e-05_rb,0.13412e-04_rb,0.14518e-04_rb,0.14721e-04_rb,0.14328e-04_rb, &
+        & 0.13323e-04_rb,0.11527e-04_rb,0.85995e-05_rb,0.30925e-05_rb /)
+      kao(:, 5, 7, 2) = (/ &
+        & 0.93346e-05_rb,0.14749e-04_rb,0.15973e-04_rb,0.16180e-04_rb,0.15730e-04_rb, &
+        & 0.14597e-04_rb,0.12601e-04_rb,0.93973e-05_rb,0.33285e-05_rb /)
+      kao(:, 1, 8, 2) = (/ &
+        & 0.47174e-05_rb,0.81367e-05_rb,0.88184e-05_rb,0.90007e-05_rb,0.88363e-05_rb, &
+        & 0.83059e-05_rb,0.72101e-05_rb,0.53496e-05_rb,0.18862e-05_rb /)
+      kao(:, 2, 8, 2) = (/ &
+        & 0.53543e-05_rb,0.89852e-05_rb,0.96904e-05_rb,0.98666e-05_rb,0.96509e-05_rb, &
+        & 0.90368e-05_rb,0.78700e-05_rb,0.58341e-05_rb,0.21147e-05_rb /)
+      kao(:, 3, 8, 2) = (/ &
+        & 0.60088e-05_rb,0.98855e-05_rb,0.10666e-04_rb,0.10849e-04_rb,0.10597e-04_rb, &
+        & 0.98826e-05_rb,0.86243e-05_rb,0.63949e-05_rb,0.23672e-05_rb /)
+      kao(:, 4, 8, 2) = (/ &
+        & 0.66958e-05_rb,0.10873e-04_rb,0.11751e-04_rb,0.11945e-04_rb,0.11636e-04_rb, &
+        & 0.10852e-04_rb,0.94101e-05_rb,0.70262e-05_rb,0.26329e-05_rb /)
+      kao(:, 5, 8, 2) = (/ &
+        & 0.74191e-05_rb,0.11960e-04_rb,0.12943e-04_rb,0.13152e-04_rb,0.12788e-04_rb, &
+        & 0.11889e-04_rb,0.10297e-04_rb,0.76977e-05_rb,0.29019e-05_rb /)
+      kao(:, 1, 9, 2) = (/ &
+        & 0.36886e-05_rb,0.65140e-05_rb,0.70684e-05_rb,0.72377e-05_rb,0.71080e-05_rb, &
+        & 0.67076e-05_rb,0.58353e-05_rb,0.43297e-05_rb,0.16419e-05_rb /)
+      kao(:, 2, 9, 2) = (/ &
+        & 0.41772e-05_rb,0.72104e-05_rb,0.77793e-05_rb,0.79335e-05_rb,0.77682e-05_rb, &
+        & 0.72903e-05_rb,0.63640e-05_rb,0.47210e-05_rb,0.18721e-05_rb /)
+      kao(:, 3, 9, 2) = (/ &
+        & 0.47123e-05_rb,0.79471e-05_rb,0.85662e-05_rb,0.87396e-05_rb,0.85319e-05_rb, &
+        & 0.79769e-05_rb,0.69694e-05_rb,0.51793e-05_rb,0.21015e-05_rb /)
+      kao(:, 4, 9, 2) = (/ &
+        & 0.52612e-05_rb,0.87319e-05_rb,0.94365e-05_rb,0.96191e-05_rb,0.93783e-05_rb, &
+        & 0.87581e-05_rb,0.76277e-05_rb,0.56974e-05_rb,0.23505e-05_rb /)
+      kao(:, 5, 9, 2) = (/ &
+        & 0.58401e-05_rb,0.96106e-05_rb,0.10404e-04_rb,0.10594e-04_rb,0.10308e-04_rb, &
+        & 0.96030e-05_rb,0.83402e-05_rb,0.62627e-05_rb,0.26170e-05_rb /)
+      kao(:, 1,10, 2) = (/ &
+        & 0.29023e-05_rb,0.52230e-05_rb,0.56669e-05_rb,0.58158e-05_rb,0.57137e-05_rb, &
+        & 0.54241e-05_rb,0.47416e-05_rb,0.35098e-05_rb,0.14223e-05_rb /)
+      kao(:, 2,10, 2) = (/ &
+        & 0.32752e-05_rb,0.57903e-05_rb,0.62548e-05_rb,0.63859e-05_rb,0.62528e-05_rb, &
+        & 0.58881e-05_rb,0.51542e-05_rb,0.38257e-05_rb,0.16559e-05_rb /)
+      kao(:, 3,10, 2) = (/ &
+        & 0.37047e-05_rb,0.63892e-05_rb,0.68928e-05_rb,0.70312e-05_rb,0.68734e-05_rb, &
+        & 0.64357e-05_rb,0.56361e-05_rb,0.42003e-05_rb,0.19248e-05_rb /)
+      kao(:, 4,10, 2) = (/ &
+        & 0.41471e-05_rb,0.70179e-05_rb,0.75920e-05_rb,0.77496e-05_rb,0.75508e-05_rb, &
+        & 0.70624e-05_rb,0.61778e-05_rb,0.46271e-05_rb,0.22074e-05_rb /)
+      kao(:, 5,10, 2) = (/ &
+        & 0.46061e-05_rb,0.77215e-05_rb,0.83699e-05_rb,0.85300e-05_rb,0.83121e-05_rb, &
+        & 0.77493e-05_rb,0.67551e-05_rb,0.50931e-05_rb,0.25043e-05_rb /)
+      kao(:, 1,11, 2) = (/ &
+        & 0.24060e-05_rb,0.43752e-05_rb,0.47372e-05_rb,0.48598e-05_rb,0.47689e-05_rb, &
+        & 0.45290e-05_rb,0.39653e-05_rb,0.29444e-05_rb,0.12255e-05_rb /)
+      kao(:, 2,11, 2) = (/ &
+        & 0.27123e-05_rb,0.48479e-05_rb,0.52339e-05_rb,0.53482e-05_rb,0.52342e-05_rb, &
+        & 0.49275e-05_rb,0.43239e-05_rb,0.32196e-05_rb,0.14282e-05_rb /)
+      kao(:, 3,11, 2) = (/ &
+        & 0.30632e-05_rb,0.53402e-05_rb,0.57660e-05_rb,0.58936e-05_rb,0.57515e-05_rb, &
+        & 0.53873e-05_rb,0.47344e-05_rb,0.35410e-05_rb,0.16636e-05_rb /)
+      kao(:, 4,11, 2) = (/ &
+        & 0.34245e-05_rb,0.58653e-05_rb,0.63554e-05_rb,0.64878e-05_rb,0.63244e-05_rb, &
+        & 0.59147e-05_rb,0.51855e-05_rb,0.39068e-05_rb,0.18858e-05_rb /)
+      kao(:, 5,11, 2) = (/ &
+        & 0.37984e-05_rb,0.64557e-05_rb,0.70032e-05_rb,0.71432e-05_rb,0.69591e-05_rb, &
+        & 0.64936e-05_rb,0.56748e-05_rb,0.42889e-05_rb,0.21529e-05_rb /)
+      kao(:, 1,12, 2) = (/ &
+        & 0.19822e-05_rb,0.36438e-05_rb,0.39439e-05_rb,0.40428e-05_rb,0.39656e-05_rb, &
+        & 0.37627e-05_rb,0.33048e-05_rb,0.24620e-05_rb,0.10349e-05_rb /)
+      kao(:, 2,12, 2) = (/ &
+        & 0.22347e-05_rb,0.40329e-05_rb,0.43559e-05_rb,0.44535e-05_rb,0.43556e-05_rb, &
+        & 0.41018e-05_rb,0.36156e-05_rb,0.26976e-05_rb,0.12078e-05_rb /)
+      kao(:, 3,12, 2) = (/ &
+        & 0.25196e-05_rb,0.44405e-05_rb,0.47965e-05_rb,0.49025e-05_rb,0.47850e-05_rb, &
+        & 0.44854e-05_rb,0.39542e-05_rb,0.29734e-05_rb,0.13908e-05_rb /)
+      kao(:, 4,12, 2) = (/ &
+        & 0.28142e-05_rb,0.48792e-05_rb,0.52882e-05_rb,0.53962e-05_rb,0.52646e-05_rb, &
+        & 0.49202e-05_rb,0.43229e-05_rb,0.32817e-05_rb,0.15895e-05_rb /)
+      kao(:, 5,12, 2) = (/ &
+        & 0.31182e-05_rb,0.53684e-05_rb,0.58256e-05_rb,0.59413e-05_rb,0.57855e-05_rb, &
+        & 0.54043e-05_rb,0.47298e-05_rb,0.35925e-05_rb,0.18050e-05_rb /)
+      kao(:, 1,13, 2) = (/ &
+        & 0.16206e-05_rb,0.30122e-05_rb,0.32612e-05_rb,0.33451e-05_rb,0.32794e-05_rb, &
+        & 0.31144e-05_rb,0.27430e-05_rb,0.20488e-05_rb,0.85267e-06_rb /)
+      kao(:, 2,13, 2) = (/ &
+        & 0.18267e-05_rb,0.33331e-05_rb,0.36002e-05_rb,0.36816e-05_rb,0.36054e-05_rb, &
+        & 0.33950e-05_rb,0.30021e-05_rb,0.22487e-05_rb,0.99490e-06_rb /)
+      kao(:, 3,13, 2) = (/ &
+        & 0.20587e-05_rb,0.36681e-05_rb,0.39651e-05_rb,0.40531e-05_rb,0.39564e-05_rb, &
+        & 0.37127e-05_rb,0.32815e-05_rb,0.24795e-05_rb,0.11422e-05_rb /)
+      kao(:, 4,13, 2) = (/ &
+        & 0.22973e-05_rb,0.40325e-05_rb,0.43728e-05_rb,0.44600e-05_rb,0.43540e-05_rb, &
+        & 0.40718e-05_rb,0.35848e-05_rb,0.27366e-05_rb,0.13051e-05_rb /)
+      kao(:, 5,13, 2) = (/ &
+        & 0.25452e-05_rb,0.44379e-05_rb,0.48164e-05_rb,0.49100e-05_rb,0.47833e-05_rb, &
+        & 0.44674e-05_rb,0.39194e-05_rb,0.29904e-05_rb,0.14817e-05_rb /)
+      kao(:, 1, 1, 3) = (/ &
+        & 0.66641e-04_rb,0.92990e-04_rb,0.96277e-04_rb,0.95182e-04_rb,0.91424e-04_rb, &
+        & 0.85445e-04_rb,0.77014e-04_rb,0.62091e-04_rb,0.18284e-04_rb /)
+      kao(:, 2, 1, 3) = (/ &
+        & 0.75350e-04_rb,0.10391e-03_rb,0.10751e-03_rb,0.10606e-03_rb,0.10174e-03_rb, &
+        & 0.94756e-04_rb,0.84487e-04_rb,0.67267e-04_rb,0.20037e-04_rb /)
+      kao(:, 3, 1, 3) = (/ &
+        & 0.85286e-04_rb,0.11563e-03_rb,0.11966e-03_rb,0.11777e-03_rb,0.11259e-03_rb, &
+        & 0.10435e-03_rb,0.92076e-04_rb,0.72492e-04_rb,0.22229e-04_rb /)
+      kao(:, 4, 1, 3) = (/ &
+        & 0.96137e-04_rb,0.12836e-03_rb,0.13265e-03_rb,0.13031e-03_rb,0.12404e-03_rb, &
+        & 0.11409e-03_rb,0.99756e-04_rb,0.77897e-04_rb,0.24656e-04_rb /)
+      kao(:, 5, 1, 3) = (/ &
+        & 0.10739e-03_rb,0.14209e-03_rb,0.14652e-03_rb,0.14363e-03_rb,0.13579e-03_rb, &
+        & 0.12408e-03_rb,0.10749e-03_rb,0.83273e-04_rb,0.26998e-04_rb /)
+      kao(:, 1, 2, 3) = (/ &
+        & 0.57005e-04_rb,0.80688e-04_rb,0.84199e-04_rb,0.83067e-04_rb,0.79480e-04_rb, &
+        & 0.74096e-04_rb,0.66328e-04_rb,0.53532e-04_rb,0.14534e-04_rb /)
+      kao(:, 2, 2, 3) = (/ &
+        & 0.64518e-04_rb,0.90274e-04_rb,0.94149e-04_rb,0.92496e-04_rb,0.88374e-04_rb, &
+        & 0.82048e-04_rb,0.72698e-04_rb,0.57871e-04_rb,0.16202e-04_rb /)
+      kao(:, 3, 2, 3) = (/ &
+        & 0.73014e-04_rb,0.10065e-03_rb,0.10466e-03_rb,0.10271e-03_rb,0.97880e-04_rb, &
+        & 0.90372e-04_rb,0.79361e-04_rb,0.62357e-04_rb,0.18056e-04_rb /)
+      kao(:, 4, 2, 3) = (/ &
+        & 0.82297e-04_rb,0.11195e-03_rb,0.11586e-03_rb,0.11365e-03_rb,0.10799e-03_rb, &
+        & 0.98829e-04_rb,0.85923e-04_rb,0.66891e-04_rb,0.19890e-04_rb /)
+      kao(:, 5, 2, 3) = (/ &
+        & 0.92175e-04_rb,0.12399e-03_rb,0.12794e-03_rb,0.12531e-03_rb,0.11825e-03_rb, &
+        & 0.10764e-03_rb,0.92744e-04_rb,0.71608e-04_rb,0.21968e-04_rb /)
+      kao(:, 1, 3, 3) = (/ &
+        & 0.47324e-04_rb,0.68167e-04_rb,0.71069e-04_rb,0.70293e-04_rb,0.67313e-04_rb, &
+        & 0.62456e-04_rb,0.55646e-04_rb,0.44933e-04_rb,0.11374e-04_rb /)
+      kao(:, 2, 3, 3) = (/ &
+        & 0.53658e-04_rb,0.76342e-04_rb,0.79560e-04_rb,0.78547e-04_rb,0.74997e-04_rb, &
+        & 0.69264e-04_rb,0.61119e-04_rb,0.48587e-04_rb,0.12639e-04_rb /)
+      kao(:, 3, 3, 3) = (/ &
+        & 0.60905e-04_rb,0.85247e-04_rb,0.88738e-04_rb,0.87387e-04_rb,0.83098e-04_rb, &
+        & 0.76432e-04_rb,0.66733e-04_rb,0.52275e-04_rb,0.13871e-04_rb /)
+      kao(:, 4, 3, 3) = (/ &
+        & 0.68831e-04_rb,0.94960e-04_rb,0.98638e-04_rb,0.96778e-04_rb,0.91816e-04_rb, &
+        & 0.83747e-04_rb,0.72403e-04_rb,0.56165e-04_rb,0.15423e-04_rb /)
+      kao(:, 5, 3, 3) = (/ &
+        & 0.77259e-04_rb,0.10549e-03_rb,0.10909e-03_rb,0.10672e-03_rb,0.10065e-03_rb, &
+        & 0.91320e-04_rb,0.78406e-04_rb,0.60157e-04_rb,0.17141e-04_rb /)
+      kao(:, 1, 4, 3) = (/ &
+        & 0.40102e-04_rb,0.56990e-04_rb,0.59444e-04_rb,0.58732e-04_rb,0.56091e-04_rb, &
+        & 0.51902e-04_rb,0.46247e-04_rb,0.37442e-04_rb,0.94022e-05_rb /)
+      kao(:, 2, 4, 3) = (/ &
+        & 0.44930e-04_rb,0.63893e-04_rb,0.66629e-04_rb,0.65694e-04_rb,0.62627e-04_rb, &
+        & 0.57822e-04_rb,0.50819e-04_rb,0.40421e-04_rb,0.10475e-04_rb /)
+      kao(:, 3, 4, 3) = (/ &
+        & 0.50532e-04_rb,0.71424e-04_rb,0.74352e-04_rb,0.73221e-04_rb,0.69651e-04_rb, &
+        & 0.64034e-04_rb,0.55430e-04_rb,0.43529e-04_rb,0.11728e-04_rb /)
+      kao(:, 4, 4, 3) = (/ &
+        & 0.56953e-04_rb,0.79740e-04_rb,0.82769e-04_rb,0.81314e-04_rb,0.77278e-04_rb, &
+        & 0.70324e-04_rb,0.60396e-04_rb,0.46747e-04_rb,0.13063e-04_rb /)
+      kao(:, 5, 4, 3) = (/ &
+        & 0.64019e-04_rb,0.88647e-04_rb,0.91768e-04_rb,0.89926e-04_rb,0.84958e-04_rb, &
+        & 0.76740e-04_rb,0.65561e-04_rb,0.50066e-04_rb,0.14435e-04_rb /)
+      kao(:, 1, 5, 3) = (/ &
+        & 0.33806e-04_rb,0.47826e-04_rb,0.49443e-04_rb,0.48775e-04_rb,0.46477e-04_rb, &
+        & 0.42791e-04_rb,0.38155e-04_rb,0.31175e-04_rb,0.77886e-05_rb /)
+      kao(:, 2, 5, 3) = (/ &
+        & 0.37973e-04_rb,0.53392e-04_rb,0.55526e-04_rb,0.54719e-04_rb,0.52062e-04_rb, &
+        & 0.47763e-04_rb,0.42021e-04_rb,0.33510e-04_rb,0.87404e-05_rb /)
+      kao(:, 3, 5, 3) = (/ &
+        & 0.42758e-04_rb,0.59666e-04_rb,0.62058e-04_rb,0.61127e-04_rb,0.58012e-04_rb, &
+        & 0.53071e-04_rb,0.45971e-04_rb,0.36114e-04_rb,0.98499e-05_rb /)
+      kao(:, 4, 5, 3) = (/ &
+        & 0.48006e-04_rb,0.66679e-04_rb,0.69230e-04_rb,0.67989e-04_rb,0.64400e-04_rb, &
+        & 0.58521e-04_rb,0.50196e-04_rb,0.38710e-04_rb,0.11022e-04_rb /)
+      kao(:, 5, 5, 3) = (/ &
+        & 0.53657e-04_rb,0.74244e-04_rb,0.76813e-04_rb,0.75303e-04_rb,0.71011e-04_rb, &
+        & 0.64092e-04_rb,0.54599e-04_rb,0.41481e-04_rb,0.12225e-04_rb /)
+      kao(:, 1, 6, 3) = (/ &
+        & 0.27953e-04_rb,0.40223e-04_rb,0.41331e-04_rb,0.40332e-04_rb,0.38114e-04_rb, &
+        & 0.34967e-04_rb,0.31158e-04_rb,0.25701e-04_rb,0.67604e-05_rb /)
+      kao(:, 2, 6, 3) = (/ &
+        & 0.31595e-04_rb,0.44975e-04_rb,0.46374e-04_rb,0.45229e-04_rb,0.42775e-04_rb, &
+        & 0.39162e-04_rb,0.34373e-04_rb,0.27616e-04_rb,0.75558e-05_rb /)
+      kao(:, 3, 6, 3) = (/ &
+        & 0.35649e-04_rb,0.50263e-04_rb,0.51713e-04_rb,0.50516e-04_rb,0.47855e-04_rb, &
+        & 0.43605e-04_rb,0.37705e-04_rb,0.29800e-04_rb,0.84063e-05_rb /)
+      kao(:, 4, 6, 3) = (/ &
+        & 0.40086e-04_rb,0.55905e-04_rb,0.57584e-04_rb,0.56348e-04_rb,0.53200e-04_rb, &
+        & 0.48283e-04_rb,0.41331e-04_rb,0.31936e-04_rb,0.92686e-05_rb /)
+      kao(:, 5, 6, 3) = (/ &
+        & 0.44931e-04_rb,0.62025e-04_rb,0.63942e-04_rb,0.62498e-04_rb,0.58788e-04_rb, &
+        & 0.53032e-04_rb,0.45085e-04_rb,0.34229e-04_rb,0.10175e-04_rb /)
+      kao(:, 1, 7, 3) = (/ &
+        & 0.22829e-04_rb,0.33278e-04_rb,0.34196e-04_rb,0.33381e-04_rb,0.31444e-04_rb, &
+        & 0.28615e-04_rb,0.25331e-04_rb,0.21096e-04_rb,0.60732e-05_rb /)
+      kao(:, 2, 7, 3) = (/ &
+        & 0.25917e-04_rb,0.37424e-04_rb,0.38527e-04_rb,0.37580e-04_rb,0.35302e-04_rb, &
+        & 0.32020e-04_rb,0.27957e-04_rb,0.22660e-04_rb,0.68180e-05_rb /)
+      kao(:, 3, 7, 3) = (/ &
+        & 0.29386e-04_rb,0.41933e-04_rb,0.43213e-04_rb,0.42039e-04_rb,0.39445e-04_rb, &
+        & 0.35659e-04_rb,0.30780e-04_rb,0.24432e-04_rb,0.76296e-05_rb /)
+      kao(:, 4, 7, 3) = (/ &
+        & 0.33186e-04_rb,0.46811e-04_rb,0.48218e-04_rb,0.46849e-04_rb,0.43848e-04_rb, &
+        & 0.39567e-04_rb,0.33858e-04_rb,0.26257e-04_rb,0.82634e-05_rb /)
+      kao(:, 5, 7, 3) = (/ &
+        & 0.37227e-04_rb,0.52060e-04_rb,0.53592e-04_rb,0.51948e-04_rb,0.48471e-04_rb, &
+        & 0.43595e-04_rb,0.37022e-04_rb,0.28130e-04_rb,0.90053e-05_rb /)
+      kao(:, 1, 8, 3) = (/ &
+        & 0.18333e-04_rb,0.27259e-04_rb,0.27929e-04_rb,0.27230e-04_rb,0.25672e-04_rb, &
+        & 0.23374e-04_rb,0.20571e-04_rb,0.17333e-04_rb,0.54157e-05_rb /)
+      kao(:, 2, 8, 3) = (/ &
+        & 0.20948e-04_rb,0.30774e-04_rb,0.31604e-04_rb,0.30823e-04_rb,0.29002e-04_rb, &
+        & 0.26292e-04_rb,0.22734e-04_rb,0.18593e-04_rb,0.61669e-05_rb /)
+      kao(:, 3, 8, 3) = (/ &
+        & 0.23883e-04_rb,0.34642e-04_rb,0.35656e-04_rb,0.34670e-04_rb,0.32507e-04_rb, &
+        & 0.29303e-04_rb,0.25111e-04_rb,0.19985e-04_rb,0.69048e-05_rb /)
+      kao(:, 4, 8, 3) = (/ &
+        & 0.27098e-04_rb,0.38802e-04_rb,0.40013e-04_rb,0.38777e-04_rb,0.36214e-04_rb, &
+        & 0.32542e-04_rb,0.27674e-04_rb,0.21526e-04_rb,0.76591e-05_rb /)
+      kao(:, 5, 8, 3) = (/ &
+        & 0.30462e-04_rb,0.43307e-04_rb,0.44596e-04_rb,0.43127e-04_rb,0.40142e-04_rb, &
+        & 0.35890e-04_rb,0.30276e-04_rb,0.23065e-04_rb,0.84480e-05_rb /)
+      kao(:, 1, 9, 3) = (/ &
+        & 0.14510e-04_rb,0.22049e-04_rb,0.22596e-04_rb,0.22021e-04_rb,0.20750e-04_rb, &
+        & 0.18895e-04_rb,0.16685e-04_rb,0.14158e-04_rb,0.50284e-05_rb /)
+      kao(:, 2, 9, 3) = (/ &
+        & 0.16710e-04_rb,0.25012e-04_rb,0.25686e-04_rb,0.25017e-04_rb,0.23537e-04_rb, &
+        & 0.21350e-04_rb,0.18517e-04_rb,0.15170e-04_rb,0.59016e-05_rb /)
+      kao(:, 3, 9, 3) = (/ &
+        & 0.19138e-04_rb,0.28271e-04_rb,0.29104e-04_rb,0.28272e-04_rb,0.26493e-04_rb, &
+        & 0.23916e-04_rb,0.20530e-04_rb,0.16297e-04_rb,0.68413e-05_rb /)
+      kao(:, 4, 9, 3) = (/ &
+        & 0.21798e-04_rb,0.31859e-04_rb,0.32802e-04_rb,0.31762e-04_rb,0.29603e-04_rb, &
+        & 0.26643e-04_rb,0.22650e-04_rb,0.17559e-04_rb,0.78093e-05_rb /)
+      kao(:, 5, 9, 3) = (/ &
+        & 0.24599e-04_rb,0.35618e-04_rb,0.36736e-04_rb,0.35456e-04_rb,0.32981e-04_rb, &
+        & 0.29459e-04_rb,0.24877e-04_rb,0.18821e-04_rb,0.88149e-05_rb /)
+      kao(:, 1,10, 3) = (/ &
+        & 0.11455e-04_rb,0.17796e-04_rb,0.18282e-04_rb,0.17833e-04_rb,0.16814e-04_rb, &
+        & 0.15305e-04_rb,0.13526e-04_rb,0.11628e-04_rb,0.47637e-05_rb /)
+      kao(:, 2,10, 3) = (/ &
+        & 0.13295e-04_rb,0.20290e-04_rb,0.20862e-04_rb,0.20316e-04_rb,0.19125e-04_rb, &
+        & 0.17348e-04_rb,0.15042e-04_rb,0.12455e-04_rb,0.56495e-05_rb /)
+      kao(:, 3,10, 3) = (/ &
+        & 0.15297e-04_rb,0.22994e-04_rb,0.23740e-04_rb,0.23076e-04_rb,0.21626e-04_rb, &
+        & 0.19529e-04_rb,0.16766e-04_rb,0.13399e-04_rb,0.65988e-05_rb /)
+      kao(:, 4,10, 3) = (/ &
+        & 0.17488e-04_rb,0.25986e-04_rb,0.26882e-04_rb,0.26021e-04_rb,0.24246e-04_rb, &
+        & 0.21820e-04_rb,0.18554e-04_rb,0.14427e-04_rb,0.74644e-05_rb /)
+      kao(:, 5,10, 3) = (/ &
+        & 0.19800e-04_rb,0.29160e-04_rb,0.30208e-04_rb,0.29161e-04_rb,0.27086e-04_rb, &
+        & 0.24189e-04_rb,0.20462e-04_rb,0.15474e-04_rb,0.84395e-05_rb /)
+      kao(:, 1,11, 3) = (/ &
+        & 0.96366e-05_rb,0.15168e-04_rb,0.15611e-04_rb,0.15230e-04_rb,0.14381e-04_rb, &
+        & 0.13058e-04_rb,0.11457e-04_rb,0.98195e-05_rb,0.43210e-05_rb /)
+      kao(:, 2,11, 3) = (/ &
+        & 0.11221e-04_rb,0.17304e-04_rb,0.17859e-04_rb,0.17390e-04_rb,0.16383e-04_rb, &
+        & 0.14837e-04_rb,0.12820e-04_rb,0.10541e-04_rb,0.50915e-05_rb /)
+      kao(:, 3,11, 3) = (/ &
+        & 0.12922e-04_rb,0.19611e-04_rb,0.20376e-04_rb,0.19769e-04_rb,0.18510e-04_rb, &
+        & 0.16733e-04_rb,0.14297e-04_rb,0.11375e-04_rb,0.59349e-05_rb /)
+      kao(:, 4,11, 3) = (/ &
+        & 0.14759e-04_rb,0.22226e-04_rb,0.23087e-04_rb,0.22319e-04_rb,0.20789e-04_rb, &
+        & 0.18677e-04_rb,0.15854e-04_rb,0.12233e-04_rb,0.68646e-05_rb /)
+      kao(:, 5,11, 3) = (/ &
+        & 0.16687e-04_rb,0.24901e-04_rb,0.25894e-04_rb,0.25020e-04_rb,0.23234e-04_rb, &
+        & 0.20746e-04_rb,0.17450e-04_rb,0.13143e-04_rb,0.77945e-05_rb /)
+      kao(:, 1,12, 3) = (/ &
+        & 0.80728e-05_rb,0.12833e-04_rb,0.13241e-04_rb,0.12930e-04_rb,0.12209e-04_rb, &
+        & 0.11077e-04_rb,0.96874e-05_rb,0.82518e-05_rb,0.36987e-05_rb /)
+      kao(:, 2,12, 3) = (/ &
+        & 0.94096e-05_rb,0.14647e-04_rb,0.15179e-04_rb,0.14789e-04_rb,0.13929e-04_rb, &
+        & 0.12614e-04_rb,0.10863e-04_rb,0.88839e-05_rb,0.43642e-05_rb /)
+      kao(:, 3,12, 3) = (/ &
+        & 0.10827e-04_rb,0.16625e-04_rb,0.17336e-04_rb,0.16825e-04_rb,0.15757e-04_rb, &
+        & 0.14215e-04_rb,0.12135e-04_rb,0.95702e-05_rb,0.51276e-05_rb /)
+      kao(:, 4,12, 3) = (/ &
+        & 0.12346e-04_rb,0.18823e-04_rb,0.19626e-04_rb,0.19011e-04_rb,0.17715e-04_rb, &
+        & 0.15891e-04_rb,0.13472e-04_rb,0.10297e-04_rb,0.58818e-05_rb /)
+      kao(:, 5,12, 3) = (/ &
+        & 0.13954e-04_rb,0.21071e-04_rb,0.21985e-04_rb,0.21278e-04_rb,0.19773e-04_rb, &
+        & 0.17642e-04_rb,0.14813e-04_rb,0.11109e-04_rb,0.66485e-05_rb /)
+      kao(:, 1,13, 3) = (/ &
+        & 0.67198e-05_rb,0.10777e-04_rb,0.11153e-04_rb,0.10900e-04_rb,0.10301e-04_rb, &
+        & 0.93345e-05_rb,0.81433e-05_rb,0.69156e-05_rb,0.30498e-05_rb /)
+      kao(:, 2,13, 3) = (/ &
+        & 0.78283e-05_rb,0.12283e-04_rb,0.12805e-04_rb,0.12492e-04_rb,0.11757e-04_rb, &
+        & 0.10649e-04_rb,0.91519e-05_rb,0.74495e-05_rb,0.36028e-05_rb /)
+      kao(:, 3,13, 3) = (/ &
+        & 0.89966e-05_rb,0.13983e-04_rb,0.14629e-04_rb,0.14218e-04_rb,0.13315e-04_rb, &
+        & 0.11990e-04_rb,0.10230e-04_rb,0.80237e-05_rb,0.42382e-05_rb /)
+      kao(:, 4,13, 3) = (/ &
+        & 0.10250e-04_rb,0.15794e-04_rb,0.16536e-04_rb,0.16055e-04_rb,0.14979e-04_rb, &
+        & 0.13421e-04_rb,0.11355e-04_rb,0.86371e-05_rb,0.48511e-05_rb /)
+      kao(:, 5,13, 3) = (/ &
+        & 0.11575e-04_rb,0.17689e-04_rb,0.18502e-04_rb,0.17950e-04_rb,0.16689e-04_rb, &
+        & 0.14883e-04_rb,0.12476e-04_rb,0.93537e-05_rb,0.54799e-05_rb /)
+      kao(:, 1, 1, 4) = (/ &
+        & 0.20313e-03_rb,0.26410e-03_rb,0.27054e-03_rb,0.25842e-03_rb,0.23794e-03_rb, &
+        & 0.21033e-03_rb,0.17730e-03_rb,0.13831e-03_rb,0.52995e-04_rb /)
+      kao(:, 2, 1, 4) = (/ &
+        & 0.22722e-03_rb,0.29058e-03_rb,0.29572e-03_rb,0.28200e-03_rb,0.25898e-03_rb, &
+        & 0.22814e-03_rb,0.19209e-03_rb,0.14957e-03_rb,0.59096e-04_rb /)
+      kao(:, 3, 1, 4) = (/ &
+        & 0.25054e-03_rb,0.31580e-03_rb,0.31991e-03_rb,0.30486e-03_rb,0.27955e-03_rb, &
+        & 0.24634e-03_rb,0.20787e-03_rb,0.16179e-03_rb,0.65118e-04_rb /)
+      kao(:, 4, 1, 4) = (/ &
+        & 0.27197e-03_rb,0.33971e-03_rb,0.34310e-03_rb,0.32677e-03_rb,0.30002e-03_rb, &
+        & 0.26574e-03_rb,0.22502e-03_rb,0.17520e-03_rb,0.71711e-04_rb /)
+      kao(:, 5, 1, 4) = (/ &
+        & 0.29178e-03_rb,0.36213e-03_rb,0.36503e-03_rb,0.34815e-03_rb,0.32114e-03_rb, &
+        & 0.28599e-03_rb,0.24328e-03_rb,0.18958e-03_rb,0.78523e-04_rb /)
+      kao(:, 1, 2, 4) = (/ &
+        & 0.17547e-03_rb,0.23012e-03_rb,0.23639e-03_rb,0.22606e-03_rb,0.20799e-03_rb, &
+        & 0.18326e-03_rb,0.15385e-03_rb,0.11888e-03_rb,0.43633e-04_rb /)
+      kao(:, 2, 2, 4) = (/ &
+        & 0.19601e-03_rb,0.25269e-03_rb,0.25751e-03_rb,0.24629e-03_rb,0.22623e-03_rb, &
+        & 0.19926e-03_rb,0.16712e-03_rb,0.12877e-03_rb,0.48382e-04_rb /)
+      kao(:, 3, 2, 4) = (/ &
+        & 0.21598e-03_rb,0.27423e-03_rb,0.27812e-03_rb,0.26576e-03_rb,0.24403e-03_rb, &
+        & 0.21552e-03_rb,0.18141e-03_rb,0.13982e-03_rb,0.53560e-04_rb /)
+      kao(:, 4, 2, 4) = (/ &
+        & 0.23449e-03_rb,0.29482e-03_rb,0.29820e-03_rb,0.28454e-03_rb,0.26171e-03_rb, &
+        & 0.23254e-03_rb,0.19681e-03_rb,0.15192e-03_rb,0.59054e-04_rb /)
+      kao(:, 5, 2, 4) = (/ &
+        & 0.25198e-03_rb,0.31408e-03_rb,0.31723e-03_rb,0.30341e-03_rb,0.28040e-03_rb, &
+        & 0.25022e-03_rb,0.21333e-03_rb,0.16487e-03_rb,0.64779e-04_rb /)
+      kao(:, 1, 3, 4) = (/ &
+        & 0.14736e-03_rb,0.19483e-03_rb,0.20065e-03_rb,0.19242e-03_rb,0.17728e-03_rb, &
+        & 0.15627e-03_rb,0.13078e-03_rb,0.10037e-03_rb,0.34217e-04_rb /)
+      kao(:, 2, 3, 4) = (/ &
+        & 0.16492e-03_rb,0.21441e-03_rb,0.21892e-03_rb,0.20980e-03_rb,0.19289e-03_rb, &
+        & 0.17000e-03_rb,0.14249e-03_rb,0.10902e-03_rb,0.38352e-04_rb /)
+      kao(:, 3, 3, 4) = (/ &
+        & 0.18200e-03_rb,0.23294e-03_rb,0.23658e-03_rb,0.22658e-03_rb,0.20822e-03_rb, &
+        & 0.18391e-03_rb,0.15484e-03_rb,0.11888e-03_rb,0.42700e-04_rb /)
+      kao(:, 4, 3, 4) = (/ &
+        & 0.19811e-03_rb,0.25094e-03_rb,0.25385e-03_rb,0.24276e-03_rb,0.22338e-03_rb, &
+        & 0.19841e-03_rb,0.16822e-03_rb,0.12943e-03_rb,0.47257e-04_rb /)
+      kao(:, 5, 3, 4) = (/ &
+        & 0.21352e-03_rb,0.26784e-03_rb,0.27027e-03_rb,0.25917e-03_rb,0.23966e-03_rb, &
+        & 0.21399e-03_rb,0.18239e-03_rb,0.14058e-03_rb,0.51997e-04_rb /)
+      kao(:, 1, 4, 4) = (/ &
+        & 0.12070e-03_rb,0.16282e-03_rb,0.16870e-03_rb,0.16215e-03_rb,0.14966e-03_rb, &
+        & 0.13195e-03_rb,0.11003e-03_rb,0.83743e-04_rb,0.26841e-04_rb /)
+      kao(:, 2, 4, 4) = (/ &
+        & 0.13616e-03_rb,0.17979e-03_rb,0.18420e-03_rb,0.17692e-03_rb,0.16288e-03_rb, &
+        & 0.14351e-03_rb,0.12000e-03_rb,0.91324e-04_rb,0.29956e-04_rb /)
+      kao(:, 3, 4, 4) = (/ &
+        & 0.15142e-03_rb,0.19606e-03_rb,0.19933e-03_rb,0.19132e-03_rb,0.17582e-03_rb, &
+        & 0.15506e-03_rb,0.13061e-03_rb,0.99881e-04_rb,0.33175e-04_rb /)
+      kao(:, 4, 4, 4) = (/ &
+        & 0.16591e-03_rb,0.21170e-03_rb,0.21421e-03_rb,0.20525e-03_rb,0.18888e-03_rb, &
+        & 0.16747e-03_rb,0.14192e-03_rb,0.10907e-03_rb,0.36625e-04_rb /)
+      kao(:, 5, 4, 4) = (/ &
+        & 0.17956e-03_rb,0.22655e-03_rb,0.22833e-03_rb,0.21949e-03_rb,0.20283e-03_rb, &
+        & 0.18086e-03_rb,0.15393e-03_rb,0.11865e-03_rb,0.40513e-04_rb /)
+      kao(:, 1, 5, 4) = (/ &
+        & 0.98625e-04_rb,0.13480e-03_rb,0.14099e-03_rb,0.13653e-03_rb,0.12600e-03_rb, &
+        & 0.11107e-03_rb,0.92102e-04_rb,0.69414e-04_rb,0.22597e-04_rb /)
+      kao(:, 2, 5, 4) = (/ &
+        & 0.11165e-03_rb,0.14975e-03_rb,0.15429e-03_rb,0.14886e-03_rb,0.13710e-03_rb, &
+        & 0.12076e-03_rb,0.10051e-03_rb,0.76046e-04_rb,0.25265e-04_rb /)
+      kao(:, 3, 5, 4) = (/ &
+        & 0.12461e-03_rb,0.16391e-03_rb,0.16725e-03_rb,0.16091e-03_rb,0.14796e-03_rb, &
+        & 0.13047e-03_rb,0.10941e-03_rb,0.83193e-04_rb,0.27962e-04_rb /)
+      kao(:, 4, 5, 4) = (/ &
+        & 0.13738e-03_rb,0.17761e-03_rb,0.17982e-03_rb,0.17281e-03_rb,0.15916e-03_rb, &
+        & 0.14087e-03_rb,0.11892e-03_rb,0.90972e-04_rb,0.30855e-04_rb /)
+      kao(:, 5, 5, 4) = (/ &
+        & 0.14967e-03_rb,0.19066e-03_rb,0.19231e-03_rb,0.18509e-03_rb,0.17109e-03_rb, &
+        & 0.15227e-03_rb,0.12906e-03_rb,0.99136e-04_rb,0.34017e-04_rb /)
+      kao(:, 1, 6, 4) = (/ &
+        & 0.79863e-04_rb,0.11034e-03_rb,0.11622e-03_rb,0.11400e-03_rb,0.10532e-03_rb, &
+        & 0.92978e-04_rb,0.76661e-04_rb,0.57287e-04_rb,0.18664e-04_rb /)
+      kao(:, 2, 6, 4) = (/ &
+        & 0.90753e-04_rb,0.12318e-03_rb,0.12766e-03_rb,0.12440e-03_rb,0.11482e-03_rb, &
+        & 0.10110e-03_rb,0.83697e-04_rb,0.62663e-04_rb,0.20928e-04_rb /)
+      kao(:, 3, 6, 4) = (/ &
+        & 0.10183e-03_rb,0.13532e-03_rb,0.13907e-03_rb,0.13464e-03_rb,0.12396e-03_rb, &
+        & 0.10925e-03_rb,0.90984e-04_rb,0.68513e-04_rb,0.23264e-04_rb /)
+      kao(:, 4, 6, 4) = (/ &
+        & 0.11293e-03_rb,0.14742e-03_rb,0.14995e-03_rb,0.14481e-03_rb,0.13354e-03_rb, &
+        & 0.11797e-03_rb,0.98845e-04_rb,0.74965e-04_rb,0.25850e-04_rb /)
+      kao(:, 5, 6, 4) = (/ &
+        & 0.12360e-03_rb,0.15914e-03_rb,0.16090e-03_rb,0.15521e-03_rb,0.14361e-03_rb, &
+        & 0.12755e-03_rb,0.10739e-03_rb,0.81915e-04_rb,0.28635e-04_rb /)
+      kao(:, 1, 7, 4) = (/ &
+        & 0.65679e-04_rb,0.90084e-04_rb,0.95681e-04_rb,0.94567e-04_rb,0.87338e-04_rb, &
+        & 0.77275e-04_rb,0.63642e-04_rb,0.47097e-04_rb,0.15508e-04_rb /)
+      kao(:, 2, 7, 4) = (/ &
+        & 0.74551e-04_rb,0.10089e-03_rb,0.10531e-03_rb,0.10327e-03_rb,0.95364e-04_rb, &
+        & 0.84154e-04_rb,0.69569e-04_rb,0.51426e-04_rb,0.17234e-04_rb /)
+      kao(:, 3, 7, 4) = (/ &
+        & 0.83584e-04_rb,0.11137e-03_rb,0.11469e-03_rb,0.11193e-03_rb,0.10325e-03_rb, &
+        & 0.91075e-04_rb,0.75479e-04_rb,0.56228e-04_rb,0.19127e-04_rb /)
+      kao(:, 4, 7, 4) = (/ &
+        & 0.92762e-04_rb,0.12171e-03_rb,0.12420e-03_rb,0.12060e-03_rb,0.11147e-03_rb, &
+        & 0.98465e-04_rb,0.81969e-04_rb,0.61529e-04_rb,0.21452e-04_rb /)
+      kao(:, 5, 7, 4) = (/ &
+        & 0.10189e-03_rb,0.13182e-03_rb,0.13364e-03_rb,0.12960e-03_rb,0.12008e-03_rb, &
+        & 0.10652e-03_rb,0.89045e-04_rb,0.67334e-04_rb,0.23711e-04_rb /)
+      kao(:, 1, 8, 4) = (/ &
+        & 0.53656e-04_rb,0.74109e-04_rb,0.78629e-04_rb,0.78245e-04_rb,0.72322e-04_rb, &
+        & 0.63915e-04_rb,0.52625e-04_rb,0.38591e-04_rb,0.14416e-04_rb /)
+      kao(:, 2, 8, 4) = (/ &
+        & 0.61163e-04_rb,0.83104e-04_rb,0.86832e-04_rb,0.85562e-04_rb,0.78992e-04_rb, &
+        & 0.69666e-04_rb,0.57574e-04_rb,0.42098e-04_rb,0.15921e-04_rb /)
+      kao(:, 3, 8, 4) = (/ &
+        & 0.68914e-04_rb,0.91909e-04_rb,0.94594e-04_rb,0.92816e-04_rb,0.85590e-04_rb, &
+        & 0.75491e-04_rb,0.62445e-04_rb,0.46109e-04_rb,0.17209e-04_rb /)
+      kao(:, 4, 8, 4) = (/ &
+        & 0.76847e-04_rb,0.10059e-03_rb,0.10256e-03_rb,0.10019e-03_rb,0.92496e-04_rb, &
+        & 0.81729e-04_rb,0.67763e-04_rb,0.50445e-04_rb,0.18589e-04_rb /)
+      kao(:, 5, 8, 4) = (/ &
+        & 0.84847e-04_rb,0.10902e-03_rb,0.11071e-03_rb,0.10784e-03_rb,0.99812e-04_rb, &
+        & 0.88516e-04_rb,0.73718e-04_rb,0.55250e-04_rb,0.20194e-04_rb /)
+      kao(:, 1, 9, 4) = (/ &
+        & 0.43346e-04_rb,0.60608e-04_rb,0.64818e-04_rb,0.64681e-04_rb,0.59655e-04_rb, &
+        & 0.52617e-04_rb,0.43206e-04_rb,0.31573e-04_rb,0.14696e-04_rb /)
+      kao(:, 2, 9, 4) = (/ &
+        & 0.49669e-04_rb,0.68380e-04_rb,0.71800e-04_rb,0.70860e-04_rb,0.65260e-04_rb, &
+        & 0.57496e-04_rb,0.47313e-04_rb,0.34405e-04_rb,0.16164e-04_rb /)
+      kao(:, 3, 9, 4) = (/ &
+        & 0.56274e-04_rb,0.76040e-04_rb,0.78454e-04_rb,0.76944e-04_rb,0.70665e-04_rb, &
+        & 0.62347e-04_rb,0.51383e-04_rb,0.37665e-04_rb,0.17841e-04_rb /)
+      kao(:, 4, 9, 4) = (/ &
+        & 0.63127e-04_rb,0.83451e-04_rb,0.85178e-04_rb,0.83082e-04_rb,0.76437e-04_rb, &
+        & 0.67538e-04_rb,0.55797e-04_rb,0.41264e-04_rb,0.19504e-04_rb /)
+      kao(:, 5, 9, 4) = (/ &
+        & 0.70124e-04_rb,0.90807e-04_rb,0.91960e-04_rb,0.89432e-04_rb,0.82527e-04_rb, &
+        & 0.73176e-04_rb,0.60668e-04_rb,0.45179e-04_rb,0.20992e-04_rb /)
+      kao(:, 1,10, 4) = (/ &
+        & 0.35059e-04_rb,0.49531e-04_rb,0.53376e-04_rb,0.53665e-04_rb,0.49644e-04_rb, &
+        & 0.43592e-04_rb,0.35609e-04_rb,0.25845e-04_rb,0.13231e-04_rb /)
+      kao(:, 2,10, 4) = (/ &
+        & 0.40376e-04_rb,0.56174e-04_rb,0.59502e-04_rb,0.59040e-04_rb,0.54399e-04_rb, &
+        & 0.47687e-04_rb,0.39007e-04_rb,0.28189e-04_rb,0.15223e-04_rb /)
+      kao(:, 3,10, 4) = (/ &
+        & 0.46006e-04_rb,0.62899e-04_rb,0.65214e-04_rb,0.64178e-04_rb,0.58976e-04_rb, &
+        & 0.51726e-04_rb,0.42386e-04_rb,0.30843e-04_rb,0.17241e-04_rb /)
+      kao(:, 4,10, 4) = (/ &
+        & 0.51905e-04_rb,0.69395e-04_rb,0.70988e-04_rb,0.69461e-04_rb,0.63801e-04_rb, &
+        & 0.56040e-04_rb,0.46059e-04_rb,0.33831e-04_rb,0.19714e-04_rb /)
+      kao(:, 5,10, 4) = (/ &
+        & 0.57990e-04_rb,0.75737e-04_rb,0.76826e-04_rb,0.74718e-04_rb,0.68839e-04_rb, &
+        & 0.60664e-04_rb,0.50105e-04_rb,0.37049e-04_rb,0.22308e-04_rb /)
+      kao(:, 1,11, 4) = (/ &
+        & 0.30150e-04_rb,0.42738e-04_rb,0.46011e-04_rb,0.46330e-04_rb,0.42907e-04_rb, &
+        & 0.37605e-04_rb,0.30702e-04_rb,0.21962e-04_rb,0.11791e-04_rb /)
+      kao(:, 2,11, 4) = (/ &
+        & 0.34714e-04_rb,0.48516e-04_rb,0.51120e-04_rb,0.50726e-04_rb,0.46912e-04_rb, &
+        & 0.41033e-04_rb,0.33505e-04_rb,0.23952e-04_rb,0.13242e-04_rb /)
+      kao(:, 3,11, 4) = (/ &
+        & 0.39649e-04_rb,0.54325e-04_rb,0.56146e-04_rb,0.55270e-04_rb,0.50902e-04_rb, &
+        & 0.44559e-04_rb,0.36351e-04_rb,0.26266e-04_rb,0.15075e-04_rb /)
+      kao(:, 4,11, 4) = (/ &
+        & 0.44779e-04_rb,0.59893e-04_rb,0.61166e-04_rb,0.59766e-04_rb,0.55070e-04_rb, &
+        & 0.48303e-04_rb,0.39491e-04_rb,0.28847e-04_rb,0.17164e-04_rb /)
+      kao(:, 5,11, 4) = (/ &
+        & 0.49946e-04_rb,0.65411e-04_rb,0.66256e-04_rb,0.64345e-04_rb,0.59474e-04_rb, &
+        & 0.52287e-04_rb,0.43003e-04_rb,0.31612e-04_rb,0.19542e-04_rb /)
+      kao(:, 1,12, 4) = (/ &
+        & 0.25681e-04_rb,0.36622e-04_rb,0.39428e-04_rb,0.39582e-04_rb,0.36786e-04_rb, &
+        & 0.32210e-04_rb,0.26270e-04_rb,0.18629e-04_rb,0.10035e-04_rb /)
+      kao(:, 2,12, 4) = (/ &
+        & 0.29636e-04_rb,0.41620e-04_rb,0.43701e-04_rb,0.43425e-04_rb,0.40150e-04_rb, &
+        & 0.35105e-04_rb,0.28637e-04_rb,0.20365e-04_rb,0.11416e-04_rb /)
+      kao(:, 3,12, 4) = (/ &
+        & 0.33921e-04_rb,0.46628e-04_rb,0.48062e-04_rb,0.47301e-04_rb,0.43633e-04_rb, &
+        & 0.38189e-04_rb,0.31133e-04_rb,0.22405e-04_rb,0.12946e-04_rb /)
+      kao(:, 4,12, 4) = (/ &
+        & 0.38341e-04_rb,0.51401e-04_rb,0.52457e-04_rb,0.51129e-04_rb,0.47238e-04_rb, &
+        & 0.41429e-04_rb,0.33905e-04_rb,0.24546e-04_rb,0.14770e-04_rb /)
+      kao(:, 5,12, 4) = (/ &
+        & 0.42576e-04_rb,0.56153e-04_rb,0.56863e-04_rb,0.55182e-04_rb,0.51113e-04_rb, &
+        & 0.44940e-04_rb,0.36987e-04_rb,0.26898e-04_rb,0.16865e-04_rb /)
+      kao(:, 1,13, 4) = (/ &
+        & 0.21707e-04_rb,0.31142e-04_rb,0.33487e-04_rb,0.33650e-04_rb,0.31301e-04_rb, &
+        & 0.27396e-04_rb,0.22352e-04_rb,0.15744e-04_rb,0.83005e-05_rb /)
+      kao(:, 2,13, 4) = (/ &
+        & 0.25112e-04_rb,0.35474e-04_rb,0.37158e-04_rb,0.36970e-04_rb,0.34170e-04_rb, &
+        & 0.29871e-04_rb,0.24361e-04_rb,0.17312e-04_rb,0.93559e-05_rb /)
+      kao(:, 3,13, 4) = (/ &
+        & 0.28762e-04_rb,0.39712e-04_rb,0.40924e-04_rb,0.40199e-04_rb,0.37169e-04_rb, &
+        & 0.32565e-04_rb,0.26566e-04_rb,0.19074e-04_rb,0.10670e-04_rb /)
+      kao(:, 4,13, 4) = (/ &
+        & 0.32448e-04_rb,0.43808e-04_rb,0.44734e-04_rb,0.43534e-04_rb,0.40323e-04_rb, &
+        & 0.35367e-04_rb,0.29011e-04_rb,0.20897e-04_rb,0.12240e-04_rb /)
+      kao(:, 5,13, 4) = (/ &
+        & 0.35905e-04_rb,0.47771e-04_rb,0.48482e-04_rb,0.47094e-04_rb,0.43703e-04_rb, &
+        & 0.38474e-04_rb,0.31715e-04_rb,0.22899e-04_rb,0.13958e-04_rb /)
+      kao(:, 1, 1, 5) = (/ &
+        & 0.50328e-03_rb,0.59028e-03_rb,0.59973e-03_rb,0.58955e-03_rb,0.56685e-03_rb, &
+        & 0.50893e-03_rb,0.43098e-03_rb,0.31518e-03_rb,0.12599e-03_rb /)
+      kao(:, 2, 1, 5) = (/ &
+        & 0.53454e-03_rb,0.62581e-03_rb,0.63729e-03_rb,0.62588e-03_rb,0.59902e-03_rb, &
+        & 0.54179e-03_rb,0.45928e-03_rb,0.33824e-03_rb,0.13937e-03_rb /)
+      kao(:, 3, 1, 5) = (/ &
+        & 0.56216e-03_rb,0.66315e-03_rb,0.67707e-03_rb,0.66553e-03_rb,0.63545e-03_rb, &
+        & 0.57719e-03_rb,0.48913e-03_rb,0.36332e-03_rb,0.15548e-03_rb /)
+      kao(:, 4, 1, 5) = (/ &
+        & 0.58821e-03_rb,0.70231e-03_rb,0.71934e-03_rb,0.70828e-03_rb,0.67637e-03_rb, &
+        & 0.61438e-03_rb,0.52042e-03_rb,0.38978e-03_rb,0.17254e-03_rb /)
+      kao(:, 5, 1, 5) = (/ &
+        & 0.61349e-03_rb,0.74309e-03_rb,0.76503e-03_rb,0.75486e-03_rb,0.71943e-03_rb, &
+        & 0.65213e-03_rb,0.55331e-03_rb,0.41818e-03_rb,0.19176e-03_rb /)
+      kao(:, 1, 2, 5) = (/ &
+        & 0.43720e-03_rb,0.51117e-03_rb,0.51919e-03_rb,0.50988e-03_rb,0.48875e-03_rb, &
+        & 0.44138e-03_rb,0.37418e-03_rb,0.27478e-03_rb,0.10374e-03_rb /)
+      kao(:, 2, 2, 5) = (/ &
+        & 0.46400e-03_rb,0.54460e-03_rb,0.55429e-03_rb,0.54395e-03_rb,0.52067e-03_rb, &
+        & 0.47118e-03_rb,0.39949e-03_rb,0.29546e-03_rb,0.11585e-03_rb /)
+      kao(:, 3, 2, 5) = (/ &
+        & 0.48798e-03_rb,0.57940e-03_rb,0.59177e-03_rb,0.58113e-03_rb,0.55553e-03_rb, &
+        & 0.50290e-03_rb,0.42588e-03_rb,0.31727e-03_rb,0.12872e-03_rb /)
+      kao(:, 4, 2, 5) = (/ &
+        & 0.51088e-03_rb,0.61529e-03_rb,0.63115e-03_rb,0.62163e-03_rb,0.59296e-03_rb, &
+        & 0.53614e-03_rb,0.45317e-03_rb,0.34070e-03_rb,0.14334e-03_rb /)
+      kao(:, 5, 2, 5) = (/ &
+        & 0.53331e-03_rb,0.65233e-03_rb,0.67270e-03_rb,0.66363e-03_rb,0.63091e-03_rb, &
+        & 0.57023e-03_rb,0.48253e-03_rb,0.36597e-03_rb,0.15947e-03_rb /)
+      kao(:, 1, 3, 5) = (/ &
+        & 0.37168e-03_rb,0.43544e-03_rb,0.44351e-03_rb,0.43496e-03_rb,0.41418e-03_rb, &
+        & 0.37673e-03_rb,0.31849e-03_rb,0.23373e-03_rb,0.83035e-04_rb /)
+      kao(:, 2, 3, 5) = (/ &
+        & 0.39476e-03_rb,0.46532e-03_rb,0.47527e-03_rb,0.46587e-03_rb,0.44394e-03_rb, &
+        & 0.40288e-03_rb,0.34052e-03_rb,0.25172e-03_rb,0.92363e-04_rb /)
+      kao(:, 3, 3, 5) = (/ &
+        & 0.41559e-03_rb,0.49597e-03_rb,0.50880e-03_rb,0.49944e-03_rb,0.47605e-03_rb, &
+        & 0.43138e-03_rb,0.36384e-03_rb,0.27063e-03_rb,0.10327e-03_rb /)
+      kao(:, 4, 3, 5) = (/ &
+        & 0.43551e-03_rb,0.52738e-03_rb,0.54357e-03_rb,0.53553e-03_rb,0.50924e-03_rb, &
+        & 0.46069e-03_rb,0.38844e-03_rb,0.29089e-03_rb,0.11548e-03_rb /)
+      kao(:, 5, 3, 5) = (/ &
+        & 0.45509e-03_rb,0.56036e-03_rb,0.58045e-03_rb,0.57279e-03_rb,0.54320e-03_rb, &
+        & 0.49088e-03_rb,0.41461e-03_rb,0.31304e-03_rb,0.12901e-03_rb /)
+      kao(:, 1, 4, 5) = (/ &
+        & 0.31353e-03_rb,0.36800e-03_rb,0.37478e-03_rb,0.36628e-03_rb,0.34818e-03_rb, &
+        & 0.31938e-03_rb,0.26882e-03_rb,0.19725e-03_rb,0.65143e-04_rb /)
+      kao(:, 2, 4, 5) = (/ &
+        & 0.33327e-03_rb,0.39347e-03_rb,0.40240e-03_rb,0.39421e-03_rb,0.37500e-03_rb, &
+        & 0.34245e-03_rb,0.28782e-03_rb,0.21247e-03_rb,0.72911e-04_rb /)
+      kao(:, 3, 4, 5) = (/ &
+        & 0.35116e-03_rb,0.41935e-03_rb,0.43125e-03_rb,0.42396e-03_rb,0.40374e-03_rb, &
+        & 0.36745e-03_rb,0.30851e-03_rb,0.22861e-03_rb,0.82223e-04_rb /)
+      kao(:, 4, 4, 5) = (/ &
+        & 0.36817e-03_rb,0.44654e-03_rb,0.46141e-03_rb,0.45505e-03_rb,0.43257e-03_rb, &
+        & 0.39339e-03_rb,0.33051e-03_rb,0.24594e-03_rb,0.92524e-04_rb /)
+      kao(:, 5, 4, 5) = (/ &
+        & 0.38502e-03_rb,0.47537e-03_rb,0.49387e-03_rb,0.48730e-03_rb,0.46233e-03_rb, &
+        & 0.42007e-03_rb,0.35374e-03_rb,0.26504e-03_rb,0.10363e-03_rb /)
+      kao(:, 1, 5, 5) = (/ &
+        & 0.26371e-03_rb,0.30958e-03_rb,0.31480e-03_rb,0.30643e-03_rb,0.29119e-03_rb, &
+        & 0.26781e-03_rb,0.22601e-03_rb,0.16580e-03_rb,0.51526e-04_rb /)
+      kao(:, 2, 5, 5) = (/ &
+        & 0.28046e-03_rb,0.33149e-03_rb,0.33831e-03_rb,0.33074e-03_rb,0.31455e-03_rb, &
+        & 0.28912e-03_rb,0.24254e-03_rb,0.17884e-03_rb,0.57544e-04_rb /)
+      kao(:, 3, 5, 5) = (/ &
+        & 0.29571e-03_rb,0.35368e-03_rb,0.36281e-03_rb,0.35630e-03_rb,0.33882e-03_rb, &
+        & 0.31097e-03_rb,0.26070e-03_rb,0.19272e-03_rb,0.64519e-04_rb /)
+      kao(:, 4, 5, 5) = (/ &
+        & 0.31016e-03_rb,0.37666e-03_rb,0.38893e-03_rb,0.38273e-03_rb,0.36412e-03_rb, &
+        & 0.33364e-03_rb,0.28016e-03_rb,0.20757e-03_rb,0.72363e-04_rb /)
+      kao(:, 5, 5, 5) = (/ &
+        & 0.32452e-03_rb,0.40122e-03_rb,0.41666e-03_rb,0.41046e-03_rb,0.39013e-03_rb, &
+        & 0.35668e-03_rb,0.30056e-03_rb,0.22388e-03_rb,0.80981e-04_rb /)
+      kao(:, 1, 6, 5) = (/ &
+        & 0.22069e-03_rb,0.25888e-03_rb,0.26323e-03_rb,0.25479e-03_rb,0.24246e-03_rb, &
+        & 0.22303e-03_rb,0.18865e-03_rb,0.13826e-03_rb,0.42586e-04_rb /)
+      kao(:, 2, 6, 5) = (/ &
+        & 0.23505e-03_rb,0.27730e-03_rb,0.28289e-03_rb,0.27510e-03_rb,0.26179e-03_rb, &
+        & 0.24147e-03_rb,0.20303e-03_rb,0.14956e-03_rb,0.47728e-04_rb /)
+      kao(:, 3, 6, 5) = (/ &
+        & 0.24799e-03_rb,0.29644e-03_rb,0.30324e-03_rb,0.29696e-03_rb,0.28190e-03_rb, &
+        & 0.26059e-03_rb,0.21889e-03_rb,0.16173e-03_rb,0.53804e-04_rb /)
+      kao(:, 4, 6, 5) = (/ &
+        & 0.26027e-03_rb,0.31607e-03_rb,0.32548e-03_rb,0.31928e-03_rb,0.30338e-03_rb, &
+        & 0.27984e-03_rb,0.23536e-03_rb,0.17457e-03_rb,0.60579e-04_rb /)
+      kao(:, 5, 6, 5) = (/ &
+        & 0.27261e-03_rb,0.33682e-03_rb,0.34889e-03_rb,0.34299e-03_rb,0.32589e-03_rb, &
+        & 0.29875e-03_rb,0.25286e-03_rb,0.18852e-03_rb,0.67802e-04_rb /)
+      kao(:, 1, 7, 5) = (/ &
+        & 0.18284e-03_rb,0.21563e-03_rb,0.21874e-03_rb,0.21147e-03_rb,0.20158e-03_rb, &
+        & 0.18535e-03_rb,0.15699e-03_rb,0.11455e-03_rb,0.35095e-04_rb /)
+      kao(:, 2, 7, 5) = (/ &
+        & 0.19537e-03_rb,0.23122e-03_rb,0.23571e-03_rb,0.22829e-03_rb,0.21760e-03_rb, &
+        & 0.20013e-03_rb,0.16934e-03_rb,0.12429e-03_rb,0.39853e-04_rb /)
+      kao(:, 3, 7, 5) = (/ &
+        & 0.20672e-03_rb,0.24731e-03_rb,0.25313e-03_rb,0.24636e-03_rb,0.23401e-03_rb, &
+        & 0.21622e-03_rb,0.18276e-03_rb,0.13469e-03_rb,0.45173e-04_rb /)
+      kao(:, 4, 7, 5) = (/ &
+        & 0.21741e-03_rb,0.26399e-03_rb,0.27153e-03_rb,0.26539e-03_rb,0.25198e-03_rb, &
+        & 0.23212e-03_rb,0.19655e-03_rb,0.14593e-03_rb,0.50910e-04_rb /)
+      kao(:, 5, 7, 5) = (/ &
+        & 0.22822e-03_rb,0.28170e-03_rb,0.29118e-03_rb,0.28544e-03_rb,0.27112e-03_rb, &
+        & 0.24842e-03_rb,0.21129e-03_rb,0.15803e-03_rb,0.57288e-04_rb /)
+      kao(:, 1, 8, 5) = (/ &
+        & 0.15136e-03_rb,0.17854e-03_rb,0.18119e-03_rb,0.17535e-03_rb,0.16721e-03_rb, &
+        & 0.15392e-03_rb,0.13041e-03_rb,0.94463e-04_rb,0.29176e-04_rb /)
+      kao(:, 2, 8, 5) = (/ &
+        & 0.16197e-03_rb,0.19183e-03_rb,0.19544e-03_rb,0.18940e-03_rb,0.18045e-03_rb, &
+        & 0.16606e-03_rb,0.14094e-03_rb,0.10292e-03_rb,0.33234e-04_rb /)
+      kao(:, 3, 8, 5) = (/ &
+        & 0.17149e-03_rb,0.20540e-03_rb,0.21055e-03_rb,0.20432e-03_rb,0.19421e-03_rb, &
+        & 0.17914e-03_rb,0.15214e-03_rb,0.11170e-03_rb,0.37987e-04_rb /)
+      kao(:, 4, 8, 5) = (/ &
+        & 0.18048e-03_rb,0.21966e-03_rb,0.22618e-03_rb,0.22017e-03_rb,0.20926e-03_rb, &
+        & 0.19215e-03_rb,0.16364e-03_rb,0.12118e-03_rb,0.43249e-04_rb /)
+      kao(:, 5, 8, 5) = (/ &
+        & 0.18968e-03_rb,0.23496e-03_rb,0.24258e-03_rb,0.23712e-03_rb,0.22524e-03_rb, &
+        & 0.20589e-03_rb,0.17598e-03_rb,0.13139e-03_rb,0.48772e-04_rb /)
+      kao(:, 1, 9, 5) = (/ &
+        & 0.12535e-03_rb,0.14733e-03_rb,0.14911e-03_rb,0.14464e-03_rb,0.13810e-03_rb, &
+        & 0.12766e-03_rb,0.10804e-03_rb,0.77667e-04_rb,0.31607e-04_rb /)
+      kao(:, 2, 9, 5) = (/ &
+        & 0.13428e-03_rb,0.15826e-03_rb,0.16122e-03_rb,0.15658e-03_rb,0.14914e-03_rb, &
+        & 0.13752e-03_rb,0.11655e-03_rb,0.84956e-04_rb,0.35832e-04_rb /)
+      kao(:, 3, 9, 5) = (/ &
+        & 0.14212e-03_rb,0.16949e-03_rb,0.17392e-03_rb,0.16905e-03_rb,0.16073e-03_rb, &
+        & 0.14802e-03_rb,0.12582e-03_rb,0.92269e-04_rb,0.39990e-04_rb /)
+      kao(:, 4, 9, 5) = (/ &
+        & 0.14955e-03_rb,0.18151e-03_rb,0.18720e-03_rb,0.18233e-03_rb,0.17343e-03_rb, &
+        & 0.15845e-03_rb,0.13559e-03_rb,0.99998e-04_rb,0.44405e-04_rb /)
+      kao(:, 5, 9, 5) = (/ &
+        & 0.15720e-03_rb,0.19441e-03_rb,0.20115e-03_rb,0.19658e-03_rb,0.18679e-03_rb, &
+        & 0.17045e-03_rb,0.14597e-03_rb,0.10853e-03_rb,0.48354e-04_rb /)
+      kao(:, 1,10, 5) = (/ &
+        & 0.10518e-03_rb,0.12283e-03_rb,0.12342e-03_rb,0.11933e-03_rb,0.11376e-03_rb, &
+        & 0.10615e-03_rb,0.89610e-04_rb,0.64322e-04_rb,0.38897e-04_rb /)
+      kao(:, 2,10, 5) = (/ &
+        & 0.11277e-03_rb,0.13167e-03_rb,0.13319e-03_rb,0.12937e-03_rb,0.12328e-03_rb, &
+        & 0.11434e-03_rb,0.96637e-04_rb,0.70434e-04_rb,0.44697e-04_rb /)
+      kao(:, 3,10, 5) = (/ &
+        & 0.11946e-03_rb,0.14071e-03_rb,0.14389e-03_rb,0.14002e-03_rb,0.13292e-03_rb, &
+        & 0.12246e-03_rb,0.10436e-03_rb,0.76473e-04_rb,0.50672e-04_rb /)
+      kao(:, 4,10, 5) = (/ &
+        & 0.12573e-03_rb,0.15045e-03_rb,0.15515e-03_rb,0.15121e-03_rb,0.14368e-03_rb, &
+        & 0.13136e-03_rb,0.11260e-03_rb,0.82864e-04_rb,0.56090e-04_rb /)
+      kao(:, 5,10, 5) = (/ &
+        & 0.13210e-03_rb,0.16128e-03_rb,0.16701e-03_rb,0.16339e-03_rb,0.15508e-03_rb, &
+        & 0.14154e-03_rb,0.12132e-03_rb,0.89973e-04_rb,0.61017e-04_rb /)
+      kao(:, 1,11, 5) = (/ &
+        & 0.90693e-04_rb,0.10606e-03_rb,0.10639e-03_rb,0.10214e-03_rb,0.97041e-04_rb, &
+        & 0.90929e-04_rb,0.76654e-04_rb,0.55448e-04_rb,0.34971e-04_rb /)
+      kao(:, 2,11, 5) = (/ &
+        & 0.96878e-04_rb,0.11346e-03_rb,0.11478e-03_rb,0.11094e-03_rb,0.10496e-03_rb, &
+        & 0.97427e-04_rb,0.82680e-04_rb,0.60468e-04_rb,0.41599e-04_rb /)
+      kao(:, 3,11, 5) = (/ &
+        & 0.10232e-03_rb,0.12125e-03_rb,0.12365e-03_rb,0.11979e-03_rb,0.11346e-03_rb, &
+        & 0.10430e-03_rb,0.89390e-04_rb,0.65549e-04_rb,0.48186e-04_rb /)
+      kao(:, 4,11, 5) = (/ &
+        & 0.10772e-03_rb,0.12969e-03_rb,0.13316e-03_rb,0.12963e-03_rb,0.12290e-03_rb, &
+        & 0.11234e-03_rb,0.96526e-04_rb,0.71097e-04_rb,0.54537e-04_rb /)
+      kao(:, 5,11, 5) = (/ &
+        & 0.11345e-03_rb,0.13912e-03_rb,0.14339e-03_rb,0.14025e-03_rb,0.13275e-03_rb, &
+        & 0.12106e-03_rb,0.10412e-03_rb,0.77240e-04_rb,0.60238e-04_rb /)
+      kao(:, 1,12, 5) = (/ &
+        & 0.77577e-04_rb,0.91005e-04_rb,0.91202e-04_rb,0.87618e-04_rb,0.82974e-04_rb, &
+        & 0.77488e-04_rb,0.65261e-04_rb,0.47539e-04_rb,0.30516e-04_rb /)
+      kao(:, 2,12, 5) = (/ &
+        & 0.82612e-04_rb,0.97349e-04_rb,0.98497e-04_rb,0.95069e-04_rb,0.89699e-04_rb, &
+        & 0.82714e-04_rb,0.70478e-04_rb,0.51645e-04_rb,0.35968e-04_rb /)
+      kao(:, 3,12, 5) = (/ &
+        & 0.87206e-04_rb,0.10402e-03_rb,0.10625e-03_rb,0.10294e-03_rb,0.97013e-04_rb, &
+        & 0.88723e-04_rb,0.76259e-04_rb,0.55960e-04_rb,0.41899e-04_rb /)
+      kao(:, 4,12, 5) = (/ &
+        & 0.91929e-04_rb,0.11153e-03_rb,0.11462e-03_rb,0.11153e-03_rb,0.10500e-03_rb, &
+        & 0.95633e-04_rb,0.82267e-04_rb,0.60868e-04_rb,0.48100e-04_rb /)
+      kao(:, 5,12, 5) = (/ &
+        & 0.97101e-04_rb,0.11996e-03_rb,0.12377e-03_rb,0.12058e-03_rb,0.11342e-03_rb, &
+        & 0.10316e-03_rb,0.88884e-04_rb,0.66077e-04_rb,0.53563e-04_rb /)
+      kao(:, 1,13, 5) = (/ &
+        & 0.65838e-04_rb,0.77620e-04_rb,0.77829e-04_rb,0.74661e-04_rb,0.70473e-04_rb, &
+        & 0.65575e-04_rb,0.55474e-04_rb,0.40441e-04_rb,0.25521e-04_rb /)
+      kao(:, 2,13, 5) = (/ &
+        & 0.69998e-04_rb,0.83015e-04_rb,0.84103e-04_rb,0.81066e-04_rb,0.76507e-04_rb, &
+        & 0.70172e-04_rb,0.59914e-04_rb,0.43882e-04_rb,0.30126e-04_rb /)
+      kao(:, 3,13, 5) = (/ &
+        & 0.74003e-04_rb,0.88878e-04_rb,0.90840e-04_rb,0.88139e-04_rb,0.82951e-04_rb, &
+        & 0.75471e-04_rb,0.64689e-04_rb,0.47652e-04_rb,0.35171e-04_rb /)
+      kao(:, 4,13, 5) = (/ &
+        & 0.78234e-04_rb,0.95561e-04_rb,0.98237e-04_rb,0.95653e-04_rb,0.89770e-04_rb, &
+        & 0.81434e-04_rb,0.69913e-04_rb,0.51882e-04_rb,0.40221e-04_rb /)
+      kao(:, 5,13, 5) = (/ &
+        & 0.82825e-04_rb,0.10313e-03_rb,0.10644e-03_rb,0.10352e-03_rb,0.97040e-04_rb, &
+        & 0.87602e-04_rb,0.75532e-04_rb,0.56387e-04_rb,0.44675e-04_rb /)
+      kao(:, 1, 1, 6) = (/ &
+        & 0.10615e-02_rb,0.12529e-02_rb,0.13083e-02_rb,0.12764e-02_rb,0.11881e-02_rb, &
+        & 0.10853e-02_rb,0.93421e-03_rb,0.71644e-03_rb,0.30757e-03_rb /)
+      kao(:, 2, 1, 6) = (/ &
+        & 0.10918e-02_rb,0.13136e-02_rb,0.13677e-02_rb,0.13350e-02_rb,0.12522e-02_rb, &
+        & 0.11402e-02_rb,0.98392e-03_rb,0.76040e-03_rb,0.35125e-03_rb /)
+      kao(:, 3, 1, 6) = (/ &
+        & 0.11297e-02_rb,0.13742e-02_rb,0.14266e-02_rb,0.13956e-02_rb,0.13143e-02_rb, &
+        & 0.11951e-02_rb,0.10359e-02_rb,0.81032e-03_rb,0.39829e-03_rb /)
+      kao(:, 4, 1, 6) = (/ &
+        & 0.11716e-02_rb,0.14330e-02_rb,0.14865e-02_rb,0.14580e-02_rb,0.13738e-02_rb, &
+        & 0.12536e-02_rb,0.10931e-02_rb,0.86605e-03_rb,0.44907e-03_rb /)
+      kao(:, 5, 1, 6) = (/ &
+        & 0.12137e-02_rb,0.14919e-02_rb,0.15477e-02_rb,0.15196e-02_rb,0.14358e-02_rb, &
+        & 0.13166e-02_rb,0.11546e-02_rb,0.92748e-03_rb,0.50593e-03_rb /)
+      kao(:, 1, 2, 6) = (/ &
+        & 0.92435e-03_rb,0.10874e-02_rb,0.11275e-02_rb,0.11015e-02_rb,0.10311e-02_rb, &
+        & 0.94231e-03_rb,0.80960e-03_rb,0.63033e-03_rb,0.26663e-03_rb /)
+      kao(:, 2, 2, 6) = (/ &
+        & 0.95885e-03_rb,0.11428e-02_rb,0.11829e-02_rb,0.11541e-02_rb,0.10849e-02_rb, &
+        & 0.98930e-03_rb,0.85567e-03_rb,0.67200e-03_rb,0.30230e-03_rb /)
+      kao(:, 3, 2, 6) = (/ &
+        & 0.99776e-03_rb,0.11978e-02_rb,0.12376e-02_rb,0.12093e-02_rb,0.11390e-02_rb, &
+        & 0.10392e-02_rb,0.90558e-03_rb,0.71833e-03_rb,0.34245e-03_rb /)
+      kao(:, 4, 2, 6) = (/ &
+        & 0.10380e-02_rb,0.12537e-02_rb,0.12935e-02_rb,0.12652e-02_rb,0.11933e-02_rb, &
+        & 0.10921e-02_rb,0.95939e-03_rb,0.76948e-03_rb,0.38641e-03_rb /)
+      kao(:, 5, 2, 6) = (/ &
+        & 0.10779e-02_rb,0.13105e-02_rb,0.13515e-02_rb,0.13214e-02_rb,0.12497e-02_rb, &
+        & 0.11514e-02_rb,0.10182e-02_rb,0.82552e-03_rb,0.43428e-03_rb /)
+      kao(:, 1, 3, 6) = (/ &
+        & 0.79958e-03_rb,0.93053e-03_rb,0.95669e-03_rb,0.93720e-03_rb,0.88165e-03_rb, &
+        & 0.80178e-03_rb,0.69131e-03_rb,0.54027e-03_rb,0.22082e-03_rb /)
+      kao(:, 2, 3, 6) = (/ &
+        & 0.83354e-03_rb,0.98064e-03_rb,0.10079e-02_rb,0.98484e-03_rb,0.92834e-03_rb, &
+        & 0.84387e-03_rb,0.73304e-03_rb,0.57932e-03_rb,0.25149e-03_rb /)
+      kao(:, 3, 3, 6) = (/ &
+        & 0.87012e-03_rb,0.10320e-02_rb,0.10600e-02_rb,0.10346e-02_rb,0.97491e-03_rb, &
+        & 0.88683e-03_rb,0.77649e-03_rb,0.62208e-03_rb,0.28527e-03_rb /)
+      kao(:, 4, 3, 6) = (/ &
+        & 0.90759e-03_rb,0.10841e-02_rb,0.11129e-02_rb,0.10858e-02_rb,0.10238e-02_rb, &
+        & 0.93520e-03_rb,0.82494e-03_rb,0.66854e-03_rb,0.32199e-03_rb /)
+      kao(:, 5, 3, 6) = (/ &
+        & 0.94443e-03_rb,0.11378e-02_rb,0.11668e-02_rb,0.11369e-02_rb,0.10746e-02_rb, &
+        & 0.98835e-03_rb,0.87764e-03_rb,0.71868e-03_rb,0.36165e-03_rb /)
+      kao(:, 1, 4, 6) = (/ &
+        & 0.68628e-03_rb,0.79104e-03_rb,0.80863e-03_rb,0.79421e-03_rb,0.74681e-03_rb, &
+        & 0.67391e-03_rb,0.58210e-03_rb,0.45790e-03_rb,0.18137e-03_rb /)
+      kao(:, 2, 4, 6) = (/ &
+        & 0.71790e-03_rb,0.83686e-03_rb,0.85591e-03_rb,0.83705e-03_rb,0.78808e-03_rb, &
+        & 0.71172e-03_rb,0.61822e-03_rb,0.49245e-03_rb,0.20729e-03_rb /)
+      kao(:, 3, 4, 6) = (/ &
+        & 0.75117e-03_rb,0.88426e-03_rb,0.90462e-03_rb,0.88167e-03_rb,0.82945e-03_rb, &
+        & 0.75050e-03_rb,0.65652e-03_rb,0.53019e-03_rb,0.23455e-03_rb /)
+      kao(:, 4, 4, 6) = (/ &
+        & 0.78430e-03_rb,0.93252e-03_rb,0.95418e-03_rb,0.92872e-03_rb,0.87301e-03_rb, &
+        & 0.79337e-03_rb,0.69871e-03_rb,0.57160e-03_rb,0.26520e-03_rb /)
+      kao(:, 5, 4, 6) = (/ &
+        & 0.81683e-03_rb,0.98168e-03_rb,0.10045e-02_rb,0.97638e-03_rb,0.92000e-03_rb, &
+        & 0.84034e-03_rb,0.74480e-03_rb,0.61518e-03_rb,0.29808e-03_rb /)
+      kao(:, 1, 5, 6) = (/ &
+        & 0.58497e-03_rb,0.66935e-03_rb,0.68301e-03_rb,0.66951e-03_rb,0.62962e-03_rb, &
+        & 0.56579e-03_rb,0.48826e-03_rb,0.38379e-03_rb,0.14576e-03_rb /)
+      kao(:, 2, 5, 6) = (/ &
+        & 0.61310e-03_rb,0.71031e-03_rb,0.72592e-03_rb,0.70978e-03_rb,0.66652e-03_rb, &
+        & 0.59753e-03_rb,0.51826e-03_rb,0.41385e-03_rb,0.16772e-03_rb /)
+      kao(:, 3, 5, 6) = (/ &
+        & 0.64179e-03_rb,0.75306e-03_rb,0.77095e-03_rb,0.75074e-03_rb,0.70458e-03_rb, &
+        & 0.63276e-03_rb,0.55157e-03_rb,0.44695e-03_rb,0.19067e-03_rb /)
+      kao(:, 4, 5, 6) = (/ &
+        & 0.67039e-03_rb,0.79634e-03_rb,0.81655e-03_rb,0.79420e-03_rb,0.74416e-03_rb, &
+        & 0.67043e-03_rb,0.58781e-03_rb,0.48223e-03_rb,0.21651e-03_rb /)
+      kao(:, 5, 5, 6) = (/ &
+        & 0.69870e-03_rb,0.83972e-03_rb,0.86240e-03_rb,0.83794e-03_rb,0.78674e-03_rb, &
+        & 0.71204e-03_rb,0.62768e-03_rb,0.51780e-03_rb,0.24414e-03_rb /)
+      kao(:, 1, 6, 6) = (/ &
+        & 0.49594e-03_rb,0.56319e-03_rb,0.57248e-03_rb,0.55950e-03_rb,0.52657e-03_rb, &
+        & 0.47274e-03_rb,0.40631e-03_rb,0.31914e-03_rb,0.11737e-03_rb /)
+      kao(:, 2, 6, 6) = (/ &
+        & 0.51946e-03_rb,0.59932e-03_rb,0.61091e-03_rb,0.59626e-03_rb,0.56011e-03_rb, &
+        & 0.50076e-03_rb,0.43158e-03_rb,0.34422e-03_rb,0.13452e-03_rb /)
+      kao(:, 3, 6, 6) = (/ &
+        & 0.54355e-03_rb,0.63601e-03_rb,0.65111e-03_rb,0.63466e-03_rb,0.59552e-03_rb, &
+        & 0.53122e-03_rb,0.45996e-03_rb,0.37172e-03_rb,0.15179e-03_rb /)
+      kao(:, 4, 6, 6) = (/ &
+        & 0.56762e-03_rb,0.67321e-03_rb,0.69130e-03_rb,0.67433e-03_rb,0.63164e-03_rb, &
+        & 0.56508e-03_rb,0.49145e-03_rb,0.39979e-03_rb,0.17118e-03_rb /)
+      kao(:, 5, 6, 6) = (/ &
+        & 0.59180e-03_rb,0.71065e-03_rb,0.73195e-03_rb,0.71355e-03_rb,0.66898e-03_rb, &
+        & 0.60268e-03_rb,0.52617e-03_rb,0.43141e-03_rb,0.19263e-03_rb /)
+      kao(:, 1, 7, 6) = (/ &
+        & 0.41932e-03_rb,0.47346e-03_rb,0.47850e-03_rb,0.46519e-03_rb,0.43628e-03_rb, &
+        & 0.39132e-03_rb,0.33641e-03_rb,0.26485e-03_rb,0.10000e-03_rb /)
+      kao(:, 2, 7, 6) = (/ &
+        & 0.43848e-03_rb,0.50411e-03_rb,0.51171e-03_rb,0.49803e-03_rb,0.46737e-03_rb, &
+        & 0.41801e-03_rb,0.35878e-03_rb,0.28532e-03_rb,0.11408e-03_rb /)
+      kao(:, 3, 7, 6) = (/ &
+        & 0.45836e-03_rb,0.53506e-03_rb,0.54578e-03_rb,0.53230e-03_rb,0.49970e-03_rb, &
+        & 0.44506e-03_rb,0.38306e-03_rb,0.30828e-03_rb,0.13001e-03_rb /)
+      kao(:, 4, 7, 6) = (/ &
+        & 0.47855e-03_rb,0.56639e-03_rb,0.58020e-03_rb,0.56722e-03_rb,0.53202e-03_rb, &
+        & 0.47546e-03_rb,0.41064e-03_rb,0.33104e-03_rb,0.14676e-03_rb /)
+      kao(:, 5, 7, 6) = (/ &
+        & 0.49885e-03_rb,0.59805e-03_rb,0.61555e-03_rb,0.60152e-03_rb,0.56466e-03_rb, &
+        & 0.50884e-03_rb,0.44071e-03_rb,0.35766e-03_rb,0.16471e-03_rb /)
+      kao(:, 1, 8, 6) = (/ &
+        & 0.35434e-03_rb,0.39784e-03_rb,0.40003e-03_rb,0.38643e-03_rb,0.36029e-03_rb, &
+        & 0.32228e-03_rb,0.27705e-03_rb,0.21936e-03_rb,0.85304e-04_rb /)
+      kao(:, 2, 8, 6) = (/ &
+        & 0.36972e-03_rb,0.42325e-03_rb,0.42802e-03_rb,0.41467e-03_rb,0.38745e-03_rb, &
+        & 0.34637e-03_rb,0.29590e-03_rb,0.23622e-03_rb,0.97535e-04_rb /)
+      kao(:, 3, 8, 6) = (/ &
+        & 0.38589e-03_rb,0.44905e-03_rb,0.45611e-03_rb,0.44402e-03_rb,0.41681e-03_rb, &
+        & 0.37125e-03_rb,0.31793e-03_rb,0.25523e-03_rb,0.11156e-03_rb /)
+      kao(:, 4, 8, 6) = (/ &
+        & 0.40282e-03_rb,0.47505e-03_rb,0.48489e-03_rb,0.47391e-03_rb,0.44440e-03_rb, &
+        & 0.39797e-03_rb,0.34220e-03_rb,0.27395e-03_rb,0.12650e-03_rb /)
+      kao(:, 5, 8, 6) = (/ &
+        & 0.41971e-03_rb,0.50175e-03_rb,0.51511e-03_rb,0.50365e-03_rb,0.47246e-03_rb, &
+        & 0.42646e-03_rb,0.36852e-03_rb,0.29705e-03_rb,0.14272e-03_rb /)
+      kao(:, 1, 9, 6) = (/ &
+        & 0.29829e-03_rb,0.33364e-03_rb,0.33392e-03_rb,0.32092e-03_rb,0.29738e-03_rb, &
+        & 0.26469e-03_rb,0.22642e-03_rb,0.18017e-03_rb,0.77064e-04_rb /)
+      kao(:, 2, 9, 6) = (/ &
+        & 0.31054e-03_rb,0.35463e-03_rb,0.35704e-03_rb,0.34432e-03_rb,0.32083e-03_rb, &
+        & 0.28575e-03_rb,0.24402e-03_rb,0.19441e-03_rb,0.87743e-04_rb /)
+      kao(:, 3, 9, 6) = (/ &
+        & 0.32389e-03_rb,0.37581e-03_rb,0.38023e-03_rb,0.36873e-03_rb,0.34562e-03_rb, &
+        & 0.30799e-03_rb,0.26274e-03_rb,0.21037e-03_rb,0.99662e-04_rb /)
+      kao(:, 4, 9, 6) = (/ &
+        & 0.33808e-03_rb,0.39748e-03_rb,0.40404e-03_rb,0.39387e-03_rb,0.36968e-03_rb, &
+        & 0.33141e-03_rb,0.28405e-03_rb,0.22647e-03_rb,0.11282e-03_rb /)
+      kao(:, 5, 9, 6) = (/ &
+        & 0.35231e-03_rb,0.41983e-03_rb,0.42961e-03_rb,0.41951e-03_rb,0.39352e-03_rb, &
+        & 0.35528e-03_rb,0.30599e-03_rb,0.24648e-03_rb,0.12841e-03_rb /)
+      kao(:, 1,10, 6) = (/ &
+        & 0.25036e-03_rb,0.27999e-03_rb,0.27949e-03_rb,0.26793e-03_rb,0.24735e-03_rb, &
+        & 0.21800e-03_rb,0.18604e-03_rb,0.14807e-03_rb,0.93146e-04_rb /)
+      kao(:, 2,10, 6) = (/ &
+        & 0.26009e-03_rb,0.29745e-03_rb,0.29870e-03_rb,0.28727e-03_rb,0.26656e-03_rb, &
+        & 0.23674e-03_rb,0.20160e-03_rb,0.16012e-03_rb,0.10408e-03_rb /)
+      kao(:, 3,10, 6) = (/ &
+        & 0.27084e-03_rb,0.31508e-03_rb,0.31779e-03_rb,0.30720e-03_rb,0.28751e-03_rb, &
+        & 0.25636e-03_rb,0.21818e-03_rb,0.17357e-03_rb,0.11611e-03_rb /)
+      kao(:, 4,10, 6) = (/ &
+        & 0.28251e-03_rb,0.33335e-03_rb,0.33759e-03_rb,0.32814e-03_rb,0.30785e-03_rb, &
+        & 0.27625e-03_rb,0.23573e-03_rb,0.18761e-03_rb,0.12959e-03_rb /)
+      kao(:, 5,10, 6) = (/ &
+        & 0.29455e-03_rb,0.35211e-03_rb,0.35903e-03_rb,0.34997e-03_rb,0.32871e-03_rb, &
+        & 0.29658e-03_rb,0.25454e-03_rb,0.20476e-03_rb,0.14404e-03_rb /)
+      kao(:, 1,11, 6) = (/ &
+        & 0.21327e-03_rb,0.24042e-03_rb,0.24026e-03_rb,0.23068e-03_rb,0.21276e-03_rb, &
+        & 0.18665e-03_rb,0.15901e-03_rb,0.12570e-03_rb,0.94295e-04_rb /)
+      kao(:, 2,11, 6) = (/ &
+        & 0.22127e-03_rb,0.25493e-03_rb,0.25609e-03_rb,0.24693e-03_rb,0.22931e-03_rb, &
+        & 0.20329e-03_rb,0.17265e-03_rb,0.13686e-03_rb,0.10535e-03_rb /)
+      kao(:, 3,11, 6) = (/ &
+        & 0.23042e-03_rb,0.26962e-03_rb,0.27233e-03_rb,0.26383e-03_rb,0.24677e-03_rb, &
+        & 0.22030e-03_rb,0.18718e-03_rb,0.14788e-03_rb,0.11369e-03_rb /)
+      kao(:, 4,11, 6) = (/ &
+        & 0.24025e-03_rb,0.28500e-03_rb,0.28961e-03_rb,0.28171e-03_rb,0.26402e-03_rb, &
+        & 0.23726e-03_rb,0.20232e-03_rb,0.16110e-03_rb,0.12526e-03_rb /)
+      kao(:, 5,11, 6) = (/ &
+        & 0.25035e-03_rb,0.30139e-03_rb,0.30818e-03_rb,0.30033e-03_rb,0.28246e-03_rb, &
+        & 0.25541e-03_rb,0.21869e-03_rb,0.17592e-03_rb,0.13806e-03_rb /)
+      kao(:, 1,12, 6) = (/ &
+        & 0.18213e-03_rb,0.20563e-03_rb,0.20558e-03_rb,0.19744e-03_rb,0.18197e-03_rb, &
+        & 0.15967e-03_rb,0.13562e-03_rb,0.10709e-03_rb,0.84300e-04_rb /)
+      kao(:, 2,12, 6) = (/ &
+        & 0.18873e-03_rb,0.21755e-03_rb,0.21877e-03_rb,0.21098e-03_rb,0.19617e-03_rb, &
+        & 0.17419e-03_rb,0.14735e-03_rb,0.11726e-03_rb,0.96090e-04_rb /)
+      kao(:, 3,12, 6) = (/ &
+        & 0.19633e-03_rb,0.22994e-03_rb,0.23250e-03_rb,0.22538e-03_rb,0.21092e-03_rb, &
+        & 0.18881e-03_rb,0.15987e-03_rb,0.12650e-03_rb,0.10477e-03_rb /)
+      kao(:, 4,12, 6) = (/ &
+        & 0.20445e-03_rb,0.24309e-03_rb,0.24729e-03_rb,0.24084e-03_rb,0.22613e-03_rb, &
+        & 0.20371e-03_rb,0.17330e-03_rb,0.13785e-03_rb,0.11268e-03_rb /)
+      kao(:, 5,12, 6) = (/ &
+        & 0.21299e-03_rb,0.25719e-03_rb,0.26315e-03_rb,0.25711e-03_rb,0.24260e-03_rb, &
+        & 0.21944e-03_rb,0.18764e-03_rb,0.15038e-03_rb,0.12367e-03_rb /)
+      kao(:, 1,13, 6) = (/ &
+        & 0.15527e-03_rb,0.17641e-03_rb,0.17566e-03_rb,0.16836e-03_rb,0.15534e-03_rb, &
+        & 0.13636e-03_rb,0.11530e-03_rb,0.91307e-04_rb,0.70205e-04_rb /)
+      kao(:, 2,13, 6) = (/ &
+        & 0.16096e-03_rb,0.18612e-03_rb,0.18657e-03_rb,0.17973e-03_rb,0.16702e-03_rb, &
+        & 0.14851e-03_rb,0.12550e-03_rb,0.99145e-04_rb,0.79984e-04_rb /)
+      kao(:, 3,13, 6) = (/ &
+        & 0.16748e-03_rb,0.19648e-03_rb,0.19822e-03_rb,0.19209e-03_rb,0.17957e-03_rb, &
+        & 0.16107e-03_rb,0.13652e-03_rb,0.10753e-03_rb,0.86067e-04_rb /)
+      kao(:, 4,13, 6) = (/ &
+        & 0.17450e-03_rb,0.20751e-03_rb,0.21098e-03_rb,0.20534e-03_rb,0.19295e-03_rb, &
+        & 0.17420e-03_rb,0.14816e-03_rb,0.11772e-03_rb,0.93252e-04_rb /)
+      kao(:, 5,13, 6) = (/ &
+        & 0.18233e-03_rb,0.21950e-03_rb,0.22442e-03_rb,0.21958e-03_rb,0.20754e-03_rb, &
+        & 0.18842e-03_rb,0.16097e-03_rb,0.12851e-03_rb,0.10278e-03_rb /)
+      kao(:, 1, 1, 7) = (/ &
+        & 0.23852e-02_rb,0.24955e-02_rb,0.25247e-02_rb,0.24784e-02_rb,0.23525e-02_rb, &
+        & 0.21437e-02_rb,0.18704e-02_rb,0.15353e-02_rb,0.99116e-03_rb /)
+      kao(:, 2, 1, 7) = (/ &
+        & 0.23950e-02_rb,0.25560e-02_rb,0.26150e-02_rb,0.25851e-02_rb,0.24612e-02_rb, &
+        & 0.22632e-02_rb,0.20004e-02_rb,0.16585e-02_rb,0.11087e-02_rb /)
+      kao(:, 3, 1, 7) = (/ &
+        & 0.24020e-02_rb,0.26226e-02_rb,0.27112e-02_rb,0.26940e-02_rb,0.25772e-02_rb, &
+        & 0.23915e-02_rb,0.21332e-02_rb,0.17859e-02_rb,0.12435e-02_rb /)
+      kao(:, 4, 1, 7) = (/ &
+        & 0.24093e-02_rb,0.26930e-02_rb,0.28096e-02_rb,0.28038e-02_rb,0.27017e-02_rb, &
+        & 0.25227e-02_rb,0.22696e-02_rb,0.19198e-02_rb,0.13912e-02_rb /)
+      kao(:, 5, 1, 7) = (/ &
+        & 0.24224e-02_rb,0.27647e-02_rb,0.29093e-02_rb,0.29173e-02_rb,0.28299e-02_rb, &
+        & 0.26579e-02_rb,0.24103e-02_rb,0.20612e-02_rb,0.15535e-02_rb /)
+      kao(:, 1, 2, 7) = (/ &
+        & 0.20974e-02_rb,0.22118e-02_rb,0.22296e-02_rb,0.21778e-02_rb,0.20625e-02_rb, &
+        & 0.18815e-02_rb,0.16530e-02_rb,0.13562e-02_rb,0.82141e-03_rb /)
+      kao(:, 2, 2, 7) = (/ &
+        & 0.21046e-02_rb,0.22702e-02_rb,0.23143e-02_rb,0.22813e-02_rb,0.21720e-02_rb, &
+        & 0.19971e-02_rb,0.17712e-02_rb,0.14678e-02_rb,0.93003e-03_rb /)
+      kao(:, 3, 2, 7) = (/ &
+        & 0.21127e-02_rb,0.23326e-02_rb,0.24062e-02_rb,0.23885e-02_rb,0.22861e-02_rb, &
+        & 0.21193e-02_rb,0.18939e-02_rb,0.15834e-02_rb,0.10463e-02_rb /)
+      kao(:, 4, 2, 7) = (/ &
+        & 0.21272e-02_rb,0.23971e-02_rb,0.25002e-02_rb,0.24977e-02_rb,0.24074e-02_rb, &
+        & 0.22461e-02_rb,0.20177e-02_rb,0.17030e-02_rb,0.11732e-02_rb /)
+      kao(:, 5, 2, 7) = (/ &
+        & 0.21483e-02_rb,0.24652e-02_rb,0.25947e-02_rb,0.26138e-02_rb,0.25341e-02_rb, &
+        & 0.23755e-02_rb,0.21449e-02_rb,0.18299e-02_rb,0.13107e-02_rb /)
+      kao(:, 1, 3, 7) = (/ &
+        & 0.18244e-02_rb,0.19320e-02_rb,0.19387e-02_rb,0.18795e-02_rb,0.17712e-02_rb, &
+        & 0.16188e-02_rb,0.14258e-02_rb,0.11664e-02_rb,0.66404e-03_rb /)
+      kao(:, 2, 3, 7) = (/ &
+        & 0.18322e-02_rb,0.19846e-02_rb,0.20150e-02_rb,0.19741e-02_rb,0.18746e-02_rb, &
+        & 0.17292e-02_rb,0.15311e-02_rb,0.12668e-02_rb,0.75772e-03_rb /)
+      kao(:, 3, 3, 7) = (/ &
+        & 0.18451e-02_rb,0.20412e-02_rb,0.20960e-02_rb,0.20746e-02_rb,0.19871e-02_rb, &
+        & 0.18444e-02_rb,0.16430e-02_rb,0.13711e-02_rb,0.85470e-03_rb /)
+      kao(:, 4, 3, 7) = (/ &
+        & 0.18657e-02_rb,0.21020e-02_rb,0.21815e-02_rb,0.21798e-02_rb,0.21034e-02_rb, &
+        & 0.19629e-02_rb,0.17571e-02_rb,0.14786e-02_rb,0.95834e-03_rb /)
+      kao(:, 5, 3, 7) = (/ &
+        & 0.18943e-02_rb,0.21674e-02_rb,0.22717e-02_rb,0.22915e-02_rb,0.22239e-02_rb, &
+        & 0.20844e-02_rb,0.18739e-02_rb,0.15906e-02_rb,0.10775e-02_rb /)
+      kao(:, 1, 4, 7) = (/ &
+        & 0.15758e-02_rb,0.16711e-02_rb,0.16675e-02_rb,0.16043e-02_rb,0.15088e-02_rb, &
+        & 0.13785e-02_rb,0.12140e-02_rb,0.98780e-03_rb,0.53258e-03_rb /)
+      kao(:, 2, 4, 7) = (/ &
+        & 0.15867e-02_rb,0.17169e-02_rb,0.17338e-02_rb,0.16891e-02_rb,0.16022e-02_rb, &
+        & 0.14807e-02_rb,0.13108e-02_rb,0.10774e-02_rb,0.61127e-03_rb /)
+      kao(:, 3, 4, 7) = (/ &
+        & 0.16043e-02_rb,0.17687e-02_rb,0.18047e-02_rb,0.17788e-02_rb,0.17054e-02_rb, &
+        & 0.15869e-02_rb,0.14121e-02_rb,0.11700e-02_rb,0.69092e-03_rb /)
+      kao(:, 4, 4, 7) = (/ &
+        & 0.16308e-02_rb,0.18263e-02_rb,0.18817e-02_rb,0.18741e-02_rb,0.18139e-02_rb, &
+        & 0.16955e-02_rb,0.15162e-02_rb,0.12673e-02_rb,0.77859e-03_rb /)
+      kao(:, 5, 4, 7) = (/ &
+        & 0.16631e-02_rb,0.18894e-02_rb,0.19653e-02_rb,0.19764e-02_rb,0.19240e-02_rb, &
+        & 0.18069e-02_rb,0.16237e-02_rb,0.13697e-02_rb,0.87657e-03_rb /)
+      kao(:, 1, 5, 7) = (/ &
+        & 0.13575e-02_rb,0.14376e-02_rb,0.14238e-02_rb,0.13660e-02_rb,0.12806e-02_rb, &
+        & 0.11664e-02_rb,0.10231e-02_rb,0.82794e-03_rb,0.42595e-03_rb /)
+      kao(:, 2, 5, 7) = (/ &
+        & 0.13711e-02_rb,0.14787e-02_rb,0.14807e-02_rb,0.14369e-02_rb,0.13637e-02_rb, &
+        & 0.12570e-02_rb,0.11125e-02_rb,0.90729e-03_rb,0.48990e-03_rb /)
+      kao(:, 3, 5, 7) = (/ &
+        & 0.13932e-02_rb,0.15262e-02_rb,0.15434e-02_rb,0.15158e-02_rb,0.14536e-02_rb, &
+        & 0.13534e-02_rb,0.12033e-02_rb,0.99132e-03_rb,0.55848e-03_rb /)
+      kao(:, 4, 5, 7) = (/ &
+        & 0.14217e-02_rb,0.15804e-02_rb,0.16130e-02_rb,0.16009e-02_rb,0.15482e-02_rb, &
+        & 0.14537e-02_rb,0.12991e-02_rb,0.10796e-02_rb,0.63246e-03_rb /)
+      kao(:, 5, 5, 7) = (/ &
+        & 0.14548e-02_rb,0.16406e-02_rb,0.16899e-02_rb,0.16924e-02_rb,0.16473e-02_rb, &
+        & 0.15538e-02_rb,0.13988e-02_rb,0.11736e-02_rb,0.71422e-03_rb /)
+      kao(:, 1, 6, 7) = (/ &
+        & 0.11657e-02_rb,0.12310e-02_rb,0.12114e-02_rb,0.11593e-02_rb,0.10807e-02_rb, &
+        & 0.97870e-03_rb,0.85220e-03_rb,0.68679e-03_rb,0.33278e-03_rb /)
+      kao(:, 2, 6, 7) = (/ &
+        & 0.11817e-02_rb,0.12689e-02_rb,0.12606e-02_rb,0.12200e-02_rb,0.11515e-02_rb, &
+        & 0.10575e-02_rb,0.93300e-03_rb,0.75653e-03_rb,0.38390e-03_rb /)
+      kao(:, 3, 6, 7) = (/ &
+        & 0.12052e-02_rb,0.13132e-02_rb,0.13166e-02_rb,0.12868e-02_rb,0.12281e-02_rb, &
+        & 0.11419e-02_rb,0.10150e-02_rb,0.83054e-03_rb,0.44291e-03_rb /)
+      kao(:, 4, 6, 7) = (/ &
+        & 0.12337e-02_rb,0.13638e-02_rb,0.13800e-02_rb,0.13608e-02_rb,0.13105e-02_rb, &
+        & 0.12294e-02_rb,0.11010e-02_rb,0.91218e-03_rb,0.50714e-03_rb /)
+      kao(:, 5, 6, 7) = (/ &
+        & 0.12657e-02_rb,0.14200e-02_rb,0.14498e-02_rb,0.14421e-02_rb,0.13994e-02_rb, &
+        & 0.13201e-02_rb,0.11915e-02_rb,0.99447e-03_rb,0.57759e-03_rb /)
+      kao(:, 1, 7, 7) = (/ &
+        & 0.99495e-03_rb,0.10489e-02_rb,0.10293e-02_rb,0.98184e-03_rb,0.91156e-03_rb, &
+        & 0.82083e-03_rb,0.70758e-03_rb,0.56387e-03_rb,0.26025e-03_rb /)
+      kao(:, 2, 7, 7) = (/ &
+        & 0.10122e-02_rb,0.10837e-02_rb,0.10724e-02_rb,0.10344e-02_rb,0.96982e-03_rb, &
+        & 0.88589e-03_rb,0.77530e-03_rb,0.62605e-03_rb,0.29914e-03_rb /)
+      kao(:, 3, 7, 7) = (/ &
+        & 0.10351e-02_rb,0.11253e-02_rb,0.11236e-02_rb,0.10922e-02_rb,0.10352e-02_rb, &
+        & 0.95724e-03_rb,0.84889e-03_rb,0.69076e-03_rb,0.34305e-03_rb /)
+      kao(:, 4, 7, 7) = (/ &
+        & 0.10622e-02_rb,0.11721e-02_rb,0.11813e-02_rb,0.11564e-02_rb,0.11065e-02_rb, &
+        & 0.10331e-02_rb,0.92494e-03_rb,0.76297e-03_rb,0.39175e-03_rb /)
+      kao(:, 5, 7, 7) = (/ &
+        & 0.10903e-02_rb,0.12244e-02_rb,0.12441e-02_rb,0.12287e-02_rb,0.11845e-02_rb, &
+        & 0.11129e-02_rb,0.10035e-02_rb,0.83648e-03_rb,0.44712e-03_rb /)
+      kao(:, 1, 8, 7) = (/ &
+        & 0.84532e-03_rb,0.88892e-03_rb,0.86965e-03_rb,0.82727e-03_rb,0.76674e-03_rb, &
+        & 0.68807e-03_rb,0.58679e-03_rb,0.46179e-03_rb,0.21931e-03_rb /)
+      kao(:, 2, 8, 7) = (/ &
+        & 0.86227e-03_rb,0.92051e-03_rb,0.90826e-03_rb,0.87315e-03_rb,0.81675e-03_rb, &
+        & 0.74173e-03_rb,0.64502e-03_rb,0.51436e-03_rb,0.25538e-03_rb /)
+      kao(:, 3, 8, 7) = (/ &
+        & 0.88387e-03_rb,0.95827e-03_rb,0.95473e-03_rb,0.92480e-03_rb,0.87135e-03_rb, &
+        & 0.80090e-03_rb,0.70594e-03_rb,0.57141e-03_rb,0.29275e-03_rb /)
+      kao(:, 4, 8, 7) = (/ &
+        & 0.90659e-03_rb,0.10014e-02_rb,0.10072e-02_rb,0.98186e-03_rb,0.93348e-03_rb, &
+        & 0.86582e-03_rb,0.77148e-03_rb,0.63431e-03_rb,0.33522e-03_rb /)
+      kao(:, 5, 8, 7) = (/ &
+        & 0.93066e-03_rb,0.10477e-02_rb,0.10640e-02_rb,0.10456e-02_rb,0.10022e-02_rb, &
+        & 0.93597e-03_rb,0.84005e-03_rb,0.69831e-03_rb,0.38214e-03_rb /)
+      kao(:, 1, 9, 7) = (/ &
+        & 0.71681e-03_rb,0.75151e-03_rb,0.73165e-03_rb,0.69303e-03_rb,0.64106e-03_rb, &
+        & 0.57326e-03_rb,0.48762e-03_rb,0.37724e-03_rb,0.19963e-03_rb /)
+      kao(:, 2, 9, 7) = (/ &
+        & 0.73278e-03_rb,0.77936e-03_rb,0.76580e-03_rb,0.73272e-03_rb,0.68369e-03_rb, &
+        & 0.61851e-03_rb,0.53463e-03_rb,0.42190e-03_rb,0.23258e-03_rb /)
+      kao(:, 3, 9, 7) = (/ &
+        & 0.75147e-03_rb,0.81327e-03_rb,0.80692e-03_rb,0.77827e-03_rb,0.73101e-03_rb, &
+        & 0.66869e-03_rb,0.58582e-03_rb,0.47030e-03_rb,0.26770e-03_rb /)
+      kao(:, 4, 9, 7) = (/ &
+        & 0.77011e-03_rb,0.85035e-03_rb,0.85331e-03_rb,0.82912e-03_rb,0.78414e-03_rb, &
+        & 0.72425e-03_rb,0.64047e-03_rb,0.52434e-03_rb,0.30603e-03_rb /)
+      kao(:, 5, 9, 7) = (/ &
+        & 0.79031e-03_rb,0.89033e-03_rb,0.90223e-03_rb,0.88462e-03_rb,0.84489e-03_rb, &
+        & 0.78478e-03_rb,0.70032e-03_rb,0.57826e-03_rb,0.34848e-03_rb /)
+      kao(:, 1,10, 7) = (/ &
+        & 0.60860e-03_rb,0.63631e-03_rb,0.61722e-03_rb,0.58182e-03_rb,0.53631e-03_rb, &
+        & 0.47875e-03_rb,0.40598e-03_rb,0.31001e-03_rb,0.21716e-03_rb /)
+      kao(:, 2,10, 7) = (/ &
+        & 0.62300e-03_rb,0.66096e-03_rb,0.64723e-03_rb,0.61624e-03_rb,0.57283e-03_rb, &
+        & 0.51614e-03_rb,0.44515e-03_rb,0.34783e-03_rb,0.24030e-03_rb /)
+      kao(:, 3,10, 7) = (/ &
+        & 0.63811e-03_rb,0.69041e-03_rb,0.68320e-03_rb,0.65609e-03_rb,0.61386e-03_rb, &
+        & 0.55902e-03_rb,0.48770e-03_rb,0.38933e-03_rb,0.26729e-03_rb /)
+      kao(:, 4,10, 7) = (/ &
+        & 0.65360e-03_rb,0.72213e-03_rb,0.72254e-03_rb,0.70011e-03_rb,0.66034e-03_rb, &
+        & 0.60659e-03_rb,0.53507e-03_rb,0.43477e-03_rb,0.29849e-03_rb /)
+      kao(:, 5,10, 7) = (/ &
+        & 0.67038e-03_rb,0.75665e-03_rb,0.76418e-03_rb,0.74727e-03_rb,0.71207e-03_rb, &
+        & 0.65924e-03_rb,0.58660e-03_rb,0.48108e-03_rb,0.33464e-03_rb /)
+      kao(:, 1,11, 7) = (/ &
+        & 0.52185e-03_rb,0.54797e-03_rb,0.53190e-03_rb,0.50128e-03_rb,0.46230e-03_rb, &
+        & 0.41291e-03_rb,0.35086e-03_rb,0.26843e-03_rb,0.22407e-03_rb /)
+      kao(:, 2,11, 7) = (/ &
+        & 0.53416e-03_rb,0.57111e-03_rb,0.56029e-03_rb,0.53286e-03_rb,0.49524e-03_rb, &
+        & 0.44633e-03_rb,0.38530e-03_rb,0.30138e-03_rb,0.24793e-03_rb /)
+      kao(:, 3,11, 7) = (/ &
+        & 0.54635e-03_rb,0.59685e-03_rb,0.59183e-03_rb,0.56852e-03_rb,0.53236e-03_rb, &
+        & 0.48455e-03_rb,0.42287e-03_rb,0.33910e-03_rb,0.27073e-03_rb /)
+      kao(:, 4,11, 7) = (/ &
+        & 0.55941e-03_rb,0.62493e-03_rb,0.62582e-03_rb,0.60673e-03_rb,0.57348e-03_rb, &
+        & 0.52713e-03_rb,0.46523e-03_rb,0.37861e-03_rb,0.29520e-03_rb /)
+      kao(:, 5,11, 7) = (/ &
+        & 0.57459e-03_rb,0.65537e-03_rb,0.66217e-03_rb,0.64854e-03_rb,0.61857e-03_rb, &
+        & 0.57343e-03_rb,0.51159e-03_rb,0.41997e-03_rb,0.32408e-03_rb /)
+      kao(:, 1,12, 7) = (/ &
+        & 0.44547e-03_rb,0.47205e-03_rb,0.45856e-03_rb,0.43259e-03_rb,0.39885e-03_rb, &
+        & 0.35629e-03_rb,0.30273e-03_rb,0.23099e-03_rb,0.20507e-03_rb /)
+      kao(:, 2,12, 7) = (/ &
+        & 0.45530e-03_rb,0.49200e-03_rb,0.48355e-03_rb,0.46058e-03_rb,0.42831e-03_rb, &
+        & 0.38615e-03_rb,0.33301e-03_rb,0.25970e-03_rb,0.22582e-03_rb /)
+      kao(:, 3,12, 7) = (/ &
+        & 0.46565e-03_rb,0.51443e-03_rb,0.51077e-03_rb,0.49108e-03_rb,0.46067e-03_rb, &
+        & 0.41962e-03_rb,0.36657e-03_rb,0.29355e-03_rb,0.24853e-03_rb /)
+      kao(:, 4,12, 7) = (/ &
+        & 0.47732e-03_rb,0.53905e-03_rb,0.54027e-03_rb,0.52415e-03_rb,0.49634e-03_rb, &
+        & 0.45650e-03_rb,0.40422e-03_rb,0.32887e-03_rb,0.26943e-03_rb /)
+      kao(:, 5,12, 7) = (/ &
+        & 0.49131e-03_rb,0.56624e-03_rb,0.57259e-03_rb,0.56091e-03_rb,0.53532e-03_rb, &
+        & 0.49724e-03_rb,0.44494e-03_rb,0.36671e-03_rb,0.29370e-03_rb /)
+      kao(:, 1,13, 7) = (/ &
+        & 0.37861e-03_rb,0.40433e-03_rb,0.39425e-03_rb,0.37277e-03_rb,0.34384e-03_rb, &
+        & 0.30718e-03_rb,0.26082e-03_rb,0.19813e-03_rb,0.17021e-03_rb /)
+      kao(:, 2,13, 7) = (/ &
+        & 0.38646e-03_rb,0.42180e-03_rb,0.41569e-03_rb,0.39676e-03_rb,0.36941e-03_rb, &
+        & 0.33370e-03_rb,0.28746e-03_rb,0.22445e-03_rb,0.18768e-03_rb /)
+      kao(:, 3,13, 7) = (/ &
+        & 0.39522e-03_rb,0.44150e-03_rb,0.43928e-03_rb,0.42293e-03_rb,0.39746e-03_rb, &
+        & 0.36268e-03_rb,0.31709e-03_rb,0.25391e-03_rb,0.20463e-03_rb /)
+      kao(:, 4,13, 7) = (/ &
+        & 0.40576e-03_rb,0.46362e-03_rb,0.46497e-03_rb,0.45178e-03_rb,0.42852e-03_rb, &
+        & 0.39486e-03_rb,0.34992e-03_rb,0.28472e-03_rb,0.22430e-03_rb /)
+      kao(:, 5,13, 7) = (/ &
+        & 0.41810e-03_rb,0.48813e-03_rb,0.49424e-03_rb,0.48434e-03_rb,0.46280e-03_rb, &
+        & 0.43027e-03_rb,0.38540e-03_rb,0.31863e-03_rb,0.24541e-03_rb /)
+      kao(:, 1, 1, 8) = (/ &
+        & 0.52571e-02_rb,0.51649e-02_rb,0.50998e-02_rb,0.49978e-02_rb,0.48299e-02_rb, &
+        & 0.45478e-02_rb,0.41071e-02_rb,0.34884e-02_rb,0.27402e-02_rb /)
+      kao(:, 2, 1, 8) = (/ &
+        & 0.51967e-02_rb,0.52277e-02_rb,0.52437e-02_rb,0.52099e-02_rb,0.50894e-02_rb, &
+        & 0.48424e-02_rb,0.44165e-02_rb,0.38421e-02_rb,0.31643e-02_rb /)
+      kao(:, 3, 1, 8) = (/ &
+        & 0.51548e-02_rb,0.53047e-02_rb,0.54023e-02_rb,0.54271e-02_rb,0.53544e-02_rb, &
+        & 0.51370e-02_rb,0.47457e-02_rb,0.42178e-02_rb,0.36142e-02_rb /)
+      kao(:, 4, 1, 8) = (/ &
+        & 0.51293e-02_rb,0.53942e-02_rb,0.55672e-02_rb,0.56512e-02_rb,0.56201e-02_rb, &
+        & 0.54409e-02_rb,0.50927e-02_rb,0.46186e-02_rb,0.40998e-02_rb /)
+      kao(:, 5, 1, 8) = (/ &
+        & 0.51178e-02_rb,0.54996e-02_rb,0.57406e-02_rb,0.58798e-02_rb,0.58932e-02_rb, &
+        & 0.57606e-02_rb,0.54613e-02_rb,0.50399e-02_rb,0.46100e-02_rb /)
+      kao(:, 1, 2, 8) = (/ &
+        & 0.47778e-02_rb,0.47398e-02_rb,0.47115e-02_rb,0.46169e-02_rb,0.44426e-02_rb, &
+        & 0.41630e-02_rb,0.37511e-02_rb,0.31426e-02_rb,0.23122e-02_rb /)
+      kao(:, 2, 2, 8) = (/ &
+        & 0.47384e-02_rb,0.48111e-02_rb,0.48532e-02_rb,0.48144e-02_rb,0.46755e-02_rb, &
+        & 0.44342e-02_rb,0.40397e-02_rb,0.34599e-02_rb,0.26698e-02_rb /)
+      kao(:, 3, 2, 8) = (/ &
+        & 0.47181e-02_rb,0.49025e-02_rb,0.50071e-02_rb,0.50151e-02_rb,0.49194e-02_rb, &
+        & 0.47085e-02_rb,0.43402e-02_rb,0.37956e-02_rb,0.30630e-02_rb /)
+      kao(:, 4, 2, 8) = (/ &
+        & 0.47137e-02_rb,0.50070e-02_rb,0.51691e-02_rb,0.52245e-02_rb,0.51706e-02_rb, &
+        & 0.49959e-02_rb,0.46583e-02_rb,0.41574e-02_rb,0.34865e-02_rb /)
+      kao(:, 5, 2, 8) = (/ &
+        & 0.47212e-02_rb,0.51234e-02_rb,0.53397e-02_rb,0.54379e-02_rb,0.54276e-02_rb, &
+        & 0.52983e-02_rb,0.49978e-02_rb,0.45412e-02_rb,0.39357e-02_rb /)
+      kao(:, 1, 3, 8) = (/ &
+        & 0.42971e-02_rb,0.42851e-02_rb,0.42729e-02_rb,0.41707e-02_rb,0.39926e-02_rb, &
+        & 0.37146e-02_rb,0.33264e-02_rb,0.27717e-02_rb,0.18852e-02_rb /)
+      kao(:, 2, 3, 8) = (/ &
+        & 0.42740e-02_rb,0.43647e-02_rb,0.44079e-02_rb,0.43562e-02_rb,0.42040e-02_rb, &
+        & 0.39559e-02_rb,0.35908e-02_rb,0.30443e-02_rb,0.21816e-02_rb /)
+      kao(:, 3, 3, 8) = (/ &
+        & 0.42703e-02_rb,0.44650e-02_rb,0.45616e-02_rb,0.45425e-02_rb,0.44233e-02_rb, &
+        & 0.42066e-02_rb,0.38676e-02_rb,0.33396e-02_rb,0.25126e-02_rb /)
+      kao(:, 4, 3, 8) = (/ &
+        & 0.42812e-02_rb,0.45806e-02_rb,0.47230e-02_rb,0.47371e-02_rb,0.46519e-02_rb, &
+        & 0.44691e-02_rb,0.41620e-02_rb,0.36586e-02_rb,0.28704e-02_rb /)
+      kao(:, 5, 3, 8) = (/ &
+        & 0.43030e-02_rb,0.47042e-02_rb,0.48922e-02_rb,0.49377e-02_rb,0.48939e-02_rb, &
+        & 0.47477e-02_rb,0.44742e-02_rb,0.39985e-02_rb,0.32501e-02_rb /)
+      kao(:, 1, 4, 8) = (/ &
+        & 0.38233e-02_rb,0.38279e-02_rb,0.38143e-02_rb,0.37097e-02_rb,0.35270e-02_rb, &
+        & 0.32658e-02_rb,0.29019e-02_rb,0.24142e-02_rb,0.15291e-02_rb /)
+      kao(:, 2, 4, 8) = (/ &
+        & 0.38114e-02_rb,0.39122e-02_rb,0.39475e-02_rb,0.38778e-02_rb,0.37194e-02_rb, &
+        & 0.34777e-02_rb,0.31357e-02_rb,0.26541e-02_rb,0.17758e-02_rb /)
+      kao(:, 3, 4, 8) = (/ &
+        & 0.38202e-02_rb,0.40186e-02_rb,0.40970e-02_rb,0.40542e-02_rb,0.39201e-02_rb, &
+        & 0.37024e-02_rb,0.33826e-02_rb,0.29146e-02_rb,0.20543e-02_rb /)
+      kao(:, 4, 4, 8) = (/ &
+        & 0.38442e-02_rb,0.41385e-02_rb,0.42569e-02_rb,0.42394e-02_rb,0.41310e-02_rb, &
+        & 0.39403e-02_rb,0.36479e-02_rb,0.31917e-02_rb,0.23538e-02_rb /)
+      kao(:, 5, 4, 8) = (/ &
+        & 0.38788e-02_rb,0.42695e-02_rb,0.44229e-02_rb,0.44328e-02_rb,0.43540e-02_rb, &
+        & 0.41948e-02_rb,0.39317e-02_rb,0.34895e-02_rb,0.26724e-02_rb /)
+      kao(:, 1, 5, 8) = (/ &
+        & 0.33660e-02_rb,0.33879e-02_rb,0.33669e-02_rb,0.32570e-02_rb,0.30787e-02_rb, &
+        & 0.28362e-02_rb,0.25094e-02_rb,0.20819e-02_rb,0.12376e-02_rb /)
+      kao(:, 2, 5, 8) = (/ &
+        & 0.33649e-02_rb,0.34740e-02_rb,0.34949e-02_rb,0.34119e-02_rb,0.32508e-02_rb, &
+        & 0.30247e-02_rb,0.27121e-02_rb,0.22949e-02_rb,0.14462e-02_rb /)
+      kao(:, 3, 5, 8) = (/ &
+        & 0.33839e-02_rb,0.35821e-02_rb,0.36398e-02_rb,0.35762e-02_rb,0.34359e-02_rb, &
+        & 0.32230e-02_rb,0.29317e-02_rb,0.25218e-02_rb,0.16788e-02_rb /)
+      kao(:, 4, 5, 8) = (/ &
+        & 0.34188e-02_rb,0.37047e-02_rb,0.37932e-02_rb,0.37524e-02_rb,0.36321e-02_rb, &
+        & 0.34359e-02_rb,0.31677e-02_rb,0.27663e-02_rb,0.19299e-02_rb /)
+      kao(:, 5, 5, 8) = (/ &
+        & 0.34572e-02_rb,0.38382e-02_rb,0.39563e-02_rb,0.39381e-02_rb,0.38416e-02_rb, &
+        & 0.36710e-02_rb,0.34185e-02_rb,0.30298e-02_rb,0.21985e-02_rb /)
+      kao(:, 1, 6, 8) = (/ &
+        & 0.29383e-02_rb,0.29689e-02_rb,0.29375e-02_rb,0.28254e-02_rb,0.26571e-02_rb, &
+        & 0.24356e-02_rb,0.21491e-02_rb,0.17706e-02_rb,0.99284e-03_rb /)
+      kao(:, 2, 6, 8) = (/ &
+        & 0.29460e-02_rb,0.30526e-02_rb,0.30576e-02_rb,0.29676e-02_rb,0.28114e-02_rb, &
+        & 0.25995e-02_rb,0.23244e-02_rb,0.19573e-02_rb,0.11692e-02_rb /)
+      kao(:, 3, 6, 8) = (/ &
+        & 0.29740e-02_rb,0.31582e-02_rb,0.31942e-02_rb,0.31202e-02_rb,0.29785e-02_rb, &
+        & 0.27771e-02_rb,0.25160e-02_rb,0.21565e-02_rb,0.13616e-02_rb /)
+      kao(:, 4, 6, 8) = (/ &
+        & 0.30101e-02_rb,0.32807e-02_rb,0.33417e-02_rb,0.32855e-02_rb,0.31583e-02_rb, &
+        & 0.29708e-02_rb,0.27234e-02_rb,0.23688e-02_rb,0.15696e-02_rb /)
+      kao(:, 5, 6, 8) = (/ &
+        & 0.30525e-02_rb,0.34071e-02_rb,0.34999e-02_rb,0.34618e-02_rb,0.33518e-02_rb, &
+        & 0.31829e-02_rb,0.29437e-02_rb,0.25986e-02_rb,0.17941e-02_rb /)
+      kao(:, 1, 7, 8) = (/ &
+        & 0.25527e-02_rb,0.25837e-02_rb,0.25415e-02_rb,0.24332e-02_rb,0.22747e-02_rb, &
+        & 0.20758e-02_rb,0.18231e-02_rb,0.14951e-02_rb,0.78066e-03_rb /)
+      kao(:, 2, 7, 8) = (/ &
+        & 0.25661e-02_rb,0.26638e-02_rb,0.26497e-02_rb,0.25583e-02_rb,0.24134e-02_rb, &
+        & 0.22212e-02_rb,0.19774e-02_rb,0.16540e-02_rb,0.92809e-03_rb /)
+      kao(:, 3, 7, 8) = (/ &
+        & 0.25966e-02_rb,0.27642e-02_rb,0.27764e-02_rb,0.26998e-02_rb,0.25630e-02_rb, &
+        & 0.23812e-02_rb,0.21449e-02_rb,0.18264e-02_rb,0.10893e-02_rb /)
+      kao(:, 4, 7, 8) = (/ &
+        & 0.26340e-02_rb,0.28771e-02_rb,0.29165e-02_rb,0.28538e-02_rb,0.27279e-02_rb, &
+        & 0.25553e-02_rb,0.23260e-02_rb,0.20107e-02_rb,0.12665e-02_rb /)
+      kao(:, 5, 7, 8) = (/ &
+        & 0.26829e-02_rb,0.29939e-02_rb,0.30639e-02_rb,0.30192e-02_rb,0.29089e-02_rb, &
+        & 0.27450e-02_rb,0.25219e-02_rb,0.22101e-02_rb,0.14584e-02_rb /)
+      kao(:, 1, 8, 8) = (/ &
+        & 0.22109e-02_rb,0.22392e-02_rb,0.21909e-02_rb,0.20870e-02_rb,0.19391e-02_rb, &
+        & 0.17569e-02_rb,0.15368e-02_rb,0.12514e-02_rb,0.62879e-03_rb /)
+      kao(:, 2, 8, 8) = (/ &
+        & 0.22276e-02_rb,0.23140e-02_rb,0.22874e-02_rb,0.21965e-02_rb,0.20609e-02_rb, &
+        & 0.18868e-02_rb,0.16711e-02_rb,0.13887e-02_rb,0.73533e-03_rb /)
+      kao(:, 3, 8, 8) = (/ &
+        & 0.22565e-02_rb,0.24065e-02_rb,0.24031e-02_rb,0.23233e-02_rb,0.21969e-02_rb, &
+        & 0.20302e-02_rb,0.18188e-02_rb,0.15365e-02_rb,0.85609e-03_rb /)
+      kao(:, 4, 8, 8) = (/ &
+        & 0.22974e-02_rb,0.25072e-02_rb,0.25290e-02_rb,0.24653e-02_rb,0.23482e-02_rb, &
+        & 0.21882e-02_rb,0.19777e-02_rb,0.16966e-02_rb,0.98553e-03_rb /)
+      kao(:, 5, 8, 8) = (/ &
+        & 0.23517e-02_rb,0.26173e-02_rb,0.26619e-02_rb,0.26145e-02_rb,0.25139e-02_rb, &
+        & 0.23587e-02_rb,0.21497e-02_rb,0.18671e-02_rb,0.11277e-02_rb /)
+      kao(:, 1, 9, 8) = (/ &
+        & 0.19109e-02_rb,0.19351e-02_rb,0.18847e-02_rb,0.17853e-02_rb,0.16484e-02_rb, &
+        & 0.14828e-02_rb,0.12861e-02_rb,0.10403e-02_rb,0.59847e-03_rb /)
+      kao(:, 2, 9, 8) = (/ &
+        & 0.19272e-02_rb,0.20031e-02_rb,0.19691e-02_rb,0.18817e-02_rb,0.17540e-02_rb, &
+        & 0.15965e-02_rb,0.14036e-02_rb,0.11571e-02_rb,0.69475e-03_rb /)
+      kao(:, 3, 9, 8) = (/ &
+        & 0.19559e-02_rb,0.20842e-02_rb,0.20709e-02_rb,0.19954e-02_rb,0.18765e-02_rb, &
+        & 0.17233e-02_rb,0.15331e-02_rb,0.12839e-02_rb,0.80150e-03_rb /)
+      kao(:, 4, 9, 8) = (/ &
+        & 0.19994e-02_rb,0.21761e-02_rb,0.21815e-02_rb,0.21203e-02_rb,0.20143e-02_rb, &
+        & 0.18645e-02_rb,0.16732e-02_rb,0.14206e-02_rb,0.91777e-03_rb /)
+      kao(:, 5, 9, 8) = (/ &
+        & 0.20550e-02_rb,0.22788e-02_rb,0.23027e-02_rb,0.22546e-02_rb,0.21605e-02_rb, &
+        & 0.20175e-02_rb,0.18247e-02_rb,0.15687e-02_rb,0.10450e-02_rb /)
+      kao(:, 1,10, 8) = (/ &
+        & 0.16445e-02_rb,0.16716e-02_rb,0.16238e-02_rb,0.15300e-02_rb,0.14061e-02_rb, &
+        & 0.12566e-02_rb,0.10807e-02_rb,0.86738e-03_rb,0.60827e-03_rb /)
+      kao(:, 2,10, 8) = (/ &
+        & 0.16600e-02_rb,0.17327e-02_rb,0.16984e-02_rb,0.16154e-02_rb,0.14994e-02_rb, &
+        & 0.13556e-02_rb,0.11827e-02_rb,0.96695e-03_rb,0.70548e-03_rb /)
+      kao(:, 3,10, 8) = (/ &
+        & 0.16905e-02_rb,0.18053e-02_rb,0.17869e-02_rb,0.17163e-02_rb,0.16090e-02_rb, &
+        & 0.14689e-02_rb,0.12961e-02_rb,0.10754e-02_rb,0.80786e-03_rb /)
+      kao(:, 4,10, 8) = (/ &
+        & 0.17354e-02_rb,0.18905e-02_rb,0.18865e-02_rb,0.18272e-02_rb,0.17299e-02_rb, &
+        & 0.15951e-02_rb,0.14192e-02_rb,0.11936e-02_rb,0.91620e-03_rb /)
+      kao(:, 5,10, 8) = (/ &
+        & 0.17884e-02_rb,0.19860e-02_rb,0.19977e-02_rb,0.19501e-02_rb,0.18596e-02_rb, &
+        & 0.17298e-02_rb,0.15525e-02_rb,0.13217e-02_rb,0.10338e-02_rb /)
+      kao(:, 1,11, 8) = (/ &
+        & 0.14133e-02_rb,0.14603e-02_rb,0.14202e-02_rb,0.13407e-02_rb,0.12334e-02_rb, &
+        & 0.11026e-02_rb,0.94643e-03_rb,0.75979e-03_rb,0.57405e-03_rb /)
+      kao(:, 2,11, 8) = (/ &
+        & 0.14357e-02_rb,0.15193e-02_rb,0.14916e-02_rb,0.14232e-02_rb,0.13232e-02_rb, &
+        & 0.11950e-02_rb,0.10392e-02_rb,0.84686e-03_rb,0.65471e-03_rb /)
+      kao(:, 3,11, 8) = (/ &
+        & 0.14730e-02_rb,0.15907e-02_rb,0.15765e-02_rb,0.15172e-02_rb,0.14237e-02_rb, &
+        & 0.12997e-02_rb,0.11424e-02_rb,0.94298e-03_rb,0.75212e-03_rb /)
+      kao(:, 4,11, 8) = (/ &
+        & 0.15188e-02_rb,0.16737e-02_rb,0.16734e-02_rb,0.16227e-02_rb,0.15348e-02_rb, &
+        & 0.14132e-02_rb,0.12544e-02_rb,0.10476e-02_rb,0.85445e-03_rb /)
+      kao(:, 5,11, 8) = (/ &
+        & 0.15705e-02_rb,0.17634e-02_rb,0.17799e-02_rb,0.17387e-02_rb,0.16551e-02_rb, &
+        & 0.15344e-02_rb,0.13744e-02_rb,0.11635e-02_rb,0.96358e-03_rb /)
+      kao(:, 1,12, 8) = (/ &
+        & 0.12145e-02_rb,0.12721e-02_rb,0.12387e-02_rb,0.11722e-02_rb,0.10815e-02_rb, &
+        & 0.96748e-03_rb,0.83052e-03_rb,0.66461e-03_rb,0.51952e-03_rb /)
+      kao(:, 2,12, 8) = (/ &
+        & 0.12432e-02_rb,0.13303e-02_rb,0.13076e-02_rb,0.12500e-02_rb,0.11644e-02_rb, &
+        & 0.10531e-02_rb,0.91410e-03_rb,0.74198e-03_rb,0.58718e-03_rb /)
+      kao(:, 3,12, 8) = (/ &
+        & 0.12811e-02_rb,0.13998e-02_rb,0.13897e-02_rb,0.13394e-02_rb,0.12574e-02_rb, &
+        & 0.11474e-02_rb,0.10067e-02_rb,0.82675e-03_rb,0.66821e-03_rb /)
+      kao(:, 4,12, 8) = (/ &
+        & 0.13251e-02_rb,0.14771e-02_rb,0.14813e-02_rb,0.14393e-02_rb,0.13610e-02_rb, &
+        & 0.12504e-02_rb,0.11057e-02_rb,0.91975e-03_rb,0.76078e-03_rb /)
+      kao(:, 5,12, 8) = (/ &
+        & 0.13700e-02_rb,0.15597e-02_rb,0.15807e-02_rb,0.15467e-02_rb,0.14716e-02_rb, &
+        & 0.13608e-02_rb,0.12138e-02_rb,0.10232e-02_rb,0.85832e-03_rb /)
+      kao(:, 1,13, 8) = (/ &
+        & 0.10471e-02_rb,0.11076e-02_rb,0.10790e-02_rb,0.10231e-02_rb,0.94527e-03_rb, &
+        & 0.84789e-03_rb,0.72861e-03_rb,0.58068e-03_rb,0.44361e-03_rb /)
+      kao(:, 2,13, 8) = (/ &
+        & 0.10765e-02_rb,0.11637e-02_rb,0.11461e-02_rb,0.10966e-02_rb,0.10221e-02_rb, &
+        & 0.92418e-03_rb,0.80364e-03_rb,0.64949e-03_rb,0.50409e-03_rb /)
+      kao(:, 3,13, 8) = (/ &
+        & 0.11121e-02_rb,0.12288e-02_rb,0.12232e-02_rb,0.11802e-02_rb,0.11084e-02_rb, &
+        & 0.10099e-02_rb,0.88562e-03_rb,0.72467e-03_rb,0.57688e-03_rb /)
+      kao(:, 4,13, 8) = (/ &
+        & 0.11491e-02_rb,0.12989e-02_rb,0.13080e-02_rb,0.12720e-02_rb,0.12030e-02_rb, &
+        & 0.11037e-02_rb,0.97404e-03_rb,0.80781e-03_rb,0.65303e-03_rb /)
+      kao(:, 5,13, 8) = (/ &
+        & 0.11880e-02_rb,0.13724e-02_rb,0.13975e-02_rb,0.13701e-02_rb,0.13034e-02_rb, &
+        & 0.12049e-02_rb,0.10715e-02_rb,0.89944e-03_rb,0.73687e-03_rb /)
+      kao(:, 1, 1, 9) = (/ &
+        & 0.14418e-01_rb,0.13406e-01_rb,0.12605e-01_rb,0.11857e-01_rb,0.11091e-01_rb, &
+        & 0.10336e-01_rb,0.95691e-02_rb,0.87036e-02_rb,0.88524e-02_rb /)
+      kao(:, 2, 1, 9) = (/ &
+        & 0.14296e-01_rb,0.13450e-01_rb,0.12870e-01_rb,0.12297e-01_rb,0.11684e-01_rb, &
+        & 0.11070e-01_rb,0.10452e-01_rb,0.97477e-02_rb,0.10154e-01_rb /)
+      kao(:, 3, 1, 9) = (/ &
+        & 0.14166e-01_rb,0.13524e-01_rb,0.13158e-01_rb,0.12768e-01_rb,0.12317e-01_rb, &
+        & 0.11876e-01_rb,0.11397e-01_rb,0.10864e-01_rb,0.11523e-01_rb /)
+      kao(:, 4, 1, 9) = (/ &
+        & 0.14022e-01_rb,0.13622e-01_rb,0.13487e-01_rb,0.13264e-01_rb,0.13003e-01_rb, &
+        & 0.12732e-01_rb,0.12371e-01_rb,0.12050e-01_rb,0.12968e-01_rb /)
+      kao(:, 5, 1, 9) = (/ &
+        & 0.13872e-01_rb,0.13730e-01_rb,0.13820e-01_rb,0.13802e-01_rb,0.13718e-01_rb, &
+        & 0.13604e-01_rb,0.13373e-01_rb,0.13315e-01_rb,0.14498e-01_rb /)
+      kao(:, 1, 2, 9) = (/ &
+        & 0.14547e-01_rb,0.13535e-01_rb,0.12726e-01_rb,0.11955e-01_rb,0.11121e-01_rb, &
+        & 0.10242e-01_rb,0.92998e-02_rb,0.82716e-02_rb,0.79571e-02_rb /)
+      kao(:, 2, 2, 9) = (/ &
+        & 0.14415e-01_rb,0.13577e-01_rb,0.12984e-01_rb,0.12377e-01_rb,0.11698e-01_rb, &
+        & 0.10932e-01_rb,0.10129e-01_rb,0.92199e-02_rb,0.91565e-02_rb /)
+      kao(:, 3, 2, 9) = (/ &
+        & 0.14274e-01_rb,0.13649e-01_rb,0.13264e-01_rb,0.12845e-01_rb,0.12290e-01_rb, &
+        & 0.11686e-01_rb,0.11026e-01_rb,0.10231e-01_rb,0.10415e-01_rb /)
+      kao(:, 4, 2, 9) = (/ &
+        & 0.14122e-01_rb,0.13744e-01_rb,0.13589e-01_rb,0.13325e-01_rb,0.12935e-01_rb, &
+        & 0.12484e-01_rb,0.11950e-01_rb,0.11311e-01_rb,0.11744e-01_rb /)
+      kao(:, 5, 2, 9) = (/ &
+        & 0.13965e-01_rb,0.13855e-01_rb,0.13924e-01_rb,0.13828e-01_rb,0.13608e-01_rb, &
+        & 0.13305e-01_rb,0.12905e-01_rb,0.12457e-01_rb,0.13151e-01_rb /)
+      kao(:, 1, 3, 9) = (/ &
+        & 0.14475e-01_rb,0.13482e-01_rb,0.12654e-01_rb,0.11861e-01_rb,0.10971e-01_rb, &
+        & 0.99930e-02_rb,0.88735e-02_rb,0.76595e-02_rb,0.68509e-02_rb /)
+      kao(:, 2, 3, 9) = (/ &
+        & 0.14335e-01_rb,0.13514e-01_rb,0.12906e-01_rb,0.12263e-01_rb,0.11533e-01_rb, &
+        & 0.10637e-01_rb,0.96386e-02_rb,0.85394e-02_rb,0.79297e-02_rb /)
+      kao(:, 3, 3, 9) = (/ &
+        & 0.14181e-01_rb,0.13576e-01_rb,0.13177e-01_rb,0.12719e-01_rb,0.12099e-01_rb, &
+        & 0.11329e-01_rb,0.10466e-01_rb,0.94601e-02_rb,0.90731e-02_rb /)
+      kao(:, 4, 3, 9) = (/ &
+        & 0.14024e-01_rb,0.13665e-01_rb,0.13491e-01_rb,0.13188e-01_rb,0.12703e-01_rb, &
+        & 0.12072e-01_rb,0.11323e-01_rb,0.10433e-01_rb,0.10295e-01_rb /)
+      kao(:, 5, 3, 9) = (/ &
+        & 0.13862e-01_rb,0.13772e-01_rb,0.13824e-01_rb,0.13679e-01_rb,0.13333e-01_rb, &
+        & 0.12836e-01_rb,0.12214e-01_rb,0.11468e-01_rb,0.11588e-01_rb /)
+      kao(:, 1, 4, 9) = (/ &
+        & 0.14153e-01_rb,0.13216e-01_rb,0.12406e-01_rb,0.11612e-01_rb,0.10690e-01_rb, &
+        & 0.96495e-02_rb,0.84088e-02_rb,0.70121e-02_rb,0.57874e-02_rb /)
+      kao(:, 2, 4, 9) = (/ &
+        & 0.14005e-01_rb,0.13241e-01_rb,0.12647e-01_rb,0.11995e-01_rb,0.11231e-01_rb, &
+        & 0.10266e-01_rb,0.91127e-02_rb,0.78123e-02_rb,0.67372e-02_rb /)
+      kao(:, 3, 4, 9) = (/ &
+        & 0.13845e-01_rb,0.13290e-01_rb,0.12907e-01_rb,0.12438e-01_rb,0.11783e-01_rb, &
+        & 0.10918e-01_rb,0.98730e-02_rb,0.86646e-02_rb,0.77601e-02_rb /)
+      kao(:, 4, 4, 9) = (/ &
+        & 0.13685e-01_rb,0.13375e-01_rb,0.13206e-01_rb,0.12899e-01_rb,0.12360e-01_rb, &
+        & 0.11608e-01_rb,0.10665e-01_rb,0.95624e-02_rb,0.88628e-02_rb /)
+      kao(:, 5, 4, 9) = (/ &
+        & 0.13529e-01_rb,0.13472e-01_rb,0.13531e-01_rb,0.13371e-01_rb,0.12964e-01_rb, &
+        & 0.12311e-01_rb,0.11491e-01_rb,0.10508e-01_rb,0.10039e-01_rb /)
+      kao(:, 1, 5, 9) = (/ &
+        & 0.13587e-01_rb,0.12730e-01_rb,0.11973e-01_rb,0.11204e-01_rb,0.10282e-01_rb, &
+        & 0.92218e-02_rb,0.79316e-02_rb,0.64044e-02_rb,0.48583e-02_rb /)
+      kao(:, 2, 5, 9) = (/ &
+        & 0.13430e-01_rb,0.12751e-01_rb,0.12205e-01_rb,0.11567e-01_rb,0.10798e-01_rb, &
+        & 0.98163e-02_rb,0.85810e-02_rb,0.71221e-02_rb,0.56837e-02_rb /)
+      kao(:, 3, 5, 9) = (/ &
+        & 0.13271e-01_rb,0.12793e-01_rb,0.12448e-01_rb,0.11993e-01_rb,0.11338e-01_rb, &
+        & 0.10437e-01_rb,0.92786e-02_rb,0.78957e-02_rb,0.65802e-02_rb /)
+      kao(:, 4, 5, 9) = (/ &
+        & 0.13115e-01_rb,0.12874e-01_rb,0.12735e-01_rb,0.12440e-01_rb,0.11897e-01_rb, &
+        & 0.11094e-01_rb,0.10003e-01_rb,0.87146e-02_rb,0.75565e-02_rb /)
+      kao(:, 5, 5, 9) = (/ &
+        & 0.12984e-01_rb,0.12973e-01_rb,0.13053e-01_rb,0.12899e-01_rb,0.12481e-01_rb, &
+        & 0.11759e-01_rb,0.10765e-01_rb,0.95850e-02_rb,0.86117e-02_rb /)
+      kao(:, 1, 6, 9) = (/ &
+        & 0.12817e-01_rb,0.12050e-01_rb,0.11369e-01_rb,0.10622e-01_rb,0.97180e-02_rb, &
+        & 0.86745e-02_rb,0.73942e-02_rb,0.58154e-02_rb,0.40318e-02_rb /)
+      kao(:, 2, 6, 9) = (/ &
+        & 0.12656e-01_rb,0.12077e-01_rb,0.11582e-01_rb,0.10960e-01_rb,0.10205e-01_rb, &
+        & 0.92477e-02_rb,0.80000e-02_rb,0.64500e-02_rb,0.47452e-02_rb /)
+      kao(:, 3, 6, 9) = (/ &
+        & 0.12499e-01_rb,0.12115e-01_rb,0.11810e-01_rb,0.11361e-01_rb,0.10734e-01_rb, &
+        & 0.98374e-02_rb,0.86412e-02_rb,0.71467e-02_rb,0.55214e-02_rb /)
+      kao(:, 4, 6, 9) = (/ &
+        & 0.12364e-01_rb,0.12194e-01_rb,0.12081e-01_rb,0.11798e-01_rb,0.11270e-01_rb, &
+        & 0.10459e-01_rb,0.93144e-02_rb,0.78844e-02_rb,0.63718e-02_rb /)
+      kao(:, 5, 6, 9) = (/ &
+        & 0.12255e-01_rb,0.12311e-01_rb,0.12390e-01_rb,0.12242e-01_rb,0.11833e-01_rb, &
+        & 0.11093e-01_rb,0.10016e-01_rb,0.86730e-02_rb,0.72984e-02_rb /)
+      kao(:, 1, 7, 9) = (/ &
+        & 0.11891e-01_rb,0.11226e-01_rb,0.10633e-01_rb,0.99134e-02_rb,0.90439e-02_rb, &
+        & 0.80297e-02_rb,0.68136e-02_rb,0.52756e-02_rb,0.33216e-02_rb /)
+      kao(:, 2, 7, 9) = (/ &
+        & 0.11730e-01_rb,0.11250e-01_rb,0.10822e-01_rb,0.10230e-01_rb,0.94903e-02_rb, &
+        & 0.85683e-02_rb,0.73765e-02_rb,0.58347e-02_rb,0.39310e-02_rb /)
+      kao(:, 3, 7, 9) = (/ &
+        & 0.11586e-01_rb,0.11299e-01_rb,0.11036e-01_rb,0.10599e-01_rb,0.99917e-02_rb, &
+        & 0.91260e-02_rb,0.79645e-02_rb,0.64502e-02_rb,0.46031e-02_rb /)
+      kao(:, 4, 7, 9) = (/ &
+        & 0.11473e-01_rb,0.11391e-01_rb,0.11290e-01_rb,0.11015e-01_rb,0.10500e-01_rb, &
+        & 0.97132e-02_rb,0.85920e-02_rb,0.71112e-02_rb,0.53403e-02_rb /)
+      kao(:, 5, 7, 9) = (/ &
+        & 0.11384e-01_rb,0.11524e-01_rb,0.11598e-01_rb,0.11442e-01_rb,0.11036e-01_rb, &
+        & 0.10317e-01_rb,0.92441e-02_rb,0.78209e-02_rb,0.61457e-02_rb /)
+      kao(:, 1, 8, 9) = (/ &
+        & 0.10852e-01_rb,0.10302e-01_rb,0.97896e-02_rb,0.91138e-02_rb,0.83000e-02_rb, &
+        & 0.73373e-02_rb,0.61956e-02_rb,0.47644e-02_rb,0.26652e-02_rb /)
+      kao(:, 2, 8, 9) = (/ &
+        & 0.10699e-01_rb,0.10325e-01_rb,0.99631e-02_rb,0.94045e-02_rb,0.87025e-02_rb, &
+        & 0.78255e-02_rb,0.67137e-02_rb,0.52638e-02_rb,0.31922e-02_rb /)
+      kao(:, 3, 8, 9) = (/ &
+        & 0.10574e-01_rb,0.10385e-01_rb,0.10163e-01_rb,0.97460e-02_rb,0.91609e-02_rb, &
+        & 0.83418e-02_rb,0.72560e-02_rb,0.58143e-02_rb,0.37766e-02_rb /)
+      kao(:, 4, 8, 9) = (/ &
+        & 0.10480e-01_rb,0.10499e-01_rb,0.10413e-01_rb,0.10139e-01_rb,0.96342e-02_rb, &
+        & 0.88826e-02_rb,0.78405e-02_rb,0.64037e-02_rb,0.44295e-02_rb /)
+      kao(:, 5, 8, 9) = (/ &
+        & 0.10415e-01_rb,0.10646e-01_rb,0.10720e-01_rb,0.10553e-01_rb,0.10134e-01_rb, &
+        & 0.94529e-02_rb,0.84471e-02_rb,0.70384e-02_rb,0.51485e-02_rb /)
+      kao(:, 1, 9, 9) = (/ &
+        & 0.97587e-02_rb,0.93185e-02_rb,0.88694e-02_rb,0.82517e-02_rb,0.75094e-02_rb, &
+        & 0.66177e-02_rb,0.55658e-02_rb,0.42591e-02_rb,0.21931e-02_rb /)
+      kao(:, 2, 9, 9) = (/ &
+        & 0.96183e-02_rb,0.93436e-02_rb,0.90329e-02_rb,0.85198e-02_rb,0.78654e-02_rb, &
+        & 0.70507e-02_rb,0.60316e-02_rb,0.47067e-02_rb,0.25691e-02_rb /)
+      kao(:, 3, 9, 9) = (/ &
+        & 0.95112e-02_rb,0.94166e-02_rb,0.92325e-02_rb,0.88355e-02_rb,0.82791e-02_rb, &
+        & 0.75194e-02_rb,0.65208e-02_rb,0.52003e-02_rb,0.29789e-02_rb /)
+      kao(:, 4, 9, 9) = (/ &
+        & 0.94373e-02_rb,0.95446e-02_rb,0.94815e-02_rb,0.92092e-02_rb,0.87140e-02_rb, &
+        & 0.80091e-02_rb,0.70556e-02_rb,0.57344e-02_rb,0.34284e-02_rb /)
+      kao(:, 5, 9, 9) = (/ &
+        & 0.93945e-02_rb,0.97041e-02_rb,0.97866e-02_rb,0.96055e-02_rb,0.91834e-02_rb, &
+        & 0.85358e-02_rb,0.76199e-02_rb,0.63067e-02_rb,0.39360e-02_rb /)
+      kao(:, 1,10, 9) = (/ &
+        & 0.86571e-02_rb,0.83282e-02_rb,0.79327e-02_rb,0.73862e-02_rb,0.67217e-02_rb, &
+        & 0.59210e-02_rb,0.49777e-02_rb,0.37950e-02_rb,0.25161e-02_rb /)
+      kao(:, 2,10, 9) = (/ &
+        & 0.85351e-02_rb,0.83629e-02_rb,0.80910e-02_rb,0.76400e-02_rb,0.70398e-02_rb, &
+        & 0.63068e-02_rb,0.53903e-02_rb,0.41966e-02_rb,0.29067e-02_rb /)
+      kao(:, 3,10, 9) = (/ &
+        & 0.84483e-02_rb,0.84483e-02_rb,0.82944e-02_rb,0.79338e-02_rb,0.74159e-02_rb, &
+        & 0.67272e-02_rb,0.58285e-02_rb,0.46411e-02_rb,0.33599e-02_rb /)
+      kao(:, 4,10, 9) = (/ &
+        & 0.83941e-02_rb,0.85821e-02_rb,0.85440e-02_rb,0.82866e-02_rb,0.78214e-02_rb, &
+        & 0.71692e-02_rb,0.63103e-02_rb,0.51290e-02_rb,0.38620e-02_rb /)
+      kao(:, 5,10, 9) = (/ &
+        & 0.83806e-02_rb,0.87510e-02_rb,0.88459e-02_rb,0.86620e-02_rb,0.82607e-02_rb, &
+        & 0.76554e-02_rb,0.68267e-02_rb,0.56504e-02_rb,0.44001e-02_rb /)
+      kao(:, 1,11, 9) = (/ &
+        & 0.75570e-02_rb,0.73902e-02_rb,0.70826e-02_rb,0.66405e-02_rb,0.60731e-02_rb, &
+        & 0.53892e-02_rb,0.45656e-02_rb,0.35050e-02_rb,0.26164e-02_rb /)
+      kao(:, 2,11, 9) = (/ &
+        & 0.74683e-02_rb,0.74501e-02_rb,0.72578e-02_rb,0.68886e-02_rb,0.63823e-02_rb, &
+        & 0.57485e-02_rb,0.49402e-02_rb,0.38790e-02_rb,0.30097e-02_rb /)
+      kao(:, 3,11, 9) = (/ &
+        & 0.74153e-02_rb,0.75630e-02_rb,0.74762e-02_rb,0.71912e-02_rb,0.67425e-02_rb, &
+        & 0.61326e-02_rb,0.53447e-02_rb,0.42990e-02_rb,0.34771e-02_rb /)
+      kao(:, 4,11, 9) = (/ &
+        & 0.74057e-02_rb,0.77202e-02_rb,0.77477e-02_rb,0.75330e-02_rb,0.71268e-02_rb, &
+        & 0.65549e-02_rb,0.57951e-02_rb,0.47555e-02_rb,0.39884e-02_rb /)
+      kao(:, 5,11, 9) = (/ &
+        & 0.74391e-02_rb,0.79220e-02_rb,0.80561e-02_rb,0.79014e-02_rb,0.75514e-02_rb, &
+        & 0.70214e-02_rb,0.62779e-02_rb,0.52483e-02_rb,0.45376e-02_rb /)
+      kao(:, 1,12, 9) = (/ &
+        & 0.65546e-02_rb,0.65200e-02_rb,0.62910e-02_rb,0.59243e-02_rb,0.54454e-02_rb, &
+        & 0.48623e-02_rb,0.41386e-02_rb,0.32013e-02_rb,0.25137e-02_rb /)
+      kao(:, 2,12, 9) = (/ &
+        & 0.64987e-02_rb,0.66047e-02_rb,0.64774e-02_rb,0.61754e-02_rb,0.57483e-02_rb, &
+        & 0.51910e-02_rb,0.44799e-02_rb,0.35500e-02_rb,0.28998e-02_rb /)
+      kao(:, 3,12, 9) = (/ &
+        & 0.64867e-02_rb,0.67439e-02_rb,0.67077e-02_rb,0.64758e-02_rb,0.60840e-02_rb, &
+        & 0.55472e-02_rb,0.48582e-02_rb,0.39433e-02_rb,0.33472e-02_rb /)
+      kao(:, 4,12, 9) = (/ &
+        & 0.65214e-02_rb,0.69269e-02_rb,0.69913e-02_rb,0.68034e-02_rb,0.64480e-02_rb, &
+        & 0.59497e-02_rb,0.52811e-02_rb,0.43712e-02_rb,0.38283e-02_rb /)
+      kao(:, 5,12, 9) = (/ &
+        & 0.66068e-02_rb,0.71634e-02_rb,0.73032e-02_rb,0.71670e-02_rb,0.68605e-02_rb, &
+        & 0.63896e-02_rb,0.57387e-02_rb,0.48340e-02_rb,0.43614e-02_rb /)
+      kao(:, 1,13, 9) = (/ &
+        & 0.56598e-02_rb,0.57241e-02_rb,0.55653e-02_rb,0.52616e-02_rb,0.48615e-02_rb, &
+        & 0.43534e-02_rb,0.37143e-02_rb,0.28975e-02_rb,0.22483e-02_rb /)
+      kao(:, 2,13, 9) = (/ &
+        & 0.56408e-02_rb,0.58364e-02_rb,0.57539e-02_rb,0.55120e-02_rb,0.51475e-02_rb, &
+        & 0.46559e-02_rb,0.40284e-02_rb,0.32222e-02_rb,0.26111e-02_rb /)
+      kao(:, 3,13, 9) = (/ &
+        & 0.56697e-02_rb,0.59982e-02_rb,0.59981e-02_rb,0.58053e-02_rb,0.54583e-02_rb, &
+        & 0.49917e-02_rb,0.43867e-02_rb,0.35862e-02_rb,0.30268e-02_rb /)
+      kao(:, 4,13, 9) = (/ &
+        & 0.57519e-02_rb,0.62108e-02_rb,0.62874e-02_rb,0.61219e-02_rb,0.58111e-02_rb, &
+        & 0.53715e-02_rb,0.47851e-02_rb,0.39858e-02_rb,0.34700e-02_rb /)
+      kao(:, 5,13, 9) = (/ &
+        & 0.58830e-02_rb,0.64813e-02_rb,0.66064e-02_rb,0.64830e-02_rb,0.62068e-02_rb, &
+        & 0.57872e-02_rb,0.52185e-02_rb,0.44205e-02_rb,0.39619e-02_rb /)
+      kao(:, 1, 1,10) = (/ &
+        & 0.28544e-01_rb,0.26155e-01_rb,0.24149e-01_rb,0.22667e-01_rb,0.21632e-01_rb, &
+        & 0.20279e-01_rb,0.18489e-01_rb,0.17580e-01_rb,0.19616e-01_rb /)
+      kao(:, 2, 1,10) = (/ &
+        & 0.28363e-01_rb,0.26242e-01_rb,0.24669e-01_rb,0.23473e-01_rb,0.22995e-01_rb, &
+        & 0.21803e-01_rb,0.19985e-01_rb,0.19915e-01_rb,0.22325e-01_rb /)
+      kao(:, 3, 1,10) = (/ &
+        & 0.28168e-01_rb,0.26278e-01_rb,0.25280e-01_rb,0.24624e-01_rb,0.24316e-01_rb, &
+        & 0.23197e-01_rb,0.21657e-01_rb,0.22779e-01_rb,0.25626e-01_rb /)
+      kao(:, 4, 1,10) = (/ &
+        & 0.27980e-01_rb,0.26431e-01_rb,0.25828e-01_rb,0.25920e-01_rb,0.25669e-01_rb, &
+        & 0.24755e-01_rb,0.23686e-01_rb,0.25934e-01_rb,0.29281e-01_rb /)
+      kao(:, 5, 1,10) = (/ &
+        & 0.27732e-01_rb,0.26646e-01_rb,0.26660e-01_rb,0.27009e-01_rb,0.27233e-01_rb, &
+        & 0.26525e-01_rb,0.25997e-01_rb,0.29201e-01_rb,0.33040e-01_rb /)
+      kao(:, 1, 2,10) = (/ &
+        & 0.30271e-01_rb,0.27672e-01_rb,0.25272e-01_rb,0.23430e-01_rb,0.22043e-01_rb, &
+        & 0.20727e-01_rb,0.19083e-01_rb,0.16913e-01_rb,0.18728e-01_rb /)
+      kao(:, 2, 2,10) = (/ &
+        & 0.30091e-01_rb,0.27720e-01_rb,0.25820e-01_rb,0.24222e-01_rb,0.23409e-01_rb, &
+        & 0.22468e-01_rb,0.20609e-01_rb,0.19148e-01_rb,0.21375e-01_rb /)
+      kao(:, 3, 2,10) = (/ &
+        & 0.29914e-01_rb,0.27750e-01_rb,0.26375e-01_rb,0.25267e-01_rb,0.24987e-01_rb, &
+        & 0.23926e-01_rb,0.22306e-01_rb,0.21932e-01_rb,0.24591e-01_rb /)
+      kao(:, 4, 2,10) = (/ &
+        & 0.29701e-01_rb,0.27873e-01_rb,0.26877e-01_rb,0.26535e-01_rb,0.26327e-01_rb, &
+        & 0.25568e-01_rb,0.24303e-01_rb,0.24920e-01_rb,0.28049e-01_rb /)
+      kao(:, 5, 2,10) = (/ &
+        & 0.29422e-01_rb,0.28052e-01_rb,0.27653e-01_rb,0.27818e-01_rb,0.27831e-01_rb, &
+        & 0.27375e-01_rb,0.26338e-01_rb,0.28129e-01_rb,0.31777e-01_rb /)
+      kao(:, 1, 3,10) = (/ &
+        & 0.32089e-01_rb,0.29221e-01_rb,0.26504e-01_rb,0.24372e-01_rb,0.22322e-01_rb, &
+        & 0.20541e-01_rb,0.19063e-01_rb,0.16413e-01_rb,0.17368e-01_rb /)
+      kao(:, 2, 3,10) = (/ &
+        & 0.31950e-01_rb,0.29299e-01_rb,0.26979e-01_rb,0.25078e-01_rb,0.23422e-01_rb, &
+        & 0.22454e-01_rb,0.20735e-01_rb,0.18244e-01_rb,0.19956e-01_rb /)
+      kao(:, 3, 3,10) = (/ &
+        & 0.31786e-01_rb,0.29316e-01_rb,0.27496e-01_rb,0.25889e-01_rb,0.24965e-01_rb, &
+        & 0.24089e-01_rb,0.22376e-01_rb,0.20693e-01_rb,0.22993e-01_rb /)
+      kao(:, 4, 3,10) = (/ &
+        & 0.31564e-01_rb,0.29393e-01_rb,0.27942e-01_rb,0.27000e-01_rb,0.26402e-01_rb, &
+        & 0.25715e-01_rb,0.24406e-01_rb,0.23371e-01_rb,0.26093e-01_rb /)
+      kao(:, 5, 3,10) = (/ &
+        & 0.31295e-01_rb,0.29526e-01_rb,0.28627e-01_rb,0.28150e-01_rb,0.27951e-01_rb, &
+        & 0.27569e-01_rb,0.26423e-01_rb,0.26332e-01_rb,0.29505e-01_rb /)
+      kao(:, 1, 4,10) = (/ &
+        & 0.33998e-01_rb,0.30694e-01_rb,0.27710e-01_rb,0.25291e-01_rb,0.22809e-01_rb, &
+        & 0.20329e-01_rb,0.18660e-01_rb,0.16131e-01_rb,0.15800e-01_rb /)
+      kao(:, 2, 4,10) = (/ &
+        & 0.33852e-01_rb,0.30861e-01_rb,0.28097e-01_rb,0.25930e-01_rb,0.23654e-01_rb, &
+        & 0.22029e-01_rb,0.20474e-01_rb,0.17896e-01_rb,0.18339e-01_rb /)
+      kao(:, 3, 4,10) = (/ &
+        & 0.33685e-01_rb,0.30889e-01_rb,0.28668e-01_rb,0.26585e-01_rb,0.25018e-01_rb, &
+        & 0.23681e-01_rb,0.22215e-01_rb,0.19897e-01_rb,0.21224e-01_rb /)
+      kao(:, 4, 4,10) = (/ &
+        & 0.33431e-01_rb,0.30933e-01_rb,0.29107e-01_rb,0.27570e-01_rb,0.26341e-01_rb, &
+        & 0.25360e-01_rb,0.24234e-01_rb,0.22138e-01_rb,0.24217e-01_rb /)
+      kao(:, 5, 4,10) = (/ &
+        & 0.33153e-01_rb,0.31115e-01_rb,0.29708e-01_rb,0.28626e-01_rb,0.27757e-01_rb, &
+        & 0.27318e-01_rb,0.26191e-01_rb,0.24666e-01_rb,0.27426e-01_rb /)
+      kao(:, 1, 5,10) = (/ &
+        & 0.35630e-01_rb,0.31962e-01_rb,0.28969e-01_rb,0.26191e-01_rb,0.23359e-01_rb, &
+        & 0.20419e-01_rb,0.18025e-01_rb,0.15529e-01_rb,0.14046e-01_rb /)
+      kao(:, 2, 5,10) = (/ &
+        & 0.35465e-01_rb,0.32227e-01_rb,0.29248e-01_rb,0.26845e-01_rb,0.24076e-01_rb, &
+        & 0.21854e-01_rb,0.19842e-01_rb,0.17371e-01_rb,0.16514e-01_rb /)
+      kao(:, 3, 5,10) = (/ &
+        & 0.35239e-01_rb,0.32283e-01_rb,0.29869e-01_rb,0.27436e-01_rb,0.25256e-01_rb, &
+        & 0.23352e-01_rb,0.21638e-01_rb,0.19381e-01_rb,0.19322e-01_rb /)
+      kao(:, 4, 5,10) = (/ &
+        & 0.34959e-01_rb,0.32275e-01_rb,0.30321e-01_rb,0.28325e-01_rb,0.26494e-01_rb, &
+        & 0.24825e-01_rb,0.23722e-01_rb,0.21526e-01_rb,0.22221e-01_rb /)
+      kao(:, 5, 5,10) = (/ &
+        & 0.34633e-01_rb,0.32463e-01_rb,0.30867e-01_rb,0.29345e-01_rb,0.27730e-01_rb, &
+        & 0.26661e-01_rb,0.25760e-01_rb,0.23698e-01_rb,0.25325e-01_rb /)
+      kao(:, 1, 6,10) = (/ &
+        & 0.36611e-01_rb,0.32766e-01_rb,0.29862e-01_rb,0.26964e-01_rb,0.23985e-01_rb, &
+        & 0.20572e-01_rb,0.17499e-01_rb,0.14612e-01_rb,0.12200e-01_rb /)
+      kao(:, 2, 6,10) = (/ &
+        & 0.36404e-01_rb,0.32931e-01_rb,0.30135e-01_rb,0.27680e-01_rb,0.24618e-01_rb, &
+        & 0.21792e-01_rb,0.19087e-01_rb,0.16488e-01_rb,0.14408e-01_rb /)
+      kao(:, 3, 6,10) = (/ &
+        & 0.36151e-01_rb,0.33151e-01_rb,0.30783e-01_rb,0.28229e-01_rb,0.25608e-01_rb, &
+        & 0.23215e-01_rb,0.20762e-01_rb,0.18415e-01_rb,0.17025e-01_rb /)
+      kao(:, 4, 6,10) = (/ &
+        & 0.35835e-01_rb,0.33169e-01_rb,0.31261e-01_rb,0.29020e-01_rb,0.26813e-01_rb, &
+        & 0.24559e-01_rb,0.22662e-01_rb,0.20622e-01_rb,0.19846e-01_rb /)
+      kao(:, 5, 6,10) = (/ &
+        & 0.35491e-01_rb,0.33330e-01_rb,0.31756e-01_rb,0.30047e-01_rb,0.27916e-01_rb, &
+        & 0.26189e-01_rb,0.24713e-01_rb,0.22859e-01_rb,0.22839e-01_rb /)
+      kao(:, 1, 7,10) = (/ &
+        & 0.36793e-01_rb,0.32943e-01_rb,0.30074e-01_rb,0.27299e-01_rb,0.24319e-01_rb, &
+        & 0.20802e-01_rb,0.17113e-01_rb,0.13465e-01_rb,0.10508e-01_rb /)
+      kao(:, 2, 7,10) = (/ &
+        & 0.36572e-01_rb,0.33074e-01_rb,0.30511e-01_rb,0.28032e-01_rb,0.24986e-01_rb, &
+        & 0.21844e-01_rb,0.18570e-01_rb,0.15283e-01_rb,0.12467e-01_rb /)
+      kao(:, 3, 7,10) = (/ &
+        & 0.36275e-01_rb,0.33234e-01_rb,0.31161e-01_rb,0.28602e-01_rb,0.25904e-01_rb, &
+        & 0.23164e-01_rb,0.20091e-01_rb,0.17151e-01_rb,0.14775e-01_rb /)
+      kao(:, 4, 7,10) = (/ &
+        & 0.35925e-01_rb,0.33332e-01_rb,0.31658e-01_rb,0.29367e-01_rb,0.27125e-01_rb, &
+        & 0.24431e-01_rb,0.21734e-01_rb,0.19261e-01_rb,0.17350e-01_rb /)
+      kao(:, 5, 7,10) = (/ &
+        & 0.35558e-01_rb,0.33506e-01_rb,0.32097e-01_rb,0.30412e-01_rb,0.28219e-01_rb, &
+        & 0.25923e-01_rb,0.23598e-01_rb,0.21456e-01_rb,0.20114e-01_rb /)
+      kao(:, 1, 8,10) = (/ &
+        & 0.36293e-01_rb,0.32550e-01_rb,0.29721e-01_rb,0.27154e-01_rb,0.24076e-01_rb, &
+        & 0.20693e-01_rb,0.16829e-01_rb,0.12555e-01_rb,0.89579e-02_rb /)
+      kao(:, 2, 8,10) = (/ &
+        & 0.35985e-01_rb,0.32624e-01_rb,0.30270e-01_rb,0.27879e-01_rb,0.24830e-01_rb, &
+        & 0.21669e-01_rb,0.18126e-01_rb,0.14126e-01_rb,0.10649e-01_rb /)
+      kao(:, 3, 8,10) = (/ &
+        & 0.35646e-01_rb,0.32730e-01_rb,0.30946e-01_rb,0.28474e-01_rb,0.25750e-01_rb, &
+        & 0.23017e-01_rb,0.19564e-01_rb,0.15741e-01_rb,0.12721e-01_rb /)
+      kao(:, 4, 8,10) = (/ &
+        & 0.35279e-01_rb,0.32754e-01_rb,0.31424e-01_rb,0.29187e-01_rb,0.27070e-01_rb, &
+        & 0.24316e-01_rb,0.21018e-01_rb,0.17682e-01_rb,0.15011e-01_rb /)
+      kao(:, 5, 8,10) = (/ &
+        & 0.34858e-01_rb,0.32947e-01_rb,0.31835e-01_rb,0.30265e-01_rb,0.28236e-01_rb, &
+        & 0.25710e-01_rb,0.22721e-01_rb,0.19777e-01_rb,0.17474e-01_rb /)
+      kao(:, 1, 9,10) = (/ &
+        & 0.35060e-01_rb,0.31556e-01_rb,0.29012e-01_rb,0.26469e-01_rb,0.23391e-01_rb, &
+        & 0.20141e-01_rb,0.16295e-01_rb,0.11885e-01_rb,0.58937e-02_rb /)
+      kao(:, 2, 9,10) = (/ &
+        & 0.34721e-01_rb,0.31589e-01_rb,0.29506e-01_rb,0.27211e-01_rb,0.24267e-01_rb, &
+        & 0.21055e-01_rb,0.17547e-01_rb,0.13263e-01_rb,0.69908e-02_rb /)
+      kao(:, 3, 9,10) = (/ &
+        & 0.34339e-01_rb,0.31609e-01_rb,0.30075e-01_rb,0.27841e-01_rb,0.25163e-01_rb, &
+        & 0.22398e-01_rb,0.18997e-01_rb,0.14640e-01_rb,0.92447e-02_rb /)
+      kao(:, 4, 9,10) = (/ &
+        & 0.33936e-01_rb,0.31619e-01_rb,0.30603e-01_rb,0.28503e-01_rb,0.26490e-01_rb, &
+        & 0.23804e-01_rb,0.20342e-01_rb,0.16280e-01_rb,0.11993e-01_rb /)
+      kao(:, 5, 9,10) = (/ &
+        & 0.33530e-01_rb,0.31821e-01_rb,0.30991e-01_rb,0.29578e-01_rb,0.27714e-01_rb, &
+        & 0.25218e-01_rb,0.21886e-01_rb,0.18137e-01_rb,0.14941e-01_rb /)
+      kao(:, 1,10,10) = (/ &
+        & 0.33129e-01_rb,0.29964e-01_rb,0.27856e-01_rb,0.25331e-01_rb,0.22401e-01_rb, &
+        & 0.19295e-01_rb,0.15555e-01_rb,0.11348e-01_rb,0.74286e-02_rb /)
+      kao(:, 2,10,10) = (/ &
+        & 0.32749e-01_rb,0.29950e-01_rb,0.28249e-01_rb,0.25998e-01_rb,0.23402e-01_rb, &
+        & 0.20209e-01_rb,0.16757e-01_rb,0.12616e-01_rb,0.86653e-02_rb /)
+      kao(:, 3,10,10) = (/ &
+        & 0.32344e-01_rb,0.29933e-01_rb,0.28722e-01_rb,0.26736e-01_rb,0.24275e-01_rb, &
+        & 0.21508e-01_rb,0.18229e-01_rb,0.13852e-01_rb,0.98082e-02_rb /)
+      kao(:, 4,10,10) = (/ &
+        & 0.31944e-01_rb,0.30002e-01_rb,0.29235e-01_rb,0.27435e-01_rb,0.25548e-01_rb, &
+        & 0.22964e-01_rb,0.19579e-01_rb,0.15278e-01_rb,0.11352e-01_rb /)
+      kao(:, 5,10,10) = (/ &
+        & 0.31533e-01_rb,0.30276e-01_rb,0.29685e-01_rb,0.28539e-01_rb,0.26795e-01_rb, &
+        & 0.24358e-01_rb,0.21106e-01_rb,0.16900e-01_rb,0.12858e-01_rb /)
+      kao(:, 1,11,10) = (/ &
+        & 0.30476e-01_rb,0.27848e-01_rb,0.26383e-01_rb,0.23991e-01_rb,0.21505e-01_rb, &
+        & 0.18546e-01_rb,0.15127e-01_rb,0.11242e-01_rb,0.84064e-02_rb /)
+      kao(:, 2,11,10) = (/ &
+        & 0.30069e-01_rb,0.27873e-01_rb,0.26695e-01_rb,0.24743e-01_rb,0.22441e-01_rb, &
+        & 0.19591e-01_rb,0.16445e-01_rb,0.12465e-01_rb,0.99520e-02_rb /)
+      kao(:, 3,11,10) = (/ &
+        & 0.29683e-01_rb,0.27938e-01_rb,0.27199e-01_rb,0.25464e-01_rb,0.23474e-01_rb, &
+        & 0.21008e-01_rb,0.17841e-01_rb,0.13636e-01_rb,0.11012e-01_rb /)
+      kao(:, 4,11,10) = (/ &
+        & 0.29281e-01_rb,0.28147e-01_rb,0.27612e-01_rb,0.26457e-01_rb,0.24810e-01_rb, &
+        & 0.22367e-01_rb,0.19198e-01_rb,0.15026e-01_rb,0.12764e-01_rb /)
+      kao(:, 5,11,10) = (/ &
+        & 0.28878e-01_rb,0.28450e-01_rb,0.28275e-01_rb,0.27607e-01_rb,0.26039e-01_rb, &
+        & 0.23769e-01_rb,0.20798e-01_rb,0.16479e-01_rb,0.14486e-01_rb /)
+      kao(:, 1,12,10) = (/ &
+        & 0.27483e-01_rb,0.25515e-01_rb,0.24398e-01_rb,0.22423e-01_rb,0.20204e-01_rb, &
+        & 0.17532e-01_rb,0.14597e-01_rb,0.10977e-01_rb,0.89256e-02_rb /)
+      kao(:, 2,12,10) = (/ &
+        & 0.27095e-01_rb,0.25634e-01_rb,0.24782e-01_rb,0.23175e-01_rb,0.21102e-01_rb, &
+        & 0.18740e-01_rb,0.15902e-01_rb,0.12114e-01_rb,0.10252e-01_rb /)
+      kao(:, 3,12,10) = (/ &
+        & 0.26727e-01_rb,0.25761e-01_rb,0.25266e-01_rb,0.23974e-01_rb,0.22361e-01_rb, &
+        & 0.20171e-01_rb,0.17193e-01_rb,0.13275e-01_rb,0.11451e-01_rb /)
+      kao(:, 4,12,10) = (/ &
+        & 0.26341e-01_rb,0.26039e-01_rb,0.25768e-01_rb,0.25146e-01_rb,0.23693e-01_rb, &
+        & 0.21452e-01_rb,0.18566e-01_rb,0.14626e-01_rb,0.13159e-01_rb /)
+      kao(:, 5,12,10) = (/ &
+        & 0.25958e-01_rb,0.26232e-01_rb,0.26607e-01_rb,0.26277e-01_rb,0.24926e-01_rb, &
+        & 0.22906e-01_rb,0.20118e-01_rb,0.16018e-01_rb,0.14784e-01_rb /)
+      kao(:, 1,13,10) = (/ &
+        & 0.24404e-01_rb,0.23195e-01_rb,0.22191e-01_rb,0.20664e-01_rb,0.18645e-01_rb, &
+        & 0.16397e-01_rb,0.13889e-01_rb,0.10532e-01_rb,0.85762e-02_rb /)
+      kao(:, 2,13,10) = (/ &
+        & 0.24045e-01_rb,0.23274e-01_rb,0.22704e-01_rb,0.21382e-01_rb,0.19651e-01_rb, &
+        & 0.17693e-01_rb,0.15133e-01_rb,0.11576e-01_rb,0.96068e-02_rb /)
+      kao(:, 3,13,10) = (/ &
+        & 0.23688e-01_rb,0.23458e-01_rb,0.23185e-01_rb,0.22281e-01_rb,0.21010e-01_rb, &
+        & 0.19021e-01_rb,0.16312e-01_rb,0.12755e-01_rb,0.10813e-01_rb /)
+      kao(:, 4,13,10) = (/ &
+        & 0.23340e-01_rb,0.23719e-01_rb,0.23835e-01_rb,0.23529e-01_rb,0.22269e-01_rb, &
+        & 0.20297e-01_rb,0.17677e-01_rb,0.14063e-01_rb,0.12469e-01_rb /)
+      kao(:, 5,13,10) = (/ &
+        & 0.23007e-01_rb,0.23887e-01_rb,0.24745e-01_rb,0.24636e-01_rb,0.23538e-01_rb, &
+        & 0.21795e-01_rb,0.19163e-01_rb,0.15452e-01_rb,0.13866e-01_rb /)
+      kao(:, 1, 1,11) = (/ &
+        & 0.38207e-01_rb,0.35023e-01_rb,0.31764e-01_rb,0.29513e-01_rb,0.27148e-01_rb, &
+        & 0.25121e-01_rb,0.22678e-01_rb,0.23928e-01_rb,0.26899e-01_rb /)
+      kao(:, 2, 1,11) = (/ &
+        & 0.37930e-01_rb,0.35272e-01_rb,0.32250e-01_rb,0.30760e-01_rb,0.28557e-01_rb, &
+        & 0.27105e-01_rb,0.25089e-01_rb,0.27604e-01_rb,0.31070e-01_rb /)
+      kao(:, 3, 1,11) = (/ &
+        & 0.37611e-01_rb,0.35491e-01_rb,0.32949e-01_rb,0.31869e-01_rb,0.30632e-01_rb, &
+        & 0.29068e-01_rb,0.27897e-01_rb,0.31369e-01_rb,0.35419e-01_rb /)
+      kao(:, 4, 1,11) = (/ &
+        & 0.37244e-01_rb,0.35566e-01_rb,0.33874e-01_rb,0.33253e-01_rb,0.32466e-01_rb, &
+        & 0.31095e-01_rb,0.31358e-01_rb,0.35716e-01_rb,0.40368e-01_rb /)
+      kao(:, 5, 1,11) = (/ &
+        & 0.36895e-01_rb,0.35750e-01_rb,0.34817e-01_rb,0.35038e-01_rb,0.34265e-01_rb, &
+        & 0.33428e-01_rb,0.35709e-01_rb,0.40899e-01_rb,0.46337e-01_rb /)
+      kao(:, 1, 2,11) = (/ &
+        & 0.39640e-01_rb,0.36208e-01_rb,0.33140e-01_rb,0.30731e-01_rb,0.28621e-01_rb, &
+        & 0.26451e-01_rb,0.23824e-01_rb,0.23418e-01_rb,0.26401e-01_rb /)
+      kao(:, 2, 2,11) = (/ &
+        & 0.39384e-01_rb,0.36543e-01_rb,0.33542e-01_rb,0.32043e-01_rb,0.30032e-01_rb, &
+        & 0.28484e-01_rb,0.26191e-01_rb,0.27027e-01_rb,0.30540e-01_rb /)
+      kao(:, 3, 2,11) = (/ &
+        & 0.39069e-01_rb,0.36650e-01_rb,0.34340e-01_rb,0.33119e-01_rb,0.32037e-01_rb, &
+        & 0.30787e-01_rb,0.28410e-01_rb,0.30659e-01_rb,0.34733e-01_rb /)
+      kao(:, 4, 2,11) = (/ &
+        & 0.38756e-01_rb,0.36738e-01_rb,0.35220e-01_rb,0.34547e-01_rb,0.34264e-01_rb, &
+        & 0.32872e-01_rb,0.31204e-01_rb,0.34827e-01_rb,0.39529e-01_rb /)
+      kao(:, 5, 2,11) = (/ &
+        & 0.38432e-01_rb,0.36958e-01_rb,0.36077e-01_rb,0.36343e-01_rb,0.36389e-01_rb, &
+        & 0.35222e-01_rb,0.34916e-01_rb,0.39622e-01_rb,0.45018e-01_rb /)
+      kao(:, 1, 3,11) = (/ &
+        & 0.41762e-01_rb,0.37801e-01_rb,0.34598e-01_rb,0.31385e-01_rb,0.29542e-01_rb, &
+        & 0.27120e-01_rb,0.24296e-01_rb,0.22163e-01_rb,0.24873e-01_rb /)
+      kao(:, 2, 3,11) = (/ &
+        & 0.41521e-01_rb,0.38107e-01_rb,0.34885e-01_rb,0.32740e-01_rb,0.30892e-01_rb, &
+        & 0.28927e-01_rb,0.26874e-01_rb,0.25608e-01_rb,0.28828e-01_rb /)
+      kao(:, 3, 3,11) = (/ &
+        & 0.41284e-01_rb,0.38250e-01_rb,0.35590e-01_rb,0.33929e-01_rb,0.32637e-01_rb, &
+        & 0.31412e-01_rb,0.29268e-01_rb,0.29038e-01_rb,0.32851e-01_rb /)
+      kao(:, 4, 3,11) = (/ &
+        & 0.40996e-01_rb,0.38286e-01_rb,0.36402e-01_rb,0.35356e-01_rb,0.34868e-01_rb, &
+        & 0.33799e-01_rb,0.31619e-01_rb,0.33158e-01_rb,0.37659e-01_rb /)
+      kao(:, 5, 3,11) = (/ &
+        & 0.40710e-01_rb,0.38497e-01_rb,0.37108e-01_rb,0.37161e-01_rb,0.37098e-01_rb, &
+        & 0.36226e-01_rb,0.34568e-01_rb,0.37733e-01_rb,0.42953e-01_rb /)
+      kao(:, 1, 4,11) = (/ &
+        & 0.44432e-01_rb,0.39911e-01_rb,0.36533e-01_rb,0.32358e-01_rb,0.30116e-01_rb, &
+        & 0.27425e-01_rb,0.24391e-01_rb,0.21003e-01_rb,0.22873e-01_rb /)
+      kao(:, 2, 4,11) = (/ &
+        & 0.44241e-01_rb,0.40248e-01_rb,0.36750e-01_rb,0.33734e-01_rb,0.31371e-01_rb, &
+        & 0.29050e-01_rb,0.26929e-01_rb,0.23993e-01_rb,0.26696e-01_rb /)
+      kao(:, 3, 4,11) = (/ &
+        & 0.43986e-01_rb,0.40474e-01_rb,0.37358e-01_rb,0.34847e-01_rb,0.32894e-01_rb, &
+        & 0.31475e-01_rb,0.29486e-01_rb,0.27256e-01_rb,0.30632e-01_rb /)
+      kao(:, 4, 4,11) = (/ &
+        & 0.43750e-01_rb,0.40487e-01_rb,0.38107e-01_rb,0.36115e-01_rb,0.35063e-01_rb, &
+        & 0.33924e-01_rb,0.31967e-01_rb,0.31144e-01_rb,0.35198e-01_rb /)
+      kao(:, 5, 4,11) = (/ &
+        & 0.43427e-01_rb,0.40610e-01_rb,0.38702e-01_rb,0.37867e-01_rb,0.37251e-01_rb, &
+        & 0.36357e-01_rb,0.34995e-01_rb,0.35502e-01_rb,0.40197e-01_rb /)
+      kao(:, 1, 5,11) = (/ &
+        & 0.47176e-01_rb,0.42142e-01_rb,0.38550e-01_rb,0.33884e-01_rb,0.30889e-01_rb, &
+        & 0.27516e-01_rb,0.24267e-01_rb,0.20680e-01_rb,0.20851e-01_rb /)
+      kao(:, 2, 5,11) = (/ &
+        & 0.47021e-01_rb,0.42363e-01_rb,0.38770e-01_rb,0.35164e-01_rb,0.32104e-01_rb, &
+        & 0.29005e-01_rb,0.26645e-01_rb,0.23247e-01_rb,0.24505e-01_rb /)
+      kao(:, 3, 5,11) = (/ &
+        & 0.46797e-01_rb,0.42763e-01_rb,0.39235e-01_rb,0.36269e-01_rb,0.33395e-01_rb, &
+        & 0.31307e-01_rb,0.29249e-01_rb,0.25924e-01_rb,0.28324e-01_rb /)
+      kao(:, 4, 5,11) = (/ &
+        & 0.46572e-01_rb,0.42912e-01_rb,0.40018e-01_rb,0.37361e-01_rb,0.35308e-01_rb, &
+        & 0.33789e-01_rb,0.31702e-01_rb,0.29304e-01_rb,0.32735e-01_rb /)
+      kao(:, 5, 5,11) = (/ &
+        & 0.46255e-01_rb,0.42923e-01_rb,0.40617e-01_rb,0.38829e-01_rb,0.37399e-01_rb, &
+        & 0.36167e-01_rb,0.34686e-01_rb,0.33312e-01_rb,0.37380e-01_rb /)
+      kao(:, 1, 6,11) = (/ &
+        & 0.49975e-01_rb,0.44361e-01_rb,0.40341e-01_rb,0.35539e-01_rb,0.31829e-01_rb, &
+        & 0.27816e-01_rb,0.23845e-01_rb,0.20093e-01_rb,0.18543e-01_rb /)
+      kao(:, 2, 6,11) = (/ &
+        & 0.49828e-01_rb,0.44558e-01_rb,0.40763e-01_rb,0.36628e-01_rb,0.33050e-01_rb, &
+        & 0.29095e-01_rb,0.26117e-01_rb,0.22673e-01_rb,0.22099e-01_rb /)
+      kao(:, 3, 6,11) = (/ &
+        & 0.49608e-01_rb,0.44841e-01_rb,0.41085e-01_rb,0.37793e-01_rb,0.34135e-01_rb, &
+        & 0.31097e-01_rb,0.28755e-01_rb,0.25283e-01_rb,0.25831e-01_rb /)
+      kao(:, 4, 6,11) = (/ &
+        & 0.49365e-01_rb,0.45144e-01_rb,0.41922e-01_rb,0.38723e-01_rb,0.35845e-01_rb, &
+        & 0.33431e-01_rb,0.31237e-01_rb,0.28118e-01_rb,0.29954e-01_rb /)
+      kao(:, 5, 6,11) = (/ &
+        & 0.49026e-01_rb,0.45249e-01_rb,0.42535e-01_rb,0.39993e-01_rb,0.37821e-01_rb, &
+        & 0.35671e-01_rb,0.34099e-01_rb,0.31399e-01_rb,0.34366e-01_rb /)
+      kao(:, 1, 7,11) = (/ &
+        & 0.52410e-01_rb,0.46362e-01_rb,0.41901e-01_rb,0.37210e-01_rb,0.32800e-01_rb, &
+        & 0.28263e-01_rb,0.23499e-01_rb,0.19230e-01_rb,0.16237e-01_rb /)
+      kao(:, 2, 7,11) = (/ &
+        & 0.52214e-01_rb,0.46505e-01_rb,0.42451e-01_rb,0.38113e-01_rb,0.34021e-01_rb, &
+        & 0.29480e-01_rb,0.25464e-01_rb,0.21812e-01_rb,0.19595e-01_rb /)
+      kao(:, 3, 7,11) = (/ &
+        & 0.51982e-01_rb,0.46700e-01_rb,0.42867e-01_rb,0.39292e-01_rb,0.35048e-01_rb, &
+        & 0.31222e-01_rb,0.27987e-01_rb,0.24489e-01_rb,0.23138e-01_rb /)
+      kao(:, 4, 7,11) = (/ &
+        & 0.51660e-01_rb,0.46904e-01_rb,0.43697e-01_rb,0.40172e-01_rb,0.36555e-01_rb, &
+        & 0.33390e-01_rb,0.30506e-01_rb,0.27287e-01_rb,0.27036e-01_rb /)
+      kao(:, 5, 7,11) = (/ &
+        & 0.51284e-01_rb,0.47053e-01_rb,0.44408e-01_rb,0.41338e-01_rb,0.38429e-01_rb, &
+        & 0.35446e-01_rb,0.33297e-01_rb,0.30383e-01_rb,0.31263e-01_rb /)
+      kao(:, 1, 8,11) = (/ &
+        & 0.53849e-01_rb,0.47597e-01_rb,0.43012e-01_rb,0.38373e-01_rb,0.33860e-01_rb, &
+        & 0.28679e-01_rb,0.23391e-01_rb,0.18151e-01_rb,0.14106e-01_rb /)
+      kao(:, 2, 8,11) = (/ &
+        & 0.53641e-01_rb,0.47671e-01_rb,0.43475e-01_rb,0.39445e-01_rb,0.35042e-01_rb, &
+        & 0.29924e-01_rb,0.25055e-01_rb,0.20655e-01_rb,0.17171e-01_rb /)
+      kao(:, 3, 8,11) = (/ &
+        & 0.53375e-01_rb,0.47826e-01_rb,0.44020e-01_rb,0.40653e-01_rb,0.36059e-01_rb, &
+        & 0.31447e-01_rb,0.27345e-01_rb,0.23357e-01_rb,0.20383e-01_rb /)
+      kao(:, 4, 8,11) = (/ &
+        & 0.53001e-01_rb,0.48011e-01_rb,0.44999e-01_rb,0.41558e-01_rb,0.37354e-01_rb, &
+        & 0.33601e-01_rb,0.29695e-01_rb,0.26106e-01_rb,0.24004e-01_rb /)
+      kao(:, 5, 8,11) = (/ &
+        & 0.52592e-01_rb,0.48152e-01_rb,0.45845e-01_rb,0.42585e-01_rb,0.39198e-01_rb, &
+        & 0.35588e-01_rb,0.32287e-01_rb,0.29155e-01_rb,0.27991e-01_rb /)
+      kao(:, 1, 9,11) = (/ &
+        & 0.54223e-01_rb,0.47973e-01_rb,0.43289e-01_rb,0.38882e-01_rb,0.34299e-01_rb, &
+        & 0.28946e-01_rb,0.23303e-01_rb,0.17068e-01_rb,0.11192e-01_rb /)
+      kao(:, 2, 9,11) = (/ &
+        & 0.53940e-01_rb,0.47929e-01_rb,0.43759e-01_rb,0.39916e-01_rb,0.35622e-01_rb, &
+        & 0.30345e-01_rb,0.24752e-01_rb,0.19298e-01_rb,0.14778e-01_rb /)
+      kao(:, 3, 9,11) = (/ &
+        & 0.53642e-01_rb,0.48095e-01_rb,0.44399e-01_rb,0.41241e-01_rb,0.36768e-01_rb, &
+        & 0.31745e-01_rb,0.26845e-01_rb,0.21914e-01_rb,0.17754e-01_rb /)
+      kao(:, 4, 9,11) = (/ &
+        & 0.53257e-01_rb,0.48243e-01_rb,0.45322e-01_rb,0.42327e-01_rb,0.37988e-01_rb, &
+        & 0.33799e-01_rb,0.29109e-01_rb,0.24533e-01_rb,0.21056e-01_rb /)
+      kao(:, 5, 9,11) = (/ &
+        & 0.52778e-01_rb,0.48340e-01_rb,0.46365e-01_rb,0.43326e-01_rb,0.39837e-01_rb, &
+        & 0.35758e-01_rb,0.31465e-01_rb,0.27467e-01_rb,0.24721e-01_rb /)
+      kao(:, 1,10,11) = (/ &
+        & 0.53564e-01_rb,0.47520e-01_rb,0.42897e-01_rb,0.38870e-01_rb,0.34096e-01_rb, &
+        & 0.28762e-01_rb,0.23161e-01_rb,0.16420e-01_rb,0.10403e-01_rb /)
+      kao(:, 2,10,11) = (/ &
+        & 0.53200e-01_rb,0.47370e-01_rb,0.43390e-01_rb,0.39812e-01_rb,0.35374e-01_rb, &
+        & 0.30449e-01_rb,0.24605e-01_rb,0.18329e-01_rb,0.12727e-01_rb /)
+      kao(:, 3,10,11) = (/ &
+        & 0.52804e-01_rb,0.47486e-01_rb,0.44077e-01_rb,0.41029e-01_rb,0.36828e-01_rb, &
+        & 0.31909e-01_rb,0.26518e-01_rb,0.20700e-01_rb,0.14792e-01_rb /)
+      kao(:, 4,10,11) = (/ &
+        & 0.52379e-01_rb,0.47585e-01_rb,0.44997e-01_rb,0.42270e-01_rb,0.38168e-01_rb, &
+        & 0.33930e-01_rb,0.28762e-01_rb,0.23052e-01_rb,0.16495e-01_rb /)
+      kao(:, 5,10,11) = (/ &
+        & 0.51859e-01_rb,0.47629e-01_rb,0.45989e-01_rb,0.43387e-01_rb,0.40080e-01_rb, &
+        & 0.36007e-01_rb,0.30957e-01_rb,0.25773e-01_rb,0.18898e-01_rb /)
+      kao(:, 1,11,11) = (/ &
+        & 0.51622e-01_rb,0.46074e-01_rb,0.42057e-01_rb,0.38618e-01_rb,0.33808e-01_rb, &
+        & 0.28847e-01_rb,0.23288e-01_rb,0.16620e-01_rb,0.11907e-01_rb /)
+      kao(:, 2,11,11) = (/ &
+        & 0.51193e-01_rb,0.45980e-01_rb,0.42719e-01_rb,0.39541e-01_rb,0.35253e-01_rb, &
+        & 0.30566e-01_rb,0.24931e-01_rb,0.18565e-01_rb,0.13988e-01_rb /)
+      kao(:, 3,11,11) = (/ &
+        & 0.50740e-01_rb,0.46089e-01_rb,0.43457e-01_rb,0.40804e-01_rb,0.36736e-01_rb, &
+        & 0.32310e-01_rb,0.27095e-01_rb,0.20684e-01_rb,0.16681e-01_rb /)
+      kao(:, 4,11,11) = (/ &
+        & 0.50228e-01_rb,0.46105e-01_rb,0.44454e-01_rb,0.41838e-01_rb,0.38478e-01_rb, &
+        & 0.34580e-01_rb,0.29293e-01_rb,0.22846e-01_rb,0.18301e-01_rb /)
+      kao(:, 5,11,11) = (/ &
+        & 0.49697e-01_rb,0.46259e-01_rb,0.45191e-01_rb,0.43198e-01_rb,0.40635e-01_rb, &
+        & 0.36709e-01_rb,0.31434e-01_rb,0.25478e-01_rb,0.20947e-01_rb /)
+      kao(:, 1,12,11) = (/ &
+        & 0.48647e-01_rb,0.43752e-01_rb,0.40707e-01_rb,0.37500e-01_rb,0.33089e-01_rb, &
+        & 0.28489e-01_rb,0.23000e-01_rb,0.16785e-01_rb,0.12627e-01_rb /)
+      kao(:, 2,12,11) = (/ &
+        & 0.48181e-01_rb,0.43711e-01_rb,0.41312e-01_rb,0.38500e-01_rb,0.34693e-01_rb, &
+        & 0.30128e-01_rb,0.24939e-01_rb,0.18673e-01_rb,0.15167e-01_rb /)
+      kao(:, 3,12,11) = (/ &
+        & 0.47678e-01_rb,0.43812e-01_rb,0.42104e-01_rb,0.39699e-01_rb,0.36175e-01_rb, &
+        & 0.32199e-01_rb,0.27269e-01_rb,0.20637e-01_rb,0.17826e-01_rb /)
+      kao(:, 4,12,11) = (/ &
+        & 0.47181e-01_rb,0.43914e-01_rb,0.43002e-01_rb,0.40767e-01_rb,0.38218e-01_rb, &
+        & 0.34662e-01_rb,0.29455e-01_rb,0.22728e-01_rb,0.19785e-01_rb /)
+      kao(:, 5,12,11) = (/ &
+        & 0.46685e-01_rb,0.44343e-01_rb,0.43686e-01_rb,0.42426e-01_rb,0.40422e-01_rb, &
+        & 0.36842e-01_rb,0.31692e-01_rb,0.25217e-01_rb,0.22679e-01_rb /)
+      kao(:, 1,13,11) = (/ &
+        & 0.44854e-01_rb,0.40724e-01_rb,0.38672e-01_rb,0.35614e-01_rb,0.31949e-01_rb, &
+        & 0.27602e-01_rb,0.22498e-01_rb,0.16720e-01_rb,0.12798e-01_rb /)
+      kao(:, 2,13,11) = (/ &
+        & 0.44381e-01_rb,0.40833e-01_rb,0.39190e-01_rb,0.36792e-01_rb,0.33534e-01_rb, &
+        & 0.29330e-01_rb,0.24604e-01_rb,0.18629e-01_rb,0.15661e-01_rb /)
+      kao(:, 3,13,11) = (/ &
+        & 0.43916e-01_rb,0.40995e-01_rb,0.40051e-01_rb,0.37975e-01_rb,0.35149e-01_rb, &
+        & 0.31642e-01_rb,0.27046e-01_rb,0.20453e-01_rb,0.17792e-01_rb /)
+      kao(:, 4,13,11) = (/ &
+        & 0.43441e-01_rb,0.41288e-01_rb,0.40871e-01_rb,0.39278e-01_rb,0.37365e-01_rb, &
+        & 0.34126e-01_rb,0.29213e-01_rb,0.22513e-01_rb,0.19591e-01_rb /)
+      kao(:, 5,13,11) = (/ &
+        & 0.42963e-01_rb,0.41916e-01_rb,0.41758e-01_rb,0.41144e-01_rb,0.39580e-01_rb, &
+        & 0.36327e-01_rb,0.31558e-01_rb,0.24885e-01_rb,0.22715e-01_rb /)
+      kao(:, 1, 1,12) = (/ &
+        & 0.52315e-01_rb,0.47505e-01_rb,0.42884e-01_rb,0.38287e-01_rb,0.34721e-01_rb, &
+        & 0.30888e-01_rb,0.29687e-01_rb,0.33559e-01_rb,0.37791e-01_rb /)
+      kao(:, 2, 1,12) = (/ &
+        & 0.52132e-01_rb,0.47869e-01_rb,0.43358e-01_rb,0.39519e-01_rb,0.36490e-01_rb, &
+        & 0.33059e-01_rb,0.34560e-01_rb,0.39434e-01_rb,0.44537e-01_rb /)
+      kao(:, 3, 1,12) = (/ &
+        & 0.51859e-01_rb,0.48259e-01_rb,0.44108e-01_rb,0.41053e-01_rb,0.38159e-01_rb, &
+        & 0.36325e-01_rb,0.40345e-01_rb,0.46345e-01_rb,0.52382e-01_rb /)
+      kao(:, 4, 1,12) = (/ &
+        & 0.51556e-01_rb,0.48650e-01_rb,0.44992e-01_rb,0.42544e-01_rb,0.40704e-01_rb, &
+        & 0.40160e-01_rb,0.46427e-01_rb,0.53431e-01_rb,0.60544e-01_rb /)
+      kao(:, 5, 1,12) = (/ &
+        & 0.51137e-01_rb,0.48860e-01_rb,0.46168e-01_rb,0.44111e-01_rb,0.43209e-01_rb, &
+        & 0.44827e-01_rb,0.52800e-01_rb,0.60972e-01_rb,0.69216e-01_rb /)
+      kao(:, 1, 2,12) = (/ &
+        & 0.56434e-01_rb,0.51118e-01_rb,0.46217e-01_rb,0.41561e-01_rb,0.37505e-01_rb, &
+        & 0.33646e-01_rb,0.30189e-01_rb,0.33085e-01_rb,0.37424e-01_rb /)
+      kao(:, 2, 2,12) = (/ &
+        & 0.56174e-01_rb,0.51590e-01_rb,0.46758e-01_rb,0.42838e-01_rb,0.39459e-01_rb, &
+        & 0.35755e-01_rb,0.34261e-01_rb,0.38732e-01_rb,0.43938e-01_rb /)
+      kao(:, 3, 2,12) = (/ &
+        & 0.55870e-01_rb,0.52113e-01_rb,0.47459e-01_rb,0.44557e-01_rb,0.41223e-01_rb, &
+        & 0.38732e-01_rb,0.39807e-01_rb,0.45508e-01_rb,0.51693e-01_rb /)
+      kao(:, 4, 2,12) = (/ &
+        & 0.55457e-01_rb,0.52524e-01_rb,0.48507e-01_rb,0.46112e-01_rb,0.43732e-01_rb, &
+        & 0.42045e-01_rb,0.45811e-01_rb,0.52732e-01_rb,0.60004e-01_rb /)
+      kao(:, 5, 2,12) = (/ &
+        & 0.54996e-01_rb,0.52680e-01_rb,0.49849e-01_rb,0.47721e-01_rb,0.46514e-01_rb, &
+        & 0.45961e-01_rb,0.52270e-01_rb,0.60294e-01_rb,0.68714e-01_rb /)
+      kao(:, 1, 3,12) = (/ &
+        & 0.59831e-01_rb,0.53764e-01_rb,0.48883e-01_rb,0.44361e-01_rb,0.39553e-01_rb, &
+        & 0.35958e-01_rb,0.31293e-01_rb,0.31467e-01_rb,0.35795e-01_rb /)
+      kao(:, 2, 3,12) = (/ &
+        & 0.59532e-01_rb,0.54423e-01_rb,0.49485e-01_rb,0.45554e-01_rb,0.41889e-01_rb, &
+        & 0.38044e-01_rb,0.34149e-01_rb,0.36846e-01_rb,0.42078e-01_rb /)
+      kao(:, 3, 3,12) = (/ &
+        & 0.59134e-01_rb,0.55152e-01_rb,0.50116e-01_rb,0.47410e-01_rb,0.43907e-01_rb, &
+        & 0.40732e-01_rb,0.38444e-01_rb,0.43145e-01_rb,0.49218e-01_rb /)
+      kao(:, 4, 3,12) = (/ &
+        & 0.58672e-01_rb,0.55655e-01_rb,0.51271e-01_rb,0.49059e-01_rb,0.46360e-01_rb, &
+        & 0.44063e-01_rb,0.43633e-01_rb,0.49781e-01_rb,0.56746e-01_rb /)
+      kao(:, 5, 3,12) = (/ &
+        & 0.58134e-01_rb,0.55813e-01_rb,0.52716e-01_rb,0.50709e-01_rb,0.49278e-01_rb, &
+        & 0.47427e-01_rb,0.49630e-01_rb,0.57031e-01_rb,0.65034e-01_rb /)
+      kao(:, 1, 4,12) = (/ &
+        & 0.62624e-01_rb,0.55864e-01_rb,0.50884e-01_rb,0.46641e-01_rb,0.41202e-01_rb, &
+        & 0.37808e-01_rb,0.32728e-01_rb,0.29634e-01_rb,0.33571e-01_rb /)
+      kao(:, 2, 4,12) = (/ &
+        & 0.62339e-01_rb,0.56365e-01_rb,0.51618e-01_rb,0.47600e-01_rb,0.43888e-01_rb, &
+        & 0.40000e-01_rb,0.35145e-01_rb,0.34591e-01_rb,0.39469e-01_rb /)
+      kao(:, 3, 4,12) = (/ &
+        & 0.61969e-01_rb,0.57107e-01_rb,0.52103e-01_rb,0.49599e-01_rb,0.46112e-01_rb, &
+        & 0.42482e-01_rb,0.38680e-01_rb,0.40578e-01_rb,0.46387e-01_rb /)
+      kao(:, 4, 4,12) = (/ &
+        & 0.61515e-01_rb,0.57939e-01_rb,0.53160e-01_rb,0.51347e-01_rb,0.48544e-01_rb, &
+        & 0.45843e-01_rb,0.42689e-01_rb,0.46767e-01_rb,0.53378e-01_rb /)
+      kao(:, 5, 4,12) = (/ &
+        & 0.60986e-01_rb,0.58238e-01_rb,0.54658e-01_rb,0.53027e-01_rb,0.51696e-01_rb, &
+        & 0.49388e-01_rb,0.47217e-01_rb,0.53278e-01_rb,0.60785e-01_rb /)
+      kao(:, 1, 5,12) = (/ &
+        & 0.65795e-01_rb,0.58347e-01_rb,0.52585e-01_rb,0.48437e-01_rb,0.42714e-01_rb, &
+        & 0.39265e-01_rb,0.34039e-01_rb,0.28235e-01_rb,0.31421e-01_rb /)
+      kao(:, 2, 5,12) = (/ &
+        & 0.65486e-01_rb,0.58633e-01_rb,0.53696e-01_rb,0.49213e-01_rb,0.45420e-01_rb, &
+        & 0.41668e-01_rb,0.36378e-01_rb,0.32647e-01_rb,0.37055e-01_rb /)
+      kao(:, 3, 5,12) = (/ &
+        & 0.65183e-01_rb,0.59134e-01_rb,0.54134e-01_rb,0.51097e-01_rb,0.47829e-01_rb, &
+        & 0.44052e-01_rb,0.39727e-01_rb,0.38129e-01_rb,0.43417e-01_rb /)
+      kao(:, 4, 5,12) = (/ &
+        & 0.64717e-01_rb,0.59894e-01_rb,0.54954e-01_rb,0.53041e-01_rb,0.50294e-01_rb, &
+        & 0.47344e-01_rb,0.43654e-01_rb,0.43889e-01_rb,0.49916e-01_rb /)
+      kao(:, 5, 5,12) = (/ &
+        & 0.64255e-01_rb,0.60489e-01_rb,0.56373e-01_rb,0.54824e-01_rb,0.53472e-01_rb, &
+        & 0.51112e-01_rb,0.47282e-01_rb,0.50031e-01_rb,0.57102e-01_rb /)
+      kao(:, 1, 6,12) = (/ &
+        & 0.69615e-01_rb,0.61594e-01_rb,0.54882e-01_rb,0.50187e-01_rb,0.44074e-01_rb, &
+        & 0.39997e-01_rb,0.34871e-01_rb,0.27743e-01_rb,0.29013e-01_rb /)
+      kao(:, 2, 6,12) = (/ &
+        & 0.69442e-01_rb,0.61757e-01_rb,0.55910e-01_rb,0.50997e-01_rb,0.46497e-01_rb, &
+        & 0.42613e-01_rb,0.37188e-01_rb,0.31216e-01_rb,0.34347e-01_rb /)
+      kao(:, 3, 6,12) = (/ &
+        & 0.69156e-01_rb,0.62106e-01_rb,0.56750e-01_rb,0.52515e-01_rb,0.49101e-01_rb, &
+        & 0.44986e-01_rb,0.40395e-01_rb,0.35961e-01_rb,0.40369e-01_rb /)
+      kao(:, 4, 6,12) = (/ &
+        & 0.68816e-01_rb,0.62627e-01_rb,0.57231e-01_rb,0.54601e-01_rb,0.51362e-01_rb, &
+        & 0.48280e-01_rb,0.44442e-01_rb,0.41156e-01_rb,0.46554e-01_rb /)
+      kao(:, 5, 6,12) = (/ &
+        & 0.68355e-01_rb,0.63113e-01_rb,0.58516e-01_rb,0.56347e-01_rb,0.54360e-01_rb, &
+        & 0.52199e-01_rb,0.48222e-01_rb,0.46871e-01_rb,0.53241e-01_rb /)
+      kao(:, 1, 7,12) = (/ &
+        & 0.74032e-01_rb,0.65393e-01_rb,0.58013e-01_rb,0.51965e-01_rb,0.45915e-01_rb, &
+        & 0.40526e-01_rb,0.35125e-01_rb,0.27883e-01_rb,0.26586e-01_rb /)
+      kao(:, 2, 7,12) = (/ &
+        & 0.73937e-01_rb,0.65493e-01_rb,0.58738e-01_rb,0.53263e-01_rb,0.47941e-01_rb, &
+        & 0.43149e-01_rb,0.37585e-01_rb,0.30874e-01_rb,0.31614e-01_rb /)
+      kao(:, 3, 7,12) = (/ &
+        & 0.73662e-01_rb,0.65759e-01_rb,0.59591e-01_rb,0.54630e-01_rb,0.50354e-01_rb, &
+        & 0.45514e-01_rb,0.40708e-01_rb,0.34889e-01_rb,0.37383e-01_rb /)
+      kao(:, 4, 7,12) = (/ &
+        & 0.73359e-01_rb,0.66187e-01_rb,0.60275e-01_rb,0.56599e-01_rb,0.52392e-01_rb, &
+        & 0.48574e-01_rb,0.44791e-01_rb,0.39333e-01_rb,0.43356e-01_rb /)
+      kao(:, 5, 7,12) = (/ &
+        & 0.72923e-01_rb,0.66589e-01_rb,0.61432e-01_rb,0.58168e-01_rb,0.55043e-01_rb, &
+        & 0.52561e-01_rb,0.48755e-01_rb,0.44300e-01_rb,0.49765e-01_rb /)
+      kao(:, 1, 8,12) = (/ &
+        & 0.78458e-01_rb,0.69177e-01_rb,0.61142e-01_rb,0.54247e-01_rb,0.47727e-01_rb, &
+        & 0.41456e-01_rb,0.34819e-01_rb,0.27717e-01_rb,0.23941e-01_rb /)
+      kao(:, 2, 8,12) = (/ &
+        & 0.78410e-01_rb,0.69294e-01_rb,0.61857e-01_rb,0.55492e-01_rb,0.49764e-01_rb, &
+        & 0.43844e-01_rb,0.37501e-01_rb,0.30644e-01_rb,0.28737e-01_rb /)
+      kao(:, 3, 8,12) = (/ &
+        & 0.78162e-01_rb,0.69463e-01_rb,0.62578e-01_rb,0.57026e-01_rb,0.52068e-01_rb, &
+        & 0.46044e-01_rb,0.40472e-01_rb,0.34561e-01_rb,0.34380e-01_rb /)
+      kao(:, 4, 8,12) = (/ &
+        & 0.77871e-01_rb,0.69834e-01_rb,0.63268e-01_rb,0.59074e-01_rb,0.53918e-01_rb, &
+        & 0.48672e-01_rb,0.44601e-01_rb,0.38671e-01_rb,0.40158e-01_rb /)
+      kao(:, 5, 8,12) = (/ &
+        & 0.77487e-01_rb,0.70209e-01_rb,0.64405e-01_rb,0.60632e-01_rb,0.56120e-01_rb, &
+        & 0.52504e-01_rb,0.48787e-01_rb,0.42980e-01_rb,0.46410e-01_rb /)
+      kao(:, 1, 9,12) = (/ &
+        & 0.82666e-01_rb,0.72734e-01_rb,0.64105e-01_rb,0.56594e-01_rb,0.49561e-01_rb, &
+        & 0.42281e-01_rb,0.34472e-01_rb,0.27105e-01_rb,0.21191e-01_rb /)
+      kao(:, 2, 9,12) = (/ &
+        & 0.82602e-01_rb,0.72866e-01_rb,0.64825e-01_rb,0.57780e-01_rb,0.51415e-01_rb, &
+        & 0.44682e-01_rb,0.37233e-01_rb,0.30003e-01_rb,0.25697e-01_rb /)
+      kao(:, 3, 9,12) = (/ &
+        & 0.82349e-01_rb,0.72898e-01_rb,0.65478e-01_rb,0.59213e-01_rb,0.53844e-01_rb, &
+        & 0.46925e-01_rb,0.39994e-01_rb,0.33830e-01_rb,0.31116e-01_rb /)
+      kao(:, 4, 9,12) = (/ &
+        & 0.82004e-01_rb,0.73222e-01_rb,0.66214e-01_rb,0.61303e-01_rb,0.55771e-01_rb, &
+        & 0.49206e-01_rb,0.43963e-01_rb,0.38199e-01_rb,0.36759e-01_rb /)
+      kao(:, 5, 9,12) = (/ &
+        & 0.81608e-01_rb,0.73612e-01_rb,0.67180e-01_rb,0.63056e-01_rb,0.57653e-01_rb, &
+        & 0.52653e-01_rb,0.48283e-01_rb,0.42441e-01_rb,0.42846e-01_rb /)
+      kao(:, 1,10,12) = (/ &
+        & 0.85880e-01_rb,0.75430e-01_rb,0.66656e-01_rb,0.58773e-01_rb,0.51658e-01_rb, &
+        & 0.43336e-01_rb,0.34393e-01_rb,0.26157e-01_rb,0.14663e-01_rb /)
+      kao(:, 2,10,12) = (/ &
+        & 0.85756e-01_rb,0.75590e-01_rb,0.67337e-01_rb,0.60049e-01_rb,0.53266e-01_rb, &
+        & 0.45473e-01_rb,0.37278e-01_rb,0.29125e-01_rb,0.16193e-01_rb /)
+      kao(:, 3,10,12) = (/ &
+        & 0.85530e-01_rb,0.75588e-01_rb,0.67995e-01_rb,0.61462e-01_rb,0.55345e-01_rb, &
+        & 0.48001e-01_rb,0.39939e-01_rb,0.32883e-01_rb,0.20331e-01_rb /)
+      kao(:, 4,10,12) = (/ &
+        & 0.85095e-01_rb,0.75810e-01_rb,0.68684e-01_rb,0.63320e-01_rb,0.57485e-01_rb, &
+        & 0.50257e-01_rb,0.43559e-01_rb,0.37443e-01_rb,0.23682e-01_rb /)
+      kao(:, 5,10,12) = (/ &
+        & 0.84667e-01_rb,0.76211e-01_rb,0.69733e-01_rb,0.65095e-01_rb,0.59445e-01_rb, &
+        & 0.53380e-01_rb,0.47785e-01_rb,0.41863e-01_rb,0.26616e-01_rb /)
+      kao(:, 1,11,12) = (/ &
+        & 0.87471e-01_rb,0.76929e-01_rb,0.68322e-01_rb,0.60781e-01_rb,0.53951e-01_rb, &
+        & 0.45056e-01_rb,0.35758e-01_rb,0.26371e-01_rb,0.18858e-01_rb /)
+      kao(:, 2,11,12) = (/ &
+        & 0.87208e-01_rb,0.76940e-01_rb,0.68996e-01_rb,0.62212e-01_rb,0.55582e-01_rb, &
+        & 0.47319e-01_rb,0.38590e-01_rb,0.29478e-01_rb,0.21575e-01_rb /)
+      kao(:, 3,11,12) = (/ &
+        & 0.86835e-01_rb,0.76905e-01_rb,0.69723e-01_rb,0.63816e-01_rb,0.57699e-01_rb, &
+        & 0.49745e-01_rb,0.41432e-01_rb,0.33605e-01_rb,0.25460e-01_rb /)
+      kao(:, 4,11,12) = (/ &
+        & 0.86430e-01_rb,0.77295e-01_rb,0.70629e-01_rb,0.65834e-01_rb,0.59545e-01_rb, &
+        & 0.52341e-01_rb,0.45178e-01_rb,0.38243e-01_rb,0.30364e-01_rb /)
+      kao(:, 5,11,12) = (/ &
+        & 0.85874e-01_rb,0.77597e-01_rb,0.72138e-01_rb,0.67497e-01_rb,0.61709e-01_rb, &
+        & 0.55855e-01_rb,0.49191e-01_rb,0.42789e-01_rb,0.33235e-01_rb /)
+      kao(:, 1,12,12) = (/ &
+        & 0.87248e-01_rb,0.76929e-01_rb,0.68689e-01_rb,0.62001e-01_rb,0.55189e-01_rb, &
+        & 0.46282e-01_rb,0.37018e-01_rb,0.26535e-01_rb,0.20617e-01_rb /)
+      kao(:, 2,12,12) = (/ &
+        & 0.86938e-01_rb,0.76894e-01_rb,0.69591e-01_rb,0.63473e-01_rb,0.56879e-01_rb, &
+        & 0.48866e-01_rb,0.39681e-01_rb,0.29869e-01_rb,0.23753e-01_rb /)
+      kao(:, 3,12,12) = (/ &
+        & 0.86505e-01_rb,0.76936e-01_rb,0.70473e-01_rb,0.65213e-01_rb,0.59161e-01_rb, &
+        & 0.51227e-01_rb,0.42751e-01_rb,0.34068e-01_rb,0.28028e-01_rb /)
+      kao(:, 4,12,12) = (/ &
+        & 0.86014e-01_rb,0.77389e-01_rb,0.71734e-01_rb,0.67391e-01_rb,0.61041e-01_rb, &
+        & 0.54172e-01_rb,0.46740e-01_rb,0.38524e-01_rb,0.33947e-01_rb /)
+      kao(:, 5,12,12) = (/ &
+        & 0.85424e-01_rb,0.77682e-01_rb,0.73622e-01_rb,0.69056e-01_rb,0.63676e-01_rb, &
+        & 0.57877e-01_rb,0.50578e-01_rb,0.43087e-01_rb,0.36933e-01_rb /)
+      kao(:, 1,13,12) = (/ &
+        & 0.85419e-01_rb,0.75627e-01_rb,0.68076e-01_rb,0.62306e-01_rb,0.55288e-01_rb, &
+        & 0.46939e-01_rb,0.37782e-01_rb,0.26869e-01_rb,0.20535e-01_rb /)
+      kao(:, 2,13,12) = (/ &
+        & 0.84985e-01_rb,0.75524e-01_rb,0.69213e-01_rb,0.63729e-01_rb,0.57271e-01_rb, &
+        & 0.49714e-01_rb,0.40473e-01_rb,0.30181e-01_rb,0.22959e-01_rb /)
+      kao(:, 3,13,12) = (/ &
+        & 0.84529e-01_rb,0.75748e-01_rb,0.70315e-01_rb,0.65749e-01_rb,0.59660e-01_rb, &
+        & 0.52260e-01_rb,0.43766e-01_rb,0.34359e-01_rb,0.28707e-01_rb /)
+      kao(:, 4,13,12) = (/ &
+        & 0.84038e-01_rb,0.76252e-01_rb,0.71947e-01_rb,0.67890e-01_rb,0.61874e-01_rb, &
+        & 0.55511e-01_rb,0.47935e-01_rb,0.38594e-01_rb,0.34330e-01_rb /)
+      kao(:, 5,13,12) = (/ &
+        & 0.83450e-01_rb,0.76542e-01_rb,0.73924e-01_rb,0.69752e-01_rb,0.64960e-01_rb, &
+        & 0.59356e-01_rb,0.51789e-01_rb,0.43079e-01_rb,0.38051e-01_rb /)
+      kao(:, 1, 1,13) = (/ &
+        & 0.68561e-01_rb,0.61393e-01_rb,0.55377e-01_rb,0.48367e-01_rb,0.42682e-01_rb, &
+        & 0.39908e-01_rb,0.45275e-01_rb,0.51909e-01_rb,0.58629e-01_rb /)
+      kao(:, 2, 1,13) = (/ &
+        & 0.68429e-01_rb,0.62258e-01_rb,0.56444e-01_rb,0.49529e-01_rb,0.45167e-01_rb, &
+        & 0.45643e-01_rb,0.53469e-01_rb,0.61626e-01_rb,0.69870e-01_rb /)
+      kao(:, 3, 1,13) = (/ &
+        & 0.68224e-01_rb,0.62810e-01_rb,0.57169e-01_rb,0.51186e-01_rb,0.48224e-01_rb, &
+        & 0.52899e-01_rb,0.62764e-01_rb,0.72521e-01_rb,0.82353e-01_rb /)
+      kao(:, 4, 1,13) = (/ &
+        & 0.67917e-01_rb,0.63314e-01_rb,0.58187e-01_rb,0.53334e-01_rb,0.52038e-01_rb, &
+        & 0.61434e-01_rb,0.73273e-01_rb,0.84850e-01_rb,0.96479e-01_rb /)
+      kao(:, 5, 1,13) = (/ &
+        & 0.67553e-01_rb,0.63903e-01_rb,0.59193e-01_rb,0.55737e-01_rb,0.58351e-01_rb, &
+        & 0.71682e-01_rb,0.85665e-01_rb,0.99285e-01_rb,0.11295e+00_rb /)
+      kao(:, 1, 2,13) = (/ &
+        & 0.77509e-01_rb,0.69079e-01_rb,0.62486e-01_rb,0.54626e-01_rb,0.48075e-01_rb, &
+        & 0.42537e-01_rb,0.44950e-01_rb,0.51477e-01_rb,0.58558e-01_rb /)
+      kao(:, 2, 2,13) = (/ &
+        & 0.77430e-01_rb,0.69950e-01_rb,0.63742e-01_rb,0.55764e-01_rb,0.50627e-01_rb, &
+        & 0.46853e-01_rb,0.52532e-01_rb,0.60374e-01_rb,0.68733e-01_rb /)
+      kao(:, 3, 2,13) = (/ &
+        & 0.77189e-01_rb,0.70882e-01_rb,0.64573e-01_rb,0.57536e-01_rb,0.53311e-01_rb, &
+        & 0.52406e-01_rb,0.61244e-01_rb,0.70634e-01_rb,0.80523e-01_rb /)
+      kao(:, 4, 2,13) = (/ &
+        & 0.76847e-01_rb,0.71588e-01_rb,0.65635e-01_rb,0.59928e-01_rb,0.56064e-01_rb, &
+        & 0.60283e-01_rb,0.71500e-01_rb,0.82577e-01_rb,0.94220e-01_rb /)
+      kao(:, 5, 2,13) = (/ &
+        & 0.76386e-01_rb,0.72289e-01_rb,0.66796e-01_rb,0.62420e-01_rb,0.60016e-01_rb, &
+        & 0.69350e-01_rb,0.82634e-01_rb,0.95798e-01_rb,0.10925e+00_rb /)
+      kao(:, 1, 3,13) = (/ &
+        & 0.86533e-01_rb,0.76872e-01_rb,0.69252e-01_rb,0.60999e-01_rb,0.53444e-01_rb, &
+        & 0.46117e-01_rb,0.43982e-01_rb,0.49772e-01_rb,0.56991e-01_rb /)
+      kao(:, 2, 3,13) = (/ &
+        & 0.86412e-01_rb,0.77388e-01_rb,0.71047e-01_rb,0.62031e-01_rb,0.55847e-01_rb, &
+        & 0.49560e-01_rb,0.50601e-01_rb,0.57831e-01_rb,0.66136e-01_rb /)
+      kao(:, 3, 3,13) = (/ &
+        & 0.86175e-01_rb,0.78253e-01_rb,0.72126e-01_rb,0.63678e-01_rb,0.58875e-01_rb, &
+        & 0.53556e-01_rb,0.58645e-01_rb,0.67397e-01_rb,0.77181e-01_rb /)
+      kao(:, 4, 3,13) = (/ &
+        & 0.85802e-01_rb,0.79483e-01_rb,0.72991e-01_rb,0.66186e-01_rb,0.61530e-01_rb, &
+        & 0.59229e-01_rb,0.68328e-01_rb,0.78749e-01_rb,0.90335e-01_rb /)
+      kao(:, 5, 3,13) = (/ &
+        & 0.85328e-01_rb,0.80671e-01_rb,0.74346e-01_rb,0.68871e-01_rb,0.64555e-01_rb, &
+        & 0.67267e-01_rb,0.79478e-01_rb,0.91684e-01_rb,0.10533e+00_rb /)
+      kao(:, 1, 4,13) = (/ &
+        & 0.95394e-01_rb,0.84557e-01_rb,0.75442e-01_rb,0.67038e-01_rb,0.59073e-01_rb, &
+        & 0.49886e-01_rb,0.44642e-01_rb,0.48508e-01_rb,0.55658e-01_rb /)
+      kao(:, 2, 4,13) = (/ &
+        & 0.95223e-01_rb,0.84873e-01_rb,0.77588e-01_rb,0.68316e-01_rb,0.60993e-01_rb, &
+        & 0.53907e-01_rb,0.49824e-01_rb,0.55820e-01_rb,0.64074e-01_rb /)
+      kao(:, 3, 4,13) = (/ &
+        & 0.94965e-01_rb,0.85575e-01_rb,0.79290e-01_rb,0.69694e-01_rb,0.64420e-01_rb, &
+        & 0.57295e-01_rb,0.56440e-01_rb,0.64306e-01_rb,0.73964e-01_rb /)
+      kao(:, 4, 4,13) = (/ &
+        & 0.94509e-01_rb,0.86370e-01_rb,0.80294e-01_rb,0.72257e-01_rb,0.67415e-01_rb, &
+        & 0.61388e-01_rb,0.65357e-01_rb,0.74991e-01_rb,0.86332e-01_rb /)
+      kao(:, 5, 4,13) = (/ &
+        & 0.94009e-01_rb,0.87806e-01_rb,0.81595e-01_rb,0.75171e-01_rb,0.70245e-01_rb, &
+        & 0.67536e-01_rb,0.76274e-01_rb,0.87845e-01_rb,0.10132e+00_rb /)
+      kao(:, 1, 5,13) = (/ &
+        & 0.10343e+00_rb,0.91525e-01_rb,0.80861e-01_rb,0.72378e-01_rb,0.64406e-01_rb, &
+        & 0.53983e-01_rb,0.47036e-01_rb,0.47125e-01_rb,0.54095e-01_rb /)
+      kao(:, 2, 5,13) = (/ &
+        & 0.10334e+00_rb,0.91907e-01_rb,0.82762e-01_rb,0.74349e-01_rb,0.66049e-01_rb, &
+        & 0.58213e-01_rb,0.51290e-01_rb,0.53990e-01_rb,0.61913e-01_rb /)
+      kao(:, 3, 5,13) = (/ &
+        & 0.10297e+00_rb,0.92357e-01_rb,0.85393e-01_rb,0.75564e-01_rb,0.69527e-01_rb, &
+        & 0.62165e-01_rb,0.56265e-01_rb,0.62011e-01_rb,0.71236e-01_rb /)
+      kao(:, 4, 5,13) = (/ &
+        & 0.10256e+00_rb,0.93114e-01_rb,0.87093e-01_rb,0.77935e-01_rb,0.73042e-01_rb, &
+        & 0.65986e-01_rb,0.63498e-01_rb,0.72109e-01_rb,0.83127e-01_rb /)
+      kao(:, 5, 5,13) = (/ &
+        & 0.10189e+00_rb,0.94299e-01_rb,0.88282e-01_rb,0.81218e-01_rb,0.76035e-01_rb, &
+        & 0.70876e-01_rb,0.73640e-01_rb,0.84406e-01_rb,0.97393e-01_rb /)
+      kao(:, 1, 6,13) = (/ &
+        & 0.11045e+00_rb,0.97454e-01_rb,0.85408e-01_rb,0.76244e-01_rb,0.68972e-01_rb, &
+        & 0.58251e-01_rb,0.49930e-01_rb,0.45374e-01_rb,0.51875e-01_rb /)
+      kao(:, 2, 6,13) = (/ &
+        & 0.11019e+00_rb,0.97819e-01_rb,0.87148e-01_rb,0.79069e-01_rb,0.71021e-01_rb, &
+        & 0.62071e-01_rb,0.54179e-01_rb,0.52124e-01_rb,0.59618e-01_rb /)
+      kao(:, 3, 6,13) = (/ &
+        & 0.10981e+00_rb,0.98088e-01_rb,0.89384e-01_rb,0.81156e-01_rb,0.73973e-01_rb, &
+        & 0.66762e-01_rb,0.58141e-01_rb,0.59499e-01_rb,0.68391e-01_rb /)
+      kao(:, 4, 6,13) = (/ &
+        & 0.10923e+00_rb,0.98741e-01_rb,0.91856e-01_rb,0.83093e-01_rb,0.78121e-01_rb, &
+        & 0.70717e-01_rb,0.63590e-01_rb,0.68985e-01_rb,0.79490e-01_rb /)
+      kao(:, 5, 6,13) = (/ &
+        & 0.10855e+00_rb,0.99728e-01_rb,0.93768e-01_rb,0.86485e-01_rb,0.81499e-01_rb, &
+        & 0.75384e-01_rb,0.71738e-01_rb,0.80634e-01_rb,0.92951e-01_rb /)
+      kao(:, 1, 7,13) = (/ &
+        & 0.11652e+00_rb,0.10245e+00_rb,0.89345e-01_rb,0.79831e-01_rb,0.71546e-01_rb, &
+        & 0.62110e-01_rb,0.52889e-01_rb,0.43937e-01_rb,0.49094e-01_rb /)
+      kao(:, 2, 7,13) = (/ &
+        & 0.11624e+00_rb,0.10291e+00_rb,0.90769e-01_rb,0.82143e-01_rb,0.74705e-01_rb, &
+        & 0.65752e-01_rb,0.57383e-01_rb,0.50125e-01_rb,0.56751e-01_rb /)
+      kao(:, 3, 7,13) = (/ &
+        & 0.11594e+00_rb,0.10317e+00_rb,0.92734e-01_rb,0.84722e-01_rb,0.77935e-01_rb, &
+        & 0.70772e-01_rb,0.61416e-01_rb,0.57153e-01_rb,0.65344e-01_rb /)
+      kao(:, 4, 7,13) = (/ &
+        & 0.11535e+00_rb,0.10356e+00_rb,0.95024e-01_rb,0.87242e-01_rb,0.82357e-01_rb, &
+        & 0.75212e-01_rb,0.65866e-01_rb,0.66110e-01_rb,0.76048e-01_rb /)
+      kao(:, 5, 7,13) = (/ &
+        & 0.11474e+00_rb,0.10447e+00_rb,0.97059e-01_rb,0.90869e-01_rb,0.86343e-01_rb, &
+        & 0.79806e-01_rb,0.72467e-01_rb,0.77014e-01_rb,0.88751e-01_rb /)
+      kao(:, 1, 8,13) = (/ &
+        & 0.12265e+00_rb,0.10756e+00_rb,0.93593e-01_rb,0.82964e-01_rb,0.73576e-01_rb, &
+        & 0.64374e-01_rb,0.55605e-01_rb,0.43559e-01_rb,0.46060e-01_rb /)
+      kao(:, 2, 8,13) = (/ &
+        & 0.12249e+00_rb,0.10812e+00_rb,0.94575e-01_rb,0.84973e-01_rb,0.76683e-01_rb, &
+        & 0.68823e-01_rb,0.60052e-01_rb,0.49117e-01_rb,0.53798e-01_rb /)
+      kao(:, 3, 8,13) = (/ &
+        & 0.12216e+00_rb,0.10834e+00_rb,0.96338e-01_rb,0.87360e-01_rb,0.80349e-01_rb, &
+        & 0.74206e-01_rb,0.64654e-01_rb,0.55074e-01_rb,0.62031e-01_rb /)
+      kao(:, 4, 8,13) = (/ &
+        & 0.12168e+00_rb,0.10860e+00_rb,0.98251e-01_rb,0.89888e-01_rb,0.85251e-01_rb, &
+        & 0.79126e-01_rb,0.69120e-01_rb,0.63252e-01_rb,0.72334e-01_rb /)
+      kao(:, 5, 8,13) = (/ &
+        & 0.12099e+00_rb,0.10931e+00_rb,0.10017e+00_rb,0.93685e-01_rb,0.90048e-01_rb, &
+        & 0.83711e-01_rb,0.75096e-01_rb,0.73779e-01_rb,0.84712e-01_rb /)
+      kao(:, 1, 9,13) = (/ &
+        & 0.12914e+00_rb,0.11313e+00_rb,0.98462e-01_rb,0.86441e-01_rb,0.75875e-01_rb, &
+        & 0.66332e-01_rb,0.57013e-01_rb,0.43839e-01_rb,0.42411e-01_rb /)
+      kao(:, 2, 9,13) = (/ &
+        & 0.12911e+00_rb,0.11365e+00_rb,0.99113e-01_rb,0.88386e-01_rb,0.78651e-01_rb, &
+        & 0.70676e-01_rb,0.61767e-01_rb,0.49076e-01_rb,0.50412e-01_rb /)
+      kao(:, 3, 9,13) = (/ &
+        & 0.12886e+00_rb,0.11401e+00_rb,0.10056e+00_rb,0.90400e-01_rb,0.82030e-01_rb, &
+        & 0.75969e-01_rb,0.67212e-01_rb,0.54346e-01_rb,0.58598e-01_rb /)
+      kao(:, 4, 9,13) = (/ &
+        & 0.12844e+00_rb,0.11410e+00_rb,0.10221e+00_rb,0.92662e-01_rb,0.86791e-01_rb, &
+        & 0.81685e-01_rb,0.71813e-01_rb,0.61251e-01_rb,0.68599e-01_rb /)
+      kao(:, 5, 9,13) = (/ &
+        & 0.12781e+00_rb,0.11455e+00_rb,0.10390e+00_rb,0.96184e-01_rb,0.92217e-01_rb, &
+        & 0.86557e-01_rb,0.77640e-01_rb,0.70636e-01_rb,0.80447e-01_rb /)
+      kao(:, 1,10,13) = (/ &
+        & 0.13661e+00_rb,0.11963e+00_rb,0.10401e+00_rb,0.90612e-01_rb,0.78552e-01_rb, &
+        & 0.68665e-01_rb,0.58042e-01_rb,0.44182e-01_rb,0.20623e-01_rb /)
+      kao(:, 2,10,13) = (/ &
+        & 0.13663e+00_rb,0.12000e+00_rb,0.10449e+00_rb,0.92427e-01_rb,0.81459e-01_rb, &
+        & 0.72606e-01_rb,0.62588e-01_rb,0.49634e-01_rb,0.27517e-01_rb /)
+      kao(:, 3,10,13) = (/ &
+        & 0.13648e+00_rb,0.12048e+00_rb,0.10572e+00_rb,0.94344e-01_rb,0.84635e-01_rb, &
+        & 0.77264e-01_rb,0.68466e-01_rb,0.54964e-01_rb,0.37460e-01_rb /)
+      kao(:, 4,10,13) = (/ &
+        & 0.13615e+00_rb,0.12055e+00_rb,0.10724e+00_rb,0.96538e-01_rb,0.88921e-01_rb, &
+        & 0.82919e-01_rb,0.73837e-01_rb,0.61121e-01_rb,0.51408e-01_rb /)
+      kao(:, 5,10,13) = (/ &
+        & 0.13560e+00_rb,0.12083e+00_rb,0.10867e+00_rb,0.99719e-01_rb,0.94157e-01_rb, &
+        & 0.88097e-01_rb,0.79982e-01_rb,0.69630e-01_rb,0.68524e-01_rb /)
+      kao(:, 1,11,13) = (/ &
+        & 0.14486e+00_rb,0.12685e+00_rb,0.11053e+00_rb,0.96215e-01_rb,0.83198e-01_rb, &
+        & 0.72790e-01_rb,0.60483e-01_rb,0.46368e-01_rb,0.23123e-01_rb /)
+      kao(:, 2,11,13) = (/ &
+        & 0.14497e+00_rb,0.12740e+00_rb,0.11115e+00_rb,0.98058e-01_rb,0.86138e-01_rb, &
+        & 0.76317e-01_rb,0.65283e-01_rb,0.52226e-01_rb,0.29160e-01_rb /)
+      kao(:, 3,11,13) = (/ &
+        & 0.14473e+00_rb,0.12775e+00_rb,0.11243e+00_rb,0.99891e-01_rb,0.89493e-01_rb, &
+        & 0.80996e-01_rb,0.71303e-01_rb,0.57950e-01_rb,0.32977e-01_rb /)
+      kao(:, 4,11,13) = (/ &
+        & 0.14430e+00_rb,0.12774e+00_rb,0.11386e+00_rb,0.10223e+00_rb,0.94098e-01_rb, &
+        & 0.86252e-01_rb,0.77087e-01_rb,0.64785e-01_rb,0.38714e-01_rb /)
+      kao(:, 5,11,13) = (/ &
+        & 0.14365e+00_rb,0.12806e+00_rb,0.11504e+00_rb,0.10578e+00_rb,0.98766e-01_rb, &
+        & 0.91283e-01_rb,0.84242e-01_rb,0.73581e-01_rb,0.47497e-01_rb /)
+      kao(:, 1,12,13) = (/ &
+        & 0.15269e+00_rb,0.13372e+00_rb,0.11691e+00_rb,0.10167e+00_rb,0.88459e-01_rb, &
+        & 0.76634e-01_rb,0.62620e-01_rb,0.48153e-01_rb,0.27858e-01_rb /)
+      kao(:, 2,12,13) = (/ &
+        & 0.15257e+00_rb,0.13415e+00_rb,0.11750e+00_rb,0.10380e+00_rb,0.91589e-01_rb, &
+        & 0.79898e-01_rb,0.67862e-01_rb,0.54271e-01_rb,0.35587e-01_rb /)
+      kao(:, 3,12,13) = (/ &
+        & 0.15233e+00_rb,0.13449e+00_rb,0.11899e+00_rb,0.10589e+00_rb,0.94966e-01_rb, &
+        & 0.84666e-01_rb,0.73653e-01_rb,0.60551e-01_rb,0.39809e-01_rb /)
+      kao(:, 4,12,13) = (/ &
+        & 0.15175e+00_rb,0.13439e+00_rb,0.12031e+00_rb,0.10854e+00_rb,0.99506e-01_rb, &
+        & 0.89389e-01_rb,0.79517e-01_rb,0.68401e-01_rb,0.45578e-01_rb /)
+      kao(:, 5,12,13) = (/ &
+        & 0.15105e+00_rb,0.13484e+00_rb,0.12149e+00_rb,0.11242e+00_rb,0.10353e+00_rb, &
+        & 0.94548e-01_rb,0.87485e-01_rb,0.77323e-01_rb,0.55990e-01_rb /)
+      kao(:, 1,13,13) = (/ &
+        & 0.15929e+00_rb,0.13953e+00_rb,0.12252e+00_rb,0.10682e+00_rb,0.93710e-01_rb, &
+        & 0.80318e-01_rb,0.64679e-01_rb,0.49483e-01_rb,0.31231e-01_rb /)
+      kao(:, 2,13,13) = (/ &
+        & 0.15914e+00_rb,0.14001e+00_rb,0.12322e+00_rb,0.10931e+00_rb,0.96798e-01_rb, &
+        & 0.83533e-01_rb,0.70039e-01_rb,0.55928e-01_rb,0.39440e-01_rb /)
+      kao(:, 3,13,13) = (/ &
+        & 0.15875e+00_rb,0.14019e+00_rb,0.12484e+00_rb,0.11161e+00_rb,0.10034e+00_rb, &
+        & 0.88309e-01_rb,0.75681e-01_rb,0.62757e-01_rb,0.43280e-01_rb /)
+      kao(:, 4,13,13) = (/ &
+        & 0.15815e+00_rb,0.14019e+00_rb,0.12619e+00_rb,0.11467e+00_rb,0.10492e+00_rb, &
+        & 0.92849e-01_rb,0.81796e-01_rb,0.71221e-01_rb,0.50343e-01_rb /)
+      kao(:, 5,13,13) = (/ &
+        & 0.15737e+00_rb,0.14077e+00_rb,0.12756e+00_rb,0.11888e+00_rb,0.10868e+00_rb, &
+        & 0.98192e-01_rb,0.90106e-01_rb,0.80417e-01_rb,0.60332e-01_rb /)
+      kao(:, 1, 1,14) = (/ &
+        & 0.83965e-01_rb,0.74725e-01_rb,0.67262e-01_rb,0.61439e-01_rb,0.63569e-01_rb, &
+        & 0.76568e-01_rb,0.91505e-01_rb,0.10604e+00_rb,0.12066e+00_rb /)
+      kao(:, 2, 1,14) = (/ &
+        & 0.84124e-01_rb,0.75639e-01_rb,0.69121e-01_rb,0.66761e-01_rb,0.75177e-01_rb, &
+        & 0.93190e-01_rb,0.11140e+00_rb,0.12912e+00_rb,0.14697e+00_rb /)
+      kao(:, 3, 1,14) = (/ &
+        & 0.84208e-01_rb,0.76821e-01_rb,0.71401e-01_rb,0.74638e-01_rb,0.90938e-01_rb, &
+        & 0.11330e+00_rb,0.13555e+00_rb,0.15732e+00_rb,0.17919e+00_rb /)
+      kao(:, 4, 1,14) = (/ &
+        & 0.84082e-01_rb,0.77722e-01_rb,0.74753e-01_rb,0.85505e-01_rb,0.11037e+00_rb, &
+        & 0.13754e+00_rb,0.16460e+00_rb,0.19114e+00_rb,0.21779e+00_rb /)
+      kao(:, 5, 1,14) = (/ &
+        & 0.83810e-01_rb,0.78431e-01_rb,0.79767e-01_rb,0.99722e-01_rb,0.13195e+00_rb, &
+        & 0.16448e+00_rb,0.19691e+00_rb,0.22867e+00_rb,0.26057e+00_rb /)
+      kao(:, 1, 2,14) = (/ &
+        & 0.98728e-01_rb,0.87584e-01_rb,0.78635e-01_rb,0.69559e-01_rb,0.65625e-01_rb, &
+        & 0.74022e-01_rb,0.88098e-01_rb,0.10177e+00_rb,0.11620e+00_rb /)
+      kao(:, 2, 2,14) = (/ &
+        & 0.98895e-01_rb,0.88195e-01_rb,0.80583e-01_rb,0.73010e-01_rb,0.73981e-01_rb, &
+        & 0.89007e-01_rb,0.10638e+00_rb,0.12319e+00_rb,0.14079e+00_rb /)
+      kao(:, 3, 2,14) = (/ &
+        & 0.98911e-01_rb,0.89265e-01_rb,0.82581e-01_rb,0.78421e-01_rb,0.87111e-01_rb, &
+        & 0.10783e+00_rb,0.12893e+00_rb,0.14951e+00_rb,0.17084e+00_rb /)
+      kao(:, 4, 2,14) = (/ &
+        & 0.98795e-01_rb,0.90737e-01_rb,0.84451e-01_rb,0.86623e-01_rb,0.10466e+00_rb, &
+        & 0.13034e+00_rb,0.15592e+00_rb,0.18094e+00_rb,0.20669e+00_rb /)
+      kao(:, 5, 2,14) = (/ &
+        & 0.98517e-01_rb,0.92027e-01_rb,0.87783e-01_rb,0.98306e-01_rb,0.12592e+00_rb, &
+        & 0.15706e+00_rb,0.18794e+00_rb,0.21816e+00_rb,0.24934e+00_rb /)
+      kao(:, 1, 3,14) = (/ &
+        & 0.11536e+00_rb,0.10204e+00_rb,0.91076e-01_rb,0.79879e-01_rb,0.70411e-01_rb, &
+        & 0.71590e-01_rb,0.83610e-01_rb,0.96241e-01_rb,0.11049e+00_rb /)
+      kao(:, 2, 3,14) = (/ &
+        & 0.11565e+00_rb,0.10277e+00_rb,0.93049e-01_rb,0.82303e-01_rb,0.75267e-01_rb, &
+        & 0.83499e-01_rb,0.99323e-01_rb,0.11472e+00_rb,0.13181e+00_rb /)
+      kao(:, 3, 3,14) = (/ &
+        & 0.11566e+00_rb,0.10353e+00_rb,0.95697e-01_rb,0.85227e-01_rb,0.84157e-01_rb, &
+        & 0.99917e-01_rb,0.11933e+00_rb,0.13815e+00_rb,0.15865e+00_rb /)
+      kao(:, 4, 3,14) = (/ &
+        & 0.11554e+00_rb,0.10447e+00_rb,0.97554e-01_rb,0.90504e-01_rb,0.97960e-01_rb, &
+        & 0.12029e+00_rb,0.14386e+00_rb,0.16671e+00_rb,0.19135e+00_rb /)
+      kao(:, 5, 3,14) = (/ &
+        & 0.11515e+00_rb,0.10586e+00_rb,0.99141e-01_rb,0.99110e-01_rb,0.11626e+00_rb, &
+        & 0.14432e+00_rb,0.17265e+00_rb,0.20040e+00_rb,0.22976e+00_rb /)
+      kao(:, 1, 4,14) = (/ &
+        & 0.13374e+00_rb,0.11777e+00_rb,0.10356e+00_rb,0.90948e-01_rb,0.79121e-01_rb, &
+        & 0.73845e-01_rb,0.80790e-01_rb,0.92777e-01_rb,0.10713e+00_rb /)
+      kao(:, 2, 4,14) = (/ &
+        & 0.13413e+00_rb,0.11892e+00_rb,0.10607e+00_rb,0.94460e-01_rb,0.81628e-01_rb, &
+        & 0.80960e-01_rb,0.93972e-01_rb,0.10817e+00_rb,0.12489e+00_rb /)
+      kao(:, 3, 4,14) = (/ &
+        & 0.13429e+00_rb,0.11957e+00_rb,0.10936e+00_rb,0.96737e-01_rb,0.86452e-01_rb, &
+        & 0.93977e-01_rb,0.11135e+00_rb,0.12854e+00_rb,0.14815e+00_rb /)
+      kao(:, 4, 4,14) = (/ &
+        & 0.13415e+00_rb,0.12054e+00_rb,0.11264e+00_rb,0.99496e-01_rb,0.96100e-01_rb, &
+        & 0.11145e+00_rb,0.13299e+00_rb,0.15385e+00_rb,0.17718e+00_rb /)
+      kao(:, 5, 4,14) = (/ &
+        & 0.13374e+00_rb,0.12142e+00_rb,0.11440e+00_rb,0.10500e+00_rb,0.11046e+00_rb, &
+        & 0.13295e+00_rb,0.15886e+00_rb,0.18424e+00_rb,0.21188e+00_rb /)
+      kao(:, 1, 5,14) = (/ &
+        & 0.15386e+00_rb,0.13491e+00_rb,0.11798e+00_rb,0.10225e+00_rb,0.89703e-01_rb, &
+        & 0.79220e-01_rb,0.79340e-01_rb,0.90595e-01_rb,0.10482e+00_rb /)
+      kao(:, 2, 5,14) = (/ &
+        & 0.15427e+00_rb,0.13635e+00_rb,0.12030e+00_rb,0.10668e+00_rb,0.92323e-01_rb, &
+        & 0.84157e-01_rb,0.91777e-01_rb,0.10537e+00_rb,0.12216e+00_rb /)
+      kao(:, 3, 5,14) = (/ &
+        & 0.15452e+00_rb,0.13729e+00_rb,0.12299e+00_rb,0.11079e+00_rb,0.94730e-01_rb, &
+        & 0.92840e-01_rb,0.10677e+00_rb,0.12287e+00_rb,0.14246e+00_rb /)
+      kao(:, 4, 5,14) = (/ &
+        & 0.15437e+00_rb,0.13801e+00_rb,0.12683e+00_rb,0.11313e+00_rb,0.10059e+00_rb, &
+        & 0.10648e+00_rb,0.12562e+00_rb,0.14488e+00_rb,0.16770e+00_rb /)
+      kao(:, 5, 5,14) = (/ &
+        & 0.15403e+00_rb,0.13896e+00_rb,0.13053e+00_rb,0.11647e+00_rb,0.11129e+00_rb, &
+        & 0.12495e+00_rb,0.14877e+00_rb,0.17193e+00_rb,0.19866e+00_rb /)
+      kao(:, 1, 6,14) = (/ &
+        & 0.17516e+00_rb,0.15332e+00_rb,0.13386e+00_rb,0.11461e+00_rb,0.98998e-01_rb, &
+        & 0.86199e-01_rb,0.78839e-01_rb,0.88239e-01_rb,0.10212e+00_rb /)
+      kao(:, 2, 6,14) = (/ &
+        & 0.17578e+00_rb,0.15465e+00_rb,0.13554e+00_rb,0.11810e+00_rb,0.10372e+00_rb, &
+        & 0.90966e-01_rb,0.90397e-01_rb,0.10318e+00_rb,0.11979e+00_rb /)
+      kao(:, 3, 6,14) = (/ &
+        & 0.17603e+00_rb,0.15606e+00_rb,0.13830e+00_rb,0.12297e+00_rb,0.10694e+00_rb, &
+        & 0.96886e-01_rb,0.10455e+00_rb,0.12004e+00_rb,0.13936e+00_rb /)
+      kao(:, 4, 6,14) = (/ &
+        & 0.17594e+00_rb,0.15671e+00_rb,0.14175e+00_rb,0.12765e+00_rb,0.11049e+00_rb, &
+        & 0.10701e+00_rb,0.12142e+00_rb,0.13971e+00_rb,0.16228e+00_rb /)
+      kao(:, 5, 6,14) = (/ &
+        & 0.17559e+00_rb,0.15762e+00_rb,0.14567e+00_rb,0.13124e+00_rb,0.11784e+00_rb, &
+        & 0.12121e+00_rb,0.14182e+00_rb,0.16360e+00_rb,0.18966e+00_rb /)
+      kao(:, 1, 7,14) = (/ &
+        & 0.19714e+00_rb,0.17254e+00_rb,0.15016e+00_rb,0.12718e+00_rb,0.10949e+00_rb, &
+        & 0.93814e-01_rb,0.79465e-01_rb,0.85103e-01_rb,0.98359e-01_rb /)
+      kao(:, 2, 7,14) = (/ &
+        & 0.19796e+00_rb,0.17362e+00_rb,0.15183e+00_rb,0.13102e+00_rb,0.11370e+00_rb, &
+        & 0.99479e-01_rb,0.90483e-01_rb,0.10125e+00_rb,0.11726e+00_rb /)
+      kao(:, 3, 7,14) = (/ &
+        & 0.19829e+00_rb,0.17522e+00_rb,0.15424e+00_rb,0.13545e+00_rb,0.11863e+00_rb, &
+        & 0.10457e+00_rb,0.10363e+00_rb,0.11810e+00_rb,0.13724e+00_rb /)
+      kao(:, 4, 7,14) = (/ &
+        & 0.19826e+00_rb,0.17625e+00_rb,0.15748e+00_rb,0.14049e+00_rb,0.12307e+00_rb, &
+        & 0.11254e+00_rb,0.11942e+00_rb,0.13698e+00_rb,0.15920e+00_rb /)
+      kao(:, 5, 7,14) = (/ &
+        & 0.19780e+00_rb,0.17685e+00_rb,0.16171e+00_rb,0.14510e+00_rb,0.12933e+00_rb, &
+        & 0.12368e+00_rb,0.13790e+00_rb,0.15875e+00_rb,0.18443e+00_rb /)
+      kao(:, 1, 8,14) = (/ &
+        & 0.21950e+00_rb,0.19210e+00_rb,0.16641e+00_rb,0.14074e+00_rb,0.12030e+00_rb, &
+        & 0.10245e+00_rb,0.82539e-01_rb,0.82181e-01_rb,0.95126e-01_rb /)
+      kao(:, 2, 8,14) = (/ &
+        & 0.22029e+00_rb,0.19287e+00_rb,0.16845e+00_rb,0.14392e+00_rb,0.12476e+00_rb, &
+        & 0.10750e+00_rb,0.92052e-01_rb,0.97622e-01_rb,0.11306e+00_rb /)
+      kao(:, 3, 8,14) = (/ &
+        & 0.22070e+00_rb,0.19423e+00_rb,0.17032e+00_rb,0.14847e+00_rb,0.12971e+00_rb, &
+        & 0.11297e+00_rb,0.10375e+00_rb,0.11522e+00_rb,0.13338e+00_rb /)
+      kao(:, 4, 8,14) = (/ &
+        & 0.22058e+00_rb,0.19569e+00_rb,0.17355e+00_rb,0.15354e+00_rb,0.13473e+00_rb, &
+        & 0.12044e+00_rb,0.11859e+00_rb,0.13469e+00_rb,0.15609e+00_rb /)
+      kao(:, 5, 8,14) = (/ &
+        & 0.22021e+00_rb,0.19640e+00_rb,0.17762e+00_rb,0.15857e+00_rb,0.14102e+00_rb, &
+        & 0.13035e+00_rb,0.13566e+00_rb,0.15573e+00_rb,0.18054e+00_rb /)
+      kao(:, 1, 9,14) = (/ &
+        & 0.24109e+00_rb,0.21099e+00_rb,0.18179e+00_rb,0.15454e+00_rb,0.13112e+00_rb, &
+        & 0.11092e+00_rb,0.89296e-01_rb,0.80506e-01_rb,0.93157e-01_rb /)
+      kao(:, 2, 9,14) = (/ &
+        & 0.24188e+00_rb,0.21170e+00_rb,0.18440e+00_rb,0.15693e+00_rb,0.13589e+00_rb, &
+        & 0.11596e+00_rb,0.96808e-01_rb,0.94330e-01_rb,0.10941e+00_rb /)
+      kao(:, 3, 9,14) = (/ &
+        & 0.24228e+00_rb,0.21270e+00_rb,0.18618e+00_rb,0.16137e+00_rb,0.14099e+00_rb, &
+        & 0.12182e+00_rb,0.10601e+00_rb,0.11139e+00_rb,0.12901e+00_rb /)
+      kao(:, 4, 9,14) = (/ &
+        & 0.24222e+00_rb,0.21416e+00_rb,0.18881e+00_rb,0.16653e+00_rb,0.14643e+00_rb, &
+        & 0.12886e+00_rb,0.11898e+00_rb,0.13037e+00_rb,0.15086e+00_rb /)
+      kao(:, 5, 9,14) = (/ &
+        & 0.24175e+00_rb,0.21527e+00_rb,0.19303e+00_rb,0.17188e+00_rb,0.15251e+00_rb, &
+        & 0.13886e+00_rb,0.13479e+00_rb,0.15182e+00_rb,0.17551e+00_rb /)
+      kao(:, 1,10,14) = (/ &
+        & 0.26096e+00_rb,0.22837e+00_rb,0.19625e+00_rb,0.16743e+00_rb,0.14218e+00_rb, &
+        & 0.11905e+00_rb,0.97365e-01_rb,0.81466e-01_rb,0.86743e-01_rb /)
+      kao(:, 2,10,14) = (/ &
+        & 0.26197e+00_rb,0.22928e+00_rb,0.19902e+00_rb,0.16970e+00_rb,0.14641e+00_rb, &
+        & 0.12483e+00_rb,0.10472e+00_rb,0.93843e-01_rb,0.10806e+00_rb /)
+      kao(:, 3,10,14) = (/ &
+        & 0.26221e+00_rb,0.22989e+00_rb,0.20102e+00_rb,0.17345e+00_rb,0.15221e+00_rb, &
+        & 0.13116e+00_rb,0.11273e+00_rb,0.10943e+00_rb,0.12658e+00_rb /)
+      kao(:, 4,10,14) = (/ &
+        & 0.26216e+00_rb,0.23120e+00_rb,0.20343e+00_rb,0.17903e+00_rb,0.15795e+00_rb, &
+        & 0.13876e+00_rb,0.12342e+00_rb,0.12756e+00_rb,0.14743e+00_rb /)
+      kao(:, 5,10,14) = (/ &
+        & 0.26155e+00_rb,0.23254e+00_rb,0.20744e+00_rb,0.18479e+00_rb,0.16453e+00_rb, &
+        & 0.14894e+00_rb,0.13716e+00_rb,0.14827e+00_rb,0.17117e+00_rb /)
+      kao(:, 1,11,14) = (/ &
+        & 0.28000e+00_rb,0.24504e+00_rb,0.21069e+00_rb,0.18024e+00_rb,0.15374e+00_rb, &
+        & 0.12937e+00_rb,0.10819e+00_rb,0.88668e-01_rb,0.55926e-01_rb /)
+      kao(:, 2,11,14) = (/ &
+        & 0.28047e+00_rb,0.24546e+00_rb,0.21318e+00_rb,0.18272e+00_rb,0.15865e+00_rb, &
+        & 0.13663e+00_rb,0.11594e+00_rb,0.10024e+00_rb,0.74129e-01_rb /)
+      kao(:, 3,11,14) = (/ &
+        & 0.28078e+00_rb,0.24627e+00_rb,0.21537e+00_rb,0.18699e+00_rb,0.16514e+00_rb, &
+        & 0.14391e+00_rb,0.12463e+00_rb,0.11566e+00_rb,0.10008e+00_rb /)
+      kao(:, 4,11,14) = (/ &
+        & 0.28041e+00_rb,0.24739e+00_rb,0.21799e+00_rb,0.19316e+00_rb,0.17153e+00_rb, &
+        & 0.15296e+00_rb,0.13573e+00_rb,0.13384e+00_rb,0.12903e+00_rb /)
+      kao(:, 5,11,14) = (/ &
+        & 0.27974e+00_rb,0.24878e+00_rb,0.22235e+00_rb,0.19924e+00_rb,0.17976e+00_rb, &
+        & 0.16447e+00_rb,0.14857e+00_rb,0.15437e+00_rb,0.16255e+00_rb /)
+      kao(:, 1,12,14) = (/ &
+        & 0.29848e+00_rb,0.26121e+00_rb,0.22470e+00_rb,0.19300e+00_rb,0.16476e+00_rb, &
+        & 0.13979e+00_rb,0.11858e+00_rb,0.95361e-01_rb,0.54706e-01_rb /)
+      kao(:, 2,12,14) = (/ &
+        & 0.29901e+00_rb,0.26167e+00_rb,0.22733e+00_rb,0.19555e+00_rb,0.17000e+00_rb, &
+        & 0.14834e+00_rb,0.12686e+00_rb,0.10640e+00_rb,0.56924e-01_rb /)
+      kao(:, 3,12,14) = (/ &
+        & 0.29886e+00_rb,0.26222e+00_rb,0.22932e+00_rb,0.20008e+00_rb,0.17736e+00_rb, &
+        & 0.15653e+00_rb,0.13669e+00_rb,0.12173e+00_rb,0.76097e-01_rb /)
+      kao(:, 4,12,14) = (/ &
+        & 0.29840e+00_rb,0.26333e+00_rb,0.23210e+00_rb,0.20641e+00_rb,0.18472e+00_rb, &
+        & 0.16716e+00_rb,0.14883e+00_rb,0.13980e+00_rb,0.10268e+00_rb /)
+      kao(:, 5,12,14) = (/ &
+        & 0.29738e+00_rb,0.26451e+00_rb,0.23656e+00_rb,0.21275e+00_rb,0.19460e+00_rb, &
+        & 0.18005e+00_rb,0.16102e+00_rb,0.16046e+00_rb,0.13219e+00_rb /)
+      kao(:, 1,13,14) = (/ &
+        & 0.31629e+00_rb,0.27681e+00_rb,0.23838e+00_rb,0.20550e+00_rb,0.17561e+00_rb, &
+        & 0.15005e+00_rb,0.12855e+00_rb,0.10141e+00_rb,0.58394e-01_rb /)
+      kao(:, 2,13,14) = (/ &
+        & 0.31664e+00_rb,0.27713e+00_rb,0.24100e+00_rb,0.20827e+00_rb,0.18155e+00_rb, &
+        & 0.15952e+00_rb,0.13765e+00_rb,0.11247e+00_rb,0.60995e-01_rb /)
+      kao(:, 3,13,14) = (/ &
+        & 0.31646e+00_rb,0.27774e+00_rb,0.24298e+00_rb,0.21292e+00_rb,0.18963e+00_rb, &
+        & 0.16861e+00_rb,0.14853e+00_rb,0.12785e+00_rb,0.75808e-01_rb /)
+      kao(:, 4,13,14) = (/ &
+        & 0.31577e+00_rb,0.27872e+00_rb,0.24590e+00_rb,0.21953e+00_rb,0.19753e+00_rb, &
+        & 0.18064e+00_rb,0.16179e+00_rb,0.14607e+00_rb,0.10217e+00_rb /)
+      kao(:, 5,13,14) = (/ &
+        & 0.31458e+00_rb,0.27978e+00_rb,0.25030e+00_rb,0.22598e+00_rb,0.20858e+00_rb, &
+        & 0.19488e+00_rb,0.17415e+00_rb,0.16696e+00_rb,0.13138e+00_rb /)
+      kao(:, 1, 1,15) = (/ &
+        & 0.94898e-01_rb,0.85055e-01_rb,0.10490e+00_rb,0.15201e+00_rb,0.20225e+00_rb, &
+        & 0.25227e+00_rb,0.30184e+00_rb,0.34935e+00_rb,0.39726e+00_rb /)
+      kao(:, 2, 1,15) = (/ &
+        & 0.95143e-01_rb,0.87211e-01_rb,0.12685e+00_rb,0.18956e+00_rb,0.25226e+00_rb, &
+        & 0.31465e+00_rb,0.37635e+00_rb,0.43547e+00_rb,0.49508e+00_rb /)
+      kao(:, 3, 1,15) = (/ &
+        & 0.95189e-01_rb,0.92182e-01_rb,0.15432e+00_rb,0.23093e+00_rb,0.30732e+00_rb, &
+        & 0.38333e+00_rb,0.45850e+00_rb,0.53039e+00_rb,0.60271e+00_rb /)
+      kao(:, 4, 1,15) = (/ &
+        & 0.95231e-01_rb,0.10069e+00_rb,0.18420e+00_rb,0.27567e+00_rb,0.36689e+00_rb, &
+        & 0.45778e+00_rb,0.54750e+00_rb,0.63309e+00_rb,0.71941e+00_rb /)
+      kao(:, 5, 1,15) = (/ &
+        & 0.95218e-01_rb,0.11224e+00_rb,0.21607e+00_rb,0.32340e+00_rb,0.43052e+00_rb, &
+        & 0.53710e+00_rb,0.64228e+00_rb,0.74267e+00_rb,0.84389e+00_rb /)
+      kao(:, 1, 2,15) = (/ &
+        & 0.11396e+00_rb,0.10141e+00_rb,0.10674e+00_rb,0.14459e+00_rb,0.19233e+00_rb, &
+        & 0.23999e+00_rb,0.28714e+00_rb,0.33260e+00_rb,0.38043e+00_rb /)
+      kao(:, 2, 2,15) = (/ &
+        & 0.11432e+00_rb,0.10261e+00_rb,0.12520e+00_rb,0.18276e+00_rb,0.24324e+00_rb, &
+        & 0.30342e+00_rb,0.36297e+00_rb,0.42016e+00_rb,0.48074e+00_rb /)
+      kao(:, 3, 2,15) = (/ &
+        & 0.11451e+00_rb,0.10490e+00_rb,0.15054e+00_rb,0.22514e+00_rb,0.29969e+00_rb, &
+        & 0.37388e+00_rb,0.44723e+00_rb,0.51774e+00_rb,0.59231e+00_rb /)
+      kao(:, 4, 2,15) = (/ &
+        & 0.11456e+00_rb,0.10971e+00_rb,0.18129e+00_rb,0.27136e+00_rb,0.36114e+00_rb, &
+        & 0.45069e+00_rb,0.53922e+00_rb,0.62384e+00_rb,0.71399e+00_rb /)
+      kao(:, 5, 2,15) = (/ &
+        & 0.11453e+00_rb,0.11800e+00_rb,0.21439e+00_rb,0.32093e+00_rb,0.42721e+00_rb, &
+        & 0.53302e+00_rb,0.63780e+00_rb,0.73784e+00_rb,0.84437e+00_rb /)
+      kao(:, 1, 3,15) = (/ &
+        & 0.13655e+00_rb,0.12054e+00_rb,0.11124e+00_rb,0.13153e+00_rb,0.17207e+00_rb, &
+        & 0.21470e+00_rb,0.25693e+00_rb,0.29779e+00_rb,0.34231e+00_rb /)
+      kao(:, 2, 3,15) = (/ &
+        & 0.13707e+00_rb,0.12216e+00_rb,0.12413e+00_rb,0.16670e+00_rb,0.22186e+00_rb, &
+        & 0.27683e+00_rb,0.33137e+00_rb,0.38384e+00_rb,0.44145e+00_rb /)
+      kao(:, 3, 3,15) = (/ &
+        & 0.13747e+00_rb,0.12319e+00_rb,0.14360e+00_rb,0.20888e+00_rb,0.27797e+00_rb, &
+        & 0.34687e+00_rb,0.41517e+00_rb,0.48101e+00_rb,0.55322e+00_rb /)
+      kao(:, 4, 3,15) = (/ &
+        & 0.13768e+00_rb,0.12546e+00_rb,0.17113e+00_rb,0.25534e+00_rb,0.33989e+00_rb, &
+        & 0.42417e+00_rb,0.50744e+00_rb,0.58796e+00_rb,0.67649e+00_rb /)
+      kao(:, 5, 3,15) = (/ &
+        & 0.13772e+00_rb,0.12983e+00_rb,0.20407e+00_rb,0.30559e+00_rb,0.40688e+00_rb, &
+        & 0.50779e+00_rb,0.60773e+00_rb,0.70383e+00_rb,0.80998e+00_rb /)
+      kao(:, 1, 4,15) = (/ &
+        & 0.16353e+00_rb,0.14321e+00_rb,0.12667e+00_rb,0.12562e+00_rb,0.14945e+00_rb, &
+        & 0.18589e+00_rb,0.22262e+00_rb,0.25813e+00_rb,0.29728e+00_rb /)
+      kao(:, 2, 4,15) = (/ &
+        & 0.16418e+00_rb,0.14525e+00_rb,0.13251e+00_rb,0.15131e+00_rb,0.19654e+00_rb, &
+        & 0.24525e+00_rb,0.29354e+00_rb,0.34060e+00_rb,0.39212e+00_rb /)
+      kao(:, 3, 4,15) = (/ &
+        & 0.16461e+00_rb,0.14670e+00_rb,0.14414e+00_rb,0.18897e+00_rb,0.25116e+00_rb, &
+        & 0.31348e+00_rb,0.37525e+00_rb,0.43507e+00_rb,0.50121e+00_rb /)
+      kao(:, 4, 4,15) = (/ &
+        & 0.16491e+00_rb,0.14777e+00_rb,0.16361e+00_rb,0.23441e+00_rb,0.31211e+00_rb, &
+        & 0.38952e+00_rb,0.46648e+00_rb,0.54097e+00_rb,0.62321e+00_rb /)
+      kao(:, 5, 4,15) = (/ &
+        & 0.16511e+00_rb,0.15008e+00_rb,0.19240e+00_rb,0.28461e+00_rb,0.37902e+00_rb, &
+        & 0.47310e+00_rb,0.56644e+00_rb,0.65651e+00_rb,0.75672e+00_rb /)
+      kao(:, 1, 5,15) = (/ &
+        & 0.19509e+00_rb,0.17082e+00_rb,0.14980e+00_rb,0.13204e+00_rb,0.13395e+00_rb, &
+        & 0.16269e+00_rb,0.19465e+00_rb,0.22562e+00_rb,0.26041e+00_rb /)
+      kao(:, 2, 5,15) = (/ &
+        & 0.19619e+00_rb,0.17214e+00_rb,0.15205e+00_rb,0.14710e+00_rb,0.17263e+00_rb, &
+        & 0.21401e+00_rb,0.25633e+00_rb,0.29729e+00_rb,0.34247e+00_rb /)
+      kao(:, 3, 5,15) = (/ &
+        & 0.19681e+00_rb,0.17444e+00_rb,0.15815e+00_rb,0.17421e+00_rb,0.22342e+00_rb, &
+        & 0.27889e+00_rb,0.33405e+00_rb,0.38778e+00_rb,0.44627e+00_rb /)
+      kao(:, 4, 5,15) = (/ &
+        & 0.19721e+00_rb,0.17581e+00_rb,0.16979e+00_rb,0.21414e+00_rb,0.28278e+00_rb, &
+        & 0.35302e+00_rb,0.42274e+00_rb,0.49080e+00_rb,0.56501e+00_rb /)
+      kao(:, 5, 5,15) = (/ &
+        & 0.19732e+00_rb,0.17699e+00_rb,0.18956e+00_rb,0.26168e+00_rb,0.34842e+00_rb, &
+        & 0.43503e+00_rb,0.52113e+00_rb,0.60494e+00_rb,0.69634e+00_rb /)
+      kao(:, 1, 6,15) = (/ &
+        & 0.23167e+00_rb,0.20281e+00_rb,0.17680e+00_rb,0.14997e+00_rb,0.13324e+00_rb, &
+        & 0.14585e+00_rb,0.17450e+00_rb,0.20194e+00_rb,0.23383e+00_rb /)
+      kao(:, 2, 6,15) = (/ &
+        & 0.23317e+00_rb,0.20416e+00_rb,0.17934e+00_rb,0.15819e+00_rb,0.15707e+00_rb, &
+        & 0.18679e+00_rb,0.22357e+00_rb,0.25924e+00_rb,0.29921e+00_rb /)
+      kao(:, 3, 6,15) = (/ &
+        & 0.23428e+00_rb,0.20631e+00_rb,0.18228e+00_rb,0.17432e+00_rb,0.19753e+00_rb, &
+        & 0.24343e+00_rb,0.29156e+00_rb,0.33836e+00_rb,0.38981e+00_rb /)
+      kao(:, 4, 6,15) = (/ &
+        & 0.23494e+00_rb,0.20857e+00_rb,0.18851e+00_rb,0.20211e+00_rb,0.25104e+00_rb, &
+        & 0.31278e+00_rb,0.37475e+00_rb,0.43549e+00_rb,0.50069e+00_rb /)
+      kao(:, 5, 6,15) = (/ &
+        & 0.23514e+00_rb,0.20988e+00_rb,0.20063e+00_rb,0.24116e+00_rb,0.31413e+00_rb, &
+        & 0.39227e+00_rb,0.47006e+00_rb,0.54611e+00_rb,0.62816e+00_rb /)
+      kao(:, 1, 7,15) = (/ &
+        & 0.27443e+00_rb,0.24019e+00_rb,0.20758e+00_rb,0.17610e+00_rb,0.14566e+00_rb, &
+        & 0.14000e+00_rb,0.16506e+00_rb,0.19019e+00_rb,0.22128e+00_rb /)
+      kao(:, 2, 7,15) = (/ &
+        & 0.27620e+00_rb,0.24179e+00_rb,0.21121e+00_rb,0.17965e+00_rb,0.15984e+00_rb, &
+        & 0.16864e+00_rb,0.20104e+00_rb,0.23213e+00_rb,0.26949e+00_rb /)
+      kao(:, 3, 7,15) = (/ &
+        & 0.27747e+00_rb,0.24292e+00_rb,0.21364e+00_rb,0.18907e+00_rb,0.18625e+00_rb, &
+        & 0.21432e+00_rb,0.25652e+00_rb,0.29760e+00_rb,0.34338e+00_rb /)
+      kao(:, 4, 7,15) = (/ &
+        & 0.27840e+00_rb,0.24591e+00_rb,0.21750e+00_rb,0.20704e+00_rb,0.22722e+00_rb, &
+        & 0.27512e+00_rb,0.32963e+00_rb,0.38304e+00_rb,0.44058e+00_rb /)
+      kao(:, 5, 7,15) = (/ &
+        & 0.27872e+00_rb,0.24790e+00_rb,0.22377e+00_rb,0.23568e+00_rb,0.28140e+00_rb, &
+        & 0.34919e+00_rb,0.41848e+00_rb,0.48672e+00_rb,0.55917e+00_rb /)
+      kao(:, 1, 8,15) = (/ &
+        & 0.32341e+00_rb,0.28305e+00_rb,0.24270e+00_rb,0.20626e+00_rb,0.16778e+00_rb, &
+        & 0.14644e+00_rb,0.16206e+00_rb,0.18656e+00_rb,0.21702e+00_rb /)
+      kao(:, 2, 8,15) = (/ &
+        & 0.32568e+00_rb,0.28506e+00_rb,0.24756e+00_rb,0.20963e+00_rb,0.17522e+00_rb, &
+        & 0.16516e+00_rb,0.19045e+00_rb,0.21956e+00_rb,0.25530e+00_rb /)
+      kao(:, 3, 8,15) = (/ &
+        & 0.32734e+00_rb,0.28654e+00_rb,0.25088e+00_rb,0.21479e+00_rb,0.19195e+00_rb, &
+        & 0.19819e+00_rb,0.23472e+00_rb,0.27107e+00_rb,0.31461e+00_rb /)
+      kao(:, 4, 8,15) = (/ &
+        & 0.32837e+00_rb,0.28793e+00_rb,0.25332e+00_rb,0.22544e+00_rb,0.22100e+00_rb, &
+        & 0.24722e+00_rb,0.29529e+00_rb,0.34210e+00_rb,0.39526e+00_rb /)
+      kao(:, 5, 8,15) = (/ &
+        & 0.32863e+00_rb,0.29096e+00_rb,0.25794e+00_rb,0.24543e+00_rb,0.26342e+00_rb, &
+        & 0.31218e+00_rb,0.37382e+00_rb,0.43401e+00_rb,0.50027e+00_rb /)
+      kao(:, 1, 9,15) = (/ &
+        & 0.37878e+00_rb,0.33149e+00_rb,0.28420e+00_rb,0.23973e+00_rb,0.19541e+00_rb, &
+        & 0.16103e+00_rb,0.16029e+00_rb,0.18365e+00_rb,0.21308e+00_rb /)
+      kao(:, 2, 9,15) = (/ &
+        & 0.38160e+00_rb,0.33397e+00_rb,0.28731e+00_rb,0.24432e+00_rb,0.19953e+00_rb, &
+        & 0.17386e+00_rb,0.18539e+00_rb,0.21378e+00_rb,0.24833e+00_rb /)
+      kao(:, 3, 9,15) = (/ &
+        & 0.38370e+00_rb,0.33584e+00_rb,0.29267e+00_rb,0.24777e+00_rb,0.20961e+00_rb, &
+        & 0.19622e+00_rb,0.22137e+00_rb,0.25542e+00_rb,0.29676e+00_rb /)
+      kao(:, 4, 9,15) = (/ &
+        & 0.38483e+00_rb,0.33686e+00_rb,0.29593e+00_rb,0.25505e+00_rb,0.22908e+00_rb, &
+        & 0.23318e+00_rb,0.27287e+00_rb,0.31549e+00_rb,0.36559e+00_rb /)
+      kao(:, 5, 9,15) = (/ &
+        & 0.38520e+00_rb,0.33870e+00_rb,0.29863e+00_rb,0.26759e+00_rb,0.26094e+00_rb, &
+        & 0.28563e+00_rb,0.34036e+00_rb,0.39396e+00_rb,0.45596e+00_rb /)
+      kao(:, 1,10,15) = (/ &
+        & 0.44139e+00_rb,0.38627e+00_rb,0.33114e+00_rb,0.27661e+00_rb,0.22671e+00_rb, &
+        & 0.18314e+00_rb,0.16439e+00_rb,0.18365e+00_rb,0.21302e+00_rb /)
+      kao(:, 2,10,15) = (/ &
+        & 0.44442e+00_rb,0.38894e+00_rb,0.33346e+00_rb,0.28317e+00_rb,0.23077e+00_rb, &
+        & 0.19173e+00_rb,0.18540e+00_rb,0.21159e+00_rb,0.24601e+00_rb /)
+      kao(:, 3,10,15) = (/ &
+        & 0.44688e+00_rb,0.39111e+00_rb,0.33884e+00_rb,0.28735e+00_rb,0.23759e+00_rb, &
+        & 0.20864e+00_rb,0.21693e+00_rb,0.24969e+00_rb,0.29058e+00_rb /)
+      kao(:, 4,10,15) = (/ &
+        & 0.44794e+00_rb,0.39207e+00_rb,0.34326e+00_rb,0.29193e+00_rb,0.25105e+00_rb, &
+        & 0.23562e+00_rb,0.26192e+00_rb,0.30247e+00_rb,0.35138e+00_rb /)
+      kao(:, 5,10,15) = (/ &
+        & 0.44820e+00_rb,0.39253e+00_rb,0.34576e+00_rb,0.30181e+00_rb,0.27401e+00_rb, &
+        & 0.27758e+00_rb,0.32230e+00_rb,0.37259e+00_rb,0.43225e+00_rb /)
+      kao(:, 1,11,15) = (/ &
+        & 0.51225e+00_rb,0.44827e+00_rb,0.38430e+00_rb,0.32096e+00_rb,0.26380e+00_rb, &
+        & 0.21204e+00_rb,0.18122e+00_rb,0.19575e+00_rb,0.22762e+00_rb /)
+      kao(:, 2,11,15) = (/ &
+        & 0.51551e+00_rb,0.45114e+00_rb,0.38677e+00_rb,0.32842e+00_rb,0.26803e+00_rb, &
+        & 0.22031e+00_rb,0.20295e+00_rb,0.22783e+00_rb,0.26563e+00_rb /)
+      kao(:, 3,11,15) = (/ &
+        & 0.51720e+00_rb,0.45265e+00_rb,0.39154e+00_rb,0.33278e+00_rb,0.27451e+00_rb, &
+        & 0.23732e+00_rb,0.23493e+00_rb,0.26904e+00_rb,0.31377e+00_rb /)
+      kao(:, 4,11,15) = (/ &
+        & 0.51766e+00_rb,0.45307e+00_rb,0.39664e+00_rb,0.33683e+00_rb,0.28805e+00_rb, &
+        & 0.26198e+00_rb,0.27963e+00_rb,0.32252e+00_rb,0.37505e+00_rb /)
+      kao(:, 5,11,15) = (/ &
+        & 0.51687e+00_rb,0.45253e+00_rb,0.39906e+00_rb,0.34713e+00_rb,0.30874e+00_rb, &
+        & 0.30122e+00_rb,0.34231e+00_rb,0.39543e+00_rb,0.45934e+00_rb /)
+      kao(:, 1,12,15) = (/ &
+        & 0.58922e+00_rb,0.51562e+00_rb,0.44203e+00_rb,0.36905e+00_rb,0.30406e+00_rb, &
+        & 0.24465e+00_rb,0.20183e+00_rb,0.21102e+00_rb,0.20343e+00_rb /)
+      kao(:, 2,12,15) = (/ &
+        & 0.59167e+00_rb,0.51780e+00_rb,0.44391e+00_rb,0.37709e+00_rb,0.30888e+00_rb, &
+        & 0.25236e+00_rb,0.22396e+00_rb,0.24700e+00_rb,0.27515e+00_rb /)
+      kao(:, 3,12,15) = (/ &
+        & 0.59289e+00_rb,0.51887e+00_rb,0.44833e+00_rb,0.38190e+00_rb,0.31478e+00_rb, &
+        & 0.26966e+00_rb,0.25708e+00_rb,0.29183e+00_rb,0.34036e+00_rb /)
+      kao(:, 4,12,15) = (/ &
+        & 0.59238e+00_rb,0.51846e+00_rb,0.45409e+00_rb,0.38554e+00_rb,0.32896e+00_rb, &
+        & 0.29236e+00_rb,0.30023e+00_rb,0.34558e+00_rb,0.40217e+00_rb /)
+      kao(:, 5,12,15) = (/ &
+        & 0.59040e+00_rb,0.51681e+00_rb,0.45607e+00_rb,0.39582e+00_rb,0.34740e+00_rb, &
+        & 0.32863e+00_rb,0.36471e+00_rb,0.42134e+00_rb,0.48947e+00_rb /)
+      kao(:, 1,13,15) = (/ &
+        & 0.67101e+00_rb,0.58718e+00_rb,0.50336e+00_rb,0.42031e+00_rb,0.34716e+00_rb, &
+        & 0.27980e+00_rb,0.22553e+00_rb,0.22887e+00_rb,0.21243e+00_rb /)
+      kao(:, 2,13,15) = (/ &
+        & 0.67268e+00_rb,0.58864e+00_rb,0.50464e+00_rb,0.42832e+00_rb,0.35207e+00_rb, &
+        & 0.28740e+00_rb,0.24801e+00_rb,0.26765e+00_rb,0.28879e+00_rb /)
+      kao(:, 3,13,15) = (/ &
+        & 0.67256e+00_rb,0.58859e+00_rb,0.50813e+00_rb,0.43372e+00_rb,0.35764e+00_rb, &
+        & 0.30459e+00_rb,0.28195e+00_rb,0.31558e+00_rb,0.36763e+00_rb /)
+      kao(:, 4,13,15) = (/ &
+        & 0.67050e+00_rb,0.58682e+00_rb,0.51379e+00_rb,0.43676e+00_rb,0.37243e+00_rb, &
+        & 0.32590e+00_rb,0.32370e+00_rb,0.37117e+00_rb,0.43203e+00_rb /)
+      kao(:, 5,13,15) = (/ &
+        & 0.66719e+00_rb,0.58400e+00_rb,0.51581e+00_rb,0.44632e+00_rb,0.38956e+00_rb, &
+        & 0.35928e+00_rb,0.38845e+00_rb,0.44876e+00_rb,0.52114e+00_rb /)
+      kao(:, 1, 1,16) = (/ &
+        & 0.10138e+00_rb,0.11271e+00_rb,0.22512e+00_rb,0.33705e+00_rb,0.44854e+00_rb, &
+        & 0.55854e+00_rb,0.66519e+00_rb,0.75942e+00_rb,0.85612e+00_rb /)
+      kao(:, 2, 1,16) = (/ &
+        & 0.10145e+00_rb,0.13913e+00_rb,0.27783e+00_rb,0.41606e+00_rb,0.55341e+00_rb, &
+        & 0.68935e+00_rb,0.82123e+00_rb,0.93793e+00_rb,0.10573e+01_rb /)
+      kao(:, 3, 1,16) = (/ &
+        & 0.10144e+00_rb,0.16758e+00_rb,0.33464e+00_rb,0.50118e+00_rb,0.66683e+00_rb, &
+        & 0.83041e+00_rb,0.98914e+00_rb,0.11301e+01_rb,0.12744e+01_rb /)
+      kao(:, 4, 1,16) = (/ &
+        & 0.10142e+00_rb,0.19759e+00_rb,0.39475e+00_rb,0.59125e+00_rb,0.78644e+00_rb, &
+        & 0.97913e+00_rb,0.11666e+01_rb,0.13327e+01_rb,0.15036e+01_rb /)
+      kao(:, 5, 1,16) = (/ &
+        & 0.10117e+00_rb,0.22893e+00_rb,0.45719e+00_rb,0.68491e+00_rb,0.91083e+00_rb, &
+        & 0.11348e+01_rb,0.13522e+01_rb,0.15448e+01_rb,0.17423e+01_rb /)
+      kao(:, 1, 2,16) = (/ &
+        & 0.12283e+00_rb,0.11939e+00_rb,0.23586e+00_rb,0.35344e+00_rb,0.46995e+00_rb, &
+        & 0.58562e+00_rb,0.69771e+00_rb,0.79719e+00_rb,0.91456e+00_rb /)
+      kao(:, 2, 2,16) = (/ &
+        & 0.12300e+00_rb,0.14726e+00_rb,0.29424e+00_rb,0.44061e+00_rb,0.58626e+00_rb, &
+        & 0.73031e+00_rb,0.87019e+00_rb,0.99468e+00_rb,0.11413e+01_rb /)
+      kao(:, 3, 2,16) = (/ &
+        & 0.12308e+00_rb,0.17880e+00_rb,0.35729e+00_rb,0.53471e+00_rb,0.71190e+00_rb, &
+        & 0.88678e+00_rb,0.10560e+01_rb,0.12083e+01_rb,0.13858e+01_rb /)
+      kao(:, 4, 2,16) = (/ &
+        & 0.12303e+00_rb,0.21231e+00_rb,0.42408e+00_rb,0.63552e+00_rb,0.84482e+00_rb, &
+        & 0.10530e+01_rb,0.12550e+01_rb,0.14355e+01_rb,0.16461e+01_rb /)
+      kao(:, 5, 2,16) = (/ &
+        & 0.12277e+00_rb,0.24738e+00_rb,0.49418e+00_rb,0.74021e+00_rb,0.98480e+00_rb, &
+        & 0.12263e+01_rb,0.14622e+01_rb,0.16712e+01_rb,0.19192e+01_rb /)
+      kao(:, 1, 3,16) = (/ &
+        & 0.14866e+00_rb,0.13122e+00_rb,0.23281e+00_rb,0.34894e+00_rb,0.46454e+00_rb, &
+        & 0.57840e+00_rb,0.68947e+00_rb,0.78868e+00_rb,0.91936e+00_rb /)
+      kao(:, 2, 3,16) = (/ &
+        & 0.14909e+00_rb,0.15020e+00_rb,0.29535e+00_rb,0.44246e+00_rb,0.58879e+00_rb, &
+        & 0.73298e+00_rb,0.87446e+00_rb,0.10004e+01_rb,0.11652e+01_rb /)
+      kao(:, 3, 3,16) = (/ &
+        & 0.14932e+00_rb,0.18193e+00_rb,0.36339e+00_rb,0.54464e+00_rb,0.72472e+00_rb, &
+        & 0.90302e+00_rb,0.10769e+01_rb,0.12326e+01_rb,0.14351e+01_rb /)
+      kao(:, 4, 3,16) = (/ &
+        & 0.14936e+00_rb,0.21850e+00_rb,0.43638e+00_rb,0.65369e+00_rb,0.87034e+00_rb, &
+        & 0.10842e+01_rb,0.12925e+01_rb,0.14807e+01_rb,0.17238e+01_rb /)
+      kao(:, 5, 3,16) = (/ &
+        & 0.14913e+00_rb,0.25689e+00_rb,0.51319e+00_rb,0.76884e+00_rb,0.10226e+01_rb, &
+        & 0.12750e+01_rb,0.15205e+01_rb,0.17418e+01_rb,0.20260e+01_rb /)
+      kao(:, 1, 4,16) = (/ &
+        & 0.17957e+00_rb,0.15775e+00_rb,0.22276e+00_rb,0.33390e+00_rb,0.44423e+00_rb, &
+        & 0.55367e+00_rb,0.66019e+00_rb,0.75611e+00_rb,0.88680e+00_rb /)
+      kao(:, 2, 4,16) = (/ &
+        & 0.18040e+00_rb,0.16246e+00_rb,0.28812e+00_rb,0.43146e+00_rb,0.57438e+00_rb, &
+        & 0.71573e+00_rb,0.85374e+00_rb,0.97839e+00_rb,0.11468e+01_rb /)
+      kao(:, 3, 4,16) = (/ &
+        & 0.18097e+00_rb,0.18562e+00_rb,0.36044e+00_rb,0.53994e+00_rb,0.71844e+00_rb, &
+        & 0.89550e+00_rb,0.10683e+01_rb,0.12247e+01_rb,0.14347e+01_rb /)
+      kao(:, 4, 4,16) = (/ &
+        & 0.18121e+00_rb,0.21975e+00_rb,0.43861e+00_rb,0.65714e+00_rb,0.87443e+00_rb, &
+        & 0.10900e+01_rb,0.13008e+01_rb,0.14906e+01_rb,0.17458e+01_rb /)
+      kao(:, 5, 4,16) = (/ &
+        & 0.18106e+00_rb,0.26092e+00_rb,0.52133e+00_rb,0.78101e+00_rb,0.10395e+01_rb, &
+        & 0.12958e+01_rb,0.15460e+01_rb,0.17735e+01_rb,0.20757e+01_rb /)
+      kao(:, 1, 5,16) = (/ &
+        & 0.21697e+00_rb,0.19036e+00_rb,0.21215e+00_rb,0.31312e+00_rb,0.41669e+00_rb, &
+        & 0.51939e+00_rb,0.61996e+00_rb,0.71133e+00_rb,0.83486e+00_rb /)
+      kao(:, 2, 5,16) = (/ &
+        & 0.21794e+00_rb,0.19137e+00_rb,0.27611e+00_rb,0.41368e+00_rb,0.55071e+00_rb, &
+        & 0.68646e+00_rb,0.81902e+00_rb,0.94006e+00_rb,0.11028e+01_rb /)
+      kao(:, 3, 5,16) = (/ &
+        & 0.21886e+00_rb,0.20114e+00_rb,0.35159e+00_rb,0.52668e+00_rb,0.70100e+00_rb, &
+        & 0.87403e+00_rb,0.10428e+01_rb,0.11973e+01_rb,0.14036e+01_rb /)
+      kao(:, 4, 5,16) = (/ &
+        & 0.21947e+00_rb,0.22776e+00_rb,0.43385e+00_rb,0.64994e+00_rb,0.86545e+00_rb, &
+        & 0.10790e+01_rb,0.12882e+01_rb,0.14795e+01_rb,0.17328e+01_rb /)
+      kao(:, 5, 5,16) = (/ &
+        & 0.21950e+00_rb,0.26410e+00_rb,0.52266e+00_rb,0.78311e+00_rb,0.10422e+01_rb, &
+        & 0.12993e+01_rb,0.15508e+01_rb,0.17813e+01_rb,0.20867e+01_rb /)
+      kao(:, 1, 6,16) = (/ &
+        & 0.26192e+00_rb,0.22964e+00_rb,0.21396e+00_rb,0.28442e+00_rb,0.37859e+00_rb, &
+        & 0.47209e+00_rb,0.56361e+00_rb,0.64772e+00_rb,0.75904e+00_rb /)
+      kao(:, 2, 6,16) = (/ &
+        & 0.26327e+00_rb,0.23094e+00_rb,0.26427e+00_rb,0.38535e+00_rb,0.51302e+00_rb, &
+        & 0.63961e+00_rb,0.76380e+00_rb,0.87816e+00_rb,0.10282e+01_rb /)
+      kao(:, 3, 6,16) = (/ &
+        & 0.26410e+00_rb,0.23177e+00_rb,0.33446e+00_rb,0.50065e+00_rb,0.66671e+00_rb, &
+        & 0.83097e+00_rb,0.99257e+00_rb,0.11416e+01_rb,0.13361e+01_rb /)
+      kao(:, 4, 6,16) = (/ &
+        & 0.26501e+00_rb,0.24670e+00_rb,0.42047e+00_rb,0.62999e+00_rb,0.83846e+00_rb, &
+        & 0.10456e+01_rb,0.12484e+01_rb,0.14350e+01_rb,0.16802e+01_rb /)
+      kao(:, 5, 6,16) = (/ &
+        & 0.26533e+00_rb,0.27595e+00_rb,0.51477e+00_rb,0.77155e+00_rb,0.10272e+01_rb, &
+        & 0.12802e+01_rb,0.15288e+01_rb,0.17573e+01_rb,0.20585e+01_rb /)
+      kao(:, 1, 7,16) = (/ &
+        & 0.31548e+00_rb,0.27644e+00_rb,0.23749e+00_rb,0.26350e+00_rb,0.33563e+00_rb, &
+        & 0.41860e+00_rb,0.50000e+00_rb,0.57557e+00_rb,0.67307e+00_rb /)
+      kao(:, 2, 7,16) = (/ &
+        & 0.31747e+00_rb,0.27830e+00_rb,0.26813e+00_rb,0.35238e+00_rb,0.46780e+00_rb, &
+        & 0.58337e+00_rb,0.69695e+00_rb,0.80281e+00_rb,0.93825e+00_rb /)
+      kao(:, 3, 7,16) = (/ &
+        & 0.31845e+00_rb,0.27929e+00_rb,0.32577e+00_rb,0.46831e+00_rb,0.62377e+00_rb, &
+        & 0.77768e+00_rb,0.92868e+00_rb,0.10691e+01_rb,0.12510e+01_rb /)
+      kao(:, 4, 7,16) = (/ &
+        & 0.31933e+00_rb,0.28093e+00_rb,0.40219e+00_rb,0.60218e+00_rb,0.80124e+00_rb, &
+        & 0.99953e+00_rb,0.11938e+01_rb,0.13738e+01_rb,0.16072e+01_rb /)
+      kao(:, 5, 7,16) = (/ &
+        & 0.31962e+00_rb,0.30041e+00_rb,0.50060e+00_rb,0.75020e+00_rb,0.99895e+00_rb, &
+        & 0.12457e+01_rb,0.14877e+01_rb,0.17119e+01_rb,0.20030e+01_rb /)
+      kao(:, 1, 8,16) = (/ &
+        & 0.37865e+00_rb,0.33167e+00_rb,0.28471e+00_rb,0.26304e+00_rb,0.29883e+00_rb, &
+        & 0.36478e+00_rb,0.43575e+00_rb,0.50177e+00_rb,0.58698e+00_rb /)
+      kao(:, 2, 8,16) = (/ &
+        & 0.38151e+00_rb,0.33434e+00_rb,0.29226e+00_rb,0.33286e+00_rb,0.42010e+00_rb, &
+        & 0.52397e+00_rb,0.62612e+00_rb,0.72153e+00_rb,0.84257e+00_rb /)
+      kao(:, 3, 8,16) = (/ &
+        & 0.38305e+00_rb,0.33575e+00_rb,0.33335e+00_rb,0.43312e+00_rb,0.57580e+00_rb, &
+        & 0.71815e+00_rb,0.85781e+00_rb,0.98826e+00_rb,0.11549e+01_rb /)
+      kao(:, 4, 8,16) = (/ &
+        & 0.38418e+00_rb,0.33683e+00_rb,0.39821e+00_rb,0.56836e+00_rb,0.75670e+00_rb, &
+        & 0.94382e+00_rb,0.11276e+01_rb,0.12990e+01_rb,0.15179e+01_rb /)
+      kao(:, 5, 8,16) = (/ &
+        & 0.38435e+00_rb,0.34032e+00_rb,0.48169e+00_rb,0.72105e+00_rb,0.95979e+00_rb, &
+        & 0.11976e+01_rb,0.14311e+01_rb,0.16484e+01_rb,0.19256e+01_rb /)
+      kao(:, 1, 9,16) = (/ &
+        & 0.45391e+00_rb,0.39745e+00_rb,0.34100e+00_rb,0.28597e+00_rb,0.28236e+00_rb, &
+        & 0.32683e+00_rb,0.39003e+00_rb,0.44780e+00_rb,0.52646e+00_rb /)
+      kao(:, 2, 9,16) = (/ &
+        & 0.45720e+00_rb,0.40042e+00_rb,0.34369e+00_rb,0.33249e+00_rb,0.37993e+00_rb, &
+        & 0.46180e+00_rb,0.55195e+00_rb,0.63669e+00_rb,0.74252e+00_rb /)
+      kao(:, 3, 9,16) = (/ &
+        & 0.45930e+00_rb,0.40241e+00_rb,0.35995e+00_rb,0.41477e+00_rb,0.52224e+00_rb, &
+        & 0.65162e+00_rb,0.77908e+00_rb,0.89846e+00_rb,0.10481e+01_rb /)
+      kao(:, 4, 9,16) = (/ &
+        & 0.46056e+00_rb,0.40360e+00_rb,0.40974e+00_rb,0.52851e+00_rb,0.70308e+00_rb, &
+        & 0.87703e+00_rb,0.10485e+01_rb,0.12091e+01_rb,0.14102e+01_rb /)
+      kao(:, 5, 9,16) = (/ &
+        & 0.46097e+00_rb,0.40408e+00_rb,0.48083e+00_rb,0.68278e+00_rb,0.90959e+00_rb, &
+        & 0.11347e+01_rb,0.13562e+01_rb,0.15644e+01_rb,0.18239e+01_rb /)
+      kao(:, 1,10,16) = (/ &
+        & 0.54348e+00_rb,0.47578e+00_rb,0.40808e+00_rb,0.34039e+00_rb,0.29202e+00_rb, &
+        & 0.31463e+00_rb,0.37530e+00_rb,0.43003e+00_rb,0.50713e+00_rb /)
+      kao(:, 2,10,16) = (/ &
+        & 0.54726e+00_rb,0.47923e+00_rb,0.41116e+00_rb,0.35738e+00_rb,0.36873e+00_rb, &
+        & 0.42815e+00_rb,0.51125e+00_rb,0.58827e+00_rb,0.68902e+00_rb /)
+      kao(:, 3,10,16) = (/ &
+        & 0.54904e+00_rb,0.48087e+00_rb,0.41270e+00_rb,0.42187e+00_rb,0.48592e+00_rb, &
+        & 0.59834e+00_rb,0.71541e+00_rb,0.82550e+00_rb,0.96166e+00_rb /)
+      kao(:, 4,10,16) = (/ &
+        & 0.55066e+00_rb,0.48237e+00_rb,0.44342e+00_rb,0.51829e+00_rb,0.65846e+00_rb, &
+        & 0.82163e+00_rb,0.98259e+00_rb,0.11344e+01_rb,0.13209e+01_rb /)
+      kao(:, 5,10,16) = (/ &
+        & 0.55078e+00_rb,0.48256e+00_rb,0.50243e+00_rb,0.65112e+00_rb,0.86662e+00_rb, &
+        & 0.10813e+01_rb,0.12932e+01_rb,0.14933e+01_rb,0.17377e+01_rb /)
+      kao(:, 1,11,16) = (/ &
+        & 0.65114e+00_rb,0.56997e+00_rb,0.48880e+00_rb,0.40765e+00_rb,0.34114e+00_rb, &
+        & 0.35299e+00_rb,0.42114e+00_rb,0.48311e+00_rb,0.56879e+00_rb /)
+      kao(:, 2,11,16) = (/ &
+        & 0.65409e+00_rb,0.57269e+00_rb,0.49126e+00_rb,0.41893e+00_rb,0.41551e+00_rb, &
+        & 0.46863e+00_rb,0.55986e+00_rb,0.64427e+00_rb,0.75415e+00_rb /)
+      kao(:, 3,11,16) = (/ &
+        & 0.65488e+00_rb,0.57345e+00_rb,0.49197e+00_rb,0.47947e+00_rb,0.53169e+00_rb, &
+        & 0.64034e+00_rb,0.76581e+00_rb,0.88450e+00_rb,0.10287e+01_rb /)
+      kao(:, 4,11,16) = (/ &
+        & 0.65537e+00_rb,0.57398e+00_rb,0.51344e+00_rb,0.57405e+00_rb,0.70306e+00_rb, &
+        & 0.87735e+00_rb,0.10495e+01_rb,0.12127e+01_rb,0.14094e+01_rb /)
+      kao(:, 5,11,16) = (/ &
+        & 0.65395e+00_rb,0.57279e+00_rb,0.56858e+00_rb,0.69997e+00_rb,0.92273e+00_rb, &
+        & 0.11516e+01_rb,0.13780e+01_rb,0.15930e+01_rb,0.18499e+01_rb /)
+      kao(:, 1,12,16) = (/ &
+        & 0.77619e+00_rb,0.67938e+00_rb,0.58258e+00_rb,0.48578e+00_rb,0.39872e+00_rb, &
+        & 0.39471e+00_rb,0.47009e+00_rb,0.53992e+00_rb,0.63430e+00_rb /)
+      kao(:, 2,12,16) = (/ &
+        & 0.77753e+00_rb,0.68052e+00_rb,0.58367e+00_rb,0.49090e+00_rb,0.46899e+00_rb, &
+        & 0.51194e+00_rb,0.61162e+00_rb,0.70447e+00_rb,0.82357e+00_rb /)
+      kao(:, 3,12,16) = (/ &
+        & 0.77638e+00_rb,0.67972e+00_rb,0.58318e+00_rb,0.54530e+00_rb,0.58387e+00_rb, &
+        & 0.68245e+00_rb,0.81638e+00_rb,0.94341e+00_rb,0.10965e+01_rb /)
+      kao(:, 4,12,16) = (/ &
+        & 0.77440e+00_rb,0.67810e+00_rb,0.59462e+00_rb,0.63695e+00_rb,0.74739e+00_rb, &
+        & 0.93197e+00_rb,0.11153e+01_rb,0.12903e+01_rb,0.14970e+01_rb /)
+      kao(:, 5,12,16) = (/ &
+        & 0.77021e+00_rb,0.67464e+00_rb,0.64357e+00_rb,0.75637e+00_rb,0.97798e+00_rb, &
+        & 0.12207e+01_rb,0.14609e+01_rb,0.16904e+01_rb,0.19598e+01_rb /)
+      kao(:, 1,13,16) = (/ &
+        & 0.91895e+00_rb,0.80429e+00_rb,0.68964e+00_rb,0.57498e+00_rb,0.46528e+00_rb, &
+        & 0.44199e+00_rb,0.52028e+00_rb,0.59834e+00_rb,0.70141e+00_rb /)
+      kao(:, 2,13,16) = (/ &
+        & 0.91759e+00_rb,0.80320e+00_rb,0.68881e+00_rb,0.57463e+00_rb,0.52956e+00_rb, &
+        & 0.55768e+00_rb,0.66492e+00_rb,0.76644e+00_rb,0.89471e+00_rb /)
+      kao(:, 3,13,16) = (/ &
+        & 0.91361e+00_rb,0.79979e+00_rb,0.68598e+00_rb,0.61940e+00_rb,0.64101e+00_rb, &
+        & 0.72712e+00_rb,0.86969e+00_rb,0.10053e+01_rb,0.11679e+01_rb /)
+      kao(:, 4,13,16) = (/ &
+        & 0.90733e+00_rb,0.79439e+00_rb,0.68655e+00_rb,0.70603e+00_rb,0.79560e+00_rb, &
+        & 0.98356e+00_rb,0.11773e+01_rb,0.13631e+01_rb,0.15788e+01_rb /)
+      kao(:, 5,13,16) = (/ &
+        & 0.89862e+00_rb,0.78697e+00_rb,0.72670e+00_rb,0.82187e+00_rb,0.10292e+01_rb, &
+        & 0.12848e+01_rb,0.15381e+01_rb,0.17818e+01_rb,0.20623e+01_rb /)
+  
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kbo(:,13, 1) = (/ &
+        & 0.80849e-06_rb,0.81362e-06_rb,0.81391e-06_rb,0.81832e-06_rb,0.81000e-06_rb /)
+      kbo(:,14, 1) = (/ &
+        & 0.62593e-06_rb,0.63090e-06_rb,0.63158e-06_rb,0.62821e-06_rb,0.62502e-06_rb /)
+      kbo(:,15, 1) = (/ &
+        & 0.47825e-06_rb,0.47852e-06_rb,0.47713e-06_rb,0.47688e-06_rb,0.47989e-06_rb /)
+      kbo(:,16, 1) = (/ &
+        & 0.36039e-06_rb,0.35905e-06_rb,0.36064e-06_rb,0.36298e-06_rb,0.36860e-06_rb /)
+      kbo(:,17, 1) = (/ &
+        & 0.27679e-06_rb,0.27608e-06_rb,0.27742e-06_rb,0.28112e-06_rb,0.28759e-06_rb /)
+      kbo(:,18, 1) = (/ &
+        & 0.21771e-06_rb,0.21826e-06_rb,0.22019e-06_rb,0.22429e-06_rb,0.22996e-06_rb /)
+      kbo(:,19, 1) = (/ &
+        & 0.17334e-06_rb,0.17441e-06_rb,0.17681e-06_rb,0.18055e-06_rb,0.18537e-06_rb /)
+      kbo(:,20, 1) = (/ &
+        & 0.13974e-06_rb,0.14076e-06_rb,0.14326e-06_rb,0.14694e-06_rb,0.15070e-06_rb /)
+      kbo(:,21, 1) = (/ &
+        & 0.11289e-06_rb,0.11394e-06_rb,0.11631e-06_rb,0.11963e-06_rb,0.12284e-06_rb /)
+      kbo(:,22, 1) = (/ &
+        & 0.90574e-07_rb,0.91914e-07_rb,0.94046e-07_rb,0.96998e-07_rb,0.99841e-07_rb /)
+      kbo(:,23, 1) = (/ &
+        & 0.72483e-07_rb,0.74069e-07_rb,0.76186e-07_rb,0.78482e-07_rb,0.80964e-07_rb /)
+      kbo(:,24, 1) = (/ &
+        & 0.57463e-07_rb,0.59130e-07_rb,0.60802e-07_rb,0.62903e-07_rb,0.65218e-07_rb /)
+      kbo(:,25, 1) = (/ &
+        & 0.45767e-07_rb,0.47184e-07_rb,0.48696e-07_rb,0.50494e-07_rb,0.52527e-07_rb /)
+      kbo(:,26, 1) = (/ &
+        & 0.36636e-07_rb,0.37794e-07_rb,0.39217e-07_rb,0.40768e-07_rb,0.42465e-07_rb /)
+      kbo(:,27, 1) = (/ &
+        & 0.29173e-07_rb,0.30183e-07_rb,0.31469e-07_rb,0.32834e-07_rb,0.34213e-07_rb /)
+      kbo(:,28, 1) = (/ &
+        & 0.23225e-07_rb,0.24137e-07_rb,0.25167e-07_rb,0.26378e-07_rb,0.27534e-07_rb /)
+      kbo(:,29, 1) = (/ &
+        & 0.18675e-07_rb,0.19472e-07_rb,0.20340e-07_rb,0.21340e-07_rb,0.22286e-07_rb /)
+      kbo(:,30, 1) = (/ &
+        & 0.15020e-07_rb,0.15690e-07_rb,0.16468e-07_rb,0.17258e-07_rb,0.18060e-07_rb /)
+      kbo(:,31, 1) = (/ &
+        & 0.12149e-07_rb,0.12728e-07_rb,0.13375e-07_rb,0.14035e-07_rb,0.14711e-07_rb /)
+      kbo(:,32, 1) = (/ &
+        & 0.98596e-08_rb,0.10344e-07_rb,0.10879e-07_rb,0.11427e-07_rb,0.12003e-07_rb /)
+      kbo(:,33, 1) = (/ &
+        & 0.80127e-08_rb,0.84199e-08_rb,0.88610e-08_rb,0.93188e-08_rb,0.98102e-08_rb /)
+      kbo(:,34, 1) = (/ &
+        & 0.65473e-08_rb,0.68850e-08_rb,0.72470e-08_rb,0.76379e-08_rb,0.80329e-08_rb /)
+      kbo(:,35, 1) = (/ &
+        & 0.53107e-08_rb,0.55930e-08_rb,0.58984e-08_rb,0.62161e-08_rb,0.65511e-08_rb /)
+      kbo(:,36, 1) = (/ &
+        & 0.42749e-08_rb,0.45072e-08_rb,0.47592e-08_rb,0.50244e-08_rb,0.53034e-08_rb /)
+      kbo(:,37, 1) = (/ &
+        & 0.34593e-08_rb,0.36479e-08_rb,0.38557e-08_rb,0.40714e-08_rb,0.43031e-08_rb /)
+      kbo(:,38, 1) = (/ &
+        & 0.27981e-08_rb,0.29525e-08_rb,0.31212e-08_rb,0.32984e-08_rb,0.34890e-08_rb /)
+      kbo(:,39, 1) = (/ &
+        & 0.22616e-08_rb,0.23879e-08_rb,0.25266e-08_rb,0.26716e-08_rb,0.28295e-08_rb /)
+      kbo(:,40, 1) = (/ &
+        & 0.18232e-08_rb,0.19245e-08_rb,0.20362e-08_rb,0.21554e-08_rb,0.22831e-08_rb /)
+      kbo(:,41, 1) = (/ &
+        & 0.14679e-08_rb,0.15511e-08_rb,0.16402e-08_rb,0.17376e-08_rb,0.18413e-08_rb /)
+      kbo(:,42, 1) = (/ &
+        & 0.11828e-08_rb,0.12488e-08_rb,0.13200e-08_rb,0.14008e-08_rb,0.14841e-08_rb /)
+      kbo(:,43, 1) = (/ &
+        & 0.94970e-09_rb,0.10028e-08_rb,0.10610e-08_rb,0.11254e-08_rb,0.11933e-08_rb /)
+      kbo(:,44, 1) = (/ &
+        & 0.76210e-09_rb,0.80401e-09_rb,0.85098e-09_rb,0.90203e-09_rb,0.95794e-09_rb /)
+      kbo(:,45, 1) = (/ &
+        & 0.61242e-09_rb,0.64471e-09_rb,0.68205e-09_rb,0.72336e-09_rb,0.76846e-09_rb /)
+      kbo(:,46, 1) = (/ &
+        & 0.49214e-09_rb,0.51642e-09_rb,0.54633e-09_rb,0.57916e-09_rb,0.61506e-09_rb /)
+      kbo(:,47, 1) = (/ &
+        & 0.39552e-09_rb,0.41343e-09_rb,0.43658e-09_rb,0.46266e-09_rb,0.49121e-09_rb /)
+      kbo(:,48, 1) = (/ &
+        & 0.31773e-09_rb,0.33161e-09_rb,0.34878e-09_rb,0.36970e-09_rb,0.39231e-09_rb /)
+      kbo(:,49, 1) = (/ &
+        & 0.25526e-09_rb,0.26613e-09_rb,0.27906e-09_rb,0.29510e-09_rb,0.31346e-09_rb /)
+      kbo(:,50, 1) = (/ &
+        & 0.20571e-09_rb,0.21419e-09_rb,0.22379e-09_rb,0.23622e-09_rb,0.25076e-09_rb /)
+      kbo(:,51, 1) = (/ &
+        & 0.16573e-09_rb,0.17251e-09_rb,0.18002e-09_rb,0.18925e-09_rb,0.20074e-09_rb /)
+      kbo(:,52, 1) = (/ &
+        & 0.13312e-09_rb,0.13888e-09_rb,0.14480e-09_rb,0.15170e-09_rb,0.16067e-09_rb /)
+      kbo(:,53, 1) = (/ &
+        & 0.10717e-09_rb,0.11200e-09_rb,0.11653e-09_rb,0.12187e-09_rb,0.12864e-09_rb /)
+      kbo(:,54, 1) = (/ &
+        & 0.85395e-10_rb,0.90190e-10_rb,0.93978e-10_rb,0.98115e-10_rb,0.10324e-09_rb /)
+      kbo(:,55, 1) = (/ &
+        & 0.67933e-10_rb,0.72682e-10_rb,0.75857e-10_rb,0.79079e-10_rb,0.82942e-10_rb /)
+      kbo(:,56, 1) = (/ &
+        & 0.53572e-10_rb,0.58095e-10_rb,0.61231e-10_rb,0.63738e-10_rb,0.66738e-10_rb /)
+      kbo(:,57, 1) = (/ &
+        & 0.41729e-10_rb,0.46380e-10_rb,0.49357e-10_rb,0.51409e-10_rb,0.53743e-10_rb /)
+      kbo(:,58, 1) = (/ &
+        & 0.32319e-10_rb,0.36737e-10_rb,0.39572e-10_rb,0.41487e-10_rb,0.43327e-10_rb /)
+      kbo(:,59, 1) = (/ &
+        & 0.25820e-10_rb,0.29541e-10_rb,0.32107e-10_rb,0.33762e-10_rb,0.35250e-10_rb /)
+      kbo(:,13, 2) = (/ &
+        & 0.93809e-05_rb,0.10536e-04_rb,0.11777e-04_rb,0.13098e-04_rb,0.14486e-04_rb /)
+      kbo(:,14, 2) = (/ &
+        & 0.77050e-05_rb,0.86520e-05_rb,0.96745e-05_rb,0.10759e-04_rb,0.11891e-04_rb /)
+      kbo(:,15, 2) = (/ &
+        & 0.63112e-05_rb,0.70914e-05_rb,0.79320e-05_rb,0.88179e-05_rb,0.97344e-05_rb /)
+      kbo(:,16, 2) = (/ &
+        & 0.51672e-05_rb,0.58172e-05_rb,0.64961e-05_rb,0.72133e-05_rb,0.79595e-05_rb /)
+      kbo(:,17, 2) = (/ &
+        & 0.42470e-05_rb,0.47817e-05_rb,0.53396e-05_rb,0.59229e-05_rb,0.65385e-05_rb /)
+      kbo(:,18, 2) = (/ &
+        & 0.35105e-05_rb,0.39513e-05_rb,0.44042e-05_rb,0.48865e-05_rb,0.53983e-05_rb /)
+      kbo(:,19, 2) = (/ &
+        & 0.29057e-05_rb,0.32680e-05_rb,0.36409e-05_rb,0.40419e-05_rb,0.44646e-05_rb /)
+      kbo(:,20, 2) = (/ &
+        & 0.24132e-05_rb,0.27111e-05_rb,0.30192e-05_rb,0.33498e-05_rb,0.36985e-05_rb /)
+      kbo(:,21, 2) = (/ &
+        & 0.20041e-05_rb,0.22484e-05_rb,0.25052e-05_rb,0.27770e-05_rb,0.30661e-05_rb /)
+      kbo(:,22, 2) = (/ &
+        & 0.16762e-05_rb,0.18775e-05_rb,0.20900e-05_rb,0.23158e-05_rb,0.25543e-05_rb /)
+      kbo(:,23, 2) = (/ &
+        & 0.14013e-05_rb,0.15665e-05_rb,0.17433e-05_rb,0.19308e-05_rb,0.21290e-05_rb /)
+      kbo(:,24, 2) = (/ &
+        & 0.11680e-05_rb,0.13039e-05_rb,0.14515e-05_rb,0.16085e-05_rb,0.17733e-05_rb /)
+      kbo(:,25, 2) = (/ &
+        & 0.97491e-06_rb,0.10886e-05_rb,0.12114e-05_rb,0.13428e-05_rb,0.14806e-05_rb /)
+      kbo(:,26, 2) = (/ &
+        & 0.81608e-06_rb,0.91198e-06_rb,0.10148e-05_rb,0.11244e-05_rb,0.12392e-05_rb /)
+      kbo(:,27, 2) = (/ &
+        & 0.68407e-06_rb,0.76432e-06_rb,0.85048e-06_rb,0.94210e-06_rb,0.10393e-05_rb /)
+      kbo(:,28, 2) = (/ &
+        & 0.57340e-06_rb,0.64071e-06_rb,0.71311e-06_rb,0.78988e-06_rb,0.87304e-06_rb /)
+      kbo(:,29, 2) = (/ &
+        & 0.48234e-06_rb,0.53886e-06_rb,0.59992e-06_rb,0.66557e-06_rb,0.73565e-06_rb /)
+      kbo(:,30, 2) = (/ &
+        & 0.40628e-06_rb,0.45384e-06_rb,0.50638e-06_rb,0.56175e-06_rb,0.62086e-06_rb /)
+      kbo(:,31, 2) = (/ &
+        & 0.34276e-06_rb,0.38409e-06_rb,0.42817e-06_rb,0.47551e-06_rb,0.52508e-06_rb /)
+      kbo(:,32, 2) = (/ &
+        & 0.29024e-06_rb,0.32548e-06_rb,0.36291e-06_rb,0.40263e-06_rb,0.44423e-06_rb /)
+      kbo(:,33, 2) = (/ &
+        & 0.24623e-06_rb,0.27596e-06_rb,0.30748e-06_rb,0.34104e-06_rb,0.37571e-06_rb /)
+      kbo(:,34, 2) = (/ &
+        & 0.20814e-06_rb,0.23318e-06_rb,0.25975e-06_rb,0.28746e-06_rb,0.31674e-06_rb /)
+      kbo(:,35, 2) = (/ &
+        & 0.17399e-06_rb,0.19476e-06_rb,0.21698e-06_rb,0.24021e-06_rb,0.26463e-06_rb /)
+      kbo(:,36, 2) = (/ &
+        & 0.14352e-06_rb,0.16079e-06_rb,0.17920e-06_rb,0.19838e-06_rb,0.21852e-06_rb /)
+      kbo(:,37, 2) = (/ &
+        & 0.11644e-06_rb,0.13061e-06_rb,0.14569e-06_rb,0.16148e-06_rb,0.17794e-06_rb /)
+      kbo(:,38, 2) = (/ &
+        & 0.94327e-07_rb,0.10597e-06_rb,0.11827e-06_rb,0.13121e-06_rb,0.14471e-06_rb /)
+      kbo(:,39, 2) = (/ &
+        & 0.76386e-07_rb,0.85932e-07_rb,0.96004e-07_rb,0.10675e-06_rb,0.11785e-06_rb /)
+      kbo(:,40, 2) = (/ &
+        & 0.61093e-07_rb,0.68856e-07_rb,0.77088e-07_rb,0.85831e-07_rb,0.94878e-07_rb /)
+      kbo(:,41, 2) = (/ &
+        & 0.48781e-07_rb,0.55058e-07_rb,0.61725e-07_rb,0.68852e-07_rb,0.76234e-07_rb /)
+      kbo(:,42, 2) = (/ &
+        & 0.38909e-07_rb,0.43987e-07_rb,0.49391e-07_rb,0.55161e-07_rb,0.61197e-07_rb /)
+      kbo(:,43, 2) = (/ &
+        & 0.30779e-07_rb,0.34866e-07_rb,0.39222e-07_rb,0.43870e-07_rb,0.48785e-07_rb /)
+      kbo(:,44, 2) = (/ &
+        & 0.24249e-07_rb,0.27514e-07_rb,0.31014e-07_rb,0.34774e-07_rb,0.38772e-07_rb /)
+      kbo(:,45, 2) = (/ &
+        & 0.19076e-07_rb,0.21693e-07_rb,0.24514e-07_rb,0.27522e-07_rb,0.30756e-07_rb /)
+      kbo(:,46, 2) = (/ &
+        & 0.14949e-07_rb,0.17046e-07_rb,0.19303e-07_rb,0.21721e-07_rb,0.24320e-07_rb /)
+      kbo(:,47, 2) = (/ &
+        & 0.11627e-07_rb,0.13294e-07_rb,0.15102e-07_rb,0.17040e-07_rb,0.19115e-07_rb /)
+      kbo(:,48, 2) = (/ &
+        & 0.90208e-08_rb,0.10359e-07_rb,0.11803e-07_rb,0.13349e-07_rb,0.15003e-07_rb /)
+      kbo(:,49, 2) = (/ &
+        & 0.69979e-08_rb,0.80625e-08_rb,0.92075e-08_rb,0.10445e-07_rb,0.11768e-07_rb /)
+      kbo(:,50, 2) = (/ &
+        & 0.54507e-08_rb,0.62777e-08_rb,0.72004e-08_rb,0.81899e-08_rb,0.92488e-08_rb /)
+      kbo(:,51, 2) = (/ &
+        & 0.42541e-08_rb,0.48933e-08_rb,0.56304e-08_rb,0.64214e-08_rb,0.72725e-08_rb /)
+      kbo(:,52, 2) = (/ &
+        & 0.33161e-08_rb,0.38121e-08_rb,0.43976e-08_rb,0.50301e-08_rb,0.57140e-08_rb /)
+      kbo(:,53, 2) = (/ &
+        & 0.25817e-08_rb,0.29691e-08_rb,0.34291e-08_rb,0.39368e-08_rb,0.44836e-08_rb /)
+      kbo(:,54, 2) = (/ &
+        & 0.20203e-08_rb,0.23228e-08_rb,0.26823e-08_rb,0.30900e-08_rb,0.35285e-08_rb /)
+      kbo(:,55, 2) = (/ &
+        & 0.15833e-08_rb,0.18196e-08_rb,0.21023e-08_rb,0.24276e-08_rb,0.27787e-08_rb /)
+      kbo(:,56, 2) = (/ &
+        & 0.12403e-08_rb,0.14250e-08_rb,0.16461e-08_rb,0.19045e-08_rb,0.21855e-08_rb /)
+      kbo(:,57, 2) = (/ &
+        & 0.97249e-09_rb,0.11164e-08_rb,0.12881e-08_rb,0.14923e-08_rb,0.17175e-08_rb /)
+      kbo(:,58, 2) = (/ &
+        & 0.76431e-09_rb,0.87699e-09_rb,0.10108e-08_rb,0.11709e-08_rb,0.13516e-08_rb /)
+      kbo(:,59, 2) = (/ &
+        & 0.61553e-09_rb,0.70649e-09_rb,0.81463e-09_rb,0.94315e-09_rb,0.10907e-08_rb /)
+      kbo(:,13, 3) = (/ &
+        & 0.37708e-04_rb,0.43942e-04_rb,0.50586e-04_rb,0.57656e-04_rb,0.65139e-04_rb /)
+      kbo(:,14, 3) = (/ &
+        & 0.31694e-04_rb,0.36862e-04_rb,0.42350e-04_rb,0.48197e-04_rb,0.54341e-04_rb /)
+      kbo(:,15, 3) = (/ &
+        & 0.26564e-04_rb,0.30824e-04_rb,0.35372e-04_rb,0.40180e-04_rb,0.45231e-04_rb /)
+      kbo(:,16, 3) = (/ &
+        & 0.22232e-04_rb,0.25740e-04_rb,0.29512e-04_rb,0.33447e-04_rb,0.37588e-04_rb /)
+      kbo(:,17, 3) = (/ &
+        & 0.18578e-04_rb,0.21467e-04_rb,0.24582e-04_rb,0.27832e-04_rb,0.31221e-04_rb /)
+      kbo(:,18, 3) = (/ &
+        & 0.15530e-04_rb,0.17922e-04_rb,0.20498e-04_rb,0.23170e-04_rb,0.25973e-04_rb /)
+      kbo(:,19, 3) = (/ &
+        & 0.12972e-04_rb,0.14952e-04_rb,0.17059e-04_rb,0.19270e-04_rb,0.21580e-04_rb /)
+      kbo(:,20, 3) = (/ &
+        & 0.10858e-04_rb,0.12498e-04_rb,0.14228e-04_rb,0.16061e-04_rb,0.17958e-04_rb /)
+      kbo(:,21, 3) = (/ &
+        & 0.90819e-05_rb,0.10446e-04_rb,0.11880e-04_rb,0.13394e-04_rb,0.14951e-04_rb /)
+      kbo(:,22, 3) = (/ &
+        & 0.76648e-05_rb,0.87979e-05_rb,0.99931e-05_rb,0.11255e-04_rb,0.12542e-04_rb /)
+      kbo(:,23, 3) = (/ &
+        & 0.64634e-05_rb,0.74140e-05_rb,0.84086e-05_rb,0.94546e-05_rb,0.10527e-04_rb /)
+      kbo(:,24, 3) = (/ &
+        & 0.54523e-05_rb,0.62464e-05_rb,0.70809e-05_rb,0.79508e-05_rb,0.88446e-05_rb /)
+      kbo(:,25, 3) = (/ &
+        & 0.46110e-05_rb,0.52716e-05_rb,0.59693e-05_rb,0.66904e-05_rb,0.74322e-05_rb /)
+      kbo(:,26, 3) = (/ &
+        & 0.39134e-05_rb,0.44620e-05_rb,0.50425e-05_rb,0.56439e-05_rb,0.62577e-05_rb /)
+      kbo(:,27, 3) = (/ &
+        & 0.33208e-05_rb,0.37777e-05_rb,0.42629e-05_rb,0.47607e-05_rb,0.52714e-05_rb /)
+      kbo(:,28, 3) = (/ &
+        & 0.28177e-05_rb,0.32008e-05_rb,0.36031e-05_rb,0.40187e-05_rb,0.44358e-05_rb /)
+      kbo(:,29, 3) = (/ &
+        & 0.23932e-05_rb,0.27158e-05_rb,0.30516e-05_rb,0.33945e-05_rb,0.37416e-05_rb /)
+      kbo(:,30, 3) = (/ &
+        & 0.20340e-05_rb,0.23035e-05_rb,0.25827e-05_rb,0.28672e-05_rb,0.31559e-05_rb /)
+      kbo(:,31, 3) = (/ &
+        & 0.17308e-05_rb,0.19547e-05_rb,0.21869e-05_rb,0.24243e-05_rb,0.26649e-05_rb /)
+      kbo(:,32, 3) = (/ &
+        & 0.14734e-05_rb,0.16593e-05_rb,0.18536e-05_rb,0.20518e-05_rb,0.22514e-05_rb /)
+      kbo(:,33, 3) = (/ &
+        & 0.12538e-05_rb,0.14097e-05_rb,0.15718e-05_rb,0.17369e-05_rb,0.19013e-05_rb /)
+      kbo(:,34, 3) = (/ &
+        & 0.10626e-05_rb,0.11932e-05_rb,0.13290e-05_rb,0.14662e-05_rb,0.16025e-05_rb /)
+      kbo(:,35, 3) = (/ &
+        & 0.88990e-06_rb,0.99878e-06_rb,0.11122e-05_rb,0.12266e-05_rb,0.13395e-05_rb /)
+      kbo(:,36, 3) = (/ &
+        & 0.73535e-06_rb,0.82690e-06_rb,0.92099e-06_rb,0.10159e-05_rb,0.11099e-05_rb /)
+      kbo(:,37, 3) = (/ &
+        & 0.59728e-06_rb,0.67301e-06_rb,0.75127e-06_rb,0.83021e-06_rb,0.90845e-06_rb /)
+      kbo(:,38, 3) = (/ &
+        & 0.48484e-06_rb,0.54737e-06_rb,0.61229e-06_rb,0.67762e-06_rb,0.74258e-06_rb /)
+      kbo(:,39, 3) = (/ &
+        & 0.39347e-06_rb,0.44485e-06_rb,0.49886e-06_rb,0.55290e-06_rb,0.60674e-06_rb /)
+      kbo(:,40, 3) = (/ &
+        & 0.31488e-06_rb,0.35703e-06_rb,0.40148e-06_rb,0.44640e-06_rb,0.49091e-06_rb /)
+      kbo(:,41, 3) = (/ &
+        & 0.25130e-06_rb,0.28561e-06_rb,0.32224e-06_rb,0.35953e-06_rb,0.39618e-06_rb /)
+      kbo(:,42, 3) = (/ &
+        & 0.20030e-06_rb,0.22840e-06_rb,0.25834e-06_rb,0.28930e-06_rb,0.31965e-06_rb /)
+      kbo(:,43, 3) = (/ &
+        & 0.15807e-06_rb,0.18109e-06_rb,0.20542e-06_rb,0.23094e-06_rb,0.25635e-06_rb /)
+      kbo(:,44, 3) = (/ &
+        & 0.12418e-06_rb,0.14282e-06_rb,0.16261e-06_rb,0.18364e-06_rb,0.20465e-06_rb /)
+      kbo(:,45, 3) = (/ &
+        & 0.97383e-07_rb,0.11245e-06_rb,0.12855e-06_rb,0.14572e-06_rb,0.16307e-06_rb /)
+      kbo(:,46, 3) = (/ &
+        & 0.76015e-07_rb,0.88067e-07_rb,0.10120e-06_rb,0.11510e-06_rb,0.12935e-06_rb /)
+      kbo(:,47, 3) = (/ &
+        & 0.58813e-07_rb,0.68493e-07_rb,0.79102e-07_rb,0.90273e-07_rb,0.10200e-06_rb /)
+      kbo(:,48, 3) = (/ &
+        & 0.45440e-07_rb,0.53144e-07_rb,0.61597e-07_rb,0.70639e-07_rb,0.80255e-07_rb /)
+      kbo(:,49, 3) = (/ &
+        & 0.35015e-07_rb,0.41136e-07_rb,0.47869e-07_rb,0.55216e-07_rb,0.62994e-07_rb /)
+      kbo(:,50, 3) = (/ &
+        & 0.27056e-07_rb,0.31910e-07_rb,0.37267e-07_rb,0.43210e-07_rb,0.49522e-07_rb /)
+      kbo(:,51, 3) = (/ &
+        & 0.20908e-07_rb,0.24756e-07_rb,0.29044e-07_rb,0.33791e-07_rb,0.38904e-07_rb /)
+      kbo(:,52, 3) = (/ &
+        & 0.16131e-07_rb,0.19181e-07_rb,0.22589e-07_rb,0.26378e-07_rb,0.30504e-07_rb /)
+      kbo(:,53, 3) = (/ &
+        & 0.12418e-07_rb,0.14835e-07_rb,0.17537e-07_rb,0.20547e-07_rb,0.23860e-07_rb /)
+      kbo(:,54, 3) = (/ &
+        & 0.95994e-08_rb,0.11514e-07_rb,0.13662e-07_rb,0.16065e-07_rb,0.18717e-07_rb /)
+      kbo(:,55, 3) = (/ &
+        & 0.74239e-08_rb,0.89453e-08_rb,0.10656e-07_rb,0.12569e-07_rb,0.14693e-07_rb /)
+      kbo(:,56, 3) = (/ &
+        & 0.57300e-08_rb,0.69441e-08_rb,0.83030e-08_rb,0.98193e-08_rb,0.11523e-07_rb /)
+      kbo(:,57, 3) = (/ &
+        & 0.44152e-08_rb,0.53811e-08_rb,0.64581e-08_rb,0.76610e-08_rb,0.90201e-08_rb /)
+      kbo(:,58, 3) = (/ &
+        & 0.34072e-08_rb,0.41708e-08_rb,0.50297e-08_rb,0.59876e-08_rb,0.70684e-08_rb /)
+      kbo(:,59, 3) = (/ &
+        & 0.27302e-08_rb,0.33492e-08_rb,0.40481e-08_rb,0.48266e-08_rb,0.57046e-08_rb /)
+      kbo(:,13, 4) = (/ &
+        & 0.12015e-03_rb,0.13920e-03_rb,0.15937e-03_rb,0.18001e-03_rb,0.19929e-03_rb /)
+      kbo(:,14, 4) = (/ &
+        & 0.10256e-03_rb,0.11883e-03_rb,0.13587e-03_rb,0.15259e-03_rb,0.16812e-03_rb /)
+      kbo(:,15, 4) = (/ &
+        & 0.87203e-04_rb,0.10099e-03_rb,0.11498e-03_rb,0.12847e-03_rb,0.14114e-03_rb /)
+      kbo(:,16, 4) = (/ &
+        & 0.73859e-04_rb,0.85304e-04_rb,0.96816e-04_rb,0.10774e-03_rb,0.11805e-03_rb /)
+      kbo(:,17, 4) = (/ &
+        & 0.62334e-04_rb,0.71786e-04_rb,0.81225e-04_rb,0.90091e-04_rb,0.98454e-04_rb /)
+      kbo(:,18, 4) = (/ &
+        & 0.52581e-04_rb,0.60344e-04_rb,0.68018e-04_rb,0.75237e-04_rb,0.81903e-04_rb /)
+      kbo(:,19, 4) = (/ &
+        & 0.44197e-04_rb,0.50573e-04_rb,0.56840e-04_rb,0.62656e-04_rb,0.67968e-04_rb /)
+      kbo(:,20, 4) = (/ &
+        & 0.37151e-04_rb,0.42384e-04_rb,0.47494e-04_rb,0.52193e-04_rb,0.56467e-04_rb /)
+      kbo(:,21, 4) = (/ &
+        & 0.31193e-04_rb,0.35480e-04_rb,0.39600e-04_rb,0.43427e-04_rb,0.46870e-04_rb /)
+      kbo(:,22, 4) = (/ &
+        & 0.26374e-04_rb,0.29925e-04_rb,0.33224e-04_rb,0.36261e-04_rb,0.39040e-04_rb /)
+      kbo(:,23, 4) = (/ &
+        & 0.22315e-04_rb,0.25198e-04_rb,0.27833e-04_rb,0.30290e-04_rb,0.32509e-04_rb /)
+      kbo(:,24, 4) = (/ &
+        & 0.18883e-04_rb,0.21184e-04_rb,0.23291e-04_rb,0.25268e-04_rb,0.27046e-04_rb /)
+      kbo(:,25, 4) = (/ &
+        & 0.15977e-04_rb,0.17808e-04_rb,0.19529e-04_rb,0.21106e-04_rb,0.22533e-04_rb /)
+      kbo(:,26, 4) = (/ &
+        & 0.13524e-04_rb,0.14996e-04_rb,0.16391e-04_rb,0.17658e-04_rb,0.18796e-04_rb /)
+      kbo(:,27, 4) = (/ &
+        & 0.11433e-04_rb,0.12631e-04_rb,0.13757e-04_rb,0.14769e-04_rb,0.15677e-04_rb /)
+      kbo(:,28, 4) = (/ &
+        & 0.96558e-05_rb,0.10640e-04_rb,0.11537e-04_rb,0.12357e-04_rb,0.13086e-04_rb /)
+      kbo(:,29, 4) = (/ &
+        & 0.81632e-05_rb,0.89560e-05_rb,0.96801e-05_rb,0.10339e-04_rb,0.10919e-04_rb /)
+      kbo(:,30, 4) = (/ &
+        & 0.68972e-05_rb,0.75321e-05_rb,0.81189e-05_rb,0.86418e-05_rb,0.91120e-05_rb /)
+      kbo(:,31, 4) = (/ &
+        & 0.58255e-05_rb,0.63427e-05_rb,0.68115e-05_rb,0.72291e-05_rb,0.76088e-05_rb /)
+      kbo(:,32, 4) = (/ &
+        & 0.49235e-05_rb,0.53404e-05_rb,0.57128e-05_rb,0.60450e-05_rb,0.63540e-05_rb /)
+      kbo(:,33, 4) = (/ &
+        & 0.41602e-05_rb,0.44904e-05_rb,0.47873e-05_rb,0.50567e-05_rb,0.53085e-05_rb /)
+      kbo(:,34, 4) = (/ &
+        & 0.34993e-05_rb,0.37640e-05_rb,0.40033e-05_rb,0.42217e-05_rb,0.44321e-05_rb /)
+      kbo(:,35, 4) = (/ &
+        & 0.29168e-05_rb,0.31331e-05_rb,0.33264e-05_rb,0.35072e-05_rb,0.36808e-05_rb /)
+      kbo(:,36, 4) = (/ &
+        & 0.24105e-05_rb,0.25863e-05_rb,0.27459e-05_rb,0.28969e-05_rb,0.30433e-05_rb /)
+      kbo(:,37, 4) = (/ &
+        & 0.19699e-05_rb,0.21167e-05_rb,0.22499e-05_rb,0.23751e-05_rb,0.24984e-05_rb /)
+      kbo(:,38, 4) = (/ &
+        & 0.16085e-05_rb,0.17316e-05_rb,0.18431e-05_rb,0.19482e-05_rb,0.20520e-05_rb /)
+      kbo(:,39, 4) = (/ &
+        & 0.13140e-05_rb,0.14172e-05_rb,0.15102e-05_rb,0.15989e-05_rb,0.16862e-05_rb /)
+      kbo(:,40, 4) = (/ &
+        & 0.10643e-05_rb,0.11518e-05_rb,0.12300e-05_rb,0.13052e-05_rb,0.13789e-05_rb /)
+      kbo(:,41, 4) = (/ &
+        & 0.86103e-06_rb,0.93494e-06_rb,0.10013e-05_rb,0.10648e-05_rb,0.11275e-05_rb /)
+      kbo(:,42, 4) = (/ &
+        & 0.69566e-06_rb,0.75803e-06_rb,0.81468e-06_rb,0.86817e-06_rb,0.92113e-06_rb /)
+      kbo(:,43, 4) = (/ &
+        & 0.55856e-06_rb,0.61135e-06_rb,0.65992e-06_rb,0.70501e-06_rb,0.74915e-06_rb /)
+      kbo(:,44, 4) = (/ &
+        & 0.44644e-06_rb,0.49113e-06_rb,0.53284e-06_rb,0.57066e-06_rb,0.60776e-06_rb /)
+      kbo(:,45, 4) = (/ &
+        & 0.35638e-06_rb,0.39386e-06_rb,0.42947e-06_rb,0.46192e-06_rb,0.49295e-06_rb /)
+      kbo(:,46, 4) = (/ &
+        & 0.28317e-06_rb,0.31490e-06_rb,0.34503e-06_rb,0.37276e-06_rb,0.39894e-06_rb /)
+      kbo(:,47, 4) = (/ &
+        & 0.22341e-06_rb,0.25002e-06_rb,0.27560e-06_rb,0.29957e-06_rb,0.32144e-06_rb /)
+      kbo(:,48, 4) = (/ &
+        & 0.17554e-06_rb,0.19798e-06_rb,0.21962e-06_rb,0.24010e-06_rb,0.25876e-06_rb /)
+      kbo(:,49, 4) = (/ &
+        & 0.13737e-06_rb,0.15642e-06_rb,0.17451e-06_rb,0.19192e-06_rb,0.20795e-06_rb /)
+      kbo(:,50, 4) = (/ &
+        & 0.10754e-06_rb,0.12357e-06_rb,0.13879e-06_rb,0.15343e-06_rb,0.16712e-06_rb /)
+      kbo(:,51, 4) = (/ &
+        & 0.84121e-07_rb,0.97441e-07_rb,0.11018e-06_rb,0.12256e-06_rb,0.13419e-06_rb /)
+      kbo(:,52, 4) = (/ &
+        & 0.65604e-07_rb,0.76564e-07_rb,0.87356e-07_rb,0.97703e-07_rb,0.10745e-06_rb /)
+      kbo(:,53, 4) = (/ &
+        & 0.50943e-07_rb,0.59988e-07_rb,0.69048e-07_rb,0.77629e-07_rb,0.85933e-07_rb /)
+      kbo(:,54, 4) = (/ &
+        & 0.39679e-07_rb,0.47121e-07_rb,0.54614e-07_rb,0.61766e-07_rb,0.68783e-07_rb /)
+      kbo(:,55, 4) = (/ &
+        & 0.30934e-07_rb,0.36980e-07_rb,0.43113e-07_rb,0.49142e-07_rb,0.55005e-07_rb /)
+      kbo(:,56, 4) = (/ &
+        & 0.24050e-07_rb,0.28923e-07_rb,0.33993e-07_rb,0.39047e-07_rb,0.43928e-07_rb /)
+      kbo(:,57, 4) = (/ &
+        & 0.18660e-07_rb,0.22557e-07_rb,0.26748e-07_rb,0.30951e-07_rb,0.35000e-07_rb /)
+      kbo(:,58, 4) = (/ &
+        & 0.14488e-07_rb,0.17625e-07_rb,0.21043e-07_rb,0.24511e-07_rb,0.27884e-07_rb /)
+      kbo(:,59, 4) = (/ &
+        & 0.11674e-07_rb,0.14234e-07_rb,0.17044e-07_rb,0.19902e-07_rb,0.22702e-07_rb /)
+      kbo(:,13, 5) = (/ &
+        & 0.36288e-03_rb,0.38577e-03_rb,0.40824e-03_rb,0.43207e-03_rb,0.45772e-03_rb /)
+      kbo(:,14, 5) = (/ &
+        & 0.30781e-03_rb,0.32754e-03_rb,0.34745e-03_rb,0.36873e-03_rb,0.39050e-03_rb /)
+      kbo(:,15, 5) = (/ &
+        & 0.26023e-03_rb,0.27734e-03_rb,0.29481e-03_rb,0.31288e-03_rb,0.33087e-03_rb /)
+      kbo(:,16, 5) = (/ &
+        & 0.21963e-03_rb,0.23414e-03_rb,0.24882e-03_rb,0.26383e-03_rb,0.27866e-03_rb /)
+      kbo(:,17, 5) = (/ &
+        & 0.18486e-03_rb,0.19716e-03_rb,0.20932e-03_rb,0.22139e-03_rb,0.23350e-03_rb /)
+      kbo(:,18, 5) = (/ &
+        & 0.15516e-03_rb,0.16534e-03_rb,0.17526e-03_rb,0.18520e-03_rb,0.19528e-03_rb /)
+      kbo(:,19, 5) = (/ &
+        & 0.12986e-03_rb,0.13820e-03_rb,0.14634e-03_rb,0.15465e-03_rb,0.16304e-03_rb /)
+      kbo(:,20, 5) = (/ &
+        & 0.10854e-03_rb,0.11542e-03_rb,0.12213e-03_rb,0.12898e-03_rb,0.13583e-03_rb /)
+      kbo(:,21, 5) = (/ &
+        & 0.90628e-04_rb,0.96255e-04_rb,0.10177e-03_rb,0.10738e-03_rb,0.11299e-03_rb /)
+      kbo(:,22, 5) = (/ &
+        & 0.75891e-04_rb,0.80410e-04_rb,0.85018e-04_rb,0.89561e-04_rb,0.94064e-04_rb /)
+      kbo(:,23, 5) = (/ &
+        & 0.63476e-04_rb,0.67177e-04_rb,0.70959e-04_rb,0.74590e-04_rb,0.78334e-04_rb /)
+      kbo(:,24, 5) = (/ &
+        & 0.52999e-04_rb,0.56057e-04_rb,0.59157e-04_rb,0.62167e-04_rb,0.65272e-04_rb /)
+      kbo(:,25, 5) = (/ &
+        & 0.44256e-04_rb,0.46783e-04_rb,0.49281e-04_rb,0.51789e-04_rb,0.54376e-04_rb /)
+      kbo(:,26, 5) = (/ &
+        & 0.37011e-04_rb,0.39100e-04_rb,0.41098e-04_rb,0.43198e-04_rb,0.45322e-04_rb /)
+      kbo(:,27, 5) = (/ &
+        & 0.30966e-04_rb,0.32635e-04_rb,0.34289e-04_rb,0.36026e-04_rb,0.37776e-04_rb /)
+      kbo(:,28, 5) = (/ &
+        & 0.25866e-04_rb,0.27210e-04_rb,0.28616e-04_rb,0.30009e-04_rb,0.31487e-04_rb /)
+      kbo(:,29, 5) = (/ &
+        & 0.21609e-04_rb,0.22715e-04_rb,0.23863e-04_rb,0.25052e-04_rb,0.26299e-04_rb /)
+      kbo(:,30, 5) = (/ &
+        & 0.18055e-04_rb,0.18981e-04_rb,0.19946e-04_rb,0.20948e-04_rb,0.21978e-04_rb /)
+      kbo(:,31, 5) = (/ &
+        & 0.15103e-04_rb,0.15890e-04_rb,0.16699e-04_rb,0.17556e-04_rb,0.18410e-04_rb /)
+      kbo(:,32, 5) = (/ &
+        & 0.12647e-04_rb,0.13313e-04_rb,0.14001e-04_rb,0.14715e-04_rb,0.15427e-04_rb /)
+      kbo(:,33, 5) = (/ &
+        & 0.10601e-04_rb,0.11164e-04_rb,0.11755e-04_rb,0.12351e-04_rb,0.12931e-04_rb /)
+      kbo(:,34, 5) = (/ &
+        & 0.88699e-05_rb,0.93482e-05_rb,0.98481e-05_rb,0.10351e-04_rb,0.10829e-04_rb /)
+      kbo(:,35, 5) = (/ &
+        & 0.73864e-05_rb,0.77932e-05_rb,0.82148e-05_rb,0.86289e-05_rb,0.90270e-05_rb /)
+      kbo(:,36, 5) = (/ &
+        & 0.61189e-05_rb,0.64631e-05_rb,0.68137e-05_rb,0.71535e-05_rb,0.74761e-05_rb /)
+      kbo(:,37, 5) = (/ &
+        & 0.50349e-05_rb,0.53216e-05_rb,0.56110e-05_rb,0.58984e-05_rb,0.61738e-05_rb /)
+      kbo(:,38, 5) = (/ &
+        & 0.41408e-05_rb,0.43804e-05_rb,0.46209e-05_rb,0.48585e-05_rb,0.50962e-05_rb /)
+      kbo(:,39, 5) = (/ &
+        & 0.34100e-05_rb,0.36097e-05_rb,0.38105e-05_rb,0.40114e-05_rb,0.42081e-05_rb /)
+      kbo(:,40, 5) = (/ &
+        & 0.27924e-05_rb,0.29567e-05_rb,0.31274e-05_rb,0.32925e-05_rb,0.34580e-05_rb /)
+      kbo(:,41, 5) = (/ &
+        & 0.22821e-05_rb,0.24196e-05_rb,0.25613e-05_rb,0.27009e-05_rb,0.28413e-05_rb /)
+      kbo(:,42, 5) = (/ &
+        & 0.18665e-05_rb,0.19799e-05_rb,0.20975e-05_rb,0.22150e-05_rb,0.23326e-05_rb /)
+      kbo(:,43, 5) = (/ &
+        & 0.15195e-05_rb,0.16130e-05_rb,0.17109e-05_rb,0.18095e-05_rb,0.19094e-05_rb /)
+      kbo(:,44, 5) = (/ &
+        & 0.12351e-05_rb,0.13129e-05_rb,0.13926e-05_rb,0.14756e-05_rb,0.15593e-05_rb /)
+      kbo(:,45, 5) = (/ &
+        & 0.10023e-05_rb,0.10671e-05_rb,0.11334e-05_rb,0.12033e-05_rb,0.12728e-05_rb /)
+      kbo(:,46, 5) = (/ &
+        & 0.81269e-06_rb,0.86595e-06_rb,0.92094e-06_rb,0.97875e-06_rb,0.10378e-05_rb /)
+      kbo(:,47, 5) = (/ &
+        & 0.65647e-06_rb,0.70081e-06_rb,0.74604e-06_rb,0.79395e-06_rb,0.84339e-06_rb /)
+      kbo(:,48, 5) = (/ &
+        & 0.53019e-06_rb,0.56638e-06_rb,0.60399e-06_rb,0.64368e-06_rb,0.68472e-06_rb /)
+      kbo(:,49, 5) = (/ &
+        & 0.42776e-06_rb,0.45739e-06_rb,0.48880e-06_rb,0.52108e-06_rb,0.55567e-06_rb /)
+      kbo(:,50, 5) = (/ &
+        & 0.34556e-06_rb,0.36989e-06_rb,0.39599e-06_rb,0.42284e-06_rb,0.45123e-06_rb /)
+      kbo(:,51, 5) = (/ &
+        & 0.27905e-06_rb,0.29932e-06_rb,0.32065e-06_rb,0.34295e-06_rb,0.36646e-06_rb /)
+      kbo(:,52, 5) = (/ &
+        & 0.22522e-06_rb,0.24196e-06_rb,0.25940e-06_rb,0.27788e-06_rb,0.29753e-06_rb /)
+      kbo(:,53, 5) = (/ &
+        & 0.18137e-06_rb,0.19527e-06_rb,0.20965e-06_rb,0.22512e-06_rb,0.24112e-06_rb /)
+      kbo(:,54, 5) = (/ &
+        & 0.14606e-06_rb,0.15795e-06_rb,0.16971e-06_rb,0.18256e-06_rb,0.19571e-06_rb /)
+      kbo(:,55, 5) = (/ &
+        & 0.11745e-06_rb,0.12764e-06_rb,0.13751e-06_rb,0.14796e-06_rb,0.15891e-06_rb /)
+      kbo(:,56, 5) = (/ &
+        & 0.94319e-07_rb,0.10301e-06_rb,0.11131e-06_rb,0.11979e-06_rb,0.12892e-06_rb /)
+      kbo(:,57, 5) = (/ &
+        & 0.75512e-07_rb,0.83064e-07_rb,0.90010e-07_rb,0.96928e-07_rb,0.10441e-06_rb /)
+      kbo(:,58, 5) = (/ &
+        & 0.60409e-07_rb,0.66900e-07_rb,0.72712e-07_rb,0.78451e-07_rb,0.84657e-07_rb /)
+      kbo(:,59, 5) = (/ &
+        & 0.49299e-07_rb,0.54731e-07_rb,0.59628e-07_rb,0.64415e-07_rb,0.69585e-07_rb /)
+      kbo(:,13, 6) = (/ &
+        & 0.85498e-03_rb,0.88654e-03_rb,0.92216e-03_rb,0.96018e-03_rb,0.10038e-02_rb /)
+      kbo(:,14, 6) = (/ &
+        & 0.72755e-03_rb,0.75503e-03_rb,0.78615e-03_rb,0.82104e-03_rb,0.86252e-03_rb /)
+      kbo(:,15, 6) = (/ &
+        & 0.61644e-03_rb,0.64130e-03_rb,0.66934e-03_rb,0.70298e-03_rb,0.74077e-03_rb /)
+      kbo(:,16, 6) = (/ &
+        & 0.52100e-03_rb,0.54364e-03_rb,0.57046e-03_rb,0.60137e-03_rb,0.63388e-03_rb /)
+      kbo(:,17, 6) = (/ &
+        & 0.43945e-03_rb,0.46060e-03_rb,0.48533e-03_rb,0.51276e-03_rb,0.54036e-03_rb /)
+      kbo(:,18, 6) = (/ &
+        & 0.37082e-03_rb,0.39025e-03_rb,0.41242e-03_rb,0.43532e-03_rb,0.45905e-03_rb /)
+      kbo(:,19, 6) = (/ &
+        & 0.31280e-03_rb,0.33005e-03_rb,0.34867e-03_rb,0.36806e-03_rb,0.38776e-03_rb /)
+      kbo(:,20, 6) = (/ &
+        & 0.26373e-03_rb,0.27881e-03_rb,0.29445e-03_rb,0.31046e-03_rb,0.32667e-03_rb /)
+      kbo(:,21, 6) = (/ &
+        & 0.22211e-03_rb,0.23470e-03_rb,0.24766e-03_rb,0.26115e-03_rb,0.27459e-03_rb /)
+      kbo(:,22, 6) = (/ &
+        & 0.18729e-03_rb,0.19773e-03_rb,0.20869e-03_rb,0.22010e-03_rb,0.23102e-03_rb /)
+      kbo(:,23, 6) = (/ &
+        & 0.15755e-03_rb,0.16634e-03_rb,0.17574e-03_rb,0.18527e-03_rb,0.19396e-03_rb /)
+      kbo(:,24, 6) = (/ &
+        & 0.13244e-03_rb,0.14003e-03_rb,0.14791e-03_rb,0.15556e-03_rb,0.16235e-03_rb /)
+      kbo(:,25, 6) = (/ &
+        & 0.11137e-03_rb,0.11779e-03_rb,0.12437e-03_rb,0.13036e-03_rb,0.13579e-03_rb /)
+      kbo(:,26, 6) = (/ &
+        & 0.93817e-04_rb,0.99206e-04_rb,0.10452e-03_rb,0.10918e-03_rb,0.11356e-03_rb /)
+      kbo(:,27, 6) = (/ &
+        & 0.79006e-04_rb,0.83531e-04_rb,0.87717e-04_rb,0.91355e-04_rb,0.95066e-04_rb /)
+      kbo(:,28, 6) = (/ &
+        & 0.66464e-04_rb,0.70180e-04_rb,0.73412e-04_rb,0.76548e-04_rb,0.79673e-04_rb /)
+      kbo(:,29, 6) = (/ &
+        & 0.55955e-04_rb,0.58876e-04_rb,0.61539e-04_rb,0.64161e-04_rb,0.66744e-04_rb /)
+      kbo(:,30, 6) = (/ &
+        & 0.47057e-04_rb,0.49392e-04_rb,0.51539e-04_rb,0.53762e-04_rb,0.55883e-04_rb /)
+      kbo(:,31, 6) = (/ &
+        & 0.39571e-04_rb,0.41398e-04_rb,0.43230e-04_rb,0.45052e-04_rb,0.46859e-04_rb /)
+      kbo(:,32, 6) = (/ &
+        & 0.33232e-04_rb,0.34753e-04_rb,0.36306e-04_rb,0.37802e-04_rb,0.39368e-04_rb /)
+      kbo(:,33, 6) = (/ &
+        & 0.27886e-04_rb,0.29183e-04_rb,0.30428e-04_rb,0.31753e-04_rb,0.33114e-04_rb /)
+      kbo(:,34, 6) = (/ &
+        & 0.23408e-04_rb,0.24477e-04_rb,0.25555e-04_rb,0.26683e-04_rb,0.27811e-04_rb /)
+      kbo(:,35, 6) = (/ &
+        & 0.19576e-04_rb,0.20476e-04_rb,0.21380e-04_rb,0.22323e-04_rb,0.23289e-04_rb /)
+      kbo(:,36, 6) = (/ &
+        & 0.16284e-04_rb,0.17049e-04_rb,0.17816e-04_rb,0.18626e-04_rb,0.19444e-04_rb /)
+      kbo(:,37, 6) = (/ &
+        & 0.13488e-04_rb,0.14134e-04_rb,0.14781e-04_rb,0.15488e-04_rb,0.16173e-04_rb /)
+      kbo(:,38, 6) = (/ &
+        & 0.11176e-04_rb,0.11721e-04_rb,0.12278e-04_rb,0.12866e-04_rb,0.13450e-04_rb /)
+      kbo(:,39, 6) = (/ &
+        & 0.92494e-05_rb,0.97155e-05_rb,0.10200e-04_rb,0.10699e-04_rb,0.11199e-04_rb /)
+      kbo(:,40, 6) = (/ &
+        & 0.76168e-05_rb,0.80109e-05_rb,0.84197e-05_rb,0.88496e-05_rb,0.92853e-05_rb /)
+      kbo(:,41, 6) = (/ &
+        & 0.62645e-05_rb,0.66003e-05_rb,0.69472e-05_rb,0.73123e-05_rb,0.76881e-05_rb /)
+      kbo(:,42, 6) = (/ &
+        & 0.51581e-05_rb,0.54373e-05_rb,0.57325e-05_rb,0.60421e-05_rb,0.63612e-05_rb /)
+      kbo(:,43, 6) = (/ &
+        & 0.42336e-05_rb,0.44705e-05_rb,0.47241e-05_rb,0.49790e-05_rb,0.52554e-05_rb /)
+      kbo(:,44, 6) = (/ &
+        & 0.34635e-05_rb,0.36643e-05_rb,0.38777e-05_rb,0.40942e-05_rb,0.43335e-05_rb /)
+      kbo(:,45, 6) = (/ &
+        & 0.28355e-05_rb,0.30041e-05_rb,0.31829e-05_rb,0.33678e-05_rb,0.35664e-05_rb /)
+      kbo(:,46, 6) = (/ &
+        & 0.23151e-05_rb,0.24589e-05_rb,0.26085e-05_rb,0.27655e-05_rb,0.29287e-05_rb /)
+      kbo(:,47, 6) = (/ &
+        & 0.18832e-05_rb,0.20045e-05_rb,0.21306e-05_rb,0.22633e-05_rb,0.24025e-05_rb /)
+      kbo(:,48, 6) = (/ &
+        & 0.15291e-05_rb,0.16326e-05_rb,0.17368e-05_rb,0.18516e-05_rb,0.19681e-05_rb /)
+      kbo(:,49, 6) = (/ &
+        & 0.12403e-05_rb,0.13270e-05_rb,0.14154e-05_rb,0.15108e-05_rb,0.16100e-05_rb /)
+      kbo(:,50, 6) = (/ &
+        & 0.10056e-05_rb,0.10792e-05_rb,0.11542e-05_rb,0.12335e-05_rb,0.13173e-05_rb /)
+      kbo(:,51, 6) = (/ &
+        & 0.81549e-06_rb,0.87791e-06_rb,0.94116e-06_rb,0.10080e-05_rb,0.10781e-05_rb /)
+      kbo(:,52, 6) = (/ &
+        & 0.66029e-06_rb,0.71307e-06_rb,0.76617e-06_rb,0.82179e-06_rb,0.88107e-06_rb /)
+      kbo(:,53, 6) = (/ &
+        & 0.53353e-06_rb,0.57858e-06_rb,0.62276e-06_rb,0.66919e-06_rb,0.71931e-06_rb /)
+      kbo(:,54, 6) = (/ &
+        & 0.43199e-06_rb,0.46970e-06_rb,0.50695e-06_rb,0.54584e-06_rb,0.58793e-06_rb /)
+      kbo(:,55, 6) = (/ &
+        & 0.34966e-06_rb,0.38119e-06_rb,0.41298e-06_rb,0.44530e-06_rb,0.48058e-06_rb /)
+      kbo(:,56, 6) = (/ &
+        & 0.28227e-06_rb,0.30903e-06_rb,0.33563e-06_rb,0.36285e-06_rb,0.39216e-06_rb /)
+      kbo(:,57, 6) = (/ &
+        & 0.22764e-06_rb,0.25006e-06_rb,0.27265e-06_rb,0.29503e-06_rb,0.31940e-06_rb /)
+      kbo(:,58, 6) = (/ &
+        & 0.18380e-06_rb,0.20248e-06_rb,0.22144e-06_rb,0.24002e-06_rb,0.25999e-06_rb /)
+      kbo(:,59, 6) = (/ &
+        & 0.15102e-06_rb,0.16680e-06_rb,0.18267e-06_rb,0.19825e-06_rb,0.21512e-06_rb /)
+      kbo(:,13, 7) = (/ &
+        & 0.20763e-02_rb,0.21202e-02_rb,0.21697e-02_rb,0.22297e-02_rb,0.22985e-02_rb /)
+      kbo(:,14, 7) = (/ &
+        & 0.17631e-02_rb,0.18004e-02_rb,0.18452e-02_rb,0.18998e-02_rb,0.19604e-02_rb /)
+      kbo(:,15, 7) = (/ &
+        & 0.14970e-02_rb,0.15286e-02_rb,0.15695e-02_rb,0.16172e-02_rb,0.16748e-02_rb /)
+      kbo(:,16, 7) = (/ &
+        & 0.12672e-02_rb,0.12965e-02_rb,0.13340e-02_rb,0.13795e-02_rb,0.14367e-02_rb /)
+      kbo(:,17, 7) = (/ &
+        & 0.10695e-02_rb,0.10974e-02_rb,0.11329e-02_rb,0.11783e-02_rb,0.12365e-02_rb /)
+      kbo(:,18, 7) = (/ &
+        & 0.90477e-03_rb,0.93070e-03_rb,0.96470e-03_rb,0.10105e-02_rb,0.10654e-02_rb /)
+      kbo(:,19, 7) = (/ &
+        & 0.76431e-03_rb,0.79078e-03_rb,0.82660e-03_rb,0.86991e-03_rb,0.91843e-03_rb /)
+      kbo(:,20, 7) = (/ &
+        & 0.64676e-03_rb,0.67404e-03_rb,0.70901e-03_rb,0.74996e-03_rb,0.79243e-03_rb /)
+      kbo(:,21, 7) = (/ &
+        & 0.54776e-03_rb,0.57523e-03_rb,0.60880e-03_rb,0.64511e-03_rb,0.68243e-03_rb /)
+      kbo(:,22, 7) = (/ &
+        & 0.46614e-03_rb,0.49254e-03_rb,0.52330e-03_rb,0.55502e-03_rb,0.58894e-03_rb /)
+      kbo(:,23, 7) = (/ &
+        & 0.39726e-03_rb,0.42201e-03_rb,0.44841e-03_rb,0.47653e-03_rb,0.50717e-03_rb /)
+      kbo(:,24, 7) = (/ &
+        & 0.33898e-03_rb,0.36121e-03_rb,0.38421e-03_rb,0.40924e-03_rb,0.43694e-03_rb /)
+      kbo(:,25, 7) = (/ &
+        & 0.28981e-03_rb,0.30891e-03_rb,0.32925e-03_rb,0.35185e-03_rb,0.37616e-03_rb /)
+      kbo(:,26, 7) = (/ &
+        & 0.24765e-03_rb,0.26436e-03_rb,0.28268e-03_rb,0.30306e-03_rb,0.32381e-03_rb /)
+      kbo(:,27, 7) = (/ &
+        & 0.21161e-03_rb,0.22639e-03_rb,0.24293e-03_rb,0.26080e-03_rb,0.27811e-03_rb /)
+      kbo(:,28, 7) = (/ &
+        & 0.18103e-03_rb,0.19425e-03_rb,0.20911e-03_rb,0.22426e-03_rb,0.23882e-03_rb /)
+      kbo(:,29, 7) = (/ &
+        & 0.15524e-03_rb,0.16726e-03_rb,0.18025e-03_rb,0.19313e-03_rb,0.20539e-03_rb /)
+      kbo(:,30, 7) = (/ &
+        & 0.13346e-03_rb,0.14432e-03_rb,0.15555e-03_rb,0.16625e-03_rb,0.17682e-03_rb /)
+      kbo(:,31, 7) = (/ &
+        & 0.11513e-03_rb,0.12466e-03_rb,0.13417e-03_rb,0.14329e-03_rb,0.15286e-03_rb /)
+      kbo(:,32, 7) = (/ &
+        & 0.99437e-04_rb,0.10768e-03_rb,0.11569e-03_rb,0.12397e-03_rb,0.13224e-03_rb /)
+      kbo(:,33, 7) = (/ &
+        & 0.85975e-04_rb,0.92901e-04_rb,0.10007e-03_rb,0.10742e-03_rb,0.11487e-03_rb /)
+      kbo(:,34, 7) = (/ &
+        & 0.74186e-04_rb,0.80283e-04_rb,0.86524e-04_rb,0.92965e-04_rb,0.99720e-04_rb /)
+      kbo(:,35, 7) = (/ &
+        & 0.63518e-04_rb,0.68833e-04_rb,0.74348e-04_rb,0.80205e-04_rb,0.86286e-04_rb /)
+      kbo(:,36, 7) = (/ &
+        & 0.53971e-04_rb,0.58710e-04_rb,0.63581e-04_rb,0.68731e-04_rb,0.74066e-04_rb /)
+      kbo(:,37, 7) = (/ &
+        & 0.45287e-04_rb,0.49433e-04_rb,0.53695e-04_rb,0.58207e-04_rb,0.62933e-04_rb /)
+      kbo(:,38, 7) = (/ &
+        & 0.37993e-04_rb,0.41562e-04_rb,0.45327e-04_rb,0.49315e-04_rb,0.53437e-04_rb /)
+      kbo(:,39, 7) = (/ &
+        & 0.31889e-04_rb,0.34954e-04_rb,0.38268e-04_rb,0.41760e-04_rb,0.45472e-04_rb /)
+      kbo(:,40, 7) = (/ &
+        & 0.26490e-04_rb,0.29130e-04_rb,0.31995e-04_rb,0.35094e-04_rb,0.38302e-04_rb /)
+      kbo(:,41, 7) = (/ &
+        & 0.21977e-04_rb,0.24258e-04_rb,0.26702e-04_rb,0.29405e-04_rb,0.32254e-04_rb /)
+      kbo(:,42, 7) = (/ &
+        & 0.18218e-04_rb,0.20180e-04_rb,0.22299e-04_rb,0.24616e-04_rb,0.27154e-04_rb /)
+      kbo(:,43, 7) = (/ &
+        & 0.15034e-04_rb,0.16668e-04_rb,0.18493e-04_rb,0.20514e-04_rb,0.22747e-04_rb /)
+      kbo(:,44, 7) = (/ &
+        & 0.12376e-04_rb,0.13730e-04_rb,0.15276e-04_rb,0.16983e-04_rb,0.18913e-04_rb /)
+      kbo(:,45, 7) = (/ &
+        & 0.10149e-04_rb,0.11314e-04_rb,0.12590e-04_rb,0.14099e-04_rb,0.15742e-04_rb /)
+      kbo(:,46, 7) = (/ &
+        & 0.82889e-05_rb,0.92859e-05_rb,0.10354e-04_rb,0.11603e-04_rb,0.13042e-04_rb /)
+      kbo(:,47, 7) = (/ &
+        & 0.67264e-05_rb,0.75707e-05_rb,0.84748e-05_rb,0.95081e-05_rb,0.10721e-04_rb /)
+      kbo(:,48, 7) = (/ &
+        & 0.54454e-05_rb,0.61678e-05_rb,0.69329e-05_rb,0.77845e-05_rb,0.87984e-05_rb /)
+      kbo(:,49, 7) = (/ &
+        & 0.43942e-05_rb,0.50075e-05_rb,0.56558e-05_rb,0.63802e-05_rb,0.72168e-05_rb /)
+      kbo(:,50, 7) = (/ &
+        & 0.35518e-05_rb,0.40682e-05_rb,0.46246e-05_rb,0.52318e-05_rb,0.59289e-05_rb /)
+      kbo(:,51, 7) = (/ &
+        & 0.28695e-05_rb,0.33032e-05_rb,0.37766e-05_rb,0.42938e-05_rb,0.48871e-05_rb /)
+      kbo(:,52, 7) = (/ &
+        & 0.23151e-05_rb,0.26733e-05_rb,0.30760e-05_rb,0.35184e-05_rb,0.40216e-05_rb /)
+      kbo(:,53, 7) = (/ &
+        & 0.18635e-05_rb,0.21569e-05_rb,0.24979e-05_rb,0.28705e-05_rb,0.33004e-05_rb /)
+      kbo(:,54, 7) = (/ &
+        & 0.15043e-05_rb,0.17492e-05_rb,0.20309e-05_rb,0.23469e-05_rb,0.27129e-05_rb /)
+      kbo(:,55, 7) = (/ &
+        & 0.12156e-05_rb,0.14170e-05_rb,0.16506e-05_rb,0.19188e-05_rb,0.22303e-05_rb /)
+      kbo(:,56, 7) = (/ &
+        & 0.98090e-06_rb,0.11440e-05_rb,0.13395e-05_rb,0.15647e-05_rb,0.18280e-05_rb /)
+      kbo(:,57, 7) = (/ &
+        & 0.79029e-06_rb,0.92216e-06_rb,0.10880e-05_rb,0.12732e-05_rb,0.14934e-05_rb /)
+      kbo(:,58, 7) = (/ &
+        & 0.63691e-06_rb,0.74365e-06_rb,0.88187e-06_rb,0.10375e-05_rb,0.12193e-05_rb /)
+      kbo(:,59, 7) = (/ &
+        & 0.52696e-06_rb,0.61783e-06_rb,0.73672e-06_rb,0.87054e-06_rb,0.10284e-05_rb /)
+      kbo(:,13, 8) = (/ &
+        & 0.57453e-02_rb,0.59077e-02_rb,0.61032e-02_rb,0.63038e-02_rb,0.65156e-02_rb /)
+      kbo(:,14, 8) = (/ &
+        & 0.49738e-02_rb,0.51301e-02_rb,0.52927e-02_rb,0.54623e-02_rb,0.56575e-02_rb /)
+      kbo(:,15, 8) = (/ &
+        & 0.43017e-02_rb,0.44326e-02_rb,0.45703e-02_rb,0.47292e-02_rb,0.49039e-02_rb /)
+      kbo(:,16, 8) = (/ &
+        & 0.37082e-02_rb,0.38170e-02_rb,0.39427e-02_rb,0.40844e-02_rb,0.42438e-02_rb /)
+      kbo(:,17, 8) = (/ &
+        & 0.31847e-02_rb,0.32833e-02_rb,0.33960e-02_rb,0.35252e-02_rb,0.36740e-02_rb /)
+      kbo(:,18, 8) = (/ &
+        & 0.27225e-02_rb,0.28155e-02_rb,0.29216e-02_rb,0.30449e-02_rb,0.31911e-02_rb /)
+      kbo(:,19, 8) = (/ &
+        & 0.23309e-02_rb,0.24127e-02_rb,0.25113e-02_rb,0.26325e-02_rb,0.27748e-02_rb /)
+      kbo(:,20, 8) = (/ &
+        & 0.19939e-02_rb,0.20703e-02_rb,0.21659e-02_rb,0.22816e-02_rb,0.24232e-02_rb /)
+      kbo(:,21, 8) = (/ &
+        & 0.17051e-02_rb,0.17809e-02_rb,0.18754e-02_rb,0.19919e-02_rb,0.21299e-02_rb /)
+      kbo(:,22, 8) = (/ &
+        & 0.14632e-02_rb,0.15412e-02_rb,0.16376e-02_rb,0.17554e-02_rb,0.18936e-02_rb /)
+      kbo(:,23, 8) = (/ &
+        & 0.12639e-02_rb,0.13422e-02_rb,0.14407e-02_rb,0.15575e-02_rb,0.16941e-02_rb /)
+      kbo(:,24, 8) = (/ &
+        & 0.10971e-02_rb,0.11767e-02_rb,0.12764e-02_rb,0.13939e-02_rb,0.15238e-02_rb /)
+      kbo(:,25, 8) = (/ &
+        & 0.95870e-03_rb,0.10413e-02_rb,0.11414e-02_rb,0.12556e-02_rb,0.13798e-02_rb /)
+      kbo(:,26, 8) = (/ &
+        & 0.84686e-03_rb,0.93021e-03_rb,0.10287e-02_rb,0.11374e-02_rb,0.12572e-02_rb /)
+      kbo(:,27, 8) = (/ &
+        & 0.75447e-03_rb,0.83724e-03_rb,0.93234e-03_rb,0.10369e-02_rb,0.11513e-02_rb /)
+      kbo(:,28, 8) = (/ &
+        & 0.67798e-03_rb,0.75937e-03_rb,0.85009e-03_rb,0.95072e-03_rb,0.10606e-02_rb /)
+      kbo(:,29, 8) = (/ &
+        & 0.61364e-03_rb,0.69262e-03_rb,0.77994e-03_rb,0.87674e-03_rb,0.98252e-03_rb /)
+      kbo(:,30, 8) = (/ &
+        & 0.55903e-03_rb,0.63520e-03_rb,0.71974e-03_rb,0.81322e-03_rb,0.91554e-03_rb /)
+      kbo(:,31, 8) = (/ &
+        & 0.51301e-03_rb,0.58698e-03_rb,0.66923e-03_rb,0.75972e-03_rb,0.85851e-03_rb /)
+      kbo(:,32, 8) = (/ &
+        & 0.47350e-03_rb,0.54617e-03_rb,0.62663e-03_rb,0.71470e-03_rb,0.81105e-03_rb /)
+      kbo(:,33, 8) = (/ &
+        & 0.44016e-03_rb,0.51136e-03_rb,0.58994e-03_rb,0.67638e-03_rb,0.77061e-03_rb /)
+      kbo(:,34, 8) = (/ &
+        & 0.40944e-03_rb,0.47900e-03_rb,0.55611e-03_rb,0.64143e-03_rb,0.73316e-03_rb /)
+      kbo(:,35, 8) = (/ &
+        & 0.37741e-03_rb,0.44487e-03_rb,0.52031e-03_rb,0.60323e-03_rb,0.69243e-03_rb /)
+      kbo(:,36, 8) = (/ &
+        & 0.34297e-03_rb,0.40766e-03_rb,0.48086e-03_rb,0.56132e-03_rb,0.64787e-03_rb /)
+      kbo(:,37, 8) = (/ &
+        & 0.30431e-03_rb,0.36499e-03_rb,0.43465e-03_rb,0.51167e-03_rb,0.59496e-03_rb /)
+      kbo(:,38, 8) = (/ &
+        & 0.26970e-03_rb,0.32665e-03_rb,0.39267e-03_rb,0.46706e-03_rb,0.54760e-03_rb /)
+      kbo(:,39, 8) = (/ &
+        & 0.23923e-03_rb,0.29254e-03_rb,0.35537e-03_rb,0.42706e-03_rb,0.50543e-03_rb /)
+      kbo(:,40, 8) = (/ &
+        & 0.20758e-03_rb,0.25688e-03_rb,0.31519e-03_rb,0.38349e-03_rb,0.45925e-03_rb /)
+      kbo(:,41, 8) = (/ &
+        & 0.17937e-03_rb,0.22435e-03_rb,0.27886e-03_rb,0.34337e-03_rb,0.41641e-03_rb /)
+      kbo(:,42, 8) = (/ &
+        & 0.15469e-03_rb,0.19589e-03_rb,0.24606e-03_rb,0.30674e-03_rb,0.37723e-03_rb /)
+      kbo(:,43, 8) = (/ &
+        & 0.13101e-03_rb,0.16796e-03_rb,0.21371e-03_rb,0.26992e-03_rb,0.33751e-03_rb /)
+      kbo(:,44, 8) = (/ &
+        & 0.10980e-03_rb,0.14260e-03_rb,0.18396e-03_rb,0.23557e-03_rb,0.29905e-03_rb /)
+      kbo(:,45, 8) = (/ &
+        & 0.91682e-04_rb,0.12045e-03_rb,0.15770e-03_rb,0.20472e-03_rb,0.26370e-03_rb /)
+      kbo(:,46, 8) = (/ &
+        & 0.75628e-04_rb,0.10059e-03_rb,0.13347e-03_rb,0.17595e-03_rb,0.22995e-03_rb /)
+      kbo(:,47, 8) = (/ &
+        & 0.61269e-04_rb,0.82597e-04_rb,0.11115e-03_rb,0.14863e-03_rb,0.19734e-03_rb /)
+      kbo(:,48, 8) = (/ &
+        & 0.49295e-04_rb,0.67304e-04_rb,0.91698e-04_rb,0.12475e-03_rb,0.16838e-03_rb /)
+      kbo(:,49, 8) = (/ &
+        & 0.39400e-04_rb,0.54424e-04_rb,0.75252e-04_rb,0.10388e-03_rb,0.14254e-03_rb /)
+      kbo(:,50, 8) = (/ &
+        & 0.31621e-04_rb,0.44130e-04_rb,0.61905e-04_rb,0.86583e-04_rb,0.12082e-03_rb /)
+      kbo(:,51, 8) = (/ &
+        & 0.25214e-04_rb,0.35613e-04_rb,0.50609e-04_rb,0.71998e-04_rb,0.10219e-03_rb /)
+      kbo(:,52, 8) = (/ &
+        & 0.20045e-04_rb,0.28626e-04_rb,0.41171e-04_rb,0.59458e-04_rb,0.85829e-04_rb /)
+      kbo(:,53, 8) = (/ &
+        & 0.15795e-04_rb,0.22859e-04_rb,0.33218e-04_rb,0.48810e-04_rb,0.71516e-04_rb /)
+      kbo(:,54, 8) = (/ &
+        & 0.12537e-04_rb,0.18343e-04_rb,0.26979e-04_rb,0.40183e-04_rb,0.59926e-04_rb /)
+      kbo(:,55, 8) = (/ &
+        & 0.99418e-05_rb,0.14675e-04_rb,0.21893e-04_rb,0.33017e-04_rb,0.50138e-04_rb /)
+      kbo(:,56, 8) = (/ &
+        & 0.78293e-05_rb,0.11672e-04_rb,0.17663e-04_rb,0.26975e-04_rb,0.41690e-04_rb /)
+      kbo(:,57, 8) = (/ &
+        & 0.61519e-05_rb,0.92383e-05_rb,0.14184e-04_rb,0.21901e-04_rb,0.34420e-04_rb /)
+      kbo(:,58, 8) = (/ &
+        & 0.48509e-05_rb,0.73119e-05_rb,0.11341e-04_rb,0.17783e-04_rb,0.28416e-04_rb /)
+      kbo(:,59, 8) = (/ &
+        & 0.41003e-05_rb,0.62461e-05_rb,0.98307e-05_rb,0.15678e-04_rb,0.25521e-04_rb /)
+      kbo(:,13, 9) = (/ &
+        & 0.31088e-01_rb,0.30978e-01_rb,0.31134e-01_rb,0.31580e-01_rb,0.32297e-01_rb /)
+      kbo(:,14, 9) = (/ &
+        & 0.26804e-01_rb,0.26913e-01_rb,0.27323e-01_rb,0.28019e-01_rb,0.28853e-01_rb /)
+      kbo(:,15, 9) = (/ &
+        & 0.23192e-01_rb,0.23530e-01_rb,0.24156e-01_rb,0.24918e-01_rb,0.25770e-01_rb /)
+      kbo(:,16, 9) = (/ &
+        & 0.20205e-01_rb,0.20738e-01_rb,0.21411e-01_rb,0.22189e-01_rb,0.23073e-01_rb /)
+      kbo(:,17, 9) = (/ &
+        & 0.17721e-01_rb,0.18309e-01_rb,0.19005e-01_rb,0.19816e-01_rb,0.20712e-01_rb /)
+      kbo(:,18, 9) = (/ &
+        & 0.15569e-01_rb,0.16175e-01_rb,0.16902e-01_rb,0.17717e-01_rb,0.18588e-01_rb /)
+      kbo(:,19, 9) = (/ &
+        & 0.13679e-01_rb,0.14314e-01_rb,0.15046e-01_rb,0.15840e-01_rb,0.16695e-01_rb /)
+      kbo(:,20, 9) = (/ &
+        & 0.12060e-01_rb,0.12704e-01_rb,0.13416e-01_rb,0.14184e-01_rb,0.14994e-01_rb /)
+      kbo(:,21, 9) = (/ &
+        & 0.10678e-01_rb,0.11296e-01_rb,0.11975e-01_rb,0.12694e-01_rb,0.13474e-01_rb /)
+      kbo(:,22, 9) = (/ &
+        & 0.95206e-02_rb,0.10114e-01_rb,0.10744e-01_rb,0.11429e-01_rb,0.12190e-01_rb /)
+      kbo(:,23, 9) = (/ &
+        & 0.85244e-02_rb,0.90705e-02_rb,0.96690e-02_rb,0.10334e-01_rb,0.11084e-01_rb /)
+      kbo(:,24, 9) = (/ &
+        & 0.76472e-02_rb,0.81682e-02_rb,0.87428e-02_rb,0.93948e-02_rb,0.10155e-01_rb /)
+      kbo(:,25, 9) = (/ &
+        & 0.68906e-02_rb,0.73887e-02_rb,0.79555e-02_rb,0.86116e-02_rb,0.93920e-02_rb /)
+      kbo(:,26, 9) = (/ &
+        & 0.62406e-02_rb,0.67330e-02_rb,0.73033e-02_rb,0.79807e-02_rb,0.87803e-02_rb /)
+      kbo(:,27, 9) = (/ &
+        & 0.56879e-02_rb,0.61818e-02_rb,0.67732e-02_rb,0.74721e-02_rb,0.82924e-02_rb /)
+      kbo(:,28, 9) = (/ &
+        & 0.52214e-02_rb,0.57290e-02_rb,0.63416e-02_rb,0.70614e-02_rb,0.79109e-02_rb /)
+      kbo(:,29, 9) = (/ &
+        & 0.48396e-02_rb,0.53718e-02_rb,0.60023e-02_rb,0.67493e-02_rb,0.76290e-02_rb /)
+      kbo(:,30, 9) = (/ &
+        & 0.45394e-02_rb,0.50868e-02_rb,0.57419e-02_rb,0.65213e-02_rb,0.74390e-02_rb /)
+      kbo(:,31, 9) = (/ &
+        & 0.42997e-02_rb,0.48721e-02_rb,0.55579e-02_rb,0.63736e-02_rb,0.73370e-02_rb /)
+      kbo(:,32, 9) = (/ &
+        & 0.41212e-02_rb,0.47209e-02_rb,0.54422e-02_rb,0.62987e-02_rb,0.73128e-02_rb /)
+      kbo(:,33, 9) = (/ &
+        & 0.39976e-02_rb,0.46295e-02_rb,0.53893e-02_rb,0.62949e-02_rb,0.73658e-02_rb /)
+      kbo(:,34, 9) = (/ &
+        & 0.39007e-02_rb,0.45672e-02_rb,0.53672e-02_rb,0.63167e-02_rb,0.74374e-02_rb /)
+      kbo(:,35, 9) = (/ &
+        & 0.37869e-02_rb,0.44770e-02_rb,0.53019e-02_rb,0.62849e-02_rb,0.74424e-02_rb /)
+      kbo(:,36, 9) = (/ &
+        & 0.36393e-02_rb,0.43376e-02_rb,0.51746e-02_rb,0.61726e-02_rb,0.73435e-02_rb /)
+      kbo(:,37, 9) = (/ &
+        & 0.34235e-02_rb,0.41098e-02_rb,0.49353e-02_rb,0.59226e-02_rb,0.70781e-02_rb /)
+      kbo(:,38, 9) = (/ &
+        & 0.32247e-02_rb,0.38981e-02_rb,0.47125e-02_rb,0.56849e-02_rb,0.68251e-02_rb /)
+      kbo(:,39, 9) = (/ &
+        & 0.30456e-02_rb,0.37107e-02_rb,0.45116e-02_rb,0.54683e-02_rb,0.65906e-02_rb /)
+      kbo(:,40, 9) = (/ &
+        & 0.28232e-02_rb,0.34654e-02_rb,0.42389e-02_rb,0.51610e-02_rb,0.62484e-02_rb /)
+      kbo(:,41, 9) = (/ &
+        & 0.26119e-02_rb,0.32290e-02_rb,0.39730e-02_rb,0.48613e-02_rb,0.59121e-02_rb /)
+      kbo(:,42, 9) = (/ &
+        & 0.24180e-02_rb,0.30088e-02_rb,0.37246e-02_rb,0.45813e-02_rb,0.55929e-02_rb /)
+      kbo(:,43, 9) = (/ &
+        & 0.22093e-02_rb,0.27691e-02_rb,0.34494e-02_rb,0.42630e-02_rb,0.52317e-02_rb /)
+      kbo(:,44, 9) = (/ &
+        & 0.20033e-02_rb,0.25304e-02_rb,0.31741e-02_rb,0.39439e-02_rb,0.48637e-02_rb /)
+      kbo(:,45, 9) = (/ &
+        & 0.18130e-02_rb,0.23086e-02_rb,0.29181e-02_rb,0.36487e-02_rb,0.45175e-02_rb /)
+      kbo(:,46, 9) = (/ &
+        & 0.16283e-02_rb,0.20910e-02_rb,0.26646e-02_rb,0.33526e-02_rb,0.41695e-02_rb /)
+      kbo(:,47, 9) = (/ &
+        & 0.14435e-02_rb,0.18702e-02_rb,0.24020e-02_rb,0.30439e-02_rb,0.38103e-02_rb /)
+      kbo(:,48, 9) = (/ &
+        & 0.12773e-02_rb,0.16671e-02_rb,0.21576e-02_rb,0.27587e-02_rb,0.34731e-02_rb /)
+      kbo(:,49, 9) = (/ &
+        & 0.11238e-02_rb,0.14806e-02_rb,0.19320e-02_rb,0.24920e-02_rb,0.31602e-02_rb /)
+      kbo(:,50, 9) = (/ &
+        & 0.99065e-03_rb,0.13211e-02_rb,0.17354e-02_rb,0.22582e-02_rb,0.28857e-02_rb /)
+      kbo(:,51, 9) = (/ &
+        & 0.87220e-03_rb,0.11790e-02_rb,0.15607e-02_rb,0.20453e-02_rb,0.26367e-02_rb /)
+      kbo(:,52, 9) = (/ &
+        & 0.76443e-03_rb,0.10482e-02_rb,0.13992e-02_rb,0.18469e-02_rb,0.24023e-02_rb /)
+      kbo(:,53, 9) = (/ &
+        & 0.66506e-03_rb,0.92645e-03_rb,0.12548e-02_rb,0.16624e-02_rb,0.21789e-02_rb /)
+      kbo(:,54, 9) = (/ &
+        & 0.58147e-03_rb,0.82449e-03_rb,0.11302e-02_rb,0.15093e-02_rb,0.19886e-02_rb /)
+      kbo(:,55, 9) = (/ &
+        & 0.50762e-03_rb,0.73235e-03_rb,0.10182e-02_rb,0.13732e-02_rb,0.18200e-02_rb /)
+      kbo(:,56, 9) = (/ &
+        & 0.44063e-03_rb,0.64710e-03_rb,0.91345e-03_rb,0.12471e-02_rb,0.16632e-02_rb /)
+      kbo(:,57, 9) = (/ &
+        & 0.37891e-03_rb,0.56859e-03_rb,0.81680e-03_rb,0.11290e-02_rb,0.15165e-02_rb /)
+      kbo(:,58, 9) = (/ &
+        & 0.32563e-03_rb,0.50022e-03_rb,0.73037e-03_rb,0.10236e-02_rb,0.13873e-02_rb /)
+      kbo(:,59, 9) = (/ &
+        & 0.30307e-03_rb,0.47208e-03_rb,0.69548e-03_rb,0.98198e-03_rb,0.13371e-02_rb /)
+      kbo(:,13,10) = (/ &
+        & 0.13405e+00_rb,0.13208e+00_rb,0.13012e+00_rb,0.12819e+00_rb,0.12637e+00_rb /)
+      kbo(:,14,10) = (/ &
+        & 0.11726e+00_rb,0.11549e+00_rb,0.11376e+00_rb,0.11219e+00_rb,0.11171e+00_rb /)
+      kbo(:,15,10) = (/ &
+        & 0.10125e+00_rb,0.99749e-01_rb,0.98394e-01_rb,0.98385e-01_rb,0.99981e-01_rb /)
+      kbo(:,16,10) = (/ &
+        & 0.86553e-01_rb,0.85383e-01_rb,0.85602e-01_rb,0.87440e-01_rb,0.89929e-01_rb /)
+      kbo(:,17,10) = (/ &
+        & 0.73963e-01_rb,0.74028e-01_rb,0.75744e-01_rb,0.77969e-01_rb,0.80306e-01_rb /)
+      kbo(:,18,10) = (/ &
+        & 0.64249e-01_rb,0.65620e-01_rb,0.67504e-01_rb,0.69584e-01_rb,0.72235e-01_rb /)
+      kbo(:,19,10) = (/ &
+        & 0.56934e-01_rb,0.58613e-01_rb,0.60462e-01_rb,0.62855e-01_rb,0.65899e-01_rb /)
+      kbo(:,20,10) = (/ &
+        & 0.50721e-01_rb,0.52418e-01_rb,0.54615e-01_rb,0.57565e-01_rb,0.61049e-01_rb /)
+      kbo(:,21,10) = (/ &
+        & 0.45027e-01_rb,0.47161e-01_rb,0.49911e-01_rb,0.53249e-01_rb,0.56950e-01_rb /)
+      kbo(:,22,10) = (/ &
+        & 0.40301e-01_rb,0.42891e-01_rb,0.46164e-01_rb,0.49801e-01_rb,0.53839e-01_rb /)
+      kbo(:,23,10) = (/ &
+        & 0.36438e-01_rb,0.39487e-01_rb,0.43011e-01_rb,0.46965e-01_rb,0.50969e-01_rb /)
+      kbo(:,24,10) = (/ &
+        & 0.33455e-01_rb,0.36675e-01_rb,0.40451e-01_rb,0.44369e-01_rb,0.48399e-01_rb /)
+      kbo(:,25,10) = (/ &
+        & 0.31038e-01_rb,0.34461e-01_rb,0.38146e-01_rb,0.42075e-01_rb,0.46138e-01_rb /)
+      kbo(:,26,10) = (/ &
+        & 0.29184e-01_rb,0.32533e-01_rb,0.36194e-01_rb,0.40134e-01_rb,0.44371e-01_rb /)
+      kbo(:,27,10) = (/ &
+        & 0.27607e-01_rb,0.30907e-01_rb,0.34540e-01_rb,0.38584e-01_rb,0.43101e-01_rb /)
+      kbo(:,28,10) = (/ &
+        & 0.26262e-01_rb,0.29536e-01_rb,0.33259e-01_rb,0.37529e-01_rb,0.42311e-01_rb /)
+      kbo(:,29,10) = (/ &
+        & 0.25199e-01_rb,0.28472e-01_rb,0.32405e-01_rb,0.36927e-01_rb,0.42052e-01_rb /)
+      kbo(:,30,10) = (/ &
+        & 0.24317e-01_rb,0.27783e-01_rb,0.31948e-01_rb,0.36772e-01_rb,0.42176e-01_rb /)
+      kbo(:,31,10) = (/ &
+        & 0.23777e-01_rb,0.27457e-01_rb,0.31879e-01_rb,0.37001e-01_rb,0.42663e-01_rb /)
+      kbo(:,32,10) = (/ &
+        & 0.23540e-01_rb,0.27481e-01_rb,0.32177e-01_rb,0.37596e-01_rb,0.43567e-01_rb /)
+      kbo(:,33,10) = (/ &
+        & 0.23597e-01_rb,0.27797e-01_rb,0.32792e-01_rb,0.38465e-01_rb,0.44641e-01_rb /)
+      kbo(:,34,10) = (/ &
+        & 0.23769e-01_rb,0.28231e-01_rb,0.33430e-01_rb,0.39373e-01_rb,0.45740e-01_rb /)
+      kbo(:,35,10) = (/ &
+        & 0.23751e-01_rb,0.28376e-01_rb,0.33764e-01_rb,0.39814e-01_rb,0.46255e-01_rb /)
+      kbo(:,36,10) = (/ &
+        & 0.23409e-01_rb,0.28117e-01_rb,0.33564e-01_rb,0.39651e-01_rb,0.46138e-01_rb /)
+      kbo(:,37,10) = (/ &
+        & 0.22508e-01_rb,0.27169e-01_rb,0.32556e-01_rb,0.38592e-01_rb,0.45071e-01_rb /)
+      kbo(:,38,10) = (/ &
+        & 0.21655e-01_rb,0.26262e-01_rb,0.31543e-01_rb,0.37540e-01_rb,0.43984e-01_rb /)
+      kbo(:,39,10) = (/ &
+        & 0.20895e-01_rb,0.25391e-01_rb,0.30600e-01_rb,0.36519e-01_rb,0.42890e-01_rb /)
+      kbo(:,40,10) = (/ &
+        & 0.19794e-01_rb,0.24108e-01_rb,0.29157e-01_rb,0.34891e-01_rb,0.41215e-01_rb /)
+      kbo(:,41,10) = (/ &
+        & 0.18688e-01_rb,0.22822e-01_rb,0.27713e-01_rb,0.33302e-01_rb,0.39460e-01_rb /)
+      kbo(:,42,10) = (/ &
+        & 0.17627e-01_rb,0.21623e-01_rb,0.26302e-01_rb,0.31747e-01_rb,0.37731e-01_rb /)
+      kbo(:,43,10) = (/ &
+        & 0.16446e-01_rb,0.20270e-01_rb,0.24738e-01_rb,0.29940e-01_rb,0.35800e-01_rb /)
+      kbo(:,44,10) = (/ &
+        & 0.15234e-01_rb,0.18876e-01_rb,0.23100e-01_rb,0.28072e-01_rb,0.33725e-01_rb /)
+      kbo(:,45,10) = (/ &
+        & 0.14095e-01_rb,0.17542e-01_rb,0.21553e-01_rb,0.26276e-01_rb,0.31735e-01_rb /)
+      kbo(:,46,10) = (/ &
+        & 0.12980e-01_rb,0.16215e-01_rb,0.20030e-01_rb,0.24474e-01_rb,0.29695e-01_rb /)
+      kbo(:,47,10) = (/ &
+        & 0.11800e-01_rb,0.14839e-01_rb,0.18423e-01_rb,0.22582e-01_rb,0.27493e-01_rb /)
+      kbo(:,48,10) = (/ &
+        & 0.10669e-01_rb,0.13547e-01_rb,0.16901e-01_rb,0.20822e-01_rb,0.25431e-01_rb /)
+      kbo(:,49,10) = (/ &
+        & 0.96515e-02_rb,0.12347e-01_rb,0.15476e-01_rb,0.19181e-01_rb,0.23474e-01_rb /)
+      kbo(:,50,10) = (/ &
+        & 0.87302e-02_rb,0.11282e-01_rb,0.14230e-01_rb,0.17719e-01_rb,0.21773e-01_rb /)
+      kbo(:,51,10) = (/ &
+        & 0.78879e-02_rb,0.10297e-01_rb,0.13106e-01_rb,0.16387e-01_rb,0.20218e-01_rb /)
+      kbo(:,52,10) = (/ &
+        & 0.71141e-02_rb,0.93631e-02_rb,0.12059e-01_rb,0.15140e-01_rb,0.18761e-01_rb /)
+      kbo(:,53,10) = (/ &
+        & 0.64033e-02_rb,0.84706e-02_rb,0.11019e-01_rb,0.13962e-01_rb,0.17391e-01_rb /)
+      kbo(:,54,10) = (/ &
+        & 0.58003e-02_rb,0.77325e-02_rb,0.10121e-01_rb,0.12913e-01_rb,0.16185e-01_rb /)
+      kbo(:,55,10) = (/ &
+        & 0.52567e-02_rb,0.70672e-02_rb,0.93006e-02_rb,0.11949e-01_rb,0.15064e-01_rb /)
+      kbo(:,56,10) = (/ &
+        & 0.47304e-02_rb,0.64466e-02_rb,0.85460e-02_rb,0.11037e-01_rb,0.13988e-01_rb /)
+      kbo(:,57,10) = (/ &
+        & 0.42280e-02_rb,0.58745e-02_rb,0.78453e-02_rb,0.10192e-01_rb,0.12992e-01_rb /)
+      kbo(:,58,10) = (/ &
+        & 0.37744e-02_rb,0.53584e-02_rb,0.72089e-02_rb,0.94309e-02_rb,0.12101e-01_rb /)
+      kbo(:,59,10) = (/ &
+        & 0.36027e-02_rb,0.51588e-02_rb,0.69694e-02_rb,0.91382e-02_rb,0.11759e-01_rb /)
+      kbo(:,13,11) = (/ &
+        & 0.24636e+00_rb,0.24379e+00_rb,0.24122e+00_rb,0.23863e+00_rb,0.23598e+00_rb /)
+      kbo(:,14,11) = (/ &
+        & 0.22272e+00_rb,0.22032e+00_rb,0.21794e+00_rb,0.21559e+00_rb,0.21334e+00_rb /)
+      kbo(:,15,11) = (/ &
+        & 0.19844e+00_rb,0.19619e+00_rb,0.19411e+00_rb,0.19222e+00_rb,0.19047e+00_rb /)
+      kbo(:,16,11) = (/ &
+        & 0.17439e+00_rb,0.17254e+00_rb,0.17092e+00_rb,0.16946e+00_rb,0.16916e+00_rb /)
+      kbo(:,17,11) = (/ &
+        & 0.15164e+00_rb,0.15027e+00_rb,0.14912e+00_rb,0.14939e+00_rb,0.15176e+00_rb /)
+      kbo(:,18,11) = (/ &
+        & 0.13063e+00_rb,0.12971e+00_rb,0.13029e+00_rb,0.13302e+00_rb,0.13748e+00_rb /)
+      kbo(:,19,11) = (/ &
+        & 0.11203e+00_rb,0.11247e+00_rb,0.11508e+00_rb,0.11959e+00_rb,0.12521e+00_rb /)
+      kbo(:,20,11) = (/ &
+        & 0.96916e-01_rb,0.99041e-01_rb,0.10318e+00_rb,0.10837e+00_rb,0.11414e+00_rb /)
+      kbo(:,21,11) = (/ &
+        & 0.85382e-01_rb,0.88824e-01_rb,0.93367e-01_rb,0.98603e-01_rb,0.10483e+00_rb /)
+      kbo(:,22,11) = (/ &
+        & 0.76943e-01_rb,0.80844e-01_rb,0.85377e-01_rb,0.90964e-01_rb,0.97503e-01_rb /)
+      kbo(:,23,11) = (/ &
+        & 0.70041e-01_rb,0.74136e-01_rb,0.79065e-01_rb,0.84905e-01_rb,0.92247e-01_rb /)
+      kbo(:,24,11) = (/ &
+        & 0.64133e-01_rb,0.68708e-01_rb,0.74135e-01_rb,0.80762e-01_rb,0.88658e-01_rb /)
+      kbo(:,25,11) = (/ &
+        & 0.59352e-01_rb,0.64474e-01_rb,0.70718e-01_rb,0.78064e-01_rb,0.86394e-01_rb /)
+      kbo(:,26,11) = (/ &
+        & 0.55652e-01_rb,0.61613e-01_rb,0.68607e-01_rb,0.76451e-01_rb,0.85230e-01_rb /)
+      kbo(:,27,11) = (/ &
+        & 0.53058e-01_rb,0.59792e-01_rb,0.67298e-01_rb,0.75623e-01_rb,0.84830e-01_rb /)
+      kbo(:,28,11) = (/ &
+        & 0.51454e-01_rb,0.58747e-01_rb,0.66709e-01_rb,0.75478e-01_rb,0.85111e-01_rb /)
+      kbo(:,29,11) = (/ &
+        & 0.50601e-01_rb,0.58412e-01_rb,0.66813e-01_rb,0.76014e-01_rb,0.86051e-01_rb /)
+      kbo(:,30,11) = (/ &
+        & 0.50412e-01_rb,0.58677e-01_rb,0.67503e-01_rb,0.77079e-01_rb,0.87490e-01_rb /)
+      kbo(:,31,11) = (/ &
+        & 0.50833e-01_rb,0.59491e-01_rb,0.68713e-01_rb,0.78659e-01_rb,0.89405e-01_rb /)
+      kbo(:,32,11) = (/ &
+        & 0.51770e-01_rb,0.60792e-01_rb,0.70497e-01_rb,0.80769e-01_rb,0.91778e-01_rb /)
+      kbo(:,33,11) = (/ &
+        & 0.53128e-01_rb,0.62590e-01_rb,0.72506e-01_rb,0.83033e-01_rb,0.94354e-01_rb /)
+      kbo(:,34,11) = (/ &
+        & 0.54518e-01_rb,0.64238e-01_rb,0.74390e-01_rb,0.85011e-01_rb,0.96530e-01_rb /)
+      kbo(:,35,11) = (/ &
+        & 0.55323e-01_rb,0.65129e-01_rb,0.75324e-01_rb,0.86085e-01_rb,0.97742e-01_rb /)
+      kbo(:,36,11) = (/ &
+        & 0.55103e-01_rb,0.64989e-01_rb,0.75282e-01_rb,0.86060e-01_rb,0.97722e-01_rb /)
+      kbo(:,37,11) = (/ &
+        & 0.53513e-01_rb,0.63398e-01_rb,0.73617e-01_rb,0.84326e-01_rb,0.95934e-01_rb /)
+      kbo(:,38,11) = (/ &
+        & 0.51839e-01_rb,0.61729e-01_rb,0.71975e-01_rb,0.82585e-01_rb,0.94078e-01_rb /)
+      kbo(:,39,11) = (/ &
+        & 0.50239e-01_rb,0.60161e-01_rb,0.70354e-01_rb,0.80923e-01_rb,0.92345e-01_rb /)
+      kbo(:,40,11) = (/ &
+        & 0.47749e-01_rb,0.57519e-01_rb,0.67663e-01_rb,0.78238e-01_rb,0.89341e-01_rb /)
+      kbo(:,41,11) = (/ &
+        & 0.45220e-01_rb,0.54835e-01_rb,0.64881e-01_rb,0.75369e-01_rb,0.86308e-01_rb /)
+      kbo(:,42,11) = (/ &
+        & 0.42768e-01_rb,0.52225e-01_rb,0.62107e-01_rb,0.72467e-01_rb,0.83297e-01_rb /)
+      kbo(:,43,11) = (/ &
+        & 0.39884e-01_rb,0.49090e-01_rb,0.58932e-01_rb,0.69072e-01_rb,0.79690e-01_rb /)
+      kbo(:,44,11) = (/ &
+        & 0.36935e-01_rb,0.45822e-01_rb,0.55523e-01_rb,0.65525e-01_rb,0.76019e-01_rb /)
+      kbo(:,45,11) = (/ &
+        & 0.34132e-01_rb,0.42684e-01_rb,0.52151e-01_rb,0.62095e-01_rb,0.72392e-01_rb /)
+      kbo(:,46,11) = (/ &
+        & 0.31296e-01_rb,0.39456e-01_rb,0.48596e-01_rb,0.58446e-01_rb,0.68612e-01_rb /)
+      kbo(:,47,11) = (/ &
+        & 0.28352e-01_rb,0.35994e-01_rb,0.44764e-01_rb,0.54432e-01_rb,0.64443e-01_rb /)
+      kbo(:,48,11) = (/ &
+        & 0.25659e-01_rb,0.32738e-01_rb,0.41113e-01_rb,0.50437e-01_rb,0.60364e-01_rb /)
+      kbo(:,49,11) = (/ &
+        & 0.23119e-01_rb,0.29700e-01_rb,0.37617e-01_rb,0.46554e-01_rb,0.56334e-01_rb /)
+      kbo(:,50,11) = (/ &
+        & 0.20913e-01_rb,0.27063e-01_rb,0.34504e-01_rb,0.43055e-01_rb,0.52582e-01_rb /)
+      kbo(:,51,11) = (/ &
+        & 0.18909e-01_rb,0.24701e-01_rb,0.31626e-01_rb,0.39797e-01_rb,0.48997e-01_rb /)
+      kbo(:,52,11) = (/ &
+        & 0.17085e-01_rb,0.22478e-01_rb,0.28924e-01_rb,0.36689e-01_rb,0.45522e-01_rb /)
+      kbo(:,53,11) = (/ &
+        & 0.15363e-01_rb,0.20405e-01_rb,0.26432e-01_rb,0.33725e-01_rb,0.42180e-01_rb /)
+      kbo(:,54,11) = (/ &
+        & 0.13901e-01_rb,0.18604e-01_rb,0.24309e-01_rb,0.31149e-01_rb,0.39236e-01_rb /)
+      kbo(:,55,11) = (/ &
+        & 0.12627e-01_rb,0.16988e-01_rb,0.22381e-01_rb,0.28834e-01_rb,0.36535e-01_rb /)
+      kbo(:,56,11) = (/ &
+        & 0.11410e-01_rb,0.15484e-01_rb,0.20536e-01_rb,0.26668e-01_rb,0.33955e-01_rb /)
+      kbo(:,57,11) = (/ &
+        & 0.10296e-01_rb,0.14074e-01_rb,0.18805e-01_rb,0.24610e-01_rb,0.31477e-01_rb /)
+      kbo(:,58,11) = (/ &
+        & 0.93246e-02_rb,0.12835e-01_rb,0.17266e-01_rb,0.22752e-01_rb,0.29238e-01_rb /)
+      kbo(:,59,11) = (/ &
+        & 0.89562e-02_rb,0.12359e-01_rb,0.16676e-01_rb,0.22030e-01_rb,0.28380e-01_rb /)
+      kbo(:,13,12) = (/ &
+        & 0.46920e+00_rb,0.46679e+00_rb,0.46431e+00_rb,0.46162e+00_rb,0.45841e+00_rb /)
+      kbo(:,14,12) = (/ &
+        & 0.44978e+00_rb,0.44747e+00_rb,0.44532e+00_rb,0.44273e+00_rb,0.44032e+00_rb /)
+      kbo(:,15,12) = (/ &
+        & 0.42273e+00_rb,0.42112e+00_rb,0.41952e+00_rb,0.41793e+00_rb,0.41621e+00_rb /)
+      kbo(:,16,12) = (/ &
+        & 0.39050e+00_rb,0.38973e+00_rb,0.38909e+00_rb,0.38861e+00_rb,0.38845e+00_rb /)
+      kbo(:,17,12) = (/ &
+        & 0.35567e+00_rb,0.35584e+00_rb,0.35648e+00_rb,0.35743e+00_rb,0.35846e+00_rb /)
+      kbo(:,18,12) = (/ &
+        & 0.32023e+00_rb,0.32164e+00_rb,0.32356e+00_rb,0.32582e+00_rb,0.32854e+00_rb /)
+      kbo(:,19,12) = (/ &
+        & 0.28599e+00_rb,0.28851e+00_rb,0.29173e+00_rb,0.29552e+00_rb,0.30048e+00_rb /)
+      kbo(:,20,12) = (/ &
+        & 0.25381e+00_rb,0.25750e+00_rb,0.26208e+00_rb,0.26822e+00_rb,0.27683e+00_rb /)
+      kbo(:,21,12) = (/ &
+        & 0.22440e+00_rb,0.22938e+00_rb,0.23617e+00_rb,0.24559e+00_rb,0.25713e+00_rb /)
+      kbo(:,22,12) = (/ &
+        & 0.19852e+00_rb,0.20554e+00_rb,0.21550e+00_rb,0.22788e+00_rb,0.24207e+00_rb /)
+      kbo(:,23,12) = (/ &
+        & 0.17693e+00_rb,0.18660e+00_rb,0.19922e+00_rb,0.21410e+00_rb,0.23064e+00_rb /)
+      kbo(:,24,12) = (/ &
+        & 0.16009e+00_rb,0.17209e+00_rb,0.18673e+00_rb,0.20389e+00_rb,0.22257e+00_rb /)
+      kbo(:,25,12) = (/ &
+        & 0.14745e+00_rb,0.16127e+00_rb,0.17793e+00_rb,0.19685e+00_rb,0.21752e+00_rb /)
+      kbo(:,26,12) = (/ &
+        & 0.13842e+00_rb,0.15401e+00_rb,0.17237e+00_rb,0.19313e+00_rb,0.21550e+00_rb /)
+      kbo(:,27,12) = (/ &
+        & 0.13240e+00_rb,0.14962e+00_rb,0.16961e+00_rb,0.19199e+00_rb,0.21568e+00_rb /)
+      kbo(:,28,12) = (/ &
+        & 0.12889e+00_rb,0.14761e+00_rb,0.16917e+00_rb,0.19286e+00_rb,0.21743e+00_rb /)
+      kbo(:,29,12) = (/ &
+        & 0.12765e+00_rb,0.14781e+00_rb,0.17068e+00_rb,0.19527e+00_rb,0.22046e+00_rb /)
+      kbo(:,30,12) = (/ &
+        & 0.12821e+00_rb,0.14964e+00_rb,0.17352e+00_rb,0.19873e+00_rb,0.22436e+00_rb /)
+      kbo(:,31,12) = (/ &
+        & 0.13031e+00_rb,0.15282e+00_rb,0.17742e+00_rb,0.20308e+00_rb,0.22902e+00_rb /)
+      kbo(:,32,12) = (/ &
+        & 0.13354e+00_rb,0.15691e+00_rb,0.18189e+00_rb,0.20791e+00_rb,0.23394e+00_rb /)
+      kbo(:,33,12) = (/ &
+        & 0.13759e+00_rb,0.16158e+00_rb,0.18710e+00_rb,0.21336e+00_rb,0.23934e+00_rb /)
+      kbo(:,34,12) = (/ &
+        & 0.14143e+00_rb,0.16592e+00_rb,0.19181e+00_rb,0.21830e+00_rb,0.24425e+00_rb /)
+      kbo(:,35,12) = (/ &
+        & 0.14328e+00_rb,0.16813e+00_rb,0.19433e+00_rb,0.22092e+00_rb,0.24688e+00_rb /)
+      kbo(:,36,12) = (/ &
+        & 0.14288e+00_rb,0.16783e+00_rb,0.19405e+00_rb,0.22076e+00_rb,0.24684e+00_rb /)
+      kbo(:,37,12) = (/ &
+        & 0.13900e+00_rb,0.16377e+00_rb,0.19000e+00_rb,0.21677e+00_rb,0.24302e+00_rb /)
+      kbo(:,38,12) = (/ &
+        & 0.13517e+00_rb,0.15969e+00_rb,0.18575e+00_rb,0.21259e+00_rb,0.23902e+00_rb /)
+      kbo(:,39,12) = (/ &
+        & 0.13148e+00_rb,0.15568e+00_rb,0.18162e+00_rb,0.20849e+00_rb,0.23507e+00_rb /)
+      kbo(:,40,12) = (/ &
+        & 0.12553e+00_rb,0.14932e+00_rb,0.17494e+00_rb,0.20171e+00_rb,0.22853e+00_rb /)
+      kbo(:,41,12) = (/ &
+        & 0.11952e+00_rb,0.14280e+00_rb,0.16803e+00_rb,0.19459e+00_rb,0.22156e+00_rb /)
+      kbo(:,42,12) = (/ &
+        & 0.11373e+00_rb,0.13636e+00_rb,0.16129e+00_rb,0.18763e+00_rb,0.21464e+00_rb /)
+      kbo(:,43,12) = (/ &
+        & 0.10701e+00_rb,0.12880e+00_rb,0.15312e+00_rb,0.17916e+00_rb,0.20617e+00_rb /)
+      kbo(:,44,12) = (/ &
+        & 0.10010e+00_rb,0.12097e+00_rb,0.14449e+00_rb,0.17006e+00_rb,0.19689e+00_rb /)
+      kbo(:,45,12) = (/ &
+        & 0.93559e-01_rb,0.11347e+00_rb,0.13614e+00_rb,0.16117e+00_rb,0.18764e+00_rb /)
+      kbo(:,46,12) = (/ &
+        & 0.86985e-01_rb,0.10587e+00_rb,0.12759e+00_rb,0.15183e+00_rb,0.17790e+00_rb /)
+      kbo(:,47,12) = (/ &
+        & 0.79918e-01_rb,0.97829e-01_rb,0.11842e+00_rb,0.14172e+00_rb,0.16718e+00_rb /)
+      kbo(:,48,12) = (/ &
+        & 0.73127e-01_rb,0.90284e-01_rb,0.10972e+00_rb,0.13198e+00_rb,0.15666e+00_rb /)
+      kbo(:,49,12) = (/ &
+        & 0.66713e-01_rb,0.83137e-01_rb,0.10149e+00_rb,0.12264e+00_rb,0.14642e+00_rb /)
+      kbo(:,50,12) = (/ &
+        & 0.61017e-01_rb,0.76653e-01_rb,0.94210e-01_rb,0.11429e+00_rb,0.13713e+00_rb /)
+      kbo(:,51,12) = (/ &
+        & 0.55806e-01_rb,0.70628e-01_rb,0.87552e-01_rb,0.10658e+00_rb,0.12844e+00_rb /)
+      kbo(:,52,12) = (/ &
+        & 0.50954e-01_rb,0.64939e-01_rb,0.81159e-01_rb,0.99264e-01_rb,0.12011e+00_rb /)
+      kbo(:,53,12) = (/ &
+        & 0.46354e-01_rb,0.59512e-01_rb,0.74951e-01_rb,0.92338e-01_rb,0.11214e+00_rb /)
+      kbo(:,54,12) = (/ &
+        & 0.42433e-01_rb,0.54851e-01_rb,0.69504e-01_rb,0.86317e-01_rb,0.10517e+00_rb /)
+      kbo(:,55,12) = (/ &
+        & 0.38912e-01_rb,0.50588e-01_rb,0.64547e-01_rb,0.80719e-01_rb,0.98779e-01_rb /)
+      kbo(:,56,12) = (/ &
+        & 0.35756e-01_rb,0.46572e-01_rb,0.59794e-01_rb,0.75289e-01_rb,0.92719e-01_rb /)
+      kbo(:,57,12) = (/ &
+        & 0.32896e-01_rb,0.42811e-01_rb,0.55328e-01_rb,0.70070e-01_rb,0.86950e-01_rb /)
+      kbo(:,58,12) = (/ &
+        & 0.30447e-01_rb,0.39485e-01_rb,0.51269e-01_rb,0.65351e-01_rb,0.81643e-01_rb /)
+      kbo(:,59,12) = (/ &
+        & 0.29531e-01_rb,0.38222e-01_rb,0.49696e-01_rb,0.63514e-01_rb,0.79546e-01_rb /)
+      kbo(:,13,13) = (/ &
+        & 0.87498e+00_rb,0.87414e+00_rb,0.87195e+00_rb,0.86869e+00_rb,0.86437e+00_rb /)
+      kbo(:,14,13) = (/ &
+        & 0.90060e+00_rb,0.89974e+00_rb,0.89734e+00_rb,0.89423e+00_rb,0.88971e+00_rb /)
+      kbo(:,15,13) = (/ &
+        & 0.91305e+00_rb,0.91211e+00_rb,0.91072e+00_rb,0.90792e+00_rb,0.90457e+00_rb /)
+      kbo(:,16,13) = (/ &
+        & 0.91218e+00_rb,0.91265e+00_rb,0.91216e+00_rb,0.91150e+00_rb,0.90908e+00_rb /)
+      kbo(:,17,13) = (/ &
+        & 0.89877e+00_rb,0.90187e+00_rb,0.90414e+00_rb,0.90531e+00_rb,0.90588e+00_rb /)
+      kbo(:,18,13) = (/ &
+        & 0.87718e+00_rb,0.88256e+00_rb,0.88815e+00_rb,0.89271e+00_rb,0.89636e+00_rb /)
+      kbo(:,19,13) = (/ &
+        & 0.84784e+00_rb,0.85815e+00_rb,0.86718e+00_rb,0.87552e+00_rb,0.88267e+00_rb /)
+      kbo(:,20,13) = (/ &
+        & 0.81552e+00_rb,0.83012e+00_rb,0.84379e+00_rb,0.85649e+00_rb,0.86736e+00_rb /)
+      kbo(:,21,13) = (/ &
+        & 0.78216e+00_rb,0.80141e+00_rb,0.82018e+00_rb,0.83708e+00_rb,0.85197e+00_rb /)
+      kbo(:,22,13) = (/ &
+        & 0.75119e+00_rb,0.77590e+00_rb,0.79904e+00_rb,0.81994e+00_rb,0.83870e+00_rb /)
+      kbo(:,23,13) = (/ &
+        & 0.72390e+00_rb,0.75373e+00_rb,0.78079e+00_rb,0.80579e+00_rb,0.82760e+00_rb /)
+      kbo(:,24,13) = (/ &
+        & 0.70145e+00_rb,0.73523e+00_rb,0.76640e+00_rb,0.79456e+00_rb,0.81899e+00_rb /)
+      kbo(:,25,13) = (/ &
+        & 0.68406e+00_rb,0.72159e+00_rb,0.75604e+00_rb,0.78669e+00_rb,0.81321e+00_rb /)
+      kbo(:,26,13) = (/ &
+        & 0.67200e+00_rb,0.71253e+00_rb,0.74968e+00_rb,0.78214e+00_rb,0.81015e+00_rb /)
+      kbo(:,27,13) = (/ &
+        & 0.66447e+00_rb,0.70740e+00_rb,0.74639e+00_rb,0.77996e+00_rb,0.80903e+00_rb /)
+      kbo(:,28,13) = (/ &
+        & 0.66095e+00_rb,0.70586e+00_rb,0.74565e+00_rb,0.77995e+00_rb,0.80973e+00_rb /)
+      kbo(:,29,13) = (/ &
+        & 0.66138e+00_rb,0.70727e+00_rb,0.74725e+00_rb,0.78204e+00_rb,0.81205e+00_rb /)
+      kbo(:,30,13) = (/ &
+        & 0.66437e+00_rb,0.71055e+00_rb,0.75066e+00_rb,0.78572e+00_rb,0.81538e+00_rb /)
+      kbo(:,31,13) = (/ &
+        & 0.66969e+00_rb,0.71558e+00_rb,0.75561e+00_rb,0.79049e+00_rb,0.81954e+00_rb /)
+      kbo(:,32,13) = (/ &
+        & 0.67664e+00_rb,0.72206e+00_rb,0.76182e+00_rb,0.79609e+00_rb,0.82431e+00_rb /)
+      kbo(:,33,13) = (/ &
+        & 0.68486e+00_rb,0.72960e+00_rb,0.76872e+00_rb,0.80214e+00_rb,0.82949e+00_rb /)
+      kbo(:,34,13) = (/ &
+        & 0.69234e+00_rb,0.73624e+00_rb,0.77485e+00_rb,0.80729e+00_rb,0.83397e+00_rb /)
+      kbo(:,35,13) = (/ &
+        & 0.69580e+00_rb,0.73958e+00_rb,0.77791e+00_rb,0.80990e+00_rb,0.83618e+00_rb /)
+      kbo(:,36,13) = (/ &
+        & 0.69461e+00_rb,0.73878e+00_rb,0.77738e+00_rb,0.80959e+00_rb,0.83608e+00_rb /)
+      kbo(:,37,13) = (/ &
+        & 0.68652e+00_rb,0.73194e+00_rb,0.77165e+00_rb,0.80500e+00_rb,0.83229e+00_rb /)
+      kbo(:,38,13) = (/ &
+        & 0.67804e+00_rb,0.72484e+00_rb,0.76560e+00_rb,0.80009e+00_rb,0.82834e+00_rb /)
+      kbo(:,39,13) = (/ &
+        & 0.66970e+00_rb,0.71778e+00_rb,0.75963e+00_rb,0.79504e+00_rb,0.82429e+00_rb /)
+      kbo(:,40,13) = (/ &
+        & 0.65605e+00_rb,0.70590e+00_rb,0.74946e+00_rb,0.78658e+00_rb,0.81742e+00_rb /)
+      kbo(:,41,13) = (/ &
+        & 0.64137e+00_rb,0.69306e+00_rb,0.73837e+00_rb,0.77717e+00_rb,0.80985e+00_rb /)
+      kbo(:,42,13) = (/ &
+        & 0.62638e+00_rb,0.67987e+00_rb,0.72699e+00_rb,0.76756e+00_rb,0.80186e+00_rb /)
+      kbo(:,43,13) = (/ &
+        & 0.60761e+00_rb,0.66320e+00_rb,0.71239e+00_rb,0.75526e+00_rb,0.79130e+00_rb /)
+      kbo(:,44,13) = (/ &
+        & 0.58682e+00_rb,0.64468e+00_rb,0.69616e+00_rb,0.74131e+00_rb,0.77948e+00_rb /)
+      kbo(:,45,13) = (/ &
+        & 0.56554e+00_rb,0.62545e+00_rb,0.67917e+00_rb,0.72630e+00_rb,0.76697e+00_rb /)
+      kbo(:,46,13) = (/ &
+        & 0.54212e+00_rb,0.60419e+00_rb,0.66020e+00_rb,0.70997e+00_rb,0.75300e+00_rb /)
+      kbo(:,47,13) = (/ &
+        & 0.51537e+00_rb,0.57955e+00_rb,0.63814e+00_rb,0.69060e+00_rb,0.73632e+00_rb /)
+      kbo(:,48,13) = (/ &
+        & 0.48823e+00_rb,0.55406e+00_rb,0.61515e+00_rb,0.67007e+00_rb,0.71851e+00_rb /)
+      kbo(:,49,13) = (/ &
+        & 0.46082e+00_rb,0.52769e+00_rb,0.59101e+00_rb,0.64854e+00_rb,0.69978e+00_rb /)
+      kbo(:,50,13) = (/ &
+        & 0.43478e+00_rb,0.50249e+00_rb,0.56761e+00_rb,0.62745e+00_rb,0.68113e+00_rb /)
+      kbo(:,51,13) = (/ &
+        & 0.40951e+00_rb,0.47777e+00_rb,0.54418e+00_rb,0.60613e+00_rb,0.66212e+00_rb /)
+      kbo(:,52,13) = (/ &
+        & 0.38439e+00_rb,0.45288e+00_rb,0.52007e+00_rb,0.58405e+00_rb,0.64238e+00_rb /)
+      kbo(:,53,13) = (/ &
+        & 0.35936e+00_rb,0.42773e+00_rb,0.49564e+00_rb,0.56121e+00_rb,0.62177e+00_rb /)
+      kbo(:,54,13) = (/ &
+        & 0.33659e+00_rb,0.40461e+00_rb,0.47296e+00_rb,0.53959e+00_rb,0.60208e+00_rb /)
+      kbo(:,55,13) = (/ &
+        & 0.31505e+00_rb,0.38259e+00_rb,0.45108e+00_rb,0.51845e+00_rb,0.58256e+00_rb /)
+      kbo(:,56,13) = (/ &
+        & 0.29381e+00_rb,0.36074e+00_rb,0.42910e+00_rb,0.49702e+00_rb,0.56263e+00_rb /)
+      kbo(:,57,13) = (/ &
+        & 0.27284e+00_rb,0.33897e+00_rb,0.40701e+00_rb,0.47542e+00_rb,0.54206e+00_rb /)
+      kbo(:,58,13) = (/ &
+        & 0.25321e+00_rb,0.31859e+00_rb,0.38622e+00_rb,0.45477e+00_rb,0.52205e+00_rb /)
+      kbo(:,59,13) = (/ &
+        & 0.24543e+00_rb,0.31049e+00_rb,0.37793e+00_rb,0.44646e+00_rb,0.51396e+00_rb /)
+      kbo(:,13,14) = (/ &
+        & 0.17373e+01_rb,0.17393e+01_rb,0.17383e+01_rb,0.17344e+01_rb,0.17279e+01_rb /)
+      kbo(:,14,14) = (/ &
+        & 0.18339e+01_rb,0.18343e+01_rb,0.18325e+01_rb,0.18267e+01_rb,0.18189e+01_rb /)
+      kbo(:,15,14) = (/ &
+        & 0.19299e+01_rb,0.19296e+01_rb,0.19248e+01_rb,0.19184e+01_rb,0.19080e+01_rb /)
+      kbo(:,16,14) = (/ &
+        & 0.20259e+01_rb,0.20224e+01_rb,0.20169e+01_rb,0.20066e+01_rb,0.19945e+01_rb /)
+      kbo(:,17,14) = (/ &
+        & 0.21175e+01_rb,0.21127e+01_rb,0.21039e+01_rb,0.20921e+01_rb,0.20768e+01_rb /)
+      kbo(:,18,14) = (/ &
+        & 0.22042e+01_rb,0.21972e+01_rb,0.21859e+01_rb,0.21721e+01_rb,0.21537e+01_rb /)
+      kbo(:,19,14) = (/ &
+        & 0.22848e+01_rb,0.22747e+01_rb,0.22622e+01_rb,0.22448e+01_rb,0.22240e+01_rb /)
+      kbo(:,20,14) = (/ &
+        & 0.23560e+01_rb,0.23462e+01_rb,0.23302e+01_rb,0.23098e+01_rb,0.22867e+01_rb /)
+      kbo(:,21,14) = (/ &
+        & 0.24183e+01_rb,0.24082e+01_rb,0.23905e+01_rb,0.23680e+01_rb,0.23418e+01_rb /)
+      kbo(:,22,14) = (/ &
+        & 0.24717e+01_rb,0.24598e+01_rb,0.24413e+01_rb,0.24169e+01_rb,0.23867e+01_rb /)
+      kbo(:,23,14) = (/ &
+        & 0.25171e+01_rb,0.25034e+01_rb,0.24840e+01_rb,0.24570e+01_rb,0.24242e+01_rb /)
+      kbo(:,24,14) = (/ &
+        & 0.25547e+01_rb,0.25403e+01_rb,0.25194e+01_rb,0.24898e+01_rb,0.24547e+01_rb /)
+      kbo(:,25,14) = (/ &
+        & 0.25855e+01_rb,0.25703e+01_rb,0.25468e+01_rb,0.25156e+01_rb,0.24784e+01_rb /)
+      kbo(:,26,14) = (/ &
+        & 0.26110e+01_rb,0.25944e+01_rb,0.25683e+01_rb,0.25352e+01_rb,0.24957e+01_rb /)
+      kbo(:,27,14) = (/ &
+        & 0.26319e+01_rb,0.26130e+01_rb,0.25843e+01_rb,0.25495e+01_rb,0.25077e+01_rb /)
+      kbo(:,28,14) = (/ &
+        & 0.26480e+01_rb,0.26264e+01_rb,0.25959e+01_rb,0.25590e+01_rb,0.25150e+01_rb /)
+      kbo(:,29,14) = (/ &
+        & 0.26603e+01_rb,0.26355e+01_rb,0.26036e+01_rb,0.25644e+01_rb,0.25186e+01_rb /)
+      kbo(:,30,14) = (/ &
+        & 0.26690e+01_rb,0.26417e+01_rb,0.26076e+01_rb,0.25661e+01_rb,0.25188e+01_rb /)
+      kbo(:,31,14) = (/ &
+        & 0.26742e+01_rb,0.26446e+01_rb,0.26086e+01_rb,0.25648e+01_rb,0.25163e+01_rb /)
+      kbo(:,32,14) = (/ &
+        & 0.26768e+01_rb,0.26452e+01_rb,0.26068e+01_rb,0.25609e+01_rb,0.25113e+01_rb /)
+      kbo(:,33,14) = (/ &
+        & 0.26771e+01_rb,0.26434e+01_rb,0.26028e+01_rb,0.25551e+01_rb,0.25044e+01_rb /)
+      kbo(:,34,14) = (/ &
+        & 0.26762e+01_rb,0.26409e+01_rb,0.25981e+01_rb,0.25494e+01_rb,0.24981e+01_rb /)
+      kbo(:,35,14) = (/ &
+        & 0.26773e+01_rb,0.26407e+01_rb,0.25970e+01_rb,0.25475e+01_rb,0.24957e+01_rb /)
+      kbo(:,36,14) = (/ &
+        & 0.26808e+01_rb,0.26440e+01_rb,0.25999e+01_rb,0.25501e+01_rb,0.24981e+01_rb /)
+      kbo(:,37,14) = (/ &
+        & 0.26888e+01_rb,0.26526e+01_rb,0.26095e+01_rb,0.25599e+01_rb,0.25079e+01_rb /)
+      kbo(:,38,14) = (/ &
+        & 0.26963e+01_rb,0.26609e+01_rb,0.26186e+01_rb,0.25695e+01_rb,0.25177e+01_rb /)
+      kbo(:,39,14) = (/ &
+        & 0.27030e+01_rb,0.26686e+01_rb,0.26272e+01_rb,0.25787e+01_rb,0.25269e+01_rb /)
+      kbo(:,40,14) = (/ &
+        & 0.27118e+01_rb,0.26792e+01_rb,0.26399e+01_rb,0.25927e+01_rb,0.25414e+01_rb /)
+      kbo(:,41,14) = (/ &
+        & 0.27201e+01_rb,0.26898e+01_rb,0.26520e+01_rb,0.26068e+01_rb,0.25561e+01_rb /)
+      kbo(:,42,14) = (/ &
+        & 0.27274e+01_rb,0.27000e+01_rb,0.26636e+01_rb,0.26203e+01_rb,0.25704e+01_rb /)
+      kbo(:,43,14) = (/ &
+        & 0.27341e+01_rb,0.27108e+01_rb,0.26767e+01_rb,0.26357e+01_rb,0.25871e+01_rb /)
+      kbo(:,44,14) = (/ &
+        & 0.27398e+01_rb,0.27209e+01_rb,0.26898e+01_rb,0.26513e+01_rb,0.26050e+01_rb /)
+      kbo(:,45,14) = (/ &
+        & 0.27435e+01_rb,0.27298e+01_rb,0.27021e+01_rb,0.26655e+01_rb,0.26220e+01_rb /)
+      kbo(:,46,14) = (/ &
+        & 0.27454e+01_rb,0.27371e+01_rb,0.27139e+01_rb,0.26799e+01_rb,0.26391e+01_rb /)
+      kbo(:,47,14) = (/ &
+        & 0.27460e+01_rb,0.27424e+01_rb,0.27253e+01_rb,0.26950e+01_rb,0.26569e+01_rb /)
+      kbo(:,48,14) = (/ &
+        & 0.27436e+01_rb,0.27457e+01_rb,0.27342e+01_rb,0.27088e+01_rb,0.26736e+01_rb /)
+      kbo(:,49,14) = (/ &
+        & 0.27370e+01_rb,0.27470e+01_rb,0.27411e+01_rb,0.27207e+01_rb,0.26888e+01_rb /)
+      kbo(:,50,14) = (/ &
+        & 0.27269e+01_rb,0.27459e+01_rb,0.27451e+01_rb,0.27305e+01_rb,0.27022e+01_rb /)
+      kbo(:,51,14) = (/ &
+        & 0.27139e+01_rb,0.27424e+01_rb,0.27470e+01_rb,0.27377e+01_rb,0.27140e+01_rb /)
+      kbo(:,52,14) = (/ &
+        & 0.26965e+01_rb,0.27350e+01_rb,0.27474e+01_rb,0.27429e+01_rb,0.27243e+01_rb /)
+      kbo(:,53,14) = (/ &
+        & 0.26758e+01_rb,0.27241e+01_rb,0.27457e+01_rb,0.27461e+01_rb,0.27331e+01_rb /)
+      kbo(:,54,14) = (/ &
+        & 0.26529e+01_rb,0.27108e+01_rb,0.27417e+01_rb,0.27475e+01_rb,0.27393e+01_rb /)
+      kbo(:,55,14) = (/ &
+        & 0.26271e+01_rb,0.26955e+01_rb,0.27349e+01_rb,0.27476e+01_rb,0.27437e+01_rb /)
+      kbo(:,56,14) = (/ &
+        & 0.25970e+01_rb,0.26775e+01_rb,0.27251e+01_rb,0.27462e+01_rb,0.27464e+01_rb /)
+      kbo(:,57,14) = (/ &
+        & 0.25617e+01_rb,0.26559e+01_rb,0.27125e+01_rb,0.27426e+01_rb,0.27477e+01_rb /)
+      kbo(:,58,14) = (/ &
+        & 0.25247e+01_rb,0.26320e+01_rb,0.26988e+01_rb,0.27363e+01_rb,0.27482e+01_rb /)
+      kbo(:,59,14) = (/ &
+        & 0.25089e+01_rb,0.26212e+01_rb,0.26923e+01_rb,0.27333e+01_rb,0.27480e+01_rb /)
+      kbo(:,13,15) = (/ &
+        & 0.36859e+01_rb,0.36950e+01_rb,0.36942e+01_rb,0.36830e+01_rb,0.36649e+01_rb /)
+      kbo(:,14,15) = (/ &
+        & 0.41563e+01_rb,0.41556e+01_rb,0.41430e+01_rb,0.41233e+01_rb,0.40913e+01_rb /)
+      kbo(:,15,15) = (/ &
+        & 0.46342e+01_rb,0.46206e+01_rb,0.45970e+01_rb,0.45604e+01_rb,0.45153e+01_rb /)
+      kbo(:,16,15) = (/ &
+        & 0.51044e+01_rb,0.50788e+01_rb,0.50384e+01_rb,0.49882e+01_rb,0.49250e+01_rb /)
+      kbo(:,17,15) = (/ &
+        & 0.55612e+01_rb,0.55175e+01_rb,0.54618e+01_rb,0.53932e+01_rb,0.53123e+01_rb /)
+      kbo(:,18,15) = (/ &
+        & 0.59883e+01_rb,0.59323e+01_rb,0.58578e+01_rb,0.57682e+01_rb,0.56700e+01_rb /)
+      kbo(:,19,15) = (/ &
+        & 0.63852e+01_rb,0.63106e+01_rb,0.62177e+01_rb,0.61123e+01_rb,0.59947e+01_rb /)
+      kbo(:,20,15) = (/ &
+        & 0.67473e+01_rb,0.66496e+01_rb,0.65407e+01_rb,0.64159e+01_rb,0.62789e+01_rb /)
+      kbo(:,21,15) = (/ &
+        & 0.70720e+01_rb,0.69522e+01_rb,0.68220e+01_rb,0.66792e+01_rb,0.65258e+01_rb /)
+      kbo(:,22,15) = (/ &
+        & 0.73512e+01_rb,0.72082e+01_rb,0.70565e+01_rb,0.68942e+01_rb,0.67258e+01_rb /)
+      kbo(:,23,15) = (/ &
+        & 0.75866e+01_rb,0.74239e+01_rb,0.72515e+01_rb,0.70718e+01_rb,0.68886e+01_rb /)
+      kbo(:,24,15) = (/ &
+        & 0.77818e+01_rb,0.75993e+01_rb,0.74076e+01_rb,0.72128e+01_rb,0.70154e+01_rb /)
+      kbo(:,25,15) = (/ &
+        & 0.79381e+01_rb,0.77379e+01_rb,0.75298e+01_rb,0.73205e+01_rb,0.71111e+01_rb /)
+      kbo(:,26,15) = (/ &
+        & 0.80556e+01_rb,0.78384e+01_rb,0.76185e+01_rb,0.73961e+01_rb,0.71755e+01_rb /)
+      kbo(:,27,15) = (/ &
+        & 0.81409e+01_rb,0.79095e+01_rb,0.76795e+01_rb,0.74472e+01_rb,0.72174e+01_rb /)
+      kbo(:,28,15) = (/ &
+        & 0.81987e+01_rb,0.79569e+01_rb,0.77176e+01_rb,0.74766e+01_rb,0.72412e+01_rb /)
+      kbo(:,29,15) = (/ &
+        & 0.82302e+01_rb,0.79809e+01_rb,0.77337e+01_rb,0.74875e+01_rb,0.72468e+01_rb /)
+      kbo(:,30,15) = (/ &
+        & 0.82419e+01_rb,0.79875e+01_rb,0.77343e+01_rb,0.74825e+01_rb,0.72390e+01_rb /)
+      kbo(:,31,15) = (/ &
+        & 0.82369e+01_rb,0.79780e+01_rb,0.77201e+01_rb,0.74661e+01_rb,0.72183e+01_rb /)
+      kbo(:,32,15) = (/ &
+        & 0.82187e+01_rb,0.79550e+01_rb,0.76944e+01_rb,0.74386e+01_rb,0.71874e+01_rb /)
+      kbo(:,33,15) = (/ &
+        & 0.81889e+01_rb,0.79220e+01_rb,0.76592e+01_rb,0.74026e+01_rb,0.71493e+01_rb /)
+      kbo(:,34,15) = (/ &
+        & 0.81602e+01_rb,0.78912e+01_rb,0.76262e+01_rb,0.73693e+01_rb,0.71134e+01_rb /)
+      kbo(:,35,15) = (/ &
+        & 0.81506e+01_rb,0.78799e+01_rb,0.76144e+01_rb,0.73562e+01_rb,0.70988e+01_rb /)
+      kbo(:,36,15) = (/ &
+        & 0.81664e+01_rb,0.78930e+01_rb,0.76263e+01_rb,0.73664e+01_rb,0.71072e+01_rb /)
+      kbo(:,37,15) = (/ &
+        & 0.82200e+01_rb,0.79452e+01_rb,0.76751e+01_rb,0.74132e+01_rb,0.71537e+01_rb /)
+      kbo(:,38,15) = (/ &
+        & 0.82730e+01_rb,0.79962e+01_rb,0.77251e+01_rb,0.74606e+01_rb,0.72002e+01_rb /)
+      kbo(:,39,15) = (/ &
+        & 0.83243e+01_rb,0.80459e+01_rb,0.77713e+01_rb,0.75063e+01_rb,0.72452e+01_rb /)
+      kbo(:,40,15) = (/ &
+        & 0.84027e+01_rb,0.81225e+01_rb,0.78456e+01_rb,0.75775e+01_rb,0.73152e+01_rb /)
+      kbo(:,41,15) = (/ &
+        & 0.84834e+01_rb,0.82013e+01_rb,0.79233e+01_rb,0.76507e+01_rb,0.73874e+01_rb /)
+      kbo(:,42,15) = (/ &
+        & 0.85638e+01_rb,0.82794e+01_rb,0.79999e+01_rb,0.77248e+01_rb,0.74594e+01_rb /)
+      kbo(:,43,15) = (/ &
+        & 0.86608e+01_rb,0.83728e+01_rb,0.80910e+01_rb,0.78137e+01_rb,0.75464e+01_rb /)
+      kbo(:,44,15) = (/ &
+        & 0.87658e+01_rb,0.84741e+01_rb,0.81903e+01_rb,0.79102e+01_rb,0.76390e+01_rb /)
+      kbo(:,45,15) = (/ &
+        & 0.88709e+01_rb,0.85747e+01_rb,0.82886e+01_rb,0.80079e+01_rb,0.77318e+01_rb /)
+      kbo(:,46,15) = (/ &
+        & 0.89828e+01_rb,0.86839e+01_rb,0.83945e+01_rb,0.81115e+01_rb,0.78321e+01_rb /)
+      kbo(:,47,15) = (/ &
+        & 0.91067e+01_rb,0.88066e+01_rb,0.85118e+01_rb,0.82270e+01_rb,0.79459e+01_rb /)
+      kbo(:,48,15) = (/ &
+        & 0.92318e+01_rb,0.89292e+01_rb,0.86312e+01_rb,0.83427e+01_rb,0.80595e+01_rb /)
+      kbo(:,49,15) = (/ &
+        & 0.93597e+01_rb,0.90533e+01_rb,0.87516e+01_rb,0.84602e+01_rb,0.81749e+01_rb /)
+      kbo(:,50,15) = (/ &
+        & 0.94828e+01_rb,0.91681e+01_rb,0.88667e+01_rb,0.85700e+01_rb,0.82833e+01_rb /)
+      kbo(:,51,15) = (/ &
+        & 0.96031e+01_rb,0.92821e+01_rb,0.89785e+01_rb,0.86778e+01_rb,0.83878e+01_rb /)
+      kbo(:,52,15) = (/ &
+        & 0.97227e+01_rb,0.93978e+01_rb,0.90892e+01_rb,0.87879e+01_rb,0.84938e+01_rb /)
+      kbo(:,53,15) = (/ &
+        & 0.98436e+01_rb,0.95182e+01_rb,0.92014e+01_rb,0.88988e+01_rb,0.86011e+01_rb /)
+      kbo(:,54,15) = (/ &
+        & 0.99573e+01_rb,0.96274e+01_rb,0.93049e+01_rb,0.90008e+01_rb,0.87001e+01_rb /)
+      kbo(:,55,15) = (/ &
+        & 0.10066e+02_rb,0.97327e+01_rb,0.94075e+01_rb,0.90983e+01_rb,0.87962e+01_rb /)
+      kbo(:,56,15) = (/ &
+        & 0.10177e+02_rb,0.98378e+01_rb,0.95127e+01_rb,0.91960e+01_rb,0.88926e+01_rb /)
+      kbo(:,57,15) = (/ &
+        & 0.10293e+02_rb,0.99462e+01_rb,0.96173e+01_rb,0.92949e+01_rb,0.89909e+01_rb /)
+      kbo(:,58,15) = (/ &
+        & 0.10405e+02_rb,0.10049e+02_rb,0.97160e+01_rb,0.93909e+01_rb,0.90821e+01_rb /)
+      kbo(:,59,15) = (/ &
+        & 0.10450e+02_rb,0.10090e+02_rb,0.97556e+01_rb,0.94305e+01_rb,0.91193e+01_rb /)
+      kbo(:,13,16) = (/ &
+        & 0.50473e+01_rb,0.50398e+01_rb,0.50183e+01_rb,0.49834e+01_rb,0.49369e+01_rb /)
+      kbo(:,14,16) = (/ &
+        & 0.59220e+01_rb,0.58911e+01_rb,0.58423e+01_rb,0.57748e+01_rb,0.56924e+01_rb /)
+      kbo(:,15,16) = (/ &
+        & 0.68737e+01_rb,0.68078e+01_rb,0.67189e+01_rb,0.66072e+01_rb,0.64839e+01_rb /)
+      kbo(:,16,16) = (/ &
+        & 0.78824e+01_rb,0.77694e+01_rb,0.76268e+01_rb,0.74643e+01_rb,0.72894e+01_rb /)
+      kbo(:,17,16) = (/ &
+        & 0.89270e+01_rb,0.87413e+01_rb,0.85370e+01_rb,0.83130e+01_rb,0.80798e+01_rb /)
+      kbo(:,18,16) = (/ &
+        & 0.99711e+01_rb,0.97011e+01_rb,0.94250e+01_rb,0.91345e+01_rb,0.88363e+01_rb /)
+      kbo(:,19,16) = (/ &
+        & 0.10989e+02_rb,0.10627e+02_rb,0.10268e+02_rb,0.99076e+01_rb,0.95430e+01_rb /)
+      kbo(:,20,16) = (/ &
+        & 0.11944e+02_rb,0.11487e+02_rb,0.11042e+02_rb,0.10609e+02_rb,0.10177e+02_rb /)
+      kbo(:,21,16) = (/ &
+        & 0.12817e+02_rb,0.12265e+02_rb,0.11737e+02_rb,0.11232e+02_rb,0.10736e+02_rb /)
+      kbo(:,22,16) = (/ &
+        & 0.13548e+02_rb,0.12914e+02_rb,0.12305e+02_rb,0.11734e+02_rb,0.11183e+02_rb /)
+      kbo(:,23,16) = (/ &
+        & 0.14162e+02_rb,0.13448e+02_rb,0.12773e+02_rb,0.12143e+02_rb,0.11545e+02_rb /)
+      kbo(:,24,16) = (/ &
+        & 0.14655e+02_rb,0.13870e+02_rb,0.13141e+02_rb,0.12464e+02_rb,0.11822e+02_rb /)
+      kbo(:,25,16) = (/ &
+        & 0.15031e+02_rb,0.14189e+02_rb,0.13415e+02_rb,0.12699e+02_rb,0.12023e+02_rb /)
+      kbo(:,26,16) = (/ &
+        & 0.15288e+02_rb,0.14405e+02_rb,0.13595e+02_rb,0.12850e+02_rb,0.12149e+02_rb /)
+      kbo(:,27,16) = (/ &
+        & 0.15452e+02_rb,0.14541e+02_rb,0.13705e+02_rb,0.12937e+02_rb,0.12216e+02_rb /)
+      kbo(:,28,16) = (/ &
+        & 0.15538e+02_rb,0.14608e+02_rb,0.13754e+02_rb,0.12971e+02_rb,0.12237e+02_rb /)
+      kbo(:,29,16) = (/ &
+        & 0.15553e+02_rb,0.14613e+02_rb,0.13748e+02_rb,0.12957e+02_rb,0.12214e+02_rb /)
+      kbo(:,30,16) = (/ &
+        & 0.15516e+02_rb,0.14571e+02_rb,0.13703e+02_rb,0.12907e+02_rb,0.12159e+02_rb /)
+      kbo(:,31,16) = (/ &
+        & 0.15433e+02_rb,0.14488e+02_rb,0.13621e+02_rb,0.12822e+02_rb,0.12076e+02_rb /)
+      kbo(:,32,16) = (/ &
+        & 0.15312e+02_rb,0.14373e+02_rb,0.13511e+02_rb,0.12712e+02_rb,0.11970e+02_rb /)
+      kbo(:,33,16) = (/ &
+        & 0.15164e+02_rb,0.14234e+02_rb,0.13378e+02_rb,0.12584e+02_rb,0.11848e+02_rb /)
+      kbo(:,34,16) = (/ &
+        & 0.15029e+02_rb,0.14108e+02_rb,0.13258e+02_rb,0.12470e+02_rb,0.11741e+02_rb /)
+      kbo(:,35,16) = (/ &
+        & 0.14974e+02_rb,0.14055e+02_rb,0.13205e+02_rb,0.12418e+02_rb,0.11691e+02_rb /)
+      kbo(:,36,16) = (/ &
+        & 0.15011e+02_rb,0.14086e+02_rb,0.13232e+02_rb,0.12441e+02_rb,0.11710e+02_rb /)
+      kbo(:,37,16) = (/ &
+        & 0.15186e+02_rb,0.14243e+02_rb,0.13376e+02_rb,0.12573e+02_rb,0.11831e+02_rb /)
+      kbo(:,38,16) = (/ &
+        & 0.15364e+02_rb,0.14405e+02_rb,0.13523e+02_rb,0.12708e+02_rb,0.11955e+02_rb /)
+      kbo(:,39,16) = (/ &
+        & 0.15541e+02_rb,0.14562e+02_rb,0.13666e+02_rb,0.12840e+02_rb,0.12075e+02_rb /)
+      kbo(:,40,16) = (/ &
+        & 0.15818e+02_rb,0.14814e+02_rb,0.13896e+02_rb,0.13052e+02_rb,0.12271e+02_rb /)
+      kbo(:,41,16) = (/ &
+        & 0.16115e+02_rb,0.15082e+02_rb,0.14138e+02_rb,0.13278e+02_rb,0.12478e+02_rb /)
+      kbo(:,42,16) = (/ &
+        & 0.16420e+02_rb,0.15352e+02_rb,0.14384e+02_rb,0.13504e+02_rb,0.12687e+02_rb /)
+      kbo(:,43,16) = (/ &
+        & 0.16793e+02_rb,0.15690e+02_rb,0.14694e+02_rb,0.13784e+02_rb,0.12952e+02_rb /)
+      kbo(:,44,16) = (/ &
+        & 0.17211e+02_rb,0.16062e+02_rb,0.15031e+02_rb,0.14091e+02_rb,0.13236e+02_rb /)
+      kbo(:,45,16) = (/ &
+        & 0.17640e+02_rb,0.16447e+02_rb,0.15376e+02_rb,0.14411e+02_rb,0.13526e+02_rb /)
+      kbo(:,46,16) = (/ &
+        & 0.18112e+02_rb,0.16870e+02_rb,0.15758e+02_rb,0.14754e+02_rb,0.13842e+02_rb /)
+      kbo(:,47,16) = (/ &
+        & 0.18658e+02_rb,0.17363e+02_rb,0.16197e+02_rb,0.15151e+02_rb,0.14204e+02_rb /)
+      kbo(:,48,16) = (/ &
+        & 0.19225e+02_rb,0.17876e+02_rb,0.16658e+02_rb,0.15564e+02_rb,0.14577e+02_rb /)
+      kbo(:,49,16) = (/ &
+        & 0.19824e+02_rb,0.18409e+02_rb,0.17136e+02_rb,0.15993e+02_rb,0.14967e+02_rb /)
+      kbo(:,50,16) = (/ &
+        & 0.20411e+02_rb,0.18926e+02_rb,0.17606e+02_rb,0.16414e+02_rb,0.15344e+02_rb /)
+      kbo(:,51,16) = (/ &
+        & 0.21005e+02_rb,0.19452e+02_rb,0.18077e+02_rb,0.16838e+02_rb,0.15725e+02_rb /)
+      kbo(:,52,16) = (/ &
+        & 0.21646e+02_rb,0.20001e+02_rb,0.18565e+02_rb,0.17278e+02_rb,0.16117e+02_rb /)
+      kbo(:,53,16) = (/ &
+        & 0.22315e+02_rb,0.20576e+02_rb,0.19072e+02_rb,0.17736e+02_rb,0.16529e+02_rb /)
+      kbo(:,54,16) = (/ &
+        & 0.22958e+02_rb,0.21134e+02_rb,0.19557e+02_rb,0.18172e+02_rb,0.16919e+02_rb /)
+      kbo(:,55,16) = (/ &
+        & 0.23603e+02_rb,0.21694e+02_rb,0.20042e+02_rb,0.18600e+02_rb,0.17305e+02_rb /)
+      kbo(:,56,16) = (/ &
+        & 0.24285e+02_rb,0.22278e+02_rb,0.20543e+02_rb,0.19044e+02_rb,0.17707e+02_rb /)
+      kbo(:,57,16) = (/ &
+        & 0.24997e+02_rb,0.22887e+02_rb,0.21074e+02_rb,0.19504e+02_rb,0.18121e+02_rb /)
+      kbo(:,58,16) = (/ &
+        & 0.25697e+02_rb,0.23494e+02_rb,0.21600e+02_rb,0.19961e+02_rb,0.18525e+02_rb /)
+      kbo(:,59,16) = (/ &
+        & 0.25984e+02_rb,0.23748e+02_rb,0.21819e+02_rb,0.20147e+02_rb,0.18689e+02_rb /)
+  
+!     -----------------------------------------------------------------
+
+      forrefo(:, 1) = (/ 0.106275e-05_rb, 0.104185e-05_rb, 0.420154e-05_rb /)
+      forrefo(:, 2) = (/ 0.154343e-05_rb, 0.653193e-05_rb, 0.174596e-04_rb /)
+      forrefo(:, 3) = (/ 0.348917e-05_rb, 0.108420e-04_rb, 0.540849e-04_rb /)
+      forrefo(:, 4) = (/ 0.145822e-04_rb, 0.156027e-04_rb, 0.881263e-04_rb /)
+      forrefo(:, 5) = (/ 0.220204e-04_rb, 0.819892e-04_rb, 0.817937e-04_rb /)
+      forrefo(:, 6) = (/ 0.447840e-04_rb, 0.121116e-03_rb, 0.932635e-04_rb /)
+      forrefo(:, 7) = (/ 0.166516e-03_rb, 0.147640e-03_rb, 0.754029e-04_rb /)
+      forrefo(:, 8) = (/ 0.234756e-03_rb, 0.145934e-03_rb, 0.771734e-04_rb /)
+      forrefo(:, 9) = (/ 0.289207e-03_rb, 0.146768e-03_rb, 0.677806e-04_rb /)
+      forrefo(:,10) = (/ 0.334959e-03_rb, 0.125513e-03_rb, 0.636648e-04_rb /)
+      forrefo(:,11) = (/ 0.333755e-03_rb, 0.136575e-03_rb, 0.593651e-04_rb /)
+      forrefo(:,12) = (/ 0.340042e-03_rb, 0.116259e-03_rb, 0.595192e-04_rb /)
+      forrefo(:,13) = (/ 0.422470e-03_rb, 0.148691e-03_rb, 0.630266e-04_rb /)
+      forrefo(:,14) = (/ 0.440655e-03_rb, 0.461917e-04_rb, 0.108222e-04_rb /)
+      forrefo(:,15) = (/ 0.486207e-03_rb, 0.428458e-03_rb, 0.108086e-04_rb /)
+      forrefo(:,16) = (/ 0.657463e-03_rb, 0.657446e-03_rb, 0.126190e-04_rb /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+     
+      selfrefo(:, 1) = (/ &
+        &  0.331728e-03_rb, 0.287480e-03_rb, 0.249135e-03_rb, 0.215904e-03_rb, 0.187106e-03_rb, &
+        &  0.162149e-03_rb, 0.140520e-03_rb, 0.121777e-03_rb, 0.105534e-03_rb, 0.914573e-04_rb /)
+      selfrefo(:, 2) = (/ &
+        &  0.882628e-03_rb, 0.698914e-03_rb, 0.553439e-03_rb, 0.438244e-03_rb, 0.347026e-03_rb, &
+        &  0.274795e-03_rb, 0.217598e-03_rb, 0.172306e-03_rb, 0.136442e-03_rb, 0.108042e-03_rb /)
+      selfrefo(:, 3) = (/ &
+        &  0.115461e-02_rb, 0.937203e-03_rb, 0.760730e-03_rb, 0.617486e-03_rb, 0.501215e-03_rb, &
+        &  0.406837e-03_rb, 0.330231e-03_rb, 0.268049e-03_rb, 0.217576e-03_rb, 0.176607e-03_rb /)
+      selfrefo(:, 4) = (/ &
+        &  0.103450e-02_rb, 0.960268e-03_rb, 0.891360e-03_rb, 0.827397e-03_rb, 0.768024e-03_rb, &
+        &  0.712911e-03_rb, 0.661754e-03_rb, 0.614267e-03_rb, 0.570188e-03_rb, 0.529272e-03_rb /)
+      selfrefo(:, 5) = (/ &
+        &  0.289040e-02_rb, 0.240129e-02_rb, 0.199495e-02_rb, 0.165737e-02_rb, 0.137692e-02_rb, &
+        &  0.114392e-02_rb, 0.950351e-03_rb, 0.789535e-03_rb, 0.655933e-03_rb, 0.544938e-03_rb /)
+      selfrefo(:, 6) = (/ &
+        &  0.361772e-02_rb, 0.306611e-02_rb, 0.259861e-02_rb, 0.220239e-02_rb, 0.186659e-02_rb, &
+        &  0.158198e-02_rb, 0.134077e-02_rb, 0.113634e-02_rb, 0.963078e-03_rb, 0.816234e-03_rb /)
+      selfrefo(:, 7) = (/ &
+        &  0.329878e-02_rb, 0.318245e-02_rb, 0.307021e-02_rb, 0.296194e-02_rb, 0.285749e-02_rb, &
+        &  0.275671e-02_rb, 0.265950e-02_rb, 0.256571e-02_rb, 0.247522e-02_rb, 0.238793e-02_rb /)
+      selfrefo(:, 8) = (/ &
+        &  0.293562e-02_rb, 0.300077e-02_rb, 0.306737e-02_rb, 0.313544e-02_rb, 0.320503e-02_rb, &
+        &  0.327615e-02_rb, 0.334886e-02_rb, 0.342318e-02_rb, 0.349915e-02_rb, 0.357680e-02_rb /)
+      selfrefo(:, 9) = (/ &
+        &  0.281453e-02_rb, 0.295894e-02_rb, 0.311076e-02_rb, 0.327038e-02_rb, 0.343818e-02_rb, &
+        &  0.361459e-02_rb, 0.380006e-02_rb, 0.399504e-02_rb, 0.420002e-02_rb, 0.441553e-02_rb /)
+      selfrefo(:,10) = (/ &
+        &  0.239488e-02_rb, 0.262487e-02_rb, 0.287696e-02_rb, 0.315325e-02_rb, 0.345607e-02_rb, &
+        &  0.378798e-02_rb, 0.415176e-02_rb, 0.455048e-02_rb, 0.498749e-02_rb, 0.546647e-02_rb /)
+      selfrefo(:,11) = (/ &
+        &  0.271001e-02_rb, 0.292235e-02_rb, 0.315134e-02_rb, 0.339826e-02_rb, 0.366453e-02_rb, &
+        &  0.395167e-02_rb, 0.426131e-02_rb, 0.459521e-02_rb, 0.495527e-02_rb, 0.534354e-02_rb /)
+      selfrefo(:,12) = (/ &
+        &  0.206702e-02_rb, 0.232254e-02_rb, 0.260966e-02_rb, 0.293226e-02_rb, 0.329475e-02_rb, &
+        &  0.370204e-02_rb, 0.415969e-02_rb, 0.467391e-02_rb, 0.525169e-02_rb, 0.590090e-02_rb /)
+      selfrefo(:,13) = (/ &
+        &  0.227023e-02_rb, 0.257331e-02_rb, 0.291685e-02_rb, 0.330626e-02_rb, 0.374766e-02_rb, &
+        &  0.424799e-02_rb, 0.481511e-02_rb, 0.545794e-02_rb, 0.618660e-02_rb, 0.701253e-02_rb /)
+      selfrefo(:,14) = (/ &
+        &  0.851078e-03_rb, 0.111512e-02_rb, 0.146109e-02_rb, 0.191439e-02_rb, 0.250832e-02_rb, &
+        &  0.328653e-02_rb, 0.430617e-02_rb, 0.564215e-02_rb, 0.739261e-02_rb, 0.968616e-02_rb /)
+      selfrefo(:,15) = (/ &
+        &  0.742711e-02_rb, 0.721347e-02_rb, 0.700598e-02_rb, 0.680446e-02_rb, 0.660873e-02_rb, &
+        &  0.641863e-02_rb, 0.623400e-02_rb, 0.605468e-02_rb, 0.588052e-02_rb, 0.571137e-02_rb /)
+      selfrefo(:,16) = (/ &
+        &  0.107170e-01_rb, 0.101913e-01_rb, 0.969138e-02_rb, 0.921599e-02_rb, 0.876392e-02_rb, &
+        &  0.833402e-02_rb, 0.792521e-02_rb, 0.753646e-02_rb, 0.716677e-02_rb, 0.681522e-02_rb /)
+  
+      end subroutine sw_kgb19
+
+! **************************************************************************
+      subroutine sw_kgb20
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg20, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            absch4o, rayl, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:) = (/ &
+        & 9.34081_rb , 8.93720_rb    , 8.19346_rb    , 7.39196_rb    , &
+        & 6.12127_rb , 5.23956_rb    , 4.24941_rb    , 3.20013_rb    , &
+        & 2.16047_rb , 0.234509_rb   , 0.194593_rb   , 0.151512_rb   , &
+        & 0.110315_rb, 7.09959e-02_rb, 2.70573e-02_rb, 3.36042e-03_rb /)
+  
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:) = (/ &
+        & 9.46285E+00_rb, 9.03457E+00_rb, 8.28539E+00_rb, 7.45376E+00_rb,&
+        & 6.22785E+00_rb, 5.31449E+00_rb, 4.30972E+00_rb, 3.24707E+00_rb,&
+        & 2.19831E+00_rb, 2.40488E-01_rb, 1.99681E-01_rb, 1.55534E-01_rb,&
+        & 1.15188E-01_rb, 7.36325E-02_rb, 2.80294E-02_rb, 3.65491E-03_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:) = (/ &
+        &-8.91404E-05_rb,-9.89615E-05_rb,-2.24124E-05_rb,-1.21779E-05_rb,&
+        & 2.35538E-04_rb, 2.42145E-04_rb, 2.06163E-04_rb, 1.57705E-04_rb,&
+        & 1.08664E-04_rb, 1.16879E-05_rb, 9.82254E-06_rb, 7.78829E-06_rb,&
+        & 5.82010E-06_rb, 3.54672E-06_rb, 1.40786E-06_rb, 2.10545E-07_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:) = (/ &
+        &-1.11521E-03_rb,-1.06565E-03_rb,-9.62040E-04_rb,-8.72940E-04_rb,&
+        &-7.21696E-04_rb,-6.20854E-04_rb,-5.02384E-04_rb,-3.78127E-04_rb,&
+        &-2.55249E-04_rb,-2.78498E-05_rb,-2.31155E-05_rb,-1.81892E-05_rb,&
+        &-1.34000E-05_rb,-8.57234E-06_rb,-3.23325E-06_rb,-4.58569E-07_rb/)
+
+      absch4o(:) = (/ &  
+        & 1.01381e-03_rb,6.33692e-03_rb,1.94185e-02_rb,4.83210e-02_rb, &
+        & 2.36574e-03_rb,6.61973e-04_rb,5.64552e-04_rb,2.83183e-04_rb, &
+        & 7.43623e-05_rb,8.90159e-07_rb,6.98728e-07_rb,6.51832e-08_rb, &
+        & 2.96619e-08_rb,         0._rb,         0._rb,         0._rb /)
+
+! Rayleigh extinction coefficient at v = 5670 cm-1.
+      rayl = 4.12e-09_rb
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1) = (/ &
+        & 0.78383e-06_rb,0.86220e-06_rb,0.95359e-06_rb,0.10590e-05_rb,0.11782e-05_rb /)
+      kao(:, 2, 1) = (/ &
+        & 0.65040e-06_rb,0.72510e-06_rb,0.81318e-06_rb,0.90059e-06_rb,0.99786e-06_rb /)
+      kao(:, 3, 1) = (/ &
+        & 0.58072e-06_rb,0.65888e-06_rb,0.74265e-06_rb,0.81854e-06_rb,0.90645e-06_rb /)
+      kao(:, 4, 1) = (/ &
+        & 0.53601e-06_rb,0.60765e-06_rb,0.68088e-06_rb,0.75741e-06_rb,0.83801e-06_rb /)
+      kao(:, 5, 1) = (/ &
+        & 0.50142e-06_rb,0.56951e-06_rb,0.64028e-06_rb,0.71944e-06_rb,0.79813e-06_rb /)
+      kao(:, 6, 1) = (/ &
+        & 0.47164e-06_rb,0.54008e-06_rb,0.61040e-06_rb,0.68006e-06_rb,0.75034e-06_rb /)
+      kao(:, 7, 1) = (/ &
+        & 0.49337e-06_rb,0.56178e-06_rb,0.62215e-06_rb,0.69127e-06_rb,0.76060e-06_rb /)
+      kao(:, 8, 1) = (/ &
+        & 0.61581e-06_rb,0.70117e-06_rb,0.78942e-06_rb,0.87145e-06_rb,0.94647e-06_rb /)
+      kao(:, 9, 1) = (/ &
+        & 0.14154e-05_rb,0.15754e-05_rb,0.17261e-05_rb,0.18739e-05_rb,0.19774e-05_rb /)
+      kao(:,10, 1) = (/ &
+        & 0.34186e-05_rb,0.37012e-05_rb,0.39602e-05_rb,0.42235e-05_rb,0.44256e-05_rb /)
+      kao(:,11, 1) = (/ &
+        & 0.38574e-05_rb,0.42080e-05_rb,0.44701e-05_rb,0.47454e-05_rb,0.50002e-05_rb /)
+      kao(:,12, 1) = (/ &
+        & 0.35794e-05_rb,0.38686e-05_rb,0.41443e-05_rb,0.43939e-05_rb,0.46500e-05_rb /)
+      kao(:,13, 1) = (/ &
+        & 0.29586e-05_rb,0.31938e-05_rb,0.34167e-05_rb,0.36253e-05_rb,0.38250e-05_rb /)
+      kao(:, 1, 2) = (/ &
+        & 0.57098e-05_rb,0.64630e-05_rb,0.73117e-05_rb,0.82436e-05_rb,0.91947e-05_rb /)
+      kao(:, 2, 2) = (/ &
+        & 0.46384e-05_rb,0.53125e-05_rb,0.60301e-05_rb,0.68028e-05_rb,0.75824e-05_rb /)
+      kao(:, 3, 2) = (/ &
+        & 0.40657e-05_rb,0.46486e-05_rb,0.52459e-05_rb,0.58955e-05_rb,0.65546e-05_rb /)
+      kao(:, 4, 2) = (/ &
+        & 0.38895e-05_rb,0.44258e-05_rb,0.49759e-05_rb,0.55663e-05_rb,0.61702e-05_rb /)
+      kao(:, 5, 2) = (/ &
+        & 0.38971e-05_rb,0.44359e-05_rb,0.49933e-05_rb,0.55523e-05_rb,0.61234e-05_rb /)
+      kao(:, 6, 2) = (/ &
+        & 0.39532e-05_rb,0.44644e-05_rb,0.49734e-05_rb,0.54875e-05_rb,0.60102e-05_rb /)
+      kao(:, 7, 2) = (/ &
+        & 0.41068e-05_rb,0.45832e-05_rb,0.50698e-05_rb,0.55521e-05_rb,0.60175e-05_rb /)
+      kao(:, 8, 2) = (/ &
+        & 0.47922e-05_rb,0.52156e-05_rb,0.56817e-05_rb,0.61576e-05_rb,0.66313e-05_rb /)
+      kao(:, 9, 2) = (/ &
+        & 0.83199e-05_rb,0.88317e-05_rb,0.93688e-05_rb,0.99754e-05_rb,0.10620e-04_rb /)
+      kao(:,10, 2) = (/ &
+        & 0.16836e-04_rb,0.18526e-04_rb,0.19887e-04_rb,0.21168e-04_rb,0.22104e-04_rb /)
+      kao(:,11, 2) = (/ &
+        & 0.18882e-04_rb,0.21005e-04_rb,0.22896e-04_rb,0.24777e-04_rb,0.26115e-04_rb /)
+      kao(:,12, 2) = (/ &
+        & 0.17744e-04_rb,0.19780e-04_rb,0.21600e-04_rb,0.23523e-04_rb,0.25128e-04_rb /)
+      kao(:,13, 2) = (/ &
+        & 0.14736e-04_rb,0.16356e-04_rb,0.17955e-04_rb,0.19533e-04_rb,0.20861e-04_rb /)
+      kao(:, 1, 3) = (/ &
+        & 0.41776e-04_rb,0.48150e-04_rb,0.55097e-04_rb,0.62661e-04_rb,0.70920e-04_rb /)
+      kao(:, 2, 3) = (/ &
+        & 0.33909e-04_rb,0.39176e-04_rb,0.44622e-04_rb,0.50754e-04_rb,0.57336e-04_rb /)
+      kao(:, 3, 3) = (/ &
+        & 0.27438e-04_rb,0.31473e-04_rb,0.36122e-04_rb,0.41134e-04_rb,0.46456e-04_rb /)
+      kao(:, 4, 3) = (/ &
+        & 0.23222e-04_rb,0.26535e-04_rb,0.30141e-04_rb,0.34099e-04_rb,0.38416e-04_rb /)
+      kao(:, 5, 3) = (/ &
+        & 0.21114e-04_rb,0.23888e-04_rb,0.26883e-04_rb,0.30340e-04_rb,0.33785e-04_rb /)
+      kao(:, 6, 3) = (/ &
+        & 0.20750e-04_rb,0.22926e-04_rb,0.25536e-04_rb,0.28492e-04_rb,0.31676e-04_rb /)
+      kao(:, 7, 3) = (/ &
+        & 0.21584e-04_rb,0.24112e-04_rb,0.26872e-04_rb,0.29794e-04_rb,0.32940e-04_rb /)
+      kao(:, 8, 3) = (/ &
+        & 0.24194e-04_rb,0.26981e-04_rb,0.30137e-04_rb,0.33546e-04_rb,0.37182e-04_rb /)
+      kao(:, 9, 3) = (/ &
+        & 0.37461e-04_rb,0.42158e-04_rb,0.46718e-04_rb,0.51048e-04_rb,0.55154e-04_rb /)
+      kao(:,10, 3) = (/ &
+        & 0.72391e-04_rb,0.77164e-04_rb,0.84016e-04_rb,0.89658e-04_rb,0.95511e-04_rb /)
+      kao(:,11, 3) = (/ &
+        & 0.91736e-04_rb,0.99107e-04_rb,0.10463e-03_rb,0.10952e-03_rb,0.11549e-03_rb /)
+      kao(:,12, 3) = (/ &
+        & 0.91200e-04_rb,0.98812e-04_rb,0.10432e-03_rb,0.10893e-03_rb,0.11349e-03_rb /)
+      kao(:,13, 3) = (/ &
+        & 0.76217e-04_rb,0.82702e-04_rb,0.87500e-04_rb,0.91349e-04_rb,0.95349e-04_rb /)
+      kao(:, 1, 4) = (/ &
+        & 0.71705e-03_rb,0.82743e-03_rb,0.94700e-03_rb,0.10670e-02_rb,0.11902e-02_rb /)
+      kao(:, 2, 4) = (/ &
+        & 0.57909e-03_rb,0.67096e-03_rb,0.76724e-03_rb,0.86582e-03_rb,0.97167e-03_rb /)
+      kao(:, 3, 4) = (/ &
+        & 0.44771e-03_rb,0.51997e-03_rb,0.59861e-03_rb,0.67967e-03_rb,0.76676e-03_rb /)
+      kao(:, 4, 4) = (/ &
+        & 0.34085e-03_rb,0.39833e-03_rb,0.46226e-03_rb,0.52889e-03_rb,0.60008e-03_rb /)
+      kao(:, 5, 4) = (/ &
+        & 0.26678e-03_rb,0.31234e-03_rb,0.36341e-03_rb,0.41663e-03_rb,0.47418e-03_rb /)
+      kao(:, 6, 4) = (/ &
+        & 0.20903e-03_rb,0.24718e-03_rb,0.28922e-03_rb,0.33353e-03_rb,0.38176e-03_rb /)
+      kao(:, 7, 4) = (/ &
+        & 0.17173e-03_rb,0.20330e-03_rb,0.23711e-03_rb,0.27401e-03_rb,0.31445e-03_rb /)
+      kao(:, 8, 4) = (/ &
+        & 0.16722e-03_rb,0.19396e-03_rb,0.22307e-03_rb,0.25347e-03_rb,0.28561e-03_rb /)
+      kao(:, 9, 4) = (/ &
+        & 0.25043e-03_rb,0.28824e-03_rb,0.32547e-03_rb,0.36193e-03_rb,0.39806e-03_rb /)
+      kao(:,10, 4) = (/ &
+        & 0.43323e-03_rb,0.48667e-03_rb,0.53462e-03_rb,0.57879e-03_rb,0.62040e-03_rb /)
+      kao(:,11, 4) = (/ &
+        & 0.47719e-03_rb,0.52271e-03_rb,0.56402e-03_rb,0.60388e-03_rb,0.63520e-03_rb /)
+      kao(:,12, 4) = (/ &
+        & 0.45061e-03_rb,0.49014e-03_rb,0.52391e-03_rb,0.55276e-03_rb,0.57760e-03_rb /)
+      kao(:,13, 4) = (/ &
+        & 0.37664e-03_rb,0.40952e-03_rb,0.43690e-03_rb,0.46055e-03_rb,0.48018e-03_rb /)
+      kao(:, 1, 5) = (/ &
+        & 0.66466e-02_rb,0.68686e-02_rb,0.70897e-02_rb,0.73019e-02_rb,0.74914e-02_rb /)
+      kao(:, 2, 5) = (/ &
+        & 0.54023e-02_rb,0.56010e-02_rb,0.58008e-02_rb,0.59987e-02_rb,0.61685e-02_rb /)
+      kao(:, 3, 5) = (/ &
+        & 0.43218e-02_rb,0.45127e-02_rb,0.46848e-02_rb,0.48647e-02_rb,0.50267e-02_rb /)
+      kao(:, 4, 5) = (/ &
+        & 0.34639e-02_rb,0.36473e-02_rb,0.37951e-02_rb,0.39570e-02_rb,0.41049e-02_rb /)
+      kao(:, 5, 5) = (/ &
+        & 0.27745e-02_rb,0.29370e-02_rb,0.30754e-02_rb,0.32148e-02_rb,0.33492e-02_rb /)
+      kao(:, 6, 5) = (/ &
+        & 0.22020e-02_rb,0.23520e-02_rb,0.24836e-02_rb,0.25965e-02_rb,0.27119e-02_rb /)
+      kao(:, 7, 5) = (/ &
+        & 0.17624e-02_rb,0.18963e-02_rb,0.20161e-02_rb,0.21153e-02_rb,0.22116e-02_rb /)
+      kao(:, 8, 5) = (/ &
+        & 0.14169e-02_rb,0.15332e-02_rb,0.16350e-02_rb,0.17231e-02_rb,0.18121e-02_rb /)
+      kao(:, 9, 5) = (/ &
+        & 0.13030e-02_rb,0.13904e-02_rb,0.14690e-02_rb,0.15500e-02_rb,0.16275e-02_rb /)
+      kao(:,10, 5) = (/ &
+        & 0.17155e-02_rb,0.18169e-02_rb,0.18943e-02_rb,0.19620e-02_rb,0.20215e-02_rb /)
+      kao(:,11, 5) = (/ &
+        & 0.17156e-02_rb,0.17808e-02_rb,0.18419e-02_rb,0.18925e-02_rb,0.19313e-02_rb /)
+      kao(:,12, 5) = (/ &
+        & 0.15269e-02_rb,0.15811e-02_rb,0.16283e-02_rb,0.16686e-02_rb,0.17061e-02_rb /)
+      kao(:,13, 5) = (/ &
+        & 0.12768e-02_rb,0.13207e-02_rb,0.13555e-02_rb,0.13924e-02_rb,0.14234e-02_rb /)
+      kao(:, 1, 6) = (/ &
+        & 0.19191e-01_rb,0.19463e-01_rb,0.19692e-01_rb,0.19900e-01_rb,0.20112e-01_rb /)
+      kao(:, 2, 6) = (/ &
+        & 0.15967e-01_rb,0.16219e-01_rb,0.16426e-01_rb,0.16613e-01_rb,0.16805e-01_rb /)
+      kao(:, 3, 6) = (/ &
+        & 0.13186e-01_rb,0.13411e-01_rb,0.13614e-01_rb,0.13785e-01_rb,0.13944e-01_rb /)
+      kao(:, 4, 6) = (/ &
+        & 0.10935e-01_rb,0.11131e-01_rb,0.11318e-01_rb,0.11475e-01_rb,0.11620e-01_rb /)
+      kao(:, 5, 6) = (/ &
+        & 0.90541e-02_rb,0.92344e-02_rb,0.94035e-02_rb,0.95537e-02_rb,0.96862e-02_rb /)
+      kao(:, 6, 6) = (/ &
+        & 0.74724e-02_rb,0.76320e-02_rb,0.77794e-02_rb,0.79294e-02_rb,0.80528e-02_rb /)
+      kao(:, 7, 6) = (/ &
+        & 0.61183e-02_rb,0.62644e-02_rb,0.63961e-02_rb,0.65303e-02_rb,0.66478e-02_rb /)
+      kao(:, 8, 6) = (/ &
+        & 0.50638e-02_rb,0.51984e-02_rb,0.53222e-02_rb,0.54412e-02_rb,0.55465e-02_rb /)
+      kao(:, 9, 6) = (/ &
+        & 0.42870e-02_rb,0.44009e-02_rb,0.45109e-02_rb,0.45976e-02_rb,0.46796e-02_rb /)
+      kao(:,10, 6) = (/ &
+        & 0.45239e-02_rb,0.46073e-02_rb,0.46968e-02_rb,0.47979e-02_rb,0.48956e-02_rb /)
+      kao(:,11, 6) = (/ &
+        & 0.44089e-02_rb,0.45006e-02_rb,0.45881e-02_rb,0.46721e-02_rb,0.48015e-02_rb /)
+      kao(:,12, 6) = (/ &
+        & 0.39598e-02_rb,0.40290e-02_rb,0.41108e-02_rb,0.41899e-02_rb,0.42672e-02_rb /)
+      kao(:,13, 6) = (/ &
+        & 0.33425e-02_rb,0.34148e-02_rb,0.34808e-02_rb,0.35405e-02_rb,0.35983e-02_rb /)
+      kao(:, 1, 7) = (/ &
+        & 0.50165e-01_rb,0.50343e-01_rb,0.50452e-01_rb,0.50424e-01_rb,0.50329e-01_rb /)
+      kao(:, 2, 7) = (/ &
+        & 0.42723e-01_rb,0.42880e-01_rb,0.42939e-01_rb,0.42910e-01_rb,0.42861e-01_rb /)
+      kao(:, 3, 7) = (/ &
+        & 0.36117e-01_rb,0.36255e-01_rb,0.36301e-01_rb,0.36294e-01_rb,0.36288e-01_rb /)
+      kao(:, 4, 7) = (/ &
+        & 0.30585e-01_rb,0.30720e-01_rb,0.30787e-01_rb,0.30816e-01_rb,0.30842e-01_rb /)
+      kao(:, 5, 7) = (/ &
+        & 0.25879e-01_rb,0.26029e-01_rb,0.26116e-01_rb,0.26179e-01_rb,0.26225e-01_rb /)
+      kao(:, 6, 7) = (/ &
+        & 0.21822e-01_rb,0.21978e-01_rb,0.22094e-01_rb,0.22178e-01_rb,0.22244e-01_rb /)
+      kao(:, 7, 7) = (/ &
+        & 0.18304e-01_rb,0.18476e-01_rb,0.18606e-01_rb,0.18705e-01_rb,0.18780e-01_rb /)
+      kao(:, 8, 7) = (/ &
+        & 0.15224e-01_rb,0.15394e-01_rb,0.15519e-01_rb,0.15619e-01_rb,0.15690e-01_rb /)
+      kao(:, 9, 7) = (/ &
+        & 0.12835e-01_rb,0.13029e-01_rb,0.13169e-01_rb,0.13281e-01_rb,0.13369e-01_rb /)
+      kao(:,10, 7) = (/ &
+        & 0.11632e-01_rb,0.11714e-01_rb,0.11760e-01_rb,0.11776e-01_rb,0.11806e-01_rb /)
+      kao(:,11, 7) = (/ &
+        & 0.11170e-01_rb,0.11252e-01_rb,0.11288e-01_rb,0.11357e-01_rb,0.11397e-01_rb /)
+      kao(:,12, 7) = (/ &
+        & 0.10404e-01_rb,0.10533e-01_rb,0.10705e-01_rb,0.10833e-01_rb,0.10947e-01_rb /)
+      kao(:,13, 7) = (/ &
+        & 0.91041e-02_rb,0.92674e-02_rb,0.94068e-02_rb,0.95412e-02_rb,0.96769e-02_rb /)
+      kao(:, 1, 8) = (/ &
+        & 0.14527e+00_rb,0.14483e+00_rb,0.14432e+00_rb,0.14389e+00_rb,0.14349e+00_rb /)
+      kao(:, 2, 8) = (/ &
+        & 0.12739e+00_rb,0.12702e+00_rb,0.12661e+00_rb,0.12624e+00_rb,0.12584e+00_rb /)
+      kao(:, 3, 8) = (/ &
+        & 0.11091e+00_rb,0.11058e+00_rb,0.11024e+00_rb,0.10990e+00_rb,0.10953e+00_rb /)
+      kao(:, 4, 8) = (/ &
+        & 0.96590e-01_rb,0.96335e-01_rb,0.96105e-01_rb,0.95818e-01_rb,0.95530e-01_rb /)
+      kao(:, 5, 8) = (/ &
+        & 0.83799e-01_rb,0.83708e-01_rb,0.83572e-01_rb,0.83347e-01_rb,0.83126e-01_rb /)
+      kao(:, 6, 8) = (/ &
+        & 0.72369e-01_rb,0.72388e-01_rb,0.72289e-01_rb,0.72143e-01_rb,0.71981e-01_rb /)
+      kao(:, 7, 8) = (/ &
+        & 0.62158e-01_rb,0.62247e-01_rb,0.62185e-01_rb,0.62111e-01_rb,0.62007e-01_rb /)
+      kao(:, 8, 8) = (/ &
+        & 0.52998e-01_rb,0.53142e-01_rb,0.53162e-01_rb,0.53154e-01_rb,0.53101e-01_rb /)
+      kao(:, 9, 8) = (/ &
+        & 0.44776e-01_rb,0.44873e-01_rb,0.44920e-01_rb,0.44946e-01_rb,0.44885e-01_rb /)
+      kao(:,10, 8) = (/ &
+        & 0.38237e-01_rb,0.38514e-01_rb,0.38716e-01_rb,0.38877e-01_rb,0.38966e-01_rb /)
+      kao(:,11, 8) = (/ &
+        & 0.33511e-01_rb,0.33721e-01_rb,0.33843e-01_rb,0.33840e-01_rb,0.33839e-01_rb /)
+      kao(:,12, 8) = (/ &
+        & 0.29704e-01_rb,0.29825e-01_rb,0.29808e-01_rb,0.29787e-01_rb,0.29794e-01_rb /)
+      kao(:,13, 8) = (/ &
+        & 0.25973e-01_rb,0.26004e-01_rb,0.26032e-01_rb,0.26023e-01_rb,0.26107e-01_rb /)
+      kao(:, 1, 9) = (/ &
+        & 0.56699e+00_rb,0.56615e+00_rb,0.56479e+00_rb,0.56318e+00_rb,0.56135e+00_rb /)
+      kao(:, 2, 9) = (/ &
+        & 0.53130e+00_rb,0.53096e+00_rb,0.53038e+00_rb,0.52953e+00_rb,0.52828e+00_rb /)
+      kao(:, 3, 9) = (/ &
+        & 0.48947e+00_rb,0.48989e+00_rb,0.48991e+00_rb,0.48970e+00_rb,0.48916e+00_rb /)
+      kao(:, 4, 9) = (/ &
+        & 0.44646e+00_rb,0.44756e+00_rb,0.44841e+00_rb,0.44893e+00_rb,0.44859e+00_rb /)
+      kao(:, 5, 9) = (/ &
+        & 0.40428e+00_rb,0.40594e+00_rb,0.40746e+00_rb,0.40811e+00_rb,0.40825e+00_rb /)
+      kao(:, 6, 9) = (/ &
+        & 0.36305e+00_rb,0.36545e+00_rb,0.36730e+00_rb,0.36814e+00_rb,0.36854e+00_rb /)
+      kao(:, 7, 9) = (/ &
+        & 0.32383e+00_rb,0.32659e+00_rb,0.32849e+00_rb,0.32954e+00_rb,0.33028e+00_rb /)
+      kao(:, 8, 9) = (/ &
+        & 0.28691e+00_rb,0.28966e+00_rb,0.29156e+00_rb,0.29286e+00_rb,0.29379e+00_rb /)
+      kao(:, 9, 9) = (/ &
+        & 0.25109e+00_rb,0.25404e+00_rb,0.25607e+00_rb,0.25752e+00_rb,0.25870e+00_rb /)
+      kao(:,10, 9) = (/ &
+        & 0.21600e+00_rb,0.21860e+00_rb,0.22047e+00_rb,0.22164e+00_rb,0.22251e+00_rb /)
+      kao(:,11, 9) = (/ &
+        & 0.19149e+00_rb,0.19387e+00_rb,0.19567e+00_rb,0.19725e+00_rb,0.19809e+00_rb /)
+      kao(:,12, 9) = (/ &
+        & 0.16914e+00_rb,0.17134e+00_rb,0.17303e+00_rb,0.17407e+00_rb,0.17494e+00_rb /)
+      kao(:,13, 9) = (/ &
+        & 0.14841e+00_rb,0.15027e+00_rb,0.15244e+00_rb,0.15403e+00_rb,0.15523e+00_rb /)
+      kao(:, 1,10) = (/ &
+        & 0.14885e+01_rb,0.14756e+01_rb,0.14663e+01_rb,0.14567e+01_rb,0.14479e+01_rb /)
+      kao(:, 2,10) = (/ &
+        & 0.14911e+01_rb,0.14850e+01_rb,0.14762e+01_rb,0.14677e+01_rb,0.14597e+01_rb /)
+      kao(:, 3,10) = (/ &
+        & 0.14749e+01_rb,0.14716e+01_rb,0.14663e+01_rb,0.14579e+01_rb,0.14502e+01_rb /)
+      kao(:, 4,10) = (/ &
+        & 0.14314e+01_rb,0.14303e+01_rb,0.14232e+01_rb,0.14150e+01_rb,0.14115e+01_rb /)
+      kao(:, 5,10) = (/ &
+        & 0.13616e+01_rb,0.13604e+01_rb,0.13539e+01_rb,0.13506e+01_rb,0.13501e+01_rb /)
+      kao(:, 6,10) = (/ &
+        & 0.12710e+01_rb,0.12700e+01_rb,0.12670e+01_rb,0.12702e+01_rb,0.12745e+01_rb /)
+      kao(:, 7,10) = (/ &
+        & 0.11674e+01_rb,0.11690e+01_rb,0.11727e+01_rb,0.11812e+01_rb,0.11854e+01_rb /)
+      kao(:, 8,10) = (/ &
+        & 0.10584e+01_rb,0.10652e+01_rb,0.10757e+01_rb,0.10857e+01_rb,0.10906e+01_rb /)
+      kao(:, 9,10) = (/ &
+        & 0.95450e+00_rb,0.96414e+00_rb,0.97673e+00_rb,0.98621e+00_rb,0.99187e+00_rb /)
+      kao(:,10,10) = (/ &
+        & 0.83626e+00_rb,0.84690e+00_rb,0.85901e+00_rb,0.86824e+00_rb,0.87535e+00_rb /)
+      kao(:,11,10) = (/ &
+        & 0.73738e+00_rb,0.74729e+00_rb,0.75610e+00_rb,0.75994e+00_rb,0.76481e+00_rb /)
+      kao(:,12,10) = (/ &
+        & 0.66891e+00_rb,0.67622e+00_rb,0.68092e+00_rb,0.68498e+00_rb,0.68877e+00_rb /)
+      kao(:,13,10) = (/ &
+        & 0.58616e+00_rb,0.59614e+00_rb,0.59749e+00_rb,0.60310e+00_rb,0.60445e+00_rb /)
+      kao(:, 1,11) = (/ &
+        & 0.20080e+01_rb,0.19998e+01_rb,0.19844e+01_rb,0.19679e+01_rb,0.19504e+01_rb /)
+      kao(:, 2,11) = (/ &
+        & 0.20896e+01_rb,0.20752e+01_rb,0.20596e+01_rb,0.20445e+01_rb,0.20293e+01_rb /)
+      kao(:, 3,11) = (/ &
+        & 0.21262e+01_rb,0.21143e+01_rb,0.21043e+01_rb,0.20968e+01_rb,0.20862e+01_rb /)
+      kao(:, 4,11) = (/ &
+        & 0.21310e+01_rb,0.21263e+01_rb,0.21243e+01_rb,0.21203e+01_rb,0.21144e+01_rb /)
+      kao(:, 5,11) = (/ &
+        & 0.21041e+01_rb,0.21063e+01_rb,0.21071e+01_rb,0.21077e+01_rb,0.21021e+01_rb /)
+      kao(:, 6,11) = (/ &
+        & 0.20447e+01_rb,0.20491e+01_rb,0.20534e+01_rb,0.20532e+01_rb,0.20477e+01_rb /)
+      kao(:, 7,11) = (/ &
+        & 0.19487e+01_rb,0.19563e+01_rb,0.19608e+01_rb,0.19593e+01_rb,0.19591e+01_rb /)
+      kao(:, 8,11) = (/ &
+        & 0.18239e+01_rb,0.18317e+01_rb,0.18359e+01_rb,0.18391e+01_rb,0.18451e+01_rb /)
+      kao(:, 9,11) = (/ &
+        & 0.16772e+01_rb,0.16879e+01_rb,0.16955e+01_rb,0.17047e+01_rb,0.17179e+01_rb /)
+      kao(:,10,11) = (/ &
+        & 0.15007e+01_rb,0.15184e+01_rb,0.15343e+01_rb,0.15540e+01_rb,0.15756e+01_rb /)
+      kao(:,11,11) = (/ &
+        & 0.13041e+01_rb,0.13245e+01_rb,0.13445e+01_rb,0.13685e+01_rb,0.13888e+01_rb /)
+      kao(:,12,11) = (/ &
+        & 0.11590e+01_rb,0.11749e+01_rb,0.11906e+01_rb,0.12046e+01_rb,0.12212e+01_rb /)
+      kao(:,13,11) = (/ &
+        & 0.10681e+01_rb,0.10905e+01_rb,0.11017e+01_rb,0.10997e+01_rb,0.11116e+01_rb /)
+      kao(:, 1,12) = (/ &
+        & 0.26762e+01_rb,0.26701e+01_rb,0.26710e+01_rb,0.26742e+01_rb,0.26733e+01_rb /)
+      kao(:, 2,12) = (/ &
+        & 0.28804e+01_rb,0.28775e+01_rb,0.28798e+01_rb,0.28773e+01_rb,0.28700e+01_rb /)
+      kao(:, 3,12) = (/ &
+        & 0.30825e+01_rb,0.30790e+01_rb,0.30757e+01_rb,0.30631e+01_rb,0.30471e+01_rb /)
+      kao(:, 4,12) = (/ &
+        & 0.32355e+01_rb,0.32278e+01_rb,0.32144e+01_rb,0.31959e+01_rb,0.31753e+01_rb /)
+      kao(:, 5,12) = (/ &
+        & 0.33271e+01_rb,0.33191e+01_rb,0.33073e+01_rb,0.32879e+01_rb,0.32714e+01_rb /)
+      kao(:, 6,12) = (/ &
+        & 0.33604e+01_rb,0.33571e+01_rb,0.33478e+01_rb,0.33355e+01_rb,0.33272e+01_rb /)
+      kao(:, 7,12) = (/ &
+        & 0.33406e+01_rb,0.33436e+01_rb,0.33436e+01_rb,0.33435e+01_rb,0.33409e+01_rb /)
+      kao(:, 8,12) = (/ &
+        & 0.32648e+01_rb,0.32808e+01_rb,0.32919e+01_rb,0.32976e+01_rb,0.32999e+01_rb /)
+      kao(:, 9,12) = (/ &
+        & 0.31373e+01_rb,0.31630e+01_rb,0.31816e+01_rb,0.31936e+01_rb,0.31991e+01_rb /)
+      kao(:,10,12) = (/ &
+        & 0.29678e+01_rb,0.29982e+01_rb,0.30244e+01_rb,0.30412e+01_rb,0.30500e+01_rb /)
+      kao(:,11,12) = (/ &
+        & 0.27380e+01_rb,0.27731e+01_rb,0.28013e+01_rb,0.28227e+01_rb,0.28455e+01_rb /)
+      kao(:,12,12) = (/ &
+        & 0.24616e+01_rb,0.24905e+01_rb,0.25348e+01_rb,0.25805e+01_rb,0.26155e+01_rb /)
+      kao(:,13,12) = (/ &
+        & 0.22251e+01_rb,0.22562e+01_rb,0.22966e+01_rb,0.23312e+01_rb,0.23811e+01_rb /)
+      kao(:, 1,13) = (/ &
+        & 0.38031e+01_rb,0.37992e+01_rb,0.37926e+01_rb,0.37822e+01_rb,0.37755e+01_rb /)
+      kao(:, 2,13) = (/ &
+        & 0.41542e+01_rb,0.41473e+01_rb,0.41391e+01_rb,0.41329e+01_rb,0.41296e+01_rb /)
+      kao(:, 3,13) = (/ &
+        & 0.44998e+01_rb,0.44963e+01_rb,0.44896e+01_rb,0.44914e+01_rb,0.44937e+01_rb /)
+      kao(:, 4,13) = (/ &
+        & 0.48464e+01_rb,0.48445e+01_rb,0.48485e+01_rb,0.48565e+01_rb,0.48598e+01_rb /)
+      kao(:, 5,13) = (/ &
+        & 0.52074e+01_rb,0.52112e+01_rb,0.52168e+01_rb,0.52231e+01_rb,0.52210e+01_rb /)
+      kao(:, 6,13) = (/ &
+        & 0.55492e+01_rb,0.55575e+01_rb,0.55655e+01_rb,0.55693e+01_rb,0.55642e+01_rb /)
+      kao(:, 7,13) = (/ &
+        & 0.58380e+01_rb,0.58479e+01_rb,0.58509e+01_rb,0.58482e+01_rb,0.58453e+01_rb /)
+      kao(:, 8,13) = (/ &
+        & 0.60377e+01_rb,0.60538e+01_rb,0.60594e+01_rb,0.60647e+01_rb,0.60640e+01_rb /)
+      kao(:, 9,13) = (/ &
+        & 0.61268e+01_rb,0.61532e+01_rb,0.61730e+01_rb,0.61888e+01_rb,0.61993e+01_rb /)
+      kao(:,10,13) = (/ &
+        & 0.61216e+01_rb,0.61612e+01_rb,0.61936e+01_rb,0.62230e+01_rb,0.62454e+01_rb /)
+      kao(:,11,13) = (/ &
+        & 0.60409e+01_rb,0.60960e+01_rb,0.61462e+01_rb,0.61882e+01_rb,0.62219e+01_rb /)
+      kao(:,12,13) = (/ &
+        & 0.58645e+01_rb,0.59597e+01_rb,0.60234e+01_rb,0.60826e+01_rb,0.61390e+01_rb /)
+      kao(:,13,13) = (/ &
+        & 0.56001e+01_rb,0.57009e+01_rb,0.58017e+01_rb,0.59181e+01_rb,0.59860e+01_rb /)
+      kao(:, 1,14) = (/ &
+        & 0.53647e+01_rb,0.53127e+01_rb,0.52736e+01_rb,0.52471e+01_rb,0.52264e+01_rb /)
+      kao(:, 2,14) = (/ &
+        & 0.62359e+01_rb,0.61753e+01_rb,0.61253e+01_rb,0.60847e+01_rb,0.60573e+01_rb /)
+      kao(:, 3,14) = (/ &
+        & 0.72065e+01_rb,0.71249e+01_rb,0.70556e+01_rb,0.69965e+01_rb,0.69559e+01_rb /)
+      kao(:, 4,14) = (/ &
+        & 0.81631e+01_rb,0.80714e+01_rb,0.79828e+01_rb,0.79081e+01_rb,0.78545e+01_rb /)
+      kao(:, 5,14) = (/ &
+        & 0.90691e+01_rb,0.89602e+01_rb,0.88621e+01_rb,0.87858e+01_rb,0.87314e+01_rb /)
+      kao(:, 6,14) = (/ &
+        & 0.99707e+01_rb,0.98474e+01_rb,0.97395e+01_rb,0.96541e+01_rb,0.95904e+01_rb /)
+      kao(:, 7,14) = (/ &
+        & 0.10852e+02_rb,0.10724e+02_rb,0.10620e+02_rb,0.10536e+02_rb,0.10469e+02_rb /)
+      kao(:, 8,14) = (/ &
+        & 0.11716e+02_rb,0.11588e+02_rb,0.11487e+02_rb,0.11403e+02_rb,0.11337e+02_rb /)
+      kao(:, 9,14) = (/ &
+        & 0.12572e+02_rb,0.12448e+02_rb,0.12341e+02_rb,0.12260e+02_rb,0.12188e+02_rb /)
+      kao(:,10,14) = (/ &
+        & 0.13374e+02_rb,0.13256e+02_rb,0.13159e+02_rb,0.13080e+02_rb,0.13010e+02_rb /)
+      kao(:,11,14) = (/ &
+        & 0.14046e+02_rb,0.13957e+02_rb,0.13888e+02_rb,0.13824e+02_rb,0.13769e+02_rb /)
+      kao(:,12,14) = (/ &
+        & 0.14644e+02_rb,0.14592e+02_rb,0.14548e+02_rb,0.14504e+02_rb,0.14461e+02_rb /)
+      kao(:,13,14) = (/ &
+        & 0.15144e+02_rb,0.15129e+02_rb,0.15111e+02_rb,0.15095e+02_rb,0.15074e+02_rb /)
+      kao(:, 1,15) = (/ &
+        & 0.72019e+01_rb,0.71097e+01_rb,0.70236e+01_rb,0.69449e+01_rb,0.68844e+01_rb /)
+      kao(:, 2,15) = (/ &
+        & 0.87604e+01_rb,0.86468e+01_rb,0.85349e+01_rb,0.84375e+01_rb,0.83491e+01_rb /)
+      kao(:, 3,15) = (/ &
+        & 0.10615e+02_rb,0.10469e+02_rb,0.10333e+02_rb,0.10214e+02_rb,0.10099e+02_rb /)
+      kao(:, 4,15) = (/ &
+        & 0.12669e+02_rb,0.12473e+02_rb,0.12305e+02_rb,0.12161e+02_rb,0.12026e+02_rb /)
+      kao(:, 5,15) = (/ &
+        & 0.14978e+02_rb,0.14741e+02_rb,0.14530e+02_rb,0.14329e+02_rb,0.14143e+02_rb /)
+      kao(:, 6,15) = (/ &
+        & 0.17562e+02_rb,0.17282e+02_rb,0.17031e+02_rb,0.16791e+02_rb,0.16552e+02_rb /)
+      kao(:, 7,15) = (/ &
+        & 0.20480e+02_rb,0.20136e+02_rb,0.19827e+02_rb,0.19524e+02_rb,0.19223e+02_rb /)
+      kao(:, 8,15) = (/ &
+        & 0.23734e+02_rb,0.23307e+02_rb,0.22908e+02_rb,0.22521e+02_rb,0.22160e+02_rb /)
+      kao(:, 9,15) = (/ &
+        & 0.27249e+02_rb,0.26733e+02_rb,0.26255e+02_rb,0.25787e+02_rb,0.25354e+02_rb /)
+      kao(:,10,15) = (/ &
+        & 0.30889e+02_rb,0.30311e+02_rb,0.29740e+02_rb,0.29192e+02_rb,0.28690e+02_rb /)
+      kao(:,11,15) = (/ &
+        & 0.34366e+02_rb,0.33687e+02_rb,0.33035e+02_rb,0.32430e+02_rb,0.31843e+02_rb /)
+      kao(:,12,15) = (/ &
+        & 0.37839e+02_rb,0.37085e+02_rb,0.36360e+02_rb,0.35655e+02_rb,0.34957e+02_rb /)
+      kao(:,13,15) = (/ &
+        & 0.41323e+02_rb,0.40503e+02_rb,0.39673e+02_rb,0.38847e+02_rb,0.38049e+02_rb /)
+      kao(:, 1,16) = (/ &
+        & 0.82631e+01_rb,0.81761e+01_rb,0.80809e+01_rb,0.79778e+01_rb,0.79010e+01_rb /)
+      kao(:, 2,16) = (/ &
+        & 0.10258e+02_rb,0.10128e+02_rb,0.10005e+02_rb,0.98803e+01_rb,0.97700e+01_rb /)
+      kao(:, 3,16) = (/ &
+        & 0.12786e+02_rb,0.12614e+02_rb,0.12441e+02_rb,0.12267e+02_rb,0.12120e+02_rb /)
+      kao(:, 4,16) = (/ &
+        & 0.15843e+02_rb,0.15549e+02_rb,0.15326e+02_rb,0.15095e+02_rb,0.14871e+02_rb /)
+      kao(:, 5,16) = (/ &
+        & 0.19543e+02_rb,0.19089e+02_rb,0.18733e+02_rb,0.18430e+02_rb,0.18134e+02_rb /)
+      kao(:, 6,16) = (/ &
+        & 0.24038e+02_rb,0.23415e+02_rb,0.22893e+02_rb,0.22427e+02_rb,0.22005e+02_rb /)
+      kao(:, 7,16) = (/ &
+        & 0.29445e+02_rb,0.28630e+02_rb,0.27921e+02_rb,0.27268e+02_rb,0.26654e+02_rb /)
+      kao(:, 8,16) = (/ &
+        & 0.35889e+02_rb,0.34849e+02_rb,0.33913e+02_rb,0.33036e+02_rb,0.32194e+02_rb /)
+      kao(:, 9,16) = (/ &
+        & 0.43512e+02_rb,0.42175e+02_rb,0.40956e+02_rb,0.39809e+02_rb,0.38685e+02_rb /)
+      kao(:,10,16) = (/ &
+        & 0.52253e+02_rb,0.50582e+02_rb,0.49011e+02_rb,0.47508e+02_rb,0.46037e+02_rb /)
+      kao(:,11,16) = (/ &
+        & 0.61290e+02_rb,0.59240e+02_rb,0.57269e+02_rb,0.55343e+02_rb,0.53572e+02_rb /)
+      kao(:,12,16) = (/ &
+        & 0.71193e+02_rb,0.68607e+02_rb,0.66135e+02_rb,0.63828e+02_rb,0.61720e+02_rb /)
+      kao(:,13,16) = (/ &
+        & 0.81988e+02_rb,0.78665e+02_rb,0.75707e+02_rb,0.72932e+02_rb,0.70347e+02_rb /)
+  
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kbo(:,13, 1) = (/ &
+        & 0.29597e-05_rb,0.31929e-05_rb,0.34159e-05_rb,0.36256e-05_rb,0.38264e-05_rb /)
+      kbo(:,14, 1) = (/ &
+        & 0.24233e-05_rb,0.26151e-05_rb,0.27866e-05_rb,0.29502e-05_rb,0.31170e-05_rb /)
+      kbo(:,15, 1) = (/ &
+        & 0.19206e-05_rb,0.20789e-05_rb,0.22099e-05_rb,0.23383e-05_rb,0.24505e-05_rb /)
+      kbo(:,16, 1) = (/ &
+        & 0.14933e-05_rb,0.16071e-05_rb,0.17039e-05_rb,0.17994e-05_rb,0.18816e-05_rb /)
+      kbo(:,17, 1) = (/ &
+        & 0.11429e-05_rb,0.12144e-05_rb,0.12895e-05_rb,0.13503e-05_rb,0.14174e-05_rb /)
+      kbo(:,18, 1) = (/ &
+        & 0.84134e-06_rb,0.89264e-06_rb,0.94260e-06_rb,0.99003e-06_rb,0.10391e-05_rb /)
+      kbo(:,19, 1) = (/ &
+        & 0.60683e-06_rb,0.64142e-06_rb,0.68018e-06_rb,0.72042e-06_rb,0.75479e-06_rb /)
+      kbo(:,20, 1) = (/ &
+        & 0.45809e-06_rb,0.48813e-06_rb,0.51934e-06_rb,0.54823e-06_rb,0.57261e-06_rb /)
+      kbo(:,21, 1) = (/ &
+        & 0.35219e-06_rb,0.37835e-06_rb,0.40322e-06_rb,0.42772e-06_rb,0.44736e-06_rb /)
+      kbo(:,22, 1) = (/ &
+        & 0.27419e-06_rb,0.29542e-06_rb,0.31617e-06_rb,0.33398e-06_rb,0.34932e-06_rb /)
+      kbo(:,23, 1) = (/ &
+        & 0.21385e-06_rb,0.23127e-06_rb,0.24670e-06_rb,0.25951e-06_rb,0.26952e-06_rb /)
+      kbo(:,24, 1) = (/ &
+        & 0.16767e-06_rb,0.18179e-06_rb,0.19282e-06_rb,0.20136e-06_rb,0.21113e-06_rb /)
+      kbo(:,25, 1) = (/ &
+        & 0.13361e-06_rb,0.14301e-06_rb,0.14980e-06_rb,0.15778e-06_rb,0.16615e-06_rb /)
+      kbo(:,26, 1) = (/ &
+        & 0.10615e-06_rb,0.11218e-06_rb,0.11889e-06_rb,0.12574e-06_rb,0.13111e-06_rb /)
+      kbo(:,27, 1) = (/ &
+        & 0.83660e-07_rb,0.89296e-07_rb,0.95019e-07_rb,0.10007e-06_rb,0.10397e-06_rb /)
+      kbo(:,28, 1) = (/ &
+        & 0.66667e-07_rb,0.71217e-07_rb,0.75615e-07_rb,0.79237e-07_rb,0.82239e-07_rb /)
+      kbo(:,29, 1) = (/ &
+        & 0.52776e-07_rb,0.56086e-07_rb,0.59828e-07_rb,0.62513e-07_rb,0.64218e-07_rb /)
+      kbo(:,30, 1) = (/ &
+        & 0.41429e-07_rb,0.44370e-07_rb,0.46731e-07_rb,0.48553e-07_rb,0.50143e-07_rb /)
+      kbo(:,31, 1) = (/ &
+        & 0.32437e-07_rb,0.34523e-07_rb,0.36208e-07_rb,0.37500e-07_rb,0.38571e-07_rb /)
+      kbo(:,32, 1) = (/ &
+        & 0.25237e-07_rb,0.26730e-07_rb,0.27868e-07_rb,0.28829e-07_rb,0.29943e-07_rb /)
+      kbo(:,33, 1) = (/ &
+        & 0.19545e-07_rb,0.20614e-07_rb,0.21467e-07_rb,0.22280e-07_rb,0.23141e-07_rb /)
+      kbo(:,34, 1) = (/ &
+        & 0.15146e-07_rb,0.15869e-07_rb,0.16509e-07_rb,0.17179e-07_rb,0.17980e-07_rb /)
+      kbo(:,35, 1) = (/ &
+        & 0.11482e-07_rb,0.12039e-07_rb,0.12547e-07_rb,0.13255e-07_rb,0.13874e-07_rb /)
+      kbo(:,36, 1) = (/ &
+        & 0.86172e-08_rb,0.90023e-08_rb,0.95607e-08_rb,0.10106e-07_rb,0.10595e-07_rb /)
+      kbo(:,37, 1) = (/ &
+        & 0.67411e-08_rb,0.70781e-08_rb,0.75553e-08_rb,0.79739e-08_rb,0.84011e-08_rb /)
+      kbo(:,38, 1) = (/ &
+        & 0.52604e-08_rb,0.55743e-08_rb,0.59410e-08_rb,0.63031e-08_rb,0.66516e-08_rb /)
+      kbo(:,39, 1) = (/ &
+        & 0.41129e-08_rb,0.43854e-08_rb,0.46851e-08_rb,0.49771e-08_rb,0.52463e-08_rb /)
+      kbo(:,40, 1) = (/ &
+        & 0.33089e-08_rb,0.35289e-08_rb,0.37702e-08_rb,0.40125e-08_rb,0.42415e-08_rb /)
+      kbo(:,41, 1) = (/ &
+        & 0.26794e-08_rb,0.28488e-08_rb,0.30428e-08_rb,0.32437e-08_rb,0.34420e-08_rb /)
+      kbo(:,42, 1) = (/ &
+        & 0.21670e-08_rb,0.23030e-08_rb,0.24589e-08_rb,0.26252e-08_rb,0.27867e-08_rb /)
+      kbo(:,43, 1) = (/ &
+        & 0.17699e-08_rb,0.18853e-08_rb,0.20001e-08_rb,0.21330e-08_rb,0.22657e-08_rb /)
+      kbo(:,44, 1) = (/ &
+        & 0.14446e-08_rb,0.15471e-08_rb,0.16397e-08_rb,0.17423e-08_rb,0.18526e-08_rb /)
+      kbo(:,45, 1) = (/ &
+        & 0.11734e-08_rb,0.12754e-08_rb,0.13542e-08_rb,0.14242e-08_rb,0.15193e-08_rb /)
+      kbo(:,46, 1) = (/ &
+        & 0.95743e-09_rb,0.10470e-08_rb,0.11183e-08_rb,0.11726e-08_rb,0.12389e-08_rb /)
+      kbo(:,47, 1) = (/ &
+        & 0.77345e-09_rb,0.85197e-09_rb,0.92184e-09_rb,0.97368e-09_rb,0.10149e-08_rb /)
+      kbo(:,48, 1) = (/ &
+        & 0.62500e-09_rb,0.69288e-09_rb,0.75548e-09_rb,0.80446e-09_rb,0.84428e-09_rb /)
+      kbo(:,49, 1) = (/ &
+        & 0.50095e-09_rb,0.55967e-09_rb,0.61904e-09_rb,0.66441e-09_rb,0.70339e-09_rb /)
+      kbo(:,50, 1) = (/ &
+        & 0.40806e-09_rb,0.45712e-09_rb,0.50530e-09_rb,0.54974e-09_rb,0.58246e-09_rb /)
+      kbo(:,51, 1) = (/ &
+        & 0.33102e-09_rb,0.37130e-09_rb,0.41121e-09_rb,0.45024e-09_rb,0.48436e-09_rb /)
+      kbo(:,52, 1) = (/ &
+        & 0.26906e-09_rb,0.30739e-09_rb,0.33845e-09_rb,0.36884e-09_rb,0.40024e-09_rb /)
+      kbo(:,53, 1) = (/ &
+        & 0.22202e-09_rb,0.25108e-09_rb,0.27937e-09_rb,0.30592e-09_rb,0.33012e-09_rb /)
+      kbo(:,54, 1) = (/ &
+        & 0.18662e-09_rb,0.20761e-09_rb,0.23072e-09_rb,0.25342e-09_rb,0.27445e-09_rb /)
+      kbo(:,55, 1) = (/ &
+        & 0.15741e-09_rb,0.17147e-09_rb,0.19146e-09_rb,0.21029e-09_rb,0.22857e-09_rb /)
+      kbo(:,56, 1) = (/ &
+        & 0.13151e-09_rb,0.14637e-09_rb,0.15977e-09_rb,0.17547e-09_rb,0.18974e-09_rb /)
+      kbo(:,57, 1) = (/ &
+        & 0.10874e-09_rb,0.12447e-09_rb,0.13634e-09_rb,0.14752e-09_rb,0.16022e-09_rb /)
+      kbo(:,58, 1) = (/ &
+        & 0.90206e-10_rb,0.10484e-09_rb,0.11617e-09_rb,0.12545e-09_rb,0.13474e-09_rb /)
+      kbo(:,59, 1) = (/ &
+        & 0.76759e-10_rb,0.88866e-10_rb,0.99340e-10_rb,0.10706e-09_rb,0.11444e-09_rb /)
+      kbo(:,13, 2) = (/ &
+        & 0.14727e-04_rb,0.16357e-04_rb,0.17961e-04_rb,0.19530e-04_rb,0.20852e-04_rb /)
+      kbo(:,14, 2) = (/ &
+        & 0.12148e-04_rb,0.13478e-04_rb,0.14818e-04_rb,0.16049e-04_rb,0.17100e-04_rb /)
+      kbo(:,15, 2) = (/ &
+        & 0.96902e-05_rb,0.10787e-04_rb,0.11835e-04_rb,0.12770e-04_rb,0.13515e-04_rb /)
+      kbo(:,16, 2) = (/ &
+        & 0.76235e-05_rb,0.84575e-05_rb,0.92217e-05_rb,0.98526e-05_rb,0.10449e-04_rb /)
+      kbo(:,17, 2) = (/ &
+        & 0.58049e-05_rb,0.64239e-05_rb,0.69733e-05_rb,0.74131e-05_rb,0.78082e-05_rb /)
+      kbo(:,18, 2) = (/ &
+        & 0.43204e-05_rb,0.47510e-05_rb,0.51165e-05_rb,0.54579e-05_rb,0.57434e-05_rb /)
+      kbo(:,19, 2) = (/ &
+        & 0.32211e-05_rb,0.35327e-05_rb,0.38175e-05_rb,0.40535e-05_rb,0.42245e-05_rb /)
+      kbo(:,20, 2) = (/ &
+        & 0.25265e-05_rb,0.27652e-05_rb,0.29644e-05_rb,0.31331e-05_rb,0.32730e-05_rb /)
+      kbo(:,21, 2) = (/ &
+        & 0.19921e-05_rb,0.21749e-05_rb,0.23343e-05_rb,0.24377e-05_rb,0.25458e-05_rb /)
+      kbo(:,22, 2) = (/ &
+        & 0.15859e-05_rb,0.17259e-05_rb,0.18236e-05_rb,0.19124e-05_rb,0.19942e-05_rb /)
+      kbo(:,23, 2) = (/ &
+        & 0.12591e-05_rb,0.13565e-05_rb,0.14309e-05_rb,0.15032e-05_rb,0.15642e-05_rb /)
+      kbo(:,24, 2) = (/ &
+        & 0.10012e-05_rb,0.10701e-05_rb,0.11246e-05_rb,0.11819e-05_rb,0.12279e-05_rb /)
+      kbo(:,25, 2) = (/ &
+        & 0.78985e-06_rb,0.84074e-06_rb,0.89029e-06_rb,0.93145e-06_rb,0.97085e-06_rb /)
+      kbo(:,26, 2) = (/ &
+        & 0.62996e-06_rb,0.66847e-06_rb,0.70637e-06_rb,0.73513e-06_rb,0.77135e-06_rb /)
+      kbo(:,27, 2) = (/ &
+        & 0.50283e-06_rb,0.53111e-06_rb,0.55653e-06_rb,0.58306e-06_rb,0.61799e-06_rb /)
+      kbo(:,28, 2) = (/ &
+        & 0.39962e-06_rb,0.42320e-06_rb,0.44265e-06_rb,0.46715e-06_rb,0.49516e-06_rb /)
+      kbo(:,29, 2) = (/ &
+        & 0.31810e-06_rb,0.33597e-06_rb,0.35191e-06_rb,0.37448e-06_rb,0.39768e-06_rb /)
+      kbo(:,30, 2) = (/ &
+        & 0.25242e-06_rb,0.26447e-06_rb,0.28109e-06_rb,0.30089e-06_rb,0.31543e-06_rb /)
+      kbo(:,31, 2) = (/ &
+        & 0.19837e-06_rb,0.20954e-06_rb,0.22442e-06_rb,0.23762e-06_rb,0.25183e-06_rb /)
+      kbo(:,32, 2) = (/ &
+        & 0.15599e-06_rb,0.16701e-06_rb,0.17789e-06_rb,0.18880e-06_rb,0.20030e-06_rb /)
+      kbo(:,33, 2) = (/ &
+        & 0.12307e-06_rb,0.13211e-06_rb,0.14046e-06_rb,0.15111e-06_rb,0.15988e-06_rb /)
+      kbo(:,34, 2) = (/ &
+        & 0.98429e-07_rb,0.10498e-06_rb,0.11326e-06_rb,0.12074e-06_rb,0.12779e-06_rb /)
+      kbo(:,35, 2) = (/ &
+        & 0.77743e-07_rb,0.83951e-07_rb,0.90473e-07_rb,0.96277e-07_rb,0.10204e-06_rb /)
+      kbo(:,36, 2) = (/ &
+        & 0.61220e-07_rb,0.66399e-07_rb,0.71102e-07_rb,0.75946e-07_rb,0.80803e-07_rb /)
+      kbo(:,37, 2) = (/ &
+        & 0.48819e-07_rb,0.52962e-07_rb,0.56669e-07_rb,0.60817e-07_rb,0.64709e-07_rb /)
+      kbo(:,38, 2) = (/ &
+        & 0.38871e-07_rb,0.42226e-07_rb,0.45376e-07_rb,0.48641e-07_rb,0.51855e-07_rb /)
+      kbo(:,39, 2) = (/ &
+        & 0.30869e-07_rb,0.33485e-07_rb,0.36233e-07_rb,0.38868e-07_rb,0.41523e-07_rb /)
+      kbo(:,40, 2) = (/ &
+        & 0.24798e-07_rb,0.26983e-07_rb,0.29180e-07_rb,0.31437e-07_rb,0.33600e-07_rb /)
+      kbo(:,41, 2) = (/ &
+        & 0.19951e-07_rb,0.21784e-07_rb,0.23518e-07_rb,0.25460e-07_rb,0.27219e-07_rb /)
+      kbo(:,42, 2) = (/ &
+        & 0.16098e-07_rb,0.17542e-07_rb,0.18979e-07_rb,0.20547e-07_rb,0.22016e-07_rb /)
+      kbo(:,43, 2) = (/ &
+        & 0.13020e-07_rb,0.14144e-07_rb,0.15414e-07_rb,0.16610e-07_rb,0.17870e-07_rb /)
+      kbo(:,44, 2) = (/ &
+        & 0.10548e-07_rb,0.11500e-07_rb,0.12492e-07_rb,0.13520e-07_rb,0.14524e-07_rb /)
+      kbo(:,45, 2) = (/ &
+        & 0.85602e-08_rb,0.93245e-08_rb,0.10096e-07_rb,0.10978e-07_rb,0.11819e-07_rb /)
+      kbo(:,46, 2) = (/ &
+        & 0.69149e-08_rb,0.75653e-08_rb,0.82154e-08_rb,0.88822e-08_rb,0.96002e-08_rb /)
+      kbo(:,47, 2) = (/ &
+        & 0.55708e-08_rb,0.61164e-08_rb,0.66678e-08_rb,0.71922e-08_rb,0.77633e-08_rb /)
+      kbo(:,48, 2) = (/ &
+        & 0.44804e-08_rb,0.49312e-08_rb,0.53967e-08_rb,0.58662e-08_rb,0.62780e-08_rb /)
+      kbo(:,49, 2) = (/ &
+        & 0.36467e-08_rb,0.39866e-08_rb,0.43628e-08_rb,0.47589e-08_rb,0.51208e-08_rb /)
+      kbo(:,50, 2) = (/ &
+        & 0.29524e-08_rb,0.32540e-08_rb,0.35471e-08_rb,0.38638e-08_rb,0.41887e-08_rb /)
+      kbo(:,51, 2) = (/ &
+        & 0.23887e-08_rb,0.26526e-08_rb,0.28959e-08_rb,0.31504e-08_rb,0.34112e-08_rb /)
+      kbo(:,52, 2) = (/ &
+        & 0.19321e-08_rb,0.21648e-08_rb,0.23625e-08_rb,0.25839e-08_rb,0.28173e-08_rb /)
+      kbo(:,53, 2) = (/ &
+        & 0.15684e-08_rb,0.17725e-08_rb,0.19476e-08_rb,0.21240e-08_rb,0.23118e-08_rb /)
+      kbo(:,54, 2) = (/ &
+        & 0.12799e-08_rb,0.14467e-08_rb,0.16073e-08_rb,0.17494e-08_rb,0.19160e-08_rb /)
+      kbo(:,55, 2) = (/ &
+        & 0.10442e-08_rb,0.11911e-08_rb,0.13216e-08_rb,0.14537e-08_rb,0.15771e-08_rb /)
+      kbo(:,56, 2) = (/ &
+        & 0.85741e-09_rb,0.97937e-09_rb,0.10936e-08_rb,0.12056e-08_rb,0.13167e-08_rb /)
+      kbo(:,57, 2) = (/ &
+        & 0.70358e-09_rb,0.80334e-09_rb,0.90824e-09_rb,0.10056e-08_rb,0.11010e-08_rb /)
+      kbo(:,58, 2) = (/ &
+        & 0.57428e-09_rb,0.66441e-09_rb,0.75420e-09_rb,0.83627e-09_rb,0.92485e-09_rb /)
+      kbo(:,59, 2) = (/ &
+        & 0.47922e-09_rb,0.55592e-09_rb,0.63499e-09_rb,0.70731e-09_rb,0.78678e-09_rb /)
+      kbo(:,13, 3) = (/ &
+        & 0.76201e-04_rb,0.82699e-04_rb,0.87499e-04_rb,0.91352e-04_rb,0.95348e-04_rb /)
+      kbo(:,14, 3) = (/ &
+        & 0.62821e-04_rb,0.67861e-04_rb,0.71868e-04_rb,0.75108e-04_rb,0.78557e-04_rb /)
+      kbo(:,15, 3) = (/ &
+        & 0.49775e-04_rb,0.53367e-04_rb,0.56639e-04_rb,0.59001e-04_rb,0.62303e-04_rb /)
+      kbo(:,16, 3) = (/ &
+        & 0.38005e-04_rb,0.40883e-04_rb,0.43269e-04_rb,0.45403e-04_rb,0.48139e-04_rb /)
+      kbo(:,17, 3) = (/ &
+        & 0.28550e-04_rb,0.30750e-04_rb,0.32331e-04_rb,0.34489e-04_rb,0.36687e-04_rb /)
+      kbo(:,18, 3) = (/ &
+        & 0.20976e-04_rb,0.22322e-04_rb,0.23743e-04_rb,0.25554e-04_rb,0.27223e-04_rb /)
+      kbo(:,19, 3) = (/ &
+        & 0.15389e-04_rb,0.16422e-04_rb,0.17792e-04_rb,0.19127e-04_rb,0.20295e-04_rb /)
+      kbo(:,20, 3) = (/ &
+        & 0.11883e-04_rb,0.12816e-04_rb,0.13962e-04_rb,0.14872e-04_rb,0.15725e-04_rb /)
+      kbo(:,21, 3) = (/ &
+        & 0.92948e-05_rb,0.10187e-04_rb,0.10986e-04_rb,0.11713e-04_rb,0.12426e-04_rb /)
+      kbo(:,22, 3) = (/ &
+        & 0.73969e-05_rb,0.80840e-05_rb,0.87263e-05_rb,0.93856e-05_rb,0.99533e-05_rb /)
+      kbo(:,23, 3) = (/ &
+        & 0.58961e-05_rb,0.64591e-05_rb,0.69648e-05_rb,0.74494e-05_rb,0.79385e-05_rb /)
+      kbo(:,24, 3) = (/ &
+        & 0.47445e-05_rb,0.51742e-05_rb,0.56036e-05_rb,0.59758e-05_rb,0.63724e-05_rb /)
+      kbo(:,25, 3) = (/ &
+        & 0.38442e-05_rb,0.41791e-05_rb,0.44837e-05_rb,0.48078e-05_rb,0.51294e-05_rb /)
+      kbo(:,26, 3) = (/ &
+        & 0.31335e-05_rb,0.33923e-05_rb,0.36400e-05_rb,0.38961e-05_rb,0.41487e-05_rb /)
+      kbo(:,27, 3) = (/ &
+        & 0.25499e-05_rb,0.27432e-05_rb,0.29560e-05_rb,0.31545e-05_rb,0.33433e-05_rb /)
+      kbo(:,28, 3) = (/ &
+        & 0.20635e-05_rb,0.22231e-05_rb,0.23897e-05_rb,0.25516e-05_rb,0.26938e-05_rb /)
+      kbo(:,29, 3) = (/ &
+        & 0.16635e-05_rb,0.18024e-05_rb,0.19279e-05_rb,0.20498e-05_rb,0.21627e-05_rb /)
+      kbo(:,30, 3) = (/ &
+        & 0.13359e-05_rb,0.14474e-05_rb,0.15470e-05_rb,0.16346e-05_rb,0.17457e-05_rb /)
+      kbo(:,31, 3) = (/ &
+        & 0.10697e-05_rb,0.11477e-05_rb,0.12254e-05_rb,0.13097e-05_rb,0.13914e-05_rb /)
+      kbo(:,32, 3) = (/ &
+        & 0.84958e-06_rb,0.91464e-06_rb,0.98189e-06_rb,0.10489e-05_rb,0.11150e-05_rb /)
+      kbo(:,33, 3) = (/ &
+        & 0.68178e-06_rb,0.73356e-06_rb,0.78905e-06_rb,0.84226e-06_rb,0.89476e-06_rb /)
+      kbo(:,34, 3) = (/ &
+        & 0.54737e-06_rb,0.58995e-06_rb,0.63374e-06_rb,0.67732e-06_rb,0.72182e-06_rb /)
+      kbo(:,35, 3) = (/ &
+        & 0.43680e-06_rb,0.47086e-06_rb,0.50771e-06_rb,0.54209e-06_rb,0.57687e-06_rb /)
+      kbo(:,36, 3) = (/ &
+        & 0.34612e-06_rb,0.37466e-06_rb,0.40370e-06_rb,0.43073e-06_rb,0.45979e-06_rb /)
+      kbo(:,37, 3) = (/ &
+        & 0.27725e-06_rb,0.30048e-06_rb,0.32451e-06_rb,0.34638e-06_rb,0.37105e-06_rb /)
+      kbo(:,38, 3) = (/ &
+        & 0.22228e-06_rb,0.24114e-06_rb,0.26049e-06_rb,0.27871e-06_rb,0.29935e-06_rb /)
+      kbo(:,39, 3) = (/ &
+        & 0.17797e-06_rb,0.19317e-06_rb,0.20878e-06_rb,0.22411e-06_rb,0.24102e-06_rb /)
+      kbo(:,40, 3) = (/ &
+        & 0.14346e-06_rb,0.15601e-06_rb,0.16913e-06_rb,0.18197e-06_rb,0.19566e-06_rb /)
+      kbo(:,41, 3) = (/ &
+        & 0.11559e-06_rb,0.12615e-06_rb,0.13697e-06_rb,0.14785e-06_rb,0.15874e-06_rb /)
+      kbo(:,42, 3) = (/ &
+        & 0.93358e-07_rb,0.10214e-06_rb,0.11089e-06_rb,0.11998e-06_rb,0.12904e-06_rb /)
+      kbo(:,43, 3) = (/ &
+        & 0.75599e-07_rb,0.82690e-07_rb,0.89808e-07_rb,0.97524e-07_rb,0.10511e-06_rb /)
+      kbo(:,44, 3) = (/ &
+        & 0.61285e-07_rb,0.66786e-07_rb,0.72937e-07_rb,0.79087e-07_rb,0.85525e-07_rb /)
+      kbo(:,45, 3) = (/ &
+        & 0.49725e-07_rb,0.54294e-07_rb,0.59263e-07_rb,0.64213e-07_rb,0.69583e-07_rb /)
+      kbo(:,46, 3) = (/ &
+        & 0.40336e-07_rb,0.44186e-07_rb,0.48034e-07_rb,0.52184e-07_rb,0.56534e-07_rb /)
+      kbo(:,47, 3) = (/ &
+        & 0.32904e-07_rb,0.35633e-07_rb,0.38959e-07_rb,0.42402e-07_rb,0.45883e-07_rb /)
+      kbo(:,48, 3) = (/ &
+        & 0.26725e-07_rb,0.29104e-07_rb,0.31693e-07_rb,0.34312e-07_rb,0.37304e-07_rb /)
+      kbo(:,49, 3) = (/ &
+        & 0.21751e-07_rb,0.23849e-07_rb,0.25803e-07_rb,0.28024e-07_rb,0.30356e-07_rb /)
+      kbo(:,50, 3) = (/ &
+        & 0.17587e-07_rb,0.19609e-07_rb,0.21216e-07_rb,0.23022e-07_rb,0.24942e-07_rb /)
+      kbo(:,51, 3) = (/ &
+        & 0.14376e-07_rb,0.15990e-07_rb,0.17493e-07_rb,0.18872e-07_rb,0.20463e-07_rb /)
+      kbo(:,52, 3) = (/ &
+        & 0.11811e-07_rb,0.13106e-07_rb,0.14489e-07_rb,0.15615e-07_rb,0.16832e-07_rb /)
+      kbo(:,53, 3) = (/ &
+        & 0.96001e-08_rb,0.10788e-07_rb,0.11921e-07_rb,0.12985e-07_rb,0.13904e-07_rb /)
+      kbo(:,54, 3) = (/ &
+        & 0.78243e-08_rb,0.89178e-08_rb,0.98430e-08_rb,0.10840e-07_rb,0.11619e-07_rb /)
+      kbo(:,55, 3) = (/ &
+        & 0.63638e-08_rb,0.73678e-08_rb,0.82214e-08_rb,0.89997e-08_rb,0.97565e-08_rb /)
+      kbo(:,56, 3) = (/ &
+        & 0.51753e-08_rb,0.60497e-08_rb,0.68419e-08_rb,0.74560e-08_rb,0.82362e-08_rb /)
+      kbo(:,57, 3) = (/ &
+        & 0.42164e-08_rb,0.49916e-08_rb,0.57066e-08_rb,0.63308e-08_rb,0.68950e-08_rb /)
+      kbo(:,58, 3) = (/ &
+        & 0.34618e-08_rb,0.41424e-08_rb,0.48054e-08_rb,0.53757e-08_rb,0.58095e-08_rb /)
+      kbo(:,59, 3) = (/ &
+        & 0.29083e-08_rb,0.35291e-08_rb,0.40932e-08_rb,0.46285e-08_rb,0.49865e-08_rb /)
+      kbo(:,13, 4) = (/ &
+        & 0.37674e-03_rb,0.40953e-03_rb,0.43690e-03_rb,0.46059e-03_rb,0.48007e-03_rb /)
+      kbo(:,14, 4) = (/ &
+        & 0.31202e-03_rb,0.33906e-03_rb,0.36066e-03_rb,0.38003e-03_rb,0.39627e-03_rb /)
+      kbo(:,15, 4) = (/ &
+        & 0.25135e-03_rb,0.27271e-03_rb,0.29069e-03_rb,0.30661e-03_rb,0.32005e-03_rb /)
+      kbo(:,16, 4) = (/ &
+        & 0.19797e-03_rb,0.21527e-03_rb,0.22955e-03_rb,0.24328e-03_rb,0.25456e-03_rb /)
+      kbo(:,17, 4) = (/ &
+        & 0.15354e-03_rb,0.16679e-03_rb,0.17933e-03_rb,0.19101e-03_rb,0.20041e-03_rb /)
+      kbo(:,18, 4) = (/ &
+        & 0.11742e-03_rb,0.12797e-03_rb,0.13923e-03_rb,0.14836e-03_rb,0.15654e-03_rb /)
+      kbo(:,19, 4) = (/ &
+        & 0.90519e-04_rb,0.99386e-04_rb,0.10819e-03_rb,0.11601e-03_rb,0.12319e-03_rb /)
+      kbo(:,20, 4) = (/ &
+        & 0.72579e-04_rb,0.79910e-04_rb,0.87075e-04_rb,0.93728e-04_rb,0.99656e-04_rb /)
+      kbo(:,21, 4) = (/ &
+        & 0.58866e-04_rb,0.64805e-04_rb,0.70705e-04_rb,0.76153e-04_rb,0.80996e-04_rb /)
+      kbo(:,22, 4) = (/ &
+        & 0.48157e-04_rb,0.52883e-04_rb,0.57740e-04_rb,0.62130e-04_rb,0.66100e-04_rb /)
+      kbo(:,23, 4) = (/ &
+        & 0.39337e-04_rb,0.43289e-04_rb,0.47275e-04_rb,0.50906e-04_rb,0.54161e-04_rb /)
+      kbo(:,24, 4) = (/ &
+        & 0.32289e-04_rb,0.35577e-04_rb,0.38808e-04_rb,0.41814e-04_rb,0.44433e-04_rb /)
+      kbo(:,25, 4) = (/ &
+        & 0.26615e-04_rb,0.29301e-04_rb,0.31984e-04_rb,0.34396e-04_rb,0.36509e-04_rb /)
+      kbo(:,26, 4) = (/ &
+        & 0.22060e-04_rb,0.24270e-04_rb,0.26460e-04_rb,0.28450e-04_rb,0.30203e-04_rb /)
+      kbo(:,27, 4) = (/ &
+        & 0.18344e-04_rb,0.20177e-04_rb,0.21948e-04_rb,0.23595e-04_rb,0.25001e-04_rb /)
+      kbo(:,28, 4) = (/ &
+        & 0.15256e-04_rb,0.16787e-04_rb,0.18242e-04_rb,0.19561e-04_rb,0.20696e-04_rb /)
+      kbo(:,29, 4) = (/ &
+        & 0.12679e-04_rb,0.13952e-04_rb,0.15170e-04_rb,0.16211e-04_rb,0.17163e-04_rb /)
+      kbo(:,30, 4) = (/ &
+        & 0.10550e-04_rb,0.11605e-04_rb,0.12579e-04_rb,0.13451e-04_rb,0.14210e-04_rb /)
+      kbo(:,31, 4) = (/ &
+        & 0.87512e-05_rb,0.96322e-05_rb,0.10433e-04_rb,0.11133e-04_rb,0.11762e-04_rb /)
+      kbo(:,32, 4) = (/ &
+        & 0.73001e-05_rb,0.80203e-05_rb,0.86745e-05_rb,0.92292e-05_rb,0.97295e-05_rb /)
+      kbo(:,33, 4) = (/ &
+        & 0.60958e-05_rb,0.66862e-05_rb,0.72006e-05_rb,0.76359e-05_rb,0.80576e-05_rb /)
+      kbo(:,34, 4) = (/ &
+        & 0.50855e-05_rb,0.55671e-05_rb,0.59670e-05_rb,0.63392e-05_rb,0.66869e-05_rb /)
+      kbo(:,35, 4) = (/ &
+        & 0.42033e-05_rb,0.45905e-05_rb,0.49250e-05_rb,0.52384e-05_rb,0.55369e-05_rb /)
+      kbo(:,36, 4) = (/ &
+        & 0.34384e-05_rb,0.37618e-05_rb,0.40430e-05_rb,0.43060e-05_rb,0.45577e-05_rb /)
+      kbo(:,37, 4) = (/ &
+        & 0.28039e-05_rb,0.30749e-05_rb,0.33135e-05_rb,0.35344e-05_rb,0.37458e-05_rb /)
+      kbo(:,38, 4) = (/ &
+        & 0.22842e-05_rb,0.25104e-05_rb,0.27126e-05_rb,0.28966e-05_rb,0.30768e-05_rb /)
+      kbo(:,39, 4) = (/ &
+        & 0.18585e-05_rb,0.20510e-05_rb,0.22194e-05_rb,0.23731e-05_rb,0.25249e-05_rb /)
+      kbo(:,40, 4) = (/ &
+        & 0.15041e-05_rb,0.16676e-05_rb,0.18097e-05_rb,0.19402e-05_rb,0.20681e-05_rb /)
+      kbo(:,41, 4) = (/ &
+        & 0.12154e-05_rb,0.13541e-05_rb,0.14749e-05_rb,0.15852e-05_rb,0.16934e-05_rb /)
+      kbo(:,42, 4) = (/ &
+        & 0.98033e-06_rb,0.10975e-05_rb,0.12011e-05_rb,0.12945e-05_rb,0.13859e-05_rb /)
+      kbo(:,43, 4) = (/ &
+        & 0.78724e-06_rb,0.88625e-06_rb,0.97486e-06_rb,0.10554e-05_rb,0.11307e-05_rb /)
+      kbo(:,44, 4) = (/ &
+        & 0.63059e-06_rb,0.71382e-06_rb,0.78948e-06_rb,0.85755e-06_rb,0.92044e-06_rb /)
+      kbo(:,45, 4) = (/ &
+        & 0.50426e-06_rb,0.57391e-06_rb,0.63808e-06_rb,0.69718e-06_rb,0.74972e-06_rb /)
+      kbo(:,46, 4) = (/ &
+        & 0.40133e-06_rb,0.45858e-06_rb,0.51414e-06_rb,0.56400e-06_rb,0.60964e-06_rb /)
+      kbo(:,47, 4) = (/ &
+        & 0.31580e-06_rb,0.36440e-06_rb,0.41120e-06_rb,0.45433e-06_rb,0.49348e-06_rb /)
+      kbo(:,48, 4) = (/ &
+        & 0.24847e-06_rb,0.28907e-06_rb,0.32879e-06_rb,0.36537e-06_rb,0.39903e-06_rb /)
+      kbo(:,49, 4) = (/ &
+        & 0.19530e-06_rb,0.22858e-06_rb,0.26247e-06_rb,0.29331e-06_rb,0.32217e-06_rb /)
+      kbo(:,50, 4) = (/ &
+        & 0.15364e-06_rb,0.18113e-06_rb,0.20911e-06_rb,0.23589e-06_rb,0.25994e-06_rb /)
+      kbo(:,51, 4) = (/ &
+        & 0.12072e-06_rb,0.14413e-06_rb,0.16656e-06_rb,0.18952e-06_rb,0.20983e-06_rb /)
+      kbo(:,52, 4) = (/ &
+        & 0.94925e-07_rb,0.11397e-06_rb,0.13255e-06_rb,0.15193e-06_rb,0.16960e-06_rb /)
+      kbo(:,53, 4) = (/ &
+        & 0.74473e-07_rb,0.90197e-07_rb,0.10574e-06_rb,0.12153e-06_rb,0.13661e-06_rb /)
+      kbo(:,54, 4) = (/ &
+        & 0.59009e-07_rb,0.71594e-07_rb,0.84781e-07_rb,0.97758e-07_rb,0.11018e-06_rb /)
+      kbo(:,55, 4) = (/ &
+        & 0.47008e-07_rb,0.56997e-07_rb,0.67838e-07_rb,0.78753e-07_rb,0.89116e-07_rb /)
+      kbo(:,56, 4) = (/ &
+        & 0.37415e-07_rb,0.45642e-07_rb,0.54420e-07_rb,0.63466e-07_rb,0.71910e-07_rb /)
+      kbo(:,57, 4) = (/ &
+        & 0.29896e-07_rb,0.36635e-07_rb,0.43697e-07_rb,0.51036e-07_rb,0.58267e-07_rb /)
+      kbo(:,58, 4) = (/ &
+        & 0.23946e-07_rb,0.29523e-07_rb,0.35316e-07_rb,0.41183e-07_rb,0.47391e-07_rb /)
+      kbo(:,59, 4) = (/ &
+        & 0.19881e-07_rb,0.24642e-07_rb,0.29390e-07_rb,0.34099e-07_rb,0.39234e-07_rb /)
+      kbo(:,13, 5) = (/ &
+        & 0.12771e-02_rb,0.13202e-02_rb,0.13557e-02_rb,0.13927e-02_rb,0.14233e-02_rb /)
+      kbo(:,14, 5) = (/ &
+        & 0.10608e-02_rb,0.10951e-02_rb,0.11249e-02_rb,0.11549e-02_rb,0.11788e-02_rb /)
+      kbo(:,15, 5) = (/ &
+        & 0.86750e-03_rb,0.89679e-03_rb,0.91986e-03_rb,0.94399e-03_rb,0.96405e-03_rb /)
+      kbo(:,16, 5) = (/ &
+        & 0.70073e-03_rb,0.72504e-03_rb,0.74630e-03_rb,0.76495e-03_rb,0.78165e-03_rb /)
+      kbo(:,17, 5) = (/ &
+        & 0.56280e-03_rb,0.58321e-03_rb,0.60153e-03_rb,0.61544e-03_rb,0.62885e-03_rb /)
+      kbo(:,18, 5) = (/ &
+        & 0.44940e-03_rb,0.46598e-03_rb,0.47887e-03_rb,0.49058e-03_rb,0.50223e-03_rb /)
+      kbo(:,19, 5) = (/ &
+        & 0.35753e-03_rb,0.37064e-03_rb,0.38290e-03_rb,0.39390e-03_rb,0.40387e-03_rb /)
+      kbo(:,20, 5) = (/ &
+        & 0.29013e-03_rb,0.30099e-03_rb,0.31179e-03_rb,0.32117e-03_rb,0.33011e-03_rb /)
+      kbo(:,21, 5) = (/ &
+        & 0.23657e-03_rb,0.24602e-03_rb,0.25504e-03_rb,0.26340e-03_rb,0.27145e-03_rb /)
+      kbo(:,22, 5) = (/ &
+        & 0.19423e-03_rb,0.20224e-03_rb,0.20987e-03_rb,0.21711e-03_rb,0.22439e-03_rb /)
+      kbo(:,23, 5) = (/ &
+        & 0.15963e-03_rb,0.16643e-03_rb,0.17308e-03_rb,0.17949e-03_rb,0.18580e-03_rb /)
+      kbo(:,24, 5) = (/ &
+        & 0.13166e-03_rb,0.13745e-03_rb,0.14332e-03_rb,0.14871e-03_rb,0.15428e-03_rb /)
+      kbo(:,25, 5) = (/ &
+        & 0.10885e-03_rb,0.11394e-03_rb,0.11896e-03_rb,0.12371e-03_rb,0.12846e-03_rb /)
+      kbo(:,26, 5) = (/ &
+        & 0.90403e-04_rb,0.94914e-04_rb,0.99157e-04_rb,0.10310e-03_rb,0.10729e-03_rb /)
+      kbo(:,27, 5) = (/ &
+        & 0.75265e-04_rb,0.79166e-04_rb,0.82648e-04_rb,0.86209e-04_rb,0.89882e-04_rb /)
+      kbo(:,28, 5) = (/ &
+        & 0.62870e-04_rb,0.66050e-04_rb,0.69111e-04_rb,0.72289e-04_rb,0.75451e-04_rb /)
+      kbo(:,29, 5) = (/ &
+        & 0.52465e-04_rb,0.55192e-04_rb,0.57887e-04_rb,0.60660e-04_rb,0.63367e-04_rb /)
+      kbo(:,30, 5) = (/ &
+        & 0.43887e-04_rb,0.46191e-04_rb,0.48588e-04_rb,0.50910e-04_rb,0.53278e-04_rb /)
+      kbo(:,31, 5) = (/ &
+        & 0.36760e-04_rb,0.38766e-04_rb,0.40783e-04_rb,0.42783e-04_rb,0.44780e-04_rb /)
+      kbo(:,32, 5) = (/ &
+        & 0.30831e-04_rb,0.32561e-04_rb,0.34267e-04_rb,0.36000e-04_rb,0.37594e-04_rb /)
+      kbo(:,33, 5) = (/ &
+        & 0.25908e-04_rb,0.27389e-04_rb,0.28832e-04_rb,0.30290e-04_rb,0.31581e-04_rb /)
+      kbo(:,34, 5) = (/ &
+        & 0.21776e-04_rb,0.23026e-04_rb,0.24266e-04_rb,0.25444e-04_rb,0.26510e-04_rb /)
+      kbo(:,35, 5) = (/ &
+        & 0.18233e-04_rb,0.19280e-04_rb,0.20324e-04_rb,0.21266e-04_rb,0.22141e-04_rb /)
+      kbo(:,36, 5) = (/ &
+        & 0.15160e-04_rb,0.16042e-04_rb,0.16918e-04_rb,0.17686e-04_rb,0.18406e-04_rb /)
+      kbo(:,37, 5) = (/ &
+        & 0.12538e-04_rb,0.13285e-04_rb,0.14015e-04_rb,0.14657e-04_rb,0.15269e-04_rb /)
+      kbo(:,38, 5) = (/ &
+        & 0.10357e-04_rb,0.10990e-04_rb,0.11595e-04_rb,0.12148e-04_rb,0.12651e-04_rb /)
+      kbo(:,39, 5) = (/ &
+        & 0.85566e-05_rb,0.90856e-05_rb,0.95986e-05_rb,0.10057e-04_rb,0.10478e-04_rb /)
+      kbo(:,40, 5) = (/ &
+        & 0.70390e-05_rb,0.74826e-05_rb,0.79200e-05_rb,0.83061e-05_rb,0.86634e-05_rb /)
+      kbo(:,41, 5) = (/ &
+        & 0.57827e-05_rb,0.61572e-05_rb,0.65269e-05_rb,0.68528e-05_rb,0.71595e-05_rb /)
+      kbo(:,42, 5) = (/ &
+        & 0.47477e-05_rb,0.50656e-05_rb,0.53705e-05_rb,0.56486e-05_rb,0.59100e-05_rb /)
+      kbo(:,43, 5) = (/ &
+        & 0.38802e-05_rb,0.41533e-05_rb,0.44089e-05_rb,0.46515e-05_rb,0.48719e-05_rb /)
+      kbo(:,44, 5) = (/ &
+        & 0.31658e-05_rb,0.33971e-05_rb,0.36177e-05_rb,0.38205e-05_rb,0.40089e-05_rb /)
+      kbo(:,45, 5) = (/ &
+        & 0.25796e-05_rb,0.27740e-05_rb,0.29635e-05_rb,0.31336e-05_rb,0.32986e-05_rb /)
+      kbo(:,46, 5) = (/ &
+        & 0.20945e-05_rb,0.22636e-05_rb,0.24214e-05_rb,0.25698e-05_rb,0.27077e-05_rb /)
+      kbo(:,47, 5) = (/ &
+        & 0.16931e-05_rb,0.18383e-05_rb,0.19729e-05_rb,0.20996e-05_rb,0.22172e-05_rb /)
+      kbo(:,48, 5) = (/ &
+        & 0.13650e-05_rb,0.14889e-05_rb,0.16043e-05_rb,0.17139e-05_rb,0.18136e-05_rb /)
+      kbo(:,49, 5) = (/ &
+        & 0.10981e-05_rb,0.12042e-05_rb,0.13028e-05_rb,0.13963e-05_rb,0.14824e-05_rb /)
+      kbo(:,50, 5) = (/ &
+        & 0.88407e-06_rb,0.97370e-06_rb,0.10589e-05_rb,0.11383e-05_rb,0.12124e-05_rb /)
+      kbo(:,51, 5) = (/ &
+        & 0.71150e-06_rb,0.78682e-06_rb,0.86048e-06_rb,0.92711e-06_rb,0.99128e-06_rb /)
+      kbo(:,52, 5) = (/ &
+        & 0.57140e-06_rb,0.63513e-06_rb,0.69790e-06_rb,0.75466e-06_rb,0.80946e-06_rb /)
+      kbo(:,53, 5) = (/ &
+        & 0.45871e-06_rb,0.51183e-06_rb,0.56494e-06_rb,0.61376e-06_rb,0.66022e-06_rb /)
+      kbo(:,54, 5) = (/ &
+        & 0.36889e-06_rb,0.41319e-06_rb,0.45759e-06_rb,0.49973e-06_rb,0.53933e-06_rb /)
+      kbo(:,55, 5) = (/ &
+        & 0.29683e-06_rb,0.33396e-06_rb,0.37110e-06_rb,0.40671e-06_rb,0.44026e-06_rb /)
+      kbo(:,56, 5) = (/ &
+        & 0.23828e-06_rb,0.26973e-06_rb,0.30048e-06_rb,0.33099e-06_rb,0.35949e-06_rb /)
+      kbo(:,57, 5) = (/ &
+        & 0.19083e-06_rb,0.21782e-06_rb,0.24350e-06_rb,0.26883e-06_rb,0.29309e-06_rb /)
+      kbo(:,58, 5) = (/ &
+        & 0.15334e-06_rb,0.17592e-06_rb,0.19753e-06_rb,0.21869e-06_rb,0.23903e-06_rb /)
+      kbo(:,59, 5) = (/ &
+        & 0.12635e-06_rb,0.14504e-06_rb,0.16321e-06_rb,0.18074e-06_rb,0.19759e-06_rb /)
+      kbo(:,13, 6) = (/ &
+        & 0.33433e-02_rb,0.34159e-02_rb,0.34798e-02_rb,0.35397e-02_rb,0.35995e-02_rb /)
+      kbo(:,14, 6) = (/ &
+        & 0.28039e-02_rb,0.28589e-02_rb,0.29090e-02_rb,0.29595e-02_rb,0.30108e-02_rb /)
+      kbo(:,15, 6) = (/ &
+        & 0.23135e-02_rb,0.23579e-02_rb,0.24012e-02_rb,0.24470e-02_rb,0.24900e-02_rb /)
+      kbo(:,16, 6) = (/ &
+        & 0.18925e-02_rb,0.19281e-02_rb,0.19671e-02_rb,0.20090e-02_rb,0.20445e-02_rb /)
+      kbo(:,17, 6) = (/ &
+        & 0.15365e-02_rb,0.15703e-02_rb,0.16039e-02_rb,0.16424e-02_rb,0.16760e-02_rb /)
+      kbo(:,18, 6) = (/ &
+        & 0.12424e-02_rb,0.12746e-02_rb,0.13067e-02_rb,0.13397e-02_rb,0.13687e-02_rb /)
+      kbo(:,19, 6) = (/ &
+        & 0.10113e-02_rb,0.10417e-02_rb,0.10664e-02_rb,0.10958e-02_rb,0.11231e-02_rb /)
+      kbo(:,20, 6) = (/ &
+        & 0.83375e-03_rb,0.85863e-03_rb,0.88098e-03_rb,0.90680e-03_rb,0.93093e-03_rb /)
+      kbo(:,21, 6) = (/ &
+        & 0.68849e-03_rb,0.71056e-03_rb,0.73161e-03_rb,0.75402e-03_rb,0.77432e-03_rb /)
+      kbo(:,22, 6) = (/ &
+        & 0.57076e-03_rb,0.59001e-03_rb,0.60925e-03_rb,0.62816e-03_rb,0.64531e-03_rb /)
+      kbo(:,23, 6) = (/ &
+        & 0.47462e-03_rb,0.49138e-03_rb,0.50818e-03_rb,0.52421e-03_rb,0.53930e-03_rb /)
+      kbo(:,24, 6) = (/ &
+        & 0.39552e-03_rb,0.41011e-03_rb,0.42460e-03_rb,0.43865e-03_rb,0.45206e-03_rb /)
+      kbo(:,25, 6) = (/ &
+        & 0.33041e-03_rb,0.34317e-03_rb,0.35573e-03_rb,0.36800e-03_rb,0.38005e-03_rb /)
+      kbo(:,26, 6) = (/ &
+        & 0.27699e-03_rb,0.28806e-03_rb,0.29892e-03_rb,0.30983e-03_rb,0.32038e-03_rb /)
+      kbo(:,27, 6) = (/ &
+        & 0.23253e-03_rb,0.24229e-03_rb,0.25208e-03_rb,0.26144e-03_rb,0.27039e-03_rb /)
+      kbo(:,28, 6) = (/ &
+        & 0.19573e-03_rb,0.20442e-03_rb,0.21276e-03_rb,0.22087e-03_rb,0.22869e-03_rb /)
+      kbo(:,29, 6) = (/ &
+        & 0.16528e-03_rb,0.17271e-03_rb,0.17974e-03_rb,0.18681e-03_rb,0.19373e-03_rb /)
+      kbo(:,30, 6) = (/ &
+        & 0.13949e-03_rb,0.14599e-03_rb,0.15214e-03_rb,0.15834e-03_rb,0.16448e-03_rb /)
+      kbo(:,31, 6) = (/ &
+        & 0.11793e-03_rb,0.12345e-03_rb,0.12891e-03_rb,0.13432e-03_rb,0.13975e-03_rb /)
+      kbo(:,32, 6) = (/ &
+        & 0.99845e-04_rb,0.10464e-03_rb,0.10941e-03_rb,0.11425e-03_rb,0.11896e-03_rb /)
+      kbo(:,33, 6) = (/ &
+        & 0.84723e-04_rb,0.88808e-04_rb,0.93054e-04_rb,0.97257e-04_rb,0.10144e-03_rb /)
+      kbo(:,34, 6) = (/ &
+        & 0.71857e-04_rb,0.75478e-04_rb,0.79245e-04_rb,0.82878e-04_rb,0.86527e-04_rb /)
+      kbo(:,35, 6) = (/ &
+        & 0.60741e-04_rb,0.63987e-04_rb,0.67190e-04_rb,0.70445e-04_rb,0.73634e-04_rb /)
+      kbo(:,36, 6) = (/ &
+        & 0.51094e-04_rb,0.53953e-04_rb,0.56787e-04_rb,0.59644e-04_rb,0.62421e-04_rb /)
+      kbo(:,37, 6) = (/ &
+        & 0.42809e-04_rb,0.45324e-04_rb,0.47805e-04_rb,0.50314e-04_rb,0.52797e-04_rb /)
+      kbo(:,38, 6) = (/ &
+        & 0.35862e-04_rb,0.38082e-04_rb,0.40249e-04_rb,0.42459e-04_rb,0.44691e-04_rb /)
+      kbo(:,39, 6) = (/ &
+        & 0.30047e-04_rb,0.31970e-04_rb,0.33877e-04_rb,0.35841e-04_rb,0.37792e-04_rb /)
+      kbo(:,40, 6) = (/ &
+        & 0.25051e-04_rb,0.26734e-04_rb,0.28429e-04_rb,0.30177e-04_rb,0.31859e-04_rb /)
+      kbo(:,41, 6) = (/ &
+        & 0.20858e-04_rb,0.22337e-04_rb,0.23837e-04_rb,0.25348e-04_rb,0.26845e-04_rb /)
+      kbo(:,42, 6) = (/ &
+        & 0.17358e-04_rb,0.18653e-04_rb,0.19947e-04_rb,0.21279e-04_rb,0.22614e-04_rb /)
+      kbo(:,43, 6) = (/ &
+        & 0.14382e-04_rb,0.15507e-04_rb,0.16637e-04_rb,0.17808e-04_rb,0.18975e-04_rb /)
+      kbo(:,44, 6) = (/ &
+        & 0.11875e-04_rb,0.12851e-04_rb,0.13847e-04_rb,0.14865e-04_rb,0.15886e-04_rb /)
+      kbo(:,45, 6) = (/ &
+        & 0.97824e-05_rb,0.10641e-04_rb,0.11497e-04_rb,0.12386e-04_rb,0.13288e-04_rb /)
+      kbo(:,46, 6) = (/ &
+        & 0.80305e-05_rb,0.87712e-05_rb,0.95170e-05_rb,0.10282e-04_rb,0.11073e-04_rb /)
+      kbo(:,47, 6) = (/ &
+        & 0.65554e-05_rb,0.71881e-05_rb,0.78331e-05_rb,0.85022e-05_rb,0.91799e-05_rb /)
+      kbo(:,48, 6) = (/ &
+        & 0.53399e-05_rb,0.58818e-05_rb,0.64364e-05_rb,0.70093e-05_rb,0.75992e-05_rb /)
+      kbo(:,49, 6) = (/ &
+        & 0.43396e-05_rb,0.47990e-05_rb,0.52727e-05_rb,0.57633e-05_rb,0.62785e-05_rb /)
+      kbo(:,50, 6) = (/ &
+        & 0.35272e-05_rb,0.39139e-05_rb,0.43230e-05_rb,0.47423e-05_rb,0.51819e-05_rb /)
+      kbo(:,51, 6) = (/ &
+        & 0.28624e-05_rb,0.31913e-05_rb,0.35379e-05_rb,0.38979e-05_rb,0.42744e-05_rb /)
+      kbo(:,52, 6) = (/ &
+        & 0.23189e-05_rb,0.25961e-05_rb,0.28907e-05_rb,0.31976e-05_rb,0.35200e-05_rb /)
+      kbo(:,53, 6) = (/ &
+        & 0.18736e-05_rb,0.21072e-05_rb,0.23576e-05_rb,0.26179e-05_rb,0.28943e-05_rb /)
+      kbo(:,54, 6) = (/ &
+        & 0.15155e-05_rb,0.17135e-05_rb,0.19245e-05_rb,0.21451e-05_rb,0.23808e-05_rb /)
+      kbo(:,55, 6) = (/ &
+        & 0.12250e-05_rb,0.13923e-05_rb,0.15714e-05_rb,0.17578e-05_rb,0.19597e-05_rb /)
+      kbo(:,56, 6) = (/ &
+        & 0.99012e-06_rb,0.11296e-05_rb,0.12801e-05_rb,0.14395e-05_rb,0.16107e-05_rb /)
+      kbo(:,57, 6) = (/ &
+        & 0.79875e-06_rb,0.91418e-06_rb,0.10408e-05_rb,0.11777e-05_rb,0.13212e-05_rb /)
+      kbo(:,58, 6) = (/ &
+        & 0.64474e-06_rb,0.74109e-06_rb,0.84664e-06_rb,0.96328e-06_rb,0.10849e-05_rb /)
+      kbo(:,59, 6) = (/ &
+        & 0.53296e-06_rb,0.61427e-06_rb,0.70385e-06_rb,0.80375e-06_rb,0.90863e-06_rb /)
+      kbo(:,13, 7) = (/ &
+        & 0.91063e-02_rb,0.92681e-02_rb,0.94045e-02_rb,0.95388e-02_rb,0.96735e-02_rb /)
+      kbo(:,14, 7) = (/ &
+        & 0.78483e-02_rb,0.79806e-02_rb,0.81238e-02_rb,0.82528e-02_rb,0.83603e-02_rb /)
+      kbo(:,15, 7) = (/ &
+        & 0.66269e-02_rb,0.67445e-02_rb,0.68845e-02_rb,0.69911e-02_rb,0.70854e-02_rb /)
+      kbo(:,16, 7) = (/ &
+        & 0.55183e-02_rb,0.56414e-02_rb,0.57574e-02_rb,0.58487e-02_rb,0.59407e-02_rb /)
+      kbo(:,17, 7) = (/ &
+        & 0.45693e-02_rb,0.46780e-02_rb,0.47743e-02_rb,0.48625e-02_rb,0.49467e-02_rb /)
+      kbo(:,18, 7) = (/ &
+        & 0.37611e-02_rb,0.38535e-02_rb,0.39408e-02_rb,0.40234e-02_rb,0.41007e-02_rb /)
+      kbo(:,19, 7) = (/ &
+        & 0.30991e-02_rb,0.31809e-02_rb,0.32647e-02_rb,0.33388e-02_rb,0.34042e-02_rb /)
+      kbo(:,20, 7) = (/ &
+        & 0.25858e-02_rb,0.26585e-02_rb,0.27347e-02_rb,0.27990e-02_rb,0.28579e-02_rb /)
+      kbo(:,21, 7) = (/ &
+        & 0.21672e-02_rb,0.22326e-02_rb,0.22973e-02_rb,0.23547e-02_rb,0.24058e-02_rb /)
+      kbo(:,22, 7) = (/ &
+        & 0.18211e-02_rb,0.18809e-02_rb,0.19364e-02_rb,0.19859e-02_rb,0.20352e-02_rb /)
+      kbo(:,23, 7) = (/ &
+        & 0.15314e-02_rb,0.15844e-02_rb,0.16332e-02_rb,0.16760e-02_rb,0.17243e-02_rb /)
+      kbo(:,24, 7) = (/ &
+        & 0.12924e-02_rb,0.13385e-02_rb,0.13793e-02_rb,0.14209e-02_rb,0.14659e-02_rb /)
+      kbo(:,25, 7) = (/ &
+        & 0.10926e-02_rb,0.11322e-02_rb,0.11689e-02_rb,0.12081e-02_rb,0.12493e-02_rb /)
+      kbo(:,26, 7) = (/ &
+        & 0.92756e-03_rb,0.96136e-03_rb,0.99601e-03_rb,0.10324e-02_rb,0.10695e-02_rb /)
+      kbo(:,27, 7) = (/ &
+        & 0.78832e-03_rb,0.81893e-03_rb,0.85137e-03_rb,0.88465e-03_rb,0.91885e-03_rb /)
+      kbo(:,28, 7) = (/ &
+        & 0.67097e-03_rb,0.69979e-03_rb,0.72985e-03_rb,0.76038e-03_rb,0.79213e-03_rb /)
+      kbo(:,29, 7) = (/ &
+        & 0.57231e-03_rb,0.59934e-03_rb,0.62727e-03_rb,0.65471e-03_rb,0.68389e-03_rb /)
+      kbo(:,30, 7) = (/ &
+        & 0.48996e-03_rb,0.51441e-03_rb,0.53945e-03_rb,0.56564e-03_rb,0.59164e-03_rb /)
+      kbo(:,31, 7) = (/ &
+        & 0.41998e-03_rb,0.44237e-03_rb,0.46551e-03_rb,0.48924e-03_rb,0.51322e-03_rb /)
+      kbo(:,32, 7) = (/ &
+        & 0.36133e-03_rb,0.38168e-03_rb,0.40297e-03_rb,0.42441e-03_rb,0.44722e-03_rb /)
+      kbo(:,33, 7) = (/ &
+        & 0.31153e-03_rb,0.33055e-03_rb,0.34980e-03_rb,0.36972e-03_rb,0.39086e-03_rb /)
+      kbo(:,34, 7) = (/ &
+        & 0.26941e-03_rb,0.28657e-03_rb,0.30436e-03_rb,0.32295e-03_rb,0.34256e-03_rb /)
+      kbo(:,35, 7) = (/ &
+        & 0.23210e-03_rb,0.24782e-03_rb,0.26411e-03_rb,0.28121e-03_rb,0.29930e-03_rb /)
+      kbo(:,36, 7) = (/ &
+        & 0.19904e-03_rb,0.21311e-03_rb,0.22797e-03_rb,0.24380e-03_rb,0.26030e-03_rb /)
+      kbo(:,37, 7) = (/ &
+        & 0.17000e-03_rb,0.18300e-03_rb,0.19666e-03_rb,0.21128e-03_rb,0.22641e-03_rb /)
+      kbo(:,38, 7) = (/ &
+        & 0.14528e-03_rb,0.15704e-03_rb,0.16975e-03_rb,0.18320e-03_rb,0.19735e-03_rb /)
+      kbo(:,39, 7) = (/ &
+        & 0.12414e-03_rb,0.13496e-03_rb,0.14654e-03_rb,0.15899e-03_rb,0.17211e-03_rb /)
+      kbo(:,40, 7) = (/ &
+        & 0.10567e-03_rb,0.11547e-03_rb,0.12618e-03_rb,0.13765e-03_rb,0.14994e-03_rb /)
+      kbo(:,41, 7) = (/ &
+        & 0.89774e-04_rb,0.98751e-04_rb,0.10852e-03_rb,0.11918e-03_rb,0.13057e-03_rb /)
+      kbo(:,42, 7) = (/ &
+        & 0.76232e-04_rb,0.84383e-04_rb,0.93336e-04_rb,0.10314e-03_rb,0.11381e-03_rb /)
+      kbo(:,43, 7) = (/ &
+        & 0.64370e-04_rb,0.71684e-04_rb,0.79797e-04_rb,0.88850e-04_rb,0.98733e-04_rb /)
+      kbo(:,44, 7) = (/ &
+        & 0.54125e-04_rb,0.60680e-04_rb,0.68042e-04_rb,0.76313e-04_rb,0.85432e-04_rb /)
+      kbo(:,45, 7) = (/ &
+        & 0.45374e-04_rb,0.51280e-04_rb,0.57932e-04_rb,0.65429e-04_rb,0.73852e-04_rb /)
+      kbo(:,46, 7) = (/ &
+        & 0.37861e-04_rb,0.43078e-04_rb,0.49016e-04_rb,0.55844e-04_rb,0.63538e-04_rb /)
+      kbo(:,47, 7) = (/ &
+        & 0.31342e-04_rb,0.35879e-04_rb,0.41175e-04_rb,0.47252e-04_rb,0.54286e-04_rb /)
+      kbo(:,48, 7) = (/ &
+        & 0.25821e-04_rb,0.29777e-04_rb,0.34458e-04_rb,0.39880e-04_rb,0.46218e-04_rb /)
+      kbo(:,49, 7) = (/ &
+        & 0.21180e-04_rb,0.24617e-04_rb,0.28719e-04_rb,0.33507e-04_rb,0.39184e-04_rb /)
+      kbo(:,50, 7) = (/ &
+        & 0.17377e-04_rb,0.20345e-04_rb,0.23916e-04_rb,0.28177e-04_rb,0.33237e-04_rb /)
+      kbo(:,51, 7) = (/ &
+        & 0.14223e-04_rb,0.16790e-04_rb,0.19868e-04_rb,0.23656e-04_rb,0.28163e-04_rb /)
+      kbo(:,52, 7) = (/ &
+        & 0.11593e-04_rb,0.13788e-04_rb,0.16479e-04_rb,0.19773e-04_rb,0.23765e-04_rb /)
+      kbo(:,53, 7) = (/ &
+        & 0.94141e-05_rb,0.11279e-04_rb,0.13591e-04_rb,0.16447e-04_rb,0.19969e-04_rb /)
+      kbo(:,54, 7) = (/ &
+        & 0.76622e-05_rb,0.92417e-05_rb,0.11233e-04_rb,0.13709e-04_rb,0.16819e-04_rb /)
+      kbo(:,55, 7) = (/ &
+        & 0.62315e-05_rb,0.75671e-05_rb,0.92699e-05_rb,0.11429e-04_rb,0.14186e-04_rb /)
+      kbo(:,56, 7) = (/ &
+        & 0.50473e-05_rb,0.61766e-05_rb,0.76316e-05_rb,0.94979e-05_rb,0.11890e-04_rb /)
+      kbo(:,57, 7) = (/ &
+        & 0.40773e-05_rb,0.50242e-05_rb,0.62540e-05_rb,0.78594e-05_rb,0.99378e-05_rb /)
+      kbo(:,58, 7) = (/ &
+        & 0.32937e-05_rb,0.40862e-05_rb,0.51228e-05_rb,0.64992e-05_rb,0.83112e-05_rb /)
+      kbo(:,59, 7) = (/ &
+        & 0.27593e-05_rb,0.34505e-05_rb,0.43716e-05_rb,0.56035e-05_rb,0.72609e-05_rb /)
+      kbo(:,13, 8) = (/ &
+        & 0.25990e-01_rb,0.25997e-01_rb,0.26024e-01_rb,0.26038e-01_rb,0.26132e-01_rb /)
+      kbo(:,14, 8) = (/ &
+        & 0.22648e-01_rb,0.22731e-01_rb,0.22803e-01_rb,0.22861e-01_rb,0.23020e-01_rb /)
+      kbo(:,15, 8) = (/ &
+        & 0.19641e-01_rb,0.19812e-01_rb,0.19880e-01_rb,0.19998e-01_rb,0.20141e-01_rb /)
+      kbo(:,16, 8) = (/ &
+        & 0.16909e-01_rb,0.17030e-01_rb,0.17148e-01_rb,0.17296e-01_rb,0.17502e-01_rb /)
+      kbo(:,17, 8) = (/ &
+        & 0.14365e-01_rb,0.14504e-01_rb,0.14643e-01_rb,0.14808e-01_rb,0.14996e-01_rb /)
+      kbo(:,18, 8) = (/ &
+        & 0.12072e-01_rb,0.12207e-01_rb,0.12346e-01_rb,0.12513e-01_rb,0.12742e-01_rb /)
+      kbo(:,19, 8) = (/ &
+        & 0.10135e-01_rb,0.10263e-01_rb,0.10402e-01_rb,0.10602e-01_rb,0.10794e-01_rb /)
+      kbo(:,20, 8) = (/ &
+        & 0.86508e-02_rb,0.87951e-02_rb,0.89765e-02_rb,0.91530e-02_rb,0.93447e-02_rb /)
+      kbo(:,21, 8) = (/ &
+        & 0.74228e-02_rb,0.75964e-02_rb,0.77805e-02_rb,0.79441e-02_rb,0.81266e-02_rb /)
+      kbo(:,22, 8) = (/ &
+        & 0.63949e-02_rb,0.65920e-02_rb,0.67584e-02_rb,0.69298e-02_rb,0.70968e-02_rb /)
+      kbo(:,23, 8) = (/ &
+        & 0.55389e-02_rb,0.57165e-02_rb,0.58834e-02_rb,0.60490e-02_rb,0.62163e-02_rb /)
+      kbo(:,24, 8) = (/ &
+        & 0.47980e-02_rb,0.49696e-02_rb,0.51333e-02_rb,0.53055e-02_rb,0.54695e-02_rb /)
+      kbo(:,25, 8) = (/ &
+        & 0.41676e-02_rb,0.43357e-02_rb,0.44999e-02_rb,0.46749e-02_rb,0.48179e-02_rb /)
+      kbo(:,26, 8) = (/ &
+        & 0.36391e-02_rb,0.38079e-02_rb,0.39834e-02_rb,0.41374e-02_rb,0.42754e-02_rb /)
+      kbo(:,27, 8) = (/ &
+        & 0.31917e-02_rb,0.33580e-02_rb,0.35237e-02_rb,0.36737e-02_rb,0.37982e-02_rb /)
+      kbo(:,28, 8) = (/ &
+        & 0.28096e-02_rb,0.29709e-02_rb,0.31242e-02_rb,0.32613e-02_rb,0.33829e-02_rb /)
+      kbo(:,29, 8) = (/ &
+        & 0.24786e-02_rb,0.26272e-02_rb,0.27706e-02_rb,0.28986e-02_rb,0.30130e-02_rb /)
+      kbo(:,30, 8) = (/ &
+        & 0.21907e-02_rb,0.23282e-02_rb,0.24574e-02_rb,0.25778e-02_rb,0.26806e-02_rb /)
+      kbo(:,31, 8) = (/ &
+        & 0.19346e-02_rb,0.20569e-02_rb,0.21757e-02_rb,0.22805e-02_rb,0.23742e-02_rb /)
+      kbo(:,32, 8) = (/ &
+        & 0.17101e-02_rb,0.18247e-02_rb,0.19308e-02_rb,0.20256e-02_rb,0.21176e-02_rb /)
+      kbo(:,33, 8) = (/ &
+        & 0.15171e-02_rb,0.16168e-02_rb,0.17121e-02_rb,0.18035e-02_rb,0.18911e-02_rb /)
+      kbo(:,34, 8) = (/ &
+        & 0.13466e-02_rb,0.14390e-02_rb,0.15246e-02_rb,0.16083e-02_rb,0.16921e-02_rb /)
+      kbo(:,35, 8) = (/ &
+        & 0.11871e-02_rb,0.12698e-02_rb,0.13534e-02_rb,0.14320e-02_rb,0.15071e-02_rb /)
+      kbo(:,36, 8) = (/ &
+        & 0.10388e-02_rb,0.11179e-02_rb,0.11934e-02_rb,0.12647e-02_rb,0.13391e-02_rb /)
+      kbo(:,37, 8) = (/ &
+        & 0.92233e-03_rb,0.99854e-03_rb,0.10722e-02_rb,0.11426e-02_rb,0.12118e-02_rb /)
+      kbo(:,38, 8) = (/ &
+        & 0.81843e-03_rb,0.89236e-03_rb,0.96605e-03_rb,0.10340e-02_rb,0.11003e-02_rb /)
+      kbo(:,39, 8) = (/ &
+        & 0.72738e-03_rb,0.79777e-03_rb,0.86997e-03_rb,0.93496e-03_rb,0.99852e-03_rb /)
+      kbo(:,40, 8) = (/ &
+        & 0.65149e-03_rb,0.72098e-03_rb,0.79235e-03_rb,0.86116e-03_rb,0.92474e-03_rb /)
+      kbo(:,41, 8) = (/ &
+        & 0.58318e-03_rb,0.65154e-03_rb,0.72160e-03_rb,0.79400e-03_rb,0.85973e-03_rb /)
+      kbo(:,42, 8) = (/ &
+        & 0.52127e-03_rb,0.58770e-03_rb,0.65781e-03_rb,0.73110e-03_rb,0.80165e-03_rb /)
+      kbo(:,43, 8) = (/ &
+        & 0.46404e-03_rb,0.52960e-03_rb,0.59886e-03_rb,0.67366e-03_rb,0.74727e-03_rb /)
+      kbo(:,44, 8) = (/ &
+        & 0.41229e-03_rb,0.47609e-03_rb,0.54424e-03_rb,0.61918e-03_rb,0.69366e-03_rb /)
+      kbo(:,45, 8) = (/ &
+        & 0.36534e-03_rb,0.42624e-03_rb,0.49374e-03_rb,0.56668e-03_rb,0.64364e-03_rb /)
+      kbo(:,46, 8) = (/ &
+        & 0.32134e-03_rb,0.37987e-03_rb,0.44597e-03_rb,0.51669e-03_rb,0.59469e-03_rb /)
+      kbo(:,47, 8) = (/ &
+        & 0.27855e-03_rb,0.33531e-03_rb,0.39855e-03_rb,0.46832e-03_rb,0.54562e-03_rb /)
+      kbo(:,48, 8) = (/ &
+        & 0.24094e-03_rb,0.29440e-03_rb,0.35477e-03_rb,0.42284e-03_rb,0.49767e-03_rb /)
+      kbo(:,49, 8) = (/ &
+        & 0.20710e-03_rb,0.25712e-03_rb,0.31425e-03_rb,0.38098e-03_rb,0.45465e-03_rb /)
+      kbo(:,50, 8) = (/ &
+        & 0.17757e-03_rb,0.22422e-03_rb,0.27906e-03_rb,0.34231e-03_rb,0.41419e-03_rb /)
+      kbo(:,51, 8) = (/ &
+        & 0.15198e-03_rb,0.19538e-03_rb,0.24758e-03_rb,0.30796e-03_rb,0.37765e-03_rb /)
+      kbo(:,52, 8) = (/ &
+        & 0.12943e-03_rb,0.16907e-03_rb,0.21812e-03_rb,0.27585e-03_rb,0.34284e-03_rb /)
+      kbo(:,53, 8) = (/ &
+        & 0.10946e-03_rb,0.14560e-03_rb,0.19103e-03_rb,0.24633e-03_rb,0.31049e-03_rb /)
+      kbo(:,54, 8) = (/ &
+        & 0.92950e-04_rb,0.12599e-03_rb,0.16848e-03_rb,0.22109e-03_rb,0.28266e-03_rb /)
+      kbo(:,55, 8) = (/ &
+        & 0.78722e-04_rb,0.10883e-03_rb,0.14831e-03_rb,0.19790e-03_rb,0.25770e-03_rb /)
+      kbo(:,56, 8) = (/ &
+        & 0.66323e-04_rb,0.93651e-04_rb,0.12983e-03_rb,0.17638e-03_rb,0.23393e-03_rb /)
+      kbo(:,57, 8) = (/ &
+        & 0.55644e-04_rb,0.80085e-04_rb,0.11349e-03_rb,0.15741e-03_rb,0.21274e-03_rb /)
+      kbo(:,58, 8) = (/ &
+        & 0.46537e-04_rb,0.68442e-04_rb,0.99190e-04_rb,0.14045e-03_rb,0.19327e-03_rb /)
+      kbo(:,59, 8) = (/ &
+        & 0.41558e-04_rb,0.62503e-04_rb,0.92377e-04_rb,0.13258e-03_rb,0.18528e-03_rb /)
+      kbo(:,13, 9) = (/ &
+        & 0.14836e+00_rb,0.15039e+00_rb,0.15239e+00_rb,0.15389e+00_rb,0.15517e+00_rb /)
+      kbo(:,14, 9) = (/ &
+        & 0.12935e+00_rb,0.13183e+00_rb,0.13366e+00_rb,0.13551e+00_rb,0.13674e+00_rb /)
+      kbo(:,15, 9) = (/ &
+        & 0.11269e+00_rb,0.11456e+00_rb,0.11672e+00_rb,0.11824e+00_rb,0.11951e+00_rb /)
+      kbo(:,16, 9) = (/ &
+        & 0.97577e-01_rb,0.99647e-01_rb,0.10140e+00_rb,0.10272e+00_rb,0.10390e+00_rb /)
+      kbo(:,17, 9) = (/ &
+        & 0.84601e-01_rb,0.86370e-01_rb,0.87860e-01_rb,0.89144e-01_rb,0.90341e-01_rb /)
+      kbo(:,18, 9) = (/ &
+        & 0.72851e-01_rb,0.74498e-01_rb,0.75924e-01_rb,0.77220e-01_rb,0.78434e-01_rb /)
+      kbo(:,19, 9) = (/ &
+        & 0.62688e-01_rb,0.64121e-01_rb,0.65574e-01_rb,0.66965e-01_rb,0.68243e-01_rb /)
+      kbo(:,20, 9) = (/ &
+        & 0.54382e-01_rb,0.55704e-01_rb,0.57013e-01_rb,0.58303e-01_rb,0.59763e-01_rb /)
+      kbo(:,21, 9) = (/ &
+        & 0.47190e-01_rb,0.48469e-01_rb,0.49752e-01_rb,0.51138e-01_rb,0.52452e-01_rb /)
+      kbo(:,22, 9) = (/ &
+        & 0.41104e-01_rb,0.42378e-01_rb,0.43684e-01_rb,0.45035e-01_rb,0.46495e-01_rb /)
+      kbo(:,23, 9) = (/ &
+        & 0.35910e-01_rb,0.37220e-01_rb,0.38484e-01_rb,0.39789e-01_rb,0.41443e-01_rb /)
+      kbo(:,24, 9) = (/ &
+        & 0.31558e-01_rb,0.32836e-01_rb,0.34085e-01_rb,0.35462e-01_rb,0.37160e-01_rb /)
+      kbo(:,25, 9) = (/ &
+        & 0.27861e-01_rb,0.29090e-01_rb,0.30363e-01_rb,0.31857e-01_rb,0.33566e-01_rb /)
+      kbo(:,26, 9) = (/ &
+        & 0.24743e-01_rb,0.26003e-01_rb,0.27311e-01_rb,0.28788e-01_rb,0.30553e-01_rb /)
+      kbo(:,27, 9) = (/ &
+        & 0.22141e-01_rb,0.23397e-01_rb,0.24754e-01_rb,0.26282e-01_rb,0.28040e-01_rb /)
+      kbo(:,28, 9) = (/ &
+        & 0.19941e-01_rb,0.21165e-01_rb,0.22565e-01_rb,0.24131e-01_rb,0.25980e-01_rb /)
+      kbo(:,29, 9) = (/ &
+        & 0.18046e-01_rb,0.19353e-01_rb,0.20736e-01_rb,0.22375e-01_rb,0.24248e-01_rb /)
+      kbo(:,30, 9) = (/ &
+        & 0.16429e-01_rb,0.17775e-01_rb,0.19238e-01_rb,0.20907e-01_rb,0.22847e-01_rb /)
+      kbo(:,31, 9) = (/ &
+        & 0.15094e-01_rb,0.16450e-01_rb,0.17992e-01_rb,0.19741e-01_rb,0.21608e-01_rb /)
+      kbo(:,32, 9) = (/ &
+        & 0.13975e-01_rb,0.15315e-01_rb,0.16950e-01_rb,0.18741e-01_rb,0.20564e-01_rb /)
+      kbo(:,33, 9) = (/ &
+        & 0.13026e-01_rb,0.14475e-01_rb,0.16113e-01_rb,0.17903e-01_rb,0.19794e-01_rb /)
+      kbo(:,34, 9) = (/ &
+        & 0.12248e-01_rb,0.13747e-01_rb,0.15391e-01_rb,0.17142e-01_rb,0.19155e-01_rb /)
+      kbo(:,35, 9) = (/ &
+        & 0.11491e-01_rb,0.12979e-01_rb,0.14611e-01_rb,0.16423e-01_rb,0.18475e-01_rb /)
+      kbo(:,36, 9) = (/ &
+        & 0.10695e-01_rb,0.12142e-01_rb,0.13822e-01_rb,0.15678e-01_rb,0.17729e-01_rb /)
+      kbo(:,37, 9) = (/ &
+        & 0.98761e-02_rb,0.11300e-01_rb,0.13000e-01_rb,0.14808e-01_rb,0.16848e-01_rb /)
+      kbo(:,38, 9) = (/ &
+        & 0.91358e-02_rb,0.10538e-01_rb,0.12200e-01_rb,0.13999e-01_rb,0.16082e-01_rb /)
+      kbo(:,39, 9) = (/ &
+        & 0.84558e-02_rb,0.98580e-02_rb,0.11508e-01_rb,0.13321e-01_rb,0.15372e-01_rb /)
+      kbo(:,40, 9) = (/ &
+        & 0.78020e-02_rb,0.91740e-02_rb,0.10778e-01_rb,0.12588e-01_rb,0.14594e-01_rb /)
+      kbo(:,41, 9) = (/ &
+        & 0.72028e-02_rb,0.85294e-02_rb,0.10093e-01_rb,0.11887e-01_rb,0.13872e-01_rb /)
+      kbo(:,42, 9) = (/ &
+        & 0.66335e-02_rb,0.79299e-02_rb,0.94524e-02_rb,0.11233e-01_rb,0.13162e-01_rb /)
+      kbo(:,43, 9) = (/ &
+        & 0.60936e-02_rb,0.73819e-02_rb,0.88361e-02_rb,0.10555e-01_rb,0.12456e-01_rb /)
+      kbo(:,44, 9) = (/ &
+        & 0.55851e-02_rb,0.68018e-02_rb,0.82487e-02_rb,0.98836e-02_rb,0.11744e-01_rb /)
+      kbo(:,45, 9) = (/ &
+        & 0.51361e-02_rb,0.62783e-02_rb,0.76910e-02_rb,0.92631e-02_rb,0.11096e-01_rb /)
+      kbo(:,46, 9) = (/ &
+        & 0.46789e-02_rb,0.57877e-02_rb,0.71257e-02_rb,0.86688e-02_rb,0.10399e-01_rb /)
+      kbo(:,47, 9) = (/ &
+        & 0.42434e-02_rb,0.53043e-02_rb,0.65448e-02_rb,0.80300e-02_rb,0.97286e-02_rb /)
+      kbo(:,48, 9) = (/ &
+        & 0.38917e-02_rb,0.48269e-02_rb,0.60283e-02_rb,0.74378e-02_rb,0.90783e-02_rb /)
+      kbo(:,49, 9) = (/ &
+        & 0.35823e-02_rb,0.43988e-02_rb,0.55409e-02_rb,0.68845e-02_rb,0.84495e-02_rb /)
+      kbo(:,50, 9) = (/ &
+        & 0.33116e-02_rb,0.40852e-02_rb,0.51044e-02_rb,0.63885e-02_rb,0.78773e-02_rb /)
+      kbo(:,51, 9) = (/ &
+        & 0.30752e-02_rb,0.38103e-02_rb,0.47346e-02_rb,0.59580e-02_rb,0.73779e-02_rb /)
+      kbo(:,52, 9) = (/ &
+        & 0.28626e-02_rb,0.35553e-02_rb,0.44430e-02_rb,0.55409e-02_rb,0.69343e-02_rb /)
+      kbo(:,53, 9) = (/ &
+        & 0.26485e-02_rb,0.33392e-02_rb,0.41695e-02_rb,0.51739e-02_rb,0.64753e-02_rb /)
+      kbo(:,54, 9) = (/ &
+        & 0.24736e-02_rb,0.31489e-02_rb,0.39367e-02_rb,0.48954e-02_rb,0.61401e-02_rb /)
+      kbo(:,55, 9) = (/ &
+        & 0.23362e-02_rb,0.29819e-02_rb,0.37593e-02_rb,0.46985e-02_rb,0.58363e-02_rb /)
+      kbo(:,56, 9) = (/ &
+        & 0.22243e-02_rb,0.28447e-02_rb,0.35827e-02_rb,0.44762e-02_rb,0.55720e-02_rb /)
+      kbo(:,57, 9) = (/ &
+        & 0.21389e-02_rb,0.27081e-02_rb,0.34315e-02_rb,0.43182e-02_rb,0.53898e-02_rb /)
+      kbo(:,58, 9) = (/ &
+        & 0.20428e-02_rb,0.25997e-02_rb,0.33047e-02_rb,0.41726e-02_rb,0.52071e-02_rb /)
+      kbo(:,59, 9) = (/ &
+        & 0.20538e-02_rb,0.26323e-02_rb,0.33247e-02_rb,0.41770e-02_rb,0.52496e-02_rb /)
+      kbo(:,13,10) = (/ &
+        & 0.58637e+00_rb,0.59481e+00_rb,0.59811e+00_rb,0.60451e+00_rb,0.60418e+00_rb /)
+      kbo(:,14,10) = (/ &
+        & 0.53191e+00_rb,0.53363e+00_rb,0.53861e+00_rb,0.53976e+00_rb,0.53933e+00_rb /)
+      kbo(:,15,10) = (/ &
+        & 0.47845e+00_rb,0.48447e+00_rb,0.48498e+00_rb,0.48691e+00_rb,0.48935e+00_rb /)
+      kbo(:,16,10) = (/ &
+        & 0.42695e+00_rb,0.43265e+00_rb,0.43442e+00_rb,0.43949e+00_rb,0.44244e+00_rb /)
+      kbo(:,17,10) = (/ &
+        & 0.37796e+00_rb,0.38437e+00_rb,0.38958e+00_rb,0.39367e+00_rb,0.39802e+00_rb /)
+      kbo(:,18,10) = (/ &
+        & 0.33399e+00_rb,0.33971e+00_rb,0.34517e+00_rb,0.35032e+00_rb,0.35265e+00_rb /)
+      kbo(:,19,10) = (/ &
+        & 0.29538e+00_rb,0.30247e+00_rb,0.30713e+00_rb,0.30943e+00_rb,0.31544e+00_rb /)
+      kbo(:,20,10) = (/ &
+        & 0.26154e+00_rb,0.26955e+00_rb,0.27264e+00_rb,0.27778e+00_rb,0.28167e+00_rb /)
+      kbo(:,21,10) = (/ &
+        & 0.23200e+00_rb,0.23896e+00_rb,0.24468e+00_rb,0.24838e+00_rb,0.25453e+00_rb /)
+      kbo(:,22,10) = (/ &
+        & 0.20714e+00_rb,0.21368e+00_rb,0.21959e+00_rb,0.22402e+00_rb,0.22934e+00_rb /)
+      kbo(:,23,10) = (/ &
+        & 0.18514e+00_rb,0.19070e+00_rb,0.19771e+00_rb,0.20426e+00_rb,0.20794e+00_rb /)
+      kbo(:,24,10) = (/ &
+        & 0.16629e+00_rb,0.17247e+00_rb,0.17943e+00_rb,0.18543e+00_rb,0.19044e+00_rb /)
+      kbo(:,25,10) = (/ &
+        & 0.15103e+00_rb,0.15758e+00_rb,0.16440e+00_rb,0.16947e+00_rb,0.17504e+00_rb /)
+      kbo(:,26,10) = (/ &
+        & 0.13782e+00_rb,0.14448e+00_rb,0.15050e+00_rb,0.15723e+00_rb,0.16403e+00_rb /)
+      kbo(:,27,10) = (/ &
+        & 0.12675e+00_rb,0.13284e+00_rb,0.13902e+00_rb,0.14547e+00_rb,0.15299e+00_rb /)
+      kbo(:,28,10) = (/ &
+        & 0.11700e+00_rb,0.12400e+00_rb,0.13029e+00_rb,0.13779e+00_rb,0.14535e+00_rb /)
+      kbo(:,29,10) = (/ &
+        & 0.10975e+00_rb,0.11580e+00_rb,0.12300e+00_rb,0.13106e+00_rb,0.13981e+00_rb /)
+      kbo(:,30,10) = (/ &
+        & 0.10326e+00_rb,0.10877e+00_rb,0.11694e+00_rb,0.12523e+00_rb,0.13409e+00_rb /)
+      kbo(:,31,10) = (/ &
+        & 0.97072e-01_rb,0.10392e+00_rb,0.11191e+00_rb,0.12092e+00_rb,0.13156e+00_rb /)
+      kbo(:,32,10) = (/ &
+        & 0.92483e-01_rb,0.10003e+00_rb,0.10847e+00_rb,0.11777e+00_rb,0.12978e+00_rb /)
+      kbo(:,33,10) = (/ &
+        & 0.89436e-01_rb,0.96549e-01_rb,0.10550e+00_rb,0.11582e+00_rb,0.12938e+00_rb /)
+      kbo(:,34,10) = (/ &
+        & 0.86605e-01_rb,0.93852e-01_rb,0.10437e+00_rb,0.11565e+00_rb,0.13025e+00_rb /)
+      kbo(:,35,10) = (/ &
+        & 0.83755e-01_rb,0.92443e-01_rb,0.10318e+00_rb,0.11569e+00_rb,0.13035e+00_rb /)
+      kbo(:,36,10) = (/ &
+        & 0.80159e-01_rb,0.90106e-01_rb,0.10185e+00_rb,0.11331e+00_rb,0.13105e+00_rb /)
+      kbo(:,37,10) = (/ &
+        & 0.76863e-01_rb,0.86981e-01_rb,0.98816e-01_rb,0.11094e+00_rb,0.12837e+00_rb /)
+      kbo(:,38,10) = (/ &
+        & 0.73911e-01_rb,0.84640e-01_rb,0.95988e-01_rb,0.10951e+00_rb,0.12524e+00_rb /)
+      kbo(:,39,10) = (/ &
+        & 0.71484e-01_rb,0.82465e-01_rb,0.93807e-01_rb,0.10732e+00_rb,0.12288e+00_rb /)
+      kbo(:,40,10) = (/ &
+        & 0.68367e-01_rb,0.78553e-01_rb,0.90288e-01_rb,0.10290e+00_rb,0.11884e+00_rb /)
+      kbo(:,41,10) = (/ &
+        & 0.65972e-01_rb,0.75367e-01_rb,0.87331e-01_rb,0.98979e-01_rb,0.11479e+00_rb /)
+      kbo(:,42,10) = (/ &
+        & 0.63899e-01_rb,0.72995e-01_rb,0.84392e-01_rb,0.96170e-01_rb,0.11066e+00_rb /)
+      kbo(:,43,10) = (/ &
+        & 0.61601e-01_rb,0.69361e-01_rb,0.80265e-01_rb,0.92296e-01_rb,0.10575e+00_rb /)
+      kbo(:,44,10) = (/ &
+        & 0.58053e-01_rb,0.67236e-01_rb,0.77057e-01_rb,0.88848e-01_rb,0.10118e+00_rb /)
+      kbo(:,45,10) = (/ &
+        & 0.55041e-01_rb,0.64788e-01_rb,0.73479e-01_rb,0.85189e-01_rb,0.97294e-01_rb /)
+      kbo(:,46,10) = (/ &
+        & 0.51538e-01_rb,0.61359e-01_rb,0.70493e-01_rb,0.81342e-01_rb,0.93711e-01_rb /)
+      kbo(:,47,10) = (/ &
+        & 0.48229e-01_rb,0.57754e-01_rb,0.67703e-01_rb,0.77712e-01_rb,0.88779e-01_rb /)
+      kbo(:,48,10) = (/ &
+        & 0.44328e-01_rb,0.53953e-01_rb,0.64327e-01_rb,0.74186e-01_rb,0.85354e-01_rb /)
+      kbo(:,49,10) = (/ &
+        & 0.40181e-01_rb,0.50939e-01_rb,0.60544e-01_rb,0.71079e-01_rb,0.81883e-01_rb /)
+      kbo(:,50,10) = (/ &
+        & 0.36327e-01_rb,0.47243e-01_rb,0.57625e-01_rb,0.67925e-01_rb,0.78806e-01_rb /)
+      kbo(:,51,10) = (/ &
+        & 0.33026e-01_rb,0.43278e-01_rb,0.54464e-01_rb,0.64411e-01_rb,0.75916e-01_rb /)
+      kbo(:,52,10) = (/ &
+        & 0.29600e-01_rb,0.39888e-01_rb,0.50913e-01_rb,0.61457e-01_rb,0.72719e-01_rb /)
+      kbo(:,53,10) = (/ &
+        & 0.26994e-01_rb,0.36264e-01_rb,0.46926e-01_rb,0.58631e-01_rb,0.68972e-01_rb /)
+      kbo(:,54,10) = (/ &
+        & 0.24928e-01_rb,0.33245e-01_rb,0.43870e-01_rb,0.55481e-01_rb,0.66121e-01_rb /)
+      kbo(:,55,10) = (/ &
+        & 0.23329e-01_rb,0.30647e-01_rb,0.40729e-01_rb,0.52051e-01_rb,0.63960e-01_rb /)
+      kbo(:,56,10) = (/ &
+        & 0.21581e-01_rb,0.28578e-01_rb,0.37651e-01_rb,0.48828e-01_rb,0.60673e-01_rb /)
+      kbo(:,57,10) = (/ &
+        & 0.20121e-01_rb,0.27060e-01_rb,0.35152e-01_rb,0.45854e-01_rb,0.57152e-01_rb /)
+      kbo(:,58,10) = (/ &
+        & 0.18692e-01_rb,0.25639e-01_rb,0.32995e-01_rb,0.42657e-01_rb,0.54655e-01_rb /)
+      kbo(:,59,10) = (/ &
+        & 0.18277e-01_rb,0.25273e-01_rb,0.32791e-01_rb,0.42508e-01_rb,0.53680e-01_rb /)
+      kbo(:,13,11) = (/ &
+        & 0.10693e+01_rb,0.10902e+01_rb,0.11032e+01_rb,0.10991e+01_rb,0.11118e+01_rb /)
+      kbo(:,14,11) = (/ &
+        & 0.95953e+00_rb,0.97384e+00_rb,0.98577e+00_rb,0.99728e+00_rb,0.10070e+01_rb /)
+      kbo(:,15,11) = (/ &
+        & 0.85940e+00_rb,0.86781e+00_rb,0.87766e+00_rb,0.88834e+00_rb,0.89855e+00_rb /)
+      kbo(:,16,11) = (/ &
+        & 0.76187e+00_rb,0.76651e+00_rb,0.78116e+00_rb,0.79605e+00_rb,0.80429e+00_rb /)
+      kbo(:,17,11) = (/ &
+        & 0.67627e+00_rb,0.68377e+00_rb,0.69734e+00_rb,0.70867e+00_rb,0.71758e+00_rb /)
+      kbo(:,18,11) = (/ &
+        & 0.60442e+00_rb,0.61462e+00_rb,0.62319e+00_rb,0.63477e+00_rb,0.64696e+00_rb /)
+      kbo(:,19,11) = (/ &
+        & 0.54250e+00_rb,0.55180e+00_rb,0.56132e+00_rb,0.57649e+00_rb,0.58604e+00_rb /)
+      kbo(:,20,11) = (/ &
+        & 0.49000e+00_rb,0.49922e+00_rb,0.51229e+00_rb,0.52536e+00_rb,0.53903e+00_rb /)
+      kbo(:,21,11) = (/ &
+        & 0.44362e+00_rb,0.45018e+00_rb,0.46523e+00_rb,0.48212e+00_rb,0.49590e+00_rb /)
+      kbo(:,22,11) = (/ &
+        & 0.40390e+00_rb,0.41136e+00_rb,0.42554e+00_rb,0.44299e+00_rb,0.45956e+00_rb /)
+      kbo(:,23,11) = (/ &
+        & 0.36600e+00_rb,0.37646e+00_rb,0.39144e+00_rb,0.40936e+00_rb,0.42622e+00_rb /)
+      kbo(:,24,11) = (/ &
+        & 0.33488e+00_rb,0.34802e+00_rb,0.36259e+00_rb,0.38089e+00_rb,0.39832e+00_rb /)
+      kbo(:,25,11) = (/ &
+        & 0.30569e+00_rb,0.32099e+00_rb,0.33730e+00_rb,0.35716e+00_rb,0.37447e+00_rb /)
+      kbo(:,26,11) = (/ &
+        & 0.28345e+00_rb,0.29933e+00_rb,0.31861e+00_rb,0.33716e+00_rb,0.35400e+00_rb /)
+      kbo(:,27,11) = (/ &
+        & 0.26524e+00_rb,0.28116e+00_rb,0.30310e+00_rb,0.32398e+00_rb,0.34341e+00_rb /)
+      kbo(:,28,11) = (/ &
+        & 0.25036e+00_rb,0.26748e+00_rb,0.29040e+00_rb,0.31038e+00_rb,0.33527e+00_rb /)
+      kbo(:,29,11) = (/ &
+        & 0.23678e+00_rb,0.25759e+00_rb,0.27958e+00_rb,0.30373e+00_rb,0.33097e+00_rb /)
+      kbo(:,30,11) = (/ &
+        & 0.22835e+00_rb,0.25043e+00_rb,0.27298e+00_rb,0.30247e+00_rb,0.33069e+00_rb /)
+      kbo(:,31,11) = (/ &
+        & 0.22381e+00_rb,0.24448e+00_rb,0.27386e+00_rb,0.30198e+00_rb,0.33135e+00_rb /)
+      kbo(:,32,11) = (/ &
+        & 0.21945e+00_rb,0.24581e+00_rb,0.27557e+00_rb,0.30488e+00_rb,0.33817e+00_rb /)
+      kbo(:,33,11) = (/ &
+        & 0.22020e+00_rb,0.24997e+00_rb,0.27933e+00_rb,0.31199e+00_rb,0.34537e+00_rb /)
+      kbo(:,34,11) = (/ &
+        & 0.22328e+00_rb,0.25315e+00_rb,0.28560e+00_rb,0.31999e+00_rb,0.35204e+00_rb /)
+      kbo(:,35,11) = (/ &
+        & 0.22463e+00_rb,0.25599e+00_rb,0.29016e+00_rb,0.32472e+00_rb,0.35705e+00_rb /)
+      kbo(:,36,11) = (/ &
+        & 0.22454e+00_rb,0.25719e+00_rb,0.29064e+00_rb,0.32676e+00_rb,0.35643e+00_rb /)
+      kbo(:,37,11) = (/ &
+        & 0.21917e+00_rb,0.25146e+00_rb,0.28533e+00_rb,0.32018e+00_rb,0.35207e+00_rb /)
+      kbo(:,38,11) = (/ &
+        & 0.21431e+00_rb,0.24593e+00_rb,0.28070e+00_rb,0.31440e+00_rb,0.34740e+00_rb /)
+      kbo(:,39,11) = (/ &
+        & 0.20995e+00_rb,0.24107e+00_rb,0.27540e+00_rb,0.30795e+00_rb,0.34247e+00_rb /)
+      kbo(:,40,11) = (/ &
+        & 0.20148e+00_rb,0.23319e+00_rb,0.26577e+00_rb,0.30086e+00_rb,0.33366e+00_rb /)
+      kbo(:,41,11) = (/ &
+        & 0.19132e+00_rb,0.22478e+00_rb,0.25632e+00_rb,0.29251e+00_rb,0.32436e+00_rb /)
+      kbo(:,42,11) = (/ &
+        & 0.18231e+00_rb,0.21584e+00_rb,0.24724e+00_rb,0.28164e+00_rb,0.31641e+00_rb /)
+      kbo(:,43,11) = (/ &
+        & 0.17273e+00_rb,0.20475e+00_rb,0.23702e+00_rb,0.26984e+00_rb,0.30535e+00_rb /)
+      kbo(:,44,11) = (/ &
+        & 0.16365e+00_rb,0.19313e+00_rb,0.22566e+00_rb,0.25812e+00_rb,0.29340e+00_rb /)
+      kbo(:,45,11) = (/ &
+        & 0.15471e+00_rb,0.18278e+00_rb,0.21464e+00_rb,0.24686e+00_rb,0.28060e+00_rb /)
+      kbo(:,46,11) = (/ &
+        & 0.14477e+00_rb,0.17256e+00_rb,0.20328e+00_rb,0.23515e+00_rb,0.26753e+00_rb /)
+      kbo(:,47,11) = (/ &
+        & 0.13513e+00_rb,0.16209e+00_rb,0.19092e+00_rb,0.22162e+00_rb,0.25481e+00_rb /)
+      kbo(:,48,11) = (/ &
+        & 0.12632e+00_rb,0.15056e+00_rb,0.17900e+00_rb,0.20905e+00_rb,0.24085e+00_rb /)
+      kbo(:,49,11) = (/ &
+        & 0.11846e+00_rb,0.14059e+00_rb,0.16812e+00_rb,0.19759e+00_rb,0.22701e+00_rb /)
+      kbo(:,50,11) = (/ &
+        & 0.11278e+00_rb,0.13341e+00_rb,0.15756e+00_rb,0.18662e+00_rb,0.21629e+00_rb /)
+      kbo(:,51,11) = (/ &
+        & 0.10711e+00_rb,0.12752e+00_rb,0.14951e+00_rb,0.17651e+00_rb,0.20555e+00_rb /)
+      kbo(:,52,11) = (/ &
+        & 0.10062e+00_rb,0.12140e+00_rb,0.14273e+00_rb,0.16677e+00_rb,0.19594e+00_rb /)
+      kbo(:,53,11) = (/ &
+        & 0.93686e-01_rb,0.11587e+00_rb,0.13705e+00_rb,0.15900e+00_rb,0.18673e+00_rb /)
+      kbo(:,54,11) = (/ &
+        & 0.88183e-01_rb,0.10986e+00_rb,0.13159e+00_rb,0.15362e+00_rb,0.17808e+00_rb /)
+      kbo(:,55,11) = (/ &
+        & 0.81924e-01_rb,0.10428e+00_rb,0.12662e+00_rb,0.14862e+00_rb,0.17143e+00_rb /)
+      kbo(:,56,11) = (/ &
+        & 0.75991e-01_rb,0.98633e-01_rb,0.12219e+00_rb,0.14408e+00_rb,0.16698e+00_rb /)
+      kbo(:,57,11) = (/ &
+        & 0.69399e-01_rb,0.92760e-01_rb,0.11664e+00_rb,0.14040e+00_rb,0.16308e+00_rb /)
+      kbo(:,58,11) = (/ &
+        & 0.64018e-01_rb,0.88343e-01_rb,0.11169e+00_rb,0.13686e+00_rb,0.15969e+00_rb /)
+      kbo(:,59,11) = (/ &
+        & 0.63145e-01_rb,0.86273e-01_rb,0.11143e+00_rb,0.13565e+00_rb,0.16187e+00_rb /)
+      kbo(:,13,12) = (/ &
+        & 0.22241e+01_rb,0.22556e+01_rb,0.22932e+01_rb,0.23316e+01_rb,0.23817e+01_rb /)
+      kbo(:,14,12) = (/ &
+        & 0.20015e+01_rb,0.20535e+01_rb,0.20976e+01_rb,0.21411e+01_rb,0.21895e+01_rb /)
+      kbo(:,15,12) = (/ &
+        & 0.18111e+01_rb,0.18671e+01_rb,0.19196e+01_rb,0.19734e+01_rb,0.20226e+01_rb /)
+      kbo(:,16,12) = (/ &
+        & 0.16513e+01_rb,0.17114e+01_rb,0.17632e+01_rb,0.18132e+01_rb,0.18623e+01_rb /)
+      kbo(:,17,12) = (/ &
+        & 0.15041e+01_rb,0.15648e+01_rb,0.16197e+01_rb,0.16720e+01_rb,0.17169e+01_rb /)
+      kbo(:,18,12) = (/ &
+        & 0.13731e+01_rb,0.14345e+01_rb,0.14937e+01_rb,0.15386e+01_rb,0.16052e+01_rb /)
+      kbo(:,19,12) = (/ &
+        & 0.12478e+01_rb,0.13115e+01_rb,0.13641e+01_rb,0.14279e+01_rb,0.14977e+01_rb /)
+      kbo(:,20,12) = (/ &
+        & 0.11298e+01_rb,0.11910e+01_rb,0.12495e+01_rb,0.13186e+01_rb,0.13914e+01_rb /)
+      kbo(:,21,12) = (/ &
+        & 0.10266e+01_rb,0.10915e+01_rb,0.11508e+01_rb,0.12227e+01_rb,0.13004e+01_rb /)
+      kbo(:,22,12) = (/ &
+        & 0.93959e+00_rb,0.10027e+01_rb,0.10735e+01_rb,0.11507e+01_rb,0.12312e+01_rb /)
+      kbo(:,23,12) = (/ &
+        & 0.87016e+00_rb,0.93486e+00_rb,0.10125e+01_rb,0.10930e+01_rb,0.11794e+01_rb /)
+      kbo(:,24,12) = (/ &
+        & 0.81213e+00_rb,0.88017e+00_rb,0.96483e+00_rb,0.10508e+01_rb,0.11396e+01_rb /)
+      kbo(:,25,12) = (/ &
+        & 0.77134e+00_rb,0.84295e+00_rb,0.93081e+00_rb,0.10201e+01_rb,0.11152e+01_rb /)
+      kbo(:,26,12) = (/ &
+        & 0.73832e+00_rb,0.81743e+00_rb,0.90746e+00_rb,0.10024e+01_rb,0.11020e+01_rb /)
+      kbo(:,27,12) = (/ &
+        & 0.71831e+00_rb,0.80328e+00_rb,0.89505e+00_rb,0.99247e+00_rb,0.10943e+01_rb /)
+      kbo(:,28,12) = (/ &
+        & 0.70848e+00_rb,0.79592e+00_rb,0.89143e+00_rb,0.99432e+00_rb,0.10940e+01_rb /)
+      kbo(:,29,12) = (/ &
+        & 0.70725e+00_rb,0.79781e+00_rb,0.89906e+00_rb,0.10007e+01_rb,0.11009e+01_rb /)
+      kbo(:,30,12) = (/ &
+        & 0.71125e+00_rb,0.80824e+00_rb,0.91144e+00_rb,0.10109e+01_rb,0.11144e+01_rb /)
+      kbo(:,31,12) = (/ &
+        & 0.72057e+00_rb,0.82548e+00_rb,0.92423e+00_rb,0.10285e+01_rb,0.11338e+01_rb /)
+      kbo(:,32,12) = (/ &
+        & 0.73855e+00_rb,0.84223e+00_rb,0.94322e+00_rb,0.10495e+01_rb,0.11523e+01_rb /)
+      kbo(:,33,12) = (/ &
+        & 0.75860e+00_rb,0.86137e+00_rb,0.96653e+00_rb,0.10709e+01_rb,0.11736e+01_rb /)
+      kbo(:,34,12) = (/ &
+        & 0.77584e+00_rb,0.88104e+00_rb,0.98358e+00_rb,0.10881e+01_rb,0.11928e+01_rb /)
+      kbo(:,35,12) = (/ &
+        & 0.78526e+00_rb,0.88915e+00_rb,0.99181e+00_rb,0.10955e+01_rb,0.12024e+01_rb /)
+      kbo(:,36,12) = (/ &
+        & 0.78420e+00_rb,0.88679e+00_rb,0.98962e+00_rb,0.10938e+01_rb,0.12013e+01_rb /)
+      kbo(:,37,12) = (/ &
+        & 0.76619e+00_rb,0.86975e+00_rb,0.97162e+00_rb,0.10774e+01_rb,0.11823e+01_rb /)
+      kbo(:,38,12) = (/ &
+        & 0.74778e+00_rb,0.85168e+00_rb,0.95355e+00_rb,0.10588e+01_rb,0.11642e+01_rb /)
+      kbo(:,39,12) = (/ &
+        & 0.73003e+00_rb,0.83397e+00_rb,0.93638e+00_rb,0.10427e+01_rb,0.11461e+01_rb /)
+      kbo(:,40,12) = (/ &
+        & 0.70694e+00_rb,0.80603e+00_rb,0.90951e+00_rb,0.10129e+01_rb,0.11179e+01_rb /)
+      kbo(:,41,12) = (/ &
+        & 0.68380e+00_rb,0.77629e+00_rb,0.88021e+00_rb,0.98263e+00_rb,0.10876e+01_rb /)
+      kbo(:,42,12) = (/ &
+        & 0.66231e+00_rb,0.74849e+00_rb,0.85130e+00_rb,0.95458e+00_rb,0.10576e+01_rb /)
+      kbo(:,43,12) = (/ &
+        & 0.63688e+00_rb,0.72048e+00_rb,0.81634e+00_rb,0.92017e+00_rb,0.10227e+01_rb /)
+      kbo(:,44,12) = (/ &
+        & 0.60858e+00_rb,0.69178e+00_rb,0.77940e+00_rb,0.88149e+00_rb,0.98460e+00_rb /)
+      kbo(:,45,12) = (/ &
+        & 0.58153e+00_rb,0.66520e+00_rb,0.74925e+00_rb,0.84319e+00_rb,0.94694e+00_rb /)
+      kbo(:,46,12) = (/ &
+        & 0.55197e+00_rb,0.63412e+00_rb,0.71872e+00_rb,0.80664e+00_rb,0.90684e+00_rb /)
+      kbo(:,47,12) = (/ &
+        & 0.51844e+00_rb,0.60273e+00_rb,0.68769e+00_rb,0.77076e+00_rb,0.86117e+00_rb /)
+      kbo(:,48,12) = (/ &
+        & 0.48120e+00_rb,0.57148e+00_rb,0.65491e+00_rb,0.74197e+00_rb,0.82485e+00_rb /)
+      kbo(:,49,12) = (/ &
+        & 0.44584e+00_rb,0.53846e+00_rb,0.62079e+00_rb,0.70603e+00_rb,0.79220e+00_rb /)
+      kbo(:,50,12) = (/ &
+        & 0.41289e+00_rb,0.50133e+00_rb,0.59314e+00_rb,0.67773e+00_rb,0.76297e+00_rb /)
+      kbo(:,51,12) = (/ &
+        & 0.38263e+00_rb,0.46808e+00_rb,0.55994e+00_rb,0.64654e+00_rb,0.73545e+00_rb /)
+      kbo(:,52,12) = (/ &
+        & 0.35216e+00_rb,0.43713e+00_rb,0.52781e+00_rb,0.61897e+00_rb,0.70212e+00_rb /)
+      kbo(:,53,12) = (/ &
+        & 0.33102e+00_rb,0.40477e+00_rb,0.49059e+00_rb,0.58472e+00_rb,0.67270e+00_rb /)
+      kbo(:,54,12) = (/ &
+        & 0.31146e+00_rb,0.37834e+00_rb,0.46271e+00_rb,0.55353e+00_rb,0.64596e+00_rb /)
+      kbo(:,55,12) = (/ &
+        & 0.29087e+00_rb,0.35982e+00_rb,0.43598e+00_rb,0.52416e+00_rb,0.61765e+00_rb /)
+      kbo(:,56,12) = (/ &
+        & 0.27304e+00_rb,0.34098e+00_rb,0.41224e+00_rb,0.49775e+00_rb,0.58771e+00_rb /)
+      kbo(:,57,12) = (/ &
+        & 0.25824e+00_rb,0.32066e+00_rb,0.39085e+00_rb,0.46641e+00_rb,0.55829e+00_rb /)
+      kbo(:,58,12) = (/ &
+        & 0.24548e+00_rb,0.30081e+00_rb,0.37338e+00_rb,0.44708e+00_rb,0.53062e+00_rb /)
+      kbo(:,59,12) = (/ &
+        & 0.24212e+00_rb,0.29858e+00_rb,0.36550e+00_rb,0.44064e+00_rb,0.51789e+00_rb /)
+      kbo(:,13,13) = (/ &
+        & 0.55998e+01_rb,0.57039e+01_rb,0.58049e+01_rb,0.59180e+01_rb,0.59854e+01_rb /)
+      kbo(:,14,13) = (/ &
+        & 0.53275e+01_rb,0.54387e+01_rb,0.55543e+01_rb,0.56621e+01_rb,0.57635e+01_rb /)
+      kbo(:,15,13) = (/ &
+        & 0.50203e+01_rb,0.51578e+01_rb,0.52898e+01_rb,0.54130e+01_rb,0.55373e+01_rb /)
+      kbo(:,16,13) = (/ &
+        & 0.47246e+01_rb,0.48786e+01_rb,0.50266e+01_rb,0.51689e+01_rb,0.53242e+01_rb /)
+      kbo(:,17,13) = (/ &
+        & 0.44403e+01_rb,0.46027e+01_rb,0.47680e+01_rb,0.49455e+01_rb,0.51299e+01_rb /)
+      kbo(:,18,13) = (/ &
+        & 0.41648e+01_rb,0.43473e+01_rb,0.45415e+01_rb,0.47508e+01_rb,0.49298e+01_rb /)
+      kbo(:,19,13) = (/ &
+        & 0.39134e+01_rb,0.41196e+01_rb,0.43493e+01_rb,0.45520e+01_rb,0.47522e+01_rb /)
+      kbo(:,20,13) = (/ &
+        & 0.36873e+01_rb,0.39195e+01_rb,0.41603e+01_rb,0.43826e+01_rb,0.46005e+01_rb /)
+      kbo(:,21,13) = (/ &
+        & 0.34974e+01_rb,0.37507e+01_rb,0.40010e+01_rb,0.42413e+01_rb,0.44759e+01_rb /)
+      kbo(:,22,13) = (/ &
+        & 0.33605e+01_rb,0.36305e+01_rb,0.38873e+01_rb,0.41404e+01_rb,0.43929e+01_rb /)
+      kbo(:,23,13) = (/ &
+        & 0.32571e+01_rb,0.35388e+01_rb,0.38042e+01_rb,0.40702e+01_rb,0.43353e+01_rb /)
+      kbo(:,24,13) = (/ &
+        & 0.31836e+01_rb,0.34721e+01_rb,0.37495e+01_rb,0.40277e+01_rb,0.43044e+01_rb /)
+      kbo(:,25,13) = (/ &
+        & 0.31346e+01_rb,0.34329e+01_rb,0.37222e+01_rb,0.40107e+01_rb,0.42953e+01_rb /)
+      kbo(:,26,13) = (/ &
+        & 0.31155e+01_rb,0.34221e+01_rb,0.37222e+01_rb,0.40178e+01_rb,0.43079e+01_rb /)
+      kbo(:,27,13) = (/ &
+        & 0.31157e+01_rb,0.34328e+01_rb,0.37392e+01_rb,0.40396e+01_rb,0.43346e+01_rb /)
+      kbo(:,28,13) = (/ &
+        & 0.31335e+01_rb,0.34580e+01_rb,0.37695e+01_rb,0.40734e+01_rb,0.43720e+01_rb /)
+      kbo(:,29,13) = (/ &
+        & 0.31697e+01_rb,0.34978e+01_rb,0.38120e+01_rb,0.41186e+01_rb,0.44189e+01_rb /)
+      kbo(:,30,13) = (/ &
+        & 0.32194e+01_rb,0.35475e+01_rb,0.38638e+01_rb,0.41720e+01_rb,0.44722e+01_rb /)
+      kbo(:,31,13) = (/ &
+        & 0.32811e+01_rb,0.36069e+01_rb,0.39241e+01_rb,0.42325e+01_rb,0.45314e+01_rb /)
+      kbo(:,32,13) = (/ &
+        & 0.33484e+01_rb,0.36727e+01_rb,0.39897e+01_rb,0.42974e+01_rb,0.45949e+01_rb /)
+      kbo(:,33,13) = (/ &
+        & 0.34186e+01_rb,0.37430e+01_rb,0.40586e+01_rb,0.43658e+01_rb,0.46602e+01_rb /)
+      kbo(:,34,13) = (/ &
+        & 0.34801e+01_rb,0.38048e+01_rb,0.41197e+01_rb,0.44255e+01_rb,0.47156e+01_rb /)
+      kbo(:,35,13) = (/ &
+        & 0.35126e+01_rb,0.38375e+01_rb,0.41525e+01_rb,0.44577e+01_rb,0.47454e+01_rb /)
+      kbo(:,36,13) = (/ &
+        & 0.35115e+01_rb,0.38370e+01_rb,0.41529e+01_rb,0.44584e+01_rb,0.47449e+01_rb /)
+      kbo(:,37,13) = (/ &
+        & 0.34620e+01_rb,0.37892e+01_rb,0.41066e+01_rb,0.44144e+01_rb,0.47052e+01_rb /)
+      kbo(:,38,13) = (/ &
+        & 0.34108e+01_rb,0.37391e+01_rb,0.40587e+01_rb,0.43685e+01_rb,0.46624e+01_rb /)
+      kbo(:,39,13) = (/ &
+        & 0.33603e+01_rb,0.36896e+01_rb,0.40114e+01_rb,0.43229e+01_rb,0.46208e+01_rb /)
+      kbo(:,40,13) = (/ &
+        & 0.32696e+01_rb,0.36068e+01_rb,0.39317e+01_rb,0.42460e+01_rb,0.45479e+01_rb /)
+      kbo(:,41,13) = (/ &
+        & 0.31746e+01_rb,0.35197e+01_rb,0.38475e+01_rb,0.41644e+01_rb,0.44716e+01_rb /)
+      kbo(:,42,13) = (/ &
+        & 0.30768e+01_rb,0.34312e+01_rb,0.37630e+01_rb,0.40826e+01_rb,0.43924e+01_rb /)
+      kbo(:,43,13) = (/ &
+        & 0.29558e+01_rb,0.33178e+01_rb,0.36587e+01_rb,0.39822e+01_rb,0.42959e+01_rb /)
+      kbo(:,44,13) = (/ &
+        & 0.28280e+01_rb,0.31906e+01_rb,0.35435e+01_rb,0.38727e+01_rb,0.41899e+01_rb /)
+      kbo(:,45,13) = (/ &
+        & 0.26988e+01_rb,0.30597e+01_rb,0.34201e+01_rb,0.37628e+01_rb,0.40831e+01_rb /)
+      kbo(:,46,13) = (/ &
+        & 0.25661e+01_rb,0.29262e+01_rb,0.32865e+01_rb,0.36383e+01_rb,0.39682e+01_rb /)
+      kbo(:,47,13) = (/ &
+        & 0.24176e+01_rb,0.27716e+01_rb,0.31308e+01_rb,0.34925e+01_rb,0.38381e+01_rb /)
+      kbo(:,48,13) = (/ &
+        & 0.22754e+01_rb,0.26218e+01_rb,0.29793e+01_rb,0.33363e+01_rb,0.36948e+01_rb /)
+      kbo(:,49,13) = (/ &
+        & 0.21329e+01_rb,0.24724e+01_rb,0.28302e+01_rb,0.31874e+01_rb,0.35454e+01_rb /)
+      kbo(:,50,13) = (/ &
+        & 0.20005e+01_rb,0.23398e+01_rb,0.26856e+01_rb,0.30422e+01_rb,0.34002e+01_rb /)
+      kbo(:,51,13) = (/ &
+        & 0.18713e+01_rb,0.22087e+01_rb,0.25515e+01_rb,0.29067e+01_rb,0.32588e+01_rb /)
+      kbo(:,52,13) = (/ &
+        & 0.17459e+01_rb,0.20772e+01_rb,0.24169e+01_rb,0.27666e+01_rb,0.31241e+01_rb /)
+      kbo(:,53,13) = (/ &
+        & 0.16095e+01_rb,0.19502e+01_rb,0.22895e+01_rb,0.26325e+01_rb,0.29855e+01_rb /)
+      kbo(:,54,13) = (/ &
+        & 0.15066e+01_rb,0.18320e+01_rb,0.21659e+01_rb,0.25081e+01_rb,0.28569e+01_rb /)
+      kbo(:,55,13) = (/ &
+        & 0.14318e+01_rb,0.17117e+01_rb,0.20491e+01_rb,0.23896e+01_rb,0.27343e+01_rb /)
+      kbo(:,56,13) = (/ &
+        & 0.13449e+01_rb,0.16235e+01_rb,0.19309e+01_rb,0.22682e+01_rb,0.26139e+01_rb /)
+      kbo(:,57,13) = (/ &
+        & 0.12667e+01_rb,0.15514e+01_rb,0.18274e+01_rb,0.21528e+01_rb,0.24919e+01_rb /)
+      kbo(:,58,13) = (/ &
+        & 0.11763e+01_rb,0.14696e+01_rb,0.17445e+01_rb,0.20345e+01_rb,0.23757e+01_rb /)
+      kbo(:,59,13) = (/ &
+        & 0.11472e+01_rb,0.14428e+01_rb,0.17312e+01_rb,0.20031e+01_rb,0.23234e+01_rb /)
+      kbo(:,13,14) = (/ &
+        & 0.15147e+02_rb,0.15130e+02_rb,0.15113e+02_rb,0.15099e+02_rb,0.15078e+02_rb /)
+      kbo(:,14,14) = (/ &
+        & 0.15510e+02_rb,0.15546e+02_rb,0.15567e+02_rb,0.15587e+02_rb,0.15585e+02_rb /)
+      kbo(:,15,14) = (/ &
+        & 0.15739e+02_rb,0.15841e+02_rb,0.15930e+02_rb,0.15986e+02_rb,0.16004e+02_rb /)
+      kbo(:,16,14) = (/ &
+        & 0.15858e+02_rb,0.16042e+02_rb,0.16196e+02_rb,0.16295e+02_rb,0.16347e+02_rb /)
+      kbo(:,17,14) = (/ &
+        & 0.15892e+02_rb,0.16168e+02_rb,0.16375e+02_rb,0.16519e+02_rb,0.16620e+02_rb /)
+      kbo(:,18,14) = (/ &
+        & 0.15890e+02_rb,0.16233e+02_rb,0.16495e+02_rb,0.16687e+02_rb,0.16843e+02_rb /)
+      kbo(:,19,14) = (/ &
+        & 0.15860e+02_rb,0.16260e+02_rb,0.16572e+02_rb,0.16822e+02_rb,0.17016e+02_rb /)
+      kbo(:,20,14) = (/ &
+        & 0.15821e+02_rb,0.16274e+02_rb,0.16642e+02_rb,0.16937e+02_rb,0.17165e+02_rb /)
+      kbo(:,21,14) = (/ &
+        & 0.15778e+02_rb,0.16284e+02_rb,0.16705e+02_rb,0.17036e+02_rb,0.17293e+02_rb /)
+      kbo(:,22,14) = (/ &
+        & 0.15777e+02_rb,0.16337e+02_rb,0.16794e+02_rb,0.17151e+02_rb,0.17417e+02_rb /)
+      kbo(:,23,14) = (/ &
+        & 0.15815e+02_rb,0.16408e+02_rb,0.16883e+02_rb,0.17258e+02_rb,0.17537e+02_rb /)
+      kbo(:,24,14) = (/ &
+        & 0.15884e+02_rb,0.16493e+02_rb,0.16982e+02_rb,0.17365e+02_rb,0.17648e+02_rb /)
+      kbo(:,25,14) = (/ &
+        & 0.15973e+02_rb,0.16594e+02_rb,0.17087e+02_rb,0.17470e+02_rb,0.17753e+02_rb /)
+      kbo(:,26,14) = (/ &
+        & 0.16098e+02_rb,0.16711e+02_rb,0.17198e+02_rb,0.17574e+02_rb,0.17853e+02_rb /)
+      kbo(:,27,14) = (/ &
+        & 0.16232e+02_rb,0.16836e+02_rb,0.17310e+02_rb,0.17676e+02_rb,0.17946e+02_rb /)
+      kbo(:,28,14) = (/ &
+        & 0.16376e+02_rb,0.16966e+02_rb,0.17425e+02_rb,0.17775e+02_rb,0.18032e+02_rb /)
+      kbo(:,29,14) = (/ &
+        & 0.16527e+02_rb,0.17096e+02_rb,0.17538e+02_rb,0.17871e+02_rb,0.18111e+02_rb /)
+      kbo(:,30,14) = (/ &
+        & 0.16681e+02_rb,0.17223e+02_rb,0.17646e+02_rb,0.17959e+02_rb,0.18183e+02_rb /)
+      kbo(:,31,14) = (/ &
+        & 0.16832e+02_rb,0.17348e+02_rb,0.17747e+02_rb,0.18041e+02_rb,0.18247e+02_rb /)
+      kbo(:,32,14) = (/ &
+        & 0.16982e+02_rb,0.17470e+02_rb,0.17844e+02_rb,0.18116e+02_rb,0.18304e+02_rb /)
+      kbo(:,33,14) = (/ &
+        & 0.17125e+02_rb,0.17586e+02_rb,0.17935e+02_rb,0.18187e+02_rb,0.18356e+02_rb /)
+      kbo(:,34,14) = (/ &
+        & 0.17243e+02_rb,0.17681e+02_rb,0.18009e+02_rb,0.18243e+02_rb,0.18396e+02_rb /)
+      kbo(:,35,14) = (/ &
+        & 0.17308e+02_rb,0.17736e+02_rb,0.18053e+02_rb,0.18277e+02_rb,0.18422e+02_rb /)
+      kbo(:,36,14) = (/ &
+        & 0.17321e+02_rb,0.17747e+02_rb,0.18064e+02_rb,0.18289e+02_rb,0.18431e+02_rb /)
+      kbo(:,37,14) = (/ &
+        & 0.17259e+02_rb,0.17701e+02_rb,0.18033e+02_rb,0.18270e+02_rb,0.18425e+02_rb /)
+      kbo(:,38,14) = (/ &
+        & 0.17190e+02_rb,0.17649e+02_rb,0.17997e+02_rb,0.18247e+02_rb,0.18415e+02_rb /)
+      kbo(:,39,14) = (/ &
+        & 0.17116e+02_rb,0.17594e+02_rb,0.17957e+02_rb,0.18221e+02_rb,0.18401e+02_rb /)
+      kbo(:,40,14) = (/ &
+        & 0.16981e+02_rb,0.17491e+02_rb,0.17882e+02_rb,0.18168e+02_rb,0.18367e+02_rb /)
+      kbo(:,41,14) = (/ &
+        & 0.16829e+02_rb,0.17375e+02_rb,0.17795e+02_rb,0.18107e+02_rb,0.18328e+02_rb /)
+      kbo(:,42,14) = (/ &
+        & 0.16667e+02_rb,0.17250e+02_rb,0.17700e+02_rb,0.18038e+02_rb,0.18281e+02_rb /)
+      kbo(:,43,14) = (/ &
+        & 0.16452e+02_rb,0.17082e+02_rb,0.17573e+02_rb,0.17944e+02_rb,0.18214e+02_rb /)
+      kbo(:,44,14) = (/ &
+        & 0.16203e+02_rb,0.16887e+02_rb,0.17421e+02_rb,0.17833e+02_rb,0.18135e+02_rb /)
+      kbo(:,45,14) = (/ &
+        & 0.15935e+02_rb,0.16673e+02_rb,0.17257e+02_rb,0.17708e+02_rb,0.18046e+02_rb /)
+      kbo(:,46,14) = (/ &
+        & 0.15628e+02_rb,0.16427e+02_rb,0.17064e+02_rb,0.17560e+02_rb,0.17936e+02_rb /)
+      kbo(:,47,14) = (/ &
+        & 0.15258e+02_rb,0.16126e+02_rb,0.16827e+02_rb,0.17377e+02_rb,0.17799e+02_rb /)
+      kbo(:,48,14) = (/ &
+        & 0.14864e+02_rb,0.15798e+02_rb,0.16564e+02_rb,0.17174e+02_rb,0.17643e+02_rb /)
+      kbo(:,49,14) = (/ &
+        & 0.14439e+02_rb,0.15441e+02_rb,0.16276e+02_rb,0.16946e+02_rb,0.17469e+02_rb /)
+      kbo(:,50,14) = (/ &
+        & 0.14012e+02_rb,0.15084e+02_rb,0.15980e+02_rb,0.16711e+02_rb,0.17289e+02_rb /)
+      kbo(:,51,14) = (/ &
+        & 0.13576e+02_rb,0.14715e+02_rb,0.15671e+02_rb,0.16463e+02_rb,0.17096e+02_rb /)
+      kbo(:,52,14) = (/ &
+        & 0.13120e+02_rb,0.14320e+02_rb,0.15341e+02_rb,0.16194e+02_rb,0.16882e+02_rb /)
+      kbo(:,53,14) = (/ &
+        & 0.12642e+02_rb,0.13899e+02_rb,0.14988e+02_rb,0.15902e+02_rb,0.16649e+02_rb /)
+      kbo(:,54,14) = (/ &
+        & 0.12147e+02_rb,0.13496e+02_rb,0.14645e+02_rb,0.15614e+02_rb,0.16418e+02_rb /)
+      kbo(:,55,14) = (/ &
+        & 0.11626e+02_rb,0.13090e+02_rb,0.14295e+02_rb,0.15320e+02_rb,0.16178e+02_rb /)
+      kbo(:,56,14) = (/ &
+        & 0.11110e+02_rb,0.12619e+02_rb,0.13926e+02_rb,0.15012e+02_rb,0.15922e+02_rb /)
+      kbo(:,57,14) = (/ &
+        & 0.10565e+02_rb,0.12110e+02_rb,0.13518e+02_rb,0.14685e+02_rb,0.15649e+02_rb /)
+      kbo(:,58,14) = (/ &
+        & 0.10061e+02_rb,0.11633e+02_rb,0.13084e+02_rb,0.14356e+02_rb,0.15374e+02_rb /)
+      kbo(:,59,14) = (/ &
+        & 0.98377e+01_rb,0.11416e+02_rb,0.12868e+02_rb,0.14184e+02_rb,0.15259e+02_rb /)
+      kbo(:,13,15) = (/ &
+        & 0.41304e+02_rb,0.40483e+02_rb,0.39654e+02_rb,0.38829e+02_rb,0.38029e+02_rb /)
+      kbo(:,14,15) = (/ &
+        & 0.44686e+02_rb,0.43762e+02_rb,0.42836e+02_rb,0.41888e+02_rb,0.41004e+02_rb /)
+      kbo(:,15,15) = (/ &
+        & 0.48004e+02_rb,0.46942e+02_rb,0.45864e+02_rb,0.44813e+02_rb,0.43844e+02_rb /)
+      kbo(:,16,15) = (/ &
+        & 0.51150e+02_rb,0.49938e+02_rb,0.48734e+02_rb,0.47591e+02_rb,0.46512e+02_rb /)
+      kbo(:,17,15) = (/ &
+        & 0.54100e+02_rb,0.52729e+02_rb,0.51435e+02_rb,0.50180e+02_rb,0.48962e+02_rb /)
+      kbo(:,18,15) = (/ &
+        & 0.56777e+02_rb,0.55306e+02_rb,0.53894e+02_rb,0.52525e+02_rb,0.51164e+02_rb /)
+      kbo(:,19,15) = (/ &
+        & 0.59186e+02_rb,0.57635e+02_rb,0.56100e+02_rb,0.54603e+02_rb,0.53129e+02_rb /)
+      kbo(:,20,15) = (/ &
+        & 0.61293e+02_rb,0.59648e+02_rb,0.58005e+02_rb,0.56388e+02_rb,0.54798e+02_rb /)
+      kbo(:,21,15) = (/ &
+        & 0.63124e+02_rb,0.61368e+02_rb,0.59613e+02_rb,0.57895e+02_rb,0.56204e+02_rb /)
+      kbo(:,22,15) = (/ &
+        & 0.64562e+02_rb,0.62695e+02_rb,0.60841e+02_rb,0.59040e+02_rb,0.57268e+02_rb /)
+      kbo(:,23,15) = (/ &
+        & 0.65690e+02_rb,0.63742e+02_rb,0.61820e+02_rb,0.59937e+02_rb,0.58087e+02_rb /)
+      kbo(:,24,15) = (/ &
+        & 0.66548e+02_rb,0.64535e+02_rb,0.62550e+02_rb,0.60597e+02_rb,0.58690e+02_rb /)
+      kbo(:,25,15) = (/ &
+        & 0.67194e+02_rb,0.65115e+02_rb,0.63062e+02_rb,0.61050e+02_rb,0.59091e+02_rb /)
+      kbo(:,26,15) = (/ &
+        & 0.67597e+02_rb,0.65466e+02_rb,0.63369e+02_rb,0.61312e+02_rb,0.59309e+02_rb /)
+      kbo(:,27,15) = (/ &
+        & 0.67831e+02_rb,0.65647e+02_rb,0.63518e+02_rb,0.61430e+02_rb,0.59393e+02_rb /)
+      kbo(:,28,15) = (/ &
+        & 0.67908e+02_rb,0.65687e+02_rb,0.63527e+02_rb,0.61427e+02_rb,0.59357e+02_rb /)
+      kbo(:,29,15) = (/ &
+        & 0.67845e+02_rb,0.65603e+02_rb,0.63419e+02_rb,0.61304e+02_rb,0.59222e+02_rb /)
+      kbo(:,30,15) = (/ &
+        & 0.67682e+02_rb,0.65422e+02_rb,0.63225e+02_rb,0.61094e+02_rb,0.59010e+02_rb /)
+      kbo(:,31,15) = (/ &
+        & 0.67415e+02_rb,0.65154e+02_rb,0.62953e+02_rb,0.60816e+02_rb,0.58721e+02_rb /)
+      kbo(:,32,15) = (/ &
+        & 0.67084e+02_rb,0.64817e+02_rb,0.62622e+02_rb,0.60477e+02_rb,0.58393e+02_rb /)
+      kbo(:,33,15) = (/ &
+        & 0.66692e+02_rb,0.64428e+02_rb,0.62242e+02_rb,0.60092e+02_rb,0.58024e+02_rb /)
+      kbo(:,34,15) = (/ &
+        & 0.66346e+02_rb,0.64077e+02_rb,0.61890e+02_rb,0.59745e+02_rb,0.57700e+02_rb /)
+      kbo(:,35,15) = (/ &
+        & 0.66188e+02_rb,0.63920e+02_rb,0.61727e+02_rb,0.59582e+02_rb,0.57542e+02_rb /)
+      kbo(:,36,15) = (/ &
+        & 0.66248e+02_rb,0.63978e+02_rb,0.61782e+02_rb,0.59625e+02_rb,0.57587e+02_rb /)
+      kbo(:,37,15) = (/ &
+        & 0.66642e+02_rb,0.64358e+02_rb,0.62144e+02_rb,0.59978e+02_rb,0.57911e+02_rb /)
+      kbo(:,38,15) = (/ &
+        & 0.67048e+02_rb,0.64747e+02_rb,0.62516e+02_rb,0.60340e+02_rb,0.58249e+02_rb /)
+      kbo(:,39,15) = (/ &
+        & 0.67435e+02_rb,0.65122e+02_rb,0.62879e+02_rb,0.60689e+02_rb,0.58578e+02_rb /)
+      kbo(:,40,15) = (/ &
+        & 0.68061e+02_rb,0.65724e+02_rb,0.63462e+02_rb,0.61257e+02_rb,0.59113e+02_rb /)
+      kbo(:,41,15) = (/ &
+        & 0.68702e+02_rb,0.66354e+02_rb,0.64067e+02_rb,0.61847e+02_rb,0.59682e+02_rb /)
+      kbo(:,42,15) = (/ &
+        & 0.69355e+02_rb,0.66983e+02_rb,0.64678e+02_rb,0.62437e+02_rb,0.60259e+02_rb /)
+      kbo(:,43,15) = (/ &
+        & 0.70142e+02_rb,0.67744e+02_rb,0.65416e+02_rb,0.63159e+02_rb,0.60959e+02_rb /)
+      kbo(:,44,15) = (/ &
+        & 0.70991e+02_rb,0.68567e+02_rb,0.66218e+02_rb,0.63930e+02_rb,0.61713e+02_rb /)
+      kbo(:,45,15) = (/ &
+        & 0.71837e+02_rb,0.69401e+02_rb,0.67026e+02_rb,0.64713e+02_rb,0.62473e+02_rb /)
+      kbo(:,46,15) = (/ &
+        & 0.72733e+02_rb,0.70287e+02_rb,0.67885e+02_rb,0.65552e+02_rb,0.63292e+02_rb /)
+      kbo(:,47,15) = (/ &
+        & 0.73741e+02_rb,0.71285e+02_rb,0.68859e+02_rb,0.66493e+02_rb,0.64198e+02_rb /)
+      kbo(:,48,15) = (/ &
+        & 0.74725e+02_rb,0.72283e+02_rb,0.69840e+02_rb,0.67442e+02_rb,0.65125e+02_rb /)
+      kbo(:,49,15) = (/ &
+        & 0.75665e+02_rb,0.73280e+02_rb,0.70828e+02_rb,0.68404e+02_rb,0.66060e+02_rb /)
+      kbo(:,50,15) = (/ &
+        & 0.76534e+02_rb,0.74218e+02_rb,0.71764e+02_rb,0.69323e+02_rb,0.66942e+02_rb /)
+      kbo(:,51,15) = (/ &
+        & 0.77333e+02_rb,0.75093e+02_rb,0.72664e+02_rb,0.70214e+02_rb,0.67806e+02_rb /)
+      kbo(:,52,15) = (/ &
+        & 0.78102e+02_rb,0.75935e+02_rb,0.73563e+02_rb,0.71111e+02_rb,0.68683e+02_rb /)
+      kbo(:,53,15) = (/ &
+        & 0.78815e+02_rb,0.76761e+02_rb,0.74462e+02_rb,0.72010e+02_rb,0.69568e+02_rb /)
+      kbo(:,54,15) = (/ &
+        & 0.79431e+02_rb,0.77488e+02_rb,0.75258e+02_rb,0.72840e+02_rb,0.70386e+02_rb /)
+      kbo(:,55,15) = (/ &
+        & 0.79987e+02_rb,0.78156e+02_rb,0.75999e+02_rb,0.73628e+02_rb,0.71177e+02_rb /)
+      kbo(:,56,15) = (/ &
+        & 0.80478e+02_rb,0.78776e+02_rb,0.76714e+02_rb,0.74415e+02_rb,0.71963e+02_rb /)
+      kbo(:,57,15) = (/ &
+        & 0.80898e+02_rb,0.79365e+02_rb,0.77410e+02_rb,0.75181e+02_rb,0.72750e+02_rb /)
+      kbo(:,58,15) = (/ &
+        & 0.81210e+02_rb,0.79894e+02_rb,0.78053e+02_rb,0.75880e+02_rb,0.73498e+02_rb /)
+      kbo(:,59,15) = (/ &
+        & 0.81312e+02_rb,0.80086e+02_rb,0.78299e+02_rb,0.76156e+02_rb,0.73801e+02_rb /)
+      kbo(:,13,16) = (/ &
+        & 0.81866e+02_rb,0.78569e+02_rb,0.75624e+02_rb,0.72854e+02_rb,0.70288e+02_rb /)
+      kbo(:,14,16) = (/ &
+        & 0.93095e+02_rb,0.88986e+02_rb,0.85351e+02_rb,0.82051e+02_rb,0.78936e+02_rb /)
+      kbo(:,15,16) = (/ &
+        & 0.10470e+03_rb,0.99738e+02_rb,0.95227e+02_rb,0.91249e+02_rb,0.87478e+02_rb /)
+      kbo(:,16,16) = (/ &
+        & 0.11635e+03_rb,0.11037e+03_rb,0.10495e+03_rb,0.10011e+03_rb,0.95646e+02_rb /)
+      kbo(:,17,16) = (/ &
+        & 0.12769e+03_rb,0.12074e+03_rb,0.11431e+03_rb,0.10856e+03_rb,0.10332e+03_rb /)
+      kbo(:,18,16) = (/ &
+        & 0.13851e+03_rb,0.13038e+03_rb,0.12299e+03_rb,0.11635e+03_rb,0.11033e+03_rb /)
+      kbo(:,19,16) = (/ &
+        & 0.14848e+03_rb,0.13912e+03_rb,0.13084e+03_rb,0.12336e+03_rb,0.11656e+03_rb /)
+      kbo(:,20,16) = (/ &
+        & 0.15718e+03_rb,0.14679e+03_rb,0.13761e+03_rb,0.12934e+03_rb,0.12188e+03_rb /)
+      kbo(:,21,16) = (/ &
+        & 0.16462e+03_rb,0.15341e+03_rb,0.14345e+03_rb,0.13443e+03_rb,0.12636e+03_rb /)
+      kbo(:,22,16) = (/ &
+        & 0.17012e+03_rb,0.15822e+03_rb,0.14760e+03_rb,0.13801e+03_rb,0.12950e+03_rb /)
+      kbo(:,23,16) = (/ &
+        & 0.17437e+03_rb,0.16184e+03_rb,0.15069e+03_rb,0.14069e+03_rb,0.13184e+03_rb /)
+      kbo(:,24,16) = (/ &
+        & 0.17733e+03_rb,0.16436e+03_rb,0.15282e+03_rb,0.14251e+03_rb,0.13340e+03_rb /)
+      kbo(:,25,16) = (/ &
+        & 0.17910e+03_rb,0.16583e+03_rb,0.15401e+03_rb,0.14354e+03_rb,0.13426e+03_rb /)
+      kbo(:,26,16) = (/ &
+        & 0.17968e+03_rb,0.16627e+03_rb,0.15433e+03_rb,0.14378e+03_rb,0.13445e+03_rb /)
+      kbo(:,27,16) = (/ &
+        & 0.17946e+03_rb,0.16602e+03_rb,0.15406e+03_rb,0.14351e+03_rb,0.13417e+03_rb /)
+      kbo(:,28,16) = (/ &
+        & 0.17860e+03_rb,0.16522e+03_rb,0.15334e+03_rb,0.14282e+03_rb,0.13355e+03_rb /)
+      kbo(:,29,16) = (/ &
+        & 0.17717e+03_rb,0.16389e+03_rb,0.15216e+03_rb,0.14174e+03_rb,0.13260e+03_rb /)
+      kbo(:,30,16) = (/ &
+        & 0.17533e+03_rb,0.16225e+03_rb,0.15066e+03_rb,0.14043e+03_rb,0.13143e+03_rb /)
+      kbo(:,31,16) = (/ &
+        & 0.17313e+03_rb,0.16029e+03_rb,0.14890e+03_rb,0.13886e+03_rb,0.13004e+03_rb /)
+      kbo(:,32,16) = (/ &
+        & 0.17069e+03_rb,0.15811e+03_rb,0.14694e+03_rb,0.13716e+03_rb,0.12847e+03_rb /)
+      kbo(:,33,16) = (/ &
+        & 0.16804e+03_rb,0.15577e+03_rb,0.14487e+03_rb,0.13533e+03_rb,0.12682e+03_rb /)
+      kbo(:,34,16) = (/ &
+        & 0.16580e+03_rb,0.15376e+03_rb,0.14309e+03_rb,0.13376e+03_rb,0.12539e+03_rb /)
+      kbo(:,35,16) = (/ &
+        & 0.16467e+03_rb,0.15275e+03_rb,0.14221e+03_rb,0.13298e+03_rb,0.12468e+03_rb /)
+      kbo(:,36,16) = (/ &
+        & 0.16486e+03_rb,0.15289e+03_rb,0.14233e+03_rb,0.13308e+03_rb,0.12477e+03_rb /)
+      kbo(:,37,16) = (/ &
+        & 0.16688e+03_rb,0.15469e+03_rb,0.14392e+03_rb,0.13446e+03_rb,0.12602e+03_rb /)
+      kbo(:,38,16) = (/ &
+        & 0.16902e+03_rb,0.15657e+03_rb,0.14555e+03_rb,0.13592e+03_rb,0.12732e+03_rb /)
+      kbo(:,39,16) = (/ &
+        & 0.17110e+03_rb,0.15844e+03_rb,0.14718e+03_rb,0.13734e+03_rb,0.12861e+03_rb /)
+      kbo(:,40,16) = (/ &
+        & 0.17468e+03_rb,0.16155e+03_rb,0.14992e+03_rb,0.13976e+03_rb,0.13077e+03_rb /)
+      kbo(:,41,16) = (/ &
+        & 0.17848e+03_rb,0.16489e+03_rb,0.15289e+03_rb,0.14236e+03_rb,0.13307e+03_rb /)
+      kbo(:,42,16) = (/ &
+        & 0.18237e+03_rb,0.16833e+03_rb,0.15592e+03_rb,0.14501e+03_rb,0.13541e+03_rb /)
+      kbo(:,43,16) = (/ &
+        & 0.18726e+03_rb,0.17263e+03_rb,0.15975e+03_rb,0.14834e+03_rb,0.13835e+03_rb /)
+      kbo(:,44,16) = (/ &
+        & 0.19275e+03_rb,0.17748e+03_rb,0.16403e+03_rb,0.15210e+03_rb,0.14166e+03_rb /)
+      kbo(:,45,16) = (/ &
+        & 0.19851e+03_rb,0.18250e+03_rb,0.16844e+03_rb,0.15602e+03_rb,0.14507e+03_rb /)
+      kbo(:,46,16) = (/ &
+        & 0.20490e+03_rb,0.18806e+03_rb,0.17333e+03_rb,0.16038e+03_rb,0.14888e+03_rb /)
+      kbo(:,47,16) = (/ &
+        & 0.21238e+03_rb,0.19462e+03_rb,0.17910e+03_rb,0.16545e+03_rb,0.15337e+03_rb /)
+      kbo(:,48,16) = (/ &
+        & 0.22029e+03_rb,0.20156e+03_rb,0.18514e+03_rb,0.17074e+03_rb,0.15806e+03_rb /)
+      kbo(:,49,16) = (/ &
+        & 0.22889e+03_rb,0.20882e+03_rb,0.19150e+03_rb,0.17637e+03_rb,0.16304e+03_rb /)
+      kbo(:,50,16) = (/ &
+        & 0.23745e+03_rb,0.21596e+03_rb,0.19782e+03_rb,0.18187e+03_rb,0.16787e+03_rb /)
+      kbo(:,51,16) = (/ &
+        & 0.24629e+03_rb,0.22340e+03_rb,0.20422e+03_rb,0.18747e+03_rb,0.17280e+03_rb /)
+      kbo(:,52,16) = (/ &
+        & 0.25553e+03_rb,0.23136e+03_rb,0.21090e+03_rb,0.19335e+03_rb,0.17798e+03_rb /)
+      kbo(:,53,16) = (/ &
+        & 0.26553e+03_rb,0.23980e+03_rb,0.21793e+03_rb,0.19951e+03_rb,0.18336e+03_rb /)
+      kbo(:,54,16) = (/ &
+        & 0.27524e+03_rb,0.24799e+03_rb,0.22485e+03_rb,0.20544e+03_rb,0.18854e+03_rb /)
+      kbo(:,55,16) = (/ &
+        & 0.28502e+03_rb,0.25615e+03_rb,0.23188e+03_rb,0.21133e+03_rb,0.19372e+03_rb /)
+      kbo(:,56,16) = (/ &
+        & 0.29529e+03_rb,0.26491e+03_rb,0.23927e+03_rb,0.21749e+03_rb,0.19913e+03_rb /)
+      kbo(:,57,16) = (/ &
+        & 0.30624e+03_rb,0.27413e+03_rb,0.24703e+03_rb,0.22404e+03_rb,0.20478e+03_rb /)
+      kbo(:,58,16) = (/ &
+        & 0.31727e+03_rb,0.28329e+03_rb,0.25471e+03_rb,0.23065e+03_rb,0.21031e+03_rb /)
+      kbo(:,59,16) = (/ &
+        & 0.32188e+03_rb,0.28710e+03_rb,0.25796e+03_rb,0.23341e+03_rb,0.21261e+03_rb /)
+
+!     -----------------------------------------------------------------
+
+      forrefo(:, 1) = (/ 0.214504e-06_rb, 0.460418e-06_rb, 0.357608e-05_rb, 0.192037e-05_rb /)
+      forrefo(:, 2) = (/ 0.142576e-05_rb, 0.364463e-05_rb, 0.117033e-04_rb, 0.112085e-04_rb /)
+      forrefo(:, 3) = (/ 0.101536e-04_rb, 0.124096e-04_rb, 0.509190e-04_rb, 0.565282e-04_rb /)
+      forrefo(:, 4) = (/ 0.143394e-03_rb, 0.154700e-03_rb, 0.466498e-03_rb, 0.918829e-03_rb /)
+      forrefo(:, 5) = (/ 0.251631e-02_rb, 0.241729e-02_rb, 0.240057e-02_rb, 0.350408e-02_rb /)
+      forrefo(:, 6) = (/ 0.410309e-02_rb, 0.416851e-02_rb, 0.390925e-02_rb, 0.383694e-02_rb /)
+      forrefo(:, 7) = (/ 0.445387e-02_rb, 0.448657e-02_rb, 0.432310e-02_rb, 0.370739e-02_rb /)
+      forrefo(:, 8) = (/ 0.458150e-02_rb, 0.460014e-02_rb, 0.450245e-02_rb, 0.336718e-02_rb /)
+      forrefo(:, 9) = (/ 0.465423e-02_rb, 0.465595e-02_rb, 0.467006e-02_rb, 0.368061e-02_rb /)
+      forrefo(:,10) = (/ 0.493955e-02_rb, 0.490181e-02_rb, 0.481941e-02_rb, 0.367577e-02_rb /)
+      forrefo(:,11) = (/ 0.511876e-02_rb, 0.490981e-02_rb, 0.493303e-02_rb, 0.357423e-02_rb /)
+      forrefo(:,12) = (/ 0.509845e-02_rb, 0.511556e-02_rb, 0.504031e-02_rb, 0.355915e-02_rb /)
+      forrefo(:,13) = (/ 0.523822e-02_rb, 0.530473e-02_rb, 0.523811e-02_rb, 0.414259e-02_rb /)
+      forrefo(:,14) = (/ 0.551133e-02_rb, 0.535831e-02_rb, 0.546702e-02_rb, 0.473875e-02_rb /)
+      forrefo(:,15) = (/ 0.609781e-02_rb, 0.589859e-02_rb, 0.561187e-02_rb, 0.528981e-02_rb /)
+      forrefo(:,16) = (/ 0.644958e-02_rb, 0.631718e-02_rb, 0.625201e-02_rb, 0.600448e-02_rb /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+        &  0.217058e-03_rb, 0.176391e-03_rb, 0.143342e-03_rb, 0.116486e-03_rb, 0.946614e-04_rb, &
+        &  0.769257e-04_rb, 0.625131e-04_rb, 0.508007e-04_rb, 0.412828e-04_rb, 0.335481e-04_rb /)
+      selfrefo(:, 2) = (/ &
+        &  0.598055e-03_rb, 0.484805e-03_rb, 0.393000e-03_rb, 0.318580e-03_rb, 0.258252e-03_rb, &
+        &  0.209348e-03_rb, 0.169705e-03_rb, 0.137569e-03_rb, 0.111518e-03_rb, 0.904008e-04_rb /)
+      selfrefo(:, 3) = (/ &
+        &  0.102691e-02_rb, 0.930281e-03_rb, 0.842740e-03_rb, 0.763437e-03_rb, 0.691596e-03_rb, &
+        &  0.626516e-03_rb, 0.567560e-03_rb, 0.514152e-03_rb, 0.465769e-03_rb, 0.421940e-03_rb /)
+      selfrefo(:, 4) = (/ &
+        &  0.388569e-02_rb, 0.365098e-02_rb, 0.343045e-02_rb, 0.322324e-02_rb, 0.302854e-02_rb, &
+        &  0.284561e-02_rb, 0.267372e-02_rb, 0.251222e-02_rb, 0.236047e-02_rb, 0.221789e-02_rb /)
+      selfrefo(:, 5) = (/ &
+        &  0.349845e-01_rb, 0.326678e-01_rb, 0.305045e-01_rb, 0.284845e-01_rb, 0.265982e-01_rb, &
+        &  0.248369e-01_rb, 0.231921e-01_rb, 0.216563e-01_rb, 0.202222e-01_rb, 0.188831e-01_rb /)
+      selfrefo(:, 6) = (/ &
+        &  0.613705e-01_rb, 0.562676e-01_rb, 0.515890e-01_rb, 0.472994e-01_rb, 0.433665e-01_rb, &
+        &  0.397606e-01_rb, 0.364545e-01_rb, 0.334233e-01_rb, 0.306442e-01_rb, 0.280961e-01_rb /)
+      selfrefo(:, 7) = (/ &
+        &  0.656981e-01_rb, 0.602660e-01_rb, 0.552830e-01_rb, 0.507120e-01_rb, 0.465190e-01_rb, &
+        &  0.426726e-01_rb, 0.391443e-01_rb, 0.359077e-01_rb, 0.329387e-01_rb, 0.302153e-01_rb /)
+      selfrefo(:, 8) = (/ &
+        &  0.671782e-01_rb, 0.616461e-01_rb, 0.565695e-01_rb, 0.519110e-01_rb, 0.476361e-01_rb, &
+        &  0.437132e-01_rb, 0.401134e-01_rb, 0.368100e-01_rb, 0.337787e-01_rb, 0.309970e-01_rb /)
+      selfrefo(:, 9) = (/ &
+        &  0.675902e-01_rb, 0.620888e-01_rb, 0.570351e-01_rb, 0.523928e-01_rb, 0.481284e-01_rb, &
+        &  0.442110e-01_rb, 0.406125e-01_rb, 0.373069e-01_rb, 0.342703e-01_rb, 0.314809e-01_rb /)
+      selfrefo(:,10) = (/ &
+        &  0.708308e-01_rb, 0.651419e-01_rb, 0.599099e-01_rb, 0.550981e-01_rb, 0.506728e-01_rb, &
+        &  0.466030e-01_rb, 0.428600e-01_rb, 0.394176e-01_rb, 0.362517e-01_rb, 0.333401e-01_rb /)
+      selfrefo(:,11) = (/ &
+        &  0.698445e-01_rb, 0.646584e-01_rb, 0.598573e-01_rb, 0.554128e-01_rb, 0.512982e-01_rb, &
+        &  0.474892e-01_rb, 0.439630e-01_rb, 0.406986e-01_rb, 0.376766e-01_rb, 0.348791e-01_rb /)
+      selfrefo(:,12) = (/ &
+        &  0.743921e-01_rb, 0.682057e-01_rb, 0.625337e-01_rb, 0.573334e-01_rb, 0.525655e-01_rb, &
+        &  0.481942e-01_rb, 0.441863e-01_rb, 0.405118e-01_rb, 0.371428e-01_rb, 0.340540e-01_rb /)
+      selfrefo(:,13) = (/ &
+        &  0.775758e-01_rb, 0.709818e-01_rb, 0.649484e-01_rb, 0.594277e-01_rb, 0.543764e-01_rb, &
+        &  0.497544e-01_rb, 0.455253e-01_rb, 0.416556e-01_rb, 0.381149e-01_rb, 0.348751e-01_rb /)
+      selfrefo(:,14) = (/ &
+        &  0.776545e-01_rb, 0.714761e-01_rb, 0.657894e-01_rb, 0.605550e-01_rb, 0.557372e-01_rb, &
+        &  0.513026e-01_rb, 0.472209e-01_rb, 0.434639e-01_rb, 0.400058e-01_rb, 0.368229e-01_rb /)
+      selfrefo(:,15) = (/ &
+        &  0.855675e-01_rb, 0.787337e-01_rb, 0.724456e-01_rb, 0.666598e-01_rb, 0.613360e-01_rb, &
+        &  0.564374e-01_rb, 0.519301e-01_rb, 0.477827e-01_rb, 0.439666e-01_rb, 0.404552e-01_rb /)
+      selfrefo(:,16) = (/ &
+        &  0.934781e-01_rb, 0.855190e-01_rb, 0.782376e-01_rb, 0.715761e-01_rb, 0.654819e-01_rb, &
+        &  0.599065e-01_rb, 0.548058e-01_rb, 0.501394e-01_rb, 0.458704e-01_rb, 0.419648e-01_rb /)
+     
+      end subroutine sw_kgb20
+
+! **************************************************************************
+      subroutine sw_kgb21
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg21, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:, 1) = (/ &
+        & 16.1643_rb , 15.5806_rb, 14.7254_rb    , 13.5541_rb    , &
+        & 11.9519_rb ,10.44410_rb, 8.37884_rb    , 6.26384_rb    , &
+        & 4.28435_rb ,0.465228_rb, 0.385095_rb   ,0.304226_rb    , &
+        & 0.222479_rb,0.143286_rb, 5.58046e-02_rb, 7.84856e-03_rb /)
+      sfluxrefo(:, 2) = (/ &
+        & 15.6451_rb , 15.3170_rb, 14.6987_rb    , 13.7350_rb    , &
+        & 12.2267_rb ,10.51646_rb, 8.47150_rb    , 6.38873_rb    , &
+        & 4.33536_rb ,0.470610_rb,0.389426_rb    ,0.306461_rb    , &
+        & 0.223537_rb,0.143273_rb, 5.58179e-02_rb, 7.84856e-03_rb /)
+      sfluxrefo(:, 3) = (/ &
+        & 15.6092_rb , 15.3293_rb, 14.6881_rb    , 13.6693_rb    , &
+        & 12.2342_rb ,10.52010_rb, 8.49442_rb    , 6.42138_rb    , &
+        & 4.35865_rb ,0.473349_rb,0.391349_rb    ,0.308861_rb    , &
+        & 0.224666_rb,0.144799_rb, 5.58176e-02_rb, 7.84881e-03_rb /)
+      sfluxrefo(:, 4) = (/ &
+        & 15.5786_rb , 15.3422_rb, 14.6894_rb    , 13.6040_rb    , &
+        & 12.2567_rb ,10.49400_rb, 8.53521_rb    , 6.44427_rb    , &
+        & 4.37208_rb ,0.475709_rb,0.392956_rb    ,0.309737_rb    , &
+        & 0.226274_rb,0.146483_rb, 5.59325e-02_rb, 7.84881e-03_rb /)
+      sfluxrefo(:, 5) = (/ &
+        & 15.5380_rb , 15.3826_rb, 14.6575_rb    , 13.5722_rb    , &
+        & 12.2646_rb ,10.47672_rb, 8.57158_rb    , 6.46343_rb    , &
+        & 4.38259_rb ,0.477647_rb,0.393982_rb    ,0.310686_rb    , &
+        & 0.227620_rb,0.148376_rb, 5.60398e-02_rb, 7.83925e-03_rb /)
+      sfluxrefo(:, 6) = (/ &
+        & 15.5124_rb , 15.3986_rb, 14.6240_rb    , 13.5535_rb    , &
+        & 12.2468_rb ,10.48891_rb, 8.60434_rb    , 6.47985_rb    , &
+        & 4.39448_rb ,0.478267_rb,0.395618_rb    ,0.311043_rb    , &
+        & 0.230927_rb,0.148774_rb, 5.61189e-02_rb, 7.83925e-03_rb /)
+      sfluxrefo(:, 7) = (/ &
+        & 15.4910_rb , 15.4028_rb, 14.5772_rb    , 13.5507_rb    , &
+        & 12.2122_rb ,10.52735_rb, 8.62650_rb    , 6.49644_rb    , &
+        & 4.41173_rb ,0.478627_rb,0.396433_rb    ,0.314199_rb    , & 
+        & 0.233125_rb,0.149052_rb, 5.62309e-02_rb, 7.83925e-03_rb /)
+      sfluxrefo(:, 8) = (/ &
+        & 15.4562_rb , 15.3928_rb, 14.5510_rb    , 13.5122_rb    , &
+        & 12.1890_rb , 10.5826_rb, 8.65842_rb    , 6.51558_rb    , &
+        & 4.42747_rb ,0.480669_rb,0.400143_rb    ,0.318144_rb    , &
+        & 0.233937_rb,0.149119_rb, 5.62309e-02_rb, 7.83925e-03_rb /)
+      sfluxrefo(:, 9) = (/ &
+        & 15.0069_rb , 15.1479_rb, 14.7802_rb    , 13.6085_rb    , &
+        & 12.2793_rb , 10.6929_rb, 8.72723_rb    , 6.57114_rb    , &
+        & 4.46330_rb ,0.486724_rb,0.401446_rb    ,0.318879_rb    , &
+        & 0.233959_rb,0.149119_rb, 5.62309e-02_rb, 7.83925e-03_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:,1) = (/ &
+        & 1.57129E+01_rb, 1.54904E+01_rb, 1.49509E+01_rb, 1.39092E+01_rb,&
+        & 1.24888E+01_rb, 1.07128E+01_rb, 8.57844E+00_rb, 6.38774E+00_rb,&
+        & 4.35447E+00_rb, 4.73524E-01_rb, 3.90882E-01_rb, 3.11861E-01_rb,&
+        & 2.33091E-01_rb, 1.49309E-01_rb, 5.63710E-02_rb, 7.88918E-03_rb/)
+      irradnceo(:,2) = (/ &
+        & 1.56766E+01_rb, 1.55021E+01_rb, 1.49713E+01_rb, 1.38911E+01_rb,&
+        & 1.24360E+01_rb, 1.06484E+01_rb, 8.61538E+00_rb, 6.45395E+00_rb,&
+        & 4.38881E+00_rb, 4.75124E-01_rb, 3.91224E-01_rb, 3.11843E-01_rb,&
+        & 2.33125E-01_rb, 1.49316E-01_rb, 5.63706E-02_rb, 7.88922E-03_rb/)
+      irradnceo(:,3) = (/ &
+        & 1.56755E+01_rb, 1.55027E+01_rb, 1.49715E+01_rb, 1.38683E+01_rb,&
+        & 1.23920E+01_rb, 1.06218E+01_rb, 8.63540E+00_rb, 6.50033E+00_rb,&
+        & 4.40723E+00_rb, 4.78167E-01_rb, 3.94546E-01_rb, 3.13723E-01_rb,&
+        & 2.33773E-01_rb, 1.49323E-01_rb, 5.63702E-02_rb, 7.88922E-03_rb/)
+      irradnceo(:,4) = (/ &
+        & 1.56716E+01_rb, 1.55031E+01_rb, 1.49856E+01_rb, 1.38422E+01_rb,&
+        & 1.23545E+01_rb, 1.06133E+01_rb, 8.64777E+00_rb, 6.52563E+00_rb,&
+        & 4.42180E+00_rb, 4.79941E-01_rb, 3.97545E-01_rb, 3.17529E-01_rb,&
+        & 2.34118E-01_rb, 1.49502E-01_rb, 5.63703E-02_rb, 7.88922E-03_rb/)
+      irradnceo(:,5) = (/ &
+        & 1.56725E+01_rb, 1.55068E+01_rb, 1.49873E+01_rb, 1.37951E+01_rb,&
+        & 1.23269E+01_rb, 1.06154E+01_rb, 8.67305E+00_rb, 6.54630E+00_rb,&
+        & 4.43306E+00_rb, 4.81604E-01_rb, 4.02284E-01_rb, 3.19654E-01_rb,&
+        & 2.34469E-01_rb, 1.49681E-01_rb, 5.63643E-02_rb, 7.92441E-03_rb/)
+      irradnceo(:,6) = (/ &
+        & 1.56682E+01_rb, 1.55304E+01_rb, 1.49594E+01_rb, 1.37670E+01_rb,&
+        & 1.22966E+01_rb, 1.06212E+01_rb, 8.69889E+00_rb, 6.56317E+00_rb,&
+        & 4.44292E+00_rb, 4.86979E-01_rb, 4.04733E-01_rb, 3.19916E-01_rb,&
+        & 2.34991E-01_rb, 1.49702E-01_rb, 5.64479E-02_rb, 7.92441E-03_rb/)
+      irradnceo(:,7) = (/ &
+        & 1.56610E+01_rb, 1.55509E+01_rb, 1.49307E+01_rb, 1.37200E+01_rb,&
+        & 1.22807E+01_rb, 1.06357E+01_rb, 8.72885E+00_rb, 6.57604E+00_rb,&
+        & 4.46046E+00_rb, 4.89325E-01_rb, 4.05136E-01_rb, 3.20420E-01_rb,&
+        & 2.35106E-01_rb, 1.49778E-01_rb, 5.64479E-02_rb, 7.92441E-03_rb/)
+      irradnceo(:,8) = (/ &
+        & 1.56380E+01_rb, 1.56051E+01_rb, 1.48613E+01_rb, 1.36591E+01_rb,&
+        & 1.22897E+01_rb, 1.06664E+01_rb, 8.74719E+00_rb, 6.58854E+00_rb,&
+        & 4.48777E+00_rb, 4.89984E-01_rb, 4.05508E-01_rb, 3.20537E-01_rb,&
+        & 2.35164E-01_rb, 1.49778E-01_rb, 5.64480E-02_rb, 7.92441E-03_rb/)
+      irradnceo(:,9) = (/ &
+        & 1.52550E+01_rb, 1.53927E+01_rb, 1.50379E+01_rb, 1.37973E+01_rb,&
+        & 1.24075E+01_rb, 1.07260E+01_rb, 8.79656E+00_rb, 6.63032E+00_rb,&
+        & 4.49972E+00_rb, 4.90123E-01_rb, 4.05516E-01_rb, 3.20535E-01_rb,&
+        & 2.35168E-01_rb, 1.49777E-01_rb, 5.64476E-02_rb, 7.92462E-03_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:,1) = (/ &
+        & 3.38233E-03_rb, 3.61575E-03_rb, 3.80888E-03_rb, 3.67639E-03_rb,&
+        & 3.30728E-03_rb, 2.69378E-03_rb, 1.71865E-03_rb, 1.05945E-03_rb,&
+        & 7.82068E-04_rb, 8.38272E-05_rb, 6.84037E-05_rb, 5.63903E-05_rb,&
+        & 5.56771E-05_rb, 3.55232E-05_rb, 1.33594E-05_rb, 1.89102E-06_rb/)
+      facbrghto(:,2) = (/ &
+        & 3.36626E-03_rb, 3.59280E-03_rb, 3.80850E-03_rb, 3.64685E-03_rb,&
+        & 3.17706E-03_rb, 2.50418E-03_rb, 1.78194E-03_rb, 1.27973E-03_rb,&
+        & 8.81547E-04_rb, 8.85460E-05_rb, 6.93416E-05_rb, 5.64524E-05_rb,&
+        & 5.56784E-05_rb, 3.55239E-05_rb, 1.33597E-05_rb, 1.89104E-06_rb/)
+      facbrghto(:,3) = (/ &
+        & 3.36214E-03_rb, 3.58599E-03_rb, 3.80326E-03_rb, 3.60715E-03_rb,&
+        & 3.05231E-03_rb, 2.45061E-03_rb, 1.82205E-03_rb, 1.39550E-03_rb,&
+        & 9.34977E-04_rb, 9.60392E-05_rb, 7.87498E-05_rb, 6.36795E-05_rb,&
+        & 5.64120E-05_rb, 3.55242E-05_rb, 1.33600E-05_rb, 1.89105E-06_rb/)
+      facbrghto(:,4) = (/ &
+        & 3.35356E-03_rb, 3.58784E-03_rb, 3.81329E-03_rb, 3.54275E-03_rb,&
+        & 2.95876E-03_rb, 2.41321E-03_rb, 1.88140E-03_rb, 1.46458E-03_rb,&
+        & 9.70347E-04_rb, 1.03318E-04_rb, 8.26701E-05_rb, 7.79939E-05_rb,&
+        & 5.84284E-05_rb, 3.62577E-05_rb, 1.33600E-05_rb, 1.89105E-06_rb/)
+      facbrghto(:,5) = (/ &
+        & 3.34590E-03_rb, 3.59375E-03_rb, 3.81836E-03_rb, 3.41473E-03_rb,&
+        & 2.91001E-03_rb, 2.38732E-03_rb, 1.97243E-03_rb, 1.51499E-03_rb,&
+        & 1.00185E-03_rb, 1.05444E-04_rb, 9.96222E-05_rb, 8.19866E-05_rb,&
+        & 5.95039E-05_rb, 3.74604E-05_rb, 1.41148E-05_rb, 2.16572E-06_rb/)
+      facbrghto(:,6) = (/ &
+        & 3.33841E-03_rb, 3.61392E-03_rb, 3.78567E-03_rb, 3.30155E-03_rb,&
+        & 2.84397E-03_rb, 2.41121E-03_rb, 2.05022E-03_rb, 1.55507E-03_rb,&
+        & 1.03133E-03_rb, 1.23024E-04_rb, 1.05137E-04_rb, 8.31387E-05_rb,&
+        & 6.02725E-05_rb, 3.92854E-05_rb, 1.52766E-05_rb, 2.16572E-06_rb/)
+      facbrghto(:,7) = (/ &
+        & 3.32890E-03_rb, 3.64336E-03_rb, 3.74401E-03_rb, 3.14610E-03_rb,&
+        & 2.76899E-03_rb, 2.49879E-03_rb, 2.11515E-03_rb, 1.59249E-03_rb,&
+        & 1.08243E-03_rb, 1.28502E-04_rb, 1.05833E-04_rb, 8.38407E-05_rb,&
+        & 6.32594E-05_rb, 4.05566E-05_rb, 1.52766E-05_rb, 2.16572E-06_rb/)
+      facbrghto(:,8) = (/ &
+        & 3.29742E-03_rb, 3.70484E-03_rb, 3.58141E-03_rb, 2.98346E-03_rb,&
+        & 2.77903E-03_rb, 2.60809E-03_rb, 2.17109E-03_rb, 1.63237E-03_rb,&
+        & 1.15394E-03_rb, 1.30118E-04_rb, 1.09398E-04_rb, 8.67212E-05_rb,&
+        & 6.37601E-05_rb, 4.05547E-05_rb, 1.52762E-05_rb, 2.16572E-06_rb/)
+      facbrghto(:,9) = (/ &
+        & 2.04827E-03_rb, 3.34118E-03_rb, 3.89751E-03_rb, 3.44564E-03_rb,&
+        & 3.11104E-03_rb, 2.80009E-03_rb, 2.31754E-03_rb, 1.75046E-03_rb,&
+        & 1.19686E-03_rb, 1.32820E-04_rb, 1.09753E-04_rb, 8.67334E-05_rb,&
+        & 6.37712E-05_rb, 4.05681E-05_rb, 1.52654E-05_rb, 2.16568E-06_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:,1) = (/ &
+        &-3.20590E-03_rb,-3.26023E-03_rb,-3.22645E-03_rb,-3.04404E-03_rb,&
+        &-2.73016E-03_rb,-2.28980E-03_rb,-1.68078E-03_rb,-1.16106E-03_rb,&
+        &-8.14206E-04_rb,-8.76947E-05_rb,-7.21444E-05_rb,-5.80750E-05_rb,&
+        &-4.89518E-05_rb,-3.11877E-05_rb,-1.17502E-05_rb,-1.65342E-06_rb/)
+      snsptdrko(:,2) = (/ &
+        &-3.19424E-03_rb,-3.25487E-03_rb,-3.21870E-03_rb,-3.02285E-03_rb,&
+        &-2.67818E-03_rb,-2.22530E-03_rb,-1.70410E-03_rb,-1.25517E-03_rb,&
+        &-8.56699E-04_rb,-8.97661E-05_rb,-7.25475E-05_rb,-5.81055E-05_rb,&
+        &-4.89518E-05_rb,-3.11879E-05_rb,-1.17503E-05_rb,-1.65342E-06_rb/)
+      snsptdrko(:,3) = (/ &
+        &-3.18856E-03_rb,-3.25378E-03_rb,-3.21481E-03_rb,-3.00325E-03_rb,&
+        &-2.63211E-03_rb,-2.20232E-03_rb,-1.71988E-03_rb,-1.30549E-03_rb,&
+        &-8.79022E-04_rb,-9.30397E-05_rb,-7.66800E-05_rb,-6.12865E-05_rb,&
+        &-4.92526E-05_rb,-3.11880E-05_rb,-1.17505E-05_rb,-1.65342E-06_rb/)
+      snsptdrko(:,4) = (/ &
+        &-3.18238E-03_rb,-3.25365E-03_rb,-3.21753E-03_rb,-2.97525E-03_rb,&
+        &-2.60052E-03_rb,-2.18369E-03_rb,-1.74474E-03_rb,-1.33542E-03_rb,&
+        &-8.93727E-04_rb,-9.62031E-05_rb,-7.83842E-05_rb,-6.75678E-05_rb,&
+        &-5.01242E-05_rb,-3.14955E-05_rb,-1.17506E-05_rb,-1.65342E-06_rb/)
+      snsptdrko(:,5) = (/ &
+        &-3.17622E-03_rb,-3.25439E-03_rb,-3.21817E-03_rb,-2.92612E-03_rb,&
+        &-2.58092E-03_rb,-2.17215E-03_rb,-1.78329E-03_rb,-1.35706E-03_rb,&
+        &-9.07088E-04_rb,-9.71345E-05_rb,-8.58204E-05_rb,-6.92820E-05_rb,&
+        &-5.05654E-05_rb,-3.20350E-05_rb,-1.20636E-05_rb,-1.76780E-06_rb/)
+      snsptdrko(:,6) = (/ &
+        &-3.17042E-03_rb,-3.25863E-03_rb,-3.20563E-03_rb,-2.88395E-03_rb,&
+        &-2.55212E-03_rb,-2.18158E-03_rb,-1.81741E-03_rb,-1.37363E-03_rb,&
+        &-9.19855E-04_rb,-1.04837E-04_rb,-8.82411E-05_rb,-6.97562E-05_rb,&
+        &-5.08717E-05_rb,-3.28149E-05_rb,-1.25649E-05_rb,-1.76780E-06_rb/)
+      snsptdrko(:,7) = (/ &
+        &-3.16325E-03_rb,-3.26501E-03_rb,-3.18767E-03_rb,-2.82862E-03_rb,&
+        &-2.51814E-03_rb,-2.21910E-03_rb,-1.84573E-03_rb,-1.38874E-03_rb,&
+        &-9.42269E-04_rb,-1.07180E-04_rb,-8.85017E-05_rb,-7.00475E-05_rb,&
+        &-5.21359E-05_rb,-3.33556E-05_rb,-1.25649E-05_rb,-1.76780E-06_rb/)
+      snsptdrko(:,8) = (/ &
+        &-3.14467E-03_rb,-3.27904E-03_rb,-3.12496E-03_rb,-2.76854E-03_rb,&
+        &-2.52230E-03_rb,-2.26764E-03_rb,-1.86884E-03_rb,-1.40536E-03_rb,&
+        &-9.73595E-04_rb,-1.07857E-04_rb,-8.99740E-05_rb,-7.12708E-05_rb,&
+        &-5.23456E-05_rb,-3.33550E-05_rb,-1.25647E-05_rb,-1.76780E-06_rb/)
+      snsptdrko(:,9) = (/ &
+        &-2.58887E-03_rb,-3.09421E-03_rb,-3.27763E-03_rb,-2.98508E-03_rb,&
+        &-2.67674E-03_rb,-2.35033E-03_rb,-1.93212E-03_rb,-1.45652E-03_rb,&
+        &-9.92133E-04_rb,-1.08978E-04_rb,-9.01523E-05_rb,-7.12720E-05_rb,&
+        &-5.23478E-05_rb,-3.33615E-05_rb,-1.25603E-05_rb,-1.76788E-06_rb/)
+
+! Rayleigh extinction coefficient at v = 6925 cm-1.
+      rayl = 9.41e-09_rb
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1, 1) = (/ &
+        & 0.31482e-07_rb,0.64010e-05_rb,0.95017e-05_rb,0.11735e-04_rb,0.13561e-04_rb, &
+        & 0.15077e-04_rb,0.16121e-04_rb,0.16138e-04_rb,0.41687e-06_rb /)
+      kao(:, 2, 1, 1) = (/ &
+        & 0.29791e-07_rb,0.68206e-05_rb,0.10260e-04_rb,0.12764e-04_rb,0.14880e-04_rb, &
+        & 0.16665e-04_rb,0.17944e-04_rb,0.18170e-04_rb,0.44246e-06_rb /)
+      kao(:, 3, 1, 1) = (/ &
+        & 0.28272e-07_rb,0.72448e-05_rb,0.11083e-04_rb,0.13866e-04_rb,0.16256e-04_rb, &
+        & 0.18323e-04_rb,0.19886e-04_rb,0.20229e-04_rb,0.47472e-06_rb /)
+      kao(:, 4, 1, 1) = (/ &
+        & 0.26900e-07_rb,0.76935e-05_rb,0.11934e-04_rb,0.15015e-04_rb,0.17657e-04_rb, &
+        & 0.20038e-04_rb,0.21902e-04_rb,0.22361e-04_rb,0.50770e-06_rb /)
+      kao(:, 5, 1, 1) = (/ &
+        & 0.25656e-07_rb,0.81661e-05_rb,0.12769e-04_rb,0.16181e-04_rb,0.19127e-04_rb, &
+        & 0.21755e-04_rb,0.23963e-04_rb,0.24421e-04_rb,0.54205e-06_rb /)
+      kao(:, 1, 2, 1) = (/ &
+        & 0.26396e-07_rb,0.52225e-05_rb,0.77221e-05_rb,0.95150e-05_rb,0.11004e-04_rb, &
+        & 0.12195e-04_rb,0.13037e-04_rb,0.12985e-04_rb,0.32097e-06_rb /)
+      kao(:, 2, 2, 1) = (/ &
+        & 0.24945e-07_rb,0.55737e-05_rb,0.83612e-05_rb,0.10375e-04_rb,0.12116e-04_rb, &
+        & 0.13569e-04_rb,0.14561e-04_rb,0.14711e-04_rb,0.34579e-06_rb /)
+      kao(:, 3, 2, 1) = (/ &
+        & 0.23646e-07_rb,0.59333e-05_rb,0.90531e-05_rb,0.11301e-04_rb,0.13247e-04_rb, &
+        & 0.14956e-04_rb,0.16193e-04_rb,0.16396e-04_rb,0.37200e-06_rb /)
+      kao(:, 4, 2, 1) = (/ &
+        & 0.22476e-07_rb,0.63144e-05_rb,0.97732e-05_rb,0.12274e-04_rb,0.14436e-04_rb, &
+        & 0.16377e-04_rb,0.17879e-04_rb,0.18223e-04_rb,0.40051e-06_rb /)
+      kao(:, 5, 2, 1) = (/ &
+        & 0.21415e-07_rb,0.67133e-05_rb,0.10471e-04_rb,0.13264e-04_rb,0.15681e-04_rb, &
+        & 0.17843e-04_rb,0.19627e-04_rb,0.19954e-04_rb,0.42929e-06_rb /)
+      kao(:, 1, 3, 1) = (/ &
+        & 0.22397e-07_rb,0.41930e-05_rb,0.61559e-05_rb,0.75544e-05_rb,0.86902e-05_rb, &
+        & 0.95896e-05_rb,0.10269e-04_rb,0.10114e-04_rb,0.24148e-06_rb /)
+      kao(:, 2, 3, 1) = (/ &
+        & 0.21124e-07_rb,0.44837e-05_rb,0.66786e-05_rb,0.82475e-05_rb,0.96353e-05_rb, &
+        & 0.10742e-04_rb,0.11469e-04_rb,0.11556e-04_rb,0.26304e-06_rb /)
+      kao(:, 3, 3, 1) = (/ &
+        & 0.19988e-07_rb,0.47839e-05_rb,0.72499e-05_rb,0.90229e-05_rb,0.10560e-04_rb, &
+        & 0.11900e-04_rb,0.12859e-04_rb,0.12935e-04_rb,0.28618e-06_rb /)
+      kao(:, 4, 3, 1) = (/ &
+        & 0.18968e-07_rb,0.51040e-05_rb,0.78586e-05_rb,0.98308e-05_rb,0.11551e-04_rb, &
+        & 0.13094e-04_rb,0.14240e-04_rb,0.14455e-04_rb,0.30983e-06_rb /)
+      kao(:, 5, 3, 1) = (/ &
+        & 0.18047e-07_rb,0.54366e-05_rb,0.84462e-05_rb,0.10670e-04_rb,0.12585e-04_rb, &
+        & 0.14313e-04_rb,0.15695e-04_rb,0.15934e-04_rb,0.33255e-06_rb /)
+      kao(:, 1, 4, 1) = (/ &
+        & 0.19080e-07_rb,0.33409e-05_rb,0.48738e-05_rb,0.59354e-05_rb,0.67877e-05_rb, &
+        & 0.74900e-05_rb,0.79142e-05_rb,0.77200e-05_rb,0.18466e-06_rb /)
+      kao(:, 2, 4, 1) = (/ &
+        & 0.17954e-07_rb,0.35910e-05_rb,0.52960e-05_rb,0.65037e-05_rb,0.75744e-05_rb, &
+        & 0.84082e-05_rb,0.89422e-05_rb,0.89302e-05_rb,0.20292e-06_rb /)
+      kao(:, 3, 4, 1) = (/ &
+        & 0.16954e-07_rb,0.38317e-05_rb,0.57536e-05_rb,0.71322e-05_rb,0.83424e-05_rb, &
+        & 0.93788e-05_rb,0.10063e-04_rb,0.10098e-04_rb,0.22173e-06_rb /)
+      kao(:, 4, 4, 1) = (/ &
+        & 0.16059e-07_rb,0.40932e-05_rb,0.62586e-05_rb,0.77961e-05_rb,0.91475e-05_rb, &
+        & 0.10347e-04_rb,0.11222e-04_rb,0.11312e-04_rb,0.24005e-06_rb /)
+      kao(:, 5, 4, 1) = (/ &
+        & 0.15254e-07_rb,0.43678e-05_rb,0.67525e-05_rb,0.84873e-05_rb,0.99995e-05_rb, &
+        & 0.11353e-04_rb,0.12416e-04_rb,0.12586e-04_rb,0.25939e-06_rb /)
+      kao(:, 1, 5, 1) = (/ &
+        & 0.16261e-07_rb,0.26540e-05_rb,0.38541e-05_rb,0.46443e-05_rb,0.52961e-05_rb, &
+        & 0.58054e-05_rb,0.60718e-05_rb,0.58540e-05_rb,0.14274e-06_rb /)
+      kao(:, 2, 5, 1) = (/ &
+        & 0.15265e-07_rb,0.28598e-05_rb,0.41831e-05_rb,0.51221e-05_rb,0.59110e-05_rb, &
+        & 0.65207e-05_rb,0.69761e-05_rb,0.68685e-05_rb,0.15725e-06_rb /)
+      kao(:, 3, 5, 1) = (/ &
+        & 0.14384e-07_rb,0.30623e-05_rb,0.45528e-05_rb,0.56124e-05_rb,0.65650e-05_rb, &
+        & 0.73436e-05_rb,0.78208e-05_rb,0.78523e-05_rb,0.17271e-06_rb /)
+      kao(:, 4, 5, 1) = (/ &
+        & 0.13599e-07_rb,0.32720e-05_rb,0.49622e-05_rb,0.61605e-05_rb,0.72244e-05_rb, &
+        & 0.81582e-05_rb,0.87971e-05_rb,0.88096e-05_rb,0.18766e-06_rb /)
+      kao(:, 5, 5, 1) = (/ &
+        & 0.12895e-07_rb,0.34985e-05_rb,0.53833e-05_rb,0.67240e-05_rb,0.79091e-05_rb, &
+        & 0.89688e-05_rb,0.97698e-05_rb,0.98639e-05_rb,0.20375e-06_rb /)
+      kao(:, 1, 6, 1) = (/ &
+        & 0.13898e-07_rb,0.20981e-05_rb,0.30384e-05_rb,0.36041e-05_rb,0.41040e-05_rb, &
+        & 0.44334e-05_rb,0.45761e-05_rb,0.43950e-05_rb,0.11025e-06_rb /)
+      kao(:, 2, 6, 1) = (/ &
+        & 0.13011e-07_rb,0.22645e-05_rb,0.32890e-05_rb,0.40042e-05_rb,0.45851e-05_rb, &
+        & 0.50473e-05_rb,0.53250e-05_rb,0.51854e-05_rb,0.12227e-06_rb /)
+      kao(:, 3, 6, 1) = (/ &
+        & 0.12231e-07_rb,0.24322e-05_rb,0.35842e-05_rb,0.43915e-05_rb,0.51259e-05_rb, &
+        & 0.56903e-05_rb,0.60343e-05_rb,0.60166e-05_rb,0.13506e-06_rb /)
+      kao(:, 4, 6, 1) = (/ &
+        & 0.11539e-07_rb,0.26032e-05_rb,0.39107e-05_rb,0.48321e-05_rb,0.56525e-05_rb, &
+        & 0.63625e-05_rb,0.68078e-05_rb,0.68024e-05_rb,0.14719e-06_rb /)
+      kao(:, 5, 6, 1) = (/ &
+        & 0.10921e-07_rb,0.27866e-05_rb,0.42578e-05_rb,0.52919e-05_rb,0.62181e-05_rb, &
+        & 0.70362e-05_rb,0.76140e-05_rb,0.76519e-05_rb,0.16052e-06_rb /)
+      kao(:, 1, 7, 1) = (/ &
+        & 0.11886e-07_rb,0.16563e-05_rb,0.23860e-05_rb,0.28276e-05_rb,0.31449e-05_rb, &
+        & 0.33771e-05_rb,0.34305e-05_rb,0.32824e-05_rb,0.84943e-07_rb /)
+      kao(:, 2, 7, 1) = (/ &
+        & 0.11096e-07_rb,0.17874e-05_rb,0.25861e-05_rb,0.31100e-05_rb,0.35425e-05_rb, &
+        & 0.38737e-05_rb,0.40468e-05_rb,0.38933e-05_rb,0.94734e-07_rb /)
+      kao(:, 3, 7, 1) = (/ &
+        & 0.10405e-07_rb,0.19286e-05_rb,0.28166e-05_rb,0.34417e-05_rb,0.39786e-05_rb, &
+        & 0.43804e-05_rb,0.46759e-05_rb,0.45835e-05_rb,0.10531e-06_rb /)
+      kao(:, 4, 7, 1) = (/ &
+        & 0.97948e-08_rb,0.20680e-05_rb,0.30741e-05_rb,0.37803e-05_rb,0.44163e-05_rb, &
+        & 0.49420e-05_rb,0.52477e-05_rb,0.52509e-05_rb,0.11517e-06_rb /)
+      kao(:, 5, 7, 1) = (/ &
+        & 0.92522e-08_rb,0.22140e-05_rb,0.33558e-05_rb,0.41544e-05_rb,0.48719e-05_rb, &
+        & 0.54968e-05_rb,0.59225e-05_rb,0.59027e-05_rb,0.12618e-06_rb /)
+      kao(:, 1, 8, 1) = (/ &
+        & 0.10164e-07_rb,0.13056e-05_rb,0.18690e-05_rb,0.21940e-05_rb,0.24210e-05_rb, &
+        & 0.25504e-05_rb,0.25676e-05_rb,0.24444e-05_rb,0.66021e-07_rb /)
+      kao(:, 2, 8, 1) = (/ &
+        & 0.94612e-08_rb,0.14106e-05_rb,0.20398e-05_rb,0.24136e-05_rb,0.27424e-05_rb, &
+        & 0.29578e-05_rb,0.30446e-05_rb,0.29182e-05_rb,0.73985e-07_rb /)
+      kao(:, 3, 8, 1) = (/ &
+        & 0.88489e-08_rb,0.15256e-05_rb,0.22123e-05_rb,0.26894e-05_rb,0.30704e-05_rb, &
+        & 0.33808e-05_rb,0.35521e-05_rb,0.34526e-05_rb,0.82666e-07_rb /)
+      kao(:, 4, 8, 1) = (/ &
+        & 0.83111e-08_rb,0.16396e-05_rb,0.24159e-05_rb,0.29563e-05_rb,0.34504e-05_rb, &
+        & 0.38196e-05_rb,0.40425e-05_rb,0.40093e-05_rb,0.90940e-07_rb /)
+      kao(:, 5, 8, 1) = (/ &
+        & 0.78349e-08_rb,0.17570e-05_rb,0.26398e-05_rb,0.32547e-05_rb,0.38060e-05_rb, &
+        & 0.42813e-05_rb,0.45732e-05_rb,0.45465e-05_rb,0.10022e-06_rb /)
+      kao(:, 1, 9, 1) = (/ &
+        & 0.86983e-08_rb,0.10284e-05_rb,0.14734e-05_rb,0.16973e-05_rb,0.18551e-05_rb, &
+        & 0.19223e-05_rb,0.19222e-05_rb,0.18289e-05_rb,0.53460e-07_rb /)
+      kao(:, 2, 9, 1) = (/ &
+        & 0.80712e-08_rb,0.11141e-05_rb,0.16016e-05_rb,0.18902e-05_rb,0.21027e-05_rb, &
+        & 0.22504e-05_rb,0.22800e-05_rb,0.21749e-05_rb,0.60180e-07_rb /)
+      kao(:, 3, 9, 1) = (/ &
+        & 0.75284e-08_rb,0.12033e-05_rb,0.17376e-05_rb,0.20849e-05_rb,0.23719e-05_rb, &
+        & 0.25906e-05_rb,0.26977e-05_rb,0.25910e-05_rb,0.66886e-07_rb /)
+      kao(:, 4, 9, 1) = (/ &
+        & 0.70541e-08_rb,0.12979e-05_rb,0.18959e-05_rb,0.23090e-05_rb,0.26695e-05_rb, &
+        & 0.29367e-05_rb,0.31239e-05_rb,0.30574e-05_rb,0.73978e-07_rb /)
+      kao(:, 5, 9, 1) = (/ &
+        & 0.66359e-08_rb,0.13937e-05_rb,0.20720e-05_rb,0.25448e-05_rb,0.29680e-05_rb, &
+        & 0.33208e-05_rb,0.35191e-05_rb,0.35097e-05_rb,0.81724e-07_rb /)
+      kao(:, 1,10, 1) = (/ &
+        & 0.74006e-08_rb,0.81705e-06_rb,0.11610e-05_rb,0.13325e-05_rb,0.14305e-05_rb, &
+        & 0.14668e-05_rb,0.14642e-05_rb,0.13765e-05_rb,0.44724e-07_rb /)
+      kao(:, 2,10, 1) = (/ &
+        & 0.68477e-08_rb,0.88306e-06_rb,0.12640e-05_rb,0.14768e-05_rb,0.16329e-05_rb, &
+        & 0.17209e-05_rb,0.17306e-05_rb,0.16441e-05_rb,0.50688e-07_rb /)
+      kao(:, 3,10, 1) = (/ &
+        & 0.63717e-08_rb,0.95522e-06_rb,0.13783e-05_rb,0.16303e-05_rb,0.18546e-05_rb, &
+        & 0.19963e-05_rb,0.20570e-05_rb,0.19678e-05_rb,0.56052e-07_rb /)
+      kao(:, 4,10, 1) = (/ &
+        & 0.59576e-08_rb,0.10331e-05_rb,0.14975e-05_rb,0.18180e-05_rb,0.20770e-05_rb, &
+        & 0.22813e-05_rb,0.24021e-05_rb,0.23350e-05_rb,0.62412e-07_rb /)
+      kao(:, 5,10, 1) = (/ &
+        & 0.55940e-08_rb,0.11102e-05_rb,0.16370e-05_rb,0.19999e-05_rb,0.23349e-05_rb, &
+        & 0.25900e-05_rb,0.27328e-05_rb,0.27057e-05_rb,0.69466e-07_rb /)
+      kao(:, 1,11, 1) = (/ &
+        & 0.60617e-08_rb,0.67167e-06_rb,0.95594e-06_rb,0.10939e-05_rb,0.11767e-05_rb, &
+        & 0.12059e-05_rb,0.12032e-05_rb,0.11314e-05_rb,0.37093e-07_rb /)
+      kao(:, 2,11, 1) = (/ &
+        & 0.56087e-08_rb,0.72704e-06_rb,0.10406e-05_rb,0.12137e-05_rb,0.13434e-05_rb, &
+        & 0.14171e-05_rb,0.14246e-05_rb,0.13521e-05_rb,0.41918e-07_rb /)
+      kao(:, 3,11, 1) = (/ &
+        & 0.52187e-08_rb,0.78681e-06_rb,0.11338e-05_rb,0.13419e-05_rb,0.15254e-05_rb, &
+        & 0.16426e-05_rb,0.16950e-05_rb,0.16203e-05_rb,0.46339e-07_rb /)
+      kao(:, 4,11, 1) = (/ &
+        & 0.48793e-08_rb,0.85013e-06_rb,0.12327e-05_rb,0.14971e-05_rb,0.17109e-05_rb, &
+        & 0.18776e-05_rb,0.19784e-05_rb,0.19240e-05_rb,0.51725e-07_rb /)
+      kao(:, 5,11, 1) = (/ &
+        & 0.45815e-08_rb,0.91420e-06_rb,0.13427e-05_rb,0.16458e-05_rb,0.19221e-05_rb, &
+        & 0.21323e-05_rb,0.22490e-05_rb,0.22263e-05_rb,0.57555e-07_rb /)
+      kao(:, 1,12, 1) = (/ &
+        & 0.49629e-08_rb,0.55223e-06_rb,0.78677e-06_rb,0.89789e-06_rb,0.96778e-06_rb, &
+        & 0.99148e-06_rb,0.98883e-06_rb,0.93028e-06_rb,0.30610e-07_rb /)
+      kao(:, 2,12, 1) = (/ &
+        & 0.45920e-08_rb,0.59832e-06_rb,0.85632e-06_rb,0.99730e-06_rb,0.11052e-05_rb, &
+        & 0.11665e-05_rb,0.11729e-05_rb,0.11125e-05_rb,0.34553e-07_rb /)
+      kao(:, 3,12, 1) = (/ &
+        & 0.42727e-08_rb,0.64760e-06_rb,0.93315e-06_rb,0.11041e-05_rb,0.12552e-05_rb, &
+        & 0.13521e-05_rb,0.13956e-05_rb,0.13333e-05_rb,0.38176e-07_rb /)
+      kao(:, 4,12, 1) = (/ &
+        & 0.39949e-08_rb,0.69926e-06_rb,0.10110e-05_rb,0.12304e-05_rb,0.14083e-05_rb, &
+        & 0.15442e-05_rb,0.16283e-05_rb,0.15837e-05_rb,0.42648e-07_rb /)
+      kao(:, 5,12, 1) = (/ &
+        & 0.37510e-08_rb,0.75239e-06_rb,0.11006e-05_rb,0.13535e-05_rb,0.15785e-05_rb, &
+        & 0.17547e-05_rb,0.18501e-05_rb,0.18298e-05_rb,0.47452e-07_rb /)
+      kao(:, 1,13, 1) = (/ &
+        & 0.40633e-08_rb,0.45378e-06_rb,0.64719e-06_rb,0.73637e-06_rb,0.79571e-06_rb, &
+        & 0.81503e-06_rb,0.81264e-06_rb,0.76488e-06_rb,0.25080e-07_rb /)
+      kao(:, 2,13, 1) = (/ &
+        & 0.37596e-08_rb,0.49208e-06_rb,0.70430e-06_rb,0.81894e-06_rb,0.90856e-06_rb, &
+        & 0.95919e-06_rb,0.96435e-06_rb,0.91411e-06_rb,0.28293e-07_rb /)
+      kao(:, 3,13, 1) = (/ &
+        & 0.34982e-08_rb,0.53259e-06_rb,0.76370e-06_rb,0.90761e-06_rb,0.10316e-05_rb, &
+        & 0.11116e-05_rb,0.11472e-05_rb,0.10956e-05_rb,0.31267e-07_rb /)
+      kao(:, 4,13, 1) = (/ &
+        & 0.32707e-08_rb,0.57488e-06_rb,0.82833e-06_rb,0.10096e-05_rb,0.11577e-05_rb, &
+        & 0.12688e-05_rb,0.13388e-05_rb,0.13015e-05_rb,0.34930e-07_rb /)
+      kao(:, 5,13, 1) = (/ &
+        & 0.30710e-08_rb,0.61832e-06_rb,0.90250e-06_rb,0.11120e-05_rb,0.12962e-05_rb, &
+        & 0.14424e-05_rb,0.15206e-05_rb,0.15032e-05_rb,0.38861e-07_rb /)
+      kao(:, 1, 1, 2) = (/ &
+        & 0.14215e-06_rb,0.65726e-04_rb,0.11327e-03_rb,0.15324e-03_rb,0.18473e-03_rb, &
+        & 0.20658e-03_rb,0.21603e-03_rb,0.20617e-03_rb,0.13252e-04_rb /)
+      kao(:, 2, 1, 2) = (/ &
+        & 0.13452e-06_rb,0.69521e-04_rb,0.12059e-03_rb,0.16342e-03_rb,0.19613e-03_rb, &
+        & 0.21987e-03_rb,0.22946e-03_rb,0.21879e-03_rb,0.14816e-04_rb /)
+      kao(:, 3, 1, 2) = (/ &
+        & 0.12766e-06_rb,0.73313e-04_rb,0.12786e-03_rb,0.17303e-03_rb,0.20754e-03_rb, &
+        & 0.23326e-03_rb,0.24324e-03_rb,0.22956e-03_rb,0.16536e-04_rb /)
+      kao(:, 4, 1, 2) = (/ &
+        & 0.12147e-06_rb,0.77087e-04_rb,0.13521e-03_rb,0.18263e-03_rb,0.21904e-03_rb, &
+        & 0.24614e-03_rb,0.25637e-03_rb,0.24060e-03_rb,0.18092e-04_rb /)
+      kao(:, 5, 1, 2) = (/ &
+        & 0.11584e-06_rb,0.80946e-04_rb,0.14233e-03_rb,0.19230e-03_rb,0.23047e-03_rb, &
+        & 0.25869e-03_rb,0.26904e-03_rb,0.25139e-03_rb,0.19768e-04_rb /)
+      kao(:, 1, 2, 2) = (/ &
+        & 0.11918e-06_rb,0.55167e-04_rb,0.94557e-04_rb,0.12760e-03_rb,0.15322e-03_rb, &
+        & 0.17148e-03_rb,0.17894e-03_rb,0.17049e-03_rb,0.10710e-04_rb /)
+      kao(:, 2, 2, 2) = (/ &
+        & 0.11264e-06_rb,0.58581e-04_rb,0.10113e-03_rb,0.13648e-03_rb,0.16335e-03_rb, &
+        & 0.18288e-03_rb,0.19059e-03_rb,0.18131e-03_rb,0.12067e-04_rb /)
+      kao(:, 3, 2, 2) = (/ &
+        & 0.10678e-06_rb,0.61935e-04_rb,0.10756e-03_rb,0.14497e-03_rb,0.17335e-03_rb, &
+        & 0.19437e-03_rb,0.20245e-03_rb,0.19070e-03_rb,0.13553e-04_rb /)
+      kao(:, 4, 2, 2) = (/ &
+        & 0.10149e-06_rb,0.65261e-04_rb,0.11404e-03_rb,0.15331e-03_rb,0.18323e-03_rb, &
+        & 0.20559e-03_rb,0.21385e-03_rb,0.20024e-03_rb,0.14801e-04_rb /)
+      kao(:, 5, 2, 2) = (/ &
+        & 0.96699e-07_rb,0.68698e-04_rb,0.12038e-03_rb,0.16167e-03_rb,0.19308e-03_rb, &
+        & 0.21635e-03_rb,0.22479e-03_rb,0.20964e-03_rb,0.16245e-04_rb /)
+      kao(:, 1, 3, 2) = (/ &
+        & 0.10112e-06_rb,0.45399e-04_rb,0.77226e-04_rb,0.10397e-03_rb,0.12462e-03_rb, &
+        & 0.13956e-03_rb,0.14531e-03_rb,0.13816e-03_rb,0.83635e-05_rb /)
+      kao(:, 2, 3, 2) = (/ &
+        & 0.95381e-07_rb,0.48357e-04_rb,0.82986e-04_rb,0.11173e-03_rb,0.13338e-03_rb, &
+        & 0.14898e-03_rb,0.15534e-03_rb,0.14786e-03_rb,0.94915e-05_rb /)
+      kao(:, 3, 3, 2) = (/ &
+        & 0.90257e-07_rb,0.51355e-04_rb,0.88727e-04_rb,0.11920e-03_rb,0.14215e-03_rb, &
+        & 0.15859e-03_rb,0.16541e-03_rb,0.15622e-03_rb,0.10683e-04_rb /)
+      kao(:, 4, 3, 2) = (/ &
+        & 0.85653e-07_rb,0.54322e-04_rb,0.94369e-04_rb,0.12646e-03_rb,0.15072e-03_rb, &
+        & 0.16838e-03_rb,0.17536e-03_rb,0.16433e-03_rb,0.11764e-04_rb /)
+      kao(:, 5, 3, 2) = (/ &
+        & 0.81492e-07_rb,0.57300e-04_rb,0.99940e-04_rb,0.13355e-03_rb,0.15929e-03_rb, &
+        & 0.17800e-03_rb,0.18496e-03_rb,0.17234e-03_rb,0.12979e-04_rb /)
+      kao(:, 1, 4, 2) = (/ &
+        & 0.86132e-07_rb,0.36910e-04_rb,0.62346e-04_rb,0.83628e-04_rb,0.10025e-03_rb, &
+        & 0.11224e-03_rb,0.11706e-03_rb,0.11109e-03_rb,0.64715e-05_rb /)
+      kao(:, 2, 4, 2) = (/ &
+        & 0.81062e-07_rb,0.39490e-04_rb,0.67274e-04_rb,0.90384e-04_rb,0.10785e-03_rb, &
+        & 0.12026e-03_rb,0.12543e-03_rb,0.11944e-03_rb,0.73991e-05_rb /)
+      kao(:, 3, 4, 2) = (/ &
+        & 0.76553e-07_rb,0.42055e-04_rb,0.72269e-04_rb,0.96956e-04_rb,0.11528e-03_rb, &
+        & 0.12833e-03_rb,0.13396e-03_rb,0.12697e-03_rb,0.83899e-05_rb /)
+      kao(:, 4, 4, 2) = (/ &
+        & 0.72516e-07_rb,0.44696e-04_rb,0.77235e-04_rb,0.10321e-03_rb,0.12276e-03_rb, &
+        & 0.13674e-03_rb,0.14260e-03_rb,0.13384e-03_rb,0.93052e-05_rb /)
+      kao(:, 5, 4, 2) = (/ &
+        & 0.68881e-07_rb,0.47273e-04_rb,0.82118e-04_rb,0.10935e-03_rb,0.13016e-03_rb, &
+        & 0.14506e-03_rb,0.15080e-03_rb,0.14062e-03_rb,0.10314e-04_rb /)
+      kao(:, 1, 5, 2) = (/ &
+        & 0.73401e-07_rb,0.29772e-04_rb,0.49957e-04_rb,0.66720e-04_rb,0.80104e-04_rb, &
+        & 0.89761e-04_rb,0.93853e-04_rb,0.88953e-04_rb,0.50171e-05_rb /)
+      kao(:, 2, 5, 2) = (/ &
+        & 0.68916e-07_rb,0.31976e-04_rb,0.54217e-04_rb,0.72570e-04_rb,0.86671e-04_rb, &
+        & 0.96653e-04_rb,0.10073e-03_rb,0.95875e-04_rb,0.57746e-05_rb /)
+      kao(:, 3, 5, 2) = (/ &
+        & 0.64945e-07_rb,0.34219e-04_rb,0.58417e-04_rb,0.78327e-04_rb,0.92950e-04_rb, &
+        & 0.10358e-03_rb,0.10803e-03_rb,0.10274e-03_rb,0.66197e-05_rb /)
+      kao(:, 4, 5, 2) = (/ &
+        & 0.61405e-07_rb,0.36457e-04_rb,0.62694e-04_rb,0.83756e-04_rb,0.99356e-04_rb, &
+        & 0.11058e-03_rb,0.11542e-03_rb,0.10858e-03_rb,0.73729e-05_rb /)
+      kao(:, 5, 5, 2) = (/ &
+        & 0.58229e-07_rb,0.38713e-04_rb,0.67059e-04_rb,0.89033e-04_rb,0.10573e-03_rb, &
+        & 0.11764e-03_rb,0.12243e-03_rb,0.11440e-03_rb,0.82149e-05_rb /)
+      kao(:, 1, 6, 2) = (/ &
+        & 0.62723e-07_rb,0.23750e-04_rb,0.39643e-04_rb,0.52796e-04_rb,0.63478e-04_rb, &
+        & 0.71151e-04_rb,0.74640e-04_rb,0.70193e-04_rb,0.38899e-05_rb /)
+      kao(:, 2, 6, 2) = (/ &
+        & 0.58735e-07_rb,0.25657e-04_rb,0.43274e-04_rb,0.57719e-04_rb,0.69124e-04_rb, &
+        & 0.77375e-04_rb,0.80498e-04_rb,0.76543e-04_rb,0.44833e-05_rb /)
+      kao(:, 3, 6, 2) = (/ &
+        & 0.55222e-07_rb,0.27563e-04_rb,0.46866e-04_rb,0.62699e-04_rb,0.74494e-04_rb, &
+        & 0.82946e-04_rb,0.86653e-04_rb,0.82509e-04_rb,0.51635e-05_rb /)
+      kao(:, 4, 6, 2) = (/ &
+        & 0.52103e-07_rb,0.29528e-04_rb,0.50470e-04_rb,0.67473e-04_rb,0.79899e-04_rb, &
+        & 0.89004e-04_rb,0.92786e-04_rb,0.87628e-04_rb,0.58104e-05_rb /)
+      kao(:, 5, 6, 2) = (/ &
+        & 0.49317e-07_rb,0.31444e-04_rb,0.54175e-04_rb,0.72000e-04_rb,0.85322e-04_rb, &
+        & 0.94885e-04_rb,0.98826e-04_rb,0.92648e-04_rb,0.64997e-05_rb /)
+      kao(:, 1, 7, 2) = (/ &
+        & 0.53634e-07_rb,0.18862e-04_rb,0.31325e-04_rb,0.41575e-04_rb,0.50141e-04_rb, &
+        & 0.56190e-04_rb,0.58882e-04_rb,0.55026e-04_rb,0.29795e-05_rb /)
+      kao(:, 2, 7, 2) = (/ &
+        & 0.50084e-07_rb,0.20474e-04_rb,0.34342e-04_rb,0.45732e-04_rb,0.54884e-04_rb, &
+        & 0.61494e-04_rb,0.64187e-04_rb,0.60857e-04_rb,0.34589e-05_rb /)
+      kao(:, 3, 7, 2) = (/ &
+        & 0.46973e-07_rb,0.22063e-04_rb,0.37411e-04_rb,0.49893e-04_rb,0.59475e-04_rb, &
+        & 0.66279e-04_rb,0.69129e-04_rb,0.65758e-04_rb,0.39983e-05_rb /)
+      kao(:, 4, 7, 2) = (/ &
+        & 0.44224e-07_rb,0.23764e-04_rb,0.40481e-04_rb,0.54107e-04_rb,0.64026e-04_rb, &
+        & 0.71350e-04_rb,0.74328e-04_rb,0.70513e-04_rb,0.45526e-05_rb /)
+      kao(:, 5, 7, 2) = (/ &
+        & 0.41777e-07_rb,0.25434e-04_rb,0.43555e-04_rb,0.57958e-04_rb,0.68599e-04_rb, &
+        & 0.76304e-04_rb,0.79456e-04_rb,0.74649e-04_rb,0.51046e-05_rb /)
+      kao(:, 1, 8, 2) = (/ &
+        & 0.45857e-07_rb,0.14945e-04_rb,0.24594e-04_rb,0.32696e-04_rb,0.39571e-04_rb, &
+        & 0.44348e-04_rb,0.46090e-04_rb,0.43034e-04_rb,0.22833e-05_rb /)
+      kao(:, 2, 8, 2) = (/ &
+        & 0.42697e-07_rb,0.16265e-04_rb,0.27198e-04_rb,0.36108e-04_rb,0.43381e-04_rb, &
+        & 0.48642e-04_rb,0.50943e-04_rb,0.47848e-04_rb,0.26669e-05_rb /)
+      kao(:, 3, 8, 2) = (/ &
+        & 0.39944e-07_rb,0.17616e-04_rb,0.29775e-04_rb,0.39577e-04_rb,0.47366e-04_rb, &
+        & 0.52791e-04_rb,0.54992e-04_rb,0.52236e-04_rb,0.30932e-05_rb /)
+      kao(:, 4, 8, 2) = (/ &
+        & 0.37522e-07_rb,0.19042e-04_rb,0.32351e-04_rb,0.43126e-04_rb,0.51153e-04_rb, &
+        & 0.56987e-04_rb,0.59316e-04_rb,0.56438e-04_rb,0.35666e-05_rb /)
+      kao(:, 5, 8, 2) = (/ &
+        & 0.35376e-07_rb,0.20476e-04_rb,0.34946e-04_rb,0.46521e-04_rb,0.55009e-04_rb, &
+        & 0.61221e-04_rb,0.63714e-04_rb,0.60035e-04_rb,0.40037e-05_rb /)
+      kao(:, 1, 9, 2) = (/ &
+        & 0.39233e-07_rb,0.11817e-04_rb,0.19254e-04_rb,0.25596e-04_rb,0.30843e-04_rb, &
+        & 0.34574e-04_rb,0.36035e-04_rb,0.33425e-04_rb,0.17673e-05_rb /)
+      kao(:, 2, 9, 2) = (/ &
+        & 0.36418e-07_rb,0.12914e-04_rb,0.21404e-04_rb,0.28372e-04_rb,0.34161e-04_rb, &
+        & 0.38321e-04_rb,0.40053e-04_rb,0.37435e-04_rb,0.20751e-05_rb /)
+      kao(:, 3, 9, 2) = (/ &
+        & 0.33979e-07_rb,0.14026e-04_rb,0.23574e-04_rb,0.31316e-04_rb,0.37514e-04_rb, &
+        & 0.41977e-04_rb,0.43747e-04_rb,0.41346e-04_rb,0.24151e-05_rb /)
+      kao(:, 4, 9, 2) = (/ &
+        & 0.31844e-07_rb,0.15205e-04_rb,0.25770e-04_rb,0.34231e-04_rb,0.40723e-04_rb, &
+        & 0.45315e-04_rb,0.47202e-04_rb,0.44869e-04_rb,0.28151e-05_rb /)
+      kao(:, 5, 9, 2) = (/ &
+        & 0.29961e-07_rb,0.16420e-04_rb,0.27955e-04_rb,0.37187e-04_rb,0.43941e-04_rb, &
+        & 0.48873e-04_rb,0.50856e-04_rb,0.48170e-04_rb,0.31733e-05_rb /)
+      kao(:, 1,10, 2) = (/ &
+        & 0.33373e-07_rb,0.93505e-05_rb,0.15216e-04_rb,0.20198e-04_rb,0.24244e-04_rb, &
+        & 0.27077e-04_rb,0.28186e-04_rb,0.25996e-04_rb,0.13941e-05_rb /)
+      kao(:, 2,10, 2) = (/ &
+        & 0.30893e-07_rb,0.10284e-04_rb,0.16902e-04_rb,0.22468e-04_rb,0.27072e-04_rb, &
+        & 0.30382e-04_rb,0.31603e-04_rb,0.29456e-04_rb,0.16352e-05_rb /)
+      kao(:, 3,10, 2) = (/ &
+        & 0.28754e-07_rb,0.11207e-04_rb,0.18715e-04_rb,0.24849e-04_rb,0.29815e-04_rb, &
+        & 0.33379e-04_rb,0.34901e-04_rb,0.32836e-04_rb,0.19188e-05_rb /)
+      kao(:, 4,10, 2) = (/ &
+        & 0.26892e-07_rb,0.12172e-04_rb,0.20578e-04_rb,0.27269e-04_rb,0.32536e-04_rb, &
+        & 0.36182e-04_rb,0.37703e-04_rb,0.35750e-04_rb,0.22467e-05_rb /)
+      kao(:, 5,10, 2) = (/ &
+        & 0.25255e-07_rb,0.13195e-04_rb,0.22422e-04_rb,0.29781e-04_rb,0.35220e-04_rb, &
+        & 0.39157e-04_rb,0.40719e-04_rb,0.38729e-04_rb,0.25535e-05_rb /)
+      kao(:, 1,11, 2) = (/ &
+        & 0.27335e-07_rb,0.77491e-05_rb,0.12607e-04_rb,0.16695e-04_rb,0.20093e-04_rb, &
+        & 0.22431e-04_rb,0.23345e-04_rb,0.21522e-04_rb,0.11569e-05_rb /)
+      kao(:, 2,11, 2) = (/ &
+        & 0.25303e-07_rb,0.85322e-05_rb,0.14022e-04_rb,0.18593e-04_rb,0.22378e-04_rb, &
+        & 0.25133e-04_rb,0.26161e-04_rb,0.24379e-04_rb,0.13709e-05_rb /)
+      kao(:, 3,11, 2) = (/ &
+        & 0.23551e-07_rb,0.92912e-05_rb,0.15536e-04_rb,0.20618e-04_rb,0.24722e-04_rb, &
+        & 0.27647e-04_rb,0.28874e-04_rb,0.27196e-04_rb,0.16099e-05_rb /)
+      kao(:, 4,11, 2) = (/ &
+        & 0.22025e-07_rb,0.10117e-04_rb,0.17115e-04_rb,0.22645e-04_rb,0.26974e-04_rb, &
+        & 0.29947e-04_rb,0.31210e-04_rb,0.29581e-04_rb,0.18845e-05_rb /)
+      kao(:, 5,11, 2) = (/ &
+        & 0.20684e-07_rb,0.10977e-04_rb,0.18645e-04_rb,0.24734e-04_rb,0.29203e-04_rb, &
+        & 0.32453e-04_rb,0.33733e-04_rb,0.32056e-04_rb,0.21326e-05_rb /)
+      kao(:, 1,12, 2) = (/ &
+        & 0.22380e-07_rb,0.64144e-05_rb,0.10436e-04_rb,0.13802e-04_rb,0.16622e-04_rb, &
+        & 0.18557e-04_rb,0.19314e-04_rb,0.17793e-04_rb,0.95906e-06_rb /)
+      kao(:, 2,12, 2) = (/ &
+        & 0.20716e-07_rb,0.70603e-05_rb,0.11625e-04_rb,0.15385e-04_rb,0.18503e-04_rb, &
+        & 0.20776e-04_rb,0.21630e-04_rb,0.20152e-04_rb,0.11363e-05_rb /)
+      kao(:, 3,12, 2) = (/ &
+        & 0.19282e-07_rb,0.76960e-05_rb,0.12886e-04_rb,0.17087e-04_rb,0.20475e-04_rb, &
+        & 0.22867e-04_rb,0.23856e-04_rb,0.22506e-04_rb,0.13400e-05_rb /)
+      kao(:, 4,12, 2) = (/ &
+        & 0.18032e-07_rb,0.83983e-05_rb,0.14206e-04_rb,0.18783e-04_rb,0.22334e-04_rb, &
+        & 0.24764e-04_rb,0.25815e-04_rb,0.24461e-04_rb,0.15637e-05_rb /)
+      kao(:, 5,12, 2) = (/ &
+        & 0.16934e-07_rb,0.91186e-05_rb,0.15491e-04_rb,0.20513e-04_rb,0.24201e-04_rb, &
+        & 0.26864e-04_rb,0.27917e-04_rb,0.26491e-04_rb,0.17707e-05_rb /)
+      kao(:, 1,13, 2) = (/ &
+        & 0.18323e-07_rb,0.53022e-05_rb,0.86273e-05_rb,0.11385e-04_rb,0.13729e-04_rb, &
+        & 0.15318e-04_rb,0.15952e-04_rb,0.14693e-04_rb,0.78927e-06_rb /)
+      kao(:, 2,13, 2) = (/ &
+        & 0.16961e-07_rb,0.58316e-05_rb,0.96204e-05_rb,0.12717e-04_rb,0.15275e-04_rb, &
+        & 0.17141e-04_rb,0.17863e-04_rb,0.16639e-04_rb,0.93659e-06_rb /)
+      kao(:, 3,13, 2) = (/ &
+        & 0.15787e-07_rb,0.63710e-05_rb,0.10675e-04_rb,0.14140e-04_rb,0.16925e-04_rb, &
+        & 0.18881e-04_rb,0.19675e-04_rb,0.18564e-04_rb,0.11050e-05_rb /)
+      kao(:, 4,13, 2) = (/ &
+        & 0.14764e-07_rb,0.69607e-05_rb,0.11779e-04_rb,0.15554e-04_rb,0.18475e-04_rb, &
+        & 0.20461e-04_rb,0.21320e-04_rb,0.20207e-04_rb,0.12868e-05_rb /)
+      kao(:, 5,13, 2) = (/ &
+        & 0.13865e-07_rb,0.75611e-05_rb,0.12843e-04_rb,0.16991e-04_rb,0.20029e-04_rb, &
+        & 0.22208e-04_rb,0.23079e-04_rb,0.21838e-04_rb,0.14565e-05_rb /)
+      kao(:, 1, 1, 3) = (/ &
+        & 0.55948e-06_rb,0.43472e-03_rb,0.65689e-03_rb,0.80237e-03_rb,0.90326e-03_rb, &
+        & 0.95995e-03_rb,0.94242e-03_rb,0.81801e-03_rb,0.18380e-03_rb /)
+      kao(:, 2, 1, 3) = (/ &
+        & 0.53175e-06_rb,0.45395e-03_rb,0.68779e-03_rb,0.84040e-03_rb,0.94598e-03_rb, &
+        & 0.10011e-02_rb,0.98481e-03_rb,0.85748e-03_rb,0.19567e-03_rb /)
+      kao(:, 3, 1, 3) = (/ &
+        & 0.50648e-06_rb,0.46835e-03_rb,0.71403e-03_rb,0.87684e-03_rb,0.98520e-03_rb, &
+        & 0.10393e-02_rb,0.10233e-02_rb,0.89729e-03_rb,0.20725e-03_rb /)
+      kao(:, 4, 1, 3) = (/ &
+        & 0.48330e-06_rb,0.48143e-03_rb,0.73979e-03_rb,0.91063e-03_rb,0.10212e-02_rb, &
+        & 0.10762e-02_rb,0.10600e-02_rb,0.93507e-03_rb,0.21814e-03_rb /)
+      kao(:, 5, 1, 3) = (/ &
+        & 0.46195e-06_rb,0.49413e-03_rb,0.76470e-03_rb,0.94208e-03_rb,0.10547e-02_rb, &
+        & 0.11099e-02_rb,0.10960e-02_rb,0.97164e-03_rb,0.23056e-03_rb /)
+      kao(:, 1, 2, 3) = (/ &
+        & 0.46813e-06_rb,0.36711e-03_rb,0.55743e-03_rb,0.68070e-03_rb,0.76614e-03_rb, &
+        & 0.81442e-03_rb,0.79940e-03_rb,0.69691e-03_rb,0.14988e-03_rb /)
+      kao(:, 2, 2, 3) = (/ &
+        & 0.44450e-06_rb,0.38413e-03_rb,0.58502e-03_rb,0.71506e-03_rb,0.80409e-03_rb, &
+        & 0.85191e-03_rb,0.83722e-03_rb,0.73231e-03_rb,0.15985e-03_rb /)
+      kao(:, 3, 2, 3) = (/ &
+        & 0.42301e-06_rb,0.39744e-03_rb,0.60852e-03_rb,0.74741e-03_rb,0.83920e-03_rb, &
+        & 0.88588e-03_rb,0.87206e-03_rb,0.76677e-03_rb,0.16968e-03_rb /)
+      kao(:, 4, 2, 3) = (/ &
+        & 0.40335e-06_rb,0.40927e-03_rb,0.63200e-03_rb,0.77835e-03_rb,0.87190e-03_rb, &
+        & 0.91843e-03_rb,0.90467e-03_rb,0.79859e-03_rb,0.17948e-03_rb /)
+      kao(:, 5, 2, 3) = (/ &
+        & 0.38529e-06_rb,0.42034e-03_rb,0.65353e-03_rb,0.80758e-03_rb,0.90248e-03_rb, &
+        & 0.94929e-03_rb,0.93715e-03_rb,0.83136e-03_rb,0.19018e-03_rb /)
+      kao(:, 1, 3, 3) = (/ &
+        & 0.39591e-06_rb,0.30459e-03_rb,0.46364e-03_rb,0.56590e-03_rb,0.63680e-03_rb, &
+        & 0.67681e-03_rb,0.66517e-03_rb,0.58106e-03_rb,0.11936e-03_rb /)
+      kao(:, 2, 3, 3) = (/ &
+        & 0.37538e-06_rb,0.32036e-03_rb,0.48874e-03_rb,0.59649e-03_rb,0.67170e-03_rb, &
+        & 0.71161e-03_rb,0.69943e-03_rb,0.61159e-03_rb,0.12804e-03_rb /)
+      kao(:, 3, 3, 3) = (/ &
+        & 0.35675e-06_rb,0.33321e-03_rb,0.50999e-03_rb,0.62591e-03_rb,0.70319e-03_rb, &
+        & 0.74333e-03_rb,0.73015e-03_rb,0.64070e-03_rb,0.13642e-03_rb /)
+      kao(:, 4, 3, 3) = (/ &
+        & 0.33978e-06_rb,0.34382e-03_rb,0.53102e-03_rb,0.65391e-03_rb,0.73278e-03_rb, &
+        & 0.77303e-03_rb,0.75990e-03_rb,0.66979e-03_rb,0.14477e-03_rb /)
+      kao(:, 5, 3, 3) = (/ &
+        & 0.32422e-06_rb,0.35416e-03_rb,0.55071e-03_rb,0.68042e-03_rb,0.76041e-03_rb, &
+        & 0.80118e-03_rb,0.78914e-03_rb,0.69923e-03_rb,0.15365e-03_rb /)
+      kao(:, 1, 4, 3) = (/ &
+        & 0.33598e-06_rb,0.24970e-03_rb,0.38053e-03_rb,0.46464e-03_rb,0.52234e-03_rb, &
+        & 0.55488e-03_rb,0.54675e-03_rb,0.47794e-03_rb,0.95275e-04_rb /)
+      kao(:, 2, 4, 3) = (/ &
+        & 0.31800e-06_rb,0.26415e-03_rb,0.40313e-03_rb,0.49210e-03_rb,0.55359e-03_rb, &
+        & 0.58661e-03_rb,0.57694e-03_rb,0.50393e-03_rb,0.10292e-03_rb /)
+      kao(:, 3, 4, 3) = (/ &
+        & 0.30177e-06_rb,0.27638e-03_rb,0.42268e-03_rb,0.51823e-03_rb,0.58348e-03_rb, &
+        & 0.61591e-03_rb,0.60497e-03_rb,0.52947e-03_rb,0.11016e-03_rb /)
+      kao(:, 4, 4, 3) = (/ &
+        & 0.28703e-06_rb,0.28612e-03_rb,0.44165e-03_rb,0.54326e-03_rb,0.61010e-03_rb, &
+        & 0.64299e-03_rb,0.63151e-03_rb,0.55558e-03_rb,0.11708e-03_rb /)
+      kao(:, 5, 4, 3) = (/ &
+        & 0.27356e-06_rb,0.29550e-03_rb,0.45903e-03_rb,0.56703e-03_rb,0.63522e-03_rb, &
+        & 0.66839e-03_rb,0.65812e-03_rb,0.58142e-03_rb,0.12444e-03_rb /)
+      kao(:, 1, 5, 3) = (/ &
+        & 0.28517e-06_rb,0.20305e-03_rb,0.30940e-03_rb,0.37854e-03_rb,0.42516e-03_rb, &
+        & 0.45167e-03_rb,0.44617e-03_rb,0.39006e-03_rb,0.76394e-04_rb /)
+      kao(:, 2, 5, 3) = (/ &
+        & 0.26943e-06_rb,0.21631e-03_rb,0.32942e-03_rb,0.40279e-03_rb,0.45281e-03_rb, &
+        & 0.47959e-03_rb,0.47274e-03_rb,0.41219e-03_rb,0.83093e-04_rb /)
+      kao(:, 3, 5, 3) = (/ &
+        & 0.25526e-06_rb,0.22760e-03_rb,0.34736e-03_rb,0.42603e-03_rb,0.47928e-03_rb, &
+        & 0.50573e-03_rb,0.49753e-03_rb,0.43423e-03_rb,0.89137e-04_rb /)
+      kao(:, 4, 5, 3) = (/ &
+        & 0.24245e-06_rb,0.23661e-03_rb,0.36423e-03_rb,0.44832e-03_rb,0.50373e-03_rb, &
+        & 0.53021e-03_rb,0.52092e-03_rb,0.45715e-03_rb,0.95026e-04_rb /)
+      kao(:, 5, 5, 3) = (/ &
+        & 0.23079e-06_rb,0.24490e-03_rb,0.37979e-03_rb,0.46958e-03_rb,0.52671e-03_rb, &
+        & 0.55360e-03_rb,0.54422e-03_rb,0.47982e-03_rb,0.10100e-03_rb /)
+      kao(:, 1, 6, 3) = (/ &
+        & 0.24258e-06_rb,0.16374e-03_rb,0.24889e-03_rb,0.30526e-03_rb,0.34256e-03_rb, &
+        & 0.36437e-03_rb,0.36054e-03_rb,0.31643e-03_rb,0.60983e-04_rb /)
+      kao(:, 2, 6, 3) = (/ &
+        & 0.22873e-06_rb,0.17557e-03_rb,0.26674e-03_rb,0.32662e-03_rb,0.36698e-03_rb, &
+        & 0.38862e-03_rb,0.38395e-03_rb,0.33481e-03_rb,0.66717e-04_rb /)
+      kao(:, 3, 6, 3) = (/ &
+        & 0.21632e-06_rb,0.18596e-03_rb,0.28315e-03_rb,0.34710e-03_rb,0.39032e-03_rb, &
+        & 0.41186e-03_rb,0.40597e-03_rb,0.35347e-03_rb,0.71805e-04_rb /)
+      kao(:, 4, 6, 3) = (/ &
+        & 0.20515e-06_rb,0.19412e-03_rb,0.29825e-03_rb,0.36672e-03_rb,0.41223e-03_rb, &
+        & 0.43370e-03_rb,0.42654e-03_rb,0.37308e-03_rb,0.76950e-04_rb /)
+      kao(:, 5, 6, 3) = (/ &
+        & 0.19500e-06_rb,0.20163e-03_rb,0.31177e-03_rb,0.38573e-03_rb,0.43298e-03_rb, &
+        & 0.45474e-03_rb,0.44659e-03_rb,0.39273e-03_rb,0.81854e-04_rb /)
+      kao(:, 1, 7, 3) = (/ &
+        & 0.20644e-06_rb,0.13088e-03_rb,0.19883e-03_rb,0.24453e-03_rb,0.27379e-03_rb, &
+        & 0.29133e-03_rb,0.28972e-03_rb,0.25527e-03_rb,0.48483e-04_rb /)
+      kao(:, 2, 7, 3) = (/ &
+        & 0.19422e-06_rb,0.14123e-03_rb,0.21464e-03_rb,0.26307e-03_rb,0.29520e-03_rb, &
+        & 0.31262e-03_rb,0.30976e-03_rb,0.27057e-03_rb,0.53189e-04_rb /)
+      kao(:, 3, 7, 3) = (/ &
+        & 0.18334e-06_rb,0.15056e-03_rb,0.22945e-03_rb,0.28102e-03_rb,0.31570e-03_rb, &
+        & 0.33336e-03_rb,0.32921e-03_rb,0.28657e-03_rb,0.57664e-04_rb /)
+      kao(:, 4, 7, 3) = (/ &
+        & 0.17359e-06_rb,0.15845e-03_rb,0.24254e-03_rb,0.29812e-03_rb,0.33533e-03_rb, &
+        & 0.35273e-03_rb,0.34737e-03_rb,0.30290e-03_rb,0.62080e-04_rb /)
+      kao(:, 5, 7, 3) = (/ &
+        & 0.16476e-06_rb,0.16515e-03_rb,0.25472e-03_rb,0.31492e-03_rb,0.35368e-03_rb, &
+        & 0.37134e-03_rb,0.36466e-03_rb,0.31971e-03_rb,0.66283e-04_rb /)
+      kao(:, 1, 8, 3) = (/ &
+        & 0.17564e-06_rb,0.10377e-03_rb,0.15799e-03_rb,0.19443e-03_rb,0.21775e-03_rb, &
+        & 0.23221e-03_rb,0.23178e-03_rb,0.20518e-03_rb,0.38613e-04_rb /)
+      kao(:, 2, 8, 3) = (/ &
+        & 0.16486e-06_rb,0.11291e-03_rb,0.17177e-03_rb,0.21060e-03_rb,0.23605e-03_rb, &
+        & 0.25023e-03_rb,0.24860e-03_rb,0.21840e-03_rb,0.42574e-04_rb /)
+      kao(:, 3, 8, 3) = (/ &
+        & 0.15532e-06_rb,0.12160e-03_rb,0.18472e-03_rb,0.22613e-03_rb,0.25383e-03_rb, &
+        & 0.26813e-03_rb,0.26569e-03_rb,0.23149e-03_rb,0.46438e-04_rb /)
+      kao(:, 4, 8, 3) = (/ &
+        & 0.14679e-06_rb,0.12871e-03_rb,0.19629e-03_rb,0.24117e-03_rb,0.27101e-03_rb, &
+        & 0.28546e-03_rb,0.28148e-03_rb,0.24511e-03_rb,0.50132e-04_rb /)
+      kao(:, 5, 8, 3) = (/ &
+        & 0.13913e-06_rb,0.13470e-03_rb,0.20711e-03_rb,0.25583e-03_rb,0.28735e-03_rb, &
+        & 0.30171e-03_rb,0.29653e-03_rb,0.25931e-03_rb,0.53892e-04_rb /)
+      kao(:, 1, 9, 3) = (/ &
+        & 0.14950e-06_rb,0.81941e-04_rb,0.12473e-03_rb,0.15363e-03_rb,0.17257e-03_rb, &
+        & 0.18409e-03_rb,0.18424e-03_rb,0.16439e-03_rb,0.30772e-04_rb /)
+      kao(:, 2, 9, 3) = (/ &
+        & 0.13998e-06_rb,0.89702e-04_rb,0.13655e-03_rb,0.16763e-03_rb,0.18779e-03_rb, &
+        & 0.19919e-03_rb,0.19877e-03_rb,0.17581e-03_rb,0.34022e-04_rb /)
+      kao(:, 3, 9, 3) = (/ &
+        & 0.13160e-06_rb,0.97263e-04_rb,0.14776e-03_rb,0.18089e-03_rb,0.20292e-03_rb, &
+        & 0.21451e-03_rb,0.21317e-03_rb,0.18640e-03_rb,0.37381e-04_rb /)
+      kao(:, 4, 9, 3) = (/ &
+        & 0.12415e-06_rb,0.10389e-03_rb,0.15817e-03_rb,0.19404e-03_rb,0.21794e-03_rb, &
+        & 0.22980e-03_rb,0.22715e-03_rb,0.19784e-03_rb,0.40457e-04_rb /)
+      kao(:, 5, 9, 3) = (/ &
+        & 0.11749e-06_rb,0.10934e-03_rb,0.16768e-03_rb,0.20680e-03_rb,0.23234e-03_rb, &
+        & 0.24414e-03_rb,0.24026e-03_rb,0.20959e-03_rb,0.43586e-04_rb /)
+      kao(:, 1,10, 3) = (/ &
+        & 0.12658e-06_rb,0.64763e-04_rb,0.98690e-04_rb,0.12170e-03_rb,0.13709e-03_rb, &
+        & 0.14644e-03_rb,0.14709e-03_rb,0.13215e-03_rb,0.24737e-04_rb /)
+      kao(:, 2,10, 3) = (/ &
+        & 0.11826e-06_rb,0.71405e-04_rb,0.10875e-03_rb,0.13368e-03_rb,0.14978e-03_rb, &
+        & 0.15901e-03_rb,0.15937e-03_rb,0.14153e-03_rb,0.27487e-04_rb /)
+      kao(:, 3,10, 3) = (/ &
+        & 0.11097e-06_rb,0.77857e-04_rb,0.11842e-03_rb,0.14510e-03_rb,0.16261e-03_rb, &
+        & 0.17204e-03_rb,0.17129e-03_rb,0.15041e-03_rb,0.30250e-04_rb /)
+      kao(:, 4,10, 3) = (/ &
+        & 0.10451e-06_rb,0.83764e-04_rb,0.12762e-03_rb,0.15625e-03_rb,0.17544e-03_rb, &
+        & 0.18516e-03_rb,0.18345e-03_rb,0.16010e-03_rb,0.32891e-04_rb /)
+      kao(:, 5,10, 3) = (/ &
+        & 0.98767e-07_rb,0.88833e-04_rb,0.13595e-03_rb,0.16723e-03_rb,0.18798e-03_rb, &
+        & 0.19766e-03_rb,0.19477e-03_rb,0.16979e-03_rb,0.35547e-04_rb /)
+      kao(:, 1,11, 3) = (/ &
+        & 0.10368e-06_rb,0.53714e-04_rb,0.81748e-04_rb,0.10085e-03_rb,0.11349e-03_rb, &
+        & 0.12126e-03_rb,0.12180e-03_rb,0.10950e-03_rb,0.20787e-04_rb /)
+      kao(:, 2,11, 3) = (/ &
+        & 0.96854e-07_rb,0.59175e-04_rb,0.90131e-04_rb,0.11085e-03_rb,0.12425e-03_rb, &
+        & 0.13166e-03_rb,0.13207e-03_rb,0.11733e-03_rb,0.23028e-04_rb /)
+      kao(:, 3,11, 3) = (/ &
+        & 0.90882e-07_rb,0.64593e-04_rb,0.98275e-04_rb,0.12041e-03_rb,0.13497e-03_rb, &
+        & 0.14273e-03_rb,0.14215e-03_rb,0.12479e-03_rb,0.25362e-04_rb /)
+      kao(:, 4,11, 3) = (/ &
+        & 0.85602e-07_rb,0.69545e-04_rb,0.10592e-03_rb,0.12982e-03_rb,0.14583e-03_rb, &
+        & 0.15388e-03_rb,0.15228e-03_rb,0.13297e-03_rb,0.27585e-04_rb /)
+      kao(:, 5,11, 3) = (/ &
+        & 0.80889e-07_rb,0.73731e-04_rb,0.11290e-03_rb,0.13914e-03_rb,0.15637e-03_rb, &
+        & 0.16431e-03_rb,0.16189e-03_rb,0.14116e-03_rb,0.29828e-04_rb /)
+      kao(:, 1,12, 3) = (/ &
+        & 0.84886e-07_rb,0.44418e-04_rb,0.67641e-04_rb,0.83490e-04_rb,0.93906e-04_rb, &
+        & 0.10034e-03_rb,0.10075e-03_rb,0.90614e-04_rb,0.17350e-04_rb /)
+      kao(:, 2,12, 3) = (/ &
+        & 0.79297e-07_rb,0.48981e-04_rb,0.74656e-04_rb,0.91821e-04_rb,0.10299e-03_rb, &
+        & 0.10891e-03_rb,0.10933e-03_rb,0.97221e-04_rb,0.19237e-04_rb /)
+      kao(:, 3,12, 3) = (/ &
+        & 0.74408e-07_rb,0.53553e-04_rb,0.81503e-04_rb,0.99872e-04_rb,0.11196e-03_rb, &
+        & 0.11832e-03_rb,0.11782e-03_rb,0.10341e-03_rb,0.21189e-04_rb /)
+      kao(:, 4,12, 3) = (/ &
+        & 0.70085e-07_rb,0.57698e-04_rb,0.87887e-04_rb,0.10781e-03_rb,0.12107e-03_rb, &
+        & 0.12775e-03_rb,0.12624e-03_rb,0.11034e-03_rb,0.23038e-04_rb /)
+      kao(:, 5,12, 3) = (/ &
+        & 0.66226e-07_rb,0.61177e-04_rb,0.93694e-04_rb,0.11567e-03_rb,0.12995e-03_rb, &
+        & 0.13645e-03_rb,0.13436e-03_rb,0.11726e-03_rb,0.24913e-04_rb /)
+      kao(:, 1,13, 3) = (/ &
+        & 0.69499e-07_rb,0.36716e-04_rb,0.55902e-04_rb,0.69067e-04_rb,0.77635e-04_rb, &
+        & 0.82934e-04_rb,0.83302e-04_rb,0.74905e-04_rb,0.14419e-04_rb /)
+      kao(:, 2,13, 3) = (/ &
+        & 0.64923e-07_rb,0.40511e-04_rb,0.61779e-04_rb,0.75984e-04_rb,0.85239e-04_rb, &
+        & 0.90090e-04_rb,0.90456e-04_rb,0.80264e-04_rb,0.15996e-04_rb /)
+      kao(:, 3,13, 3) = (/ &
+        & 0.60920e-07_rb,0.44356e-04_rb,0.67533e-04_rb,0.82746e-04_rb,0.92816e-04_rb, &
+        & 0.98017e-04_rb,0.97590e-04_rb,0.85621e-04_rb,0.17623e-04_rb /)
+      kao(:, 4,13, 3) = (/ &
+        & 0.57381e-07_rb,0.47826e-04_rb,0.72874e-04_rb,0.89443e-04_rb,0.10040e-03_rb, &
+        & 0.10588e-03_rb,0.10456e-03_rb,0.91429e-04_rb,0.19144e-04_rb /)
+      kao(:, 5,13, 3) = (/ &
+        & 0.54221e-07_rb,0.50750e-04_rb,0.77698e-04_rb,0.96005e-04_rb,0.10784e-03_rb, &
+        & 0.11318e-03_rb,0.11139e-03_rb,0.97258e-04_rb,0.20671e-04_rb /)
+      kao(:, 1, 1, 4) = (/ &
+        & 0.36654e-05_rb,0.13689e-02_rb,0.21108e-02_rb,0.26314e-02_rb,0.29458e-02_rb, &
+        & 0.30831e-02_rb,0.30207e-02_rb,0.26003e-02_rb,0.93689e-03_rb /)
+      kao(:, 2, 1, 4) = (/ &
+        & 0.35304e-05_rb,0.14025e-02_rb,0.21716e-02_rb,0.27078e-02_rb,0.30551e-02_rb, &
+        & 0.31948e-02_rb,0.31649e-02_rb,0.27258e-02_rb,0.97983e-03_rb /)
+      kao(:, 3, 1, 4) = (/ &
+        & 0.34059e-05_rb,0.14340e-02_rb,0.22214e-02_rb,0.27773e-02_rb,0.31348e-02_rb, &
+        & 0.33049e-02_rb,0.32835e-02_rb,0.28461e-02_rb,0.10251e-02_rb /)
+      kao(:, 4, 1, 4) = (/ &
+        & 0.32895e-05_rb,0.14610e-02_rb,0.22596e-02_rb,0.28314e-02_rb,0.32113e-02_rb, &
+        & 0.34131e-02_rb,0.33921e-02_rb,0.29508e-02_rb,0.10730e-02_rb /)
+      kao(:, 5, 1, 4) = (/ &
+        & 0.31814e-05_rb,0.14814e-02_rb,0.22905e-02_rb,0.28789e-02_rb,0.32785e-02_rb, &
+        & 0.34996e-02_rb,0.34952e-02_rb,0.30528e-02_rb,0.11205e-02_rb /)
+      kao(:, 1, 2, 4) = (/ &
+        & 0.30293e-05_rb,0.11600e-02_rb,0.17946e-02_rb,0.22370e-02_rb,0.25205e-02_rb, &
+        & 0.26432e-02_rb,0.26172e-02_rb,0.22691e-02_rb,0.78466e-03_rb /)
+      kao(:, 2, 2, 4) = (/ &
+        & 0.29173e-05_rb,0.11916e-02_rb,0.18468e-02_rb,0.23072e-02_rb,0.26094e-02_rb, &
+        & 0.27477e-02_rb,0.27388e-02_rb,0.23809e-02_rb,0.82356e-03_rb /)
+      kao(:, 3, 2, 4) = (/ &
+        & 0.28152e-05_rb,0.12203e-02_rb,0.18939e-02_rb,0.23691e-02_rb,0.26814e-02_rb, &
+        & 0.28506e-02_rb,0.28414e-02_rb,0.24825e-02_rb,0.86161e-03_rb /)
+      kao(:, 4, 2, 4) = (/ &
+        & 0.27207e-05_rb,0.12454e-02_rb,0.19291e-02_rb,0.24180e-02_rb,0.27489e-02_rb, &
+        & 0.29380e-02_rb,0.29345e-02_rb,0.25808e-02_rb,0.90328e-03_rb /)
+      kao(:, 5, 2, 4) = (/ &
+        & 0.26316e-05_rb,0.12644e-02_rb,0.19586e-02_rb,0.24624e-02_rb,0.28146e-02_rb, &
+        & 0.30125e-02_rb,0.30237e-02_rb,0.26695e-02_rb,0.94678e-03_rb /)
+      kao(:, 1, 3, 4) = (/ &
+        & 0.25288e-05_rb,0.97348e-03_rb,0.15070e-02_rb,0.18795e-02_rb,0.21206e-02_rb, &
+        & 0.22362e-02_rb,0.22210e-02_rb,0.19369e-02_rb,0.64308e-03_rb /)
+      kao(:, 2, 3, 4) = (/ &
+        & 0.24353e-05_rb,0.10031e-02_rb,0.15552e-02_rb,0.19441e-02_rb,0.22013e-02_rb, &
+        & 0.23257e-02_rb,0.23286e-02_rb,0.20362e-02_rb,0.67529e-03_rb /)
+      kao(:, 3, 3, 4) = (/ &
+        & 0.23495e-05_rb,0.10295e-02_rb,0.15986e-02_rb,0.20019e-02_rb,0.22663e-02_rb, &
+        & 0.24160e-02_rb,0.24204e-02_rb,0.21276e-02_rb,0.70991e-03_rb /)
+      kao(:, 4, 3, 4) = (/ &
+        & 0.22699e-05_rb,0.10533e-02_rb,0.16337e-02_rb,0.20489e-02_rb,0.23288e-02_rb, &
+        & 0.24911e-02_rb,0.25016e-02_rb,0.22148e-02_rb,0.74635e-03_rb /)
+      kao(:, 5, 3, 4) = (/ &
+        & 0.21951e-05_rb,0.10724e-02_rb,0.16625e-02_rb,0.20891e-02_rb,0.23896e-02_rb, &
+        & 0.25582e-02_rb,0.25812e-02_rb,0.22925e-02_rb,0.78432e-03_rb /)
+      kao(:, 1, 4, 4) = (/ &
+        & 0.21169e-05_rb,0.81053e-03_rb,0.12568e-02_rb,0.15647e-02_rb,0.17654e-02_rb, &
+        & 0.18662e-02_rb,0.18568e-02_rb,0.16269e-02_rb,0.52608e-03_rb /)
+      kao(:, 2, 4, 4) = (/ &
+        & 0.20407e-05_rb,0.83875e-03_rb,0.13019e-02_rb,0.16252e-02_rb,0.18383e-02_rb, &
+        & 0.19441e-02_rb,0.19538e-02_rb,0.17139e-02_rb,0.55325e-03_rb /)
+      kao(:, 3, 4, 4) = (/ &
+        & 0.19674e-05_rb,0.86329e-03_rb,0.13417e-02_rb,0.16788e-02_rb,0.18985e-02_rb, &
+        & 0.20246e-02_rb,0.20315e-02_rb,0.17978e-02_rb,0.58253e-03_rb /)
+      kao(:, 4, 4, 4) = (/ &
+        & 0.18994e-05_rb,0.88551e-03_rb,0.13753e-02_rb,0.17238e-02_rb,0.19566e-02_rb, &
+        & 0.20923e-02_rb,0.21035e-02_rb,0.18724e-02_rb,0.61438e-03_rb /)
+      kao(:, 5, 4, 4) = (/ &
+        & 0.18358e-05_rb,0.90442e-03_rb,0.14042e-02_rb,0.17619e-02_rb,0.20119e-02_rb, &
+        & 0.21542e-02_rb,0.21749e-02_rb,0.19425e-02_rb,0.64762e-03_rb /)
+      kao(:, 1, 5, 4) = (/ &
+        & 0.17725e-05_rb,0.67146e-03_rb,0.10396e-02_rb,0.12935e-02_rb,0.14576e-02_rb, &
+        & 0.15437e-02_rb,0.15341e-02_rb,0.13532e-02_rb,0.42981e-03_rb /)
+      kao(:, 2, 5, 4) = (/ &
+        & 0.17095e-05_rb,0.69774e-03_rb,0.10823e-02_rb,0.13477e-02_rb,0.15227e-02_rb, &
+        & 0.16117e-02_rb,0.16222e-02_rb,0.14302e-02_rb,0.45286e-03_rb /)
+      kao(:, 3, 5, 4) = (/ &
+        & 0.16478e-05_rb,0.72044e-03_rb,0.11190e-02_rb,0.13967e-02_rb,0.15783e-02_rb, &
+        & 0.16817e-02_rb,0.16897e-02_rb,0.15040e-02_rb,0.47782e-03_rb /)
+      kao(:, 4, 5, 4) = (/ &
+        & 0.15896e-05_rb,0.74136e-03_rb,0.11512e-02_rb,0.14394e-02_rb,0.16307e-02_rb, &
+        & 0.17435e-02_rb,0.17536e-02_rb,0.15687e-02_rb,0.50468e-03_rb /)
+      kao(:, 5, 5, 4) = (/ &
+        & 0.15353e-05_rb,0.75977e-03_rb,0.11790e-02_rb,0.14755e-02_rb,0.16811e-02_rb, &
+        & 0.17990e-02_rb,0.18175e-02_rb,0.16279e-02_rb,0.53353e-03_rb /)
+      kao(:, 1, 6, 4) = (/ &
+        & 0.14856e-05_rb,0.55163e-03_rb,0.85182e-03_rb,0.10583e-02_rb,0.11933e-02_rb, &
+        & 0.12633e-02_rb,0.12519e-02_rb,0.11126e-02_rb,0.34969e-03_rb /)
+      kao(:, 2, 6, 4) = (/ &
+        & 0.14323e-05_rb,0.57534e-03_rb,0.89211e-03_rb,0.11084e-02_rb,0.12510e-02_rb, &
+        & 0.13248e-02_rb,0.13302e-02_rb,0.11815e-02_rb,0.36893e-03_rb /)
+      kao(:, 3, 6, 4) = (/ &
+        & 0.13818e-05_rb,0.59705e-03_rb,0.92552e-03_rb,0.11530e-02_rb,0.13018e-02_rb, &
+        & 0.13860e-02_rb,0.13942e-02_rb,0.12437e-02_rb,0.38991e-03_rb /)
+      kao(:, 4, 6, 4) = (/ &
+        & 0.13317e-05_rb,0.61671e-03_rb,0.95568e-03_rb,0.11922e-02_rb,0.13481e-02_rb, &
+        & 0.14426e-02_rb,0.14508e-02_rb,0.13001e-02_rb,0.41248e-03_rb /)
+      kao(:, 5, 6, 4) = (/ &
+        & 0.12851e-05_rb,0.63414e-03_rb,0.98227e-03_rb,0.12265e-02_rb,0.13936e-02_rb, &
+        & 0.14913e-02_rb,0.15064e-02_rb,0.13512e-02_rb,0.43696e-03_rb /)
+      kao(:, 1, 7, 4) = (/ &
+        & 0.12453e-05_rb,0.44982e-03_rb,0.69286e-03_rb,0.85857e-03_rb,0.97115e-03_rb, &
+        & 0.10268e-02_rb,0.10132e-02_rb,0.90661e-03_rb,0.28333e-03_rb /)
+      kao(:, 2, 7, 4) = (/ &
+        & 0.11997e-05_rb,0.47163e-03_rb,0.72984e-03_rb,0.90525e-03_rb,0.10209e-02_rb, &
+        & 0.10830e-02_rb,0.10815e-02_rb,0.96820e-03_rb,0.29991e-03_rb /)
+      kao(:, 3, 7, 4) = (/ &
+        & 0.11571e-05_rb,0.49170e-03_rb,0.76064e-03_rb,0.94597e-03_rb,0.10683e-02_rb, &
+        & 0.11337e-02_rb,0.11418e-02_rb,0.10210e-02_rb,0.31738e-03_rb /)
+      kao(:, 4, 7, 4) = (/ &
+        & 0.11157e-05_rb,0.50964e-03_rb,0.78859e-03_rb,0.98236e-03_rb,0.11088e-02_rb, &
+        & 0.11859e-02_rb,0.11920e-02_rb,0.10690e-02_rb,0.33600e-03_rb /)
+      kao(:, 5, 7, 4) = (/ &
+        & 0.10757e-05_rb,0.52578e-03_rb,0.81330e-03_rb,0.10141e-02_rb,0.11493e-02_rb, &
+        & 0.12285e-02_rb,0.12399e-02_rb,0.11151e-02_rb,0.35631e-03_rb /)
+      kao(:, 1, 8, 4) = (/ &
+        & 0.10436e-05_rb,0.36475e-03_rb,0.55948e-03_rb,0.69399e-03_rb,0.78699e-03_rb, &
+        & 0.82733e-03_rb,0.81546e-03_rb,0.73443e-03_rb,0.22874e-03_rb /)
+      kao(:, 2, 8, 4) = (/ &
+        & 0.10043e-05_rb,0.38461e-03_rb,0.59365e-03_rb,0.73631e-03_rb,0.82902e-03_rb, &
+        & 0.87996e-03_rb,0.87589e-03_rb,0.78745e-03_rb,0.24281e-03_rb /)
+      kao(:, 3, 8, 4) = (/ &
+        & 0.96785e-06_rb,0.40227e-03_rb,0.62191e-03_rb,0.77183e-03_rb,0.87067e-03_rb, &
+        & 0.92338e-03_rb,0.93116e-03_rb,0.83334e-03_rb,0.25735e-03_rb /)
+      kao(:, 4, 8, 4) = (/ &
+        & 0.93367e-06_rb,0.41881e-03_rb,0.64697e-03_rb,0.80474e-03_rb,0.90754e-03_rb, &
+        & 0.96806e-03_rb,0.97434e-03_rb,0.87439e-03_rb,0.27286e-03_rb /)
+      kao(:, 5, 8, 4) = (/ &
+        & 0.90017e-06_rb,0.43377e-03_rb,0.67026e-03_rb,0.83398e-03_rb,0.94269e-03_rb, &
+        & 0.10080e-02_rb,0.10154e-02_rb,0.91479e-03_rb,0.28948e-03_rb /)
+      kao(:, 1, 9, 4) = (/ &
+        & 0.87469e-06_rb,0.29345e-03_rb,0.44857e-03_rb,0.55653e-03_rb,0.63371e-03_rb, &
+        & 0.66253e-03_rb,0.65229e-03_rb,0.59009e-03_rb,0.18475e-03_rb /)
+      kao(:, 2, 9, 4) = (/ &
+        & 0.84062e-06_rb,0.31152e-03_rb,0.47975e-03_rb,0.59422e-03_rb,0.67077e-03_rb, &
+        & 0.71168e-03_rb,0.70550e-03_rb,0.63674e-03_rb,0.19669e-03_rb /)
+      kao(:, 3, 9, 4) = (/ &
+        & 0.80947e-06_rb,0.32779e-03_rb,0.50582e-03_rb,0.62707e-03_rb,0.70705e-03_rb, &
+        & 0.74936e-03_rb,0.75252e-03_rb,0.67682e-03_rb,0.20896e-03_rb /)
+      kao(:, 4, 9, 4) = (/ &
+        & 0.78052e-06_rb,0.34262e-03_rb,0.52820e-03_rb,0.65631e-03_rb,0.74002e-03_rb, &
+        & 0.78731e-03_rb,0.79257e-03_rb,0.71155e-03_rb,0.22197e-03_rb /)
+      kao(:, 5, 9, 4) = (/ &
+        & 0.75300e-06_rb,0.35618e-03_rb,0.54940e-03_rb,0.68236e-03_rb,0.76978e-03_rb, &
+        & 0.82271e-03_rb,0.82806e-03_rb,0.74658e-03_rb,0.23588e-03_rb /)
+      kao(:, 1,10, 4) = (/ &
+        & 0.73080e-06_rb,0.23619e-03_rb,0.36002e-03_rb,0.44769e-03_rb,0.51001e-03_rb, &
+        & 0.53294e-03_rb,0.52319e-03_rb,0.47492e-03_rb,0.15005e-03_rb /)
+      kao(:, 2,10, 4) = (/ &
+        & 0.70142e-06_rb,0.25225e-03_rb,0.38742e-03_rb,0.48039e-03_rb,0.54285e-03_rb, &
+        & 0.57407e-03_rb,0.56765e-03_rb,0.51444e-03_rb,0.16000e-03_rb /)
+      kao(:, 3,10, 4) = (/ &
+        & 0.67484e-06_rb,0.26687e-03_rb,0.41119e-03_rb,0.50924e-03_rb,0.57372e-03_rb, &
+        & 0.60912e-03_rb,0.60813e-03_rb,0.54945e-03_rb,0.17036e-03_rb /)
+      kao(:, 4,10, 4) = (/ &
+        & 0.65032e-06_rb,0.28002e-03_rb,0.43104e-03_rb,0.53513e-03_rb,0.60294e-03_rb, &
+        & 0.63998e-03_rb,0.64485e-03_rb,0.57888e-03_rb,0.18120e-03_rb /)
+      kao(:, 5,10, 4) = (/ &
+        & 0.62752e-06_rb,0.29182e-03_rb,0.44950e-03_rb,0.55836e-03_rb,0.62849e-03_rb, &
+        & 0.67148e-03_rb,0.67570e-03_rb,0.60918e-03_rb,0.19271e-03_rb /)
+      kao(:, 1,11, 4) = (/ &
+        & 0.59846e-06_rb,0.19603e-03_rb,0.29902e-03_rb,0.37159e-03_rb,0.42367e-03_rb, &
+        & 0.44241e-03_rb,0.43550e-03_rb,0.39618e-03_rb,0.12498e-03_rb /)
+      kao(:, 2,11, 4) = (/ &
+        & 0.57447e-06_rb,0.20953e-03_rb,0.32187e-03_rb,0.39882e-03_rb,0.45021e-03_rb, &
+        & 0.47717e-03_rb,0.47240e-03_rb,0.42894e-03_rb,0.13362e-03_rb /)
+      kao(:, 3,11, 4) = (/ &
+        & 0.55265e-06_rb,0.22185e-03_rb,0.34133e-03_rb,0.42283e-03_rb,0.47616e-03_rb, &
+        & 0.50481e-03_rb,0.50553e-03_rb,0.45654e-03_rb,0.14246e-03_rb /)
+      kao(:, 4,11, 4) = (/ &
+        & 0.53259e-06_rb,0.23301e-03_rb,0.35816e-03_rb,0.44448e-03_rb,0.50048e-03_rb, &
+        & 0.53147e-03_rb,0.53574e-03_rb,0.48169e-03_rb,0.15168e-03_rb /)
+      kao(:, 5,11, 4) = (/ &
+        & 0.51379e-06_rb,0.24302e-03_rb,0.37383e-03_rb,0.46352e-03_rb,0.52203e-03_rb, &
+        & 0.55783e-03_rb,0.56175e-03_rb,0.50737e-03_rb,0.16153e-03_rb /)
+      kao(:, 1,12, 4) = (/ &
+        & 0.49006e-06_rb,0.16259e-03_rb,0.24802e-03_rb,0.30804e-03_rb,0.35111e-03_rb, &
+        & 0.36672e-03_rb,0.36166e-03_rb,0.32968e-03_rb,0.10401e-03_rb /)
+      kao(:, 2,12, 4) = (/ &
+        & 0.47033e-06_rb,0.17379e-03_rb,0.26697e-03_rb,0.33069e-03_rb,0.37292e-03_rb, &
+        & 0.39587e-03_rb,0.39239e-03_rb,0.35672e-03_rb,0.11138e-03_rb /)
+      kao(:, 3,12, 4) = (/ &
+        & 0.45247e-06_rb,0.18417e-03_rb,0.28295e-03_rb,0.35045e-03_rb,0.39465e-03_rb, &
+        & 0.41825e-03_rb,0.41984e-03_rb,0.37867e-03_rb,0.11882e-03_rb /)
+      kao(:, 4,12, 4) = (/ &
+        & 0.43605e-06_rb,0.19351e-03_rb,0.29716e-03_rb,0.36850e-03_rb,0.41489e-03_rb, &
+        & 0.44074e-03_rb,0.44460e-03_rb,0.40031e-03_rb,0.12667e-03_rb /)
+      kao(:, 5,12, 4) = (/ &
+        & 0.42066e-06_rb,0.20206e-03_rb,0.31038e-03_rb,0.38464e-03_rb,0.43337e-03_rb, &
+        & 0.46297e-03_rb,0.46667e-03_rb,0.42202e-03_rb,0.13498e-03_rb /)
+      kao(:, 1,13, 4) = (/ &
+        & 0.40122e-06_rb,0.13465e-03_rb,0.20541e-03_rb,0.25488e-03_rb,0.29006e-03_rb, &
+        & 0.30358e-03_rb,0.29984e-03_rb,0.27375e-03_rb,0.86406e-04_rb /)
+      kao(:, 2,13, 4) = (/ &
+        & 0.38502e-06_rb,0.14398e-03_rb,0.22086e-03_rb,0.27376e-03_rb,0.30832e-03_rb, &
+        & 0.32794e-03_rb,0.32517e-03_rb,0.29562e-03_rb,0.92614e-04_rb /)
+      kao(:, 3,13, 4) = (/ &
+        & 0.37045e-06_rb,0.15266e-03_rb,0.23416e-03_rb,0.29013e-03_rb,0.32675e-03_rb, &
+        & 0.34622e-03_rb,0.34816e-03_rb,0.31401e-03_rb,0.98880e-04_rb /)
+      kao(:, 4,13, 4) = (/ &
+        & 0.35702e-06_rb,0.16050e-03_rb,0.24608e-03_rb,0.30521e-03_rb,0.34336e-03_rb, &
+        & 0.36522e-03_rb,0.36857e-03_rb,0.33246e-03_rb,0.10559e-03_rb /)
+      kao(:, 5,13, 4) = (/ &
+        & 0.34440e-06_rb,0.16771e-03_rb,0.25742e-03_rb,0.31904e-03_rb,0.35943e-03_rb, &
+        & 0.38405e-03_rb,0.38715e-03_rb,0.35087e-03_rb,0.11262e-03_rb /)
+      kao(:, 1, 1, 5) = (/ &
+        & 0.15583e-03_rb,0.37546e-02_rb,0.53536e-02_rb,0.64161e-02_rb,0.71223e-02_rb, &
+        & 0.74982e-02_rb,0.73596e-02_rb,0.65135e-02_rb,0.35175e-02_rb /)
+      kao(:, 2, 1, 5) = (/ &
+        & 0.16148e-03_rb,0.38569e-02_rb,0.55256e-02_rb,0.66461e-02_rb,0.73757e-02_rb, &
+        & 0.77530e-02_rb,0.75665e-02_rb,0.66496e-02_rb,0.36840e-02_rb /)
+      kao(:, 3, 1, 5) = (/ &
+        & 0.16484e-03_rb,0.39353e-02_rb,0.56745e-02_rb,0.68364e-02_rb,0.76166e-02_rb, &
+        & 0.79711e-02_rb,0.77717e-02_rb,0.67846e-02_rb,0.38485e-02_rb /)
+      kao(:, 4, 1, 5) = (/ &
+        & 0.16621e-03_rb,0.39946e-02_rb,0.57947e-02_rb,0.70071e-02_rb,0.78193e-02_rb, &
+        & 0.81581e-02_rb,0.79592e-02_rb,0.69132e-02_rb,0.39769e-02_rb /)
+      kao(:, 5, 1, 5) = (/ &
+        & 0.16518e-03_rb,0.40386e-02_rb,0.58925e-02_rb,0.71530e-02_rb,0.79946e-02_rb, &
+        & 0.83258e-02_rb,0.81107e-02_rb,0.70226e-02_rb,0.41134e-02_rb /)
+      kao(:, 1, 2, 5) = (/ &
+        & 0.12482e-03_rb,0.32204e-02_rb,0.46102e-02_rb,0.55475e-02_rb,0.61730e-02_rb, &
+        & 0.65000e-02_rb,0.63942e-02_rb,0.56394e-02_rb,0.30002e-02_rb /)
+      kao(:, 2, 2, 5) = (/ &
+        & 0.13027e-03_rb,0.33099e-02_rb,0.47617e-02_rb,0.57497e-02_rb,0.64031e-02_rb, &
+        & 0.67184e-02_rb,0.65829e-02_rb,0.57721e-02_rb,0.31442e-02_rb /)
+      kao(:, 3, 2, 5) = (/ &
+        & 0.13370e-03_rb,0.33808e-02_rb,0.48845e-02_rb,0.59235e-02_rb,0.66074e-02_rb, &
+        & 0.69048e-02_rb,0.67660e-02_rb,0.59018e-02_rb,0.32788e-02_rb /)
+      kao(:, 4, 2, 5) = (/ &
+        & 0.13549e-03_rb,0.34340e-02_rb,0.49885e-02_rb,0.60745e-02_rb,0.67877e-02_rb, &
+        & 0.70780e-02_rb,0.69202e-02_rb,0.60131e-02_rb,0.33946e-02_rb /)
+      kao(:, 5, 2, 5) = (/ &
+        & 0.13543e-03_rb,0.34778e-02_rb,0.50745e-02_rb,0.61981e-02_rb,0.69282e-02_rb, &
+        & 0.72229e-02_rb,0.70521e-02_rb,0.61218e-02_rb,0.35097e-02_rb /)
+      kao(:, 1, 3, 5) = (/ &
+        & 0.98437e-04_rb,0.27209e-02_rb,0.39035e-02_rb,0.47185e-02_rb,0.52706e-02_rb, &
+        & 0.55579e-02_rb,0.54846e-02_rb,0.48469e-02_rb,0.25077e-02_rb /)
+      kao(:, 2, 3, 5) = (/ &
+        & 0.10396e-03_rb,0.28031e-02_rb,0.40384e-02_rb,0.48993e-02_rb,0.54753e-02_rb, &
+        & 0.57575e-02_rb,0.56525e-02_rb,0.49684e-02_rb,0.26366e-02_rb /)
+      kao(:, 3, 3, 5) = (/ &
+        & 0.10770e-03_rb,0.28702e-02_rb,0.41513e-02_rb,0.50504e-02_rb,0.56640e-02_rb, &
+        & 0.59245e-02_rb,0.58125e-02_rb,0.50922e-02_rb,0.27478e-02_rb /)
+      kao(:, 4, 3, 5) = (/ &
+        & 0.10996e-03_rb,0.29232e-02_rb,0.42451e-02_rb,0.51838e-02_rb,0.58257e-02_rb, &
+        & 0.60793e-02_rb,0.59498e-02_rb,0.51949e-02_rb,0.28490e-02_rb /)
+      kao(:, 5, 3, 5) = (/ &
+        & 0.11088e-03_rb,0.29645e-02_rb,0.43251e-02_rb,0.52992e-02_rb,0.59468e-02_rb, &
+        & 0.62096e-02_rb,0.60648e-02_rb,0.52904e-02_rb,0.29495e-02_rb /)
+      kao(:, 1, 4, 5) = (/ &
+        & 0.76587e-04_rb,0.22792e-02_rb,0.32731e-02_rb,0.39724e-02_rb,0.44561e-02_rb, &
+        & 0.47109e-02_rb,0.46706e-02_rb,0.41444e-02_rb,0.20810e-02_rb /)
+      kao(:, 2, 4, 5) = (/ &
+        & 0.82225e-04_rb,0.23548e-02_rb,0.33943e-02_rb,0.41325e-02_rb,0.46415e-02_rb, &
+        & 0.48939e-02_rb,0.48200e-02_rb,0.42591e-02_rb,0.21925e-02_rb /)
+      kao(:, 3, 4, 5) = (/ &
+        & 0.86203e-04_rb,0.24180e-02_rb,0.34991e-02_rb,0.42684e-02_rb,0.48074e-02_rb, &
+        & 0.50416e-02_rb,0.49651e-02_rb,0.43643e-02_rb,0.22938e-02_rb /)
+      kao(:, 4, 4, 5) = (/ &
+        & 0.88766e-04_rb,0.24694e-02_rb,0.35874e-02_rb,0.43875e-02_rb,0.49469e-02_rb, &
+        & 0.51810e-02_rb,0.50850e-02_rb,0.44606e-02_rb,0.23791e-02_rb /)
+      kao(:, 5, 4, 5) = (/ &
+        & 0.90218e-04_rb,0.25110e-02_rb,0.36613e-02_rb,0.44937e-02_rb,0.50548e-02_rb, &
+        & 0.52982e-02_rb,0.51883e-02_rb,0.45498e-02_rb,0.24658e-02_rb /)
+      kao(:, 1, 5, 5) = (/ &
+        & 0.59080e-04_rb,0.18972e-02_rb,0.27294e-02_rb,0.33195e-02_rb,0.37395e-02_rb, &
+        & 0.39683e-02_rb,0.39523e-02_rb,0.35161e-02_rb,0.17195e-02_rb /)
+      kao(:, 2, 5, 5) = (/ &
+        & 0.64508e-04_rb,0.19673e-02_rb,0.28376e-02_rb,0.34632e-02_rb,0.39033e-02_rb, &
+        & 0.41343e-02_rb,0.40826e-02_rb,0.36195e-02_rb,0.18173e-02_rb /)
+      kao(:, 3, 5, 5) = (/ &
+        & 0.68538e-04_rb,0.20264e-02_rb,0.29342e-02_rb,0.35856e-02_rb,0.40488e-02_rb, &
+        & 0.42664e-02_rb,0.42141e-02_rb,0.37144e-02_rb,0.19081e-02_rb /)
+      kao(:, 4, 5, 5) = (/ &
+        & 0.71328e-04_rb,0.20750e-02_rb,0.30165e-02_rb,0.36933e-02_rb,0.41719e-02_rb, &
+        & 0.43880e-02_rb,0.43221e-02_rb,0.38006e-02_rb,0.19818e-02_rb /)
+      kao(:, 5, 5, 5) = (/ &
+        & 0.73073e-04_rb,0.21155e-02_rb,0.30861e-02_rb,0.37892e-02_rb,0.42690e-02_rb, &
+        & 0.44901e-02_rb,0.44161e-02_rb,0.38864e-02_rb,0.20583e-02_rb /)
+      kao(:, 1, 6, 5) = (/ &
+        & 0.45069e-04_rb,0.15673e-02_rb,0.22596e-02_rb,0.27566e-02_rb,0.31117e-02_rb, &
+        & 0.33162e-02_rb,0.33135e-02_rb,0.29574e-02_rb,0.14089e-02_rb /)
+      kao(:, 2, 6, 5) = (/ &
+        & 0.49959e-04_rb,0.16342e-02_rb,0.23577e-02_rb,0.28828e-02_rb,0.32572e-02_rb, &
+        & 0.34626e-02_rb,0.34302e-02_rb,0.30476e-02_rb,0.14955e-02_rb /)
+      kao(:, 3, 6, 5) = (/ &
+        & 0.54013e-04_rb,0.16891e-02_rb,0.24457e-02_rb,0.29926e-02_rb,0.33865e-02_rb, &
+        & 0.35809e-02_rb,0.35427e-02_rb,0.31358e-02_rb,0.15763e-02_rb /)
+      kao(:, 4, 6, 5) = (/ &
+        & 0.56910e-04_rb,0.17356e-02_rb,0.25220e-02_rb,0.30903e-02_rb,0.34968e-02_rb, &
+        & 0.36853e-02_rb,0.36443e-02_rb,0.32140e-02_rb,0.16428e-02_rb /)
+      kao(:, 5, 6, 5) = (/ &
+        & 0.58852e-04_rb,0.17743e-02_rb,0.25868e-02_rb,0.31771e-02_rb,0.35857e-02_rb, &
+        & 0.37782e-02_rb,0.37284e-02_rb,0.32905e-02_rb,0.17079e-02_rb /)
+      kao(:, 1, 7, 5) = (/ &
+        & 0.34131e-04_rb,0.12873e-02_rb,0.18619e-02_rb,0.22745e-02_rb,0.25688e-02_rb, &
+        & 0.27494e-02_rb,0.27574e-02_rb,0.24658e-02_rb,0.11444e-02_rb /)
+      kao(:, 2, 7, 5) = (/ &
+        & 0.38379e-04_rb,0.13503e-02_rb,0.19490e-02_rb,0.23869e-02_rb,0.26985e-02_rb, &
+        & 0.28761e-02_rb,0.28607e-02_rb,0.25443e-02_rb,0.12242e-02_rb /)
+      kao(:, 3, 7, 5) = (/ &
+        & 0.42146e-04_rb,0.14018e-02_rb,0.20287e-02_rb,0.24843e-02_rb,0.28119e-02_rb, &
+        & 0.29848e-02_rb,0.29569e-02_rb,0.26258e-02_rb,0.12956e-02_rb /)
+      kao(:, 4, 7, 5) = (/ &
+        & 0.45116e-04_rb,0.14454e-02_rb,0.20989e-02_rb,0.25718e-02_rb,0.29115e-02_rb, &
+        & 0.30740e-02_rb,0.30482e-02_rb,0.26967e-02_rb,0.13537e-02_rb /)
+      kao(:, 5, 7, 5) = (/ &
+        & 0.47178e-04_rb,0.14818e-02_rb,0.21591e-02_rb,0.26509e-02_rb,0.29945e-02_rb, &
+        & 0.31590e-02_rb,0.31235e-02_rb,0.27641e-02_rb,0.14100e-02_rb /)
+      kao(:, 1, 8, 5) = (/ &
+        & 0.25656e-04_rb,0.10525e-02_rb,0.15266e-02_rb,0.18648e-02_rb,0.21060e-02_rb, &
+        & 0.22660e-02_rb,0.22807e-02_rb,0.20415e-02_rb,0.92482e-03_rb /)
+      kao(:, 2, 8, 5) = (/ &
+        & 0.29313e-04_rb,0.11096e-02_rb,0.16027e-02_rb,0.19628e-02_rb,0.22224e-02_rb, &
+        & 0.23730e-02_rb,0.23683e-02_rb,0.21111e-02_rb,0.99366e-03_rb /)
+      kao(:, 3, 8, 5) = (/ &
+        & 0.32643e-04_rb,0.11579e-02_rb,0.16732e-02_rb,0.20503e-02_rb,0.23231e-02_rb, &
+        & 0.24721e-02_rb,0.24512e-02_rb,0.21842e-02_rb,0.10570e-02_rb /)
+      kao(:, 4, 8, 5) = (/ &
+        & 0.35509e-04_rb,0.11985e-02_rb,0.17379e-02_rb,0.21284e-02_rb,0.24110e-02_rb, &
+        & 0.25519e-02_rb,0.25339e-02_rb,0.22496e-02_rb,0.11116e-02_rb /)
+      kao(:, 5, 8, 5) = (/ &
+        & 0.37616e-04_rb,0.12327e-02_rb,0.17933e-02_rb,0.21996e-02_rb,0.24880e-02_rb, &
+        & 0.26258e-02_rb,0.26029e-02_rb,0.23088e-02_rb,0.11595e-02_rb /)
+      kao(:, 1, 9, 5) = (/ &
+        & 0.19166e-04_rb,0.85559e-03_rb,0.12446e-02_rb,0.15213e-02_rb,0.17160e-02_rb, &
+        & 0.18527e-02_rb,0.18723e-02_rb,0.16794e-02_rb,0.74316e-03_rb /)
+      kao(:, 2, 9, 5) = (/ &
+        & 0.22251e-04_rb,0.90701e-03_rb,0.13107e-02_rb,0.16061e-02_rb,0.18177e-02_rb, &
+        & 0.19452e-02_rb,0.19496e-02_rb,0.17420e-02_rb,0.80168e-03_rb /)
+      kao(:, 3, 9, 5) = (/ &
+        & 0.25123e-04_rb,0.95106e-03_rb,0.13724e-02_rb,0.16826e-02_rb,0.19064e-02_rb, &
+        & 0.20352e-02_rb,0.20241e-02_rb,0.18064e-02_rb,0.85659e-03_rb /)
+      kao(:, 4, 9, 5) = (/ &
+        & 0.27713e-04_rb,0.98903e-03_rb,0.14301e-02_rb,0.17523e-02_rb,0.19862e-02_rb, &
+        & 0.21079e-02_rb,0.20944e-02_rb,0.18656e-02_rb,0.90655e-03_rb /)
+      kao(:, 5, 9, 5) = (/ &
+        & 0.29821e-04_rb,0.10207e-02_rb,0.14813e-02_rb,0.18163e-02_rb,0.20570e-02_rb, &
+        & 0.21737e-02_rb,0.21574e-02_rb,0.19153e-02_rb,0.94882e-03_rb /)
+      kao(:, 1,10, 5) = (/ &
+        & 0.14455e-04_rb,0.69508e-03_rb,0.10143e-02_rb,0.12382e-02_rb,0.13977e-02_rb, &
+        & 0.15101e-02_rb,0.15339e-02_rb,0.13794e-02_rb,0.60064e-03_rb /)
+      kao(:, 2,10, 5) = (/ &
+        & 0.16975e-04_rb,0.74055e-03_rb,0.10715e-02_rb,0.13117e-02_rb,0.14851e-02_rb, &
+        & 0.15938e-02_rb,0.16026e-02_rb,0.14354e-02_rb,0.65034e-03_rb /)
+      kao(:, 3,10, 5) = (/ &
+        & 0.19421e-04_rb,0.77996e-03_rb,0.11243e-02_rb,0.13791e-02_rb,0.15636e-02_rb, &
+        & 0.16707e-02_rb,0.16678e-02_rb,0.14908e-02_rb,0.69875e-03_rb /)
+      kao(:, 4,10, 5) = (/ &
+        & 0.21659e-04_rb,0.81369e-03_rb,0.11746e-02_rb,0.14408e-02_rb,0.16340e-02_rb, &
+        & 0.17376e-02_rb,0.17267e-02_rb,0.15418e-02_rb,0.74336e-03_rb /)
+      kao(:, 5,10, 5) = (/ &
+        & 0.23616e-04_rb,0.84316e-03_rb,0.12215e-02_rb,0.14972e-02_rb,0.16971e-02_rb, &
+        & 0.17945e-02_rb,0.17834e-02_rb,0.15844e-02_rb,0.78045e-03_rb /)
+      kao(:, 1,11, 5) = (/ &
+        & 0.11812e-04_rb,0.58067e-03_rb,0.84658e-03_rb,0.10349e-02_rb,0.11681e-02_rb, &
+        & 0.12622e-02_rb,0.12806e-02_rb,0.11518e-02_rb,0.50197e-03_rb /)
+      kao(:, 2,11, 5) = (/ &
+        & 0.13870e-04_rb,0.61870e-03_rb,0.89364e-03_rb,0.10957e-02_rb,0.12411e-02_rb, &
+        & 0.13307e-02_rb,0.13366e-02_rb,0.11990e-02_rb,0.54419e-03_rb /)
+      kao(:, 3,11, 5) = (/ &
+        & 0.15872e-04_rb,0.65131e-03_rb,0.93843e-03_rb,0.11520e-02_rb,0.13068e-02_rb, &
+        & 0.13966e-02_rb,0.13927e-02_rb,0.12459e-02_rb,0.58412e-03_rb /)
+      kao(:, 4,11, 5) = (/ &
+        & 0.17706e-04_rb,0.67957e-03_rb,0.98128e-03_rb,0.12037e-02_rb,0.13653e-02_rb, &
+        & 0.14510e-02_rb,0.14423e-02_rb,0.12873e-02_rb,0.62086e-03_rb /)
+      kao(:, 5,11, 5) = (/ &
+        & 0.19307e-04_rb,0.70477e-03_rb,0.10208e-02_rb,0.12522e-02_rb,0.14187e-02_rb, &
+        & 0.15000e-02_rb,0.14882e-02_rb,0.13223e-02_rb,0.65273e-03_rb /)
+      kao(:, 1,12, 5) = (/ &
+        & 0.96633e-05_rb,0.48384e-03_rb,0.70464e-03_rb,0.86214e-03_rb,0.97325e-03_rb, &
+        & 0.10525e-02_rb,0.10661e-02_rb,0.95818e-03_rb,0.41838e-03_rb /)
+      kao(:, 2,12, 5) = (/ &
+        & 0.11346e-04_rb,0.51544e-03_rb,0.74375e-03_rb,0.91255e-03_rb,0.10346e-02_rb, &
+        & 0.11088e-02_rb,0.11124e-02_rb,0.99787e-03_rb,0.45436e-03_rb /)
+      kao(:, 3,12, 5) = (/ &
+        & 0.12983e-04_rb,0.54258e-03_rb,0.78191e-03_rb,0.95994e-03_rb,0.10893e-02_rb, &
+        & 0.11636e-02_rb,0.11595e-02_rb,0.10379e-02_rb,0.48767e-03_rb /)
+      kao(:, 4,12, 5) = (/ &
+        & 0.14483e-04_rb,0.56662e-03_rb,0.81795e-03_rb,0.10036e-02_rb,0.11385e-02_rb, &
+        & 0.12091e-02_rb,0.12012e-02_rb,0.10707e-02_rb,0.51810e-03_rb /)
+      kao(:, 5,12, 5) = (/ &
+        & 0.15790e-04_rb,0.58805e-03_rb,0.85165e-03_rb,0.10447e-02_rb,0.11830e-02_rb, &
+        & 0.12500e-02_rb,0.12389e-02_rb,0.11012e-02_rb,0.54508e-03_rb /)
+      kao(:, 1,13, 5) = (/ &
+        & 0.79057e-05_rb,0.40215e-03_rb,0.58516e-03_rb,0.71666e-03_rb,0.80969e-03_rb, &
+        & 0.87518e-03_rb,0.88581e-03_rb,0.79569e-03_rb,0.34825e-03_rb /)
+      kao(:, 2,13, 5) = (/ &
+        & 0.92808e-05_rb,0.42853e-03_rb,0.61818e-03_rb,0.75847e-03_rb,0.86082e-03_rb, &
+        & 0.92160e-03_rb,0.92436e-03_rb,0.82894e-03_rb,0.37871e-03_rb /)
+      kao(:, 3,13, 5) = (/ &
+        & 0.10621e-04_rb,0.45134e-03_rb,0.65028e-03_rb,0.79815e-03_rb,0.90622e-03_rb, &
+        & 0.96752e-03_rb,0.96291e-03_rb,0.86177e-03_rb,0.40642e-03_rb /)
+      kao(:, 4,13, 5) = (/ &
+        & 0.11849e-04_rb,0.47161e-03_rb,0.68090e-03_rb,0.83530e-03_rb,0.94770e-03_rb, &
+        & 0.10054e-02_rb,0.99815e-03_rb,0.88908e-03_rb,0.43149e-03_rb /)
+      kao(:, 5,13, 5) = (/ &
+        & 0.12897e-04_rb,0.49000e-03_rb,0.70944e-03_rb,0.86982e-03_rb,0.98430e-03_rb, &
+        & 0.10398e-02_rb,0.10297e-02_rb,0.91483e-03_rb,0.45459e-03_rb /)
+      kao(:, 1, 1, 6) = (/ &
+        & 0.23575e-02_rb,0.96457e-02_rb,0.13128e-01_rb,0.15361e-01_rb,0.16662e-01_rb, &
+        & 0.16999e-01_rb,0.16303e-01_rb,0.14368e-01_rb,0.10185e-01_rb /)
+      kao(:, 2, 1, 6) = (/ &
+        & 0.24508e-02_rb,0.99768e-02_rb,0.13562e-01_rb,0.15786e-01_rb,0.17046e-01_rb, &
+        & 0.17316e-01_rb,0.16539e-01_rb,0.14627e-01_rb,0.10447e-01_rb /)
+      kao(:, 3, 1, 6) = (/ &
+        & 0.25176e-02_rb,0.10262e-01_rb,0.13947e-01_rb,0.16182e-01_rb,0.17390e-01_rb, &
+        & 0.17588e-01_rb,0.16752e-01_rb,0.14857e-01_rb,0.10699e-01_rb /)
+      kao(:, 4, 1, 6) = (/ &
+        & 0.25627e-02_rb,0.10510e-01_rb,0.14271e-01_rb,0.16517e-01_rb,0.17678e-01_rb, &
+        & 0.17815e-01_rb,0.16941e-01_rb,0.15073e-01_rb,0.10970e-01_rb /)
+      kao(:, 5, 1, 6) = (/ &
+        & 0.25904e-02_rb,0.10712e-01_rb,0.14528e-01_rb,0.16788e-01_rb,0.17912e-01_rb, &
+        & 0.18013e-01_rb,0.17126e-01_rb,0.15282e-01_rb,0.11215e-01_rb /)
+      kao(:, 1, 2, 6) = (/ &
+        & 0.19422e-02_rb,0.85179e-02_rb,0.11603e-01_rb,0.13561e-01_rb,0.14694e-01_rb, &
+        & 0.14952e-01_rb,0.14274e-01_rb,0.12616e-01_rb,0.86910e-02_rb /)
+      kao(:, 2, 2, 6) = (/ &
+        & 0.20231e-02_rb,0.88208e-02_rb,0.11992e-01_rb,0.13942e-01_rb,0.15043e-01_rb, &
+        & 0.15241e-01_rb,0.14503e-01_rb,0.12849e-01_rb,0.89203e-02_rb /)
+      kao(:, 3, 2, 6) = (/ &
+        & 0.20824e-02_rb,0.90892e-02_rb,0.12333e-01_rb,0.14283e-01_rb,0.15343e-01_rb, &
+        & 0.15493e-01_rb,0.14704e-01_rb,0.13065e-01_rb,0.91412e-02_rb /)
+      kao(:, 4, 2, 6) = (/ &
+        & 0.21235e-02_rb,0.93193e-02_rb,0.12613e-01_rb,0.14573e-01_rb,0.15586e-01_rb, &
+        & 0.15696e-01_rb,0.14900e-01_rb,0.13269e-01_rb,0.93731e-02_rb /)
+      kao(:, 5, 2, 6) = (/ &
+        & 0.21501e-02_rb,0.95064e-02_rb,0.12844e-01_rb,0.14802e-01_rb,0.15789e-01_rb, &
+        & 0.15872e-01_rb,0.15079e-01_rb,0.13459e-01_rb,0.95922e-02_rb /)
+      kao(:, 1, 3, 6) = (/ &
+        & 0.15710e-02_rb,0.73739e-02_rb,0.10084e-01_rb,0.11795e-01_rb,0.12791e-01_rb, &
+        & 0.13002e-01_rb,0.12408e-01_rb,0.10948e-01_rb,0.73256e-02_rb /)
+      kao(:, 2, 3, 6) = (/ &
+        & 0.16445e-02_rb,0.76603e-02_rb,0.10441e-01_rb,0.12136e-01_rb,0.13098e-01_rb, &
+        & 0.13272e-01_rb,0.12629e-01_rb,0.11169e-01_rb,0.75277e-02_rb /)
+      kao(:, 3, 3, 6) = (/ &
+        & 0.17016e-02_rb,0.79120e-02_rb,0.10738e-01_rb,0.12444e-01_rb,0.13365e-01_rb, &
+        & 0.13502e-01_rb,0.12827e-01_rb,0.11365e-01_rb,0.77275e-02_rb /)
+      kao(:, 4, 3, 6) = (/ &
+        & 0.17419e-02_rb,0.81204e-02_rb,0.10992e-01_rb,0.12704e-01_rb,0.13579e-01_rb, &
+        & 0.13687e-01_rb,0.13022e-01_rb,0.11565e-01_rb,0.79327e-02_rb /)
+      kao(:, 5, 3, 6) = (/ &
+        & 0.17693e-02_rb,0.82896e-02_rb,0.11201e-01_rb,0.12903e-01_rb,0.13761e-01_rb, &
+        & 0.13854e-01_rb,0.13193e-01_rb,0.11760e-01_rb,0.81324e-02_rb /)
+      kao(:, 1, 4, 6) = (/ &
+        & 0.12568e-02_rb,0.62925e-02_rb,0.86570e-02_rb,0.10156e-01_rb,0.11020e-01_rb, &
+        & 0.11220e-01_rb,0.10710e-01_rb,0.94329e-02_rb,0.61812e-02_rb /)
+      kao(:, 2, 4, 6) = (/ &
+        & 0.13242e-02_rb,0.65532e-02_rb,0.89756e-02_rb,0.10460e-01_rb,0.11292e-01_rb, &
+        & 0.11463e-01_rb,0.10924e-01_rb,0.96449e-02_rb,0.63620e-02_rb /)
+      kao(:, 3, 4, 6) = (/ &
+        & 0.13782e-02_rb,0.67807e-02_rb,0.92447e-02_rb,0.10739e-01_rb,0.11531e-01_rb, &
+        & 0.11676e-01_rb,0.11115e-01_rb,0.98384e-02_rb,0.65417e-02_rb /)
+      kao(:, 4, 4, 6) = (/ &
+        & 0.14185e-02_rb,0.69728e-02_rb,0.94724e-02_rb,0.10967e-01_rb,0.11732e-01_rb, &
+        & 0.11853e-01_rb,0.11299e-01_rb,0.10029e-01_rb,0.67314e-02_rb /)
+      kao(:, 5, 4, 6) = (/ &
+        & 0.14466e-02_rb,0.71294e-02_rb,0.96551e-02_rb,0.11150e-01_rb,0.11897e-01_rb, &
+        & 0.12003e-01_rb,0.11457e-01_rb,0.10212e-01_rb,0.69134e-02_rb /)
+      kao(:, 1, 5, 6) = (/ &
+        & 0.99815e-03_rb,0.53184e-02_rb,0.73668e-02_rb,0.86661e-02_rb,0.94189e-02_rb, &
+        & 0.96088e-02_rb,0.91860e-02_rb,0.80854e-02_rb,0.52147e-02_rb /)
+      kao(:, 2, 5, 6) = (/ &
+        & 0.10594e-02_rb,0.55502e-02_rb,0.76480e-02_rb,0.89382e-02_rb,0.96675e-02_rb, &
+        & 0.98281e-02_rb,0.93908e-02_rb,0.82904e-02_rb,0.53805e-02_rb /)
+      kao(:, 3, 5, 6) = (/ &
+        & 0.11093e-02_rb,0.57534e-02_rb,0.78820e-02_rb,0.91873e-02_rb,0.98860e-02_rb, &
+        & 0.10027e-01_rb,0.95739e-02_rb,0.84774e-02_rb,0.55398e-02_rb /)
+      kao(:, 4, 5, 6) = (/ &
+        & 0.11487e-02_rb,0.59264e-02_rb,0.80746e-02_rb,0.93952e-02_rb,0.10070e-01_rb, &
+        & 0.10196e-01_rb,0.97460e-02_rb,0.86586e-02_rb,0.57118e-02_rb /)
+      kao(:, 5, 5, 6) = (/ &
+        & 0.11770e-02_rb,0.60715e-02_rb,0.82322e-02_rb,0.95590e-02_rb,0.10225e-01_rb, &
+        & 0.10337e-01_rb,0.98891e-02_rb,0.88282e-02_rb,0.58756e-02_rb /)
+      kao(:, 1, 6, 6) = (/ &
+        & 0.78484e-03_rb,0.44557e-02_rb,0.62088e-02_rb,0.73238e-02_rb,0.79758e-02_rb, &
+        & 0.81565e-02_rb,0.78234e-02_rb,0.68949e-02_rb,0.43721e-02_rb /)
+      kao(:, 2, 6, 6) = (/ &
+        & 0.84104e-03_rb,0.46584e-02_rb,0.64548e-02_rb,0.75720e-02_rb,0.82049e-02_rb, &
+        & 0.83603e-02_rb,0.80139e-02_rb,0.70912e-02_rb,0.45208e-02_rb /)
+      kao(:, 3, 6, 6) = (/ &
+        & 0.88703e-03_rb,0.48386e-02_rb,0.66585e-02_rb,0.77939e-02_rb,0.84077e-02_rb, &
+        & 0.85494e-02_rb,0.81878e-02_rb,0.72673e-02_rb,0.46664e-02_rb /)
+      kao(:, 4, 6, 6) = (/ &
+        & 0.92429e-03_rb,0.49939e-02_rb,0.68255e-02_rb,0.79793e-02_rb,0.85811e-02_rb, &
+        & 0.87123e-02_rb,0.83423e-02_rb,0.74324e-02_rb,0.48193e-02_rb /)
+      kao(:, 5, 6, 6) = (/ &
+        & 0.95287e-03_rb,0.51269e-02_rb,0.69664e-02_rb,0.81216e-02_rb,0.87256e-02_rb, &
+        & 0.88404e-02_rb,0.84793e-02_rb,0.75885e-02_rb,0.49684e-02_rb /)
+      kao(:, 1, 7, 6) = (/ &
+        & 0.61176e-03_rb,0.37105e-02_rb,0.51921e-02_rb,0.61495e-02_rb,0.67086e-02_rb, &
+        & 0.68737e-02_rb,0.66196e-02_rb,0.58499e-02_rb,0.36398e-02_rb /)
+      kao(:, 2, 7, 6) = (/ &
+        & 0.66355e-03_rb,0.38845e-02_rb,0.54092e-02_rb,0.63684e-02_rb,0.69191e-02_rb, &
+        & 0.70638e-02_rb,0.67967e-02_rb,0.60329e-02_rb,0.37725e-02_rb /)
+      kao(:, 3, 7, 6) = (/ &
+        & 0.70584e-03_rb,0.40429e-02_rb,0.55891e-02_rb,0.65665e-02_rb,0.71061e-02_rb, &
+        & 0.72392e-02_rb,0.69566e-02_rb,0.61958e-02_rb,0.39040e-02_rb /)
+      kao(:, 4, 7, 6) = (/ &
+        & 0.74016e-03_rb,0.41804e-02_rb,0.57362e-02_rb,0.67306e-02_rb,0.72656e-02_rb, &
+        & 0.73939e-02_rb,0.71002e-02_rb,0.63458e-02_rb,0.40422e-02_rb /)
+      kao(:, 5, 7, 6) = (/ &
+        & 0.76793e-03_rb,0.43013e-02_rb,0.58634e-02_rb,0.68605e-02_rb,0.73917e-02_rb, &
+        & 0.75160e-02_rb,0.72292e-02_rb,0.64867e-02_rb,0.41753e-02_rb /)
+      kao(:, 1, 8, 6) = (/ &
+        & 0.47383e-03_rb,0.30719e-02_rb,0.43157e-02_rb,0.51299e-02_rb,0.56113e-02_rb, &
+        & 0.57604e-02_rb,0.55584e-02_rb,0.49263e-02_rb,0.30099e-02_rb /)
+      kao(:, 2, 8, 6) = (/ &
+        & 0.52030e-03_rb,0.32224e-02_rb,0.45088e-02_rb,0.53256e-02_rb,0.58049e-02_rb, &
+        & 0.59369e-02_rb,0.57249e-02_rb,0.50950e-02_rb,0.31335e-02_rb /)
+      kao(:, 3, 8, 6) = (/ &
+        & 0.55897e-03_rb,0.33601e-02_rb,0.46690e-02_rb,0.55008e-02_rb,0.59733e-02_rb, &
+        & 0.60982e-02_rb,0.58703e-02_rb,0.52416e-02_rb,0.32505e-02_rb /)
+      kao(:, 4, 8, 6) = (/ &
+        & 0.59051e-03_rb,0.34823e-02_rb,0.48003e-02_rb,0.56492e-02_rb,0.61147e-02_rb, &
+        & 0.62407e-02_rb,0.60011e-02_rb,0.53776e-02_rb,0.33691e-02_rb /)
+      kao(:, 5, 8, 6) = (/ &
+        & 0.61638e-03_rb,0.35908e-02_rb,0.49151e-02_rb,0.57682e-02_rb,0.62269e-02_rb, &
+        & 0.63505e-02_rb,0.61226e-02_rb,0.55061e-02_rb,0.34893e-02_rb /)
+      kao(:, 1, 9, 6) = (/ &
+        & 0.36452e-03_rb,0.25301e-02_rb,0.35655e-02_rb,0.42558e-02_rb,0.46668e-02_rb, &
+        & 0.47995e-02_rb,0.46391e-02_rb,0.41176e-02_rb,0.24723e-02_rb /)
+      kao(:, 2, 9, 6) = (/ &
+        & 0.40521e-03_rb,0.26609e-02_rb,0.37368e-02_rb,0.44313e-02_rb,0.48422e-02_rb, &
+        & 0.49605e-02_rb,0.47876e-02_rb,0.42682e-02_rb,0.25854e-02_rb /)
+      kao(:, 3, 9, 6) = (/ &
+        & 0.44042e-03_rb,0.27811e-02_rb,0.38822e-02_rb,0.45871e-02_rb,0.49951e-02_rb, &
+        & 0.51048e-02_rb,0.49189e-02_rb,0.43988e-02_rb,0.26922e-02_rb /)
+      kao(:, 4, 9, 6) = (/ &
+        & 0.46934e-03_rb,0.28890e-02_rb,0.40015e-02_rb,0.47204e-02_rb,0.51195e-02_rb, &
+        & 0.52329e-02_rb,0.50398e-02_rb,0.45211e-02_rb,0.27947e-02_rb /)
+      kao(:, 5, 9, 6) = (/ &
+        & 0.49296e-03_rb,0.29863e-02_rb,0.41052e-02_rb,0.48296e-02_rb,0.52212e-02_rb, &
+        & 0.53320e-02_rb,0.51516e-02_rb,0.46410e-02_rb,0.29014e-02_rb /)
+      kao(:, 1,10, 6) = (/ &
+        & 0.28141e-03_rb,0.20839e-02_rb,0.29434e-02_rb,0.35250e-02_rb,0.38705e-02_rb, &
+        & 0.39907e-02_rb,0.38574e-02_rb,0.34280e-02_rb,0.20276e-02_rb /)
+      kao(:, 2,10, 6) = (/ &
+        & 0.31642e-03_rb,0.21962e-02_rb,0.30947e-02_rb,0.36798e-02_rb,0.40279e-02_rb, &
+        & 0.41317e-02_rb,0.39905e-02_rb,0.35591e-02_rb,0.21304e-02_rb /)
+      kao(:, 3,10, 6) = (/ &
+        & 0.34743e-03_rb,0.23002e-02_rb,0.32251e-02_rb,0.38167e-02_rb,0.41632e-02_rb, &
+        & 0.42588e-02_rb,0.41077e-02_rb,0.36737e-02_rb,0.22246e-02_rb /)
+      kao(:, 4,10, 6) = (/ &
+        & 0.37337e-03_rb,0.23958e-02_rb,0.33326e-02_rb,0.39351e-02_rb,0.42727e-02_rb, &
+        & 0.43699e-02_rb,0.42167e-02_rb,0.37850e-02_rb,0.23171e-02_rb /)
+      kao(:, 5,10, 6) = (/ &
+        & 0.39464e-03_rb,0.24818e-02_rb,0.34245e-02_rb,0.40341e-02_rb,0.43635e-02_rb, &
+        & 0.44592e-02_rb,0.43133e-02_rb,0.38931e-02_rb,0.24123e-02_rb /)
+      kao(:, 1,11, 6) = (/ &
+        & 0.23046e-03_rb,0.17561e-02_rb,0.24821e-02_rb,0.29697e-02_rb,0.32603e-02_rb, &
+        & 0.33590e-02_rb,0.32465e-02_rb,0.28911e-02_rb,0.17000e-02_rb /)
+      kao(:, 2,11, 6) = (/ &
+        & 0.25900e-03_rb,0.18499e-02_rb,0.26079e-02_rb,0.30983e-02_rb,0.33914e-02_rb, &
+        & 0.34790e-02_rb,0.33598e-02_rb,0.30000e-02_rb,0.17879e-02_rb /)
+      kao(:, 3,11, 6) = (/ &
+        & 0.28431e-03_rb,0.19371e-02_rb,0.27154e-02_rb,0.32123e-02_rb,0.35009e-02_rb, &
+        & 0.35810e-02_rb,0.34582e-02_rb,0.30989e-02_rb,0.18709e-02_rb /)
+      kao(:, 4,11, 6) = (/ &
+        & 0.30554e-03_rb,0.20175e-02_rb,0.28047e-02_rb,0.33094e-02_rb,0.35897e-02_rb, &
+        & 0.36708e-02_rb,0.35500e-02_rb,0.31964e-02_rb,0.19524e-02_rb /)
+      kao(:, 5,11, 6) = (/ &
+        & 0.32290e-03_rb,0.20906e-02_rb,0.28827e-02_rb,0.33907e-02_rb,0.36638e-02_rb, &
+        & 0.37448e-02_rb,0.36322e-02_rb,0.32921e-02_rb,0.20342e-02_rb /)
+      kao(:, 1,12, 6) = (/ &
+        & 0.18873e-03_rb,0.14753e-02_rb,0.20859e-02_rb,0.24932e-02_rb,0.27362e-02_rb, &
+        & 0.28163e-02_rb,0.27231e-02_rb,0.24287e-02_rb,0.14226e-02_rb /)
+      kao(:, 2,12, 6) = (/ &
+        & 0.21206e-03_rb,0.15542e-02_rb,0.21905e-02_rb,0.25997e-02_rb,0.28436e-02_rb, &
+        & 0.29146e-02_rb,0.28182e-02_rb,0.25196e-02_rb,0.14964e-02_rb /)
+      kao(:, 3,12, 6) = (/ &
+        & 0.23271e-03_rb,0.16282e-02_rb,0.22789e-02_rb,0.26937e-02_rb,0.29320e-02_rb, &
+        & 0.29995e-02_rb,0.29004e-02_rb,0.26063e-02_rb,0.15684e-02_rb /)
+      kao(:, 4,12, 6) = (/ &
+        & 0.25005e-03_rb,0.16959e-02_rb,0.23539e-02_rb,0.27739e-02_rb,0.30052e-02_rb, &
+        & 0.30738e-02_rb,0.29781e-02_rb,0.26924e-02_rb,0.16388e-02_rb /)
+      kao(:, 5,12, 6) = (/ &
+        & 0.26424e-03_rb,0.17579e-02_rb,0.24198e-02_rb,0.28418e-02_rb,0.30688e-02_rb, &
+        & 0.31370e-02_rb,0.30478e-02_rb,0.27734e-02_rb,0.17090e-02_rb /)
+      kao(:, 1,13, 6) = (/ &
+        & 0.15451e-03_rb,0.12362e-02_rb,0.17471e-02_rb,0.20856e-02_rb,0.22870e-02_rb, &
+        & 0.23530e-02_rb,0.22758e-02_rb,0.20318e-02_rb,0.11868e-02_rb /)
+      kao(:, 2,13, 6) = (/ &
+        & 0.17357e-03_rb,0.13027e-02_rb,0.18337e-02_rb,0.21736e-02_rb,0.23752e-02_rb, &
+        & 0.24339e-02_rb,0.23549e-02_rb,0.21104e-02_rb,0.12492e-02_rb /)
+      kao(:, 3,13, 6) = (/ &
+        & 0.19045e-03_rb,0.13651e-02_rb,0.19071e-02_rb,0.22520e-02_rb,0.24479e-02_rb, &
+        & 0.25052e-02_rb,0.24255e-02_rb,0.21862e-02_rb,0.13114e-02_rb /)
+      kao(:, 4,13, 6) = (/ &
+        & 0.20459e-03_rb,0.14225e-02_rb,0.19702e-02_rb,0.23195e-02_rb,0.25109e-02_rb, &
+        & 0.25680e-02_rb,0.24906e-02_rb,0.22592e-02_rb,0.13717e-02_rb /)
+      kao(:, 5,13, 6) = (/ &
+        & 0.21621e-03_rb,0.14751e-02_rb,0.20267e-02_rb,0.23775e-02_rb,0.25654e-02_rb, &
+        & 0.26221e-02_rb,0.25513e-02_rb,0.23283e-02_rb,0.14321e-02_rb /)
+      kao(:, 1, 1, 7) = (/ &
+        & 0.14551e-01_rb,0.26282e-01_rb,0.32053e-01_rb,0.35189e-01_rb,0.36600e-01_rb, &
+        & 0.36646e-01_rb,0.35552e-01_rb,0.33215e-01_rb,0.27309e-01_rb /)
+      kao(:, 2, 1, 7) = (/ &
+        & 0.15360e-01_rb,0.26847e-01_rb,0.32411e-01_rb,0.35426e-01_rb,0.36803e-01_rb, &
+        & 0.36994e-01_rb,0.36037e-01_rb,0.33674e-01_rb,0.27881e-01_rb /)
+      kao(:, 3, 1, 7) = (/ &
+        & 0.16052e-01_rb,0.27358e-01_rb,0.32711e-01_rb,0.35602e-01_rb,0.37002e-01_rb, &
+        & 0.37322e-01_rb,0.36495e-01_rb,0.34092e-01_rb,0.28365e-01_rb /)
+      kao(:, 4, 1, 7) = (/ &
+        & 0.16634e-01_rb,0.27765e-01_rb,0.32975e-01_rb,0.35757e-01_rb,0.37198e-01_rb, &
+        & 0.37629e-01_rb,0.36871e-01_rb,0.34489e-01_rb,0.28817e-01_rb /)
+      kao(:, 5, 1, 7) = (/ &
+        & 0.17092e-01_rb,0.28088e-01_rb,0.33173e-01_rb,0.35899e-01_rb,0.37369e-01_rb, &
+        & 0.37894e-01_rb,0.37206e-01_rb,0.34856e-01_rb,0.29236e-01_rb /)
+      kao(:, 1, 2, 7) = (/ &
+        & 0.12675e-01_rb,0.23757e-01_rb,0.28827e-01_rb,0.31475e-01_rb,0.32647e-01_rb, &
+        & 0.32779e-01_rb,0.31874e-01_rb,0.29659e-01_rb,0.23735e-01_rb /)
+      kao(:, 2, 2, 7) = (/ &
+        & 0.13363e-01_rb,0.24261e-01_rb,0.29165e-01_rb,0.31734e-01_rb,0.32905e-01_rb, &
+        & 0.33137e-01_rb,0.32357e-01_rb,0.30114e-01_rb,0.24241e-01_rb /)
+      kao(:, 3, 2, 7) = (/ &
+        & 0.13952e-01_rb,0.24673e-01_rb,0.29458e-01_rb,0.31940e-01_rb,0.33167e-01_rb, &
+        & 0.33486e-01_rb,0.32794e-01_rb,0.30540e-01_rb,0.24704e-01_rb /)
+      kao(:, 4, 2, 7) = (/ &
+        & 0.14440e-01_rb,0.25010e-01_rb,0.29692e-01_rb,0.32131e-01_rb,0.33402e-01_rb, &
+        & 0.33816e-01_rb,0.33185e-01_rb,0.30944e-01_rb,0.25123e-01_rb /)
+      kao(:, 5, 2, 7) = (/ &
+        & 0.14810e-01_rb,0.25246e-01_rb,0.29865e-01_rb,0.32323e-01_rb,0.33624e-01_rb, &
+        & 0.34125e-01_rb,0.33530e-01_rb,0.31299e-01_rb,0.25501e-01_rb /)
+      kao(:, 1, 3, 7) = (/ &
+        & 0.10764e-01_rb,0.21180e-01_rb,0.25645e-01_rb,0.27934e-01_rb,0.28891e-01_rb, &
+        & 0.28978e-01_rb,0.28215e-01_rb,0.26250e-01_rb,0.20340e-01_rb /)
+      kao(:, 2, 3, 7) = (/ &
+        & 0.11371e-01_rb,0.21611e-01_rb,0.25976e-01_rb,0.28221e-01_rb,0.29204e-01_rb, &
+        & 0.29347e-01_rb,0.28689e-01_rb,0.26687e-01_rb,0.20803e-01_rb /)
+      kao(:, 3, 3, 7) = (/ &
+        & 0.11882e-01_rb,0.21977e-01_rb,0.26258e-01_rb,0.28467e-01_rb,0.29498e-01_rb, &
+        & 0.29730e-01_rb,0.29113e-01_rb,0.27115e-01_rb,0.21241e-01_rb /)
+      kao(:, 4, 3, 7) = (/ &
+        & 0.12302e-01_rb,0.22273e-01_rb,0.26477e-01_rb,0.28696e-01_rb,0.29766e-01_rb, &
+        & 0.30099e-01_rb,0.29507e-01_rb,0.27503e-01_rb,0.21620e-01_rb /)
+      kao(:, 5, 3, 7) = (/ &
+        & 0.12624e-01_rb,0.22481e-01_rb,0.26631e-01_rb,0.28900e-01_rb,0.30032e-01_rb, &
+        & 0.30425e-01_rb,0.29859e-01_rb,0.27842e-01_rb,0.21966e-01_rb /)
+      kao(:, 1, 4, 7) = (/ &
+        & 0.89860e-02_rb,0.18659e-01_rb,0.22605e-01_rb,0.24580e-01_rb,0.25383e-01_rb, &
+        & 0.25435e-01_rb,0.24761e-01_rb,0.23037e-01_rb,0.17414e-01_rb /)
+      kao(:, 2, 4, 7) = (/ &
+        & 0.95207e-02_rb,0.19048e-01_rb,0.22924e-01_rb,0.24888e-01_rb,0.25739e-01_rb, &
+        & 0.25823e-01_rb,0.25200e-01_rb,0.23450e-01_rb,0.17847e-01_rb /)
+      kao(:, 3, 4, 7) = (/ &
+        & 0.99723e-02_rb,0.19380e-01_rb,0.23182e-01_rb,0.25155e-01_rb,0.26061e-01_rb, &
+        & 0.26209e-01_rb,0.25611e-01_rb,0.23862e-01_rb,0.18251e-01_rb /)
+      kao(:, 4, 4, 7) = (/ &
+        & 0.10354e-01_rb,0.19644e-01_rb,0.23397e-01_rb,0.25401e-01_rb,0.26345e-01_rb, &
+        & 0.26580e-01_rb,0.26000e-01_rb,0.24233e-01_rb,0.18600e-01_rb /)
+      kao(:, 5, 4, 7) = (/ &
+        & 0.10637e-01_rb,0.19822e-01_rb,0.23556e-01_rb,0.25605e-01_rb,0.26619e-01_rb, &
+        & 0.26913e-01_rb,0.26359e-01_rb,0.24562e-01_rb,0.18925e-01_rb /)
+      kao(:, 1, 5, 7) = (/ &
+        & 0.74104e-02_rb,0.16264e-01_rb,0.19717e-01_rb,0.21452e-01_rb,0.22172e-01_rb, &
+        & 0.22207e-01_rb,0.21598e-01_rb,0.20075e-01_rb,0.14880e-01_rb /)
+      kao(:, 2, 5, 7) = (/ &
+        & 0.78778e-02_rb,0.16624e-01_rb,0.20022e-01_rb,0.21765e-01_rb,0.22531e-01_rb, &
+        & 0.22596e-01_rb,0.21999e-01_rb,0.20458e-01_rb,0.15279e-01_rb /)
+      kao(:, 3, 5, 7) = (/ &
+        & 0.82694e-02_rb,0.16928e-01_rb,0.20277e-01_rb,0.22036e-01_rb,0.22859e-01_rb, &
+        & 0.22978e-01_rb,0.22384e-01_rb,0.20834e-01_rb,0.15650e-01_rb /)
+      kao(:, 4, 5, 7) = (/ &
+        & 0.85919e-02_rb,0.17168e-01_rb,0.20498e-01_rb,0.22274e-01_rb,0.23143e-01_rb, &
+        & 0.23326e-01_rb,0.22754e-01_rb,0.21189e-01_rb,0.15980e-01_rb /)
+      kao(:, 5, 5, 7) = (/ &
+        & 0.88337e-02_rb,0.17332e-01_rb,0.20664e-01_rb,0.22477e-01_rb,0.23407e-01_rb, &
+        & 0.23648e-01_rb,0.23111e-01_rb,0.21509e-01_rb,0.16283e-01_rb /)
+      kao(:, 1, 6, 7) = (/ &
+        & 0.60305e-02_rb,0.14008e-01_rb,0.17028e-01_rb,0.18574e-01_rb,0.19236e-01_rb, &
+        & 0.19269e-01_rb,0.18720e-01_rb,0.17347e-01_rb,0.12656e-01_rb /)
+      kao(:, 2, 6, 7) = (/ &
+        & 0.64356e-02_rb,0.14339e-01_rb,0.17318e-01_rb,0.18872e-01_rb,0.19580e-01_rb, &
+        & 0.19645e-01_rb,0.19095e-01_rb,0.17705e-01_rb,0.13025e-01_rb /)
+      kao(:, 3, 6, 7) = (/ &
+        & 0.67708e-02_rb,0.14626e-01_rb,0.17575e-01_rb,0.19135e-01_rb,0.19883e-01_rb, &
+        & 0.20004e-01_rb,0.19454e-01_rb,0.18055e-01_rb,0.13366e-01_rb /)
+      kao(:, 4, 6, 7) = (/ &
+        & 0.70449e-02_rb,0.14853e-01_rb,0.17795e-01_rb,0.19363e-01_rb,0.20156e-01_rb, &
+        & 0.20324e-01_rb,0.19811e-01_rb,0.18392e-01_rb,0.13679e-01_rb /)
+      kao(:, 5, 6, 7) = (/ &
+        & 0.72586e-02_rb,0.15014e-01_rb,0.17954e-01_rb,0.19569e-01_rb,0.20401e-01_rb, &
+        & 0.20622e-01_rb,0.20155e-01_rb,0.18706e-01_rb,0.13963e-01_rb /)
+      kao(:, 1, 7, 7) = (/ &
+        & 0.48615e-02_rb,0.11936e-01_rb,0.14574e-01_rb,0.15963e-01_rb,0.16578e-01_rb, &
+        & 0.16615e-01_rb,0.16125e-01_rb,0.14904e-01_rb,0.10718e-01_rb /)
+      kao(:, 2, 7, 7) = (/ &
+        & 0.52093e-02_rb,0.12247e-01_rb,0.14845e-01_rb,0.16239e-01_rb,0.16890e-01_rb, &
+        & 0.16965e-01_rb,0.16477e-01_rb,0.15238e-01_rb,0.11050e-01_rb /)
+      kao(:, 3, 7, 7) = (/ &
+        & 0.54981e-02_rb,0.12520e-01_rb,0.15089e-01_rb,0.16485e-01_rb,0.17163e-01_rb, &
+        & 0.17296e-01_rb,0.16823e-01_rb,0.15561e-01_rb,0.11367e-01_rb /)
+      kao(:, 4, 7, 7) = (/ &
+        & 0.57341e-02_rb,0.12732e-01_rb,0.15302e-01_rb,0.16709e-01_rb,0.17412e-01_rb, &
+        & 0.17587e-01_rb,0.17156e-01_rb,0.15882e-01_rb,0.11657e-01_rb /)
+      kao(:, 5, 7, 7) = (/ &
+        & 0.59245e-02_rb,0.12879e-01_rb,0.15460e-01_rb,0.16900e-01_rb,0.17646e-01_rb, &
+        & 0.17862e-01_rb,0.17475e-01_rb,0.16189e-01_rb,0.11924e-01_rb /)
+      kao(:, 1, 8, 7) = (/ &
+        & 0.38903e-02_rb,0.10086e-01_rb,0.12393e-01_rb,0.13617e-01_rb,0.14179e-01_rb, &
+        & 0.14230e-01_rb,0.13810e-01_rb,0.12741e-01_rb,0.90402e-02_rb /)
+      kao(:, 2, 8, 7) = (/ &
+        & 0.41883e-02_rb,0.10379e-01_rb,0.12642e-01_rb,0.13866e-01_rb,0.14454e-01_rb, &
+        & 0.14549e-01_rb,0.14140e-01_rb,0.13050e-01_rb,0.93407e-02_rb /)
+      kao(:, 3, 8, 7) = (/ &
+        & 0.44374e-02_rb,0.10628e-01_rb,0.12866e-01_rb,0.14093e-01_rb,0.14702e-01_rb, &
+        & 0.14847e-01_rb,0.14466e-01_rb,0.13354e-01_rb,0.96289e-02_rb /)
+      kao(:, 4, 8, 7) = (/ &
+        & 0.46417e-02_rb,0.10823e-01_rb,0.13067e-01_rb,0.14297e-01_rb,0.14936e-01_rb, &
+        & 0.15113e-01_rb,0.14777e-01_rb,0.13659e-01_rb,0.98946e-02_rb /)
+      kao(:, 5, 8, 7) = (/ &
+        & 0.48106e-02_rb,0.10958e-01_rb,0.13212e-01_rb,0.14477e-01_rb,0.15155e-01_rb, &
+        & 0.15369e-01_rb,0.15065e-01_rb,0.13954e-01_rb,0.10137e-01_rb /)
+      kao(:, 1, 9, 7) = (/ &
+        & 0.30906e-02_rb,0.84716e-02_rb,0.10475e-01_rb,0.11533e-01_rb,0.12037e-01_rb, &
+        & 0.12102e-01_rb,0.11757e-01_rb,0.10840e-01_rb,0.75790e-02_rb /)
+      kao(:, 2, 9, 7) = (/ &
+        & 0.33456e-02_rb,0.87380e-02_rb,0.10698e-01_rb,0.11759e-01_rb,0.12281e-01_rb, &
+        & 0.12384e-01_rb,0.12063e-01_rb,0.11124e-01_rb,0.78524e-02_rb /)
+      kao(:, 3, 9, 7) = (/ &
+        & 0.35624e-02_rb,0.89636e-02_rb,0.10908e-01_rb,0.11964e-01_rb,0.12503e-01_rb, &
+        & 0.12651e-01_rb,0.12366e-01_rb,0.11413e-01_rb,0.81116e-02_rb /)
+      kao(:, 4, 9, 7) = (/ &
+        & 0.37409e-02_rb,0.91394e-02_rb,0.11085e-01_rb,0.12156e-01_rb,0.12717e-01_rb, &
+        & 0.12895e-01_rb,0.12646e-01_rb,0.11703e-01_rb,0.83543e-02_rb /)
+      kao(:, 5, 9, 7) = (/ &
+        & 0.38899e-02_rb,0.92663e-02_rb,0.11210e-01_rb,0.12323e-01_rb,0.12923e-01_rb, &
+        & 0.13135e-01_rb,0.12909e-01_rb,0.11979e-01_rb,0.85748e-02_rb /)
+      kao(:, 1,10, 7) = (/ &
+        & 0.24588e-02_rb,0.70997e-02_rb,0.88156e-02_rb,0.97280e-02_rb,0.10175e-01_rb, &
+        & 0.10246e-01_rb,0.99712e-02_rb,0.91951e-02_rb,0.63324e-02_rb /)
+      kao(:, 2,10, 7) = (/ &
+        & 0.26743e-02_rb,0.73393e-02_rb,0.90183e-02_rb,0.99289e-02_rb,0.10387e-01_rb, &
+        & 0.10496e-01_rb,0.10249e-01_rb,0.94566e-02_rb,0.65770e-02_rb /)
+      kao(:, 3,10, 7) = (/ &
+        & 0.28610e-02_rb,0.75352e-02_rb,0.92028e-02_rb,0.10117e-01_rb,0.10586e-01_rb, &
+        & 0.10730e-01_rb,0.10524e-01_rb,0.97307e-02_rb,0.68077e-02_rb /)
+      kao(:, 4,10, 7) = (/ &
+        & 0.30147e-02_rb,0.76899e-02_rb,0.93550e-02_rb,0.10291e-01_rb,0.10781e-01_rb, &
+        & 0.10954e-01_rb,0.10778e-01_rb,0.10001e-01_rb,0.70201e-02_rb /)
+      kao(:, 5,10, 7) = (/ &
+        & 0.31444e-02_rb,0.78050e-02_rb,0.94668e-02_rb,0.10433e-01_rb,0.10974e-01_rb, &
+        & 0.11173e-01_rb,0.11019e-01_rb,0.10253e-01_rb,0.72189e-02_rb /)
+      kao(:, 1,11, 7) = (/ &
+        & 0.20345e-02_rb,0.60249e-02_rb,0.74716e-02_rb,0.82496e-02_rb,0.86458e-02_rb, &
+        & 0.87340e-02_rb,0.85222e-02_rb,0.78657e-02_rb,0.53714e-02_rb /)
+      kao(:, 2,11, 7) = (/ &
+        & 0.22071e-02_rb,0.62176e-02_rb,0.76440e-02_rb,0.84251e-02_rb,0.88273e-02_rb, &
+        & 0.89461e-02_rb,0.87689e-02_rb,0.81125e-02_rb,0.55835e-02_rb /)
+      kao(:, 3,11, 7) = (/ &
+        & 0.23554e-02_rb,0.63729e-02_rb,0.77932e-02_rb,0.85868e-02_rb,0.90058e-02_rb, &
+        & 0.91548e-02_rb,0.90075e-02_rb,0.83660e-02_rb,0.57827e-02_rb /)
+      kao(:, 4,11, 7) = (/ &
+        & 0.24780e-02_rb,0.64944e-02_rb,0.79106e-02_rb,0.87291e-02_rb,0.91857e-02_rb, &
+        & 0.93565e-02_rb,0.92302e-02_rb,0.86036e-02_rb,0.59695e-02_rb /)
+      kao(:, 5,11, 7) = (/ &
+        & 0.25820e-02_rb,0.65802e-02_rb,0.79974e-02_rb,0.88427e-02_rb,0.93482e-02_rb, &
+        & 0.95539e-02_rb,0.94443e-02_rb,0.88180e-02_rb,0.61512e-02_rb /)
+      kao(:, 1,12, 7) = (/ &
+        & 0.16789e-02_rb,0.50906e-02_rb,0.63078e-02_rb,0.69750e-02_rb,0.73172e-02_rb, &
+        & 0.74078e-02_rb,0.72504e-02_rb,0.67015e-02_rb,0.45394e-02_rb /)
+      kao(:, 2,12, 7) = (/ &
+        & 0.18170e-02_rb,0.52437e-02_rb,0.64512e-02_rb,0.71255e-02_rb,0.74790e-02_rb, &
+        & 0.75959e-02_rb,0.74655e-02_rb,0.69307e-02_rb,0.47237e-02_rb /)
+      kao(:, 3,12, 7) = (/ &
+        & 0.19356e-02_rb,0.53689e-02_rb,0.65701e-02_rb,0.72610e-02_rb,0.76415e-02_rb, &
+        & 0.77811e-02_rb,0.76703e-02_rb,0.71508e-02_rb,0.48953e-02_rb /)
+      kao(:, 4,12, 7) = (/ &
+        & 0.20342e-02_rb,0.54644e-02_rb,0.66640e-02_rb,0.73792e-02_rb,0.77929e-02_rb, &
+        & 0.79635e-02_rb,0.78660e-02_rb,0.73532e-02_rb,0.50607e-02_rb /)
+      kao(:, 5,12, 7) = (/ &
+        & 0.21182e-02_rb,0.55328e-02_rb,0.67352e-02_rb,0.74736e-02_rb,0.79282e-02_rb, &
+        & 0.81307e-02_rb,0.80542e-02_rb,0.75407e-02_rb,0.52234e-02_rb /)
+      kao(:, 1,13, 7) = (/ &
+        & 0.13819e-02_rb,0.42823e-02_rb,0.53096e-02_rb,0.58771e-02_rb,0.61745e-02_rb, &
+        & 0.62601e-02_rb,0.61411e-02_rb,0.56893e-02_rb,0.38201e-02_rb /)
+      kao(:, 2,13, 7) = (/ &
+        & 0.14927e-02_rb,0.44078e-02_rb,0.54261e-02_rb,0.60055e-02_rb,0.63167e-02_rb, &
+        & 0.64278e-02_rb,0.63268e-02_rb,0.58891e-02_rb,0.39789e-02_rb /)
+      kao(:, 3,13, 7) = (/ &
+        & 0.15884e-02_rb,0.45090e-02_rb,0.55246e-02_rb,0.61217e-02_rb,0.64577e-02_rb, &
+        & 0.65903e-02_rb,0.65044e-02_rb,0.60758e-02_rb,0.41288e-02_rb /)
+      kao(:, 4,13, 7) = (/ &
+        & 0.16683e-02_rb,0.45858e-02_rb,0.56029e-02_rb,0.62193e-02_rb,0.65859e-02_rb, &
+        & 0.67454e-02_rb,0.66768e-02_rb,0.62506e-02_rb,0.42765e-02_rb /)
+      kao(:, 5,13, 7) = (/ &
+        & 0.17364e-02_rb,0.46419e-02_rb,0.56644e-02_rb,0.62996e-02_rb,0.66998e-02_rb, &
+        & 0.68888e-02_rb,0.68404e-02_rb,0.64188e-02_rb,0.44198e-02_rb /)
+      kao(:, 1, 1, 8) = (/ &
+        & 0.57760e-01_rb,0.69432e-01_rb,0.76402e-01_rb,0.81517e-01_rb,0.85125e-01_rb, &
+        & 0.87289e-01_rb,0.87408e-01_rb,0.83317e-01_rb,0.74720e-01_rb /)
+      kao(:, 2, 1, 8) = (/ &
+        & 0.58256e-01_rb,0.69667e-01_rb,0.76723e-01_rb,0.81911e-01_rb,0.85362e-01_rb, &
+        & 0.87289e-01_rb,0.87306e-01_rb,0.83357e-01_rb,0.75177e-01_rb /)
+      kao(:, 3, 1, 8) = (/ &
+        & 0.58710e-01_rb,0.69859e-01_rb,0.76973e-01_rb,0.82328e-01_rb,0.85690e-01_rb, &
+        & 0.87420e-01_rb,0.87264e-01_rb,0.83435e-01_rb,0.75701e-01_rb /)
+      kao(:, 4, 1, 8) = (/ &
+        & 0.59052e-01_rb,0.70050e-01_rb,0.77176e-01_rb,0.82642e-01_rb,0.86071e-01_rb, &
+        & 0.87660e-01_rb,0.87341e-01_rb,0.83544e-01_rb,0.76230e-01_rb /)
+      kao(:, 5, 1, 8) = (/ &
+        & 0.59298e-01_rb,0.70198e-01_rb,0.77374e-01_rb,0.82883e-01_rb,0.86469e-01_rb, &
+        & 0.87977e-01_rb,0.87473e-01_rb,0.83691e-01_rb,0.76769e-01_rb /)
+      kao(:, 1, 2, 8) = (/ &
+        & 0.50908e-01_rb,0.62848e-01_rb,0.70003e-01_rb,0.75263e-01_rb,0.78670e-01_rb, &
+        & 0.80594e-01_rb,0.80694e-01_rb,0.77048e-01_rb,0.67048e-01_rb /)
+      kao(:, 2, 2, 8) = (/ &
+        & 0.51469e-01_rb,0.63178e-01_rb,0.70395e-01_rb,0.75763e-01_rb,0.79033e-01_rb, &
+        & 0.80775e-01_rb,0.80686e-01_rb,0.77199e-01_rb,0.67605e-01_rb /)
+      kao(:, 3, 2, 8) = (/ &
+        & 0.51956e-01_rb,0.63519e-01_rb,0.70748e-01_rb,0.76221e-01_rb,0.79512e-01_rb, &
+        & 0.81067e-01_rb,0.80797e-01_rb,0.77370e-01_rb,0.68182e-01_rb /)
+      kao(:, 4, 2, 8) = (/ &
+        & 0.52329e-01_rb,0.63831e-01_rb,0.71115e-01_rb,0.76591e-01_rb,0.80032e-01_rb, &
+        & 0.81445e-01_rb,0.81001e-01_rb,0.77568e-01_rb,0.68768e-01_rb /)
+      kao(:, 5, 2, 8) = (/ &
+        & 0.52648e-01_rb,0.64108e-01_rb,0.71441e-01_rb,0.76941e-01_rb,0.80464e-01_rb, &
+        & 0.81866e-01_rb,0.81282e-01_rb,0.77796e-01_rb,0.69377e-01_rb /)
+      kao(:, 1, 3, 8) = (/ &
+        & 0.44636e-01_rb,0.56575e-01_rb,0.63667e-01_rb,0.68804e-01_rb,0.72146e-01_rb, &
+        & 0.73940e-01_rb,0.73756e-01_rb,0.70359e-01_rb,0.59446e-01_rb /)
+      kao(:, 2, 3, 8) = (/ &
+        & 0.45216e-01_rb,0.57005e-01_rb,0.64111e-01_rb,0.69328e-01_rb,0.72620e-01_rb, &
+        & 0.74228e-01_rb,0.73854e-01_rb,0.70600e-01_rb,0.60086e-01_rb /)
+      kao(:, 3, 3, 8) = (/ &
+        & 0.45716e-01_rb,0.57448e-01_rb,0.64591e-01_rb,0.69816e-01_rb,0.73178e-01_rb, &
+        & 0.74616e-01_rb,0.74093e-01_rb,0.70843e-01_rb,0.60738e-01_rb /)
+      kao(:, 4, 3, 8) = (/ &
+        & 0.46137e-01_rb,0.57862e-01_rb,0.65060e-01_rb,0.70283e-01_rb,0.73724e-01_rb, &
+        & 0.75067e-01_rb,0.74408e-01_rb,0.71130e-01_rb,0.61385e-01_rb /)
+      kao(:, 5, 3, 8) = (/ &
+        & 0.46490e-01_rb,0.58240e-01_rb,0.65537e-01_rb,0.70752e-01_rb,0.74187e-01_rb, &
+        & 0.75545e-01_rb,0.74817e-01_rb,0.71479e-01_rb,0.61998e-01_rb /)
+      kao(:, 1, 4, 8) = (/ &
+        & 0.38910e-01_rb,0.50823e-01_rb,0.57505e-01_rb,0.62364e-01_rb,0.65559e-01_rb, &
+        & 0.67154e-01_rb,0.66798e-01_rb,0.63531e-01_rb,0.52401e-01_rb /)
+      kao(:, 2, 4, 8) = (/ &
+        & 0.39488e-01_rb,0.51307e-01_rb,0.58022e-01_rb,0.62912e-01_rb,0.66074e-01_rb, &
+        & 0.67518e-01_rb,0.67025e-01_rb,0.63840e-01_rb,0.53093e-01_rb /)
+      kao(:, 3, 4, 8) = (/ &
+        & 0.39991e-01_rb,0.51812e-01_rb,0.58566e-01_rb,0.63451e-01_rb,0.66632e-01_rb, &
+        & 0.68010e-01_rb,0.67348e-01_rb,0.64169e-01_rb,0.53782e-01_rb /)
+      kao(:, 4, 4, 8) = (/ &
+        & 0.40387e-01_rb,0.52291e-01_rb,0.59117e-01_rb,0.64001e-01_rb,0.67196e-01_rb, &
+        & 0.68514e-01_rb,0.67789e-01_rb,0.64555e-01_rb,0.54470e-01_rb /)
+      kao(:, 5, 4, 8) = (/ &
+        & 0.40719e-01_rb,0.52739e-01_rb,0.59691e-01_rb,0.64572e-01_rb,0.67725e-01_rb, &
+        & 0.69031e-01_rb,0.68307e-01_rb,0.64985e-01_rb,0.55091e-01_rb /)
+      kao(:, 1, 5, 8) = (/ &
+        & 0.33692e-01_rb,0.45459e-01_rb,0.51705e-01_rb,0.56111e-01_rb,0.58984e-01_rb, &
+        & 0.60384e-01_rb,0.59951e-01_rb,0.56770e-01_rb,0.45939e-01_rb /)
+      kao(:, 2, 5, 8) = (/ &
+        & 0.34254e-01_rb,0.45979e-01_rb,0.52252e-01_rb,0.56664e-01_rb,0.59515e-01_rb, &
+        & 0.60816e-01_rb,0.60273e-01_rb,0.57146e-01_rb,0.46647e-01_rb /)
+      kao(:, 3, 5, 8) = (/ &
+        & 0.34738e-01_rb,0.46532e-01_rb,0.52846e-01_rb,0.57238e-01_rb,0.60077e-01_rb, &
+        & 0.61352e-01_rb,0.60714e-01_rb,0.57566e-01_rb,0.47359e-01_rb /)
+      kao(:, 4, 5, 8) = (/ &
+        & 0.35117e-01_rb,0.47047e-01_rb,0.53459e-01_rb,0.57849e-01_rb,0.60668e-01_rb, &
+        & 0.61902e-01_rb,0.61259e-01_rb,0.58030e-01_rb,0.48036e-01_rb /)
+      kao(:, 5, 5, 8) = (/ &
+        & 0.35428e-01_rb,0.47508e-01_rb,0.54083e-01_rb,0.58493e-01_rb,0.61253e-01_rb, &
+        & 0.62481e-01_rb,0.61851e-01_rb,0.58523e-01_rb,0.48648e-01_rb /)
+      kao(:, 1, 6, 8) = (/ &
+        & 0.28910e-01_rb,0.40429e-01_rb,0.46176e-01_rb,0.50108e-01_rb,0.52609e-01_rb, &
+        & 0.53750e-01_rb,0.53289e-01_rb,0.50286e-01_rb,0.40061e-01_rb /)
+      kao(:, 2, 6, 8) = (/ &
+        & 0.29433e-01_rb,0.40967e-01_rb,0.46731e-01_rb,0.50653e-01_rb,0.53149e-01_rb, &
+        & 0.54232e-01_rb,0.53687e-01_rb,0.50714e-01_rb,0.40756e-01_rb /)
+      kao(:, 3, 6, 8) = (/ &
+        & 0.29883e-01_rb,0.41520e-01_rb,0.47349e-01_rb,0.51251e-01_rb,0.53731e-01_rb, &
+        & 0.54796e-01_rb,0.54207e-01_rb,0.51188e-01_rb,0.41443e-01_rb /)
+      kao(:, 4, 6, 8) = (/ &
+        & 0.30252e-01_rb,0.42024e-01_rb,0.47998e-01_rb,0.51918e-01_rb,0.54339e-01_rb, &
+        & 0.55387e-01_rb,0.54820e-01_rb,0.51711e-01_rb,0.42085e-01_rb /)
+      kao(:, 5, 6, 8) = (/ &
+        & 0.30542e-01_rb,0.42447e-01_rb,0.48635e-01_rb,0.52598e-01_rb,0.54986e-01_rb, &
+        & 0.56038e-01_rb,0.55430e-01_rb,0.52236e-01_rb,0.42675e-01_rb /)
+      kao(:, 1, 7, 8) = (/ &
+        & 0.24600e-01_rb,0.35725e-01_rb,0.40952e-01_rb,0.44398e-01_rb,0.46558e-01_rb, &
+        & 0.47462e-01_rb,0.46950e-01_rb,0.44227e-01_rb,0.34751e-01_rb /)
+      kao(:, 2, 7, 8) = (/ &
+        & 0.25060e-01_rb,0.36250e-01_rb,0.41498e-01_rb,0.44950e-01_rb,0.47097e-01_rb, &
+        & 0.47977e-01_rb,0.47399e-01_rb,0.44690e-01_rb,0.35410e-01_rb /)
+      kao(:, 3, 7, 8) = (/ &
+        & 0.25466e-01_rb,0.36769e-01_rb,0.42119e-01_rb,0.45572e-01_rb,0.47696e-01_rb, &
+        & 0.48548e-01_rb,0.47965e-01_rb,0.45198e-01_rb,0.36050e-01_rb /)
+      kao(:, 4, 7, 8) = (/ &
+        & 0.25804e-01_rb,0.37232e-01_rb,0.42764e-01_rb,0.46249e-01_rb,0.48349e-01_rb, &
+        & 0.49173e-01_rb,0.48603e-01_rb,0.45737e-01_rb,0.36649e-01_rb /)
+      kao(:, 5, 7, 8) = (/ &
+        & 0.26075e-01_rb,0.37645e-01_rb,0.43371e-01_rb,0.46950e-01_rb,0.49045e-01_rb, &
+        & 0.49856e-01_rb,0.49223e-01_rb,0.46279e-01_rb,0.37198e-01_rb /)
+      kao(:, 1, 8, 8) = (/ &
+        & 0.20747e-01_rb,0.31325e-01_rb,0.36016e-01_rb,0.39047e-01_rb,0.40921e-01_rb, &
+        & 0.41656e-01_rb,0.41097e-01_rb,0.38682e-01_rb,0.29955e-01_rb /)
+      kao(:, 2, 8, 8) = (/ &
+        & 0.21145e-01_rb,0.31811e-01_rb,0.36541e-01_rb,0.39597e-01_rb,0.41455e-01_rb, &
+        & 0.42169e-01_rb,0.41575e-01_rb,0.39145e-01_rb,0.30577e-01_rb /)
+      kao(:, 3, 8, 8) = (/ &
+        & 0.21497e-01_rb,0.32290e-01_rb,0.37155e-01_rb,0.40238e-01_rb,0.42067e-01_rb, &
+        & 0.42744e-01_rb,0.42154e-01_rb,0.39648e-01_rb,0.31178e-01_rb /)
+      kao(:, 4, 8, 8) = (/ &
+        & 0.21796e-01_rb,0.32717e-01_rb,0.37766e-01_rb,0.40923e-01_rb,0.42738e-01_rb, &
+        & 0.43394e-01_rb,0.42768e-01_rb,0.40185e-01_rb,0.31733e-01_rb /)
+      kao(:, 5, 8, 8) = (/ &
+        & 0.22044e-01_rb,0.33112e-01_rb,0.38338e-01_rb,0.41597e-01_rb,0.43462e-01_rb, &
+        & 0.44087e-01_rb,0.43385e-01_rb,0.40740e-01_rb,0.32254e-01_rb /)
+      kao(:, 1, 9, 8) = (/ &
+        & 0.17360e-01_rb,0.27218e-01_rb,0.31401e-01_rb,0.34084e-01_rb,0.35741e-01_rb, &
+        & 0.36373e-01_rb,0.35798e-01_rb,0.33594e-01_rb,0.25664e-01_rb /)
+      kao(:, 2, 9, 8) = (/ &
+        & 0.17693e-01_rb,0.27662e-01_rb,0.31908e-01_rb,0.34622e-01_rb,0.36264e-01_rb, &
+        & 0.36877e-01_rb,0.36285e-01_rb,0.34049e-01_rb,0.26251e-01_rb /)
+      kao(:, 3, 9, 8) = (/ &
+        & 0.17992e-01_rb,0.28089e-01_rb,0.32477e-01_rb,0.35255e-01_rb,0.36874e-01_rb, &
+        & 0.37444e-01_rb,0.36831e-01_rb,0.34544e-01_rb,0.26814e-01_rb /)
+      kao(:, 4, 9, 8) = (/ &
+        & 0.18258e-01_rb,0.28481e-01_rb,0.33050e-01_rb,0.35909e-01_rb,0.37552e-01_rb, &
+        & 0.38078e-01_rb,0.37421e-01_rb,0.35073e-01_rb,0.27335e-01_rb /)
+      kao(:, 5, 9, 8) = (/ &
+        & 0.18484e-01_rb,0.28849e-01_rb,0.33601e-01_rb,0.36536e-01_rb,0.38254e-01_rb, &
+        & 0.38756e-01_rb,0.38026e-01_rb,0.35616e-01_rb,0.27829e-01_rb /)
+      kao(:, 1,10, 8) = (/ &
+        & 0.14462e-01_rb,0.23463e-01_rb,0.27186e-01_rb,0.29588e-01_rb,0.31079e-01_rb, &
+        & 0.31625e-01_rb,0.31053e-01_rb,0.29012e-01_rb,0.21916e-01_rb /)
+      kao(:, 2,10, 8) = (/ &
+        & 0.14737e-01_rb,0.23853e-01_rb,0.27662e-01_rb,0.30109e-01_rb,0.31581e-01_rb, &
+        & 0.32116e-01_rb,0.31527e-01_rb,0.29461e-01_rb,0.22460e-01_rb /)
+      kao(:, 3,10, 8) = (/ &
+        & 0.14983e-01_rb,0.24238e-01_rb,0.28187e-01_rb,0.30710e-01_rb,0.32176e-01_rb, &
+        & 0.32664e-01_rb,0.32044e-01_rb,0.29948e-01_rb,0.22987e-01_rb /)
+      kao(:, 4,10, 8) = (/ &
+        & 0.15228e-01_rb,0.24593e-01_rb,0.28718e-01_rb,0.31312e-01_rb,0.32826e-01_rb, &
+        & 0.33282e-01_rb,0.32615e-01_rb,0.30467e-01_rb,0.23478e-01_rb /)
+      kao(:, 5,10, 8) = (/ &
+        & 0.15411e-01_rb,0.24932e-01_rb,0.29228e-01_rb,0.31903e-01_rb,0.33455e-01_rb, &
+        & 0.33943e-01_rb,0.33207e-01_rb,0.30994e-01_rb,0.23939e-01_rb /)
+      kao(:, 1,11, 8) = (/ &
+        & 0.12097e-01_rb,0.20230e-01_rb,0.23554e-01_rb,0.25737e-01_rb,0.27070e-01_rb, &
+        & 0.27526e-01_rb,0.26987e-01_rb,0.25125e-01_rb,0.18843e-01_rb /)
+      kao(:, 2,11, 8) = (/ &
+        & 0.12316e-01_rb,0.20564e-01_rb,0.24014e-01_rb,0.26265e-01_rb,0.27589e-01_rb, &
+        & 0.28021e-01_rb,0.27462e-01_rb,0.25580e-01_rb,0.19341e-01_rb /)
+      kao(:, 3,11, 8) = (/ &
+        & 0.12525e-01_rb,0.20893e-01_rb,0.24494e-01_rb,0.26817e-01_rb,0.28172e-01_rb, &
+        & 0.28578e-01_rb,0.27985e-01_rb,0.26073e-01_rb,0.19811e-01_rb /)
+      kao(:, 4,11, 8) = (/ &
+        & 0.12698e-01_rb,0.21212e-01_rb,0.24971e-01_rb,0.27358e-01_rb,0.28752e-01_rb, &
+        & 0.29196e-01_rb,0.28554e-01_rb,0.26575e-01_rb,0.20254e-01_rb /)
+      kao(:, 5,11, 8) = (/ &
+        & 0.12813e-01_rb,0.21527e-01_rb,0.25428e-01_rb,0.27886e-01_rb,0.29316e-01_rb, &
+        & 0.29794e-01_rb,0.29144e-01_rb,0.27095e-01_rb,0.20669e-01_rb /)
+      kao(:, 1,12, 8) = (/ &
+        & 0.10079e-01_rb,0.17332e-01_rb,0.20326e-01_rb,0.22283e-01_rb,0.23452e-01_rb, &
+        & 0.23840e-01_rb,0.23351e-01_rb,0.21701e-01_rb,0.16150e-01_rb /)
+      kao(:, 2,12, 8) = (/ &
+        & 0.10253e-01_rb,0.17624e-01_rb,0.20738e-01_rb,0.22772e-01_rb,0.23963e-01_rb, &
+        & 0.24343e-01_rb,0.23830e-01_rb,0.22159e-01_rb,0.16605e-01_rb /)
+      kao(:, 3,12, 8) = (/ &
+        & 0.10412e-01_rb,0.17914e-01_rb,0.21165e-01_rb,0.23257e-01_rb,0.24491e-01_rb, &
+        & 0.24907e-01_rb,0.24364e-01_rb,0.22633e-01_rb,0.17031e-01_rb /)
+      kao(:, 4,12, 8) = (/ &
+        & 0.10528e-01_rb,0.18203e-01_rb,0.21585e-01_rb,0.23732e-01_rb,0.25019e-01_rb, &
+        & 0.25466e-01_rb,0.24925e-01_rb,0.23123e-01_rb,0.17440e-01_rb /)
+      kao(:, 5,12, 8) = (/ &
+        & 0.10595e-01_rb,0.18491e-01_rb,0.21987e-01_rb,0.24205e-01_rb,0.25526e-01_rb, &
+        & 0.26013e-01_rb,0.25497e-01_rb,0.23633e-01_rb,0.17825e-01_rb /)
+      kao(:, 1,13, 8) = (/ &
+        & 0.83675e-02_rb,0.14778e-01_rb,0.17455e-01_rb,0.19201e-01_rb,0.20214e-01_rb, &
+        & 0.20545e-01_rb,0.20133e-01_rb,0.18703e-01_rb,0.13810e-01_rb /)
+      kao(:, 2,13, 8) = (/ &
+        & 0.85037e-02_rb,0.15033e-01_rb,0.17824e-01_rb,0.19621e-01_rb,0.20684e-01_rb, &
+        & 0.21052e-01_rb,0.20616e-01_rb,0.19145e-01_rb,0.14218e-01_rb /)
+      kao(:, 3,13, 8) = (/ &
+        & 0.86129e-02_rb,0.15303e-01_rb,0.18197e-01_rb,0.20043e-01_rb,0.21163e-01_rb, &
+        & 0.21577e-01_rb,0.21143e-01_rb,0.19600e-01_rb,0.14617e-01_rb /)
+      kao(:, 4,13, 8) = (/ &
+        & 0.86912e-02_rb,0.15568e-01_rb,0.18565e-01_rb,0.20472e-01_rb,0.21636e-01_rb, &
+        & 0.22091e-01_rb,0.21674e-01_rb,0.20090e-01_rb,0.14991e-01_rb /)
+      kao(:, 5,13, 8) = (/ &
+        & 0.87302e-02_rb,0.15800e-01_rb,0.18917e-01_rb,0.20887e-01_rb,0.22103e-01_rb, &
+        & 0.22594e-01_rb,0.22198e-01_rb,0.20586e-01_rb,0.15351e-01_rb /)
+      kao(:, 1, 1, 9) = (/ &
+        & 0.23898e+00_rb,0.24353e+00_rb,0.26297e+00_rb,0.27410e+00_rb,0.27635e+00_rb, &
+        & 0.27151e+00_rb,0.26001e+00_rb,0.24536e+00_rb,0.24840e+00_rb /)
+      kao(:, 2, 1, 9) = (/ &
+        & 0.23703e+00_rb,0.24151e+00_rb,0.26057e+00_rb,0.27148e+00_rb,0.27415e+00_rb, &
+        & 0.26993e+00_rb,0.25912e+00_rb,0.24520e+00_rb,0.24830e+00_rb /)
+      kao(:, 3, 1, 9) = (/ &
+        & 0.23567e+00_rb,0.23998e+00_rb,0.25868e+00_rb,0.26917e+00_rb,0.27195e+00_rb, &
+        & 0.26833e+00_rb,0.25809e+00_rb,0.24488e+00_rb,0.24801e+00_rb /)
+      kao(:, 4, 1, 9) = (/ &
+        & 0.23478e+00_rb,0.23885e+00_rb,0.25713e+00_rb,0.26729e+00_rb,0.26990e+00_rb, &
+        & 0.26662e+00_rb,0.25696e+00_rb,0.24453e+00_rb,0.24772e+00_rb /)
+      kao(:, 5, 1, 9) = (/ &
+        & 0.23430e+00_rb,0.23810e+00_rb,0.25588e+00_rb,0.26568e+00_rb,0.26809e+00_rb, &
+        & 0.26490e+00_rb,0.25575e+00_rb,0.24412e+00_rb,0.24745e+00_rb /)
+      kao(:, 1, 2, 9) = (/ &
+        & 0.22071e+00_rb,0.23189e+00_rb,0.25280e+00_rb,0.26428e+00_rb,0.26846e+00_rb, &
+        & 0.26544e+00_rb,0.25423e+00_rb,0.23818e+00_rb,0.23526e+00_rb /)
+      kao(:, 2, 2, 9) = (/ &
+        & 0.21924e+00_rb,0.23025e+00_rb,0.25076e+00_rb,0.26194e+00_rb,0.26631e+00_rb, &
+        & 0.26393e+00_rb,0.25356e+00_rb,0.23803e+00_rb,0.23534e+00_rb /)
+      kao(:, 3, 2, 9) = (/ &
+        & 0.21843e+00_rb,0.22915e+00_rb,0.24919e+00_rb,0.26005e+00_rb,0.26425e+00_rb, &
+        & 0.26237e+00_rb,0.25262e+00_rb,0.23788e+00_rb,0.23535e+00_rb /)
+      kao(:, 4, 2, 9) = (/ &
+        & 0.21819e+00_rb,0.22852e+00_rb,0.24801e+00_rb,0.25855e+00_rb,0.26247e+00_rb, &
+        & 0.26079e+00_rb,0.25163e+00_rb,0.23767e+00_rb,0.23532e+00_rb /)
+      kao(:, 5, 2, 9) = (/ &
+        & 0.21836e+00_rb,0.22826e+00_rb,0.24718e+00_rb,0.25726e+00_rb,0.26101e+00_rb, &
+        & 0.25924e+00_rb,0.25059e+00_rb,0.23733e+00_rb,0.23520e+00_rb /)
+      kao(:, 1, 3, 9) = (/ &
+        & 0.20172e+00_rb,0.21909e+00_rb,0.24049e+00_rb,0.25259e+00_rb,0.25809e+00_rb, &
+        & 0.25661e+00_rb,0.24776e+00_rb,0.23048e+00_rb,0.22176e+00_rb /)
+      kao(:, 2, 3, 9) = (/ &
+        & 0.20072e+00_rb,0.21779e+00_rb,0.23872e+00_rb,0.25058e+00_rb,0.25610e+00_rb, &
+        & 0.25527e+00_rb,0.24712e+00_rb,0.23055e+00_rb,0.22209e+00_rb /)
+      kao(:, 3, 3, 9) = (/ &
+        & 0.20047e+00_rb,0.21708e+00_rb,0.23748e+00_rb,0.24902e+00_rb,0.25438e+00_rb, &
+        & 0.25391e+00_rb,0.24629e+00_rb,0.23063e+00_rb,0.22233e+00_rb /)
+      kao(:, 4, 3, 9) = (/ &
+        & 0.20080e+00_rb,0.21687e+00_rb,0.23670e+00_rb,0.24777e+00_rb,0.25298e+00_rb, &
+        & 0.25252e+00_rb,0.24542e+00_rb,0.23053e+00_rb,0.22249e+00_rb /)
+      kao(:, 5, 3, 9) = (/ &
+        & 0.20160e+00_rb,0.21710e+00_rb,0.23623e+00_rb,0.24683e+00_rb,0.25186e+00_rb, &
+        & 0.25126e+00_rb,0.24453e+00_rb,0.23018e+00_rb,0.22257e+00_rb /)
+      kao(:, 1, 4, 9) = (/ &
+        & 0.18271e+00_rb,0.20499e+00_rb,0.22645e+00_rb,0.23921e+00_rb,0.24553e+00_rb, &
+        & 0.24573e+00_rb,0.23916e+00_rb,0.22190e+00_rb,0.20803e+00_rb /)
+      kao(:, 2, 4, 9) = (/ &
+        & 0.18212e+00_rb,0.20407e+00_rb,0.22500e+00_rb,0.23755e+00_rb,0.24385e+00_rb, &
+        & 0.24460e+00_rb,0.23866e+00_rb,0.22223e+00_rb,0.20862e+00_rb /)
+      kao(:, 3, 4, 9) = (/ &
+        & 0.18234e+00_rb,0.20374e+00_rb,0.22412e+00_rb,0.23625e+00_rb,0.24249e+00_rb, &
+        & 0.24341e+00_rb,0.23801e+00_rb,0.22245e+00_rb,0.20916e+00_rb /)
+      kao(:, 4, 4, 9) = (/ &
+        & 0.18327e+00_rb,0.20396e+00_rb,0.22372e+00_rb,0.23535e+00_rb,0.24149e+00_rb, &
+        & 0.24231e+00_rb,0.23730e+00_rb,0.22248e+00_rb,0.20951e+00_rb /)
+      kao(:, 5, 4, 9) = (/ &
+        & 0.18465e+00_rb,0.20466e+00_rb,0.22368e+00_rb,0.23479e+00_rb,0.24072e+00_rb, &
+        & 0.24142e+00_rb,0.23656e+00_rb,0.22226e+00_rb,0.20975e+00_rb /)
+      kao(:, 1, 5, 9) = (/ &
+        & 0.16429e+00_rb,0.19018e+00_rb,0.21120e+00_rb,0.22440e+00_rb,0.23155e+00_rb, &
+        & 0.23328e+00_rb,0.22834e+00_rb,0.21231e+00_rb,0.19389e+00_rb /)
+      kao(:, 2, 5, 9) = (/ &
+        & 0.16411e+00_rb,0.18954e+00_rb,0.21010e+00_rb,0.22306e+00_rb,0.23026e+00_rb, &
+        & 0.23235e+00_rb,0.22803e+00_rb,0.21280e+00_rb,0.19477e+00_rb /)
+      kao(:, 3, 5, 9) = (/ &
+        & 0.16481e+00_rb,0.18955e+00_rb,0.20958e+00_rb,0.22215e+00_rb,0.22928e+00_rb, &
+        & 0.23142e+00_rb,0.22762e+00_rb,0.21318e+00_rb,0.19549e+00_rb /)
+      kao(:, 4, 5, 9) = (/ &
+        & 0.16626e+00_rb,0.19018e+00_rb,0.20952e+00_rb,0.22166e+00_rb,0.22860e+00_rb, &
+        & 0.23069e+00_rb,0.22713e+00_rb,0.21333e+00_rb,0.19598e+00_rb /)
+      kao(:, 5, 5, 9) = (/ &
+        & 0.16812e+00_rb,0.19134e+00_rb,0.20988e+00_rb,0.22152e+00_rb,0.22816e+00_rb, &
+        & 0.23013e+00_rb,0.22663e+00_rb,0.21325e+00_rb,0.19645e+00_rb /)
+      kao(:, 1, 6, 9) = (/ &
+        & 0.14677e+00_rb,0.17503e+00_rb,0.19553e+00_rb,0.20871e+00_rb,0.21680e+00_rb, &
+        & 0.21948e+00_rb,0.21556e+00_rb,0.20158e+00_rb,0.17922e+00_rb /)
+      kao(:, 2, 6, 9) = (/ &
+        & 0.14688e+00_rb,0.17460e+00_rb,0.19479e+00_rb,0.20777e+00_rb,0.21582e+00_rb, &
+        & 0.21883e+00_rb,0.21549e+00_rb,0.20223e+00_rb,0.18038e+00_rb /)
+      kao(:, 3, 6, 9) = (/ &
+        & 0.14791e+00_rb,0.17490e+00_rb,0.19459e+00_rb,0.20727e+00_rb,0.21519e+00_rb, &
+        & 0.21822e+00_rb,0.21533e+00_rb,0.20278e+00_rb,0.18127e+00_rb /)
+      kao(:, 4, 6, 9) = (/ &
+        & 0.14970e+00_rb,0.17592e+00_rb,0.19488e+00_rb,0.20713e+00_rb,0.21485e+00_rb, &
+        & 0.21785e+00_rb,0.21514e+00_rb,0.20305e+00_rb,0.18200e+00_rb /)
+      kao(:, 5, 6, 9) = (/ &
+        & 0.15169e+00_rb,0.17756e+00_rb,0.19568e+00_rb,0.20736e+00_rb,0.21479e+00_rb, &
+        & 0.21766e+00_rb,0.21494e+00_rb,0.20315e+00_rb,0.18271e+00_rb /)
+      kao(:, 1, 7, 9) = (/ &
+        & 0.13000e+00_rb,0.15987e+00_rb,0.17978e+00_rb,0.19301e+00_rb,0.20129e+00_rb, &
+        & 0.20436e+00_rb,0.20140e+00_rb,0.18919e+00_rb,0.16414e+00_rb /)
+      kao(:, 2, 7, 9) = (/ &
+        & 0.13035e+00_rb,0.15964e+00_rb,0.17934e+00_rb,0.19244e+00_rb,0.20068e+00_rb, &
+        & 0.20402e+00_rb,0.20156e+00_rb,0.19006e+00_rb,0.16551e+00_rb /)
+      kao(:, 3, 7, 9) = (/ &
+        & 0.13166e+00_rb,0.16021e+00_rb,0.17944e+00_rb,0.19225e+00_rb,0.20040e+00_rb, &
+        & 0.20381e+00_rb,0.20166e+00_rb,0.19078e+00_rb,0.16662e+00_rb /)
+      kao(:, 4, 7, 9) = (/ &
+        & 0.13361e+00_rb,0.16157e+00_rb,0.18010e+00_rb,0.19248e+00_rb,0.20041e+00_rb, &
+        & 0.20379e+00_rb,0.20172e+00_rb,0.19125e+00_rb,0.16758e+00_rb /)
+      kao(:, 5, 7, 9) = (/ &
+        & 0.13554e+00_rb,0.16344e+00_rb,0.18132e+00_rb,0.19308e+00_rb,0.20075e+00_rb, &
+        & 0.20397e+00_rb,0.20182e+00_rb,0.19159e+00_rb,0.16855e+00_rb /)
+      kao(:, 1, 8, 9) = (/ &
+        & 0.11433e+00_rb,0.14488e+00_rb,0.16431e+00_rb,0.17738e+00_rb,0.18527e+00_rb, &
+        & 0.18841e+00_rb,0.18617e+00_rb,0.17535e+00_rb,0.14893e+00_rb /)
+      kao(:, 2, 8, 9) = (/ &
+        & 0.11487e+00_rb,0.14487e+00_rb,0.16414e+00_rb,0.17713e+00_rb,0.18501e+00_rb, &
+        & 0.18837e+00_rb,0.18658e+00_rb,0.17646e+00_rb,0.15049e+00_rb /)
+      kao(:, 3, 8, 9) = (/ &
+        & 0.11635e+00_rb,0.14571e+00_rb,0.16452e+00_rb,0.17724e+00_rb,0.18506e+00_rb, &
+        & 0.18853e+00_rb,0.18695e+00_rb,0.17741e+00_rb,0.15180e+00_rb /)
+      kao(:, 4, 8, 9) = (/ &
+        & 0.11822e+00_rb,0.14733e+00_rb,0.16549e+00_rb,0.17782e+00_rb,0.18544e+00_rb, &
+        & 0.18888e+00_rb,0.18734e+00_rb,0.17811e+00_rb,0.15295e+00_rb /)
+      kao(:, 5, 8, 9) = (/ &
+        & 0.12009e+00_rb,0.14924e+00_rb,0.16704e+00_rb,0.17887e+00_rb,0.18614e+00_rb, &
+        & 0.18940e+00_rb,0.18775e+00_rb,0.17867e+00_rb,0.15411e+00_rb /)
+      kao(:, 1, 9, 9) = (/ &
+        & 0.10002e+00_rb,0.13043e+00_rb,0.14919e+00_rb,0.16171e+00_rb,0.16913e+00_rb, &
+        & 0.17211e+00_rb,0.17023e+00_rb,0.16067e+00_rb,0.13380e+00_rb /)
+      kao(:, 2, 9, 9) = (/ &
+        & 0.10070e+00_rb,0.13063e+00_rb,0.14927e+00_rb,0.16171e+00_rb,0.16923e+00_rb, &
+        & 0.17237e+00_rb,0.17091e+00_rb,0.16202e+00_rb,0.13552e+00_rb /)
+      kao(:, 3, 9, 9) = (/ &
+        & 0.10219e+00_rb,0.13166e+00_rb,0.14990e+00_rb,0.16210e+00_rb,0.16959e+00_rb, &
+        & 0.17285e+00_rb,0.17161e+00_rb,0.16316e+00_rb,0.13700e+00_rb /)
+      kao(:, 4, 9, 9) = (/ &
+        & 0.10390e+00_rb,0.13341e+00_rb,0.15118e+00_rb,0.16299e+00_rb,0.17031e+00_rb, &
+        & 0.17358e+00_rb,0.17229e+00_rb,0.16405e+00_rb,0.13837e+00_rb /)
+      kao(:, 5, 9, 9) = (/ &
+        & 0.10569e+00_rb,0.13530e+00_rb,0.15298e+00_rb,0.16444e+00_rb,0.17139e+00_rb, &
+        & 0.17443e+00_rb,0.17301e+00_rb,0.16481e+00_rb,0.13976e+00_rb /)
+      kao(:, 1,10, 9) = (/ &
+        & 0.87148e-01_rb,0.11690e+00_rb,0.13450e+00_rb,0.14609e+00_rb,0.15307e+00_rb, &
+        & 0.15588e+00_rb,0.15420e+00_rb,0.14572e+00_rb,0.11917e+00_rb /)
+      kao(:, 2,10, 9) = (/ &
+        & 0.87948e-01_rb,0.11730e+00_rb,0.13485e+00_rb,0.14637e+00_rb,0.15348e+00_rb, &
+        & 0.15645e+00_rb,0.15513e+00_rb,0.14723e+00_rb,0.12103e+00_rb /)
+      kao(:, 3,10, 9) = (/ &
+        & 0.89341e-01_rb,0.11856e+00_rb,0.13575e+00_rb,0.14709e+00_rb,0.15418e+00_rb, &
+        & 0.15726e+00_rb,0.15609e+00_rb,0.14852e+00_rb,0.12266e+00_rb /)
+      kao(:, 4,10, 9) = (/ &
+        & 0.90912e-01_rb,0.12032e+00_rb,0.13733e+00_rb,0.14835e+00_rb,0.15527e+00_rb, &
+        & 0.15827e+00_rb,0.15702e+00_rb,0.14960e+00_rb,0.12424e+00_rb /)
+      kao(:, 5,10, 9) = (/ &
+        & 0.92651e-01_rb,0.12218e+00_rb,0.13930e+00_rb,0.15018e+00_rb,0.15676e+00_rb, &
+        & 0.15942e+00_rb,0.15802e+00_rb,0.15063e+00_rb,0.12583e+00_rb /)
+      kao(:, 1,11, 9) = (/ &
+        & 0.75810e-01_rb,0.10456e+00_rb,0.12069e+00_rb,0.13117e+00_rb,0.13761e+00_rb, &
+        & 0.14039e+00_rb,0.13895e+00_rb,0.13157e+00_rb,0.10610e+00_rb /)
+      kao(:, 2,11, 9) = (/ &
+        & 0.76895e-01_rb,0.10557e+00_rb,0.12151e+00_rb,0.13190e+00_rb,0.13842e+00_rb, &
+        & 0.14134e+00_rb,0.14014e+00_rb,0.13312e+00_rb,0.10796e+00_rb /)
+      kao(:, 3,11, 9) = (/ &
+        & 0.78244e-01_rb,0.10718e+00_rb,0.12298e+00_rb,0.13318e+00_rb,0.13962e+00_rb, &
+        & 0.14250e+00_rb,0.14130e+00_rb,0.13446e+00_rb,0.10971e+00_rb /)
+      kao(:, 4,11, 9) = (/ &
+        & 0.79823e-01_rb,0.10896e+00_rb,0.12491e+00_rb,0.13508e+00_rb,0.14123e+00_rb, &
+        & 0.14382e+00_rb,0.14250e+00_rb,0.13575e+00_rb,0.11145e+00_rb /)
+      kao(:, 5,11, 9) = (/ &
+        & 0.81587e-01_rb,0.11081e+00_rb,0.12696e+00_rb,0.13729e+00_rb,0.14323e+00_rb, &
+        & 0.14541e+00_rb,0.14385e+00_rb,0.13708e+00_rb,0.11322e+00_rb /)
+      kao(:, 1,12, 9) = (/ &
+        & 0.65751e-01_rb,0.93358e-01_rb,0.10793e+00_rb,0.11727e+00_rb,0.12307e+00_rb, &
+        & 0.12565e+00_rb,0.12447e+00_rb,0.11782e+00_rb,0.93944e-01_rb /)
+      kao(:, 2,12, 9) = (/ &
+        & 0.66851e-01_rb,0.94791e-01_rb,0.10927e+00_rb,0.11849e+00_rb,0.12430e+00_rb, &
+        & 0.12692e+00_rb,0.12584e+00_rb,0.11940e+00_rb,0.95825e-01_rb /)
+      kao(:, 3,12, 9) = (/ &
+        & 0.68215e-01_rb,0.96468e-01_rb,0.11113e+00_rb,0.12035e+00_rb,0.12596e+00_rb, &
+        & 0.12837e+00_rb,0.12723e+00_rb,0.12088e+00_rb,0.97697e-01_rb /)
+      kao(:, 4,12, 9) = (/ &
+        & 0.69822e-01_rb,0.98288e-01_rb,0.11318e+00_rb,0.12260e+00_rb,0.12800e+00_rb, &
+        & 0.13009e+00_rb,0.12875e+00_rb,0.12246e+00_rb,0.99558e-01_rb /)
+      kao(:, 5,12, 9) = (/ &
+        & 0.71562e-01_rb,0.10021e+00_rb,0.11536e+00_rb,0.12491e+00_rb,0.13035e+00_rb, &
+        & 0.13218e+00_rb,0.13049e+00_rb,0.12412e+00_rb,0.10142e+00_rb /)
+      kao(:, 1,13, 9) = (/ &
+        & 0.56716e-01_rb,0.83175e-01_rb,0.96227e-01_rb,0.10452e+00_rb,0.10961e+00_rb, &
+        & 0.11186e+00_rb,0.11078e+00_rb,0.10487e+00_rb,0.82822e-01_rb /)
+      kao(:, 2,13, 9) = (/ &
+        & 0.57829e-01_rb,0.84711e-01_rb,0.97973e-01_rb,0.10625e+00_rb,0.11123e+00_rb, &
+        & 0.11339e+00_rb,0.11236e+00_rb,0.10648e+00_rb,0.84781e-01_rb /)
+      kao(:, 3,13, 9) = (/ &
+        & 0.59231e-01_rb,0.86426e-01_rb,0.99996e-01_rb,0.10847e+00_rb,0.11329e+00_rb, &
+        & 0.11518e+00_rb,0.11401e+00_rb,0.10821e+00_rb,0.86727e-01_rb /)
+      kao(:, 4,13, 9) = (/ &
+        & 0.60793e-01_rb,0.88335e-01_rb,0.10220e+00_rb,0.11080e+00_rb,0.11568e+00_rb, &
+        & 0.11734e+00_rb,0.11592e+00_rb,0.11003e+00_rb,0.88652e-01_rb /)
+      kao(:, 5,13, 9) = (/ &
+        & 0.62288e-01_rb,0.90379e-01_rb,0.10449e+00_rb,0.11321e+00_rb,0.11819e+00_rb, &
+        & 0.11985e+00_rb,0.11808e+00_rb,0.11193e+00_rb,0.90608e-01_rb /)
+      kao(:, 1, 1,10) = (/ &
+        & 0.73370e+00_rb,0.66239e+00_rb,0.64754e+00_rb,0.65671e+00_rb,0.64798e+00_rb, &
+        & 0.62443e+00_rb,0.62156e+00_rb,0.59642e+00_rb,0.65694e+00_rb /)
+      kao(:, 2, 1,10) = (/ &
+        & 0.72227e+00_rb,0.65245e+00_rb,0.64115e+00_rb,0.65244e+00_rb,0.64519e+00_rb, &
+        & 0.62272e+00_rb,0.62178e+00_rb,0.59807e+00_rb,0.65734e+00_rb /)
+      kao(:, 3, 1,10) = (/ &
+        & 0.71096e+00_rb,0.64287e+00_rb,0.63490e+00_rb,0.64719e+00_rb,0.64246e+00_rb, &
+        & 0.61928e+00_rb,0.62164e+00_rb,0.59971e+00_rb,0.65975e+00_rb /)
+      kao(:, 4, 1,10) = (/ &
+        & 0.69997e+00_rb,0.63340e+00_rb,0.62893e+00_rb,0.64188e+00_rb,0.63859e+00_rb, &
+        & 0.61601e+00_rb,0.62127e+00_rb,0.59924e+00_rb,0.66003e+00_rb /)
+      kao(:, 5, 1,10) = (/ &
+        & 0.68921e+00_rb,0.62412e+00_rb,0.62274e+00_rb,0.63660e+00_rb,0.63341e+00_rb, &
+        & 0.61371e+00_rb,0.61976e+00_rb,0.59796e+00_rb,0.65874e+00_rb /)
+      kao(:, 1, 2,10) = (/ &
+        & 0.71435e+00_rb,0.65898e+00_rb,0.65791e+00_rb,0.67621e+00_rb,0.66803e+00_rb, &
+        & 0.63952e+00_rb,0.62227e+00_rb,0.60345e+00_rb,0.64341e+00_rb /)
+      kao(:, 2, 2,10) = (/ &
+        & 0.70295e+00_rb,0.64927e+00_rb,0.65209e+00_rb,0.67168e+00_rb,0.66601e+00_rb, &
+        & 0.63761e+00_rb,0.62183e+00_rb,0.60472e+00_rb,0.64489e+00_rb /)
+      kao(:, 3, 2,10) = (/ &
+        & 0.69214e+00_rb,0.64012e+00_rb,0.64637e+00_rb,0.66639e+00_rb,0.66353e+00_rb, &
+        & 0.63487e+00_rb,0.62217e+00_rb,0.60467e+00_rb,0.64521e+00_rb /)
+      kao(:, 4, 2,10) = (/ &
+        & 0.68145e+00_rb,0.63089e+00_rb,0.64022e+00_rb,0.66099e+00_rb,0.65898e+00_rb, &
+        & 0.63312e+00_rb,0.62106e+00_rb,0.60298e+00_rb,0.64380e+00_rb /)
+      kao(:, 5, 2,10) = (/ &
+        & 0.67068e+00_rb,0.62208e+00_rb,0.63390e+00_rb,0.65546e+00_rb,0.65376e+00_rb, &
+        & 0.63122e+00_rb,0.61818e+00_rb,0.60158e+00_rb,0.64256e+00_rb /)
+      kao(:, 1, 3,10) = (/ &
+        & 0.68340e+00_rb,0.64482e+00_rb,0.66290e+00_rb,0.68284e+00_rb,0.67896e+00_rb, &
+        & 0.65800e+00_rb,0.61589e+00_rb,0.60026e+00_rb,0.62209e+00_rb /)
+      kao(:, 2, 3,10) = (/ &
+        & 0.67251e+00_rb,0.63550e+00_rb,0.65818e+00_rb,0.67891e+00_rb,0.67722e+00_rb, &
+        & 0.65575e+00_rb,0.61745e+00_rb,0.60017e+00_rb,0.62247e+00_rb /)
+      kao(:, 3, 3,10) = (/ &
+        & 0.66182e+00_rb,0.62604e+00_rb,0.65231e+00_rb,0.67447e+00_rb,0.67369e+00_rb, &
+        & 0.65314e+00_rb,0.61804e+00_rb,0.59851e+00_rb,0.62084e+00_rb /)
+      kao(:, 4, 3,10) = (/ &
+        & 0.65114e+00_rb,0.61727e+00_rb,0.64569e+00_rb,0.67007e+00_rb,0.66854e+00_rb, &
+        & 0.65146e+00_rb,0.61713e+00_rb,0.59641e+00_rb,0.61922e+00_rb /)
+      kao(:, 5, 3,10) = (/ &
+        & 0.64110e+00_rb,0.60881e+00_rb,0.63926e+00_rb,0.66468e+00_rb,0.66347e+00_rb, &
+        & 0.64931e+00_rb,0.61433e+00_rb,0.59600e+00_rb,0.61885e+00_rb /)
+      kao(:, 1, 4,10) = (/ &
+        & 0.64233e+00_rb,0.62207e+00_rb,0.65747e+00_rb,0.67845e+00_rb,0.68170e+00_rb, &
+        & 0.66374e+00_rb,0.61548e+00_rb,0.59270e+00_rb,0.60473e+00_rb /)
+      kao(:, 2, 4,10) = (/ &
+        & 0.63185e+00_rb,0.61324e+00_rb,0.65237e+00_rb,0.67473e+00_rb,0.67959e+00_rb, &
+        & 0.66215e+00_rb,0.61741e+00_rb,0.59134e+00_rb,0.60361e+00_rb /)
+      kao(:, 3, 4,10) = (/ &
+        & 0.62122e+00_rb,0.60440e+00_rb,0.64660e+00_rb,0.67096e+00_rb,0.67570e+00_rb, &
+        & 0.66004e+00_rb,0.61834e+00_rb,0.58886e+00_rb,0.60079e+00_rb /)
+      kao(:, 4, 4,10) = (/ &
+        & 0.61111e+00_rb,0.59616e+00_rb,0.64034e+00_rb,0.66675e+00_rb,0.67073e+00_rb, &
+        & 0.65786e+00_rb,0.61721e+00_rb,0.58692e+00_rb,0.59978e+00_rb /)
+      kao(:, 5, 4,10) = (/ &
+        & 0.60223e+00_rb,0.58851e+00_rb,0.63401e+00_rb,0.66136e+00_rb,0.66631e+00_rb, &
+        & 0.65503e+00_rb,0.61469e+00_rb,0.58697e+00_rb,0.60040e+00_rb /)
+      kao(:, 1, 5,10) = (/ &
+        & 0.59185e+00_rb,0.59370e+00_rb,0.63992e+00_rb,0.66463e+00_rb,0.67279e+00_rb, &
+        & 0.65610e+00_rb,0.61852e+00_rb,0.58331e+00_rb,0.58763e+00_rb /)
+      kao(:, 2, 5,10) = (/ &
+        & 0.58158e+00_rb,0.58584e+00_rb,0.63500e+00_rb,0.66123e+00_rb,0.67045e+00_rb, &
+        & 0.65504e+00_rb,0.62015e+00_rb,0.58225e+00_rb,0.58623e+00_rb /)
+      kao(:, 3, 5,10) = (/ &
+        & 0.57197e+00_rb,0.57827e+00_rb,0.62932e+00_rb,0.65791e+00_rb,0.66630e+00_rb, &
+        & 0.65353e+00_rb,0.61959e+00_rb,0.58025e+00_rb,0.58483e+00_rb /)
+      kao(:, 4, 5,10) = (/ &
+        & 0.56277e+00_rb,0.57099e+00_rb,0.62369e+00_rb,0.65326e+00_rb,0.66229e+00_rb, &
+        & 0.65156e+00_rb,0.61745e+00_rb,0.57913e+00_rb,0.58544e+00_rb /)
+      kao(:, 5, 5,10) = (/ &
+        & 0.55581e+00_rb,0.56431e+00_rb,0.61807e+00_rb,0.64784e+00_rb,0.65855e+00_rb, &
+        & 0.64845e+00_rb,0.61479e+00_rb,0.57987e+00_rb,0.58646e+00_rb /)
+      kao(:, 1, 6,10) = (/ &
+        & 0.53954e+00_rb,0.56255e+00_rb,0.61290e+00_rb,0.64303e+00_rb,0.64974e+00_rb, &
+        & 0.64176e+00_rb,0.61714e+00_rb,0.56940e+00_rb,0.56484e+00_rb /)
+      kao(:, 2, 6,10) = (/ &
+        & 0.53060e+00_rb,0.55651e+00_rb,0.60789e+00_rb,0.63988e+00_rb,0.64820e+00_rb, &
+        & 0.64042e+00_rb,0.61834e+00_rb,0.56932e+00_rb,0.56418e+00_rb /)
+      kao(:, 3, 6,10) = (/ &
+        & 0.52216e+00_rb,0.54988e+00_rb,0.60294e+00_rb,0.63619e+00_rb,0.64521e+00_rb, &
+        & 0.63878e+00_rb,0.61726e+00_rb,0.56850e+00_rb,0.56474e+00_rb /)
+      kao(:, 4, 6,10) = (/ &
+        & 0.51474e+00_rb,0.54331e+00_rb,0.59815e+00_rb,0.63165e+00_rb,0.64200e+00_rb, &
+        & 0.63625e+00_rb,0.61431e+00_rb,0.56860e+00_rb,0.56684e+00_rb /)
+      kao(:, 5, 6,10) = (/ &
+        & 0.51206e+00_rb,0.53704e+00_rb,0.59303e+00_rb,0.62695e+00_rb,0.63853e+00_rb, &
+        & 0.63290e+00_rb,0.61169e+00_rb,0.57018e+00_rb,0.56804e+00_rb /)
+      kao(:, 1, 7,10) = (/ &
+        & 0.49102e+00_rb,0.52896e+00_rb,0.58005e+00_rb,0.60940e+00_rb,0.62179e+00_rb, &
+        & 0.62452e+00_rb,0.60693e+00_rb,0.55666e+00_rb,0.53830e+00_rb /)
+      kao(:, 2, 7,10) = (/ &
+        & 0.48351e+00_rb,0.52394e+00_rb,0.57551e+00_rb,0.60647e+00_rb,0.62043e+00_rb, &
+        & 0.62318e+00_rb,0.60808e+00_rb,0.55693e+00_rb,0.53902e+00_rb /)
+      kao(:, 3, 7,10) = (/ &
+        & 0.47604e+00_rb,0.51848e+00_rb,0.57124e+00_rb,0.60324e+00_rb,0.61835e+00_rb, &
+        & 0.62080e+00_rb,0.60698e+00_rb,0.55691e+00_rb,0.54116e+00_rb /)
+      kao(:, 4, 7,10) = (/ &
+        & 0.47121e+00_rb,0.51294e+00_rb,0.56659e+00_rb,0.59937e+00_rb,0.61527e+00_rb, &
+        & 0.61807e+00_rb,0.60502e+00_rb,0.55819e+00_rb,0.54361e+00_rb /)
+      kao(:, 5, 7,10) = (/ &
+        & 0.47306e+00_rb,0.50884e+00_rb,0.56199e+00_rb,0.59548e+00_rb,0.61135e+00_rb, &
+        & 0.61474e+00_rb,0.60372e+00_rb,0.56024e+00_rb,0.54444e+00_rb /)
+      kao(:, 1, 8,10) = (/ &
+        & 0.44396e+00_rb,0.49532e+00_rb,0.54249e+00_rb,0.57145e+00_rb,0.59186e+00_rb, &
+        & 0.60060e+00_rb,0.58785e+00_rb,0.54441e+00_rb,0.50913e+00_rb /)
+      kao(:, 2, 8,10) = (/ &
+        & 0.43707e+00_rb,0.49048e+00_rb,0.53914e+00_rb,0.56868e+00_rb,0.59107e+00_rb, &
+        & 0.60049e+00_rb,0.58883e+00_rb,0.54507e+00_rb,0.51101e+00_rb /)
+      kao(:, 3, 8,10) = (/ &
+        & 0.43098e+00_rb,0.48531e+00_rb,0.53541e+00_rb,0.56592e+00_rb,0.58911e+00_rb, &
+        & 0.59846e+00_rb,0.58812e+00_rb,0.54578e+00_rb,0.51441e+00_rb /)
+      kao(:, 4, 8,10) = (/ &
+        & 0.42957e+00_rb,0.48093e+00_rb,0.53173e+00_rb,0.56262e+00_rb,0.58636e+00_rb, &
+        & 0.59589e+00_rb,0.58708e+00_rb,0.54776e+00_rb,0.51773e+00_rb /)
+      kao(:, 5, 8,10) = (/ &
+        & 0.43487e+00_rb,0.48035e+00_rb,0.52822e+00_rb,0.55903e+00_rb,0.58272e+00_rb, &
+        & 0.59353e+00_rb,0.58697e+00_rb,0.54985e+00_rb,0.51918e+00_rb /)
+      kao(:, 1, 9,10) = (/ &
+        & 0.39531e+00_rb,0.46021e+00_rb,0.50510e+00_rb,0.53588e+00_rb,0.55895e+00_rb, &
+        & 0.56979e+00_rb,0.56191e+00_rb,0.52659e+00_rb,0.47758e+00_rb /)
+      kao(:, 2, 9,10) = (/ &
+        & 0.38905e+00_rb,0.45517e+00_rb,0.50180e+00_rb,0.53416e+00_rb,0.55846e+00_rb, &
+        & 0.57047e+00_rb,0.56355e+00_rb,0.52717e+00_rb,0.48088e+00_rb /)
+      kao(:, 3, 9,10) = (/ &
+        & 0.38493e+00_rb,0.45067e+00_rb,0.49854e+00_rb,0.53220e+00_rb,0.55699e+00_rb, &
+        & 0.56934e+00_rb,0.56332e+00_rb,0.52868e+00_rb,0.48536e+00_rb /)
+      kao(:, 4, 9,10) = (/ &
+        & 0.38723e+00_rb,0.44786e+00_rb,0.49546e+00_rb,0.52928e+00_rb,0.55471e+00_rb, &
+        & 0.56730e+00_rb,0.56372e+00_rb,0.53178e+00_rb,0.48902e+00_rb /)
+      kao(:, 5, 9,10) = (/ &
+        & 0.39433e+00_rb,0.45054e+00_rb,0.49350e+00_rb,0.52621e+00_rb,0.55192e+00_rb, &
+        & 0.56604e+00_rb,0.56481e+00_rb,0.53491e+00_rb,0.49067e+00_rb /)
+      kao(:, 1,10,10) = (/ &
+        & 0.34716e+00_rb,0.41992e+00_rb,0.46841e+00_rb,0.50264e+00_rb,0.52377e+00_rb, &
+        & 0.53462e+00_rb,0.53096e+00_rb,0.50215e+00_rb,0.44481e+00_rb /)
+      kao(:, 2,10,10) = (/ &
+        & 0.34195e+00_rb,0.41601e+00_rb,0.46506e+00_rb,0.50165e+00_rb,0.52385e+00_rb, &
+        & 0.53574e+00_rb,0.53310e+00_rb,0.50401e+00_rb,0.44924e+00_rb /)
+      kao(:, 3,10,10) = (/ &
+        & 0.34072e+00_rb,0.41255e+00_rb,0.46265e+00_rb,0.50007e+00_rb,0.52273e+00_rb, &
+        & 0.53553e+00_rb,0.53434e+00_rb,0.50668e+00_rb,0.45414e+00_rb /)
+      kao(:, 4,10,10) = (/ &
+        & 0.34572e+00_rb,0.41258e+00_rb,0.46029e+00_rb,0.49770e+00_rb,0.52100e+00_rb, &
+        & 0.53482e+00_rb,0.53633e+00_rb,0.51056e+00_rb,0.45768e+00_rb /)
+      kao(:, 5,10,10) = (/ &
+        & 0.35242e+00_rb,0.41826e+00_rb,0.46028e+00_rb,0.49520e+00_rb,0.51927e+00_rb, &
+        & 0.53500e+00_rb,0.53892e+00_rb,0.51405e+00_rb,0.45947e+00_rb /)
+      kao(:, 1,11,10) = (/ &
+        & 0.30160e+00_rb,0.37714e+00_rb,0.42971e+00_rb,0.46717e+00_rb,0.48926e+00_rb, &
+        & 0.49871e+00_rb,0.49756e+00_rb,0.47436e+00_rb,0.41261e+00_rb /)
+      kao(:, 2,11,10) = (/ &
+        & 0.29962e+00_rb,0.37395e+00_rb,0.42779e+00_rb,0.46654e+00_rb,0.48929e+00_rb, &
+        & 0.49998e+00_rb,0.50016e+00_rb,0.47769e+00_rb,0.41819e+00_rb /)
+      kao(:, 3,11,10) = (/ &
+        & 0.30371e+00_rb,0.37339e+00_rb,0.42611e+00_rb,0.46502e+00_rb,0.48821e+00_rb, &
+        & 0.50080e+00_rb,0.50323e+00_rb,0.48215e+00_rb,0.42266e+00_rb /)
+      kao(:, 4,11,10) = (/ &
+        & 0.30955e+00_rb,0.37857e+00_rb,0.42639e+00_rb,0.46320e+00_rb,0.48745e+00_rb, &
+        & 0.50213e+00_rb,0.50694e+00_rb,0.48639e+00_rb,0.42570e+00_rb /)
+      kao(:, 5,11,10) = (/ &
+        & 0.31511e+00_rb,0.38606e+00_rb,0.43107e+00_rb,0.46346e+00_rb,0.48731e+00_rb, &
+        & 0.50398e+00_rb,0.50975e+00_rb,0.48945e+00_rb,0.42790e+00_rb /)
+      kao(:, 1,12,10) = (/ &
+        & 0.26311e+00_rb,0.33847e+00_rb,0.39159e+00_rb,0.42993e+00_rb,0.45370e+00_rb, &
+        & 0.46372e+00_rb,0.46279e+00_rb,0.44427e+00_rb,0.37907e+00_rb /)
+      kao(:, 2,12,10) = (/ &
+        & 0.26583e+00_rb,0.33679e+00_rb,0.39073e+00_rb,0.42938e+00_rb,0.45415e+00_rb, &
+        & 0.46569e+00_rb,0.46639e+00_rb,0.44945e+00_rb,0.38485e+00_rb /)
+      kao(:, 3,12,10) = (/ &
+        & 0.27082e+00_rb,0.34071e+00_rb,0.39077e+00_rb,0.42842e+00_rb,0.45412e+00_rb, &
+        & 0.46820e+00_rb,0.47089e+00_rb,0.45477e+00_rb,0.38900e+00_rb /)
+      kao(:, 4,12,10) = (/ &
+        & 0.27574e+00_rb,0.34733e+00_rb,0.39532e+00_rb,0.42923e+00_rb,0.45504e+00_rb, &
+        & 0.47097e+00_rb,0.47486e+00_rb,0.45848e+00_rb,0.39247e+00_rb /)
+      kao(:, 5,12,10) = (/ &
+        & 0.28099e+00_rb,0.35386e+00_rb,0.40190e+00_rb,0.43447e+00_rb,0.45757e+00_rb, &
+        & 0.47294e+00_rb,0.47760e+00_rb,0.46125e+00_rb,0.39629e+00_rb /)
+      kao(:, 1,13,10) = (/ &
+        & 0.23133e+00_rb,0.30448e+00_rb,0.35592e+00_rb,0.39245e+00_rb,0.41703e+00_rb, &
+        & 0.42944e+00_rb,0.42838e+00_rb,0.41191e+00_rb,0.34405e+00_rb /)
+      kao(:, 2,13,10) = (/ &
+        & 0.23569e+00_rb,0.30675e+00_rb,0.35574e+00_rb,0.39238e+00_rb,0.41854e+00_rb, &
+        & 0.43261e+00_rb,0.43319e+00_rb,0.41851e+00_rb,0.34979e+00_rb /)
+      kao(:, 3,13,10) = (/ &
+        & 0.23995e+00_rb,0.31287e+00_rb,0.35958e+00_rb,0.39339e+00_rb,0.42025e+00_rb, &
+        & 0.43649e+00_rb,0.43814e+00_rb,0.42387e+00_rb,0.35427e+00_rb /)
+      kao(:, 4,13,10) = (/ &
+        & 0.24491e+00_rb,0.31868e+00_rb,0.36597e+00_rb,0.39887e+00_rb,0.42348e+00_rb, &
+        & 0.43960e+00_rb,0.44180e+00_rb,0.42781e+00_rb,0.35946e+00_rb /)
+      kao(:, 5,13,10) = (/ &
+        & 0.25204e+00_rb,0.32443e+00_rb,0.37244e+00_rb,0.40709e+00_rb,0.42924e+00_rb, &
+        & 0.44176e+00_rb,0.44465e+00_rb,0.43196e+00_rb,0.36481e+00_rb /)
+      kao(:, 1, 1,11) = (/ &
+        & 0.10293e+01_rb,0.90445e+00_rb,0.86137e+00_rb,0.83022e+00_rb,0.84086e+00_rb, &
+        & 0.86548e+00_rb,0.85587e+00_rb,0.85325e+00_rb,0.97261e+00_rb /)
+      kao(:, 2, 1,11) = (/ &
+        & 0.10191e+01_rb,0.89556e+00_rb,0.85472e+00_rb,0.82839e+00_rb,0.83827e+00_rb, &
+        & 0.86712e+00_rb,0.85626e+00_rb,0.85096e+00_rb,0.97088e+00_rb /)
+      kao(:, 3, 1,11) = (/ &
+        & 0.10070e+01_rb,0.88513e+00_rb,0.84750e+00_rb,0.82570e+00_rb,0.83354e+00_rb, &
+        & 0.86668e+00_rb,0.85692e+00_rb,0.84837e+00_rb,0.96710e+00_rb /)
+      kao(:, 4, 1,11) = (/ &
+        & 0.99477e+00_rb,0.87449e+00_rb,0.83958e+00_rb,0.82146e+00_rb,0.82897e+00_rb, &
+        & 0.86436e+00_rb,0.85744e+00_rb,0.84703e+00_rb,0.96450e+00_rb /)
+      kao(:, 5, 1,11) = (/ &
+        & 0.98126e+00_rb,0.86272e+00_rb,0.83128e+00_rb,0.81555e+00_rb,0.82401e+00_rb, &
+        & 0.85929e+00_rb,0.85825e+00_rb,0.84707e+00_rb,0.96358e+00_rb /)
+      kao(:, 1, 2,11) = (/ &
+        & 0.10475e+01_rb,0.93151e+00_rb,0.89830e+00_rb,0.88420e+00_rb,0.87933e+00_rb, &
+        & 0.87846e+00_rb,0.87987e+00_rb,0.86086e+00_rb,0.97265e+00_rb /)
+      kao(:, 2, 2,11) = (/ &
+        & 0.10370e+01_rb,0.92196e+00_rb,0.89215e+00_rb,0.88284e+00_rb,0.87783e+00_rb, &
+        & 0.88073e+00_rb,0.88059e+00_rb,0.85882e+00_rb,0.96972e+00_rb /)
+      kao(:, 3, 2,11) = (/ &
+        & 0.10244e+01_rb,0.91082e+00_rb,0.88511e+00_rb,0.87976e+00_rb,0.87455e+00_rb, &
+        & 0.88046e+00_rb,0.88070e+00_rb,0.85623e+00_rb,0.96599e+00_rb /)
+      kao(:, 4, 2,11) = (/ &
+        & 0.10111e+01_rb,0.89911e+00_rb,0.87761e+00_rb,0.87481e+00_rb,0.87132e+00_rb, &
+        & 0.87692e+00_rb,0.88074e+00_rb,0.85652e+00_rb,0.96500e+00_rb /)
+      kao(:, 5, 2,11) = (/ &
+        & 0.99734e+00_rb,0.88696e+00_rb,0.86940e+00_rb,0.86908e+00_rb,0.86706e+00_rb, &
+        & 0.87191e+00_rb,0.88156e+00_rb,0.85742e+00_rb,0.96567e+00_rb /)
+      kao(:, 1, 3,11) = (/ &
+        & 0.10481e+01_rb,0.94949e+00_rb,0.92754e+00_rb,0.93134e+00_rb,0.92020e+00_rb, &
+        & 0.88963e+00_rb,0.89353e+00_rb,0.87368e+00_rb,0.96341e+00_rb /)
+      kao(:, 2, 3,11) = (/ &
+        & 0.10364e+01_rb,0.93961e+00_rb,0.92141e+00_rb,0.92962e+00_rb,0.91951e+00_rb, &
+        & 0.89266e+00_rb,0.89347e+00_rb,0.87218e+00_rb,0.95995e+00_rb /)
+      kao(:, 3, 3,11) = (/ &
+        & 0.10237e+01_rb,0.92877e+00_rb,0.91434e+00_rb,0.92574e+00_rb,0.91740e+00_rb, &
+        & 0.89302e+00_rb,0.89281e+00_rb,0.87167e+00_rb,0.95907e+00_rb /)
+      kao(:, 4, 3,11) = (/ &
+        & 0.10107e+01_rb,0.91711e+00_rb,0.90716e+00_rb,0.92023e+00_rb,0.91517e+00_rb, &
+        & 0.89037e+00_rb,0.89222e+00_rb,0.87266e+00_rb,0.95928e+00_rb /)
+      kao(:, 5, 3,11) = (/ &
+        & 0.99633e+00_rb,0.90470e+00_rb,0.89927e+00_rb,0.91439e+00_rb,0.91120e+00_rb, &
+        & 0.88600e+00_rb,0.89266e+00_rb,0.87273e+00_rb,0.95886e+00_rb /)
+      kao(:, 1, 4,11) = (/ &
+        & 0.10264e+01_rb,0.95071e+00_rb,0.94674e+00_rb,0.96322e+00_rb,0.95099e+00_rb, &
+        & 0.91374e+00_rb,0.89446e+00_rb,0.87855e+00_rb,0.93628e+00_rb /)
+      kao(:, 2, 4,11) = (/ &
+        & 0.10149e+01_rb,0.94036e+00_rb,0.94196e+00_rb,0.96089e+00_rb,0.95153e+00_rb, &
+        & 0.91752e+00_rb,0.89401e+00_rb,0.87842e+00_rb,0.93496e+00_rb /)
+      kao(:, 3, 4,11) = (/ &
+        & 0.10022e+01_rb,0.92957e+00_rb,0.93566e+00_rb,0.95688e+00_rb,0.95066e+00_rb, &
+        & 0.91784e+00_rb,0.89284e+00_rb,0.87926e+00_rb,0.93586e+00_rb /)
+      kao(:, 4, 4,11) = (/ &
+        & 0.98847e+00_rb,0.91773e+00_rb,0.92854e+00_rb,0.95134e+00_rb,0.94862e+00_rb, &
+        & 0.91547e+00_rb,0.89366e+00_rb,0.87951e+00_rb,0.93591e+00_rb /)
+      kao(:, 5, 4,11) = (/ &
+        & 0.97390e+00_rb,0.90550e+00_rb,0.92045e+00_rb,0.94604e+00_rb,0.94431e+00_rb, &
+        & 0.91218e+00_rb,0.89395e+00_rb,0.87858e+00_rb,0.93476e+00_rb /)
+      kao(:, 1, 5,11) = (/ &
+        & 0.98609e+00_rb,0.93424e+00_rb,0.95643e+00_rb,0.97684e+00_rb,0.96999e+00_rb, &
+        & 0.93774e+00_rb,0.88693e+00_rb,0.86915e+00_rb,0.90145e+00_rb /)
+      kao(:, 2, 5,11) = (/ &
+        & 0.97412e+00_rb,0.92401e+00_rb,0.95137e+00_rb,0.97507e+00_rb,0.97005e+00_rb, &
+        & 0.94299e+00_rb,0.88698e+00_rb,0.86947e+00_rb,0.90218e+00_rb /)
+      kao(:, 3, 5,11) = (/ &
+        & 0.96114e+00_rb,0.91242e+00_rb,0.94531e+00_rb,0.97096e+00_rb,0.96958e+00_rb, &
+        & 0.94325e+00_rb,0.88812e+00_rb,0.86965e+00_rb,0.90220e+00_rb /)
+      kao(:, 4, 5,11) = (/ &
+        & 0.94742e+00_rb,0.90067e+00_rb,0.93796e+00_rb,0.96622e+00_rb,0.96802e+00_rb, &
+        & 0.94082e+00_rb,0.89013e+00_rb,0.86974e+00_rb,0.90156e+00_rb /)
+      kao(:, 5, 5,11) = (/ &
+        & 0.93336e+00_rb,0.88866e+00_rb,0.92975e+00_rb,0.96102e+00_rb,0.96365e+00_rb, &
+        & 0.93814e+00_rb,0.89133e+00_rb,0.86813e+00_rb,0.89955e+00_rb /)
+      kao(:, 1, 6,11) = (/ &
+        & 0.92984e+00_rb,0.90494e+00_rb,0.94972e+00_rb,0.97425e+00_rb,0.97662e+00_rb, &
+        & 0.94556e+00_rb,0.88351e+00_rb,0.85584e+00_rb,0.87463e+00_rb /)
+      kao(:, 2, 6,11) = (/ &
+        & 0.91725e+00_rb,0.89370e+00_rb,0.94535e+00_rb,0.97222e+00_rb,0.97680e+00_rb, &
+        & 0.95110e+00_rb,0.88518e+00_rb,0.85597e+00_rb,0.87435e+00_rb /)
+      kao(:, 3, 6,11) = (/ &
+        & 0.90427e+00_rb,0.88250e+00_rb,0.93903e+00_rb,0.96844e+00_rb,0.97606e+00_rb, &
+        & 0.95304e+00_rb,0.88753e+00_rb,0.85497e+00_rb,0.87307e+00_rb /)
+      kao(:, 4, 6,11) = (/ &
+        & 0.89063e+00_rb,0.87150e+00_rb,0.93110e+00_rb,0.96495e+00_rb,0.97386e+00_rb, &
+        & 0.95208e+00_rb,0.89056e+00_rb,0.85380e+00_rb,0.87067e+00_rb /)
+      kao(:, 5, 6,11) = (/ &
+        & 0.87675e+00_rb,0.86027e+00_rb,0.92261e+00_rb,0.96002e+00_rb,0.96930e+00_rb, &
+        & 0.94959e+00_rb,0.89201e+00_rb,0.85155e+00_rb,0.86905e+00_rb /)
+      kao(:, 1, 7,11) = (/ &
+        & 0.85919e+00_rb,0.86562e+00_rb,0.92649e+00_rb,0.95965e+00_rb,0.96523e+00_rb, &
+        & 0.93650e+00_rb,0.88529e+00_rb,0.84057e+00_rb,0.84722e+00_rb /)
+      kao(:, 2, 7,11) = (/ &
+        & 0.84717e+00_rb,0.85599e+00_rb,0.92166e+00_rb,0.95676e+00_rb,0.96677e+00_rb, &
+        & 0.94156e+00_rb,0.88807e+00_rb,0.84087e+00_rb,0.84785e+00_rb /)
+      kao(:, 3, 7,11) = (/ &
+        & 0.83473e+00_rb,0.84556e+00_rb,0.91525e+00_rb,0.95342e+00_rb,0.96579e+00_rb, &
+        & 0.94506e+00_rb,0.89084e+00_rb,0.83990e+00_rb,0.84680e+00_rb /)
+      kao(:, 4, 7,11) = (/ &
+        & 0.82211e+00_rb,0.83508e+00_rb,0.90782e+00_rb,0.94944e+00_rb,0.96296e+00_rb, &
+        & 0.94530e+00_rb,0.89295e+00_rb,0.83822e+00_rb,0.84533e+00_rb /)
+      kao(:, 5, 7,11) = (/ &
+        & 0.80945e+00_rb,0.82542e+00_rb,0.90011e+00_rb,0.94513e+00_rb,0.95957e+00_rb, &
+        & 0.94356e+00_rb,0.89326e+00_rb,0.83636e+00_rb,0.84582e+00_rb /)
+      kao(:, 1, 8,11) = (/ &
+        & 0.78535e+00_rb,0.81958e+00_rb,0.89069e+00_rb,0.92943e+00_rb,0.93702e+00_rb, &
+        & 0.91895e+00_rb,0.88182e+00_rb,0.81942e+00_rb,0.81355e+00_rb /)
+      kao(:, 2, 8,11) = (/ &
+        & 0.77455e+00_rb,0.81120e+00_rb,0.88449e+00_rb,0.92737e+00_rb,0.93847e+00_rb, &
+        & 0.92275e+00_rb,0.88568e+00_rb,0.82187e+00_rb,0.81529e+00_rb /)
+      kao(:, 3, 8,11) = (/ &
+        & 0.76320e+00_rb,0.80325e+00_rb,0.87799e+00_rb,0.92413e+00_rb,0.93785e+00_rb, &
+        & 0.92584e+00_rb,0.88848e+00_rb,0.82246e+00_rb,0.81526e+00_rb /)
+      kao(:, 4, 8,11) = (/ &
+        & 0.75209e+00_rb,0.79461e+00_rb,0.87173e+00_rb,0.92037e+00_rb,0.93562e+00_rb, &
+        & 0.92659e+00_rb,0.89042e+00_rb,0.82203e+00_rb,0.81583e+00_rb /)
+      kao(:, 5, 8,11) = (/ &
+        & 0.74191e+00_rb,0.78569e+00_rb,0.86500e+00_rb,0.91565e+00_rb,0.93275e+00_rb, &
+        & 0.92508e+00_rb,0.89021e+00_rb,0.82215e+00_rb,0.81833e+00_rb /)
+      kao(:, 1, 9,11) = (/ &
+        & 0.71539e+00_rb,0.77045e+00_rb,0.84442e+00_rb,0.88339e+00_rb,0.89968e+00_rb, &
+        & 0.89536e+00_rb,0.86841e+00_rb,0.79955e+00_rb,0.77318e+00_rb /)
+      kao(:, 2, 9,11) = (/ &
+        & 0.70564e+00_rb,0.76424e+00_rb,0.83867e+00_rb,0.88222e+00_rb,0.90019e+00_rb, &
+        & 0.89929e+00_rb,0.87308e+00_rb,0.80390e+00_rb,0.77664e+00_rb /)
+      kao(:, 3, 9,11) = (/ &
+        & 0.69566e+00_rb,0.75811e+00_rb,0.83280e+00_rb,0.87940e+00_rb,0.90026e+00_rb, &
+        & 0.90222e+00_rb,0.87663e+00_rb,0.80593e+00_rb,0.77834e+00_rb /)
+      kao(:, 4, 9,11) = (/ &
+        & 0.68611e+00_rb,0.75067e+00_rb,0.82727e+00_rb,0.87623e+00_rb,0.89845e+00_rb, &
+        & 0.90248e+00_rb,0.87886e+00_rb,0.80698e+00_rb,0.78085e+00_rb /)
+      kao(:, 5, 9,11) = (/ &
+        & 0.67924e+00_rb,0.74336e+00_rb,0.82173e+00_rb,0.87192e+00_rb,0.89575e+00_rb, &
+        & 0.90118e+00_rb,0.87929e+00_rb,0.80840e+00_rb,0.78556e+00_rb /)
+      kao(:, 1,10,11) = (/ &
+        & 0.64750e+00_rb,0.72291e+00_rb,0.79049e+00_rb,0.83093e+00_rb,0.85723e+00_rb, &
+        & 0.86420e+00_rb,0.84410e+00_rb,0.78062e+00_rb,0.72995e+00_rb /)
+      kao(:, 2,10,11) = (/ &
+        & 0.63786e+00_rb,0.71701e+00_rb,0.78689e+00_rb,0.82920e+00_rb,0.85838e+00_rb, &
+        & 0.86903e+00_rb,0.84994e+00_rb,0.78581e+00_rb,0.73484e+00_rb /)
+      kao(:, 3,10,11) = (/ &
+        & 0.62879e+00_rb,0.71055e+00_rb,0.78212e+00_rb,0.82630e+00_rb,0.85919e+00_rb, &
+        & 0.87234e+00_rb,0.85358e+00_rb,0.78925e+00_rb,0.73873e+00_rb /)
+      kao(:, 4,10,11) = (/ &
+        & 0.62087e+00_rb,0.70389e+00_rb,0.77761e+00_rb,0.82356e+00_rb,0.85812e+00_rb, &
+        & 0.87281e+00_rb,0.85602e+00_rb,0.79174e+00_rb,0.74394e+00_rb /)
+      kao(:, 5,10,11) = (/ &
+        & 0.61947e+00_rb,0.69759e+00_rb,0.77360e+00_rb,0.82013e+00_rb,0.85542e+00_rb, &
+        & 0.87157e+00_rb,0.85709e+00_rb,0.79529e+00_rb,0.75052e+00_rb /)
+      kao(:, 1,11,11) = (/ &
+        & 0.57317e+00_rb,0.67082e+00_rb,0.73559e+00_rb,0.77934e+00_rb,0.81170e+00_rb, &
+        & 0.82582e+00_rb,0.81431e+00_rb,0.75887e+00_rb,0.68710e+00_rb /)
+      kao(:, 2,11,11) = (/ &
+        & 0.56447e+00_rb,0.66437e+00_rb,0.73216e+00_rb,0.77740e+00_rb,0.81370e+00_rb, &
+        & 0.83183e+00_rb,0.81926e+00_rb,0.76438e+00_rb,0.69316e+00_rb /)
+      kao(:, 3,11,11) = (/ &
+        & 0.55710e+00_rb,0.65798e+00_rb,0.72792e+00_rb,0.77609e+00_rb,0.81480e+00_rb, &
+        & 0.83377e+00_rb,0.82304e+00_rb,0.76833e+00_rb,0.70018e+00_rb /)
+      kao(:, 4,11,11) = (/ &
+        & 0.55630e+00_rb,0.65257e+00_rb,0.72437e+00_rb,0.77329e+00_rb,0.81397e+00_rb, &
+        & 0.83437e+00_rb,0.82566e+00_rb,0.77320e+00_rb,0.70886e+00_rb /)
+      kao(:, 5,11,11) = (/ &
+        & 0.56411e+00_rb,0.65194e+00_rb,0.72119e+00_rb,0.77017e+00_rb,0.81118e+00_rb, &
+        & 0.83405e+00_rb,0.82785e+00_rb,0.77913e+00_rb,0.71658e+00_rb /)
+      kao(:, 1,12,11) = (/ &
+        & 0.50093e+00_rb,0.61265e+00_rb,0.68222e+00_rb,0.73081e+00_rb,0.76376e+00_rb, &
+        & 0.78196e+00_rb,0.77611e+00_rb,0.73046e+00_rb,0.64374e+00_rb /)
+      kao(:, 2,12,11) = (/ &
+        & 0.49374e+00_rb,0.60693e+00_rb,0.67860e+00_rb,0.73087e+00_rb,0.76701e+00_rb, &
+        & 0.78657e+00_rb,0.78196e+00_rb,0.73646e+00_rb,0.65183e+00_rb /)
+      kao(:, 3,12,11) = (/ &
+        & 0.49262e+00_rb,0.60232e+00_rb,0.67517e+00_rb,0.73017e+00_rb,0.76805e+00_rb, &
+        & 0.78863e+00_rb,0.78651e+00_rb,0.74261e+00_rb,0.66205e+00_rb /)
+      kao(:, 4,12,11) = (/ &
+        & 0.49989e+00_rb,0.60234e+00_rb,0.67259e+00_rb,0.72790e+00_rb,0.76753e+00_rb, &
+        & 0.79017e+00_rb,0.79054e+00_rb,0.75027e+00_rb,0.67174e+00_rb /)
+      kao(:, 5,12,11) = (/ &
+        & 0.51177e+00_rb,0.60963e+00_rb,0.67313e+00_rb,0.72489e+00_rb,0.76606e+00_rb, &
+        & 0.79187e+00_rb,0.79524e+00_rb,0.75809e+00_rb,0.67955e+00_rb /)
+      kao(:, 1,13,11) = (/ &
+        & 0.43610e+00_rb,0.55280e+00_rb,0.62805e+00_rb,0.68236e+00_rb,0.71726e+00_rb, &
+        & 0.73439e+00_rb,0.73316e+00_rb,0.69581e+00_rb,0.60098e+00_rb /)
+      kao(:, 2,13,11) = (/ &
+        & 0.43332e+00_rb,0.54879e+00_rb,0.62602e+00_rb,0.68387e+00_rb,0.71981e+00_rb, &
+        & 0.73863e+00_rb,0.74004e+00_rb,0.70395e+00_rb,0.61188e+00_rb /)
+      kao(:, 3,13,11) = (/ &
+        & 0.43938e+00_rb,0.54819e+00_rb,0.62420e+00_rb,0.68392e+00_rb,0.72120e+00_rb, &
+        & 0.74159e+00_rb,0.74634e+00_rb,0.71286e+00_rb,0.62343e+00_rb /)
+      kao(:, 4,13,11) = (/ &
+        & 0.44997e+00_rb,0.55515e+00_rb,0.62479e+00_rb,0.68255e+00_rb,0.72173e+00_rb, &
+        & 0.74510e+00_rb,0.75297e+00_rb,0.72278e+00_rb,0.63265e+00_rb /)
+      kao(:, 5,13,11) = (/ &
+        & 0.46055e+00_rb,0.56787e+00_rb,0.63110e+00_rb,0.68248e+00_rb,0.72225e+00_rb, &
+        & 0.74921e+00_rb,0.75987e+00_rb,0.73098e+00_rb,0.64026e+00_rb /)
+      kao(:, 1, 1,12) = (/ &
+        & 0.14171e+01_rb,0.12412e+01_rb,0.11453e+01_rb,0.11122e+01_rb,0.11253e+01_rb, &
+        & 0.11573e+01_rb,0.11791e+01_rb,0.12973e+01_rb,0.14638e+01_rb /)
+      kao(:, 2, 1,12) = (/ &
+        & 0.14090e+01_rb,0.12342e+01_rb,0.11388e+01_rb,0.11095e+01_rb,0.11322e+01_rb, &
+        & 0.11607e+01_rb,0.11781e+01_rb,0.12938e+01_rb,0.14611e+01_rb /)
+      kao(:, 3, 1,12) = (/ &
+        & 0.13994e+01_rb,0.12258e+01_rb,0.11299e+01_rb,0.11046e+01_rb,0.11339e+01_rb, &
+        & 0.11641e+01_rb,0.11762e+01_rb,0.12907e+01_rb,0.14569e+01_rb /)
+      kao(:, 4, 1,12) = (/ &
+        & 0.13872e+01_rb,0.12151e+01_rb,0.11205e+01_rb,0.10983e+01_rb,0.11321e+01_rb, &
+        & 0.11655e+01_rb,0.11746e+01_rb,0.12884e+01_rb,0.14537e+01_rb /)
+      kao(:, 5, 1,12) = (/ &
+        & 0.13737e+01_rb,0.12034e+01_rb,0.11101e+01_rb,0.10915e+01_rb,0.11280e+01_rb, &
+        & 0.11664e+01_rb,0.11724e+01_rb,0.12834e+01_rb,0.14491e+01_rb /)
+      kao(:, 1, 2,12) = (/ &
+        & 0.15051e+01_rb,0.13181e+01_rb,0.12304e+01_rb,0.11719e+01_rb,0.11855e+01_rb, &
+        & 0.12309e+01_rb,0.12496e+01_rb,0.13203e+01_rb,0.15049e+01_rb /)
+      kao(:, 2, 2,12) = (/ &
+        & 0.14984e+01_rb,0.13123e+01_rb,0.12250e+01_rb,0.11699e+01_rb,0.11925e+01_rb, &
+        & 0.12340e+01_rb,0.12487e+01_rb,0.13193e+01_rb,0.15024e+01_rb /)
+      kao(:, 3, 2,12) = (/ &
+        & 0.14884e+01_rb,0.13036e+01_rb,0.12176e+01_rb,0.11665e+01_rb,0.11942e+01_rb, &
+        & 0.12376e+01_rb,0.12478e+01_rb,0.13196e+01_rb,0.15020e+01_rb /)
+      kao(:, 4, 2,12) = (/ &
+        & 0.14762e+01_rb,0.12929e+01_rb,0.12082e+01_rb,0.11628e+01_rb,0.11911e+01_rb, &
+        & 0.12406e+01_rb,0.12476e+01_rb,0.13168e+01_rb,0.15001e+01_rb /)
+      kao(:, 5, 2,12) = (/ &
+        & 0.14614e+01_rb,0.12800e+01_rb,0.11975e+01_rb,0.11575e+01_rb,0.11857e+01_rb, &
+        & 0.12414e+01_rb,0.12460e+01_rb,0.13124e+01_rb,0.14945e+01_rb /)
+      kao(:, 1, 3,12) = (/ &
+        & 0.15822e+01_rb,0.13890e+01_rb,0.13182e+01_rb,0.12547e+01_rb,0.12476e+01_rb, &
+        & 0.12873e+01_rb,0.13056e+01_rb,0.13300e+01_rb,0.15181e+01_rb /)
+      kao(:, 2, 3,12) = (/ &
+        & 0.15752e+01_rb,0.13826e+01_rb,0.13120e+01_rb,0.12557e+01_rb,0.12556e+01_rb, &
+        & 0.12906e+01_rb,0.13067e+01_rb,0.13310e+01_rb,0.15193e+01_rb /)
+      kao(:, 3, 3,12) = (/ &
+        & 0.15647e+01_rb,0.13732e+01_rb,0.13046e+01_rb,0.12538e+01_rb,0.12575e+01_rb, &
+        & 0.12941e+01_rb,0.13084e+01_rb,0.13307e+01_rb,0.15193e+01_rb /)
+      kao(:, 4, 3,12) = (/ &
+        & 0.15514e+01_rb,0.13616e+01_rb,0.12950e+01_rb,0.12500e+01_rb,0.12556e+01_rb, &
+        & 0.12989e+01_rb,0.13088e+01_rb,0.13292e+01_rb,0.15174e+01_rb /)
+      kao(:, 5, 3,12) = (/ &
+        & 0.15358e+01_rb,0.13480e+01_rb,0.12843e+01_rb,0.12443e+01_rb,0.12517e+01_rb, &
+        & 0.13009e+01_rb,0.13074e+01_rb,0.13265e+01_rb,0.15142e+01_rb /)
+      kao(:, 1, 4,12) = (/ &
+        & 0.16350e+01_rb,0.14490e+01_rb,0.13916e+01_rb,0.13443e+01_rb,0.13174e+01_rb, &
+        & 0.13244e+01_rb,0.13476e+01_rb,0.13365e+01_rb,0.15180e+01_rb /)
+      kao(:, 2, 4,12) = (/ &
+        & 0.16281e+01_rb,0.14425e+01_rb,0.13866e+01_rb,0.13479e+01_rb,0.13260e+01_rb, &
+        & 0.13268e+01_rb,0.13503e+01_rb,0.13390e+01_rb,0.15205e+01_rb /)
+      kao(:, 3, 4,12) = (/ &
+        & 0.16161e+01_rb,0.14310e+01_rb,0.13789e+01_rb,0.13476e+01_rb,0.13293e+01_rb, &
+        & 0.13314e+01_rb,0.13532e+01_rb,0.13408e+01_rb,0.15220e+01_rb /)
+      kao(:, 4, 4,12) = (/ &
+        & 0.16014e+01_rb,0.14178e+01_rb,0.13691e+01_rb,0.13444e+01_rb,0.13282e+01_rb, &
+        & 0.13379e+01_rb,0.13534e+01_rb,0.13410e+01_rb,0.15212e+01_rb /)
+      kao(:, 5, 4,12) = (/ &
+        & 0.15848e+01_rb,0.14026e+01_rb,0.13577e+01_rb,0.13378e+01_rb,0.13257e+01_rb, &
+        & 0.13408e+01_rb,0.13534e+01_rb,0.13387e+01_rb,0.15183e+01_rb /)
+      kao(:, 1, 5,12) = (/ &
+        & 0.16591e+01_rb,0.14947e+01_rb,0.14480e+01_rb,0.14262e+01_rb,0.13903e+01_rb, &
+        & 0.13587e+01_rb,0.13777e+01_rb,0.13491e+01_rb,0.15046e+01_rb /)
+      kao(:, 2, 5,12) = (/ &
+        & 0.16509e+01_rb,0.14862e+01_rb,0.14440e+01_rb,0.14316e+01_rb,0.13991e+01_rb, &
+        & 0.13598e+01_rb,0.13805e+01_rb,0.13541e+01_rb,0.15083e+01_rb /)
+      kao(:, 3, 5,12) = (/ &
+        & 0.16386e+01_rb,0.14750e+01_rb,0.14364e+01_rb,0.14307e+01_rb,0.14045e+01_rb, &
+        & 0.13655e+01_rb,0.13826e+01_rb,0.13579e+01_rb,0.15118e+01_rb /)
+      kao(:, 4, 5,12) = (/ &
+        & 0.16229e+01_rb,0.14605e+01_rb,0.14277e+01_rb,0.14269e+01_rb,0.14036e+01_rb, &
+        & 0.13722e+01_rb,0.13840e+01_rb,0.13579e+01_rb,0.15115e+01_rb /)
+      kao(:, 5, 5,12) = (/ &
+        & 0.16043e+01_rb,0.14439e+01_rb,0.14169e+01_rb,0.14203e+01_rb,0.14024e+01_rb, &
+        & 0.13765e+01_rb,0.13831e+01_rb,0.13575e+01_rb,0.15115e+01_rb /)
+      kao(:, 1, 6,12) = (/ &
+        & 0.16482e+01_rb,0.15147e+01_rb,0.14918e+01_rb,0.14883e+01_rb,0.14555e+01_rb, &
+        & 0.14030e+01_rb,0.13913e+01_rb,0.13585e+01_rb,0.14685e+01_rb /)
+      kao(:, 2, 6,12) = (/ &
+        & 0.16385e+01_rb,0.15059e+01_rb,0.14880e+01_rb,0.14958e+01_rb,0.14629e+01_rb, &
+        & 0.14056e+01_rb,0.13940e+01_rb,0.13659e+01_rb,0.14762e+01_rb /)
+      kao(:, 3, 6,12) = (/ &
+        & 0.16253e+01_rb,0.14941e+01_rb,0.14803e+01_rb,0.14965e+01_rb,0.14689e+01_rb, &
+        & 0.14106e+01_rb,0.13970e+01_rb,0.13717e+01_rb,0.14817e+01_rb /)
+      kao(:, 4, 6,12) = (/ &
+        & 0.16089e+01_rb,0.14791e+01_rb,0.14713e+01_rb,0.14908e+01_rb,0.14702e+01_rb, &
+        & 0.14165e+01_rb,0.13983e+01_rb,0.13748e+01_rb,0.14851e+01_rb /)
+      kao(:, 5, 6,12) = (/ &
+        & 0.15910e+01_rb,0.14633e+01_rb,0.14618e+01_rb,0.14838e+01_rb,0.14693e+01_rb, &
+        & 0.14213e+01_rb,0.13976e+01_rb,0.13770e+01_rb,0.14876e+01_rb /)
+      kao(:, 1, 7,12) = (/ &
+        & 0.16064e+01_rb,0.15086e+01_rb,0.15144e+01_rb,0.15268e+01_rb,0.15040e+01_rb, &
+        & 0.14507e+01_rb,0.13904e+01_rb,0.13521e+01_rb,0.14179e+01_rb /)
+      kao(:, 2, 7,12) = (/ &
+        & 0.15953e+01_rb,0.14985e+01_rb,0.15140e+01_rb,0.15345e+01_rb,0.15085e+01_rb, &
+        & 0.14549e+01_rb,0.13952e+01_rb,0.13604e+01_rb,0.14259e+01_rb /)
+      kao(:, 3, 7,12) = (/ &
+        & 0.15801e+01_rb,0.14851e+01_rb,0.15073e+01_rb,0.15363e+01_rb,0.15134e+01_rb, &
+        & 0.14598e+01_rb,0.13998e+01_rb,0.13678e+01_rb,0.14328e+01_rb /)
+      kao(:, 4, 7,12) = (/ &
+        & 0.15629e+01_rb,0.14703e+01_rb,0.14995e+01_rb,0.15318e+01_rb,0.15172e+01_rb, &
+        & 0.14656e+01_rb,0.14020e+01_rb,0.13732e+01_rb,0.14388e+01_rb /)
+      kao(:, 5, 7,12) = (/ &
+        & 0.15443e+01_rb,0.14531e+01_rb,0.14892e+01_rb,0.15236e+01_rb,0.15169e+01_rb, &
+        & 0.14692e+01_rb,0.14038e+01_rb,0.13766e+01_rb,0.14425e+01_rb /)
+      kao(:, 1, 8,12) = (/ &
+        & 0.15344e+01_rb,0.14766e+01_rb,0.15157e+01_rb,0.15423e+01_rb,0.15330e+01_rb, &
+        & 0.14811e+01_rb,0.13889e+01_rb,0.13373e+01_rb,0.13698e+01_rb /)
+      kao(:, 2, 8,12) = (/ &
+        & 0.15222e+01_rb,0.14679e+01_rb,0.15175e+01_rb,0.15473e+01_rb,0.15363e+01_rb, &
+        & 0.14872e+01_rb,0.13948e+01_rb,0.13442e+01_rb,0.13786e+01_rb /)
+      kao(:, 3, 8,12) = (/ &
+        & 0.15059e+01_rb,0.14533e+01_rb,0.15144e+01_rb,0.15489e+01_rb,0.15409e+01_rb, &
+        & 0.14932e+01_rb,0.14005e+01_rb,0.13518e+01_rb,0.13861e+01_rb /)
+      kao(:, 4, 8,12) = (/ &
+        & 0.14877e+01_rb,0.14368e+01_rb,0.15058e+01_rb,0.15451e+01_rb,0.15445e+01_rb, &
+        & 0.14989e+01_rb,0.14044e+01_rb,0.13574e+01_rb,0.13922e+01_rb /)
+      kao(:, 5, 8,12) = (/ &
+        & 0.14686e+01_rb,0.14200e+01_rb,0.14953e+01_rb,0.15388e+01_rb,0.15447e+01_rb, &
+        & 0.15024e+01_rb,0.14082e+01_rb,0.13605e+01_rb,0.13964e+01_rb /)
+      kao(:, 1, 9,12) = (/ &
+        & 0.14373e+01_rb,0.14266e+01_rb,0.14938e+01_rb,0.15367e+01_rb,0.15341e+01_rb, &
+        & 0.14871e+01_rb,0.13939e+01_rb,0.13173e+01_rb,0.13285e+01_rb /)
+      kao(:, 2, 9,12) = (/ &
+        & 0.14250e+01_rb,0.14168e+01_rb,0.14968e+01_rb,0.15390e+01_rb,0.15386e+01_rb, &
+        & 0.14934e+01_rb,0.13987e+01_rb,0.13260e+01_rb,0.13388e+01_rb /)
+      kao(:, 3, 9,12) = (/ &
+        & 0.14085e+01_rb,0.14020e+01_rb,0.14946e+01_rb,0.15393e+01_rb,0.15430e+01_rb, &
+        & 0.14996e+01_rb,0.14050e+01_rb,0.13340e+01_rb,0.13471e+01_rb /)
+      kao(:, 4, 9,12) = (/ &
+        & 0.13898e+01_rb,0.13862e+01_rb,0.14874e+01_rb,0.15365e+01_rb,0.15469e+01_rb, &
+        & 0.15061e+01_rb,0.14095e+01_rb,0.13387e+01_rb,0.13529e+01_rb /)
+      kao(:, 5, 9,12) = (/ &
+        & 0.13711e+01_rb,0.13694e+01_rb,0.14772e+01_rb,0.15321e+01_rb,0.15481e+01_rb, &
+        & 0.15103e+01_rb,0.14136e+01_rb,0.13413e+01_rb,0.13557e+01_rb /)
+      kao(:, 1,10,12) = (/ &
+        & 0.13234e+01_rb,0.13585e+01_rb,0.14531e+01_rb,0.15073e+01_rb,0.15094e+01_rb, &
+        & 0.14728e+01_rb,0.13972e+01_rb,0.12936e+01_rb,0.12835e+01_rb /)
+      kao(:, 2,10,12) = (/ &
+        & 0.13109e+01_rb,0.13494e+01_rb,0.14540e+01_rb,0.15085e+01_rb,0.15139e+01_rb, &
+        & 0.14784e+01_rb,0.14019e+01_rb,0.13047e+01_rb,0.12968e+01_rb /)
+      kao(:, 3,10,12) = (/ &
+        & 0.12956e+01_rb,0.13371e+01_rb,0.14504e+01_rb,0.15092e+01_rb,0.15192e+01_rb, &
+        & 0.14835e+01_rb,0.14094e+01_rb,0.13136e+01_rb,0.13076e+01_rb /)
+      kao(:, 4,10,12) = (/ &
+        & 0.12784e+01_rb,0.13237e+01_rb,0.14435e+01_rb,0.15071e+01_rb,0.15234e+01_rb, &
+        & 0.14905e+01_rb,0.14145e+01_rb,0.13190e+01_rb,0.13139e+01_rb /)
+      kao(:, 5,10,12) = (/ &
+        & 0.12607e+01_rb,0.13090e+01_rb,0.14344e+01_rb,0.15038e+01_rb,0.15261e+01_rb, &
+        & 0.14956e+01_rb,0.14181e+01_rb,0.13210e+01_rb,0.13178e+01_rb /)
+      kao(:, 1,11,12) = (/ &
+        & 0.12047e+01_rb,0.12789e+01_rb,0.13923e+01_rb,0.14530e+01_rb,0.14659e+01_rb, &
+        & 0.14483e+01_rb,0.13898e+01_rb,0.12749e+01_rb,0.12386e+01_rb /)
+      kao(:, 2,11,12) = (/ &
+        & 0.11911e+01_rb,0.12701e+01_rb,0.13902e+01_rb,0.14549e+01_rb,0.14710e+01_rb, &
+        & 0.14517e+01_rb,0.13981e+01_rb,0.12874e+01_rb,0.12546e+01_rb /)
+      kao(:, 3,11,12) = (/ &
+        & 0.11768e+01_rb,0.12599e+01_rb,0.13852e+01_rb,0.14552e+01_rb,0.14760e+01_rb, &
+        & 0.14581e+01_rb,0.14056e+01_rb,0.12968e+01_rb,0.12644e+01_rb /)
+      kao(:, 4,11,12) = (/ &
+        & 0.11609e+01_rb,0.12491e+01_rb,0.13785e+01_rb,0.14542e+01_rb,0.14794e+01_rb, &
+        & 0.14643e+01_rb,0.14106e+01_rb,0.13015e+01_rb,0.12707e+01_rb /)
+      kao(:, 5,11,12) = (/ &
+        & 0.11453e+01_rb,0.12370e+01_rb,0.13722e+01_rb,0.14526e+01_rb,0.14820e+01_rb, &
+        & 0.14680e+01_rb,0.14139e+01_rb,0.13041e+01_rb,0.12775e+01_rb /)
+      kao(:, 1,12,12) = (/ &
+        & 0.10892e+01_rb,0.11978e+01_rb,0.13175e+01_rb,0.13800e+01_rb,0.14113e+01_rb, &
+        & 0.14104e+01_rb,0.13697e+01_rb,0.12563e+01_rb,0.11895e+01_rb /)
+      kao(:, 2,12,12) = (/ &
+        & 0.10764e+01_rb,0.11912e+01_rb,0.13142e+01_rb,0.13828e+01_rb,0.14151e+01_rb, &
+        & 0.14161e+01_rb,0.13800e+01_rb,0.12704e+01_rb,0.12046e+01_rb /)
+      kao(:, 3,12,12) = (/ &
+        & 0.10634e+01_rb,0.11835e+01_rb,0.13099e+01_rb,0.13835e+01_rb,0.14196e+01_rb, &
+        & 0.14241e+01_rb,0.13887e+01_rb,0.12786e+01_rb,0.12148e+01_rb /)
+      kao(:, 4,12,12) = (/ &
+        & 0.10495e+01_rb,0.11751e+01_rb,0.13057e+01_rb,0.13846e+01_rb,0.14230e+01_rb, &
+        & 0.14300e+01_rb,0.13945e+01_rb,0.12836e+01_rb,0.12244e+01_rb /)
+      kao(:, 5,12,12) = (/ &
+        & 0.10406e+01_rb,0.11650e+01_rb,0.13011e+01_rb,0.13864e+01_rb,0.14254e+01_rb, &
+        & 0.14322e+01_rb,0.13980e+01_rb,0.12878e+01_rb,0.12342e+01_rb /)
+      kao(:, 1,13,12) = (/ &
+        & 0.97671e+00_rb,0.11194e+01_rb,0.12352e+01_rb,0.13029e+01_rb,0.13468e+01_rb, &
+        & 0.13623e+01_rb,0.13355e+01_rb,0.12363e+01_rb,0.11351e+01_rb /)
+      kao(:, 2,13,12) = (/ &
+        & 0.96514e+00_rb,0.11135e+01_rb,0.12326e+01_rb,0.13049e+01_rb,0.13523e+01_rb, &
+        & 0.13721e+01_rb,0.13488e+01_rb,0.12496e+01_rb,0.11500e+01_rb /)
+      kao(:, 3,13,12) = (/ &
+        & 0.95350e+00_rb,0.11073e+01_rb,0.12308e+01_rb,0.13063e+01_rb,0.13575e+01_rb, &
+        & 0.13815e+01_rb,0.13588e+01_rb,0.12584e+01_rb,0.11629e+01_rb /)
+      kao(:, 4,13,12) = (/ &
+        & 0.94648e+00_rb,0.11002e+01_rb,0.12294e+01_rb,0.13087e+01_rb,0.13617e+01_rb, &
+        & 0.13873e+01_rb,0.13660e+01_rb,0.12653e+01_rb,0.11761e+01_rb /)
+      kao(:, 5,13,12) = (/ &
+        & 0.94953e+00_rb,0.10941e+01_rb,0.12277e+01_rb,0.13116e+01_rb,0.13645e+01_rb, &
+        & 0.13901e+01_rb,0.13713e+01_rb,0.12717e+01_rb,0.11896e+01_rb /)
+      kao(:, 1, 1,13) = (/ &
+        & 0.21877e+01_rb,0.19168e+01_rb,0.16830e+01_rb,0.16306e+01_rb,0.15763e+01_rb, &
+        & 0.15398e+01_rb,0.15859e+01_rb,0.18468e+01_rb,0.20593e+01_rb /)
+      kao(:, 2, 1,13) = (/ &
+        & 0.22022e+01_rb,0.19296e+01_rb,0.16916e+01_rb,0.16400e+01_rb,0.15796e+01_rb, &
+        & 0.15432e+01_rb,0.15912e+01_rb,0.18534e+01_rb,0.20655e+01_rb /)
+      kao(:, 3, 1,13) = (/ &
+        & 0.22022e+01_rb,0.19297e+01_rb,0.16911e+01_rb,0.16436e+01_rb,0.15885e+01_rb, &
+        & 0.15469e+01_rb,0.15941e+01_rb,0.18569e+01_rb,0.20695e+01_rb /)
+      kao(:, 4, 1,13) = (/ &
+        & 0.21895e+01_rb,0.19186e+01_rb,0.16803e+01_rb,0.16425e+01_rb,0.15962e+01_rb, &
+        & 0.15525e+01_rb,0.15947e+01_rb,0.18575e+01_rb,0.20703e+01_rb /)
+      kao(:, 5, 1,13) = (/ &
+        & 0.21697e+01_rb,0.19013e+01_rb,0.16648e+01_rb,0.16344e+01_rb,0.16003e+01_rb, &
+        & 0.15574e+01_rb,0.15941e+01_rb,0.18572e+01_rb,0.20709e+01_rb /)
+      kao(:, 1, 2,13) = (/ &
+        & 0.22550e+01_rb,0.19753e+01_rb,0.17734e+01_rb,0.17443e+01_rb,0.17102e+01_rb, &
+        & 0.16986e+01_rb,0.17217e+01_rb,0.19863e+01_rb,0.22329e+01_rb /)
+      kao(:, 2, 2,13) = (/ &
+        & 0.22679e+01_rb,0.19867e+01_rb,0.17791e+01_rb,0.17520e+01_rb,0.17112e+01_rb, &
+        & 0.17026e+01_rb,0.17283e+01_rb,0.19934e+01_rb,0.22409e+01_rb /)
+      kao(:, 3, 2,13) = (/ &
+        & 0.22698e+01_rb,0.19883e+01_rb,0.17767e+01_rb,0.17568e+01_rb,0.17174e+01_rb, &
+        & 0.17053e+01_rb,0.17318e+01_rb,0.19966e+01_rb,0.22448e+01_rb /)
+      kao(:, 4, 2,13) = (/ &
+        & 0.22597e+01_rb,0.19796e+01_rb,0.17668e+01_rb,0.17548e+01_rb,0.17261e+01_rb, &
+        & 0.17073e+01_rb,0.17314e+01_rb,0.19968e+01_rb,0.22451e+01_rb /)
+      kao(:, 5, 2,13) = (/ &
+        & 0.22409e+01_rb,0.19632e+01_rb,0.17511e+01_rb,0.17475e+01_rb,0.17318e+01_rb, &
+        & 0.17099e+01_rb,0.17295e+01_rb,0.19947e+01_rb,0.22431e+01_rb /)
+      kao(:, 1, 3,13) = (/ &
+        & 0.23526e+01_rb,0.20603e+01_rb,0.18829e+01_rb,0.18493e+01_rb,0.18420e+01_rb, &
+        & 0.18637e+01_rb,0.18729e+01_rb,0.21122e+01_rb,0.23977e+01_rb /)
+      kao(:, 2, 3,13) = (/ &
+        & 0.23692e+01_rb,0.20749e+01_rb,0.18925e+01_rb,0.18515e+01_rb,0.18400e+01_rb, &
+        & 0.18683e+01_rb,0.18793e+01_rb,0.21211e+01_rb,0.24079e+01_rb /)
+      kao(:, 3, 3,13) = (/ &
+        & 0.23722e+01_rb,0.20775e+01_rb,0.18924e+01_rb,0.18562e+01_rb,0.18451e+01_rb, &
+        & 0.18704e+01_rb,0.18820e+01_rb,0.21249e+01_rb,0.24125e+01_rb /)
+      kao(:, 4, 3,13) = (/ &
+        & 0.23635e+01_rb,0.20699e+01_rb,0.18842e+01_rb,0.18555e+01_rb,0.18524e+01_rb, &
+        & 0.18695e+01_rb,0.18827e+01_rb,0.21252e+01_rb,0.24130e+01_rb /)
+      kao(:, 5, 3,13) = (/ &
+        & 0.23480e+01_rb,0.20564e+01_rb,0.18701e+01_rb,0.18499e+01_rb,0.18587e+01_rb, &
+        & 0.18689e+01_rb,0.18824e+01_rb,0.21250e+01_rb,0.24123e+01_rb /)
+      kao(:, 1, 4,13) = (/ &
+        & 0.24939e+01_rb,0.21837e+01_rb,0.20232e+01_rb,0.19589e+01_rb,0.19737e+01_rb, &
+        & 0.20251e+01_rb,0.20263e+01_rb,0.22145e+01_rb,0.25248e+01_rb /)
+      kao(:, 2, 4,13) = (/ &
+        & 0.25110e+01_rb,0.21986e+01_rb,0.20314e+01_rb,0.19589e+01_rb,0.19697e+01_rb, &
+        & 0.20307e+01_rb,0.20352e+01_rb,0.22253e+01_rb,0.25374e+01_rb /)
+      kao(:, 3, 4,13) = (/ &
+        & 0.25161e+01_rb,0.22032e+01_rb,0.20346e+01_rb,0.19625e+01_rb,0.19727e+01_rb, &
+        & 0.20334e+01_rb,0.20403e+01_rb,0.22301e+01_rb,0.25429e+01_rb /)
+      kao(:, 4, 4,13) = (/ &
+        & 0.25095e+01_rb,0.21974e+01_rb,0.20283e+01_rb,0.19657e+01_rb,0.19780e+01_rb, &
+        & 0.20313e+01_rb,0.20420e+01_rb,0.22330e+01_rb,0.25458e+01_rb /)
+      kao(:, 5, 4,13) = (/ &
+        & 0.24957e+01_rb,0.21853e+01_rb,0.20162e+01_rb,0.19613e+01_rb,0.19825e+01_rb, &
+        & 0.20289e+01_rb,0.20423e+01_rb,0.22370e+01_rb,0.25500e+01_rb /)
+      kao(:, 1, 5,13) = (/ &
+        & 0.26637e+01_rb,0.23330e+01_rb,0.21864e+01_rb,0.20904e+01_rb,0.21013e+01_rb, &
+        & 0.21699e+01_rb,0.21691e+01_rb,0.22859e+01_rb,0.26102e+01_rb /)
+      kao(:, 2, 5,13) = (/ &
+        & 0.26795e+01_rb,0.23466e+01_rb,0.21930e+01_rb,0.20883e+01_rb,0.21007e+01_rb, &
+        & 0.21775e+01_rb,0.21807e+01_rb,0.22957e+01_rb,0.26216e+01_rb /)
+      kao(:, 3, 5,13) = (/ &
+        & 0.26872e+01_rb,0.23531e+01_rb,0.22001e+01_rb,0.20926e+01_rb,0.21029e+01_rb, &
+        & 0.21797e+01_rb,0.21879e+01_rb,0.23020e+01_rb,0.26289e+01_rb /)
+      kao(:, 4, 5,13) = (/ &
+        & 0.26803e+01_rb,0.23471e+01_rb,0.21948e+01_rb,0.20970e+01_rb,0.21069e+01_rb, &
+        & 0.21770e+01_rb,0.21901e+01_rb,0.23087e+01_rb,0.26364e+01_rb /)
+      kao(:, 5, 5,13) = (/ &
+        & 0.26667e+01_rb,0.23351e+01_rb,0.21832e+01_rb,0.20959e+01_rb,0.21091e+01_rb, &
+        & 0.21729e+01_rb,0.21936e+01_rb,0.23158e+01_rb,0.26444e+01_rb /)
+      kao(:, 1, 6,13) = (/ &
+        & 0.28246e+01_rb,0.24844e+01_rb,0.23554e+01_rb,0.22494e+01_rb,0.22325e+01_rb, &
+        & 0.22877e+01_rb,0.22925e+01_rb,0.23319e+01_rb,0.26619e+01_rb /)
+      kao(:, 2, 6,13) = (/ &
+        & 0.28376e+01_rb,0.24941e+01_rb,0.23589e+01_rb,0.22458e+01_rb,0.22369e+01_rb, &
+        & 0.22959e+01_rb,0.23048e+01_rb,0.23408e+01_rb,0.26720e+01_rb /)
+      kao(:, 3, 6,13) = (/ &
+        & 0.28468e+01_rb,0.25010e+01_rb,0.23646e+01_rb,0.22473e+01_rb,0.22379e+01_rb, &
+        & 0.22992e+01_rb,0.23116e+01_rb,0.23486e+01_rb,0.26812e+01_rb /)
+      kao(:, 4, 6,13) = (/ &
+        & 0.28432e+01_rb,0.24967e+01_rb,0.23643e+01_rb,0.22531e+01_rb,0.22409e+01_rb, &
+        & 0.22981e+01_rb,0.23157e+01_rb,0.23572e+01_rb,0.26911e+01_rb /)
+      kao(:, 5, 6,13) = (/ &
+        & 0.28266e+01_rb,0.24816e+01_rb,0.23521e+01_rb,0.22549e+01_rb,0.22433e+01_rb, &
+        & 0.22953e+01_rb,0.23213e+01_rb,0.23655e+01_rb,0.27010e+01_rb /)
+      kao(:, 1, 7,13) = (/ &
+        & 0.29507e+01_rb,0.26186e+01_rb,0.25154e+01_rb,0.24214e+01_rb,0.23698e+01_rb, &
+        & 0.23809e+01_rb,0.23936e+01_rb,0.23723e+01_rb,0.26904e+01_rb /)
+      kao(:, 2, 7,13) = (/ &
+        & 0.29579e+01_rb,0.26218e+01_rb,0.25131e+01_rb,0.24179e+01_rb,0.23791e+01_rb, &
+        & 0.23895e+01_rb,0.24036e+01_rb,0.23830e+01_rb,0.27026e+01_rb /)
+      kao(:, 3, 7,13) = (/ &
+        & 0.29645e+01_rb,0.26250e+01_rb,0.25156e+01_rb,0.24180e+01_rb,0.23828e+01_rb, &
+        & 0.23929e+01_rb,0.24104e+01_rb,0.23923e+01_rb,0.27131e+01_rb /)
+      kao(:, 4, 7,13) = (/ &
+        & 0.29630e+01_rb,0.26222e+01_rb,0.25142e+01_rb,0.24231e+01_rb,0.23851e+01_rb, &
+        & 0.23923e+01_rb,0.24170e+01_rb,0.24017e+01_rb,0.27241e+01_rb /)
+      kao(:, 5, 7,13) = (/ &
+        & 0.29476e+01_rb,0.26071e+01_rb,0.25053e+01_rb,0.24267e+01_rb,0.23855e+01_rb, &
+        & 0.23922e+01_rb,0.24228e+01_rb,0.24116e+01_rb,0.27361e+01_rb /)
+      kao(:, 1, 8,13) = (/ &
+        & 0.30283e+01_rb,0.27271e+01_rb,0.26499e+01_rb,0.25812e+01_rb,0.25068e+01_rb, &
+        & 0.24674e+01_rb,0.24700e+01_rb,0.24088e+01_rb,0.26873e+01_rb /)
+      kao(:, 2, 8,13) = (/ &
+        & 0.30302e+01_rb,0.27229e+01_rb,0.26429e+01_rb,0.25805e+01_rb,0.25199e+01_rb, &
+        & 0.24758e+01_rb,0.24797e+01_rb,0.24223e+01_rb,0.27017e+01_rb /)
+      kao(:, 3, 8,13) = (/ &
+        & 0.30313e+01_rb,0.27198e+01_rb,0.26386e+01_rb,0.25814e+01_rb,0.25257e+01_rb, &
+        & 0.24788e+01_rb,0.24874e+01_rb,0.24335e+01_rb,0.27156e+01_rb /)
+      kao(:, 4, 8,13) = (/ &
+        & 0.30296e+01_rb,0.27153e+01_rb,0.26358e+01_rb,0.25865e+01_rb,0.25285e+01_rb, &
+        & 0.24798e+01_rb,0.24941e+01_rb,0.24451e+01_rb,0.27296e+01_rb /)
+      kao(:, 5, 8,13) = (/ &
+        & 0.30139e+01_rb,0.26994e+01_rb,0.26290e+01_rb,0.25893e+01_rb,0.25296e+01_rb, &
+        & 0.24809e+01_rb,0.25004e+01_rb,0.24568e+01_rb,0.27436e+01_rb /)
+      kao(:, 1, 9,13) = (/ &
+        & 0.30493e+01_rb,0.27941e+01_rb,0.27550e+01_rb,0.27119e+01_rb,0.26405e+01_rb, &
+        & 0.25561e+01_rb,0.25144e+01_rb,0.24302e+01_rb,0.26456e+01_rb /)
+      kao(:, 2, 9,13) = (/ &
+        & 0.30457e+01_rb,0.27865e+01_rb,0.27445e+01_rb,0.27145e+01_rb,0.26540e+01_rb, &
+        & 0.25649e+01_rb,0.25264e+01_rb,0.24468e+01_rb,0.26636e+01_rb /)
+      kao(:, 3, 9,13) = (/ &
+        & 0.30433e+01_rb,0.27809e+01_rb,0.27367e+01_rb,0.27179e+01_rb,0.26606e+01_rb, &
+        & 0.25683e+01_rb,0.25354e+01_rb,0.24613e+01_rb,0.26815e+01_rb /)
+      kao(:, 4, 9,13) = (/ &
+        & 0.30389e+01_rb,0.27734e+01_rb,0.27309e+01_rb,0.27229e+01_rb,0.26627e+01_rb, &
+        & 0.25715e+01_rb,0.25441e+01_rb,0.24765e+01_rb,0.27005e+01_rb /)
+      kao(:, 5, 9,13) = (/ &
+        & 0.30246e+01_rb,0.27583e+01_rb,0.27239e+01_rb,0.27244e+01_rb,0.26642e+01_rb, &
+        & 0.25740e+01_rb,0.25518e+01_rb,0.24921e+01_rb,0.27199e+01_rb /)
+      kao(:, 1,10,13) = (/ &
+        & 0.30121e+01_rb,0.28154e+01_rb,0.28201e+01_rb,0.28057e+01_rb,0.27531e+01_rb, &
+        & 0.26438e+01_rb,0.25360e+01_rb,0.24395e+01_rb,0.25814e+01_rb /)
+      kao(:, 2,10,13) = (/ &
+        & 0.30058e+01_rb,0.28055e+01_rb,0.28091e+01_rb,0.28117e+01_rb,0.27659e+01_rb, &
+        & 0.26536e+01_rb,0.25505e+01_rb,0.24578e+01_rb,0.26020e+01_rb /)
+      kao(:, 3,10,13) = (/ &
+        & 0.29984e+01_rb,0.27957e+01_rb,0.28033e+01_rb,0.28172e+01_rb,0.27717e+01_rb, &
+        & 0.26597e+01_rb,0.25631e+01_rb,0.24765e+01_rb,0.26239e+01_rb /)
+      kao(:, 4,10,13) = (/ &
+        & 0.29909e+01_rb,0.27859e+01_rb,0.27980e+01_rb,0.28231e+01_rb,0.27737e+01_rb, &
+        & 0.26641e+01_rb,0.25752e+01_rb,0.24953e+01_rb,0.26473e+01_rb /)
+      kao(:, 5,10,13) = (/ &
+        & 0.29757e+01_rb,0.27703e+01_rb,0.27906e+01_rb,0.28248e+01_rb,0.27751e+01_rb, &
+        & 0.26687e+01_rb,0.25862e+01_rb,0.25141e+01_rb,0.26704e+01_rb /)
+      kao(:, 1,11,13) = (/ &
+        & 0.29105e+01_rb,0.27849e+01_rb,0.28418e+01_rb,0.28641e+01_rb,0.28368e+01_rb, &
+        & 0.27205e+01_rb,0.25555e+01_rb,0.24401e+01_rb,0.25196e+01_rb /)
+      kao(:, 2,11,13) = (/ &
+        & 0.29013e+01_rb,0.27742e+01_rb,0.28363e+01_rb,0.28719e+01_rb,0.28460e+01_rb, &
+        & 0.27321e+01_rb,0.25730e+01_rb,0.24607e+01_rb,0.25412e+01_rb /)
+      kao(:, 3,11,13) = (/ &
+        & 0.28911e+01_rb,0.27633e+01_rb,0.28321e+01_rb,0.28799e+01_rb,0.28506e+01_rb, &
+        & 0.27417e+01_rb,0.25892e+01_rb,0.24813e+01_rb,0.25665e+01_rb /)
+      kao(:, 4,11,13) = (/ &
+        & 0.28805e+01_rb,0.27495e+01_rb,0.28275e+01_rb,0.28852e+01_rb,0.28551e+01_rb, &
+        & 0.27503e+01_rb,0.26048e+01_rb,0.25023e+01_rb,0.25905e+01_rb /)
+      kao(:, 5,11,13) = (/ &
+        & 0.28607e+01_rb,0.27299e+01_rb,0.28179e+01_rb,0.28868e+01_rb,0.28597e+01_rb, &
+        & 0.27578e+01_rb,0.26198e+01_rb,0.25207e+01_rb,0.26120e+01_rb /)
+      kao(:, 1,12,13) = (/ &
+        & 0.27583e+01_rb,0.27145e+01_rb,0.28231e+01_rb,0.28871e+01_rb,0.28764e+01_rb, &
+        & 0.27674e+01_rb,0.25743e+01_rb,0.24278e+01_rb,0.24570e+01_rb /)
+      kao(:, 2,12,13) = (/ &
+        & 0.27477e+01_rb,0.27023e+01_rb,0.28226e+01_rb,0.28962e+01_rb,0.28884e+01_rb, &
+        & 0.27832e+01_rb,0.25939e+01_rb,0.24483e+01_rb,0.24817e+01_rb /)
+      kao(:, 3,12,13) = (/ &
+        & 0.27363e+01_rb,0.26890e+01_rb,0.28229e+01_rb,0.29041e+01_rb,0.28966e+01_rb, &
+        & 0.27972e+01_rb,0.26117e+01_rb,0.24706e+01_rb,0.25053e+01_rb /)
+      kao(:, 4,12,13) = (/ &
+        & 0.27215e+01_rb,0.26719e+01_rb,0.28199e+01_rb,0.29098e+01_rb,0.29044e+01_rb, &
+        & 0.28097e+01_rb,0.26305e+01_rb,0.24926e+01_rb,0.25297e+01_rb /)
+      kao(:, 5,12,13) = (/ &
+        & 0.27019e+01_rb,0.26521e+01_rb,0.28123e+01_rb,0.29106e+01_rb,0.29127e+01_rb, &
+        & 0.28234e+01_rb,0.26485e+01_rb,0.25112e+01_rb,0.25512e+01_rb /)
+      kao(:, 1,13,13) = (/ &
+        & 0.25703e+01_rb,0.26073e+01_rb,0.27736e+01_rb,0.28686e+01_rb,0.28762e+01_rb, &
+        & 0.27819e+01_rb,0.25967e+01_rb,0.24069e+01_rb,0.23967e+01_rb /)
+      kao(:, 2,13,13) = (/ &
+        & 0.25597e+01_rb,0.25968e+01_rb,0.27777e+01_rb,0.28810e+01_rb,0.28904e+01_rb, &
+        & 0.28011e+01_rb,0.26158e+01_rb,0.24298e+01_rb,0.24224e+01_rb /)
+      kao(:, 3,13,13) = (/ &
+        & 0.25492e+01_rb,0.25857e+01_rb,0.27800e+01_rb,0.28929e+01_rb,0.29040e+01_rb, &
+        & 0.28202e+01_rb,0.26351e+01_rb,0.24527e+01_rb,0.24494e+01_rb /)
+      kao(:, 4,13,13) = (/ &
+        & 0.25336e+01_rb,0.25705e+01_rb,0.27801e+01_rb,0.29008e+01_rb,0.29182e+01_rb, &
+        & 0.28403e+01_rb,0.26542e+01_rb,0.24758e+01_rb,0.24745e+01_rb /)
+      kao(:, 5,13,13) = (/ &
+        & 0.25174e+01_rb,0.25538e+01_rb,0.27760e+01_rb,0.29061e+01_rb,0.29321e+01_rb, &
+        & 0.28592e+01_rb,0.26728e+01_rb,0.24954e+01_rb,0.24962e+01_rb /)
+      kao(:, 1, 1,14) = (/ &
+        & 0.34915e+01_rb,0.30588e+01_rb,0.26262e+01_rb,0.23144e+01_rb,0.22122e+01_rb, &
+        & 0.21892e+01_rb,0.25558e+01_rb,0.29818e+01_rb,0.32991e+01_rb /)
+      kao(:, 2, 1,14) = (/ &
+        & 0.35009e+01_rb,0.30672e+01_rb,0.26335e+01_rb,0.23059e+01_rb,0.22071e+01_rb, &
+        & 0.21796e+01_rb,0.25444e+01_rb,0.29683e+01_rb,0.32820e+01_rb /)
+      kao(:, 3, 1,14) = (/ &
+        & 0.35192e+01_rb,0.30832e+01_rb,0.26472e+01_rb,0.23037e+01_rb,0.22014e+01_rb, &
+        & 0.21706e+01_rb,0.25342e+01_rb,0.29565e+01_rb,0.32692e+01_rb /)
+      kao(:, 4, 1,14) = (/ &
+        & 0.35462e+01_rb,0.31069e+01_rb,0.26676e+01_rb,0.23054e+01_rb,0.21967e+01_rb, &
+        & 0.21619e+01_rb,0.25265e+01_rb,0.29475e+01_rb,0.32591e+01_rb /)
+      kao(:, 5, 1,14) = (/ &
+        & 0.35714e+01_rb,0.31290e+01_rb,0.26866e+01_rb,0.23141e+01_rb,0.21952e+01_rb, &
+        & 0.21552e+01_rb,0.25228e+01_rb,0.29432e+01_rb,0.32501e+01_rb /)
+      kao(:, 1, 2,14) = (/ &
+        & 0.38742e+01_rb,0.33939e+01_rb,0.29135e+01_rb,0.26368e+01_rb,0.25318e+01_rb, &
+        & 0.24566e+01_rb,0.27984e+01_rb,0.32648e+01_rb,0.36583e+01_rb /)
+      kao(:, 2, 2,14) = (/ &
+        & 0.38780e+01_rb,0.33972e+01_rb,0.29165e+01_rb,0.26245e+01_rb,0.25266e+01_rb, &
+        & 0.24447e+01_rb,0.27836e+01_rb,0.32475e+01_rb,0.36397e+01_rb /)
+      kao(:, 3, 2,14) = (/ &
+        & 0.38887e+01_rb,0.34066e+01_rb,0.29246e+01_rb,0.26139e+01_rb,0.25181e+01_rb, &
+        & 0.24355e+01_rb,0.27726e+01_rb,0.32346e+01_rb,0.36242e+01_rb /)
+      kao(:, 4, 2,14) = (/ &
+        & 0.39063e+01_rb,0.34220e+01_rb,0.29378e+01_rb,0.26094e+01_rb,0.25085e+01_rb, &
+        & 0.24291e+01_rb,0.27676e+01_rb,0.32288e+01_rb,0.36150e+01_rb /)
+      kao(:, 5, 2,14) = (/ &
+        & 0.39241e+01_rb,0.34376e+01_rb,0.29511e+01_rb,0.26073e+01_rb,0.25021e+01_rb, &
+        & 0.24243e+01_rb,0.27677e+01_rb,0.32289e+01_rb,0.36134e+01_rb /)
+      kao(:, 1, 3,14) = (/ &
+        & 0.42487e+01_rb,0.37216e+01_rb,0.32039e+01_rb,0.29799e+01_rb,0.28758e+01_rb, &
+        & 0.27551e+01_rb,0.30498e+01_rb,0.35581e+01_rb,0.40304e+01_rb /)
+      kao(:, 2, 3,14) = (/ &
+        & 0.42439e+01_rb,0.37174e+01_rb,0.31977e+01_rb,0.29675e+01_rb,0.28698e+01_rb, &
+        & 0.27440e+01_rb,0.30347e+01_rb,0.35405e+01_rb,0.40101e+01_rb /)
+      kao(:, 3, 3,14) = (/ &
+        & 0.42511e+01_rb,0.37238e+01_rb,0.32007e+01_rb,0.29528e+01_rb,0.28598e+01_rb, &
+        & 0.27364e+01_rb,0.30269e+01_rb,0.35313e+01_rb,0.39978e+01_rb /)
+      kao(:, 4, 3,14) = (/ &
+        & 0.42624e+01_rb,0.37337e+01_rb,0.32078e+01_rb,0.29428e+01_rb,0.28469e+01_rb, &
+        & 0.27311e+01_rb,0.30242e+01_rb,0.35281e+01_rb,0.39928e+01_rb /)
+      kao(:, 5, 3,14) = (/ &
+        & 0.42720e+01_rb,0.37420e+01_rb,0.32138e+01_rb,0.29343e+01_rb,0.28324e+01_rb, &
+        & 0.27276e+01_rb,0.30224e+01_rb,0.35261e+01_rb,0.39910e+01_rb /)
+      kao(:, 1, 4,14) = (/ &
+        & 0.45954e+01_rb,0.40249e+01_rb,0.35022e+01_rb,0.33403e+01_rb,0.32328e+01_rb, &
+        & 0.30833e+01_rb,0.33112e+01_rb,0.38621e+01_rb,0.43957e+01_rb /)
+      kao(:, 2, 4,14) = (/ &
+        & 0.45847e+01_rb,0.40157e+01_rb,0.34904e+01_rb,0.33265e+01_rb,0.32256e+01_rb, &
+        & 0.30748e+01_rb,0.32975e+01_rb,0.38466e+01_rb,0.43773e+01_rb /)
+      kao(:, 3, 4,14) = (/ &
+        & 0.45864e+01_rb,0.40172e+01_rb,0.34822e+01_rb,0.33081e+01_rb,0.32132e+01_rb, &
+        & 0.30693e+01_rb,0.32915e+01_rb,0.38399e+01_rb,0.43696e+01_rb /)
+      kao(:, 4, 4,14) = (/ &
+        & 0.45919e+01_rb,0.40220e+01_rb,0.34808e+01_rb,0.32873e+01_rb,0.31989e+01_rb, &
+        & 0.30656e+01_rb,0.32892e+01_rb,0.38374e+01_rb,0.43666e+01_rb /)
+      kao(:, 5, 4,14) = (/ &
+        & 0.45961e+01_rb,0.40254e+01_rb,0.34809e+01_rb,0.32746e+01_rb,0.31817e+01_rb, &
+        & 0.30639e+01_rb,0.32889e+01_rb,0.38370e+01_rb,0.43660e+01_rb /)
+      kao(:, 1, 5,14) = (/ &
+        & 0.49114e+01_rb,0.43012e+01_rb,0.38001e+01_rb,0.37007e+01_rb,0.36023e+01_rb, &
+        & 0.34476e+01_rb,0.35973e+01_rb,0.41814e+01_rb,0.47692e+01_rb /)
+      kao(:, 2, 5,14) = (/ &
+        & 0.49023e+01_rb,0.42934e+01_rb,0.37862e+01_rb,0.36850e+01_rb,0.35912e+01_rb, &
+        & 0.34412e+01_rb,0.35890e+01_rb,0.41727e+01_rb,0.47592e+01_rb /)
+      kao(:, 3, 5,14) = (/ &
+        & 0.48929e+01_rb,0.42852e+01_rb,0.37666e+01_rb,0.36647e+01_rb,0.35739e+01_rb, &
+        & 0.34368e+01_rb,0.35843e+01_rb,0.41678e+01_rb,0.47530e+01_rb /)
+      kao(:, 4, 5,14) = (/ &
+        & 0.48957e+01_rb,0.42875e+01_rb,0.37577e+01_rb,0.36399e+01_rb,0.35570e+01_rb, &
+        & 0.34352e+01_rb,0.35822e+01_rb,0.41658e+01_rb,0.47507e+01_rb /)
+      kao(:, 5, 5,14) = (/ &
+        & 0.48955e+01_rb,0.42870e+01_rb,0.37502e+01_rb,0.36181e+01_rb,0.35379e+01_rb, &
+        & 0.34333e+01_rb,0.35807e+01_rb,0.41639e+01_rb,0.47483e+01_rb /)
+      kao(:, 1, 6,14) = (/ &
+        & 0.52336e+01_rb,0.45828e+01_rb,0.41059e+01_rb,0.40455e+01_rb,0.39709e+01_rb, &
+        & 0.38438e+01_rb,0.39195e+01_rb,0.45101e+01_rb,0.51488e+01_rb /)
+      kao(:, 2, 6,14) = (/ &
+        & 0.52264e+01_rb,0.45766e+01_rb,0.40903e+01_rb,0.40272e+01_rb,0.39556e+01_rb, &
+        & 0.38368e+01_rb,0.39154e+01_rb,0.45074e+01_rb,0.51460e+01_rb /)
+      kao(:, 3, 6,14) = (/ &
+        & 0.52116e+01_rb,0.45637e+01_rb,0.40682e+01_rb,0.40069e+01_rb,0.39387e+01_rb, &
+        & 0.38311e+01_rb,0.39117e+01_rb,0.45034e+01_rb,0.51413e+01_rb /)
+      kao(:, 4, 6,14) = (/ &
+        & 0.52061e+01_rb,0.45585e+01_rb,0.40484e+01_rb,0.39793e+01_rb,0.39195e+01_rb, &
+        & 0.38275e+01_rb,0.39110e+01_rb,0.45018e+01_rb,0.51396e+01_rb /)
+      kao(:, 5, 6,14) = (/ &
+        & 0.52033e+01_rb,0.45559e+01_rb,0.40356e+01_rb,0.39520e+01_rb,0.38983e+01_rb, &
+        & 0.38238e+01_rb,0.39105e+01_rb,0.45008e+01_rb,0.51385e+01_rb /)
+      kao(:, 1, 7,14) = (/ &
+        & 0.55789e+01_rb,0.48845e+01_rb,0.44392e+01_rb,0.43787e+01_rb,0.43341e+01_rb, &
+        & 0.42496e+01_rb,0.42580e+01_rb,0.48177e+01_rb,0.55034e+01_rb /)
+      kao(:, 2, 7,14) = (/ &
+        & 0.55750e+01_rb,0.48811e+01_rb,0.44216e+01_rb,0.43602e+01_rb,0.43147e+01_rb, &
+        & 0.42460e+01_rb,0.42594e+01_rb,0.48202e+01_rb,0.55064e+01_rb /)
+      kao(:, 3, 7,14) = (/ &
+        & 0.55641e+01_rb,0.48716e+01_rb,0.43996e+01_rb,0.43387e+01_rb,0.42975e+01_rb, &
+        & 0.42414e+01_rb,0.42613e+01_rb,0.48234e+01_rb,0.55098e+01_rb /)
+      kao(:, 4, 7,14) = (/ &
+        & 0.55497e+01_rb,0.48588e+01_rb,0.43740e+01_rb,0.43098e+01_rb,0.42767e+01_rb, &
+        & 0.42365e+01_rb,0.42657e+01_rb,0.48283e+01_rb,0.55153e+01_rb /)
+      kao(:, 5, 7,14) = (/ &
+        & 0.55426e+01_rb,0.48524e+01_rb,0.43530e+01_rb,0.42800e+01_rb,0.42577e+01_rb, &
+        & 0.42309e+01_rb,0.42668e+01_rb,0.48295e+01_rb,0.55168e+01_rb /)
+      kao(:, 1, 8,14) = (/ &
+        & 0.59399e+01_rb,0.51999e+01_rb,0.48042e+01_rb,0.47185e+01_rb,0.46865e+01_rb, &
+        & 0.46496e+01_rb,0.46000e+01_rb,0.50897e+01_rb,0.58161e+01_rb /)
+      kao(:, 2, 8,14) = (/ &
+        & 0.59397e+01_rb,0.51999e+01_rb,0.47874e+01_rb,0.46998e+01_rb,0.46665e+01_rb, &
+        & 0.46493e+01_rb,0.46097e+01_rb,0.50997e+01_rb,0.58275e+01_rb /)
+      kao(:, 3, 8,14) = (/ &
+        & 0.59349e+01_rb,0.51955e+01_rb,0.47656e+01_rb,0.46767e+01_rb,0.46485e+01_rb, &
+        & 0.46473e+01_rb,0.46203e+01_rb,0.51120e+01_rb,0.58414e+01_rb /)
+      kao(:, 4, 8,14) = (/ &
+        & 0.59186e+01_rb,0.51811e+01_rb,0.47381e+01_rb,0.46470e+01_rb,0.46283e+01_rb, &
+        & 0.46432e+01_rb,0.46335e+01_rb,0.51262e+01_rb,0.58574e+01_rb /)
+      kao(:, 5, 8,14) = (/ &
+        & 0.59097e+01_rb,0.51733e+01_rb,0.47110e+01_rb,0.46158e+01_rb,0.46095e+01_rb, &
+        & 0.46379e+01_rb,0.46369e+01_rb,0.51321e+01_rb,0.58644e+01_rb /)
+      kao(:, 1, 9,14) = (/ &
+        & 0.63127e+01_rb,0.55322e+01_rb,0.51834e+01_rb,0.50691e+01_rb,0.50247e+01_rb, &
+        & 0.50209e+01_rb,0.49367e+01_rb,0.53236e+01_rb,0.60842e+01_rb /)
+      kao(:, 2, 9,14) = (/ &
+        & 0.63183e+01_rb,0.55346e+01_rb,0.51727e+01_rb,0.50532e+01_rb,0.50080e+01_rb, &
+        & 0.50274e+01_rb,0.49592e+01_rb,0.53436e+01_rb,0.61069e+01_rb /)
+      kao(:, 3, 9,14) = (/ &
+        & 0.63124e+01_rb,0.55272e+01_rb,0.51546e+01_rb,0.50297e+01_rb,0.49909e+01_rb, &
+        & 0.50310e+01_rb,0.49812e+01_rb,0.53668e+01_rb,0.61332e+01_rb /)
+      kao(:, 4, 9,14) = (/ &
+        & 0.63001e+01_rb,0.55154e+01_rb,0.51286e+01_rb,0.50009e+01_rb,0.49750e+01_rb, &
+        & 0.50299e+01_rb,0.49995e+01_rb,0.53888e+01_rb,0.61587e+01_rb /)
+      kao(:, 5, 9,14) = (/ &
+        & 0.62858e+01_rb,0.55023e+01_rb,0.50977e+01_rb,0.49708e+01_rb,0.49573e+01_rb, &
+        & 0.50270e+01_rb,0.50058e+01_rb,0.53988e+01_rb,0.61697e+01_rb /)
+      kao(:, 1,10,14) = (/ &
+        & 0.66894e+01_rb,0.58832e+01_rb,0.55701e+01_rb,0.54237e+01_rb,0.53594e+01_rb, &
+        & 0.53556e+01_rb,0.52686e+01_rb,0.55192e+01_rb,0.63037e+01_rb /)
+      kao(:, 2,10,14) = (/ &
+        & 0.66981e+01_rb,0.58851e+01_rb,0.55643e+01_rb,0.54120e+01_rb,0.53500e+01_rb, &
+        & 0.53705e+01_rb,0.53019e+01_rb,0.55500e+01_rb,0.63389e+01_rb /)
+      kao(:, 3,10,14) = (/ &
+        & 0.66967e+01_rb,0.58795e+01_rb,0.55464e+01_rb,0.53921e+01_rb,0.53372e+01_rb, &
+        & 0.53796e+01_rb,0.53288e+01_rb,0.55798e+01_rb,0.63734e+01_rb /)
+      kao(:, 4,10,14) = (/ &
+        & 0.66854e+01_rb,0.58646e+01_rb,0.55228e+01_rb,0.53676e+01_rb,0.53254e+01_rb, &
+        & 0.53837e+01_rb,0.53529e+01_rb,0.56104e+01_rb,0.64086e+01_rb /)
+      kao(:, 5,10,14) = (/ &
+        & 0.66717e+01_rb,0.58486e+01_rb,0.54914e+01_rb,0.53392e+01_rb,0.53082e+01_rb, &
+        & 0.53849e+01_rb,0.53627e+01_rb,0.56270e+01_rb,0.64281e+01_rb /)
+      kao(:, 1,11,14) = (/ &
+        & 0.70715e+01_rb,0.62495e+01_rb,0.59582e+01_rb,0.57869e+01_rb,0.56930e+01_rb, &
+        & 0.56655e+01_rb,0.56036e+01_rb,0.57057e+01_rb,0.64838e+01_rb /)
+      kao(:, 2,11,14) = (/ &
+        & 0.70771e+01_rb,0.62459e+01_rb,0.59461e+01_rb,0.57734e+01_rb,0.56903e+01_rb, &
+        & 0.56860e+01_rb,0.56380e+01_rb,0.57455e+01_rb,0.65310e+01_rb /)
+      kao(:, 3,11,14) = (/ &
+        & 0.70723e+01_rb,0.62337e+01_rb,0.59291e+01_rb,0.57507e+01_rb,0.56859e+01_rb, &
+        & 0.56988e+01_rb,0.56691e+01_rb,0.57882e+01_rb,0.65837e+01_rb /)
+      kao(:, 4,11,14) = (/ &
+        & 0.70579e+01_rb,0.62141e+01_rb,0.59017e+01_rb,0.57243e+01_rb,0.56747e+01_rb, &
+        & 0.57061e+01_rb,0.56917e+01_rb,0.58206e+01_rb,0.66248e+01_rb /)
+      kao(:, 5,11,14) = (/ &
+        & 0.70436e+01_rb,0.61942e+01_rb,0.58711e+01_rb,0.56953e+01_rb,0.56563e+01_rb, &
+        & 0.57095e+01_rb,0.57007e+01_rb,0.58439e+01_rb,0.66547e+01_rb /)
+      kao(:, 1,12,14) = (/ &
+        & 0.73996e+01_rb,0.65875e+01_rb,0.63444e+01_rb,0.61468e+01_rb,0.60255e+01_rb, &
+        & 0.59627e+01_rb,0.59009e+01_rb,0.58767e+01_rb,0.66113e+01_rb /)
+      kao(:, 2,12,14) = (/ &
+        & 0.74059e+01_rb,0.65818e+01_rb,0.63297e+01_rb,0.61319e+01_rb,0.60289e+01_rb, &
+        & 0.59857e+01_rb,0.59393e+01_rb,0.59291e+01_rb,0.66795e+01_rb /)
+      kao(:, 3,12,14) = (/ &
+        & 0.73985e+01_rb,0.65639e+01_rb,0.63058e+01_rb,0.61104e+01_rb,0.60278e+01_rb, &
+        & 0.60017e+01_rb,0.59765e+01_rb,0.59805e+01_rb,0.67466e+01_rb /)
+      kao(:, 4,12,14) = (/ &
+        & 0.73888e+01_rb,0.65439e+01_rb,0.62733e+01_rb,0.60850e+01_rb,0.60189e+01_rb, &
+        & 0.60123e+01_rb,0.59968e+01_rb,0.60157e+01_rb,0.67935e+01_rb /)
+      kao(:, 5,12,14) = (/ &
+        & 0.73717e+01_rb,0.65185e+01_rb,0.62375e+01_rb,0.60536e+01_rb,0.59983e+01_rb, &
+        & 0.60180e+01_rb,0.60067e+01_rb,0.60456e+01_rb,0.68365e+01_rb /)
+      kao(:, 1,13,14) = (/ &
+        & 0.76469e+01_rb,0.68731e+01_rb,0.66871e+01_rb,0.64997e+01_rb,0.63502e+01_rb, &
+        & 0.62466e+01_rb,0.61469e+01_rb,0.60253e+01_rb,0.66908e+01_rb /)
+      kao(:, 2,13,14) = (/ &
+        & 0.76513e+01_rb,0.68603e+01_rb,0.66717e+01_rb,0.64853e+01_rb,0.63628e+01_rb, &
+        & 0.62754e+01_rb,0.61942e+01_rb,0.60911e+01_rb,0.67781e+01_rb /)
+      kao(:, 3,13,14) = (/ &
+        & 0.76480e+01_rb,0.68404e+01_rb,0.66430e+01_rb,0.64664e+01_rb,0.63629e+01_rb, &
+        & 0.62938e+01_rb,0.62370e+01_rb,0.61432e+01_rb,0.68460e+01_rb /)
+      kao(:, 4,13,14) = (/ &
+        & 0.76417e+01_rb,0.68180e+01_rb,0.66082e+01_rb,0.64389e+01_rb,0.63512e+01_rb, &
+        & 0.63082e+01_rb,0.62633e+01_rb,0.61842e+01_rb,0.69071e+01_rb /)
+      kao(:, 5,13,14) = (/ &
+        & 0.76283e+01_rb,0.67918e+01_rb,0.65683e+01_rb,0.64071e+01_rb,0.63329e+01_rb, &
+        & 0.63131e+01_rb,0.62779e+01_rb,0.62184e+01_rb,0.69616e+01_rb /)
+      kao(:, 1, 1,15) = (/ &
+        & 0.48056e+01_rb,0.42094e+01_rb,0.36132e+01_rb,0.30171e+01_rb,0.28404e+01_rb, &
+        & 0.34490e+01_rb,0.41388e+01_rb,0.48284e+01_rb,0.52314e+01_rb /)
+      kao(:, 2, 1,15) = (/ &
+        & 0.48171e+01_rb,0.42194e+01_rb,0.36219e+01_rb,0.30243e+01_rb,0.28141e+01_rb, &
+        & 0.34073e+01_rb,0.40887e+01_rb,0.47701e+01_rb,0.51637e+01_rb /)
+      kao(:, 3, 1,15) = (/ &
+        & 0.48231e+01_rb,0.42245e+01_rb,0.36259e+01_rb,0.30275e+01_rb,0.27871e+01_rb, &
+        & 0.33709e+01_rb,0.40450e+01_rb,0.47190e+01_rb,0.51029e+01_rb /)
+      kao(:, 4, 1,15) = (/ &
+        & 0.48223e+01_rb,0.42236e+01_rb,0.36250e+01_rb,0.30265e+01_rb,0.27616e+01_rb, &
+        & 0.33346e+01_rb,0.40014e+01_rb,0.46682e+01_rb,0.50473e+01_rb /)
+      kao(:, 5, 1,15) = (/ &
+        & 0.48164e+01_rb,0.42183e+01_rb,0.36202e+01_rb,0.30224e+01_rb,0.27378e+01_rb, &
+        & 0.32980e+01_rb,0.39575e+01_rb,0.46170e+01_rb,0.49922e+01_rb /)
+      kao(:, 1, 2,15) = (/ &
+        & 0.56696e+01_rb,0.49649e+01_rb,0.42601e+01_rb,0.35603e+01_rb,0.33660e+01_rb, &
+        & 0.40230e+01_rb,0.48275e+01_rb,0.56320e+01_rb,0.62204e+01_rb /)
+      kao(:, 2, 2,15) = (/ &
+        & 0.56853e+01_rb,0.49788e+01_rb,0.42721e+01_rb,0.35690e+01_rb,0.33370e+01_rb, &
+        & 0.39815e+01_rb,0.47778e+01_rb,0.55740e+01_rb,0.61522e+01_rb /)
+      kao(:, 3, 2,15) = (/ &
+        & 0.56912e+01_rb,0.49841e+01_rb,0.42769e+01_rb,0.35723e+01_rb,0.33088e+01_rb, &
+        & 0.39404e+01_rb,0.47285e+01_rb,0.55164e+01_rb,0.60886e+01_rb /)
+      kao(:, 4, 2,15) = (/ &
+        & 0.56900e+01_rb,0.49829e+01_rb,0.42759e+01_rb,0.35705e+01_rb,0.32819e+01_rb, &
+        & 0.38975e+01_rb,0.46769e+01_rb,0.54563e+01_rb,0.60227e+01_rb /)
+      kao(:, 5, 2,15) = (/ &
+        & 0.56828e+01_rb,0.49765e+01_rb,0.42703e+01_rb,0.35653e+01_rb,0.32552e+01_rb, &
+        & 0.38520e+01_rb,0.46223e+01_rb,0.53926e+01_rb,0.59537e+01_rb /)
+      kao(:, 1, 3,15) = (/ &
+        & 0.66640e+01_rb,0.58345e+01_rb,0.50050e+01_rb,0.41960e+01_rb,0.39837e+01_rb, &
+        & 0.46765e+01_rb,0.56117e+01_rb,0.65468e+01_rb,0.73624e+01_rb /)
+      kao(:, 2, 3,15) = (/ &
+        & 0.66851e+01_rb,0.58530e+01_rb,0.50209e+01_rb,0.42035e+01_rb,0.39538e+01_rb, &
+        & 0.46274e+01_rb,0.55528e+01_rb,0.64781e+01_rb,0.72849e+01_rb /)
+      kao(:, 3, 3,15) = (/ &
+        & 0.66916e+01_rb,0.58588e+01_rb,0.50261e+01_rb,0.42046e+01_rb,0.39240e+01_rb, &
+        & 0.45763e+01_rb,0.54915e+01_rb,0.64066e+01_rb,0.72060e+01_rb /)
+      kao(:, 4, 3,15) = (/ &
+        & 0.66884e+01_rb,0.58563e+01_rb,0.50241e+01_rb,0.42004e+01_rb,0.38957e+01_rb, &
+        & 0.45225e+01_rb,0.54270e+01_rb,0.63313e+01_rb,0.71219e+01_rb /)
+      kao(:, 5, 3,15) = (/ &
+        & 0.66766e+01_rb,0.58462e+01_rb,0.50163e+01_rb,0.41933e+01_rb,0.38675e+01_rb, &
+        & 0.44702e+01_rb,0.53642e+01_rb,0.62581e+01_rb,0.70387e+01_rb /)
+      kao(:, 1, 4,15) = (/ &
+        & 0.77848e+01_rb,0.68149e+01_rb,0.58451e+01_rb,0.49331e+01_rb,0.46977e+01_rb, &
+        & 0.54033e+01_rb,0.64839e+01_rb,0.75644e+01_rb,0.85830e+01_rb /)
+      kao(:, 2, 4,15) = (/ &
+        & 0.78108e+01_rb,0.68377e+01_rb,0.58646e+01_rb,0.49375e+01_rb,0.46695e+01_rb, &
+        & 0.53453e+01_rb,0.64143e+01_rb,0.74831e+01_rb,0.84915e+01_rb /)
+      kao(:, 3, 4,15) = (/ &
+        & 0.78236e+01_rb,0.68489e+01_rb,0.58743e+01_rb,0.49373e+01_rb,0.46417e+01_rb, &
+        & 0.52821e+01_rb,0.63384e+01_rb,0.73947e+01_rb,0.83915e+01_rb /)
+      kao(:, 4, 4,15) = (/ &
+        & 0.78238e+01_rb,0.68493e+01_rb,0.58748e+01_rb,0.49301e+01_rb,0.46103e+01_rb, &
+        & 0.52166e+01_rb,0.62599e+01_rb,0.73031e+01_rb,0.82871e+01_rb /)
+      kao(:, 5, 4,15) = (/ &
+        & 0.78090e+01_rb,0.68373e+01_rb,0.58658e+01_rb,0.49180e+01_rb,0.45786e+01_rb, &
+        & 0.51516e+01_rb,0.61819e+01_rb,0.72121e+01_rb,0.81837e+01_rb /)
+      kao(:, 1, 5,15) = (/ &
+        & 0.90367e+01_rb,0.79101e+01_rb,0.67835e+01_rb,0.57840e+01_rb,0.55090e+01_rb, &
+        & 0.61816e+01_rb,0.74174e+01_rb,0.86536e+01_rb,0.98560e+01_rb /)
+      kao(:, 2, 5,15) = (/ &
+        & 0.90658e+01_rb,0.79355e+01_rb,0.68052e+01_rb,0.57840e+01_rb,0.54825e+01_rb, &
+        & 0.61122e+01_rb,0.73329e+01_rb,0.85548e+01_rb,0.97452e+01_rb /)
+      kao(:, 3, 5,15) = (/ &
+        & 0.90837e+01_rb,0.79512e+01_rb,0.68188e+01_rb,0.57766e+01_rb,0.54581e+01_rb, &
+        & 0.60426e+01_rb,0.72485e+01_rb,0.84564e+01_rb,0.96328e+01_rb /)
+      kao(:, 4, 5,15) = (/ &
+        & 0.90830e+01_rb,0.79510e+01_rb,0.68192e+01_rb,0.57645e+01_rb,0.54297e+01_rb, &
+        & 0.59729e+01_rb,0.71644e+01_rb,0.83583e+01_rb,0.95205e+01_rb /)
+      kao(:, 5, 5,15) = (/ &
+        & 0.90677e+01_rb,0.79386e+01_rb,0.68094e+01_rb,0.57479e+01_rb,0.53962e+01_rb, &
+        & 0.58998e+01_rb,0.70740e+01_rb,0.82528e+01_rb,0.94008e+01_rb /)
+      kao(:, 1, 6,15) = (/ &
+        & 0.10412e+02_rb,0.91128e+01_rb,0.78140e+01_rb,0.67504e+01_rb,0.64389e+01_rb, &
+        & 0.70217e+01_rb,0.83899e+01_rb,0.97882e+01_rb,0.11168e+02_rb /)
+      kao(:, 2, 6,15) = (/ &
+        & 0.10449e+02_rb,0.91451e+01_rb,0.78417e+01_rb,0.67466e+01_rb,0.64110e+01_rb, &
+        & 0.69507e+01_rb,0.82964e+01_rb,0.96789e+01_rb,0.11043e+02_rb /)
+      kao(:, 3, 6,15) = (/ &
+        & 0.10469e+02_rb,0.91634e+01_rb,0.78574e+01_rb,0.67323e+01_rb,0.63834e+01_rb, &
+        & 0.68804e+01_rb,0.82097e+01_rb,0.95778e+01_rb,0.10928e+02_rb /)
+      kao(:, 4, 6,15) = (/ &
+        & 0.10466e+02_rb,0.91614e+01_rb,0.78568e+01_rb,0.67135e+01_rb,0.63530e+01_rb, &
+        & 0.68083e+01_rb,0.81167e+01_rb,0.94694e+01_rb,0.10805e+02_rb /)
+      kao(:, 5, 6,15) = (/ &
+        & 0.10450e+02_rb,0.91481e+01_rb,0.78461e+01_rb,0.66866e+01_rb,0.63182e+01_rb, &
+        & 0.67317e+01_rb,0.80175e+01_rb,0.93536e+01_rb,0.10671e+02_rb /)
+      kao(:, 1, 7,15) = (/ &
+        & 0.11882e+02_rb,0.10399e+02_rb,0.89166e+01_rb,0.78253e+01_rb,0.74792e+01_rb, &
+        & 0.79512e+01_rb,0.94202e+01_rb,0.10990e+02_rb,0.12550e+02_rb /)
+      kao(:, 2, 7,15) = (/ &
+        & 0.11932e+02_rb,0.10443e+02_rb,0.89541e+01_rb,0.78202e+01_rb,0.74549e+01_rb, &
+        & 0.78754e+01_rb,0.93207e+01_rb,0.10874e+02_rb,0.12417e+02_rb /)
+      kao(:, 3, 7,15) = (/ &
+        & 0.11956e+02_rb,0.10464e+02_rb,0.89727e+01_rb,0.78020e+01_rb,0.74258e+01_rb, &
+        & 0.78051e+01_rb,0.92218e+01_rb,0.10758e+02_rb,0.12285e+02_rb /)
+      kao(:, 4, 7,15) = (/ &
+        & 0.11956e+02_rb,0.10465e+02_rb,0.89740e+01_rb,0.77736e+01_rb,0.73912e+01_rb, &
+        & 0.77319e+01_rb,0.91108e+01_rb,0.10629e+02_rb,0.12138e+02_rb /)
+      kao(:, 5, 7,15) = (/ &
+        & 0.11934e+02_rb,0.10446e+02_rb,0.89587e+01_rb,0.77346e+01_rb,0.73464e+01_rb, &
+        & 0.76503e+01_rb,0.90007e+01_rb,0.10501e+02_rb,0.11991e+02_rb /)
+      kao(:, 1, 8,15) = (/ &
+        & 0.13440e+02_rb,0.11762e+02_rb,0.10084e+02_rb,0.90134e+01_rb,0.86298e+01_rb, &
+        & 0.89787e+01_rb,0.10509e+02_rb,0.12260e+02_rb,0.14008e+02_rb /)
+      kao(:, 2, 8,15) = (/ &
+        & 0.13496e+02_rb,0.11811e+02_rb,0.10127e+02_rb,0.90042e+01_rb,0.86075e+01_rb, &
+        & 0.89016e+01_rb,0.10401e+02_rb,0.12134e+02_rb,0.13863e+02_rb /)
+      kao(:, 3, 8,15) = (/ &
+        & 0.13522e+02_rb,0.11835e+02_rb,0.10148e+02_rb,0.89806e+01_rb,0.85777e+01_rb, &
+        & 0.88306e+01_rb,0.10284e+02_rb,0.11998e+02_rb,0.13707e+02_rb /)
+      kao(:, 4, 8,15) = (/ &
+        & 0.13526e+02_rb,0.11839e+02_rb,0.10151e+02_rb,0.89422e+01_rb,0.85378e+01_rb, &
+        & 0.87510e+01_rb,0.10150e+02_rb,0.11842e+02_rb,0.13529e+02_rb /)
+      kao(:, 5, 8,15) = (/ &
+        & 0.13498e+02_rb,0.11814e+02_rb,0.10131e+02_rb,0.88918e+01_rb,0.84819e+01_rb, &
+        & 0.86621e+01_rb,0.10028e+02_rb,0.11700e+02_rb,0.13367e+02_rb /)
+      kao(:, 1, 9,15) = (/ &
+        & 0.15050e+02_rb,0.13171e+02_rb,0.11325e+02_rb,0.10314e+02_rb,0.98844e+01_rb, &
+        & 0.10113e+02_rb,0.11655e+02_rb,0.13598e+02_rb,0.15538e+02_rb /)
+      kao(:, 2, 9,15) = (/ &
+        & 0.15110e+02_rb,0.13224e+02_rb,0.11358e+02_rb,0.10290e+02_rb,0.98636e+01_rb, &
+        & 0.10034e+02_rb,0.11528e+02_rb,0.13449e+02_rb,0.15369e+02_rb /)
+      kao(:, 3, 9,15) = (/ &
+        & 0.15142e+02_rb,0.13253e+02_rb,0.11372e+02_rb,0.10253e+02_rb,0.98329e+01_rb, &
+        & 0.99565e+01_rb,0.11387e+02_rb,0.13285e+02_rb,0.15182e+02_rb /)
+      kao(:, 4, 9,15) = (/ &
+        & 0.15140e+02_rb,0.13251e+02_rb,0.11368e+02_rb,0.10200e+02_rb,0.97822e+01_rb, &
+        & 0.98656e+01_rb,0.11236e+02_rb,0.13109e+02_rb,0.14981e+02_rb /)
+      kao(:, 5, 9,15) = (/ &
+        & 0.15112e+02_rb,0.13227e+02_rb,0.11344e+02_rb,0.10134e+02_rb,0.97132e+01_rb, &
+        & 0.97634e+01_rb,0.11104e+02_rb,0.12955e+02_rb,0.14806e+02_rb /)
+      kao(:, 1,10,15) = (/ &
+        & 0.16679e+02_rb,0.14596e+02_rb,0.12639e+02_rb,0.11713e+02_rb,0.11234e+02_rb, &
+        & 0.11344e+02_rb,0.12833e+02_rb,0.14972e+02_rb,0.17110e+02_rb /)
+      kao(:, 2,10,15) = (/ &
+        & 0.16740e+02_rb,0.14649e+02_rb,0.12658e+02_rb,0.11669e+02_rb,0.11203e+02_rb, &
+        & 0.11257e+02_rb,0.12688e+02_rb,0.14803e+02_rb,0.16918e+02_rb /)
+      kao(:, 3,10,15) = (/ &
+        & 0.16768e+02_rb,0.14675e+02_rb,0.12658e+02_rb,0.11609e+02_rb,0.11161e+02_rb, &
+        & 0.11169e+02_rb,0.12530e+02_rb,0.14619e+02_rb,0.16708e+02_rb /)
+      kao(:, 4,10,15) = (/ &
+        & 0.16761e+02_rb,0.14669e+02_rb,0.12632e+02_rb,0.11528e+02_rb,0.11096e+02_rb, &
+        & 0.11064e+02_rb,0.12360e+02_rb,0.14420e+02_rb,0.16480e+02_rb /)
+      kao(:, 5,10,15) = (/ &
+        & 0.16723e+02_rb,0.14636e+02_rb,0.12592e+02_rb,0.11437e+02_rb,0.11017e+02_rb, &
+        & 0.10938e+02_rb,0.12210e+02_rb,0.14245e+02_rb,0.16279e+02_rb /)
+      kao(:, 1,11,15) = (/ &
+        & 0.18294e+02_rb,0.16009e+02_rb,0.13989e+02_rb,0.13135e+02_rb,0.12643e+02_rb, &
+        & 0.12628e+02_rb,0.13972e+02_rb,0.16290e+02_rb,0.18616e+02_rb /)
+      kao(:, 2,11,15) = (/ &
+        & 0.18347e+02_rb,0.16056e+02_rb,0.13990e+02_rb,0.13069e+02_rb,0.12593e+02_rb, &
+        & 0.12524e+02_rb,0.13808e+02_rb,0.16097e+02_rb,0.18396e+02_rb /)
+      kao(:, 3,11,15) = (/ &
+        & 0.18360e+02_rb,0.16067e+02_rb,0.13961e+02_rb,0.12977e+02_rb,0.12519e+02_rb, &
+        & 0.12404e+02_rb,0.13621e+02_rb,0.15875e+02_rb,0.18143e+02_rb /)
+      kao(:, 4,11,15) = (/ &
+        & 0.18335e+02_rb,0.16046e+02_rb,0.13912e+02_rb,0.12870e+02_rb,0.12428e+02_rb, &
+        & 0.12262e+02_rb,0.13438e+02_rb,0.15668e+02_rb,0.17906e+02_rb /)
+      kao(:, 5,11,15) = (/ &
+        & 0.18275e+02_rb,0.15994e+02_rb,0.13835e+02_rb,0.12741e+02_rb,0.12318e+02_rb, &
+        & 0.12107e+02_rb,0.13269e+02_rb,0.15473e+02_rb,0.17684e+02_rb /)
+      kao(:, 1,12,15) = (/ &
+        & 0.19924e+02_rb,0.17435e+02_rb,0.15328e+02_rb,0.14570e+02_rb,0.14103e+02_rb, &
+        & 0.13966e+02_rb,0.15137e+02_rb,0.17574e+02_rb,0.20085e+02_rb /)
+      kao(:, 2,12,15) = (/ &
+        & 0.19952e+02_rb,0.17460e+02_rb,0.15303e+02_rb,0.14472e+02_rb,0.14016e+02_rb, &
+        & 0.13836e+02_rb,0.14951e+02_rb,0.17356e+02_rb,0.19836e+02_rb /)
+      kao(:, 3,12,15) = (/ &
+        & 0.19950e+02_rb,0.17459e+02_rb,0.15252e+02_rb,0.14354e+02_rb,0.13911e+02_rb, &
+        & 0.13674e+02_rb,0.14736e+02_rb,0.17121e+02_rb,0.19567e+02_rb /)
+      kao(:, 4,12,15) = (/ &
+        & 0.19898e+02_rb,0.17414e+02_rb,0.15172e+02_rb,0.14207e+02_rb,0.13782e+02_rb, &
+        & 0.13496e+02_rb,0.14540e+02_rb,0.16905e+02_rb,0.19321e+02_rb /)
+      kao(:, 5,12,15) = (/ &
+        & 0.19813e+02_rb,0.17339e+02_rb,0.15067e+02_rb,0.14045e+02_rb,0.13635e+02_rb, &
+        & 0.13302e+02_rb,0.14349e+02_rb,0.16691e+02_rb,0.19076e+02_rb /)
+      kao(:, 1,13,15) = (/ &
+        & 0.21582e+02_rb,0.18886e+02_rb,0.16708e+02_rb,0.15984e+02_rb,0.15578e+02_rb, &
+        & 0.15338e+02_rb,0.16324e+02_rb,0.18812e+02_rb,0.21500e+02_rb /)
+      kao(:, 2,13,15) = (/ &
+        & 0.21595e+02_rb,0.18898e+02_rb,0.16645e+02_rb,0.15860e+02_rb,0.15448e+02_rb, &
+        & 0.15169e+02_rb,0.16117e+02_rb,0.18583e+02_rb,0.21237e+02_rb /)
+      kao(:, 3,13,15) = (/ &
+        & 0.21561e+02_rb,0.18868e+02_rb,0.16562e+02_rb,0.15696e+02_rb,0.15303e+02_rb, &
+        & 0.14968e+02_rb,0.15881e+02_rb,0.18352e+02_rb,0.20974e+02_rb /)
+      kao(:, 4,13,15) = (/ &
+        & 0.21483e+02_rb,0.18800e+02_rb,0.16445e+02_rb,0.15517e+02_rb,0.15132e+02_rb, &
+        & 0.14742e+02_rb,0.15661e+02_rb,0.18119e+02_rb,0.20709e+02_rb /)
+      kao(:, 5,13,15) = (/ &
+        & 0.21359e+02_rb,0.18692e+02_rb,0.16307e+02_rb,0.15310e+02_rb,0.14932e+02_rb, &
+        & 0.14513e+02_rb,0.15442e+02_rb,0.17892e+02_rb,0.20448e+02_rb /)
+      kao(:, 1, 1,16) = (/ &
+        & 0.54900e+01_rb,0.48060e+01_rb,0.41232e+01_rb,0.34422e+01_rb,0.34870e+01_rb, &
+        & 0.43588e+01_rb,0.52305e+01_rb,0.61020e+01_rb,0.65047e+01_rb /)
+      kao(:, 2, 1,16) = (/ &
+        & 0.54959e+01_rb,0.48102e+01_rb,0.41246e+01_rb,0.34396e+01_rb,0.34389e+01_rb, &
+        & 0.42986e+01_rb,0.51583e+01_rb,0.60178e+01_rb,0.64181e+01_rb /)
+      kao(:, 3, 1,16) = (/ &
+        & 0.54964e+01_rb,0.48111e+01_rb,0.41257e+01_rb,0.34404e+01_rb,0.33906e+01_rb, &
+        & 0.42383e+01_rb,0.50859e+01_rb,0.59334e+01_rb,0.63255e+01_rb /)
+      kao(:, 4, 1,16) = (/ &
+        & 0.54872e+01_rb,0.48032e+01_rb,0.41193e+01_rb,0.34354e+01_rb,0.33485e+01_rb, &
+        & 0.41856e+01_rb,0.50227e+01_rb,0.58596e+01_rb,0.62437e+01_rb /)
+      kao(:, 5, 1,16) = (/ &
+        & 0.54677e+01_rb,0.47864e+01_rb,0.41051e+01_rb,0.34238e+01_rb,0.33099e+01_rb, &
+        & 0.41373e+01_rb,0.49647e+01_rb,0.57920e+01_rb,0.61726e+01_rb /)
+      kao(:, 1, 2,16) = (/ &
+        & 0.65993e+01_rb,0.57796e+01_rb,0.49604e+01_rb,0.41421e+01_rb,0.42011e+01_rb, &
+        & 0.52514e+01_rb,0.63014e+01_rb,0.73516e+01_rb,0.80279e+01_rb /)
+      kao(:, 2, 2,16) = (/ &
+        & 0.66032e+01_rb,0.57810e+01_rb,0.49597e+01_rb,0.41395e+01_rb,0.41430e+01_rb, &
+        & 0.51787e+01_rb,0.62144e+01_rb,0.72499e+01_rb,0.79170e+01_rb /)
+      kao(:, 3, 2,16) = (/ &
+        & 0.66114e+01_rb,0.57864e+01_rb,0.49618e+01_rb,0.41380e+01_rb,0.40849e+01_rb, &
+        & 0.51061e+01_rb,0.61273e+01_rb,0.71483e+01_rb,0.78058e+01_rb /)
+      kao(:, 4, 2,16) = (/ &
+        & 0.66055e+01_rb,0.57814e+01_rb,0.49573e+01_rb,0.41341e+01_rb,0.40341e+01_rb, &
+        & 0.50426e+01_rb,0.60510e+01_rb,0.70593e+01_rb,0.77043e+01_rb /)
+      kao(:, 5, 2,16) = (/ &
+        & 0.65867e+01_rb,0.57651e+01_rb,0.49435e+01_rb,0.41221e+01_rb,0.39863e+01_rb, &
+        & 0.49829e+01_rb,0.59794e+01_rb,0.69758e+01_rb,0.76124e+01_rb /)
+      kao(:, 1, 3,16) = (/ &
+        & 0.79380e+01_rb,0.69526e+01_rb,0.59676e+01_rb,0.49832e+01_rb,0.50788e+01_rb, &
+        & 0.63485e+01_rb,0.76181e+01_rb,0.88875e+01_rb,0.99377e+01_rb /)
+      kao(:, 2, 3,16) = (/ &
+        & 0.79519e+01_rb,0.69640e+01_rb,0.59765e+01_rb,0.49895e+01_rb,0.50033e+01_rb, &
+        & 0.62541e+01_rb,0.75048e+01_rb,0.87554e+01_rb,0.97869e+01_rb /)
+      kao(:, 3, 3,16) = (/ &
+        & 0.79564e+01_rb,0.69660e+01_rb,0.59762e+01_rb,0.49871e+01_rb,0.49341e+01_rb, &
+        & 0.61676e+01_rb,0.74011e+01_rb,0.86343e+01_rb,0.96531e+01_rb /)
+      kao(:, 4, 3,16) = (/ &
+        & 0.79604e+01_rb,0.69678e+01_rb,0.59753e+01_rb,0.49833e+01_rb,0.48716e+01_rb, &
+        & 0.60895e+01_rb,0.73073e+01_rb,0.85250e+01_rb,0.95280e+01_rb /)
+      kao(:, 5, 3,16) = (/ &
+        & 0.79454e+01_rb,0.69546e+01_rb,0.59641e+01_rb,0.49739e+01_rb,0.48117e+01_rb, &
+        & 0.60146e+01_rb,0.72174e+01_rb,0.84201e+01_rb,0.94106e+01_rb /)
+      kao(:, 1, 4,16) = (/ &
+        & 0.95482e+01_rb,0.83619e+01_rb,0.71758e+01_rb,0.59904e+01_rb,0.61617e+01_rb, &
+        & 0.77021e+01_rb,0.92425e+01_rb,0.10783e+02_rb,0.12199e+02_rb /)
+      kao(:, 2, 4,16) = (/ &
+        & 0.95751e+01_rb,0.83849e+01_rb,0.71952e+01_rb,0.60057e+01_rb,0.60507e+01_rb, &
+        & 0.75634e+01_rb,0.90760e+01_rb,0.10588e+02_rb,0.11979e+02_rb /)
+      kao(:, 3, 4,16) = (/ &
+        & 0.95851e+01_rb,0.83928e+01_rb,0.72008e+01_rb,0.60093e+01_rb,0.59519e+01_rb, &
+        & 0.74398e+01_rb,0.89277e+01_rb,0.10415e+02_rb,0.11784e+02_rb /)
+      kao(:, 4, 4,16) = (/ &
+        & 0.95899e+01_rb,0.83956e+01_rb,0.72016e+01_rb,0.60083e+01_rb,0.58751e+01_rb, &
+        & 0.73438e+01_rb,0.88125e+01_rb,0.10281e+02_rb,0.11628e+02_rb /)
+      kao(:, 5, 4,16) = (/ &
+        & 0.95802e+01_rb,0.83858e+01_rb,0.71919e+01_rb,0.59984e+01_rb,0.58004e+01_rb, &
+        & 0.72505e+01_rb,0.87005e+01_rb,0.10150e+02_rb,0.11482e+02_rb /)
+      kao(:, 1, 5,16) = (/ &
+        & 0.11467e+02_rb,0.10041e+02_rb,0.86153e+01_rb,0.71899e+01_rb,0.74662e+01_rb, &
+        & 0.93327e+01_rb,0.11199e+02_rb,0.13065e+02_rb,0.14858e+02_rb /)
+      kao(:, 2, 5,16) = (/ &
+        & 0.11518e+02_rb,0.10085e+02_rb,0.86526e+01_rb,0.72201e+01_rb,0.73208e+01_rb, &
+        & 0.91509e+01_rb,0.10981e+02_rb,0.12811e+02_rb,0.14568e+02_rb /)
+      kao(:, 3, 5,16) = (/ &
+        & 0.11535e+02_rb,0.10099e+02_rb,0.86636e+01_rb,0.72282e+01_rb,0.71844e+01_rb, &
+        & 0.89805e+01_rb,0.10776e+02_rb,0.12572e+02_rb,0.14298e+02_rb /)
+      kao(:, 4, 5,16) = (/ &
+        & 0.11542e+02_rb,0.10105e+02_rb,0.86677e+01_rb,0.72309e+01_rb,0.70636e+01_rb, &
+        & 0.88295e+01_rb,0.10595e+02_rb,0.12361e+02_rb,0.14056e+02_rb /)
+      kao(:, 5, 5,16) = (/ &
+        & 0.11528e+02_rb,0.10092e+02_rb,0.86561e+01_rb,0.72209e+01_rb,0.69634e+01_rb, &
+        & 0.87042e+01_rb,0.10445e+02_rb,0.12185e+02_rb,0.13857e+02_rb /)
+      kao(:, 1, 6,16) = (/ &
+        & 0.13743e+02_rb,0.12032e+02_rb,0.10321e+02_rb,0.86104e+01_rb,0.90301e+01_rb, &
+        & 0.11288e+02_rb,0.13545e+02_rb,0.15802e+02_rb,0.18010e+02_rb /)
+      kao(:, 2, 6,16) = (/ &
+        & 0.13809e+02_rb,0.12090e+02_rb,0.10370e+02_rb,0.86513e+01_rb,0.88422e+01_rb, &
+        & 0.11053e+02_rb,0.13263e+02_rb,0.15473e+02_rb,0.17638e+02_rb /)
+      kao(:, 3, 6,16) = (/ &
+        & 0.13850e+02_rb,0.12125e+02_rb,0.10400e+02_rb,0.86753e+01_rb,0.86607e+01_rb, &
+        & 0.10826e+02_rb,0.12991e+02_rb,0.15156e+02_rb,0.17275e+02_rb /)
+      kao(:, 4, 6,16) = (/ &
+        & 0.13866e+02_rb,0.12138e+02_rb,0.10411e+02_rb,0.86837e+01_rb,0.84930e+01_rb, &
+        & 0.10616e+02_rb,0.12739e+02_rb,0.14862e+02_rb,0.16940e+02_rb /)
+      kao(:, 5, 6,16) = (/ &
+        & 0.13850e+02_rb,0.12124e+02_rb,0.10399e+02_rb,0.86732e+01_rb,0.83442e+01_rb, &
+        & 0.10430e+02_rb,0.12516e+02_rb,0.14602e+02_rb,0.16644e+02_rb /)
+      kao(:, 1, 7,16) = (/ &
+        & 0.16450e+02_rb,0.14400e+02_rb,0.12350e+02_rb,0.10300e+02_rb,0.10874e+02_rb, &
+        & 0.13593e+02_rb,0.16311e+02_rb,0.19030e+02_rb,0.21722e+02_rb /)
+      kao(:, 2, 7,16) = (/ &
+        & 0.16525e+02_rb,0.14465e+02_rb,0.12405e+02_rb,0.10346e+02_rb,0.10632e+02_rb, &
+        & 0.13290e+02_rb,0.15948e+02_rb,0.18606e+02_rb,0.21239e+02_rb /)
+      kao(:, 3, 7,16) = (/ &
+        & 0.16563e+02_rb,0.14499e+02_rb,0.12434e+02_rb,0.10370e+02_rb,0.10395e+02_rb, &
+        & 0.12994e+02_rb,0.15592e+02_rb,0.18191e+02_rb,0.20762e+02_rb /)
+      kao(:, 4, 7,16) = (/ &
+        & 0.16590e+02_rb,0.14522e+02_rb,0.12454e+02_rb,0.10386e+02_rb,0.10172e+02_rb, &
+        & 0.12715e+02_rb,0.15258e+02_rb,0.17801e+02_rb,0.20317e+02_rb /)
+      kao(:, 5, 7,16) = (/ &
+        & 0.16576e+02_rb,0.14509e+02_rb,0.12443e+02_rb,0.10377e+02_rb,0.99688e+01_rb, &
+        & 0.12461e+02_rb,0.14953e+02_rb,0.17445e+02_rb,0.19913e+02_rb /)
+      kao(:, 1, 8,16) = (/ &
+        & 0.19629e+02_rb,0.17181e+02_rb,0.14733e+02_rb,0.12285e+02_rb,0.13022e+02_rb, &
+        & 0.16277e+02_rb,0.19532e+02_rb,0.22787e+02_rb,0.26029e+02_rb /)
+      kao(:, 2, 8,16) = (/ &
+        & 0.19728e+02_rb,0.17267e+02_rb,0.14807e+02_rb,0.12346e+02_rb,0.12711e+02_rb, &
+        & 0.15888e+02_rb,0.19066e+02_rb,0.22243e+02_rb,0.25406e+02_rb /)
+      kao(:, 3, 8,16) = (/ &
+        & 0.19768e+02_rb,0.17302e+02_rb,0.14837e+02_rb,0.12371e+02_rb,0.12399e+02_rb, &
+        & 0.15499e+02_rb,0.18599e+02_rb,0.21698e+02_rb,0.24782e+02_rb /)
+      kao(:, 4, 8,16) = (/ &
+        & 0.19773e+02_rb,0.17307e+02_rb,0.14840e+02_rb,0.12374e+02_rb,0.12111e+02_rb, &
+        & 0.15139e+02_rb,0.18167e+02_rb,0.21194e+02_rb,0.24210e+02_rb /)
+      kao(:, 5, 8,16) = (/ &
+        & 0.19744e+02_rb,0.17281e+02_rb,0.14818e+02_rb,0.12356e+02_rb,0.11840e+02_rb, &
+        & 0.14800e+02_rb,0.17760e+02_rb,0.20720e+02_rb,0.23667e+02_rb /)
+      kao(:, 1, 9,16) = (/ &
+        & 0.23312e+02_rb,0.20403e+02_rb,0.17494e+02_rb,0.14584e+02_rb,0.15488e+02_rb, &
+        & 0.19360e+02_rb,0.23231e+02_rb,0.27103e+02_rb,0.30970e+02_rb /)
+      kao(:, 2, 9,16) = (/ &
+        & 0.23439e+02_rb,0.20514e+02_rb,0.17588e+02_rb,0.14663e+02_rb,0.15085e+02_rb, &
+        & 0.18856e+02_rb,0.22627e+02_rb,0.26397e+02_rb,0.30166e+02_rb /)
+      kao(:, 3, 9,16) = (/ &
+        & 0.23492e+02_rb,0.20560e+02_rb,0.17628e+02_rb,0.14696e+02_rb,0.14687e+02_rb, &
+        & 0.18356e+02_rb,0.22027e+02_rb,0.25697e+02_rb,0.29367e+02_rb /)
+      kao(:, 4, 9,16) = (/ &
+        & 0.23479e+02_rb,0.20549e+02_rb,0.17619e+02_rb,0.14689e+02_rb,0.14321e+02_rb, &
+        & 0.17895e+02_rb,0.21474e+02_rb,0.25052e+02_rb,0.28629e+02_rb /)
+      kao(:, 5, 9,16) = (/ &
+        & 0.23411e+02_rb,0.20489e+02_rb,0.17567e+02_rb,0.14646e+02_rb,0.13982e+02_rb, &
+        & 0.17451e+02_rb,0.20941e+02_rb,0.24431e+02_rb,0.27917e+02_rb /)
+      kao(:, 1,10,16) = (/ &
+        & 0.27592e+02_rb,0.24147e+02_rb,0.20702e+02_rb,0.17264e+02_rb,0.18240e+02_rb, &
+        & 0.22793e+02_rb,0.27352e+02_rb,0.31910e+02_rb,0.36473e+02_rb /)
+      kao(:, 2,10,16) = (/ &
+        & 0.27703e+02_rb,0.24245e+02_rb,0.20786e+02_rb,0.17327e+02_rb,0.17749e+02_rb, &
+        & 0.22147e+02_rb,0.26577e+02_rb,0.31006e+02_rb,0.35436e+02_rb /)
+      kao(:, 3,10,16) = (/ &
+        & 0.27743e+02_rb,0.24279e+02_rb,0.20816e+02_rb,0.17352e+02_rb,0.17266e+02_rb, &
+        & 0.21525e+02_rb,0.25830e+02_rb,0.30134e+02_rb,0.34441e+02_rb /)
+      kao(:, 4,10,16) = (/ &
+        & 0.27709e+02_rb,0.24250e+02_rb,0.20790e+02_rb,0.17331e+02_rb,0.16811e+02_rb, &
+        & 0.20946e+02_rb,0.25135e+02_rb,0.29324e+02_rb,0.33510e+02_rb /)
+      kao(:, 5,10,16) = (/ &
+        & 0.27598e+02_rb,0.24153e+02_rb,0.20707e+02_rb,0.17262e+02_rb,0.16378e+02_rb, &
+        & 0.20388e+02_rb,0.24466e+02_rb,0.28543e+02_rb,0.32622e+02_rb /)
+      kao(:, 1,11,16) = (/ &
+        & 0.32570e+02_rb,0.28502e+02_rb,0.24434e+02_rb,0.20393e+02_rb,0.21083e+02_rb, &
+        & 0.26245e+02_rb,0.31494e+02_rb,0.36742e+02_rb,0.41994e+02_rb /)
+      kao(:, 2,11,16) = (/ &
+        & 0.32601e+02_rb,0.28529e+02_rb,0.24458e+02_rb,0.20386e+02_rb,0.20492e+02_rb, &
+        & 0.25469e+02_rb,0.30563e+02_rb,0.35657e+02_rb,0.40747e+02_rb /)
+      kao(:, 3,11,16) = (/ &
+        & 0.32535e+02_rb,0.28472e+02_rb,0.24408e+02_rb,0.20345e+02_rb,0.19916e+02_rb, &
+        & 0.24733e+02_rb,0.29679e+02_rb,0.34625e+02_rb,0.39568e+02_rb /)
+      kao(:, 4,11,16) = (/ &
+        & 0.32390e+02_rb,0.28345e+02_rb,0.24301e+02_rb,0.20256e+02_rb,0.19358e+02_rb, &
+        & 0.24023e+02_rb,0.28827e+02_rb,0.33631e+02_rb,0.38435e+02_rb /)
+      kao(:, 5,11,16) = (/ &
+        & 0.32175e+02_rb,0.28157e+02_rb,0.24140e+02_rb,0.20122e+02_rb,0.18819e+02_rb, &
+        & 0.23330e+02_rb,0.27996e+02_rb,0.32661e+02_rb,0.37328e+02_rb /)
+      kao(:, 1,12,16) = (/ &
+        & 0.38135e+02_rb,0.33371e+02_rb,0.28607e+02_rb,0.23891e+02_rb,0.24203e+02_rb, &
+        & 0.29981e+02_rb,0.35977e+02_rb,0.41973e+02_rb,0.47971e+02_rb /)
+      kao(:, 2,12,16) = (/ &
+        & 0.38033e+02_rb,0.33282e+02_rb,0.28531e+02_rb,0.23779e+02_rb,0.23491e+02_rb, &
+        & 0.29038e+02_rb,0.34845e+02_rb,0.40652e+02_rb,0.46464e+02_rb /)
+      kao(:, 3,12,16) = (/ &
+        & 0.37806e+02_rb,0.33084e+02_rb,0.28361e+02_rb,0.23639e+02_rb,0.22788e+02_rb, &
+        & 0.28150e+02_rb,0.33780e+02_rb,0.39409e+02_rb,0.45036e+02_rb /)
+      kao(:, 4,12,16) = (/ &
+        & 0.37497e+02_rb,0.32813e+02_rb,0.28129e+02_rb,0.23446e+02_rb,0.22100e+02_rb, &
+        & 0.27270e+02_rb,0.32724e+02_rb,0.38179e+02_rb,0.43632e+02_rb /)
+      kao(:, 5,12,16) = (/ &
+        & 0.37099e+02_rb,0.32465e+02_rb,0.27831e+02_rb,0.23198e+02_rb,0.21440e+02_rb, &
+        & 0.26398e+02_rb,0.31678e+02_rb,0.36957e+02_rb,0.42237e+02_rb /)
+      kao(:, 1,13,16) = (/ &
+        & 0.44217e+02_rb,0.38692e+02_rb,0.33167e+02_rb,0.27730e+02_rb,0.27605e+02_rb, &
+        & 0.33969e+02_rb,0.40763e+02_rb,0.47556e+02_rb,0.54352e+02_rb /)
+      kao(:, 2,13,16) = (/ &
+        & 0.43915e+02_rb,0.38428e+02_rb,0.32941e+02_rb,0.27455e+02_rb,0.26738e+02_rb, &
+        & 0.32787e+02_rb,0.39345e+02_rb,0.45901e+02_rb,0.52455e+02_rb /)
+      kao(:, 3,13,16) = (/ &
+        & 0.43489e+02_rb,0.38055e+02_rb,0.32622e+02_rb,0.27188e+02_rb,0.25861e+02_rb, &
+        & 0.31686e+02_rb,0.38022e+02_rb,0.44359e+02_rb,0.50700e+02_rb /)
+      kao(:, 4,13,16) = (/ &
+        & 0.42951e+02_rb,0.37585e+02_rb,0.32219e+02_rb,0.26853e+02_rb,0.25006e+02_rb, &
+        & 0.30590e+02_rb,0.36708e+02_rb,0.42826e+02_rb,0.48946e+02_rb /)
+      kao(:, 5,13,16) = (/ &
+        & 0.42298e+02_rb,0.37013e+02_rb,0.31729e+02_rb,0.26445e+02_rb,0.24180e+02_rb, &
+        & 0.29511e+02_rb,0.35413e+02_rb,0.41314e+02_rb,0.47218e+02_rb /)
+  
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kbo(:, 1,13, 1) = (/ &
+        & 0.40633e-08_rb,0.64718e-06_rb,0.79567e-06_rb,0.81264e-06_rb,0.25080e-07_rb /)
+      kbo(:, 2,13, 1) = (/ &
+        & 0.37596e-08_rb,0.70429e-06_rb,0.90855e-06_rb,0.96432e-06_rb,0.28292e-07_rb /)
+      kbo(:, 3,13, 1) = (/ &
+        & 0.34982e-08_rb,0.76370e-06_rb,0.10316e-05_rb,0.11472e-05_rb,0.31265e-07_rb /)
+      kbo(:, 4,13, 1) = (/ &
+        & 0.32707e-08_rb,0.82834e-06_rb,0.11577e-05_rb,0.13387e-05_rb,0.34928e-07_rb /)
+      kbo(:, 5,13, 1) = (/ &
+        & 0.30710e-08_rb,0.90252e-06_rb,0.12962e-05_rb,0.15206e-05_rb,0.38859e-07_rb /)
+      kbo(:, 1,14, 1) = (/ &
+        & 0.33026e-08_rb,0.53592e-06_rb,0.66171e-06_rb,0.67633e-06_rb,0.20767e-07_rb /)
+      kbo(:, 2,14, 1) = (/ &
+        & 0.30574e-08_rb,0.57959e-06_rb,0.75386e-06_rb,0.80395e-06_rb,0.23334e-07_rb /)
+      kbo(:, 3,14, 1) = (/ &
+        & 0.28461e-08_rb,0.62897e-06_rb,0.85486e-06_rb,0.95745e-06_rb,0.25841e-07_rb /)
+      kbo(:, 4,14, 1) = (/ &
+        & 0.26621e-08_rb,0.68352e-06_rb,0.96132e-06_rb,0.11148e-05_rb,0.28862e-07_rb /)
+      kbo(:, 5,14, 1) = (/ &
+        & 0.25005e-08_rb,0.74517e-06_rb,0.10739e-05_rb,0.12632e-05_rb,0.32093e-07_rb /)
+      kbo(:, 1,15, 1) = (/ &
+        & 0.26821e-08_rb,0.44081e-06_rb,0.55093e-06_rb,0.56465e-06_rb,0.17186e-07_rb /)
+      kbo(:, 2,15, 1) = (/ &
+        & 0.24845e-08_rb,0.47773e-06_rb,0.62636e-06_rb,0.67180e-06_rb,0.19234e-07_rb /)
+      kbo(:, 3,15, 1) = (/ &
+        & 0.23140e-08_rb,0.51811e-06_rb,0.70791e-06_rb,0.79658e-06_rb,0.21348e-07_rb /)
+      kbo(:, 4,15, 1) = (/ &
+        & 0.21654e-08_rb,0.56416e-06_rb,0.79893e-06_rb,0.92873e-06_rb,0.23832e-07_rb /)
+      kbo(:, 5,15, 1) = (/ &
+        & 0.20347e-08_rb,0.61535e-06_rb,0.88985e-06_rb,0.10499e-05_rb,0.26485e-07_rb /)
+      kbo(:, 1,16, 1) = (/ &
+        & 0.21775e-08_rb,0.36254e-06_rb,0.45870e-06_rb,0.47125e-06_rb,0.14211e-07_rb /)
+      kbo(:, 2,16, 1) = (/ &
+        & 0.20183e-08_rb,0.39376e-06_rb,0.52053e-06_rb,0.56163e-06_rb,0.15869e-07_rb /)
+      kbo(:, 3,16, 1) = (/ &
+        & 0.18808e-08_rb,0.42687e-06_rb,0.58699e-06_rb,0.66386e-06_rb,0.17627e-07_rb /)
+      kbo(:, 4,16, 1) = (/ &
+        & 0.17608e-08_rb,0.46559e-06_rb,0.66388e-06_rb,0.77063e-06_rb,0.19664e-07_rb /)
+      kbo(:, 5,16, 1) = (/ &
+        & 0.16552e-08_rb,0.50747e-06_rb,0.73699e-06_rb,0.87249e-06_rb,0.21844e-07_rb /)
+      kbo(:, 1,17, 1) = (/ &
+        & 0.17682e-08_rb,0.29836e-06_rb,0.38104e-06_rb,0.39314e-06_rb,0.11735e-07_rb /)
+      kbo(:, 2,17, 1) = (/ &
+        & 0.16399e-08_rb,0.32493e-06_rb,0.43215e-06_rb,0.46897e-06_rb,0.13077e-07_rb /)
+      kbo(:, 3,17, 1) = (/ &
+        & 0.15290e-08_rb,0.35203e-06_rb,0.48665e-06_rb,0.55328e-06_rb,0.14535e-07_rb /)
+      kbo(:, 4,17, 1) = (/ &
+        & 0.14321e-08_rb,0.38383e-06_rb,0.55033e-06_rb,0.63844e-06_rb,0.16208e-07_rb /)
+      kbo(:, 5,17, 1) = (/ &
+        & 0.13468e-08_rb,0.41822e-06_rb,0.60950e-06_rb,0.72376e-06_rb,0.17995e-07_rb /)
+      kbo(:, 1,18, 1) = (/ &
+        & 0.14362e-08_rb,0.24560e-06_rb,0.31667e-06_rb,0.32797e-06_rb,0.96831e-08_rb /)
+      kbo(:, 2,18, 1) = (/ &
+        & 0.13327e-08_rb,0.26784e-06_rb,0.35872e-06_rb,0.39134e-06_rb,0.10773e-07_rb /)
+      kbo(:, 3,18, 1) = (/ &
+        & 0.12432e-08_rb,0.29008e-06_rb,0.40334e-06_rb,0.46026e-06_rb,0.11980e-07_rb /)
+      kbo(:, 4,18, 1) = (/ &
+        & 0.11650e-08_rb,0.31637e-06_rb,0.45583e-06_rb,0.52880e-06_rb,0.13350e-07_rb /)
+      kbo(:, 5,18, 1) = (/ &
+        & 0.10960e-08_rb,0.34503e-06_rb,0.50363e-06_rb,0.59967e-06_rb,0.14815e-07_rb /)
+      kbo(:, 1,19, 1) = (/ &
+        & 0.11667e-08_rb,0.20231e-06_rb,0.26313e-06_rb,0.27359e-06_rb,0.79934e-08_rb /)
+      kbo(:, 2,19, 1) = (/ &
+        & 0.10833e-08_rb,0.22085e-06_rb,0.29760e-06_rb,0.32620e-06_rb,0.88807e-08_rb /)
+      kbo(:, 3,19, 1) = (/ &
+        & 0.10110e-08_rb,0.23912e-06_rb,0.33423e-06_rb,0.38271e-06_rb,0.98771e-08_rb /)
+      kbo(:, 4,19, 1) = (/ &
+        & 0.94778e-09_rb,0.26073e-06_rb,0.37685e-06_rb,0.43791e-06_rb,0.11002e-07_rb /)
+      kbo(:, 5,19, 1) = (/ &
+        & 0.89198e-09_rb,0.28425e-06_rb,0.41589e-06_rb,0.49682e-06_rb,0.12204e-07_rb /)
+      kbo(:, 1,20, 1) = (/ &
+        & 0.94668e-09_rb,0.16735e-06_rb,0.21822e-06_rb,0.22914e-06_rb,0.66237e-08_rb /)
+      kbo(:, 2,20, 1) = (/ &
+        & 0.87956e-09_rb,0.18255e-06_rb,0.24770e-06_rb,0.27290e-06_rb,0.73470e-08_rb /)
+      kbo(:, 3,20, 1) = (/ &
+        & 0.82132e-09_rb,0.19776e-06_rb,0.27786e-06_rb,0.31913e-06_rb,0.81732e-08_rb /)
+      kbo(:, 4,20, 1) = (/ &
+        & 0.77032e-09_rb,0.21557e-06_rb,0.31197e-06_rb,0.36380e-06_rb,0.91019e-08_rb /)
+      kbo(:, 5,20, 1) = (/ &
+        & 0.72528e-09_rb,0.23458e-06_rb,0.34449e-06_rb,0.41257e-06_rb,0.10084e-07_rb /)
+      kbo(:, 1,21, 1) = (/ &
+        & 0.76809e-09_rb,0.13858e-06_rb,0.18138e-06_rb,0.19188e-06_rb,0.54929e-08_rb /)
+      kbo(:, 2,21, 1) = (/ &
+        & 0.71408e-09_rb,0.15088e-06_rb,0.20614e-06_rb,0.22835e-06_rb,0.60825e-08_rb /)
+      kbo(:, 3,21, 1) = (/ &
+        & 0.66717e-09_rb,0.16366e-06_rb,0.23111e-06_rb,0.26622e-06_rb,0.67680e-08_rb /)
+      kbo(:, 4,21, 1) = (/ &
+        & 0.62605e-09_rb,0.17816e-06_rb,0.25834e-06_rb,0.30242e-06_rb,0.75344e-08_rb /)
+      kbo(:, 5,21, 1) = (/ &
+        & 0.58970e-09_rb,0.19374e-06_rb,0.28542e-06_rb,0.34222e-06_rb,0.83394e-08_rb /)
+      kbo(:, 1,22, 1) = (/ &
+        & 0.62013e-09_rb,0.11547e-06_rb,0.15212e-06_rb,0.16227e-06_rb,0.45926e-08_rb /)
+      kbo(:, 2,22, 1) = (/ &
+        & 0.57709e-09_rb,0.12552e-06_rb,0.17211e-06_rb,0.19265e-06_rb,0.50728e-08_rb /)
+      kbo(:, 3,22, 1) = (/ &
+        & 0.53964e-09_rb,0.13619e-06_rb,0.19363e-06_rb,0.22402e-06_rb,0.56454e-08_rb /)
+      kbo(:, 4,22, 1) = (/ &
+        & 0.50675e-09_rb,0.14805e-06_rb,0.21557e-06_rb,0.25320e-06_rb,0.62805e-08_rb /)
+      kbo(:, 5,22, 1) = (/ &
+        & 0.47764e-09_rb,0.16097e-06_rb,0.23799e-06_rb,0.28574e-06_rb,0.69414e-08_rb /)
+      kbo(:, 1,23, 1) = (/ &
+        & 0.50055e-09_rb,0.96165e-07_rb,0.12776e-06_rb,0.13752e-06_rb,0.37933e-08_rb /)
+      kbo(:, 2,23, 1) = (/ &
+        & 0.46627e-09_rb,0.10421e-06_rb,0.14387e-06_rb,0.16226e-06_rb,0.42154e-08_rb /)
+      kbo(:, 3,23, 1) = (/ &
+        & 0.43638e-09_rb,0.11320e-06_rb,0.16240e-06_rb,0.18806e-06_rb,0.46761e-08_rb /)
+      kbo(:, 4,23, 1) = (/ &
+        & 0.41009e-09_rb,0.12312e-06_rb,0.18002e-06_rb,0.21214e-06_rb,0.51724e-08_rb /)
+      kbo(:, 5,23, 1) = (/ &
+        & 0.38679e-09_rb,0.13380e-06_rb,0.19835e-06_rb,0.23836e-06_rb,0.56863e-08_rb /)
+      kbo(:, 1,24, 1) = (/ &
+        & 0.40384e-09_rb,0.80174e-07_rb,0.10742e-06_rb,0.11665e-06_rb,0.31435e-08_rb /)
+      kbo(:, 2,24, 1) = (/ &
+        & 0.37656e-09_rb,0.86611e-07_rb,0.12062e-06_rb,0.13694e-06_rb,0.34746e-08_rb /)
+      kbo(:, 3,24, 1) = (/ &
+        & 0.35273e-09_rb,0.94203e-07_rb,0.13610e-06_rb,0.15729e-06_rb,0.38586e-08_rb /)
+      kbo(:, 4,24, 1) = (/ &
+        & 0.33174e-09_rb,0.10246e-06_rb,0.15035e-06_rb,0.17775e-06_rb,0.42707e-08_rb /)
+      kbo(:, 5,24, 1) = (/ &
+        & 0.31310e-09_rb,0.11122e-06_rb,0.16543e-06_rb,0.19917e-06_rb,0.47020e-08_rb /)
+      kbo(:, 1,25, 1) = (/ &
+        & 0.32562e-09_rb,0.66785e-07_rb,0.90447e-07_rb,0.99059e-07_rb,0.26134e-08_rb /)
+      kbo(:, 2,25, 1) = (/ &
+        & 0.30393e-09_rb,0.72133e-07_rb,0.10139e-06_rb,0.11571e-06_rb,0.28872e-08_rb /)
+      kbo(:, 3,25, 1) = (/ &
+        & 0.28495e-09_rb,0.78448e-07_rb,0.11385e-06_rb,0.13178e-06_rb,0.32061e-08_rb /)
+      kbo(:, 4,25, 1) = (/ &
+        & 0.26821e-09_rb,0.85339e-07_rb,0.12563e-06_rb,0.14914e-06_rb,0.35489e-08_rb /)
+      kbo(:, 5,25, 1) = (/ &
+        & 0.25332e-09_rb,0.92445e-07_rb,0.13814e-06_rb,0.16674e-06_rb,0.39060e-08_rb /)
+      kbo(:, 1,26, 1) = (/ &
+        & 0.26224e-09_rb,0.55680e-07_rb,0.76369e-07_rb,0.84400e-07_rb,0.21759e-08_rb /)
+      kbo(:, 2,26, 1) = (/ &
+        & 0.24504e-09_rb,0.60204e-07_rb,0.85423e-07_rb,0.97885e-07_rb,0.24118e-08_rb /)
+      kbo(:, 3,26, 1) = (/ &
+        & 0.22996e-09_rb,0.65477e-07_rb,0.95321e-07_rb,0.11093e-06_rb,0.26774e-08_rb /)
+      kbo(:, 4,26, 1) = (/ &
+        & 0.21663e-09_rb,0.71188e-07_rb,0.10529e-06_rb,0.12544e-06_rb,0.29615e-08_rb /)
+      kbo(:, 5,26, 1) = (/ &
+        & 0.20475e-09_rb,0.76940e-07_rb,0.11556e-06_rb,0.13977e-06_rb,0.32569e-08_rb /)
+      kbo(:, 1,27, 1) = (/ &
+        & 0.21120e-09_rb,0.46382e-07_rb,0.63894e-07_rb,0.71379e-07_rb,0.18178e-08_rb /)
+      kbo(:, 2,27, 1) = (/ &
+        & 0.19756e-09_rb,0.50278e-07_rb,0.72033e-07_rb,0.82909e-07_rb,0.20181e-08_rb /)
+      kbo(:, 3,27, 1) = (/ &
+        & 0.18557e-09_rb,0.54670e-07_rb,0.79953e-07_rb,0.93505e-07_rb,0.22396e-08_rb /)
+      kbo(:, 4,27, 1) = (/ &
+        & 0.17496e-09_rb,0.59408e-07_rb,0.88179e-07_rb,0.10553e-06_rb,0.24737e-08_rb /)
+      kbo(:, 5,27, 1) = (/ &
+        & 0.16549e-09_rb,0.64025e-07_rb,0.96696e-07_rb,0.11704e-06_rb,0.27092e-08_rb /)
+      kbo(:, 1,28, 1) = (/ &
+        & 0.17010e-09_rb,0.38631e-07_rb,0.53773e-07_rb,0.60579e-07_rb,0.15220e-08_rb /)
+      kbo(:, 2,28, 1) = (/ &
+        & 0.15928e-09_rb,0.42001e-07_rb,0.60660e-07_rb,0.69727e-07_rb,0.16901e-08_rb /)
+      kbo(:, 3,28, 1) = (/ &
+        & 0.14976e-09_rb,0.45661e-07_rb,0.67065e-07_rb,0.78845e-07_rb,0.18696e-08_rb /)
+      kbo(:, 4,28, 1) = (/ &
+        & 0.14131e-09_rb,0.49571e-07_rb,0.73809e-07_rb,0.88481e-07_rb,0.20611e-08_rb /)
+      kbo(:, 5,28, 1) = (/ &
+        & 0.13376e-09_rb,0.53304e-07_rb,0.80910e-07_rb,0.98017e-07_rb,0.22565e-08_rb /)
+      kbo(:, 1,29, 1) = (/ &
+        & 0.13696e-09_rb,0.32270e-07_rb,0.45392e-07_rb,0.51438e-07_rb,0.12721e-08_rb /)
+      kbo(:, 2,29, 1) = (/ &
+        & 0.12839e-09_rb,0.35079e-07_rb,0.50946e-07_rb,0.58726e-07_rb,0.14118e-08_rb /)
+      kbo(:, 3,29, 1) = (/ &
+        & 0.12082e-09_rb,0.38150e-07_rb,0.56258e-07_rb,0.66493e-07_rb,0.15628e-08_rb /)
+      kbo(:, 4,29, 1) = (/ &
+        & 0.11410e-09_rb,0.41324e-07_rb,0.61843e-07_rb,0.74387e-07_rb,0.17205e-08_rb /)
+      kbo(:, 5,29, 1) = (/ &
+        & 0.10808e-09_rb,0.44387e-07_rb,0.67739e-07_rb,0.82216e-07_rb,0.18745e-08_rb /)
+      kbo(:, 1,30, 1) = (/ &
+        & 0.11029e-09_rb,0.26970e-07_rb,0.38330e-07_rb,0.43698e-07_rb,0.10655e-08_rb /)
+      kbo(:, 2,30, 1) = (/ &
+        & 0.10349e-09_rb,0.29319e-07_rb,0.42739e-07_rb,0.49552e-07_rb,0.11823e-08_rb /)
+      kbo(:, 3,30, 1) = (/ &
+        & 0.97483e-10_rb,0.31869e-07_rb,0.47210e-07_rb,0.56057e-07_rb,0.13038e-08_rb /)
+      kbo(:, 4,30, 1) = (/ &
+        & 0.92133e-10_rb,0.34436e-07_rb,0.51812e-07_rb,0.62485e-07_rb,0.14285e-08_rb /)
+      kbo(:, 5,30, 1) = (/ &
+        & 0.87340e-10_rb,0.36953e-07_rb,0.56709e-07_rb,0.68921e-07_rb,0.15563e-08_rb /)
+      kbo(:, 1,31, 1) = (/ &
+        & 0.88806e-10_rb,0.22555e-07_rb,0.32386e-07_rb,0.37129e-07_rb,0.89029e-09_rb /)
+      kbo(:, 2,31, 1) = (/ &
+        & 0.83417e-10_rb,0.24519e-07_rb,0.35921e-07_rb,0.41870e-07_rb,0.98548e-09_rb /)
+      kbo(:, 3,31, 1) = (/ &
+        & 0.78644e-10_rb,0.26638e-07_rb,0.39609e-07_rb,0.47273e-07_rb,0.10854e-08_rb /)
+      kbo(:, 4,31, 1) = (/ &
+        & 0.74388e-10_rb,0.28694e-07_rb,0.43423e-07_rb,0.52435e-07_rb,0.11880e-08_rb /)
+      kbo(:, 5,31, 1) = (/ &
+        & 0.70568e-10_rb,0.30776e-07_rb,0.47411e-07_rb,0.57750e-07_rb,0.12931e-08_rb /)
+      kbo(:, 1,32, 1) = (/ &
+        & 0.71507e-10_rb,0.18870e-07_rb,0.27332e-07_rb,0.31309e-07_rb,0.74436e-09_rb /)
+      kbo(:, 2,32, 1) = (/ &
+        & 0.67235e-10_rb,0.20512e-07_rb,0.30189e-07_rb,0.35407e-07_rb,0.82294e-09_rb /)
+      kbo(:, 3,32, 1) = (/ &
+        & 0.63444e-10_rb,0.22259e-07_rb,0.33218e-07_rb,0.39730e-07_rb,0.90483e-09_rb /)
+      kbo(:, 4,32, 1) = (/ &
+        & 0.60058e-10_rb,0.23923e-07_rb,0.36405e-07_rb,0.43976e-07_rb,0.98908e-09_rb /)
+      kbo(:, 5,32, 1) = (/ &
+        & 0.57015e-10_rb,0.25634e-07_rb,0.39548e-07_rb,0.48346e-07_rb,0.10750e-08_rb /)
+      kbo(:, 1,33, 1) = (/ &
+        & 0.57586e-10_rb,0.15779e-07_rb,0.22950e-07_rb,0.26415e-07_rb,0.62256e-09_rb /)
+      kbo(:, 2,33, 1) = (/ &
+        & 0.54199e-10_rb,0.17153e-07_rb,0.25354e-07_rb,0.29904e-07_rb,0.68734e-09_rb /)
+      kbo(:, 3,33, 1) = (/ &
+        & 0.51188e-10_rb,0.18569e-07_rb,0.27869e-07_rb,0.33404e-07_rb,0.75467e-09_rb /)
+      kbo(:, 4,33, 1) = (/ &
+        & 0.48493e-10_rb,0.19935e-07_rb,0.30437e-07_rb,0.36856e-07_rb,0.82369e-09_rb /)
+      kbo(:, 5,33, 1) = (/ &
+        & 0.46069e-10_rb,0.21345e-07_rb,0.32988e-07_rb,0.40478e-07_rb,0.89402e-09_rb /)
+      kbo(:, 1,34, 1) = (/ &
+        & 0.46487e-10_rb,0.13161e-07_rb,0.19216e-07_rb,0.22212e-07_rb,0.51910e-09_rb /)
+      kbo(:, 2,34, 1) = (/ &
+        & 0.43789e-10_rb,0.14301e-07_rb,0.21182e-07_rb,0.25090e-07_rb,0.57247e-09_rb /)
+      kbo(:, 3,34, 1) = (/ &
+        & 0.41386e-10_rb,0.15447e-07_rb,0.23208e-07_rb,0.27938e-07_rb,0.62767e-09_rb /)
+      kbo(:, 4,34, 1) = (/ &
+        & 0.39234e-10_rb,0.16571e-07_rb,0.25347e-07_rb,0.30795e-07_rb,0.68426e-09_rb /)
+      kbo(:, 5,34, 1) = (/ &
+        & 0.37294e-10_rb,0.17725e-07_rb,0.27392e-07_rb,0.33781e-07_rb,0.74179e-09_rb /)
+      kbo(:, 1,35, 1) = (/ &
+        & 0.37756e-10_rb,0.10890e-07_rb,0.15882e-07_rb,0.18441e-07_rb,0.42871e-09_rb /)
+      kbo(:, 2,35, 1) = (/ &
+        & 0.35581e-10_rb,0.11830e-07_rb,0.17514e-07_rb,0.20810e-07_rb,0.47251e-09_rb /)
+      kbo(:, 3,35, 1) = (/ &
+        & 0.33643e-10_rb,0.12757e-07_rb,0.19184e-07_rb,0.23148e-07_rb,0.51769e-09_rb /)
+      kbo(:, 4,35, 1) = (/ &
+        & 0.31905e-10_rb,0.13682e-07_rb,0.20941e-07_rb,0.25477e-07_rb,0.56394e-09_rb /)
+      kbo(:, 5,35, 1) = (/ &
+        & 0.30338e-10_rb,0.14628e-07_rb,0.22613e-07_rb,0.27948e-07_rb,0.61100e-09_rb /)
+      kbo(:, 1,36, 1) = (/ &
+        & 0.30872e-10_rb,0.89290e-08_rb,0.13007e-07_rb,0.15108e-07_rb,0.35034e-09_rb /)
+      kbo(:, 2,36, 1) = (/ &
+        & 0.29096e-10_rb,0.96995e-08_rb,0.14343e-07_rb,0.17051e-07_rb,0.38609e-09_rb /)
+      kbo(:, 3,36, 1) = (/ &
+        & 0.27513e-10_rb,0.10456e-07_rb,0.15713e-07_rb,0.18968e-07_rb,0.42296e-09_rb /)
+      kbo(:, 4,36, 1) = (/ &
+        & 0.26093e-10_rb,0.11213e-07_rb,0.17153e-07_rb,0.20875e-07_rb,0.46073e-09_rb /)
+      kbo(:, 5,36, 1) = (/ &
+        & 0.24812e-10_rb,0.11987e-07_rb,0.18522e-07_rb,0.22899e-07_rb,0.49916e-09_rb /)
+      kbo(:, 1,37, 1) = (/ &
+        & 0.25479e-10_rb,0.72338e-08_rb,0.10508e-07_rb,0.12165e-07_rb,0.28268e-09_rb /)
+      kbo(:, 2,37, 1) = (/ &
+        & 0.24002e-10_rb,0.78593e-08_rb,0.11594e-07_rb,0.13747e-07_rb,0.31173e-09_rb /)
+      kbo(:, 3,37, 1) = (/ &
+        & 0.22687e-10_rb,0.84845e-08_rb,0.12712e-07_rb,0.15315e-07_rb,0.34178e-09_rb /)
+      kbo(:, 4,37, 1) = (/ &
+        & 0.21508e-10_rb,0.90997e-08_rb,0.13892e-07_rb,0.16886e-07_rb,0.37260e-09_rb /)
+      kbo(:, 5,37, 1) = (/ &
+        & 0.20446e-10_rb,0.97322e-08_rb,0.15012e-07_rb,0.18526e-07_rb,0.40398e-09_rb /)
+      kbo(:, 1,38, 1) = (/ &
+        & 0.21041e-10_rb,0.58565e-08_rb,0.84831e-08_rb,0.97892e-08_rb,0.22791e-09_rb /)
+      kbo(:, 2,38, 1) = (/ &
+        & 0.19811e-10_rb,0.63636e-08_rb,0.93619e-08_rb,0.11072e-07_rb,0.25148e-09_rb /)
+      kbo(:, 3,38, 1) = (/ &
+        & 0.18717e-10_rb,0.68784e-08_rb,0.10276e-07_rb,0.12360e-07_rb,0.27595e-09_rb /)
+      kbo(:, 4,38, 1) = (/ &
+        & 0.17738e-10_rb,0.73792e-08_rb,0.11234e-07_rb,0.13638e-07_rb,0.30109e-09_rb /)
+      kbo(:, 5,38, 1) = (/ &
+        & 0.16856e-10_rb,0.78971e-08_rb,0.12166e-07_rb,0.14977e-07_rb,0.32671e-09_rb /)
+      kbo(:, 1,39, 1) = (/ &
+        & 0.17377e-10_rb,0.47418e-08_rb,0.68561e-08_rb,0.78795e-08_rb,0.18373e-09_rb /)
+      kbo(:, 2,39, 1) = (/ &
+        & 0.16353e-10_rb,0.51532e-08_rb,0.75620e-08_rb,0.89128e-08_rb,0.20284e-09_rb /)
+      kbo(:, 3,39, 1) = (/ &
+        & 0.15443e-10_rb,0.55752e-08_rb,0.83069e-08_rb,0.99666e-08_rb,0.22279e-09_rb /)
+      kbo(:, 4,39, 1) = (/ &
+        & 0.14629e-10_rb,0.59857e-08_rb,0.90872e-08_rb,0.11011e-07_rb,0.24327e-09_rb /)
+      kbo(:, 5,39, 1) = (/ &
+        & 0.13896e-10_rb,0.64086e-08_rb,0.98616e-08_rb,0.12104e-07_rb,0.26420e-09_rb /)
+      kbo(:, 1,40, 1) = (/ &
+        & 0.14445e-10_rb,0.38091e-08_rb,0.54799e-08_rb,0.62754e-08_rb,0.14679e-09_rb /)
+      kbo(:, 2,40, 1) = (/ &
+        & 0.13581e-10_rb,0.41391e-08_rb,0.60530e-08_rb,0.70909e-08_rb,0.16220e-09_rb /)
+      kbo(:, 3,40, 1) = (/ &
+        & 0.12815e-10_rb,0.44888e-08_rb,0.66555e-08_rb,0.79532e-08_rb,0.17842e-09_rb /)
+      kbo(:, 4,40, 1) = (/ &
+        & 0.12131e-10_rb,0.48207e-08_rb,0.72855e-08_rb,0.88071e-08_rb,0.19509e-09_rb /)
+      kbo(:, 5,40, 1) = (/ &
+        & 0.11516e-10_rb,0.51646e-08_rb,0.79268e-08_rb,0.96932e-08_rb,0.21214e-09_rb /)
+      kbo(:, 1,41, 1) = (/ &
+        & 0.12021e-10_rb,0.30566e-08_rb,0.43606e-08_rb,0.49921e-08_rb,0.11713e-09_rb /)
+      kbo(:, 2,41, 1) = (/ &
+        & 0.11291e-10_rb,0.33205e-08_rb,0.48340e-08_rb,0.56256e-08_rb,0.12954e-09_rb /)
+      kbo(:, 3,41, 1) = (/ &
+        & 0.10645e-10_rb,0.36053e-08_rb,0.53261e-08_rb,0.63473e-08_rb,0.14269e-09_rb /)
+      kbo(:, 4,41, 1) = (/ &
+        & 0.10069e-10_rb,0.38782e-08_rb,0.58347e-08_rb,0.70386e-08_rb,0.15624e-09_rb /)
+      kbo(:, 5,41, 1) = (/ &
+        & 0.95520e-11_rb,0.41580e-08_rb,0.63647e-08_rb,0.77515e-08_rb,0.17013e-09_rb /)
+      kbo(:, 1,42, 1) = (/ &
+        & 0.10007e-10_rb,0.24516e-08_rb,0.34653e-08_rb,0.39398e-08_rb,0.93475e-10_rb /)
+      kbo(:, 2,42, 1) = (/ &
+        & 0.93902e-11_rb,0.26631e-08_rb,0.38588e-08_rb,0.44635e-08_rb,0.10342e-09_rb /)
+      kbo(:, 3,42, 1) = (/ &
+        & 0.88449e-11_rb,0.28926e-08_rb,0.42600e-08_rb,0.50466e-08_rb,0.11406e-09_rb /)
+      kbo(:, 4,42, 1) = (/ &
+        & 0.83594e-11_rb,0.31198e-08_rb,0.46719e-08_rb,0.56218e-08_rb,0.12507e-09_rb /)
+      kbo(:, 5,42, 1) = (/ &
+        & 0.79244e-11_rb,0.33465e-08_rb,0.51065e-08_rb,0.61999e-08_rb,0.13640e-09_rb /)
+      kbo(:, 1,43, 1) = (/ &
+        & 0.83647e-11_rb,0.19578e-08_rb,0.27341e-08_rb,0.30827e-08_rb,0.74277e-10_rb /)
+      kbo(:, 2,43, 1) = (/ &
+        & 0.78389e-11_rb,0.21263e-08_rb,0.30690e-08_rb,0.35212e-08_rb,0.82118e-10_rb /)
+      kbo(:, 3,43, 1) = (/ &
+        & 0.73752e-11_rb,0.23103e-08_rb,0.33865e-08_rb,0.39836e-08_rb,0.90672e-10_rb /)
+      kbo(:, 4,43, 1) = (/ &
+        & 0.69633e-11_rb,0.24984e-08_rb,0.37198e-08_rb,0.44569e-08_rb,0.99628e-10_rb /)
+      kbo(:, 5,43, 1) = (/ &
+        & 0.65950e-11_rb,0.26833e-08_rb,0.40709e-08_rb,0.49265e-08_rb,0.10883e-09_rb /)
+      kbo(:, 1,44, 1) = (/ &
+        & 0.70070e-11_rb,0.15628e-08_rb,0.21521e-08_rb,0.24017e-08_rb,0.59116e-10_rb /)
+      kbo(:, 2,44, 1) = (/ &
+        & 0.65570e-11_rb,0.16954e-08_rb,0.24254e-08_rb,0.27772e-08_rb,0.65027e-10_rb /)
+      kbo(:, 3,44, 1) = (/ &
+        & 0.61612e-11_rb,0.18413e-08_rb,0.26845e-08_rb,0.31310e-08_rb,0.71892e-10_rb /)
+      kbo(:, 4,44, 1) = (/ &
+        & 0.58106e-11_rb,0.19977e-08_rb,0.29542e-08_rb,0.35211e-08_rb,0.79144e-10_rb /)
+      kbo(:, 5,44, 1) = (/ &
+        & 0.54976e-11_rb,0.21464e-08_rb,0.32360e-08_rb,0.39045e-08_rb,0.86629e-10_rb /)
+      kbo(:, 1,45, 1) = (/ &
+        & 0.58728e-11_rb,0.12500e-08_rb,0.17079e-08_rb,0.18743e-08_rb,0.46646e-10_rb /)
+      kbo(:, 2,45, 1) = (/ &
+        & 0.54873e-11_rb,0.13505e-08_rb,0.19105e-08_rb,0.21719e-08_rb,0.51499e-10_rb /)
+      kbo(:, 3,45, 1) = (/ &
+        & 0.51492e-11_rb,0.14670e-08_rb,0.21250e-08_rb,0.24590e-08_rb,0.56982e-10_rb /)
+      kbo(:, 4,45, 1) = (/ &
+        & 0.48504e-11_rb,0.15931e-08_rb,0.23464e-08_rb,0.27802e-08_rb,0.62839e-10_rb /)
+      kbo(:, 5,45, 1) = (/ &
+        & 0.45844e-11_rb,0.17167e-08_rb,0.25731e-08_rb,0.30954e-08_rb,0.68908e-10_rb /)
+      kbo(:, 1,46, 1) = (/ &
+        & 0.49328e-11_rb,0.99811e-09_rb,0.13397e-08_rb,0.14457e-08_rb,0.36694e-10_rb /)
+      kbo(:, 2,46, 1) = (/ &
+        & 0.46012e-11_rb,0.10742e-08_rb,0.14986e-08_rb,0.16875e-08_rb,0.40742e-10_rb /)
+      kbo(:, 3,46, 1) = (/ &
+        & 0.43113e-11_rb,0.11665e-08_rb,0.16813e-08_rb,0.19281e-08_rb,0.45049e-10_rb /)
+      kbo(:, 4,46, 1) = (/ &
+        & 0.40558e-11_rb,0.12673e-08_rb,0.18567e-08_rb,0.21817e-08_rb,0.49751e-10_rb /)
+      kbo(:, 5,46, 1) = (/ &
+        & 0.38288e-11_rb,0.13702e-08_rb,0.20399e-08_rb,0.24419e-08_rb,0.54679e-10_rb /)
+      kbo(:, 1,47, 1) = (/ &
+        & 0.41592e-11_rb,0.79205e-09_rb,0.10438e-08_rb,0.11055e-08_rb,0.28709e-10_rb /)
+      kbo(:, 2,47, 1) = (/ &
+        & 0.38717e-11_rb,0.85357e-09_rb,0.11710e-08_rb,0.13015e-08_rb,0.32198e-10_rb /)
+      kbo(:, 3,47, 1) = (/ &
+        & 0.36215e-11_rb,0.92515e-09_rb,0.13196e-08_rb,0.15103e-08_rb,0.35448e-10_rb /)
+      kbo(:, 4,47, 1) = (/ &
+        & 0.34016e-11_rb,0.10046e-08_rb,0.14619e-08_rb,0.17010e-08_rb,0.39203e-10_rb /)
+      kbo(:, 5,47, 1) = (/ &
+        & 0.32069e-11_rb,0.10904e-08_rb,0.16100e-08_rb,0.19168e-08_rb,0.43187e-10_rb /)
+      kbo(:, 1,48, 1) = (/ &
+        & 0.35100e-11_rb,0.62849e-09_rb,0.81319e-09_rb,0.84567e-09_rb,0.22456e-10_rb /)
+      kbo(:, 2,48, 1) = (/ &
+        & 0.32605e-11_rb,0.68021e-09_rb,0.92169e-09_rb,0.10040e-08_rb,0.25229e-10_rb /)
+      kbo(:, 3,48, 1) = (/ &
+        & 0.30441e-11_rb,0.73294e-09_rb,0.10314e-08_rb,0.11665e-08_rb,0.27903e-10_rb /)
+      kbo(:, 4,48, 1) = (/ &
+        & 0.28547e-11_rb,0.79615e-09_rb,0.11495e-08_rb,0.13251e-08_rb,0.30879e-10_rb /)
+      kbo(:, 5,48, 1) = (/ &
+        & 0.26874e-11_rb,0.86463e-09_rb,0.12703e-08_rb,0.14994e-08_rb,0.34082e-10_rb /)
+      kbo(:, 1,49, 1) = (/ &
+        & 0.29649e-11_rb,0.49867e-09_rb,0.63572e-09_rb,0.64557e-09_rb,0.17554e-10_rb /)
+      kbo(:, 2,49, 1) = (/ &
+        & 0.27480e-11_rb,0.54124e-09_rb,0.71871e-09_rb,0.76840e-09_rb,0.19749e-10_rb /)
+      kbo(:, 3,49, 1) = (/ &
+        & 0.25606e-11_rb,0.58140e-09_rb,0.80413e-09_rb,0.90054e-09_rb,0.22012e-10_rb /)
+      kbo(:, 4,49, 1) = (/ &
+        & 0.23972e-11_rb,0.63097e-09_rb,0.90637e-09_rb,0.10349e-08_rb,0.24308e-10_rb /)
+      kbo(:, 5,49, 1) = (/ &
+        & 0.22534e-11_rb,0.68545e-09_rb,0.10006e-08_rb,0.11704e-08_rb,0.26872e-10_rb /)
+      kbo(:, 1,50, 1) = (/ &
+        & 0.25019e-11_rb,0.39853e-09_rb,0.49374e-09_rb,0.49615e-09_rb,0.13762e-10_rb /)
+      kbo(:, 2,50, 1) = (/ &
+        & 0.23136e-11_rb,0.42952e-09_rb,0.56141e-09_rb,0.58980e-09_rb,0.15500e-10_rb /)
+      kbo(:, 3,50, 1) = (/ &
+        & 0.21517e-11_rb,0.46334e-09_rb,0.63284e-09_rb,0.69788e-09_rb,0.17390e-10_rb /)
+      kbo(:, 4,50, 1) = (/ &
+        & 0.20110e-11_rb,0.50130e-09_rb,0.71124e-09_rb,0.80903e-09_rb,0.19184e-10_rb /)
+      kbo(:, 5,50, 1) = (/ &
+        & 0.18875e-11_rb,0.54446e-09_rb,0.78908e-09_rb,0.91435e-09_rb,0.21230e-10_rb /)
+      kbo(:, 1,51, 1) = (/ &
+        & 0.21111e-11_rb,0.31534e-09_rb,0.38552e-09_rb,0.38324e-09_rb,0.10851e-10_rb /)
+      kbo(:, 2,51, 1) = (/ &
+        & 0.19478e-11_rb,0.34179e-09_rb,0.43986e-09_rb,0.45355e-09_rb,0.12176e-10_rb /)
+      kbo(:, 3,51, 1) = (/ &
+        & 0.18079e-11_rb,0.37016e-09_rb,0.49835e-09_rb,0.53919e-09_rb,0.13683e-10_rb /)
+      kbo(:, 4,51, 1) = (/ &
+        & 0.16868e-11_rb,0.39846e-09_rb,0.55746e-09_rb,0.62805e-09_rb,0.15164e-10_rb /)
+      kbo(:, 5,51, 1) = (/ &
+        & 0.15809e-11_rb,0.43272e-09_rb,0.62310e-09_rb,0.71587e-09_rb,0.16785e-10_rb /)
+      kbo(:, 1,52, 1) = (/ &
+        & 0.17830e-11_rb,0.24939e-09_rb,0.30033e-09_rb,0.29708e-09_rb,0.85480e-11_rb /)
+      kbo(:, 2,52, 1) = (/ &
+        & 0.16410e-11_rb,0.27244e-09_rb,0.34467e-09_rb,0.34870e-09_rb,0.95642e-11_rb /)
+      kbo(:, 3,52, 1) = (/ &
+        & 0.15200e-11_rb,0.29507e-09_rb,0.39020e-09_rb,0.41505e-09_rb,0.10764e-10_rb /)
+      kbo(:, 4,52, 1) = (/ &
+        & 0.14156e-11_rb,0.31736e-09_rb,0.43693e-09_rb,0.48758e-09_rb,0.12016e-10_rb /)
+      kbo(:, 5,52, 1) = (/ &
+        & 0.13246e-11_rb,0.34409e-09_rb,0.49243e-09_rb,0.56181e-09_rb,0.13267e-10_rb /)
+      kbo(:, 1,53, 1) = (/ &
+        & 0.15074e-11_rb,0.19746e-09_rb,0.23442e-09_rb,0.23027e-09_rb,0.66942e-11_rb /)
+      kbo(:, 2,53, 1) = (/ &
+        & 0.13838e-11_rb,0.21754e-09_rb,0.26812e-09_rb,0.26865e-09_rb,0.75095e-11_rb /)
+      kbo(:, 3,53, 1) = (/ &
+        & 0.12789e-11_rb,0.23445e-09_rb,0.30510e-09_rb,0.31916e-09_rb,0.84626e-11_rb /)
+      kbo(:, 4,53, 1) = (/ &
+        & 0.11888e-11_rb,0.25305e-09_rb,0.34496e-09_rb,0.37906e-09_rb,0.94963e-11_rb /)
+      kbo(:, 5,53, 1) = (/ &
+        & 0.11106e-11_rb,0.27355e-09_rb,0.38680e-09_rb,0.43882e-09_rb,0.10486e-10_rb /)
+      kbo(:, 1,54, 1) = (/ &
+        & 0.12722e-11_rb,0.15676e-09_rb,0.18436e-09_rb,0.18188e-09_rb,0.52601e-11_rb /)
+      kbo(:, 2,54, 1) = (/ &
+        & 0.11649e-11_rb,0.17256e-09_rb,0.21030e-09_rb,0.20876e-09_rb,0.59465e-11_rb /)
+      kbo(:, 3,54, 1) = (/ &
+        & 0.10743e-11_rb,0.18706e-09_rb,0.24022e-09_rb,0.24657e-09_rb,0.66750e-11_rb /)
+      kbo(:, 4,54, 1) = (/ &
+        & 0.99683e-12_rb,0.20263e-09_rb,0.27206e-09_rb,0.29337e-09_rb,0.75016e-11_rb /)
+      kbo(:, 5,54, 1) = (/ &
+        & 0.92975e-12_rb,0.21798e-09_rb,0.30420e-09_rb,0.34203e-09_rb,0.83182e-11_rb /)
+      kbo(:, 1,55, 1) = (/ &
+        & 0.10733e-11_rb,0.12552e-09_rb,0.14668e-09_rb,0.14477e-09_rb,0.41440e-11_rb /)
+      kbo(:, 2,55, 1) = (/ &
+        & 0.98027e-12_rb,0.13705e-09_rb,0.16480e-09_rb,0.16298e-09_rb,0.47137e-11_rb /)
+      kbo(:, 3,55, 1) = (/ &
+        & 0.90209e-12_rb,0.14966e-09_rb,0.18911e-09_rb,0.19117e-09_rb,0.52730e-11_rb /)
+      kbo(:, 4,55, 1) = (/ &
+        & 0.83546e-12_rb,0.16210e-09_rb,0.21410e-09_rb,0.22758e-09_rb,0.59349e-11_rb /)
+      kbo(:, 5,55, 1) = (/ &
+        & 0.77800e-12_rb,0.17423e-09_rb,0.23972e-09_rb,0.26725e-09_rb,0.66163e-11_rb /)
+      kbo(:, 1,56, 1) = (/ &
+        & 0.90624e-12_rb,0.99786e-10_rb,0.11674e-09_rb,0.11286e-09_rb,0.32776e-11_rb /)
+      kbo(:, 2,56, 1) = (/ &
+        & 0.82547e-12_rb,0.10897e-09_rb,0.12938e-09_rb,0.12705e-09_rb,0.37161e-11_rb /)
+      kbo(:, 3,56, 1) = (/ &
+        & 0.75791e-12_rb,0.12009e-09_rb,0.14804e-09_rb,0.14827e-09_rb,0.41646e-11_rb /)
+      kbo(:, 4,56, 1) = (/ &
+        & 0.70058e-12_rb,0.12925e-09_rb,0.16837e-09_rb,0.17630e-09_rb,0.46957e-11_rb /)
+      kbo(:, 5,56, 1) = (/ &
+        & 0.65131e-12_rb,0.13937e-09_rb,0.18999e-09_rb,0.20899e-09_rb,0.52742e-11_rb /)
+      kbo(:, 1,57, 1) = (/ &
+        & 0.76595e-12_rb,0.78822e-10_rb,0.93863e-10_rb,0.87529e-10_rb,0.26033e-11_rb /)
+      kbo(:, 2,57, 1) = (/ &
+        & 0.69568e-12_rb,0.86555e-10_rb,0.10190e-09_rb,0.10022e-09_rb,0.29288e-11_rb /)
+      kbo(:, 3,57, 1) = (/ &
+        & 0.63721e-12_rb,0.95385e-10_rb,0.11640e-09_rb,0.11533e-09_rb,0.32994e-11_rb /)
+      kbo(:, 4,57, 1) = (/ &
+        & 0.58782e-12_rb,0.10325e-09_rb,0.13264e-09_rb,0.13663e-09_rb,0.37186e-11_rb /)
+      kbo(:, 5,57, 1) = (/ &
+        & 0.54552e-12_rb,0.11173e-09_rb,0.15042e-09_rb,0.16253e-09_rb,0.41819e-11_rb /)
+      kbo(:, 1,58, 1) = (/ &
+        & 0.64693e-12_rb,0.62421e-10_rb,0.76174e-10_rb,0.68324e-10_rb,0.20833e-11_rb /)
+      kbo(:, 2,58, 1) = (/ &
+        & 0.58588e-12_rb,0.69278e-10_rb,0.81197e-10_rb,0.79691e-10_rb,0.23130e-11_rb /)
+      kbo(:, 3,58, 1) = (/ &
+        & 0.53535e-12_rb,0.75873e-10_rb,0.91414e-10_rb,0.90398e-10_rb,0.26350e-11_rb /)
+      kbo(:, 4,58, 1) = (/ &
+        & 0.49285e-12_rb,0.82653e-10_rb,0.10493e-09_rb,0.10617e-09_rb,0.29473e-11_rb /)
+      kbo(:, 5,58, 1) = (/ &
+        & 0.45660e-12_rb,0.89643e-10_rb,0.11861e-09_rb,0.12647e-09_rb,0.33231e-11_rb /)
+      kbo(:, 1,59, 1) = (/ &
+        & 0.53645e-12_rb,0.50557e-10_rb,0.62240e-10_rb,0.54854e-10_rb,0.16930e-11_rb /)
+      kbo(:, 2,59, 1) = (/ &
+        & 0.48523e-12_rb,0.56468e-10_rb,0.65604e-10_rb,0.64827e-10_rb,0.18702e-11_rb /)
+      kbo(:, 3,59, 1) = (/ &
+        & 0.44294e-12_rb,0.61442e-10_rb,0.73667e-10_rb,0.72688e-10_rb,0.21292e-11_rb /)
+      kbo(:, 4,59, 1) = (/ &
+        & 0.40744e-12_rb,0.67184e-10_rb,0.84490e-10_rb,0.85217e-10_rb,0.23832e-11_rb /)
+      kbo(:, 5,59, 1) = (/ &
+        & 0.37720e-12_rb,0.72657e-10_rb,0.95692e-10_rb,0.10144e-09_rb,0.26852e-11_rb /)
+      kbo(:, 1,13, 2) = (/ &
+        & 0.18323e-07_rb,0.86266e-05_rb,0.13728e-04_rb,0.15952e-04_rb,0.78927e-06_rb /)
+      kbo(:, 2,13, 2) = (/ &
+        & 0.16961e-07_rb,0.96203e-05_rb,0.15275e-04_rb,0.17863e-04_rb,0.93659e-06_rb /)
+      kbo(:, 3,13, 2) = (/ &
+        & 0.15787e-07_rb,0.10675e-04_rb,0.16924e-04_rb,0.19675e-04_rb,0.11050e-05_rb /)
+      kbo(:, 4,13, 2) = (/ &
+        & 0.14764e-07_rb,0.11779e-04_rb,0.18474e-04_rb,0.21320e-04_rb,0.12868e-05_rb /)
+      kbo(:, 5,13, 2) = (/ &
+        & 0.13865e-07_rb,0.12843e-04_rb,0.20029e-04_rb,0.23080e-04_rb,0.14565e-05_rb /)
+      kbo(:, 1,14, 2) = (/ &
+        & 0.14893e-07_rb,0.71882e-05_rb,0.11443e-04_rb,0.13271e-04_rb,0.65835e-06_rb /)
+      kbo(:, 2,14, 2) = (/ &
+        & 0.13793e-07_rb,0.80276e-05_rb,0.12732e-04_rb,0.14890e-04_rb,0.78132e-06_rb /)
+      kbo(:, 3,14, 2) = (/ &
+        & 0.12844e-07_rb,0.89189e-05_rb,0.14101e-04_rb,0.16339e-04_rb,0.92233e-06_rb /)
+      kbo(:, 4,14, 2) = (/ &
+        & 0.12017e-07_rb,0.98309e-05_rb,0.15384e-04_rb,0.17721e-04_rb,0.10676e-05_rb /)
+      kbo(:, 5,14, 2) = (/ &
+        & 0.11289e-07_rb,0.10704e-04_rb,0.16679e-04_rb,0.19194e-04_rb,0.12091e-05_rb /)
+      kbo(:, 1,15, 2) = (/ &
+        & 0.12096e-07_rb,0.59934e-05_rb,0.95449e-05_rb,0.11058e-04_rb,0.54969e-06_rb /)
+      kbo(:, 2,15, 2) = (/ &
+        & 0.11209e-07_rb,0.66932e-05_rb,0.10623e-04_rb,0.12407e-04_rb,0.65197e-06_rb /)
+      kbo(:, 3,15, 2) = (/ &
+        & 0.10443e-07_rb,0.74449e-05_rb,0.11746e-04_rb,0.13571e-04_rb,0.76940e-06_rb /)
+      kbo(:, 4,15, 2) = (/ &
+        & 0.97747e-08_rb,0.81948e-05_rb,0.12814e-04_rb,0.14732e-04_rb,0.88496e-06_rb /)
+      kbo(:, 5,15, 2) = (/ &
+        & 0.91864e-08_rb,0.89188e-05_rb,0.13883e-04_rb,0.15946e-04_rb,0.10023e-05_rb /)
+      kbo(:, 1,16, 2) = (/ &
+        & 0.98205e-08_rb,0.50027e-05_rb,0.79644e-05_rb,0.92248e-05_rb,0.45876e-06_rb /)
+      kbo(:, 2,16, 2) = (/ &
+        & 0.91061e-08_rb,0.55846e-05_rb,0.88593e-05_rb,0.10331e-04_rb,0.54334e-06_rb /)
+      kbo(:, 3,16, 2) = (/ &
+        & 0.84882e-08_rb,0.62183e-05_rb,0.97757e-05_rb,0.11279e-04_rb,0.64050e-06_rb /)
+      kbo(:, 4,16, 2) = (/ &
+        & 0.79486e-08_rb,0.68276e-05_rb,0.10664e-04_rb,0.12244e-04_rb,0.73344e-06_rb /)
+      kbo(:, 5,16, 2) = (/ &
+        & 0.74732e-08_rb,0.74268e-05_rb,0.11545e-04_rb,0.13224e-04_rb,0.82955e-06_rb /)
+      kbo(:, 1,17, 2) = (/ &
+        & 0.79753e-08_rb,0.41713e-05_rb,0.66153e-05_rb,0.76892e-05_rb,0.38247e-06_rb /)
+      kbo(:, 2,17, 2) = (/ &
+        & 0.73994e-08_rb,0.46562e-05_rb,0.73753e-05_rb,0.85922e-05_rb,0.45188e-06_rb /)
+      kbo(:, 3,17, 2) = (/ &
+        & 0.69008e-08_rb,0.51829e-05_rb,0.81280e-05_rb,0.93638e-05_rb,0.53211e-06_rb /)
+      kbo(:, 4,17, 2) = (/ &
+        & 0.64650e-08_rb,0.56765e-05_rb,0.88560e-05_rb,0.10168e-04_rb,0.60647e-06_rb /)
+      kbo(:, 5,17, 2) = (/ &
+        & 0.60807e-08_rb,0.61758e-05_rb,0.95894e-05_rb,0.10949e-04_rb,0.68549e-06_rb /)
+      kbo(:, 1,18, 2) = (/ &
+        & 0.64779e-08_rb,0.34727e-05_rb,0.54875e-05_rb,0.64000e-05_rb,0.31851e-06_rb /)
+      kbo(:, 2,18, 2) = (/ &
+        & 0.60135e-08_rb,0.38751e-05_rb,0.61308e-05_rb,0.71372e-05_rb,0.37552e-06_rb /)
+      kbo(:, 3,18, 2) = (/ &
+        & 0.56111e-08_rb,0.43132e-05_rb,0.67478e-05_rb,0.77698e-05_rb,0.44141e-06_rb /)
+      kbo(:, 4,18, 2) = (/ &
+        & 0.52590e-08_rb,0.47150e-05_rb,0.73444e-05_rb,0.84370e-05_rb,0.50075e-06_rb /)
+      kbo(:, 5,18, 2) = (/ &
+        & 0.49483e-08_rb,0.51345e-05_rb,0.79495e-05_rb,0.90637e-05_rb,0.56601e-06_rb /)
+      kbo(:, 1,19, 2) = (/ &
+        & 0.52627e-08_rb,0.28908e-05_rb,0.45586e-05_rb,0.53260e-05_rb,0.26516e-06_rb /)
+      kbo(:, 2,19, 2) = (/ &
+        & 0.48882e-08_rb,0.32260e-05_rb,0.50940e-05_rb,0.59200e-05_rb,0.31190e-06_rb /)
+      kbo(:, 3,19, 2) = (/ &
+        & 0.45632e-08_rb,0.35843e-05_rb,0.55992e-05_rb,0.64397e-05_rb,0.36608e-06_rb /)
+      kbo(:, 4,19, 2) = (/ &
+        & 0.42786e-08_rb,0.39167e-05_rb,0.60923e-05_rb,0.69972e-05_rb,0.41361e-06_rb /)
+      kbo(:, 5,19, 2) = (/ &
+        & 0.40273e-08_rb,0.42667e-05_rb,0.65904e-05_rb,0.75021e-05_rb,0.46741e-06_rb /)
+      kbo(:, 1,20, 2) = (/ &
+        & 0.42704e-08_rb,0.24074e-05_rb,0.37990e-05_rb,0.44458e-05_rb,0.22103e-06_rb /)
+      kbo(:, 2,20, 2) = (/ &
+        & 0.39690e-08_rb,0.26942e-05_rb,0.42393e-05_rb,0.49120e-05_rb,0.26014e-06_rb /)
+      kbo(:, 3,20, 2) = (/ &
+        & 0.37071e-08_rb,0.29827e-05_rb,0.46574e-05_rb,0.53487e-05_rb,0.30416e-06_rb /)
+      kbo(:, 4,20, 2) = (/ &
+        & 0.34776e-08_rb,0.32601e-05_rb,0.50635e-05_rb,0.58076e-05_rb,0.34304e-06_rb /)
+      kbo(:, 5,20, 2) = (/ &
+        & 0.32747e-08_rb,0.35518e-05_rb,0.54700e-05_rb,0.62197e-05_rb,0.38752e-06_rb /)
+      kbo(:, 1,21, 2) = (/ &
+        & 0.34649e-08_rb,0.20096e-05_rb,0.31689e-05_rb,0.37070e-05_rb,0.18424e-06_rb /)
+      kbo(:, 2,21, 2) = (/ &
+        & 0.32224e-08_rb,0.22503e-05_rb,0.35271e-05_rb,0.40784e-05_rb,0.21705e-06_rb /)
+      kbo(:, 3,21, 2) = (/ &
+        & 0.30114e-08_rb,0.24834e-05_rb,0.38737e-05_rb,0.44436e-05_rb,0.25229e-06_rb /)
+      kbo(:, 4,21, 2) = (/ &
+        & 0.28263e-08_rb,0.27149e-05_rb,0.42083e-05_rb,0.48061e-05_rb,0.28464e-06_rb /)
+      kbo(:, 5,21, 2) = (/ &
+        & 0.26626e-08_rb,0.29556e-05_rb,0.45394e-05_rb,0.51565e-05_rb,0.32148e-06_rb /)
+      kbo(:, 1,22, 2) = (/ &
+        & 0.27976e-08_rb,0.16913e-05_rb,0.26632e-05_rb,0.31108e-05_rb,0.15537e-06_rb /)
+      kbo(:, 2,22, 2) = (/ &
+        & 0.26043e-08_rb,0.18908e-05_rb,0.29553e-05_rb,0.34067e-05_rb,0.18311e-06_rb /)
+      kbo(:, 3,22, 2) = (/ &
+        & 0.24359e-08_rb,0.20811e-05_rb,0.32390e-05_rb,0.37110e-05_rb,0.21094e-06_rb /)
+      kbo(:, 4,22, 2) = (/ &
+        & 0.22878e-08_rb,0.22746e-05_rb,0.35144e-05_rb,0.40009e-05_rb,0.23816e-06_rb /)
+      kbo(:, 5,22, 2) = (/ &
+        & 0.21567e-08_rb,0.24714e-05_rb,0.37839e-05_rb,0.42910e-05_rb,0.26886e-06_rb /)
+      kbo(:, 1,23, 2) = (/ &
+        & 0.22583e-08_rb,0.14234e-05_rb,0.22388e-05_rb,0.26088e-05_rb,0.13143e-06_rb /)
+      kbo(:, 2,23, 2) = (/ &
+        & 0.21043e-08_rb,0.15864e-05_rb,0.24776e-05_rb,0.28493e-05_rb,0.15460e-06_rb /)
+      kbo(:, 3,23, 2) = (/ &
+        & 0.19699e-08_rb,0.17436e-05_rb,0.27072e-05_rb,0.31009e-05_rb,0.17669e-06_rb /)
+      kbo(:, 4,23, 2) = (/ &
+        & 0.18515e-08_rb,0.19057e-05_rb,0.29355e-05_rb,0.33308e-05_rb,0.19953e-06_rb /)
+      kbo(:, 5,23, 2) = (/ &
+        & 0.17465e-08_rb,0.20653e-05_rb,0.31542e-05_rb,0.35663e-05_rb,0.22501e-06_rb /)
+      kbo(:, 1,24, 2) = (/ &
+        & 0.18221e-08_rb,0.12001e-05_rb,0.18808e-05_rb,0.21868e-05_rb,0.11138e-06_rb /)
+      kbo(:, 2,24, 2) = (/ &
+        & 0.16995e-08_rb,0.13315e-05_rb,0.20779e-05_rb,0.23825e-05_rb,0.13068e-06_rb /)
+      kbo(:, 3,24, 2) = (/ &
+        & 0.15923e-08_rb,0.14625e-05_rb,0.22647e-05_rb,0.25884e-05_rb,0.14820e-06_rb /)
+      kbo(:, 4,24, 2) = (/ &
+        & 0.14978e-08_rb,0.15972e-05_rb,0.24512e-05_rb,0.27771e-05_rb,0.16734e-06_rb /)
+      kbo(:, 5,24, 2) = (/ &
+        & 0.14138e-08_rb,0.17254e-05_rb,0.26296e-05_rb,0.29649e-05_rb,0.18848e-06_rb /)
+      kbo(:, 1,25, 2) = (/ &
+        & 0.14693e-08_rb,0.10111e-05_rb,0.15809e-05_rb,0.18286e-05_rb,0.94366e-07_rb /)
+      kbo(:, 2,25, 2) = (/ &
+        & 0.13718e-08_rb,0.11199e-05_rb,0.17430e-05_rb,0.19952e-05_rb,0.11045e-06_rb /)
+      kbo(:, 3,25, 2) = (/ &
+        & 0.12864e-08_rb,0.12273e-05_rb,0.18957e-05_rb,0.21572e-05_rb,0.12445e-06_rb /)
+      kbo(:, 4,25, 2) = (/ &
+        & 0.12110e-08_rb,0.13373e-05_rb,0.20462e-05_rb,0.23162e-05_rb,0.14042e-06_rb /)
+      kbo(:, 5,25, 2) = (/ &
+        & 0.11438e-08_rb,0.14410e-05_rb,0.21916e-05_rb,0.24648e-05_rb,0.15767e-06_rb /)
+      kbo(:, 1,26, 2) = (/ &
+        & 0.11834e-08_rb,0.85331e-06_rb,0.13316e-05_rb,0.15329e-05_rb,0.80212e-07_rb /)
+      kbo(:, 2,26, 2) = (/ &
+        & 0.11061e-08_rb,0.94192e-06_rb,0.14626e-05_rb,0.16729e-05_rb,0.92775e-07_rb /)
+      kbo(:, 3,26, 2) = (/ &
+        & 0.10382e-08_rb,0.10317e-05_rb,0.15890e-05_rb,0.18006e-05_rb,0.10462e-06_rb /)
+      kbo(:, 4,26, 2) = (/ &
+        & 0.97810e-09_rb,0.11205e-05_rb,0.17099e-05_rb,0.19314e-05_rb,0.11800e-06_rb /)
+      kbo(:, 5,26, 2) = (/ &
+        & 0.92457e-09_rb,0.12034e-05_rb,0.18276e-05_rb,0.20504e-05_rb,0.13209e-06_rb /)
+      kbo(:, 1,27, 2) = (/ &
+        & 0.95311e-09_rb,0.71890e-06_rb,0.11218e-05_rb,0.12867e-05_rb,0.68084e-07_rb /)
+      kbo(:, 2,27, 2) = (/ &
+        & 0.89177e-09_rb,0.79258e-06_rb,0.12275e-05_rb,0.14019e-05_rb,0.77999e-07_rb /)
+      kbo(:, 3,27, 2) = (/ &
+        & 0.83781e-09_rb,0.86605e-06_rb,0.13308e-05_rb,0.15040e-05_rb,0.88027e-07_rb /)
+      kbo(:, 4,27, 2) = (/ &
+        & 0.78998e-09_rb,0.93815e-06_rb,0.14285e-05_rb,0.16091e-05_rb,0.99057e-07_rb /)
+      kbo(:, 5,27, 2) = (/ &
+        & 0.74729e-09_rb,0.10046e-05_rb,0.15236e-05_rb,0.17059e-05_rb,0.11074e-06_rb /)
+      kbo(:, 1,28, 2) = (/ &
+        & 0.76771e-09_rb,0.60623e-06_rb,0.94427e-06_rb,0.10796e-05_rb,0.57844e-07_rb /)
+      kbo(:, 2,28, 2) = (/ &
+        & 0.71904e-09_rb,0.66653e-06_rb,0.10298e-05_rb,0.11699e-05_rb,0.65726e-07_rb /)
+      kbo(:, 3,28, 2) = (/ &
+        & 0.67614e-09_rb,0.72689e-06_rb,0.11131e-05_rb,0.12568e-05_rb,0.74009e-07_rb /)
+      kbo(:, 4,28, 2) = (/ &
+        & 0.63806e-09_rb,0.78482e-06_rb,0.11927e-05_rb,0.13406e-05_rb,0.83200e-07_rb /)
+      kbo(:, 5,28, 2) = (/ &
+        & 0.60401e-09_rb,0.83806e-06_rb,0.12695e-05_rb,0.14186e-05_rb,0.92306e-07_rb /)
+      kbo(:, 1,29, 2) = (/ &
+        & 0.61817e-09_rb,0.51053e-06_rb,0.79450e-06_rb,0.90687e-06_rb,0.49078e-07_rb /)
+      kbo(:, 2,29, 2) = (/ &
+        & 0.57958e-09_rb,0.56071e-06_rb,0.86403e-06_rb,0.97690e-06_rb,0.55257e-07_rb /)
+      kbo(:, 3,29, 2) = (/ &
+        & 0.54551e-09_rb,0.61009e-06_rb,0.93077e-06_rb,0.10495e-05_rb,0.62286e-07_rb /)
+      kbo(:, 4,29, 2) = (/ &
+        & 0.51520e-09_rb,0.65631e-06_rb,0.99567e-06_rb,0.11159e-05_rb,0.69954e-07_rb /)
+      kbo(:, 5,29, 2) = (/ &
+        & 0.48806e-09_rb,0.69830e-06_rb,0.10576e-05_rb,0.11790e-05_rb,0.77228e-07_rb /)
+      kbo(:, 1,30, 2) = (/ &
+        & 0.49783e-09_rb,0.43014e-06_rb,0.66732e-06_rb,0.76058e-06_rb,0.41306e-07_rb /)
+      kbo(:, 2,30, 2) = (/ &
+        & 0.46723e-09_rb,0.47148e-06_rb,0.72434e-06_rb,0.81682e-06_rb,0.46537e-07_rb /)
+      kbo(:, 3,30, 2) = (/ &
+        & 0.44015e-09_rb,0.51146e-06_rb,0.77809e-06_rb,0.87537e-06_rb,0.52451e-07_rb /)
+      kbo(:, 4,30, 2) = (/ &
+        & 0.41603e-09_rb,0.54877e-06_rb,0.83073e-06_rb,0.92884e-06_rb,0.58793e-07_rb /)
+      kbo(:, 5,30, 2) = (/ &
+        & 0.39440e-09_rb,0.58159e-06_rb,0.88054e-06_rb,0.98030e-06_rb,0.64630e-07_rb /)
+      kbo(:, 1,31, 2) = (/ &
+        & 0.40087e-09_rb,0.36256e-06_rb,0.56062e-06_rb,0.63549e-06_rb,0.34778e-07_rb /)
+      kbo(:, 2,31, 2) = (/ &
+        & 0.37660e-09_rb,0.39620e-06_rb,0.60674e-06_rb,0.68313e-06_rb,0.39213e-07_rb /)
+      kbo(:, 3,31, 2) = (/ &
+        & 0.35510e-09_rb,0.42855e-06_rb,0.65037e-06_rb,0.72999e-06_rb,0.44176e-07_rb /)
+      kbo(:, 4,31, 2) = (/ &
+        & 0.33590e-09_rb,0.45852e-06_rb,0.69308e-06_rb,0.77338e-06_rb,0.49424e-07_rb /)
+      kbo(:, 5,31, 2) = (/ &
+        & 0.31866e-09_rb,0.48459e-06_rb,0.73297e-06_rb,0.81484e-06_rb,0.54137e-07_rb /)
+      kbo(:, 1,32, 2) = (/ &
+        & 0.32280e-09_rb,0.30547e-06_rb,0.47083e-06_rb,0.53147e-06_rb,0.29353e-07_rb /)
+      kbo(:, 2,32, 2) = (/ &
+        & 0.30356e-09_rb,0.33271e-06_rb,0.50770e-06_rb,0.57112e-06_rb,0.33078e-07_rb /)
+      kbo(:, 3,32, 2) = (/ &
+        & 0.28647e-09_rb,0.35876e-06_rb,0.54339e-06_rb,0.60852e-06_rb,0.37211e-07_rb /)
+      kbo(:, 4,32, 2) = (/ &
+        & 0.27120e-09_rb,0.38214e-06_rb,0.57781e-06_rb,0.64354e-06_rb,0.41295e-07_rb /)
+      kbo(:, 5,32, 2) = (/ &
+        & 0.25746e-09_rb,0.40374e-06_rb,0.60990e-06_rb,0.67711e-06_rb,0.45362e-07_rb /)
+      kbo(:, 1,33, 2) = (/ &
+        & 0.25997e-09_rb,0.25723e-06_rb,0.39505e-06_rb,0.44467e-06_rb,0.24754e-07_rb /)
+      kbo(:, 2,33, 2) = (/ &
+        & 0.24471e-09_rb,0.27926e-06_rb,0.42469e-06_rb,0.47702e-06_rb,0.27907e-07_rb /)
+      kbo(:, 3,33, 2) = (/ &
+        & 0.23113e-09_rb,0.30024e-06_rb,0.45384e-06_rb,0.50672e-06_rb,0.31344e-07_rb /)
+      kbo(:, 4,33, 2) = (/ &
+        & 0.21898e-09_rb,0.31862e-06_rb,0.48142e-06_rb,0.53515e-06_rb,0.34590e-07_rb /)
+      kbo(:, 5,33, 2) = (/ &
+        & 0.20803e-09_rb,0.33624e-06_rb,0.50721e-06_rb,0.56242e-06_rb,0.37957e-07_rb /)
+      kbo(:, 1,34, 2) = (/ &
+        & 0.20987e-09_rb,0.21561e-06_rb,0.33035e-06_rb,0.37093e-06_rb,0.20801e-07_rb /)
+      kbo(:, 2,34, 2) = (/ &
+        & 0.19771e-09_rb,0.23356e-06_rb,0.35433e-06_rb,0.39723e-06_rb,0.23443e-07_rb /)
+      kbo(:, 3,34, 2) = (/ &
+        & 0.18688e-09_rb,0.25042e-06_rb,0.37804e-06_rb,0.42127e-06_rb,0.26271e-07_rb /)
+      kbo(:, 4,34, 2) = (/ &
+        & 0.17716e-09_rb,0.26514e-06_rb,0.40029e-06_rb,0.44433e-06_rb,0.28867e-07_rb /)
+      kbo(:, 5,34, 2) = (/ &
+        & 0.16840e-09_rb,0.27949e-06_rb,0.42102e-06_rb,0.46612e-06_rb,0.31620e-07_rb /)
+      kbo(:, 1,35, 2) = (/ &
+        & 0.17046e-09_rb,0.17909e-06_rb,0.27397e-06_rb,0.30730e-06_rb,0.17283e-07_rb /)
+      kbo(:, 2,35, 2) = (/ &
+        & 0.16066e-09_rb,0.19378e-06_rb,0.29367e-06_rb,0.32869e-06_rb,0.19456e-07_rb /)
+      kbo(:, 3,35, 2) = (/ &
+        & 0.15191e-09_rb,0.20716e-06_rb,0.31287e-06_rb,0.34820e-06_rb,0.21759e-07_rb /)
+      kbo(:, 4,35, 2) = (/ &
+        & 0.14407e-09_rb,0.21938e-06_rb,0.33090e-06_rb,0.36703e-06_rb,0.23854e-07_rb /)
+      kbo(:, 5,35, 2) = (/ &
+        & 0.13699e-09_rb,0.23115e-06_rb,0.34779e-06_rb,0.38459e-06_rb,0.26128e-07_rb /)
+      kbo(:, 1,36, 2) = (/ &
+        & 0.13938e-09_rb,0.14742e-06_rb,0.22535e-06_rb,0.25261e-06_rb,0.14145e-07_rb /)
+      kbo(:, 2,36, 2) = (/ &
+        & 0.13137e-09_rb,0.15949e-06_rb,0.24155e-06_rb,0.27011e-06_rb,0.15917e-07_rb /)
+      kbo(:, 3,36, 2) = (/ &
+        & 0.12423e-09_rb,0.17037e-06_rb,0.25721e-06_rb,0.28606e-06_rb,0.17809e-07_rb /)
+      kbo(:, 4,36, 2) = (/ &
+        & 0.11782e-09_rb,0.18044e-06_rb,0.27200e-06_rb,0.30149e-06_rb,0.19530e-07_rb /)
+      kbo(:, 5,36, 2) = (/ &
+        & 0.11204e-09_rb,0.19011e-06_rb,0.28582e-06_rb,0.31581e-06_rb,0.21391e-07_rb /)
+      kbo(:, 1,37, 2) = (/ &
+        & 0.11503e-09_rb,0.11991e-06_rb,0.18339e-06_rb,0.20540e-06_rb,0.11398e-07_rb /)
+      kbo(:, 2,37, 2) = (/ &
+        & 0.10837e-09_rb,0.12985e-06_rb,0.19670e-06_rb,0.21991e-06_rb,0.12829e-07_rb /)
+      kbo(:, 3,37, 2) = (/ &
+        & 0.10244e-09_rb,0.13895e-06_rb,0.20964e-06_rb,0.23310e-06_rb,0.14370e-07_rb /)
+      kbo(:, 4,37, 2) = (/ &
+        & 0.97122e-10_rb,0.14725e-06_rb,0.22183e-06_rb,0.24582e-06_rb,0.15790e-07_rb /)
+      kbo(:, 5,37, 2) = (/ &
+        & 0.92325e-10_rb,0.15526e-06_rb,0.23327e-06_rb,0.25767e-06_rb,0.17308e-07_rb /)
+      kbo(:, 1,38, 2) = (/ &
+        & 0.94990e-10_rb,0.97434e-07_rb,0.14912e-06_rb,0.16699e-06_rb,0.91745e-08_rb /)
+      kbo(:, 2,38, 2) = (/ &
+        & 0.89449e-10_rb,0.10563e-06_rb,0.16007e-06_rb,0.17890e-06_rb,0.10330e-07_rb /)
+      kbo(:, 3,38, 2) = (/ &
+        & 0.84516e-10_rb,0.11322e-06_rb,0.17071e-06_rb,0.18982e-06_rb,0.11585e-07_rb /)
+      kbo(:, 4,38, 2) = (/ &
+        & 0.80096e-10_rb,0.12009e-06_rb,0.18084e-06_rb,0.20030e-06_rb,0.12759e-07_rb /)
+      kbo(:, 5,38, 2) = (/ &
+        & 0.76113e-10_rb,0.12672e-06_rb,0.19028e-06_rb,0.21012e-06_rb,0.13992e-07_rb /)
+      kbo(:, 1,39, 2) = (/ &
+        & 0.78444e-10_rb,0.79147e-07_rb,0.12122e-06_rb,0.13573e-06_rb,0.73846e-08_rb /)
+      kbo(:, 2,39, 2) = (/ &
+        & 0.73832e-10_rb,0.85901e-07_rb,0.13022e-06_rb,0.14552e-06_rb,0.83180e-08_rb /)
+      kbo(:, 3,39, 2) = (/ &
+        & 0.69729e-10_rb,0.92230e-07_rb,0.13899e-06_rb,0.15459e-06_rb,0.93374e-08_rb /)
+      kbo(:, 4,39, 2) = (/ &
+        & 0.66056e-10_rb,0.97919e-07_rb,0.14737e-06_rb,0.16325e-06_rb,0.10307e-07_rb /)
+      kbo(:, 5,39, 2) = (/ &
+        & 0.62749e-10_rb,0.10341e-06_rb,0.15518e-06_rb,0.17133e-06_rb,0.11312e-07_rb /)
+      kbo(:, 1,40, 2) = (/ &
+        & 0.65207e-10_rb,0.63715e-07_rb,0.97755e-07_rb,0.10945e-06_rb,0.58831e-08_rb /)
+      kbo(:, 2,40, 2) = (/ &
+        & 0.61319e-10_rb,0.69289e-07_rb,0.10524e-06_rb,0.11757e-06_rb,0.66237e-08_rb /)
+      kbo(:, 3,40, 2) = (/ &
+        & 0.57866e-10_rb,0.74694e-07_rb,0.11245e-06_rb,0.12515e-06_rb,0.74455e-08_rb /)
+      kbo(:, 4,40, 2) = (/ &
+        & 0.54779e-10_rb,0.79359e-07_rb,0.11941e-06_rb,0.13229e-06_rb,0.82595e-08_rb /)
+      kbo(:, 5,40, 2) = (/ &
+        & 0.52003e-10_rb,0.83957e-07_rb,0.12593e-06_rb,0.13909e-06_rb,0.90698e-08_rb /)
+      kbo(:, 1,41, 2) = (/ &
+        & 0.54263e-10_rb,0.51172e-07_rb,0.78714e-07_rb,0.88183e-07_rb,0.46740e-08_rb /)
+      kbo(:, 2,41, 2) = (/ &
+        & 0.50978e-10_rb,0.55838e-07_rb,0.84939e-07_rb,0.94828e-07_rb,0.52655e-08_rb /)
+      kbo(:, 3,41, 2) = (/ &
+        & 0.48066e-10_rb,0.60328e-07_rb,0.90859e-07_rb,0.10118e-06_rb,0.59273e-08_rb /)
+      kbo(:, 4,41, 2) = (/ &
+        & 0.45467e-10_rb,0.64260e-07_rb,0.96667e-07_rb,0.10710e-06_rb,0.66279e-08_rb /)
+      kbo(:, 5,41, 2) = (/ &
+        & 0.43134e-10_rb,0.68089e-07_rb,0.10208e-06_rb,0.11279e-06_rb,0.72560e-08_rb /)
+      kbo(:, 1,42, 2) = (/ &
+        & 0.45170e-10_rb,0.41073e-07_rb,0.63333e-07_rb,0.71067e-07_rb,0.37185e-08_rb /)
+      kbo(:, 2,42, 2) = (/ &
+        & 0.42393e-10_rb,0.44964e-07_rb,0.68507e-07_rb,0.76455e-07_rb,0.41864e-08_rb /)
+      kbo(:, 3,42, 2) = (/ &
+        & 0.39936e-10_rb,0.48667e-07_rb,0.73382e-07_rb,0.81772e-07_rb,0.47157e-08_rb /)
+      kbo(:, 4,42, 2) = (/ &
+        & 0.37747e-10_rb,0.51996e-07_rb,0.78220e-07_rb,0.86689e-07_rb,0.52834e-08_rb /)
+      kbo(:, 5,42, 2) = (/ &
+        & 0.35784e-10_rb,0.55178e-07_rb,0.82739e-07_rb,0.91434e-07_rb,0.58040e-08_rb /)
+      kbo(:, 1,43, 2) = (/ &
+        & 0.37754e-10_rb,0.32770e-07_rb,0.50662e-07_rb,0.56979e-07_rb,0.29405e-08_rb /)
+      kbo(:, 2,43, 2) = (/ &
+        & 0.35387e-10_rb,0.35997e-07_rb,0.54993e-07_rb,0.61357e-07_rb,0.33066e-08_rb /)
+      kbo(:, 3,43, 2) = (/ &
+        & 0.33299e-10_rb,0.39073e-07_rb,0.59036e-07_rb,0.65793e-07_rb,0.37265e-08_rb /)
+      kbo(:, 4,43, 2) = (/ &
+        & 0.31442e-10_rb,0.41903e-07_rb,0.63014e-07_rb,0.69920e-07_rb,0.41848e-08_rb /)
+      kbo(:, 5,43, 2) = (/ &
+        & 0.29781e-10_rb,0.44546e-07_rb,0.66822e-07_rb,0.73849e-07_rb,0.46204e-08_rb /)
+      kbo(:, 1,44, 2) = (/ &
+        & 0.31623e-10_rb,0.26054e-07_rb,0.40405e-07_rb,0.45692e-07_rb,0.22918e-08_rb /)
+      kbo(:, 2,44, 2) = (/ &
+        & 0.29599e-10_rb,0.28713e-07_rb,0.44010e-07_rb,0.49122e-07_rb,0.26053e-08_rb /)
+      kbo(:, 3,44, 2) = (/ &
+        & 0.27817e-10_rb,0.31296e-07_rb,0.47391e-07_rb,0.52815e-07_rb,0.29353e-08_rb /)
+      kbo(:, 4,44, 2) = (/ &
+        & 0.26236e-10_rb,0.33677e-07_rb,0.50655e-07_rb,0.56264e-07_rb,0.33023e-08_rb /)
+      kbo(:, 5,44, 2) = (/ &
+        & 0.24825e-10_rb,0.35896e-07_rb,0.53863e-07_rb,0.59538e-07_rb,0.36730e-08_rb /)
+      kbo(:, 1,45, 2) = (/ &
+        & 0.26502e-10_rb,0.20705e-07_rb,0.32152e-07_rb,0.36448e-07_rb,0.17841e-08_rb /)
+      kbo(:, 2,45, 2) = (/ &
+        & 0.24768e-10_rb,0.22868e-07_rb,0.35185e-07_rb,0.39329e-07_rb,0.20515e-08_rb /)
+      kbo(:, 3,45, 2) = (/ &
+        & 0.23247e-10_rb,0.25027e-07_rb,0.37999e-07_rb,0.42338e-07_rb,0.23118e-08_rb /)
+      kbo(:, 4,45, 2) = (/ &
+        & 0.21900e-10_rb,0.27063e-07_rb,0.40694e-07_rb,0.45258e-07_rb,0.26048e-08_rb /)
+      kbo(:, 5,45, 2) = (/ &
+        & 0.20701e-10_rb,0.28901e-07_rb,0.43361e-07_rb,0.47969e-07_rb,0.29174e-08_rb /)
+      kbo(:, 1,46, 2) = (/ &
+        & 0.22258e-10_rb,0.16422e-07_rb,0.25480e-07_rb,0.28991e-07_rb,0.13830e-08_rb /)
+      kbo(:, 2,46, 2) = (/ &
+        & 0.20767e-10_rb,0.18158e-07_rb,0.28033e-07_rb,0.31442e-07_rb,0.16144e-08_rb /)
+      kbo(:, 3,46, 2) = (/ &
+        & 0.19462e-10_rb,0.19953e-07_rb,0.30402e-07_rb,0.33850e-07_rb,0.18162e-08_rb /)
+      kbo(:, 4,46, 2) = (/ &
+        & 0.18312e-10_rb,0.21658e-07_rb,0.32639e-07_rb,0.36308e-07_rb,0.20475e-08_rb /)
+      kbo(:, 5,46, 2) = (/ &
+        & 0.17289e-10_rb,0.23211e-07_rb,0.34839e-07_rb,0.38583e-07_rb,0.22994e-08_rb /)
+      kbo(:, 1,47, 2) = (/ &
+        & 0.18764e-10_rb,0.12951e-07_rb,0.20072e-07_rb,0.22982e-07_rb,0.10645e-08_rb /)
+      kbo(:, 2,47, 2) = (/ &
+        & 0.17473e-10_rb,0.14335e-07_rb,0.22214e-07_rb,0.25085e-07_rb,0.12479e-08_rb /)
+      kbo(:, 3,47, 2) = (/ &
+        & 0.16347e-10_rb,0.15813e-07_rb,0.24205e-07_rb,0.26971e-07_rb,0.14207e-08_rb /)
+      kbo(:, 4,47, 2) = (/ &
+        & 0.15357e-10_rb,0.17255e-07_rb,0.26075e-07_rb,0.29015e-07_rb,0.16008e-08_rb /)
+      kbo(:, 5,47, 2) = (/ &
+        & 0.14480e-10_rb,0.18558e-07_rb,0.27885e-07_rb,0.30922e-07_rb,0.18018e-08_rb /)
+      kbo(:, 1,48, 2) = (/ &
+        & 0.15833e-10_rb,0.10186e-07_rb,0.15782e-07_rb,0.18174e-07_rb,0.81718e-09_rb /)
+      kbo(:, 2,48, 2) = (/ &
+        & 0.14713e-10_rb,0.11312e-07_rb,0.17555e-07_rb,0.19891e-07_rb,0.96098e-09_rb /)
+      kbo(:, 3,48, 2) = (/ &
+        & 0.13740e-10_rb,0.12509e-07_rb,0.19248e-07_rb,0.21482e-07_rb,0.11112e-08_rb /)
+      kbo(:, 4,48, 2) = (/ &
+        & 0.12887e-10_rb,0.13719e-07_rb,0.20811e-07_rb,0.23140e-07_rb,0.12515e-08_rb /)
+      kbo(:, 5,48, 2) = (/ &
+        & 0.12134e-10_rb,0.14840e-07_rb,0.22313e-07_rb,0.24769e-07_rb,0.14105e-08_rb /)
+      kbo(:, 1,49, 2) = (/ &
+        & 0.13372e-10_rb,0.80050e-08_rb,0.12403e-07_rb,0.14283e-07_rb,0.63117e-09_rb /)
+      kbo(:, 2,49, 2) = (/ &
+        & 0.12398e-10_rb,0.89393e-08_rb,0.13840e-07_rb,0.15751e-07_rb,0.73907e-09_rb /)
+      kbo(:, 3,49, 2) = (/ &
+        & 0.11556e-10_rb,0.98821e-08_rb,0.15261e-07_rb,0.17104e-07_rb,0.86645e-09_rb /)
+      kbo(:, 4,49, 2) = (/ &
+        & 0.10821e-10_rb,0.10884e-07_rb,0.16582e-07_rb,0.18441e-07_rb,0.97829e-09_rb /)
+      kbo(:, 5,49, 2) = (/ &
+        & 0.10174e-10_rb,0.11841e-07_rb,0.17828e-07_rb,0.19804e-07_rb,0.11034e-08_rb /)
+      kbo(:, 1,50, 2) = (/ &
+        & 0.11282e-10_rb,0.62726e-08_rb,0.97478e-08_rb,0.11226e-07_rb,0.48398e-09_rb /)
+      kbo(:, 2,50, 2) = (/ &
+        & 0.10437e-10_rb,0.70546e-08_rb,0.10932e-07_rb,0.12518e-07_rb,0.57051e-09_rb /)
+      kbo(:, 3,50, 2) = (/ &
+        & 0.97101e-11_rb,0.78193e-08_rb,0.12114e-07_rb,0.13671e-07_rb,0.66997e-09_rb /)
+      kbo(:, 4,50, 2) = (/ &
+        & 0.90772e-11_rb,0.86379e-08_rb,0.13218e-07_rb,0.14712e-07_rb,0.76625e-09_rb /)
+      kbo(:, 5,50, 2) = (/ &
+        & 0.85216e-11_rb,0.94405e-08_rb,0.14258e-07_rb,0.15844e-07_rb,0.86488e-09_rb /)
+      kbo(:, 1,51, 2) = (/ &
+        & 0.95179e-11_rb,0.49251e-08_rb,0.76356e-08_rb,0.87761e-08_rb,0.37213e-09_rb /)
+      kbo(:, 2,51, 2) = (/ &
+        & 0.87856e-11_rb,0.55681e-08_rb,0.86220e-08_rb,0.99159e-08_rb,0.44074e-09_rb /)
+      kbo(:, 3,51, 2) = (/ &
+        & 0.81576e-11_rb,0.61930e-08_rb,0.95989e-08_rb,0.10865e-07_rb,0.51843e-09_rb /)
+      kbo(:, 4,51, 2) = (/ &
+        & 0.76131e-11_rb,0.68518e-08_rb,0.10539e-07_rb,0.11746e-07_rb,0.60210e-09_rb /)
+      kbo(:, 5,51, 2) = (/ &
+        & 0.71366e-11_rb,0.75206e-08_rb,0.11403e-07_rb,0.12659e-07_rb,0.67841e-09_rb /)
+      kbo(:, 1,52, 2) = (/ &
+        & 0.80368e-11_rb,0.38608e-08_rb,0.60010e-08_rb,0.68441e-08_rb,0.28848e-09_rb /)
+      kbo(:, 2,52, 2) = (/ &
+        & 0.74007e-11_rb,0.43903e-08_rb,0.67974e-08_rb,0.78127e-08_rb,0.34245e-09_rb /)
+      kbo(:, 3,52, 2) = (/ &
+        & 0.68577e-11_rb,0.49086e-08_rb,0.75959e-08_rb,0.86279e-08_rb,0.40106e-09_rb /)
+      kbo(:, 4,52, 2) = (/ &
+        & 0.63886e-11_rb,0.54297e-08_rb,0.83801e-08_rb,0.93778e-08_rb,0.47058e-09_rb /)
+      kbo(:, 5,52, 2) = (/ &
+        & 0.59795e-11_rb,0.59829e-08_rb,0.91103e-08_rb,0.10111e-07_rb,0.53218e-09_rb /)
+      kbo(:, 1,53, 2) = (/ &
+        & 0.67932e-11_rb,0.30102e-08_rb,0.47269e-08_rb,0.53395e-08_rb,0.22432e-09_rb /)
+      kbo(:, 2,53, 2) = (/ &
+        & 0.62397e-11_rb,0.34450e-08_rb,0.53458e-08_rb,0.61449e-08_rb,0.26282e-09_rb /)
+      kbo(:, 3,53, 2) = (/ &
+        & 0.57693e-11_rb,0.38768e-08_rb,0.60006e-08_rb,0.68613e-08_rb,0.31020e-09_rb /)
+      kbo(:, 4,53, 2) = (/ &
+        & 0.53647e-11_rb,0.43002e-08_rb,0.66533e-08_rb,0.74990e-08_rb,0.36446e-09_rb /)
+      kbo(:, 5,53, 2) = (/ &
+        & 0.50129e-11_rb,0.47527e-08_rb,0.72638e-08_rb,0.80717e-08_rb,0.41759e-09_rb /)
+      kbo(:, 1,54, 2) = (/ &
+        & 0.57320e-11_rb,0.23582e-08_rb,0.36837e-08_rb,0.41317e-08_rb,0.17477e-09_rb /)
+      kbo(:, 2,54, 2) = (/ &
+        & 0.52518e-11_rb,0.27163e-08_rb,0.42048e-08_rb,0.48208e-08_rb,0.20321e-09_rb /)
+      kbo(:, 3,54, 2) = (/ &
+        & 0.48457e-11_rb,0.30678e-08_rb,0.47472e-08_rb,0.54472e-08_rb,0.24081e-09_rb /)
+      kbo(:, 4,54, 2) = (/ &
+        & 0.44978e-11_rb,0.34148e-08_rb,0.52851e-08_rb,0.59735e-08_rb,0.28345e-09_rb /)
+      kbo(:, 5,54, 2) = (/ &
+        & 0.41963e-11_rb,0.37804e-08_rb,0.58001e-08_rb,0.64570e-08_rb,0.32923e-09_rb /)
+      kbo(:, 1,55, 2) = (/ &
+        & 0.48347e-11_rb,0.18534e-08_rb,0.28539e-08_rb,0.31828e-08_rb,0.13492e-09_rb /)
+      kbo(:, 2,55, 2) = (/ &
+        & 0.44186e-11_rb,0.21392e-08_rb,0.33190e-08_rb,0.37817e-08_rb,0.15848e-09_rb /)
+      kbo(:, 3,55, 2) = (/ &
+        & 0.40683e-11_rb,0.24320e-08_rb,0.37592e-08_rb,0.43156e-08_rb,0.18835e-09_rb /)
+      kbo(:, 4,55, 2) = (/ &
+        & 0.37693e-11_rb,0.27150e-08_rb,0.41999e-08_rb,0.47625e-08_rb,0.22076e-09_rb /)
+      kbo(:, 5,55, 2) = (/ &
+        & 0.35111e-11_rb,0.30082e-08_rb,0.46345e-08_rb,0.51736e-08_rb,0.25916e-09_rb /)
+      kbo(:, 1,56, 2) = (/ &
+        & 0.40813e-11_rb,0.14543e-08_rb,0.22038e-08_rb,0.24488e-08_rb,0.10328e-09_rb /)
+      kbo(:, 2,56, 2) = (/ &
+        & 0.37201e-11_rb,0.16813e-08_rb,0.26371e-08_rb,0.29640e-08_rb,0.12446e-09_rb /)
+      kbo(:, 3,56, 2) = (/ &
+        & 0.34175e-11_rb,0.19191e-08_rb,0.29747e-08_rb,0.34115e-08_rb,0.14604e-09_rb /)
+      kbo(:, 4,56, 2) = (/ &
+        & 0.31604e-11_rb,0.21575e-08_rb,0.33348e-08_rb,0.38018e-08_rb,0.17202e-09_rb /)
+      kbo(:, 5,56, 2) = (/ &
+        & 0.29391e-11_rb,0.23932e-08_rb,0.36930e-08_rb,0.41472e-08_rb,0.20235e-09_rb /)
+      kbo(:, 1,57, 2) = (/ &
+        & 0.34486e-11_rb,0.11480e-08_rb,0.17032e-08_rb,0.18771e-08_rb,0.78787e-10_rb /)
+      kbo(:, 2,57, 2) = (/ &
+        & 0.31345e-11_rb,0.13189e-08_rb,0.20615e-08_rb,0.23121e-08_rb,0.96832e-10_rb /)
+      kbo(:, 3,57, 2) = (/ &
+        & 0.28728e-11_rb,0.15144e-08_rb,0.23440e-08_rb,0.26863e-08_rb,0.11317e-09_rb /)
+      kbo(:, 4,57, 2) = (/ &
+        & 0.26513e-11_rb,0.17102e-08_rb,0.26436e-08_rb,0.30246e-08_rb,0.13393e-09_rb /)
+      kbo(:, 5,57, 2) = (/ &
+        & 0.24615e-11_rb,0.19022e-08_rb,0.29394e-08_rb,0.33135e-08_rb,0.15772e-09_rb /)
+      kbo(:, 1,58, 2) = (/ &
+        & 0.29119e-11_rb,0.89500e-09_rb,0.13020e-08_rb,0.14383e-08_rb,0.60253e-10_rb /)
+      kbo(:, 2,58, 2) = (/ &
+        & 0.26392e-11_rb,0.10369e-08_rb,0.16036e-08_rb,0.17891e-08_rb,0.75765e-10_rb /)
+      kbo(:, 3,58, 2) = (/ &
+        & 0.24132e-11_rb,0.11975e-08_rb,0.18523e-08_rb,0.21114e-08_rb,0.88260e-10_rb /)
+      kbo(:, 4,58, 2) = (/ &
+        & 0.22227e-11_rb,0.13570e-08_rb,0.20959e-08_rb,0.24045e-08_rb,0.10478e-09_rb /)
+      kbo(:, 5,58, 2) = (/ &
+        & 0.20601e-11_rb,0.15139e-08_rb,0.23406e-08_rb,0.26456e-08_rb,0.12331e-09_rb /)
+      kbo(:, 1,59, 2) = (/ &
+        & 0.24143e-11_rb,0.71851e-09_rb,0.10362e-08_rb,0.11516e-08_rb,0.48086e-10_rb /)
+      kbo(:, 2,59, 2) = (/ &
+        & 0.21857e-11_rb,0.83732e-09_rb,0.12892e-08_rb,0.14335e-08_rb,0.60630e-10_rb /)
+      kbo(:, 3,59, 2) = (/ &
+        & 0.19965e-11_rb,0.96815e-09_rb,0.14990e-08_rb,0.17039e-08_rb,0.71208e-10_rb /)
+      kbo(:, 4,59, 2) = (/ &
+        & 0.18374e-11_rb,0.10982e-08_rb,0.16973e-08_rb,0.19455e-08_rb,0.84514e-10_rb /)
+      kbo(:, 5,59, 2) = (/ &
+        & 0.17017e-11_rb,0.12277e-08_rb,0.18981e-08_rb,0.21472e-08_rb,0.99289e-10_rb /)
+      kbo(:, 1,13, 3) = (/ &
+        & 0.69497e-07_rb,0.55900e-04_rb,0.77634e-04_rb,0.83300e-04_rb,0.14419e-04_rb /)
+      kbo(:, 2,13, 3) = (/ &
+        & 0.64923e-07_rb,0.61779e-04_rb,0.85238e-04_rb,0.90458e-04_rb,0.15996e-04_rb /)
+      kbo(:, 3,13, 3) = (/ &
+        & 0.60920e-07_rb,0.67532e-04_rb,0.92811e-04_rb,0.97588e-04_rb,0.17622e-04_rb /)
+      kbo(:, 4,13, 3) = (/ &
+        & 0.57379e-07_rb,0.72876e-04_rb,0.10040e-03_rb,0.10455e-03_rb,0.19144e-04_rb /)
+      kbo(:, 5,13, 3) = (/ &
+        & 0.54220e-07_rb,0.77699e-04_rb,0.10784e-03_rb,0.11139e-03_rb,0.20671e-04_rb /)
+      kbo(:, 1,14, 3) = (/ &
+        & 0.56538e-07_rb,0.46627e-04_rb,0.64678e-04_rb,0.69399e-04_rb,0.12086e-04_rb /)
+      kbo(:, 2,14, 3) = (/ &
+        & 0.52839e-07_rb,0.51536e-04_rb,0.71080e-04_rb,0.75292e-04_rb,0.13414e-04_rb /)
+      kbo(:, 3,14, 3) = (/ &
+        & 0.49600e-07_rb,0.56334e-04_rb,0.77384e-04_rb,0.81277e-04_rb,0.14732e-04_rb /)
+      kbo(:, 4,14, 3) = (/ &
+        & 0.46731e-07_rb,0.60751e-04_rb,0.83753e-04_rb,0.87067e-04_rb,0.15973e-04_rb /)
+      kbo(:, 5,14, 3) = (/ &
+        & 0.44171e-07_rb,0.64792e-04_rb,0.89963e-04_rb,0.92617e-04_rb,0.17214e-04_rb /)
+      kbo(:, 1,15, 3) = (/ &
+        & 0.45963e-07_rb,0.38920e-04_rb,0.53921e-04_rb,0.57824e-04_rb,0.10089e-04_rb /)
+      kbo(:, 2,15, 3) = (/ &
+        & 0.42976e-07_rb,0.42987e-04_rb,0.59286e-04_rb,0.62615e-04_rb,0.11238e-04_rb /)
+      kbo(:, 3,15, 3) = (/ &
+        & 0.40358e-07_rb,0.47014e-04_rb,0.64557e-04_rb,0.67658e-04_rb,0.12293e-04_rb /)
+      kbo(:, 4,15, 3) = (/ &
+        & 0.38037e-07_rb,0.50641e-04_rb,0.69879e-04_rb,0.72487e-04_rb,0.13317e-04_rb /)
+      kbo(:, 5,15, 3) = (/ &
+        & 0.35964e-07_rb,0.54003e-04_rb,0.75064e-04_rb,0.77083e-04_rb,0.14321e-04_rb /)
+      kbo(:, 1,16, 3) = (/ &
+        & 0.37354e-07_rb,0.32479e-04_rb,0.44953e-04_rb,0.48146e-04_rb,0.84079e-05_rb /)
+      kbo(:, 2,16, 3) = (/ &
+        & 0.34944e-07_rb,0.35873e-04_rb,0.49454e-04_rb,0.52120e-04_rb,0.93405e-05_rb /)
+      kbo(:, 3,16, 3) = (/ &
+        & 0.32829e-07_rb,0.39220e-04_rb,0.53861e-04_rb,0.56293e-04_rb,0.10209e-04_rb /)
+      kbo(:, 4,16, 3) = (/ &
+        & 0.30952e-07_rb,0.42155e-04_rb,0.58309e-04_rb,0.60268e-04_rb,0.11080e-04_rb /)
+      kbo(:, 5,16, 3) = (/ &
+        & 0.29274e-07_rb,0.45014e-04_rb,0.62610e-04_rb,0.64184e-04_rb,0.11887e-04_rb /)
+      kbo(:, 1,17, 3) = (/ &
+        & 0.30364e-07_rb,0.27086e-04_rb,0.37451e-04_rb,0.39995e-04_rb,0.70049e-05_rb /)
+      kbo(:, 2,17, 3) = (/ &
+        & 0.28420e-07_rb,0.29919e-04_rb,0.41194e-04_rb,0.43367e-04_rb,0.77736e-05_rb /)
+      kbo(:, 3,17, 3) = (/ &
+        & 0.26710e-07_rb,0.32650e-04_rb,0.44902e-04_rb,0.46817e-04_rb,0.84838e-05_rb /)
+      kbo(:, 4,17, 3) = (/ &
+        & 0.25192e-07_rb,0.35098e-04_rb,0.48605e-04_rb,0.50103e-04_rb,0.92038e-05_rb /)
+      kbo(:, 5,17, 3) = (/ &
+        & 0.23833e-07_rb,0.37507e-04_rb,0.52188e-04_rb,0.53413e-04_rb,0.98607e-05_rb /)
+      kbo(:, 1,18, 3) = (/ &
+        & 0.24687e-07_rb,0.22581e-04_rb,0.31211e-04_rb,0.33220e-04_rb,0.58361e-05_rb /)
+      kbo(:, 2,18, 3) = (/ &
+        & 0.23116e-07_rb,0.24940e-04_rb,0.34308e-04_rb,0.36078e-04_rb,0.64640e-05_rb /)
+      kbo(:, 3,18, 3) = (/ &
+        & 0.21734e-07_rb,0.27181e-04_rb,0.37414e-04_rb,0.38933e-04_rb,0.70344e-05_rb /)
+      kbo(:, 4,18, 3) = (/ &
+        & 0.20506e-07_rb,0.29216e-04_rb,0.40517e-04_rb,0.41653e-04_rb,0.76276e-05_rb /)
+      kbo(:, 5,18, 3) = (/ &
+        & 0.19406e-07_rb,0.31237e-04_rb,0.43490e-04_rb,0.44397e-04_rb,0.81753e-05_rb /)
+      kbo(:, 1,19, 3) = (/ &
+        & 0.20074e-07_rb,0.18818e-04_rb,0.25999e-04_rb,0.27597e-04_rb,0.48662e-05_rb /)
+      kbo(:, 2,19, 3) = (/ &
+        & 0.18805e-07_rb,0.20784e-04_rb,0.28562e-04_rb,0.29993e-04_rb,0.53723e-05_rb /)
+      kbo(:, 3,19, 3) = (/ &
+        & 0.17688e-07_rb,0.22626e-04_rb,0.31151e-04_rb,0.32363e-04_rb,0.58377e-05_rb /)
+      kbo(:, 4,19, 3) = (/ &
+        & 0.16693e-07_rb,0.24300e-04_rb,0.33760e-04_rb,0.34629e-04_rb,0.63177e-05_rb /)
+      kbo(:, 5,19, 3) = (/ &
+        & 0.15802e-07_rb,0.25985e-04_rb,0.36226e-04_rb,0.36903e-04_rb,0.67742e-05_rb /)
+      kbo(:, 1,20, 3) = (/ &
+        & 0.16306e-07_rb,0.15717e-04_rb,0.21686e-04_rb,0.22959e-04_rb,0.40680e-05_rb /)
+      kbo(:, 2,20, 3) = (/ &
+        & 0.15283e-07_rb,0.17355e-04_rb,0.23826e-04_rb,0.24969e-04_rb,0.44706e-05_rb /)
+      kbo(:, 3,20, 3) = (/ &
+        & 0.14381e-07_rb,0.18856e-04_rb,0.25992e-04_rb,0.26912e-04_rb,0.48550e-05_rb /)
+      kbo(:, 4,20, 3) = (/ &
+        & 0.13578e-07_rb,0.20265e-04_rb,0.28162e-04_rb,0.28817e-04_rb,0.52355e-05_rb /)
+      kbo(:, 5,20, 3) = (/ &
+        & 0.12857e-07_rb,0.21638e-04_rb,0.30215e-04_rb,0.30707e-04_rb,0.56224e-05_rb /)
+      kbo(:, 1,21, 3) = (/ &
+        & 0.13245e-07_rb,0.13128e-04_rb,0.18091e-04_rb,0.19107e-04_rb,0.33880e-05_rb /)
+      kbo(:, 2,21, 3) = (/ &
+        & 0.12420e-07_rb,0.14495e-04_rb,0.19887e-04_rb,0.20794e-04_rb,0.37144e-05_rb /)
+      kbo(:, 3,21, 3) = (/ &
+        & 0.11692e-07_rb,0.15704e-04_rb,0.21703e-04_rb,0.22397e-04_rb,0.40415e-05_rb /)
+      kbo(:, 4,21, 3) = (/ &
+        & 0.11043e-07_rb,0.16904e-04_rb,0.23489e-04_rb,0.23984e-04_rb,0.43455e-05_rb /)
+      kbo(:, 5,21, 3) = (/ &
+        & 0.10460e-07_rb,0.18037e-04_rb,0.25197e-04_rb,0.25558e-04_rb,0.46662e-05_rb /)
+      kbo(:, 1,22, 3) = (/ &
+        & 0.10711e-07_rb,0.11044e-04_rb,0.15199e-04_rb,0.16008e-04_rb,0.28409e-05_rb /)
+      kbo(:, 2,22, 3) = (/ &
+        & 0.10052e-07_rb,0.12165e-04_rb,0.16699e-04_rb,0.17419e-04_rb,0.31041e-05_rb /)
+      kbo(:, 3,22, 3) = (/ &
+        & 0.94690e-08_rb,0.13158e-04_rb,0.18224e-04_rb,0.18733e-04_rb,0.33768e-05_rb /)
+      kbo(:, 4,22, 3) = (/ &
+        & 0.89484e-08_rb,0.14166e-04_rb,0.19691e-04_rb,0.20050e-04_rb,0.36237e-05_rb /)
+      kbo(:, 5,22, 3) = (/ &
+        & 0.84804e-08_rb,0.15085e-04_rb,0.21105e-04_rb,0.21356e-04_rb,0.38876e-05_rb /)
+      kbo(:, 1,23, 3) = (/ &
+        & 0.86606e-08_rb,0.93002e-05_rb,0.12775e-04_rb,0.13420e-04_rb,0.23815e-05_rb /)
+      kbo(:, 2,23, 3) = (/ &
+        & 0.81340e-08_rb,0.10210e-04_rb,0.14034e-04_rb,0.14552e-04_rb,0.25955e-05_rb /)
+      kbo(:, 3,23, 3) = (/ &
+        & 0.76671e-08_rb,0.11035e-04_rb,0.15302e-04_rb,0.15657e-04_rb,0.28150e-05_rb /)
+      kbo(:, 4,23, 3) = (/ &
+        & 0.72497e-08_rb,0.11863e-04_rb,0.16513e-04_rb,0.16770e-04_rb,0.30198e-05_rb /)
+      kbo(:, 5,23, 3) = (/ &
+        & 0.68739e-08_rb,0.12616e-04_rb,0.17664e-04_rb,0.17848e-04_rb,0.32387e-05_rb /)
+      kbo(:, 1,24, 3) = (/ &
+        & 0.69995e-08_rb,0.78392e-05_rb,0.10754e-04_rb,0.11250e-04_rb,0.19986e-05_rb /)
+      kbo(:, 2,24, 3) = (/ &
+        & 0.65790e-08_rb,0.85674e-05_rb,0.11806e-04_rb,0.12186e-04_rb,0.21738e-05_rb /)
+      kbo(:, 3,24, 3) = (/ &
+        & 0.62055e-08_rb,0.92664e-05_rb,0.12850e-04_rb,0.13103e-04_rb,0.23469e-05_rb /)
+      kbo(:, 4,24, 3) = (/ &
+        & 0.58710e-08_rb,0.99376e-05_rb,0.13854e-04_rb,0.14027e-04_rb,0.25195e-05_rb /)
+      kbo(:, 5,24, 3) = (/ &
+        & 0.55696e-08_rb,0.10527e-04_rb,0.14795e-04_rb,0.14917e-04_rb,0.26988e-05_rb /)
+      kbo(:, 1,25, 3) = (/ &
+        & 0.56538e-08_rb,0.66118e-05_rb,0.90610e-05_rb,0.94422e-05_rb,0.16753e-05_rb /)
+      kbo(:, 2,25, 3) = (/ &
+        & 0.53184e-08_rb,0.71986e-05_rb,0.99389e-05_rb,0.10209e-04_rb,0.18223e-05_rb /)
+      kbo(:, 3,25, 3) = (/ &
+        & 0.50199e-08_rb,0.77863e-05_rb,0.10800e-04_rb,0.10981e-04_rb,0.19590e-05_rb /)
+      kbo(:, 4,25, 3) = (/ &
+        & 0.47522e-08_rb,0.83415e-05_rb,0.11626e-04_rb,0.11737e-04_rb,0.21020e-05_rb /)
+      kbo(:, 5,25, 3) = (/ &
+        & 0.45105e-08_rb,0.88017e-05_rb,0.12373e-04_rb,0.12468e-04_rb,0.22498e-05_rb /)
+      kbo(:, 1,26, 3) = (/ &
+        & 0.45620e-08_rb,0.55749e-05_rb,0.76463e-05_rb,0.79285e-05_rb,0.14032e-05_rb /)
+      kbo(:, 2,26, 3) = (/ &
+        & 0.42950e-08_rb,0.60590e-05_rb,0.83822e-05_rb,0.85652e-05_rb,0.15255e-05_rb /)
+      kbo(:, 3,26, 3) = (/ &
+        & 0.40569e-08_rb,0.65510e-05_rb,0.90888e-05_rb,0.92116e-05_rb,0.16373e-05_rb /)
+      kbo(:, 4,26, 3) = (/ &
+        & 0.38429e-08_rb,0.69918e-05_rb,0.97604e-05_rb,0.98329e-05_rb,0.17561e-05_rb /)
+      kbo(:, 5,26, 3) = (/ &
+        & 0.36495e-08_rb,0.73566e-05_rb,0.10367e-04_rb,0.10429e-04_rb,0.18769e-05_rb /)
+      kbo(:, 1,27, 3) = (/ &
+        & 0.36809e-08_rb,0.46967e-05_rb,0.64580e-05_rb,0.66649e-05_rb,0.11786e-05_rb /)
+      kbo(:, 2,27, 3) = (/ &
+        & 0.34683e-08_rb,0.51072e-05_rb,0.70661e-05_rb,0.71902e-05_rb,0.12759e-05_rb /)
+      kbo(:, 3,27, 3) = (/ &
+        & 0.32784e-08_rb,0.55053e-05_rb,0.76470e-05_rb,0.77250e-05_rb,0.13691e-05_rb /)
+      kbo(:, 4,27, 3) = (/ &
+        & 0.31074e-08_rb,0.58474e-05_rb,0.81898e-05_rb,0.82340e-05_rb,0.14666e-05_rb /)
+      kbo(:, 5,27, 3) = (/ &
+        & 0.29526e-08_rb,0.61493e-05_rb,0.86815e-05_rb,0.87199e-05_rb,0.15650e-05_rb /)
+      kbo(:, 1,28, 3) = (/ &
+        & 0.29701e-08_rb,0.39582e-05_rb,0.54573e-05_rb,0.55959e-05_rb,0.99037e-06_rb /)
+      kbo(:, 2,28, 3) = (/ &
+        & 0.28008e-08_rb,0.43048e-05_rb,0.59546e-05_rb,0.60406e-05_rb,0.10659e-05_rb /)
+      kbo(:, 3,28, 3) = (/ &
+        & 0.26493e-08_rb,0.46277e-05_rb,0.64286e-05_rb,0.64745e-05_rb,0.11442e-05_rb /)
+      kbo(:, 4,28, 3) = (/ &
+        & 0.25127e-08_rb,0.48940e-05_rb,0.68612e-05_rb,0.68918e-05_rb,0.12250e-05_rb /)
+      kbo(:, 5,28, 3) = (/ &
+        & 0.23888e-08_rb,0.51428e-05_rb,0.72654e-05_rb,0.72865e-05_rb,0.13046e-05_rb /)
+      kbo(:, 1,29, 3) = (/ &
+        & 0.23958e-08_rb,0.33409e-05_rb,0.46115e-05_rb,0.47054e-05_rb,0.83021e-06_rb /)
+      kbo(:, 2,29, 3) = (/ &
+        & 0.22611e-08_rb,0.36267e-05_rb,0.50192e-05_rb,0.50754e-05_rb,0.89157e-06_rb /)
+      kbo(:, 3,29, 3) = (/ &
+        & 0.21402e-08_rb,0.38805e-05_rb,0.54053e-05_rb,0.54291e-05_rb,0.95663e-06_rb /)
+      kbo(:, 4,29, 3) = (/ &
+        & 0.20311e-08_rb,0.40929e-05_rb,0.57529e-05_rb,0.57685e-05_rb,0.10232e-05_rb /)
+      kbo(:, 5,29, 3) = (/ &
+        & 0.19320e-08_rb,0.43014e-05_rb,0.60684e-05_rb,0.60868e-05_rb,0.10874e-05_rb /)
+      kbo(:, 1,30, 3) = (/ &
+        & 0.19328e-08_rb,0.28217e-05_rb,0.38955e-05_rb,0.39562e-05_rb,0.69464e-06_rb /)
+      kbo(:, 2,30, 3) = (/ &
+        & 0.18255e-08_rb,0.30515e-05_rb,0.42293e-05_rb,0.42605e-05_rb,0.74588e-06_rb /)
+      kbo(:, 3,30, 3) = (/ &
+        & 0.17291e-08_rb,0.32496e-05_rb,0.45390e-05_rb,0.45501e-05_rb,0.79957e-06_rb /)
+      kbo(:, 4,30, 3) = (/ &
+        & 0.16419e-08_rb,0.34235e-05_rb,0.48191e-05_rb,0.48249e-05_rb,0.85373e-06_rb /)
+      kbo(:, 5,30, 3) = (/ &
+        & 0.15626e-08_rb,0.35992e-05_rb,0.50632e-05_rb,0.50805e-05_rb,0.90582e-06_rb /)
+      kbo(:, 1,31, 3) = (/ &
+        & 0.15590e-08_rb,0.23841e-05_rb,0.32890e-05_rb,0.33282e-05_rb,0.58108e-06_rb /)
+      kbo(:, 2,31, 3) = (/ &
+        & 0.14736e-08_rb,0.25683e-05_rb,0.35605e-05_rb,0.35756e-05_rb,0.62401e-06_rb /)
+      kbo(:, 3,31, 3) = (/ &
+        & 0.13967e-08_rb,0.27223e-05_rb,0.38055e-05_rb,0.38110e-05_rb,0.66862e-06_rb /)
+      kbo(:, 4,31, 3) = (/ &
+        & 0.13271e-08_rb,0.28652e-05_rb,0.40295e-05_rb,0.40331e-05_rb,0.71216e-06_rb /)
+      kbo(:, 5,31, 3) = (/ &
+        & 0.12637e-08_rb,0.30069e-05_rb,0.42257e-05_rb,0.42393e-05_rb,0.75527e-06_rb /)
+      kbo(:, 1,32, 3) = (/ &
+        & 0.12575e-08_rb,0.20099e-05_rb,0.27764e-05_rb,0.27988e-05_rb,0.48614e-06_rb /)
+      kbo(:, 2,32, 3) = (/ &
+        & 0.11895e-08_rb,0.21551e-05_rb,0.29961e-05_rb,0.29996e-05_rb,0.52199e-06_rb /)
+      kbo(:, 3,32, 3) = (/ &
+        & 0.11282e-08_rb,0.22771e-05_rb,0.31901e-05_rb,0.31897e-05_rb,0.55867e-06_rb /)
+      kbo(:, 4,32, 3) = (/ &
+        & 0.10726e-08_rb,0.23969e-05_rb,0.33657e-05_rb,0.33696e-05_rb,0.59410e-06_rb /)
+      kbo(:, 5,32, 3) = (/ &
+        & 0.10218e-08_rb,0.25076e-05_rb,0.35232e-05_rb,0.35366e-05_rb,0.62965e-06_rb /)
+      kbo(:, 1,33, 3) = (/ &
+        & 0.10144e-08_rb,0.16940e-05_rb,0.23421e-05_rb,0.23519e-05_rb,0.40701e-06_rb /)
+      kbo(:, 2,33, 3) = (/ &
+        & 0.96024e-09_rb,0.18066e-05_rb,0.25146e-05_rb,0.25148e-05_rb,0.43657e-06_rb /)
+      kbo(:, 3,33, 3) = (/ &
+        & 0.91134e-09_rb,0.19053e-05_rb,0.26738e-05_rb,0.26690e-05_rb,0.46656e-06_rb /)
+      kbo(:, 4,33, 3) = (/ &
+        & 0.86689e-09_rb,0.20038e-05_rb,0.28104e-05_rb,0.28139e-05_rb,0.49516e-06_rb /)
+      kbo(:, 5,33, 3) = (/ &
+        & 0.82630e-09_rb,0.20860e-05_rb,0.29294e-05_rb,0.29485e-05_rb,0.52462e-06_rb /)
+      kbo(:, 1,34, 3) = (/ &
+        & 0.82000e-09_rb,0.14231e-05_rb,0.19661e-05_rb,0.19700e-05_rb,0.33996e-06_rb /)
+      kbo(:, 2,34, 3) = (/ &
+        & 0.77672e-09_rb,0.15105e-05_rb,0.21047e-05_rb,0.21018e-05_rb,0.36435e-06_rb /)
+      kbo(:, 3,34, 3) = (/ &
+        & 0.73757e-09_rb,0.15908e-05_rb,0.22307e-05_rb,0.22272e-05_rb,0.38851e-06_rb /)
+      kbo(:, 4,34, 3) = (/ &
+        & 0.70193e-09_rb,0.16706e-05_rb,0.23421e-05_rb,0.23448e-05_rb,0.41219e-06_rb /)
+      kbo(:, 5,34, 3) = (/ &
+        & 0.66936e-09_rb,0.17330e-05_rb,0.24342e-05_rb,0.24538e-05_rb,0.43607e-06_rb /)
+      kbo(:, 1,35, 3) = (/ &
+        & 0.66652e-09_rb,0.11842e-05_rb,0.16383e-05_rb,0.16382e-05_rb,0.28183e-06_rb /)
+      kbo(:, 2,35, 3) = (/ &
+        & 0.63156e-09_rb,0.12541e-05_rb,0.17499e-05_rb,0.17457e-05_rb,0.30195e-06_rb /)
+      kbo(:, 3,35, 3) = (/ &
+        & 0.59990e-09_rb,0.13209e-05_rb,0.18504e-05_rb,0.18484e-05_rb,0.32174e-06_rb /)
+      kbo(:, 4,35, 3) = (/ &
+        & 0.57107e-09_rb,0.13850e-05_rb,0.19418e-05_rb,0.19438e-05_rb,0.34124e-06_rb /)
+      kbo(:, 5,35, 3) = (/ &
+        & 0.54470e-09_rb,0.14348e-05_rb,0.20135e-05_rb,0.20335e-05_rb,0.36050e-06_rb /)
+      kbo(:, 1,36, 3) = (/ &
+        & 0.54506e-09_rb,0.97870e-06_rb,0.13541e-05_rb,0.13520e-05_rb,0.23190e-06_rb /)
+      kbo(:, 2,36, 3) = (/ &
+        & 0.51650e-09_rb,0.10354e-05_rb,0.14455e-05_rb,0.14404e-05_rb,0.24845e-06_rb /)
+      kbo(:, 3,36, 3) = (/ &
+        & 0.49063e-09_rb,0.10910e-05_rb,0.15270e-05_rb,0.15247e-05_rb,0.26464e-06_rb /)
+      kbo(:, 4,36, 3) = (/ &
+        & 0.46707e-09_rb,0.11427e-05_rb,0.16012e-05_rb,0.16033e-05_rb,0.28072e-06_rb /)
+      kbo(:, 5,36, 3) = (/ &
+        & 0.44553e-09_rb,0.11833e-05_rb,0.16604e-05_rb,0.16774e-05_rb,0.29643e-06_rb /)
+      kbo(:, 1,37, 3) = (/ &
+        & 0.44949e-09_rb,0.80104e-06_rb,0.11066e-05_rb,0.11045e-05_rb,0.18888e-06_rb /)
+      kbo(:, 2,37, 3) = (/ &
+        & 0.42579e-09_rb,0.84810e-06_rb,0.11826e-05_rb,0.11777e-05_rb,0.20242e-06_rb /)
+      kbo(:, 3,37, 3) = (/ &
+        & 0.40435e-09_rb,0.89404e-06_rb,0.12504e-05_rb,0.12477e-05_rb,0.21578e-06_rb /)
+      kbo(:, 4,37, 3) = (/ &
+        & 0.38483e-09_rb,0.93737e-06_rb,0.13124e-05_rb,0.13129e-05_rb,0.22892e-06_rb /)
+      kbo(:, 5,37, 3) = (/ &
+        & 0.36699e-09_rb,0.97118e-06_rb,0.13617e-05_rb,0.13744e-05_rb,0.24190e-06_rb /)
+      kbo(:, 1,38, 3) = (/ &
+        & 0.37088e-09_rb,0.65468e-06_rb,0.90347e-06_rb,0.90140e-06_rb,0.15371e-06_rb /)
+      kbo(:, 2,38, 3) = (/ &
+        & 0.35120e-09_rb,0.69421e-06_rb,0.96676e-06_rb,0.96222e-06_rb,0.16484e-06_rb /)
+      kbo(:, 3,38, 3) = (/ &
+        & 0.33340e-09_rb,0.73211e-06_rb,0.10233e-05_rb,0.10203e-05_rb,0.17578e-06_rb /)
+      kbo(:, 4,38, 3) = (/ &
+        & 0.31721e-09_rb,0.76838e-06_rb,0.10750e-05_rb,0.10745e-05_rb,0.18656e-06_rb /)
+      kbo(:, 5,38, 3) = (/ &
+        & 0.30242e-09_rb,0.79676e-06_rb,0.11164e-05_rb,0.11256e-05_rb,0.19730e-06_rb /)
+      kbo(:, 1,39, 3) = (/ &
+        & 0.30603e-09_rb,0.53518e-06_rb,0.73755e-06_rb,0.73560e-06_rb,0.12509e-06_rb /)
+      kbo(:, 2,39, 3) = (/ &
+        & 0.28967e-09_rb,0.56827e-06_rb,0.79017e-06_rb,0.78607e-06_rb,0.13420e-06_rb /)
+      kbo(:, 3,39, 3) = (/ &
+        & 0.27490e-09_rb,0.59946e-06_rb,0.83729e-06_rb,0.83418e-06_rb,0.14320e-06_rb /)
+      kbo(:, 4,39, 3) = (/ &
+        & 0.26148e-09_rb,0.62968e-06_rb,0.88045e-06_rb,0.87919e-06_rb,0.15206e-06_rb /)
+      kbo(:, 5,39, 3) = (/ &
+        & 0.24922e-09_rb,0.65358e-06_rb,0.91511e-06_rb,0.92187e-06_rb,0.16092e-06_rb /)
+      kbo(:, 1,40, 3) = (/ &
+        & 0.25401e-09_rb,0.43491e-06_rb,0.59706e-06_rb,0.59583e-06_rb,0.10103e-06_rb /)
+      kbo(:, 2,40, 3) = (/ &
+        & 0.24027e-09_rb,0.46243e-06_rb,0.64127e-06_rb,0.63780e-06_rb,0.10854e-06_rb /)
+      kbo(:, 3,40, 3) = (/ &
+        & 0.22788e-09_rb,0.48789e-06_rb,0.68111e-06_rb,0.67785e-06_rb,0.11596e-06_rb /)
+      kbo(:, 4,40, 3) = (/ &
+        & 0.21664e-09_rb,0.51370e-06_rb,0.71776e-06_rb,0.71557e-06_rb,0.12318e-06_rb /)
+      kbo(:, 5,40, 3) = (/ &
+        & 0.20639e-09_rb,0.53413e-06_rb,0.74738e-06_rb,0.75116e-06_rb,0.13055e-06_rb /)
+      kbo(:, 1,41, 3) = (/ &
+        & 0.21103e-09_rb,0.35162e-06_rb,0.48245e-06_rb,0.48181e-06_rb,0.81551e-07_rb /)
+      kbo(:, 2,41, 3) = (/ &
+        & 0.19947e-09_rb,0.37577e-06_rb,0.51975e-06_rb,0.51683e-06_rb,0.87624e-07_rb /)
+      kbo(:, 3,41, 3) = (/ &
+        & 0.18906e-09_rb,0.39681e-06_rb,0.55372e-06_rb,0.55016e-06_rb,0.93775e-07_rb /)
+      kbo(:, 4,41, 3) = (/ &
+        & 0.17963e-09_rb,0.41856e-06_rb,0.58405e-06_rb,0.58177e-06_rb,0.99677e-07_rb /)
+      kbo(:, 5,41, 3) = (/ &
+        & 0.17105e-09_rb,0.43610e-06_rb,0.60957e-06_rb,0.61150e-06_rb,0.10578e-06_rb /)
+      kbo(:, 1,42, 3) = (/ &
+        & 0.17536e-09_rb,0.28412e-06_rb,0.38948e-06_rb,0.38933e-06_rb,0.65791e-07_rb /)
+      kbo(:, 2,42, 3) = (/ &
+        & 0.16563e-09_rb,0.30504e-06_rb,0.42097e-06_rb,0.41854e-06_rb,0.70752e-07_rb /)
+      kbo(:, 3,42, 3) = (/ &
+        & 0.15688e-09_rb,0.32265e-06_rb,0.44957e-06_rb,0.44624e-06_rb,0.75790e-07_rb /)
+      kbo(:, 4,42, 3) = (/ &
+        & 0.14897e-09_rb,0.34080e-06_rb,0.47502e-06_rb,0.47268e-06_rb,0.80648e-07_rb /)
+      kbo(:, 5,42, 3) = (/ &
+        & 0.14178e-09_rb,0.35584e-06_rb,0.49696e-06_rb,0.49747e-06_rb,0.85685e-07_rb /)
+      kbo(:, 1,43, 3) = (/ &
+        & 0.14625e-09_rb,0.22828e-06_rb,0.31269e-06_rb,0.31301e-06_rb,0.52858e-07_rb /)
+      kbo(:, 2,43, 3) = (/ &
+        & 0.13800e-09_rb,0.24660e-06_rb,0.33945e-06_rb,0.33736e-06_rb,0.56872e-07_rb /)
+      kbo(:, 3,43, 3) = (/ &
+        & 0.13060e-09_rb,0.26150e-06_rb,0.36382e-06_rb,0.36052e-06_rb,0.61005e-07_rb /)
+      kbo(:, 4,43, 3) = (/ &
+        & 0.12392e-09_rb,0.27637e-06_rb,0.38496e-06_rb,0.38262e-06_rb,0.65064e-07_rb /)
+      kbo(:, 5,43, 3) = (/ &
+        & 0.11786e-09_rb,0.28960e-06_rb,0.40432e-06_rb,0.40346e-06_rb,0.69134e-07_rb /)
+      kbo(:, 1,44, 3) = (/ &
+        & 0.12220e-09_rb,0.18299e-06_rb,0.25003e-06_rb,0.25075e-06_rb,0.42426e-07_rb /)
+      kbo(:, 2,44, 3) = (/ &
+        & 0.11518e-09_rb,0.19858e-06_rb,0.27271e-06_rb,0.27124e-06_rb,0.45605e-07_rb /)
+      kbo(:, 3,44, 3) = (/ &
+        & 0.10890e-09_rb,0.21149e-06_rb,0.29306e-06_rb,0.29059e-06_rb,0.48989e-07_rb /)
+      kbo(:, 4,44, 3) = (/ &
+        & 0.10324e-09_rb,0.22361e-06_rb,0.31128e-06_rb,0.30909e-06_rb,0.52357e-07_rb /)
+      kbo(:, 5,44, 3) = (/ &
+        & 0.98119e-10_rb,0.23540e-06_rb,0.32782e-06_rb,0.32657e-06_rb,0.55650e-07_rb /)
+      kbo(:, 1,45, 3) = (/ &
+        & 0.10215e-09_rb,0.14604e-06_rb,0.19957e-06_rb,0.20079e-06_rb,0.34009e-07_rb /)
+      kbo(:, 2,45, 3) = (/ &
+        & 0.96168e-10_rb,0.15976e-06_rb,0.21859e-06_rb,0.21782e-06_rb,0.36565e-07_rb /)
+      kbo(:, 3,45, 3) = (/ &
+        & 0.90832e-10_rb,0.17092e-06_rb,0.23594e-06_rb,0.23403e-06_rb,0.39336e-07_rb /)
+      kbo(:, 4,45, 3) = (/ &
+        & 0.86039e-10_rb,0.18076e-06_rb,0.25148e-06_rb,0.24940e-06_rb,0.42120e-07_rb /)
+      kbo(:, 5,45, 3) = (/ &
+        & 0.81705e-10_rb,0.19091e-06_rb,0.26579e-06_rb,0.26417e-06_rb,0.44806e-07_rb /)
+      kbo(:, 1,46, 3) = (/ &
+        & 0.85548e-10_rb,0.11606e-06_rb,0.15858e-06_rb,0.16025e-06_rb,0.27138e-07_rb /)
+      kbo(:, 2,46, 3) = (/ &
+        & 0.80430e-10_rb,0.12777e-06_rb,0.17465e-06_rb,0.17439e-06_rb,0.29260e-07_rb /)
+      kbo(:, 3,46, 3) = (/ &
+        & 0.75882e-10_rb,0.13771e-06_rb,0.18956e-06_rb,0.18801e-06_rb,0.31519e-07_rb /)
+      kbo(:, 4,46, 3) = (/ &
+        & 0.71807e-10_rb,0.14597e-06_rb,0.20282e-06_rb,0.20085e-06_rb,0.33790e-07_rb /)
+      kbo(:, 5,46, 3) = (/ &
+        & 0.68131e-10_rb,0.15454e-06_rb,0.21485e-06_rb,0.21321e-06_rb,0.36016e-07_rb /)
+      kbo(:, 1,47, 3) = (/ &
+        & 0.71880e-10_rb,0.91677e-07_rb,0.12518e-06_rb,0.12717e-06_rb,0.21548e-07_rb /)
+      kbo(:, 2,47, 3) = (/ &
+        & 0.67474e-10_rb,0.10182e-06_rb,0.13885e-06_rb,0.13887e-06_rb,0.23366e-07_rb /)
+      kbo(:, 3,47, 3) = (/ &
+        & 0.63573e-10_rb,0.11037e-06_rb,0.15155e-06_rb,0.15037e-06_rb,0.25140e-07_rb /)
+      kbo(:, 4,47, 3) = (/ &
+        & 0.60089e-10_rb,0.11757e-06_rb,0.16292e-06_rb,0.16115e-06_rb,0.27023e-07_rb /)
+      kbo(:, 5,47, 3) = (/ &
+        & 0.56955e-10_rb,0.12460e-06_rb,0.17303e-06_rb,0.17150e-06_rb,0.28886e-07_rb /)
+      kbo(:, 1,48, 3) = (/ &
+        & 0.60438e-10_rb,0.72378e-07_rb,0.98586e-07_rb,0.10075e-06_rb,0.17068e-07_rb /)
+      kbo(:, 2,48, 3) = (/ &
+        & 0.56639e-10_rb,0.80662e-07_rb,0.11003e-06_rb,0.11052e-06_rb,0.18643e-07_rb /)
+      kbo(:, 3,48, 3) = (/ &
+        & 0.53288e-10_rb,0.88391e-07_rb,0.12069e-06_rb,0.12007e-06_rb,0.20050e-07_rb /)
+      kbo(:, 4,48, 3) = (/ &
+        & 0.50306e-10_rb,0.94624e-07_rb,0.13045e-06_rb,0.12916e-06_rb,0.21587e-07_rb /)
+      kbo(:, 5,48, 3) = (/ &
+        & 0.47632e-10_rb,0.10026e-06_rb,0.13914e-06_rb,0.13778e-06_rb,0.23136e-07_rb /)
+      kbo(:, 1,49, 3) = (/ &
+        & 0.50856e-10_rb,0.57046e-07_rb,0.77565e-07_rb,0.79741e-07_rb,0.13510e-07_rb /)
+      kbo(:, 2,49, 3) = (/ &
+        & 0.47574e-10_rb,0.63730e-07_rb,0.86939e-07_rb,0.87826e-07_rb,0.14811e-07_rb /)
+      kbo(:, 3,49, 3) = (/ &
+        & 0.44692e-10_rb,0.70367e-07_rb,0.95974e-07_rb,0.95707e-07_rb,0.15992e-07_rb /)
+      kbo(:, 4,49, 3) = (/ &
+        & 0.42136e-10_rb,0.75959e-07_rb,0.10441e-06_rb,0.10336e-06_rb,0.17235e-07_rb /)
+      kbo(:, 5,49, 3) = (/ &
+        & 0.39851e-10_rb,0.80662e-07_rb,0.11179e-06_rb,0.11061e-06_rb,0.18501e-07_rb /)
+      kbo(:, 1,50, 3) = (/ &
+        & 0.42752e-10_rb,0.44994e-07_rb,0.60933e-07_rb,0.63170e-07_rb,0.10733e-07_rb /)
+      kbo(:, 2,50, 3) = (/ &
+        & 0.39920e-10_rb,0.50417e-07_rb,0.68695e-07_rb,0.69776e-07_rb,0.11778e-07_rb /)
+      kbo(:, 3,50, 3) = (/ &
+        & 0.37445e-10_rb,0.56129e-07_rb,0.76381e-07_rb,0.76292e-07_rb,0.12796e-07_rb /)
+      kbo(:, 4,50, 3) = (/ &
+        & 0.35258e-10_rb,0.60916e-07_rb,0.83533e-07_rb,0.82746e-07_rb,0.13770e-07_rb /)
+      kbo(:, 5,50, 3) = (/ &
+        & 0.33309e-10_rb,0.65010e-07_rb,0.89933e-07_rb,0.88828e-07_rb,0.14809e-07_rb /)
+      kbo(:, 1,51, 3) = (/ &
+        & 0.35935e-10_rb,0.35278e-07_rb,0.47901e-07_rb,0.50056e-07_rb,0.85239e-08_rb /)
+      kbo(:, 2,51, 3) = (/ &
+        & 0.33494e-10_rb,0.39897e-07_rb,0.54245e-07_rb,0.55439e-07_rb,0.93562e-08_rb /)
+      kbo(:, 3,51, 3) = (/ &
+        & 0.31368e-10_rb,0.44577e-07_rb,0.60687e-07_rb,0.60854e-07_rb,0.10229e-07_rb /)
+      kbo(:, 4,51, 3) = (/ &
+        & 0.29497e-10_rb,0.48906e-07_rb,0.66668e-07_rb,0.66217e-07_rb,0.11009e-07_rb /)
+      kbo(:, 5,51, 3) = (/ &
+        & 0.27834e-10_rb,0.52348e-07_rb,0.72154e-07_rb,0.71322e-07_rb,0.11856e-07_rb /)
+      kbo(:, 1,52, 3) = (/ &
+        & 0.30227e-10_rb,0.27572e-07_rb,0.37524e-07_rb,0.39754e-07_rb,0.67198e-08_rb /)
+      kbo(:, 2,52, 3) = (/ &
+        & 0.28118e-10_rb,0.31560e-07_rb,0.42810e-07_rb,0.44031e-07_rb,0.74267e-08_rb /)
+      kbo(:, 3,52, 3) = (/ &
+        & 0.26290e-10_rb,0.35319e-07_rb,0.48079e-07_rb,0.48486e-07_rb,0.81511e-08_rb /)
+      kbo(:, 4,52, 3) = (/ &
+        & 0.24687e-10_rb,0.39041e-07_rb,0.53141e-07_rb,0.52898e-07_rb,0.88044e-08_rb /)
+      kbo(:, 5,52, 3) = (/ &
+        & 0.23267e-10_rb,0.42123e-07_rb,0.57835e-07_rb,0.57177e-07_rb,0.94934e-08_rb /)
+      kbo(:, 1,53, 3) = (/ &
+        & 0.25448e-10_rb,0.21456e-07_rb,0.29324e-07_rb,0.31450e-07_rb,0.53035e-08_rb /)
+      kbo(:, 2,53, 3) = (/ &
+        & 0.23623e-10_rb,0.24922e-07_rb,0.33706e-07_rb,0.34903e-07_rb,0.59025e-08_rb /)
+      kbo(:, 3,53, 3) = (/ &
+        & 0.22048e-10_rb,0.27931e-07_rb,0.38009e-07_rb,0.38548e-07_rb,0.64842e-08_rb /)
+      kbo(:, 4,53, 3) = (/ &
+        & 0.20673e-10_rb,0.31117e-07_rb,0.42293e-07_rb,0.42180e-07_rb,0.70454e-08_rb /)
+      kbo(:, 5,53, 3) = (/ &
+        & 0.19459e-10_rb,0.33800e-07_rb,0.46316e-07_rb,0.45776e-07_rb,0.75886e-08_rb /)
+      kbo(:, 1,54, 3) = (/ &
+        & 0.21390e-10_rb,0.16743e-07_rb,0.23031e-07_rb,0.24877e-07_rb,0.41777e-08_rb /)
+      kbo(:, 2,54, 3) = (/ &
+        & 0.19815e-10_rb,0.19619e-07_rb,0.26556e-07_rb,0.27722e-07_rb,0.47031e-08_rb /)
+      kbo(:, 3,54, 3) = (/ &
+        & 0.18463e-10_rb,0.22167e-07_rb,0.30101e-07_rb,0.30708e-07_rb,0.51646e-08_rb /)
+      kbo(:, 4,54, 3) = (/ &
+        & 0.17286e-10_rb,0.24804e-07_rb,0.33704e-07_rb,0.33716e-07_rb,0.56448e-08_rb /)
+      kbo(:, 5,54, 3) = (/ &
+        & 0.16251e-10_rb,0.27183e-07_rb,0.37049e-07_rb,0.36696e-07_rb,0.60788e-08_rb /)
+      kbo(:, 1,55, 3) = (/ &
+        & 0.17973e-10_rb,0.13037e-07_rb,0.18115e-07_rb,0.19727e-07_rb,0.32912e-08_rb /)
+      kbo(:, 2,55, 3) = (/ &
+        & 0.16615e-10_rb,0.15402e-07_rb,0.20942e-07_rb,0.22043e-07_rb,0.37301e-08_rb /)
+      kbo(:, 3,55, 3) = (/ &
+        & 0.15454e-10_rb,0.17592e-07_rb,0.23848e-07_rb,0.24485e-07_rb,0.41129e-08_rb /)
+      kbo(:, 4,55, 3) = (/ &
+        & 0.14448e-10_rb,0.19733e-07_rb,0.26815e-07_rb,0.26954e-07_rb,0.45146e-08_rb /)
+      kbo(:, 5,55, 3) = (/ &
+        & 0.13565e-10_rb,0.21785e-07_rb,0.29633e-07_rb,0.29414e-07_rb,0.48762e-08_rb /)
+      kbo(:, 1,56, 3) = (/ &
+        & 0.15112e-10_rb,0.10127e-07_rb,0.14262e-07_rb,0.15637e-07_rb,0.25986e-08_rb /)
+      kbo(:, 2,56, 3) = (/ &
+        & 0.13939e-10_rb,0.12082e-07_rb,0.16458e-07_rb,0.17567e-07_rb,0.29510e-08_rb /)
+      kbo(:, 3,56, 3) = (/ &
+        & 0.12942e-10_rb,0.13980e-07_rb,0.18876e-07_rb,0.19499e-07_rb,0.32803e-08_rb /)
+      kbo(:, 4,56, 3) = (/ &
+        & 0.12080e-10_rb,0.15677e-07_rb,0.21298e-07_rb,0.21516e-07_rb,0.36078e-08_rb /)
+      kbo(:, 5,56, 3) = (/ &
+        & 0.11328e-10_rb,0.17421e-07_rb,0.23674e-07_rb,0.23552e-07_rb,0.39142e-08_rb /)
+      kbo(:, 1,57, 3) = (/ &
+        & 0.12716e-10_rb,0.78423e-08_rb,0.11218e-07_rb,0.12368e-07_rb,0.20572e-08_rb /)
+      kbo(:, 2,57, 3) = (/ &
+        & 0.11703e-10_rb,0.94468e-08_rb,0.12944e-07_rb,0.13939e-07_rb,0.23449e-08_rb /)
+      kbo(:, 3,57, 3) = (/ &
+        & 0.10844e-10_rb,0.11054e-07_rb,0.14933e-07_rb,0.15504e-07_rb,0.26161e-08_rb /)
+      kbo(:, 4,57, 3) = (/ &
+        & 0.10105e-10_rb,0.12445e-07_rb,0.16895e-07_rb,0.17167e-07_rb,0.28789e-08_rb /)
+      kbo(:, 5,57, 3) = (/ &
+        & 0.94629e-11_rb,0.13929e-07_rb,0.18884e-07_rb,0.18837e-07_rb,0.31391e-08_rb /)
+      kbo(:, 1,58, 3) = (/ &
+        & 0.10694e-10_rb,0.61084e-08_rb,0.88278e-08_rb,0.97801e-08_rb,0.16192e-08_rb /)
+      kbo(:, 2,58, 3) = (/ &
+        & 0.98180e-11_rb,0.73859e-08_rb,0.10206e-07_rb,0.11064e-07_rb,0.18486e-08_rb /)
+      kbo(:, 3,58, 3) = (/ &
+        & 0.90797e-11_rb,0.87113e-08_rb,0.11801e-07_rb,0.12348e-07_rb,0.20872e-08_rb /)
+      kbo(:, 4,58, 3) = (/ &
+        & 0.84478e-11_rb,0.99003e-08_rb,0.13409e-07_rb,0.13707e-07_rb,0.22967e-08_rb /)
+      kbo(:, 5,58, 3) = (/ &
+        & 0.78998e-11_rb,0.11108e-07_rb,0.15069e-07_rb,0.15082e-07_rb,0.25182e-08_rb /)
+      kbo(:, 1,59, 3) = (/ &
+        & 0.88513e-11_rb,0.49239e-08_rb,0.71386e-08_rb,0.79170e-08_rb,0.13089e-08_rb /)
+      kbo(:, 2,59, 3) = (/ &
+        & 0.81187e-11_rb,0.59541e-08_rb,0.82539e-08_rb,0.89758e-08_rb,0.14952e-08_rb /)
+      kbo(:, 3,59, 3) = (/ &
+        & 0.75021e-11_rb,0.70450e-08_rb,0.95567e-08_rb,0.10024e-07_rb,0.16919e-08_rb /)
+      kbo(:, 4,59, 3) = (/ &
+        & 0.69753e-11_rb,0.80391e-08_rb,0.10874e-07_rb,0.11143e-07_rb,0.18646e-08_rb /)
+      kbo(:, 5,59, 3) = (/ &
+        & 0.65191e-11_rb,0.90265e-08_rb,0.12240e-07_rb,0.12268e-07_rb,0.20471e-08_rb /)
+      kbo(:, 1,13, 4) = (/ &
+        & 0.40115e-06_rb,0.20542e-03_rb,0.29006e-03_rb,0.29983e-03_rb,0.86404e-04_rb /)
+      kbo(:, 2,13, 4) = (/ &
+        & 0.38503e-06_rb,0.22086e-03_rb,0.30833e-03_rb,0.32518e-03_rb,0.92611e-04_rb /)
+      kbo(:, 3,13, 4) = (/ &
+        & 0.37042e-06_rb,0.23415e-03_rb,0.32674e-03_rb,0.34814e-03_rb,0.98878e-04_rb /)
+      kbo(:, 4,13, 4) = (/ &
+        & 0.35699e-06_rb,0.24607e-03_rb,0.34335e-03_rb,0.36858e-03_rb,0.10559e-03_rb /)
+      kbo(:, 5,13, 4) = (/ &
+        & 0.34439e-06_rb,0.25741e-03_rb,0.35943e-03_rb,0.38716e-03_rb,0.11262e-03_rb /)
+      kbo(:, 1,14, 4) = (/ &
+        & 0.32717e-06_rb,0.17086e-03_rb,0.24121e-03_rb,0.25001e-03_rb,0.72120e-04_rb /)
+      kbo(:, 2,14, 4) = (/ &
+        & 0.31411e-06_rb,0.18358e-03_rb,0.25599e-03_rb,0.27089e-03_rb,0.77351e-04_rb /)
+      kbo(:, 3,14, 4) = (/ &
+        & 0.30225e-06_rb,0.19456e-03_rb,0.27149e-03_rb,0.29002e-03_rb,0.82676e-04_rb /)
+      kbo(:, 4,14, 4) = (/ &
+        & 0.29132e-06_rb,0.20460e-03_rb,0.28544e-03_rb,0.30678e-03_rb,0.88331e-04_rb /)
+      kbo(:, 5,14, 4) = (/ &
+        & 0.28105e-06_rb,0.21410e-03_rb,0.29919e-03_rb,0.32271e-03_rb,0.94451e-04_rb /)
+      kbo(:, 1,15, 4) = (/ &
+        & 0.26673e-06_rb,0.14221e-03_rb,0.20048e-03_rb,0.20843e-03_rb,0.60213e-04_rb /)
+      kbo(:, 2,15, 4) = (/ &
+        & 0.25615e-06_rb,0.15268e-03_rb,0.21264e-03_rb,0.22531e-03_rb,0.64531e-04_rb /)
+      kbo(:, 3,15, 4) = (/ &
+        & 0.24652e-06_rb,0.16170e-03_rb,0.22567e-03_rb,0.24157e-03_rb,0.69102e-04_rb /)
+      kbo(:, 4,15, 4) = (/ &
+        & 0.23764e-06_rb,0.17023e-03_rb,0.23750e-03_rb,0.25543e-03_rb,0.73891e-04_rb /)
+      kbo(:, 5,15, 4) = (/ &
+        & 0.22926e-06_rb,0.17815e-03_rb,0.24912e-03_rb,0.26892e-03_rb,0.79167e-04_rb /)
+      kbo(:, 1,16, 4) = (/ &
+        & 0.21740e-06_rb,0.11824e-03_rb,0.16644e-03_rb,0.17381e-03_rb,0.50227e-04_rb /)
+      kbo(:, 2,16, 4) = (/ &
+        & 0.20884e-06_rb,0.12696e-03_rb,0.17683e-03_rb,0.18780e-03_rb,0.53903e-04_rb /)
+      kbo(:, 3,16, 4) = (/ &
+        & 0.20104e-06_rb,0.13434e-03_rb,0.18764e-03_rb,0.20094e-03_rb,0.57777e-04_rb /)
+      kbo(:, 4,16, 4) = (/ &
+        & 0.19381e-06_rb,0.14177e-03_rb,0.19757e-03_rb,0.21259e-03_rb,0.61821e-04_rb /)
+      kbo(:, 5,16, 4) = (/ &
+        & 0.18698e-06_rb,0.14828e-03_rb,0.20747e-03_rb,0.22416e-03_rb,0.66326e-04_rb /)
+      kbo(:, 1,17, 4) = (/ &
+        & 0.17724e-06_rb,0.98287e-04_rb,0.13813e-03_rb,0.14496e-03_rb,0.41851e-04_rb /)
+      kbo(:, 2,17, 4) = (/ &
+        & 0.17029e-06_rb,0.10548e-03_rb,0.14701e-03_rb,0.15636e-03_rb,0.44943e-04_rb /)
+      kbo(:, 3,17, 4) = (/ &
+        & 0.16396e-06_rb,0.11169e-03_rb,0.15605e-03_rb,0.16727e-03_rb,0.48176e-04_rb /)
+      kbo(:, 4,17, 4) = (/ &
+        & 0.15809e-06_rb,0.11795e-03_rb,0.16435e-03_rb,0.17684e-03_rb,0.51716e-04_rb /)
+      kbo(:, 5,17, 4) = (/ &
+        & 0.15251e-06_rb,0.12332e-03_rb,0.17265e-03_rb,0.18683e-03_rb,0.55480e-04_rb /)
+      kbo(:, 1,18, 4) = (/ &
+        & 0.14450e-06_rb,0.81703e-04_rb,0.11464e-03_rb,0.12079e-03_rb,0.34849e-04_rb /)
+      kbo(:, 2,18, 4) = (/ &
+        & 0.13887e-06_rb,0.87580e-04_rb,0.12224e-03_rb,0.13028e-03_rb,0.37465e-04_rb /)
+      kbo(:, 3,18, 4) = (/ &
+        & 0.13373e-06_rb,0.92869e-04_rb,0.12966e-03_rb,0.13906e-03_rb,0.40225e-04_rb /)
+      kbo(:, 4,18, 4) = (/ &
+        & 0.12896e-06_rb,0.98034e-04_rb,0.13668e-03_rb,0.14712e-03_rb,0.43227e-04_rb /)
+      kbo(:, 5,18, 4) = (/ &
+        & 0.12439e-06_rb,0.10250e-03_rb,0.14367e-03_rb,0.15557e-03_rb,0.46383e-04_rb /)
+      kbo(:, 1,19, 4) = (/ &
+        & 0.11782e-06_rb,0.67922e-04_rb,0.95121e-04_rb,0.10059e-03_rb,0.29014e-04_rb /)
+      kbo(:, 2,19, 4) = (/ &
+        & 0.11325e-06_rb,0.72759e-04_rb,0.10166e-03_rb,0.10843e-03_rb,0.31239e-04_rb /)
+      kbo(:, 3,19, 4) = (/ &
+        & 0.10909e-06_rb,0.77213e-04_rb,0.10769e-03_rb,0.11563e-03_rb,0.33594e-04_rb /)
+      kbo(:, 4,19, 4) = (/ &
+        & 0.10521e-06_rb,0.81507e-04_rb,0.11367e-03_rb,0.12244e-03_rb,0.36087e-04_rb /)
+      kbo(:, 5,19, 4) = (/ &
+        & 0.10146e-06_rb,0.85229e-04_rb,0.11951e-03_rb,0.12955e-03_rb,0.38760e-04_rb /)
+      kbo(:, 1,20, 4) = (/ &
+        & 0.96005e-07_rb,0.56539e-04_rb,0.79048e-04_rb,0.83638e-04_rb,0.24182e-04_rb /)
+      kbo(:, 2,20, 4) = (/ &
+        & 0.92311e-07_rb,0.60522e-04_rb,0.84506e-04_rb,0.90308e-04_rb,0.26052e-04_rb /)
+      kbo(:, 3,20, 4) = (/ &
+        & 0.88927e-07_rb,0.64305e-04_rb,0.89608e-04_rb,0.96229e-04_rb,0.28071e-04_rb /)
+      kbo(:, 4,20, 4) = (/ &
+        & 0.85775e-07_rb,0.67811e-04_rb,0.94659e-04_rb,0.10203e-03_rb,0.30185e-04_rb /)
+      kbo(:, 5,20, 4) = (/ &
+        & 0.82709e-07_rb,0.70967e-04_rb,0.99551e-04_rb,0.10796e-03_rb,0.32438e-04_rb /)
+      kbo(:, 1,21, 4) = (/ &
+        & 0.78225e-07_rb,0.47094e-04_rb,0.65736e-04_rb,0.69706e-04_rb,0.20168e-04_rb /)
+      kbo(:, 2,21, 4) = (/ &
+        & 0.75235e-07_rb,0.50383e-04_rb,0.70309e-04_rb,0.75210e-04_rb,0.21748e-04_rb /)
+      kbo(:, 3,21, 4) = (/ &
+        & 0.72491e-07_rb,0.53581e-04_rb,0.74579e-04_rb,0.80106e-04_rb,0.23442e-04_rb /)
+      kbo(:, 4,21, 4) = (/ &
+        & 0.69929e-07_rb,0.56448e-04_rb,0.78864e-04_rb,0.85108e-04_rb,0.25248e-04_rb /)
+      kbo(:, 5,21, 4) = (/ &
+        & 0.67419e-07_rb,0.59090e-04_rb,0.82932e-04_rb,0.89870e-04_rb,0.27098e-04_rb /)
+      kbo(:, 1,22, 4) = (/ &
+        & 0.63572e-07_rb,0.39426e-04_rb,0.54979e-04_rb,0.58443e-04_rb,0.16913e-04_rb /)
+      kbo(:, 2,22, 4) = (/ &
+        & 0.61166e-07_rb,0.42097e-04_rb,0.58779e-04_rb,0.62933e-04_rb,0.18259e-04_rb /)
+      kbo(:, 3,22, 4) = (/ &
+        & 0.58951e-07_rb,0.44794e-04_rb,0.62330e-04_rb,0.66952e-04_rb,0.19670e-04_rb /)
+      kbo(:, 4,22, 4) = (/ &
+        & 0.56872e-07_rb,0.47147e-04_rb,0.65961e-04_rb,0.71230e-04_rb,0.21221e-04_rb /)
+      kbo(:, 5,22, 4) = (/ &
+        & 0.54822e-07_rb,0.49377e-04_rb,0.69234e-04_rb,0.75038e-04_rb,0.22743e-04_rb /)
+      kbo(:, 1,23, 4) = (/ &
+        & 0.51656e-07_rb,0.32950e-04_rb,0.46052e-04_rb,0.49084e-04_rb,0.14181e-04_rb /)
+      kbo(:, 2,23, 4) = (/ &
+        & 0.49721e-07_rb,0.35250e-04_rb,0.49106e-04_rb,0.52675e-04_rb,0.15330e-04_rb /)
+      kbo(:, 3,23, 4) = (/ &
+        & 0.47930e-07_rb,0.37438e-04_rb,0.52152e-04_rb,0.56097e-04_rb,0.16532e-04_rb /)
+      kbo(:, 4,23, 4) = (/ &
+        & 0.46242e-07_rb,0.39418e-04_rb,0.55160e-04_rb,0.59674e-04_rb,0.17811e-04_rb /)
+      kbo(:, 5,23, 4) = (/ &
+        & 0.44570e-07_rb,0.41280e-04_rb,0.57899e-04_rb,0.62654e-04_rb,0.19100e-04_rb /)
+      kbo(:, 1,24, 4) = (/ &
+        & 0.41962e-07_rb,0.27608e-04_rb,0.38527e-04_rb,0.41167e-04_rb,0.11908e-04_rb /)
+      kbo(:, 2,24, 4) = (/ &
+        & 0.40405e-07_rb,0.29547e-04_rb,0.41099e-04_rb,0.44081e-04_rb,0.12880e-04_rb /)
+      kbo(:, 3,24, 4) = (/ &
+        & 0.38959e-07_rb,0.31321e-04_rb,0.43687e-04_rb,0.47051e-04_rb,0.13912e-04_rb /)
+      kbo(:, 4,24, 4) = (/ &
+        & 0.37583e-07_rb,0.32994e-04_rb,0.46190e-04_rb,0.49890e-04_rb,0.14961e-04_rb /)
+      kbo(:, 5,24, 4) = (/ &
+        & 0.36227e-07_rb,0.34560e-04_rb,0.48473e-04_rb,0.52358e-04_rb,0.16039e-04_rb /)
+      kbo(:, 1,25, 4) = (/ &
+        & 0.34075e-07_rb,0.23153e-04_rb,0.32305e-04_rb,0.34566e-04_rb,0.10014e-04_rb /)
+      kbo(:, 2,25, 4) = (/ &
+        & 0.32822e-07_rb,0.24769e-04_rb,0.34435e-04_rb,0.36968e-04_rb,0.10822e-04_rb /)
+      kbo(:, 3,25, 4) = (/ &
+        & 0.31655e-07_rb,0.26242e-04_rb,0.36635e-04_rb,0.39484e-04_rb,0.11699e-04_rb /)
+      kbo(:, 4,25, 4) = (/ &
+        & 0.30528e-07_rb,0.27624e-04_rb,0.38648e-04_rb,0.41770e-04_rb,0.12588e-04_rb /)
+      kbo(:, 5,25, 4) = (/ &
+        & 0.29434e-07_rb,0.28951e-04_rb,0.40632e-04_rb,0.43774e-04_rb,0.13479e-04_rb /)
+      kbo(:, 1,26, 4) = (/ &
+        & 0.27652e-07_rb,0.19460e-04_rb,0.27114e-04_rb,0.29052e-04_rb,0.84372e-05_rb /)
+      kbo(:, 2,26, 4) = (/ &
+        & 0.26645e-07_rb,0.20785e-04_rb,0.28933e-04_rb,0.31091e-04_rb,0.91305e-05_rb /)
+      kbo(:, 3,26, 4) = (/ &
+        & 0.25703e-07_rb,0.22018e-04_rb,0.30749e-04_rb,0.33173e-04_rb,0.98560e-05_rb /)
+      kbo(:, 4,26, 4) = (/ &
+        & 0.24780e-07_rb,0.23166e-04_rb,0.32405e-04_rb,0.34971e-04_rb,0.10593e-04_rb /)
+      kbo(:, 5,26, 4) = (/ &
+        & 0.23900e-07_rb,0.24286e-04_rb,0.34048e-04_rb,0.36663e-04_rb,0.11346e-04_rb /)
+      kbo(:, 1,27, 4) = (/ &
+        & 0.22439e-07_rb,0.16370e-04_rb,0.22763e-04_rb,0.24397e-04_rb,0.71084e-05_rb /)
+      kbo(:, 2,27, 4) = (/ &
+        & 0.21628e-07_rb,0.17461e-04_rb,0.24318e-04_rb,0.26140e-04_rb,0.76961e-05_rb /)
+      kbo(:, 3,27, 4) = (/ &
+        & 0.20865e-07_rb,0.18493e-04_rb,0.25826e-04_rb,0.27824e-04_rb,0.83080e-05_rb /)
+      kbo(:, 4,27, 4) = (/ &
+        & 0.20113e-07_rb,0.19452e-04_rb,0.27215e-04_rb,0.29287e-04_rb,0.89207e-05_rb /)
+      kbo(:, 5,27, 4) = (/ &
+        & 0.19405e-07_rb,0.20376e-04_rb,0.28543e-04_rb,0.30710e-04_rb,0.95477e-05_rb /)
+      kbo(:, 1,28, 4) = (/ &
+        & 0.18208e-07_rb,0.13777e-04_rb,0.19138e-04_rb,0.20524e-04_rb,0.59952e-05_rb /)
+      kbo(:, 2,28, 4) = (/ &
+        & 0.17555e-07_rb,0.14679e-04_rb,0.20448e-04_rb,0.21996e-04_rb,0.64907e-05_rb /)
+      kbo(:, 3,28, 4) = (/ &
+        & 0.16936e-07_rb,0.15522e-04_rb,0.21661e-04_rb,0.23357e-04_rb,0.69966e-05_rb /)
+      kbo(:, 4,28, 4) = (/ &
+        & 0.16325e-07_rb,0.16334e-04_rb,0.22846e-04_rb,0.24537e-04_rb,0.75124e-05_rb /)
+      kbo(:, 5,28, 4) = (/ &
+        & 0.15755e-07_rb,0.17088e-04_rb,0.23931e-04_rb,0.25722e-04_rb,0.80305e-05_rb /)
+      kbo(:, 1,29, 4) = (/ &
+        & 0.14772e-07_rb,0.11598e-04_rb,0.16117e-04_rb,0.17294e-04_rb,0.50602e-05_rb /)
+      kbo(:, 2,29, 4) = (/ &
+        & 0.14246e-07_rb,0.12346e-04_rb,0.17198e-04_rb,0.18521e-04_rb,0.54799e-05_rb /)
+      kbo(:, 3,29, 4) = (/ &
+        & 0.13739e-07_rb,0.13047e-04_rb,0.18205e-04_rb,0.19566e-04_rb,0.58992e-05_rb /)
+      kbo(:, 4,29, 4) = (/ &
+        & 0.13247e-07_rb,0.13729e-04_rb,0.19173e-04_rb,0.20574e-04_rb,0.63251e-05_rb /)
+      kbo(:, 5,29, 4) = (/ &
+        & 0.12789e-07_rb,0.14341e-04_rb,0.20068e-04_rb,0.21536e-04_rb,0.67496e-05_rb /)
+      kbo(:, 1,30, 4) = (/ &
+        & 0.11984e-07_rb,0.97679e-05_rb,0.13568e-04_rb,0.14565e-04_rb,0.42721e-05_rb /)
+      kbo(:, 2,30, 4) = (/ &
+        & 0.11560e-07_rb,0.10389e-04_rb,0.14461e-04_rb,0.15560e-04_rb,0.46182e-05_rb /)
+      kbo(:, 3,30, 4) = (/ &
+        & 0.11144e-07_rb,0.10973e-04_rb,0.15302e-04_rb,0.16410e-04_rb,0.49715e-05_rb /)
+      kbo(:, 4,30, 4) = (/ &
+        & 0.10750e-07_rb,0.11532e-04_rb,0.16091e-04_rb,0.17244e-04_rb,0.53212e-05_rb /)
+      kbo(:, 5,30, 4) = (/ &
+        & 0.10381e-07_rb,0.12034e-04_rb,0.16821e-04_rb,0.18023e-04_rb,0.56712e-05_rb /)
+      kbo(:, 1,31, 4) = (/ &
+        & 0.97205e-08_rb,0.82296e-05_rb,0.11440e-04_rb,0.12288e-04_rb,0.36079e-05_rb /)
+      kbo(:, 2,31, 4) = (/ &
+        & 0.93777e-08_rb,0.87431e-05_rb,0.12158e-04_rb,0.13067e-04_rb,0.38974e-05_rb /)
+      kbo(:, 3,31, 4) = (/ &
+        & 0.90391e-08_rb,0.92300e-05_rb,0.12862e-04_rb,0.13769e-04_rb,0.41885e-05_rb /)
+      kbo(:, 4,31, 4) = (/ &
+        & 0.87219e-08_rb,0.96854e-05_rb,0.13508e-04_rb,0.14454e-04_rb,0.44756e-05_rb /)
+      kbo(:, 5,31, 4) = (/ &
+        & 0.84251e-08_rb,0.10101e-04_rb,0.14090e-04_rb,0.15064e-04_rb,0.47643e-05_rb /)
+      kbo(:, 1,32, 4) = (/ &
+        & 0.78842e-08_rb,0.69379e-05_rb,0.96378e-05_rb,0.10350e-04_rb,0.30462e-05_rb /)
+      kbo(:, 2,32, 4) = (/ &
+        & 0.76058e-08_rb,0.73605e-05_rb,0.10230e-04_rb,0.10964e-04_rb,0.32879e-05_rb /)
+      kbo(:, 3,32, 4) = (/ &
+        & 0.73312e-08_rb,0.77685e-05_rb,0.10806e-04_rb,0.11552e-04_rb,0.35258e-05_rb /)
+      kbo(:, 4,32, 4) = (/ &
+        & 0.70761e-08_rb,0.81393e-05_rb,0.11329e-04_rb,0.12109e-04_rb,0.37642e-05_rb /)
+      kbo(:, 5,32, 4) = (/ &
+        & 0.68375e-08_rb,0.84723e-05_rb,0.11806e-04_rb,0.12582e-04_rb,0.40027e-05_rb /)
+      kbo(:, 1,33, 4) = (/ &
+        & 0.63946e-08_rb,0.58484e-05_rb,0.81132e-05_rb,0.87138e-05_rb,0.25722e-05_rb /)
+      kbo(:, 2,33, 4) = (/ &
+        & 0.61668e-08_rb,0.61985e-05_rb,0.86152e-05_rb,0.92043e-05_rb,0.27716e-05_rb /)
+      kbo(:, 3,33, 4) = (/ &
+        & 0.59460e-08_rb,0.65329e-05_rb,0.90761e-05_rb,0.96914e-05_rb,0.29672e-05_rb /)
+      kbo(:, 4,33, 4) = (/ &
+        & 0.57410e-08_rb,0.68349e-05_rb,0.94991e-05_rb,0.10128e-04_rb,0.31649e-05_rb /)
+      kbo(:, 5,33, 4) = (/ &
+        & 0.55490e-08_rb,0.71098e-05_rb,0.98972e-05_rb,0.10494e-04_rb,0.33613e-05_rb /)
+      kbo(:, 1,34, 4) = (/ &
+        & 0.51931e-08_rb,0.49155e-05_rb,0.68122e-05_rb,0.73003e-05_rb,0.21648e-05_rb /)
+      kbo(:, 2,34, 4) = (/ &
+        & 0.50066e-08_rb,0.52108e-05_rb,0.72299e-05_rb,0.77128e-05_rb,0.23280e-05_rb /)
+      kbo(:, 3,34, 4) = (/ &
+        & 0.48289e-08_rb,0.54838e-05_rb,0.76076e-05_rb,0.81077e-05_rb,0.24906e-05_rb /)
+      kbo(:, 4,34, 4) = (/ &
+        & 0.46636e-08_rb,0.57271e-05_rb,0.79460e-05_rb,0.84494e-05_rb,0.26534e-05_rb /)
+      kbo(:, 5,34, 4) = (/ &
+        & 0.45089e-08_rb,0.59543e-05_rb,0.82751e-05_rb,0.87422e-05_rb,0.28159e-05_rb /)
+      kbo(:, 1,35, 4) = (/ &
+        & 0.42177e-08_rb,0.41104e-05_rb,0.56914e-05_rb,0.60852e-05_rb,0.18078e-05_rb /)
+      kbo(:, 2,35, 4) = (/ &
+        & 0.40795e-08_rb,0.43580e-05_rb,0.60334e-05_rb,0.64274e-05_rb,0.19421e-05_rb /)
+      kbo(:, 3,35, 4) = (/ &
+        & 0.39353e-08_rb,0.45814e-05_rb,0.63407e-05_rb,0.67443e-05_rb,0.20767e-05_rb /)
+      kbo(:, 4,35, 4) = (/ &
+        & 0.38012e-08_rb,0.47803e-05_rb,0.66196e-05_rb,0.70144e-05_rb,0.22114e-05_rb /)
+      kbo(:, 5,35, 4) = (/ &
+        & 0.36756e-08_rb,0.49682e-05_rb,0.68884e-05_rb,0.72539e-05_rb,0.23458e-05_rb /)
+      kbo(:, 1,36, 4) = (/ &
+        & 0.34162e-08_rb,0.34141e-05_rb,0.47224e-05_rb,0.50412e-05_rb,0.14965e-05_rb /)
+      kbo(:, 2,36, 4) = (/ &
+        & 0.33196e-08_rb,0.36215e-05_rb,0.50037e-05_rb,0.53241e-05_rb,0.16078e-05_rb /)
+      kbo(:, 3,36, 4) = (/ &
+        & 0.32195e-08_rb,0.38064e-05_rb,0.52583e-05_rb,0.55817e-05_rb,0.17188e-05_rb /)
+      kbo(:, 4,36, 4) = (/ &
+        & 0.31099e-08_rb,0.39715e-05_rb,0.54881e-05_rb,0.58006e-05_rb,0.18307e-05_rb /)
+      kbo(:, 5,36, 4) = (/ &
+        & 0.30072e-08_rb,0.41270e-05_rb,0.57065e-05_rb,0.59974e-05_rb,0.19419e-05_rb /)
+      kbo(:, 1,37, 4) = (/ &
+        & 0.28008e-08_rb,0.28094e-05_rb,0.38801e-05_rb,0.41393e-05_rb,0.12248e-05_rb /)
+      kbo(:, 2,37, 4) = (/ &
+        & 0.27121e-08_rb,0.29836e-05_rb,0.41155e-05_rb,0.43748e-05_rb,0.13168e-05_rb /)
+      kbo(:, 3,37, 4) = (/ &
+        & 0.26482e-08_rb,0.31397e-05_rb,0.43282e-05_rb,0.45885e-05_rb,0.14087e-05_rb /)
+      kbo(:, 4,37, 4) = (/ &
+        & 0.25576e-08_rb,0.32779e-05_rb,0.45200e-05_rb,0.47706e-05_rb,0.15013e-05_rb /)
+      kbo(:, 5,37, 4) = (/ &
+        & 0.24727e-08_rb,0.34082e-05_rb,0.47023e-05_rb,0.49354e-05_rb,0.15935e-05_rb /)
+      kbo(:, 1,38, 4) = (/ &
+        & 0.22984e-08_rb,0.23106e-05_rb,0.31856e-05_rb,0.33961e-05_rb,0.10016e-05_rb /)
+      kbo(:, 2,38, 4) = (/ &
+        & 0.22220e-08_rb,0.24563e-05_rb,0.33826e-05_rb,0.35915e-05_rb,0.10776e-05_rb /)
+      kbo(:, 3,38, 4) = (/ &
+        & 0.21588e-08_rb,0.25882e-05_rb,0.35600e-05_rb,0.37696e-05_rb,0.11538e-05_rb /)
+      kbo(:, 4,38, 4) = (/ &
+        & 0.21040e-08_rb,0.27033e-05_rb,0.37199e-05_rb,0.39213e-05_rb,0.12304e-05_rb /)
+      kbo(:, 5,38, 4) = (/ &
+        & 0.20339e-08_rb,0.28122e-05_rb,0.38728e-05_rb,0.40597e-05_rb,0.13067e-05_rb /)
+      kbo(:, 1,39, 4) = (/ &
+        & 0.18867e-08_rb,0.18990e-05_rb,0.26147e-05_rb,0.27855e-05_rb,0.81895e-06_rb /)
+      kbo(:, 2,39, 4) = (/ &
+        & 0.18219e-08_rb,0.20211e-05_rb,0.27789e-05_rb,0.29482e-05_rb,0.88168e-06_rb /)
+      kbo(:, 3,39, 4) = (/ &
+        & 0.17671e-08_rb,0.21324e-05_rb,0.29272e-05_rb,0.30962e-05_rb,0.94475e-06_rb /)
+      kbo(:, 4,39, 4) = (/ &
+        & 0.17201e-08_rb,0.22287e-05_rb,0.30607e-05_rb,0.32231e-05_rb,0.10080e-05_rb /)
+      kbo(:, 5,39, 4) = (/ &
+        & 0.16729e-08_rb,0.23197e-05_rb,0.31885e-05_rb,0.33389e-05_rb,0.10713e-05_rb /)
+      kbo(:, 1,40, 4) = (/ &
+        & 0.15567e-08_rb,0.15486e-05_rb,0.21299e-05_rb,0.22697e-05_rb,0.66418e-06_rb /)
+      kbo(:, 2,40, 4) = (/ &
+        & 0.15030e-08_rb,0.16525e-05_rb,0.22686e-05_rb,0.24063e-05_rb,0.71591e-06_rb /)
+      kbo(:, 3,40, 4) = (/ &
+        & 0.14559e-08_rb,0.17468e-05_rb,0.23938e-05_rb,0.25304e-05_rb,0.76804e-06_rb /)
+      kbo(:, 4,40, 4) = (/ &
+        & 0.14147e-08_rb,0.18284e-05_rb,0.25062e-05_rb,0.26377e-05_rb,0.82053e-06_rb /)
+      kbo(:, 5,40, 4) = (/ &
+        & 0.13808e-08_rb,0.19051e-05_rb,0.26142e-05_rb,0.27362e-05_rb,0.87282e-06_rb /)
+      kbo(:, 1,41, 4) = (/ &
+        & 0.12855e-08_rb,0.12622e-05_rb,0.17326e-05_rb,0.18472e-05_rb,0.53778e-06_rb /)
+      kbo(:, 2,41, 4) = (/ &
+        & 0.12414e-08_rb,0.13486e-05_rb,0.18494e-05_rb,0.19612e-05_rb,0.58062e-06_rb /)
+      kbo(:, 3,41, 4) = (/ &
+        & 0.12006e-08_rb,0.14290e-05_rb,0.19551e-05_rb,0.20665e-05_rb,0.62365e-06_rb /)
+      kbo(:, 4,41, 4) = (/ &
+        & 0.11655e-08_rb,0.14984e-05_rb,0.20506e-05_rb,0.21570e-05_rb,0.66707e-06_rb /)
+      kbo(:, 5,41, 4) = (/ &
+        & 0.11366e-08_rb,0.15630e-05_rb,0.21416e-05_rb,0.22404e-05_rb,0.71035e-06_rb /)
+      kbo(:, 1,42, 4) = (/ &
+        & 0.10616e-08_rb,0.10273e-05_rb,0.14085e-05_rb,0.15034e-05_rb,0.43514e-06_rb /)
+      kbo(:, 2,42, 4) = (/ &
+        & 0.10250e-08_rb,0.10997e-05_rb,0.15070e-05_rb,0.15973e-05_rb,0.47061e-06_rb /)
+      kbo(:, 3,42, 4) = (/ &
+        & 0.99030e-09_rb,0.11679e-05_rb,0.15953e-05_rb,0.16861e-05_rb,0.50613e-06_rb /)
+      kbo(:, 4,42, 4) = (/ &
+        & 0.96062e-09_rb,0.12272e-05_rb,0.16766e-05_rb,0.17642e-05_rb,0.54216e-06_rb /)
+      kbo(:, 5,42, 4) = (/ &
+        & 0.93443e-09_rb,0.12817e-05_rb,0.17529e-05_rb,0.18333e-05_rb,0.57784e-06_rb /)
+      kbo(:, 1,43, 4) = (/ &
+        & 0.87883e-09_rb,0.83199e-06_rb,0.11402e-05_rb,0.12168e-05_rb,0.35025e-06_rb /)
+      kbo(:, 2,43, 4) = (/ &
+        & 0.84829e-09_rb,0.89254e-06_rb,0.12225e-05_rb,0.12958e-05_rb,0.37960e-06_rb /)
+      kbo(:, 3,43, 4) = (/ &
+        & 0.81903e-09_rb,0.95072e-06_rb,0.12966e-05_rb,0.13708e-05_rb,0.40893e-06_rb /)
+      kbo(:, 4,43, 4) = (/ &
+        & 0.79369e-09_rb,0.10020e-05_rb,0.13665e-05_rb,0.14379e-05_rb,0.43862e-06_rb /)
+      kbo(:, 5,43, 4) = (/ &
+        & 0.77108e-09_rb,0.10478e-05_rb,0.14302e-05_rb,0.14962e-05_rb,0.46817e-06_rb /)
+      kbo(:, 1,44, 4) = (/ &
+        & 0.72838e-09_rb,0.67080e-06_rb,0.91962e-06_rb,0.98102e-06_rb,0.28107e-06_rb /)
+      kbo(:, 2,44, 4) = (/ &
+        & 0.70279e-09_rb,0.72271e-06_rb,0.98853e-06_rb,0.10491e-05_rb,0.30540e-06_rb /)
+      kbo(:, 3,44, 4) = (/ &
+        & 0.67858e-09_rb,0.77203e-06_rb,0.10522e-05_rb,0.11122e-05_rb,0.32958e-06_rb /)
+      kbo(:, 4,44, 4) = (/ &
+        & 0.65651e-09_rb,0.81625e-06_rb,0.11115e-05_rb,0.11697e-05_rb,0.35407e-06_rb /)
+      kbo(:, 5,44, 4) = (/ &
+        & 0.63727e-09_rb,0.85495e-06_rb,0.11651e-05_rb,0.12192e-05_rb,0.37850e-06_rb /)
+      kbo(:, 1,45, 4) = (/ &
+        & 0.60379e-09_rb,0.54047e-06_rb,0.74128e-06_rb,0.79100e-06_rb,0.22535e-06_rb /)
+      kbo(:, 2,45, 4) = (/ &
+        & 0.58228e-09_rb,0.58429e-06_rb,0.79854e-06_rb,0.84841e-06_rb,0.24548e-06_rb /)
+      kbo(:, 3,45, 4) = (/ &
+        & 0.56220e-09_rb,0.62606e-06_rb,0.85283e-06_rb,0.90157e-06_rb,0.26541e-06_rb /)
+      kbo(:, 4,45, 4) = (/ &
+        & 0.54320e-09_rb,0.66423e-06_rb,0.90296e-06_rb,0.95015e-06_rb,0.28558e-06_rb /)
+      kbo(:, 5,45, 4) = (/ &
+        & 0.52686e-09_rb,0.69719e-06_rb,0.94830e-06_rb,0.99254e-06_rb,0.30580e-06_rb /)
+      kbo(:, 1,46, 4) = (/ &
+        & 0.50108e-09_rb,0.43361e-06_rb,0.59554e-06_rb,0.63432e-06_rb,0.18023e-06_rb /)
+      kbo(:, 2,46, 4) = (/ &
+        & 0.48291e-09_rb,0.47127e-06_rb,0.64349e-06_rb,0.68510e-06_rb,0.19677e-06_rb /)
+      kbo(:, 3,46, 4) = (/ &
+        & 0.46612e-09_rb,0.50621e-06_rb,0.68942e-06_rb,0.72929e-06_rb,0.21325e-06_rb /)
+      kbo(:, 4,46, 4) = (/ &
+        & 0.45004e-09_rb,0.53903e-06_rb,0.73169e-06_rb,0.77095e-06_rb,0.22986e-06_rb /)
+      kbo(:, 5,46, 4) = (/ &
+        & 0.43600e-09_rb,0.56740e-06_rb,0.77081e-06_rb,0.80714e-06_rb,0.24654e-06_rb /)
+      kbo(:, 1,47, 4) = (/ &
+        & 0.41665e-09_rb,0.34614e-06_rb,0.47565e-06_rb,0.50598e-06_rb,0.14345e-06_rb /)
+      kbo(:, 2,47, 4) = (/ &
+        & 0.40119e-09_rb,0.37779e-06_rb,0.51642e-06_rb,0.55015e-06_rb,0.15697e-06_rb /)
+      kbo(:, 3,47, 4) = (/ &
+        & 0.38702e-09_rb,0.40752e-06_rb,0.55525e-06_rb,0.58759e-06_rb,0.17064e-06_rb /)
+      kbo(:, 4,47, 4) = (/ &
+        & 0.37372e-09_rb,0.43563e-06_rb,0.59076e-06_rb,0.62318e-06_rb,0.18430e-06_rb /)
+      kbo(:, 5,47, 4) = (/ &
+        & 0.36139e-09_rb,0.46041e-06_rb,0.62474e-06_rb,0.65515e-06_rb,0.19800e-06_rb /)
+      kbo(:, 1,48, 4) = (/ &
+        & 0.34658e-09_rb,0.27494e-06_rb,0.37924e-06_rb,0.40349e-06_rb,0.11407e-06_rb /)
+      kbo(:, 2,48, 4) = (/ &
+        & 0.33340e-09_rb,0.30243e-06_rb,0.41340e-06_rb,0.44066e-06_rb,0.12508e-06_rb /)
+      kbo(:, 3,48, 4) = (/ &
+        & 0.32143e-09_rb,0.32756e-06_rb,0.44635e-06_rb,0.47308e-06_rb,0.13636e-06_rb /)
+      kbo(:, 4,48, 4) = (/ &
+        & 0.31032e-09_rb,0.35149e-06_rb,0.47669e-06_rb,0.50309e-06_rb,0.14763e-06_rb /)
+      kbo(:, 5,48, 4) = (/ &
+        & 0.29969e-09_rb,0.37323e-06_rb,0.50542e-06_rb,0.53062e-06_rb,0.15892e-06_rb /)
+      kbo(:, 1,49, 4) = (/ &
+        & 0.28846e-09_rb,0.21778e-06_rb,0.30168e-06_rb,0.32158e-06_rb,0.90607e-07_rb /)
+      kbo(:, 2,49, 4) = (/ &
+        & 0.27716e-09_rb,0.24139e-06_rb,0.33071e-06_rb,0.35214e-06_rb,0.99577e-07_rb /)
+      kbo(:, 3,49, 4) = (/ &
+        & 0.26700e-09_rb,0.26304e-06_rb,0.35804e-06_rb,0.38049e-06_rb,0.10881e-06_rb /)
+      kbo(:, 4,49, 4) = (/ &
+        & 0.25767e-09_rb,0.28313e-06_rb,0.38394e-06_rb,0.40566e-06_rb,0.11814e-06_rb /)
+      kbo(:, 5,49, 4) = (/ &
+        & 0.24875e-09_rb,0.30183e-06_rb,0.40832e-06_rb,0.42906e-06_rb,0.12742e-06_rb /)
+      kbo(:, 1,50, 4) = (/ &
+        & 0.23994e-09_rb,0.17276e-06_rb,0.24039e-06_rb,0.25644e-06_rb,0.72124e-07_rb /)
+      kbo(:, 2,50, 4) = (/ &
+        & 0.23028e-09_rb,0.19275e-06_rb,0.26429e-06_rb,0.28117e-06_rb,0.79388e-07_rb /)
+      kbo(:, 3,50, 4) = (/ &
+        & 0.22162e-09_rb,0.21106e-06_rb,0.28758e-06_rb,0.30606e-06_rb,0.86922e-07_rb /)
+      kbo(:, 4,50, 4) = (/ &
+        & 0.21377e-09_rb,0.22807e-06_rb,0.30947e-06_rb,0.32714e-06_rb,0.94628e-07_rb /)
+      kbo(:, 5,50, 4) = (/ &
+        & 0.20641e-09_rb,0.24400e-06_rb,0.32962e-06_rb,0.34715e-06_rb,0.10228e-06_rb /)
+      kbo(:, 1,51, 4) = (/ &
+        & 0.19960e-09_rb,0.13709e-06_rb,0.19101e-06_rb,0.20407e-06_rb,0.57566e-07_rb /)
+      kbo(:, 2,51, 4) = (/ &
+        & 0.19132e-09_rb,0.15352e-06_rb,0.21120e-06_rb,0.22455e-06_rb,0.63308e-07_rb /)
+      kbo(:, 3,51, 4) = (/ &
+        & 0.18395e-09_rb,0.16924e-06_rb,0.23068e-06_rb,0.24563e-06_rb,0.69421e-07_rb /)
+      kbo(:, 4,51, 4) = (/ &
+        & 0.17732e-09_rb,0.18352e-06_rb,0.24926e-06_rb,0.26383e-06_rb,0.75773e-07_rb /)
+      kbo(:, 5,51, 4) = (/ &
+        & 0.17117e-09_rb,0.19715e-06_rb,0.26630e-06_rb,0.28068e-06_rb,0.82097e-07_rb /)
+      kbo(:, 1,52, 4) = (/ &
+        & 0.16616e-09_rb,0.10852e-06_rb,0.15191e-06_rb,0.16137e-06_rb,0.45975e-07_rb /)
+      kbo(:, 2,52, 4) = (/ &
+        & 0.15901e-09_rb,0.12188e-06_rb,0.16855e-06_rb,0.17943e-06_rb,0.50454e-07_rb /)
+      kbo(:, 3,52, 4) = (/ &
+        & 0.15272e-09_rb,0.13535e-06_rb,0.18502e-06_rb,0.19705e-06_rb,0.55424e-07_rb /)
+      kbo(:, 4,52, 4) = (/ &
+        & 0.14711e-09_rb,0.14765e-06_rb,0.20042e-06_rb,0.21252e-06_rb,0.60616e-07_rb /)
+      kbo(:, 5,52, 4) = (/ &
+        & 0.14194e-09_rb,0.15907e-06_rb,0.21484e-06_rb,0.22673e-06_rb,0.65826e-07_rb /)
+      kbo(:, 1,53, 4) = (/ &
+        & 0.13839e-09_rb,0.85704e-07_rb,0.12023e-06_rb,0.12744e-06_rb,0.36523e-07_rb /)
+      kbo(:, 2,53, 4) = (/ &
+        & 0.13223e-09_rb,0.96600e-07_rb,0.13438e-06_rb,0.14312e-06_rb,0.40152e-07_rb /)
+      kbo(:, 3,53, 4) = (/ &
+        & 0.12684e-09_rb,0.10804e-06_rb,0.14784e-06_rb,0.15735e-06_rb,0.44207e-07_rb /)
+      kbo(:, 4,53, 4) = (/ &
+        & 0.12208e-09_rb,0.11851e-06_rb,0.16093e-06_rb,0.17108e-06_rb,0.48435e-07_rb /)
+      kbo(:, 5,53, 4) = (/ &
+        & 0.11772e-09_rb,0.12811e-06_rb,0.17313e-06_rb,0.18293e-06_rb,0.52733e-07_rb /)
+      kbo(:, 1,54, 4) = (/ &
+        & 0.11516e-09_rb,0.67802e-07_rb,0.95400e-07_rb,0.10065e-06_rb,0.29040e-07_rb /)
+      kbo(:, 2,54, 4) = (/ &
+        & 0.10986e-09_rb,0.76927e-07_rb,0.10712e-06_rb,0.11428e-06_rb,0.32044e-07_rb /)
+      kbo(:, 3,54, 4) = (/ &
+        & 0.10526e-09_rb,0.86295e-07_rb,0.11833e-06_rb,0.12580e-06_rb,0.35335e-07_rb /)
+      kbo(:, 4,54, 4) = (/ &
+        & 0.10122e-09_rb,0.95190e-07_rb,0.12936e-06_rb,0.13763e-06_rb,0.38764e-07_rb /)
+      kbo(:, 5,54, 4) = (/ &
+        & 0.97545e-10_rb,0.10324e-06_rb,0.13969e-06_rb,0.14768e-06_rb,0.42312e-07_rb /)
+      kbo(:, 1,55, 4) = (/ &
+        & 0.95832e-10_rb,0.53610e-07_rb,0.75981e-07_rb,0.79667e-07_rb,0.23117e-07_rb /)
+      kbo(:, 2,55, 4) = (/ &
+        & 0.91281e-10_rb,0.61130e-07_rb,0.85329e-07_rb,0.91005e-07_rb,0.25657e-07_rb /)
+      kbo(:, 3,55, 4) = (/ &
+        & 0.87335e-10_rb,0.68825e-07_rb,0.94736e-07_rb,0.10075e-06_rb,0.28264e-07_rb /)
+      kbo(:, 4,55, 4) = (/ &
+        & 0.83897e-10_rb,0.76435e-07_rb,0.10396e-06_rb,0.11070e-06_rb,0.31057e-07_rb /)
+      kbo(:, 5,55, 4) = (/ &
+        & 0.80810e-10_rb,0.83278e-07_rb,0.11269e-06_rb,0.11928e-06_rb,0.33972e-07_rb /)
+      kbo(:, 1,56, 4) = (/ &
+        & 0.79810e-10_rb,0.42322e-07_rb,0.60374e-07_rb,0.62926e-07_rb,0.18404e-07_rb /)
+      kbo(:, 2,56, 4) = (/ &
+        & 0.75864e-10_rb,0.48559e-07_rb,0.68039e-07_rb,0.72241e-07_rb,0.20548e-07_rb /)
+      kbo(:, 3,56, 4) = (/ &
+        & 0.72485e-10_rb,0.54773e-07_rb,0.75799e-07_rb,0.80757e-07_rb,0.22581e-07_rb /)
+      kbo(:, 4,56, 4) = (/ &
+        & 0.69560e-10_rb,0.61224e-07_rb,0.83554e-07_rb,0.88967e-07_rb,0.24859e-07_rb /)
+      kbo(:, 5,56, 4) = (/ &
+        & 0.66951e-10_rb,0.67084e-07_rb,0.90797e-07_rb,0.96246e-07_rb,0.27245e-07_rb /)
+      kbo(:, 1,57, 4) = (/ &
+        & 0.66524e-10_rb,0.33320e-07_rb,0.47516e-07_rb,0.49541e-07_rb,0.14620e-07_rb /)
+      kbo(:, 2,57, 4) = (/ &
+        & 0.63081e-10_rb,0.38443e-07_rb,0.54027e-07_rb,0.57142e-07_rb,0.16370e-07_rb /)
+      kbo(:, 3,57, 4) = (/ &
+        & 0.60187e-10_rb,0.43587e-07_rb,0.60611e-07_rb,0.64608e-07_rb,0.18036e-07_rb /)
+      kbo(:, 4,57, 4) = (/ &
+        & 0.57689e-10_rb,0.48970e-07_rb,0.66915e-07_rb,0.71233e-07_rb,0.19895e-07_rb /)
+      kbo(:, 5,57, 4) = (/ &
+        & 0.55478e-10_rb,0.53925e-07_rb,0.73045e-07_rb,0.77618e-07_rb,0.21831e-07_rb /)
+      kbo(:, 1,58, 4) = (/ &
+        & 0.55447e-10_rb,0.26240e-07_rb,0.37435e-07_rb,0.38989e-07_rb,0.11606e-07_rb /)
+      kbo(:, 2,58, 4) = (/ &
+        & 0.52442e-10_rb,0.30460e-07_rb,0.42955e-07_rb,0.45233e-07_rb,0.13047e-07_rb /)
+      kbo(:, 3,58, 4) = (/ &
+        & 0.49962e-10_rb,0.34761e-07_rb,0.48418e-07_rb,0.51680e-07_rb,0.14431e-07_rb /)
+      kbo(:, 4,58, 4) = (/ &
+        & 0.47826e-10_rb,0.39152e-07_rb,0.53626e-07_rb,0.57047e-07_rb,0.15934e-07_rb /)
+      kbo(:, 5,58, 4) = (/ &
+        & 0.45954e-10_rb,0.43380e-07_rb,0.58786e-07_rb,0.62538e-07_rb,0.17511e-07_rb /)
+      kbo(:, 1,59, 4) = (/ &
+        & 0.45740e-10_rb,0.21248e-07_rb,0.30261e-07_rb,0.31577e-07_rb,0.94221e-08_rb /)
+      kbo(:, 2,59, 4) = (/ &
+        & 0.43210e-10_rb,0.24730e-07_rb,0.34948e-07_rb,0.36722e-07_rb,0.10608e-07_rb /)
+      kbo(:, 3,59, 4) = (/ &
+        & 0.41141e-10_rb,0.28288e-07_rb,0.39410e-07_rb,0.42052e-07_rb,0.11754e-07_rb /)
+      kbo(:, 4,59, 4) = (/ &
+        & 0.39361e-10_rb,0.31904e-07_rb,0.43740e-07_rb,0.46527e-07_rb,0.12986e-07_rb /)
+      kbo(:, 5,59, 4) = (/ &
+        & 0.37805e-10_rb,0.35442e-07_rb,0.48020e-07_rb,0.51083e-07_rb,0.14278e-07_rb /)
+      kbo(:, 1,13, 5) = (/ &
+        & 0.79045e-05_rb,0.58512e-03_rb,0.80967e-03_rb,0.88578e-03_rb,0.34824e-03_rb /)
+      kbo(:, 2,13, 5) = (/ &
+        & 0.92807e-05_rb,0.61818e-03_rb,0.86083e-03_rb,0.92437e-03_rb,0.37870e-03_rb /)
+      kbo(:, 3,13, 5) = (/ &
+        & 0.10620e-04_rb,0.65025e-03_rb,0.90617e-03_rb,0.96290e-03_rb,0.40639e-03_rb /)
+      kbo(:, 4,13, 5) = (/ &
+        & 0.11847e-04_rb,0.68086e-03_rb,0.94767e-03_rb,0.99815e-03_rb,0.43149e-03_rb /)
+      kbo(:, 5,13, 5) = (/ &
+        & 0.12897e-04_rb,0.70941e-03_rb,0.98426e-03_rb,0.10296e-02_rb,0.45459e-03_rb /)
+      kbo(:, 1,14, 5) = (/ &
+        & 0.65683e-05_rb,0.48798e-03_rb,0.67570e-03_rb,0.73755e-03_rb,0.29172e-03_rb /)
+      kbo(:, 2,14, 5) = (/ &
+        & 0.76957e-05_rb,0.51555e-03_rb,0.71856e-03_rb,0.76978e-03_rb,0.31709e-03_rb /)
+      kbo(:, 3,14, 5) = (/ &
+        & 0.87852e-05_rb,0.54243e-03_rb,0.75604e-03_rb,0.80142e-03_rb,0.34064e-03_rb /)
+      kbo(:, 4,14, 5) = (/ &
+        & 0.97622e-05_rb,0.56817e-03_rb,0.79038e-03_rb,0.83091e-03_rb,0.36095e-03_rb /)
+      kbo(:, 5,14, 5) = (/ &
+        & 0.10614e-04_rb,0.59208e-03_rb,0.82018e-03_rb,0.85691e-03_rb,0.38095e-03_rb /)
+      kbo(:, 1,15, 5) = (/ &
+        & 0.54643e-05_rb,0.40660e-03_rb,0.56371e-03_rb,0.61286e-03_rb,0.24435e-03_rb /)
+      kbo(:, 2,15, 5) = (/ &
+        & 0.63883e-05_rb,0.42973e-03_rb,0.59914e-03_rb,0.64093e-03_rb,0.26475e-03_rb /)
+      kbo(:, 3,15, 5) = (/ &
+        & 0.72593e-05_rb,0.45218e-03_rb,0.63004e-03_rb,0.66659e-03_rb,0.28486e-03_rb /)
+      kbo(:, 4,15, 5) = (/ &
+        & 0.80526e-05_rb,0.47373e-03_rb,0.65847e-03_rb,0.69128e-03_rb,0.30200e-03_rb /)
+      kbo(:, 5,15, 5) = (/ &
+        & 0.87364e-05_rb,0.49393e-03_rb,0.68318e-03_rb,0.71321e-03_rb,0.31930e-03_rb /)
+      kbo(:, 1,16, 5) = (/ &
+        & 0.45482e-05_rb,0.33872e-03_rb,0.47003e-03_rb,0.50920e-03_rb,0.20473e-03_rb /)
+      kbo(:, 2,16, 5) = (/ &
+        & 0.52893e-05_rb,0.35785e-03_rb,0.49898e-03_rb,0.53306e-03_rb,0.22171e-03_rb /)
+      kbo(:, 3,16, 5) = (/ &
+        & 0.59989e-05_rb,0.37673e-03_rb,0.52467e-03_rb,0.55461e-03_rb,0.23803e-03_rb /)
+      kbo(:, 4,16, 5) = (/ &
+        & 0.66426e-05_rb,0.39470e-03_rb,0.54827e-03_rb,0.57515e-03_rb,0.25244e-03_rb /)
+      kbo(:, 5,16, 5) = (/ &
+        & 0.71759e-05_rb,0.41193e-03_rb,0.56909e-03_rb,0.59361e-03_rb,0.26773e-03_rb /)
+      kbo(:, 1,17, 5) = (/ &
+        & 0.37690e-05_rb,0.28177e-03_rb,0.39153e-03_rb,0.42265e-03_rb,0.17155e-03_rb /)
+      kbo(:, 2,17, 5) = (/ &
+        & 0.43790e-05_rb,0.29778e-03_rb,0.41535e-03_rb,0.44288e-03_rb,0.18563e-03_rb /)
+      kbo(:, 3,17, 5) = (/ &
+        & 0.49545e-05_rb,0.31371e-03_rb,0.43664e-03_rb,0.46090e-03_rb,0.19908e-03_rb /)
+      kbo(:, 4,17, 5) = (/ &
+        & 0.54563e-05_rb,0.32886e-03_rb,0.45637e-03_rb,0.47854e-03_rb,0.21097e-03_rb /)
+      kbo(:, 5,17, 5) = (/ &
+        & 0.58879e-05_rb,0.34359e-03_rb,0.47416e-03_rb,0.49387e-03_rb,0.22440e-03_rb /)
+      kbo(:, 1,18, 5) = (/ &
+        & 0.31260e-05_rb,0.23432e-03_rb,0.32596e-03_rb,0.35082e-03_rb,0.14348e-03_rb /)
+      kbo(:, 2,18, 5) = (/ &
+        & 0.36185e-05_rb,0.24786e-03_rb,0.34561e-03_rb,0.36765e-03_rb,0.15546e-03_rb /)
+      kbo(:, 3,18, 5) = (/ &
+        & 0.40732e-05_rb,0.26120e-03_rb,0.36343e-03_rb,0.38325e-03_rb,0.16623e-03_rb /)
+      kbo(:, 4,18, 5) = (/ &
+        & 0.44839e-05_rb,0.27403e-03_rb,0.37997e-03_rb,0.39811e-03_rb,0.17659e-03_rb /)
+      kbo(:, 5,18, 5) = (/ &
+        & 0.48304e-05_rb,0.28674e-03_rb,0.39513e-03_rb,0.41114e-03_rb,0.18813e-03_rb /)
+      kbo(:, 1,19, 5) = (/ &
+        & 0.25853e-05_rb,0.19483e-03_rb,0.27128e-03_rb,0.29126e-03_rb,0.11969e-03_rb /)
+      kbo(:, 2,19, 5) = (/ &
+        & 0.29834e-05_rb,0.20623e-03_rb,0.28749e-03_rb,0.30541e-03_rb,0.12978e-03_rb /)
+      kbo(:, 3,19, 5) = (/ &
+        & 0.33546e-05_rb,0.21750e-03_rb,0.30267e-03_rb,0.31871e-03_rb,0.13874e-03_rb /)
+      kbo(:, 4,19, 5) = (/ &
+        & 0.36863e-05_rb,0.22842e-03_rb,0.31656e-03_rb,0.33115e-03_rb,0.14789e-03_rb /)
+      kbo(:, 5,19, 5) = (/ &
+        & 0.39634e-05_rb,0.23942e-03_rb,0.32944e-03_rb,0.34220e-03_rb,0.15742e-03_rb /)
+      kbo(:, 1,20, 5) = (/ &
+        & 0.21486e-05_rb,0.16221e-03_rb,0.22609e-03_rb,0.24236e-03_rb,0.10014e-03_rb /)
+      kbo(:, 2,20, 5) = (/ &
+        & 0.24735e-05_rb,0.17178e-03_rb,0.23949e-03_rb,0.25399e-03_rb,0.10857e-03_rb /)
+      kbo(:, 3,20, 5) = (/ &
+        & 0.27744e-05_rb,0.18136e-03_rb,0.25226e-03_rb,0.26535e-03_rb,0.11604e-03_rb /)
+      kbo(:, 4,20, 5) = (/ &
+        & 0.30414e-05_rb,0.19076e-03_rb,0.26397e-03_rb,0.27566e-03_rb,0.12398e-03_rb /)
+      kbo(:, 5,20, 5) = (/ &
+        & 0.32610e-05_rb,0.20019e-03_rb,0.27488e-03_rb,0.28510e-03_rb,0.13199e-03_rb /)
+      kbo(:, 1,21, 5) = (/ &
+        & 0.17877e-05_rb,0.13507e-03_rb,0.18845e-03_rb,0.20163e-03_rb,0.83879e-04_rb /)
+      kbo(:, 2,21, 5) = (/ &
+        & 0.20518e-05_rb,0.14319e-03_rb,0.19968e-03_rb,0.21134e-03_rb,0.90858e-04_rb /)
+      kbo(:, 3,21, 5) = (/ &
+        & 0.22953e-05_rb,0.15137e-03_rb,0.21038e-03_rb,0.22094e-03_rb,0.97098e-04_rb /)
+      kbo(:, 4,21, 5) = (/ &
+        & 0.25098e-05_rb,0.15947e-03_rb,0.22019e-03_rb,0.22948e-03_rb,0.10402e-03_rb /)
+      kbo(:, 5,21, 5) = (/ &
+        & 0.26830e-05_rb,0.16749e-03_rb,0.22950e-03_rb,0.23761e-03_rb,0.11069e-03_rb /)
+      kbo(:, 1,22, 5) = (/ &
+        & 0.15022e-05_rb,0.11297e-03_rb,0.15773e-03_rb,0.16819e-03_rb,0.70808e-04_rb /)
+      kbo(:, 2,22, 5) = (/ &
+        & 0.17157e-05_rb,0.11998e-03_rb,0.16714e-03_rb,0.17644e-03_rb,0.76345e-04_rb /)
+      kbo(:, 3,22, 5) = (/ &
+        & 0.19111e-05_rb,0.12690e-03_rb,0.17611e-03_rb,0.18454e-03_rb,0.81804e-04_rb /)
+      kbo(:, 4,22, 5) = (/ &
+        & 0.20812e-05_rb,0.13385e-03_rb,0.18425e-03_rb,0.19164e-03_rb,0.87591e-04_rb /)
+      kbo(:, 5,22, 5) = (/ &
+        & 0.22144e-05_rb,0.14066e-03_rb,0.19235e-03_rb,0.19867e-03_rb,0.93228e-04_rb /)
+      kbo(:, 1,23, 5) = (/ &
+        & 0.12621e-05_rb,0.94681e-04_rb,0.13210e-03_rb,0.14032e-03_rb,0.59630e-04_rb /)
+      kbo(:, 2,23, 5) = (/ &
+        & 0.14346e-05_rb,0.10061e-03_rb,0.14009e-03_rb,0.14751e-03_rb,0.64142e-04_rb /)
+      kbo(:, 3,23, 5) = (/ &
+        & 0.15908e-05_rb,0.10655e-03_rb,0.14749e-03_rb,0.15413e-03_rb,0.68988e-04_rb /)
+      kbo(:, 4,23, 5) = (/ &
+        & 0.17253e-05_rb,0.11246e-03_rb,0.15437e-03_rb,0.16013e-03_rb,0.73893e-04_rb /)
+      kbo(:, 5,23, 5) = (/ &
+        & 0.18272e-05_rb,0.11825e-03_rb,0.16130e-03_rb,0.16627e-03_rb,0.78649e-04_rb /)
+      kbo(:, 1,24, 5) = (/ &
+        & 0.10611e-05_rb,0.79419e-04_rb,0.11079e-03_rb,0.11736e-03_rb,0.50244e-04_rb /)
+      kbo(:, 2,24, 5) = (/ &
+        & 0.11996e-05_rb,0.84486e-04_rb,0.11749e-03_rb,0.12345e-03_rb,0.54054e-04_rb /)
+      kbo(:, 3,24, 5) = (/ &
+        & 0.13241e-05_rb,0.89565e-04_rb,0.12364e-03_rb,0.12883e-03_rb,0.58259e-04_rb /)
+      kbo(:, 4,24, 5) = (/ &
+        & 0.14300e-05_rb,0.94592e-04_rb,0.12949e-03_rb,0.13406e-03_rb,0.62300e-04_rb /)
+      kbo(:, 5,24, 5) = (/ &
+        & 0.15070e-05_rb,0.99545e-04_rb,0.13538e-03_rb,0.13928e-03_rb,0.66485e-04_rb /)
+      kbo(:, 1,25, 5) = (/ &
+        & 0.89248e-06_rb,0.66757e-04_rb,0.93043e-04_rb,0.98269e-04_rb,0.42396e-04_rb /)
+      kbo(:, 2,25, 5) = (/ &
+        & 0.10034e-05_rb,0.71082e-04_rb,0.98652e-04_rb,0.10332e-03_rb,0.45719e-04_rb /)
+      kbo(:, 3,25, 5) = (/ &
+        & 0.11024e-05_rb,0.75404e-04_rb,0.10375e-03_rb,0.10782e-03_rb,0.49228e-04_rb /)
+      kbo(:, 4,25, 5) = (/ &
+        & 0.11835e-05_rb,0.79694e-04_rb,0.10882e-03_rb,0.11234e-03_rb,0.52649e-04_rb /)
+      kbo(:, 5,25, 5) = (/ &
+        & 0.12406e-05_rb,0.83915e-04_rb,0.11376e-03_rb,0.11677e-03_rb,0.56264e-04_rb /)
+      kbo(:, 1,26, 5) = (/ &
+        & 0.75147e-06_rb,0.56248e-04_rb,0.78291e-04_rb,0.82441e-04_rb,0.35781e-04_rb /)
+      kbo(:, 2,26, 5) = (/ &
+        & 0.84025e-06_rb,0.59929e-04_rb,0.82917e-04_rb,0.86562e-04_rb,0.38715e-04_rb /)
+      kbo(:, 3,26, 5) = (/ &
+        & 0.91728e-06_rb,0.63618e-04_rb,0.87231e-04_rb,0.90442e-04_rb,0.41682e-04_rb /)
+      kbo(:, 4,26, 5) = (/ &
+        & 0.97947e-06_rb,0.67285e-04_rb,0.91606e-04_rb,0.94311e-04_rb,0.44610e-04_rb /)
+      kbo(:, 5,26, 5) = (/ &
+        & 0.10222e-05_rb,0.70879e-04_rb,0.95759e-04_rb,0.97954e-04_rb,0.47678e-04_rb /)
+      kbo(:, 1,27, 5) = (/ &
+        & 0.63228e-06_rb,0.47448e-04_rb,0.65926e-04_rb,0.69211e-04_rb,0.30312e-04_rb /)
+      kbo(:, 2,27, 5) = (/ &
+        & 0.70187e-06_rb,0.50583e-04_rb,0.69752e-04_rb,0.72622e-04_rb,0.32844e-04_rb /)
+      kbo(:, 3,27, 5) = (/ &
+        & 0.76263e-06_rb,0.53723e-04_rb,0.73431e-04_rb,0.75943e-04_rb,0.35283e-04_rb /)
+      kbo(:, 4,27, 5) = (/ &
+        & 0.80975e-06_rb,0.56884e-04_rb,0.77139e-04_rb,0.79235e-04_rb,0.37837e-04_rb /)
+      kbo(:, 5,27, 5) = (/ &
+        & 0.84099e-06_rb,0.59937e-04_rb,0.80670e-04_rb,0.82198e-04_rb,0.40398e-04_rb /)
+      kbo(:, 1,28, 5) = (/ &
+        & 0.53062e-06_rb,0.40054e-04_rb,0.55536e-04_rb,0.58105e-04_rb,0.25683e-04_rb /)
+      kbo(:, 2,28, 5) = (/ &
+        & 0.58581e-06_rb,0.42748e-04_rb,0.58719e-04_rb,0.60988e-04_rb,0.27829e-04_rb /)
+      kbo(:, 3,28, 5) = (/ &
+        & 0.63283e-06_rb,0.45445e-04_rb,0.61927e-04_rb,0.63808e-04_rb,0.29914e-04_rb /)
+      kbo(:, 4,28, 5) = (/ &
+        & 0.66841e-06_rb,0.48141e-04_rb,0.65033e-04_rb,0.66567e-04_rb,0.32101e-04_rb /)
+      kbo(:, 5,28, 5) = (/ &
+        & 0.69132e-06_rb,0.50744e-04_rb,0.68002e-04_rb,0.69024e-04_rb,0.34196e-04_rb /)
+      kbo(:, 1,29, 5) = (/ &
+        & 0.44482e-06_rb,0.33876e-04_rb,0.46813e-04_rb,0.48820e-04_rb,0.21822e-04_rb /)
+      kbo(:, 2,29, 5) = (/ &
+        & 0.48830e-06_rb,0.36173e-04_rb,0.49534e-04_rb,0.51267e-04_rb,0.23598e-04_rb /)
+      kbo(:, 3,29, 5) = (/ &
+        & 0.52520e-06_rb,0.38507e-04_rb,0.52264e-04_rb,0.53700e-04_rb,0.25407e-04_rb /)
+      kbo(:, 4,29, 5) = (/ &
+        & 0.55142e-06_rb,0.40790e-04_rb,0.54879e-04_rb,0.55934e-04_rb,0.27233e-04_rb /)
+      kbo(:, 5,29, 5) = (/ &
+        & 0.56821e-06_rb,0.43005e-04_rb,0.57374e-04_rb,0.57995e-04_rb,0.28939e-04_rb /)
+      kbo(:, 1,30, 5) = (/ &
+        & 0.37240e-06_rb,0.28688e-04_rb,0.39498e-04_rb,0.41082e-04_rb,0.18542e-04_rb /)
+      kbo(:, 2,30, 5) = (/ &
+        & 0.40697e-06_rb,0.30662e-04_rb,0.41832e-04_rb,0.43139e-04_rb,0.20037e-04_rb /)
+      kbo(:, 3,30, 5) = (/ &
+        & 0.43518e-06_rb,0.32657e-04_rb,0.44137e-04_rb,0.45198e-04_rb,0.21592e-04_rb /)
+      kbo(:, 4,30, 5) = (/ &
+        & 0.45459e-06_rb,0.34600e-04_rb,0.46342e-04_rb,0.47030e-04_rb,0.23099e-04_rb /)
+      kbo(:, 5,30, 5) = (/ &
+        & 0.46674e-06_rb,0.36468e-04_rb,0.48427e-04_rb,0.48752e-04_rb,0.24524e-04_rb /)
+      kbo(:, 1,31, 5) = (/ &
+        & 0.31167e-06_rb,0.24328e-04_rb,0.33365e-04_rb,0.34577e-04_rb,0.15775e-04_rb /)
+      kbo(:, 2,31, 5) = (/ &
+        & 0.33880e-06_rb,0.26033e-04_rb,0.35376e-04_rb,0.36343e-04_rb,0.17037e-04_rb /)
+      kbo(:, 3,31, 5) = (/ &
+        & 0.36022e-06_rb,0.27728e-04_rb,0.37306e-04_rb,0.38025e-04_rb,0.18334e-04_rb /)
+      kbo(:, 4,31, 5) = (/ &
+        & 0.37443e-06_rb,0.29381e-04_rb,0.39153e-04_rb,0.39551e-04_rb,0.19559e-04_rb /)
+      kbo(:, 5,31, 5) = (/ &
+        & 0.38304e-06_rb,0.30940e-04_rb,0.40888e-04_rb,0.41012e-04_rb,0.20735e-04_rb /)
+      kbo(:, 1,32, 5) = (/ &
+        & 0.26065e-06_rb,0.20666e-04_rb,0.28226e-04_rb,0.29128e-04_rb,0.13403e-04_rb /)
+      kbo(:, 2,32, 5) = (/ &
+        & 0.28179e-06_rb,0.22130e-04_rb,0.29934e-04_rb,0.30642e-04_rb,0.14495e-04_rb /)
+      kbo(:, 3,32, 5) = (/ &
+        & 0.29791e-06_rb,0.23572e-04_rb,0.31554e-04_rb,0.32005e-04_rb,0.15576e-04_rb /)
+      kbo(:, 4,32, 5) = (/ &
+        & 0.30813e-06_rb,0.24963e-04_rb,0.33101e-04_rb,0.33278e-04_rb,0.16582e-04_rb /)
+      kbo(:, 5,32, 5) = (/ &
+        & 0.31412e-06_rb,0.26261e-04_rb,0.34510e-04_rb,0.34497e-04_rb,0.17533e-04_rb /)
+      kbo(:, 1,33, 5) = (/ &
+        & 0.21768e-06_rb,0.17581e-04_rb,0.23903e-04_rb,0.24558e-04_rb,0.11405e-04_rb /)
+      kbo(:, 2,33, 5) = (/ &
+        & 0.23409e-06_rb,0.18827e-04_rb,0.25333e-04_rb,0.25812e-04_rb,0.12331e-04_rb /)
+      kbo(:, 3,33, 5) = (/ &
+        & 0.24596e-06_rb,0.20053e-04_rb,0.26696e-04_rb,0.26942e-04_rb,0.13200e-04_rb /)
+      kbo(:, 4,33, 5) = (/ &
+        & 0.25338e-06_rb,0.21211e-04_rb,0.27978e-04_rb,0.28012e-04_rb,0.14037e-04_rb /)
+      kbo(:, 5,33, 5) = (/ &
+        & 0.25735e-06_rb,0.22292e-04_rb,0.29113e-04_rb,0.29019e-04_rb,0.14789e-04_rb /)
+      kbo(:, 1,34, 5) = (/ &
+        & 0.18111e-06_rb,0.14933e-04_rb,0.20221e-04_rb,0.20691e-04_rb,0.96853e-05_rb /)
+      kbo(:, 2,34, 5) = (/ &
+        & 0.19373e-06_rb,0.15993e-04_rb,0.21413e-04_rb,0.21708e-04_rb,0.10459e-04_rb /)
+      kbo(:, 3,34, 5) = (/ &
+        & 0.20262e-06_rb,0.17025e-04_rb,0.22551e-04_rb,0.22651e-04_rb,0.11170e-04_rb /)
+      kbo(:, 4,34, 5) = (/ &
+        & 0.20802e-06_rb,0.17992e-04_rb,0.23603e-04_rb,0.23540e-04_rb,0.11847e-04_rb /)
+      kbo(:, 5,34, 5) = (/ &
+        & 0.21068e-06_rb,0.18892e-04_rb,0.24522e-04_rb,0.24370e-04_rb,0.12444e-04_rb /)
+      kbo(:, 1,35, 5) = (/ &
+        & 0.14940e-06_rb,0.12604e-04_rb,0.17001e-04_rb,0.17339e-04_rb,0.81630e-05_rb /)
+      kbo(:, 2,35, 5) = (/ &
+        & 0.15934e-06_rb,0.13505e-04_rb,0.18008e-04_rb,0.18183e-04_rb,0.87890e-05_rb /)
+      kbo(:, 3,35, 5) = (/ &
+        & 0.16626e-06_rb,0.14374e-04_rb,0.18963e-04_rb,0.18976e-04_rb,0.93838e-05_rb /)
+      kbo(:, 4,35, 5) = (/ &
+        & 0.17040e-06_rb,0.15187e-04_rb,0.19824e-04_rb,0.19720e-04_rb,0.99229e-05_rb /)
+      kbo(:, 5,35, 5) = (/ &
+        & 0.17229e-06_rb,0.15939e-04_rb,0.20582e-04_rb,0.20394e-04_rb,0.10412e-04_rb /)
+      kbo(:, 1,36, 5) = (/ &
+        & 0.12224e-06_rb,0.10560e-04_rb,0.14203e-04_rb,0.14447e-04_rb,0.68196e-05_rb /)
+      kbo(:, 2,36, 5) = (/ &
+        & 0.13030e-06_rb,0.11326e-04_rb,0.15055e-04_rb,0.15156e-04_rb,0.73321e-05_rb /)
+      kbo(:, 3,36, 5) = (/ &
+        & 0.13590e-06_rb,0.12062e-04_rb,0.15856e-04_rb,0.15823e-04_rb,0.78230e-05_rb /)
+      kbo(:, 4,36, 5) = (/ &
+        & 0.13929e-06_rb,0.12750e-04_rb,0.16573e-04_rb,0.16449e-04_rb,0.82632e-05_rb /)
+      kbo(:, 5,36, 5) = (/ &
+        & 0.14081e-06_rb,0.13384e-04_rb,0.17208e-04_rb,0.17006e-04_rb,0.86656e-05_rb /)
+      kbo(:, 1,37, 5) = (/ &
+        & 0.98979e-07_rb,0.87500e-05_rb,0.11755e-04_rb,0.11943e-04_rb,0.56269e-05_rb /)
+      kbo(:, 2,37, 5) = (/ &
+        & 0.10583e-06_rb,0.94035e-05_rb,0.12480e-04_rb,0.12544e-04_rb,0.60528e-05_rb /)
+      kbo(:, 3,37, 5) = (/ &
+        & 0.11068e-06_rb,0.10031e-04_rb,0.13161e-04_rb,0.13110e-04_rb,0.64604e-05_rb /)
+      kbo(:, 4,37, 5) = (/ &
+        & 0.11365e-06_rb,0.10619e-04_rb,0.13767e-04_rb,0.13642e-04_rb,0.68253e-05_rb /)
+      kbo(:, 5,37, 5) = (/ &
+        & 0.11510e-06_rb,0.11162e-04_rb,0.14306e-04_rb,0.14108e-04_rb,0.71615e-05_rb /)
+      kbo(:, 1,38, 5) = (/ &
+        & 0.80050e-07_rb,0.72436e-05_rb,0.97225e-05_rb,0.98657e-05_rb,0.46375e-05_rb /)
+      kbo(:, 2,38, 5) = (/ &
+        & 0.85886e-07_rb,0.78006e-05_rb,0.10338e-04_rb,0.10378e-04_rb,0.49919e-05_rb /)
+      kbo(:, 3,38, 5) = (/ &
+        & 0.90108e-07_rb,0.83355e-05_rb,0.10916e-04_rb,0.10856e-04_rb,0.53303e-05_rb /)
+      kbo(:, 4,38, 5) = (/ &
+        & 0.92690e-07_rb,0.88380e-05_rb,0.11429e-04_rb,0.11306e-04_rb,0.56349e-05_rb /)
+      kbo(:, 5,38, 5) = (/ &
+        & 0.94046e-07_rb,0.93019e-05_rb,0.11885e-04_rb,0.11696e-04_rb,0.59152e-05_rb /)
+      kbo(:, 1,39, 5) = (/ &
+        & 0.64720e-07_rb,0.59955e-05_rb,0.80389e-05_rb,0.81488e-05_rb,0.38192e-05_rb /)
+      kbo(:, 2,39, 5) = (/ &
+        & 0.69663e-07_rb,0.64699e-05_rb,0.85613e-05_rb,0.85818e-05_rb,0.41159e-05_rb /)
+      kbo(:, 3,39, 5) = (/ &
+        & 0.73305e-07_rb,0.69246e-05_rb,0.90506e-05_rb,0.89861e-05_rb,0.43968e-05_rb /)
+      kbo(:, 4,39, 5) = (/ &
+        & 0.75588e-07_rb,0.73530e-05_rb,0.94857e-05_rb,0.93637e-05_rb,0.46505e-05_rb /)
+      kbo(:, 5,39, 5) = (/ &
+        & 0.76825e-07_rb,0.77492e-05_rb,0.98708e-05_rb,0.96898e-05_rb,0.48841e-05_rb /)
+      kbo(:, 1,40, 5) = (/ &
+        & 0.51871e-07_rb,0.49191e-05_rb,0.65994e-05_rb,0.66890e-05_rb,0.31186e-05_rb /)
+      kbo(:, 2,40, 5) = (/ &
+        & 0.56127e-07_rb,0.53227e-05_rb,0.70435e-05_rb,0.70578e-05_rb,0.33678e-05_rb /)
+      kbo(:, 3,40, 5) = (/ &
+        & 0.59395e-07_rb,0.57124e-05_rb,0.74609e-05_rb,0.74018e-05_rb,0.36025e-05_rb /)
+      kbo(:, 4,40, 5) = (/ &
+        & 0.61501e-07_rb,0.60790e-05_rb,0.78333e-05_rb,0.77210e-05_rb,0.38164e-05_rb /)
+      kbo(:, 5,40, 5) = (/ &
+        & 0.62710e-07_rb,0.64194e-05_rb,0.81613e-05_rb,0.79980e-05_rb,0.40122e-05_rb /)
+      kbo(:, 1,41, 5) = (/ &
+        & 0.41471e-07_rb,0.40276e-05_rb,0.54076e-05_rb,0.54815e-05_rb,0.25402e-05_rb /)
+      kbo(:, 2,41, 5) = (/ &
+        & 0.45127e-07_rb,0.43711e-05_rb,0.57847e-05_rb,0.57971e-05_rb,0.27507e-05_rb /)
+      kbo(:, 3,41, 5) = (/ &
+        & 0.48018e-07_rb,0.47040e-05_rb,0.61407e-05_rb,0.60883e-05_rb,0.29479e-05_rb /)
+      kbo(:, 4,41, 5) = (/ &
+        & 0.49983e-07_rb,0.50177e-05_rb,0.64595e-05_rb,0.63587e-05_rb,0.31286e-05_rb /)
+      kbo(:, 5,41, 5) = (/ &
+        & 0.51153e-07_rb,0.53098e-05_rb,0.67389e-05_rb,0.65950e-05_rb,0.32928e-05_rb /)
+      kbo(:, 1,42, 5) = (/ &
+        & 0.33108e-07_rb,0.32945e-05_rb,0.44261e-05_rb,0.44871e-05_rb,0.20674e-05_rb /)
+      kbo(:, 2,42, 5) = (/ &
+        & 0.36228e-07_rb,0.35861e-05_rb,0.47462e-05_rb,0.47571e-05_rb,0.22452e-05_rb /)
+      kbo(:, 3,42, 5) = (/ &
+        & 0.38776e-07_rb,0.38701e-05_rb,0.50505e-05_rb,0.50046e-05_rb,0.24106e-05_rb /)
+      kbo(:, 4,42, 5) = (/ &
+        & 0.40580e-07_rb,0.41378e-05_rb,0.53219e-05_rb,0.52323e-05_rb,0.25622e-05_rb /)
+      kbo(:, 5,42, 5) = (/ &
+        & 0.41689e-07_rb,0.43881e-05_rb,0.55607e-05_rb,0.54356e-05_rb,0.27015e-05_rb /)
+      kbo(:, 1,43, 5) = (/ &
+        & 0.26243e-07_rb,0.26780e-05_rb,0.36021e-05_rb,0.36578e-05_rb,0.16722e-05_rb /)
+      kbo(:, 2,43, 5) = (/ &
+        & 0.28903e-07_rb,0.29254e-05_rb,0.38754e-05_rb,0.38886e-05_rb,0.18235e-05_rb /)
+      kbo(:, 3,43, 5) = (/ &
+        & 0.31158e-07_rb,0.31674e-05_rb,0.41363e-05_rb,0.40998e-05_rb,0.19628e-05_rb /)
+      kbo(:, 4,43, 5) = (/ &
+        & 0.32828e-07_rb,0.33966e-05_rb,0.43687e-05_rb,0.42935e-05_rb,0.20906e-05_rb /)
+      kbo(:, 5,43, 5) = (/ &
+        & 0.33896e-07_rb,0.36112e-05_rb,0.45745e-05_rb,0.44680e-05_rb,0.22088e-05_rb /)
+      kbo(:, 1,44, 5) = (/ &
+        & 0.20692e-07_rb,0.21688e-05_rb,0.29226e-05_rb,0.29738e-05_rb,0.13486e-05_rb /)
+      kbo(:, 2,44, 5) = (/ &
+        & 0.22961e-07_rb,0.23776e-05_rb,0.31556e-05_rb,0.31699e-05_rb,0.14759e-05_rb /)
+      kbo(:, 3,44, 5) = (/ &
+        & 0.24934e-07_rb,0.25834e-05_rb,0.33779e-05_rb,0.33507e-05_rb,0.15926e-05_rb /)
+      kbo(:, 4,44, 5) = (/ &
+        & 0.26472e-07_rb,0.27800e-05_rb,0.35779e-05_rb,0.35162e-05_rb,0.17017e-05_rb /)
+      kbo(:, 5,44, 5) = (/ &
+        & 0.27504e-07_rb,0.29637e-05_rb,0.37558e-05_rb,0.36666e-05_rb,0.18017e-05_rb /)
+      kbo(:, 1,45, 5) = (/ &
+        & 0.16269e-07_rb,0.17537e-05_rb,0.23672e-05_rb,0.24133e-05_rb,0.10856e-05_rb /)
+      kbo(:, 2,45, 5) = (/ &
+        & 0.18194e-07_rb,0.19291e-05_rb,0.25663e-05_rb,0.25809e-05_rb,0.11927e-05_rb /)
+      kbo(:, 3,45, 5) = (/ &
+        & 0.19903e-07_rb,0.21039e-05_rb,0.27552e-05_rb,0.27360e-05_rb,0.12909e-05_rb /)
+      kbo(:, 4,45, 5) = (/ &
+        & 0.21293e-07_rb,0.22721e-05_rb,0.29270e-05_rb,0.28775e-05_rb,0.13839e-05_rb /)
+      kbo(:, 5,45, 5) = (/ &
+        & 0.22283e-07_rb,0.24292e-05_rb,0.30802e-05_rb,0.30067e-05_rb,0.14686e-05_rb /)
+      kbo(:, 1,46, 5) = (/ &
+        & 0.12712e-07_rb,0.14128e-05_rb,0.19113e-05_rb,0.19548e-05_rb,0.87114e-06_rb /)
+      kbo(:, 2,46, 5) = (/ &
+        & 0.14351e-07_rb,0.15596e-05_rb,0.20802e-05_rb,0.20949e-05_rb,0.96118e-06_rb /)
+      kbo(:, 3,46, 5) = (/ &
+        & 0.15815e-07_rb,0.17076e-05_rb,0.22404e-05_rb,0.22289e-05_rb,0.10436e-05_rb /)
+      kbo(:, 4,46, 5) = (/ &
+        & 0.17062e-07_rb,0.18511e-05_rb,0.23889e-05_rb,0.23492e-05_rb,0.11225e-05_rb /)
+      kbo(:, 5,46, 5) = (/ &
+        & 0.17993e-07_rb,0.19855e-05_rb,0.25206e-05_rb,0.24609e-05_rb,0.11948e-05_rb /)
+      kbo(:, 1,47, 5) = (/ &
+        & 0.98364e-08_rb,0.11306e-05_rb,0.15353e-05_rb,0.15746e-05_rb,0.69554e-06_rb /)
+      kbo(:, 2,47, 5) = (/ &
+        & 0.11226e-07_rb,0.12534e-05_rb,0.16765e-05_rb,0.16944e-05_rb,0.76925e-06_rb /)
+      kbo(:, 3,47, 5) = (/ &
+        & 0.12483e-07_rb,0.13784e-05_rb,0.18130e-05_rb,0.18087e-05_rb,0.84036e-06_rb /)
+      kbo(:, 4,47, 5) = (/ &
+        & 0.13587e-07_rb,0.15007e-05_rb,0.19418e-05_rb,0.19122e-05_rb,0.90712e-06_rb /)
+      kbo(:, 5,47, 5) = (/ &
+        & 0.14457e-07_rb,0.16158e-05_rb,0.20557e-05_rb,0.20073e-05_rb,0.96847e-06_rb /)
+      kbo(:, 1,48, 5) = (/ &
+        & 0.75824e-08_rb,0.90329e-06_rb,0.12307e-05_rb,0.12653e-05_rb,0.55346e-06_rb /)
+      kbo(:, 2,48, 5) = (/ &
+        & 0.87453e-08_rb,0.10050e-05_rb,0.13490e-05_rb,0.13676e-05_rb,0.61470e-06_rb /)
+      kbo(:, 3,48, 5) = (/ &
+        & 0.98194e-08_rb,0.11101e-05_rb,0.14650e-05_rb,0.14651e-05_rb,0.67492e-06_rb /)
+      kbo(:, 4,48, 5) = (/ &
+        & 0.10779e-07_rb,0.12141e-05_rb,0.15756e-05_rb,0.15544e-05_rb,0.73163e-06_rb /)
+      kbo(:, 5,48, 5) = (/ &
+        & 0.11579e-07_rb,0.13125e-05_rb,0.16743e-05_rb,0.16359e-05_rb,0.78405e-06_rb /)
+      kbo(:, 1,49, 5) = (/ &
+        & 0.58219e-08_rb,0.72015e-06_rb,0.98379e-06_rb,0.10143e-05_rb,0.43933e-06_rb /)
+      kbo(:, 2,49, 5) = (/ &
+        & 0.67817e-08_rb,0.80423e-06_rb,0.10832e-05_rb,0.11023e-05_rb,0.49018e-06_rb /)
+      kbo(:, 3,49, 5) = (/ &
+        & 0.76966e-08_rb,0.89205e-06_rb,0.11819e-05_rb,0.11846e-05_rb,0.54131e-06_rb /)
+      kbo(:, 4,49, 5) = (/ &
+        & 0.85224e-08_rb,0.98005e-06_rb,0.12760e-05_rb,0.12617e-05_rb,0.58858e-06_rb /)
+      kbo(:, 5,49, 5) = (/ &
+        & 0.92350e-08_rb,0.10644e-05_rb,0.13615e-05_rb,0.13319e-05_rb,0.63358e-06_rb /)
+      kbo(:, 1,50, 5) = (/ &
+        & 0.44790e-08_rb,0.57418e-06_rb,0.78635e-06_rb,0.81296e-06_rb,0.34881e-06_rb /)
+      kbo(:, 2,50, 5) = (/ &
+        & 0.52579e-08_rb,0.64388e-06_rb,0.87056e-06_rb,0.88896e-06_rb,0.39135e-06_rb /)
+      kbo(:, 3,50, 5) = (/ &
+        & 0.60279e-08_rb,0.71722e-06_rb,0.95348e-06_rb,0.95809e-06_rb,0.43444e-06_rb /)
+      kbo(:, 4,50, 5) = (/ &
+        & 0.67324e-08_rb,0.79134e-06_rb,0.10331e-05_rb,0.10243e-05_rb,0.47391e-06_rb /)
+      kbo(:, 5,50, 5) = (/ &
+        & 0.73551e-08_rb,0.86330e-06_rb,0.11073e-05_rb,0.10842e-05_rb,0.51234e-06_rb /)
+      kbo(:, 1,51, 5) = (/ &
+        & 0.34450e-08_rb,0.45753e-06_rb,0.62814e-06_rb,0.65158e-06_rb,0.27625e-06_rb /)
+      kbo(:, 2,51, 5) = (/ &
+        & 0.40690e-08_rb,0.51530e-06_rb,0.69892e-06_rb,0.71555e-06_rb,0.31260e-06_rb /)
+      kbo(:, 3,51, 5) = (/ &
+        & 0.47087e-08_rb,0.57624e-06_rb,0.76840e-06_rb,0.77477e-06_rb,0.34804e-06_rb /)
+      kbo(:, 4,51, 5) = (/ &
+        & 0.53086e-08_rb,0.63843e-06_rb,0.83580e-06_rb,0.83092e-06_rb,0.38181e-06_rb /)
+      kbo(:, 5,51, 5) = (/ &
+        & 0.58439e-08_rb,0.69956e-06_rb,0.89962e-06_rb,0.88225e-06_rb,0.41412e-06_rb /)
+      kbo(:, 1,52, 5) = (/ &
+        & 0.26454e-08_rb,0.36387e-06_rb,0.50007e-06_rb,0.52179e-06_rb,0.21894e-06_rb /)
+      kbo(:, 2,52, 5) = (/ &
+        & 0.31403e-08_rb,0.41173e-06_rb,0.55997e-06_rb,0.57479e-06_rb,0.24870e-06_rb /)
+      kbo(:, 3,52, 5) = (/ &
+        & 0.36655e-08_rb,0.46211e-06_rb,0.61819e-06_rb,0.62511e-06_rb,0.27840e-06_rb /)
+      kbo(:, 4,52, 5) = (/ &
+        & 0.41730e-08_rb,0.51415e-06_rb,0.67546e-06_rb,0.67307e-06_rb,0.30695e-06_rb /)
+      kbo(:, 5,52, 5) = (/ &
+        & 0.46311e-08_rb,0.56582e-06_rb,0.72973e-06_rb,0.71697e-06_rb,0.33407e-06_rb /)
+      kbo(:, 1,53, 5) = (/ &
+        & 0.20275e-08_rb,0.28873e-06_rb,0.39749e-06_rb,0.41647e-06_rb,0.17355e-06_rb /)
+      kbo(:, 2,53, 5) = (/ &
+        & 0.24190e-08_rb,0.32821e-06_rb,0.44730e-06_rb,0.46063e-06_rb,0.19774e-06_rb /)
+      kbo(:, 3,53, 5) = (/ &
+        & 0.28440e-08_rb,0.36981e-06_rb,0.49677e-06_rb,0.50411e-06_rb,0.22218e-06_rb /)
+      kbo(:, 4,53, 5) = (/ &
+        & 0.32690e-08_rb,0.41315e-06_rb,0.54488e-06_rb,0.54408e-06_rb,0.24647e-06_rb /)
+      kbo(:, 5,53, 5) = (/ &
+        & 0.36592e-08_rb,0.45680e-06_rb,0.59090e-06_rb,0.58189e-06_rb,0.26902e-06_rb /)
+      kbo(:, 1,54, 5) = (/ &
+        & 0.15611e-08_rb,0.22962e-06_rb,0.31613e-06_rb,0.33300e-06_rb,0.13730e-06_rb /)
+      kbo(:, 2,54, 5) = (/ &
+        & 0.18696e-08_rb,0.26187e-06_rb,0.35802e-06_rb,0.36954e-06_rb,0.15701e-06_rb /)
+      kbo(:, 3,54, 5) = (/ &
+        & 0.22100e-08_rb,0.29641e-06_rb,0.39970e-06_rb,0.40683e-06_rb,0.17764e-06_rb /)
+      kbo(:, 4,54, 5) = (/ &
+        & 0.25619e-08_rb,0.33255e-06_rb,0.44009e-06_rb,0.44063e-06_rb,0.19808e-06_rb /)
+      kbo(:, 5,54, 5) = (/ &
+        & 0.28928e-08_rb,0.36908e-06_rb,0.47892e-06_rb,0.47270e-06_rb,0.21696e-06_rb /)
+      kbo(:, 1,55, 5) = (/ &
+        & 0.12041e-08_rb,0.18259e-06_rb,0.25108e-06_rb,0.26608e-06_rb,0.10842e-06_rb /)
+      kbo(:, 2,55, 5) = (/ &
+        & 0.14466e-08_rb,0.20918e-06_rb,0.28633e-06_rb,0.29677e-06_rb,0.12468e-06_rb /)
+      kbo(:, 3,55, 5) = (/ &
+        & 0.17176e-08_rb,0.23765e-06_rb,0.32139e-06_rb,0.32799e-06_rb,0.14213e-06_rb /)
+      kbo(:, 4,55, 5) = (/ &
+        & 0.20058e-08_rb,0.26766e-06_rb,0.35523e-06_rb,0.35664e-06_rb,0.15907e-06_rb /)
+      kbo(:, 5,55, 5) = (/ &
+        & 0.22852e-08_rb,0.29818e-06_rb,0.38806e-06_rb,0.38381e-06_rb,0.17512e-06_rb /)
+      kbo(:, 1,56, 5) = (/ &
+        & 0.92934e-09_rb,0.14496e-06_rb,0.19887e-06_rb,0.21215e-06_rb,0.85185e-07_rb /)
+      kbo(:, 2,56, 5) = (/ &
+        & 0.11180e-08_rb,0.16668e-06_rb,0.22841e-06_rb,0.23799e-06_rb,0.99172e-07_rb /)
+      kbo(:, 3,56, 5) = (/ &
+        & 0.13333e-08_rb,0.19024e-06_rb,0.25790e-06_rb,0.26385e-06_rb,0.11331e-06_rb /)
+      kbo(:, 4,56, 5) = (/ &
+        & 0.15668e-08_rb,0.21512e-06_rb,0.28626e-06_rb,0.28820e-06_rb,0.12758e-06_rb /)
+      kbo(:, 5,56, 5) = (/ &
+        & 0.18000e-08_rb,0.24055e-06_rb,0.31405e-06_rb,0.31134e-06_rb,0.14106e-06_rb /)
+      kbo(:, 1,57, 5) = (/ &
+        & 0.71747e-09_rb,0.11491e-06_rb,0.15760e-06_rb,0.16907e-06_rb,0.66762e-07_rb /)
+      kbo(:, 2,57, 5) = (/ &
+        & 0.86318e-09_rb,0.13266e-06_rb,0.18198e-06_rb,0.19051e-06_rb,0.78844e-07_rb /)
+      kbo(:, 3,57, 5) = (/ &
+        & 0.10332e-08_rb,0.15199e-06_rb,0.20646e-06_rb,0.21185e-06_rb,0.90317e-07_rb /)
+      kbo(:, 4,57, 5) = (/ &
+        & 0.12205e-08_rb,0.17255e-06_rb,0.23049e-06_rb,0.23280e-06_rb,0.10211e-06_rb /)
+      kbo(:, 5,57, 5) = (/ &
+        & 0.14137e-08_rb,0.19374e-06_rb,0.25377e-06_rb,0.25209e-06_rb,0.11347e-06_rb /)
+      kbo(:, 1,58, 5) = (/ &
+        & 0.55534e-09_rb,0.91161e-07_rb,0.12495e-06_rb,0.13481e-06_rb,0.52524e-07_rb /)
+      kbo(:, 2,58, 5) = (/ &
+        & 0.66796e-09_rb,0.10564e-06_rb,0.14490e-06_rb,0.15246e-06_rb,0.62491e-07_rb /)
+      kbo(:, 3,58, 5) = (/ &
+        & 0.80208e-09_rb,0.12142e-06_rb,0.16540e-06_rb,0.17013e-06_rb,0.71923e-07_rb /)
+      kbo(:, 4,58, 5) = (/ &
+        & 0.95155e-09_rb,0.13846e-06_rb,0.18562e-06_rb,0.18803e-06_rb,0.81760e-07_rb /)
+      kbo(:, 5,58, 5) = (/ &
+        & 0.11100e-08_rb,0.15608e-06_rb,0.20513e-06_rb,0.20425e-06_rb,0.91405e-07_rb /)
+      kbo(:, 1,59, 5) = (/ &
+        & 0.44483e-09_rb,0.74201e-07_rb,0.10175e-06_rb,0.10986e-06_rb,0.42626e-07_rb /)
+      kbo(:, 2,59, 5) = (/ &
+        & 0.53478e-09_rb,0.86257e-07_rb,0.11818e-06_rb,0.12453e-06_rb,0.50816e-07_rb /)
+      kbo(:, 3,59, 5) = (/ &
+        & 0.64265e-09_rb,0.99390e-07_rb,0.13535e-06_rb,0.13928e-06_rb,0.58658e-07_rb /)
+      kbo(:, 4,59, 5) = (/ &
+        & 0.76369e-09_rb,0.11360e-06_rb,0.15224e-06_rb,0.15417e-06_rb,0.66845e-07_rb /)
+      kbo(:, 5,59, 5) = (/ &
+        & 0.89316e-09_rb,0.12826e-06_rb,0.16850e-06_rb,0.16775e-06_rb,0.74841e-07_rb /)
+      kbo(:, 1,13, 6) = (/ &
+        & 0.15452e-03_rb,0.17471e-02_rb,0.22870e-02_rb,0.22757e-02_rb,0.11868e-02_rb /)
+      kbo(:, 2,13, 6) = (/ &
+        & 0.17358e-03_rb,0.18337e-02_rb,0.23752e-02_rb,0.23549e-02_rb,0.12492e-02_rb /)
+      kbo(:, 3,13, 6) = (/ &
+        & 0.19043e-03_rb,0.19070e-02_rb,0.24479e-02_rb,0.24255e-02_rb,0.13114e-02_rb /)
+      kbo(:, 4,13, 6) = (/ &
+        & 0.20459e-03_rb,0.19702e-02_rb,0.25109e-02_rb,0.24905e-02_rb,0.13717e-02_rb /)
+      kbo(:, 5,13, 6) = (/ &
+        & 0.21621e-03_rb,0.20266e-02_rb,0.25653e-02_rb,0.25512e-02_rb,0.14320e-02_rb /)
+      kbo(:, 1,14, 6) = (/ &
+        & 0.12793e-03_rb,0.14662e-02_rb,0.19141e-02_rb,0.19032e-02_rb,0.99404e-03_rb /)
+      kbo(:, 2,14, 6) = (/ &
+        & 0.14335e-03_rb,0.15367e-02_rb,0.19852e-02_rb,0.19691e-02_rb,0.10462e-02_rb /)
+      kbo(:, 3,14, 6) = (/ &
+        & 0.15698e-03_rb,0.15974e-02_rb,0.20454e-02_rb,0.20285e-02_rb,0.10986e-02_rb /)
+      kbo(:, 4,14, 6) = (/ &
+        & 0.16837e-03_rb,0.16505e-02_rb,0.20982e-02_rb,0.20828e-02_rb,0.11509e-02_rb /)
+      kbo(:, 5,14, 6) = (/ &
+        & 0.17765e-03_rb,0.16990e-02_rb,0.21452e-02_rb,0.21357e-02_rb,0.12020e-02_rb /)
+      kbo(:, 1,15, 6) = (/ &
+        & 0.10600e-03_rb,0.12280e-02_rb,0.15987e-02_rb,0.15899e-02_rb,0.83160e-03_rb /)
+      kbo(:, 2,15, 6) = (/ &
+        & 0.11846e-03_rb,0.12858e-02_rb,0.16570e-02_rb,0.16438e-02_rb,0.87641e-03_rb /)
+      kbo(:, 3,15, 6) = (/ &
+        & 0.12947e-03_rb,0.13362e-02_rb,0.17073e-02_rb,0.16937e-02_rb,0.92037e-03_rb /)
+      kbo(:, 4,15, 6) = (/ &
+        & 0.13860e-03_rb,0.13818e-02_rb,0.17519e-02_rb,0.17401e-02_rb,0.96514e-03_rb /)
+      kbo(:, 5,15, 6) = (/ &
+        & 0.14605e-03_rb,0.14231e-02_rb,0.17922e-02_rb,0.17849e-02_rb,0.10088e-02_rb /)
+      kbo(:, 1,16, 6) = (/ &
+        & 0.87844e-04_rb,0.10268e-02_rb,0.13337e-02_rb,0.13258e-02_rb,0.69471e-03_rb /)
+      kbo(:, 2,16, 6) = (/ &
+        & 0.97921e-04_rb,0.10747e-02_rb,0.13816e-02_rb,0.13704e-02_rb,0.73309e-03_rb /)
+      kbo(:, 3,16, 6) = (/ &
+        & 0.10678e-03_rb,0.11173e-02_rb,0.14240e-02_rb,0.14122e-02_rb,0.77126e-03_rb /)
+      kbo(:, 4,16, 6) = (/ &
+        & 0.11410e-03_rb,0.11561e-02_rb,0.14619e-02_rb,0.14525e-02_rb,0.80983e-03_rb /)
+      kbo(:, 5,16, 6) = (/ &
+        & 0.12008e-03_rb,0.11913e-02_rb,0.14957e-02_rb,0.14904e-02_rb,0.84685e-03_rb /)
+      kbo(:, 1,17, 6) = (/ &
+        & 0.72736e-04_rb,0.85770e-03_rb,0.11110e-02_rb,0.11043e-02_rb,0.57988e-03_rb /)
+      kbo(:, 2,17, 6) = (/ &
+        & 0.80870e-04_rb,0.89737e-03_rb,0.11508e-02_rb,0.11412e-02_rb,0.61310e-03_rb /)
+      kbo(:, 3,17, 6) = (/ &
+        & 0.87984e-04_rb,0.93334e-03_rb,0.11865e-02_rb,0.11769e-02_rb,0.64563e-03_rb /)
+      kbo(:, 4,17, 6) = (/ &
+        & 0.93900e-04_rb,0.96637e-03_rb,0.12188e-02_rb,0.12115e-02_rb,0.67946e-03_rb /)
+      kbo(:, 5,17, 6) = (/ &
+        & 0.98669e-04_rb,0.99682e-03_rb,0.12477e-02_rb,0.12444e-02_rb,0.71129e-03_rb /)
+      kbo(:, 1,18, 6) = (/ &
+        & 0.60196e-04_rb,0.71585e-03_rb,0.92484e-03_rb,0.91885e-03_rb,0.48428e-03_rb /)
+      kbo(:, 2,18, 6) = (/ &
+        & 0.66759e-04_rb,0.74902e-03_rb,0.95806e-03_rb,0.95007e-03_rb,0.51254e-03_rb /)
+      kbo(:, 3,18, 6) = (/ &
+        & 0.72486e-04_rb,0.77936e-03_rb,0.98828e-03_rb,0.98036e-03_rb,0.54118e-03_rb /)
+      kbo(:, 4,18, 6) = (/ &
+        & 0.77210e-04_rb,0.80757e-03_rb,0.10157e-02_rb,0.10101e-02_rb,0.56995e-03_rb /)
+      kbo(:, 5,18, 6) = (/ &
+        & 0.81046e-04_rb,0.83344e-03_rb,0.10405e-02_rb,0.10390e-02_rb,0.59762e-03_rb /)
+      kbo(:, 1,19, 6) = (/ &
+        & 0.49797e-04_rb,0.59714e-03_rb,0.76951e-03_rb,0.76408e-03_rb,0.40487e-03_rb /)
+      kbo(:, 2,19, 6) = (/ &
+        & 0.55098e-04_rb,0.62505e-03_rb,0.79728e-03_rb,0.79071e-03_rb,0.42904e-03_rb /)
+      kbo(:, 3,19, 6) = (/ &
+        & 0.59690e-04_rb,0.65071e-03_rb,0.82294e-03_rb,0.81671e-03_rb,0.45375e-03_rb /)
+      kbo(:, 4,19, 6) = (/ &
+        & 0.63457e-04_rb,0.67490e-03_rb,0.84635e-03_rb,0.84245e-03_rb,0.47833e-03_rb /)
+      kbo(:, 5,19, 6) = (/ &
+        & 0.66538e-04_rb,0.69683e-03_rb,0.86805e-03_rb,0.86812e-03_rb,0.50238e-03_rb /)
+      kbo(:, 1,20, 6) = (/ &
+        & 0.41277e-04_rb,0.49854e-03_rb,0.64043e-03_rb,0.63582e-03_rb,0.33885e-03_rb /)
+      kbo(:, 2,20, 6) = (/ &
+        & 0.45557e-04_rb,0.52197e-03_rb,0.66408e-03_rb,0.65859e-03_rb,0.35960e-03_rb /)
+      kbo(:, 3,20, 6) = (/ &
+        & 0.49226e-04_rb,0.54380e-03_rb,0.68582e-03_rb,0.68111e-03_rb,0.38108e-03_rb /)
+      kbo(:, 4,20, 6) = (/ &
+        & 0.52238e-04_rb,0.56442e-03_rb,0.70598e-03_rb,0.70364e-03_rb,0.40199e-03_rb /)
+      kbo(:, 5,20, 6) = (/ &
+        & 0.54694e-04_rb,0.58320e-03_rb,0.72504e-03_rb,0.72645e-03_rb,0.42282e-03_rb /)
+      kbo(:, 1,21, 6) = (/ &
+        & 0.34218e-04_rb,0.41624e-03_rb,0.53312e-03_rb,0.52912e-03_rb,0.28376e-03_rb /)
+      kbo(:, 2,21, 6) = (/ &
+        & 0.37670e-04_rb,0.43597e-03_rb,0.55316e-03_rb,0.54893e-03_rb,0.30161e-03_rb /)
+      kbo(:, 3,21, 6) = (/ &
+        & 0.40602e-04_rb,0.45467e-03_rb,0.57178e-03_rb,0.56861e-03_rb,0.32023e-03_rb /)
+      kbo(:, 4,21, 6) = (/ &
+        & 0.43009e-04_rb,0.47220e-03_rb,0.58931e-03_rb,0.58850e-03_rb,0.33805e-03_rb /)
+      kbo(:, 5,21, 6) = (/ &
+        & 0.44968e-04_rb,0.48850e-03_rb,0.60624e-03_rb,0.60867e-03_rb,0.35633e-03_rb /)
+      kbo(:, 1,22, 6) = (/ &
+        & 0.28554e-04_rb,0.34872e-03_rb,0.44519e-03_rb,0.44203e-03_rb,0.23865e-03_rb /)
+      kbo(:, 2,22, 6) = (/ &
+        & 0.31312e-04_rb,0.36543e-03_rb,0.46215e-03_rb,0.45896e-03_rb,0.25429e-03_rb /)
+      kbo(:, 3,22, 6) = (/ &
+        & 0.33623e-04_rb,0.38136e-03_rb,0.47808e-03_rb,0.47625e-03_rb,0.27020e-03_rb /)
+      kbo(:, 4,22, 6) = (/ &
+        & 0.35518e-04_rb,0.39638e-03_rb,0.49352e-03_rb,0.49393e-03_rb,0.28567e-03_rb /)
+      kbo(:, 5,22, 6) = (/ &
+        & 0.37060e-04_rb,0.41046e-03_rb,0.50833e-03_rb,0.51152e-03_rb,0.30169e-03_rb /)
+      kbo(:, 1,23, 6) = (/ &
+        & 0.23825e-04_rb,0.29241e-03_rb,0.37202e-03_rb,0.36957e-03_rb,0.20120e-03_rb /)
+      kbo(:, 2,23, 6) = (/ &
+        & 0.26019e-04_rb,0.30664e-03_rb,0.38650e-03_rb,0.38433e-03_rb,0.21484e-03_rb /)
+      kbo(:, 3,23, 6) = (/ &
+        & 0.27840e-04_rb,0.32027e-03_rb,0.40038e-03_rb,0.39957e-03_rb,0.22829e-03_rb /)
+      kbo(:, 4,23, 6) = (/ &
+        & 0.29329e-04_rb,0.33317e-03_rb,0.41396e-03_rb,0.41498e-03_rb,0.24169e-03_rb /)
+      kbo(:, 5,23, 6) = (/ &
+        & 0.30542e-04_rb,0.34547e-03_rb,0.42681e-03_rb,0.43048e-03_rb,0.25568e-03_rb /)
+      kbo(:, 1,24, 6) = (/ &
+        & 0.19879e-04_rb,0.24552e-03_rb,0.31135e-03_rb,0.30936e-03_rb,0.16986e-03_rb /)
+      kbo(:, 2,24, 6) = (/ &
+        & 0.21617e-04_rb,0.25767e-03_rb,0.32376e-03_rb,0.32228e-03_rb,0.18173e-03_rb /)
+      kbo(:, 3,24, 6) = (/ &
+        & 0.23050e-04_rb,0.26937e-03_rb,0.33590e-03_rb,0.33579e-03_rb,0.19320e-03_rb /)
+      kbo(:, 4,24, 6) = (/ &
+        & 0.24217e-04_rb,0.28054e-03_rb,0.34772e-03_rb,0.34922e-03_rb,0.20501e-03_rb /)
+      kbo(:, 5,24, 6) = (/ &
+        & 0.25164e-04_rb,0.29121e-03_rb,0.35883e-03_rb,0.36286e-03_rb,0.21708e-03_rb /)
+      kbo(:, 1,25, 6) = (/ &
+        & 0.16589e-04_rb,0.20645e-03_rb,0.26087e-03_rb,0.25944e-03_rb,0.14369e-03_rb /)
+      kbo(:, 2,25, 6) = (/ &
+        & 0.17961e-04_rb,0.21688e-03_rb,0.27162e-03_rb,0.27083e-03_rb,0.15386e-03_rb /)
+      kbo(:, 3,25, 6) = (/ &
+        & 0.19083e-04_rb,0.22697e-03_rb,0.28229e-03_rb,0.28258e-03_rb,0.16383e-03_rb /)
+      kbo(:, 4,25, 6) = (/ &
+        & 0.19998e-04_rb,0.23668e-03_rb,0.29245e-03_rb,0.29438e-03_rb,0.17418e-03_rb /)
+      kbo(:, 5,25, 6) = (/ &
+        & 0.20737e-04_rb,0.24589e-03_rb,0.30216e-03_rb,0.30647e-03_rb,0.18465e-03_rb /)
+      kbo(:, 1,26, 6) = (/ &
+        & 0.13858e-04_rb,0.17402e-03_rb,0.21906e-03_rb,0.21804e-03_rb,0.12205e-03_rb /)
+      kbo(:, 2,26, 6) = (/ &
+        & 0.14930e-04_rb,0.18300e-03_rb,0.22843e-03_rb,0.22813e-03_rb,0.13065e-03_rb /)
+      kbo(:, 3,26, 6) = (/ &
+        & 0.15807e-04_rb,0.19174e-03_rb,0.23770e-03_rb,0.23830e-03_rb,0.13933e-03_rb /)
+      kbo(:, 4,26, 6) = (/ &
+        & 0.16522e-04_rb,0.20010e-03_rb,0.24640e-03_rb,0.24876e-03_rb,0.14837e-03_rb /)
+      kbo(:, 5,26, 6) = (/ &
+        & 0.17090e-04_rb,0.20798e-03_rb,0.25500e-03_rb,0.25943e-03_rb,0.15748e-03_rb /)
+      kbo(:, 1,27, 6) = (/ &
+        & 0.11565e-04_rb,0.14689e-03_rb,0.18423e-03_rb,0.18358e-03_rb,0.10372e-03_rb /)
+      kbo(:, 2,27, 6) = (/ &
+        & 0.12404e-04_rb,0.15466e-03_rb,0.19242e-03_rb,0.19242e-03_rb,0.11104e-03_rb /)
+      kbo(:, 3,27, 6) = (/ &
+        & 0.13088e-04_rb,0.16225e-03_rb,0.20035e-03_rb,0.20136e-03_rb,0.11877e-03_rb /)
+      kbo(:, 4,27, 6) = (/ &
+        & 0.13644e-04_rb,0.16938e-03_rb,0.20793e-03_rb,0.21054e-03_rb,0.12658e-03_rb /)
+      kbo(:, 5,27, 6) = (/ &
+        & 0.14079e-04_rb,0.17614e-03_rb,0.21553e-03_rb,0.22004e-03_rb,0.13455e-03_rb /)
+      kbo(:, 1,28, 6) = (/ &
+        & 0.96429e-05_rb,0.12422e-03_rb,0.15518e-03_rb,0.15486e-03_rb,0.88240e-04_rb /)
+      kbo(:, 2,28, 6) = (/ &
+        & 0.10297e-04_rb,0.13093e-03_rb,0.16229e-03_rb,0.16255e-03_rb,0.94664e-04_rb /)
+      kbo(:, 3,28, 6) = (/ &
+        & 0.10829e-04_rb,0.13744e-03_rb,0.16911e-03_rb,0.17043e-03_rb,0.10137e-03_rb /)
+      kbo(:, 4,28, 6) = (/ &
+        & 0.11263e-04_rb,0.14355e-03_rb,0.17577e-03_rb,0.17861e-03_rb,0.10818e-03_rb /)
+      kbo(:, 5,28, 6) = (/ &
+        & 0.11593e-04_rb,0.14936e-03_rb,0.18245e-03_rb,0.18698e-03_rb,0.11517e-03_rb /)
+      kbo(:, 1,29, 6) = (/ &
+        & 0.80357e-05_rb,0.10525e-03_rb,0.13098e-03_rb,0.13087e-03_rb,0.75199e-04_rb /)
+      kbo(:, 2,29, 6) = (/ &
+        & 0.85457e-05_rb,0.11106e-03_rb,0.13709e-03_rb,0.13756e-03_rb,0.80877e-04_rb /)
+      kbo(:, 3,29, 6) = (/ &
+        & 0.89585e-05_rb,0.11659e-03_rb,0.14298e-03_rb,0.14458e-03_rb,0.86703e-04_rb /)
+      kbo(:, 4,29, 6) = (/ &
+        & 0.92936e-05_rb,0.12185e-03_rb,0.14887e-03_rb,0.15184e-03_rb,0.92679e-04_rb /)
+      kbo(:, 5,29, 6) = (/ &
+        & 0.95413e-05_rb,0.12685e-03_rb,0.15476e-03_rb,0.15926e-03_rb,0.98770e-04_rb /)
+      kbo(:, 1,30, 6) = (/ &
+        & 0.66891e-05_rb,0.89326e-04_rb,0.11070e-03_rb,0.11075e-03_rb,0.64254e-04_rb /)
+      kbo(:, 2,30, 6) = (/ &
+        & 0.70855e-05_rb,0.94280e-04_rb,0.11595e-03_rb,0.11668e-03_rb,0.69215e-04_rb /)
+      kbo(:, 3,30, 6) = (/ &
+        & 0.74068e-05_rb,0.99029e-04_rb,0.12112e-03_rb,0.12290e-03_rb,0.74278e-04_rb /)
+      kbo(:, 4,30, 6) = (/ &
+        & 0.76634e-05_rb,0.10356e-03_rb,0.12631e-03_rb,0.12933e-03_rb,0.79489e-04_rb /)
+      kbo(:, 5,30, 6) = (/ &
+        & 0.78499e-05_rb,0.10785e-03_rb,0.13152e-03_rb,0.13588e-03_rb,0.84762e-04_rb /)
+      kbo(:, 1,31, 6) = (/ &
+        & 0.55647e-05_rb,0.75943e-04_rb,0.93695e-04_rb,0.93906e-04_rb,0.55002e-04_rb /)
+      kbo(:, 2,31, 6) = (/ &
+        & 0.58719e-05_rb,0.80167e-04_rb,0.98229e-04_rb,0.99204e-04_rb,0.59329e-04_rb /)
+      kbo(:, 3,31, 6) = (/ &
+        & 0.61212e-05_rb,0.84249e-04_rb,0.10281e-03_rb,0.10471e-03_rb,0.63778e-04_rb /)
+      kbo(:, 4,31, 6) = (/ &
+        & 0.63162e-05_rb,0.88122e-04_rb,0.10738e-03_rb,0.11041e-03_rb,0.68318e-04_rb /)
+      kbo(:, 5,31, 6) = (/ &
+        & 0.64553e-05_rb,0.91835e-04_rb,0.11204e-03_rb,0.11614e-03_rb,0.72907e-04_rb /)
+      kbo(:, 1,32, 6) = (/ &
+        & 0.46246e-05_rb,0.64633e-04_rb,0.79398e-04_rb,0.79831e-04_rb,0.47190e-04_rb /)
+      kbo(:, 2,32, 6) = (/ &
+        & 0.48628e-05_rb,0.68258e-04_rb,0.83383e-04_rb,0.84521e-04_rb,0.50953e-04_rb /)
+      kbo(:, 3,32, 6) = (/ &
+        & 0.50557e-05_rb,0.71758e-04_rb,0.87418e-04_rb,0.89417e-04_rb,0.54823e-04_rb /)
+      kbo(:, 4,32, 6) = (/ &
+        & 0.52035e-05_rb,0.75099e-04_rb,0.91481e-04_rb,0.94423e-04_rb,0.58785e-04_rb /)
+      kbo(:, 5,32, 6) = (/ &
+        & 0.53068e-05_rb,0.78317e-04_rb,0.95646e-04_rb,0.99452e-04_rb,0.62766e-04_rb /)
+      kbo(:, 1,33, 6) = (/ &
+        & 0.38403e-05_rb,0.55077e-04_rb,0.67410e-04_rb,0.68024e-04_rb,0.40538e-04_rb /)
+      kbo(:, 2,33, 6) = (/ &
+        & 0.40244e-05_rb,0.58199e-04_rb,0.70924e-04_rb,0.72180e-04_rb,0.43839e-04_rb /)
+      kbo(:, 3,33, 6) = (/ &
+        & 0.41730e-05_rb,0.61206e-04_rb,0.74475e-04_rb,0.76502e-04_rb,0.47222e-04_rb /)
+      kbo(:, 4,33, 6) = (/ &
+        & 0.42835e-05_rb,0.64091e-04_rb,0.78114e-04_rb,0.80883e-04_rb,0.50652e-04_rb /)
+      kbo(:, 5,33, 6) = (/ &
+        & 0.43604e-05_rb,0.66898e-04_rb,0.81798e-04_rb,0.85293e-04_rb,0.54102e-04_rb /)
+      kbo(:, 1,34, 6) = (/ &
+        & 0.31801e-05_rb,0.46888e-04_rb,0.57233e-04_rb,0.57945e-04_rb,0.34781e-04_rb /)
+      kbo(:, 2,34, 6) = (/ &
+        & 0.33244e-05_rb,0.49586e-04_rb,0.60319e-04_rb,0.61625e-04_rb,0.37646e-04_rb /)
+      kbo(:, 3,34, 6) = (/ &
+        & 0.34389e-05_rb,0.52183e-04_rb,0.63465e-04_rb,0.65422e-04_rb,0.40606e-04_rb /)
+      kbo(:, 4,34, 6) = (/ &
+        & 0.35228e-05_rb,0.54696e-04_rb,0.66697e-04_rb,0.69266e-04_rb,0.43571e-04_rb /)
+      kbo(:, 5,34, 6) = (/ &
+        & 0.35804e-05_rb,0.57162e-04_rb,0.69964e-04_rb,0.73120e-04_rb,0.46562e-04_rb /)
+      kbo(:, 1,35, 6) = (/ &
+        & 0.26200e-05_rb,0.39742e-04_rb,0.48410e-04_rb,0.49141e-04_rb,0.29639e-04_rb /)
+      kbo(:, 2,35, 6) = (/ &
+        & 0.27351e-05_rb,0.42075e-04_rb,0.51122e-04_rb,0.52382e-04_rb,0.32146e-04_rb /)
+      kbo(:, 3,35, 6) = (/ &
+        & 0.28253e-05_rb,0.44325e-04_rb,0.53916e-04_rb,0.55698e-04_rb,0.34701e-04_rb /)
+      kbo(:, 4,35, 6) = (/ &
+        & 0.28907e-05_rb,0.46530e-04_rb,0.56769e-04_rb,0.59068e-04_rb,0.37280e-04_rb /)
+      kbo(:, 5,35, 6) = (/ &
+        & 0.29354e-05_rb,0.48707e-04_rb,0.59649e-04_rb,0.62461e-04_rb,0.39864e-04_rb /)
+      kbo(:, 1,36, 6) = (/ &
+        & 0.21469e-05_rb,0.33498e-04_rb,0.40744e-04_rb,0.41427e-04_rb,0.25045e-04_rb /)
+      kbo(:, 2,36, 6) = (/ &
+        & 0.22407e-05_rb,0.35513e-04_rb,0.43124e-04_rb,0.44262e-04_rb,0.27227e-04_rb /)
+      kbo(:, 3,36, 6) = (/ &
+        & 0.23140e-05_rb,0.37481e-04_rb,0.45588e-04_rb,0.47157e-04_rb,0.29433e-04_rb /)
+      kbo(:, 4,36, 6) = (/ &
+        & 0.23673e-05_rb,0.39419e-04_rb,0.48109e-04_rb,0.50107e-04_rb,0.31672e-04_rb /)
+      kbo(:, 5,36, 6) = (/ &
+        & 0.24035e-05_rb,0.41345e-04_rb,0.50640e-04_rb,0.53089e-04_rb,0.33911e-04_rb /)
+      kbo(:, 1,37, 6) = (/ &
+        & 0.17464e-05_rb,0.27984e-04_rb,0.34007e-04_rb,0.34584e-04_rb,0.20899e-04_rb /)
+      kbo(:, 2,37, 6) = (/ &
+        & 0.18252e-05_rb,0.29737e-04_rb,0.36088e-04_rb,0.37051e-04_rb,0.22785e-04_rb /)
+      kbo(:, 3,37, 6) = (/ &
+        & 0.18877e-05_rb,0.31460e-04_rb,0.38247e-04_rb,0.39573e-04_rb,0.24687e-04_rb /)
+      kbo(:, 4,37, 6) = (/ &
+        & 0.19333e-05_rb,0.33165e-04_rb,0.40460e-04_rb,0.42146e-04_rb,0.26626e-04_rb /)
+      kbo(:, 5,37, 6) = (/ &
+        & 0.19647e-05_rb,0.34869e-04_rb,0.42691e-04_rb,0.44765e-04_rb,0.28561e-04_rb /)
+      kbo(:, 1,38, 6) = (/ &
+        & 0.14198e-05_rb,0.23364e-04_rb,0.28367e-04_rb,0.28854e-04_rb,0.17422e-04_rb /)
+      kbo(:, 2,38, 6) = (/ &
+        & 0.14862e-05_rb,0.24892e-04_rb,0.30186e-04_rb,0.30994e-04_rb,0.19047e-04_rb /)
+      kbo(:, 3,38, 6) = (/ &
+        & 0.15394e-05_rb,0.26399e-04_rb,0.32076e-04_rb,0.33192e-04_rb,0.20688e-04_rb /)
+      kbo(:, 4,38, 6) = (/ &
+        & 0.15786e-05_rb,0.27898e-04_rb,0.34020e-04_rb,0.35441e-04_rb,0.22360e-04_rb /)
+      kbo(:, 5,38, 6) = (/ &
+        & 0.16058e-05_rb,0.29401e-04_rb,0.35983e-04_rb,0.37735e-04_rb,0.24033e-04_rb /)
+      kbo(:, 1,39, 6) = (/ &
+        & 0.11541e-05_rb,0.19509e-04_rb,0.23663e-04_rb,0.24072e-04_rb,0.14521e-04_rb /)
+      kbo(:, 2,39, 6) = (/ &
+        & 0.12100e-05_rb,0.20837e-04_rb,0.25252e-04_rb,0.25929e-04_rb,0.15915e-04_rb /)
+      kbo(:, 3,39, 6) = (/ &
+        & 0.12551e-05_rb,0.22155e-04_rb,0.26902e-04_rb,0.27842e-04_rb,0.17331e-04_rb /)
+      kbo(:, 4,39, 6) = (/ &
+        & 0.12888e-05_rb,0.23470e-04_rb,0.28603e-04_rb,0.29806e-04_rb,0.18773e-04_rb /)
+      kbo(:, 5,39, 6) = (/ &
+        & 0.13123e-05_rb,0.24794e-04_rb,0.30331e-04_rb,0.31815e-04_rb,0.20216e-04_rb /)
+      kbo(:, 1,40, 6) = (/ &
+        & 0.93244e-06_rb,0.16171e-04_rb,0.19599e-04_rb,0.19918e-04_rb,0.11977e-04_rb /)
+      kbo(:, 2,40, 6) = (/ &
+        & 0.98059e-06_rb,0.17324e-04_rb,0.20976e-04_rb,0.21519e-04_rb,0.13169e-04_rb /)
+      kbo(:, 3,40, 6) = (/ &
+        & 0.10196e-05_rb,0.18475e-04_rb,0.22411e-04_rb,0.23178e-04_rb,0.14387e-04_rb /)
+      kbo(:, 4,40, 6) = (/ &
+        & 0.10496e-05_rb,0.19626e-04_rb,0.23897e-04_rb,0.24887e-04_rb,0.15625e-04_rb /)
+      kbo(:, 5,40, 6) = (/ &
+        & 0.10706e-05_rb,0.20792e-04_rb,0.25411e-04_rb,0.26641e-04_rb,0.16871e-04_rb /)
+      kbo(:, 1,41, 6) = (/ &
+        & 0.75206e-06_rb,0.13381e-04_rb,0.16204e-04_rb,0.16448e-04_rb,0.98582e-05_rb /)
+      kbo(:, 2,41, 6) = (/ &
+        & 0.79368e-06_rb,0.14380e-04_rb,0.17395e-04_rb,0.17824e-04_rb,0.10873e-04_rb /)
+      kbo(:, 3,41, 6) = (/ &
+        & 0.82742e-06_rb,0.15382e-04_rb,0.18640e-04_rb,0.19259e-04_rb,0.11916e-04_rb /)
+      kbo(:, 4,41, 6) = (/ &
+        & 0.85390e-06_rb,0.16388e-04_rb,0.19935e-04_rb,0.20745e-04_rb,0.12979e-04_rb /)
+      kbo(:, 5,41, 6) = (/ &
+        & 0.87281e-06_rb,0.17412e-04_rb,0.21261e-04_rb,0.22271e-04_rb,0.14053e-04_rb /)
+      kbo(:, 1,42, 6) = (/ &
+        & 0.60591e-06_rb,0.11061e-04_rb,0.13385e-04_rb,0.13568e-04_rb,0.81045e-05_rb /)
+      kbo(:, 2,42, 6) = (/ &
+        & 0.64182e-06_rb,0.11926e-04_rb,0.14412e-04_rb,0.14751e-04_rb,0.89661e-05_rb /)
+      kbo(:, 3,42, 6) = (/ &
+        & 0.67101e-06_rb,0.12797e-04_rb,0.15489e-04_rb,0.15987e-04_rb,0.98578e-05_rb /)
+      kbo(:, 4,42, 6) = (/ &
+        & 0.69427e-06_rb,0.13675e-04_rb,0.16616e-04_rb,0.17274e-04_rb,0.10770e-04_rb /)
+      kbo(:, 5,42, 6) = (/ &
+        & 0.71122e-06_rb,0.14573e-04_rb,0.17774e-04_rb,0.18601e-04_rb,0.11690e-04_rb /)
+      kbo(:, 1,43, 6) = (/ &
+        & 0.48565e-06_rb,0.90929e-05_rb,0.10998e-04_rb,0.11127e-04_rb,0.66136e-05_rb /)
+      kbo(:, 2,43, 6) = (/ &
+        & 0.51703e-06_rb,0.98401e-05_rb,0.11878e-04_rb,0.12136e-04_rb,0.73431e-05_rb /)
+      kbo(:, 3,43, 6) = (/ &
+        & 0.54246e-06_rb,0.10594e-04_rb,0.12807e-04_rb,0.13197e-04_rb,0.81019e-05_rb /)
+      kbo(:, 4,43, 6) = (/ &
+        & 0.56309e-06_rb,0.11359e-04_rb,0.13782e-04_rb,0.14306e-04_rb,0.88812e-05_rb /)
+      kbo(:, 5,43, 6) = (/ &
+        & 0.57854e-06_rb,0.12144e-04_rb,0.14791e-04_rb,0.15456e-04_rb,0.96685e-05_rb /)
+      kbo(:, 1,44, 6) = (/ &
+        & 0.38777e-06_rb,0.74478e-05_rb,0.90062e-05_rb,0.90921e-05_rb,0.53709e-05_rb /)
+      kbo(:, 2,44, 6) = (/ &
+        & 0.41522e-06_rb,0.80919e-05_rb,0.97570e-05_rb,0.99478e-05_rb,0.59889e-05_rb /)
+      kbo(:, 3,44, 6) = (/ &
+        & 0.43761e-06_rb,0.87433e-05_rb,0.10555e-04_rb,0.10856e-04_rb,0.66332e-05_rb /)
+      kbo(:, 4,44, 6) = (/ &
+        & 0.45584e-06_rb,0.94063e-05_rb,0.11395e-04_rb,0.11808e-04_rb,0.72955e-05_rb /)
+      kbo(:, 5,44, 6) = (/ &
+        & 0.46990e-06_rb,0.10091e-04_rb,0.12269e-04_rb,0.12799e-04_rb,0.79696e-05_rb /)
+      kbo(:, 1,45, 6) = (/ &
+        & 0.30888e-06_rb,0.60898e-05_rb,0.73632e-05_rb,0.74181e-05_rb,0.43535e-05_rb /)
+      kbo(:, 2,45, 6) = (/ &
+        & 0.33291e-06_rb,0.66440e-05_rb,0.80023e-05_rb,0.81416e-05_rb,0.48741e-05_rb /)
+      kbo(:, 3,45, 6) = (/ &
+        & 0.35255e-06_rb,0.72052e-05_rb,0.86855e-05_rb,0.89154e-05_rb,0.54207e-05_rb /)
+      kbo(:, 4,45, 6) = (/ &
+        & 0.36854e-06_rb,0.77787e-05_rb,0.94068e-05_rb,0.97308e-05_rb,0.59833e-05_rb /)
+      kbo(:, 5,45, 6) = (/ &
+        & 0.38125e-06_rb,0.83745e-05_rb,0.10163e-04_rb,0.10583e-04_rb,0.65578e-05_rb /)
+      kbo(:, 1,46, 6) = (/ &
+        & 0.24494e-06_rb,0.49598e-05_rb,0.59987e-05_rb,0.60289e-05_rb,0.35123e-05_rb /)
+      kbo(:, 2,46, 6) = (/ &
+        & 0.26595e-06_rb,0.54355e-05_rb,0.65411e-05_rb,0.66383e-05_rb,0.39494e-05_rb /)
+      kbo(:, 3,46, 6) = (/ &
+        & 0.28328e-06_rb,0.59173e-05_rb,0.71233e-05_rb,0.72943e-05_rb,0.44113e-05_rb /)
+      kbo(:, 4,46, 6) = (/ &
+        & 0.29735e-06_rb,0.64123e-05_rb,0.77406e-05_rb,0.79904e-05_rb,0.48883e-05_rb /)
+      kbo(:, 5,46, 6) = (/ &
+        & 0.30876e-06_rb,0.69283e-05_rb,0.83913e-05_rb,0.87211e-05_rb,0.53766e-05_rb /)
+      kbo(:, 1,47, 6) = (/ &
+        & 0.19287e-06_rb,0.40134e-05_rb,0.48586e-05_rb,0.48718e-05_rb,0.28114e-05_rb /)
+      kbo(:, 2,47, 6) = (/ &
+        & 0.21123e-06_rb,0.44208e-05_rb,0.53178e-05_rb,0.53794e-05_rb,0.31781e-05_rb /)
+      kbo(:, 3,47, 6) = (/ &
+        & 0.22658e-06_rb,0.48332e-05_rb,0.58104e-05_rb,0.59335e-05_rb,0.35646e-05_rb /)
+      kbo(:, 4,47, 6) = (/ &
+        & 0.23912e-06_rb,0.52582e-05_rb,0.63354e-05_rb,0.65230e-05_rb,0.39676e-05_rb /)
+      kbo(:, 5,47, 6) = (/ &
+        & 0.24931e-06_rb,0.57025e-05_rb,0.68920e-05_rb,0.71458e-05_rb,0.43826e-05_rb /)
+      kbo(:, 1,48, 6) = (/ &
+        & 0.15132e-06_rb,0.32395e-05_rb,0.39269e-05_rb,0.39289e-05_rb,0.22458e-05_rb /)
+      kbo(:, 2,48, 6) = (/ &
+        & 0.16716e-06_rb,0.35866e-05_rb,0.43144e-05_rb,0.43511e-05_rb,0.25512e-05_rb /)
+      kbo(:, 3,48, 6) = (/ &
+        & 0.18076e-06_rb,0.39391e-05_rb,0.47294e-05_rb,0.48161e-05_rb,0.28746e-05_rb /)
+      kbo(:, 4,48, 6) = (/ &
+        & 0.19194e-06_rb,0.43030e-05_rb,0.51748e-05_rb,0.53142e-05_rb,0.32135e-05_rb /)
+      kbo(:, 5,48, 6) = (/ &
+        & 0.20099e-06_rb,0.46842e-05_rb,0.56488e-05_rb,0.58430e-05_rb,0.35644e-05_rb /)
+      kbo(:, 1,49, 6) = (/ &
+        & 0.11828e-06_rb,0.26078e-05_rb,0.31672e-05_rb,0.31617e-05_rb,0.17894e-05_rb /)
+      kbo(:, 2,49, 6) = (/ &
+        & 0.13185e-06_rb,0.29029e-05_rb,0.34929e-05_rb,0.35125e-05_rb,0.20423e-05_rb /)
+      kbo(:, 3,49, 6) = (/ &
+        & 0.14378e-06_rb,0.32030e-05_rb,0.38409e-05_rb,0.39000e-05_rb,0.23121e-05_rb /)
+      kbo(:, 4,49, 6) = (/ &
+        & 0.15369e-06_rb,0.35139e-05_rb,0.42179e-05_rb,0.43198e-05_rb,0.25971e-05_rb /)
+      kbo(:, 5,49, 6) = (/ &
+        & 0.16176e-06_rb,0.38391e-05_rb,0.46198e-05_rb,0.47667e-05_rb,0.28929e-05_rb /)
+      kbo(:, 1,50, 6) = (/ &
+        & 0.92362e-07_rb,0.20997e-05_rb,0.25556e-05_rb,0.25471e-05_rb,0.14267e-05_rb /)
+      kbo(:, 2,50, 6) = (/ &
+        & 0.10390e-06_rb,0.23496e-05_rb,0.28286e-05_rb,0.28368e-05_rb,0.16356e-05_rb /)
+      kbo(:, 3,50, 6) = (/ &
+        & 0.11421e-06_rb,0.26049e-05_rb,0.31213e-05_rb,0.31606e-05_rb,0.18609e-05_rb /)
+      kbo(:, 4,50, 6) = (/ &
+        & 0.12297e-06_rb,0.28694e-05_rb,0.34392e-05_rb,0.35125e-05_rb,0.20996e-05_rb /)
+      kbo(:, 5,50, 6) = (/ &
+        & 0.13012e-06_rb,0.31471e-05_rb,0.37794e-05_rb,0.38900e-05_rb,0.23486e-05_rb /)
+      kbo(:, 1,51, 6) = (/ &
+        & 0.72029e-07_rb,0.16879e-05_rb,0.20606e-05_rb,0.20506e-05_rb,0.11365e-05_rb /)
+      kbo(:, 2,51, 6) = (/ &
+        & 0.81717e-07_rb,0.18994e-05_rb,0.22886e-05_rb,0.22902e-05_rb,0.13081e-05_rb /)
+      kbo(:, 3,51, 6) = (/ &
+        & 0.90547e-07_rb,0.21162e-05_rb,0.25347e-05_rb,0.25588e-05_rb,0.14964e-05_rb /)
+      kbo(:, 4,51, 6) = (/ &
+        & 0.98231e-07_rb,0.23407e-05_rb,0.28017e-05_rb,0.28537e-05_rb,0.16958e-05_rb /)
+      kbo(:, 5,51, 6) = (/ &
+        & 0.10454e-06_rb,0.25770e-05_rb,0.30891e-05_rb,0.31719e-05_rb,0.19053e-05_rb /)
+      kbo(:, 1,52, 6) = (/ &
+        & 0.55994e-07_rb,0.13535e-05_rb,0.16583e-05_rb,0.16483e-05_rb,0.90215e-06_rb /)
+      kbo(:, 2,52, 6) = (/ &
+        & 0.64065e-07_rb,0.15318e-05_rb,0.18483e-05_rb,0.18452e-05_rb,0.10447e-05_rb /)
+      kbo(:, 3,52, 6) = (/ &
+        & 0.71601e-07_rb,0.17156e-05_rb,0.20541e-05_rb,0.20679e-05_rb,0.12005e-05_rb /)
+      kbo(:, 4,52, 6) = (/ &
+        & 0.78265e-07_rb,0.19055e-05_rb,0.22786e-05_rb,0.23151e-05_rb,0.13673e-05_rb /)
+      kbo(:, 5,52, 6) = (/ &
+        & 0.83827e-07_rb,0.21062e-05_rb,0.25201e-05_rb,0.25812e-05_rb,0.15426e-05_rb /)
+      kbo(:, 1,53, 6) = (/ &
+        & 0.43376e-07_rb,0.10823e-05_rb,0.13316e-05_rb,0.13229e-05_rb,0.71387e-06_rb /)
+      kbo(:, 2,53, 6) = (/ &
+        & 0.50078e-07_rb,0.12320e-05_rb,0.14898e-05_rb,0.14843e-05_rb,0.83196e-06_rb /)
+      kbo(:, 3,53, 6) = (/ &
+        & 0.56440e-07_rb,0.13873e-05_rb,0.16612e-05_rb,0.16678e-05_rb,0.96085e-06_rb /)
+      kbo(:, 4,53, 6) = (/ &
+        & 0.62188e-07_rb,0.15481e-05_rb,0.18489e-05_rb,0.18736e-05_rb,0.10995e-05_rb /)
+      kbo(:, 5,53, 6) = (/ &
+        & 0.67072e-07_rb,0.17179e-05_rb,0.20520e-05_rb,0.20964e-05_rb,0.12465e-05_rb /)
+      kbo(:, 1,54, 6) = (/ &
+        & 0.33662e-07_rb,0.86685e-06_rb,0.10712e-05_rb,0.10638e-05_rb,0.56675e-06_rb /)
+      kbo(:, 2,54, 6) = (/ &
+        & 0.39188e-07_rb,0.99237e-06_rb,0.12024e-05_rb,0.11965e-05_rb,0.66407e-06_rb /)
+      kbo(:, 3,54, 6) = (/ &
+        & 0.44517e-07_rb,0.11234e-05_rb,0.13453e-05_rb,0.13477e-05_rb,0.77015e-06_rb /)
+      kbo(:, 4,54, 6) = (/ &
+        & 0.49410e-07_rb,0.12591e-05_rb,0.15022e-05_rb,0.15186e-05_rb,0.88568e-06_rb /)
+      kbo(:, 5,54, 6) = (/ &
+        & 0.53662e-07_rb,0.14028e-05_rb,0.16732e-05_rb,0.17054e-05_rb,0.10088e-05_rb /)
+      kbo(:, 1,55, 6) = (/ &
+        & 0.26107e-07_rb,0.69409e-06_rb,0.86148e-06_rb,0.85535e-06_rb,0.44993e-06_rb /)
+      kbo(:, 2,55, 6) = (/ &
+        & 0.30648e-07_rb,0.79874e-06_rb,0.97050e-06_rb,0.96432e-06_rb,0.52987e-06_rb /)
+      kbo(:, 3,55, 6) = (/ &
+        & 0.35070e-07_rb,0.90919e-06_rb,0.10893e-05_rb,0.10889e-05_rb,0.61727e-06_rb /)
+      kbo(:, 4,55, 6) = (/ &
+        & 0.39223e-07_rb,0.10237e-05_rb,0.12206e-05_rb,0.12308e-05_rb,0.71345e-06_rb /)
+      kbo(:, 5,55, 6) = (/ &
+        & 0.42897e-07_rb,0.11450e-05_rb,0.13641e-05_rb,0.13878e-05_rb,0.81614e-06_rb /)
+      kbo(:, 1,56, 6) = (/ &
+        & 0.20183e-07_rb,0.55461e-06_rb,0.69187e-06_rb,0.68686e-06_rb,0.35634e-06_rb /)
+      kbo(:, 2,56, 6) = (/ &
+        & 0.23906e-07_rb,0.64143e-06_rb,0.78193e-06_rb,0.77615e-06_rb,0.42133e-06_rb /)
+      kbo(:, 3,56, 6) = (/ &
+        & 0.27573e-07_rb,0.73422e-06_rb,0.88059e-06_rb,0.87848e-06_rb,0.49387e-06_rb /)
+      kbo(:, 4,56, 6) = (/ &
+        & 0.31066e-07_rb,0.83083e-06_rb,0.99001e-06_rb,0.99604e-06_rb,0.57362e-06_rb /)
+      kbo(:, 5,56, 6) = (/ &
+        & 0.34213e-07_rb,0.93302e-06_rb,0.11103e-05_rb,0.11271e-05_rb,0.65906e-06_rb /)
+      kbo(:, 1,57, 6) = (/ &
+        & 0.15553e-07_rb,0.44221e-06_rb,0.55475e-06_rb,0.55051e-06_rb,0.28158e-06_rb /)
+      kbo(:, 2,57, 6) = (/ &
+        & 0.18597e-07_rb,0.51387e-06_rb,0.62883e-06_rb,0.62381e-06_rb,0.33432e-06_rb /)
+      kbo(:, 3,57, 6) = (/ &
+        & 0.21627e-07_rb,0.59165e-06_rb,0.71079e-06_rb,0.70768e-06_rb,0.39423e-06_rb /)
+      kbo(:, 4,57, 6) = (/ &
+        & 0.24548e-07_rb,0.67286e-06_rb,0.80159e-06_rb,0.80451e-06_rb,0.46009e-06_rb /)
+      kbo(:, 5,57, 6) = (/ &
+        & 0.27223e-07_rb,0.75870e-06_rb,0.90196e-06_rb,0.91372e-06_rb,0.53126e-06_rb /)
+      kbo(:, 1,58, 6) = (/ &
+        & 0.11989e-07_rb,0.35271e-06_rb,0.44504e-06_rb,0.44164e-06_rb,0.22247e-06_rb /)
+      kbo(:, 2,58, 6) = (/ &
+        & 0.14473e-07_rb,0.41167e-06_rb,0.50593e-06_rb,0.50179e-06_rb,0.26557e-06_rb /)
+      kbo(:, 3,58, 6) = (/ &
+        & 0.16959e-07_rb,0.47681e-06_rb,0.57389e-06_rb,0.57055e-06_rb,0.31488e-06_rb /)
+      kbo(:, 4,58, 6) = (/ &
+        & 0.19386e-07_rb,0.54503e-06_rb,0.64933e-06_rb,0.65043e-06_rb,0.36927e-06_rb /)
+      kbo(:, 5,58, 6) = (/ &
+        & 0.21655e-07_rb,0.61705e-06_rb,0.73285e-06_rb,0.74092e-06_rb,0.42823e-06_rb /)
+      kbo(:, 1,59, 6) = (/ &
+        & 0.95745e-08_rb,0.28909e-06_rb,0.36504e-06_rb,0.36221e-06_rb,0.18143e-06_rb /)
+      kbo(:, 2,59, 6) = (/ &
+        & 0.11602e-07_rb,0.33869e-06_rb,0.41625e-06_rb,0.41267e-06_rb,0.21754e-06_rb /)
+      kbo(:, 3,59, 6) = (/ &
+        & 0.13639e-07_rb,0.39363e-06_rb,0.47345e-06_rb,0.47053e-06_rb,0.25873e-06_rb /)
+      kbo(:, 4,59, 6) = (/ &
+        & 0.15635e-07_rb,0.45132e-06_rb,0.53722e-06_rb,0.53779e-06_rb,0.30436e-06_rb /)
+      kbo(:, 5,59, 6) = (/ &
+        & 0.17515e-07_rb,0.51255e-06_rb,0.60804e-06_rb,0.61445e-06_rb,0.35395e-06_rb /)
+      kbo(:, 1,13, 7) = (/ &
+        & 0.13818e-02_rb,0.53095e-02_rb,0.61744e-02_rb,0.61409e-02_rb,0.38201e-02_rb /)
+      kbo(:, 2,13, 7) = (/ &
+        & 0.14927e-02_rb,0.54262e-02_rb,0.63169e-02_rb,0.63268e-02_rb,0.39787e-02_rb /)
+      kbo(:, 3,13, 7) = (/ &
+        & 0.15882e-02_rb,0.55245e-02_rb,0.64575e-02_rb,0.65042e-02_rb,0.41285e-02_rb /)
+      kbo(:, 4,13, 7) = (/ &
+        & 0.16683e-02_rb,0.56028e-02_rb,0.65859e-02_rb,0.66764e-02_rb,0.42766e-02_rb /)
+      kbo(:, 5,13, 7) = (/ &
+        & 0.17364e-02_rb,0.56642e-02_rb,0.66996e-02_rb,0.68400e-02_rb,0.44196e-02_rb /)
+      kbo(:, 1,14, 7) = (/ &
+        & 0.11439e-02_rb,0.44642e-02_rb,0.52052e-02_rb,0.51954e-02_rb,0.32185e-02_rb /)
+      kbo(:, 2,14, 7) = (/ &
+        & 0.12322e-02_rb,0.45612e-02_rb,0.53295e-02_rb,0.53554e-02_rb,0.33544e-02_rb /)
+      kbo(:, 3,14, 7) = (/ &
+        & 0.13082e-02_rb,0.46425e-02_rb,0.54474e-02_rb,0.55111e-02_rb,0.34869e-02_rb /)
+      kbo(:, 4,14, 7) = (/ &
+        & 0.13723e-02_rb,0.47078e-02_rb,0.55568e-02_rb,0.56605e-02_rb,0.36178e-02_rb /)
+      kbo(:, 5,14, 7) = (/ &
+        & 0.14273e-02_rb,0.47614e-02_rb,0.56536e-02_rb,0.58004e-02_rb,0.37445e-02_rb /)
+      kbo(:, 1,15, 7) = (/ &
+        & 0.94600e-03_rb,0.37452e-02_rb,0.43786e-02_rb,0.43839e-02_rb,0.27064e-02_rb /)
+      kbo(:, 2,15, 7) = (/ &
+        & 0.10166e-02_rb,0.38272e-02_rb,0.44845e-02_rb,0.45238e-02_rb,0.28259e-02_rb /)
+      kbo(:, 3,15, 7) = (/ &
+        & 0.10772e-02_rb,0.38951e-02_rb,0.45852e-02_rb,0.46569e-02_rb,0.29424e-02_rb /)
+      kbo(:, 4,15, 7) = (/ &
+        & 0.11287e-02_rb,0.39508e-02_rb,0.46776e-02_rb,0.47856e-02_rb,0.30573e-02_rb /)
+      kbo(:, 5,15, 7) = (/ &
+        & 0.11727e-02_rb,0.39984e-02_rb,0.47639e-02_rb,0.49094e-02_rb,0.31707e-02_rb /)
+      kbo(:, 1,16, 7) = (/ &
+        & 0.78170e-03_rb,0.31386e-02_rb,0.36753e-02_rb,0.36925e-02_rb,0.22749e-02_rb /)
+      kbo(:, 2,16, 7) = (/ &
+        & 0.83828e-03_rb,0.32067e-02_rb,0.37655e-02_rb,0.38108e-02_rb,0.23791e-02_rb /)
+      kbo(:, 3,16, 7) = (/ &
+        & 0.88677e-03_rb,0.32636e-02_rb,0.38524e-02_rb,0.39267e-02_rb,0.24809e-02_rb /)
+      kbo(:, 4,16, 7) = (/ &
+        & 0.92814e-03_rb,0.33127e-02_rb,0.39332e-02_rb,0.40389e-02_rb,0.25819e-02_rb /)
+      kbo(:, 5,16, 7) = (/ &
+        & 0.96342e-03_rb,0.33561e-02_rb,0.40123e-02_rb,0.41493e-02_rb,0.26825e-02_rb /)
+      kbo(:, 1,17, 7) = (/ &
+        & 0.64513e-03_rb,0.26258e-02_rb,0.30792e-02_rb,0.31027e-02_rb,0.19109e-02_rb /)
+      kbo(:, 2,17, 7) = (/ &
+        & 0.69065e-03_rb,0.26830e-02_rb,0.31573e-02_rb,0.32056e-02_rb,0.20013e-02_rb /)
+      kbo(:, 3,17, 7) = (/ &
+        & 0.72951e-03_rb,0.27321e-02_rb,0.32326e-02_rb,0.33061e-02_rb,0.20905e-02_rb /)
+      kbo(:, 4,17, 7) = (/ &
+        & 0.76279e-03_rb,0.27759e-02_rb,0.33057e-02_rb,0.34049e-02_rb,0.21791e-02_rb /)
+      kbo(:, 5,17, 7) = (/ &
+        & 0.79127e-03_rb,0.28164e-02_rb,0.33776e-02_rb,0.35037e-02_rb,0.22680e-02_rb /)
+      kbo(:, 1,18, 7) = (/ &
+        & 0.53216e-03_rb,0.21945e-02_rb,0.25768e-02_rb,0.26041e-02_rb,0.16047e-02_rb /)
+      kbo(:, 2,18, 7) = (/ &
+        & 0.56878e-03_rb,0.22431e-02_rb,0.26453e-02_rb,0.26934e-02_rb,0.16829e-02_rb /)
+      kbo(:, 3,18, 7) = (/ &
+        & 0.60002e-03_rb,0.22864e-02_rb,0.27121e-02_rb,0.27812e-02_rb,0.17605e-02_rb /)
+      kbo(:, 4,18, 7) = (/ &
+        & 0.62666e-03_rb,0.23265e-02_rb,0.27778e-02_rb,0.28689e-02_rb,0.18389e-02_rb /)
+      kbo(:, 5,18, 7) = (/ &
+        & 0.64956e-03_rb,0.23645e-02_rb,0.28436e-02_rb,0.29587e-02_rb,0.19175e-02_rb /)
+      kbo(:, 1,19, 7) = (/ &
+        & 0.43878e-03_rb,0.18328e-02_rb,0.21555e-02_rb,0.21844e-02_rb,0.13470e-02_rb /)
+      kbo(:, 2,19, 7) = (/ &
+        & 0.46832e-03_rb,0.18749e-02_rb,0.22160e-02_rb,0.22619e-02_rb,0.14147e-02_rb /)
+      kbo(:, 3,19, 7) = (/ &
+        & 0.49337e-03_rb,0.19136e-02_rb,0.22752e-02_rb,0.23395e-02_rb,0.14834e-02_rb /)
+      kbo(:, 4,19, 7) = (/ &
+        & 0.51483e-03_rb,0.19509e-02_rb,0.23344e-02_rb,0.24177e-02_rb,0.15526e-02_rb /)
+      kbo(:, 5,19, 7) = (/ &
+        & 0.53321e-03_rb,0.19863e-02_rb,0.23950e-02_rb,0.24983e-02_rb,0.16228e-02_rb /)
+      kbo(:, 1,20, 7) = (/ &
+        & 0.36218e-03_rb,0.15310e-02_rb,0.18044e-02_rb,0.18333e-02_rb,0.11320e-02_rb /)
+      kbo(:, 2,20, 7) = (/ &
+        & 0.38587e-03_rb,0.15681e-02_rb,0.18573e-02_rb,0.19010e-02_rb,0.11911e-02_rb /)
+      kbo(:, 3,20, 7) = (/ &
+        & 0.40599e-03_rb,0.16034e-02_rb,0.19105e-02_rb,0.19693e-02_rb,0.12516e-02_rb /)
+      kbo(:, 4,20, 7) = (/ &
+        & 0.42327e-03_rb,0.16372e-02_rb,0.19642e-02_rb,0.20400e-02_rb,0.13133e-02_rb /)
+      kbo(:, 5,20, 7) = (/ &
+        & 0.43800e-03_rb,0.16702e-02_rb,0.20196e-02_rb,0.21120e-02_rb,0.13760e-02_rb /)
+      kbo(:, 1,21, 7) = (/ &
+        & 0.29894e-03_rb,0.12794e-02_rb,0.15109e-02_rb,0.15392e-02_rb,0.95196e-03_rb /)
+      kbo(:, 2,21, 7) = (/ &
+        & 0.31795e-03_rb,0.13126e-02_rb,0.15578e-02_rb,0.15985e-02_rb,0.10041e-02_rb /)
+      kbo(:, 3,21, 7) = (/ &
+        & 0.33409e-03_rb,0.13444e-02_rb,0.16054e-02_rb,0.16590e-02_rb,0.10575e-02_rb /)
+      kbo(:, 4,21, 7) = (/ &
+        & 0.34798e-03_rb,0.13752e-02_rb,0.16542e-02_rb,0.17228e-02_rb,0.11124e-02_rb /)
+      kbo(:, 5,21, 7) = (/ &
+        & 0.35982e-03_rb,0.14062e-02_rb,0.17046e-02_rb,0.17872e-02_rb,0.11688e-02_rb /)
+      kbo(:, 1,22, 7) = (/ &
+        & 0.24779e-03_rb,0.10720e-02_rb,0.12687e-02_rb,0.12959e-02_rb,0.80428e-03_rb /)
+      kbo(:, 2,22, 7) = (/ &
+        & 0.26287e-03_rb,0.11012e-02_rb,0.13104e-02_rb,0.13483e-02_rb,0.85046e-03_rb /)
+      kbo(:, 3,22, 7) = (/ &
+        & 0.27570e-03_rb,0.11300e-02_rb,0.13532e-02_rb,0.14032e-02_rb,0.89796e-03_rb /)
+      kbo(:, 4,22, 7) = (/ &
+        & 0.28676e-03_rb,0.11583e-02_rb,0.13978e-02_rb,0.14602e-02_rb,0.94722e-03_rb /)
+      kbo(:, 5,22, 7) = (/ &
+        & 0.29612e-03_rb,0.11873e-02_rb,0.14439e-02_rb,0.15185e-02_rb,0.99812e-03_rb /)
+      kbo(:, 1,23, 7) = (/ &
+        & 0.20536e-03_rb,0.89901e-03_rb,0.10666e-02_rb,0.10925e-02_rb,0.68077e-03_rb /)
+      kbo(:, 2,23, 7) = (/ &
+        & 0.21732e-03_rb,0.92514e-03_rb,0.11037e-02_rb,0.11394e-02_rb,0.72189e-03_rb /)
+      kbo(:, 3,23, 7) = (/ &
+        & 0.22752e-03_rb,0.95109e-03_rb,0.11426e-02_rb,0.11888e-02_rb,0.76437e-03_rb /)
+      kbo(:, 4,23, 7) = (/ &
+        & 0.23632e-03_rb,0.97728e-03_rb,0.11832e-02_rb,0.12403e-02_rb,0.80877e-03_rb /)
+      kbo(:, 5,23, 7) = (/ &
+        & 0.24369e-03_rb,0.10040e-02_rb,0.12260e-02_rb,0.12934e-02_rb,0.85489e-03_rb /)
+      kbo(:, 1,24, 7) = (/ &
+        & 0.17021e-03_rb,0.75506e-03_rb,0.89800e-03_rb,0.92265e-03_rb,0.57788e-03_rb /)
+      kbo(:, 2,24, 7) = (/ &
+        & 0.17969e-03_rb,0.77853e-03_rb,0.93149e-03_rb,0.96497e-03_rb,0.61443e-03_rb /)
+      kbo(:, 3,24, 7) = (/ &
+        & 0.18778e-03_rb,0.80207e-03_rb,0.96680e-03_rb,0.10097e-02_rb,0.65278e-03_rb /)
+      kbo(:, 4,24, 7) = (/ &
+        & 0.19477e-03_rb,0.82622e-03_rb,0.10041e-02_rb,0.10564e-02_rb,0.69293e-03_rb /)
+      kbo(:, 5,24, 7) = (/ &
+        & 0.20055e-03_rb,0.85104e-03_rb,0.10439e-02_rb,0.11053e-02_rb,0.73424e-03_rb /)
+      kbo(:, 1,25, 7) = (/ &
+        & 0.14110e-03_rb,0.63531e-03_rb,0.75746e-03_rb,0.78109e-03_rb,0.49195e-03_rb /)
+      kbo(:, 2,25, 7) = (/ &
+        & 0.14860e-03_rb,0.65629e-03_rb,0.78801e-03_rb,0.81951e-03_rb,0.52472e-03_rb /)
+      kbo(:, 3,25, 7) = (/ &
+        & 0.15502e-03_rb,0.67802e-03_rb,0.82018e-03_rb,0.86005e-03_rb,0.55929e-03_rb /)
+      kbo(:, 4,25, 7) = (/ &
+        & 0.16054e-03_rb,0.70023e-03_rb,0.85487e-03_rb,0.90270e-03_rb,0.59546e-03_rb /)
+      kbo(:, 5,25, 7) = (/ &
+        & 0.16506e-03_rb,0.72333e-03_rb,0.89213e-03_rb,0.94794e-03_rb,0.63296e-03_rb /)
+      kbo(:, 1,26, 7) = (/ &
+        & 0.11704e-03_rb,0.53563e-03_rb,0.64089e-03_rb,0.66348e-03_rb,0.42036e-03_rb /)
+      kbo(:, 2,26, 7) = (/ &
+        & 0.12296e-03_rb,0.55482e-03_rb,0.66859e-03_rb,0.69842e-03_rb,0.44986e-03_rb /)
+      kbo(:, 3,26, 7) = (/ &
+        & 0.12804e-03_rb,0.57460e-03_rb,0.69838e-03_rb,0.73532e-03_rb,0.48115e-03_rb /)
+      kbo(:, 4,26, 7) = (/ &
+        & 0.13237e-03_rb,0.59528e-03_rb,0.73081e-03_rb,0.77472e-03_rb,0.51371e-03_rb /)
+      kbo(:, 5,26, 7) = (/ &
+        & 0.13587e-03_rb,0.61708e-03_rb,0.76562e-03_rb,0.81649e-03_rb,0.54800e-03_rb /)
+      kbo(:, 1,27, 7) = (/ &
+        & 0.97037e-04_rb,0.45263e-03_rb,0.54353e-03_rb,0.56528e-03_rb,0.36031e-03_rb /)
+      kbo(:, 2,27, 7) = (/ &
+        & 0.10171e-03_rb,0.47018e-03_rb,0.56899e-03_rb,0.59710e-03_rb,0.38698e-03_rb /)
+      kbo(:, 3,27, 7) = (/ &
+        & 0.10572e-03_rb,0.48833e-03_rb,0.59675e-03_rb,0.63096e-03_rb,0.41505e-03_rb /)
+      kbo(:, 4,27, 7) = (/ &
+        & 0.10911e-03_rb,0.50767e-03_rb,0.62713e-03_rb,0.66736e-03_rb,0.44466e-03_rb /)
+      kbo(:, 5,27, 7) = (/ &
+        & 0.11182e-03_rb,0.52830e-03_rb,0.65949e-03_rb,0.70600e-03_rb,0.47625e-03_rb /)
+      kbo(:, 1,28, 7) = (/ &
+        & 0.80419e-04_rb,0.38349e-03_rb,0.46224e-03_rb,0.48308e-03_rb,0.30982e-03_rb /)
+      kbo(:, 2,28, 7) = (/ &
+        & 0.84110e-04_rb,0.39943e-03_rb,0.48584e-03_rb,0.51214e-03_rb,0.33386e-03_rb /)
+      kbo(:, 3,28, 7) = (/ &
+        & 0.87283e-04_rb,0.41636e-03_rb,0.51189e-03_rb,0.54353e-03_rb,0.35924e-03_rb /)
+      kbo(:, 4,28, 7) = (/ &
+        & 0.89914e-04_rb,0.43456e-03_rb,0.54020e-03_rb,0.57698e-03_rb,0.38635e-03_rb /)
+      kbo(:, 5,28, 7) = (/ &
+        & 0.92003e-04_rb,0.45406e-03_rb,0.57030e-03_rb,0.61286e-03_rb,0.41553e-03_rb /)
+      kbo(:, 1,29, 7) = (/ &
+        & 0.66637e-04_rb,0.32580e-03_rb,0.39453e-03_rb,0.41439e-03_rb,0.26738e-03_rb /)
+      kbo(:, 2,29, 7) = (/ &
+        & 0.69552e-04_rb,0.34052e-03_rb,0.41660e-03_rb,0.44116e-03_rb,0.28904e-03_rb /)
+      kbo(:, 3,29, 7) = (/ &
+        & 0.72042e-04_rb,0.35633e-03_rb,0.44102e-03_rb,0.47005e-03_rb,0.31218e-03_rb /)
+      kbo(:, 4,29, 7) = (/ &
+        & 0.74082e-04_rb,0.37351e-03_rb,0.46731e-03_rb,0.50108e-03_rb,0.33714e-03_rb /)
+      kbo(:, 5,29, 7) = (/ &
+        & 0.75692e-04_rb,0.39190e-03_rb,0.49529e-03_rb,0.53447e-03_rb,0.36421e-03_rb /)
+      kbo(:, 1,30, 7) = (/ &
+        & 0.55194e-04_rb,0.27757e-03_rb,0.33804e-03_rb,0.35670e-03_rb,0.23148e-03_rb /)
+      kbo(:, 2,30, 7) = (/ &
+        & 0.57489e-04_rb,0.29130e-03_rb,0.35876e-03_rb,0.38143e-03_rb,0.25115e-03_rb /)
+      kbo(:, 3,30, 7) = (/ &
+        & 0.59445e-04_rb,0.30619e-03_rb,0.38148e-03_rb,0.40810e-03_rb,0.27242e-03_rb /)
+      kbo(:, 4,30, 7) = (/ &
+        & 0.61024e-04_rb,0.32233e-03_rb,0.40578e-03_rb,0.43698e-03_rb,0.29552e-03_rb /)
+      kbo(:, 5,30, 7) = (/ &
+        & 0.62251e-04_rb,0.33969e-03_rb,0.43185e-03_rb,0.46830e-03_rb,0.32052e-03_rb /)
+      kbo(:, 1,31, 7) = (/ &
+        & 0.45701e-04_rb,0.23736e-03_rb,0.29086e-03_rb,0.30834e-03_rb,0.20114e-03_rb /)
+      kbo(:, 2,31, 7) = (/ &
+        & 0.47516e-04_rb,0.25020e-03_rb,0.31032e-03_rb,0.33113e-03_rb,0.21916e-03_rb /)
+      kbo(:, 3,31, 7) = (/ &
+        & 0.49034e-04_rb,0.26424e-03_rb,0.33131e-03_rb,0.35593e-03_rb,0.23874e-03_rb /)
+      kbo(:, 4,31, 7) = (/ &
+        & 0.50247e-04_rb,0.27943e-03_rb,0.35395e-03_rb,0.38299e-03_rb,0.26024e-03_rb /)
+      kbo(:, 5,31, 7) = (/ &
+        & 0.51186e-04_rb,0.29578e-03_rb,0.37829e-03_rb,0.41250e-03_rb,0.28341e-03_rb /)
+      kbo(:, 1,32, 7) = (/ &
+        & 0.37829e-04_rb,0.20379e-03_rb,0.25145e-03_rb,0.26761e-03_rb,0.17549e-03_rb /)
+      kbo(:, 2,32, 7) = (/ &
+        & 0.39256e-04_rb,0.21585e-03_rb,0.26951e-03_rb,0.28871e-03_rb,0.19207e-03_rb /)
+      kbo(:, 3,32, 7) = (/ &
+        & 0.40434e-04_rb,0.22904e-03_rb,0.28903e-03_rb,0.31192e-03_rb,0.21034e-03_rb /)
+      kbo(:, 4,32, 7) = (/ &
+        & 0.41367e-04_rb,0.24332e-03_rb,0.31020e-03_rb,0.33744e-03_rb,0.23024e-03_rb /)
+      kbo(:, 5,32, 7) = (/ &
+        & 0.42072e-04_rb,0.25873e-03_rb,0.33309e-03_rb,0.36527e-03_rb,0.25179e-03_rb /)
+      kbo(:, 1,33, 7) = (/ &
+        & 0.31302e-04_rb,0.17572e-03_rb,0.21830e-03_rb,0.23321e-03_rb,0.15375e-03_rb /)
+      kbo(:, 2,33, 7) = (/ &
+        & 0.32419e-04_rb,0.18706e-03_rb,0.23504e-03_rb,0.25291e-03_rb,0.16915e-03_rb /)
+      kbo(:, 3,33, 7) = (/ &
+        & 0.33327e-04_rb,0.19940e-03_rb,0.25328e-03_rb,0.27479e-03_rb,0.18617e-03_rb /)
+      kbo(:, 4,33, 7) = (/ &
+        & 0.34039e-04_rb,0.21283e-03_rb,0.27315e-03_rb,0.29887e-03_rb,0.20465e-03_rb /)
+      kbo(:, 5,33, 7) = (/ &
+        & 0.34568e-04_rb,0.22731e-03_rb,0.29474e-03_rb,0.32519e-03_rb,0.22485e-03_rb /)
+      kbo(:, 1,34, 7) = (/ &
+        & 0.25851e-04_rb,0.15182e-03_rb,0.18976e-03_rb,0.20353e-03_rb,0.13483e-03_rb /)
+      kbo(:, 2,34, 7) = (/ &
+        & 0.26731e-04_rb,0.16241e-03_rb,0.20531e-03_rb,0.22199e-03_rb,0.14918e-03_rb /)
+      kbo(:, 3,34, 7) = (/ &
+        & 0.27437e-04_rb,0.17395e-03_rb,0.22237e-03_rb,0.24258e-03_rb,0.16491e-03_rb /)
+      kbo(:, 4,34, 7) = (/ &
+        & 0.27988e-04_rb,0.18656e-03_rb,0.24113e-03_rb,0.26529e-03_rb,0.18217e-03_rb /)
+      kbo(:, 5,34, 7) = (/ &
+        & 0.28384e-04_rb,0.20017e-03_rb,0.26144e-03_rb,0.29020e-03_rb,0.20116e-03_rb /)
+      kbo(:, 1,35, 7) = (/ &
+        & 0.21271e-04_rb,0.13078e-03_rb,0.16426e-03_rb,0.17685e-03_rb,0.11756e-03_rb /)
+      kbo(:, 2,35, 7) = (/ &
+        & 0.21975e-04_rb,0.14058e-03_rb,0.17865e-03_rb,0.19403e-03_rb,0.13072e-03_rb /)
+      kbo(:, 3,35, 7) = (/ &
+        & 0.22533e-04_rb,0.15132e-03_rb,0.19456e-03_rb,0.21323e-03_rb,0.14523e-03_rb /)
+      kbo(:, 4,35, 7) = (/ &
+        & 0.22966e-04_rb,0.16307e-03_rb,0.21206e-03_rb,0.23454e-03_rb,0.16133e-03_rb /)
+      kbo(:, 5,35, 7) = (/ &
+        & 0.23274e-04_rb,0.17579e-03_rb,0.23112e-03_rb,0.25800e-03_rb,0.17911e-03_rb /)
+      kbo(:, 1,36, 7) = (/ &
+        & 0.17431e-04_rb,0.11205e-03_rb,0.14128e-03_rb,0.15260e-03_rb,0.10161e-03_rb /)
+      kbo(:, 2,36, 7) = (/ &
+        & 0.18004e-04_rb,0.12103e-03_rb,0.15448e-03_rb,0.16840e-03_rb,0.11356e-03_rb /)
+      kbo(:, 3,36, 7) = (/ &
+        & 0.18458e-04_rb,0.13095e-03_rb,0.16918e-03_rb,0.18616e-03_rb,0.12687e-03_rb /)
+      kbo(:, 4,36, 7) = (/ &
+        & 0.18810e-04_rb,0.14182e-03_rb,0.18539e-03_rb,0.20596e-03_rb,0.14179e-03_rb /)
+      kbo(:, 5,36, 7) = (/ &
+        & 0.19059e-04_rb,0.15363e-03_rb,0.20317e-03_rb,0.22788e-03_rb,0.15831e-03_rb /)
+      kbo(:, 1,37, 7) = (/ &
+        & 0.14204e-04_rb,0.95010e-04_rb,0.12008e-03_rb,0.12996e-03_rb,0.86482e-04_rb /)
+      kbo(:, 2,37, 7) = (/ &
+        & 0.14685e-04_rb,0.10313e-03_rb,0.13200e-03_rb,0.14426e-03_rb,0.97179e-04_rb /)
+      kbo(:, 3,37, 7) = (/ &
+        & 0.15069e-04_rb,0.11214e-03_rb,0.14536e-03_rb,0.16042e-03_rb,0.10922e-03_rb /)
+      kbo(:, 4,37, 7) = (/ &
+        & 0.15369e-04_rb,0.12211e-03_rb,0.16020e-03_rb,0.17855e-03_rb,0.12282e-03_rb /)
+      kbo(:, 5,37, 7) = (/ &
+        & 0.15586e-04_rb,0.13296e-03_rb,0.17661e-03_rb,0.19876e-03_rb,0.13797e-03_rb /)
+      kbo(:, 1,38, 7) = (/ &
+        & 0.11571e-04_rb,0.80545e-04_rb,0.10206e-03_rb,0.11063e-03_rb,0.73563e-04_rb /)
+      kbo(:, 2,38, 7) = (/ &
+        & 0.11976e-04_rb,0.87875e-04_rb,0.11281e-03_rb,0.12357e-03_rb,0.83149e-04_rb /)
+      kbo(:, 3,38, 7) = (/ &
+        & 0.12301e-04_rb,0.96063e-04_rb,0.12495e-03_rb,0.13829e-03_rb,0.94026e-04_rb /)
+      kbo(:, 4,38, 7) = (/ &
+        & 0.12557e-04_rb,0.10518e-03_rb,0.13851e-03_rb,0.15487e-03_rb,0.10642e-03_rb /)
+      kbo(:, 5,38, 7) = (/ &
+        & 0.12744e-04_rb,0.11515e-03_rb,0.15364e-03_rb,0.17352e-03_rb,0.12029e-03_rb /)
+      kbo(:, 1,39, 7) = (/ &
+        & 0.94254e-05_rb,0.68333e-04_rb,0.86798e-04_rb,0.94247e-04_rb,0.62604e-04_rb /)
+      kbo(:, 2,39, 7) = (/ &
+        & 0.97657e-05_rb,0.74945e-04_rb,0.96495e-04_rb,0.10595e-03_rb,0.71185e-04_rb /)
+      kbo(:, 3,39, 7) = (/ &
+        & 0.10041e-04_rb,0.82376e-04_rb,0.10752e-03_rb,0.11934e-03_rb,0.81022e-04_rb /)
+      kbo(:, 4,39, 7) = (/ &
+        & 0.10258e-04_rb,0.90687e-04_rb,0.11992e-03_rb,0.13453e-03_rb,0.92315e-04_rb /)
+      kbo(:, 5,39, 7) = (/ &
+        & 0.10419e-04_rb,0.99852e-04_rb,0.13387e-03_rb,0.15177e-03_rb,0.10504e-03_rb /)
+      kbo(:, 1,40, 7) = (/ &
+        & 0.76452e-05_rb,0.57428e-04_rb,0.73021e-04_rb,0.79333e-04_rb,0.52568e-04_rb /)
+      kbo(:, 2,40, 7) = (/ &
+        & 0.79354e-05_rb,0.63315e-04_rb,0.81650e-04_rb,0.89752e-04_rb,0.60144e-04_rb /)
+      kbo(:, 3,40, 7) = (/ &
+        & 0.81739e-05_rb,0.69961e-04_rb,0.91542e-04_rb,0.10176e-03_rb,0.68905e-04_rb /)
+      kbo(:, 4,40, 7) = (/ &
+        & 0.83626e-05_rb,0.77456e-04_rb,0.10275e-03_rb,0.11552e-03_rb,0.79059e-04_rb /)
+      kbo(:, 5,40, 7) = (/ &
+        & 0.85064e-05_rb,0.85795e-04_rb,0.11542e-03_rb,0.13128e-03_rb,0.90578e-04_rb /)
+      kbo(:, 1,41, 7) = (/ &
+        & 0.61953e-05_rb,0.48163e-04_rb,0.61287e-04_rb,0.66616e-04_rb,0.44011e-04_rb /)
+      kbo(:, 2,41, 7) = (/ &
+        & 0.64418e-05_rb,0.53383e-04_rb,0.68934e-04_rb,0.75842e-04_rb,0.50670e-04_rb /)
+      kbo(:, 3,41, 7) = (/ &
+        & 0.66484e-05_rb,0.59312e-04_rb,0.77785e-04_rb,0.86580e-04_rb,0.58448e-04_rb /)
+      kbo(:, 4,41, 7) = (/ &
+        & 0.68134e-05_rb,0.66054e-04_rb,0.87876e-04_rb,0.98995e-04_rb,0.67543e-04_rb /)
+      kbo(:, 5,41, 7) = (/ &
+        & 0.69402e-05_rb,0.73614e-04_rb,0.99378e-04_rb,0.11337e-03_rb,0.77942e-04_rb /)
+      kbo(:, 1,42, 7) = (/ &
+        & 0.50170e-05_rb,0.40358e-04_rb,0.51378e-04_rb,0.55875e-04_rb,0.36794e-04_rb /)
+      kbo(:, 2,42, 7) = (/ &
+        & 0.52266e-05_rb,0.44971e-04_rb,0.58141e-04_rb,0.64024e-04_rb,0.42639e-04_rb /)
+      kbo(:, 3,42, 7) = (/ &
+        & 0.54046e-05_rb,0.50250e-04_rb,0.66034e-04_rb,0.73601e-04_rb,0.49527e-04_rb /)
+      kbo(:, 4,42, 7) = (/ &
+        & 0.55484e-05_rb,0.56302e-04_rb,0.75111e-04_rb,0.84788e-04_rb,0.57654e-04_rb /)
+      kbo(:, 5,42, 7) = (/ &
+        & 0.56600e-05_rb,0.63153e-04_rb,0.85551e-04_rb,0.97898e-04_rb,0.67040e-04_rb /)
+      kbo(:, 1,43, 7) = (/ &
+        & 0.40498e-05_rb,0.33563e-04_rb,0.42716e-04_rb,0.46433e-04_rb,0.30447e-04_rb /)
+      kbo(:, 2,43, 7) = (/ &
+        & 0.42291e-05_rb,0.37603e-04_rb,0.48619e-04_rb,0.53551e-04_rb,0.35516e-04_rb /)
+      kbo(:, 3,43, 7) = (/ &
+        & 0.43833e-05_rb,0.42260e-04_rb,0.55585e-04_rb,0.61999e-04_rb,0.41549e-04_rb /)
+      kbo(:, 4,43, 7) = (/ &
+        & 0.45099e-05_rb,0.47650e-04_rb,0.63668e-04_rb,0.71964e-04_rb,0.48728e-04_rb /)
+      kbo(:, 5,43, 7) = (/ &
+        & 0.46096e-05_rb,0.53790e-04_rb,0.73053e-04_rb,0.83779e-04_rb,0.57105e-04_rb /)
+      kbo(:, 1,44, 7) = (/ &
+        & 0.32616e-05_rb,0.27781e-04_rb,0.35335e-04_rb,0.38366e-04_rb,0.25032e-04_rb /)
+      kbo(:, 2,44, 7) = (/ &
+        & 0.34164e-05_rb,0.31296e-04_rb,0.40444e-04_rb,0.44531e-04_rb,0.29399e-04_rb /)
+      kbo(:, 3,44, 7) = (/ &
+        & 0.35491e-05_rb,0.35375e-04_rb,0.46540e-04_rb,0.51925e-04_rb,0.34633e-04_rb /)
+      kbo(:, 4,44, 7) = (/ &
+        & 0.36610e-05_rb,0.40146e-04_rb,0.53687e-04_rb,0.60738e-04_rb,0.40935e-04_rb /)
+      kbo(:, 5,44, 7) = (/ &
+        & 0.37500e-05_rb,0.45618e-04_rb,0.62061e-04_rb,0.71298e-04_rb,0.48356e-04_rb /)
+      kbo(:, 1,45, 7) = (/ &
+        & 0.26238e-05_rb,0.22952e-04_rb,0.29162e-04_rb,0.31630e-04_rb,0.20522e-04_rb /)
+      kbo(:, 2,45, 7) = (/ &
+        & 0.27571e-05_rb,0.25992e-04_rb,0.33567e-04_rb,0.36938e-04_rb,0.24268e-04_rb /)
+      kbo(:, 3,45, 7) = (/ &
+        & 0.28713e-05_rb,0.29549e-04_rb,0.38881e-04_rb,0.43383e-04_rb,0.28792e-04_rb /)
+      kbo(:, 4,45, 7) = (/ &
+        & 0.29693e-05_rb,0.33760e-04_rb,0.45177e-04_rb,0.51149e-04_rb,0.34303e-04_rb /)
+      kbo(:, 5,45, 7) = (/ &
+        & 0.30482e-05_rb,0.38627e-04_rb,0.52624e-04_rb,0.60551e-04_rb,0.40857e-04_rb /)
+      kbo(:, 1,46, 7) = (/ &
+        & 0.21051e-05_rb,0.18867e-04_rb,0.23935e-04_rb,0.25917e-04_rb,0.16710e-04_rb /)
+      kbo(:, 2,46, 7) = (/ &
+        & 0.22206e-05_rb,0.21480e-04_rb,0.27705e-04_rb,0.30449e-04_rb,0.19893e-04_rb /)
+      kbo(:, 3,46, 7) = (/ &
+        & 0.23191e-05_rb,0.24557e-04_rb,0.32298e-04_rb,0.36019e-04_rb,0.23769e-04_rb /)
+      kbo(:, 4,46, 7) = (/ &
+        & 0.24046e-05_rb,0.28239e-04_rb,0.37798e-04_rb,0.42807e-04_rb,0.28545e-04_rb /)
+      kbo(:, 5,46, 7) = (/ &
+        & 0.24746e-05_rb,0.32543e-04_rb,0.44374e-04_rb,0.51109e-04_rb,0.34299e-04_rb /)
+      kbo(:, 1,47, 7) = (/ &
+        & 0.16817e-05_rb,0.15386e-04_rb,0.19464e-04_rb,0.21024e-04_rb,0.13455e-04_rb /)
+      kbo(:, 2,47, 7) = (/ &
+        & 0.17822e-05_rb,0.17605e-04_rb,0.22652e-04_rb,0.24840e-04_rb,0.16124e-04_rb /)
+      kbo(:, 3,47, 7) = (/ &
+        & 0.18680e-05_rb,0.20236e-04_rb,0.26567e-04_rb,0.29585e-04_rb,0.19401e-04_rb /)
+      kbo(:, 4,47, 7) = (/ &
+        & 0.19423e-05_rb,0.23413e-04_rb,0.31317e-04_rb,0.35433e-04_rb,0.23476e-04_rb /)
+      kbo(:, 5,47, 7) = (/ &
+        & 0.20049e-05_rb,0.27181e-04_rb,0.37054e-04_rb,0.42668e-04_rb,0.28466e-04_rb /)
+      kbo(:, 1,48, 7) = (/ &
+        & 0.13405e-05_rb,0.12514e-04_rb,0.15779e-04_rb,0.16993e-04_rb,0.10791e-04_rb /)
+      kbo(:, 2,48, 7) = (/ &
+        & 0.14280e-05_rb,0.14385e-04_rb,0.18460e-04_rb,0.20187e-04_rb,0.13017e-04_rb /)
+      kbo(:, 3,48, 7) = (/ &
+        & 0.15026e-05_rb,0.16623e-04_rb,0.21773e-04_rb,0.24205e-04_rb,0.15768e-04_rb /)
+      kbo(:, 4,48, 7) = (/ &
+        & 0.15671e-05_rb,0.19354e-04_rb,0.25854e-04_rb,0.29218e-04_rb,0.19227e-04_rb /)
+      kbo(:, 5,48, 7) = (/ &
+        & 0.16224e-05_rb,0.22629e-04_rb,0.30833e-04_rb,0.35479e-04_rb,0.23525e-04_rb /)
+      kbo(:, 1,49, 7) = (/ &
+        & 0.10664e-05_rb,0.10149e-04_rb,0.12751e-04_rb,0.13684e-04_rb,0.86188e-05_rb /)
+      kbo(:, 2,49, 7) = (/ &
+        & 0.11418e-05_rb,0.11720e-04_rb,0.14999e-04_rb,0.16352e-04_rb,0.10467e-04_rb /)
+      kbo(:, 3,49, 7) = (/ &
+        & 0.12069e-05_rb,0.13612e-04_rb,0.17780e-04_rb,0.19716e-04_rb,0.12759e-04_rb /)
+      kbo(:, 4,49, 7) = (/ &
+        & 0.12630e-05_rb,0.15945e-04_rb,0.21262e-04_rb,0.23990e-04_rb,0.15676e-04_rb /)
+      kbo(:, 5,49, 7) = (/ &
+        & 0.13113e-05_rb,0.18775e-04_rb,0.25560e-04_rb,0.29382e-04_rb,0.19352e-04_rb /)
+      kbo(:, 1,50, 7) = (/ &
+        & 0.84808e-06_rb,0.82401e-05_rb,0.10318e-04_rb,0.11036e-04_rb,0.68939e-05_rb /)
+      kbo(:, 2,50, 7) = (/ &
+        & 0.91269e-06_rb,0.95513e-05_rb,0.12189e-04_rb,0.13247e-04_rb,0.84209e-05_rb /)
+      kbo(:, 3,50, 7) = (/ &
+        & 0.96928e-06_rb,0.11160e-04_rb,0.14539e-04_rb,0.16084e-04_rb,0.10336e-04_rb /)
+      kbo(:, 4,50, 7) = (/ &
+        & 0.10177e-05_rb,0.13146e-04_rb,0.17498e-04_rb,0.19711e-04_rb,0.12790e-04_rb /)
+      kbo(:, 5,50, 7) = (/ &
+        & 0.10595e-05_rb,0.15592e-04_rb,0.21207e-04_rb,0.24356e-04_rb,0.15929e-04_rb /)
+      kbo(:, 1,51, 7) = (/ &
+        & 0.67378e-06_rb,0.66826e-05_rb,0.83381e-05_rb,0.88828e-05_rb,0.55052e-05_rb /)
+      kbo(:, 2,51, 7) = (/ &
+        & 0.72873e-06_rb,0.77753e-05_rb,0.98905e-05_rb,0.10714e-04_rb,0.67636e-05_rb /)
+      kbo(:, 3,51, 7) = (/ &
+        & 0.77763e-06_rb,0.91368e-05_rb,0.11866e-04_rb,0.13091e-04_rb,0.83559e-05_rb /)
+      kbo(:, 4,51, 7) = (/ &
+        & 0.81953e-06_rb,0.10824e-04_rb,0.14378e-04_rb,0.16168e-04_rb,0.10417e-04_rb /)
+      kbo(:, 5,51, 7) = (/ &
+        & 0.85561e-06_rb,0.12933e-04_rb,0.17571e-04_rb,0.20159e-04_rb,0.13087e-04_rb /)
+      kbo(:, 1,52, 7) = (/ &
+        & 0.53444e-06_rb,0.54066e-05_rb,0.67197e-05_rb,0.71297e-05_rb,0.43814e-05_rb /)
+      kbo(:, 2,52, 7) = (/ &
+        & 0.58095e-06_rb,0.63124e-05_rb,0.79989e-05_rb,0.86346e-05_rb,0.54122e-05_rb /)
+      kbo(:, 3,52, 7) = (/ &
+        & 0.62282e-06_rb,0.74561e-05_rb,0.96489e-05_rb,0.10614e-04_rb,0.67289e-05_rb /)
+      kbo(:, 4,52, 7) = (/ &
+        & 0.65913e-06_rb,0.88917e-05_rb,0.11780e-04_rb,0.13220e-04_rb,0.84497e-05_rb /)
+      kbo(:, 5,52, 7) = (/ &
+        & 0.69032e-06_rb,0.10691e-04_rb,0.14504e-04_rb,0.16615e-04_rb,0.10706e-04_rb /)
+      kbo(:, 1,53, 7) = (/ &
+        & 0.42309e-06_rb,0.43635e-05_rb,0.54017e-05_rb,0.57047e-05_rb,0.34733e-05_rb /)
+      kbo(:, 2,53, 7) = (/ &
+        & 0.46223e-06_rb,0.51097e-05_rb,0.64465e-05_rb,0.69322e-05_rb,0.43120e-05_rb /)
+      kbo(:, 3,53, 7) = (/ &
+        & 0.49791e-06_rb,0.60643e-05_rb,0.78166e-05_rb,0.85690e-05_rb,0.53948e-05_rb /)
+      kbo(:, 4,53, 7) = (/ &
+        & 0.52942e-06_rb,0.72726e-05_rb,0.96042e-05_rb,0.10748e-04_rb,0.68211e-05_rb /)
+      kbo(:, 5,53, 7) = (/ &
+        & 0.55635e-06_rb,0.88074e-05_rb,0.11924e-04_rb,0.13632e-04_rb,0.87176e-05_rb /)
+      kbo(:, 1,54, 7) = (/ &
+        & 0.33525e-06_rb,0.35291e-05_rb,0.43533e-05_rb,0.45783e-05_rb,0.27618e-05_rb /)
+      kbo(:, 2,54, 7) = (/ &
+        & 0.36801e-06_rb,0.41464e-05_rb,0.52098e-05_rb,0.55821e-05_rb,0.34468e-05_rb /)
+      kbo(:, 3,54, 7) = (/ &
+        & 0.39830e-06_rb,0.49442e-05_rb,0.63495e-05_rb,0.69393e-05_rb,0.43390e-05_rb /)
+      kbo(:, 4,54, 7) = (/ &
+        & 0.42530e-06_rb,0.59638e-05_rb,0.78520e-05_rb,0.87652e-05_rb,0.55238e-05_rb /)
+      kbo(:, 5,54, 7) = (/ &
+        & 0.44850e-06_rb,0.72711e-05_rb,0.98256e-05_rb,0.11213e-04_rb,0.71180e-05_rb /)
+      kbo(:, 1,55, 7) = (/ &
+        & 0.26561e-06_rb,0.28535e-05_rb,0.35091e-05_rb,0.36747e-05_rb,0.21953e-05_rb /)
+      kbo(:, 2,55, 7) = (/ &
+        & 0.29299e-06_rb,0.33630e-05_rb,0.42093e-05_rb,0.44935e-05_rb,0.27543e-05_rb /)
+      kbo(:, 3,55, 7) = (/ &
+        & 0.31855e-06_rb,0.40286e-05_rb,0.51555e-05_rb,0.56160e-05_rb,0.34885e-05_rb /)
+      kbo(:, 4,55, 7) = (/ &
+        & 0.34149e-06_rb,0.48884e-05_rb,0.64166e-05_rb,0.71432e-05_rb,0.44712e-05_rb /)
+      kbo(:, 5,55, 7) = (/ &
+        & 0.36149e-06_rb,0.60082e-05_rb,0.81053e-05_rb,0.92338e-05_rb,0.58114e-05_rb /)
+      kbo(:, 1,56, 7) = (/ &
+        & 0.21017e-06_rb,0.23019e-05_rb,0.28217e-05_rb,0.29420e-05_rb,0.17403e-05_rb /)
+      kbo(:, 2,56, 7) = (/ &
+        & 0.23294e-06_rb,0.27215e-05_rb,0.33922e-05_rb,0.36070e-05_rb,0.21943e-05_rb /)
+      kbo(:, 3,56, 7) = (/ &
+        & 0.25436e-06_rb,0.32732e-05_rb,0.41720e-05_rb,0.45291e-05_rb,0.27950e-05_rb /)
+      kbo(:, 4,56, 7) = (/ &
+        & 0.27383e-06_rb,0.39951e-05_rb,0.52252e-05_rb,0.57990e-05_rb,0.36054e-05_rb /)
+      kbo(:, 5,56, 7) = (/ &
+        & 0.29106e-06_rb,0.49429e-05_rb,0.66518e-05_rb,0.75613e-05_rb,0.47246e-05_rb /)
+      kbo(:, 1,57, 7) = (/ &
+        & 0.16608e-06_rb,0.18531e-05_rb,0.22639e-05_rb,0.23504e-05_rb,0.13760e-05_rb /)
+      kbo(:, 2,57, 7) = (/ &
+        & 0.18488e-06_rb,0.21971e-05_rb,0.27271e-05_rb,0.28870e-05_rb,0.17421e-05_rb /)
+      kbo(:, 3,57, 7) = (/ &
+        & 0.20279e-06_rb,0.26520e-05_rb,0.33659e-05_rb,0.36392e-05_rb,0.22316e-05_rb /)
+      kbo(:, 4,57, 7) = (/ &
+        & 0.21931e-06_rb,0.32543e-05_rb,0.42391e-05_rb,0.46891e-05_rb,0.28949e-05_rb /)
+      kbo(:, 5,57, 7) = (/ &
+        & 0.23404e-06_rb,0.40527e-05_rb,0.54380e-05_rb,0.61649e-05_rb,0.38234e-05_rb /)
+      kbo(:, 1,58, 7) = (/ &
+        & 0.13131e-06_rb,0.14927e-05_rb,0.18179e-05_rb,0.18787e-05_rb,0.10893e-05_rb /)
+      kbo(:, 2,58, 7) = (/ &
+        & 0.14677e-06_rb,0.17748e-05_rb,0.21946e-05_rb,0.23122e-05_rb,0.13839e-05_rb /)
+      kbo(:, 3,58, 7) = (/ &
+        & 0.16171e-06_rb,0.21494e-05_rb,0.27171e-05_rb,0.29256e-05_rb,0.17827e-05_rb /)
+      kbo(:, 4,58, 7) = (/ &
+        & 0.17567e-06_rb,0.26514e-05_rb,0.34407e-05_rb,0.37923e-05_rb,0.23269e-05_rb /)
+      kbo(:, 5,58, 7) = (/ &
+        & 0.18816e-06_rb,0.33237e-05_rb,0.44466e-05_rb,0.50280e-05_rb,0.30958e-05_rb /)
+      kbo(:, 1,59, 7) = (/ &
+        & 0.10599e-06_rb,0.12374e-05_rb,0.15060e-05_rb,0.15543e-05_rb,0.89750e-06_rb /)
+      kbo(:, 2,59, 7) = (/ &
+        & 0.11868e-06_rb,0.14795e-05_rb,0.18285e-05_rb,0.19251e-05_rb,0.11479e-05_rb /)
+      kbo(:, 3,59, 7) = (/ &
+        & 0.13098e-06_rb,0.18042e-05_rb,0.22807e-05_rb,0.24552e-05_rb,0.14897e-05_rb /)
+      kbo(:, 4,59, 7) = (/ &
+        & 0.14252e-06_rb,0.22439e-05_rb,0.29152e-05_rb,0.32163e-05_rb,0.19622e-05_rb /)
+      kbo(:, 5,59, 7) = (/ &
+        & 0.15291e-06_rb,0.28396e-05_rb,0.38087e-05_rb,0.43138e-05_rb,0.26387e-05_rb /)
+      kbo(:, 1,13, 8) = (/ &
+        & 0.83673e-02_rb,0.17454e-01_rb,0.20213e-01_rb,0.20132e-01_rb,0.13810e-01_rb /)
+      kbo(:, 2,13, 8) = (/ &
+        & 0.85039e-02_rb,0.17824e-01_rb,0.20684e-01_rb,0.20616e-01_rb,0.14219e-01_rb /)
+      kbo(:, 3,13, 8) = (/ &
+        & 0.86129e-02_rb,0.18196e-01_rb,0.21163e-01_rb,0.21143e-01_rb,0.14616e-01_rb /)
+      kbo(:, 4,13, 8) = (/ &
+        & 0.86913e-02_rb,0.18563e-01_rb,0.21635e-01_rb,0.21674e-01_rb,0.14991e-01_rb /)
+      kbo(:, 5,13, 8) = (/ &
+        & 0.87301e-02_rb,0.18916e-01_rb,0.22103e-01_rb,0.22198e-01_rb,0.15351e-01_rb /)
+      kbo(:, 1,14, 8) = (/ &
+        & 0.69346e-02_rb,0.14952e-01_rb,0.17380e-01_rb,0.17342e-01_rb,0.11803e-01_rb /)
+      kbo(:, 2,14, 8) = (/ &
+        & 0.70328e-02_rb,0.15276e-01_rb,0.17808e-01_rb,0.17830e-01_rb,0.12181e-01_rb /)
+      kbo(:, 3,14, 8) = (/ &
+        & 0.71113e-02_rb,0.15604e-01_rb,0.18240e-01_rb,0.18321e-01_rb,0.12544e-01_rb /)
+      kbo(:, 4,14, 8) = (/ &
+        & 0.71580e-02_rb,0.15937e-01_rb,0.18667e-01_rb,0.18814e-01_rb,0.12884e-01_rb /)
+      kbo(:, 5,14, 8) = (/ &
+        & 0.71785e-02_rb,0.16228e-01_rb,0.19093e-01_rb,0.19299e-01_rb,0.13230e-01_rb /)
+      kbo(:, 1,15, 8) = (/ &
+        & 0.57307e-02_rb,0.12763e-01_rb,0.14890e-01_rb,0.14912e-01_rb,0.10073e-01_rb /)
+      kbo(:, 2,15, 8) = (/ &
+        & 0.58017e-02_rb,0.13052e-01_rb,0.15278e-01_rb,0.15370e-01_rb,0.10417e-01_rb /)
+      kbo(:, 3,15, 8) = (/ &
+        & 0.58533e-02_rb,0.13347e-01_rb,0.15666e-01_rb,0.15828e-01_rb,0.10742e-01_rb /)
+      kbo(:, 4,15, 8) = (/ &
+        & 0.58826e-02_rb,0.13628e-01_rb,0.16057e-01_rb,0.16289e-01_rb,0.11066e-01_rb /)
+      kbo(:, 5,15, 8) = (/ &
+        & 0.58933e-02_rb,0.13873e-01_rb,0.16444e-01_rb,0.16739e-01_rb,0.11388e-01_rb /)
+      kbo(:, 1,16, 8) = (/ &
+        & 0.47247e-02_rb,0.10863e-01_rb,0.12723e-01_rb,0.12788e-01_rb,0.85822e-02_rb /)
+      kbo(:, 2,16, 8) = (/ &
+        & 0.47755e-02_rb,0.11124e-01_rb,0.13076e-01_rb,0.13211e-01_rb,0.88907e-02_rb /)
+      kbo(:, 3,16, 8) = (/ &
+        & 0.48095e-02_rb,0.11385e-01_rb,0.13431e-01_rb,0.13641e-01_rb,0.91903e-02_rb /)
+      kbo(:, 4,16, 8) = (/ &
+        & 0.48283e-02_rb,0.11622e-01_rb,0.13790e-01_rb,0.14066e-01_rb,0.94912e-02_rb /)
+      kbo(:, 5,16, 8) = (/ &
+        & 0.48333e-02_rb,0.11841e-01_rb,0.14135e-01_rb,0.14487e-01_rb,0.97938e-02_rb /)
+      kbo(:, 1,17, 8) = (/ &
+        & 0.38881e-02_rb,0.92313e-02_rb,0.10848e-01_rb,0.10942e-01_rb,0.73006e-02_rb /)
+      kbo(:, 2,17, 8) = (/ &
+        & 0.39238e-02_rb,0.94601e-02_rb,0.11171e-01_rb,0.11333e-01_rb,0.75792e-02_rb /)
+      kbo(:, 3,17, 8) = (/ &
+        & 0.39468e-02_rb,0.96874e-02_rb,0.11500e-01_rb,0.11732e-01_rb,0.78560e-02_rb /)
+      kbo(:, 4,17, 8) = (/ &
+        & 0.39590e-02_rb,0.98962e-02_rb,0.11826e-01_rb,0.12129e-01_rb,0.81376e-02_rb /)
+      kbo(:, 5,17, 8) = (/ &
+        & 0.39612e-02_rb,0.10094e-01_rb,0.12144e-01_rb,0.12521e-01_rb,0.84293e-02_rb /)
+      kbo(:, 1,18, 8) = (/ &
+        & 0.31953e-02_rb,0.78309e-02_rb,0.92361e-02_rb,0.93523e-02_rb,0.62048e-02_rb /)
+      kbo(:, 2,18, 8) = (/ &
+        & 0.32208e-02_rb,0.80372e-02_rb,0.95350e-02_rb,0.97148e-02_rb,0.64590e-02_rb /)
+      kbo(:, 3,18, 8) = (/ &
+        & 0.32365e-02_rb,0.82342e-02_rb,0.98382e-02_rb,0.10082e-01_rb,0.67154e-02_rb /)
+      kbo(:, 4,18, 8) = (/ &
+        & 0.32447e-02_rb,0.84229e-02_rb,0.10138e-01_rb,0.10450e-01_rb,0.69838e-02_rb /)
+      kbo(:, 5,18, 8) = (/ &
+        & 0.32450e-02_rb,0.86061e-02_rb,0.10427e-01_rb,0.10814e-01_rb,0.72626e-02_rb /)
+      kbo(:, 1,19, 8) = (/ &
+        & 0.26235e-02_rb,0.66399e-02_rb,0.78599e-02_rb,0.79875e-02_rb,0.52728e-02_rb /)
+      kbo(:, 2,19, 8) = (/ &
+        & 0.26414e-02_rb,0.68231e-02_rb,0.81351e-02_rb,0.83230e-02_rb,0.55070e-02_rb /)
+      kbo(:, 3,19, 8) = (/ &
+        & 0.26530e-02_rb,0.70004e-02_rb,0.84138e-02_rb,0.86629e-02_rb,0.57468e-02_rb /)
+      kbo(:, 4,19, 8) = (/ &
+        & 0.26583e-02_rb,0.71756e-02_rb,0.86887e-02_rb,0.90029e-02_rb,0.60006e-02_rb /)
+      kbo(:, 5,19, 8) = (/ &
+        & 0.26573e-02_rb,0.73457e-02_rb,0.89549e-02_rb,0.93422e-02_rb,0.62658e-02_rb /)
+      kbo(:, 1,20, 8) = (/ &
+        & 0.21528e-02_rb,0.56300e-02_rb,0.66928e-02_rb,0.68275e-02_rb,0.44887e-02_rb /)
+      kbo(:, 2,20, 8) = (/ &
+        & 0.21659e-02_rb,0.57965e-02_rb,0.69483e-02_rb,0.71374e-02_rb,0.47044e-02_rb /)
+      kbo(:, 3,20, 8) = (/ &
+        & 0.21742e-02_rb,0.59617e-02_rb,0.72036e-02_rb,0.74503e-02_rb,0.49314e-02_rb /)
+      kbo(:, 4,20, 8) = (/ &
+        & 0.21777e-02_rb,0.61251e-02_rb,0.74562e-02_rb,0.77657e-02_rb,0.51700e-02_rb /)
+      kbo(:, 5,20, 8) = (/ &
+        & 0.21757e-02_rb,0.62850e-02_rb,0.77065e-02_rb,0.80891e-02_rb,0.54225e-02_rb /)
+      kbo(:, 1,21, 8) = (/ &
+        & 0.17659e-02_rb,0.47778e-02_rb,0.57054e-02_rb,0.58417e-02_rb,0.38271e-02_rb /)
+      kbo(:, 2,21, 8) = (/ &
+        & 0.17754e-02_rb,0.49299e-02_rb,0.59393e-02_rb,0.61257e-02_rb,0.40264e-02_rb /)
+      kbo(:, 3,21, 8) = (/ &
+        & 0.17817e-02_rb,0.50836e-02_rb,0.61750e-02_rb,0.64148e-02_rb,0.42397e-02_rb /)
+      kbo(:, 4,21, 8) = (/ &
+        & 0.17836e-02_rb,0.52370e-02_rb,0.64083e-02_rb,0.67125e-02_rb,0.44647e-02_rb /)
+      kbo(:, 5,21, 8) = (/ &
+        & 0.17811e-02_rb,0.53876e-02_rb,0.66480e-02_rb,0.70201e-02_rb,0.47076e-02_rb /)
+      kbo(:, 1,22, 8) = (/ &
+        & 0.14486e-02_rb,0.40679e-02_rb,0.48826e-02_rb,0.50205e-02_rb,0.32805e-02_rb /)
+      kbo(:, 2,22, 8) = (/ &
+        & 0.14554e-02_rb,0.42085e-02_rb,0.50980e-02_rb,0.52827e-02_rb,0.34669e-02_rb /)
+      kbo(:, 3,22, 8) = (/ &
+        & 0.14597e-02_rb,0.43515e-02_rb,0.53153e-02_rb,0.55535e-02_rb,0.36674e-02_rb /)
+      kbo(:, 4,22, 8) = (/ &
+        & 0.14606e-02_rb,0.44957e-02_rb,0.55353e-02_rb,0.58376e-02_rb,0.38816e-02_rb /)
+      kbo(:, 5,22, 8) = (/ &
+        & 0.14577e-02_rb,0.46383e-02_rb,0.57672e-02_rb,0.61302e-02_rb,0.41156e-02_rb /)
+      kbo(:, 1,23, 8) = (/ &
+        & 0.11880e-02_rb,0.34698e-02_rb,0.41861e-02_rb,0.43248e-02_rb,0.28199e-02_rb /)
+      kbo(:, 2,23, 8) = (/ &
+        & 0.11929e-02_rb,0.36010e-02_rb,0.43862e-02_rb,0.45689e-02_rb,0.29956e-02_rb /)
+      kbo(:, 3,23, 8) = (/ &
+        & 0.11958e-02_rb,0.37344e-02_rb,0.45877e-02_rb,0.48273e-02_rb,0.31843e-02_rb /)
+      kbo(:, 4,23, 8) = (/ &
+        & 0.11959e-02_rb,0.38697e-02_rb,0.48007e-02_rb,0.50965e-02_rb,0.33903e-02_rb /)
+      kbo(:, 5,23, 8) = (/ &
+        & 0.11929e-02_rb,0.40068e-02_rb,0.50232e-02_rb,0.53791e-02_rb,0.36136e-02_rb /)
+      kbo(:, 1,24, 8) = (/ &
+        & 0.97406e-03_rb,0.29675e-02_rb,0.36006e-02_rb,0.37379e-02_rb,0.24344e-02_rb /)
+      kbo(:, 2,24, 8) = (/ &
+        & 0.97756e-03_rb,0.30896e-02_rb,0.37850e-02_rb,0.39686e-02_rb,0.25994e-02_rb /)
+      kbo(:, 3,24, 8) = (/ &
+        & 0.97946e-03_rb,0.32150e-02_rb,0.39775e-02_rb,0.42135e-02_rb,0.27776e-02_rb /)
+      kbo(:, 4,24, 8) = (/ &
+        & 0.97899e-03_rb,0.33430e-02_rb,0.41825e-02_rb,0.44708e-02_rb,0.29753e-02_rb /)
+      kbo(:, 5,24, 8) = (/ &
+        & 0.97615e-03_rb,0.34761e-02_rb,0.43966e-02_rb,0.47457e-02_rb,0.31900e-02_rb /)
+      kbo(:, 1,25, 8) = (/ &
+        & 0.79856e-03_rb,0.25459e-02_rb,0.31077e-02_rb,0.32447e-02_rb,0.21114e-02_rb /)
+      kbo(:, 2,25, 8) = (/ &
+        & 0.80110e-03_rb,0.26605e-02_rb,0.32805e-02_rb,0.34640e-02_rb,0.22664e-02_rb /)
+      kbo(:, 3,25, 8) = (/ &
+        & 0.80222e-03_rb,0.27778e-02_rb,0.34666e-02_rb,0.36958e-02_rb,0.24376e-02_rb /)
+      kbo(:, 4,25, 8) = (/ &
+        & 0.80129e-03_rb,0.29014e-02_rb,0.36623e-02_rb,0.39444e-02_rb,0.26269e-02_rb /)
+      kbo(:, 5,25, 8) = (/ &
+        & 0.79857e-03_rb,0.30302e-02_rb,0.38698e-02_rb,0.42126e-02_rb,0.28335e-02_rb /)
+      kbo(:, 1,26, 8) = (/ &
+        & 0.65460e-03_rb,0.21933e-02_rb,0.26944e-02_rb,0.28334e-02_rb,0.18417e-02_rb /)
+      kbo(:, 2,26, 8) = (/ &
+        & 0.65639e-03_rb,0.23003e-02_rb,0.28599e-02_rb,0.30409e-02_rb,0.19886e-02_rb /)
+      kbo(:, 3,26, 8) = (/ &
+        & 0.65685e-03_rb,0.24132e-02_rb,0.30384e-02_rb,0.32639e-02_rb,0.21545e-02_rb /)
+      kbo(:, 4,26, 8) = (/ &
+        & 0.65577e-03_rb,0.25323e-02_rb,0.32275e-02_rb,0.35055e-02_rb,0.23366e-02_rb /)
+      kbo(:, 5,26, 8) = (/ &
+        & 0.65325e-03_rb,0.26572e-02_rb,0.34294e-02_rb,0.37687e-02_rb,0.25365e-02_rb /)
+      kbo(:, 1,27, 8) = (/ &
+        & 0.53655e-03_rb,0.18966e-02_rb,0.23474e-02_rb,0.24873e-02_rb,0.16142e-02_rb /)
+      kbo(:, 2,27, 8) = (/ &
+        & 0.53777e-03_rb,0.19979e-02_rb,0.25069e-02_rb,0.26849e-02_rb,0.17570e-02_rb /)
+      kbo(:, 3,27, 8) = (/ &
+        & 0.53783e-03_rb,0.21070e-02_rb,0.26778e-02_rb,0.29010e-02_rb,0.19163e-02_rb /)
+      kbo(:, 4,27, 8) = (/ &
+        & 0.53661e-03_rb,0.22218e-02_rb,0.28609e-02_rb,0.31373e-02_rb,0.20925e-02_rb /)
+      kbo(:, 5,27, 8) = (/ &
+        & 0.53426e-03_rb,0.23437e-02_rb,0.30591e-02_rb,0.33953e-02_rb,0.22871e-02_rb /)
+      kbo(:, 1,28, 8) = (/ &
+        & 0.43973e-03_rb,0.16467e-02_rb,0.20564e-02_rb,0.21950e-02_rb,0.14243e-02_rb /)
+      kbo(:, 2,28, 8) = (/ &
+        & 0.44046e-03_rb,0.17445e-02_rb,0.22094e-02_rb,0.23854e-02_rb,0.15622e-02_rb /)
+      kbo(:, 3,28, 8) = (/ &
+        & 0.44027e-03_rb,0.18495e-02_rb,0.23737e-02_rb,0.25954e-02_rb,0.17160e-02_rb /)
+      kbo(:, 4,28, 8) = (/ &
+        & 0.43902e-03_rb,0.19607e-02_rb,0.25527e-02_rb,0.28280e-02_rb,0.18875e-02_rb /)
+      kbo(:, 5,28, 8) = (/ &
+        & 0.43690e-03_rb,0.20797e-02_rb,0.27483e-02_rb,0.30809e-02_rb,0.20783e-02_rb /)
+      kbo(:, 1,29, 8) = (/ &
+        & 0.36035e-03_rb,0.14377e-02_rb,0.18129e-02_rb,0.19502e-02_rb,0.12665e-02_rb /)
+      kbo(:, 2,29, 8) = (/ &
+        & 0.36078e-03_rb,0.15322e-02_rb,0.19593e-02_rb,0.21346e-02_rb,0.13993e-02_rb /)
+      kbo(:, 3,29, 8) = (/ &
+        & 0.36035e-03_rb,0.16333e-02_rb,0.21194e-02_rb,0.23407e-02_rb,0.15489e-02_rb /)
+      kbo(:, 4,29, 8) = (/ &
+        & 0.35917e-03_rb,0.17416e-02_rb,0.22958e-02_rb,0.25693e-02_rb,0.17169e-02_rb /)
+      kbo(:, 5,29, 8) = (/ &
+        & 0.35722e-03_rb,0.18583e-02_rb,0.24893e-02_rb,0.28199e-02_rb,0.19058e-02_rb /)
+      kbo(:, 1,30, 8) = (/ &
+        & 0.29522e-03_rb,0.12625e-02_rb,0.16073e-02_rb,0.17444e-02_rb,0.11337e-02_rb /)
+      kbo(:, 2,30, 8) = (/ &
+        & 0.29544e-03_rb,0.13534e-02_rb,0.17493e-02_rb,0.19248e-02_rb,0.12629e-02_rb /)
+      kbo(:, 3,30, 8) = (/ &
+        & 0.29489e-03_rb,0.14513e-02_rb,0.19064e-02_rb,0.21281e-02_rb,0.14093e-02_rb /)
+      kbo(:, 4,30, 8) = (/ &
+        & 0.29377e-03_rb,0.15575e-02_rb,0.20813e-02_rb,0.23536e-02_rb,0.15751e-02_rb /)
+      kbo(:, 5,30, 8) = (/ &
+        & 0.29201e-03_rb,0.16725e-02_rb,0.22728e-02_rb,0.26031e-02_rb,0.17633e-02_rb /)
+      kbo(:, 1,31, 8) = (/ &
+        & 0.24186e-03_rb,0.11155e-02_rb,0.14353e-02_rb,0.15729e-02_rb,0.10232e-02_rb /)
+      kbo(:, 2,31, 8) = (/ &
+        & 0.24189e-03_rb,0.12032e-02_rb,0.15739e-02_rb,0.17508e-02_rb,0.11498e-02_rb /)
+      kbo(:, 3,31, 8) = (/ &
+        & 0.24130e-03_rb,0.12988e-02_rb,0.17296e-02_rb,0.19516e-02_rb,0.12942e-02_rb /)
+      kbo(:, 4,31, 8) = (/ &
+        & 0.24025e-03_rb,0.14034e-02_rb,0.19030e-02_rb,0.21764e-02_rb,0.14594e-02_rb /)
+      kbo(:, 5,31, 8) = (/ &
+        & 0.23866e-03_rb,0.15170e-02_rb,0.20940e-02_rb,0.24270e-02_rb,0.16471e-02_rb /)
+      kbo(:, 1,32, 8) = (/ &
+        & 0.19811e-03_rb,0.99188e-03_rb,0.12914e-02_rb,0.14311e-02_rb,0.93157e-03_rb /)
+      kbo(:, 2,32, 8) = (/ &
+        & 0.19799e-03_rb,0.10771e-02_rb,0.14282e-02_rb,0.16073e-02_rb,0.10562e-02_rb /)
+      kbo(:, 3,32, 8) = (/ &
+        & 0.19741e-03_rb,0.11711e-02_rb,0.15828e-02_rb,0.18068e-02_rb,0.11999e-02_rb /)
+      kbo(:, 4,32, 8) = (/ &
+        & 0.19645e-03_rb,0.12746e-02_rb,0.17559e-02_rb,0.20320e-02_rb,0.13654e-02_rb /)
+      kbo(:, 5,32, 8) = (/ &
+        & 0.19503e-03_rb,0.13871e-02_rb,0.19473e-02_rb,0.22851e-02_rb,0.15533e-02_rb /)
+      kbo(:, 1,33, 8) = (/ &
+        & 0.16225e-03_rb,0.88803e-03_rb,0.11717e-02_rb,0.13138e-02_rb,0.85556e-03_rb /)
+      kbo(:, 2,33, 8) = (/ &
+        & 0.16205e-03_rb,0.97174e-03_rb,0.13077e-02_rb,0.14890e-02_rb,0.97930e-03_rb /)
+      kbo(:, 3,33, 8) = (/ &
+        & 0.16148e-03_rb,0.10648e-02_rb,0.14621e-02_rb,0.16891e-02_rb,0.11237e-02_rb /)
+      kbo(:, 4,33, 8) = (/ &
+        & 0.16059e-03_rb,0.11673e-02_rb,0.16357e-02_rb,0.19165e-02_rb,0.12896e-02_rb /)
+      kbo(:, 5,33, 8) = (/ &
+        & 0.15934e-03_rb,0.12795e-02_rb,0.18288e-02_rb,0.21736e-02_rb,0.14791e-02_rb /)
+      kbo(:, 1,34, 8) = (/ &
+        & 0.13286e-03_rb,0.79835e-03_rb,0.10683e-02_rb,0.12117e-02_rb,0.78908e-03_rb /)
+      kbo(:, 2,34, 8) = (/ &
+        & 0.13261e-03_rb,0.88066e-03_rb,0.12036e-02_rb,0.13865e-02_rb,0.91252e-03_rb /)
+      kbo(:, 3,34, 8) = (/ &
+        & 0.13209e-03_rb,0.97270e-03_rb,0.13580e-02_rb,0.15871e-02_rb,0.10570e-02_rb /)
+      kbo(:, 4,34, 8) = (/ &
+        & 0.13130e-03_rb,0.10748e-02_rb,0.15318e-02_rb,0.18171e-02_rb,0.12236e-02_rb /)
+      kbo(:, 5,34, 8) = (/ &
+        & 0.13022e-03_rb,0.11866e-02_rb,0.17264e-02_rb,0.20786e-02_rb,0.14148e-02_rb /)
+      kbo(:, 1,35, 8) = (/ &
+        & 0.10879e-03_rb,0.71567e-03_rb,0.97075e-03_rb,0.11118e-02_rb,0.72353e-03_rb /)
+      kbo(:, 2,35, 8) = (/ &
+        & 0.10855e-03_rb,0.79625e-03_rb,0.11041e-02_rb,0.12845e-02_rb,0.84540e-03_rb /)
+      kbo(:, 3,35, 8) = (/ &
+        & 0.10811e-03_rb,0.88686e-03_rb,0.12569e-02_rb,0.14847e-02_rb,0.98831e-03_rb /)
+      kbo(:, 4,35, 8) = (/ &
+        & 0.10743e-03_rb,0.98761e-03_rb,0.14300e-02_rb,0.17157e-02_rb,0.11541e-02_rb /)
+      kbo(:, 5,35, 8) = (/ &
+        & 0.10650e-03_rb,0.10987e-02_rb,0.16251e-02_rb,0.19799e-02_rb,0.13460e-02_rb /)
+      kbo(:, 1,36, 8) = (/ &
+        & 0.89091e-04_rb,0.63773e-03_rb,0.87525e-03_rb,0.10106e-02_rb,0.65643e-03_rb /)
+      kbo(:, 2,36, 8) = (/ &
+        & 0.88892e-04_rb,0.71572e-03_rb,0.10050e-02_rb,0.11794e-02_rb,0.77482e-03_rb /)
+      kbo(:, 3,36, 8) = (/ &
+        & 0.88510e-04_rb,0.80390e-03_rb,0.11544e-02_rb,0.13768e-02_rb,0.91437e-03_rb /)
+      kbo(:, 4,36, 8) = (/ &
+        & 0.87951e-04_rb,0.90253e-03_rb,0.13255e-02_rb,0.16063e-02_rb,0.10779e-02_rb /)
+      kbo(:, 5,36, 8) = (/ &
+        & 0.87175e-04_rb,0.10120e-02_rb,0.15187e-02_rb,0.18703e-02_rb,0.12677e-02_rb /)
+      kbo(:, 1,37, 8) = (/ &
+        & 0.72967e-04_rb,0.56051e-03_rb,0.77586e-03_rb,0.90139e-03_rb,0.58319e-03_rb /)
+      kbo(:, 2,37, 8) = (/ &
+        & 0.72818e-04_rb,0.63459e-03_rb,0.89962e-03_rb,0.10627e-02_rb,0.69545e-03_rb /)
+      kbo(:, 3,37, 8) = (/ &
+        & 0.72523e-04_rb,0.71909e-03_rb,0.10433e-02_rb,0.12533e-02_rb,0.82896e-03_rb /)
+      kbo(:, 4,37, 8) = (/ &
+        & 0.72087e-04_rb,0.81427e-03_rb,0.12092e-02_rb,0.14766e-02_rb,0.98671e-03_rb /)
+      kbo(:, 5,37, 8) = (/ &
+        & 0.71486e-04_rb,0.92093e-03_rb,0.13977e-02_rb,0.17355e-02_rb,0.11708e-02_rb /)
+      kbo(:, 1,38, 8) = (/ &
+        & 0.59765e-04_rb,0.49320e-03_rb,0.68844e-03_rb,0.80478e-03_rb,0.51849e-03_rb /)
+      kbo(:, 2,38, 8) = (/ &
+        & 0.59660e-04_rb,0.56354e-03_rb,0.80640e-03_rb,0.95876e-03_rb,0.62466e-03_rb /)
+      kbo(:, 3,38, 8) = (/ &
+        & 0.59436e-04_rb,0.64440e-03_rb,0.94454e-03_rb,0.11426e-02_rb,0.75236e-03_rb /)
+      kbo(:, 4,38, 8) = (/ &
+        & 0.59102e-04_rb,0.73631e-03_rb,0.11052e-02_rb,0.13599e-02_rb,0.90433e-03_rb /)
+      kbo(:, 5,38, 8) = (/ &
+        & 0.58635e-04_rb,0.84009e-03_rb,0.12891e-02_rb,0.16134e-02_rb,0.10829e-02_rb /)
+      kbo(:, 1,39, 8) = (/ &
+        & 0.48956e-04_rb,0.43499e-03_rb,0.61231e-03_rb,0.72017e-03_rb,0.46189e-03_rb /)
+      kbo(:, 2,39, 8) = (/ &
+        & 0.48890e-04_rb,0.50181e-03_rb,0.72478e-03_rb,0.86730e-03_rb,0.56244e-03_rb /)
+      kbo(:, 3,39, 8) = (/ &
+        & 0.48717e-04_rb,0.57923e-03_rb,0.85778e-03_rb,0.10448e-02_rb,0.68464e-03_rb /)
+      kbo(:, 4,39, 8) = (/ &
+        & 0.48451e-04_rb,0.66799e-03_rb,0.10132e-02_rb,0.12563e-02_rb,0.83112e-03_rb /)
+      kbo(:, 5,39, 8) = (/ &
+        & 0.48085e-04_rb,0.76898e-03_rb,0.11928e-02_rb,0.15047e-02_rb,0.10044e-02_rb /)
+      kbo(:, 1,40, 8) = (/ &
+        & 0.40107e-04_rb,0.37860e-03_rb,0.53596e-03_rb,0.63302e-03_rb,0.40350e-03_rb /)
+      kbo(:, 2,40, 8) = (/ &
+        & 0.40068e-04_rb,0.44099e-03_rb,0.64126e-03_rb,0.77105e-03_rb,0.49697e-03_rb /)
+      kbo(:, 3,40, 8) = (/ &
+        & 0.39945e-04_rb,0.51399e-03_rb,0.76694e-03_rb,0.93934e-03_rb,0.61166e-03_rb /)
+      kbo(:, 4,40, 8) = (/ &
+        & 0.39752e-04_rb,0.59851e-03_rb,0.91528e-03_rb,0.11416e-02_rb,0.75037e-03_rb /)
+      kbo(:, 5,40, 8) = (/ &
+        & 0.39469e-04_rb,0.69544e-03_rb,0.10880e-02_rb,0.13809e-02_rb,0.91593e-03_rb /)
+      kbo(:, 1,41, 8) = (/ &
+        & 0.32851e-04_rb,0.32878e-03_rb,0.46786e-03_rb,0.55469e-03_rb,0.35120e-03_rb /)
+      kbo(:, 2,41, 8) = (/ &
+        & 0.32839e-04_rb,0.38683e-03_rb,0.56607e-03_rb,0.68394e-03_rb,0.43769e-03_rb /)
+      kbo(:, 3,41, 8) = (/ &
+        & 0.32749e-04_rb,0.45542e-03_rb,0.68444e-03_rb,0.84259e-03_rb,0.54490e-03_rb /)
+      kbo(:, 4,41, 8) = (/ &
+        & 0.32607e-04_rb,0.53564e-03_rb,0.82547e-03_rb,0.10352e-02_rb,0.67585e-03_rb /)
+      kbo(:, 5,41, 8) = (/ &
+        & 0.32395e-04_rb,0.62841e-03_rb,0.99133e-03_rb,0.12652e-02_rb,0.83332e-03_rb /)
+      kbo(:, 1,42, 8) = (/ &
+        & 0.26906e-04_rb,0.28534e-03_rb,0.40805e-03_rb,0.48535e-03_rb,0.30526e-03_rb /)
+      kbo(:, 2,42, 8) = (/ &
+        & 0.26908e-04_rb,0.33922e-03_rb,0.49950e-03_rb,0.60603e-03_rb,0.38505e-03_rb /)
+      kbo(:, 3,42, 8) = (/ &
+        & 0.26846e-04_rb,0.40361e-03_rb,0.61076e-03_rb,0.75564e-03_rb,0.48524e-03_rb /)
+      kbo(:, 4,42, 8) = (/ &
+        & 0.26739e-04_rb,0.47953e-03_rb,0.74454e-03_rb,0.93882e-03_rb,0.60861e-03_rb /)
+      kbo(:, 5,42, 8) = (/ &
+        & 0.26585e-04_rb,0.56816e-03_rb,0.90363e-03_rb,0.11597e-02_rb,0.75829e-03_rb /)
+      kbo(:, 1,43, 8) = (/ &
+        & 0.22034e-04_rb,0.24494e-03_rb,0.35126e-03_rb,0.41862e-03_rb,0.26133e-03_rb /)
+      kbo(:, 2,43, 8) = (/ &
+        & 0.22045e-04_rb,0.29428e-03_rb,0.43526e-03_rb,0.52960e-03_rb,0.33379e-03_rb /)
+      kbo(:, 3,43, 8) = (/ &
+        & 0.22009e-04_rb,0.35394e-03_rb,0.53838e-03_rb,0.66893e-03_rb,0.42599e-03_rb /)
+      kbo(:, 4,43, 8) = (/ &
+        & 0.21933e-04_rb,0.42510e-03_rb,0.66392e-03_rb,0.84090e-03_rb,0.54061e-03_rb /)
+      kbo(:, 5,43, 8) = (/ &
+        & 0.21820e-04_rb,0.50878e-03_rb,0.81474e-03_rb,0.10503e-02_rb,0.68139e-03_rb /)
+      kbo(:, 1,44, 8) = (/ &
+        & 0.18042e-04_rb,0.20878e-03_rb,0.29988e-03_rb,0.35782e-03_rb,0.22160e-03_rb /)
+      kbo(:, 2,44, 8) = (/ &
+        & 0.18058e-04_rb,0.25360e-03_rb,0.37621e-03_rb,0.45875e-03_rb,0.28670e-03_rb /)
+      kbo(:, 3,44, 8) = (/ &
+        & 0.18041e-04_rb,0.30845e-03_rb,0.47123e-03_rb,0.58727e-03_rb,0.37070e-03_rb /)
+      kbo(:, 4,44, 8) = (/ &
+        & 0.17989e-04_rb,0.37459e-03_rb,0.58804e-03_rb,0.74739e-03_rb,0.47650e-03_rb /)
+      kbo(:, 5,44, 8) = (/ &
+        & 0.17906e-04_rb,0.45317e-03_rb,0.73003e-03_rb,0.94454e-03_rb,0.60768e-03_rb /)
+      kbo(:, 1,45, 8) = (/ &
+        & 0.14770e-04_rb,0.17743e-03_rb,0.25518e-03_rb,0.30461e-03_rb,0.18718e-03_rb /)
+      kbo(:, 2,45, 8) = (/ &
+        & 0.14790e-04_rb,0.21794e-03_rb,0.32424e-03_rb,0.39603e-03_rb,0.24534e-03_rb /)
+      kbo(:, 3,45, 8) = (/ &
+        & 0.14785e-04_rb,0.26822e-03_rb,0.41132e-03_rb,0.51406e-03_rb,0.32158e-03_rb /)
+      kbo(:, 4,45, 8) = (/ &
+        & 0.14751e-04_rb,0.32948e-03_rb,0.51968e-03_rb,0.66288e-03_rb,0.41889e-03_rb /)
+      kbo(:, 5,45, 8) = (/ &
+        & 0.14692e-04_rb,0.40309e-03_rb,0.65298e-03_rb,0.84795e-03_rb,0.54078e-03_rb /)
+      kbo(:, 1,46, 8) = (/ &
+        & 0.12091e-04_rb,0.14956e-03_rb,0.21507e-03_rb,0.25664e-03_rb,0.15641e-03_rb /)
+      kbo(:, 2,46, 8) = (/ &
+        & 0.12112e-04_rb,0.18585e-03_rb,0.27689e-03_rb,0.33853e-03_rb,0.20778e-03_rb /)
+      kbo(:, 3,46, 8) = (/ &
+        & 0.12113e-04_rb,0.23156e-03_rb,0.35597e-03_rb,0.44575e-03_rb,0.27619e-03_rb /)
+      kbo(:, 4,46, 8) = (/ &
+        & 0.12094e-04_rb,0.28789e-03_rb,0.45576e-03_rb,0.58313e-03_rb,0.36492e-03_rb /)
+      kbo(:, 5,46, 8) = (/ &
+        & 0.12054e-04_rb,0.35628e-03_rb,0.57980e-03_rb,0.75523e-03_rb,0.47721e-03_rb /)
+      kbo(:, 1,47, 8) = (/ &
+        & 0.98958e-05_rb,0.12436e-03_rb,0.17838e-03_rb,0.21241e-03_rb,0.12841e-03_rb /)
+      kbo(:, 2,47, 8) = (/ &
+        & 0.99157e-05_rb,0.15633e-03_rb,0.23279e-03_rb,0.28443e-03_rb,0.17291e-03_rb /)
+      kbo(:, 3,47, 8) = (/ &
+        & 0.99224e-05_rb,0.19724e-03_rb,0.30350e-03_rb,0.38017e-03_rb,0.23323e-03_rb /)
+      kbo(:, 4,47, 8) = (/ &
+        & 0.99150e-05_rb,0.24831e-03_rb,0.39396e-03_rb,0.50488e-03_rb,0.31274e-03_rb /)
+      kbo(:, 5,47, 8) = (/ &
+        & 0.98881e-05_rb,0.31110e-03_rb,0.50788e-03_rb,0.66304e-03_rb,0.41485e-03_rb /)
+      kbo(:, 1,48, 8) = (/ &
+        & 0.80981e-05_rb,0.10284e-03_rb,0.14701e-03_rb,0.17457e-03_rb,0.10464e-03_rb /)
+      kbo(:, 2,48, 8) = (/ &
+        & 0.81170e-05_rb,0.13083e-03_rb,0.19452e-03_rb,0.23734e-03_rb,0.14298e-03_rb /)
+      kbo(:, 3,48, 8) = (/ &
+        & 0.81254e-05_rb,0.16716e-03_rb,0.25727e-03_rb,0.32230e-03_rb,0.19565e-03_rb /)
+      kbo(:, 4,48, 8) = (/ &
+        & 0.81253e-05_rb,0.21328e-03_rb,0.33887e-03_rb,0.43475e-03_rb,0.26652e-03_rb /)
+      kbo(:, 5,48, 8) = (/ &
+        & 0.81092e-05_rb,0.27062e-03_rb,0.44301e-03_rb,0.57972e-03_rb,0.35887e-03_rb /)
+      kbo(:, 1,49, 8) = (/ &
+        & 0.66262e-05_rb,0.84542e-04_rb,0.12034e-03_rb,0.14245e-03_rb,0.84636e-04_rb /)
+      kbo(:, 2,49, 8) = (/ &
+        & 0.66435e-05_rb,0.10903e-03_rb,0.16168e-03_rb,0.19686e-03_rb,0.11740e-03_rb /)
+      kbo(:, 3,49, 8) = (/ &
+        & 0.66527e-05_rb,0.14092e-03_rb,0.21685e-03_rb,0.27156e-03_rb,0.16309e-03_rb /)
+      kbo(:, 4,49, 8) = (/ &
+        & 0.66567e-05_rb,0.18229e-03_rb,0.28989e-03_rb,0.37214e-03_rb,0.22572e-03_rb /)
+      kbo(:, 5,49, 8) = (/ &
+        & 0.66489e-05_rb,0.23443e-03_rb,0.38461e-03_rb,0.50418e-03_rb,0.30883e-03_rb /)
+      kbo(:, 1,50, 8) = (/ &
+        & 0.54202e-05_rb,0.69608e-04_rb,0.98680e-04_rb,0.11646e-03_rb,0.68510e-04_rb /)
+      kbo(:, 2,50, 8) = (/ &
+        & 0.54374e-05_rb,0.90802e-04_rb,0.13434e-03_rb,0.16330e-03_rb,0.96499e-04_rb /)
+      kbo(:, 3,50, 8) = (/ &
+        & 0.54475e-05_rb,0.11916e-03_rb,0.18327e-03_rb,0.22932e-03_rb,0.13620e-03_rb /)
+      kbo(:, 4,50, 8) = (/ &
+        & 0.54521e-05_rb,0.15608e-03_rb,0.24845e-03_rb,0.31928e-03_rb,0.19154e-03_rb /)
+      kbo(:, 5,50, 8) = (/ &
+        & 0.54498e-05_rb,0.20348e-03_rb,0.33466e-03_rb,0.43937e-03_rb,0.26626e-03_rb /)
+      kbo(:, 1,51, 8) = (/ &
+        & 0.44351e-05_rb,0.57088e-04_rb,0.80582e-04_rb,0.94790e-04_rb,0.55250e-04_rb /)
+      kbo(:, 2,51, 8) = (/ &
+        & 0.44504e-05_rb,0.75435e-04_rb,0.11131e-03_rb,0.13503e-03_rb,0.79024e-04_rb /)
+      kbo(:, 3,51, 8) = (/ &
+        & 0.44599e-05_rb,0.10037e-03_rb,0.15428e-03_rb,0.19291e-03_rb,0.11343e-03_rb /)
+      kbo(:, 4,51, 8) = (/ &
+        & 0.44651e-05_rb,0.13336e-03_rb,0.21252e-03_rb,0.27335e-03_rb,0.16218e-03_rb /)
+      kbo(:, 5,51, 8) = (/ &
+        & 0.44653e-05_rb,0.17640e-03_rb,0.29075e-03_rb,0.38229e-03_rb,0.22923e-03_rb /)
+      kbo(:, 1,52, 8) = (/ &
+        & 0.36290e-05_rb,0.46565e-04_rb,0.65364e-04_rb,0.76598e-04_rb,0.44240e-04_rb /)
+      kbo(:, 2,52, 8) = (/ &
+        & 0.36420e-05_rb,0.62314e-04_rb,0.91644e-04_rb,0.11090e-03_rb,0.64234e-04_rb /)
+      kbo(:, 3,52, 8) = (/ &
+        & 0.36509e-05_rb,0.84102e-04_rb,0.12910e-03_rb,0.16125e-03_rb,0.93833e-04_rb /)
+      kbo(:, 4,52, 8) = (/ &
+        & 0.36555e-05_rb,0.11362e-03_rb,0.18115e-03_rb,0.23297e-03_rb,0.13657e-03_rb /)
+      kbo(:, 5,52, 8) = (/ &
+        & 0.36579e-05_rb,0.15226e-03_rb,0.25136e-03_rb,0.33099e-03_rb,0.19621e-03_rb /)
+      kbo(:, 1,53, 8) = (/ &
+        & 0.29692e-05_rb,0.37746e-04_rb,0.52632e-04_rb,0.61397e-04_rb,0.35165e-04_rb /)
+      kbo(:, 2,53, 8) = (/ &
+        & 0.29808e-05_rb,0.51149e-04_rb,0.74879e-04_rb,0.90335e-04_rb,0.51807e-04_rb /)
+      kbo(:, 3,53, 8) = (/ &
+        & 0.29880e-05_rb,0.70028e-04_rb,0.10724e-03_rb,0.13375e-03_rb,0.77010e-04_rb /)
+      kbo(:, 4,53, 8) = (/ &
+        & 0.29931e-05_rb,0.96105e-04_rb,0.15314e-03_rb,0.19689e-03_rb,0.11417e-03_rb /)
+      kbo(:, 5,53, 8) = (/ &
+        & 0.29959e-05_rb,0.13074e-03_rb,0.21612e-03_rb,0.28492e-03_rb,0.16697e-03_rb /)
+      kbo(:, 1,54, 8) = (/ &
+        & 0.24296e-05_rb,0.30698e-04_rb,0.42544e-04_rb,0.49406e-04_rb,0.28072e-04_rb /)
+      kbo(:, 2,54, 8) = (/ &
+        & 0.24393e-05_rb,0.42122e-04_rb,0.61454e-04_rb,0.73927e-04_rb,0.41964e-04_rb /)
+      kbo(:, 3,54, 8) = (/ &
+        & 0.24460e-05_rb,0.58528e-04_rb,0.89500e-04_rb,0.11146e-03_rb,0.63503e-04_rb /)
+      kbo(:, 4,54, 8) = (/ &
+        & 0.24507e-05_rb,0.81611e-04_rb,0.13009e-03_rb,0.16728e-03_rb,0.95947e-04_rb /)
+      kbo(:, 5,54, 8) = (/ &
+        & 0.24535e-05_rb,0.11276e-03_rb,0.18682e-03_rb,0.24654e-03_rb,0.14286e-03_rb /)
+      kbo(:, 1,55, 8) = (/ &
+        & 0.19883e-05_rb,0.24921e-04_rb,0.34312e-04_rb,0.39666e-04_rb,0.22375e-04_rb /)
+      kbo(:, 2,55, 8) = (/ &
+        & 0.19963e-05_rb,0.34641e-04_rb,0.50344e-04_rb,0.60381e-04_rb,0.33942e-04_rb /)
+      kbo(:, 3,55, 8) = (/ &
+        & 0.20020e-05_rb,0.48868e-04_rb,0.74618e-04_rb,0.92809e-04_rb,0.52280e-04_rb /)
+      kbo(:, 4,55, 8) = (/ &
+        & 0.20065e-05_rb,0.69255e-04_rb,0.11042e-03_rb,0.14203e-03_rb,0.80566e-04_rb /)
+      kbo(:, 5,55, 8) = (/ &
+        & 0.20089e-05_rb,0.97527e-04_rb,0.16182e-03_rb,0.21373e-03_rb,0.12228e-03_rb /)
+      kbo(:, 1,56, 8) = (/ &
+        & 0.16268e-05_rb,0.20122e-04_rb,0.27506e-04_rb,0.31629e-04_rb,0.17718e-04_rb /)
+      kbo(:, 2,56, 8) = (/ &
+        & 0.16337e-05_rb,0.28321e-04_rb,0.40966e-04_rb,0.48960e-04_rb,0.27271e-04_rb /)
+      kbo(:, 3,56, 8) = (/ &
+        & 0.16385e-05_rb,0.40579e-04_rb,0.61828e-04_rb,0.76747e-04_rb,0.42739e-04_rb /)
+      kbo(:, 4,56, 8) = (/ &
+        & 0.16424e-05_rb,0.58490e-04_rb,0.93220e-04_rb,0.11991e-03_rb,0.67232e-04_rb /)
+      kbo(:, 5,56, 8) = (/ &
+        & 0.16450e-05_rb,0.83776e-04_rb,0.13917e-03_rb,0.18401e-03_rb,0.10406e-03_rb /)
+      kbo(:, 1,57, 8) = (/ &
+        & 0.13311e-05_rb,0.16151e-04_rb,0.21901e-04_rb,0.25044e-04_rb,0.13934e-04_rb /)
+      kbo(:, 2,57, 8) = (/ &
+        & 0.13369e-05_rb,0.23005e-04_rb,0.33083e-04_rb,0.39377e-04_rb,0.21751e-04_rb /)
+      kbo(:, 3,57, 8) = (/ &
+        & 0.13411e-05_rb,0.33501e-04_rb,0.50888e-04_rb,0.63014e-04_rb,0.34696e-04_rb /)
+      kbo(:, 4,57, 8) = (/ &
+        & 0.13443e-05_rb,0.49111e-04_rb,0.78191e-04_rb,0.10051e-03_rb,0.55711e-04_rb /)
+      kbo(:, 5,57, 8) = (/ &
+        & 0.13467e-05_rb,0.71586e-04_rb,0.11902e-03_rb,0.15744e-03_rb,0.88025e-04_rb /)
+      kbo(:, 1,58, 8) = (/ &
+        & 0.10892e-05_rb,0.12962e-04_rb,0.17443e-04_rb,0.19825e-04_rb,0.10955e-04_rb /)
+      kbo(:, 2,58, 8) = (/ &
+        & 0.10942e-05_rb,0.18688e-04_rb,0.26716e-04_rb,0.31664e-04_rb,0.17348e-04_rb /)
+      kbo(:, 3,58, 8) = (/ &
+        & 0.10976e-05_rb,0.27650e-04_rb,0.41864e-04_rb,0.51716e-04_rb,0.28159e-04_rb /)
+      kbo(:, 4,58, 8) = (/ &
+        & 0.11004e-05_rb,0.41251e-04_rb,0.65630e-04_rb,0.84299e-04_rb,0.46156e-04_rb /)
+      kbo(:, 5,58, 8) = (/ &
+        & 0.11025e-05_rb,0.61261e-04_rb,0.10196e-03_rb,0.13496e-03_rb,0.74536e-04_rb /)
+      kbo(:, 1,59, 8) = (/ &
+        & 0.89197e-06_rb,0.11047e-04_rb,0.14899e-04_rb,0.16964e-04_rb,0.92999e-05_rb /)
+      kbo(:, 2,59, 8) = (/ &
+        & 0.89605e-06_rb,0.16215e-04_rb,0.23291e-04_rb,0.27686e-04_rb,0.15019e-04_rb /)
+      kbo(:, 3,59, 8) = (/ &
+        & 0.89875e-06_rb,0.24462e-04_rb,0.37267e-04_rb,0.46243e-04_rb,0.24905e-04_rb /)
+      kbo(:, 4,59, 8) = (/ &
+        & 0.90117e-06_rb,0.37175e-04_rb,0.59594e-04_rb,0.76969e-04_rb,0.41672e-04_rb /)
+      kbo(:, 5,59, 8) = (/ &
+        & 0.90310e-06_rb,0.56115e-04_rb,0.94187e-04_rb,0.12528e-03_rb,0.68497e-04_rb /)
+      kbo(:, 1,13, 9) = (/ &
+        & 0.56714e-01_rb,0.96228e-01_rb,0.10961e+00_rb,0.11078e+00_rb,0.82822e-01_rb /)
+      kbo(:, 2,13, 9) = (/ &
+        & 0.57828e-01_rb,0.97972e-01_rb,0.11123e+00_rb,0.11236e+00_rb,0.84782e-01_rb /)
+      kbo(:, 3,13, 9) = (/ &
+        & 0.59232e-01_rb,0.99998e-01_rb,0.11329e+00_rb,0.11400e+00_rb,0.86728e-01_rb /)
+      kbo(:, 4,13, 9) = (/ &
+        & 0.60790e-01_rb,0.10219e+00_rb,0.11568e+00_rb,0.11591e+00_rb,0.88651e-01_rb /)
+      kbo(:, 5,13, 9) = (/ &
+        & 0.62290e-01_rb,0.10448e+00_rb,0.11818e+00_rb,0.11808e+00_rb,0.90606e-01_rb /)
+      kbo(:, 1,14, 9) = (/ &
+        & 0.48757e-01_rb,0.85742e-01_rb,0.97473e-01_rb,0.98306e-01_rb,0.73073e-01_rb /)
+      kbo(:, 2,14, 9) = (/ &
+        & 0.49942e-01_rb,0.87692e-01_rb,0.99489e-01_rb,0.10004e+00_rb,0.75064e-01_rb /)
+      kbo(:, 3,14, 9) = (/ &
+        & 0.51318e-01_rb,0.89856e-01_rb,0.10188e+00_rb,0.10205e+00_rb,0.77018e-01_rb /)
+      kbo(:, 4,14, 9) = (/ &
+        & 0.52660e-01_rb,0.92153e-01_rb,0.10444e+00_rb,0.10434e+00_rb,0.78996e-01_rb /)
+      kbo(:, 5,14, 9) = (/ &
+        & 0.53901e-01_rb,0.94584e-01_rb,0.10712e+00_rb,0.10687e+00_rb,0.81028e-01_rb /)
+      kbo(:, 1,15, 9) = (/ &
+        & 0.41752e-01_rb,0.76198e-01_rb,0.86593e-01_rb,0.87037e-01_rb,0.64464e-01_rb /)
+      kbo(:, 2,15, 9) = (/ &
+        & 0.42945e-01_rb,0.78277e-01_rb,0.88919e-01_rb,0.89055e-01_rb,0.66440e-01_rb /)
+      kbo(:, 3,15, 9) = (/ &
+        & 0.44132e-01_rb,0.80544e-01_rb,0.91468e-01_rb,0.91397e-01_rb,0.68401e-01_rb /)
+      kbo(:, 4,15, 9) = (/ &
+        & 0.45260e-01_rb,0.82968e-01_rb,0.94189e-01_rb,0.93993e-01_rb,0.70410e-01_rb /)
+      kbo(:, 5,15, 9) = (/ &
+        & 0.46298e-01_rb,0.85502e-01_rb,0.97029e-01_rb,0.96802e-01_rb,0.72466e-01_rb /)
+      kbo(:, 1,16, 9) = (/ &
+        & 0.35640e-01_rb,0.67555e-01_rb,0.76928e-01_rb,0.77126e-01_rb,0.56847e-01_rb /)
+      kbo(:, 2,16, 9) = (/ &
+        & 0.36668e-01_rb,0.69730e-01_rb,0.79394e-01_rb,0.79411e-01_rb,0.58796e-01_rb /)
+      kbo(:, 3,16, 9) = (/ &
+        & 0.37665e-01_rb,0.72105e-01_rb,0.82070e-01_rb,0.81996e-01_rb,0.60763e-01_rb /)
+      kbo(:, 4,16, 9) = (/ &
+        & 0.38606e-01_rb,0.74641e-01_rb,0.84920e-01_rb,0.84810e-01_rb,0.62792e-01_rb /)
+      kbo(:, 5,16, 9) = (/ &
+        & 0.39473e-01_rb,0.77118e-01_rb,0.87904e-01_rb,0.87777e-01_rb,0.64884e-01_rb /)
+      kbo(:, 1,17, 9) = (/ &
+        & 0.30249e-01_rb,0.59768e-01_rb,0.68325e-01_rb,0.68492e-01_rb,0.50101e-01_rb /)
+      kbo(:, 2,17, 9) = (/ &
+        & 0.31103e-01_rb,0.62060e-01_rb,0.70903e-01_rb,0.70988e-01_rb,0.52022e-01_rb /)
+      kbo(:, 3,17, 9) = (/ &
+        & 0.31936e-01_rb,0.64534e-01_rb,0.73696e-01_rb,0.73735e-01_rb,0.54005e-01_rb /)
+      kbo(:, 4,17, 9) = (/ &
+        & 0.32730e-01_rb,0.67029e-01_rb,0.76655e-01_rb,0.76665e-01_rb,0.56059e-01_rb /)
+      kbo(:, 5,17, 9) = (/ &
+        & 0.33443e-01_rb,0.69449e-01_rb,0.79757e-01_rb,0.79742e-01_rb,0.58173e-01_rb /)
+      kbo(:, 1,18, 9) = (/ &
+        & 0.25545e-01_rb,0.52871e-01_rb,0.60740e-01_rb,0.60992e-01_rb,0.44172e-01_rb /)
+      kbo(:, 2,18, 9) = (/ &
+        & 0.26254e-01_rb,0.55233e-01_rb,0.63406e-01_rb,0.63637e-01_rb,0.46086e-01_rb /)
+      kbo(:, 3,18, 9) = (/ &
+        & 0.26956e-01_rb,0.57692e-01_rb,0.66286e-01_rb,0.66462e-01_rb,0.48089e-01_rb /)
+      kbo(:, 4,18, 9) = (/ &
+        & 0.27612e-01_rb,0.60136e-01_rb,0.69343e-01_rb,0.69465e-01_rb,0.50154e-01_rb /)
+      kbo(:, 5,18, 9) = (/ &
+        & 0.28200e-01_rb,0.62534e-01_rb,0.72542e-01_rb,0.72608e-01_rb,0.52275e-01_rb /)
+      kbo(:, 1,19, 9) = (/ &
+        & 0.21487e-01_rb,0.46786e-01_rb,0.54092e-01_rb,0.54451e-01_rb,0.38986e-01_rb /)
+      kbo(:, 2,19, 9) = (/ &
+        & 0.22086e-01_rb,0.49151e-01_rb,0.56837e-01_rb,0.57167e-01_rb,0.40916e-01_rb /)
+      kbo(:, 3,19, 9) = (/ &
+        & 0.22671e-01_rb,0.51565e-01_rb,0.59787e-01_rb,0.60059e-01_rb,0.42916e-01_rb /)
+      kbo(:, 4,19, 9) = (/ &
+        & 0.23212e-01_rb,0.53966e-01_rb,0.62913e-01_rb,0.63134e-01_rb,0.44993e-01_rb /)
+      kbo(:, 5,19, 9) = (/ &
+        & 0.23674e-01_rb,0.56335e-01_rb,0.66121e-01_rb,0.66362e-01_rb,0.47140e-01_rb /)
+      kbo(:, 1,20, 9) = (/ &
+        & 0.18039e-01_rb,0.41493e-01_rb,0.48348e-01_rb,0.48783e-01_rb,0.34522e-01_rb /)
+      kbo(:, 2,20, 9) = (/ &
+        & 0.18543e-01_rb,0.43801e-01_rb,0.51155e-01_rb,0.51541e-01_rb,0.36457e-01_rb /)
+      kbo(:, 3,20, 9) = (/ &
+        & 0.19027e-01_rb,0.46166e-01_rb,0.54164e-01_rb,0.54503e-01_rb,0.38468e-01_rb /)
+      kbo(:, 4,20, 9) = (/ &
+        & 0.19452e-01_rb,0.48538e-01_rb,0.57292e-01_rb,0.57654e-01_rb,0.40551e-01_rb /)
+      kbo(:, 5,20, 9) = (/ &
+        & 0.19805e-01_rb,0.50879e-01_rb,0.60490e-01_rb,0.60969e-01_rb,0.42726e-01_rb /)
+      kbo(:, 1,21, 9) = (/ &
+        & 0.15116e-01_rb,0.36867e-01_rb,0.43373e-01_rb,0.43860e-01_rb,0.30692e-01_rb /)
+      kbo(:, 2,21, 9) = (/ &
+        & 0.15537e-01_rb,0.39121e-01_rb,0.46234e-01_rb,0.46663e-01_rb,0.32616e-01_rb /)
+      kbo(:, 3,21, 9) = (/ &
+        & 0.15924e-01_rb,0.41438e-01_rb,0.49238e-01_rb,0.49692e-01_rb,0.34628e-01_rb /)
+      kbo(:, 4,21, 9) = (/ &
+        & 0.16258e-01_rb,0.43774e-01_rb,0.52361e-01_rb,0.52910e-01_rb,0.36736e-01_rb /)
+      kbo(:, 5,21, 9) = (/ &
+        & 0.16525e-01_rb,0.46101e-01_rb,0.55542e-01_rb,0.56309e-01_rb,0.38934e-01_rb /)
+      kbo(:, 1,22, 9) = (/ &
+        & 0.12675e-01_rb,0.32993e-01_rb,0.39256e-01_rb,0.39779e-01_rb,0.27529e-01_rb /)
+      kbo(:, 2,22, 9) = (/ &
+        & 0.13009e-01_rb,0.35201e-01_rb,0.42138e-01_rb,0.42658e-01_rb,0.29453e-01_rb /)
+      kbo(:, 3,22, 9) = (/ &
+        & 0.13317e-01_rb,0.37474e-01_rb,0.45144e-01_rb,0.45756e-01_rb,0.31474e-01_rb /)
+      kbo(:, 4,22, 9) = (/ &
+        & 0.13574e-01_rb,0.39784e-01_rb,0.48260e-01_rb,0.49049e-01_rb,0.33608e-01_rb /)
+      kbo(:, 5,22, 9) = (/ &
+        & 0.13778e-01_rb,0.42099e-01_rb,0.51448e-01_rb,0.52529e-01_rb,0.35844e-01_rb /)
+      kbo(:, 1,23, 9) = (/ &
+        & 0.10608e-01_rb,0.29677e-01_rb,0.35736e-01_rb,0.36323e-01_rb,0.24847e-01_rb /)
+      kbo(:, 2,23, 9) = (/ &
+        & 0.10880e-01_rb,0.31843e-01_rb,0.38613e-01_rb,0.39274e-01_rb,0.26772e-01_rb /)
+      kbo(:, 3,23, 9) = (/ &
+        & 0.11120e-01_rb,0.34081e-01_rb,0.41634e-01_rb,0.42440e-01_rb,0.28816e-01_rb /)
+      kbo(:, 4,23, 9) = (/ &
+        & 0.11313e-01_rb,0.36372e-01_rb,0.44754e-01_rb,0.45808e-01_rb,0.30978e-01_rb /)
+      kbo(:, 5,23, 9) = (/ &
+        & 0.11474e-01_rb,0.38689e-01_rb,0.47973e-01_rb,0.49367e-01_rb,0.33255e-01_rb /)
+      kbo(:, 1,24, 9) = (/ &
+        & 0.88685e-02_rb,0.26862e-01_rb,0.32736e-01_rb,0.33437e-01_rb,0.22600e-01_rb /)
+      kbo(:, 2,24, 9) = (/ &
+        & 0.90884e-02_rb,0.28994e-01_rb,0.35625e-01_rb,0.36451e-01_rb,0.24532e-01_rb /)
+      kbo(:, 3,24, 9) = (/ &
+        & 0.92759e-02_rb,0.31210e-01_rb,0.38663e-01_rb,0.39696e-01_rb,0.26600e-01_rb /)
+      kbo(:, 4,24, 9) = (/ &
+        & 0.94299e-02_rb,0.33488e-01_rb,0.41810e-01_rb,0.43137e-01_rb,0.28795e-01_rb /)
+      kbo(:, 5,24, 9) = (/ &
+        & 0.95655e-02_rb,0.35810e-01_rb,0.45067e-01_rb,0.46765e-01_rb,0.31119e-01_rb /)
+      kbo(:, 1,25, 9) = (/ &
+        & 0.74112e-02_rb,0.24493e-01_rb,0.30220e-01_rb,0.31056e-01_rb,0.20732e-01_rb /)
+      kbo(:, 2,25, 9) = (/ &
+        & 0.75852e-02_rb,0.26600e-01_rb,0.33130e-01_rb,0.34139e-01_rb,0.22685e-01_rb /)
+      kbo(:, 3,25, 9) = (/ &
+        & 0.77307e-02_rb,0.28805e-01_rb,0.36194e-01_rb,0.37461e-01_rb,0.24778e-01_rb /)
+      kbo(:, 4,25, 9) = (/ &
+        & 0.78603e-02_rb,0.31085e-01_rb,0.39384e-01_rb,0.40978e-01_rb,0.27016e-01_rb /)
+      kbo(:, 5,25, 9) = (/ &
+        & 0.79718e-02_rb,0.33416e-01_rb,0.42696e-01_rb,0.44682e-01_rb,0.29393e-01_rb /)
+      kbo(:, 1,26, 9) = (/ &
+        & 0.61902e-02_rb,0.22538e-01_rb,0.28170e-01_rb,0.29154e-01_rb,0.19220e-01_rb /)
+      kbo(:, 2,26, 9) = (/ &
+        & 0.63276e-02_rb,0.24632e-01_rb,0.31111e-01_rb,0.32321e-01_rb,0.21200e-01_rb /)
+      kbo(:, 3,26, 9) = (/ &
+        & 0.64499e-02_rb,0.26835e-01_rb,0.34213e-01_rb,0.35713e-01_rb,0.23332e-01_rb /)
+      kbo(:, 4,26, 9) = (/ &
+        & 0.65597e-02_rb,0.29126e-01_rb,0.37461e-01_rb,0.39319e-01_rb,0.25615e-01_rb /)
+      kbo(:, 5,26, 9) = (/ &
+        & 0.66551e-02_rb,0.31472e-01_rb,0.40844e-01_rb,0.43117e-01_rb,0.28057e-01_rb /)
+      kbo(:, 1,27, 9) = (/ &
+        & 0.51713e-02_rb,0.20911e-01_rb,0.26500e-01_rb,0.27639e-01_rb,0.17995e-01_rb /)
+      kbo(:, 2,27, 9) = (/ &
+        & 0.52848e-02_rb,0.23004e-01_rb,0.29475e-01_rb,0.30887e-01_rb,0.20007e-01_rb /)
+      kbo(:, 3,27, 9) = (/ &
+        & 0.53879e-02_rb,0.25219e-01_rb,0.32635e-01_rb,0.34364e-01_rb,0.22181e-01_rb /)
+      kbo(:, 4,27, 9) = (/ &
+        & 0.54763e-02_rb,0.27525e-01_rb,0.35956e-01_rb,0.38064e-01_rb,0.24520e-01_rb /)
+      kbo(:, 5,27, 9) = (/ &
+        & 0.55573e-02_rb,0.29889e-01_rb,0.39426e-01_rb,0.41977e-01_rb,0.27035e-01_rb /)
+      kbo(:, 1,28, 9) = (/ &
+        & 0.43195e-02_rb,0.19576e-01_rb,0.25160e-01_rb,0.26468e-01_rb,0.17016e-01_rb /)
+      kbo(:, 2,28, 9) = (/ &
+        & 0.44139e-02_rb,0.21680e-01_rb,0.28188e-01_rb,0.29800e-01_rb,0.19070e-01_rb /)
+      kbo(:, 3,28, 9) = (/ &
+        & 0.44969e-02_rb,0.23912e-01_rb,0.31420e-01_rb,0.33375e-01_rb,0.21294e-01_rb /)
+      kbo(:, 4,28, 9) = (/ &
+        & 0.45726e-02_rb,0.26235e-01_rb,0.34830e-01_rb,0.37186e-01_rb,0.23695e-01_rb /)
+      kbo(:, 5,28, 9) = (/ &
+        & 0.46426e-02_rb,0.28627e-01_rb,0.38395e-01_rb,0.41222e-01_rb,0.26282e-01_rb /)
+      kbo(:, 1,29, 9) = (/ &
+        & 0.36095e-02_rb,0.18508e-01_rb,0.24142e-01_rb,0.25625e-01_rb,0.16268e-01_rb /)
+      kbo(:, 2,29, 9) = (/ &
+        & 0.36856e-02_rb,0.20634e-01_rb,0.27243e-01_rb,0.29053e-01_rb,0.18372e-01_rb /)
+      kbo(:, 3,29, 9) = (/ &
+        & 0.37545e-02_rb,0.22890e-01_rb,0.30565e-01_rb,0.32742e-01_rb,0.20653e-01_rb /)
+      kbo(:, 4,29, 9) = (/ &
+        & 0.38219e-02_rb,0.25246e-01_rb,0.34070e-01_rb,0.36676e-01_rb,0.23125e-01_rb /)
+      kbo(:, 5,29, 9) = (/ &
+        & 0.38805e-02_rb,0.27676e-01_rb,0.37739e-01_rb,0.40837e-01_rb,0.25787e-01_rb /)
+      kbo(:, 1,30, 9) = (/ &
+        & 0.30149e-02_rb,0.17668e-01_rb,0.23401e-01_rb,0.25061e-01_rb,0.15717e-01_rb /)
+      kbo(:, 2,30, 9) = (/ &
+        & 0.30780e-02_rb,0.19823e-01_rb,0.26594e-01_rb,0.28602e-01_rb,0.17873e-01_rb /)
+      kbo(:, 3,30, 9) = (/ &
+        & 0.31391e-02_rb,0.22111e-01_rb,0.30012e-01_rb,0.32409e-01_rb,0.20220e-01_rb /)
+      kbo(:, 4,30, 9) = (/ &
+        & 0.31952e-02_rb,0.24511e-01_rb,0.33620e-01_rb,0.36467e-01_rb,0.22768e-01_rb /)
+      kbo(:, 5,30, 9) = (/ &
+        & 0.32462e-02_rb,0.26992e-01_rb,0.37393e-01_rb,0.40756e-01_rb,0.25513e-01_rb /)
+      kbo(:, 1,31, 9) = (/ &
+        & 0.25190e-02_rb,0.17039e-01_rb,0.22932e-01_rb,0.24769e-01_rb,0.15346e-01_rb /)
+      kbo(:, 2,31, 9) = (/ &
+        & 0.25729e-02_rb,0.19232e-01_rb,0.26227e-01_rb,0.28432e-01_rb,0.17564e-01_rb /)
+      kbo(:, 3,31, 9) = (/ &
+        & 0.26259e-02_rb,0.21567e-01_rb,0.29750e-01_rb,0.32369e-01_rb,0.19984e-01_rb /)
+      kbo(:, 4,31, 9) = (/ &
+        & 0.26746e-02_rb,0.24020e-01_rb,0.33463e-01_rb,0.36549e-01_rb,0.22614e-01_rb /)
+      kbo(:, 5,31, 9) = (/ &
+        & 0.27170e-02_rb,0.26556e-01_rb,0.37338e-01_rb,0.40957e-01_rb,0.25451e-01_rb /)
+      kbo(:, 1,32, 9) = (/ &
+        & 0.21057e-02_rb,0.16597e-01_rb,0.22710e-01_rb,0.24723e-01_rb,0.15137e-01_rb /)
+      kbo(:, 2,32, 9) = (/ &
+        & 0.21537e-02_rb,0.18840e-01_rb,0.26112e-01_rb,0.28512e-01_rb,0.17424e-01_rb /)
+      kbo(:, 3,32, 9) = (/ &
+        & 0.21983e-02_rb,0.21233e-01_rb,0.29743e-01_rb,0.32575e-01_rb,0.19926e-01_rb /)
+      kbo(:, 4,32, 9) = (/ &
+        & 0.22397e-02_rb,0.23745e-01_rb,0.33557e-01_rb,0.36873e-01_rb,0.22643e-01_rb /)
+      kbo(:, 5,32, 9) = (/ &
+        & 0.22779e-02_rb,0.26339e-01_rb,0.37525e-01_rb,0.41395e-01_rb,0.25571e-01_rb /)
+      kbo(:, 1,33, 9) = (/ &
+        & 0.17621e-02_rb,0.16326e-01_rb,0.22706e-01_rb,0.24894e-01_rb,0.15071e-01_rb /)
+      kbo(:, 2,33, 9) = (/ &
+        & 0.18037e-02_rb,0.18626e-01_rb,0.26218e-01_rb,0.28807e-01_rb,0.17434e-01_rb /)
+      kbo(:, 3,33, 9) = (/ &
+        & 0.18413e-02_rb,0.21083e-01_rb,0.29952e-01_rb,0.32989e-01_rb,0.20023e-01_rb /)
+      kbo(:, 4,33, 9) = (/ &
+        & 0.18774e-02_rb,0.23655e-01_rb,0.33863e-01_rb,0.37400e-01_rb,0.22833e-01_rb /)
+      kbo(:, 5,33, 9) = (/ &
+        & 0.19114e-02_rb,0.26308e-01_rb,0.37916e-01_rb,0.42025e-01_rb,0.25847e-01_rb /)
+      kbo(:, 1,34, 9) = (/ &
+        & 0.14751e-02_rb,0.16125e-01_rb,0.22769e-01_rb,0.25117e-01_rb,0.15050e-01_rb /)
+      kbo(:, 2,34, 9) = (/ &
+        & 0.15101e-02_rb,0.18488e-01_rb,0.26381e-01_rb,0.29139e-01_rb,0.17489e-01_rb /)
+      kbo(:, 3,34, 9) = (/ &
+        & 0.15432e-02_rb,0.21005e-01_rb,0.30205e-01_rb,0.33424e-01_rb,0.20158e-01_rb /)
+      kbo(:, 4,34, 9) = (/ &
+        & 0.15747e-02_rb,0.23633e-01_rb,0.34198e-01_rb,0.37931e-01_rb,0.23050e-01_rb /)
+      kbo(:, 5,34, 9) = (/ &
+        & 0.16051e-02_rb,0.26339e-01_rb,0.38321e-01_rb,0.42642e-01_rb,0.26140e-01_rb /)
+      kbo(:, 1,35, 9) = (/ &
+        & 0.12323e-02_rb,0.15834e-01_rb,0.22646e-01_rb,0.25106e-01_rb,0.14908e-01_rb /)
+      kbo(:, 2,35, 9) = (/ &
+        & 0.12626e-02_rb,0.18245e-01_rb,0.26331e-01_rb,0.29206e-01_rb,0.17403e-01_rb /)
+      kbo(:, 3,35, 9) = (/ &
+        & 0.12919e-02_rb,0.20808e-01_rb,0.30221e-01_rb,0.33562e-01_rb,0.20132e-01_rb /)
+      kbo(:, 4,35, 9) = (/ &
+        & 0.13197e-02_rb,0.23481e-01_rb,0.34270e-01_rb,0.38136e-01_rb,0.23081e-01_rb /)
+      kbo(:, 5,35, 9) = (/ &
+        & 0.13470e-02_rb,0.26228e-01_rb,0.38442e-01_rb,0.42907e-01_rb,0.26222e-01_rb /)
+      kbo(:, 1,36, 9) = (/ &
+        & 0.10273e-02_rb,0.15393e-01_rb,0.22247e-01_rb,0.24766e-01_rb,0.14589e-01_rb /)
+      kbo(:, 2,36, 9) = (/ &
+        & 0.10537e-02_rb,0.17833e-01_rb,0.25974e-01_rb,0.28911e-01_rb,0.17115e-01_rb /)
+      kbo(:, 3,36, 9) = (/ &
+        & 0.10795e-02_rb,0.20426e-01_rb,0.29904e-01_rb,0.33307e-01_rb,0.19875e-01_rb /)
+      kbo(:, 4,36, 9) = (/ &
+        & 0.11043e-02_rb,0.23131e-01_rb,0.33989e-01_rb,0.37917e-01_rb,0.22855e-01_rb /)
+      kbo(:, 5,36, 9) = (/ &
+        & 0.11288e-02_rb,0.25909e-01_rb,0.38197e-01_rb,0.42722e-01_rb,0.26026e-01_rb /)
+      kbo(:, 1,37, 9) = (/ &
+        & 0.85383e-03_rb,0.14679e-01_rb,0.21388e-01_rb,0.23897e-01_rb,0.13970e-01_rb /)
+      kbo(:, 2,37, 9) = (/ &
+        & 0.87682e-03_rb,0.17120e-01_rb,0.25115e-01_rb,0.28039e-01_rb,0.16489e-01_rb /)
+      kbo(:, 3,37, 9) = (/ &
+        & 0.89996e-03_rb,0.19721e-01_rb,0.29054e-01_rb,0.32436e-01_rb,0.19242e-01_rb /)
+      kbo(:, 4,37, 9) = (/ &
+        & 0.92246e-03_rb,0.22439e-01_rb,0.33150e-01_rb,0.37047e-01_rb,0.22217e-01_rb /)
+      kbo(:, 5,37, 9) = (/ &
+        & 0.94506e-03_rb,0.25234e-01_rb,0.37369e-01_rb,0.41852e-01_rb,0.25386e-01_rb /)
+      kbo(:, 1,38, 9) = (/ &
+        & 0.70953e-03_rb,0.14014e-01_rb,0.20566e-01_rb,0.23058e-01_rb,0.13383e-01_rb /)
+      kbo(:, 2,38, 9) = (/ &
+        & 0.73008e-03_rb,0.16455e-01_rb,0.24289e-01_rb,0.27191e-01_rb,0.15892e-01_rb /)
+      kbo(:, 3,38, 9) = (/ &
+        & 0.75050e-03_rb,0.19058e-01_rb,0.28230e-01_rb,0.31581e-01_rb,0.18633e-01_rb /)
+      kbo(:, 4,38, 9) = (/ &
+        & 0.77107e-03_rb,0.21784e-01_rb,0.32331e-01_rb,0.36184e-01_rb,0.21597e-01_rb /)
+      kbo(:, 5,38, 9) = (/ &
+        & 0.79117e-03_rb,0.24590e-01_rb,0.36557e-01_rb,0.40986e-01_rb,0.24760e-01_rb /)
+      kbo(:, 1,39, 9) = (/ &
+        & 0.58982e-03_rb,0.13410e-01_rb,0.19807e-01_rb,0.22275e-01_rb,0.12843e-01_rb /)
+      kbo(:, 2,39, 9) = (/ &
+        & 0.60777e-03_rb,0.15847e-01_rb,0.23520e-01_rb,0.26395e-01_rb,0.15340e-01_rb /)
+      kbo(:, 3,39, 9) = (/ &
+        & 0.62607e-03_rb,0.18449e-01_rb,0.27458e-01_rb,0.30773e-01_rb,0.18067e-01_rb /)
+      kbo(:, 4,39, 9) = (/ &
+        & 0.64471e-03_rb,0.21179e-01_rb,0.31559e-01_rb,0.35367e-01_rb,0.21018e-01_rb /)
+      kbo(:, 5,39, 9) = (/ &
+        & 0.66285e-03_rb,0.23994e-01_rb,0.35788e-01_rb,0.40160e-01_rb,0.24170e-01_rb /)
+      kbo(:, 1,40, 9) = (/ &
+        & 0.48914e-03_rb,0.12617e-01_rb,0.18733e-01_rb,0.21131e-01_rb,0.12100e-01_rb /)
+      kbo(:, 2,40, 9) = (/ &
+        & 0.50499e-03_rb,0.15028e-01_rb,0.22406e-01_rb,0.25206e-01_rb,0.14559e-01_rb /)
+      kbo(:, 3,40, 9) = (/ &
+        & 0.52119e-03_rb,0.17611e-01_rb,0.26314e-01_rb,0.29544e-01_rb,0.17245e-01_rb /)
+      kbo(:, 4,40, 9) = (/ &
+        & 0.53770e-03_rb,0.20330e-01_rb,0.30397e-01_rb,0.34103e-01_rb,0.20159e-01_rb /)
+      kbo(:, 5,40, 9) = (/ &
+        & 0.55398e-03_rb,0.23142e-01_rb,0.34616e-01_rb,0.38867e-01_rb,0.23278e-01_rb /)
+      kbo(:, 1,41, 9) = (/ &
+        & 0.40532e-03_rb,0.11840e-01_rb,0.17661e-01_rb,0.19981e-01_rb,0.11365e-01_rb /)
+      kbo(:, 2,41, 9) = (/ &
+        & 0.41916e-03_rb,0.14219e-01_rb,0.21285e-01_rb,0.24002e-01_rb,0.13782e-01_rb /)
+      kbo(:, 3,41, 9) = (/ &
+        & 0.43354e-03_rb,0.16775e-01_rb,0.25154e-01_rb,0.28292e-01_rb,0.16423e-01_rb /)
+      kbo(:, 4,41, 9) = (/ &
+        & 0.44807e-03_rb,0.19478e-01_rb,0.29214e-01_rb,0.32812e-01_rb,0.19291e-01_rb /)
+      kbo(:, 5,41, 9) = (/ &
+        & 0.46282e-03_rb,0.22283e-01_rb,0.33415e-01_rb,0.37538e-01_rb,0.22373e-01_rb /)
+      kbo(:, 1,42, 9) = (/ &
+        & 0.33573e-03_rb,0.11104e-01_rb,0.16634e-01_rb,0.18873e-01_rb,0.10664e-01_rb /)
+      kbo(:, 2,42, 9) = (/ &
+        & 0.34776e-03_rb,0.13446e-01_rb,0.20201e-01_rb,0.22835e-01_rb,0.13037e-01_rb /)
+      kbo(:, 3,42, 9) = (/ &
+        & 0.36046e-03_rb,0.15973e-01_rb,0.24027e-01_rb,0.27071e-01_rb,0.15631e-01_rb /)
+      kbo(:, 4,42, 9) = (/ &
+        & 0.37344e-03_rb,0.18654e-01_rb,0.28057e-01_rb,0.31550e-01_rb,0.18451e-01_rb /)
+      kbo(:, 5,42, 9) = (/ &
+        & 0.38663e-03_rb,0.21448e-01_rb,0.32235e-01_rb,0.36231e-01_rb,0.21492e-01_rb /)
+      kbo(:, 1,43, 9) = (/ &
+        & 0.27733e-03_rb,0.10283e-01_rb,0.15460e-01_rb,0.17597e-01_rb,0.98707e-02_rb /)
+      kbo(:, 2,43, 9) = (/ &
+        & 0.28779e-03_rb,0.12571e-01_rb,0.18947e-01_rb,0.21473e-01_rb,0.12183e-01_rb /)
+      kbo(:, 3,43, 9) = (/ &
+        & 0.29891e-03_rb,0.15054e-01_rb,0.22712e-01_rb,0.25638e-01_rb,0.14718e-01_rb /)
+      kbo(:, 4,43, 9) = (/ &
+        & 0.31033e-03_rb,0.17702e-01_rb,0.26696e-01_rb,0.30055e-01_rb,0.17477e-01_rb /)
+      kbo(:, 5,43, 9) = (/ &
+        & 0.32200e-03_rb,0.20476e-01_rb,0.30841e-01_rb,0.34682e-01_rb,0.20459e-01_rb /)
+      kbo(:, 1,44, 9) = (/ &
+        & 0.22878e-03_rb,0.94499e-02_rb,0.14251e-01_rb,0.16276e-01_rb,0.90607e-02_rb /)
+      kbo(:, 2,44, 9) = (/ &
+        & 0.23775e-03_rb,0.11673e-01_rb,0.17646e-01_rb,0.20049e-01_rb,0.11303e-01_rb /)
+      kbo(:, 3,44, 9) = (/ &
+        & 0.24747e-03_rb,0.14106e-01_rb,0.21336e-01_rb,0.24135e-01_rb,0.13772e-01_rb /)
+      kbo(:, 4,44, 9) = (/ &
+        & 0.25755e-03_rb,0.16710e-01_rb,0.25261e-01_rb,0.28479e-01_rb,0.16464e-01_rb /)
+      kbo(:, 5,44, 9) = (/ &
+        & 0.26798e-03_rb,0.19454e-01_rb,0.29363e-01_rb,0.33046e-01_rb,0.19378e-01_rb /)
+      kbo(:, 1,45, 9) = (/ &
+        & 0.18849e-03_rb,0.86584e-02_rb,0.13096e-01_rb,0.15007e-01_rb,0.82904e-02_rb /)
+      kbo(:, 2,45, 9) = (/ &
+        & 0.19636e-03_rb,0.10814e-01_rb,0.16390e-01_rb,0.18672e-01_rb,0.10458e-01_rb /)
+      kbo(:, 3,45, 9) = (/ &
+        & 0.20470e-03_rb,0.13189e-01_rb,0.19995e-01_rb,0.22671e-01_rb,0.12861e-01_rb /)
+      kbo(:, 4,45, 9) = (/ &
+        & 0.21344e-03_rb,0.15746e-01_rb,0.23854e-01_rb,0.26936e-01_rb,0.15483e-01_rb /)
+      kbo(:, 5,45, 9) = (/ &
+        & 0.22266e-03_rb,0.18454e-01_rb,0.27912e-01_rb,0.31439e-01_rb,0.18328e-01_rb /)
+      kbo(:, 1,46, 9) = (/ &
+        & 0.15507e-03_rb,0.78632e-02_rb,0.11928e-01_rb,0.13712e-01_rb,0.75164e-02_rb /)
+      kbo(:, 2,46, 9) = (/ &
+        & 0.16179e-03_rb,0.99413e-02_rb,0.15104e-01_rb,0.17260e-01_rb,0.95985e-02_rb /)
+      kbo(:, 3,46, 9) = (/ &
+        & 0.16890e-03_rb,0.12249e-01_rb,0.18612e-01_rb,0.21154e-01_rb,0.11927e-01_rb /)
+      kbo(:, 4,46, 9) = (/ &
+        & 0.17659e-03_rb,0.14751e-01_rb,0.22394e-01_rb,0.25333e-01_rb,0.14476e-01_rb /)
+      kbo(:, 5,46, 9) = (/ &
+        & 0.18474e-03_rb,0.17415e-01_rb,0.26393e-01_rb,0.29761e-01_rb,0.17246e-01_rb /)
+      kbo(:, 1,47, 9) = (/ &
+        & 0.12726e-03_rb,0.70304e-02_rb,0.10696e-01_rb,0.12336e-01_rb,0.67029e-02_rb /)
+      kbo(:, 2,47, 9) = (/ &
+        & 0.13291e-03_rb,0.90171e-02_rb,0.13730e-01_rb,0.15745e-01_rb,0.86863e-02_rb /)
+      kbo(:, 3,47, 9) = (/ &
+        & 0.13906e-03_rb,0.11243e-01_rb,0.17120e-01_rb,0.19510e-01_rb,0.10925e-01_rb /)
+      kbo(:, 4,47, 9) = (/ &
+        & 0.14561e-03_rb,0.13678e-01_rb,0.20805e-01_rb,0.23588e-01_rb,0.13392e-01_rb /)
+      kbo(:, 5,47, 9) = (/ &
+        & 0.15268e-03_rb,0.16286e-01_rb,0.24728e-01_rb,0.27924e-01_rb,0.16077e-01_rb /)
+      kbo(:, 1,48, 9) = (/ &
+        & 0.10430e-03_rb,0.62479e-02_rb,0.95325e-02_rb,0.11029e-01_rb,0.59380e-02_rb /)
+      kbo(:, 2,48, 9) = (/ &
+        & 0.10909e-03_rb,0.81380e-02_rb,0.12419e-01_rb,0.14291e-01_rb,0.78205e-02_rb /)
+      kbo(:, 3,48, 9) = (/ &
+        & 0.11429e-03_rb,0.10277e-01_rb,0.15680e-01_rb,0.17922e-01_rb,0.99641e-02_rb /)
+      kbo(:, 4,48, 9) = (/ &
+        & 0.11996e-03_rb,0.12637e-01_rb,0.19259e-01_rb,0.21888e-01_rb,0.12347e-01_rb /)
+      kbo(:, 5,48, 9) = (/ &
+        & 0.12611e-03_rb,0.15183e-01_rb,0.23095e-01_rb,0.26125e-01_rb,0.14947e-01_rb /)
+      kbo(:, 1,49, 9) = (/ &
+        & 0.85361e-04_rb,0.55178e-02_rb,0.84413e-02_rb,0.97939e-02_rb,0.52224e-02_rb /)
+      kbo(:, 2,49, 9) = (/ &
+        & 0.89682e-04_rb,0.73124e-02_rb,0.11182e-01_rb,0.12906e-01_rb,0.70024e-02_rb /)
+      kbo(:, 3,49, 9) = (/ &
+        & 0.93818e-04_rb,0.93518e-02_rb,0.14295e-01_rb,0.16393e-01_rb,0.90454e-02_rb /)
+      kbo(:, 4,49, 9) = (/ &
+        & 0.98731e-04_rb,0.11631e-01_rb,0.17758e-01_rb,0.20234e-01_rb,0.11339e-01_rb /)
+      kbo(:, 5,49, 9) = (/ &
+        & 0.10398e-03_rb,0.14111e-01_rb,0.21502e-01_rb,0.24370e-01_rb,0.13856e-01_rb /)
+      kbo(:, 1,50, 9) = (/ &
+        & 0.70068e-04_rb,0.48843e-02_rb,0.74862e-02_rb,0.87029e-02_rb,0.45961e-02_rb /)
+      kbo(:, 2,50, 9) = (/ &
+        & 0.73528e-04_rb,0.65706e-02_rb,0.10074e-01_rb,0.11661e-01_rb,0.62737e-02_rb /)
+      kbo(:, 3,50, 9) = (/ &
+        & 0.77377e-04_rb,0.85288e-02_rb,0.13057e-01_rb,0.15019e-01_rb,0.82236e-02_rb /)
+      kbo(:, 4,50, 9) = (/ &
+        & 0.81195e-04_rb,0.10720e-01_rb,0.16396e-01_rb,0.18728e-01_rb,0.10428e-01_rb /)
+      kbo(:, 5,50, 9) = (/ &
+        & 0.85703e-04_rb,0.13133e-01_rb,0.20042e-01_rb,0.22765e-01_rb,0.12867e-01_rb /)
+      kbo(:, 1,51, 9) = (/ &
+        & 0.57383e-04_rb,0.43058e-02_rb,0.66126e-02_rb,0.77023e-02_rb,0.40299e-02_rb /)
+      kbo(:, 2,51, 9) = (/ &
+        & 0.60290e-04_rb,0.58916e-02_rb,0.90543e-02_rb,0.10509e-01_rb,0.56057e-02_rb /)
+      kbo(:, 3,51, 9) = (/ &
+        & 0.63513e-04_rb,0.77586e-02_rb,0.11901e-01_rb,0.13729e-01_rb,0.74620e-02_rb /)
+      kbo(:, 4,51, 9) = (/ &
+        & 0.66727e-04_rb,0.98672e-02_rb,0.15116e-01_rb,0.17314e-01_rb,0.95779e-02_rb /)
+      kbo(:, 5,51, 9) = (/ &
+        & 0.70598e-04_rb,0.12209e-01_rb,0.18661e-01_rb,0.21244e-01_rb,0.11938e-01_rb /)
+      kbo(:, 1,52, 9) = (/ &
+        & 0.46933e-04_rb,0.37683e-02_rb,0.57987e-02_rb,0.67684e-02_rb,0.35066e-02_rb /)
+      kbo(:, 2,52, 9) = (/ &
+        & 0.49374e-04_rb,0.52554e-02_rb,0.80944e-02_rb,0.94163e-02_rb,0.49785e-02_rb /)
+      kbo(:, 3,52, 9) = (/ &
+        & 0.52069e-04_rb,0.70251e-02_rb,0.10799e-01_rb,0.12493e-01_rb,0.67384e-02_rb /)
+      kbo(:, 4,52, 9) = (/ &
+        & 0.55066e-04_rb,0.90579e-02_rb,0.13892e-01_rb,0.15957e-01_rb,0.87644e-02_rb /)
+      kbo(:, 5,52, 9) = (/ &
+        & 0.58094e-04_rb,0.11314e-01_rb,0.17321e-01_rb,0.19762e-01_rb,0.11039e-01_rb /)
+      kbo(:, 1,53, 9) = (/ &
+        & 0.38369e-04_rb,0.32705e-02_rb,0.50428e-02_rb,0.58997e-02_rb,0.30250e-02_rb /)
+      kbo(:, 2,53, 9) = (/ &
+        & 0.40389e-04_rb,0.46579e-02_rb,0.71882e-02_rb,0.83794e-02_rb,0.43908e-02_rb /)
+      kbo(:, 3,53, 9) = (/ &
+        & 0.42656e-04_rb,0.63275e-02_rb,0.97486e-02_rb,0.11308e-01_rb,0.60500e-02_rb /)
+      kbo(:, 4,53, 9) = (/ &
+        & 0.45173e-04_rb,0.82714e-02_rb,0.12706e-01_rb,0.14639e-01_rb,0.79824e-02_rb /)
+      kbo(:, 5,53, 9) = (/ &
+        & 0.47733e-04_rb,0.10447e-01_rb,0.16018e-01_rb,0.18320e-01_rb,0.10170e-01_rb /)
+      kbo(:, 1,54, 9) = (/ &
+        & 0.31373e-04_rb,0.28489e-02_rb,0.44023e-02_rb,0.51602e-02_rb,0.26198e-02_rb /)
+      kbo(:, 2,54, 9) = (/ &
+        & 0.33072e-04_rb,0.41448e-02_rb,0.64072e-02_rb,0.74821e-02_rb,0.38868e-02_rb /)
+      kbo(:, 3,54, 9) = (/ &
+        & 0.34962e-04_rb,0.57219e-02_rb,0.88331e-02_rb,0.10271e-01_rb,0.54518e-02_rb /)
+      kbo(:, 4,54, 9) = (/ &
+        & 0.37073e-04_rb,0.75801e-02_rb,0.11663e-01_rb,0.13472e-01_rb,0.72975e-02_rb /)
+      kbo(:, 5,54, 9) = (/ &
+        & 0.39224e-04_rb,0.96795e-02_rb,0.14861e-01_rb,0.17039e-01_rb,0.94030e-02_rb /)
+      kbo(:, 1,55, 9) = (/ &
+        & 0.25649e-04_rb,0.24774e-02_rb,0.38358e-02_rb,0.45027e-02_rb,0.22635e-02_rb /)
+      kbo(:, 2,55, 9) = (/ &
+        & 0.27065e-04_rb,0.36831e-02_rb,0.57040e-02_rb,0.66733e-02_rb,0.34361e-02_rb /)
+      kbo(:, 3,55, 9) = (/ &
+        & 0.28649e-04_rb,0.51728e-02_rb,0.80003e-02_rb,0.93199e-02_rb,0.49087e-02_rb /)
+      kbo(:, 4,55, 9) = (/ &
+        & 0.30419e-04_rb,0.69443e-02_rb,0.10704e-01_rb,0.12395e-01_rb,0.66688e-02_rb /)
+      kbo(:, 5,55, 9) = (/ &
+        & 0.32478e-04_rb,0.89781e-02_rb,0.13794e-01_rb,0.15856e-01_rb,0.86947e-02_rb /)
+      kbo(:, 1,56, 9) = (/ &
+        & 0.20960e-04_rb,0.21374e-02_rb,0.33161e-02_rb,0.38972e-02_rb,0.19394e-02_rb /)
+      kbo(:, 2,56, 9) = (/ &
+        & 0.22130e-04_rb,0.32530e-02_rb,0.50471e-02_rb,0.59166e-02_rb,0.30185e-02_rb /)
+      kbo(:, 3,56, 9) = (/ &
+        & 0.23455e-04_rb,0.46545e-02_rb,0.72105e-02_rb,0.84156e-02_rb,0.43975e-02_rb /)
+      kbo(:, 4,56, 9) = (/ &
+        & 0.24958e-04_rb,0.63377e-02_rb,0.97876e-02_rb,0.11360e-01_rb,0.60688e-02_rb /)
+      kbo(:, 5,56, 9) = (/ &
+        & 0.26672e-04_rb,0.82933e-02_rb,0.12759e-01_rb,0.14704e-01_rb,0.80123e-02_rb /)
+      kbo(:, 1,57, 9) = (/ &
+        & 0.17108e-04_rb,0.18275e-02_rb,0.28407e-02_rb,0.33429e-02_rb,0.16463e-02_rb /)
+      kbo(:, 2,57, 9) = (/ &
+        & 0.18082e-04_rb,0.28535e-02_rb,0.44360e-02_rb,0.52097e-02_rb,0.26326e-02_rb /)
+      kbo(:, 3,57, 9) = (/ &
+        & 0.19184e-04_rb,0.41668e-02_rb,0.64646e-02_rb,0.75572e-02_rb,0.39170e-02_rb /)
+      kbo(:, 4,57, 9) = (/ &
+        & 0.20446e-04_rb,0.57610e-02_rb,0.89128e-02_rb,0.10368e-01_rb,0.54979e-02_rb /)
+      kbo(:, 5,57, 9) = (/ &
+        & 0.21854e-04_rb,0.76342e-02_rb,0.11762e-01_rb,0.13588e-01_rb,0.73577e-02_rb /)
+      kbo(:, 1,58, 9) = (/ &
+        & 0.13963e-04_rb,0.15602e-02_rb,0.24292e-02_rb,0.28638e-02_rb,0.13965e-02_rb /)
+      kbo(:, 2,58, 9) = (/ &
+        & 0.14773e-04_rb,0.25031e-02_rb,0.38984e-02_rb,0.45849e-02_rb,0.22957e-02_rb /)
+      kbo(:, 3,58, 9) = (/ &
+        & 0.15698e-04_rb,0.37311e-02_rb,0.57975e-02_rb,0.67885e-02_rb,0.34899e-02_rb /)
+      kbo(:, 4,58, 9) = (/ &
+        & 0.16731e-04_rb,0.52413e-02_rb,0.81221e-02_rb,0.94657e-02_rb,0.49831e-02_rb /)
+      kbo(:, 5,58, 9) = (/ &
+        & 0.17926e-04_rb,0.70329e-02_rb,0.10852e-01_rb,0.12566e-01_rb,0.67622e-02_rb /)
+      kbo(:, 1,59, 9) = (/ &
+        & 0.11515e-04_rb,0.14557e-02_rb,0.22712e-02_rb,0.26808e-02_rb,0.13001e-02_rb /)
+      kbo(:, 2,59, 9) = (/ &
+        & 0.12194e-04_rb,0.23665e-02_rb,0.36913e-02_rb,0.43444e-02_rb,0.21654e-02_rb /)
+      kbo(:, 3,59, 9) = (/ &
+        & 0.12975e-04_rb,0.35608e-02_rb,0.55385e-02_rb,0.64911e-02_rb,0.33241e-02_rb /)
+      kbo(:, 4,59, 9) = (/ &
+        & 0.13854e-04_rb,0.50382e-02_rb,0.78142e-02_rb,0.91137e-02_rb,0.47825e-02_rb /)
+      kbo(:, 5,59, 9) = (/ &
+        & 0.14890e-04_rb,0.67966e-02_rb,0.10497e-01_rb,0.12166e-01_rb,0.65291e-02_rb /)
+      kbo(:, 1,13,10) = (/ &
+        & 0.23136e+00_rb,0.35590e+00_rb,0.41705e+00_rb,0.42838e+00_rb,0.34405e+00_rb /)
+      kbo(:, 2,13,10) = (/ &
+        & 0.23570e+00_rb,0.35573e+00_rb,0.41855e+00_rb,0.43318e+00_rb,0.34979e+00_rb /)
+      kbo(:, 3,13,10) = (/ &
+        & 0.23997e+00_rb,0.35949e+00_rb,0.42029e+00_rb,0.43813e+00_rb,0.35426e+00_rb /)
+      kbo(:, 4,13,10) = (/ &
+        & 0.24492e+00_rb,0.36590e+00_rb,0.42350e+00_rb,0.44177e+00_rb,0.35947e+00_rb /)
+      kbo(:, 5,13,10) = (/ &
+        & 0.25202e+00_rb,0.37242e+00_rb,0.42924e+00_rb,0.44467e+00_rb,0.36481e+00_rb /)
+      kbo(:, 1,14,10) = (/ &
+        & 0.20433e+00_rb,0.32280e+00_rb,0.38114e+00_rb,0.39530e+00_rb,0.30987e+00_rb /)
+      kbo(:, 2,14,10) = (/ &
+        & 0.20812e+00_rb,0.32580e+00_rb,0.38400e+00_rb,0.40099e+00_rb,0.31521e+00_rb /)
+      kbo(:, 3,14,10) = (/ &
+        & 0.21260e+00_rb,0.33207e+00_rb,0.38794e+00_rb,0.40573e+00_rb,0.32135e+00_rb /)
+      kbo(:, 4,14,10) = (/ &
+        & 0.21971e+00_rb,0.33857e+00_rb,0.39426e+00_rb,0.40959e+00_rb,0.32811e+00_rb /)
+      kbo(:, 5,14,10) = (/ &
+        & 0.22862e+00_rb,0.34522e+00_rb,0.40235e+00_rb,0.41376e+00_rb,0.33439e+00_rb /)
+      kbo(:, 1,15,10) = (/ &
+        & 0.17974e+00_rb,0.29385e+00_rb,0.34710e+00_rb,0.36214e+00_rb,0.27698e+00_rb /)
+      kbo(:, 2,15,10) = (/ &
+        & 0.18361e+00_rb,0.29985e+00_rb,0.35176e+00_rb,0.36835e+00_rb,0.28361e+00_rb /)
+      kbo(:, 3,15,10) = (/ &
+        & 0.19011e+00_rb,0.30650e+00_rb,0.35844e+00_rb,0.37336e+00_rb,0.29140e+00_rb /)
+      kbo(:, 4,15,10) = (/ &
+        & 0.19870e+00_rb,0.31340e+00_rb,0.36676e+00_rb,0.37856e+00_rb,0.29913e+00_rb /)
+      kbo(:, 5,15,10) = (/ &
+        & 0.20713e+00_rb,0.32067e+00_rb,0.37517e+00_rb,0.38452e+00_rb,0.30673e+00_rb /)
+      kbo(:, 1,16,10) = (/ &
+        & 0.15768e+00_rb,0.26909e+00_rb,0.31566e+00_rb,0.32905e+00_rb,0.24795e+00_rb /)
+      kbo(:, 2,16,10) = (/ &
+        & 0.16341e+00_rb,0.27579e+00_rb,0.32257e+00_rb,0.33542e+00_rb,0.25593e+00_rb /)
+      kbo(:, 3,16,10) = (/ &
+        & 0.17143e+00_rb,0.28283e+00_rb,0.33152e+00_rb,0.34164e+00_rb,0.26468e+00_rb /)
+      kbo(:, 4,16,10) = (/ &
+        & 0.17943e+00_rb,0.29026e+00_rb,0.34054e+00_rb,0.34897e+00_rb,0.27328e+00_rb /)
+      kbo(:, 5,16,10) = (/ &
+        & 0.18690e+00_rb,0.29935e+00_rb,0.34954e+00_rb,0.35767e+00_rb,0.28225e+00_rb /)
+      kbo(:, 1,17,10) = (/ &
+        & 0.13875e+00_rb,0.24652e+00_rb,0.28696e+00_rb,0.29693e+00_rb,0.22321e+00_rb /)
+      kbo(:, 2,17,10) = (/ &
+        & 0.14611e+00_rb,0.25366e+00_rb,0.29630e+00_rb,0.30411e+00_rb,0.23216e+00_rb /)
+      kbo(:, 3,17,10) = (/ &
+        & 0.15377e+00_rb,0.26122e+00_rb,0.30597e+00_rb,0.31229e+00_rb,0.24127e+00_rb /)
+      kbo(:, 4,17,10) = (/ &
+        & 0.16099e+00_rb,0.27029e+00_rb,0.31565e+00_rb,0.32218e+00_rb,0.25077e+00_rb /)
+      kbo(:, 5,17,10) = (/ &
+        & 0.16791e+00_rb,0.28100e+00_rb,0.32533e+00_rb,0.33316e+00_rb,0.26091e+00_rb /)
+      kbo(:, 1,18,10) = (/ &
+        & 0.12258e+00_rb,0.22568e+00_rb,0.26154e+00_rb,0.26746e+00_rb,0.20208e+00_rb /)
+      kbo(:, 2,18,10) = (/ &
+        & 0.12972e+00_rb,0.23340e+00_rb,0.27183e+00_rb,0.27607e+00_rb,0.21144e+00_rb /)
+      kbo(:, 3,18,10) = (/ &
+        & 0.13673e+00_rb,0.24228e+00_rb,0.28202e+00_rb,0.28661e+00_rb,0.22093e+00_rb /)
+      kbo(:, 4,18,10) = (/ &
+        & 0.14352e+00_rb,0.25285e+00_rb,0.29256e+00_rb,0.29859e+00_rb,0.23121e+00_rb /)
+      kbo(:, 5,18,10) = (/ &
+        & 0.14999e+00_rb,0.26447e+00_rb,0.30340e+00_rb,0.31163e+00_rb,0.24203e+00_rb /)
+      kbo(:, 1,19,10) = (/ &
+        & 0.10785e+00_rb,0.20667e+00_rb,0.23879e+00_rb,0.24194e+00_rb,0.18368e+00_rb /)
+      kbo(:, 2,19,10) = (/ &
+        & 0.11429e+00_rb,0.21546e+00_rb,0.24926e+00_rb,0.25235e+00_rb,0.19325e+00_rb /)
+      kbo(:, 3,19,10) = (/ &
+        & 0.12064e+00_rb,0.22577e+00_rb,0.26022e+00_rb,0.26472e+00_rb,0.20338e+00_rb /)
+      kbo(:, 4,19,10) = (/ &
+        & 0.12700e+00_rb,0.23751e+00_rb,0.27175e+00_rb,0.27823e+00_rb,0.21416e+00_rb /)
+      kbo(:, 5,19,10) = (/ &
+        & 0.13335e+00_rb,0.24924e+00_rb,0.28423e+00_rb,0.29239e+00_rb,0.22548e+00_rb /)
+      kbo(:, 1,20,10) = (/ &
+        & 0.94314e-01_rb,0.18969e+00_rb,0.21843e+00_rb,0.22089e+00_rb,0.16767e+00_rb /)
+      kbo(:, 2,20,10) = (/ &
+        & 0.10011e+00_rb,0.20009e+00_rb,0.22938e+00_rb,0.23290e+00_rb,0.17759e+00_rb /)
+      kbo(:, 3,20,10) = (/ &
+        & 0.10602e+00_rb,0.21171e+00_rb,0.24114e+00_rb,0.24650e+00_rb,0.18815e+00_rb /)
+      kbo(:, 4,20,10) = (/ &
+        & 0.11212e+00_rb,0.22366e+00_rb,0.25410e+00_rb,0.26076e+00_rb,0.19951e+00_rb /)
+      kbo(:, 5,20,10) = (/ &
+        & 0.11820e+00_rb,0.23566e+00_rb,0.26816e+00_rb,0.27572e+00_rb,0.21140e+00_rb /)
+      kbo(:, 1,21,10) = (/ &
+        & 0.82096e-01_rb,0.17498e+00_rb,0.20057e+00_rb,0.20349e+00_rb,0.15368e+00_rb /)
+      kbo(:, 2,21,10) = (/ &
+        & 0.87376e-01_rb,0.18671e+00_rb,0.21217e+00_rb,0.21678e+00_rb,0.16394e+00_rb /)
+      kbo(:, 3,21,10) = (/ &
+        & 0.92996e-01_rb,0.19901e+00_rb,0.22527e+00_rb,0.23088e+00_rb,0.17505e+00_rb /)
+      kbo(:, 4,21,10) = (/ &
+        & 0.98752e-01_rb,0.21131e+00_rb,0.23942e+00_rb,0.24575e+00_rb,0.18685e+00_rb /)
+      kbo(:, 5,21,10) = (/ &
+        & 0.10451e+00_rb,0.22356e+00_rb,0.25490e+00_rb,0.26152e+00_rb,0.19924e+00_rb /)
+      kbo(:, 1,22,10) = (/ &
+        & 0.71578e-01_rb,0.16309e+00_rb,0.18609e+00_rb,0.19018e+00_rb,0.14217e+00_rb /)
+      kbo(:, 2,22,10) = (/ &
+        & 0.76626e-01_rb,0.17564e+00_rb,0.19884e+00_rb,0.20398e+00_rb,0.15291e+00_rb /)
+      kbo(:, 3,22,10) = (/ &
+        & 0.81885e-01_rb,0.18840e+00_rb,0.21309e+00_rb,0.21858e+00_rb,0.16461e+00_rb /)
+      kbo(:, 4,22,10) = (/ &
+        & 0.87223e-01_rb,0.20113e+00_rb,0.22859e+00_rb,0.23430e+00_rb,0.17688e+00_rb /)
+      kbo(:, 5,22,10) = (/ &
+        & 0.92500e-01_rb,0.21374e+00_rb,0.24532e+00_rb,0.25104e+00_rb,0.18976e+00_rb /)
+      kbo(:, 1,23,10) = (/ &
+        & 0.62506e-01_rb,0.15298e+00_rb,0.17442e+00_rb,0.17913e+00_rb,0.13258e+00_rb /)
+      kbo(:, 2,23,10) = (/ &
+        & 0.67194e-01_rb,0.16597e+00_rb,0.18829e+00_rb,0.19340e+00_rb,0.14391e+00_rb /)
+      kbo(:, 3,23,10) = (/ &
+        & 0.72099e-01_rb,0.17922e+00_rb,0.20360e+00_rb,0.20869e+00_rb,0.15600e+00_rb /)
+      kbo(:, 4,23,10) = (/ &
+        & 0.77023e-01_rb,0.19243e+00_rb,0.22032e+00_rb,0.22532e+00_rb,0.16873e+00_rb /)
+      kbo(:, 5,23,10) = (/ &
+        & 0.81629e-01_rb,0.20537e+00_rb,0.23792e+00_rb,0.24291e+00_rb,0.18203e+00_rb /)
+      kbo(:, 1,24,10) = (/ &
+        & 0.54705e-01_rb,0.14435e+00_rb,0.16539e+00_rb,0.17004e+00_rb,0.12479e+00_rb /)
+      kbo(:, 2,24,10) = (/ &
+        & 0.59055e-01_rb,0.15781e+00_rb,0.18024e+00_rb,0.18505e+00_rb,0.13663e+00_rb /)
+      kbo(:, 3,24,10) = (/ &
+        & 0.63456e-01_rb,0.17157e+00_rb,0.19662e+00_rb,0.20113e+00_rb,0.14915e+00_rb /)
+      kbo(:, 4,24,10) = (/ &
+        & 0.67778e-01_rb,0.18520e+00_rb,0.21409e+00_rb,0.21860e+00_rb,0.16222e+00_rb /)
+      kbo(:, 5,24,10) = (/ &
+        & 0.71741e-01_rb,0.19852e+00_rb,0.23252e+00_rb,0.23726e+00_rb,0.17594e+00_rb /)
+      kbo(:, 1,25,10) = (/ &
+        & 0.47972e-01_rb,0.13725e+00_rb,0.15860e+00_rb,0.16297e+00_rb,0.11866e+00_rb /)
+      kbo(:, 2,25,10) = (/ &
+        & 0.51893e-01_rb,0.15121e+00_rb,0.17443e+00_rb,0.17877e+00_rb,0.13085e+00_rb /)
+      kbo(:, 3,25,10) = (/ &
+        & 0.55832e-01_rb,0.16535e+00_rb,0.19157e+00_rb,0.19578e+00_rb,0.14380e+00_rb /)
+      kbo(:, 4,25,10) = (/ &
+        & 0.59570e-01_rb,0.17943e+00_rb,0.20993e+00_rb,0.21423e+00_rb,0.15728e+00_rb /)
+      kbo(:, 5,25,10) = (/ &
+        & 0.62996e-01_rb,0.19323e+00_rb,0.22909e+00_rb,0.23401e+00_rb,0.17147e+00_rb /)
+      kbo(:, 1,26,10) = (/ &
+        & 0.42166e-01_rb,0.13173e+00_rb,0.15395e+00_rb,0.15801e+00_rb,0.11401e+00_rb /)
+      kbo(:, 2,26,10) = (/ &
+        & 0.45660e-01_rb,0.14616e+00_rb,0.17062e+00_rb,0.17468e+00_rb,0.12664e+00_rb /)
+      kbo(:, 3,26,10) = (/ &
+        & 0.49079e-01_rb,0.16071e+00_rb,0.18859e+00_rb,0.19278e+00_rb,0.14002e+00_rb /)
+      kbo(:, 4,26,10) = (/ &
+        & 0.52306e-01_rb,0.17521e+00_rb,0.20782e+00_rb,0.21223e+00_rb,0.15402e+00_rb /)
+      kbo(:, 5,26,10) = (/ &
+        & 0.55285e-01_rb,0.18955e+00_rb,0.22765e+00_rb,0.23299e+00_rb,0.16864e+00_rb /)
+      kbo(:, 1,27,10) = (/ &
+        & 0.37040e-01_rb,0.12755e+00_rb,0.15088e+00_rb,0.15474e+00_rb,0.11059e+00_rb /)
+      kbo(:, 2,27,10) = (/ &
+        & 0.40121e-01_rb,0.14241e+00_rb,0.16845e+00_rb,0.17243e+00_rb,0.12369e+00_rb /)
+      kbo(:, 3,27,10) = (/ &
+        & 0.43101e-01_rb,0.15742e+00_rb,0.18726e+00_rb,0.19156e+00_rb,0.13753e+00_rb /)
+      kbo(:, 4,27,10) = (/ &
+        & 0.45931e-01_rb,0.17241e+00_rb,0.20722e+00_rb,0.21200e+00_rb,0.15204e+00_rb /)
+      kbo(:, 5,27,10) = (/ &
+        & 0.48598e-01_rb,0.18733e+00_rb,0.22772e+00_rb,0.23361e+00_rb,0.16711e+00_rb /)
+      kbo(:, 1,28,10) = (/ &
+        & 0.32582e-01_rb,0.12457e+00_rb,0.14931e+00_rb,0.15310e+00_rb,0.10829e+00_rb /)
+      kbo(:, 2,28,10) = (/ &
+        & 0.35269e-01_rb,0.13987e+00_rb,0.16776e+00_rb,0.17185e+00_rb,0.12185e+00_rb /)
+      kbo(:, 3,28,10) = (/ &
+        & 0.37905e-01_rb,0.15538e+00_rb,0.18740e+00_rb,0.19192e+00_rb,0.13621e+00_rb /)
+      kbo(:, 4,28,10) = (/ &
+        & 0.40411e-01_rb,0.17101e+00_rb,0.20797e+00_rb,0.21319e+00_rb,0.15122e+00_rb /)
+      kbo(:, 5,28,10) = (/ &
+        & 0.42843e-01_rb,0.18643e+00_rb,0.22906e+00_rb,0.23551e+00_rb,0.16683e+00_rb /)
+      kbo(:, 1,29,10) = (/ &
+        & 0.28694e-01_rb,0.12285e+00_rb,0.14922e+00_rb,0.15309e+00_rb,0.10715e+00_rb /)
+      kbo(:, 2,29,10) = (/ &
+        & 0.31078e-01_rb,0.13867e+00_rb,0.16851e+00_rb,0.17281e+00_rb,0.12115e+00_rb /)
+      kbo(:, 3,29,10) = (/ &
+        & 0.33398e-01_rb,0.15475e+00_rb,0.18886e+00_rb,0.19373e+00_rb,0.13609e+00_rb /)
+      kbo(:, 4,29,10) = (/ &
+        & 0.35655e-01_rb,0.17087e+00_rb,0.21002e+00_rb,0.21569e+00_rb,0.15161e+00_rb /)
+      kbo(:, 5,29,10) = (/ &
+        & 0.37934e-01_rb,0.18672e+00_rb,0.23156e+00_rb,0.23855e+00_rb,0.16767e+00_rb /)
+      kbo(:, 1,30,10) = (/ &
+        & 0.25318e-01_rb,0.12223e+00_rb,0.15038e+00_rb,0.15442e+00_rb,0.10692e+00_rb /)
+      kbo(:, 2,30,10) = (/ &
+        & 0.27416e-01_rb,0.13863e+00_rb,0.17040e+00_rb,0.17493e+00_rb,0.12146e+00_rb /)
+      kbo(:, 3,30,10) = (/ &
+        & 0.29487e-01_rb,0.15524e+00_rb,0.19136e+00_rb,0.19656e+00_rb,0.13693e+00_rb /)
+      kbo(:, 4,30,10) = (/ &
+        & 0.31585e-01_rb,0.17178e+00_rb,0.21298e+00_rb,0.21911e+00_rb,0.15294e+00_rb /)
+      kbo(:, 5,30,10) = (/ &
+        & 0.33743e-01_rb,0.18794e+00_rb,0.23489e+00_rb,0.24234e+00_rb,0.16937e+00_rb /)
+      kbo(:, 1,31,10) = (/ &
+        & 0.22384e-01_rb,0.12276e+00_rb,0.15268e+00_rb,0.15694e+00_rb,0.10764e+00_rb /)
+      kbo(:, 2,31,10) = (/ &
+        & 0.24241e-01_rb,0.13972e+00_rb,0.17333e+00_rb,0.17809e+00_rb,0.12275e+00_rb /)
+      kbo(:, 3,31,10) = (/ &
+        & 0.26155e-01_rb,0.15678e+00_rb,0.19481e+00_rb,0.20028e+00_rb,0.13870e+00_rb /)
+      kbo(:, 4,31,10) = (/ &
+        & 0.28119e-01_rb,0.17362e+00_rb,0.21675e+00_rb,0.22330e+00_rb,0.15510e+00_rb /)
+      kbo(:, 5,31,10) = (/ &
+        & 0.30218e-01_rb,0.19000e+00_rb,0.23891e+00_rb,0.24680e+00_rb,0.17182e+00_rb /)
+      kbo(:, 1,32,10) = (/ &
+        & 0.19818e-01_rb,0.12431e+00_rb,0.15590e+00_rb,0.16037e+00_rb,0.10919e+00_rb /)
+      kbo(:, 2,32,10) = (/ &
+        & 0.21499e-01_rb,0.14174e+00_rb,0.17710e+00_rb,0.18207e+00_rb,0.12484e+00_rb /)
+      kbo(:, 3,32,10) = (/ &
+        & 0.23289e-01_rb,0.15910e+00_rb,0.19892e+00_rb,0.20468e+00_rb,0.14116e+00_rb /)
+      kbo(:, 4,32,10) = (/ &
+        & 0.25197e-01_rb,0.17612e+00_rb,0.22110e+00_rb,0.22808e+00_rb,0.15787e+00_rb /)
+      kbo(:, 5,32,10) = (/ &
+        & 0.27257e-01_rb,0.19267e+00_rb,0.24341e+00_rb,0.25172e+00_rb,0.17483e+00_rb /)
+      kbo(:, 1,33,10) = (/ &
+        & 0.17588e-01_rb,0.12670e+00_rb,0.15984e+00_rb,0.16448e+00_rb,0.11147e+00_rb /)
+      kbo(:, 2,33,10) = (/ &
+        & 0.19157e-01_rb,0.14450e+00_rb,0.18143e+00_rb,0.18665e+00_rb,0.12758e+00_rb /)
+      kbo(:, 3,33,10) = (/ &
+        & 0.20859e-01_rb,0.16204e+00_rb,0.20353e+00_rb,0.20957e+00_rb,0.14421e+00_rb /)
+      kbo(:, 4,33,10) = (/ &
+        & 0.22735e-01_rb,0.17915e+00_rb,0.22585e+00_rb,0.23324e+00_rb,0.16113e+00_rb /)
+      kbo(:, 5,33,10) = (/ &
+        & 0.24799e-01_rb,0.19574e+00_rb,0.24826e+00_rb,0.25697e+00_rb,0.17829e+00_rb /)
+      kbo(:, 1,34,10) = (/ &
+        & 0.15617e-01_rb,0.12913e+00_rb,0.16354e+00_rb,0.16830e+00_rb,0.11378e+00_rb /)
+      kbo(:, 2,34,10) = (/ &
+        & 0.17096e-01_rb,0.14716e+00_rb,0.18538e+00_rb,0.19084e+00_rb,0.13021e+00_rb /)
+      kbo(:, 3,34,10) = (/ &
+        & 0.18753e-01_rb,0.16482e+00_rb,0.20769e+00_rb,0.21402e+00_rb,0.14705e+00_rb /)
+      kbo(:, 4,34,10) = (/ &
+        & 0.20625e-01_rb,0.18194e+00_rb,0.23012e+00_rb,0.23784e+00_rb,0.16411e+00_rb /)
+      kbo(:, 5,34,10) = (/ &
+        & 0.22709e-01_rb,0.19848e+00_rb,0.25256e+00_rb,0.26160e+00_rb,0.18143e+00_rb /)
+      kbo(:, 1,35,10) = (/ &
+        & 0.13789e-01_rb,0.13026e+00_rb,0.16543e+00_rb,0.17032e+00_rb,0.11490e+00_rb /)
+      kbo(:, 2,35,10) = (/ &
+        & 0.15216e-01_rb,0.14846e+00_rb,0.18743e+00_rb,0.19307e+00_rb,0.13153e+00_rb /)
+      kbo(:, 3,35,10) = (/ &
+        & 0.16842e-01_rb,0.16621e+00_rb,0.20987e+00_rb,0.21641e+00_rb,0.14851e+00_rb /)
+      kbo(:, 4,35,10) = (/ &
+        & 0.18686e-01_rb,0.18333e+00_rb,0.23239e+00_rb,0.24032e+00_rb,0.16565e+00_rb /)
+      kbo(:, 5,35,10) = (/ &
+        & 0.20799e-01_rb,0.19983e+00_rb,0.25487e+00_rb,0.26409e+00_rb,0.18307e+00_rb /)
+      kbo(:, 1,36,10) = (/ &
+        & 0.12099e-01_rb,0.12969e+00_rb,0.16517e+00_rb,0.17011e+00_rb,0.11448e+00_rb /)
+      kbo(:, 2,36,10) = (/ &
+        & 0.13456e-01_rb,0.14803e+00_rb,0.18723e+00_rb,0.19293e+00_rb,0.13120e+00_rb /)
+      kbo(:, 3,36,10) = (/ &
+        & 0.15032e-01_rb,0.16587e+00_rb,0.20973e+00_rb,0.21635e+00_rb,0.14826e+00_rb /)
+      kbo(:, 4,36,10) = (/ &
+        & 0.16854e-01_rb,0.18305e+00_rb,0.23232e+00_rb,0.24032e+00_rb,0.16546e+00_rb /)
+      kbo(:, 5,36,10) = (/ &
+        & 0.18993e-01_rb,0.19959e+00_rb,0.25485e+00_rb,0.26414e+00_rb,0.18292e+00_rb /)
+      kbo(:, 1,37,10) = (/ &
+        & 0.10461e-01_rb,0.12652e+00_rb,0.16173e+00_rb,0.16663e+00_rb,0.11173e+00_rb /)
+      kbo(:, 2,37,10) = (/ &
+        & 0.11729e-01_rb,0.14498e+00_rb,0.18379e+00_rb,0.18940e+00_rb,0.12844e+00_rb /)
+      kbo(:, 3,37,10) = (/ &
+        & 0.13230e-01_rb,0.16298e+00_rb,0.20628e+00_rb,0.21278e+00_rb,0.14553e+00_rb /)
+      kbo(:, 4,37,10) = (/ &
+        & 0.15005e-01_rb,0.18033e+00_rb,0.22891e+00_rb,0.23679e+00_rb,0.16275e+00_rb /)
+      kbo(:, 5,37,10) = (/ &
+        & 0.17126e-01_rb,0.19699e+00_rb,0.25151e+00_rb,0.26065e+00_rb,0.18019e+00_rb /)
+      kbo(:, 1,38,10) = (/ &
+        & 0.90496e-02_rb,0.12333e+00_rb,0.15823e+00_rb,0.16307e+00_rb,0.10897e+00_rb /)
+      kbo(:, 2,38,10) = (/ &
+        & 0.10227e-01_rb,0.14188e+00_rb,0.18026e+00_rb,0.18578e+00_rb,0.12565e+00_rb /)
+      kbo(:, 3,38,10) = (/ &
+        & 0.11665e-01_rb,0.16002e+00_rb,0.20273e+00_rb,0.20911e+00_rb,0.14274e+00_rb /)
+      kbo(:, 4,38,10) = (/ &
+        & 0.13392e-01_rb,0.17754e+00_rb,0.22537e+00_rb,0.23309e+00_rb,0.15996e+00_rb /)
+      kbo(:, 5,38,10) = (/ &
+        & 0.15506e-01_rb,0.19433e+00_rb,0.24804e+00_rb,0.25702e+00_rb,0.17741e+00_rb /)
+      kbo(:, 1,39,10) = (/ &
+        & 0.78338e-02_rb,0.12027e+00_rb,0.15482e+00_rb,0.15961e+00_rb,0.10632e+00_rb /)
+      kbo(:, 2,39,10) = (/ &
+        & 0.89378e-02_rb,0.13888e+00_rb,0.17682e+00_rb,0.18224e+00_rb,0.12295e+00_rb /)
+      kbo(:, 3,39,10) = (/ &
+        & 0.10310e-01_rb,0.15714e+00_rb,0.19926e+00_rb,0.20553e+00_rb,0.14003e+00_rb /)
+      kbo(:, 4,39,10) = (/ &
+        & 0.12002e-01_rb,0.17480e+00_rb,0.22192e+00_rb,0.22947e+00_rb,0.15725e+00_rb /)
+      kbo(:, 5,39,10) = (/ &
+        & 0.14105e-01_rb,0.19172e+00_rb,0.24464e+00_rb,0.25344e+00_rb,0.17470e+00_rb /)
+      kbo(:, 1,40,10) = (/ &
+        & 0.66914e-02_rb,0.11542e+00_rb,0.14925e+00_rb,0.15395e+00_rb,0.10210e+00_rb /)
+      kbo(:, 2,40,10) = (/ &
+        & 0.77047e-02_rb,0.13403e+00_rb,0.17118e+00_rb,0.17643e+00_rb,0.11860e+00_rb /)
+      kbo(:, 3,40,10) = (/ &
+        & 0.89835e-02_rb,0.15246e+00_rb,0.19353e+00_rb,0.19961e+00_rb,0.13564e+00_rb /)
+      kbo(:, 4,40,10) = (/ &
+        & 0.10606e-01_rb,0.17030e+00_rb,0.21619e+00_rb,0.22340e+00_rb,0.15283e+00_rb /)
+      kbo(:, 5,40,10) = (/ &
+        & 0.12648e-01_rb,0.18743e+00_rb,0.23893e+00_rb,0.24746e+00_rb,0.17023e+00_rb /)
+      kbo(:, 1,41,10) = (/ &
+        & 0.57043e-02_rb,0.11041e+00_rb,0.14350e+00_rb,0.14812e+00_rb,0.97770e-01_rb /)
+      kbo(:, 2,41,10) = (/ &
+        & 0.66329e-02_rb,0.12897e+00_rb,0.16532e+00_rb,0.17041e+00_rb,0.11409e+00_rb /)
+      kbo(:, 3,41,10) = (/ &
+        & 0.78105e-02_rb,0.14755e+00_rb,0.18757e+00_rb,0.19344e+00_rb,0.13104e+00_rb /)
+      kbo(:, 4,41,10) = (/ &
+        & 0.93536e-02_rb,0.16558e+00_rb,0.21020e+00_rb,0.21707e+00_rb,0.14824e+00_rb /)
+      kbo(:, 5,41,10) = (/ &
+        & 0.11328e-01_rb,0.18290e+00_rb,0.23295e+00_rb,0.24119e+00_rb,0.16557e+00_rb /)
+      kbo(:, 1,42,10) = (/ &
+        & 0.48607e-02_rb,0.10547e+00_rb,0.13783e+00_rb,0.14238e+00_rb,0.93542e-01_rb /)
+      kbo(:, 2,42,10) = (/ &
+        & 0.56953e-02_rb,0.12396e+00_rb,0.15948e+00_rb,0.16442e+00_rb,0.10965e+00_rb /)
+      kbo(:, 3,42,10) = (/ &
+        & 0.67857e-02_rb,0.14262e+00_rb,0.18165e+00_rb,0.18732e+00_rb,0.12648e+00_rb /)
+      kbo(:, 4,42,10) = (/ &
+        & 0.82516e-02_rb,0.16083e+00_rb,0.20424e+00_rb,0.21080e+00_rb,0.14367e+00_rb /)
+      kbo(:, 5,42,10) = (/ &
+        & 0.10149e-01_rb,0.17836e+00_rb,0.22696e+00_rb,0.23490e+00_rb,0.16095e+00_rb /)
+      kbo(:, 1,43,10) = (/ &
+        & 0.40934e-02_rb,0.99600e-01_rb,0.13106e+00_rb,0.13554e+00_rb,0.88531e-01_rb /)
+      kbo(:, 2,43,10) = (/ &
+        & 0.48473e-02_rb,0.11796e+00_rb,0.15249e+00_rb,0.15728e+00_rb,0.10438e+00_rb /)
+      kbo(:, 3,43,10) = (/ &
+        & 0.58407e-02_rb,0.13665e+00_rb,0.17453e+00_rb,0.17995e+00_rb,0.12102e+00_rb /)
+      kbo(:, 4,43,10) = (/ &
+        & 0.71922e-02_rb,0.15505e+00_rb,0.19702e+00_rb,0.20328e+00_rb,0.13817e+00_rb /)
+      kbo(:, 5,43,10) = (/ &
+        & 0.89819e-02_rb,0.17282e+00_rb,0.21974e+00_rb,0.22722e+00_rb,0.15541e+00_rb /)
+      kbo(:, 1,44,10) = (/ &
+        & 0.34279e-02_rb,0.93376e-01_rb,0.12386e+00_rb,0.12828e+00_rb,0.83256e-01_rb /)
+      kbo(:, 2,44,10) = (/ &
+        & 0.40981e-02_rb,0.11153e+00_rb,0.14501e+00_rb,0.14969e+00_rb,0.98786e-01_rb /)
+      kbo(:, 3,44,10) = (/ &
+        & 0.49801e-02_rb,0.13017e+00_rb,0.16691e+00_rb,0.17209e+00_rb,0.11523e+00_rb /)
+      kbo(:, 4,44,10) = (/ &
+        & 0.62140e-02_rb,0.14877e+00_rb,0.18924e+00_rb,0.19525e+00_rb,0.13223e+00_rb /)
+      kbo(:, 5,44,10) = (/ &
+        & 0.78865e-02_rb,0.16678e+00_rb,0.21196e+00_rb,0.21896e+00_rb,0.14947e+00_rb /)
+      kbo(:, 1,45,10) = (/ &
+        & 0.28724e-02_rb,0.87295e-01_rb,0.11671e+00_rb,0.12114e+00_rb,0.78089e-01_rb /)
+      kbo(:, 2,45,10) = (/ &
+        & 0.34468e-02_rb,0.10517e+00_rb,0.13765e+00_rb,0.14225e+00_rb,0.93322e-01_rb /)
+      kbo(:, 3,45,10) = (/ &
+        & 0.42450e-02_rb,0.12371e+00_rb,0.15937e+00_rb,0.16431e+00_rb,0.10950e+00_rb /)
+      kbo(:, 4,45,10) = (/ &
+        & 0.53608e-02_rb,0.14242e+00_rb,0.18156e+00_rb,0.18727e+00_rb,0.12633e+00_rb /)
+      kbo(:, 5,45,10) = (/ &
+        & 0.69069e-02_rb,0.16067e+00_rb,0.20420e+00_rb,0.21079e+00_rb,0.14356e+00_rb /)
+      kbo(:, 1,46,10) = (/ &
+        & 0.23836e-02_rb,0.81023e-01_rb,0.10917e+00_rb,0.11375e+00_rb,0.72722e-01_rb /)
+      kbo(:, 2,46,10) = (/ &
+        & 0.28929e-02_rb,0.98528e-01_rb,0.12997e+00_rb,0.13446e+00_rb,0.87653e-01_rb /)
+      kbo(:, 3,46,10) = (/ &
+        & 0.35850e-02_rb,0.11690e+00_rb,0.15139e+00_rb,0.15617e+00_rb,0.10350e+00_rb /)
+      kbo(:, 4,46,10) = (/ &
+        & 0.45850e-02_rb,0.13564e+00_rb,0.17345e+00_rb,0.17887e+00_rb,0.12014e+00_rb /)
+      kbo(:, 5,46,10) = (/ &
+        & 0.59899e-02_rb,0.15409e+00_rb,0.19595e+00_rb,0.20220e+00_rb,0.13729e+00_rb /)
+      kbo(:, 1,47,10) = (/ &
+        & 0.19470e-02_rb,0.74238e-01_rb,0.10082e+00_rb,0.10569e+00_rb,0.66936e-01_rb /)
+      kbo(:, 2,47,10) = (/ &
+        & 0.23890e-02_rb,0.91244e-01_rb,0.12148e+00_rb,0.12591e+00_rb,0.81479e-01_rb /)
+      kbo(:, 3,47,10) = (/ &
+        & 0.29827e-02_rb,0.10934e+00_rb,0.14258e+00_rb,0.14724e+00_rb,0.96940e-01_rb /)
+      kbo(:, 4,47,10) = (/ &
+        & 0.38583e-02_rb,0.12800e+00_rb,0.16447e+00_rb,0.16958e+00_rb,0.11333e+00_rb /)
+      kbo(:, 5,47,10) = (/ &
+        & 0.51142e-02_rb,0.14666e+00_rb,0.18678e+00_rb,0.19270e+00_rb,0.13028e+00_rb /)
+      kbo(:, 1,48,10) = (/ &
+        & 0.15861e-02_rb,0.67739e-01_rb,0.92637e-01_rb,0.97854e-01_rb,0.61349e-01_rb /)
+      kbo(:, 2,48,10) = (/ &
+        & 0.19649e-02_rb,0.84157e-01_rb,0.11305e+00_rb,0.11755e+00_rb,0.75432e-01_rb /)
+      kbo(:, 3,48,10) = (/ &
+        & 0.24852e-02_rb,0.10189e+00_rb,0.13395e+00_rb,0.13849e+00_rb,0.90556e-01_rb /)
+      kbo(:, 4,48,10) = (/ &
+        & 0.32371e-02_rb,0.12039e+00_rb,0.15554e+00_rb,0.16041e+00_rb,0.10658e+00_rb /)
+      kbo(:, 5,48,10) = (/ &
+        & 0.43439e-02_rb,0.13914e+00_rb,0.17770e+00_rb,0.18327e+00_rb,0.12334e+00_rb /)
+      kbo(:, 1,49,10) = (/ &
+        & 0.12857e-02_rb,0.61441e-01_rb,0.84638e-01_rb,0.90184e-01_rb,0.55928e-01_rb /)
+      kbo(:, 2,49,10) = (/ &
+        & 0.16127e-02_rb,0.77337e-01_rb,0.10472e+00_rb,0.10945e+00_rb,0.69577e-01_rb /)
+      kbo(:, 3,49,10) = (/ &
+        & 0.20537e-02_rb,0.94575e-01_rb,0.12545e+00_rb,0.12989e+00_rb,0.84331e-01_rb /)
+      kbo(:, 4,49,10) = (/ &
+        & 0.26910e-02_rb,0.11284e+00_rb,0.14670e+00_rb,0.15143e+00_rb,0.99981e-01_rb /)
+      kbo(:, 5,49,10) = (/ &
+        & 0.36640e-02_rb,0.13156e+00_rb,0.16870e+00_rb,0.17395e+00_rb,0.11651e+00_rb /)
+      kbo(:, 1,50,10) = (/ &
+        & 0.10457e-02_rb,0.55773e-01_rb,0.77388e-01_rb,0.83215e-01_rb,0.51035e-01_rb /)
+      kbo(:, 2,50,10) = (/ &
+        & 0.13145e-02_rb,0.71139e-01_rb,0.96987e-01_rb,0.10202e+00_rb,0.64279e-01_rb /)
+      kbo(:, 3,50,10) = (/ &
+        & 0.17051e-02_rb,0.87902e-01_rb,0.11756e+00_rb,0.12199e+00_rb,0.78626e-01_rb /)
+      kbo(:, 4,50,10) = (/ &
+        & 0.22648e-02_rb,0.10582e+00_rb,0.13854e+00_rb,0.14317e+00_rb,0.93933e-01_rb /)
+      kbo(:, 5,50,10) = (/ &
+        & 0.31061e-02_rb,0.12442e+00_rb,0.16033e+00_rb,0.16532e+00_rb,0.11017e+00_rb /)
+      kbo(:, 1,51,10) = (/ &
+        & 0.84549e-03_rb,0.50472e-01_rb,0.70528e-01_rb,0.76615e-01_rb,0.46420e-01_rb /)
+      kbo(:, 2,51,10) = (/ &
+        & 0.10690e-02_rb,0.65329e-01_rb,0.89631e-01_rb,0.94967e-01_rb,0.59271e-01_rb /)
+      kbo(:, 3,51,10) = (/ &
+        & 0.14006e-02_rb,0.81572e-01_rb,0.10994e+00_rb,0.11450e+00_rb,0.73207e-01_rb /)
+      kbo(:, 4,51,10) = (/ &
+        & 0.18893e-02_rb,0.99123e-01_rb,0.13077e+00_rb,0.13529e+00_rb,0.88203e-01_rb /)
+      kbo(:, 5,51,10) = (/ &
+        & 0.26211e-02_rb,0.11756e+00_rb,0.15226e+00_rb,0.15707e+00_rb,0.10410e+00_rb /)
+      kbo(:, 1,52,10) = (/ &
+        & 0.67948e-03_rb,0.45452e-01_rb,0.63925e-01_rb,0.70191e-01_rb,0.41984e-01_rb /)
+      kbo(:, 2,52,10) = (/ &
+        & 0.86532e-03_rb,0.59697e-01_rb,0.82454e-01_rb,0.88085e-01_rb,0.54427e-01_rb /)
+      kbo(:, 3,52,10) = (/ &
+        & 0.11431e-02_rb,0.75434e-01_rb,0.10239e+00_rb,0.10721e+00_rb,0.67964e-01_rb /)
+      kbo(:, 4,52,10) = (/ &
+        & 0.15771e-02_rb,0.92585e-01_rb,0.12313e+00_rb,0.12757e+00_rb,0.82618e-01_rb /)
+      kbo(:, 5,52,10) = (/ &
+        & 0.22169e-02_rb,0.11074e+00_rb,0.14429e+00_rb,0.14899e+00_rb,0.98166e-01_rb /)
+      kbo(:, 1,53,10) = (/ &
+        & 0.54404e-03_rb,0.40689e-01_rb,0.57565e-01_rb,0.63870e-01_rb,0.37709e-01_rb /)
+      kbo(:, 2,53,10) = (/ &
+        & 0.69516e-03_rb,0.54249e-01_rb,0.75469e-01_rb,0.81366e-01_rb,0.49728e-01_rb /)
+      kbo(:, 3,53,10) = (/ &
+        & 0.92495e-03_rb,0.69505e-01_rb,0.94951e-01_rb,0.10007e+00_rb,0.62880e-01_rb /)
+      kbo(:, 4,53,10) = (/ &
+        & 0.12935e-02_rb,0.86139e-01_rb,0.11548e+00_rb,0.11993e+00_rb,0.77126e-01_rb /)
+      kbo(:, 5,53,10) = (/ &
+        & 0.18603e-02_rb,0.10397e+00_rb,0.13641e+00_rb,0.14102e+00_rb,0.92352e-01_rb /)
+      kbo(:, 1,54,10) = (/ &
+        & 0.43618e-03_rb,0.36557e-01_rb,0.51984e-01_rb,0.58236e-01_rb,0.33960e-01_rb /)
+      kbo(:, 2,54,10) = (/ &
+        & 0.56166e-03_rb,0.49456e-01_rb,0.69241e-01_rb,0.75371e-01_rb,0.45540e-01_rb /)
+      kbo(:, 3,54,10) = (/ &
+        & 0.75035e-03_rb,0.64217e-01_rb,0.88252e-01_rb,0.93648e-01_rb,0.58325e-01_rb /)
+      kbo(:, 4,54,10) = (/ &
+        & 0.10628e-02_rb,0.80385e-01_rb,0.10853e+00_rb,0.11313e+00_rb,0.72201e-01_rb /)
+      kbo(:, 5,54,10) = (/ &
+        & 0.15600e-02_rb,0.97867e-01_rb,0.12933e+00_rb,0.13384e+00_rb,0.87138e-01_rb /)
+      kbo(:, 1,55,10) = (/ &
+        & 0.34930e-03_rb,0.32793e-01_rb,0.46881e-01_rb,0.52981e-01_rb,0.30517e-01_rb /)
+      kbo(:, 2,55,10) = (/ &
+        & 0.45330e-03_rb,0.45087e-01_rb,0.63469e-01_rb,0.69744e-01_rb,0.41669e-01_rb /)
+      kbo(:, 3,55,10) = (/ &
+        & 0.61016e-03_rb,0.59300e-01_rb,0.81969e-01_rb,0.87622e-01_rb,0.54097e-01_rb /)
+      kbo(:, 4,55,10) = (/ &
+        & 0.87186e-03_rb,0.75017e-01_rb,0.10190e+00_rb,0.10674e+00_rb,0.67613e-01_rb /)
+      kbo(:, 5,55,10) = (/ &
+        & 0.13255e-02_rb,0.92144e-01_rb,0.12263e+00_rb,0.12707e+00_rb,0.82251e-01_rb /)
+      kbo(:, 1,56,10) = (/ &
+        & 0.27869e-03_rb,0.29255e-01_rb,0.42021e-01_rb,0.47895e-01_rb,0.27250e-01_rb /)
+      kbo(:, 2,56,10) = (/ &
+        & 0.36450e-03_rb,0.40920e-01_rb,0.57903e-01_rb,0.64209e-01_rb,0.37931e-01_rb /)
+      kbo(:, 3,56,10) = (/ &
+        & 0.49136e-03_rb,0.54534e-01_rb,0.75862e-01_rb,0.81747e-01_rb,0.49990e-01_rb /)
+      kbo(:, 4,56,10) = (/ &
+        & 0.71172e-03_rb,0.69828e-01_rb,0.95390e-01_rb,0.10049e+00_rb,0.63168e-01_rb /)
+      kbo(:, 5,56,10) = (/ &
+        & 0.11017e-02_rb,0.86502e-01_rb,0.11594e+00_rb,0.12039e+00_rb,0.77442e-01_rb /)
+      kbo(:, 1,57,10) = (/ &
+        & 0.22107e-03_rb,0.25925e-01_rb,0.37436e-01_rb,0.42992e-01_rb,0.24134e-01_rb /)
+      kbo(:, 2,57,10) = (/ &
+        & 0.29170e-03_rb,0.36963e-01_rb,0.52553e-01_rb,0.58819e-01_rb,0.34341e-01_rb /)
+      kbo(:, 3,57,10) = (/ &
+        & 0.39477e-03_rb,0.49943e-01_rb,0.69900e-01_rb,0.76011e-01_rb,0.45979e-01_rb /)
+      kbo(:, 4,57,10) = (/ &
+        & 0.57598e-03_rb,0.64771e-01_rb,0.88986e-01_rb,0.94351e-01_rb,0.58814e-01_rb /)
+      kbo(:, 5,57,10) = (/ &
+        & 0.90995e-03_rb,0.80998e-01_rb,0.10929e+00_rb,0.11387e+00_rb,0.72731e-01_rb /)
+      kbo(:, 1,58,10) = (/ &
+        & 0.17561e-03_rb,0.22952e-01_rb,0.33334e-01_rb,0.38531e-01_rb,0.21328e-01_rb /)
+      kbo(:, 2,58,10) = (/ &
+        & 0.23328e-03_rb,0.33378e-01_rb,0.47700e-01_rb,0.53835e-01_rb,0.31067e-01_rb /)
+      kbo(:, 3,58,10) = (/ &
+        & 0.31697e-03_rb,0.45784e-01_rb,0.64416e-01_rb,0.70683e-01_rb,0.42303e-01_rb /)
+      kbo(:, 4,58,10) = (/ &
+        & 0.46537e-03_rb,0.60108e-01_rb,0.83029e-01_rb,0.88636e-01_rb,0.54797e-01_rb /)
+      kbo(:, 5,58,10) = (/ &
+        & 0.74786e-03_rb,0.75908e-01_rb,0.10302e+00_rb,0.10782e+00_rb,0.68377e-01_rb /)
+      kbo(:, 1,59,10) = (/ &
+        & 0.14648e-03_rb,0.21806e-01_rb,0.31752e-01_rb,0.36796e-01_rb,0.20240e-01_rb /)
+      kbo(:, 2,59,10) = (/ &
+        & 0.19618e-03_rb,0.31995e-01_rb,0.45805e-01_rb,0.51875e-01_rb,0.29797e-01_rb /)
+      kbo(:, 3,59,10) = (/ &
+        & 0.27063e-03_rb,0.44166e-01_rb,0.62268e-01_rb,0.68564e-01_rb,0.40859e-01_rb /)
+      kbo(:, 4,59,10) = (/ &
+        & 0.40629e-03_rb,0.58271e-01_rb,0.80681e-01_rb,0.86380e-01_rb,0.53223e-01_rb /)
+      kbo(:, 5,59,10) = (/ &
+        & 0.67143e-03_rb,0.73904e-01_rb,0.10053e+00_rb,0.10542e+00_rb,0.66665e-01_rb /)
+      kbo(:, 1,13,11) = (/ &
+        & 0.43607e+00_rb,0.62808e+00_rb,0.71724e+00_rb,0.73315e+00_rb,0.60101e+00_rb /)
+      kbo(:, 2,13,11) = (/ &
+        & 0.43332e+00_rb,0.62604e+00_rb,0.71980e+00_rb,0.74002e+00_rb,0.61186e+00_rb /)
+      kbo(:, 3,13,11) = (/ &
+        & 0.43924e+00_rb,0.62431e+00_rb,0.72116e+00_rb,0.74635e+00_rb,0.62343e+00_rb /)
+      kbo(:, 4,13,11) = (/ &
+        & 0.44984e+00_rb,0.62482e+00_rb,0.72168e+00_rb,0.75298e+00_rb,0.63261e+00_rb /)
+      kbo(:, 5,13,11) = (/ &
+        & 0.46047e+00_rb,0.63112e+00_rb,0.72222e+00_rb,0.75987e+00_rb,0.64021e+00_rb /)
+      kbo(:, 1,14,11) = (/ &
+        & 0.38105e+00_rb,0.57533e+00_rb,0.67001e+00_rb,0.68808e+00_rb,0.55899e+00_rb /)
+      kbo(:, 2,14,11) = (/ &
+        & 0.38509e+00_rb,0.57518e+00_rb,0.67285e+00_rb,0.69660e+00_rb,0.57227e+00_rb /)
+      kbo(:, 3,14,11) = (/ &
+        & 0.39449e+00_rb,0.57649e+00_rb,0.67532e+00_rb,0.70510e+00_rb,0.58361e+00_rb /)
+      kbo(:, 4,14,11) = (/ &
+        & 0.40382e+00_rb,0.58297e+00_rb,0.67784e+00_rb,0.71417e+00_rb,0.59305e+00_rb /)
+      kbo(:, 5,14,11) = (/ &
+        & 0.41367e+00_rb,0.59430e+00_rb,0.68136e+00_rb,0.72200e+00_rb,0.60202e+00_rb /)
+      kbo(:, 1,15,11) = (/ &
+        & 0.33634e+00_rb,0.52577e+00_rb,0.62172e+00_rb,0.64383e+00_rb,0.51752e+00_rb /)
+      kbo(:, 2,15,11) = (/ &
+        & 0.34434e+00_rb,0.52795e+00_rb,0.62601e+00_rb,0.65389e+00_rb,0.53138e+00_rb /)
+      kbo(:, 3,15,11) = (/ &
+        & 0.35278e+00_rb,0.53440e+00_rb,0.63064e+00_rb,0.66483e+00_rb,0.54288e+00_rb /)
+      kbo(:, 4,15,11) = (/ &
+        & 0.36194e+00_rb,0.54564e+00_rb,0.63643e+00_rb,0.67473e+00_rb,0.55371e+00_rb /)
+      kbo(:, 5,15,11) = (/ &
+        & 0.37392e+00_rb,0.55836e+00_rb,0.64562e+00_rb,0.68317e+00_rb,0.56497e+00_rb /)
+      kbo(:, 1,16,11) = (/ &
+        & 0.29938e+00_rb,0.48063e+00_rb,0.57442e+00_rb,0.60090e+00_rb,0.47563e+00_rb /)
+      kbo(:, 2,16,11) = (/ &
+        & 0.30677e+00_rb,0.48684e+00_rb,0.58100e+00_rb,0.61362e+00_rb,0.49008e+00_rb /)
+      kbo(:, 3,16,11) = (/ &
+        & 0.31495e+00_rb,0.49797e+00_rb,0.58852e+00_rb,0.62578e+00_rb,0.50309e+00_rb /)
+      kbo(:, 4,16,11) = (/ &
+        & 0.32635e+00_rb,0.51101e+00_rb,0.59933e+00_rb,0.63613e+00_rb,0.51641e+00_rb /)
+      kbo(:, 5,16,11) = (/ &
+        & 0.34098e+00_rb,0.52383e+00_rb,0.61318e+00_rb,0.64534e+00_rb,0.52976e+00_rb /)
+      kbo(:, 1,17,11) = (/ &
+        & 0.26573e+00_rb,0.44123e+00_rb,0.53003e+00_rb,0.56054e+00_rb,0.43533e+00_rb /)
+      kbo(:, 2,17,11) = (/ &
+        & 0.27295e+00_rb,0.45155e+00_rb,0.53872e+00_rb,0.57479e+00_rb,0.45023e+00_rb /)
+      kbo(:, 3,17,11) = (/ &
+        & 0.28334e+00_rb,0.46499e+00_rb,0.55060e+00_rb,0.58775e+00_rb,0.46535e+00_rb /)
+      kbo(:, 4,17,11) = (/ &
+        & 0.29718e+00_rb,0.47854e+00_rb,0.56610e+00_rb,0.59925e+00_rb,0.48105e+00_rb /)
+      kbo(:, 5,17,11) = (/ &
+        & 0.31347e+00_rb,0.49215e+00_rb,0.58364e+00_rb,0.61031e+00_rb,0.49645e+00_rb /)
+      kbo(:, 1,18,11) = (/ &
+        & 0.23548e+00_rb,0.40722e+00_rb,0.48899e+00_rb,0.52175e+00_rb,0.39754e+00_rb /)
+      kbo(:, 2,18,11) = (/ &
+        & 0.24465e+00_rb,0.42091e+00_rb,0.50155e+00_rb,0.53754e+00_rb,0.41400e+00_rb /)
+      kbo(:, 3,18,11) = (/ &
+        & 0.25717e+00_rb,0.43494e+00_rb,0.51756e+00_rb,0.55168e+00_rb,0.43132e+00_rb /)
+      kbo(:, 4,18,11) = (/ &
+        & 0.27241e+00_rb,0.44915e+00_rb,0.53619e+00_rb,0.56524e+00_rb,0.44875e+00_rb /)
+      kbo(:, 5,18,11) = (/ &
+        & 0.28792e+00_rb,0.46398e+00_rb,0.55551e+00_rb,0.57930e+00_rb,0.46590e+00_rb /)
+      kbo(:, 1,19,11) = (/ &
+        & 0.20944e+00_rb,0.37826e+00_rb,0.45234e+00_rb,0.48406e+00_rb,0.36392e+00_rb /)
+      kbo(:, 2,19,11) = (/ &
+        & 0.22089e+00_rb,0.39288e+00_rb,0.46903e+00_rb,0.50178e+00_rb,0.38211e+00_rb /)
+      kbo(:, 3,19,11) = (/ &
+        & 0.23514e+00_rb,0.40761e+00_rb,0.48827e+00_rb,0.51821e+00_rb,0.40103e+00_rb /)
+      kbo(:, 4,19,11) = (/ &
+        & 0.24973e+00_rb,0.42303e+00_rb,0.50894e+00_rb,0.53472e+00_rb,0.42003e+00_rb /)
+      kbo(:, 5,19,11) = (/ &
+        & 0.26400e+00_rb,0.44033e+00_rb,0.52950e+00_rb,0.55236e+00_rb,0.43892e+00_rb /)
+      kbo(:, 1,20,11) = (/ &
+        & 0.18773e+00_rb,0.35288e+00_rb,0.42094e+00_rb,0.44918e+00_rb,0.33536e+00_rb /)
+      kbo(:, 2,20,11) = (/ &
+        & 0.20090e+00_rb,0.36792e+00_rb,0.44069e+00_rb,0.46887e+00_rb,0.35493e+00_rb /)
+      kbo(:, 3,20,11) = (/ &
+        & 0.21482e+00_rb,0.38362e+00_rb,0.46266e+00_rb,0.48831e+00_rb,0.37530e+00_rb /)
+      kbo(:, 4,20,11) = (/ &
+        & 0.22865e+00_rb,0.40117e+00_rb,0.48452e+00_rb,0.50881e+00_rb,0.39557e+00_rb /)
+      kbo(:, 5,20,11) = (/ &
+        & 0.24234e+00_rb,0.42087e+00_rb,0.50657e+00_rb,0.53012e+00_rb,0.41595e+00_rb /)
+      kbo(:, 1,21,11) = (/ &
+        & 0.16913e+00_rb,0.33019e+00_rb,0.39388e+00_rb,0.41795e+00_rb,0.31127e+00_rb /)
+      kbo(:, 2,21,11) = (/ &
+        & 0.18253e+00_rb,0.34600e+00_rb,0.41645e+00_rb,0.43947e+00_rb,0.33210e+00_rb /)
+      kbo(:, 3,21,11) = (/ &
+        & 0.19592e+00_rb,0.36350e+00_rb,0.43977e+00_rb,0.46279e+00_rb,0.35347e+00_rb /)
+      kbo(:, 4,21,11) = (/ &
+        & 0.20921e+00_rb,0.38317e+00_rb,0.46337e+00_rb,0.48719e+00_rb,0.37483e+00_rb /)
+      kbo(:, 5,21,11) = (/ &
+        & 0.22258e+00_rb,0.40476e+00_rb,0.48708e+00_rb,0.51206e+00_rb,0.39691e+00_rb /)
+      kbo(:, 1,22,11) = (/ &
+        & 0.15329e+00_rb,0.31121e+00_rb,0.37219e+00_rb,0.39211e+00_rb,0.29266e+00_rb /)
+      kbo(:, 2,22,11) = (/ &
+        & 0.16615e+00_rb,0.32878e+00_rb,0.39682e+00_rb,0.41672e+00_rb,0.31445e+00_rb /)
+      kbo(:, 3,22,11) = (/ &
+        & 0.17924e+00_rb,0.34835e+00_rb,0.42167e+00_rb,0.44342e+00_rb,0.33660e+00_rb /)
+      kbo(:, 4,22,11) = (/ &
+        & 0.19225e+00_rb,0.36990e+00_rb,0.44699e+00_rb,0.47133e+00_rb,0.35944e+00_rb /)
+      kbo(:, 5,22,11) = (/ &
+        & 0.20541e+00_rb,0.39323e+00_rb,0.47271e+00_rb,0.49943e+00_rb,0.38308e+00_rb /)
+      kbo(:, 1,23,11) = (/ &
+        & 0.13887e+00_rb,0.29534e+00_rb,0.35451e+00_rb,0.37144e+00_rb,0.27763e+00_rb /)
+      kbo(:, 2,23,11) = (/ &
+        & 0.15131e+00_rb,0.31502e+00_rb,0.38068e+00_rb,0.39927e+00_rb,0.30013e+00_rb /)
+      kbo(:, 3,23,11) = (/ &
+        & 0.16398e+00_rb,0.33651e+00_rb,0.40726e+00_rb,0.42913e+00_rb,0.32331e+00_rb /)
+      kbo(:, 4,23,11) = (/ &
+        & 0.17699e+00_rb,0.35967e+00_rb,0.43436e+00_rb,0.45990e+00_rb,0.34758e+00_rb /)
+      kbo(:, 5,23,11) = (/ &
+        & 0.19026e+00_rb,0.38467e+00_rb,0.46223e+00_rb,0.49074e+00_rb,0.37282e+00_rb /)
+      kbo(:, 1,24,11) = (/ &
+        & 0.12585e+00_rb,0.28281e+00_rb,0.34015e+00_rb,0.35619e+00_rb,0.26580e+00_rb /)
+      kbo(:, 2,24,11) = (/ &
+        & 0.13791e+00_rb,0.30436e+00_rb,0.36812e+00_rb,0.38675e+00_rb,0.28903e+00_rb /)
+      kbo(:, 3,24,11) = (/ &
+        & 0.15049e+00_rb,0.32769e+00_rb,0.39648e+00_rb,0.41925e+00_rb,0.31342e+00_rb /)
+      kbo(:, 4,24,11) = (/ &
+        & 0.16367e+00_rb,0.35256e+00_rb,0.42575e+00_rb,0.45270e+00_rb,0.33923e+00_rb /)
+      kbo(:, 5,24,11) = (/ &
+        & 0.17705e+00_rb,0.37855e+00_rb,0.45558e+00_rb,0.48562e+00_rb,0.36598e+00_rb /)
+      kbo(:, 1,25,11) = (/ &
+        & 0.11440e+00_rb,0.27340e+00_rb,0.32939e+00_rb,0.34570e+00_rb,0.25676e+00_rb /)
+      kbo(:, 2,25,11) = (/ &
+        & 0.12619e+00_rb,0.29667e+00_rb,0.35918e+00_rb,0.37882e+00_rb,0.28103e+00_rb /)
+      kbo(:, 3,25,11) = (/ &
+        & 0.13880e+00_rb,0.32182e+00_rb,0.38965e+00_rb,0.41370e+00_rb,0.30678e+00_rb /)
+      kbo(:, 4,25,11) = (/ &
+        & 0.15209e+00_rb,0.34806e+00_rb,0.42076e+00_rb,0.44907e+00_rb,0.33404e+00_rb /)
+      kbo(:, 5,25,11) = (/ &
+        & 0.16564e+00_rb,0.37478e+00_rb,0.45238e+00_rb,0.48364e+00_rb,0.36209e+00_rb /)
+      kbo(:, 1,26,11) = (/ &
+        & 0.10459e+00_rb,0.26698e+00_rb,0.32246e+00_rb,0.33976e+00_rb,0.25076e+00_rb /)
+      kbo(:, 2,26,11) = (/ &
+        & 0.11626e+00_rb,0.29209e+00_rb,0.35422e+00_rb,0.37512e+00_rb,0.27618e+00_rb /)
+      kbo(:, 3,26,11) = (/ &
+        & 0.12895e+00_rb,0.31885e+00_rb,0.38669e+00_rb,0.41203e+00_rb,0.30332e+00_rb /)
+      kbo(:, 4,26,11) = (/ &
+        & 0.14230e+00_rb,0.34607e+00_rb,0.41933e+00_rb,0.44889e+00_rb,0.33190e+00_rb /)
+      kbo(:, 5,26,11) = (/ &
+        & 0.15605e+00_rb,0.37346e+00_rb,0.45243e+00_rb,0.48462e+00_rb,0.36103e+00_rb /)
+      kbo(:, 1,27,11) = (/ &
+        & 0.96118e-01_rb,0.26319e+00_rb,0.31888e+00_rb,0.33748e+00_rb,0.24718e+00_rb /)
+      kbo(:, 2,27,11) = (/ &
+        & 0.10777e+00_rb,0.29006e+00_rb,0.35247e+00_rb,0.37471e+00_rb,0.27379e+00_rb /)
+      kbo(:, 3,27,11) = (/ &
+        & 0.12054e+00_rb,0.31789e+00_rb,0.38657e+00_rb,0.41315e+00_rb,0.30239e+00_rb /)
+      kbo(:, 4,27,11) = (/ &
+        & 0.13403e+00_rb,0.34597e+00_rb,0.42050e+00_rb,0.45108e+00_rb,0.33196e+00_rb /)
+      kbo(:, 5,27,11) = (/ &
+        & 0.14803e+00_rb,0.37409e+00_rb,0.45469e+00_rb,0.48753e+00_rb,0.36202e+00_rb /)
+      kbo(:, 1,28,11) = (/ &
+        & 0.88934e-01_rb,0.26189e+00_rb,0.31824e+00_rb,0.33815e+00_rb,0.24575e+00_rb /)
+      kbo(:, 2,28,11) = (/ &
+        & 0.10066e+00_rb,0.29004e+00_rb,0.35339e+00_rb,0.37699e+00_rb,0.27368e+00_rb /)
+      kbo(:, 3,28,11) = (/ &
+        & 0.11346e+00_rb,0.31878e+00_rb,0.38868e+00_rb,0.41646e+00_rb,0.30334e+00_rb /)
+      kbo(:, 4,28,11) = (/ &
+        & 0.12719e+00_rb,0.34746e+00_rb,0.42368e+00_rb,0.45510e+00_rb,0.33384e+00_rb /)
+      kbo(:, 5,28,11) = (/ &
+        & 0.14149e+00_rb,0.37622e+00_rb,0.45856e+00_rb,0.49189e+00_rb,0.36458e+00_rb /)
+      kbo(:, 1,29,11) = (/ &
+        & 0.82953e-01_rb,0.26276e+00_rb,0.32032e+00_rb,0.34153e+00_rb,0.24649e+00_rb /)
+      kbo(:, 2,29,11) = (/ &
+        & 0.94812e-01_rb,0.29186e+00_rb,0.35678e+00_rb,0.38153e+00_rb,0.27563e+00_rb /)
+      kbo(:, 3,29,11) = (/ &
+        & 0.10778e+00_rb,0.32138e+00_rb,0.39278e+00_rb,0.42163e+00_rb,0.30623e+00_rb /)
+      kbo(:, 4,29,11) = (/ &
+        & 0.12182e+00_rb,0.35053e+00_rb,0.42853e+00_rb,0.46064e+00_rb,0.33743e+00_rb /)
+      kbo(:, 5,29,11) = (/ &
+        & 0.13655e+00_rb,0.37990e+00_rb,0.46387e+00_rb,0.49754e+00_rb,0.36866e+00_rb /)
+      kbo(:, 1,30,11) = (/ &
+        & 0.78111e-01_rb,0.26530e+00_rb,0.32451e+00_rb,0.34680e+00_rb,0.24893e+00_rb /)
+      kbo(:, 2,30,11) = (/ &
+        & 0.90075e-01_rb,0.29517e+00_rb,0.36183e+00_rb,0.38763e+00_rb,0.27915e+00_rb /)
+      kbo(:, 3,30,11) = (/ &
+        & 0.10336e+00_rb,0.32522e+00_rb,0.39838e+00_rb,0.42809e+00_rb,0.31046e+00_rb /)
+      kbo(:, 4,30,11) = (/ &
+        & 0.11787e+00_rb,0.35483e+00_rb,0.43455e+00_rb,0.46718e+00_rb,0.34218e+00_rb /)
+      kbo(:, 5,30,11) = (/ &
+        & 0.13307e+00_rb,0.38452e+00_rb,0.47003e+00_rb,0.50395e+00_rb,0.37368e+00_rb /)
+      kbo(:, 1,31,11) = (/ &
+        & 0.74235e-01_rb,0.26927e+00_rb,0.33033e+00_rb,0.35368e+00_rb,0.25294e+00_rb /)
+      kbo(:, 2,31,11) = (/ &
+        & 0.86475e-01_rb,0.29980e+00_rb,0.36814e+00_rb,0.39505e+00_rb,0.28398e+00_rb /)
+      kbo(:, 3,31,11) = (/ &
+        & 0.10025e+00_rb,0.33020e+00_rb,0.40500e+00_rb,0.43563e+00_rb,0.31586e+00_rb /)
+      kbo(:, 4,31,11) = (/ &
+        & 0.11530e+00_rb,0.36008e+00_rb,0.44151e+00_rb,0.47461e+00_rb,0.34790e+00_rb /)
+      kbo(:, 5,31,11) = (/ &
+        & 0.13103e+00_rb,0.38989e+00_rb,0.47695e+00_rb,0.51108e+00_rb,0.37953e+00_rb /)
+      kbo(:, 1,32,11) = (/ &
+        & 0.71362e-01_rb,0.27445e+00_rb,0.33748e+00_rb,0.36171e+00_rb,0.25820e+00_rb /)
+      kbo(:, 2,32,11) = (/ &
+        & 0.84060e-01_rb,0.30547e+00_rb,0.37545e+00_rb,0.40335e+00_rb,0.28988e+00_rb /)
+      kbo(:, 3,32,11) = (/ &
+        & 0.98456e-01_rb,0.33600e+00_rb,0.41253e+00_rb,0.44393e+00_rb,0.32217e+00_rb /)
+      kbo(:, 4,32,11) = (/ &
+        & 0.11408e+00_rb,0.36612e+00_rb,0.44914e+00_rb,0.48266e+00_rb,0.35443e+00_rb /)
+      kbo(:, 5,32,11) = (/ &
+        & 0.13035e+00_rb,0.39590e+00_rb,0.48448e+00_rb,0.51873e+00_rb,0.38602e+00_rb /)
+      kbo(:, 1,33,11) = (/ &
+        & 0.69437e-01_rb,0.28056e+00_rb,0.34548e+00_rb,0.37055e+00_rb,0.26439e+00_rb /)
+      kbo(:, 2,33,11) = (/ &
+        & 0.82778e-01_rb,0.31179e+00_rb,0.38345e+00_rb,0.41222e+00_rb,0.29653e+00_rb /)
+      kbo(:, 3,33,11) = (/ &
+        & 0.97818e-01_rb,0.34234e+00_rb,0.42058e+00_rb,0.45271e+00_rb,0.32902e+00_rb /)
+      kbo(:, 4,33,11) = (/ &
+        & 0.11406e+00_rb,0.37264e+00_rb,0.45719e+00_rb,0.49102e+00_rb,0.36138e+00_rb /)
+      kbo(:, 5,33,11) = (/ &
+        & 0.13083e+00_rb,0.40228e+00_rb,0.49234e+00_rb,0.52669e+00_rb,0.39293e+00_rb /)
+      kbo(:, 1,34,11) = (/ &
+        & 0.68001e-01_rb,0.28611e+00_rb,0.35258e+00_rb,0.37843e+00_rb,0.27007e+00_rb /)
+      kbo(:, 2,34,11) = (/ &
+        & 0.82015e-01_rb,0.31742e+00_rb,0.39059e+00_rb,0.42007e+00_rb,0.30253e+00_rb /)
+      kbo(:, 3,34,11) = (/ &
+        & 0.97684e-01_rb,0.34800e+00_rb,0.42777e+00_rb,0.46038e+00_rb,0.33518e+00_rb /)
+      kbo(:, 4,34,11) = (/ &
+        & 0.11453e+00_rb,0.37836e+00_rb,0.46423e+00_rb,0.49832e+00_rb,0.36754e+00_rb /)
+      kbo(:, 5,34,11) = (/ &
+        & 0.13165e+00_rb,0.40799e+00_rb,0.49927e+00_rb,0.53358e+00_rb,0.39902e+00_rb /)
+      kbo(:, 1,35,11) = (/ &
+        & 0.66173e-01_rb,0.28901e+00_rb,0.35634e+00_rb,0.38261e+00_rb,0.27305e+00_rb /)
+      kbo(:, 2,35,11) = (/ &
+        & 0.80679e-01_rb,0.32036e+00_rb,0.39443e+00_rb,0.42428e+00_rb,0.30572e+00_rb /)
+      kbo(:, 3,35,11) = (/ &
+        & 0.96839e-01_rb,0.35097e+00_rb,0.43164e+00_rb,0.46448e+00_rb,0.33845e+00_rb /)
+      kbo(:, 4,35,11) = (/ &
+        & 0.11412e+00_rb,0.38139e+00_rb,0.46804e+00_rb,0.50225e+00_rb,0.37079e+00_rb /)
+      kbo(:, 5,35,11) = (/ &
+        & 0.13154e+00_rb,0.41104e+00_rb,0.50302e+00_rb,0.53730e+00_rb,0.40230e+00_rb /)
+      kbo(:, 1,36,11) = (/ &
+        & 0.63512e-01_rb,0.28876e+00_rb,0.35615e+00_rb,0.38246e+00_rb,0.27277e+00_rb /)
+      kbo(:, 2,36,11) = (/ &
+        & 0.78322e-01_rb,0.32017e+00_rb,0.39440e+00_rb,0.42423e+00_rb,0.30554e+00_rb /)
+      kbo(:, 3,36,11) = (/ &
+        & 0.94792e-01_rb,0.35084e+00_rb,0.43169e+00_rb,0.46451e+00_rb,0.33835e+00_rb /)
+      kbo(:, 4,36,11) = (/ &
+        & 0.11239e+00_rb,0.38129e+00_rb,0.46814e+00_rb,0.50234e+00_rb,0.37075e+00_rb /)
+      kbo(:, 5,36,11) = (/ &
+        & 0.13007e+00_rb,0.41105e+00_rb,0.50318e+00_rb,0.53745e+00_rb,0.40235e+00_rb /)
+      kbo(:, 1,37,11) = (/ &
+        & 0.59276e-01_rb,0.28388e+00_rb,0.35018e+00_rb,0.37605e+00_rb,0.26777e+00_rb /)
+      kbo(:, 2,37,11) = (/ &
+        & 0.74070e-01_rb,0.31543e+00_rb,0.38877e+00_rb,0.41809e+00_rb,0.30055e+00_rb /)
+      kbo(:, 3,37,11) = (/ &
+        & 0.90621e-01_rb,0.34621e+00_rb,0.42622e+00_rb,0.45870e+00_rb,0.33345e+00_rb /)
+      kbo(:, 4,37,11) = (/ &
+        & 0.10838e+00_rb,0.37677e+00_rb,0.46291e+00_rb,0.49695e+00_rb,0.36598e+00_rb /)
+      kbo(:, 5,37,11) = (/ &
+        & 0.12629e+00_rb,0.40664e+00_rb,0.49817e+00_rb,0.53255e+00_rb,0.39771e+00_rb /)
+      kbo(:, 1,38,11) = (/ &
+        & 0.55352e-01_rb,0.27885e+00_rb,0.34399e+00_rb,0.36943e+00_rb,0.26263e+00_rb /)
+      kbo(:, 2,38,11) = (/ &
+        & 0.70099e-01_rb,0.31053e+00_rb,0.38289e+00_rb,0.41165e+00_rb,0.29537e+00_rb /)
+      kbo(:, 3,38,11) = (/ &
+        & 0.86674e-01_rb,0.34144e+00_rb,0.42052e+00_rb,0.45261e+00_rb,0.32834e+00_rb /)
+      kbo(:, 4,38,11) = (/ &
+        & 0.10451e+00_rb,0.37207e+00_rb,0.45745e+00_rb,0.49130e+00_rb,0.36103e+00_rb /)
+      kbo(:, 5,38,11) = (/ &
+        & 0.12261e+00_rb,0.40208e+00_rb,0.49291e+00_rb,0.52735e+00_rb,0.39288e+00_rb /)
+      kbo(:, 1,39,11) = (/ &
+        & 0.51830e-01_rb,0.27388e+00_rb,0.33795e+00_rb,0.36294e+00_rb,0.25765e+00_rb /)
+      kbo(:, 2,39,11) = (/ &
+        & 0.66473e-01_rb,0.30570e+00_rb,0.37709e+00_rb,0.40534e+00_rb,0.29029e+00_rb /)
+      kbo(:, 3,39,11) = (/ &
+        & 0.83032e-01_rb,0.33678e+00_rb,0.41490e+00_rb,0.44656e+00_rb,0.32332e+00_rb /)
+      kbo(:, 4,39,11) = (/ &
+        & 0.10089e+00_rb,0.36746e+00_rb,0.45203e+00_rb,0.48569e+00_rb,0.35615e+00_rb /)
+      kbo(:, 5,39,11) = (/ &
+        & 0.11914e+00_rb,0.39759e+00_rb,0.48773e+00_rb,0.52218e+00_rb,0.38813e+00_rb /)
+      kbo(:, 1,40,11) = (/ &
+        & 0.47273e-01_rb,0.26566e+00_rb,0.32789e+00_rb,0.35219e+00_rb,0.24948e+00_rb /)
+      kbo(:, 2,40,11) = (/ &
+        & 0.61538e-01_rb,0.29768e+00_rb,0.36730e+00_rb,0.39473e+00_rb,0.28193e+00_rb /)
+      kbo(:, 3,40,11) = (/ &
+        & 0.77858e-01_rb,0.32903e+00_rb,0.40551e+00_rb,0.43635e+00_rb,0.31499e+00_rb /)
+      kbo(:, 4,40,11) = (/ &
+        & 0.95580e-01_rb,0.35975e+00_rb,0.44288e+00_rb,0.47617e+00_rb,0.34794e+00_rb /)
+      kbo(:, 5,40,11) = (/ &
+        & 0.11394e+00_rb,0.39008e+00_rb,0.47900e+00_rb,0.51333e+00_rb,0.38020e+00_rb /)
+      kbo(:, 1,41,11) = (/ &
+        & 0.42888e-01_rb,0.25708e+00_rb,0.31732e+00_rb,0.34096e+00_rb,0.24098e+00_rb /)
+      kbo(:, 2,41,11) = (/ &
+        & 0.56697e-01_rb,0.28927e+00_rb,0.35696e+00_rb,0.38355e+00_rb,0.27327e+00_rb /)
+      kbo(:, 3,41,11) = (/ &
+        & 0.72702e-01_rb,0.32083e+00_rb,0.39561e+00_rb,0.42555e+00_rb,0.30626e+00_rb /)
+      kbo(:, 4,41,11) = (/ &
+        & 0.90227e-01_rb,0.35164e+00_rb,0.43315e+00_rb,0.46599e+00_rb,0.33930e+00_rb /)
+      kbo(:, 5,41,11) = (/ &
+        & 0.10861e+00_rb,0.38219e+00_rb,0.46971e+00_rb,0.50385e+00_rb,0.37183e+00_rb /)
+      kbo(:, 1,42,11) = (/ &
+        & 0.38819e-01_rb,0.24850e+00_rb,0.30677e+00_rb,0.32968e+00_rb,0.23256e+00_rb /)
+      kbo(:, 2,42,11) = (/ &
+        & 0.52147e-01_rb,0.28080e+00_rb,0.34660e+00_rb,0.37239e+00_rb,0.26466e+00_rb /)
+      kbo(:, 3,42,11) = (/ &
+        & 0.67768e-01_rb,0.31263e+00_rb,0.38564e+00_rb,0.41466e+00_rb,0.29758e+00_rb /)
+      kbo(:, 4,42,11) = (/ &
+        & 0.85041e-01_rb,0.34356e+00_rb,0.42336e+00_rb,0.45563e+00_rb,0.33065e+00_rb /)
+      kbo(:, 5,42,11) = (/ &
+        & 0.10335e+00_rb,0.37426e+00_rb,0.46032e+00_rb,0.49419e+00_rb,0.36339e+00_rb /)
+      kbo(:, 1,43,11) = (/ &
+        & 0.34406e-01_rb,0.23801e+00_rb,0.29406e+00_rb,0.31601e+00_rb,0.22240e+00_rb /)
+      kbo(:, 2,43,11) = (/ &
+        & 0.47048e-01_rb,0.27050e+00_rb,0.33401e+00_rb,0.35883e+00_rb,0.25435e+00_rb /)
+      kbo(:, 3,43,11) = (/ &
+        & 0.62114e-01_rb,0.30257e+00_rb,0.37337e+00_rb,0.40135e+00_rb,0.28701e+00_rb /)
+      kbo(:, 4,43,11) = (/ &
+        & 0.79018e-01_rb,0.33381e+00_rb,0.41146e+00_rb,0.44285e+00_rb,0.32012e+00_rb /)
+      kbo(:, 5,43,11) = (/ &
+        & 0.97123e-01_rb,0.36459e+00_rb,0.44877e+00_rb,0.48229e+00_rb,0.35311e+00_rb /)
+      kbo(:, 1,44,11) = (/ &
+        & 0.30068e-01_rb,0.22661e+00_rb,0.28047e+00_rb,0.30141e+00_rb,0.21157e+00_rb /)
+      kbo(:, 2,44,11) = (/ &
+        & 0.41934e-01_rb,0.25939e+00_rb,0.32031e+00_rb,0.34420e+00_rb,0.24331e+00_rb /)
+      kbo(:, 3,44,11) = (/ &
+        & 0.56334e-01_rb,0.29165e+00_rb,0.35997e+00_rb,0.38686e+00_rb,0.27569e+00_rb /)
+      kbo(:, 4,44,11) = (/ &
+        & 0.72738e-01_rb,0.32319e+00_rb,0.39860e+00_rb,0.42881e+00_rb,0.30880e+00_rb /)
+      kbo(:, 5,44,11) = (/ &
+        & 0.90538e-01_rb,0.35407e+00_rb,0.43616e+00_rb,0.46913e+00_rb,0.34187e+00_rb /)
+      kbo(:, 1,45,11) = (/ &
+        & 0.26090e-01_rb,0.21511e+00_rb,0.26705e+00_rb,0.28701e+00_rb,0.20089e+00_rb /)
+      kbo(:, 2,45,11) = (/ &
+        & 0.37182e-01_rb,0.24828e+00_rb,0.30662e+00_rb,0.32954e+00_rb,0.23239e+00_rb /)
+      kbo(:, 3,45,11) = (/ &
+        & 0.50828e-01_rb,0.28069e+00_rb,0.34649e+00_rb,0.37235e+00_rb,0.26452e+00_rb /)
+      kbo(:, 4,45,11) = (/ &
+        & 0.66683e-01_rb,0.31254e+00_rb,0.38562e+00_rb,0.41465e+00_rb,0.29751e+00_rb /)
+      kbo(:, 5,45,11) = (/ &
+        & 0.84110e-01_rb,0.34354e+00_rb,0.42341e+00_rb,0.45565e+00_rb,0.33061e+00_rb /)
+      kbo(:, 1,46,11) = (/ &
+        & 0.22282e-01_rb,0.20276e+00_rb,0.25300e+00_rb,0.27194e+00_rb,0.18966e+00_rb /)
+      kbo(:, 2,46,11) = (/ &
+        & 0.32494e-01_rb,0.23634e+00_rb,0.29212e+00_rb,0.31397e+00_rb,0.22083e+00_rb /)
+      kbo(:, 3,46,11) = (/ &
+        & 0.45322e-01_rb,0.26893e+00_rb,0.33209e+00_rb,0.35685e+00_rb,0.25276e+00_rb /)
+      kbo(:, 4,46,11) = (/ &
+        & 0.60492e-01_rb,0.30105e+00_rb,0.37160e+00_rb,0.39945e+00_rb,0.28546e+00_rb /)
+      kbo(:, 5,46,11) = (/ &
+        & 0.77449e-01_rb,0.33241e+00_rb,0.40979e+00_rb,0.44100e+00_rb,0.31859e+00_rb /)
+      kbo(:, 1,47,11) = (/ &
+        & 0.18534e-01_rb,0.18898e+00_rb,0.23758e+00_rb,0.25552e+00_rb,0.17724e+00_rb /)
+      kbo(:, 2,47,11) = (/ &
+        & 0.27732e-01_rb,0.22283e+00_rb,0.27608e+00_rb,0.29673e+00_rb,0.20806e+00_rb /)
+      kbo(:, 3,47,11) = (/ &
+        & 0.39604e-01_rb,0.25581e+00_rb,0.31589e+00_rb,0.33953e+00_rb,0.23975e+00_rb /)
+      kbo(:, 4,47,11) = (/ &
+        & 0.53911e-01_rb,0.28814e+00_rb,0.35568e+00_rb,0.38226e+00_rb,0.27210e+00_rb /)
+      kbo(:, 5,47,11) = (/ &
+        & 0.70242e-01_rb,0.31982e+00_rb,0.39452e+00_rb,0.42435e+00_rb,0.30521e+00_rb /)
+      kbo(:, 1,48,11) = (/ &
+        & 0.15230e-01_rb,0.17512e+00_rb,0.22238e+00_rb,0.23953e+00_rb,0.16496e+00_rb /)
+      kbo(:, 2,48,11) = (/ &
+        & 0.23424e-01_rb,0.20917e+00_rb,0.26028e+00_rb,0.27977e+00_rb,0.19549e+00_rb /)
+      kbo(:, 3,48,11) = (/ &
+        & 0.34289e-01_rb,0.24261e+00_rb,0.29967e+00_rb,0.32213e+00_rb,0.22686e+00_rb /)
+      kbo(:, 4,48,11) = (/ &
+        & 0.47677e-01_rb,0.27510e+00_rb,0.33967e+00_rb,0.36502e+00_rb,0.25892e+00_rb /)
+      kbo(:, 5,48,11) = (/ &
+        & 0.63303e-01_rb,0.30711e+00_rb,0.37902e+00_rb,0.40749e+00_rb,0.29180e+00_rb /)
+      kbo(:, 1,49,11) = (/ &
+        & 0.12348e-01_rb,0.16145e+00_rb,0.20748e+00_rb,0.22396e+00_rb,0.15290e+00_rb /)
+      kbo(:, 2,49,11) = (/ &
+        & 0.19656e-01_rb,0.19547e+00_rb,0.24481e+00_rb,0.26319e+00_rb,0.18304e+00_rb /)
+      kbo(:, 3,49,11) = (/ &
+        & 0.29411e-01_rb,0.22922e+00_rb,0.28358e+00_rb,0.30484e+00_rb,0.21403e+00_rb /)
+      kbo(:, 4,49,11) = (/ &
+        & 0.41852e-01_rb,0.26199e+00_rb,0.32356e+00_rb,0.34774e+00_rb,0.24589e+00_rb /)
+      kbo(:, 5,49,11) = (/ &
+        & 0.56641e-01_rb,0.29425e+00_rb,0.36325e+00_rb,0.39043e+00_rb,0.27839e+00_rb /)
+      kbo(:, 1,50,11) = (/ &
+        & 0.10059e-01_rb,0.14901e+00_rb,0.19385e+00_rb,0.20977e+00_rb,0.14182e+00_rb /)
+      kbo(:, 2,50,11) = (/ &
+        & 0.16439e-01_rb,0.18255e+00_rb,0.23049e+00_rb,0.24806e+00_rb,0.17150e+00_rb /)
+      kbo(:, 3,50,11) = (/ &
+        & 0.25328e-01_rb,0.21656e+00_rb,0.26875e+00_rb,0.28888e+00_rb,0.20219e+00_rb /)
+      kbo(:, 4,50,11) = (/ &
+        & 0.36730e-01_rb,0.24971e+00_rb,0.30839e+00_rb,0.33151e+00_rb,0.23378e+00_rb /)
+      kbo(:, 5,50,11) = (/ &
+        & 0.50682e-01_rb,0.28213e+00_rb,0.34832e+00_rb,0.37432e+00_rb,0.26599e+00_rb /)
+      kbo(:, 1,51,11) = (/ &
+        & 0.81000e-02_rb,0.13718e+00_rb,0.18086e+00_rb,0.19633e+00_rb,0.13125e+00_rb /)
+      kbo(:, 2,51,11) = (/ &
+        & 0.13663e-01_rb,0.17002e+00_rb,0.21682e+00_rb,0.23372e+00_rb,0.16044e+00_rb /)
+      kbo(:, 3,51,11) = (/ &
+        & 0.21646e-01_rb,0.20410e+00_rb,0.25452e+00_rb,0.27362e+00_rb,0.19085e+00_rb /)
+      kbo(:, 4,51,11) = (/ &
+        & 0.32117e-01_rb,0.23766e+00_rb,0.29370e+00_rb,0.31573e+00_rb,0.22210e+00_rb /)
+      kbo(:, 5,51,11) = (/ &
+        & 0.45217e-01_rb,0.27026e+00_rb,0.33377e+00_rb,0.35865e+00_rb,0.25409e+00_rb /)
+      kbo(:, 1,52,11) = (/ &
+        & 0.64392e-02_rb,0.12568e+00_rb,0.16814e+00_rb,0.18321e+00_rb,0.12091e+00_rb /)
+      kbo(:, 2,52,11) = (/ &
+        & 0.11223e-01_rb,0.15773e+00_rb,0.20341e+00_rb,0.21973e+00_rb,0.14959e+00_rb /)
+      kbo(:, 3,52,11) = (/ &
+        & 0.18327e-01_rb,0.19165e+00_rb,0.24057e+00_rb,0.25870e+00_rb,0.17960e+00_rb /)
+      kbo(:, 4,52,11) = (/ &
+        & 0.27978e-01_rb,0.22553e+00_rb,0.27924e+00_rb,0.30015e+00_rb,0.21055e+00_rb /)
+      kbo(:, 5,52,11) = (/ &
+        & 0.40066e-01_rb,0.25840e+00_rb,0.31913e+00_rb,0.34300e+00_rb,0.24233e+00_rb /)
+      kbo(:, 1,53,11) = (/ &
+        & 0.50582e-02_rb,0.11452e+00_rb,0.15565e+00_rb,0.17040e+00_rb,0.11082e+00_rb /)
+      kbo(:, 2,53,11) = (/ &
+        & 0.90986e-02_rb,0.14571e+00_rb,0.19026e+00_rb,0.20608e+00_rb,0.13891e+00_rb /)
+      kbo(:, 3,53,11) = (/ &
+        & 0.15360e-01_rb,0.17911e+00_rb,0.22674e+00_rb,0.24415e+00_rb,0.16845e+00_rb /)
+      kbo(:, 4,53,11) = (/ &
+        & 0.24079e-01_rb,0.21320e+00_rb,0.26488e+00_rb,0.28473e+00_rb,0.19911e+00_rb /)
+      kbo(:, 5,53,11) = (/ &
+        & 0.35249e-01_rb,0.24647e+00_rb,0.30443e+00_rb,0.32725e+00_rb,0.23061e+00_rb /)
+      kbo(:, 1,54,11) = (/ &
+        & 0.39947e-02_rb,0.10467e+00_rb,0.14438e+00_rb,0.15895e+00_rb,0.10183e+00_rb /)
+      kbo(:, 2,54,11) = (/ &
+        & 0.74123e-02_rb,0.13495e+00_rb,0.17842e+00_rb,0.19384e+00_rb,0.12928e+00_rb /)
+      kbo(:, 3,54,11) = (/ &
+        & 0.12928e-01_rb,0.16768e+00_rb,0.21428e+00_rb,0.23108e+00_rb,0.15838e+00_rb /)
+      kbo(:, 4,54,11) = (/ &
+        & 0.20817e-01_rb,0.20178e+00_rb,0.25191e+00_rb,0.27082e+00_rb,0.18875e+00_rb /)
+      kbo(:, 5,54,11) = (/ &
+        & 0.31131e-01_rb,0.23540e+00_rb,0.29100e+00_rb,0.31283e+00_rb,0.21994e+00_rb /)
+      kbo(:, 1,55,11) = (/ &
+        & 0.31444e-02_rb,0.95645e-01_rb,0.13357e+00_rb,0.14821e+00_rb,0.93456e-01_rb /)
+      kbo(:, 2,55,11) = (/ &
+        & 0.60192e-02_rb,0.12488e+00_rb,0.16728e+00_rb,0.18235e+00_rb,0.12022e+00_rb /)
+      kbo(:, 3,55,11) = (/ &
+        & 0.10844e-01_rb,0.15692e+00_rb,0.20255e+00_rb,0.21884e+00_rb,0.14887e+00_rb /)
+      kbo(:, 4,55,11) = (/ &
+        & 0.17966e-01_rb,0.19085e+00_rb,0.23968e+00_rb,0.25776e+00_rb,0.17889e+00_rb /)
+      kbo(:, 5,55,11) = (/ &
+        & 0.27575e-01_rb,0.22475e+00_rb,0.27833e+00_rb,0.29920e+00_rb,0.20981e+00_rb /)
+      kbo(:, 1,56,11) = (/ &
+        & 0.24408e-02_rb,0.87042e-01_rb,0.12294e+00_rb,0.13774e+00_rb,0.85384e-01_rb /)
+      kbo(:, 2,56,11) = (/ &
+        & 0.48425e-02_rb,0.11512e+00_rb,0.15634e+00_rb,0.17115e+00_rb,0.11140e+00_rb /)
+      kbo(:, 3,56,11) = (/ &
+        & 0.90070e-02_rb,0.14641e+00_rb,0.19103e+00_rb,0.20689e+00_rb,0.13953e+00_rb /)
+      kbo(:, 4,56,11) = (/ &
+        & 0.15384e-01_rb,0.17987e+00_rb,0.22757e+00_rb,0.24502e+00_rb,0.16913e+00_rb /)
+      kbo(:, 5,56,11) = (/ &
+        & 0.24183e-01_rb,0.21396e+00_rb,0.26576e+00_rb,0.28569e+00_rb,0.19980e+00_rb /)
+      kbo(:, 1,57,11) = (/ &
+        & 0.18661e-02_rb,0.78869e-01_rb,0.11259e+00_rb,0.12744e+00_rb,0.77594e-01_rb /)
+      kbo(:, 2,57,11) = (/ &
+        & 0.38393e-02_rb,0.10567e+00_rb,0.14558e+00_rb,0.16018e+00_rb,0.10279e+00_rb /)
+      kbo(:, 3,57,11) = (/ &
+        & 0.73986e-02_rb,0.13611e+00_rb,0.17972e+00_rb,0.19518e+00_rb,0.13032e+00_rb /)
+      kbo(:, 4,57,11) = (/ &
+        & 0.13057e-01_rb,0.16895e+00_rb,0.21565e+00_rb,0.23253e+00_rb,0.15951e+00_rb /)
+      kbo(:, 5,57,11) = (/ &
+        & 0.21059e-01_rb,0.20305e+00_rb,0.25335e+00_rb,0.27238e+00_rb,0.18989e+00_rb /)
+      kbo(:, 1,58,11) = (/ &
+        & 0.14289e-02_rb,0.71481e-01_rb,0.10314e+00_rb,0.11789e+00_rb,0.70461e-01_rb /)
+      kbo(:, 2,58,11) = (/ &
+        & 0.30447e-02_rb,0.97100e-01_rb,0.13537e+00_rb,0.15001e+00_rb,0.94840e-01_rb /)
+      kbo(:, 3,58,11) = (/ &
+        & 0.60785e-02_rb,0.12656e+00_rb,0.16917e+00_rb,0.18428e+00_rb,0.12173e+00_rb /)
+      kbo(:, 4,58,11) = (/ &
+        & 0.11073e-01_rb,0.15875e+00_rb,0.20453e+00_rb,0.22090e+00_rb,0.15049e+00_rb /)
+      kbo(:, 5,58,11) = (/ &
+        & 0.18344e-01_rb,0.19271e+00_rb,0.24175e+00_rb,0.25997e+00_rb,0.18056e+00_rb /)
+      kbo(:, 1,59,11) = (/ &
+        & 0.12466e-02_rb,0.68608e-01_rb,0.99449e-01_rb,0.11409e+00_rb,0.67679e-01_rb /)
+      kbo(:, 2,59,11) = (/ &
+        & 0.27400e-02_rb,0.93756e-01_rb,0.13130e+00_rb,0.14598e+00_rb,0.91727e-01_rb /)
+      kbo(:, 3,59,11) = (/ &
+        & 0.55829e-02_rb,0.12280e+00_rb,0.16498e+00_rb,0.17997e+00_rb,0.11835e+00_rb /)
+      kbo(:, 4,59,11) = (/ &
+        & 0.10327e-01_rb,0.15471e+00_rb,0.20012e+00_rb,0.21632e+00_rb,0.14691e+00_rb /)
+      kbo(:, 5,59,11) = (/ &
+        & 0.17312e-01_rb,0.18856e+00_rb,0.23714e+00_rb,0.25511e+00_rb,0.17685e+00_rb /)
+      kbo(:, 1,13,12) = (/ &
+        & 0.97672e+00_rb,0.12351e+01_rb,0.13467e+01_rb,0.13355e+01_rb,0.11350e+01_rb /)
+      kbo(:, 2,13,12) = (/ &
+        & 0.96517e+00_rb,0.12326e+01_rb,0.13523e+01_rb,0.13488e+01_rb,0.11500e+01_rb /)
+      kbo(:, 3,13,12) = (/ &
+        & 0.95359e+00_rb,0.12308e+01_rb,0.13576e+01_rb,0.13588e+01_rb,0.11629e+01_rb /)
+      kbo(:, 4,13,12) = (/ &
+        & 0.94644e+00_rb,0.12294e+01_rb,0.13618e+01_rb,0.13660e+01_rb,0.11761e+01_rb /)
+      kbo(:, 5,13,12) = (/ &
+        & 0.94938e+00_rb,0.12277e+01_rb,0.13647e+01_rb,0.13713e+01_rb,0.11895e+01_rb /)
+      kbo(:, 1,14,12) = (/ &
+        & 0.86287e+00_rb,0.11528e+01_rb,0.12800e+01_rb,0.12931e+01_rb,0.10793e+01_rb /)
+      kbo(:, 2,14,12) = (/ &
+        & 0.85328e+00_rb,0.11519e+01_rb,0.12878e+01_rb,0.13082e+01_rb,0.10960e+01_rb /)
+      kbo(:, 3,14,12) = (/ &
+        & 0.84776e+00_rb,0.11522e+01_rb,0.12944e+01_rb,0.13193e+01_rb,0.11122e+01_rb /)
+      kbo(:, 4,14,12) = (/ &
+        & 0.85264e+00_rb,0.11532e+01_rb,0.12995e+01_rb,0.13287e+01_rb,0.11288e+01_rb /)
+      kbo(:, 5,14,12) = (/ &
+        & 0.86761e+00_rb,0.11556e+01_rb,0.13039e+01_rb,0.13378e+01_rb,0.11458e+01_rb /)
+      kbo(:, 1,15,12) = (/ &
+        & 0.75595e+00_rb,0.10736e+01_rb,0.12146e+01_rb,0.12437e+01_rb,0.10230e+01_rb /)
+      kbo(:, 2,15,12) = (/ &
+        & 0.75063e+00_rb,0.10744e+01_rb,0.12248e+01_rb,0.12603e+01_rb,0.10430e+01_rb /)
+      kbo(:, 3,15,12) = (/ &
+        & 0.75594e+00_rb,0.10769e+01_rb,0.12334e+01_rb,0.12743e+01_rb,0.10635e+01_rb /)
+      kbo(:, 4,15,12) = (/ &
+        & 0.77107e+00_rb,0.10807e+01_rb,0.12402e+01_rb,0.12881e+01_rb,0.10841e+01_rb /)
+      kbo(:, 5,15,12) = (/ &
+        & 0.79469e+00_rb,0.10902e+01_rb,0.12461e+01_rb,0.13012e+01_rb,0.11031e+01_rb /)
+      kbo(:, 1,16,12) = (/ &
+        & 0.66063e+00_rb,0.99640e+00_rb,0.11502e+01_rb,0.11902e+01_rb,0.96912e+00_rb /)
+      kbo(:, 2,16,12) = (/ &
+        & 0.66454e+00_rb,0.10001e+01_rb,0.11634e+01_rb,0.12095e+01_rb,0.99257e+00_rb /)
+      kbo(:, 3,16,12) = (/ &
+        & 0.67895e+00_rb,0.10049e+01_rb,0.11739e+01_rb,0.12282e+01_rb,0.10170e+01_rb /)
+      kbo(:, 4,16,12) = (/ &
+        & 0.70145e+00_rb,0.10153e+01_rb,0.11833e+01_rb,0.12469e+01_rb,0.10404e+01_rb /)
+      kbo(:, 5,16,12) = (/ &
+        & 0.72525e+00_rb,0.10330e+01_rb,0.11925e+01_rb,0.12646e+01_rb,0.10610e+01_rb /)
+      kbo(:, 1,17,12) = (/ &
+        & 0.58214e+00_rb,0.92297e+00_rb,0.10896e+01_rb,0.11346e+01_rb,0.91647e+00_rb /)
+      kbo(:, 2,17,12) = (/ &
+        & 0.59400e+00_rb,0.92929e+00_rb,0.11045e+01_rb,0.11590e+01_rb,0.94550e+00_rb /)
+      kbo(:, 3,17,12) = (/ &
+        & 0.61460e+00_rb,0.94000e+00_rb,0.11172e+01_rb,0.11832e+01_rb,0.97371e+00_rb /)
+      kbo(:, 4,17,12) = (/ &
+        & 0.63691e+00_rb,0.95830e+00_rb,0.11303e+01_rb,0.12071e+01_rb,0.99891e+00_rb /)
+      kbo(:, 5,17,12) = (/ &
+        & 0.66003e+00_rb,0.98295e+00_rb,0.11440e+01_rb,0.12298e+01_rb,0.10215e+01_rb /)
+      kbo(:, 1,18,12) = (/ &
+        & 0.51831e+00_rb,0.85586e+00_rb,0.10313e+01_rb,0.10823e+01_rb,0.86734e+00_rb /)
+      kbo(:, 2,18,12) = (/ &
+        & 0.53638e+00_rb,0.86645e+00_rb,0.10487e+01_rb,0.11114e+01_rb,0.90071e+00_rb /)
+      kbo(:, 3,18,12) = (/ &
+        & 0.55679e+00_rb,0.88410e+00_rb,0.10657e+01_rb,0.11407e+01_rb,0.93149e+00_rb /)
+      kbo(:, 4,18,12) = (/ &
+        & 0.57819e+00_rb,0.90902e+00_rb,0.10831e+01_rb,0.11693e+01_rb,0.95937e+00_rb /)
+      kbo(:, 5,18,12) = (/ &
+        & 0.60387e+00_rb,0.94010e+00_rb,0.11032e+01_rb,0.11966e+01_rb,0.98550e+00_rb /)
+      kbo(:, 1,19,12) = (/ &
+        & 0.46547e+00_rb,0.79533e+00_rb,0.97579e+00_rb,0.10353e+01_rb,0.82208e+00_rb /)
+      kbo(:, 2,19,12) = (/ &
+        & 0.48441e+00_rb,0.81281e+00_rb,0.99768e+00_rb,0.10690e+01_rb,0.85858e+00_rb /)
+      kbo(:, 3,19,12) = (/ &
+        & 0.50438e+00_rb,0.83723e+00_rb,0.10197e+01_rb,0.11027e+01_rb,0.89202e+00_rb /)
+      kbo(:, 4,19,12) = (/ &
+        & 0.52861e+00_rb,0.86772e+00_rb,0.10433e+01_rb,0.11355e+01_rb,0.92298e+00_rb /)
+      kbo(:, 5,19,12) = (/ &
+        & 0.55711e+00_rb,0.90301e+00_rb,0.10701e+01_rb,0.11672e+01_rb,0.95266e+00_rb /)
+      kbo(:, 1,20,12) = (/ &
+        & 0.41965e+00_rb,0.74319e+00_rb,0.92508e+00_rb,0.99412e+00_rb,0.78089e+00_rb /)
+      kbo(:, 2,20,12) = (/ &
+        & 0.43802e+00_rb,0.76766e+00_rb,0.95235e+00_rb,0.10327e+01_rb,0.82017e+00_rb /)
+      kbo(:, 3,20,12) = (/ &
+        & 0.46025e+00_rb,0.79818e+00_rb,0.98022e+00_rb,0.10706e+01_rb,0.85677e+00_rb /)
+      kbo(:, 4,20,12) = (/ &
+        & 0.48727e+00_rb,0.83370e+00_rb,0.10109e+01_rb,0.11072e+01_rb,0.89127e+00_rb /)
+      kbo(:, 5,20,12) = (/ &
+        & 0.51863e+00_rb,0.87091e+00_rb,0.10440e+01_rb,0.11423e+01_rb,0.92433e+00_rb /)
+      kbo(:, 1,21,12) = (/ &
+        & 0.37915e+00_rb,0.69998e+00_rb,0.88069e+00_rb,0.95835e+00_rb,0.74387e+00_rb /)
+      kbo(:, 2,21,12) = (/ &
+        & 0.39885e+00_rb,0.72965e+00_rb,0.91291e+00_rb,0.10022e+01_rb,0.78645e+00_rb /)
+      kbo(:, 3,21,12) = (/ &
+        & 0.42350e+00_rb,0.76561e+00_rb,0.94765e+00_rb,0.10443e+01_rb,0.82639e+00_rb /)
+      kbo(:, 4,21,12) = (/ &
+        & 0.45298e+00_rb,0.80432e+00_rb,0.98473e+00_rb,0.10842e+01_rb,0.86477e+00_rb /)
+      kbo(:, 5,21,12) = (/ &
+        & 0.48674e+00_rb,0.84344e+00_rb,0.10236e+01_rb,0.11221e+01_rb,0.90082e+00_rb /)
+      kbo(:, 1,22,12) = (/ &
+        & 0.34554e+00_rb,0.66631e+00_rb,0.84565e+00_rb,0.93193e+00_rb,0.71462e+00_rb /)
+      kbo(:, 2,22,12) = (/ &
+        & 0.36807e+00_rb,0.70096e+00_rb,0.88353e+00_rb,0.98021e+00_rb,0.76038e+00_rb /)
+      kbo(:, 3,22,12) = (/ &
+        & 0.39520e+00_rb,0.74099e+00_rb,0.92460e+00_rb,0.10260e+01_rb,0.80381e+00_rb /)
+      kbo(:, 4,22,12) = (/ &
+        & 0.42700e+00_rb,0.78213e+00_rb,0.96750e+00_rb,0.10688e+01_rb,0.84544e+00_rb /)
+      kbo(:, 5,22,12) = (/ &
+        & 0.46306e+00_rb,0.82357e+00_rb,0.10116e+01_rb,0.11089e+01_rb,0.88444e+00_rb /)
+      kbo(:, 1,23,12) = (/ &
+        & 0.31790e+00_rb,0.64007e+00_rb,0.81825e+00_rb,0.91240e+00_rb,0.69117e+00_rb /)
+      kbo(:, 2,23,12) = (/ &
+        & 0.34313e+00_rb,0.67943e+00_rb,0.86200e+00_rb,0.96400e+00_rb,0.74026e+00_rb /)
+      kbo(:, 3,23,12) = (/ &
+        & 0.37292e+00_rb,0.72179e+00_rb,0.90853e+00_rb,0.10128e+01_rb,0.78692e+00_rb /)
+      kbo(:, 4,23,12) = (/ &
+        & 0.40683e+00_rb,0.76528e+00_rb,0.95638e+00_rb,0.10584e+01_rb,0.83132e+00_rb /)
+      kbo(:, 5,23,12) = (/ &
+        & 0.44434e+00_rb,0.80906e+00_rb,0.10049e+01_rb,0.11007e+01_rb,0.87324e+00_rb /)
+      kbo(:, 1,24,12) = (/ &
+        & 0.29587e+00_rb,0.62091e+00_rb,0.79898e+00_rb,0.89859e+00_rb,0.67383e+00_rb /)
+      kbo(:, 2,24,12) = (/ &
+        & 0.32356e+00_rb,0.66370e+00_rb,0.84800e+00_rb,0.95354e+00_rb,0.72591e+00_rb /)
+      kbo(:, 3,24,12) = (/ &
+        & 0.35587e+00_rb,0.70805e+00_rb,0.89882e+00_rb,0.10049e+01_rb,0.77551e+00_rb /)
+      kbo(:, 4,24,12) = (/ &
+        & 0.39090e+00_rb,0.75345e+00_rb,0.95073e+00_rb,0.10524e+01_rb,0.82233e+00_rb /)
+      kbo(:, 5,24,12) = (/ &
+        & 0.42938e+00_rb,0.80019e+00_rb,0.10026e+01_rb,0.10965e+01_rb,0.86634e+00_rb /)
+      kbo(:, 1,25,12) = (/ &
+        & 0.27857e+00_rb,0.60799e+00_rb,0.78705e+00_rb,0.89081e+00_rb,0.66256e+00_rb /)
+      kbo(:, 2,25,12) = (/ &
+        & 0.30889e+00_rb,0.65303e+00_rb,0.84032e+00_rb,0.94841e+00_rb,0.71733e+00_rb /)
+      kbo(:, 3,25,12) = (/ &
+        & 0.34245e+00_rb,0.69924e+00_rb,0.89488e+00_rb,0.10015e+01_rb,0.76917e+00_rb /)
+      kbo(:, 4,25,12) = (/ &
+        & 0.37871e+00_rb,0.74693e+00_rb,0.95015e+00_rb,0.10506e+01_rb,0.81807e+00_rb /)
+      kbo(:, 5,25,12) = (/ &
+        & 0.41833e+00_rb,0.79644e+00_rb,0.10044e+01_rb,0.10958e+01_rb,0.86374e+00_rb /)
+      kbo(:, 1,26,12) = (/ &
+        & 0.26580e+00_rb,0.60063e+00_rb,0.78228e+00_rb,0.88879e+00_rb,0.65720e+00_rb /)
+      kbo(:, 2,26,12) = (/ &
+        & 0.29790e+00_rb,0.64759e+00_rb,0.83895e+00_rb,0.94821e+00_rb,0.71439e+00_rb /)
+      kbo(:, 3,26,12) = (/ &
+        & 0.33261e+00_rb,0.69574e+00_rb,0.89642e+00_rb,0.10025e+01_rb,0.76782e+00_rb /)
+      kbo(:, 4,26,12) = (/ &
+        & 0.37054e+00_rb,0.74591e+00_rb,0.95396e+00_rb,0.10524e+01_rb,0.81818e+00_rb /)
+      kbo(:, 5,26,12) = (/ &
+        & 0.41158e+00_rb,0.79751e+00_rb,0.10099e+01_rb,0.10981e+01_rb,0.86507e+00_rb /)
+      kbo(:, 1,27,12) = (/ &
+        & 0.25628e+00_rb,0.59727e+00_rb,0.78261e+00_rb,0.89115e+00_rb,0.65648e+00_rb /)
+      kbo(:, 2,27,12) = (/ &
+        & 0.28973e+00_rb,0.64617e+00_rb,0.84187e+00_rb,0.95137e+00_rb,0.71531e+00_rb /)
+      kbo(:, 3,27,12) = (/ &
+        & 0.32602e+00_rb,0.69640e+00_rb,0.90149e+00_rb,0.10062e+01_rb,0.76992e+00_rb /)
+      kbo(:, 4,27,12) = (/ &
+        & 0.36566e+00_rb,0.74858e+00_rb,0.96067e+00_rb,0.10565e+01_rb,0.82130e+00_rb /)
+      kbo(:, 5,27,12) = (/ &
+        & 0.40839e+00_rb,0.80160e+00_rb,0.10174e+01_rb,0.11025e+01_rb,0.86892e+00_rb /)
+      kbo(:, 1,28,12) = (/ &
+        & 0.24931e+00_rb,0.59767e+00_rb,0.78703e+00_rb,0.89664e+00_rb,0.65970e+00_rb /)
+      kbo(:, 2,28,12) = (/ &
+        & 0.28438e+00_rb,0.64828e+00_rb,0.84808e+00_rb,0.95711e+00_rb,0.71948e+00_rb /)
+      kbo(:, 3,28,12) = (/ &
+        & 0.32259e+00_rb,0.70046e+00_rb,0.90930e+00_rb,0.10123e+01_rb,0.77494e+00_rb /)
+      kbo(:, 4,28,12) = (/ &
+        & 0.36394e+00_rb,0.75423e+00_rb,0.96943e+00_rb,0.10625e+01_rb,0.82683e+00_rb /)
+      kbo(:, 5,28,12) = (/ &
+        & 0.40857e+00_rb,0.80828e+00_rb,0.10265e+01_rb,0.11085e+01_rb,0.87457e+00_rb /)
+      kbo(:, 1,29,12) = (/ &
+        & 0.24529e+00_rb,0.60153e+00_rb,0.79470e+00_rb,0.90469e+00_rb,0.66635e+00_rb /)
+      kbo(:, 2,29,12) = (/ &
+        & 0.28215e+00_rb,0.65374e+00_rb,0.85707e+00_rb,0.96518e+00_rb,0.72659e+00_rb /)
+      kbo(:, 3,29,12) = (/ &
+        & 0.32237e+00_rb,0.70744e+00_rb,0.91955e+00_rb,0.10202e+01_rb,0.78233e+00_rb /)
+      kbo(:, 4,29,12) = (/ &
+        & 0.36548e+00_rb,0.76246e+00_rb,0.98006e+00_rb,0.10704e+01_rb,0.83435e+00_rb /)
+      kbo(:, 5,29,12) = (/ &
+        & 0.41179e+00_rb,0.81715e+00_rb,0.10368e+01_rb,0.11160e+01_rb,0.88198e+00_rb /)
+      kbo(:, 1,30,12) = (/ &
+        & 0.24386e+00_rb,0.60816e+00_rb,0.80473e+00_rb,0.91460e+00_rb,0.67543e+00_rb /)
+      kbo(:, 2,30,12) = (/ &
+        & 0.28279e+00_rb,0.66165e+00_rb,0.86804e+00_rb,0.97470e+00_rb,0.73566e+00_rb /)
+      kbo(:, 3,30,12) = (/ &
+        & 0.32483e+00_rb,0.71650e+00_rb,0.93115e+00_rb,0.10292e+01_rb,0.79124e+00_rb /)
+      kbo(:, 4,30,12) = (/ &
+        & 0.36954e+00_rb,0.77208e+00_rb,0.99158e+00_rb,0.10790e+01_rb,0.84299e+00_rb /)
+      kbo(:, 5,30,12) = (/ &
+        & 0.41749e+00_rb,0.82738e+00_rb,0.10478e+01_rb,0.11245e+01_rb,0.89039e+00_rb /)
+      kbo(:, 1,31,12) = (/ &
+        & 0.24525e+00_rb,0.61702e+00_rb,0.81682e+00_rb,0.92621e+00_rb,0.68640e+00_rb /)
+      kbo(:, 2,31,12) = (/ &
+        & 0.28616e+00_rb,0.67142e+00_rb,0.88072e+00_rb,0.98550e+00_rb,0.74643e+00_rb /)
+      kbo(:, 3,31,12) = (/ &
+        & 0.32989e+00_rb,0.72710e+00_rb,0.94409e+00_rb,0.10393e+01_rb,0.80152e+00_rb /)
+      kbo(:, 4,31,12) = (/ &
+        & 0.37609e+00_rb,0.78314e+00_rb,0.10041e+01_rb,0.10886e+01_rb,0.85269e+00_rb /)
+      kbo(:, 5,31,12) = (/ &
+        & 0.42530e+00_rb,0.83896e+00_rb,0.10596e+01_rb,0.11338e+01_rb,0.89957e+00_rb /)
+      kbo(:, 1,32,12) = (/ &
+        & 0.24917e+00_rb,0.62738e+00_rb,0.83018e+00_rb,0.93886e+00_rb,0.69870e+00_rb /)
+      kbo(:, 2,32,12) = (/ &
+        & 0.29180e+00_rb,0.68257e+00_rb,0.89466e+00_rb,0.99723e+00_rb,0.75819e+00_rb /)
+      kbo(:, 3,32,12) = (/ &
+        & 0.33695e+00_rb,0.73898e+00_rb,0.95783e+00_rb,0.10503e+01_rb,0.81270e+00_rb /)
+      kbo(:, 4,32,12) = (/ &
+        & 0.38441e+00_rb,0.79527e+00_rb,0.10172e+01_rb,0.10987e+01_rb,0.86313e+00_rb /)
+      kbo(:, 5,32,12) = (/ &
+        & 0.43473e+00_rb,0.85145e+00_rb,0.10718e+01_rb,0.11436e+01_rb,0.90933e+00_rb /)
+      kbo(:, 1,33,12) = (/ &
+        & 0.25524e+00_rb,0.63888e+00_rb,0.84456e+00_rb,0.95208e+00_rb,0.71177e+00_rb /)
+      kbo(:, 2,33,12) = (/ &
+        & 0.29923e+00_rb,0.69477e+00_rb,0.90943e+00_rb,0.10094e+01_rb,0.77043e+00_rb /)
+      kbo(:, 3,33,12) = (/ &
+        & 0.34555e+00_rb,0.75166e+00_rb,0.97211e+00_rb,0.10616e+01_rb,0.82442e+00_rb /)
+      kbo(:, 4,33,12) = (/ &
+        & 0.39409e+00_rb,0.80804e+00_rb,0.10306e+01_rb,0.11094e+01_rb,0.87396e+00_rb /)
+      kbo(:, 5,33,12) = (/ &
+        & 0.44532e+00_rb,0.86454e+00_rb,0.10842e+01_rb,0.11536e+01_rb,0.91947e+00_rb /)
+      kbo(:, 1,34,12) = (/ &
+        & 0.26139e+00_rb,0.64937e+00_rb,0.85738e+00_rb,0.96358e+00_rb,0.72330e+00_rb /)
+      kbo(:, 2,34,12) = (/ &
+        & 0.30644e+00_rb,0.70578e+00_rb,0.92238e+00_rb,0.10200e+01_rb,0.78117e+00_rb /)
+      kbo(:, 3,34,12) = (/ &
+        & 0.35368e+00_rb,0.76284e+00_rb,0.98445e+00_rb,0.10715e+01_rb,0.83457e+00_rb /)
+      kbo(:, 4,34,12) = (/ &
+        & 0.40294e+00_rb,0.81944e+00_rb,0.10421e+01_rb,0.11185e+01_rb,0.88331e+00_rb /)
+      kbo(:, 5,34,12) = (/ &
+        & 0.45497e+00_rb,0.87610e+00_rb,0.10949e+01_rb,0.11623e+01_rb,0.92821e+00_rb /)
+      kbo(:, 1,35,12) = (/ &
+        & 0.26429e+00_rb,0.65495e+00_rb,0.86437e+00_rb,0.96967e+00_rb,0.72944e+00_rb /)
+      kbo(:, 2,35,12) = (/ &
+        & 0.31003e+00_rb,0.71171e+00_rb,0.92940e+00_rb,0.10257e+01_rb,0.78687e+00_rb /)
+      kbo(:, 3,35,12) = (/ &
+        & 0.35779e+00_rb,0.76892e+00_rb,0.99113e+00_rb,0.10767e+01_rb,0.83993e+00_rb /)
+      kbo(:, 4,35,12) = (/ &
+        & 0.40757e+00_rb,0.82572e+00_rb,0.10483e+01_rb,0.11235e+01_rb,0.88834e+00_rb /)
+      kbo(:, 5,35,12) = (/ &
+        & 0.46005e+00_rb,0.88243e+00_rb,0.11007e+01_rb,0.11671e+01_rb,0.93291e+00_rb /)
+      kbo(:, 1,36,12) = (/ &
+        & 0.26301e+00_rb,0.65478e+00_rb,0.86458e+00_rb,0.96965e+00_rb,0.72937e+00_rb /)
+      kbo(:, 2,36,12) = (/ &
+        & 0.30906e+00_rb,0.71167e+00_rb,0.92967e+00_rb,0.10257e+01_rb,0.78687e+00_rb /)
+      kbo(:, 3,36,12) = (/ &
+        & 0.35709e+00_rb,0.76907e+00_rb,0.99151e+00_rb,0.10769e+01_rb,0.84005e+00_rb /)
+      kbo(:, 4,36,12) = (/ &
+        & 0.40702e+00_rb,0.82602e+00_rb,0.10488e+01_rb,0.11238e+01_rb,0.88850e+00_rb /)
+      kbo(:, 5,36,12) = (/ &
+        & 0.45966e+00_rb,0.88282e+00_rb,0.11012e+01_rb,0.11674e+01_rb,0.93315e+00_rb /)
+      kbo(:, 1,37,12) = (/ &
+        & 0.25532e+00_rb,0.64621e+00_rb,0.85496e+00_rb,0.96073e+00_rb,0.72018e+00_rb /)
+      kbo(:, 2,37,12) = (/ &
+        & 0.30133e+00_rb,0.70315e+00_rb,0.92046e+00_rb,0.10178e+01_rb,0.77861e+00_rb /)
+      kbo(:, 3,37,12) = (/ &
+        & 0.34928e+00_rb,0.76070e+00_rb,0.98300e+00_rb,0.10697e+01_rb,0.83253e+00_rb /)
+      kbo(:, 4,37,12) = (/ &
+        & 0.39901e+00_rb,0.81782e+00_rb,0.10410e+01_rb,0.11173e+01_rb,0.88173e+00_rb /)
+      kbo(:, 5,37,12) = (/ &
+        & 0.45136e+00_rb,0.87470e+00_rb,0.10942e+01_rb,0.11614e+01_rb,0.92694e+00_rb /)
+      kbo(:, 1,38,12) = (/ &
+        & 0.24761e+00_rb,0.63742e+00_rb,0.84491e+00_rb,0.95139e+00_rb,0.71066e+00_rb /)
+      kbo(:, 2,38,12) = (/ &
+        & 0.29353e+00_rb,0.69428e+00_rb,0.91068e+00_rb,0.10095e+01_rb,0.76992e+00_rb /)
+      kbo(:, 3,38,12) = (/ &
+        & 0.34135e+00_rb,0.75196e+00_rb,0.97396e+00_rb,0.10621e+01_rb,0.82461e+00_rb /)
+      kbo(:, 4,38,12) = (/ &
+        & 0.39084e+00_rb,0.80925e+00_rb,0.10327e+01_rb,0.11104e+01_rb,0.87459e+00_rb /)
+      kbo(:, 5,38,12) = (/ &
+        & 0.44289e+00_rb,0.86617e+00_rb,0.10866e+01_rb,0.11550e+01_rb,0.92038e+00_rb /)
+      kbo(:, 1,39,12) = (/ &
+        & 0.24017e+00_rb,0.62886e+00_rb,0.83503e+00_rb,0.94210e+00_rb,0.70124e+00_rb /)
+      kbo(:, 2,39,12) = (/ &
+        & 0.28601e+00_rb,0.68569e+00_rb,0.90106e+00_rb,0.10011e+01_rb,0.76142e+00_rb /)
+      kbo(:, 3,39,12) = (/ &
+        & 0.33368e+00_rb,0.74335e+00_rb,0.96490e+00_rb,0.10546e+01_rb,0.81673e+00_rb /)
+      kbo(:, 4,39,12) = (/ &
+        & 0.38296e+00_rb,0.80081e+00_rb,0.10243e+01_rb,0.11035e+01_rb,0.86747e+00_rb /)
+      kbo(:, 5,39,12) = (/ &
+        & 0.43465e+00_rb,0.85778e+00_rb,0.10791e+01_rb,0.11488e+01_rb,0.91385e+00_rb /)
+      kbo(:, 1,40,12) = (/ &
+        & 0.22833e+00_rb,0.61463e+00_rb,0.81821e+00_rb,0.92620e+00_rb,0.68530e+00_rb /)
+      kbo(:, 2,40,12) = (/ &
+        & 0.27395e+00_rb,0.67134e+00_rb,0.88467e+00_rb,0.98686e+00_rb,0.74688e+00_rb /)
+      kbo(:, 3,40,12) = (/ &
+        & 0.32124e+00_rb,0.72890e+00_rb,0.94943e+00_rb,0.10418e+01_rb,0.80324e+00_rb /)
+      kbo(:, 4,40,12) = (/ &
+        & 0.37015e+00_rb,0.78652e+00_rb,0.10100e+01_rb,0.10918e+01_rb,0.85523e+00_rb /)
+      kbo(:, 5,40,12) = (/ &
+        & 0.42126e+00_rb,0.84372e+00_rb,0.10660e+01_rb,0.11379e+01_rb,0.90264e+00_rb /)
+      kbo(:, 1,41,12) = (/ &
+        & 0.21612e+00_rb,0.59971e+00_rb,0.80041e+00_rb,0.90904e+00_rb,0.66824e+00_rb /)
+      kbo(:, 2,41,12) = (/ &
+        & 0.26150e+00_rb,0.65630e+00_rb,0.86743e+00_rb,0.97155e+00_rb,0.73120e+00_rb /)
+      kbo(:, 3,41,12) = (/ &
+        & 0.30837e+00_rb,0.71376e+00_rb,0.93288e+00_rb,0.10279e+01_rb,0.78880e+00_rb /)
+      kbo(:, 4,41,12) = (/ &
+        & 0.35698e+00_rb,0.77150e+00_rb,0.99473e+00_rb,0.10791e+01_rb,0.84209e+00_rb /)
+      kbo(:, 5,41,12) = (/ &
+        & 0.40745e+00_rb,0.82887e+00_rb,0.10519e+01_rb,0.11261e+01_rb,0.89062e+00_rb /)
+      kbo(:, 1,42,12) = (/ &
+        & 0.20417e+00_rb,0.58472e+00_rb,0.78237e+00_rb,0.89154e+00_rb,0.65066e+00_rb /)
+      kbo(:, 2,42,12) = (/ &
+        & 0.24921e+00_rb,0.64136e+00_rb,0.85007e+00_rb,0.95580e+00_rb,0.71510e+00_rb /)
+      kbo(:, 3,42,12) = (/ &
+        & 0.29566e+00_rb,0.69861e+00_rb,0.91611e+00_rb,0.10137e+01_rb,0.77414e+00_rb /)
+      kbo(:, 4,42,12) = (/ &
+        & 0.34395e+00_rb,0.75651e+00_rb,0.97922e+00_rb,0.10662e+01_rb,0.82865e+00_rb /)
+      kbo(:, 5,42,12) = (/ &
+        & 0.39383e+00_rb,0.81397e+00_rb,0.10376e+01_rb,0.11142e+01_rb,0.87842e+00_rb /)
+      kbo(:, 1,43,12) = (/ &
+        & 0.18997e+00_rb,0.56647e+00_rb,0.76032e+00_rb,0.86976e+00_rb,0.62901e+00_rb /)
+      kbo(:, 2,43,12) = (/ &
+        & 0.23447e+00_rb,0.62342e+00_rb,0.82892e+00_rb,0.93617e+00_rb,0.69524e+00_rb /)
+      kbo(:, 3,43,12) = (/ &
+        & 0.28050e+00_rb,0.68037e+00_rb,0.89544e+00_rb,0.99597e+00_rb,0.75607e+00_rb /)
+      kbo(:, 4,43,12) = (/ &
+        & 0.32830e+00_rb,0.73817e+00_rb,0.95981e+00_rb,0.10502e+01_rb,0.81194e+00_rb /)
+      kbo(:, 5,43,12) = (/ &
+        & 0.37763e+00_rb,0.79580e+00_rb,0.10196e+01_rb,0.10995e+01_rb,0.86317e+00_rb /)
+      kbo(:, 1,44,12) = (/ &
+        & 0.17494e+00_rb,0.54678e+00_rb,0.73637e+00_rb,0.84544e+00_rb,0.60542e+00_rb /)
+      kbo(:, 2,44,12) = (/ &
+        & 0.21877e+00_rb,0.60406e+00_rb,0.80575e+00_rb,0.91415e+00_rb,0.67322e+00_rb /)
+      kbo(:, 3,44,12) = (/ &
+        & 0.26445e+00_rb,0.66075e+00_rb,0.87287e+00_rb,0.97625e+00_rb,0.73598e+00_rb /)
+      kbo(:, 4,44,12) = (/ &
+        & 0.31161e+00_rb,0.71841e+00_rb,0.93827e+00_rb,0.10322e+01_rb,0.79326e+00_rb /)
+      kbo(:, 5,44,12) = (/ &
+        & 0.36052e+00_rb,0.77622e+00_rb,0.99972e+00_rb,0.10831e+01_rb,0.84620e+00_rb /)
+      kbo(:, 1,45,12) = (/ &
+        & 0.16016e+00_rb,0.52729e+00_rb,0.71224e+00_rb,0.82038e+00_rb,0.58172e+00_rb /)
+      kbo(:, 2,45,12) = (/ &
+        & 0.20336e+00_rb,0.58455e+00_rb,0.78227e+00_rb,0.89144e+00_rb,0.65050e+00_rb /)
+      kbo(:, 3,45,12) = (/ &
+        & 0.24861e+00_rb,0.64128e+00_rb,0.85023e+00_rb,0.95584e+00_rb,0.71509e+00_rb /)
+      kbo(:, 4,45,12) = (/ &
+        & 0.29518e+00_rb,0.69870e+00_rb,0.91640e+00_rb,0.10138e+01_rb,0.77417e+00_rb /)
+      kbo(:, 5,45,12) = (/ &
+        & 0.34361e+00_rb,0.75661e+00_rb,0.97947e+00_rb,0.10663e+01_rb,0.82874e+00_rb /)
+      kbo(:, 1,46,12) = (/ &
+        & 0.14495e+00_rb,0.50668e+00_rb,0.68614e+00_rb,0.79268e+00_rb,0.55619e+00_rb /)
+      kbo(:, 2,46,12) = (/ &
+        & 0.18729e+00_rb,0.56366e+00_rb,0.75707e+00_rb,0.86650e+00_rb,0.62580e+00_rb /)
+      kbo(:, 3,46,12) = (/ &
+        & 0.23189e+00_rb,0.62077e+00_rb,0.82600e+00_rb,0.93336e+00_rb,0.69232e+00_rb /)
+      kbo(:, 4,46,12) = (/ &
+        & 0.27798e+00_rb,0.67784e+00_rb,0.89269e+00_rb,0.99345e+00_rb,0.75352e+00_rb /)
+      kbo(:, 5,46,12) = (/ &
+        & 0.32583e+00_rb,0.73560e+00_rb,0.95715e+00_rb,0.10480e+01_rb,0.80957e+00_rb /)
+      kbo(:, 1,47,12) = (/ &
+        & 0.12858e+00_rb,0.48369e+00_rb,0.65638e+00_rb,0.76017e+00_rb,0.52730e+00_rb /)
+      kbo(:, 2,47,12) = (/ &
+        & 0.16969e+00_rb,0.54041e+00_rb,0.72859e+00_rb,0.83745e+00_rb,0.59783e+00_rb /)
+      kbo(:, 3,47,12) = (/ &
+        & 0.21344e+00_rb,0.59783e+00_rb,0.79837e+00_rb,0.90704e+00_rb,0.66606e+00_rb /)
+      kbo(:, 4,47,12) = (/ &
+        & 0.25910e+00_rb,0.65455e+00_rb,0.86586e+00_rb,0.96989e+00_rb,0.72949e+00_rb /)
+      kbo(:, 5,47,12) = (/ &
+        & 0.30618e+00_rb,0.71222e+00_rb,0.93155e+00_rb,0.10265e+01_rb,0.78728e+00_rb /)
+      kbo(:, 1,48,12) = (/ &
+        & 0.11298e+00_rb,0.46082e+00_rb,0.62642e+00_rb,0.72640e+00_rb,0.49809e+00_rb /)
+      kbo(:, 2,48,12) = (/ &
+        & 0.15246e+00_rb,0.51740e+00_rb,0.69983e+00_rb,0.80735e+00_rb,0.56961e+00_rb /)
+      kbo(:, 3,48,12) = (/ &
+        & 0.19539e+00_rb,0.57459e+00_rb,0.77041e+00_rb,0.87978e+00_rb,0.63885e+00_rb /)
+      kbo(:, 4,48,12) = (/ &
+        & 0.24045e+00_rb,0.63157e+00_rb,0.83892e+00_rb,0.94534e+00_rb,0.70441e+00_rb /)
+      kbo(:, 5,48,12) = (/ &
+        & 0.28683e+00_rb,0.68881e+00_rb,0.90534e+00_rb,0.10043e+01_rb,0.76449e+00_rb /)
+      kbo(:, 1,49,12) = (/ &
+        & 0.98247e-01_rb,0.43787e+00_rb,0.59630e+00_rb,0.69142e+00_rb,0.46886e+00_rb /)
+      kbo(:, 2,49,12) = (/ &
+        & 0.13602e+00_rb,0.49453e+00_rb,0.67051e+00_rb,0.77567e+00_rb,0.54098e+00_rb /)
+      kbo(:, 3,49,12) = (/ &
+        & 0.17773e+00_rb,0.55136e+00_rb,0.74221e+00_rb,0.85142e+00_rb,0.61109e+00_rb /)
+      kbo(:, 4,49,12) = (/ &
+        & 0.22196e+00_rb,0.60876e+00_rb,0.81162e+00_rb,0.91969e+00_rb,0.67863e+00_rb /)
+      kbo(:, 5,49,12) = (/ &
+        & 0.26789e+00_rb,0.66564e+00_rb,0.87866e+00_rb,0.98128e+00_rb,0.74108e+00_rb /)
+      kbo(:, 1,50,12) = (/ &
+        & 0.85448e-01_rb,0.41621e+00_rb,0.56763e+00_rb,0.65757e+00_rb,0.44117e+00_rb /)
+      kbo(:, 2,50,12) = (/ &
+        & 0.12109e+00_rb,0.47310e+00_rb,0.64247e+00_rb,0.74462e+00_rb,0.51379e+00_rb /)
+      kbo(:, 3,50,12) = (/ &
+        & 0.16156e+00_rb,0.52985e+00_rb,0.71554e+00_rb,0.82373e+00_rb,0.58488e+00_rb /)
+      kbo(:, 4,50,12) = (/ &
+        & 0.20488e+00_rb,0.58711e+00_rb,0.78559e+00_rb,0.89468e+00_rb,0.65362e+00_rb /)
+      kbo(:, 5,50,12) = (/ &
+        & 0.25037e+00_rb,0.64398e+00_rb,0.85353e+00_rb,0.95880e+00_rb,0.71804e+00_rb /)
+      kbo(:, 1,51,12) = (/ &
+        & 0.73759e-01_rb,0.39485e+00_rb,0.53977e+00_rb,0.62407e+00_rb,0.41437e+00_rb /)
+      kbo(:, 2,51,12) = (/ &
+        & 0.10727e+00_rb,0.45237e+00_rb,0.61531e+00_rb,0.71353e+00_rb,0.48727e+00_rb /)
+      kbo(:, 3,51,12) = (/ &
+        & 0.14620e+00_rb,0.50899e+00_rb,0.68916e+00_rb,0.79586e+00_rb,0.55909e+00_rb /)
+      kbo(:, 4,51,12) = (/ &
+        & 0.18867e+00_rb,0.56597e+00_rb,0.76009e+00_rb,0.86950e+00_rb,0.62868e+00_rb /)
+      kbo(:, 5,51,12) = (/ &
+        & 0.23351e+00_rb,0.62321e+00_rb,0.82900e+00_rb,0.93613e+00_rb,0.69507e+00_rb /)
+      kbo(:, 1,52,12) = (/ &
+        & 0.62975e-01_rb,0.37352e+00_rb,0.51168e+00_rb,0.59007e+00_rb,0.38790e+00_rb /)
+      kbo(:, 2,52,12) = (/ &
+        & 0.94238e-01_rb,0.43155e+00_rb,0.58786e+00_rb,0.68153e+00_rb,0.46072e+00_rb /)
+      kbo(:, 3,52,12) = (/ &
+        & 0.13138e+00_rb,0.48824e+00_rb,0.66233e+00_rb,0.76673e+00_rb,0.53305e+00_rb /)
+      kbo(:, 4,52,12) = (/ &
+        & 0.17291e+00_rb,0.54507e+00_rb,0.73444e+00_rb,0.84335e+00_rb,0.60343e+00_rb /)
+      kbo(:, 5,52,12) = (/ &
+        & 0.21681e+00_rb,0.60245e+00_rb,0.80402e+00_rb,0.91249e+00_rb,0.67147e+00_rb /)
+      kbo(:, 1,53,12) = (/ &
+        & 0.53060e-01_rb,0.35230e+00_rb,0.48353e+00_rb,0.55561e+00_rb,0.36178e+00_rb /)
+      kbo(:, 2,53,12) = (/ &
+        & 0.81984e-01_rb,0.41041e+00_rb,0.56005e+00_rb,0.64855e+00_rb,0.43393e+00_rb /)
+      kbo(:, 3,53,12) = (/ &
+        & 0.11713e+00_rb,0.46754e+00_rb,0.63518e+00_rb,0.73640e+00_rb,0.50665e+00_rb /)
+      kbo(:, 4,53,12) = (/ &
+        & 0.15723e+00_rb,0.52417e+00_rb,0.70847e+00_rb,0.81636e+00_rb,0.57800e+00_rb /)
+      kbo(:, 5,53,12) = (/ &
+        & 0.20038e+00_rb,0.58144e+00_rb,0.77877e+00_rb,0.88807e+00_rb,0.64700e+00_rb /)
+      kbo(:, 1,54,12) = (/ &
+        & 0.44825e-01_rb,0.33285e+00_rb,0.45764e+00_rb,0.52392e+00_rb,0.33821e+00_rb /)
+      kbo(:, 2,54,12) = (/ &
+        & 0.71480e-01_rb,0.39083e+00_rb,0.53456e+00_rb,0.61778e+00_rb,0.40943e+00_rb /)
+      kbo(:, 3,54,12) = (/ &
+        & 0.10463e+00_rb,0.44857e+00_rb,0.61031e+00_rb,0.70773e+00_rb,0.48234e+00_rb /)
+      kbo(:, 4,54,12) = (/ &
+        & 0.14329e+00_rb,0.50511e+00_rb,0.68427e+00_rb,0.79060e+00_rb,0.55433e+00_rb /)
+      kbo(:, 5,54,12) = (/ &
+        & 0.18561e+00_rb,0.56209e+00_rb,0.75543e+00_rb,0.86487e+00_rb,0.62409e+00_rb /)
+      kbo(:, 1,55,12) = (/ &
+        & 0.37713e-01_rb,0.31417e+00_rb,0.43292e+00_rb,0.49354e+00_rb,0.31617e+00_rb /)
+      kbo(:, 2,55,12) = (/ &
+        & 0.62120e-01_rb,0.37210e+00_rb,0.50985e+00_rb,0.58786e+00_rb,0.38623e+00_rb /)
+      kbo(:, 3,55,12) = (/ &
+        & 0.93283e-01_rb,0.43021e+00_rb,0.58608e+00_rb,0.67950e+00_rb,0.45902e+00_rb /)
+      kbo(:, 4,55,12) = (/ &
+        & 0.13035e+00_rb,0.48690e+00_rb,0.66064e+00_rb,0.76487e+00_rb,0.53142e+00_rb /)
+      kbo(:, 5,55,12) = (/ &
+        & 0.17183e+00_rb,0.54374e+00_rb,0.73284e+00_rb,0.84168e+00_rb,0.60189e+00_rb /)
+      kbo(:, 1,56,12) = (/ &
+        & 0.31364e-01_rb,0.29533e+00_rb,0.40826e+00_rb,0.46346e+00_rb,0.29456e+00_rb /)
+      kbo(:, 2,56,12) = (/ &
+        & 0.53447e-01_rb,0.35352e+00_rb,0.48522e+00_rb,0.55771e+00_rb,0.36336e+00_rb /)
+      kbo(:, 3,56,12) = (/ &
+        & 0.82579e-01_rb,0.41171e+00_rb,0.56173e+00_rb,0.65061e+00_rb,0.43556e+00_rb /)
+      kbo(:, 4,56,12) = (/ &
+        & 0.11788e+00_rb,0.46877e+00_rb,0.63683e+00_rb,0.73828e+00_rb,0.50830e+00_rb /)
+      kbo(:, 5,56,12) = (/ &
+        & 0.15810e+00_rb,0.52547e+00_rb,0.71011e+00_rb,0.81806e+00_rb,0.57961e+00_rb /)
+      kbo(:, 1,57,12) = (/ &
+        & 0.25728e-01_rb,0.27641e+00_rb,0.38366e+00_rb,0.43364e+00_rb,0.27324e+00_rb /)
+      kbo(:, 2,57,12) = (/ &
+        & 0.45538e-01_rb,0.33495e+00_rb,0.46047e+00_rb,0.52741e+00_rb,0.34078e+00_rb /)
+      kbo(:, 3,57,12) = (/ &
+        & 0.72492e-01_rb,0.39302e+00_rb,0.53741e+00_rb,0.62128e+00_rb,0.41216e+00_rb /)
+      kbo(:, 4,57,12) = (/ &
+        & 0.10590e+00_rb,0.45065e+00_rb,0.61311e+00_rb,0.71103e+00_rb,0.48510e+00_rb /)
+      kbo(:, 5,57,12) = (/ &
+        & 0.14476e+00_rb,0.50725e+00_rb,0.68700e+00_rb,0.79354e+00_rb,0.55702e+00_rb /)
+      kbo(:, 1,58,12) = (/ &
+        & 0.21034e-01_rb,0.25862e+00_rb,0.36035e+00_rb,0.40559e+00_rb,0.25327e+00_rb /)
+      kbo(:, 2,58,12) = (/ &
+        & 0.38718e-01_rb,0.31732e+00_rb,0.43714e+00_rb,0.49876e+00_rb,0.31992e+00_rb /)
+      kbo(:, 3,58,12) = (/ &
+        & 0.63552e-01_rb,0.37529e+00_rb,0.51407e+00_rb,0.59305e+00_rb,0.39018e+00_rb /)
+      kbo(:, 4,58,12) = (/ &
+        & 0.95105e-01_rb,0.43334e+00_rb,0.59030e+00_rb,0.68443e+00_rb,0.46307e+00_rb /)
+      kbo(:, 5,58,12) = (/ &
+        & 0.13248e+00_rb,0.49002e+00_rb,0.66471e+00_rb,0.76934e+00_rb,0.53538e+00_rb /)
+      kbo(:, 1,59,12) = (/ &
+        & 0.19312e-01_rb,0.25156e+00_rb,0.35103e+00_rb,0.39450e+00_rb,0.24538e+00_rb /)
+      kbo(:, 2,59,12) = (/ &
+        & 0.36163e-01_rb,0.31020e+00_rb,0.42773e+00_rb,0.48723e+00_rb,0.31163e+00_rb /)
+      kbo(:, 3,59,12) = (/ &
+        & 0.60143e-01_rb,0.36820e+00_rb,0.50471e+00_rb,0.58164e+00_rb,0.38146e+00_rb /)
+      kbo(:, 4,59,12) = (/ &
+        & 0.90924e-01_rb,0.42637e+00_rb,0.58105e+00_rb,0.67358e+00_rb,0.45417e+00_rb /)
+      kbo(:, 5,59,12) = (/ &
+        & 0.12765e+00_rb,0.48313e+00_rb,0.65572e+00_rb,0.75941e+00_rb,0.52665e+00_rb /)
+      kbo(:, 1,13,13) = (/ &
+        & 0.25702e+01_rb,0.27735e+01_rb,0.28760e+01_rb,0.25966e+01_rb,0.23968e+01_rb /)
+      kbo(:, 2,13,13) = (/ &
+        & 0.25597e+01_rb,0.27776e+01_rb,0.28903e+01_rb,0.26158e+01_rb,0.24224e+01_rb /)
+      kbo(:, 3,13,13) = (/ &
+        & 0.25494e+01_rb,0.27801e+01_rb,0.29040e+01_rb,0.26351e+01_rb,0.24494e+01_rb /)
+      kbo(:, 4,13,13) = (/ &
+        & 0.25338e+01_rb,0.27802e+01_rb,0.29182e+01_rb,0.26543e+01_rb,0.24747e+01_rb /)
+      kbo(:, 5,13,13) = (/ &
+        & 0.25177e+01_rb,0.27760e+01_rb,0.29320e+01_rb,0.26728e+01_rb,0.24963e+01_rb /)
+      kbo(:, 1,14,13) = (/ &
+        & 0.23659e+01_rb,0.26936e+01_rb,0.28410e+01_rb,0.26130e+01_rb,0.23363e+01_rb /)
+      kbo(:, 2,14,13) = (/ &
+        & 0.23577e+01_rb,0.27024e+01_rb,0.28615e+01_rb,0.26344e+01_rb,0.23684e+01_rb /)
+      kbo(:, 3,14,13) = (/ &
+        & 0.23468e+01_rb,0.27102e+01_rb,0.28819e+01_rb,0.26565e+01_rb,0.24004e+01_rb /)
+      kbo(:, 4,14,13) = (/ &
+        & 0.23350e+01_rb,0.27153e+01_rb,0.29051e+01_rb,0.26785e+01_rb,0.24267e+01_rb /)
+      kbo(:, 5,14,13) = (/ &
+        & 0.23244e+01_rb,0.27141e+01_rb,0.29262e+01_rb,0.26967e+01_rb,0.24480e+01_rb /)
+      kbo(:, 1,15,13) = (/ &
+        & 0.21606e+01_rb,0.25927e+01_rb,0.27805e+01_rb,0.26146e+01_rb,0.22773e+01_rb /)
+      kbo(:, 2,15,13) = (/ &
+        & 0.21537e+01_rb,0.26084e+01_rb,0.28087e+01_rb,0.26417e+01_rb,0.23162e+01_rb /)
+      kbo(:, 3,15,13) = (/ &
+        & 0.21448e+01_rb,0.26237e+01_rb,0.28408e+01_rb,0.26683e+01_rb,0.23515e+01_rb /)
+      kbo(:, 4,15,13) = (/ &
+        & 0.21380e+01_rb,0.26327e+01_rb,0.28720e+01_rb,0.26931e+01_rb,0.23792e+01_rb /)
+      kbo(:, 5,15,13) = (/ &
+        & 0.21347e+01_rb,0.26387e+01_rb,0.29018e+01_rb,0.27159e+01_rb,0.24036e+01_rb /)
+      kbo(:, 1,16,13) = (/ &
+        & 0.19588e+01_rb,0.24824e+01_rb,0.27086e+01_rb,0.26036e+01_rb,0.22170e+01_rb /)
+      kbo(:, 2,16,13) = (/ &
+        & 0.19544e+01_rb,0.25053e+01_rb,0.27466e+01_rb,0.26370e+01_rb,0.22638e+01_rb /)
+      kbo(:, 3,16,13) = (/ &
+        & 0.19508e+01_rb,0.25256e+01_rb,0.27882e+01_rb,0.26694e+01_rb,0.23023e+01_rb /)
+      kbo(:, 4,16,13) = (/ &
+        & 0.19522e+01_rb,0.25422e+01_rb,0.28288e+01_rb,0.26997e+01_rb,0.23338e+01_rb /)
+      kbo(:, 5,16,13) = (/ &
+        & 0.19669e+01_rb,0.25568e+01_rb,0.28660e+01_rb,0.27268e+01_rb,0.23639e+01_rb /)
+      kbo(:, 1,17,13) = (/ &
+        & 0.17683e+01_rb,0.23717e+01_rb,0.26296e+01_rb,0.25828e+01_rb,0.21586e+01_rb /)
+      kbo(:, 2,17,13) = (/ &
+        & 0.17670e+01_rb,0.24002e+01_rb,0.26798e+01_rb,0.26243e+01_rb,0.22104e+01_rb /)
+      kbo(:, 3,17,13) = (/ &
+        & 0.17705e+01_rb,0.24261e+01_rb,0.27313e+01_rb,0.26643e+01_rb,0.22525e+01_rb /)
+      kbo(:, 4,17,13) = (/ &
+        & 0.17889e+01_rb,0.24495e+01_rb,0.27802e+01_rb,0.27001e+01_rb,0.22912e+01_rb /)
+      kbo(:, 5,17,13) = (/ &
+        & 0.18206e+01_rb,0.24734e+01_rb,0.28261e+01_rb,0.27304e+01_rb,0.23278e+01_rb /)
+      kbo(:, 1,18,13) = (/ &
+        & 0.15903e+01_rb,0.22606e+01_rb,0.25530e+01_rb,0.25561e+01_rb,0.21033e+01_rb /)
+      kbo(:, 2,18,13) = (/ &
+        & 0.15961e+01_rb,0.22974e+01_rb,0.26139e+01_rb,0.26069e+01_rb,0.21585e+01_rb /)
+      kbo(:, 3,18,13) = (/ &
+        & 0.16151e+01_rb,0.23303e+01_rb,0.26738e+01_rb,0.26546e+01_rb,0.22069e+01_rb /)
+      kbo(:, 4,18,13) = (/ &
+        & 0.16495e+01_rb,0.23625e+01_rb,0.27316e+01_rb,0.26970e+01_rb,0.22532e+01_rb /)
+      kbo(:, 5,18,13) = (/ &
+        & 0.16970e+01_rb,0.23957e+01_rb,0.27859e+01_rb,0.27320e+01_rb,0.22970e+01_rb /)
+      kbo(:, 1,19,13) = (/ &
+        & 0.14257e+01_rb,0.21563e+01_rb,0.24826e+01_rb,0.25271e+01_rb,0.20500e+01_rb /)
+      kbo(:, 2,19,13) = (/ &
+        & 0.14448e+01_rb,0.21999e+01_rb,0.25521e+01_rb,0.25882e+01_rb,0.21113e+01_rb /)
+      kbo(:, 3,19,13) = (/ &
+        & 0.14809e+01_rb,0.22420e+01_rb,0.26202e+01_rb,0.26436e+01_rb,0.21676e+01_rb /)
+      kbo(:, 4,19,13) = (/ &
+        & 0.15301e+01_rb,0.22839e+01_rb,0.26861e+01_rb,0.26918e+01_rb,0.22215e+01_rb /)
+      kbo(:, 5,19,13) = (/ &
+        & 0.15917e+01_rb,0.23278e+01_rb,0.27486e+01_rb,0.27324e+01_rb,0.22720e+01_rb /)
+      kbo(:, 1,20,13) = (/ &
+        & 0.12800e+01_rb,0.20626e+01_rb,0.24230e+01_rb,0.25008e+01_rb,0.20040e+01_rb /)
+      kbo(:, 2,20,13) = (/ &
+        & 0.13152e+01_rb,0.21132e+01_rb,0.24996e+01_rb,0.25711e+01_rb,0.20725e+01_rb /)
+      kbo(:, 3,20,13) = (/ &
+        & 0.13653e+01_rb,0.21643e+01_rb,0.25750e+01_rb,0.26341e+01_rb,0.21362e+01_rb /)
+      kbo(:, 4,20,13) = (/ &
+        & 0.14290e+01_rb,0.22166e+01_rb,0.26493e+01_rb,0.26871e+01_rb,0.21969e+01_rb /)
+      kbo(:, 5,20,13) = (/ &
+        & 0.15047e+01_rb,0.22739e+01_rb,0.27186e+01_rb,0.27332e+01_rb,0.22536e+01_rb /)
+      kbo(:, 1,21,13) = (/ &
+        & 0.11565e+01_rb,0.19804e+01_rb,0.23723e+01_rb,0.24790e+01_rb,0.19652e+01_rb /)
+      kbo(:, 2,21,13) = (/ &
+        & 0.12043e+01_rb,0.20401e+01_rb,0.24563e+01_rb,0.25572e+01_rb,0.20406e+01_rb /)
+      kbo(:, 3,21,13) = (/ &
+        & 0.12682e+01_rb,0.20995e+01_rb,0.25386e+01_rb,0.26265e+01_rb,0.21117e+01_rb /)
+      kbo(:, 4,21,13) = (/ &
+        & 0.13446e+01_rb,0.21634e+01_rb,0.26197e+01_rb,0.26846e+01_rb,0.21783e+01_rb /)
+      kbo(:, 5,21,13) = (/ &
+        & 0.14328e+01_rb,0.22322e+01_rb,0.26943e+01_rb,0.27351e+01_rb,0.22400e+01_rb /)
+      kbo(:, 1,22,13) = (/ &
+        & 0.10567e+01_rb,0.19161e+01_rb,0.23380e+01_rb,0.24675e+01_rb,0.19394e+01_rb /)
+      kbo(:, 2,22,13) = (/ &
+        & 0.11171e+01_rb,0.19843e+01_rb,0.24279e+01_rb,0.25525e+01_rb,0.20217e+01_rb /)
+      kbo(:, 3,22,13) = (/ &
+        & 0.11926e+01_rb,0.20529e+01_rb,0.25167e+01_rb,0.26264e+01_rb,0.20987e+01_rb /)
+      kbo(:, 4,22,13) = (/ &
+        & 0.12819e+01_rb,0.21280e+01_rb,0.26028e+01_rb,0.26881e+01_rb,0.21696e+01_rb /)
+      kbo(:, 5,22,13) = (/ &
+        & 0.13818e+01_rb,0.22069e+01_rb,0.26807e+01_rb,0.27417e+01_rb,0.22350e+01_rb /)
+      kbo(:, 1,23,13) = (/ &
+        & 0.97722e+00_rb,0.18665e+01_rb,0.23140e+01_rb,0.24623e+01_rb,0.19226e+01_rb /)
+      kbo(:, 2,23,13) = (/ &
+        & 0.10487e+01_rb,0.19424e+01_rb,0.24103e+01_rb,0.25530e+01_rb,0.20109e+01_rb /)
+      kbo(:, 3,23,13) = (/ &
+        & 0.11351e+01_rb,0.20216e+01_rb,0.25035e+01_rb,0.26294e+01_rb,0.20926e+01_rb /)
+      kbo(:, 4,23,13) = (/ &
+        & 0.12356e+01_rb,0.21056e+01_rb,0.25931e+01_rb,0.26937e+01_rb,0.21670e+01_rb /)
+      kbo(:, 5,23,13) = (/ &
+        & 0.13470e+01_rb,0.21926e+01_rb,0.26734e+01_rb,0.27495e+01_rb,0.22345e+01_rb /)
+      kbo(:, 1,24,13) = (/ &
+        & 0.91609e+00_rb,0.18302e+01_rb,0.23004e+01_rb,0.24641e+01_rb,0.19149e+01_rb /)
+      kbo(:, 2,24,13) = (/ &
+        & 0.99757e+00_rb,0.19150e+01_rb,0.24014e+01_rb,0.25579e+01_rb,0.20076e+01_rb /)
+      kbo(:, 3,24,13) = (/ &
+        & 0.10945e+01_rb,0.20031e+01_rb,0.24987e+01_rb,0.26360e+01_rb,0.20926e+01_rb /)
+      kbo(:, 4,24,13) = (/ &
+        & 0.12058e+01_rb,0.20942e+01_rb,0.25896e+01_rb,0.27020e+01_rb,0.21691e+01_rb /)
+      kbo(:, 5,24,13) = (/ &
+        & 0.13269e+01_rb,0.21869e+01_rb,0.26718e+01_rb,0.27594e+01_rb,0.22381e+01_rb /)
+      kbo(:, 1,25,13) = (/ &
+        & 0.87183e+00_rb,0.18068e+01_rb,0.22964e+01_rb,0.24719e+01_rb,0.19153e+01_rb /)
+      kbo(:, 2,25,13) = (/ &
+        & 0.96269e+00_rb,0.19004e+01_rb,0.24012e+01_rb,0.25669e+01_rb,0.20109e+01_rb /)
+      kbo(:, 3,25,13) = (/ &
+        & 0.10701e+01_rb,0.19953e+01_rb,0.24998e+01_rb,0.26458e+01_rb,0.20980e+01_rb /)
+      kbo(:, 4,25,13) = (/ &
+        & 0.11910e+01_rb,0.20919e+01_rb,0.25913e+01_rb,0.27126e+01_rb,0.21754e+01_rb /)
+      kbo(:, 5,25,13) = (/ &
+        & 0.13188e+01_rb,0.21891e+01_rb,0.26749e+01_rb,0.27711e+01_rb,0.22449e+01_rb /)
+      kbo(:, 1,26,13) = (/ &
+        & 0.84313e+00_rb,0.17965e+01_rb,0.23011e+01_rb,0.24858e+01_rb,0.19238e+01_rb /)
+      kbo(:, 2,26,13) = (/ &
+        & 0.94434e+00_rb,0.18970e+01_rb,0.24073e+01_rb,0.25798e+01_rb,0.20205e+01_rb /)
+      kbo(:, 3,26,13) = (/ &
+        & 0.10612e+01_rb,0.19972e+01_rb,0.25069e+01_rb,0.26589e+01_rb,0.21080e+01_rb /)
+      kbo(:, 4,26,13) = (/ &
+        & 0.11887e+01_rb,0.20979e+01_rb,0.25988e+01_rb,0.27257e+01_rb,0.21853e+01_rb /)
+      kbo(:, 5,26,13) = (/ &
+        & 0.13225e+01_rb,0.21985e+01_rb,0.26831e+01_rb,0.27841e+01_rb,0.22550e+01_rb /)
+      kbo(:, 1,27,13) = (/ &
+        & 0.82783e+00_rb,0.17960e+01_rb,0.23110e+01_rb,0.25019e+01_rb,0.19363e+01_rb /)
+      kbo(:, 2,27,13) = (/ &
+        & 0.93873e+00_rb,0.19014e+01_rb,0.24182e+01_rb,0.25950e+01_rb,0.20338e+01_rb /)
+      kbo(:, 3,27,13) = (/ &
+        & 0.10628e+01_rb,0.20052e+01_rb,0.25176e+01_rb,0.26735e+01_rb,0.21206e+01_rb /)
+      kbo(:, 4,27,13) = (/ &
+        & 0.11961e+01_rb,0.21092e+01_rb,0.26097e+01_rb,0.27398e+01_rb,0.21974e+01_rb /)
+      kbo(:, 5,27,13) = (/ &
+        & 0.13342e+01_rb,0.22123e+01_rb,0.26944e+01_rb,0.27973e+01_rb,0.22665e+01_rb /)
+      kbo(:, 1,28,13) = (/ &
+        & 0.82452e+00_rb,0.18027e+01_rb,0.23247e+01_rb,0.25200e+01_rb,0.19523e+01_rb /)
+      kbo(:, 2,28,13) = (/ &
+        & 0.94277e+00_rb,0.19121e+01_rb,0.24323e+01_rb,0.26114e+01_rb,0.20494e+01_rb /)
+      kbo(:, 3,28,13) = (/ &
+        & 0.10725e+01_rb,0.20183e+01_rb,0.25313e+01_rb,0.26888e+01_rb,0.21352e+01_rb /)
+      kbo(:, 4,28,13) = (/ &
+        & 0.12107e+01_rb,0.21244e+01_rb,0.26233e+01_rb,0.27544e+01_rb,0.22110e+01_rb /)
+      kbo(:, 5,28,13) = (/ &
+        & 0.13516e+01_rb,0.22292e+01_rb,0.27078e+01_rb,0.28106e+01_rb,0.22794e+01_rb /)
+      kbo(:, 1,29,13) = (/ &
+        & 0.83075e+00_rb,0.18160e+01_rb,0.23425e+01_rb,0.25401e+01_rb,0.19712e+01_rb /)
+      kbo(:, 2,29,13) = (/ &
+        & 0.95513e+00_rb,0.19278e+01_rb,0.24494e+01_rb,0.26294e+01_rb,0.20669e+01_rb /)
+      kbo(:, 3,29,13) = (/ &
+        & 0.10900e+01_rb,0.20358e+01_rb,0.25478e+01_rb,0.27053e+01_rb,0.21513e+01_rb /)
+      kbo(:, 4,29,13) = (/ &
+        & 0.12315e+01_rb,0.21431e+01_rb,0.26391e+01_rb,0.27692e+01_rb,0.22259e+01_rb /)
+      kbo(:, 5,29,13) = (/ &
+        & 0.13745e+01_rb,0.22488e+01_rb,0.27235e+01_rb,0.28240e+01_rb,0.22934e+01_rb /)
+      kbo(:, 1,30,13) = (/ &
+        & 0.84416e+00_rb,0.18336e+01_rb,0.23624e+01_rb,0.25609e+01_rb,0.19916e+01_rb /)
+      kbo(:, 2,30,13) = (/ &
+        & 0.97368e+00_rb,0.19464e+01_rb,0.24682e+01_rb,0.26481e+01_rb,0.20854e+01_rb /)
+      kbo(:, 3,30,13) = (/ &
+        & 0.11126e+01_rb,0.20559e+01_rb,0.25658e+01_rb,0.27219e+01_rb,0.21680e+01_rb /)
+      kbo(:, 4,30,13) = (/ &
+        & 0.12564e+01_rb,0.21643e+01_rb,0.26566e+01_rb,0.27840e+01_rb,0.22414e+01_rb /)
+      kbo(:, 5,30,13) = (/ &
+        & 0.14008e+01_rb,0.22700e+01_rb,0.27405e+01_rb,0.28371e+01_rb,0.23076e+01_rb /)
+      kbo(:, 1,31,13) = (/ &
+        & 0.86384e+00_rb,0.18548e+01_rb,0.23844e+01_rb,0.25824e+01_rb,0.20133e+01_rb /)
+      kbo(:, 2,31,13) = (/ &
+        & 0.99753e+00_rb,0.19681e+01_rb,0.24888e+01_rb,0.26671e+01_rb,0.21046e+01_rb /)
+      kbo(:, 3,31,13) = (/ &
+        & 0.11394e+01_rb,0.20787e+01_rb,0.25856e+01_rb,0.27387e+01_rb,0.21855e+01_rb /)
+      kbo(:, 4,31,13) = (/ &
+        & 0.12850e+01_rb,0.21876e+01_rb,0.26758e+01_rb,0.27988e+01_rb,0.22577e+01_rb /)
+      kbo(:, 5,31,13) = (/ &
+        & 0.14304e+01_rb,0.22931e+01_rb,0.27584e+01_rb,0.28498e+01_rb,0.23225e+01_rb /)
+      kbo(:, 1,32,13) = (/ &
+        & 0.88808e+00_rb,0.18788e+01_rb,0.24078e+01_rb,0.26044e+01_rb,0.20359e+01_rb /)
+      kbo(:, 2,32,13) = (/ &
+        & 0.10254e+01_rb,0.19921e+01_rb,0.25106e+01_rb,0.26862e+01_rb,0.21246e+01_rb /)
+      kbo(:, 3,32,13) = (/ &
+        & 0.11696e+01_rb,0.21031e+01_rb,0.26064e+01_rb,0.27554e+01_rb,0.22034e+01_rb /)
+      kbo(:, 4,32,13) = (/ &
+        & 0.13164e+01_rb,0.22122e+01_rb,0.26955e+01_rb,0.28135e+01_rb,0.22742e+01_rb /)
+      kbo(:, 5,32,13) = (/ &
+        & 0.14621e+01_rb,0.23175e+01_rb,0.27772e+01_rb,0.28624e+01_rb,0.23376e+01_rb /)
+      kbo(:, 1,33,13) = (/ &
+        & 0.91576e+00_rb,0.19044e+01_rb,0.24318e+01_rb,0.26262e+01_rb,0.20585e+01_rb /)
+      kbo(:, 2,33,13) = (/ &
+        & 0.10563e+01_rb,0.20178e+01_rb,0.25332e+01_rb,0.27053e+01_rb,0.21448e+01_rb /)
+      kbo(:, 3,33,13) = (/ &
+        & 0.12022e+01_rb,0.21286e+01_rb,0.26280e+01_rb,0.27719e+01_rb,0.22216e+01_rb /)
+      kbo(:, 4,33,13) = (/ &
+        & 0.13498e+01_rb,0.22379e+01_rb,0.27158e+01_rb,0.28276e+01_rb,0.22909e+01_rb /)
+      kbo(:, 5,33,13) = (/ &
+        & 0.14952e+01_rb,0.23427e+01_rb,0.27963e+01_rb,0.28748e+01_rb,0.23524e+01_rb /)
+      kbo(:, 1,34,13) = (/ &
+        & 0.94113e+00_rb,0.19270e+01_rb,0.24527e+01_rb,0.26448e+01_rb,0.20775e+01_rb /)
+      kbo(:, 2,34,13) = (/ &
+        & 0.10840e+01_rb,0.20405e+01_rb,0.25528e+01_rb,0.27213e+01_rb,0.21619e+01_rb /)
+      kbo(:, 3,34,13) = (/ &
+        & 0.12311e+01_rb,0.21512e+01_rb,0.26466e+01_rb,0.27855e+01_rb,0.22370e+01_rb /)
+      kbo(:, 4,34,13) = (/ &
+        & 0.13793e+01_rb,0.22602e+01_rb,0.27333e+01_rb,0.28395e+01_rb,0.23050e+01_rb /)
+      kbo(:, 5,34,13) = (/ &
+        & 0.15242e+01_rb,0.23644e+01_rb,0.28128e+01_rb,0.28850e+01_rb,0.23650e+01_rb /)
+      kbo(:, 1,35,13) = (/ &
+        & 0.95467e+00_rb,0.19391e+01_rb,0.24637e+01_rb,0.26549e+01_rb,0.20879e+01_rb /)
+      kbo(:, 2,35,13) = (/ &
+        & 0.10989e+01_rb,0.20529e+01_rb,0.25635e+01_rb,0.27301e+01_rb,0.21712e+01_rb /)
+      kbo(:, 3,35,13) = (/ &
+        & 0.12468e+01_rb,0.21638e+01_rb,0.26569e+01_rb,0.27931e+01_rb,0.22456e+01_rb /)
+      kbo(:, 4,35,13) = (/ &
+        & 0.13953e+01_rb,0.22726e+01_rb,0.27430e+01_rb,0.28463e+01_rb,0.23128e+01_rb /)
+      kbo(:, 5,35,13) = (/ &
+        & 0.15401e+01_rb,0.23764e+01_rb,0.28219e+01_rb,0.28908e+01_rb,0.23721e+01_rb /)
+      kbo(:, 1,36,13) = (/ &
+        & 0.95401e+00_rb,0.19393e+01_rb,0.24641e+01_rb,0.26563e+01_rb,0.20890e+01_rb /)
+      kbo(:, 2,36,13) = (/ &
+        & 0.10986e+01_rb,0.20534e+01_rb,0.25640e+01_rb,0.27314e+01_rb,0.21722e+01_rb /)
+      kbo(:, 3,36,13) = (/ &
+        & 0.12470e+01_rb,0.21646e+01_rb,0.26577e+01_rb,0.27946e+01_rb,0.22466e+01_rb /)
+      kbo(:, 4,36,13) = (/ &
+        & 0.13959e+01_rb,0.22738e+01_rb,0.27440e+01_rb,0.28477e+01_rb,0.23138e+01_rb /)
+      kbo(:, 5,36,13) = (/ &
+        & 0.15410e+01_rb,0.23778e+01_rb,0.28230e+01_rb,0.28922e+01_rb,0.23732e+01_rb /)
+      kbo(:, 1,37,13) = (/ &
+        & 0.93269e+00_rb,0.19221e+01_rb,0.24490e+01_rb,0.26452e+01_rb,0.20765e+01_rb /)
+      kbo(:, 2,37,13) = (/ &
+        & 0.10767e+01_rb,0.20372e+01_rb,0.25499e+01_rb,0.27223e+01_rb,0.21614e+01_rb /)
+      kbo(:, 3,37,13) = (/ &
+        & 0.12250e+01_rb,0.21490e+01_rb,0.26449e+01_rb,0.27873e+01_rb,0.22369e+01_rb /)
+      kbo(:, 4,37,13) = (/ &
+        & 0.13744e+01_rb,0.22588e+01_rb,0.27324e+01_rb,0.28416e+01_rb,0.23053e+01_rb /)
+      kbo(:, 5,37,13) = (/ &
+        & 0.15205e+01_rb,0.23639e+01_rb,0.28124e+01_rb,0.28871e+01_rb,0.23656e+01_rb /)
+      kbo(:, 1,38,13) = (/ &
+        & 0.91080e+00_rb,0.19040e+01_rb,0.24332e+01_rb,0.26332e+01_rb,0.20631e+01_rb /)
+      kbo(:, 2,38,13) = (/ &
+        & 0.10540e+01_rb,0.20201e+01_rb,0.25351e+01_rb,0.27123e+01_rb,0.21497e+01_rb /)
+      kbo(:, 3,38,13) = (/ &
+        & 0.12022e+01_rb,0.21326e+01_rb,0.26310e+01_rb,0.27790e+01_rb,0.22264e+01_rb /)
+      kbo(:, 4,38,13) = (/ &
+        & 0.13520e+01_rb,0.22432e+01_rb,0.27202e+01_rb,0.28347e+01_rb,0.22959e+01_rb /)
+      kbo(:, 5,38,13) = (/ &
+        & 0.14989e+01_rb,0.23490e+01_rb,0.28012e+01_rb,0.28815e+01_rb,0.23575e+01_rb /)
+      kbo(:, 1,39,13) = (/ &
+        & 0.88956e+00_rb,0.18861e+01_rb,0.24173e+01_rb,0.26207e+01_rb,0.20495e+01_rb /)
+      kbo(:, 2,39,13) = (/ &
+        & 0.10319e+01_rb,0.20032e+01_rb,0.25205e+01_rb,0.27021e+01_rb,0.21379e+01_rb /)
+      kbo(:, 3,39,13) = (/ &
+        & 0.11798e+01_rb,0.21163e+01_rb,0.26173e+01_rb,0.27704e+01_rb,0.22159e+01_rb /)
+      kbo(:, 4,39,13) = (/ &
+        & 0.13298e+01_rb,0.22272e+01_rb,0.27078e+01_rb,0.28277e+01_rb,0.22865e+01_rb /)
+      kbo(:, 5,39,13) = (/ &
+        & 0.14775e+01_rb,0.23341e+01_rb,0.27901e+01_rb,0.28757e+01_rb,0.23493e+01_rb /)
+      kbo(:, 1,40,13) = (/ &
+        & 0.85494e+00_rb,0.18558e+01_rb,0.23904e+01_rb,0.25985e+01_rb,0.20255e+01_rb /)
+      kbo(:, 2,40,13) = (/ &
+        & 0.99514e+00_rb,0.19745e+01_rb,0.24954e+01_rb,0.26836e+01_rb,0.21170e+01_rb /)
+      kbo(:, 3,40,13) = (/ &
+        & 0.11424e+01_rb,0.20885e+01_rb,0.25938e+01_rb,0.27547e+01_rb,0.21975e+01_rb /)
+      kbo(:, 4,40,13) = (/ &
+        & 0.12924e+01_rb,0.22001e+01_rb,0.26861e+01_rb,0.28148e+01_rb,0.22700e+01_rb /)
+      kbo(:, 5,40,13) = (/ &
+        & 0.14413e+01_rb,0.23083e+01_rb,0.27705e+01_rb,0.28664e+01_rb,0.23349e+01_rb /)
+      kbo(:, 1,41,13) = (/ &
+        & 0.81957e+00_rb,0.18237e+01_rb,0.23613e+01_rb,0.25741e+01_rb,0.19997e+01_rb /)
+      kbo(:, 2,41,13) = (/ &
+        & 0.95728e+00_rb,0.19441e+01_rb,0.24688e+01_rb,0.26632e+01_rb,0.20945e+01_rb /)
+      kbo(:, 3,41,13) = (/ &
+        & 0.11034e+01_rb,0.20591e+01_rb,0.25687e+01_rb,0.27378e+01_rb,0.21777e+01_rb /)
+      kbo(:, 4,41,13) = (/ &
+        & 0.12530e+01_rb,0.21714e+01_rb,0.26630e+01_rb,0.28005e+01_rb,0.22519e+01_rb /)
+      kbo(:, 5,41,13) = (/ &
+        & 0.14027e+01_rb,0.22807e+01_rb,0.27494e+01_rb,0.28533e+01_rb,0.23190e+01_rb /)
+      kbo(:, 1,42,13) = (/ &
+        & 0.78503e+00_rb,0.17918e+01_rb,0.23317e+01_rb,0.25487e+01_rb,0.19734e+01_rb /)
+      kbo(:, 2,42,13) = (/ &
+        & 0.92016e+00_rb,0.19132e+01_rb,0.24418e+01_rb,0.26418e+01_rb,0.20712e+01_rb /)
+      kbo(:, 3,42,13) = (/ &
+        & 0.10646e+01_rb,0.20294e+01_rb,0.25432e+01_rb,0.27200e+01_rb,0.21575e+01_rb /)
+      kbo(:, 4,42,13) = (/ &
+        & 0.12137e+01_rb,0.21426e+01_rb,0.26392e+01_rb,0.27859e+01_rb,0.22336e+01_rb /)
+      kbo(:, 5,42,13) = (/ &
+        & 0.13639e+01_rb,0.22528e+01_rb,0.27279e+01_rb,0.28411e+01_rb,0.23026e+01_rb /)
+      kbo(:, 1,43,13) = (/ &
+        & 0.74423e+00_rb,0.17527e+01_rb,0.22949e+01_rb,0.25159e+01_rb,0.19403e+01_rb /)
+      kbo(:, 2,43,13) = (/ &
+        & 0.87589e+00_rb,0.18750e+01_rb,0.24080e+01_rb,0.26143e+01_rb,0.20417e+01_rb /)
+      kbo(:, 3,43,13) = (/ &
+        & 0.10179e+01_rb,0.19932e+01_rb,0.25118e+01_rb,0.26972e+01_rb,0.21315e+01_rb /)
+      kbo(:, 4,43,13) = (/ &
+        & 0.11661e+01_rb,0.21073e+01_rb,0.26096e+01_rb,0.27665e+01_rb,0.22105e+01_rb /)
+      kbo(:, 5,43,13) = (/ &
+        & 0.13165e+01_rb,0.22185e+01_rb,0.27008e+01_rb,0.28247e+01_rb,0.22817e+01_rb /)
+      kbo(:, 1,44,13) = (/ &
+        & 0.70183e+00_rb,0.17101e+01_rb,0.22539e+01_rb,0.24783e+01_rb,0.19029e+01_rb /)
+      kbo(:, 2,44,13) = (/ &
+        & 0.82940e+00_rb,0.18334e+01_rb,0.23707e+01_rb,0.25829e+01_rb,0.20083e+01_rb /)
+      kbo(:, 3,44,13) = (/ &
+        & 0.96829e+00_rb,0.19537e+01_rb,0.24774e+01_rb,0.26707e+01_rb,0.21022e+01_rb /)
+      kbo(:, 4,44,13) = (/ &
+        & 0.11151e+01_rb,0.20687e+01_rb,0.25770e+01_rb,0.27443e+01_rb,0.21846e+01_rb /)
+      kbo(:, 5,44,13) = (/ &
+        & 0.12651e+01_rb,0.21808e+01_rb,0.26707e+01_rb,0.28061e+01_rb,0.22584e+01_rb /)
+      kbo(:, 1,45,13) = (/ &
+        & 0.66118e+00_rb,0.16676e+01_rb,0.22119e+01_rb,0.24384e+01_rb,0.18634e+01_rb /)
+      kbo(:, 2,45,13) = (/ &
+        & 0.78445e+00_rb,0.17917e+01_rb,0.23321e+01_rb,0.25495e+01_rb,0.19739e+01_rb /)
+      kbo(:, 3,45,13) = (/ &
+        & 0.91984e+00_rb,0.19133e+01_rb,0.24421e+01_rb,0.26427e+01_rb,0.20718e+01_rb /)
+      kbo(:, 4,45,13) = (/ &
+        & 0.10646e+01_rb,0.20301e+01_rb,0.25439e+01_rb,0.27211e+01_rb,0.21582e+01_rb /)
+      kbo(:, 5,45,13) = (/ &
+        & 0.12138e+01_rb,0.21430e+01_rb,0.26395e+01_rb,0.27867e+01_rb,0.22343e+01_rb /)
+      kbo(:, 1,46,13) = (/ &
+        & 0.61933e+00_rb,0.16221e+01_rb,0.21659e+01_rb,0.23935e+01_rb,0.18196e+01_rb /)
+      kbo(:, 2,46,13) = (/ &
+        & 0.73807e+00_rb,0.17470e+01_rb,0.22898e+01_rb,0.25118e+01_rb,0.19358e+01_rb /)
+      kbo(:, 3,46,13) = (/ &
+        & 0.86934e+00_rb,0.18696e+01_rb,0.24034e+01_rb,0.26109e+01_rb,0.20379e+01_rb /)
+      kbo(:, 4,46,13) = (/ &
+        & 0.10113e+01_rb,0.19884e+01_rb,0.25076e+01_rb,0.26946e+01_rb,0.21283e+01_rb /)
+      kbo(:, 5,46,13) = (/ &
+        & 0.11593e+01_rb,0.21025e+01_rb,0.26055e+01_rb,0.27643e+01_rb,0.22076e+01_rb /)
+      kbo(:, 1,47,13) = (/ &
+        & 0.57374e+00_rb,0.15709e+01_rb,0.21131e+01_rb,0.23400e+01_rb,0.17680e+01_rb /)
+      kbo(:, 2,47,13) = (/ &
+        & 0.68838e+00_rb,0.16965e+01_rb,0.22409e+01_rb,0.24665e+01_rb,0.18907e+01_rb /)
+      kbo(:, 3,47,13) = (/ &
+        & 0.81478e+00_rb,0.18201e+01_rb,0.23589e+01_rb,0.25731e+01_rb,0.19980e+01_rb /)
+      kbo(:, 4,47,13) = (/ &
+        & 0.95278e+00_rb,0.19412e+01_rb,0.24665e+01_rb,0.26626e+01_rb,0.20931e+01_rb /)
+      kbo(:, 5,47,13) = (/ &
+        & 0.10991e+01_rb,0.20567e+01_rb,0.25667e+01_rb,0.27376e+01_rb,0.21769e+01_rb /)
+      kbo(:, 1,48,13) = (/ &
+        & 0.52946e+00_rb,0.15198e+01_rb,0.20592e+01_rb,0.22834e+01_rb,0.17136e+01_rb /)
+      kbo(:, 2,48,13) = (/ &
+        & 0.64089e+00_rb,0.16459e+01_rb,0.21904e+01_rb,0.24180e+01_rb,0.18431e+01_rb /)
+      kbo(:, 3,48,13) = (/ &
+        & 0.76211e+00_rb,0.17708e+01_rb,0.23126e+01_rb,0.25324e+01_rb,0.19565e+01_rb /)
+      kbo(:, 4,48,13) = (/ &
+        & 0.89568e+00_rb,0.18928e+01_rb,0.24241e+01_rb,0.26284e+01_rb,0.20564e+01_rb /)
+      kbo(:, 5,48,13) = (/ &
+        & 0.10393e+01_rb,0.20105e+01_rb,0.25268e+01_rb,0.27091e+01_rb,0.21445e+01_rb /)
+      kbo(:, 1,49,13) = (/ &
+        & 0.48708e+00_rb,0.14681e+01_rb,0.20029e+01_rb,0.22232e+01_rb,0.16566e+01_rb /)
+      kbo(:, 2,49,13) = (/ &
+        & 0.59510e+00_rb,0.15951e+01_rb,0.21382e+01_rb,0.23660e+01_rb,0.17928e+01_rb /)
+      kbo(:, 3,49,13) = (/ &
+        & 0.71141e+00_rb,0.17205e+01_rb,0.22646e+01_rb,0.24889e+01_rb,0.19130e+01_rb /)
+      kbo(:, 4,49,13) = (/ &
+        & 0.84034e+00_rb,0.18437e+01_rb,0.23804e+01_rb,0.25917e+01_rb,0.20174e+01_rb /)
+      kbo(:, 5,49,13) = (/ &
+        & 0.98023e+00_rb,0.19637e+01_rb,0.24863e+01_rb,0.26785e+01_rb,0.21102e+01_rb /)
+      kbo(:, 1,50,13) = (/ &
+        & 0.44946e+00_rb,0.14198e+01_rb,0.19480e+01_rb,0.21639e+01_rb,0.16005e+01_rb /)
+      kbo(:, 2,50,13) = (/ &
+        & 0.55308e+00_rb,0.15472e+01_rb,0.20885e+01_rb,0.23146e+01_rb,0.17433e+01_rb /)
+      kbo(:, 3,50,13) = (/ &
+        & 0.66640e+00_rb,0.16732e+01_rb,0.22179e+01_rb,0.24447e+01_rb,0.18693e+01_rb /)
+      kbo(:, 4,50,13) = (/ &
+        & 0.79021e+00_rb,0.17975e+01_rb,0.23380e+01_rb,0.25550e+01_rb,0.19794e+01_rb /)
+      kbo(:, 5,50,13) = (/ &
+        & 0.92626e+00_rb,0.19191e+01_rb,0.24474e+01_rb,0.26476e+01_rb,0.20768e+01_rb /)
+      kbo(:, 1,51,13) = (/ &
+        & 0.41452e+00_rb,0.13727e+01_rb,0.18922e+01_rb,0.21038e+01_rb,0.15428e+01_rb /)
+      kbo(:, 2,51,13) = (/ &
+        & 0.51362e+00_rb,0.15005e+01_rb,0.20385e+01_rb,0.22616e+01_rb,0.16930e+01_rb /)
+      kbo(:, 3,51,13) = (/ &
+        & 0.62394e+00_rb,0.16272e+01_rb,0.21714e+01_rb,0.23993e+01_rb,0.18251e+01_rb /)
+      kbo(:, 4,51,13) = (/ &
+        & 0.74304e+00_rb,0.17523e+01_rb,0.22953e+01_rb,0.25171e+01_rb,0.19410e+01_rb /)
+      kbo(:, 5,51,13) = (/ &
+        & 0.87505e+00_rb,0.18748e+01_rb,0.24082e+01_rb,0.26155e+01_rb,0.20426e+01_rb /)
+      kbo(:, 1,52,13) = (/ &
+        & 0.38121e+00_rb,0.13250e+01_rb,0.18350e+01_rb,0.20413e+01_rb,0.14822e+01_rb /)
+      kbo(:, 2,52,13) = (/ &
+        & 0.47581e+00_rb,0.14538e+01_rb,0.19870e+01_rb,0.22062e+01_rb,0.16405e+01_rb /)
+      kbo(:, 3,52,13) = (/ &
+        & 0.58258e+00_rb,0.15810e+01_rb,0.21239e+01_rb,0.23514e+01_rb,0.17789e+01_rb /)
+      kbo(:, 4,52,13) = (/ &
+        & 0.69813e+00_rb,0.17065e+01_rb,0.22509e+01_rb,0.24762e+01_rb,0.19005e+01_rb /)
+      kbo(:, 5,52,13) = (/ &
+        & 0.82543e+00_rb,0.18301e+01_rb,0.23683e+01_rb,0.25815e+01_rb,0.20067e+01_rb /)
+      kbo(:, 1,53,13) = (/ &
+        & 0.34902e+00_rb,0.12769e+01_rb,0.17751e+01_rb,0.19762e+01_rb,0.14178e+01_rb /)
+      kbo(:, 2,53,13) = (/ &
+        & 0.43953e+00_rb,0.14068e+01_rb,0.19332e+01_rb,0.21485e+01_rb,0.15854e+01_rb /)
+      kbo(:, 3,53,13) = (/ &
+        & 0.54216e+00_rb,0.15348e+01_rb,0.20756e+01_rb,0.23010e+01_rb,0.17302e+01_rb /)
+      kbo(:, 4,53,13) = (/ &
+        & 0.65469e+00_rb,0.16608e+01_rb,0.22054e+01_rb,0.24328e+01_rb,0.18578e+01_rb /)
+      kbo(:, 5,53,13) = (/ &
+        & 0.77730e+00_rb,0.17854e+01_rb,0.23267e+01_rb,0.25453e+01_rb,0.19695e+01_rb /)
+      kbo(:, 1,54,13) = (/ &
+        & 0.32058e+00_rb,0.12324e+01_rb,0.17175e+01_rb,0.19140e+01_rb,0.13553e+01_rb /)
+      kbo(:, 2,54,13) = (/ &
+        & 0.40795e+00_rb,0.13637e+01_rb,0.18819e+01_rb,0.20929e+01_rb,0.15321e+01_rb /)
+      kbo(:, 3,54,13) = (/ &
+        & 0.50645e+00_rb,0.14920e+01_rb,0.20295e+01_rb,0.22518e+01_rb,0.16837e+01_rb /)
+      kbo(:, 4,54,13) = (/ &
+        & 0.61609e+00_rb,0.16187e+01_rb,0.21628e+01_rb,0.23909e+01_rb,0.18169e+01_rb /)
+      kbo(:, 5,54,13) = (/ &
+        & 0.73448e+00_rb,0.17439e+01_rb,0.22873e+01_rb,0.25101e+01_rb,0.19340e+01_rb /)
+      kbo(:, 1,55,13) = (/ &
+        & 0.29443e+00_rb,0.11892e+01_rb,0.16600e+01_rb,0.18513e+01_rb,0.12929e+01_rb /)
+      kbo(:, 2,55,13) = (/ &
+        & 0.37883e+00_rb,0.13219e+01_rb,0.18314e+01_rb,0.20376e+01_rb,0.14784e+01_rb /)
+      kbo(:, 3,55,13) = (/ &
+        & 0.47335e+00_rb,0.14508e+01_rb,0.19839e+01_rb,0.22027e+01_rb,0.16372e+01_rb /)
+      kbo(:, 4,55,13) = (/ &
+        & 0.57989e+00_rb,0.15780e+01_rb,0.21210e+01_rb,0.23485e+01_rb,0.17761e+01_rb /)
+      kbo(:, 5,55,13) = (/ &
+        & 0.69533e+00_rb,0.17037e+01_rb,0.22482e+01_rb,0.24738e+01_rb,0.18980e+01_rb /)
+      kbo(:, 1,56,13) = (/ &
+        & 0.26936e+00_rb,0.11459e+01_rb,0.16007e+01_rb,0.17863e+01_rb,0.12289e+01_rb /)
+      kbo(:, 2,56,13) = (/ &
+        & 0.35065e+00_rb,0.12797e+01_rb,0.17789e+01_rb,0.19807e+01_rb,0.14221e+01_rb /)
+      kbo(:, 3,56,13) = (/ &
+        & 0.44158e+00_rb,0.14097e+01_rb,0.19368e+01_rb,0.21523e+01_rb,0.15891e+01_rb /)
+      kbo(:, 4,56,13) = (/ &
+        & 0.54448e+00_rb,0.15375e+01_rb,0.20786e+01_rb,0.23043e+01_rb,0.17334e+01_rb /)
+      kbo(:, 5,56,13) = (/ &
+        & 0.65732e+00_rb,0.16637e+01_rb,0.22084e+01_rb,0.24358e+01_rb,0.18606e+01_rb /)
+      kbo(:, 1,57,13) = (/ &
+        & 0.24515e+00_rb,0.11022e+01_rb,0.15388e+01_rb,0.17186e+01_rb,0.11645e+01_rb /)
+      kbo(:, 2,57,13) = (/ &
+        & 0.32341e+00_rb,0.12372e+01_rb,0.17241e+01_rb,0.19215e+01_rb,0.13626e+01_rb /)
+      kbo(:, 3,57,13) = (/ &
+        & 0.41131e+00_rb,0.13686e+01_rb,0.18879e+01_rb,0.20994e+01_rb,0.15383e+01_rb /)
+      kbo(:, 4,57,13) = (/ &
+        & 0.51026e+00_rb,0.14967e+01_rb,0.20347e+01_rb,0.22575e+01_rb,0.16892e+01_rb /)
+      kbo(:, 5,57,13) = (/ &
+        & 0.62036e+00_rb,0.16234e+01_rb,0.21677e+01_rb,0.23959e+01_rb,0.18217e+01_rb /)
+      kbo(:, 1,58,13) = (/ &
+        & 0.22298e+00_rb,0.10601e+01_rb,0.14788e+01_rb,0.16521e+01_rb,0.11024e+01_rb /)
+      kbo(:, 2,58,13) = (/ &
+        & 0.29857e+00_rb,0.11965e+01_rb,0.16700e+01_rb,0.18625e+01_rb,0.13039e+01_rb /)
+      kbo(:, 3,58,13) = (/ &
+        & 0.38366e+00_rb,0.13291e+01_rb,0.18404e+01_rb,0.20474e+01_rb,0.14880e+01_rb /)
+      kbo(:, 4,58,13) = (/ &
+        & 0.47882e+00_rb,0.14579e+01_rb,0.19918e+01_rb,0.22114e+01_rb,0.16455e+01_rb /)
+      kbo(:, 5,58,13) = (/ &
+        & 0.58601e+00_rb,0.15850e+01_rb,0.21282e+01_rb,0.23561e+01_rb,0.17833e+01_rb /)
+      kbo(:, 1,59,13) = (/ &
+        & 0.21427e+00_rb,0.10429e+01_rb,0.14544e+01_rb,0.16247e+01_rb,0.10771e+01_rb /)
+      kbo(:, 2,59,13) = (/ &
+        & 0.28885e+00_rb,0.11801e+01_rb,0.16480e+01_rb,0.18384e+01_rb,0.12798e+01_rb /)
+      kbo(:, 3,59,13) = (/ &
+        & 0.37281e+00_rb,0.13132e+01_rb,0.18209e+01_rb,0.20260e+01_rb,0.14670e+01_rb /)
+      kbo(:, 4,59,13) = (/ &
+        & 0.46652e+00_rb,0.14422e+01_rb,0.19743e+01_rb,0.21926e+01_rb,0.16276e+01_rb /)
+      kbo(:, 5,59,13) = (/ &
+        & 0.57246e+00_rb,0.15697e+01_rb,0.21123e+01_rb,0.23397e+01_rb,0.17674e+01_rb /)
+      kbo(:, 1,13,14) = (/ &
+        & 0.76467e+01_rb,0.66870e+01_rb,0.63502e+01_rb,0.61468e+01_rb,0.66906e+01_rb /)
+      kbo(:, 2,13,14) = (/ &
+        & 0.76514e+01_rb,0.66716e+01_rb,0.63627e+01_rb,0.61942e+01_rb,0.67780e+01_rb /)
+      kbo(:, 3,13,14) = (/ &
+        & 0.76475e+01_rb,0.66428e+01_rb,0.63628e+01_rb,0.62371e+01_rb,0.68460e+01_rb /)
+      kbo(:, 4,13,14) = (/ &
+        & 0.76415e+01_rb,0.66083e+01_rb,0.63514e+01_rb,0.62630e+01_rb,0.69072e+01_rb /)
+      kbo(:, 5,13,14) = (/ &
+        & 0.76283e+01_rb,0.65686e+01_rb,0.63330e+01_rb,0.62779e+01_rb,0.69614e+01_rb /)
+      kbo(:, 1,14,14) = (/ &
+        & 0.77958e+01_rb,0.69779e+01_rb,0.66658e+01_rb,0.63591e+01_rb,0.67479e+01_rb /)
+      kbo(:, 2,14,14) = (/ &
+        & 0.78014e+01_rb,0.69599e+01_rb,0.66792e+01_rb,0.64167e+01_rb,0.68357e+01_rb /)
+      kbo(:, 3,14,14) = (/ &
+        & 0.78100e+01_rb,0.69314e+01_rb,0.66809e+01_rb,0.64627e+01_rb,0.69109e+01_rb /)
+      kbo(:, 4,14,14) = (/ &
+        & 0.78098e+01_rb,0.68950e+01_rb,0.66685e+01_rb,0.64923e+01_rb,0.69838e+01_rb /)
+      kbo(:, 5,14,14) = (/ &
+        & 0.77999e+01_rb,0.68585e+01_rb,0.66494e+01_rb,0.65137e+01_rb,0.70531e+01_rb /)
+      kbo(:, 1,15,14) = (/ &
+        & 0.78397e+01_rb,0.72065e+01_rb,0.69626e+01_rb,0.65521e+01_rb,0.67717e+01_rb /)
+      kbo(:, 2,15,14) = (/ &
+        & 0.78630e+01_rb,0.71900e+01_rb,0.69770e+01_rb,0.66166e+01_rb,0.68639e+01_rb /)
+      kbo(:, 3,15,14) = (/ &
+        & 0.78829e+01_rb,0.71661e+01_rb,0.69761e+01_rb,0.66643e+01_rb,0.69508e+01_rb /)
+      kbo(:, 4,15,14) = (/ &
+        & 0.78961e+01_rb,0.71374e+01_rb,0.69668e+01_rb,0.66987e+01_rb,0.70374e+01_rb /)
+      kbo(:, 5,15,14) = (/ &
+        & 0.78984e+01_rb,0.71026e+01_rb,0.69440e+01_rb,0.67207e+01_rb,0.71207e+01_rb /)
+      kbo(:, 1,16,14) = (/ &
+        & 0.77976e+01_rb,0.73768e+01_rb,0.72331e+01_rb,0.67309e+01_rb,0.67735e+01_rb /)
+      kbo(:, 2,16,14) = (/ &
+        & 0.78456e+01_rb,0.73704e+01_rb,0.72485e+01_rb,0.67988e+01_rb,0.68801e+01_rb /)
+      kbo(:, 3,16,14) = (/ &
+        & 0.78840e+01_rb,0.73590e+01_rb,0.72505e+01_rb,0.68482e+01_rb,0.69801e+01_rb /)
+      kbo(:, 4,16,14) = (/ &
+        & 0.79146e+01_rb,0.73379e+01_rb,0.72385e+01_rb,0.68847e+01_rb,0.70795e+01_rb /)
+      kbo(:, 5,16,14) = (/ &
+        & 0.79322e+01_rb,0.73060e+01_rb,0.72179e+01_rb,0.69099e+01_rb,0.71779e+01_rb /)
+      kbo(:, 1,17,14) = (/ &
+        & 0.76851e+01_rb,0.74978e+01_rb,0.74681e+01_rb,0.68923e+01_rb,0.67646e+01_rb /)
+      kbo(:, 2,17,14) = (/ &
+        & 0.77622e+01_rb,0.75112e+01_rb,0.74909e+01_rb,0.69618e+01_rb,0.68880e+01_rb /)
+      kbo(:, 3,17,14) = (/ &
+        & 0.78293e+01_rb,0.75089e+01_rb,0.74964e+01_rb,0.70134e+01_rb,0.70063e+01_rb /)
+      kbo(:, 4,17,14) = (/ &
+        & 0.78832e+01_rb,0.75014e+01_rb,0.74883e+01_rb,0.70540e+01_rb,0.71204e+01_rb /)
+      kbo(:, 5,17,14) = (/ &
+        & 0.79237e+01_rb,0.74752e+01_rb,0.74629e+01_rb,0.70833e+01_rb,0.72311e+01_rb /)
+      kbo(:, 1,18,14) = (/ &
+        & 0.75343e+01_rb,0.75844e+01_rb,0.76679e+01_rb,0.70369e+01_rb,0.67530e+01_rb /)
+      kbo(:, 2,18,14) = (/ &
+        & 0.76372e+01_rb,0.76127e+01_rb,0.76999e+01_rb,0.71100e+01_rb,0.68939e+01_rb /)
+      kbo(:, 3,18,14) = (/ &
+        & 0.77344e+01_rb,0.76293e+01_rb,0.77123e+01_rb,0.71649e+01_rb,0.70305e+01_rb /)
+      kbo(:, 4,18,14) = (/ &
+        & 0.78168e+01_rb,0.76302e+01_rb,0.77077e+01_rb,0.72057e+01_rb,0.71594e+01_rb /)
+      kbo(:, 5,18,14) = (/ &
+        & 0.78848e+01_rb,0.76120e+01_rb,0.76799e+01_rb,0.72369e+01_rb,0.72819e+01_rb /)
+      kbo(:, 1,19,14) = (/ &
+        & 0.73642e+01_rb,0.76427e+01_rb,0.78392e+01_rb,0.71673e+01_rb,0.67426e+01_rb /)
+      kbo(:, 2,19,14) = (/ &
+        & 0.75027e+01_rb,0.76890e+01_rb,0.78792e+01_rb,0.72411e+01_rb,0.69029e+01_rb /)
+      kbo(:, 3,19,14) = (/ &
+        & 0.76261e+01_rb,0.77218e+01_rb,0.78995e+01_rb,0.72995e+01_rb,0.70551e+01_rb /)
+      kbo(:, 4,19,14) = (/ &
+        & 0.77358e+01_rb,0.77317e+01_rb,0.78972e+01_rb,0.73431e+01_rb,0.71976e+01_rb /)
+      kbo(:, 5,19,14) = (/ &
+        & 0.78306e+01_rb,0.77206e+01_rb,0.78669e+01_rb,0.73734e+01_rb,0.73288e+01_rb /)
+      kbo(:, 1,20,14) = (/ &
+        & 0.71989e+01_rb,0.76856e+01_rb,0.79830e+01_rb,0.72835e+01_rb,0.67408e+01_rb /)
+      kbo(:, 2,20,14) = (/ &
+        & 0.73691e+01_rb,0.77492e+01_rb,0.80344e+01_rb,0.73623e+01_rb,0.69200e+01_rb /)
+      kbo(:, 3,20,14) = (/ &
+        & 0.75204e+01_rb,0.77952e+01_rb,0.80604e+01_rb,0.74206e+01_rb,0.70842e+01_rb /)
+      kbo(:, 4,20,14) = (/ &
+        & 0.76560e+01_rb,0.78150e+01_rb,0.80567e+01_rb,0.74651e+01_rb,0.72381e+01_rb /)
+      kbo(:, 5,20,14) = (/ &
+        & 0.77736e+01_rb,0.78108e+01_rb,0.80255e+01_rb,0.74944e+01_rb,0.73772e+01_rb /)
+      kbo(:, 1,21,14) = (/ &
+        & 0.70426e+01_rb,0.77166e+01_rb,0.81049e+01_rb,0.73883e+01_rb,0.67480e+01_rb /)
+      kbo(:, 2,21,14) = (/ &
+        & 0.72474e+01_rb,0.77946e+01_rb,0.81668e+01_rb,0.74708e+01_rb,0.69410e+01_rb /)
+      kbo(:, 3,21,14) = (/ &
+        & 0.74271e+01_rb,0.78518e+01_rb,0.81976e+01_rb,0.75283e+01_rb,0.71153e+01_rb /)
+      kbo(:, 4,21,14) = (/ &
+        & 0.75881e+01_rb,0.78806e+01_rb,0.81926e+01_rb,0.75722e+01_rb,0.72765e+01_rb /)
+      kbo(:, 5,21,14) = (/ &
+        & 0.77244e+01_rb,0.78840e+01_rb,0.81605e+01_rb,0.76005e+01_rb,0.74219e+01_rb /)
+      kbo(:, 1,22,14) = (/ &
+        & 0.69208e+01_rb,0.77467e+01_rb,0.82134e+01_rb,0.74892e+01_rb,0.67760e+01_rb /)
+      kbo(:, 2,22,14) = (/ &
+        & 0.71527e+01_rb,0.78380e+01_rb,0.82825e+01_rb,0.75703e+01_rb,0.69788e+01_rb /)
+      kbo(:, 3,22,14) = (/ &
+        & 0.73591e+01_rb,0.79026e+01_rb,0.83138e+01_rb,0.76265e+01_rb,0.71614e+01_rb /)
+      kbo(:, 4,22,14) = (/ &
+        & 0.75412e+01_rb,0.79369e+01_rb,0.83052e+01_rb,0.76676e+01_rb,0.73269e+01_rb /)
+      kbo(:, 5,22,14) = (/ &
+        & 0.76931e+01_rb,0.79423e+01_rb,0.82705e+01_rb,0.76932e+01_rb,0.74734e+01_rb /)
+      kbo(:, 1,23,14) = (/ &
+        & 0.68264e+01_rb,0.77768e+01_rb,0.83085e+01_rb,0.75813e+01_rb,0.68129e+01_rb /)
+      kbo(:, 2,23,14) = (/ &
+        & 0.70814e+01_rb,0.78791e+01_rb,0.83807e+01_rb,0.76573e+01_rb,0.70223e+01_rb /)
+      kbo(:, 3,23,14) = (/ &
+        & 0.73108e+01_rb,0.79473e+01_rb,0.84103e+01_rb,0.77115e+01_rb,0.72087e+01_rb /)
+      kbo(:, 4,23,14) = (/ &
+        & 0.75083e+01_rb,0.79850e+01_rb,0.83989e+01_rb,0.77500e+01_rb,0.73762e+01_rb /)
+      kbo(:, 5,23,14) = (/ &
+        & 0.76738e+01_rb,0.79912e+01_rb,0.83608e+01_rb,0.77715e+01_rb,0.75218e+01_rb /)
+      kbo(:, 1,24,14) = (/ &
+        & 0.67597e+01_rb,0.78092e+01_rb,0.83929e+01_rb,0.76639e+01_rb,0.68571e+01_rb /)
+      kbo(:, 2,24,14) = (/ &
+        & 0.70359e+01_rb,0.79159e+01_rb,0.84653e+01_rb,0.77347e+01_rb,0.70700e+01_rb /)
+      kbo(:, 3,24,14) = (/ &
+        & 0.72818e+01_rb,0.79869e+01_rb,0.84905e+01_rb,0.77860e+01_rb,0.72578e+01_rb /)
+      kbo(:, 4,24,14) = (/ &
+        & 0.74908e+01_rb,0.80269e+01_rb,0.84765e+01_rb,0.78202e+01_rb,0.74248e+01_rb /)
+      kbo(:, 5,24,14) = (/ &
+        & 0.76673e+01_rb,0.80324e+01_rb,0.84337e+01_rb,0.78375e+01_rb,0.75690e+01_rb /)
+      kbo(:, 1,25,14) = (/ &
+        & 0.67209e+01_rb,0.78436e+01_rb,0.84676e+01_rb,0.77356e+01_rb,0.69066e+01_rb /)
+      kbo(:, 2,25,14) = (/ &
+        & 0.70147e+01_rb,0.79506e+01_rb,0.85366e+01_rb,0.78027e+01_rb,0.71216e+01_rb /)
+      kbo(:, 3,25,14) = (/ &
+        & 0.72710e+01_rb,0.80222e+01_rb,0.85567e+01_rb,0.78495e+01_rb,0.73079e+01_rb /)
+      kbo(:, 4,25,14) = (/ &
+        & 0.74891e+01_rb,0.80627e+01_rb,0.85388e+01_rb,0.78803e+01_rb,0.74736e+01_rb /)
+      kbo(:, 5,25,14) = (/ &
+        & 0.76763e+01_rb,0.80663e+01_rb,0.84908e+01_rb,0.78920e+01_rb,0.76152e+01_rb /)
+      kbo(:, 1,26,14) = (/ &
+        & 0.67117e+01_rb,0.78809e+01_rb,0.85346e+01_rb,0.77996e+01_rb,0.69621e+01_rb /)
+      kbo(:, 2,26,14) = (/ &
+        & 0.70163e+01_rb,0.79848e+01_rb,0.85977e+01_rb,0.78624e+01_rb,0.71766e+01_rb /)
+      kbo(:, 3,26,14) = (/ &
+        & 0.72800e+01_rb,0.80555e+01_rb,0.86111e+01_rb,0.79043e+01_rb,0.73612e+01_rb /)
+      kbo(:, 4,26,14) = (/ &
+        & 0.75048e+01_rb,0.80927e+01_rb,0.85874e+01_rb,0.79312e+01_rb,0.75235e+01_rb /)
+      kbo(:, 5,26,14) = (/ &
+        & 0.76969e+01_rb,0.80929e+01_rb,0.85318e+01_rb,0.79367e+01_rb,0.76615e+01_rb /)
+      kbo(:, 1,27,14) = (/ &
+        & 0.67222e+01_rb,0.79165e+01_rb,0.85935e+01_rb,0.78553e+01_rb,0.70208e+01_rb /)
+      kbo(:, 2,27,14) = (/ &
+        & 0.70339e+01_rb,0.80174e+01_rb,0.86486e+01_rb,0.79134e+01_rb,0.72318e+01_rb /)
+      kbo(:, 3,27,14) = (/ &
+        & 0.73021e+01_rb,0.80859e+01_rb,0.86549e+01_rb,0.79502e+01_rb,0.74127e+01_rb /)
+      kbo(:, 4,27,14) = (/ &
+        & 0.75298e+01_rb,0.81175e+01_rb,0.86239e+01_rb,0.79721e+01_rb,0.75702e+01_rb /)
+      kbo(:, 5,27,14) = (/ &
+        & 0.77246e+01_rb,0.81143e+01_rb,0.85613e+01_rb,0.79734e+01_rb,0.77047e+01_rb /)
+      kbo(:, 1,28,14) = (/ &
+        & 0.67490e+01_rb,0.79508e+01_rb,0.86448e+01_rb,0.79039e+01_rb,0.70793e+01_rb /)
+      kbo(:, 2,28,14) = (/ &
+        & 0.70641e+01_rb,0.80481e+01_rb,0.86903e+01_rb,0.79567e+01_rb,0.72853e+01_rb /)
+      kbo(:, 3,28,14) = (/ &
+        & 0.73339e+01_rb,0.81119e+01_rb,0.86890e+01_rb,0.79886e+01_rb,0.74622e+01_rb /)
+      kbo(:, 4,28,14) = (/ &
+        & 0.75625e+01_rb,0.81383e+01_rb,0.86502e+01_rb,0.80049e+01_rb,0.76145e+01_rb /)
+      kbo(:, 5,28,14) = (/ &
+        & 0.77567e+01_rb,0.81304e+01_rb,0.85806e+01_rb,0.80023e+01_rb,0.77455e+01_rb /)
+      kbo(:, 1,29,14) = (/ &
+        & 0.67914e+01_rb,0.79845e+01_rb,0.86886e+01_rb,0.79462e+01_rb,0.71386e+01_rb /)
+      kbo(:, 2,29,14) = (/ &
+        & 0.71068e+01_rb,0.80770e+01_rb,0.87239e+01_rb,0.79933e+01_rb,0.73389e+01_rb /)
+      kbo(:, 3,29,14) = (/ &
+        & 0.73751e+01_rb,0.81344e+01_rb,0.87144e+01_rb,0.80208e+01_rb,0.75104e+01_rb /)
+      kbo(:, 4,29,14) = (/ &
+        & 0.76020e+01_rb,0.81550e+01_rb,0.86676e+01_rb,0.80316e+01_rb,0.76575e+01_rb /)
+      kbo(:, 5,29,14) = (/ &
+        & 0.77937e+01_rb,0.81425e+01_rb,0.85914e+01_rb,0.80248e+01_rb,0.77840e+01_rb /)
+      kbo(:, 1,30,14) = (/ &
+        & 0.68445e+01_rb,0.80166e+01_rb,0.87256e+01_rb,0.79827e+01_rb,0.71970e+01_rb /)
+      kbo(:, 2,30,14) = (/ &
+        & 0.71563e+01_rb,0.81037e+01_rb,0.87505e+01_rb,0.80234e+01_rb,0.73900e+01_rb /)
+      kbo(:, 3,30,14) = (/ &
+        & 0.74214e+01_rb,0.81535e+01_rb,0.87321e+01_rb,0.80469e+01_rb,0.75564e+01_rb /)
+      kbo(:, 4,30,14) = (/ &
+        & 0.76455e+01_rb,0.81683e+01_rb,0.86770e+01_rb,0.80524e+01_rb,0.76986e+01_rb /)
+      kbo(:, 5,30,14) = (/ &
+        & 0.78317e+01_rb,0.81499e+01_rb,0.85949e+01_rb,0.80416e+01_rb,0.78203e+01_rb /)
+      kbo(:, 1,31,14) = (/ &
+        & 0.69054e+01_rb,0.80478e+01_rb,0.87566e+01_rb,0.80136e+01_rb,0.72537e+01_rb /)
+      kbo(:, 2,31,14) = (/ &
+        & 0.72125e+01_rb,0.81281e+01_rb,0.87710e+01_rb,0.80494e+01_rb,0.74404e+01_rb /)
+      kbo(:, 3,31,14) = (/ &
+        & 0.74718e+01_rb,0.81700e+01_rb,0.87427e+01_rb,0.80677e+01_rb,0.76003e+01_rb /)
+      kbo(:, 4,31,14) = (/ &
+        & 0.76912e+01_rb,0.81779e+01_rb,0.86791e+01_rb,0.80682e+01_rb,0.77384e+01_rb /)
+      kbo(:, 5,31,14) = (/ &
+        & 0.78715e+01_rb,0.81532e+01_rb,0.85914e+01_rb,0.80538e+01_rb,0.78547e+01_rb /)
+      kbo(:, 1,32,14) = (/ &
+        & 0.69718e+01_rb,0.80767e+01_rb,0.87812e+01_rb,0.80405e+01_rb,0.73093e+01_rb /)
+      kbo(:, 2,32,14) = (/ &
+        & 0.72714e+01_rb,0.81493e+01_rb,0.87845e+01_rb,0.80705e+01_rb,0.74889e+01_rb /)
+      kbo(:, 3,32,14) = (/ &
+        & 0.75255e+01_rb,0.81843e+01_rb,0.87476e+01_rb,0.80843e+01_rb,0.76427e+01_rb /)
+      kbo(:, 4,32,14) = (/ &
+        & 0.77373e+01_rb,0.81836e+01_rb,0.86757e+01_rb,0.80798e+01_rb,0.77759e+01_rb /)
+      kbo(:, 5,32,14) = (/ &
+        & 0.79115e+01_rb,0.81523e+01_rb,0.85821e+01_rb,0.80611e+01_rb,0.78870e+01_rb /)
+      kbo(:, 1,33,14) = (/ &
+        & 0.70424e+01_rb,0.81041e+01_rb,0.88003e+01_rb,0.80631e+01_rb,0.73621e+01_rb /)
+      kbo(:, 2,33,14) = (/ &
+        & 0.73332e+01_rb,0.81674e+01_rb,0.87934e+01_rb,0.80887e+01_rb,0.75359e+01_rb /)
+      kbo(:, 3,33,14) = (/ &
+        & 0.75797e+01_rb,0.81949e+01_rb,0.87467e+01_rb,0.80962e+01_rb,0.76832e+01_rb /)
+      kbo(:, 4,33,14) = (/ &
+        & 0.77832e+01_rb,0.81860e+01_rb,0.86679e+01_rb,0.80880e+01_rb,0.78112e+01_rb /)
+      kbo(:, 5,33,14) = (/ &
+        & 0.79514e+01_rb,0.81480e+01_rb,0.85688e+01_rb,0.80650e+01_rb,0.79176e+01_rb /)
+      kbo(:, 1,34,14) = (/ &
+        & 0.71032e+01_rb,0.81256e+01_rb,0.88135e+01_rb,0.80801e+01_rb,0.74073e+01_rb /)
+      kbo(:, 2,34,14) = (/ &
+        & 0.73864e+01_rb,0.81812e+01_rb,0.87981e+01_rb,0.81025e+01_rb,0.75752e+01_rb /)
+      kbo(:, 3,34,14) = (/ &
+        & 0.76257e+01_rb,0.82022e+01_rb,0.87428e+01_rb,0.81055e+01_rb,0.77177e+01_rb /)
+      kbo(:, 4,34,14) = (/ &
+        & 0.78229e+01_rb,0.81866e+01_rb,0.86595e+01_rb,0.80934e+01_rb,0.78409e+01_rb /)
+      kbo(:, 5,34,14) = (/ &
+        & 0.79841e+01_rb,0.81428e+01_rb,0.85553e+01_rb,0.80663e+01_rb,0.79427e+01_rb /)
+      kbo(:, 1,35,14) = (/ &
+        & 0.71357e+01_rb,0.81386e+01_rb,0.88238e+01_rb,0.80923e+01_rb,0.74328e+01_rb /)
+      kbo(:, 2,35,14) = (/ &
+        & 0.74155e+01_rb,0.81901e+01_rb,0.88028e+01_rb,0.81125e+01_rb,0.75980e+01_rb /)
+      kbo(:, 3,35,14) = (/ &
+        & 0.76506e+01_rb,0.82068e+01_rb,0.87428e+01_rb,0.81128e+01_rb,0.77381e+01_rb /)
+      kbo(:, 4,35,14) = (/ &
+        & 0.78446e+01_rb,0.81876e+01_rb,0.86563e+01_rb,0.80980e+01_rb,0.78583e+01_rb /)
+      kbo(:, 5,35,14) = (/ &
+        & 0.80022e+01_rb,0.81408e+01_rb,0.85492e+01_rb,0.80683e+01_rb,0.79574e+01_rb /)
+      kbo(:, 1,36,14) = (/ &
+        & 0.71358e+01_rb,0.81426e+01_rb,0.88312e+01_rb,0.80996e+01_rb,0.74385e+01_rb /)
+      kbo(:, 2,36,14) = (/ &
+        & 0.74168e+01_rb,0.81942e+01_rb,0.88101e+01_rb,0.81195e+01_rb,0.76033e+01_rb /)
+      kbo(:, 3,36,14) = (/ &
+        & 0.76530e+01_rb,0.82111e+01_rb,0.87491e+01_rb,0.81189e+01_rb,0.77431e+01_rb /)
+      kbo(:, 4,36,14) = (/ &
+        & 0.78475e+01_rb,0.81916e+01_rb,0.86625e+01_rb,0.81041e+01_rb,0.78633e+01_rb /)
+      kbo(:, 5,36,14) = (/ &
+        & 0.80053e+01_rb,0.81444e+01_rb,0.85549e+01_rb,0.80739e+01_rb,0.79624e+01_rb /)
+      kbo(:, 1,37,14) = (/ &
+        & 0.70898e+01_rb,0.81353e+01_rb,0.88375e+01_rb,0.81022e+01_rb,0.74173e+01_rb /)
+      kbo(:, 2,37,14) = (/ &
+        & 0.73792e+01_rb,0.81923e+01_rb,0.88220e+01_rb,0.81236e+01_rb,0.75852e+01_rb /)
+      kbo(:, 3,37,14) = (/ &
+        & 0.76229e+01_rb,0.82146e+01_rb,0.87658e+01_rb,0.81255e+01_rb,0.77281e+01_rb /)
+      kbo(:, 4,37,14) = (/ &
+        & 0.78232e+01_rb,0.81996e+01_rb,0.86818e+01_rb,0.81120e+01_rb,0.78508e+01_rb /)
+      kbo(:, 5,37,14) = (/ &
+        & 0.79866e+01_rb,0.81554e+01_rb,0.85764e+01_rb,0.80843e+01_rb,0.79525e+01_rb /)
+      kbo(:, 1,38,14) = (/ &
+        & 0.70419e+01_rb,0.81271e+01_rb,0.88418e+01_rb,0.81031e+01_rb,0.73933e+01_rb /)
+      kbo(:, 2,38,14) = (/ &
+        & 0.73389e+01_rb,0.81889e+01_rb,0.88323e+01_rb,0.81261e+01_rb,0.75648e+01_rb /)
+      kbo(:, 3,38,14) = (/ &
+        & 0.75899e+01_rb,0.82161e+01_rb,0.87808e+01_rb,0.81301e+01_rb,0.77105e+01_rb /)
+      kbo(:, 4,38,14) = (/ &
+        & 0.77971e+01_rb,0.82068e+01_rb,0.87000e+01_rb,0.81195e+01_rb,0.78368e+01_rb /)
+      kbo(:, 5,38,14) = (/ &
+        & 0.79663e+01_rb,0.81665e+01_rb,0.85976e+01_rb,0.80935e+01_rb,0.79412e+01_rb /)
+      kbo(:, 1,39,14) = (/ &
+        & 0.69923e+01_rb,0.81165e+01_rb,0.88435e+01_rb,0.81024e+01_rb,0.73685e+01_rb /)
+      kbo(:, 2,39,14) = (/ &
+        & 0.72982e+01_rb,0.81845e+01_rb,0.88409e+01_rb,0.81277e+01_rb,0.75441e+01_rb /)
+      kbo(:, 3,39,14) = (/ &
+        & 0.75563e+01_rb,0.82164e+01_rb,0.87952e+01_rb,0.81347e+01_rb,0.76928e+01_rb /)
+      kbo(:, 4,39,14) = (/ &
+        & 0.77695e+01_rb,0.82122e+01_rb,0.87165e+01_rb,0.81250e+01_rb,0.78216e+01_rb /)
+      kbo(:, 5,39,14) = (/ &
+        & 0.79452e+01_rb,0.81762e+01_rb,0.86172e+01_rb,0.81015e+01_rb,0.79291e+01_rb /)
+      kbo(:, 1,40,14) = (/ &
+        & 0.69080e+01_rb,0.80958e+01_rb,0.88413e+01_rb,0.80965e+01_rb,0.73229e+01_rb /)
+      kbo(:, 2,40,14) = (/ &
+        & 0.72277e+01_rb,0.81734e+01_rb,0.88495e+01_rb,0.81259e+01_rb,0.75046e+01_rb /)
+      kbo(:, 3,40,14) = (/ &
+        & 0.74967e+01_rb,0.82131e+01_rb,0.88131e+01_rb,0.81381e+01_rb,0.76600e+01_rb /)
+      kbo(:, 4,40,14) = (/ &
+        & 0.77214e+01_rb,0.82184e+01_rb,0.87413e+01_rb,0.81320e+01_rb,0.77938e+01_rb /)
+      kbo(:, 5,40,14) = (/ &
+        & 0.79055e+01_rb,0.81894e+01_rb,0.86471e+01_rb,0.81094e+01_rb,0.79066e+01_rb /)
+      kbo(:, 1,41,14) = (/ &
+        & 0.68155e+01_rb,0.80708e+01_rb,0.88352e+01_rb,0.80885e+01_rb,0.72719e+01_rb /)
+      kbo(:, 2,41,14) = (/ &
+        & 0.71495e+01_rb,0.81585e+01_rb,0.88545e+01_rb,0.81224e+01_rb,0.74618e+01_rb /)
+      kbo(:, 3,41,14) = (/ &
+        & 0.74308e+01_rb,0.82074e+01_rb,0.88291e+01_rb,0.81392e+01_rb,0.76238e+01_rb /)
+      kbo(:, 4,41,14) = (/ &
+        & 0.76675e+01_rb,0.82222e+01_rb,0.87650e+01_rb,0.81374e+01_rb,0.77629e+01_rb /)
+      kbo(:, 5,41,14) = (/ &
+        & 0.78621e+01_rb,0.82014e+01_rb,0.86761e+01_rb,0.81197e+01_rb,0.78805e+01_rb /)
+      kbo(:, 1,42,14) = (/ &
+        & 0.67210e+01_rb,0.80436e+01_rb,0.88257e+01_rb,0.80787e+01_rb,0.72181e+01_rb /)
+      kbo(:, 2,42,14) = (/ &
+        & 0.70672e+01_rb,0.81413e+01_rb,0.88562e+01_rb,0.81177e+01_rb,0.74171e+01_rb /)
+      kbo(:, 3,42,14) = (/ &
+        & 0.73618e+01_rb,0.81993e+01_rb,0.88420e+01_rb,0.81387e+01_rb,0.75853e+01_rb /)
+      kbo(:, 4,42,14) = (/ &
+        & 0.76110e+01_rb,0.82240e+01_rb,0.87872e+01_rb,0.81416e+01_rb,0.77301e+01_rb /)
+      kbo(:, 5,42,14) = (/ &
+        & 0.78157e+01_rb,0.82114e+01_rb,0.87034e+01_rb,0.81275e+01_rb,0.78533e+01_rb /)
+      kbo(:, 1,43,14) = (/ &
+        & 0.66012e+01_rb,0.80077e+01_rb,0.88083e+01_rb,0.80639e+01_rb,0.71482e+01_rb /)
+      kbo(:, 2,43,14) = (/ &
+        & 0.69627e+01_rb,0.81158e+01_rb,0.88532e+01_rb,0.81101e+01_rb,0.73596e+01_rb /)
+      kbo(:, 3,43,14) = (/ &
+        & 0.72743e+01_rb,0.81862e+01_rb,0.88533e+01_rb,0.81352e+01_rb,0.75360e+01_rb /)
+      kbo(:, 4,43,14) = (/ &
+        & 0.75376e+01_rb,0.82203e+01_rb,0.88101e+01_rb,0.81444e+01_rb,0.76876e+01_rb /)
+      kbo(:, 5,43,14) = (/ &
+        & 0.77560e+01_rb,0.82200e+01_rb,0.87338e+01_rb,0.81353e+01_rb,0.78176e+01_rb /)
+      kbo(:, 1,44,14) = (/ &
+        & 0.64654e+01_rb,0.79624e+01_rb,0.87841e+01_rb,0.80450e+01_rb,0.70696e+01_rb /)
+      kbo(:, 2,44,14) = (/ &
+        & 0.68452e+01_rb,0.80842e+01_rb,0.88456e+01_rb,0.80985e+01_rb,0.72931e+01_rb /)
+      kbo(:, 3,44,14) = (/ &
+        & 0.71736e+01_rb,0.81668e+01_rb,0.88594e+01_rb,0.81294e+01_rb,0.74799e+01_rb /)
+      kbo(:, 4,44,14) = (/ &
+        & 0.74536e+01_rb,0.82135e+01_rb,0.88309e+01_rb,0.81455e+01_rb,0.76398e+01_rb /)
+      kbo(:, 5,44,14) = (/ &
+        & 0.76864e+01_rb,0.82252e+01_rb,0.87641e+01_rb,0.81417e+01_rb,0.77771e+01_rb /)
+      kbo(:, 1,45,14) = (/ &
+        & 0.63246e+01_rb,0.79121e+01_rb,0.87529e+01_rb,0.80227e+01_rb,0.69872e+01_rb /)
+      kbo(:, 2,45,14) = (/ &
+        & 0.67215e+01_rb,0.80478e+01_rb,0.88314e+01_rb,0.80840e+01_rb,0.72219e+01_rb /)
+      kbo(:, 3,45,14) = (/ &
+        & 0.70680e+01_rb,0.81447e+01_rb,0.88609e+01_rb,0.81218e+01_rb,0.74205e+01_rb /)
+      kbo(:, 4,45,14) = (/ &
+        & 0.73633e+01_rb,0.82020e+01_rb,0.88464e+01_rb,0.81437e+01_rb,0.75896e+01_rb /)
+      kbo(:, 5,45,14) = (/ &
+        & 0.76123e+01_rb,0.82264e+01_rb,0.87913e+01_rb,0.81458e+01_rb,0.77333e+01_rb /)
+      kbo(:, 1,46,14) = (/ &
+        & 0.61677e+01_rb,0.78522e+01_rb,0.87120e+01_rb,0.79958e+01_rb,0.68962e+01_rb /)
+      kbo(:, 2,46,14) = (/ &
+        & 0.65843e+01_rb,0.80056e+01_rb,0.88106e+01_rb,0.80659e+01_rb,0.71413e+01_rb /)
+      kbo(:, 3,46,14) = (/ &
+        & 0.69482e+01_rb,0.81147e+01_rb,0.88565e+01_rb,0.81122e+01_rb,0.73539e+01_rb /)
+      kbo(:, 4,46,14) = (/ &
+        & 0.72620e+01_rb,0.81857e+01_rb,0.88581e+01_rb,0.81382e+01_rb,0.75320e+01_rb /)
+      kbo(:, 5,46,14) = (/ &
+        & 0.75285e+01_rb,0.82222e+01_rb,0.88171e+01_rb,0.81482e+01_rb,0.76841e+01_rb /)
+      kbo(:, 1,47,14) = (/ &
+        & 0.59872e+01_rb,0.77759e+01_rb,0.86581e+01_rb,0.79599e+01_rb,0.67904e+01_rb /)
+      kbo(:, 2,47,14) = (/ &
+        & 0.64227e+01_rb,0.79505e+01_rb,0.87794e+01_rb,0.80417e+01_rb,0.70463e+01_rb /)
+      kbo(:, 3,47,14) = (/ &
+        & 0.68067e+01_rb,0.80750e+01_rb,0.88445e+01_rb,0.80966e+01_rb,0.72732e+01_rb /)
+      kbo(:, 4,47,14) = (/ &
+        & 0.71415e+01_rb,0.81619e+01_rb,0.88634e+01_rb,0.81302e+01_rb,0.74640e+01_rb /)
+      kbo(:, 5,47,14) = (/ &
+        & 0.74259e+01_rb,0.82118e+01_rb,0.88390e+01_rb,0.81478e+01_rb,0.76260e+01_rb /)
+      kbo(:, 1,48,14) = (/ &
+        & 0.57999e+01_rb,0.76897e+01_rb,0.85924e+01_rb,0.79165e+01_rb,0.66812e+01_rb /)
+      kbo(:, 2,48,14) = (/ &
+        & 0.62523e+01_rb,0.78878e+01_rb,0.87384e+01_rb,0.80135e+01_rb,0.69471e+01_rb /)
+      kbo(:, 3,48,14) = (/ &
+        & 0.66581e+01_rb,0.80303e+01_rb,0.88250e+01_rb,0.80783e+01_rb,0.71862e+01_rb /)
+      kbo(:, 4,48,14) = (/ &
+        & 0.70120e+01_rb,0.81321e+01_rb,0.88616e+01_rb,0.81203e+01_rb,0.73915e+01_rb /)
+      kbo(:, 5,48,14) = (/ &
+        & 0.73167e+01_rb,0.81963e+01_rb,0.88550e+01_rb,0.81433e+01_rb,0.75640e+01_rb /)
+      kbo(:, 1,49,14) = (/ &
+        & 0.56056e+01_rb,0.75967e+01_rb,0.85186e+01_rb,0.78664e+01_rb,0.65684e+01_rb /)
+      kbo(:, 2,49,14) = (/ &
+        & 0.60725e+01_rb,0.78139e+01_rb,0.86868e+01_rb,0.79799e+01_rb,0.68428e+01_rb /)
+      kbo(:, 3,49,14) = (/ &
+        & 0.65005e+01_rb,0.79789e+01_rb,0.87970e+01_rb,0.80551e+01_rb,0.70936e+01_rb /)
+      kbo(:, 4,49,14) = (/ &
+        & 0.68750e+01_rb,0.80955e+01_rb,0.88532e+01_rb,0.81069e+01_rb,0.73141e+01_rb /)
+      kbo(:, 5,49,14) = (/ &
+        & 0.72008e+01_rb,0.81753e+01_rb,0.88640e+01_rb,0.81362e+01_rb,0.74980e+01_rb /)
+      kbo(:, 1,50,14) = (/ &
+        & 0.54125e+01_rb,0.74991e+01_rb,0.84401e+01_rb,0.78123e+01_rb,0.64595e+01_rb /)
+      kbo(:, 2,50,14) = (/ &
+        & 0.59003e+01_rb,0.77375e+01_rb,0.86301e+01_rb,0.79423e+01_rb,0.67420e+01_rb /)
+      kbo(:, 3,50,14) = (/ &
+        & 0.63429e+01_rb,0.79215e+01_rb,0.87619e+01_rb,0.80304e+01_rb,0.70024e+01_rb /)
+      kbo(:, 4,50,14) = (/ &
+        & 0.67393e+01_rb,0.80557e+01_rb,0.88380e+01_rb,0.80904e+01_rb,0.72354e+01_rb /)
+      kbo(:, 5,50,14) = (/ &
+        & 0.70838e+01_rb,0.81507e+01_rb,0.88659e+01_rb,0.81277e+01_rb,0.74327e+01_rb /)
+      kbo(:, 1,51,14) = (/ &
+        & 0.52191e+01_rb,0.73982e+01_rb,0.83585e+01_rb,0.77548e+01_rb,0.63504e+01_rb /)
+      kbo(:, 2,51,14) = (/ &
+        & 0.57281e+01_rb,0.76566e+01_rb,0.85673e+01_rb,0.79002e+01_rb,0.66408e+01_rb /)
+      kbo(:, 3,51,14) = (/ &
+        & 0.61850e+01_rb,0.78612e+01_rb,0.87206e+01_rb,0.80029e+01_rb,0.69102e+01_rb /)
+      kbo(:, 4,51,14) = (/ &
+        & 0.66013e+01_rb,0.80131e+01_rb,0.88169e+01_rb,0.80719e+01_rb,0.71542e+01_rb /)
+      kbo(:, 5,51,14) = (/ &
+        & 0.69630e+01_rb,0.81207e+01_rb,0.88611e+01_rb,0.81171e+01_rb,0.73645e+01_rb /)
+      kbo(:, 1,52,14) = (/ &
+        & 0.50203e+01_rb,0.72853e+01_rb,0.82659e+01_rb,0.76900e+01_rb,0.62362e+01_rb /)
+      kbo(:, 2,52,14) = (/ &
+        & 0.55489e+01_rb,0.75692e+01_rb,0.84974e+01_rb,0.78525e+01_rb,0.65380e+01_rb /)
+      kbo(:, 3,52,14) = (/ &
+        & 0.60223e+01_rb,0.77933e+01_rb,0.86726e+01_rb,0.79710e+01_rb,0.68148e+01_rb /)
+      kbo(:, 4,52,14) = (/ &
+        & 0.64533e+01_rb,0.79619e+01_rb,0.87883e+01_rb,0.80495e+01_rb,0.70682e+01_rb /)
+      kbo(:, 5,52,14) = (/ &
+        & 0.68363e+01_rb,0.80853e+01_rb,0.88509e+01_rb,0.81034e+01_rb,0.72926e+01_rb /)
+      kbo(:, 1,53,14) = (/ &
+        & 0.48171e+01_rb,0.71626e+01_rb,0.81646e+01_rb,0.76188e+01_rb,0.61179e+01_rb /)
+      kbo(:, 2,53,14) = (/ &
+        & 0.53620e+01_rb,0.74745e+01_rb,0.84206e+01_rb,0.77982e+01_rb,0.64310e+01_rb /)
+      kbo(:, 3,53,14) = (/ &
+        & 0.58544e+01_rb,0.77168e+01_rb,0.86150e+01_rb,0.79329e+01_rb,0.67166e+01_rb /)
+      kbo(:, 4,53,14) = (/ &
+        & 0.63007e+01_rb,0.79064e+01_rb,0.87527e+01_rb,0.80244e+01_rb,0.69787e+01_rb /)
+      kbo(:, 5,53,14) = (/ &
+        & 0.67036e+01_rb,0.80457e+01_rb,0.88348e+01_rb,0.80870e+01_rb,0.72150e+01_rb /)
+      kbo(:, 1,54,14) = (/ &
+        & 0.46268e+01_rb,0.70415e+01_rb,0.80643e+01_rb,0.75453e+01_rb,0.60051e+01_rb /)
+      kbo(:, 2,54,14) = (/ &
+        & 0.51834e+01_rb,0.73793e+01_rb,0.83436e+01_rb,0.77439e+01_rb,0.63304e+01_rb /)
+      kbo(:, 3,54,14) = (/ &
+        & 0.56952e+01_rb,0.76416e+01_rb,0.85557e+01_rb,0.78930e+01_rb,0.66233e+01_rb /)
+      kbo(:, 4,54,14) = (/ &
+        & 0.61555e+01_rb,0.78501e+01_rb,0.87136e+01_rb,0.79986e+01_rb,0.68935e+01_rb /)
+      kbo(:, 5,54,14) = (/ &
+        & 0.65754e+01_rb,0.80055e+01_rb,0.88139e+01_rb,0.80689e+01_rb,0.71391e+01_rb /)
+      kbo(:, 1,55,14) = (/ &
+        & 0.44418e+01_rb,0.69152e+01_rb,0.79589e+01_rb,0.74683e+01_rb,0.58909e+01_rb /)
+      kbo(:, 2,55,14) = (/ &
+        & 0.50082e+01_rb,0.72786e+01_rb,0.82608e+01_rb,0.76866e+01_rb,0.62296e+01_rb /)
+      kbo(:, 3,55,14) = (/ &
+        & 0.55372e+01_rb,0.75641e+01_rb,0.84935e+01_rb,0.78502e+01_rb,0.65324e+01_rb /)
+      kbo(:, 4,55,14) = (/ &
+        & 0.60119e+01_rb,0.77891e+01_rb,0.86705e+01_rb,0.79700e+01_rb,0.68094e+01_rb /)
+      kbo(:, 5,55,14) = (/ &
+        & 0.64443e+01_rb,0.79596e+01_rb,0.87874e+01_rb,0.80489e+01_rb,0.70636e+01_rb /)
+      kbo(:, 1,56,14) = (/ &
+        & 0.42552e+01_rb,0.67816e+01_rb,0.78463e+01_rb,0.73861e+01_rb,0.57693e+01_rb /)
+      kbo(:, 2,56,14) = (/ &
+        & 0.48302e+01_rb,0.71710e+01_rb,0.81721e+01_rb,0.76241e+01_rb,0.61259e+01_rb /)
+      kbo(:, 3,56,14) = (/ &
+        & 0.53736e+01_rb,0.74812e+01_rb,0.84261e+01_rb,0.78026e+01_rb,0.64389e+01_rb /)
+      kbo(:, 4,56,14) = (/ &
+        & 0.58648e+01_rb,0.77223e+01_rb,0.86198e+01_rb,0.79361e+01_rb,0.67232e+01_rb /)
+      kbo(:, 5,56,14) = (/ &
+        & 0.63103e+01_rb,0.79105e+01_rb,0.87564e+01_rb,0.80271e+01_rb,0.69853e+01_rb /)
+      kbo(:, 1,57,14) = (/ &
+        & 0.40639e+01_rb,0.66394e+01_rb,0.77238e+01_rb,0.72954e+01_rb,0.56390e+01_rb /)
+      kbo(:, 2,57,14) = (/ &
+        & 0.46488e+01_rb,0.70563e+01_rb,0.80768e+01_rb,0.75544e+01_rb,0.60187e+01_rb /)
+      kbo(:, 3,57,14) = (/ &
+        & 0.52035e+01_rb,0.73909e+01_rb,0.83529e+01_rb,0.77510e+01_rb,0.63425e+01_rb /)
+      kbo(:, 4,57,14) = (/ &
+        & 0.57137e+01_rb,0.76510e+01_rb,0.85638e+01_rb,0.78985e+01_rb,0.66342e+01_rb /)
+      kbo(:, 5,57,14) = (/ &
+        & 0.61722e+01_rb,0.78574e+01_rb,0.87192e+01_rb,0.80023e+01_rb,0.69038e+01_rb /)
+      kbo(:, 1,58,14) = (/ &
+        & 0.38805e+01_rb,0.64976e+01_rb,0.75961e+01_rb,0.72010e+01_rb,0.55107e+01_rb /)
+      kbo(:, 2,58,14) = (/ &
+        & 0.44745e+01_rb,0.69383e+01_rb,0.79787e+01_rb,0.74825e+01_rb,0.59115e+01_rb /)
+      kbo(:, 3,58,14) = (/ &
+        & 0.50386e+01_rb,0.72976e+01_rb,0.82763e+01_rb,0.76973e+01_rb,0.62480e+01_rb /)
+      kbo(:, 4,58,14) = (/ &
+        & 0.55648e+01_rb,0.75780e+01_rb,0.85055e+01_rb,0.78586e+01_rb,0.65486e+01_rb /)
+      kbo(:, 5,58,14) = (/ &
+        & 0.60366e+01_rb,0.78002e+01_rb,0.86790e+01_rb,0.79756e+01_rb,0.68245e+01_rb /)
+      kbo(:, 1,59,14) = (/ &
+        & 0.38057e+01_rb,0.64388e+01_rb,0.75416e+01_rb,0.71615e+01_rb,0.54582e+01_rb /)
+      kbo(:, 2,59,14) = (/ &
+        & 0.44044e+01_rb,0.68893e+01_rb,0.79374e+01_rb,0.74528e+01_rb,0.58671e+01_rb /)
+      kbo(:, 3,59,14) = (/ &
+        & 0.49711e+01_rb,0.72574e+01_rb,0.82432e+01_rb,0.76750e+01_rb,0.62091e+01_rb /)
+      kbo(:, 4,59,14) = (/ &
+        & 0.55038e+01_rb,0.75476e+01_rb,0.84809e+01_rb,0.78415e+01_rb,0.65137e+01_rb /)
+      kbo(:, 5,59,14) = (/ &
+        & 0.59820e+01_rb,0.77764e+01_rb,0.86612e+01_rb,0.79636e+01_rb,0.67922e+01_rb /)
+      kbo(:, 1,13,15) = (/ &
+        & 0.21583e+02_rb,0.16708e+02_rb,0.15578e+02_rb,0.16324e+02_rb,0.21499e+02_rb /)
+      kbo(:, 2,13,15) = (/ &
+        & 0.21596e+02_rb,0.16646e+02_rb,0.15448e+02_rb,0.16116e+02_rb,0.21237e+02_rb /)
+      kbo(:, 3,13,15) = (/ &
+        & 0.21561e+02_rb,0.16562e+02_rb,0.15303e+02_rb,0.15881e+02_rb,0.20975e+02_rb /)
+      kbo(:, 4,13,15) = (/ &
+        & 0.21482e+02_rb,0.16444e+02_rb,0.15131e+02_rb,0.15663e+02_rb,0.20709e+02_rb /)
+      kbo(:, 5,13,15) = (/ &
+        & 0.21360e+02_rb,0.16308e+02_rb,0.14933e+02_rb,0.15443e+02_rb,0.20449e+02_rb /)
+      kbo(:, 1,14,15) = (/ &
+        & 0.23286e+02_rb,0.18105e+02_rb,0.17022e+02_rb,0.17494e+02_rb,0.22811e+02_rb /)
+      kbo(:, 2,14,15) = (/ &
+        & 0.23268e+02_rb,0.18001e+02_rb,0.16845e+02_rb,0.17259e+02_rb,0.22563e+02_rb /)
+      kbo(:, 3,14,15) = (/ &
+        & 0.23185e+02_rb,0.17865e+02_rb,0.16645e+02_rb,0.17010e+02_rb,0.22295e+02_rb /)
+      kbo(:, 4,14,15) = (/ &
+        & 0.23065e+02_rb,0.17707e+02_rb,0.16417e+02_rb,0.16757e+02_rb,0.22015e+02_rb /)
+      kbo(:, 5,14,15) = (/ &
+        & 0.22894e+02_rb,0.17515e+02_rb,0.16163e+02_rb,0.16504e+02_rb,0.21733e+02_rb /)
+      kbo(:, 1,15,15) = (/ &
+        & 0.24991e+02_rb,0.19505e+02_rb,0.18411e+02_rb,0.18638e+02_rb,0.24057e+02_rb /)
+      kbo(:, 2,15,15) = (/ &
+        & 0.24920e+02_rb,0.19349e+02_rb,0.18180e+02_rb,0.18374e+02_rb,0.23810e+02_rb /)
+      kbo(:, 3,15,15) = (/ &
+        & 0.24797e+02_rb,0.19155e+02_rb,0.17917e+02_rb,0.18103e+02_rb,0.23536e+02_rb /)
+      kbo(:, 4,15,15) = (/ &
+        & 0.24619e+02_rb,0.18942e+02_rb,0.17624e+02_rb,0.17814e+02_rb,0.23238e+02_rb /)
+      kbo(:, 5,15,15) = (/ &
+        & 0.24389e+02_rb,0.18694e+02_rb,0.17313e+02_rb,0.17524e+02_rb,0.22925e+02_rb /)
+      kbo(:, 1,16,15) = (/ &
+        & 0.26656e+02_rb,0.20879e+02_rb,0.19716e+02_rb,0.19730e+02_rb,0.25227e+02_rb /)
+      kbo(:, 2,16,15) = (/ &
+        & 0.26523e+02_rb,0.20660e+02_rb,0.19424e+02_rb,0.19442e+02_rb,0.24961e+02_rb /)
+      kbo(:, 3,16,15) = (/ &
+        & 0.26348e+02_rb,0.20405e+02_rb,0.19093e+02_rb,0.19135e+02_rb,0.24671e+02_rb /)
+      kbo(:, 4,16,15) = (/ &
+        & 0.26107e+02_rb,0.20124e+02_rb,0.18741e+02_rb,0.18812e+02_rb,0.24357e+02_rb /)
+      kbo(:, 5,16,15) = (/ &
+        & 0.25816e+02_rb,0.19816e+02_rb,0.18364e+02_rb,0.18476e+02_rb,0.24001e+02_rb /)
+      kbo(:, 1,17,15) = (/ &
+        & 0.28242e+02_rb,0.22184e+02_rb,0.20936e+02_rb,0.20769e+02_rb,0.26307e+02_rb /)
+      kbo(:, 2,17,15) = (/ &
+        & 0.28053e+02_rb,0.21895e+02_rb,0.20570e+02_rb,0.20444e+02_rb,0.26016e+02_rb /)
+      kbo(:, 3,17,15) = (/ &
+        & 0.27803e+02_rb,0.21584e+02_rb,0.20174e+02_rb,0.20096e+02_rb,0.25702e+02_rb /)
+      kbo(:, 4,17,15) = (/ &
+        & 0.27499e+02_rb,0.21233e+02_rb,0.19753e+02_rb,0.19726e+02_rb,0.25351e+02_rb /)
+      kbo(:, 5,17,15) = (/ &
+        & 0.27139e+02_rb,0.20859e+02_rb,0.19319e+02_rb,0.19342e+02_rb,0.24955e+02_rb /)
+      kbo(:, 1,18,15) = (/ &
+        & 0.29720e+02_rb,0.23411e+02_rb,0.22065e+02_rb,0.21731e+02_rb,0.27280e+02_rb /)
+      kbo(:, 2,18,15) = (/ &
+        & 0.29480e+02_rb,0.23053e+02_rb,0.21624e+02_rb,0.21360e+02_rb,0.26972e+02_rb /)
+      kbo(:, 3,18,15) = (/ &
+        & 0.29159e+02_rb,0.22667e+02_rb,0.21156e+02_rb,0.20967e+02_rb,0.26625e+02_rb /)
+      kbo(:, 4,18,15) = (/ &
+        & 0.28776e+02_rb,0.22248e+02_rb,0.20663e+02_rb,0.20553e+02_rb,0.26229e+02_rb /)
+      kbo(:, 5,18,15) = (/ &
+        & 0.28340e+02_rb,0.21810e+02_rb,0.20170e+02_rb,0.20119e+02_rb,0.25790e+02_rb /)
+      kbo(:, 1,19,15) = (/ &
+        & 0.31079e+02_rb,0.24533e+02_rb,0.23084e+02_rb,0.22601e+02_rb,0.28156e+02_rb /)
+      kbo(:, 2,19,15) = (/ &
+        & 0.30766e+02_rb,0.24108e+02_rb,0.22572e+02_rb,0.22185e+02_rb,0.27815e+02_rb /)
+      kbo(:, 3,19,15) = (/ &
+        & 0.30376e+02_rb,0.23641e+02_rb,0.22030e+02_rb,0.21741e+02_rb,0.27429e+02_rb /)
+      kbo(:, 4,19,15) = (/ &
+        & 0.29923e+02_rb,0.23160e+02_rb,0.21471e+02_rb,0.21280e+02_rb,0.26992e+02_rb /)
+      kbo(:, 5,19,15) = (/ &
+        & 0.29415e+02_rb,0.22660e+02_rb,0.20920e+02_rb,0.20797e+02_rb,0.26511e+02_rb /)
+      kbo(:, 1,20,15) = (/ &
+        & 0.32290e+02_rb,0.25527e+02_rb,0.23984e+02_rb,0.23373e+02_rb,0.28918e+02_rb /)
+      kbo(:, 2,20,15) = (/ &
+        & 0.31907e+02_rb,0.25035e+02_rb,0.23397e+02_rb,0.22899e+02_rb,0.28537e+02_rb /)
+      kbo(:, 3,20,15) = (/ &
+        & 0.31450e+02_rb,0.24496e+02_rb,0.22784e+02_rb,0.22408e+02_rb,0.28112e+02_rb /)
+      kbo(:, 4,20,15) = (/ &
+        & 0.30926e+02_rb,0.23946e+02_rb,0.22166e+02_rb,0.21898e+02_rb,0.27628e+02_rb /)
+      kbo(:, 5,20,15) = (/ &
+        & 0.30351e+02_rb,0.23384e+02_rb,0.21559e+02_rb,0.21369e+02_rb,0.27109e+02_rb /)
+      kbo(:, 1,21,15) = (/ &
+        & 0.33354e+02_rb,0.26397e+02_rb,0.24768e+02_rb,0.24040e+02_rb,0.29575e+02_rb /)
+      kbo(:, 2,21,15) = (/ &
+        & 0.32901e+02_rb,0.25842e+02_rb,0.24107e+02_rb,0.23511e+02_rb,0.29153e+02_rb /)
+      kbo(:, 3,21,15) = (/ &
+        & 0.32374e+02_rb,0.25240e+02_rb,0.23426e+02_rb,0.22972e+02_rb,0.28686e+02_rb /)
+      kbo(:, 4,21,15) = (/ &
+        & 0.31781e+02_rb,0.24624e+02_rb,0.22754e+02_rb,0.22416e+02_rb,0.28162e+02_rb /)
+      kbo(:, 5,21,15) = (/ &
+        & 0.31147e+02_rb,0.24003e+02_rb,0.22095e+02_rb,0.21845e+02_rb,0.27608e+02_rb /)
+      kbo(:, 1,22,15) = (/ &
+        & 0.34245e+02_rb,0.27109e+02_rb,0.25388e+02_rb,0.24566e+02_rb,0.30099e+02_rb /)
+      kbo(:, 2,22,15) = (/ &
+        & 0.33719e+02_rb,0.26481e+02_rb,0.24655e+02_rb,0.23987e+02_rb,0.29635e+02_rb /)
+      kbo(:, 3,22,15) = (/ &
+        & 0.33121e+02_rb,0.25821e+02_rb,0.23916e+02_rb,0.23403e+02_rb,0.29124e+02_rb /)
+      kbo(:, 4,22,15) = (/ &
+        & 0.32461e+02_rb,0.25147e+02_rb,0.23196e+02_rb,0.22805e+02_rb,0.28562e+02_rb /)
+      kbo(:, 5,22,15) = (/ &
+        & 0.31774e+02_rb,0.24482e+02_rb,0.22495e+02_rb,0.22197e+02_rb,0.27979e+02_rb /)
+      kbo(:, 1,23,15) = (/ &
+        & 0.34979e+02_rb,0.27686e+02_rb,0.25885e+02_rb,0.24985e+02_rb,0.30523e+02_rb /)
+      kbo(:, 2,23,15) = (/ &
+        & 0.34390e+02_rb,0.26989e+02_rb,0.25088e+02_rb,0.24366e+02_rb,0.30015e+02_rb /)
+      kbo(:, 3,23,15) = (/ &
+        & 0.33724e+02_rb,0.26279e+02_rb,0.24300e+02_rb,0.23742e+02_rb,0.29464e+02_rb /)
+      kbo(:, 4,23,15) = (/ &
+        & 0.33013e+02_rb,0.25562e+02_rb,0.23538e+02_rb,0.23108e+02_rb,0.28875e+02_rb /)
+      kbo(:, 5,23,15) = (/ &
+        & 0.32269e+02_rb,0.24853e+02_rb,0.22796e+02_rb,0.22467e+02_rb,0.28265e+02_rb /)
+      kbo(:, 1,24,15) = (/ &
+        & 0.35573e+02_rb,0.28136e+02_rb,0.26264e+02_rb,0.25305e+02_rb,0.30849e+02_rb /)
+      kbo(:, 2,24,15) = (/ &
+        & 0.34922e+02_rb,0.27387e+02_rb,0.25413e+02_rb,0.24653e+02_rb,0.30308e+02_rb /)
+      kbo(:, 3,24,15) = (/ &
+        & 0.34200e+02_rb,0.26632e+02_rb,0.24587e+02_rb,0.23994e+02_rb,0.29723e+02_rb /)
+      kbo(:, 4,24,15) = (/ &
+        & 0.33439e+02_rb,0.25872e+02_rb,0.23787e+02_rb,0.23329e+02_rb,0.29105e+02_rb /)
+      kbo(:, 5,24,15) = (/ &
+        & 0.32647e+02_rb,0.25128e+02_rb,0.23014e+02_rb,0.22661e+02_rb,0.28477e+02_rb /)
+      kbo(:, 1,25,15) = (/ &
+        & 0.36033e+02_rb,0.28469e+02_rb,0.26533e+02_rb,0.25539e+02_rb,0.31091e+02_rb /)
+      kbo(:, 2,25,15) = (/ &
+        & 0.35324e+02_rb,0.27679e+02_rb,0.25640e+02_rb,0.24852e+02_rb,0.30512e+02_rb /)
+      kbo(:, 3,25,15) = (/ &
+        & 0.34555e+02_rb,0.26887e+02_rb,0.24782e+02_rb,0.24167e+02_rb,0.29902e+02_rb /)
+      kbo(:, 4,25,15) = (/ &
+        & 0.33752e+02_rb,0.26092e+02_rb,0.23953e+02_rb,0.23474e+02_rb,0.29262e+02_rb /)
+      kbo(:, 5,25,15) = (/ &
+        & 0.32915e+02_rb,0.25319e+02_rb,0.23155e+02_rb,0.22787e+02_rb,0.28617e+02_rb /)
+      kbo(:, 1,26,15) = (/ &
+        & 0.36371e+02_rb,0.28696e+02_rb,0.26697e+02_rb,0.25688e+02_rb,0.31254e+02_rb /)
+      kbo(:, 2,26,15) = (/ &
+        & 0.35607e+02_rb,0.27872e+02_rb,0.25775e+02_rb,0.24975e+02_rb,0.30642e+02_rb /)
+      kbo(:, 3,26,15) = (/ &
+        & 0.34798e+02_rb,0.27047e+02_rb,0.24890e+02_rb,0.24264e+02_rb,0.30007e+02_rb /)
+      kbo(:, 4,26,15) = (/ &
+        & 0.33956e+02_rb,0.26227e+02_rb,0.24040e+02_rb,0.23549e+02_rb,0.29351e+02_rb /)
+      kbo(:, 5,26,15) = (/ &
+        & 0.33076e+02_rb,0.25425e+02_rb,0.23222e+02_rb,0.22845e+02_rb,0.28688e+02_rb /)
+      kbo(:, 1,27,15) = (/ &
+        & 0.36605e+02_rb,0.28839e+02_rb,0.26780e+02_rb,0.25770e+02_rb,0.31349e+02_rb /)
+      kbo(:, 2,27,15) = (/ &
+        & 0.35796e+02_rb,0.27987e+02_rb,0.25836e+02_rb,0.25037e+02_rb,0.30713e+02_rb /)
+      kbo(:, 3,27,15) = (/ &
+        & 0.34952e+02_rb,0.27136e+02_rb,0.24934e+02_rb,0.24306e+02_rb,0.30059e+02_rb /)
+      kbo(:, 4,27,15) = (/ &
+        & 0.34075e+02_rb,0.26294e+02_rb,0.24068e+02_rb,0.23575e+02_rb,0.29392e+02_rb /)
+      kbo(:, 5,27,15) = (/ &
+        & 0.33166e+02_rb,0.25473e+02_rb,0.23238e+02_rb,0.22856e+02_rb,0.28711e+02_rb /)
+      kbo(:, 1,28,15) = (/ &
+        & 0.36758e+02_rb,0.28917e+02_rb,0.26804e+02_rb,0.25803e+02_rb,0.31396e+02_rb /)
+      kbo(:, 2,28,15) = (/ &
+        & 0.35910e+02_rb,0.28037e+02_rb,0.25842e+02_rb,0.25051e+02_rb,0.30739e+02_rb /)
+      kbo(:, 3,28,15) = (/ &
+        & 0.35033e+02_rb,0.27165e+02_rb,0.24925e+02_rb,0.24304e+02_rb,0.30070e+02_rb /)
+      kbo(:, 4,28,15) = (/ &
+        & 0.34125e+02_rb,0.26307e+02_rb,0.24049e+02_rb,0.23563e+02_rb,0.29393e+02_rb /)
+      kbo(:, 5,28,15) = (/ &
+        & 0.33188e+02_rb,0.25468e+02_rb,0.23210e+02_rb,0.22829e+02_rb,0.28695e+02_rb /)
+      kbo(:, 1,29,15) = (/ &
+        & 0.36829e+02_rb,0.28926e+02_rb,0.26766e+02_rb,0.25785e+02_rb,0.31393e+02_rb /)
+      kbo(:, 2,29,15) = (/ &
+        & 0.35949e+02_rb,0.28025e+02_rb,0.25792e+02_rb,0.25019e+02_rb,0.30723e+02_rb /)
+      kbo(:, 3,29,15) = (/ &
+        & 0.35045e+02_rb,0.27141e+02_rb,0.24868e+02_rb,0.24260e+02_rb,0.30042e+02_rb /)
+      kbo(:, 4,29,15) = (/ &
+        & 0.34114e+02_rb,0.26272e+02_rb,0.23986e+02_rb,0.23509e+02_rb,0.29353e+02_rb /)
+      kbo(:, 5,29,15) = (/ &
+        & 0.33154e+02_rb,0.25419e+02_rb,0.23142e+02_rb,0.22765e+02_rb,0.28643e+02_rb /)
+      kbo(:, 1,30,15) = (/ &
+        & 0.36836e+02_rb,0.28884e+02_rb,0.26681e+02_rb,0.25729e+02_rb,0.31353e+02_rb /)
+      kbo(:, 2,30,15) = (/ &
+        & 0.35935e+02_rb,0.27972e+02_rb,0.25704e+02_rb,0.24955e+02_rb,0.30675e+02_rb /)
+      kbo(:, 3,30,15) = (/ &
+        & 0.35002e+02_rb,0.27075e+02_rb,0.24775e+02_rb,0.24184e+02_rb,0.29984e+02_rb /)
+      kbo(:, 4,30,15) = (/ &
+        & 0.34050e+02_rb,0.26196e+02_rb,0.23891e+02_rb,0.23427e+02_rb,0.29283e+02_rb /)
+      kbo(:, 5,30,15) = (/ &
+        & 0.33076e+02_rb,0.25337e+02_rb,0.23046e+02_rb,0.22676e+02_rb,0.28566e+02_rb /)
+      kbo(:, 1,31,15) = (/ &
+        & 0.36791e+02_rb,0.28797e+02_rb,0.26557e+02_rb,0.25640e+02_rb,0.31284e+02_rb /)
+      kbo(:, 2,31,15) = (/ &
+        & 0.35869e+02_rb,0.27877e+02_rb,0.25582e+02_rb,0.24857e+02_rb,0.30596e+02_rb /)
+      kbo(:, 3,31,15) = (/ &
+        & 0.34914e+02_rb,0.26971e+02_rb,0.24653e+02_rb,0.24083e+02_rb,0.29901e+02_rb /)
+      kbo(:, 4,31,15) = (/ &
+        & 0.33941e+02_rb,0.26084e+02_rb,0.23767e+02_rb,0.23319e+02_rb,0.29185e+02_rb /)
+      kbo(:, 5,31,15) = (/ &
+        & 0.32958e+02_rb,0.25224e+02_rb,0.22924e+02_rb,0.22563e+02_rb,0.28464e+02_rb /)
+      kbo(:, 1,32,15) = (/ &
+        & 0.36704e+02_rb,0.28676e+02_rb,0.26402e+02_rb,0.25521e+02_rb,0.31186e+02_rb /)
+      kbo(:, 2,32,15) = (/ &
+        & 0.35759e+02_rb,0.27748e+02_rb,0.25429e+02_rb,0.24734e+02_rb,0.30492e+02_rb /)
+      kbo(:, 3,32,15) = (/ &
+        & 0.34789e+02_rb,0.26839e+02_rb,0.24504e+02_rb,0.23956e+02_rb,0.29792e+02_rb /)
+      kbo(:, 4,32,15) = (/ &
+        & 0.33799e+02_rb,0.25947e+02_rb,0.23622e+02_rb,0.23189e+02_rb,0.29067e+02_rb /)
+      kbo(:, 5,32,15) = (/ &
+        & 0.32807e+02_rb,0.25086e+02_rb,0.22780e+02_rb,0.22431e+02_rb,0.28343e+02_rb /)
+      kbo(:, 1,33,15) = (/ &
+        & 0.36581e+02_rb,0.28529e+02_rb,0.26229e+02_rb,0.25386e+02_rb,0.31076e+02_rb /)
+      kbo(:, 2,33,15) = (/ &
+        & 0.35618e+02_rb,0.27597e+02_rb,0.25258e+02_rb,0.24592e+02_rb,0.30373e+02_rb /)
+      kbo(:, 3,33,15) = (/ &
+        & 0.34634e+02_rb,0.26685e+02_rb,0.24337e+02_rb,0.23815e+02_rb,0.29666e+02_rb /)
+      kbo(:, 4,33,15) = (/ &
+        & 0.33632e+02_rb,0.25791e+02_rb,0.23459e+02_rb,0.23042e+02_rb,0.28931e+02_rb /)
+      kbo(:, 5,33,15) = (/ &
+        & 0.32632e+02_rb,0.24931e+02_rb,0.22622e+02_rb,0.22288e+02_rb,0.28210e+02_rb /)
+      kbo(:, 1,34,15) = (/ &
+        & 0.36458e+02_rb,0.28392e+02_rb,0.26072e+02_rb,0.25264e+02_rb,0.30972e+02_rb /)
+      kbo(:, 2,34,15) = (/ &
+        & 0.35483e+02_rb,0.27459e+02_rb,0.25106e+02_rb,0.24467e+02_rb,0.30265e+02_rb /)
+      kbo(:, 3,34,15) = (/ &
+        & 0.34486e+02_rb,0.26542e+02_rb,0.24189e+02_rb,0.23688e+02_rb,0.29550e+02_rb /)
+      kbo(:, 4,34,15) = (/ &
+        & 0.33480e+02_rb,0.25653e+02_rb,0.23315e+02_rb,0.22913e+02_rb,0.28811e+02_rb /)
+      kbo(:, 5,34,15) = (/ &
+        & 0.32478e+02_rb,0.24793e+02_rb,0.22484e+02_rb,0.22163e+02_rb,0.28094e+02_rb /)
+      kbo(:, 1,35,15) = (/ &
+        & 0.36414e+02_rb,0.28334e+02_rb,0.25999e+02_rb,0.25206e+02_rb,0.30923e+02_rb /)
+      kbo(:, 2,35,15) = (/ &
+        & 0.35425e+02_rb,0.27395e+02_rb,0.25033e+02_rb,0.24406e+02_rb,0.30215e+02_rb /)
+      kbo(:, 3,35,15) = (/ &
+        & 0.34420e+02_rb,0.26476e+02_rb,0.24117e+02_rb,0.23624e+02_rb,0.29493e+02_rb /)
+      kbo(:, 4,35,15) = (/ &
+        & 0.33407e+02_rb,0.25585e+02_rb,0.23243e+02_rb,0.22849e+02_rb,0.28753e+02_rb /)
+      kbo(:, 5,35,15) = (/ &
+        & 0.32403e+02_rb,0.24726e+02_rb,0.22415e+02_rb,0.22101e+02_rb,0.28034e+02_rb /)
+      kbo(:, 1,36,15) = (/ &
+        & 0.36456e+02_rb,0.28365e+02_rb,0.26023e+02_rb,0.25227e+02_rb,0.30947e+02_rb /)
+      kbo(:, 2,36,15) = (/ &
+        & 0.35465e+02_rb,0.27424e+02_rb,0.25054e+02_rb,0.24425e+02_rb,0.30235e+02_rb /)
+      kbo(:, 3,36,15) = (/ &
+        & 0.34451e+02_rb,0.26498e+02_rb,0.24134e+02_rb,0.23640e+02_rb,0.29510e+02_rb /)
+      kbo(:, 4,36,15) = (/ &
+        & 0.33436e+02_rb,0.25606e+02_rb,0.23259e+02_rb,0.22862e+02_rb,0.28768e+02_rb /)
+      kbo(:, 5,36,15) = (/ &
+        & 0.32427e+02_rb,0.24743e+02_rb,0.22427e+02_rb,0.22112e+02_rb,0.28048e+02_rb /)
+      kbo(:, 1,37,15) = (/ &
+        & 0.36638e+02_rb,0.28533e+02_rb,0.26191e+02_rb,0.25363e+02_rb,0.31069e+02_rb /)
+      kbo(:, 2,37,15) = (/ &
+        & 0.35645e+02_rb,0.27585e+02_rb,0.25212e+02_rb,0.24557e+02_rb,0.30356e+02_rb /)
+      kbo(:, 3,37,15) = (/ &
+        & 0.34632e+02_rb,0.26655e+02_rb,0.24283e+02_rb,0.23768e+02_rb,0.29633e+02_rb /)
+      kbo(:, 4,37,15) = (/ &
+        & 0.33611e+02_rb,0.25753e+02_rb,0.23398e+02_rb,0.22987e+02_rb,0.28889e+02_rb /)
+      kbo(:, 5,37,15) = (/ &
+        & 0.32597e+02_rb,0.24885e+02_rb,0.22559e+02_rb,0.22230e+02_rb,0.28165e+02_rb /)
+      kbo(:, 1,38,15) = (/ &
+        & 0.36818e+02_rb,0.28702e+02_rb,0.26363e+02_rb,0.25503e+02_rb,0.31194e+02_rb /)
+      kbo(:, 2,38,15) = (/ &
+        & 0.35825e+02_rb,0.27749e+02_rb,0.25373e+02_rb,0.24692e+02_rb,0.30479e+02_rb /)
+      kbo(:, 3,38,15) = (/ &
+        & 0.34809e+02_rb,0.26811e+02_rb,0.24434e+02_rb,0.23900e+02_rb,0.29757e+02_rb /)
+      kbo(:, 4,38,15) = (/ &
+        & 0.33789e+02_rb,0.25904e+02_rb,0.23543e+02_rb,0.23114e+02_rb,0.29012e+02_rb /)
+      kbo(:, 5,38,15) = (/ &
+        & 0.32767e+02_rb,0.25028e+02_rb,0.22694e+02_rb,0.22351e+02_rb,0.28285e+02_rb /)
+      kbo(:, 1,39,15) = (/ &
+        & 0.36989e+02_rb,0.28865e+02_rb,0.26530e+02_rb,0.25636e+02_rb,0.31312e+02_rb /)
+      kbo(:, 2,39,15) = (/ &
+        & 0.35999e+02_rb,0.27907e+02_rb,0.25529e+02_rb,0.24823e+02_rb,0.30597e+02_rb /)
+      kbo(:, 3,39,15) = (/ &
+        & 0.34983e+02_rb,0.26966e+02_rb,0.24583e+02_rb,0.24027e+02_rb,0.29878e+02_rb /)
+      kbo(:, 4,39,15) = (/ &
+        & 0.33957e+02_rb,0.26048e+02_rb,0.23683e+02_rb,0.23240e+02_rb,0.29134e+02_rb /)
+      kbo(:, 5,39,15) = (/ &
+        & 0.32935e+02_rb,0.25169e+02_rb,0.22826e+02_rb,0.22468e+02_rb,0.28398e+02_rb /)
+      kbo(:, 1,40,15) = (/ &
+        & 0.37254e+02_rb,0.29125e+02_rb,0.26800e+02_rb,0.25853e+02_rb,0.31502e+02_rb /)
+      kbo(:, 2,40,15) = (/ &
+        & 0.36269e+02_rb,0.28159e+02_rb,0.25786e+02_rb,0.25036e+02_rb,0.30787e+02_rb /)
+      kbo(:, 3,40,15) = (/ &
+        & 0.35253e+02_rb,0.27211e+02_rb,0.24825e+02_rb,0.24233e+02_rb,0.30069e+02_rb /)
+      kbo(:, 4,40,15) = (/ &
+        & 0.34229e+02_rb,0.26287e+02_rb,0.23913e+02_rb,0.23442e+02_rb,0.29327e+02_rb /)
+      kbo(:, 5,40,15) = (/ &
+        & 0.33202e+02_rb,0.25396e+02_rb,0.23042e+02_rb,0.22665e+02_rb,0.28587e+02_rb /)
+      kbo(:, 1,41,15) = (/ &
+        & 0.37526e+02_rb,0.29396e+02_rb,0.27087e+02_rb,0.26081e+02_rb,0.31701e+02_rb /)
+      kbo(:, 2,41,15) = (/ &
+        & 0.36546e+02_rb,0.28422e+02_rb,0.26056e+02_rb,0.25257e+02_rb,0.30982e+02_rb /)
+      kbo(:, 3,41,15) = (/ &
+        & 0.35534e+02_rb,0.27467e+02_rb,0.25079e+02_rb,0.24448e+02_rb,0.30265e+02_rb /)
+      kbo(:, 4,41,15) = (/ &
+        & 0.34510e+02_rb,0.26534e+02_rb,0.24153e+02_rb,0.23654e+02_rb,0.29528e+02_rb /)
+      kbo(:, 5,41,15) = (/ &
+        & 0.33481e+02_rb,0.25633e+02_rb,0.23271e+02_rb,0.22872e+02_rb,0.28783e+02_rb /)
+      kbo(:, 1,42,15) = (/ &
+        & 0.37791e+02_rb,0.29665e+02_rb,0.27375e+02_rb,0.26306e+02_rb,0.31897e+02_rb /)
+      kbo(:, 2,42,15) = (/ &
+        & 0.36818e+02_rb,0.28682e+02_rb,0.26328e+02_rb,0.25479e+02_rb,0.31179e+02_rb /)
+      kbo(:, 3,42,15) = (/ &
+        & 0.35814e+02_rb,0.27725e+02_rb,0.25336e+02_rb,0.24663e+02_rb,0.30459e+02_rb /)
+      kbo(:, 4,42,15) = (/ &
+        & 0.34792e+02_rb,0.26784e+02_rb,0.24397e+02_rb,0.23867e+02_rb,0.29730e+02_rb /)
+      kbo(:, 5,42,15) = (/ &
+        & 0.33761e+02_rb,0.25873e+02_rb,0.23504e+02_rb,0.23079e+02_rb,0.28983e+02_rb /)
+      kbo(:, 1,43,15) = (/ &
+        & 0.38102e+02_rb,0.29987e+02_rb,0.27726e+02_rb,0.26579e+02_rb,0.32132e+02_rb /)
+      kbo(:, 2,43,15) = (/ &
+        & 0.37142e+02_rb,0.29000e+02_rb,0.26660e+02_rb,0.25743e+02_rb,0.31410e+02_rb /)
+      kbo(:, 3,43,15) = (/ &
+        & 0.36146e+02_rb,0.28034e+02_rb,0.25651e+02_rb,0.24927e+02_rb,0.30694e+02_rb /)
+      kbo(:, 4,43,15) = (/ &
+        & 0.35125e+02_rb,0.27087e+02_rb,0.24694e+02_rb,0.24121e+02_rb,0.29968e+02_rb /)
+      kbo(:, 5,43,15) = (/ &
+        & 0.34093e+02_rb,0.26161e+02_rb,0.23786e+02_rb,0.23330e+02_rb,0.29223e+02_rb /)
+      kbo(:, 1,44,15) = (/ &
+        & 0.38433e+02_rb,0.30339e+02_rb,0.28106e+02_rb,0.26874e+02_rb,0.32381e+02_rb /)
+      kbo(:, 2,44,15) = (/ &
+        & 0.37485e+02_rb,0.29344e+02_rb,0.27023e+02_rb,0.26033e+02_rb,0.31664e+02_rb /)
+      kbo(:, 3,44,15) = (/ &
+        & 0.36497e+02_rb,0.28368e+02_rb,0.25996e+02_rb,0.25211e+02_rb,0.30945e+02_rb /)
+      kbo(:, 4,44,15) = (/ &
+        & 0.35483e+02_rb,0.27414e+02_rb,0.25019e+02_rb,0.24397e+02_rb,0.30221e+02_rb /)
+      kbo(:, 5,44,15) = (/ &
+        & 0.34454e+02_rb,0.26480e+02_rb,0.24095e+02_rb,0.23603e+02_rb,0.29482e+02_rb /)
+      kbo(:, 1,45,15) = (/ &
+        & 0.38755e+02_rb,0.30690e+02_rb,0.28491e+02_rb,0.27169e+02_rb,0.32624e+02_rb /)
+      kbo(:, 2,45,15) = (/ &
+        & 0.37819e+02_rb,0.29686e+02_rb,0.27393e+02_rb,0.26324e+02_rb,0.31916e+02_rb /)
+      kbo(:, 3,45,15) = (/ &
+        & 0.36842e+02_rb,0.28700e+02_rb,0.26343e+02_rb,0.25494e+02_rb,0.31195e+02_rb /)
+      kbo(:, 4,45,15) = (/ &
+        & 0.35840e+02_rb,0.27743e+02_rb,0.25350e+02_rb,0.24674e+02_rb,0.30470e+02_rb /)
+      kbo(:, 5,45,15) = (/ &
+        & 0.34814e+02_rb,0.26800e+02_rb,0.24408e+02_rb,0.23874e+02_rb,0.29739e+02_rb /)
+      kbo(:, 1,46,15) = (/ &
+        & 0.39090e+02_rb,0.31065e+02_rb,0.28908e+02_rb,0.27486e+02_rb,0.32877e+02_rb /)
+      kbo(:, 2,46,15) = (/ &
+        & 0.38170e+02_rb,0.30050e+02_rb,0.27790e+02_rb,0.26631e+02_rb,0.32180e+02_rb /)
+      kbo(:, 3,46,15) = (/ &
+        & 0.37208e+02_rb,0.29060e+02_rb,0.26719e+02_rb,0.25793e+02_rb,0.31457e+02_rb /)
+      kbo(:, 4,46,15) = (/ &
+        & 0.36211e+02_rb,0.28091e+02_rb,0.25705e+02_rb,0.24972e+02_rb,0.30735e+02_rb /)
+      kbo(:, 5,46,15) = (/ &
+        & 0.35190e+02_rb,0.27143e+02_rb,0.24746e+02_rb,0.24165e+02_rb,0.30011e+02_rb /)
+      kbo(:, 1,47,15) = (/ &
+        & 0.39451e+02_rb,0.31490e+02_rb,0.29378e+02_rb,0.27842e+02_rb,0.33145e+02_rb /)
+      kbo(:, 2,47,15) = (/ &
+        & 0.38554e+02_rb,0.30463e+02_rb,0.28238e+02_rb,0.26977e+02_rb,0.32470e+02_rb /)
+      kbo(:, 3,47,15) = (/ &
+        & 0.37608e+02_rb,0.29464e+02_rb,0.27149e+02_rb,0.26134e+02_rb,0.31753e+02_rb /)
+      kbo(:, 4,47,15) = (/ &
+        & 0.36624e+02_rb,0.28485e+02_rb,0.26114e+02_rb,0.25307e+02_rb,0.31030e+02_rb /)
+      kbo(:, 5,47,15) = (/ &
+        & 0.35612e+02_rb,0.27529e+02_rb,0.25131e+02_rb,0.24491e+02_rb,0.30307e+02_rb /)
+      kbo(:, 1,48,15) = (/ &
+        & 0.39789e+02_rb,0.31912e+02_rb,0.29855e+02_rb,0.28207e+02_rb,0.33402e+02_rb /)
+      kbo(:, 2,48,15) = (/ &
+        & 0.38929e+02_rb,0.30877e+02_rb,0.28697e+02_rb,0.27328e+02_rb,0.32755e+02_rb /)
+      kbo(:, 3,48,15) = (/ &
+        & 0.38000e+02_rb,0.29868e+02_rb,0.27588e+02_rb,0.26477e+02_rb,0.32050e+02_rb /)
+      kbo(:, 4,48,15) = (/ &
+        & 0.37030e+02_rb,0.28879e+02_rb,0.26527e+02_rb,0.25639e+02_rb,0.31322e+02_rb /)
+      kbo(:, 5,48,15) = (/ &
+        & 0.36027e+02_rb,0.27916e+02_rb,0.25523e+02_rb,0.24819e+02_rb,0.30601e+02_rb /)
+      kbo(:, 1,49,15) = (/ &
+        & 0.40116e+02_rb,0.32336e+02_rb,0.30332e+02_rb,0.28574e+02_rb,0.33637e+02_rb /)
+      kbo(:, 2,49,15) = (/ &
+        & 0.39295e+02_rb,0.31299e+02_rb,0.29164e+02_rb,0.27682e+02_rb,0.33028e+02_rb /)
+      kbo(:, 3,49,15) = (/ &
+        & 0.38385e+02_rb,0.30275e+02_rb,0.28033e+02_rb,0.26821e+02_rb,0.32341e+02_rb /)
+      kbo(:, 4,49,15) = (/ &
+        & 0.37432e+02_rb,0.29281e+02_rb,0.26949e+02_rb,0.25975e+02_rb,0.31615e+02_rb /)
+      kbo(:, 5,49,15) = (/ &
+        & 0.36440e+02_rb,0.28306e+02_rb,0.25923e+02_rb,0.25151e+02_rb,0.30893e+02_rb /)
+      kbo(:, 1,50,15) = (/ &
+        & 0.40414e+02_rb,0.32736e+02_rb,0.30783e+02_rb,0.28924e+02_rb,0.33845e+02_rb /)
+      kbo(:, 2,50,15) = (/ &
+        & 0.39619e+02_rb,0.31694e+02_rb,0.29608e+02_rb,0.28020e+02_rb,0.33276e+02_rb /)
+      kbo(:, 3,50,15) = (/ &
+        & 0.38737e+02_rb,0.30661e+02_rb,0.28456e+02_rb,0.27146e+02_rb,0.32609e+02_rb /)
+      kbo(:, 4,50,15) = (/ &
+        & 0.37800e+02_rb,0.29658e+02_rb,0.27356e+02_rb,0.26296e+02_rb,0.31894e+02_rb /)
+      kbo(:, 5,50,15) = (/ &
+        & 0.36822e+02_rb,0.28673e+02_rb,0.26306e+02_rb,0.25463e+02_rb,0.31168e+02_rb /)
+      kbo(:, 1,51,15) = (/ &
+        & 0.40689e+02_rb,0.33123e+02_rb,0.31211e+02_rb,0.29252e+02_rb,0.34023e+02_rb /)
+      kbo(:, 2,51,15) = (/ &
+        & 0.39919e+02_rb,0.32076e+02_rb,0.30039e+02_rb,0.28350e+02_rb,0.33499e+02_rb /)
+      kbo(:, 3,51,15) = (/ &
+        & 0.39075e+02_rb,0.31039e+02_rb,0.28875e+02_rb,0.27462e+02_rb,0.32860e+02_rb /)
+      kbo(:, 4,51,15) = (/ &
+        & 0.38151e+02_rb,0.30023e+02_rb,0.27755e+02_rb,0.26605e+02_rb,0.32160e+02_rb /)
+      kbo(:, 5,51,15) = (/ &
+        & 0.37189e+02_rb,0.29033e+02_rb,0.26685e+02_rb,0.25765e+02_rb,0.31432e+02_rb /)
+      kbo(:, 1,52,15) = (/ &
+        & 0.40936e+02_rb,0.33510e+02_rb,0.31640e+02_rb,0.29576e+02_rb,0.34183e+02_rb /)
+      kbo(:, 2,52,15) = (/ &
+        & 0.40210e+02_rb,0.32459e+02_rb,0.30471e+02_rb,0.28683e+02_rb,0.33706e+02_rb /)
+      kbo(:, 3,52,15) = (/ &
+        & 0.39397e+02_rb,0.31418e+02_rb,0.29296e+02_rb,0.27784e+02_rb,0.33107e+02_rb /)
+      kbo(:, 4,52,15) = (/ &
+        & 0.38495e+02_rb,0.30394e+02_rb,0.28160e+02_rb,0.26919e+02_rb,0.32422e+02_rb /)
+      kbo(:, 5,52,15) = (/ &
+        & 0.37548e+02_rb,0.29397e+02_rb,0.27070e+02_rb,0.26070e+02_rb,0.31697e+02_rb /)
+      kbo(:, 1,53,15) = (/ &
+        & 0.41161e+02_rb,0.33900e+02_rb,0.32075e+02_rb,0.29895e+02_rb,0.34325e+02_rb /)
+      kbo(:, 2,53,15) = (/ &
+        & 0.40494e+02_rb,0.32844e+02_rb,0.30901e+02_rb,0.29015e+02_rb,0.33898e+02_rb /)
+      kbo(:, 3,53,15) = (/ &
+        & 0.39709e+02_rb,0.31802e+02_rb,0.29726e+02_rb,0.28110e+02_rb,0.33339e+02_rb /)
+      kbo(:, 4,53,15) = (/ &
+        & 0.38833e+02_rb,0.30766e+02_rb,0.28570e+02_rb,0.27234e+02_rb,0.32680e+02_rb /)
+      kbo(:, 5,53,15) = (/ &
+        & 0.37902e+02_rb,0.29761e+02_rb,0.27465e+02_rb,0.26380e+02_rb,0.31966e+02_rb /)
+      kbo(:, 1,54,15) = (/ &
+        & 0.41350e+02_rb,0.34259e+02_rb,0.32468e+02_rb,0.30182e+02_rb,0.34433e+02_rb /)
+      kbo(:, 2,54,15) = (/ &
+        & 0.40740e+02_rb,0.33197e+02_rb,0.31292e+02_rb,0.29316e+02_rb,0.34057e+02_rb /)
+      kbo(:, 3,54,15) = (/ &
+        & 0.39978e+02_rb,0.32149e+02_rb,0.30122e+02_rb,0.28414e+02_rb,0.33542e+02_rb /)
+      kbo(:, 4,54,15) = (/ &
+        & 0.39139e+02_rb,0.31111e+02_rb,0.28955e+02_rb,0.27524e+02_rb,0.32911e+02_rb /)
+      kbo(:, 5,54,15) = (/ &
+        & 0.38222e+02_rb,0.30095e+02_rb,0.27832e+02_rb,0.26664e+02_rb,0.32209e+02_rb /)
+      kbo(:, 1,55,15) = (/ &
+        & 0.41508e+02_rb,0.34608e+02_rb,0.32849e+02_rb,0.30454e+02_rb,0.34522e+02_rb /)
+      kbo(:, 2,55,15) = (/ &
+        & 0.40955e+02_rb,0.33539e+02_rb,0.31671e+02_rb,0.29598e+02_rb,0.34194e+02_rb /)
+      kbo(:, 3,55,15) = (/ &
+        & 0.40232e+02_rb,0.32485e+02_rb,0.30501e+02_rb,0.28707e+02_rb,0.33722e+02_rb /)
+      kbo(:, 4,55,15) = (/ &
+        & 0.39425e+02_rb,0.31448e+02_rb,0.29326e+02_rb,0.27805e+02_rb,0.33122e+02_rb /)
+      kbo(:, 5,55,15) = (/ &
+        & 0.38521e+02_rb,0.30419e+02_rb,0.28187e+02_rb,0.26941e+02_rb,0.32441e+02_rb /)
+      kbo(:, 1,56,15) = (/ &
+        & 0.41645e+02_rb,0.34957e+02_rb,0.33233e+02_rb,0.30720e+02_rb,0.34599e+02_rb /)
+      kbo(:, 2,56,15) = (/ &
+        & 0.41152e+02_rb,0.33880e+02_rb,0.32050e+02_rb,0.29874e+02_rb,0.34316e+02_rb /)
+      kbo(:, 3,56,15) = (/ &
+        & 0.40482e+02_rb,0.32823e+02_rb,0.30877e+02_rb,0.28999e+02_rb,0.33890e+02_rb /)
+      kbo(:, 4,56,15) = (/ &
+        & 0.39696e+02_rb,0.31783e+02_rb,0.29704e+02_rb,0.28093e+02_rb,0.33329e+02_rb /)
+      kbo(:, 5,56,15) = (/ &
+        & 0.38819e+02_rb,0.30747e+02_rb,0.28547e+02_rb,0.27216e+02_rb,0.32666e+02_rb /)
+      kbo(:, 1,57,15) = (/ &
+        & 0.41772e+02_rb,0.35313e+02_rb,0.33621e+02_rb,0.30980e+02_rb,0.34653e+02_rb /)
+      kbo(:, 2,57,15) = (/ &
+        & 0.41335e+02_rb,0.34223e+02_rb,0.32428e+02_rb,0.30152e+02_rb,0.34423e+02_rb /)
+      kbo(:, 3,57,15) = (/ &
+        & 0.40717e+02_rb,0.33158e+02_rb,0.31249e+02_rb,0.29283e+02_rb,0.34041e+02_rb /)
+      kbo(:, 4,57,15) = (/ &
+        & 0.39952e+02_rb,0.32113e+02_rb,0.30080e+02_rb,0.28382e+02_rb,0.33523e+02_rb /)
+      kbo(:, 5,57,15) = (/ &
+        & 0.39110e+02_rb,0.31075e+02_rb,0.28913e+02_rb,0.27492e+02_rb,0.32886e+02_rb /)
+      kbo(:, 1,58,15) = (/ &
+        & 0.41872e+02_rb,0.35648e+02_rb,0.33990e+02_rb,0.31215e+02_rb,0.34668e+02_rb /)
+      kbo(:, 2,58,15) = (/ &
+        & 0.41486e+02_rb,0.34551e+02_rb,0.32786e+02_rb,0.30408e+02_rb,0.34507e+02_rb /)
+      kbo(:, 3,58,15) = (/ &
+        & 0.40923e+02_rb,0.33481e+02_rb,0.31606e+02_rb,0.29553e+02_rb,0.34175e+02_rb /)
+      kbo(:, 4,58,15) = (/ &
+        & 0.40193e+02_rb,0.32431e+02_rb,0.30438e+02_rb,0.28657e+02_rb,0.33692e+02_rb /)
+      kbo(:, 5,58,15) = (/ &
+        & 0.39381e+02_rb,0.31393e+02_rb,0.29263e+02_rb,0.27758e+02_rb,0.33088e+02_rb /)
+      kbo(:, 1,59,15) = (/ &
+        & 0.41905e+02_rb,0.35780e+02_rb,0.34140e+02_rb,0.31306e+02_rb,0.34668e+02_rb /)
+      kbo(:, 2,59,15) = (/ &
+        & 0.41541e+02_rb,0.34683e+02_rb,0.32931e+02_rb,0.30509e+02_rb,0.34539e+02_rb /)
+      kbo(:, 3,59,15) = (/ &
+        & 0.41000e+02_rb,0.33610e+02_rb,0.31751e+02_rb,0.29658e+02_rb,0.34225e+02_rb /)
+      kbo(:, 4,59,15) = (/ &
+        & 0.40289e+02_rb,0.32559e+02_rb,0.30582e+02_rb,0.28769e+02_rb,0.33760e+02_rb /)
+      kbo(:, 5,59,15) = (/ &
+        & 0.39484e+02_rb,0.31518e+02_rb,0.29405e+02_rb,0.27867e+02_rb,0.33169e+02_rb /)
+      kbo(:, 1,13,16) = (/ &
+        & 0.44218e+02_rb,0.33168e+02_rb,0.27605e+02_rb,0.40761e+02_rb,0.54348e+02_rb /)
+      kbo(:, 2,13,16) = (/ &
+        & 0.43915e+02_rb,0.32941e+02_rb,0.26738e+02_rb,0.39342e+02_rb,0.52457e+02_rb /)
+      kbo(:, 3,13,16) = (/ &
+        & 0.43491e+02_rb,0.32624e+02_rb,0.25861e+02_rb,0.38022e+02_rb,0.50696e+02_rb /)
+      kbo(:, 4,13,16) = (/ &
+        & 0.42952e+02_rb,0.32220e+02_rb,0.25010e+02_rb,0.36713e+02_rb,0.48951e+02_rb /)
+      kbo(:, 5,13,16) = (/ &
+        & 0.42305e+02_rb,0.31735e+02_rb,0.24184e+02_rb,0.35417e+02_rb,0.47222e+02_rb /)
+      kbo(:, 1,14,16) = (/ &
+        & 0.50640e+02_rb,0.37984e+02_rb,0.31138e+02_rb,0.45571e+02_rb,0.60761e+02_rb /)
+      kbo(:, 2,14,16) = (/ &
+        & 0.50072e+02_rb,0.37558e+02_rb,0.30053e+02_rb,0.43809e+02_rb,0.58413e+02_rb /)
+      kbo(:, 3,14,16) = (/ &
+        & 0.49384e+02_rb,0.37043e+02_rb,0.28981e+02_rb,0.42162e+02_rb,0.56216e+02_rb /)
+      kbo(:, 4,14,16) = (/ &
+        & 0.48531e+02_rb,0.36404e+02_rb,0.27924e+02_rb,0.40555e+02_rb,0.54074e+02_rb /)
+      kbo(:, 5,14,16) = (/ &
+        & 0.47588e+02_rb,0.35696e+02_rb,0.26896e+02_rb,0.38961e+02_rb,0.51948e+02_rb /)
+      kbo(:, 1,15,16) = (/ &
+        & 0.57280e+02_rb,0.42964e+02_rb,0.34740e+02_rb,0.50323e+02_rb,0.67098e+02_rb /)
+      kbo(:, 2,15,16) = (/ &
+        & 0.56367e+02_rb,0.42280e+02_rb,0.33407e+02_rb,0.48191e+02_rb,0.64255e+02_rb /)
+      kbo(:, 3,15,16) = (/ &
+        & 0.55318e+02_rb,0.41493e+02_rb,0.32092e+02_rb,0.46141e+02_rb,0.61520e+02_rb /)
+      kbo(:, 4,15,16) = (/ &
+        & 0.54108e+02_rb,0.40586e+02_rb,0.30808e+02_rb,0.44198e+02_rb,0.58930e+02_rb /)
+      kbo(:, 5,15,16) = (/ &
+        & 0.52826e+02_rb,0.39625e+02_rb,0.29570e+02_rb,0.42303e+02_rb,0.56404e+02_rb /)
+      kbo(:, 1,16,16) = (/ &
+        & 0.63967e+02_rb,0.47979e+02_rb,0.38312e+02_rb,0.54909e+02_rb,0.73213e+02_rb /)
+      kbo(:, 2,16,16) = (/ &
+        & 0.62626e+02_rb,0.46973e+02_rb,0.36695e+02_rb,0.52345e+02_rb,0.69794e+02_rb /)
+      kbo(:, 3,16,16) = (/ &
+        & 0.61112e+02_rb,0.45838e+02_rb,0.35123e+02_rb,0.49904e+02_rb,0.66539e+02_rb /)
+      kbo(:, 4,16,16) = (/ &
+        & 0.59503e+02_rb,0.44632e+02_rb,0.33592e+02_rb,0.47568e+02_rb,0.63425e+02_rb /)
+      kbo(:, 5,16,16) = (/ &
+        & 0.57855e+02_rb,0.43396e+02_rb,0.32125e+02_rb,0.45372e+02_rb,0.60497e+02_rb /)
+      kbo(:, 1,17,16) = (/ &
+        & 0.70540e+02_rb,0.52908e+02_rb,0.41791e+02_rb,0.59184e+02_rb,0.78912e+02_rb /)
+      kbo(:, 2,17,16) = (/ &
+        & 0.68668e+02_rb,0.51504e+02_rb,0.39850e+02_rb,0.56189e+02_rb,0.74919e+02_rb /)
+      kbo(:, 3,17,16) = (/ &
+        & 0.66662e+02_rb,0.50000e+02_rb,0.37983e+02_rb,0.53339e+02_rb,0.71119e+02_rb /)
+      kbo(:, 4,17,16) = (/ &
+        & 0.64633e+02_rb,0.48479e+02_rb,0.36199e+02_rb,0.50655e+02_rb,0.67541e+02_rb /)
+      kbo(:, 5,17,16) = (/ &
+        & 0.62569e+02_rb,0.46932e+02_rb,0.34500e+02_rb,0.48144e+02_rb,0.64192e+02_rb /)
+      kbo(:, 1,18,16) = (/ &
+        & 0.76762e+02_rb,0.57574e+02_rb,0.45062e+02_rb,0.63079e+02_rb,0.84105e+02_rb /)
+      kbo(:, 2,18,16) = (/ &
+        & 0.74320e+02_rb,0.55743e+02_rb,0.42789e+02_rb,0.59653e+02_rb,0.79537e+02_rb /)
+      kbo(:, 3,18,16) = (/ &
+        & 0.71820e+02_rb,0.53869e+02_rb,0.40630e+02_rb,0.56414e+02_rb,0.75219e+02_rb /)
+      kbo(:, 4,18,16) = (/ &
+        & 0.69367e+02_rb,0.52029e+02_rb,0.38584e+02_rb,0.53391e+02_rb,0.71188e+02_rb /)
+      kbo(:, 5,18,16) = (/ &
+        & 0.66895e+02_rb,0.50176e+02_rb,0.36663e+02_rb,0.50596e+02_rb,0.67461e+02_rb /)
+      kbo(:, 1,19,16) = (/ &
+        & 0.82534e+02_rb,0.61903e+02_rb,0.48066e+02_rb,0.66533e+02_rb,0.88711e+02_rb /)
+      kbo(:, 2,19,16) = (/ &
+        & 0.79500e+02_rb,0.59627e+02_rb,0.45463e+02_rb,0.62698e+02_rb,0.83597e+02_rb /)
+      kbo(:, 3,19,16) = (/ &
+        & 0.76531e+02_rb,0.57402e+02_rb,0.43003e+02_rb,0.59107e+02_rb,0.78810e+02_rb /)
+      kbo(:, 4,19,16) = (/ &
+        & 0.73621e+02_rb,0.55219e+02_rb,0.40714e+02_rb,0.55776e+02_rb,0.74368e+02_rb /)
+      kbo(:, 5,19,16) = (/ &
+        & 0.70758e+02_rb,0.53072e+02_rb,0.38580e+02_rb,0.52720e+02_rb,0.70294e+02_rb /)
+      kbo(:, 1,20,16) = (/ &
+        & 0.87685e+02_rb,0.65766e+02_rb,0.50694e+02_rb,0.69445e+02_rb,0.92594e+02_rb /)
+      kbo(:, 2,20,16) = (/ &
+        & 0.84090e+02_rb,0.63070e+02_rb,0.47778e+02_rb,0.65259e+02_rb,0.87012e+02_rb /)
+      kbo(:, 3,20,16) = (/ &
+        & 0.80661e+02_rb,0.60499e+02_rb,0.45053e+02_rb,0.61350e+02_rb,0.81800e+02_rb /)
+      kbo(:, 4,20,16) = (/ &
+        & 0.77340e+02_rb,0.58008e+02_rb,0.42537e+02_rb,0.57756e+02_rb,0.77009e+02_rb /)
+      kbo(:, 5,20,16) = (/ &
+        & 0.74079e+02_rb,0.55564e+02_rb,0.40201e+02_rb,0.54475e+02_rb,0.72633e+02_rb /)
+      kbo(:, 1,21,16) = (/ &
+        & 0.92165e+02_rb,0.69126e+02_rb,0.52960e+02_rb,0.71872e+02_rb,0.95829e+02_rb /)
+      kbo(:, 2,21,16) = (/ &
+        & 0.88084e+02_rb,0.66065e+02_rb,0.49750e+02_rb,0.67363e+02_rb,0.89818e+02_rb /)
+      kbo(:, 3,21,16) = (/ &
+        & 0.84210e+02_rb,0.63159e+02_rb,0.46796e+02_rb,0.63194e+02_rb,0.84259e+02_rb /)
+      kbo(:, 4,21,16) = (/ &
+        & 0.80508e+02_rb,0.60384e+02_rb,0.44071e+02_rb,0.59388e+02_rb,0.79185e+02_rb /)
+      kbo(:, 5,21,16) = (/ &
+        & 0.76889e+02_rb,0.57670e+02_rb,0.41555e+02_rb,0.55904e+02_rb,0.74538e+02_rb /)
+      kbo(:, 1,22,16) = (/ &
+        & 0.95696e+02_rb,0.71774e+02_rb,0.54631e+02_rb,0.73526e+02_rb,0.98034e+02_rb /)
+      kbo(:, 2,22,16) = (/ &
+        & 0.91190e+02_rb,0.68395e+02_rb,0.51188e+02_rb,0.68768e+02_rb,0.91690e+02_rb /)
+      kbo(:, 3,22,16) = (/ &
+        & 0.86939e+02_rb,0.65206e+02_rb,0.48040e+02_rb,0.64409e+02_rb,0.85879e+02_rb /)
+      kbo(:, 4,22,16) = (/ &
+        & 0.82890e+02_rb,0.62171e+02_rb,0.45151e+02_rb,0.60441e+02_rb,0.80589e+02_rb /)
+      kbo(:, 5,22,16) = (/ &
+        & 0.78983e+02_rb,0.59241e+02_rb,0.42494e+02_rb,0.56811e+02_rb,0.75748e+02_rb /)
+      kbo(:, 1,23,16) = (/ &
+        & 0.98505e+02_rb,0.73881e+02_rb,0.55897e+02_rb,0.74690e+02_rb,0.99587e+02_rb /)
+      kbo(:, 2,23,16) = (/ &
+        & 0.93651e+02_rb,0.70240e+02_rb,0.52277e+02_rb,0.69755e+02_rb,0.93007e+02_rb /)
+      kbo(:, 3,23,16) = (/ &
+        & 0.89065e+02_rb,0.66801e+02_rb,0.48963e+02_rb,0.65256e+02_rb,0.87008e+02_rb /)
+      kbo(:, 4,23,16) = (/ &
+        & 0.84725e+02_rb,0.63546e+02_rb,0.45949e+02_rb,0.61155e+02_rb,0.81540e+02_rb /)
+      kbo(:, 5,23,16) = (/ &
+        & 0.80582e+02_rb,0.60440e+02_rb,0.43182e+02_rb,0.57417e+02_rb,0.76556e+02_rb /)
+      kbo(:, 1,24,16) = (/ &
+        & 0.10064e+03_rb,0.75484e+02_rb,0.56783e+02_rb,0.75422e+02_rb,0.10056e+03_rb /)
+      kbo(:, 2,24,16) = (/ &
+        & 0.95486e+02_rb,0.71616e+02_rb,0.53021e+02_rb,0.70355e+02_rb,0.93807e+02_rb /)
+      kbo(:, 3,24,16) = (/ &
+        & 0.90630e+02_rb,0.67975e+02_rb,0.49592e+02_rb,0.65751e+02_rb,0.87668e+02_rb /)
+      kbo(:, 4,24,16) = (/ &
+        & 0.86059e+02_rb,0.64548e+02_rb,0.46483e+02_rb,0.61565e+02_rb,0.82086e+02_rb /)
+      kbo(:, 5,24,16) = (/ &
+        & 0.81718e+02_rb,0.61292e+02_rb,0.43631e+02_rb,0.57753e+02_rb,0.77003e+02_rb /)
+      kbo(:, 1,25,16) = (/ &
+        & 0.10215e+03_rb,0.76618e+02_rb,0.57324e+02_rb,0.75759e+02_rb,0.10101e+03_rb /)
+      kbo(:, 2,25,16) = (/ &
+        & 0.96743e+02_rb,0.72560e+02_rb,0.53446e+02_rb,0.70607e+02_rb,0.94143e+02_rb /)
+      kbo(:, 3,25,16) = (/ &
+        & 0.91681e+02_rb,0.68763e+02_rb,0.49955e+02_rb,0.65940e+02_rb,0.87921e+02_rb /)
+      kbo(:, 4,25,16) = (/ &
+        & 0.86919e+02_rb,0.65192e+02_rb,0.46773e+02_rb,0.61703e+02_rb,0.82270e+02_rb /)
+      kbo(:, 5,25,16) = (/ &
+        & 0.82440e+02_rb,0.61834e+02_rb,0.43873e+02_rb,0.57842e+02_rb,0.77123e+02_rb /)
+      kbo(:, 1,26,16) = (/ &
+        & 0.10303e+03_rb,0.77274e+02_rb,0.57519e+02_rb,0.75701e+02_rb,0.10093e+03_rb /)
+      kbo(:, 2,26,16) = (/ &
+        & 0.97444e+02_rb,0.73085e+02_rb,0.53575e+02_rb,0.70525e+02_rb,0.94033e+02_rb /)
+      kbo(:, 3,26,16) = (/ &
+        & 0.92222e+02_rb,0.69170e+02_rb,0.50048e+02_rb,0.65828e+02_rb,0.87771e+02_rb /)
+      kbo(:, 4,26,16) = (/ &
+        & 0.87336e+02_rb,0.65505e+02_rb,0.46824e+02_rb,0.61566e+02_rb,0.82088e+02_rb /)
+      kbo(:, 5,26,16) = (/ &
+        & 0.82771e+02_rb,0.62082e+02_rb,0.43909e+02_rb,0.57710e+02_rb,0.76947e+02_rb /)
+      kbo(:, 1,27,16) = (/ &
+        & 0.10345e+03_rb,0.77590e+02_rb,0.57467e+02_rb,0.75392e+02_rb,0.10052e+03_rb /)
+      kbo(:, 2,27,16) = (/ &
+        & 0.97739e+02_rb,0.73306e+02_rb,0.53511e+02_rb,0.70214e+02_rb,0.93619e+02_rb /)
+      kbo(:, 3,27,16) = (/ &
+        & 0.92406e+02_rb,0.69307e+02_rb,0.49956e+02_rb,0.65525e+02_rb,0.87366e+02_rb /)
+      kbo(:, 4,27,16) = (/ &
+        & 0.87439e+02_rb,0.65583e+02_rb,0.46715e+02_rb,0.61255e+02_rb,0.81674e+02_rb /)
+      kbo(:, 5,27,16) = (/ &
+        & 0.82826e+02_rb,0.62123e+02_rb,0.43807e+02_rb,0.57432e+02_rb,0.76576e+02_rb /)
+      kbo(:, 1,28,16) = (/ &
+        & 0.10350e+03_rb,0.77625e+02_rb,0.57222e+02_rb,0.74881e+02_rb,0.99841e+02_rb /)
+      kbo(:, 2,28,16) = (/ &
+        & 0.97691e+02_rb,0.73271e+02_rb,0.53275e+02_rb,0.69730e+02_rb,0.92974e+02_rb /)
+      kbo(:, 3,28,16) = (/ &
+        & 0.92289e+02_rb,0.69219e+02_rb,0.49719e+02_rb,0.65057e+02_rb,0.86743e+02_rb /)
+      kbo(:, 4,28,16) = (/ &
+        & 0.87284e+02_rb,0.65466e+02_rb,0.46485e+02_rb,0.60817e+02_rb,0.81090e+02_rb /)
+      kbo(:, 5,28,16) = (/ &
+        & 0.82640e+02_rb,0.61984e+02_rb,0.43588e+02_rb,0.57042e+02_rb,0.76055e+02_rb /)
+      kbo(:, 1,29,16) = (/ &
+        & 0.10319e+03_rb,0.77394e+02_rb,0.56799e+02_rb,0.74179e+02_rb,0.98906e+02_rb /)
+      kbo(:, 2,29,16) = (/ &
+        & 0.97340e+02_rb,0.73008e+02_rb,0.52885e+02_rb,0.69064e+02_rb,0.92086e+02_rb /)
+      kbo(:, 3,29,16) = (/ &
+        & 0.91909e+02_rb,0.68935e+02_rb,0.49342e+02_rb,0.64439e+02_rb,0.85918e+02_rb /)
+      kbo(:, 4,29,16) = (/ &
+        & 0.86890e+02_rb,0.65171e+02_rb,0.46144e+02_rb,0.60253e+02_rb,0.80337e+02_rb /)
+      kbo(:, 5,29,16) = (/ &
+        & 0.82249e+02_rb,0.61690e+02_rb,0.43266e+02_rb,0.56539e+02_rb,0.75385e+02_rb /)
+      kbo(:, 1,30,16) = (/ &
+        & 0.10264e+03_rb,0.76981e+02_rb,0.56267e+02_rb,0.73352e+02_rb,0.97803e+02_rb /)
+      kbo(:, 2,30,16) = (/ &
+        & 0.96761e+02_rb,0.72573e+02_rb,0.52390e+02_rb,0.68302e+02_rb,0.91070e+02_rb /)
+      kbo(:, 3,30,16) = (/ &
+        & 0.91349e+02_rb,0.68515e+02_rb,0.48877e+02_rb,0.63734e+02_rb,0.84978e+02_rb /)
+      kbo(:, 4,30,16) = (/ &
+        & 0.86346e+02_rb,0.64763e+02_rb,0.45722e+02_rb,0.59615e+02_rb,0.79487e+02_rb /)
+      kbo(:, 5,30,16) = (/ &
+        & 0.81701e+02_rb,0.61280e+02_rb,0.42874e+02_rb,0.55973e+02_rb,0.74631e+02_rb /)
+      kbo(:, 1,31,16) = (/ &
+        & 0.10185e+03_rb,0.76389e+02_rb,0.55624e+02_rb,0.72410e+02_rb,0.96547e+02_rb /)
+      kbo(:, 2,31,16) = (/ &
+        & 0.95999e+02_rb,0.72002e+02_rb,0.51796e+02_rb,0.67443e+02_rb,0.89924e+02_rb /)
+      kbo(:, 3,31,16) = (/ &
+        & 0.90614e+02_rb,0.67963e+02_rb,0.48327e+02_rb,0.62938e+02_rb,0.83917e+02_rb /)
+      kbo(:, 4,31,16) = (/ &
+        & 0.85645e+02_rb,0.64237e+02_rb,0.45228e+02_rb,0.58906e+02_rb,0.78542e+02_rb /)
+      kbo(:, 5,31,16) = (/ &
+        & 0.81007e+02_rb,0.60759e+02_rb,0.42414e+02_rb,0.55328e+02_rb,0.73771e+02_rb /)
+      kbo(:, 1,32,16) = (/ &
+        & 0.10089e+03_rb,0.75672e+02_rb,0.54904e+02_rb,0.71387e+02_rb,0.95183e+02_rb /)
+      kbo(:, 2,32,16) = (/ &
+        & 0.95077e+02_rb,0.71310e+02_rb,0.51129e+02_rb,0.66501e+02_rb,0.88668e+02_rb /)
+      kbo(:, 3,32,16) = (/ &
+        & 0.89743e+02_rb,0.67310e+02_rb,0.47720e+02_rb,0.62089e+02_rb,0.82785e+02_rb /)
+      kbo(:, 4,32,16) = (/ &
+        & 0.84830e+02_rb,0.63626e+02_rb,0.44676e+02_rb,0.58147e+02_rb,0.77529e+02_rb /)
+      kbo(:, 5,32,16) = (/ &
+        & 0.80208e+02_rb,0.60160e+02_rb,0.41909e+02_rb,0.54638e+02_rb,0.72851e+02_rb /)
+      kbo(:, 1,33,16) = (/ &
+        & 0.99806e+02_rb,0.74857e+02_rb,0.54124e+02_rb,0.70307e+02_rb,0.93742e+02_rb /)
+      kbo(:, 2,33,16) = (/ &
+        & 0.94060e+02_rb,0.70548e+02_rb,0.50418e+02_rb,0.65525e+02_rb,0.87366e+02_rb /)
+      kbo(:, 3,33,16) = (/ &
+        & 0.88780e+02_rb,0.66588e+02_rb,0.47080e+02_rb,0.61195e+02_rb,0.81594e+02_rb /)
+      kbo(:, 4,33,16) = (/ &
+        & 0.83926e+02_rb,0.62948e+02_rb,0.44091e+02_rb,0.57369e+02_rb,0.76493e+02_rb /)
+      kbo(:, 5,33,16) = (/ &
+        & 0.79342e+02_rb,0.59511e+02_rb,0.41372e+02_rb,0.53910e+02_rb,0.71880e+02_rb /)
+      kbo(:, 1,34,16) = (/ &
+        & 0.98842e+02_rb,0.74134e+02_rb,0.53446e+02_rb,0.69373e+02_rb,0.92498e+02_rb /)
+      kbo(:, 2,34,16) = (/ &
+        & 0.93169e+02_rb,0.69879e+02_rb,0.49796e+02_rb,0.64672e+02_rb,0.86229e+02_rb /)
+      kbo(:, 3,34,16) = (/ &
+        & 0.87940e+02_rb,0.65958e+02_rb,0.46525e+02_rb,0.60437e+02_rb,0.80583e+02_rb /)
+      kbo(:, 4,34,16) = (/ &
+        & 0.83124e+02_rb,0.62347e+02_rb,0.43581e+02_rb,0.56689e+02_rb,0.75585e+02_rb /)
+      kbo(:, 5,34,16) = (/ &
+        & 0.78566e+02_rb,0.58929e+02_rb,0.40900e+02_rb,0.53287e+02_rb,0.71049e+02_rb /)
+      kbo(:, 1,35,16) = (/ &
+        & 0.98383e+02_rb,0.73790e+02_rb,0.53104e+02_rb,0.68893e+02_rb,0.91857e+02_rb /)
+      kbo(:, 2,35,16) = (/ &
+        & 0.92731e+02_rb,0.69551e+02_rb,0.49484e+02_rb,0.64233e+02_rb,0.85643e+02_rb /)
+      kbo(:, 3,35,16) = (/ &
+        & 0.87537e+02_rb,0.65656e+02_rb,0.46247e+02_rb,0.60050e+02_rb,0.80067e+02_rb /)
+      kbo(:, 4,35,16) = (/ &
+        & 0.82730e+02_rb,0.62051e+02_rb,0.43325e+02_rb,0.56336e+02_rb,0.75115e+02_rb /)
+      kbo(:, 5,35,16) = (/ &
+        & 0.78184e+02_rb,0.58642e+02_rb,0.40664e+02_rb,0.52959e+02_rb,0.70611e+02_rb /)
+      kbo(:, 1,36,16) = (/ &
+        & 0.98510e+02_rb,0.73885e+02_rb,0.53153e+02_rb,0.68921e+02_rb,0.91895e+02_rb /)
+      kbo(:, 2,36,16) = (/ &
+        & 0.92845e+02_rb,0.69637e+02_rb,0.49525e+02_rb,0.64248e+02_rb,0.85664e+02_rb /)
+      kbo(:, 3,36,16) = (/ &
+        & 0.87626e+02_rb,0.65723e+02_rb,0.46281e+02_rb,0.60067e+02_rb,0.80090e+02_rb /)
+      kbo(:, 4,36,16) = (/ &
+        & 0.82805e+02_rb,0.62108e+02_rb,0.43352e+02_rb,0.56351e+02_rb,0.75135e+02_rb /)
+      kbo(:, 5,36,16) = (/ &
+        & 0.78246e+02_rb,0.58689e+02_rb,0.40687e+02_rb,0.52970e+02_rb,0.70627e+02_rb /)
+      kbo(:, 1,37,16) = (/ &
+        & 0.99499e+02_rb,0.74626e+02_rb,0.53765e+02_rb,0.69681e+02_rb,0.92907e+02_rb /)
+      kbo(:, 2,37,16) = (/ &
+        & 0.93737e+02_rb,0.70305e+02_rb,0.50072e+02_rb,0.64938e+02_rb,0.86584e+02_rb /)
+      kbo(:, 3,37,16) = (/ &
+        & 0.88443e+02_rb,0.66336e+02_rb,0.46765e+02_rb,0.60669e+02_rb,0.80892e+02_rb /)
+      kbo(:, 4,37,16) = (/ &
+        & 0.83569e+02_rb,0.62680e+02_rb,0.43792e+02_rb,0.56887e+02_rb,0.75849e+02_rb /)
+      kbo(:, 5,37,16) = (/ &
+        & 0.78959e+02_rb,0.59223e+02_rb,0.41087e+02_rb,0.53464e+02_rb,0.71286e+02_rb /)
+      kbo(:, 1,38,16) = (/ &
+        & 0.10053e+03_rb,0.75401e+02_rb,0.54401e+02_rb,0.70469e+02_rb,0.93958e+02_rb /)
+      kbo(:, 2,38,16) = (/ &
+        & 0.94665e+02_rb,0.71001e+02_rb,0.50643e+02_rb,0.65651e+02_rb,0.87535e+02_rb /)
+      kbo(:, 3,38,16) = (/ &
+        & 0.89287e+02_rb,0.66968e+02_rb,0.47272e+02_rb,0.61298e+02_rb,0.81730e+02_rb /)
+      kbo(:, 4,38,16) = (/ &
+        & 0.84354e+02_rb,0.63269e+02_rb,0.44250e+02_rb,0.57455e+02_rb,0.76607e+02_rb /)
+      kbo(:, 5,38,16) = (/ &
+        & 0.79688e+02_rb,0.59770e+02_rb,0.41502e+02_rb,0.53978e+02_rb,0.71970e+02_rb /)
+      kbo(:, 1,39,16) = (/ &
+        & 0.10152e+03_rb,0.76145e+02_rb,0.55030e+02_rb,0.71266e+02_rb,0.95022e+02_rb /)
+      kbo(:, 2,39,16) = (/ &
+        & 0.95574e+02_rb,0.71683e+02_rb,0.51208e+02_rb,0.66359e+02_rb,0.88479e+02_rb /)
+      kbo(:, 3,39,16) = (/ &
+        & 0.90127e+02_rb,0.67598e+02_rb,0.47776e+02_rb,0.61934e+02_rb,0.82579e+02_rb /)
+      kbo(:, 4,39,16) = (/ &
+        & 0.85122e+02_rb,0.63845e+02_rb,0.44704e+02_rb,0.58015e+02_rb,0.77353e+02_rb /)
+      kbo(:, 5,39,16) = (/ &
+        & 0.80410e+02_rb,0.60311e+02_rb,0.41916e+02_rb,0.54486e+02_rb,0.72649e+02_rb /)
+      kbo(:, 1,40,16) = (/ &
+        & 0.10316e+03_rb,0.77371e+02_rb,0.56077e+02_rb,0.72600e+02_rb,0.96800e+02_rb /)
+      kbo(:, 2,40,16) = (/ &
+        & 0.97060e+02_rb,0.72797e+02_rb,0.52149e+02_rb,0.67558e+02_rb,0.90077e+02_rb /)
+      kbo(:, 3,40,16) = (/ &
+        & 0.91509e+02_rb,0.68635e+02_rb,0.48618e+02_rb,0.63010e+02_rb,0.84013e+02_rb /)
+      kbo(:, 4,40,16) = (/ &
+        & 0.86384e+02_rb,0.64791e+02_rb,0.45460e+02_rb,0.58959e+02_rb,0.78612e+02_rb /)
+      kbo(:, 5,40,16) = (/ &
+        & 0.81600e+02_rb,0.61204e+02_rb,0.42605e+02_rb,0.55349e+02_rb,0.73798e+02_rb /)
+      kbo(:, 1,41,16) = (/ &
+        & 0.10490e+03_rb,0.78677e+02_rb,0.57202e+02_rb,0.74030e+02_rb,0.98707e+02_rb /)
+      kbo(:, 2,41,16) = (/ &
+        & 0.98655e+02_rb,0.73994e+02_rb,0.53155e+02_rb,0.68836e+02_rb,0.91782e+02_rb /)
+      kbo(:, 3,41,16) = (/ &
+        & 0.92964e+02_rb,0.69726e+02_rb,0.49517e+02_rb,0.64156e+02_rb,0.85541e+02_rb /)
+      kbo(:, 4,41,16) = (/ &
+        & 0.87720e+02_rb,0.65793e+02_rb,0.46275e+02_rb,0.59984e+02_rb,0.79978e+02_rb /)
+      kbo(:, 5,41,16) = (/ &
+        & 0.82858e+02_rb,0.62147e+02_rb,0.43340e+02_rb,0.56275e+02_rb,0.75033e+02_rb /)
+      kbo(:, 1,42,16) = (/ &
+        & 0.10666e+03_rb,0.79997e+02_rb,0.58340e+02_rb,0.75485e+02_rb,0.10065e+03_rb /)
+      kbo(:, 2,42,16) = (/ &
+        & 0.10028e+03_rb,0.75211e+02_rb,0.54189e+02_rb,0.70153e+02_rb,0.93537e+02_rb /)
+      kbo(:, 3,42,16) = (/ &
+        & 0.94432e+02_rb,0.70827e+02_rb,0.50443e+02_rb,0.65340e+02_rb,0.87121e+02_rb /)
+      kbo(:, 4,42,16) = (/ &
+        & 0.89075e+02_rb,0.66809e+02_rb,0.47102e+02_rb,0.61032e+02_rb,0.81376e+02_rb /)
+      kbo(:, 5,42,16) = (/ &
+        & 0.84125e+02_rb,0.63097e+02_rb,0.44086e+02_rb,0.57211e+02_rb,0.76281e+02_rb /)
+      kbo(:, 1,43,16) = (/ &
+        & 0.10883e+03_rb,0.81624e+02_rb,0.59771e+02_rb,0.77309e+02_rb,0.10308e+03_rb /)
+      kbo(:, 2,43,16) = (/ &
+        & 0.10228e+03_rb,0.76711e+02_rb,0.55476e+02_rb,0.71797e+02_rb,0.95729e+02_rb /)
+      kbo(:, 3,43,16) = (/ &
+        & 0.96257e+02_rb,0.72196e+02_rb,0.51599e+02_rb,0.66824e+02_rb,0.89098e+02_rb /)
+      kbo(:, 4,43,16) = (/ &
+        & 0.90745e+02_rb,0.68062e+02_rb,0.48126e+02_rb,0.62350e+02_rb,0.83134e+02_rb /)
+      kbo(:, 5,43,16) = (/ &
+        & 0.85682e+02_rb,0.64265e+02_rb,0.45017e+02_rb,0.58380e+02_rb,0.77840e+02_rb /)
+      kbo(:, 1,44,16) = (/ &
+        & 0.11122e+03_rb,0.83416e+02_rb,0.61378e+02_rb,0.79350e+02_rb,0.10580e+03_rb /)
+      kbo(:, 2,44,16) = (/ &
+        & 0.10448e+03_rb,0.78362e+02_rb,0.56905e+02_rb,0.73629e+02_rb,0.98171e+02_rb /)
+      kbo(:, 3,44,16) = (/ &
+        & 0.98280e+02_rb,0.73712e+02_rb,0.52886e+02_rb,0.68474e+02_rb,0.91299e+02_rb /)
+      kbo(:, 4,44,16) = (/ &
+        & 0.92614e+02_rb,0.69464e+02_rb,0.49277e+02_rb,0.63819e+02_rb,0.85092e+02_rb /)
+      kbo(:, 5,44,16) = (/ &
+        & 0.87390e+02_rb,0.65546e+02_rb,0.46054e+02_rb,0.59688e+02_rb,0.79585e+02_rb /)
+      kbo(:, 1,45,16) = (/ &
+        & 0.11367e+03_rb,0.85251e+02_rb,0.63043e+02_rb,0.81458e+02_rb,0.10861e+03_rb /)
+      kbo(:, 2,45,16) = (/ &
+        & 0.10674e+03_rb,0.80056e+02_rb,0.58377e+02_rb,0.75516e+02_rb,0.10069e+03_rb /)
+      kbo(:, 3,45,16) = (/ &
+        & 0.10036e+03_rb,0.75271e+02_rb,0.54217e+02_rb,0.70172e+02_rb,0.93562e+02_rb /)
+      kbo(:, 4,45,16) = (/ &
+        & 0.94507e+02_rb,0.70883e+02_rb,0.50472e+02_rb,0.65352e+02_rb,0.87137e+02_rb /)
+      kbo(:, 5,45,16) = (/ &
+        & 0.89124e+02_rb,0.66846e+02_rb,0.47119e+02_rb,0.61044e+02_rb,0.81393e+02_rb /)
+      kbo(:, 1,46,16) = (/ &
+        & 0.11634e+03_rb,0.87256e+02_rb,0.64886e+02_rb,0.83772e+02_rb,0.11170e+03_rb /)
+      kbo(:, 2,46,16) = (/ &
+        & 0.10921e+03_rb,0.81909e+02_rb,0.60009e+02_rb,0.77600e+02_rb,0.10347e+03_rb /)
+      kbo(:, 3,46,16) = (/ &
+        & 0.10262e+03_rb,0.76969e+02_rb,0.55682e+02_rb,0.72046e+02_rb,0.96062e+02_rb /)
+      kbo(:, 4,46,16) = (/ &
+        & 0.96578e+02_rb,0.72436e+02_rb,0.51790e+02_rb,0.67050e+02_rb,0.89399e+02_rb /)
+      kbo(:, 5,46,16) = (/ &
+        & 0.91036e+02_rb,0.68280e+02_rb,0.48293e+02_rb,0.62556e+02_rb,0.83408e+02_rb /)
+      kbo(:, 1,47,16) = (/ &
+        & 0.11944e+03_rb,0.89580e+02_rb,0.67039e+02_rb,0.86470e+02_rb,0.11529e+03_rb /)
+      kbo(:, 2,47,16) = (/ &
+        & 0.11203e+03_rb,0.84025e+02_rb,0.61916e+02_rb,0.80032e+02_rb,0.10671e+03_rb /)
+      kbo(:, 3,47,16) = (/ &
+        & 0.10523e+03_rb,0.78928e+02_rb,0.57378e+02_rb,0.74229e+02_rb,0.98972e+02_rb /)
+      kbo(:, 4,47,16) = (/ &
+        & 0.98975e+02_rb,0.74234e+02_rb,0.53317e+02_rb,0.69003e+02_rb,0.92005e+02_rb /)
+      kbo(:, 5,47,16) = (/ &
+        & 0.93247e+02_rb,0.69938e+02_rb,0.49666e+02_rb,0.64309e+02_rb,0.85745e+02_rb /)
+      kbo(:, 1,48,16) = (/ &
+        & 0.12267e+03_rb,0.92006e+02_rb,0.69290e+02_rb,0.89280e+02_rb,0.11904e+03_rb /)
+      kbo(:, 2,48,16) = (/ &
+        & 0.11495e+03_rb,0.86215e+02_rb,0.63917e+02_rb,0.82556e+02_rb,0.11008e+03_rb /)
+      kbo(:, 3,48,16) = (/ &
+        & 0.10793e+03_rb,0.80951e+02_rb,0.59146e+02_rb,0.76493e+02_rb,0.10199e+03_rb /)
+      kbo(:, 4,48,16) = (/ &
+        & 0.10147e+03_rb,0.76101e+02_rb,0.54918e+02_rb,0.71050e+02_rb,0.94733e+02_rb /)
+      kbo(:, 5,48,16) = (/ &
+        & 0.95498e+02_rb,0.71626e+02_rb,0.51095e+02_rb,0.66155e+02_rb,0.88207e+02_rb /)
+      kbo(:, 1,49,16) = (/ &
+        & 0.12603e+03_rb,0.94521e+02_rb,0.71680e+02_rb,0.92236e+02_rb,0.12298e+03_rb /)
+      kbo(:, 2,49,16) = (/ &
+        & 0.11801e+03_rb,0.88509e+02_rb,0.66027e+02_rb,0.85192e+02_rb,0.11359e+03_rb /)
+      kbo(:, 3,49,16) = (/ &
+        & 0.11070e+03_rb,0.83029e+02_rb,0.61003e+02_rb,0.78868e+02_rb,0.10516e+03_rb /)
+      kbo(:, 4,49,16) = (/ &
+        & 0.10402e+03_rb,0.78016e+02_rb,0.56578e+02_rb,0.73185e+02_rb,0.97580e+02_rb /)
+      kbo(:, 5,49,16) = (/ &
+        & 0.97847e+02_rb,0.73387e+02_rb,0.52593e+02_rb,0.68075e+02_rb,0.90767e+02_rb /)
+      kbo(:, 1,50,16) = (/ &
+        & 0.12933e+03_rb,0.96996e+02_rb,0.74078e+02_rb,0.95132e+02_rb,0.12684e+03_rb /)
+      kbo(:, 2,50,16) = (/ &
+        & 0.12097e+03_rb,0.90726e+02_rb,0.68085e+02_rb,0.87768e+02_rb,0.11702e+03_rb /)
+      kbo(:, 3,50,16) = (/ &
+        & 0.11343e+03_rb,0.85073e+02_rb,0.62849e+02_rb,0.81185e+02_rb,0.10825e+03_rb /)
+      kbo(:, 4,50,16) = (/ &
+        & 0.10650e+03_rb,0.79879e+02_rb,0.58193e+02_rb,0.75257e+02_rb,0.10034e+03_rb /)
+      kbo(:, 5,50,16) = (/ &
+        & 0.10012e+03_rb,0.75094e+02_rb,0.54050e+02_rb,0.69940e+02_rb,0.93253e+02_rb /)
+      kbo(:, 1,51,16) = (/ &
+        & 0.13262e+03_rb,0.99463e+02_rb,0.76537e+02_rb,0.98089e+02_rb,0.13079e+03_rb /)
+      kbo(:, 2,51,16) = (/ &
+        & 0.12396e+03_rb,0.92972e+02_rb,0.70180e+02_rb,0.90371e+02_rb,0.12049e+03_rb /)
+      kbo(:, 3,51,16) = (/ &
+        & 0.11611e+03_rb,0.87085e+02_rb,0.64700e+02_rb,0.83525e+02_rb,0.11137e+03_rb /)
+      kbo(:, 4,51,16) = (/ &
+        & 0.10897e+03_rb,0.81728e+02_rb,0.59829e+02_rb,0.77356e+02_rb,0.10314e+03_rb /)
+      kbo(:, 5,51,16) = (/ &
+        & 0.10241e+03_rb,0.76807e+02_rb,0.55526e+02_rb,0.71828e+02_rb,0.95771e+02_rb /)
+      kbo(:, 1,52,16) = (/ &
+        & 0.13607e+03_rb,0.10205e+03_rb,0.79117e+02_rb,0.10117e+03_rb,0.13489e+03_rb /)
+      kbo(:, 2,52,16) = (/ &
+        & 0.12703e+03_rb,0.95276e+02_rb,0.72382e+02_rb,0.93082e+02_rb,0.12411e+03_rb /)
+      kbo(:, 3,52,16) = (/ &
+        & 0.11888e+03_rb,0.89162e+02_rb,0.66631e+02_rb,0.85943e+02_rb,0.11459e+03_rb /)
+      kbo(:, 4,52,16) = (/ &
+        & 0.11155e+03_rb,0.83666e+02_rb,0.61557e+02_rb,0.79542e+02_rb,0.10606e+03_rb /)
+      kbo(:, 5,52,16) = (/ &
+        & 0.10475e+03_rb,0.78563e+02_rb,0.57053e+02_rb,0.73794e+02_rb,0.98392e+02_rb /)
+      kbo(:, 1,53,16) = (/ &
+        & 0.13969e+03_rb,0.10477e+03_rb,0.81852e+02_rb,0.10445e+03_rb,0.13926e+03_rb /)
+      kbo(:, 2,53,16) = (/ &
+        & 0.13021e+03_rb,0.97660e+02_rb,0.74731e+02_rb,0.95923e+02_rb,0.12790e+03_rb /)
+      kbo(:, 3,53,16) = (/ &
+        & 0.12178e+03_rb,0.91333e+02_rb,0.68644e+02_rb,0.88461e+02_rb,0.11795e+03_rb /)
+      kbo(:, 4,53,16) = (/ &
+        & 0.11417e+03_rb,0.85628e+02_rb,0.63346e+02_rb,0.81812e+02_rb,0.10908e+03_rb /)
+      kbo(:, 5,53,16) = (/ &
+        & 0.10716e+03_rb,0.80376e+02_rb,0.58630e+02_rb,0.75816e+02_rb,0.10109e+03_rb /)
+      kbo(:, 1,54,16) = (/ &
+        & 0.14312e+03_rb,0.10734e+03_rb,0.84505e+02_rb,0.10757e+03_rb,0.14343e+03_rb /)
+      kbo(:, 2,54,16) = (/ &
+        & 0.13326e+03_rb,0.99943e+02_rb,0.77008e+02_rb,0.98653e+02_rb,0.13154e+03_rb /)
+      kbo(:, 3,54,16) = (/ &
+        & 0.12453e+03_rb,0.93400e+02_rb,0.70583e+02_rb,0.90867e+02_rb,0.12116e+03_rb /)
+      kbo(:, 4,54,16) = (/ &
+        & 0.11663e+03_rb,0.87472e+02_rb,0.65055e+02_rb,0.83971e+02_rb,0.11196e+03_rb /)
+      kbo(:, 5,54,16) = (/ &
+        & 0.10944e+03_rb,0.82085e+02_rb,0.60143e+02_rb,0.77761e+02_rb,0.10368e+03_rb /)
+      kbo(:, 1,55,16) = (/ &
+        & 0.14652e+03_rb,0.10989e+03_rb,0.87185e+02_rb,0.11072e+03_rb,0.14762e+03_rb /)
+      kbo(:, 2,55,16) = (/ &
+        & 0.13631e+03_rb,0.10223e+03_rb,0.79292e+02_rb,0.10139e+03_rb,0.13518e+03_rb /)
+      kbo(:, 3,55,16) = (/ &
+        & 0.12725e+03_rb,0.95436e+02_rb,0.72534e+02_rb,0.93260e+02_rb,0.12435e+03_rb /)
+      kbo(:, 4,55,16) = (/ &
+        & 0.11908e+03_rb,0.89315e+02_rb,0.66761e+02_rb,0.86100e+02_rb,0.11480e+03_rb /)
+      kbo(:, 5,55,16) = (/ &
+        & 0.11172e+03_rb,0.83789e+02_rb,0.61666e+02_rb,0.79683e+02_rb,0.10624e+03_rb /)
+      kbo(:, 1,56,16) = (/ &
+        & 0.15005e+03_rb,0.11254e+03_rb,0.89964e+02_rb,0.11399e+03_rb,0.15199e+03_rb /)
+      kbo(:, 2,56,16) = (/ &
+        & 0.13946e+03_rb,0.10459e+03_rb,0.81673e+02_rb,0.10424e+03_rb,0.13899e+03_rb /)
+      kbo(:, 3,56,16) = (/ &
+        & 0.13002e+03_rb,0.97512e+02_rb,0.74583e+02_rb,0.95730e+02_rb,0.12764e+03_rb /)
+      kbo(:, 4,56,16) = (/ &
+        & 0.12160e+03_rb,0.91205e+02_rb,0.68519e+02_rb,0.88312e+02_rb,0.11775e+03_rb /)
+      kbo(:, 5,56,16) = (/ &
+        & 0.11401e+03_rb,0.85509e+02_rb,0.63233e+02_rb,0.81665e+02_rb,0.10889e+03_rb /)
+      kbo(:, 1,57,16) = (/ &
+        & 0.15367e+03_rb,0.11525e+03_rb,0.92893e+02_rb,0.11745e+03_rb,0.15659e+03_rb /)
+      kbo(:, 2,57,16) = (/ &
+        & 0.14273e+03_rb,0.10705e+03_rb,0.84201e+02_rb,0.10722e+03_rb,0.14296e+03_rb /)
+      kbo(:, 3,57,16) = (/ &
+        & 0.13291e+03_rb,0.99681e+02_rb,0.76750e+02_rb,0.98336e+02_rb,0.13111e+03_rb /)
+      kbo(:, 4,57,16) = (/ &
+        & 0.12423e+03_rb,0.93171e+02_rb,0.70357e+02_rb,0.90589e+02_rb,0.12079e+03_rb /)
+      kbo(:, 5,57,16) = (/ &
+        & 0.11636e+03_rb,0.87269e+02_rb,0.64859e+02_rb,0.83719e+02_rb,0.11162e+03_rb /)
+      kbo(:, 1,58,16) = (/ &
+        & 0.15720e+03_rb,0.11790e+03_rb,0.95809e+02_rb,0.12090e+03_rb,0.16121e+03_rb /)
+      kbo(:, 2,58,16) = (/ &
+        & 0.14594e+03_rb,0.10946e+03_rb,0.86713e+02_rb,0.11017e+03_rb,0.14690e+03_rb /)
+      kbo(:, 3,58,16) = (/ &
+        & 0.13577e+03_rb,0.10183e+03_rb,0.78898e+02_rb,0.10090e+03_rb,0.13454e+03_rb /)
+      kbo(:, 4,58,16) = (/ &
+        & 0.12678e+03_rb,0.95087e+02_rb,0.72188e+02_rb,0.92844e+02_rb,0.12379e+03_rb /)
+      kbo(:, 5,58,16) = (/ &
+        & 0.11865e+03_rb,0.88989e+02_rb,0.66460e+02_rb,0.85728e+02_rb,0.11430e+03_rb /)
+      kbo(:, 1,59,16) = (/ &
+        & 0.15867e+03_rb,0.11900e+03_rb,0.97023e+02_rb,0.12235e+03_rb,0.16313e+03_rb /)
+      kbo(:, 2,59,16) = (/ &
+        & 0.14725e+03_rb,0.11044e+03_rb,0.87747e+02_rb,0.11139e+03_rb,0.14852e+03_rb /)
+      kbo(:, 3,59,16) = (/ &
+        & 0.13696e+03_rb,0.10272e+03_rb,0.79780e+02_rb,0.10196e+03_rb,0.13595e+03_rb /)
+      kbo(:, 4,59,16) = (/ &
+        & 0.12782e+03_rb,0.95865e+02_rb,0.72946e+02_rb,0.93765e+02_rb,0.12502e+03_rb /)
+      kbo(:, 5,59,16) = (/ &
+        & 0.11961e+03_rb,0.89706e+02_rb,0.67116e+02_rb,0.86544e+02_rb,0.11539e+03_rb /)
+
+!     -----------------------------------------------------------------
+
+      forrefo(:, 1) = (/ 0.110008e-06_rb, 0.630912e-06_rb, 0.363159e-05_rb, 0.616892e-05_rb /)
+      forrefo(:, 2) = (/ 0.429709e-05_rb, 0.789174e-05_rb, 0.217416e-04_rb, 0.639393e-04_rb /)
+      forrefo(:, 3) = (/ 0.436283e-04_rb, 0.526247e-04_rb, 0.116341e-03_rb, 0.205616e-03_rb /)
+      forrefo(:, 4) = (/ 0.215627e-03_rb, 0.234522e-03_rb, 0.280497e-03_rb, 0.838668e-03_rb /)
+      forrefo(:, 5) = (/ 0.529283e-03_rb, 0.620848e-03_rb, 0.935561e-03_rb, 0.171252e-02_rb /)
+      forrefo(:, 6) = (/ 0.212267e-02_rb, 0.218564e-02_rb, 0.222227e-02_rb, 0.199650e-02_rb /)
+      forrefo(:, 7) = (/ 0.291120e-02_rb, 0.281168e-02_rb, 0.259543e-02_rb, 0.210159e-02_rb /)
+      forrefo(:, 8) = (/ 0.316249e-02_rb, 0.310695e-02_rb, 0.279501e-02_rb, 0.208076e-02_rb /)
+      forrefo(:, 9) = (/ 0.354993e-02_rb, 0.336989e-02_rb, 0.298930e-02_rb, 0.180424e-02_rb /)
+      forrefo(:,10) = (/ 0.397729e-02_rb, 0.367409e-02_rb, 0.328982e-02_rb, 0.177807e-02_rb /)
+      forrefo(:,11) = (/ 0.408831e-02_rb, 0.398792e-02_rb, 0.352727e-02_rb, 0.192470e-02_rb /)
+      forrefo(:,12) = (/ 0.433926e-02_rb, 0.420667e-02_rb, 0.383894e-02_rb, 0.220836e-02_rb /)
+      forrefo(:,13) = (/ 0.436397e-02_rb, 0.433769e-02_rb, 0.425752e-02_rb, 0.237343e-02_rb /)
+      forrefo(:,14) = (/ 0.440525e-02_rb, 0.449018e-02_rb, 0.451881e-02_rb, 0.269169e-02_rb /)
+      forrefo(:,15) = (/ 0.491350e-02_rb, 0.481760e-02_rb, 0.475799e-02_rb, 0.362666e-02_rb /)
+      forrefo(:,16) = (/ 0.561641e-02_rb, 0.524553e-02_rb, 0.512473e-02_rb, 0.493802e-02_rb /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+        &  0.115887e-03_rb, 0.926537e-04_rb, 0.740783e-04_rb, 0.592270e-04_rb, 0.473530e-04_rb, &
+        &  0.378596e-04_rb, 0.302694e-04_rb, 0.242010e-04_rb, 0.193491e-04_rb, 0.154700e-04_rb /)
+      selfrefo(:, 2) = (/ &
+        &  0.459557e-03_rb, 0.381962e-03_rb, 0.317469e-03_rb, 0.263866e-03_rb, 0.219313e-03_rb, &
+        &  0.182283e-03_rb, 0.151505e-03_rb, 0.125924e-03_rb, 0.104662e-03_rb, 0.869904e-04_rb /)
+      selfrefo(:, 3) = (/ &
+        &  0.166821e-02_rb, 0.151103e-02_rb, 0.136866e-02_rb, 0.123970e-02_rb, 0.112290e-02_rb, &
+        &  0.101710e-02_rb, 0.921266e-03_rb, 0.834463e-03_rb, 0.755839e-03_rb, 0.684623e-03_rb /)
+      selfrefo(:, 4) = (/ &
+        &  0.460175e-02_rb, 0.421372e-02_rb, 0.385842e-02_rb, 0.353307e-02_rb, 0.323516e-02_rb, &
+        &  0.296236e-02_rb, 0.271257e-02_rb, 0.248385e-02_rb, 0.227440e-02_rb, 0.208262e-02_rb /)
+      selfrefo(:, 5) = (/ &
+        &  0.101589e-01_rb, 0.924742e-02_rb, 0.841772e-02_rb, 0.766247e-02_rb, 0.697497e-02_rb, &
+        &  0.634917e-02_rb, 0.577951e-02_rb, 0.526096e-02_rb, 0.478893e-02_rb, 0.435926e-02_rb /)
+      selfrefo(:, 6) = (/ &
+        &  0.328043e-01_rb, 0.300853e-01_rb, 0.275917e-01_rb, 0.253048e-01_rb, 0.232075e-01_rb, &
+        &  0.212839e-01_rb, 0.195198e-01_rb, 0.179020e-01_rb, 0.164182e-01_rb, 0.150574e-01_rb /)
+      selfrefo(:, 7) = (/ &
+        &  0.405936e-01_rb, 0.376032e-01_rb, 0.348331e-01_rb, 0.322671e-01_rb, 0.298901e-01_rb, &
+        &  0.276883e-01_rb, 0.256486e-01_rb, 0.237591e-01_rb, 0.220089e-01_rb, 0.203876e-01_rb /)
+      selfrefo(:, 8) = (/ &
+        &  0.448362e-01_rb, 0.413811e-01_rb, 0.381923e-01_rb, 0.352492e-01_rb, 0.325329e-01_rb, &
+        &  0.300259e-01_rb, 0.277121e-01_rb, 0.255766e-01_rb, 0.236056e-01_rb, 0.217866e-01_rb /)
+      selfrefo(:, 9) = (/ &
+        &  0.479741e-01_rb, 0.445389e-01_rb, 0.413497e-01_rb, 0.383889e-01_rb, 0.356400e-01_rb, &
+        &  0.330880e-01_rb, 0.307188e-01_rb, 0.285191e-01_rb, 0.264770e-01_rb, 0.245812e-01_rb /)
+      selfrefo(:,10) = (/ &
+        &  0.519308e-01_rb, 0.484130e-01_rb, 0.451335e-01_rb, 0.420761e-01_rb, 0.392259e-01_rb, &
+        &  0.365687e-01_rb, 0.340916e-01_rb, 0.317822e-01_rb, 0.296293e-01_rb, 0.276222e-01_rb /)
+      selfrefo(:,11) = (/ &
+        &  0.572039e-01_rb, 0.527780e-01_rb, 0.486945e-01_rb, 0.449270e-01_rb, 0.414510e-01_rb, &
+        &  0.382439e-01_rb, 0.352849e-01_rb, 0.325549e-01_rb, 0.300361e-01_rb, 0.277122e-01_rb /)
+      selfrefo(:,12) = (/ &
+        &  0.601046e-01_rb, 0.554411e-01_rb, 0.511395e-01_rb, 0.471716e-01_rb, 0.435116e-01_rb, &
+        &  0.401356e-01_rb, 0.370215e-01_rb, 0.341490e-01_rb, 0.314994e-01_rb, 0.290554e-01_rb /)
+      selfrefo(:,13) = (/ &
+        &  0.616595e-01_rb, 0.567145e-01_rb, 0.521662e-01_rb, 0.479826e-01_rb, 0.441346e-01_rb, &
+        &  0.405951e-01_rb, 0.373395e-01_rb, 0.343450e-01_rb, 0.315906e-01_rb, 0.290571e-01_rb /)
+      selfrefo(:,14) = (/ &
+        &  0.647916e-01_rb, 0.592493e-01_rb, 0.541811e-01_rb, 0.495465e-01_rb, 0.453083e-01_rb, &
+        &  0.414326e-01_rb, 0.378885e-01_rb, 0.346475e-01_rb, 0.316837e-01_rb, 0.289735e-01_rb /)
+      selfrefo(:,15) = (/ &
+        &  0.694231e-01_rb, 0.637703e-01_rb, 0.585777e-01_rb, 0.538079e-01_rb, 0.494265e-01_rb, &
+        &  0.454019e-01_rb, 0.417050e-01_rb, 0.383091e-01_rb, 0.351897e-01_rb, 0.323244e-01_rb /)
+      selfrefo(:,16) = (/ &
+        &  0.761764e-01_rb, 0.701815e-01_rb, 0.646584e-01_rb, 0.595700e-01_rb, 0.548820e-01_rb, &
+        &  0.505629e-01_rb, 0.465838e-01_rb, 0.429178e-01_rb, 0.395403e-01_rb, 0.364286e-01_rb /)
+     
+      end subroutine sw_kgb21
+
+! **************************************************************************
+      subroutine sw_kgb22
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg22, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:, 1) = (/ &
+        & 3.71641_rb    ,3.63190_rb    ,3.44795_rb    ,3.17936_rb    , &
+        & 2.86071_rb    ,2.48490_rb    ,2.02471_rb    ,1.52475_rb    , &
+        & 1.03811_rb    ,0.113272_rb   ,9.37115e-02_rb,7.38969e-02_rb, &
+        & 5.44713e-02_rb,3.45905e-02_rb,1.30293e-02_rb,1.84198e-03_rb /)
+      sfluxrefo(:, 2) = (/ &
+        & 3.73933_rb    ,3.60360_rb    ,3.43370_rb    ,3.19749_rb    , & 
+        & 2.87747_rb    ,2.47926_rb    ,2.02175_rb    ,1.52010_rb    , &
+        & 1.03612_rb    ,0.113265_rb   ,9.37145e-02_rb,7.38951e-02_rb, &
+        & 5.44714e-02_rb,3.45906e-02_rb,1.30293e-02_rb,1.84198e-03_rb /)
+      sfluxrefo(:, 3) = (/ &
+        & 3.73889_rb    ,3.60279_rb    ,3.43404_rb    ,3.20560_rb    , &
+        & 2.87367_rb    ,2.47515_rb    ,2.02412_rb    ,1.52315_rb    , &
+        & 1.03146_rb    ,0.113272_rb   ,9.36707e-02_rb,7.39080e-02_rb, &
+        & 5.44598e-02_rb,3.45906e-02_rb,1.30293e-02_rb,1.84198e-03_rb /)
+      sfluxrefo(:, 4) = (/ &
+        & 3.73801_rb    ,3.60530_rb    ,3.43659_rb    ,3.20640_rb    , &
+        & 2.87039_rb    ,2.47330_rb    ,2.02428_rb    ,1.52509_rb    , &
+        & 1.03037_rb    ,0.112553_rb   ,9.35352e-02_rb,7.39675e-02_rb, &
+        & 5.43951e-02_rb,3.45669e-02_rb,1.30292e-02_rb,1.84198e-03_rb /)
+      sfluxrefo(:, 5) = (/ &
+        & 3.73809_rb    ,3.60996_rb    ,3.43602_rb    ,3.20364_rb    , &
+        & 2.87005_rb    ,2.47343_rb    ,2.02353_rb    ,1.52617_rb    , &
+        & 1.03138_rb    ,0.111172_rb   ,9.29885e-02_rb,7.35034e-02_rb, &
+        & 5.42427e-02_rb,3.45732e-02_rb,1.30169e-02_rb,1.84550e-03_rb /)
+      sfluxrefo(:, 6) = (/ &
+        & 3.73872_rb    ,3.62054_rb    ,3.42934_rb    ,3.20110_rb    , &
+        & 2.86886_rb    ,2.47379_rb    ,2.02237_rb    ,1.52754_rb    , & 
+        & 1.03228_rb    ,0.111597_rb   ,9.12252e-02_rb,7.33115e-02_rb, &
+        & 5.35600e-02_rb,3.45187e-02_rb,1.30184e-02_rb,1.84551e-03_rb /)
+      sfluxrefo(:, 7) = (/ &
+        & 3.73969_rb    ,3.65461_rb    ,3.40646_rb    ,3.19082_rb    , &
+        & 2.86919_rb    ,2.47289_rb    ,2.02312_rb    ,1.52629_rb    , &
+        & 1.03329_rb    ,0.111611_rb   ,9.16275e-02_rb,7.14731e-02_rb, &
+        & 5.31771e-02_rb,3.44980e-02_rb,1.30190e-02_rb,1.84551e-03_rb /)
+      sfluxrefo(:, 8) = (/ &
+        & 3.73995_rb    ,3.65348_rb    ,3.43707_rb    ,3.16351_rb    , &
+        & 2.87003_rb    ,2.47392_rb    ,2.02114_rb    ,1.52548_rb    , & 
+        & 1.03306_rb    ,0.111088_rb   ,9.12422e-02_rb,7.11146e-02_rb, &
+        & 5.31333e-02_rb,3.45302e-02_rb,1.30209e-02_rb,1.84554e-03_rb /)
+      sfluxrefo(:, 9) = (/ &
+        & 3.73788_rb    ,3.65004_rb    ,3.46938_rb    ,3.15236_rb    , &
+        & 2.86381_rb    ,2.47393_rb    ,2.01715_rb    ,1.52134_rb    , &
+        & 1.03163_rb    ,0.111259_rb   ,9.12948e-02_rb,7.09999e-02_rb, &
+        & 5.31792e-02_rb,3.44955e-02_rb,1.30189e-02_rb,1.84551e-03_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:,1) = (/ &
+        & 3.74825E+00_rb, 3.69573E+00_rb, 3.44506E+00_rb, 3.26248E+00_rb,&
+        & 2.92582E+00_rb, 2.52211E+00_rb, 2.05147E+00_rb, 1.53729E+00_rb,&
+        & 1.04802E+00_rb, 1.14541E-01_rb, 9.45399E-02_rb, 7.49495E-02_rb,&
+        & 5.49887E-02_rb, 3.49939E-02_rb, 1.31836E-02_rb, 1.86747E-03_rb/)
+      irradnceo(:,2) = (/ &
+        & 3.76819E+00_rb, 3.67447E+00_rb, 3.45390E+00_rb, 3.26242E+00_rb,&
+        & 2.92382E+00_rb, 2.51857E+00_rb, 2.04913E+00_rb, 1.53772E+00_rb,&
+        & 1.04801E+00_rb, 1.14539E-01_rb, 9.45409E-02_rb, 7.49501E-02_rb,&
+        & 5.49887E-02_rb, 3.49938E-02_rb, 1.31835E-02_rb, 1.86747E-03_rb/)
+      irradnceo(:,3) = (/ &
+        & 3.77647E+00_rb, 3.64111E+00_rb, 3.48271E+00_rb, 3.26114E+00_rb,&
+        & 2.92470E+00_rb, 2.51661E+00_rb, 2.04800E+00_rb, 1.53886E+00_rb,&
+        & 1.04670E+00_rb, 1.14480E-01_rb, 9.45306E-02_rb, 7.49520E-02_rb,&
+        & 5.49884E-02_rb, 3.49939E-02_rb, 1.31836E-02_rb, 1.86747E-03_rb/)
+      irradnceo(:,4) = (/ &
+        & 3.76866E+00_rb, 3.64173E+00_rb, 3.48994E+00_rb, 3.26329E+00_rb,&
+        & 2.92498E+00_rb, 2.51407E+00_rb, 2.04685E+00_rb, 1.54232E+00_rb,&
+        & 1.04460E+00_rb, 1.14378E-01_rb, 9.45986E-02_rb, 7.48813E-02_rb,&
+        & 5.49556E-02_rb, 3.49937E-02_rb, 1.31836E-02_rb, 1.86747E-03_rb/)
+      irradnceo(:,5) = (/ &
+        & 3.77501E+00_rb, 3.63154E+00_rb, 3.50166E+00_rb, 3.25736E+00_rb,&
+        & 2.92546E+00_rb, 2.51215E+00_rb, 2.04568E+00_rb, 1.54413E+00_rb,&
+        & 1.04357E+00_rb, 1.14321E-01_rb, 9.46608E-02_rb, 7.48648E-02_rb,&
+        & 5.49208E-02_rb, 3.49237E-02_rb, 1.31695E-02_rb, 1.86747E-03_rb/)
+      irradnceo(:,6) = (/ &
+        & 3.77748E+00_rb, 3.63090E+00_rb, 3.50431E+00_rb, 3.25909E+00_rb,&
+        & 2.92025E+00_rb, 2.51156E+00_rb, 2.04573E+00_rb, 1.54403E+00_rb,&
+        & 1.04524E+00_rb, 1.12340E-01_rb, 9.47541E-02_rb, 7.48366E-02_rb,&
+        & 5.49074E-02_rb, 3.48894E-02_rb, 1.31128E-02_rb, 1.85577E-03_rb/)
+      irradnceo(:,7) = (/ &
+        & 3.77645E+00_rb, 3.63586E+00_rb, 3.50405E+00_rb, 3.25803E+00_rb,&
+        & 2.91856E+00_rb, 2.50516E+00_rb, 2.05136E+00_rb, 1.54400E+00_rb,&
+        & 1.04708E+00_rb, 1.13365E-01_rb, 9.30810E-02_rb, 7.36350E-02_rb,&
+        & 5.48601E-02_rb, 3.48401E-02_rb, 1.31035E-02_rb, 1.85577E-03_rb/)
+      irradnceo(:,8) = (/ &
+        & 3.76982E+00_rb, 3.64882E+00_rb, 3.50841E+00_rb, 3.25414E+00_rb,&
+        & 2.91026E+00_rb, 2.50818E+00_rb, 2.04994E+00_rb, 1.54390E+00_rb,&
+        & 1.04867E+00_rb, 1.13272E-01_rb, 9.30307E-02_rb, 7.22413E-02_rb,&
+        & 5.48098E-02_rb, 3.48311E-02_rb, 1.31032E-02_rb, 1.85577E-03_rb/)
+      irradnceo(:,9) = (/ &
+        & 3.77097E+00_rb, 3.67511E+00_rb, 3.51248E+00_rb, 3.21744E+00_rb,&
+        & 2.91350E+00_rb, 2.51378E+00_rb, 2.05106E+00_rb, 1.54135E+00_rb,&
+        & 1.04687E+00_rb, 1.13081E-01_rb, 9.29498E-02_rb, 7.20771E-02_rb,&
+        & 5.48263E-02_rb, 3.48364E-02_rb, 1.31035E-02_rb, 1.85577E-03_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:,1) = (/ &
+        & 1.23435E-03_rb, 1.27308E-03_rb, 1.27390E-03_rb, 1.16609E-03_rb,&
+        & 1.02843E-03_rb, 8.81995E-04_rb, 7.22992E-04_rb, 5.42677E-04_rb,&
+        & 3.67241E-04_rb, 4.00586E-05_rb, 3.31134E-05_rb, 2.62334E-05_rb,&
+        & 1.92658E-05_rb, 1.22462E-05_rb, 4.59989E-06_rb, 6.51470E-07_rb/)
+      facbrghto(:,2) = (/ &
+        & 1.23717E-03_rb, 1.30700E-03_rb, 1.26178E-03_rb, 1.15296E-03_rb,&
+        & 1.02257E-03_rb, 8.80800E-04_rb, 7.21639E-04_rb, 5.40630E-04_rb,&
+        & 3.66196E-04_rb, 4.00576E-05_rb, 3.31135E-05_rb, 2.62333E-05_rb,&
+        & 1.92659E-05_rb, 1.22461E-05_rb, 4.59990E-06_rb, 6.51470E-07_rb/)
+      facbrghto(:,3) = (/ &
+        & 1.24727E-03_rb, 1.31956E-03_rb, 1.25386E-03_rb, 1.14907E-03_rb,&
+        & 1.01954E-03_rb, 8.79467E-04_rb, 7.20379E-04_rb, 5.37941E-04_rb,&
+        & 3.63994E-04_rb, 3.98141E-05_rb, 3.30260E-05_rb, 2.62320E-05_rb,&
+        & 1.92656E-05_rb, 1.22461E-05_rb, 4.59990E-06_rb, 6.51470E-07_rb/)
+      facbrghto(:,4) = (/ &
+        & 1.27729E-03_rb, 1.31099E-03_rb, 1.24809E-03_rb, 1.14197E-03_rb,&
+        & 1.01790E-03_rb, 8.79222E-04_rb, 7.18812E-04_rb, 5.35700E-04_rb,&
+        & 3.61905E-04_rb, 3.96664E-05_rb, 3.28340E-05_rb, 2.59209E-05_rb,&
+        & 1.91117E-05_rb, 1.22460E-05_rb, 4.59990E-06_rb, 6.51470E-07_rb/)
+      facbrghto(:,5) = (/ &
+        & 1.30740E-03_rb, 1.30489E-03_rb, 1.23975E-03_rb, 1.13691E-03_rb,&
+        & 1.01405E-03_rb, 8.78760E-04_rb, 7.17300E-04_rb, 5.33740E-04_rb,&
+        & 3.60094E-04_rb, 3.94860E-05_rb, 3.26596E-05_rb, 2.58653E-05_rb,&
+        & 1.88853E-05_rb, 1.19345E-05_rb, 4.53370E-06_rb, 6.51470E-07_rb/)
+      facbrghto(:,6) = (/ &
+        & 1.33509E-03_rb, 1.30694E-03_rb, 1.23053E-03_rb, 1.12959E-03_rb,&
+        & 1.01226E-03_rb, 8.76250E-04_rb, 7.13399E-04_rb, 5.32160E-04_rb,&
+        & 3.58398E-04_rb, 3.89789E-05_rb, 3.23939E-05_rb, 2.56694E-05_rb,&
+        & 1.86330E-05_rb, 1.17714E-05_rb, 4.26703E-06_rb, 5.97492E-07_rb/)
+      facbrghto(:,7) = (/ &
+        & 1.36743E-03_rb, 1.30050E-03_rb, 1.23001E-03_rb, 1.12354E-03_rb,&
+        & 1.00780E-03_rb, 8.75567E-04_rb, 7.05909E-04_rb, 5.29018E-04_rb,&
+        & 3.56871E-04_rb, 3.88156E-05_rb, 3.19003E-05_rb, 2.50552E-05_rb,&
+        & 1.83330E-05_rb, 1.13433E-05_rb, 4.22452E-06_rb, 5.97493E-07_rb/)
+      facbrghto(:,8) = (/ &
+        & 1.40451E-03_rb, 1.30969E-03_rb, 1.21029E-03_rb, 1.12622E-03_rb,&
+        & 1.01209E-03_rb, 8.62287E-04_rb, 6.96692E-04_rb, 5.23174E-04_rb,&
+        & 3.54210E-04_rb, 3.80569E-05_rb, 3.12670E-05_rb, 2.43931E-05_rb,&
+        & 1.78913E-05_rb, 1.13039E-05_rb, 4.22293E-06_rb, 5.97493E-07_rb/)
+      facbrghto(:,9) = (/ &
+        & 1.38675E-03_rb, 1.32870E-03_rb, 1.24066E-03_rb, 1.13516E-03_rb,&
+        & 1.00493E-03_rb, 8.54942E-04_rb, 6.86767E-04_rb, 5.14501E-04_rb,&
+        & 3.47455E-04_rb, 3.76111E-05_rb, 3.10209E-05_rb, 2.43925E-05_rb,&
+        & 1.79017E-05_rb, 1.13072E-05_rb, 4.22452E-06_rb, 5.97493E-07_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:,1) = (/ &
+        &-8.67437E-04_rb,-8.54019E-04_rb,-8.26959E-04_rb,-7.60050E-04_rb,&
+        &-6.75252E-04_rb,-5.79568E-04_rb,-4.74609E-04_rb,-3.56715E-04_rb,&
+        &-2.41629E-04_rb,-2.63347E-05_rb,-2.17830E-05_rb,-1.72298E-05_rb,&
+        &-1.26510E-05_rb,-8.04634E-06_rb,-3.02619E-06_rb,-4.28578E-07_rb/)
+      snsptdrko(:,2) = (/ &
+        &-8.65958E-04_rb,-8.62535E-04_rb,-8.24344E-04_rb,-7.56709E-04_rb,&
+        &-6.74150E-04_rb,-5.79747E-04_rb,-4.74560E-04_rb,-3.56598E-04_rb,&
+        &-2.41636E-04_rb,-2.63347E-05_rb,-2.17831E-05_rb,-1.72298E-05_rb,&
+        &-1.26511E-05_rb,-8.04630E-06_rb,-3.02620E-06_rb,-4.28578E-07_rb/)
+      snsptdrko(:,3) = (/ &
+        &-8.66679E-04_rb,-8.65697E-04_rb,-8.22929E-04_rb,-7.55463E-04_rb,&
+        &-6.73312E-04_rb,-5.79844E-04_rb,-4.74319E-04_rb,-3.56413E-04_rb,&
+        &-2.41578E-04_rb,-2.63364E-05_rb,-2.17851E-05_rb,-1.72294E-05_rb,&
+        &-1.26510E-05_rb,-8.04631E-06_rb,-3.02619E-06_rb,-4.28578E-07_rb/)
+      snsptdrko(:,4) = (/ &
+        &-8.72330E-04_rb,-8.64007E-04_rb,-8.21476E-04_rb,-7.53680E-04_rb,&
+        &-6.73042E-04_rb,-5.79883E-04_rb,-4.74063E-04_rb,-3.56290E-04_rb,&
+        &-2.41462E-04_rb,-2.63297E-05_rb,-2.17899E-05_rb,-1.72311E-05_rb,&
+        &-1.26536E-05_rb,-8.04626E-06_rb,-3.02619E-06_rb,-4.28578E-07_rb/)
+      snsptdrko(:,5) = (/ &
+        &-8.78329E-04_rb,-8.62672E-04_rb,-8.18686E-04_rb,-7.52629E-04_rb,&
+        &-6.72463E-04_rb,-5.80059E-04_rb,-4.73904E-04_rb,-3.56120E-04_rb,&
+        &-2.41391E-04_rb,-2.63184E-05_rb,-2.17875E-05_rb,-1.72213E-05_rb,&
+        &-1.26494E-05_rb,-8.04997E-06_rb,-3.02855E-06_rb,-4.28578E-07_rb/)
+      snsptdrko(:,6) = (/ &
+        &-8.84896E-04_rb,-8.62129E-04_rb,-8.15376E-04_rb,-7.50805E-04_rb,&
+        &-6.72138E-04_rb,-5.80018E-04_rb,-4.73654E-04_rb,-3.55932E-04_rb,&
+        &-2.41357E-04_rb,-2.63050E-05_rb,-2.17745E-05_rb,-1.72152E-05_rb,&
+        &-1.26301E-05_rb,-8.04108E-06_rb,-3.03638E-06_rb,-4.30481E-07_rb/)
+      snsptdrko(:,7) = (/ &
+        &-8.93563E-04_rb,-8.58714E-04_rb,-8.12842E-04_rb,-7.48951E-04_rb,&
+        &-6.71893E-04_rb,-5.80162E-04_rb,-4.73152E-04_rb,-3.55808E-04_rb,&
+        &-2.41308E-04_rb,-2.62834E-05_rb,-2.17619E-05_rb,-1.71818E-05_rb,&
+        &-1.26082E-05_rb,-8.04110E-06_rb,-3.03742E-06_rb,-4.30481E-07_rb/)
+      snsptdrko(:,8) = (/ &
+        &-9.03170E-04_rb,-8.57974E-04_rb,-8.06780E-04_rb,-7.48006E-04_rb,&
+        &-6.71834E-04_rb,-5.79040E-04_rb,-4.72889E-04_rb,-3.55623E-04_rb,&
+        &-2.41189E-04_rb,-2.62529E-05_rb,-2.17049E-05_rb,-1.71620E-05_rb,&
+        &-1.26030E-05_rb,-8.04153E-06_rb,-3.03790E-06_rb,-4.30481E-07_rb/)
+      snsptdrko(:,9) = (/ &
+        &-8.94403E-04_rb,-8.62523E-04_rb,-8.13890E-04_rb,-7.48489E-04_rb,&
+        &-6.70323E-04_rb,-5.78188E-04_rb,-4.72307E-04_rb,-3.55545E-04_rb,&
+        &-2.40869E-04_rb,-2.62300E-05_rb,-2.16988E-05_rb,-1.71625E-05_rb,&
+        &-1.25997E-05_rb,-8.04090E-06_rb,-3.03742E-06_rb,-4.30481E-07_rb/)
+
+! Rayleigh extinction coefficient at v = 8000 cm-1.
+      rayl = 1.54e-08_rb
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1, 1) = (/ &
+        & 0.14658e-08_rb,0.32044e-07_rb,0.36289e-07_rb,0.38717e-07_rb,0.40590e-07_rb, &
+        & 0.43330e-07_rb,0.46916e-07_rb,0.56519e-07_rb,0.42446e-07_rb /)
+      kao(:, 2, 1, 1) = (/ &
+        & 0.17883e-08_rb,0.36129e-07_rb,0.40724e-07_rb,0.43498e-07_rb,0.45371e-07_rb, &
+        & 0.47093e-07_rb,0.51195e-07_rb,0.58562e-07_rb,0.44474e-07_rb /)
+      kao(:, 3, 1, 1) = (/ &
+        & 0.21286e-08_rb,0.46092e-07_rb,0.53991e-07_rb,0.59439e-07_rb,0.63497e-07_rb, &
+        & 0.66730e-07_rb,0.70296e-07_rb,0.83990e-07_rb,0.65058e-07_rb /)
+      kao(:, 4, 1, 1) = (/ &
+        & 0.24816e-08_rb,0.43399e-07_rb,0.49167e-07_rb,0.52969e-07_rb,0.55586e-07_rb, &
+        & 0.57260e-07_rb,0.58809e-07_rb,0.64046e-07_rb,0.48780e-07_rb /)
+      kao(:, 5, 1, 1) = (/ &
+        & 0.28409e-08_rb,0.46683e-07_rb,0.53128e-07_rb,0.57526e-07_rb,0.60605e-07_rb, &
+        & 0.62715e-07_rb,0.64284e-07_rb,0.67579e-07_rb,0.52346e-07_rb /)
+      kao(:, 1, 2, 1) = (/ &
+        & 0.10965e-08_rb,0.24934e-07_rb,0.28268e-07_rb,0.30156e-07_rb,0.31820e-07_rb, &
+        & 0.34498e-07_rb,0.36563e-07_rb,0.46609e-07_rb,0.30202e-07_rb /)
+      kao(:, 2, 2, 1) = (/ &
+        & 0.13538e-08_rb,0.28338e-07_rb,0.31923e-07_rb,0.34048e-07_rb,0.35529e-07_rb, &
+        & 0.37136e-07_rb,0.41583e-07_rb,0.46831e-07_rb,0.32817e-07_rb /)
+      kao(:, 3, 2, 1) = (/ &
+        & 0.16260e-08_rb,0.36648e-07_rb,0.42882e-07_rb,0.47128e-07_rb,0.50288e-07_rb, &
+        & 0.52851e-07_rb,0.56093e-07_rb,0.70511e-07_rb,0.48182e-07_rb /)
+      kao(:, 4, 2, 1) = (/ &
+        & 0.19102e-08_rb,0.39471e-07_rb,0.46225e-07_rb,0.50974e-07_rb,0.54565e-07_rb, &
+        & 0.57380e-07_rb,0.60079e-07_rb,0.67707e-07_rb,0.50168e-07_rb /)
+      kao(:, 5, 2, 1) = (/ &
+        & 0.22030e-08_rb,0.37203e-07_rb,0.42234e-07_rb,0.45622e-07_rb,0.47990e-07_rb, &
+        & 0.49546e-07_rb,0.50777e-07_rb,0.53867e-07_rb,0.39769e-07_rb /)
+      kao(:, 1, 3, 1) = (/ &
+        & 0.77844e-09_rb,0.18777e-07_rb,0.21347e-07_rb,0.22946e-07_rb,0.24368e-07_rb, &
+        & 0.25870e-07_rb,0.28084e-07_rb,0.39197e-07_rb,0.20196e-07_rb /)
+      kao(:, 2, 3, 1) = (/ &
+        & 0.97891e-09_rb,0.21591e-07_rb,0.24379e-07_rb,0.25974e-07_rb,0.27213e-07_rb, &
+        & 0.29039e-07_rb,0.31487e-07_rb,0.37725e-07_rb,0.23228e-07_rb /)
+      kao(:, 3, 3, 1) = (/ &
+        & 0.11949e-08_rb,0.24305e-07_rb,0.27342e-07_rb,0.29177e-07_rb,0.30428e-07_rb, &
+        & 0.31562e-07_rb,0.34299e-07_rb,0.39267e-07_rb,0.23943e-07_rb /)
+      kao(:, 4, 3, 1) = (/ &
+        & 0.14225e-08_rb,0.30991e-07_rb,0.36244e-07_rb,0.39880e-07_rb,0.42596e-07_rb, &
+        & 0.44752e-07_rb,0.47132e-07_rb,0.56253e-07_rb,0.37250e-07_rb /)
+      kao(:, 5, 3, 1) = (/ &
+        & 0.16586e-08_rb,0.29152e-07_rb,0.32988e-07_rb,0.35508e-07_rb,0.37264e-07_rb, &
+        & 0.38387e-07_rb,0.39417e-07_rb,0.42936e-07_rb,0.29439e-07_rb /)
+      kao(:, 1, 4, 1) = (/ &
+        & 0.53935e-09_rb,0.13922e-07_rb,0.15779e-07_rb,0.16979e-07_rb,0.18157e-07_rb, &
+        & 0.19199e-07_rb,0.22168e-07_rb,0.31060e-07_rb,0.13772e-07_rb /)
+      kao(:, 2, 4, 1) = (/ &
+        & 0.69404e-09_rb,0.16220e-07_rb,0.18381e-07_rb,0.19646e-07_rb,0.20841e-07_rb, &
+        & 0.22407e-07_rb,0.23846e-07_rb,0.31992e-07_rb,0.15532e-07_rb /)
+      kao(:, 3, 4, 1) = (/ &
+        & 0.86327e-09_rb,0.18514e-07_rb,0.20845e-07_rb,0.22209e-07_rb,0.23196e-07_rb, &
+        & 0.24396e-07_rb,0.27026e-07_rb,0.31067e-07_rb,0.17116e-07_rb /)
+      kao(:, 4, 4, 1) = (/ &
+        & 0.10436e-08_rb,0.20666e-07_rb,0.23248e-07_rb,0.24835e-07_rb,0.25904e-07_rb, &
+        & 0.26757e-07_rb,0.28384e-07_rb,0.33085e-07_rb,0.19320e-07_rb /)
+      kao(:, 5, 4, 1) = (/ &
+        & 0.12327e-08_rb,0.26056e-07_rb,0.30481e-07_rb,0.33580e-07_rb,0.35908e-07_rb, &
+        & 0.37744e-07_rb,0.39586e-07_rb,0.45434e-07_rb,0.29787e-07_rb /)
+      kao(:, 1, 5, 1) = (/ &
+        & 0.36905e-09_rb,0.10245e-07_rb,0.11596e-07_rb,0.12576e-07_rb,0.13293e-07_rb, &
+        & 0.14477e-07_rb,0.18355e-07_rb,0.25395e-07_rb,0.95950e-08_rb /)
+      kao(:, 2, 5, 1) = (/ &
+        & 0.48708e-09_rb,0.12119e-07_rb,0.13746e-07_rb,0.14791e-07_rb,0.15718e-07_rb, &
+        & 0.16646e-07_rb,0.18396e-07_rb,0.25737e-07_rb,0.10793e-07_rb /)
+      kao(:, 3, 5, 1) = (/ &
+        & 0.61847e-09_rb,0.13998e-07_rb,0.15813e-07_rb,0.16851e-07_rb,0.17722e-07_rb, &
+        & 0.19232e-07_rb,0.20414e-07_rb,0.25223e-07_rb,0.12354e-07_rb /)
+      kao(:, 4, 5, 1) = (/ &
+        & 0.76052e-09_rb,0.15846e-07_rb,0.17816e-07_rb,0.18991e-07_rb,0.19806e-07_rb, &
+        & 0.20628e-07_rb,0.23016e-07_rb,0.25874e-07_rb,0.14269e-07_rb /)
+      kao(:, 5, 5, 1) = (/ &
+        & 0.91109e-09_rb,0.20382e-07_rb,0.23823e-07_rb,0.26180e-07_rb,0.27929e-07_rb, &
+        & 0.29345e-07_rb,0.31039e-07_rb,0.38471e-07_rb,0.22626e-07_rb /)
+      kao(:, 1, 6, 1) = (/ &
+        & 0.24637e-09_rb,0.74144e-08_rb,0.83997e-08_rb,0.90789e-08_rb,0.97769e-08_rb, &
+        & 0.11308e-07_rb,0.14223e-07_rb,0.20837e-07_rb,0.66398e-08_rb /)
+      kao(:, 2, 6, 1) = (/ &
+        & 0.33527e-09_rb,0.89450e-08_rb,0.10119e-07_rb,0.10892e-07_rb,0.11613e-07_rb, &
+        & 0.12382e-07_rb,0.14900e-07_rb,0.20638e-07_rb,0.76422e-08_rb /)
+      kao(:, 3, 6, 1) = (/ &
+        & 0.43587e-09_rb,0.10479e-07_rb,0.11902e-07_rb,0.12737e-07_rb,0.13564e-07_rb, &
+        & 0.14416e-07_rb,0.15545e-07_rb,0.21677e-07_rb,0.89455e-08_rb /)
+      kao(:, 4, 6, 1) = (/ &
+        & 0.54672e-09_rb,0.12017e-07_rb,0.13540e-07_rb,0.14423e-07_rb,0.15090e-07_rb, &
+        & 0.16030e-07_rb,0.17496e-07_rb,0.20678e-07_rb,0.10490e-07_rb /)
+      kao(:, 5, 6, 1) = (/ &
+        & 0.66579e-09_rb,0.13493e-07_rb,0.15163e-07_rb,0.16178e-07_rb,0.16873e-07_rb, &
+        & 0.17474e-07_rb,0.18852e-07_rb,0.21699e-07_rb,0.12216e-07_rb /)
+      kao(:, 1, 7, 1) = (/ &
+        & 0.16149e-09_rb,0.53201e-08_rb,0.60079e-08_rb,0.65349e-08_rb,0.72837e-08_rb, &
+        & 0.90792e-08_rb,0.11028e-07_rb,0.15917e-07_rb,0.45574e-08_rb /)
+      kao(:, 2, 7, 1) = (/ &
+        & 0.22765e-09_rb,0.65457e-08_rb,0.74143e-08_rb,0.80126e-08_rb,0.85152e-08_rb, &
+        & 0.94934e-08_rb,0.12210e-07_rb,0.16917e-07_rb,0.54301e-08_rb /)
+      kao(:, 3, 7, 1) = (/ &
+        & 0.30418e-09_rb,0.77971e-08_rb,0.88287e-08_rb,0.94927e-08_rb,0.10154e-07_rb, &
+        & 0.10712e-07_rb,0.12099e-07_rb,0.16996e-07_rb,0.64594e-08_rb /)
+      kao(:, 4, 7, 1) = (/ &
+        & 0.38990e-09_rb,0.90563e-08_rb,0.10243e-07_rb,0.10928e-07_rb,0.11554e-07_rb, &
+        & 0.12512e-07_rb,0.13254e-07_rb,0.17320e-07_rb,0.76835e-08_rb /)
+      kao(:, 5, 7, 1) = (/ &
+        & 0.48334e-09_rb,0.10307e-07_rb,0.11588e-07_rb,0.12345e-07_rb,0.12884e-07_rb, &
+        & 0.13512e-07_rb,0.15051e-07_rb,0.17108e-07_rb,0.90662e-08_rb /)
+      kao(:, 1, 8, 1) = (/ &
+        & 0.10442e-09_rb,0.37895e-08_rb,0.42781e-08_rb,0.47285e-08_rb,0.55672e-08_rb, &
+        & 0.67246e-08_rb,0.87615e-08_rb,0.12496e-07_rb,0.31063e-08_rb /)
+      kao(:, 2, 8, 1) = (/ &
+        & 0.15294e-09_rb,0.47545e-08_rb,0.53771e-08_rb,0.58176e-08_rb,0.63249e-08_rb, &
+        & 0.74935e-08_rb,0.93024e-08_rb,0.13484e-07_rb,0.38514e-08_rb /)
+      kao(:, 3, 8, 1) = (/ &
+        & 0.21056e-09_rb,0.57727e-08_rb,0.65270e-08_rb,0.70416e-08_rb,0.74786e-08_rb, &
+        & 0.80475e-08_rb,0.10012e-07_rb,0.13784e-07_rb,0.46496e-08_rb /)
+      kao(:, 4, 8, 1) = (/ &
+        & 0.27636e-09_rb,0.67987e-08_rb,0.77111e-08_rb,0.82983e-08_rb,0.87947e-08_rb, &
+        & 0.93313e-08_rb,0.10204e-07_rb,0.14244e-07_rb,0.56141e-08_rb /)
+      kao(:, 5, 8, 1) = (/ &
+        & 0.34924e-09_rb,0.78297e-08_rb,0.88319e-08_rb,0.94055e-08_rb,0.98667e-08_rb, &
+        & 0.10620e-07_rb,0.11396e-07_rb,0.13825e-07_rb,0.67139e-08_rb /)
+      kao(:, 1, 9, 1) = (/ &
+        & 0.66385e-10_rb,0.26743e-08_rb,0.30313e-08_rb,0.34595e-08_rb,0.42156e-08_rb, &
+        & 0.50940e-08_rb,0.66728e-08_rb,0.10021e-07_rb,0.20965e-08_rb /)
+      kao(:, 2, 9, 1) = (/ &
+        & 0.10109e-09_rb,0.34278e-08_rb,0.38685e-08_rb,0.42217e-08_rb,0.47673e-08_rb, &
+        & 0.59120e-08_rb,0.72992e-08_rb,0.10438e-07_rb,0.27321e-08_rb /)
+      kao(:, 3, 9, 1) = (/ &
+        & 0.14405e-09_rb,0.42386e-08_rb,0.48029e-08_rb,0.51840e-08_rb,0.55416e-08_rb, &
+        & 0.62759e-08_rb,0.79851e-08_rb,0.11314e-07_rb,0.33332e-08_rb /)
+      kao(:, 4, 9, 1) = (/ &
+        & 0.19414e-09_rb,0.50774e-08_rb,0.57440e-08_rb,0.61764e-08_rb,0.66005e-08_rb, &
+        & 0.69887e-08_rb,0.81552e-08_rb,0.11319e-07_rb,0.40828e-08_rb /)
+      kao(:, 5, 9, 1) = (/ &
+        & 0.25056e-09_rb,0.59198e-08_rb,0.67025e-08_rb,0.71627e-08_rb,0.76155e-08_rb, &
+        & 0.81557e-08_rb,0.87035e-08_rb,0.11788e-07_rb,0.49512e-08_rb /)
+      kao(:, 1,10, 1) = (/ &
+        & 0.43147e-10_rb,0.19136e-08_rb,0.21883e-08_rb,0.26153e-08_rb,0.31055e-08_rb, &
+        & 0.39720e-08_rb,0.51107e-08_rb,0.84498e-08_rb,0.15100e-08_rb /)
+      kao(:, 2,10, 1) = (/ &
+        & 0.68069e-10_rb,0.25012e-08_rb,0.28230e-08_rb,0.31278e-08_rb,0.37084e-08_rb, &
+        & 0.44577e-08_rb,0.58316e-08_rb,0.82732e-08_rb,0.20294e-08_rb /)
+      kao(:, 3,10, 1) = (/ &
+        & 0.10013e-09_rb,0.31445e-08_rb,0.35530e-08_rb,0.38466e-08_rb,0.41961e-08_rb, &
+        & 0.50063e-08_rb,0.61960e-08_rb,0.89421e-08_rb,0.24447e-08_rb /)
+      kao(:, 4,10, 1) = (/ &
+        & 0.13837e-09_rb,0.38258e-08_rb,0.43236e-08_rb,0.46732e-08_rb,0.49545e-08_rb, &
+        & 0.53447e-08_rb,0.67172e-08_rb,0.92217e-08_rb,0.30274e-08_rb /)
+      kao(:, 5,10, 1) = (/ &
+        & 0.18212e-09_rb,0.45123e-08_rb,0.51146e-08_rb,0.55026e-08_rb,0.58368e-08_rb, &
+        & 0.61896e-08_rb,0.67974e-08_rb,0.94910e-08_rb,0.36975e-08_rb /)
+      kao(:, 1,11, 1) = (/ &
+        & 0.35238e-10_rb,0.15650e-08_rb,0.17900e-08_rb,0.21398e-08_rb,0.25395e-08_rb, &
+        & 0.32442e-08_rb,0.41684e-08_rb,0.68456e-08_rb,0.12890e-08_rb /)
+      kao(:, 2,11, 1) = (/ &
+        & 0.55588e-10_rb,0.20451e-08_rb,0.23079e-08_rb,0.25570e-08_rb,0.30342e-08_rb, &
+        & 0.36465e-08_rb,0.47717e-08_rb,0.67353e-08_rb,0.16499e-08_rb /)
+      kao(:, 3,11, 1) = (/ &
+        & 0.81825e-10_rb,0.25719e-08_rb,0.29058e-08_rb,0.31458e-08_rb,0.34324e-08_rb, &
+        & 0.40982e-08_rb,0.50669e-08_rb,0.73083e-08_rb,0.20031e-08_rb /)
+      kao(:, 4,11, 1) = (/ &
+        & 0.11311e-09_rb,0.31293e-08_rb,0.35365e-08_rb,0.38229e-08_rb,0.40518e-08_rb, &
+        & 0.43730e-08_rb,0.54993e-08_rb,0.75470e-08_rb,0.24754e-08_rb /)
+      kao(:, 5,11, 1) = (/ &
+        & 0.14891e-09_rb,0.36915e-08_rb,0.41839e-08_rb,0.45010e-08_rb,0.47744e-08_rb, &
+        & 0.50622e-08_rb,0.55621e-08_rb,0.77689e-08_rb,0.30237e-08_rb /)
+      kao(:, 1,12, 1) = (/ &
+        & 0.28851e-10_rb,0.12816e-08_rb,0.14656e-08_rb,0.17508e-08_rb,0.20791e-08_rb, &
+        & 0.26542e-08_rb,0.34061e-08_rb,0.55940e-08_rb,0.10876e-08_rb /)
+      kao(:, 2,12, 1) = (/ &
+        & 0.45511e-10_rb,0.16747e-08_rb,0.18898e-08_rb,0.20935e-08_rb,0.24841e-08_rb, &
+        & 0.29844e-08_rb,0.39040e-08_rb,0.54988e-08_rb,0.13569e-08_rb /)
+      kao(:, 3,12, 1) = (/ &
+        & 0.66972e-10_rb,0.21053e-08_rb,0.23788e-08_rb,0.25750e-08_rb,0.28091e-08_rb, &
+        & 0.33541e-08_rb,0.41474e-08_rb,0.59783e-08_rb,0.16488e-08_rb /)
+      kao(:, 4,12, 1) = (/ &
+        & 0.92606e-10_rb,0.25620e-08_rb,0.28952e-08_rb,0.31304e-08_rb,0.33162e-08_rb, &
+        & 0.35801e-08_rb,0.45003e-08_rb,0.61789e-08_rb,0.20293e-08_rb /)
+      kao(:, 5,12, 1) = (/ &
+        & 0.12192e-09_rb,0.30226e-08_rb,0.34255e-08_rb,0.36843e-08_rb,0.39084e-08_rb, &
+        & 0.41445e-08_rb,0.45524e-08_rb,0.63605e-08_rb,0.24756e-08_rb /)
+      kao(:, 1,13, 1) = (/ &
+        & 0.23621e-10_rb,0.10494e-08_rb,0.11996e-08_rb,0.14331e-08_rb,0.17023e-08_rb, &
+        & 0.21711e-08_rb,0.27844e-08_rb,0.45532e-08_rb,0.89489e-09_rb /)
+      kao(:, 2,13, 1) = (/ &
+        & 0.37261e-10_rb,0.13712e-08_rb,0.15471e-08_rb,0.17138e-08_rb,0.20333e-08_rb, &
+        & 0.24433e-08_rb,0.31958e-08_rb,0.44925e-08_rb,0.11124e-08_rb /)
+      kao(:, 3,13, 1) = (/ &
+        & 0.54831e-10_rb,0.17238e-08_rb,0.19475e-08_rb,0.21082e-08_rb,0.23003e-08_rb, &
+        & 0.27446e-08_rb,0.33959e-08_rb,0.48947e-08_rb,0.13514e-08_rb /)
+      kao(:, 4,13, 1) = (/ &
+        & 0.75799e-10_rb,0.20971e-08_rb,0.23698e-08_rb,0.25624e-08_rb,0.27143e-08_rb, &
+        & 0.29304e-08_rb,0.36822e-08_rb,0.50589e-08_rb,0.16628e-08_rb /)
+      kao(:, 5,13, 1) = (/ &
+        & 0.99820e-10_rb,0.24745e-08_rb,0.28041e-08_rb,0.30159e-08_rb,0.31995e-08_rb, &
+        & 0.33924e-08_rb,0.37279e-08_rb,0.52074e-08_rb,0.20270e-08_rb /)
+      kao(:, 1, 1, 2) = (/ &
+        & 0.13785e-07_rb,0.24738e-06_rb,0.32984e-06_rb,0.38970e-06_rb,0.43737e-06_rb, &
+        & 0.50889e-06_rb,0.56985e-06_rb,0.52821e-06_rb,0.22857e-06_rb /)
+      kao(:, 2, 1, 2) = (/ &
+        & 0.15768e-07_rb,0.27583e-06_rb,0.36371e-06_rb,0.42333e-06_rb,0.46175e-06_rb, &
+        & 0.50608e-06_rb,0.57108e-06_rb,0.57199e-06_rb,0.21992e-06_rb /)
+      kao(:, 3, 1, 2) = (/ &
+        & 0.17740e-07_rb,0.31295e-06_rb,0.41668e-06_rb,0.48111e-06_rb,0.52105e-06_rb, &
+        & 0.56257e-06_rb,0.61638e-06_rb,0.64253e-06_rb,0.25630e-06_rb /)
+      kao(:, 4, 1, 2) = (/ &
+        & 0.19676e-07_rb,0.33378e-06_rb,0.43874e-06_rb,0.50021e-06_rb,0.53506e-06_rb, &
+        & 0.56909e-06_rb,0.60800e-06_rb,0.63155e-06_rb,0.24206e-06_rb /)
+      kao(:, 5, 1, 2) = (/ &
+        & 0.21537e-07_rb,0.36160e-06_rb,0.47596e-06_rb,0.54056e-06_rb,0.57557e-06_rb, &
+        & 0.60002e-06_rb,0.61606e-06_rb,0.61827e-06_rb,0.25207e-06_rb /)
+      kao(:, 1, 2, 2) = (/ &
+        & 0.10621e-07_rb,0.19636e-06_rb,0.26336e-06_rb,0.31062e-06_rb,0.35012e-06_rb, &
+        & 0.41219e-06_rb,0.46827e-06_rb,0.42345e-06_rb,0.16044e-06_rb /)
+      kao(:, 2, 2, 2) = (/ &
+        & 0.12238e-07_rb,0.21970e-06_rb,0.28920e-06_rb,0.33755e-06_rb,0.37073e-06_rb, &
+        & 0.41004e-06_rb,0.46315e-06_rb,0.45777e-06_rb,0.15877e-06_rb /)
+      kao(:, 3, 2, 2) = (/ &
+        & 0.13863e-07_rb,0.24955e-06_rb,0.33252e-06_rb,0.38359e-06_rb,0.41679e-06_rb, &
+        & 0.45237e-06_rb,0.50277e-06_rb,0.51752e-06_rb,0.18617e-06_rb /)
+      kao(:, 4, 2, 2) = (/ &
+        & 0.15467e-07_rb,0.27294e-06_rb,0.36292e-06_rb,0.41560e-06_rb,0.44818e-06_rb, &
+        & 0.47909e-06_rb,0.51811e-06_rb,0.54528e-06_rb,0.19311e-06_rb /)
+      kao(:, 5, 2, 2) = (/ &
+        & 0.17013e-07_rb,0.28946e-06_rb,0.38040e-06_rb,0.43177e-06_rb,0.46055e-06_rb, &
+        & 0.48627e-06_rb,0.50036e-06_rb,0.50711e-06_rb,0.19056e-06_rb /)
+      kao(:, 1, 3, 2) = (/ &
+        & 0.79041e-08_rb,0.15193e-06_rb,0.20367e-06_rb,0.24255e-06_rb,0.27584e-06_rb, &
+        & 0.33106e-06_rb,0.39018e-06_rb,0.33367e-06_rb,0.10147e-06_rb /)
+      kao(:, 2, 3, 2) = (/ &
+        & 0.92256e-08_rb,0.17005e-06_rb,0.22457e-06_rb,0.26442e-06_rb,0.29755e-06_rb, &
+        & 0.33937e-06_rb,0.38659e-06_rb,0.36019e-06_rb,0.10982e-06_rb /)
+      kao(:, 3, 3, 2) = (/ &
+        & 0.10548e-07_rb,0.18874e-06_rb,0.24827e-06_rb,0.28648e-06_rb,0.31109e-06_rb, &
+        & 0.33996e-06_rb,0.38319e-06_rb,0.38934e-06_rb,0.11953e-06_rb /)
+      kao(:, 4, 3, 2) = (/ &
+        & 0.11869e-07_rb,0.21314e-06_rb,0.28402e-06_rb,0.32565e-06_rb,0.35249e-06_rb, &
+        & 0.38039e-06_rb,0.41637e-06_rb,0.43423e-06_rb,0.13779e-06_rb /)
+      kao(:, 5, 3, 2) = (/ &
+        & 0.13170e-07_rb,0.22682e-06_rb,0.29805e-06_rb,0.33849e-06_rb,0.36193e-06_rb, &
+        & 0.38387e-06_rb,0.41078e-06_rb,0.42298e-06_rb,0.13819e-06_rb /)
+      kao(:, 1, 4, 2) = (/ &
+        & 0.57872e-08_rb,0.11704e-06_rb,0.15599e-06_rb,0.19092e-06_rb,0.22043e-06_rb, &
+        & 0.26778e-06_rb,0.30128e-06_rb,0.25769e-06_rb,0.68111e-07_rb /)
+      kao(:, 2, 4, 2) = (/ &
+        & 0.68505e-08_rb,0.13037e-06_rb,0.17389e-06_rb,0.20556e-06_rb,0.23194e-06_rb, &
+        & 0.27485e-06_rb,0.31447e-06_rb,0.28139e-06_rb,0.78259e-07_rb /)
+      kao(:, 3, 4, 2) = (/ &
+        & 0.79353e-08_rb,0.14574e-06_rb,0.19135e-06_rb,0.22328e-06_rb,0.24623e-06_rb, &
+        & 0.27497e-06_rb,0.31125e-06_rb,0.30440e-06_rb,0.85397e-07_rb /)
+      kao(:, 4, 4, 2) = (/ &
+        & 0.90207e-08_rb,0.16075e-06_rb,0.21140e-06_rb,0.24210e-06_rb,0.26199e-06_rb, &
+        & 0.28412e-06_rb,0.31832e-06_rb,0.32424e-06_rb,0.93374e-07_rb /)
+      kao(:, 5, 4, 2) = (/ &
+        & 0.10099e-07_rb,0.18068e-06_rb,0.24072e-06_rb,0.27515e-06_rb,0.29704e-06_rb, &
+        & 0.31830e-06_rb,0.34575e-06_rb,0.36301e-06_rb,0.10959e-06_rb /)
+      kao(:, 1, 5, 2) = (/ &
+        & 0.42071e-08_rb,0.88799e-07_rb,0.11974e-06_rb,0.15503e-06_rb,0.18473e-06_rb, &
+        & 0.21750e-06_rb,0.23111e-06_rb,0.19568e-06_rb,0.47645e-07_rb /)
+      kao(:, 2, 5, 2) = (/ &
+        & 0.50589e-08_rb,0.10003e-06_rb,0.13353e-06_rb,0.15994e-06_rb,0.18265e-06_rb, &
+        & 0.22030e-06_rb,0.25851e-06_rb,0.22196e-06_rb,0.56400e-07_rb /)
+      kao(:, 3, 5, 2) = (/ &
+        & 0.59363e-08_rb,0.11183e-06_rb,0.14743e-06_rb,0.17446e-06_rb,0.19617e-06_rb, &
+        & 0.22887e-06_rb,0.25813e-06_rb,0.23893e-06_rb,0.62471e-07_rb /)
+      kao(:, 4, 5, 2) = (/ &
+        & 0.68265e-08_rb,0.12408e-06_rb,0.16316e-06_rb,0.18879e-06_rb,0.20540e-06_rb, &
+        & 0.22681e-06_rb,0.25640e-06_rb,0.25817e-06_rb,0.69233e-07_rb /)
+      kao(:, 5, 5, 2) = (/ &
+        & 0.77164e-08_rb,0.14022e-06_rb,0.18715e-06_rb,0.21470e-06_rb,0.23265e-06_rb, &
+        & 0.25223e-06_rb,0.27783e-06_rb,0.28837e-06_rb,0.82855e-07_rb /)
+      kao(:, 1, 6, 2) = (/ &
+        & 0.30108e-08_rb,0.66997e-07_rb,0.92811e-07_rb,0.12074e-06_rb,0.15295e-06_rb, &
+        & 0.17839e-06_rb,0.17246e-06_rb,0.14892e-06_rb,0.33739e-07_rb /)
+      kao(:, 2, 6, 2) = (/ &
+        & 0.36900e-08_rb,0.76605e-07_rb,0.10196e-06_rb,0.12672e-06_rb,0.14857e-06_rb, &
+        & 0.17805e-06_rb,0.19825e-06_rb,0.16899e-06_rb,0.40438e-07_rb /)
+      kao(:, 3, 6, 2) = (/ &
+        & 0.43974e-08_rb,0.85358e-07_rb,0.11411e-06_rb,0.13507e-06_rb,0.15283e-06_rb, &
+        & 0.18257e-06_rb,0.21172e-06_rb,0.18597e-06_rb,0.46134e-07_rb /)
+      kao(:, 4, 6, 2) = (/ &
+        & 0.51213e-08_rb,0.95538e-07_rb,0.12544e-06_rb,0.14691e-06_rb,0.16455e-06_rb, &
+        & 0.18481e-06_rb,0.20979e-06_rb,0.20070e-06_rb,0.51618e-07_rb /)
+      kao(:, 5, 6, 2) = (/ &
+        & 0.58500e-08_rb,0.10543e-06_rb,0.13870e-06_rb,0.15918e-06_rb,0.17259e-06_rb, &
+        & 0.18830e-06_rb,0.21165e-06_rb,0.21507e-06_rb,0.58184e-07_rb /)
+      kao(:, 1, 7, 2) = (/ &
+        & 0.21343e-08_rb,0.50731e-07_rb,0.73677e-07_rb,0.95876e-07_rb,0.12180e-06_rb, &
+        & 0.14539e-06_rb,0.12792e-06_rb,0.11548e-06_rb,0.24049e-07_rb /)
+      kao(:, 2, 7, 2) = (/ &
+        & 0.26695e-08_rb,0.57886e-07_rb,0.78431e-07_rb,0.10179e-06_rb,0.12404e-06_rb, &
+        & 0.14498e-06_rb,0.15075e-06_rb,0.12789e-06_rb,0.28929e-07_rb /)
+      kao(:, 3, 7, 2) = (/ &
+        & 0.32350e-08_rb,0.65356e-07_rb,0.87120e-07_rb,0.10537e-06_rb,0.12108e-06_rb, &
+        & 0.14722e-06_rb,0.16980e-06_rb,0.14529e-06_rb,0.34426e-07_rb /)
+      kao(:, 4, 7, 2) = (/ &
+        & 0.38202e-08_rb,0.73009e-07_rb,0.96634e-07_rb,0.11454e-06_rb,0.12893e-06_rb, &
+        & 0.15239e-06_rb,0.17280e-06_rb,0.15699e-06_rb,0.38936e-07_rb /)
+      kao(:, 5, 7, 2) = (/ &
+        & 0.44151e-08_rb,0.81203e-07_rb,0.10676e-06_rb,0.12425e-06_rb,0.13576e-06_rb, &
+        & 0.15119e-06_rb,0.17122e-06_rb,0.16974e-06_rb,0.43692e-07_rb /)
+      kao(:, 1, 8, 2) = (/ &
+        & 0.15010e-08_rb,0.38595e-07_rb,0.58295e-07_rb,0.77729e-07_rb,0.98683e-07_rb, &
+        & 0.10992e-06_rb,0.95145e-07_rb,0.92252e-07_rb,0.17319e-07_rb /)
+      kao(:, 2, 8, 2) = (/ &
+        & 0.19201e-08_rb,0.43791e-07_rb,0.61750e-07_rb,0.79921e-07_rb,0.10136e-06_rb, &
+        & 0.11894e-06_rb,0.11276e-06_rb,0.97846e-07_rb,0.20720e-07_rb /)
+      kao(:, 3, 8, 2) = (/ &
+        & 0.23693e-08_rb,0.50071e-07_rb,0.66873e-07_rb,0.85063e-07_rb,0.10052e-06_rb, &
+        & 0.11892e-06_rb,0.13009e-06_rb,0.11045e-06_rb,0.25527e-07_rb /)
+      kao(:, 4, 8, 2) = (/ &
+        & 0.28395e-08_rb,0.55947e-07_rb,0.74757e-07_rb,0.88934e-07_rb,0.10114e-06_rb, &
+        & 0.12142e-06_rb,0.14341e-06_rb,0.12281e-06_rb,0.28938e-07_rb /)
+      kao(:, 5, 8, 2) = (/ &
+        & 0.33227e-08_rb,0.62620e-07_rb,0.82343e-07_rb,0.96807e-07_rb,0.10922e-06_rb, &
+        & 0.12542e-06_rb,0.14247e-06_rb,0.13252e-06_rb,0.32804e-07_rb /)
+      kao(:, 1, 9, 2) = (/ &
+        & 0.10437e-08_rb,0.30107e-07_rb,0.47694e-07_rb,0.63218e-07_rb,0.80199e-07_rb, &
+        & 0.81465e-07_rb,0.70748e-07_rb,0.72461e-07_rb,0.12620e-07_rb /)
+      kao(:, 2, 9, 2) = (/ &
+        & 0.13691e-08_rb,0.33315e-07_rb,0.48674e-07_rb,0.63756e-07_rb,0.81165e-07_rb, &
+        & 0.96892e-07_rb,0.83814e-07_rb,0.76311e-07_rb,0.14799e-07_rb /)
+      kao(:, 3, 9, 2) = (/ &
+        & 0.17229e-08_rb,0.37985e-07_rb,0.51777e-07_rb,0.67272e-07_rb,0.83770e-07_rb, &
+        & 0.97220e-07_rb,0.98951e-07_rb,0.84136e-07_rb,0.18369e-07_rb /)
+      kao(:, 4, 9, 2) = (/ &
+        & 0.20990e-08_rb,0.43091e-07_rb,0.57320e-07_rb,0.69933e-07_rb,0.81214e-07_rb, &
+        & 0.98518e-07_rb,0.11188e-06_rb,0.95453e-07_rb,0.21724e-07_rb /)
+      kao(:, 5, 9, 2) = (/ &
+        & 0.24895e-08_rb,0.48030e-07_rb,0.63808e-07_rb,0.75595e-07_rb,0.85237e-07_rb, &
+        & 0.10122e-06_rb,0.11598e-06_rb,0.10350e-06_rb,0.24792e-07_rb /)
+      kao(:, 1,10, 2) = (/ &
+        & 0.73565e-09_rb,0.23201e-07_rb,0.38192e-07_rb,0.51890e-07_rb,0.66677e-07_rb, &
+        & 0.60941e-07_rb,0.53794e-07_rb,0.57060e-07_rb,0.95538e-08_rb /)
+      kao(:, 2,10, 2) = (/ &
+        & 0.98838e-09_rb,0.25706e-07_rb,0.38945e-07_rb,0.51950e-07_rb,0.65881e-07_rb, &
+        & 0.73501e-07_rb,0.63459e-07_rb,0.61276e-07_rb,0.10909e-07_rb /)
+      kao(:, 3,10, 2) = (/ &
+        & 0.12675e-08_rb,0.29153e-07_rb,0.41180e-07_rb,0.53354e-07_rb,0.67729e-07_rb, &
+        & 0.79616e-07_rb,0.75117e-07_rb,0.65122e-07_rb,0.13531e-07_rb /)
+      kao(:, 4,10, 2) = (/ &
+        & 0.15675e-08_rb,0.33329e-07_rb,0.44560e-07_rb,0.57066e-07_rb,0.67627e-07_rb, &
+        & 0.79638e-07_rb,0.86678e-07_rb,0.73448e-07_rb,0.16804e-07_rb /)
+      kao(:, 5,10, 2) = (/ &
+        & 0.18817e-08_rb,0.37257e-07_rb,0.49746e-07_rb,0.59306e-07_rb,0.67554e-07_rb, &
+        & 0.81218e-07_rb,0.96337e-07_rb,0.82154e-07_rb,0.18958e-07_rb /)
+      kao(:, 1,11, 2) = (/ &
+        & 0.60140e-09_rb,0.19007e-07_rb,0.31253e-07_rb,0.42433e-07_rb,0.54566e-07_rb, &
+        & 0.50044e-07_rb,0.44177e-07_rb,0.46695e-07_rb,0.77009e-08_rb /)
+      kao(:, 2,11, 2) = (/ &
+        & 0.80782e-09_rb,0.21033e-07_rb,0.31865e-07_rb,0.42505e-07_rb,0.53930e-07_rb, &
+        & 0.60271e-07_rb,0.51969e-07_rb,0.49836e-07_rb,0.88971e-08_rb /)
+      kao(:, 3,11, 2) = (/ &
+        & 0.10365e-08_rb,0.23860e-07_rb,0.33711e-07_rb,0.43668e-07_rb,0.55447e-07_rb, &
+        & 0.65129e-07_rb,0.61514e-07_rb,0.53242e-07_rb,0.11044e-07_rb /)
+      kao(:, 4,11, 2) = (/ &
+        & 0.12819e-08_rb,0.27278e-07_rb,0.36477e-07_rb,0.46671e-07_rb,0.55334e-07_rb, &
+        & 0.65191e-07_rb,0.70955e-07_rb,0.60123e-07_rb,0.13732e-07_rb /)
+      kao(:, 5,11, 2) = (/ &
+        & 0.15394e-08_rb,0.30488e-07_rb,0.40723e-07_rb,0.48551e-07_rb,0.55301e-07_rb, &
+        & 0.66490e-07_rb,0.78877e-07_rb,0.67264e-07_rb,0.15488e-07_rb /)
+      kao(:, 1,12, 2) = (/ &
+        & 0.49234e-09_rb,0.15554e-07_rb,0.25575e-07_rb,0.34616e-07_rb,0.44615e-07_rb, &
+        & 0.41056e-07_rb,0.36097e-07_rb,0.38091e-07_rb,0.62448e-08_rb /)
+      kao(:, 2,12, 2) = (/ &
+        & 0.66141e-09_rb,0.17225e-07_rb,0.26080e-07_rb,0.34787e-07_rb,0.44118e-07_rb, &
+        & 0.49432e-07_rb,0.42531e-07_rb,0.40718e-07_rb,0.72624e-08_rb /)
+      kao(:, 3,12, 2) = (/ &
+        & 0.84839e-09_rb,0.19539e-07_rb,0.27604e-07_rb,0.35754e-07_rb,0.45370e-07_rb, &
+        & 0.53306e-07_rb,0.50418e-07_rb,0.43565e-07_rb,0.90256e-08_rb /)
+      kao(:, 4,12, 2) = (/ &
+        & 0.10495e-08_rb,0.22342e-07_rb,0.29867e-07_rb,0.38196e-07_rb,0.45322e-07_rb, &
+        & 0.53368e-07_rb,0.58112e-07_rb,0.49244e-07_rb,0.11197e-07_rb /)
+      kao(:, 5,12, 2) = (/ &
+        & 0.12604e-08_rb,0.24969e-07_rb,0.33348e-07_rb,0.39742e-07_rb,0.45269e-07_rb, &
+        & 0.54454e-07_rb,0.64580e-07_rb,0.55079e-07_rb,0.12657e-07_rb /)
+      kao(:, 1,13, 2) = (/ &
+        & 0.40306e-09_rb,0.12738e-07_rb,0.20936e-07_rb,0.28312e-07_rb,0.36505e-07_rb, &
+        & 0.33674e-07_rb,0.29525e-07_rb,0.31139e-07_rb,0.51040e-08_rb /)
+      kao(:, 2,13, 2) = (/ &
+        & 0.54151e-09_rb,0.14106e-07_rb,0.21346e-07_rb,0.28471e-07_rb,0.36139e-07_rb, &
+        & 0.40516e-07_rb,0.34830e-07_rb,0.33325e-07_rb,0.59425e-08_rb /)
+      kao(:, 3,13, 2) = (/ &
+        & 0.69468e-09_rb,0.15999e-07_rb,0.22600e-07_rb,0.29268e-07_rb,0.37150e-07_rb, &
+        & 0.43635e-07_rb,0.41297e-07_rb,0.35646e-07_rb,0.73862e-08_rb /)
+      kao(:, 4,13, 2) = (/ &
+        & 0.85913e-09_rb,0.18290e-07_rb,0.24452e-07_rb,0.31282e-07_rb,0.37096e-07_rb, &
+        & 0.43709e-07_rb,0.47585e-07_rb,0.40319e-07_rb,0.91581e-08_rb /)
+      kao(:, 5,13, 2) = (/ &
+        & 0.10319e-08_rb,0.20440e-07_rb,0.27299e-07_rb,0.32532e-07_rb,0.37047e-07_rb, &
+        & 0.44575e-07_rb,0.52880e-07_rb,0.45086e-07_rb,0.10367e-07_rb /)
+      kao(:, 1, 1, 3) = (/ &
+        & 0.77542e-07_rb,0.72331e-06_rb,0.98561e-06_rb,0.11860e-05_rb,0.13497e-05_rb, &
+        & 0.13448e-05_rb,0.13214e-05_rb,0.14401e-05_rb,0.51217e-06_rb /)
+      kao(:, 2, 1, 3) = (/ &
+        & 0.83965e-07_rb,0.81202e-06_rb,0.11096e-05_rb,0.13150e-05_rb,0.14966e-05_rb, &
+        & 0.14837e-05_rb,0.13715e-05_rb,0.14446e-05_rb,0.53558e-06_rb /)
+      kao(:, 3, 1, 3) = (/ &
+        & 0.89893e-07_rb,0.91147e-06_rb,0.12494e-05_rb,0.14817e-05_rb,0.16581e-05_rb, &
+        & 0.16379e-05_rb,0.14913e-05_rb,0.13540e-05_rb,0.57527e-06_rb /)
+      kao(:, 4, 1, 3) = (/ &
+        & 0.95336e-07_rb,0.98977e-06_rb,0.13580e-05_rb,0.16044e-05_rb,0.17602e-05_rb, &
+        & 0.17289e-05_rb,0.15601e-05_rb,0.13435e-05_rb,0.60153e-06_rb /)
+      kao(:, 5, 1, 3) = (/ &
+        & 0.10024e-06_rb,0.10817e-05_rb,0.14820e-05_rb,0.17354e-05_rb,0.18806e-05_rb, &
+        & 0.18468e-05_rb,0.16817e-05_rb,0.14550e-05_rb,0.63092e-06_rb /)
+      kao(:, 1, 2, 3) = (/ &
+        & 0.61222e-07_rb,0.57382e-06_rb,0.78272e-06_rb,0.94950e-06_rb,0.10796e-05_rb, &
+        & 0.10829e-05_rb,0.10794e-05_rb,0.12292e-05_rb,0.35440e-06_rb /)
+      kao(:, 2, 2, 3) = (/ &
+        & 0.66652e-07_rb,0.64604e-06_rb,0.88511e-06_rb,0.10523e-05_rb,0.12028e-05_rb, &
+        & 0.11924e-05_rb,0.11103e-05_rb,0.11987e-05_rb,0.38232e-06_rb /)
+      kao(:, 3, 2, 3) = (/ &
+        & 0.71672e-07_rb,0.73084e-06_rb,0.10012e-05_rb,0.11880e-05_rb,0.13384e-05_rb, &
+        & 0.13220e-05_rb,0.12030e-05_rb,0.11381e-05_rb,0.43262e-06_rb /)
+      kao(:, 4, 2, 3) = (/ &
+        & 0.76301e-07_rb,0.80259e-06_rb,0.11033e-05_rb,0.13071e-05_rb,0.14343e-05_rb, &
+        & 0.14171e-05_rb,0.12785e-05_rb,0.11080e-05_rb,0.46030e-06_rb /)
+      kao(:, 5, 2, 3) = (/ &
+        & 0.80500e-07_rb,0.87105e-06_rb,0.11939e-05_rb,0.14005e-05_rb,0.15153e-05_rb, &
+        & 0.14864e-05_rb,0.13529e-05_rb,0.11688e-05_rb,0.48117e-06_rb /)
+      kao(:, 1, 3, 3) = (/ &
+        & 0.47304e-07_rb,0.44051e-06_rb,0.60584e-06_rb,0.74769e-06_rb,0.84468e-06_rb, &
+        & 0.85077e-06_rb,0.85665e-06_rb,0.10494e-05_rb,0.24668e-06_rb /)
+      kao(:, 2, 3, 3) = (/ &
+        & 0.51943e-07_rb,0.50181e-06_rb,0.68762e-06_rb,0.82034e-06_rb,0.93657e-06_rb, &
+        & 0.92789e-06_rb,0.88766e-06_rb,0.99297e-06_rb,0.26836e-06_rb /)
+      kao(:, 3, 3, 3) = (/ &
+        & 0.56252e-07_rb,0.56363e-06_rb,0.77259e-06_rb,0.91469e-06_rb,0.10403e-05_rb, &
+        & 0.10243e-05_rb,0.93713e-06_rb,0.99098e-06_rb,0.29882e-06_rb /)
+      kao(:, 4, 3, 3) = (/ &
+        & 0.60224e-07_rb,0.63130e-06_rb,0.86724e-06_rb,0.10288e-05_rb,0.11344e-05_rb, &
+        & 0.11222e-05_rb,0.10162e-05_rb,0.91320e-06_rb,0.33854e-06_rb /)
+      kao(:, 5, 3, 3) = (/ &
+        & 0.63868e-07_rb,0.68673e-06_rb,0.94084e-06_rb,0.11069e-05_rb,0.12001e-05_rb, &
+        & 0.11819e-05_rb,0.10625e-05_rb,0.91639e-06_rb,0.36042e-06_rb /)
+      kao(:, 1, 4, 3) = (/ &
+        & 0.36151e-07_rb,0.33292e-06_rb,0.46957e-06_rb,0.57176e-06_rb,0.64965e-06_rb, &
+        & 0.66578e-06_rb,0.71030e-06_rb,0.90686e-06_rb,0.17407e-06_rb /)
+      kao(:, 2, 4, 3) = (/ &
+        & 0.40107e-07_rb,0.38424e-06_rb,0.52571e-06_rb,0.63554e-06_rb,0.72553e-06_rb, &
+        & 0.72856e-06_rb,0.72697e-06_rb,0.84339e-06_rb,0.19253e-06_rb /)
+      kao(:, 3, 4, 3) = (/ &
+        & 0.43816e-07_rb,0.43401e-06_rb,0.59546e-06_rb,0.70644e-06_rb,0.80752e-06_rb, &
+        & 0.79519e-06_rb,0.74520e-06_rb,0.81506e-06_rb,0.21830e-06_rb /)
+      kao(:, 4, 4, 3) = (/ &
+        & 0.47242e-07_rb,0.48695e-06_rb,0.66577e-06_rb,0.78531e-06_rb,0.87970e-06_rb, &
+        & 0.86799e-06_rb,0.78705e-06_rb,0.76812e-06_rb,0.24161e-06_rb /)
+      kao(:, 5, 4, 3) = (/ &
+        & 0.50394e-07_rb,0.54183e-06_rb,0.74240e-06_rb,0.87572e-06_rb,0.95669e-06_rb, &
+        & 0.94640e-06_rb,0.85379e-06_rb,0.74722e-06_rb,0.28102e-06_rb /)
+      kao(:, 1, 5, 3) = (/ &
+        & 0.27462e-07_rb,0.25134e-06_rb,0.35698e-06_rb,0.43146e-06_rb,0.48552e-06_rb, &
+        & 0.53177e-06_rb,0.62976e-06_rb,0.75904e-06_rb,0.12452e-06_rb /)
+      kao(:, 2, 5, 3) = (/ &
+        & 0.30835e-07_rb,0.29261e-06_rb,0.40164e-06_rb,0.49701e-06_rb,0.56250e-06_rb, &
+        & 0.56722e-06_rb,0.57761e-06_rb,0.72004e-06_rb,0.13996e-06_rb /)
+      kao(:, 3, 5, 3) = (/ &
+        & 0.33997e-07_rb,0.33394e-06_rb,0.45684e-06_rb,0.54380e-06_rb,0.62140e-06_rb, &
+        & 0.61241e-06_rb,0.60037e-06_rb,0.67265e-06_rb,0.16106e-06_rb /)
+      kao(:, 4, 5, 3) = (/ &
+        & 0.36946e-07_rb,0.37590e-06_rb,0.51390e-06_rb,0.60628e-06_rb,0.69027e-06_rb, &
+        & 0.67692e-06_rb,0.62237e-06_rb,0.67035e-06_rb,0.18128e-06_rb /)
+      kao(:, 5, 5, 3) = (/ &
+        & 0.39670e-07_rb,0.42211e-06_rb,0.57710e-06_rb,0.68190e-06_rb,0.75209e-06_rb, &
+        & 0.74450e-06_rb,0.67496e-06_rb,0.61709e-06_rb,0.21416e-06_rb /)
+      kao(:, 1, 6, 3) = (/ &
+        & 0.20602e-07_rb,0.18703e-06_rb,0.26972e-06_rb,0.33456e-06_rb,0.36532e-06_rb, &
+        & 0.42767e-06_rb,0.56721e-06_rb,0.66482e-06_rb,0.87936e-07_rb /)
+      kao(:, 2, 6, 3) = (/ &
+        & 0.23484e-07_rb,0.21971e-06_rb,0.30953e-06_rb,0.37643e-06_rb,0.42627e-06_rb, &
+        & 0.44517e-06_rb,0.48560e-06_rb,0.61604e-06_rb,0.10185e-06_rb /)
+      kao(:, 3, 6, 3) = (/ &
+        & 0.26181e-07_rb,0.25382e-06_rb,0.34607e-06_rb,0.41971e-06_rb,0.47851e-06_rb, &
+        & 0.48129e-06_rb,0.48156e-06_rb,0.56916e-06_rb,0.11864e-06_rb /)
+      kao(:, 4, 6, 3) = (/ &
+        & 0.28705e-07_rb,0.28735e-06_rb,0.39181e-06_rb,0.46499e-06_rb,0.52971e-06_rb, &
+        & 0.52262e-06_rb,0.49397e-06_rb,0.54792e-06_rb,0.13605e-06_rb /)
+      kao(:, 5, 6, 3) = (/ &
+        & 0.31065e-07_rb,0.32265e-06_rb,0.43948e-06_rb,0.51712e-06_rb,0.58131e-06_rb, &
+        & 0.57275e-06_rb,0.52154e-06_rb,0.53300e-06_rb,0.15326e-06_rb /)
+      kao(:, 1, 7, 3) = (/ &
+        & 0.15315e-07_rb,0.13867e-06_rb,0.20497e-06_rb,0.25791e-06_rb,0.28251e-06_rb, &
+        & 0.36209e-06_rb,0.48615e-06_rb,0.57617e-06_rb,0.62083e-07_rb /)
+      kao(:, 2, 7, 3) = (/ &
+        & 0.17770e-07_rb,0.16467e-06_rb,0.23430e-06_rb,0.28445e-06_rb,0.31749e-06_rb, &
+        & 0.35373e-06_rb,0.43530e-06_rb,0.51750e-06_rb,0.74598e-07_rb /)
+      kao(:, 3, 7, 3) = (/ &
+        & 0.20071e-07_rb,0.19194e-06_rb,0.26349e-06_rb,0.32575e-06_rb,0.37090e-06_rb, &
+        & 0.37391e-06_rb,0.38838e-06_rb,0.49613e-06_rb,0.88392e-07_rb /)
+      kao(:, 4, 7, 3) = (/ &
+        & 0.22230e-07_rb,0.21953e-06_rb,0.29840e-06_rb,0.35680e-06_rb,0.40841e-06_rb, &
+        & 0.40516e-06_rb,0.40513e-06_rb,0.45518e-06_rb,0.10149e-06_rb /)
+      kao(:, 5, 7, 3) = (/ &
+        & 0.24244e-07_rb,0.24730e-06_rb,0.33583e-06_rb,0.39740e-06_rb,0.45364e-06_rb, &
+        & 0.44496e-06_rb,0.41471e-06_rb,0.45022e-06_rb,0.11554e-06_rb /)
+      kao(:, 1, 8, 3) = (/ &
+        & 0.11318e-07_rb,0.10309e-06_rb,0.15679e-06_rb,0.19765e-06_rb,0.22300e-06_rb, &
+        & 0.30242e-06_rb,0.40824e-06_rb,0.49442e-06_rb,0.44061e-07_rb /)
+      kao(:, 2, 8, 3) = (/ &
+        & 0.13358e-07_rb,0.12273e-06_rb,0.17705e-06_rb,0.22062e-06_rb,0.24115e-06_rb, &
+        & 0.28999e-06_rb,0.39012e-06_rb,0.45451e-06_rb,0.54847e-07_rb /)
+      kao(:, 3, 8, 3) = (/ &
+        & 0.15323e-07_rb,0.14448e-06_rb,0.20316e-06_rb,0.24566e-06_rb,0.27787e-06_rb, &
+        & 0.29655e-06_rb,0.33237e-06_rb,0.41480e-06_rb,0.64157e-07_rb /)
+      kao(:, 4, 8, 3) = (/ &
+        & 0.17158e-07_rb,0.16673e-06_rb,0.22673e-06_rb,0.27760e-06_rb,0.31491e-06_rb, &
+        & 0.31778e-06_rb,0.31818e-06_rb,0.38422e-06_rb,0.75698e-07_rb /)
+      kao(:, 5, 8, 3) = (/ &
+        & 0.18880e-07_rb,0.18905e-06_rb,0.25711e-06_rb,0.30558e-06_rb,0.34820e-06_rb, &
+        & 0.34226e-06_rb,0.32757e-06_rb,0.36903e-06_rb,0.87559e-07_rb /)
+      kao(:, 1, 9, 3) = (/ &
+        & 0.83060e-08_rb,0.76710e-07_rb,0.11565e-06_rb,0.14764e-06_rb,0.17329e-06_rb, &
+        & 0.25783e-06_rb,0.35957e-06_rb,0.41243e-06_rb,0.31797e-07_rb /)
+      kao(:, 2, 9, 3) = (/ &
+        & 0.99651e-08_rb,0.91242e-07_rb,0.13632e-06_rb,0.17065e-06_rb,0.18967e-06_rb, &
+        & 0.24393e-06_rb,0.32914e-06_rb,0.39160e-06_rb,0.39225e-07_rb /)
+      kao(:, 3, 9, 3) = (/ &
+        & 0.11621e-07_rb,0.10845e-06_rb,0.15426e-06_rb,0.18813e-06_rb,0.20803e-06_rb, &
+        & 0.23565e-06_rb,0.29600e-06_rb,0.35083e-06_rb,0.47417e-07_rb /)
+      kao(:, 4, 9, 3) = (/ &
+        & 0.13182e-07_rb,0.12617e-06_rb,0.17363e-06_rb,0.21434e-06_rb,0.24338e-06_rb, &
+        & 0.24767e-06_rb,0.26174e-06_rb,0.33967e-06_rb,0.56851e-07_rb /)
+      kao(:, 5, 9, 3) = (/ &
+        & 0.14647e-07_rb,0.14462e-06_rb,0.19609e-06_rb,0.23554e-06_rb,0.26966e-06_rb, &
+        & 0.27000e-06_rb,0.26860e-06_rb,0.30941e-06_rb,0.65848e-07_rb /)
+      kao(:, 1,10, 3) = (/ &
+        & 0.61513e-08_rb,0.59201e-07_rb,0.89564e-07_rb,0.11096e-06_rb,0.13963e-06_rb, &
+        & 0.22868e-06_rb,0.30519e-06_rb,0.34949e-06_rb,0.23910e-07_rb /)
+      kao(:, 2,10, 3) = (/ &
+        & 0.74969e-08_rb,0.68921e-07_rb,0.10513e-06_rb,0.13256e-06_rb,0.14959e-06_rb, &
+        & 0.20339e-06_rb,0.27500e-06_rb,0.33281e-06_rb,0.28611e-07_rb /)
+      kao(:, 3,10, 3) = (/ &
+        & 0.88625e-08_rb,0.82016e-07_rb,0.11818e-06_rb,0.14725e-06_rb,0.16097e-06_rb, &
+        & 0.19608e-06_rb,0.26185e-06_rb,0.30530e-06_rb,0.35935e-07_rb /)
+      kao(:, 4,10, 3) = (/ &
+        & 0.10184e-07_rb,0.96432e-07_rb,0.13542e-06_rb,0.16348e-06_rb,0.18477e-06_rb, &
+        & 0.19886e-06_rb,0.22449e-06_rb,0.27787e-06_rb,0.42133e-07_rb /)
+      kao(:, 5,10, 3) = (/ &
+        & 0.11421e-07_rb,0.11117e-06_rb,0.15107e-06_rb,0.18528e-06_rb,0.21005e-06_rb, &
+        & 0.21209e-06_rb,0.21257e-06_rb,0.25796e-06_rb,0.49988e-07_rb /)
+      kao(:, 1,11, 3) = (/ &
+        & 0.50310e-08_rb,0.48563e-07_rb,0.73473e-07_rb,0.91094e-07_rb,0.11455e-06_rb, &
+        & 0.18734e-06_rb,0.24995e-06_rb,0.28620e-06_rb,0.19440e-07_rb /)
+      kao(:, 2,11, 3) = (/ &
+        & 0.61304e-08_rb,0.56532e-07_rb,0.86340e-07_rb,0.10878e-06_rb,0.12244e-06_rb, &
+        & 0.16646e-06_rb,0.22541e-06_rb,0.27316e-06_rb,0.23338e-07_rb /)
+      kao(:, 3,11, 3) = (/ &
+        & 0.72491e-08_rb,0.67226e-07_rb,0.96798e-07_rb,0.12061e-06_rb,0.13181e-06_rb, &
+        & 0.16043e-06_rb,0.21436e-06_rb,0.24928e-06_rb,0.29352e-07_rb /)
+      kao(:, 4,11, 3) = (/ &
+        & 0.83326e-08_rb,0.78998e-07_rb,0.11085e-06_rb,0.13391e-06_rb,0.15135e-06_rb, &
+        & 0.16281e-06_rb,0.18360e-06_rb,0.22741e-06_rb,0.34425e-07_rb /)
+      kao(:, 5,11, 3) = (/ &
+        & 0.93458e-08_rb,0.91055e-07_rb,0.12364e-06_rb,0.15181e-06_rb,0.17196e-06_rb, &
+        & 0.17367e-06_rb,0.17400e-06_rb,0.21108e-06_rb,0.40855e-07_rb /)
+      kao(:, 1,12, 3) = (/ &
+        & 0.41189e-08_rb,0.39856e-07_rb,0.60140e-07_rb,0.74963e-07_rb,0.94012e-07_rb, &
+        & 0.15333e-06_rb,0.20441e-06_rb,0.23474e-06_rb,0.15853e-07_rb /)
+      kao(:, 2,12, 3) = (/ &
+        & 0.50193e-08_rb,0.46348e-07_rb,0.70855e-07_rb,0.89301e-07_rb,0.10040e-06_rb, &
+        & 0.13626e-06_rb,0.18429e-06_rb,0.22399e-06_rb,0.19078e-07_rb /)
+      kao(:, 3,12, 3) = (/ &
+        & 0.59344e-08_rb,0.55100e-07_rb,0.79255e-07_rb,0.98783e-07_rb,0.10799e-06_rb, &
+        & 0.13125e-06_rb,0.17544e-06_rb,0.20357e-06_rb,0.24013e-07_rb /)
+      kao(:, 4,12, 3) = (/ &
+        & 0.68228e-08_rb,0.64743e-07_rb,0.90843e-07_rb,0.10971e-06_rb,0.12396e-06_rb, &
+        & 0.13321e-06_rb,0.15026e-06_rb,0.18611e-06_rb,0.28198e-07_rb /)
+      kao(:, 5,12, 3) = (/ &
+        & 0.76512e-08_rb,0.74591e-07_rb,0.10123e-06_rb,0.12433e-06_rb,0.14085e-06_rb, &
+        & 0.14222e-06_rb,0.14246e-06_rb,0.17276e-06_rb,0.33441e-07_rb /)
+      kao(:, 1,13, 3) = (/ &
+        & 0.33724e-08_rb,0.32680e-07_rb,0.49222e-07_rb,0.61513e-07_rb,0.77133e-07_rb, &
+        & 0.12555e-06_rb,0.16713e-06_rb,0.19233e-06_rb,0.12966e-07_rb /)
+      kao(:, 2,13, 3) = (/ &
+        & 0.41100e-08_rb,0.37987e-07_rb,0.58121e-07_rb,0.73233e-07_rb,0.82218e-07_rb, &
+        & 0.11156e-06_rb,0.15077e-06_rb,0.18269e-06_rb,0.15614e-07_rb /)
+      kao(:, 3,13, 3) = (/ &
+        & 0.48589e-08_rb,0.45157e-07_rb,0.64912e-07_rb,0.80902e-07_rb,0.88466e-07_rb, &
+        & 0.10747e-06_rb,0.14360e-06_rb,0.16616e-06_rb,0.19653e-07_rb /)
+      kao(:, 4,13, 3) = (/ &
+        & 0.55845e-08_rb,0.53032e-07_rb,0.74357e-07_rb,0.89835e-07_rb,0.10150e-06_rb, &
+        & 0.10902e-06_rb,0.12309e-06_rb,0.15231e-06_rb,0.23083e-07_rb /)
+      kao(:, 5,13, 3) = (/ &
+        & 0.62642e-08_rb,0.61086e-07_rb,0.82886e-07_rb,0.10172e-06_rb,0.11529e-06_rb, &
+        & 0.11645e-06_rb,0.11667e-06_rb,0.14140e-06_rb,0.27368e-07_rb /)
+      kao(:, 1, 1, 4) = (/ &
+        & 0.38523e-06_rb,0.18405e-05_rb,0.24561e-05_rb,0.26688e-05_rb,0.26627e-05_rb, &
+        & 0.26678e-05_rb,0.26221e-05_rb,0.23434e-05_rb,0.10243e-05_rb /)
+      kao(:, 2, 1, 4) = (/ &
+        & 0.41258e-06_rb,0.20340e-05_rb,0.26799e-05_rb,0.29289e-05_rb,0.29138e-05_rb, &
+        & 0.29293e-05_rb,0.29106e-05_rb,0.25138e-05_rb,0.11179e-05_rb /)
+      kao(:, 3, 1, 4) = (/ &
+        & 0.43826e-06_rb,0.22391e-05_rb,0.29055e-05_rb,0.31733e-05_rb,0.31848e-05_rb, &
+        & 0.32210e-05_rb,0.31726e-05_rb,0.29277e-05_rb,0.13122e-05_rb /)
+      kao(:, 4, 1, 4) = (/ &
+        & 0.46214e-06_rb,0.24098e-05_rb,0.30735e-05_rb,0.33543e-05_rb,0.34157e-05_rb, &
+        & 0.34436e-05_rb,0.34008e-05_rb,0.32157e-05_rb,0.14111e-05_rb /)
+      kao(:, 5, 1, 4) = (/ &
+        & 0.48360e-06_rb,0.25684e-05_rb,0.32470e-05_rb,0.35527e-05_rb,0.36650e-05_rb, &
+        & 0.37054e-05_rb,0.36463e-05_rb,0.35130e-05_rb,0.16128e-05_rb /)
+      kao(:, 1, 2, 4) = (/ &
+        & 0.30632e-06_rb,0.14811e-05_rb,0.19813e-05_rb,0.21525e-05_rb,0.21480e-05_rb, &
+        & 0.21651e-05_rb,0.21352e-05_rb,0.19097e-05_rb,0.76078e-06_rb /)
+      kao(:, 2, 2, 4) = (/ &
+        & 0.32924e-06_rb,0.16454e-05_rb,0.21736e-05_rb,0.23701e-05_rb,0.23496e-05_rb, &
+        & 0.23721e-05_rb,0.23664e-05_rb,0.20501e-05_rb,0.85884e-06_rb /)
+      kao(:, 3, 2, 4) = (/ &
+        & 0.35084e-06_rb,0.18164e-05_rb,0.23625e-05_rb,0.25754e-05_rb,0.25799e-05_rb, &
+        & 0.26089e-05_rb,0.25758e-05_rb,0.23569e-05_rb,0.98156e-06_rb /)
+      kao(:, 4, 2, 4) = (/ &
+        & 0.37092e-06_rb,0.19724e-05_rb,0.25182e-05_rb,0.27461e-05_rb,0.27987e-05_rb, &
+        & 0.28122e-05_rb,0.27766e-05_rb,0.26535e-05_rb,0.11297e-05_rb /)
+      kao(:, 5, 2, 4) = (/ &
+        & 0.38936e-06_rb,0.20952e-05_rb,0.26519e-05_rb,0.29005e-05_rb,0.29889e-05_rb, &
+        & 0.30120e-05_rb,0.29564e-05_rb,0.28641e-05_rb,0.12488e-05_rb /)
+      kao(:, 1, 3, 4) = (/ &
+        & 0.23924e-06_rb,0.11590e-05_rb,0.15536e-05_rb,0.16834e-05_rb,0.16891e-05_rb, &
+        & 0.17668e-05_rb,0.16904e-05_rb,0.15951e-05_rb,0.52632e-06_rb /)
+      kao(:, 2, 3, 4) = (/ &
+        & 0.25864e-06_rb,0.12971e-05_rb,0.17221e-05_rb,0.18731e-05_rb,0.18563e-05_rb, &
+        & 0.18804e-05_rb,0.18628e-05_rb,0.16576e-05_rb,0.62738e-06_rb /)
+      kao(:, 3, 3, 4) = (/ &
+        & 0.27696e-06_rb,0.14325e-05_rb,0.18710e-05_rb,0.20345e-05_rb,0.20276e-05_rb, &
+        & 0.20548e-05_rb,0.20259e-05_rb,0.17837e-05_rb,0.70461e-06_rb /)
+      kao(:, 4, 3, 4) = (/ &
+        & 0.29413e-06_rb,0.15757e-05_rb,0.20191e-05_rb,0.22050e-05_rb,0.22319e-05_rb, &
+        & 0.22354e-05_rb,0.22195e-05_rb,0.20885e-05_rb,0.84521e-06_rb /)
+      kao(:, 5, 3, 4) = (/ &
+        & 0.31013e-06_rb,0.16829e-05_rb,0.21333e-05_rb,0.23274e-05_rb,0.23871e-05_rb, &
+        & 0.23939e-05_rb,0.23475e-05_rb,0.22805e-05_rb,0.93762e-06_rb /)
+      kao(:, 1, 4, 4) = (/ &
+        & 0.18537e-06_rb,0.89469e-06_rb,0.11953e-05_rb,0.13099e-05_rb,0.13271e-05_rb, &
+        & 0.13910e-05_rb,0.13233e-05_rb,0.12842e-05_rb,0.37595e-06_rb /)
+      kao(:, 2, 4, 4) = (/ &
+        & 0.20178e-06_rb,0.10096e-05_rb,0.13476e-05_rb,0.14636e-05_rb,0.14567e-05_rb, &
+        & 0.14730e-05_rb,0.14642e-05_rb,0.13131e-05_rb,0.45273e-06_rb /)
+      kao(:, 3, 4, 4) = (/ &
+        & 0.21732e-06_rb,0.11251e-05_rb,0.14779e-05_rb,0.16107e-05_rb,0.15945e-05_rb, &
+        & 0.16194e-05_rb,0.16016e-05_rb,0.14026e-05_rb,0.52023e-06_rb /)
+      kao(:, 4, 4, 4) = (/ &
+        & 0.23198e-06_rb,0.12348e-05_rb,0.15955e-05_rb,0.17391e-05_rb,0.17432e-05_rb, &
+        & 0.17515e-05_rb,0.17226e-05_rb,0.15707e-05_rb,0.60921e-06_rb /)
+      kao(:, 5, 4, 4) = (/ &
+        & 0.24566e-06_rb,0.13471e-05_rb,0.17138e-05_rb,0.18677e-05_rb,0.19071e-05_rb, &
+        & 0.19021e-05_rb,0.18647e-05_rb,0.18054e-05_rb,0.72437e-06_rb /)
+      kao(:, 1, 5, 4) = (/ &
+        & 0.14315e-06_rb,0.68654e-06_rb,0.91703e-06_rb,0.10136e-05_rb,0.10640e-05_rb, &
+        & 0.10899e-05_rb,0.10066e-05_rb,0.10387e-05_rb,0.27115e-06_rb /)
+      kao(:, 2, 5, 4) = (/ &
+        & 0.15693e-06_rb,0.78124e-06_rb,0.10460e-05_rb,0.11319e-05_rb,0.11350e-05_rb, &
+        & 0.11836e-05_rb,0.11463e-05_rb,0.10954e-05_rb,0.33462e-06_rb /)
+      kao(:, 3, 5, 4) = (/ &
+        & 0.17013e-06_rb,0.87619e-06_rb,0.11607e-05_rb,0.12633e-05_rb,0.12502e-05_rb, &
+        & 0.12683e-05_rb,0.12476e-05_rb,0.11184e-05_rb,0.38421e-06_rb /)
+      kao(:, 4, 5, 4) = (/ &
+        & 0.18255e-06_rb,0.96990e-06_rb,0.12617e-05_rb,0.13726e-05_rb,0.13641e-05_rb, &
+        & 0.13787e-05_rb,0.13521e-05_rb,0.11952e-05_rb,0.45446e-06_rb /)
+      kao(:, 5, 5, 4) = (/ &
+        & 0.19427e-06_rb,0.10668e-05_rb,0.13642e-05_rb,0.14869e-05_rb,0.15021e-05_rb, &
+        & 0.14945e-05_rb,0.14801e-05_rb,0.13920e-05_rb,0.54371e-06_rb /)
+      kao(:, 1, 6, 4) = (/ &
+        & 0.10978e-06_rb,0.52395e-06_rb,0.69476e-06_rb,0.76850e-06_rb,0.83675e-06_rb, &
+        & 0.86491e-06_rb,0.77625e-06_rb,0.85871e-06_rb,0.19533e-06_rb /)
+      kao(:, 2, 6, 4) = (/ &
+        & 0.12132e-06_rb,0.59825e-06_rb,0.79672e-06_rb,0.87685e-06_rb,0.88945e-06_rb, &
+        & 0.93176e-06_rb,0.88241e-06_rb,0.87959e-06_rb,0.24185e-06_rb /)
+      kao(:, 3, 6, 4) = (/ &
+        & 0.13245e-06_rb,0.67730e-06_rb,0.90458e-06_rb,0.97978e-06_rb,0.97457e-06_rb, &
+        & 0.98659e-06_rb,0.98199e-06_rb,0.88654e-06_rb,0.28188e-06_rb /)
+      kao(:, 4, 6, 4) = (/ &
+        & 0.14304e-06_rb,0.75520e-06_rb,0.99285e-06_rb,0.10803e-05_rb,0.10647e-05_rb, &
+        & 0.10764e-05_rb,0.10623e-05_rb,0.93315e-06_rb,0.33738e-06_rb /)
+      kao(:, 5, 6, 4) = (/ &
+        & 0.15298e-06_rb,0.83133e-06_rb,0.10714e-05_rb,0.11654e-05_rb,0.11612e-05_rb, &
+        & 0.11628e-05_rb,0.11409e-05_rb,0.10211e-05_rb,0.39343e-06_rb /)
+      kao(:, 1, 7, 4) = (/ &
+        & 0.83795e-07_rb,0.39583e-06_rb,0.52221e-06_rb,0.57623e-06_rb,0.66801e-06_rb, &
+        & 0.68350e-06_rb,0.61427e-06_rb,0.74508e-06_rb,0.14027e-06_rb /)
+      kao(:, 2, 7, 4) = (/ &
+        & 0.93456e-07_rb,0.45651e-06_rb,0.60707e-06_rb,0.67267e-06_rb,0.70886e-06_rb, &
+        & 0.72875e-06_rb,0.66655e-06_rb,0.70837e-06_rb,0.17333e-06_rb /)
+      kao(:, 3, 7, 4) = (/ &
+        & 0.10278e-06_rb,0.52065e-06_rb,0.69548e-06_rb,0.75346e-06_rb,0.75243e-06_rb, &
+        & 0.79752e-06_rb,0.76130e-06_rb,0.73768e-06_rb,0.20746e-06_rb /)
+      kao(:, 4, 7, 4) = (/ &
+        & 0.11172e-06_rb,0.58539e-06_rb,0.77614e-06_rb,0.84147e-06_rb,0.82956e-06_rb, &
+        & 0.83892e-06_rb,0.81830e-06_rb,0.74649e-06_rb,0.24711e-06_rb /)
+      kao(:, 5, 7, 4) = (/ &
+        & 0.12020e-06_rb,0.64890e-06_rb,0.84430e-06_rb,0.91375e-06_rb,0.90365e-06_rb, &
+        & 0.91211e-06_rb,0.89073e-06_rb,0.78796e-06_rb,0.29290e-06_rb /)
+      kao(:, 1, 8, 4) = (/ &
+        & 0.63771e-07_rb,0.29724e-06_rb,0.38901e-06_rb,0.42952e-06_rb,0.53569e-06_rb, &
+        & 0.52739e-06_rb,0.51421e-06_rb,0.65416e-06_rb,0.10106e-06_rb /)
+      kao(:, 2, 8, 4) = (/ &
+        & 0.71835e-07_rb,0.34855e-06_rb,0.45895e-06_rb,0.50927e-06_rb,0.55878e-06_rb, &
+        & 0.57413e-06_rb,0.51386e-06_rb,0.58703e-06_rb,0.12396e-06_rb /)
+      kao(:, 3, 8, 4) = (/ &
+        & 0.79626e-07_rb,0.39836e-06_rb,0.52930e-06_rb,0.58238e-06_rb,0.59321e-06_rb, &
+        & 0.61917e-06_rb,0.58275e-06_rb,0.59574e-06_rb,0.15556e-06_rb /)
+      kao(:, 4, 8, 4) = (/ &
+        & 0.87141e-07_rb,0.45236e-06_rb,0.60287e-06_rb,0.64978e-06_rb,0.64621e-06_rb, &
+        & 0.65548e-06_rb,0.65037e-06_rb,0.59243e-06_rb,0.18170e-06_rb /)
+      kao(:, 5, 8, 4) = (/ &
+        & 0.94308e-07_rb,0.50478e-06_rb,0.66216e-06_rb,0.71791e-06_rb,0.70542e-06_rb, &
+        & 0.71265e-06_rb,0.70440e-06_rb,0.61750e-06_rb,0.21806e-06_rb /)
+      kao(:, 1, 9, 4) = (/ &
+        & 0.48334e-07_rb,0.22150e-06_rb,0.29066e-06_rb,0.32650e-06_rb,0.41774e-06_rb, &
+        & 0.40737e-06_rb,0.44502e-06_rb,0.56524e-06_rb,0.72879e-07_rb /)
+      kao(:, 2, 9, 4) = (/ &
+        & 0.54994e-07_rb,0.26340e-06_rb,0.34441e-06_rb,0.38160e-06_rb,0.44410e-06_rb, &
+        & 0.45746e-06_rb,0.41390e-06_rb,0.50482e-06_rb,0.89924e-07_rb /)
+      kao(:, 3, 9, 4) = (/ &
+        & 0.61501e-07_rb,0.30416e-06_rb,0.40299e-06_rb,0.44693e-06_rb,0.47253e-06_rb, &
+        & 0.48623e-06_rb,0.44624e-06_rb,0.47646e-06_rb,0.11220e-06_rb /)
+      kao(:, 4, 9, 4) = (/ &
+        & 0.67792e-07_rb,0.34758e-06_rb,0.46191e-06_rb,0.50102e-06_rb,0.50055e-06_rb, &
+        & 0.52975e-06_rb,0.50335e-06_rb,0.48665e-06_rb,0.13456e-06_rb /)
+      kao(:, 5, 9, 4) = (/ &
+        & 0.73830e-07_rb,0.39095e-06_rb,0.51738e-06_rb,0.55894e-06_rb,0.55048e-06_rb, &
+        & 0.55492e-06_rb,0.54317e-06_rb,0.49144e-06_rb,0.16088e-06_rb /)
+      kao(:, 1,10, 4) = (/ &
+        & 0.36931e-07_rb,0.16614e-06_rb,0.21895e-06_rb,0.26116e-06_rb,0.33023e-06_rb, &
+        & 0.31438e-06_rb,0.35810e-06_rb,0.46819e-06_rb,0.53649e-07_rb /)
+      kao(:, 2,10, 4) = (/ &
+        & 0.42386e-07_rb,0.20028e-06_rb,0.26120e-06_rb,0.28858e-06_rb,0.36090e-06_rb, &
+        & 0.35506e-06_rb,0.34639e-06_rb,0.43640e-06_rb,0.66551e-07_rb /)
+      kao(:, 3,10, 4) = (/ &
+        & 0.47801e-07_rb,0.23474e-06_rb,0.30842e-06_rb,0.34242e-06_rb,0.37552e-06_rb, &
+        & 0.38348e-06_rb,0.34637e-06_rb,0.39519e-06_rb,0.81897e-07_rb /)
+      kao(:, 4,10, 4) = (/ &
+        & 0.53030e-07_rb,0.26856e-06_rb,0.35532e-06_rb,0.39019e-06_rb,0.39727e-06_rb, &
+        & 0.41391e-06_rb,0.38815e-06_rb,0.39845e-06_rb,0.10316e-06_rb /)
+      kao(:, 5,10, 4) = (/ &
+        & 0.58073e-07_rb,0.30468e-06_rb,0.40415e-06_rb,0.43508e-06_rb,0.43212e-06_rb, &
+        & 0.43860e-06_rb,0.43462e-06_rb,0.39513e-06_rb,0.12065e-06_rb /)
+      kao(:, 1,11, 4) = (/ &
+        & 0.30210e-07_rb,0.13672e-06_rb,0.18028e-06_rb,0.21388e-06_rb,0.27067e-06_rb, &
+        & 0.25748e-06_rb,0.29347e-06_rb,0.38486e-06_rb,0.43992e-07_rb /)
+      kao(:, 2,11, 4) = (/ &
+        & 0.34676e-07_rb,0.16480e-06_rb,0.21447e-06_rb,0.23703e-06_rb,0.29658e-06_rb, &
+        & 0.29189e-06_rb,0.28346e-06_rb,0.35425e-06_rb,0.54558e-07_rb /)
+      kao(:, 3,11, 4) = (/ &
+        & 0.39112e-07_rb,0.19301e-06_rb,0.25343e-06_rb,0.28112e-06_rb,0.30767e-06_rb, &
+        & 0.31424e-06_rb,0.28354e-06_rb,0.32323e-06_rb,0.67060e-07_rb /)
+      kao(:, 4,11, 4) = (/ &
+        & 0.43392e-07_rb,0.22069e-06_rb,0.29158e-06_rb,0.31987e-06_rb,0.32514e-06_rb, &
+        & 0.33920e-06_rb,0.31782e-06_rb,0.32572e-06_rb,0.84444e-07_rb /)
+      kao(:, 5,11, 4) = (/ &
+        & 0.47520e-07_rb,0.25011e-06_rb,0.33134e-06_rb,0.35641e-06_rb,0.35390e-06_rb, &
+        & 0.35921e-06_rb,0.35594e-06_rb,0.32298e-06_rb,0.98845e-07_rb /)
+      kao(:, 1,12, 4) = (/ &
+        & 0.24733e-07_rb,0.11230e-06_rb,0.14856e-06_rb,0.17472e-06_rb,0.22197e-06_rb, &
+        & 0.21118e-06_rb,0.24122e-06_rb,0.31477e-06_rb,0.36119e-07_rb /)
+      kao(:, 2,12, 4) = (/ &
+        & 0.28389e-07_rb,0.13551e-06_rb,0.17612e-06_rb,0.19468e-06_rb,0.24363e-06_rb, &
+        & 0.23963e-06_rb,0.23290e-06_rb,0.28830e-06_rb,0.44709e-07_rb /)
+      kao(:, 3,12, 4) = (/ &
+        & 0.32017e-07_rb,0.15859e-06_rb,0.20791e-06_rb,0.23074e-06_rb,0.25230e-06_rb, &
+        & 0.25771e-06_rb,0.23238e-06_rb,0.26334e-06_rb,0.54941e-07_rb /)
+      kao(:, 4,12, 4) = (/ &
+        & 0.35526e-07_rb,0.18123e-06_rb,0.23912e-06_rb,0.26228e-06_rb,0.26637e-06_rb, &
+        & 0.27804e-06_rb,0.26039e-06_rb,0.26652e-06_rb,0.69162e-07_rb /)
+      kao(:, 5,12, 4) = (/ &
+        & 0.38912e-07_rb,0.20524e-06_rb,0.27165e-06_rb,0.29207e-06_rb,0.28991e-06_rb, &
+        & 0.29419e-06_rb,0.29154e-06_rb,0.26412e-06_rb,0.80995e-07_rb /)
+      kao(:, 1,13, 4) = (/ &
+        & 0.20250e-07_rb,0.92231e-07_rb,0.12203e-06_rb,0.14275e-06_rb,0.18179e-06_rb, &
+        & 0.17279e-06_rb,0.19796e-06_rb,0.25817e-06_rb,0.29574e-07_rb /)
+      kao(:, 2,13, 4) = (/ &
+        & 0.23243e-07_rb,0.11133e-06_rb,0.14442e-06_rb,0.15980e-06_rb,0.20001e-06_rb, &
+        & 0.19638e-06_rb,0.19075e-06_rb,0.23541e-06_rb,0.36618e-07_rb /)
+      kao(:, 3,13, 4) = (/ &
+        & 0.26215e-07_rb,0.13018e-06_rb,0.17053e-06_rb,0.18925e-06_rb,0.20654e-06_rb, &
+        & 0.21104e-06_rb,0.19040e-06_rb,0.21495e-06_rb,0.44987e-07_rb /)
+      kao(:, 4,13, 4) = (/ &
+        & 0.29082e-07_rb,0.14865e-06_rb,0.19601e-06_rb,0.21490e-06_rb,0.21820e-06_rb, &
+        & 0.22779e-06_rb,0.21313e-06_rb,0.21809e-06_rb,0.56635e-07_rb /)
+      kao(:, 5,13, 4) = (/ &
+        & 0.31856e-07_rb,0.16826e-06_rb,0.22260e-06_rb,0.23930e-06_rb,0.23753e-06_rb, &
+        & 0.24098e-06_rb,0.23875e-06_rb,0.21605e-06_rb,0.66316e-07_rb /)
+      kao(:, 1, 1, 5) = (/ &
+        & 0.17059e-05_rb,0.38862e-05_rb,0.46330e-05_rb,0.51258e-05_rb,0.53516e-05_rb, &
+        & 0.52890e-05_rb,0.49050e-05_rb,0.49561e-05_rb,0.24914e-05_rb /)
+      kao(:, 2, 1, 5) = (/ &
+        & 0.17702e-05_rb,0.41613e-05_rb,0.49979e-05_rb,0.55352e-05_rb,0.58535e-05_rb, &
+        & 0.58620e-05_rb,0.55540e-05_rb,0.53944e-05_rb,0.30111e-05_rb /)
+      kao(:, 3, 1, 5) = (/ &
+        & 0.18268e-05_rb,0.44218e-05_rb,0.53631e-05_rb,0.59894e-05_rb,0.63892e-05_rb, &
+        & 0.64888e-05_rb,0.63488e-05_rb,0.59957e-05_rb,0.35253e-05_rb /)
+      kao(:, 4, 1, 5) = (/ &
+        & 0.18763e-05_rb,0.46467e-05_rb,0.56969e-05_rb,0.64112e-05_rb,0.68701e-05_rb, &
+        & 0.70687e-05_rb,0.69575e-05_rb,0.65330e-05_rb,0.40117e-05_rb /)
+      kao(:, 5, 1, 5) = (/ &
+        & 0.19168e-05_rb,0.48702e-05_rb,0.60413e-05_rb,0.68595e-05_rb,0.73828e-05_rb, &
+        & 0.76555e-05_rb,0.76620e-05_rb,0.72236e-05_rb,0.44814e-05_rb /)
+      kao(:, 1, 2, 5) = (/ &
+        & 0.13807e-05_rb,0.32052e-05_rb,0.37981e-05_rb,0.41868e-05_rb,0.43666e-05_rb, &
+        & 0.42966e-05_rb,0.39397e-05_rb,0.40523e-05_rb,0.19972e-05_rb /)
+      kao(:, 2, 2, 5) = (/ &
+        & 0.14355e-05_rb,0.34375e-05_rb,0.40968e-05_rb,0.45345e-05_rb,0.47869e-05_rb, &
+        & 0.47900e-05_rb,0.45121e-05_rb,0.44176e-05_rb,0.23759e-05_rb /)
+      kao(:, 3, 2, 5) = (/ &
+        & 0.14839e-05_rb,0.36628e-05_rb,0.44128e-05_rb,0.49223e-05_rb,0.52399e-05_rb, &
+        & 0.53302e-05_rb,0.51982e-05_rb,0.49130e-05_rb,0.28052e-05_rb /)
+      kao(:, 4, 2, 5) = (/ &
+        & 0.15261e-05_rb,0.38551e-05_rb,0.47116e-05_rb,0.52947e-05_rb,0.56758e-05_rb, &
+        & 0.58601e-05_rb,0.57606e-05_rb,0.54224e-05_rb,0.31665e-05_rb /)
+      kao(:, 5, 2, 5) = (/ &
+        & 0.15621e-05_rb,0.40345e-05_rb,0.49797e-05_rb,0.56344e-05_rb,0.60672e-05_rb, &
+        & 0.63079e-05_rb,0.63076e-05_rb,0.59671e-05_rb,0.35368e-05_rb /)
+      kao(:, 1, 3, 5) = (/ &
+        & 0.11048e-05_rb,0.25908e-05_rb,0.30458e-05_rb,0.33480e-05_rb,0.34767e-05_rb, &
+        & 0.33444e-05_rb,0.30982e-05_rb,0.31520e-05_rb,0.14943e-05_rb /)
+      kao(:, 2, 3, 5) = (/ &
+        & 0.11526e-05_rb,0.27857e-05_rb,0.32915e-05_rb,0.36364e-05_rb,0.38272e-05_rb, &
+        & 0.38169e-05_rb,0.35492e-05_rb,0.35141e-05_rb,0.17575e-05_rb /)
+      kao(:, 3, 3, 5) = (/ &
+        & 0.11948e-05_rb,0.29688e-05_rb,0.35427e-05_rb,0.39401e-05_rb,0.41747e-05_rb, &
+        & 0.42239e-05_rb,0.40766e-05_rb,0.39111e-05_rb,0.20688e-05_rb /)
+      kao(:, 4, 3, 5) = (/ &
+        & 0.12319e-05_rb,0.31426e-05_rb,0.38135e-05_rb,0.42625e-05_rb,0.45635e-05_rb, &
+        & 0.47062e-05_rb,0.46027e-05_rb,0.43389e-05_rb,0.23873e-05_rb /)
+      kao(:, 5, 3, 5) = (/ &
+        & 0.12642e-05_rb,0.32923e-05_rb,0.40402e-05_rb,0.45497e-05_rb,0.48934e-05_rb, &
+        & 0.50814e-05_rb,0.50577e-05_rb,0.47614e-05_rb,0.26860e-05_rb /)
+      kao(:, 1, 4, 5) = (/ &
+        & 0.87810e-06_rb,0.20726e-05_rb,0.24188e-05_rb,0.26498e-05_rb,0.27201e-05_rb, &
+        & 0.25966e-05_rb,0.24215e-05_rb,0.25596e-05_rb,0.10910e-05_rb /)
+      kao(:, 2, 4, 5) = (/ &
+        & 0.92113e-06_rb,0.22378e-05_rb,0.26243e-05_rb,0.28859e-05_rb,0.30228e-05_rb, &
+        & 0.29855e-05_rb,0.27257e-05_rb,0.28497e-05_rb,0.12952e-05_rb /)
+      kao(:, 3, 4, 5) = (/ &
+        & 0.95847e-06_rb,0.23927e-05_rb,0.28323e-05_rb,0.31308e-05_rb,0.33238e-05_rb, &
+        & 0.33287e-05_rb,0.31597e-05_rb,0.31032e-05_rb,0.15368e-05_rb /)
+      kao(:, 4, 4, 5) = (/ &
+        & 0.99115e-06_rb,0.25350e-05_rb,0.30423e-05_rb,0.33883e-05_rb,0.36085e-05_rb, &
+        & 0.36829e-05_rb,0.35850e-05_rb,0.33993e-05_rb,0.17502e-05_rb /)
+      kao(:, 5, 4, 5) = (/ &
+        & 0.10199e-05_rb,0.26768e-05_rb,0.32656e-05_rb,0.36641e-05_rb,0.39303e-05_rb, &
+        & 0.40820e-05_rb,0.40444e-05_rb,0.38038e-05_rb,0.20588e-05_rb /)
+      kao(:, 1, 5, 5) = (/ &
+        & 0.69521e-06_rb,0.16480e-05_rb,0.19136e-05_rb,0.20758e-05_rb,0.21053e-05_rb, &
+        & 0.19983e-05_rb,0.19384e-05_rb,0.21119e-05_rb,0.79759e-06_rb /)
+      kao(:, 2, 5, 5) = (/ &
+        & 0.73399e-06_rb,0.17885e-05_rb,0.20863e-05_rb,0.22802e-05_rb,0.23681e-05_rb, &
+        & 0.23078e-05_rb,0.21093e-05_rb,0.21684e-05_rb,0.95048e-06_rb /)
+      kao(:, 3, 5, 5) = (/ &
+        & 0.76704e-06_rb,0.19210e-05_rb,0.22551e-05_rb,0.24823e-05_rb,0.26201e-05_rb, &
+        & 0.26181e-05_rb,0.24369e-05_rb,0.24387e-05_rb,0.11396e-05_rb /)
+      kao(:, 4, 5, 5) = (/ &
+        & 0.79598e-06_rb,0.20422e-05_rb,0.24305e-05_rb,0.26936e-05_rb,0.28610e-05_rb, &
+        & 0.28938e-05_rb,0.28032e-05_rb,0.26848e-05_rb,0.13054e-05_rb /)
+      kao(:, 5, 5, 5) = (/ &
+        & 0.82146e-06_rb,0.21630e-05_rb,0.26149e-05_rb,0.29202e-05_rb,0.31281e-05_rb, &
+        & 0.32364e-05_rb,0.31639e-05_rb,0.29903e-05_rb,0.15503e-05_rb /)
+      kao(:, 1, 6, 5) = (/ &
+        & 0.54790e-06_rb,0.12968e-05_rb,0.14998e-05_rb,0.16199e-05_rb,0.16168e-05_rb, &
+        & 0.15151e-05_rb,0.14932e-05_rb,0.16380e-05_rb,0.58437e-06_rb /)
+      kao(:, 2, 6, 5) = (/ &
+        & 0.58180e-06_rb,0.14204e-05_rb,0.16474e-05_rb,0.17877e-05_rb,0.18382e-05_rb, &
+        & 0.17645e-05_rb,0.16359e-05_rb,0.17414e-05_rb,0.70191e-06_rb /)
+      kao(:, 3, 6, 5) = (/ &
+        & 0.61169e-06_rb,0.15332e-05_rb,0.17837e-05_rb,0.19554e-05_rb,0.20462e-05_rb, &
+        & 0.20343e-05_rb,0.18483e-05_rb,0.19670e-05_rb,0.83824e-06_rb /)
+      kao(:, 4, 6, 5) = (/ &
+        & 0.63729e-06_rb,0.16375e-05_rb,0.19280e-05_rb,0.21247e-05_rb,0.22559e-05_rb, &
+        & 0.22588e-05_rb,0.21468e-05_rb,0.21190e-05_rb,0.96829e-06_rb /)
+      kao(:, 5, 6, 5) = (/ &
+        & 0.65987e-06_rb,0.17326e-05_rb,0.20710e-05_rb,0.23017e-05_rb,0.24525e-05_rb, &
+        & 0.25042e-05_rb,0.24377e-05_rb,0.23029e-05_rb,0.11330e-05_rb /)
+      kao(:, 1, 7, 5) = (/ &
+        & 0.43067e-06_rb,0.10147e-05_rb,0.11663e-05_rb,0.12622e-05_rb,0.12316e-05_rb, &
+        & 0.11186e-05_rb,0.12227e-05_rb,0.12153e-05_rb,0.41960e-06_rb /)
+      kao(:, 2, 7, 5) = (/ &
+        & 0.45965e-06_rb,0.11216e-05_rb,0.12929e-05_rb,0.13935e-05_rb,0.14129e-05_rb, &
+        & 0.13426e-05_rb,0.12944e-05_rb,0.14463e-05_rb,0.51416e-06_rb /)
+      kao(:, 3, 7, 5) = (/ &
+        & 0.48636e-06_rb,0.12186e-05_rb,0.14109e-05_rb,0.15331e-05_rb,0.15936e-05_rb, &
+        & 0.15473e-05_rb,0.14164e-05_rb,0.14707e-05_rb,0.61314e-06_rb /)
+      kao(:, 4, 7, 5) = (/ &
+        & 0.50928e-06_rb,0.13071e-05_rb,0.15237e-05_rb,0.16740e-05_rb,0.17644e-05_rb, &
+        & 0.17562e-05_rb,0.16373e-05_rb,0.16431e-05_rb,0.72862e-06_rb /)
+      kao(:, 5, 7, 5) = (/ &
+        & 0.52919e-06_rb,0.13890e-05_rb,0.16443e-05_rb,0.18186e-05_rb,0.19296e-05_rb, &
+        & 0.19451e-05_rb,0.18786e-05_rb,0.17942e-05_rb,0.84235e-06_rb /)
+      kao(:, 1, 8, 5) = (/ &
+        & 0.33792e-06_rb,0.78856e-06_rb,0.90464e-06_rb,0.98317e-06_rb,0.92848e-06_rb, &
+        & 0.86387e-06_rb,0.95438e-06_rb,0.90887e-06_rb,0.29529e-06_rb /)
+      kao(:, 2, 8, 5) = (/ &
+        & 0.36263e-06_rb,0.88071e-06_rb,0.10121e-05_rb,0.10878e-05_rb,0.10817e-05_rb, &
+        & 0.10133e-05_rb,0.10031e-05_rb,0.11161e-05_rb,0.37413e-06_rb /)
+      kao(:, 3, 8, 5) = (/ &
+        & 0.38563e-06_rb,0.96560e-06_rb,0.11116e-05_rb,0.12011e-05_rb,0.12324e-05_rb, &
+        & 0.11848e-05_rb,0.10927e-05_rb,0.11776e-05_rb,0.44987e-06_rb /)
+      kao(:, 4, 8, 5) = (/ &
+        & 0.40622e-06_rb,0.10407e-05_rb,0.12047e-05_rb,0.13138e-05_rb,0.13745e-05_rb, &
+        & 0.13598e-05_rb,0.12356e-05_rb,0.13203e-05_rb,0.54288e-06_rb /)
+      kao(:, 5, 8, 5) = (/ &
+        & 0.42386e-06_rb,0.11111e-05_rb,0.13019e-05_rb,0.14302e-05_rb,0.15146e-05_rb, &
+        & 0.15112e-05_rb,0.14255e-05_rb,0.14090e-05_rb,0.62729e-06_rb /)
+      kao(:, 1, 9, 5) = (/ &
+        & 0.26432e-06_rb,0.60726e-06_rb,0.70036e-06_rb,0.76229e-06_rb,0.71577e-06_rb, &
+        & 0.69749e-06_rb,0.70164e-06_rb,0.72668e-06_rb,0.20659e-06_rb /)
+      kao(:, 2, 9, 5) = (/ &
+        & 0.28549e-06_rb,0.68848e-06_rb,0.78705e-06_rb,0.84862e-06_rb,0.82241e-06_rb, &
+        & 0.74707e-06_rb,0.82519e-06_rb,0.82938e-06_rb,0.27449e-06_rb /)
+      kao(:, 3, 9, 5) = (/ &
+        & 0.30511e-06_rb,0.76168e-06_rb,0.87199e-06_rb,0.93359e-06_rb,0.94531e-06_rb, &
+        & 0.89794e-06_rb,0.85947e-06_rb,0.97111e-06_rb,0.33410e-06_rb /)
+      kao(:, 4, 9, 5) = (/ &
+        & 0.32329e-06_rb,0.82660e-06_rb,0.95163e-06_rb,0.10287e-05_rb,0.10680e-05_rb, &
+        & 0.10381e-05_rb,0.94558e-06_rb,0.98374e-06_rb,0.39896e-06_rb /)
+      kao(:, 5, 9, 5) = (/ &
+        & 0.33897e-06_rb,0.88614e-06_rb,0.10276e-05_rb,0.11239e-05_rb,0.11817e-05_rb, &
+        & 0.11723e-05_rb,0.10892e-05_rb,0.10943e-05_rb,0.47438e-06_rb /)
+      kao(:, 1,10, 5) = (/ &
+        & 0.20748e-06_rb,0.47023e-06_rb,0.54165e-06_rb,0.58159e-06_rb,0.54422e-06_rb, &
+        & 0.55116e-06_rb,0.57712e-06_rb,0.60571e-06_rb,0.14752e-06_rb /)
+      kao(:, 2,10, 5) = (/ &
+        & 0.22561e-06_rb,0.54027e-06_rb,0.61555e-06_rb,0.66550e-06_rb,0.62550e-06_rb, &
+        & 0.58306e-06_rb,0.64781e-06_rb,0.63365e-06_rb,0.19821e-06_rb /)
+      kao(:, 3,10, 5) = (/ &
+        & 0.24219e-06_rb,0.60251e-06_rb,0.68703e-06_rb,0.73412e-06_rb,0.72965e-06_rb, &
+        & 0.68255e-06_rb,0.67291e-06_rb,0.76422e-06_rb,0.24874e-06_rb /)
+      kao(:, 4,10, 5) = (/ &
+        & 0.25766e-06_rb,0.65861e-06_rb,0.75375e-06_rb,0.81214e-06_rb,0.83171e-06_rb, &
+        & 0.80129e-06_rb,0.73385e-06_rb,0.78864e-06_rb,0.29867e-06_rb /)
+      kao(:, 5,10, 5) = (/ &
+        & 0.27157e-06_rb,0.70870e-06_rb,0.81638e-06_rb,0.88593e-06_rb,0.92651e-06_rb, &
+        & 0.91449e-06_rb,0.83048e-06_rb,0.88651e-06_rb,0.36087e-06_rb /)
+      kao(:, 1,11, 5) = (/ &
+        & 0.16984e-06_rb,0.38981e-06_rb,0.44742e-06_rb,0.48022e-06_rb,0.44950e-06_rb, &
+        & 0.45173e-06_rb,0.47333e-06_rb,0.50203e-06_rb,0.12166e-06_rb /)
+      kao(:, 2,11, 5) = (/ &
+        & 0.18466e-06_rb,0.44753e-06_rb,0.50754e-06_rb,0.54744e-06_rb,0.51342e-06_rb, &
+        & 0.47893e-06_rb,0.53296e-06_rb,0.51992e-06_rb,0.16283e-06_rb /)
+      kao(:, 3,11, 5) = (/ &
+        & 0.19826e-06_rb,0.49803e-06_rb,0.56578e-06_rb,0.60333e-06_rb,0.60031e-06_rb, &
+        & 0.56085e-06_rb,0.55152e-06_rb,0.63442e-06_rb,0.20412e-06_rb /)
+      kao(:, 4,11, 5) = (/ &
+        & 0.21087e-06_rb,0.54349e-06_rb,0.62058e-06_rb,0.66722e-06_rb,0.68339e-06_rb, &
+        & 0.65819e-06_rb,0.60140e-06_rb,0.64555e-06_rb,0.24501e-06_rb /)
+      kao(:, 5,11, 5) = (/ &
+        & 0.22228e-06_rb,0.58430e-06_rb,0.67139e-06_rb,0.72733e-06_rb,0.76067e-06_rb, &
+        & 0.75025e-06_rb,0.68133e-06_rb,0.72307e-06_rb,0.29566e-06_rb /)
+      kao(:, 1,12, 5) = (/ &
+        & 0.13908e-06_rb,0.32322e-06_rb,0.36926e-06_rb,0.39668e-06_rb,0.37094e-06_rb, &
+        & 0.37104e-06_rb,0.38736e-06_rb,0.41059e-06_rb,0.10018e-06_rb /)
+      kao(:, 2,12, 5) = (/ &
+        & 0.15119e-06_rb,0.37037e-06_rb,0.41804e-06_rb,0.44988e-06_rb,0.42138e-06_rb, &
+        & 0.39334e-06_rb,0.43800e-06_rb,0.42649e-06_rb,0.13384e-06_rb /)
+      kao(:, 3,12, 5) = (/ &
+        & 0.16232e-06_rb,0.41107e-06_rb,0.46554e-06_rb,0.49568e-06_rb,0.49349e-06_rb, &
+        & 0.46062e-06_rb,0.45205e-06_rb,0.52165e-06_rb,0.16749e-06_rb /)
+      kao(:, 4,12, 5) = (/ &
+        & 0.17268e-06_rb,0.44802e-06_rb,0.51028e-06_rb,0.54757e-06_rb,0.56096e-06_rb, &
+        & 0.54041e-06_rb,0.49303e-06_rb,0.52723e-06_rb,0.20095e-06_rb /)
+      kao(:, 5,12, 5) = (/ &
+        & 0.18199e-06_rb,0.48092e-06_rb,0.55149e-06_rb,0.59694e-06_rb,0.62405e-06_rb, &
+        & 0.61534e-06_rb,0.55851e-06_rb,0.58926e-06_rb,0.24228e-06_rb /)
+      kao(:, 1,13, 5) = (/ &
+        & 0.11387e-06_rb,0.26741e-06_rb,0.30441e-06_rb,0.32687e-06_rb,0.30479e-06_rb, &
+        & 0.30477e-06_rb,0.31768e-06_rb,0.33316e-06_rb,0.82090e-07_rb /)
+      kao(:, 2,13, 5) = (/ &
+        & 0.12381e-06_rb,0.30579e-06_rb,0.34391e-06_rb,0.36935e-06_rb,0.34578e-06_rb, &
+        & 0.32317e-06_rb,0.35995e-06_rb,0.35099e-06_rb,0.10981e-06_rb /)
+      kao(:, 3,13, 5) = (/ &
+        & 0.13290e-06_rb,0.33871e-06_rb,0.38265e-06_rb,0.40672e-06_rb,0.40511e-06_rb, &
+        & 0.37796e-06_rb,0.36986e-06_rb,0.42813e-06_rb,0.13721e-06_rb /)
+      kao(:, 4,13, 5) = (/ &
+        & 0.14135e-06_rb,0.36878e-06_rb,0.41898e-06_rb,0.44916e-06_rb,0.46012e-06_rb, &
+        & 0.44348e-06_rb,0.40383e-06_rb,0.43087e-06_rb,0.16460e-06_rb /)
+      kao(:, 5,13, 5) = (/ &
+        & 0.14898e-06_rb,0.39524e-06_rb,0.45245e-06_rb,0.48939e-06_rb,0.51148e-06_rb, &
+        & 0.50420e-06_rb,0.45753e-06_rb,0.48088e-06_rb,0.19843e-06_rb /)
+      kao(:, 1, 1, 6) = (/ &
+        & 0.49835e-05_rb,0.73512e-05_rb,0.88016e-05_rb,0.97115e-05_rb,0.10342e-04_rb, &
+        & 0.10688e-04_rb,0.10747e-04_rb,0.97587e-05_rb,0.57353e-05_rb /)
+      kao(:, 2, 1, 6) = (/ &
+        & 0.49823e-05_rb,0.77944e-05_rb,0.95403e-05_rb,0.10739e-04_rb,0.11522e-04_rb, &
+        & 0.11974e-04_rb,0.12019e-04_rb,0.11200e-04_rb,0.69362e-05_rb /)
+      kao(:, 3, 1, 6) = (/ &
+        & 0.49638e-05_rb,0.82513e-05_rb,0.10343e-04_rb,0.11836e-04_rb,0.12804e-04_rb, &
+        & 0.13375e-04_rb,0.13427e-04_rb,0.12807e-04_rb,0.83325e-05_rb /)
+      kao(:, 4, 1, 6) = (/ &
+        & 0.49300e-05_rb,0.87230e-05_rb,0.11131e-04_rb,0.12834e-04_rb,0.13980e-04_rb, &
+        & 0.14660e-04_rb,0.14790e-04_rb,0.14186e-04_rb,0.94893e-05_rb /)
+      kao(:, 5, 1, 6) = (/ &
+        & 0.48886e-05_rb,0.92046e-05_rb,0.11933e-04_rb,0.13885e-04_rb,0.15255e-04_rb, &
+        & 0.16071e-04_rb,0.16239e-04_rb,0.15605e-04_rb,0.10917e-04_rb /)
+      kao(:, 1, 2, 6) = (/ &
+        & 0.41174e-05_rb,0.62362e-05_rb,0.73897e-05_rb,0.81161e-05_rb,0.86061e-05_rb, &
+        & 0.88364e-05_rb,0.89272e-05_rb,0.81534e-05_rb,0.45187e-05_rb /)
+      kao(:, 2, 2, 6) = (/ &
+        & 0.41154e-05_rb,0.66112e-05_rb,0.80274e-05_rb,0.90030e-05_rb,0.96264e-05_rb, &
+        & 0.99529e-05_rb,0.10004e-04_rb,0.93836e-05_rb,0.55300e-05_rb /)
+      kao(:, 3, 2, 6) = (/ &
+        & 0.40999e-05_rb,0.69972e-05_rb,0.87232e-05_rb,0.99464e-05_rb,0.10738e-04_rb, &
+        & 0.11186e-04_rb,0.11235e-04_rb,0.10760e-04_rb,0.66656e-05_rb /)
+      kao(:, 4, 2, 6) = (/ &
+        & 0.40728e-05_rb,0.73933e-05_rb,0.94032e-05_rb,0.10842e-04_rb,0.11807e-04_rb, &
+        & 0.12371e-04_rb,0.12495e-04_rb,0.12016e-04_rb,0.78073e-05_rb /)
+      kao(:, 5, 2, 6) = (/ &
+        & 0.40371e-05_rb,0.77954e-05_rb,0.10060e-04_rb,0.11710e-04_rb,0.12855e-04_rb, &
+        & 0.13529e-04_rb,0.13658e-04_rb,0.13169e-04_rb,0.88462e-05_rb /)
+      kao(:, 1, 3, 6) = (/ &
+        & 0.33911e-05_rb,0.51807e-05_rb,0.60524e-05_rb,0.65745e-05_rb,0.69209e-05_rb, &
+        & 0.70496e-05_rb,0.71376e-05_rb,0.64864e-05_rb,0.34232e-05_rb /)
+      kao(:, 2, 3, 6) = (/ &
+        & 0.33916e-05_rb,0.54910e-05_rb,0.65875e-05_rb,0.73243e-05_rb,0.77878e-05_rb, &
+        & 0.79847e-05_rb,0.80332e-05_rb,0.75309e-05_rb,0.42228e-05_rb /)
+      kao(:, 3, 3, 6) = (/ &
+        & 0.33813e-05_rb,0.58057e-05_rb,0.71503e-05_rb,0.80869e-05_rb,0.86798e-05_rb, &
+        & 0.89845e-05_rb,0.90042e-05_rb,0.85938e-05_rb,0.50519e-05_rb /)
+      kao(:, 4, 3, 6) = (/ &
+        & 0.33618e-05_rb,0.61503e-05_rb,0.77470e-05_rb,0.88947e-05_rb,0.96421e-05_rb, &
+        & 0.10056e-04_rb,0.10131e-04_rb,0.97836e-05_rb,0.60817e-05_rb /)
+      kao(:, 5, 3, 6) = (/ &
+        & 0.33346e-05_rb,0.64834e-05_rb,0.82992e-05_rb,0.96266e-05_rb,0.10527e-04_rb, &
+        & 0.11042e-04_rb,0.11154e-04_rb,0.10788e-04_rb,0.69208e-05_rb /)
+      kao(:, 1, 4, 6) = (/ &
+        & 0.27862e-05_rb,0.42534e-05_rb,0.48987e-05_rb,0.52435e-05_rb,0.54733e-05_rb, &
+        & 0.55364e-05_rb,0.55872e-05_rb,0.49226e-05_rb,0.25436e-05_rb /)
+      kao(:, 2, 4, 6) = (/ &
+        & 0.27893e-05_rb,0.45093e-05_rb,0.53394e-05_rb,0.58691e-05_rb,0.61855e-05_rb, &
+        & 0.63070e-05_rb,0.63399e-05_rb,0.58599e-05_rb,0.31726e-05_rb /)
+      kao(:, 3, 4, 6) = (/ &
+        & 0.27843e-05_rb,0.47714e-05_rb,0.58075e-05_rb,0.65048e-05_rb,0.69158e-05_rb, &
+        & 0.71341e-05_rb,0.71529e-05_rb,0.67578e-05_rb,0.38485e-05_rb /)
+      kao(:, 4, 4, 6) = (/ &
+        & 0.27713e-05_rb,0.50491e-05_rb,0.62824e-05_rb,0.71451e-05_rb,0.76931e-05_rb, &
+        & 0.79968e-05_rb,0.80403e-05_rb,0.77391e-05_rb,0.46093e-05_rb /)
+      kao(:, 5, 4, 6) = (/ &
+        & 0.27517e-05_rb,0.53526e-05_rb,0.67897e-05_rb,0.78357e-05_rb,0.85357e-05_rb, &
+        & 0.89260e-05_rb,0.90160e-05_rb,0.87287e-05_rb,0.54226e-05_rb /)
+      kao(:, 1, 5, 6) = (/ &
+        & 0.22852e-05_rb,0.34704e-05_rb,0.39351e-05_rb,0.41626e-05_rb,0.42797e-05_rb, &
+        & 0.43078e-05_rb,0.42289e-05_rb,0.36572e-05_rb,0.18725e-05_rb /)
+      kao(:, 2, 5, 6) = (/ &
+        & 0.22904e-05_rb,0.36828e-05_rb,0.42969e-05_rb,0.46636e-05_rb,0.48818e-05_rb, &
+        & 0.49227e-05_rb,0.49640e-05_rb,0.45776e-05_rb,0.23620e-05_rb /)
+      kao(:, 3, 5, 6) = (/ &
+        & 0.22883e-05_rb,0.38995e-05_rb,0.46830e-05_rb,0.51887e-05_rb,0.54814e-05_rb, &
+        & 0.56039e-05_rb,0.56350e-05_rb,0.52624e-05_rb,0.29139e-05_rb /)
+      kao(:, 4, 5, 6) = (/ &
+        & 0.22808e-05_rb,0.41317e-05_rb,0.50763e-05_rb,0.57196e-05_rb,0.61208e-05_rb, &
+        & 0.63389e-05_rb,0.63549e-05_rb,0.60859e-05_rb,0.35219e-05_rb /)
+      kao(:, 5, 5, 6) = (/ &
+        & 0.22671e-05_rb,0.43851e-05_rb,0.54991e-05_rb,0.62948e-05_rb,0.68249e-05_rb, &
+        & 0.71098e-05_rb,0.71755e-05_rb,0.69558e-05_rb,0.41900e-05_rb /)
+      kao(:, 1, 6, 6) = (/ &
+        & 0.18699e-05_rb,0.28114e-05_rb,0.31400e-05_rb,0.32683e-05_rb,0.33153e-05_rb, &
+        & 0.33008e-05_rb,0.31920e-05_rb,0.27860e-05_rb,0.13420e-05_rb /)
+      kao(:, 2, 6, 6) = (/ &
+        & 0.18773e-05_rb,0.29859e-05_rb,0.34309e-05_rb,0.36695e-05_rb,0.38007e-05_rb, &
+        & 0.38091e-05_rb,0.38180e-05_rb,0.34314e-05_rb,0.17179e-05_rb /)
+      kao(:, 3, 6, 6) = (/ &
+        & 0.18783e-05_rb,0.31642e-05_rb,0.37448e-05_rb,0.40997e-05_rb,0.43019e-05_rb, &
+        & 0.43546e-05_rb,0.43740e-05_rb,0.40084e-05_rb,0.21605e-05_rb /)
+      kao(:, 4, 6, 6) = (/ &
+        & 0.18743e-05_rb,0.33566e-05_rb,0.40684e-05_rb,0.45371e-05_rb,0.48151e-05_rb, &
+        & 0.49624e-05_rb,0.49624e-05_rb,0.47228e-05_rb,0.26431e-05_rb /)
+      kao(:, 5, 6, 6) = (/ &
+        & 0.18657e-05_rb,0.35541e-05_rb,0.43955e-05_rb,0.49826e-05_rb,0.53649e-05_rb, &
+        & 0.55694e-05_rb,0.55990e-05_rb,0.54328e-05_rb,0.31359e-05_rb /)
+      kao(:, 1, 7, 6) = (/ &
+        & 0.15270e-05_rb,0.22681e-05_rb,0.24953e-05_rb,0.25538e-05_rb,0.25397e-05_rb, &
+        & 0.25315e-05_rb,0.23299e-05_rb,0.21035e-05_rb,0.95748e-06_rb /)
+      kao(:, 2, 7, 6) = (/ &
+        & 0.15365e-05_rb,0.24113e-05_rb,0.27304e-05_rb,0.28767e-05_rb,0.29339e-05_rb, &
+        & 0.29290e-05_rb,0.28728e-05_rb,0.24852e-05_rb,0.12383e-05_rb /)
+      kao(:, 3, 7, 6) = (/ &
+        & 0.15398e-05_rb,0.25576e-05_rb,0.29821e-05_rb,0.32226e-05_rb,0.33508e-05_rb, &
+        & 0.33584e-05_rb,0.33733e-05_rb,0.31044e-05_rb,0.15900e-05_rb /)
+      kao(:, 4, 7, 6) = (/ &
+        & 0.15385e-05_rb,0.27150e-05_rb,0.32458e-05_rb,0.35802e-05_rb,0.37697e-05_rb, &
+        & 0.38500e-05_rb,0.38510e-05_rb,0.36169e-05_rb,0.19605e-05_rb /)
+      kao(:, 5, 7, 6) = (/ &
+        & 0.15336e-05_rb,0.28792e-05_rb,0.35139e-05_rb,0.39460e-05_rb,0.42149e-05_rb, &
+        & 0.43622e-05_rb,0.43664e-05_rb,0.42187e-05_rb,0.23523e-05_rb /)
+      kao(:, 1, 8, 6) = (/ &
+        & 0.12444e-05_rb,0.18266e-05_rb,0.19784e-05_rb,0.19900e-05_rb,0.19390e-05_rb, &
+        & 0.19235e-05_rb,0.17231e-05_rb,0.16995e-05_rb,0.68590e-06_rb /)
+      kao(:, 2, 8, 6) = (/ &
+        & 0.12557e-05_rb,0.19427e-05_rb,0.21667e-05_rb,0.22465e-05_rb,0.22625e-05_rb, &
+        & 0.22377e-05_rb,0.21596e-05_rb,0.18759e-05_rb,0.89490e-06_rb /)
+      kao(:, 3, 8, 6) = (/ &
+        & 0.12608e-05_rb,0.20627e-05_rb,0.23694e-05_rb,0.25224e-05_rb,0.25961e-05_rb, &
+        & 0.25892e-05_rb,0.25887e-05_rb,0.23400e-05_rb,0.11490e-05_rb /)
+      kao(:, 4, 8, 6) = (/ &
+        & 0.12616e-05_rb,0.21916e-05_rb,0.25816e-05_rb,0.28156e-05_rb,0.29418e-05_rb, &
+        & 0.29759e-05_rb,0.29788e-05_rb,0.27379e-05_rb,0.14416e-05_rb /)
+      kao(:, 5, 8, 6) = (/ &
+        & 0.12590e-05_rb,0.23261e-05_rb,0.28013e-05_rb,0.31131e-05_rb,0.32990e-05_rb, &
+        & 0.33976e-05_rb,0.33946e-05_rb,0.32600e-05_rb,0.17529e-05_rb /)
+      kao(:, 1, 9, 6) = (/ &
+        & 0.10123e-05_rb,0.14681e-05_rb,0.15612e-05_rb,0.15411e-05_rb,0.14778e-05_rb, &
+        & 0.14343e-05_rb,0.12992e-05_rb,0.13172e-05_rb,0.49290e-06_rb /)
+      kao(:, 2, 9, 6) = (/ &
+        & 0.10245e-05_rb,0.15617e-05_rb,0.17149e-05_rb,0.17499e-05_rb,0.17312e-05_rb, &
+        & 0.17144e-05_rb,0.15772e-05_rb,0.14382e-05_rb,0.63132e-06_rb /)
+      kao(:, 3, 9, 6) = (/ &
+        & 0.10311e-05_rb,0.16600e-05_rb,0.18786e-05_rb,0.19738e-05_rb,0.20017e-05_rb, &
+        & 0.19859e-05_rb,0.19416e-05_rb,0.17139e-05_rb,0.82278e-06_rb /)
+      kao(:, 4, 9, 6) = (/ &
+        & 0.10334e-05_rb,0.17639e-05_rb,0.20493e-05_rb,0.22069e-05_rb,0.22845e-05_rb, &
+        & 0.22769e-05_rb,0.22855e-05_rb,0.21115e-05_rb,0.10531e-05_rb /)
+      kao(:, 5, 9, 6) = (/ &
+        & 0.10328e-05_rb,0.18738e-05_rb,0.22265e-05_rb,0.24495e-05_rb,0.25737e-05_rb, &
+        & 0.26232e-05_rb,0.26173e-05_rb,0.24699e-05_rb,0.12950e-05_rb /)
+      kao(:, 1,10, 6) = (/ &
+        & 0.82261e-06_rb,0.11811e-05_rb,0.12403e-05_rb,0.12060e-05_rb,0.11493e-05_rb, &
+        & 0.10907e-05_rb,0.98035e-06_rb,0.10980e-05_rb,0.37316e-06_rb /)
+      kao(:, 2,10, 6) = (/ &
+        & 0.83528e-06_rb,0.12595e-05_rb,0.13646e-05_rb,0.13745e-05_rb,0.13365e-05_rb, &
+        & 0.13172e-05_rb,0.11846e-05_rb,0.11491e-05_rb,0.46158e-06_rb /)
+      kao(:, 3,10, 6) = (/ &
+        & 0.84255e-06_rb,0.13392e-05_rb,0.14968e-05_rb,0.15528e-05_rb,0.15573e-05_rb, &
+        & 0.15339e-05_rb,0.14802e-05_rb,0.12811e-05_rb,0.60300e-06_rb /)
+      kao(:, 4,10, 6) = (/ &
+        & 0.84587e-06_rb,0.14245e-05_rb,0.16355e-05_rb,0.17381e-05_rb,0.17835e-05_rb, &
+        & 0.17693e-05_rb,0.17683e-05_rb,0.16097e-05_rb,0.77730e-06_rb /)
+      kao(:, 5,10, 6) = (/ &
+        & 0.84627e-06_rb,0.15137e-05_rb,0.17779e-05_rb,0.19378e-05_rb,0.20192e-05_rb, &
+        & 0.20387e-05_rb,0.20340e-05_rb,0.18636e-05_rb,0.96863e-06_rb /)
+      kao(:, 1,11, 6) = (/ &
+        & 0.67388e-06_rb,0.97942e-06_rb,0.10286e-05_rb,0.10023e-05_rb,0.95317e-06_rb, &
+        & 0.90847e-06_rb,0.81776e-06_rb,0.89345e-06_rb,0.30408e-06_rb /)
+      kao(:, 2,11, 6) = (/ &
+        & 0.68407e-06_rb,0.10438e-05_rb,0.11334e-05_rb,0.11425e-05_rb,0.11096e-05_rb, &
+        & 0.10886e-05_rb,0.98240e-06_rb,0.94798e-06_rb,0.38086e-06_rb /)
+      kao(:, 3,11, 6) = (/ &
+        & 0.69000e-06_rb,0.11106e-05_rb,0.12435e-05_rb,0.12890e-05_rb,0.12895e-05_rb, &
+        & 0.12679e-05_rb,0.12202e-05_rb,0.10522e-05_rb,0.49623e-06_rb /)
+      kao(:, 4,11, 6) = (/ &
+        & 0.69276e-06_rb,0.11824e-05_rb,0.13564e-05_rb,0.14402e-05_rb,0.14763e-05_rb, &
+        & 0.14628e-05_rb,0.14599e-05_rb,0.13328e-05_rb,0.63979e-06_rb /)
+      kao(:, 5,11, 6) = (/ &
+        & 0.69302e-06_rb,0.12555e-05_rb,0.14740e-05_rb,0.16049e-05_rb,0.16694e-05_rb, &
+        & 0.16839e-05_rb,0.16772e-05_rb,0.15421e-05_rb,0.79514e-06_rb /)
+      kao(:, 1,12, 6) = (/ &
+        & 0.55214e-06_rb,0.81079e-06_rb,0.85249e-06_rb,0.83175e-06_rb,0.78783e-06_rb, &
+        & 0.75281e-06_rb,0.67567e-06_rb,0.74075e-06_rb,0.24910e-06_rb /)
+      kao(:, 2,12, 6) = (/ &
+        & 0.56029e-06_rb,0.86391e-06_rb,0.94032e-06_rb,0.94758e-06_rb,0.91883e-06_rb, &
+        & 0.89834e-06_rb,0.81189e-06_rb,0.77883e-06_rb,0.31399e-06_rb /)
+      kao(:, 3,12, 6) = (/ &
+        & 0.56504e-06_rb,0.92066e-06_rb,0.10308e-05_rb,0.10667e-05_rb,0.10655e-05_rb, &
+        & 0.10460e-05_rb,0.10067e-05_rb,0.87150e-06_rb,0.40815e-06_rb /)
+      kao(:, 4,12, 6) = (/ &
+        & 0.56721e-06_rb,0.97985e-06_rb,0.11224e-05_rb,0.11915e-05_rb,0.12197e-05_rb, &
+        & 0.12063e-05_rb,0.12014e-05_rb,0.10950e-05_rb,0.52630e-06_rb /)
+      kao(:, 5,12, 6) = (/ &
+        & 0.56742e-06_rb,0.10399e-05_rb,0.12195e-05_rb,0.13255e-05_rb,0.13771e-05_rb, &
+        & 0.13876e-05_rb,0.13807e-05_rb,0.12724e-05_rb,0.65264e-06_rb /)
+      kao(:, 1,13, 6) = (/ &
+        & 0.45223e-06_rb,0.67006e-06_rb,0.70582e-06_rb,0.68873e-06_rb,0.65038e-06_rb, &
+        & 0.62084e-06_rb,0.55442e-06_rb,0.60996e-06_rb,0.20428e-06_rb /)
+      kao(:, 2,13, 6) = (/ &
+        & 0.45880e-06_rb,0.71490e-06_rb,0.77859e-06_rb,0.78376e-06_rb,0.75834e-06_rb, &
+        & 0.73987e-06_rb,0.66959e-06_rb,0.63711e-06_rb,0.25817e-06_rb /)
+      kao(:, 3,13, 6) = (/ &
+        & 0.46276e-06_rb,0.76231e-06_rb,0.85214e-06_rb,0.88098e-06_rb,0.87867e-06_rb, &
+        & 0.86188e-06_rb,0.83033e-06_rb,0.72166e-06_rb,0.33548e-06_rb /)
+      kao(:, 4,13, 6) = (/ &
+        & 0.46442e-06_rb,0.81043e-06_rb,0.92714e-06_rb,0.98329e-06_rb,0.10050e-05_rb, &
+        & 0.99247e-06_rb,0.98770e-06_rb,0.89931e-06_rb,0.43220e-06_rb /)
+      kao(:, 5,13, 6) = (/ &
+        & 0.46456e-06_rb,0.86048e-06_rb,0.10065e-05_rb,0.10920e-05_rb,0.11333e-05_rb, &
+        & 0.11411e-05_rb,0.11342e-05_rb,0.10473e-05_rb,0.53527e-06_rb /)
+      kao(:, 1, 1, 7) = (/ &
+        & 0.12335e-04_rb,0.15987e-04_rb,0.18565e-04_rb,0.20406e-04_rb,0.21636e-04_rb, &
+        & 0.22077e-04_rb,0.21364e-04_rb,0.19544e-04_rb,0.14733e-04_rb /)
+      kao(:, 2, 1, 7) = (/ &
+        & 0.12351e-04_rb,0.17014e-04_rb,0.20216e-04_rb,0.22480e-04_rb,0.24098e-04_rb, &
+        & 0.24791e-04_rb,0.24379e-04_rb,0.22600e-04_rb,0.17292e-04_rb /)
+      kao(:, 3, 1, 7) = (/ &
+        & 0.12364e-04_rb,0.18152e-04_rb,0.21907e-04_rb,0.24643e-04_rb,0.26659e-04_rb, &
+        & 0.27630e-04_rb,0.27512e-04_rb,0.25730e-04_rb,0.20236e-04_rb /)
+      kao(:, 4, 1, 7) = (/ &
+        & 0.12365e-04_rb,0.19320e-04_rb,0.23679e-04_rb,0.26885e-04_rb,0.29225e-04_rb, &
+        & 0.30430e-04_rb,0.30461e-04_rb,0.28726e-04_rb,0.23208e-04_rb /)
+      kao(:, 5, 1, 7) = (/ &
+        & 0.12355e-04_rb,0.20495e-04_rb,0.25505e-04_rb,0.29189e-04_rb,0.31816e-04_rb, &
+        & 0.33308e-04_rb,0.33478e-04_rb,0.31898e-04_rb,0.26469e-04_rb /)
+      kao(:, 1, 2, 7) = (/ &
+        & 0.10350e-04_rb,0.13753e-04_rb,0.16101e-04_rb,0.17726e-04_rb,0.18733e-04_rb, &
+        & 0.19034e-04_rb,0.18319e-04_rb,0.16594e-04_rb,0.11961e-04_rb /)
+      kao(:, 2, 2, 7) = (/ &
+        & 0.10365e-04_rb,0.14706e-04_rb,0.17542e-04_rb,0.19561e-04_rb,0.20895e-04_rb, &
+        & 0.21420e-04_rb,0.21012e-04_rb,0.19409e-04_rb,0.14130e-04_rb /)
+      kao(:, 3, 2, 7) = (/ &
+        & 0.10364e-04_rb,0.15733e-04_rb,0.19081e-04_rb,0.21505e-04_rb,0.23181e-04_rb, &
+        & 0.23958e-04_rb,0.23844e-04_rb,0.22334e-04_rb,0.16750e-04_rb /)
+      kao(:, 4, 2, 7) = (/ &
+        & 0.10354e-04_rb,0.16759e-04_rb,0.20670e-04_rb,0.23471e-04_rb,0.25440e-04_rb, &
+        & 0.26474e-04_rb,0.26560e-04_rb,0.25188e-04_rb,0.19386e-04_rb /)
+      kao(:, 5, 2, 7) = (/ &
+        & 0.10329e-04_rb,0.17823e-04_rb,0.22292e-04_rb,0.25488e-04_rb,0.27703e-04_rb, &
+        & 0.28957e-04_rb,0.29205e-04_rb,0.27936e-04_rb,0.22026e-04_rb /)
+      kao(:, 1, 3, 7) = (/ &
+        & 0.86408e-05_rb,0.11607e-04_rb,0.13624e-04_rb,0.14928e-04_rb,0.15622e-04_rb, &
+        & 0.15768e-04_rb,0.15034e-04_rb,0.13540e-04_rb,0.91950e-05_rb /)
+      kao(:, 2, 3, 7) = (/ &
+        & 0.86478e-05_rb,0.12463e-04_rb,0.14889e-04_rb,0.16508e-04_rb,0.17482e-04_rb, &
+        & 0.17819e-04_rb,0.17439e-04_rb,0.15994e-04_rb,0.11026e-04_rb /)
+      kao(:, 3, 3, 7) = (/ &
+        & 0.86444e-05_rb,0.13354e-04_rb,0.16234e-04_rb,0.18159e-04_rb,0.19394e-04_rb, &
+        & 0.19962e-04_rb,0.19837e-04_rb,0.18485e-04_rb,0.13087e-04_rb /)
+      kao(:, 4, 3, 7) = (/ &
+        & 0.86273e-05_rb,0.14262e-04_rb,0.17647e-04_rb,0.19921e-04_rb,0.21457e-04_rb, &
+        & 0.22290e-04_rb,0.22338e-04_rb,0.21203e-04_rb,0.15397e-04_rb /)
+      kao(:, 5, 3, 7) = (/ &
+        & 0.85960e-05_rb,0.15200e-04_rb,0.19031e-04_rb,0.21649e-04_rb,0.23415e-04_rb, &
+        & 0.24453e-04_rb,0.24660e-04_rb,0.23666e-04_rb,0.17582e-04_rb /)
+      kao(:, 1, 4, 7) = (/ &
+        & 0.71803e-05_rb,0.97101e-05_rb,0.11373e-04_rb,0.12321e-04_rb,0.12789e-04_rb, &
+        & 0.12803e-04_rb,0.12062e-04_rb,0.10784e-04_rb,0.69624e-05_rb /)
+      kao(:, 2, 4, 7) = (/ &
+        & 0.71855e-05_rb,0.10459e-04_rb,0.12456e-04_rb,0.13673e-04_rb,0.14371e-04_rb, &
+        & 0.14569e-04_rb,0.14153e-04_rb,0.12788e-04_rb,0.84564e-05_rb /)
+      kao(:, 3, 4, 7) = (/ &
+        & 0.71795e-05_rb,0.11229e-04_rb,0.13608e-04_rb,0.15091e-04_rb,0.16013e-04_rb, &
+        & 0.16409e-04_rb,0.16232e-04_rb,0.15085e-04_rb,0.10120e-04_rb /)
+      kao(:, 4, 4, 7) = (/ &
+        & 0.71584e-05_rb,0.12023e-04_rb,0.14800e-04_rb,0.16568e-04_rb,0.17732e-04_rb, &
+        & 0.18336e-04_rb,0.18317e-04_rb,0.17347e-04_rb,0.11917e-04_rb /)
+      kao(:, 5, 4, 7) = (/ &
+        & 0.71267e-05_rb,0.12845e-04_rb,0.16058e-04_rb,0.18162e-04_rb,0.19580e-04_rb, &
+        & 0.20399e-04_rb,0.20543e-04_rb,0.19767e-04_rb,0.13958e-04_rb /)
+      kao(:, 1, 5, 7) = (/ &
+        & 0.59442e-05_rb,0.80861e-05_rb,0.93878e-05_rb,0.10066e-04_rb,0.10362e-04_rb, &
+        & 0.10281e-04_rb,0.95734e-05_rb,0.84778e-05_rb,0.52204e-05_rb /)
+      kao(:, 2, 5, 7) = (/ &
+        & 0.59498e-05_rb,0.87281e-05_rb,0.10301e-04_rb,0.11210e-04_rb,0.11702e-04_rb, &
+        & 0.11782e-04_rb,0.11315e-04_rb,0.10068e-04_rb,0.64302e-05_rb /)
+      kao(:, 3, 5, 7) = (/ &
+        & 0.59430e-05_rb,0.93925e-05_rb,0.11277e-04_rb,0.12419e-04_rb,0.13099e-04_rb, &
+        & 0.13351e-04_rb,0.13104e-04_rb,0.12095e-04_rb,0.77633e-05_rb /)
+      kao(:, 4, 5, 7) = (/ &
+        & 0.59217e-05_rb,0.10078e-04_rb,0.12288e-04_rb,0.13686e-04_rb,0.14573e-04_rb, &
+        & 0.14994e-04_rb,0.14908e-04_rb,0.14023e-04_rb,0.92337e-05_rb /)
+      kao(:, 5, 5, 7) = (/ &
+        & 0.58935e-05_rb,0.10789e-04_rb,0.13390e-04_rb,0.15066e-04_rb,0.16172e-04_rb, &
+        & 0.16788e-04_rb,0.16832e-04_rb,0.16140e-04_rb,0.10913e-04_rb /)
+      kao(:, 1, 6, 7) = (/ &
+        & 0.49077e-05_rb,0.66672e-05_rb,0.76412e-05_rb,0.81181e-05_rb,0.82831e-05_rb, &
+        & 0.81137e-05_rb,0.74381e-05_rb,0.64600e-05_rb,0.38540e-05_rb /)
+      kao(:, 2, 6, 7) = (/ &
+        & 0.49136e-05_rb,0.72093e-05_rb,0.84100e-05_rb,0.90761e-05_rb,0.94026e-05_rb, &
+        & 0.93849e-05_rb,0.88761e-05_rb,0.77852e-05_rb,0.48097e-05_rb /)
+      kao(:, 3, 6, 7) = (/ &
+        & 0.49088e-05_rb,0.77732e-05_rb,0.92304e-05_rb,0.10089e-04_rb,0.10581e-04_rb, &
+        & 0.10707e-04_rb,0.10412e-04_rb,0.94217e-05_rb,0.58741e-05_rb /)
+      kao(:, 4, 6, 7) = (/ &
+        & 0.48919e-05_rb,0.83551e-05_rb,0.10086e-04_rb,0.11166e-04_rb,0.11831e-04_rb, &
+        & 0.12095e-04_rb,0.11941e-04_rb,0.11106e-04_rb,0.70559e-05_rb /)
+      kao(:, 5, 6, 7) = (/ &
+        & 0.48652e-05_rb,0.89412e-05_rb,0.10983e-04_rb,0.12289e-04_rb,0.13118e-04_rb, &
+        & 0.13538e-04_rb,0.13477e-04_rb,0.12811e-04_rb,0.83378e-05_rb /)
+      kao(:, 1, 7, 7) = (/ &
+        & 0.40428e-05_rb,0.54588e-05_rb,0.61687e-05_rb,0.64926e-05_rb,0.65568e-05_rb, &
+        & 0.63259e-05_rb,0.56948e-05_rb,0.49607e-05_rb,0.28237e-05_rb /)
+      kao(:, 2, 7, 7) = (/ &
+        & 0.40484e-05_rb,0.59019e-05_rb,0.68052e-05_rb,0.72891e-05_rb,0.74881e-05_rb, &
+        & 0.73951e-05_rb,0.68736e-05_rb,0.59771e-05_rb,0.35700e-05_rb /)
+      kao(:, 3, 7, 7) = (/ &
+        & 0.40443e-05_rb,0.63719e-05_rb,0.74936e-05_rb,0.81309e-05_rb,0.84699e-05_rb, &
+        & 0.84975e-05_rb,0.81643e-05_rb,0.72224e-05_rb,0.43995e-05_rb /)
+      kao(:, 4, 7, 7) = (/ &
+        & 0.40304e-05_rb,0.68636e-05_rb,0.82100e-05_rb,0.90329e-05_rb,0.95142e-05_rb, &
+        & 0.96616e-05_rb,0.94576e-05_rb,0.86932e-05_rb,0.53385e-05_rb /)
+      kao(:, 5, 7, 7) = (/ &
+        & 0.40097e-05_rb,0.73587e-05_rb,0.89665e-05_rb,0.99825e-05_rb,0.10592e-04_rb, &
+        & 0.10860e-04_rb,0.10751e-04_rb,0.10114e-04_rb,0.63905e-05_rb /)
+      kao(:, 1, 8, 7) = (/ &
+        & 0.33247e-05_rb,0.44437e-05_rb,0.49476e-05_rb,0.51623e-05_rb,0.51521e-05_rb, &
+        & 0.48927e-05_rb,0.43130e-05_rb,0.36508e-05_rb,0.20433e-05_rb /)
+      kao(:, 2, 8, 7) = (/ &
+        & 0.33302e-05_rb,0.48035e-05_rb,0.54757e-05_rb,0.58129e-05_rb,0.59219e-05_rb, &
+        & 0.57796e-05_rb,0.52788e-05_rb,0.45081e-05_rb,0.26233e-05_rb /)
+      kao(:, 3, 8, 7) = (/ &
+        & 0.33275e-05_rb,0.51944e-05_rb,0.60436e-05_rb,0.65119e-05_rb,0.67329e-05_rb, &
+        & 0.66992e-05_rb,0.63336e-05_rb,0.54989e-05_rb,0.32839e-05_rb /)
+      kao(:, 4, 8, 7) = (/ &
+        & 0.33167e-05_rb,0.56042e-05_rb,0.66425e-05_rb,0.72606e-05_rb,0.75965e-05_rb, &
+        & 0.76619e-05_rb,0.74319e-05_rb,0.66922e-05_rb,0.40228e-05_rb /)
+      kao(:, 5, 8, 7) = (/ &
+        & 0.33014e-05_rb,0.60212e-05_rb,0.72748e-05_rb,0.80496e-05_rb,0.84940e-05_rb, &
+        & 0.86532e-05_rb,0.85181e-05_rb,0.78992e-05_rb,0.48672e-05_rb /)
+      kao(:, 1, 9, 7) = (/ &
+        & 0.27310e-05_rb,0.35992e-05_rb,0.39468e-05_rb,0.40831e-05_rb,0.40161e-05_rb, &
+        & 0.37266e-05_rb,0.32070e-05_rb,0.27591e-05_rb,0.14628e-05_rb /)
+      kao(:, 2, 9, 7) = (/ &
+        & 0.27361e-05_rb,0.38904e-05_rb,0.43781e-05_rb,0.46075e-05_rb,0.46475e-05_rb, &
+        & 0.44710e-05_rb,0.39993e-05_rb,0.33922e-05_rb,0.19203e-05_rb /)
+      kao(:, 3, 9, 7) = (/ &
+        & 0.27349e-05_rb,0.42103e-05_rb,0.48448e-05_rb,0.51814e-05_rb,0.53150e-05_rb, &
+        & 0.52403e-05_rb,0.48712e-05_rb,0.41669e-05_rb,0.24268e-05_rb /)
+      kao(:, 4, 9, 7) = (/ &
+        & 0.27270e-05_rb,0.45504e-05_rb,0.53414e-05_rb,0.57970e-05_rb,0.60255e-05_rb, &
+        & 0.60359e-05_rb,0.57915e-05_rb,0.51016e-05_rb,0.30070e-05_rb /)
+      kao(:, 5, 9, 7) = (/ &
+        & 0.27146e-05_rb,0.48994e-05_rb,0.58660e-05_rb,0.64467e-05_rb,0.67684e-05_rb, &
+        & 0.68529e-05_rb,0.66981e-05_rb,0.61431e-05_rb,0.36677e-05_rb /)
+      kao(:, 1,10, 7) = (/ &
+        & 0.22419e-05_rb,0.29237e-05_rb,0.31619e-05_rb,0.32419e-05_rb,0.31445e-05_rb, &
+        & 0.28618e-05_rb,0.23945e-05_rb,0.20454e-05_rb,0.10493e-05_rb /)
+      kao(:, 2,10, 7) = (/ &
+        & 0.22458e-05_rb,0.31578e-05_rb,0.35134e-05_rb,0.36703e-05_rb,0.36665e-05_rb, &
+        & 0.34835e-05_rb,0.30593e-05_rb,0.25559e-05_rb,0.14125e-05_rb /)
+      kao(:, 3,10, 7) = (/ &
+        & 0.22450e-05_rb,0.34192e-05_rb,0.38967e-05_rb,0.41378e-05_rb,0.42160e-05_rb, &
+        & 0.41184e-05_rb,0.37724e-05_rb,0.31954e-05_rb,0.18099e-05_rb /)
+      kao(:, 4,10, 7) = (/ &
+        & 0.22393e-05_rb,0.36988e-05_rb,0.43039e-05_rb,0.46449e-05_rb,0.48027e-05_rb, &
+        & 0.47756e-05_rb,0.45281e-05_rb,0.39284e-05_rb,0.22652e-05_rb /)
+      kao(:, 5,10, 7) = (/ &
+        & 0.22295e-05_rb,0.39888e-05_rb,0.47391e-05_rb,0.51827e-05_rb,0.54135e-05_rb, &
+        & 0.54517e-05_rb,0.52919e-05_rb,0.47894e-05_rb,0.27859e-05_rb /)
+      kao(:, 1,11, 7) = (/ &
+        & 0.18412e-05_rb,0.24512e-05_rb,0.26550e-05_rb,0.27210e-05_rb,0.26438e-05_rb, &
+        & 0.24068e-05_rb,0.20134e-05_rb,0.16980e-05_rb,0.87310e-06_rb /)
+      kao(:, 2,11, 7) = (/ &
+        & 0.18429e-05_rb,0.26525e-05_rb,0.29507e-05_rb,0.30835e-05_rb,0.30829e-05_rb, &
+        & 0.29354e-05_rb,0.25810e-05_rb,0.21539e-05_rb,0.11715e-05_rb /)
+      kao(:, 3,11, 7) = (/ &
+        & 0.18405e-05_rb,0.28725e-05_rb,0.32735e-05_rb,0.34815e-05_rb,0.35507e-05_rb, &
+        & 0.34733e-05_rb,0.31901e-05_rb,0.26957e-05_rb,0.15018e-05_rb /)
+      kao(:, 4,11, 7) = (/ &
+        & 0.18348e-05_rb,0.31060e-05_rb,0.36191e-05_rb,0.39123e-05_rb,0.40426e-05_rb, &
+        & 0.40206e-05_rb,0.38184e-05_rb,0.33125e-05_rb,0.18804e-05_rb /)
+      kao(:, 5,11, 7) = (/ &
+        & 0.18263e-05_rb,0.33539e-05_rb,0.39862e-05_rb,0.43590e-05_rb,0.45516e-05_rb, &
+        & 0.45841e-05_rb,0.44525e-05_rb,0.40371e-05_rb,0.23130e-05_rb /)
+      kao(:, 1,12, 7) = (/ &
+        & 0.15111e-05_rb,0.20512e-05_rb,0.22220e-05_rb,0.22783e-05_rb,0.22181e-05_rb, &
+        & 0.20219e-05_rb,0.16992e-05_rb,0.14085e-05_rb,0.72438e-06_rb /)
+      kao(:, 2,12, 7) = (/ &
+        & 0.15111e-05_rb,0.22209e-05_rb,0.24719e-05_rb,0.25841e-05_rb,0.25877e-05_rb, &
+        & 0.24700e-05_rb,0.21742e-05_rb,0.18087e-05_rb,0.96963e-06_rb /)
+      kao(:, 3,12, 7) = (/ &
+        & 0.15082e-05_rb,0.24051e-05_rb,0.27419e-05_rb,0.29223e-05_rb,0.29832e-05_rb, &
+        & 0.29201e-05_rb,0.26833e-05_rb,0.22609e-05_rb,0.12444e-05_rb /)
+      kao(:, 4,12, 7) = (/ &
+        & 0.15029e-05_rb,0.26018e-05_rb,0.30364e-05_rb,0.32843e-05_rb,0.33933e-05_rb, &
+        & 0.33730e-05_rb,0.32057e-05_rb,0.27875e-05_rb,0.15571e-05_rb /)
+      kao(:, 5,12, 7) = (/ &
+        & 0.14954e-05_rb,0.28127e-05_rb,0.33443e-05_rb,0.36551e-05_rb,0.38145e-05_rb, &
+        & 0.38425e-05_rb,0.37317e-05_rb,0.33866e-05_rb,0.19133e-05_rb /)
+      kao(:, 1,13, 7) = (/ &
+        & 0.12390e-05_rb,0.17127e-05_rb,0.18553e-05_rb,0.19025e-05_rb,0.18568e-05_rb, &
+        & 0.16968e-05_rb,0.14297e-05_rb,0.11813e-05_rb,0.59950e-06_rb /)
+      kao(:, 2,13, 7) = (/ &
+        & 0.12381e-05_rb,0.18537e-05_rb,0.20641e-05_rb,0.21603e-05_rb,0.21689e-05_rb, &
+        & 0.20712e-05_rb,0.18216e-05_rb,0.15132e-05_rb,0.80096e-06_rb /)
+      kao(:, 3,13, 7) = (/ &
+        & 0.12352e-05_rb,0.20080e-05_rb,0.22929e-05_rb,0.24467e-05_rb,0.24992e-05_rb, &
+        & 0.24434e-05_rb,0.22447e-05_rb,0.18839e-05_rb,0.10290e-05_rb /)
+      kao(:, 4,13, 7) = (/ &
+        & 0.12307e-05_rb,0.21754e-05_rb,0.25409e-05_rb,0.27489e-05_rb,0.28366e-05_rb, &
+        & 0.28171e-05_rb,0.26776e-05_rb,0.23303e-05_rb,0.12853e-05_rb /)
+      kao(:, 5,13, 7) = (/ &
+        & 0.12246e-05_rb,0.23532e-05_rb,0.27977e-05_rb,0.30556e-05_rb,0.31857e-05_rb, &
+        & 0.32077e-05_rb,0.31127e-05_rb,0.28260e-05_rb,0.15788e-05_rb /)
+      kao(:, 1, 1, 8) = (/ &
+        & 0.43566e-04_rb,0.45402e-04_rb,0.48829e-04_rb,0.50194e-04_rb,0.49978e-04_rb, &
+        & 0.48581e-04_rb,0.45902e-04_rb,0.40781e-04_rb,0.34170e-04_rb /)
+      kao(:, 2, 1, 8) = (/ &
+        & 0.43974e-04_rb,0.47415e-04_rb,0.52012e-04_rb,0.54325e-04_rb,0.54921e-04_rb, &
+        & 0.53975e-04_rb,0.51279e-04_rb,0.46650e-04_rb,0.40945e-04_rb /)
+      kao(:, 3, 1, 8) = (/ &
+        & 0.44333e-04_rb,0.49545e-04_rb,0.55453e-04_rb,0.58909e-04_rb,0.60094e-04_rb, &
+        & 0.59376e-04_rb,0.56940e-04_rb,0.52843e-04_rb,0.48266e-04_rb /)
+      kao(:, 4, 1, 8) = (/ &
+        & 0.44647e-04_rb,0.51771e-04_rb,0.59155e-04_rb,0.63607e-04_rb,0.65306e-04_rb, &
+        & 0.64935e-04_rb,0.62961e-04_rb,0.59262e-04_rb,0.55812e-04_rb /)
+      kao(:, 5, 1, 8) = (/ &
+        & 0.44938e-04_rb,0.54202e-04_rb,0.63063e-04_rb,0.68229e-04_rb,0.70615e-04_rb, &
+        & 0.70683e-04_rb,0.69315e-04_rb,0.65992e-04_rb,0.63855e-04_rb /)
+      kao(:, 1, 2, 8) = (/ &
+        & 0.37849e-04_rb,0.40606e-04_rb,0.43836e-04_rb,0.45171e-04_rb,0.45318e-04_rb, &
+        & 0.44251e-04_rb,0.41853e-04_rb,0.37247e-04_rb,0.29303e-04_rb /)
+      kao(:, 2, 2, 8) = (/ &
+        & 0.38202e-04_rb,0.42545e-04_rb,0.46901e-04_rb,0.49156e-04_rb,0.50002e-04_rb, &
+        & 0.49256e-04_rb,0.46845e-04_rb,0.42755e-04_rb,0.35187e-04_rb /)
+      kao(:, 3, 2, 8) = (/ &
+        & 0.38525e-04_rb,0.44570e-04_rb,0.50219e-04_rb,0.53465e-04_rb,0.54833e-04_rb, &
+        & 0.54348e-04_rb,0.52176e-04_rb,0.48578e-04_rb,0.41697e-04_rb /)
+      kao(:, 4, 2, 8) = (/ &
+        & 0.38828e-04_rb,0.46787e-04_rb,0.53767e-04_rb,0.57818e-04_rb,0.59705e-04_rb, &
+        & 0.59611e-04_rb,0.57787e-04_rb,0.54523e-04_rb,0.48350e-04_rb /)
+      kao(:, 5, 2, 8) = (/ &
+        & 0.39076e-04_rb,0.49105e-04_rb,0.57380e-04_rb,0.62144e-04_rb,0.64743e-04_rb, &
+        & 0.65049e-04_rb,0.63700e-04_rb,0.60747e-04_rb,0.55348e-04_rb /)
+      kao(:, 1, 3, 8) = (/ &
+        & 0.32392e-04_rb,0.35504e-04_rb,0.38232e-04_rb,0.39483e-04_rb,0.39809e-04_rb, &
+        & 0.39031e-04_rb,0.36901e-04_rb,0.32585e-04_rb,0.23735e-04_rb /)
+      kao(:, 2, 3, 8) = (/ &
+        & 0.32715e-04_rb,0.37303e-04_rb,0.41039e-04_rb,0.43202e-04_rb,0.44102e-04_rb, &
+        & 0.43582e-04_rb,0.41484e-04_rb,0.37593e-04_rb,0.28689e-04_rb /)
+      kao(:, 3, 3, 8) = (/ &
+        & 0.33011e-04_rb,0.39216e-04_rb,0.44127e-04_rb,0.47180e-04_rb,0.48515e-04_rb, &
+        & 0.48269e-04_rb,0.46352e-04_rb,0.42866e-04_rb,0.34062e-04_rb /)
+      kao(:, 4, 3, 8) = (/ &
+        & 0.33271e-04_rb,0.41283e-04_rb,0.47451e-04_rb,0.51158e-04_rb,0.53031e-04_rb, &
+        & 0.53191e-04_rb,0.51599e-04_rb,0.48489e-04_rb,0.40122e-04_rb /)
+      kao(:, 5, 3, 8) = (/ &
+        & 0.33495e-04_rb,0.43439e-04_rb,0.50779e-04_rb,0.55143e-04_rb,0.57687e-04_rb, &
+        & 0.58208e-04_rb,0.56935e-04_rb,0.54138e-04_rb,0.46109e-04_rb /)
+      kao(:, 1, 4, 8) = (/ &
+        & 0.27415e-04_rb,0.30543e-04_rb,0.32764e-04_rb,0.33940e-04_rb,0.34340e-04_rb, &
+        & 0.33775e-04_rb,0.31812e-04_rb,0.27722e-04_rb,0.18770e-04_rb /)
+      kao(:, 2, 4, 8) = (/ &
+        & 0.27715e-04_rb,0.32169e-04_rb,0.35304e-04_rb,0.37332e-04_rb,0.38224e-04_rb, &
+        & 0.37868e-04_rb,0.35986e-04_rb,0.32265e-04_rb,0.22928e-04_rb /)
+      kao(:, 3, 4, 8) = (/ &
+        & 0.27982e-04_rb,0.33932e-04_rb,0.38141e-04_rb,0.40925e-04_rb,0.42223e-04_rb, &
+        & 0.42122e-04_rb,0.40409e-04_rb,0.37026e-04_rb,0.27474e-04_rb /)
+      kao(:, 4, 4, 8) = (/ &
+        & 0.28215e-04_rb,0.35808e-04_rb,0.41184e-04_rb,0.44532e-04_rb,0.46320e-04_rb, &
+        & 0.46554e-04_rb,0.45091e-04_rb,0.41998e-04_rb,0.32462e-04_rb /)
+      kao(:, 5, 4, 8) = (/ &
+        & 0.28437e-04_rb,0.37809e-04_rb,0.44202e-04_rb,0.48199e-04_rb,0.50577e-04_rb, &
+        & 0.51211e-04_rb,0.50186e-04_rb,0.47427e-04_rb,0.38088e-04_rb /)
+      kao(:, 1, 5, 8) = (/ &
+        & 0.23010e-04_rb,0.25978e-04_rb,0.27838e-04_rb,0.28899e-04_rb,0.29286e-04_rb, &
+        & 0.28721e-04_rb,0.26945e-04_rb,0.23196e-04_rb,0.14687e-04_rb /)
+      kao(:, 2, 5, 8) = (/ &
+        & 0.23283e-04_rb,0.27434e-04_rb,0.30115e-04_rb,0.31931e-04_rb,0.32743e-04_rb, &
+        & 0.32398e-04_rb,0.30674e-04_rb,0.27269e-04_rb,0.18140e-04_rb /)
+      kao(:, 3, 5, 8) = (/ &
+        & 0.23522e-04_rb,0.29002e-04_rb,0.32686e-04_rb,0.35125e-04_rb,0.36325e-04_rb, &
+        & 0.36232e-04_rb,0.34626e-04_rb,0.31511e-04_rb,0.21987e-04_rb /)
+      kao(:, 4, 5, 8) = (/ &
+        & 0.23738e-04_rb,0.30687e-04_rb,0.35404e-04_rb,0.38366e-04_rb,0.40013e-04_rb, &
+        & 0.40198e-04_rb,0.38830e-04_rb,0.35973e-04_rb,0.26236e-04_rb /)
+      kao(:, 5, 5, 8) = (/ &
+        & 0.23936e-04_rb,0.32534e-04_rb,0.38093e-04_rb,0.41748e-04_rb,0.43875e-04_rb, &
+        & 0.44440e-04_rb,0.43519e-04_rb,0.40954e-04_rb,0.31086e-04_rb /)
+      kao(:, 1, 6, 8) = (/ &
+        & 0.19172e-04_rb,0.21867e-04_rb,0.23409e-04_rb,0.24321e-04_rb,0.24529e-04_rb, &
+        & 0.23927e-04_rb,0.22333e-04_rb,0.18955e-04_rb,0.11218e-04_rb /)
+      kao(:, 2, 6, 8) = (/ &
+        & 0.19419e-04_rb,0.23150e-04_rb,0.25412e-04_rb,0.26974e-04_rb,0.27574e-04_rb, &
+        & 0.27129e-04_rb,0.25625e-04_rb,0.22590e-04_rb,0.14082e-04_rb /)
+      kao(:, 3, 6, 8) = (/ &
+        & 0.19636e-04_rb,0.24533e-04_rb,0.27708e-04_rb,0.29785e-04_rb,0.30733e-04_rb, &
+        & 0.30517e-04_rb,0.29114e-04_rb,0.26329e-04_rb,0.17293e-04_rb /)
+      kao(:, 4, 6, 8) = (/ &
+        & 0.19836e-04_rb,0.26054e-04_rb,0.30093e-04_rb,0.32660e-04_rb,0.34002e-04_rb, &
+        & 0.34049e-04_rb,0.32819e-04_rb,0.30271e-04_rb,0.20869e-04_rb /)
+      kao(:, 5, 6, 8) = (/ &
+        & 0.20002e-04_rb,0.27734e-04_rb,0.32461e-04_rb,0.35638e-04_rb,0.37355e-04_rb, &
+        & 0.37686e-04_rb,0.36788e-04_rb,0.34519e-04_rb,0.24769e-04_rb /)
+      kao(:, 1, 7, 8) = (/ &
+        & 0.15886e-04_rb,0.18280e-04_rb,0.19557e-04_rb,0.20235e-04_rb,0.20297e-04_rb, &
+        & 0.19642e-04_rb,0.18202e-04_rb,0.15130e-04_rb,0.84335e-05_rb /)
+      kao(:, 2, 7, 8) = (/ &
+        & 0.16105e-04_rb,0.19408e-04_rb,0.21322e-04_rb,0.22532e-04_rb,0.22888e-04_rb, &
+        & 0.22409e-04_rb,0.21064e-04_rb,0.18396e-04_rb,0.10766e-04_rb /)
+      kao(:, 3, 7, 8) = (/ &
+        & 0.16304e-04_rb,0.20629e-04_rb,0.23329e-04_rb,0.24999e-04_rb,0.25612e-04_rb, &
+        & 0.25350e-04_rb,0.24115e-04_rb,0.21685e-04_rb,0.13408e-04_rb /)
+      kao(:, 4, 7, 8) = (/ &
+        & 0.16482e-04_rb,0.21985e-04_rb,0.25409e-04_rb,0.27506e-04_rb,0.28475e-04_rb, &
+        & 0.28447e-04_rb,0.27347e-04_rb,0.25116e-04_rb,0.16377e-04_rb /)
+      kao(:, 5, 7, 8) = (/ &
+        & 0.16621e-04_rb,0.23483e-04_rb,0.27507e-04_rb,0.30111e-04_rb,0.31449e-04_rb, &
+        & 0.31651e-04_rb,0.30823e-04_rb,0.28853e-04_rb,0.19647e-04_rb /)
+      kao(:, 1, 8, 8) = (/ &
+        & 0.13104e-04_rb,0.15202e-04_rb,0.16227e-04_rb,0.16675e-04_rb,0.16618e-04_rb, &
+        & 0.15949e-04_rb,0.14642e-04_rb,0.11862e-04_rb,0.62741e-05_rb /)
+      kao(:, 2, 8, 8) = (/ &
+        & 0.13296e-04_rb,0.16183e-04_rb,0.17762e-04_rb,0.18645e-04_rb,0.18799e-04_rb, &
+        & 0.18302e-04_rb,0.17108e-04_rb,0.14749e-04_rb,0.81431e-05_rb /)
+      kao(:, 3, 8, 8) = (/ &
+        & 0.13475e-04_rb,0.17250e-04_rb,0.19501e-04_rb,0.20748e-04_rb,0.21144e-04_rb, &
+        & 0.20825e-04_rb,0.19726e-04_rb,0.17623e-04_rb,0.10291e-04_rb /)
+      kao(:, 4, 8, 8) = (/ &
+        & 0.13631e-04_rb,0.18462e-04_rb,0.21319e-04_rb,0.22916e-04_rb,0.23622e-04_rb, &
+        & 0.23509e-04_rb,0.22509e-04_rb,0.20604e-04_rb,0.12727e-04_rb /)
+      kao(:, 5, 8, 8) = (/ &
+        & 0.13752e-04_rb,0.19773e-04_rb,0.23162e-04_rb,0.25182e-04_rb,0.26210e-04_rb, &
+        & 0.26298e-04_rb,0.25526e-04_rb,0.23837e-04_rb,0.15433e-04_rb /)
+      kao(:, 1, 9, 8) = (/ &
+        & 0.10771e-04_rb,0.12580e-04_rb,0.13349e-04_rb,0.13617e-04_rb,0.13459e-04_rb, &
+        & 0.12816e-04_rb,0.11635e-04_rb,0.90636e-05_rb,0.45849e-05_rb /)
+      kao(:, 2, 9, 8) = (/ &
+        & 0.10937e-04_rb,0.13431e-04_rb,0.14667e-04_rb,0.15270e-04_rb,0.15289e-04_rb, &
+        & 0.14786e-04_rb,0.13720e-04_rb,0.11614e-04_rb,0.60707e-05_rb /)
+      kao(:, 3, 9, 8) = (/ &
+        & 0.11095e-04_rb,0.14367e-04_rb,0.16153e-04_rb,0.17055e-04_rb,0.17287e-04_rb, &
+        & 0.16925e-04_rb,0.15948e-04_rb,0.14098e-04_rb,0.78037e-05_rb /)
+      kao(:, 4, 9, 8) = (/ &
+        & 0.11230e-04_rb,0.15436e-04_rb,0.17715e-04_rb,0.18921e-04_rb,0.19404e-04_rb, &
+        & 0.19208e-04_rb,0.18318e-04_rb,0.16668e-04_rb,0.97810e-05_rb /)
+      kao(:, 5, 9, 8) = (/ &
+        & 0.11337e-04_rb,0.16572e-04_rb,0.19310e-04_rb,0.20882e-04_rb,0.21623e-04_rb, &
+        & 0.21621e-04_rb,0.20902e-04_rb,0.19439e-04_rb,0.11994e-04_rb /)
+      kao(:, 1,10, 8) = (/ &
+        & 0.88397e-05_rb,0.10407e-04_rb,0.10992e-04_rb,0.11130e-04_rb,0.10914e-04_rb, &
+        & 0.10319e-04_rb,0.92746e-05_rb,0.69230e-05_rb,0.33878e-05_rb /)
+      kao(:, 2,10, 8) = (/ &
+        & 0.89820e-05_rb,0.11148e-04_rb,0.12114e-04_rb,0.12509e-04_rb,0.12455e-04_rb, &
+        & 0.11973e-04_rb,0.11026e-04_rb,0.91303e-05_rb,0.45777e-05_rb /)
+      kao(:, 3,10, 8) = (/ &
+        & 0.91201e-05_rb,0.11975e-04_rb,0.13369e-04_rb,0.14032e-04_rb,0.14150e-04_rb, &
+        & 0.13774e-04_rb,0.12899e-04_rb,0.11289e-04_rb,0.59718e-05_rb /)
+      kao(:, 4,10, 8) = (/ &
+        & 0.92338e-05_rb,0.12910e-04_rb,0.14708e-04_rb,0.15633e-04_rb,0.15947e-04_rb, &
+        & 0.15711e-04_rb,0.14916e-04_rb,0.13483e-04_rb,0.75778e-05_rb /)
+      kao(:, 5,10, 8) = (/ &
+        & 0.93270e-05_rb,0.13899e-04_rb,0.16089e-04_rb,0.17313e-04_rb,0.17838e-04_rb, &
+        & 0.17779e-04_rb,0.17126e-04_rb,0.15852e-04_rb,0.93849e-05_rb /)
+      kao(:, 1,11, 8) = (/ &
+        & 0.72957e-05_rb,0.88518e-05_rb,0.94180e-05_rb,0.95477e-05_rb,0.93627e-05_rb, &
+        & 0.88681e-05_rb,0.79846e-05_rb,0.60665e-05_rb,0.28938e-05_rb /)
+      kao(:, 2,11, 8) = (/ &
+        & 0.74164e-05_rb,0.95244e-05_rb,0.10413e-04_rb,0.10760e-04_rb,0.10725e-04_rb, &
+        & 0.10300e-04_rb,0.94914e-05_rb,0.79265e-05_rb,0.39145e-05_rb /)
+      kao(:, 3,11, 8) = (/ &
+        & 0.75267e-05_rb,0.10290e-04_rb,0.11516e-04_rb,0.12091e-04_rb,0.12186e-04_rb, &
+        & 0.11866e-04_rb,0.11116e-04_rb,0.97843e-05_rb,0.51152e-05_rb /)
+      kao(:, 4,11, 8) = (/ &
+        & 0.76165e-05_rb,0.11127e-04_rb,0.12682e-04_rb,0.13483e-04_rb,0.13746e-04_rb, &
+        & 0.13546e-04_rb,0.12885e-04_rb,0.11704e-04_rb,0.64876e-05_rb /)
+      kao(:, 5,11, 8) = (/ &
+        & 0.76866e-05_rb,0.11972e-04_rb,0.13896e-04_rb,0.14938e-04_rb,0.15405e-04_rb, &
+        & 0.15374e-04_rb,0.14838e-04_rb,0.13790e-04_rb,0.80319e-05_rb /)
+      kao(:, 1,12, 8) = (/ &
+        & 0.60137e-05_rb,0.75193e-05_rb,0.80348e-05_rb,0.81538e-05_rb,0.80064e-05_rb, &
+        & 0.75822e-05_rb,0.68354e-05_rb,0.52502e-05_rb,0.24674e-05_rb /)
+      kao(:, 2,12, 8) = (/ &
+        & 0.61150e-05_rb,0.81325e-05_rb,0.89089e-05_rb,0.92208e-05_rb,0.91831e-05_rb, &
+        & 0.88171e-05_rb,0.81283e-05_rb,0.68396e-05_rb,0.33429e-05_rb /)
+      kao(:, 3,12, 8) = (/ &
+        & 0.62020e-05_rb,0.88113e-05_rb,0.98818e-05_rb,0.10369e-04_rb,0.10440e-04_rb, &
+        & 0.10164e-04_rb,0.95355e-05_rb,0.84372e-05_rb,0.43683e-05_rb /)
+      kao(:, 4,12, 8) = (/ &
+        & 0.62729e-05_rb,0.95382e-05_rb,0.10890e-04_rb,0.11569e-04_rb,0.11793e-04_rb, &
+        & 0.11630e-04_rb,0.11082e-04_rb,0.10108e-04_rb,0.55358e-05_rb /)
+      kao(:, 5,12, 8) = (/ &
+        & 0.63199e-05_rb,0.10271e-04_rb,0.11934e-04_rb,0.12838e-04_rb,0.13254e-04_rb, &
+        & 0.13231e-04_rb,0.12796e-04_rb,0.11934e-04_rb,0.68492e-05_rb /)
+      kao(:, 1,13, 8) = (/ &
+        & 0.49517e-05_rb,0.63774e-05_rb,0.68261e-05_rb,0.69411e-05_rb,0.68151e-05_rb, &
+        & 0.64513e-05_rb,0.58220e-05_rb,0.45056e-05_rb,0.20980e-05_rb /)
+      kao(:, 2,13, 8) = (/ &
+        & 0.50331e-05_rb,0.69207e-05_rb,0.75990e-05_rb,0.78660e-05_rb,0.78231e-05_rb, &
+        & 0.75119e-05_rb,0.69333e-05_rb,0.58688e-05_rb,0.28426e-05_rb /)
+      kao(:, 3,13, 8) = (/ &
+        & 0.51036e-05_rb,0.75155e-05_rb,0.84393e-05_rb,0.88490e-05_rb,0.89047e-05_rb, &
+        & 0.86720e-05_rb,0.81449e-05_rb,0.72410e-05_rb,0.37114e-05_rb /)
+      kao(:, 4,13, 8) = (/ &
+        & 0.51548e-05_rb,0.81445e-05_rb,0.93105e-05_rb,0.98793e-05_rb,0.10078e-04_rb, &
+        & 0.99535e-05_rb,0.94951e-05_rb,0.86973e-05_rb,0.47002e-05_rb /)
+      kao(:, 5,13, 8) = (/ &
+        & 0.51867e-05_rb,0.87857e-05_rb,0.10211e-04_rb,0.10992e-04_rb,0.11352e-04_rb, &
+        & 0.11351e-04_rb,0.10990e-04_rb,0.10277e-04_rb,0.58153e-05_rb /)
+      kao(:, 1, 1, 9) = (/ &
+        & 0.18292e-03_rb,0.16357e-03_rb,0.15341e-03_rb,0.14585e-03_rb,0.13797e-03_rb, &
+        & 0.12826e-03_rb,0.11477e-03_rb,0.99322e-04_rb,0.99311e-04_rb /)
+      kao(:, 2, 1, 9) = (/ &
+        & 0.18277e-03_rb,0.16502e-03_rb,0.15805e-03_rb,0.15290e-03_rb,0.14696e-03_rb, &
+        & 0.13850e-03_rb,0.12664e-03_rb,0.11419e-03_rb,0.11887e-03_rb /)
+      kao(:, 3, 1, 9) = (/ &
+        & 0.18261e-03_rb,0.16694e-03_rb,0.16322e-03_rb,0.16061e-03_rb,0.15658e-03_rb, &
+        & 0.14997e-03_rb,0.14010e-03_rb,0.13154e-03_rb,0.14123e-03_rb /)
+      kao(:, 4, 1, 9) = (/ &
+        & 0.18244e-03_rb,0.16952e-03_rb,0.16897e-03_rb,0.16909e-03_rb,0.16740e-03_rb, &
+        & 0.16268e-03_rb,0.15556e-03_rb,0.15163e-03_rb,0.16610e-03_rb /)
+      kao(:, 5, 1, 9) = (/ &
+        & 0.18218e-03_rb,0.17247e-03_rb,0.17521e-03_rb,0.17844e-03_rb,0.17911e-03_rb, &
+        & 0.17696e-03_rb,0.17241e-03_rb,0.17370e-03_rb,0.19290e-03_rb /)
+      kao(:, 1, 2, 9) = (/ &
+        & 0.17473e-03_rb,0.15735e-03_rb,0.14910e-03_rb,0.14227e-03_rb,0.13471e-03_rb, &
+        & 0.12515e-03_rb,0.11200e-03_rb,0.94986e-04_rb,0.89520e-04_rb /)
+      kao(:, 2, 2, 9) = (/ &
+        & 0.17467e-03_rb,0.15907e-03_rb,0.15401e-03_rb,0.14953e-03_rb,0.14402e-03_rb, &
+        & 0.13581e-03_rb,0.12401e-03_rb,0.10893e-03_rb,0.10811e-03_rb /)
+      kao(:, 3, 2, 9) = (/ &
+        & 0.17463e-03_rb,0.16142e-03_rb,0.15942e-03_rb,0.15773e-03_rb,0.15417e-03_rb, &
+        & 0.14769e-03_rb,0.13747e-03_rb,0.12528e-03_rb,0.12924e-03_rb /)
+      kao(:, 4, 2, 9) = (/ &
+        & 0.17449e-03_rb,0.16426e-03_rb,0.16549e-03_rb,0.16671e-03_rb,0.16541e-03_rb, &
+        & 0.16085e-03_rb,0.15263e-03_rb,0.14389e-03_rb,0.15270e-03_rb /)
+      kao(:, 5, 2, 9) = (/ &
+        & 0.17439e-03_rb,0.16753e-03_rb,0.17238e-03_rb,0.17658e-03_rb,0.17759e-03_rb, &
+        & 0.17537e-03_rb,0.16910e-03_rb,0.16442e-03_rb,0.17796e-03_rb /)
+      kao(:, 1, 3, 9) = (/ &
+        & 0.16429e-03_rb,0.14895e-03_rb,0.14201e-03_rb,0.13557e-03_rb,0.12797e-03_rb, &
+        & 0.11829e-03_rb,0.10548e-03_rb,0.88188e-04_rb,0.77280e-04_rb /)
+      kao(:, 2, 3, 9) = (/ &
+        & 0.16436e-03_rb,0.15092e-03_rb,0.14708e-03_rb,0.14277e-03_rb,0.13731e-03_rb, &
+        & 0.12899e-03_rb,0.11719e-03_rb,0.10108e-03_rb,0.94071e-04_rb /)
+      kao(:, 3, 3, 9) = (/ &
+        & 0.16438e-03_rb,0.15344e-03_rb,0.15259e-03_rb,0.15105e-03_rb,0.14760e-03_rb, &
+        & 0.14078e-03_rb,0.13037e-03_rb,0.11602e-03_rb,0.11331e-03_rb /)
+      kao(:, 4, 3, 9) = (/ &
+        & 0.16440e-03_rb,0.15651e-03_rb,0.15877e-03_rb,0.16021e-03_rb,0.15883e-03_rb, &
+        & 0.15394e-03_rb,0.14519e-03_rb,0.13303e-03_rb,0.13463e-03_rb /)
+      kao(:, 5, 3, 9) = (/ &
+        & 0.16444e-03_rb,0.16001e-03_rb,0.16595e-03_rb,0.17023e-03_rb,0.17105e-03_rb, &
+        & 0.16855e-03_rb,0.16116e-03_rb,0.15159e-03_rb,0.15764e-03_rb /)
+      kao(:, 1, 4, 9) = (/ &
+        & 0.15195e-03_rb,0.13883e-03_rb,0.13294e-03_rb,0.12699e-03_rb,0.11928e-03_rb, &
+        & 0.10948e-03_rb,0.97355e-04_rb,0.80985e-04_rb,0.65303e-04_rb /)
+      kao(:, 2, 4, 9) = (/ &
+        & 0.15212e-03_rb,0.14097e-03_rb,0.13802e-03_rb,0.13404e-03_rb,0.12836e-03_rb, &
+        & 0.11996e-03_rb,0.10855e-03_rb,0.92884e-04_rb,0.80285e-04_rb /)
+      kao(:, 3, 4, 9) = (/ &
+        & 0.15229e-03_rb,0.14364e-03_rb,0.14356e-03_rb,0.14222e-03_rb,0.13844e-03_rb, &
+        & 0.13147e-03_rb,0.12124e-03_rb,0.10661e-03_rb,0.97473e-04_rb /)
+      kao(:, 4, 4, 9) = (/ &
+        & 0.15247e-03_rb,0.14694e-03_rb,0.14987e-03_rb,0.15132e-03_rb,0.14947e-03_rb, &
+        & 0.14428e-03_rb,0.13562e-03_rb,0.12218e-03_rb,0.11647e-03_rb /)
+      kao(:, 5, 4, 9) = (/ &
+        & 0.15268e-03_rb,0.15064e-03_rb,0.15719e-03_rb,0.16126e-03_rb,0.16162e-03_rb, &
+        & 0.15869e-03_rb,0.15101e-03_rb,0.13904e-03_rb,0.13733e-03_rb /)
+      kao(:, 1, 5, 9) = (/ &
+        & 0.13846e-03_rb,0.12761e-03_rb,0.12265e-03_rb,0.11713e-03_rb,0.10945e-03_rb, &
+        & 0.10011e-03_rb,0.88713e-04_rb,0.73647e-04_rb,0.54834e-04_rb /)
+      kao(:, 2, 5, 9) = (/ &
+        & 0.13872e-03_rb,0.12987e-03_rb,0.12766e-03_rb,0.12392e-03_rb,0.11814e-03_rb, &
+        & 0.11013e-03_rb,0.99375e-04_rb,0.84759e-04_rb,0.68007e-04_rb /)
+      kao(:, 3, 5, 9) = (/ &
+        & 0.13899e-03_rb,0.13272e-03_rb,0.13319e-03_rb,0.13187e-03_rb,0.12795e-03_rb, &
+        & 0.12108e-03_rb,0.11145e-03_rb,0.97499e-04_rb,0.83096e-04_rb /)
+      kao(:, 4, 5, 9) = (/ &
+        & 0.13930e-03_rb,0.13617e-03_rb,0.13955e-03_rb,0.14081e-03_rb,0.13862e-03_rb, &
+        & 0.13340e-03_rb,0.12522e-03_rb,0.11183e-03_rb,0.99891e-04_rb /)
+      kao(:, 5, 5, 9) = (/ &
+        & 0.13961e-03_rb,0.13997e-03_rb,0.14692e-03_rb,0.15049e-03_rb,0.15045e-03_rb, &
+        & 0.14736e-03_rb,0.14024e-03_rb,0.12733e-03_rb,0.11865e-03_rb /)
+      kao(:, 1, 6, 9) = (/ &
+        & 0.12419e-03_rb,0.11551e-03_rb,0.11132e-03_rb,0.10604e-03_rb,0.98912e-04_rb, &
+        & 0.90174e-04_rb,0.79553e-04_rb,0.65781e-04_rb,0.45228e-04_rb /)
+      kao(:, 2, 6, 9) = (/ &
+        & 0.12454e-03_rb,0.11786e-03_rb,0.11619e-03_rb,0.11259e-03_rb,0.10704e-03_rb, &
+        & 0.99552e-04_rb,0.89546e-04_rb,0.76061e-04_rb,0.56748e-04_rb /)
+      kao(:, 3, 6, 9) = (/ &
+        & 0.12490e-03_rb,0.12081e-03_rb,0.12161e-03_rb,0.12024e-03_rb,0.11632e-03_rb, &
+        & 0.10988e-03_rb,0.10081e-03_rb,0.87950e-04_rb,0.69901e-04_rb /)
+      kao(:, 4, 6, 9) = (/ &
+        & 0.12528e-03_rb,0.12425e-03_rb,0.12796e-03_rb,0.12887e-03_rb,0.12649e-03_rb, &
+        & 0.12150e-03_rb,0.11381e-03_rb,0.10130e-03_rb,0.84575e-04_rb /)
+      kao(:, 5, 6, 9) = (/ &
+        & 0.12568e-03_rb,0.12811e-03_rb,0.13519e-03_rb,0.13816e-03_rb,0.13780e-03_rb, &
+        & 0.13476e-03_rb,0.12819e-03_rb,0.11553e-03_rb,0.10091e-03_rb /)
+      kao(:, 1, 7, 9) = (/ &
+        & 0.10978e-03_rb,0.10308e-03_rb,0.99508e-04_rb,0.94571e-04_rb,0.88120e-04_rb, &
+        & 0.80226e-04_rb,0.70492e-04_rb,0.57993e-04_rb,0.36699e-04_rb /)
+      kao(:, 2, 7, 9) = (/ &
+        & 0.11018e-03_rb,0.10544e-03_rb,0.10415e-03_rb,0.10080e-03_rb,0.95769e-04_rb, &
+        & 0.88865e-04_rb,0.79698e-04_rb,0.67450e-04_rb,0.46683e-04_rb /)
+      kao(:, 3, 7, 9) = (/ &
+        & 0.11058e-03_rb,0.10837e-03_rb,0.10936e-03_rb,0.10807e-03_rb,0.10453e-03_rb, &
+        & 0.98497e-04_rb,0.90104e-04_rb,0.78443e-04_rb,0.58212e-04_rb /)
+      kao(:, 4, 7, 9) = (/ &
+        & 0.11104e-03_rb,0.11179e-03_rb,0.11551e-03_rb,0.11629e-03_rb,0.11409e-03_rb, &
+        & 0.10934e-03_rb,0.10217e-03_rb,0.90913e-04_rb,0.71131e-04_rb /)
+      kao(:, 5, 7, 9) = (/ &
+        & 0.11149e-03_rb,0.11560e-03_rb,0.12257e-03_rb,0.12521e-03_rb,0.12472e-03_rb, &
+        & 0.12180e-03_rb,0.11572e-03_rb,0.10421e-03_rb,0.85542e-04_rb /)
+      kao(:, 1, 8, 9) = (/ &
+        & 0.95759e-04_rb,0.90773e-04_rb,0.87806e-04_rb,0.83290e-04_rb,0.77515e-04_rb, &
+        & 0.70528e-04_rb,0.61795e-04_rb,0.50465e-04_rb,0.29380e-04_rb /)
+      kao(:, 2, 8, 9) = (/ &
+        & 0.96189e-04_rb,0.93120e-04_rb,0.92132e-04_rb,0.89103e-04_rb,0.84653e-04_rb, &
+        & 0.78456e-04_rb,0.70159e-04_rb,0.59177e-04_rb,0.37867e-04_rb /)
+      kao(:, 3, 8, 9) = (/ &
+        & 0.96665e-04_rb,0.96018e-04_rb,0.97008e-04_rb,0.95975e-04_rb,0.92760e-04_rb, &
+        & 0.87379e-04_rb,0.79687e-04_rb,0.69248e-04_rb,0.47855e-04_rb /)
+      kao(:, 4, 8, 9) = (/ &
+        & 0.97168e-04_rb,0.99322e-04_rb,0.10289e-03_rb,0.10373e-03_rb,0.10169e-03_rb, &
+        & 0.97397e-04_rb,0.90796e-04_rb,0.80805e-04_rb,0.59240e-04_rb /)
+      kao(:, 5, 8, 9) = (/ &
+        & 0.97641e-04_rb,0.10302e-03_rb,0.10967e-03_rb,0.11218e-03_rb,0.11166e-03_rb, &
+        & 0.10896e-03_rb,0.10343e-03_rb,0.93210e-04_rb,0.71998e-04_rb /)
+      kao(:, 1, 9, 9) = (/ &
+        & 0.82482e-04_rb,0.78941e-04_rb,0.76398e-04_rb,0.72429e-04_rb,0.67369e-04_rb, &
+        & 0.61188e-04_rb,0.53486e-04_rb,0.43219e-04_rb,0.23144e-04_rb /)
+      kao(:, 2, 9, 9) = (/ &
+        & 0.82941e-04_rb,0.81194e-04_rb,0.80391e-04_rb,0.77783e-04_rb,0.73924e-04_rb, &
+        & 0.68383e-04_rb,0.61055e-04_rb,0.51145e-04_rb,0.30235e-04_rb /)
+      kao(:, 3, 9, 9) = (/ &
+        & 0.83462e-04_rb,0.83998e-04_rb,0.84977e-04_rb,0.84161e-04_rb,0.81323e-04_rb, &
+        & 0.76538e-04_rb,0.69739e-04_rb,0.60350e-04_rb,0.38714e-04_rb /)
+      kao(:, 4, 9, 9) = (/ &
+        & 0.83976e-04_rb,0.87153e-04_rb,0.90583e-04_rb,0.91413e-04_rb,0.89589e-04_rb, &
+        & 0.85741e-04_rb,0.79900e-04_rb,0.70947e-04_rb,0.48553e-04_rb /)
+      kao(:, 5, 9, 9) = (/ &
+        & 0.84461e-04_rb,0.90734e-04_rb,0.96938e-04_rb,0.99296e-04_rb,0.98864e-04_rb, &
+        & 0.96399e-04_rb,0.91511e-04_rb,0.82490e-04_rb,0.59777e-04_rb /)
+      kao(:, 1,10, 9) = (/ &
+        & 0.70371e-04_rb,0.68110e-04_rb,0.65986e-04_rb,0.62636e-04_rb,0.58303e-04_rb, &
+        & 0.52961e-04_rb,0.46122e-04_rb,0.37036e-04_rb,0.18341e-04_rb /)
+      kao(:, 2,10, 9) = (/ &
+        & 0.70853e-04_rb,0.70288e-04_rb,0.69669e-04_rb,0.67543e-04_rb,0.64271e-04_rb, &
+        & 0.59496e-04_rb,0.53052e-04_rb,0.44224e-04_rb,0.24306e-04_rb /)
+      kao(:, 3,10, 9) = (/ &
+        & 0.71373e-04_rb,0.72956e-04_rb,0.74034e-04_rb,0.73423e-04_rb,0.71076e-04_rb, &
+        & 0.66934e-04_rb,0.61048e-04_rb,0.52623e-04_rb,0.31537e-04_rb /)
+      kao(:, 4,10, 9) = (/ &
+        & 0.71862e-04_rb,0.75946e-04_rb,0.79283e-04_rb,0.80149e-04_rb,0.78712e-04_rb, &
+        & 0.75412e-04_rb,0.70399e-04_rb,0.62323e-04_rb,0.40041e-04_rb /)
+      kao(:, 5,10, 9) = (/ &
+        & 0.72376e-04_rb,0.79405e-04_rb,0.85220e-04_rb,0.87544e-04_rb,0.87332e-04_rb, &
+        & 0.85268e-04_rb,0.81104e-04_rb,0.73085e-04_rb,0.49845e-04_rb /)
+      kao(:, 1,11, 9) = (/ &
+        & 0.59776e-04_rb,0.59155e-04_rb,0.57996e-04_rb,0.55642e-04_rb,0.52323e-04_rb, &
+        & 0.47930e-04_rb,0.42036e-04_rb,0.34179e-04_rb,0.16514e-04_rb /)
+      kao(:, 2,11, 9) = (/ &
+        & 0.60275e-04_rb,0.61436e-04_rb,0.61654e-04_rb,0.60490e-04_rb,0.58055e-04_rb, &
+        & 0.54242e-04_rb,0.48750e-04_rb,0.41144e-04_rb,0.21987e-04_rb /)
+      kao(:, 3,11, 9) = (/ &
+        & 0.60746e-04_rb,0.64075e-04_rb,0.66078e-04_rb,0.66233e-04_rb,0.64629e-04_rb, &
+        & 0.61455e-04_rb,0.56611e-04_rb,0.49290e-04_rb,0.28648e-04_rb /)
+      kao(:, 4,11, 9) = (/ &
+        & 0.61244e-04_rb,0.67066e-04_rb,0.71217e-04_rb,0.72696e-04_rb,0.72050e-04_rb, &
+        & 0.69816e-04_rb,0.65797e-04_rb,0.58590e-04_rb,0.36515e-04_rb /)
+      kao(:, 5,11, 9) = (/ &
+        & 0.61769e-04_rb,0.70693e-04_rb,0.76979e-04_rb,0.79872e-04_rb,0.80561e-04_rb, &
+        & 0.79478e-04_rb,0.76089e-04_rb,0.68898e-04_rb,0.45628e-04_rb /)
+      kao(:, 1,12, 9) = (/ &
+        & 0.50518e-04_rb,0.51187e-04_rb,0.50822e-04_rb,0.49284e-04_rb,0.46769e-04_rb, &
+        & 0.43097e-04_rb,0.38110e-04_rb,0.31379e-04_rb,0.14783e-04_rb /)
+      kao(:, 2,12, 9) = (/ &
+        & 0.50964e-04_rb,0.53463e-04_rb,0.54457e-04_rb,0.54020e-04_rb,0.52266e-04_rb, &
+        & 0.49174e-04_rb,0.44595e-04_rb,0.38042e-04_rb,0.19796e-04_rb /)
+      kao(:, 3,12, 9) = (/ &
+        & 0.51421e-04_rb,0.56033e-04_rb,0.58762e-04_rb,0.59481e-04_rb,0.58578e-04_rb, &
+        & 0.56207e-04_rb,0.52260e-04_rb,0.45820e-04_rb,0.25919e-04_rb /)
+      kao(:, 4,12, 9) = (/ &
+        & 0.51920e-04_rb,0.59121e-04_rb,0.63731e-04_rb,0.65674e-04_rb,0.65806e-04_rb, &
+        & 0.64464e-04_rb,0.61120e-04_rb,0.54677e-04_rb,0.33164e-04_rb /)
+      kao(:, 5,12, 9) = (/ &
+        & 0.52396e-04_rb,0.62780e-04_rb,0.69274e-04_rb,0.72637e-04_rb,0.74145e-04_rb, &
+        & 0.73831e-04_rb,0.71039e-04_rb,0.64514e-04_rb,0.41597e-04_rb /)
+      kao(:, 1,13, 9) = (/ &
+        & 0.42486e-04_rb,0.44174e-04_rb,0.44463e-04_rb,0.43555e-04_rb,0.41568e-04_rb, &
+        & 0.38563e-04_rb,0.34384e-04_rb,0.28625e-04_rb,0.13171e-04_rb /)
+      kao(:, 2,13, 9) = (/ &
+        & 0.42904e-04_rb,0.46376e-04_rb,0.47979e-04_rb,0.48065e-04_rb,0.46867e-04_rb, &
+        & 0.44391e-04_rb,0.40615e-04_rb,0.34938e-04_rb,0.17746e-04_rb /)
+      kao(:, 3,13, 9) = (/ &
+        & 0.43349e-04_rb,0.48965e-04_rb,0.52137e-04_rb,0.53262e-04_rb,0.52962e-04_rb, &
+        & 0.51246e-04_rb,0.47996e-04_rb,0.42282e-04_rb,0.23342e-04_rb /)
+      kao(:, 4,13, 9) = (/ &
+        & 0.43790e-04_rb,0.52076e-04_rb,0.56889e-04_rb,0.59186e-04_rb,0.60002e-04_rb, &
+        & 0.59254e-04_rb,0.56460e-04_rb,0.50705e-04_rb,0.29999e-04_rb /)
+      kao(:, 5,13, 9) = (/ &
+        & 0.44254e-04_rb,0.55629e-04_rb,0.62209e-04_rb,0.65993e-04_rb,0.68105e-04_rb, &
+        & 0.68270e-04_rb,0.65941e-04_rb,0.60145e-04_rb,0.37728e-04_rb /)
+      kao(:, 1, 1,10) = (/ &
+        & 0.42864e-03_rb,0.37538e-03_rb,0.32907e-03_rb,0.29701e-03_rb,0.26399e-03_rb, &
+        & 0.23587e-03_rb,0.21519e-03_rb,0.20736e-03_rb,0.23690e-03_rb /)
+      kao(:, 2, 1,10) = (/ &
+        & 0.42770e-03_rb,0.37463e-03_rb,0.33468e-03_rb,0.30443e-03_rb,0.27635e-03_rb, &
+        & 0.25424e-03_rb,0.24068e-03_rb,0.24289e-03_rb,0.27885e-03_rb /)
+      kao(:, 3, 1,10) = (/ &
+        & 0.42742e-03_rb,0.37444e-03_rb,0.34109e-03_rb,0.31378e-03_rb,0.29265e-03_rb, &
+        & 0.27618e-03_rb,0.26729e-03_rb,0.27967e-03_rb,0.32090e-03_rb /)
+      kao(:, 4, 1,10) = (/ &
+        & 0.42756e-03_rb,0.37461e-03_rb,0.34714e-03_rb,0.32647e-03_rb,0.30721e-03_rb, &
+        & 0.29888e-03_rb,0.29503e-03_rb,0.31853e-03_rb,0.36629e-03_rb /)
+      kao(:, 5, 1,10) = (/ &
+        & 0.42817e-03_rb,0.37676e-03_rb,0.35506e-03_rb,0.34027e-03_rb,0.32593e-03_rb, &
+        & 0.32117e-03_rb,0.33159e-03_rb,0.36650e-03_rb,0.42307e-03_rb /)
+      kao(:, 1, 2,10) = (/ &
+        & 0.44647e-03_rb,0.39099e-03_rb,0.34399e-03_rb,0.31315e-03_rb,0.27681e-03_rb, &
+        & 0.24757e-03_rb,0.21977e-03_rb,0.20260e-03_rb,0.22465e-03_rb /)
+      kao(:, 2, 2,10) = (/ &
+        & 0.44675e-03_rb,0.39126e-03_rb,0.35094e-03_rb,0.32069e-03_rb,0.29009e-03_rb, &
+        & 0.26696e-03_rb,0.24338e-03_rb,0.23431e-03_rb,0.26448e-03_rb /)
+      kao(:, 3, 2,10) = (/ &
+        & 0.44728e-03_rb,0.39176e-03_rb,0.35848e-03_rb,0.33002e-03_rb,0.30752e-03_rb, &
+        & 0.28763e-03_rb,0.26835e-03_rb,0.26923e-03_rb,0.30805e-03_rb /)
+      kao(:, 4, 2,10) = (/ &
+        & 0.44805e-03_rb,0.39321e-03_rb,0.36547e-03_rb,0.34473e-03_rb,0.32431e-03_rb, &
+        & 0.30833e-03_rb,0.29659e-03_rb,0.31021e-03_rb,0.35789e-03_rb /)
+      kao(:, 5, 2,10) = (/ &
+        & 0.44833e-03_rb,0.39641e-03_rb,0.37373e-03_rb,0.35955e-03_rb,0.34286e-03_rb, &
+        & 0.33059e-03_rb,0.33253e-03_rb,0.36056e-03_rb,0.41785e-03_rb /)
+      kao(:, 1, 3,10) = (/ &
+        & 0.45575e-03_rb,0.39903e-03_rb,0.35239e-03_rb,0.32061e-03_rb,0.28610e-03_rb, &
+        & 0.25358e-03_rb,0.22160e-03_rb,0.19044e-03_rb,0.19754e-03_rb /)
+      kao(:, 2, 3,10) = (/ &
+        & 0.45658e-03_rb,0.39983e-03_rb,0.35980e-03_rb,0.32984e-03_rb,0.29898e-03_rb, &
+        & 0.27505e-03_rb,0.24328e-03_rb,0.21905e-03_rb,0.23515e-03_rb /)
+      kao(:, 3, 3,10) = (/ &
+        & 0.45737e-03_rb,0.40126e-03_rb,0.36866e-03_rb,0.34025e-03_rb,0.31808e-03_rb, &
+        & 0.29648e-03_rb,0.26565e-03_rb,0.25100e-03_rb,0.27824e-03_rb /)
+      kao(:, 4, 3,10) = (/ &
+        & 0.45822e-03_rb,0.40344e-03_rb,0.37727e-03_rb,0.35639e-03_rb,0.33753e-03_rb, &
+        & 0.31544e-03_rb,0.29107e-03_rb,0.29011e-03_rb,0.33040e-03_rb /)
+      kao(:, 5, 3,10) = (/ &
+        & 0.45803e-03_rb,0.40724e-03_rb,0.38685e-03_rb,0.37303e-03_rb,0.35804e-03_rb, &
+        & 0.33477e-03_rb,0.32542e-03_rb,0.34063e-03_rb,0.39188e-03_rb /)
+      kao(:, 1, 4,10) = (/ &
+        & 0.45696e-03_rb,0.40009e-03_rb,0.35533e-03_rb,0.32134e-03_rb,0.28977e-03_rb, &
+        & 0.25642e-03_rb,0.22005e-03_rb,0.17825e-03_rb,0.16960e-03_rb /)
+      kao(:, 2, 4,10) = (/ &
+        & 0.45799e-03_rb,0.40164e-03_rb,0.36303e-03_rb,0.33235e-03_rb,0.30343e-03_rb, &
+        & 0.27796e-03_rb,0.24341e-03_rb,0.20303e-03_rb,0.20347e-03_rb /)
+      kao(:, 3, 4,10) = (/ &
+        & 0.45889e-03_rb,0.40391e-03_rb,0.37251e-03_rb,0.34409e-03_rb,0.32396e-03_rb, &
+        & 0.30068e-03_rb,0.26403e-03_rb,0.23112e-03_rb,0.24434e-03_rb /)
+      kao(:, 4, 4,10) = (/ &
+        & 0.45955e-03_rb,0.40640e-03_rb,0.38203e-03_rb,0.36158e-03_rb,0.34561e-03_rb, &
+        & 0.32162e-03_rb,0.28613e-03_rb,0.26715e-03_rb,0.29513e-03_rb /)
+      kao(:, 5, 4,10) = (/ &
+        & 0.45899e-03_rb,0.41016e-03_rb,0.39290e-03_rb,0.38024e-03_rb,0.36719e-03_rb, &
+        & 0.34183e-03_rb,0.31736e-03_rb,0.31348e-03_rb,0.35430e-03_rb /)
+      kao(:, 1, 5,10) = (/ &
+        & 0.44860e-03_rb,0.39309e-03_rb,0.35143e-03_rb,0.31765e-03_rb,0.28887e-03_rb, &
+        & 0.25439e-03_rb,0.21652e-03_rb,0.16876e-03_rb,0.14333e-03_rb /)
+      kao(:, 2, 5,10) = (/ &
+        & 0.45003e-03_rb,0.39579e-03_rb,0.35959e-03_rb,0.33075e-03_rb,0.30371e-03_rb, &
+        & 0.27559e-03_rb,0.24058e-03_rb,0.19058e-03_rb,0.17442e-03_rb /)
+      kao(:, 3, 5,10) = (/ &
+        & 0.45146e-03_rb,0.39890e-03_rb,0.36951e-03_rb,0.34437e-03_rb,0.32442e-03_rb, &
+        & 0.30040e-03_rb,0.26223e-03_rb,0.21520e-03_rb,0.21295e-03_rb /)
+      kao(:, 4, 5,10) = (/ &
+        & 0.45218e-03_rb,0.40151e-03_rb,0.38022e-03_rb,0.36228e-03_rb,0.34802e-03_rb, &
+        & 0.32336e-03_rb,0.28327e-03_rb,0.24766e-03_rb,0.26132e-03_rb /)
+      kao(:, 5, 5,10) = (/ &
+        & 0.45207e-03_rb,0.40582e-03_rb,0.39175e-03_rb,0.38293e-03_rb,0.37072e-03_rb, &
+        & 0.34500e-03_rb,0.31037e-03_rb,0.29012e-03_rb,0.31661e-03_rb /)
+      kao(:, 1, 6,10) = (/ &
+        & 0.43374e-03_rb,0.38081e-03_rb,0.34182e-03_rb,0.31060e-03_rb,0.28045e-03_rb, &
+        & 0.24697e-03_rb,0.20889e-03_rb,0.16055e-03_rb,0.12036e-03_rb /)
+      kao(:, 2, 6,10) = (/ &
+        & 0.43531e-03_rb,0.38407e-03_rb,0.35000e-03_rb,0.32358e-03_rb,0.29721e-03_rb, &
+        & 0.26821e-03_rb,0.23298e-03_rb,0.18104e-03_rb,0.14668e-03_rb /)
+      kao(:, 3, 6,10) = (/ &
+        & 0.43706e-03_rb,0.38738e-03_rb,0.35982e-03_rb,0.33840e-03_rb,0.31879e-03_rb, &
+        & 0.29390e-03_rb,0.25605e-03_rb,0.20200e-03_rb,0.18191e-03_rb /)
+      kao(:, 4, 6,10) = (/ &
+        & 0.43807e-03_rb,0.39050e-03_rb,0.37037e-03_rb,0.35740e-03_rb,0.34372e-03_rb, &
+        & 0.31863e-03_rb,0.27734e-03_rb,0.23003e-03_rb,0.22665e-03_rb /)
+      kao(:, 5, 6,10) = (/ &
+        & 0.43877e-03_rb,0.39551e-03_rb,0.38302e-03_rb,0.38004e-03_rb,0.36796e-03_rb, &
+        & 0.34140e-03_rb,0.30328e-03_rb,0.26832e-03_rb,0.27676e-03_rb /)
+      kao(:, 1, 7,10) = (/ &
+        & 0.41256e-03_rb,0.36341e-03_rb,0.32806e-03_rb,0.30023e-03_rb,0.26855e-03_rb, &
+        & 0.23444e-03_rb,0.19788e-03_rb,0.15062e-03_rb,0.10262e-03_rb /)
+      kao(:, 2, 7,10) = (/ &
+        & 0.41482e-03_rb,0.36772e-03_rb,0.33624e-03_rb,0.31297e-03_rb,0.28556e-03_rb, &
+        & 0.25627e-03_rb,0.22127e-03_rb,0.17072e-03_rb,0.12601e-03_rb /)
+      kao(:, 3, 7,10) = (/ &
+        & 0.41718e-03_rb,0.37142e-03_rb,0.34661e-03_rb,0.32744e-03_rb,0.30719e-03_rb, &
+        & 0.28254e-03_rb,0.24553e-03_rb,0.19044e-03_rb,0.15628e-03_rb /)
+      kao(:, 4, 7,10) = (/ &
+        & 0.41872e-03_rb,0.37555e-03_rb,0.35755e-03_rb,0.34713e-03_rb,0.33306e-03_rb, &
+        & 0.30832e-03_rb,0.26791e-03_rb,0.21481e-03_rb,0.19464e-03_rb /)
+      kao(:, 5, 7,10) = (/ &
+        & 0.42048e-03_rb,0.38195e-03_rb,0.37042e-03_rb,0.37076e-03_rb,0.35893e-03_rb, &
+        & 0.33177e-03_rb,0.29351e-03_rb,0.24858e-03_rb,0.23890e-03_rb /)
+      kao(:, 1, 8,10) = (/ &
+        & 0.38528e-03_rb,0.34132e-03_rb,0.30950e-03_rb,0.28435e-03_rb,0.25387e-03_rb, &
+        & 0.21998e-03_rb,0.18381e-03_rb,0.13995e-03_rb,0.86291e-04_rb /)
+      kao(:, 2, 8,10) = (/ &
+        & 0.38813e-03_rb,0.34604e-03_rb,0.31840e-03_rb,0.29716e-03_rb,0.26994e-03_rb, &
+        & 0.24125e-03_rb,0.20696e-03_rb,0.15919e-03_rb,0.10863e-03_rb /)
+      kao(:, 3, 8,10) = (/ &
+        & 0.39073e-03_rb,0.35038e-03_rb,0.33010e-03_rb,0.31128e-03_rb,0.29227e-03_rb, &
+        & 0.26641e-03_rb,0.23195e-03_rb,0.17813e-03_rb,0.13616e-03_rb /)
+      kao(:, 4, 8,10) = (/ &
+        & 0.39281e-03_rb,0.35556e-03_rb,0.34140e-03_rb,0.33132e-03_rb,0.31814e-03_rb, &
+        & 0.29308e-03_rb,0.25493e-03_rb,0.20064e-03_rb,0.16931e-03_rb /)
+      kao(:, 5, 8,10) = (/ &
+        & 0.39565e-03_rb,0.36362e-03_rb,0.35480e-03_rb,0.35632e-03_rb,0.34483e-03_rb, &
+        & 0.31779e-03_rb,0.27994e-03_rb,0.23183e-03_rb,0.20721e-03_rb /)
+      kao(:, 1, 9,10) = (/ &
+        & 0.35353e-03_rb,0.31534e-03_rb,0.28844e-03_rb,0.26382e-03_rb,0.23534e-03_rb, &
+        & 0.20347e-03_rb,0.16850e-03_rb,0.12923e-03_rb,0.71856e-04_rb /)
+      kao(:, 2, 9,10) = (/ &
+        & 0.35704e-03_rb,0.32078e-03_rb,0.29797e-03_rb,0.27689e-03_rb,0.25047e-03_rb, &
+        & 0.22397e-03_rb,0.19066e-03_rb,0.14773e-03_rb,0.92561e-04_rb /)
+      kao(:, 3, 9,10) = (/ &
+        & 0.36000e-03_rb,0.32561e-03_rb,0.31012e-03_rb,0.29082e-03_rb,0.27253e-03_rb, &
+        & 0.24851e-03_rb,0.21457e-03_rb,0.16607e-03_rb,0.11811e-03_rb /)
+      kao(:, 4, 9,10) = (/ &
+        & 0.36298e-03_rb,0.33189e-03_rb,0.32100e-03_rb,0.31077e-03_rb,0.29911e-03_rb, &
+        & 0.27480e-03_rb,0.23785e-03_rb,0.18730e-03_rb,0.14849e-03_rb /)
+      kao(:, 5, 9,10) = (/ &
+        & 0.36645e-03_rb,0.34041e-03_rb,0.33535e-03_rb,0.33583e-03_rb,0.32646e-03_rb, &
+        & 0.29975e-03_rb,0.26277e-03_rb,0.21618e-03_rb,0.18220e-03_rb /)
+      kao(:, 1,10,10) = (/ &
+        & 0.31882e-03_rb,0.28657e-03_rb,0.26462e-03_rb,0.24132e-03_rb,0.21534e-03_rb, &
+        & 0.18636e-03_rb,0.15549e-03_rb,0.11817e-03_rb,0.60706e-04_rb /)
+      kao(:, 2,10,10) = (/ &
+        & 0.32301e-03_rb,0.29267e-03_rb,0.27519e-03_rb,0.25478e-03_rb,0.23046e-03_rb, &
+        & 0.20560e-03_rb,0.17582e-03_rb,0.13638e-03_rb,0.79531e-04_rb /)
+      kao(:, 3,10,10) = (/ &
+        & 0.32639e-03_rb,0.29816e-03_rb,0.28709e-03_rb,0.26927e-03_rb,0.25170e-03_rb, &
+        & 0.23027e-03_rb,0.19794e-03_rb,0.15520e-03_rb,0.10253e-03_rb /)
+      kao(:, 4,10,10) = (/ &
+        & 0.33008e-03_rb,0.30559e-03_rb,0.29823e-03_rb,0.28948e-03_rb,0.27786e-03_rb, &
+        & 0.25639e-03_rb,0.22020e-03_rb,0.17621e-03_rb,0.13035e-03_rb /)
+      kao(:, 5,10,10) = (/ &
+        & 0.33429e-03_rb,0.31481e-03_rb,0.31383e-03_rb,0.31396e-03_rb,0.30544e-03_rb, &
+        & 0.28143e-03_rb,0.24487e-03_rb,0.20336e-03_rb,0.16246e-03_rb /)
+      kao(:, 1,11,10) = (/ &
+        & 0.28433e-03_rb,0.25922e-03_rb,0.24227e-03_rb,0.22327e-03_rb,0.20067e-03_rb, &
+        & 0.17618e-03_rb,0.15050e-03_rb,0.11425e-03_rb,0.57921e-04_rb /)
+      kao(:, 2,11,10) = (/ &
+        & 0.28828e-03_rb,0.26532e-03_rb,0.25425e-03_rb,0.23723e-03_rb,0.21797e-03_rb, &
+        & 0.19695e-03_rb,0.17056e-03_rb,0.13252e-03_rb,0.76361e-04_rb /)
+      kao(:, 3,11,10) = (/ &
+        & 0.29236e-03_rb,0.27228e-03_rb,0.26588e-03_rb,0.25415e-03_rb,0.24099e-03_rb, &
+        & 0.22135e-03_rb,0.19174e-03_rb,0.15232e-03_rb,0.98360e-04_rb /)
+      kao(:, 4,11,10) = (/ &
+        & 0.29717e-03_rb,0.28209e-03_rb,0.27970e-03_rb,0.27650e-03_rb,0.26714e-03_rb, &
+        & 0.24681e-03_rb,0.21371e-03_rb,0.17631e-03_rb,0.12518e-03_rb /)
+      kao(:, 5,11,10) = (/ &
+        & 0.30177e-03_rb,0.29180e-03_rb,0.29905e-03_rb,0.30274e-03_rb,0.29362e-03_rb, &
+        & 0.27208e-03_rb,0.24087e-03_rb,0.20461e-03_rb,0.15616e-03_rb /)
+      kao(:, 1,12,10) = (/ &
+        & 0.24998e-03_rb,0.23220e-03_rb,0.21962e-03_rb,0.20418e-03_rb,0.18598e-03_rb, &
+        & 0.16635e-03_rb,0.14319e-03_rb,0.11002e-03_rb,0.54657e-04_rb /)
+      kao(:, 2,12,10) = (/ &
+        & 0.25422e-03_rb,0.23880e-03_rb,0.23171e-03_rb,0.21907e-03_rb,0.20484e-03_rb, &
+        & 0.18724e-03_rb,0.16371e-03_rb,0.12837e-03_rb,0.72183e-04_rb /)
+      kao(:, 3,12,10) = (/ &
+        & 0.25909e-03_rb,0.24827e-03_rb,0.24443e-03_rb,0.23867e-03_rb,0.22868e-03_rb, &
+        & 0.21084e-03_rb,0.18482e-03_rb,0.14974e-03_rb,0.93395e-04_rb /)
+      kao(:, 4,12,10) = (/ &
+        & 0.26399e-03_rb,0.25851e-03_rb,0.26208e-03_rb,0.26298e-03_rb,0.25438e-03_rb, &
+        & 0.23482e-03_rb,0.20834e-03_rb,0.17589e-03_rb,0.11924e-03_rb /)
+      kao(:, 5,12,10) = (/ &
+        & 0.26914e-03_rb,0.26866e-03_rb,0.28401e-03_rb,0.28945e-03_rb,0.28022e-03_rb, &
+        & 0.26150e-03_rb,0.23750e-03_rb,0.20542e-03_rb,0.14923e-03_rb /)
+      kao(:, 1,13,10) = (/ &
+        & 0.21751e-03_rb,0.20608e-03_rb,0.19731e-03_rb,0.18540e-03_rb,0.17208e-03_rb, &
+        & 0.15624e-03_rb,0.13474e-03_rb,0.10527e-03_rb,0.50953e-04_rb /)
+      kao(:, 2,13,10) = (/ &
+        & 0.22228e-03_rb,0.21439e-03_rb,0.20968e-03_rb,0.20158e-03_rb,0.19151e-03_rb, &
+        & 0.17720e-03_rb,0.15564e-03_rb,0.12461e-03_rb,0.67516e-04_rb /)
+      kao(:, 3,13,10) = (/ &
+        & 0.22727e-03_rb,0.22462e-03_rb,0.22474e-03_rb,0.22318e-03_rb,0.21469e-03_rb, &
+        & 0.19989e-03_rb,0.17790e-03_rb,0.14782e-03_rb,0.88180e-04_rb /)
+      kao(:, 4,13,10) = (/ &
+        & 0.23242e-03_rb,0.23488e-03_rb,0.24462e-03_rb,0.24805e-03_rb,0.24003e-03_rb, &
+        & 0.22364e-03_rb,0.20382e-03_rb,0.17470e-03_rb,0.11335e-03_rb /)
+      kao(:, 5,13,10) = (/ &
+        & 0.23819e-03_rb,0.24692e-03_rb,0.26797e-03_rb,0.27413e-03_rb,0.26611e-03_rb, &
+        & 0.25207e-03_rb,0.23456e-03_rb,0.20493e-03_rb,0.14302e-03_rb /)
+      kao(:, 1, 1,11) = (/ &
+        & 0.54188e-03_rb,0.47438e-03_rb,0.41220e-03_rb,0.36319e-03_rb,0.32177e-03_rb, &
+        & 0.28178e-03_rb,0.26195e-03_rb,0.26768e-03_rb,0.30988e-03_rb /)
+      kao(:, 2, 1,11) = (/ &
+        & 0.53863e-03_rb,0.47157e-03_rb,0.41235e-03_rb,0.37142e-03_rb,0.33314e-03_rb, &
+        & 0.30667e-03_rb,0.29622e-03_rb,0.31573e-03_rb,0.36594e-03_rb /)
+      kao(:, 3, 1,11) = (/ &
+        & 0.53537e-03_rb,0.46873e-03_rb,0.41881e-03_rb,0.37881e-03_rb,0.35190e-03_rb, &
+        & 0.33275e-03_rb,0.33720e-03_rb,0.36928e-03_rb,0.42810e-03_rb /)
+      kao(:, 4, 1,11) = (/ &
+        & 0.53255e-03_rb,0.46630e-03_rb,0.42443e-03_rb,0.38945e-03_rb,0.37640e-03_rb, &
+        & 0.36424e-03_rb,0.38086e-03_rb,0.42782e-03_rb,0.49486e-03_rb /)
+      kao(:, 5, 1,11) = (/ &
+        & 0.53016e-03_rb,0.46423e-03_rb,0.43029e-03_rb,0.40524e-03_rb,0.39835e-03_rb, &
+        & 0.40134e-03_rb,0.42785e-03_rb,0.48998e-03_rb,0.56469e-03_rb /)
+      kao(:, 1, 2,11) = (/ &
+        & 0.58031e-03_rb,0.50799e-03_rb,0.44209e-03_rb,0.39038e-03_rb,0.34592e-03_rb, &
+        & 0.30091e-03_rb,0.27060e-03_rb,0.26179e-03_rb,0.30262e-03_rb /)
+      kao(:, 2, 2,11) = (/ &
+        & 0.57783e-03_rb,0.50583e-03_rb,0.44303e-03_rb,0.40158e-03_rb,0.35771e-03_rb, &
+        & 0.32458e-03_rb,0.30412e-03_rb,0.31051e-03_rb,0.36041e-03_rb /)
+      kao(:, 3, 2,11) = (/ &
+        & 0.57540e-03_rb,0.50373e-03_rb,0.45070e-03_rb,0.41078e-03_rb,0.37604e-03_rb, &
+        & 0.34973e-03_rb,0.34205e-03_rb,0.36376e-03_rb,0.42111e-03_rb /)
+      kao(:, 4, 2,11) = (/ &
+        & 0.57390e-03_rb,0.50246e-03_rb,0.45850e-03_rb,0.42273e-03_rb,0.40005e-03_rb, &
+        & 0.37925e-03_rb,0.38380e-03_rb,0.42075e-03_rb,0.48570e-03_rb /)
+      kao(:, 5, 2,11) = (/ &
+        & 0.57251e-03_rb,0.50128e-03_rb,0.46686e-03_rb,0.44000e-03_rb,0.42177e-03_rb, &
+        & 0.41338e-03_rb,0.42764e-03_rb,0.47996e-03_rb,0.55489e-03_rb /)
+      kao(:, 1, 3,11) = (/ &
+        & 0.61606e-03_rb,0.53921e-03_rb,0.46963e-03_rb,0.41409e-03_rb,0.36561e-03_rb, &
+        & 0.31888e-03_rb,0.27397e-03_rb,0.24837e-03_rb,0.28056e-03_rb /)
+      kao(:, 2, 3,11) = (/ &
+        & 0.61406e-03_rb,0.53752e-03_rb,0.47091e-03_rb,0.42713e-03_rb,0.37975e-03_rb, &
+        & 0.33844e-03_rb,0.30659e-03_rb,0.29320e-03_rb,0.33782e-03_rb /)
+      kao(:, 3, 3,11) = (/ &
+        & 0.61257e-03_rb,0.53626e-03_rb,0.47829e-03_rb,0.43902e-03_rb,0.39761e-03_rb, &
+        & 0.36364e-03_rb,0.34206e-03_rb,0.34371e-03_rb,0.39648e-03_rb /)
+      kao(:, 4, 3,11) = (/ &
+        & 0.61154e-03_rb,0.53538e-03_rb,0.48822e-03_rb,0.45223e-03_rb,0.42130e-03_rb, &
+        & 0.39347e-03_rb,0.37907e-03_rb,0.39708e-03_rb,0.45765e-03_rb /)
+      kao(:, 5, 3,11) = (/ &
+        & 0.61140e-03_rb,0.53529e-03_rb,0.49797e-03_rb,0.47117e-03_rb,0.44115e-03_rb, &
+        & 0.42497e-03_rb,0.41979e-03_rb,0.45564e-03_rb,0.52659e-03_rb /)
+      kao(:, 1, 4,11) = (/ &
+        & 0.64443e-03_rb,0.56411e-03_rb,0.49232e-03_rb,0.43467e-03_rb,0.38190e-03_rb, &
+        & 0.33277e-03_rb,0.27825e-03_rb,0.23501e-03_rb,0.25182e-03_rb /)
+      kao(:, 2, 4,11) = (/ &
+        & 0.64292e-03_rb,0.56277e-03_rb,0.49409e-03_rb,0.44787e-03_rb,0.39817e-03_rb, &
+        & 0.35161e-03_rb,0.30747e-03_rb,0.27717e-03_rb,0.30629e-03_rb /)
+      kao(:, 3, 4,11) = (/ &
+        & 0.64243e-03_rb,0.56236e-03_rb,0.50119e-03_rb,0.46200e-03_rb,0.41580e-03_rb, &
+        & 0.37809e-03_rb,0.34162e-03_rb,0.32168e-03_rb,0.36251e-03_rb /)
+      kao(:, 4, 4,11) = (/ &
+        & 0.64248e-03_rb,0.56245e-03_rb,0.51257e-03_rb,0.47612e-03_rb,0.44107e-03_rb, &
+        & 0.40610e-03_rb,0.37659e-03_rb,0.36992e-03_rb,0.42339e-03_rb /)
+      kao(:, 5, 4,11) = (/ &
+        & 0.64345e-03_rb,0.56414e-03_rb,0.52333e-03_rb,0.49621e-03_rb,0.46345e-03_rb, &
+        & 0.43530e-03_rb,0.41388e-03_rb,0.42704e-03_rb,0.49356e-03_rb /)
+      kao(:, 1, 5,11) = (/ &
+        & 0.66205e-03_rb,0.57941e-03_rb,0.50732e-03_rb,0.44788e-03_rb,0.39504e-03_rb, &
+        & 0.34261e-03_rb,0.28274e-03_rb,0.22440e-03_rb,0.22048e-03_rb /)
+      kao(:, 2, 5,11) = (/ &
+        & 0.66163e-03_rb,0.57912e-03_rb,0.51033e-03_rb,0.46104e-03_rb,0.41289e-03_rb, &
+        & 0.36220e-03_rb,0.30969e-03_rb,0.26291e-03_rb,0.27073e-03_rb /)
+      kao(:, 3, 5,11) = (/ &
+        & 0.66197e-03_rb,0.57946e-03_rb,0.51799e-03_rb,0.47594e-03_rb,0.43132e-03_rb, &
+        & 0.39012e-03_rb,0.34192e-03_rb,0.30335e-03_rb,0.32369e-03_rb /)
+      kao(:, 4, 5,11) = (/ &
+        & 0.66310e-03_rb,0.58124e-03_rb,0.52962e-03_rb,0.49191e-03_rb,0.45677e-03_rb, &
+        & 0.42022e-03_rb,0.37529e-03_rb,0.34603e-03_rb,0.38247e-03_rb /)
+      kao(:, 5, 5,11) = (/ &
+        & 0.66411e-03_rb,0.58365e-03_rb,0.54225e-03_rb,0.51373e-03_rb,0.48391e-03_rb, &
+        & 0.44802e-03_rb,0.41016e-03_rb,0.39855e-03_rb,0.45388e-03_rb /)
+      kao(:, 1, 6,11) = (/ &
+        & 0.66761e-03_rb,0.58431e-03_rb,0.51405e-03_rb,0.45280e-03_rb,0.40155e-03_rb, &
+        & 0.34610e-03_rb,0.28249e-03_rb,0.21395e-03_rb,0.18888e-03_rb /)
+      kao(:, 2, 6,11) = (/ &
+        & 0.66804e-03_rb,0.58472e-03_rb,0.51807e-03_rb,0.46619e-03_rb,0.41922e-03_rb, &
+        & 0.36797e-03_rb,0.30908e-03_rb,0.24851e-03_rb,0.23408e-03_rb /)
+      kao(:, 3, 6,11) = (/ &
+        & 0.66946e-03_rb,0.58664e-03_rb,0.52673e-03_rb,0.48103e-03_rb,0.43940e-03_rb, &
+        & 0.39605e-03_rb,0.34204e-03_rb,0.28507e-03_rb,0.28224e-03_rb /)
+      kao(:, 4, 6,11) = (/ &
+        & 0.67150e-03_rb,0.59004e-03_rb,0.53959e-03_rb,0.49825e-03_rb,0.46612e-03_rb, &
+        & 0.42814e-03_rb,0.37432e-03_rb,0.32325e-03_rb,0.33817e-03_rb /)
+      kao(:, 5, 6,11) = (/ &
+        & 0.67315e-03_rb,0.59352e-03_rb,0.55351e-03_rb,0.52125e-03_rb,0.49748e-03_rb, &
+        & 0.45943e-03_rb,0.40603e-03_rb,0.37064e-03_rb,0.40786e-03_rb /)
+      kao(:, 1, 7,11) = (/ &
+        & 0.65825e-03_rb,0.57610e-03_rb,0.50973e-03_rb,0.44919e-03_rb,0.40091e-03_rb, &
+        & 0.34393e-03_rb,0.27863e-03_rb,0.20584e-03_rb,0.15896e-03_rb /)
+      kao(:, 2, 7,11) = (/ &
+        & 0.66067e-03_rb,0.57854e-03_rb,0.51604e-03_rb,0.46345e-03_rb,0.41921e-03_rb, &
+        & 0.36628e-03_rb,0.30597e-03_rb,0.23625e-03_rb,0.19866e-03_rb /)
+      kao(:, 3, 7,11) = (/ &
+        & 0.66419e-03_rb,0.58318e-03_rb,0.52599e-03_rb,0.48043e-03_rb,0.43994e-03_rb, &
+        & 0.39562e-03_rb,0.33865e-03_rb,0.26970e-03_rb,0.24286e-03_rb /)
+      kao(:, 4, 7,11) = (/ &
+        & 0.66717e-03_rb,0.58792e-03_rb,0.54016e-03_rb,0.49893e-03_rb,0.46857e-03_rb, &
+        & 0.43005e-03_rb,0.37266e-03_rb,0.30411e-03_rb,0.29541e-03_rb /)
+      kao(:, 5, 7,11) = (/ &
+        & 0.67024e-03_rb,0.59309e-03_rb,0.55482e-03_rb,0.52246e-03_rb,0.50380e-03_rb, &
+        & 0.46446e-03_rb,0.40297e-03_rb,0.34641e-03_rb,0.36121e-03_rb /)
+      kao(:, 1, 8,11) = (/ &
+        & 0.63858e-03_rb,0.55888e-03_rb,0.49736e-03_rb,0.43942e-03_rb,0.39082e-03_rb, &
+        & 0.33512e-03_rb,0.27058e-03_rb,0.19736e-03_rb,0.13589e-03_rb /)
+      kao(:, 2, 8,11) = (/ &
+        & 0.64324e-03_rb,0.56410e-03_rb,0.50530e-03_rb,0.45504e-03_rb,0.41149e-03_rb, &
+        & 0.35701e-03_rb,0.29879e-03_rb,0.22618e-03_rb,0.16884e-03_rb /)
+      kao(:, 3, 8,11) = (/ &
+        & 0.64790e-03_rb,0.57033e-03_rb,0.51640e-03_rb,0.47474e-03_rb,0.43226e-03_rb, &
+        & 0.38846e-03_rb,0.33154e-03_rb,0.25769e-03_rb,0.20679e-03_rb /)
+      kao(:, 4, 8,11) = (/ &
+        & 0.65242e-03_rb,0.57688e-03_rb,0.53191e-03_rb,0.49447e-03_rb,0.46234e-03_rb, &
+        & 0.42468e-03_rb,0.36669e-03_rb,0.28907e-03_rb,0.25449e-03_rb /)
+      kao(:, 5, 8,11) = (/ &
+        & 0.65716e-03_rb,0.58346e-03_rb,0.54799e-03_rb,0.51859e-03_rb,0.49982e-03_rb, &
+        & 0.46218e-03_rb,0.39875e-03_rb,0.32573e-03_rb,0.31655e-03_rb /)
+      kao(:, 1, 9,11) = (/ &
+        & 0.61155e-03_rb,0.53549e-03_rb,0.47878e-03_rb,0.42579e-03_rb,0.37499e-03_rb, &
+        & 0.31961e-03_rb,0.25793e-03_rb,0.18655e-03_rb,0.11490e-03_rb /)
+      kao(:, 2, 9,11) = (/ &
+        & 0.61794e-03_rb,0.54314e-03_rb,0.48878e-03_rb,0.44250e-03_rb,0.39687e-03_rb, &
+        & 0.34151e-03_rb,0.28569e-03_rb,0.21436e-03_rb,0.14511e-03_rb /)
+      kao(:, 3, 9,11) = (/ &
+        & 0.62338e-03_rb,0.55078e-03_rb,0.50083e-03_rb,0.46354e-03_rb,0.41796e-03_rb, &
+        & 0.37306e-03_rb,0.31954e-03_rb,0.24508e-03_rb,0.17854e-03_rb /)
+      kao(:, 4, 9,11) = (/ &
+        & 0.62936e-03_rb,0.55894e-03_rb,0.51722e-03_rb,0.48335e-03_rb,0.44775e-03_rb, &
+        & 0.41130e-03_rb,0.35579e-03_rb,0.27533e-03_rb,0.21988e-03_rb /)
+      kao(:, 5, 9,11) = (/ &
+        & 0.63545e-03_rb,0.56698e-03_rb,0.53473e-03_rb,0.50887e-03_rb,0.48603e-03_rb, &
+        & 0.45259e-03_rb,0.39001e-03_rb,0.30792e-03_rb,0.27464e-03_rb /)
+      kao(:, 1,10,11) = (/ &
+        & 0.57726e-03_rb,0.50676e-03_rb,0.45606e-03_rb,0.40779e-03_rb,0.35629e-03_rb, &
+        & 0.30220e-03_rb,0.24273e-03_rb,0.17731e-03_rb,0.97262e-04_rb /)
+      kao(:, 2,10,11) = (/ &
+        & 0.58382e-03_rb,0.51548e-03_rb,0.46729e-03_rb,0.42570e-03_rb,0.37915e-03_rb, &
+        & 0.32497e-03_rb,0.26965e-03_rb,0.20381e-03_rb,0.12529e-03_rb /)
+      kao(:, 3,10,11) = (/ &
+        & 0.59071e-03_rb,0.52512e-03_rb,0.48044e-03_rb,0.44753e-03_rb,0.40142e-03_rb, &
+        & 0.35504e-03_rb,0.30526e-03_rb,0.23284e-03_rb,0.15783e-03_rb /)
+      kao(:, 4,10,11) = (/ &
+        & 0.59829e-03_rb,0.53444e-03_rb,0.49886e-03_rb,0.46810e-03_rb,0.43172e-03_rb, &
+        & 0.39380e-03_rb,0.34313e-03_rb,0.26284e-03_rb,0.19647e-03_rb /)
+      kao(:, 5,10,11) = (/ &
+        & 0.60558e-03_rb,0.54444e-03_rb,0.51788e-03_rb,0.49497e-03_rb,0.47022e-03_rb, &
+        & 0.43733e-03_rb,0.37954e-03_rb,0.29404e-03_rb,0.24439e-03_rb /)
+      kao(:, 1,11,11) = (/ &
+        & 0.53880e-03_rb,0.47669e-03_rb,0.43422e-03_rb,0.39066e-03_rb,0.34441e-03_rb, &
+        & 0.29300e-03_rb,0.23722e-03_rb,0.17846e-03_rb,0.93053e-04_rb /)
+      kao(:, 2,11,11) = (/ &
+        & 0.54672e-03_rb,0.48762e-03_rb,0.44694e-03_rb,0.41155e-03_rb,0.36791e-03_rb, &
+        & 0.31854e-03_rb,0.26663e-03_rb,0.20551e-03_rb,0.12100e-03_rb /)
+      kao(:, 3,11,11) = (/ &
+        & 0.55543e-03_rb,0.49853e-03_rb,0.46450e-03_rb,0.43411e-03_rb,0.39364e-03_rb, &
+        & 0.35233e-03_rb,0.30378e-03_rb,0.23442e-03_rb,0.15474e-03_rb /)
+      kao(:, 4,11,11) = (/ &
+        & 0.56418e-03_rb,0.50955e-03_rb,0.48543e-03_rb,0.45785e-03_rb,0.42947e-03_rb, &
+        & 0.39274e-03_rb,0.34329e-03_rb,0.26304e-03_rb,0.19545e-03_rb /)
+      kao(:, 5,11,11) = (/ &
+        & 0.57281e-03_rb,0.52221e-03_rb,0.50507e-03_rb,0.49044e-03_rb,0.47093e-03_rb, &
+        & 0.43647e-03_rb,0.38057e-03_rb,0.29685e-03_rb,0.24345e-03_rb /)
+      kao(:, 1,12,11) = (/ &
+        & 0.49534e-03_rb,0.44336e-03_rb,0.40843e-03_rb,0.37029e-03_rb,0.32924e-03_rb, &
+        & 0.28268e-03_rb,0.23204e-03_rb,0.17692e-03_rb,0.89557e-04_rb /)
+      kao(:, 2,12,11) = (/ &
+        & 0.50529e-03_rb,0.45586e-03_rb,0.42428e-03_rb,0.39360e-03_rb,0.35384e-03_rb, &
+        & 0.31099e-03_rb,0.26296e-03_rb,0.20575e-03_rb,0.11779e-03_rb /)
+      kao(:, 3,12,11) = (/ &
+        & 0.51591e-03_rb,0.46841e-03_rb,0.44557e-03_rb,0.41710e-03_rb,0.38396e-03_rb, &
+        & 0.34779e-03_rb,0.29981e-03_rb,0.23475e-03_rb,0.15231e-03_rb /)
+      kao(:, 4,12,11) = (/ &
+        & 0.52638e-03_rb,0.48189e-03_rb,0.46689e-03_rb,0.44567e-03_rb,0.42354e-03_rb, &
+        & 0.38951e-03_rb,0.33959e-03_rb,0.26406e-03_rb,0.19354e-03_rb /)
+      kao(:, 5,12,11) = (/ &
+        & 0.53740e-03_rb,0.49847e-03_rb,0.48961e-03_rb,0.48352e-03_rb,0.46848e-03_rb, &
+        & 0.43322e-03_rb,0.37807e-03_rb,0.30031e-03_rb,0.24179e-03_rb /)
+      kao(:, 1,13,11) = (/ &
+        & 0.44967e-03_rb,0.40765e-03_rb,0.37964e-03_rb,0.34767e-03_rb,0.31190e-03_rb, &
+        & 0.27110e-03_rb,0.22687e-03_rb,0.17331e-03_rb,0.86456e-04_rb /)
+      kao(:, 2,13,11) = (/ &
+        & 0.46197e-03_rb,0.42196e-03_rb,0.40010e-03_rb,0.37282e-03_rb,0.33881e-03_rb, &
+        & 0.30170e-03_rb,0.25812e-03_rb,0.20314e-03_rb,0.11471e-03_rb /)
+      kao(:, 3,13,11) = (/ &
+        & 0.47416e-03_rb,0.43662e-03_rb,0.42347e-03_rb,0.39902e-03_rb,0.37341e-03_rb, &
+        & 0.34073e-03_rb,0.29426e-03_rb,0.23321e-03_rb,0.14921e-03_rb /)
+      kao(:, 4,13,11) = (/ &
+        & 0.48670e-03_rb,0.45348e-03_rb,0.44656e-03_rb,0.43321e-03_rb,0.41603e-03_rb, &
+        & 0.38366e-03_rb,0.33328e-03_rb,0.26489e-03_rb,0.19032e-03_rb /)
+      kao(:, 5,13,11) = (/ &
+        & 0.49941e-03_rb,0.47298e-03_rb,0.47361e-03_rb,0.47457e-03_rb,0.46263e-03_rb, &
+        & 0.42791e-03_rb,0.37404e-03_rb,0.30319e-03_rb,0.23864e-03_rb /)
+      kao(:, 1, 1,12) = (/ &
+        & 0.67194e-03_rb,0.58821e-03_rb,0.50483e-03_rb,0.44022e-03_rb,0.39428e-03_rb, &
+        & 0.35001e-03_rb,0.32802e-03_rb,0.34712e-03_rb,0.40424e-03_rb /)
+      kao(:, 2, 1,12) = (/ &
+        & 0.66779e-03_rb,0.58462e-03_rb,0.50560e-03_rb,0.45370e-03_rb,0.41018e-03_rb, &
+        & 0.37788e-03_rb,0.37804e-03_rb,0.41641e-03_rb,0.48433e-03_rb /)
+      kao(:, 3, 1,12) = (/ &
+        & 0.66375e-03_rb,0.58112e-03_rb,0.50831e-03_rb,0.46547e-03_rb,0.43045e-03_rb, &
+        & 0.42028e-03_rb,0.43766e-03_rb,0.49681e-03_rb,0.57585e-03_rb /)
+      kao(:, 4, 1,12) = (/ &
+        & 0.65976e-03_rb,0.57768e-03_rb,0.51951e-03_rb,0.47941e-03_rb,0.45883e-03_rb, &
+        & 0.47280e-03_rb,0.50926e-03_rb,0.58385e-03_rb,0.67578e-03_rb /)
+      kao(:, 5, 1,12) = (/ &
+        & 0.65493e-03_rb,0.57349e-03_rb,0.52976e-03_rb,0.49649e-03_rb,0.49872e-03_rb, &
+        & 0.52477e-03_rb,0.58910e-03_rb,0.67477e-03_rb,0.78177e-03_rb /)
+      kao(:, 1, 2,12) = (/ &
+        & 0.74429e-03_rb,0.65147e-03_rb,0.55958e-03_rb,0.48439e-03_rb,0.43163e-03_rb, &
+        & 0.37450e-03_rb,0.34047e-03_rb,0.34702e-03_rb,0.40780e-03_rb /)
+      kao(:, 2, 2,12) = (/ &
+        & 0.73897e-03_rb,0.64685e-03_rb,0.56004e-03_rb,0.49710e-03_rb,0.44831e-03_rb, &
+        & 0.39986e-03_rb,0.38897e-03_rb,0.41601e-03_rb,0.48800e-03_rb /)
+      kao(:, 3, 2,12) = (/ &
+        & 0.73423e-03_rb,0.64274e-03_rb,0.56120e-03_rb,0.51084e-03_rb,0.46668e-03_rb, &
+        & 0.44211e-03_rb,0.44391e-03_rb,0.49187e-03_rb,0.57573e-03_rb /)
+      kao(:, 4, 2,12) = (/ &
+        & 0.72906e-03_rb,0.63825e-03_rb,0.57090e-03_rb,0.52414e-03_rb,0.49429e-03_rb, &
+        & 0.48962e-03_rb,0.50615e-03_rb,0.57487e-03_rb,0.67078e-03_rb /)
+      kao(:, 5, 2,12) = (/ &
+        & 0.72487e-03_rb,0.63461e-03_rb,0.58043e-03_rb,0.54078e-03_rb,0.53373e-03_rb, &
+        & 0.54010e-03_rb,0.58187e-03_rb,0.66737e-03_rb,0.77655e-03_rb /)
+      kao(:, 1, 3,12) = (/ &
+        & 0.81958e-03_rb,0.71735e-03_rb,0.61664e-03_rb,0.53266e-03_rb,0.46619e-03_rb, &
+        & 0.39818e-03_rb,0.35035e-03_rb,0.33455e-03_rb,0.39417e-03_rb /)
+      kao(:, 2, 3,12) = (/ &
+        & 0.81517e-03_rb,0.71349e-03_rb,0.61778e-03_rb,0.54292e-03_rb,0.48245e-03_rb, &
+        & 0.42187e-03_rb,0.39187e-03_rb,0.40203e-03_rb,0.47500e-03_rb /)
+      kao(:, 3, 3,12) = (/ &
+        & 0.81131e-03_rb,0.71014e-03_rb,0.61887e-03_rb,0.55563e-03_rb,0.49928e-03_rb, &
+        & 0.45852e-03_rb,0.44599e-03_rb,0.47656e-03_rb,0.56304e-03_rb /)
+      kao(:, 4, 3,12) = (/ &
+        & 0.80684e-03_rb,0.70624e-03_rb,0.62502e-03_rb,0.56854e-03_rb,0.52516e-03_rb, &
+        & 0.50282e-03_rb,0.50405e-03_rb,0.55674e-03_rb,0.65701e-03_rb /)
+      kao(:, 5, 3,12) = (/ &
+        & 0.80277e-03_rb,0.70271e-03_rb,0.63387e-03_rb,0.58439e-03_rb,0.56394e-03_rb, &
+        & 0.54984e-03_rb,0.57036e-03_rb,0.64435e-03_rb,0.75883e-03_rb /)
+      kao(:, 1, 4,12) = (/ &
+        & 0.88962e-03_rb,0.77859e-03_rb,0.66931e-03_rb,0.57740e-03_rb,0.50138e-03_rb, &
+        & 0.42396e-03_rb,0.36076e-03_rb,0.31901e-03_rb,0.36723e-03_rb /)
+      kao(:, 2, 4,12) = (/ &
+        & 0.88665e-03_rb,0.77601e-03_rb,0.67190e-03_rb,0.58651e-03_rb,0.51766e-03_rb, &
+        & 0.44641e-03_rb,0.39755e-03_rb,0.38137e-03_rb,0.44921e-03_rb /)
+      kao(:, 3, 4,12) = (/ &
+        & 0.88362e-03_rb,0.77338e-03_rb,0.67394e-03_rb,0.60034e-03_rb,0.53406e-03_rb, &
+        & 0.47716e-03_rb,0.44855e-03_rb,0.45695e-03_rb,0.53953e-03_rb /)
+      kao(:, 4, 4,12) = (/ &
+        & 0.87936e-03_rb,0.76967e-03_rb,0.67789e-03_rb,0.61530e-03_rb,0.55605e-03_rb, &
+        & 0.52026e-03_rb,0.50535e-03_rb,0.53746e-03_rb,0.63432e-03_rb /)
+      kao(:, 5, 4,12) = (/ &
+        & 0.87542e-03_rb,0.76625e-03_rb,0.68901e-03_rb,0.63085e-03_rb,0.59283e-03_rb, &
+        & 0.56499e-03_rb,0.56855e-03_rb,0.62330e-03_rb,0.73477e-03_rb /)
+      kao(:, 1, 5,12) = (/ &
+        & 0.95206e-03_rb,0.83319e-03_rb,0.71670e-03_rb,0.61887e-03_rb,0.53098e-03_rb, &
+        & 0.45065e-03_rb,0.37161e-03_rb,0.30790e-03_rb,0.33661e-03_rb /)
+      kao(:, 2, 5,12) = (/ &
+        & 0.95024e-03_rb,0.83163e-03_rb,0.72052e-03_rb,0.62686e-03_rb,0.54899e-03_rb, &
+        & 0.47363e-03_rb,0.40570e-03_rb,0.36303e-03_rb,0.41611e-03_rb /)
+      kao(:, 3, 5,12) = (/ &
+        & 0.94830e-03_rb,0.82995e-03_rb,0.72350e-03_rb,0.64294e-03_rb,0.56882e-03_rb, &
+        & 0.49923e-03_rb,0.45370e-03_rb,0.43446e-03_rb,0.50740e-03_rb /)
+      kao(:, 4, 5,12) = (/ &
+        & 0.94590e-03_rb,0.82788e-03_rb,0.72796e-03_rb,0.66075e-03_rb,0.59106e-03_rb, &
+        & 0.53960e-03_rb,0.50922e-03_rb,0.51449e-03_rb,0.60347e-03_rb /)
+      kao(:, 5, 5,12) = (/ &
+        & 0.94431e-03_rb,0.82652e-03_rb,0.73985e-03_rb,0.67685e-03_rb,0.62406e-03_rb, &
+        & 0.58535e-03_rb,0.56960e-03_rb,0.60003e-03_rb,0.70205e-03_rb /)
+      kao(:, 1, 6,12) = (/ &
+        & 0.10063e-02_rb,0.88067e-03_rb,0.75816e-03_rb,0.65590e-03_rb,0.55704e-03_rb, &
+        & 0.47312e-03_rb,0.38218e-03_rb,0.29812e-03_rb,0.29923e-03_rb /)
+      kao(:, 2, 6,12) = (/ &
+        & 0.10075e-02_rb,0.88171e-03_rb,0.76490e-03_rb,0.66447e-03_rb,0.57639e-03_rb, &
+        & 0.49685e-03_rb,0.41345e-03_rb,0.34724e-03_rb,0.37557e-03_rb /)
+      kao(:, 3, 6,12) = (/ &
+        & 0.10072e-02_rb,0.88152e-03_rb,0.76915e-03_rb,0.68176e-03_rb,0.59750e-03_rb, &
+        & 0.52339e-03_rb,0.45689e-03_rb,0.41130e-03_rb,0.46505e-03_rb /)
+      kao(:, 4, 6,12) = (/ &
+        & 0.10060e-02_rb,0.88049e-03_rb,0.77394e-03_rb,0.69974e-03_rb,0.62189e-03_rb, &
+        & 0.55958e-03_rb,0.51188e-03_rb,0.48580e-03_rb,0.55924e-03_rb /)
+      kao(:, 5, 6,12) = (/ &
+        & 0.10051e-02_rb,0.87967e-03_rb,0.78569e-03_rb,0.71720e-03_rb,0.65527e-03_rb, &
+        & 0.60501e-03_rb,0.57082e-03_rb,0.56756e-03_rb,0.65737e-03_rb /)
+      kao(:, 1, 7,12) = (/ &
+        & 0.10487e-02_rb,0.91773e-03_rb,0.79062e-03_rb,0.68516e-03_rb,0.57878e-03_rb, &
+        & 0.49035e-03_rb,0.39066e-03_rb,0.28990e-03_rb,0.26192e-03_rb /)
+      kao(:, 2, 7,12) = (/ &
+        & 0.10509e-02_rb,0.91972e-03_rb,0.79894e-03_rb,0.69452e-03_rb,0.59953e-03_rb, &
+        & 0.51487e-03_rb,0.42128e-03_rb,0.33451e-03_rb,0.33284e-03_rb /)
+      kao(:, 3, 7,12) = (/ &
+        & 0.10507e-02_rb,0.91957e-03_rb,0.80398e-03_rb,0.71157e-03_rb,0.62221e-03_rb, &
+        & 0.54150e-03_rb,0.46197e-03_rb,0.39208e-03_rb,0.41685e-03_rb /)
+      kao(:, 4, 7,12) = (/ &
+        & 0.10509e-02_rb,0.91973e-03_rb,0.80950e-03_rb,0.73042e-03_rb,0.64659e-03_rb, &
+        & 0.57916e-03_rb,0.51360e-03_rb,0.46065e-03_rb,0.50813e-03_rb /)
+      kao(:, 5, 7,12) = (/ &
+        & 0.10509e-02_rb,0.91978e-03_rb,0.82196e-03_rb,0.75027e-03_rb,0.67740e-03_rb, &
+        & 0.62606e-03_rb,0.57168e-03_rb,0.53418e-03_rb,0.60461e-03_rb /)
+      kao(:, 1, 8,12) = (/ &
+        & 0.10710e-02_rb,0.93729e-03_rb,0.80929e-03_rb,0.70366e-03_rb,0.59621e-03_rb, &
+        & 0.50074e-03_rb,0.39602e-03_rb,0.28309e-03_rb,0.22630e-03_rb /)
+      kao(:, 2, 8,12) = (/ &
+        & 0.10749e-02_rb,0.94069e-03_rb,0.82032e-03_rb,0.71447e-03_rb,0.61694e-03_rb, &
+        & 0.52833e-03_rb,0.42406e-03_rb,0.32400e-03_rb,0.29100e-03_rb /)
+      kao(:, 3, 8,12) = (/ &
+        & 0.10773e-02_rb,0.94281e-03_rb,0.82736e-03_rb,0.73051e-03_rb,0.64296e-03_rb, &
+        & 0.55298e-03_rb,0.46605e-03_rb,0.37591e-03_rb,0.36869e-03_rb /)
+      kao(:, 4, 8,12) = (/ &
+        & 0.10796e-02_rb,0.94487e-03_rb,0.83459e-03_rb,0.75111e-03_rb,0.66786e-03_rb, &
+        & 0.59048e-03_rb,0.51603e-03_rb,0.43920e-03_rb,0.45502e-03_rb /)
+      kao(:, 5, 8,12) = (/ &
+        & 0.10814e-02_rb,0.94726e-03_rb,0.84809e-03_rb,0.77185e-03_rb,0.69811e-03_rb, &
+        & 0.64090e-03_rb,0.57338e-03_rb,0.50692e-03_rb,0.54643e-03_rb /)
+      kao(:, 1, 9,12) = (/ &
+        & 0.10730e-02_rb,0.93903e-03_rb,0.81373e-03_rb,0.70878e-03_rb,0.60523e-03_rb, &
+        & 0.50463e-03_rb,0.39690e-03_rb,0.27640e-03_rb,0.19492e-03_rb /)
+      kao(:, 2, 9,12) = (/ &
+        & 0.10796e-02_rb,0.94482e-03_rb,0.82740e-03_rb,0.72216e-03_rb,0.62667e-03_rb, &
+        & 0.53533e-03_rb,0.42406e-03_rb,0.31368e-03_rb,0.25100e-03_rb /)
+      kao(:, 3, 9,12) = (/ &
+        & 0.10853e-02_rb,0.94982e-03_rb,0.83742e-03_rb,0.73904e-03_rb,0.65592e-03_rb, &
+        & 0.56092e-03_rb,0.46365e-03_rb,0.36183e-03_rb,0.32022e-03_rb /)
+      kao(:, 4, 9,12) = (/ &
+        & 0.10900e-02_rb,0.95441e-03_rb,0.84774e-03_rb,0.76272e-03_rb,0.68162e-03_rb, &
+        & 0.59735e-03_rb,0.51414e-03_rb,0.41927e-03_rb,0.39972e-03_rb /)
+      kao(:, 5, 9,12) = (/ &
+        & 0.10952e-02_rb,0.96081e-03_rb,0.86364e-03_rb,0.78596e-03_rb,0.71341e-03_rb, &
+        & 0.64539e-03_rb,0.57286e-03_rb,0.48249e-03_rb,0.48653e-03_rb /)
+      kao(:, 1,10,12) = (/ &
+        & 0.10558e-02_rb,0.92391e-03_rb,0.80426e-03_rb,0.70294e-03_rb,0.60555e-03_rb, &
+        & 0.50218e-03_rb,0.39384e-03_rb,0.27052e-03_rb,0.17175e-03_rb /)
+      kao(:, 2,10,12) = (/ &
+        & 0.10672e-02_rb,0.93391e-03_rb,0.82187e-03_rb,0.72055e-03_rb,0.62861e-03_rb, &
+        & 0.53517e-03_rb,0.42394e-03_rb,0.30520e-03_rb,0.22066e-03_rb /)
+      kao(:, 3,10,12) = (/ &
+        & 0.10767e-02_rb,0.94234e-03_rb,0.83636e-03_rb,0.73971e-03_rb,0.66074e-03_rb, &
+        & 0.56459e-03_rb,0.46058e-03_rb,0.35232e-03_rb,0.28101e-03_rb /)
+      kao(:, 4,10,12) = (/ &
+        & 0.10858e-02_rb,0.95208e-03_rb,0.85075e-03_rb,0.76653e-03_rb,0.68963e-03_rb, &
+        & 0.60125e-03_rb,0.51089e-03_rb,0.40664e-03_rb,0.35284e-03_rb /)
+      kao(:, 5,10,12) = (/ &
+        & 0.10953e-02_rb,0.96285e-03_rb,0.86971e-03_rb,0.79369e-03_rb,0.72347e-03_rb, &
+        & 0.65043e-03_rb,0.57028e-03_rb,0.46529e-03_rb,0.43428e-03_rb /)
+      kao(:, 1,11,12) = (/ &
+        & 0.10314e-02_rb,0.90258e-03_rb,0.79467e-03_rb,0.69943e-03_rb,0.60546e-03_rb, &
+        & 0.50625e-03_rb,0.39977e-03_rb,0.27736e-03_rb,0.16855e-03_rb /)
+      kao(:, 2,11,12) = (/ &
+        & 0.10451e-02_rb,0.91471e-03_rb,0.81404e-03_rb,0.71994e-03_rb,0.63569e-03_rb, &
+        & 0.54231e-03_rb,0.43348e-03_rb,0.31480e-03_rb,0.21751e-03_rb /)
+      kao(:, 3,11,12) = (/ &
+        & 0.10591e-02_rb,0.92888e-03_rb,0.83171e-03_rb,0.74582e-03_rb,0.67129e-03_rb, &
+        & 0.57545e-03_rb,0.47649e-03_rb,0.36327e-03_rb,0.27482e-03_rb /)
+      kao(:, 4,11,12) = (/ &
+        & 0.10732e-02_rb,0.94400e-03_rb,0.85133e-03_rb,0.77904e-03_rb,0.70324e-03_rb, &
+        & 0.62021e-03_rb,0.53030e-03_rb,0.41771e-03_rb,0.34284e-03_rb /)
+      kao(:, 5,11,12) = (/ &
+        & 0.10880e-02_rb,0.96010e-03_rb,0.87843e-03_rb,0.80902e-03_rb,0.74479e-03_rb, &
+        & 0.67711e-03_rb,0.59146e-03_rb,0.47518e-03_rb,0.42405e-03_rb /)
+      kao(:, 1,12,12) = (/ &
+        & 0.99800e-03_rb,0.87344e-03_rb,0.77838e-03_rb,0.69077e-03_rb,0.60021e-03_rb, &
+        & 0.50540e-03_rb,0.40237e-03_rb,0.28326e-03_rb,0.16340e-03_rb /)
+      kao(:, 2,12,12) = (/ &
+        & 0.10163e-02_rb,0.89149e-03_rb,0.80050e-03_rb,0.71513e-03_rb,0.63616e-03_rb, &
+        & 0.54455e-03_rb,0.44056e-03_rb,0.32235e-03_rb,0.21276e-03_rb /)
+      kao(:, 3,12,12) = (/ &
+        & 0.10345e-02_rb,0.91067e-03_rb,0.82237e-03_rb,0.74899e-03_rb,0.67503e-03_rb, &
+        & 0.58381e-03_rb,0.48916e-03_rb,0.37171e-03_rb,0.26817e-03_rb /)
+      kao(:, 4,12,12) = (/ &
+        & 0.10541e-02_rb,0.93146e-03_rb,0.84943e-03_rb,0.78581e-03_rb,0.71327e-03_rb, &
+        & 0.63724e-03_rb,0.54703e-03_rb,0.42621e-03_rb,0.33361e-03_rb /)
+      kao(:, 5,12,12) = (/ &
+        & 0.10724e-02_rb,0.95127e-03_rb,0.88178e-03_rb,0.82065e-03_rb,0.76248e-03_rb, &
+        & 0.70028e-03_rb,0.60892e-03_rb,0.48179e-03_rb,0.41458e-03_rb /)
+      kao(:, 1,13,12) = (/ &
+        & 0.95912e-03_rb,0.84178e-03_rb,0.75778e-03_rb,0.67765e-03_rb,0.59123e-03_rb, &
+        & 0.50112e-03_rb,0.40170e-03_rb,0.28784e-03_rb,0.15761e-03_rb /)
+      kao(:, 2,13,12) = (/ &
+        & 0.98187e-03_rb,0.86541e-03_rb,0.78344e-03_rb,0.70851e-03_rb,0.63200e-03_rb, &
+        & 0.54351e-03_rb,0.44541e-03_rb,0.32864e-03_rb,0.20682e-03_rb /)
+      kao(:, 3,13,12) = (/ &
+        & 0.10063e-02_rb,0.89078e-03_rb,0.81111e-03_rb,0.74766e-03_rb,0.67473e-03_rb, &
+        & 0.58963e-03_rb,0.49872e-03_rb,0.37736e-03_rb,0.26208e-03_rb /)
+      kao(:, 4,13,12) = (/ &
+        & 0.10299e-02_rb,0.91565e-03_rb,0.84455e-03_rb,0.78769e-03_rb,0.71894e-03_rb, &
+        & 0.65012e-03_rb,0.55995e-03_rb,0.43170e-03_rb,0.32660e-03_rb /)
+      kao(:, 5,13,12) = (/ &
+        & 0.10525e-02_rb,0.93912e-03_rb,0.88061e-03_rb,0.82863e-03_rb,0.77810e-03_rb, &
+        & 0.71766e-03_rb,0.62330e-03_rb,0.48589e-03_rb,0.40661e-03_rb /)
+      kao(:, 1, 1,13) = (/ &
+        & 0.84224e-03_rb,0.73740e-03_rb,0.63257e-03_rb,0.54853e-03_rb,0.48911e-03_rb, &
+        & 0.46139e-03_rb,0.45309e-03_rb,0.51018e-03_rb,0.59300e-03_rb /)
+      kao(:, 2, 1,13) = (/ &
+        & 0.83841e-03_rb,0.73411e-03_rb,0.62983e-03_rb,0.55802e-03_rb,0.51855e-03_rb, &
+        & 0.50261e-03_rb,0.52209e-03_rb,0.59394e-03_rb,0.69158e-03_rb /)
+      kao(:, 3, 1,13) = (/ &
+        & 0.83593e-03_rb,0.73202e-03_rb,0.62914e-03_rb,0.58596e-03_rb,0.54957e-03_rb, &
+        & 0.55151e-03_rb,0.60969e-03_rb,0.69097e-03_rb,0.80707e-03_rb /)
+      kao(:, 4, 1,13) = (/ &
+        & 0.83246e-03_rb,0.72902e-03_rb,0.63274e-03_rb,0.60961e-03_rb,0.59022e-03_rb, &
+        & 0.61063e-03_rb,0.70961e-03_rb,0.80207e-03_rb,0.93855e-03_rb /)
+      kao(:, 5, 1,13) = (/ &
+        & 0.82958e-03_rb,0.72654e-03_rb,0.65011e-03_rb,0.63711e-03_rb,0.63941e-03_rb, &
+        & 0.69313e-03_rb,0.82070e-03_rb,0.92941e-03_rb,0.10860e-02_rb /)
+      kao(:, 1, 2,13) = (/ &
+        & 0.94737e-03_rb,0.82928e-03_rb,0.71121e-03_rb,0.61292e-03_rb,0.53888e-03_rb, &
+        & 0.49608e-03_rb,0.46449e-03_rb,0.50895e-03_rb,0.59638e-03_rb /)
+      kao(:, 2, 2,13) = (/ &
+        & 0.94309e-03_rb,0.82559e-03_rb,0.70809e-03_rb,0.61981e-03_rb,0.56880e-03_rb, &
+        & 0.53738e-03_rb,0.52906e-03_rb,0.59714e-03_rb,0.70098e-03_rb /)
+      kao(:, 3, 2,13) = (/ &
+        & 0.93813e-03_rb,0.82131e-03_rb,0.70667e-03_rb,0.64442e-03_rb,0.60095e-03_rb, &
+        & 0.58581e-03_rb,0.62140e-03_rb,0.70455e-03_rb,0.83109e-03_rb /)
+      kao(:, 4, 2,13) = (/ &
+        & 0.93357e-03_rb,0.81735e-03_rb,0.70879e-03_rb,0.66885e-03_rb,0.63704e-03_rb, &
+        & 0.64975e-03_rb,0.73250e-03_rb,0.82836e-03_rb,0.97995e-03_rb /)
+      kao(:, 5, 2,13) = (/ &
+        & 0.92926e-03_rb,0.81362e-03_rb,0.72487e-03_rb,0.69759e-03_rb,0.68443e-03_rb, &
+        & 0.72989e-03_rb,0.85114e-03_rb,0.96045e-03_rb,0.11390e-02_rb /)
+      kao(:, 1, 3,13) = (/ &
+        & 0.10589e-02_rb,0.92685e-03_rb,0.79478e-03_rb,0.68185e-03_rb,0.58961e-03_rb, &
+        & 0.52592e-03_rb,0.47382e-03_rb,0.49304e-03_rb,0.58474e-03_rb /)
+      kao(:, 2, 3,13) = (/ &
+        & 0.10532e-02_rb,0.92189e-03_rb,0.79057e-03_rb,0.68536e-03_rb,0.61794e-03_rb, &
+        & 0.56535e-03_rb,0.53040e-03_rb,0.57934e-03_rb,0.68761e-03_rb /)
+      kao(:, 3, 3,13) = (/ &
+        & 0.10466e-02_rb,0.91613e-03_rb,0.78805e-03_rb,0.70517e-03_rb,0.65240e-03_rb, &
+        & 0.61071e-03_rb,0.61067e-03_rb,0.68776e-03_rb,0.81827e-03_rb /)
+      kao(:, 4, 3,13) = (/ &
+        & 0.10406e-02_rb,0.91088e-03_rb,0.78949e-03_rb,0.73011e-03_rb,0.68643e-03_rb, &
+        & 0.67486e-03_rb,0.72316e-03_rb,0.82048e-03_rb,0.97591e-03_rb /)
+      kao(:, 5, 3,13) = (/ &
+        & 0.10350e-02_rb,0.90609e-03_rb,0.80184e-03_rb,0.75651e-03_rb,0.73102e-03_rb, &
+        & 0.75672e-03_rb,0.85035e-03_rb,0.96398e-03_rb,0.11483e-02_rb /)
+      kao(:, 1, 4,13) = (/ &
+        & 0.11788e-02_rb,0.10317e-02_rb,0.88462e-03_rb,0.75562e-03_rb,0.64370e-03_rb, &
+        & 0.55868e-03_rb,0.48899e-03_rb,0.48008e-03_rb,0.57112e-03_rb /)
+      kao(:, 2, 4,13) = (/ &
+        & 0.11725e-02_rb,0.10263e-02_rb,0.87998e-03_rb,0.75781e-03_rb,0.66989e-03_rb, &
+        & 0.59814e-03_rb,0.54177e-03_rb,0.56164e-03_rb,0.66999e-03_rb /)
+      kao(:, 3, 4,13) = (/ &
+        & 0.11654e-02_rb,0.10201e-02_rb,0.87720e-03_rb,0.76990e-03_rb,0.70381e-03_rb, &
+        & 0.63928e-03_rb,0.60787e-03_rb,0.66447e-03_rb,0.79300e-03_rb /)
+      kao(:, 4, 4,13) = (/ &
+        & 0.11592e-02_rb,0.10147e-02_rb,0.87854e-03_rb,0.79340e-03_rb,0.73787e-03_rb, &
+        & 0.69602e-03_rb,0.70539e-03_rb,0.79266e-03_rb,0.94522e-03_rb /)
+      kao(:, 5, 4,13) = (/ &
+        & 0.11532e-02_rb,0.10094e-02_rb,0.88452e-03_rb,0.81797e-03_rb,0.78065e-03_rb, &
+        & 0.77762e-03_rb,0.82734e-03_rb,0.94053e-03_rb,0.11199e-02_rb /)
+      kao(:, 1, 5,13) = (/ &
+        & 0.13090e-02_rb,0.11455e-02_rb,0.98213e-03_rb,0.83571e-03_rb,0.70447e-03_rb, &
+        & 0.59736e-03_rb,0.51100e-03_rb,0.46541e-03_rb,0.54756e-03_rb /)
+      kao(:, 2, 5,13) = (/ &
+        & 0.13011e-02_rb,0.11387e-02_rb,0.97633e-03_rb,0.83818e-03_rb,0.72563e-03_rb, &
+        & 0.63146e-03_rb,0.56040e-03_rb,0.54671e-03_rb,0.65045e-03_rb /)
+      kao(:, 3, 5,13) = (/ &
+        & 0.12919e-02_rb,0.11307e-02_rb,0.97249e-03_rb,0.84355e-03_rb,0.75615e-03_rb, &
+        & 0.67456e-03_rb,0.62106e-03_rb,0.64503e-03_rb,0.77294e-03_rb /)
+      kao(:, 4, 5,13) = (/ &
+        & 0.12834e-02_rb,0.11233e-02_rb,0.97228e-03_rb,0.86290e-03_rb,0.79001e-03_rb, &
+        & 0.72644e-03_rb,0.70406e-03_rb,0.76742e-03_rb,0.92034e-03_rb /)
+      kao(:, 5, 5,13) = (/ &
+        & 0.12754e-02_rb,0.11163e-02_rb,0.97447e-03_rb,0.88787e-03_rb,0.82956e-03_rb, &
+        & 0.80041e-03_rb,0.81433e-03_rb,0.91302e-03_rb,0.10923e-02_rb /)
+      kao(:, 1, 6,13) = (/ &
+        & 0.14384e-02_rb,0.12588e-02_rb,0.10791e-02_rb,0.91745e-03_rb,0.77222e-03_rb, &
+        & 0.63777e-03_rb,0.53552e-03_rb,0.44917e-03_rb,0.50804e-03_rb /)
+      kao(:, 2, 6,13) = (/ &
+        & 0.14296e-02_rb,0.12511e-02_rb,0.10726e-02_rb,0.92106e-03_rb,0.78721e-03_rb, &
+        & 0.67056e-03_rb,0.58135e-03_rb,0.52600e-03_rb,0.61657e-03_rb /)
+      kao(:, 3, 6,13) = (/ &
+        & 0.14197e-02_rb,0.12425e-02_rb,0.10687e-02_rb,0.92311e-03_rb,0.81466e-03_rb, &
+        & 0.70925e-03_rb,0.63651e-03_rb,0.62263e-03_rb,0.74116e-03_rb /)
+      kao(:, 4, 6,13) = (/ &
+        & 0.14113e-02_rb,0.12351e-02_rb,0.10686e-02_rb,0.93888e-03_rb,0.84557e-03_rb, &
+        & 0.75721e-03_rb,0.71295e-03_rb,0.74435e-03_rb,0.88914e-03_rb /)
+      kao(:, 5, 6,13) = (/ &
+        & 0.14033e-02_rb,0.12282e-02_rb,0.10694e-02_rb,0.96147e-03_rb,0.87768e-03_rb, &
+        & 0.82519e-03_rb,0.81219e-03_rb,0.88552e-03_rb,0.10599e-02_rb /)
+      kao(:, 1, 7,13) = (/ &
+        & 0.15646e-02_rb,0.13692e-02_rb,0.11737e-02_rb,0.99670e-03_rb,0.83910e-03_rb, &
+        & 0.68337e-03_rb,0.56133e-03_rb,0.43784e-03_rb,0.46053e-03_rb /)
+      kao(:, 2, 7,13) = (/ &
+        & 0.15575e-02_rb,0.13630e-02_rb,0.11685e-02_rb,0.10035e-02_rb,0.85062e-03_rb, &
+        & 0.71436e-03_rb,0.60284e-03_rb,0.50378e-03_rb,0.56665e-03_rb /)
+      kao(:, 3, 7,13) = (/ &
+        & 0.15495e-02_rb,0.13560e-02_rb,0.11666e-02_rb,0.10059e-02_rb,0.87670e-03_rb, &
+        & 0.74963e-03_rb,0.65339e-03_rb,0.59583e-03_rb,0.69467e-03_rb /)
+      kao(:, 4, 7,13) = (/ &
+        & 0.15420e-02_rb,0.13494e-02_rb,0.11678e-02_rb,0.10189e-02_rb,0.90417e-03_rb, &
+        & 0.79237e-03_rb,0.72265e-03_rb,0.71412e-03_rb,0.84581e-03_rb /)
+      kao(:, 5, 7,13) = (/ &
+        & 0.15345e-02_rb,0.13429e-02_rb,0.11695e-02_rb,0.10414e-02_rb,0.93588e-03_rb, &
+        & 0.84978e-03_rb,0.81799e-03_rb,0.85682e-03_rb,0.10184e-02_rb /)
+      kao(:, 1, 8,13) = (/ &
+        & 0.16856e-02_rb,0.14750e-02_rb,0.12645e-02_rb,0.10725e-02_rb,0.90201e-03_rb, &
+        & 0.73159e-03_rb,0.58478e-03_rb,0.43268e-03_rb,0.41101e-03_rb /)
+      kao(:, 2, 8,13) = (/ &
+        & 0.16806e-02_rb,0.14706e-02_rb,0.12609e-02_rb,0.10836e-02_rb,0.91363e-03_rb, &
+        & 0.76033e-03_rb,0.62810e-03_rb,0.48786e-03_rb,0.51346e-03_rb /)
+      kao(:, 3, 8,13) = (/ &
+        & 0.16744e-02_rb,0.14652e-02_rb,0.12612e-02_rb,0.10887e-02_rb,0.93599e-03_rb, &
+        & 0.79815e-03_rb,0.66916e-03_rb,0.56926e-03_rb,0.63978e-03_rb /)
+      kao(:, 4, 8,13) = (/ &
+        & 0.16684e-02_rb,0.14601e-02_rb,0.12641e-02_rb,0.11000e-02_rb,0.96490e-03_rb, &
+        & 0.83543e-03_rb,0.73243e-03_rb,0.67845e-03_rb,0.78892e-03_rb /)
+      kao(:, 5, 8,13) = (/ &
+        & 0.16618e-02_rb,0.14543e-02_rb,0.12671e-02_rb,0.11238e-02_rb,0.99451e-03_rb, &
+        & 0.88426e-03_rb,0.81935e-03_rb,0.81741e-03_rb,0.96330e-03_rb /)
+      kao(:, 1, 9,13) = (/ &
+        & 0.17934e-02_rb,0.15694e-02_rb,0.13453e-02_rb,0.11410e-02_rb,0.95885e-03_rb, &
+        & 0.77818e-03_rb,0.60653e-03_rb,0.43079e-03_rb,0.36156e-03_rb /)
+      kao(:, 2, 9,13) = (/ &
+        & 0.17902e-02_rb,0.15666e-02_rb,0.13435e-02_rb,0.11557e-02_rb,0.97291e-03_rb, &
+        & 0.80328e-03_rb,0.65101e-03_rb,0.47930e-03_rb,0.45791e-03_rb /)
+      kao(:, 3, 9,13) = (/ &
+        & 0.17870e-02_rb,0.15637e-02_rb,0.13465e-02_rb,0.11644e-02_rb,0.99290e-03_rb, &
+        & 0.84365e-03_rb,0.69043e-03_rb,0.54887e-03_rb,0.58027e-03_rb /)
+      kao(:, 4, 9,13) = (/ &
+        & 0.17836e-02_rb,0.15608e-02_rb,0.13520e-02_rb,0.11761e-02_rb,0.10245e-02_rb, &
+        & 0.87956e-03_rb,0.74487e-03_rb,0.64626e-03_rb,0.72649e-03_rb /)
+      kao(:, 5, 9,13) = (/ &
+        & 0.17784e-02_rb,0.15563e-02_rb,0.13567e-02_rb,0.11994e-02_rb,0.10543e-02_rb, &
+        & 0.92517e-03_rb,0.82194e-03_rb,0.77306e-03_rb,0.89652e-03_rb /)
+      kao(:, 1,10,13) = (/ &
+        & 0.18870e-02_rb,0.16513e-02_rb,0.14155e-02_rb,0.12026e-02_rb,0.10094e-02_rb, &
+        & 0.82157e-03_rb,0.62812e-03_rb,0.43279e-03_rb,0.32100e-03_rb /)
+      kao(:, 2,10,13) = (/ &
+        & 0.18874e-02_rb,0.16516e-02_rb,0.14168e-02_rb,0.12199e-02_rb,0.10267e-02_rb, &
+        & 0.84527e-03_rb,0.67192e-03_rb,0.47951e-03_rb,0.41207e-03_rb /)
+      kao(:, 3,10,13) = (/ &
+        & 0.18869e-02_rb,0.16512e-02_rb,0.14226e-02_rb,0.12326e-02_rb,0.10456e-02_rb, &
+        & 0.88603e-03_rb,0.71450e-03_rb,0.53998e-03_rb,0.52708e-03_rb /)
+      kao(:, 4,10,13) = (/ &
+        & 0.18844e-02_rb,0.16490e-02_rb,0.14297e-02_rb,0.12452e-02_rb,0.10784e-02_rb, &
+        & 0.92565e-03_rb,0.76291e-03_rb,0.62910e-03_rb,0.66842e-03_rb /)
+      kao(:, 5,10,13) = (/ &
+        & 0.18812e-02_rb,0.16463e-02_rb,0.14369e-02_rb,0.12677e-02_rb,0.11133e-02_rb, &
+        & 0.96733e-03_rb,0.83676e-03_rb,0.74378e-03_rb,0.83514e-03_rb /)
+      kao(:, 1,11,13) = (/ &
+        & 0.19652e-02_rb,0.17197e-02_rb,0.14741e-02_rb,0.12638e-02_rb,0.10628e-02_rb, &
+        & 0.86832e-03_rb,0.66314e-03_rb,0.45418e-03_rb,0.32052e-03_rb /)
+      kao(:, 2,11,13) = (/ &
+        & 0.19706e-02_rb,0.17244e-02_rb,0.14828e-02_rb,0.12836e-02_rb,0.10826e-02_rb, &
+        & 0.89693e-03_rb,0.71120e-03_rb,0.50274e-03_rb,0.41269e-03_rb /)
+      kao(:, 3,11,13) = (/ &
+        & 0.19727e-02_rb,0.17263e-02_rb,0.14935e-02_rb,0.12979e-02_rb,0.11060e-02_rb, &
+        & 0.94341e-03_rb,0.75411e-03_rb,0.56772e-03_rb,0.53374e-03_rb /)
+      kao(:, 4,11,13) = (/ &
+        & 0.19726e-02_rb,0.17262e-02_rb,0.15047e-02_rb,0.13132e-02_rb,0.11439e-02_rb, &
+        & 0.98450e-03_rb,0.80814e-03_rb,0.66163e-03_rb,0.68012e-03_rb /)
+      kao(:, 5,11,13) = (/ &
+        & 0.19717e-02_rb,0.17254e-02_rb,0.15111e-02_rb,0.13415e-02_rb,0.11812e-02_rb, &
+        & 0.10302e-02_rb,0.88976e-03_rb,0.77856e-03_rb,0.85217e-03_rb /)
+      kao(:, 1,12,13) = (/ &
+        & 0.20238e-02_rb,0.17709e-02_rb,0.15209e-02_rb,0.13140e-02_rb,0.11103e-02_rb, &
+        & 0.90805e-03_rb,0.69487e-03_rb,0.47365e-03_rb,0.32170e-03_rb /)
+      kao(:, 2,12,13) = (/ &
+        & 0.20339e-02_rb,0.17798e-02_rb,0.15376e-02_rb,0.13369e-02_rb,0.11339e-02_rb, &
+        & 0.94414e-03_rb,0.74487e-03_rb,0.52470e-03_rb,0.41340e-03_rb /)
+      kao(:, 3,12,13) = (/ &
+        & 0.20400e-02_rb,0.17851e-02_rb,0.15537e-02_rb,0.13538e-02_rb,0.11634e-02_rb, &
+        & 0.99316e-03_rb,0.79139e-03_rb,0.59483e-03_rb,0.53800e-03_rb /)
+      kao(:, 4,12,13) = (/ &
+        & 0.20440e-02_rb,0.17887e-02_rb,0.15672e-02_rb,0.13751e-02_rb,0.12054e-02_rb, &
+        & 0.10358e-02_rb,0.85239e-03_rb,0.69118e-03_rb,0.69062e-03_rb /)
+      kao(:, 5,12,13) = (/ &
+        & 0.20478e-02_rb,0.17920e-02_rb,0.15770e-02_rb,0.14084e-02_rb,0.12434e-02_rb, &
+        & 0.10883e-02_rb,0.94102e-03_rb,0.81111e-03_rb,0.86624e-03_rb /)
+      kao(:, 1,13,13) = (/ &
+        & 0.20618e-02_rb,0.18042e-02_rb,0.15564e-02_rb,0.13520e-02_rb,0.11495e-02_rb, &
+        & 0.94146e-03_rb,0.72197e-03_rb,0.49143e-03_rb,0.32080e-03_rb /)
+      kao(:, 2,13,13) = (/ &
+        & 0.20769e-02_rb,0.18174e-02_rb,0.15793e-02_rb,0.13781e-02_rb,0.11781e-02_rb, &
+        & 0.98504e-03_rb,0.77410e-03_rb,0.54584e-03_rb,0.41409e-03_rb /)
+      kao(:, 3,13,13) = (/ &
+        & 0.20884e-02_rb,0.18274e-02_rb,0.16007e-02_rb,0.14008e-02_rb,0.12152e-02_rb, &
+        & 0.10359e-02_rb,0.82528e-03_rb,0.62085e-03_rb,0.53970e-03_rb /)
+      kao(:, 4,13,13) = (/ &
+        & 0.21000e-02_rb,0.18376e-02_rb,0.16180e-02_rb,0.14292e-02_rb,0.12615e-02_rb, &
+        & 0.10817e-02_rb,0.89457e-03_rb,0.71909e-03_rb,0.69474e-03_rb /)
+      kao(:, 5,13,13) = (/ &
+        & 0.21077e-02_rb,0.18456e-02_rb,0.16335e-02_rb,0.14673e-02_rb,0.12995e-02_rb, &
+        & 0.11413e-02_rb,0.98821e-03_rb,0.84127e-03_rb,0.87402e-03_rb /)
+      kao(:, 1, 1,14) = (/ &
+        & 0.11199e-02_rb,0.98039e-03_rb,0.84084e-03_rb,0.70943e-03_rb,0.63603e-03_rb, &
+        & 0.60649e-03_rb,0.68312e-03_rb,0.76350e-03_rb,0.90110e-03_rb /)
+      kao(:, 2, 1,14) = (/ &
+        & 0.11157e-02_rb,0.97670e-03_rb,0.83773e-03_rb,0.72395e-03_rb,0.68641e-03_rb, &
+        & 0.69858e-03_rb,0.81907e-03_rb,0.92056e-03_rb,0.10823e-02_rb /)
+      kao(:, 3, 1,14) = (/ &
+        & 0.11108e-02_rb,0.97243e-03_rb,0.83426e-03_rb,0.74791e-03_rb,0.75340e-03_rb, &
+        & 0.82026e-03_rb,0.97233e-03_rb,0.10968e-02_rb,0.12857e-02_rb /)
+      kao(:, 4, 1,14) = (/ &
+        & 0.11077e-02_rb,0.96981e-03_rb,0.83196e-03_rb,0.80006e-03_rb,0.82593e-03_rb, &
+        & 0.96481e-03_rb,0.11451e-02_rb,0.12942e-02_rb,0.15153e-02_rb /)
+      kao(:, 5, 1,14) = (/ &
+        & 0.11057e-02_rb,0.96811e-03_rb,0.83287e-03_rb,0.85771e-03_rb,0.92243e-03_rb, &
+        & 0.11291e-02_rb,0.13401e-02_rb,0.15139e-02_rb,0.17730e-02_rb /)
+      kao(:, 1, 2,14) = (/ &
+        & 0.12618e-02_rb,0.11045e-02_rb,0.94731e-03_rb,0.80059e-03_rb,0.70460e-03_rb, &
+        & 0.66164e-03_rb,0.71798e-03_rb,0.80280e-03_rb,0.96182e-03_rb /)
+      kao(:, 2, 2,14) = (/ &
+        & 0.12573e-02_rb,0.11007e-02_rb,0.94415e-03_rb,0.81463e-03_rb,0.74844e-03_rb, &
+        & 0.74157e-03_rb,0.85097e-03_rb,0.95625e-03_rb,0.11395e-02_rb /)
+      kao(:, 3, 2,14) = (/ &
+        & 0.12537e-02_rb,0.10976e-02_rb,0.94166e-03_rb,0.83421e-03_rb,0.81760e-03_rb, &
+        & 0.85124e-03_rb,0.10029e-02_rb,0.11319e-02_rb,0.13421e-02_rb /)
+      kao(:, 4, 2,14) = (/ &
+        & 0.12517e-02_rb,0.10959e-02_rb,0.94019e-03_rb,0.88029e-03_rb,0.88890e-03_rb, &
+        & 0.98937e-03_rb,0.11747e-02_rb,0.13301e-02_rb,0.15715e-02_rb /)
+      kao(:, 5, 2,14) = (/ &
+        & 0.12484e-02_rb,0.10932e-02_rb,0.93873e-03_rb,0.93946e-03_rb,0.97784e-03_rb, &
+        & 0.11555e-02_rb,0.13735e-02_rb,0.15606e-02_rb,0.18367e-02_rb /)
+      kao(:, 1, 3,14) = (/ &
+        & 0.14334e-02_rb,0.12547e-02_rb,0.10760e-02_rb,0.90369e-03_rb,0.78163e-03_rb, &
+        & 0.71064e-03_rb,0.72074e-03_rb,0.81006e-03_rb,0.97636e-03_rb /)
+      kao(:, 2, 3,14) = (/ &
+        & 0.14266e-02_rb,0.12488e-02_rb,0.10711e-02_rb,0.91657e-03_rb,0.81392e-03_rb, &
+        & 0.78379e-03_rb,0.85758e-03_rb,0.96540e-03_rb,0.11622e-02_rb /)
+      kao(:, 3, 3,14) = (/ &
+        & 0.14223e-02_rb,0.12452e-02_rb,0.10680e-02_rb,0.93146e-03_rb,0.87510e-03_rb, &
+        & 0.87756e-03_rb,0.10059e-02_rb,0.11359e-02_rb,0.13619e-02_rb /)
+      kao(:, 4, 3,14) = (/ &
+        & 0.14175e-02_rb,0.12411e-02_rb,0.10646e-02_rb,0.96483e-03_rb,0.94572e-03_rb, &
+        & 0.99384e-03_rb,0.11710e-02_rb,0.13256e-02_rb,0.15838e-02_rb /)
+      kao(:, 5, 3,14) = (/ &
+        & 0.14120e-02_rb,0.12363e-02_rb,0.10614e-02_rb,0.10223e-02_rb,0.10225e-02_rb, &
+        & 0.11461e-02_rb,0.13616e-02_rb,0.15455e-02_rb,0.18394e-02_rb /)
+      kao(:, 1, 4,14) = (/ &
+        & 0.16334e-02_rb,0.14296e-02_rb,0.12259e-02_rb,0.10262e-02_rb,0.87529e-03_rb, &
+        & 0.76396e-03_rb,0.72119e-03_rb,0.79306e-03_rb,0.95651e-03_rb /)
+      kao(:, 2, 4,14) = (/ &
+        & 0.16232e-02_rb,0.14208e-02_rb,0.12185e-02_rb,0.10348e-02_rb,0.89367e-03_rb, &
+        & 0.83199e-03_rb,0.84657e-03_rb,0.95561e-03_rb,0.11474e-02_rb /)
+      kao(:, 3, 4,14) = (/ &
+        & 0.16152e-02_rb,0.14140e-02_rb,0.12127e-02_rb,0.10485e-02_rb,0.94236e-03_rb, &
+        & 0.91572e-03_rb,0.99902e-03_rb,0.11299e-02_rb,0.13583e-02_rb /)
+      kao(:, 4, 4,14) = (/ &
+        & 0.16069e-02_rb,0.14067e-02_rb,0.12065e-02_rb,0.10685e-02_rb,0.10126e-02_rb, &
+        & 0.10172e-02_rb,0.11639e-02_rb,0.13179e-02_rb,0.15822e-02_rb /)
+      kao(:, 5, 4,14) = (/ &
+        & 0.15986e-02_rb,0.13996e-02_rb,0.12009e-02_rb,0.11161e-02_rb,0.10822e-02_rb, &
+        & 0.11448e-02_rb,0.13482e-02_rb,0.15289e-02_rb,0.18307e-02_rb /)
+      kao(:, 1, 5,14) = (/ &
+        & 0.18523e-02_rb,0.16211e-02_rb,0.13900e-02_rb,0.11617e-02_rb,0.98609e-03_rb, &
+        & 0.83071e-03_rb,0.73506e-03_rb,0.77421e-03_rb,0.93359e-03_rb /)
+      kao(:, 2, 5,14) = (/ &
+        & 0.18399e-02_rb,0.16104e-02_rb,0.13808e-02_rb,0.11680e-02_rb,0.99824e-03_rb, &
+        & 0.89112e-03_rb,0.84383e-03_rb,0.93250e-03_rb,0.11210e-02_rb /)
+      kao(:, 3, 5,14) = (/ &
+        & 0.18296e-02_rb,0.16015e-02_rb,0.13734e-02_rb,0.11806e-02_rb,0.10315e-02_rb, &
+        & 0.96812e-03_rb,0.98130e-03_rb,0.11095e-02_rb,0.13275e-02_rb /)
+      kao(:, 4, 5,14) = (/ &
+        & 0.18179e-02_rb,0.15913e-02_rb,0.13647e-02_rb,0.11924e-02_rb,0.10905e-02_rb, &
+        & 0.10578e-02_rb,0.11513e-02_rb,0.13088e-02_rb,0.15638e-02_rb /)
+      kao(:, 5, 5,14) = (/ &
+        & 0.18067e-02_rb,0.15816e-02_rb,0.13575e-02_rb,0.12252e-02_rb,0.11627e-02_rb, &
+        & 0.11690e-02_rb,0.13357e-02_rb,0.15168e-02_rb,0.18162e-02_rb /)
+      kao(:, 1, 6,14) = (/ &
+        & 0.20925e-02_rb,0.18312e-02_rb,0.15700e-02_rb,0.13095e-02_rb,0.11041e-02_rb, &
+        & 0.91669e-03_rb,0.76437e-03_rb,0.75155e-03_rb,0.90862e-03_rb /)
+      kao(:, 2, 6,14) = (/ &
+        & 0.20749e-02_rb,0.18159e-02_rb,0.15569e-02_rb,0.13117e-02_rb,0.11170e-02_rb, &
+        & 0.95740e-03_rb,0.85349e-03_rb,0.90211e-03_rb,0.10843e-02_rb /)
+      kao(:, 3, 6,14) = (/ &
+        & 0.20605e-02_rb,0.18034e-02_rb,0.15463e-02_rb,0.13221e-02_rb,0.11384e-02_rb, &
+        & 0.10293e-02_rb,0.97333e-03_rb,0.10765e-02_rb,0.12853e-02_rb /)
+      kao(:, 4, 6,14) = (/ &
+        & 0.20459e-02_rb,0.17907e-02_rb,0.15355e-02_rb,0.13321e-02_rb,0.11878e-02_rb, &
+        & 0.11138e-02_rb,0.11236e-02_rb,0.12716e-02_rb,0.15170e-02_rb /)
+      kao(:, 5, 6,14) = (/ &
+        & 0.20310e-02_rb,0.17778e-02_rb,0.15259e-02_rb,0.13542e-02_rb,0.12517e-02_rb, &
+        & 0.12095e-02_rb,0.13081e-02_rb,0.14898e-02_rb,0.17755e-02_rb /)
+      kao(:, 1, 7,14) = (/ &
+        & 0.23595e-02_rb,0.20648e-02_rb,0.17701e-02_rb,0.14754e-02_rb,0.12323e-02_rb, &
+        & 0.10132e-02_rb,0.80835e-03_rb,0.73377e-03_rb,0.88458e-03_rb /)
+      kao(:, 2, 7,14) = (/ &
+        & 0.23333e-02_rb,0.20420e-02_rb,0.17506e-02_rb,0.14700e-02_rb,0.12449e-02_rb, &
+        & 0.10427e-02_rb,0.88482e-03_rb,0.87865e-03_rb,0.10548e-02_rb /)
+      kao(:, 3, 7,14) = (/ &
+        & 0.23118e-02_rb,0.20232e-02_rb,0.17345e-02_rb,0.14754e-02_rb,0.12581e-02_rb, &
+        & 0.11040e-02_rb,0.98425e-03_rb,0.10425e-02_rb,0.12451e-02_rb /)
+      kao(:, 4, 7,14) = (/ &
+        & 0.22911e-02_rb,0.20052e-02_rb,0.17193e-02_rb,0.14831e-02_rb,0.12996e-02_rb, &
+        & 0.11778e-02_rb,0.11137e-02_rb,0.12310e-02_rb,0.14656e-02_rb /)
+      kao(:, 5, 7,14) = (/ &
+        & 0.22715e-02_rb,0.19881e-02_rb,0.17061e-02_rb,0.14949e-02_rb,0.13595e-02_rb, &
+        & 0.12702e-02_rb,0.12792e-02_rb,0.14480e-02_rb,0.17220e-02_rb /)
+      kao(:, 1, 8,14) = (/ &
+        & 0.26465e-02_rb,0.23159e-02_rb,0.19853e-02_rb,0.16547e-02_rb,0.13704e-02_rb, &
+        & 0.11161e-02_rb,0.87227e-03_rb,0.72579e-03_rb,0.85316e-03_rb /)
+      kao(:, 2, 8,14) = (/ &
+        & 0.26139e-02_rb,0.22874e-02_rb,0.19609e-02_rb,0.16420e-02_rb,0.13837e-02_rb, &
+        & 0.11377e-02_rb,0.93183e-03_rb,0.85926e-03_rb,0.10245e-02_rb /)
+      kao(:, 3, 8,14) = (/ &
+        & 0.25857e-02_rb,0.22628e-02_rb,0.19400e-02_rb,0.16425e-02_rb,0.13917e-02_rb, &
+        & 0.11859e-02_rb,0.10228e-02_rb,0.10157e-02_rb,0.12103e-02_rb /)
+      kao(:, 4, 8,14) = (/ &
+        & 0.25573e-02_rb,0.22380e-02_rb,0.19187e-02_rb,0.16463e-02_rb,0.14196e-02_rb, &
+        & 0.12582e-02_rb,0.11286e-02_rb,0.11958e-02_rb,0.14229e-02_rb /)
+      kao(:, 5, 8,14) = (/ &
+        & 0.25310e-02_rb,0.22151e-02_rb,0.19006e-02_rb,0.16478e-02_rb,0.14771e-02_rb, &
+        & 0.13382e-02_rb,0.12711e-02_rb,0.14043e-02_rb,0.16688e-02_rb /)
+      kao(:, 1, 9,14) = (/ &
+        & 0.29437e-02_rb,0.25759e-02_rb,0.22081e-02_rb,0.18403e-02_rb,0.15126e-02_rb, &
+        & 0.12266e-02_rb,0.94502e-03_rb,0.72553e-03_rb,0.80872e-03_rb /)
+      kao(:, 2, 9,14) = (/ &
+        & 0.29059e-02_rb,0.25428e-02_rb,0.21798e-02_rb,0.18221e-02_rb,0.15299e-02_rb, &
+        & 0.12446e-02_rb,0.99114e-03_rb,0.84495e-03_rb,0.98123e-03_rb /)
+      kao(:, 3, 9,14) = (/ &
+        & 0.28735e-02_rb,0.25146e-02_rb,0.21557e-02_rb,0.18193e-02_rb,0.15373e-02_rb, &
+        & 0.12770e-02_rb,0.10730e-02_rb,0.99151e-03_rb,0.11701e-02_rb /)
+      kao(:, 4, 9,14) = (/ &
+        & 0.28399e-02_rb,0.24853e-02_rb,0.21306e-02_rb,0.18209e-02_rb,0.15526e-02_rb, &
+        & 0.13434e-02_rb,0.11682e-02_rb,0.11617e-02_rb,0.13773e-02_rb /)
+      kao(:, 5, 9,14) = (/ &
+        & 0.28070e-02_rb,0.24565e-02_rb,0.21073e-02_rb,0.18175e-02_rb,0.15973e-02_rb, &
+        & 0.14179e-02_rb,0.12830e-02_rb,0.13638e-02_rb,0.16173e-02_rb /)
+      kao(:, 1,10,14) = (/ &
+        & 0.32399e-02_rb,0.28350e-02_rb,0.24302e-02_rb,0.20252e-02_rb,0.16589e-02_rb, &
+        & 0.13407e-02_rb,0.10274e-02_rb,0.73986e-03_rb,0.76203e-03_rb /)
+      kao(:, 2,10,14) = (/ &
+        & 0.31965e-02_rb,0.27971e-02_rb,0.23977e-02_rb,0.20029e-02_rb,0.16776e-02_rb, &
+        & 0.13600e-02_rb,0.10652e-02_rb,0.84551e-03_rb,0.93841e-03_rb /)
+      kao(:, 3,10,14) = (/ &
+        & 0.31601e-02_rb,0.27653e-02_rb,0.23707e-02_rb,0.19975e-02_rb,0.16883e-02_rb, &
+        & 0.13843e-02_rb,0.11385e-02_rb,0.98230e-03_rb,0.11352e-02_rb /)
+      kao(:, 4,10,14) = (/ &
+        & 0.31230e-02_rb,0.27329e-02_rb,0.23428e-02_rb,0.19986e-02_rb,0.16986e-02_rb, &
+        & 0.14381e-02_rb,0.12318e-02_rb,0.11431e-02_rb,0.13466e-02_rb /)
+      kao(:, 5,10,14) = (/ &
+        & 0.30838e-02_rb,0.26986e-02_rb,0.23157e-02_rb,0.19957e-02_rb,0.17285e-02_rb, &
+        & 0.15111e-02_rb,0.13270e-02_rb,0.13396e-02_rb,0.15853e-02_rb /)
+      kao(:, 1,11,14) = (/ &
+        & 0.35110e-02_rb,0.30722e-02_rb,0.26335e-02_rb,0.21948e-02_rb,0.18129e-02_rb, &
+        & 0.14641e-02_rb,0.11256e-02_rb,0.79561e-03_rb,0.78300e-03_rb /)
+      kao(:, 2,11,14) = (/ &
+        & 0.34682e-02_rb,0.30349e-02_rb,0.26015e-02_rb,0.21788e-02_rb,0.18300e-02_rb, &
+        & 0.14846e-02_rb,0.11655e-02_rb,0.90541e-03_rb,0.97352e-03_rb /)
+      kao(:, 3,11,14) = (/ &
+        & 0.34263e-02_rb,0.29982e-02_rb,0.25700e-02_rb,0.21750e-02_rb,0.18411e-02_rb, &
+        & 0.15104e-02_rb,0.12444e-02_rb,0.10462e-02_rb,0.11863e-02_rb /)
+      kao(:, 4,11,14) = (/ &
+        & 0.33817e-02_rb,0.29592e-02_rb,0.25369e-02_rb,0.21760e-02_rb,0.18525e-02_rb, &
+        & 0.15666e-02_rb,0.13382e-02_rb,0.12088e-02_rb,0.14124e-02_rb /)
+      kao(:, 5,11,14) = (/ &
+        & 0.33351e-02_rb,0.29184e-02_rb,0.25088e-02_rb,0.21673e-02_rb,0.18858e-02_rb, &
+        & 0.16404e-02_rb,0.14339e-02_rb,0.14160e-02_rb,0.16713e-02_rb /)
+      kao(:, 1,12,14) = (/ &
+        & 0.37813e-02_rb,0.33087e-02_rb,0.28362e-02_rb,0.23654e-02_rb,0.19642e-02_rb, &
+        & 0.15868e-02_rb,0.12220e-02_rb,0.85134e-03_rb,0.79810e-03_rb /)
+      kao(:, 2,12,14) = (/ &
+        & 0.37337e-02_rb,0.32671e-02_rb,0.28006e-02_rb,0.23535e-02_rb,0.19812e-02_rb, &
+        & 0.16073e-02_rb,0.12646e-02_rb,0.96230e-03_rb,0.10021e-02_rb /)
+      kao(:, 3,12,14) = (/ &
+        & 0.36838e-02_rb,0.32235e-02_rb,0.27633e-02_rb,0.23494e-02_rb,0.19898e-02_rb, &
+        & 0.16363e-02_rb,0.13472e-02_rb,0.11056e-02_rb,0.12297e-02_rb /)
+      kao(:, 4,12,14) = (/ &
+        & 0.36315e-02_rb,0.31778e-02_rb,0.27268e-02_rb,0.23457e-02_rb,0.20010e-02_rb, &
+        & 0.16953e-02_rb,0.14396e-02_rb,0.12736e-02_rb,0.14737e-02_rb /)
+      kao(:, 5,12,14) = (/ &
+        & 0.35780e-02_rb,0.31310e-02_rb,0.26962e-02_rb,0.23324e-02_rb,0.20383e-02_rb, &
+        & 0.17680e-02_rb,0.15379e-02_rb,0.14913e-02_rb,0.17515e-02_rb /)
+      kao(:, 1,13,14) = (/ &
+        & 0.40401e-02_rb,0.35352e-02_rb,0.30303e-02_rb,0.25331e-02_rb,0.21125e-02_rb, &
+        & 0.17061e-02_rb,0.13144e-02_rb,0.90469e-03_rb,0.81129e-03_rb /)
+      kao(:, 2,13,14) = (/ &
+        & 0.39897e-02_rb,0.34912e-02_rb,0.29926e-02_rb,0.25245e-02_rb,0.21272e-02_rb, &
+        & 0.17273e-02_rb,0.13608e-02_rb,0.10148e-02_rb,0.10248e-02_rb /)
+      kao(:, 3,13,14) = (/ &
+        & 0.39313e-02_rb,0.34401e-02_rb,0.29487e-02_rb,0.25178e-02_rb,0.21303e-02_rb, &
+        & 0.17587e-02_rb,0.14454e-02_rb,0.11592e-02_rb,0.12656e-02_rb /)
+      kao(:, 4,13,14) = (/ &
+        & 0.38694e-02_rb,0.33859e-02_rb,0.29093e-02_rb,0.25068e-02_rb,0.21412e-02_rb, &
+        & 0.18203e-02_rb,0.15361e-02_rb,0.13357e-02_rb,0.15298e-02_rb /)
+      kao(:, 5,13,14) = (/ &
+        & 0.38109e-02_rb,0.33347e-02_rb,0.28761e-02_rb,0.24907e-02_rb,0.21821e-02_rb, &
+        & 0.18916e-02_rb,0.16371e-02_rb,0.15629e-02_rb,0.18275e-02_rb /)
+      kao(:, 1, 1,15) = (/ &
+        & 0.15071e-02_rb,0.13191e-02_rb,0.11311e-02_rb,0.94313e-03_rb,0.82178e-03_rb, &
+        & 0.90230e-03_rb,0.10652e-02_rb,0.11879e-02_rb,0.14045e-02_rb /)
+      kao(:, 2, 1,15) = (/ &
+        & 0.15053e-02_rb,0.13176e-02_rb,0.11298e-02_rb,0.94210e-03_rb,0.87562e-03_rb, &
+        & 0.10432e-02_rb,0.12302e-02_rb,0.13664e-02_rb,0.16201e-02_rb /)
+      kao(:, 3, 1,15) = (/ &
+        & 0.15019e-02_rb,0.13147e-02_rb,0.11275e-02_rb,0.94187e-03_rb,0.97652e-03_rb, &
+        & 0.12093e-02_rb,0.14252e-02_rb,0.15816e-02_rb,0.18766e-02_rb /)
+      kao(:, 4, 1,15) = (/ &
+        & 0.14976e-02_rb,0.13109e-02_rb,0.11243e-02_rb,0.96063e-03_rb,0.11391e-02_rb, &
+        & 0.14106e-02_rb,0.16622e-02_rb,0.18446e-02_rb,0.21889e-02_rb /)
+      kao(:, 5, 1,15) = (/ &
+        & 0.14918e-02_rb,0.13060e-02_rb,0.11201e-02_rb,0.10256e-02_rb,0.13135e-02_rb, &
+        & 0.16256e-02_rb,0.19138e-02_rb,0.21174e-02_rb,0.25177e-02_rb /)
+      kao(:, 1, 2,15) = (/ &
+        & 0.17368e-02_rb,0.15199e-02_rb,0.13031e-02_rb,0.10865e-02_rb,0.93589e-03_rb, &
+        & 0.95913e-03_rb,0.11327e-02_rb,0.12643e-02_rb,0.15179e-02_rb /)
+      kao(:, 2, 2,15) = (/ &
+        & 0.17347e-02_rb,0.15183e-02_rb,0.13018e-02_rb,0.10853e-02_rb,0.98162e-03_rb, &
+        & 0.11204e-02_rb,0.13214e-02_rb,0.14695e-02_rb,0.17719e-02_rb /)
+      kao(:, 3, 2,15) = (/ &
+        & 0.17301e-02_rb,0.15143e-02_rb,0.12982e-02_rb,0.10867e-02_rb,0.10624e-02_rb, &
+        & 0.13058e-02_rb,0.15388e-02_rb,0.17088e-02_rb,0.20640e-02_rb /)
+      kao(:, 4, 2,15) = (/ &
+        & 0.17235e-02_rb,0.15085e-02_rb,0.12935e-02_rb,0.11059e-02_rb,0.12337e-02_rb, &
+        & 0.15285e-02_rb,0.18009e-02_rb,0.19982e-02_rb,0.24152e-02_rb /)
+      kao(:, 5, 2,15) = (/ &
+        & 0.17181e-02_rb,0.15038e-02_rb,0.12895e-02_rb,0.11598e-02_rb,0.14379e-02_rb, &
+        & 0.17807e-02_rb,0.20976e-02_rb,0.23230e-02_rb,0.28132e-02_rb /)
+      kao(:, 1, 3,15) = (/ &
+        & 0.19949e-02_rb,0.17458e-02_rb,0.14967e-02_rb,0.12475e-02_rb,0.10641e-02_rb, &
+        & 0.10100e-02_rb,0.11774e-02_rb,0.13116e-02_rb,0.16051e-02_rb /)
+      kao(:, 2, 3,15) = (/ &
+        & 0.19910e-02_rb,0.17424e-02_rb,0.14939e-02_rb,0.12453e-02_rb,0.11049e-02_rb, &
+        & 0.11564e-02_rb,0.13657e-02_rb,0.15222e-02_rb,0.18601e-02_rb /)
+      kao(:, 3, 3,15) = (/ &
+        & 0.19848e-02_rb,0.17370e-02_rb,0.14892e-02_rb,0.12476e-02_rb,0.11571e-02_rb, &
+        & 0.13573e-02_rb,0.16014e-02_rb,0.17817e-02_rb,0.21839e-02_rb /)
+      kao(:, 4, 3,15) = (/ &
+        & 0.19813e-02_rb,0.17340e-02_rb,0.14867e-02_rb,0.12671e-02_rb,0.12941e-02_rb, &
+        & 0.15954e-02_rb,0.18821e-02_rb,0.20919e-02_rb,0.25670e-02_rb /)
+      kao(:, 5, 3,15) = (/ &
+        & 0.19771e-02_rb,0.17304e-02_rb,0.14836e-02_rb,0.13013e-02_rb,0.15091e-02_rb, &
+        & 0.18697e-02_rb,0.22058e-02_rb,0.24525e-02_rb,0.30084e-02_rb /)
+      kao(:, 1, 4,15) = (/ &
+        & 0.23002e-02_rb,0.20126e-02_rb,0.17253e-02_rb,0.14382e-02_rb,0.12005e-02_rb, &
+        & 0.10932e-02_rb,0.12228e-02_rb,0.13639e-02_rb,0.16798e-02_rb /)
+      kao(:, 2, 4,15) = (/ &
+        & 0.22929e-02_rb,0.20065e-02_rb,0.17201e-02_rb,0.14337e-02_rb,0.12491e-02_rb, &
+        & 0.11967e-02_rb,0.14046e-02_rb,0.15632e-02_rb,0.19322e-02_rb /)
+      kao(:, 3, 4,15) = (/ &
+        & 0.22828e-02_rb,0.19977e-02_rb,0.17127e-02_rb,0.14287e-02_rb,0.12914e-02_rb, &
+        & 0.13860e-02_rb,0.16360e-02_rb,0.18240e-02_rb,0.22487e-02_rb /)
+      kao(:, 4, 4,15) = (/ &
+        & 0.22757e-02_rb,0.19915e-02_rb,0.17074e-02_rb,0.14457e-02_rb,0.13800e-02_rb, &
+        & 0.16339e-02_rb,0.19297e-02_rb,0.21519e-02_rb,0.26493e-02_rb /)
+      kao(:, 5, 4,15) = (/ &
+        & 0.22684e-02_rb,0.19852e-02_rb,0.17019e-02_rb,0.14754e-02_rb,0.15614e-02_rb, &
+        & 0.19242e-02_rb,0.22727e-02_rb,0.25341e-02_rb,0.31196e-02_rb /)
+      kao(:, 1, 5,15) = (/ &
+        & 0.26562e-02_rb,0.23246e-02_rb,0.19929e-02_rb,0.16611e-02_rb,0.13598e-02_rb, &
+        & 0.11996e-02_rb,0.12698e-02_rb,0.14174e-02_rb,0.17501e-02_rb /)
+      kao(:, 2, 5,15) = (/ &
+        & 0.26415e-02_rb,0.23116e-02_rb,0.19818e-02_rb,0.16521e-02_rb,0.14129e-02_rb, &
+        & 0.12866e-02_rb,0.14524e-02_rb,0.16197e-02_rb,0.20022e-02_rb /)
+      kao(:, 3, 5,15) = (/ &
+        & 0.26277e-02_rb,0.22994e-02_rb,0.19710e-02_rb,0.16428e-02_rb,0.14513e-02_rb, &
+        & 0.14339e-02_rb,0.16856e-02_rb,0.18777e-02_rb,0.23236e-02_rb /)
+      kao(:, 4, 5,15) = (/ &
+        & 0.26179e-02_rb,0.22909e-02_rb,0.19639e-02_rb,0.16526e-02_rb,0.15154e-02_rb, &
+        & 0.16607e-02_rb,0.19618e-02_rb,0.21909e-02_rb,0.27021e-02_rb /)
+      kao(:, 5, 5,15) = (/ &
+        & 0.26074e-02_rb,0.22818e-02_rb,0.19561e-02_rb,0.16780e-02_rb,0.16497e-02_rb, &
+        & 0.19592e-02_rb,0.23163e-02_rb,0.25915e-02_rb,0.31846e-02_rb /)
+      kao(:, 1, 6,15) = (/ &
+        & 0.30676e-02_rb,0.26845e-02_rb,0.23014e-02_rb,0.19182e-02_rb,0.15508e-02_rb, &
+        & 0.13265e-02_rb,0.13165e-02_rb,0.14712e-02_rb,0.18123e-02_rb /)
+      kao(:, 2, 6,15) = (/ &
+        & 0.30472e-02_rb,0.26667e-02_rb,0.22862e-02_rb,0.19057e-02_rb,0.15947e-02_rb, &
+        & 0.14067e-02_rb,0.15004e-02_rb,0.16750e-02_rb,0.20695e-02_rb /)
+      kao(:, 3, 6,15) = (/ &
+        & 0.30255e-02_rb,0.26477e-02_rb,0.22705e-02_rb,0.18926e-02_rb,0.16408e-02_rb, &
+        & 0.15149e-02_rb,0.17276e-02_rb,0.19275e-02_rb,0.23847e-02_rb /)
+      kao(:, 4, 6,15) = (/ &
+        & 0.30083e-02_rb,0.26326e-02_rb,0.22569e-02_rb,0.18906e-02_rb,0.16765e-02_rb, &
+        & 0.17066e-02_rb,0.20035e-02_rb,0.22386e-02_rb,0.27616e-02_rb /)
+      kao(:, 5, 6,15) = (/ &
+        & 0.29915e-02_rb,0.26179e-02_rb,0.22443e-02_rb,0.19114e-02_rb,0.17836e-02_rb, &
+        & 0.19800e-02_rb,0.23411e-02_rb,0.26194e-02_rb,0.32234e-02_rb /)
+      kao(:, 1, 7,15) = (/ &
+        & 0.35311e-02_rb,0.30900e-02_rb,0.26490e-02_rb,0.22082e-02_rb,0.17722e-02_rb, &
+        & 0.14850e-02_rb,0.13781e-02_rb,0.15158e-02_rb,0.18578e-02_rb /)
+      kao(:, 2, 7,15) = (/ &
+        & 0.35031e-02_rb,0.30656e-02_rb,0.26281e-02_rb,0.21907e-02_rb,0.18048e-02_rb, &
+        & 0.15528e-02_rb,0.15481e-02_rb,0.17322e-02_rb,0.21307e-02_rb /)
+      kao(:, 3, 7,15) = (/ &
+        & 0.34762e-02_rb,0.30421e-02_rb,0.26077e-02_rb,0.21737e-02_rb,0.18550e-02_rb, &
+        & 0.16362e-02_rb,0.17771e-02_rb,0.19863e-02_rb,0.24506e-02_rb /)
+      kao(:, 4, 7,15) = (/ &
+        & 0.34506e-02_rb,0.30197e-02_rb,0.25888e-02_rb,0.21628e-02_rb,0.18864e-02_rb, &
+        & 0.17891e-02_rb,0.20527e-02_rb,0.22948e-02_rb,0.28308e-02_rb /)
+      kao(:, 5, 7,15) = (/ &
+        & 0.34242e-02_rb,0.29966e-02_rb,0.25690e-02_rb,0.21752e-02_rb,0.19463e-02_rb, &
+        & 0.20224e-02_rb,0.23798e-02_rb,0.26659e-02_rb,0.32785e-02_rb /)
+      kao(:, 1, 8,15) = (/ &
+        & 0.40545e-02_rb,0.35480e-02_rb,0.30415e-02_rb,0.25348e-02_rb,0.20284e-02_rb, &
+        & 0.16698e-02_rb,0.14585e-02_rb,0.15473e-02_rb,0.18938e-02_rb /)
+      kao(:, 2, 8,15) = (/ &
+        & 0.40094e-02_rb,0.35086e-02_rb,0.30078e-02_rb,0.25070e-02_rb,0.20421e-02_rb, &
+        & 0.17325e-02_rb,0.16159e-02_rb,0.17783e-02_rb,0.21732e-02_rb /)
+      kao(:, 3, 8,15) = (/ &
+        & 0.39679e-02_rb,0.34723e-02_rb,0.29772e-02_rb,0.24816e-02_rb,0.20882e-02_rb, &
+        & 0.17972e-02_rb,0.18217e-02_rb,0.20430e-02_rb,0.25042e-02_rb /)
+      kao(:, 4, 8,15) = (/ &
+        & 0.39321e-02_rb,0.34411e-02_rb,0.29500e-02_rb,0.24630e-02_rb,0.21284e-02_rb, &
+        & 0.19080e-02_rb,0.21043e-02_rb,0.23586e-02_rb,0.28966e-02_rb /)
+      kao(:, 5, 8,15) = (/ &
+        & 0.38953e-02_rb,0.34088e-02_rb,0.29224e-02_rb,0.24683e-02_rb,0.21576e-02_rb, &
+        & 0.21070e-02_rb,0.24382e-02_rb,0.27335e-02_rb,0.33549e-02_rb /)
+      kao(:, 1, 9,15) = (/ &
+        & 0.46508e-02_rb,0.40697e-02_rb,0.34886e-02_rb,0.29075e-02_rb,0.23264e-02_rb, &
+        & 0.18591e-02_rb,0.15578e-02_rb,0.15738e-02_rb,0.19224e-02_rb /)
+      kao(:, 2, 9,15) = (/ &
+        & 0.45823e-02_rb,0.40098e-02_rb,0.34374e-02_rb,0.28649e-02_rb,0.23092e-02_rb, &
+        & 0.19366e-02_rb,0.17051e-02_rb,0.18133e-02_rb,0.22104e-02_rb /)
+      kao(:, 3, 9,15) = (/ &
+        & 0.45166e-02_rb,0.39524e-02_rb,0.33880e-02_rb,0.28238e-02_rb,0.23394e-02_rb, &
+        & 0.19917e-02_rb,0.18843e-02_rb,0.20815e-02_rb,0.25365e-02_rb /)
+      kao(:, 4, 9,15) = (/ &
+        & 0.44602e-02_rb,0.39031e-02_rb,0.33460e-02_rb,0.27890e-02_rb,0.23856e-02_rb, &
+        & 0.20682e-02_rb,0.21419e-02_rb,0.24093e-02_rb,0.29396e-02_rb /)
+      kao(:, 5, 9,15) = (/ &
+        & 0.44050e-02_rb,0.38549e-02_rb,0.33047e-02_rb,0.27817e-02_rb,0.24123e-02_rb, &
+        & 0.22258e-02_rb,0.24850e-02_rb,0.27956e-02_rb,0.34119e-02_rb /)
+      kao(:, 1,10,15) = (/ &
+        & 0.53098e-02_rb,0.46463e-02_rb,0.39828e-02_rb,0.33194e-02_rb,0.26559e-02_rb, &
+        & 0.20766e-02_rb,0.16840e-02_rb,0.16129e-02_rb,0.19635e-02_rb /)
+      kao(:, 2,10,15) = (/ &
+        & 0.52134e-02_rb,0.45620e-02_rb,0.39106e-02_rb,0.32592e-02_rb,0.26145e-02_rb, &
+        & 0.21601e-02_rb,0.18269e-02_rb,0.18690e-02_rb,0.22681e-02_rb /)
+      kao(:, 3,10,15) = (/ &
+        & 0.51182e-02_rb,0.44788e-02_rb,0.38392e-02_rb,0.31998e-02_rb,0.26226e-02_rb, &
+        & 0.22138e-02_rb,0.19824e-02_rb,0.21416e-02_rb,0.25956e-02_rb /)
+      kao(:, 4,10,15) = (/ &
+        & 0.50344e-02_rb,0.44054e-02_rb,0.37765e-02_rb,0.31477e-02_rb,0.26616e-02_rb, &
+        & 0.22709e-02_rb,0.22099e-02_rb,0.24682e-02_rb,0.29962e-02_rb /)
+      kao(:, 5,10,15) = (/ &
+        & 0.49550e-02_rb,0.43361e-02_rb,0.37172e-02_rb,0.31183e-02_rb,0.26883e-02_rb, &
+        & 0.23873e-02_rb,0.25425e-02_rb,0.28708e-02_rb,0.34790e-02_rb /)
+      kao(:, 1,11,15) = (/ &
+        & 0.59619e-02_rb,0.52169e-02_rb,0.44719e-02_rb,0.37267e-02_rb,0.29817e-02_rb, &
+        & 0.23525e-02_rb,0.18854e-02_rb,0.17723e-02_rb,0.21445e-02_rb /)
+      kao(:, 2,11,15) = (/ &
+        & 0.58318e-02_rb,0.51031e-02_rb,0.43744e-02_rb,0.36457e-02_rb,0.29351e-02_rb, &
+        & 0.24253e-02_rb,0.20278e-02_rb,0.20449e-02_rb,0.24715e-02_rb /)
+      kao(:, 3,11,15) = (/ &
+        & 0.57112e-02_rb,0.49976e-02_rb,0.42840e-02_rb,0.35704e-02_rb,0.29381e-02_rb, &
+        & 0.24724e-02_rb,0.21871e-02_rb,0.23372e-02_rb,0.28231e-02_rb /)
+      kao(:, 4,11,15) = (/ &
+        & 0.56008e-02_rb,0.49010e-02_rb,0.42013e-02_rb,0.35025e-02_rb,0.29677e-02_rb, &
+        & 0.25269e-02_rb,0.24222e-02_rb,0.27009e-02_rb,0.32614e-02_rb /)
+      kao(:, 5,11,15) = (/ &
+        & 0.54961e-02_rb,0.48096e-02_rb,0.41230e-02_rb,0.34666e-02_rb,0.29811e-02_rb, &
+        & 0.26438e-02_rb,0.27691e-02_rb,0.31324e-02_rb,0.37747e-02_rb /)
+      kao(:, 1,12,15) = (/ &
+        & 0.66218e-02_rb,0.57942e-02_rb,0.49667e-02_rb,0.41391e-02_rb,0.33116e-02_rb, &
+        & 0.26382e-02_rb,0.20922e-02_rb,0.19344e-02_rb,0.23267e-02_rb /)
+      kao(:, 2,12,15) = (/ &
+        & 0.64584e-02_rb,0.56513e-02_rb,0.48443e-02_rb,0.40372e-02_rb,0.32618e-02_rb, &
+        & 0.26974e-02_rb,0.22343e-02_rb,0.22270e-02_rb,0.26783e-02_rb /)
+      kao(:, 3,12,15) = (/ &
+        & 0.63097e-02_rb,0.55213e-02_rb,0.47331e-02_rb,0.39445e-02_rb,0.32599e-02_rb, &
+        & 0.27357e-02_rb,0.23983e-02_rb,0.25418e-02_rb,0.30577e-02_rb /)
+      kao(:, 4,12,15) = (/ &
+        & 0.61694e-02_rb,0.53986e-02_rb,0.46278e-02_rb,0.38631e-02_rb,0.32772e-02_rb, &
+        & 0.27857e-02_rb,0.26412e-02_rb,0.29352e-02_rb,0.35233e-02_rb /)
+      kao(:, 5,12,15) = (/ &
+        & 0.60360e-02_rb,0.52820e-02_rb,0.45279e-02_rb,0.38177e-02_rb,0.32735e-02_rb, &
+        & 0.29011e-02_rb,0.29998e-02_rb,0.33948e-02_rb,0.40685e-02_rb /)
+      kao(:, 1,13,15) = (/ &
+        & 0.72856e-02_rb,0.63751e-02_rb,0.54646e-02_rb,0.45539e-02_rb,0.36434e-02_rb, &
+        & 0.29246e-02_rb,0.23024e-02_rb,0.20968e-02_rb,0.25004e-02_rb /)
+      kao(:, 2,13,15) = (/ &
+        & 0.70792e-02_rb,0.61945e-02_rb,0.53099e-02_rb,0.44252e-02_rb,0.35875e-02_rb, &
+        & 0.29681e-02_rb,0.24397e-02_rb,0.24073e-02_rb,0.28787e-02_rb /)
+      kao(:, 3,13,15) = (/ &
+        & 0.68966e-02_rb,0.60348e-02_rb,0.51733e-02_rb,0.43112e-02_rb,0.35811e-02_rb, &
+        & 0.29976e-02_rb,0.26071e-02_rb,0.27479e-02_rb,0.32886e-02_rb /)
+      kao(:, 4,13,15) = (/ &
+        & 0.67258e-02_rb,0.58855e-02_rb,0.50451e-02_rb,0.42204e-02_rb,0.35830e-02_rb, &
+        & 0.30400e-02_rb,0.28573e-02_rb,0.31625e-02_rb,0.37791e-02_rb /)
+      kao(:, 5,13,15) = (/ &
+        & 0.65607e-02_rb,0.57411e-02_rb,0.49214e-02_rb,0.41617e-02_rb,0.35593e-02_rb, &
+        & 0.31530e-02_rb,0.32258e-02_rb,0.36487e-02_rb,0.43508e-02_rb /)
+      kao(:, 1, 1,16) = (/ &
+        & 0.16712e-02_rb,0.14631e-02_rb,0.12550e-02_rb,0.10468e-02_rb,0.92082e-03_rb, &
+        & 0.11371e-02_rb,0.13321e-02_rb,0.14544e-02_rb,0.17472e-02_rb /)
+      kao(:, 2, 1,16) = (/ &
+        & 0.16787e-02_rb,0.14701e-02_rb,0.12615e-02_rb,0.10530e-02_rb,0.10440e-02_rb, &
+        & 0.12893e-02_rb,0.15114e-02_rb,0.16524e-02_rb,0.19826e-02_rb /)
+      kao(:, 3, 1,16) = (/ &
+        & 0.16875e-02_rb,0.14779e-02_rb,0.12683e-02_rb,0.10588e-02_rb,0.11676e-02_rb, &
+        & 0.14424e-02_rb,0.16914e-02_rb,0.18523e-02_rb,0.22202e-02_rb /)
+      kao(:, 4, 1,16) = (/ &
+        & 0.16926e-02_rb,0.14826e-02_rb,0.12725e-02_rb,0.10626e-02_rb,0.12909e-02_rb, &
+        & 0.15950e-02_rb,0.18720e-02_rb,0.20532e-02_rb,0.24579e-02_rb /)
+      kao(:, 5, 1,16) = (/ &
+        & 0.16942e-02_rb,0.14841e-02_rb,0.12739e-02_rb,0.11419e-02_rb,0.15149e-02_rb, &
+        & 0.18796e-02_rb,0.22246e-02_rb,0.24968e-02_rb,0.29379e-02_rb /)
+      kao(:, 1, 2,16) = (/ &
+        & 0.19607e-02_rb,0.17158e-02_rb,0.14714e-02_rb,0.12274e-02_rb,0.10440e-02_rb, &
+        & 0.12890e-02_rb,0.15097e-02_rb,0.16471e-02_rb,0.20285e-02_rb /)
+      kao(:, 2, 2,16) = (/ &
+        & 0.19666e-02_rb,0.17216e-02_rb,0.14767e-02_rb,0.12314e-02_rb,0.11872e-02_rb, &
+        & 0.14659e-02_rb,0.17177e-02_rb,0.18761e-02_rb,0.23077e-02_rb /)
+      kao(:, 3, 2,16) = (/ &
+        & 0.19740e-02_rb,0.17284e-02_rb,0.14830e-02_rb,0.12374e-02_rb,0.13301e-02_rb, &
+        & 0.16429e-02_rb,0.19255e-02_rb,0.21058e-02_rb,0.25866e-02_rb /)
+      kao(:, 4, 2,16) = (/ &
+        & 0.19796e-02_rb,0.17334e-02_rb,0.14872e-02_rb,0.12416e-02_rb,0.14717e-02_rb, &
+        & 0.18182e-02_rb,0.21321e-02_rb,0.23342e-02_rb,0.28637e-02_rb /)
+      kao(:, 5, 2,16) = (/ &
+        & 0.19818e-02_rb,0.17354e-02_rb,0.14891e-02_rb,0.12544e-02_rb,0.16318e-02_rb, &
+        & 0.20217e-02_rb,0.23832e-02_rb,0.26470e-02_rb,0.31951e-02_rb /)
+      kao(:, 1, 3,16) = (/ &
+        & 0.23039e-02_rb,0.20168e-02_rb,0.17292e-02_rb,0.14410e-02_rb,0.11614e-02_rb, &
+        & 0.14213e-02_rb,0.16646e-02_rb,0.18149e-02_rb,0.22923e-02_rb /)
+      kao(:, 2, 3,16) = (/ &
+        & 0.23064e-02_rb,0.20187e-02_rb,0.17311e-02_rb,0.14440e-02_rb,0.13190e-02_rb, &
+        & 0.16288e-02_rb,0.19083e-02_rb,0.20825e-02_rb,0.26267e-02_rb /)
+      kao(:, 3, 3,16) = (/ &
+        & 0.23119e-02_rb,0.20237e-02_rb,0.17351e-02_rb,0.14470e-02_rb,0.14864e-02_rb, &
+        & 0.18354e-02_rb,0.21515e-02_rb,0.23501e-02_rb,0.29596e-02_rb /)
+      kao(:, 4, 3,16) = (/ &
+        & 0.23154e-02_rb,0.20269e-02_rb,0.17385e-02_rb,0.14496e-02_rb,0.16513e-02_rb, &
+        & 0.20395e-02_rb,0.23915e-02_rb,0.26154e-02_rb,0.32883e-02_rb /)
+      kao(:, 5, 3,16) = (/ &
+        & 0.23212e-02_rb,0.20321e-02_rb,0.17430e-02_rb,0.14536e-02_rb,0.18129e-02_rb, &
+        & 0.22398e-02_rb,0.26272e-02_rb,0.28760e-02_rb,0.36101e-02_rb /)
+      kao(:, 1, 4,16) = (/ &
+        & 0.27129e-02_rb,0.23736e-02_rb,0.20348e-02_rb,0.16965e-02_rb,0.13577e-02_rb, &
+        & 0.15487e-02_rb,0.18138e-02_rb,0.19776e-02_rb,0.25289e-02_rb /)
+      kao(:, 2, 4,16) = (/ &
+        & 0.27133e-02_rb,0.23745e-02_rb,0.20358e-02_rb,0.16966e-02_rb,0.14516e-02_rb, &
+        & 0.17925e-02_rb,0.21002e-02_rb,0.22917e-02_rb,0.29262e-02_rb /)
+      kao(:, 3, 4,16) = (/ &
+        & 0.27155e-02_rb,0.23766e-02_rb,0.20379e-02_rb,0.16990e-02_rb,0.16483e-02_rb, &
+        & 0.20360e-02_rb,0.23858e-02_rb,0.26061e-02_rb,0.33224e-02_rb /)
+      kao(:, 4, 4,16) = (/ &
+        & 0.27175e-02_rb,0.23784e-02_rb,0.20394e-02_rb,0.17007e-02_rb,0.18426e-02_rb, &
+        & 0.22757e-02_rb,0.26681e-02_rb,0.29171e-02_rb,0.37132e-02_rb /)
+      kao(:, 5, 4,16) = (/ &
+        & 0.27186e-02_rb,0.23796e-02_rb,0.20406e-02_rb,0.17019e-02_rb,0.20320e-02_rb, &
+        & 0.25101e-02_rb,0.29443e-02_rb,0.32220e-02_rb,0.40947e-02_rb /)
+      kao(:, 1, 5,16) = (/ &
+        & 0.32119e-02_rb,0.28114e-02_rb,0.24099e-02_rb,0.20078e-02_rb,0.16065e-02_rb, &
+        & 0.16767e-02_rb,0.19643e-02_rb,0.21431e-02_rb,0.27523e-02_rb /)
+      kao(:, 2, 5,16) = (/ &
+        & 0.32085e-02_rb,0.28077e-02_rb,0.24069e-02_rb,0.20064e-02_rb,0.16195e-02_rb, &
+        & 0.19633e-02_rb,0.23007e-02_rb,0.25120e-02_rb,0.32215e-02_rb /)
+      kao(:, 3, 5,16) = (/ &
+        & 0.32085e-02_rb,0.28078e-02_rb,0.24068e-02_rb,0.20061e-02_rb,0.18214e-02_rb, &
+        & 0.22501e-02_rb,0.26375e-02_rb,0.28827e-02_rb,0.36897e-02_rb /)
+      kao(:, 4, 5,16) = (/ &
+        & 0.32059e-02_rb,0.28056e-02_rb,0.24053e-02_rb,0.20050e-02_rb,0.20501e-02_rb, &
+        & 0.25321e-02_rb,0.29699e-02_rb,0.32491e-02_rb,0.41521e-02_rb /)
+      kao(:, 5, 5,16) = (/ &
+        & 0.31984e-02_rb,0.27990e-02_rb,0.23997e-02_rb,0.20000e-02_rb,0.22727e-02_rb, &
+        & 0.28084e-02_rb,0.32949e-02_rb,0.36079e-02_rb,0.46028e-02_rb /)
+      kao(:, 1, 6,16) = (/ &
+        & 0.38076e-02_rb,0.33317e-02_rb,0.28559e-02_rb,0.23799e-02_rb,0.19041e-02_rb, &
+        & 0.17889e-02_rb,0.20969e-02_rb,0.22903e-02_rb,0.29420e-02_rb /)
+      kao(:, 2, 6,16) = (/ &
+        & 0.37964e-02_rb,0.33220e-02_rb,0.28476e-02_rb,0.23732e-02_rb,0.18989e-02_rb, &
+        & 0.21234e-02_rb,0.24900e-02_rb,0.27226e-02_rb,0.34908e-02_rb /)
+      kao(:, 3, 6,16) = (/ &
+        & 0.37877e-02_rb,0.33145e-02_rb,0.28416e-02_rb,0.23683e-02_rb,0.19985e-02_rb, &
+        & 0.24600e-02_rb,0.28851e-02_rb,0.31576e-02_rb,0.40421e-02_rb /)
+      kao(:, 4, 6,16) = (/ &
+        & 0.37785e-02_rb,0.33065e-02_rb,0.28344e-02_rb,0.23627e-02_rb,0.22594e-02_rb, &
+        & 0.27919e-02_rb,0.32761e-02_rb,0.35889e-02_rb,0.45855e-02_rb /)
+      kao(:, 5, 6,16) = (/ &
+        & 0.37630e-02_rb,0.32929e-02_rb,0.28229e-02_rb,0.23532e-02_rb,0.25213e-02_rb, &
+        & 0.31161e-02_rb,0.36579e-02_rb,0.40115e-02_rb,0.51155e-02_rb /)
+      kao(:, 1, 7,16) = (/ &
+        & 0.45014e-02_rb,0.39388e-02_rb,0.33762e-02_rb,0.28135e-02_rb,0.22509e-02_rb, &
+        & 0.18859e-02_rb,0.22117e-02_rb,0.24208e-02_rb,0.31038e-02_rb /)
+      kao(:, 2, 7,16) = (/ &
+        & 0.44788e-02_rb,0.39190e-02_rb,0.33593e-02_rb,0.27996e-02_rb,0.22399e-02_rb, &
+        & 0.22735e-02_rb,0.26677e-02_rb,0.29222e-02_rb,0.37394e-02_rb /)
+      kao(:, 3, 7,16) = (/ &
+        & 0.44593e-02_rb,0.39020e-02_rb,0.33439e-02_rb,0.27867e-02_rb,0.22518e-02_rb, &
+        & 0.26648e-02_rb,0.31283e-02_rb,0.34304e-02_rb,0.43806e-02_rb /)
+      kao(:, 4, 7,16) = (/ &
+        & 0.44374e-02_rb,0.38829e-02_rb,0.33284e-02_rb,0.27732e-02_rb,0.24705e-02_rb, &
+        & 0.30533e-02_rb,0.35850e-02_rb,0.39361e-02_rb,0.50160e-02_rb /)
+      kao(:, 5, 7,16) = (/ &
+        & 0.44113e-02_rb,0.38601e-02_rb,0.33089e-02_rb,0.27567e-02_rb,0.27756e-02_rb, &
+        & 0.34321e-02_rb,0.40324e-02_rb,0.44314e-02_rb,0.56359e-02_rb /)
+      kao(:, 1, 8,16) = (/ &
+        & 0.53031e-02_rb,0.46403e-02_rb,0.39774e-02_rb,0.33149e-02_rb,0.26520e-02_rb, &
+        & 0.20316e-02_rb,0.23080e-02_rb,0.25314e-02_rb,0.32334e-02_rb /)
+      kao(:, 2, 8,16) = (/ &
+        & 0.52648e-02_rb,0.46067e-02_rb,0.39487e-02_rb,0.32907e-02_rb,0.26325e-02_rb, &
+        & 0.24096e-02_rb,0.28298e-02_rb,0.31081e-02_rb,0.39611e-02_rb /)
+      kao(:, 3, 8,16) = (/ &
+        & 0.52246e-02_rb,0.45716e-02_rb,0.39189e-02_rb,0.32659e-02_rb,0.26125e-02_rb, &
+        & 0.28611e-02_rb,0.33614e-02_rb,0.36958e-02_rb,0.47006e-02_rb /)
+      kao(:, 4, 8,16) = (/ &
+        & 0.51821e-02_rb,0.45344e-02_rb,0.38868e-02_rb,0.32390e-02_rb,0.27289e-02_rb, &
+        & 0.33103e-02_rb,0.38912e-02_rb,0.42829e-02_rb,0.54355e-02_rb /)
+      kao(:, 5, 8,16) = (/ &
+        & 0.51356e-02_rb,0.44938e-02_rb,0.38520e-02_rb,0.32108e-02_rb,0.30299e-02_rb, &
+        & 0.37493e-02_rb,0.44090e-02_rb,0.48604e-02_rb,0.61537e-02_rb /)
+      kao(:, 1, 9,16) = (/ &
+        & 0.62116e-02_rb,0.54352e-02_rb,0.46587e-02_rb,0.38825e-02_rb,0.31060e-02_rb, &
+        & 0.23296e-02_rb,0.23830e-02_rb,0.26152e-02_rb,0.33400e-02_rb /)
+      kao(:, 2, 9,16) = (/ &
+        & 0.61510e-02_rb,0.53822e-02_rb,0.46134e-02_rb,0.38445e-02_rb,0.30756e-02_rb, &
+        & 0.25421e-02_rb,0.29622e-02_rb,0.32625e-02_rb,0.41372e-02_rb /)
+      kao(:, 3, 9,16) = (/ &
+        & 0.60862e-02_rb,0.53255e-02_rb,0.45651e-02_rb,0.38044e-02_rb,0.30427e-02_rb, &
+        & 0.30332e-02_rb,0.35680e-02_rb,0.39355e-02_rb,0.49777e-02_rb /)
+      kao(:, 4, 9,16) = (/ &
+        & 0.60169e-02_rb,0.52649e-02_rb,0.45129e-02_rb,0.37608e-02_rb,0.30629e-02_rb, &
+        & 0.35468e-02_rb,0.41747e-02_rb,0.46107e-02_rb,0.58172e-02_rb /)
+      kao(:, 5, 9,16) = (/ &
+        & 0.59428e-02_rb,0.52001e-02_rb,0.44573e-02_rb,0.37148e-02_rb,0.33039e-02_rb, &
+        & 0.40510e-02_rb,0.47683e-02_rb,0.52747e-02_rb,0.66403e-02_rb /)
+      kao(:, 1,10,16) = (/ &
+        & 0.72226e-02_rb,0.63198e-02_rb,0.54170e-02_rb,0.45138e-02_rb,0.36111e-02_rb, &
+        & 0.27087e-02_rb,0.25246e-02_rb,0.27733e-02_rb,0.35348e-02_rb /)
+      kao(:, 2,10,16) = (/ &
+        & 0.71308e-02_rb,0.62395e-02_rb,0.53482e-02_rb,0.44569e-02_rb,0.35656e-02_rb, &
+        & 0.27737e-02_rb,0.31148e-02_rb,0.34380e-02_rb,0.43453e-02_rb /)
+      kao(:, 3,10,16) = (/ &
+        & 0.70337e-02_rb,0.61546e-02_rb,0.52755e-02_rb,0.43963e-02_rb,0.35178e-02_rb, &
+        & 0.32195e-02_rb,0.37898e-02_rb,0.41956e-02_rb,0.52718e-02_rb /)
+      kao(:, 4,10,16) = (/ &
+        & 0.69308e-02_rb,0.60645e-02_rb,0.51982e-02_rb,0.43312e-02_rb,0.34725e-02_rb, &
+        & 0.37977e-02_rb,0.44773e-02_rb,0.49627e-02_rb,0.62190e-02_rb /)
+      kao(:, 5,10,16) = (/ &
+        & 0.68213e-02_rb,0.59687e-02_rb,0.51162e-02_rb,0.42630e-02_rb,0.36577e-02_rb, &
+        & 0.43690e-02_rb,0.51523e-02_rb,0.57195e-02_rb,0.71486e-02_rb /)
+      kao(:, 1,11,16) = (/ &
+        & 0.82729e-02_rb,0.72388e-02_rb,0.62047e-02_rb,0.51704e-02_rb,0.41364e-02_rb, &
+        & 0.31022e-02_rb,0.29450e-02_rb,0.32481e-02_rb,0.41092e-02_rb /)
+      kao(:, 2,11,16) = (/ &
+        & 0.81377e-02_rb,0.71207e-02_rb,0.61034e-02_rb,0.50862e-02_rb,0.40694e-02_rb, &
+        & 0.32023e-02_rb,0.35972e-02_rb,0.39817e-02_rb,0.50045e-02_rb /)
+      kao(:, 3,11,16) = (/ &
+        & 0.79927e-02_rb,0.69937e-02_rb,0.59945e-02_rb,0.49955e-02_rb,0.39980e-02_rb, &
+        & 0.36849e-02_rb,0.43305e-02_rb,0.48162e-02_rb,0.60016e-02_rb /)
+      kao(:, 4,11,16) = (/ &
+        & 0.78435e-02_rb,0.68631e-02_rb,0.58827e-02_rb,0.49014e-02_rb,0.39530e-02_rb, &
+        & 0.43152e-02_rb,0.50942e-02_rb,0.56750e-02_rb,0.70494e-02_rb /)
+      kao(:, 5,11,16) = (/ &
+        & 0.76868e-02_rb,0.67260e-02_rb,0.57653e-02_rb,0.48045e-02_rb,0.41698e-02_rb, &
+        & 0.49442e-02_rb,0.58408e-02_rb,0.65151e-02_rb,0.80731e-02_rb /)
+      kao(:, 1,12,16) = (/ &
+        & 0.93677e-02_rb,0.81967e-02_rb,0.70258e-02_rb,0.58546e-02_rb,0.46837e-02_rb, &
+        & 0.35124e-02_rb,0.33991e-02_rb,0.37659e-02_rb,0.47255e-02_rb /)
+      kao(:, 2,12,16) = (/ &
+        & 0.91725e-02_rb,0.80259e-02_rb,0.68794e-02_rb,0.57329e-02_rb,0.45871e-02_rb, &
+        & 0.36555e-02_rb,0.41158e-02_rb,0.45739e-02_rb,0.57058e-02_rb /)
+      kao(:, 3,12,16) = (/ &
+        & 0.89743e-02_rb,0.78526e-02_rb,0.67312e-02_rb,0.56083e-02_rb,0.44874e-02_rb, &
+        & 0.41738e-02_rb,0.49000e-02_rb,0.54681e-02_rb,0.67707e-02_rb /)
+      kao(:, 4,12,16) = (/ &
+        & 0.87651e-02_rb,0.76695e-02_rb,0.65740e-02_rb,0.54780e-02_rb,0.44541e-02_rb, &
+        & 0.48422e-02_rb,0.57276e-02_rb,0.64103e-02_rb,0.78928e-02_rb /)
+      kao(:, 5,12,16) = (/ &
+        & 0.85557e-02_rb,0.74863e-02_rb,0.64169e-02_rb,0.53471e-02_rb,0.46965e-02_rb, &
+        & 0.55261e-02_rb,0.65398e-02_rb,0.73300e-02_rb,0.90026e-02_rb /)
+      kao(:, 1,13,16) = (/ &
+        & 0.10484e-01_rb,0.91737e-02_rb,0.78632e-02_rb,0.65525e-02_rb,0.52420e-02_rb, &
+        & 0.39330e-02_rb,0.38753e-02_rb,0.43130e-02_rb,0.53655e-02_rb /)
+      kao(:, 2,13,16) = (/ &
+        & 0.10212e-01_rb,0.89352e-02_rb,0.76588e-02_rb,0.63823e-02_rb,0.51063e-02_rb, &
+        & 0.41214e-02_rb,0.46538e-02_rb,0.51962e-02_rb,0.64287e-02_rb /)
+      kao(:, 3,13,16) = (/ &
+        & 0.99472e-02_rb,0.87039e-02_rb,0.74620e-02_rb,0.62164e-02_rb,0.49733e-02_rb, &
+        & 0.46683e-02_rb,0.54886e-02_rb,0.61482e-02_rb,0.75590e-02_rb /)
+      kao(:, 4,13,16) = (/ &
+        & 0.96776e-02_rb,0.84679e-02_rb,0.72583e-02_rb,0.60495e-02_rb,0.49611e-02_rb, &
+        & 0.53643e-02_rb,0.63558e-02_rb,0.71458e-02_rb,0.87290e-02_rb /)
+      kao(:, 5,13,16) = (/ &
+        & 0.94084e-02_rb,0.82324e-02_rb,0.70564e-02_rb,0.58807e-02_rb,0.52210e-02_rb, &
+        & 0.60971e-02_rb,0.72271e-02_rb,0.81397e-02_rb,0.99102e-02_rb /)
+  
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kbo(:,13, 1) = (/ &
+        & 0.33062e-11_rb,0.42306e-11_rb,0.53172e-11_rb,0.65673e-11_rb,0.78335e-11_rb /)
+      kbo(:,14, 1) = (/ &
+        & 0.27467e-11_rb,0.35252e-11_rb,0.44160e-11_rb,0.54171e-11_rb,0.64630e-11_rb /)
+      kbo(:,15, 1) = (/ &
+        & 0.23431e-11_rb,0.29962e-11_rb,0.37507e-11_rb,0.46179e-11_rb,0.54790e-11_rb /)
+      kbo(:,16, 1) = (/ &
+        & 0.20178e-11_rb,0.25698e-11_rb,0.32330e-11_rb,0.40024e-11_rb,0.46899e-11_rb /)
+      kbo(:,17, 1) = (/ &
+        & 0.17389e-11_rb,0.22126e-11_rb,0.27864e-11_rb,0.34615e-11_rb,0.40184e-11_rb /)
+      kbo(:,18, 1) = (/ &
+        & 0.15164e-11_rb,0.19304e-11_rb,0.24263e-11_rb,0.29918e-11_rb,0.34734e-11_rb /)
+      kbo(:,19, 1) = (/ &
+        & 0.13194e-11_rb,0.16684e-11_rb,0.20851e-11_rb,0.25471e-11_rb,0.29992e-11_rb /)
+      kbo(:,20, 1) = (/ &
+        & 0.11345e-11_rb,0.14317e-11_rb,0.17813e-11_rb,0.21686e-11_rb,0.25523e-11_rb /)
+      kbo(:,21, 1) = (/ &
+        & 0.97614e-12_rb,0.12233e-11_rb,0.15124e-11_rb,0.18436e-11_rb,0.21624e-11_rb /)
+      kbo(:,22, 1) = (/ &
+        & 0.84972e-12_rb,0.10604e-11_rb,0.13001e-11_rb,0.15853e-11_rb,0.18511e-11_rb /)
+      kbo(:,23, 1) = (/ &
+        & 0.73919e-12_rb,0.91863e-12_rb,0.11179e-11_rb,0.13612e-11_rb,0.15791e-11_rb /)
+      kbo(:,24, 1) = (/ &
+        & 0.63952e-12_rb,0.79203e-12_rb,0.96272e-12_rb,0.11643e-11_rb,0.13384e-11_rb /)
+      kbo(:,25, 1) = (/ &
+        & 0.55198e-12_rb,0.68176e-12_rb,0.82782e-12_rb,0.99347e-12_rb,0.11342e-11_rb /)
+      kbo(:,26, 1) = (/ &
+        & 0.47648e-12_rb,0.58395e-12_rb,0.71214e-12_rb,0.84565e-12_rb,0.96146e-12_rb /)
+      kbo(:,27, 1) = (/ &
+        & 0.41185e-12_rb,0.50403e-12_rb,0.61156e-12_rb,0.71539e-12_rb,0.81410e-12_rb /)
+      kbo(:,28, 1) = (/ &
+        & 0.35568e-12_rb,0.43404e-12_rb,0.52441e-12_rb,0.60652e-12_rb,0.68860e-12_rb /)
+      kbo(:,29, 1) = (/ &
+        & 0.30863e-12_rb,0.37487e-12_rb,0.45120e-12_rb,0.51591e-12_rb,0.58367e-12_rb /)
+      kbo(:,30, 1) = (/ &
+        & 0.26804e-12_rb,0.32390e-12_rb,0.38615e-12_rb,0.43956e-12_rb,0.49890e-12_rb /)
+      kbo(:,31, 1) = (/ &
+        & 0.23316e-12_rb,0.28106e-12_rb,0.33068e-12_rb,0.37478e-12_rb,0.42377e-12_rb /)
+      kbo(:,32, 1) = (/ &
+        & 0.20255e-12_rb,0.24397e-12_rb,0.28293e-12_rb,0.31878e-12_rb,0.36224e-12_rb /)
+      kbo(:,33, 1) = (/ &
+        & 0.17541e-12_rb,0.21018e-12_rb,0.24052e-12_rb,0.27083e-12_rb,0.30963e-12_rb /)
+      kbo(:,34, 1) = (/ &
+        & 0.15014e-12_rb,0.17890e-12_rb,0.20293e-12_rb,0.23058e-12_rb,0.26131e-12_rb /)
+      kbo(:,35, 1) = (/ &
+        & 0.12610e-12_rb,0.14972e-12_rb,0.16906e-12_rb,0.19250e-12_rb,0.21752e-12_rb /)
+      kbo(:,36, 1) = (/ &
+        & 0.10365e-12_rb,0.12301e-12_rb,0.13878e-12_rb,0.15810e-12_rb,0.17856e-12_rb /)
+      kbo(:,37, 1) = (/ &
+        & 0.82572e-13_rb,0.98388e-13_rb,0.11143e-12_rb,0.12645e-12_rb,0.14343e-12_rb /)
+      kbo(:,38, 1) = (/ &
+        & 0.65632e-13_rb,0.78531e-13_rb,0.89359e-13_rb,0.10135e-12_rb,0.11495e-12_rb /)
+      kbo(:,39, 1) = (/ &
+        & 0.52174e-13_rb,0.62607e-13_rb,0.71650e-13_rb,0.80738e-13_rb,0.92112e-13_rb /)
+      kbo(:,40, 1) = (/ &
+        & 0.40434e-13_rb,0.48683e-13_rb,0.56479e-13_rb,0.63806e-13_rb,0.72155e-13_rb /)
+      kbo(:,41, 1) = (/ &
+        & 0.31179e-13_rb,0.37691e-13_rb,0.44339e-13_rb,0.50247e-13_rb,0.56982e-13_rb /)
+      kbo(:,42, 1) = (/ &
+        & 0.24040e-13_rb,0.29161e-13_rb,0.34731e-13_rb,0.39467e-13_rb,0.44922e-13_rb /)
+      kbo(:,43, 1) = (/ &
+        & 0.18259e-13_rb,0.22185e-13_rb,0.26753e-13_rb,0.30617e-13_rb,0.34721e-13_rb /)
+      kbo(:,44, 1) = (/ &
+        & 0.13667e-13_rb,0.16662e-13_rb,0.20308e-13_rb,0.23577e-13_rb,0.26865e-13_rb /)
+      kbo(:,45, 1) = (/ &
+        & 0.10182e-13_rb,0.12571e-13_rb,0.15345e-13_rb,0.18028e-13_rb,0.20725e-13_rb /)
+      kbo(:,46, 1) = (/ &
+        & 0.75196e-14_rb,0.94092e-14_rb,0.11475e-13_rb,0.13704e-13_rb,0.15878e-13_rb /)
+      kbo(:,47, 1) = (/ &
+        & 0.54721e-14_rb,0.69523e-14_rb,0.85280e-14_rb,0.10311e-13_rb,0.11952e-13_rb /)
+      kbo(:,48, 1) = (/ &
+        & 0.39619e-14_rb,0.50439e-14_rb,0.62896e-14_rb,0.77193e-14_rb,0.89282e-14_rb /)
+      kbo(:,49, 1) = (/ &
+        & 0.28508e-14_rb,0.36419e-14_rb,0.46044e-14_rb,0.57276e-14_rb,0.66866e-14_rb /)
+      kbo(:,50, 1) = (/ &
+        & 0.20973e-14_rb,0.26588e-14_rb,0.33754e-14_rb,0.42404e-14_rb,0.50338e-14_rb /)
+      kbo(:,51, 1) = (/ &
+        & 0.15010e-14_rb,0.19461e-14_rb,0.24807e-14_rb,0.31095e-14_rb,0.37789e-14_rb /)
+      kbo(:,52, 1) = (/ &
+        & 0.10686e-14_rb,0.14205e-14_rb,0.18164e-14_rb,0.22651e-14_rb,0.27790e-14_rb /)
+      kbo(:,53, 1) = (/ &
+        & 0.75469e-15_rb,0.10279e-14_rb,0.13211e-14_rb,0.16657e-14_rb,0.20344e-14_rb /)
+      kbo(:,54, 1) = (/ &
+        & 0.53837e-15_rb,0.75440e-15_rb,0.97064e-15_rb,0.12260e-14_rb,0.15156e-14_rb /)
+      kbo(:,55, 1) = (/ &
+        & 0.38620e-15_rb,0.54750e-15_rb,0.71223e-15_rb,0.90921e-15_rb,0.11265e-14_rb /)
+      kbo(:,56, 1) = (/ &
+        & 0.27852e-15_rb,0.39135e-15_rb,0.51858e-15_rb,0.66760e-15_rb,0.83486e-15_rb /)
+      kbo(:,57, 1) = (/ &
+        & 0.20280e-15_rb,0.27940e-15_rb,0.37558e-15_rb,0.48656e-15_rb,0.61658e-15_rb /)
+      kbo(:,58, 1) = (/ &
+        & 0.14586e-15_rb,0.19788e-15_rb,0.27273e-15_rb,0.35391e-15_rb,0.45250e-15_rb /)
+      kbo(:,59, 1) = (/ &
+        & 0.11164e-15_rb,0.15082e-15_rb,0.20804e-15_rb,0.27081e-15_rb,0.49339e-15_rb /)
+      kbo(:,13, 2) = (/ &
+        & 0.15800e-10_rb,0.20781e-10_rb,0.26154e-10_rb,0.31936e-10_rb,0.38062e-10_rb /)
+      kbo(:,14, 2) = (/ &
+        & 0.13333e-10_rb,0.17459e-10_rb,0.21881e-10_rb,0.26666e-10_rb,0.31696e-10_rb /)
+      kbo(:,15, 2) = (/ &
+        & 0.11381e-10_rb,0.14784e-10_rb,0.18449e-10_rb,0.22397e-10_rb,0.26533e-10_rb /)
+      kbo(:,16, 2) = (/ &
+        & 0.97593e-11_rb,0.12591e-10_rb,0.15641e-10_rb,0.18845e-10_rb,0.22503e-10_rb /)
+      kbo(:,17, 2) = (/ &
+        & 0.83473e-11_rb,0.10709e-10_rb,0.13261e-10_rb,0.15857e-10_rb,0.19052e-10_rb /)
+      kbo(:,18, 2) = (/ &
+        & 0.71523e-11_rb,0.91255e-11_rb,0.11229e-10_rb,0.13436e-10_rb,0.16145e-10_rb /)
+      kbo(:,19, 2) = (/ &
+        & 0.60777e-11_rb,0.77489e-11_rb,0.94796e-11_rb,0.11415e-10_rb,0.13591e-10_rb /)
+      kbo(:,20, 2) = (/ &
+        & 0.51693e-11_rb,0.65609e-11_rb,0.80124e-11_rb,0.96944e-11_rb,0.11427e-10_rb /)
+      kbo(:,21, 2) = (/ &
+        & 0.43931e-11_rb,0.55492e-11_rb,0.67698e-11_rb,0.81825e-11_rb,0.95836e-11_rb /)
+      kbo(:,22, 2) = (/ &
+        & 0.37967e-11_rb,0.47515e-11_rb,0.57759e-11_rb,0.69676e-11_rb,0.81090e-11_rb /)
+      kbo(:,23, 2) = (/ &
+        & 0.32747e-11_rb,0.40830e-11_rb,0.49616e-11_rb,0.59280e-11_rb,0.68614e-11_rb /)
+      kbo(:,24, 2) = (/ &
+        & 0.28215e-11_rb,0.34976e-11_rb,0.42532e-11_rb,0.50228e-11_rb,0.57971e-11_rb /)
+      kbo(:,25, 2) = (/ &
+        & 0.24334e-11_rb,0.29960e-11_rb,0.36396e-11_rb,0.42606e-11_rb,0.49056e-11_rb /)
+      kbo(:,26, 2) = (/ &
+        & 0.21117e-11_rb,0.25752e-11_rb,0.31134e-11_rb,0.36244e-11_rb,0.41489e-11_rb /)
+      kbo(:,27, 2) = (/ &
+        & 0.18253e-11_rb,0.22243e-11_rb,0.26576e-11_rb,0.30793e-11_rb,0.35048e-11_rb /)
+      kbo(:,28, 2) = (/ &
+        & 0.15682e-11_rb,0.19141e-11_rb,0.22636e-11_rb,0.26109e-11_rb,0.29589e-11_rb /)
+      kbo(:,29, 2) = (/ &
+        & 0.13535e-11_rb,0.16466e-11_rb,0.19296e-11_rb,0.22145e-11_rb,0.25005e-11_rb /)
+      kbo(:,30, 2) = (/ &
+        & 0.11709e-11_rb,0.14136e-11_rb,0.16432e-11_rb,0.18792e-11_rb,0.21240e-11_rb /)
+      kbo(:,31, 2) = (/ &
+        & 0.10216e-11_rb,0.12142e-11_rb,0.14045e-11_rb,0.15978e-11_rb,0.18001e-11_rb /)
+      kbo(:,32, 2) = (/ &
+        & 0.88417e-12_rb,0.10400e-11_rb,0.11973e-11_rb,0.13566e-11_rb,0.15303e-11_rb /)
+      kbo(:,33, 2) = (/ &
+        & 0.76210e-12_rb,0.89004e-12_rb,0.10199e-11_rb,0.11509e-11_rb,0.12984e-11_rb /)
+      kbo(:,34, 2) = (/ &
+        & 0.64910e-12_rb,0.75460e-12_rb,0.86122e-12_rb,0.97227e-12_rb,0.10908e-11_rb /)
+      kbo(:,35, 2) = (/ &
+        & 0.54374e-12_rb,0.63015e-12_rb,0.71745e-12_rb,0.80944e-12_rb,0.90628e-12_rb /)
+      kbo(:,36, 2) = (/ &
+        & 0.44718e-12_rb,0.51791e-12_rb,0.58946e-12_rb,0.66527e-12_rb,0.74411e-12_rb /)
+      kbo(:,37, 2) = (/ &
+        & 0.35793e-12_rb,0.41591e-12_rb,0.47443e-12_rb,0.53549e-12_rb,0.60041e-12_rb /)
+      kbo(:,38, 2) = (/ &
+        & 0.28618e-12_rb,0.33345e-12_rb,0.38124e-12_rb,0.43139e-12_rb,0.48394e-12_rb /)
+      kbo(:,39, 2) = (/ &
+        & 0.22858e-12_rb,0.26729e-12_rb,0.30628e-12_rb,0.34554e-12_rb,0.38998e-12_rb /)
+      kbo(:,40, 2) = (/ &
+        & 0.17867e-12_rb,0.21032e-12_rb,0.24207e-12_rb,0.27407e-12_rb,0.30925e-12_rb /)
+      kbo(:,41, 2) = (/ &
+        & 0.13875e-12_rb,0.16498e-12_rb,0.19072e-12_rb,0.21688e-12_rb,0.24410e-12_rb /)
+      kbo(:,42, 2) = (/ &
+        & 0.10714e-12_rb,0.12915e-12_rb,0.14999e-12_rb,0.17156e-12_rb,0.19364e-12_rb /)
+      kbo(:,43, 2) = (/ &
+        & 0.81856e-13_rb,0.99592e-13_rb,0.11661e-12_rb,0.13414e-12_rb,0.15145e-12_rb /)
+      kbo(:,44, 2) = (/ &
+        & 0.62221e-13_rb,0.75886e-13_rb,0.90106e-13_rb,0.10425e-12_rb,0.11838e-12_rb /)
+      kbo(:,45, 2) = (/ &
+        & 0.47139e-13_rb,0.57421e-13_rb,0.69401e-13_rb,0.80830e-13_rb,0.92462e-13_rb /)
+      kbo(:,46, 2) = (/ &
+        & 0.35469e-13_rb,0.43603e-13_rb,0.52913e-13_rb,0.62345e-13_rb,0.71769e-13_rb /)
+      kbo(:,47, 2) = (/ &
+        & 0.26308e-13_rb,0.32606e-13_rb,0.39610e-13_rb,0.47505e-13_rb,0.55354e-13_rb /)
+      kbo(:,48, 2) = (/ &
+        & 0.19388e-13_rb,0.24430e-13_rb,0.29903e-13_rb,0.35902e-13_rb,0.42540e-13_rb /)
+      kbo(:,49, 2) = (/ &
+        & 0.14144e-13_rb,0.18180e-13_rb,0.22467e-13_rb,0.26985e-13_rb,0.32471e-13_rb /)
+      kbo(:,50, 2) = (/ &
+        & 0.10280e-13_rb,0.13471e-13_rb,0.16900e-13_rb,0.20465e-13_rb,0.24665e-13_rb /)
+      kbo(:,51, 2) = (/ &
+        & 0.74898e-14_rb,0.99392e-14_rb,0.12674e-13_rb,0.15571e-13_rb,0.18663e-13_rb /)
+      kbo(:,52, 2) = (/ &
+        & 0.54214e-14_rb,0.72917e-14_rb,0.94517e-14_rb,0.11816e-13_rb,0.14256e-13_rb /)
+      kbo(:,53, 2) = (/ &
+        & 0.38970e-14_rb,0.53165e-14_rb,0.69989e-14_rb,0.88828e-14_rb,0.10862e-13_rb /)
+      kbo(:,54, 2) = (/ &
+        & 0.27972e-14_rb,0.38775e-14_rb,0.51927e-14_rb,0.66775e-14_rb,0.82659e-14_rb /)
+      kbo(:,55, 2) = (/ &
+        & 0.19962e-14_rb,0.28257e-14_rb,0.38491e-14_rb,0.50059e-14_rb,0.62864e-14_rb /)
+      kbo(:,56, 2) = (/ &
+        & 0.14049e-14_rb,0.20447e-14_rb,0.28389e-14_rb,0.37444e-14_rb,0.47474e-14_rb /)
+      kbo(:,57, 2) = (/ &
+        & 0.97467e-15_rb,0.14635e-14_rb,0.20787e-14_rb,0.27878e-14_rb,0.35737e-14_rb /)
+      kbo(:,58, 2) = (/ &
+        & 0.67770e-15_rb,0.10398e-14_rb,0.15169e-14_rb,0.20739e-14_rb,0.26951e-14_rb /)
+      kbo(:,59, 2) = (/ &
+        & 0.50857e-15_rb,0.79496e-15_rb,0.11749e-14_rb,0.16262e-14_rb,0.21270e-14_rb /)
+      kbo(:,13, 3) = (/ &
+        & 0.93671e-10_rb,0.11591e-09_rb,0.13715e-09_rb,0.15779e-09_rb,0.17870e-09_rb /)
+      kbo(:,14, 3) = (/ &
+        & 0.78883e-10_rb,0.96971e-10_rb,0.11437e-09_rb,0.13160e-09_rb,0.14863e-09_rb /)
+      kbo(:,15, 3) = (/ &
+        & 0.66900e-10_rb,0.81568e-10_rb,0.96052e-10_rb,0.11028e-09_rb,0.12439e-09_rb /)
+      kbo(:,16, 3) = (/ &
+        & 0.56737e-10_rb,0.68853e-10_rb,0.80870e-10_rb,0.92769e-10_rb,0.10422e-09_rb /)
+      kbo(:,17, 3) = (/ &
+        & 0.48148e-10_rb,0.58209e-10_rb,0.68168e-10_rb,0.78006e-10_rb,0.87308e-10_rb /)
+      kbo(:,18, 3) = (/ &
+        & 0.40874e-10_rb,0.49268e-10_rb,0.57591e-10_rb,0.65627e-10_rb,0.73296e-10_rb /)
+      kbo(:,19, 3) = (/ &
+        & 0.34619e-10_rb,0.41578e-10_rb,0.48414e-10_rb,0.55049e-10_rb,0.61235e-10_rb /)
+      kbo(:,20, 3) = (/ &
+        & 0.29370e-10_rb,0.35034e-10_rb,0.40682e-10_rb,0.46014e-10_rb,0.51115e-10_rb /)
+      kbo(:,21, 3) = (/ &
+        & 0.24821e-10_rb,0.29490e-10_rb,0.34141e-10_rb,0.38423e-10_rb,0.42621e-10_rb /)
+      kbo(:,22, 3) = (/ &
+        & 0.21204e-10_rb,0.25041e-10_rb,0.28846e-10_rb,0.32305e-10_rb,0.35757e-10_rb /)
+      kbo(:,23, 3) = (/ &
+        & 0.18107e-10_rb,0.21244e-10_rb,0.24304e-10_rb,0.27144e-10_rb,0.30005e-10_rb /)
+      kbo(:,24, 3) = (/ &
+        & 0.15432e-10_rb,0.18015e-10_rb,0.20470e-10_rb,0.22803e-10_rb,0.25180e-10_rb /)
+      kbo(:,25, 3) = (/ &
+        & 0.13155e-10_rb,0.15266e-10_rb,0.17234e-10_rb,0.19170e-10_rb,0.21096e-10_rb /)
+      kbo(:,26, 3) = (/ &
+        & 0.11220e-10_rb,0.12944e-10_rb,0.14527e-10_rb,0.16132e-10_rb,0.17690e-10_rb /)
+      kbo(:,27, 3) = (/ &
+        & 0.95562e-11_rb,0.10942e-10_rb,0.12242e-10_rb,0.13560e-10_rb,0.14820e-10_rb /)
+      kbo(:,28, 3) = (/ &
+        & 0.81359e-11_rb,0.92394e-11_rb,0.10309e-10_rb,0.11386e-10_rb,0.12407e-10_rb /)
+      kbo(:,29, 3) = (/ &
+        & 0.69193e-11_rb,0.78077e-11_rb,0.87009e-11_rb,0.95682e-11_rb,0.10386e-10_rb /)
+      kbo(:,30, 3) = (/ &
+        & 0.58737e-11_rb,0.65956e-11_rb,0.73381e-11_rb,0.80325e-11_rb,0.87147e-11_rb /)
+      kbo(:,31, 3) = (/ &
+        & 0.49782e-11_rb,0.55816e-11_rb,0.61826e-11_rb,0.67463e-11_rb,0.73000e-11_rb /)
+      kbo(:,32, 3) = (/ &
+        & 0.42202e-11_rb,0.47232e-11_rb,0.52043e-11_rb,0.56623e-11_rb,0.61016e-11_rb /)
+      kbo(:,33, 3) = (/ &
+        & 0.35744e-11_rb,0.39897e-11_rb,0.43757e-11_rb,0.47465e-11_rb,0.50931e-11_rb /)
+      kbo(:,34, 3) = (/ &
+        & 0.30127e-11_rb,0.33496e-11_rb,0.36630e-11_rb,0.39738e-11_rb,0.42413e-11_rb /)
+      kbo(:,35, 3) = (/ &
+        & 0.25098e-11_rb,0.27837e-11_rb,0.30393e-11_rb,0.32916e-11_rb,0.35093e-11_rb /)
+      kbo(:,36, 3) = (/ &
+        & 0.20644e-11_rb,0.22886e-11_rb,0.24982e-11_rb,0.27043e-11_rb,0.28833e-11_rb /)
+      kbo(:,37, 3) = (/ &
+        & 0.16684e-11_rb,0.18536e-11_rb,0.20259e-11_rb,0.21979e-11_rb,0.23456e-11_rb /)
+      kbo(:,38, 3) = (/ &
+        & 0.13466e-11_rb,0.14996e-11_rb,0.16425e-11_rb,0.17834e-11_rb,0.19065e-11_rb /)
+      kbo(:,39, 3) = (/ &
+        & 0.10861e-11_rb,0.12130e-11_rb,0.13309e-11_rb,0.14440e-11_rb,0.15498e-11_rb /)
+      kbo(:,40, 3) = (/ &
+        & 0.86498e-12_rb,0.96921e-12_rb,0.10678e-11_rb,0.11601e-11_rb,0.12509e-11_rb /)
+      kbo(:,41, 3) = (/ &
+        & 0.68788e-12_rb,0.77191e-12_rb,0.85472e-12_rb,0.93133e-12_rb,0.10084e-11_rb /)
+      kbo(:,42, 3) = (/ &
+        & 0.54661e-12_rb,0.61437e-12_rb,0.68360e-12_rb,0.74699e-12_rb,0.81088e-12_rb /)
+      kbo(:,43, 3) = (/ &
+        & 0.42920e-12_rb,0.48515e-12_rb,0.54174e-12_rb,0.59564e-12_rb,0.64658e-12_rb /)
+      kbo(:,44, 3) = (/ &
+        & 0.33491e-12_rb,0.38198e-12_rb,0.42756e-12_rb,0.47274e-12_rb,0.51490e-12_rb /)
+      kbo(:,45, 3) = (/ &
+        & 0.26072e-12_rb,0.29981e-12_rb,0.33699e-12_rb,0.37442e-12_rb,0.40968e-12_rb /)
+      kbo(:,46, 3) = (/ &
+        & 0.20167e-12_rb,0.23370e-12_rb,0.26473e-12_rb,0.29535e-12_rb,0.32495e-12_rb /)
+      kbo(:,47, 3) = (/ &
+        & 0.15427e-12_rb,0.18070e-12_rb,0.20644e-12_rb,0.23129e-12_rb,0.25612e-12_rb /)
+      kbo(:,48, 3) = (/ &
+        & 0.11746e-12_rb,0.13905e-12_rb,0.16032e-12_rb,0.18088e-12_rb,0.20125e-12_rb /)
+      kbo(:,49, 3) = (/ &
+        & 0.88976e-13_rb,0.10661e-12_rb,0.12415e-12_rb,0.14128e-12_rb,0.15777e-12_rb /)
+      kbo(:,50, 3) = (/ &
+        & 0.67378e-13_rb,0.81791e-13_rb,0.96162e-13_rb,0.11029e-12_rb,0.12384e-12_rb /)
+      kbo(:,51, 3) = (/ &
+        & 0.50786e-13_rb,0.62576e-13_rb,0.74348e-13_rb,0.85995e-13_rb,0.97345e-13_rb /)
+      kbo(:,52, 3) = (/ &
+        & 0.37951e-13_rb,0.47645e-13_rb,0.57250e-13_rb,0.66805e-13_rb,0.76257e-13_rb /)
+      kbo(:,53, 3) = (/ &
+        & 0.28159e-13_rb,0.36102e-13_rb,0.43964e-13_rb,0.51774e-13_rb,0.59583e-13_rb /)
+      kbo(:,54, 3) = (/ &
+        & 0.21004e-13_rb,0.27366e-13_rb,0.33776e-13_rb,0.40177e-13_rb,0.46583e-13_rb /)
+      kbo(:,55, 3) = (/ &
+        & 0.15637e-13_rb,0.20632e-13_rb,0.25941e-13_rb,0.31184e-13_rb,0.36409e-13_rb /)
+      kbo(:,56, 3) = (/ &
+        & 0.11581e-13_rb,0.15522e-13_rb,0.19844e-13_rb,0.24130e-13_rb,0.28399e-13_rb /)
+      kbo(:,57, 3) = (/ &
+        & 0.85125e-14_rb,0.11631e-13_rb,0.15093e-13_rb,0.18610e-13_rb,0.22102e-13_rb /)
+      kbo(:,58, 3) = (/ &
+        & 0.62435e-14_rb,0.87193e-14_rb,0.11437e-13_rb,0.14347e-13_rb,0.17208e-13_rb /)
+      kbo(:,59, 3) = (/ &
+        & 0.48886e-14_rb,0.68810e-14_rb,0.90777e-14_rb,0.11450e-13_rb,0.13800e-13_rb /)
+      kbo(:,13, 4) = (/ &
+        & 0.49769e-09_rb,0.57573e-09_rb,0.65456e-09_rb,0.73233e-09_rb,0.81030e-09_rb /)
+      kbo(:,14, 4) = (/ &
+        & 0.41687e-09_rb,0.48070e-09_rb,0.54629e-09_rb,0.61156e-09_rb,0.67509e-09_rb /)
+      kbo(:,15, 4) = (/ &
+        & 0.35004e-09_rb,0.40346e-09_rb,0.45778e-09_rb,0.51155e-09_rb,0.56442e-09_rb /)
+      kbo(:,16, 4) = (/ &
+        & 0.29428e-09_rb,0.33893e-09_rb,0.38370e-09_rb,0.42831e-09_rb,0.47172e-09_rb /)
+      kbo(:,17, 4) = (/ &
+        & 0.24736e-09_rb,0.28447e-09_rb,0.32184e-09_rb,0.35882e-09_rb,0.39576e-09_rb /)
+      kbo(:,18, 4) = (/ &
+        & 0.20799e-09_rb,0.23913e-09_rb,0.26980e-09_rb,0.30118e-09_rb,0.33239e-09_rb /)
+      kbo(:,19, 4) = (/ &
+        & 0.17474e-09_rb,0.20037e-09_rb,0.22650e-09_rb,0.25275e-09_rb,0.27848e-09_rb /)
+      kbo(:,20, 4) = (/ &
+        & 0.14678e-09_rb,0.16826e-09_rb,0.19015e-09_rb,0.21182e-09_rb,0.23321e-09_rb /)
+      kbo(:,21, 4) = (/ &
+        & 0.12329e-09_rb,0.14137e-09_rb,0.15951e-09_rb,0.17762e-09_rb,0.19539e-09_rb /)
+      kbo(:,22, 4) = (/ &
+        & 0.10475e-09_rb,0.11989e-09_rb,0.13488e-09_rb,0.14993e-09_rb,0.16481e-09_rb /)
+      kbo(:,23, 4) = (/ &
+        & 0.89090e-10_rb,0.10156e-09_rb,0.11416e-09_rb,0.12661e-09_rb,0.13928e-09_rb /)
+      kbo(:,24, 4) = (/ &
+        & 0.75648e-10_rb,0.86094e-10_rb,0.96530e-10_rb,0.10692e-09_rb,0.11716e-09_rb /)
+      kbo(:,25, 4) = (/ &
+        & 0.64419e-10_rb,0.73036e-10_rb,0.81659e-10_rb,0.90142e-10_rb,0.98524e-10_rb /)
+      kbo(:,26, 4) = (/ &
+        & 0.54857e-10_rb,0.61972e-10_rb,0.69147e-10_rb,0.76125e-10_rb,0.82778e-10_rb /)
+      kbo(:,27, 4) = (/ &
+        & 0.46656e-10_rb,0.52591e-10_rb,0.58413e-10_rb,0.64168e-10_rb,0.69451e-10_rb /)
+      kbo(:,28, 4) = (/ &
+        & 0.39665e-10_rb,0.44561e-10_rb,0.49317e-10_rb,0.53971e-10_rb,0.58228e-10_rb /)
+      kbo(:,29, 4) = (/ &
+        & 0.33755e-10_rb,0.37736e-10_rb,0.41652e-10_rb,0.45382e-10_rb,0.48825e-10_rb /)
+      kbo(:,30, 4) = (/ &
+        & 0.28671e-10_rb,0.31949e-10_rb,0.35144e-10_rb,0.38141e-10_rb,0.41003e-10_rb /)
+      kbo(:,31, 4) = (/ &
+        & 0.24360e-10_rb,0.27027e-10_rb,0.29632e-10_rb,0.32038e-10_rb,0.34391e-10_rb /)
+      kbo(:,32, 4) = (/ &
+        & 0.20671e-10_rb,0.22852e-10_rb,0.24963e-10_rb,0.26903e-10_rb,0.28818e-10_rb /)
+      kbo(:,33, 4) = (/ &
+        & 0.17515e-10_rb,0.19306e-10_rb,0.20998e-10_rb,0.22562e-10_rb,0.24113e-10_rb /)
+      kbo(:,34, 4) = (/ &
+        & 0.14755e-10_rb,0.16223e-10_rb,0.17588e-10_rb,0.18905e-10_rb,0.20105e-10_rb /)
+      kbo(:,35, 4) = (/ &
+        & 0.12305e-10_rb,0.13505e-10_rb,0.14616e-10_rb,0.15703e-10_rb,0.16661e-10_rb /)
+      kbo(:,36, 4) = (/ &
+        & 0.10152e-10_rb,0.11132e-10_rb,0.12046e-10_rb,0.12938e-10_rb,0.13718e-10_rb /)
+      kbo(:,37, 4) = (/ &
+        & 0.82437e-11_rb,0.90546e-11_rb,0.98101e-11_rb,0.10549e-10_rb,0.11200e-10_rb /)
+      kbo(:,38, 4) = (/ &
+        & 0.66891e-11_rb,0.73572e-11_rb,0.79832e-11_rb,0.85923e-11_rb,0.91388e-11_rb /)
+      kbo(:,39, 4) = (/ &
+        & 0.54271e-11_rb,0.59789e-11_rb,0.64946e-11_rb,0.69804e-11_rb,0.74536e-11_rb /)
+      kbo(:,40, 4) = (/ &
+        & 0.43504e-11_rb,0.48077e-11_rb,0.52359e-11_rb,0.56420e-11_rb,0.60390e-11_rb /)
+      kbo(:,41, 4) = (/ &
+        & 0.34805e-11_rb,0.38570e-11_rb,0.42158e-11_rb,0.45532e-11_rb,0.48856e-11_rb /)
+      kbo(:,42, 4) = (/ &
+        & 0.27817e-11_rb,0.30896e-11_rb,0.33906e-11_rb,0.36712e-11_rb,0.39504e-11_rb /)
+      kbo(:,43, 4) = (/ &
+        & 0.22059e-11_rb,0.24603e-11_rb,0.27112e-11_rb,0.29449e-11_rb,0.31673e-11_rb /)
+      kbo(:,44, 4) = (/ &
+        & 0.17407e-11_rb,0.19508e-11_rb,0.21593e-11_rb,0.23549e-11_rb,0.25394e-11_rb /)
+      kbo(:,45, 4) = (/ &
+        & 0.13717e-11_rb,0.15444e-11_rb,0.17149e-11_rb,0.18808e-11_rb,0.20349e-11_rb /)
+      kbo(:,46, 4) = (/ &
+        & 0.10758e-11_rb,0.12178e-11_rb,0.13582e-11_rb,0.14973e-11_rb,0.16264e-11_rb /)
+      kbo(:,47, 4) = (/ &
+        & 0.83623e-12_rb,0.95326e-12_rb,0.10692e-11_rb,0.11850e-11_rb,0.12934e-11_rb /)
+      kbo(:,48, 4) = (/ &
+        & 0.64811e-12_rb,0.74426e-12_rb,0.84002e-12_rb,0.93446e-12_rb,0.10270e-11_rb /)
+      kbo(:,49, 4) = (/ &
+        & 0.50093e-12_rb,0.57976e-12_rb,0.65824e-12_rb,0.73652e-12_rb,0.81364e-12_rb /)
+      kbo(:,50, 4) = (/ &
+        & 0.38740e-12_rb,0.45167e-12_rb,0.51620e-12_rb,0.58084e-12_rb,0.64495e-12_rb /)
+      kbo(:,51, 4) = (/ &
+        & 0.29910e-12_rb,0.35149e-12_rb,0.40454e-12_rb,0.45768e-12_rb,0.51010e-12_rb /)
+      kbo(:,52, 4) = (/ &
+        & 0.23004e-12_rb,0.27291e-12_rb,0.31637e-12_rb,0.35993e-12_rb,0.40313e-12_rb /)
+      kbo(:,53, 4) = (/ &
+        & 0.17654e-12_rb,0.21129e-12_rb,0.24667e-12_rb,0.28251e-12_rb,0.31798e-12_rb /)
+      kbo(:,54, 4) = (/ &
+        & 0.13566e-12_rb,0.16388e-12_rb,0.19277e-12_rb,0.22203e-12_rb,0.25140e-12_rb /)
+      kbo(:,55, 4) = (/ &
+        & 0.10414e-12_rb,0.12705e-12_rb,0.15062e-12_rb,0.17458e-12_rb,0.19863e-12_rb /)
+      kbo(:,56, 4) = (/ &
+        & 0.79695e-13_rb,0.98154e-13_rb,0.11737e-12_rb,0.13696e-12_rb,0.15674e-12_rb /)
+      kbo(:,57, 4) = (/ &
+        & 0.60735e-13_rb,0.75667e-13_rb,0.91265e-13_rb,0.10718e-12_rb,0.12346e-12_rb /)
+      kbo(:,58, 4) = (/ &
+        & 0.46331e-13_rb,0.58316e-13_rb,0.71018e-13_rb,0.83950e-13_rb,0.97215e-13_rb /)
+      kbo(:,59, 4) = (/ &
+        & 0.36896e-13_rb,0.46643e-13_rb,0.57036e-13_rb,0.67613e-13_rb,0.78545e-13_rb /)
+      kbo(:,13, 5) = (/ &
+        & 0.26254e-08_rb,0.28627e-08_rb,0.30909e-08_rb,0.33000e-08_rb,0.34892e-08_rb /)
+      kbo(:,14, 5) = (/ &
+        & 0.21830e-08_rb,0.23794e-08_rb,0.25635e-08_rb,0.27354e-08_rb,0.28987e-08_rb /)
+      kbo(:,15, 5) = (/ &
+        & 0.18164e-08_rb,0.19772e-08_rb,0.21299e-08_rb,0.22819e-08_rb,0.24177e-08_rb /)
+      kbo(:,16, 5) = (/ &
+        & 0.15141e-08_rb,0.16500e-08_rb,0.17819e-08_rb,0.19057e-08_rb,0.20139e-08_rb /)
+      kbo(:,17, 5) = (/ &
+        & 0.12644e-08_rb,0.13791e-08_rb,0.14854e-08_rb,0.15868e-08_rb,0.16779e-08_rb /)
+      kbo(:,18, 5) = (/ &
+        & 0.10569e-08_rb,0.11490e-08_rb,0.12387e-08_rb,0.13249e-08_rb,0.14004e-08_rb /)
+      kbo(:,19, 5) = (/ &
+        & 0.88077e-09_rb,0.95771e-09_rb,0.10342e-08_rb,0.11045e-08_rb,0.11654e-08_rb /)
+      kbo(:,20, 5) = (/ &
+        & 0.73433e-09_rb,0.79954e-09_rb,0.86343e-09_rb,0.92049e-09_rb,0.97111e-09_rb /)
+      kbo(:,21, 5) = (/ &
+        & 0.61317e-09_rb,0.66751e-09_rb,0.72065e-09_rb,0.76613e-09_rb,0.80891e-09_rb /)
+      kbo(:,22, 5) = (/ &
+        & 0.51519e-09_rb,0.56066e-09_rb,0.60290e-09_rb,0.64113e-09_rb,0.67719e-09_rb /)
+      kbo(:,23, 5) = (/ &
+        & 0.43331e-09_rb,0.47103e-09_rb,0.50532e-09_rb,0.53747e-09_rb,0.56589e-09_rb /)
+      kbo(:,24, 5) = (/ &
+        & 0.36478e-09_rb,0.39531e-09_rb,0.42421e-09_rb,0.45023e-09_rb,0.47333e-09_rb /)
+      kbo(:,25, 5) = (/ &
+        & 0.30661e-09_rb,0.33249e-09_rb,0.35642e-09_rb,0.37711e-09_rb,0.39645e-09_rb /)
+      kbo(:,26, 5) = (/ &
+        & 0.25851e-09_rb,0.28030e-09_rb,0.29893e-09_rb,0.31621e-09_rb,0.33249e-09_rb /)
+      kbo(:,27, 5) = (/ &
+        & 0.21849e-09_rb,0.23581e-09_rb,0.25124e-09_rb,0.26548e-09_rb,0.27889e-09_rb /)
+      kbo(:,28, 5) = (/ &
+        & 0.18476e-09_rb,0.19866e-09_rb,0.21115e-09_rb,0.22285e-09_rb,0.23419e-09_rb /)
+      kbo(:,29, 5) = (/ &
+        & 0.15608e-09_rb,0.16725e-09_rb,0.17764e-09_rb,0.18744e-09_rb,0.19627e-09_rb /)
+      kbo(:,30, 5) = (/ &
+        & 0.13180e-09_rb,0.14084e-09_rb,0.14944e-09_rb,0.15734e-09_rb,0.16419e-09_rb /)
+      kbo(:,31, 5) = (/ &
+        & 0.11122e-09_rb,0.11878e-09_rb,0.12548e-09_rb,0.13183e-09_rb,0.13690e-09_rb /)
+      kbo(:,32, 5) = (/ &
+        & 0.93806e-10_rb,0.99909e-10_rb,0.10547e-09_rb,0.11013e-09_rb,0.11393e-09_rb /)
+      kbo(:,33, 5) = (/ &
+        & 0.79057e-10_rb,0.83869e-10_rb,0.88337e-10_rb,0.91833e-10_rb,0.94728e-10_rb /)
+      kbo(:,34, 5) = (/ &
+        & 0.66383e-10_rb,0.70216e-10_rb,0.73644e-10_rb,0.76467e-10_rb,0.78589e-10_rb /)
+      kbo(:,35, 5) = (/ &
+        & 0.55303e-10_rb,0.58435e-10_rb,0.61122e-10_rb,0.63317e-10_rb,0.64984e-10_rb /)
+      kbo(:,36, 5) = (/ &
+        & 0.45788e-10_rb,0.48318e-10_rb,0.50463e-10_rb,0.52237e-10_rb,0.53589e-10_rb /)
+      kbo(:,37, 5) = (/ &
+        & 0.37517e-10_rb,0.39593e-10_rb,0.41407e-10_rb,0.42883e-10_rb,0.44012e-10_rb /)
+      kbo(:,38, 5) = (/ &
+        & 0.30717e-10_rb,0.32436e-10_rb,0.33950e-10_rb,0.35197e-10_rb,0.36146e-10_rb /)
+      kbo(:,39, 5) = (/ &
+        & 0.25129e-10_rb,0.26560e-10_rb,0.27827e-10_rb,0.28835e-10_rb,0.29676e-10_rb /)
+      kbo(:,40, 5) = (/ &
+        & 0.20420e-10_rb,0.21620e-10_rb,0.22699e-10_rb,0.23564e-10_rb,0.24290e-10_rb /)
+      kbo(:,41, 5) = (/ &
+        & 0.16561e-10_rb,0.17583e-10_rb,0.18496e-10_rb,0.19245e-10_rb,0.19868e-10_rb /)
+      kbo(:,42, 5) = (/ &
+        & 0.13418e-10_rb,0.14291e-10_rb,0.15059e-10_rb,0.15706e-10_rb,0.16243e-10_rb /)
+      kbo(:,43, 5) = (/ &
+        & 0.10810e-10_rb,0.11562e-10_rb,0.12210e-10_rb,0.12774e-10_rb,0.13223e-10_rb /)
+      kbo(:,44, 5) = (/ &
+        & 0.86843e-11_rb,0.93265e-11_rb,0.98789e-11_rb,0.10369e-10_rb,0.10770e-10_rb /)
+      kbo(:,45, 5) = (/ &
+        & 0.69593e-11_rb,0.75111e-11_rb,0.79891e-11_rb,0.84084e-11_rb,0.87638e-11_rb /)
+      kbo(:,46, 5) = (/ &
+        & 0.55576e-11_rb,0.60308e-11_rb,0.64400e-11_rb,0.68030e-11_rb,0.71149e-11_rb /)
+      kbo(:,47, 5) = (/ &
+        & 0.44097e-11_rb,0.48155e-11_rb,0.51709e-11_rb,0.54794e-11_rb,0.57570e-11_rb /)
+      kbo(:,48, 5) = (/ &
+        & 0.34877e-11_rb,0.38384e-11_rb,0.41433e-11_rb,0.44120e-11_rb,0.46521e-11_rb /)
+      kbo(:,49, 5) = (/ &
+        & 0.27512e-11_rb,0.30491e-11_rb,0.33123e-11_rb,0.35456e-11_rb,0.37509e-11_rb /)
+      kbo(:,50, 5) = (/ &
+        & 0.21734e-11_rb,0.24185e-11_rb,0.26481e-11_rb,0.28485e-11_rb,0.30236e-11_rb /)
+      kbo(:,51, 5) = (/ &
+        & 0.17150e-11_rb,0.19185e-11_rb,0.21147e-11_rb,0.22857e-11_rb,0.24371e-11_rb /)
+      kbo(:,52, 5) = (/ &
+        & 0.13499e-11_rb,0.15196e-11_rb,0.16853e-11_rb,0.18315e-11_rb,0.19613e-11_rb /)
+      kbo(:,53, 5) = (/ &
+        & 0.10590e-11_rb,0.11989e-11_rb,0.13374e-11_rb,0.14641e-11_rb,0.15756e-11_rb /)
+      kbo(:,54, 5) = (/ &
+        & 0.83182e-12_rb,0.94832e-12_rb,0.10625e-11_rb,0.11713e-11_rb,0.12669e-11_rb /)
+      kbo(:,55, 5) = (/ &
+        & 0.65257e-12_rb,0.74992e-12_rb,0.84445e-12_rb,0.93664e-12_rb,0.10175e-11_rb /)
+      kbo(:,56, 5) = (/ &
+        & 0.51109e-12_rb,0.59162e-12_rb,0.67030e-12_rb,0.74706e-12_rb,0.81634e-12_rb /)
+      kbo(:,57, 5) = (/ &
+        & 0.39868e-12_rb,0.46532e-12_rb,0.53042e-12_rb,0.59449e-12_rb,0.65374e-12_rb /)
+      kbo(:,58, 5) = (/ &
+        & 0.31062e-12_rb,0.36629e-12_rb,0.42009e-12_rb,0.47298e-12_rb,0.52357e-12_rb /)
+      kbo(:,59, 5) = (/ &
+        & 0.24996e-12_rb,0.29597e-12_rb,0.34052e-12_rb,0.38403e-12_rb,0.42584e-12_rb /)
+      kbo(:,13, 6) = (/ &
+        & 0.10275e-07_rb,0.10425e-07_rb,0.10505e-07_rb,0.10571e-07_rb,0.10619e-07_rb /)
+      kbo(:,14, 6) = (/ &
+        & 0.84309e-08_rb,0.85528e-08_rb,0.86280e-08_rb,0.86935e-08_rb,0.87236e-08_rb /)
+      kbo(:,15, 6) = (/ &
+        & 0.69259e-08_rb,0.70218e-08_rb,0.71031e-08_rb,0.71419e-08_rb,0.71430e-08_rb /)
+      kbo(:,16, 6) = (/ &
+        & 0.56933e-08_rb,0.57765e-08_rb,0.58298e-08_rb,0.58527e-08_rb,0.58704e-08_rb /)
+      kbo(:,17, 6) = (/ &
+        & 0.46880e-08_rb,0.47555e-08_rb,0.47985e-08_rb,0.48270e-08_rb,0.48471e-08_rb /)
+      kbo(:,18, 6) = (/ &
+        & 0.38628e-08_rb,0.39183e-08_rb,0.39591e-08_rb,0.39923e-08_rb,0.40106e-08_rb /)
+      kbo(:,19, 6) = (/ &
+        & 0.31833e-08_rb,0.32370e-08_rb,0.32750e-08_rb,0.32992e-08_rb,0.33139e-08_rb /)
+      kbo(:,20, 6) = (/ &
+        & 0.26315e-08_rb,0.26765e-08_rb,0.27033e-08_rb,0.27208e-08_rb,0.27412e-08_rb /)
+      kbo(:,21, 6) = (/ &
+        & 0.21768e-08_rb,0.22074e-08_rb,0.22281e-08_rb,0.22492e-08_rb,0.22648e-08_rb /)
+      kbo(:,22, 6) = (/ &
+        & 0.17970e-08_rb,0.18204e-08_rb,0.18421e-08_rb,0.18603e-08_rb,0.18697e-08_rb /)
+      kbo(:,23, 6) = (/ &
+        & 0.14828e-08_rb,0.15043e-08_rb,0.15235e-08_rb,0.15373e-08_rb,0.15469e-08_rb /)
+      kbo(:,24, 6) = (/ &
+        & 0.12265e-08_rb,0.12457e-08_rb,0.12602e-08_rb,0.12704e-08_rb,0.12795e-08_rb /)
+      kbo(:,25, 6) = (/ &
+        & 0.10153e-08_rb,0.10303e-08_rb,0.10406e-08_rb,0.10511e-08_rb,0.10591e-08_rb /)
+      kbo(:,26, 6) = (/ &
+        & 0.84067e-09_rb,0.85220e-09_rb,0.86139e-09_rb,0.87145e-09_rb,0.87606e-09_rb /)
+      kbo(:,27, 6) = (/ &
+        & 0.69556e-09_rb,0.70441e-09_rb,0.71396e-09_rb,0.72098e-09_rb,0.72486e-09_rb /)
+      kbo(:,28, 6) = (/ &
+        & 0.57505e-09_rb,0.58326e-09_rb,0.59186e-09_rb,0.59662e-09_rb,0.60056e-09_rb /)
+      kbo(:,29, 6) = (/ &
+        & 0.47621e-09_rb,0.48459e-09_rb,0.49079e-09_rb,0.49432e-09_rb,0.49717e-09_rb /)
+      kbo(:,30, 6) = (/ &
+        & 0.39513e-09_rb,0.40232e-09_rb,0.40640e-09_rb,0.40995e-09_rb,0.41263e-09_rb /)
+      kbo(:,31, 6) = (/ &
+        & 0.32890e-09_rb,0.33390e-09_rb,0.33797e-09_rb,0.34036e-09_rb,0.34440e-09_rb /)
+      kbo(:,32, 6) = (/ &
+        & 0.27372e-09_rb,0.27757e-09_rb,0.28057e-09_rb,0.28360e-09_rb,0.28668e-09_rb /)
+      kbo(:,33, 6) = (/ &
+        & 0.22771e-09_rb,0.23074e-09_rb,0.23349e-09_rb,0.23595e-09_rb,0.23797e-09_rb /)
+      kbo(:,34, 6) = (/ &
+        & 0.18899e-09_rb,0.19179e-09_rb,0.19391e-09_rb,0.19591e-09_rb,0.19720e-09_rb /)
+      kbo(:,35, 6) = (/ &
+        & 0.15677e-09_rb,0.15897e-09_rb,0.16075e-09_rb,0.16219e-09_rb,0.16318e-09_rb /)
+      kbo(:,36, 6) = (/ &
+        & 0.12972e-09_rb,0.13147e-09_rb,0.13291e-09_rb,0.13412e-09_rb,0.13484e-09_rb /)
+      kbo(:,37, 6) = (/ &
+        & 0.10704e-09_rb,0.10855e-09_rb,0.10970e-09_rb,0.11065e-09_rb,0.11129e-09_rb /)
+      kbo(:,38, 6) = (/ &
+        & 0.88219e-10_rb,0.89571e-10_rb,0.90489e-10_rb,0.91263e-10_rb,0.91821e-10_rb /)
+      kbo(:,39, 6) = (/ &
+        & 0.72709e-10_rb,0.73884e-10_rb,0.74615e-10_rb,0.75144e-10_rb,0.75719e-10_rb /)
+      kbo(:,40, 6) = (/ &
+        & 0.59779e-10_rb,0.60793e-10_rb,0.61424e-10_rb,0.61873e-10_rb,0.62379e-10_rb /)
+      kbo(:,41, 6) = (/ &
+        & 0.49104e-10_rb,0.49999e-10_rb,0.50541e-10_rb,0.50924e-10_rb,0.51369e-10_rb /)
+      kbo(:,42, 6) = (/ &
+        & 0.40324e-10_rb,0.41079e-10_rb,0.41584e-10_rb,0.41914e-10_rb,0.42279e-10_rb /)
+      kbo(:,43, 6) = (/ &
+        & 0.33050e-10_rb,0.33695e-10_rb,0.34173e-10_rb,0.34462e-10_rb,0.34716e-10_rb /)
+      kbo(:,44, 6) = (/ &
+        & 0.27054e-10_rb,0.27604e-10_rb,0.28056e-10_rb,0.28313e-10_rb,0.28542e-10_rb /)
+      kbo(:,45, 6) = (/ &
+        & 0.22112e-10_rb,0.22613e-10_rb,0.23018e-10_rb,0.23255e-10_rb,0.23441e-10_rb /)
+      kbo(:,46, 6) = (/ &
+        & 0.18060e-10_rb,0.18501e-10_rb,0.18867e-10_rb,0.19082e-10_rb,0.19252e-10_rb /)
+      kbo(:,47, 6) = (/ &
+        & 0.14722e-10_rb,0.15111e-10_rb,0.15432e-10_rb,0.15658e-10_rb,0.15802e-10_rb /)
+      kbo(:,48, 6) = (/ &
+        & 0.11985e-10_rb,0.12318e-10_rb,0.12624e-10_rb,0.12826e-10_rb,0.12965e-10_rb /)
+      kbo(:,49, 6) = (/ &
+        & 0.97421e-11_rb,0.10040e-10_rb,0.10306e-10_rb,0.10499e-10_rb,0.10630e-10_rb /)
+      kbo(:,50, 6) = (/ &
+        & 0.79055e-11_rb,0.81823e-11_rb,0.84121e-11_rb,0.85902e-11_rb,0.87163e-11_rb /)
+      kbo(:,51, 6) = (/ &
+        & 0.64164e-11_rb,0.66612e-11_rb,0.68621e-11_rb,0.70240e-11_rb,0.71428e-11_rb /)
+      kbo(:,52, 6) = (/ &
+        & 0.51935e-11_rb,0.54159e-11_rb,0.55861e-11_rb,0.57406e-11_rb,0.58465e-11_rb /)
+      kbo(:,53, 6) = (/ &
+        & 0.42017e-11_rb,0.43985e-11_rb,0.45525e-11_rb,0.46862e-11_rb,0.47817e-11_rb /)
+      kbo(:,54, 6) = (/ &
+        & 0.33953e-11_rb,0.35701e-11_rb,0.37080e-11_rb,0.38204e-11_rb,0.39118e-11_rb /)
+      kbo(:,55, 6) = (/ &
+        & 0.27420e-11_rb,0.28948e-11_rb,0.30166e-11_rb,0.31148e-11_rb,0.31981e-11_rb /)
+      kbo(:,56, 6) = (/ &
+        & 0.22097e-11_rb,0.23440e-11_rb,0.24518e-11_rb,0.25378e-11_rb,0.26122e-11_rb /)
+      kbo(:,57, 6) = (/ &
+        & 0.17765e-11_rb,0.18968e-11_rb,0.19913e-11_rb,0.20659e-11_rb,0.21319e-11_rb /)
+      kbo(:,58, 6) = (/ &
+        & 0.14264e-11_rb,0.15324e-11_rb,0.16166e-11_rb,0.16816e-11_rb,0.17374e-11_rb /)
+      kbo(:,59, 6) = (/ &
+        & 0.11621e-11_rb,0.12515e-11_rb,0.13230e-11_rb,0.13773e-11_rb,0.14240e-11_rb /)
+      kbo(:,13, 7) = (/ &
+        & 0.28079e-07_rb,0.28035e-07_rb,0.27949e-07_rb,0.27835e-07_rb,0.27661e-07_rb /)
+      kbo(:,14, 7) = (/ &
+        & 0.23041e-07_rb,0.22982e-07_rb,0.22914e-07_rb,0.22814e-07_rb,0.22653e-07_rb /)
+      kbo(:,15, 7) = (/ &
+        & 0.18899e-07_rb,0.18860e-07_rb,0.18790e-07_rb,0.18675e-07_rb,0.18596e-07_rb /)
+      kbo(:,16, 7) = (/ &
+        & 0.15489e-07_rb,0.15457e-07_rb,0.15389e-07_rb,0.15337e-07_rb,0.15329e-07_rb /)
+      kbo(:,17, 7) = (/ &
+        & 0.12699e-07_rb,0.12665e-07_rb,0.12634e-07_rb,0.12640e-07_rb,0.12612e-07_rb /)
+      kbo(:,18, 7) = (/ &
+        & 0.10409e-07_rb,0.10397e-07_rb,0.10401e-07_rb,0.10391e-07_rb,0.10368e-07_rb /)
+      kbo(:,19, 7) = (/ &
+        & 0.85482e-08_rb,0.85403e-08_rb,0.85408e-08_rb,0.85379e-08_rb,0.85325e-08_rb /)
+      kbo(:,20, 7) = (/ &
+        & 0.70183e-08_rb,0.70212e-08_rb,0.70225e-08_rb,0.70232e-08_rb,0.70243e-08_rb /)
+      kbo(:,21, 7) = (/ &
+        & 0.57704e-08_rb,0.57836e-08_rb,0.57919e-08_rb,0.57990e-08_rb,0.58135e-08_rb /)
+      kbo(:,22, 7) = (/ &
+        & 0.47522e-08_rb,0.47673e-08_rb,0.47834e-08_rb,0.48084e-08_rb,0.48239e-08_rb /)
+      kbo(:,23, 7) = (/ &
+        & 0.39186e-08_rb,0.39439e-08_rb,0.39679e-08_rb,0.39863e-08_rb,0.40063e-08_rb /)
+      kbo(:,24, 7) = (/ &
+        & 0.32407e-08_rb,0.32645e-08_rb,0.32840e-08_rb,0.33039e-08_rb,0.33353e-08_rb /)
+      kbo(:,25, 7) = (/ &
+        & 0.26846e-08_rb,0.27012e-08_rb,0.27199e-08_rb,0.27477e-08_rb,0.27761e-08_rb /)
+      kbo(:,26, 7) = (/ &
+        & 0.22196e-08_rb,0.22367e-08_rb,0.22646e-08_rb,0.22896e-08_rb,0.23141e-08_rb /)
+      kbo(:,27, 7) = (/ &
+        & 0.18370e-08_rb,0.18616e-08_rb,0.18864e-08_rb,0.19087e-08_rb,0.19319e-08_rb /)
+      kbo(:,28, 7) = (/ &
+        & 0.15259e-08_rb,0.15495e-08_rb,0.15695e-08_rb,0.15912e-08_rb,0.16152e-08_rb /)
+      kbo(:,29, 7) = (/ &
+        & 0.12717e-08_rb,0.12907e-08_rb,0.13087e-08_rb,0.13304e-08_rb,0.13523e-08_rb /)
+      kbo(:,30, 7) = (/ &
+        & 0.10599e-08_rb,0.10765e-08_rb,0.10939e-08_rb,0.11139e-08_rb,0.11374e-08_rb /)
+      kbo(:,31, 7) = (/ &
+        & 0.88411e-09_rb,0.89833e-09_rb,0.91628e-09_rb,0.93662e-09_rb,0.95540e-09_rb /)
+      kbo(:,32, 7) = (/ &
+        & 0.73723e-09_rb,0.75198e-09_rb,0.77042e-09_rb,0.78608e-09_rb,0.80601e-09_rb /)
+      kbo(:,33, 7) = (/ &
+        & 0.61511e-09_rb,0.63161e-09_rb,0.64646e-09_rb,0.66232e-09_rb,0.68095e-09_rb /)
+      kbo(:,34, 7) = (/ &
+        & 0.51621e-09_rb,0.53001e-09_rb,0.54332e-09_rb,0.55986e-09_rb,0.57326e-09_rb /)
+      kbo(:,35, 7) = (/ &
+        & 0.43217e-09_rb,0.44439e-09_rb,0.45713e-09_rb,0.47103e-09_rb,0.48242e-09_rb /)
+      kbo(:,36, 7) = (/ &
+        & 0.36090e-09_rb,0.37166e-09_rb,0.38311e-09_rb,0.39461e-09_rb,0.40545e-09_rb /)
+      kbo(:,37, 7) = (/ &
+        & 0.29990e-09_rb,0.30916e-09_rb,0.31937e-09_rb,0.32943e-09_rb,0.34038e-09_rb /)
+      kbo(:,38, 7) = (/ &
+        & 0.24927e-09_rb,0.25737e-09_rb,0.26638e-09_rb,0.27543e-09_rb,0.28596e-09_rb /)
+      kbo(:,39, 7) = (/ &
+        & 0.20718e-09_rb,0.21434e-09_rb,0.22203e-09_rb,0.23026e-09_rb,0.23966e-09_rb /)
+      kbo(:,40, 7) = (/ &
+        & 0.17122e-09_rb,0.17745e-09_rb,0.18425e-09_rb,0.19138e-09_rb,0.19937e-09_rb /)
+      kbo(:,41, 7) = (/ &
+        & 0.14145e-09_rb,0.14673e-09_rb,0.15273e-09_rb,0.15885e-09_rb,0.16544e-09_rb /)
+      kbo(:,42, 7) = (/ &
+        & 0.11673e-09_rb,0.12130e-09_rb,0.12626e-09_rb,0.13156e-09_rb,0.13718e-09_rb /)
+      kbo(:,43, 7) = (/ &
+        & 0.95979e-10_rb,0.99773e-10_rb,0.10407e-09_rb,0.10848e-09_rb,0.11289e-09_rb /)
+      kbo(:,44, 7) = (/ &
+        & 0.78684e-10_rb,0.81894e-10_rb,0.85476e-10_rb,0.89249e-10_rb,0.92971e-10_rb /)
+      kbo(:,45, 7) = (/ &
+        & 0.64482e-10_rb,0.67161e-10_rb,0.70163e-10_rb,0.73315e-10_rb,0.76486e-10_rb /)
+      kbo(:,46, 7) = (/ &
+        & 0.52720e-10_rb,0.54998e-10_rb,0.57509e-10_rb,0.60128e-10_rb,0.62787e-10_rb /)
+      kbo(:,47, 7) = (/ &
+        & 0.42902e-10_rb,0.44887e-10_rb,0.46948e-10_rb,0.49098e-10_rb,0.51392e-10_rb /)
+      kbo(:,48, 7) = (/ &
+        & 0.34914e-10_rb,0.36612e-10_rb,0.38268e-10_rb,0.40114e-10_rb,0.41998e-10_rb /)
+      kbo(:,49, 7) = (/ &
+        & 0.28363e-10_rb,0.29830e-10_rb,0.31160e-10_rb,0.32712e-10_rb,0.34278e-10_rb /)
+      kbo(:,50, 7) = (/ &
+        & 0.23044e-10_rb,0.24298e-10_rb,0.25411e-10_rb,0.26663e-10_rb,0.27956e-10_rb /)
+      kbo(:,51, 7) = (/ &
+        & 0.18719e-10_rb,0.19762e-10_rb,0.20717e-10_rb,0.21748e-10_rb,0.22834e-10_rb /)
+      kbo(:,52, 7) = (/ &
+        & 0.15214e-10_rb,0.16060e-10_rb,0.16882e-10_rb,0.17722e-10_rb,0.18609e-10_rb /)
+      kbo(:,53, 7) = (/ &
+        & 0.12339e-10_rb,0.13039e-10_rb,0.13738e-10_rb,0.14413e-10_rb,0.15144e-10_rb /)
+      kbo(:,54, 7) = (/ &
+        & 0.10028e-10_rb,0.10589e-10_rb,0.11176e-10_rb,0.11743e-10_rb,0.12340e-10_rb /)
+      kbo(:,55, 7) = (/ &
+        & 0.81332e-11_rb,0.85988e-11_rb,0.90904e-11_rb,0.95545e-11_rb,0.10057e-10_rb /)
+      kbo(:,56, 7) = (/ &
+        & 0.66047e-11_rb,0.69777e-11_rb,0.73796e-11_rb,0.77755e-11_rb,0.81880e-11_rb /)
+      kbo(:,57, 7) = (/ &
+        & 0.53536e-11_rb,0.56554e-11_rb,0.59940e-11_rb,0.63232e-11_rb,0.66612e-11_rb /)
+      kbo(:,58, 7) = (/ &
+        & 0.43329e-11_rb,0.45903e-11_rb,0.48661e-11_rb,0.51412e-11_rb,0.54200e-11_rb /)
+      kbo(:,59, 7) = (/ &
+        & 0.35522e-11_rb,0.37646e-11_rb,0.39940e-11_rb,0.42211e-11_rb,0.44525e-11_rb /)
+      kbo(:,13, 8) = (/ &
+        & 0.11230e-06_rb,0.11409e-06_rb,0.11566e-06_rb,0.11672e-06_rb,0.11734e-06_rb /)
+      kbo(:,14, 8) = (/ &
+        & 0.92428e-07_rb,0.93878e-07_rb,0.95014e-07_rb,0.95711e-07_rb,0.96110e-07_rb /)
+      kbo(:,15, 8) = (/ &
+        & 0.76021e-07_rb,0.77148e-07_rb,0.77913e-07_rb,0.78505e-07_rb,0.78756e-07_rb /)
+      kbo(:,16, 8) = (/ &
+        & 0.62512e-07_rb,0.63402e-07_rb,0.63979e-07_rb,0.64292e-07_rb,0.64352e-07_rb /)
+      kbo(:,17, 8) = (/ &
+        & 0.51480e-07_rb,0.52099e-07_rb,0.52465e-07_rb,0.52634e-07_rb,0.52753e-07_rb /)
+      kbo(:,18, 8) = (/ &
+        & 0.42336e-07_rb,0.42773e-07_rb,0.43015e-07_rb,0.43145e-07_rb,0.43290e-07_rb /)
+      kbo(:,19, 8) = (/ &
+        & 0.34820e-07_rb,0.35138e-07_rb,0.35326e-07_rb,0.35465e-07_rb,0.35546e-07_rb /)
+      kbo(:,20, 8) = (/ &
+        & 0.28634e-07_rb,0.28882e-07_rb,0.29099e-07_rb,0.29190e-07_rb,0.29248e-07_rb /)
+      kbo(:,21, 8) = (/ &
+        & 0.23527e-07_rb,0.23767e-07_rb,0.23879e-07_rb,0.24001e-07_rb,0.24136e-07_rb /)
+      kbo(:,22, 8) = (/ &
+        & 0.19380e-07_rb,0.19526e-07_rb,0.19668e-07_rb,0.19823e-07_rb,0.20000e-07_rb /)
+      kbo(:,23, 8) = (/ &
+        & 0.15955e-07_rb,0.16103e-07_rb,0.16252e-07_rb,0.16425e-07_rb,0.16561e-07_rb /)
+      kbo(:,24, 8) = (/ &
+        & 0.13163e-07_rb,0.13294e-07_rb,0.13466e-07_rb,0.13609e-07_rb,0.13701e-07_rb /)
+      kbo(:,25, 8) = (/ &
+        & 0.10863e-07_rb,0.11029e-07_rb,0.11155e-07_rb,0.11256e-07_rb,0.11368e-07_rb /)
+      kbo(:,26, 8) = (/ &
+        & 0.90043e-08_rb,0.91173e-08_rb,0.92226e-08_rb,0.93261e-08_rb,0.94322e-08_rb /)
+      kbo(:,27, 8) = (/ &
+        & 0.74604e-08_rb,0.75548e-08_rb,0.76410e-08_rb,0.77390e-08_rb,0.78488e-08_rb /)
+      kbo(:,28, 8) = (/ &
+        & 0.61944e-08_rb,0.62754e-08_rb,0.63658e-08_rb,0.64728e-08_rb,0.65523e-08_rb /)
+      kbo(:,29, 8) = (/ &
+        & 0.51553e-08_rb,0.52390e-08_rb,0.53444e-08_rb,0.54244e-08_rb,0.55104e-08_rb /)
+      kbo(:,30, 8) = (/ &
+        & 0.43022e-08_rb,0.44056e-08_rb,0.44906e-08_rb,0.45753e-08_rb,0.46815e-08_rb /)
+      kbo(:,31, 8) = (/ &
+        & 0.36260e-08_rb,0.37147e-08_rb,0.37854e-08_rb,0.38857e-08_rb,0.39725e-08_rb /)
+      kbo(:,32, 8) = (/ &
+        & 0.30574e-08_rb,0.31222e-08_rb,0.32149e-08_rb,0.32959e-08_rb,0.33679e-08_rb /)
+      kbo(:,33, 8) = (/ &
+        & 0.25690e-08_rb,0.26475e-08_rb,0.27306e-08_rb,0.27942e-08_rb,0.28607e-08_rb /)
+      kbo(:,34, 8) = (/ &
+        & 0.21739e-08_rb,0.22522e-08_rb,0.23131e-08_rb,0.23724e-08_rb,0.24398e-08_rb /)
+      kbo(:,35, 8) = (/ &
+        & 0.18403e-08_rb,0.19033e-08_rb,0.19580e-08_rb,0.20191e-08_rb,0.20792e-08_rb /)
+      kbo(:,36, 8) = (/ &
+        & 0.15538e-08_rb,0.16068e-08_rb,0.16535e-08_rb,0.17159e-08_rb,0.17681e-08_rb /)
+      kbo(:,37, 8) = (/ &
+        & 0.13002e-08_rb,0.13483e-08_rb,0.13923e-08_rb,0.14493e-08_rb,0.14927e-08_rb /)
+      kbo(:,38, 8) = (/ &
+        & 0.10893e-08_rb,0.11319e-08_rb,0.11765e-08_rb,0.12253e-08_rb,0.12624e-08_rb /)
+      kbo(:,39, 8) = (/ &
+        & 0.91348e-09_rb,0.95067e-09_rb,0.99134e-09_rb,0.10293e-08_rb,0.10668e-08_rb /)
+      kbo(:,40, 8) = (/ &
+        & 0.76170e-09_rb,0.79404e-09_rb,0.82953e-09_rb,0.86548e-09_rb,0.90041e-09_rb /)
+      kbo(:,41, 8) = (/ &
+        & 0.63292e-09_rb,0.66170e-09_rb,0.69363e-09_rb,0.72573e-09_rb,0.75710e-09_rb /)
+      kbo(:,42, 8) = (/ &
+        & 0.52609e-09_rb,0.55120e-09_rb,0.57974e-09_rb,0.60803e-09_rb,0.63636e-09_rb /)
+      kbo(:,43, 8) = (/ &
+        & 0.43444e-09_rb,0.45674e-09_rb,0.48206e-09_rb,0.50747e-09_rb,0.53053e-09_rb /)
+      kbo(:,44, 8) = (/ &
+        & 0.35755e-09_rb,0.37758e-09_rb,0.39965e-09_rb,0.42169e-09_rb,0.44276e-09_rb /)
+      kbo(:,45, 8) = (/ &
+        & 0.29410e-09_rb,0.31126e-09_rb,0.33079e-09_rb,0.35014e-09_rb,0.36874e-09_rb /)
+      kbo(:,46, 8) = (/ &
+        & 0.24113e-09_rb,0.25605e-09_rb,0.27273e-09_rb,0.28962e-09_rb,0.30646e-09_rb /)
+      kbo(:,47, 8) = (/ &
+        & 0.19675e-09_rb,0.20937e-09_rb,0.22390e-09_rb,0.23865e-09_rb,0.25330e-09_rb /)
+      kbo(:,48, 8) = (/ &
+        & 0.16029e-09_rb,0.17125e-09_rb,0.18339e-09_rb,0.19620e-09_rb,0.20918e-09_rb /)
+      kbo(:,49, 8) = (/ &
+        & 0.13018e-09_rb,0.13961e-09_rb,0.15020e-09_rb,0.16108e-09_rb,0.17231e-09_rb /)
+      kbo(:,50, 8) = (/ &
+        & 0.10559e-09_rb,0.11394e-09_rb,0.12271e-09_rb,0.13208e-09_rb,0.14200e-09_rb /)
+      kbo(:,51, 8) = (/ &
+        & 0.85569e-10_rb,0.92775e-10_rb,0.10011e-09_rb,0.10818e-09_rb,0.11665e-09_rb /)
+      kbo(:,52, 8) = (/ &
+        & 0.69342e-10_rb,0.75341e-10_rb,0.81596e-10_rb,0.88527e-10_rb,0.95876e-10_rb /)
+      kbo(:,53, 8) = (/ &
+        & 0.56003e-10_rb,0.61203e-10_rb,0.66389e-10_rb,0.72376e-10_rb,0.78642e-10_rb /)
+      kbo(:,54, 8) = (/ &
+        & 0.45380e-10_rb,0.49599e-10_rb,0.54006e-10_rb,0.59069e-10_rb,0.64380e-10_rb /)
+      kbo(:,55, 8) = (/ &
+        & 0.36637e-10_rb,0.40078e-10_rb,0.43990e-10_rb,0.48279e-10_rb,0.52815e-10_rb /)
+      kbo(:,56, 8) = (/ &
+        & 0.29596e-10_rb,0.32455e-10_rb,0.35694e-10_rb,0.39315e-10_rb,0.43169e-10_rb /)
+      kbo(:,57, 8) = (/ &
+        & 0.23911e-10_rb,0.26268e-10_rb,0.28916e-10_rb,0.31929e-10_rb,0.35182e-10_rb /)
+      kbo(:,58, 8) = (/ &
+        & 0.19299e-10_rb,0.21198e-10_rb,0.23407e-10_rb,0.25936e-10_rb,0.28689e-10_rb /)
+      kbo(:,59, 8) = (/ &
+        & 0.15839e-10_rb,0.17448e-10_rb,0.19334e-10_rb,0.21469e-10_rb,0.23829e-10_rb /)
+      kbo(:,13, 9) = (/ &
+        & 0.96471e-06_rb,0.97408e-06_rb,0.98436e-06_rb,0.99439e-06_rb,0.10050e-05_rb /)
+      kbo(:,14, 9) = (/ &
+        & 0.80904e-06_rb,0.81838e-06_rb,0.82742e-06_rb,0.83703e-06_rb,0.84742e-06_rb /)
+      kbo(:,15, 9) = (/ &
+        & 0.67733e-06_rb,0.68563e-06_rb,0.69403e-06_rb,0.70345e-06_rb,0.71287e-06_rb /)
+      kbo(:,16, 9) = (/ &
+        & 0.56582e-06_rb,0.57313e-06_rb,0.58159e-06_rb,0.59012e-06_rb,0.59880e-06_rb /)
+      kbo(:,17, 9) = (/ &
+        & 0.47164e-06_rb,0.47892e-06_rb,0.48671e-06_rb,0.49436e-06_rb,0.50258e-06_rb /)
+      kbo(:,18, 9) = (/ &
+        & 0.39308e-06_rb,0.39992e-06_rb,0.40685e-06_rb,0.41415e-06_rb,0.42143e-06_rb /)
+      kbo(:,19, 9) = (/ &
+        & 0.32764e-06_rb,0.33370e-06_rb,0.34000e-06_rb,0.34660e-06_rb,0.35294e-06_rb /)
+      kbo(:,20, 9) = (/ &
+        & 0.27304e-06_rb,0.27855e-06_rb,0.28433e-06_rb,0.29002e-06_rb,0.29550e-06_rb /)
+      kbo(:,21, 9) = (/ &
+        & 0.22762e-06_rb,0.23263e-06_rb,0.23776e-06_rb,0.24264e-06_rb,0.24751e-06_rb /)
+      kbo(:,22, 9) = (/ &
+        & 0.19016e-06_rb,0.19467e-06_rb,0.19902e-06_rb,0.20331e-06_rb,0.20743e-06_rb /)
+      kbo(:,23, 9) = (/ &
+        & 0.15902e-06_rb,0.16285e-06_rb,0.16664e-06_rb,0.17032e-06_rb,0.17381e-06_rb /)
+      kbo(:,24, 9) = (/ &
+        & 0.13300e-06_rb,0.13639e-06_rb,0.13965e-06_rb,0.14271e-06_rb,0.14575e-06_rb /)
+      kbo(:,25, 9) = (/ &
+        & 0.11136e-06_rb,0.11428e-06_rb,0.11705e-06_rb,0.11966e-06_rb,0.12234e-06_rb /)
+      kbo(:,26, 9) = (/ &
+        & 0.93355e-07_rb,0.95870e-07_rb,0.98179e-07_rb,0.10046e-06_rb,0.10295e-06_rb /)
+      kbo(:,27, 9) = (/ &
+        & 0.78546e-07_rb,0.80656e-07_rb,0.82694e-07_rb,0.84793e-07_rb,0.87129e-07_rb /)
+      kbo(:,28, 9) = (/ &
+        & 0.65991e-07_rb,0.67786e-07_rb,0.69602e-07_rb,0.71624e-07_rb,0.74063e-07_rb /)
+      kbo(:,29, 9) = (/ &
+        & 0.55459e-07_rb,0.56995e-07_rb,0.58695e-07_rb,0.60741e-07_rb,0.63281e-07_rb /)
+      kbo(:,30, 9) = (/ &
+        & 0.46750e-07_rb,0.48054e-07_rb,0.49703e-07_rb,0.51793e-07_rb,0.54403e-07_rb /)
+      kbo(:,31, 9) = (/ &
+        & 0.39452e-07_rb,0.40727e-07_rb,0.42319e-07_rb,0.44486e-07_rb,0.47323e-07_rb /)
+      kbo(:,32, 9) = (/ &
+        & 0.33473e-07_rb,0.34884e-07_rb,0.36502e-07_rb,0.38781e-07_rb,0.41735e-07_rb /)
+      kbo(:,33, 9) = (/ &
+        & 0.28581e-07_rb,0.30008e-07_rb,0.31748e-07_rb,0.34217e-07_rb,0.37511e-07_rb /)
+      kbo(:,34, 9) = (/ &
+        & 0.24450e-07_rb,0.25951e-07_rb,0.27867e-07_rb,0.30565e-07_rb,0.34125e-07_rb /)
+      kbo(:,35, 9) = (/ &
+        & 0.20942e-07_rb,0.22554e-07_rb,0.24574e-07_rb,0.27409e-07_rb,0.31159e-07_rb /)
+      kbo(:,36, 9) = (/ &
+        & 0.18081e-07_rb,0.19648e-07_rb,0.21657e-07_rb,0.24573e-07_rb,0.28429e-07_rb /)
+      kbo(:,37, 9) = (/ &
+        & 0.15436e-07_rb,0.16978e-07_rb,0.19037e-07_rb,0.21710e-07_rb,0.25509e-07_rb /)
+      kbo(:,38, 9) = (/ &
+        & 0.13187e-07_rb,0.14690e-07_rb,0.16738e-07_rb,0.19257e-07_rb,0.22992e-07_rb /)
+      kbo(:,39, 9) = (/ &
+        & 0.11282e-07_rb,0.12751e-07_rb,0.14794e-07_rb,0.17292e-07_rb,0.20852e-07_rb /)
+      kbo(:,40, 9) = (/ &
+        & 0.96293e-08_rb,0.10973e-07_rb,0.12917e-07_rb,0.15272e-07_rb,0.18582e-07_rb /)
+      kbo(:,41, 9) = (/ &
+        & 0.81770e-08_rb,0.94352e-08_rb,0.11220e-07_rb,0.13516e-07_rb,0.16546e-07_rb /)
+      kbo(:,42, 9) = (/ &
+        & 0.69323e-08_rb,0.80750e-08_rb,0.97479e-08_rb,0.11964e-07_rb,0.14736e-07_rb /)
+      kbo(:,43, 9) = (/ &
+        & 0.58312e-08_rb,0.68571e-08_rb,0.83595e-08_rb,0.10414e-07_rb,0.12928e-07_rb /)
+      kbo(:,44, 9) = (/ &
+        & 0.48754e-08_rb,0.58128e-08_rb,0.71504e-08_rb,0.90270e-08_rb,0.11362e-07_rb /)
+      kbo(:,45, 9) = (/ &
+        & 0.40522e-08_rb,0.48841e-08_rb,0.60765e-08_rb,0.77697e-08_rb,0.99439e-08_rb /)
+      kbo(:,46, 9) = (/ &
+        & 0.33429e-08_rb,0.40820e-08_rb,0.51038e-08_rb,0.66237e-08_rb,0.86427e-08_rb /)
+      kbo(:,47, 9) = (/ &
+        & 0.27297e-08_rb,0.33571e-08_rb,0.42806e-08_rb,0.55863e-08_rb,0.73605e-08_rb /)
+      kbo(:,48, 9) = (/ &
+        & 0.22143e-08_rb,0.27445e-08_rb,0.35414e-08_rb,0.46711e-08_rb,0.62204e-08_rb /)
+      kbo(:,49, 9) = (/ &
+        & 0.18030e-08_rb,0.22208e-08_rb,0.28995e-08_rb,0.38639e-08_rb,0.52216e-08_rb /)
+      kbo(:,50, 9) = (/ &
+        & 0.14670e-08_rb,0.18085e-08_rb,0.23853e-08_rb,0.32522e-08_rb,0.44284e-08_rb /)
+      kbo(:,51, 9) = (/ &
+        & 0.11873e-08_rb,0.14637e-08_rb,0.19592e-08_rb,0.27073e-08_rb,0.37306e-08_rb /)
+      kbo(:,52, 9) = (/ &
+        & 0.96876e-09_rb,0.11883e-08_rb,0.15881e-08_rb,0.22316e-08_rb,0.31252e-08_rb /)
+      kbo(:,53, 9) = (/ &
+        & 0.79526e-09_rb,0.95443e-09_rb,0.12843e-08_rb,0.18180e-08_rb,0.25992e-08_rb /)
+      kbo(:,54, 9) = (/ &
+        & 0.65045e-09_rb,0.77197e-09_rb,0.10500e-08_rb,0.14963e-08_rb,0.21953e-08_rb /)
+      kbo(:,55, 9) = (/ &
+        & 0.53001e-09_rb,0.62144e-09_rb,0.84441e-09_rb,0.12265e-08_rb,0.18415e-08_rb /)
+      kbo(:,56, 9) = (/ &
+        & 0.43274e-09_rb,0.50433e-09_rb,0.67633e-09_rb,0.10051e-08_rb,0.15294e-08_rb /)
+      kbo(:,57, 9) = (/ &
+        & 0.35151e-09_rb,0.40652e-09_rb,0.53819e-09_rb,0.80840e-09_rb,0.12530e-08_rb /)
+      kbo(:,58, 9) = (/ &
+        & 0.28511e-09_rb,0.33047e-09_rb,0.42809e-09_rb,0.65584e-09_rb,0.10383e-08_rb /)
+      kbo(:,59, 9) = (/ &
+        & 0.23557e-09_rb,0.27695e-09_rb,0.36588e-09_rb,0.57468e-09_rb,0.92796e-09_rb /)
+      kbo(:,13,10) = (/ &
+        & 0.49379e-05_rb,0.50469e-05_rb,0.51595e-05_rb,0.52778e-05_rb,0.54099e-05_rb /)
+      kbo(:,14,10) = (/ &
+        & 0.42812e-05_rb,0.43888e-05_rb,0.45022e-05_rb,0.46302e-05_rb,0.47669e-05_rb /)
+      kbo(:,15,10) = (/ &
+        & 0.36929e-05_rb,0.37965e-05_rb,0.39164e-05_rb,0.40454e-05_rb,0.41827e-05_rb /)
+      kbo(:,16,10) = (/ &
+        & 0.31721e-05_rb,0.32791e-05_rb,0.33975e-05_rb,0.35246e-05_rb,0.36634e-05_rb /)
+      kbo(:,17,10) = (/ &
+        & 0.27212e-05_rb,0.28264e-05_rb,0.29414e-05_rb,0.30666e-05_rb,0.32085e-05_rb /)
+      kbo(:,18,10) = (/ &
+        & 0.23339e-05_rb,0.24330e-05_rb,0.25438e-05_rb,0.26711e-05_rb,0.28184e-05_rb /)
+      kbo(:,19,10) = (/ &
+        & 0.19987e-05_rb,0.20932e-05_rb,0.22036e-05_rb,0.23332e-05_rb,0.24834e-05_rb /)
+      kbo(:,20,10) = (/ &
+        & 0.17132e-05_rb,0.18061e-05_rb,0.19176e-05_rb,0.20491e-05_rb,0.21989e-05_rb /)
+      kbo(:,21,10) = (/ &
+        & 0.14710e-05_rb,0.15640e-05_rb,0.16759e-05_rb,0.18061e-05_rb,0.19600e-05_rb /)
+      kbo(:,22,10) = (/ &
+        & 0.12737e-05_rb,0.13668e-05_rb,0.14788e-05_rb,0.16132e-05_rb,0.17763e-05_rb /)
+      kbo(:,23,10) = (/ &
+        & 0.11088e-05_rb,0.12015e-05_rb,0.13166e-05_rb,0.14583e-05_rb,0.16304e-05_rb /)
+      kbo(:,24,10) = (/ &
+        & 0.97145e-06_rb,0.10662e-05_rb,0.11867e-05_rb,0.13370e-05_rb,0.15170e-05_rb /)
+      kbo(:,25,10) = (/ &
+        & 0.85857e-06_rb,0.95791e-06_rb,0.10855e-05_rb,0.12438e-05_rb,0.14327e-05_rb /)
+      kbo(:,26,10) = (/ &
+        & 0.76914e-06_rb,0.87488e-06_rb,0.10107e-05_rb,0.11782e-05_rb,0.13762e-05_rb /)
+      kbo(:,27,10) = (/ &
+        & 0.69709e-06_rb,0.81000e-06_rb,0.95427e-06_rb,0.11311e-05_rb,0.13395e-05_rb /)
+      kbo(:,28,10) = (/ &
+        & 0.64352e-06_rb,0.76453e-06_rb,0.91846e-06_rb,0.11047e-05_rb,0.13225e-05_rb /)
+      kbo(:,29,10) = (/ &
+        & 0.60601e-06_rb,0.73668e-06_rb,0.90033e-06_rb,0.10967e-05_rb,0.13241e-05_rb /)
+      kbo(:,30,10) = (/ &
+        & 0.58144e-06_rb,0.72277e-06_rb,0.89681e-06_rb,0.11031e-05_rb,0.13400e-05_rb /)
+      kbo(:,31,10) = (/ &
+        & 0.57013e-06_rb,0.72161e-06_rb,0.90691e-06_rb,0.11230e-05_rb,0.13684e-05_rb /)
+      kbo(:,32,10) = (/ &
+        & 0.57021e-06_rb,0.73098e-06_rb,0.92629e-06_rb,0.11521e-05_rb,0.14071e-05_rb /)
+      kbo(:,33,10) = (/ &
+        & 0.58025e-06_rb,0.75106e-06_rb,0.95601e-06_rb,0.11909e-05_rb,0.14530e-05_rb /)
+      kbo(:,34,10) = (/ &
+        & 0.59352e-06_rb,0.77298e-06_rb,0.98581e-06_rb,0.12280e-05_rb,0.14964e-05_rb /)
+      kbo(:,35,10) = (/ &
+        & 0.59731e-06_rb,0.78147e-06_rb,0.99919e-06_rb,0.12457e-05_rb,0.15176e-05_rb /)
+      kbo(:,36,10) = (/ &
+        & 0.58516e-06_rb,0.77138e-06_rb,0.99076e-06_rb,0.12378e-05_rb,0.15105e-05_rb /)
+      kbo(:,37,10) = (/ &
+        & 0.55140e-06_rb,0.73346e-06_rb,0.94817e-06_rb,0.11937e-05_rb,0.14631e-05_rb /)
+      kbo(:,38,10) = (/ &
+        & 0.51916e-06_rb,0.69705e-06_rb,0.90723e-06_rb,0.11496e-05_rb,0.14156e-05_rb /)
+      kbo(:,39,10) = (/ &
+        & 0.48960e-06_rb,0.66318e-06_rb,0.86863e-06_rb,0.11068e-05_rb,0.13701e-05_rb /)
+      kbo(:,40,10) = (/ &
+        & 0.44595e-06_rb,0.61209e-06_rb,0.81011e-06_rb,0.10412e-05_rb,0.12987e-05_rb /)
+      kbo(:,41,10) = (/ &
+        & 0.40399e-06_rb,0.56185e-06_rb,0.75199e-06_rb,0.97449e-06_rb,0.12265e-05_rb /)
+      kbo(:,42,10) = (/ &
+        & 0.36503e-06_rb,0.51494e-06_rb,0.69685e-06_rb,0.91108e-06_rb,0.11565e-05_rb /)
+      kbo(:,43,10) = (/ &
+        & 0.32174e-06_rb,0.46170e-06_rb,0.63377e-06_rb,0.83820e-06_rb,0.10749e-05_rb /)
+      kbo(:,44,10) = (/ &
+        & 0.27930e-06_rb,0.40829e-06_rb,0.56968e-06_rb,0.76331e-06_rb,0.98961e-06_rb /)
+      kbo(:,45,10) = (/ &
+        & 0.24096e-06_rb,0.35938e-06_rb,0.50997e-06_rb,0.69291e-06_rb,0.90837e-06_rb /)
+      kbo(:,46,10) = (/ &
+        & 0.20431e-06_rb,0.31166e-06_rb,0.45096e-06_rb,0.62224e-06_rb,0.82595e-06_rb /)
+      kbo(:,47,10) = (/ &
+        & 0.16816e-06_rb,0.26359e-06_rb,0.38972e-06_rb,0.54827e-06_rb,0.73938e-06_rb /)
+      kbo(:,48,10) = (/ &
+        & 0.13670e-06_rb,0.22070e-06_rb,0.33435e-06_rb,0.47996e-06_rb,0.65830e-06_rb /)
+      kbo(:,49,10) = (/ &
+        & 0.10953e-06_rb,0.18282e-06_rb,0.28430e-06_rb,0.41725e-06_rb,0.58243e-06_rb /)
+      kbo(:,50,10) = (/ &
+        & 0.88267e-07_rb,0.15143e-06_rb,0.24199e-06_rb,0.36271e-06_rb,0.51595e-06_rb /)
+      kbo(:,51,10) = (/ &
+        & 0.70298e-07_rb,0.12484e-06_rb,0.20511e-06_rb,0.31462e-06_rb,0.45605e-06_rb /)
+      kbo(:,52,10) = (/ &
+        & 0.55131e-07_rb,0.10217e-06_rb,0.17234e-06_rb,0.27088e-06_rb,0.40072e-06_rb /)
+      kbo(:,53,10) = (/ &
+        & 0.43153e-07_rb,0.82195e-07_rb,0.14318e-06_rb,0.23139e-06_rb,0.34955e-06_rb /)
+      kbo(:,54,10) = (/ &
+        & 0.33903e-07_rb,0.66466e-07_rb,0.12020e-06_rb,0.19856e-06_rb,0.30630e-06_rb /)
+      kbo(:,55,10) = (/ &
+        & 0.26416e-07_rb,0.53605e-07_rb,0.10034e-06_rb,0.17017e-06_rb,0.26833e-06_rb /)
+      kbo(:,56,10) = (/ &
+        & 0.20206e-07_rb,0.42611e-07_rb,0.82928e-07_rb,0.14532e-06_rb,0.23365e-06_rb /)
+      kbo(:,57,10) = (/ &
+        & 0.15310e-07_rb,0.33413e-07_rb,0.67820e-07_rb,0.12262e-06_rb,0.20213e-06_rb /)
+      kbo(:,58,10) = (/ &
+        & 0.11722e-07_rb,0.26420e-07_rb,0.55414e-07_rb,0.10347e-06_rb,0.17567e-06_rb /)
+      kbo(:,59,10) = (/ &
+        & 0.10312e-07_rb,0.23851e-07_rb,0.50918e-07_rb,0.96421e-07_rb,0.16547e-06_rb /)
+      kbo(:,13,11) = (/ &
+        & 0.10213e-04_rb,0.10492e-04_rb,0.10768e-04_rb,0.11052e-04_rb,0.11341e-04_rb /)
+      kbo(:,14,11) = (/ &
+        & 0.92065e-05_rb,0.95170e-05_rb,0.98374e-05_rb,0.10166e-04_rb,0.10515e-04_rb /)
+      kbo(:,15,11) = (/ &
+        & 0.82447e-05_rb,0.85845e-05_rb,0.89388e-05_rb,0.93243e-05_rb,0.97313e-05_rb /)
+      kbo(:,16,11) = (/ &
+        & 0.73562e-05_rb,0.77204e-05_rb,0.81177e-05_rb,0.85472e-05_rb,0.89941e-05_rb /)
+      kbo(:,17,11) = (/ &
+        & 0.65534e-05_rb,0.69440e-05_rb,0.73753e-05_rb,0.78408e-05_rb,0.83202e-05_rb /)
+      kbo(:,18,11) = (/ &
+        & 0.58421e-05_rb,0.62603e-05_rb,0.67231e-05_rb,0.72105e-05_rb,0.77276e-05_rb /)
+      kbo(:,19,11) = (/ &
+        & 0.52249e-05_rb,0.56681e-05_rb,0.61484e-05_rb,0.66668e-05_rb,0.72285e-05_rb /)
+      kbo(:,20,11) = (/ &
+        & 0.47032e-05_rb,0.51617e-05_rb,0.56660e-05_rb,0.62226e-05_rb,0.68302e-05_rb /)
+      kbo(:,21,11) = (/ &
+        & 0.42601e-05_rb,0.47338e-05_rb,0.52698e-05_rb,0.58670e-05_rb,0.65065e-05_rb /)
+      kbo(:,22,11) = (/ &
+        & 0.39167e-05_rb,0.44205e-05_rb,0.49953e-05_rb,0.56267e-05_rb,0.62956e-05_rb /)
+      kbo(:,23,11) = (/ &
+        & 0.36499e-05_rb,0.41883e-05_rb,0.47965e-05_rb,0.54568e-05_rb,0.61529e-05_rb /)
+      kbo(:,24,11) = (/ &
+        & 0.34565e-05_rb,0.40283e-05_rb,0.46653e-05_rb,0.53526e-05_rb,0.60723e-05_rb /)
+      kbo(:,25,11) = (/ &
+        & 0.33292e-05_rb,0.39315e-05_rb,0.45958e-05_rb,0.53082e-05_rb,0.60473e-05_rb /)
+      kbo(:,26,11) = (/ &
+        & 0.32653e-05_rb,0.38970e-05_rb,0.45879e-05_rb,0.53204e-05_rb,0.60776e-05_rb /)
+      kbo(:,27,11) = (/ &
+        & 0.32497e-05_rb,0.39083e-05_rb,0.46221e-05_rb,0.53722e-05_rb,0.61437e-05_rb /)
+      kbo(:,28,11) = (/ &
+        & 0.32741e-05_rb,0.39580e-05_rb,0.46902e-05_rb,0.54541e-05_rb,0.62354e-05_rb /)
+      kbo(:,29,11) = (/ &
+        & 0.33369e-05_rb,0.40429e-05_rb,0.47902e-05_rb,0.55664e-05_rb,0.63553e-05_rb /)
+      kbo(:,30,11) = (/ &
+        & 0.34283e-05_rb,0.41504e-05_rb,0.49124e-05_rb,0.56972e-05_rb,0.64922e-05_rb /)
+      kbo(:,31,11) = (/ &
+        & 0.35444e-05_rb,0.42823e-05_rb,0.50547e-05_rb,0.58477e-05_rb,0.66477e-05_rb /)
+      kbo(:,32,11) = (/ &
+        & 0.36801e-05_rb,0.44317e-05_rb,0.52138e-05_rb,0.60136e-05_rb,0.68176e-05_rb /)
+      kbo(:,33,11) = (/ &
+        & 0.38318e-05_rb,0.45951e-05_rb,0.53855e-05_rb,0.61901e-05_rb,0.69963e-05_rb /)
+      kbo(:,34,11) = (/ &
+        & 0.39692e-05_rb,0.47416e-05_rb,0.55387e-05_rb,0.63463e-05_rb,0.71529e-05_rb /)
+      kbo(:,35,11) = (/ &
+        & 0.40413e-05_rb,0.48197e-05_rb,0.56200e-05_rb,0.64302e-05_rb,0.72378e-05_rb /)
+      kbo(:,36,11) = (/ &
+        & 0.40356e-05_rb,0.48162e-05_rb,0.56178e-05_rb,0.64290e-05_rb,0.72385e-05_rb /)
+      kbo(:,37,11) = (/ &
+        & 0.39181e-05_rb,0.46953e-05_rb,0.54967e-05_rb,0.63083e-05_rb,0.71198e-05_rb /)
+      kbo(:,38,11) = (/ &
+        & 0.37977e-05_rb,0.45715e-05_rb,0.53704e-05_rb,0.61820e-05_rb,0.69964e-05_rb /)
+      kbo(:,39,11) = (/ &
+        & 0.36811e-05_rb,0.44507e-05_rb,0.52481e-05_rb,0.60593e-05_rb,0.68739e-05_rb /)
+      kbo(:,40,11) = (/ &
+        & 0.34909e-05_rb,0.42522e-05_rb,0.50444e-05_rb,0.58543e-05_rb,0.66697e-05_rb /)
+      kbo(:,41,11) = (/ &
+        & 0.32953e-05_rb,0.40465e-05_rb,0.48326e-05_rb,0.56401e-05_rb,0.64551e-05_rb /)
+      kbo(:,42,11) = (/ &
+        & 0.31040e-05_rb,0.38444e-05_rb,0.46230e-05_rb,0.54267e-05_rb,0.62419e-05_rb /)
+      kbo(:,43,11) = (/ &
+        & 0.28773e-05_rb,0.36028e-05_rb,0.43716e-05_rb,0.51693e-05_rb,0.59825e-05_rb /)
+      kbo(:,44,11) = (/ &
+        & 0.26404e-05_rb,0.33480e-05_rb,0.41036e-05_rb,0.48939e-05_rb,0.57034e-05_rb /)
+      kbo(:,45,11) = (/ &
+        & 0.24120e-05_rb,0.30991e-05_rb,0.38405e-05_rb,0.46208e-05_rb,0.54260e-05_rb /)
+      kbo(:,46,11) = (/ &
+        & 0.21786e-05_rb,0.28418e-05_rb,0.35659e-05_rb,0.43343e-05_rb,0.51318e-05_rb /)
+      kbo(:,47,11) = (/ &
+        & 0.19311e-05_rb,0.25641e-05_rb,0.32660e-05_rb,0.40180e-05_rb,0.48060e-05_rb /)
+      kbo(:,48,11) = (/ &
+        & 0.16967e-05_rb,0.22980e-05_rb,0.29746e-05_rb,0.37093e-05_rb,0.44842e-05_rb /)
+      kbo(:,49,11) = (/ &
+        & 0.14774e-05_rb,0.20448e-05_rb,0.26926e-05_rb,0.34064e-05_rb,0.41668e-05_rb /)
+      kbo(:,50,11) = (/ &
+        & 0.12873e-05_rb,0.18193e-05_rb,0.24384e-05_rb,0.31296e-05_rb,0.38742e-05_rb /)
+      kbo(:,51,11) = (/ &
+        & 0.11146e-05_rb,0.16126e-05_rb,0.22020e-05_rb,0.28686e-05_rb,0.35959e-05_rb /)
+      kbo(:,52,11) = (/ &
+        & 0.95604e-06_rb,0.14200e-05_rb,0.19761e-05_rb,0.26163e-05_rb,0.33236e-05_rb /)
+      kbo(:,53,11) = (/ &
+        & 0.80966e-06_rb,0.12381e-05_rb,0.17610e-05_rb,0.23732e-05_rb,0.30580e-05_rb /)
+      kbo(:,54,11) = (/ &
+        & 0.68766e-06_rb,0.10830e-05_rb,0.15763e-05_rb,0.21583e-05_rb,0.28207e-05_rb /)
+      kbo(:,55,11) = (/ &
+        & 0.58212e-06_rb,0.94518e-06_rb,0.14071e-05_rb,0.19616e-05_rb,0.26001e-05_rb /)
+      kbo(:,56,11) = (/ &
+        & 0.48769e-06_rb,0.81784e-06_rb,0.12480e-05_rb,0.17754e-05_rb,0.23872e-05_rb /)
+      kbo(:,57,11) = (/ &
+        & 0.40334e-06_rb,0.70099e-06_rb,0.10993e-05_rb,0.15960e-05_rb,0.21818e-05_rb /)
+      kbo(:,58,11) = (/ &
+        & 0.33254e-06_rb,0.59979e-06_rb,0.96749e-06_rb,0.14348e-05_rb,0.19961e-05_rb /)
+      kbo(:,59,11) = (/ &
+        & 0.30667e-06_rb,0.56182e-06_rb,0.91722e-06_rb,0.13728e-05_rb,0.19233e-05_rb /)
+      kbo(:,13,12) = (/ &
+        & 0.21780e-04_rb,0.22297e-04_rb,0.22851e-04_rb,0.23387e-04_rb,0.23897e-04_rb /)
+      kbo(:,14,12) = (/ &
+        & 0.20875e-04_rb,0.21531e-04_rb,0.22189e-04_rb,0.22823e-04_rb,0.23424e-04_rb /)
+      kbo(:,15,12) = (/ &
+        & 0.19941e-04_rb,0.20728e-04_rb,0.21492e-04_rb,0.22225e-04_rb,0.22948e-04_rb /)
+      kbo(:,16,12) = (/ &
+        & 0.19013e-04_rb,0.19918e-04_rb,0.20796e-04_rb,0.21654e-04_rb,0.22503e-04_rb /)
+      kbo(:,17,12) = (/ &
+        & 0.18129e-04_rb,0.19150e-04_rb,0.20149e-04_rb,0.21144e-04_rb,0.22094e-04_rb /)
+      kbo(:,18,12) = (/ &
+        & 0.17308e-04_rb,0.18451e-04_rb,0.19578e-04_rb,0.20689e-04_rb,0.21728e-04_rb /)
+      kbo(:,19,12) = (/ &
+        & 0.16581e-04_rb,0.17835e-04_rb,0.19087e-04_rb,0.20285e-04_rb,0.21402e-04_rb /)
+      kbo(:,20,12) = (/ &
+        & 0.15978e-04_rb,0.17349e-04_rb,0.18704e-04_rb,0.19972e-04_rb,0.21143e-04_rb /)
+      kbo(:,21,12) = (/ &
+        & 0.15496e-04_rb,0.16976e-04_rb,0.18403e-04_rb,0.19724e-04_rb,0.20952e-04_rb /)
+      kbo(:,22,12) = (/ &
+        & 0.15240e-04_rb,0.16798e-04_rb,0.18272e-04_rb,0.19635e-04_rb,0.20901e-04_rb /)
+      kbo(:,23,12) = (/ &
+        & 0.15105e-04_rb,0.16716e-04_rb,0.18220e-04_rb,0.19617e-04_rb,0.20916e-04_rb /)
+      kbo(:,24,12) = (/ &
+        & 0.15076e-04_rb,0.16719e-04_rb,0.18249e-04_rb,0.19672e-04_rb,0.20991e-04_rb /)
+      kbo(:,25,12) = (/ &
+        & 0.15141e-04_rb,0.16802e-04_rb,0.18352e-04_rb,0.19786e-04_rb,0.21116e-04_rb /)
+      kbo(:,26,12) = (/ &
+        & 0.15306e-04_rb,0.16974e-04_rb,0.18529e-04_rb,0.19965e-04_rb,0.21296e-04_rb /)
+      kbo(:,27,12) = (/ &
+        & 0.15522e-04_rb,0.17192e-04_rb,0.18747e-04_rb,0.20182e-04_rb,0.21501e-04_rb /)
+      kbo(:,28,12) = (/ &
+        & 0.15784e-04_rb,0.17449e-04_rb,0.18996e-04_rb,0.20419e-04_rb,0.21733e-04_rb /)
+      kbo(:,29,12) = (/ &
+        & 0.16090e-04_rb,0.17744e-04_rb,0.19276e-04_rb,0.20687e-04_rb,0.21987e-04_rb /)
+      kbo(:,30,12) = (/ &
+        & 0.16419e-04_rb,0.18062e-04_rb,0.19575e-04_rb,0.20970e-04_rb,0.22248e-04_rb /)
+      kbo(:,31,12) = (/ &
+        & 0.16777e-04_rb,0.18399e-04_rb,0.19892e-04_rb,0.21268e-04_rb,0.22521e-04_rb /)
+      kbo(:,32,12) = (/ &
+        & 0.17152e-04_rb,0.18750e-04_rb,0.20222e-04_rb,0.21573e-04_rb,0.22802e-04_rb /)
+      kbo(:,33,12) = (/ &
+        & 0.17537e-04_rb,0.19109e-04_rb,0.20556e-04_rb,0.21883e-04_rb,0.23082e-04_rb /)
+      kbo(:,34,12) = (/ &
+        & 0.17871e-04_rb,0.19418e-04_rb,0.20844e-04_rb,0.22147e-04_rb,0.23322e-04_rb /)
+      kbo(:,35,12) = (/ &
+        & 0.18052e-04_rb,0.19587e-04_rb,0.21002e-04_rb,0.22291e-04_rb,0.23455e-04_rb /)
+      kbo(:,36,12) = (/ &
+        & 0.18063e-04_rb,0.19601e-04_rb,0.21016e-04_rb,0.22306e-04_rb,0.23468e-04_rb /)
+      kbo(:,37,12) = (/ &
+        & 0.17833e-04_rb,0.19389e-04_rb,0.20824e-04_rb,0.22132e-04_rb,0.23314e-04_rb /)
+      kbo(:,38,12) = (/ &
+        & 0.17587e-04_rb,0.19167e-04_rb,0.20623e-04_rb,0.21950e-04_rb,0.23152e-04_rb /)
+      kbo(:,39,12) = (/ &
+        & 0.17343e-04_rb,0.18945e-04_rb,0.20418e-04_rb,0.21765e-04_rb,0.22984e-04_rb /)
+      kbo(:,40,12) = (/ &
+        & 0.16926e-04_rb,0.18563e-04_rb,0.20065e-04_rb,0.21446e-04_rb,0.22697e-04_rb /)
+      kbo(:,41,12) = (/ &
+        & 0.16478e-04_rb,0.18152e-04_rb,0.19687e-04_rb,0.21101e-04_rb,0.22388e-04_rb /)
+      kbo(:,42,12) = (/ &
+        & 0.16023e-04_rb,0.17729e-04_rb,0.19301e-04_rb,0.20748e-04_rb,0.22068e-04_rb /)
+      kbo(:,43,12) = (/ &
+        & 0.15458e-04_rb,0.17203e-04_rb,0.18821e-04_rb,0.20305e-04_rb,0.21667e-04_rb /)
+      kbo(:,44,12) = (/ &
+        & 0.14831e-04_rb,0.16623e-04_rb,0.18287e-04_rb,0.19814e-04_rb,0.21219e-04_rb /)
+      kbo(:,45,12) = (/ &
+        & 0.14192e-04_rb,0.16029e-04_rb,0.17735e-04_rb,0.19308e-04_rb,0.20757e-04_rb /)
+      kbo(:,46,12) = (/ &
+        & 0.13493e-04_rb,0.15380e-04_rb,0.17134e-04_rb,0.18756e-04_rb,0.20247e-04_rb /)
+      kbo(:,47,12) = (/ &
+        & 0.12693e-04_rb,0.14634e-04_rb,0.16440e-04_rb,0.18118e-04_rb,0.19661e-04_rb /)
+      kbo(:,48,12) = (/ &
+        & 0.11878e-04_rb,0.13868e-04_rb,0.15729e-04_rb,0.17458e-04_rb,0.19054e-04_rb /)
+      kbo(:,49,12) = (/ &
+        & 0.11052e-04_rb,0.13077e-04_rb,0.14993e-04_rb,0.16776e-04_rb,0.18429e-04_rb /)
+      kbo(:,50,12) = (/ &
+        & 0.10274e-04_rb,0.12322e-04_rb,0.14286e-04_rb,0.16119e-04_rb,0.17820e-04_rb /)
+      kbo(:,51,12) = (/ &
+        & 0.95165e-05_rb,0.11577e-04_rb,0.13581e-04_rb,0.15463e-04_rb,0.17211e-04_rb /)
+      kbo(:,52,12) = (/ &
+        & 0.87654e-05_rb,0.10825e-04_rb,0.12859e-04_rb,0.14791e-04_rb,0.16589e-04_rb /)
+      kbo(:,53,12) = (/ &
+        & 0.80213e-05_rb,0.10071e-04_rb,0.12124e-04_rb,0.14102e-04_rb,0.15949e-04_rb /)
+      kbo(:,54,12) = (/ &
+        & 0.73473e-05_rb,0.93776e-05_rb,0.11439e-04_rb,0.13452e-04_rb,0.15344e-04_rb /)
+      kbo(:,55,12) = (/ &
+        & 0.67127e-05_rb,0.87188e-05_rb,0.10780e-04_rb,0.12816e-04_rb,0.14751e-04_rb /)
+      kbo(:,56,12) = (/ &
+        & 0.60935e-05_rb,0.80668e-05_rb,0.10118e-04_rb,0.12169e-04_rb,0.14148e-04_rb /)
+      kbo(:,57,12) = (/ &
+        & 0.54908e-05_rb,0.74223e-05_rb,0.94571e-05_rb,0.11517e-04_rb,0.13528e-04_rb /)
+      kbo(:,58,12) = (/ &
+        & 0.49372e-05_rb,0.68201e-05_rb,0.88324e-05_rb,0.10894e-04_rb,0.12926e-04_rb /)
+      kbo(:,59,12) = (/ &
+        & 0.47213e-05_rb,0.65842e-05_rb,0.85835e-05_rb,0.10644e-04_rb,0.12683e-04_rb /)
+      kbo(:,13,13) = (/ &
+        & 0.46820e-04_rb,0.47158e-04_rb,0.47420e-04_rb,0.47688e-04_rb,0.47860e-04_rb /)
+      kbo(:,14,13) = (/ &
+        & 0.47343e-04_rb,0.47824e-04_rb,0.48275e-04_rb,0.48677e-04_rb,0.48937e-04_rb /)
+      kbo(:,15,13) = (/ &
+        & 0.47643e-04_rb,0.48345e-04_rb,0.48980e-04_rb,0.49469e-04_rb,0.49813e-04_rb /)
+      kbo(:,16,13) = (/ &
+        & 0.47844e-04_rb,0.48762e-04_rb,0.49536e-04_rb,0.50120e-04_rb,0.50548e-04_rb /)
+      kbo(:,17,13) = (/ &
+        & 0.47956e-04_rb,0.49079e-04_rb,0.49982e-04_rb,0.50640e-04_rb,0.51155e-04_rb /)
+      kbo(:,18,13) = (/ &
+        & 0.48046e-04_rb,0.49334e-04_rb,0.50343e-04_rb,0.51068e-04_rb,0.51673e-04_rb /)
+      kbo(:,19,13) = (/ &
+        & 0.48132e-04_rb,0.49550e-04_rb,0.50630e-04_rb,0.51453e-04_rb,0.52124e-04_rb /)
+      kbo(:,20,13) = (/ &
+        & 0.48262e-04_rb,0.49765e-04_rb,0.50907e-04_rb,0.51808e-04_rb,0.52533e-04_rb /)
+      kbo(:,21,13) = (/ &
+        & 0.48402e-04_rb,0.49959e-04_rb,0.51170e-04_rb,0.52136e-04_rb,0.52894e-04_rb /)
+      kbo(:,22,13) = (/ &
+        & 0.48671e-04_rb,0.50243e-04_rb,0.51485e-04_rb,0.52481e-04_rb,0.53256e-04_rb /)
+      kbo(:,23,13) = (/ &
+        & 0.48954e-04_rb,0.50544e-04_rb,0.51806e-04_rb,0.52811e-04_rb,0.53587e-04_rb /)
+      kbo(:,24,13) = (/ &
+        & 0.49272e-04_rb,0.50858e-04_rb,0.52128e-04_rb,0.53125e-04_rb,0.53892e-04_rb /)
+      kbo(:,25,13) = (/ &
+        & 0.49616e-04_rb,0.51186e-04_rb,0.52450e-04_rb,0.53425e-04_rb,0.54174e-04_rb /)
+      kbo(:,26,13) = (/ &
+        & 0.50001e-04_rb,0.51551e-04_rb,0.52773e-04_rb,0.53723e-04_rb,0.54445e-04_rb /)
+      kbo(:,27,13) = (/ &
+        & 0.50406e-04_rb,0.51904e-04_rb,0.53086e-04_rb,0.54001e-04_rb,0.54687e-04_rb /)
+      kbo(:,28,13) = (/ &
+        & 0.50802e-04_rb,0.52248e-04_rb,0.53391e-04_rb,0.54260e-04_rb,0.54906e-04_rb /)
+      kbo(:,29,13) = (/ &
+        & 0.51204e-04_rb,0.52593e-04_rb,0.53683e-04_rb,0.54507e-04_rb,0.55109e-04_rb /)
+      kbo(:,30,13) = (/ &
+        & 0.51608e-04_rb,0.52928e-04_rb,0.53956e-04_rb,0.54730e-04_rb,0.55285e-04_rb /)
+      kbo(:,31,13) = (/ &
+        & 0.51993e-04_rb,0.53249e-04_rb,0.54213e-04_rb,0.54939e-04_rb,0.55442e-04_rb /)
+      kbo(:,32,13) = (/ &
+        & 0.52364e-04_rb,0.53549e-04_rb,0.54461e-04_rb,0.55127e-04_rb,0.55583e-04_rb /)
+      kbo(:,33,13) = (/ &
+        & 0.52722e-04_rb,0.53841e-04_rb,0.54688e-04_rb,0.55301e-04_rb,0.55705e-04_rb /)
+      kbo(:,34,13) = (/ &
+        & 0.53018e-04_rb,0.54074e-04_rb,0.54867e-04_rb,0.55434e-04_rb,0.55799e-04_rb /)
+      kbo(:,35,13) = (/ &
+        & 0.53187e-04_rb,0.54211e-04_rb,0.54980e-04_rb,0.55515e-04_rb,0.55855e-04_rb /)
+      kbo(:,36,13) = (/ &
+        & 0.53222e-04_rb,0.54242e-04_rb,0.55009e-04_rb,0.55544e-04_rb,0.55878e-04_rb /)
+      kbo(:,37,13) = (/ &
+        & 0.53077e-04_rb,0.54137e-04_rb,0.54934e-04_rb,0.55495e-04_rb,0.55862e-04_rb /)
+      kbo(:,38,13) = (/ &
+        & 0.52907e-04_rb,0.54013e-04_rb,0.54850e-04_rb,0.55445e-04_rb,0.55837e-04_rb /)
+      kbo(:,39,13) = (/ &
+        & 0.52736e-04_rb,0.53884e-04_rb,0.54754e-04_rb,0.55383e-04_rb,0.55805e-04_rb /)
+      kbo(:,40,13) = (/ &
+        & 0.52415e-04_rb,0.53638e-04_rb,0.54576e-04_rb,0.55258e-04_rb,0.55727e-04_rb /)
+      kbo(:,41,13) = (/ &
+        & 0.52053e-04_rb,0.53364e-04_rb,0.54368e-04_rb,0.55117e-04_rb,0.55636e-04_rb /)
+      kbo(:,42,13) = (/ &
+        & 0.51661e-04_rb,0.53061e-04_rb,0.54142e-04_rb,0.54952e-04_rb,0.55527e-04_rb /)
+      kbo(:,43,13) = (/ &
+        & 0.51150e-04_rb,0.52667e-04_rb,0.53836e-04_rb,0.54732e-04_rb,0.55377e-04_rb /)
+      kbo(:,44,13) = (/ &
+        & 0.50559e-04_rb,0.52194e-04_rb,0.53480e-04_rb,0.54465e-04_rb,0.55186e-04_rb /)
+      kbo(:,45,13) = (/ &
+        & 0.49921e-04_rb,0.51684e-04_rb,0.53086e-04_rb,0.54162e-04_rb,0.54971e-04_rb /)
+      kbo(:,46,13) = (/ &
+        & 0.49197e-04_rb,0.51093e-04_rb,0.52628e-04_rb,0.53809e-04_rb,0.54714e-04_rb /)
+      kbo(:,47,13) = (/ &
+        & 0.48328e-04_rb,0.50372e-04_rb,0.52058e-04_rb,0.53374e-04_rb,0.54380e-04_rb /)
+      kbo(:,48,13) = (/ &
+        & 0.47381e-04_rb,0.49603e-04_rb,0.51420e-04_rb,0.52887e-04_rb,0.54013e-04_rb /)
+      kbo(:,49,13) = (/ &
+        & 0.46342e-04_rb,0.48755e-04_rb,0.50735e-04_rb,0.52347e-04_rb,0.53594e-04_rb /)
+      kbo(:,50,13) = (/ &
+        & 0.45266e-04_rb,0.47911e-04_rb,0.50033e-04_rb,0.51782e-04_rb,0.53163e-04_rb /)
+      kbo(:,51,13) = (/ &
+        & 0.44139e-04_rb,0.47021e-04_rb,0.49310e-04_rb,0.51184e-04_rb,0.52699e-04_rb /)
+      kbo(:,52,13) = (/ &
+        & 0.42930e-04_rb,0.46044e-04_rb,0.48523e-04_rb,0.50540e-04_rb,0.52191e-04_rb /)
+      kbo(:,53,13) = (/ &
+        & 0.41632e-04_rb,0.44983e-04_rb,0.47688e-04_rb,0.49847e-04_rb,0.51629e-04_rb /)
+      kbo(:,54,13) = (/ &
+        & 0.40359e-04_rb,0.43928e-04_rb,0.46843e-04_rb,0.49172e-04_rb,0.51075e-04_rb /)
+      kbo(:,55,13) = (/ &
+        & 0.39074e-04_rb,0.42858e-04_rb,0.45984e-04_rb,0.48480e-04_rb,0.50508e-04_rb /)
+      kbo(:,56,13) = (/ &
+        & 0.37728e-04_rb,0.41722e-04_rb,0.45056e-04_rb,0.47740e-04_rb,0.49900e-04_rb /)
+      kbo(:,57,13) = (/ &
+        & 0.36320e-04_rb,0.40515e-04_rb,0.44055e-04_rb,0.46942e-04_rb,0.49258e-04_rb /)
+      kbo(:,58,13) = (/ &
+        & 0.34927e-04_rb,0.39308e-04_rb,0.43052e-04_rb,0.46141e-04_rb,0.48596e-04_rb /)
+      kbo(:,59,13) = (/ &
+        & 0.34349e-04_rb,0.38808e-04_rb,0.42631e-04_rb,0.45802e-04_rb,0.48325e-04_rb /)
+      kbo(:,13,14) = (/ &
+        & 0.91739e-04_rb,0.90588e-04_rb,0.89270e-04_rb,0.87862e-04_rb,0.86541e-04_rb /)
+      kbo(:,14,14) = (/ &
+        & 0.97111e-04_rb,0.95879e-04_rb,0.94382e-04_rb,0.92799e-04_rb,0.91344e-04_rb /)
+      kbo(:,15,14) = (/ &
+        & 0.10201e-03_rb,0.10059e-03_rb,0.98963e-04_rb,0.97297e-04_rb,0.95661e-04_rb /)
+      kbo(:,16,14) = (/ &
+        & 0.10632e-03_rb,0.10477e-03_rb,0.10303e-03_rb,0.10127e-03_rb,0.99489e-04_rb /)
+      kbo(:,17,14) = (/ &
+        & 0.11011e-03_rb,0.10842e-03_rb,0.10659e-03_rb,0.10474e-03_rb,0.10285e-03_rb /)
+      kbo(:,18,14) = (/ &
+        & 0.11338e-03_rb,0.11158e-03_rb,0.10968e-03_rb,0.10773e-03_rb,0.10569e-03_rb /)
+      kbo(:,19,14) = (/ &
+        & 0.11615e-03_rb,0.11428e-03_rb,0.11231e-03_rb,0.11026e-03_rb,0.10810e-03_rb /)
+      kbo(:,20,14) = (/ &
+        & 0.11847e-03_rb,0.11653e-03_rb,0.11450e-03_rb,0.11235e-03_rb,0.11005e-03_rb /)
+      kbo(:,21,14) = (/ &
+        & 0.12039e-03_rb,0.11839e-03_rb,0.11628e-03_rb,0.11404e-03_rb,0.11166e-03_rb /)
+      kbo(:,22,14) = (/ &
+        & 0.12185e-03_rb,0.11978e-03_rb,0.11759e-03_rb,0.11525e-03_rb,0.11275e-03_rb /)
+      kbo(:,23,14) = (/ &
+        & 0.12298e-03_rb,0.12085e-03_rb,0.11858e-03_rb,0.11615e-03_rb,0.11356e-03_rb /)
+      kbo(:,24,14) = (/ &
+        & 0.12384e-03_rb,0.12163e-03_rb,0.11927e-03_rb,0.11676e-03_rb,0.11410e-03_rb /)
+      kbo(:,25,14) = (/ &
+        & 0.12445e-03_rb,0.12216e-03_rb,0.11972e-03_rb,0.11712e-03_rb,0.11440e-03_rb /)
+      kbo(:,26,14) = (/ &
+        & 0.12480e-03_rb,0.12244e-03_rb,0.11993e-03_rb,0.11725e-03_rb,0.11449e-03_rb /)
+      kbo(:,27,14) = (/ &
+        & 0.12497e-03_rb,0.12254e-03_rb,0.11997e-03_rb,0.11723e-03_rb,0.11442e-03_rb /)
+      kbo(:,28,14) = (/ &
+        & 0.12498e-03_rb,0.12249e-03_rb,0.11986e-03_rb,0.11707e-03_rb,0.11425e-03_rb /)
+      kbo(:,29,14) = (/ &
+        & 0.12486e-03_rb,0.12231e-03_rb,0.11961e-03_rb,0.11677e-03_rb,0.11393e-03_rb /)
+      kbo(:,30,14) = (/ &
+        & 0.12462e-03_rb,0.12202e-03_rb,0.11925e-03_rb,0.11640e-03_rb,0.11355e-03_rb /)
+      kbo(:,31,14) = (/ &
+        & 0.12428e-03_rb,0.12163e-03_rb,0.11882e-03_rb,0.11594e-03_rb,0.11310e-03_rb /)
+      kbo(:,32,14) = (/ &
+        & 0.12387e-03_rb,0.12116e-03_rb,0.11831e-03_rb,0.11542e-03_rb,0.11260e-03_rb /)
+      kbo(:,33,14) = (/ &
+        & 0.12338e-03_rb,0.12061e-03_rb,0.11773e-03_rb,0.11485e-03_rb,0.11205e-03_rb /)
+      kbo(:,34,14) = (/ &
+        & 0.12293e-03_rb,0.12013e-03_rb,0.11722e-03_rb,0.11434e-03_rb,0.11156e-03_rb /)
+      kbo(:,35,14) = (/ &
+        & 0.12271e-03_rb,0.11987e-03_rb,0.11696e-03_rb,0.11408e-03_rb,0.11132e-03_rb /)
+      kbo(:,36,14) = (/ &
+        & 0.12276e-03_rb,0.11992e-03_rb,0.11700e-03_rb,0.11412e-03_rb,0.11135e-03_rb /)
+      kbo(:,37,14) = (/ &
+        & 0.12321e-03_rb,0.12039e-03_rb,0.11748e-03_rb,0.11457e-03_rb,0.11178e-03_rb /)
+      kbo(:,38,14) = (/ &
+        & 0.12368e-03_rb,0.12086e-03_rb,0.11795e-03_rb,0.11504e-03_rb,0.11223e-03_rb /)
+      kbo(:,39,14) = (/ &
+        & 0.12412e-03_rb,0.12132e-03_rb,0.11841e-03_rb,0.11549e-03_rb,0.11266e-03_rb /)
+      kbo(:,40,14) = (/ &
+        & 0.12481e-03_rb,0.12205e-03_rb,0.11917e-03_rb,0.11624e-03_rb,0.11338e-03_rb /)
+      kbo(:,41,14) = (/ &
+        & 0.12552e-03_rb,0.12282e-03_rb,0.11995e-03_rb,0.11701e-03_rb,0.11413e-03_rb /)
+      kbo(:,42,14) = (/ &
+        & 0.12624e-03_rb,0.12356e-03_rb,0.12073e-03_rb,0.11779e-03_rb,0.11489e-03_rb /)
+      kbo(:,43,14) = (/ &
+        & 0.12708e-03_rb,0.12444e-03_rb,0.12166e-03_rb,0.11873e-03_rb,0.11581e-03_rb /)
+      kbo(:,44,14) = (/ &
+        & 0.12796e-03_rb,0.12537e-03_rb,0.12263e-03_rb,0.11974e-03_rb,0.11681e-03_rb /)
+      kbo(:,45,14) = (/ &
+        & 0.12882e-03_rb,0.12627e-03_rb,0.12360e-03_rb,0.12075e-03_rb,0.11782e-03_rb /)
+      kbo(:,46,14) = (/ &
+        & 0.12968e-03_rb,0.12723e-03_rb,0.12459e-03_rb,0.12181e-03_rb,0.11889e-03_rb /)
+      kbo(:,47,14) = (/ &
+        & 0.13062e-03_rb,0.12827e-03_rb,0.12567e-03_rb,0.12295e-03_rb,0.12008e-03_rb /)
+      kbo(:,48,14) = (/ &
+        & 0.13150e-03_rb,0.12926e-03_rb,0.12675e-03_rb,0.12408e-03_rb,0.12126e-03_rb /)
+      kbo(:,49,14) = (/ &
+        & 0.13233e-03_rb,0.13021e-03_rb,0.12780e-03_rb,0.12517e-03_rb,0.12242e-03_rb /)
+      kbo(:,50,14) = (/ &
+        & 0.13307e-03_rb,0.13105e-03_rb,0.12874e-03_rb,0.12618e-03_rb,0.12349e-03_rb /)
+      kbo(:,51,14) = (/ &
+        & 0.13374e-03_rb,0.13183e-03_rb,0.12963e-03_rb,0.12715e-03_rb,0.12449e-03_rb /)
+      kbo(:,52,14) = (/ &
+        & 0.13431e-03_rb,0.13255e-03_rb,0.13046e-03_rb,0.12807e-03_rb,0.12548e-03_rb /)
+      kbo(:,53,14) = (/ &
+        & 0.13479e-03_rb,0.13325e-03_rb,0.13127e-03_rb,0.12898e-03_rb,0.12645e-03_rb /)
+      kbo(:,54,14) = (/ &
+        & 0.13511e-03_rb,0.13385e-03_rb,0.13196e-03_rb,0.12979e-03_rb,0.12732e-03_rb /)
+      kbo(:,55,14) = (/ &
+        & 0.13533e-03_rb,0.13436e-03_rb,0.13261e-03_rb,0.13052e-03_rb,0.12814e-03_rb /)
+      kbo(:,56,14) = (/ &
+        & 0.13543e-03_rb,0.13477e-03_rb,0.13321e-03_rb,0.13121e-03_rb,0.12893e-03_rb /)
+      kbo(:,57,14) = (/ &
+        & 0.13540e-03_rb,0.13509e-03_rb,0.13379e-03_rb,0.13190e-03_rb,0.12969e-03_rb /)
+      kbo(:,58,14) = (/ &
+        & 0.13520e-03_rb,0.13532e-03_rb,0.13428e-03_rb,0.13250e-03_rb,0.13039e-03_rb /)
+      kbo(:,59,14) = (/ &
+        & 0.13510e-03_rb,0.13536e-03_rb,0.13445e-03_rb,0.13273e-03_rb,0.13066e-03_rb /)
+      kbo(:,13,15) = (/ &
+        & 0.16545e-03_rb,0.16076e-03_rb,0.15662e-03_rb,0.15273e-03_rb,0.14899e-03_rb /)
+      kbo(:,14,15) = (/ &
+        & 0.17968e-03_rb,0.17402e-03_rb,0.16899e-03_rb,0.16434e-03_rb,0.15984e-03_rb /)
+      kbo(:,15,15) = (/ &
+        & 0.19299e-03_rb,0.18634e-03_rb,0.18041e-03_rb,0.17491e-03_rb,0.16965e-03_rb /)
+      kbo(:,16,15) = (/ &
+        & 0.20519e-03_rb,0.19756e-03_rb,0.19072e-03_rb,0.18435e-03_rb,0.17834e-03_rb /)
+      kbo(:,17,15) = (/ &
+        & 0.21616e-03_rb,0.20753e-03_rb,0.19981e-03_rb,0.19268e-03_rb,0.18599e-03_rb /)
+      kbo(:,18,15) = (/ &
+        & 0.22578e-03_rb,0.21627e-03_rb,0.20768e-03_rb,0.19983e-03_rb,0.19254e-03_rb /)
+      kbo(:,19,15) = (/ &
+        & 0.23404e-03_rb,0.22371e-03_rb,0.21439e-03_rb,0.20593e-03_rb,0.19813e-03_rb /)
+      kbo(:,20,15) = (/ &
+        & 0.24079e-03_rb,0.22975e-03_rb,0.21986e-03_rb,0.21084e-03_rb,0.20261e-03_rb /)
+      kbo(:,21,15) = (/ &
+        & 0.24629e-03_rb,0.23467e-03_rb,0.22423e-03_rb,0.21475e-03_rb,0.20622e-03_rb /)
+      kbo(:,22,15) = (/ &
+        & 0.24979e-03_rb,0.23775e-03_rb,0.22702e-03_rb,0.21724e-03_rb,0.20849e-03_rb /)
+      kbo(:,23,15) = (/ &
+        & 0.25216e-03_rb,0.23989e-03_rb,0.22890e-03_rb,0.21892e-03_rb,0.21005e-03_rb /)
+      kbo(:,24,15) = (/ &
+        & 0.25355e-03_rb,0.24109e-03_rb,0.22997e-03_rb,0.21990e-03_rb,0.21094e-03_rb /)
+      kbo(:,25,15) = (/ &
+        & 0.25401e-03_rb,0.24151e-03_rb,0.23030e-03_rb,0.22024e-03_rb,0.21125e-03_rb /)
+      kbo(:,26,15) = (/ &
+        & 0.25359e-03_rb,0.24114e-03_rb,0.22993e-03_rb,0.21995e-03_rb,0.21097e-03_rb /)
+      kbo(:,27,15) = (/ &
+        & 0.25262e-03_rb,0.24030e-03_rb,0.22913e-03_rb,0.21926e-03_rb,0.21037e-03_rb /)
+      kbo(:,28,15) = (/ &
+        & 0.25126e-03_rb,0.23904e-03_rb,0.22801e-03_rb,0.21831e-03_rb,0.20948e-03_rb /)
+      kbo(:,29,15) = (/ &
+        & 0.24948e-03_rb,0.23745e-03_rb,0.22663e-03_rb,0.21704e-03_rb,0.20834e-03_rb /)
+      kbo(:,30,15) = (/ &
+        & 0.24748e-03_rb,0.23558e-03_rb,0.22502e-03_rb,0.21558e-03_rb,0.20699e-03_rb /)
+      kbo(:,31,15) = (/ &
+        & 0.24521e-03_rb,0.23353e-03_rb,0.22323e-03_rb,0.21394e-03_rb,0.20549e-03_rb /)
+      kbo(:,32,15) = (/ &
+        & 0.24273e-03_rb,0.23132e-03_rb,0.22129e-03_rb,0.21221e-03_rb,0.20387e-03_rb /)
+      kbo(:,33,15) = (/ &
+        & 0.24020e-03_rb,0.22911e-03_rb,0.21929e-03_rb,0.21039e-03_rb,0.20217e-03_rb /)
+      kbo(:,34,15) = (/ &
+        & 0.23799e-03_rb,0.22719e-03_rb,0.21754e-03_rb,0.20880e-03_rb,0.20071e-03_rb /)
+      kbo(:,35,15) = (/ &
+        & 0.23687e-03_rb,0.22619e-03_rb,0.21668e-03_rb,0.20798e-03_rb,0.19994e-03_rb /)
+      kbo(:,36,15) = (/ &
+        & 0.23693e-03_rb,0.22624e-03_rb,0.21673e-03_rb,0.20802e-03_rb,0.19997e-03_rb /)
+      kbo(:,37,15) = (/ &
+        & 0.23866e-03_rb,0.22780e-03_rb,0.21810e-03_rb,0.20930e-03_rb,0.20116e-03_rb /)
+      kbo(:,38,15) = (/ &
+        & 0.24049e-03_rb,0.22941e-03_rb,0.21958e-03_rb,0.21064e-03_rb,0.20240e-03_rb /)
+      kbo(:,39,15) = (/ &
+        & 0.24235e-03_rb,0.23100e-03_rb,0.22101e-03_rb,0.21195e-03_rb,0.20362e-03_rb /)
+      kbo(:,40,15) = (/ &
+        & 0.24544e-03_rb,0.23374e-03_rb,0.22344e-03_rb,0.21416e-03_rb,0.20567e-03_rb /)
+      kbo(:,41,15) = (/ &
+        & 0.24874e-03_rb,0.23671e-03_rb,0.22606e-03_rb,0.21653e-03_rb,0.20786e-03_rb /)
+      kbo(:,42,15) = (/ &
+        & 0.25214e-03_rb,0.23974e-03_rb,0.22874e-03_rb,0.21892e-03_rb,0.21007e-03_rb /)
+      kbo(:,43,15) = (/ &
+        & 0.25633e-03_rb,0.24355e-03_rb,0.23207e-03_rb,0.22195e-03_rb,0.21281e-03_rb /)
+      kbo(:,44,15) = (/ &
+        & 0.26108e-03_rb,0.24779e-03_rb,0.23584e-03_rb,0.22529e-03_rb,0.21581e-03_rb /)
+      kbo(:,45,15) = (/ &
+        & 0.26596e-03_rb,0.25216e-03_rb,0.23977e-03_rb,0.22875e-03_rb,0.21897e-03_rb /)
+      kbo(:,46,15) = (/ &
+        & 0.27137e-03_rb,0.25699e-03_rb,0.24413e-03_rb,0.23258e-03_rb,0.22240e-03_rb /)
+      kbo(:,47,15) = (/ &
+        & 0.27767e-03_rb,0.26264e-03_rb,0.24919e-03_rb,0.23707e-03_rb,0.22639e-03_rb /)
+      kbo(:,48,15) = (/ &
+        & 0.28422e-03_rb,0.26851e-03_rb,0.25443e-03_rb,0.24179e-03_rb,0.23054e-03_rb /)
+      kbo(:,49,15) = (/ &
+        & 0.29109e-03_rb,0.27465e-03_rb,0.25993e-03_rb,0.24676e-03_rb,0.23489e-03_rb /)
+      kbo(:,50,15) = (/ &
+        & 0.29784e-03_rb,0.28066e-03_rb,0.26532e-03_rb,0.25156e-03_rb,0.23921e-03_rb /)
+      kbo(:,51,15) = (/ &
+        & 0.30464e-03_rb,0.28674e-03_rb,0.27072e-03_rb,0.25642e-03_rb,0.24358e-03_rb /)
+      kbo(:,52,15) = (/ &
+        & 0.31175e-03_rb,0.29305e-03_rb,0.27640e-03_rb,0.26149e-03_rb,0.24813e-03_rb /)
+      kbo(:,53,15) = (/ &
+        & 0.31921e-03_rb,0.29964e-03_rb,0.28229e-03_rb,0.26674e-03_rb,0.25282e-03_rb /)
+      kbo(:,54,15) = (/ &
+        & 0.32632e-03_rb,0.30596e-03_rb,0.28789e-03_rb,0.27174e-03_rb,0.25731e-03_rb /)
+      kbo(:,55,15) = (/ &
+        & 0.33342e-03_rb,0.31218e-03_rb,0.29344e-03_rb,0.27674e-03_rb,0.26179e-03_rb /)
+      kbo(:,56,15) = (/ &
+        & 0.34053e-03_rb,0.31870e-03_rb,0.29920e-03_rb,0.28191e-03_rb,0.26637e-03_rb /)
+      kbo(:,57,15) = (/ &
+        & 0.34801e-03_rb,0.32554e-03_rb,0.30518e-03_rb,0.28726e-03_rb,0.27114e-03_rb /)
+      kbo(:,58,15) = (/ &
+        & 0.35537e-03_rb,0.33214e-03_rb,0.31109e-03_rb,0.29248e-03_rb,0.27588e-03_rb /)
+      kbo(:,59,15) = (/ &
+        & 0.35841e-03_rb,0.33487e-03_rb,0.31352e-03_rb,0.29463e-03_rb,0.27781e-03_rb /)
+      kbo(:,13,16) = (/ &
+        & 0.23817e-03_rb,0.23193e-03_rb,0.22589e-03_rb,0.21979e-03_rb,0.21365e-03_rb /)
+      kbo(:,14,16) = (/ &
+        & 0.26266e-03_rb,0.25442e-03_rb,0.24663e-03_rb,0.23897e-03_rb,0.23152e-03_rb /)
+      kbo(:,15,16) = (/ &
+        & 0.28586e-03_rb,0.27559e-03_rb,0.26587e-03_rb,0.25663e-03_rb,0.24800e-03_rb /)
+      kbo(:,16,16) = (/ &
+        & 0.30726e-03_rb,0.29496e-03_rb,0.28337e-03_rb,0.27251e-03_rb,0.26278e-03_rb /)
+      kbo(:,17,16) = (/ &
+        & 0.32665e-03_rb,0.31224e-03_rb,0.29895e-03_rb,0.28665e-03_rb,0.27581e-03_rb /)
+      kbo(:,18,16) = (/ &
+        & 0.34367e-03_rb,0.32749e-03_rb,0.31249e-03_rb,0.29896e-03_rb,0.28707e-03_rb /)
+      kbo(:,19,16) = (/ &
+        & 0.35833e-03_rb,0.34046e-03_rb,0.32413e-03_rb,0.30949e-03_rb,0.29662e-03_rb /)
+      kbo(:,20,16) = (/ &
+        & 0.37032e-03_rb,0.35107e-03_rb,0.33355e-03_rb,0.31795e-03_rb,0.30443e-03_rb /)
+      kbo(:,21,16) = (/ &
+        & 0.38004e-03_rb,0.35962e-03_rb,0.34106e-03_rb,0.32482e-03_rb,0.31071e-03_rb /)
+      kbo(:,22,16) = (/ &
+        & 0.38628e-03_rb,0.36502e-03_rb,0.34582e-03_rb,0.32929e-03_rb,0.31473e-03_rb /)
+      kbo(:,23,16) = (/ &
+        & 0.39046e-03_rb,0.36870e-03_rb,0.34902e-03_rb,0.33239e-03_rb,0.31753e-03_rb /)
+      kbo(:,24,16) = (/ &
+        & 0.39290e-03_rb,0.37079e-03_rb,0.35085e-03_rb,0.33417e-03_rb,0.31909e-03_rb /)
+      kbo(:,25,16) = (/ &
+        & 0.39368e-03_rb,0.37132e-03_rb,0.35155e-03_rb,0.33489e-03_rb,0.31974e-03_rb /)
+      kbo(:,26,16) = (/ &
+        & 0.39288e-03_rb,0.37052e-03_rb,0.35111e-03_rb,0.33452e-03_rb,0.31938e-03_rb /)
+      kbo(:,27,16) = (/ &
+        & 0.39120e-03_rb,0.36896e-03_rb,0.34999e-03_rb,0.33347e-03_rb,0.31836e-03_rb /)
+      kbo(:,28,16) = (/ &
+        & 0.38862e-03_rb,0.36669e-03_rb,0.34828e-03_rb,0.33189e-03_rb,0.31693e-03_rb /)
+      kbo(:,29,16) = (/ &
+        & 0.38540e-03_rb,0.36396e-03_rb,0.34596e-03_rb,0.32975e-03_rb,0.31502e-03_rb /)
+      kbo(:,30,16) = (/ &
+        & 0.38165e-03_rb,0.36095e-03_rb,0.34333e-03_rb,0.32738e-03_rb,0.31277e-03_rb /)
+      kbo(:,31,16) = (/ &
+        & 0.37756e-03_rb,0.35762e-03_rb,0.34034e-03_rb,0.32467e-03_rb,0.31030e-03_rb /)
+      kbo(:,32,16) = (/ &
+        & 0.37323e-03_rb,0.35410e-03_rb,0.33709e-03_rb,0.32164e-03_rb,0.30764e-03_rb /)
+      kbo(:,33,16) = (/ &
+        & 0.36881e-03_rb,0.35033e-03_rb,0.33368e-03_rb,0.31855e-03_rb,0.30481e-03_rb /)
+      kbo(:,34,16) = (/ &
+        & 0.36518e-03_rb,0.34710e-03_rb,0.33080e-03_rb,0.31589e-03_rb,0.30241e-03_rb /)
+      kbo(:,35,16) = (/ &
+        & 0.36331e-03_rb,0.34548e-03_rb,0.32924e-03_rb,0.31455e-03_rb,0.30119e-03_rb /)
+      kbo(:,36,16) = (/ &
+        & 0.36345e-03_rb,0.34559e-03_rb,0.32934e-03_rb,0.31463e-03_rb,0.30125e-03_rb /)
+      kbo(:,37,16) = (/ &
+        & 0.36636e-03_rb,0.34821e-03_rb,0.33175e-03_rb,0.31676e-03_rb,0.30324e-03_rb /)
+      kbo(:,38,16) = (/ &
+        & 0.36948e-03_rb,0.35092e-03_rb,0.33423e-03_rb,0.31902e-03_rb,0.30527e-03_rb /)
+      kbo(:,39,16) = (/ &
+        & 0.37259e-03_rb,0.35368e-03_rb,0.33668e-03_rb,0.32128e-03_rb,0.30727e-03_rb /)
+      kbo(:,40,16) = (/ &
+        & 0.37795e-03_rb,0.35829e-03_rb,0.34085e-03_rb,0.32505e-03_rb,0.31069e-03_rb /)
+      kbo(:,41,16) = (/ &
+        & 0.38379e-03_rb,0.36312e-03_rb,0.34529e-03_rb,0.32908e-03_rb,0.31437e-03_rb /)
+      kbo(:,42,16) = (/ &
+        & 0.38990e-03_rb,0.36819e-03_rb,0.34980e-03_rb,0.33322e-03_rb,0.31806e-03_rb /)
+      kbo(:,43,16) = (/ &
+        & 0.39755e-03_rb,0.37469e-03_rb,0.35548e-03_rb,0.33833e-03_rb,0.32274e-03_rb /)
+      kbo(:,44,16) = (/ &
+        & 0.40604e-03_rb,0.38206e-03_rb,0.36178e-03_rb,0.34404e-03_rb,0.32793e-03_rb /)
+      kbo(:,45,16) = (/ &
+        & 0.41497e-03_rb,0.38998e-03_rb,0.36828e-03_rb,0.34986e-03_rb,0.33329e-03_rb /)
+      kbo(:,46,16) = (/ &
+        & 0.42497e-03_rb,0.39871e-03_rb,0.37566e-03_rb,0.35633e-03_rb,0.33909e-03_rb /)
+      kbo(:,47,16) = (/ &
+        & 0.43684e-03_rb,0.40880e-03_rb,0.38451e-03_rb,0.36380e-03_rb,0.34586e-03_rb /)
+      kbo(:,48,16) = (/ &
+        & 0.44932e-03_rb,0.41960e-03_rb,0.39404e-03_rb,0.37171e-03_rb,0.35286e-03_rb /)
+      kbo(:,49,16) = (/ &
+        & 0.46270e-03_rb,0.43113e-03_rb,0.40397e-03_rb,0.38027e-03_rb,0.36021e-03_rb /)
+      kbo(:,50,16) = (/ &
+        & 0.47605e-03_rb,0.44249e-03_rb,0.41370e-03_rb,0.38887e-03_rb,0.36733e-03_rb /)
+      kbo(:,51,16) = (/ &
+        & 0.48981e-03_rb,0.45414e-03_rb,0.42376e-03_rb,0.39765e-03_rb,0.37477e-03_rb /)
+      kbo(:,52,16) = (/ &
+        & 0.50430e-03_rb,0.46661e-03_rb,0.43437e-03_rb,0.40673e-03_rb,0.38268e-03_rb /)
+      kbo(:,53,16) = (/ &
+        & 0.51980e-03_rb,0.47970e-03_rb,0.44558e-03_rb,0.41639e-03_rb,0.39115e-03_rb /)
+      kbo(:,54,16) = (/ &
+        & 0.53506e-03_rb,0.49244e-03_rb,0.45647e-03_rb,0.42564e-03_rb,0.39926e-03_rb /)
+      kbo(:,55,16) = (/ &
+        & 0.55131e-03_rb,0.50528e-03_rb,0.46739e-03_rb,0.43505e-03_rb,0.40730e-03_rb /)
+      kbo(:,56,16) = (/ &
+        & 0.56909e-03_rb,0.51883e-03_rb,0.47884e-03_rb,0.44497e-03_rb,0.41571e-03_rb /)
+      kbo(:,57,16) = (/ &
+        & 0.58824e-03_rb,0.53334e-03_rb,0.49097e-03_rb,0.45523e-03_rb,0.42457e-03_rb /)
+      kbo(:,58,16) = (/ &
+        & 0.60745e-03_rb,0.54837e-03_rb,0.50301e-03_rb,0.46546e-03_rb,0.43352e-03_rb /)
+      kbo(:,59,16) = (/ &
+        & 0.61557e-03_rb,0.55493e-03_rb,0.50805e-03_rb,0.46962e-03_rb,0.43716e-03_rb /)
+
+!     -----------------------------------------------------------------
+
+      forrefo(:, 1) = (/ 0.351362e-07_rb, 0.341136e-07_rb, 0.181317e-06_rb /)
+      forrefo(:, 2) = (/ 0.109648e-06_rb, 0.344240e-06_rb, 0.139709e-05_rb /)
+      forrefo(:, 3) = (/ 0.374823e-06_rb, 0.103424e-05_rb, 0.188717e-05_rb /)
+      forrefo(:, 4) = (/ 0.580041e-06_rb, 0.116876e-05_rb, 0.121183e-05_rb /)
+      forrefo(:, 5) = (/ 0.115608e-05_rb, 0.148110e-05_rb, 0.836083e-06_rb /)
+      forrefo(:, 6) = (/ 0.181460e-05_rb, 0.133313e-05_rb, 0.500167e-06_rb /)
+      forrefo(:, 7) = (/ 0.199096e-05_rb, 0.115276e-05_rb, 0.432994e-06_rb /)
+      forrefo(:, 8) = (/ 0.183730e-05_rb, 0.122260e-05_rb, 0.433248e-06_rb /)
+      forrefo(:, 9) = (/ 0.198386e-05_rb, 0.100130e-05_rb, 0.269712e-06_rb /)
+      forrefo(:,10) = (/ 0.276382e-05_rb, 0.749215e-06_rb, 0.236919e-06_rb /)
+      forrefo(:,11) = (/ 0.298202e-05_rb, 0.629688e-06_rb, 0.228388e-06_rb /)
+      forrefo(:,12) = (/ 0.364604e-05_rb, 0.455336e-06_rb, 0.206130e-06_rb /)
+      forrefo(:,13) = (/ 0.373339e-05_rb, 0.245210e-06_rb, 0.201987e-06_rb /)
+      forrefo(:,14) = (/ 0.480378e-05_rb, 0.177591e-06_rb, 0.171458e-06_rb /)
+      forrefo(:,15) = (/ 0.521700e-05_rb, 0.203358e-06_rb, 0.189559e-06_rb /)
+      forrefo(:,16) = (/ 0.542717e-05_rb, 0.219022e-06_rb, 0.218271e-06_rb /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+        &  0.538526e-04_rb, 0.464603e-04_rb, 0.400828e-04_rb, 0.345807e-04_rb, 0.298339e-04_rb, &
+        &  0.257386e-04_rb, 0.222055e-04_rb, 0.191574e-04_rb, 0.165277e-04_rb, 0.142590e-04_rb /)
+      selfrefo(:, 2) = (/ &
+        &  0.162409e-03_rb, 0.128347e-03_rb, 0.101430e-03_rb, 0.801571e-04_rb, 0.633460e-04_rb, &
+        &  0.500607e-04_rb, 0.395616e-04_rb, 0.312645e-04_rb, 0.247075e-04_rb, 0.195257e-04_rb /)
+      selfrefo(:, 3) = (/ &
+        &  0.262882e-03_rb, 0.212793e-03_rb, 0.172247e-03_rb, 0.139427e-03_rb, 0.112860e-03_rb, &
+        &  0.913557e-04_rb, 0.739487e-04_rb, 0.598584e-04_rb, 0.484529e-04_rb, 0.392206e-04_rb /)
+      selfrefo(:, 4) = (/ &
+        &  0.242873e-03_rb, 0.204225e-03_rb, 0.171726e-03_rb, 0.144399e-03_rb, 0.121421e-03_rb, &
+        &  0.102099e-03_rb, 0.858516e-04_rb, 0.721899e-04_rb, 0.607022e-04_rb, 0.510426e-04_rb /)
+      selfrefo(:, 5) = (/ &
+        &  0.235614e-03_rb, 0.207814e-03_rb, 0.183293e-03_rb, 0.161666e-03_rb, 0.142591e-03_rb, &
+        &  0.125766e-03_rb, 0.110927e-03_rb, 0.978381e-04_rb, 0.862939e-04_rb, 0.761119e-04_rb /)
+      selfrefo(:, 6) = (/ &
+        &  0.205508e-03_rb, 0.190174e-03_rb, 0.175985e-03_rb, 0.162854e-03_rb, 0.150702e-03_rb, &
+        &  0.139458e-03_rb, 0.129052e-03_rb, 0.119423e-03_rb, 0.110513e-03_rb, 0.102267e-03_rb /)
+      selfrefo(:, 7) = (/ &
+        &  0.185027e-03_rb, 0.175148e-03_rb, 0.165796e-03_rb, 0.156944e-03_rb, 0.148565e-03_rb, &
+        &  0.140633e-03_rb, 0.133124e-03_rb, 0.126016e-03_rb, 0.119288e-03_rb, 0.112919e-03_rb /)
+      selfrefo(:, 8) = (/ &
+        &  0.192634e-03_rb, 0.180192e-03_rb, 0.168554e-03_rb, 0.157668e-03_rb, 0.147484e-03_rb, &
+        &  0.137959e-03_rb, 0.129048e-03_rb, 0.120713e-03_rb, 0.112917e-03_rb, 0.105624e-03_rb /)
+      selfrefo(:, 9) = (/ &
+        &  0.161632e-03_rb, 0.155919e-03_rb, 0.150408e-03_rb, 0.145092e-03_rb, 0.139963e-03_rb, &
+        &  0.135016e-03_rb, 0.130244e-03_rb, 0.125640e-03_rb, 0.121199e-03_rb, 0.116915e-03_rb /)
+      selfrefo(:,10) = (/ &
+        &  0.120880e-03_rb, 0.125265e-03_rb, 0.129810e-03_rb, 0.134520e-03_rb, 0.139400e-03_rb, &
+        &  0.144458e-03_rb, 0.149699e-03_rb, 0.155130e-03_rb, 0.160758e-03_rb, 0.166591e-03_rb /)
+      selfrefo(:,11) = (/ &
+        &  0.104705e-03_rb, 0.111761e-03_rb, 0.119291e-03_rb, 0.127330e-03_rb, 0.135910e-03_rb, &
+        &  0.145068e-03_rb, 0.154843e-03_rb, 0.165277e-03_rb, 0.176414e-03_rb, 0.188302e-03_rb /)
+      selfrefo(:,12) = (/ &
+        &  0.846335e-04_rb, 0.951236e-04_rb, 0.106914e-03_rb, 0.120166e-03_rb, 0.135060e-03_rb, &
+        &  0.151800e-03_rb, 0.170616e-03_rb, 0.191763e-03_rb, 0.215532e-03_rb, 0.242246e-03_rb /)
+      selfrefo(:,13) = (/ &
+        &  0.669754e-04_rb, 0.781902e-04_rb, 0.912829e-04_rb, 0.106568e-03_rb, 0.124413e-03_rb, &
+        &  0.145245e-03_rb, 0.169566e-03_rb, 0.197959e-03_rb, 0.231107e-03_rb, 0.269805e-03_rb /)
+      selfrefo(:,14) = (/ &
+        &  0.597091e-04_rb, 0.722265e-04_rb, 0.873679e-04_rb, 0.105684e-03_rb, 0.127839e-03_rb, &
+        &  0.154639e-03_rb, 0.187057e-03_rb, 0.226272e-03_rb, 0.273707e-03_rb, 0.331087e-03_rb /)
+      selfrefo(:,15) = (/ &
+        &  0.640410e-04_rb, 0.771879e-04_rb, 0.930338e-04_rb, 0.112133e-03_rb, 0.135152e-03_rb, &
+        &  0.162897e-03_rb, 0.196338e-03_rb, 0.236644e-03_rb, 0.285225e-03_rb, 0.343778e-03_rb /)
+      selfrefo(:,16) = (/ &
+        &  0.666420e-04_rb, 0.801056e-04_rb, 0.962892e-04_rb, 0.115742e-03_rb, 0.139126e-03_rb, &
+        &  0.167233e-03_rb, 0.201019e-03_rb, 0.241630e-03_rb, 0.290446e-03_rb, 0.349125e-03_rb /)
+     
+      end subroutine sw_kgb22
+
+! **************************************************************************
+      subroutine sw_kgb23
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg23, only : kao, selfrefo, forrefo, sfluxrefo, raylo, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:) = (/ &
+        & 53.2101_rb , 51.4143_rb, 49.3348_rb, 45.4612_rb    , &
+        & 40.8294_rb , 35.1801_rb, 28.6947_rb, 21.5751_rb    , &
+        & 14.6388_rb , 1.59111_rb, 1.31860_rb, 1.04018_rb    , &
+        & 0.762140_rb,0.484214_rb,0.182275_rb, 2.54948e-02_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:) = (/ &
+        & 5.24745E+01_rb, 5.13293E+01_rb, 4.88316E+01_rb, 4.53514E+01_rb,&
+        & 4.06958E+01_rb, 3.51979E+01_rb, 2.88231E+01_rb, 2.17108E+01_rb,&
+        & 1.47994E+01_rb, 1.61878E+00_rb, 1.33808E+00_rb, 1.05803E+00_rb,&
+        & 7.75937E-01_rb, 4.93975E-01_rb, 1.85378E-01_rb, 2.60465E-02_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:) = (/ &
+        & 3.21095E-02_rb, 2.99544E-02_rb, 2.74931E-02_rb, 2.57618E-02_rb,&
+        & 2.31750E-02_rb, 1.99060E-02_rb, 1.60777E-02_rb, 1.20476E-02_rb,&
+        & 8.19384E-03_rb, 8.72206E-04_rb, 7.12455E-04_rb, 5.62376E-04_rb,&
+        & 4.07471E-04_rb, 2.54023E-04_rb, 9.13143E-05_rb, 1.29931E-05_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:) = (/ &
+        &-1.51026E-02_rb,-1.43754E-02_rb,-1.35261E-02_rb,-1.25185E-02_rb,&
+        &-1.11497E-02_rb,-9.50076E-03_rb,-7.64759E-03_rb,-5.72781E-03_rb,&
+        &-3.87542E-03_rb,-4.14658E-04_rb,-3.41482E-04_rb,-2.69846E-04_rb,&
+        &-1.97406E-04_rb,-1.24745E-04_rb,-4.65613E-05_rb,-6.54807E-06_rb/)
+
+! Rayleigh extinction coefficient at all v 
+      raylo(:) = (/ &
+        & 5.94837e-08_rb,5.70593e-08_rb,6.27845e-08_rb,5.56602e-08_rb, &
+        & 5.25571e-08_rb,4.73388e-08_rb,4.17466e-08_rb,3.98097e-08_rb, &
+        & 4.00786e-08_rb,3.67478e-08_rb,3.45186e-08_rb,3.46156e-08_rb, &
+        & 3.32155e-08_rb,3.23642e-08_rb,2.72590e-08_rb,2.96813e-08_rb /)
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1) = (/ &
+        & 0.33078e-07_rb,0.34034e-07_rb,0.35124e-07_rb,0.34187e-07_rb,0.34744e-07_rb /)
+      kao(:, 2, 1) = (/ &
+        & 0.25544e-07_rb,0.25873e-07_rb,0.26742e-07_rb,0.27512e-07_rb,0.27504e-07_rb /)
+      kao(:, 3, 1) = (/ &
+        & 0.18549e-07_rb,0.19611e-07_rb,0.20840e-07_rb,0.22548e-07_rb,0.23069e-07_rb /)
+      kao(:, 4, 1) = (/ &
+        & 0.28794e-07_rb,0.30837e-07_rb,0.32679e-07_rb,0.34307e-07_rb,0.36901e-07_rb /)
+      kao(:, 5, 1) = (/ &
+        & 0.36776e-07_rb,0.39144e-07_rb,0.41300e-07_rb,0.43264e-07_rb,0.46626e-07_rb /)
+      kao(:, 6, 1) = (/ &
+        & 0.59710e-07_rb,0.62941e-07_rb,0.65500e-07_rb,0.67353e-07_rb,0.68774e-07_rb /)
+      kao(:, 7, 1) = (/ &
+        & 0.12143e-06_rb,0.12932e-06_rb,0.13250e-06_rb,0.13526e-06_rb,0.13849e-06_rb /)
+      kao(:, 8, 1) = (/ &
+        & 0.12531e-06_rb,0.13241e-06_rb,0.13939e-06_rb,0.14705e-06_rb,0.15465e-06_rb /)
+      kao(:, 9, 1) = (/ &
+        & 0.20209e-06_rb,0.21134e-06_rb,0.22163e-06_rb,0.23098e-06_rb,0.24004e-06_rb /)
+      kao(:,10, 1) = (/ &
+        & 0.10750e-05_rb,0.11204e-05_rb,0.11575e-05_rb,0.11923e-05_rb,0.12227e-05_rb /)
+      kao(:,11, 1) = (/ &
+        & 0.27782e-05_rb,0.28204e-05_rb,0.28406e-05_rb,0.28380e-05_rb,0.28440e-05_rb /)
+      kao(:,12, 1) = (/ &
+        & 0.38510e-05_rb,0.39934e-05_rb,0.40697e-05_rb,0.41102e-05_rb,0.41571e-05_rb /)
+      kao(:,13, 1) = (/ &
+        & 0.43157e-05_rb,0.44488e-05_rb,0.45799e-05_rb,0.46585e-05_rb,0.47223e-05_rb /)
+      kao(:, 1, 2) = (/ &
+        & 0.84637e-06_rb,0.86989e-06_rb,0.90697e-06_rb,0.90000e-06_rb,0.91373e-06_rb /)
+      kao(:, 2, 2) = (/ &
+        & 0.67062e-06_rb,0.68649e-06_rb,0.72334e-06_rb,0.73645e-06_rb,0.72978e-06_rb /)
+      kao(:, 3, 2) = (/ &
+        & 0.52317e-06_rb,0.53924e-06_rb,0.55425e-06_rb,0.58347e-06_rb,0.57813e-06_rb /)
+      kao(:, 4, 2) = (/ &
+        & 0.39868e-06_rb,0.41431e-06_rb,0.42761e-06_rb,0.43892e-06_rb,0.45982e-06_rb /)
+      kao(:, 5, 2) = (/ &
+        & 0.32074e-06_rb,0.33452e-06_rb,0.34754e-06_rb,0.35582e-06_rb,0.37378e-06_rb /)
+      kao(:, 6, 2) = (/ &
+        & 0.42465e-06_rb,0.44058e-06_rb,0.45605e-06_rb,0.47192e-06_rb,0.48493e-06_rb /)
+      kao(:, 7, 2) = (/ &
+        & 0.47581e-06_rb,0.50000e-06_rb,0.52487e-06_rb,0.54192e-06_rb,0.55955e-06_rb /)
+      kao(:, 8, 2) = (/ &
+        & 0.10592e-05_rb,0.11093e-05_rb,0.11483e-05_rb,0.11923e-05_rb,0.12169e-05_rb /)
+      kao(:, 9, 2) = (/ &
+        & 0.50835e-05_rb,0.51710e-05_rb,0.52329e-05_rb,0.52644e-05_rb,0.52818e-05_rb /)
+      kao(:,10, 2) = (/ &
+        & 0.77867e-05_rb,0.82156e-05_rb,0.86002e-05_rb,0.89664e-05_rb,0.92394e-05_rb /)
+      kao(:,11, 2) = (/ &
+        & 0.89031e-05_rb,0.93573e-05_rb,0.97686e-05_rb,0.10236e-04_rb,0.10591e-04_rb /)
+      kao(:,12, 2) = (/ &
+        & 0.98068e-05_rb,0.10238e-04_rb,0.10700e-04_rb,0.11108e-04_rb,0.11471e-04_rb /)
+      kao(:,13, 2) = (/ &
+        & 0.11145e-04_rb,0.11697e-04_rb,0.12123e-04_rb,0.12482e-04_rb,0.12856e-04_rb /)
+      kao(:, 1, 3) = (/ &
+        & 0.66049e-05_rb,0.67547e-05_rb,0.70104e-05_rb,0.69745e-05_rb,0.70687e-05_rb /)
+      kao(:, 2, 3) = (/ &
+        & 0.54104e-05_rb,0.55245e-05_rb,0.57623e-05_rb,0.58532e-05_rb,0.58099e-05_rb /)
+      kao(:, 3, 3) = (/ &
+        & 0.43608e-05_rb,0.44784e-05_rb,0.45778e-05_rb,0.47665e-05_rb,0.47295e-05_rb /)
+      kao(:, 4, 3) = (/ &
+        & 0.35399e-05_rb,0.36454e-05_rb,0.37356e-05_rb,0.38107e-05_rb,0.39586e-05_rb /)
+      kao(:, 5, 3) = (/ &
+        & 0.28576e-05_rb,0.29552e-05_rb,0.30325e-05_rb,0.31028e-05_rb,0.32276e-05_rb /)
+      kao(:, 6, 3) = (/ &
+        & 0.21017e-05_rb,0.21836e-05_rb,0.22554e-05_rb,0.23121e-05_rb,0.23486e-05_rb /)
+      kao(:, 7, 3) = (/ &
+        & 0.19384e-05_rb,0.19914e-05_rb,0.20428e-05_rb,0.20879e-05_rb,0.21191e-05_rb /)
+      kao(:, 8, 3) = (/ &
+        & 0.32672e-05_rb,0.33753e-05_rb,0.34694e-05_rb,0.35273e-05_rb,0.35984e-05_rb /)
+      kao(:, 9, 3) = (/ &
+        & 0.82257e-05_rb,0.84975e-05_rb,0.86969e-05_rb,0.88995e-05_rb,0.90123e-05_rb /)
+      kao(:,10, 3) = (/ &
+        & 0.35363e-04_rb,0.36204e-04_rb,0.36916e-04_rb,0.37708e-04_rb,0.38294e-04_rb /)
+      kao(:,11, 3) = (/ &
+        & 0.48837e-04_rb,0.50952e-04_rb,0.52710e-04_rb,0.54347e-04_rb,0.55976e-04_rb /)
+      kao(:,12, 3) = (/ &
+        & 0.56059e-04_rb,0.58301e-04_rb,0.60100e-04_rb,0.61776e-04_rb,0.63179e-04_rb /)
+      kao(:,13, 3) = (/ &
+        & 0.57871e-04_rb,0.59505e-04_rb,0.60930e-04_rb,0.62289e-04_rb,0.63278e-04_rb /)
+      kao(:, 1, 4) = (/ &
+        & 0.27624e-04_rb,0.28017e-04_rb,0.29078e-04_rb,0.28567e-04_rb,0.28724e-04_rb /)
+      kao(:, 2, 4) = (/ &
+        & 0.23107e-04_rb,0.23464e-04_rb,0.24357e-04_rb,0.24519e-04_rb,0.24024e-04_rb /)
+      kao(:, 3, 4) = (/ &
+        & 0.19113e-04_rb,0.19400e-04_rb,0.19615e-04_rb,0.20420e-04_rb,0.19962e-04_rb /)
+      kao(:, 4, 4) = (/ &
+        & 0.15873e-04_rb,0.16138e-04_rb,0.16349e-04_rb,0.16528e-04_rb,0.17176e-04_rb /)
+      kao(:, 5, 4) = (/ &
+        & 0.13198e-04_rb,0.13437e-04_rb,0.13641e-04_rb,0.13810e-04_rb,0.14393e-04_rb /)
+      kao(:, 6, 4) = (/ &
+        & 0.10951e-04_rb,0.11172e-04_rb,0.11352e-04_rb,0.11506e-04_rb,0.11631e-04_rb /)
+      kao(:, 7, 4) = (/ &
+        & 0.86121e-05_rb,0.88300e-05_rb,0.90149e-05_rb,0.91565e-05_rb,0.92594e-05_rb /)
+      kao(:, 8, 4) = (/ &
+        & 0.71478e-05_rb,0.72918e-05_rb,0.74035e-05_rb,0.74959e-05_rb,0.75566e-05_rb /)
+      kao(:, 9, 4) = (/ &
+        & 0.16458e-04_rb,0.17092e-04_rb,0.17686e-04_rb,0.17967e-04_rb,0.18273e-04_rb /)
+      kao(:,10, 4) = (/ &
+        & 0.47953e-04_rb,0.49663e-04_rb,0.51524e-04_rb,0.52800e-04_rb,0.54192e-04_rb /)
+      kao(:,11, 4) = (/ &
+        & 0.94263e-04_rb,0.95557e-04_rb,0.96513e-04_rb,0.97430e-04_rb,0.97733e-04_rb /)
+      kao(:,12, 4) = (/ &
+        & 0.12087e-03_rb,0.12152e-03_rb,0.12240e-03_rb,0.12318e-03_rb,0.12403e-03_rb /)
+      kao(:,13, 4) = (/ &
+        & 0.12781e-03_rb,0.12897e-03_rb,0.13049e-03_rb,0.13171e-03_rb,0.13337e-03_rb /)
+      kao(:, 1, 5) = (/ &
+        & 0.82859e-04_rb,0.84817e-04_rb,0.89056e-04_rb,0.88057e-04_rb,0.89410e-04_rb /)
+      kao(:, 2, 5) = (/ &
+        & 0.70937e-04_rb,0.72685e-04_rb,0.76796e-04_rb,0.77955e-04_rb,0.76735e-04_rb /)
+      kao(:, 3, 5) = (/ &
+        & 0.59876e-04_rb,0.61448e-04_rb,0.62837e-04_rb,0.66293e-04_rb,0.64996e-04_rb /)
+      kao(:, 4, 5) = (/ &
+        & 0.50598e-04_rb,0.52054e-04_rb,0.53293e-04_rb,0.54332e-04_rb,0.57333e-04_rb /)
+      kao(:, 5, 5) = (/ &
+        & 0.42742e-04_rb,0.44035e-04_rb,0.45164e-04_rb,0.46134e-04_rb,0.48935e-04_rb /)
+      kao(:, 6, 5) = (/ &
+        & 0.35769e-04_rb,0.36975e-04_rb,0.38038e-04_rb,0.38917e-04_rb,0.39681e-04_rb /)
+      kao(:, 7, 5) = (/ &
+        & 0.29747e-04_rb,0.30824e-04_rb,0.31756e-04_rb,0.32589e-04_rb,0.33314e-04_rb /)
+      kao(:, 8, 5) = (/ &
+        & 0.21994e-04_rb,0.22945e-04_rb,0.23786e-04_rb,0.24517e-04_rb,0.25155e-04_rb /)
+      kao(:, 9, 5) = (/ &
+        & 0.22298e-04_rb,0.22688e-04_rb,0.23127e-04_rb,0.23803e-04_rb,0.24335e-04_rb /)
+      kao(:,10, 5) = (/ &
+        & 0.88898e-04_rb,0.91280e-04_rb,0.93333e-04_rb,0.95224e-04_rb,0.96298e-04_rb /)
+      kao(:,11, 5) = (/ &
+        & 0.12299e-03_rb,0.12407e-03_rb,0.12536e-03_rb,0.12642e-03_rb,0.12813e-03_rb /)
+      kao(:,12, 5) = (/ &
+        & 0.14539e-03_rb,0.14851e-03_rb,0.15022e-03_rb,0.15157e-03_rb,0.15204e-03_rb /)
+      kao(:,13, 5) = (/ &
+        & 0.15949e-03_rb,0.16239e-03_rb,0.16467e-03_rb,0.16667e-03_rb,0.16801e-03_rb /)
+      kao(:, 1, 6) = (/ &
+        & 0.25339e-03_rb,0.25995e-03_rb,0.27170e-03_rb,0.26963e-03_rb,0.27413e-03_rb /)
+      kao(:, 2, 6) = (/ &
+        & 0.21908e-03_rb,0.22404e-03_rb,0.23522e-03_rb,0.23902e-03_rb,0.23717e-03_rb /)
+      kao(:, 3, 6) = (/ &
+        & 0.18611e-03_rb,0.19076e-03_rb,0.19518e-03_rb,0.20503e-03_rb,0.20222e-03_rb /)
+      kao(:, 4, 6) = (/ &
+        & 0.15769e-03_rb,0.16210e-03_rb,0.16597e-03_rb,0.16948e-03_rb,0.17817e-03_rb /)
+      kao(:, 5, 6) = (/ &
+        & 0.13402e-03_rb,0.13792e-03_rb,0.14153e-03_rb,0.14434e-03_rb,0.15267e-03_rb /)
+      kao(:, 6, 6) = (/ &
+        & 0.11390e-03_rb,0.11743e-03_rb,0.12065e-03_rb,0.12316e-03_rb,0.12543e-03_rb /)
+      kao(:, 7, 6) = (/ &
+        & 0.96417e-04_rb,0.99612e-04_rb,0.10233e-03_rb,0.10453e-03_rb,0.10652e-03_rb /)
+      kao(:, 8, 6) = (/ &
+        & 0.81395e-04_rb,0.84205e-04_rb,0.86346e-04_rb,0.88406e-04_rb,0.90122e-04_rb /)
+      kao(:, 9, 6) = (/ &
+        & 0.47776e-04_rb,0.48971e-04_rb,0.49736e-04_rb,0.49917e-04_rb,0.50289e-04_rb /)
+      kao(:,10, 6) = (/ &
+        & 0.10698e-03_rb,0.10815e-03_rb,0.10817e-03_rb,0.10799e-03_rb,0.10851e-03_rb /)
+      kao(:,11, 6) = (/ &
+        & 0.20220e-03_rb,0.20727e-03_rb,0.21241e-03_rb,0.21675e-03_rb,0.21989e-03_rb /)
+      kao(:,12, 6) = (/ &
+        & 0.23474e-03_rb,0.23601e-03_rb,0.23974e-03_rb,0.24383e-03_rb,0.24876e-03_rb /)
+      kao(:,13, 6) = (/ &
+        & 0.23410e-03_rb,0.23809e-03_rb,0.24185e-03_rb,0.24554e-03_rb,0.24952e-03_rb /)
+      kao(:, 1, 7) = (/ &
+        & 0.67024e-03_rb,0.68026e-03_rb,0.70419e-03_rb,0.70159e-03_rb,0.71089e-03_rb /)
+      kao(:, 2, 7) = (/ &
+        & 0.58729e-03_rb,0.59778e-03_rb,0.62097e-03_rb,0.62912e-03_rb,0.62423e-03_rb /)
+      kao(:, 3, 7) = (/ &
+        & 0.50967e-03_rb,0.51900e-03_rb,0.52765e-03_rb,0.54794e-03_rb,0.54266e-03_rb /)
+      kao(:, 4, 7) = (/ &
+        & 0.44167e-03_rb,0.45006e-03_rb,0.45793e-03_rb,0.46469e-03_rb,0.48335e-03_rb /)
+      kao(:, 5, 7) = (/ &
+        & 0.38096e-03_rb,0.38881e-03_rb,0.39576e-03_rb,0.40259e-03_rb,0.42086e-03_rb /)
+      kao(:, 6, 7) = (/ &
+        & 0.32818e-03_rb,0.33539e-03_rb,0.34192e-03_rb,0.34829e-03_rb,0.35405e-03_rb /)
+      kao(:, 7, 7) = (/ &
+        & 0.28259e-03_rb,0.28946e-03_rb,0.29584e-03_rb,0.30203e-03_rb,0.30742e-03_rb /)
+      kao(:, 8, 7) = (/ &
+        & 0.24273e-03_rb,0.24912e-03_rb,0.25546e-03_rb,0.26110e-03_rb,0.26607e-03_rb /)
+      kao(:, 9, 7) = (/ &
+        & 0.19937e-03_rb,0.20653e-03_rb,0.21314e-03_rb,0.21968e-03_rb,0.22520e-03_rb /)
+      kao(:,10, 7) = (/ &
+        & 0.13306e-03_rb,0.13331e-03_rb,0.13393e-03_rb,0.13538e-03_rb,0.13616e-03_rb /)
+      kao(:,11, 7) = (/ &
+        & 0.16236e-03_rb,0.16154e-03_rb,0.16187e-03_rb,0.16113e-03_rb,0.16209e-03_rb /)
+      kao(:,12, 7) = (/ &
+        & 0.17872e-03_rb,0.18355e-03_rb,0.18612e-03_rb,0.18792e-03_rb,0.18745e-03_rb /)
+      kao(:,13, 7) = (/ &
+        & 0.18970e-03_rb,0.19384e-03_rb,0.19773e-03_rb,0.20261e-03_rb,0.20377e-03_rb /)
+      kao(:, 1, 8) = (/ &
+        & 0.18130e-02_rb,0.18305e-02_rb,0.18716e-02_rb,0.18655e-02_rb,0.18814e-02_rb /)
+      kao(:, 2, 8) = (/ &
+        & 0.16420e-02_rb,0.16600e-02_rb,0.17006e-02_rb,0.17156e-02_rb,0.17108e-02_rb /)
+      kao(:, 3, 8) = (/ &
+        & 0.14687e-02_rb,0.14870e-02_rb,0.15042e-02_rb,0.15423e-02_rb,0.15376e-02_rb /)
+      kao(:, 4, 8) = (/ &
+        & 0.13068e-02_rb,0.13248e-02_rb,0.13421e-02_rb,0.13592e-02_rb,0.13960e-02_rb /)
+      kao(:, 5, 8) = (/ &
+        & 0.11574e-02_rb,0.11753e-02_rb,0.11928e-02_rb,0.12097e-02_rb,0.12467e-02_rb /)
+      kao(:, 6, 8) = (/ &
+        & 0.10167e-02_rb,0.10342e-02_rb,0.10515e-02_rb,0.10681e-02_rb,0.10840e-02_rb /)
+      kao(:, 7, 8) = (/ &
+        & 0.88992e-03_rb,0.90662e-03_rb,0.92299e-03_rb,0.93844e-03_rb,0.95347e-03_rb /)
+      kao(:, 8, 8) = (/ &
+        & 0.78445e-03_rb,0.80031e-03_rb,0.81639e-03_rb,0.83131e-03_rb,0.84631e-03_rb /)
+      kao(:, 9, 8) = (/ &
+        & 0.69812e-03_rb,0.71312e-03_rb,0.72801e-03_rb,0.74222e-03_rb,0.75605e-03_rb /)
+      kao(:,10, 8) = (/ &
+        & 0.32521e-03_rb,0.33835e-03_rb,0.35194e-03_rb,0.36381e-03_rb,0.37594e-03_rb /)
+      kao(:,11, 8) = (/ &
+        & 0.31406e-03_rb,0.32013e-03_rb,0.32456e-03_rb,0.33261e-03_rb,0.33741e-03_rb /)
+      kao(:,12, 8) = (/ &
+        & 0.28132e-03_rb,0.28732e-03_rb,0.29674e-03_rb,0.30509e-03_rb,0.31393e-03_rb /)
+      kao(:,13, 8) = (/ &
+        & 0.25704e-03_rb,0.26316e-03_rb,0.27195e-03_rb,0.27732e-03_rb,0.28905e-03_rb /)
+      kao(:, 1, 9) = (/ &
+        & 0.67370e-02_rb,0.67873e-02_rb,0.68896e-02_rb,0.68819e-02_rb,0.69268e-02_rb /)
+      kao(:, 2, 9) = (/ &
+        & 0.63111e-02_rb,0.63622e-02_rb,0.64623e-02_rb,0.65060e-02_rb,0.65027e-02_rb /)
+      kao(:, 3, 9) = (/ &
+        & 0.58834e-02_rb,0.59361e-02_rb,0.59858e-02_rb,0.60811e-02_rb,0.60806e-02_rb /)
+      kao(:, 4, 9) = (/ &
+        & 0.54753e-02_rb,0.55309e-02_rb,0.55823e-02_rb,0.56306e-02_rb,0.57229e-02_rb /)
+      kao(:, 5, 9) = (/ &
+        & 0.50781e-02_rb,0.51373e-02_rb,0.51895e-02_rb,0.52391e-02_rb,0.53328e-02_rb /)
+      kao(:, 6, 9) = (/ &
+        & 0.46791e-02_rb,0.47408e-02_rb,0.47949e-02_rb,0.48470e-02_rb,0.48993e-02_rb /)
+      kao(:, 7, 9) = (/ &
+        & 0.42724e-02_rb,0.43381e-02_rb,0.43951e-02_rb,0.44503e-02_rb,0.45061e-02_rb /)
+      kao(:, 8, 9) = (/ &
+        & 0.38568e-02_rb,0.39254e-02_rb,0.39848e-02_rb,0.40431e-02_rb,0.41005e-02_rb /)
+      kao(:, 9, 9) = (/ &
+        & 0.35657e-02_rb,0.36362e-02_rb,0.36994e-02_rb,0.37608e-02_rb,0.38215e-02_rb /)
+      kao(:,10, 9) = (/ &
+        & 0.33774e-02_rb,0.34501e-02_rb,0.35171e-02_rb,0.35811e-02_rb,0.36450e-02_rb /)
+      kao(:,11, 9) = (/ &
+        & 0.23923e-02_rb,0.24623e-02_rb,0.25263e-02_rb,0.25890e-02_rb,0.26517e-02_rb /)
+      kao(:,12, 9) = (/ &
+        & 0.16959e-02_rb,0.17542e-02_rb,0.18077e-02_rb,0.18614e-02_rb,0.19187e-02_rb /)
+      kao(:,13, 9) = (/ &
+        & 0.11732e-02_rb,0.12232e-02_rb,0.12712e-02_rb,0.13221e-02_rb,0.13677e-02_rb /)
+      kao(:, 1,10) = (/ &
+        & 0.19604e-01_rb,0.19698e-01_rb,0.19938e-01_rb,0.19854e-01_rb,0.19950e-01_rb /)
+      kao(:, 2,10) = (/ &
+        & 0.18714e-01_rb,0.18803e-01_rb,0.19035e-01_rb,0.19131e-01_rb,0.19102e-01_rb /)
+      kao(:, 3,10) = (/ &
+        & 0.17676e-01_rb,0.17785e-01_rb,0.17904e-01_rb,0.18189e-01_rb,0.18156e-01_rb /)
+      kao(:, 4,10) = (/ &
+        & 0.16662e-01_rb,0.16773e-01_rb,0.16908e-01_rb,0.17056e-01_rb,0.17303e-01_rb /)
+      kao(:, 5,10) = (/ &
+        & 0.15655e-01_rb,0.15775e-01_rb,0.15942e-01_rb,0.16103e-01_rb,0.16359e-01_rb /)
+      kao(:, 6,10) = (/ &
+        & 0.14694e-01_rb,0.14838e-01_rb,0.15029e-01_rb,0.15200e-01_rb,0.15320e-01_rb /)
+      kao(:, 7,10) = (/ &
+        & 0.13797e-01_rb,0.13959e-01_rb,0.14174e-01_rb,0.14350e-01_rb,0.14471e-01_rb /)
+      kao(:, 8,10) = (/ &
+        & 0.12902e-01_rb,0.13089e-01_rb,0.13313e-01_rb,0.13489e-01_rb,0.13626e-01_rb /)
+      kao(:, 9,10) = (/ &
+        & 0.11897e-01_rb,0.12105e-01_rb,0.12333e-01_rb,0.12512e-01_rb,0.12656e-01_rb /)
+      kao(:,10,10) = (/ &
+        & 0.11834e-01_rb,0.12072e-01_rb,0.12331e-01_rb,0.12548e-01_rb,0.12721e-01_rb /)
+      kao(:,11,10) = (/ &
+        & 0.11416e-01_rb,0.11699e-01_rb,0.11968e-01_rb,0.12141e-01_rb,0.12311e-01_rb /)
+      kao(:,12,10) = (/ &
+        & 0.10776e-01_rb,0.11070e-01_rb,0.11309e-01_rb,0.11507e-01_rb,0.11702e-01_rb /)
+      kao(:,13,10) = (/ &
+        & 0.99577e-02_rb,0.10263e-01_rb,0.10492e-01_rb,0.10719e-01_rb,0.10951e-01_rb /)
+      kao(:, 1,11) = (/ &
+        & 0.29783e-01_rb,0.29883e-01_rb,0.30210e-01_rb,0.30141e-01_rb,0.30248e-01_rb /)
+      kao(:, 2,11) = (/ &
+        & 0.28562e-01_rb,0.28743e-01_rb,0.29186e-01_rb,0.29339e-01_rb,0.29258e-01_rb /)
+      kao(:, 3,11) = (/ &
+        & 0.27212e-01_rb,0.27429e-01_rb,0.27654e-01_rb,0.28083e-01_rb,0.28023e-01_rb /)
+      kao(:, 4,11) = (/ &
+        & 0.25949e-01_rb,0.26197e-01_rb,0.26424e-01_rb,0.26623e-01_rb,0.27069e-01_rb /)
+      kao(:, 5,11) = (/ &
+        & 0.24686e-01_rb,0.24942e-01_rb,0.25176e-01_rb,0.25403e-01_rb,0.25908e-01_rb /)
+      kao(:, 6,11) = (/ &
+        & 0.23430e-01_rb,0.23686e-01_rb,0.23923e-01_rb,0.24158e-01_rb,0.24433e-01_rb /)
+      kao(:, 7,11) = (/ &
+        & 0.22171e-01_rb,0.22424e-01_rb,0.22653e-01_rb,0.22909e-01_rb,0.23203e-01_rb /)
+      kao(:, 8,11) = (/ &
+        & 0.20928e-01_rb,0.21171e-01_rb,0.21407e-01_rb,0.21699e-01_rb,0.22018e-01_rb /)
+      kao(:, 9,11) = (/ &
+        & 0.19076e-01_rb,0.19320e-01_rb,0.19548e-01_rb,0.19858e-01_rb,0.20150e-01_rb /)
+      kao(:,10,11) = (/ &
+        & 0.19537e-01_rb,0.19788e-01_rb,0.20064e-01_rb,0.20391e-01_rb,0.20843e-01_rb /)
+      kao(:,11,11) = (/ &
+        & 0.19137e-01_rb,0.19444e-01_rb,0.19793e-01_rb,0.20268e-01_rb,0.20695e-01_rb /)
+      kao(:,12,11) = (/ &
+        & 0.18393e-01_rb,0.18715e-01_rb,0.19143e-01_rb,0.19652e-01_rb,0.20037e-01_rb /)
+      kao(:,13,11) = (/ &
+        & 0.17255e-01_rb,0.17680e-01_rb,0.18170e-01_rb,0.18641e-01_rb,0.19010e-01_rb /)
+      kao(:, 1,12) = (/ &
+        & 0.46641e-01_rb,0.46796e-01_rb,0.47107e-01_rb,0.46977e-01_rb,0.47093e-01_rb /)
+      kao(:, 2,12) = (/ &
+        & 0.46819e-01_rb,0.46956e-01_rb,0.47337e-01_rb,0.47426e-01_rb,0.47339e-01_rb /)
+      kao(:, 3,12) = (/ &
+        & 0.46276e-01_rb,0.46366e-01_rb,0.46462e-01_rb,0.46935e-01_rb,0.46862e-01_rb /)
+      kao(:, 4,12) = (/ &
+        & 0.44986e-01_rb,0.45103e-01_rb,0.45287e-01_rb,0.45535e-01_rb,0.46152e-01_rb /)
+      kao(:, 5,12) = (/ &
+        & 0.43367e-01_rb,0.43552e-01_rb,0.43761e-01_rb,0.44035e-01_rb,0.44674e-01_rb /)
+      kao(:, 6,12) = (/ &
+        & 0.41584e-01_rb,0.41793e-01_rb,0.42020e-01_rb,0.42344e-01_rb,0.42701e-01_rb /)
+      kao(:, 7,12) = (/ &
+        & 0.39785e-01_rb,0.40007e-01_rb,0.40269e-01_rb,0.40635e-01_rb,0.41003e-01_rb /)
+      kao(:, 8,12) = (/ &
+        & 0.37918e-01_rb,0.38155e-01_rb,0.38468e-01_rb,0.38839e-01_rb,0.39210e-01_rb /)
+      kao(:, 9,12) = (/ &
+        & 0.35060e-01_rb,0.35328e-01_rb,0.35698e-01_rb,0.36105e-01_rb,0.36551e-01_rb /)
+      kao(:,10,12) = (/ &
+        & 0.35216e-01_rb,0.35547e-01_rb,0.35872e-01_rb,0.36327e-01_rb,0.36542e-01_rb /)
+      kao(:,11,12) = (/ &
+        & 0.35158e-01_rb,0.35374e-01_rb,0.35869e-01_rb,0.36242e-01_rb,0.36691e-01_rb /)
+      kao(:,12,12) = (/ &
+        & 0.34264e-01_rb,0.34598e-01_rb,0.35106e-01_rb,0.35505e-01_rb,0.36021e-01_rb /)
+      kao(:,13,12) = (/ &
+        & 0.32716e-01_rb,0.33195e-01_rb,0.33830e-01_rb,0.34228e-01_rb,0.34925e-01_rb /)
+      kao(:, 1,13) = (/ &
+        & 0.76084e-01_rb,0.76052e-01_rb,0.76051e-01_rb,0.75851e-01_rb,0.75753e-01_rb /)
+      kao(:, 2,13) = (/ &
+        & 0.79580e-01_rb,0.79564e-01_rb,0.79664e-01_rb,0.79619e-01_rb,0.79414e-01_rb /)
+      kao(:, 3,13) = (/ &
+        & 0.82218e-01_rb,0.82302e-01_rb,0.82367e-01_rb,0.82543e-01_rb,0.82246e-01_rb /)
+      kao(:, 4,13) = (/ &
+        & 0.83613e-01_rb,0.83740e-01_rb,0.83824e-01_rb,0.83866e-01_rb,0.84103e-01_rb /)
+      kao(:, 5,13) = (/ &
+        & 0.83913e-01_rb,0.84123e-01_rb,0.84289e-01_rb,0.84403e-01_rb,0.84840e-01_rb /)
+      kao(:, 6,13) = (/ &
+        & 0.83159e-01_rb,0.83442e-01_rb,0.83718e-01_rb,0.83891e-01_rb,0.83993e-01_rb /)
+      kao(:, 7,13) = (/ &
+        & 0.81401e-01_rb,0.81826e-01_rb,0.82202e-01_rb,0.82451e-01_rb,0.82656e-01_rb /)
+      kao(:, 8,13) = (/ &
+        & 0.78949e-01_rb,0.79505e-01_rb,0.79978e-01_rb,0.80351e-01_rb,0.80690e-01_rb /)
+      kao(:, 9,13) = (/ &
+        & 0.76002e-01_rb,0.76671e-01_rb,0.77279e-01_rb,0.77752e-01_rb,0.78257e-01_rb /)
+      kao(:,10,13) = (/ &
+        & 0.69777e-01_rb,0.70425e-01_rb,0.71054e-01_rb,0.71706e-01_rb,0.72167e-01_rb /)
+      kao(:,11,13) = (/ &
+        & 0.72929e-01_rb,0.73732e-01_rb,0.74323e-01_rb,0.75246e-01_rb,0.75786e-01_rb /)
+      kao(:,12,13) = (/ &
+        & 0.73007e-01_rb,0.74429e-01_rb,0.74922e-01_rb,0.75916e-01_rb,0.76947e-01_rb /)
+      kao(:,13,13) = (/ &
+        & 0.71376e-01_rb,0.72507e-01_rb,0.73710e-01_rb,0.74716e-01_rb,0.75702e-01_rb /)
+      kao(:, 1,14) = (/ &
+        & 0.12585e+00_rb,0.12569e+00_rb,0.12576e+00_rb,0.12571e+00_rb,0.12570e+00_rb /)
+      kao(:, 2,14) = (/ &
+        & 0.13868e+00_rb,0.13853e+00_rb,0.13849e+00_rb,0.13824e+00_rb,0.13803e+00_rb /)
+      kao(:, 3,14) = (/ &
+        & 0.15142e+00_rb,0.15135e+00_rb,0.15112e+00_rb,0.15093e+00_rb,0.15074e+00_rb /)
+      kao(:, 4,14) = (/ &
+        & 0.16359e+00_rb,0.16359e+00_rb,0.16339e+00_rb,0.16311e+00_rb,0.16285e+00_rb /)
+      kao(:, 5,14) = (/ &
+        & 0.17462e+00_rb,0.17472e+00_rb,0.17456e+00_rb,0.17421e+00_rb,0.17393e+00_rb /)
+      kao(:, 6,14) = (/ &
+        & 0.18403e+00_rb,0.18447e+00_rb,0.18450e+00_rb,0.18424e+00_rb,0.18395e+00_rb /)
+      kao(:, 7,14) = (/ &
+        & 0.19179e+00_rb,0.19239e+00_rb,0.19256e+00_rb,0.19253e+00_rb,0.19252e+00_rb /)
+      kao(:, 8,14) = (/ &
+        & 0.19772e+00_rb,0.19863e+00_rb,0.19901e+00_rb,0.19923e+00_rb,0.19947e+00_rb /)
+      kao(:, 9,14) = (/ &
+        & 0.20154e+00_rb,0.20279e+00_rb,0.20355e+00_rb,0.20417e+00_rb,0.20473e+00_rb /)
+      kao(:,10,14) = (/ &
+        & 0.18853e+00_rb,0.19028e+00_rb,0.19160e+00_rb,0.19253e+00_rb,0.19393e+00_rb /)
+      kao(:,11,14) = (/ &
+        & 0.18013e+00_rb,0.18167e+00_rb,0.18320e+00_rb,0.18375e+00_rb,0.18507e+00_rb /)
+      kao(:,12,14) = (/ &
+        & 0.19011e+00_rb,0.19027e+00_rb,0.19283e+00_rb,0.19402e+00_rb,0.19478e+00_rb /)
+      kao(:,13,14) = (/ &
+        & 0.19594e+00_rb,0.19738e+00_rb,0.19911e+00_rb,0.20124e+00_rb,0.20282e+00_rb /)
+      kao(:, 1,15) = (/ &
+        & 0.22369e+00_rb,0.22259e+00_rb,0.22155e+00_rb,0.22059e+00_rb,0.21997e+00_rb /)
+      kao(:, 2,15) = (/ &
+        & 0.25602e+00_rb,0.25478e+00_rb,0.25377e+00_rb,0.25306e+00_rb,0.25237e+00_rb /)
+      kao(:, 3,15) = (/ &
+        & 0.29258e+00_rb,0.29107e+00_rb,0.28998e+00_rb,0.28920e+00_rb,0.28830e+00_rb /)
+      kao(:, 4,15) = (/ &
+        & 0.33067e+00_rb,0.32888e+00_rb,0.32753e+00_rb,0.32646e+00_rb,0.32566e+00_rb /)
+      kao(:, 5,15) = (/ &
+        & 0.37114e+00_rb,0.36880e+00_rb,0.36713e+00_rb,0.36598e+00_rb,0.36499e+00_rb /)
+      kao(:, 6,15) = (/ &
+        & 0.41494e+00_rb,0.41167e+00_rb,0.40935e+00_rb,0.40779e+00_rb,0.40636e+00_rb /)
+      kao(:, 7,15) = (/ &
+        & 0.46115e+00_rb,0.45729e+00_rb,0.45455e+00_rb,0.45230e+00_rb,0.45004e+00_rb /)
+      kao(:, 8,15) = (/ &
+        & 0.50906e+00_rb,0.50463e+00_rb,0.50137e+00_rb,0.49843e+00_rb,0.49550e+00_rb /)
+      kao(:, 9,15) = (/ &
+        & 0.55829e+00_rb,0.55330e+00_rb,0.54936e+00_rb,0.54557e+00_rb,0.54168e+00_rb /)
+      kao(:,10,15) = (/ &
+        & 0.60814e+00_rb,0.60274e+00_rb,0.59806e+00_rb,0.59326e+00_rb,0.58833e+00_rb /)
+      kao(:,11,15) = (/ &
+        & 0.62954e+00_rb,0.62588e+00_rb,0.62076e+00_rb,0.61665e+00_rb,0.61184e+00_rb /)
+      kao(:,12,15) = (/ &
+        & 0.62585e+00_rb,0.62437e+00_rb,0.61807e+00_rb,0.61303e+00_rb,0.60869e+00_rb /)
+      kao(:,13,15) = (/ &
+        & 0.64856e+00_rb,0.64505e+00_rb,0.63861e+00_rb,0.63277e+00_rb,0.62702e+00_rb /)
+      kao(:, 1,16) = (/ &
+        & 0.33327e+00_rb,0.33385e+00_rb,0.33538e+00_rb,0.33638e+00_rb,0.33736e+00_rb /)
+      kao(:, 2,16) = (/ &
+        & 0.40916e+00_rb,0.40842e+00_rb,0.40848e+00_rb,0.40865e+00_rb,0.40854e+00_rb /)
+      kao(:, 3,16) = (/ &
+        & 0.50099e+00_rb,0.49888e+00_rb,0.49727e+00_rb,0.49588e+00_rb,0.49422e+00_rb /)
+      kao(:, 4,16) = (/ &
+        & 0.60389e+00_rb,0.60029e+00_rb,0.59704e+00_rb,0.59367e+00_rb,0.59071e+00_rb /)
+      kao(:, 5,16) = (/ &
+        & 0.71868e+00_rb,0.71337e+00_rb,0.70835e+00_rb,0.70318e+00_rb,0.69852e+00_rb /)
+      kao(:, 6,16) = (/ &
+        & 0.84815e+00_rb,0.84138e+00_rb,0.83446e+00_rb,0.82728e+00_rb,0.82023e+00_rb /)
+      kao(:, 7,16) = (/ &
+        & 0.99512e+00_rb,0.98644e+00_rb,0.97698e+00_rb,0.96695e+00_rb,0.95712e+00_rb /)
+      kao(:, 8,16) = (/ &
+        & 0.11606e+01_rb,0.11485e+01_rb,0.11354e+01_rb,0.11218e+01_rb,0.11077e+01_rb /)
+      kao(:, 9,16) = (/ &
+        & 0.13444e+01_rb,0.13282e+01_rb,0.13102e+01_rb,0.12917e+01_rb,0.12735e+01_rb /)
+      kao(:,10,16) = (/ &
+        & 0.15423e+01_rb,0.15207e+01_rb,0.14970e+01_rb,0.14733e+01_rb,0.14494e+01_rb /)
+      kao(:,11,16) = (/ &
+        & 0.17462e+01_rb,0.17138e+01_rb,0.16827e+01_rb,0.16518e+01_rb,0.16199e+01_rb /)
+      kao(:,12,16) = (/ &
+        & 0.19577e+01_rb,0.19145e+01_rb,0.18728e+01_rb,0.18320e+01_rb,0.17910e+01_rb /)
+      kao(:,13,16) = (/ &
+        & 0.21716e+01_rb,0.21171e+01_rb,0.20639e+01_rb,0.20113e+01_rb,0.19587e+01_rb /)
+  
+!     -----------------------------------------------------------------
+
+      forrefo(:, 1) = (/ 0.315770e-07_rb, 0.671978e-07_rb, 0.440649e-06_rb /)
+      forrefo(:, 2) = (/ 0.313674e-06_rb, 0.285252e-06_rb, 0.421024e-05_rb /)
+      forrefo(:, 3) = (/ 0.135818e-05_rb, 0.145071e-05_rb, 0.611285e-05_rb /)
+      forrefo(:, 4) = (/ 0.534065e-05_rb, 0.586268e-05_rb, 0.933970e-05_rb /)
+      forrefo(:, 5) = (/ 0.964007e-05_rb, 0.107110e-04_rb, 0.104486e-04_rb /)
+      forrefo(:, 6) = (/ 0.302775e-04_rb, 0.357530e-04_rb, 0.340724e-04_rb /)
+      forrefo(:, 7) = (/ 0.102437e-03_rb, 0.108475e-03_rb, 0.105245e-03_rb /)
+      forrefo(:, 8) = (/ 0.146054e-03_rb, 0.141490e-03_rb, 0.133071e-03_rb /)
+      forrefo(:, 9) = (/ 0.163978e-03_rb, 0.150208e-03_rb, 0.142864e-03_rb /)
+      forrefo(:,10) = (/ 0.220412e-03_rb, 0.182943e-03_rb, 0.150941e-03_rb /)
+      forrefo(:,11) = (/ 0.228877e-03_rb, 0.197679e-03_rb, 0.163220e-03_rb /)
+      forrefo(:,12) = (/ 0.234177e-03_rb, 0.217734e-03_rb, 0.185038e-03_rb /)
+      forrefo(:,13) = (/ 0.257187e-03_rb, 0.241570e-03_rb, 0.221178e-03_rb /)
+      forrefo(:,14) = (/ 0.272455e-03_rb, 0.270637e-03_rb, 0.256269e-03_rb /)
+      forrefo(:,15) = (/ 0.339445e-03_rb, 0.300268e-03_rb, 0.286574e-03_rb /)
+      forrefo(:,16) = (/ 0.338841e-03_rb, 0.355428e-03_rb, 0.353794e-03_rb /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+        &  0.100945e-04_rb, 0.801113e-05_rb, 0.635771e-05_rb, 0.504554e-05_rb, 0.400419e-05_rb, &
+        &  0.317777e-05_rb, 0.252191e-05_rb, 0.200141e-05_rb, 0.158834e-05_rb, 0.126052e-05_rb /)
+      selfrefo(:, 2) = (/ &
+        &  0.107573e-04_rb, 0.999809e-05_rb, 0.929245e-05_rb, 0.863661e-05_rb, 0.802706e-05_rb, &
+        &  0.746053e-05_rb, 0.693399e-05_rb, 0.644460e-05_rb, 0.598976e-05_rb, 0.556702e-05_rb /)
+      selfrefo(:, 3) = (/ &
+        &  0.350389e-04_rb, 0.319234e-04_rb, 0.290850e-04_rb, 0.264989e-04_rb, 0.241428e-04_rb, &
+        &  0.219962e-04_rb, 0.200404e-04_rb, 0.182586e-04_rb, 0.166351e-04_rb, 0.151560e-04_rb /)
+      selfrefo(:, 4) = (/ &
+        &  0.122993e-03_rb, 0.110885e-03_rb, 0.999691e-04_rb, 0.901277e-04_rb, 0.812551e-04_rb, &
+        &  0.732559e-04_rb, 0.660443e-04_rb, 0.595426e-04_rb, 0.536809e-04_rb, 0.483963e-04_rb /)
+      selfrefo(:, 5) = (/ &
+        &  0.206434e-03_rb, 0.187435e-03_rb, 0.170185e-03_rb, 0.154522e-03_rb, 0.140301e-03_rb, &
+        &  0.127388e-03_rb, 0.115664e-03_rb, 0.105019e-03_rb, 0.953540e-04_rb, 0.865783e-04_rb /)
+      selfrefo(:, 6) = (/ &
+        &  0.590645e-03_rb, 0.533109e-03_rb, 0.481177e-03_rb, 0.434305e-03_rb, 0.391998e-03_rb, &
+        &  0.353812e-03_rb, 0.319346e-03_rb, 0.288238e-03_rb, 0.260160e-03_rb, 0.234817e-03_rb /)
+      selfrefo(:, 7) = (/ &
+        &  0.163029e-02_rb, 0.148773e-02_rb, 0.135763e-02_rb, 0.123891e-02_rb, 0.113057e-02_rb, &
+        &  0.103170e-02_rb, 0.941483e-03_rb, 0.859153e-03_rb, 0.784023e-03_rb, 0.715462e-03_rb /)
+      selfrefo(:, 8) = (/ &
+        &  0.204528e-02_rb, 0.189258e-02_rb, 0.175128e-02_rb, 0.162053e-02_rb, 0.149954e-02_rb, &
+        &  0.138758e-02_rb, 0.128398e-02_rb, 0.118812e-02_rb, 0.109941e-02_rb, 0.101733e-02_rb /)
+      selfrefo(:, 9) = (/ &
+        &  0.210589e-02_rb, 0.197078e-02_rb, 0.184434e-02_rb, 0.172601e-02_rb, 0.161528e-02_rb, &
+        &  0.151164e-02_rb, 0.141466e-02_rb, 0.132390e-02_rb, 0.123896e-02_rb, 0.115947e-02_rb /)
+      selfrefo(:,10) = (/ &
+        &  0.245098e-02_rb, 0.233745e-02_rb, 0.222918e-02_rb, 0.212592e-02_rb, 0.202745e-02_rb, &
+        &  0.193353e-02_rb, 0.184397e-02_rb, 0.175856e-02_rb, 0.167710e-02_rb, 0.159941e-02_rb /)
+      selfrefo(:,11) = (/ &
+        &  0.267460e-02_rb, 0.253325e-02_rb, 0.239936e-02_rb, 0.227255e-02_rb, 0.215244e-02_rb, &
+        &  0.203868e-02_rb, 0.193093e-02_rb, 0.182888e-02_rb, 0.173222e-02_rb, 0.164067e-02_rb /)
+      selfrefo(:,12) = (/ &
+        &  0.304510e-02_rb, 0.283919e-02_rb, 0.264720e-02_rb, 0.246820e-02_rb, 0.230130e-02_rb, &
+        &  0.214568e-02_rb, 0.200059e-02_rb, 0.186531e-02_rb, 0.173918e-02_rb, 0.162157e-02_rb /)
+      selfrefo(:,13) = (/ &
+        &  0.338445e-02_rb, 0.314719e-02_rb, 0.292655e-02_rb, 0.272139e-02_rb, 0.253060e-02_rb, &
+        &  0.235319e-02_rb, 0.218822e-02_rb, 0.203482e-02_rb, 0.189217e-02_rb, 0.175952e-02_rb /)
+      selfrefo(:,14) = (/ &
+        &  0.388649e-02_rb, 0.357018e-02_rb, 0.327961e-02_rb, 0.301269e-02_rb, 0.276750e-02_rb, &
+        &  0.254226e-02_rb, 0.233535e-02_rb, 0.214528e-02_rb, 0.197068e-02_rb, 0.181029e-02_rb /)
+      selfrefo(:,15) = (/ &
+        &  0.412547e-02_rb, 0.387413e-02_rb, 0.363810e-02_rb, 0.341646e-02_rb, 0.320831e-02_rb, &
+        &  0.301285e-02_rb, 0.282930e-02_rb, 0.265693e-02_rb, 0.249506e-02_rb, 0.234305e-02_rb /)
+      selfrefo(:,16) = (/ &
+        &  0.534327e-02_rb, 0.482967e-02_rb, 0.436544e-02_rb, 0.394583e-02_rb, 0.356655e-02_rb, &
+        &  0.322373e-02_rb, 0.291387e-02_rb, 0.263378e-02_rb, 0.238062e-02_rb, 0.215179e-02_rb /)
+     
+      end subroutine sw_kgb23
+
+! **************************************************************************
+      subroutine sw_kgb24
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg24, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            raylao, raylbo, abso3ao, abso3bo, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:,1) = (/ &
+        & 34.3610_rb , 33.1240_rb, 31.3948_rb, 28.7248_rb, &
+        & 24.7884_rb , 21.4892_rb, 17.3972_rb, 13.7928_rb, &
+        & 9.54462_rb , 1.05002_rb,0.867332_rb,0.685753_rb, &
+        & 0.504718_rb,0.323112_rb,0.122183_rb, 1.70288e-02_rb /)
+      sfluxrefo(:,2) = (/ &
+        & 34.2367_rb , 32.4327_rb, 30.0863_rb, 28.2085_rb, & 
+        & 25.6533_rb , 22.3412_rb, 18.3112_rb, 13.8521_rb, &
+        & 9.51035_rb , 1.04138_rb,0.863493_rb,0.682790_rb, &
+        & 0.504721_rb,0.323102_rb,0.122193_rb, 1.70288e-02_rb /)
+      sfluxrefo(:,3) = (/ &
+        & 34.1883_rb , 32.2479_rb, 30.2650_rb, 28.2914_rb, &
+        & 25.6626_rb , 22.3163_rb, 18.3327_rb, 13.8508_rb, &
+        & 9.49190_rb , 1.03672_rb,0.858272_rb,0.681485_rb, &
+        & 0.501363_rb,0.323110_rb,0.122183_rb, 1.70288e-02_rb /)
+      sfluxrefo(:,4) = (/ &
+        & 34.1365_rb , 32.2316_rb, 30.3325_rb, 28.3305_rb, &
+        & 25.6420_rb , 22.3223_rb, 18.3411_rb, 13.8471_rb, &
+        & 9.47492_rb , 1.03376_rb,0.855380_rb,0.679085_rb, &
+        & 0.497998_rb,0.323053_rb,0.122183_rb, 1.70288e-02_rb /)
+      sfluxrefo(:,5) = (/ &
+        & 34.0460_rb , 32.2795_rb, 30.4147_rb, 28.3123_rb, &
+        & 25.6438_rb , 22.3238_rb, 18.3441_rb, 13.8528_rb, &
+        & 9.45222_rb , 1.03058_rb,0.854037_rb,0.675554_rb, &
+        & 0.498344_rb,0.320072_rb,0.122193_rb, 1.70288e-02_rb /)
+      sfluxrefo(:,6) = (/ &
+        & 33.9909_rb , 32.3127_rb, 30.4854_rb, 28.3005_rb, &
+        & 25.6310_rb , 22.3294_rb, 18.3459_rb, 13.8488_rb, &
+        & 9.43336_rb , 1.02901_rb,0.852728_rb,0.672322_rb, &
+        & 0.498056_rb,0.317753_rb,0.122183_rb, 1.70288e-02_rb /)
+      sfluxrefo(:,7) = (/ &
+        & 33.9225_rb , 32.4097_rb, 30.5125_rb, 28.2810_rb, &
+        & 25.6387_rb , 22.3080_rb, 18.3715_rb, 13.8248_rb, &
+        & 9.41834_rb , 1.02735_rb,0.850807_rb,0.671379_rb, &
+        & 0.496975_rb,0.317158_rb,0.119297_rb, 1.70207e-02_rb /)
+      sfluxrefo(:,8) = (/ &
+        & 33.8940_rb , 32.4951_rb, 30.5494_rb, 28.2788_rb, &
+        & 25.5975_rb , 22.3225_rb, 18.3358_rb, 13.8199_rb, &
+        & 9.40283_rb , 1.02751_rb,0.850729_rb,0.670152_rb, &
+        & 0.494294_rb,0.315829_rb,0.116195_rb, 1.64138e-02_rb /)
+      sfluxrefo(:,9) = (/ &
+        & 34.6501_rb , 32.6690_rb, 30.2872_rb, 28.0955_rb, &
+        & 25.4662_rb , 22.1446_rb, 18.2754_rb, 13.7573_rb, &
+        & 9.36645_rb , 1.02356_rb,0.847154_rb,0.668519_rb, &
+        & 0.489186_rb,0.313790_rb,0.117074_rb, 1.60943e-02_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:,1) = (/ &
+        & 3.38239E+01_rb, 3.27296E+01_rb, 3.11228E+01_rb, 2.82167E+01_rb,&
+        & 2.46948E+01_rb, 2.16414E+01_rb, 1.74835E+01_rb, 1.32861E+01_rb,&
+        & 9.45231E+00_rb, 1.03668E+00_rb, 8.57301E-01_rb, 6.79586E-01_rb,&
+        & 4.99821E-01_rb, 3.23048E-01_rb, 1.21798E-01_rb, 1.70540E-02_rb/)
+      irradnceo(:,2) = (/ &
+        & 3.35554E+01_rb, 3.22649E+01_rb, 3.01925E+01_rb, 2.81328E+01_rb,&
+        & 2.49992E+01_rb, 2.19854E+01_rb, 1.81805E+01_rb, 1.37450E+01_rb,&
+        & 9.41060E+00_rb, 1.02791E+00_rb, 8.54156E-01_rb, 6.76306E-01_rb,&
+        & 4.99827E-01_rb, 3.23048E-01_rb, 1.21797E-01_rb, 1.70536E-02_rb/)
+      irradnceo(:,3) = (/ &
+        & 3.34467E+01_rb, 3.23718E+01_rb, 3.01698E+01_rb, 2.78745E+01_rb,&
+        & 2.51400E+01_rb, 2.21238E+01_rb, 1.81919E+01_rb, 1.37667E+01_rb,&
+        & 9.39403E+00_rb, 1.02425E+00_rb, 8.49685E-01_rb, 6.75455E-01_rb,&
+        & 4.95915E-01_rb, 3.23049E-01_rb, 1.21797E-01_rb, 1.70536E-02_rb/)
+      irradnceo(:,4) = (/ &
+        & 3.34003E+01_rb, 3.23834E+01_rb, 3.01815E+01_rb, 2.76780E+01_rb,&
+        & 2.53527E+01_rb, 2.21350E+01_rb, 1.82215E+01_rb, 1.37599E+01_rb,&
+        & 9.37564E+00_rb, 1.02444E+00_rb, 8.45988E-01_rb, 6.73624E-01_rb,&
+        & 4.92319E-01_rb, 3.23047E-01_rb, 1.21798E-01_rb, 1.70540E-02_rb/)
+      irradnceo(:,5) = (/ &
+        & 3.33672E+01_rb, 3.24037E+01_rb, 3.00634E+01_rb, 2.77926E+01_rb,&
+        & 2.53807E+01_rb, 2.21495E+01_rb, 1.82232E+01_rb, 1.37618E+01_rb,&
+        & 9.35660E+00_rb, 1.02194E+00_rb, 8.45650E-01_rb, 6.68806E-01_rb,&
+        & 4.93432E-01_rb, 3.18983E-01_rb, 1.21798E-01_rb, 1.70536E-02_rb/)
+      irradnceo(:,6) = (/ &
+        & 3.33640E+01_rb, 3.24077E+01_rb, 2.99963E+01_rb, 2.78755E+01_rb,&
+        & 2.53793E+01_rb, 2.21660E+01_rb, 1.82184E+01_rb, 1.37630E+01_rb,&
+        & 9.33929E+00_rb, 1.01814E+00_rb, 8.45425E-01_rb, 6.65897E-01_rb,&
+        & 4.92871E-01_rb, 3.15736E-01_rb, 1.21798E-01_rb, 1.70537E-02_rb/)
+      irradnceo(:,7) = (/ &
+        & 3.34026E+01_rb, 3.23037E+01_rb, 3.00416E+01_rb, 2.79192E+01_rb,&
+        & 2.53921E+01_rb, 2.21484E+01_rb, 1.82369E+01_rb, 1.37476E+01_rb,&
+        & 9.32780E+00_rb, 1.01552E+00_rb, 8.44236E-01_rb, 6.62810E-01_rb,&
+        & 4.93390E-01_rb, 3.14906E-01_rb, 1.18661E-01_rb, 1.70540E-02_rb/)
+      irradnceo(:,8) = (/ &
+        & 3.34349E+01_rb, 3.22043E+01_rb, 3.01812E+01_rb, 2.79465E+01_rb,&
+        & 2.53583E+01_rb, 2.21412E+01_rb, 1.82094E+01_rb, 1.37441E+01_rb,&
+        & 9.30754E+00_rb, 1.01515E+00_rb, 8.44497E-01_rb, 6.64404E-01_rb,&
+        & 4.90144E-01_rb, 3.13759E-01_rb, 1.14835E-01_rb, 1.59848E-02_rb/)
+      irradnceo(:,9) = (/ &
+        & 3.42460E+01_rb, 3.21388E+01_rb, 3.01095E+01_rb, 2.78438E+01_rb,&
+        & 2.51368E+01_rb, 2.19795E+01_rb, 1.81249E+01_rb, 1.36909E+01_rb,&
+        & 9.28218E+00_rb, 1.01157E+00_rb, 8.34889E-01_rb, 6.62795E-01_rb,&
+        & 4.82903E-01_rb, 3.10708E-01_rb, 1.15840E-01_rb, 1.53240E-02_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:,1) = (/ &
+        & 2.27755E-02_rb, 2.26285E-02_rb, 2.12830E-02_rb, 1.91126E-02_rb,&
+        & 1.67851E-02_rb, 1.44155E-02_rb, 1.19158E-02_rb, 9.11355E-03_rb,&
+        & 6.13074E-03_rb, 6.65603E-04_rb, 5.51160E-04_rb, 4.35798E-04_rb,&
+        & 3.18203E-04_rb, 2.02405E-04_rb, 7.62470E-05_rb, 1.06905E-05_rb/)
+      facbrghto(:,2) = (/ &
+        & 2.23790E-02_rb, 2.16948E-02_rb, 2.05743E-02_rb, 1.91817E-02_rb,&
+        & 1.72122E-02_rb, 1.50738E-02_rb, 1.24159E-02_rb, 9.33385E-03_rb,&
+        & 6.27454E-03_rb, 6.76661E-04_rb, 5.58449E-04_rb, 4.37748E-04_rb,&
+        & 3.18201E-04_rb, 2.02405E-04_rb, 7.62472E-05_rb, 1.06903E-05_rb/)
+      facbrghto(:,3) = (/ &
+        & 2.23205E-02_rb, 2.16964E-02_rb, 2.05153E-02_rb, 1.90960E-02_rb,&
+        & 1.73148E-02_rb, 1.51096E-02_rb, 1.24225E-02_rb, 9.34252E-03_rb,&
+        & 6.30103E-03_rb, 6.84142E-04_rb, 5.63563E-04_rb, 4.43842E-04_rb,&
+        & 3.20746E-04_rb, 2.02405E-04_rb, 7.62472E-05_rb, 1.06903E-05_rb/)
+      facbrghto(:,4) = (/ &
+        & 2.22812E-02_rb, 2.16786E-02_rb, 2.05018E-02_rb, 1.90906E-02_rb,&
+        & 1.73540E-02_rb, 1.51044E-02_rb, 1.24167E-02_rb, 9.35686E-03_rb,&
+        & 6.31755E-03_rb, 6.88726E-04_rb, 5.67731E-04_rb, 4.47107E-04_rb,&
+        & 3.25740E-04_rb, 2.02405E-04_rb, 7.62470E-05_rb, 1.06905E-05_rb/)
+      facbrghto(:,5) = (/ &
+        & 2.22603E-02_rb, 2.16691E-02_rb, 2.04730E-02_rb, 1.91155E-02_rb,&
+        & 1.73538E-02_rb, 1.51053E-02_rb, 1.24114E-02_rb, 9.35858E-03_rb,&
+        & 6.34033E-03_rb, 6.91459E-04_rb, 5.71435E-04_rb, 4.50296E-04_rb,&
+        & 3.28452E-04_rb, 2.04401E-04_rb, 7.62466E-05_rb, 1.06903E-05_rb/)
+      facbrghto(:,6) = (/ &
+        & 2.22503E-02_rb, 2.16603E-02_rb, 2.04609E-02_rb, 1.91224E-02_rb,&
+        & 1.73466E-02_rb, 1.50949E-02_rb, 1.24176E-02_rb, 9.35948E-03_rb,&
+        & 6.36072E-03_rb, 6.94634E-04_rb, 5.74816E-04_rb, 4.52589E-04_rb,&
+        & 3.30669E-04_rb, 2.07385E-04_rb, 7.62464E-05_rb, 1.06902E-05_rb/)
+      facbrghto(:,7) = (/ &
+        & 2.22404E-02_rb, 2.16460E-02_rb, 2.04721E-02_rb, 1.91049E-02_rb,&
+        & 1.73389E-02_rb, 1.50869E-02_rb, 1.24130E-02_rb, 9.37898E-03_rb,&
+        & 6.37863E-03_rb, 6.98281E-04_rb, 5.76667E-04_rb, 4.55019E-04_rb,&
+        & 3.32114E-04_rb, 2.10190E-04_rb, 7.76838E-05_rb, 1.06905E-05_rb/)
+      facbrghto(:,8) = (/ &
+        & 2.22271E-02_rb, 2.16444E-02_rb, 2.04889E-02_rb, 1.90545E-02_rb,&
+        & 1.73157E-02_rb, 1.50884E-02_rb, 1.24141E-02_rb, 9.40991E-03_rb,&
+        & 6.40225E-03_rb, 7.00595E-04_rb, 5.78910E-04_rb, 4.56887E-04_rb,&
+        & 3.34204E-04_rb, 2.12237E-04_rb, 8.08640E-05_rb, 1.13871E-05_rb/)
+      facbrghto(:,9) = (/ &
+        & 2.21786E-02_rb, 2.17062E-02_rb, 2.04904E-02_rb, 1.90487E-02_rb,&
+        & 1.72650E-02_rb, 1.50602E-02_rb, 1.24407E-02_rb, 9.42235E-03_rb,&
+        & 6.41377E-03_rb, 7.02970E-04_rb, 5.83184E-04_rb, 4.61075E-04_rb,&
+        & 3.38668E-04_rb, 2.15750E-04_rb, 8.14294E-05_rb, 1.13965E-05_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:,1) = (/ &
+        &-1.12410E-02_rb,-1.12113E-02_rb,-1.10779E-02_rb,-1.04292E-02_rb,&
+        &-8.98961E-03_rb,-8.03572E-03_rb,-6.75787E-03_rb,-5.03467E-03_rb,&
+        &-3.17957E-03_rb,-3.38985E-04_rb,-2.81562E-04_rb,-2.23039E-04_rb,&
+        &-1.60087E-04_rb,-1.01767E-04_rb,-3.83353E-05_rb,-5.36521E-06_rb/)
+      snsptdrko(:,2) = (/ &
+        &-1.15334E-02_rb,-1.15873E-02_rb,-1.09714E-02_rb,-1.02601E-02_rb,&
+        &-9.40127E-03_rb,-7.93115E-03_rb,-6.35550E-03_rb,-4.74664E-03_rb,&
+        &-3.16591E-03_rb,-3.41515E-04_rb,-2.82907E-04_rb,-2.23426E-04_rb,&
+        &-1.60087E-04_rb,-1.01767E-04_rb,-3.83353E-05_rb,-5.36519E-06_rb/)
+      snsptdrko(:,3) = (/ &
+        &-1.16018E-02_rb,-1.15197E-02_rb,-1.10428E-02_rb,-1.04082E-02_rb,&
+        &-9.29123E-03_rb,-7.83257E-03_rb,-6.34771E-03_rb,-4.73395E-03_rb,&
+        &-3.17002E-03_rb,-3.43867E-04_rb,-2.83776E-04_rb,-2.24084E-04_rb,&
+        &-1.60764E-04_rb,-1.01767E-04_rb,-3.83353E-05_rb,-5.36519E-06_rb/)
+      snsptdrko(:,4) = (/ &
+        &-1.16474E-02_rb,-1.14951E-02_rb,-1.11033E-02_rb,-1.04579E-02_rb,&
+        &-9.17511E-03_rb,-7.82181E-03_rb,-6.33620E-03_rb,-4.73236E-03_rb,&
+        &-3.17528E-03_rb,-3.45134E-04_rb,-2.84910E-04_rb,-2.23675E-04_rb,&
+        &-1.62387E-04_rb,-1.01767E-04_rb,-3.83353E-05_rb,-5.36521E-06_rb/)
+      snsptdrko(:,5) = (/ &
+        &-1.16739E-02_rb,-1.14817E-02_rb,-1.11986E-02_rb,-1.03868E-02_rb,&
+        &-9.13950E-03_rb,-7.82100E-03_rb,-6.32953E-03_rb,-4.72539E-03_rb,&
+        &-3.18466E-03_rb,-3.46317E-04_rb,-2.85694E-04_rb,-2.23434E-04_rb,&
+        &-1.63185E-04_rb,-1.02484E-04_rb,-3.83352E-05_rb,-5.36519E-06_rb/)
+      snsptdrko(:,6) = (/ &
+        &-1.16800E-02_rb,-1.14904E-02_rb,-1.12697E-02_rb,-1.03121E-02_rb,&
+        &-9.12987E-03_rb,-7.81075E-03_rb,-6.32982E-03_rb,-4.72246E-03_rb,&
+        &-3.19329E-03_rb,-3.47036E-04_rb,-2.85401E-04_rb,-2.24107E-04_rb,&
+        &-1.63894E-04_rb,-1.03476E-04_rb,-3.83350E-05_rb,-5.36523E-06_rb/)
+      snsptdrko(:,7) = (/ &
+        &-1.16773E-02_rb,-1.15299E-02_rb,-1.12771E-02_rb,-1.02691E-02_rb,&
+        &-9.12264E-03_rb,-7.80854E-03_rb,-6.32243E-03_rb,-4.72944E-03_rb,&
+        &-3.19917E-03_rb,-3.46451E-04_rb,-2.85885E-04_rb,-2.25076E-04_rb,&
+        &-1.64410E-04_rb,-1.04310E-04_rb,-3.88550E-05_rb,-5.36521E-06_rb/)
+      snsptdrko(:,8) = (/ &
+        &-1.16665E-02_rb,-1.15865E-02_rb,-1.12398E-02_rb,-1.02548E-02_rb,&
+        &-9.10945E-03_rb,-7.80524E-03_rb,-6.32783E-03_rb,-4.73915E-03_rb,&
+        &-3.20164E-03_rb,-3.47046E-04_rb,-2.86536E-04_rb,-2.25780E-04_rb,&
+        &-1.65140E-04_rb,-1.04907E-04_rb,-3.99159E-05_rb,-5.63205E-06_rb/)
+      snsptdrko(:,9) = (/ &
+        &-1.11706E-02_rb,-1.16970E-02_rb,-1.13426E-02_rb,-1.03468E-02_rb,&
+        &-9.16736E-03_rb,-7.85391E-03_rb,-6.36547E-03_rb,-4.76183E-03_rb,&
+        &-3.21544E-03_rb,-3.49450E-04_rb,-2.88904E-04_rb,-2.28050E-04_rb,&
+        &-1.66800E-04_rb,-1.06063E-04_rb,-4.00684E-05_rb,-5.63614E-06_rb/)
+
+! Rayleigh extinction coefficient at all v
+      raylao(:,1) = (/ &
+        & 1.28405e-07_rb,1.45501e-07_rb,1.67272e-07_rb,1.94856e-07_rb, &
+        & 2.15248e-07_rb,2.34920e-07_rb,2.48558e-07_rb,1.80004e-07_rb, &
+        & 1.46504e-07_rb,1.31355e-07_rb,1.33562e-07_rb,1.35618e-07_rb, &
+        & 1.22412e-07_rb,1.19842e-07_rb,1.19924e-07_rb,1.20264e-07_rb /)
+      raylao(:,2) = (/ &
+        & 1.41622e-07_rb,1.93436e-07_rb,2.25057e-07_rb,2.01025e-07_rb, &
+        & 1.85138e-07_rb,1.72672e-07_rb,1.64771e-07_rb,1.59312e-07_rb, &
+        & 1.44961e-07_rb,1.37448e-07_rb,1.37506e-07_rb,1.38081e-07_rb, &
+        & 1.22432e-07_rb,1.19844e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)
+      raylao(:,3) = (/ &
+        & 1.45382e-07_rb,1.97020e-07_rb,2.22781e-07_rb,1.96062e-07_rb, &
+        & 1.83495e-07_rb,1.72495e-07_rb,1.64910e-07_rb,1.58797e-07_rb, &
+        & 1.46208e-07_rb,1.42274e-07_rb,1.40445e-07_rb,1.39496e-07_rb, &
+        & 1.26940e-07_rb,1.19844e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)
+      raylao(:,4) = (/ &
+        & 1.48247e-07_rb,1.99958e-07_rb,2.18048e-07_rb,1.93896e-07_rb, &
+        & 1.83125e-07_rb,1.73244e-07_rb,1.64320e-07_rb,1.58298e-07_rb, &
+        & 1.48428e-07_rb,1.44769e-07_rb,1.43704e-07_rb,1.38498e-07_rb, &
+        & 1.31732e-07_rb,1.22299e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)
+      raylao(:,5) = (/ &
+        & 1.51343e-07_rb,1.99621e-07_rb,2.14563e-07_rb,1.93824e-07_rb, &
+        & 1.82992e-07_rb,1.73143e-07_rb,1.64587e-07_rb,1.57355e-07_rb, &
+        & 1.51198e-07_rb,1.46373e-07_rb,1.45438e-07_rb,1.38095e-07_rb, &
+        & 1.35026e-07_rb,1.27504e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)
+      raylao(:,6) = (/ &
+        & 1.54462e-07_rb,1.97610e-07_rb,2.11992e-07_rb,1.93831e-07_rb, &
+        & 1.83900e-07_rb,1.73125e-07_rb,1.64093e-07_rb,1.57651e-07_rb, &
+        & 1.53158e-07_rb,1.46843e-07_rb,1.44733e-07_rb,1.40611e-07_rb, &
+        & 1.37320e-07_rb,1.33932e-07_rb,1.20423e-07_rb,1.20287e-07_rb /)
+      raylao(:,7) = (/ &
+        & 1.59068e-07_rb,1.92757e-07_rb,2.09865e-07_rb,1.95132e-07_rb, &
+        & 1.83641e-07_rb,1.73778e-07_rb,1.63215e-07_rb,1.59462e-07_rb, &
+        & 1.54331e-07_rb,1.46177e-07_rb,1.45819e-07_rb,1.43177e-07_rb, &
+        & 1.39797e-07_rb,1.36780e-07_rb,1.33385e-07_rb,1.20287e-07_rb /)
+      raylao(:,8) = (/ &
+        & 1.62066e-07_rb,1.87529e-07_rb,2.07191e-07_rb,1.97788e-07_rb, &
+        & 1.84920e-07_rb,1.72951e-07_rb,1.65450e-07_rb,1.60344e-07_rb, &
+        & 1.54403e-07_rb,1.47679e-07_rb,1.47287e-07_rb,1.44951e-07_rb, &
+        & 1.42517e-07_rb,1.41107e-07_rb,1.48688e-07_rb,1.51127e-07_rb /)
+      raylao(:,9) = (/ &
+        & 1.19177e-07_rb,1.86522e-07_rb,2.20324e-07_rb,2.13543e-07_rb, &
+        & 1.92198e-07_rb,1.81641e-07_rb,1.70092e-07_rb,1.65072e-07_rb, &
+        & 1.59804e-07_rb,1.56745e-07_rb,1.51235e-07_rb,1.51400e-07_rb, &
+        & 1.49635e-07_rb,1.48056e-07_rb,1.49046e-07_rb,1.51010e-07_rb /)
+
+      raylbo(:) = (/ &
+        & 1.23766e-07_rb,1.40524e-07_rb,1.61610e-07_rb,1.83232e-07_rb, &
+        & 2.02951e-07_rb,2.21367e-07_rb,2.38367e-07_rb,2.53019e-07_rb, &
+        & 2.12202e-07_rb,1.36977e-07_rb,1.39118e-07_rb,1.37097e-07_rb, &
+        & 1.33223e-07_rb,1.38695e-07_rb,1.19868e-07_rb,1.20062e-07_rb /)
+
+      abso3ao(:) = (/ &
+        & 8.03067e-02_rb,0.180926_rb   ,0.227484_rb   ,0.168015_rb   , &
+        & 0.138284_rb   ,0.114537_rb   ,9.50114e-02_rb,8.06816e-02_rb, &
+        & 6.76406e-02_rb,5.69802e-02_rb,5.63283e-02_rb,4.57592e-02_rb, &
+        & 4.21862e-02_rb,3.47949e-02_rb,2.65731e-02_rb,2.67628e-02_rb /)
+
+      abso3bo(:) = (/ &
+        & 2.94848e-02_rb,4.33642e-02_rb,6.70197e-02_rb,0.104990_rb   , &
+        & 0.156180_rb   ,0.214638_rb   ,0.266281_rb   ,0.317941_rb   , &
+        & 0.355327_rb   ,0.371241_rb   ,0.374396_rb   ,0.326847_rb   , &
+        & 0.126497_rb   ,6.95264e-02_rb,2.58175e-02_rb,2.52862e-02_rb /)
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1, 1) = (/ &
+        & 0.73110e-09_rb,0.95257e-08_rb,0.84454e-08_rb,0.69367e-08_rb,0.55267e-08_rb, &
+        & 0.41107e-08_rb,0.32800e-08_rb,0.33548e-08_rb,0.22111e-08_rb /)
+      kao(:, 2, 1, 1) = (/ &
+        & 0.71850e-09_rb,0.98856e-08_rb,0.88084e-08_rb,0.72442e-08_rb,0.57586e-08_rb, &
+        & 0.43475e-08_rb,0.34021e-08_rb,0.32425e-08_rb,0.21911e-08_rb /)
+      kao(:, 3, 1, 1) = (/ &
+        & 0.57048e-09_rb,0.11944e-07_rb,0.10693e-07_rb,0.91787e-08_rb,0.75423e-08_rb, &
+        & 0.56949e-08_rb,0.43124e-08_rb,0.42335e-08_rb,0.57788e-08_rb /)
+      kao(:, 4, 1, 1) = (/ &
+        & 0.45283e-09_rb,0.10517e-07_rb,0.93142e-08_rb,0.77267e-08_rb,0.61927e-08_rb, &
+        & 0.47485e-08_rb,0.34557e-08_rb,0.32691e-08_rb,0.21836e-08_rb /)
+      kao(:, 5, 1, 1) = (/ &
+        & 0.40037e-09_rb,0.10599e-07_rb,0.93529e-08_rb,0.78411e-08_rb,0.63421e-08_rb, &
+        & 0.49082e-08_rb,0.36312e-08_rb,0.32874e-08_rb,0.21861e-08_rb /)
+      kao(:, 1, 2, 1) = (/ &
+        & 0.77671e-09_rb,0.11163e-07_rb,0.95032e-08_rb,0.79805e-08_rb,0.60721e-08_rb, &
+        & 0.45440e-08_rb,0.31263e-08_rb,0.28631e-08_rb,0.19430e-08_rb /)
+      kao(:, 2, 2, 1) = (/ &
+        & 0.85527e-09_rb,0.11271e-07_rb,0.97269e-08_rb,0.82280e-08_rb,0.62706e-08_rb, &
+        & 0.47926e-08_rb,0.32802e-08_rb,0.28152e-08_rb,0.19155e-08_rb /)
+      kao(:, 3, 2, 1) = (/ &
+        & 0.85773e-09_rb,0.13292e-07_rb,0.11943e-07_rb,0.10177e-07_rb,0.81637e-08_rb, &
+        & 0.62054e-08_rb,0.44045e-08_rb,0.35504e-08_rb,0.48274e-08_rb /)
+      kao(:, 4, 2, 1) = (/ &
+        & 0.76956e-09_rb,0.13343e-07_rb,0.12140e-07_rb,0.10403e-07_rb,0.83916e-08_rb, &
+        & 0.64414e-08_rb,0.46212e-08_rb,0.36611e-08_rb,0.46523e-08_rb /)
+      kao(:, 5, 2, 1) = (/ &
+        & 0.53187e-09_rb,0.11759e-07_rb,0.10564e-07_rb,0.89416e-08_rb,0.69566e-08_rb, &
+        & 0.54336e-08_rb,0.36797e-08_rb,0.28238e-08_rb,0.18838e-08_rb /)
+      kao(:, 1, 3, 1) = (/ &
+        & 0.99065e-09_rb,0.13223e-07_rb,0.11222e-07_rb,0.94282e-08_rb,0.74664e-08_rb, &
+        & 0.54084e-08_rb,0.35205e-08_rb,0.24806e-08_rb,0.20205e-08_rb /)
+      kao(:, 2, 3, 1) = (/ &
+        & 0.98793e-09_rb,0.13673e-07_rb,0.11444e-07_rb,0.96735e-08_rb,0.76364e-08_rb, &
+        & 0.55809e-08_rb,0.37259e-08_rb,0.25419e-08_rb,0.20086e-08_rb /)
+      kao(:, 3, 3, 1) = (/ &
+        & 0.10274e-08_rb,0.14243e-07_rb,0.12051e-07_rb,0.10168e-07_rb,0.80110e-08_rb, &
+        & 0.59129e-08_rb,0.38720e-08_rb,0.26806e-08_rb,0.19959e-08_rb /)
+      kao(:, 4, 3, 1) = (/ &
+        & 0.10879e-08_rb,0.15991e-07_rb,0.14290e-07_rb,0.12193e-07_rb,0.99943e-08_rb, &
+        & 0.76411e-08_rb,0.49949e-08_rb,0.32117e-08_rb,0.45196e-08_rb /)
+      kao(:, 5, 3, 1) = (/ &
+        & 0.10733e-08_rb,0.14460e-07_rb,0.12483e-07_rb,0.10703e-07_rb,0.84924e-08_rb, &
+        & 0.62896e-08_rb,0.42753e-08_rb,0.27408e-08_rb,0.19679e-08_rb /)
+      kao(:, 1, 4, 1) = (/ &
+        & 0.11948e-08_rb,0.15804e-07_rb,0.13423e-07_rb,0.10964e-07_rb,0.86345e-08_rb, &
+        & 0.61421e-08_rb,0.39130e-08_rb,0.24271e-08_rb,0.26282e-08_rb /)
+      kao(:, 2, 4, 1) = (/ &
+        & 0.12796e-08_rb,0.16985e-07_rb,0.14121e-07_rb,0.11784e-07_rb,0.93415e-08_rb, &
+        & 0.67310e-08_rb,0.43124e-08_rb,0.25170e-08_rb,0.26033e-08_rb /)
+      kao(:, 3, 4, 1) = (/ &
+        & 0.12903e-08_rb,0.17863e-07_rb,0.14703e-07_rb,0.12387e-07_rb,0.99243e-08_rb, &
+        & 0.72283e-08_rb,0.46892e-08_rb,0.26092e-08_rb,0.25739e-08_rb /)
+      kao(:, 4, 4, 1) = (/ &
+        & 0.13030e-08_rb,0.17982e-07_rb,0.14488e-07_rb,0.12389e-07_rb,0.10284e-07_rb, &
+        & 0.76192e-08_rb,0.50049e-08_rb,0.27184e-08_rb,0.25450e-08_rb /)
+      kao(:, 5, 4, 1) = (/ &
+        & 0.13295e-08_rb,0.20084e-07_rb,0.17213e-07_rb,0.15086e-07_rb,0.12255e-07_rb, &
+        & 0.93192e-08_rb,0.61747e-08_rb,0.34151e-08_rb,0.50409e-08_rb /)
+      kao(:, 1, 5, 1) = (/ &
+        & 0.14930e-08_rb,0.19740e-07_rb,0.16353e-07_rb,0.13382e-07_rb,0.10370e-07_rb, &
+        & 0.76167e-08_rb,0.46913e-08_rb,0.23740e-08_rb,0.37254e-08_rb /)
+      kao(:, 2, 5, 1) = (/ &
+        & 0.15750e-08_rb,0.20826e-07_rb,0.17352e-07_rb,0.14080e-07_rb,0.11109e-07_rb, &
+        & 0.82293e-08_rb,0.51142e-08_rb,0.25900e-08_rb,0.36977e-08_rb /)
+      kao(:, 3, 5, 1) = (/ &
+        & 0.16427e-08_rb,0.22313e-07_rb,0.18005e-07_rb,0.14545e-07_rb,0.11545e-07_rb, &
+        & 0.85987e-08_rb,0.53849e-08_rb,0.27523e-08_rb,0.36628e-08_rb /)
+      kao(:, 4, 5, 1) = (/ &
+        & 0.17106e-08_rb,0.23821e-07_rb,0.18882e-07_rb,0.15226e-07_rb,0.12313e-07_rb, &
+        & 0.92367e-08_rb,0.58646e-08_rb,0.29020e-08_rb,0.36336e-08_rb /)
+      kao(:, 5, 5, 1) = (/ &
+        & 0.17465e-08_rb,0.26750e-07_rb,0.22103e-07_rb,0.18690e-07_rb,0.15320e-07_rb, &
+        & 0.11508e-07_rb,0.77281e-08_rb,0.34929e-08_rb,0.69801e-08_rb /)
+      kao(:, 1, 6, 1) = (/ &
+        & 0.17561e-08_rb,0.17298e-07_rb,0.18888e-07_rb,0.16164e-07_rb,0.12676e-07_rb, &
+        & 0.91128e-08_rb,0.57292e-08_rb,0.25945e-08_rb,0.52718e-08_rb /)
+      kao(:, 2, 6, 1) = (/ &
+        & 0.19997e-08_rb,0.20866e-07_rb,0.20612e-07_rb,0.17467e-07_rb,0.13431e-07_rb, &
+        & 0.96178e-08_rb,0.60009e-08_rb,0.28959e-08_rb,0.52609e-08_rb /)
+      kao(:, 3, 6, 1) = (/ &
+        & 0.21808e-08_rb,0.24689e-07_rb,0.22590e-07_rb,0.18672e-07_rb,0.14573e-07_rb, &
+        & 0.10599e-07_rb,0.66802e-08_rb,0.31104e-08_rb,0.52649e-08_rb /)
+      kao(:, 4, 6, 1) = (/ &
+        & 0.22321e-08_rb,0.28043e-07_rb,0.23802e-07_rb,0.19473e-07_rb,0.15182e-07_rb, &
+        & 0.11372e-07_rb,0.73223e-08_rb,0.34820e-08_rb,0.52977e-08_rb /)
+      kao(:, 5, 6, 1) = (/ &
+        & 0.23033e-08_rb,0.30784e-07_rb,0.25188e-07_rb,0.20376e-07_rb,0.16019e-07_rb, &
+        & 0.12009e-07_rb,0.77933e-08_rb,0.37322e-08_rb,0.52777e-08_rb /)
+      kao(:, 1, 7, 1) = (/ &
+        & 0.22679e-08_rb,0.13507e-07_rb,0.20320e-07_rb,0.19549e-07_rb,0.15905e-07_rb, &
+        & 0.11277e-07_rb,0.68710e-08_rb,0.29328e-08_rb,0.79703e-08_rb /)
+      kao(:, 2, 7, 1) = (/ &
+        & 0.25718e-08_rb,0.16957e-07_rb,0.24375e-07_rb,0.21175e-07_rb,0.17080e-07_rb, &
+        & 0.12233e-07_rb,0.77114e-08_rb,0.34113e-08_rb,0.79963e-08_rb /)
+      kao(:, 3, 7, 1) = (/ &
+        & 0.27598e-08_rb,0.19896e-07_rb,0.28092e-07_rb,0.23059e-07_rb,0.18272e-07_rb, &
+        & 0.13117e-07_rb,0.84449e-08_rb,0.37817e-08_rb,0.79824e-08_rb /)
+      kao(:, 4, 7, 1) = (/ &
+        & 0.28979e-08_rb,0.22997e-07_rb,0.29556e-07_rb,0.24211e-07_rb,0.19134e-07_rb, &
+        & 0.13799e-07_rb,0.90980e-08_rb,0.41849e-08_rb,0.79622e-08_rb /)
+      kao(:, 5, 7, 1) = (/ &
+        & 0.31158e-08_rb,0.26193e-07_rb,0.32426e-07_rb,0.25685e-07_rb,0.19970e-07_rb, &
+        & 0.14504e-07_rb,0.96379e-08_rb,0.45034e-08_rb,0.78914e-08_rb /)
+      kao(:, 1, 8, 1) = (/ &
+        & 0.27286e-08_rb,0.10085e-07_rb,0.15014e-07_rb,0.19090e-07_rb,0.19831e-07_rb, &
+        & 0.15054e-07_rb,0.91059e-08_rb,0.39324e-08_rb,0.14155e-07_rb /)
+      kao(:, 2, 8, 1) = (/ &
+        & 0.30146e-08_rb,0.12680e-07_rb,0.19259e-07_rb,0.23896e-07_rb,0.21584e-07_rb, &
+        & 0.16217e-07_rb,0.99712e-08_rb,0.44108e-08_rb,0.14243e-07_rb /)
+      kao(:, 3, 8, 1) = (/ &
+        & 0.35571e-08_rb,0.15989e-07_rb,0.23328e-07_rb,0.28003e-07_rb,0.22999e-07_rb, &
+        & 0.17316e-07_rb,0.10856e-07_rb,0.49279e-08_rb,0.13770e-07_rb /)
+      kao(:, 4, 8, 1) = (/ &
+        & 0.40065e-08_rb,0.19481e-07_rb,0.27247e-07_rb,0.30922e-07_rb,0.24592e-07_rb, &
+        & 0.18005e-07_rb,0.11331e-07_rb,0.53242e-08_rb,0.13758e-07_rb /)
+      kao(:, 5, 8, 1) = (/ &
+        & 0.44047e-08_rb,0.23368e-07_rb,0.31337e-07_rb,0.33478e-07_rb,0.26467e-07_rb, &
+        & 0.19093e-07_rb,0.12194e-07_rb,0.56088e-08_rb,0.13665e-07_rb /)
+      kao(:, 1, 9, 1) = (/ &
+        & 0.32692e-08_rb,0.79127e-08_rb,0.11108e-07_rb,0.13962e-07_rb,0.15949e-07_rb, &
+        & 0.18125e-07_rb,0.12367e-07_rb,0.53666e-08_rb,0.28048e-07_rb /)
+      kao(:, 2, 9, 1) = (/ &
+        & 0.39872e-08_rb,0.10056e-07_rb,0.14185e-07_rb,0.17838e-07_rb,0.20262e-07_rb, &
+        & 0.19824e-07_rb,0.13459e-07_rb,0.59111e-08_rb,0.29491e-07_rb /)
+      kao(:, 3, 9, 1) = (/ &
+        & 0.46117e-08_rb,0.12472e-07_rb,0.17902e-07_rb,0.22130e-07_rb,0.25362e-07_rb, &
+        & 0.21745e-07_rb,0.14226e-07_rb,0.62741e-08_rb,0.30373e-07_rb /)
+      kao(:, 4, 9, 1) = (/ &
+        & 0.52024e-08_rb,0.15275e-07_rb,0.21923e-07_rb,0.27295e-07_rb,0.30210e-07_rb, &
+        & 0.23240e-07_rb,0.15087e-07_rb,0.66869e-08_rb,0.31196e-07_rb /)
+      kao(:, 5, 9, 1) = (/ &
+        & 0.56198e-08_rb,0.17975e-07_rb,0.26684e-07_rb,0.30762e-07_rb,0.34012e-07_rb, &
+        & 0.25509e-07_rb,0.16208e-07_rb,0.72951e-08_rb,0.31583e-07_rb /)
+      kao(:, 1,10, 1) = (/ &
+        & 0.48178e-08_rb,0.70531e-08_rb,0.93321e-08_rb,0.10834e-07_rb,0.12386e-07_rb, &
+        & 0.13718e-07_rb,0.14795e-07_rb,0.73464e-08_rb,0.35934e-07_rb /)
+      kao(:, 2,10, 1) = (/ &
+        & 0.55752e-08_rb,0.86985e-08_rb,0.11492e-07_rb,0.13823e-07_rb,0.15291e-07_rb, &
+        & 0.17278e-07_rb,0.18153e-07_rb,0.81439e-08_rb,0.37177e-07_rb /)
+      kao(:, 3,10, 1) = (/ &
+        & 0.63274e-08_rb,0.10735e-07_rb,0.13985e-07_rb,0.17136e-07_rb,0.19303e-07_rb, &
+        & 0.20940e-07_rb,0.20044e-07_rb,0.88008e-08_rb,0.38431e-07_rb /)
+      kao(:, 4,10, 1) = (/ &
+        & 0.70007e-08_rb,0.12858e-07_rb,0.17195e-07_rb,0.20946e-07_rb,0.23543e-07_rb, &
+        & 0.25732e-07_rb,0.21748e-07_rb,0.95846e-08_rb,0.39768e-07_rb /)
+      kao(:, 5,10, 1) = (/ &
+        & 0.75858e-08_rb,0.15576e-07_rb,0.20803e-07_rb,0.25331e-07_rb,0.28222e-07_rb, &
+        & 0.30974e-07_rb,0.23346e-07_rb,0.10532e-07_rb,0.41126e-07_rb /)
+      kao(:, 1,11, 1) = (/ &
+        & 0.71066e-08_rb,0.91105e-08_rb,0.91823e-08_rb,0.10078e-07_rb,0.11080e-07_rb, &
+        & 0.11808e-07_rb,0.12592e-07_rb,0.10585e-07_rb,0.36646e-07_rb /)
+      kao(:, 2,11, 1) = (/ &
+        & 0.75651e-08_rb,0.10196e-07_rb,0.11288e-07_rb,0.12341e-07_rb,0.13264e-07_rb, &
+        & 0.14635e-07_rb,0.15304e-07_rb,0.12113e-07_rb,0.37821e-07_rb /)
+      kao(:, 3,11, 1) = (/ &
+        & 0.84521e-08_rb,0.11641e-07_rb,0.13494e-07_rb,0.15134e-07_rb,0.16494e-07_rb, &
+        & 0.17667e-07_rb,0.18637e-07_rb,0.13998e-07_rb,0.39151e-07_rb /)
+      kao(:, 4,11, 1) = (/ &
+        & 0.96535e-08_rb,0.13091e-07_rb,0.16210e-07_rb,0.18132e-07_rb,0.20108e-07_rb, &
+        & 0.21506e-07_rb,0.22578e-07_rb,0.15372e-07_rb,0.40534e-07_rb /)
+      kao(:, 5,11, 1) = (/ &
+        & 0.10866e-07_rb,0.15259e-07_rb,0.19222e-07_rb,0.21816e-07_rb,0.23808e-07_rb, &
+        & 0.25779e-07_rb,0.26640e-07_rb,0.16560e-07_rb,0.41783e-07_rb /)
+      kao(:, 1,12, 1) = (/ &
+        & 0.80834e-08_rb,0.10420e-07_rb,0.92387e-08_rb,0.95448e-08_rb,0.10004e-07_rb, &
+        & 0.10210e-07_rb,0.10715e-07_rb,0.12956e-07_rb,0.37307e-07_rb /)
+      kao(:, 2,12, 1) = (/ &
+        & 0.93300e-08_rb,0.11721e-07_rb,0.10935e-07_rb,0.11240e-07_rb,0.12099e-07_rb, &
+        & 0.12529e-07_rb,0.12978e-07_rb,0.14968e-07_rb,0.38619e-07_rb /)
+      kao(:, 3,12, 1) = (/ &
+        & 0.10509e-07_rb,0.12830e-07_rb,0.12793e-07_rb,0.13649e-07_rb,0.14634e-07_rb, &
+        & 0.15024e-07_rb,0.15635e-07_rb,0.17087e-07_rb,0.40001e-07_rb /)
+      kao(:, 4,12, 1) = (/ &
+        & 0.11973e-07_rb,0.14173e-07_rb,0.14811e-07_rb,0.16236e-07_rb,0.17652e-07_rb, &
+        & 0.18139e-07_rb,0.18897e-07_rb,0.19167e-07_rb,0.41426e-07_rb /)
+      kao(:, 5,12, 1) = (/ &
+        & 0.13412e-07_rb,0.16145e-07_rb,0.17438e-07_rb,0.18946e-07_rb,0.20873e-07_rb, &
+        & 0.21649e-07_rb,0.22446e-07_rb,0.20222e-07_rb,0.42866e-07_rb /)
+      kao(:, 1,13, 1) = (/ &
+        & 0.96752e-08_rb,0.12525e-07_rb,0.10944e-07_rb,0.96402e-08_rb,0.92613e-08_rb, &
+        & 0.89183e-08_rb,0.91757e-08_rb,0.10962e-07_rb,0.37700e-07_rb /)
+      kao(:, 2,13, 1) = (/ &
+        & 0.10573e-07_rb,0.14013e-07_rb,0.12095e-07_rb,0.11243e-07_rb,0.11108e-07_rb, &
+        & 0.10880e-07_rb,0.11099e-07_rb,0.12700e-07_rb,0.39054e-07_rb /)
+      kao(:, 3,13, 1) = (/ &
+        & 0.12096e-07_rb,0.15476e-07_rb,0.13719e-07_rb,0.13357e-07_rb,0.13060e-07_rb, &
+        & 0.13122e-07_rb,0.13232e-07_rb,0.14320e-07_rb,0.40767e-07_rb /)
+      kao(:, 4,13, 1) = (/ &
+        & 0.13461e-07_rb,0.16674e-07_rb,0.15454e-07_rb,0.15611e-07_rb,0.15616e-07_rb, &
+        & 0.15505e-07_rb,0.16233e-07_rb,0.16510e-07_rb,0.42192e-07_rb /)
+      kao(:, 5,13, 1) = (/ &
+        & 0.14863e-07_rb,0.17307e-07_rb,0.17245e-07_rb,0.18041e-07_rb,0.18314e-07_rb, &
+        & 0.18445e-07_rb,0.19222e-07_rb,0.18635e-07_rb,0.43353e-07_rb /)
+      kao(:, 1, 1, 2) = (/ &
+        & 0.11698e-08_rb,0.30848e-07_rb,0.36454e-07_rb,0.38710e-07_rb,0.45901e-07_rb, &
+        & 0.55227e-07_rb,0.66976e-07_rb,0.88407e-07_rb,0.23422e-07_rb /)
+      kao(:, 2, 1, 2) = (/ &
+        & 0.11855e-08_rb,0.31924e-07_rb,0.37139e-07_rb,0.40576e-07_rb,0.48515e-07_rb, &
+        & 0.57453e-07_rb,0.68267e-07_rb,0.87661e-07_rb,0.23548e-07_rb /)
+      kao(:, 3, 1, 2) = (/ &
+        & 0.14595e-08_rb,0.39594e-07_rb,0.49562e-07_rb,0.62806e-07_rb,0.77187e-07_rb, &
+        & 0.93412e-07_rb,0.11204e-06_rb,0.13944e-06_rb,0.36327e-07_rb /)
+      kao(:, 4, 1, 2) = (/ &
+        & 0.16033e-08_rb,0.32903e-07_rb,0.39616e-07_rb,0.43600e-07_rb,0.51878e-07_rb, &
+        & 0.61189e-07_rb,0.71838e-07_rb,0.88579e-07_rb,0.23754e-07_rb /)
+      kao(:, 5, 1, 2) = (/ &
+        & 0.16713e-08_rb,0.33816e-07_rb,0.40271e-07_rb,0.44761e-07_rb,0.53112e-07_rb, &
+        & 0.62817e-07_rb,0.73214e-07_rb,0.89918e-07_rb,0.23712e-07_rb /)
+      kao(:, 1, 2, 2) = (/ &
+        & 0.14413e-08_rb,0.29542e-07_rb,0.33672e-07_rb,0.38233e-07_rb,0.38429e-07_rb, &
+        & 0.45175e-07_rb,0.55138e-07_rb,0.73579e-07_rb,0.25050e-07_rb /)
+      kao(:, 2, 2, 2) = (/ &
+        & 0.13819e-08_rb,0.33839e-07_rb,0.35660e-07_rb,0.39637e-07_rb,0.40862e-07_rb, &
+        & 0.47496e-07_rb,0.56716e-07_rb,0.72256e-07_rb,0.25722e-07_rb /)
+      kao(:, 3, 2, 2) = (/ &
+        & 0.14034e-08_rb,0.38888e-07_rb,0.49224e-07_rb,0.54694e-07_rb,0.64529e-07_rb, &
+        & 0.76758e-07_rb,0.91615e-07_rb,0.11521e-06_rb,0.39473e-07_rb /)
+      kao(:, 4, 2, 2) = (/ &
+        & 0.15427e-08_rb,0.40736e-07_rb,0.49562e-07_rb,0.55626e-07_rb,0.65520e-07_rb, &
+        & 0.77421e-07_rb,0.92434e-07_rb,0.11487e-06_rb,0.39089e-07_rb /)
+      kao(:, 5, 2, 2) = (/ &
+        & 0.19146e-08_rb,0.37020e-07_rb,0.37998e-07_rb,0.40828e-07_rb,0.46417e-07_rb, &
+        & 0.52511e-07_rb,0.60306e-07_rb,0.73583e-07_rb,0.26882e-07_rb /)
+      kao(:, 1, 3, 2) = (/ &
+        & 0.16720e-08_rb,0.23360e-07_rb,0.34106e-07_rb,0.35883e-07_rb,0.37371e-07_rb, &
+        & 0.37719e-07_rb,0.44564e-07_rb,0.59521e-07_rb,0.60171e-07_rb /)
+      kao(:, 2, 3, 2) = (/ &
+        & 0.17699e-08_rb,0.26546e-07_rb,0.36000e-07_rb,0.36846e-07_rb,0.38381e-07_rb, &
+        & 0.39667e-07_rb,0.46368e-07_rb,0.60306e-07_rb,0.60604e-07_rb /)
+      kao(:, 3, 3, 2) = (/ &
+        & 0.18009e-08_rb,0.29450e-07_rb,0.37614e-07_rb,0.38630e-07_rb,0.39041e-07_rb, &
+        & 0.41600e-07_rb,0.48142e-07_rb,0.59638e-07_rb,0.61274e-07_rb /)
+      kao(:, 4, 3, 2) = (/ &
+        & 0.18222e-08_rb,0.39219e-07_rb,0.48109e-07_rb,0.53485e-07_rb,0.57150e-07_rb, &
+        & 0.64444e-07_rb,0.75574e-07_rb,0.94813e-07_rb,0.76759e-07_rb /)
+      kao(:, 5, 3, 2) = (/ &
+        & 0.18210e-08_rb,0.34020e-07_rb,0.40366e-07_rb,0.41710e-07_rb,0.42164e-07_rb, &
+        & 0.45001e-07_rb,0.49878e-07_rb,0.60009e-07_rb,0.61481e-07_rb /)
+      kao(:, 1, 4, 2) = (/ &
+        & 0.21152e-08_rb,0.23706e-07_rb,0.29784e-07_rb,0.35302e-07_rb,0.35282e-07_rb, &
+        & 0.34361e-07_rb,0.35938e-07_rb,0.47065e-07_rb,0.17050e-06_rb /)
+      kao(:, 2, 4, 2) = (/ &
+        & 0.22014e-08_rb,0.24318e-07_rb,0.33239e-07_rb,0.37390e-07_rb,0.36975e-07_rb, &
+        & 0.35774e-07_rb,0.38207e-07_rb,0.49025e-07_rb,0.17312e-06_rb /)
+      kao(:, 3, 4, 2) = (/ &
+        & 0.21940e-08_rb,0.26005e-07_rb,0.37067e-07_rb,0.38353e-07_rb,0.38894e-07_rb, &
+        & 0.37527e-07_rb,0.40105e-07_rb,0.50082e-07_rb,0.17777e-06_rb /)
+      kao(:, 4, 4, 2) = (/ &
+        & 0.23140e-08_rb,0.28378e-07_rb,0.41743e-07_rb,0.40523e-07_rb,0.40492e-07_rb, &
+        & 0.38652e-07_rb,0.40876e-07_rb,0.49640e-07_rb,0.18336e-06_rb /)
+      kao(:, 5, 4, 2) = (/ &
+        & 0.23213e-08_rb,0.34154e-07_rb,0.50461e-07_rb,0.52357e-07_rb,0.54187e-07_rb, &
+        & 0.57113e-07_rb,0.62843e-07_rb,0.77605e-07_rb,0.21695e-06_rb /)
+      kao(:, 1, 5, 2) = (/ &
+        & 0.26738e-08_rb,0.26329e-07_rb,0.23971e-07_rb,0.31112e-07_rb,0.35671e-07_rb, &
+        & 0.34087e-07_rb,0.29799e-07_rb,0.37789e-07_rb,0.52514e-06_rb /)
+      kao(:, 2, 5, 2) = (/ &
+        & 0.25455e-08_rb,0.28564e-07_rb,0.26376e-07_rb,0.34876e-07_rb,0.38195e-07_rb, &
+        & 0.36126e-07_rb,0.31889e-07_rb,0.38787e-07_rb,0.53894e-06_rb /)
+      kao(:, 3, 5, 2) = (/ &
+        & 0.27955e-08_rb,0.30168e-07_rb,0.29598e-07_rb,0.39256e-07_rb,0.39488e-07_rb, &
+        & 0.38121e-07_rb,0.34110e-07_rb,0.40225e-07_rb,0.55617e-06_rb /)
+      kao(:, 4, 5, 2) = (/ &
+        & 0.30518e-08_rb,0.31696e-07_rb,0.32642e-07_rb,0.43581e-07_rb,0.40810e-07_rb, &
+        & 0.38887e-07_rb,0.35568e-07_rb,0.41837e-07_rb,0.57141e-06_rb /)
+      kao(:, 5, 5, 2) = (/ &
+        & 0.29545e-08_rb,0.34626e-07_rb,0.42873e-07_rb,0.52742e-07_rb,0.53043e-07_rb, &
+        & 0.52428e-07_rb,0.54304e-07_rb,0.64247e-07_rb,0.63906e-06_rb /)
+      kao(:, 1, 6, 2) = (/ &
+        & 0.30127e-08_rb,0.42606e-07_rb,0.28980e-07_rb,0.24923e-07_rb,0.29265e-07_rb, &
+        & 0.34534e-07_rb,0.31090e-07_rb,0.30814e-07_rb,0.12844e-05_rb /)
+      kao(:, 2, 6, 2) = (/ &
+        & 0.33504e-08_rb,0.42102e-07_rb,0.30491e-07_rb,0.27666e-07_rb,0.33477e-07_rb, &
+        & 0.35643e-07_rb,0.33324e-07_rb,0.31448e-07_rb,0.13231e-05_rb /)
+      kao(:, 3, 6, 2) = (/ &
+        & 0.37714e-08_rb,0.40516e-07_rb,0.32080e-07_rb,0.30623e-07_rb,0.37391e-07_rb, &
+        & 0.37255e-07_rb,0.35144e-07_rb,0.32296e-07_rb,0.13598e-05_rb /)
+      kao(:, 4, 6, 2) = (/ &
+        & 0.40809e-08_rb,0.41419e-07_rb,0.33638e-07_rb,0.33756e-07_rb,0.41072e-07_rb, &
+        & 0.38814e-07_rb,0.36264e-07_rb,0.33664e-07_rb,0.13955e-05_rb /)
+      kao(:, 5, 6, 2) = (/ &
+        & 0.38112e-08_rb,0.42764e-07_rb,0.35694e-07_rb,0.36747e-07_rb,0.45193e-07_rb, &
+        & 0.40460e-07_rb,0.37371e-07_rb,0.35107e-07_rb,0.14282e-05_rb /)
+      kao(:, 1, 7, 2) = (/ &
+        & 0.36577e-08_rb,0.64857e-07_rb,0.37268e-07_rb,0.28977e-07_rb,0.24480e-07_rb, &
+        & 0.26864e-07_rb,0.30486e-07_rb,0.25122e-07_rb,0.20521e-05_rb /)
+      kao(:, 2, 7, 2) = (/ &
+        & 0.39427e-08_rb,0.65731e-07_rb,0.37248e-07_rb,0.30585e-07_rb,0.26773e-07_rb, &
+        & 0.30114e-07_rb,0.31576e-07_rb,0.26187e-07_rb,0.21480e-05_rb /)
+      kao(:, 3, 7, 2) = (/ &
+        & 0.43811e-08_rb,0.66809e-07_rb,0.38170e-07_rb,0.32043e-07_rb,0.28837e-07_rb, &
+        & 0.34005e-07_rb,0.32765e-07_rb,0.27322e-07_rb,0.22122e-05_rb /)
+      kao(:, 4, 7, 2) = (/ &
+        & 0.46591e-08_rb,0.68244e-07_rb,0.41020e-07_rb,0.34183e-07_rb,0.31347e-07_rb, &
+        & 0.37946e-07_rb,0.34473e-07_rb,0.28264e-07_rb,0.22876e-05_rb /)
+      kao(:, 5, 7, 2) = (/ &
+        & 0.51635e-08_rb,0.69768e-07_rb,0.42241e-07_rb,0.36125e-07_rb,0.34689e-07_rb, &
+        & 0.41422e-07_rb,0.36208e-07_rb,0.29319e-07_rb,0.23528e-05_rb /)
+      kao(:, 1, 8, 2) = (/ &
+        & 0.48063e-08_rb,0.99492e-07_rb,0.67977e-07_rb,0.40583e-07_rb,0.27462e-07_rb, &
+        & 0.23261e-07_rb,0.24790e-07_rb,0.24175e-07_rb,0.34404e-05_rb /)
+      kao(:, 2, 8, 2) = (/ &
+        & 0.46794e-08_rb,0.10207e-06_rb,0.68838e-07_rb,0.41170e-07_rb,0.30068e-07_rb, &
+        & 0.24536e-07_rb,0.27696e-07_rb,0.25318e-07_rb,0.35579e-05_rb /)
+      kao(:, 3, 8, 2) = (/ &
+        & 0.51560e-08_rb,0.10436e-06_rb,0.69782e-07_rb,0.42105e-07_rb,0.32065e-07_rb, &
+        & 0.26776e-07_rb,0.30613e-07_rb,0.26859e-07_rb,0.36807e-05_rb /)
+      kao(:, 4, 8, 2) = (/ &
+        & 0.59944e-08_rb,0.10484e-06_rb,0.71027e-07_rb,0.44319e-07_rb,0.34843e-07_rb, &
+        & 0.29788e-07_rb,0.33876e-07_rb,0.28922e-07_rb,0.37740e-05_rb /)
+      kao(:, 5, 8, 2) = (/ &
+        & 0.64682e-08_rb,0.10541e-06_rb,0.71736e-07_rb,0.46124e-07_rb,0.36934e-07_rb, &
+        & 0.32173e-07_rb,0.36502e-07_rb,0.30991e-07_rb,0.38805e-05_rb /)
+      kao(:, 1, 9, 2) = (/ &
+        & 0.56433e-08_rb,0.13757e-06_rb,0.10641e-06_rb,0.72870e-07_rb,0.43453e-07_rb, &
+        & 0.25530e-07_rb,0.19778e-07_rb,0.25383e-07_rb,0.95912e-05_rb /)
+      kao(:, 2, 9, 2) = (/ &
+        & 0.61882e-08_rb,0.14041e-06_rb,0.11046e-06_rb,0.75424e-07_rb,0.44204e-07_rb, &
+        & 0.28513e-07_rb,0.22344e-07_rb,0.27258e-07_rb,0.98257e-05_rb /)
+      kao(:, 3, 9, 2) = (/ &
+        & 0.68724e-08_rb,0.14355e-06_rb,0.11272e-06_rb,0.76977e-07_rb,0.44934e-07_rb, &
+        & 0.30972e-07_rb,0.24609e-07_rb,0.29074e-07_rb,0.10035e-04_rb /)
+      kao(:, 4, 9, 2) = (/ &
+        & 0.75288e-08_rb,0.14628e-06_rb,0.11397e-06_rb,0.77508e-07_rb,0.45913e-07_rb, &
+        & 0.33498e-07_rb,0.27308e-07_rb,0.31237e-07_rb,0.10206e-04_rb /)
+      kao(:, 5, 9, 2) = (/ &
+        & 0.82361e-08_rb,0.14989e-06_rb,0.11575e-06_rb,0.78052e-07_rb,0.47282e-07_rb, &
+        & 0.34986e-07_rb,0.29571e-07_rb,0.31933e-07_rb,0.10332e-04_rb /)
+      kao(:, 1,10, 2) = (/ &
+        & 0.80705e-08_rb,0.18916e-06_rb,0.16332e-06_rb,0.12182e-06_rb,0.80167e-07_rb, &
+        & 0.44659e-07_rb,0.24027e-07_rb,0.20514e-07_rb,0.18076e-04_rb /)
+      kao(:, 2,10, 2) = (/ &
+        & 0.86522e-08_rb,0.19825e-06_rb,0.16839e-06_rb,0.12817e-06_rb,0.85984e-07_rb, &
+        & 0.48117e-07_rb,0.24937e-07_rb,0.22855e-07_rb,0.18392e-04_rb /)
+      kao(:, 3,10, 2) = (/ &
+        & 0.93838e-08_rb,0.20474e-06_rb,0.17472e-06_rb,0.13185e-06_rb,0.89897e-07_rb, &
+        & 0.50484e-07_rb,0.27069e-07_rb,0.24729e-07_rb,0.18827e-04_rb /)
+      kao(:, 4,10, 2) = (/ &
+        & 0.10442e-07_rb,0.21110e-06_rb,0.17958e-06_rb,0.13546e-06_rb,0.92462e-07_rb, &
+        & 0.51368e-07_rb,0.29958e-07_rb,0.26382e-07_rb,0.19325e-04_rb /)
+      kao(:, 5,10, 2) = (/ &
+        & 0.11203e-07_rb,0.21676e-06_rb,0.18359e-06_rb,0.14012e-06_rb,0.94090e-07_rb, &
+        & 0.51431e-07_rb,0.32637e-07_rb,0.27900e-07_rb,0.19654e-04_rb /)
+      kao(:, 1,11, 2) = (/ &
+        & 0.10898e-07_rb,0.20490e-06_rb,0.23352e-06_rb,0.18592e-06_rb,0.13108e-06_rb, &
+        & 0.82594e-07_rb,0.41478e-07_rb,0.20359e-07_rb,0.24656e-04_rb /)
+      kao(:, 2,11, 2) = (/ &
+        & 0.12100e-07_rb,0.21595e-06_rb,0.24259e-06_rb,0.19598e-06_rb,0.14307e-06_rb, &
+        & 0.90287e-07_rb,0.44897e-07_rb,0.21400e-07_rb,0.25439e-04_rb /)
+      kao(:, 3,11, 2) = (/ &
+        & 0.12997e-07_rb,0.22559e-06_rb,0.25028e-06_rb,0.20624e-06_rb,0.15074e-06_rb, &
+        & 0.95763e-07_rb,0.46972e-07_rb,0.22656e-07_rb,0.26128e-04_rb /)
+      kao(:, 4,11, 2) = (/ &
+        & 0.12774e-07_rb,0.23494e-06_rb,0.26130e-06_rb,0.21398e-06_rb,0.15730e-06_rb, &
+        & 0.98985e-07_rb,0.48309e-07_rb,0.24026e-07_rb,0.26834e-04_rb /)
+      kao(:, 5,11, 2) = (/ &
+        & 0.13184e-07_rb,0.24219e-06_rb,0.26811e-06_rb,0.22059e-06_rb,0.16314e-06_rb, &
+        & 0.10271e-06_rb,0.49802e-07_rb,0.25441e-07_rb,0.27644e-04_rb /)
+      kao(:, 1,12, 2) = (/ &
+        & 0.11394e-07_rb,0.19172e-06_rb,0.27076e-06_rb,0.23579e-06_rb,0.17648e-06_rb, &
+        & 0.11366e-06_rb,0.56463e-07_rb,0.20869e-07_rb,0.27151e-04_rb /)
+      kao(:, 2,12, 2) = (/ &
+        & 0.12908e-07_rb,0.20309e-06_rb,0.28462e-06_rb,0.24753e-06_rb,0.18719e-06_rb, &
+        & 0.12033e-06_rb,0.60157e-07_rb,0.21646e-07_rb,0.27962e-04_rb /)
+      kao(:, 3,12, 2) = (/ &
+        & 0.13752e-07_rb,0.21619e-06_rb,0.29476e-06_rb,0.25594e-06_rb,0.19641e-06_rb, &
+        & 0.12734e-06_rb,0.64272e-07_rb,0.22557e-07_rb,0.28912e-04_rb /)
+      kao(:, 4,12, 2) = (/ &
+        & 0.14906e-07_rb,0.22665e-06_rb,0.30298e-06_rb,0.26272e-06_rb,0.20331e-06_rb, &
+        & 0.13316e-06_rb,0.68243e-07_rb,0.23417e-07_rb,0.29816e-04_rb /)
+      kao(:, 5,12, 2) = (/ &
+        & 0.15969e-07_rb,0.23477e-06_rb,0.31068e-06_rb,0.27029e-06_rb,0.20850e-06_rb, &
+        & 0.13902e-06_rb,0.71857e-07_rb,0.25264e-07_rb,0.30765e-04_rb /)
+      kao(:, 1,13, 2) = (/ &
+        & 0.13593e-07_rb,0.19801e-06_rb,0.26490e-06_rb,0.27826e-06_rb,0.22531e-06_rb, &
+        & 0.15112e-06_rb,0.78691e-07_rb,0.27273e-07_rb,0.28055e-04_rb /)
+      kao(:, 2,13, 2) = (/ &
+        & 0.15426e-07_rb,0.20839e-06_rb,0.27732e-06_rb,0.28785e-06_rb,0.23371e-06_rb, &
+        & 0.16027e-06_rb,0.86131e-07_rb,0.29011e-07_rb,0.29165e-04_rb /)
+      kao(:, 3,13, 2) = (/ &
+        & 0.16638e-07_rb,0.21808e-06_rb,0.28896e-06_rb,0.29666e-06_rb,0.24201e-06_rb, &
+        & 0.16845e-06_rb,0.91791e-07_rb,0.30670e-07_rb,0.30372e-04_rb /)
+      kao(:, 4,13, 2) = (/ &
+        & 0.17929e-07_rb,0.22577e-06_rb,0.29798e-06_rb,0.30533e-06_rb,0.24895e-06_rb, &
+        & 0.17573e-06_rb,0.96085e-07_rb,0.31360e-07_rb,0.31437e-04_rb /)
+      kao(:, 5,13, 2) = (/ &
+        & 0.18861e-07_rb,0.23397e-06_rb,0.30715e-06_rb,0.31382e-06_rb,0.25665e-06_rb, &
+        & 0.18246e-06_rb,0.10017e-06_rb,0.32454e-07_rb,0.32266e-04_rb /)
+      kao(:, 1, 1, 3) = (/ &
+        & 0.39751e-08_rb,0.10094e-06_rb,0.20247e-06_rb,0.30028e-06_rb,0.39102e-06_rb, &
+        & 0.48711e-06_rb,0.59106e-06_rb,0.72709e-06_rb,0.20885e-06_rb /)
+      kao(:, 2, 1, 3) = (/ &
+        & 0.43080e-08_rb,0.10546e-06_rb,0.20982e-06_rb,0.31135e-06_rb,0.40303e-06_rb, &
+        & 0.49632e-06_rb,0.59855e-06_rb,0.74477e-06_rb,0.21012e-06_rb /)
+      kao(:, 3, 1, 3) = (/ &
+        & 0.42986e-08_rb,0.15269e-06_rb,0.29890e-06_rb,0.43493e-06_rb,0.56429e-06_rb, &
+        & 0.69336e-06_rb,0.83181e-06_rb,0.10423e-05_rb,0.36557e-06_rb /)
+      kao(:, 4, 1, 3) = (/ &
+        & 0.43554e-08_rb,0.11271e-06_rb,0.22069e-06_rb,0.32651e-06_rb,0.42391e-06_rb, &
+        & 0.51393e-06_rb,0.61294e-06_rb,0.75229e-06_rb,0.20945e-06_rb /)
+      kao(:, 5, 1, 3) = (/ &
+        & 0.45047e-08_rb,0.11576e-06_rb,0.22657e-06_rb,0.33173e-06_rb,0.43142e-06_rb, &
+        & 0.52151e-06_rb,0.61871e-06_rb,0.74980e-06_rb,0.20891e-06_rb /)
+      kao(:, 1, 2, 3) = (/ &
+        & 0.46065e-08_rb,0.81519e-07_rb,0.15960e-06_rb,0.23610e-06_rb,0.31656e-06_rb, &
+        & 0.39839e-06_rb,0.48591e-06_rb,0.60182e-06_rb,0.18230e-06_rb /)
+      kao(:, 2, 2, 3) = (/ &
+        & 0.46837e-08_rb,0.82106e-07_rb,0.16429e-06_rb,0.24471e-06_rb,0.32626e-06_rb, &
+        & 0.40531e-06_rb,0.49330e-06_rb,0.61810e-06_rb,0.18355e-06_rb /)
+      kao(:, 3, 2, 3) = (/ &
+        & 0.50163e-08_rb,0.12328e-06_rb,0.23602e-06_rb,0.35332e-06_rb,0.46387e-06_rb, &
+        & 0.57515e-06_rb,0.69445e-06_rb,0.88167e-06_rb,0.30546e-06_rb /)
+      kao(:, 4, 2, 3) = (/ &
+        & 0.49809e-08_rb,0.12454e-06_rb,0.23839e-06_rb,0.35429e-06_rb,0.46515e-06_rb, &
+        & 0.57491e-06_rb,0.69031e-06_rb,0.86630e-06_rb,0.29807e-06_rb /)
+      kao(:, 5, 2, 3) = (/ &
+        & 0.51988e-08_rb,0.91291e-07_rb,0.17869e-06_rb,0.26485e-06_rb,0.34907e-06_rb, &
+        & 0.42509e-06_rb,0.50894e-06_rb,0.62361e-06_rb,0.18234e-06_rb /)
+      kao(:, 1, 3, 3) = (/ &
+        & 0.51916e-08_rb,0.88867e-07_rb,0.12220e-06_rb,0.18411e-06_rb,0.24720e-06_rb, &
+        & 0.32303e-06_rb,0.39526e-06_rb,0.49595e-06_rb,0.27125e-06_rb /)
+      kao(:, 2, 3, 3) = (/ &
+        & 0.56319e-08_rb,0.87189e-07_rb,0.12678e-06_rb,0.19176e-06_rb,0.25624e-06_rb, &
+        & 0.32740e-06_rb,0.40564e-06_rb,0.50601e-06_rb,0.28010e-06_rb /)
+      kao(:, 3, 3, 3) = (/ &
+        & 0.59026e-08_rb,0.86017e-07_rb,0.13043e-06_rb,0.19649e-06_rb,0.26497e-06_rb, &
+        & 0.33305e-06_rb,0.40679e-06_rb,0.51963e-06_rb,0.28660e-06_rb /)
+      kao(:, 4, 3, 3) = (/ &
+        & 0.59909e-08_rb,0.10759e-06_rb,0.18790e-06_rb,0.28104e-06_rb,0.37702e-06_rb, &
+        & 0.47222e-06_rb,0.57322e-06_rb,0.72906e-06_rb,0.37657e-06_rb /)
+      kao(:, 5, 3, 3) = (/ &
+        & 0.64422e-08_rb,0.89472e-07_rb,0.13687e-06_rb,0.20453e-06_rb,0.27802e-06_rb, &
+        & 0.34266e-06_rb,0.41565e-06_rb,0.51746e-06_rb,0.29675e-06_rb /)
+      kao(:, 1, 4, 3) = (/ &
+        & 0.62298e-08_rb,0.99509e-07_rb,0.10306e-06_rb,0.14232e-06_rb,0.19390e-06_rb, &
+        & 0.25435e-06_rb,0.31764e-06_rb,0.40578e-06_rb,0.49031e-06_rb /)
+      kao(:, 2, 4, 3) = (/ &
+        & 0.68419e-08_rb,0.10415e-06_rb,0.10349e-06_rb,0.14672e-06_rb,0.19860e-06_rb, &
+        & 0.26012e-06_rb,0.32720e-06_rb,0.41327e-06_rb,0.51522e-06_rb /)
+      kao(:, 3, 4, 3) = (/ &
+        & 0.71418e-08_rb,0.10626e-06_rb,0.10522e-06_rb,0.15175e-06_rb,0.20471e-06_rb, &
+        & 0.26435e-06_rb,0.33148e-06_rb,0.42294e-06_rb,0.53456e-06_rb /)
+      kao(:, 4, 4, 3) = (/ &
+        & 0.72470e-08_rb,0.10891e-06_rb,0.10648e-06_rb,0.15457e-06_rb,0.21007e-06_rb, &
+        & 0.26937e-06_rb,0.33376e-06_rb,0.42939e-06_rb,0.55207e-06_rb /)
+      kao(:, 5, 4, 3) = (/ &
+        & 0.77585e-08_rb,0.12954e-06_rb,0.14999e-06_rb,0.22224e-06_rb,0.29994e-06_rb, &
+        & 0.38053e-06_rb,0.47027e-06_rb,0.60032e-06_rb,0.76592e-06_rb /)
+      kao(:, 1, 5, 3) = (/ &
+        & 0.68852e-08_rb,0.11288e-06_rb,0.11969e-06_rb,0.11689e-06_rb,0.14994e-06_rb, &
+        & 0.19637e-06_rb,0.25309e-06_rb,0.33018e-06_rb,0.84551e-06_rb /)
+      kao(:, 2, 5, 3) = (/ &
+        & 0.75119e-08_rb,0.11838e-06_rb,0.12255e-06_rb,0.11926e-06_rb,0.15341e-06_rb, &
+        & 0.20169e-06_rb,0.26231e-06_rb,0.33745e-06_rb,0.85714e-06_rb /)
+      kao(:, 3, 5, 3) = (/ &
+        & 0.84416e-08_rb,0.12128e-06_rb,0.12324e-06_rb,0.12015e-06_rb,0.15812e-06_rb, &
+        & 0.20463e-06_rb,0.26808e-06_rb,0.34461e-06_rb,0.86734e-06_rb /)
+      kao(:, 4, 5, 3) = (/ &
+        & 0.92293e-08_rb,0.12493e-06_rb,0.12330e-06_rb,0.12093e-06_rb,0.16146e-06_rb, &
+        & 0.20899e-06_rb,0.26904e-06_rb,0.35101e-06_rb,0.88204e-06_rb /)
+      kao(:, 5, 5, 3) = (/ &
+        & 0.10279e-07_rb,0.14631e-06_rb,0.14078e-06_rb,0.17511e-06_rb,0.23546e-06_rb, &
+        & 0.30442e-06_rb,0.38374e-06_rb,0.50000e-06_rb,0.10431e-05_rb /)
+      kao(:, 1, 6, 3) = (/ &
+        & 0.51921e-08_rb,0.14437e-06_rb,0.12917e-06_rb,0.11673e-06_rb,0.12444e-06_rb, &
+        & 0.14966e-06_rb,0.19338e-06_rb,0.26674e-06_rb,0.16987e-05_rb /)
+      kao(:, 2, 6, 3) = (/ &
+        & 0.69052e-08_rb,0.14822e-06_rb,0.13564e-06_rb,0.12080e-06_rb,0.12884e-06_rb, &
+        & 0.15616e-06_rb,0.20083e-06_rb,0.27373e-06_rb,0.17147e-05_rb /)
+      kao(:, 3, 6, 3) = (/ &
+        & 0.93932e-08_rb,0.15309e-06_rb,0.13785e-06_rb,0.12361e-06_rb,0.12904e-06_rb, &
+        & 0.16004e-06_rb,0.20790e-06_rb,0.27928e-06_rb,0.17384e-05_rb /)
+      kao(:, 4, 6, 3) = (/ &
+        & 0.10364e-07_rb,0.15577e-06_rb,0.14281e-06_rb,0.12445e-06_rb,0.13032e-06_rb, &
+        & 0.16178e-06_rb,0.21225e-06_rb,0.28499e-06_rb,0.17733e-05_rb /)
+      kao(:, 5, 6, 3) = (/ &
+        & 0.10950e-07_rb,0.15768e-06_rb,0.14728e-06_rb,0.12674e-06_rb,0.12961e-06_rb, &
+        & 0.16455e-06_rb,0.21080e-06_rb,0.28744e-06_rb,0.17869e-05_rb /)
+      kao(:, 1, 7, 3) = (/ &
+        & 0.51527e-08_rb,0.13331e-06_rb,0.15220e-06_rb,0.13781e-06_rb,0.11791e-06_rb, &
+        & 0.12291e-06_rb,0.14839e-06_rb,0.21430e-06_rb,0.45802e-05_rb /)
+      kao(:, 2, 7, 3) = (/ &
+        & 0.52409e-08_rb,0.14109e-06_rb,0.15809e-06_rb,0.14393e-06_rb,0.12362e-06_rb, &
+        & 0.12831e-06_rb,0.15572e-06_rb,0.22059e-06_rb,0.46088e-05_rb /)
+      kao(:, 3, 7, 3) = (/ &
+        & 0.66901e-08_rb,0.14833e-06_rb,0.16524e-06_rb,0.14893e-06_rb,0.12670e-06_rb, &
+        & 0.13152e-06_rb,0.16110e-06_rb,0.22404e-06_rb,0.46200e-05_rb /)
+      kao(:, 4, 7, 3) = (/ &
+        & 0.90836e-08_rb,0.15267e-06_rb,0.17113e-06_rb,0.15541e-06_rb,0.12966e-06_rb, &
+        & 0.13240e-06_rb,0.16410e-06_rb,0.22868e-06_rb,0.45999e-05_rb /)
+      kao(:, 5, 7, 3) = (/ &
+        & 0.11721e-07_rb,0.15605e-06_rb,0.17580e-06_rb,0.16064e-06_rb,0.13194e-06_rb, &
+        & 0.13127e-06_rb,0.16676e-06_rb,0.23245e-06_rb,0.46103e-05_rb /)
+      kao(:, 1, 8, 3) = (/ &
+        & 0.53770e-08_rb,0.12906e-06_rb,0.19117e-06_rb,0.16928e-06_rb,0.14454e-06_rb, &
+        & 0.11318e-06_rb,0.12091e-06_rb,0.16771e-06_rb,0.10838e-04_rb /)
+      kao(:, 2, 8, 3) = (/ &
+        & 0.71217e-08_rb,0.13171e-06_rb,0.20115e-06_rb,0.17525e-06_rb,0.15189e-06_rb, &
+        & 0.11980e-06_rb,0.12589e-06_rb,0.17247e-06_rb,0.10844e-04_rb /)
+      kao(:, 3, 8, 3) = (/ &
+        & 0.76051e-08_rb,0.13463e-06_rb,0.20837e-06_rb,0.18092e-06_rb,0.15831e-06_rb, &
+        & 0.12491e-06_rb,0.12782e-06_rb,0.17568e-06_rb,0.10855e-04_rb /)
+      kao(:, 4, 8, 3) = (/ &
+        & 0.87276e-08_rb,0.14002e-06_rb,0.21488e-06_rb,0.18616e-06_rb,0.16272e-06_rb, &
+        & 0.12991e-06_rb,0.13139e-06_rb,0.17775e-06_rb,0.10873e-04_rb /)
+      kao(:, 5, 8, 3) = (/ &
+        & 0.98102e-08_rb,0.14390e-06_rb,0.21715e-06_rb,0.19383e-06_rb,0.16843e-06_rb, &
+        & 0.13102e-06_rb,0.13320e-06_rb,0.18001e-06_rb,0.10883e-04_rb /)
+      kao(:, 1, 9, 3) = (/ &
+        & 0.78846e-08_rb,0.14921e-06_rb,0.16266e-06_rb,0.21810e-06_rb,0.17257e-06_rb, &
+        & 0.13914e-06_rb,0.10621e-06_rb,0.13009e-06_rb,0.22193e-04_rb /)
+      kao(:, 2, 9, 3) = (/ &
+        & 0.87670e-08_rb,0.15667e-06_rb,0.17179e-06_rb,0.22870e-06_rb,0.18453e-06_rb, &
+        & 0.14806e-06_rb,0.11198e-06_rb,0.13228e-06_rb,0.22470e-04_rb /)
+      kao(:, 3, 9, 3) = (/ &
+        & 0.94042e-08_rb,0.16331e-06_rb,0.17929e-06_rb,0.23732e-06_rb,0.19309e-06_rb, &
+        & 0.15669e-06_rb,0.11769e-06_rb,0.13462e-06_rb,0.22759e-04_rb /)
+      kao(:, 4, 9, 3) = (/ &
+        & 0.10052e-07_rb,0.16738e-06_rb,0.18654e-06_rb,0.24428e-06_rb,0.19714e-06_rb, &
+        & 0.16469e-06_rb,0.12194e-06_rb,0.13694e-06_rb,0.23037e-04_rb /)
+      kao(:, 5, 9, 3) = (/ &
+        & 0.99609e-08_rb,0.16974e-06_rb,0.19096e-06_rb,0.25212e-06_rb,0.20604e-06_rb, &
+        & 0.17005e-06_rb,0.12529e-06_rb,0.13965e-06_rb,0.23331e-04_rb /)
+      kao(:, 1,10, 3) = (/ &
+        & 0.10600e-07_rb,0.19194e-06_rb,0.19694e-06_rb,0.19228e-06_rb,0.23306e-06_rb, &
+        & 0.18017e-06_rb,0.13563e-06_rb,0.11106e-06_rb,0.57833e-04_rb /)
+      kao(:, 2,10, 3) = (/ &
+        & 0.11513e-07_rb,0.19670e-06_rb,0.20600e-06_rb,0.20153e-06_rb,0.24712e-06_rb, &
+        & 0.19420e-06_rb,0.14374e-06_rb,0.11223e-06_rb,0.59252e-04_rb /)
+      kao(:, 3,10, 3) = (/ &
+        & 0.12267e-07_rb,0.20052e-06_rb,0.21125e-06_rb,0.21502e-06_rb,0.25879e-06_rb, &
+        & 0.20809e-06_rb,0.15257e-06_rb,0.11412e-06_rb,0.60474e-04_rb /)
+      kao(:, 4,10, 3) = (/ &
+        & 0.11377e-07_rb,0.20485e-06_rb,0.21479e-06_rb,0.22527e-06_rb,0.26884e-06_rb, &
+        & 0.21723e-06_rb,0.15872e-06_rb,0.11733e-06_rb,0.61380e-04_rb /)
+      kao(:, 5,10, 3) = (/ &
+        & 0.12141e-07_rb,0.20611e-06_rb,0.22439e-06_rb,0.22986e-06_rb,0.27411e-06_rb, &
+        & 0.22402e-06_rb,0.16342e-06_rb,0.11916e-06_rb,0.62353e-04_rb /)
+      kao(:, 1,11, 3) = (/ &
+        & 0.12251e-07_rb,0.29022e-06_rb,0.24496e-06_rb,0.24059e-06_rb,0.21631e-06_rb, &
+        & 0.23923e-06_rb,0.16597e-06_rb,0.10842e-06_rb,0.80074e-04_rb /)
+      kao(:, 2,11, 3) = (/ &
+        & 0.12224e-07_rb,0.29680e-06_rb,0.25368e-06_rb,0.24691e-06_rb,0.22294e-06_rb, &
+        & 0.24912e-06_rb,0.17747e-06_rb,0.10969e-06_rb,0.81125e-04_rb /)
+      kao(:, 3,11, 3) = (/ &
+        & 0.14264e-07_rb,0.29886e-06_rb,0.26040e-06_rb,0.25256e-06_rb,0.23184e-06_rb, &
+        & 0.25957e-06_rb,0.18845e-06_rb,0.11123e-06_rb,0.82960e-04_rb /)
+      kao(:, 4,11, 3) = (/ &
+        & 0.16608e-07_rb,0.30056e-06_rb,0.26198e-06_rb,0.25724e-06_rb,0.23897e-06_rb, &
+        & 0.26977e-06_rb,0.19716e-06_rb,0.11521e-06_rb,0.84911e-04_rb /)
+      kao(:, 5,11, 3) = (/ &
+        & 0.18982e-07_rb,0.30200e-06_rb,0.26559e-06_rb,0.26090e-06_rb,0.24427e-06_rb, &
+        & 0.27763e-06_rb,0.20825e-06_rb,0.11858e-06_rb,0.86586e-04_rb /)
+      kao(:, 1,12, 3) = (/ &
+        & 0.16186e-07_rb,0.36864e-06_rb,0.27735e-06_rb,0.24475e-06_rb,0.23659e-06_rb, &
+        & 0.20178e-06_rb,0.20651e-06_rb,0.11504e-06_rb,0.90323e-04_rb /)
+      kao(:, 2,12, 3) = (/ &
+        & 0.16900e-07_rb,0.36903e-06_rb,0.27865e-06_rb,0.25015e-06_rb,0.24279e-06_rb, &
+        & 0.21379e-06_rb,0.22149e-06_rb,0.12739e-06_rb,0.92788e-04_rb /)
+      kao(:, 3,12, 3) = (/ &
+        & 0.18900e-07_rb,0.36546e-06_rb,0.28369e-06_rb,0.25919e-06_rb,0.24650e-06_rb, &
+        & 0.22349e-06_rb,0.23741e-06_rb,0.13455e-06_rb,0.94381e-04_rb /)
+      kao(:, 4,12, 3) = (/ &
+        & 0.24666e-07_rb,0.36289e-06_rb,0.28992e-06_rb,0.26755e-06_rb,0.25261e-06_rb, &
+        & 0.23012e-06_rb,0.24862e-06_rb,0.14012e-06_rb,0.95689e-04_rb /)
+      kao(:, 5,12, 3) = (/ &
+        & 0.28047e-07_rb,0.36144e-06_rb,0.29439e-06_rb,0.27280e-06_rb,0.25910e-06_rb, &
+        & 0.23527e-06_rb,0.25804e-06_rb,0.14441e-06_rb,0.97273e-04_rb /)
+      kao(:, 1,13, 3) = (/ &
+        & 0.27099e-07_rb,0.42452e-06_rb,0.36469e-06_rb,0.28012e-06_rb,0.24206e-06_rb, &
+        & 0.21452e-06_rb,0.19737e-06_rb,0.12552e-06_rb,0.93221e-04_rb /)
+      kao(:, 2,13, 3) = (/ &
+        & 0.30641e-07_rb,0.42348e-06_rb,0.36821e-06_rb,0.29049e-06_rb,0.25191e-06_rb, &
+        & 0.22447e-06_rb,0.20459e-06_rb,0.13174e-06_rb,0.95326e-04_rb /)
+      kao(:, 3,13, 3) = (/ &
+        & 0.31538e-07_rb,0.42218e-06_rb,0.36978e-06_rb,0.29801e-06_rb,0.26042e-06_rb, &
+        & 0.23413e-06_rb,0.21354e-06_rb,0.13999e-06_rb,0.97244e-04_rb /)
+      kao(:, 4,13, 3) = (/ &
+        & 0.33087e-07_rb,0.42233e-06_rb,0.36980e-06_rb,0.30223e-06_rb,0.26697e-06_rb, &
+        & 0.24077e-06_rb,0.22289e-06_rb,0.14849e-06_rb,0.99282e-04_rb /)
+      kao(:, 5,13, 3) = (/ &
+        & 0.35771e-07_rb,0.42124e-06_rb,0.36949e-06_rb,0.30814e-06_rb,0.27423e-06_rb, &
+        & 0.24510e-06_rb,0.22998e-06_rb,0.15431e-06_rb,0.10189e-03_rb /)
+      kao(:, 1, 1, 4) = (/ &
+        & 0.60599e-08_rb,0.49839e-06_rb,0.90796e-06_rb,0.12825e-05_rb,0.16387e-05_rb, &
+        & 0.20000e-05_rb,0.24097e-05_rb,0.30198e-05_rb,0.14012e-05_rb /)
+      kao(:, 2, 1, 4) = (/ &
+        & 0.57361e-08_rb,0.51373e-06_rb,0.93344e-06_rb,0.13150e-05_rb,0.16776e-05_rb, &
+        & 0.20412e-05_rb,0.24476e-05_rb,0.30155e-05_rb,0.14079e-05_rb /)
+      kao(:, 3, 1, 4) = (/ &
+        & 0.61895e-08_rb,0.64074e-06_rb,0.11706e-05_rb,0.16523e-05_rb,0.21138e-05_rb, &
+        & 0.25765e-05_rb,0.30714e-05_rb,0.37148e-05_rb,0.20046e-05_rb /)
+      kao(:, 4, 1, 4) = (/ &
+        & 0.63590e-08_rb,0.53918e-06_rb,0.97233e-06_rb,0.13614e-05_rb,0.17274e-05_rb, &
+        & 0.21018e-05_rb,0.24992e-05_rb,0.30391e-05_rb,0.14106e-05_rb /)
+      kao(:, 5, 1, 4) = (/ &
+        & 0.66907e-08_rb,0.54769e-06_rb,0.98459e-06_rb,0.13756e-05_rb,0.17428e-05_rb, &
+        & 0.21216e-05_rb,0.25190e-05_rb,0.30528e-05_rb,0.14057e-05_rb /)
+      kao(:, 1, 2, 4) = (/ &
+        & 0.63247e-08_rb,0.40976e-06_rb,0.75743e-06_rb,0.10729e-05_rb,0.13776e-05_rb, &
+        & 0.16847e-05_rb,0.20386e-05_rb,0.25923e-05_rb,0.11016e-05_rb /)
+      kao(:, 2, 2, 4) = (/ &
+        & 0.71971e-08_rb,0.42277e-06_rb,0.77866e-06_rb,0.11006e-05_rb,0.14075e-05_rb, &
+        & 0.17208e-05_rb,0.20689e-05_rb,0.25842e-05_rb,0.11093e-05_rb /)
+      kao(:, 3, 2, 4) = (/ &
+        & 0.68862e-08_rb,0.54111e-06_rb,0.99924e-06_rb,0.14135e-05_rb,0.18137e-05_rb, &
+        & 0.22190e-05_rb,0.26613e-05_rb,0.32636e-05_rb,0.16377e-05_rb /)
+      kao(:, 4, 2, 4) = (/ &
+        & 0.74570e-08_rb,0.54374e-06_rb,0.10016e-05_rb,0.14142e-05_rb,0.18118e-05_rb, &
+        & 0.22093e-05_rb,0.26451e-05_rb,0.32306e-05_rb,0.16062e-05_rb /)
+      kao(:, 5, 2, 4) = (/ &
+        & 0.76975e-08_rb,0.44890e-06_rb,0.82016e-06_rb,0.11488e-05_rb,0.14591e-05_rb, &
+        & 0.17814e-05_rb,0.21241e-05_rb,0.26089e-05_rb,0.11145e-05_rb /)
+      kao(:, 1, 3, 4) = (/ &
+        & 0.83656e-08_rb,0.31311e-06_rb,0.61949e-06_rb,0.88176e-06_rb,0.11379e-05_rb, &
+        & 0.13977e-05_rb,0.17043e-05_rb,0.22078e-05_rb,0.73836e-06_rb /)
+      kao(:, 2, 3, 4) = (/ &
+        & 0.85171e-08_rb,0.32573e-06_rb,0.63573e-06_rb,0.90517e-06_rb,0.11641e-05_rb, &
+        & 0.14286e-05_rb,0.17247e-05_rb,0.21938e-05_rb,0.74285e-06_rb /)
+      kao(:, 3, 3, 4) = (/ &
+        & 0.78702e-08_rb,0.33673e-06_rb,0.64948e-06_rb,0.92347e-06_rb,0.11844e-05_rb, &
+        & 0.14525e-05_rb,0.17473e-05_rb,0.21823e-05_rb,0.74417e-06_rb /)
+      kao(:, 4, 3, 4) = (/ &
+        & 0.88135e-08_rb,0.44484e-06_rb,0.84006e-06_rb,0.11924e-05_rb,0.15326e-05_rb, &
+        & 0.18766e-05_rb,0.22592e-05_rb,0.27980e-05_rb,0.11629e-05_rb /)
+      kao(:, 5, 3, 4) = (/ &
+        & 0.83594e-08_rb,0.34852e-06_rb,0.67171e-06_rb,0.94786e-06_rb,0.12080e-05_rb, &
+        & 0.14818e-05_rb,0.17721e-05_rb,0.22017e-05_rb,0.74162e-06_rb /)
+      kao(:, 1, 4, 4) = (/ &
+        & 0.82233e-08_rb,0.22714e-06_rb,0.49574e-06_rb,0.71618e-06_rb,0.92897e-06_rb, &
+        & 0.11522e-05_rb,0.14150e-05_rb,0.18749e-05_rb,0.10829e-05_rb /)
+      kao(:, 2, 4, 4) = (/ &
+        & 0.90906e-08_rb,0.23281e-06_rb,0.51082e-06_rb,0.73615e-06_rb,0.95322e-06_rb, &
+        & 0.11749e-05_rb,0.14287e-05_rb,0.18456e-05_rb,0.10964e-05_rb /)
+      kao(:, 3, 4, 4) = (/ &
+        & 0.10403e-07_rb,0.23873e-06_rb,0.52083e-06_rb,0.75142e-06_rb,0.97057e-06_rb, &
+        & 0.11959e-05_rb,0.14456e-05_rb,0.18299e-05_rb,0.11024e-05_rb /)
+      kao(:, 4, 4, 4) = (/ &
+        & 0.11681e-07_rb,0.24287e-06_rb,0.52982e-06_rb,0.76518e-06_rb,0.98418e-06_rb, &
+        & 0.12105e-05_rb,0.14593e-05_rb,0.18314e-05_rb,0.11002e-05_rb /)
+      kao(:, 5, 4, 4) = (/ &
+        & 0.11781e-07_rb,0.32919e-06_rb,0.69041e-06_rb,0.99008e-06_rb,0.12781e-05_rb, &
+        & 0.15684e-05_rb,0.18900e-05_rb,0.23626e-05_rb,0.11507e-05_rb /)
+      kao(:, 1, 5, 4) = (/ &
+        & 0.10746e-07_rb,0.16960e-06_rb,0.36271e-06_rb,0.57393e-06_rb,0.75088e-06_rb, &
+        & 0.94078e-06_rb,0.11700e-05_rb,0.15610e-05_rb,0.23060e-05_rb /)
+      kao(:, 2, 5, 4) = (/ &
+        & 0.12322e-07_rb,0.17145e-06_rb,0.37466e-06_rb,0.58975e-06_rb,0.77156e-06_rb, &
+        & 0.96051e-06_rb,0.11773e-05_rb,0.15431e-05_rb,0.23550e-05_rb /)
+      kao(:, 3, 5, 4) = (/ &
+        & 0.12362e-07_rb,0.17491e-06_rb,0.38517e-06_rb,0.60273e-06_rb,0.78779e-06_rb, &
+        & 0.97831e-06_rb,0.11895e-05_rb,0.15264e-05_rb,0.23946e-05_rb /)
+      kao(:, 4, 5, 4) = (/ &
+        & 0.11932e-07_rb,0.17603e-06_rb,0.39310e-06_rb,0.61276e-06_rb,0.80198e-06_rb, &
+        & 0.99168e-06_rb,0.12014e-05_rb,0.15209e-05_rb,0.24122e-05_rb /)
+      kao(:, 5, 5, 4) = (/ &
+        & 0.12827e-07_rb,0.23797e-06_rb,0.54915e-06_rb,0.81314e-06_rb,0.10605e-05_rb, &
+        & 0.13079e-05_rb,0.15848e-05_rb,0.19982e-05_rb,0.26265e-05_rb /)
+      kao(:, 1, 6, 4) = (/ &
+        & 0.16887e-07_rb,0.16918e-06_rb,0.26182e-06_rb,0.43955e-06_rb,0.59876e-06_rb, &
+        & 0.76220e-06_rb,0.96205e-06_rb,0.12977e-05_rb,0.30196e-05_rb /)
+      kao(:, 2, 6, 4) = (/ &
+        & 0.16463e-07_rb,0.17256e-06_rb,0.26723e-06_rb,0.45266e-06_rb,0.61330e-06_rb, &
+        & 0.77949e-06_rb,0.96881e-06_rb,0.12938e-05_rb,0.31027e-05_rb /)
+      kao(:, 3, 6, 4) = (/ &
+        & 0.14297e-07_rb,0.17174e-06_rb,0.27626e-06_rb,0.46141e-06_rb,0.62873e-06_rb, &
+        & 0.79335e-06_rb,0.97523e-06_rb,0.12716e-05_rb,0.31487e-05_rb /)
+      kao(:, 4, 6, 4) = (/ &
+        & 0.15984e-07_rb,0.17093e-06_rb,0.27951e-06_rb,0.46972e-06_rb,0.64062e-06_rb, &
+        & 0.80616e-06_rb,0.98183e-06_rb,0.12602e-05_rb,0.31591e-05_rb /)
+      kao(:, 5, 6, 4) = (/ &
+        & 0.17832e-07_rb,0.17197e-06_rb,0.28124e-06_rb,0.47610e-06_rb,0.64900e-06_rb, &
+        & 0.81537e-06_rb,0.99403e-06_rb,0.12613e-05_rb,0.32001e-05_rb /)
+      kao(:, 1, 7, 4) = (/ &
+        & 0.19543e-07_rb,0.20424e-06_rb,0.20827e-06_rb,0.30613e-06_rb,0.46038e-06_rb, &
+        & 0.61052e-06_rb,0.78796e-06_rb,0.10769e-05_rb,0.53495e-05_rb /)
+      kao(:, 2, 7, 4) = (/ &
+        & 0.21943e-07_rb,0.20486e-06_rb,0.21292e-06_rb,0.31650e-06_rb,0.47369e-06_rb, &
+        & 0.62546e-06_rb,0.78997e-06_rb,0.10696e-05_rb,0.53612e-05_rb /)
+      kao(:, 3, 7, 4) = (/ &
+        & 0.23096e-07_rb,0.20519e-06_rb,0.21260e-06_rb,0.32419e-06_rb,0.48522e-06_rb, &
+        & 0.63494e-06_rb,0.79556e-06_rb,0.10562e-05_rb,0.54125e-05_rb /)
+      kao(:, 4, 7, 4) = (/ &
+        & 0.23811e-07_rb,0.20761e-06_rb,0.21334e-06_rb,0.32752e-06_rb,0.49467e-06_rb, &
+        & 0.64456e-06_rb,0.80411e-06_rb,0.10435e-05_rb,0.54920e-05_rb /)
+      kao(:, 5, 7, 4) = (/ &
+        & 0.23502e-07_rb,0.20918e-06_rb,0.21430e-06_rb,0.32878e-06_rb,0.50037e-06_rb, &
+        & 0.65413e-06_rb,0.80879e-06_rb,0.10409e-05_rb,0.55076e-05_rb /)
+      kao(:, 1, 8, 4) = (/ &
+        & 0.28818e-07_rb,0.26386e-06_rb,0.23322e-06_rb,0.23394e-06_rb,0.31766e-06_rb, &
+        & 0.47372e-06_rb,0.64268e-06_rb,0.89272e-06_rb,0.10691e-04_rb /)
+      kao(:, 2, 8, 4) = (/ &
+        & 0.30094e-07_rb,0.27235e-06_rb,0.23524e-06_rb,0.24245e-06_rb,0.32636e-06_rb, &
+        & 0.48411e-06_rb,0.63773e-06_rb,0.88040e-06_rb,0.10770e-04_rb /)
+      kao(:, 3, 8, 4) = (/ &
+        & 0.32474e-07_rb,0.27799e-06_rb,0.23717e-06_rb,0.24789e-06_rb,0.33554e-06_rb, &
+        & 0.49304e-06_rb,0.64255e-06_rb,0.87788e-06_rb,0.10799e-04_rb /)
+      kao(:, 4, 8, 4) = (/ &
+        & 0.33631e-07_rb,0.28020e-06_rb,0.23819e-06_rb,0.25000e-06_rb,0.34187e-06_rb, &
+        & 0.49874e-06_rb,0.64803e-06_rb,0.86373e-06_rb,0.10824e-04_rb /)
+      kao(:, 5, 8, 4) = (/ &
+        & 0.34597e-07_rb,0.28107e-06_rb,0.24266e-06_rb,0.24933e-06_rb,0.34607e-06_rb, &
+        & 0.50692e-06_rb,0.65081e-06_rb,0.85686e-06_rb,0.10819e-04_rb /)
+      kao(:, 1, 9, 4) = (/ &
+        & 0.37049e-07_rb,0.33070e-06_rb,0.32147e-06_rb,0.25828e-06_rb,0.24460e-06_rb, &
+        & 0.33057e-06_rb,0.51182e-06_rb,0.72970e-06_rb,0.32667e-04_rb /)
+      kao(:, 2, 9, 4) = (/ &
+        & 0.39634e-07_rb,0.34282e-06_rb,0.32875e-06_rb,0.26785e-06_rb,0.25757e-06_rb, &
+        & 0.33579e-06_rb,0.50462e-06_rb,0.72240e-06_rb,0.32638e-04_rb /)
+      kao(:, 3, 9, 4) = (/ &
+        & 0.42012e-07_rb,0.34998e-06_rb,0.33495e-06_rb,0.27514e-06_rb,0.26581e-06_rb, &
+        & 0.33988e-06_rb,0.50360e-06_rb,0.72105e-06_rb,0.32828e-04_rb /)
+      kao(:, 4, 9, 4) = (/ &
+        & 0.43216e-07_rb,0.35061e-06_rb,0.33953e-06_rb,0.28140e-06_rb,0.27172e-06_rb, &
+        & 0.34266e-06_rb,0.50914e-06_rb,0.70829e-06_rb,0.32970e-04_rb /)
+      kao(:, 5, 9, 4) = (/ &
+        & 0.43838e-07_rb,0.35447e-06_rb,0.34674e-06_rb,0.28252e-06_rb,0.27122e-06_rb, &
+        & 0.34740e-06_rb,0.51058e-06_rb,0.70194e-06_rb,0.33023e-04_rb /)
+      kao(:, 1,10, 4) = (/ &
+        & 0.46492e-07_rb,0.34673e-06_rb,0.43959e-06_rb,0.39620e-06_rb,0.30969e-06_rb, &
+        & 0.25359e-06_rb,0.35579e-06_rb,0.58999e-06_rb,0.75308e-04_rb /)
+      kao(:, 2,10, 4) = (/ &
+        & 0.51642e-07_rb,0.35814e-06_rb,0.45251e-06_rb,0.40694e-06_rb,0.31643e-06_rb, &
+        & 0.25658e-06_rb,0.34700e-06_rb,0.58340e-06_rb,0.75445e-04_rb /)
+      kao(:, 3,10, 4) = (/ &
+        & 0.55139e-07_rb,0.36959e-06_rb,0.46273e-06_rb,0.41592e-06_rb,0.32168e-06_rb, &
+        & 0.26320e-06_rb,0.34598e-06_rb,0.57972e-06_rb,0.75796e-04_rb /)
+      kao(:, 4,10, 4) = (/ &
+        & 0.58094e-07_rb,0.37731e-06_rb,0.47160e-06_rb,0.41969e-06_rb,0.32536e-06_rb, &
+        & 0.27186e-06_rb,0.34692e-06_rb,0.57173e-06_rb,0.76680e-04_rb /)
+      kao(:, 5,10, 4) = (/ &
+        & 0.62665e-07_rb,0.38529e-06_rb,0.47122e-06_rb,0.42322e-06_rb,0.32990e-06_rb, &
+        & 0.28125e-06_rb,0.34920e-06_rb,0.56204e-06_rb,0.77515e-04_rb /)
+      kao(:, 1,11, 4) = (/ &
+        & 0.71997e-07_rb,0.39039e-06_rb,0.48930e-06_rb,0.52037e-06_rb,0.44835e-06_rb, &
+        & 0.32920e-06_rb,0.25424e-06_rb,0.45719e-06_rb,0.97599e-04_rb /)
+      kao(:, 2,11, 4) = (/ &
+        & 0.84174e-07_rb,0.39220e-06_rb,0.49753e-06_rb,0.53466e-06_rb,0.46035e-06_rb, &
+        & 0.34028e-06_rb,0.25580e-06_rb,0.44804e-06_rb,0.98017e-04_rb /)
+      kao(:, 3,11, 4) = (/ &
+        & 0.88241e-07_rb,0.39809e-06_rb,0.50514e-06_rb,0.54464e-06_rb,0.47069e-06_rb, &
+        & 0.34919e-06_rb,0.25830e-06_rb,0.44783e-06_rb,0.97609e-04_rb /)
+      kao(:, 4,11, 4) = (/ &
+        & 0.93462e-07_rb,0.40271e-06_rb,0.51216e-06_rb,0.55531e-06_rb,0.48178e-06_rb, &
+        & 0.35530e-06_rb,0.26505e-06_rb,0.43524e-06_rb,0.97099e-04_rb /)
+      kao(:, 5,11, 4) = (/ &
+        & 0.96966e-07_rb,0.40660e-06_rb,0.51682e-06_rb,0.56367e-06_rb,0.48662e-06_rb, &
+        & 0.35706e-06_rb,0.26903e-06_rb,0.42986e-06_rb,0.97653e-04_rb /)
+      kao(:, 1,12, 4) = (/ &
+        & 0.99102e-07_rb,0.42179e-06_rb,0.46920e-06_rb,0.54974e-06_rb,0.50699e-06_rb, &
+        & 0.41543e-06_rb,0.26692e-06_rb,0.34287e-06_rb,0.10692e-03_rb /)
+      kao(:, 2,12, 4) = (/ &
+        & 0.10220e-06_rb,0.42343e-06_rb,0.48263e-06_rb,0.56179e-06_rb,0.52088e-06_rb, &
+        & 0.42826e-06_rb,0.27416e-06_rb,0.32165e-06_rb,0.10849e-03_rb /)
+      kao(:, 3,12, 4) = (/ &
+        & 0.10736e-06_rb,0.42994e-06_rb,0.49237e-06_rb,0.56848e-06_rb,0.53837e-06_rb, &
+        & 0.43862e-06_rb,0.28070e-06_rb,0.31402e-06_rb,0.10890e-03_rb /)
+      kao(:, 4,12, 4) = (/ &
+        & 0.10535e-06_rb,0.42853e-06_rb,0.49830e-06_rb,0.57259e-06_rb,0.55337e-06_rb, &
+        & 0.45117e-06_rb,0.28964e-06_rb,0.30229e-06_rb,0.11005e-03_rb /)
+      kao(:, 5,12, 4) = (/ &
+        & 0.10635e-06_rb,0.42826e-06_rb,0.50038e-06_rb,0.57688e-06_rb,0.56182e-06_rb, &
+        & 0.45862e-06_rb,0.29473e-06_rb,0.29904e-06_rb,0.11056e-03_rb /)
+      kao(:, 1,13, 4) = (/ &
+        & 0.11521e-06_rb,0.43118e-06_rb,0.49222e-06_rb,0.52624e-06_rb,0.55771e-06_rb, &
+        & 0.47186e-06_rb,0.32691e-06_rb,0.24833e-06_rb,0.10886e-03_rb /)
+      kao(:, 2,13, 4) = (/ &
+        & 0.11730e-06_rb,0.43904e-06_rb,0.49350e-06_rb,0.54164e-06_rb,0.56845e-06_rb, &
+        & 0.49098e-06_rb,0.34261e-06_rb,0.23938e-06_rb,0.11077e-03_rb /)
+      kao(:, 3,13, 4) = (/ &
+        & 0.11952e-06_rb,0.44327e-06_rb,0.50284e-06_rb,0.55816e-06_rb,0.58198e-06_rb, &
+        & 0.50372e-06_rb,0.35861e-06_rb,0.22850e-06_rb,0.11296e-03_rb /)
+      kao(:, 4,13, 4) = (/ &
+        & 0.11965e-06_rb,0.44664e-06_rb,0.51058e-06_rb,0.56661e-06_rb,0.59093e-06_rb, &
+        & 0.51146e-06_rb,0.36596e-06_rb,0.22349e-06_rb,0.11560e-03_rb /)
+      kao(:, 5,13, 4) = (/ &
+        & 0.12171e-06_rb,0.45566e-06_rb,0.52364e-06_rb,0.57439e-06_rb,0.59010e-06_rb, &
+        & 0.52011e-06_rb,0.37200e-06_rb,0.22417e-06_rb,0.11598e-03_rb /)
+      kao(:, 1, 1, 5) = (/ &
+        & 0.64393e-08_rb,0.14477e-05_rb,0.26383e-05_rb,0.37578e-05_rb,0.48497e-05_rb, &
+        & 0.58771e-05_rb,0.69748e-05_rb,0.83337e-05_rb,0.52972e-05_rb /)
+      kao(:, 2, 1, 5) = (/ &
+        & 0.74788e-08_rb,0.14813e-05_rb,0.26820e-05_rb,0.38123e-05_rb,0.49043e-05_rb, &
+        & 0.59719e-05_rb,0.70794e-05_rb,0.84777e-05_rb,0.53686e-05_rb /)
+      kao(:, 3, 1, 5) = (/ &
+        & 0.70698e-08_rb,0.17381e-05_rb,0.31521e-05_rb,0.44815e-05_rb,0.57370e-05_rb, &
+        & 0.69696e-05_rb,0.82426e-05_rb,0.98195e-05_rb,0.67445e-05_rb /)
+      kao(:, 4, 1, 5) = (/ &
+        & 0.75728e-08_rb,0.15363e-05_rb,0.27544e-05_rb,0.38956e-05_rb,0.49855e-05_rb, &
+        & 0.60556e-05_rb,0.72284e-05_rb,0.86770e-05_rb,0.54442e-05_rb /)
+      kao(:, 5, 1, 5) = (/ &
+        & 0.72646e-08_rb,0.15573e-05_rb,0.27840e-05_rb,0.39266e-05_rb,0.50091e-05_rb, &
+        & 0.60781e-05_rb,0.72327e-05_rb,0.87344e-05_rb,0.54537e-05_rb /)
+      kao(:, 1, 2, 5) = (/ &
+        & 0.91682e-08_rb,0.12471e-05_rb,0.22727e-05_rb,0.32462e-05_rb,0.42007e-05_rb, &
+        & 0.51012e-05_rb,0.60761e-05_rb,0.73379e-05_rb,0.44448e-05_rb /)
+      kao(:, 2, 2, 5) = (/ &
+        & 0.78841e-08_rb,0.12745e-05_rb,0.23098e-05_rb,0.32938e-05_rb,0.42384e-05_rb, &
+        & 0.51817e-05_rb,0.61658e-05_rb,0.74615e-05_rb,0.44925e-05_rb /)
+      kao(:, 3, 2, 5) = (/ &
+        & 0.88457e-08_rb,0.15305e-05_rb,0.27824e-05_rb,0.39573e-05_rb,0.50820e-05_rb, &
+        & 0.61863e-05_rb,0.73547e-05_rb,0.88186e-05_rb,0.58192e-05_rb /)
+      kao(:, 4, 2, 5) = (/ &
+        & 0.81699e-08_rb,0.15379e-05_rb,0.27884e-05_rb,0.39554e-05_rb,0.50640e-05_rb, &
+        & 0.61598e-05_rb,0.73260e-05_rb,0.88047e-05_rb,0.57596e-05_rb /)
+      kao(:, 5, 2, 5) = (/ &
+        & 0.81267e-08_rb,0.13345e-05_rb,0.23941e-05_rb,0.33760e-05_rb,0.43121e-05_rb, &
+        & 0.52406e-05_rb,0.62663e-05_rb,0.76657e-05_rb,0.45393e-05_rb /)
+      kao(:, 1, 3, 5) = (/ &
+        & 0.91717e-08_rb,0.10541e-05_rb,0.19313e-05_rb,0.27682e-05_rb,0.35915e-05_rb, &
+        & 0.43666e-05_rb,0.52222e-05_rb,0.63759e-05_rb,0.36110e-05_rb /)
+      kao(:, 2, 3, 5) = (/ &
+        & 0.10331e-07_rb,0.10789e-05_rb,0.19645e-05_rb,0.28075e-05_rb,0.36240e-05_rb, &
+        & 0.44392e-05_rb,0.52990e-05_rb,0.64883e-05_rb,0.36530e-05_rb /)
+      kao(:, 3, 3, 5) = (/ &
+        & 0.12324e-07_rb,0.10988e-05_rb,0.19944e-05_rb,0.28363e-05_rb,0.36532e-05_rb, &
+        & 0.44650e-05_rb,0.53622e-05_rb,0.65761e-05_rb,0.36791e-05_rb /)
+      kao(:, 4, 3, 5) = (/ &
+        & 0.11596e-07_rb,0.13389e-05_rb,0.24365e-05_rb,0.34597e-05_rb,0.44354e-05_rb, &
+        & 0.54167e-05_rb,0.64681e-05_rb,0.78697e-05_rb,0.48568e-05_rb /)
+      kao(:, 5, 3, 5) = (/ &
+        & 0.11476e-07_rb,0.11282e-05_rb,0.20370e-05_rb,0.28768e-05_rb,0.36785e-05_rb, &
+        & 0.44764e-05_rb,0.53828e-05_rb,0.66660e-05_rb,0.36841e-05_rb /)
+      kao(:, 1, 4, 5) = (/ &
+        & 0.12942e-07_rb,0.87057e-06_rb,0.16185e-05_rb,0.23328e-05_rb,0.30327e-05_rb, &
+        & 0.36939e-05_rb,0.44351e-05_rb,0.54720e-05_rb,0.21271e-05_rb /)
+      kao(:, 2, 4, 5) = (/ &
+        & 0.12911e-07_rb,0.89351e-06_rb,0.16491e-05_rb,0.23657e-05_rb,0.30660e-05_rb, &
+        & 0.37589e-05_rb,0.45049e-05_rb,0.55808e-05_rb,0.21315e-05_rb /)
+      kao(:, 3, 4, 5) = (/ &
+        & 0.11919e-07_rb,0.91285e-06_rb,0.16762e-05_rb,0.23907e-05_rb,0.30911e-05_rb, &
+        & 0.37889e-05_rb,0.45584e-05_rb,0.56554e-05_rb,0.21302e-05_rb /)
+      kao(:, 4, 4, 5) = (/ &
+        & 0.12644e-07_rb,0.92680e-06_rb,0.16966e-05_rb,0.24115e-05_rb,0.31023e-05_rb, &
+        & 0.37973e-05_rb,0.46002e-05_rb,0.57029e-05_rb,0.21090e-05_rb /)
+      kao(:, 5, 4, 5) = (/ &
+        & 0.14252e-07_rb,0.11501e-05_rb,0.21042e-05_rb,0.29827e-05_rb,0.38200e-05_rb, &
+        & 0.46680e-05_rb,0.55977e-05_rb,0.69211e-05_rb,0.32123e-05_rb /)
+      kao(:, 1, 5, 5) = (/ &
+        & 0.14457e-07_rb,0.68848e-06_rb,0.13403e-05_rb,0.19448e-05_rb,0.25364e-05_rb, &
+        & 0.30956e-05_rb,0.37236e-05_rb,0.46561e-05_rb,0.23476e-05_rb /)
+      kao(:, 2, 5, 5) = (/ &
+        & 0.13664e-07_rb,0.70724e-06_rb,0.13666e-05_rb,0.19744e-05_rb,0.25701e-05_rb, &
+        & 0.31515e-05_rb,0.37903e-05_rb,0.47386e-05_rb,0.23292e-05_rb /)
+      kao(:, 3, 5, 5) = (/ &
+        & 0.16363e-07_rb,0.72382e-06_rb,0.13894e-05_rb,0.19966e-05_rb,0.25908e-05_rb, &
+        & 0.31942e-05_rb,0.38380e-05_rb,0.48063e-05_rb,0.23210e-05_rb /)
+      kao(:, 4, 5, 5) = (/ &
+        & 0.18854e-07_rb,0.73645e-06_rb,0.14075e-05_rb,0.20143e-05_rb,0.25995e-05_rb, &
+        & 0.31924e-05_rb,0.38751e-05_rb,0.48509e-05_rb,0.23084e-05_rb /)
+      kao(:, 5, 5, 5) = (/ &
+        & 0.19502e-07_rb,0.95711e-06_rb,0.17948e-05_rb,0.25536e-05_rb,0.32756e-05_rb, &
+        & 0.40127e-05_rb,0.48356e-05_rb,0.60502e-05_rb,0.26522e-05_rb /)
+      kao(:, 1, 6, 5) = (/ &
+        & 0.20265e-07_rb,0.45716e-06_rb,0.10840e-05_rb,0.16034e-05_rb,0.20999e-05_rb, &
+        & 0.25681e-05_rb,0.30977e-05_rb,0.39107e-05_rb,0.52450e-05_rb /)
+      kao(:, 2, 6, 5) = (/ &
+        & 0.21598e-07_rb,0.47132e-06_rb,0.11079e-05_rb,0.16263e-05_rb,0.21396e-05_rb, &
+        & 0.26164e-05_rb,0.31577e-05_rb,0.39701e-05_rb,0.52182e-05_rb /)
+      kao(:, 3, 6, 5) = (/ &
+        & 0.24575e-07_rb,0.48601e-06_rb,0.11257e-05_rb,0.16486e-05_rb,0.21513e-05_rb, &
+        & 0.26585e-05_rb,0.32022e-05_rb,0.40354e-05_rb,0.51968e-05_rb /)
+      kao(:, 4, 6, 5) = (/ &
+        & 0.24397e-07_rb,0.49804e-06_rb,0.11416e-05_rb,0.16645e-05_rb,0.21605e-05_rb, &
+        & 0.26639e-05_rb,0.32353e-05_rb,0.40822e-05_rb,0.51575e-05_rb /)
+      kao(:, 5, 6, 5) = (/ &
+        & 0.24456e-07_rb,0.50499e-06_rb,0.11522e-05_rb,0.16738e-05_rb,0.21632e-05_rb, &
+        & 0.26629e-05_rb,0.32463e-05_rb,0.41051e-05_rb,0.51085e-05_rb /)
+      kao(:, 1, 7, 5) = (/ &
+        & 0.28039e-07_rb,0.29800e-06_rb,0.81783e-06_rb,0.13008e-05_rb,0.17226e-05_rb, &
+        & 0.21163e-05_rb,0.25578e-05_rb,0.32519e-05_rb,0.82307e-05_rb /)
+      kao(:, 2, 7, 5) = (/ &
+        & 0.29388e-07_rb,0.30492e-06_rb,0.83771e-06_rb,0.13192e-05_rb,0.17591e-05_rb, &
+        & 0.21563e-05_rb,0.26128e-05_rb,0.33130e-05_rb,0.81908e-05_rb /)
+      kao(:, 3, 7, 5) = (/ &
+        & 0.29556e-07_rb,0.30866e-06_rb,0.85444e-06_rb,0.13376e-05_rb,0.17722e-05_rb, &
+        & 0.21943e-05_rb,0.26541e-05_rb,0.33584e-05_rb,0.81819e-05_rb /)
+      kao(:, 4, 7, 5) = (/ &
+        & 0.26709e-07_rb,0.30951e-06_rb,0.86739e-06_rb,0.13505e-05_rb,0.17805e-05_rb, &
+        & 0.22093e-05_rb,0.26812e-05_rb,0.34009e-05_rb,0.81017e-05_rb /)
+      kao(:, 5, 7, 5) = (/ &
+        & 0.27877e-07_rb,0.31158e-06_rb,0.87645e-06_rb,0.13597e-05_rb,0.17817e-05_rb, &
+        & 0.22083e-05_rb,0.26996e-05_rb,0.34240e-05_rb,0.80774e-05_rb /)
+      kao(:, 1, 8, 5) = (/ &
+        & 0.34498e-07_rb,0.30504e-06_rb,0.50025e-06_rb,0.99104e-06_rb,0.13907e-05_rb, &
+        & 0.17284e-05_rb,0.20950e-05_rb,0.26875e-05_rb,0.12492e-04_rb /)
+      kao(:, 2, 8, 5) = (/ &
+        & 0.34468e-07_rb,0.31253e-06_rb,0.51376e-06_rb,0.10029e-05_rb,0.14233e-05_rb, &
+        & 0.17665e-05_rb,0.21486e-05_rb,0.27439e-05_rb,0.12811e-04_rb /)
+      kao(:, 3, 8, 5) = (/ &
+        & 0.33481e-07_rb,0.31885e-06_rb,0.52532e-06_rb,0.10176e-05_rb,0.14361e-05_rb, &
+        & 0.18000e-05_rb,0.21864e-05_rb,0.27713e-05_rb,0.12979e-04_rb /)
+      kao(:, 4, 8, 5) = (/ &
+        & 0.35023e-07_rb,0.32212e-06_rb,0.53171e-06_rb,0.10292e-05_rb,0.14414e-05_rb, &
+        & 0.18222e-05_rb,0.22113e-05_rb,0.28111e-05_rb,0.13061e-04_rb /)
+      kao(:, 5, 8, 5) = (/ &
+        & 0.38480e-07_rb,0.32386e-06_rb,0.53818e-06_rb,0.10355e-05_rb,0.14400e-05_rb, &
+        & 0.18162e-05_rb,0.22298e-05_rb,0.28367e-05_rb,0.13100e-04_rb /)
+      kao(:, 1, 9, 5) = (/ &
+        & 0.41152e-07_rb,0.31870e-06_rb,0.36402e-06_rb,0.61613e-06_rb,0.10619e-05_rb, &
+        & 0.13940e-05_rb,0.17098e-05_rb,0.22173e-05_rb,0.27198e-04_rb /)
+      kao(:, 2, 9, 5) = (/ &
+        & 0.47020e-07_rb,0.31765e-06_rb,0.37312e-06_rb,0.61961e-06_rb,0.10763e-05_rb, &
+        & 0.14273e-05_rb,0.17555e-05_rb,0.22573e-05_rb,0.28218e-04_rb /)
+      kao(:, 3, 9, 5) = (/ &
+        & 0.48171e-07_rb,0.31526e-06_rb,0.38468e-06_rb,0.62540e-06_rb,0.10803e-05_rb, &
+        & 0.14543e-05_rb,0.17919e-05_rb,0.22822e-05_rb,0.28600e-04_rb /)
+      kao(:, 4, 9, 5) = (/ &
+        & 0.52826e-07_rb,0.32481e-06_rb,0.38733e-06_rb,0.62721e-06_rb,0.10854e-05_rb, &
+        & 0.14750e-05_rb,0.18124e-05_rb,0.23140e-05_rb,0.29051e-04_rb /)
+      kao(:, 5, 9, 5) = (/ &
+        & 0.56456e-07_rb,0.32727e-06_rb,0.38424e-06_rb,0.63178e-06_rb,0.10853e-05_rb, &
+        & 0.14692e-05_rb,0.18309e-05_rb,0.23369e-05_rb,0.29958e-04_rb /)
+      kao(:, 1,10, 5) = (/ &
+        & 0.62033e-07_rb,0.45418e-06_rb,0.43247e-06_rb,0.44775e-06_rb,0.62834e-06_rb, &
+        & 0.10534e-05_rb,0.13865e-05_rb,0.18301e-05_rb,0.47779e-04_rb /)
+      kao(:, 2,10, 5) = (/ &
+        & 0.66259e-07_rb,0.45321e-06_rb,0.43983e-06_rb,0.45223e-06_rb,0.63440e-06_rb, &
+        & 0.10746e-05_rb,0.14253e-05_rb,0.18534e-05_rb,0.48468e-04_rb /)
+      kao(:, 3,10, 5) = (/ &
+        & 0.78966e-07_rb,0.45246e-06_rb,0.44780e-06_rb,0.45868e-06_rb,0.63026e-06_rb, &
+        & 0.10842e-05_rb,0.14519e-05_rb,0.18794e-05_rb,0.49251e-04_rb /)
+      kao(:, 4,10, 5) = (/ &
+        & 0.87881e-07_rb,0.44642e-06_rb,0.45426e-06_rb,0.46583e-06_rb,0.63116e-06_rb, &
+        & 0.10925e-05_rb,0.14710e-05_rb,0.18965e-05_rb,0.49742e-04_rb /)
+      kao(:, 5,10, 5) = (/ &
+        & 0.92572e-07_rb,0.44310e-06_rb,0.45326e-06_rb,0.47005e-06_rb,0.63094e-06_rb, &
+        & 0.10763e-05_rb,0.14843e-05_rb,0.19214e-05_rb,0.50457e-04_rb /)
+      kao(:, 1,11, 5) = (/ &
+        & 0.10522e-06_rb,0.58600e-06_rb,0.57473e-06_rb,0.52150e-06_rb,0.51202e-06_rb, &
+        & 0.62383e-06_rb,0.10987e-05_rb,0.15032e-05_rb,0.50557e-04_rb /)
+      kao(:, 2,11, 5) = (/ &
+        & 0.98332e-07_rb,0.58669e-06_rb,0.57910e-06_rb,0.52997e-06_rb,0.52591e-06_rb, &
+        & 0.62992e-06_rb,0.11144e-05_rb,0.15271e-05_rb,0.52915e-04_rb /)
+      kao(:, 3,11, 5) = (/ &
+        & 0.10383e-06_rb,0.58976e-06_rb,0.58650e-06_rb,0.53573e-06_rb,0.53394e-06_rb, &
+        & 0.63743e-06_rb,0.11251e-05_rb,0.15415e-05_rb,0.55206e-04_rb /)
+      kao(:, 4,11, 5) = (/ &
+        & 0.10626e-06_rb,0.58622e-06_rb,0.58747e-06_rb,0.53868e-06_rb,0.53891e-06_rb, &
+        & 0.62645e-06_rb,0.11296e-05_rb,0.15628e-05_rb,0.58020e-04_rb /)
+      kao(:, 5,11, 5) = (/ &
+        & 0.10795e-06_rb,0.57800e-06_rb,0.58664e-06_rb,0.53883e-06_rb,0.54784e-06_rb, &
+        & 0.62145e-06_rb,0.11279e-05_rb,0.15782e-05_rb,0.60369e-04_rb /)
+      kao(:, 1,12, 5) = (/ &
+        & 0.11905e-06_rb,0.60759e-06_rb,0.68611e-06_rb,0.59318e-06_rb,0.53805e-06_rb, &
+        & 0.44962e-06_rb,0.74828e-06_rb,0.12279e-05_rb,0.57098e-04_rb /)
+      kao(:, 2,12, 5) = (/ &
+        & 0.12660e-06_rb,0.61695e-06_rb,0.68094e-06_rb,0.60079e-06_rb,0.55064e-06_rb, &
+        & 0.44953e-06_rb,0.74858e-06_rb,0.12489e-05_rb,0.55969e-04_rb /)
+      kao(:, 3,12, 5) = (/ &
+        & 0.12824e-06_rb,0.61561e-06_rb,0.67586e-06_rb,0.61662e-06_rb,0.55533e-06_rb, &
+        & 0.46796e-06_rb,0.74406e-06_rb,0.12615e-05_rb,0.57249e-04_rb /)
+      kao(:, 4,12, 5) = (/ &
+        & 0.12834e-06_rb,0.62554e-06_rb,0.67923e-06_rb,0.62343e-06_rb,0.55964e-06_rb, &
+        & 0.48091e-06_rb,0.73622e-06_rb,0.12795e-05_rb,0.58462e-04_rb /)
+      kao(:, 5,12, 5) = (/ &
+        & 0.13022e-06_rb,0.63206e-06_rb,0.68726e-06_rb,0.62663e-06_rb,0.56231e-06_rb, &
+        & 0.48008e-06_rb,0.72942e-06_rb,0.12885e-05_rb,0.57642e-04_rb /)
+      kao(:, 1,13, 5) = (/ &
+        & 0.15325e-06_rb,0.60909e-06_rb,0.76952e-06_rb,0.71232e-06_rb,0.57983e-06_rb, &
+        & 0.50489e-06_rb,0.48627e-06_rb,0.99183e-06_rb,0.58778e-04_rb /)
+      kao(:, 2,13, 5) = (/ &
+        & 0.15519e-06_rb,0.62152e-06_rb,0.78639e-06_rb,0.71888e-06_rb,0.59866e-06_rb, &
+        & 0.50930e-06_rb,0.48247e-06_rb,0.10069e-05_rb,0.57959e-04_rb /)
+      kao(:, 3,13, 5) = (/ &
+        & 0.17242e-06_rb,0.64099e-06_rb,0.78686e-06_rb,0.71502e-06_rb,0.60678e-06_rb, &
+        & 0.51633e-06_rb,0.47220e-06_rb,0.10180e-05_rb,0.56844e-04_rb /)
+      kao(:, 4,13, 5) = (/ &
+        & 0.18585e-06_rb,0.65002e-06_rb,0.78368e-06_rb,0.71421e-06_rb,0.61538e-06_rb, &
+        & 0.52650e-06_rb,0.46857e-06_rb,0.10263e-05_rb,0.55757e-04_rb /)
+      kao(:, 5,13, 5) = (/ &
+        & 0.19235e-06_rb,0.64166e-06_rb,0.76203e-06_rb,0.70622e-06_rb,0.61837e-06_rb, &
+        & 0.53042e-06_rb,0.45529e-06_rb,0.10275e-05_rb,0.55475e-04_rb /)
+      kao(:, 1, 1, 6) = (/ &
+        & 0.95617e-08_rb,0.36774e-05_rb,0.65849e-05_rb,0.92221e-05_rb,0.11700e-04_rb, &
+        & 0.14161e-04_rb,0.16732e-04_rb,0.20350e-04_rb,0.14554e-04_rb /)
+      kao(:, 2, 1, 6) = (/ &
+        & 0.93327e-08_rb,0.37537e-05_rb,0.66916e-05_rb,0.93495e-05_rb,0.11842e-04_rb, &
+        & 0.14289e-04_rb,0.16848e-04_rb,0.20318e-04_rb,0.14747e-04_rb /)
+      kao(:, 3, 1, 6) = (/ &
+        & 0.98298e-08_rb,0.41944e-05_rb,0.75022e-05_rb,0.10503e-04_rb,0.13381e-04_rb, &
+        & 0.16104e-04_rb,0.19004e-04_rb,0.22601e-04_rb,0.17337e-04_rb /)
+      kao(:, 4, 1, 6) = (/ &
+        & 0.92318e-08_rb,0.38872e-05_rb,0.68816e-05_rb,0.95784e-05_rb,0.12112e-04_rb, &
+        & 0.14510e-04_rb,0.17052e-04_rb,0.20522e-04_rb,0.14967e-04_rb /)
+      kao(:, 5, 1, 6) = (/ &
+        & 0.98053e-08_rb,0.39438e-05_rb,0.69574e-05_rb,0.96665e-05_rb,0.12218e-04_rb, &
+        & 0.14607e-04_rb,0.17135e-04_rb,0.20557e-04_rb,0.15005e-04_rb /)
+      kao(:, 1, 2, 6) = (/ &
+        & 0.99669e-08_rb,0.32456e-05_rb,0.58216e-05_rb,0.81575e-05_rb,0.10349e-04_rb, &
+        & 0.12573e-04_rb,0.14901e-04_rb,0.18163e-04_rb,0.12615e-04_rb /)
+      kao(:, 2, 2, 6) = (/ &
+        & 0.12231e-07_rb,0.33138e-05_rb,0.59221e-05_rb,0.82752e-05_rb,0.10501e-04_rb, &
+        & 0.12666e-04_rb,0.15004e-04_rb,0.18147e-04_rb,0.12797e-04_rb /)
+      kao(:, 3, 2, 6) = (/ &
+        & 0.10745e-07_rb,0.37581e-05_rb,0.67327e-05_rb,0.94426e-05_rb,0.12044e-04_rb, &
+        & 0.14533e-04_rb,0.17181e-04_rb,0.20503e-04_rb,0.15464e-04_rb /)
+      kao(:, 4, 2, 6) = (/ &
+        & 0.11723e-07_rb,0.37897e-05_rb,0.67581e-05_rb,0.94584e-05_rb,0.12035e-04_rb, &
+        & 0.14508e-04_rb,0.17115e-04_rb,0.20450e-04_rb,0.15378e-04_rb /)
+      kao(:, 5, 2, 6) = (/ &
+        & 0.10775e-07_rb,0.34864e-05_rb,0.61478e-05_rb,0.85479e-05_rb,0.10823e-04_rb, &
+        & 0.12985e-04_rb,0.15273e-04_rb,0.18381e-04_rb,0.12972e-04_rb /)
+      kao(:, 1, 3, 6) = (/ &
+        & 0.12159e-07_rb,0.28311e-05_rb,0.50923e-05_rb,0.71433e-05_rb,0.90735e-05_rb, &
+        & 0.11042e-04_rb,0.13160e-04_rb,0.16141e-04_rb,0.10790e-04_rb /)
+      kao(:, 2, 3, 6) = (/ &
+        & 0.11403e-07_rb,0.28950e-05_rb,0.51829e-05_rb,0.72481e-05_rb,0.92149e-05_rb, &
+        & 0.11135e-04_rb,0.13267e-04_rb,0.16084e-04_rb,0.10912e-04_rb /)
+      kao(:, 3, 3, 6) = (/ &
+        & 0.12436e-07_rb,0.29531e-05_rb,0.52642e-05_rb,0.73461e-05_rb,0.93337e-05_rb, &
+        & 0.11250e-04_rb,0.13358e-04_rb,0.16208e-04_rb,0.10995e-04_rb /)
+      kao(:, 4, 3, 6) = (/ &
+        & 0.14856e-07_rb,0.33723e-05_rb,0.60342e-05_rb,0.84579e-05_rb,0.10776e-04_rb, &
+        & 0.13025e-04_rb,0.15434e-04_rb,0.18466e-04_rb,0.13550e-04_rb /)
+      kao(:, 5, 3, 6) = (/ &
+        & 0.16537e-07_rb,0.30506e-05_rb,0.53821e-05_rb,0.74897e-05_rb,0.94861e-05_rb, &
+        & 0.11421e-04_rb,0.13503e-04_rb,0.16308e-04_rb,0.11045e-04_rb /)
+      kao(:, 1, 4, 6) = (/ &
+        & 0.13114e-07_rb,0.24467e-05_rb,0.44159e-05_rb,0.61941e-05_rb,0.78845e-05_rb, &
+        & 0.96031e-05_rb,0.11513e-04_rb,0.14234e-04_rb,0.89642e-05_rb /)
+      kao(:, 2, 4, 6) = (/ &
+        & 0.15028e-07_rb,0.25040e-05_rb,0.44954e-05_rb,0.62931e-05_rb,0.80050e-05_rb, &
+        & 0.97056e-05_rb,0.11618e-04_rb,0.14175e-04_rb,0.90802e-05_rb /)
+      kao(:, 3, 4, 6) = (/ &
+        & 0.18213e-07_rb,0.25556e-05_rb,0.45678e-05_rb,0.63789e-05_rb,0.81071e-05_rb, &
+        & 0.98077e-05_rb,0.11694e-04_rb,0.14301e-04_rb,0.91538e-05_rb /)
+      kao(:, 4, 4, 6) = (/ &
+        & 0.19097e-07_rb,0.26037e-05_rb,0.46288e-05_rb,0.64476e-05_rb,0.81897e-05_rb, &
+        & 0.98941e-05_rb,0.11740e-04_rb,0.14344e-04_rb,0.91968e-05_rb /)
+      kao(:, 5, 4, 6) = (/ &
+        & 0.18014e-07_rb,0.29993e-05_rb,0.53622e-05_rb,0.75209e-05_rb,0.95686e-05_rb, &
+        & 0.11571e-04_rb,0.13783e-04_rb,0.16522e-04_rb,0.11644e-04_rb /)
+      kao(:, 1, 5, 6) = (/ &
+        & 0.21237e-07_rb,0.20921e-05_rb,0.37961e-05_rb,0.53264e-05_rb,0.67905e-05_rb, &
+        & 0.82846e-05_rb,0.99803e-05_rb,0.12512e-04_rb,0.44075e-05_rb /)
+      kao(:, 2, 5, 6) = (/ &
+        & 0.23885e-07_rb,0.21444e-05_rb,0.38676e-05_rb,0.54146e-05_rb,0.68931e-05_rb, &
+        & 0.83832e-05_rb,0.10077e-04_rb,0.12417e-04_rb,0.44982e-05_rb /)
+      kao(:, 3, 5, 6) = (/ &
+        & 0.20851e-07_rb,0.21906e-05_rb,0.39301e-05_rb,0.54900e-05_rb,0.69833e-05_rb, &
+        & 0.84513e-05_rb,0.10145e-04_rb,0.12513e-04_rb,0.45299e-05_rb /)
+      kao(:, 4, 5, 6) = (/ &
+        & 0.22487e-07_rb,0.22322e-05_rb,0.39843e-05_rb,0.55506e-05_rb,0.70502e-05_rb, &
+        & 0.85357e-05_rb,0.10189e-04_rb,0.12546e-04_rb,0.45220e-05_rb /)
+      kao(:, 5, 5, 6) = (/ &
+        & 0.23015e-07_rb,0.26442e-05_rb,0.47363e-05_rb,0.66520e-05_rb,0.84676e-05_rb, &
+        & 0.10272e-04_rb,0.12268e-04_rb,0.14801e-04_rb,0.72945e-05_rb /)
+      kao(:, 1, 6, 6) = (/ &
+        & 0.22693e-07_rb,0.17592e-05_rb,0.32289e-05_rb,0.45327e-05_rb,0.57876e-05_rb, &
+        & 0.70822e-05_rb,0.85643e-05_rb,0.10966e-04_rb,0.53375e-05_rb /)
+      kao(:, 2, 6, 6) = (/ &
+        & 0.22407e-07_rb,0.18081e-05_rb,0.32912e-05_rb,0.46136e-05_rb,0.58716e-05_rb, &
+        & 0.71710e-05_rb,0.86530e-05_rb,0.10805e-04_rb,0.53845e-05_rb /)
+      kao(:, 3, 6, 6) = (/ &
+        & 0.22705e-07_rb,0.18504e-05_rb,0.33475e-05_rb,0.46786e-05_rb,0.59585e-05_rb, &
+        & 0.72252e-05_rb,0.87123e-05_rb,0.10876e-04_rb,0.53808e-05_rb /)
+      kao(:, 4, 6, 6) = (/ &
+        & 0.23941e-07_rb,0.18862e-05_rb,0.33938e-05_rb,0.47325e-05_rb,0.60159e-05_rb, &
+        & 0.72910e-05_rb,0.87573e-05_rb,0.10893e-04_rb,0.53357e-05_rb /)
+      kao(:, 5, 6, 6) = (/ &
+        & 0.27004e-07_rb,0.19136e-05_rb,0.34294e-05_rb,0.47766e-05_rb,0.60573e-05_rb, &
+        & 0.73309e-05_rb,0.87892e-05_rb,0.10892e-04_rb,0.52484e-05_rb /)
+      kao(:, 1, 7, 6) = (/ &
+        & 0.27131e-07_rb,0.14236e-05_rb,0.27128e-05_rb,0.38203e-05_rb,0.48870e-05_rb, &
+        & 0.59983e-05_rb,0.72827e-05_rb,0.94729e-05_rb,0.86942e-05_rb /)
+      kao(:, 2, 7, 6) = (/ &
+        & 0.26214e-07_rb,0.14673e-05_rb,0.27677e-05_rb,0.38940e-05_rb,0.49627e-05_rb, &
+        & 0.60727e-05_rb,0.73587e-05_rb,0.93332e-05_rb,0.87651e-05_rb /)
+      kao(:, 3, 7, 6) = (/ &
+        & 0.29249e-07_rb,0.15085e-05_rb,0.28175e-05_rb,0.39503e-05_rb,0.50362e-05_rb, &
+        & 0.61230e-05_rb,0.74095e-05_rb,0.93608e-05_rb,0.87497e-05_rb /)
+      kao(:, 4, 7, 6) = (/ &
+        & 0.35846e-07_rb,0.15423e-05_rb,0.28570e-05_rb,0.39988e-05_rb,0.50875e-05_rb, &
+        & 0.61709e-05_rb,0.74491e-05_rb,0.93691e-05_rb,0.88300e-05_rb /)
+      kao(:, 5, 7, 6) = (/ &
+        & 0.36255e-07_rb,0.15665e-05_rb,0.28868e-05_rb,0.40378e-05_rb,0.51248e-05_rb, &
+        & 0.62083e-05_rb,0.74689e-05_rb,0.93597e-05_rb,0.88065e-05_rb /)
+      kao(:, 1, 8, 6) = (/ &
+        & 0.37619e-07_rb,0.92017e-06_rb,0.22295e-05_rb,0.31821e-05_rb,0.40883e-05_rb, &
+        & 0.50331e-05_rb,0.61447e-05_rb,0.80461e-05_rb,0.15512e-04_rb /)
+      kao(:, 2, 8, 6) = (/ &
+        & 0.43015e-07_rb,0.95048e-06_rb,0.22782e-05_rb,0.32493e-05_rb,0.41585e-05_rb, &
+        & 0.50968e-05_rb,0.61995e-05_rb,0.80232e-05_rb,0.15472e-04_rb /)
+      kao(:, 3, 8, 6) = (/ &
+        & 0.47635e-07_rb,0.97934e-06_rb,0.23207e-05_rb,0.33002e-05_rb,0.42181e-05_rb, &
+        & 0.51430e-05_rb,0.62468e-05_rb,0.79821e-05_rb,0.15652e-04_rb /)
+      kao(:, 4, 8, 6) = (/ &
+        & 0.48140e-07_rb,0.10026e-05_rb,0.23582e-05_rb,0.33416e-05_rb,0.42650e-05_rb, &
+        & 0.51734e-05_rb,0.62779e-05_rb,0.79833e-05_rb,0.15762e-04_rb /)
+      kao(:, 5, 8, 6) = (/ &
+        & 0.45231e-07_rb,0.10212e-05_rb,0.23819e-05_rb,0.33754e-05_rb,0.42991e-05_rb, &
+        & 0.52146e-05_rb,0.62945e-05_rb,0.79701e-05_rb,0.15840e-04_rb /)
+      kao(:, 1, 9, 6) = (/ &
+        & 0.48601e-07_rb,0.49350e-06_rb,0.16585e-05_rb,0.26009e-05_rb,0.33796e-05_rb, &
+        & 0.41888e-05_rb,0.51434e-05_rb,0.67867e-05_rb,0.26875e-04_rb /)
+      kao(:, 2, 9, 6) = (/ &
+        & 0.49825e-07_rb,0.51680e-06_rb,0.16935e-05_rb,0.26607e-05_rb,0.34457e-05_rb, &
+        & 0.42434e-05_rb,0.51839e-05_rb,0.68587e-05_rb,0.27475e-04_rb /)
+      kao(:, 3, 9, 6) = (/ &
+        & 0.52843e-07_rb,0.53573e-06_rb,0.17199e-05_rb,0.27038e-05_rb,0.35027e-05_rb, &
+        & 0.42858e-05_rb,0.52233e-05_rb,0.67410e-05_rb,0.28097e-04_rb /)
+      kao(:, 4, 9, 6) = (/ &
+        & 0.49841e-07_rb,0.54248e-06_rb,0.17493e-05_rb,0.27418e-05_rb,0.35427e-05_rb, &
+        & 0.43127e-05_rb,0.52517e-05_rb,0.67418e-05_rb,0.28632e-04_rb /)
+      kao(:, 5, 9, 6) = (/ &
+        & 0.50649e-07_rb,0.54940e-06_rb,0.17700e-05_rb,0.27695e-05_rb,0.35712e-05_rb, &
+        & 0.43482e-05_rb,0.52645e-05_rb,0.67282e-05_rb,0.28662e-04_rb /)
+      kao(:, 1,10, 6) = (/ &
+        & 0.82685e-07_rb,0.54022e-06_rb,0.87761e-06_rb,0.18752e-05_rb,0.27293e-05_rb, &
+        & 0.34506e-05_rb,0.42821e-05_rb,0.56501e-05_rb,0.44067e-04_rb /)
+      kao(:, 2,10, 6) = (/ &
+        & 0.87011e-07_rb,0.54017e-06_rb,0.89732e-06_rb,0.19208e-05_rb,0.27945e-05_rb, &
+        & 0.35005e-05_rb,0.43124e-05_rb,0.57881e-05_rb,0.45858e-04_rb /)
+      kao(:, 3,10, 6) = (/ &
+        & 0.79909e-07_rb,0.55355e-06_rb,0.90995e-06_rb,0.19451e-05_rb,0.28460e-05_rb, &
+        & 0.35425e-05_rb,0.43438e-05_rb,0.56593e-05_rb,0.45805e-04_rb /)
+      kao(:, 4,10, 6) = (/ &
+        & 0.75533e-07_rb,0.55705e-06_rb,0.92147e-06_rb,0.19661e-05_rb,0.28785e-05_rb, &
+        & 0.35628e-05_rb,0.43635e-05_rb,0.56526e-05_rb,0.46295e-04_rb /)
+      kao(:, 5,10, 6) = (/ &
+        & 0.76631e-07_rb,0.55159e-06_rb,0.93362e-06_rb,0.19832e-05_rb,0.29003e-05_rb, &
+        & 0.35965e-05_rb,0.43731e-05_rb,0.56385e-05_rb,0.46720e-04_rb /)
+      kao(:, 1,11, 6) = (/ &
+        & 0.11164e-06_rb,0.57710e-06_rb,0.71279e-06_rb,0.10003e-05_rb,0.19253e-05_rb, &
+        & 0.28027e-05_rb,0.35523e-05_rb,0.47607e-05_rb,0.51144e-04_rb /)
+      kao(:, 2,11, 6) = (/ &
+        & 0.11484e-06_rb,0.58649e-06_rb,0.71918e-06_rb,0.10167e-05_rb,0.19538e-05_rb, &
+        & 0.28431e-05_rb,0.35713e-05_rb,0.48333e-05_rb,0.49887e-04_rb /)
+      kao(:, 3,11, 6) = (/ &
+        & 0.11442e-06_rb,0.58483e-06_rb,0.70503e-06_rb,0.10320e-05_rb,0.19684e-05_rb, &
+        & 0.28674e-05_rb,0.35911e-05_rb,0.47191e-05_rb,0.50222e-04_rb /)
+      kao(:, 4,11, 6) = (/ &
+        & 0.11737e-06_rb,0.58895e-06_rb,0.70242e-06_rb,0.10442e-05_rb,0.19738e-05_rb, &
+        & 0.28962e-05_rb,0.36035e-05_rb,0.47045e-05_rb,0.48754e-04_rb /)
+      kao(:, 5,11, 6) = (/ &
+        & 0.12314e-06_rb,0.59299e-06_rb,0.70874e-06_rb,0.10470e-05_rb,0.19736e-05_rb, &
+        & 0.29100e-05_rb,0.36075e-05_rb,0.46813e-05_rb,0.45986e-04_rb /)
+      kao(:, 1,12, 6) = (/ &
+        & 0.14446e-06_rb,0.57459e-06_rb,0.72800e-06_rb,0.69912e-06_rb,0.11693e-05_rb, &
+        & 0.21457e-05_rb,0.29151e-05_rb,0.39683e-05_rb,0.42970e-04_rb /)
+      kao(:, 2,12, 6) = (/ &
+        & 0.14738e-06_rb,0.58568e-06_rb,0.75374e-06_rb,0.69814e-06_rb,0.11797e-05_rb, &
+        & 0.21759e-05_rb,0.29287e-05_rb,0.39942e-05_rb,0.41434e-04_rb /)
+      kao(:, 3,12, 6) = (/ &
+        & 0.15006e-06_rb,0.60144e-06_rb,0.75420e-06_rb,0.70559e-06_rb,0.11849e-05_rb, &
+        & 0.21718e-05_rb,0.29383e-05_rb,0.39185e-05_rb,0.42909e-04_rb /)
+      kao(:, 4,12, 6) = (/ &
+        & 0.15745e-06_rb,0.60776e-06_rb,0.75984e-06_rb,0.71270e-06_rb,0.11804e-05_rb, &
+        & 0.21578e-05_rb,0.29477e-05_rb,0.38939e-05_rb,0.41761e-04_rb /)
+      kao(:, 5,12, 6) = (/ &
+        & 0.16583e-06_rb,0.62207e-06_rb,0.74591e-06_rb,0.69746e-06_rb,0.11751e-05_rb, &
+        & 0.21552e-05_rb,0.29514e-05_rb,0.38695e-05_rb,0.45252e-04_rb /)
+      kao(:, 1,13, 6) = (/ &
+        & 0.18492e-06_rb,0.65841e-06_rb,0.74904e-06_rb,0.82698e-06_rb,0.69790e-06_rb, &
+        & 0.13356e-05_rb,0.23333e-05_rb,0.33010e-05_rb,0.43502e-04_rb /)
+      kao(:, 2,13, 6) = (/ &
+        & 0.18447e-06_rb,0.66115e-06_rb,0.74200e-06_rb,0.80748e-06_rb,0.68676e-06_rb, &
+        & 0.13419e-05_rb,0.23369e-05_rb,0.32873e-05_rb,0.44908e-04_rb /)
+      kao(:, 3,13, 6) = (/ &
+        & 0.20107e-06_rb,0.65387e-06_rb,0.73155e-06_rb,0.79291e-06_rb,0.67848e-06_rb, &
+        & 0.13368e-05_rb,0.23434e-05_rb,0.32337e-05_rb,0.47417e-04_rb /)
+      kao(:, 4,13, 6) = (/ &
+        & 0.20493e-06_rb,0.66191e-06_rb,0.72707e-06_rb,0.79839e-06_rb,0.67208e-06_rb, &
+        & 0.13273e-05_rb,0.23466e-05_rb,0.32075e-05_rb,0.48703e-04_rb /)
+      kao(:, 5,13, 6) = (/ &
+        & 0.20003e-06_rb,0.66753e-06_rb,0.73390e-06_rb,0.79794e-06_rb,0.66936e-06_rb, &
+        & 0.13150e-05_rb,0.23558e-05_rb,0.31828e-05_rb,0.50012e-04_rb /)
+      kao(:, 1, 1, 7) = (/ &
+        & 0.45955e-07_rb,0.96988e-05_rb,0.16766e-04_rb,0.23073e-04_rb,0.28829e-04_rb, &
+        & 0.34350e-04_rb,0.39744e-04_rb,0.45071e-04_rb,0.36783e-04_rb /)
+      kao(:, 2, 1, 7) = (/ &
+        & 0.57268e-07_rb,0.98413e-05_rb,0.16970e-04_rb,0.23311e-04_rb,0.29149e-04_rb, &
+        & 0.34726e-04_rb,0.40229e-04_rb,0.45682e-04_rb,0.37190e-04_rb /)
+      kao(:, 3, 1, 7) = (/ &
+        & 0.70060e-07_rb,0.10517e-04_rb,0.18168e-04_rb,0.24965e-04_rb,0.31264e-04_rb, &
+        & 0.37439e-04_rb,0.43299e-04_rb,0.49335e-04_rb,0.41254e-04_rb /)
+      kao(:, 4, 1, 7) = (/ &
+        & 0.84370e-07_rb,0.10120e-04_rb,0.17302e-04_rb,0.23633e-04_rb,0.29544e-04_rb, &
+        & 0.35368e-04_rb,0.40885e-04_rb,0.46535e-04_rb,0.37819e-04_rb /)
+      kao(:, 5, 1, 7) = (/ &
+        & 0.97346e-07_rb,0.10254e-04_rb,0.17458e-04_rb,0.23773e-04_rb,0.29672e-04_rb, &
+        & 0.35542e-04_rb,0.41140e-04_rb,0.46864e-04_rb,0.38054e-04_rb /)
+      kao(:, 1, 2, 7) = (/ &
+        & 0.27937e-07_rb,0.87332e-05_rb,0.15102e-04_rb,0.20785e-04_rb,0.26002e-04_rb, &
+        & 0.30993e-04_rb,0.35918e-04_rb,0.41124e-04_rb,0.32692e-04_rb /)
+      kao(:, 2, 2, 7) = (/ &
+        & 0.34502e-07_rb,0.88655e-05_rb,0.15279e-04_rb,0.20992e-04_rb,0.26281e-04_rb, &
+        & 0.31393e-04_rb,0.36363e-04_rb,0.41768e-04_rb,0.33047e-04_rb /)
+      kao(:, 3, 2, 7) = (/ &
+        & 0.45243e-07_rb,0.95567e-05_rb,0.16535e-04_rb,0.22740e-04_rb,0.28503e-04_rb, &
+        & 0.34161e-04_rb,0.39521e-04_rb,0.45509e-04_rb,0.37184e-04_rb /)
+      kao(:, 4, 2, 7) = (/ &
+        & 0.56029e-07_rb,0.96404e-05_rb,0.16599e-04_rb,0.22759e-04_rb,0.28526e-04_rb, &
+        & 0.34207e-04_rb,0.39586e-04_rb,0.45601e-04_rb,0.37152e-04_rb /)
+      kao(:, 5, 2, 7) = (/ &
+        & 0.67453e-07_rb,0.92372e-05_rb,0.15744e-04_rb,0.21435e-04_rb,0.26769e-04_rb, &
+        & 0.32085e-04_rb,0.37228e-04_rb,0.42908e-04_rb,0.33841e-04_rb /)
+      kao(:, 1, 3, 7) = (/ &
+        & 0.21909e-07_rb,0.77821e-05_rb,0.13457e-04_rb,0.18525e-04_rb,0.23194e-04_rb, &
+        & 0.27662e-04_rb,0.32086e-04_rb,0.37089e-04_rb,0.28700e-04_rb /)
+      kao(:, 2, 3, 7) = (/ &
+        & 0.25816e-07_rb,0.78998e-05_rb,0.13627e-04_rb,0.18723e-04_rb,0.23459e-04_rb, &
+        & 0.28049e-04_rb,0.32494e-04_rb,0.37775e-04_rb,0.29060e-04_rb /)
+      kao(:, 3, 3, 7) = (/ &
+        & 0.28009e-07_rb,0.80177e-05_rb,0.13778e-04_rb,0.18883e-04_rb,0.23652e-04_rb, &
+        & 0.28348e-04_rb,0.32831e-04_rb,0.38183e-04_rb,0.29363e-04_rb /)
+      kao(:, 4, 3, 7) = (/ &
+        & 0.32250e-07_rb,0.87000e-05_rb,0.14997e-04_rb,0.20591e-04_rb,0.25858e-04_rb, &
+        & 0.30984e-04_rb,0.35855e-04_rb,0.41716e-04_rb,0.33352e-04_rb /)
+      kao(:, 5, 3, 7) = (/ &
+        & 0.38565e-07_rb,0.82442e-05_rb,0.14048e-04_rb,0.19147e-04_rb,0.23963e-04_rb, &
+        & 0.28712e-04_rb,0.33322e-04_rb,0.38841e-04_rb,0.29827e-04_rb /)
+      kao(:, 1, 4, 7) = (/ &
+        & 0.27845e-07_rb,0.68782e-05_rb,0.11887e-04_rb,0.16370e-04_rb,0.20522e-04_rb, &
+        & 0.24507e-04_rb,0.28445e-04_rb,0.33146e-04_rb,0.25091e-04_rb /)
+      kao(:, 2, 4, 7) = (/ &
+        & 0.30162e-07_rb,0.69860e-05_rb,0.12053e-04_rb,0.16569e-04_rb,0.20786e-04_rb, &
+        & 0.24863e-04_rb,0.28833e-04_rb,0.33823e-04_rb,0.25439e-04_rb /)
+      kao(:, 3, 4, 7) = (/ &
+        & 0.31547e-07_rb,0.70934e-05_rb,0.12196e-04_rb,0.16734e-04_rb,0.20984e-04_rb, &
+        & 0.25140e-04_rb,0.29167e-04_rb,0.34188e-04_rb,0.25743e-04_rb /)
+      kao(:, 4, 4, 7) = (/ &
+        & 0.30733e-07_rb,0.72009e-05_rb,0.12319e-04_rb,0.16870e-04_rb,0.21150e-04_rb, &
+        & 0.25350e-04_rb,0.29432e-04_rb,0.34551e-04_rb,0.26011e-04_rb /)
+      kao(:, 5, 4, 7) = (/ &
+        & 0.33104e-07_rb,0.78742e-05_rb,0.13511e-04_rb,0.18536e-04_rb,0.23314e-04_rb, &
+        & 0.27934e-04_rb,0.32284e-04_rb,0.37983e-04_rb,0.29911e-04_rb /)
+      kao(:, 1, 5, 7) = (/ &
+        & 0.31453e-07_rb,0.60344e-05_rb,0.10431e-04_rb,0.14360e-04_rb,0.18025e-04_rb, &
+        & 0.21556e-04_rb,0.25057e-04_rb,0.29352e-04_rb,0.21244e-04_rb /)
+      kao(:, 2, 5, 7) = (/ &
+        & 0.32645e-07_rb,0.61373e-05_rb,0.10589e-04_rb,0.14561e-04_rb,0.18288e-04_rb, &
+        & 0.21896e-04_rb,0.25427e-04_rb,0.30041e-04_rb,0.21582e-04_rb /)
+      kao(:, 3, 5, 7) = (/ &
+        & 0.36285e-07_rb,0.62371e-05_rb,0.10724e-04_rb,0.14730e-04_rb,0.18494e-04_rb, &
+        & 0.22175e-04_rb,0.25749e-04_rb,0.30401e-04_rb,0.21875e-04_rb /)
+      kao(:, 4, 5, 7) = (/ &
+        & 0.35840e-07_rb,0.63361e-05_rb,0.10841e-04_rb,0.14872e-04_rb,0.18672e-04_rb, &
+        & 0.22386e-04_rb,0.26001e-04_rb,0.30772e-04_rb,0.22136e-04_rb /)
+      kao(:, 5, 5, 7) = (/ &
+        & 0.34391e-07_rb,0.70384e-05_rb,0.12100e-04_rb,0.16639e-04_rb,0.20967e-04_rb, &
+        & 0.25106e-04_rb,0.29033e-04_rb,0.34382e-04_rb,0.26458e-04_rb /)
+      kao(:, 1, 6, 7) = (/ &
+        & 0.38317e-07_rb,0.52554e-05_rb,0.90847e-05_rb,0.12506e-04_rb,0.15706e-04_rb, &
+        & 0.18802e-04_rb,0.21926e-04_rb,0.25721e-04_rb,0.82786e-05_rb /)
+      kao(:, 2, 6, 7) = (/ &
+        & 0.42993e-07_rb,0.53521e-05_rb,0.92425e-05_rb,0.12708e-04_rb,0.15965e-04_rb, &
+        & 0.19131e-04_rb,0.22269e-04_rb,0.26449e-04_rb,0.85145e-05_rb /)
+      kao(:, 3, 6, 7) = (/ &
+        & 0.43612e-07_rb,0.54474e-05_rb,0.93707e-05_rb,0.12875e-04_rb,0.16176e-04_rb, &
+        & 0.19407e-04_rb,0.22575e-04_rb,0.26830e-04_rb,0.87594e-05_rb /)
+      kao(:, 4, 6, 7) = (/ &
+        & 0.42757e-07_rb,0.55405e-05_rb,0.94823e-05_rb,0.13019e-04_rb,0.16363e-04_rb, &
+        & 0.19625e-04_rb,0.22815e-04_rb,0.27200e-04_rb,0.90170e-05_rb /)
+      kao(:, 5, 6, 7) = (/ &
+        & 0.43664e-07_rb,0.56274e-05_rb,0.95923e-05_rb,0.13140e-04_rb,0.16520e-04_rb, &
+        & 0.19797e-04_rb,0.22995e-04_rb,0.27528e-04_rb,0.91836e-05_rb /)
+      kao(:, 1, 7, 7) = (/ &
+        & 0.39995e-07_rb,0.45414e-05_rb,0.78502e-05_rb,0.10801e-04_rb,0.13562e-04_rb, &
+        & 0.16248e-04_rb,0.19009e-04_rb,0.22439e-04_rb,0.93804e-05_rb /)
+      kao(:, 2, 7, 7) = (/ &
+        & 0.43614e-07_rb,0.46331e-05_rb,0.80059e-05_rb,0.11000e-04_rb,0.13813e-04_rb, &
+        & 0.16577e-04_rb,0.19346e-04_rb,0.23103e-04_rb,0.95334e-05_rb /)
+      kao(:, 3, 7, 7) = (/ &
+        & 0.45687e-07_rb,0.47201e-05_rb,0.81316e-05_rb,0.11167e-04_rb,0.14031e-04_rb, &
+        & 0.16844e-04_rb,0.19646e-04_rb,0.23513e-04_rb,0.96503e-05_rb /)
+      kao(:, 4, 7, 7) = (/ &
+        & 0.48386e-07_rb,0.48081e-05_rb,0.82413e-05_rb,0.11310e-04_rb,0.14223e-04_rb, &
+        & 0.17063e-04_rb,0.19885e-04_rb,0.23881e-04_rb,0.95360e-05_rb /)
+      kao(:, 5, 7, 7) = (/ &
+        & 0.54287e-07_rb,0.48899e-05_rb,0.83473e-05_rb,0.11434e-04_rb,0.14383e-04_rb, &
+        & 0.17240e-04_rb,0.20064e-04_rb,0.24201e-04_rb,0.94267e-05_rb /)
+      kao(:, 1, 8, 7) = (/ &
+        & 0.45720e-07_rb,0.38685e-05_rb,0.67269e-05_rb,0.92537e-05_rb,0.11613e-04_rb, &
+        & 0.13930e-04_rb,0.16333e-04_rb,0.19500e-04_rb,0.15537e-04_rb /)
+      kao(:, 2, 8, 7) = (/ &
+        & 0.46817e-07_rb,0.39568e-05_rb,0.68775e-05_rb,0.94493e-05_rb,0.11857e-04_rb, &
+        & 0.14250e-04_rb,0.16679e-04_rb,0.19983e-04_rb,0.15822e-04_rb /)
+      kao(:, 3, 8, 7) = (/ &
+        & 0.48700e-07_rb,0.40362e-05_rb,0.70012e-05_rb,0.96148e-05_rb,0.12076e-04_rb, &
+        & 0.14508e-04_rb,0.16969e-04_rb,0.20440e-04_rb,0.15878e-04_rb /)
+      kao(:, 4, 8, 7) = (/ &
+        & 0.54460e-07_rb,0.41199e-05_rb,0.71098e-05_rb,0.97580e-05_rb,0.12268e-04_rb, &
+        & 0.14725e-04_rb,0.17206e-04_rb,0.20805e-04_rb,0.16014e-04_rb /)
+      kao(:, 5, 8, 7) = (/ &
+        & 0.59565e-07_rb,0.42000e-05_rb,0.72128e-05_rb,0.98789e-05_rb,0.12424e-04_rb, &
+        & 0.14896e-04_rb,0.17382e-04_rb,0.21113e-04_rb,0.15894e-04_rb /)
+      kao(:, 1, 9, 7) = (/ &
+        & 0.60502e-07_rb,0.31758e-05_rb,0.57011e-05_rb,0.78602e-05_rb,0.98646e-05_rb, &
+        & 0.11842e-04_rb,0.13914e-04_rb,0.16812e-04_rb,0.32738e-04_rb /)
+      kao(:, 2, 9, 7) = (/ &
+        & 0.61920e-07_rb,0.32583e-05_rb,0.58474e-05_rb,0.80501e-05_rb,0.10097e-04_rb, &
+        & 0.12150e-04_rb,0.14260e-04_rb,0.17128e-04_rb,0.32707e-04_rb /)
+      kao(:, 3, 9, 7) = (/ &
+        & 0.66102e-07_rb,0.33410e-05_rb,0.59686e-05_rb,0.82148e-05_rb,0.10310e-04_rb, &
+        & 0.12398e-04_rb,0.14542e-04_rb,0.17650e-04_rb,0.33629e-04_rb /)
+      kao(:, 4, 9, 7) = (/ &
+        & 0.86168e-07_rb,0.34261e-05_rb,0.60763e-05_rb,0.83539e-05_rb,0.10496e-04_rb, &
+        & 0.12604e-04_rb,0.14773e-04_rb,0.17994e-04_rb,0.33878e-04_rb /)
+      kao(:, 5, 9, 7) = (/ &
+        & 0.91586e-07_rb,0.35057e-05_rb,0.61764e-05_rb,0.84703e-05_rb,0.10646e-04_rb, &
+        & 0.12765e-04_rb,0.14939e-04_rb,0.18282e-04_rb,0.33645e-04_rb /)
+      kao(:, 1,10, 7) = (/ &
+        & 0.96997e-07_rb,0.19211e-05_rb,0.47098e-05_rb,0.66155e-05_rb,0.83225e-05_rb, &
+        & 0.10005e-04_rb,0.11773e-04_rb,0.14404e-04_rb,0.53631e-04_rb /)
+      kao(:, 2,10, 7) = (/ &
+        & 0.96064e-07_rb,0.20141e-05_rb,0.48491e-05_rb,0.67941e-05_rb,0.85382e-05_rb, &
+        & 0.10290e-04_rb,0.12102e-04_rb,0.14626e-04_rb,0.54289e-04_rb /)
+      kao(:, 3,10, 7) = (/ &
+        & 0.10431e-06_rb,0.20834e-05_rb,0.49690e-05_rb,0.69520e-05_rb,0.87398e-05_rb, &
+        & 0.10520e-04_rb,0.12369e-04_rb,0.15124e-04_rb,0.55603e-04_rb /)
+      kao(:, 4,10, 7) = (/ &
+        & 0.11432e-06_rb,0.21653e-05_rb,0.50755e-05_rb,0.70852e-05_rb,0.89148e-05_rb, &
+        & 0.10714e-04_rb,0.12591e-04_rb,0.15457e-04_rb,0.56630e-04_rb /)
+      kao(:, 5,10, 7) = (/ &
+        & 0.11074e-06_rb,0.22480e-05_rb,0.51732e-05_rb,0.71951e-05_rb,0.90530e-05_rb, &
+        & 0.10860e-04_rb,0.12745e-04_rb,0.15721e-04_rb,0.54963e-04_rb /)
+      kao(:, 1,11, 7) = (/ &
+        & 0.15854e-06_rb,0.91297e-06_rb,0.32555e-05_rb,0.55113e-05_rb,0.70464e-05_rb, &
+        & 0.85121e-05_rb,0.10027e-04_rb,0.12303e-04_rb,0.52607e-04_rb /)
+      kao(:, 2,11, 7) = (/ &
+        & 0.16751e-06_rb,0.96634e-06_rb,0.33790e-05_rb,0.56722e-05_rb,0.72351e-05_rb, &
+        & 0.87519e-05_rb,0.10311e-04_rb,0.12547e-04_rb,0.52883e-04_rb /)
+      kao(:, 3,11, 7) = (/ &
+        & 0.16741e-06_rb,0.10318e-05_rb,0.35064e-05_rb,0.58058e-05_rb,0.74099e-05_rb, &
+        & 0.89413e-05_rb,0.10546e-04_rb,0.12998e-04_rb,0.52407e-04_rb /)
+      kao(:, 4,11, 7) = (/ &
+        & 0.16708e-06_rb,0.10925e-05_rb,0.36064e-05_rb,0.59145e-05_rb,0.75531e-05_rb, &
+        & 0.90996e-05_rb,0.10715e-04_rb,0.13285e-04_rb,0.53203e-04_rb /)
+      kao(:, 5,11, 7) = (/ &
+        & 0.16578e-06_rb,0.11490e-05_rb,0.36852e-05_rb,0.60104e-05_rb,0.76652e-05_rb, &
+        & 0.92182e-05_rb,0.10838e-04_rb,0.13496e-04_rb,0.54467e-04_rb /)
+      kao(:, 1,12, 7) = (/ &
+        & 0.17287e-06_rb,0.67222e-06_rb,0.20177e-05_rb,0.42045e-05_rb,0.58863e-05_rb, &
+        & 0.71911e-05_rb,0.84904e-05_rb,0.10467e-04_rb,0.53824e-04_rb /)
+      kao(:, 2,12, 7) = (/ &
+        & 0.17534e-06_rb,0.66930e-06_rb,0.20902e-05_rb,0.43510e-05_rb,0.60518e-05_rb, &
+        & 0.73834e-05_rb,0.87285e-05_rb,0.10723e-04_rb,0.57713e-04_rb /)
+      kao(:, 3,12, 7) = (/ &
+        & 0.19862e-06_rb,0.69271e-06_rb,0.21807e-05_rb,0.44473e-05_rb,0.61938e-05_rb, &
+        & 0.75395e-05_rb,0.89230e-05_rb,0.11082e-04_rb,0.58727e-04_rb /)
+      kao(:, 4,12, 7) = (/ &
+        & 0.20481e-06_rb,0.70155e-06_rb,0.22437e-05_rb,0.45330e-05_rb,0.63072e-05_rb, &
+        & 0.76639e-05_rb,0.90515e-05_rb,0.11316e-04_rb,0.62478e-04_rb /)
+      kao(:, 5,12, 7) = (/ &
+        & 0.22362e-06_rb,0.66686e-06_rb,0.23107e-05_rb,0.46277e-05_rb,0.64004e-05_rb, &
+        & 0.77560e-05_rb,0.91460e-05_rb,0.11480e-04_rb,0.61459e-04_rb /)
+      kao(:, 1,13, 7) = (/ &
+        & 0.24394e-06_rb,0.78850e-06_rb,0.10005e-05_rb,0.25869e-05_rb,0.46671e-05_rb, &
+        & 0.60110e-05_rb,0.71462e-05_rb,0.88357e-05_rb,0.59707e-04_rb /)
+      kao(:, 2,13, 7) = (/ &
+        & 0.25387e-06_rb,0.77656e-06_rb,0.10565e-05_rb,0.27093e-05_rb,0.48105e-05_rb, &
+        & 0.61610e-05_rb,0.73436e-05_rb,0.90989e-05_rb,0.60151e-04_rb /)
+      kao(:, 3,13, 7) = (/ &
+        & 0.22260e-06_rb,0.76604e-06_rb,0.11188e-05_rb,0.28168e-05_rb,0.49259e-05_rb, &
+        & 0.62864e-05_rb,0.74912e-05_rb,0.93777e-05_rb,0.58560e-04_rb /)
+      kao(:, 4,13, 7) = (/ &
+        & 0.22499e-06_rb,0.75979e-06_rb,0.11746e-05_rb,0.28869e-05_rb,0.50154e-05_rb, &
+        & 0.63819e-05_rb,0.75933e-05_rb,0.95633e-05_rb,0.61656e-04_rb /)
+      kao(:, 5,13, 7) = (/ &
+        & 0.22527e-06_rb,0.74699e-06_rb,0.12195e-05_rb,0.29526e-05_rb,0.50915e-05_rb, &
+        & 0.64528e-05_rb,0.76669e-05_rb,0.96909e-05_rb,0.60588e-04_rb /)
+      kao(:, 1, 1, 8) = (/ &
+        & 0.29788e-05_rb,0.29380e-04_rb,0.47103e-04_rb,0.62484e-04_rb,0.75923e-04_rb, &
+        & 0.86945e-04_rb,0.96459e-04_rb,0.10727e-03_rb,0.95715e-04_rb /)
+      kao(:, 2, 1, 8) = (/ &
+        & 0.31829e-05_rb,0.29542e-04_rb,0.47406e-04_rb,0.62987e-04_rb,0.76500e-04_rb, &
+        & 0.87575e-04_rb,0.97244e-04_rb,0.10847e-03_rb,0.96769e-04_rb /)
+      kao(:, 3, 1, 8) = (/ &
+        & 0.34017e-05_rb,0.30451e-04_rb,0.49181e-04_rb,0.65673e-04_rb,0.79848e-04_rb, &
+        & 0.91475e-04_rb,0.10206e-03_rb,0.11418e-03_rb,0.10339e-03_rb /)
+      kao(:, 4, 1, 8) = (/ &
+        & 0.36204e-05_rb,0.29858e-04_rb,0.47964e-04_rb,0.63849e-04_rb,0.77416e-04_rb, &
+        & 0.88495e-04_rb,0.98624e-04_rb,0.11030e-03_rb,0.98665e-04_rb /)
+      kao(:, 5, 1, 8) = (/ &
+        & 0.38336e-05_rb,0.30032e-04_rb,0.48176e-04_rb,0.64174e-04_rb,0.77743e-04_rb, &
+        & 0.88899e-04_rb,0.99219e-04_rb,0.11117e-03_rb,0.99410e-04_rb /)
+      kao(:, 1, 2, 8) = (/ &
+        & 0.24422e-05_rb,0.27039e-04_rb,0.43472e-04_rb,0.57657e-04_rb,0.69985e-04_rb, &
+        & 0.80297e-04_rb,0.89716e-04_rb,0.10091e-03_rb,0.87814e-04_rb /)
+      kao(:, 2, 2, 8) = (/ &
+        & 0.26194e-05_rb,0.27224e-04_rb,0.43834e-04_rb,0.58227e-04_rb,0.70564e-04_rb, &
+        & 0.80899e-04_rb,0.90555e-04_rb,0.10201e-03_rb,0.88900e-04_rb /)
+      kao(:, 3, 2, 8) = (/ &
+        & 0.28026e-05_rb,0.28185e-04_rb,0.45675e-04_rb,0.60941e-04_rb,0.73932e-04_rb, &
+        & 0.84933e-04_rb,0.95539e-04_rb,0.10795e-03_rb,0.95932e-04_rb /)
+      kao(:, 4, 2, 8) = (/ &
+        & 0.29807e-05_rb,0.28297e-04_rb,0.45818e-04_rb,0.61151e-04_rb,0.74119e-04_rb, &
+        & 0.85132e-04_rb,0.95905e-04_rb,0.10857e-03_rb,0.96316e-04_rb /)
+      kao(:, 5, 2, 8) = (/ &
+        & 0.31559e-05_rb,0.27777e-04_rb,0.44649e-04_rb,0.59431e-04_rb,0.71821e-04_rb, &
+        & 0.82324e-04_rb,0.92537e-04_rb,0.10487e-03_rb,0.91446e-04_rb /)
+      kao(:, 1, 3, 8) = (/ &
+        & 0.19527e-05_rb,0.24728e-04_rb,0.39864e-04_rb,0.52777e-04_rb,0.63893e-04_rb, &
+        & 0.73441e-04_rb,0.82582e-04_rb,0.93968e-04_rb,0.79571e-04_rb /)
+      kao(:, 2, 3, 8) = (/ &
+        & 0.21028e-05_rb,0.24948e-04_rb,0.40273e-04_rb,0.53366e-04_rb,0.64472e-04_rb, &
+        & 0.74070e-04_rb,0.83496e-04_rb,0.95166e-04_rb,0.80711e-04_rb /)
+      kao(:, 3, 3, 8) = (/ &
+        & 0.22571e-05_rb,0.25146e-04_rb,0.40613e-04_rb,0.53873e-04_rb,0.64998e-04_rb, &
+        & 0.74638e-04_rb,0.84298e-04_rb,0.96249e-04_rb,0.81670e-04_rb /)
+      kao(:, 4, 3, 8) = (/ &
+        & 0.24052e-05_rb,0.26082e-04_rb,0.42367e-04_rb,0.56407e-04_rb,0.68204e-04_rb, &
+        & 0.78600e-04_rb,0.89199e-04_rb,0.10217e-03_rb,0.88502e-04_rb /)
+      kao(:, 5, 3, 8) = (/ &
+        & 0.25493e-05_rb,0.25521e-04_rb,0.41156e-04_rb,0.54597e-04_rb,0.65795e-04_rb, &
+        & 0.75610e-04_rb,0.85600e-04_rb,0.98234e-04_rb,0.83132e-04_rb /)
+      kao(:, 1, 4, 8) = (/ &
+        & 0.15249e-05_rb,0.22458e-04_rb,0.36230e-04_rb,0.47832e-04_rb,0.57788e-04_rb, &
+        & 0.66572e-04_rb,0.75267e-04_rb,0.86613e-04_rb,0.71765e-04_rb /)
+      kao(:, 2, 4, 8) = (/ &
+        & 0.16472e-05_rb,0.22706e-04_rb,0.36674e-04_rb,0.48420e-04_rb,0.58373e-04_rb, &
+        & 0.67233e-04_rb,0.76205e-04_rb,0.87918e-04_rb,0.72872e-04_rb /)
+      kao(:, 3, 4, 8) = (/ &
+        & 0.17727e-05_rb,0.22924e-04_rb,0.37041e-04_rb,0.48925e-04_rb,0.58917e-04_rb, &
+        & 0.67822e-04_rb,0.77056e-04_rb,0.89127e-04_rb,0.73812e-04_rb /)
+      kao(:, 4, 4, 8) = (/ &
+        & 0.18979e-05_rb,0.23116e-04_rb,0.37363e-04_rb,0.49353e-04_rb,0.59386e-04_rb, &
+        & 0.68373e-04_rb,0.77816e-04_rb,0.90208e-04_rb,0.74597e-04_rb /)
+      kao(:, 5, 4, 8) = (/ &
+        & 0.20187e-05_rb,0.24032e-04_rb,0.39090e-04_rb,0.51784e-04_rb,0.62486e-04_rb, &
+        & 0.72274e-04_rb,0.82652e-04_rb,0.95944e-04_rb,0.81360e-04_rb /)
+      kao(:, 1, 5, 8) = (/ &
+        & 0.11616e-05_rb,0.20230e-04_rb,0.32593e-04_rb,0.43015e-04_rb,0.51913e-04_rb, &
+        & 0.59885e-04_rb,0.68041e-04_rb,0.79091e-04_rb,0.64237e-04_rb /)
+      kao(:, 2, 5, 8) = (/ &
+        & 0.12634e-05_rb,0.20493e-04_rb,0.33052e-04_rb,0.43575e-04_rb,0.52485e-04_rb, &
+        & 0.60579e-04_rb,0.68993e-04_rb,0.80447e-04_rb,0.65308e-04_rb /)
+      kao(:, 3, 5, 8) = (/ &
+        & 0.13665e-05_rb,0.20722e-04_rb,0.33449e-04_rb,0.44078e-04_rb,0.53031e-04_rb, &
+        & 0.61206e-04_rb,0.69878e-04_rb,0.81712e-04_rb,0.66219e-04_rb /)
+      kao(:, 4, 5, 8) = (/ &
+        & 0.14654e-05_rb,0.20926e-04_rb,0.33806e-04_rb,0.44507e-04_rb,0.53511e-04_rb, &
+        & 0.61775e-04_rb,0.70644e-04_rb,0.82800e-04_rb,0.67010e-04_rb /)
+      kao(:, 5, 5, 8) = (/ &
+        & 0.15654e-05_rb,0.21919e-04_rb,0.35683e-04_rb,0.47135e-04_rb,0.56892e-04_rb, &
+        & 0.66014e-04_rb,0.75901e-04_rb,0.88948e-04_rb,0.74367e-04_rb /)
+      kao(:, 1, 6, 8) = (/ &
+        & 0.85477e-06_rb,0.18056e-04_rb,0.29058e-04_rb,0.38374e-04_rb,0.46318e-04_rb, &
+        & 0.53503e-04_rb,0.60983e-04_rb,0.71567e-04_rb,0.55220e-04_rb /)
+      kao(:, 2, 6, 8) = (/ &
+        & 0.93399e-06_rb,0.18333e-04_rb,0.29518e-04_rb,0.38924e-04_rb,0.46903e-04_rb, &
+        & 0.54228e-04_rb,0.61990e-04_rb,0.72960e-04_rb,0.56327e-04_rb /)
+      kao(:, 3, 6, 8) = (/ &
+        & 0.10173e-05_rb,0.18568e-04_rb,0.29940e-04_rb,0.39430e-04_rb,0.47457e-04_rb, &
+        & 0.54891e-04_rb,0.62912e-04_rb,0.74219e-04_rb,0.57262e-04_rb /)
+      kao(:, 4, 6, 8) = (/ &
+        & 0.10990e-05_rb,0.18773e-04_rb,0.30321e-04_rb,0.39858e-04_rb,0.47937e-04_rb, &
+        & 0.55463e-04_rb,0.63685e-04_rb,0.75339e-04_rb,0.58060e-04_rb /)
+      kao(:, 5, 6, 8) = (/ &
+        & 0.11736e-05_rb,0.18980e-04_rb,0.30632e-04_rb,0.40210e-04_rb,0.48338e-04_rb, &
+        & 0.55952e-04_rb,0.64349e-04_rb,0.76243e-04_rb,0.58787e-04_rb /)
+      kao(:, 1, 7, 8) = (/ &
+        & 0.60315e-06_rb,0.15982e-04_rb,0.25725e-04_rb,0.33991e-04_rb,0.41066e-04_rb, &
+        & 0.47516e-04_rb,0.54302e-04_rb,0.64196e-04_rb,0.19175e-04_rb /)
+      kao(:, 2, 7, 8) = (/ &
+        & 0.66792e-06_rb,0.16270e-04_rb,0.26184e-04_rb,0.34534e-04_rb,0.41673e-04_rb, &
+        & 0.48253e-04_rb,0.55322e-04_rb,0.65617e-04_rb,0.20214e-04_rb /)
+      kao(:, 3, 7, 8) = (/ &
+        & 0.72908e-06_rb,0.16517e-04_rb,0.26616e-04_rb,0.35037e-04_rb,0.42229e-04_rb, &
+        & 0.48924e-04_rb,0.56239e-04_rb,0.66903e-04_rb,0.21171e-04_rb /)
+      kao(:, 4, 7, 8) = (/ &
+        & 0.78570e-06_rb,0.16735e-04_rb,0.27002e-04_rb,0.35463e-04_rb,0.42700e-04_rb, &
+        & 0.49504e-04_rb,0.57015e-04_rb,0.68011e-04_rb,0.22118e-04_rb /)
+      kao(:, 5, 7, 8) = (/ &
+        & 0.83832e-06_rb,0.16948e-04_rb,0.27325e-04_rb,0.35815e-04_rb,0.43102e-04_rb, &
+        & 0.50003e-04_rb,0.57693e-04_rb,0.68917e-04_rb,0.22989e-04_rb /)
+      kao(:, 1, 8, 8) = (/ &
+        & 0.37835e-06_rb,0.14042e-04_rb,0.22619e-04_rb,0.29906e-04_rb,0.36184e-04_rb, &
+        & 0.41943e-04_rb,0.48058e-04_rb,0.57159e-04_rb,0.15030e-04_rb /)
+      kao(:, 2, 8, 8) = (/ &
+        & 0.42400e-06_rb,0.14336e-04_rb,0.23076e-04_rb,0.30441e-04_rb,0.36790e-04_rb, &
+        & 0.42677e-04_rb,0.49055e-04_rb,0.58574e-04_rb,0.15267e-04_rb /)
+      kao(:, 3, 8, 8) = (/ &
+        & 0.47003e-06_rb,0.14598e-04_rb,0.23503e-04_rb,0.30926e-04_rb,0.37338e-04_rb, &
+        & 0.43345e-04_rb,0.49944e-04_rb,0.59871e-04_rb,0.15168e-04_rb /)
+      kao(:, 4, 8, 8) = (/ &
+        & 0.50983e-06_rb,0.14832e-04_rb,0.23887e-04_rb,0.31342e-04_rb,0.37806e-04_rb, &
+        & 0.43932e-04_rb,0.50714e-04_rb,0.60954e-04_rb,0.15479e-04_rb /)
+      kao(:, 5, 8, 8) = (/ &
+        & 0.55238e-06_rb,0.15050e-04_rb,0.24211e-04_rb,0.31698e-04_rb,0.38215e-04_rb, &
+        & 0.44447e-04_rb,0.51404e-04_rb,0.61843e-04_rb,0.15864e-04_rb /)
+      kao(:, 1, 9, 8) = (/ &
+        & 0.20614e-06_rb,0.12247e-04_rb,0.19755e-04_rb,0.26136e-04_rb,0.31671e-04_rb, &
+        & 0.36795e-04_rb,0.42267e-04_rb,0.50480e-04_rb,0.31415e-04_rb /)
+      kao(:, 2, 9, 8) = (/ &
+        & 0.22820e-06_rb,0.12543e-04_rb,0.20203e-04_rb,0.26660e-04_rb,0.32273e-04_rb, &
+        & 0.37518e-04_rb,0.43228e-04_rb,0.51895e-04_rb,0.32257e-04_rb /)
+      kao(:, 3, 9, 8) = (/ &
+        & 0.25381e-06_rb,0.12814e-04_rb,0.20621e-04_rb,0.27129e-04_rb,0.32814e-04_rb, &
+        & 0.38186e-04_rb,0.44095e-04_rb,0.53151e-04_rb,0.31766e-04_rb /)
+      kao(:, 4, 9, 8) = (/ &
+        & 0.26266e-06_rb,0.13056e-04_rb,0.20991e-04_rb,0.27538e-04_rb,0.33285e-04_rb, &
+        & 0.38781e-04_rb,0.44859e-04_rb,0.54214e-04_rb,0.32184e-04_rb /)
+      kao(:, 5, 9, 8) = (/ &
+        & 0.28878e-06_rb,0.13277e-04_rb,0.21308e-04_rb,0.27899e-04_rb,0.33704e-04_rb, &
+        & 0.39313e-04_rb,0.45556e-04_rb,0.55111e-04_rb,0.32436e-04_rb /)
+      kao(:, 1,10, 8) = (/ &
+        & 0.12421e-06_rb,0.10598e-04_rb,0.17170e-04_rb,0.22745e-04_rb,0.27597e-04_rb, &
+        & 0.32129e-04_rb,0.37024e-04_rb,0.44410e-04_rb,0.36288e-04_rb /)
+      kao(:, 2,10, 8) = (/ &
+        & 0.11833e-06_rb,0.10888e-04_rb,0.17606e-04_rb,0.23251e-04_rb,0.28191e-04_rb, &
+        & 0.32843e-04_rb,0.37957e-04_rb,0.45757e-04_rb,0.36706e-04_rb /)
+      kao(:, 3,10, 8) = (/ &
+        & 0.11564e-06_rb,0.11153e-04_rb,0.18009e-04_rb,0.23706e-04_rb,0.28726e-04_rb, &
+        & 0.33507e-04_rb,0.38804e-04_rb,0.46971e-04_rb,0.39285e-04_rb /)
+      kao(:, 4,10, 8) = (/ &
+        & 0.11888e-06_rb,0.11400e-04_rb,0.18364e-04_rb,0.24104e-04_rb,0.29196e-04_rb, &
+        & 0.34101e-04_rb,0.39555e-04_rb,0.47996e-04_rb,0.37765e-04_rb /)
+      kao(:, 5,10, 8) = (/ &
+        & 0.13250e-06_rb,0.11625e-04_rb,0.18671e-04_rb,0.24463e-04_rb,0.29622e-04_rb, &
+        & 0.34646e-04_rb,0.40249e-04_rb,0.48876e-04_rb,0.41184e-04_rb /)
+      kao(:, 1,11, 8) = (/ &
+        & 0.17958e-06_rb,0.90757e-05_rb,0.15007e-04_rb,0.19889e-04_rb,0.24154e-04_rb, &
+        & 0.28187e-04_rb,0.32636e-04_rb,0.39437e-04_rb,0.34162e-04_rb /)
+      kao(:, 2,11, 8) = (/ &
+        & 0.18139e-06_rb,0.93666e-05_rb,0.15418e-04_rb,0.20361e-04_rb,0.24716e-04_rb, &
+        & 0.28864e-04_rb,0.33507e-04_rb,0.40680e-04_rb,0.35787e-04_rb /)
+      kao(:, 3,11, 8) = (/ &
+        & 0.18275e-06_rb,0.96291e-05_rb,0.15787e-04_rb,0.20786e-04_rb,0.25221e-04_rb, &
+        & 0.29495e-04_rb,0.34295e-04_rb,0.41765e-04_rb,0.33878e-04_rb /)
+      kao(:, 4,11, 8) = (/ &
+        & 0.18574e-06_rb,0.98743e-05_rb,0.16117e-04_rb,0.21165e-04_rb,0.25673e-04_rb, &
+        & 0.30069e-04_rb,0.35015e-04_rb,0.42686e-04_rb,0.32841e-04_rb /)
+      kao(:, 5,11, 8) = (/ &
+        & 0.20082e-06_rb,0.10102e-04_rb,0.16409e-04_rb,0.21512e-04_rb,0.26096e-04_rb, &
+        & 0.30600e-04_rb,0.35678e-04_rb,0.43526e-04_rb,0.33904e-04_rb /)
+      kao(:, 1,12, 8) = (/ &
+        & 0.23860e-06_rb,0.72127e-05_rb,0.13015e-04_rb,0.17297e-04_rb,0.21033e-04_rb, &
+        & 0.24600e-04_rb,0.28604e-04_rb,0.34818e-04_rb,0.40933e-04_rb /)
+      kao(:, 2,12, 8) = (/ &
+        & 0.23391e-06_rb,0.75352e-05_rb,0.13408e-04_rb,0.17740e-04_rb,0.21564e-04_rb, &
+        & 0.25251e-04_rb,0.29426e-04_rb,0.35947e-04_rb,0.39399e-04_rb /)
+      kao(:, 3,12, 8) = (/ &
+        & 0.24701e-06_rb,0.78057e-05_rb,0.13760e-04_rb,0.18144e-04_rb,0.22045e-04_rb, &
+        & 0.25844e-04_rb,0.30162e-04_rb,0.36924e-04_rb,0.38294e-04_rb /)
+      kao(:, 4,12, 8) = (/ &
+        & 0.26761e-06_rb,0.80774e-05_rb,0.14071e-04_rb,0.18509e-04_rb,0.22485e-04_rb, &
+        & 0.26399e-04_rb,0.30850e-04_rb,0.37793e-04_rb,0.37310e-04_rb /)
+      kao(:, 5,12, 8) = (/ &
+        & 0.23665e-06_rb,0.83711e-05_rb,0.14360e-04_rb,0.18850e-04_rb,0.22903e-04_rb, &
+        & 0.26918e-04_rb,0.31485e-04_rb,0.38601e-04_rb,0.34593e-04_rb /)
+      kao(:, 1,13, 8) = (/ &
+        & 0.27521e-06_rb,0.50755e-05_rb,0.11059e-04_rb,0.14942e-04_rb,0.18221e-04_rb, &
+        & 0.21366e-04_rb,0.24941e-04_rb,0.30569e-04_rb,0.35909e-04_rb /)
+      kao(:, 2,13, 8) = (/ &
+        & 0.25317e-06_rb,0.53749e-05_rb,0.11450e-04_rb,0.15364e-04_rb,0.18725e-04_rb, &
+        & 0.21982e-04_rb,0.25707e-04_rb,0.31598e-04_rb,0.37411e-04_rb /)
+      kao(:, 3,13, 8) = (/ &
+        & 0.23895e-06_rb,0.56684e-05_rb,0.11800e-04_rb,0.15745e-04_rb,0.19182e-04_rb, &
+        & 0.22548e-04_rb,0.26403e-04_rb,0.32490e-04_rb,0.35715e-04_rb /)
+      kao(:, 4,13, 8) = (/ &
+        & 0.23323e-06_rb,0.59219e-05_rb,0.12110e-04_rb,0.16104e-04_rb,0.19621e-04_rb, &
+        & 0.23090e-04_rb,0.27069e-04_rb,0.33309e-04_rb,0.26489e-04_rb /)
+      kao(:, 5,13, 8) = (/ &
+        & 0.23115e-06_rb,0.61949e-05_rb,0.12408e-04_rb,0.16438e-04_rb,0.20031e-04_rb, &
+        & 0.23602e-04_rb,0.27683e-04_rb,0.34068e-04_rb,0.26612e-04_rb /)
+      kao(:, 1, 1, 9) = (/ &
+        & 0.91507e-04_rb,0.14710e-03_rb,0.19128e-03_rb,0.22605e-03_rb,0.25532e-03_rb, &
+        & 0.28077e-03_rb,0.30345e-03_rb,0.32646e-03_rb,0.30807e-03_rb /)
+      kao(:, 2, 1, 9) = (/ &
+        & 0.91242e-04_rb,0.14642e-03_rb,0.19074e-03_rb,0.22564e-03_rb,0.25500e-03_rb, &
+        & 0.28086e-03_rb,0.30369e-03_rb,0.32690e-03_rb,0.30957e-03_rb /)
+      kao(:, 3, 1, 9) = (/ &
+        & 0.90877e-04_rb,0.14692e-03_rb,0.19251e-03_rb,0.22869e-03_rb,0.25946e-03_rb, &
+        & 0.28682e-03_rb,0.31087e-03_rb,0.33538e-03_rb,0.32011e-03_rb /)
+      kao(:, 4, 1, 9) = (/ &
+        & 0.90459e-04_rb,0.14494e-03_rb,0.18943e-03_rb,0.22459e-03_rb,0.25465e-03_rb, &
+        & 0.28114e-03_rb,0.30414e-03_rb,0.32755e-03_rb,0.31196e-03_rb /)
+      kao(:, 5, 1, 9) = (/ &
+        & 0.89993e-04_rb,0.14416e-03_rb,0.18875e-03_rb,0.22408e-03_rb,0.25453e-03_rb, &
+        & 0.28137e-03_rb,0.30449e-03_rb,0.32780e-03_rb,0.31307e-03_rb /)
+      kao(:, 1, 2, 9) = (/ &
+        & 0.77262e-04_rb,0.13432e-03_rb,0.17769e-03_rb,0.21240e-03_rb,0.24204e-03_rb, &
+        & 0.26866e-03_rb,0.29235e-03_rb,0.31628e-03_rb,0.29582e-03_rb /)
+      kao(:, 2, 2, 9) = (/ &
+        & 0.77061e-04_rb,0.13375e-03_rb,0.17727e-03_rb,0.21210e-03_rb,0.24206e-03_rb, &
+        & 0.26905e-03_rb,0.29288e-03_rb,0.31707e-03_rb,0.29754e-03_rb /)
+      kao(:, 3, 2, 9) = (/ &
+        & 0.76803e-04_rb,0.13443e-03_rb,0.17926e-03_rb,0.21557e-03_rb,0.24713e-03_rb, &
+        & 0.27557e-03_rb,0.30072e-03_rb,0.32610e-03_rb,0.30880e-03_rb /)
+      kao(:, 4, 2, 9) = (/ &
+        & 0.76502e-04_rb,0.13372e-03_rb,0.17855e-03_rb,0.21503e-03_rb,0.24689e-03_rb, &
+        & 0.27560e-03_rb,0.30084e-03_rb,0.32601e-03_rb,0.30963e-03_rb /)
+      kao(:, 5, 2, 9) = (/ &
+        & 0.76149e-04_rb,0.13198e-03_rb,0.17568e-03_rb,0.21133e-03_rb,0.24254e-03_rb, &
+        & 0.27051e-03_rb,0.29485e-03_rb,0.31890e-03_rb,0.30223e-03_rb /)
+      kao(:, 1, 3, 9) = (/ &
+        & 0.65103e-04_rb,0.12258e-03_rb,0.16452e-03_rb,0.19865e-03_rb,0.22866e-03_rb, &
+        & 0.25591e-03_rb,0.28055e-03_rb,0.30511e-03_rb,0.28178e-03_rb /)
+      kao(:, 2, 3, 9) = (/ &
+        & 0.64961e-04_rb,0.12216e-03_rb,0.16424e-03_rb,0.19863e-03_rb,0.22903e-03_rb, &
+        & 0.25664e-03_rb,0.28152e-03_rb,0.30626e-03_rb,0.28379e-03_rb /)
+      kao(:, 3, 3, 9) = (/ &
+        & 0.64796e-04_rb,0.12170e-03_rb,0.16393e-03_rb,0.19861e-03_rb,0.22948e-03_rb, &
+        & 0.25740e-03_rb,0.28253e-03_rb,0.30727e-03_rb,0.28578e-03_rb /)
+      kao(:, 4, 3, 9) = (/ &
+        & 0.64583e-04_rb,0.12248e-03_rb,0.16600e-03_rb,0.20227e-03_rb,0.23481e-03_rb, &
+        & 0.26421e-03_rb,0.29055e-03_rb,0.31636e-03_rb,0.29736e-03_rb /)
+      kao(:, 5, 3, 9) = (/ &
+        & 0.64341e-04_rb,0.12081e-03_rb,0.16325e-03_rb,0.19869e-03_rb,0.23043e-03_rb, &
+        & 0.25903e-03_rb,0.28445e-03_rb,0.30920e-03_rb,0.28976e-03_rb /)
+      kao(:, 1, 4, 9) = (/ &
+        & 0.54784e-04_rb,0.11174e-03_rb,0.15188e-03_rb,0.18523e-03_rb,0.21503e-03_rb, &
+        & 0.24239e-03_rb,0.26770e-03_rb,0.29311e-03_rb,0.26685e-03_rb /)
+      kao(:, 2, 4, 9) = (/ &
+        & 0.54700e-04_rb,0.11144e-03_rb,0.15177e-03_rb,0.18550e-03_rb,0.21578e-03_rb, &
+        & 0.24348e-03_rb,0.26903e-03_rb,0.29466e-03_rb,0.26928e-03_rb /)
+      kao(:, 3, 4, 9) = (/ &
+        & 0.54592e-04_rb,0.11111e-03_rb,0.15167e-03_rb,0.18578e-03_rb,0.21655e-03_rb, &
+        & 0.24456e-03_rb,0.27029e-03_rb,0.29609e-03_rb,0.27162e-03_rb /)
+      kao(:, 4, 4, 9) = (/ &
+        & 0.54457e-04_rb,0.11078e-03_rb,0.15152e-03_rb,0.18607e-03_rb,0.21728e-03_rb, &
+        & 0.24565e-03_rb,0.27151e-03_rb,0.29746e-03_rb,0.27399e-03_rb /)
+      kao(:, 5, 4, 9) = (/ &
+        & 0.54312e-04_rb,0.11162e-03_rb,0.15369e-03_rb,0.18993e-03_rb,0.22281e-03_rb, &
+        & 0.25263e-03_rb,0.27972e-03_rb,0.30664e-03_rb,0.28593e-03_rb /)
+      kao(:, 1, 5, 9) = (/ &
+        & 0.46088e-04_rb,0.10164e-03_rb,0.13985e-03_rb,0.17192e-03_rb,0.20105e-03_rb, &
+        & 0.22810e-03_rb,0.25365e-03_rb,0.28019e-03_rb,0.25169e-03_rb /)
+      kao(:, 2, 5, 9) = (/ &
+        & 0.46037e-04_rb,0.10150e-03_rb,0.13996e-03_rb,0.17251e-03_rb,0.20208e-03_rb, &
+        & 0.22949e-03_rb,0.25532e-03_rb,0.28211e-03_rb,0.25438e-03_rb /)
+      kao(:, 3, 5, 9) = (/ &
+        & 0.45971e-04_rb,0.10129e-03_rb,0.14008e-03_rb,0.17302e-03_rb,0.20310e-03_rb, &
+        & 0.23085e-03_rb,0.25690e-03_rb,0.28385e-03_rb,0.25702e-03_rb /)
+      kao(:, 4, 5, 9) = (/ &
+        & 0.45890e-04_rb,0.10111e-03_rb,0.14015e-03_rb,0.17355e-03_rb,0.20405e-03_rb, &
+        & 0.23221e-03_rb,0.25843e-03_rb,0.28547e-03_rb,0.25970e-03_rb /)
+      kao(:, 5, 5, 9) = (/ &
+        & 0.45808e-04_rb,0.10210e-03_rb,0.14263e-03_rb,0.17783e-03_rb,0.21010e-03_rb, &
+        & 0.23994e-03_rb,0.26750e-03_rb,0.29545e-03_rb,0.27288e-03_rb /)
+      kao(:, 1, 6, 9) = (/ &
+        & 0.38759e-04_rb,0.92287e-04_rb,0.12830e-03_rb,0.15873e-03_rb,0.18673e-03_rb, &
+        & 0.21305e-03_rb,0.23858e-03_rb,0.26603e-03_rb,0.23576e-03_rb /)
+      kao(:, 2, 6, 9) = (/ &
+        & 0.38742e-04_rb,0.92285e-04_rb,0.12860e-03_rb,0.15956e-03_rb,0.18804e-03_rb, &
+        & 0.21479e-03_rb,0.24061e-03_rb,0.26833e-03_rb,0.23876e-03_rb /)
+      kao(:, 3, 6, 9) = (/ &
+        & 0.38716e-04_rb,0.92248e-04_rb,0.12890e-03_rb,0.16031e-03_rb,0.18934e-03_rb, &
+        & 0.21647e-03_rb,0.24252e-03_rb,0.27042e-03_rb,0.24167e-03_rb /)
+      kao(:, 4, 6, 9) = (/ &
+        & 0.38672e-04_rb,0.92189e-04_rb,0.12914e-03_rb,0.16108e-03_rb,0.19055e-03_rb, &
+        & 0.21815e-03_rb,0.24441e-03_rb,0.27232e-03_rb,0.24468e-03_rb /)
+      kao(:, 5, 6, 9) = (/ &
+        & 0.38631e-04_rb,0.92110e-04_rb,0.12940e-03_rb,0.16181e-03_rb,0.19180e-03_rb, &
+        & 0.21982e-03_rb,0.24634e-03_rb,0.27420e-03_rb,0.24778e-03_rb /)
+      kao(:, 1, 7, 9) = (/ &
+        & 0.32524e-04_rb,0.83578e-04_rb,0.11715e-03_rb,0.14581e-03_rb,0.17242e-03_rb, &
+        & 0.19778e-03_rb,0.22289e-03_rb,0.25099e-03_rb,0.21544e-03_rb /)
+      kao(:, 2, 7, 9) = (/ &
+        & 0.32544e-04_rb,0.83724e-04_rb,0.11765e-03_rb,0.14685e-03_rb,0.17402e-03_rb, &
+        & 0.19984e-03_rb,0.22531e-03_rb,0.25360e-03_rb,0.21897e-03_rb /)
+      kao(:, 3, 7, 9) = (/ &
+        & 0.32541e-04_rb,0.83837e-04_rb,0.11812e-03_rb,0.14785e-03_rb,0.17560e-03_rb, &
+        & 0.20184e-03_rb,0.22764e-03_rb,0.25604e-03_rb,0.22234e-03_rb /)
+      kao(:, 4, 7, 9) = (/ &
+        & 0.32522e-04_rb,0.83911e-04_rb,0.11855e-03_rb,0.14886e-03_rb,0.17710e-03_rb, &
+        & 0.20381e-03_rb,0.22989e-03_rb,0.25831e-03_rb,0.22586e-03_rb /)
+      kao(:, 5, 7, 9) = (/ &
+        & 0.32511e-04_rb,0.83972e-04_rb,0.11899e-03_rb,0.14985e-03_rb,0.17863e-03_rb, &
+        & 0.20577e-03_rb,0.23212e-03_rb,0.26056e-03_rb,0.22930e-03_rb /)
+      kao(:, 1, 8, 9) = (/ &
+        & 0.27162e-04_rb,0.75477e-04_rb,0.10657e-03_rb,0.13337e-03_rb,0.15848e-03_rb, &
+        & 0.18267e-03_rb,0.20707e-03_rb,0.23532e-03_rb,0.10685e-03_rb /)
+      kao(:, 2, 8, 9) = (/ &
+        & 0.27219e-04_rb,0.75747e-04_rb,0.10724e-03_rb,0.13464e-03_rb,0.16036e-03_rb, &
+        & 0.18507e-03_rb,0.20988e-03_rb,0.23834e-03_rb,0.11049e-03_rb /)
+      kao(:, 3, 8, 9) = (/ &
+        & 0.27240e-04_rb,0.75981e-04_rb,0.10788e-03_rb,0.13591e-03_rb,0.16217e-03_rb, &
+        & 0.18731e-03_rb,0.21250e-03_rb,0.24115e-03_rb,0.11463e-03_rb /)
+      kao(:, 4, 8, 9) = (/ &
+        & 0.27241e-04_rb,0.76175e-04_rb,0.10851e-03_rb,0.13715e-03_rb,0.16392e-03_rb, &
+        & 0.18952e-03_rb,0.21504e-03_rb,0.24375e-03_rb,0.11830e-03_rb /)
+      kao(:, 5, 8, 9) = (/ &
+        & 0.27254e-04_rb,0.76338e-04_rb,0.10913e-03_rb,0.13836e-03_rb,0.16569e-03_rb, &
+        & 0.19172e-03_rb,0.21755e-03_rb,0.24638e-03_rb,0.12227e-03_rb /)
+      kao(:, 1, 9, 9) = (/ &
+        & 0.22546e-04_rb,0.67903e-04_rb,0.96628e-04_rb,0.12150e-03_rb,0.14489e-03_rb, &
+        & 0.16757e-03_rb,0.19095e-03_rb,0.21913e-03_rb,0.25626e-04_rb /)
+      kao(:, 2, 9, 9) = (/ &
+        & 0.22635e-04_rb,0.68268e-04_rb,0.97460e-04_rb,0.12301e-03_rb,0.14702e-03_rb, &
+        & 0.17028e-03_rb,0.19411e-03_rb,0.22260e-03_rb,0.25839e-04_rb /)
+      kao(:, 3, 9, 9) = (/ &
+        & 0.22685e-04_rb,0.68616e-04_rb,0.98277e-04_rb,0.12450e-03_rb,0.14909e-03_rb, &
+        & 0.17284e-03_rb,0.19709e-03_rb,0.22578e-03_rb,0.27443e-04_rb /)
+      kao(:, 4, 9, 9) = (/ &
+        & 0.22709e-04_rb,0.68929e-04_rb,0.99095e-04_rb,0.12593e-03_rb,0.15108e-03_rb, &
+        & 0.17530e-03_rb,0.19995e-03_rb,0.22878e-03_rb,0.28531e-04_rb /)
+      kao(:, 5, 9, 9) = (/ &
+        & 0.22740e-04_rb,0.69227e-04_rb,0.99896e-04_rb,0.12734e-03_rb,0.15306e-03_rb, &
+        & 0.17777e-03_rb,0.20277e-03_rb,0.23170e-03_rb,0.28894e-04_rb /)
+      kao(:, 1,10, 9) = (/ &
+        & 0.18403e-04_rb,0.60856e-04_rb,0.87340e-04_rb,0.11017e-03_rb,0.13174e-03_rb, &
+        & 0.15284e-03_rb,0.17492e-03_rb,0.20267e-03_rb,0.31931e-04_rb /)
+      kao(:, 2,10, 9) = (/ &
+        & 0.18527e-04_rb,0.61329e-04_rb,0.88371e-04_rb,0.11191e-03_rb,0.13412e-03_rb, &
+        & 0.15579e-03_rb,0.17838e-03_rb,0.20650e-03_rb,0.29084e-04_rb /)
+      kao(:, 3,10, 9) = (/ &
+        & 0.18600e-04_rb,0.61796e-04_rb,0.89354e-04_rb,0.11363e-03_rb,0.13643e-03_rb, &
+        & 0.15861e-03_rb,0.18170e-03_rb,0.21009e-03_rb,0.27893e-04_rb /)
+      kao(:, 4,10, 9) = (/ &
+        & 0.18642e-04_rb,0.62226e-04_rb,0.90339e-04_rb,0.11526e-03_rb,0.13867e-03_rb, &
+        & 0.16137e-03_rb,0.18486e-03_rb,0.21346e-03_rb,0.33895e-04_rb /)
+      kao(:, 5,10, 9) = (/ &
+        & 0.18688e-04_rb,0.62651e-04_rb,0.91302e-04_rb,0.11690e-03_rb,0.14093e-03_rb, &
+        & 0.16416e-03_rb,0.18804e-03_rb,0.21676e-03_rb,0.31724e-04_rb /)
+      kao(:, 1,11, 9) = (/ &
+        & 0.14636e-04_rb,0.54588e-04_rb,0.79114e-04_rb,0.10030e-03_rb,0.12035e-03_rb, &
+        & 0.14003e-03_rb,0.16089e-03_rb,0.18797e-03_rb,0.24886e-04_rb /)
+      kao(:, 2,11, 9) = (/ &
+        & 0.14721e-04_rb,0.55182e-04_rb,0.80295e-04_rb,0.10221e-03_rb,0.12288e-03_rb, &
+        & 0.14315e-03_rb,0.16455e-03_rb,0.19200e-03_rb,0.28280e-04_rb /)
+      kao(:, 3,11, 9) = (/ &
+        & 0.14784e-04_rb,0.55751e-04_rb,0.81465e-04_rb,0.10405e-03_rb,0.12535e-03_rb, &
+        & 0.14614e-03_rb,0.16802e-03_rb,0.19578e-03_rb,0.31405e-04_rb /)
+      kao(:, 4,11, 9) = (/ &
+        & 0.14831e-04_rb,0.56293e-04_rb,0.82611e-04_rb,0.10589e-03_rb,0.12782e-03_rb, &
+        & 0.14918e-03_rb,0.17147e-03_rb,0.19942e-03_rb,0.34684e-04_rb /)
+      kao(:, 5,11, 9) = (/ &
+        & 0.14856e-04_rb,0.56829e-04_rb,0.83754e-04_rb,0.10776e-03_rb,0.13034e-03_rb, &
+        & 0.15225e-03_rb,0.17499e-03_rb,0.20312e-03_rb,0.30970e-04_rb /)
+      kao(:, 1,12, 9) = (/ &
+        & 0.11572e-04_rb,0.48876e-04_rb,0.71553e-04_rb,0.91191e-04_rb,0.10973e-03_rb, &
+        & 0.12799e-03_rb,0.14756e-03_rb,0.17351e-03_rb,0.30682e-04_rb /)
+      kao(:, 2,12, 9) = (/ &
+        & 0.11642e-04_rb,0.49592e-04_rb,0.72882e-04_rb,0.93233e-04_rb,0.11240e-03_rb, &
+        & 0.13124e-03_rb,0.15132e-03_rb,0.17770e-03_rb,0.31240e-04_rb /)
+      kao(:, 3,12, 9) = (/ &
+        & 0.11629e-04_rb,0.50261e-04_rb,0.74205e-04_rb,0.95210e-04_rb,0.11505e-03_rb, &
+        & 0.13447e-03_rb,0.15502e-03_rb,0.18170e-03_rb,0.31943e-04_rb /)
+      kao(:, 4,12, 9) = (/ &
+        & 0.11633e-04_rb,0.50925e-04_rb,0.75501e-04_rb,0.97246e-04_rb,0.11773e-03_rb, &
+        & 0.13775e-03_rb,0.15878e-03_rb,0.18567e-03_rb,0.23441e-04_rb /)
+      kao(:, 5,12, 9) = (/ &
+        & 0.11677e-04_rb,0.51560e-04_rb,0.76851e-04_rb,0.99310e-04_rb,0.12044e-03_rb, &
+        & 0.14103e-03_rb,0.16255e-03_rb,0.18968e-03_rb,0.23249e-04_rb /)
+      kao(:, 1,13, 9) = (/ &
+        & 0.88185e-05_rb,0.43709e-04_rb,0.64627e-04_rb,0.82824e-04_rb,0.99889e-04_rb, &
+        & 0.11672e-03_rb,0.13488e-03_rb,0.15952e-03_rb,0.30903e-04_rb /)
+      kao(:, 2,13, 9) = (/ &
+        & 0.88986e-05_rb,0.44515e-04_rb,0.66093e-04_rb,0.84980e-04_rb,0.10270e-03_rb, &
+        & 0.12016e-03_rb,0.13885e-03_rb,0.16386e-03_rb,0.25840e-04_rb /)
+      kao(:, 3,13, 9) = (/ &
+        & 0.89568e-05_rb,0.45280e-04_rb,0.67556e-04_rb,0.87134e-04_rb,0.10555e-03_rb, &
+        & 0.12361e-03_rb,0.14282e-03_rb,0.16813e-03_rb,0.26878e-04_rb /)
+      kao(:, 4,13, 9) = (/ &
+        & 0.89829e-05_rb,0.46045e-04_rb,0.69040e-04_rb,0.89346e-04_rb,0.10842e-03_rb, &
+        & 0.12710e-03_rb,0.14682e-03_rb,0.17243e-03_rb,0.28852e-04_rb /)
+      kao(:, 5,13, 9) = (/ &
+        & 0.90413e-05_rb,0.46787e-04_rb,0.70568e-04_rb,0.91561e-04_rb,0.11129e-03_rb, &
+        & 0.13056e-03_rb,0.15080e-03_rb,0.17669e-03_rb,0.28623e-04_rb /)
+      kao(:, 1, 1,10) = (/ &
+        & 0.44112e-03_rb,0.47423e-03_rb,0.54876e-03_rb,0.61567e-03_rb,0.66971e-03_rb, &
+        & 0.71699e-03_rb,0.76347e-03_rb,0.77814e-03_rb,0.77298e-03_rb /)
+      kao(:, 2, 1,10) = (/ &
+        & 0.43794e-03_rb,0.47285e-03_rb,0.54643e-03_rb,0.61370e-03_rb,0.66959e-03_rb, &
+        & 0.71530e-03_rb,0.76226e-03_rb,0.77693e-03_rb,0.76966e-03_rb /)
+      kao(:, 3, 1,10) = (/ &
+        & 0.43480e-03_rb,0.47183e-03_rb,0.54721e-03_rb,0.61831e-03_rb,0.67726e-03_rb, &
+        & 0.72423e-03_rb,0.77288e-03_rb,0.78901e-03_rb,0.78603e-03_rb /)
+      kao(:, 4, 1,10) = (/ &
+        & 0.43220e-03_rb,0.46825e-03_rb,0.54213e-03_rb,0.61349e-03_rb,0.66880e-03_rb, &
+        & 0.71215e-03_rb,0.75938e-03_rb,0.77341e-03_rb,0.76775e-03_rb /)
+      kao(:, 5, 1,10) = (/ &
+        & 0.42987e-03_rb,0.46597e-03_rb,0.54025e-03_rb,0.61237e-03_rb,0.66800e-03_rb, &
+        & 0.70968e-03_rb,0.75599e-03_rb,0.77132e-03_rb,0.76754e-03_rb /)
+      kao(:, 1, 2,10) = (/ &
+        & 0.37934e-03_rb,0.43540e-03_rb,0.51852e-03_rb,0.59327e-03_rb,0.65919e-03_rb, &
+        & 0.71028e-03_rb,0.75523e-03_rb,0.78660e-03_rb,0.77018e-03_rb /)
+      kao(:, 2, 2,10) = (/ &
+        & 0.37616e-03_rb,0.43418e-03_rb,0.51743e-03_rb,0.59232e-03_rb,0.65869e-03_rb, &
+        & 0.70879e-03_rb,0.75385e-03_rb,0.78506e-03_rb,0.76914e-03_rb /)
+      kao(:, 3, 2,10) = (/ &
+        & 0.37285e-03_rb,0.43338e-03_rb,0.51992e-03_rb,0.59796e-03_rb,0.66588e-03_rb, &
+        & 0.71863e-03_rb,0.76525e-03_rb,0.79746e-03_rb,0.78726e-03_rb /)
+      kao(:, 4, 2,10) = (/ &
+        & 0.36993e-03_rb,0.43092e-03_rb,0.51858e-03_rb,0.59729e-03_rb,0.66425e-03_rb, &
+        & 0.71582e-03_rb,0.76129e-03_rb,0.79428e-03_rb,0.78557e-03_rb /)
+      kao(:, 5, 2,10) = (/ &
+        & 0.36795e-03_rb,0.42667e-03_rb,0.51498e-03_rb,0.59125e-03_rb,0.65451e-03_rb, &
+        & 0.70295e-03_rb,0.74646e-03_rb,0.77706e-03_rb,0.76846e-03_rb /)
+      kao(:, 1, 3,10) = (/ &
+        & 0.32398e-03_rb,0.39840e-03_rb,0.48910e-03_rb,0.57202e-03_rb,0.64247e-03_rb, &
+        & 0.69920e-03_rb,0.74272e-03_rb,0.78560e-03_rb,0.76158e-03_rb /)
+      kao(:, 2, 3,10) = (/ &
+        & 0.32107e-03_rb,0.39683e-03_rb,0.48877e-03_rb,0.57106e-03_rb,0.64200e-03_rb, &
+        & 0.69780e-03_rb,0.74068e-03_rb,0.78389e-03_rb,0.76255e-03_rb /)
+      kao(:, 3, 3,10) = (/ &
+        & 0.31808e-03_rb,0.39502e-03_rb,0.48851e-03_rb,0.57104e-03_rb,0.64052e-03_rb, &
+        & 0.69677e-03_rb,0.73846e-03_rb,0.78156e-03_rb,0.76341e-03_rb /)
+      kao(:, 4, 3,10) = (/ &
+        & 0.31534e-03_rb,0.39419e-03_rb,0.49223e-03_rb,0.57621e-03_rb,0.64746e-03_rb, &
+        & 0.70569e-03_rb,0.74986e-03_rb,0.79350e-03_rb,0.78192e-03_rb /)
+      kao(:, 5, 3,10) = (/ &
+        & 0.31343e-03_rb,0.39031e-03_rb,0.48789e-03_rb,0.56911e-03_rb,0.63804e-03_rb, &
+        & 0.69322e-03_rb,0.73529e-03_rb,0.77554e-03_rb,0.76249e-03_rb /)
+      kao(:, 1, 4,10) = (/ &
+        & 0.27516e-03_rb,0.36405e-03_rb,0.46107e-03_rb,0.54790e-03_rb,0.62253e-03_rb, &
+        & 0.68384e-03_rb,0.73057e-03_rb,0.77856e-03_rb,0.74793e-03_rb /)
+      kao(:, 2, 4,10) = (/ &
+        & 0.27272e-03_rb,0.36262e-03_rb,0.46080e-03_rb,0.54700e-03_rb,0.62201e-03_rb, &
+        & 0.68300e-03_rb,0.72976e-03_rb,0.77591e-03_rb,0.74919e-03_rb /)
+      kao(:, 3, 4,10) = (/ &
+        & 0.26991e-03_rb,0.36139e-03_rb,0.46064e-03_rb,0.54673e-03_rb,0.62063e-03_rb, &
+        & 0.68269e-03_rb,0.72862e-03_rb,0.77298e-03_rb,0.75070e-03_rb /)
+      kao(:, 4, 4,10) = (/ &
+        & 0.26757e-03_rb,0.35993e-03_rb,0.46053e-03_rb,0.54625e-03_rb,0.61982e-03_rb, &
+        & 0.68167e-03_rb,0.72799e-03_rb,0.77005e-03_rb,0.75046e-03_rb /)
+      kao(:, 5, 4,10) = (/ &
+        & 0.26556e-03_rb,0.36025e-03_rb,0.46433e-03_rb,0.55132e-03_rb,0.62683e-03_rb, &
+        & 0.69143e-03_rb,0.74137e-03_rb,0.78366e-03_rb,0.76845e-03_rb /)
+      kao(:, 1, 5,10) = (/ &
+        & 0.23277e-03_rb,0.33279e-03_rb,0.43313e-03_rb,0.52236e-03_rb,0.59970e-03_rb, &
+        & 0.66464e-03_rb,0.71686e-03_rb,0.76626e-03_rb,0.72457e-03_rb /)
+      kao(:, 2, 5,10) = (/ &
+        & 0.23078e-03_rb,0.33167e-03_rb,0.43303e-03_rb,0.52181e-03_rb,0.60054e-03_rb, &
+        & 0.66529e-03_rb,0.71807e-03_rb,0.76458e-03_rb,0.72852e-03_rb /)
+      kao(:, 3, 5,10) = (/ &
+        & 0.22839e-03_rb,0.33111e-03_rb,0.43245e-03_rb,0.52229e-03_rb,0.60068e-03_rb, &
+        & 0.66640e-03_rb,0.71880e-03_rb,0.76367e-03_rb,0.73165e-03_rb /)
+      kao(:, 4, 5,10) = (/ &
+        & 0.22634e-03_rb,0.33010e-03_rb,0.43234e-03_rb,0.52220e-03_rb,0.60179e-03_rb, &
+        & 0.66699e-03_rb,0.71996e-03_rb,0.76305e-03_rb,0.73316e-03_rb /)
+      kao(:, 5, 5,10) = (/ &
+        & 0.22442e-03_rb,0.33158e-03_rb,0.43680e-03_rb,0.52864e-03_rb,0.61018e-03_rb, &
+        & 0.67770e-03_rb,0.73371e-03_rb,0.78031e-03_rb,0.75138e-03_rb /)
+      kao(:, 1, 6,10) = (/ &
+        & 0.19685e-03_rb,0.30442e-03_rb,0.40547e-03_rb,0.49610e-03_rb,0.57453e-03_rb, &
+        & 0.64299e-03_rb,0.69899e-03_rb,0.74954e-03_rb,0.69460e-03_rb /)
+      kao(:, 2, 6,10) = (/ &
+        & 0.19517e-03_rb,0.30338e-03_rb,0.40585e-03_rb,0.49683e-03_rb,0.57671e-03_rb, &
+        & 0.64425e-03_rb,0.70130e-03_rb,0.75004e-03_rb,0.70036e-03_rb /)
+      kao(:, 3, 6,10) = (/ &
+        & 0.19324e-03_rb,0.30268e-03_rb,0.40573e-03_rb,0.49834e-03_rb,0.57803e-03_rb, &
+        & 0.64627e-03_rb,0.70310e-03_rb,0.75130e-03_rb,0.70596e-03_rb /)
+      kao(:, 4, 6,10) = (/ &
+        & 0.19132e-03_rb,0.30224e-03_rb,0.40644e-03_rb,0.49947e-03_rb,0.58014e-03_rb, &
+        & 0.64741e-03_rb,0.70472e-03_rb,0.75293e-03_rb,0.70917e-03_rb /)
+      kao(:, 5, 6,10) = (/ &
+        & 0.18952e-03_rb,0.30177e-03_rb,0.40672e-03_rb,0.50101e-03_rb,0.58137e-03_rb, &
+        & 0.64847e-03_rb,0.70602e-03_rb,0.75537e-03_rb,0.71121e-03_rb /)
+      kao(:, 1, 7,10) = (/ &
+        & 0.16684e-03_rb,0.27825e-03_rb,0.37860e-03_rb,0.46883e-03_rb,0.54680e-03_rb, &
+        & 0.61510e-03_rb,0.67386e-03_rb,0.72824e-03_rb,0.66391e-03_rb /)
+      kao(:, 2, 7,10) = (/ &
+        & 0.16553e-03_rb,0.27719e-03_rb,0.37963e-03_rb,0.47077e-03_rb,0.54985e-03_rb, &
+        & 0.61768e-03_rb,0.67717e-03_rb,0.73093e-03_rb,0.67156e-03_rb /)
+      kao(:, 3, 7,10) = (/ &
+        & 0.16397e-03_rb,0.27663e-03_rb,0.38054e-03_rb,0.47308e-03_rb,0.55166e-03_rb, &
+        & 0.62067e-03_rb,0.67975e-03_rb,0.73342e-03_rb,0.67787e-03_rb /)
+      kao(:, 4, 7,10) = (/ &
+        & 0.16246e-03_rb,0.27634e-03_rb,0.38198e-03_rb,0.47489e-03_rb,0.55414e-03_rb, &
+        & 0.62280e-03_rb,0.68232e-03_rb,0.73600e-03_rb,0.68175e-03_rb /)
+      kao(:, 5, 7,10) = (/ &
+        & 0.16089e-03_rb,0.27624e-03_rb,0.38314e-03_rb,0.47665e-03_rb,0.55585e-03_rb, &
+        & 0.62443e-03_rb,0.68436e-03_rb,0.73852e-03_rb,0.68559e-03_rb /)
+      kao(:, 1, 8,10) = (/ &
+        & 0.14215e-03_rb,0.25407e-03_rb,0.35215e-03_rb,0.43863e-03_rb,0.51443e-03_rb, &
+        & 0.58154e-03_rb,0.64180e-03_rb,0.70004e-03_rb,0.62276e-03_rb /)
+      kao(:, 2, 8,10) = (/ &
+        & 0.14104e-03_rb,0.25332e-03_rb,0.35394e-03_rb,0.44179e-03_rb,0.51810e-03_rb, &
+        & 0.58508e-03_rb,0.64584e-03_rb,0.70407e-03_rb,0.63285e-03_rb /)
+      kao(:, 3, 8,10) = (/ &
+        & 0.13977e-03_rb,0.25313e-03_rb,0.35560e-03_rb,0.44458e-03_rb,0.52101e-03_rb, &
+        & 0.58953e-03_rb,0.65037e-03_rb,0.70785e-03_rb,0.64108e-03_rb /)
+      kao(:, 4, 8,10) = (/ &
+        & 0.13869e-03_rb,0.25332e-03_rb,0.35744e-03_rb,0.44722e-03_rb,0.52464e-03_rb, &
+        & 0.59336e-03_rb,0.65468e-03_rb,0.71201e-03_rb,0.64611e-03_rb /)
+      kao(:, 5, 8,10) = (/ &
+        & 0.13742e-03_rb,0.25367e-03_rb,0.35927e-03_rb,0.44959e-03_rb,0.52752e-03_rb, &
+        & 0.59656e-03_rb,0.65824e-03_rb,0.71554e-03_rb,0.65066e-03_rb /)
+      kao(:, 1, 9,10) = (/ &
+        & 0.12109e-03_rb,0.23210e-03_rb,0.32446e-03_rb,0.40715e-03_rb,0.48065e-03_rb, &
+        & 0.54715e-03_rb,0.60775e-03_rb,0.66825e-03_rb,0.18336e-04_rb /)
+      kao(:, 2, 9,10) = (/ &
+        & 0.12018e-03_rb,0.23207e-03_rb,0.32699e-03_rb,0.41058e-03_rb,0.48505e-03_rb, &
+        & 0.55180e-03_rb,0.61323e-03_rb,0.67309e-03_rb,0.24327e-04_rb /)
+      kao(:, 3, 9,10) = (/ &
+        & 0.11917e-03_rb,0.23229e-03_rb,0.32956e-03_rb,0.41390e-03_rb,0.48910e-03_rb, &
+        & 0.55710e-03_rb,0.61911e-03_rb,0.67851e-03_rb,0.23065e-04_rb /)
+      kao(:, 4, 9,10) = (/ &
+        & 0.11843e-03_rb,0.23292e-03_rb,0.33197e-03_rb,0.41764e-03_rb,0.49354e-03_rb, &
+        & 0.56238e-03_rb,0.62497e-03_rb,0.68395e-03_rb,0.23680e-04_rb /)
+      kao(:, 5, 9,10) = (/ &
+        & 0.11748e-03_rb,0.23365e-03_rb,0.33458e-03_rb,0.42109e-03_rb,0.49774e-03_rb, &
+        & 0.56667e-03_rb,0.62987e-03_rb,0.68909e-03_rb,0.25905e-04_rb /)
+      kao(:, 1,10,10) = (/ &
+        & 0.10273e-03_rb,0.21204e-03_rb,0.29794e-03_rb,0.37761e-03_rb,0.44937e-03_rb, &
+        & 0.51495e-03_rb,0.57567e-03_rb,0.63761e-03_rb,0.19724e-04_rb /)
+      kao(:, 2,10,10) = (/ &
+        & 0.10190e-03_rb,0.21272e-03_rb,0.30059e-03_rb,0.38150e-03_rb,0.45434e-03_rb, &
+        & 0.52089e-03_rb,0.58270e-03_rb,0.64346e-03_rb,0.24197e-04_rb /)
+      kao(:, 3,10,10) = (/ &
+        & 0.10112e-03_rb,0.21334e-03_rb,0.30377e-03_rb,0.38507e-03_rb,0.45917e-03_rb, &
+        & 0.52739e-03_rb,0.58976e-03_rb,0.64941e-03_rb,0.34326e-04_rb /)
+      kao(:, 4,10,10) = (/ &
+        & 0.10061e-03_rb,0.21443e-03_rb,0.30659e-03_rb,0.38965e-03_rb,0.46453e-03_rb, &
+        & 0.53354e-03_rb,0.59675e-03_rb,0.65639e-03_rb,0.33702e-04_rb /)
+      kao(:, 5,10,10) = (/ &
+        & 0.99890e-04_rb,0.21543e-03_rb,0.30998e-03_rb,0.39375e-03_rb,0.46925e-03_rb, &
+        & 0.53804e-03_rb,0.60223e-03_rb,0.66255e-03_rb,0.31412e-04_rb /)
+      kao(:, 1,11,10) = (/ &
+        & 0.86338e-04_rb,0.19398e-03_rb,0.27516e-03_rb,0.35204e-03_rb,0.42116e-03_rb, &
+        & 0.48556e-03_rb,0.54615e-03_rb,0.60927e-03_rb,0.19945e-04_rb /)
+      kao(:, 2,11,10) = (/ &
+        & 0.85730e-04_rb,0.19502e-03_rb,0.27834e-03_rb,0.35636e-03_rb,0.42792e-03_rb, &
+        & 0.49403e-03_rb,0.55597e-03_rb,0.61737e-03_rb,0.90093e-05_rb /)
+      kao(:, 3,11,10) = (/ &
+        & 0.85275e-04_rb,0.19618e-03_rb,0.28168e-03_rb,0.36165e-03_rb,0.43438e-03_rb, &
+        & 0.50224e-03_rb,0.56492e-03_rb,0.62614e-03_rb,0.37496e-04_rb /)
+      kao(:, 4,11,10) = (/ &
+        & 0.84865e-04_rb,0.19761e-03_rb,0.28526e-03_rb,0.36657e-03_rb,0.44042e-03_rb, &
+        & 0.50863e-03_rb,0.57263e-03_rb,0.63413e-03_rb,0.15044e-04_rb /)
+      kao(:, 5,11,10) = (/ &
+        & 0.84443e-04_rb,0.19914e-03_rb,0.28886e-03_rb,0.37069e-03_rb,0.44492e-03_rb, &
+        & 0.51377e-03_rb,0.57803e-03_rb,0.63993e-03_rb,0.48683e-04_rb /)
+      kao(:, 1,12,10) = (/ &
+        & 0.72237e-04_rb,0.17794e-03_rb,0.25491e-03_rb,0.32737e-03_rb,0.39376e-03_rb, &
+        & 0.45690e-03_rb,0.51684e-03_rb,0.58057e-03_rb,0.10800e-04_rb /)
+      kao(:, 2,12,10) = (/ &
+        & 0.71846e-04_rb,0.17916e-03_rb,0.25896e-03_rb,0.33355e-03_rb,0.40234e-03_rb, &
+        & 0.46708e-03_rb,0.52856e-03_rb,0.59174e-03_rb,0.37304e-04_rb /)
+      kao(:, 3,12,10) = (/ &
+        & 0.71641e-04_rb,0.18095e-03_rb,0.26291e-03_rb,0.34013e-03_rb,0.41022e-03_rb, &
+        & 0.47645e-03_rb,0.53911e-03_rb,0.60240e-03_rb,0.20066e-04_rb /)
+      kao(:, 4,12,10) = (/ &
+        & 0.71337e-04_rb,0.18255e-03_rb,0.26698e-03_rb,0.34557e-03_rb,0.41722e-03_rb, &
+        & 0.48390e-03_rb,0.54753e-03_rb,0.61134e-03_rb,0.20267e-04_rb /)
+      kao(:, 5,12,10) = (/ &
+        & 0.71187e-04_rb,0.18456e-03_rb,0.27032e-03_rb,0.35012e-03_rb,0.42265e-03_rb, &
+        & 0.49079e-03_rb,0.55462e-03_rb,0.61760e-03_rb,0.29175e-04_rb /)
+      kao(:, 1,13,10) = (/ &
+        & 0.60308e-04_rb,0.16344e-03_rb,0.23674e-03_rb,0.30451e-03_rb,0.36859e-03_rb, &
+        & 0.42973e-03_rb,0.48896e-03_rb,0.55265e-03_rb,0.35870e-04_rb /)
+      kao(:, 2,13,10) = (/ &
+        & 0.60075e-04_rb,0.16518e-03_rb,0.24182e-03_rb,0.31202e-03_rb,0.37817e-03_rb, &
+        & 0.44097e-03_rb,0.50163e-03_rb,0.56563e-03_rb,0.24717e-04_rb /)
+      kao(:, 3,13,10) = (/ &
+        & 0.59963e-04_rb,0.16736e-03_rb,0.24636e-03_rb,0.31956e-03_rb,0.38717e-03_rb, &
+        & 0.45122e-03_rb,0.51282e-03_rb,0.57786e-03_rb,0.24967e-04_rb /)
+      kao(:, 4,13,10) = (/ &
+        & 0.59808e-04_rb,0.16950e-03_rb,0.25081e-03_rb,0.32559e-03_rb,0.39488e-03_rb, &
+        & 0.45992e-03_rb,0.52243e-03_rb,0.58716e-03_rb,0.25073e-04_rb /)
+      kao(:, 5,13,10) = (/ &
+        & 0.59738e-04_rb,0.17182e-03_rb,0.25430e-03_rb,0.33121e-03_rb,0.40220e-03_rb, &
+        & 0.46925e-03_rb,0.53224e-03_rb,0.59573e-03_rb,0.14031e-04_rb /)
+      kao(:, 1, 1,11) = (/ &
+        & 0.79109e-03_rb,0.77354e-03_rb,0.84795e-03_rb,0.91837e-03_rb,0.98287e-03_rb, &
+        & 0.10467e-02_rb,0.10876e-02_rb,0.10899e-02_rb,0.10918e-02_rb /)
+      kao(:, 2, 1,11) = (/ &
+        & 0.79035e-03_rb,0.76999e-03_rb,0.84502e-03_rb,0.91315e-03_rb,0.97569e-03_rb, &
+        & 0.10420e-02_rb,0.10843e-02_rb,0.10840e-02_rb,0.10904e-02_rb /)
+      kao(:, 3, 1,11) = (/ &
+        & 0.79094e-03_rb,0.76969e-03_rb,0.84501e-03_rb,0.91212e-03_rb,0.97616e-03_rb, &
+        & 0.10502e-02_rb,0.10978e-02_rb,0.10968e-02_rb,0.11098e-02_rb /)
+      kao(:, 4, 1,11) = (/ &
+        & 0.79012e-03_rb,0.76698e-03_rb,0.84052e-03_rb,0.90224e-03_rb,0.96448e-03_rb, &
+        & 0.10367e-02_rb,0.10810e-02_rb,0.10798e-02_rb,0.10838e-02_rb /)
+      kao(:, 5, 1,11) = (/ &
+        & 0.78840e-03_rb,0.76416e-03_rb,0.83816e-03_rb,0.89971e-03_rb,0.96199e-03_rb, &
+        & 0.10344e-02_rb,0.10796e-02_rb,0.10773e-02_rb,0.10800e-02_rb /)
+      kao(:, 1, 2,11) = (/ &
+        & 0.69789e-03_rb,0.72093e-03_rb,0.81475e-03_rb,0.89922e-03_rb,0.96655e-03_rb, &
+        & 0.10286e-02_rb,0.10852e-02_rb,0.10968e-02_rb,0.10998e-02_rb /)
+      kao(:, 2, 2,11) = (/ &
+        & 0.69799e-03_rb,0.71831e-03_rb,0.81026e-03_rb,0.89390e-03_rb,0.96162e-03_rb, &
+        & 0.10278e-02_rb,0.10853e-02_rb,0.10953e-02_rb,0.10980e-02_rb /)
+      kao(:, 3, 2,11) = (/ &
+        & 0.69849e-03_rb,0.71872e-03_rb,0.81039e-03_rb,0.89368e-03_rb,0.96713e-03_rb, &
+        & 0.10387e-02_rb,0.11003e-02_rb,0.11139e-02_rb,0.11199e-02_rb /)
+      kao(:, 4, 2,11) = (/ &
+        & 0.69786e-03_rb,0.71702e-03_rb,0.80831e-03_rb,0.88926e-03_rb,0.96426e-03_rb, &
+        & 0.10353e-02_rb,0.10976e-02_rb,0.11107e-02_rb,0.11152e-02_rb /)
+      kao(:, 5, 2,11) = (/ &
+        & 0.69639e-03_rb,0.71420e-03_rb,0.80246e-03_rb,0.88289e-03_rb,0.95515e-03_rb, &
+        & 0.10226e-02_rb,0.10812e-02_rb,0.10915e-02_rb,0.10904e-02_rb /)
+      kao(:, 1, 3,11) = (/ &
+        & 0.60717e-03_rb,0.66595e-03_rb,0.77916e-03_rb,0.87509e-03_rb,0.95372e-03_rb, &
+        & 0.10167e-02_rb,0.10820e-02_rb,0.11070e-02_rb,0.11005e-02_rb /)
+      kao(:, 2, 3,11) = (/ &
+        & 0.60740e-03_rb,0.66447e-03_rb,0.77425e-03_rb,0.87078e-03_rb,0.95087e-03_rb, &
+        & 0.10164e-02_rb,0.10820e-02_rb,0.11070e-02_rb,0.10996e-02_rb /)
+      kao(:, 3, 3,11) = (/ &
+        & 0.60743e-03_rb,0.66421e-03_rb,0.77076e-03_rb,0.86668e-03_rb,0.94936e-03_rb, &
+        & 0.10146e-02_rb,0.10809e-02_rb,0.11066e-02_rb,0.10979e-02_rb /)
+      kao(:, 4, 3,11) = (/ &
+        & 0.60721e-03_rb,0.66487e-03_rb,0.77207e-03_rb,0.87093e-03_rb,0.95679e-03_rb, &
+        & 0.10247e-02_rb,0.10950e-02_rb,0.11248e-02_rb,0.11171e-02_rb /)
+      kao(:, 5, 3,11) = (/ &
+        & 0.60632e-03_rb,0.66259e-03_rb,0.76645e-03_rb,0.86469e-03_rb,0.94611e-03_rb, &
+        & 0.10116e-02_rb,0.10778e-02_rb,0.11040e-02_rb,0.10953e-02_rb /)
+      kao(:, 1, 4,11) = (/ &
+        & 0.52196e-03_rb,0.61309e-03_rb,0.74127e-03_rb,0.84825e-03_rb,0.93805e-03_rb, &
+        & 0.10078e-02_rb,0.10732e-02_rb,0.11156e-02_rb,0.10964e-02_rb /)
+      kao(:, 2, 4,11) = (/ &
+        & 0.52205e-03_rb,0.61209e-03_rb,0.73709e-03_rb,0.84586e-03_rb,0.93585e-03_rb, &
+        & 0.10074e-02_rb,0.10727e-02_rb,0.11168e-02_rb,0.10976e-02_rb /)
+      kao(:, 3, 4,11) = (/ &
+        & 0.52218e-03_rb,0.61175e-03_rb,0.73426e-03_rb,0.84316e-03_rb,0.93485e-03_rb, &
+        & 0.10055e-02_rb,0.10718e-02_rb,0.11162e-02_rb,0.10985e-02_rb /)
+      kao(:, 4, 4,11) = (/ &
+        & 0.52176e-03_rb,0.61131e-03_rb,0.73315e-03_rb,0.84162e-03_rb,0.93319e-03_rb, &
+        & 0.10035e-02_rb,0.10709e-02_rb,0.11149e-02_rb,0.11000e-02_rb /)
+      kao(:, 5, 4,11) = (/ &
+        & 0.52100e-03_rb,0.61215e-03_rb,0.73639e-03_rb,0.84868e-03_rb,0.94102e-03_rb, &
+        & 0.10132e-02_rb,0.10822e-02_rb,0.11303e-02_rb,0.11192e-02_rb /)
+      kao(:, 1, 5,11) = (/ &
+        & 0.44537e-03_rb,0.56415e-03_rb,0.70334e-03_rb,0.81986e-03_rb,0.91737e-03_rb, &
+        & 0.99505e-03_rb,0.10590e-02_rb,0.11155e-02_rb,0.10855e-02_rb /)
+      kao(:, 2, 5,11) = (/ &
+        & 0.44499e-03_rb,0.56304e-03_rb,0.70021e-03_rb,0.81824e-03_rb,0.91496e-03_rb, &
+        & 0.99465e-03_rb,0.10577e-02_rb,0.11163e-02_rb,0.10886e-02_rb /)
+      kao(:, 3, 5,11) = (/ &
+        & 0.44481e-03_rb,0.56231e-03_rb,0.69884e-03_rb,0.81557e-03_rb,0.91387e-03_rb, &
+        & 0.99269e-03_rb,0.10566e-02_rb,0.11154e-02_rb,0.10925e-02_rb /)
+      kao(:, 4, 5,11) = (/ &
+        & 0.44459e-03_rb,0.56155e-03_rb,0.69827e-03_rb,0.81462e-03_rb,0.91145e-03_rb, &
+        & 0.99105e-03_rb,0.10558e-02_rb,0.11141e-02_rb,0.10950e-02_rb /)
+      kao(:, 5, 5,11) = (/ &
+        & 0.44401e-03_rb,0.56266e-03_rb,0.70342e-03_rb,0.82262e-03_rb,0.92017e-03_rb, &
+        & 0.10017e-02_rb,0.10686e-02_rb,0.11300e-02_rb,0.11166e-02_rb /)
+      kao(:, 1, 6,11) = (/ &
+        & 0.37714e-03_rb,0.51787e-03_rb,0.66544e-03_rb,0.78793e-03_rb,0.89178e-03_rb, &
+        & 0.97506e-03_rb,0.10421e-02_rb,0.11072e-02_rb,0.10679e-02_rb /)
+      kao(:, 2, 6,11) = (/ &
+        & 0.37645e-03_rb,0.51719e-03_rb,0.66329e-03_rb,0.78619e-03_rb,0.88946e-03_rb, &
+        & 0.97613e-03_rb,0.10421e-02_rb,0.11076e-02_rb,0.10727e-02_rb /)
+      kao(:, 3, 6,11) = (/ &
+        & 0.37621e-03_rb,0.51663e-03_rb,0.66248e-03_rb,0.78421e-03_rb,0.88840e-03_rb, &
+        & 0.97530e-03_rb,0.10423e-02_rb,0.11074e-02_rb,0.10773e-02_rb /)
+      kao(:, 4, 6,11) = (/ &
+        & 0.37625e-03_rb,0.51591e-03_rb,0.66198e-03_rb,0.78342e-03_rb,0.88665e-03_rb, &
+        & 0.97510e-03_rb,0.10427e-02_rb,0.11065e-02_rb,0.10807e-02_rb /)
+      kao(:, 5, 6,11) = (/ &
+        & 0.37578e-03_rb,0.51583e-03_rb,0.66231e-03_rb,0.78322e-03_rb,0.88597e-03_rb, &
+        & 0.97458e-03_rb,0.10416e-02_rb,0.11045e-02_rb,0.10828e-02_rb /)
+      kao(:, 1, 7,11) = (/ &
+        & 0.31849e-03_rb,0.47598e-03_rb,0.62784e-03_rb,0.75245e-03_rb,0.86097e-03_rb, &
+        & 0.95037e-03_rb,0.10228e-02_rb,0.10907e-02_rb,0.10381e-02_rb /)
+      kao(:, 2, 7,11) = (/ &
+        & 0.31748e-03_rb,0.47565e-03_rb,0.62625e-03_rb,0.75127e-03_rb,0.86016e-03_rb, &
+        & 0.95292e-03_rb,0.10249e-02_rb,0.10924e-02_rb,0.10446e-02_rb /)
+      kao(:, 3, 7,11) = (/ &
+        & 0.31709e-03_rb,0.47527e-03_rb,0.62527e-03_rb,0.75044e-03_rb,0.86086e-03_rb, &
+        & 0.95398e-03_rb,0.10272e-02_rb,0.10943e-02_rb,0.10513e-02_rb /)
+      kao(:, 4, 7,11) = (/ &
+        & 0.31690e-03_rb,0.47506e-03_rb,0.62534e-03_rb,0.75023e-03_rb,0.86098e-03_rb, &
+        & 0.95576e-03_rb,0.10298e-02_rb,0.10956e-02_rb,0.10570e-02_rb /)
+      kao(:, 5, 7,11) = (/ &
+        & 0.31661e-03_rb,0.47556e-03_rb,0.62564e-03_rb,0.75129e-03_rb,0.86194e-03_rb, &
+        & 0.95752e-03_rb,0.10312e-02_rb,0.10967e-02_rb,0.10605e-02_rb /)
+      kao(:, 1, 8,11) = (/ &
+        & 0.26920e-03_rb,0.43740e-03_rb,0.58907e-03_rb,0.71604e-03_rb,0.82585e-03_rb, &
+        & 0.92017e-03_rb,0.99828e-03_rb,0.10677e-02_rb,0.99191e-03_rb /)
+      kao(:, 2, 8,11) = (/ &
+        & 0.26802e-03_rb,0.43738e-03_rb,0.58846e-03_rb,0.71590e-03_rb,0.82753e-03_rb, &
+        & 0.92484e-03_rb,0.10036e-02_rb,0.10726e-02_rb,0.10010e-02_rb /)
+      kao(:, 3, 8,11) = (/ &
+        & 0.26738e-03_rb,0.43742e-03_rb,0.58827e-03_rb,0.71679e-03_rb,0.83051e-03_rb, &
+        & 0.92821e-03_rb,0.10079e-02_rb,0.10772e-02_rb,0.10102e-02_rb /)
+      kao(:, 4, 8,11) = (/ &
+        & 0.26701e-03_rb,0.43751e-03_rb,0.58933e-03_rb,0.71793e-03_rb,0.83304e-03_rb, &
+        & 0.93190e-03_rb,0.10124e-02_rb,0.10810e-02_rb,0.10188e-02_rb /)
+      kao(:, 5, 8,11) = (/ &
+        & 0.26686e-03_rb,0.43824e-03_rb,0.58999e-03_rb,0.72050e-03_rb,0.83607e-03_rb, &
+        & 0.93581e-03_rb,0.10160e-02_rb,0.10848e-02_rb,0.10263e-02_rb /)
+      kao(:, 1, 9,11) = (/ &
+        & 0.22904e-03_rb,0.40123e-03_rb,0.55115e-03_rb,0.67712e-03_rb,0.78732e-03_rb, &
+        & 0.88313e-03_rb,0.96568e-03_rb,0.10387e-02_rb,0.14403e-04_rb /)
+      kao(:, 2, 9,11) = (/ &
+        & 0.22775e-03_rb,0.40129e-03_rb,0.55155e-03_rb,0.67918e-03_rb,0.79168e-03_rb, &
+        & 0.89045e-03_rb,0.97356e-03_rb,0.10468e-02_rb,0.17396e-04_rb /)
+      kao(:, 3, 9,11) = (/ &
+        & 0.22691e-03_rb,0.40187e-03_rb,0.55239e-03_rb,0.68238e-03_rb,0.79664e-03_rb, &
+        & 0.89641e-03_rb,0.98013e-03_rb,0.10538e-02_rb,0.17983e-04_rb /)
+      kao(:, 4, 9,11) = (/ &
+        & 0.22637e-03_rb,0.40220e-03_rb,0.55452e-03_rb,0.68525e-03_rb,0.80145e-03_rb, &
+        & 0.90223e-03_rb,0.98673e-03_rb,0.10599e-02_rb,0.14884e-04_rb /)
+      kao(:, 5, 9,11) = (/ &
+        & 0.22595e-03_rb,0.40316e-03_rb,0.55613e-03_rb,0.68950e-03_rb,0.80623e-03_rb, &
+        & 0.90849e-03_rb,0.99244e-03_rb,0.10655e-02_rb,0.19485e-04_rb /)
+      kao(:, 1,10,11) = (/ &
+        & 0.19610e-03_rb,0.36707e-03_rb,0.51305e-03_rb,0.63612e-03_rb,0.74337e-03_rb, &
+        & 0.83875e-03_rb,0.92458e-03_rb,0.10007e-02_rb,0.30583e-04_rb /)
+      kao(:, 2,10,11) = (/ &
+        & 0.19499e-03_rb,0.36759e-03_rb,0.51501e-03_rb,0.64066e-03_rb,0.75082e-03_rb, &
+        & 0.84853e-03_rb,0.93443e-03_rb,0.10117e-02_rb,0.20484e-04_rb /)
+      kao(:, 3,10,11) = (/ &
+        & 0.19427e-03_rb,0.36886e-03_rb,0.51745e-03_rb,0.64625e-03_rb,0.75815e-03_rb, &
+        & 0.85733e-03_rb,0.94303e-03_rb,0.10217e-02_rb,0.20784e-04_rb /)
+      kao(:, 4,10,11) = (/ &
+        & 0.19367e-03_rb,0.36958e-03_rb,0.52106e-03_rb,0.65093e-03_rb,0.76545e-03_rb, &
+        & 0.86571e-03_rb,0.95244e-03_rb,0.10301e-02_rb,0.30511e-04_rb /)
+      kao(:, 5,10,11) = (/ &
+        & 0.19319e-03_rb,0.37098e-03_rb,0.52409e-03_rb,0.65675e-03_rb,0.77258e-03_rb, &
+        & 0.87491e-03_rb,0.96110e-03_rb,0.10378e-02_rb,0.19883e-04_rb /)
+      kao(:, 1,11,11) = (/ &
+        & 0.16767e-03_rb,0.33624e-03_rb,0.47635e-03_rb,0.59543e-03_rb,0.70301e-03_rb, &
+        & 0.79872e-03_rb,0.88652e-03_rb,0.96550e-03_rb,0.27483e-04_rb /)
+      kao(:, 2,11,11) = (/ &
+        & 0.16687e-03_rb,0.33764e-03_rb,0.48055e-03_rb,0.60283e-03_rb,0.71186e-03_rb, &
+        & 0.80978e-03_rb,0.89673e-03_rb,0.97758e-03_rb,0.20639e-04_rb /)
+      kao(:, 3,11,11) = (/ &
+        & 0.16664e-03_rb,0.33942e-03_rb,0.48524e-03_rb,0.60962e-03_rb,0.72075e-03_rb, &
+        & 0.81953e-03_rb,0.90753e-03_rb,0.98729e-03_rb,0.27689e-04_rb /)
+      kao(:, 4,11,11) = (/ &
+        & 0.16611e-03_rb,0.34104e-03_rb,0.48994e-03_rb,0.61708e-03_rb,0.72992e-03_rb, &
+        & 0.83047e-03_rb,0.91898e-03_rb,0.99769e-03_rb,0.13719e-04_rb /)
+      kao(:, 5,11,11) = (/ &
+        & 0.16596e-03_rb,0.34313e-03_rb,0.49467e-03_rb,0.62538e-03_rb,0.73960e-03_rb, &
+        & 0.84171e-03_rb,0.92999e-03_rb,0.10075e-02_rb,0.27137e-04_rb /)
+      kao(:, 1,12,11) = (/ &
+        & 0.14282e-03_rb,0.30890e-03_rb,0.44183e-03_rb,0.55831e-03_rb,0.66503e-03_rb, &
+        & 0.76077e-03_rb,0.84890e-03_rb,0.93128e-03_rb,0.21228e-04_rb /)
+      kao(:, 2,12,11) = (/ &
+        & 0.14255e-03_rb,0.31125e-03_rb,0.44731e-03_rb,0.56685e-03_rb,0.67491e-03_rb, &
+        & 0.77277e-03_rb,0.86092e-03_rb,0.94274e-03_rb,0.32331e-04_rb /)
+      kao(:, 3,12,11) = (/ &
+        & 0.14244e-03_rb,0.31334e-03_rb,0.45354e-03_rb,0.57479e-03_rb,0.68552e-03_rb, &
+        & 0.78420e-03_rb,0.87396e-03_rb,0.95434e-03_rb,0.19978e-06_rb /)
+      kao(:, 4,12,11) = (/ &
+        & 0.14239e-03_rb,0.31614e-03_rb,0.45984e-03_rb,0.58419e-03_rb,0.69607e-03_rb, &
+        & 0.79750e-03_rb,0.88765e-03_rb,0.96637e-03_rb,0.21475e-04_rb /)
+      kao(:, 5,12,11) = (/ &
+        & 0.14252e-03_rb,0.31876e-03_rb,0.46658e-03_rb,0.59385e-03_rb,0.70775e-03_rb, &
+        & 0.80986e-03_rb,0.90037e-03_rb,0.97814e-03_rb,0.21476e-04_rb /)
+      kao(:, 1,13,11) = (/ &
+        & 0.12125e-03_rb,0.28444e-03_rb,0.41080e-03_rb,0.52444e-03_rb,0.62932e-03_rb, &
+        & 0.72481e-03_rb,0.81245e-03_rb,0.89716e-03_rb,0.27405e-04_rb /)
+      kao(:, 2,13,11) = (/ &
+        & 0.12138e-03_rb,0.28788e-03_rb,0.41712e-03_rb,0.53396e-03_rb,0.64078e-03_rb, &
+        & 0.73819e-03_rb,0.82737e-03_rb,0.91020e-03_rb,0.13699e-04_rb /)
+      kao(:, 3,13,11) = (/ &
+        & 0.12142e-03_rb,0.29086e-03_rb,0.42441e-03_rb,0.54338e-03_rb,0.65260e-03_rb, &
+        & 0.75224e-03_rb,0.84352e-03_rb,0.92398e-03_rb,0.13820e-04_rb /)
+      kao(:, 4,13,11) = (/ &
+        & 0.12174e-03_rb,0.29430e-03_rb,0.43176e-03_rb,0.55440e-03_rb,0.66546e-03_rb, &
+        & 0.76738e-03_rb,0.85914e-03_rb,0.93821e-03_rb,0.26505e-06_rb /)
+      kao(:, 5,13,11) = (/ &
+        & 0.12197e-03_rb,0.29750e-03_rb,0.43989e-03_rb,0.56500e-03_rb,0.67844e-03_rb, &
+        & 0.78071e-03_rb,0.87280e-03_rb,0.95108e-03_rb,0.33764e-06_rb /)
+      kao(:, 1, 1,12) = (/ &
+        & 0.15537e-02_rb,0.13818e-02_rb,0.14273e-02_rb,0.15055e-02_rb,0.15786e-02_rb, &
+        & 0.16339e-02_rb,0.16467e-02_rb,0.15800e-02_rb,0.16050e-02_rb /)
+      kao(:, 2, 1,12) = (/ &
+        & 0.15485e-02_rb,0.13765e-02_rb,0.14181e-02_rb,0.14978e-02_rb,0.15727e-02_rb, &
+        & 0.16256e-02_rb,0.16371e-02_rb,0.15728e-02_rb,0.16005e-02_rb /)
+      kao(:, 3, 1,12) = (/ &
+        & 0.15437e-02_rb,0.13722e-02_rb,0.14122e-02_rb,0.14971e-02_rb,0.15752e-02_rb, &
+        & 0.16261e-02_rb,0.16396e-02_rb,0.15797e-02_rb,0.16209e-02_rb /)
+      kao(:, 4, 1,12) = (/ &
+        & 0.15424e-02_rb,0.13691e-02_rb,0.14015e-02_rb,0.14839e-02_rb,0.15593e-02_rb, &
+        & 0.16040e-02_rb,0.16150e-02_rb,0.15487e-02_rb,0.15957e-02_rb /)
+      kao(:, 5, 1,12) = (/ &
+        & 0.15425e-02_rb,0.13681e-02_rb,0.13961e-02_rb,0.14766e-02_rb,0.15502e-02_rb, &
+        & 0.15943e-02_rb,0.16046e-02_rb,0.15376e-02_rb,0.15923e-02_rb /)
+      kao(:, 1, 2,12) = (/ &
+        & 0.14274e-02_rb,0.13101e-02_rb,0.13901e-02_rb,0.14665e-02_rb,0.15597e-02_rb, &
+        & 0.16365e-02_rb,0.16682e-02_rb,0.16286e-02_rb,0.16381e-02_rb /)
+      kao(:, 2, 2,12) = (/ &
+        & 0.14223e-02_rb,0.13039e-02_rb,0.13828e-02_rb,0.14629e-02_rb,0.15522e-02_rb, &
+        & 0.16256e-02_rb,0.16567e-02_rb,0.16183e-02_rb,0.16362e-02_rb /)
+      kao(:, 3, 2,12) = (/ &
+        & 0.14195e-02_rb,0.12999e-02_rb,0.13791e-02_rb,0.14641e-02_rb,0.15538e-02_rb, &
+        & 0.16259e-02_rb,0.16605e-02_rb,0.16235e-02_rb,0.16585e-02_rb /)
+      kao(:, 4, 2,12) = (/ &
+        & 0.14181e-02_rb,0.12958e-02_rb,0.13726e-02_rb,0.14576e-02_rb,0.15447e-02_rb, &
+        & 0.16149e-02_rb,0.16487e-02_rb,0.16101e-02_rb,0.16540e-02_rb /)
+      kao(:, 5, 2,12) = (/ &
+        & 0.14191e-02_rb,0.12933e-02_rb,0.13650e-02_rb,0.14448e-02_rb,0.15270e-02_rb, &
+        & 0.15959e-02_rb,0.16273e-02_rb,0.15850e-02_rb,0.16279e-02_rb /)
+      kao(:, 1, 3,12) = (/ &
+        & 0.12975e-02_rb,0.12495e-02_rb,0.13516e-02_rb,0.14440e-02_rb,0.15390e-02_rb, &
+        & 0.16298e-02_rb,0.16807e-02_rb,0.16634e-02_rb,0.16697e-02_rb /)
+      kao(:, 2, 3,12) = (/ &
+        & 0.12938e-02_rb,0.12434e-02_rb,0.13457e-02_rb,0.14406e-02_rb,0.15301e-02_rb, &
+        & 0.16196e-02_rb,0.16709e-02_rb,0.16534e-02_rb,0.16671e-02_rb /)
+      kao(:, 3, 3,12) = (/ &
+        & 0.12920e-02_rb,0.12378e-02_rb,0.13412e-02_rb,0.14340e-02_rb,0.15221e-02_rb, &
+        & 0.16094e-02_rb,0.16610e-02_rb,0.16426e-02_rb,0.16655e-02_rb /)
+      kao(:, 4, 3,12) = (/ &
+        & 0.12905e-02_rb,0.12343e-02_rb,0.13399e-02_rb,0.14335e-02_rb,0.15224e-02_rb, &
+        & 0.16137e-02_rb,0.16692e-02_rb,0.16519e-02_rb,0.16891e-02_rb /)
+      kao(:, 5, 3,12) = (/ &
+        & 0.12916e-02_rb,0.12305e-02_rb,0.13333e-02_rb,0.14197e-02_rb,0.15049e-02_rb, &
+        & 0.15945e-02_rb,0.16481e-02_rb,0.16282e-02_rb,0.16593e-02_rb /)
+      kao(:, 1, 4,12) = (/ &
+        & 0.11586e-02_rb,0.11791e-02_rb,0.13059e-02_rb,0.14246e-02_rb,0.15191e-02_rb, &
+        & 0.16155e-02_rb,0.16888e-02_rb,0.16884e-02_rb,0.16900e-02_rb /)
+      kao(:, 2, 4,12) = (/ &
+        & 0.11563e-02_rb,0.11735e-02_rb,0.13020e-02_rb,0.14191e-02_rb,0.15117e-02_rb, &
+        & 0.16067e-02_rb,0.16804e-02_rb,0.16804e-02_rb,0.16885e-02_rb /)
+      kao(:, 3, 4,12) = (/ &
+        & 0.11547e-02_rb,0.11684e-02_rb,0.12989e-02_rb,0.14121e-02_rb,0.15049e-02_rb, &
+        & 0.15986e-02_rb,0.16736e-02_rb,0.16742e-02_rb,0.16864e-02_rb /)
+      kao(:, 4, 4,12) = (/ &
+        & 0.11549e-02_rb,0.11640e-02_rb,0.12947e-02_rb,0.14053e-02_rb,0.14971e-02_rb, &
+        & 0.15940e-02_rb,0.16690e-02_rb,0.16701e-02_rb,0.16826e-02_rb /)
+      kao(:, 5, 4,12) = (/ &
+        & 0.11568e-02_rb,0.11629e-02_rb,0.12947e-02_rb,0.14048e-02_rb,0.15017e-02_rb, &
+        & 0.16054e-02_rb,0.16836e-02_rb,0.16886e-02_rb,0.17044e-02_rb /)
+      kao(:, 1, 5,12) = (/ &
+        & 0.10197e-02_rb,0.11002e-02_rb,0.12563e-02_rb,0.13948e-02_rb,0.15048e-02_rb, &
+        & 0.16026e-02_rb,0.16898e-02_rb,0.17082e-02_rb,0.17013e-02_rb /)
+      kao(:, 2, 5,12) = (/ &
+        & 0.10187e-02_rb,0.10963e-02_rb,0.12532e-02_rb,0.13909e-02_rb,0.14993e-02_rb, &
+        & 0.15953e-02_rb,0.16843e-02_rb,0.17040e-02_rb,0.16991e-02_rb /)
+      kao(:, 3, 5,12) = (/ &
+        & 0.10179e-02_rb,0.10925e-02_rb,0.12502e-02_rb,0.13858e-02_rb,0.14932e-02_rb, &
+        & 0.15900e-02_rb,0.16803e-02_rb,0.17019e-02_rb,0.16952e-02_rb /)
+      kao(:, 4, 5,12) = (/ &
+        & 0.10188e-02_rb,0.10896e-02_rb,0.12461e-02_rb,0.13806e-02_rb,0.14878e-02_rb, &
+        & 0.15873e-02_rb,0.16767e-02_rb,0.17001e-02_rb,0.16925e-02_rb /)
+      kao(:, 5, 5,12) = (/ &
+        & 0.10211e-02_rb,0.10901e-02_rb,0.12464e-02_rb,0.13834e-02_rb,0.14970e-02_rb, &
+        & 0.16026e-02_rb,0.16952e-02_rb,0.17210e-02_rb,0.17180e-02_rb /)
+      kao(:, 1, 6,12) = (/ &
+        & 0.88455e-03_rb,0.10185e-02_rb,0.12021e-02_rb,0.13605e-02_rb,0.14894e-02_rb, &
+        & 0.15922e-02_rb,0.16870e-02_rb,0.17277e-02_rb,0.17006e-02_rb /)
+      kao(:, 2, 6,12) = (/ &
+        & 0.88487e-03_rb,0.10158e-02_rb,0.12001e-02_rb,0.13587e-02_rb,0.14854e-02_rb, &
+        & 0.15856e-02_rb,0.16819e-02_rb,0.17253e-02_rb,0.17001e-02_rb /)
+      kao(:, 3, 6,12) = (/ &
+        & 0.88512e-03_rb,0.10136e-02_rb,0.11981e-02_rb,0.13544e-02_rb,0.14820e-02_rb, &
+        & 0.15811e-02_rb,0.16785e-02_rb,0.17233e-02_rb,0.16989e-02_rb /)
+      kao(:, 4, 6,12) = (/ &
+        & 0.88698e-03_rb,0.10127e-02_rb,0.11948e-02_rb,0.13505e-02_rb,0.14784e-02_rb, &
+        & 0.15789e-02_rb,0.16749e-02_rb,0.17211e-02_rb,0.16988e-02_rb /)
+      kao(:, 5, 6,12) = (/ &
+        & 0.88923e-03_rb,0.10128e-02_rb,0.11919e-02_rb,0.13468e-02_rb,0.14756e-02_rb, &
+        & 0.15764e-02_rb,0.16734e-02_rb,0.17190e-02_rb,0.16990e-02_rb /)
+      kao(:, 1, 7,12) = (/ &
+        & 0.75937e-03_rb,0.93876e-03_rb,0.11443e-02_rb,0.13228e-02_rb,0.14681e-02_rb, &
+        & 0.15807e-02_rb,0.16771e-02_rb,0.17403e-02_rb,0.16920e-02_rb /)
+      kao(:, 2, 7,12) = (/ &
+        & 0.75998e-03_rb,0.93770e-03_rb,0.11447e-02_rb,0.13222e-02_rb,0.14656e-02_rb, &
+        & 0.15751e-02_rb,0.16722e-02_rb,0.17374e-02_rb,0.16943e-02_rb /)
+      kao(:, 3, 7,12) = (/ &
+        & 0.76057e-03_rb,0.93698e-03_rb,0.11442e-02_rb,0.13192e-02_rb,0.14630e-02_rb, &
+        & 0.15711e-02_rb,0.16684e-02_rb,0.17351e-02_rb,0.16966e-02_rb /)
+      kao(:, 4, 7,12) = (/ &
+        & 0.76306e-03_rb,0.93700e-03_rb,0.11417e-02_rb,0.13175e-02_rb,0.14605e-02_rb, &
+        & 0.15679e-02_rb,0.16649e-02_rb,0.17327e-02_rb,0.16998e-02_rb /)
+      kao(:, 5, 7,12) = (/ &
+        & 0.76563e-03_rb,0.93740e-03_rb,0.11401e-02_rb,0.13155e-02_rb,0.14583e-02_rb, &
+        & 0.15655e-02_rb,0.16637e-02_rb,0.17306e-02_rb,0.17045e-02_rb /)
+      kao(:, 1, 8,12) = (/ &
+        & 0.64586e-03_rb,0.86421e-03_rb,0.10884e-02_rb,0.12806e-02_rb,0.14383e-02_rb, &
+        & 0.15636e-02_rb,0.16605e-02_rb,0.17434e-02_rb,0.16711e-02_rb /)
+      kao(:, 2, 8,12) = (/ &
+        & 0.64665e-03_rb,0.86473e-03_rb,0.10896e-02_rb,0.12820e-02_rb,0.14363e-02_rb, &
+        & 0.15592e-02_rb,0.16561e-02_rb,0.17403e-02_rb,0.16771e-02_rb /)
+      kao(:, 3, 8,12) = (/ &
+        & 0.64816e-03_rb,0.86506e-03_rb,0.10903e-02_rb,0.12802e-02_rb,0.14357e-02_rb, &
+        & 0.15554e-02_rb,0.16529e-02_rb,0.17367e-02_rb,0.16846e-02_rb /)
+      kao(:, 4, 8,12) = (/ &
+        & 0.65115e-03_rb,0.86561e-03_rb,0.10893e-02_rb,0.12797e-02_rb,0.14336e-02_rb, &
+        & 0.15533e-02_rb,0.16505e-02_rb,0.17349e-02_rb,0.16920e-02_rb /)
+      kao(:, 5, 8,12) = (/ &
+        & 0.65335e-03_rb,0.86692e-03_rb,0.10897e-02_rb,0.12788e-02_rb,0.14323e-02_rb, &
+        & 0.15519e-02_rb,0.16494e-02_rb,0.17328e-02_rb,0.17005e-02_rb /)
+      kao(:, 1, 9,12) = (/ &
+        & 0.54495e-03_rb,0.79374e-03_rb,0.10331e-02_rb,0.12325e-02_rb,0.13999e-02_rb, &
+        & 0.15343e-02_rb,0.16359e-02_rb,0.17304e-02_rb,0.88289e-03_rb /)
+      kao(:, 2, 9,12) = (/ &
+        & 0.54631e-03_rb,0.79621e-03_rb,0.10351e-02_rb,0.12356e-02_rb,0.13999e-02_rb, &
+        & 0.15332e-02_rb,0.16343e-02_rb,0.17287e-02_rb,0.90009e-03_rb /)
+      kao(:, 3, 9,12) = (/ &
+        & 0.54838e-03_rb,0.79738e-03_rb,0.10366e-02_rb,0.12358e-02_rb,0.14008e-02_rb, &
+        & 0.15312e-02_rb,0.16325e-02_rb,0.17267e-02_rb,0.91715e-03_rb /)
+      kao(:, 4, 9,12) = (/ &
+        & 0.55103e-03_rb,0.79925e-03_rb,0.10373e-02_rb,0.12370e-02_rb,0.14003e-02_rb, &
+        & 0.15313e-02_rb,0.16317e-02_rb,0.17265e-02_rb,0.93948e-03_rb /)
+      kao(:, 5, 9,12) = (/ &
+        & 0.55358e-03_rb,0.80158e-03_rb,0.10391e-02_rb,0.12370e-02_rb,0.14008e-02_rb, &
+        & 0.15320e-02_rb,0.16328e-02_rb,0.17271e-02_rb,0.97099e-03_rb /)
+      kao(:, 1,10,12) = (/ &
+        & 0.45828e-03_rb,0.73128e-03_rb,0.97725e-03_rb,0.11801e-02_rb,0.13541e-02_rb, &
+        & 0.14966e-02_rb,0.16059e-02_rb,0.17081e-02_rb,0.25261e-04_rb /)
+      kao(:, 2,10,12) = (/ &
+        & 0.45994e-03_rb,0.73433e-03_rb,0.98047e-03_rb,0.11852e-02_rb,0.13571e-02_rb, &
+        & 0.14993e-02_rb,0.16071e-02_rb,0.17093e-02_rb,0.32778e-04_rb /)
+      kao(:, 3,10,12) = (/ &
+        & 0.46172e-03_rb,0.73698e-03_rb,0.98332e-03_rb,0.11877e-02_rb,0.13607e-02_rb, &
+        & 0.15001e-02_rb,0.16089e-02_rb,0.17098e-02_rb,0.30108e-04_rb /)
+      kao(:, 4,10,12) = (/ &
+        & 0.46419e-03_rb,0.73967e-03_rb,0.98568e-03_rb,0.11903e-02_rb,0.13620e-02_rb, &
+        & 0.15042e-02_rb,0.16117e-02_rb,0.17131e-02_rb,0.14814e-04_rb /)
+      kao(:, 5,10,12) = (/ &
+        & 0.46710e-03_rb,0.74287e-03_rb,0.98852e-03_rb,0.11927e-02_rb,0.13653e-02_rb, &
+        & 0.15080e-02_rb,0.16153e-02_rb,0.17174e-02_rb,0.18206e-04_rb /)
+      kao(:, 1,11,12) = (/ &
+        & 0.38711e-03_rb,0.67660e-03_rb,0.92352e-03_rb,0.11285e-02_rb,0.13042e-02_rb, &
+        & 0.14533e-02_rb,0.15680e-02_rb,0.16768e-02_rb,0.35375e-04_rb /)
+      kao(:, 2,11,12) = (/ &
+        & 0.38827e-03_rb,0.68076e-03_rb,0.92811e-03_rb,0.11355e-02_rb,0.13110e-02_rb, &
+        & 0.14578e-02_rb,0.15732e-02_rb,0.16802e-02_rb,0.17785e-04_rb /)
+      kao(:, 3,11,12) = (/ &
+        & 0.39017e-03_rb,0.68339e-03_rb,0.93243e-03_rb,0.11404e-02_rb,0.13179e-02_rb, &
+        & 0.14648e-02_rb,0.15809e-02_rb,0.16870e-02_rb,0.17310e-04_rb /)
+      kao(:, 4,11,12) = (/ &
+        & 0.39259e-03_rb,0.68706e-03_rb,0.93609e-03_rb,0.11451e-02_rb,0.13243e-02_rb, &
+        & 0.14746e-02_rb,0.15892e-02_rb,0.16958e-02_rb,0.17795e-04_rb /)
+      kao(:, 5,11,12) = (/ &
+        & 0.39544e-03_rb,0.69011e-03_rb,0.94016e-03_rb,0.11496e-02_rb,0.13318e-02_rb, &
+        & 0.14825e-02_rb,0.15980e-02_rb,0.17052e-02_rb,0.87581e-05_rb /)
+      kao(:, 1,12,12) = (/ &
+        & 0.32882e-03_rb,0.62658e-03_rb,0.87124e-03_rb,0.10770e-02_rb,0.12526e-02_rb, &
+        & 0.14042e-02_rb,0.15246e-02_rb,0.16367e-02_rb,0.13823e-04_rb /)
+      kao(:, 2,12,12) = (/ &
+        & 0.33008e-03_rb,0.63068e-03_rb,0.87790e-03_rb,0.10857e-02_rb,0.12638e-02_rb, &
+        & 0.14155e-02_rb,0.15376e-02_rb,0.16473e-02_rb,0.27356e-04_rb /)
+      kao(:, 3,12,12) = (/ &
+        & 0.33191e-03_rb,0.63479e-03_rb,0.88401e-03_rb,0.10939e-02_rb,0.12749e-02_rb, &
+        & 0.14298e-02_rb,0.15521e-02_rb,0.16615e-02_rb,0.26924e-04_rb /)
+      kao(:, 4,12,12) = (/ &
+        & 0.33384e-03_rb,0.63914e-03_rb,0.88945e-03_rb,0.11023e-02_rb,0.12871e-02_rb, &
+        & 0.14439e-02_rb,0.15651e-02_rb,0.16755e-02_rb,0.13486e-04_rb /)
+      kao(:, 5,12,12) = (/ &
+        & 0.33630e-03_rb,0.64288e-03_rb,0.89554e-03_rb,0.11106e-02_rb,0.12985e-02_rb, &
+        & 0.14567e-02_rb,0.15792e-02_rb,0.16910e-02_rb,0.54470e-04_rb /)
+      kao(:, 1,13,12) = (/ &
+        & 0.28179e-03_rb,0.58039e-03_rb,0.82131e-03_rb,0.10258e-02_rb,0.12001e-02_rb, &
+        & 0.13522e-02_rb,0.14762e-02_rb,0.15892e-02_rb,0.17365e-04_rb /)
+      kao(:, 2,13,12) = (/ &
+        & 0.28322e-03_rb,0.58517e-03_rb,0.83048e-03_rb,0.10376e-02_rb,0.12180e-02_rb, &
+        & 0.13721e-02_rb,0.14980e-02_rb,0.16092e-02_rb,0.19167e-10_rb /)
+      kao(:, 3,13,12) = (/ &
+        & 0.28449e-03_rb,0.59004e-03_rb,0.83867e-03_rb,0.10495e-02_rb,0.12349e-02_rb, &
+        & 0.13937e-02_rb,0.15189e-02_rb,0.16302e-02_rb,0.17686e-04_rb /)
+      kao(:, 4,13,12) = (/ &
+        & 0.28623e-03_rb,0.59506e-03_rb,0.84661e-03_rb,0.10616e-02_rb,0.12511e-02_rb, &
+        & 0.14124e-02_rb,0.15380e-02_rb,0.16505e-02_rb,0.27174e-10_rb /)
+      kao(:, 5,13,12) = (/ &
+        & 0.28834e-03_rb,0.60000e-03_rb,0.85510e-03_rb,0.10735e-02_rb,0.12664e-02_rb, &
+        & 0.14298e-02_rb,0.15583e-02_rb,0.16724e-02_rb,0.30930e-10_rb /)
+      kao(:, 1, 1,13) = (/ &
+        & 0.39229e-02_rb,0.34326e-02_rb,0.30162e-02_rb,0.28699e-02_rb,0.28381e-02_rb, &
+        & 0.27734e-02_rb,0.26260e-02_rb,0.23062e-02_rb,0.25522e-02_rb /)
+      kao(:, 2, 1,13) = (/ &
+        & 0.39213e-02_rb,0.34310e-02_rb,0.30108e-02_rb,0.28565e-02_rb,0.28216e-02_rb, &
+        & 0.27552e-02_rb,0.26075e-02_rb,0.22956e-02_rb,0.25296e-02_rb /)
+      kao(:, 3, 1,13) = (/ &
+        & 0.39180e-02_rb,0.34283e-02_rb,0.30095e-02_rb,0.28490e-02_rb,0.28140e-02_rb, &
+        & 0.27516e-02_rb,0.26057e-02_rb,0.23031e-02_rb,0.25320e-02_rb /)
+      kao(:, 4, 1,13) = (/ &
+        & 0.39161e-02_rb,0.34265e-02_rb,0.30039e-02_rb,0.28320e-02_rb,0.27864e-02_rb, &
+        & 0.27263e-02_rb,0.25779e-02_rb,0.22767e-02_rb,0.24834e-02_rb /)
+      kao(:, 5, 1,13) = (/ &
+        & 0.39129e-02_rb,0.34239e-02_rb,0.29985e-02_rb,0.28202e-02_rb,0.27725e-02_rb, &
+        & 0.27107e-02_rb,0.25647e-02_rb,0.22654e-02_rb,0.24632e-02_rb /)
+      kao(:, 1, 2,13) = (/ &
+        & 0.35717e-02_rb,0.31250e-02_rb,0.28583e-02_rb,0.28716e-02_rb,0.28885e-02_rb, &
+        & 0.28569e-02_rb,0.27419e-02_rb,0.24528e-02_rb,0.26589e-02_rb /)
+      kao(:, 2, 2,13) = (/ &
+        & 0.35704e-02_rb,0.31241e-02_rb,0.28509e-02_rb,0.28521e-02_rb,0.28717e-02_rb, &
+        & 0.28411e-02_rb,0.27277e-02_rb,0.24440e-02_rb,0.26352e-02_rb /)
+      kao(:, 3, 2,13) = (/ &
+        & 0.35692e-02_rb,0.31228e-02_rb,0.28479e-02_rb,0.28438e-02_rb,0.28636e-02_rb, &
+        & 0.28419e-02_rb,0.27327e-02_rb,0.24542e-02_rb,0.26382e-02_rb /)
+      kao(:, 4, 2,13) = (/ &
+        & 0.35651e-02_rb,0.31194e-02_rb,0.28382e-02_rb,0.28288e-02_rb,0.28472e-02_rb, &
+        & 0.28288e-02_rb,0.27211e-02_rb,0.24428e-02_rb,0.26140e-02_rb /)
+      kao(:, 5, 2,13) = (/ &
+        & 0.35614e-02_rb,0.31162e-02_rb,0.28280e-02_rb,0.28080e-02_rb,0.28270e-02_rb, &
+        & 0.28018e-02_rb,0.26919e-02_rb,0.24122e-02_rb,0.25721e-02_rb /)
+      kao(:, 1, 3,13) = (/ &
+        & 0.32370e-02_rb,0.28408e-02_rb,0.27429e-02_rb,0.28459e-02_rb,0.29107e-02_rb, &
+        & 0.29163e-02_rb,0.28452e-02_rb,0.26013e-02_rb,0.27589e-02_rb /)
+      kao(:, 2, 3,13) = (/ &
+        & 0.32378e-02_rb,0.28409e-02_rb,0.27346e-02_rb,0.28282e-02_rb,0.28967e-02_rb, &
+        & 0.29036e-02_rb,0.28357e-02_rb,0.25912e-02_rb,0.27381e-02_rb /)
+      kao(:, 3, 3,13) = (/ &
+        & 0.32344e-02_rb,0.28366e-02_rb,0.27224e-02_rb,0.28159e-02_rb,0.28824e-02_rb, &
+        & 0.28940e-02_rb,0.28268e-02_rb,0.25801e-02_rb,0.27164e-02_rb /)
+      kao(:, 4, 3,13) = (/ &
+        & 0.32328e-02_rb,0.28349e-02_rb,0.27139e-02_rb,0.28071e-02_rb,0.28820e-02_rb, &
+        & 0.28985e-02_rb,0.28328e-02_rb,0.25870e-02_rb,0.27280e-02_rb /)
+      kao(:, 5, 3,13) = (/ &
+        & 0.32337e-02_rb,0.28348e-02_rb,0.27027e-02_rb,0.27877e-02_rb,0.28613e-02_rb, &
+        & 0.28723e-02_rb,0.28004e-02_rb,0.25498e-02_rb,0.26848e-02_rb /)
+      kao(:, 1, 4,13) = (/ &
+        & 0.29442e-02_rb,0.26158e-02_rb,0.26686e-02_rb,0.28002e-02_rb,0.29074e-02_rb, &
+        & 0.29569e-02_rb,0.29354e-02_rb,0.27381e-02_rb,0.28491e-02_rb /)
+      kao(:, 2, 4,13) = (/ &
+        & 0.29416e-02_rb,0.26110e-02_rb,0.26570e-02_rb,0.27866e-02_rb,0.28959e-02_rb, &
+        & 0.29477e-02_rb,0.29295e-02_rb,0.27262e-02_rb,0.28287e-02_rb /)
+      kao(:, 3, 4,13) = (/ &
+        & 0.29392e-02_rb,0.26064e-02_rb,0.26421e-02_rb,0.27765e-02_rb,0.28845e-02_rb, &
+        & 0.29406e-02_rb,0.29202e-02_rb,0.27107e-02_rb,0.28099e-02_rb /)
+      kao(:, 4, 4,13) = (/ &
+        & 0.29406e-02_rb,0.26055e-02_rb,0.26309e-02_rb,0.27645e-02_rb,0.28769e-02_rb, &
+        & 0.29312e-02_rb,0.29057e-02_rb,0.26928e-02_rb,0.27972e-02_rb /)
+      kao(:, 5, 4,13) = (/ &
+        & 0.29379e-02_rb,0.26016e-02_rb,0.26230e-02_rb,0.27605e-02_rb,0.28772e-02_rb, &
+        & 0.29338e-02_rb,0.29114e-02_rb,0.26956e-02_rb,0.28225e-02_rb /)
+      kao(:, 1, 5,13) = (/ &
+        & 0.26861e-02_rb,0.24510e-02_rb,0.26014e-02_rb,0.27478e-02_rb,0.28811e-02_rb, &
+        & 0.29878e-02_rb,0.30091e-02_rb,0.28610e-02_rb,0.29320e-02_rb /)
+      kao(:, 2, 5,13) = (/ &
+        & 0.26822e-02_rb,0.24426e-02_rb,0.25898e-02_rb,0.27369e-02_rb,0.28725e-02_rb, &
+        & 0.29815e-02_rb,0.30039e-02_rb,0.28485e-02_rb,0.29157e-02_rb /)
+      kao(:, 3, 5,13) = (/ &
+        & 0.26829e-02_rb,0.24377e-02_rb,0.25766e-02_rb,0.27289e-02_rb,0.28648e-02_rb, &
+        & 0.29741e-02_rb,0.29940e-02_rb,0.28292e-02_rb,0.29014e-02_rb /)
+      kao(:, 4, 5,13) = (/ &
+        & 0.26816e-02_rb,0.24329e-02_rb,0.25674e-02_rb,0.27192e-02_rb,0.28602e-02_rb, &
+        & 0.29643e-02_rb,0.29808e-02_rb,0.28105e-02_rb,0.28911e-02_rb /)
+      kao(:, 5, 5,13) = (/ &
+        & 0.26776e-02_rb,0.24242e-02_rb,0.25584e-02_rb,0.27174e-02_rb,0.28631e-02_rb, &
+        & 0.29690e-02_rb,0.29916e-02_rb,0.28176e-02_rb,0.29253e-02_rb /)
+      kao(:, 1, 6,13) = (/ &
+        & 0.24590e-02_rb,0.23376e-02_rb,0.25355e-02_rb,0.26945e-02_rb,0.28553e-02_rb, &
+        & 0.29996e-02_rb,0.30574e-02_rb,0.29544e-02_rb,0.30033e-02_rb /)
+      kao(:, 2, 6,13) = (/ &
+        & 0.24565e-02_rb,0.23281e-02_rb,0.25242e-02_rb,0.26862e-02_rb,0.28495e-02_rb, &
+        & 0.29966e-02_rb,0.30559e-02_rb,0.29459e-02_rb,0.29901e-02_rb /)
+      kao(:, 3, 6,13) = (/ &
+        & 0.24594e-02_rb,0.23224e-02_rb,0.25135e-02_rb,0.26796e-02_rb,0.28441e-02_rb, &
+        & 0.29914e-02_rb,0.30494e-02_rb,0.29315e-02_rb,0.29796e-02_rb /)
+      kao(:, 4, 6,13) = (/ &
+        & 0.24561e-02_rb,0.23120e-02_rb,0.25070e-02_rb,0.26723e-02_rb,0.28398e-02_rb, &
+        & 0.29830e-02_rb,0.30431e-02_rb,0.29165e-02_rb,0.29718e-02_rb /)
+      kao(:, 5, 6,13) = (/ &
+        & 0.24544e-02_rb,0.23009e-02_rb,0.24971e-02_rb,0.26678e-02_rb,0.28335e-02_rb, &
+        & 0.29758e-02_rb,0.30342e-02_rb,0.29019e-02_rb,0.29654e-02_rb /)
+      kao(:, 1, 7,13) = (/ &
+        & 0.22277e-02_rb,0.22296e-02_rb,0.24669e-02_rb,0.26497e-02_rb,0.28285e-02_rb, &
+        & 0.29885e-02_rb,0.30855e-02_rb,0.30292e-02_rb,0.30616e-02_rb /)
+      kao(:, 2, 7,13) = (/ &
+        & 0.22293e-02_rb,0.22219e-02_rb,0.24569e-02_rb,0.26437e-02_rb,0.28247e-02_rb, &
+        & 0.29924e-02_rb,0.30879e-02_rb,0.30266e-02_rb,0.30510e-02_rb /)
+      kao(:, 3, 7,13) = (/ &
+        & 0.22351e-02_rb,0.22176e-02_rb,0.24495e-02_rb,0.26382e-02_rb,0.28222e-02_rb, &
+        & 0.29913e-02_rb,0.30877e-02_rb,0.30175e-02_rb,0.30415e-02_rb /)
+      kao(:, 4, 7,13) = (/ &
+        & 0.22344e-02_rb,0.22079e-02_rb,0.24453e-02_rb,0.26324e-02_rb,0.28192e-02_rb, &
+        & 0.29887e-02_rb,0.30862e-02_rb,0.30074e-02_rb,0.30342e-02_rb /)
+      kao(:, 5, 7,13) = (/ &
+        & 0.22361e-02_rb,0.21982e-02_rb,0.24378e-02_rb,0.26291e-02_rb,0.28143e-02_rb, &
+        & 0.29850e-02_rb,0.30822e-02_rb,0.29969e-02_rb,0.30270e-02_rb /)
+      kao(:, 1, 8,13) = (/ &
+        & 0.19878e-02_rb,0.21080e-02_rb,0.23886e-02_rb,0.26087e-02_rb,0.27952e-02_rb, &
+        & 0.29676e-02_rb,0.31003e-02_rb,0.30904e-02_rb,0.31018e-02_rb /)
+      kao(:, 2, 8,13) = (/ &
+        & 0.19936e-02_rb,0.21034e-02_rb,0.23825e-02_rb,0.26049e-02_rb,0.27978e-02_rb, &
+        & 0.29755e-02_rb,0.31107e-02_rb,0.30954e-02_rb,0.30940e-02_rb /)
+      kao(:, 3, 8,13) = (/ &
+        & 0.20012e-02_rb,0.21016e-02_rb,0.23778e-02_rb,0.26010e-02_rb,0.27982e-02_rb, &
+        & 0.29815e-02_rb,0.31166e-02_rb,0.30929e-02_rb,0.30865e-02_rb /)
+      kao(:, 4, 8,13) = (/ &
+        & 0.20034e-02_rb,0.20960e-02_rb,0.23764e-02_rb,0.25979e-02_rb,0.27992e-02_rb, &
+        & 0.29823e-02_rb,0.31192e-02_rb,0.30868e-02_rb,0.30812e-02_rb /)
+      kao(:, 5, 8,13) = (/ &
+        & 0.20095e-02_rb,0.20891e-02_rb,0.23711e-02_rb,0.25960e-02_rb,0.27964e-02_rb, &
+        & 0.29828e-02_rb,0.31181e-02_rb,0.30806e-02_rb,0.30733e-02_rb /)
+      kao(:, 1, 9,13) = (/ &
+        & 0.17523e-02_rb,0.19789e-02_rb,0.23024e-02_rb,0.25572e-02_rb,0.27629e-02_rb, &
+        & 0.29479e-02_rb,0.31085e-02_rb,0.31444e-02_rb,0.30417e-02_rb /)
+      kao(:, 2, 9,13) = (/ &
+        & 0.17607e-02_rb,0.19777e-02_rb,0.23013e-02_rb,0.25587e-02_rb,0.27691e-02_rb, &
+        & 0.29613e-02_rb,0.31227e-02_rb,0.31535e-02_rb,0.30346e-02_rb /)
+      kao(:, 3, 9,13) = (/ &
+        & 0.17693e-02_rb,0.19800e-02_rb,0.23011e-02_rb,0.25605e-02_rb,0.27739e-02_rb, &
+        & 0.29714e-02_rb,0.31329e-02_rb,0.31549e-02_rb,0.30299e-02_rb /)
+      kao(:, 4, 9,13) = (/ &
+        & 0.17751e-02_rb,0.19773e-02_rb,0.23025e-02_rb,0.25606e-02_rb,0.27770e-02_rb, &
+        & 0.29770e-02_rb,0.31405e-02_rb,0.31532e-02_rb,0.30280e-02_rb /)
+      kao(:, 5, 9,13) = (/ &
+        & 0.17845e-02_rb,0.19738e-02_rb,0.23006e-02_rb,0.25633e-02_rb,0.27766e-02_rb, &
+        & 0.29802e-02_rb,0.31452e-02_rb,0.31517e-02_rb,0.30317e-02_rb /)
+      kao(:, 1,10,13) = (/ &
+        & 0.15244e-02_rb,0.18437e-02_rb,0.22100e-02_rb,0.24972e-02_rb,0.27331e-02_rb, &
+        & 0.29304e-02_rb,0.31059e-02_rb,0.31844e-02_rb,0.23817e-04_rb /)
+      kao(:, 2,10,13) = (/ &
+        & 0.15360e-02_rb,0.18467e-02_rb,0.22145e-02_rb,0.25068e-02_rb,0.27437e-02_rb, &
+        & 0.29473e-02_rb,0.31260e-02_rb,0.31986e-02_rb,0.12454e-04_rb /)
+      kao(:, 3,10,13) = (/ &
+        & 0.15476e-02_rb,0.18512e-02_rb,0.22181e-02_rb,0.25119e-02_rb,0.27538e-02_rb, &
+        & 0.29593e-02_rb,0.31389e-02_rb,0.32042e-02_rb,0.30814e-04_rb /)
+      kao(:, 4,10,13) = (/ &
+        & 0.15571e-02_rb,0.18528e-02_rb,0.22235e-02_rb,0.25174e-02_rb,0.27591e-02_rb, &
+        & 0.29666e-02_rb,0.31497e-02_rb,0.32063e-02_rb,0.11698e-04_rb /)
+      kao(:, 5,10,13) = (/ &
+        & 0.15695e-02_rb,0.18534e-02_rb,0.22262e-02_rb,0.25236e-02_rb,0.27611e-02_rb, &
+        & 0.29733e-02_rb,0.31600e-02_rb,0.32093e-02_rb,0.22330e-04_rb /)
+      kao(:, 1,11,13) = (/ &
+        & 0.13188e-02_rb,0.17123e-02_rb,0.21150e-02_rb,0.24398e-02_rb,0.27060e-02_rb, &
+        & 0.29190e-02_rb,0.31061e-02_rb,0.32197e-02_rb,0.11689e-04_rb /)
+      kao(:, 2,11,13) = (/ &
+        & 0.13341e-02_rb,0.17189e-02_rb,0.21240e-02_rb,0.24532e-02_rb,0.27222e-02_rb, &
+        & 0.29371e-02_rb,0.31262e-02_rb,0.32338e-02_rb,0.11845e-04_rb /)
+      kao(:, 3,11,13) = (/ &
+        & 0.13447e-02_rb,0.17274e-02_rb,0.21339e-02_rb,0.24651e-02_rb,0.27343e-02_rb, &
+        & 0.29498e-02_rb,0.31430e-02_rb,0.32440e-02_rb,0.24255e-04_rb /)
+      kao(:, 4,11,13) = (/ &
+        & 0.13578e-02_rb,0.17324e-02_rb,0.21454e-02_rb,0.24765e-02_rb,0.27400e-02_rb, &
+        & 0.29585e-02_rb,0.31579e-02_rb,0.32502e-02_rb,0.35648e-04_rb /)
+      kao(:, 5,11,13) = (/ &
+        & 0.13715e-02_rb,0.17394e-02_rb,0.21518e-02_rb,0.24842e-02_rb,0.27436e-02_rb, &
+        & 0.29689e-02_rb,0.31719e-02_rb,0.32570e-02_rb,0.48216e-04_rb /)
+      kao(:, 1,12,13) = (/ &
+        & 0.11367e-02_rb,0.15942e-02_rb,0.20255e-02_rb,0.23827e-02_rb,0.26757e-02_rb, &
+        & 0.29001e-02_rb,0.30944e-02_rb,0.32386e-02_rb,0.48616e-12_rb /)
+      kao(:, 2,12,13) = (/ &
+        & 0.11495e-02_rb,0.16057e-02_rb,0.20405e-02_rb,0.24019e-02_rb,0.26965e-02_rb, &
+        & 0.29177e-02_rb,0.31160e-02_rb,0.32553e-02_rb,0.63803e-12_rb /)
+      kao(:, 3,12,13) = (/ &
+        & 0.11626e-02_rb,0.16147e-02_rb,0.20558e-02_rb,0.24193e-02_rb,0.27102e-02_rb, &
+        & 0.29330e-02_rb,0.31363e-02_rb,0.32673e-02_rb,0.18451e-04_rb /)
+      kao(:, 4,12,13) = (/ &
+        & 0.11784e-02_rb,0.16224e-02_rb,0.20681e-02_rb,0.24334e-02_rb,0.27187e-02_rb, &
+        & 0.29473e-02_rb,0.31560e-02_rb,0.32789e-02_rb,0.93725e-12_rb /)
+      kao(:, 5,12,13) = (/ &
+        & 0.11935e-02_rb,0.16327e-02_rb,0.20790e-02_rb,0.24438e-02_rb,0.27275e-02_rb, &
+        & 0.29614e-02_rb,0.31756e-02_rb,0.32901e-02_rb,0.36773e-04_rb /)
+      kao(:, 1,13,13) = (/ &
+        & 0.97386e-03_rb,0.14865e-02_rb,0.19422e-02_rb,0.23265e-02_rb,0.26377e-02_rb, &
+        & 0.28742e-02_rb,0.30758e-02_rb,0.32440e-02_rb,0.42838e-12_rb /)
+      kao(:, 2,13,13) = (/ &
+        & 0.98704e-03_rb,0.15018e-02_rb,0.19617e-02_rb,0.23518e-02_rb,0.26608e-02_rb, &
+        & 0.28955e-02_rb,0.31025e-02_rb,0.32660e-02_rb,0.54956e-12_rb /)
+      kao(:, 3,13,13) = (/ &
+        & 0.10034e-02_rb,0.15127e-02_rb,0.19822e-02_rb,0.23722e-02_rb,0.26791e-02_rb, &
+        & 0.29131e-02_rb,0.31272e-02_rb,0.32827e-02_rb,0.68281e-12_rb /)
+      kao(:, 4,13,13) = (/ &
+        & 0.10185e-02_rb,0.15248e-02_rb,0.19990e-02_rb,0.23896e-02_rb,0.26942e-02_rb, &
+        & 0.29331e-02_rb,0.31525e-02_rb,0.33003e-02_rb,0.47348e-04_rb /)
+      kao(:, 5,13,13) = (/ &
+        & 0.10353e-02_rb,0.15370e-02_rb,0.20122e-02_rb,0.24032e-02_rb,0.27096e-02_rb, &
+        & 0.29526e-02_rb,0.31774e-02_rb,0.33154e-02_rb,0.94094e-12_rb /)
+      kao(:, 1, 1,14) = (/ &
+        & 0.11127e-01_rb,0.97365e-02_rb,0.83450e-02_rb,0.69546e-02_rb,0.57518e-02_rb, &
+        & 0.48972e-02_rb,0.42517e-02_rb,0.34771e-02_rb,0.44616e-02_rb /)
+      kao(:, 2, 1,14) = (/ &
+        & 0.11168e-01_rb,0.97719e-02_rb,0.83762e-02_rb,0.69801e-02_rb,0.57613e-02_rb, &
+        & 0.48914e-02_rb,0.42324e-02_rb,0.34356e-02_rb,0.44183e-02_rb /)
+      kao(:, 3, 1,14) = (/ &
+        & 0.11206e-01_rb,0.98061e-02_rb,0.84051e-02_rb,0.70040e-02_rb,0.57786e-02_rb, &
+        & 0.48973e-02_rb,0.42300e-02_rb,0.34167e-02_rb,0.44088e-02_rb /)
+      kao(:, 4, 1,14) = (/ &
+        & 0.11230e-01_rb,0.98265e-02_rb,0.84228e-02_rb,0.70190e-02_rb,0.57794e-02_rb, &
+        & 0.48702e-02_rb,0.41927e-02_rb,0.33658e-02_rb,0.43365e-02_rb /)
+      kao(:, 5, 1,14) = (/ &
+        & 0.11247e-01_rb,0.98411e-02_rb,0.84348e-02_rb,0.70292e-02_rb,0.57800e-02_rb, &
+        & 0.48600e-02_rb,0.41735e-02_rb,0.33367e-02_rb,0.43003e-02_rb /)
+      kao(:, 1, 2,14) = (/ &
+        & 0.11360e-01_rb,0.99403e-02_rb,0.85204e-02_rb,0.71449e-02_rb,0.60754e-02_rb, &
+        & 0.53678e-02_rb,0.47333e-02_rb,0.38804e-02_rb,0.48459e-02_rb /)
+      kao(:, 2, 2,14) = (/ &
+        & 0.11402e-01_rb,0.99768e-02_rb,0.85517e-02_rb,0.71687e-02_rb,0.60816e-02_rb, &
+        & 0.53522e-02_rb,0.47062e-02_rb,0.38343e-02_rb,0.48034e-02_rb /)
+      kao(:, 3, 2,14) = (/ &
+        & 0.11432e-01_rb,0.10003e-01_rb,0.85744e-02_rb,0.71872e-02_rb,0.60934e-02_rb, &
+        & 0.53498e-02_rb,0.46968e-02_rb,0.38177e-02_rb,0.48004e-02_rb /)
+      kao(:, 4, 2,14) = (/ &
+        & 0.11460e-01_rb,0.10028e-01_rb,0.85956e-02_rb,0.72000e-02_rb,0.60909e-02_rb, &
+        & 0.53282e-02_rb,0.46686e-02_rb,0.37852e-02_rb,0.47598e-02_rb /)
+      kao(:, 5, 2,14) = (/ &
+        & 0.11484e-01_rb,0.10049e-01_rb,0.86132e-02_rb,0.72108e-02_rb,0.60794e-02_rb, &
+        & 0.52951e-02_rb,0.46284e-02_rb,0.37347e-02_rb,0.46895e-02_rb /)
+      kao(:, 1, 3,14) = (/ &
+        & 0.11375e-01_rb,0.99535e-02_rb,0.85318e-02_rb,0.72748e-02_rb,0.63965e-02_rb, &
+        & 0.58374e-02_rb,0.52215e-02_rb,0.43002e-02_rb,0.52258e-02_rb /)
+      kao(:, 2, 3,14) = (/ &
+        & 0.11412e-01_rb,0.99855e-02_rb,0.85592e-02_rb,0.72909e-02_rb,0.63926e-02_rb, &
+        & 0.58142e-02_rb,0.51838e-02_rb,0.42530e-02_rb,0.51857e-02_rb /)
+      kao(:, 3, 3,14) = (/ &
+        & 0.11451e-01_rb,0.10019e-01_rb,0.85873e-02_rb,0.73027e-02_rb,0.63856e-02_rb, &
+        & 0.57886e-02_rb,0.51485e-02_rb,0.42153e-02_rb,0.51479e-02_rb /)
+      kao(:, 4, 3,14) = (/ &
+        & 0.11483e-01_rb,0.10047e-01_rb,0.86122e-02_rb,0.73190e-02_rb,0.63840e-02_rb, &
+        & 0.57742e-02_rb,0.51342e-02_rb,0.42027e-02_rb,0.51482e-02_rb /)
+      kao(:, 5, 3,14) = (/ &
+        & 0.11512e-01_rb,0.10073e-01_rb,0.86339e-02_rb,0.73301e-02_rb,0.63706e-02_rb, &
+        & 0.57344e-02_rb,0.50899e-02_rb,0.41496e-02_rb,0.50782e-02_rb /)
+      kao(:, 1, 4,14) = (/ &
+        & 0.11149e-01_rb,0.97560e-02_rb,0.83906e-02_rb,0.73568e-02_rb,0.67050e-02_rb, &
+        & 0.62789e-02_rb,0.56809e-02_rb,0.47244e-02_rb,0.55742e-02_rb /)
+      kao(:, 2, 4,14) = (/ &
+        & 0.11201e-01_rb,0.98016e-02_rb,0.84237e-02_rb,0.73684e-02_rb,0.66927e-02_rb, &
+        & 0.62506e-02_rb,0.56398e-02_rb,0.46775e-02_rb,0.55381e-02_rb /)
+      kao(:, 3, 4,14) = (/ &
+        & 0.11250e-01_rb,0.98437e-02_rb,0.84576e-02_rb,0.73794e-02_rb,0.66793e-02_rb, &
+        & 0.62192e-02_rb,0.56018e-02_rb,0.46402e-02_rb,0.55028e-02_rb /)
+      kao(:, 4, 4,14) = (/ &
+        & 0.11293e-01_rb,0.98814e-02_rb,0.84883e-02_rb,0.73928e-02_rb,0.66658e-02_rb, &
+        & 0.61879e-02_rb,0.55699e-02_rb,0.46073e-02_rb,0.54669e-02_rb /)
+      kao(:, 5, 4,14) = (/ &
+        & 0.11341e-01_rb,0.99237e-02_rb,0.85206e-02_rb,0.74085e-02_rb,0.66636e-02_rb, &
+        & 0.61710e-02_rb,0.55548e-02_rb,0.45934e-02_rb,0.54646e-02_rb /)
+      kao(:, 1, 5,14) = (/ &
+        & 0.10704e-01_rb,0.93660e-02_rb,0.81568e-02_rb,0.74021e-02_rb,0.69945e-02_rb, &
+        & 0.66654e-02_rb,0.61172e-02_rb,0.51470e-02_rb,0.58967e-02_rb /)
+      kao(:, 2, 5,14) = (/ &
+        & 0.10771e-01_rb,0.94250e-02_rb,0.81953e-02_rb,0.74101e-02_rb,0.69769e-02_rb, &
+        & 0.66347e-02_rb,0.60743e-02_rb,0.50992e-02_rb,0.58616e-02_rb /)
+      kao(:, 3, 5,14) = (/ &
+        & 0.10834e-01_rb,0.94795e-02_rb,0.82348e-02_rb,0.74202e-02_rb,0.69586e-02_rb, &
+        & 0.66047e-02_rb,0.60376e-02_rb,0.50623e-02_rb,0.58279e-02_rb /)
+      kao(:, 4, 5,14) = (/ &
+        & 0.10899e-01_rb,0.95365e-02_rb,0.82726e-02_rb,0.74343e-02_rb,0.69400e-02_rb, &
+        & 0.65760e-02_rb,0.60076e-02_rb,0.50289e-02_rb,0.57953e-02_rb /)
+      kao(:, 5, 5,14) = (/ &
+        & 0.10965e-01_rb,0.95941e-02_rb,0.83123e-02_rb,0.74464e-02_rb,0.69292e-02_rb, &
+        & 0.65626e-02_rb,0.59940e-02_rb,0.50178e-02_rb,0.57938e-02_rb /)
+      kao(:, 1, 6,14) = (/ &
+        & 0.10078e-01_rb,0.88178e-02_rb,0.78666e-02_rb,0.74112e-02_rb,0.72308e-02_rb, &
+        & 0.70100e-02_rb,0.65312e-02_rb,0.55779e-02_rb,0.62140e-02_rb /)
+      kao(:, 2, 6,14) = (/ &
+        & 0.10161e-01_rb,0.88906e-02_rb,0.79113e-02_rb,0.74185e-02_rb,0.72160e-02_rb, &
+        & 0.69843e-02_rb,0.64888e-02_rb,0.55247e-02_rb,0.61818e-02_rb /)
+      kao(:, 3, 6,14) = (/ &
+        & 0.10243e-01_rb,0.89616e-02_rb,0.79583e-02_rb,0.74318e-02_rb,0.71999e-02_rb, &
+        & 0.69579e-02_rb,0.64523e-02_rb,0.54833e-02_rb,0.61492e-02_rb /)
+      kao(:, 4, 6,14) = (/ &
+        & 0.10327e-01_rb,0.90374e-02_rb,0.79989e-02_rb,0.74443e-02_rb,0.71832e-02_rb, &
+        & 0.69350e-02_rb,0.64210e-02_rb,0.54479e-02_rb,0.61172e-02_rb /)
+      kao(:, 5, 6,14) = (/ &
+        & 0.10409e-01_rb,0.91075e-02_rb,0.80421e-02_rb,0.74489e-02_rb,0.71645e-02_rb, &
+        & 0.69118e-02_rb,0.63952e-02_rb,0.54129e-02_rb,0.60849e-02_rb /)
+      kao(:, 1, 7,14) = (/ &
+        & 0.93799e-02_rb,0.82246e-02_rb,0.75645e-02_rb,0.73983e-02_rb,0.74124e-02_rb, &
+        & 0.73054e-02_rb,0.69103e-02_rb,0.59986e-02_rb,0.65205e-02_rb /)
+      kao(:, 2, 7,14) = (/ &
+        & 0.94746e-02_rb,0.83048e-02_rb,0.76105e-02_rb,0.74041e-02_rb,0.74008e-02_rb, &
+        & 0.72835e-02_rb,0.68745e-02_rb,0.59435e-02_rb,0.64911e-02_rb /)
+      kao(:, 3, 7,14) = (/ &
+        & 0.95665e-02_rb,0.83814e-02_rb,0.76560e-02_rb,0.74150e-02_rb,0.73885e-02_rb, &
+        & 0.72645e-02_rb,0.68399e-02_rb,0.59000e-02_rb,0.64612e-02_rb /)
+      kao(:, 4, 7,14) = (/ &
+        & 0.96610e-02_rb,0.84615e-02_rb,0.76953e-02_rb,0.74218e-02_rb,0.73786e-02_rb, &
+        & 0.72467e-02_rb,0.68110e-02_rb,0.58618e-02_rb,0.64309e-02_rb /)
+      kao(:, 5, 7,14) = (/ &
+        & 0.97576e-02_rb,0.85445e-02_rb,0.77428e-02_rb,0.74271e-02_rb,0.73666e-02_rb, &
+        & 0.72295e-02_rb,0.67856e-02_rb,0.58248e-02_rb,0.64018e-02_rb /)
+      kao(:, 1, 8,14) = (/ &
+        & 0.86695e-02_rb,0.76539e-02_rb,0.72832e-02_rb,0.73811e-02_rb,0.75539e-02_rb, &
+        & 0.75395e-02_rb,0.72391e-02_rb,0.63979e-02_rb,0.68067e-02_rb /)
+      kao(:, 2, 8,14) = (/ &
+        & 0.87714e-02_rb,0.77350e-02_rb,0.73260e-02_rb,0.73889e-02_rb,0.75481e-02_rb, &
+        & 0.75307e-02_rb,0.72059e-02_rb,0.63386e-02_rb,0.67797e-02_rb /)
+      kao(:, 3, 8,14) = (/ &
+        & 0.88648e-02_rb,0.78065e-02_rb,0.73635e-02_rb,0.73928e-02_rb,0.75428e-02_rb, &
+        & 0.75176e-02_rb,0.71786e-02_rb,0.62948e-02_rb,0.67512e-02_rb /)
+      kao(:, 4, 8,14) = (/ &
+        & 0.89696e-02_rb,0.78903e-02_rb,0.74008e-02_rb,0.73947e-02_rb,0.75364e-02_rb, &
+        & 0.75091e-02_rb,0.71562e-02_rb,0.62573e-02_rb,0.67249e-02_rb /)
+      kao(:, 5, 8,14) = (/ &
+        & 0.90827e-02_rb,0.79827e-02_rb,0.74524e-02_rb,0.74004e-02_rb,0.75307e-02_rb, &
+        & 0.75004e-02_rb,0.71406e-02_rb,0.62196e-02_rb,0.66995e-02_rb /)
+      kao(:, 1, 9,14) = (/ &
+        & 0.79522e-02_rb,0.71197e-02_rb,0.70358e-02_rb,0.73522e-02_rb,0.76328e-02_rb, &
+        & 0.77097e-02_rb,0.75175e-02_rb,0.67703e-02_rb,0.70524e-02_rb /)
+      kao(:, 2, 9,14) = (/ &
+        & 0.80598e-02_rb,0.71969e-02_rb,0.70715e-02_rb,0.73653e-02_rb,0.76374e-02_rb, &
+        & 0.77113e-02_rb,0.74908e-02_rb,0.67151e-02_rb,0.70338e-02_rb /)
+      kao(:, 3, 9,14) = (/ &
+        & 0.81632e-02_rb,0.72678e-02_rb,0.71027e-02_rb,0.73712e-02_rb,0.76458e-02_rb, &
+        & 0.77123e-02_rb,0.74742e-02_rb,0.66728e-02_rb,0.70182e-02_rb /)
+      kao(:, 4, 9,14) = (/ &
+        & 0.82823e-02_rb,0.73561e-02_rb,0.71392e-02_rb,0.73768e-02_rb,0.76576e-02_rb, &
+        & 0.77143e-02_rb,0.74622e-02_rb,0.66357e-02_rb,0.69991e-02_rb /)
+      kao(:, 5, 9,14) = (/ &
+        & 0.84105e-02_rb,0.74558e-02_rb,0.71910e-02_rb,0.73874e-02_rb,0.76648e-02_rb, &
+        & 0.77180e-02_rb,0.74509e-02_rb,0.65977e-02_rb,0.69736e-02_rb /)
+      kao(:, 1,10,14) = (/ &
+        & 0.72630e-02_rb,0.66377e-02_rb,0.68373e-02_rb,0.72984e-02_rb,0.76509e-02_rb, &
+        & 0.78294e-02_rb,0.77460e-02_rb,0.71207e-02_rb,0.20344e-04_rb /)
+      kao(:, 2,10,14) = (/ &
+        & 0.73671e-02_rb,0.67055e-02_rb,0.68587e-02_rb,0.73198e-02_rb,0.76710e-02_rb, &
+        & 0.78437e-02_rb,0.77323e-02_rb,0.70655e-02_rb,0.20564e-04_rb /)
+      kao(:, 3,10,14) = (/ &
+        & 0.74810e-02_rb,0.67793e-02_rb,0.68858e-02_rb,0.73353e-02_rb,0.76947e-02_rb, &
+        & 0.78590e-02_rb,0.77307e-02_rb,0.70272e-02_rb,0.37563e-05_rb /)
+      kao(:, 4,10,14) = (/ &
+        & 0.76171e-02_rb,0.68754e-02_rb,0.69230e-02_rb,0.73502e-02_rb,0.77241e-02_rb, &
+        & 0.78765e-02_rb,0.77271e-02_rb,0.69915e-02_rb,0.47236e-05_rb /)
+      kao(:, 5,10,14) = (/ &
+        & 0.77608e-02_rb,0.69811e-02_rb,0.69732e-02_rb,0.73676e-02_rb,0.77455e-02_rb, &
+        & 0.78941e-02_rb,0.77236e-02_rb,0.69531e-02_rb,0.26047e-04_rb /)
+      kao(:, 1,11,14) = (/ &
+        & 0.66493e-02_rb,0.62366e-02_rb,0.66807e-02_rb,0.72344e-02_rb,0.76404e-02_rb, &
+        & 0.79217e-02_rb,0.79405e-02_rb,0.74097e-02_rb,0.00000e+00_rb /)
+      kao(:, 2,11,14) = (/ &
+        & 0.67616e-02_rb,0.63044e-02_rb,0.67053e-02_rb,0.72656e-02_rb,0.76819e-02_rb, &
+        & 0.79515e-02_rb,0.79506e-02_rb,0.73718e-02_rb,0.18408e-04_rb /)
+      kao(:, 3,11,14) = (/ &
+        & 0.69005e-02_rb,0.63894e-02_rb,0.67349e-02_rb,0.72931e-02_rb,0.77291e-02_rb, &
+        & 0.79845e-02_rb,0.79576e-02_rb,0.73388e-02_rb,0.37607e-04_rb /)
+      kao(:, 4,11,14) = (/ &
+        & 0.70530e-02_rb,0.64912e-02_rb,0.67712e-02_rb,0.73223e-02_rb,0.77726e-02_rb, &
+        & 0.80170e-02_rb,0.79618e-02_rb,0.73054e-02_rb,0.56367e-04_rb /)
+      kao(:, 5,11,14) = (/ &
+        & 0.72039e-02_rb,0.65911e-02_rb,0.68118e-02_rb,0.73572e-02_rb,0.78096e-02_rb, &
+        & 0.80477e-02_rb,0.79648e-02_rb,0.72708e-02_rb,0.00000e+00_rb /)
+      kao(:, 1,12,14) = (/ &
+        & 0.60858e-02_rb,0.58916e-02_rb,0.65335e-02_rb,0.71525e-02_rb,0.76284e-02_rb, &
+        & 0.80006e-02_rb,0.81294e-02_rb,0.76675e-02_rb,0.58588e-04_rb /)
+      kao(:, 2,12,14) = (/ &
+        & 0.62191e-02_rb,0.59612e-02_rb,0.65675e-02_rb,0.71998e-02_rb,0.76898e-02_rb, &
+        & 0.80500e-02_rb,0.81534e-02_rb,0.76479e-02_rb,0.00000e+00_rb /)
+      kao(:, 3,12,14) = (/ &
+        & 0.63725e-02_rb,0.60546e-02_rb,0.66095e-02_rb,0.72445e-02_rb,0.77558e-02_rb, &
+        & 0.80973e-02_rb,0.81695e-02_rb,0.76255e-02_rb,0.29841e-04_rb /)
+      kao(:, 4,12,14) = (/ &
+        & 0.65241e-02_rb,0.61494e-02_rb,0.66519e-02_rb,0.72916e-02_rb,0.78126e-02_rb, &
+        & 0.81445e-02_rb,0.81839e-02_rb,0.75955e-02_rb,0.00000e+00_rb /)
+      kao(:, 5,12,14) = (/ &
+        & 0.66908e-02_rb,0.62534e-02_rb,0.66904e-02_rb,0.73429e-02_rb,0.78615e-02_rb, &
+        & 0.81879e-02_rb,0.81898e-02_rb,0.75652e-02_rb,0.00000e+00_rb /)
+      kao(:, 1,13,14) = (/ &
+        & 0.55891e-02_rb,0.56116e-02_rb,0.63936e-02_rb,0.70621e-02_rb,0.76241e-02_rb, &
+        & 0.80837e-02_rb,0.82964e-02_rb,0.79007e-02_rb,0.00000e+00_rb /)
+      kao(:, 2,13,14) = (/ &
+        & 0.57354e-02_rb,0.56825e-02_rb,0.64439e-02_rb,0.71280e-02_rb,0.77039e-02_rb, &
+        & 0.81460e-02_rb,0.83322e-02_rb,0.78896e-02_rb,0.38090e-04_rb /)
+      kao(:, 3,13,14) = (/ &
+        & 0.58847e-02_rb,0.57651e-02_rb,0.64971e-02_rb,0.71963e-02_rb,0.77792e-02_rb, &
+        & 0.82047e-02_rb,0.83632e-02_rb,0.78746e-02_rb,0.00000e+00_rb /)
+      kao(:, 4,13,14) = (/ &
+        & 0.60503e-02_rb,0.58579e-02_rb,0.65448e-02_rb,0.72663e-02_rb,0.78467e-02_rb, &
+        & 0.82617e-02_rb,0.83886e-02_rb,0.78555e-02_rb,0.00000e+00_rb /)
+      kao(:, 5,13,14) = (/ &
+        & 0.62326e-02_rb,0.59678e-02_rb,0.65939e-02_rb,0.73313e-02_rb,0.79071e-02_rb, &
+        & 0.83133e-02_rb,0.83975e-02_rb,0.78294e-02_rb,0.00000e+00_rb /)
+      kao(:, 1, 1,15) = (/ &
+        & 0.22784e-01_rb,0.19937e-01_rb,0.17089e-01_rb,0.14240e-01_rb,0.11393e-01_rb, &
+        & 0.85439e-02_rb,0.62360e-02_rb,0.50515e-02_rb,0.76952e-02_rb /)
+      kao(:, 2, 1,15) = (/ &
+        & 0.22781e-01_rb,0.19933e-01_rb,0.17085e-01_rb,0.14238e-01_rb,0.11390e-01_rb, &
+        & 0.85426e-02_rb,0.62118e-02_rb,0.49990e-02_rb,0.75953e-02_rb /)
+      kao(:, 3, 1,15) = (/ &
+        & 0.22781e-01_rb,0.19934e-01_rb,0.17086e-01_rb,0.14239e-01_rb,0.11390e-01_rb, &
+        & 0.85428e-02_rb,0.62149e-02_rb,0.49913e-02_rb,0.75531e-02_rb /)
+      kao(:, 4, 1,15) = (/ &
+        & 0.22807e-01_rb,0.19955e-01_rb,0.17104e-01_rb,0.14253e-01_rb,0.11403e-01_rb, &
+        & 0.85521e-02_rb,0.61662e-02_rb,0.48921e-02_rb,0.74213e-02_rb /)
+      kao(:, 5, 1,15) = (/ &
+        & 0.22846e-01_rb,0.19991e-01_rb,0.17134e-01_rb,0.14278e-01_rb,0.11422e-01_rb, &
+        & 0.85672e-02_rb,0.61477e-02_rb,0.48442e-02_rb,0.73437e-02_rb /)
+      kao(:, 1, 2,15) = (/ &
+        & 0.25963e-01_rb,0.22716e-01_rb,0.19471e-01_rb,0.16227e-01_rb,0.12981e-01_rb, &
+        & 0.97432e-02_rb,0.72799e-02_rb,0.58913e-02_rb,0.89930e-02_rb /)
+      kao(:, 2, 2,15) = (/ &
+        & 0.25957e-01_rb,0.22712e-01_rb,0.19468e-01_rb,0.16223e-01_rb,0.12978e-01_rb, &
+        & 0.97376e-02_rb,0.72409e-02_rb,0.58243e-02_rb,0.88738e-02_rb /)
+      kao(:, 3, 2,15) = (/ &
+        & 0.25967e-01_rb,0.22721e-01_rb,0.19475e-01_rb,0.16229e-01_rb,0.12984e-01_rb, &
+        & 0.97376e-02_rb,0.72294e-02_rb,0.57970e-02_rb,0.88082e-02_rb /)
+      kao(:, 4, 2,15) = (/ &
+        & 0.25991e-01_rb,0.22741e-01_rb,0.19493e-01_rb,0.16243e-01_rb,0.12995e-01_rb, &
+        & 0.97464e-02_rb,0.71939e-02_rb,0.57194e-02_rb,0.86974e-02_rb /)
+      kao(:, 5, 2,15) = (/ &
+        & 0.26012e-01_rb,0.22759e-01_rb,0.19508e-01_rb,0.16256e-01_rb,0.13005e-01_rb, &
+        & 0.97539e-02_rb,0.71378e-02_rb,0.56167e-02_rb,0.85506e-02_rb /)
+      kao(:, 1, 3,15) = (/ &
+        & 0.29273e-01_rb,0.25614e-01_rb,0.21954e-01_rb,0.18296e-01_rb,0.14638e-01_rb, &
+        & 0.11059e-01_rb,0.84536e-02_rb,0.68488e-02_rb,0.10453e-01_rb /)
+      kao(:, 2, 3,15) = (/ &
+        & 0.29273e-01_rb,0.25613e-01_rb,0.21954e-01_rb,0.18296e-01_rb,0.14636e-01_rb, &
+        & 0.11040e-01_rb,0.84006e-02_rb,0.67671e-02_rb,0.10308e-01_rb /)
+      kao(:, 3, 3,15) = (/ &
+        & 0.29281e-01_rb,0.25620e-01_rb,0.21957e-01_rb,0.18299e-01_rb,0.14639e-01_rb, &
+        & 0.11029e-01_rb,0.83532e-02_rb,0.66803e-02_rb,0.10170e-01_rb /)
+      kao(:, 4, 3,15) = (/ &
+        & 0.29284e-01_rb,0.25622e-01_rb,0.21963e-01_rb,0.18303e-01_rb,0.14642e-01_rb, &
+        & 0.11027e-01_rb,0.83265e-02_rb,0.66328e-02_rb,0.10072e-01_rb /)
+      kao(:, 5, 3,15) = (/ &
+        & 0.29273e-01_rb,0.25615e-01_rb,0.21955e-01_rb,0.18297e-01_rb,0.14636e-01_rb, &
+        & 0.11016e-01_rb,0.82524e-02_rb,0.65141e-02_rb,0.98927e-02_rb /)
+      kao(:, 1, 4,15) = (/ &
+        & 0.32689e-01_rb,0.28601e-01_rb,0.24517e-01_rb,0.20431e-01_rb,0.16343e-01_rb, &
+        & 0.12498e-01_rb,0.97860e-02_rb,0.79359e-02_rb,0.11964e-01_rb /)
+      kao(:, 2, 4,15) = (/ &
+        & 0.32673e-01_rb,0.28590e-01_rb,0.24505e-01_rb,0.20420e-01_rb,0.16336e-01_rb, &
+        & 0.12462e-01_rb,0.97090e-02_rb,0.78356e-02_rb,0.11793e-01_rb /)
+      kao(:, 3, 4,15) = (/ &
+        & 0.32657e-01_rb,0.28575e-01_rb,0.24494e-01_rb,0.20410e-01_rb,0.16330e-01_rb, &
+        & 0.12434e-01_rb,0.96384e-02_rb,0.77321e-02_rb,0.11625e-01_rb /)
+      kao(:, 4, 4,15) = (/ &
+        & 0.32631e-01_rb,0.28553e-01_rb,0.24473e-01_rb,0.20396e-01_rb,0.16316e-01_rb, &
+        & 0.12404e-01_rb,0.95671e-02_rb,0.76286e-02_rb,0.11457e-01_rb /)
+      kao(:, 5, 4,15) = (/ &
+        & 0.32595e-01_rb,0.28521e-01_rb,0.24445e-01_rb,0.20372e-01_rb,0.16297e-01_rb, &
+        & 0.12376e-01_rb,0.95137e-02_rb,0.75694e-02_rb,0.11318e-01_rb /)
+      kao(:, 1, 5,15) = (/ &
+        & 0.36129e-01_rb,0.31613e-01_rb,0.27097e-01_rb,0.22582e-01_rb,0.18065e-01_rb, &
+        & 0.14059e-01_rb,0.11253e-01_rb,0.91497e-02_rb,0.13513e-01_rb /)
+      kao(:, 2, 5,15) = (/ &
+        & 0.36091e-01_rb,0.31580e-01_rb,0.27068e-01_rb,0.22557e-01_rb,0.18046e-01_rb, &
+        & 0.13996e-01_rb,0.11159e-01_rb,0.90273e-02_rb,0.13314e-01_rb /)
+      kao(:, 3, 5,15) = (/ &
+        & 0.36050e-01_rb,0.31543e-01_rb,0.27038e-01_rb,0.22530e-01_rb,0.18025e-01_rb, &
+        & 0.13938e-01_rb,0.11057e-01_rb,0.89022e-02_rb,0.13117e-01_rb /)
+      kao(:, 4, 5,15) = (/ &
+        & 0.35994e-01_rb,0.31496e-01_rb,0.26994e-01_rb,0.22495e-01_rb,0.17996e-01_rb, &
+        & 0.13877e-01_rb,0.10953e-01_rb,0.87755e-02_rb,0.12914e-01_rb /)
+      kao(:, 5, 5,15) = (/ &
+        & 0.35944e-01_rb,0.31450e-01_rb,0.26957e-01_rb,0.22466e-01_rb,0.17973e-01_rb, &
+        & 0.13819e-01_rb,0.10863e-01_rb,0.86942e-02_rb,0.12744e-01_rb /)
+      kao(:, 1, 6,15) = (/ &
+        & 0.39506e-01_rb,0.34566e-01_rb,0.29627e-01_rb,0.24691e-01_rb,0.19819e-01_rb, &
+        & 0.15734e-01_rb,0.12852e-01_rb,0.10482e-01_rb,0.15100e-01_rb /)
+      kao(:, 2, 6,15) = (/ &
+        & 0.39438e-01_rb,0.34510e-01_rb,0.29581e-01_rb,0.24651e-01_rb,0.19767e-01_rb, &
+        & 0.15626e-01_rb,0.12723e-01_rb,0.10339e-01_rb,0.14869e-01_rb /)
+      kao(:, 3, 6,15) = (/ &
+        & 0.39363e-01_rb,0.34443e-01_rb,0.29524e-01_rb,0.24601e-01_rb,0.19714e-01_rb, &
+        & 0.15531e-01_rb,0.12593e-01_rb,0.10189e-01_rb,0.14636e-01_rb /)
+      kao(:, 4, 6,15) = (/ &
+        & 0.39295e-01_rb,0.34380e-01_rb,0.29468e-01_rb,0.24559e-01_rb,0.19663e-01_rb, &
+        & 0.15432e-01_rb,0.12453e-01_rb,0.10038e-01_rb,0.14402e-01_rb /)
+      kao(:, 5, 6,15) = (/ &
+        & 0.39232e-01_rb,0.34326e-01_rb,0.29423e-01_rb,0.24518e-01_rb,0.19622e-01_rb, &
+        & 0.15336e-01_rb,0.12308e-01_rb,0.98939e-02_rb,0.14172e-01_rb /)
+      kao(:, 1, 7,15) = (/ &
+        & 0.42642e-01_rb,0.37314e-01_rb,0.31983e-01_rb,0.26652e-01_rb,0.21609e-01_rb, &
+        & 0.17542e-01_rb,0.14584e-01_rb,0.11924e-01_rb,0.16714e-01_rb /)
+      kao(:, 2, 7,15) = (/ &
+        & 0.42588e-01_rb,0.37267e-01_rb,0.31942e-01_rb,0.26620e-01_rb,0.21537e-01_rb, &
+        & 0.17385e-01_rb,0.14405e-01_rb,0.11750e-01_rb,0.16453e-01_rb /)
+      kao(:, 3, 7,15) = (/ &
+        & 0.42519e-01_rb,0.37203e-01_rb,0.31888e-01_rb,0.26575e-01_rb,0.21450e-01_rb, &
+        & 0.17237e-01_rb,0.14233e-01_rb,0.11569e-01_rb,0.16190e-01_rb /)
+      kao(:, 4, 7,15) = (/ &
+        & 0.42450e-01_rb,0.37145e-01_rb,0.31837e-01_rb,0.26531e-01_rb,0.21364e-01_rb, &
+        & 0.17089e-01_rb,0.14051e-01_rb,0.11390e-01_rb,0.15924e-01_rb /)
+      kao(:, 5, 7,15) = (/ &
+        & 0.42372e-01_rb,0.37075e-01_rb,0.31780e-01_rb,0.26482e-01_rb,0.21293e-01_rb, &
+        & 0.16947e-01_rb,0.13866e-01_rb,0.11216e-01_rb,0.15662e-01_rb /)
+      kao(:, 1, 8,15) = (/ &
+        & 0.45438e-01_rb,0.39757e-01_rb,0.34077e-01_rb,0.28427e-01_rb,0.23418e-01_rb, &
+        & 0.19456e-01_rb,0.16427e-01_rb,0.13456e-01_rb,0.18359e-01_rb /)
+      kao(:, 2, 8,15) = (/ &
+        & 0.45420e-01_rb,0.39742e-01_rb,0.34065e-01_rb,0.28396e-01_rb,0.23308e-01_rb, &
+        & 0.19242e-01_rb,0.16196e-01_rb,0.13253e-01_rb,0.18076e-01_rb /)
+      kao(:, 3, 8,15) = (/ &
+        & 0.45404e-01_rb,0.39728e-01_rb,0.34054e-01_rb,0.28379e-01_rb,0.23190e-01_rb, &
+        & 0.19044e-01_rb,0.15968e-01_rb,0.13036e-01_rb,0.17789e-01_rb /)
+      kao(:, 4, 8,15) = (/ &
+        & 0.45355e-01_rb,0.39684e-01_rb,0.34015e-01_rb,0.28348e-01_rb,0.23074e-01_rb, &
+        & 0.18841e-01_rb,0.15735e-01_rb,0.12818e-01_rb,0.17487e-01_rb /)
+      kao(:, 5, 8,15) = (/ &
+        & 0.45268e-01_rb,0.39604e-01_rb,0.33951e-01_rb,0.28294e-01_rb,0.22964e-01_rb, &
+        & 0.18639e-01_rb,0.15495e-01_rb,0.12608e-01_rb,0.17187e-01_rb /)
+      kao(:, 1, 9,15) = (/ &
+        & 0.47828e-01_rb,0.41848e-01_rb,0.35870e-01_rb,0.30096e-01_rb,0.25238e-01_rb, &
+        & 0.21453e-01_rb,0.18348e-01_rb,0.15048e-01_rb,0.20030e-01_rb /)
+      kao(:, 2, 9,15) = (/ &
+        & 0.47883e-01_rb,0.41899e-01_rb,0.35911e-01_rb,0.30061e-01_rb,0.25102e-01_rb, &
+        & 0.21178e-01_rb,0.18071e-01_rb,0.14812e-01_rb,0.19720e-01_rb /)
+      kao(:, 3, 9,15) = (/ &
+        & 0.47917e-01_rb,0.41930e-01_rb,0.35941e-01_rb,0.30033e-01_rb,0.24934e-01_rb, &
+        & 0.20917e-01_rb,0.17786e-01_rb,0.14566e-01_rb,0.19396e-01_rb /)
+      kao(:, 4, 9,15) = (/ &
+        & 0.47914e-01_rb,0.41927e-01_rb,0.35936e-01_rb,0.29997e-01_rb,0.24771e-01_rb, &
+        & 0.20657e-01_rb,0.17491e-01_rb,0.14311e-01_rb,0.19056e-01_rb /)
+      kao(:, 5, 9,15) = (/ &
+        & 0.47853e-01_rb,0.41872e-01_rb,0.35889e-01_rb,0.29935e-01_rb,0.24616e-01_rb, &
+        & 0.20393e-01_rb,0.17196e-01_rb,0.14061e-01_rb,0.18721e-01_rb /)
+      kao(:, 1,10,15) = (/ &
+        & 0.49786e-01_rb,0.43562e-01_rb,0.37346e-01_rb,0.31673e-01_rb,0.27058e-01_rb, &
+        & 0.23446e-01_rb,0.20298e-01_rb,0.16634e-01_rb,0.20401e-01_rb /)
+      kao(:, 2,10,15) = (/ &
+        & 0.49957e-01_rb,0.43713e-01_rb,0.37470e-01_rb,0.31624e-01_rb,0.26879e-01_rb, &
+        & 0.23121e-01_rb,0.19962e-01_rb,0.16379e-01_rb,0.19980e-01_rb /)
+      kao(:, 3,10,15) = (/ &
+        & 0.50073e-01_rb,0.43811e-01_rb,0.37553e-01_rb,0.31591e-01_rb,0.26668e-01_rb, &
+        & 0.22810e-01_rb,0.19616e-01_rb,0.16101e-01_rb,0.19150e-01_rb /)
+      kao(:, 4,10,15) = (/ &
+        & 0.50104e-01_rb,0.43839e-01_rb,0.37576e-01_rb,0.31542e-01_rb,0.26451e-01_rb, &
+        & 0.22487e-01_rb,0.19263e-01_rb,0.15810e-01_rb,0.18309e-01_rb /)
+      kao(:, 5,10,15) = (/ &
+        & 0.50083e-01_rb,0.43821e-01_rb,0.37560e-01_rb,0.31463e-01_rb,0.26247e-01_rb, &
+        & 0.22153e-01_rb,0.18906e-01_rb,0.15516e-01_rb,0.17790e-01_rb /)
+      kao(:, 1,11,15) = (/ &
+        & 0.51449e-01_rb,0.45016e-01_rb,0.38642e-01_rb,0.33136e-01_rb,0.28759e-01_rb, &
+        & 0.25254e-01_rb,0.22053e-01_rb,0.18120e-01_rb,0.53897e-02_rb /)
+      kao(:, 2,11,15) = (/ &
+        & 0.51718e-01_rb,0.45255e-01_rb,0.38815e-01_rb,0.33090e-01_rb,0.28517e-01_rb, &
+        & 0.24894e-01_rb,0.21659e-01_rb,0.17825e-01_rb,0.47196e-02_rb /)
+      kao(:, 3,11,15) = (/ &
+        & 0.51885e-01_rb,0.45397e-01_rb,0.38919e-01_rb,0.33034e-01_rb,0.28248e-01_rb, &
+        & 0.24520e-01_rb,0.21252e-01_rb,0.17499e-01_rb,0.36639e-02_rb /)
+      kao(:, 4,11,15) = (/ &
+        & 0.51965e-01_rb,0.45468e-01_rb,0.38969e-01_rb,0.32946e-01_rb,0.27987e-01_rb, &
+        & 0.24125e-01_rb,0.20834e-01_rb,0.17164e-01_rb,0.30436e-02_rb /)
+      kao(:, 5,11,15) = (/ &
+        & 0.52007e-01_rb,0.45508e-01_rb,0.39008e-01_rb,0.32828e-01_rb,0.27732e-01_rb, &
+        & 0.23720e-01_rb,0.20415e-01_rb,0.16822e-01_rb,0.23024e-02_rb /)
+      kao(:, 1,12,15) = (/ &
+        & 0.52772e-01_rb,0.46179e-01_rb,0.39786e-01_rb,0.34518e-01_rb,0.30341e-01_rb, &
+        & 0.26996e-01_rb,0.23719e-01_rb,0.19625e-01_rb,0.00000e+00_rb /)
+      kao(:, 2,12,15) = (/ &
+        & 0.53131e-01_rb,0.46489e-01_rb,0.39976e-01_rb,0.34451e-01_rb,0.30050e-01_rb, &
+        & 0.26583e-01_rb,0.23271e-01_rb,0.19259e-01_rb,0.79250e-04_rb /)
+      kao(:, 3,12,15) = (/ &
+        & 0.53372e-01_rb,0.46707e-01_rb,0.40090e-01_rb,0.34369e-01_rb,0.29734e-01_rb, &
+        & 0.26140e-01_rb,0.22802e-01_rb,0.18870e-01_rb,0.00000e+00_rb /)
+      kao(:, 4,12,15) = (/ &
+        & 0.53549e-01_rb,0.46855e-01_rb,0.40175e-01_rb,0.34238e-01_rb,0.29424e-01_rb, &
+        & 0.25661e-01_rb,0.22318e-01_rb,0.18486e-01_rb,0.00000e+00_rb /)
+      kao(:, 5,12,15) = (/ &
+        & 0.53641e-01_rb,0.46944e-01_rb,0.40238e-01_rb,0.34087e-01_rb,0.29108e-01_rb, &
+        & 0.25184e-01_rb,0.21836e-01_rb,0.18091e-01_rb,0.00000e+00_rb /)
+      kao(:, 1,13,15) = (/ &
+        & 0.53794e-01_rb,0.47070e-01_rb,0.40802e-01_rb,0.35804e-01_rb,0.31808e-01_rb, &
+        & 0.28611e-01_rb,0.25317e-01_rb,0.21103e-01_rb,0.00000e+00_rb /)
+      kao(:, 2,13,15) = (/ &
+        & 0.54248e-01_rb,0.47468e-01_rb,0.40994e-01_rb,0.35717e-01_rb,0.31468e-01_rb, &
+        & 0.28147e-01_rb,0.24800e-01_rb,0.20666e-01_rb,0.99549e-04_rb /)
+      kao(:, 3,13,15) = (/ &
+        & 0.54616e-01_rb,0.47795e-01_rb,0.41127e-01_rb,0.35591e-01_rb,0.31112e-01_rb, &
+        & 0.27634e-01_rb,0.24251e-01_rb,0.20223e-01_rb,0.00000e+00_rb /)
+      kao(:, 4,13,15) = (/ &
+        & 0.54881e-01_rb,0.48017e-01_rb,0.41234e-01_rb,0.35410e-01_rb,0.30749e-01_rb, &
+        & 0.27090e-01_rb,0.23692e-01_rb,0.19766e-01_rb,0.00000e+00_rb /)
+      kao(:, 5,13,15) = (/ &
+        & 0.55030e-01_rb,0.48150e-01_rb,0.41295e-01_rb,0.35229e-01_rb,0.30369e-01_rb, &
+        & 0.26544e-01_rb,0.23150e-01_rb,0.19313e-01_rb,0.00000e+00_rb /)
+      kao(:, 1, 1,16) = (/ &
+        & 0.31412e-01_rb,0.27484e-01_rb,0.23556e-01_rb,0.19630e-01_rb,0.15703e-01_rb, &
+        & 0.11777e-01_rb,0.78503e-02_rb,0.63859e-02_rb,0.10546e-01_rb /)
+      kao(:, 2, 1,16) = (/ &
+        & 0.31306e-01_rb,0.27393e-01_rb,0.23480e-01_rb,0.19566e-01_rb,0.15652e-01_rb, &
+        & 0.11737e-01_rb,0.78244e-02_rb,0.64039e-02_rb,0.10543e-01_rb /)
+      kao(:, 3, 1,16) = (/ &
+        & 0.31189e-01_rb,0.27291e-01_rb,0.23390e-01_rb,0.19492e-01_rb,0.15594e-01_rb, &
+        & 0.11694e-01_rb,0.77949e-02_rb,0.65607e-02_rb,0.10621e-01_rb /)
+      kao(:, 4, 1,16) = (/ &
+        & 0.31060e-01_rb,0.27175e-01_rb,0.23293e-01_rb,0.19412e-01_rb,0.15526e-01_rb, &
+        & 0.11645e-01_rb,0.77621e-02_rb,0.64197e-02_rb,0.10470e-01_rb /)
+      kao(:, 5, 1,16) = (/ &
+        & 0.30934e-01_rb,0.27069e-01_rb,0.23201e-01_rb,0.19334e-01_rb,0.15466e-01_rb, &
+        & 0.11599e-01_rb,0.77309e-02_rb,0.64181e-02_rb,0.10407e-01_rb /)
+      kao(:, 1, 2,16) = (/ &
+        & 0.37345e-01_rb,0.32673e-01_rb,0.28007e-01_rb,0.23341e-01_rb,0.18670e-01_rb, &
+        & 0.14002e-01_rb,0.93330e-02_rb,0.76035e-02_rb,0.12759e-01_rb /)
+      kao(:, 2, 2,16) = (/ &
+        & 0.37160e-01_rb,0.32513e-01_rb,0.27871e-01_rb,0.23225e-01_rb,0.18579e-01_rb, &
+        & 0.13933e-01_rb,0.92868e-02_rb,0.75902e-02_rb,0.12702e-01_rb /)
+      kao(:, 3, 2,16) = (/ &
+        & 0.36977e-01_rb,0.32353e-01_rb,0.27732e-01_rb,0.23111e-01_rb,0.18487e-01_rb, &
+        & 0.13864e-01_rb,0.92415e-02_rb,0.77168e-02_rb,0.12729e-01_rb /)
+      kao(:, 4, 2,16) = (/ &
+        & 0.36807e-01_rb,0.32204e-01_rb,0.27602e-01_rb,0.23002e-01_rb,0.18402e-01_rb, &
+        & 0.13798e-01_rb,0.91981e-02_rb,0.77023e-02_rb,0.12641e-01_rb /)
+      kao(:, 5, 2,16) = (/ &
+        & 0.36620e-01_rb,0.32046e-01_rb,0.27465e-01_rb,0.22887e-01_rb,0.18309e-01_rb, &
+        & 0.13731e-01_rb,0.91527e-02_rb,0.75684e-02_rb,0.12457e-01_rb /)
+      kao(:, 1, 3,16) = (/ &
+        & 0.44232e-01_rb,0.38700e-01_rb,0.33173e-01_rb,0.27644e-01_rb,0.22114e-01_rb, &
+        & 0.16581e-01_rb,0.11054e-01_rb,0.91028e-02_rb,0.15510e-01_rb /)
+      kao(:, 2, 3,16) = (/ &
+        & 0.43957e-01_rb,0.38463e-01_rb,0.32969e-01_rb,0.27474e-01_rb,0.21977e-01_rb, &
+        & 0.16483e-01_rb,0.10987e-01_rb,0.90298e-02_rb,0.15354e-01_rb /)
+      kao(:, 3, 3,16) = (/ &
+        & 0.43680e-01_rb,0.38217e-01_rb,0.32756e-01_rb,0.27297e-01_rb,0.21838e-01_rb, &
+        & 0.16376e-01_rb,0.10918e-01_rb,0.89896e-02_rb,0.15195e-01_rb /)
+      kao(:, 4, 3,16) = (/ &
+        & 0.43409e-01_rb,0.37982e-01_rb,0.32556e-01_rb,0.27128e-01_rb,0.21703e-01_rb, &
+        & 0.16277e-01_rb,0.10849e-01_rb,0.90630e-02_rb,0.15090e-01_rb /)
+      kao(:, 5, 3,16) = (/ &
+        & 0.43148e-01_rb,0.37757e-01_rb,0.32362e-01_rb,0.26967e-01_rb,0.21574e-01_rb, &
+        & 0.16179e-01_rb,0.10784e-01_rb,0.89323e-02_rb,0.14861e-01_rb /)
+      kao(:, 1, 4,16) = (/ &
+        & 0.52173e-01_rb,0.45650e-01_rb,0.39129e-01_rb,0.32609e-01_rb,0.26084e-01_rb, &
+        & 0.19564e-01_rb,0.13063e-01_rb,0.10928e-01_rb,0.18665e-01_rb /)
+      kao(:, 2, 4,16) = (/ &
+        & 0.51767e-01_rb,0.45298e-01_rb,0.38824e-01_rb,0.32358e-01_rb,0.25882e-01_rb, &
+        & 0.19411e-01_rb,0.12948e-01_rb,0.10795e-01_rb,0.18386e-01_rb /)
+      kao(:, 3, 4,16) = (/ &
+        & 0.51358e-01_rb,0.44935e-01_rb,0.38514e-01_rb,0.32093e-01_rb,0.25677e-01_rb, &
+        & 0.19255e-01_rb,0.12843e-01_rb,0.10694e-01_rb,0.18120e-01_rb /)
+      kao(:, 4, 4,16) = (/ &
+        & 0.50955e-01_rb,0.44587e-01_rb,0.38218e-01_rb,0.31847e-01_rb,0.25475e-01_rb, &
+        & 0.19107e-01_rb,0.12737e-01_rb,0.10607e-01_rb,0.17851e-01_rb /)
+      kao(:, 5, 4,16) = (/ &
+        & 0.50544e-01_rb,0.44227e-01_rb,0.37909e-01_rb,0.31588e-01_rb,0.25270e-01_rb, &
+        & 0.18952e-01_rb,0.12634e-01_rb,0.10599e-01_rb,0.17618e-01_rb /)
+      kao(:, 1, 5,16) = (/ &
+        & 0.61214e-01_rb,0.53565e-01_rb,0.45917e-01_rb,0.38262e-01_rb,0.30607e-01_rb, &
+        & 0.22954e-01_rb,0.15462e-01_rb,0.13125e-01_rb,0.22278e-01_rb /)
+      kao(:, 2, 5,16) = (/ &
+        & 0.60651e-01_rb,0.53068e-01_rb,0.45484e-01_rb,0.37903e-01_rb,0.30322e-01_rb, &
+        & 0.22741e-01_rb,0.15244e-01_rb,0.12927e-01_rb,0.21870e-01_rb /)
+      kao(:, 3, 5,16) = (/ &
+        & 0.60040e-01_rb,0.52533e-01_rb,0.45028e-01_rb,0.37524e-01_rb,0.30019e-01_rb, &
+        & 0.22514e-01_rb,0.15074e-01_rb,0.12758e-01_rb,0.21465e-01_rb /)
+      kao(:, 4, 5,16) = (/ &
+        & 0.59437e-01_rb,0.52006e-01_rb,0.44573e-01_rb,0.37145e-01_rb,0.29715e-01_rb, &
+        & 0.22286e-01_rb,0.14911e-01_rb,0.12602e-01_rb,0.21062e-01_rb /)
+      kao(:, 5, 5,16) = (/ &
+        & 0.58809e-01_rb,0.51461e-01_rb,0.44106e-01_rb,0.36755e-01_rb,0.29405e-01_rb, &
+        & 0.22053e-01_rb,0.14746e-01_rb,0.12499e-01_rb,0.20685e-01_rb /)
+      kao(:, 1, 6,16) = (/ &
+        & 0.71375e-01_rb,0.62451e-01_rb,0.53529e-01_rb,0.44607e-01_rb,0.35687e-01_rb, &
+        & 0.26759e-01_rb,0.18273e-01_rb,0.15758e-01_rb,0.26378e-01_rb /)
+      kao(:, 2, 6,16) = (/ &
+        & 0.70571e-01_rb,0.61748e-01_rb,0.52933e-01_rb,0.44107e-01_rb,0.35285e-01_rb, &
+        & 0.26462e-01_rb,0.17959e-01_rb,0.15470e-01_rb,0.25822e-01_rb /)
+      kao(:, 3, 6,16) = (/ &
+        & 0.69734e-01_rb,0.61022e-01_rb,0.52301e-01_rb,0.43583e-01_rb,0.34867e-01_rb, &
+        & 0.26147e-01_rb,0.17660e-01_rb,0.15207e-01_rb,0.25265e-01_rb /)
+      kao(:, 4, 6,16) = (/ &
+        & 0.68870e-01_rb,0.60256e-01_rb,0.51654e-01_rb,0.43043e-01_rb,0.34432e-01_rb, &
+        & 0.25826e-01_rb,0.17391e-01_rb,0.14968e-01_rb,0.24710e-01_rb /)
+      kao(:, 5, 6,16) = (/ &
+        & 0.67988e-01_rb,0.59482e-01_rb,0.50988e-01_rb,0.42488e-01_rb,0.33987e-01_rb, &
+        & 0.25491e-01_rb,0.17159e-01_rb,0.14740e-01_rb,0.24148e-01_rb /)
+      kao(:, 1, 7,16) = (/ &
+        & 0.82705e-01_rb,0.72369e-01_rb,0.62031e-01_rb,0.51694e-01_rb,0.41353e-01_rb, &
+        & 0.31012e-01_rb,0.21511e-01_rb,0.18843e-01_rb,0.31008e-01_rb /)
+      kao(:, 2, 7,16) = (/ &
+        & 0.81487e-01_rb,0.71304e-01_rb,0.61113e-01_rb,0.50924e-01_rb,0.40740e-01_rb, &
+        & 0.30554e-01_rb,0.21074e-01_rb,0.18457e-01_rb,0.30235e-01_rb /)
+      kao(:, 3, 7,16) = (/ &
+        & 0.80318e-01_rb,0.70281e-01_rb,0.60235e-01_rb,0.50200e-01_rb,0.40157e-01_rb, &
+        & 0.30117e-01_rb,0.20636e-01_rb,0.18102e-01_rb,0.29494e-01_rb /)
+      kao(:, 4, 7,16) = (/ &
+        & 0.79154e-01_rb,0.69255e-01_rb,0.59365e-01_rb,0.49470e-01_rb,0.39576e-01_rb, &
+        & 0.29680e-01_rb,0.20228e-01_rb,0.17748e-01_rb,0.28759e-01_rb /)
+      kao(:, 5, 7,16) = (/ &
+        & 0.77937e-01_rb,0.68190e-01_rb,0.58450e-01_rb,0.48707e-01_rb,0.38965e-01_rb, &
+        & 0.29223e-01_rb,0.19858e-01_rb,0.17406e-01_rb,0.28017e-01_rb /)
+      kao(:, 1, 8,16) = (/ &
+        & 0.95173e-01_rb,0.83270e-01_rb,0.71377e-01_rb,0.59480e-01_rb,0.47582e-01_rb, &
+        & 0.35684e-01_rb,0.25169e-01_rb,0.22449e-01_rb,0.36274e-01_rb /)
+      kao(:, 2, 8,16) = (/ &
+        & 0.93409e-01_rb,0.81740e-01_rb,0.70058e-01_rb,0.58384e-01_rb,0.46709e-01_rb, &
+        & 0.35028e-01_rb,0.24581e-01_rb,0.21893e-01_rb,0.35207e-01_rb /)
+      kao(:, 3, 8,16) = (/ &
+        & 0.91737e-01_rb,0.80263e-01_rb,0.68796e-01_rb,0.57330e-01_rb,0.45863e-01_rb, &
+        & 0.34396e-01_rb,0.23987e-01_rb,0.21409e-01_rb,0.34174e-01_rb /)
+      kao(:, 4, 8,16) = (/ &
+        & 0.90113e-01_rb,0.78852e-01_rb,0.67585e-01_rb,0.56324e-01_rb,0.45060e-01_rb, &
+        & 0.33794e-01_rb,0.23415e-01_rb,0.20940e-01_rb,0.33185e-01_rb /)
+      kao(:, 5, 8,16) = (/ &
+        & 0.88500e-01_rb,0.77445e-01_rb,0.66378e-01_rb,0.55317e-01_rb,0.44252e-01_rb, &
+        & 0.33190e-01_rb,0.22890e-01_rb,0.20471e-01_rb,0.32236e-01_rb /)
+      kao(:, 1, 9,16) = (/ &
+        & 0.10878e+00_rb,0.95186e-01_rb,0.81587e-01_rb,0.67986e-01_rb,0.54386e-01_rb, &
+        & 0.40792e-01_rb,0.29314e-01_rb,0.26669e-01_rb,0.42265e-01_rb /)
+      kao(:, 2, 9,16) = (/ &
+        & 0.10631e+00_rb,0.93021e-01_rb,0.79732e-01_rb,0.66444e-01_rb,0.53150e-01_rb, &
+        & 0.39864e-01_rb,0.28508e-01_rb,0.25873e-01_rb,0.40792e-01_rb /)
+      kao(:, 3, 9,16) = (/ &
+        & 0.10400e+00_rb,0.91002e-01_rb,0.78003e-01_rb,0.64997e-01_rb,0.51997e-01_rb, &
+        & 0.39001e-01_rb,0.27707e-01_rb,0.25186e-01_rb,0.39383e-01_rb /)
+      kao(:, 4, 9,16) = (/ &
+        & 0.10173e+00_rb,0.89018e-01_rb,0.76292e-01_rb,0.63582e-01_rb,0.50863e-01_rb, &
+        & 0.38144e-01_rb,0.26926e-01_rb,0.24532e-01_rb,0.38084e-01_rb /)
+      kao(:, 5, 9,16) = (/ &
+        & 0.99555e-01_rb,0.87113e-01_rb,0.74666e-01_rb,0.62221e-01_rb,0.49774e-01_rb, &
+        & 0.37334e-01_rb,0.26211e-01_rb,0.23902e-01_rb,0.36825e-01_rb /)
+      kao(:, 1,10,16) = (/ &
+        & 0.12320e+00_rb,0.10779e+00_rb,0.92400e-01_rb,0.76993e-01_rb,0.61601e-01_rb, &
+        & 0.46197e-01_rb,0.33879e-01_rb,0.31475e-01_rb,0.48792e-01_rb /)
+      kao(:, 2,10,16) = (/ &
+        & 0.11986e+00_rb,0.10487e+00_rb,0.89890e-01_rb,0.74910e-01_rb,0.59927e-01_rb, &
+        & 0.44946e-01_rb,0.32786e-01_rb,0.30373e-01_rb,0.46838e-01_rb /)
+      kao(:, 3,10,16) = (/ &
+        & 0.11671e+00_rb,0.10212e+00_rb,0.87531e-01_rb,0.72938e-01_rb,0.58350e-01_rb, &
+        & 0.43767e-01_rb,0.31728e-01_rb,0.29415e-01_rb,0.45011e-01_rb /)
+      kao(:, 4,10,16) = (/ &
+        & 0.11373e+00_rb,0.99514e-01_rb,0.85291e-01_rb,0.71084e-01_rb,0.56859e-01_rb, &
+        & 0.42648e-01_rb,0.30712e-01_rb,0.28518e-01_rb,0.43306e-01_rb /)
+      kao(:, 5,10,16) = (/ &
+        & 0.11086e+00_rb,0.97005e-01_rb,0.83130e-01_rb,0.69287e-01_rb,0.55428e-01_rb, &
+        & 0.41573e-01_rb,0.29748e-01_rb,0.27669e-01_rb,0.41673e-01_rb /)
+      kao(:, 1,11,16) = (/ &
+        & 0.13635e+00_rb,0.11930e+00_rb,0.10226e+00_rb,0.85213e-01_rb,0.68170e-01_rb, &
+        & 0.51126e-01_rb,0.38257e-01_rb,0.36212e-01_rb,0.54706e-01_rb /)
+      kao(:, 2,11,16) = (/ &
+        & 0.13203e+00_rb,0.11554e+00_rb,0.99030e-01_rb,0.82523e-01_rb,0.66019e-01_rb, &
+        & 0.49513e-01_rb,0.36799e-01_rb,0.34833e-01_rb,0.52312e-01_rb /)
+      kao(:, 3,11,16) = (/ &
+        & 0.12805e+00_rb,0.11203e+00_rb,0.96022e-01_rb,0.80023e-01_rb,0.64019e-01_rb, &
+        & 0.48015e-01_rb,0.35435e-01_rb,0.33591e-01_rb,0.50057e-01_rb /)
+      kao(:, 4,11,16) = (/ &
+        & 0.12432e+00_rb,0.10877e+00_rb,0.93237e-01_rb,0.77695e-01_rb,0.62158e-01_rb, &
+        & 0.46618e-01_rb,0.34181e-01_rb,0.32427e-01_rb,0.47918e-01_rb /)
+      kao(:, 5,11,16) = (/ &
+        & 0.12077e+00_rb,0.10567e+00_rb,0.90572e-01_rb,0.75471e-01_rb,0.60381e-01_rb, &
+        & 0.45284e-01_rb,0.32973e-01_rb,0.31331e-01_rb,0.45895e-01_rb /)
+      kao(:, 1,12,16) = (/ &
+        & 0.14909e+00_rb,0.13045e+00_rb,0.11182e+00_rb,0.93176e-01_rb,0.74537e-01_rb, &
+        & 0.55927e-01_rb,0.42736e-01_rb,0.41194e-01_rb,0.43864e-01_rb /)
+      kao(:, 2,12,16) = (/ &
+        & 0.14380e+00_rb,0.12582e+00_rb,0.10785e+00_rb,0.89883e-01_rb,0.71900e-01_rb, &
+        & 0.53925e-01_rb,0.40874e-01_rb,0.39509e-01_rb,0.34410e-01_rb /)
+      kao(:, 3,12,16) = (/ &
+        & 0.13887e+00_rb,0.12152e+00_rb,0.10414e+00_rb,0.86796e-01_rb,0.69431e-01_rb, &
+        & 0.52073e-01_rb,0.39165e-01_rb,0.37950e-01_rb,0.27228e-01_rb /)
+      kao(:, 4,12,16) = (/ &
+        & 0.13436e+00_rb,0.11758e+00_rb,0.10078e+00_rb,0.83978e-01_rb,0.67186e-01_rb, &
+        & 0.50383e-01_rb,0.37599e-01_rb,0.36473e-01_rb,0.23165e-01_rb /)
+      kao(:, 5,12,16) = (/ &
+        & 0.13007e+00_rb,0.11382e+00_rb,0.97560e-01_rb,0.81293e-01_rb,0.65042e-01_rb, &
+        & 0.48775e-01_rb,0.36131e-01_rb,0.35083e-01_rb,0.14412e-01_rb /)
+      kao(:, 1,13,16) = (/ &
+        & 0.16113e+00_rb,0.14100e+00_rb,0.12085e+00_rb,0.10071e+00_rb,0.80563e-01_rb, &
+        & 0.60580e-01_rb,0.47246e-01_rb,0.46365e-01_rb,0.26456e-01_rb /)
+      kao(:, 2,13,16) = (/ &
+        & 0.15486e+00_rb,0.13550e+00_rb,0.11616e+00_rb,0.96791e-01_rb,0.77431e-01_rb, &
+        & 0.58082e-01_rb,0.44915e-01_rb,0.44314e-01_rb,0.19340e-01_rb /)
+      kao(:, 3,13,16) = (/ &
+        & 0.14906e+00_rb,0.13042e+00_rb,0.11179e+00_rb,0.93156e-01_rb,0.74526e-01_rb, &
+        & 0.55893e-01_rb,0.42831e-01_rb,0.42380e-01_rb,0.11993e-01_rb /)
+      kao(:, 4,13,16) = (/ &
+        & 0.14369e+00_rb,0.12574e+00_rb,0.10777e+00_rb,0.89817e-01_rb,0.71849e-01_rb, &
+        & 0.53884e-01_rb,0.40915e-01_rb,0.40556e-01_rb,0.50486e-02_rb /)
+      kao(:, 5,13,16) = (/ &
+        & 0.13868e+00_rb,0.12134e+00_rb,0.10400e+00_rb,0.86669e-01_rb,0.69338e-01_rb, &
+        & 0.52006e-01_rb,0.39136e-01_rb,0.38851e-01_rb,0.00000e+00_rb /)
+  
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kbo(:,13, 1) = (/ &
+        & 0.12158e-08_rb,0.13238e-08_rb,0.15146e-08_rb,0.16862e-08_rb,0.18609e-08_rb /)
+      kbo(:,14, 1) = (/ &
+        & 0.16931e-08_rb,0.20047e-08_rb,0.23006e-08_rb,0.25636e-08_rb,0.28912e-08_rb /)
+      kbo(:,15, 1) = (/ &
+        & 0.31521e-08_rb,0.36963e-08_rb,0.41550e-08_rb,0.46365e-08_rb,0.50834e-08_rb /)
+      kbo(:,16, 1) = (/ &
+        & 0.46152e-08_rb,0.50173e-08_rb,0.55381e-08_rb,0.60748e-08_rb,0.66355e-08_rb /)
+      kbo(:,17, 1) = (/ &
+        & 0.62662e-08_rb,0.67518e-08_rb,0.71765e-08_rb,0.80302e-08_rb,0.89056e-08_rb /)
+      kbo(:,18, 1) = (/ &
+        & 0.81764e-08_rb,0.91818e-08_rb,0.10385e-07_rb,0.11708e-07_rb,0.12536e-07_rb /)
+      kbo(:,19, 1) = (/ &
+        & 0.12946e-07_rb,0.13631e-07_rb,0.14453e-07_rb,0.15133e-07_rb,0.15911e-07_rb /)
+      kbo(:,20, 1) = (/ &
+        & 0.15868e-07_rb,0.16654e-07_rb,0.17281e-07_rb,0.17857e-07_rb,0.18383e-07_rb /)
+      kbo(:,21, 1) = (/ &
+        & 0.18151e-07_rb,0.19056e-07_rb,0.20057e-07_rb,0.20708e-07_rb,0.21229e-07_rb /)
+      kbo(:,22, 1) = (/ &
+        & 0.20234e-07_rb,0.21482e-07_rb,0.22599e-07_rb,0.23778e-07_rb,0.25115e-07_rb /)
+      kbo(:,23, 1) = (/ &
+        & 0.23827e-07_rb,0.25405e-07_rb,0.26545e-07_rb,0.27716e-07_rb,0.28422e-07_rb /)
+      kbo(:,24, 1) = (/ &
+        & 0.27638e-07_rb,0.28518e-07_rb,0.29101e-07_rb,0.29639e-07_rb,0.30077e-07_rb /)
+      kbo(:,25, 1) = (/ &
+        & 0.28942e-07_rb,0.29436e-07_rb,0.29831e-07_rb,0.30066e-07_rb,0.30242e-07_rb /)
+      kbo(:,26, 1) = (/ &
+        & 0.28774e-07_rb,0.29004e-07_rb,0.29272e-07_rb,0.29431e-07_rb,0.29616e-07_rb /)
+      kbo(:,27, 1) = (/ &
+        & 0.27317e-07_rb,0.27462e-07_rb,0.27698e-07_rb,0.27835e-07_rb,0.27843e-07_rb /)
+      kbo(:,28, 1) = (/ &
+        & 0.25463e-07_rb,0.25523e-07_rb,0.25678e-07_rb,0.25658e-07_rb,0.25687e-07_rb /)
+      kbo(:,29, 1) = (/ &
+        & 0.22603e-07_rb,0.22672e-07_rb,0.22704e-07_rb,0.22668e-07_rb,0.22698e-07_rb /)
+      kbo(:,30, 1) = (/ &
+        & 0.19657e-07_rb,0.19747e-07_rb,0.19687e-07_rb,0.19659e-07_rb,0.19680e-07_rb /)
+      kbo(:,31, 1) = (/ &
+        & 0.16553e-07_rb,0.16571e-07_rb,0.16522e-07_rb,0.16545e-07_rb,0.16563e-07_rb /)
+      kbo(:,32, 1) = (/ &
+        & 0.13867e-07_rb,0.13795e-07_rb,0.13808e-07_rb,0.13815e-07_rb,0.13799e-07_rb /)
+      kbo(:,33, 1) = (/ &
+        & 0.11414e-07_rb,0.11409e-07_rb,0.11395e-07_rb,0.11384e-07_rb,0.11416e-07_rb /)
+      kbo(:,34, 1) = (/ &
+        & 0.95639e-08_rb,0.95514e-08_rb,0.95251e-08_rb,0.95607e-08_rb,0.95767e-08_rb /)
+      kbo(:,35, 1) = (/ &
+        & 0.80018e-08_rb,0.79882e-08_rb,0.79720e-08_rb,0.79934e-08_rb,0.79942e-08_rb /)
+      kbo(:,36, 1) = (/ &
+        & 0.67279e-08_rb,0.67135e-08_rb,0.67089e-08_rb,0.67131e-08_rb,0.67290e-08_rb /)
+      kbo(:,37, 1) = (/ &
+        & 0.57292e-08_rb,0.57278e-08_rb,0.57247e-08_rb,0.57298e-08_rb,0.57269e-08_rb /)
+      kbo(:,38, 1) = (/ &
+        & 0.48406e-08_rb,0.48461e-08_rb,0.48394e-08_rb,0.48468e-08_rb,0.48401e-08_rb /)
+      kbo(:,39, 1) = (/ &
+        & 0.40368e-08_rb,0.40419e-08_rb,0.40353e-08_rb,0.40432e-08_rb,0.40267e-08_rb /)
+      kbo(:,40, 1) = (/ &
+        & 0.34875e-08_rb,0.34931e-08_rb,0.34872e-08_rb,0.34940e-08_rb,0.34782e-08_rb /)
+      kbo(:,41, 1) = (/ &
+        & 0.30195e-08_rb,0.30243e-08_rb,0.30129e-08_rb,0.30148e-08_rb,0.30016e-08_rb /)
+      kbo(:,42, 1) = (/ &
+        & 0.25993e-08_rb,0.25924e-08_rb,0.25861e-08_rb,0.25841e-08_rb,0.25734e-08_rb /)
+      kbo(:,43, 1) = (/ &
+        & 0.22290e-08_rb,0.22166e-08_rb,0.22080e-08_rb,0.22067e-08_rb,0.21992e-08_rb /)
+      kbo(:,44, 1) = (/ &
+        & 0.18916e-08_rb,0.18847e-08_rb,0.18733e-08_rb,0.18685e-08_rb,0.18685e-08_rb /)
+      kbo(:,45, 1) = (/ &
+        & 0.15840e-08_rb,0.15787e-08_rb,0.15719e-08_rb,0.15641e-08_rb,0.15644e-08_rb /)
+      kbo(:,46, 1) = (/ &
+        & 0.13197e-08_rb,0.13138e-08_rb,0.13098e-08_rb,0.13024e-08_rb,0.13049e-08_rb /)
+      kbo(:,47, 1) = (/ &
+        & 0.11052e-08_rb,0.11003e-08_rb,0.10954e-08_rb,0.10927e-08_rb,0.10941e-08_rb /)
+      kbo(:,48, 1) = (/ &
+        & 0.91115e-09_rb,0.90837e-09_rb,0.90520e-09_rb,0.90009e-09_rb,0.90047e-09_rb /)
+      kbo(:,49, 1) = (/ &
+        & 0.73101e-09_rb,0.73246e-09_rb,0.73006e-09_rb,0.72687e-09_rb,0.72508e-09_rb /)
+      kbo(:,50, 1) = (/ &
+        & 0.60565e-09_rb,0.60526e-09_rb,0.60121e-09_rb,0.60117e-09_rb,0.60056e-09_rb /)
+      kbo(:,51, 1) = (/ &
+        & 0.50736e-09_rb,0.50750e-09_rb,0.50421e-09_rb,0.50378e-09_rb,0.50259e-09_rb /)
+      kbo(:,52, 1) = (/ &
+        & 0.41843e-09_rb,0.41856e-09_rb,0.41499e-09_rb,0.41535e-09_rb,0.41353e-09_rb /)
+      kbo(:,53, 1) = (/ &
+        & 0.33766e-09_rb,0.33794e-09_rb,0.33511e-09_rb,0.33405e-09_rb,0.33405e-09_rb /)
+      kbo(:,54, 1) = (/ &
+        & 0.29473e-09_rb,0.29448e-09_rb,0.29284e-09_rb,0.29146e-09_rb,0.29053e-09_rb /)
+      kbo(:,55, 1) = (/ &
+        & 0.26948e-09_rb,0.27034e-09_rb,0.27016e-09_rb,0.26799e-09_rb,0.26580e-09_rb /)
+      kbo(:,56, 1) = (/ &
+        & 0.24773e-09_rb,0.24784e-09_rb,0.24734e-09_rb,0.24436e-09_rb,0.24377e-09_rb /)
+      kbo(:,57, 1) = (/ &
+        & 0.22707e-09_rb,0.22765e-09_rb,0.22683e-09_rb,0.22503e-09_rb,0.22447e-09_rb /)
+      kbo(:,58, 1) = (/ &
+        & 0.21180e-09_rb,0.21264e-09_rb,0.21254e-09_rb,0.21338e-09_rb,0.21089e-09_rb /)
+      kbo(:,59, 1) = (/ &
+        & 0.22898e-09_rb,0.23089e-09_rb,0.23471e-09_rb,0.23606e-09_rb,0.23388e-09_rb /)
+      kbo(:,13, 2) = (/ &
+        & 0.18001e-08_rb,0.19945e-08_rb,0.21612e-08_rb,0.23316e-08_rb,0.25983e-08_rb /)
+      kbo(:,14, 2) = (/ &
+        & 0.39853e-08_rb,0.42632e-08_rb,0.44602e-08_rb,0.46784e-08_rb,0.48071e-08_rb /)
+      kbo(:,15, 2) = (/ &
+        & 0.60848e-08_rb,0.61494e-08_rb,0.61069e-08_rb,0.61295e-08_rb,0.65707e-08_rb /)
+      kbo(:,16, 2) = (/ &
+        & 0.75494e-08_rb,0.85999e-08_rb,0.91057e-08_rb,0.10175e-07_rb,0.10943e-07_rb /)
+      kbo(:,17, 2) = (/ &
+        & 0.12037e-07_rb,0.12753e-07_rb,0.13314e-07_rb,0.13239e-07_rb,0.13306e-07_rb /)
+      kbo(:,18, 2) = (/ &
+        & 0.15519e-07_rb,0.15517e-07_rb,0.15097e-07_rb,0.14435e-07_rb,0.13983e-07_rb /)
+      kbo(:,19, 2) = (/ &
+        & 0.16420e-07_rb,0.17025e-07_rb,0.17639e-07_rb,0.17633e-07_rb,0.17513e-07_rb /)
+      kbo(:,20, 2) = (/ &
+        & 0.18021e-07_rb,0.19301e-07_rb,0.20621e-07_rb,0.22238e-07_rb,0.23351e-07_rb /)
+      kbo(:,21, 2) = (/ &
+        & 0.22378e-07_rb,0.23582e-07_rb,0.24409e-07_rb,0.24915e-07_rb,0.25516e-07_rb /)
+      kbo(:,22, 2) = (/ &
+        & 0.24712e-07_rb,0.24864e-07_rb,0.24556e-07_rb,0.23953e-07_rb,0.23424e-07_rb /)
+      kbo(:,23, 2) = (/ &
+        & 0.22545e-07_rb,0.22002e-07_rb,0.21325e-07_rb,0.20492e-07_rb,0.20022e-07_rb /)
+      kbo(:,24, 2) = (/ &
+        & 0.18798e-07_rb,0.18566e-07_rb,0.18366e-07_rb,0.18099e-07_rb,0.17971e-07_rb /)
+      kbo(:,25, 2) = (/ &
+        & 0.16773e-07_rb,0.16803e-07_rb,0.16541e-07_rb,0.16450e-07_rb,0.16482e-07_rb /)
+      kbo(:,26, 2) = (/ &
+        & 0.15222e-07_rb,0.15398e-07_rb,0.15177e-07_rb,0.15147e-07_rb,0.14951e-07_rb /)
+      kbo(:,27, 2) = (/ &
+        & 0.13792e-07_rb,0.13944e-07_rb,0.13534e-07_rb,0.13546e-07_rb,0.13516e-07_rb /)
+      kbo(:,28, 2) = (/ &
+        & 0.12157e-07_rb,0.12221e-07_rb,0.11930e-07_rb,0.12115e-07_rb,0.12027e-07_rb /)
+      kbo(:,29, 2) = (/ &
+        & 0.10487e-07_rb,0.10393e-07_rb,0.10366e-07_rb,0.10455e-07_rb,0.10269e-07_rb /)
+      kbo(:,30, 2) = (/ &
+        & 0.90084e-08_rb,0.88590e-08_rb,0.90055e-08_rb,0.88655e-08_rb,0.87392e-08_rb /)
+      kbo(:,31, 2) = (/ &
+        & 0.74765e-08_rb,0.74889e-08_rb,0.73915e-08_rb,0.73289e-08_rb,0.72219e-08_rb /)
+      kbo(:,32, 2) = (/ &
+        & 0.62311e-08_rb,0.62461e-08_rb,0.61378e-08_rb,0.59795e-08_rb,0.60309e-08_rb /)
+      kbo(:,33, 2) = (/ &
+        & 0.51421e-08_rb,0.50519e-08_rb,0.50031e-08_rb,0.49630e-08_rb,0.49489e-08_rb /)
+      kbo(:,34, 2) = (/ &
+        & 0.42880e-08_rb,0.42042e-08_rb,0.41366e-08_rb,0.41198e-08_rb,0.41265e-08_rb /)
+      kbo(:,35, 2) = (/ &
+        & 0.35718e-08_rb,0.34728e-08_rb,0.34599e-08_rb,0.34385e-08_rb,0.34695e-08_rb /)
+      kbo(:,36, 2) = (/ &
+        & 0.29713e-08_rb,0.29023e-08_rb,0.28707e-08_rb,0.28790e-08_rb,0.28873e-08_rb /)
+      kbo(:,37, 2) = (/ &
+        & 0.25246e-08_rb,0.24463e-08_rb,0.24323e-08_rb,0.24308e-08_rb,0.24753e-08_rb /)
+      kbo(:,38, 2) = (/ &
+        & 0.21159e-08_rb,0.20527e-08_rb,0.20532e-08_rb,0.20325e-08_rb,0.20615e-08_rb /)
+      kbo(:,39, 2) = (/ &
+        & 0.17631e-08_rb,0.17097e-08_rb,0.17043e-08_rb,0.16987e-08_rb,0.17298e-08_rb /)
+      kbo(:,40, 2) = (/ &
+        & 0.15260e-08_rb,0.14757e-08_rb,0.14566e-08_rb,0.14513e-08_rb,0.14651e-08_rb /)
+      kbo(:,41, 2) = (/ &
+        & 0.13009e-08_rb,0.12457e-08_rb,0.12523e-08_rb,0.12490e-08_rb,0.12671e-08_rb /)
+      kbo(:,42, 2) = (/ &
+        & 0.10990e-08_rb,0.10789e-08_rb,0.10741e-08_rb,0.10762e-08_rb,0.10873e-08_rb /)
+      kbo(:,43, 2) = (/ &
+        & 0.94313e-09_rb,0.92236e-09_rb,0.92369e-09_rb,0.91495e-09_rb,0.92405e-09_rb /)
+      kbo(:,44, 2) = (/ &
+        & 0.80746e-09_rb,0.78453e-09_rb,0.77646e-09_rb,0.77477e-09_rb,0.77888e-09_rb /)
+      kbo(:,45, 2) = (/ &
+        & 0.67944e-09_rb,0.66381e-09_rb,0.65747e-09_rb,0.65286e-09_rb,0.65668e-09_rb /)
+      kbo(:,46, 2) = (/ &
+        & 0.56677e-09_rb,0.55682e-09_rb,0.54825e-09_rb,0.54623e-09_rb,0.54843e-09_rb /)
+      kbo(:,47, 2) = (/ &
+        & 0.47375e-09_rb,0.47120e-09_rb,0.45836e-09_rb,0.45709e-09_rb,0.45689e-09_rb /)
+      kbo(:,48, 2) = (/ &
+        & 0.39797e-09_rb,0.39204e-09_rb,0.37735e-09_rb,0.37505e-09_rb,0.37687e-09_rb /)
+      kbo(:,49, 2) = (/ &
+        & 0.32772e-09_rb,0.31857e-09_rb,0.30808e-09_rb,0.30232e-09_rb,0.30140e-09_rb /)
+      kbo(:,50, 2) = (/ &
+        & 0.27300e-09_rb,0.26581e-09_rb,0.26125e-09_rb,0.24922e-09_rb,0.25029e-09_rb /)
+      kbo(:,51, 2) = (/ &
+        & 0.23073e-09_rb,0.22159e-09_rb,0.21979e-09_rb,0.20969e-09_rb,0.21117e-09_rb /)
+      kbo(:,52, 2) = (/ &
+        & 0.18868e-09_rb,0.18466e-09_rb,0.18517e-09_rb,0.17470e-09_rb,0.17469e-09_rb /)
+      kbo(:,53, 2) = (/ &
+        & 0.15290e-09_rb,0.14970e-09_rb,0.15032e-09_rb,0.14201e-09_rb,0.14053e-09_rb /)
+      kbo(:,54, 2) = (/ &
+        & 0.13616e-09_rb,0.13340e-09_rb,0.13256e-09_rb,0.12713e-09_rb,0.12621e-09_rb /)
+      kbo(:,55, 2) = (/ &
+        & 0.12605e-09_rb,0.12524e-09_rb,0.12106e-09_rb,0.11994e-09_rb,0.11735e-09_rb /)
+      kbo(:,56, 2) = (/ &
+        & 0.11625e-09_rb,0.11350e-09_rb,0.11287e-09_rb,0.11534e-09_rb,0.10942e-09_rb /)
+      kbo(:,57, 2) = (/ &
+        & 0.10168e-09_rb,0.10628e-09_rb,0.10684e-09_rb,0.10799e-09_rb,0.10313e-09_rb /)
+      kbo(:,58, 2) = (/ &
+        & 0.92659e-10_rb,0.10050e-09_rb,0.10168e-09_rb,0.97877e-10_rb,0.97971e-10_rb /)
+      kbo(:,59, 2) = (/ &
+        & 0.10198e-09_rb,0.11632e-09_rb,0.11127e-09_rb,0.10947e-09_rb,0.11000e-09_rb /)
+      kbo(:,13, 3) = (/ &
+        & 0.33788e-08_rb,0.38685e-08_rb,0.40059e-08_rb,0.41301e-08_rb,0.43316e-08_rb /)
+      kbo(:,14, 3) = (/ &
+        & 0.54022e-08_rb,0.55644e-08_rb,0.55814e-08_rb,0.55195e-08_rb,0.57708e-08_rb /)
+      kbo(:,15, 3) = (/ &
+        & 0.95769e-08_rb,0.10205e-07_rb,0.12445e-07_rb,0.13419e-07_rb,0.13357e-07_rb /)
+      kbo(:,16, 3) = (/ &
+        & 0.17233e-07_rb,0.16177e-07_rb,0.16092e-07_rb,0.15590e-07_rb,0.15068e-07_rb /)
+      kbo(:,17, 3) = (/ &
+        & 0.19731e-07_rb,0.19947e-07_rb,0.20278e-07_rb,0.20235e-07_rb,0.20699e-07_rb /)
+      kbo(:,18, 3) = (/ &
+        & 0.23168e-07_rb,0.23970e-07_rb,0.25507e-07_rb,0.27034e-07_rb,0.29135e-07_rb /)
+      kbo(:,19, 3) = (/ &
+        & 0.33749e-07_rb,0.35374e-07_rb,0.37333e-07_rb,0.38730e-07_rb,0.39816e-07_rb /)
+      kbo(:,20, 3) = (/ &
+        & 0.39844e-07_rb,0.39698e-07_rb,0.39651e-07_rb,0.38618e-07_rb,0.37699e-07_rb /)
+      kbo(:,21, 3) = (/ &
+        & 0.37013e-07_rb,0.35923e-07_rb,0.35560e-07_rb,0.35217e-07_rb,0.34594e-07_rb /)
+      kbo(:,22, 3) = (/ &
+        & 0.32381e-07_rb,0.31844e-07_rb,0.32272e-07_rb,0.32430e-07_rb,0.31922e-07_rb /)
+      kbo(:,23, 3) = (/ &
+        & 0.29924e-07_rb,0.29834e-07_rb,0.30537e-07_rb,0.30494e-07_rb,0.30313e-07_rb /)
+      kbo(:,24, 3) = (/ &
+        & 0.27849e-07_rb,0.28147e-07_rb,0.29005e-07_rb,0.29081e-07_rb,0.28673e-07_rb /)
+      kbo(:,25, 3) = (/ &
+        & 0.25534e-07_rb,0.25854e-07_rb,0.26978e-07_rb,0.27173e-07_rb,0.27116e-07_rb /)
+      kbo(:,26, 3) = (/ &
+        & 0.23413e-07_rb,0.24124e-07_rb,0.25341e-07_rb,0.25322e-07_rb,0.25266e-07_rb /)
+      kbo(:,27, 3) = (/ &
+        & 0.21218e-07_rb,0.22105e-07_rb,0.23470e-07_rb,0.23280e-07_rb,0.23250e-07_rb /)
+      kbo(:,28, 3) = (/ &
+        & 0.19002e-07_rb,0.20309e-07_rb,0.21106e-07_rb,0.20908e-07_rb,0.21199e-07_rb /)
+      kbo(:,29, 3) = (/ &
+        & 0.16901e-07_rb,0.18244e-07_rb,0.18426e-07_rb,0.18398e-07_rb,0.18708e-07_rb /)
+      kbo(:,30, 3) = (/ &
+        & 0.15065e-07_rb,0.15814e-07_rb,0.15711e-07_rb,0.16012e-07_rb,0.16145e-07_rb /)
+      kbo(:,31, 3) = (/ &
+        & 0.13100e-07_rb,0.13194e-07_rb,0.13385e-07_rb,0.13455e-07_rb,0.13435e-07_rb /)
+      kbo(:,32, 3) = (/ &
+        & 0.10972e-07_rb,0.10986e-07_rb,0.11085e-07_rb,0.11182e-07_rb,0.11030e-07_rb /)
+      kbo(:,33, 3) = (/ &
+        & 0.90750e-08_rb,0.90832e-08_rb,0.91769e-08_rb,0.89877e-08_rb,0.89513e-08_rb /)
+      kbo(:,34, 3) = (/ &
+        & 0.75008e-08_rb,0.76569e-08_rb,0.76237e-08_rb,0.74547e-08_rb,0.74719e-08_rb /)
+      kbo(:,35, 3) = (/ &
+        & 0.63063e-08_rb,0.64050e-08_rb,0.62067e-08_rb,0.61836e-08_rb,0.61775e-08_rb /)
+      kbo(:,36, 3) = (/ &
+        & 0.53250e-08_rb,0.52712e-08_rb,0.52454e-08_rb,0.51153e-08_rb,0.51657e-08_rb /)
+      kbo(:,37, 3) = (/ &
+        & 0.45450e-08_rb,0.45358e-08_rb,0.44274e-08_rb,0.43893e-08_rb,0.43616e-08_rb /)
+      kbo(:,38, 3) = (/ &
+        & 0.38039e-08_rb,0.38254e-08_rb,0.37172e-08_rb,0.37203e-08_rb,0.37278e-08_rb /)
+      kbo(:,39, 3) = (/ &
+        & 0.31821e-08_rb,0.31632e-08_rb,0.30774e-08_rb,0.30626e-08_rb,0.30979e-08_rb /)
+      kbo(:,40, 3) = (/ &
+        & 0.27339e-08_rb,0.27443e-08_rb,0.26754e-08_rb,0.26505e-08_rb,0.27022e-08_rb /)
+      kbo(:,41, 3) = (/ &
+        & 0.23939e-08_rb,0.24228e-08_rb,0.23415e-08_rb,0.23287e-08_rb,0.23327e-08_rb /)
+      kbo(:,42, 3) = (/ &
+        & 0.20895e-08_rb,0.20874e-08_rb,0.20298e-08_rb,0.20180e-08_rb,0.19876e-08_rb /)
+      kbo(:,43, 3) = (/ &
+        & 0.17869e-08_rb,0.17800e-08_rb,0.17392e-08_rb,0.17376e-08_rb,0.16927e-08_rb /)
+      kbo(:,44, 3) = (/ &
+        & 0.15169e-08_rb,0.15335e-08_rb,0.14778e-08_rb,0.14668e-08_rb,0.14407e-08_rb /)
+      kbo(:,45, 3) = (/ &
+        & 0.12692e-08_rb,0.12902e-08_rb,0.12439e-08_rb,0.12324e-08_rb,0.11996e-08_rb /)
+      kbo(:,46, 3) = (/ &
+        & 0.10611e-08_rb,0.10656e-08_rb,0.10472e-08_rb,0.10282e-08_rb,0.10015e-08_rb /)
+      kbo(:,47, 3) = (/ &
+        & 0.90394e-09_rb,0.88143e-09_rb,0.87958e-09_rb,0.84984e-09_rb,0.85121e-09_rb /)
+      kbo(:,48, 3) = (/ &
+        & 0.73451e-09_rb,0.71978e-09_rb,0.73014e-09_rb,0.70436e-09_rb,0.69840e-09_rb /)
+      kbo(:,49, 3) = (/ &
+        & 0.58678e-09_rb,0.58259e-09_rb,0.58316e-09_rb,0.55960e-09_rb,0.56079e-09_rb /)
+      kbo(:,50, 3) = (/ &
+        & 0.48502e-09_rb,0.47984e-09_rb,0.48693e-09_rb,0.47265e-09_rb,0.46016e-09_rb /)
+      kbo(:,51, 3) = (/ &
+        & 0.40704e-09_rb,0.40367e-09_rb,0.41046e-09_rb,0.39764e-09_rb,0.38714e-09_rb /)
+      kbo(:,52, 3) = (/ &
+        & 0.33771e-09_rb,0.33070e-09_rb,0.32984e-09_rb,0.33231e-09_rb,0.32299e-09_rb /)
+      kbo(:,53, 3) = (/ &
+        & 0.27062e-09_rb,0.27028e-09_rb,0.26516e-09_rb,0.26816e-09_rb,0.25661e-09_rb /)
+      kbo(:,54, 3) = (/ &
+        & 0.23501e-09_rb,0.23579e-09_rb,0.23460e-09_rb,0.23532e-09_rb,0.22777e-09_rb /)
+      kbo(:,55, 3) = (/ &
+        & 0.20561e-09_rb,0.21843e-09_rb,0.22171e-09_rb,0.22358e-09_rb,0.21702e-09_rb /)
+      kbo(:,56, 3) = (/ &
+        & 0.18557e-09_rb,0.20864e-09_rb,0.21196e-09_rb,0.20646e-09_rb,0.20759e-09_rb /)
+      kbo(:,57, 3) = (/ &
+        & 0.17099e-09_rb,0.19489e-09_rb,0.19486e-09_rb,0.19102e-09_rb,0.19124e-09_rb /)
+      kbo(:,58, 3) = (/ &
+        & 0.16535e-09_rb,0.16955e-09_rb,0.18769e-09_rb,0.18586e-09_rb,0.18358e-09_rb /)
+      kbo(:,59, 3) = (/ &
+        & 0.18472e-09_rb,0.17614e-09_rb,0.20835e-09_rb,0.19900e-09_rb,0.17587e-09_rb /)
+      kbo(:,13, 4) = (/ &
+        & 0.14276e-07_rb,0.14530e-07_rb,0.14762e-07_rb,0.14823e-07_rb,0.15070e-07_rb /)
+      kbo(:,14, 4) = (/ &
+        & 0.22710e-07_rb,0.23419e-07_rb,0.26577e-07_rb,0.28008e-07_rb,0.28298e-07_rb /)
+      kbo(:,15, 4) = (/ &
+        & 0.40218e-07_rb,0.40306e-07_rb,0.38786e-07_rb,0.38421e-07_rb,0.37982e-07_rb /)
+      kbo(:,16, 4) = (/ &
+        & 0.46010e-07_rb,0.46709e-07_rb,0.48658e-07_rb,0.49166e-07_rb,0.49018e-07_rb /)
+      kbo(:,17, 4) = (/ &
+        & 0.57896e-07_rb,0.59606e-07_rb,0.62582e-07_rb,0.65981e-07_rb,0.66467e-07_rb /)
+      kbo(:,18, 4) = (/ &
+        & 0.74731e-07_rb,0.75116e-07_rb,0.75181e-07_rb,0.74922e-07_rb,0.73535e-07_rb /)
+      kbo(:,19, 4) = (/ &
+        & 0.76222e-07_rb,0.73788e-07_rb,0.71345e-07_rb,0.70864e-07_rb,0.69839e-07_rb /)
+      kbo(:,20, 4) = (/ &
+        & 0.69638e-07_rb,0.67680e-07_rb,0.66694e-07_rb,0.67021e-07_rb,0.67066e-07_rb /)
+      kbo(:,21, 4) = (/ &
+        & 0.65779e-07_rb,0.64200e-07_rb,0.63508e-07_rb,0.64106e-07_rb,0.64461e-07_rb /)
+      kbo(:,22, 4) = (/ &
+        & 0.61488e-07_rb,0.60248e-07_rb,0.59719e-07_rb,0.60704e-07_rb,0.61392e-07_rb /)
+      kbo(:,23, 4) = (/ &
+        & 0.56738e-07_rb,0.55143e-07_rb,0.55071e-07_rb,0.56796e-07_rb,0.58031e-07_rb /)
+      kbo(:,24, 4) = (/ &
+        & 0.53299e-07_rb,0.52091e-07_rb,0.52308e-07_rb,0.54157e-07_rb,0.55094e-07_rb /)
+      kbo(:,25, 4) = (/ &
+        & 0.49763e-07_rb,0.48954e-07_rb,0.49068e-07_rb,0.51533e-07_rb,0.52367e-07_rb /)
+      kbo(:,26, 4) = (/ &
+        & 0.46006e-07_rb,0.45410e-07_rb,0.45860e-07_rb,0.48840e-07_rb,0.49788e-07_rb /)
+      kbo(:,27, 4) = (/ &
+        & 0.42208e-07_rb,0.41876e-07_rb,0.43006e-07_rb,0.46350e-07_rb,0.47032e-07_rb /)
+      kbo(:,28, 4) = (/ &
+        & 0.38508e-07_rb,0.38430e-07_rb,0.40481e-07_rb,0.43465e-07_rb,0.43170e-07_rb /)
+      kbo(:,29, 4) = (/ &
+        & 0.33913e-07_rb,0.34466e-07_rb,0.37202e-07_rb,0.38288e-07_rb,0.38327e-07_rb /)
+      kbo(:,30, 4) = (/ &
+        & 0.29454e-07_rb,0.30842e-07_rb,0.33204e-07_rb,0.33354e-07_rb,0.33727e-07_rb /)
+      kbo(:,31, 4) = (/ &
+        & 0.25253e-07_rb,0.27183e-07_rb,0.28228e-07_rb,0.27946e-07_rb,0.28495e-07_rb /)
+      kbo(:,32, 4) = (/ &
+        & 0.21784e-07_rb,0.23351e-07_rb,0.23372e-07_rb,0.23449e-07_rb,0.23246e-07_rb /)
+      kbo(:,33, 4) = (/ &
+        & 0.18910e-07_rb,0.19134e-07_rb,0.18984e-07_rb,0.19294e-07_rb,0.18955e-07_rb /)
+      kbo(:,34, 4) = (/ &
+        & 0.15933e-07_rb,0.15755e-07_rb,0.16059e-07_rb,0.15913e-07_rb,0.15386e-07_rb /)
+      kbo(:,35, 4) = (/ &
+        & 0.13356e-07_rb,0.13247e-07_rb,0.13429e-07_rb,0.13202e-07_rb,0.12675e-07_rb /)
+      kbo(:,36, 4) = (/ &
+        & 0.11207e-07_rb,0.11196e-07_rb,0.11048e-07_rb,0.10870e-07_rb,0.10431e-07_rb /)
+      kbo(:,37, 4) = (/ &
+        & 0.95811e-08_rb,0.94647e-08_rb,0.93875e-08_rb,0.90968e-08_rb,0.88553e-08_rb /)
+      kbo(:,38, 4) = (/ &
+        & 0.81243e-08_rb,0.80255e-08_rb,0.78559e-08_rb,0.75538e-08_rb,0.74057e-08_rb /)
+      kbo(:,39, 4) = (/ &
+        & 0.66871e-08_rb,0.66553e-08_rb,0.65003e-08_rb,0.62809e-08_rb,0.60862e-08_rb /)
+      kbo(:,40, 4) = (/ &
+        & 0.58254e-08_rb,0.57657e-08_rb,0.56185e-08_rb,0.54242e-08_rb,0.52135e-08_rb /)
+      kbo(:,41, 4) = (/ &
+        & 0.50967e-08_rb,0.50027e-08_rb,0.48304e-08_rb,0.46813e-08_rb,0.44864e-08_rb /)
+      kbo(:,42, 4) = (/ &
+        & 0.43731e-08_rb,0.43157e-08_rb,0.41432e-08_rb,0.39968e-08_rb,0.38854e-08_rb /)
+      kbo(:,43, 4) = (/ &
+        & 0.37430e-08_rb,0.37088e-08_rb,0.35491e-08_rb,0.34012e-08_rb,0.33022e-08_rb /)
+      kbo(:,44, 4) = (/ &
+        & 0.32207e-08_rb,0.31034e-08_rb,0.30690e-08_rb,0.29015e-08_rb,0.27644e-08_rb /)
+      kbo(:,45, 4) = (/ &
+        & 0.27111e-08_rb,0.25582e-08_rb,0.26092e-08_rb,0.24352e-08_rb,0.23234e-08_rb /)
+      kbo(:,46, 4) = (/ &
+        & 0.22675e-08_rb,0.21455e-08_rb,0.21930e-08_rb,0.20490e-08_rb,0.19277e-08_rb /)
+      kbo(:,47, 4) = (/ &
+        & 0.18722e-08_rb,0.18163e-08_rb,0.18222e-08_rb,0.17256e-08_rb,0.16025e-08_rb /)
+      kbo(:,48, 4) = (/ &
+        & 0.15670e-08_rb,0.15133e-08_rb,0.14751e-08_rb,0.14433e-08_rb,0.13269e-08_rb /)
+      kbo(:,49, 4) = (/ &
+        & 0.12576e-08_rb,0.12106e-08_rb,0.11779e-08_rb,0.11664e-08_rb,0.10722e-08_rb /)
+      kbo(:,50, 4) = (/ &
+        & 0.10308e-08_rb,0.10019e-08_rb,0.98151e-09_rb,0.96758e-09_rb,0.89739e-09_rb /)
+      kbo(:,51, 4) = (/ &
+        & 0.84050e-09_rb,0.85047e-09_rb,0.83131e-09_rb,0.81346e-09_rb,0.77303e-09_rb /)
+      kbo(:,52, 4) = (/ &
+        & 0.67669e-09_rb,0.70190e-09_rb,0.68695e-09_rb,0.66858e-09_rb,0.63719e-09_rb /)
+      kbo(:,53, 4) = (/ &
+        & 0.52755e-09_rb,0.56097e-09_rb,0.54716e-09_rb,0.53877e-09_rb,0.51047e-09_rb /)
+      kbo(:,54, 4) = (/ &
+        & 0.44864e-09_rb,0.48984e-09_rb,0.48831e-09_rb,0.46728e-09_rb,0.45462e-09_rb /)
+      kbo(:,55, 4) = (/ &
+        & 0.40938e-09_rb,0.45501e-09_rb,0.45212e-09_rb,0.43586e-09_rb,0.42245e-09_rb /)
+      kbo(:,56, 4) = (/ &
+        & 0.38293e-09_rb,0.40217e-09_rb,0.41760e-09_rb,0.39645e-09_rb,0.38652e-09_rb /)
+      kbo(:,57, 4) = (/ &
+        & 0.35808e-09_rb,0.34306e-09_rb,0.38440e-09_rb,0.37442e-09_rb,0.33472e-09_rb /)
+      kbo(:,58, 4) = (/ &
+        & 0.33278e-09_rb,0.31839e-09_rb,0.35327e-09_rb,0.33061e-09_rb,0.29093e-09_rb /)
+      kbo(:,59, 4) = (/ &
+        & 0.32589e-09_rb,0.30766e-09_rb,0.30185e-09_rb,0.35182e-09_rb,0.34474e-09_rb /)
+      kbo(:,13, 5) = (/ &
+        & 0.19090e-07_rb,0.19323e-07_rb,0.21491e-07_rb,0.23162e-07_rb,0.23970e-07_rb /)
+      kbo(:,14, 5) = (/ &
+        & 0.37888e-07_rb,0.37108e-07_rb,0.33727e-07_rb,0.34146e-07_rb,0.33930e-07_rb /)
+      kbo(:,15, 5) = (/ &
+        & 0.46395e-07_rb,0.47265e-07_rb,0.48201e-07_rb,0.50512e-07_rb,0.51101e-07_rb /)
+      kbo(:,16, 5) = (/ &
+        & 0.60743e-07_rb,0.64371e-07_rb,0.67862e-07_rb,0.71479e-07_rb,0.74200e-07_rb /)
+      kbo(:,17, 5) = (/ &
+        & 0.79052e-07_rb,0.79011e-07_rb,0.77558e-07_rb,0.75900e-07_rb,0.76450e-07_rb /)
+      kbo(:,18, 5) = (/ &
+        & 0.75325e-07_rb,0.74009e-07_rb,0.72866e-07_rb,0.72803e-07_rb,0.73869e-07_rb /)
+      kbo(:,19, 5) = (/ &
+        & 0.74009e-07_rb,0.74054e-07_rb,0.73970e-07_rb,0.73800e-07_rb,0.75638e-07_rb /)
+      kbo(:,20, 5) = (/ &
+        & 0.73077e-07_rb,0.73306e-07_rb,0.72248e-07_rb,0.73120e-07_rb,0.74630e-07_rb /)
+      kbo(:,21, 5) = (/ &
+        & 0.68928e-07_rb,0.70100e-07_rb,0.69203e-07_rb,0.69478e-07_rb,0.71860e-07_rb /)
+      kbo(:,22, 5) = (/ &
+        & 0.65324e-07_rb,0.66570e-07_rb,0.66457e-07_rb,0.66345e-07_rb,0.68314e-07_rb /)
+      kbo(:,23, 5) = (/ &
+        & 0.62411e-07_rb,0.63996e-07_rb,0.63443e-07_rb,0.63576e-07_rb,0.65766e-07_rb /)
+      kbo(:,24, 5) = (/ &
+        & 0.60058e-07_rb,0.60956e-07_rb,0.60176e-07_rb,0.60222e-07_rb,0.63287e-07_rb /)
+      kbo(:,25, 5) = (/ &
+        & 0.57223e-07_rb,0.58225e-07_rb,0.58348e-07_rb,0.58584e-07_rb,0.61933e-07_rb /)
+      kbo(:,26, 5) = (/ &
+        & 0.55089e-07_rb,0.55723e-07_rb,0.55839e-07_rb,0.56337e-07_rb,0.60335e-07_rb /)
+      kbo(:,27, 5) = (/ &
+        & 0.52294e-07_rb,0.51745e-07_rb,0.52750e-07_rb,0.52701e-07_rb,0.57676e-07_rb /)
+      kbo(:,28, 5) = (/ &
+        & 0.48915e-07_rb,0.48234e-07_rb,0.48708e-07_rb,0.49873e-07_rb,0.54442e-07_rb /)
+      kbo(:,29, 5) = (/ &
+        & 0.43357e-07_rb,0.43230e-07_rb,0.43679e-07_rb,0.47285e-07_rb,0.49519e-07_rb /)
+      kbo(:,30, 5) = (/ &
+        & 0.37379e-07_rb,0.38427e-07_rb,0.39703e-07_rb,0.43492e-07_rb,0.43278e-07_rb /)
+      kbo(:,31, 5) = (/ &
+        & 0.31354e-07_rb,0.32238e-07_rb,0.35376e-07_rb,0.37358e-07_rb,0.37130e-07_rb /)
+      kbo(:,32, 5) = (/ &
+        & 0.26553e-07_rb,0.27801e-07_rb,0.30978e-07_rb,0.30698e-07_rb,0.31234e-07_rb /)
+      kbo(:,33, 5) = (/ &
+        & 0.21542e-07_rb,0.24274e-07_rb,0.24944e-07_rb,0.25194e-07_rb,0.25415e-07_rb /)
+      kbo(:,34, 5) = (/ &
+        & 0.19097e-07_rb,0.20582e-07_rb,0.20324e-07_rb,0.21006e-07_rb,0.20944e-07_rb /)
+      kbo(:,35, 5) = (/ &
+        & 0.16377e-07_rb,0.16881e-07_rb,0.16957e-07_rb,0.16743e-07_rb,0.16958e-07_rb /)
+      kbo(:,36, 5) = (/ &
+        & 0.13727e-07_rb,0.13834e-07_rb,0.13766e-07_rb,0.13776e-07_rb,0.13546e-07_rb /)
+      kbo(:,37, 5) = (/ &
+        & 0.11550e-07_rb,0.11601e-07_rb,0.11757e-07_rb,0.11723e-07_rb,0.11413e-07_rb /)
+      kbo(:,38, 5) = (/ &
+        & 0.98076e-08_rb,0.96320e-08_rb,0.10028e-07_rb,0.98197e-08_rb,0.91408e-08_rb /)
+      kbo(:,39, 5) = (/ &
+        & 0.80861e-08_rb,0.80113e-08_rb,0.81586e-08_rb,0.80121e-08_rb,0.75021e-08_rb /)
+      kbo(:,40, 5) = (/ &
+        & 0.70348e-08_rb,0.69980e-08_rb,0.71058e-08_rb,0.69171e-08_rb,0.64103e-08_rb /)
+      kbo(:,41, 5) = (/ &
+        & 0.61395e-08_rb,0.60379e-08_rb,0.61651e-08_rb,0.59006e-08_rb,0.54433e-08_rb /)
+      kbo(:,42, 5) = (/ &
+        & 0.51740e-08_rb,0.51391e-08_rb,0.53717e-08_rb,0.50506e-08_rb,0.46901e-08_rb /)
+      kbo(:,43, 5) = (/ &
+        & 0.44374e-08_rb,0.44002e-08_rb,0.45405e-08_rb,0.42888e-08_rb,0.39390e-08_rb /)
+      kbo(:,44, 5) = (/ &
+        & 0.36635e-08_rb,0.37555e-08_rb,0.37320e-08_rb,0.35598e-08_rb,0.33280e-08_rb /)
+      kbo(:,45, 5) = (/ &
+        & 0.30833e-08_rb,0.31320e-08_rb,0.30264e-08_rb,0.29827e-08_rb,0.28298e-08_rb /)
+      kbo(:,46, 5) = (/ &
+        & 0.25366e-08_rb,0.26077e-08_rb,0.24905e-08_rb,0.24281e-08_rb,0.22727e-08_rb /)
+      kbo(:,47, 5) = (/ &
+        & 0.20576e-08_rb,0.22029e-08_rb,0.20905e-08_rb,0.21040e-08_rb,0.19027e-08_rb /)
+      kbo(:,48, 5) = (/ &
+        & 0.16047e-08_rb,0.18190e-08_rb,0.17008e-08_rb,0.17298e-08_rb,0.16059e-08_rb /)
+      kbo(:,49, 5) = (/ &
+        & 0.12276e-08_rb,0.14135e-08_rb,0.13565e-08_rb,0.13704e-08_rb,0.13029e-08_rb /)
+      kbo(:,50, 5) = (/ &
+        & 0.98291e-09_rb,0.11837e-08_rb,0.11000e-08_rb,0.11342e-08_rb,0.10621e-08_rb /)
+      kbo(:,51, 5) = (/ &
+        & 0.79374e-09_rb,0.97756e-09_rb,0.90252e-09_rb,0.90527e-09_rb,0.86815e-09_rb /)
+      kbo(:,52, 5) = (/ &
+        & 0.64781e-09_rb,0.78454e-09_rb,0.75690e-09_rb,0.74124e-09_rb,0.73195e-09_rb /)
+      kbo(:,53, 5) = (/ &
+        & 0.51536e-09_rb,0.61158e-09_rb,0.60936e-09_rb,0.59007e-09_rb,0.58458e-09_rb /)
+      kbo(:,54, 5) = (/ &
+        & 0.46178e-09_rb,0.51944e-09_rb,0.52167e-09_rb,0.53965e-09_rb,0.50524e-09_rb /)
+      kbo(:,55, 5) = (/ &
+        & 0.44467e-09_rb,0.42857e-09_rb,0.50799e-09_rb,0.47528e-09_rb,0.43900e-09_rb /)
+      kbo(:,56, 5) = (/ &
+        & 0.39667e-09_rb,0.37862e-09_rb,0.45808e-09_rb,0.43270e-09_rb,0.38817e-09_rb /)
+      kbo(:,57, 5) = (/ &
+        & 0.35926e-09_rb,0.35410e-09_rb,0.38962e-09_rb,0.37502e-09_rb,0.40935e-09_rb /)
+      kbo(:,58, 5) = (/ &
+        & 0.31517e-09_rb,0.32964e-09_rb,0.29323e-09_rb,0.39945e-09_rb,0.40389e-09_rb /)
+      kbo(:,59, 5) = (/ &
+        & 0.36198e-09_rb,0.38633e-09_rb,0.41096e-09_rb,0.53914e-09_rb,0.57631e-09_rb /)
+      kbo(:,13, 6) = (/ &
+        & 0.23095e-07_rb,0.23025e-07_rb,0.25126e-07_rb,0.25618e-07_rb,0.24969e-07_rb /)
+      kbo(:,14, 6) = (/ &
+        & 0.31573e-07_rb,0.32360e-07_rb,0.33220e-07_rb,0.32611e-07_rb,0.32150e-07_rb /)
+      kbo(:,15, 6) = (/ &
+        & 0.45219e-07_rb,0.45787e-07_rb,0.47088e-07_rb,0.49543e-07_rb,0.54072e-07_rb /)
+      kbo(:,16, 6) = (/ &
+        & 0.65293e-07_rb,0.67448e-07_rb,0.64557e-07_rb,0.63976e-07_rb,0.64905e-07_rb /)
+      kbo(:,17, 6) = (/ &
+        & 0.64862e-07_rb,0.63259e-07_rb,0.62851e-07_rb,0.62500e-07_rb,0.63112e-07_rb /)
+      kbo(:,18, 6) = (/ &
+        & 0.61849e-07_rb,0.62108e-07_rb,0.60565e-07_rb,0.60920e-07_rb,0.61810e-07_rb /)
+      kbo(:,19, 6) = (/ &
+        & 0.63930e-07_rb,0.63195e-07_rb,0.62478e-07_rb,0.62282e-07_rb,0.62250e-07_rb /)
+      kbo(:,20, 6) = (/ &
+        & 0.60100e-07_rb,0.60269e-07_rb,0.59919e-07_rb,0.57578e-07_rb,0.57933e-07_rb /)
+      kbo(:,21, 6) = (/ &
+        & 0.56465e-07_rb,0.56674e-07_rb,0.56992e-07_rb,0.55969e-07_rb,0.54719e-07_rb /)
+      kbo(:,22, 6) = (/ &
+        & 0.54280e-07_rb,0.53760e-07_rb,0.52615e-07_rb,0.52261e-07_rb,0.51523e-07_rb /)
+      kbo(:,23, 6) = (/ &
+        & 0.49921e-07_rb,0.49472e-07_rb,0.49168e-07_rb,0.47959e-07_rb,0.47449e-07_rb /)
+      kbo(:,24, 6) = (/ &
+        & 0.45803e-07_rb,0.46271e-07_rb,0.46322e-07_rb,0.46536e-07_rb,0.46494e-07_rb /)
+      kbo(:,25, 6) = (/ &
+        & 0.43723e-07_rb,0.44225e-07_rb,0.44324e-07_rb,0.43726e-07_rb,0.43579e-07_rb /)
+      kbo(:,26, 6) = (/ &
+        & 0.41617e-07_rb,0.42588e-07_rb,0.42306e-07_rb,0.41086e-07_rb,0.41943e-07_rb /)
+      kbo(:,27, 6) = (/ &
+        & 0.38855e-07_rb,0.40231e-07_rb,0.39090e-07_rb,0.39461e-07_rb,0.39072e-07_rb /)
+      kbo(:,28, 6) = (/ &
+        & 0.35912e-07_rb,0.36691e-07_rb,0.35670e-07_rb,0.35644e-07_rb,0.38295e-07_rb /)
+      kbo(:,29, 6) = (/ &
+        & 0.33357e-07_rb,0.33134e-07_rb,0.32394e-07_rb,0.32909e-07_rb,0.36234e-07_rb /)
+      kbo(:,30, 6) = (/ &
+        & 0.30529e-07_rb,0.29196e-07_rb,0.29147e-07_rb,0.30292e-07_rb,0.33912e-07_rb /)
+      kbo(:,31, 6) = (/ &
+        & 0.27228e-07_rb,0.27081e-07_rb,0.26630e-07_rb,0.30010e-07_rb,0.28781e-07_rb /)
+      kbo(:,32, 6) = (/ &
+        & 0.24109e-07_rb,0.24388e-07_rb,0.25546e-07_rb,0.26823e-07_rb,0.26681e-07_rb /)
+      kbo(:,33, 6) = (/ &
+        & 0.21402e-07_rb,0.22303e-07_rb,0.24668e-07_rb,0.24556e-07_rb,0.24369e-07_rb /)
+      kbo(:,34, 6) = (/ &
+        & 0.18136e-07_rb,0.20944e-07_rb,0.21211e-07_rb,0.21286e-07_rb,0.21648e-07_rb /)
+      kbo(:,35, 6) = (/ &
+        & 0.16306e-07_rb,0.17531e-07_rb,0.17744e-07_rb,0.18061e-07_rb,0.18282e-07_rb /)
+      kbo(:,36, 6) = (/ &
+        & 0.13873e-07_rb,0.14963e-07_rb,0.15398e-07_rb,0.15527e-07_rb,0.15391e-07_rb /)
+      kbo(:,37, 6) = (/ &
+        & 0.11948e-07_rb,0.12614e-07_rb,0.12946e-07_rb,0.12916e-07_rb,0.13085e-07_rb /)
+      kbo(:,38, 6) = (/ &
+        & 0.98235e-08_rb,0.10612e-07_rb,0.10029e-07_rb,0.10618e-07_rb,0.10860e-07_rb /)
+      kbo(:,39, 6) = (/ &
+        & 0.81514e-08_rb,0.84716e-08_rb,0.81123e-08_rb,0.83644e-08_rb,0.81668e-08_rb /)
+      kbo(:,40, 6) = (/ &
+        & 0.68179e-08_rb,0.69030e-08_rb,0.69393e-08_rb,0.69969e-08_rb,0.71027e-08_rb /)
+      kbo(:,41, 6) = (/ &
+        & 0.59350e-08_rb,0.60668e-08_rb,0.59026e-08_rb,0.60181e-08_rb,0.60779e-08_rb /)
+      kbo(:,42, 6) = (/ &
+        & 0.51181e-08_rb,0.52127e-08_rb,0.48788e-08_rb,0.51397e-08_rb,0.50230e-08_rb /)
+      kbo(:,43, 6) = (/ &
+        & 0.42653e-08_rb,0.44600e-08_rb,0.41100e-08_rb,0.44735e-08_rb,0.42607e-08_rb /)
+      kbo(:,44, 6) = (/ &
+        & 0.34724e-08_rb,0.37628e-08_rb,0.35340e-08_rb,0.38309e-08_rb,0.36188e-08_rb /)
+      kbo(:,45, 6) = (/ &
+        & 0.27994e-08_rb,0.31690e-08_rb,0.28599e-08_rb,0.30290e-08_rb,0.27730e-08_rb /)
+      kbo(:,46, 6) = (/ &
+        & 0.22089e-08_rb,0.25761e-08_rb,0.23856e-08_rb,0.24874e-08_rb,0.23603e-08_rb /)
+      kbo(:,47, 6) = (/ &
+        & 0.18078e-08_rb,0.20304e-08_rb,0.19457e-08_rb,0.19366e-08_rb,0.19286e-08_rb /)
+      kbo(:,48, 6) = (/ &
+        & 0.14716e-08_rb,0.15703e-08_rb,0.17393e-08_rb,0.14836e-08_rb,0.15316e-08_rb /)
+      kbo(:,49, 6) = (/ &
+        & 0.11334e-08_rb,0.12901e-08_rb,0.13556e-08_rb,0.11610e-08_rb,0.11617e-08_rb /)
+      kbo(:,50, 6) = (/ &
+        & 0.90881e-09_rb,0.10323e-08_rb,0.11378e-08_rb,0.95509e-09_rb,0.96291e-09_rb /)
+      kbo(:,51, 6) = (/ &
+        & 0.76751e-09_rb,0.81710e-09_rb,0.97432e-09_rb,0.82408e-09_rb,0.81205e-09_rb /)
+      kbo(:,52, 6) = (/ &
+        & 0.62668e-09_rb,0.66223e-09_rb,0.76870e-09_rb,0.68347e-09_rb,0.65771e-09_rb /)
+      kbo(:,53, 6) = (/ &
+        & 0.50547e-09_rb,0.49991e-09_rb,0.61494e-09_rb,0.55640e-09_rb,0.52803e-09_rb /)
+      kbo(:,54, 6) = (/ &
+        & 0.42841e-09_rb,0.42678e-09_rb,0.51796e-09_rb,0.46340e-09_rb,0.44830e-09_rb /)
+      kbo(:,55, 6) = (/ &
+        & 0.40234e-09_rb,0.40065e-09_rb,0.45944e-09_rb,0.42252e-09_rb,0.44365e-09_rb /)
+      kbo(:,56, 6) = (/ &
+        & 0.36764e-09_rb,0.35937e-09_rb,0.36570e-09_rb,0.44631e-09_rb,0.45684e-09_rb /)
+      kbo(:,57, 6) = (/ &
+        & 0.33321e-09_rb,0.29808e-09_rb,0.31056e-09_rb,0.44585e-09_rb,0.41122e-09_rb /)
+      kbo(:,58, 6) = (/ &
+        & 0.31198e-09_rb,0.29542e-09_rb,0.33327e-09_rb,0.43871e-09_rb,0.45291e-09_rb /)
+      kbo(:,59, 6) = (/ &
+        & 0.38710e-09_rb,0.42412e-09_rb,0.44197e-09_rb,0.49964e-09_rb,0.70387e-09_rb /)
+      kbo(:,13, 7) = (/ &
+        & 0.30377e-07_rb,0.31586e-07_rb,0.27647e-07_rb,0.27937e-07_rb,0.28036e-07_rb /)
+      kbo(:,14, 7) = (/ &
+        & 0.37766e-07_rb,0.39819e-07_rb,0.39822e-07_rb,0.40069e-07_rb,0.42091e-07_rb /)
+      kbo(:,15, 7) = (/ &
+        & 0.57996e-07_rb,0.64474e-07_rb,0.69368e-07_rb,0.70909e-07_rb,0.70748e-07_rb /)
+      kbo(:,16, 7) = (/ &
+        & 0.73220e-07_rb,0.70124e-07_rb,0.69135e-07_rb,0.68058e-07_rb,0.66524e-07_rb /)
+      kbo(:,17, 7) = (/ &
+        & 0.66529e-07_rb,0.66306e-07_rb,0.63797e-07_rb,0.63551e-07_rb,0.63462e-07_rb /)
+      kbo(:,18, 7) = (/ &
+        & 0.66492e-07_rb,0.65156e-07_rb,0.66323e-07_rb,0.64485e-07_rb,0.63285e-07_rb /)
+      kbo(:,19, 7) = (/ &
+        & 0.62980e-07_rb,0.62900e-07_rb,0.62718e-07_rb,0.61114e-07_rb,0.59765e-07_rb /)
+      kbo(:,20, 7) = (/ &
+        & 0.59754e-07_rb,0.58066e-07_rb,0.59540e-07_rb,0.58926e-07_rb,0.57835e-07_rb /)
+      kbo(:,21, 7) = (/ &
+        & 0.57368e-07_rb,0.55161e-07_rb,0.55685e-07_rb,0.55360e-07_rb,0.53982e-07_rb /)
+      kbo(:,22, 7) = (/ &
+        & 0.51435e-07_rb,0.49998e-07_rb,0.50952e-07_rb,0.50442e-07_rb,0.49717e-07_rb /)
+      kbo(:,23, 7) = (/ &
+        & 0.47663e-07_rb,0.46845e-07_rb,0.47849e-07_rb,0.48876e-07_rb,0.48885e-07_rb /)
+      kbo(:,24, 7) = (/ &
+        & 0.47926e-07_rb,0.45619e-07_rb,0.45793e-07_rb,0.46467e-07_rb,0.45938e-07_rb /)
+      kbo(:,25, 7) = (/ &
+        & 0.44687e-07_rb,0.43904e-07_rb,0.44284e-07_rb,0.44176e-07_rb,0.45520e-07_rb /)
+      kbo(:,26, 7) = (/ &
+        & 0.42751e-07_rb,0.41938e-07_rb,0.42889e-07_rb,0.42927e-07_rb,0.43868e-07_rb /)
+      kbo(:,27, 7) = (/ &
+        & 0.40180e-07_rb,0.40529e-07_rb,0.40621e-07_rb,0.40949e-07_rb,0.41005e-07_rb /)
+      kbo(:,28, 7) = (/ &
+        & 0.35890e-07_rb,0.36716e-07_rb,0.37875e-07_rb,0.38308e-07_rb,0.37626e-07_rb /)
+      kbo(:,29, 7) = (/ &
+        & 0.31499e-07_rb,0.33284e-07_rb,0.32725e-07_rb,0.32493e-07_rb,0.35018e-07_rb /)
+      kbo(:,30, 7) = (/ &
+        & 0.29364e-07_rb,0.28675e-07_rb,0.28942e-07_rb,0.28761e-07_rb,0.33960e-07_rb /)
+      kbo(:,31, 7) = (/ &
+        & 0.25558e-07_rb,0.23679e-07_rb,0.24292e-07_rb,0.26053e-07_rb,0.29211e-07_rb /)
+      kbo(:,32, 7) = (/ &
+        & 0.20860e-07_rb,0.21491e-07_rb,0.20910e-07_rb,0.25598e-07_rb,0.24209e-07_rb /)
+      kbo(:,33, 7) = (/ &
+        & 0.18874e-07_rb,0.18554e-07_rb,0.21206e-07_rb,0.20708e-07_rb,0.21100e-07_rb /)
+      kbo(:,34, 7) = (/ &
+        & 0.18632e-07_rb,0.18625e-07_rb,0.20707e-07_rb,0.19570e-07_rb,0.18956e-07_rb /)
+      kbo(:,35, 7) = (/ &
+        & 0.15958e-07_rb,0.19141e-07_rb,0.19004e-07_rb,0.19249e-07_rb,0.17793e-07_rb /)
+      kbo(:,36, 7) = (/ &
+        & 0.14552e-07_rb,0.16561e-07_rb,0.16607e-07_rb,0.16784e-07_rb,0.16326e-07_rb /)
+      kbo(:,37, 7) = (/ &
+        & 0.13127e-07_rb,0.14300e-07_rb,0.14021e-07_rb,0.14385e-07_rb,0.13328e-07_rb /)
+      kbo(:,38, 7) = (/ &
+        & 0.11514e-07_rb,0.12356e-07_rb,0.12677e-07_rb,0.12181e-07_rb,0.11774e-07_rb /)
+      kbo(:,39, 7) = (/ &
+        & 0.93434e-08_rb,0.10196e-07_rb,0.10605e-07_rb,0.10201e-07_rb,0.10584e-07_rb /)
+      kbo(:,40, 7) = (/ &
+        & 0.81790e-08_rb,0.89000e-08_rb,0.85315e-08_rb,0.89663e-08_rb,0.91635e-08_rb /)
+      kbo(:,41, 7) = (/ &
+        & 0.65541e-08_rb,0.74884e-08_rb,0.72364e-08_rb,0.72692e-08_rb,0.75649e-08_rb /)
+      kbo(:,42, 7) = (/ &
+        & 0.54665e-08_rb,0.61796e-08_rb,0.61564e-08_rb,0.61304e-08_rb,0.64285e-08_rb /)
+      kbo(:,43, 7) = (/ &
+        & 0.43531e-08_rb,0.47798e-08_rb,0.51393e-08_rb,0.49135e-08_rb,0.53520e-08_rb /)
+      kbo(:,44, 7) = (/ &
+        & 0.35872e-08_rb,0.38233e-08_rb,0.42659e-08_rb,0.39384e-08_rb,0.44541e-08_rb /)
+      kbo(:,45, 7) = (/ &
+        & 0.28156e-08_rb,0.32775e-08_rb,0.36262e-08_rb,0.32518e-08_rb,0.36805e-08_rb /)
+      kbo(:,46, 7) = (/ &
+        & 0.23879e-08_rb,0.26299e-08_rb,0.28972e-08_rb,0.27379e-08_rb,0.30333e-08_rb /)
+      kbo(:,47, 7) = (/ &
+        & 0.19282e-08_rb,0.22066e-08_rb,0.23812e-08_rb,0.23512e-08_rb,0.23794e-08_rb /)
+      kbo(:,48, 7) = (/ &
+        & 0.15092e-08_rb,0.18255e-08_rb,0.17414e-08_rb,0.19322e-08_rb,0.19399e-08_rb /)
+      kbo(:,49, 7) = (/ &
+        & 0.11905e-08_rb,0.13964e-08_rb,0.14306e-08_rb,0.14791e-08_rb,0.14939e-08_rb /)
+      kbo(:,50, 7) = (/ &
+        & 0.98537e-09_rb,0.10687e-08_rb,0.11753e-08_rb,0.11334e-08_rb,0.13178e-08_rb /)
+      kbo(:,51, 7) = (/ &
+        & 0.84255e-09_rb,0.88069e-09_rb,0.95073e-09_rb,0.92632e-09_rb,0.10457e-08_rb /)
+      kbo(:,52, 7) = (/ &
+        & 0.68238e-09_rb,0.70376e-09_rb,0.74795e-09_rb,0.75152e-09_rb,0.78131e-09_rb /)
+      kbo(:,53, 7) = (/ &
+        & 0.56271e-09_rb,0.58527e-09_rb,0.61397e-09_rb,0.56343e-09_rb,0.61138e-09_rb /)
+      kbo(:,54, 7) = (/ &
+        & 0.52493e-09_rb,0.46040e-09_rb,0.53769e-09_rb,0.51459e-09_rb,0.52912e-09_rb /)
+      kbo(:,55, 7) = (/ &
+        & 0.40372e-09_rb,0.38720e-09_rb,0.40004e-09_rb,0.56294e-09_rb,0.55844e-09_rb /)
+      kbo(:,56, 7) = (/ &
+        & 0.37372e-09_rb,0.35358e-09_rb,0.39920e-09_rb,0.52819e-09_rb,0.50147e-09_rb /)
+      kbo(:,57, 7) = (/ &
+        & 0.31149e-09_rb,0.39454e-09_rb,0.38951e-09_rb,0.52086e-09_rb,0.54542e-09_rb /)
+      kbo(:,58, 7) = (/ &
+        & 0.30564e-09_rb,0.36251e-09_rb,0.38551e-09_rb,0.43845e-09_rb,0.61772e-09_rb /)
+      kbo(:,59, 7) = (/ &
+        & 0.46934e-09_rb,0.57639e-09_rb,0.58591e-09_rb,0.63021e-09_rb,0.71158e-09_rb /)
+      kbo(:,13, 8) = (/ &
+        & 0.34320e-07_rb,0.31607e-07_rb,0.29840e-07_rb,0.29114e-07_rb,0.28831e-07_rb /)
+      kbo(:,14, 8) = (/ &
+        & 0.38157e-07_rb,0.37907e-07_rb,0.40351e-07_rb,0.45015e-07_rb,0.44786e-07_rb /)
+      kbo(:,15, 8) = (/ &
+        & 0.71231e-07_rb,0.71647e-07_rb,0.71034e-07_rb,0.71647e-07_rb,0.71755e-07_rb /)
+      kbo(:,16, 8) = (/ &
+        & 0.72049e-07_rb,0.69075e-07_rb,0.67707e-07_rb,0.67019e-07_rb,0.66780e-07_rb /)
+      kbo(:,17, 8) = (/ &
+        & 0.69751e-07_rb,0.66211e-07_rb,0.66017e-07_rb,0.63095e-07_rb,0.63343e-07_rb /)
+      kbo(:,18, 8) = (/ &
+        & 0.67728e-07_rb,0.66581e-07_rb,0.64787e-07_rb,0.62981e-07_rb,0.62245e-07_rb /)
+      kbo(:,19, 8) = (/ &
+        & 0.65864e-07_rb,0.63789e-07_rb,0.62712e-07_rb,0.62065e-07_rb,0.61005e-07_rb /)
+      kbo(:,20, 8) = (/ &
+        & 0.61816e-07_rb,0.63755e-07_rb,0.63424e-07_rb,0.61945e-07_rb,0.58720e-07_rb /)
+      kbo(:,21, 8) = (/ &
+        & 0.59112e-07_rb,0.58061e-07_rb,0.57019e-07_rb,0.54795e-07_rb,0.56069e-07_rb /)
+      kbo(:,22, 8) = (/ &
+        & 0.56217e-07_rb,0.53887e-07_rb,0.54812e-07_rb,0.52500e-07_rb,0.53303e-07_rb /)
+      kbo(:,23, 8) = (/ &
+        & 0.54428e-07_rb,0.52930e-07_rb,0.53278e-07_rb,0.52797e-07_rb,0.51840e-07_rb /)
+      kbo(:,24, 8) = (/ &
+        & 0.51236e-07_rb,0.52532e-07_rb,0.53348e-07_rb,0.51715e-07_rb,0.53224e-07_rb /)
+      kbo(:,25, 8) = (/ &
+        & 0.49989e-07_rb,0.50872e-07_rb,0.49932e-07_rb,0.52702e-07_rb,0.51493e-07_rb /)
+      kbo(:,26, 8) = (/ &
+        & 0.49845e-07_rb,0.48733e-07_rb,0.48348e-07_rb,0.51346e-07_rb,0.51109e-07_rb /)
+      kbo(:,27, 8) = (/ &
+        & 0.43883e-07_rb,0.43853e-07_rb,0.46523e-07_rb,0.47281e-07_rb,0.47292e-07_rb /)
+      kbo(:,28, 8) = (/ &
+        & 0.41424e-07_rb,0.42057e-07_rb,0.43773e-07_rb,0.43422e-07_rb,0.41438e-07_rb /)
+      kbo(:,29, 8) = (/ &
+        & 0.37736e-07_rb,0.34915e-07_rb,0.37971e-07_rb,0.38437e-07_rb,0.38122e-07_rb /)
+      kbo(:,30, 8) = (/ &
+        & 0.30209e-07_rb,0.32936e-07_rb,0.31853e-07_rb,0.30285e-07_rb,0.31746e-07_rb /)
+      kbo(:,31, 8) = (/ &
+        & 0.25886e-07_rb,0.26990e-07_rb,0.27039e-07_rb,0.26019e-07_rb,0.34246e-07_rb /)
+      kbo(:,32, 8) = (/ &
+        & 0.24750e-07_rb,0.20653e-07_rb,0.21921e-07_rb,0.25087e-07_rb,0.25874e-07_rb /)
+      kbo(:,33, 8) = (/ &
+        & 0.19410e-07_rb,0.18820e-07_rb,0.18768e-07_rb,0.23223e-07_rb,0.20942e-07_rb /)
+      kbo(:,34, 8) = (/ &
+        & 0.16037e-07_rb,0.16060e-07_rb,0.19012e-07_rb,0.17686e-07_rb,0.18319e-07_rb /)
+      kbo(:,35, 8) = (/ &
+        & 0.16085e-07_rb,0.15072e-07_rb,0.16472e-07_rb,0.15719e-07_rb,0.16406e-07_rb /)
+      kbo(:,36, 8) = (/ &
+        & 0.15014e-07_rb,0.17144e-07_rb,0.16353e-07_rb,0.15223e-07_rb,0.14884e-07_rb /)
+      kbo(:,37, 8) = (/ &
+        & 0.12909e-07_rb,0.15628e-07_rb,0.16086e-07_rb,0.15318e-07_rb,0.15605e-07_rb /)
+      kbo(:,38, 8) = (/ &
+        & 0.11803e-07_rb,0.12970e-07_rb,0.13587e-07_rb,0.13257e-07_rb,0.13920e-07_rb /)
+      kbo(:,39, 8) = (/ &
+        & 0.10299e-07_rb,0.10951e-07_rb,0.11006e-07_rb,0.11507e-07_rb,0.10553e-07_rb /)
+      kbo(:,40, 8) = (/ &
+        & 0.87605e-08_rb,0.10094e-07_rb,0.10641e-07_rb,0.94199e-08_rb,0.97115e-08_rb /)
+      kbo(:,41, 8) = (/ &
+        & 0.69747e-08_rb,0.82105e-08_rb,0.93516e-08_rb,0.90234e-08_rb,0.91657e-08_rb /)
+      kbo(:,42, 8) = (/ &
+        & 0.60201e-08_rb,0.73523e-08_rb,0.76249e-08_rb,0.76962e-08_rb,0.80489e-08_rb /)
+      kbo(:,43, 8) = (/ &
+        & 0.50249e-08_rb,0.64035e-08_rb,0.62997e-08_rb,0.63745e-08_rb,0.65773e-08_rb /)
+      kbo(:,44, 8) = (/ &
+        & 0.43021e-08_rb,0.55682e-08_rb,0.52391e-08_rb,0.55432e-08_rb,0.53417e-08_rb /)
+      kbo(:,45, 8) = (/ &
+        & 0.34659e-08_rb,0.41011e-08_rb,0.41998e-08_rb,0.45328e-08_rb,0.45452e-08_rb /)
+      kbo(:,46, 8) = (/ &
+        & 0.26629e-08_rb,0.30573e-08_rb,0.34050e-08_rb,0.36018e-08_rb,0.38146e-08_rb /)
+      kbo(:,47, 8) = (/ &
+        & 0.20352e-08_rb,0.25120e-08_rb,0.29668e-08_rb,0.27818e-08_rb,0.34015e-08_rb /)
+      kbo(:,48, 8) = (/ &
+        & 0.16537e-08_rb,0.17568e-08_rb,0.23894e-08_rb,0.22154e-08_rb,0.25802e-08_rb /)
+      kbo(:,49, 8) = (/ &
+        & 0.13981e-08_rb,0.14349e-08_rb,0.17246e-08_rb,0.17767e-08_rb,0.19090e-08_rb /)
+      kbo(:,50, 8) = (/ &
+        & 0.10918e-08_rb,0.11356e-08_rb,0.12258e-08_rb,0.14996e-08_rb,0.12493e-08_rb /)
+      kbo(:,51, 8) = (/ &
+        & 0.96204e-09_rb,0.88786e-09_rb,0.10061e-08_rb,0.12415e-08_rb,0.10774e-08_rb /)
+      kbo(:,52, 8) = (/ &
+        & 0.79848e-09_rb,0.70289e-09_rb,0.84515e-09_rb,0.10143e-08_rb,0.85552e-09_rb /)
+      kbo(:,53, 8) = (/ &
+        & 0.60435e-09_rb,0.54746e-09_rb,0.63806e-09_rb,0.74615e-09_rb,0.64507e-09_rb /)
+      kbo(:,54, 8) = (/ &
+        & 0.47378e-09_rb,0.48059e-09_rb,0.54886e-09_rb,0.73215e-09_rb,0.65721e-09_rb /)
+      kbo(:,55, 8) = (/ &
+        & 0.45346e-09_rb,0.46291e-09_rb,0.55380e-09_rb,0.67829e-09_rb,0.56756e-09_rb /)
+      kbo(:,56, 8) = (/ &
+        & 0.43938e-09_rb,0.46043e-09_rb,0.50980e-09_rb,0.62685e-09_rb,0.70094e-09_rb /)
+      kbo(:,57, 8) = (/ &
+        & 0.42587e-09_rb,0.43184e-09_rb,0.47819e-09_rb,0.57152e-09_rb,0.76528e-09_rb /)
+      kbo(:,58, 8) = (/ &
+        & 0.47403e-09_rb,0.46387e-09_rb,0.50904e-09_rb,0.58886e-09_rb,0.70162e-09_rb /)
+      kbo(:,59, 8) = (/ &
+        & 0.54448e-09_rb,0.50172e-09_rb,0.65155e-09_rb,0.65748e-09_rb,0.98321e-09_rb /)
+      kbo(:,13, 9) = (/ &
+        & 0.10995e-05_rb,0.11095e-05_rb,0.11168e-05_rb,0.11200e-05_rb,0.11274e-05_rb /)
+      kbo(:,14, 9) = (/ &
+        & 0.73340e-06_rb,0.73567e-06_rb,0.73740e-06_rb,0.73330e-06_rb,0.73919e-06_rb /)
+      kbo(:,15, 9) = (/ &
+        & 0.32510e-06_rb,0.31252e-06_rb,0.30243e-06_rb,0.29146e-06_rb,0.28830e-06_rb /)
+      kbo(:,16, 9) = (/ &
+        & 0.61567e-07_rb,0.60590e-07_rb,0.61057e-07_rb,0.58821e-07_rb,0.58536e-07_rb /)
+      kbo(:,17, 9) = (/ &
+        & 0.60009e-07_rb,0.60924e-07_rb,0.61205e-07_rb,0.63591e-07_rb,0.59950e-07_rb /)
+      kbo(:,18, 9) = (/ &
+        & 0.61458e-07_rb,0.61692e-07_rb,0.60339e-07_rb,0.59878e-07_rb,0.58575e-07_rb /)
+      kbo(:,19, 9) = (/ &
+        & 0.57878e-07_rb,0.60299e-07_rb,0.60236e-07_rb,0.59512e-07_rb,0.58126e-07_rb /)
+      kbo(:,20, 9) = (/ &
+        & 0.58329e-07_rb,0.57451e-07_rb,0.54760e-07_rb,0.57082e-07_rb,0.56805e-07_rb /)
+      kbo(:,21, 9) = (/ &
+        & 0.53092e-07_rb,0.51700e-07_rb,0.51833e-07_rb,0.52853e-07_rb,0.52467e-07_rb /)
+      kbo(:,22, 9) = (/ &
+        & 0.47591e-07_rb,0.51357e-07_rb,0.49075e-07_rb,0.53548e-07_rb,0.55924e-07_rb /)
+      kbo(:,23, 9) = (/ &
+        & 0.49724e-07_rb,0.51803e-07_rb,0.51793e-07_rb,0.49922e-07_rb,0.52665e-07_rb /)
+      kbo(:,24, 9) = (/ &
+        & 0.47737e-07_rb,0.49279e-07_rb,0.51207e-07_rb,0.49000e-07_rb,0.51613e-07_rb /)
+      kbo(:,25, 9) = (/ &
+        & 0.49014e-07_rb,0.50174e-07_rb,0.54886e-07_rb,0.47520e-07_rb,0.49798e-07_rb /)
+      kbo(:,26, 9) = (/ &
+        & 0.42783e-07_rb,0.51200e-07_rb,0.50600e-07_rb,0.47620e-07_rb,0.43709e-07_rb /)
+      kbo(:,27, 9) = (/ &
+        & 0.42685e-07_rb,0.50611e-07_rb,0.42800e-07_rb,0.43026e-07_rb,0.46518e-07_rb /)
+      kbo(:,28, 9) = (/ &
+        & 0.40023e-07_rb,0.44433e-07_rb,0.38380e-07_rb,0.40945e-07_rb,0.42005e-07_rb /)
+      kbo(:,29, 9) = (/ &
+        & 0.34641e-07_rb,0.38943e-07_rb,0.36153e-07_rb,0.36773e-07_rb,0.32051e-07_rb /)
+      kbo(:,30, 9) = (/ &
+        & 0.31936e-07_rb,0.28774e-07_rb,0.32629e-07_rb,0.32074e-07_rb,0.31547e-07_rb /)
+      kbo(:,31, 9) = (/ &
+        & 0.25468e-07_rb,0.25946e-07_rb,0.23671e-07_rb,0.23770e-07_rb,0.28704e-07_rb /)
+      kbo(:,32, 9) = (/ &
+        & 0.18317e-07_rb,0.22069e-07_rb,0.20055e-07_rb,0.21665e-07_rb,0.25653e-07_rb /)
+      kbo(:,33, 9) = (/ &
+        & 0.18319e-07_rb,0.17920e-07_rb,0.16523e-07_rb,0.20049e-07_rb,0.19951e-07_rb /)
+      kbo(:,34, 9) = (/ &
+        & 0.15127e-07_rb,0.13546e-07_rb,0.16257e-07_rb,0.16818e-07_rb,0.15661e-07_rb /)
+      kbo(:,35, 9) = (/ &
+        & 0.12192e-07_rb,0.13829e-07_rb,0.15792e-07_rb,0.15440e-07_rb,0.14596e-07_rb /)
+      kbo(:,36, 9) = (/ &
+        & 0.11593e-07_rb,0.10509e-07_rb,0.13211e-07_rb,0.13026e-07_rb,0.13917e-07_rb /)
+      kbo(:,37, 9) = (/ &
+        & 0.12302e-07_rb,0.13196e-07_rb,0.12558e-07_rb,0.11760e-07_rb,0.12490e-07_rb /)
+      kbo(:,38, 9) = (/ &
+        & 0.10116e-07_rb,0.12498e-07_rb,0.12546e-07_rb,0.12890e-07_rb,0.12908e-07_rb /)
+      kbo(:,39, 9) = (/ &
+        & 0.88258e-08_rb,0.10400e-07_rb,0.11293e-07_rb,0.11361e-07_rb,0.11468e-07_rb /)
+      kbo(:,40, 9) = (/ &
+        & 0.70753e-08_rb,0.81481e-08_rb,0.94292e-08_rb,0.10943e-07_rb,0.90300e-08_rb /)
+      kbo(:,41, 9) = (/ &
+        & 0.71994e-08_rb,0.84394e-08_rb,0.89108e-08_rb,0.89407e-08_rb,0.87875e-08_rb /)
+      kbo(:,42, 9) = (/ &
+        & 0.55536e-08_rb,0.66846e-08_rb,0.83965e-08_rb,0.80560e-08_rb,0.79305e-08_rb /)
+      kbo(:,43, 9) = (/ &
+        & 0.50223e-08_rb,0.59958e-08_rb,0.69583e-08_rb,0.70648e-08_rb,0.76990e-08_rb /)
+      kbo(:,44, 9) = (/ &
+        & 0.40990e-08_rb,0.43884e-08_rb,0.50706e-08_rb,0.56081e-08_rb,0.62414e-08_rb /)
+      kbo(:,45, 9) = (/ &
+        & 0.35590e-08_rb,0.38731e-08_rb,0.41923e-08_rb,0.44278e-08_rb,0.44950e-08_rb /)
+      kbo(:,46, 9) = (/ &
+        & 0.26814e-08_rb,0.33691e-08_rb,0.34101e-08_rb,0.34324e-08_rb,0.35321e-08_rb /)
+      kbo(:,47, 9) = (/ &
+        & 0.21424e-08_rb,0.21249e-08_rb,0.27532e-08_rb,0.28475e-08_rb,0.25748e-08_rb /)
+      kbo(:,48, 9) = (/ &
+        & 0.16514e-08_rb,0.18931e-08_rb,0.22507e-08_rb,0.22575e-08_rb,0.21238e-08_rb /)
+      kbo(:,49, 9) = (/ &
+        & 0.12235e-08_rb,0.12503e-08_rb,0.16643e-08_rb,0.16742e-08_rb,0.16438e-08_rb /)
+      kbo(:,50, 9) = (/ &
+        & 0.11340e-08_rb,0.11248e-08_rb,0.13120e-08_rb,0.13854e-08_rb,0.13503e-08_rb /)
+      kbo(:,51, 9) = (/ &
+        & 0.79176e-09_rb,0.91681e-09_rb,0.99908e-09_rb,0.13532e-08_rb,0.10405e-08_rb /)
+      kbo(:,52, 9) = (/ &
+        & 0.64785e-09_rb,0.57185e-09_rb,0.84784e-09_rb,0.90912e-09_rb,0.87721e-09_rb /)
+      kbo(:,53, 9) = (/ &
+        & 0.51330e-09_rb,0.43209e-09_rb,0.61659e-09_rb,0.79798e-09_rb,0.65017e-09_rb /)
+      kbo(:,54, 9) = (/ &
+        & 0.40227e-09_rb,0.45562e-09_rb,0.54691e-09_rb,0.63160e-09_rb,0.62902e-09_rb /)
+      kbo(:,55, 9) = (/ &
+        & 0.44280e-09_rb,0.43833e-09_rb,0.48132e-09_rb,0.55748e-09_rb,0.72672e-09_rb /)
+      kbo(:,56, 9) = (/ &
+        & 0.33767e-09_rb,0.43448e-09_rb,0.42774e-09_rb,0.52401e-09_rb,0.66273e-09_rb /)
+      kbo(:,57, 9) = (/ &
+        & 0.40113e-09_rb,0.38794e-09_rb,0.46286e-09_rb,0.57261e-09_rb,0.60773e-09_rb /)
+      kbo(:,58, 9) = (/ &
+        & 0.36624e-09_rb,0.52965e-09_rb,0.49530e-09_rb,0.54114e-09_rb,0.65708e-09_rb /)
+      kbo(:,59, 9) = (/ &
+        & 0.52598e-09_rb,0.55940e-09_rb,0.70094e-09_rb,0.71749e-09_rb,0.81086e-09_rb /)
+      kbo(:,13,10) = (/ &
+        & 0.75197e-05_rb,0.74908e-05_rb,0.74768e-05_rb,0.74579e-05_rb,0.74485e-05_rb /)
+      kbo(:,14,10) = (/ &
+        & 0.62427e-05_rb,0.62400e-05_rb,0.62314e-05_rb,0.62357e-05_rb,0.62230e-05_rb /)
+      kbo(:,15,10) = (/ &
+        & 0.51235e-05_rb,0.51220e-05_rb,0.51270e-05_rb,0.51388e-05_rb,0.51377e-05_rb /)
+      kbo(:,16,10) = (/ &
+        & 0.36653e-05_rb,0.36812e-05_rb,0.36844e-05_rb,0.36893e-05_rb,0.37175e-05_rb /)
+      kbo(:,17,10) = (/ &
+        & 0.10067e-05_rb,0.10571e-05_rb,0.10948e-05_rb,0.11331e-05_rb,0.11791e-05_rb /)
+      kbo(:,18,10) = (/ &
+        & 0.37963e-07_rb,0.35028e-07_rb,0.38085e-07_rb,0.36252e-07_rb,0.39741e-07_rb /)
+      kbo(:,19,10) = (/ &
+        & 0.58861e-07_rb,0.39909e-07_rb,0.43872e-07_rb,0.52963e-07_rb,0.37762e-07_rb /)
+      kbo(:,20,10) = (/ &
+        & 0.65438e-07_rb,0.43429e-07_rb,0.52709e-07_rb,0.35811e-07_rb,0.59833e-07_rb /)
+      kbo(:,21,10) = (/ &
+        & 0.50452e-07_rb,0.50995e-07_rb,0.40371e-07_rb,0.51145e-07_rb,0.52725e-07_rb /)
+      kbo(:,22,10) = (/ &
+        & 0.42139e-07_rb,0.45011e-07_rb,0.61867e-07_rb,0.41292e-07_rb,0.37916e-07_rb /)
+      kbo(:,23,10) = (/ &
+        & 0.30176e-07_rb,0.29856e-07_rb,0.39637e-07_rb,0.38957e-07_rb,0.64896e-07_rb /)
+      kbo(:,24,10) = (/ &
+        & 0.36010e-07_rb,0.42155e-07_rb,0.32787e-07_rb,0.46750e-07_rb,0.46940e-07_rb /)
+      kbo(:,25,10) = (/ &
+        & 0.34802e-07_rb,0.41607e-07_rb,0.40854e-07_rb,0.61643e-07_rb,0.53762e-07_rb /)
+      kbo(:,26,10) = (/ &
+        & 0.41295e-07_rb,0.39697e-07_rb,0.46005e-07_rb,0.46334e-07_rb,0.53334e-07_rb /)
+      kbo(:,27,10) = (/ &
+        & 0.61711e-07_rb,0.29641e-07_rb,0.51823e-07_rb,0.42625e-07_rb,0.36336e-07_rb /)
+      kbo(:,28,10) = (/ &
+        & 0.45196e-07_rb,0.56637e-07_rb,0.31716e-07_rb,0.38569e-07_rb,0.45693e-07_rb /)
+      kbo(:,29,10) = (/ &
+        & 0.47349e-07_rb,0.38492e-07_rb,0.26330e-07_rb,0.30953e-07_rb,0.33330e-07_rb /)
+      kbo(:,30,10) = (/ &
+        & 0.20700e-07_rb,0.24999e-07_rb,0.19626e-07_rb,0.33645e-07_rb,0.21883e-07_rb /)
+      kbo(:,31,10) = (/ &
+        & 0.31879e-07_rb,0.26245e-07_rb,0.28697e-07_rb,0.26867e-07_rb,0.26801e-07_rb /)
+      kbo(:,32,10) = (/ &
+        & 0.29616e-07_rb,0.18927e-07_rb,0.18903e-07_rb,0.14917e-07_rb,0.25602e-07_rb /)
+      kbo(:,33,10) = (/ &
+        & 0.22437e-07_rb,0.26260e-07_rb,0.17262e-07_rb,0.13354e-07_rb,0.18413e-07_rb /)
+      kbo(:,34,10) = (/ &
+        & 0.15957e-07_rb,0.11226e-07_rb,0.16852e-07_rb,0.11987e-07_rb,0.14358e-07_rb /)
+      kbo(:,35,10) = (/ &
+        & 0.11233e-07_rb,0.90736e-08_rb,0.13960e-07_rb,0.76472e-08_rb,0.11733e-07_rb /)
+      kbo(:,36,10) = (/ &
+        & 0.13919e-07_rb,0.10081e-07_rb,0.10035e-07_rb,0.10345e-07_rb,0.10622e-07_rb /)
+      kbo(:,37,10) = (/ &
+        & 0.76780e-08_rb,0.12331e-07_rb,0.10794e-07_rb,0.16023e-07_rb,0.11524e-07_rb /)
+      kbo(:,38,10) = (/ &
+        & 0.65416e-08_rb,0.97484e-08_rb,0.12132e-07_rb,0.10472e-07_rb,0.11363e-07_rb /)
+      kbo(:,39,10) = (/ &
+        & 0.78511e-08_rb,0.70392e-08_rb,0.91444e-08_rb,0.84352e-08_rb,0.95946e-08_rb /)
+      kbo(:,40,10) = (/ &
+        & 0.81878e-08_rb,0.94957e-08_rb,0.84996e-08_rb,0.11246e-07_rb,0.13024e-07_rb /)
+      kbo(:,41,10) = (/ &
+        & 0.65901e-08_rb,0.80717e-08_rb,0.78357e-08_rb,0.67309e-08_rb,0.85966e-08_rb /)
+      kbo(:,42,10) = (/ &
+        & 0.64210e-08_rb,0.59979e-08_rb,0.56936e-08_rb,0.70018e-08_rb,0.70433e-08_rb /)
+      kbo(:,43,10) = (/ &
+        & 0.40388e-08_rb,0.71452e-08_rb,0.63548e-08_rb,0.84902e-08_rb,0.75828e-08_rb /)
+      kbo(:,44,10) = (/ &
+        & 0.39142e-08_rb,0.55915e-08_rb,0.49863e-08_rb,0.52254e-08_rb,0.62790e-08_rb /)
+      kbo(:,45,10) = (/ &
+        & 0.42931e-08_rb,0.31608e-08_rb,0.46572e-08_rb,0.47490e-08_rb,0.59912e-08_rb /)
+      kbo(:,46,10) = (/ &
+        & 0.38722e-08_rb,0.16146e-08_rb,0.40010e-08_rb,0.24242e-08_rb,0.45711e-08_rb /)
+      kbo(:,47,10) = (/ &
+        & 0.14942e-08_rb,0.28671e-08_rb,0.27168e-08_rb,0.40090e-08_rb,0.42343e-08_rb /)
+      kbo(:,48,10) = (/ &
+        & 0.11911e-08_rb,0.13582e-08_rb,0.26580e-08_rb,0.29275e-08_rb,0.17855e-08_rb /)
+      kbo(:,49,10) = (/ &
+        & 0.14130e-08_rb,0.10553e-08_rb,0.10543e-08_rb,0.11428e-08_rb,0.14141e-08_rb /)
+      kbo(:,50,10) = (/ &
+        & 0.12182e-08_rb,0.14973e-08_rb,0.13182e-08_rb,0.84197e-09_rb,0.12115e-08_rb /)
+      kbo(:,51,10) = (/ &
+        & 0.81227e-09_rb,0.90496e-09_rb,0.77903e-09_rb,0.83007e-09_rb,0.86051e-09_rb /)
+      kbo(:,52,10) = (/ &
+        & 0.96715e-09_rb,0.52504e-09_rb,0.42702e-09_rb,0.99435e-09_rb,0.91829e-09_rb /)
+      kbo(:,53,10) = (/ &
+        & 0.37232e-09_rb,0.22359e-09_rb,0.89279e-09_rb,0.85173e-09_rb,0.51790e-09_rb /)
+      kbo(:,54,10) = (/ &
+        & 0.34402e-09_rb,0.40116e-09_rb,0.54696e-09_rb,0.50848e-09_rb,0.53123e-09_rb /)
+      kbo(:,55,10) = (/ &
+        & 0.66100e-09_rb,0.65370e-09_rb,0.58427e-09_rb,0.74840e-09_rb,0.49778e-09_rb /)
+      kbo(:,56,10) = (/ &
+        & 0.43138e-09_rb,0.39155e-09_rb,0.52944e-09_rb,0.58374e-09_rb,0.77481e-09_rb /)
+      kbo(:,57,10) = (/ &
+        & 0.48190e-09_rb,0.37726e-09_rb,0.54783e-09_rb,0.43462e-09_rb,0.46295e-09_rb /)
+      kbo(:,58,10) = (/ &
+        & 0.42276e-09_rb,0.62831e-09_rb,0.68493e-09_rb,0.49089e-09_rb,0.43799e-09_rb /)
+      kbo(:,59,10) = (/ &
+        & 0.37023e-09_rb,0.90764e-09_rb,0.36527e-09_rb,0.99235e-09_rb,0.10719e-08_rb /)
+      kbo(:,13,11) = (/ &
+        & 0.15119e-04_rb,0.15135e-04_rb,0.15140e-04_rb,0.15181e-04_rb,0.15209e-04_rb /)
+      kbo(:,14,11) = (/ &
+        & 0.12807e-04_rb,0.12837e-04_rb,0.12873e-04_rb,0.12938e-04_rb,0.12999e-04_rb /)
+      kbo(:,15,11) = (/ &
+        & 0.10789e-04_rb,0.10839e-04_rb,0.10921e-04_rb,0.10986e-04_rb,0.11078e-04_rb /)
+      kbo(:,16,11) = (/ &
+        & 0.90472e-05_rb,0.91077e-05_rb,0.91930e-05_rb,0.92812e-05_rb,0.93959e-05_rb /)
+      kbo(:,17,11) = (/ &
+        & 0.74085e-05_rb,0.75116e-05_rb,0.76103e-05_rb,0.77238e-05_rb,0.78364e-05_rb /)
+      kbo(:,18,11) = (/ &
+        & 0.47863e-05_rb,0.49607e-05_rb,0.51634e-05_rb,0.53824e-05_rb,0.55724e-05_rb /)
+      kbo(:,19,11) = (/ &
+        & 0.17849e-05_rb,0.19797e-05_rb,0.21641e-05_rb,0.23597e-05_rb,0.26015e-05_rb /)
+      kbo(:,20,11) = (/ &
+        & 0.14011e-06_rb,0.26424e-06_rb,0.39902e-06_rb,0.56382e-06_rb,0.75666e-06_rb /)
+      kbo(:,21,11) = (/ &
+        & 0.32681e-07_rb,0.30855e-07_rb,0.23688e-07_rb,0.28954e-07_rb,0.30262e-07_rb /)
+      kbo(:,22,11) = (/ &
+        & 0.39000e-07_rb,0.34641e-07_rb,0.36220e-07_rb,0.29230e-07_rb,0.25365e-07_rb /)
+      kbo(:,23,11) = (/ &
+        & 0.39936e-07_rb,0.40586e-07_rb,0.26460e-07_rb,0.13886e-07_rb,0.18108e-07_rb /)
+      kbo(:,24,11) = (/ &
+        & 0.34546e-07_rb,0.30818e-07_rb,0.33243e-07_rb,0.31408e-07_rb,0.37755e-07_rb /)
+      kbo(:,25,11) = (/ &
+        & 0.36078e-07_rb,0.45586e-07_rb,0.18117e-07_rb,0.20176e-07_rb,0.46256e-07_rb /)
+      kbo(:,26,11) = (/ &
+        & 0.61382e-07_rb,0.31185e-07_rb,0.38578e-07_rb,0.18908e-07_rb,0.43919e-07_rb /)
+      kbo(:,27,11) = (/ &
+        & 0.37585e-07_rb,0.28323e-07_rb,0.45638e-07_rb,0.34261e-07_rb,0.26227e-07_rb /)
+      kbo(:,28,11) = (/ &
+        & 0.41226e-07_rb,0.24793e-07_rb,0.23296e-07_rb,0.20952e-07_rb,0.27899e-07_rb /)
+      kbo(:,29,11) = (/ &
+        & 0.21318e-07_rb,0.23768e-07_rb,0.39220e-07_rb,0.28896e-07_rb,0.15703e-07_rb /)
+      kbo(:,30,11) = (/ &
+        & 0.25522e-07_rb,0.29485e-07_rb,0.39326e-07_rb,0.29293e-07_rb,0.36529e-07_rb /)
+      kbo(:,31,11) = (/ &
+        & 0.14494e-07_rb,0.25417e-07_rb,0.13732e-07_rb,0.97827e-08_rb,0.20014e-07_rb /)
+      kbo(:,32,11) = (/ &
+        & 0.14101e-07_rb,0.26239e-07_rb,0.22312e-07_rb,0.10163e-07_rb,0.17547e-07_rb /)
+      kbo(:,33,11) = (/ &
+        & 0.17347e-07_rb,0.17261e-07_rb,0.13014e-07_rb,0.21130e-07_rb,0.31576e-08_rb /)
+      kbo(:,34,11) = (/ &
+        & 0.11923e-07_rb,0.13818e-07_rb,0.14692e-07_rb,0.14120e-07_rb,0.12000e-07_rb /)
+      kbo(:,35,11) = (/ &
+        & 0.86917e-08_rb,0.10083e-07_rb,0.11872e-07_rb,0.58578e-08_rb,0.13194e-07_rb /)
+      kbo(:,36,11) = (/ &
+        & 0.74538e-08_rb,0.94606e-08_rb,0.85633e-08_rb,0.15394e-07_rb,0.81997e-08_rb /)
+      kbo(:,37,11) = (/ &
+        & 0.59982e-08_rb,0.58805e-08_rb,0.92255e-08_rb,0.69472e-08_rb,0.63632e-08_rb /)
+      kbo(:,38,11) = (/ &
+        & 0.75481e-08_rb,0.82094e-08_rb,0.10405e-07_rb,0.62921e-08_rb,0.70021e-08_rb /)
+      kbo(:,39,11) = (/ &
+        & 0.65770e-08_rb,0.73715e-08_rb,0.70899e-08_rb,0.49884e-08_rb,0.73567e-08_rb /)
+      kbo(:,40,11) = (/ &
+        & 0.62200e-08_rb,0.79227e-08_rb,0.65710e-08_rb,0.35793e-08_rb,0.48653e-08_rb /)
+      kbo(:,41,11) = (/ &
+        & 0.67810e-08_rb,0.64933e-08_rb,0.26651e-08_rb,0.71067e-08_rb,0.42136e-08_rb /)
+      kbo(:,42,11) = (/ &
+        & 0.32351e-08_rb,0.79993e-08_rb,0.25727e-08_rb,0.70581e-08_rb,0.58932e-08_rb /)
+      kbo(:,43,11) = (/ &
+        & 0.54331e-08_rb,0.21653e-08_rb,0.69372e-08_rb,0.30142e-08_rb,0.23071e-07_rb /)
+      kbo(:,44,11) = (/ &
+        & 0.26834e-08_rb,0.43047e-08_rb,0.44246e-08_rb,0.29474e-08_rb,0.52315e-07_rb /)
+      kbo(:,45,11) = (/ &
+        & 0.22521e-08_rb,0.21920e-08_rb,0.35952e-08_rb,0.29799e-08_rb,0.81164e-07_rb /)
+      kbo(:,46,11) = (/ &
+        & 0.28580e-08_rb,0.12605e-08_rb,0.64390e-09_rb,0.24255e-07_rb,0.96879e-07_rb /)
+      kbo(:,47,11) = (/ &
+        & 0.13005e-08_rb,0.17967e-08_rb,0.21618e-08_rb,0.30225e-07_rb,0.10319e-06_rb /)
+      kbo(:,48,11) = (/ &
+        & 0.13676e-08_rb,0.96043e-09_rb,0.14275e-08_rb,0.39735e-07_rb,0.11261e-06_rb /)
+      kbo(:,49,11) = (/ &
+        & 0.79619e-09_rb,0.85338e-09_rb,0.14300e-08_rb,0.51821e-07_rb,0.12169e-06_rb /)
+      kbo(:,50,11) = (/ &
+        & 0.49284e-09_rb,0.21801e-09_rb,0.75017e-08_rb,0.50308e-07_rb,0.11953e-06_rb /)
+      kbo(:,51,11) = (/ &
+        & 0.51956e-09_rb,0.59927e-09_rb,0.87276e-08_rb,0.45028e-07_rb,0.11141e-06_rb /)
+      kbo(:,52,11) = (/ &
+        & 0.35814e-09_rb,0.78982e-09_rb,0.10205e-07_rb,0.45574e-07_rb,0.10332e-06_rb /)
+      kbo(:,53,11) = (/ &
+        & 0.69729e-09_rb,0.23757e-09_rb,0.11741e-07_rb,0.45086e-07_rb,0.98023e-07_rb /)
+      kbo(:,54,11) = (/ &
+        & 0.38203e-09_rb,0.28792e-09_rb,0.72239e-08_rb,0.35770e-07_rb,0.80771e-07_rb /)
+      kbo(:,55,11) = (/ &
+        & 0.33870e-09_rb,0.39698e-09_rb,0.15883e-08_rb,0.22568e-07_rb,0.61465e-07_rb /)
+      kbo(:,56,11) = (/ &
+        & 0.50424e-09_rb,0.25383e-09_rb,0.46226e-09_rb,0.12214e-07_rb,0.43776e-07_rb /)
+      kbo(:,57,11) = (/ &
+        & 0.18824e-09_rb,0.14340e-09_rb,0.96547e-10_rb,0.36771e-08_rb,0.28437e-07_rb /)
+      kbo(:,58,11) = (/ &
+        & 0.53960e-09_rb,0.71198e-09_rb,0.40290e-09_rb,0.38600e-09_rb,0.14449e-07_rb /)
+      kbo(:,59,11) = (/ &
+        & 0.64570e-09_rb,0.80856e-09_rb,0.54439e-09_rb,0.66021e-09_rb,0.28306e-09_rb /)
+      kbo(:,13,12) = (/ &
+        & 0.35137e-04_rb,0.35315e-04_rb,0.35473e-04_rb,0.35691e-04_rb,0.35953e-04_rb /)
+      kbo(:,14,12) = (/ &
+        & 0.30387e-04_rb,0.30535e-04_rb,0.30693e-04_rb,0.30906e-04_rb,0.31121e-04_rb /)
+      kbo(:,15,12) = (/ &
+        & 0.26404e-04_rb,0.26560e-04_rb,0.26776e-04_rb,0.26963e-04_rb,0.27157e-04_rb /)
+      kbo(:,16,12) = (/ &
+        & 0.22908e-04_rb,0.23161e-04_rb,0.23420e-04_rb,0.23636e-04_rb,0.23864e-04_rb /)
+      kbo(:,17,12) = (/ &
+        & 0.19849e-04_rb,0.20170e-04_rb,0.20453e-04_rb,0.20723e-04_rb,0.21011e-04_rb /)
+      kbo(:,18,12) = (/ &
+        & 0.17158e-04_rb,0.17516e-04_rb,0.17820e-04_rb,0.18149e-04_rb,0.18467e-04_rb /)
+      kbo(:,19,12) = (/ &
+        & 0.14706e-04_rb,0.15074e-04_rb,0.15426e-04_rb,0.15809e-04_rb,0.16128e-04_rb /)
+      kbo(:,20,12) = (/ &
+        & 0.12200e-04_rb,0.12654e-04_rb,0.13122e-04_rb,0.13561e-04_rb,0.13942e-04_rb /)
+      kbo(:,21,12) = (/ &
+        & 0.88744e-05_rb,0.95294e-05_rb,0.10194e-04_rb,0.10811e-04_rb,0.11447e-04_rb /)
+      kbo(:,22,12) = (/ &
+        & 0.63063e-05_rb,0.69160e-05_rb,0.75170e-05_rb,0.81696e-05_rb,0.87829e-05_rb /)
+      kbo(:,23,12) = (/ &
+        & 0.42549e-05_rb,0.48576e-05_rb,0.54224e-05_rb,0.60649e-05_rb,0.65852e-05_rb /)
+      kbo(:,24,12) = (/ &
+        & 0.26155e-05_rb,0.31537e-05_rb,0.36816e-05_rb,0.42795e-05_rb,0.47356e-05_rb /)
+      kbo(:,25,12) = (/ &
+        & 0.14576e-05_rb,0.18762e-05_rb,0.23875e-05_rb,0.29308e-05_rb,0.33846e-05_rb /)
+      kbo(:,26,12) = (/ &
+        & 0.67369e-06_rb,0.10096e-05_rb,0.14730e-05_rb,0.19592e-05_rb,0.24356e-05_rb /)
+      kbo(:,27,12) = (/ &
+        & 0.27240e-06_rb,0.59733e-06_rb,0.98553e-06_rb,0.13968e-05_rb,0.18466e-05_rb /)
+      kbo(:,28,12) = (/ &
+        & 0.81179e-07_rb,0.35063e-06_rb,0.74692e-06_rb,0.11081e-05_rb,0.15613e-05_rb /)
+      kbo(:,29,12) = (/ &
+        & 0.94800e-07_rb,0.40513e-06_rb,0.73547e-06_rb,0.10914e-05_rb,0.16188e-05_rb /)
+      kbo(:,30,12) = (/ &
+        & 0.19045e-06_rb,0.51192e-06_rb,0.80594e-06_rb,0.12694e-05_rb,0.16954e-05_rb /)
+      kbo(:,31,12) = (/ &
+        & 0.38493e-06_rb,0.71230e-06_rb,0.11392e-05_rb,0.15875e-05_rb,0.20565e-05_rb /)
+      kbo(:,32,12) = (/ &
+        & 0.61444e-06_rb,0.97779e-06_rb,0.14257e-05_rb,0.18883e-05_rb,0.26649e-05_rb /)
+      kbo(:,33,12) = (/ &
+        & 0.84230e-06_rb,0.12390e-05_rb,0.17304e-05_rb,0.23322e-05_rb,0.32859e-05_rb /)
+      kbo(:,34,12) = (/ &
+        & 0.10458e-05_rb,0.14709e-05_rb,0.19634e-05_rb,0.28004e-05_rb,0.37724e-05_rb /)
+      kbo(:,35,12) = (/ &
+        & 0.11901e-05_rb,0.16306e-05_rb,0.22411e-05_rb,0.31089e-05_rb,0.41007e-05_rb /)
+      kbo(:,36,12) = (/ &
+        & 0.12859e-05_rb,0.17604e-05_rb,0.24414e-05_rb,0.32964e-05_rb,0.43267e-05_rb /)
+      kbo(:,37,12) = (/ &
+        & 0.13015e-05_rb,0.17577e-05_rb,0.24562e-05_rb,0.33117e-05_rb,0.43238e-05_rb /)
+      kbo(:,38,12) = (/ &
+        & 0.13522e-05_rb,0.18247e-05_rb,0.25116e-05_rb,0.33483e-05_rb,0.43352e-05_rb /)
+      kbo(:,39,12) = (/ &
+        & 0.14322e-05_rb,0.19336e-05_rb,0.26107e-05_rb,0.34258e-05_rb,0.44158e-05_rb /)
+      kbo(:,40,12) = (/ &
+        & 0.14006e-05_rb,0.18728e-05_rb,0.25304e-05_rb,0.33179e-05_rb,0.42738e-05_rb /)
+      kbo(:,41,12) = (/ &
+        & 0.13551e-05_rb,0.18012e-05_rb,0.24357e-05_rb,0.32084e-05_rb,0.41141e-05_rb /)
+      kbo(:,42,12) = (/ &
+        & 0.13297e-05_rb,0.17512e-05_rb,0.23561e-05_rb,0.30946e-05_rb,0.39665e-05_rb /)
+      kbo(:,43,12) = (/ &
+        & 0.12687e-05_rb,0.16768e-05_rb,0.22464e-05_rb,0.29540e-05_rb,0.37527e-05_rb /)
+      kbo(:,44,12) = (/ &
+        & 0.12099e-05_rb,0.15968e-05_rb,0.21385e-05_rb,0.28006e-05_rb,0.35240e-05_rb /)
+      kbo(:,45,12) = (/ &
+        & 0.11534e-05_rb,0.15243e-05_rb,0.20279e-05_rb,0.26581e-05_rb,0.33062e-05_rb /)
+      kbo(:,46,12) = (/ &
+        & 0.10898e-05_rb,0.14434e-05_rb,0.19097e-05_rb,0.24739e-05_rb,0.30807e-05_rb /)
+      kbo(:,47,12) = (/ &
+        & 0.10111e-05_rb,0.13412e-05_rb,0.17607e-05_rb,0.22724e-05_rb,0.28391e-05_rb /)
+      kbo(:,48,12) = (/ &
+        & 0.92540e-06_rb,0.12447e-05_rb,0.16295e-05_rb,0.20863e-05_rb,0.26097e-05_rb /)
+      kbo(:,49,12) = (/ &
+        & 0.84684e-06_rb,0.11506e-05_rb,0.15141e-05_rb,0.19160e-05_rb,0.23957e-05_rb /)
+      kbo(:,50,12) = (/ &
+        & 0.76391e-06_rb,0.10519e-05_rb,0.13910e-05_rb,0.17635e-05_rb,0.22060e-05_rb /)
+      kbo(:,51,12) = (/ &
+        & 0.68139e-06_rb,0.95640e-06_rb,0.12771e-05_rb,0.16252e-05_rb,0.20363e-05_rb /)
+      kbo(:,52,12) = (/ &
+        & 0.60392e-06_rb,0.86706e-06_rb,0.11671e-05_rb,0.14940e-05_rb,0.18793e-05_rb /)
+      kbo(:,53,12) = (/ &
+        & 0.53856e-06_rb,0.78259e-06_rb,0.10620e-05_rb,0.13737e-05_rb,0.17330e-05_rb /)
+      kbo(:,54,12) = (/ &
+        & 0.46919e-06_rb,0.69589e-06_rb,0.96582e-06_rb,0.12666e-05_rb,0.16070e-05_rb /)
+      kbo(:,55,12) = (/ &
+        & 0.40013e-06_rb,0.61215e-06_rb,0.87450e-06_rb,0.11663e-05_rb,0.14929e-05_rb /)
+      kbo(:,56,12) = (/ &
+        & 0.33987e-06_rb,0.53286e-06_rb,0.78520e-06_rb,0.10697e-05_rb,0.13857e-05_rb /)
+      kbo(:,57,12) = (/ &
+        & 0.28415e-06_rb,0.45936e-06_rb,0.69784e-06_rb,0.97544e-06_rb,0.12829e-05_rb /)
+      kbo(:,58,12) = (/ &
+        & 0.23457e-06_rb,0.39019e-06_rb,0.61528e-06_rb,0.88439e-06_rb,0.11866e-05_rb /)
+      kbo(:,59,12) = (/ &
+        & 0.19576e-06_rb,0.34385e-06_rb,0.56055e-06_rb,0.82347e-06_rb,0.11274e-05_rb /)
+      kbo(:,13,13) = (/ &
+        & 0.12143e-03_rb,0.12308e-03_rb,0.12512e-03_rb,0.12699e-03_rb,0.12910e-03_rb /)
+      kbo(:,14,13) = (/ &
+        & 0.10385e-03_rb,0.10569e-03_rb,0.10770e-03_rb,0.10972e-03_rb,0.11214e-03_rb /)
+      kbo(:,15,13) = (/ &
+        & 0.88944e-04_rb,0.90837e-04_rb,0.92688e-04_rb,0.94910e-04_rb,0.97472e-04_rb /)
+      kbo(:,16,13) = (/ &
+        & 0.76542e-04_rb,0.78268e-04_rb,0.80179e-04_rb,0.82469e-04_rb,0.84734e-04_rb /)
+      kbo(:,17,13) = (/ &
+        & 0.66332e-04_rb,0.67885e-04_rb,0.69742e-04_rb,0.71831e-04_rb,0.74034e-04_rb /)
+      kbo(:,18,13) = (/ &
+        & 0.57811e-04_rb,0.59251e-04_rb,0.61096e-04_rb,0.62954e-04_rb,0.65175e-04_rb /)
+      kbo(:,19,13) = (/ &
+        & 0.50669e-04_rb,0.52124e-04_rb,0.53790e-04_rb,0.55608e-04_rb,0.57861e-04_rb /)
+      kbo(:,20,13) = (/ &
+        & 0.44810e-04_rb,0.46258e-04_rb,0.47774e-04_rb,0.49573e-04_rb,0.51715e-04_rb /)
+      kbo(:,21,13) = (/ &
+        & 0.40009e-04_rb,0.41361e-04_rb,0.42755e-04_rb,0.44560e-04_rb,0.46559e-04_rb /)
+      kbo(:,22,13) = (/ &
+        & 0.36116e-04_rb,0.37297e-04_rb,0.38718e-04_rb,0.40472e-04_rb,0.42441e-04_rb /)
+      kbo(:,23,13) = (/ &
+        & 0.32736e-04_rb,0.33861e-04_rb,0.35361e-04_rb,0.37075e-04_rb,0.39134e-04_rb /)
+      kbo(:,24,13) = (/ &
+        & 0.29883e-04_rb,0.31056e-04_rb,0.32552e-04_rb,0.34296e-04_rb,0.36499e-04_rb /)
+      kbo(:,25,13) = (/ &
+        & 0.27373e-04_rb,0.28693e-04_rb,0.30179e-04_rb,0.32033e-04_rb,0.34358e-04_rb /)
+      kbo(:,26,13) = (/ &
+        & 0.25273e-04_rb,0.26749e-04_rb,0.28306e-04_rb,0.30341e-04_rb,0.32793e-04_rb /)
+      kbo(:,27,13) = (/ &
+        & 0.23652e-04_rb,0.25175e-04_rb,0.26905e-04_rb,0.29145e-04_rb,0.31814e-04_rb /)
+      kbo(:,28,13) = (/ &
+        & 0.22453e-04_rb,0.24077e-04_rb,0.26031e-04_rb,0.28419e-04_rb,0.31259e-04_rb /)
+      kbo(:,29,13) = (/ &
+        & 0.21794e-04_rb,0.23553e-04_rb,0.25672e-04_rb,0.28266e-04_rb,0.31243e-04_rb /)
+      kbo(:,30,13) = (/ &
+        & 0.21501e-04_rb,0.23414e-04_rb,0.25687e-04_rb,0.28389e-04_rb,0.31547e-04_rb /)
+      kbo(:,31,13) = (/ &
+        & 0.21532e-04_rb,0.23577e-04_rb,0.25947e-04_rb,0.28793e-04_rb,0.32070e-04_rb /)
+      kbo(:,32,13) = (/ &
+        & 0.21702e-04_rb,0.23850e-04_rb,0.26365e-04_rb,0.29337e-04_rb,0.32730e-04_rb /)
+      kbo(:,33,13) = (/ &
+        & 0.21999e-04_rb,0.24243e-04_rb,0.26895e-04_rb,0.29970e-04_rb,0.33492e-04_rb /)
+      kbo(:,34,13) = (/ &
+        & 0.22272e-04_rb,0.24615e-04_rb,0.27365e-04_rb,0.30535e-04_rb,0.34149e-04_rb /)
+      kbo(:,35,13) = (/ &
+        & 0.22408e-04_rb,0.24786e-04_rb,0.27609e-04_rb,0.30838e-04_rb,0.34518e-04_rb /)
+      kbo(:,36,13) = (/ &
+        & 0.22324e-04_rb,0.24717e-04_rb,0.27535e-04_rb,0.30781e-04_rb,0.34466e-04_rb /)
+      kbo(:,37,13) = (/ &
+        & 0.21914e-04_rb,0.24278e-04_rb,0.27037e-04_rb,0.30223e-04_rb,0.33847e-04_rb /)
+      kbo(:,38,13) = (/ &
+        & 0.21518e-04_rb,0.23846e-04_rb,0.26529e-04_rb,0.29664e-04_rb,0.33219e-04_rb /)
+      kbo(:,39,13) = (/ &
+        & 0.21138e-04_rb,0.23443e-04_rb,0.26064e-04_rb,0.29132e-04_rb,0.32628e-04_rb /)
+      kbo(:,40,13) = (/ &
+        & 0.20535e-04_rb,0.22813e-04_rb,0.25328e-04_rb,0.28289e-04_rb,0.31682e-04_rb /)
+      kbo(:,41,13) = (/ &
+        & 0.19918e-04_rb,0.22174e-04_rb,0.24598e-04_rb,0.27447e-04_rb,0.30722e-04_rb /)
+      kbo(:,42,13) = (/ &
+        & 0.19309e-04_rb,0.21550e-04_rb,0.23909e-04_rb,0.26639e-04_rb,0.29801e-04_rb /)
+      kbo(:,43,13) = (/ &
+        & 0.18566e-04_rb,0.20812e-04_rb,0.23112e-04_rb,0.25700e-04_rb,0.28732e-04_rb /)
+      kbo(:,44,13) = (/ &
+        & 0.17767e-04_rb,0.20035e-04_rb,0.22299e-04_rb,0.24756e-04_rb,0.27639e-04_rb /)
+      kbo(:,45,13) = (/ &
+        & 0.16962e-04_rb,0.19260e-04_rb,0.21500e-04_rb,0.23864e-04_rb,0.26597e-04_rb /)
+      kbo(:,46,13) = (/ &
+        & 0.16086e-04_rb,0.18421e-04_rb,0.20671e-04_rb,0.22972e-04_rb,0.25545e-04_rb /)
+      kbo(:,47,13) = (/ &
+        & 0.15115e-04_rb,0.17481e-04_rb,0.19766e-04_rb,0.22019e-04_rb,0.24442e-04_rb /)
+      kbo(:,48,13) = (/ &
+        & 0.14158e-04_rb,0.16526e-04_rb,0.18843e-04_rb,0.21088e-04_rb,0.23419e-04_rb /)
+      kbo(:,49,13) = (/ &
+        & 0.13195e-04_rb,0.15552e-04_rb,0.17911e-04_rb,0.20179e-04_rb,0.22454e-04_rb /)
+      kbo(:,50,13) = (/ &
+        & 0.12314e-04_rb,0.14653e-04_rb,0.17032e-04_rb,0.19326e-04_rb,0.21576e-04_rb /)
+      kbo(:,51,13) = (/ &
+        & 0.11480e-04_rb,0.13788e-04_rb,0.16154e-04_rb,0.18484e-04_rb,0.20739e-04_rb /)
+      kbo(:,52,13) = (/ &
+        & 0.10629e-04_rb,0.12922e-04_rb,0.15279e-04_rb,0.17642e-04_rb,0.19921e-04_rb /)
+      kbo(:,53,13) = (/ &
+        & 0.97710e-05_rb,0.12082e-04_rb,0.14410e-04_rb,0.16788e-04_rb,0.19091e-04_rb /)
+      kbo(:,54,13) = (/ &
+        & 0.90074e-05_rb,0.11316e-04_rb,0.13617e-04_rb,0.15981e-04_rb,0.18321e-04_rb /)
+      kbo(:,55,13) = (/ &
+        & 0.83042e-05_rb,0.10569e-04_rb,0.12859e-04_rb,0.15214e-04_rb,0.17581e-04_rb /)
+      kbo(:,56,13) = (/ &
+        & 0.76202e-05_rb,0.98296e-05_rb,0.12125e-04_rb,0.14457e-04_rb,0.16835e-04_rb /)
+      kbo(:,57,13) = (/ &
+        & 0.69561e-05_rb,0.91024e-05_rb,0.11398e-04_rb,0.13700e-04_rb,0.16068e-04_rb /)
+      kbo(:,58,13) = (/ &
+        & 0.63426e-05_rb,0.84347e-05_rb,0.10695e-04_rb,0.12984e-04_rb,0.15340e-04_rb /)
+      kbo(:,59,13) = (/ &
+        & 0.61056e-05_rb,0.81719e-05_rb,0.10410e-04_rb,0.12698e-04_rb,0.15054e-04_rb /)
+      kbo(:,13,14) = (/ &
+        & 0.69692e-03_rb,0.71516e-03_rb,0.73378e-03_rb,0.75443e-03_rb,0.77716e-03_rb /)
+      kbo(:,14,14) = (/ &
+        & 0.64436e-03_rb,0.66211e-03_rb,0.68199e-03_rb,0.70460e-03_rb,0.72891e-03_rb /)
+      kbo(:,15,14) = (/ &
+        & 0.59775e-03_rb,0.61618e-03_rb,0.63785e-03_rb,0.66198e-03_rb,0.68803e-03_rb /)
+      kbo(:,16,14) = (/ &
+        & 0.55668e-03_rb,0.57752e-03_rb,0.60052e-03_rb,0.62615e-03_rb,0.65391e-03_rb /)
+      kbo(:,17,14) = (/ &
+        & 0.52104e-03_rb,0.54458e-03_rb,0.56934e-03_rb,0.59627e-03_rb,0.62539e-03_rb /)
+      kbo(:,18,14) = (/ &
+        & 0.49086e-03_rb,0.51685e-03_rb,0.54337e-03_rb,0.57147e-03_rb,0.60182e-03_rb /)
+      kbo(:,19,14) = (/ &
+        & 0.46544e-03_rb,0.49373e-03_rb,0.52192e-03_rb,0.55124e-03_rb,0.58277e-03_rb /)
+      kbo(:,20,14) = (/ &
+        & 0.44496e-03_rb,0.47526e-03_rb,0.50494e-03_rb,0.53564e-03_rb,0.56857e-03_rb /)
+      kbo(:,21,14) = (/ &
+        & 0.42855e-03_rb,0.46070e-03_rb,0.49202e-03_rb,0.52375e-03_rb,0.55795e-03_rb /)
+      kbo(:,22,14) = (/ &
+        & 0.41783e-03_rb,0.45160e-03_rb,0.48421e-03_rb,0.51739e-03_rb,0.55269e-03_rb /)
+      kbo(:,23,14) = (/ &
+        & 0.41085e-03_rb,0.44564e-03_rb,0.47947e-03_rb,0.51389e-03_rb,0.55016e-03_rb /)
+      kbo(:,24,14) = (/ &
+        & 0.40699e-03_rb,0.44263e-03_rb,0.47766e-03_rb,0.51290e-03_rb,0.55008e-03_rb /)
+      kbo(:,25,14) = (/ &
+        & 0.40592e-03_rb,0.44215e-03_rb,0.47812e-03_rb,0.51419e-03_rb,0.55216e-03_rb /)
+      kbo(:,26,14) = (/ &
+        & 0.40741e-03_rb,0.44425e-03_rb,0.48085e-03_rb,0.51770e-03_rb,0.55654e-03_rb /)
+      kbo(:,27,14) = (/ &
+        & 0.41074e-03_rb,0.44811e-03_rb,0.48506e-03_rb,0.52264e-03_rb,0.56211e-03_rb /)
+      kbo(:,28,14) = (/ &
+        & 0.41538e-03_rb,0.45333e-03_rb,0.49042e-03_rb,0.52868e-03_rb,0.56877e-03_rb /)
+      kbo(:,29,14) = (/ &
+        & 0.42139e-03_rb,0.45956e-03_rb,0.49700e-03_rb,0.53588e-03_rb,0.57647e-03_rb /)
+      kbo(:,30,14) = (/ &
+        & 0.42836e-03_rb,0.46659e-03_rb,0.50435e-03_rb,0.54377e-03_rb,0.58489e-03_rb /)
+      kbo(:,31,14) = (/ &
+        & 0.43618e-03_rb,0.47431e-03_rb,0.51248e-03_rb,0.55256e-03_rb,0.59401e-03_rb /)
+      kbo(:,32,14) = (/ &
+        & 0.44466e-03_rb,0.48256e-03_rb,0.52138e-03_rb,0.56187e-03_rb,0.60364e-03_rb /)
+      kbo(:,33,14) = (/ &
+        & 0.45349e-03_rb,0.49137e-03_rb,0.53076e-03_rb,0.57166e-03_rb,0.61359e-03_rb /)
+      kbo(:,34,14) = (/ &
+        & 0.46108e-03_rb,0.49922e-03_rb,0.53902e-03_rb,0.58028e-03_rb,0.62237e-03_rb /)
+      kbo(:,35,14) = (/ &
+        & 0.46528e-03_rb,0.50354e-03_rb,0.54368e-03_rb,0.58501e-03_rb,0.62724e-03_rb /)
+      kbo(:,36,14) = (/ &
+        & 0.46539e-03_rb,0.50375e-03_rb,0.54391e-03_rb,0.58538e-03_rb,0.62763e-03_rb /)
+      kbo(:,37,14) = (/ &
+        & 0.45984e-03_rb,0.49817e-03_rb,0.53806e-03_rb,0.57948e-03_rb,0.62153e-03_rb /)
+      kbo(:,38,14) = (/ &
+        & 0.45408e-03_rb,0.49229e-03_rb,0.53205e-03_rb,0.57322e-03_rb,0.61533e-03_rb /)
+      kbo(:,39,14) = (/ &
+        & 0.44837e-03_rb,0.48652e-03_rb,0.52604e-03_rb,0.56712e-03_rb,0.60916e-03_rb /)
+      kbo(:,40,14) = (/ &
+        & 0.43865e-03_rb,0.47705e-03_rb,0.51607e-03_rb,0.55678e-03_rb,0.59870e-03_rb /)
+      kbo(:,41,14) = (/ &
+        & 0.42850e-03_rb,0.46708e-03_rb,0.50578e-03_rb,0.54611e-03_rb,0.58790e-03_rb /)
+      kbo(:,42,14) = (/ &
+        & 0.41832e-03_rb,0.45718e-03_rb,0.49552e-03_rb,0.53551e-03_rb,0.57688e-03_rb /)
+      kbo(:,43,14) = (/ &
+        & 0.40611e-03_rb,0.44501e-03_rb,0.48328e-03_rb,0.52271e-03_rb,0.56375e-03_rb /)
+      kbo(:,44,14) = (/ &
+        & 0.39281e-03_rb,0.43169e-03_rb,0.47025e-03_rb,0.50904e-03_rb,0.54960e-03_rb /)
+      kbo(:,45,14) = (/ &
+        & 0.37939e-03_rb,0.41841e-03_rb,0.45722e-03_rb,0.49565e-03_rb,0.53564e-03_rb /)
+      kbo(:,46,14) = (/ &
+        & 0.36481e-03_rb,0.40443e-03_rb,0.44334e-03_rb,0.48171e-03_rb,0.52104e-03_rb /)
+      kbo(:,47,14) = (/ &
+        & 0.34813e-03_rb,0.38867e-03_rb,0.42754e-03_rb,0.46626e-03_rb,0.50489e-03_rb /)
+      kbo(:,48,14) = (/ &
+        & 0.33101e-03_rb,0.37257e-03_rb,0.41188e-03_rb,0.45078e-03_rb,0.48906e-03_rb /)
+      kbo(:,49,14) = (/ &
+        & 0.31369e-03_rb,0.35613e-03_rb,0.39621e-03_rb,0.43508e-03_rb,0.47354e-03_rb /)
+      kbo(:,50,14) = (/ &
+        & 0.29739e-03_rb,0.34030e-03_rb,0.38132e-03_rb,0.42035e-03_rb,0.45918e-03_rb /)
+      kbo(:,51,14) = (/ &
+        & 0.28140e-03_rb,0.32461e-03_rb,0.36662e-03_rb,0.40619e-03_rb,0.44511e-03_rb /)
+      kbo(:,52,14) = (/ &
+        & 0.26563e-03_rb,0.30898e-03_rb,0.35161e-03_rb,0.39193e-03_rb,0.43080e-03_rb /)
+      kbo(:,53,14) = (/ &
+        & 0.24997e-03_rb,0.29311e-03_rb,0.33618e-03_rb,0.37741e-03_rb,0.41655e-03_rb /)
+      kbo(:,54,14) = (/ &
+        & 0.23534e-03_rb,0.27846e-03_rb,0.32175e-03_rb,0.36391e-03_rb,0.40359e-03_rb /)
+      kbo(:,55,14) = (/ &
+        & 0.22140e-03_rb,0.26468e-03_rb,0.30799e-03_rb,0.35062e-03_rb,0.39107e-03_rb /)
+      kbo(:,56,14) = (/ &
+        & 0.20748e-03_rb,0.25097e-03_rb,0.29409e-03_rb,0.33714e-03_rb,0.37835e-03_rb /)
+      kbo(:,57,14) = (/ &
+        & 0.19363e-03_rb,0.23702e-03_rb,0.28013e-03_rb,0.32339e-03_rb,0.36545e-03_rb /)
+      kbo(:,58,14) = (/ &
+        & 0.18066e-03_rb,0.22379e-03_rb,0.26710e-03_rb,0.31040e-03_rb,0.35295e-03_rb /)
+      kbo(:,59,14) = (/ &
+        & 0.17550e-03_rb,0.21855e-03_rb,0.26188e-03_rb,0.30515e-03_rb,0.34793e-03_rb /)
+      kbo(:,13,15) = (/ &
+        & 0.67077e-02_rb,0.67643e-02_rb,0.68102e-02_rb,0.68432e-02_rb,0.68617e-02_rb /)
+      kbo(:,14,15) = (/ &
+        & 0.68112e-02_rb,0.68842e-02_rb,0.69413e-02_rb,0.69806e-02_rb,0.70063e-02_rb /)
+      kbo(:,15,15) = (/ &
+        & 0.68961e-02_rb,0.69833e-02_rb,0.70488e-02_rb,0.70965e-02_rb,0.71269e-02_rb /)
+      kbo(:,16,15) = (/ &
+        & 0.69706e-02_rb,0.70648e-02_rb,0.71387e-02_rb,0.71925e-02_rb,0.72279e-02_rb /)
+      kbo(:,17,15) = (/ &
+        & 0.70342e-02_rb,0.71339e-02_rb,0.72130e-02_rb,0.72737e-02_rb,0.73138e-02_rb /)
+      kbo(:,18,15) = (/ &
+        & 0.70890e-02_rb,0.71933e-02_rb,0.72776e-02_rb,0.73426e-02_rb,0.73856e-02_rb /)
+      kbo(:,19,15) = (/ &
+        & 0.71380e-02_rb,0.72441e-02_rb,0.73326e-02_rb,0.74006e-02_rb,0.74464e-02_rb /)
+      kbo(:,20,15) = (/ &
+        & 0.71838e-02_rb,0.72907e-02_rb,0.73816e-02_rb,0.74514e-02_rb,0.74969e-02_rb /)
+      kbo(:,21,15) = (/ &
+        & 0.72239e-02_rb,0.73326e-02_rb,0.74235e-02_rb,0.74941e-02_rb,0.75405e-02_rb /)
+      kbo(:,22,15) = (/ &
+        & 0.72699e-02_rb,0.73767e-02_rb,0.74650e-02_rb,0.75340e-02_rb,0.75785e-02_rb /)
+      kbo(:,23,15) = (/ &
+        & 0.73111e-02_rb,0.74172e-02_rb,0.75033e-02_rb,0.75687e-02_rb,0.76113e-02_rb /)
+      kbo(:,24,15) = (/ &
+        & 0.73510e-02_rb,0.74537e-02_rb,0.75371e-02_rb,0.76008e-02_rb,0.76395e-02_rb /)
+      kbo(:,25,15) = (/ &
+        & 0.73875e-02_rb,0.74885e-02_rb,0.75684e-02_rb,0.76282e-02_rb,0.76634e-02_rb /)
+      kbo(:,26,15) = (/ &
+        & 0.74256e-02_rb,0.75226e-02_rb,0.75985e-02_rb,0.76530e-02_rb,0.76835e-02_rb /)
+      kbo(:,27,15) = (/ &
+        & 0.74605e-02_rb,0.75517e-02_rb,0.76248e-02_rb,0.76742e-02_rb,0.77008e-02_rb /)
+      kbo(:,28,15) = (/ &
+        & 0.74927e-02_rb,0.75800e-02_rb,0.76483e-02_rb,0.76927e-02_rb,0.77139e-02_rb /)
+      kbo(:,29,15) = (/ &
+        & 0.75244e-02_rb,0.76057e-02_rb,0.76690e-02_rb,0.77086e-02_rb,0.77249e-02_rb /)
+      kbo(:,30,15) = (/ &
+        & 0.75518e-02_rb,0.76303e-02_rb,0.76877e-02_rb,0.77209e-02_rb,0.77334e-02_rb /)
+      kbo(:,31,15) = (/ &
+        & 0.75781e-02_rb,0.76519e-02_rb,0.77036e-02_rb,0.77320e-02_rb,0.77395e-02_rb /)
+      kbo(:,32,15) = (/ &
+        & 0.76025e-02_rb,0.76727e-02_rb,0.77178e-02_rb,0.77409e-02_rb,0.77439e-02_rb /)
+      kbo(:,33,15) = (/ &
+        & 0.76266e-02_rb,0.76908e-02_rb,0.77289e-02_rb,0.77461e-02_rb,0.77464e-02_rb /)
+      kbo(:,34,15) = (/ &
+        & 0.76450e-02_rb,0.77038e-02_rb,0.77387e-02_rb,0.77507e-02_rb,0.77465e-02_rb /)
+      kbo(:,35,15) = (/ &
+        & 0.76558e-02_rb,0.77117e-02_rb,0.77433e-02_rb,0.77536e-02_rb,0.77475e-02_rb /)
+      kbo(:,36,15) = (/ &
+        & 0.76587e-02_rb,0.77150e-02_rb,0.77452e-02_rb,0.77564e-02_rb,0.77495e-02_rb /)
+      kbo(:,37,15) = (/ &
+        & 0.76522e-02_rb,0.77109e-02_rb,0.77439e-02_rb,0.77579e-02_rb,0.77534e-02_rb /)
+      kbo(:,38,15) = (/ &
+        & 0.76429e-02_rb,0.77056e-02_rb,0.77426e-02_rb,0.77582e-02_rb,0.77560e-02_rb /)
+      kbo(:,39,15) = (/ &
+        & 0.76339e-02_rb,0.76993e-02_rb,0.77402e-02_rb,0.77587e-02_rb,0.77588e-02_rb /)
+      kbo(:,40,15) = (/ &
+        & 0.76166e-02_rb,0.76865e-02_rb,0.77335e-02_rb,0.77564e-02_rb,0.77613e-02_rb /)
+      kbo(:,41,15) = (/ &
+        & 0.75961e-02_rb,0.76706e-02_rb,0.77239e-02_rb,0.77534e-02_rb,0.77621e-02_rb /)
+      kbo(:,42,15) = (/ &
+        & 0.75752e-02_rb,0.76537e-02_rb,0.77143e-02_rb,0.77487e-02_rb,0.77622e-02_rb /)
+      kbo(:,43,15) = (/ &
+        & 0.75459e-02_rb,0.76317e-02_rb,0.76988e-02_rb,0.77406e-02_rb,0.77602e-02_rb /)
+      kbo(:,44,15) = (/ &
+        & 0.75134e-02_rb,0.76061e-02_rb,0.76788e-02_rb,0.77299e-02_rb,0.77567e-02_rb /)
+      kbo(:,45,15) = (/ &
+        & 0.74772e-02_rb,0.75773e-02_rb,0.76562e-02_rb,0.77161e-02_rb,0.77502e-02_rb /)
+      kbo(:,46,15) = (/ &
+        & 0.74372e-02_rb,0.75438e-02_rb,0.76298e-02_rb,0.76975e-02_rb,0.77405e-02_rb /)
+      kbo(:,47,15) = (/ &
+        & 0.73875e-02_rb,0.75032e-02_rb,0.75980e-02_rb,0.76724e-02_rb,0.77261e-02_rb /)
+      kbo(:,48,15) = (/ &
+        & 0.73358e-02_rb,0.74597e-02_rb,0.75632e-02_rb,0.76453e-02_rb,0.77080e-02_rb /)
+      kbo(:,49,15) = (/ &
+        & 0.72811e-02_rb,0.74117e-02_rb,0.75238e-02_rb,0.76147e-02_rb,0.76865e-02_rb /)
+      kbo(:,50,15) = (/ &
+        & 0.72248e-02_rb,0.73656e-02_rb,0.74842e-02_rb,0.75831e-02_rb,0.76614e-02_rb /)
+      kbo(:,51,15) = (/ &
+        & 0.71662e-02_rb,0.73174e-02_rb,0.74427e-02_rb,0.75493e-02_rb,0.76342e-02_rb /)
+      kbo(:,52,15) = (/ &
+        & 0.71006e-02_rb,0.72655e-02_rb,0.73997e-02_rb,0.75133e-02_rb,0.76064e-02_rb /)
+      kbo(:,53,15) = (/ &
+        & 0.70300e-02_rb,0.72101e-02_rb,0.73531e-02_rb,0.74734e-02_rb,0.75745e-02_rb /)
+      kbo(:,54,15) = (/ &
+        & 0.69596e-02_rb,0.71548e-02_rb,0.73082e-02_rb,0.74357e-02_rb,0.75431e-02_rb /)
+      kbo(:,55,15) = (/ &
+        & 0.68873e-02_rb,0.70968e-02_rb,0.72620e-02_rb,0.73967e-02_rb,0.75110e-02_rb /)
+      kbo(:,56,15) = (/ &
+        & 0.68089e-02_rb,0.70345e-02_rb,0.72141e-02_rb,0.73575e-02_rb,0.74766e-02_rb /)
+      kbo(:,57,15) = (/ &
+        & 0.67241e-02_rb,0.69678e-02_rb,0.71623e-02_rb,0.73141e-02_rb,0.74401e-02_rb /)
+      kbo(:,58,15) = (/ &
+        & 0.66371e-02_rb,0.69009e-02_rb,0.71063e-02_rb,0.72699e-02_rb,0.74044e-02_rb /)
+      kbo(:,59,15) = (/ &
+        & 0.66009e-02_rb,0.68723e-02_rb,0.70852e-02_rb,0.72532e-02_rb,0.73888e-02_rb /)
+      kbo(:,13,16) = (/ &
+        & 0.20091e-01_rb,0.19310e-01_rb,0.18586e-01_rb,0.17917e-01_rb,0.17293e-01_rb /)
+      kbo(:,14,16) = (/ &
+        & 0.21405e-01_rb,0.20507e-01_rb,0.19679e-01_rb,0.18912e-01_rb,0.18201e-01_rb /)
+      kbo(:,15,16) = (/ &
+        & 0.22567e-01_rb,0.21555e-01_rb,0.20633e-01_rb,0.19775e-01_rb,0.18992e-01_rb /)
+      kbo(:,16,16) = (/ &
+        & 0.23562e-01_rb,0.22456e-01_rb,0.21445e-01_rb,0.20508e-01_rb,0.19661e-01_rb /)
+      kbo(:,17,16) = (/ &
+        & 0.24411e-01_rb,0.23217e-01_rb,0.22126e-01_rb,0.21126e-01_rb,0.20220e-01_rb /)
+      kbo(:,18,16) = (/ &
+        & 0.25116e-01_rb,0.23847e-01_rb,0.22688e-01_rb,0.21635e-01_rb,0.20680e-01_rb /)
+      kbo(:,19,16) = (/ &
+        & 0.25693e-01_rb,0.24361e-01_rb,0.23149e-01_rb,0.22047e-01_rb,0.21053e-01_rb /)
+      kbo(:,20,16) = (/ &
+        & 0.26126e-01_rb,0.24747e-01_rb,0.23489e-01_rb,0.22355e-01_rb,0.21332e-01_rb /)
+      kbo(:,21,16) = (/ &
+        & 0.26457e-01_rb,0.25034e-01_rb,0.23751e-01_rb,0.22588e-01_rb,0.21537e-01_rb /)
+      kbo(:,22,16) = (/ &
+        & 0.26586e-01_rb,0.25153e-01_rb,0.23857e-01_rb,0.22677e-01_rb,0.21621e-01_rb /)
+      kbo(:,23,16) = (/ &
+        & 0.26640e-01_rb,0.25191e-01_rb,0.23890e-01_rb,0.22706e-01_rb,0.21649e-01_rb /)
+      kbo(:,24,16) = (/ &
+        & 0.26616e-01_rb,0.25160e-01_rb,0.23861e-01_rb,0.22680e-01_rb,0.21622e-01_rb /)
+      kbo(:,25,16) = (/ &
+        & 0.26518e-01_rb,0.25075e-01_rb,0.23777e-01_rb,0.22603e-01_rb,0.21555e-01_rb /)
+      kbo(:,26,16) = (/ &
+        & 0.26348e-01_rb,0.24922e-01_rb,0.23637e-01_rb,0.22478e-01_rb,0.21437e-01_rb /)
+      kbo(:,27,16) = (/ &
+        & 0.26138e-01_rb,0.24737e-01_rb,0.23465e-01_rb,0.22328e-01_rb,0.21299e-01_rb /)
+      kbo(:,28,16) = (/ &
+        & 0.25904e-01_rb,0.24526e-01_rb,0.23272e-01_rb,0.22156e-01_rb,0.21140e-01_rb /)
+      kbo(:,29,16) = (/ &
+        & 0.25645e-01_rb,0.24289e-01_rb,0.23059e-01_rb,0.21960e-01_rb,0.20965e-01_rb /)
+      kbo(:,30,16) = (/ &
+        & 0.25364e-01_rb,0.24034e-01_rb,0.22831e-01_rb,0.21758e-01_rb,0.20776e-01_rb /)
+      kbo(:,31,16) = (/ &
+        & 0.25075e-01_rb,0.23766e-01_rb,0.22595e-01_rb,0.21541e-01_rb,0.20581e-01_rb /)
+      kbo(:,32,16) = (/ &
+        & 0.24769e-01_rb,0.23490e-01_rb,0.22348e-01_rb,0.21316e-01_rb,0.20377e-01_rb /)
+      kbo(:,33,16) = (/ &
+        & 0.24460e-01_rb,0.23211e-01_rb,0.22098e-01_rb,0.21090e-01_rb,0.20170e-01_rb /)
+      kbo(:,34,16) = (/ &
+        & 0.24193e-01_rb,0.22975e-01_rb,0.21887e-01_rb,0.20894e-01_rb,0.19994e-01_rb /)
+      kbo(:,35,16) = (/ &
+        & 0.24050e-01_rb,0.22849e-01_rb,0.21770e-01_rb,0.20789e-01_rb,0.19901e-01_rb /)
+      kbo(:,36,16) = (/ &
+        & 0.24043e-01_rb,0.22842e-01_rb,0.21764e-01_rb,0.20784e-01_rb,0.19894e-01_rb /)
+      kbo(:,37,16) = (/ &
+        & 0.24229e-01_rb,0.23006e-01_rb,0.21915e-01_rb,0.20918e-01_rb,0.20018e-01_rb /)
+      kbo(:,38,16) = (/ &
+        & 0.24421e-01_rb,0.23180e-01_rb,0.22070e-01_rb,0.21062e-01_rb,0.20144e-01_rb /)
+      kbo(:,39,16) = (/ &
+        & 0.24617e-01_rb,0.23352e-01_rb,0.22226e-01_rb,0.21205e-01_rb,0.20274e-01_rb /)
+      kbo(:,40,16) = (/ &
+        & 0.24953e-01_rb,0.23654e-01_rb,0.22496e-01_rb,0.21449e-01_rb,0.20495e-01_rb /)
+      kbo(:,41,16) = (/ &
+        & 0.25312e-01_rb,0.23980e-01_rb,0.22786e-01_rb,0.21712e-01_rb,0.20738e-01_rb /)
+      kbo(:,42,16) = (/ &
+        & 0.25679e-01_rb,0.24315e-01_rb,0.23082e-01_rb,0.21982e-01_rb,0.20981e-01_rb /)
+      kbo(:,43,16) = (/ &
+        & 0.26140e-01_rb,0.24730e-01_rb,0.23454e-01_rb,0.22317e-01_rb,0.21287e-01_rb /)
+      kbo(:,44,16) = (/ &
+        & 0.26653e-01_rb,0.25200e-01_rb,0.23871e-01_rb,0.22691e-01_rb,0.21628e-01_rb /)
+      kbo(:,45,16) = (/ &
+        & 0.27190e-01_rb,0.25674e-01_rb,0.24311e-01_rb,0.23078e-01_rb,0.21977e-01_rb /)
+      kbo(:,46,16) = (/ &
+        & 0.27783e-01_rb,0.26205e-01_rb,0.24787e-01_rb,0.23504e-01_rb,0.22362e-01_rb /)
+      kbo(:,47,16) = (/ &
+        & 0.28471e-01_rb,0.26819e-01_rb,0.25343e-01_rb,0.24006e-01_rb,0.22809e-01_rb /)
+      kbo(:,48,16) = (/ &
+        & 0.29185e-01_rb,0.27464e-01_rb,0.25918e-01_rb,0.24532e-01_rb,0.23275e-01_rb /)
+      kbo(:,49,16) = (/ &
+        & 0.29935e-01_rb,0.28138e-01_rb,0.26520e-01_rb,0.25074e-01_rb,0.23762e-01_rb /)
+      kbo(:,50,16) = (/ &
+        & 0.30661e-01_rb,0.28793e-01_rb,0.27111e-01_rb,0.25603e-01_rb,0.24243e-01_rb /)
+      kbo(:,51,16) = (/ &
+        & 0.31401e-01_rb,0.29455e-01_rb,0.27706e-01_rb,0.26135e-01_rb,0.24726e-01_rb /)
+      kbo(:,52,16) = (/ &
+        & 0.32182e-01_rb,0.30140e-01_rb,0.28322e-01_rb,0.26686e-01_rb,0.25224e-01_rb /)
+      kbo(:,53,16) = (/ &
+        & 0.33002e-01_rb,0.30856e-01_rb,0.28966e-01_rb,0.27268e-01_rb,0.25738e-01_rb /)
+      kbo(:,54,16) = (/ &
+        & 0.33792e-01_rb,0.31541e-01_rb,0.29577e-01_rb,0.27816e-01_rb,0.26234e-01_rb /)
+      kbo(:,55,16) = (/ &
+        & 0.34581e-01_rb,0.32233e-01_rb,0.30182e-01_rb,0.28363e-01_rb,0.26721e-01_rb /)
+      kbo(:,56,16) = (/ &
+        & 0.35416e-01_rb,0.32947e-01_rb,0.30807e-01_rb,0.28926e-01_rb,0.27227e-01_rb /)
+      kbo(:,57,16) = (/ &
+        & 0.36291e-01_rb,0.33701e-01_rb,0.31460e-01_rb,0.29510e-01_rb,0.27750e-01_rb /)
+      kbo(:,58,16) = (/ &
+        & 0.37161e-01_rb,0.34436e-01_rb,0.32106e-01_rb,0.30077e-01_rb,0.28264e-01_rb /)
+      kbo(:,59,16) = (/ &
+        & 0.37521e-01_rb,0.34750e-01_rb,0.32373e-01_rb,0.30309e-01_rb,0.28477e-01_rb /)
+
+!     -----------------------------------------------------------------
+
+      forrefo(:, 1) = (/ 0.515619e-08_rb, 0.131078e-06_rb, 0.349038e-06_rb /)
+      forrefo(:, 2) = (/ 0.329605e-07_rb, 0.430497e-06_rb, 0.458569e-05_rb /)
+      forrefo(:, 3) = (/ 0.188244e-06_rb, 0.792931e-06_rb, 0.267176e-05_rb /)
+      forrefo(:, 4) = (/ 0.611237e-06_rb, 0.798868e-06_rb, 0.411583e-06_rb /)
+      forrefo(:, 5) = (/ 0.111903e-05_rb, 0.914895e-06_rb, 0.444828e-06_rb /)
+      forrefo(:, 6) = (/ 0.235399e-05_rb, 0.269099e-05_rb, 0.739855e-06_rb /)
+      forrefo(:, 7) = (/ 0.400131e-05_rb, 0.378135e-05_rb, 0.231265e-06_rb /)
+      forrefo(:, 8) = (/ 0.464257e-05_rb, 0.371927e-05_rb, 0.460611e-06_rb /)
+      forrefo(:, 9) = (/ 0.476792e-05_rb, 0.311841e-05_rb, 0.934811e-06_rb /)
+      forrefo(:,10) = (/ 0.555683e-05_rb, 0.238129e-05_rb, 0.400334e-07_rb /)
+      forrefo(:,11) = (/ 0.569068e-05_rb, 0.196039e-05_rb, 0.374476e-07_rb /)
+      forrefo(:,12) = (/ 0.554154e-05_rb, 0.131724e-05_rb, 0.399720e-07_rb /)
+      forrefo(:,13) = (/ 0.462684e-05_rb, 0.238826e-07_rb, 0.325793e-07_rb /)
+      forrefo(:,14) = (/ 0.808644e-06_rb, 0.105126e-11_rb, 0.148691e-07_rb /)
+      forrefo(:,15) = (/ 0.865024e-12_rb, 0.822434e-12_rb, 0.825756e-12_rb /)
+      forrefo(:,16) = (/ 0.945747e-12_rb, 0.802065e-12_rb, 0.724732e-12_rb /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+        &  0.637755e-05_rb, 0.403921e-05_rb, 0.255823e-05_rb, 0.162025e-05_rb, 0.102618e-05_rb, &
+        &  0.649930e-06_rb, 0.411632e-06_rb, 0.260707e-06_rb, 0.165118e-06_rb, 0.104577e-06_rb /)
+      selfrefo(:, 2) = (/ &
+        &  0.180887e-04_rb, 0.108890e-04_rb, 0.655493e-05_rb, 0.394592e-05_rb, 0.237536e-05_rb, &
+        &  0.142991e-05_rb, 0.860774e-06_rb, 0.518167e-06_rb, 0.311925e-06_rb, 0.187772e-06_rb /)
+      selfrefo(:, 3) = (/ &
+        &  0.212261e-04_rb, 0.150697e-04_rb, 0.106989e-04_rb, 0.759581e-05_rb, 0.539274e-05_rb, &
+        &  0.382864e-05_rb, 0.271819e-05_rb, 0.192981e-05_rb, 0.137009e-05_rb, 0.972711e-06_rb /)
+      selfrefo(:, 4) = (/ &
+        &  0.132497e-04_rb, 0.118071e-04_rb, 0.105216e-04_rb, 0.937599e-05_rb, 0.835516e-05_rb, &
+        &  0.744547e-05_rb, 0.663482e-05_rb, 0.591243e-05_rb, 0.526870e-05_rb, 0.469506e-05_rb /)
+      selfrefo(:, 5) = (/ &
+        &  0.124069e-04_rb, 0.120785e-04_rb, 0.117589e-04_rb, 0.114477e-04_rb, 0.111447e-04_rb, &
+        &  0.108498e-04_rb, 0.105626e-04_rb, 0.102831e-04_rb, 0.100109e-04_rb, 0.974601e-05_rb /)
+      selfrefo(:, 6) = (/ &
+        &  0.411994e-04_rb, 0.372560e-04_rb, 0.336901e-04_rb, 0.304654e-04_rb, 0.275494e-04_rb, &
+        &  0.249126e-04_rb, 0.225281e-04_rb, 0.203718e-04_rb, 0.184219e-04_rb, 0.166587e-04_rb /)
+      selfrefo(:, 7) = (/ &
+        &  0.537376e-04_rb, 0.501002e-04_rb, 0.467090e-04_rb, 0.435473e-04_rb, 0.405996e-04_rb, &
+        &  0.378515e-04_rb, 0.352893e-04_rb, 0.329006e-04_rb, 0.306736e-04_rb, 0.285974e-04_rb /)
+      selfrefo(:, 8) = (/ &
+        &  0.494279e-04_rb, 0.475365e-04_rb, 0.457175e-04_rb, 0.439681e-04_rb, 0.422857e-04_rb, &
+        &  0.406676e-04_rb, 0.391114e-04_rb, 0.376148e-04_rb, 0.361755e-04_rb, 0.347912e-04_rb /)
+      selfrefo(:, 9) = (/ &
+        &  0.377444e-04_rb, 0.378199e-04_rb, 0.378956e-04_rb, 0.379715e-04_rb, 0.380475e-04_rb, &
+        &  0.381236e-04_rb, 0.381999e-04_rb, 0.382763e-04_rb, 0.383529e-04_rb, 0.384297e-04_rb /)
+      selfrefo(:,10) = (/ &
+        &  0.245916e-04_rb, 0.267183e-04_rb, 0.290289e-04_rb, 0.315394e-04_rb, 0.342669e-04_rb, &
+        &  0.372304e-04_rb, 0.404501e-04_rb, 0.439483e-04_rb, 0.477490e-04_rb, 0.518784e-04_rb /)
+      selfrefo(:,11) = (/ &
+        &  0.186528e-04_rb, 0.211417e-04_rb, 0.239628e-04_rb, 0.271603e-04_rb, 0.307845e-04_rb, &
+        &  0.348923e-04_rb, 0.395482e-04_rb, 0.448254e-04_rb, 0.508068e-04_rb, 0.575863e-04_rb /)
+      selfrefo(:,12) = (/ &
+        &  0.109896e-04_rb, 0.133794e-04_rb, 0.162890e-04_rb, 0.198312e-04_rb, 0.241438e-04_rb, &
+        &  0.293942e-04_rb, 0.357864e-04_rb, 0.435686e-04_rb, 0.530432e-04_rb, 0.645781e-04_rb /)
+      selfrefo(:,13) = (/ &
+        &  0.183885e-06_rb, 0.391019e-06_rb, 0.831472e-06_rb, 0.176806e-05_rb, 0.375966e-05_rb, &
+        &  0.799463e-05_rb, 0.170000e-04_rb, 0.361492e-04_rb, 0.768686e-04_rb, 0.163455e-03_rb /)
+      selfrefo(:,14) = (/ &
+        &  0.466057e-07_rb, 0.937419e-07_rb, 0.188551e-06_rb, 0.379248e-06_rb, 0.762813e-06_rb, &
+        &  0.153431e-05_rb, 0.308608e-05_rb, 0.620729e-05_rb, 0.124852e-04_rb, 0.251126e-04_rb /)
+      selfrefo(:,15) = (/ &
+        &  0.248961e-06_rb, 0.216780e-06_rb, 0.188758e-06_rb, 0.164358e-06_rb, 0.143113e-06_rb, &
+        &  0.124613e-06_rb, 0.108505e-06_rb, 0.944795e-07_rb, 0.822667e-07_rb, 0.716326e-07_rb /)
+      selfrefo(:,16) = (/ &
+        &  0.252246e-06_rb, 0.220335e-06_rb, 0.192462e-06_rb, 0.168114e-06_rb, 0.146847e-06_rb, &
+        &  0.128270e-06_rb, 0.112043e-06_rb, 0.978688e-07_rb, 0.854878e-07_rb, 0.746731e-07_rb /)
+     
+      end subroutine sw_kgb24
+
+! **************************************************************************
+      subroutine sw_kgb25
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg25, only : kao, sfluxrefo, &
+                            raylo, abso3ao, abso3bo, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:) = (/ &
+        & 42.6858_rb , 45.7720_rb, 44.9872_rb, 45.9662_rb    , &
+        & 46.5458_rb , 41.6926_rb, 32.2893_rb, 24.0928_rb    , &
+        & 16.7686_rb , 1.86048_rb, 1.54057_rb, 1.23503_rb    , &
+        & 0.915085_rb,0.590099_rb,0.218622_rb, 3.21287e-02_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:) = (/ &
+        & 4.50862E+01_rb, 4.53229E+01_rb, 4.66453E+01_rb, 4.85481E+01_rb,&
+        & 4.31689E+01_rb, 3.74802E+01_rb, 3.08809E+01_rb, 2.43848E+01_rb,&
+        & 1.66307E+01_rb, 1.82215E+00_rb, 1.51046E+00_rb, 1.19790E+00_rb,&
+        & 9.02913E-01_rb, 5.79909E-01_rb, 2.16922E-01_rb, 3.17538E-02_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:) = (/ &
+        & 2.89043E-02_rb, 3.23890E-02_rb, 3.29631E-02_rb, 3.32879E-02_rb,&
+        & 3.01017E-02_rb, 2.56200E-02_rb, 2.09055E-02_rb, 1.65318E-02_rb,&
+        & 1.12697E-02_rb, 1.24066E-03_rb, 1.03101E-03_rb, 8.20302E-04_rb,&
+        & 6.05383E-04_rb, 3.89241E-04_rb, 1.46377E-04_rb, 2.04616E-05_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:) = (/ &
+        &-2.49580E-02_rb,-2.44274E-02_rb,-2.38051E-02_rb,-2.26940E-02_rb,&
+        &-2.02992E-02_rb,-1.75466E-02_rb,-1.44036E-02_rb,-1.09606E-02_rb,&
+        &-7.44990E-03_rb,-8.14537E-04_rb,-6.74154E-04_rb,-5.33676E-04_rb,&
+        &-3.91999E-04_rb,-2.50130E-04_rb,-9.43636E-05_rb,-1.32350E-05_rb/)
+
+! Rayleigh extinction coefficient at v = 2925 cm-1.
+      raylo(:) = (/ &
+        & 9.81132e-07_rb,8.25605e-07_rb,6.71302e-07_rb,5.53556e-07_rb, & 
+        & 3.97383e-07_rb,3.68206e-07_rb,4.42379e-07_rb,4.57799e-07_rb, &
+        & 4.22683e-07_rb,3.87113e-07_rb,3.79810e-07_rb,3.63192e-07_rb, &
+        & 3.51921e-07_rb,3.34231e-07_rb,3.34294e-07_rb,3.32673e-07_rb /)
+     
+      abso3ao(:) = (/ &
+        & 2.32664e-02_rb,5.76154e-02_rb,0.125389_rb,0.250158_rb, &
+        & 0.378756_rb   ,0.402196_rb   ,0.352026_rb,0.352036_rb, &
+        & 0.386253_rb   ,0.414598_rb   ,0.420079_rb,0.435471_rb, &
+        & 0.445487_rb   ,0.459549_rb   ,0.452920_rb,0.456838_rb /)
+
+      abso3bo(:) = (/ &     
+        & 1.76917e-02_rb,4.64185e-02_rb,1.03640e-01_rb,0.189469_rb, &
+        & 0.303858_rb   ,0.400248_rb   ,0.447357_rb   ,0.470009_rb, &
+        & 0.498673_rb   ,0.515696_rb   ,0.517053_rb   ,0.517930_rb, &
+        & 0.518345_rb   ,0.524952_rb   ,0.508244_rb   ,0.468981_rb /)
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1) = (/ &
+        & 0.16461e-08_rb,0.16782e-08_rb,0.19339e-08_rb,0.17100e-08_rb,0.17045e-08_rb /)
+      kao(:, 2, 1) = (/ &
+        & 0.28759e-08_rb,0.29469e-08_rb,0.33789e-08_rb,0.34357e-08_rb,0.28833e-08_rb /)
+      kao(:, 3, 1) = (/ &
+        & 0.55148e-08_rb,0.54808e-08_rb,0.54190e-08_rb,0.68260e-08_rb,0.51972e-08_rb /)
+      kao(:, 4, 1) = (/ &
+        & 0.95336e-08_rb,0.94552e-08_rb,0.93001e-08_rb,0.90961e-08_rb,0.14451e-07_rb /)
+      kao(:, 5, 1) = (/ &
+        & 0.14930e-07_rb,0.14736e-07_rb,0.14432e-07_rb,0.14074e-07_rb,0.24102e-07_rb /)
+      kao(:, 6, 1) = (/ &
+        & 0.22770e-07_rb,0.22301e-07_rb,0.21778e-07_rb,0.21194e-07_rb,0.20569e-07_rb /)
+      kao(:, 7, 1) = (/ &
+        & 0.34699e-07_rb,0.33951e-07_rb,0.33124e-07_rb,0.32144e-07_rb,0.31220e-07_rb /)
+      kao(:, 8, 1) = (/ &
+        & 0.62339e-07_rb,0.60405e-07_rb,0.59548e-07_rb,0.58214e-07_rb,0.56977e-07_rb /)
+      kao(:, 9, 1) = (/ &
+        & 0.17411e-06_rb,0.17654e-06_rb,0.18315e-06_rb,0.18100e-06_rb,0.17839e-06_rb /)
+      kao(:,10, 1) = (/ &
+        & 0.23526e-06_rb,0.22729e-06_rb,0.21947e-06_rb,0.21188e-06_rb,0.20454e-06_rb /)
+      kao(:,11, 1) = (/ &
+        & 0.23535e-06_rb,0.22737e-06_rb,0.21956e-06_rb,0.21196e-06_rb,0.20461e-06_rb /)
+      kao(:,12, 1) = (/ &
+        & 0.23539e-06_rb,0.22740e-06_rb,0.21959e-06_rb,0.21199e-06_rb,0.20465e-06_rb /)
+      kao(:,13, 1) = (/ &
+        & 0.23543e-06_rb,0.22744e-06_rb,0.21962e-06_rb,0.21202e-06_rb,0.20467e-06_rb /)
+      kao(:, 1, 2) = (/ &
+        & 0.62912e-08_rb,0.61559e-08_rb,0.84640e-08_rb,0.59240e-08_rb,0.58217e-08_rb /)
+      kao(:, 2, 2) = (/ &
+        & 0.83749e-08_rb,0.80756e-08_rb,0.11623e-07_rb,0.11272e-07_rb,0.73636e-08_rb /)
+      kao(:, 3, 2) = (/ &
+        & 0.13304e-07_rb,0.12795e-07_rb,0.12343e-07_rb,0.21235e-07_rb,0.11577e-07_rb /)
+      kao(:, 4, 2) = (/ &
+        & 0.20704e-07_rb,0.19736e-07_rb,0.18900e-07_rb,0.18228e-07_rb,0.31601e-07_rb /)
+      kao(:, 5, 2) = (/ &
+        & 0.31149e-07_rb,0.29669e-07_rb,0.28318e-07_rb,0.27101e-07_rb,0.49649e-07_rb /)
+      kao(:, 6, 2) = (/ &
+        & 0.45713e-07_rb,0.43519e-07_rb,0.41488e-07_rb,0.39918e-07_rb,0.38291e-07_rb /)
+      kao(:, 7, 2) = (/ &
+        & 0.77265e-07_rb,0.73848e-07_rb,0.70437e-07_rb,0.67945e-07_rb,0.66127e-07_rb /)
+      kao(:, 8, 2) = (/ &
+        & 0.15754e-06_rb,0.15664e-06_rb,0.15378e-06_rb,0.15027e-06_rb,0.14633e-06_rb /)
+      kao(:, 9, 2) = (/ &
+        & 0.16439e-06_rb,0.14678e-06_rb,0.12610e-06_rb,0.11532e-06_rb,0.10591e-06_rb /)
+      kao(:,10, 2) = (/ &
+        & 0.14366e-06_rb,0.13506e-06_rb,0.12583e-06_rb,0.11774e-06_rb,0.11011e-06_rb /)
+      kao(:,11, 2) = (/ &
+        & 0.14521e-06_rb,0.13766e-06_rb,0.13072e-06_rb,0.12218e-06_rb,0.11400e-06_rb /)
+      kao(:,12, 2) = (/ &
+        & 0.14524e-06_rb,0.13769e-06_rb,0.13074e-06_rb,0.12241e-06_rb,0.11552e-06_rb /)
+      kao(:,13, 2) = (/ &
+        & 0.14525e-06_rb,0.13770e-06_rb,0.13075e-06_rb,0.12252e-06_rb,0.11553e-06_rb /)
+      kao(:, 1, 3) = (/ &
+        & 0.14060e-07_rb,0.13587e-07_rb,0.24644e-07_rb,0.12716e-07_rb,0.12367e-07_rb /)
+      kao(:, 2, 3) = (/ &
+        & 0.17055e-07_rb,0.16577e-07_rb,0.32443e-07_rb,0.31273e-07_rb,0.15381e-07_rb /)
+      kao(:, 3, 3) = (/ &
+        & 0.25414e-07_rb,0.24672e-07_rb,0.23874e-07_rb,0.47281e-07_rb,0.22346e-07_rb /)
+      kao(:, 4, 3) = (/ &
+        & 0.39536e-07_rb,0.38124e-07_rb,0.36836e-07_rb,0.35587e-07_rb,0.72260e-07_rb /)
+      kao(:, 5, 3) = (/ &
+        & 0.59488e-07_rb,0.57630e-07_rb,0.55623e-07_rb,0.53878e-07_rb,0.11230e-06_rb /)
+      kao(:, 6, 3) = (/ &
+        & 0.99996e-07_rb,0.96206e-07_rb,0.93184e-07_rb,0.90812e-07_rb,0.89206e-07_rb /)
+      kao(:, 7, 3) = (/ &
+        & 0.17678e-06_rb,0.17554e-06_rb,0.17358e-06_rb,0.17091e-06_rb,0.16830e-06_rb /)
+      kao(:, 8, 3) = (/ &
+        & 0.18672e-06_rb,0.17850e-06_rb,0.16967e-06_rb,0.16275e-06_rb,0.15875e-06_rb /)
+      kao(:, 9, 3) = (/ &
+        & 0.13558e-06_rb,0.13493e-06_rb,0.13633e-06_rb,0.13799e-06_rb,0.13932e-06_rb /)
+      kao(:,10, 3) = (/ &
+        & 0.18883e-06_rb,0.20452e-06_rb,0.22206e-06_rb,0.24347e-06_rb,0.26091e-06_rb /)
+      kao(:,11, 3) = (/ &
+        & 0.21296e-06_rb,0.23580e-06_rb,0.26439e-06_rb,0.30148e-06_rb,0.34942e-06_rb /)
+      kao(:,12, 3) = (/ &
+        & 0.22072e-06_rb,0.25535e-06_rb,0.28661e-06_rb,0.34814e-06_rb,0.39337e-06_rb /)
+      kao(:,13, 3) = (/ &
+        & 0.22515e-06_rb,0.26161e-06_rb,0.30833e-06_rb,0.36527e-06_rb,0.40123e-06_rb /)
+      kao(:, 1, 4) = (/ &
+        & 0.32735e-07_rb,0.31345e-07_rb,0.58846e-07_rb,0.28258e-07_rb,0.27022e-07_rb /)
+      kao(:, 2, 4) = (/ &
+        & 0.37754e-07_rb,0.36873e-07_rb,0.82776e-07_rb,0.80947e-07_rb,0.35190e-07_rb /)
+      kao(:, 3, 4) = (/ &
+        & 0.76368e-07_rb,0.75292e-07_rb,0.74075e-07_rb,0.10820e-06_rb,0.73183e-07_rb /)
+      kao(:, 4, 4) = (/ &
+        & 0.16392e-06_rb,0.16130e-06_rb,0.15926e-06_rb,0.15700e-06_rb,0.22041e-06_rb /)
+      kao(:, 5, 4) = (/ &
+        & 0.29704e-06_rb,0.28924e-06_rb,0.28301e-06_rb,0.27633e-06_rb,0.42284e-06_rb /)
+      kao(:, 6, 4) = (/ &
+        & 0.48466e-06_rb,0.47240e-06_rb,0.46143e-06_rb,0.45012e-06_rb,0.43867e-06_rb /)
+      kao(:, 7, 4) = (/ &
+        & 0.71637e-06_rb,0.69847e-06_rb,0.67384e-06_rb,0.65368e-06_rb,0.63375e-06_rb /)
+      kao(:, 8, 4) = (/ &
+        & 0.11904e-05_rb,0.11714e-05_rb,0.11524e-05_rb,0.11354e-05_rb,0.11172e-05_rb /)
+      kao(:, 9, 4) = (/ &
+        & 0.21976e-05_rb,0.21606e-05_rb,0.21332e-05_rb,0.20944e-05_rb,0.20536e-05_rb /)
+      kao(:,10, 4) = (/ &
+        & 0.21713e-05_rb,0.21144e-05_rb,0.20553e-05_rb,0.19901e-05_rb,0.19286e-05_rb /)
+      kao(:,11, 4) = (/ &
+        & 0.21443e-05_rb,0.20785e-05_rb,0.20048e-05_rb,0.19232e-05_rb,0.18295e-05_rb /)
+      kao(:,12, 4) = (/ &
+        & 0.21363e-05_rb,0.20578e-05_rb,0.19811e-05_rb,0.18729e-05_rb,0.17807e-05_rb /)
+      kao(:,13, 4) = (/ &
+        & 0.21319e-05_rb,0.20513e-05_rb,0.19580e-05_rb,0.18546e-05_rb,0.17725e-05_rb /)
+      kao(:, 1, 5) = (/ &
+        & 0.36050e-07_rb,0.36125e-07_rb,0.46253e-07_rb,0.37280e-07_rb,0.37359e-07_rb /)
+      kao(:, 2, 5) = (/ &
+        & 0.65102e-07_rb,0.64266e-07_rb,0.68896e-07_rb,0.65925e-07_rb,0.61190e-07_rb /)
+      kao(:, 3, 5) = (/ &
+        & 0.12173e-06_rb,0.11889e-06_rb,0.11625e-06_rb,0.17574e-06_rb,0.10921e-06_rb /)
+      kao(:, 4, 5) = (/ &
+        & 0.20555e-06_rb,0.19853e-06_rb,0.19068e-06_rb,0.18313e-06_rb,0.30241e-06_rb /)
+      kao(:, 5, 5) = (/ &
+        & 0.30900e-06_rb,0.29996e-06_rb,0.28857e-06_rb,0.27772e-06_rb,0.51631e-06_rb /)
+      kao(:, 6, 5) = (/ &
+        & 0.43774e-06_rb,0.42465e-06_rb,0.40920e-06_rb,0.39315e-06_rb,0.37901e-06_rb /)
+      kao(:, 7, 5) = (/ &
+        & 0.63869e-06_rb,0.61654e-06_rb,0.60324e-06_rb,0.58966e-06_rb,0.57948e-06_rb /)
+      kao(:, 8, 5) = (/ &
+        & 0.98362e-06_rb,0.96271e-06_rb,0.94180e-06_rb,0.92206e-06_rb,0.91105e-06_rb /)
+      kao(:, 9, 5) = (/ &
+        & 0.12061e-05_rb,0.11895e-05_rb,0.11564e-05_rb,0.11296e-05_rb,0.11110e-05_rb /)
+      kao(:,10, 5) = (/ &
+        & 0.12958e-05_rb,0.12694e-05_rb,0.12425e-05_rb,0.12153e-05_rb,0.11880e-05_rb /)
+      kao(:,11, 5) = (/ &
+        & 0.12962e-05_rb,0.12698e-05_rb,0.12429e-05_rb,0.12156e-05_rb,0.11883e-05_rb /)
+      kao(:,12, 5) = (/ &
+        & 0.12964e-05_rb,0.12701e-05_rb,0.12431e-05_rb,0.12158e-05_rb,0.11885e-05_rb /)
+      kao(:,13, 5) = (/ &
+        & 0.12966e-05_rb,0.12702e-05_rb,0.12433e-05_rb,0.12160e-05_rb,0.11886e-05_rb /)
+      kao(:, 1, 6) = (/ &
+        & 0.73925e-07_rb,0.70231e-07_rb,0.21454e-06_rb,0.63477e-07_rb,0.60912e-07_rb /)
+      kao(:, 2, 6) = (/ &
+        & 0.67794e-07_rb,0.65807e-07_rb,0.13854e-06_rb,0.13061e-06_rb,0.59361e-07_rb /)
+      kao(:, 3, 6) = (/ &
+        & 0.98353e-07_rb,0.95275e-07_rb,0.92426e-07_rb,0.15768e-06_rb,0.87986e-07_rb /)
+      kao(:, 4, 6) = (/ &
+        & 0.15855e-06_rb,0.15394e-06_rb,0.14948e-06_rb,0.14655e-06_rb,0.23172e-06_rb /)
+      kao(:, 5, 6) = (/ &
+        & 0.27764e-06_rb,0.26941e-06_rb,0.26299e-06_rb,0.25975e-06_rb,0.40526e-06_rb /)
+      kao(:, 6, 6) = (/ &
+        & 0.45469e-06_rb,0.44417e-06_rb,0.43276e-06_rb,0.42440e-06_rb,0.41489e-06_rb /)
+      kao(:, 7, 6) = (/ &
+        & 0.71540e-06_rb,0.71291e-06_rb,0.70656e-06_rb,0.69823e-06_rb,0.68342e-06_rb /)
+      kao(:, 8, 6) = (/ &
+        & 0.79651e-06_rb,0.79807e-06_rb,0.80621e-06_rb,0.80941e-06_rb,0.79835e-06_rb /)
+      kao(:, 9, 6) = (/ &
+        & 0.18716e-06_rb,0.16713e-06_rb,0.14725e-06_rb,0.13728e-06_rb,0.11763e-06_rb /)
+      kao(:,10, 6) = (/ &
+        & 0.92638e-07_rb,0.86207e-07_rb,0.80877e-07_rb,0.70432e-07_rb,0.64517e-07_rb /)
+      kao(:,11, 6) = (/ &
+        & 0.13396e-06_rb,0.12820e-06_rb,0.12387e-06_rb,0.10427e-06_rb,0.94091e-07_rb /)
+      kao(:,12, 6) = (/ &
+        & 0.14877e-06_rb,0.14827e-06_rb,0.14350e-06_rb,0.12154e-06_rb,0.10552e-06_rb /)
+      kao(:,13, 6) = (/ &
+        & 0.15437e-06_rb,0.15323e-06_rb,0.14992e-06_rb,0.12715e-06_rb,0.10933e-06_rb /)
+      kao(:, 1, 7) = (/ &
+        & 0.72717e-06_rb,0.70656e-06_rb,0.13933e-05_rb,0.66449e-06_rb,0.64269e-06_rb /)
+      kao(:, 2, 7) = (/ &
+        & 0.52595e-06_rb,0.50791e-06_rb,0.11171e-05_rb,0.10538e-05_rb,0.45644e-06_rb /)
+      kao(:, 3, 7) = (/ &
+        & 0.29919e-06_rb,0.29227e-06_rb,0.28284e-06_rb,0.65215e-06_rb,0.26347e-06_rb /)
+      kao(:, 4, 7) = (/ &
+        & 0.27961e-06_rb,0.27579e-06_rb,0.27068e-06_rb,0.26343e-06_rb,0.41265e-06_rb /)
+      kao(:, 5, 7) = (/ &
+        & 0.37031e-06_rb,0.36318e-06_rb,0.35475e-06_rb,0.34488e-06_rb,0.53740e-06_rb /)
+      kao(:, 6, 7) = (/ &
+        & 0.53195e-06_rb,0.52692e-06_rb,0.52224e-06_rb,0.51934e-06_rb,0.51146e-06_rb /)
+      kao(:, 7, 7) = (/ &
+        & 0.83043e-06_rb,0.84552e-06_rb,0.84833e-06_rb,0.82800e-06_rb,0.80930e-06_rb /)
+      kao(:, 8, 7) = (/ &
+        & 0.14910e-05_rb,0.15179e-05_rb,0.15248e-05_rb,0.15091e-05_rb,0.14853e-05_rb /)
+      kao(:, 9, 7) = (/ &
+        & 0.37340e-05_rb,0.37823e-05_rb,0.38311e-05_rb,0.38453e-05_rb,0.38567e-05_rb /)
+      kao(:,10, 7) = (/ &
+        & 0.86791e-05_rb,0.89697e-05_rb,0.92118e-05_rb,0.93991e-05_rb,0.95564e-05_rb /)
+      kao(:,11, 7) = (/ &
+        & 0.11878e-04_rb,0.12201e-04_rb,0.12588e-04_rb,0.12897e-04_rb,0.13151e-04_rb /)
+      kao(:,12, 7) = (/ &
+        & 0.13192e-04_rb,0.13732e-04_rb,0.14137e-04_rb,0.14465e-04_rb,0.14643e-04_rb /)
+      kao(:,13, 7) = (/ &
+        & 0.13716e-04_rb,0.14229e-04_rb,0.14617e-04_rb,0.14944e-04_rb,0.15182e-04_rb /)
+      kao(:, 1, 8) = (/ &
+        & 0.39538e-05_rb,0.38949e-05_rb,0.56188e-05_rb,0.37475e-05_rb,0.36648e-05_rb /)
+      kao(:, 2, 8) = (/ &
+        & 0.34231e-05_rb,0.33633e-05_rb,0.51877e-05_rb,0.50048e-05_rb,0.31425e-05_rb /)
+      kao(:, 3, 8) = (/ &
+        & 0.28073e-05_rb,0.27497e-05_rb,0.26875e-05_rb,0.44405e-05_rb,0.25492e-05_rb /)
+      kao(:, 4, 8) = (/ &
+        & 0.19229e-05_rb,0.18818e-05_rb,0.18382e-05_rb,0.17896e-05_rb,0.33073e-05_rb /)
+      kao(:, 5, 8) = (/ &
+        & 0.11453e-05_rb,0.11293e-05_rb,0.11095e-05_rb,0.10866e-05_rb,0.19344e-05_rb /)
+      kao(:, 6, 8) = (/ &
+        & 0.14565e-05_rb,0.14517e-05_rb,0.14369e-05_rb,0.14141e-05_rb,0.13944e-05_rb /)
+      kao(:, 7, 8) = (/ &
+        & 0.23228e-05_rb,0.22753e-05_rb,0.22395e-05_rb,0.22124e-05_rb,0.21731e-05_rb /)
+      kao(:, 8, 8) = (/ &
+        & 0.34877e-05_rb,0.34362e-05_rb,0.33796e-05_rb,0.33389e-05_rb,0.32924e-05_rb /)
+      kao(:, 9, 8) = (/ &
+        & 0.63448e-05_rb,0.63701e-05_rb,0.63619e-05_rb,0.62632e-05_rb,0.61645e-05_rb /)
+      kao(:,10, 8) = (/ &
+        & 0.12155e-04_rb,0.11880e-04_rb,0.11762e-04_rb,0.11759e-04_rb,0.11651e-04_rb /)
+      kao(:,11, 8) = (/ &
+        & 0.14093e-04_rb,0.13835e-04_rb,0.13547e-04_rb,0.13205e-04_rb,0.12690e-04_rb /)
+      kao(:,12, 8) = (/ &
+        & 0.14428e-04_rb,0.14056e-04_rb,0.13932e-04_rb,0.13396e-04_rb,0.12885e-04_rb /)
+      kao(:,13, 8) = (/ &
+        & 0.15229e-04_rb,0.14534e-04_rb,0.13849e-04_rb,0.13292e-04_rb,0.12704e-04_rb /)
+      kao(:, 1, 9) = (/ &
+        & 0.19250e-04_rb,0.19148e-04_rb,0.21702e-04_rb,0.18906e-04_rb,0.18761e-04_rb /)
+      kao(:, 2, 9) = (/ &
+        & 0.18132e-04_rb,0.18040e-04_rb,0.20884e-04_rb,0.20523e-04_rb,0.17656e-04_rb /)
+      kao(:, 3, 9) = (/ &
+        & 0.16928e-04_rb,0.16843e-04_rb,0.16742e-04_rb,0.19715e-04_rb,0.16470e-04_rb /)
+      kao(:, 4, 9) = (/ &
+        & 0.15526e-04_rb,0.15463e-04_rb,0.15377e-04_rb,0.15268e-04_rb,0.18367e-04_rb /)
+      kao(:, 5, 9) = (/ &
+        & 0.13545e-04_rb,0.13511e-04_rb,0.13455e-04_rb,0.13362e-04_rb,0.16722e-04_rb /)
+      kao(:, 6, 9) = (/ &
+        & 0.97183e-05_rb,0.97218e-05_rb,0.97084e-05_rb,0.96717e-05_rb,0.96030e-05_rb /)
+      kao(:, 7, 9) = (/ &
+        & 0.50307e-05_rb,0.50984e-05_rb,0.51628e-05_rb,0.52093e-05_rb,0.52354e-05_rb /)
+      kao(:, 8, 9) = (/ &
+        & 0.45837e-05_rb,0.45939e-05_rb,0.45938e-05_rb,0.45639e-05_rb,0.45109e-05_rb /)
+      kao(:, 9, 9) = (/ &
+        & 0.12254e-04_rb,0.12319e-04_rb,0.12397e-04_rb,0.12584e-04_rb,0.12620e-04_rb /)
+      kao(:,10, 9) = (/ &
+        & 0.21545e-04_rb,0.21836e-04_rb,0.21718e-04_rb,0.21511e-04_rb,0.21211e-04_rb /)
+      kao(:,11, 9) = (/ &
+        & 0.20079e-04_rb,0.19539e-04_rb,0.18859e-04_rb,0.18393e-04_rb,0.18181e-04_rb /)
+      kao(:,12, 9) = (/ &
+        & 0.17115e-04_rb,0.16357e-04_rb,0.15410e-04_rb,0.15220e-04_rb,0.15207e-04_rb /)
+      kao(:,13, 9) = (/ &
+        & 0.14935e-04_rb,0.14679e-04_rb,0.14593e-04_rb,0.14448e-04_rb,0.14436e-04_rb /)
+      kao(:, 1,10) = (/ &
+        & 0.53569e-04_rb,0.53042e-04_rb,0.55454e-04_rb,0.52098e-04_rb,0.51678e-04_rb /)
+      kao(:, 2,10) = (/ &
+        & 0.52196e-04_rb,0.51739e-04_rb,0.54777e-04_rb,0.54075e-04_rb,0.50624e-04_rb /)
+      kao(:, 3,10) = (/ &
+        & 0.50339e-04_rb,0.50046e-04_rb,0.49769e-04_rb,0.53168e-04_rb,0.49370e-04_rb /)
+      kao(:, 4,10) = (/ &
+        & 0.48505e-04_rb,0.48316e-04_rb,0.48143e-04_rb,0.47993e-04_rb,0.51621e-04_rb /)
+      kao(:, 5,10) = (/ &
+        & 0.46313e-04_rb,0.46267e-04_rb,0.46119e-04_rb,0.46064e-04_rb,0.50279e-04_rb /)
+      kao(:, 6,10) = (/ &
+        & 0.42662e-04_rb,0.42818e-04_rb,0.42935e-04_rb,0.43007e-04_rb,0.43099e-04_rb /)
+      kao(:, 7,10) = (/ &
+        & 0.35762e-04_rb,0.36149e-04_rb,0.36450e-04_rb,0.36639e-04_rb,0.36887e-04_rb /)
+      kao(:, 8,10) = (/ &
+        & 0.13516e-05_rb,0.18607e-05_rb,0.23061e-05_rb,0.27339e-05_rb,0.36516e-05_rb /)
+      kao(:, 9,10) = (/ &
+        & 0.36432e-05_rb,0.40739e-05_rb,0.43830e-05_rb,0.41136e-05_rb,0.43128e-05_rb /)
+      kao(:,10,10) = (/ &
+        & 0.62049e-05_rb,0.69116e-05_rb,0.73244e-05_rb,0.65087e-05_rb,0.78951e-05_rb /)
+      kao(:,11,10) = (/ &
+        & 0.32156e-05_rb,0.38834e-05_rb,0.41231e-05_rb,0.43386e-05_rb,0.43405e-05_rb /)
+      kao(:,12,10) = (/ &
+        & 0.22152e-05_rb,0.26754e-05_rb,0.31971e-05_rb,0.34911e-05_rb,0.37935e-05_rb /)
+      kao(:,13,10) = (/ &
+        & 0.19792e-05_rb,0.26543e-05_rb,0.31511e-05_rb,0.34597e-05_rb,0.40624e-05_rb /)
+      kao(:, 1,11) = (/ &
+        & 0.75384e-04_rb,0.75103e-04_rb,0.77406e-04_rb,0.74222e-04_rb,0.73734e-04_rb /)
+      kao(:, 2,11) = (/ &
+        & 0.75458e-04_rb,0.75244e-04_rb,0.77778e-04_rb,0.77018e-04_rb,0.73942e-04_rb /)
+      kao(:, 3,11) = (/ &
+        & 0.75023e-04_rb,0.74844e-04_rb,0.74477e-04_rb,0.77271e-04_rb,0.73633e-04_rb /)
+      kao(:, 4,11) = (/ &
+        & 0.73633e-04_rb,0.73539e-04_rb,0.73257e-04_rb,0.72934e-04_rb,0.76232e-04_rb /)
+      kao(:, 5,11) = (/ &
+        & 0.71348e-04_rb,0.71322e-04_rb,0.71227e-04_rb,0.71069e-04_rb,0.75258e-04_rb /)
+      kao(:, 6,11) = (/ &
+        & 0.67784e-04_rb,0.67873e-04_rb,0.67974e-04_rb,0.67924e-04_rb,0.67903e-04_rb /)
+      kao(:, 7,11) = (/ &
+        & 0.61855e-04_rb,0.61922e-04_rb,0.61973e-04_rb,0.62206e-04_rb,0.62496e-04_rb /)
+      kao(:, 8,11) = (/ &
+        & 0.36622e-04_rb,0.37413e-04_rb,0.38740e-04_rb,0.40550e-04_rb,0.41833e-04_rb /)
+      kao(:, 9,11) = (/ &
+        & 0.28544e-05_rb,0.28831e-05_rb,0.31445e-05_rb,0.32900e-05_rb,0.27967e-05_rb /)
+      kao(:,10,11) = (/ &
+        & 0.53755e-05_rb,0.42123e-05_rb,0.51154e-05_rb,0.63481e-05_rb,0.54219e-05_rb /)
+      kao(:,11,11) = (/ &
+        & 0.12605e-05_rb,0.14078e-05_rb,0.19167e-05_rb,0.23729e-05_rb,0.30161e-05_rb /)
+      kao(:,12,11) = (/ &
+        & 0.11370e-05_rb,0.91524e-06_rb,0.11150e-05_rb,0.14746e-05_rb,0.20128e-05_rb /)
+      kao(:,13,11) = (/ &
+        & 0.10511e-05_rb,0.10014e-05_rb,0.11405e-05_rb,0.13852e-05_rb,0.15576e-05_rb /)
+      kao(:, 1,12) = (/ &
+        & 0.11184e-03_rb,0.11117e-03_rb,0.11327e-03_rb,0.10989e-03_rb,0.10910e-03_rb /)
+      kao(:, 2,12) = (/ &
+        & 0.11379e-03_rb,0.11322e-03_rb,0.11555e-03_rb,0.11462e-03_rb,0.11135e-03_rb /)
+      kao(:, 3,12) = (/ &
+        & 0.11508e-03_rb,0.11459e-03_rb,0.11421e-03_rb,0.11671e-03_rb,0.11339e-03_rb /)
+      kao(:, 4,12) = (/ &
+        & 0.11596e-03_rb,0.11563e-03_rb,0.11538e-03_rb,0.11511e-03_rb,0.11770e-03_rb /)
+      kao(:, 5,12) = (/ &
+        & 0.11597e-03_rb,0.11581e-03_rb,0.11569e-03_rb,0.11553e-03_rb,0.11890e-03_rb /)
+      kao(:, 6,12) = (/ &
+        & 0.11443e-03_rb,0.11445e-03_rb,0.11443e-03_rb,0.11443e-03_rb,0.11438e-03_rb /)
+      kao(:, 7,12) = (/ &
+        & 0.10852e-03_rb,0.10888e-03_rb,0.10912e-03_rb,0.10934e-03_rb,0.10942e-03_rb /)
+      kao(:, 8,12) = (/ &
+        & 0.93194e-04_rb,0.94766e-04_rb,0.95355e-04_rb,0.95090e-04_rb,0.94926e-04_rb /)
+      kao(:, 9,12) = (/ &
+        & 0.11836e-05_rb,0.16115e-05_rb,0.12883e-05_rb,0.14202e-05_rb,0.16541e-05_rb /)
+      kao(:,10,12) = (/ &
+        & 0.18748e-05_rb,0.34401e-05_rb,0.39984e-05_rb,0.44576e-05_rb,0.33683e-05_rb /)
+      kao(:,11,12) = (/ &
+        & 0.29890e-06_rb,0.48741e-06_rb,0.66276e-06_rb,0.99698e-06_rb,0.19230e-05_rb /)
+      kao(:,12,12) = (/ &
+        & 0.15034e-06_rb,0.39966e-06_rb,0.56523e-06_rb,0.70494e-06_rb,0.10046e-05_rb /)
+      kao(:,13,12) = (/ &
+        & 0.15016e-06_rb,0.25751e-06_rb,0.48928e-06_rb,0.63534e-06_rb,0.93575e-06_rb /)
+      kao(:, 1,13) = (/ &
+        & 0.17305e-03_rb,0.17234e-03_rb,0.17389e-03_rb,0.17055e-03_rb,0.16974e-03_rb /)
+      kao(:, 2,13) = (/ &
+        & 0.18170e-03_rb,0.18075e-03_rb,0.18265e-03_rb,0.18138e-03_rb,0.17772e-03_rb /)
+      kao(:, 3,13) = (/ &
+        & 0.18990e-03_rb,0.18892e-03_rb,0.18776e-03_rb,0.18950e-03_rb,0.18494e-03_rb /)
+      kao(:, 4,13) = (/ &
+        & 0.19649e-03_rb,0.19552e-03_rb,0.19424e-03_rb,0.19281e-03_rb,0.19464e-03_rb /)
+      kao(:, 5,13) = (/ &
+        & 0.20197e-03_rb,0.20109e-03_rb,0.19993e-03_rb,0.19856e-03_rb,0.20092e-03_rb /)
+      kao(:, 6,13) = (/ &
+        & 0.20595e-03_rb,0.20549e-03_rb,0.20452e-03_rb,0.20331e-03_rb,0.20199e-03_rb /)
+      kao(:, 7,13) = (/ &
+        & 0.20703e-03_rb,0.20710e-03_rb,0.20649e-03_rb,0.20552e-03_rb,0.20428e-03_rb /)
+      kao(:, 8,13) = (/ &
+        & 0.19874e-03_rb,0.19767e-03_rb,0.19696e-03_rb,0.19655e-03_rb,0.19591e-03_rb /)
+      kao(:, 9,13) = (/ &
+        & 0.20434e-04_rb,0.23398e-04_rb,0.27400e-04_rb,0.32409e-04_rb,0.38451e-04_rb /)
+      kao(:,10,13) = (/ &
+        & 0.18617e-05_rb,0.99513e-06_rb,0.10554e-05_rb,0.16516e-05_rb,0.37792e-05_rb /)
+      kao(:,11,13) = (/ &
+        & 0.12517e-06_rb,0.29518e-06_rb,0.77058e-06_rb,0.11660e-05_rb,0.15349e-05_rb /)
+      kao(:,12,13) = (/ &
+        & 0.12734e-06_rb,0.36524e-06_rb,0.66699e-06_rb,0.10362e-05_rb,0.14158e-05_rb /)
+      kao(:,13,13) = (/ &
+        & 0.12431e-06_rb,0.39389e-06_rb,0.67331e-06_rb,0.10292e-05_rb,0.14448e-05_rb /)
+      kao(:, 1,14) = (/ &
+        & 0.29365e-03_rb,0.29046e-03_rb,0.29008e-03_rb,0.28509e-03_rb,0.28286e-03_rb /)
+      kao(:, 2,14) = (/ &
+        & 0.31990e-03_rb,0.31668e-03_rb,0.31617e-03_rb,0.31332e-03_rb,0.30885e-03_rb /)
+      kao(:, 3,14) = (/ &
+        & 0.34787e-03_rb,0.34432e-03_rb,0.34112e-03_rb,0.34052e-03_rb,0.33589e-03_rb /)
+      kao(:, 4,14) = (/ &
+        & 0.37401e-03_rb,0.37027e-03_rb,0.36696e-03_rb,0.36394e-03_rb,0.36355e-03_rb /)
+      kao(:, 5,14) = (/ &
+        & 0.39840e-03_rb,0.39446e-03_rb,0.39082e-03_rb,0.38763e-03_rb,0.38760e-03_rb /)
+      kao(:, 6,14) = (/ &
+        & 0.42165e-03_rb,0.41729e-03_rb,0.41335e-03_rb,0.41006e-03_rb,0.40721e-03_rb /)
+      kao(:, 7,14) = (/ &
+        & 0.44257e-03_rb,0.43782e-03_rb,0.43364e-03_rb,0.43014e-03_rb,0.42736e-03_rb /)
+      kao(:, 8,14) = (/ &
+        & 0.45299e-03_rb,0.44953e-03_rb,0.44586e-03_rb,0.44260e-03_rb,0.44006e-03_rb /)
+      kao(:, 9,14) = (/ &
+        & 0.40190e-03_rb,0.39751e-03_rb,0.39238e-03_rb,0.38812e-03_rb,0.38612e-03_rb /)
+      kao(:,10,14) = (/ &
+        & 0.64278e-05_rb,0.18248e-05_rb,0.16996e-05_rb,0.31086e-06_rb,0.16836e-06_rb /)
+      kao(:,11,14) = (/ &
+        & 0.14350e-05_rb,0.94778e-06_rb,0.41349e-06_rb,0.20817e-06_rb,0.20238e-06_rb /)
+      kao(:,12,14) = (/ &
+        & 0.16805e-05_rb,0.15323e-05_rb,0.62348e-06_rb,0.99743e-07_rb,0.12977e-06_rb /)
+      kao(:,13,14) = (/ &
+        & 0.16858e-05_rb,0.17103e-05_rb,0.80574e-06_rb,0.15825e-06_rb,0.15032e-06_rb /)
+      kao(:, 1,15) = (/ &
+        & 0.52181e-03_rb,0.51578e-03_rb,0.51251e-03_rb,0.50356e-03_rb,0.49731e-03_rb /)
+      kao(:, 2,15) = (/ &
+        & 0.59491e-03_rb,0.58822e-03_rb,0.58413e-03_rb,0.57646e-03_rb,0.56692e-03_rb /)
+      kao(:, 3,15) = (/ &
+        & 0.67653e-03_rb,0.66881e-03_rb,0.66126e-03_rb,0.65540e-03_rb,0.64461e-03_rb /)
+      kao(:, 4,15) = (/ &
+        & 0.76388e-03_rb,0.75456e-03_rb,0.74556e-03_rb,0.73649e-03_rb,0.72840e-03_rb /)
+      kao(:, 5,15) = (/ &
+        & 0.85507e-03_rb,0.84417e-03_rb,0.83378e-03_rb,0.82338e-03_rb,0.81349e-03_rb /)
+      kao(:, 6,15) = (/ &
+        & 0.95034e-03_rb,0.93798e-03_rb,0.92553e-03_rb,0.91287e-03_rb,0.89957e-03_rb /)
+      kao(:, 7,15) = (/ &
+        & 0.10496e-02_rb,0.10352e-02_rb,0.10206e-02_rb,0.10054e-02_rb,0.98958e-03_rb /)
+      kao(:, 8,15) = (/ &
+        & 0.11507e-02_rb,0.11337e-02_rb,0.11169e-02_rb,0.10991e-02_rb,0.10806e-02_rb /)
+      kao(:, 9,15) = (/ &
+        & 0.12408e-02_rb,0.12207e-02_rb,0.11996e-02_rb,0.11773e-02_rb,0.11531e-02_rb /)
+      kao(:,10,15) = (/ &
+        & 0.12042e-03_rb,0.11501e-03_rb,0.11424e-03_rb,0.11450e-03_rb,0.13219e-03_rb /)
+      kao(:,11,15) = (/ &
+        & 0.68914e-06_rb,0.83960e-06_rb,0.74591e-06_rb,0.18660e-05_rb,0.32503e-05_rb /)
+      kao(:,12,15) = (/ &
+        & 0.35963e-07_rb,0.46256e-06_rb,0.56223e-06_rb,0.98816e-06_rb,0.92366e-06_rb /)
+      kao(:,13,15) = (/ &
+        & 0.36605e-07_rb,0.56591e-06_rb,0.84008e-06_rb,0.86042e-06_rb,0.68452e-06_rb /)
+      kao(:, 1,16) = (/ &
+        & 0.76517e-03_rb,0.75944e-03_rb,0.76010e-03_rb,0.76100e-03_rb,0.76498e-03_rb /)
+      kao(:, 2,16) = (/ &
+        & 0.92375e-03_rb,0.91357e-03_rb,0.90997e-03_rb,0.90997e-03_rb,0.90993e-03_rb /)
+      kao(:, 3,16) = (/ &
+        & 0.11142e-02_rb,0.10974e-02_rb,0.10835e-02_rb,0.10789e-02_rb,0.10748e-02_rb /)
+      kao(:, 4,16) = (/ &
+        & 0.13278e-02_rb,0.13025e-02_rb,0.12802e-02_rb,0.12631e-02_rb,0.12539e-02_rb /)
+      kao(:, 5,16) = (/ &
+        & 0.15712e-02_rb,0.15343e-02_rb,0.15017e-02_rb,0.14713e-02_rb,0.14497e-02_rb /)
+      kao(:, 6,16) = (/ &
+        & 0.18525e-02_rb,0.17982e-02_rb,0.17525e-02_rb,0.17101e-02_rb,0.16714e-02_rb /)
+      kao(:, 7,16) = (/ &
+        & 0.21731e-02_rb,0.20986e-02_rb,0.20340e-02_rb,0.19757e-02_rb,0.19210e-02_rb /)
+      kao(:, 8,16) = (/ &
+        & 0.25325e-02_rb,0.24346e-02_rb,0.23473e-02_rb,0.22687e-02_rb,0.21950e-02_rb /)
+      kao(:, 9,16) = (/ &
+        & 0.29269e-02_rb,0.28006e-02_rb,0.26863e-02_rb,0.25805e-02_rb,0.24878e-02_rb /)
+      kao(:,10,16) = (/ &
+        & 0.29442e-02_rb,0.27008e-02_rb,0.23913e-02_rb,0.21437e-02_rb,0.18865e-02_rb /)
+      kao(:,11,16) = (/ &
+        & 0.23220e-05_rb,0.22310e-04_rb,0.48349e-04_rb,0.67183e-04_rb,0.88908e-04_rb /)
+      kao(:,12,16) = (/ &
+        & 0.22857e-05_rb,0.11848e-04_rb,0.42066e-04_rb,0.67613e-04_rb,0.86033e-04_rb /)
+      kao(:,13,16) = (/ &
+        & 0.22823e-05_rb,0.69105e-05_rb,0.36212e-04_rb,0.66247e-04_rb,0.85488e-04_rb /)
+  
+      end subroutine sw_kgb25
+
+! **************************************************************************
+      subroutine sw_kgb26
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg26, only : sfluxrefo, raylo, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:) = (/ &
+!         &     129.462_rb, 15*0._rb /)
+        &   29.0079_rb,  28.4088_rb,     20.3099_rb,  13.0283_rb &
+        &,  11.8619_rb,  9.95840_rb,     6.68696_rb,  5.38987_rb &
+        &,  3.49829_rb, 0.407693_rb,    0.299027_rb, 0.236827_rb &
+        &, 0.188502_rb, 0.163489_rb, 4.64335e-02_rb, 2.72662e-03_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:) = (/ &
+        & 3.04845E+01_rb, 2.82835E+01_rb, 2.06520E+01_rb, 1.33606E+01_rb,&
+        & 1.19253E+01_rb, 9.46266E+00_rb, 6.49295E+00_rb, 4.95470E+00_rb,&
+        & 3.04469E+00_rb, 3.68830E-01_rb, 2.69394E-01_rb, 2.19130E-01_rb,&
+        & 1.67527E-01_rb, 1.51647E-01_rb, 3.99119E-02_rb, 0.00000E+00_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:) = (/ &
+        & 3.61383E-02_rb, 3.05195E-02_rb, 2.92002E-02_rb, 3.95202E-02_rb,&
+        & 2.30227E-02_rb, 1.34627E-02_rb, 1.21898E-02_rb, 8.33975E-03_rb,&
+        & 5.78516E-03_rb, 6.39681E-04_rb, 5.38531E-04_rb, 4.27531E-04_rb,&
+        & 3.12727E-04_rb, 1.98617E-04_rb, 7.47491E-05_rb, 1.03928E-05_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:) = (/ &
+        &-1.84373E-02_rb,-1.86059E-02_rb,-1.38321E-02_rb,-8.72988E-03_rb,&
+        &-8.16733E-03_rb,-6.16612E-03_rb,-4.27388E-03_rb,-3.57388E-03_rb,&
+        &-2.10064E-03_rb,-2.32508E-04_rb,-1.92973E-04_rb,-1.51402E-04_rb,&
+        &-1.09697E-04_rb,-6.89804E-05_rb,-2.57998E-05_rb,-3.58079E-06_rb/)
+
+! Rayleigh extinction coefficient at all v 
+      raylo(:) = (/ &
+        &  1.21263e-06_rb,1.43428e-06_rb,1.67677e-06_rb,1.93255e-06_rb &
+        &, 2.19177e-06_rb,2.44195e-06_rb,2.66926e-06_rb,2.85990e-06_rb &
+        &, 3.00380e-06_rb,3.06996e-06_rb,3.08184e-06_rb,3.09172e-06_rb &
+        &, 3.09938e-06_rb,3.10456e-06_rb,3.10727e-06_rb,3.10818e-06_rb /)
+
+      end subroutine sw_kgb26
+
+! **************************************************************************
+      subroutine sw_kgb27
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg27, only : kao, kbo, sfluxrefo, raylo, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+! The following values were obtained using the "low resolution"
+! version of the Kurucz solar source function.  For unknown reasons,
+! the total irradiance in this band differs from the corresponding
+! total in the "high-resolution" version of the Kurucz function.
+! Therefore, these values are scaled later by the factor SCALEKUR.
+      sfluxrefo(:) = (/ &
+        & 14.0526_rb    , 11.4794_rb    , 8.72590_rb    , 5.56966_rb    , &
+        & 3.80927_rb    , 1.57690_rb    , 1.15099_rb    , 1.10012_rb    , &
+        & 0.658212_rb   , 5.86859e-02_rb, 5.56186e-02_rb, 4.68040e-02_rb, &
+        & 3.64897e-02_rb, 3.58053e-02_rb, 1.38130e-02_rb, 1.90193e-03_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:) = (/ &
+        & 1.46930E+01_rb, 1.06923E+01_rb, 7.68295E+00_rb, 5.14277E+00_rb,&
+        & 3.29565E+00_rb, 1.44947E+00_rb, 1.02330E+00_rb, 9.80570E-01_rb,&
+        & 6.02794E-01_rb, 5.47907E-02_rb, 5.70335E-02_rb, 3.99696E-02_rb,&
+        & 2.33788E-02_rb, 1.52264E-02_rb, 7.81791E-03_rb, 1.44071E-03_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:) = (/ &
+        & 2.56348E-02_rb, 2.05226E-02_rb, 2.02710E-02_rb, 1.65138E-02_rb,&
+        & 9.12606E-03_rb, 9.44910E-03_rb, 4.79949E-03_rb, 3.77424E-03_rb,&
+        & 2.66318E-03_rb, 2.81141E-04_rb, 2.60590E-04_rb, 2.12582E-04_rb,&
+        & 1.57439E-04_rb, 1.01620E-04_rb, 3.71133E-05_rb, 5.01988E-06_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:) = (/ &
+        &-1.07095E-02_rb,-8.53486E-03_rb,-6.30155E-03_rb,-4.33876E-03_rb,&
+        &-2.50603E-03_rb,-8.72900E-04_rb,-7.01047E-04_rb,-7.48293E-04_rb,&
+        &-4.50820E-04_rb,-3.57970E-05_rb,-3.81539E-05_rb,-3.20120E-05_rb,&
+        &-2.38720E-05_rb,-1.56042E-05_rb,-5.55935E-06_rb,-7.21321E-07_rb/)
+
+! Rayleigh extinction coefficient at v = 2925 cm-1.
+      raylo(:) = (/ &
+        & 3.44534e-06_rb,4.14480e-06_rb,4.95069e-06_rb,5.81204e-06_rb, &
+        & 6.69748e-06_rb,7.56488e-06_rb,8.36344e-06_rb,9.04135e-06_rb, &
+        & 9.58324e-06_rb,9.81542e-06_rb,9.75119e-06_rb,9.74533e-06_rb, &
+        & 9.74139e-06_rb,9.73525e-06_rb,9.73577e-06_rb,9.73618e-06_rb /)
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1) = (/ &
+        & 0.22907e+00_rb,0.25625e+00_rb,0.28779e+00_rb,0.32376e+00_rb,0.36426e+00_rb /)
+      kao(:, 2, 1) = (/ &
+        & 0.21913e+00_rb,0.24445e+00_rb,0.27422e+00_rb,0.30832e+00_rb,0.34694e+00_rb /)
+      kao(:, 3, 1) = (/ &
+        & 0.20602e+00_rb,0.22864e+00_rb,0.25574e+00_rb,0.28721e+00_rb,0.32310e+00_rb /)
+      kao(:, 4, 1) = (/ &
+        & 0.19379e+00_rb,0.21352e+00_rb,0.23771e+00_rb,0.26643e+00_rb,0.29940e+00_rb /)
+      kao(:, 5, 1) = (/ &
+        & 0.18369e+00_rb,0.20061e+00_rb,0.22200e+00_rb,0.24786e+00_rb,0.27816e+00_rb /)
+      kao(:, 6, 1) = (/ &
+        & 0.17517e+00_rb,0.18920e+00_rb,0.20771e+00_rb,0.23069e+00_rb,0.25817e+00_rb /)
+      kao(:, 7, 1) = (/ &
+        & 0.16888e+00_rb,0.17988e+00_rb,0.19559e+00_rb,0.21577e+00_rb,0.24042e+00_rb /)
+      kao(:, 8, 1) = (/ &
+        & 0.16442e+00_rb,0.17273e+00_rb,0.18565e+00_rb,0.20315e+00_rb,0.22512e+00_rb /)
+      kao(:, 9, 1) = (/ &
+        & 0.16159e+00_rb,0.16738e+00_rb,0.17752e+00_rb,0.19242e+00_rb,0.21179e+00_rb /)
+      kao(:,10, 1) = (/ &
+        & 0.16037e+00_rb,0.16402e+00_rb,0.17204e+00_rb,0.18463e+00_rb,0.20183e+00_rb /)
+      kao(:,11, 1) = (/ &
+        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)
+      kao(:,12, 1) = (/ &
+        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)
+      kao(:,13, 1) = (/ &
+        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)
+      kao(:, 1, 2) = (/ &
+        & 0.20716e+01_rb,0.21925e+01_rb,0.23327e+01_rb,0.24921e+01_rb,0.26726e+01_rb /)
+      kao(:, 2, 2) = (/ &
+        & 0.20272e+01_rb,0.21401e+01_rb,0.22723e+01_rb,0.24238e+01_rb,0.25950e+01_rb /)
+      kao(:, 3, 2) = (/ &
+        & 0.19684e+01_rb,0.20697e+01_rb,0.21902e+01_rb,0.23301e+01_rb,0.24892e+01_rb /)
+      kao(:, 4, 2) = (/ &
+        & 0.19133e+01_rb,0.20021e+01_rb,0.21101e+01_rb,0.22375e+01_rb,0.23842e+01_rb /)
+      kao(:, 5, 2) = (/ &
+        & 0.18673e+01_rb,0.19441e+01_rb,0.20400e+01_rb,0.21553e+01_rb,0.22898e+01_rb /)
+      kao(:, 6, 2) = (/ &
+        & 0.18277e+01_rb,0.18925e+01_rb,0.19760e+01_rb,0.20788e+01_rb,0.22009e+01_rb /)
+      kao(:, 7, 2) = (/ &
+        & 0.17963e+01_rb,0.18497e+01_rb,0.19214e+01_rb,0.20121e+01_rb,0.21222e+01_rb /)
+      kao(:, 8, 2) = (/ &
+        & 0.17749e+01_rb,0.18156e+01_rb,0.18763e+01_rb,0.19555e+01_rb,0.20540e+01_rb /)
+      kao(:, 9, 2) = (/ &
+        & 0.17600e+01_rb,0.17885e+01_rb,0.18388e+01_rb,0.19071e+01_rb,0.19943e+01_rb /)
+      kao(:,10, 2) = (/ &
+        & 0.17526e+01_rb,0.17729e+01_rb,0.18121e+01_rb,0.18716e+01_rb,0.19496e+01_rb /)
+      kao(:,11, 2) = (/ &
+        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)
+      kao(:,12, 2) = (/ &
+        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)
+      kao(:,13, 2) = (/ &
+        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)
+      kao(:, 1, 3) = (/ &
+        & 0.12189e+02_rb,0.12619e+02_rb,0.13110e+02_rb,0.13663e+02_rb,0.14275e+02_rb /)
+      kao(:, 2, 3) = (/ &
+        & 0.12030e+02_rb,0.12434e+02_rb,0.12899e+02_rb,0.13427e+02_rb,0.14015e+02_rb /)
+      kao(:, 3, 3) = (/ &
+        & 0.11816e+02_rb,0.12183e+02_rb,0.12611e+02_rb,0.13101e+02_rb,0.13653e+02_rb /)
+      kao(:, 4, 3) = (/ &
+        & 0.11611e+02_rb,0.11938e+02_rb,0.12327e+02_rb,0.12777e+02_rb,0.13289e+02_rb /)
+      kao(:, 5, 3) = (/ &
+        & 0.11437e+02_rb,0.11726e+02_rb,0.12076e+02_rb,0.12488e+02_rb,0.12961e+02_rb /)
+      kao(:, 6, 3) = (/ &
+        & 0.11284e+02_rb,0.11533e+02_rb,0.11843e+02_rb,0.12215e+02_rb,0.12649e+02_rb /)
+      kao(:, 7, 3) = (/ &
+        & 0.11160e+02_rb,0.11370e+02_rb,0.11641e+02_rb,0.11975e+02_rb,0.12370e+02_rb /)
+      kao(:, 8, 3) = (/ &
+        & 0.11063e+02_rb,0.11237e+02_rb,0.11471e+02_rb,0.11768e+02_rb,0.12126e+02_rb /)
+      kao(:, 9, 3) = (/ &
+        & 0.10990e+02_rb,0.11129e+02_rb,0.11327e+02_rb,0.11588e+02_rb,0.11910e+02_rb /)
+      kao(:,10, 3) = (/ &
+        & 0.10945e+02_rb,0.11053e+02_rb,0.11223e+02_rb,0.11454e+02_rb,0.11746e+02_rb /)
+      kao(:,11, 3) = (/ &
+        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)
+      kao(:,12, 3) = (/ &
+        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)
+      kao(:,13, 3) = (/ &
+        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)
+      kao(:, 1, 4) = (/ &
+        & 0.55057e+02_rb,0.56143e+02_rb,0.57364e+02_rb,0.58719e+02_rb,0.60208e+02_rb /)
+      kao(:, 2, 4) = (/ &
+        & 0.54647e+02_rb,0.55677e+02_rb,0.56842e+02_rb,0.58142e+02_rb,0.59575e+02_rb /)
+      kao(:, 3, 4) = (/ &
+        & 0.54090e+02_rb,0.55039e+02_rb,0.56123e+02_rb,0.57342e+02_rb,0.58694e+02_rb /)
+      kao(:, 4, 4) = (/ &
+        & 0.53548e+02_rb,0.54410e+02_rb,0.55408e+02_rb,0.56539e+02_rb,0.57805e+02_rb /)
+      kao(:, 5, 4) = (/ &
+        & 0.53074e+02_rb,0.53853e+02_rb,0.54766e+02_rb,0.55813e+02_rb,0.56995e+02_rb /)
+      kao(:, 6, 4) = (/ &
+        & 0.52644e+02_rb,0.53336e+02_rb,0.54162e+02_rb,0.55123e+02_rb,0.56218e+02_rb /)
+      kao(:, 7, 4) = (/ &
+        & 0.52279e+02_rb,0.52887e+02_rb,0.53629e+02_rb,0.54505e+02_rb,0.55516e+02_rb /)
+      kao(:, 8, 4) = (/ &
+        & 0.51979e+02_rb,0.52507e+02_rb,0.53168e+02_rb,0.53965e+02_rb,0.54895e+02_rb /)
+      kao(:, 9, 4) = (/ &
+        & 0.51734e+02_rb,0.52183e+02_rb,0.52767e+02_rb,0.53485e+02_rb,0.54337e+02_rb /)
+      kao(:,10, 4) = (/ &
+        & 0.51565e+02_rb,0.51948e+02_rb,0.52467e+02_rb,0.53120e+02_rb,0.53907e+02_rb /)
+      kao(:,11, 4) = (/ &
+        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)
+      kao(:,12, 4) = (/ &
+        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)
+      kao(:,13, 4) = (/ &
+        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)
+      kao(:, 1, 5) = (/ &
+        & 0.17794e+03_rb,0.17973e+03_rb,0.18164e+03_rb,0.18366e+03_rb,0.18581e+03_rb /)
+      kao(:, 2, 5) = (/ &
+        & 0.17724e+03_rb,0.17898e+03_rb,0.18083e+03_rb,0.18281e+03_rb,0.18491e+03_rb /)
+      kao(:, 3, 5) = (/ &
+        & 0.17624e+03_rb,0.17791e+03_rb,0.17970e+03_rb,0.18160e+03_rb,0.18363e+03_rb /)
+      kao(:, 4, 5) = (/ &
+        & 0.17523e+03_rb,0.17682e+03_rb,0.17853e+03_rb,0.18036e+03_rb,0.18231e+03_rb /)
+      kao(:, 5, 5) = (/ &
+        & 0.17429e+03_rb,0.17581e+03_rb,0.17744e+03_rb,0.17920e+03_rb,0.18107e+03_rb /)
+      kao(:, 6, 5) = (/ &
+        & 0.17338e+03_rb,0.17482e+03_rb,0.17638e+03_rb,0.17805e+03_rb,0.17985e+03_rb /)
+      kao(:, 7, 5) = (/ &
+        & 0.17253e+03_rb,0.17390e+03_rb,0.17539e+03_rb,0.17699e+03_rb,0.17871e+03_rb /)
+      kao(:, 8, 5) = (/ &
+        & 0.17177e+03_rb,0.17307e+03_rb,0.17448e+03_rb,0.17601e+03_rb,0.17767e+03_rb /)
+      kao(:, 9, 5) = (/ &
+        & 0.17107e+03_rb,0.17230e+03_rb,0.17364e+03_rb,0.17511e+03_rb,0.17669e+03_rb /)
+      kao(:,10, 5) = (/ &
+        & 0.17052e+03_rb,0.17169e+03_rb,0.17298e+03_rb,0.17438e+03_rb,0.17591e+03_rb /)
+      kao(:,11, 5) = (/ &
+        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)
+      kao(:,12, 5) = (/ &
+        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)
+      kao(:,13, 5) = (/ &
+        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)
+      kao(:, 1, 6) = (/ &
+        & 0.37680e+05_rb,0.36801e+05_rb,0.36011e+05_rb,0.35298e+05_rb,0.34715e+05_rb /)
+      kao(:, 2, 6) = (/ &
+        & 0.39286e+03_rb,0.39463e+03_rb,0.39616e+03_rb,0.39748e+03_rb,0.39858e+03_rb /)
+      kao(:, 3, 6) = (/ &
+        & 0.39169e+03_rb,0.39359e+03_rb,0.39526e+03_rb,0.39671e+03_rb,0.39794e+03_rb /)
+      kao(:, 4, 6) = (/ &
+        & 0.39034e+03_rb,0.39239e+03_rb,0.39421e+03_rb,0.39580e+03_rb,0.39717e+03_rb /)
+      kao(:, 5, 6) = (/ &
+        & 0.38895e+03_rb,0.39113e+03_rb,0.39309e+03_rb,0.39483e+03_rb,0.39634e+03_rb /)
+      kao(:, 6, 6) = (/ &
+        & 0.38742e+03_rb,0.38975e+03_rb,0.39185e+03_rb,0.39373e+03_rb,0.39539e+03_rb /)
+      kao(:, 7, 6) = (/ &
+        & 0.38585e+03_rb,0.38832e+03_rb,0.39056e+03_rb,0.39258e+03_rb,0.39438e+03_rb /)
+      kao(:, 8, 6) = (/ &
+        & 0.38426e+03_rb,0.38686e+03_rb,0.38924e+03_rb,0.39140e+03_rb,0.39333e+03_rb /)
+      kao(:, 9, 6) = (/ &
+        & 0.38264e+03_rb,0.38538e+03_rb,0.38789e+03_rb,0.39017e+03_rb,0.39223e+03_rb /)
+      kao(:,10, 6) = (/ &
+        & 0.38123e+03_rb,0.38408e+03_rb,0.38670e+03_rb,0.38909e+03_rb,0.39126e+03_rb /)
+      kao(:,11, 6) = (/ &
+        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)
+      kao(:,12, 6) = (/ &
+        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)
+      kao(:,13, 6) = (/ &
+        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)
+      kao(:, 1, 7) = (/ &
+        & 0.18202e+07_rb,0.17771e+07_rb,0.17382e+07_rb,0.17034e+07_rb,0.16716e+07_rb /)
+      kao(:, 2, 7) = (/ &
+        & 0.63027e+03_rb,0.63194e+03_rb,0.63388e+03_rb,0.63607e+03_rb,0.63849e+03_rb /)
+      kao(:, 3, 7) = (/ &
+        & 0.62938e+03_rb,0.63090e+03_rb,0.63268e+03_rb,0.63472e+03_rb,0.63701e+03_rb /)
+      kao(:, 4, 7) = (/ &
+        & 0.62853e+03_rb,0.62989e+03_rb,0.63150e+03_rb,0.63337e+03_rb,0.63550e+03_rb /)
+      kao(:, 5, 7) = (/ &
+        & 0.62781e+03_rb,0.62901e+03_rb,0.63046e+03_rb,0.63217e+03_rb,0.63413e+03_rb /)
+      kao(:, 6, 7) = (/ &
+        & 0.62717e+03_rb,0.62821e+03_rb,0.62950e+03_rb,0.63104e+03_rb,0.63283e+03_rb /)
+      kao(:, 7, 7) = (/ &
+        & 0.62666e+03_rb,0.62753e+03_rb,0.62867e+03_rb,0.63005e+03_rb,0.63168e+03_rb /)
+      kao(:, 8, 7) = (/ &
+        & 0.62627e+03_rb,0.62698e+03_rb,0.62795e+03_rb,0.62919e+03_rb,0.63067e+03_rb /)
+      kao(:, 9, 7) = (/ &
+        & 0.62600e+03_rb,0.62653e+03_rb,0.62735e+03_rb,0.62844e+03_rb,0.62978e+03_rb /)
+      kao(:,10, 7) = (/ &
+        & 0.62583e+03_rb,0.62624e+03_rb,0.62692e+03_rb,0.62788e+03_rb,0.62910e+03_rb /)
+      kao(:,11, 7) = (/ &
+        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)
+      kao(:,12, 7) = (/ &
+        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)
+      kao(:,13, 7) = (/ &
+        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)
+      kao(:, 1, 8) = (/ &
+        & 0.55488e+07_rb,0.54180e+07_rb,0.53005e+07_rb,0.51943e+07_rb,0.50978e+07_rb /)
+      kao(:, 2, 8) = (/ &
+        & 0.82143e+03_rb,0.82232e+03_rb,0.82327e+03_rb,0.82429e+03_rb,0.82541e+03_rb /)
+      kao(:, 3, 8) = (/ &
+        & 0.82092e+03_rb,0.82177e+03_rb,0.82269e+03_rb,0.82366e+03_rb,0.82472e+03_rb /)
+      kao(:, 4, 8) = (/ &
+        & 0.82041e+03_rb,0.82121e+03_rb,0.82209e+03_rb,0.82303e+03_rb,0.82402e+03_rb /)
+      kao(:, 5, 8) = (/ &
+        & 0.81996e+03_rb,0.82070e+03_rb,0.82152e+03_rb,0.82243e+03_rb,0.82339e+03_rb /)
+      kao(:, 6, 8) = (/ &
+        & 0.81952e+03_rb,0.82021e+03_rb,0.82098e+03_rb,0.82184e+03_rb,0.82277e+03_rb /)
+      kao(:, 7, 8) = (/ &
+        & 0.81917e+03_rb,0.81977e+03_rb,0.82048e+03_rb,0.82129e+03_rb,0.82218e+03_rb /)
+      kao(:, 8, 8) = (/ &
+        & 0.81881e+03_rb,0.81938e+03_rb,0.82004e+03_rb,0.82080e+03_rb,0.82163e+03_rb /)
+      kao(:, 9, 8) = (/ &
+        & 0.81846e+03_rb,0.81906e+03_rb,0.81965e+03_rb,0.82035e+03_rb,0.82114e+03_rb /)
+      kao(:,10, 8) = (/ &
+        & 0.81821e+03_rb,0.81877e+03_rb,0.81934e+03_rb,0.82000e+03_rb,0.82074e+03_rb /)
+      kao(:,11, 8) = (/ &
+        & 0.81821e+03_rb,0.81877e+03_rb,0.81934e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)
+      kao(:,12, 8) = (/ &
+        & 0.81821e+03_rb,0.81877e+03_rb,0.81934e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)
+      kao(:,13, 8) = (/ &
+        & 0.81821e+03_rb,0.81877e+03_rb,0.81935e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)
+      kao(:, 1, 9) = (/ &
+        & 0.10204e+08_rb,0.99477e+07_rb,0.97209e+07_rb,0.95103e+07_rb,0.92960e+07_rb /)
+      kao(:, 2, 9) = (/ &
+        & 0.95102e+03_rb,0.95144e+03_rb,0.95133e+03_rb,0.95066e+03_rb,0.94964e+03_rb /)
+      kao(:, 3, 9) = (/ &
+        & 0.95048e+03_rb,0.95118e+03_rb,0.95136e+03_rb,0.95103e+03_rb,0.95020e+03_rb /)
+      kao(:, 4, 9) = (/ &
+        & 0.94969e+03_rb,0.95077e+03_rb,0.95126e+03_rb,0.95124e+03_rb,0.95074e+03_rb /)
+      kao(:, 5, 9) = (/ &
+        & 0.94872e+03_rb,0.95015e+03_rb,0.95101e+03_rb,0.95129e+03_rb,0.95105e+03_rb /)
+      kao(:, 6, 9) = (/ &
+        & 0.94752e+03_rb,0.94929e+03_rb,0.95052e+03_rb,0.95116e+03_rb,0.95126e+03_rb /)
+      kao(:, 7, 9) = (/ &
+        & 0.94612e+03_rb,0.94825e+03_rb,0.94981e+03_rb,0.95083e+03_rb,0.95126e+03_rb /)
+      kao(:, 8, 9) = (/ &
+        & 0.94461e+03_rb,0.94704e+03_rb,0.94894e+03_rb,0.95029e+03_rb,0.95107e+03_rb /)
+      kao(:, 9, 9) = (/ &
+        & 0.94291e+03_rb,0.94567e+03_rb,0.94791e+03_rb,0.94957e+03_rb,0.95069e+03_rb /)
+      kao(:,10, 9) = (/ &
+        & 0.94135e+03_rb,0.94441e+03_rb,0.94689e+03_rb,0.94884e+03_rb,0.95022e+03_rb /)
+      kao(:,11, 9) = (/ &
+        & 0.94133e+03_rb,0.94440e+03_rb,0.94688e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)
+      kao(:,12, 9) = (/ &
+        & 0.94133e+03_rb,0.94438e+03_rb,0.94688e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)
+      kao(:,13, 9) = (/ &
+        & 0.94133e+03_rb,0.94438e+03_rb,0.94687e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)
+      kao(:, 1,10) = (/ &
+        & 0.12764e+08_rb,0.12408e+08_rb,0.12012e+08_rb,0.11438e+08_rb,0.11217e+08_rb /)
+      kao(:, 2,10) = (/ &
+        & 0.99589e+03_rb,0.99493e+03_rb,0.99263e+03_rb,0.98974e+03_rb,0.98742e+03_rb /)
+      kao(:, 3,10) = (/ &
+        & 0.99532e+03_rb,0.99571e+03_rb,0.99447e+03_rb,0.99207e+03_rb,0.98779e+03_rb /)
+      kao(:, 4,10) = (/ &
+        & 0.99446e+03_rb,0.99559e+03_rb,0.99536e+03_rb,0.99386e+03_rb,0.99088e+03_rb /)
+      kao(:, 5,10) = (/ &
+        & 0.99288e+03_rb,0.99493e+03_rb,0.99558e+03_rb,0.99487e+03_rb,0.99336e+03_rb /)
+      kao(:, 6,10) = (/ &
+        & 0.99069e+03_rb,0.99366e+03_rb,0.99519e+03_rb,0.99534e+03_rb,0.99428e+03_rb /)
+      kao(:, 7,10) = (/ &
+        & 0.98811e+03_rb,0.99191e+03_rb,0.99430e+03_rb,0.99510e+03_rb,0.99504e+03_rb /)
+      kao(:, 8,10) = (/ &
+        & 0.98531e+03_rb,0.98996e+03_rb,0.99300e+03_rb,0.99479e+03_rb,0.99513e+03_rb /)
+      kao(:, 9,10) = (/ &
+        & 0.98264e+03_rb,0.98737e+03_rb,0.99138e+03_rb,0.99390e+03_rb,0.99503e+03_rb /)
+      kao(:,10,10) = (/ &
+        & 0.98010e+03_rb,0.98517e+03_rb,0.98974e+03_rb,0.99281e+03_rb,0.99470e+03_rb /)
+      kao(:,11,10) = (/ &
+        & 0.98010e+03_rb,0.98509e+03_rb,0.98985e+03_rb,0.99280e+03_rb,0.99468e+03_rb /)
+      kao(:,12,10) = (/ &
+        & 0.98035e+03_rb,0.98524e+03_rb,0.98973e+03_rb,0.99279e+03_rb,0.99468e+03_rb /)
+      kao(:,13,10) = (/ &
+        & 0.98012e+03_rb,0.98526e+03_rb,0.98973e+03_rb,0.99279e+03_rb,0.99468e+03_rb /)
+      kao(:, 1,11) = (/ &
+        & 0.12266e+08_rb,0.12000e+08_rb,0.11724e+08_rb,0.11828e+08_rb,0.11523e+08_rb /)
+      kao(:, 2,11) = (/ &
+        & 0.10001e+04_rb,0.99984e+03_rb,0.99745e+03_rb,0.99535e+03_rb,0.98599e+03_rb /)
+      kao(:, 3,11) = (/ &
+        & 0.99963e+03_rb,0.99927e+03_rb,0.99848e+03_rb,0.99596e+03_rb,0.99390e+03_rb /)
+      kao(:, 4,11) = (/ &
+        & 0.99904e+03_rb,0.99942e+03_rb,0.99870e+03_rb,0.99747e+03_rb,0.99542e+03_rb /)
+      kao(:, 5,11) = (/ &
+        & 0.99826e+03_rb,0.99927e+03_rb,0.99919e+03_rb,0.99821e+03_rb,0.99627e+03_rb /)
+      kao(:, 6,11) = (/ &
+        & 0.99730e+03_rb,0.99882e+03_rb,0.99938e+03_rb,0.99902e+03_rb,0.99764e+03_rb /)
+      kao(:, 7,11) = (/ &
+        & 0.99551e+03_rb,0.99810e+03_rb,0.99919e+03_rb,0.99961e+03_rb,0.99863e+03_rb /)
+      kao(:, 8,11) = (/ &
+        & 0.99324e+03_rb,0.99688e+03_rb,0.99871e+03_rb,0.99940e+03_rb,0.99942e+03_rb /)
+      kao(:, 9,11) = (/ &
+        & 0.99058e+03_rb,0.99489e+03_rb,0.99773e+03_rb,0.99912e+03_rb,0.99954e+03_rb /)
+      kao(:,10,11) = (/ &
+        & 0.98802e+03_rb,0.99297e+03_rb,0.99656e+03_rb,0.99861e+03_rb,0.99937e+03_rb /)
+      kao(:,11,11) = (/ &
+        & 0.98800e+03_rb,0.99310e+03_rb,0.99655e+03_rb,0.99860e+03_rb,0.99936e+03_rb /)
+      kao(:,12,11) = (/ &
+        & 0.98771e+03_rb,0.99296e+03_rb,0.99669e+03_rb,0.99859e+03_rb,0.99936e+03_rb /)
+      kao(:,13,11) = (/ &
+        & 0.98800e+03_rb,0.99296e+03_rb,0.99655e+03_rb,0.99859e+03_rb,0.99936e+03_rb /)
+      kao(:, 1,12) = (/ &
+        & 0.12503e+08_rb,0.11946e+08_rb,0.11557e+08_rb,0.11503e+08_rb,0.11901e+08_rb /)
+      kao(:, 2,12) = (/ &
+        & 0.10015e+04_rb,0.10004e+04_rb,0.99932e+03_rb,0.99373e+03_rb,0.98591e+03_rb /)
+      kao(:, 3,12) = (/ &
+        & 0.10024e+04_rb,0.10021e+04_rb,0.10003e+04_rb,0.99817e+03_rb,0.99146e+03_rb /)
+      kao(:, 4,12) = (/ &
+        & 0.10022e+04_rb,0.10027e+04_rb,0.10021e+04_rb,0.99956e+03_rb,0.99610e+03_rb /)
+      kao(:, 5,12) = (/ &
+        & 0.10024e+04_rb,0.10024e+04_rb,0.10028e+04_rb,0.10015e+04_rb,0.99826e+03_rb /)
+      kao(:, 6,12) = (/ &
+        & 0.10017e+04_rb,0.10025e+04_rb,0.10025e+04_rb,0.10023e+04_rb,0.10008e+04_rb /)
+      kao(:, 7,12) = (/ &
+        & 0.10005e+04_rb,0.10020e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10019e+04_rb /)
+      kao(:, 8,12) = (/ &
+        & 0.10000e+04_rb,0.10010e+04_rb,0.10024e+04_rb,0.10029e+04_rb,0.10023e+04_rb /)
+      kao(:, 9,12) = (/ &
+        & 0.99906e+03_rb,0.10004e+04_rb,0.10018e+04_rb,0.10029e+04_rb,0.10028e+04_rb /)
+      kao(:,10,12) = (/ &
+        & 0.99791e+03_rb,0.99989e+03_rb,0.10010e+04_rb,0.10024e+04_rb,0.10031e+04_rb /)
+      kao(:,11,12) = (/ &
+        & 0.99769e+03_rb,0.99967e+03_rb,0.10008e+04_rb,0.10024e+04_rb,0.10029e+04_rb /)
+      kao(:,12,12) = (/ &
+        & 0.99787e+03_rb,0.99985e+03_rb,0.10008e+04_rb,0.10025e+04_rb,0.10029e+04_rb /)
+      kao(:,13,12) = (/ &
+        & 0.99768e+03_rb,0.99984e+03_rb,0.10012e+04_rb,0.10026e+04_rb,0.10029e+04_rb /)
+      kao(:, 1,13) = (/ &
+        & 0.12359e+08_rb,0.12469e+08_rb,0.12868e+08_rb,0.12776e+08_rb,0.12590e+08_rb /)
+      kao(:, 2,13) = (/ &
+        & 0.10045e+04_rb,0.10033e+04_rb,0.99840e+03_rb,0.99184e+03_rb,0.98861e+03_rb /)
+      kao(:, 3,13) = (/ &
+        & 0.10050e+04_rb,0.10041e+04_rb,0.10024e+04_rb,0.99701e+03_rb,0.99083e+03_rb /)
+      kao(:, 4,13) = (/ &
+        & 0.10053e+04_rb,0.10043e+04_rb,0.10035e+04_rb,0.10017e+04_rb,0.99538e+03_rb /)
+      kao(:, 5,13) = (/ &
+        & 0.10048e+04_rb,0.10056e+04_rb,0.10038e+04_rb,0.10026e+04_rb,0.10008e+04_rb /)
+      kao(:, 6,13) = (/ &
+        & 0.10042e+04_rb,0.10054e+04_rb,0.10054e+04_rb,0.10039e+04_rb,0.10017e+04_rb /)
+      kao(:, 7,13) = (/ &
+        & 0.10029e+04_rb,0.10046e+04_rb,0.10055e+04_rb,0.10046e+04_rb,0.10033e+04_rb /)
+      kao(:, 8,13) = (/ &
+        & 0.10002e+04_rb,0.10039e+04_rb,0.10051e+04_rb,0.10054e+04_rb,0.10046e+04_rb /)
+      kao(:, 9,13) = (/ &
+        & 0.99825e+03_rb,0.10019e+04_rb,0.10043e+04_rb,0.10051e+04_rb,0.10052e+04_rb /)
+      kao(:,10,13) = (/ &
+        & 0.99595e+03_rb,0.99983e+03_rb,0.10034e+04_rb,0.10050e+04_rb,0.10051e+04_rb /)
+      kao(:,11,13) = (/ &
+        & 0.99621e+03_rb,0.99979e+03_rb,0.10034e+04_rb,0.10050e+04_rb,0.10054e+04_rb /)
+      kao(:,12,13) = (/ &
+        & 0.99597e+03_rb,0.99979e+03_rb,0.10031e+04_rb,0.10047e+04_rb,0.10054e+04_rb /)
+      kao(:,13,13) = (/ &
+        & 0.99623e+03_rb,0.99978e+03_rb,0.10031e+04_rb,0.10047e+04_rb,0.10054e+04_rb /)
+      kao(:, 1,14) = (/ &
+        & 0.13636e+08_rb,0.13818e+08_rb,0.13518e+08_rb,0.13266e+08_rb,0.13048e+08_rb /)
+      kao(:, 2,14) = (/ &
+        & 0.10049e+04_rb,0.99946e+03_rb,0.99774e+03_rb,0.99774e+03_rb,0.99771e+03_rb /)
+      kao(:, 3,14) = (/ &
+        & 0.10051e+04_rb,0.10068e+04_rb,0.10007e+04_rb,0.99775e+03_rb,0.99778e+03_rb /)
+      kao(:, 4,14) = (/ &
+        & 0.10071e+04_rb,0.10061e+04_rb,0.10050e+04_rb,0.10005e+04_rb,0.99776e+03_rb /)
+      kao(:, 5,14) = (/ &
+        & 0.10067e+04_rb,0.10072e+04_rb,0.10061e+04_rb,0.10044e+04_rb,0.99972e+03_rb /)
+      kao(:, 6,14) = (/ &
+        & 0.10049e+04_rb,0.10070e+04_rb,0.10074e+04_rb,0.10057e+04_rb,0.10037e+04_rb /)
+      kao(:, 7,14) = (/ &
+        & 0.10033e+04_rb,0.10063e+04_rb,0.10072e+04_rb,0.10067e+04_rb,0.10050e+04_rb /)
+      kao(:, 8,14) = (/ &
+        & 0.10025e+04_rb,0.10048e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb /)
+      kao(:, 9,14) = (/ &
+        & 0.99880e+03_rb,0.10031e+04_rb,0.10060e+04_rb,0.10071e+04_rb,0.10069e+04_rb /)
+      kao(:,10,14) = (/ &
+        & 0.99610e+03_rb,0.10023e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)
+      kao(:,11,14) = (/ &
+        & 0.99601e+03_rb,0.10023e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)
+      kao(:,12,14) = (/ &
+        & 0.99598e+03_rb,0.10023e+04_rb,0.10051e+04_rb,0.10067e+04_rb,0.10076e+04_rb /)
+      kao(:,13,14) = (/ &
+        & 0.99596e+03_rb,0.10027e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)
+      kao(:, 1,15) = (/ &
+        & 0.14285e+08_rb,0.13947e+08_rb,0.13644e+08_rb,0.13317e+08_rb,0.13015e+08_rb /)
+      kao(:, 2,15) = (/ &
+        & 0.99932e+03_rb,0.10011e+04_rb,0.10018e+04_rb,0.10007e+04_rb,0.99706e+03_rb /)
+      kao(:, 3,15) = (/ &
+        & 0.10097e+04_rb,0.99743e+03_rb,0.10015e+04_rb,0.10018e+04_rb,0.99920e+03_rb /)
+      kao(:, 4,15) = (/ &
+        & 0.10099e+04_rb,0.10076e+04_rb,0.10030e+04_rb,0.10017e+04_rb,0.10013e+04_rb /)
+      kao(:, 5,15) = (/ &
+        & 0.10075e+04_rb,0.10079e+04_rb,0.10073e+04_rb,0.10035e+04_rb,0.10018e+04_rb /)
+      kao(:, 6,15) = (/ &
+        & 0.10068e+04_rb,0.10088e+04_rb,0.10068e+04_rb,0.10090e+04_rb,0.10033e+04_rb /)
+      kao(:, 7,15) = (/ &
+        & 0.10057e+04_rb,0.10073e+04_rb,0.10090e+04_rb,0.10087e+04_rb,0.10062e+04_rb /)
+      kao(:, 8,15) = (/ &
+        & 0.10010e+04_rb,0.10054e+04_rb,0.10076e+04_rb,0.10079e+04_rb,0.10072e+04_rb /)
+      kao(:, 9,15) = (/ &
+        & 0.99853e+03_rb,0.10054e+04_rb,0.10071e+04_rb,0.10079e+04_rb,0.10078e+04_rb /)
+      kao(:,10,15) = (/ &
+        & 0.99742e+03_rb,0.10007e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)
+      kao(:,11,15) = (/ &
+        & 0.99635e+03_rb,0.10006e+04_rb,0.10064e+04_rb,0.10087e+04_rb,0.10090e+04_rb /)
+      kao(:,12,15) = (/ &
+        & 0.99635e+03_rb,0.10006e+04_rb,0.10064e+04_rb,0.10087e+04_rb,0.10069e+04_rb /)
+      kao(:,13,15) = (/ &
+        & 0.99635e+03_rb,0.99960e+03_rb,0.10064e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)
+      kao(:, 1,16) = (/ &
+        & 0.14326e+08_rb,0.13988e+08_rb,0.13684e+08_rb,0.13409e+08_rb,0.13021e+08_rb /)
+      kao(:, 2,16) = (/ &
+        & 0.10008e+04_rb,0.10027e+04_rb,0.10036e+04_rb,0.10037e+04_rb,0.99673e+03_rb /)
+      kao(:, 3,16) = (/ &
+        & 0.99286e+03_rb,0.10016e+04_rb,0.10031e+04_rb,0.10038e+04_rb,0.10035e+04_rb /)
+      kao(:, 4,16) = (/ &
+        & 0.99278e+03_rb,0.10078e+04_rb,0.10023e+04_rb,0.10035e+04_rb,0.10038e+04_rb /)
+      kao(:, 5,16) = (/ &
+        & 0.10074e+04_rb,0.10079e+04_rb,0.10075e+04_rb,0.10028e+04_rb,0.10037e+04_rb /)
+      kao(:, 6,16) = (/ &
+        & 0.10069e+04_rb,0.10002e+04_rb,0.10079e+04_rb,0.99212e+03_rb,0.10032e+04_rb /)
+      kao(:, 7,16) = (/ &
+        & 0.10060e+04_rb,0.10072e+04_rb,0.10004e+04_rb,0.10003e+04_rb,0.10063e+04_rb /)
+      kao(:, 8,16) = (/ &
+        & 0.10009e+04_rb,0.10066e+04_rb,0.10075e+04_rb,0.10080e+04_rb,0.10074e+04_rb /)
+      kao(:, 9,16) = (/ &
+        & 0.99860e+03_rb,0.10057e+04_rb,0.10071e+04_rb,0.10078e+04_rb,0.10079e+04_rb /)
+      kao(:,10,16) = (/ &
+        & 0.98908e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10075e+04_rb,0.10080e+04_rb /)
+      kao(:,11,16) = (/ &
+        & 0.99644e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10000e+04_rb,0.10005e+04_rb /)
+      kao(:,12,16) = (/ &
+        & 0.99644e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10000e+04_rb,0.10080e+04_rb /)
+      kao(:,13,16) = (/ &
+        & 0.99644e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10075e+04_rb,0.10080e+04_rb /)
+  
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+  
+      kbo(:,13, 1) = (/ &
+        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)
+      kbo(:,14, 1) = (/ &
+        & 0.16050e+00_rb,0.16454e+00_rb,0.17292e+00_rb,0.18592e+00_rb,0.20351e+00_rb /)
+      kbo(:,15, 1) = (/ &
+        & 0.16071e+00_rb,0.16519e+00_rb,0.17400e+00_rb,0.18750e+00_rb,0.20554e+00_rb /)
+      kbo(:,16, 1) = (/ &
+        & 0.16098e+00_rb,0.16593e+00_rb,0.17517e+00_rb,0.18921e+00_rb,0.20772e+00_rb /)
+      kbo(:,17, 1) = (/ &
+        & 0.16129e+00_rb,0.16670e+00_rb,0.17642e+00_rb,0.19093e+00_rb,0.20991e+00_rb /)
+      kbo(:,18, 1) = (/ &
+        & 0.16164e+00_rb,0.16750e+00_rb,0.17771e+00_rb,0.19267e+00_rb,0.21211e+00_rb /)
+      kbo(:,19, 1) = (/ &
+        & 0.16203e+00_rb,0.16832e+00_rb,0.17901e+00_rb,0.19443e+00_rb,0.21431e+00_rb /)
+      kbo(:,20, 1) = (/ &
+        & 0.16255e+00_rb,0.16934e+00_rb,0.18059e+00_rb,0.19653e+00_rb,0.21694e+00_rb /)
+      kbo(:,21, 1) = (/ &
+        & 0.16313e+00_rb,0.17044e+00_rb,0.18225e+00_rb,0.19873e+00_rb,0.21967e+00_rb /)
+      kbo(:,22, 1) = (/ &
+        & 0.16416e+00_rb,0.17227e+00_rb,0.18498e+00_rb,0.20229e+00_rb,0.22406e+00_rb /)
+      kbo(:,23, 1) = (/ &
+        & 0.16539e+00_rb,0.17431e+00_rb,0.18796e+00_rb,0.20612e+00_rb,0.22875e+00_rb /)
+      kbo(:,24, 1) = (/ &
+        & 0.16684e+00_rb,0.17666e+00_rb,0.19125e+00_rb,0.21032e+00_rb,0.23385e+00_rb /)
+      kbo(:,25, 1) = (/ &
+        & 0.16856e+00_rb,0.17939e+00_rb,0.19493e+00_rb,0.21495e+00_rb,0.23943e+00_rb /)
+      kbo(:,26, 1) = (/ &
+        & 0.17067e+00_rb,0.18260e+00_rb,0.19919e+00_rb,0.22024e+00_rb,0.24578e+00_rb /)
+      kbo(:,27, 1) = (/ &
+        & 0.17306e+00_rb,0.18613e+00_rb,0.20377e+00_rb,0.22588e+00_rb,0.25248e+00_rb /)
+      kbo(:,28, 1) = (/ &
+        & 0.17570e+00_rb,0.18994e+00_rb,0.20865e+00_rb,0.23184e+00_rb,0.25952e+00_rb /)
+      kbo(:,29, 1) = (/ &
+        & 0.17882e+00_rb,0.19417e+00_rb,0.21399e+00_rb,0.23828e+00_rb,0.26708e+00_rb /)
+      kbo(:,30, 1) = (/ &
+        & 0.18223e+00_rb,0.19870e+00_rb,0.21964e+00_rb,0.24505e+00_rb,0.27492e+00_rb /)
+      kbo(:,31, 1) = (/ &
+        & 0.18602e+00_rb,0.20364e+00_rb,0.22572e+00_rb,0.25229e+00_rb,0.28325e+00_rb /)
+      kbo(:,32, 1) = (/ &
+        & 0.19018e+00_rb,0.20895e+00_rb,0.23219e+00_rb,0.25994e+00_rb,0.29200e+00_rb /)
+      kbo(:,33, 1) = (/ &
+        & 0.19466e+00_rb,0.21461e+00_rb,0.23902e+00_rb,0.26795e+00_rb,0.30114e+00_rb /)
+      kbo(:,34, 1) = (/ &
+        & 0.19880e+00_rb,0.21976e+00_rb,0.24520e+00_rb,0.27509e+00_rb,0.30932e+00_rb /)
+      kbo(:,35, 1) = (/ &
+        & 0.20129e+00_rb,0.22283e+00_rb,0.24886e+00_rb,0.27931e+00_rb,0.31412e+00_rb /)
+      kbo(:,36, 1) = (/ &
+        & 0.20170e+00_rb,0.22334e+00_rb,0.24946e+00_rb,0.28000e+00_rb,0.31492e+00_rb /)
+      kbo(:,37, 1) = (/ &
+        & 0.19920e+00_rb,0.22026e+00_rb,0.24579e+00_rb,0.27578e+00_rb,0.31010e+00_rb /)
+      kbo(:,38, 1) = (/ &
+        & 0.19662e+00_rb,0.21706e+00_rb,0.24197e+00_rb,0.27135e+00_rb,0.30504e+00_rb /)
+      kbo(:,39, 1) = (/ &
+        & 0.19414e+00_rb,0.21396e+00_rb,0.23824e+00_rb,0.26704e+00_rb,0.30010e+00_rb /)
+      kbo(:,40, 1) = (/ &
+        & 0.19003e+00_rb,0.20877e+00_rb,0.23197e+00_rb,0.25968e+00_rb,0.29171e+00_rb /)
+      kbo(:,41, 1) = (/ &
+        & 0.18597e+00_rb,0.20357e+00_rb,0.22564e+00_rb,0.25219e+00_rb,0.28314e+00_rb /)
+      kbo(:,42, 1) = (/ &
+        & 0.18220e+00_rb,0.19865e+00_rb,0.21958e+00_rb,0.24498e+00_rb,0.27484e+00_rb /)
+      kbo(:,43, 1) = (/ &
+        & 0.17798e+00_rb,0.19304e+00_rb,0.21257e+00_rb,0.23657e+00_rb,0.26510e+00_rb /)
+      kbo(:,44, 1) = (/ &
+        & 0.17397e+00_rb,0.18746e+00_rb,0.20548e+00_rb,0.22798e+00_rb,0.25496e+00_rb /)
+      kbo(:,45, 1) = (/ &
+        & 0.17053e+00_rb,0.18239e+00_rb,0.19890e+00_rb,0.21989e+00_rb,0.24535e+00_rb /)
+      kbo(:,46, 1) = (/ &
+        & 0.16739e+00_rb,0.17754e+00_rb,0.19245e+00_rb,0.21183e+00_rb,0.23568e+00_rb /)
+      kbo(:,47, 1) = (/ &
+        & 0.16454e+00_rb,0.17292e+00_rb,0.18592e+00_rb,0.20351e+00_rb,0.22556e+00_rb /)
+      kbo(:,48, 1) = (/ &
+        & 0.16239e+00_rb,0.16903e+00_rb,0.18011e+00_rb,0.19590e+00_rb,0.21615e+00_rb /)
+      kbo(:,49, 1) = (/ &
+        & 0.16095e+00_rb,0.16584e+00_rb,0.17504e+00_rb,0.18902e+00_rb,0.20747e+00_rb /)
+      kbo(:,50, 1) = (/ &
+        & 0.16025e+00_rb,0.16348e+00_rb,0.17109e+00_rb,0.18322e+00_rb,0.20000e+00_rb /)
+      kbo(:,51, 1) = (/ &
+        & 0.16021e+00_rb,0.16179e+00_rb,0.16781e+00_rb,0.17821e+00_rb,0.19335e+00_rb /)
+      kbo(:,52, 1) = (/ &
+        & 0.16078e+00_rb,0.16068e+00_rb,0.16511e+00_rb,0.17387e+00_rb,0.18731e+00_rb /)
+      kbo(:,53, 1) = (/ &
+        & 0.16197e+00_rb,0.16018e+00_rb,0.16299e+00_rb,0.17017e+00_rb,0.18186e+00_rb /)
+      kbo(:,54, 1) = (/ &
+        & 0.16362e+00_rb,0.16026e+00_rb,0.16155e+00_rb,0.16729e+00_rb,0.17738e+00_rb /)
+      kbo(:,55, 1) = (/ &
+        & 0.16570e+00_rb,0.16083e+00_rb,0.16064e+00_rb,0.16498e+00_rb,0.17365e+00_rb /)
+      kbo(:,56, 1) = (/ &
+        & 0.16825e+00_rb,0.16187e+00_rb,0.16020e+00_rb,0.16311e+00_rb,0.17041e+00_rb /)
+      kbo(:,57, 1) = (/ &
+        & 0.17129e+00_rb,0.16340e+00_rb,0.16023e+00_rb,0.16169e+00_rb,0.16761e+00_rb /)
+      kbo(:,58, 1) = (/ &
+        & 0.17462e+00_rb,0.16529e+00_rb,0.16069e+00_rb,0.16077e+00_rb,0.16535e+00_rb /)
+      kbo(:,59, 1) = (/ &
+        & 0.17607e+00_rb,0.16617e+00_rb,0.16100e+00_rb,0.16051e+00_rb,0.16456e+00_rb /)
+      kbo(:,13, 2) = (/ &
+        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)
+      kbo(:,14, 2) = (/ &
+        & 0.17536e+01_rb,0.17755e+01_rb,0.18165e+01_rb,0.18775e+01_rb,0.19571e+01_rb /)
+      kbo(:,15, 2) = (/ &
+        & 0.17549e+01_rb,0.17787e+01_rb,0.18219e+01_rb,0.18847e+01_rb,0.19662e+01_rb /)
+      kbo(:,16, 2) = (/ &
+        & 0.17565e+01_rb,0.17819e+01_rb,0.18278e+01_rb,0.18925e+01_rb,0.19761e+01_rb /)
+      kbo(:,17, 2) = (/ &
+        & 0.17583e+01_rb,0.17850e+01_rb,0.18336e+01_rb,0.19003e+01_rb,0.19859e+01_rb /)
+      kbo(:,18, 2) = (/ &
+        & 0.17603e+01_rb,0.17891e+01_rb,0.18396e+01_rb,0.19082e+01_rb,0.19957e+01_rb /)
+      kbo(:,19, 2) = (/ &
+        & 0.17624e+01_rb,0.17934e+01_rb,0.18457e+01_rb,0.19162e+01_rb,0.20056e+01_rb /)
+      kbo(:,20, 2) = (/ &
+        & 0.17652e+01_rb,0.17986e+01_rb,0.18530e+01_rb,0.19257e+01_rb,0.20174e+01_rb /)
+      kbo(:,21, 2) = (/ &
+        & 0.17683e+01_rb,0.18042e+01_rb,0.18607e+01_rb,0.19356e+01_rb,0.20296e+01_rb /)
+      kbo(:,22, 2) = (/ &
+        & 0.17736e+01_rb,0.18133e+01_rb,0.18732e+01_rb,0.19516e+01_rb,0.20492e+01_rb /)
+      kbo(:,23, 2) = (/ &
+        & 0.17796e+01_rb,0.18234e+01_rb,0.18868e+01_rb,0.19689e+01_rb,0.20702e+01_rb /)
+      kbo(:,24, 2) = (/ &
+        & 0.17857e+01_rb,0.18347e+01_rb,0.19018e+01_rb,0.19877e+01_rb,0.20929e+01_rb /)
+      kbo(:,25, 2) = (/ &
+        & 0.17946e+01_rb,0.18475e+01_rb,0.19185e+01_rb,0.20085e+01_rb,0.21178e+01_rb /)
+      kbo(:,26, 2) = (/ &
+        & 0.18053e+01_rb,0.18623e+01_rb,0.19377e+01_rb,0.20322e+01_rb,0.21460e+01_rb /)
+      kbo(:,27, 2) = (/ &
+        & 0.18172e+01_rb,0.18785e+01_rb,0.19583e+01_rb,0.20574e+01_rb,0.21757e+01_rb /)
+      kbo(:,28, 2) = (/ &
+        & 0.18303e+01_rb,0.18959e+01_rb,0.19802e+01_rb,0.20839e+01_rb,0.22069e+01_rb /)
+      kbo(:,29, 2) = (/ &
+        & 0.18448e+01_rb,0.19150e+01_rb,0.20042e+01_rb,0.21126e+01_rb,0.22404e+01_rb /)
+      kbo(:,30, 2) = (/ &
+        & 0.18606e+01_rb,0.19355e+01_rb,0.20295e+01_rb,0.21428e+01_rb,0.22754e+01_rb /)
+      kbo(:,31, 2) = (/ &
+        & 0.18780e+01_rb,0.19577e+01_rb,0.20566e+01_rb,0.21749e+01_rb,0.23125e+01_rb /)
+      kbo(:,32, 2) = (/ &
+        & 0.18969e+01_rb,0.19816e+01_rb,0.20855e+01_rb,0.22088e+01_rb,0.23514e+01_rb /)
+      kbo(:,33, 2) = (/ &
+        & 0.19172e+01_rb,0.20069e+01_rb,0.21160e+01_rb,0.22443e+01_rb,0.23920e+01_rb /)
+      kbo(:,34, 2) = (/ &
+        & 0.19359e+01_rb,0.20300e+01_rb,0.21434e+01_rb,0.22762e+01_rb,0.24282e+01_rb /)
+      kbo(:,35, 2) = (/ &
+        & 0.19471e+01_rb,0.20437e+01_rb,0.21597e+01_rb,0.22949e+01_rb,0.24495e+01_rb /)
+      kbo(:,36, 2) = (/ &
+        & 0.19490e+01_rb,0.20460e+01_rb,0.21624e+01_rb,0.22980e+01_rb,0.24530e+01_rb /)
+      kbo(:,37, 2) = (/ &
+        & 0.19377e+01_rb,0.20322e+01_rb,0.21461e+01_rb,0.22792e+01_rb,0.24317e+01_rb /)
+      kbo(:,38, 2) = (/ &
+        & 0.19261e+01_rb,0.20179e+01_rb,0.21291e+01_rb,0.22595e+01_rb,0.24093e+01_rb /)
+      kbo(:,39, 2) = (/ &
+        & 0.19149e+01_rb,0.20040e+01_rb,0.21125e+01_rb,0.22402e+01_rb,0.23873e+01_rb /)
+      kbo(:,40, 2) = (/ &
+        & 0.18963e+01_rb,0.19807e+01_rb,0.20845e+01_rb,0.22076e+01_rb,0.23501e+01_rb /)
+      kbo(:,41, 2) = (/ &
+        & 0.18778e+01_rb,0.19574e+01_rb,0.20563e+01_rb,0.21745e+01_rb,0.23120e+01_rb /)
+      kbo(:,42, 2) = (/ &
+        & 0.18604e+01_rb,0.19352e+01_rb,0.20292e+01_rb,0.21425e+01_rb,0.22750e+01_rb /)
+      kbo(:,43, 2) = (/ &
+        & 0.18409e+01_rb,0.19099e+01_rb,0.19978e+01_rb,0.21050e+01_rb,0.22315e+01_rb /)
+      kbo(:,44, 2) = (/ &
+        & 0.18217e+01_rb,0.18845e+01_rb,0.19660e+01_rb,0.20667e+01_rb,0.21867e+01_rb /)
+      kbo(:,45, 2) = (/ &
+        & 0.18046e+01_rb,0.18613e+01_rb,0.19364e+01_rb,0.20306e+01_rb,0.21441e+01_rb /)
+      kbo(:,46, 2) = (/ &
+        & 0.17886e+01_rb,0.18389e+01_rb,0.19072e+01_rb,0.19945e+01_rb,0.21011e+01_rb /)
+      kbo(:,47, 2) = (/ &
+        & 0.17755e+01_rb,0.18165e+01_rb,0.18775e+01_rb,0.19571e+01_rb,0.20559e+01_rb /)
+      kbo(:,48, 2) = (/ &
+        & 0.17644e+01_rb,0.17970e+01_rb,0.18508e+01_rb,0.19228e+01_rb,0.20139e+01_rb /)
+      kbo(:,49, 2) = (/ &
+        & 0.17563e+01_rb,0.17816e+01_rb,0.18271e+01_rb,0.18916e+01_rb,0.19749e+01_rb /)
+      kbo(:,50, 2) = (/ &
+        & 0.17517e+01_rb,0.17702e+01_rb,0.18074e+01_rb,0.18651e+01_rb,0.19413e+01_rb /)
+      kbo(:,51, 2) = (/ &
+        & 0.17504e+01_rb,0.17611e+01_rb,0.17908e+01_rb,0.18420e+01_rb,0.19113e+01_rb /)
+      kbo(:,52, 2) = (/ &
+        & 0.17523e+01_rb,0.17547e+01_rb,0.17783e+01_rb,0.18212e+01_rb,0.18839e+01_rb /)
+      kbo(:,53, 2) = (/ &
+        & 0.17566e+01_rb,0.17510e+01_rb,0.17675e+01_rb,0.18028e+01_rb,0.18589e+01_rb /)
+      kbo(:,54, 2) = (/ &
+        & 0.17623e+01_rb,0.17507e+01_rb,0.17598e+01_rb,0.17881e+01_rb,0.18381e+01_rb /)
+      kbo(:,55, 2) = (/ &
+        & 0.17691e+01_rb,0.17524e+01_rb,0.17544e+01_rb,0.17777e+01_rb,0.18201e+01_rb /)
+      kbo(:,56, 2) = (/ &
+        & 0.17776e+01_rb,0.17562e+01_rb,0.17512e+01_rb,0.17682e+01_rb,0.18040e+01_rb /)
+      kbo(:,57, 2) = (/ &
+        & 0.17881e+01_rb,0.17616e+01_rb,0.17505e+01_rb,0.17606e+01_rb,0.17897e+01_rb /)
+      kbo(:,58, 2) = (/ &
+        & 0.17996e+01_rb,0.17678e+01_rb,0.17520e+01_rb,0.17552e+01_rb,0.17794e+01_rb /)
+      kbo(:,59, 2) = (/ &
+        & 0.18045e+01_rb,0.17707e+01_rb,0.17530e+01_rb,0.17536e+01_rb,0.17756e+01_rb /)
+      kbo(:,13, 3) = (/ &
+        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)
+      kbo(:,14, 3) = (/ &
+        & 0.10952e+02_rb,0.11065e+02_rb,0.11240e+02_rb,0.11476e+02_rb,0.11774e+02_rb /)
+      kbo(:,15, 3) = (/ &
+        & 0.10961e+02_rb,0.11080e+02_rb,0.11261e+02_rb,0.11503e+02_rb,0.11807e+02_rb /)
+      kbo(:,16, 3) = (/ &
+        & 0.10971e+02_rb,0.11097e+02_rb,0.11284e+02_rb,0.11533e+02_rb,0.11844e+02_rb /)
+      kbo(:,17, 3) = (/ &
+        & 0.10981e+02_rb,0.11115e+02_rb,0.11307e+02_rb,0.11562e+02_rb,0.11879e+02_rb /)
+      kbo(:,18, 3) = (/ &
+        & 0.10992e+02_rb,0.11132e+02_rb,0.11331e+02_rb,0.11592e+02_rb,0.11915e+02_rb /)
+      kbo(:,19, 3) = (/ &
+        & 0.11003e+02_rb,0.11149e+02_rb,0.11354e+02_rb,0.11622e+02_rb,0.11951e+02_rb /)
+      kbo(:,20, 3) = (/ &
+        & 0.11017e+02_rb,0.11170e+02_rb,0.11382e+02_rb,0.11657e+02_rb,0.11994e+02_rb /)
+      kbo(:,21, 3) = (/ &
+        & 0.11031e+02_rb,0.11192e+02_rb,0.11412e+02_rb,0.11694e+02_rb,0.12038e+02_rb /)
+      kbo(:,22, 3) = (/ &
+        & 0.11056e+02_rb,0.11228e+02_rb,0.11460e+02_rb,0.11754e+02_rb,0.12109e+02_rb /)
+      kbo(:,23, 3) = (/ &
+        & 0.11085e+02_rb,0.11267e+02_rb,0.11511e+02_rb,0.11817e+02_rb,0.12184e+02_rb /)
+      kbo(:,24, 3) = (/ &
+        & 0.11118e+02_rb,0.11312e+02_rb,0.11568e+02_rb,0.11886e+02_rb,0.12266e+02_rb /)
+      kbo(:,25, 3) = (/ &
+        & 0.11154e+02_rb,0.11361e+02_rb,0.11630e+02_rb,0.11962e+02_rb,0.12354e+02_rb /)
+      kbo(:,26, 3) = (/ &
+        & 0.11196e+02_rb,0.11418e+02_rb,0.11702e+02_rb,0.12048e+02_rb,0.12455e+02_rb /)
+      kbo(:,27, 3) = (/ &
+        & 0.11243e+02_rb,0.11480e+02_rb,0.11778e+02_rb,0.12138e+02_rb,0.12560e+02_rb /)
+      kbo(:,28, 3) = (/ &
+        & 0.11294e+02_rb,0.11545e+02_rb,0.11859e+02_rb,0.12234e+02_rb,0.12670e+02_rb /)
+      kbo(:,29, 3) = (/ &
+        & 0.11351e+02_rb,0.11617e+02_rb,0.11946e+02_rb,0.12336e+02_rb,0.12788e+02_rb /)
+      kbo(:,30, 3) = (/ &
+        & 0.11411e+02_rb,0.11694e+02_rb,0.12038e+02_rb,0.12443e+02_rb,0.12910e+02_rb /)
+      kbo(:,31, 3) = (/ &
+        & 0.11478e+02_rb,0.11776e+02_rb,0.12136e+02_rb,0.12557e+02_rb,0.13040e+02_rb /)
+      kbo(:,32, 3) = (/ &
+        & 0.11549e+02_rb,0.11864e+02_rb,0.12239e+02_rb,0.12677e+02_rb,0.13175e+02_rb /)
+      kbo(:,33, 3) = (/ &
+        & 0.11626e+02_rb,0.11956e+02_rb,0.12348e+02_rb,0.12801e+02_rb,0.13316e+02_rb /)
+      kbo(:,34, 3) = (/ &
+        & 0.11695e+02_rb,0.12040e+02_rb,0.12446e+02_rb,0.12913e+02_rb,0.13442e+02_rb /)
+      kbo(:,35, 3) = (/ &
+        & 0.11737e+02_rb,0.12089e+02_rb,0.12503e+02_rb,0.12979e+02_rb,0.13515e+02_rb /)
+      kbo(:,36, 3) = (/ &
+        & 0.11744e+02_rb,0.12098e+02_rb,0.12513e+02_rb,0.12989e+02_rb,0.13528e+02_rb /)
+      kbo(:,37, 3) = (/ &
+        & 0.11702e+02_rb,0.12048e+02_rb,0.12455e+02_rb,0.12924e+02_rb,0.13454e+02_rb /)
+      kbo(:,38, 3) = (/ &
+        & 0.11659e+02_rb,0.11996e+02_rb,0.12395e+02_rb,0.12855e+02_rb,0.13376e+02_rb /)
+      kbo(:,39, 3) = (/ &
+        & 0.11617e+02_rb,0.11946e+02_rb,0.12336e+02_rb,0.12787e+02_rb,0.13300e+02_rb /)
+      kbo(:,40, 3) = (/ &
+        & 0.11547e+02_rb,0.11861e+02_rb,0.12236e+02_rb,0.12673e+02_rb,0.13171e+02_rb /)
+      kbo(:,41, 3) = (/ &
+        & 0.11477e+02_rb,0.11775e+02_rb,0.12134e+02_rb,0.12555e+02_rb,0.13038e+02_rb /)
+      kbo(:,42, 3) = (/ &
+        & 0.11411e+02_rb,0.11693e+02_rb,0.12037e+02_rb,0.12442e+02_rb,0.12909e+02_rb /)
+      kbo(:,43, 3) = (/ &
+        & 0.11335e+02_rb,0.11598e+02_rb,0.11923e+02_rb,0.12309e+02_rb,0.12757e+02_rb /)
+      kbo(:,44, 3) = (/ &
+        & 0.11261e+02_rb,0.11503e+02_rb,0.11807e+02_rb,0.12172e+02_rb,0.12599e+02_rb /)
+      kbo(:,45, 3) = (/ &
+        & 0.11193e+02_rb,0.11414e+02_rb,0.11697e+02_rb,0.12042e+02_rb,0.12448e+02_rb /)
+      kbo(:,46, 3) = (/ &
+        & 0.11129e+02_rb,0.11328e+02_rb,0.11588e+02_rb,0.11911e+02_rb,0.12295e+02_rb /)
+      kbo(:,47, 3) = (/ &
+        & 0.11065e+02_rb,0.11240e+02_rb,0.11476e+02_rb,0.11774e+02_rb,0.12133e+02_rb /)
+      kbo(:,48, 3) = (/ &
+        & 0.11012e+02_rb,0.11163e+02_rb,0.11374e+02_rb,0.11647e+02_rb,0.11981e+02_rb /)
+      kbo(:,49, 3) = (/ &
+        & 0.10969e+02_rb,0.11095e+02_rb,0.11282e+02_rb,0.11530e+02_rb,0.11839e+02_rb /)
+      kbo(:,50, 3) = (/ &
+        & 0.10938e+02_rb,0.11040e+02_rb,0.11204e+02_rb,0.11429e+02_rb,0.11715e+02_rb /)
+      kbo(:,51, 3) = (/ &
+        & 0.10916e+02_rb,0.10996e+02_rb,0.11138e+02_rb,0.11340e+02_rb,0.11604e+02_rb /)
+      kbo(:,52, 3) = (/ &
+        & 0.10900e+02_rb,0.10960e+02_rb,0.11079e+02_rb,0.11259e+02_rb,0.11500e+02_rb /)
+      kbo(:,53, 3) = (/ &
+        & 0.10894e+02_rb,0.10932e+02_rb,0.11028e+02_rb,0.11186e+02_rb,0.11405e+02_rb /)
+      kbo(:,54, 3) = (/ &
+        & 0.10895e+02_rb,0.10912e+02_rb,0.10989e+02_rb,0.11127e+02_rb,0.11325e+02_rb /)
+      kbo(:,55, 3) = (/ &
+        & 0.10903e+02_rb,0.10900e+02_rb,0.10958e+02_rb,0.11075e+02_rb,0.11255e+02_rb /)
+      kbo(:,56, 3) = (/ &
+        & 0.10921e+02_rb,0.10894e+02_rb,0.10933e+02_rb,0.11031e+02_rb,0.11191e+02_rb /)
+      kbo(:,57, 3) = (/ &
+        & 0.10944e+02_rb,0.10894e+02_rb,0.10914e+02_rb,0.10993e+02_rb,0.11134e+02_rb /)
+      kbo(:,58, 3) = (/ &
+        & 0.10972e+02_rb,0.10901e+02_rb,0.10902e+02_rb,0.10963e+02_rb,0.11084e+02_rb /)
+      kbo(:,59, 3) = (/ &
+        & 0.10984e+02_rb,0.10906e+02_rb,0.10898e+02_rb,0.10952e+02_rb,0.11066e+02_rb /)
+      kbo(:,13, 4) = (/ &
+        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)
+      kbo(:,14, 4) = (/ &
+        & 0.51593e+02_rb,0.51987e+02_rb,0.52517e+02_rb,0.53182e+02_rb,0.53980e+02_rb /)
+      kbo(:,15, 4) = (/ &
+        & 0.51626e+02_rb,0.52035e+02_rb,0.52579e+02_rb,0.53256e+02_rb,0.54069e+02_rb /)
+      kbo(:,16, 4) = (/ &
+        & 0.51664e+02_rb,0.52087e+02_rb,0.52644e+02_rb,0.53337e+02_rb,0.54163e+02_rb /)
+      kbo(:,17, 4) = (/ &
+        & 0.51701e+02_rb,0.52138e+02_rb,0.52710e+02_rb,0.53416e+02_rb,0.54257e+02_rb /)
+      kbo(:,18, 4) = (/ &
+        & 0.51740e+02_rb,0.52191e+02_rb,0.52776e+02_rb,0.53496e+02_rb,0.54351e+02_rb /)
+      kbo(:,19, 4) = (/ &
+        & 0.51779e+02_rb,0.52244e+02_rb,0.52843e+02_rb,0.53576e+02_rb,0.54444e+02_rb /)
+      kbo(:,20, 4) = (/ &
+        & 0.51827e+02_rb,0.52307e+02_rb,0.52922e+02_rb,0.53671e+02_rb,0.54555e+02_rb /)
+      kbo(:,21, 4) = (/ &
+        & 0.51877e+02_rb,0.52373e+02_rb,0.53004e+02_rb,0.53770e+02_rb,0.54669e+02_rb /)
+      kbo(:,22, 4) = (/ &
+        & 0.51959e+02_rb,0.52481e+02_rb,0.53136e+02_rb,0.53927e+02_rb,0.54851e+02_rb /)
+      kbo(:,23, 4) = (/ &
+        & 0.52049e+02_rb,0.52596e+02_rb,0.53278e+02_rb,0.54094e+02_rb,0.55044e+02_rb /)
+      kbo(:,24, 4) = (/ &
+        & 0.52148e+02_rb,0.52723e+02_rb,0.53431e+02_rb,0.54274e+02_rb,0.55252e+02_rb /)
+      kbo(:,25, 4) = (/ &
+        & 0.52259e+02_rb,0.52862e+02_rb,0.53599e+02_rb,0.54471e+02_rb,0.55477e+02_rb /)
+      kbo(:,26, 4) = (/ &
+        & 0.52387e+02_rb,0.53022e+02_rb,0.53790e+02_rb,0.54693e+02_rb,0.55730e+02_rb /)
+      kbo(:,27, 4) = (/ &
+        & 0.52525e+02_rb,0.53191e+02_rb,0.53992e+02_rb,0.54926e+02_rb,0.55995e+02_rb /)
+      kbo(:,28, 4) = (/ &
+        & 0.52672e+02_rb,0.53371e+02_rb,0.54203e+02_rb,0.55170e+02_rb,0.56271e+02_rb /)
+      kbo(:,29, 4) = (/ &
+        & 0.52833e+02_rb,0.53565e+02_rb,0.54430e+02_rb,0.55430e+02_rb,0.56565e+02_rb /)
+      kbo(:,30, 4) = (/ &
+        & 0.53003e+02_rb,0.53768e+02_rb,0.54668e+02_rb,0.55702e+02_rb,0.56870e+02_rb /)
+      kbo(:,31, 4) = (/ &
+        & 0.53186e+02_rb,0.53986e+02_rb,0.54920e+02_rb,0.55988e+02_rb,0.57190e+02_rb /)
+      kbo(:,32, 4) = (/ &
+        & 0.53381e+02_rb,0.54216e+02_rb,0.55184e+02_rb,0.56287e+02_rb,0.57525e+02_rb /)
+      kbo(:,33, 4) = (/ &
+        & 0.53587e+02_rb,0.54457e+02_rb,0.55460e+02_rb,0.56599e+02_rb,0.57871e+02_rb /)
+      kbo(:,34, 4) = (/ &
+        & 0.53773e+02_rb,0.54673e+02_rb,0.55707e+02_rb,0.56876e+02_rb,0.58179e+02_rb /)
+      kbo(:,35, 4) = (/ &
+        & 0.53883e+02_rb,0.54800e+02_rb,0.55852e+02_rb,0.57039e+02_rb,0.58359e+02_rb /)
+      kbo(:,36, 4) = (/ &
+        & 0.53901e+02_rb,0.54822e+02_rb,0.55876e+02_rb,0.57066e+02_rb,0.58389e+02_rb /)
+      kbo(:,37, 4) = (/ &
+        & 0.53791e+02_rb,0.54694e+02_rb,0.55731e+02_rb,0.56903e+02_rb,0.58208e+02_rb /)
+      kbo(:,38, 4) = (/ &
+        & 0.53676e+02_rb,0.54560e+02_rb,0.55578e+02_rb,0.56731e+02_rb,0.58018e+02_rb /)
+      kbo(:,39, 4) = (/ &
+        & 0.53563e+02_rb,0.54429e+02_rb,0.55429e+02_rb,0.56563e+02_rb,0.57832e+02_rb /)
+      kbo(:,40, 4) = (/ &
+        & 0.53375e+02_rb,0.54208e+02_rb,0.55175e+02_rb,0.56277e+02_rb,0.57513e+02_rb /)
+      kbo(:,41, 4) = (/ &
+        & 0.53184e+02_rb,0.53983e+02_rb,0.54916e+02_rb,0.55984e+02_rb,0.57186e+02_rb /)
+      kbo(:,42, 4) = (/ &
+        & 0.53001e+02_rb,0.53766e+02_rb,0.54665e+02_rb,0.55699e+02_rb,0.56866e+02_rb /)
+      kbo(:,43, 4) = (/ &
+        & 0.52790e+02_rb,0.53513e+02_rb,0.54370e+02_rb,0.55362e+02_rb,0.56488e+02_rb /)
+      kbo(:,44, 4) = (/ &
+        & 0.52577e+02_rb,0.53254e+02_rb,0.54066e+02_rb,0.55012e+02_rb,0.56093e+02_rb /)
+      kbo(:,45, 4) = (/ &
+        & 0.52379e+02_rb,0.53011e+02_rb,0.53777e+02_rb,0.54678e+02_rb,0.55713e+02_rb /)
+      kbo(:,46, 4) = (/ &
+        & 0.52184e+02_rb,0.52768e+02_rb,0.53486e+02_rb,0.54339e+02_rb,0.55326e+02_rb /)
+      kbo(:,47, 4) = (/ &
+        & 0.51987e+02_rb,0.52517e+02_rb,0.53182e+02_rb,0.53980e+02_rb,0.54913e+02_rb /)
+      kbo(:,48, 4) = (/ &
+        & 0.51812e+02_rb,0.52288e+02_rb,0.52898e+02_rb,0.53643e+02_rb,0.54522e+02_rb /)
+      kbo(:,49, 4) = (/ &
+        & 0.51659e+02_rb,0.52081e+02_rb,0.52637e+02_rb,0.53327e+02_rb,0.54152e+02_rb /)
+      kbo(:,50, 4) = (/ &
+        & 0.51535e+02_rb,0.51906e+02_rb,0.52412e+02_rb,0.53052e+02_rb,0.53826e+02_rb /)
+      kbo(:,51, 4) = (/ &
+        & 0.51433e+02_rb,0.51755e+02_rb,0.52211e+02_rb,0.52802e+02_rb,0.53527e+02_rb /)
+      kbo(:,52, 4) = (/ &
+        & 0.51349e+02_rb,0.51622e+02_rb,0.52029e+02_rb,0.52571e+02_rb,0.53247e+02_rb /)
+      kbo(:,53, 4) = (/ &
+        & 0.51285e+02_rb,0.51507e+02_rb,0.51865e+02_rb,0.52358e+02_rb,0.52985e+02_rb /)
+      kbo(:,54, 4) = (/ &
+        & 0.51240e+02_rb,0.51417e+02_rb,0.51730e+02_rb,0.52178e+02_rb,0.52760e+02_rb /)
+      kbo(:,55, 4) = (/ &
+        & 0.51211e+02_rb,0.51346e+02_rb,0.51615e+02_rb,0.52020e+02_rb,0.52559e+02_rb /)
+      kbo(:,56, 4) = (/ &
+        & 0.51194e+02_rb,0.51288e+02_rb,0.51514e+02_rb,0.51875e+02_rb,0.52371e+02_rb /)
+      kbo(:,57, 4) = (/ &
+        & 0.51190e+02_rb,0.51245e+02_rb,0.51426e+02_rb,0.51746e+02_rb,0.52198e+02_rb /)
+      kbo(:,58, 4) = (/ &
+        & 0.51200e+02_rb,0.51216e+02_rb,0.51357e+02_rb,0.51635e+02_rb,0.52046e+02_rb /)
+      kbo(:,59, 4) = (/ &
+        & 0.51207e+02_rb,0.51207e+02_rb,0.51333e+02_rb,0.51594e+02_rb,0.51989e+02_rb /)
+      kbo(:,13, 5) = (/ &
+        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)
+      kbo(:,14, 5) = (/ &
+        & 0.17061e+03_rb,0.17179e+03_rb,0.17309e+03_rb,0.17451e+03_rb,0.17604e+03_rb /)
+      kbo(:,15, 5) = (/ &
+        & 0.17073e+03_rb,0.17192e+03_rb,0.17323e+03_rb,0.17466e+03_rb,0.17621e+03_rb /)
+      kbo(:,16, 5) = (/ &
+        & 0.17085e+03_rb,0.17205e+03_rb,0.17338e+03_rb,0.17482e+03_rb,0.17638e+03_rb /)
+      kbo(:,17, 5) = (/ &
+        & 0.17097e+03_rb,0.17218e+03_rb,0.17352e+03_rb,0.17497e+03_rb,0.17655e+03_rb /)
+      kbo(:,18, 5) = (/ &
+        & 0.17109e+03_rb,0.17232e+03_rb,0.17366e+03_rb,0.17513e+03_rb,0.17671e+03_rb /)
+      kbo(:,19, 5) = (/ &
+        & 0.17121e+03_rb,0.17245e+03_rb,0.17381e+03_rb,0.17528e+03_rb,0.17688e+03_rb /)
+      kbo(:,20, 5) = (/ &
+        & 0.17134e+03_rb,0.17260e+03_rb,0.17397e+03_rb,0.17547e+03_rb,0.17708e+03_rb /)
+      kbo(:,21, 5) = (/ &
+        & 0.17149e+03_rb,0.17276e+03_rb,0.17415e+03_rb,0.17565e+03_rb,0.17728e+03_rb /)
+      kbo(:,22, 5) = (/ &
+        & 0.17172e+03_rb,0.17301e+03_rb,0.17442e+03_rb,0.17594e+03_rb,0.17759e+03_rb /)
+      kbo(:,23, 5) = (/ &
+        & 0.17195e+03_rb,0.17327e+03_rb,0.17470e+03_rb,0.17625e+03_rb,0.17792e+03_rb /)
+      kbo(:,24, 5) = (/ &
+        & 0.17221e+03_rb,0.17355e+03_rb,0.17500e+03_rb,0.17658e+03_rb,0.17827e+03_rb /)
+      kbo(:,25, 5) = (/ &
+        & 0.17248e+03_rb,0.17385e+03_rb,0.17533e+03_rb,0.17693e+03_rb,0.17865e+03_rb /)
+      kbo(:,26, 5) = (/ &
+        & 0.17279e+03_rb,0.17418e+03_rb,0.17569e+03_rb,0.17732e+03_rb,0.17906e+03_rb /)
+      kbo(:,27, 5) = (/ &
+        & 0.17311e+03_rb,0.17453e+03_rb,0.17606e+03_rb,0.17772e+03_rb,0.17949e+03_rb /)
+      kbo(:,28, 5) = (/ &
+        & 0.17344e+03_rb,0.17488e+03_rb,0.17645e+03_rb,0.17813e+03_rb,0.17994e+03_rb /)
+      kbo(:,29, 5) = (/ &
+        & 0.17379e+03_rb,0.17526e+03_rb,0.17686e+03_rb,0.17857e+03_rb,0.18040e+03_rb /)
+      kbo(:,30, 5) = (/ &
+        & 0.17414e+03_rb,0.17565e+03_rb,0.17727e+03_rb,0.17902e+03_rb,0.18088e+03_rb /)
+      kbo(:,31, 5) = (/ &
+        & 0.17452e+03_rb,0.17605e+03_rb,0.17771e+03_rb,0.17948e+03_rb,0.18137e+03_rb /)
+      kbo(:,32, 5) = (/ &
+        & 0.17491e+03_rb,0.17647e+03_rb,0.17816e+03_rb,0.17996e+03_rb,0.18188e+03_rb /)
+      kbo(:,33, 5) = (/ &
+        & 0.17531e+03_rb,0.17690e+03_rb,0.17862e+03_rb,0.18045e+03_rb,0.18241e+03_rb /)
+      kbo(:,34, 5) = (/ &
+        & 0.17566e+03_rb,0.17728e+03_rb,0.17903e+03_rb,0.18089e+03_rb,0.18287e+03_rb /)
+      kbo(:,35, 5) = (/ &
+        & 0.17586e+03_rb,0.17750e+03_rb,0.17926e+03_rb,0.18114e+03_rb,0.18313e+03_rb /)
+      kbo(:,36, 5) = (/ &
+        & 0.17590e+03_rb,0.17754e+03_rb,0.17930e+03_rb,0.18118e+03_rb,0.18318e+03_rb /)
+      kbo(:,37, 5) = (/ &
+        & 0.17569e+03_rb,0.17732e+03_rb,0.17906e+03_rb,0.18093e+03_rb,0.18291e+03_rb /)
+      kbo(:,38, 5) = (/ &
+        & 0.17547e+03_rb,0.17708e+03_rb,0.17881e+03_rb,0.18066e+03_rb,0.18263e+03_rb /)
+      kbo(:,39, 5) = (/ &
+        & 0.17526e+03_rb,0.17685e+03_rb,0.17857e+03_rb,0.18040e+03_rb,0.18235e+03_rb /)
+      kbo(:,40, 5) = (/ &
+        & 0.17489e+03_rb,0.17646e+03_rb,0.17814e+03_rb,0.17995e+03_rb,0.18187e+03_rb /)
+      kbo(:,41, 5) = (/ &
+        & 0.17451e+03_rb,0.17605e+03_rb,0.17770e+03_rb,0.17948e+03_rb,0.18137e+03_rb /)
+      kbo(:,42, 5) = (/ &
+        & 0.17414e+03_rb,0.17565e+03_rb,0.17727e+03_rb,0.17901e+03_rb,0.18087e+03_rb /)
+      kbo(:,43, 5) = (/ &
+        & 0.17369e+03_rb,0.17516e+03_rb,0.17675e+03_rb,0.17846e+03_rb,0.18028e+03_rb /)
+      kbo(:,44, 5) = (/ &
+        & 0.17323e+03_rb,0.17465e+03_rb,0.17620e+03_rb,0.17787e+03_rb,0.17965e+03_rb /)
+      kbo(:,45, 5) = (/ &
+        & 0.17277e+03_rb,0.17416e+03_rb,0.17567e+03_rb,0.17729e+03_rb,0.17904e+03_rb /)
+      kbo(:,46, 5) = (/ &
+        & 0.17230e+03_rb,0.17365e+03_rb,0.17511e+03_rb,0.17669e+03_rb,0.17840e+03_rb /)
+      kbo(:,47, 5) = (/ &
+        & 0.17179e+03_rb,0.17309e+03_rb,0.17451e+03_rb,0.17604e+03_rb,0.17770e+03_rb /)
+      kbo(:,48, 5) = (/ &
+        & 0.17130e+03_rb,0.17255e+03_rb,0.17392e+03_rb,0.17541e+03_rb,0.17702e+03_rb /)
+      kbo(:,49, 5) = (/ &
+        & 0.17083e+03_rb,0.17204e+03_rb,0.17336e+03_rb,0.17480e+03_rb,0.17636e+03_rb /)
+      kbo(:,50, 5) = (/ &
+        & 0.17041e+03_rb,0.17157e+03_rb,0.17285e+03_rb,0.17424e+03_rb,0.17576e+03_rb /)
+      kbo(:,51, 5) = (/ &
+        & 0.17002e+03_rb,0.17113e+03_rb,0.17237e+03_rb,0.17372e+03_rb,0.17519e+03_rb /)
+      kbo(:,52, 5) = (/ &
+        & 0.16964e+03_rb,0.17071e+03_rb,0.17190e+03_rb,0.17321e+03_rb,0.17464e+03_rb /)
+      kbo(:,53, 5) = (/ &
+        & 0.16927e+03_rb,0.17031e+03_rb,0.17145e+03_rb,0.17272e+03_rb,0.17411e+03_rb /)
+      kbo(:,54, 5) = (/ &
+        & 0.16896e+03_rb,0.16995e+03_rb,0.17106e+03_rb,0.17228e+03_rb,0.17363e+03_rb /)
+      kbo(:,55, 5) = (/ &
+        & 0.16866e+03_rb,0.16962e+03_rb,0.17069e+03_rb,0.17188e+03_rb,0.17318e+03_rb /)
+      kbo(:,56, 5) = (/ &
+        & 0.16839e+03_rb,0.16930e+03_rb,0.17033e+03_rb,0.17148e+03_rb,0.17275e+03_rb /)
+      kbo(:,57, 5) = (/ &
+        & 0.16812e+03_rb,0.16899e+03_rb,0.16999e+03_rb,0.17110e+03_rb,0.17233e+03_rb /)
+      kbo(:,58, 5) = (/ &
+        & 0.16788e+03_rb,0.16871e+03_rb,0.16968e+03_rb,0.17075e+03_rb,0.17195e+03_rb /)
+      kbo(:,59, 5) = (/ &
+        & 0.16779e+03_rb,0.16861e+03_rb,0.16955e+03_rb,0.17062e+03_rb,0.17180e+03_rb /)
+      kbo(:,13, 6) = (/ &
+        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)
+      kbo(:,14, 6) = (/ &
+        & 0.38148e+03_rb,0.38431e+03_rb,0.38691e+03_rb,0.38929e+03_rb,0.39144e+03_rb /)
+      kbo(:,15, 6) = (/ &
+        & 0.38178e+03_rb,0.38458e+03_rb,0.38716e+03_rb,0.38951e+03_rb,0.39164e+03_rb /)
+      kbo(:,16, 6) = (/ &
+        & 0.38209e+03_rb,0.38487e+03_rb,0.38742e+03_rb,0.38975e+03_rb,0.39186e+03_rb /)
+      kbo(:,17, 6) = (/ &
+        & 0.38239e+03_rb,0.38514e+03_rb,0.38767e+03_rb,0.38998e+03_rb,0.39206e+03_rb /)
+      kbo(:,18, 6) = (/ &
+        & 0.38268e+03_rb,0.38541e+03_rb,0.38792e+03_rb,0.39020e+03_rb,0.39226e+03_rb /)
+      kbo(:,19, 6) = (/ &
+        & 0.38297e+03_rb,0.38568e+03_rb,0.38816e+03_rb,0.39042e+03_rb,0.39246e+03_rb /)
+      kbo(:,20, 6) = (/ &
+        & 0.38330e+03_rb,0.38598e+03_rb,0.38844e+03_rb,0.39067e+03_rb,0.39268e+03_rb /)
+      kbo(:,21, 6) = (/ &
+        & 0.38363e+03_rb,0.38629e+03_rb,0.38872e+03_rb,0.39092e+03_rb,0.39291e+03_rb /)
+      kbo(:,22, 6) = (/ &
+        & 0.38414e+03_rb,0.38675e+03_rb,0.38914e+03_rb,0.39131e+03_rb,0.39325e+03_rb /)
+      kbo(:,23, 6) = (/ &
+        & 0.38466e+03_rb,0.38723e+03_rb,0.38958e+03_rb,0.39170e+03_rb,0.39360e+03_rb /)
+      kbo(:,24, 6) = (/ &
+        & 0.38520e+03_rb,0.38772e+03_rb,0.39002e+03_rb,0.39210e+03_rb,0.39395e+03_rb /)
+      kbo(:,25, 6) = (/ &
+        & 0.38575e+03_rb,0.38823e+03_rb,0.39048e+03_rb,0.39251e+03_rb,0.39432e+03_rb /)
+      kbo(:,26, 6) = (/ &
+        & 0.38635e+03_rb,0.38877e+03_rb,0.39098e+03_rb,0.39295e+03_rb,0.39470e+03_rb /)
+      kbo(:,27, 6) = (/ &
+        & 0.38694e+03_rb,0.38932e+03_rb,0.39146e+03_rb,0.39339e+03_rb,0.39509e+03_rb /)
+      kbo(:,28, 6) = (/ &
+        & 0.38753e+03_rb,0.38985e+03_rb,0.39194e+03_rb,0.39381e+03_rb,0.39546e+03_rb /)
+      kbo(:,29, 6) = (/ &
+        & 0.38813e+03_rb,0.39039e+03_rb,0.39243e+03_rb,0.39424e+03_rb,0.39583e+03_rb /)
+      kbo(:,30, 6) = (/ &
+        & 0.38871e+03_rb,0.39092e+03_rb,0.39290e+03_rb,0.39466e+03_rb,0.39620e+03_rb /)
+      kbo(:,31, 6) = (/ &
+        & 0.38930e+03_rb,0.39145e+03_rb,0.39338e+03_rb,0.39508e+03_rb,0.39655e+03_rb /)
+      kbo(:,32, 6) = (/ &
+        & 0.38988e+03_rb,0.39197e+03_rb,0.39384e+03_rb,0.39548e+03_rb,0.39690e+03_rb /)
+      kbo(:,33, 6) = (/ &
+        & 0.39045e+03_rb,0.39248e+03_rb,0.39429e+03_rb,0.39587e+03_rb,0.39723e+03_rb /)
+      kbo(:,34, 6) = (/ &
+        & 0.39093e+03_rb,0.39291e+03_rb,0.39467e+03_rb,0.39620e+03_rb,0.39751e+03_rb /)
+      kbo(:,35, 6) = (/ &
+        & 0.39120e+03_rb,0.39316e+03_rb,0.39488e+03_rb,0.39639e+03_rb,0.39766e+03_rb /)
+      kbo(:,36, 6) = (/ &
+        & 0.39125e+03_rb,0.39320e+03_rb,0.39492e+03_rb,0.39642e+03_rb,0.39769e+03_rb /)
+      kbo(:,37, 6) = (/ &
+        & 0.39098e+03_rb,0.39295e+03_rb,0.39471e+03_rb,0.39623e+03_rb,0.39754e+03_rb /)
+      kbo(:,38, 6) = (/ &
+        & 0.39068e+03_rb,0.39269e+03_rb,0.39447e+03_rb,0.39603e+03_rb,0.39737e+03_rb /)
+      kbo(:,39, 6) = (/ &
+        & 0.39039e+03_rb,0.39243e+03_rb,0.39424e+03_rb,0.39583e+03_rb,0.39720e+03_rb /)
+      kbo(:,40, 6) = (/ &
+        & 0.38986e+03_rb,0.39196e+03_rb,0.39382e+03_rb,0.39547e+03_rb,0.39689e+03_rb /)
+      kbo(:,41, 6) = (/ &
+        & 0.38929e+03_rb,0.39144e+03_rb,0.39337e+03_rb,0.39507e+03_rb,0.39655e+03_rb /)
+      kbo(:,42, 6) = (/ &
+        & 0.38871e+03_rb,0.39092e+03_rb,0.39290e+03_rb,0.39466e+03_rb,0.39619e+03_rb /)
+      kbo(:,43, 6) = (/ &
+        & 0.38797e+03_rb,0.39025e+03_rb,0.39230e+03_rb,0.39413e+03_rb,0.39574e+03_rb /)
+      kbo(:,44, 6) = (/ &
+        & 0.38715e+03_rb,0.38951e+03_rb,0.39164e+03_rb,0.39354e+03_rb,0.39522e+03_rb /)
+      kbo(:,45, 6) = (/ &
+        & 0.38631e+03_rb,0.38874e+03_rb,0.39094e+03_rb,0.39292e+03_rb,0.39468e+03_rb /)
+      kbo(:,46, 6) = (/ &
+        & 0.38538e+03_rb,0.38789e+03_rb,0.39018e+03_rb,0.39224e+03_rb,0.39407e+03_rb /)
+      kbo(:,47, 6) = (/ &
+        & 0.38431e+03_rb,0.38691e+03_rb,0.38929e+03_rb,0.39144e+03_rb,0.39336e+03_rb /)
+      kbo(:,48, 6) = (/ &
+        & 0.38320e+03_rb,0.38589e+03_rb,0.38836e+03_rb,0.39060e+03_rb,0.39262e+03_rb /)
+      kbo(:,49, 6) = (/ &
+        & 0.38206e+03_rb,0.38484e+03_rb,0.38739e+03_rb,0.38972e+03_rb,0.39183e+03_rb /)
+      kbo(:,50, 6) = (/ &
+        & 0.38095e+03_rb,0.38382e+03_rb,0.38646e+03_rb,0.38887e+03_rb,0.39106e+03_rb /)
+      kbo(:,51, 6) = (/ &
+        & 0.37985e+03_rb,0.38279e+03_rb,0.38552e+03_rb,0.38802e+03_rb,0.39029e+03_rb /)
+      kbo(:,52, 6) = (/ &
+        & 0.37873e+03_rb,0.38175e+03_rb,0.38455e+03_rb,0.38713e+03_rb,0.38949e+03_rb /)
+      kbo(:,53, 6) = (/ &
+        & 0.37762e+03_rb,0.38067e+03_rb,0.38355e+03_rb,0.38621e+03_rb,0.38865e+03_rb /)
+      kbo(:,54, 6) = (/ &
+        & 0.37661e+03_rb,0.37965e+03_rb,0.38261e+03_rb,0.38535e+03_rb,0.38786e+03_rb /)
+      kbo(:,55, 6) = (/ &
+        & 0.37559e+03_rb,0.37867e+03_rb,0.38169e+03_rb,0.38450e+03_rb,0.38708e+03_rb /)
+      kbo(:,56, 6) = (/ &
+        & 0.37459e+03_rb,0.37768e+03_rb,0.38074e+03_rb,0.38362e+03_rb,0.38628e+03_rb /)
+      kbo(:,57, 6) = (/ &
+        & 0.37353e+03_rb,0.37673e+03_rb,0.37977e+03_rb,0.38272e+03_rb,0.38545e+03_rb /)
+      kbo(:,58, 6) = (/ &
+        & 0.37251e+03_rb,0.37577e+03_rb,0.37885e+03_rb,0.38185e+03_rb,0.38465e+03_rb /)
+      kbo(:,59, 6) = (/ &
+        & 0.37212e+03_rb,0.37539e+03_rb,0.37847e+03_rb,0.38150e+03_rb,0.38432e+03_rb /)
+      kbo(:,13, 7) = (/ &
+        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)
+      kbo(:,14, 7) = (/ &
+        & 0.62586e+03_rb,0.62628e+03_rb,0.62699e+03_rb,0.62797e+03_rb,0.62921e+03_rb /)
+      kbo(:,15, 7) = (/ &
+        & 0.62589e+03_rb,0.62634e+03_rb,0.62708e+03_rb,0.62809e+03_rb,0.62935e+03_rb /)
+      kbo(:,16, 7) = (/ &
+        & 0.62593e+03_rb,0.62640e+03_rb,0.62717e+03_rb,0.62821e+03_rb,0.62950e+03_rb /)
+      kbo(:,17, 7) = (/ &
+        & 0.62597e+03_rb,0.62647e+03_rb,0.62727e+03_rb,0.62833e+03_rb,0.62965e+03_rb /)
+      kbo(:,18, 7) = (/ &
+        & 0.62601e+03_rb,0.62654e+03_rb,0.62737e+03_rb,0.62846e+03_rb,0.62980e+03_rb /)
+      kbo(:,19, 7) = (/ &
+        & 0.62605e+03_rb,0.62661e+03_rb,0.62746e+03_rb,0.62858e+03_rb,0.62995e+03_rb /)
+      kbo(:,20, 7) = (/ &
+        & 0.62610e+03_rb,0.62670e+03_rb,0.62758e+03_rb,0.62873e+03_rb,0.63012e+03_rb /)
+      kbo(:,21, 7) = (/ &
+        & 0.62615e+03_rb,0.62679e+03_rb,0.62770e+03_rb,0.62888e+03_rb,0.63031e+03_rb /)
+      kbo(:,22, 7) = (/ &
+        & 0.62625e+03_rb,0.62694e+03_rb,0.62790e+03_rb,0.62913e+03_rb,0.63060e+03_rb /)
+      kbo(:,23, 7) = (/ &
+        & 0.62636e+03_rb,0.62710e+03_rb,0.62812e+03_rb,0.62939e+03_rb,0.63091e+03_rb /)
+      kbo(:,24, 7) = (/ &
+        & 0.62648e+03_rb,0.62729e+03_rb,0.62835e+03_rb,0.62968e+03_rb,0.63125e+03_rb /)
+      kbo(:,25, 7) = (/ &
+        & 0.62663e+03_rb,0.62749e+03_rb,0.62861e+03_rb,0.62999e+03_rb,0.63162e+03_rb /)
+      kbo(:,26, 7) = (/ &
+        & 0.62681e+03_rb,0.62773e+03_rb,0.62891e+03_rb,0.63035e+03_rb,0.63203e+03_rb /)
+      kbo(:,27, 7) = (/ &
+        & 0.62700e+03_rb,0.62799e+03_rb,0.62923e+03_rb,0.63072e+03_rb,0.63247e+03_rb /)
+      kbo(:,28, 7) = (/ &
+        & 0.62721e+03_rb,0.62826e+03_rb,0.62956e+03_rb,0.63112e+03_rb,0.63292e+03_rb /)
+      kbo(:,29, 7) = (/ &
+        & 0.62745e+03_rb,0.62856e+03_rb,0.62993e+03_rb,0.63154e+03_rb,0.63341e+03_rb /)
+      kbo(:,30, 7) = (/ &
+        & 0.62770e+03_rb,0.62888e+03_rb,0.63031e+03_rb,0.63198e+03_rb,0.63392e+03_rb /)
+      kbo(:,31, 7) = (/ &
+        & 0.62798e+03_rb,0.62922e+03_rb,0.63071e+03_rb,0.63245e+03_rb,0.63446e+03_rb /)
+      kbo(:,32, 7) = (/ &
+        & 0.62828e+03_rb,0.62958e+03_rb,0.63114e+03_rb,0.63295e+03_rb,0.63503e+03_rb /)
+      kbo(:,33, 7) = (/ &
+        & 0.62860e+03_rb,0.62997e+03_rb,0.63159e+03_rb,0.63347e+03_rb,0.63562e+03_rb /)
+      kbo(:,34, 7) = (/ &
+        & 0.62889e+03_rb,0.63031e+03_rb,0.63199e+03_rb,0.63393e+03_rb,0.63614e+03_rb /)
+      kbo(:,35, 7) = (/ &
+        & 0.62906e+03_rb,0.63052e+03_rb,0.63223e+03_rb,0.63421e+03_rb,0.63644e+03_rb /)
+      kbo(:,36, 7) = (/ &
+        & 0.62909e+03_rb,0.63055e+03_rb,0.63227e+03_rb,0.63425e+03_rb,0.63649e+03_rb /)
+      kbo(:,37, 7) = (/ &
+        & 0.62891e+03_rb,0.63035e+03_rb,0.63203e+03_rb,0.63397e+03_rb,0.63619e+03_rb /)
+      kbo(:,38, 7) = (/ &
+        & 0.62873e+03_rb,0.63013e+03_rb,0.63178e+03_rb,0.63369e+03_rb,0.63586e+03_rb /)
+      kbo(:,39, 7) = (/ &
+        & 0.62856e+03_rb,0.62992e+03_rb,0.63154e+03_rb,0.63341e+03_rb,0.63555e+03_rb /)
+      kbo(:,40, 7) = (/ &
+        & 0.62827e+03_rb,0.62957e+03_rb,0.63113e+03_rb,0.63293e+03_rb,0.63501e+03_rb /)
+      kbo(:,41, 7) = (/ &
+        & 0.62798e+03_rb,0.62922e+03_rb,0.63071e+03_rb,0.63245e+03_rb,0.63445e+03_rb /)
+      kbo(:,42, 7) = (/ &
+        & 0.62770e+03_rb,0.62887e+03_rb,0.63030e+03_rb,0.63198e+03_rb,0.63391e+03_rb /)
+      kbo(:,43, 7) = (/ &
+        & 0.62739e+03_rb,0.62848e+03_rb,0.62983e+03_rb,0.63143e+03_rb,0.63328e+03_rb /)
+      kbo(:,44, 7) = (/ &
+        & 0.62708e+03_rb,0.62808e+03_rb,0.62935e+03_rb,0.63086e+03_rb,0.63263e+03_rb /)
+      kbo(:,45, 7) = (/ &
+        & 0.62679e+03_rb,0.62771e+03_rb,0.62889e+03_rb,0.63032e+03_rb,0.63200e+03_rb /)
+      kbo(:,46, 7) = (/ &
+        & 0.62653e+03_rb,0.62735e+03_rb,0.62844e+03_rb,0.62978e+03_rb,0.63137e+03_rb /)
+      kbo(:,47, 7) = (/ &
+        & 0.62629e+03_rb,0.62699e+03_rb,0.62797e+03_rb,0.62921e+03_rb,0.63070e+03_rb /)
+      kbo(:,48, 7) = (/ &
+        & 0.62608e+03_rb,0.62667e+03_rb,0.62755e+03_rb,0.62868e+03_rb,0.63007e+03_rb /)
+      kbo(:,49, 7) = (/ &
+        & 0.62592e+03_rb,0.62640e+03_rb,0.62716e+03_rb,0.62820e+03_rb,0.62948e+03_rb /)
+      kbo(:,50, 7) = (/ &
+        & 0.62580e+03_rb,0.62619e+03_rb,0.62684e+03_rb,0.62778e+03_rb,0.62897e+03_rb /)
+      kbo(:,51, 7) = (/ &
+        & 0.62580e+03_rb,0.62602e+03_rb,0.62657e+03_rb,0.62741e+03_rb,0.62850e+03_rb /)
+      kbo(:,52, 7) = (/ &
+        & 0.62578e+03_rb,0.62589e+03_rb,0.62633e+03_rb,0.62707e+03_rb,0.62807e+03_rb /)
+      kbo(:,53, 7) = (/ &
+        & 0.62574e+03_rb,0.62578e+03_rb,0.62614e+03_rb,0.62677e+03_rb,0.62768e+03_rb /)
+      kbo(:,54, 7) = (/ &
+        & 0.62576e+03_rb,0.62580e+03_rb,0.62600e+03_rb,0.62652e+03_rb,0.62734e+03_rb /)
+      kbo(:,55, 7) = (/ &
+        & 0.62585e+03_rb,0.62578e+03_rb,0.62588e+03_rb,0.62632e+03_rb,0.62705e+03_rb /)
+      kbo(:,56, 7) = (/ &
+        & 0.62587e+03_rb,0.62576e+03_rb,0.62579e+03_rb,0.62615e+03_rb,0.62678e+03_rb /)
+      kbo(:,57, 7) = (/ &
+        & 0.62591e+03_rb,0.62574e+03_rb,0.62580e+03_rb,0.62601e+03_rb,0.62655e+03_rb /)
+      kbo(:,58, 7) = (/ &
+        & 0.62591e+03_rb,0.62583e+03_rb,0.62578e+03_rb,0.62590e+03_rb,0.62636e+03_rb /)
+      kbo(:,59, 7) = (/ &
+        & 0.62590e+03_rb,0.62586e+03_rb,0.62578e+03_rb,0.62586e+03_rb,0.62628e+03_rb /)
+      kbo(:,13, 8) = (/ &
+        & 0.81821e+03_rb,0.81877e+03_rb,0.81935e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)
+      kbo(:,14, 8) = (/ &
+        & 0.81826e+03_rb,0.81882e+03_rb,0.81939e+03_rb,0.82006e+03_rb,0.82081e+03_rb /)
+      kbo(:,15, 8) = (/ &
+        & 0.81831e+03_rb,0.81888e+03_rb,0.81946e+03_rb,0.82012e+03_rb,0.82089e+03_rb /)
+      kbo(:,16, 8) = (/ &
+        & 0.81836e+03_rb,0.81895e+03_rb,0.81952e+03_rb,0.82021e+03_rb,0.82098e+03_rb /)
+      kbo(:,17, 8) = (/ &
+        & 0.81842e+03_rb,0.81901e+03_rb,0.81959e+03_rb,0.82028e+03_rb,0.82106e+03_rb /)
+      kbo(:,18, 8) = (/ &
+        & 0.81847e+03_rb,0.81907e+03_rb,0.81965e+03_rb,0.82036e+03_rb,0.82116e+03_rb /)
+      kbo(:,19, 8) = (/ &
+        & 0.81853e+03_rb,0.81913e+03_rb,0.81972e+03_rb,0.82043e+03_rb,0.82123e+03_rb /)
+      kbo(:,20, 8) = (/ &
+        & 0.81860e+03_rb,0.81919e+03_rb,0.81980e+03_rb,0.82052e+03_rb,0.82133e+03_rb /)
+      kbo(:,21, 8) = (/ &
+        & 0.81868e+03_rb,0.81925e+03_rb,0.81988e+03_rb,0.82061e+03_rb,0.82143e+03_rb /)
+      kbo(:,22, 8) = (/ &
+        & 0.81879e+03_rb,0.81936e+03_rb,0.82001e+03_rb,0.82076e+03_rb,0.82160e+03_rb /)
+      kbo(:,23, 8) = (/ &
+        & 0.81889e+03_rb,0.81947e+03_rb,0.82015e+03_rb,0.82091e+03_rb,0.82177e+03_rb /)
+      kbo(:,24, 8) = (/ &
+        & 0.81902e+03_rb,0.81960e+03_rb,0.82030e+03_rb,0.82108e+03_rb,0.82195e+03_rb /)
+      kbo(:,25, 8) = (/ &
+        & 0.81914e+03_rb,0.81974e+03_rb,0.82046e+03_rb,0.82126e+03_rb,0.82214e+03_rb /)
+      kbo(:,26, 8) = (/ &
+        & 0.81927e+03_rb,0.81990e+03_rb,0.82063e+03_rb,0.82145e+03_rb,0.82236e+03_rb /)
+      kbo(:,27, 8) = (/ &
+        & 0.81941e+03_rb,0.82006e+03_rb,0.82082e+03_rb,0.82166e+03_rb,0.82258e+03_rb /)
+      kbo(:,28, 8) = (/ &
+        & 0.81957e+03_rb,0.82024e+03_rb,0.82101e+03_rb,0.82188e+03_rb,0.82281e+03_rb /)
+      kbo(:,29, 8) = (/ &
+        & 0.81971e+03_rb,0.82042e+03_rb,0.82122e+03_rb,0.82210e+03_rb,0.82305e+03_rb /)
+      kbo(:,30, 8) = (/ &
+        & 0.81988e+03_rb,0.82061e+03_rb,0.82143e+03_rb,0.82233e+03_rb,0.82330e+03_rb /)
+      kbo(:,31, 8) = (/ &
+        & 0.82006e+03_rb,0.82081e+03_rb,0.82166e+03_rb,0.82258e+03_rb,0.82355e+03_rb /)
+      kbo(:,32, 8) = (/ &
+        & 0.82025e+03_rb,0.82103e+03_rb,0.82189e+03_rb,0.82283e+03_rb,0.82380e+03_rb /)
+      kbo(:,33, 8) = (/ &
+        & 0.82044e+03_rb,0.82124e+03_rb,0.82213e+03_rb,0.82308e+03_rb,0.82408e+03_rb /)
+      kbo(:,34, 8) = (/ &
+        & 0.82062e+03_rb,0.82144e+03_rb,0.82234e+03_rb,0.82330e+03_rb,0.82432e+03_rb /)
+      kbo(:,35, 8) = (/ &
+        & 0.82072e+03_rb,0.82155e+03_rb,0.82246e+03_rb,0.82342e+03_rb,0.82446e+03_rb /)
+      kbo(:,36, 8) = (/ &
+        & 0.82074e+03_rb,0.82157e+03_rb,0.82248e+03_rb,0.82345e+03_rb,0.82448e+03_rb /)
+      kbo(:,37, 8) = (/ &
+        & 0.82063e+03_rb,0.82146e+03_rb,0.82236e+03_rb,0.82332e+03_rb,0.82434e+03_rb /)
+      kbo(:,38, 8) = (/ &
+        & 0.82053e+03_rb,0.82134e+03_rb,0.82223e+03_rb,0.82319e+03_rb,0.82419e+03_rb /)
+      kbo(:,39, 8) = (/ &
+        & 0.82042e+03_rb,0.82122e+03_rb,0.82210e+03_rb,0.82305e+03_rb,0.82405e+03_rb /)
+      kbo(:,40, 8) = (/ &
+        & 0.82024e+03_rb,0.82102e+03_rb,0.82188e+03_rb,0.82282e+03_rb,0.82380e+03_rb /)
+      kbo(:,41, 8) = (/ &
+        & 0.82006e+03_rb,0.82081e+03_rb,0.82165e+03_rb,0.82257e+03_rb,0.82354e+03_rb /)
+      kbo(:,42, 8) = (/ &
+        & 0.81988e+03_rb,0.82061e+03_rb,0.82143e+03_rb,0.82233e+03_rb,0.82329e+03_rb /)
+      kbo(:,43, 8) = (/ &
+        & 0.81967e+03_rb,0.82037e+03_rb,0.82117e+03_rb,0.82204e+03_rb,0.82299e+03_rb /)
+      kbo(:,44, 8) = (/ &
+        & 0.81946e+03_rb,0.82013e+03_rb,0.82089e+03_rb,0.82174e+03_rb,0.82267e+03_rb /)
+      kbo(:,45, 8) = (/ &
+        & 0.81926e+03_rb,0.81989e+03_rb,0.82062e+03_rb,0.82144e+03_rb,0.82234e+03_rb /)
+      kbo(:,46, 8) = (/ &
+        & 0.81907e+03_rb,0.81965e+03_rb,0.82034e+03_rb,0.82114e+03_rb,0.82201e+03_rb /)
+      kbo(:,47, 8) = (/ &
+        & 0.81882e+03_rb,0.81939e+03_rb,0.82006e+03_rb,0.82081e+03_rb,0.82165e+03_rb /)
+      kbo(:,48, 8) = (/ &
+        & 0.81858e+03_rb,0.81917e+03_rb,0.81978e+03_rb,0.82050e+03_rb,0.82130e+03_rb /)
+      kbo(:,49, 8) = (/ &
+        & 0.81836e+03_rb,0.81894e+03_rb,0.81953e+03_rb,0.82019e+03_rb,0.82097e+03_rb /)
+      kbo(:,50, 8) = (/ &
+        & 0.81817e+03_rb,0.81871e+03_rb,0.81929e+03_rb,0.81993e+03_rb,0.82067e+03_rb /)
+      kbo(:,51, 8) = (/ &
+        & 0.81790e+03_rb,0.81850e+03_rb,0.81910e+03_rb,0.81967e+03_rb,0.82039e+03_rb /)
+      kbo(:,52, 8) = (/ &
+        & 0.81779e+03_rb,0.81830e+03_rb,0.81888e+03_rb,0.81945e+03_rb,0.82012e+03_rb /)
+      kbo(:,53, 8) = (/ &
+        & 0.81766e+03_rb,0.81812e+03_rb,0.81866e+03_rb,0.81924e+03_rb,0.81986e+03_rb /)
+      kbo(:,54, 8) = (/ &
+        & 0.81744e+03_rb,0.81785e+03_rb,0.81846e+03_rb,0.81906e+03_rb,0.81964e+03_rb /)
+      kbo(:,55, 8) = (/ &
+        & 0.81733e+03_rb,0.81777e+03_rb,0.81829e+03_rb,0.81886e+03_rb,0.81944e+03_rb /)
+      kbo(:,56, 8) = (/ &
+        & 0.81741e+03_rb,0.81767e+03_rb,0.81813e+03_rb,0.81867e+03_rb,0.81925e+03_rb /)
+      kbo(:,57, 8) = (/ &
+        & 0.81785e+03_rb,0.81749e+03_rb,0.81788e+03_rb,0.81848e+03_rb,0.81908e+03_rb /)
+      kbo(:,58, 8) = (/ &
+        & 0.81817e+03_rb,0.81731e+03_rb,0.81779e+03_rb,0.81832e+03_rb,0.81889e+03_rb /)
+      kbo(:,59, 8) = (/ &
+        & 0.81824e+03_rb,0.81736e+03_rb,0.81776e+03_rb,0.81826e+03_rb,0.81883e+03_rb /)
+      kbo(:,13, 9) = (/ &
+        & 0.94133e+03_rb,0.94438e+03_rb,0.94687e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)
+      kbo(:,14, 9) = (/ &
+        & 0.94163e+03_rb,0.94463e+03_rb,0.94708e+03_rb,0.94898e+03_rb,0.95031e+03_rb /)
+      kbo(:,15, 9) = (/ &
+        & 0.94195e+03_rb,0.94490e+03_rb,0.94731e+03_rb,0.94914e+03_rb,0.95042e+03_rb /)
+      kbo(:,16, 9) = (/ &
+        & 0.94229e+03_rb,0.94518e+03_rb,0.94753e+03_rb,0.94930e+03_rb,0.95052e+03_rb /)
+      kbo(:,17, 9) = (/ &
+        & 0.94262e+03_rb,0.94544e+03_rb,0.94774e+03_rb,0.94946e+03_rb,0.95061e+03_rb /)
+      kbo(:,18, 9) = (/ &
+        & 0.94293e+03_rb,0.94570e+03_rb,0.94795e+03_rb,0.94960e+03_rb,0.95069e+03_rb /)
+      kbo(:,19, 9) = (/ &
+        & 0.94323e+03_rb,0.94595e+03_rb,0.94814e+03_rb,0.94974e+03_rb,0.95078e+03_rb /)
+      kbo(:,20, 9) = (/ &
+        & 0.94357e+03_rb,0.94624e+03_rb,0.94835e+03_rb,0.94989e+03_rb,0.95087e+03_rb /)
+      kbo(:,21, 9) = (/ &
+        & 0.94393e+03_rb,0.94654e+03_rb,0.94857e+03_rb,0.95003e+03_rb,0.95096e+03_rb /)
+      kbo(:,22, 9) = (/ &
+        & 0.94445e+03_rb,0.94695e+03_rb,0.94888e+03_rb,0.95025e+03_rb,0.95105e+03_rb /)
+      kbo(:,23, 9) = (/ &
+        & 0.94499e+03_rb,0.94737e+03_rb,0.94919e+03_rb,0.95045e+03_rb,0.95113e+03_rb /)
+      kbo(:,24, 9) = (/ &
+        & 0.94549e+03_rb,0.94778e+03_rb,0.94948e+03_rb,0.95063e+03_rb,0.95120e+03_rb /)
+      kbo(:,25, 9) = (/ &
+        & 0.94602e+03_rb,0.94819e+03_rb,0.94978e+03_rb,0.95082e+03_rb,0.95125e+03_rb /)
+      kbo(:,26, 9) = (/ &
+        & 0.94658e+03_rb,0.94861e+03_rb,0.95006e+03_rb,0.95096e+03_rb,0.95127e+03_rb /)
+      kbo(:,27, 9) = (/ &
+        & 0.94710e+03_rb,0.94900e+03_rb,0.95033e+03_rb,0.95109e+03_rb,0.95126e+03_rb /)
+      kbo(:,28, 9) = (/ &
+        & 0.94759e+03_rb,0.94937e+03_rb,0.95056e+03_rb,0.95118e+03_rb,0.95123e+03_rb /)
+      kbo(:,29, 9) = (/ &
+        & 0.94811e+03_rb,0.94973e+03_rb,0.95077e+03_rb,0.95124e+03_rb,0.95116e+03_rb /)
+      kbo(:,30, 9) = (/ &
+        & 0.94856e+03_rb,0.95003e+03_rb,0.95095e+03_rb,0.95127e+03_rb,0.95105e+03_rb /)
+      kbo(:,31, 9) = (/ &
+        & 0.94901e+03_rb,0.95032e+03_rb,0.95108e+03_rb,0.95127e+03_rb,0.95090e+03_rb /)
+      kbo(:,32, 9) = (/ &
+        & 0.94939e+03_rb,0.95057e+03_rb,0.95118e+03_rb,0.95121e+03_rb,0.95071e+03_rb /)
+      kbo(:,33, 9) = (/ &
+        & 0.94975e+03_rb,0.95079e+03_rb,0.95125e+03_rb,0.95115e+03_rb,0.95050e+03_rb /)
+      kbo(:,34, 9) = (/ &
+        & 0.95004e+03_rb,0.95095e+03_rb,0.95128e+03_rb,0.95105e+03_rb,0.95030e+03_rb /)
+      kbo(:,35, 9) = (/ &
+        & 0.95020e+03_rb,0.95102e+03_rb,0.95127e+03_rb,0.95098e+03_rb,0.95016e+03_rb /)
+      kbo(:,36, 9) = (/ &
+        & 0.95021e+03_rb,0.95103e+03_rb,0.95127e+03_rb,0.95096e+03_rb,0.95023e+03_rb /)
+      kbo(:,37, 9) = (/ &
+        & 0.95006e+03_rb,0.95096e+03_rb,0.95127e+03_rb,0.95104e+03_rb,0.95027e+03_rb /)
+      kbo(:,38, 9) = (/ &
+        & 0.94990e+03_rb,0.95087e+03_rb,0.95126e+03_rb,0.95110e+03_rb,0.95040e+03_rb /)
+      kbo(:,39, 9) = (/ &
+        & 0.94972e+03_rb,0.95077e+03_rb,0.95124e+03_rb,0.95117e+03_rb,0.95053e+03_rb /)
+      kbo(:,40, 9) = (/ &
+        & 0.94939e+03_rb,0.95057e+03_rb,0.95118e+03_rb,0.95123e+03_rb,0.95072e+03_rb /)
+      kbo(:,41, 9) = (/ &
+        & 0.94899e+03_rb,0.95032e+03_rb,0.95108e+03_rb,0.95127e+03_rb,0.95090e+03_rb /)
+      kbo(:,42, 9) = (/ &
+        & 0.94856e+03_rb,0.95004e+03_rb,0.95094e+03_rb,0.95127e+03_rb,0.95105e+03_rb /)
+      kbo(:,43, 9) = (/ &
+        & 0.94799e+03_rb,0.94963e+03_rb,0.95073e+03_rb,0.95123e+03_rb,0.95118e+03_rb /)
+      kbo(:,44, 9) = (/ &
+        & 0.94729e+03_rb,0.94914e+03_rb,0.95041e+03_rb,0.95112e+03_rb,0.95126e+03_rb /)
+      kbo(:,45, 9) = (/ &
+        & 0.94655e+03_rb,0.94858e+03_rb,0.95004e+03_rb,0.95095e+03_rb,0.95127e+03_rb /)
+      kbo(:,46, 9) = (/ &
+        & 0.94568e+03_rb,0.94792e+03_rb,0.94958e+03_rb,0.95070e+03_rb,0.95122e+03_rb /)
+      kbo(:,47, 9) = (/ &
+        & 0.94463e+03_rb,0.94708e+03_rb,0.94898e+03_rb,0.95031e+03_rb,0.95108e+03_rb /)
+      kbo(:,48, 9) = (/ &
+        & 0.94348e+03_rb,0.94616e+03_rb,0.94829e+03_rb,0.94984e+03_rb,0.95084e+03_rb /)
+      kbo(:,49, 9) = (/ &
+        & 0.94226e+03_rb,0.94515e+03_rb,0.94748e+03_rb,0.94928e+03_rb,0.95051e+03_rb /)
+      kbo(:,50, 9) = (/ &
+        & 0.94103e+03_rb,0.94413e+03_rb,0.94669e+03_rb,0.94868e+03_rb,0.95011e+03_rb /)
+      kbo(:,51, 9) = (/ &
+        & 0.93978e+03_rb,0.94307e+03_rb,0.94580e+03_rb,0.94802e+03_rb,0.94965e+03_rb /)
+      kbo(:,52, 9) = (/ &
+        & 0.93828e+03_rb,0.94192e+03_rb,0.94488e+03_rb,0.94728e+03_rb,0.94912e+03_rb /)
+      kbo(:,53, 9) = (/ &
+        & 0.93678e+03_rb,0.94072e+03_rb,0.94388e+03_rb,0.94646e+03_rb,0.94851e+03_rb /)
+      kbo(:,54, 9) = (/ &
+        & 0.93537e+03_rb,0.93955e+03_rb,0.94287e+03_rb,0.94565e+03_rb,0.94789e+03_rb /)
+      kbo(:,55, 9) = (/ &
+        & 0.93380e+03_rb,0.93820e+03_rb,0.94186e+03_rb,0.94483e+03_rb,0.94722e+03_rb /)
+      kbo(:,56, 9) = (/ &
+        & 0.93205e+03_rb,0.93688e+03_rb,0.94080e+03_rb,0.94394e+03_rb,0.94652e+03_rb /)
+      kbo(:,57, 9) = (/ &
+        & 0.92997e+03_rb,0.93554e+03_rb,0.93969e+03_rb,0.94299e+03_rb,0.94574e+03_rb /)
+      kbo(:,58, 9) = (/ &
+        & 0.92808e+03_rb,0.93414e+03_rb,0.93844e+03_rb,0.94204e+03_rb,0.94498e+03_rb /)
+      kbo(:,59, 9) = (/ &
+        & 0.92793e+03_rb,0.93341e+03_rb,0.93792e+03_rb,0.94165e+03_rb,0.94465e+03_rb /)
+      kbo(:,13,10) = (/ &
+        & 0.98036e+03_rb,0.98526e+03_rb,0.98973e+03_rb,0.99279e+03_rb,0.99468e+03_rb /)
+      kbo(:,14,10) = (/ &
+        & 0.98067e+03_rb,0.98568e+03_rb,0.99005e+03_rb,0.99301e+03_rb,0.99477e+03_rb /)
+      kbo(:,15,10) = (/ &
+        & 0.98125e+03_rb,0.98614e+03_rb,0.99040e+03_rb,0.99324e+03_rb,0.99485e+03_rb /)
+      kbo(:,16,10) = (/ &
+        & 0.98185e+03_rb,0.98662e+03_rb,0.99076e+03_rb,0.99348e+03_rb,0.99493e+03_rb /)
+      kbo(:,17,10) = (/ &
+        & 0.98242e+03_rb,0.98721e+03_rb,0.99109e+03_rb,0.99369e+03_rb,0.99498e+03_rb /)
+      kbo(:,18,10) = (/ &
+        & 0.98296e+03_rb,0.98755e+03_rb,0.99141e+03_rb,0.99390e+03_rb,0.99502e+03_rb /)
+      kbo(:,19,10) = (/ &
+        & 0.98350e+03_rb,0.98800e+03_rb,0.99172e+03_rb,0.99408e+03_rb,0.99505e+03_rb /)
+      kbo(:,20,10) = (/ &
+        & 0.98411e+03_rb,0.98852e+03_rb,0.99205e+03_rb,0.99428e+03_rb,0.99507e+03_rb /)
+      kbo(:,21,10) = (/ &
+        & 0.98464e+03_rb,0.98894e+03_rb,0.99238e+03_rb,0.99447e+03_rb,0.99496e+03_rb /)
+      kbo(:,22,10) = (/ &
+        & 0.98547e+03_rb,0.98983e+03_rb,0.99286e+03_rb,0.99470e+03_rb,0.99509e+03_rb /)
+      kbo(:,23,10) = (/ &
+        & 0.98617e+03_rb,0.99062e+03_rb,0.99331e+03_rb,0.99487e+03_rb,0.99508e+03_rb /)
+      kbo(:,24,10) = (/ &
+        & 0.98718e+03_rb,0.99115e+03_rb,0.99373e+03_rb,0.99499e+03_rb,0.99503e+03_rb /)
+      kbo(:,25,10) = (/ &
+        & 0.98813e+03_rb,0.99180e+03_rb,0.99413e+03_rb,0.99494e+03_rb,0.99492e+03_rb /)
+      kbo(:,26,10) = (/ &
+        & 0.98918e+03_rb,0.99244e+03_rb,0.99450e+03_rb,0.99508e+03_rb,0.99475e+03_rb /)
+      kbo(:,27,10) = (/ &
+        & 0.99010e+03_rb,0.99304e+03_rb,0.99478e+03_rb,0.99509e+03_rb,0.99499e+03_rb /)
+      kbo(:,28,10) = (/ &
+        & 0.99090e+03_rb,0.99357e+03_rb,0.99495e+03_rb,0.99505e+03_rb,0.99433e+03_rb /)
+      kbo(:,29,10) = (/ &
+        & 0.99167e+03_rb,0.99393e+03_rb,0.99505e+03_rb,0.99495e+03_rb,0.99385e+03_rb /)
+      kbo(:,30,10) = (/ &
+        & 0.99249e+03_rb,0.99447e+03_rb,0.99508e+03_rb,0.99477e+03_rb,0.99348e+03_rb /)
+      kbo(:,31,10) = (/ &
+        & 0.99290e+03_rb,0.99477e+03_rb,0.99509e+03_rb,0.99452e+03_rb,0.99326e+03_rb /)
+      kbo(:,32,10) = (/ &
+        & 0.99360e+03_rb,0.99496e+03_rb,0.99505e+03_rb,0.99419e+03_rb,0.99287e+03_rb /)
+      kbo(:,33,10) = (/ &
+        & 0.99410e+03_rb,0.99506e+03_rb,0.99493e+03_rb,0.99381e+03_rb,0.99210e+03_rb /)
+      kbo(:,34,10) = (/ &
+        & 0.99447e+03_rb,0.99508e+03_rb,0.99465e+03_rb,0.99347e+03_rb,0.99121e+03_rb /)
+      kbo(:,35,10) = (/ &
+        & 0.99453e+03_rb,0.99509e+03_rb,0.99465e+03_rb,0.99330e+03_rb,0.99083e+03_rb /)
+      kbo(:,36,10) = (/ &
+        & 0.99467e+03_rb,0.99509e+03_rb,0.99463e+03_rb,0.99327e+03_rb,0.98992e+03_rb /)
+      kbo(:,37,10) = (/ &
+        & 0.99451e+03_rb,0.99508e+03_rb,0.99475e+03_rb,0.99344e+03_rb,0.99124e+03_rb /)
+      kbo(:,38,10) = (/ &
+        & 0.99429e+03_rb,0.99507e+03_rb,0.99486e+03_rb,0.99365e+03_rb,0.99174e+03_rb /)
+      kbo(:,39,10) = (/ &
+        & 0.99405e+03_rb,0.99505e+03_rb,0.99495e+03_rb,0.99373e+03_rb,0.99219e+03_rb /)
+      kbo(:,40,10) = (/ &
+        & 0.99347e+03_rb,0.99496e+03_rb,0.99505e+03_rb,0.99420e+03_rb,0.99289e+03_rb /)
+      kbo(:,41,10) = (/ &
+        & 0.99302e+03_rb,0.99477e+03_rb,0.99509e+03_rb,0.99452e+03_rb,0.99315e+03_rb /)
+      kbo(:,42,10) = (/ &
+        & 0.99237e+03_rb,0.99435e+03_rb,0.99508e+03_rb,0.99477e+03_rb,0.99348e+03_rb /)
+      kbo(:,43,10) = (/ &
+        & 0.99148e+03_rb,0.99394e+03_rb,0.99491e+03_rb,0.99498e+03_rb,0.99395e+03_rb /)
+      kbo(:,44,10) = (/ &
+        & 0.99040e+03_rb,0.99324e+03_rb,0.99485e+03_rb,0.99508e+03_rb,0.99453e+03_rb /)
+      kbo(:,45,10) = (/ &
+        & 0.98910e+03_rb,0.99241e+03_rb,0.99449e+03_rb,0.99508e+03_rb,0.99476e+03_rb /)
+      kbo(:,46,10) = (/ &
+        & 0.98735e+03_rb,0.99138e+03_rb,0.99388e+03_rb,0.99490e+03_rb,0.99500e+03_rb /)
+      kbo(:,47,10) = (/ &
+        & 0.98565e+03_rb,0.99006e+03_rb,0.99301e+03_rb,0.99477e+03_rb,0.99509e+03_rb /)
+      kbo(:,48,10) = (/ &
+        & 0.98383e+03_rb,0.98834e+03_rb,0.99196e+03_rb,0.99423e+03_rb,0.99507e+03_rb /)
+      kbo(:,49,10) = (/ &
+        & 0.98174e+03_rb,0.98651e+03_rb,0.99073e+03_rb,0.99346e+03_rb,0.99492e+03_rb /)
+      kbo(:,50,10) = (/ &
+        & 0.97955e+03_rb,0.98480e+03_rb,0.98924e+03_rb,0.99257e+03_rb,0.99470e+03_rb /)
+      kbo(:,51,10) = (/ &
+        & 0.97755e+03_rb,0.98298e+03_rb,0.98767e+03_rb,0.99154e+03_rb,0.99399e+03_rb /)
+      kbo(:,52,10) = (/ &
+        & 0.97554e+03_rb,0.98111e+03_rb,0.98597e+03_rb,0.99036e+03_rb,0.99323e+03_rb /)
+      kbo(:,53,10) = (/ &
+        & 0.97320e+03_rb,0.97892e+03_rb,0.98413e+03_rb,0.98888e+03_rb,0.99232e+03_rb /)
+      kbo(:,54,10) = (/ &
+        & 0.97086e+03_rb,0.97720e+03_rb,0.98263e+03_rb,0.98733e+03_rb,0.99135e+03_rb /)
+      kbo(:,55,10) = (/ &
+        & 0.96881e+03_rb,0.97539e+03_rb,0.98096e+03_rb,0.98583e+03_rb,0.99029e+03_rb /)
+      kbo(:,56,10) = (/ &
+        & 0.96735e+03_rb,0.97336e+03_rb,0.97906e+03_rb,0.98435e+03_rb,0.98900e+03_rb /)
+      kbo(:,57,10) = (/ &
+        & 0.96407e+03_rb,0.97115e+03_rb,0.97740e+03_rb,0.98282e+03_rb,0.98752e+03_rb /)
+      kbo(:,58,10) = (/ &
+        & 0.96154e+03_rb,0.96893e+03_rb,0.97574e+03_rb,0.98129e+03_rb,0.98611e+03_rb /)
+      kbo(:,59,10) = (/ &
+        & 0.95571e+03_rb,0.96861e+03_rb,0.97503e+03_rb,0.98063e+03_rb,0.98557e+03_rb /)
+      kbo(:,13,11) = (/ &
+        & 0.98771e+03_rb,0.99296e+03_rb,0.99655e+03_rb,0.99859e+03_rb,0.99936e+03_rb /)
+      kbo(:,14,11) = (/ &
+        & 0.98850e+03_rb,0.99335e+03_rb,0.99679e+03_rb,0.99871e+03_rb,0.99939e+03_rb /)
+      kbo(:,15,11) = (/ &
+        & 0.98905e+03_rb,0.99377e+03_rb,0.99705e+03_rb,0.99882e+03_rb,0.99942e+03_rb /)
+      kbo(:,16,11) = (/ &
+        & 0.98962e+03_rb,0.99419e+03_rb,0.99730e+03_rb,0.99893e+03_rb,0.99945e+03_rb /)
+      kbo(:,17,11) = (/ &
+        & 0.99016e+03_rb,0.99444e+03_rb,0.99754e+03_rb,0.99903e+03_rb,0.99947e+03_rb /)
+      kbo(:,18,11) = (/ &
+        & 0.99067e+03_rb,0.99497e+03_rb,0.99775e+03_rb,0.99911e+03_rb,0.99948e+03_rb /)
+      kbo(:,19,11) = (/ &
+        & 0.99117e+03_rb,0.99532e+03_rb,0.99795e+03_rb,0.99918e+03_rb,0.99949e+03_rb /)
+      kbo(:,20,11) = (/ &
+        & 0.99173e+03_rb,0.99572e+03_rb,0.99816e+03_rb,0.99924e+03_rb,0.99949e+03_rb /)
+      kbo(:,21,11) = (/ &
+        & 0.99228e+03_rb,0.99610e+03_rb,0.99835e+03_rb,0.99929e+03_rb,0.99946e+03_rb /)
+      kbo(:,22,11) = (/ &
+        & 0.99309e+03_rb,0.99663e+03_rb,0.99862e+03_rb,0.99936e+03_rb,0.99953e+03_rb /)
+      kbo(:,23,11) = (/ &
+        & 0.99388e+03_rb,0.99698e+03_rb,0.99900e+03_rb,0.99942e+03_rb,0.99925e+03_rb /)
+      kbo(:,24,11) = (/ &
+        & 0.99466e+03_rb,0.99758e+03_rb,0.99904e+03_rb,0.99947e+03_rb,0.99905e+03_rb /)
+      kbo(:,25,11) = (/ &
+        & 0.99542e+03_rb,0.99800e+03_rb,0.99919e+03_rb,0.99963e+03_rb,0.99878e+03_rb /)
+      kbo(:,26,11) = (/ &
+        & 0.99618e+03_rb,0.99839e+03_rb,0.99930e+03_rb,0.99945e+03_rb,0.99847e+03_rb /)
+      kbo(:,27,11) = (/ &
+        & 0.99683e+03_rb,0.99872e+03_rb,0.99939e+03_rb,0.99934e+03_rb,0.99751e+03_rb /)
+      kbo(:,28,11) = (/ &
+        & 0.99741e+03_rb,0.99897e+03_rb,0.99946e+03_rb,0.99913e+03_rb,0.99749e+03_rb /)
+      kbo(:,29,11) = (/ &
+        & 0.99792e+03_rb,0.99917e+03_rb,0.99949e+03_rb,0.99884e+03_rb,0.99707e+03_rb /)
+      kbo(:,30,11) = (/ &
+        & 0.99821e+03_rb,0.99929e+03_rb,0.99946e+03_rb,0.99850e+03_rb,0.99637e+03_rb /)
+      kbo(:,31,11) = (/ &
+        & 0.99871e+03_rb,0.99938e+03_rb,0.99949e+03_rb,0.99810e+03_rb,0.99532e+03_rb /)
+      kbo(:,32,11) = (/ &
+        & 0.99899e+03_rb,0.99961e+03_rb,0.99926e+03_rb,0.99761e+03_rb,0.99460e+03_rb /)
+      kbo(:,33,11) = (/ &
+        & 0.99918e+03_rb,0.99949e+03_rb,0.99880e+03_rb,0.99700e+03_rb,0.99413e+03_rb /)
+      kbo(:,34,11) = (/ &
+        & 0.99929e+03_rb,0.99946e+03_rb,0.99850e+03_rb,0.99635e+03_rb,0.99329e+03_rb /)
+      kbo(:,35,11) = (/ &
+        & 0.99934e+03_rb,0.99941e+03_rb,0.99830e+03_rb,0.99590e+03_rb,0.99292e+03_rb /)
+      kbo(:,36,11) = (/ &
+        & 0.99935e+03_rb,0.99940e+03_rb,0.99826e+03_rb,0.99583e+03_rb,0.99287e+03_rb /)
+      kbo(:,37,11) = (/ &
+        & 0.99930e+03_rb,0.99946e+03_rb,0.99846e+03_rb,0.99628e+03_rb,0.99327e+03_rb /)
+      kbo(:,38,11) = (/ &
+        & 0.99924e+03_rb,0.99949e+03_rb,0.99866e+03_rb,0.99670e+03_rb,0.99350e+03_rb /)
+      kbo(:,39,11) = (/ &
+        & 0.99917e+03_rb,0.99949e+03_rb,0.99899e+03_rb,0.99707e+03_rb,0.99451e+03_rb /)
+      kbo(:,40,11) = (/ &
+        & 0.99898e+03_rb,0.99946e+03_rb,0.99913e+03_rb,0.99777e+03_rb,0.99505e+03_rb /)
+      kbo(:,41,11) = (/ &
+        & 0.99871e+03_rb,0.99939e+03_rb,0.99935e+03_rb,0.99810e+03_rb,0.99546e+03_rb /)
+      kbo(:,42,11) = (/ &
+        & 0.99835e+03_rb,0.99929e+03_rb,0.99947e+03_rb,0.99851e+03_rb,0.99637e+03_rb /)
+      kbo(:,43,11) = (/ &
+        & 0.99780e+03_rb,0.99913e+03_rb,0.99949e+03_rb,0.99893e+03_rb,0.99722e+03_rb /)
+      kbo(:,44,11) = (/ &
+        & 0.99704e+03_rb,0.99882e+03_rb,0.99942e+03_rb,0.99928e+03_rb,0.99778e+03_rb /)
+      kbo(:,45,11) = (/ &
+        & 0.99613e+03_rb,0.99837e+03_rb,0.99930e+03_rb,0.99947e+03_rb,0.99849e+03_rb /)
+      kbo(:,46,11) = (/ &
+        & 0.99492e+03_rb,0.99787e+03_rb,0.99911e+03_rb,0.99949e+03_rb,0.99897e+03_rb /)
+      kbo(:,47,11) = (/ &
+        & 0.99335e+03_rb,0.99679e+03_rb,0.99871e+03_rb,0.99939e+03_rb,0.99936e+03_rb /)
+      kbo(:,48,11) = (/ &
+        & 0.99156e+03_rb,0.99560e+03_rb,0.99810e+03_rb,0.99923e+03_rb,0.99951e+03_rb /)
+      kbo(:,49,11) = (/ &
+        & 0.98955e+03_rb,0.99414e+03_rb,0.99727e+03_rb,0.99894e+03_rb,0.99946e+03_rb /)
+      kbo(:,50,11) = (/ &
+        & 0.98749e+03_rb,0.99256e+03_rb,0.99630e+03_rb,0.99847e+03_rb,0.99918e+03_rb /)
+      kbo(:,51,11) = (/ &
+        & 0.98496e+03_rb,0.99085e+03_rb,0.99509e+03_rb,0.99784e+03_rb,0.99916e+03_rb /)
+      kbo(:,52,11) = (/ &
+        & 0.98304e+03_rb,0.98897e+03_rb,0.99370e+03_rb,0.99701e+03_rb,0.99883e+03_rb /)
+      kbo(:,53,11) = (/ &
+        & 0.98104e+03_rb,0.98693e+03_rb,0.99213e+03_rb,0.99600e+03_rb,0.99833e+03_rb /)
+      kbo(:,54,11) = (/ &
+        & 0.97906e+03_rb,0.98440e+03_rb,0.99053e+03_rb,0.99485e+03_rb,0.99771e+03_rb /)
+      kbo(:,55,11) = (/ &
+        & 0.97789e+03_rb,0.98286e+03_rb,0.98886e+03_rb,0.99361e+03_rb,0.99696e+03_rb /)
+      kbo(:,56,11) = (/ &
+        & 0.97514e+03_rb,0.98117e+03_rb,0.98708e+03_rb,0.99224e+03_rb,0.99622e+03_rb /)
+      kbo(:,57,11) = (/ &
+        & 0.97242e+03_rb,0.97945e+03_rb,0.98472e+03_rb,0.99072e+03_rb,0.99500e+03_rb /)
+      kbo(:,58,11) = (/ &
+        & 0.96969e+03_rb,0.97814e+03_rb,0.98316e+03_rb,0.98916e+03_rb,0.99384e+03_rb /)
+      kbo(:,59,11) = (/ &
+        & 0.96859e+03_rb,0.97725e+03_rb,0.98261e+03_rb,0.98851e+03_rb,0.99335e+03_rb /)
+      kbo(:,13,12) = (/ &
+        & 0.99768e+03_rb,0.99984e+03_rb,0.10010e+04_rb,0.10024e+04_rb,0.10029e+04_rb /)
+      kbo(:,14,12) = (/ &
+        & 0.99795e+03_rb,0.99992e+03_rb,0.10011e+04_rb,0.10025e+04_rb,0.10029e+04_rb /)
+      kbo(:,15,12) = (/ &
+        & 0.99880e+03_rb,0.99996e+03_rb,0.10013e+04_rb,0.10026e+04_rb,0.10031e+04_rb /)
+      kbo(:,16,12) = (/ &
+        & 0.99852e+03_rb,0.10003e+04_rb,0.10015e+04_rb,0.10028e+04_rb,0.10029e+04_rb /)
+      kbo(:,17,12) = (/ &
+        & 0.99876e+03_rb,0.10000e+04_rb,0.10016e+04_rb,0.10027e+04_rb,0.10029e+04_rb /)
+      kbo(:,18,12) = (/ &
+        & 0.99898e+03_rb,0.10001e+04_rb,0.10018e+04_rb,0.10028e+04_rb,0.10028e+04_rb /)
+      kbo(:,19,12) = (/ &
+        & 0.99918e+03_rb,0.10003e+04_rb,0.10021e+04_rb,0.10028e+04_rb,0.10028e+04_rb /)
+      kbo(:,20,12) = (/ &
+        & 0.99940e+03_rb,0.10005e+04_rb,0.10026e+04_rb,0.10029e+04_rb,0.10031e+04_rb /)
+      kbo(:,21,12) = (/ &
+        & 0.99959e+03_rb,0.10007e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb /)
+      kbo(:,22,12) = (/ &
+        & 0.99984e+03_rb,0.10010e+04_rb,0.10024e+04_rb,0.10030e+04_rb,0.10023e+04_rb /)
+      kbo(:,23,12) = (/ &
+        & 0.99996e+03_rb,0.10013e+04_rb,0.10024e+04_rb,0.10029e+04_rb,0.10025e+04_rb /)
+      kbo(:,24,12) = (/ &
+        & 0.10000e+04_rb,0.10016e+04_rb,0.10029e+04_rb,0.10029e+04_rb,0.10023e+04_rb /)
+      kbo(:,25,12) = (/ &
+        & 0.10003e+04_rb,0.10023e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10019e+04_rb /)
+      kbo(:,26,12) = (/ &
+        & 0.10007e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10015e+04_rb /)
+      kbo(:,27,12) = (/ &
+        & 0.10012e+04_rb,0.10025e+04_rb,0.10031e+04_rb,0.10024e+04_rb,0.10010e+04_rb /)
+      kbo(:,28,12) = (/ &
+        & 0.10015e+04_rb,0.10027e+04_rb,0.10029e+04_rb,0.10022e+04_rb,0.10005e+04_rb /)
+      kbo(:,29,12) = (/ &
+        & 0.10019e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10019e+04_rb,0.99992e+03_rb /)
+      kbo(:,30,12) = (/ &
+        & 0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10017e+04_rb,0.99965e+03_rb /)
+      kbo(:,31,12) = (/ &
+        & 0.10025e+04_rb,0.10030e+04_rb,0.10022e+04_rb,0.10011e+04_rb,0.99843e+03_rb /)
+      kbo(:,32,12) = (/ &
+        & 0.10027e+04_rb,0.10029e+04_rb,0.10020e+04_rb,0.10007e+04_rb,0.99748e+03_rb /)
+      kbo(:,33,12) = (/ &
+        & 0.10029e+04_rb,0.10028e+04_rb,0.10021e+04_rb,0.10000e+04_rb,0.99658e+03_rb /)
+      kbo(:,34,12) = (/ &
+        & 0.10031e+04_rb,0.10026e+04_rb,0.10017e+04_rb,0.99945e+03_rb,0.99563e+03_rb /)
+      kbo(:,35,12) = (/ &
+        & 0.10030e+04_rb,0.10025e+04_rb,0.10031e+04_rb,0.99888e+03_rb,0.99496e+03_rb /)
+      kbo(:,36,12) = (/ &
+        & 0.10030e+04_rb,0.10025e+04_rb,0.10020e+04_rb,0.99880e+03_rb,0.99482e+03_rb /)
+      kbo(:,37,12) = (/ &
+        & 0.10029e+04_rb,0.10026e+04_rb,0.10015e+04_rb,0.99939e+03_rb,0.99547e+03_rb /)
+      kbo(:,38,12) = (/ &
+        & 0.10029e+04_rb,0.10027e+04_rb,0.10017e+04_rb,0.99958e+03_rb,0.99634e+03_rb /)
+      kbo(:,39,12) = (/ &
+        & 0.10028e+04_rb,0.10028e+04_rb,0.10017e+04_rb,0.99993e+03_rb,0.99613e+03_rb /)
+      kbo(:,40,12) = (/ &
+        & 0.10027e+04_rb,0.10029e+04_rb,0.10022e+04_rb,0.10003e+04_rb,0.99696e+03_rb /)
+      kbo(:,41,12) = (/ &
+        & 0.10027e+04_rb,0.10029e+04_rb,0.10024e+04_rb,0.10013e+04_rb,0.99857e+03_rb /)
+      kbo(:,42,12) = (/ &
+        & 0.10022e+04_rb,0.10029e+04_rb,0.10028e+04_rb,0.10021e+04_rb,0.99929e+03_rb /)
+      kbo(:,43,12) = (/ &
+        & 0.10018e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10020e+04_rb,0.10001e+04_rb /)
+      kbo(:,44,12) = (/ &
+        & 0.10013e+04_rb,0.10026e+04_rb,0.10029e+04_rb,0.10023e+04_rb,0.10016e+04_rb /)
+      kbo(:,45,12) = (/ &
+        & 0.10007e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10015e+04_rb /)
+      kbo(:,46,12) = (/ &
+        & 0.10014e+04_rb,0.10016e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10020e+04_rb /)
+      kbo(:,47,12) = (/ &
+        & 0.99993e+03_rb,0.10012e+04_rb,0.10025e+04_rb,0.10029e+04_rb,0.10024e+04_rb /)
+      kbo(:,48,12) = (/ &
+        & 0.99937e+03_rb,0.10005e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10027e+04_rb /)
+      kbo(:,49,12) = (/ &
+        & 0.99853e+03_rb,0.10002e+04_rb,0.10015e+04_rb,0.10026e+04_rb,0.10029e+04_rb /)
+      kbo(:,50,12) = (/ &
+        & 0.99741e+03_rb,0.99993e+03_rb,0.10008e+04_rb,0.10023e+04_rb,0.10029e+04_rb /)
+      kbo(:,51,12) = (/ &
+        & 0.99665e+03_rb,0.99912e+03_rb,0.10002e+04_rb,0.10018e+04_rb,0.10028e+04_rb /)
+      kbo(:,52,12) = (/ &
+        & 0.99385e+03_rb,0.99826e+03_rb,0.10000e+04_rb,0.10013e+04_rb,0.10025e+04_rb /)
+      kbo(:,53,12) = (/ &
+        & 0.99099e+03_rb,0.99714e+03_rb,0.99965e+03_rb,0.10007e+04_rb,0.10022e+04_rb /)
+      kbo(:,54,12) = (/ &
+        & 0.98826e+03_rb,0.99612e+03_rb,0.99903e+03_rb,0.10002e+04_rb,0.10018e+04_rb /)
+      kbo(:,55,12) = (/ &
+        & 0.98397e+03_rb,0.99379e+03_rb,0.99822e+03_rb,0.10000e+04_rb,0.10013e+04_rb /)
+      kbo(:,56,12) = (/ &
+        & 0.98006e+03_rb,0.99120e+03_rb,0.99722e+03_rb,0.99969e+03_rb,0.10006e+04_rb /)
+      kbo(:,57,12) = (/ &
+        & 0.97631e+03_rb,0.98840e+03_rb,0.99624e+03_rb,0.99911e+03_rb,0.10002e+04_rb /)
+      kbo(:,58,12) = (/ &
+        & 0.97279e+03_rb,0.98508e+03_rb,0.99422e+03_rb,0.99838e+03_rb,0.10001e+04_rb /)
+      kbo(:,59,12) = (/ &
+        & 0.97171e+03_rb,0.98327e+03_rb,0.99315e+03_rb,0.99818e+03_rb,0.99997e+03_rb /)
+      kbo(:,13,13) = (/ &
+        & 0.99623e+03_rb,0.99978e+03_rb,0.10034e+04_rb,0.10050e+04_rb,0.10054e+04_rb /)
+      kbo(:,14,13) = (/ &
+        & 0.99674e+03_rb,0.10002e+04_rb,0.10034e+04_rb,0.10050e+04_rb,0.10053e+04_rb /)
+      kbo(:,15,13) = (/ &
+        & 0.99652e+03_rb,0.10007e+04_rb,0.10036e+04_rb,0.10051e+04_rb,0.10051e+04_rb /)
+      kbo(:,16,13) = (/ &
+        & 0.99785e+03_rb,0.10007e+04_rb,0.10039e+04_rb,0.10049e+04_rb,0.10053e+04_rb /)
+      kbo(:,17,13) = (/ &
+        & 0.99816e+03_rb,0.10017e+04_rb,0.10043e+04_rb,0.10052e+04_rb,0.10052e+04_rb /)
+      kbo(:,18,13) = (/ &
+        & 0.99792e+03_rb,0.10021e+04_rb,0.10042e+04_rb,0.10053e+04_rb,0.10051e+04_rb /)
+      kbo(:,19,13) = (/ &
+        & 0.99826e+03_rb,0.10023e+04_rb,0.10042e+04_rb,0.10053e+04_rb,0.10051e+04_rb /)
+      kbo(:,20,13) = (/ &
+        & 0.99869e+03_rb,0.10028e+04_rb,0.10038e+04_rb,0.10053e+04_rb,0.10044e+04_rb /)
+      kbo(:,21,13) = (/ &
+        & 0.99914e+03_rb,0.10028e+04_rb,0.10048e+04_rb,0.10054e+04_rb,0.10048e+04_rb /)
+      kbo(:,22,13) = (/ &
+        & 0.99989e+03_rb,0.10035e+04_rb,0.10050e+04_rb,0.10053e+04_rb,0.10046e+04_rb /)
+      kbo(:,23,13) = (/ &
+        & 0.10011e+04_rb,0.10037e+04_rb,0.10051e+04_rb,0.10053e+04_rb,0.10041e+04_rb /)
+      kbo(:,24,13) = (/ &
+        & 0.10018e+04_rb,0.10041e+04_rb,0.10050e+04_rb,0.10052e+04_rb,0.10037e+04_rb /)
+      kbo(:,25,13) = (/ &
+        & 0.10026e+04_rb,0.10040e+04_rb,0.10056e+04_rb,0.10050e+04_rb,0.10036e+04_rb /)
+      kbo(:,26,13) = (/ &
+        & 0.10031e+04_rb,0.10048e+04_rb,0.10054e+04_rb,0.10050e+04_rb,0.10030e+04_rb /)
+      kbo(:,27,13) = (/ &
+        & 0.10047e+04_rb,0.10050e+04_rb,0.10051e+04_rb,0.10045e+04_rb,0.10025e+04_rb /)
+      kbo(:,28,13) = (/ &
+        & 0.10039e+04_rb,0.10052e+04_rb,0.10052e+04_rb,0.10041e+04_rb,0.10018e+04_rb /)
+      kbo(:,29,13) = (/ &
+        & 0.10044e+04_rb,0.10053e+04_rb,0.10051e+04_rb,0.10037e+04_rb,0.10011e+04_rb /)
+      kbo(:,30,13) = (/ &
+        & 0.10048e+04_rb,0.10054e+04_rb,0.10048e+04_rb,0.10029e+04_rb,0.99977e+03_rb /)
+      kbo(:,31,13) = (/ &
+        & 0.10050e+04_rb,0.10053e+04_rb,0.10045e+04_rb,0.10025e+04_rb,0.99968e+03_rb /)
+      kbo(:,32,13) = (/ &
+        & 0.10052e+04_rb,0.10050e+04_rb,0.10041e+04_rb,0.10015e+04_rb,0.99880e+03_rb /)
+      kbo(:,33,13) = (/ &
+        & 0.10053e+04_rb,0.10050e+04_rb,0.10033e+04_rb,0.10008e+04_rb,0.99675e+03_rb /)
+      kbo(:,34,13) = (/ &
+        & 0.10051e+04_rb,0.10048e+04_rb,0.10028e+04_rb,0.10000e+04_rb,0.99529e+03_rb /)
+      kbo(:,35,13) = (/ &
+        & 0.10054e+04_rb,0.10047e+04_rb,0.10003e+04_rb,0.99992e+03_rb,0.99481e+03_rb /)
+      kbo(:,36,13) = (/ &
+        & 0.10054e+04_rb,0.10046e+04_rb,0.10017e+04_rb,0.99987e+03_rb,0.99445e+03_rb /)
+      kbo(:,37,13) = (/ &
+        & 0.10054e+04_rb,0.10048e+04_rb,0.10030e+04_rb,0.99995e+03_rb,0.99517e+03_rb /)
+      kbo(:,38,13) = (/ &
+        & 0.10054e+04_rb,0.10049e+04_rb,0.10034e+04_rb,0.10006e+04_rb,0.99603e+03_rb /)
+      kbo(:,39,13) = (/ &
+        & 0.10053e+04_rb,0.10051e+04_rb,0.10037e+04_rb,0.10011e+04_rb,0.99693e+03_rb /)
+      kbo(:,40,13) = (/ &
+        & 0.10052e+04_rb,0.10052e+04_rb,0.10041e+04_rb,0.10018e+04_rb,0.99860e+03_rb /)
+      kbo(:,41,13) = (/ &
+        & 0.10048e+04_rb,0.10053e+04_rb,0.10045e+04_rb,0.10023e+04_rb,0.99951e+03_rb /)
+      kbo(:,42,13) = (/ &
+        & 0.10048e+04_rb,0.10054e+04_rb,0.10046e+04_rb,0.10024e+04_rb,0.10003e+04_rb /)
+      kbo(:,43,13) = (/ &
+        & 0.10043e+04_rb,0.10053e+04_rb,0.10051e+04_rb,0.10038e+04_rb,0.10013e+04_rb /)
+      kbo(:,44,13) = (/ &
+        & 0.10036e+04_rb,0.10051e+04_rb,0.10053e+04_rb,0.10044e+04_rb,0.10012e+04_rb /)
+      kbo(:,45,13) = (/ &
+        & 0.10028e+04_rb,0.10048e+04_rb,0.10054e+04_rb,0.10048e+04_rb,0.10031e+04_rb /)
+      kbo(:,46,13) = (/ &
+        & 0.10008e+04_rb,0.10042e+04_rb,0.10053e+04_rb,0.10052e+04_rb,0.10038e+04_rb /)
+      kbo(:,47,13) = (/ &
+        & 0.10002e+04_rb,0.10039e+04_rb,0.10050e+04_rb,0.10053e+04_rb,0.10045e+04_rb /)
+      kbo(:,48,13) = (/ &
+        & 0.99859e+03_rb,0.10025e+04_rb,0.10043e+04_rb,0.10054e+04_rb,0.10050e+04_rb /)
+      kbo(:,49,13) = (/ &
+        & 0.99776e+03_rb,0.10009e+04_rb,0.10041e+04_rb,0.10052e+04_rb,0.10053e+04_rb /)
+      kbo(:,50,13) = (/ &
+        & 0.99565e+03_rb,0.99944e+03_rb,0.10034e+04_rb,0.10049e+04_rb,0.10054e+04_rb /)
+      kbo(:,51,13) = (/ &
+        & 0.99271e+03_rb,0.99811e+03_rb,0.10022e+04_rb,0.10043e+04_rb,0.10053e+04_rb /)
+      kbo(:,52,13) = (/ &
+        & 0.99056e+03_rb,0.99717e+03_rb,0.10006e+04_rb,0.10036e+04_rb,0.10051e+04_rb /)
+      kbo(:,53,13) = (/ &
+        & 0.98830e+03_rb,0.99502e+03_rb,0.99909e+03_rb,0.10028e+04_rb,0.10048e+04_rb /)
+      kbo(:,54,13) = (/ &
+        & 0.98610e+03_rb,0.99275e+03_rb,0.99821e+03_rb,0.10021e+04_rb,0.10042e+04_rb /)
+      kbo(:,55,13) = (/ &
+        & 0.98386e+03_rb,0.99045e+03_rb,0.99729e+03_rb,0.10008e+04_rb,0.10038e+04_rb /)
+      kbo(:,56,13) = (/ &
+        & 0.98150e+03_rb,0.98846e+03_rb,0.99517e+03_rb,0.99919e+03_rb,0.10028e+04_rb /)
+      kbo(:,57,13) = (/ &
+        & 0.97902e+03_rb,0.98636e+03_rb,0.99303e+03_rb,0.99832e+03_rb,0.10022e+04_rb /)
+      kbo(:,58,13) = (/ &
+        & 0.97656e+03_rb,0.98426e+03_rb,0.99079e+03_rb,0.99735e+03_rb,0.10008e+04_rb /)
+      kbo(:,59,13) = (/ &
+        & 0.97503e+03_rb,0.98337e+03_rb,0.99004e+03_rb,0.99647e+03_rb,0.10002e+04_rb /)
+      kbo(:,13,14) = (/ &
+        & 0.99596e+03_rb,0.10023e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)
+      kbo(:,14,14) = (/ &
+        & 0.99625e+03_rb,0.10024e+04_rb,0.10052e+04_rb,0.10068e+04_rb,0.10071e+04_rb /)
+      kbo(:,15,14) = (/ &
+        & 0.99662e+03_rb,0.10025e+04_rb,0.10054e+04_rb,0.10069e+04_rb,0.10071e+04_rb /)
+      kbo(:,16,14) = (/ &
+        & 0.99703e+03_rb,0.10026e+04_rb,0.10056e+04_rb,0.10070e+04_rb,0.10070e+04_rb /)
+      kbo(:,17,14) = (/ &
+        & 0.99784e+03_rb,0.10032e+04_rb,0.10054e+04_rb,0.10071e+04_rb,0.10070e+04_rb /)
+      kbo(:,18,14) = (/ &
+        & 0.99947e+03_rb,0.10032e+04_rb,0.10060e+04_rb,0.10071e+04_rb,0.10069e+04_rb /)
+      kbo(:,19,14) = (/ &
+        & 0.10001e+04_rb,0.10036e+04_rb,0.10062e+04_rb,0.10071e+04_rb,0.10068e+04_rb /)
+      kbo(:,20,14) = (/ &
+        & 0.10009e+04_rb,0.10037e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10067e+04_rb /)
+      kbo(:,21,14) = (/ &
+        & 0.10015e+04_rb,0.10046e+04_rb,0.10065e+04_rb,0.10072e+04_rb,0.10065e+04_rb /)
+      kbo(:,22,14) = (/ &
+        & 0.10023e+04_rb,0.10047e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10063e+04_rb /)
+      kbo(:,23,14) = (/ &
+        & 0.10021e+04_rb,0.10055e+04_rb,0.10069e+04_rb,0.10071e+04_rb,0.10060e+04_rb /)
+      kbo(:,24,14) = (/ &
+        & 0.10028e+04_rb,0.10059e+04_rb,0.10071e+04_rb,0.10069e+04_rb,0.10057e+04_rb /)
+      kbo(:,25,14) = (/ &
+        & 0.10033e+04_rb,0.10062e+04_rb,0.10068e+04_rb,0.10068e+04_rb,0.10052e+04_rb /)
+      kbo(:,26,14) = (/ &
+        & 0.10043e+04_rb,0.10066e+04_rb,0.10072e+04_rb,0.10061e+04_rb,0.10047e+04_rb /)
+      kbo(:,27,14) = (/ &
+        & 0.10033e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb,0.10042e+04_rb /)
+      kbo(:,28,14) = (/ &
+        & 0.10057e+04_rb,0.10070e+04_rb,0.10070e+04_rb,0.10058e+04_rb,0.10036e+04_rb /)
+      kbo(:,29,14) = (/ &
+        & 0.10062e+04_rb,0.10075e+04_rb,0.10068e+04_rb,0.10053e+04_rb,0.10030e+04_rb /)
+      kbo(:,30,14) = (/ &
+        & 0.10065e+04_rb,0.10072e+04_rb,0.10069e+04_rb,0.10048e+04_rb,0.10022e+04_rb /)
+      kbo(:,31,14) = (/ &
+        & 0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb,0.10042e+04_rb,0.10014e+04_rb /)
+      kbo(:,32,14) = (/ &
+        & 0.10070e+04_rb,0.10070e+04_rb,0.10058e+04_rb,0.10035e+04_rb,0.99925e+03_rb /)
+      kbo(:,33,14) = (/ &
+        & 0.10071e+04_rb,0.10068e+04_rb,0.10053e+04_rb,0.10029e+04_rb,0.99808e+03_rb /)
+      kbo(:,34,14) = (/ &
+        & 0.10072e+04_rb,0.10065e+04_rb,0.10048e+04_rb,0.10021e+04_rb,0.99788e+03_rb /)
+      kbo(:,35,14) = (/ &
+        & 0.10072e+04_rb,0.10064e+04_rb,0.10045e+04_rb,0.10016e+04_rb,0.99700e+03_rb /)
+      kbo(:,36,14) = (/ &
+        & 0.10072e+04_rb,0.10063e+04_rb,0.10044e+04_rb,0.10015e+04_rb,0.99731e+03_rb /)
+      kbo(:,37,14) = (/ &
+        & 0.10072e+04_rb,0.10065e+04_rb,0.10047e+04_rb,0.10021e+04_rb,0.99778e+03_rb /)
+      kbo(:,38,14) = (/ &
+        & 0.10072e+04_rb,0.10067e+04_rb,0.10050e+04_rb,0.10026e+04_rb,0.99820e+03_rb /)
+      kbo(:,39,14) = (/ &
+        & 0.10071e+04_rb,0.10068e+04_rb,0.10053e+04_rb,0.10030e+04_rb,0.99855e+03_rb /)
+      kbo(:,40,14) = (/ &
+        & 0.10070e+04_rb,0.10070e+04_rb,0.10058e+04_rb,0.10036e+04_rb,0.99965e+03_rb /)
+      kbo(:,41,14) = (/ &
+        & 0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb,0.10042e+04_rb,0.10010e+04_rb /)
+      kbo(:,42,14) = (/ &
+        & 0.10065e+04_rb,0.10072e+04_rb,0.10065e+04_rb,0.10048e+04_rb,0.10022e+04_rb /)
+      kbo(:,43,14) = (/ &
+        & 0.10061e+04_rb,0.10071e+04_rb,0.10069e+04_rb,0.10055e+04_rb,0.10031e+04_rb /)
+      kbo(:,44,14) = (/ &
+        & 0.10054e+04_rb,0.10069e+04_rb,0.10071e+04_rb,0.10061e+04_rb,0.10039e+04_rb /)
+      kbo(:,45,14) = (/ &
+        & 0.10046e+04_rb,0.10066e+04_rb,0.10072e+04_rb,0.10065e+04_rb,0.10048e+04_rb /)
+      kbo(:,46,14) = (/ &
+        & 0.10023e+04_rb,0.10060e+04_rb,0.10075e+04_rb,0.10069e+04_rb,0.10055e+04_rb /)
+      kbo(:,47,14) = (/ &
+        & 0.10024e+04_rb,0.10044e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb /)
+      kbo(:,48,14) = (/ &
+        & 0.10006e+04_rb,0.10039e+04_rb,0.10063e+04_rb,0.10072e+04_rb,0.10067e+04_rb /)
+      kbo(:,49,14) = (/ &
+        & 0.99705e+03_rb,0.10026e+04_rb,0.10052e+04_rb,0.10070e+04_rb,0.10070e+04_rb /)
+      kbo(:,50,14) = (/ &
+        & 0.99574e+03_rb,0.10014e+04_rb,0.10040e+04_rb,0.10066e+04_rb,0.10072e+04_rb /)
+      kbo(:,51,14) = (/ &
+        & 0.99447e+03_rb,0.99966e+03_rb,0.10033e+04_rb,0.10065e+04_rb,0.10071e+04_rb /)
+      kbo(:,52,14) = (/ &
+        & 0.99299e+03_rb,0.99670e+03_rb,0.10025e+04_rb,0.10054e+04_rb,0.10069e+04_rb /)
+      kbo(:,53,14) = (/ &
+        & 0.99138e+03_rb,0.99552e+03_rb,0.10013e+04_rb,0.10044e+04_rb,0.10065e+04_rb /)
+      kbo(:,54,14) = (/ &
+        & 0.98979e+03_rb,0.99462e+03_rb,0.99874e+03_rb,0.10030e+04_rb,0.10060e+04_rb /)
+      kbo(:,55,14) = (/ &
+        & 0.98814e+03_rb,0.99291e+03_rb,0.99630e+03_rb,0.10029e+04_rb,0.10050e+04_rb /)
+      kbo(:,56,14) = (/ &
+        & 0.98639e+03_rb,0.99150e+03_rb,0.99562e+03_rb,0.10014e+04_rb,0.10045e+04_rb /)
+      kbo(:,57,14) = (/ &
+        & 0.98454e+03_rb,0.98998e+03_rb,0.99438e+03_rb,0.99904e+03_rb,0.10032e+04_rb /)
+      kbo(:,58,14) = (/ &
+        & 0.98268e+03_rb,0.98844e+03_rb,0.99315e+03_rb,0.99688e+03_rb,0.10025e+04_rb /)
+      kbo(:,59,14) = (/ &
+        & 0.98190e+03_rb,0.98779e+03_rb,0.99262e+03_rb,0.99638e+03_rb,0.10024e+04_rb /)
+      kbo(:,13,15) = (/ &
+        & 0.99739e+03_rb,0.10017e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)
+      kbo(:,14,15) = (/ &
+        & 0.99781e+03_rb,0.10021e+04_rb,0.10065e+04_rb,0.10077e+04_rb,0.10090e+04_rb /)
+      kbo(:,15,15) = (/ &
+        & 0.99827e+03_rb,0.10029e+04_rb,0.10067e+04_rb,0.10077e+04_rb,0.10079e+04_rb /)
+      kbo(:,16,15) = (/ &
+        & 0.99875e+03_rb,0.10040e+04_rb,0.10068e+04_rb,0.10078e+04_rb,0.10089e+04_rb /)
+      kbo(:,17,15) = (/ &
+        & 0.99816e+03_rb,0.10041e+04_rb,0.10080e+04_rb,0.10079e+04_rb,0.10078e+04_rb /)
+      kbo(:,18,15) = (/ &
+        & 0.99861e+03_rb,0.10065e+04_rb,0.10071e+04_rb,0.10090e+04_rb,0.10078e+04_rb /)
+      kbo(:,19,15) = (/ &
+        & 0.10001e+04_rb,0.10056e+04_rb,0.10072e+04_rb,0.10079e+04_rb,0.10077e+04_rb /)
+      kbo(:,20,15) = (/ &
+        & 0.99952e+03_rb,0.10059e+04_rb,0.10074e+04_rb,0.10090e+04_rb,0.10087e+04_rb /)
+      kbo(:,21,15) = (/ &
+        & 0.10000e+04_rb,0.10061e+04_rb,0.10085e+04_rb,0.10080e+04_rb,0.10085e+04_rb /)
+      kbo(:,22,15) = (/ &
+        & 0.10012e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10090e+04_rb,0.10073e+04_rb /)
+      kbo(:,23,15) = (/ &
+        & 0.10032e+04_rb,0.10067e+04_rb,0.10088e+04_rb,0.10079e+04_rb,0.10070e+04_rb /)
+      kbo(:,24,15) = (/ &
+        & 0.10052e+04_rb,0.10070e+04_rb,0.10079e+04_rb,0.10089e+04_rb,0.10067e+04_rb /)
+      kbo(:,25,15) = (/ &
+        & 0.10057e+04_rb,0.10083e+04_rb,0.10079e+04_rb,0.10098e+04_rb,0.10062e+04_rb /)
+      kbo(:,26,15) = (/ &
+        & 0.10061e+04_rb,0.10085e+04_rb,0.10080e+04_rb,0.10075e+04_rb,0.10068e+04_rb /)
+      kbo(:,27,15) = (/ &
+        & 0.10066e+04_rb,0.10087e+04_rb,0.10111e+04_rb,0.10072e+04_rb,0.10051e+04_rb /)
+      kbo(:,28,15) = (/ &
+        & 0.10069e+04_rb,0.10089e+04_rb,0.10079e+04_rb,0.10068e+04_rb,0.10054e+04_rb /)
+      kbo(:,29,15) = (/ &
+        & 0.10072e+04_rb,0.10069e+04_rb,0.10077e+04_rb,0.10063e+04_rb,0.10034e+04_rb /)
+      kbo(:,30,15) = (/ &
+        & 0.10075e+04_rb,0.10111e+04_rb,0.10075e+04_rb,0.10068e+04_rb,0.10088e+04_rb /)
+      kbo(:,31,15) = (/ &
+        & 0.10077e+04_rb,0.10080e+04_rb,0.10072e+04_rb,0.10061e+04_rb,0.10007e+04_rb /)
+      kbo(:,32,15) = (/ &
+        & 0.10078e+04_rb,0.10089e+04_rb,0.10068e+04_rb,0.10043e+04_rb,0.10013e+04_rb /)
+      kbo(:,33,15) = (/ &
+        & 0.10079e+04_rb,0.10077e+04_rb,0.10063e+04_rb,0.10044e+04_rb,0.10009e+04_rb /)
+      kbo(:,34,15) = (/ &
+        & 0.10090e+04_rb,0.10075e+04_rb,0.10058e+04_rb,0.10025e+04_rb,0.10002e+04_rb /)
+      kbo(:,35,15) = (/ &
+        & 0.10080e+04_rb,0.10073e+04_rb,0.10054e+04_rb,0.10021e+04_rb,0.99972e+03_rb /)
+      kbo(:,36,15) = (/ &
+        & 0.10090e+04_rb,0.10073e+04_rb,0.10054e+04_rb,0.10020e+04_rb,0.99964e+03_rb /)
+      kbo(:,37,15) = (/ &
+        & 0.10080e+04_rb,0.10075e+04_rb,0.10057e+04_rb,0.10024e+04_rb,0.10001e+04_rb /)
+      kbo(:,38,15) = (/ &
+        & 0.10090e+04_rb,0.10076e+04_rb,0.10060e+04_rb,0.10040e+04_rb,0.10006e+04_rb /)
+      kbo(:,39,15) = (/ &
+        & 0.10079e+04_rb,0.10077e+04_rb,0.10063e+04_rb,0.10034e+04_rb,0.10010e+04_rb /)
+      kbo(:,40,15) = (/ &
+        & 0.10089e+04_rb,0.10089e+04_rb,0.10068e+04_rb,0.10054e+04_rb,0.10014e+04_rb /)
+      kbo(:,41,15) = (/ &
+        & 0.10087e+04_rb,0.10090e+04_rb,0.10082e+04_rb,0.10051e+04_rb,0.10018e+04_rb /)
+      kbo(:,42,15) = (/ &
+        & 0.10085e+04_rb,0.10090e+04_rb,0.10075e+04_rb,0.10058e+04_rb,0.10025e+04_rb /)
+      kbo(:,43,15) = (/ &
+        & 0.10071e+04_rb,0.10079e+04_rb,0.10078e+04_rb,0.10086e+04_rb,0.10037e+04_rb /)
+      kbo(:,44,15) = (/ &
+        & 0.10067e+04_rb,0.10088e+04_rb,0.10079e+04_rb,0.10071e+04_rb,0.10048e+04_rb /)
+      kbo(:,45,15) = (/ &
+        & 0.10061e+04_rb,0.10075e+04_rb,0.10090e+04_rb,0.10096e+04_rb,0.10057e+04_rb /)
+      kbo(:,46,15) = (/ &
+        & 0.10054e+04_rb,0.10071e+04_rb,0.10068e+04_rb,0.10078e+04_rb,0.10065e+04_rb /)
+      kbo(:,47,15) = (/ &
+        & 0.10020e+04_rb,0.10065e+04_rb,0.10087e+04_rb,0.10079e+04_rb,0.10093e+04_rb /)
+      kbo(:,48,15) = (/ &
+        & 0.99938e+03_rb,0.10058e+04_rb,0.10073e+04_rb,0.10079e+04_rb,0.10087e+04_rb /)
+      kbo(:,49,15) = (/ &
+        & 0.99869e+03_rb,0.10038e+04_rb,0.10079e+04_rb,0.10099e+04_rb,0.10089e+04_rb /)
+      kbo(:,50,15) = (/ &
+        & 0.99593e+03_rb,0.10003e+04_rb,0.10062e+04_rb,0.10075e+04_rb,0.10090e+04_rb /)
+      kbo(:,51,15) = (/ &
+        & 0.99417e+03_rb,0.99877e+03_rb,0.10055e+04_rb,0.10061e+04_rb,0.10090e+04_rb /)
+      kbo(:,52,15) = (/ &
+        & 0.99334e+03_rb,0.99717e+03_rb,0.10030e+04_rb,0.10077e+04_rb,0.10077e+04_rb /)
+      kbo(:,53,15) = (/ &
+        & 0.99034e+03_rb,0.99548e+03_rb,0.99989e+03_rb,0.10071e+04_rb,0.10085e+04_rb /)
+      kbo(:,54,15) = (/ &
+        & 0.98844e+03_rb,0.99385e+03_rb,0.99849e+03_rb,0.10064e+04_rb,0.10081e+04_rb /)
+      kbo(:,55,15) = (/ &
+        & 0.98654e+03_rb,0.99323e+03_rb,0.99708e+03_rb,0.10005e+04_rb,0.10066e+04_rb /)
+      kbo(:,56,15) = (/ &
+        & 0.98558e+03_rb,0.99048e+03_rb,0.99560e+03_rb,0.99999e+03_rb,0.10071e+04_rb /)
+      kbo(:,57,15) = (/ &
+        & 0.98349e+03_rb,0.98867e+03_rb,0.99404e+03_rb,0.99866e+03_rb,0.10054e+04_rb /)
+      kbo(:,58,15) = (/ &
+        & 0.98039e+03_rb,0.98688e+03_rb,0.99250e+03_rb,0.99837e+03_rb,0.10028e+04_rb /)
+      kbo(:,59,15) = (/ &
+        & 0.97954e+03_rb,0.98614e+03_rb,0.99186e+03_rb,0.99679e+03_rb,0.10019e+04_rb /)
+      kbo(:,13,16) = (/ &
+        & 0.98905e+03_rb,0.99319e+03_rb,0.10065e+04_rb,0.10075e+04_rb,0.10080e+04_rb /)
+      kbo(:,14,16) = (/ &
+        & 0.98947e+03_rb,0.10009e+04_rb,0.10067e+04_rb,0.10076e+04_rb,0.10005e+04_rb /)
+      kbo(:,15,16) = (/ &
+        & 0.98993e+03_rb,0.10052e+04_rb,0.10068e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)
+      kbo(:,16,16) = (/ &
+        & 0.99040e+03_rb,0.10054e+04_rb,0.10069e+04_rb,0.10077e+04_rb,0.10005e+04_rb /)
+      kbo(:,17,16) = (/ &
+        & 0.99823e+03_rb,0.10056e+04_rb,0.99955e+03_rb,0.10078e+04_rb,0.10080e+04_rb /)
+      kbo(:,18,16) = (/ &
+        & 0.99867e+03_rb,0.99832e+03_rb,0.10071e+04_rb,0.10003e+04_rb,0.10079e+04_rb /)
+      kbo(:,19,16) = (/ &
+        & 0.99168e+03_rb,0.10059e+04_rb,0.10072e+04_rb,0.10078e+04_rb,0.10079e+04_rb /)
+      kbo(:,20,16) = (/ &
+        & 0.99955e+03_rb,0.10061e+04_rb,0.10073e+04_rb,0.99297e+03_rb,0.10003e+04_rb /)
+      kbo(:,21,16) = (/ &
+        & 0.10000e+04_rb,0.10063e+04_rb,0.99994e+03_rb,0.10079e+04_rb,0.10002e+04_rb /)
+      kbo(:,22,16) = (/ &
+        & 0.10007e+04_rb,0.10066e+04_rb,0.10075e+04_rb,0.10005e+04_rb,0.10075e+04_rb /)
+      kbo(:,23,16) = (/ &
+        & 0.10052e+04_rb,0.10068e+04_rb,0.10002e+04_rb,0.10080e+04_rb,0.10072e+04_rb /)
+      kbo(:,24,16) = (/ &
+        & 0.10056e+04_rb,0.10070e+04_rb,0.10078e+04_rb,0.10005e+04_rb,0.10068e+04_rb /)
+      kbo(:,25,16) = (/ &
+        & 0.10060e+04_rb,0.99977e+03_rb,0.10079e+04_rb,0.99294e+03_rb,0.10064e+04_rb /)
+      kbo(:,26,16) = (/ &
+        & 0.10064e+04_rb,0.99996e+03_rb,0.10080e+04_rb,0.10077e+04_rb,0.99839e+03_rb /)
+      kbo(:,27,16) = (/ &
+        & 0.10067e+04_rb,0.10001e+04_rb,0.98561e+03_rb,0.10074e+04_rb,0.10052e+04_rb /)
+      kbo(:,28,16) = (/ &
+        & 0.10069e+04_rb,0.10003e+04_rb,0.10080e+04_rb,0.10070e+04_rb,0.99700e+03_rb /)
+      kbo(:,29,16) = (/ &
+        & 0.10072e+04_rb,0.10078e+04_rb,0.10079e+04_rb,0.10065e+04_rb,0.10036e+04_rb /)
+      kbo(:,30,16) = (/ &
+        & 0.10074e+04_rb,0.98555e+03_rb,0.10002e+04_rb,0.99845e+03_rb,0.95900e+03_rb /)
+      kbo(:,31,16) = (/ &
+        & 0.10076e+04_rb,0.10080e+04_rb,0.10074e+04_rb,0.99776e+03_rb,0.10037e+04_rb /)
+      kbo(:,32,16) = (/ &
+        & 0.10077e+04_rb,0.10005e+04_rb,0.10070e+04_rb,0.10044e+04_rb,0.10038e+04_rb /)
+      kbo(:,33,16) = (/ &
+        & 0.10079e+04_rb,0.10079e+04_rb,0.10064e+04_rb,0.99602e+03_rb,0.10038e+04_rb /)
+      kbo(:,34,16) = (/ &
+        & 0.10005e+04_rb,0.10077e+04_rb,0.10059e+04_rb,0.10036e+04_rb,0.10037e+04_rb /)
+      kbo(:,35,16) = (/ &
+        & 0.10080e+04_rb,0.10075e+04_rb,0.10055e+04_rb,0.10037e+04_rb,0.10036e+04_rb /)
+      kbo(:,36,16) = (/ &
+        & 0.10005e+04_rb,0.10075e+04_rb,0.10055e+04_rb,0.10037e+04_rb,0.10036e+04_rb /)
+      kbo(:,37,16) = (/ &
+        & 0.10080e+04_rb,0.10077e+04_rb,0.10058e+04_rb,0.10037e+04_rb,0.10037e+04_rb /)
+      kbo(:,38,16) = (/ &
+        & 0.10004e+04_rb,0.10078e+04_rb,0.10062e+04_rb,0.99569e+03_rb,0.10037e+04_rb /)
+      kbo(:,39,16) = (/ &
+        & 0.10078e+04_rb,0.10079e+04_rb,0.10065e+04_rb,0.10036e+04_rb,0.10038e+04_rb /)
+      kbo(:,40,16) = (/ &
+        & 0.10003e+04_rb,0.10005e+04_rb,0.10070e+04_rb,0.99698e+03_rb,0.10038e+04_rb /)
+      kbo(:,41,16) = (/ &
+        & 0.10001e+04_rb,0.10005e+04_rb,0.99992e+03_rb,0.10052e+04_rb,0.10037e+04_rb /)
+      kbo(:,42,16) = (/ &
+        & 0.99994e+03_rb,0.10005e+04_rb,0.10077e+04_rb,0.10059e+04_rb,0.10036e+04_rb /)
+      kbo(:,43,16) = (/ &
+        & 0.10071e+04_rb,0.10078e+04_rb,0.10079e+04_rb,0.99172e+03_rb,0.10038e+04_rb /)
+      kbo(:,44,16) = (/ &
+        & 0.10068e+04_rb,0.10002e+04_rb,0.10080e+04_rb,0.10072e+04_rb,0.10049e+04_rb /)
+      kbo(:,45,16) = (/ &
+        & 0.10063e+04_rb,0.10074e+04_rb,0.10005e+04_rb,0.99276e+03_rb,0.10059e+04_rb /)
+      kbo(:,46,16) = (/ &
+        & 0.10057e+04_rb,0.10071e+04_rb,0.10078e+04_rb,0.10079e+04_rb,0.10067e+04_rb /)
+      kbo(:,47,16) = (/ &
+        & 0.10009e+04_rb,0.10067e+04_rb,0.10001e+04_rb,0.10080e+04_rb,0.99247e+03_rb /)
+      kbo(:,48,16) = (/ &
+        & 0.99941e+03_rb,0.10061e+04_rb,0.10073e+04_rb,0.10079e+04_rb,0.10004e+04_rb /)
+      kbo(:,49,16) = (/ &
+        & 0.99034e+03_rb,0.10054e+04_rb,0.99943e+03_rb,0.99276e+03_rb,0.10005e+04_rb /)
+      kbo(:,50,16) = (/ &
+        & 0.99601e+03_rb,0.10003e+04_rb,0.10064e+04_rb,0.10074e+04_rb,0.10005e+04_rb /)
+      kbo(:,51,16) = (/ &
+        & 0.99422e+03_rb,0.99882e+03_rb,0.10058e+04_rb,0.10071e+04_rb,0.10003e+04_rb /)
+      kbo(:,52,16) = (/ &
+        & 0.98496e+03_rb,0.99726e+03_rb,0.10013e+04_rb,0.99930e+03_rb,0.10076e+04_rb /)
+      kbo(:,53,16) = (/ &
+        & 0.99030e+03_rb,0.99555e+03_rb,0.99990e+03_rb,0.99882e+03_rb,0.99991e+03_rb /)
+      kbo(:,54,16) = (/ &
+        & 0.98836e+03_rb,0.98653e+03_rb,0.99856e+03_rb,0.99827e+03_rb,0.99962e+03_rb /)
+      kbo(:,55,16) = (/ &
+        & 0.98643e+03_rb,0.98485e+03_rb,0.99716e+03_rb,0.10012e+04_rb,0.10067e+04_rb /)
+      kbo(:,56,16) = (/ &
+        & 0.97714e+03_rb,0.99044e+03_rb,0.99567e+03_rb,0.99999e+03_rb,0.99885e+03_rb /)
+      kbo(:,57,16) = (/ &
+        & 0.97511e+03_rb,0.98860e+03_rb,0.99409e+03_rb,0.99872e+03_rb,0.10058e+04_rb /)
+      kbo(:,58,16) = (/ &
+        & 0.98036e+03_rb,0.98678e+03_rb,0.99251e+03_rb,0.99003e+03_rb,0.10052e+04_rb /)
+      kbo(:,59,16) = (/ &
+        & 0.97953e+03_rb,0.98603e+03_rb,0.99185e+03_rb,0.99687e+03_rb,0.10009e+04_rb /)
+     
+      end subroutine sw_kgb27
+
+! **************************************************************************
+      subroutine sw_kgb28
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg28, only : kao, kbo, sfluxrefo, rayl, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:,1) = (/ &
+        & 1.06156_rb    , 0.599910_rb   , 0.422462_rb   , 0.400077_rb   , &
+        & 0.282221_rb   , 0.187893_rb   , 6.77357e-02_rb, 3.04572e-02_rb, &
+        & 2.00442e-02_rb, 2.30786e-03_rb, 2.08824e-03_rb, 1.42604e-03_rb, &
+        & 9.67384e-04_rb, 6.35362e-04_rb, 1.47727e-04_rb, 6.87639e-06_rb /)
+      sfluxrefo(:,2) = (/ &
+        & 1.07598_rb    , 0.585099_rb   , 0.422852_rb   , 0.400077_rb   , &
+        & 0.282221_rb   , 0.187893_rb   , 6.69686e-02_rb, 3.09070e-02_rb, &
+        & 2.02400e-02_rb, 2.47760e-03_rb, 1.89411e-03_rb, 1.41122e-03_rb, &
+        & 1.12449e-03_rb, 5.73505e-04_rb, 2.04160e-04_rb, 1.58371e-05_rb /)
+      sfluxrefo(:,3) = (/ &
+        & 0.461647_rb   , 0.406113_rb   , 0.332506_rb   , 0.307508_rb   , &
+        & 0.211167_rb   , 0.235457_rb   , 0.495886_rb   , 0.363921_rb   , &
+        & 0.192700_rb   , 2.04678e-02_rb, 1.55407e-02_rb, 1.03882e-02_rb, &
+        & 1.10778e-02_rb, 1.00504e-02_rb, 4.93497e-03_rb, 5.73410e-04_rb /)
+      sfluxrefo(:,4) = (/ &
+        & 0.132669_rb   , 0.175058_rb   , 0.359263_rb   , 0.388142_rb   , &
+        & 0.350359_rb   , 0.475892_rb   , 0.489593_rb   , 0.408437_rb   , &
+        & 0.221049_rb   , 1.94514e-02_rb, 1.54848e-02_rb, 1.44999e-02_rb, &
+        & 1.44568e-02_rb, 1.00527e-02_rb, 4.95897e-03_rb, 5.73327e-04_rb /)
+      sfluxrefo(:,5) = (/ &
+        & 7.54800e-02_rb, 0.232246_rb   , 0.359263_rb   , 0.388142_rb   , &
+        & 0.350359_rb   , 0.426317_rb   , 0.493485_rb   , 0.432016_rb   , &
+        & 0.239203_rb   , 1.74951e-02_rb, 1.74477e-02_rb, 1.83566e-02_rb, &
+        & 1.44818e-02_rb, 1.01048e-02_rb, 4.97487e-03_rb, 5.66831e-04_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:,1) = (/ &
+        & 9.07383E-01_rb, 5.37775E-01_rb, 4.22482E-01_rb, 3.69359E-01_rb,&
+        & 2.57749E-01_rb, 1.78219E-01_rb, 5.73035E-02_rb, 2.76551E-02_rb,&
+        & 1.79295E-02_rb, 1.88887E-03_rb, 2.27806E-03_rb, 4.12725E-03_rb,&
+        & 5.33082E-03_rb, 2.59712E-03_rb, 2.60563E-04_rb, 2.50225E-05_rb/)
+      irradnceo(:,2) = (/ &
+        & 9.06133E-01_rb, 5.04144E-01_rb, 4.38272E-01_rb, 3.81883E-01_rb,&
+        & 2.61401E-01_rb, 1.77503E-01_rb, 5.68636E-02_rb, 2.76929E-02_rb,&
+        & 1.84592E-02_rb, 2.34501E-03_rb, 3.02949E-03_rb, 5.59228E-03_rb,&
+        & 5.86033E-03_rb, 2.88761E-03_rb, 2.72104E-04_rb, 2.50225E-05_rb/)
+      irradnceo(:,3) = (/ &
+        & 4.35736E-01_rb, 3.76471E-01_rb, 3.06021E-01_rb, 2.69023E-01_rb,&
+        & 1.65272E-01_rb, 2.57586E-01_rb, 4.84391E-01_rb, 2.61161E-01_rb,&
+        & 1.81596E-01_rb, 1.93819E-02_rb, 1.49377E-02_rb, 1.00317E-02_rb,&
+        & 7.09093E-03_rb, 3.36316E-03_rb, 2.76331E-04_rb, 2.50225E-05_rb/)
+      irradnceo(:,4) = (/ &
+        & 1.24783E-01_rb, 1.70259E-01_rb, 3.35267E-01_rb, 3.55242E-01_rb,&
+        & 3.23879E-01_rb, 4.33670E-01_rb, 4.15873E-01_rb, 3.73534E-01_rb,&
+        & 1.83517E-01_rb, 2.56191E-02_rb, 2.19227E-02_rb, 1.47345E-02_rb,&
+        & 9.08306E-03_rb, 4.52666E-03_rb, 4.29098E-04_rb, 2.50225E-05_rb/)
+      irradnceo(:,5) = (/ &
+        & 6.78269E-02_rb, 2.13269E-01_rb, 3.35259E-01_rb, 3.66552E-01_rb,&
+        & 3.23942E-01_rb, 4.07399E-01_rb, 3.94248E-01_rb, 3.96335E-01_rb,&
+        & 2.06213E-01_rb, 1.22173E-02_rb, 1.93984E-02_rb, 2.09580E-02_rb,&
+        & 1.69318E-02_rb, 6.73835E-03_rb, 4.41490E-03_rb, 6.59772E-04_rb/)
+! Solar variability components: facular brightening
+      facbrghto(:,1) = (/ &
+        & 8.91083E-03_rb, 6.84443E-03_rb, 5.71469E-03_rb, 5.25886E-03_rb,&
+        & 4.01843E-03_rb, 2.67863E-03_rb, 1.59003E-03_rb, 8.87707E-04_rb,&
+        & 5.72727E-04_rb, 6.26858E-05_rb, 5.74131E-05_rb, 6.48884E-05_rb,&
+        & 6.39183E-05_rb, 3.43302E-05_rb, 6.57289E-06_rb, 7.60560E-07_rb/)
+      facbrghto(:,2) = (/ &
+        & 8.88183E-03_rb, 6.66773E-03_rb, 5.86794E-03_rb, 5.27225E-03_rb,&
+        & 4.02998E-03_rb, 2.67997E-03_rb, 1.56721E-03_rb, 8.93159E-04_rb,&
+        & 5.83728E-04_rb, 6.65573E-05_rb, 6.50616E-05_rb, 7.87391E-05_rb,&
+        & 6.92540E-05_rb, 3.60978E-05_rb, 6.64994E-06_rb, 7.60560E-07_rb/)
+      facbrghto(:,3) = (/ &
+        & 6.11926E-03_rb, 5.51093E-03_rb, 4.62766E-03_rb, 4.06813E-03_rb,&
+        & 2.78474E-03_rb, 3.40403E-03_rb, 4.40433E-03_rb, 3.16526E-03_rb,&
+        & 2.06720E-03_rb, 2.09998E-04_rb, 1.62499E-04_rb, 1.15738E-04_rb,&
+        & 7.98177E-05_rb, 3.98628E-05_rb, 6.71483E-06_rb, 7.60560E-07_rb/)
+      facbrghto(:,4) = (/ &
+        & 2.62789E-03_rb, 3.34884E-03_rb, 5.04289E-03_rb, 5.14489E-03_rb,&
+        & 4.60744E-03_rb, 5.03800E-03_rb, 4.80652E-03_rb, 3.25168E-03_rb,&
+        & 2.13730E-03_rb, 2.58043E-04_rb, 2.01417E-04_rb, 1.45555E-04_rb,&
+        & 9.88475E-05_rb, 4.86660E-05_rb, 8.18188E-06_rb, 7.60560E-07_rb/)
+      facbrghto(:,5) = (/ &
+        & 2.20399E-03_rb, 3.63851E-03_rb, 5.03885E-03_rb, 5.20542E-03_rb,&
+        & 4.63369E-03_rb, 4.70843E-03_rb, 4.98380E-03_rb, 3.37138E-03_rb,&
+        & 2.11721E-03_rb, 2.36018E-04_rb, 2.07222E-04_rb, 1.77129E-04_rb,&
+        & 1.28754E-04_rb, 8.20221E-05_rb, 3.02731E-05_rb, 4.21246E-06_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:,1) = (/ &
+        &-5.28062E-04_rb,-2.83597E-04_rb,-2.32372E-04_rb,-2.58747E-04_rb,&
+        &-1.91129E-04_rb,-1.29449E-04_rb,-3.25204E-05_rb,-1.69400E-05_rb,&
+        &-9.74093E-06_rb,-1.07835E-06_rb,-1.26181E-06_rb,-2.16314E-06_rb,&
+        &-2.57283E-06_rb,-1.15279E-06_rb,-1.31837E-07_rb,-1.17475E-08_rb/)
+      snsptdrko(:,2) = (/ &
+        &-5.21927E-04_rb,-2.63106E-04_rb,-2.58798E-04_rb,-2.57869E-04_rb,&
+        &-1.90618E-04_rb,-1.29638E-04_rb,-3.16669E-05_rb,-1.72816E-05_rb,&
+        &-9.80625E-06_rb,-1.25641E-06_rb,-1.72169E-06_rb,-2.93885E-06_rb,&
+        &-2.90100E-06_rb,-1.25317E-06_rb,-1.35435E-07_rb,-1.17475E-08_rb/)
+      snsptdrko(:,3) = (/ &
+        &-3.03741E-04_rb,-2.48916E-04_rb,-1.90259E-04_rb,-1.78690E-04_rb,&
+        &-8.33300E-05_rb,-1.30190E-04_rb,-2.53327E-04_rb,-1.64656E-04_rb,&
+        &-1.09880E-04_rb,-1.02412E-05_rb,-7.43813E-06_rb,-5.12766E-06_rb,&
+        &-3.52154E-06_rb,-1.46242E-06_rb,-1.39075E-07_rb,-1.17475E-08_rb/)
+      snsptdrko(:,4) = (/ &
+        &-8.43784E-05_rb,-1.13485E-04_rb,-2.46730E-04_rb,-2.48497E-04_rb,&
+        &-1.70458E-04_rb,-2.32354E-04_rb,-2.22118E-04_rb,-2.02538E-04_rb,&
+        &-1.26094E-04_rb,-1.77229E-05_rb,-1.22901E-05_rb,-7.39728E-06_rb,&
+        &-4.64782E-06_rb,-1.99994E-06_rb,-2.08533E-07_rb,-1.17475E-08_rb/)
+      snsptdrko(:,5) = (/ &
+        &-3.75562E-05_rb,-1.51520E-04_rb,-2.45761E-04_rb,-2.53296E-04_rb,&
+        &-1.73440E-04_rb,-2.17299E-04_rb,-2.00193E-04_rb,-2.27638E-04_rb,&
+        &-1.25297E-04_rb,-1.37708E-05_rb,-1.37472E-05_rb,-1.33481E-05_rb,&
+        &-9.51791E-06_rb,-6.06035E-06_rb,-2.18137E-06_rb,-3.03847E-07_rb/)
+
+! Rayleigh extinction coefficient at v = ????? cm-1.
+      rayl = 2.02e-05_rb
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1, 1) = (/ &
+        & 0.46447e+02_rb,0.18001e+03_rb,0.31338e+03_rb,0.44652e+03_rb,0.54636e+03_rb, &
+        & 0.54173e+03_rb,0.45707e+03_rb,0.27363e+03_rb,0.35000e+02_rb /)
+      kao(:, 2, 1, 1) = (/ &
+        & 0.45270e+02_rb,0.17886e+03_rb,0.31225e+03_rb,0.44541e+03_rb,0.54177e+03_rb, &
+        & 0.53436e+03_rb,0.44932e+03_rb,0.26748e+03_rb,0.35000e+02_rb /)
+      kao(:, 3, 1, 1) = (/ &
+        & 0.44214e+02_rb,0.17776e+03_rb,0.31115e+03_rb,0.44427e+03_rb,0.53733e+03_rb, &
+        & 0.52756e+03_rb,0.44224e+03_rb,0.26195e+03_rb,0.35000e+02_rb /)
+      kao(:, 4, 1, 1) = (/ &
+        & 0.43259e+02_rb,0.17673e+03_rb,0.31005e+03_rb,0.44305e+03_rb,0.53298e+03_rb, &
+        & 0.52129e+03_rb,0.43574e+03_rb,0.25696e+03_rb,0.35000e+02_rb /)
+      kao(:, 5, 1, 1) = (/ &
+        & 0.42393e+02_rb,0.17575e+03_rb,0.30896e+03_rb,0.44173e+03_rb,0.52883e+03_rb, &
+        & 0.51548e+03_rb,0.42976e+03_rb,0.25242e+03_rb,0.35000e+02_rb /)
+      kao(:, 1, 2, 1) = (/ &
+        & 0.42908e+02_rb,0.17695e+03_rb,0.31077e+03_rb,0.44434e+03_rb,0.53161e+03_rb, &
+        & 0.51895e+03_rb,0.43332e+03_rb,0.25512e+03_rb,0.35000e+02_rb /)
+      kao(:, 2, 2, 1) = (/ &
+        & 0.41899e+02_rb,0.17596e+03_rb,0.30980e+03_rb,0.44336e+03_rb,0.52686e+03_rb, &
+        & 0.51213e+03_rb,0.42632e+03_rb,0.24984e+03_rb,0.35000e+02_rb /)
+      kao(:, 3, 2, 1) = (/ &
+        & 0.40995e+02_rb,0.17502e+03_rb,0.30884e+03_rb,0.44232e+03_rb,0.52230e+03_rb, &
+        & 0.50592e+03_rb,0.41995e+03_rb,0.24511e+03_rb,0.35000e+02_rb /)
+      kao(:, 4, 2, 1) = (/ &
+        & 0.40181e+02_rb,0.17412e+03_rb,0.30788e+03_rb,0.44119e+03_rb,0.51785e+03_rb, &
+        & 0.50025e+03_rb,0.41414e+03_rb,0.24085e+03_rb,0.35000e+02_rb /)
+      kao(:, 5, 2, 1) = (/ &
+        & 0.39443e+02_rb,0.17326e+03_rb,0.30691e+03_rb,0.43992e+03_rb,0.51364e+03_rb, &
+        & 0.49503e+03_rb,0.40882e+03_rb,0.23699e+03_rb,0.35000e+02_rb /)
+      kao(:, 1, 3, 1) = (/ &
+        & 0.40126e+02_rb,0.17457e+03_rb,0.30876e+03_rb,0.44248e+03_rb,0.51755e+03_rb, &
+        & 0.49986e+03_rb,0.41375e+03_rb,0.24056e+03_rb,0.35000e+02_rb /)
+      kao(:, 2, 3, 1) = (/ &
+        & 0.39240e+02_rb,0.17370e+03_rb,0.30792e+03_rb,0.44146e+03_rb,0.51254e+03_rb, &
+        & 0.49358e+03_rb,0.40735e+03_rb,0.23593e+03_rb,0.35000e+02_rb /)
+      kao(:, 3, 3, 1) = (/ &
+        & 0.38450e+02_rb,0.17288e+03_rb,0.30708e+03_rb,0.44031e+03_rb,0.50793e+03_rb, &
+        & 0.48786e+03_rb,0.40155e+03_rb,0.23179e+03_rb,0.35000e+02_rb /)
+      kao(:, 4, 3, 1) = (/ &
+        & 0.37740e+02_rb,0.17210e+03_rb,0.30624e+03_rb,0.43908e+03_rb,0.50368e+03_rb, &
+        & 0.48264e+03_rb,0.39629e+03_rb,0.22808e+03_rb,0.35000e+02_rb /)
+      kao(:, 5, 3, 1) = (/ &
+        & 0.37099e+02_rb,0.17134e+03_rb,0.30539e+03_rb,0.43781e+03_rb,0.49975e+03_rb, &
+        & 0.47787e+03_rb,0.39149e+03_rb,0.22473e+03_rb,0.35000e+02_rb /)
+      kao(:, 1, 4, 1) = (/ &
+        & 0.37818e+02_rb,0.17258e+03_rb,0.30708e+03_rb,0.43967e+03_rb,0.50412e+03_rb, &
+        & 0.48321e+03_rb,0.39687e+03_rb,0.22848e+03_rb,0.35000e+02_rb /)
+      kao(:, 2, 4, 1) = (/ &
+        & 0.37034e+02_rb,0.17183e+03_rb,0.30636e+03_rb,0.43833e+03_rb,0.49935e+03_rb, &
+        & 0.47738e+03_rb,0.39100e+03_rb,0.22439e+03_rb,0.35000e+02_rb /)
+      kao(:, 3, 4, 1) = (/ &
+        & 0.36338e+02_rb,0.17111e+03_rb,0.30564e+03_rb,0.43700e+03_rb,0.49496e+03_rb, &
+        & 0.47212e+03_rb,0.38572e+03_rb,0.22075e+03_rb,0.35000e+02_rb /)
+      kao(:, 4, 4, 1) = (/ &
+        & 0.35716e+02_rb,0.17043e+03_rb,0.30491e+03_rb,0.43569e+03_rb,0.49094e+03_rb, &
+        & 0.46732e+03_rb,0.38094e+03_rb,0.21749e+03_rb,0.35000e+02_rb /)
+      kao(:, 5, 4, 1) = (/ &
+        & 0.35156e+02_rb,0.16977e+03_rb,0.30416e+03_rb,0.43437e+03_rb,0.48726e+03_rb, &
+        & 0.46294e+03_rb,0.37660e+03_rb,0.21456e+03_rb,0.35000e+02_rb /)
+      kao(:, 1, 5, 1) = (/ &
+        & 0.35857e+02_rb,0.17089e+03_rb,0.30563e+03_rb,0.43619e+03_rb,0.49186e+03_rb, &
+        & 0.46841e+03_rb,0.38202e+03_rb,0.21822e+03_rb,0.35000e+02_rb /)
+      kao(:, 2, 5, 1) = (/ &
+        & 0.35163e+02_rb,0.17023e+03_rb,0.30502e+03_rb,0.43478e+03_rb,0.48731e+03_rb, &
+        & 0.46300e+03_rb,0.37666e+03_rb,0.21460e+03_rb,0.35000e+02_rb /)
+      kao(:, 3, 5, 1) = (/ &
+        & 0.34550e+02_rb,0.16961e+03_rb,0.30441e+03_rb,0.43332e+03_rb,0.48321e+03_rb, &
+        & 0.45813e+03_rb,0.37186e+03_rb,0.21139e+03_rb,0.35000e+02_rb /)
+      kao(:, 4, 5, 1) = (/ &
+        & 0.34004e+02_rb,0.16902e+03_rb,0.30378e+03_rb,0.43194e+03_rb,0.47950e+03_rb, &
+        & 0.45375e+03_rb,0.36755e+03_rb,0.20853e+03_rb,0.35000e+02_rb /)
+      kao(:, 5, 5, 1) = (/ &
+        & 0.33514e+02_rb,0.16844e+03_rb,0.30312e+03_rb,0.43058e+03_rb,0.47611e+03_rb, &
+        & 0.44977e+03_rb,0.36365e+03_rb,0.20597e+03_rb,0.35000e+02_rb /)
+      kao(:, 1, 6, 1) = (/ &
+        & 0.34212e+02_rb,0.16946e+03_rb,0.30440e+03_rb,0.43247e+03_rb,0.48092e+03_rb, &
+        & 0.45542e+03_rb,0.36920e+03_rb,0.20962e+03_rb,0.35000e+02_rb /)
+      kao(:, 2, 6, 1) = (/ &
+        & 0.33595e+02_rb,0.16889e+03_rb,0.30389e+03_rb,0.43093e+03_rb,0.47667e+03_rb, &
+        & 0.45043e+03_rb,0.36430e+03_rb,0.20639e+03_rb,0.35000e+02_rb /)
+      kao(:, 3, 6, 1) = (/ &
+        & 0.33052e+02_rb,0.16835e+03_rb,0.30337e+03_rb,0.42946e+03_rb,0.47287e+03_rb, &
+        & 0.44599e+03_rb,0.35993e+03_rb,0.20355e+03_rb,0.35000e+02_rb /)
+      kao(:, 4, 6, 1) = (/ &
+        & 0.32571e+02_rb,0.16784e+03_rb,0.30283e+03_rb,0.42807e+03_rb,0.46947e+03_rb, &
+        & 0.44201e+03_rb,0.35602e+03_rb,0.20103e+03_rb,0.35000e+02_rb /)
+      kao(:, 5, 6, 1) = (/ &
+        & 0.32141e+02_rb,0.16733e+03_rb,0.30227e+03_rb,0.42674e+03_rb,0.46640e+03_rb, &
+        & 0.43842e+03_rb,0.35250e+03_rb,0.19879e+03_rb,0.35000e+02_rb /)
+      kao(:, 1, 7, 1) = (/ &
+        & 0.32812e+02_rb,0.16823e+03_rb,0.30334e+03_rb,0.42859e+03_rb,0.47118e+03_rb, &
+        & 0.44401e+03_rb,0.35799e+03_rb,0.20230e+03_rb,0.35000e+02_rb /)
+      kao(:, 2, 7, 1) = (/ &
+        & 0.32263e+02_rb,0.16774e+03_rb,0.30291e+03_rb,0.42708e+03_rb,0.46727e+03_rb, &
+        & 0.43944e+03_rb,0.35350e+03_rb,0.19942e+03_rb,0.35000e+02_rb /)
+      kao(:, 3, 7, 1) = (/ &
+        & 0.31782e+02_rb,0.16728e+03_rb,0.30248e+03_rb,0.42558e+03_rb,0.46381e+03_rb, &
+        & 0.43539e+03_rb,0.34954e+03_rb,0.19691e+03_rb,0.35000e+02_rb /)
+      kao(:, 4, 7, 1) = (/ &
+        & 0.31357e+02_rb,0.16683e+03_rb,0.30203e+03_rb,0.42413e+03_rb,0.46069e+03_rb, &
+        & 0.43177e+03_rb,0.34599e+03_rb,0.19468e+03_rb,0.35000e+02_rb /)
+      kao(:, 5, 7, 1) = (/ &
+        & 0.30980e+02_rb,0.16640e+03_rb,0.30154e+03_rb,0.42276e+03_rb,0.45787e+03_rb, &
+        & 0.42852e+03_rb,0.34280e+03_rb,0.19271e+03_rb,0.35000e+02_rb /)
+      kao(:, 1, 8, 1) = (/ &
+        & 0.31614e+02_rb,0.16716e+03_rb,0.30239e+03_rb,0.42473e+03_rb,0.46259e+03_rb, &
+        & 0.43397e+03_rb,0.34814e+03_rb,0.19603e+03_rb,0.35000e+02_rb /)
+      kao(:, 2, 8, 1) = (/ &
+        & 0.31125e+02_rb,0.16674e+03_rb,0.30206e+03_rb,0.42311e+03_rb,0.45896e+03_rb, &
+        & 0.42978e+03_rb,0.34403e+03_rb,0.19347e+03_rb,0.35000e+02_rb /)
+      kao(:, 3, 8, 1) = (/ &
+        & 0.30699e+02_rb,0.16635e+03_rb,0.30170e+03_rb,0.42163e+03_rb,0.45573e+03_rb, &
+        & 0.42608e+03_rb,0.34039e+03_rb,0.19124e+03_rb,0.35000e+02_rb /)
+      kao(:, 4, 8, 1) = (/ &
+        & 0.30325e+02_rb,0.16597e+03_rb,0.30133e+03_rb,0.42027e+03_rb,0.45286e+03_rb, &
+        & 0.42281e+03_rb,0.33716e+03_rb,0.18928e+03_rb,0.35000e+02_rb /)
+      kao(:, 5, 8, 1) = (/ &
+        & 0.29993e+02_rb,0.16559e+03_rb,0.30092e+03_rb,0.41901e+03_rb,0.45030e+03_rb, &
+        & 0.41988e+03_rb,0.33427e+03_rb,0.18755e+03_rb,0.35000e+02_rb /)
+      kao(:, 1, 9, 1) = (/ &
+        & 0.30594e+02_rb,0.16624e+03_rb,0.30156e+03_rb,0.42087e+03_rb,0.45493e+03_rb, &
+        & 0.42517e+03_rb,0.33949e+03_rb,0.19069e+03_rb,0.35000e+02_rb /)
+      kao(:, 2, 9, 1) = (/ &
+        & 0.30158e+02_rb,0.16589e+03_rb,0.30131e+03_rb,0.41937e+03_rb,0.45157e+03_rb, &
+        & 0.42134e+03_rb,0.33570e+03_rb,0.18841e+03_rb,0.35000e+02_rb /)
+      kao(:, 3, 9, 1) = (/ &
+        & 0.29780e+02_rb,0.16556e+03_rb,0.30103e+03_rb,0.41800e+03_rb,0.44864e+03_rb, &
+        & 0.41799e+03_rb,0.33239e+03_rb,0.18643e+03_rb,0.35000e+02_rb /)
+      kao(:, 4, 9, 1) = (/ &
+        & 0.29450e+02_rb,0.16523e+03_rb,0.30072e+03_rb,0.41674e+03_rb,0.44606e+03_rb, &
+        & 0.41504e+03_rb,0.32946e+03_rb,0.18471e+03_rb,0.35000e+02_rb /)
+      kao(:, 5, 9, 1) = (/ &
+        & 0.29159e+02_rb,0.16491e+03_rb,0.30039e+03_rb,0.41557e+03_rb,0.44377e+03_rb, &
+        & 0.41242e+03_rb,0.32686e+03_rb,0.18318e+03_rb,0.35000e+02_rb /)
+      kao(:, 1,10, 1) = (/ &
+        & 0.29691e+02_rb,0.16541e+03_rb,0.30081e+03_rb,0.41722e+03_rb,0.44795e+03_rb, &
+        & 0.41720e+03_rb,0.33160e+03_rb,0.18597e+03_rb,0.35000e+02_rb /)
+      kao(:, 2,10, 1) = (/ &
+        & 0.29307e+02_rb,0.16512e+03_rb,0.30063e+03_rb,0.41581e+03_rb,0.44493e+03_rb, &
+        & 0.41375e+03_rb,0.32818e+03_rb,0.18396e+03_rb,0.35000e+02_rb /)
+      kao(:, 3,10, 1) = (/ &
+        & 0.28975e+02_rb,0.16485e+03_rb,0.30042e+03_rb,0.41454e+03_rb,0.44231e+03_rb, &
+        & 0.41076e+03_rb,0.32520e+03_rb,0.18222e+03_rb,0.35000e+02_rb /)
+      kao(:, 4,10, 1) = (/ &
+        & 0.28687e+02_rb,0.16458e+03_rb,0.30018e+03_rb,0.41340e+03_rb,0.44002e+03_rb, &
+        & 0.40814e+03_rb,0.32259e+03_rb,0.18071e+03_rb,0.35000e+02_rb /)
+      kao(:, 5,10, 1) = (/ &
+        & 0.28434e+02_rb,0.16431e+03_rb,0.29989e+03_rb,0.41235e+03_rb,0.43799e+03_rb, &
+        & 0.40583e+03_rb,0.32028e+03_rb,0.17939e+03_rb,0.35000e+02_rb /)
+      kao(:, 1,11, 1) = (/ &
+        & 0.28760e+02_rb,0.16459e+03_rb,0.30010e+03_rb,0.41321e+03_rb,0.44060e+03_rb, &
+        & 0.40880e+03_rb,0.32325e+03_rb,0.18109e+03_rb,0.35000e+02_rb /)
+      kao(:, 2,11, 1) = (/ &
+        & 0.28444e+02_rb,0.16436e+03_rb,0.29997e+03_rb,0.41200e+03_rb,0.43807e+03_rb, &
+        & 0.40592e+03_rb,0.32038e+03_rb,0.17944e+03_rb,0.35000e+02_rb /)
+      kao(:, 3,11, 1) = (/ &
+        & 0.28173e+02_rb,0.16414e+03_rb,0.29981e+03_rb,0.41092e+03_rb,0.43587e+03_rb, &
+        & 0.40342e+03_rb,0.31788e+03_rb,0.17802e+03_rb,0.35000e+02_rb /)
+      kao(:, 4,11, 1) = (/ &
+        & 0.27937e+02_rb,0.16392e+03_rb,0.29960e+03_rb,0.40994e+03_rb,0.43395e+03_rb, &
+        & 0.40124e+03_rb,0.31570e+03_rb,0.17679e+03_rb,0.35000e+02_rb /)
+      kao(:, 5,11, 1) = (/ &
+        & 0.27730e+02_rb,0.16369e+03_rb,0.29936e+03_rb,0.40905e+03_rb,0.43224e+03_rb, &
+        & 0.39931e+03_rb,0.31377e+03_rb,0.17571e+03_rb,0.35000e+02_rb /)
+      kao(:, 1,12, 1) = (/ &
+        & 0.27995e+02_rb,0.16391e+03_rb,0.29951e+03_rb,0.40970e+03_rb,0.43443e+03_rb, &
+        & 0.40178e+03_rb,0.31624e+03_rb,0.17709e+03_rb,0.35000e+02_rb /)
+      kao(:, 2,12, 1) = (/ &
+        & 0.27737e+02_rb,0.16374e+03_rb,0.29943e+03_rb,0.40869e+03_rb,0.43230e+03_rb, &
+        & 0.39938e+03_rb,0.31384e+03_rb,0.17574e+03_rb,0.35000e+02_rb /)
+      kao(:, 3,12, 1) = (/ &
+        & 0.27515e+02_rb,0.16356e+03_rb,0.29930e+03_rb,0.40779e+03_rb,0.43046e+03_rb, &
+        & 0.39730e+03_rb,0.31176e+03_rb,0.17458e+03_rb,0.35000e+02_rb /)
+      kao(:, 4,12, 1) = (/ &
+        & 0.27322e+02_rb,0.16338e+03_rb,0.29913e+03_rb,0.40697e+03_rb,0.42883e+03_rb, &
+        & 0.39548e+03_rb,0.30994e+03_rb,0.17357e+03_rb,0.35000e+02_rb /)
+      kao(:, 5,12, 1) = (/ &
+        & 0.27152e+02_rb,0.16318e+03_rb,0.29892e+03_rb,0.40622e+03_rb,0.42740e+03_rb, &
+        & 0.39387e+03_rb,0.30834e+03_rb,0.17268e+03_rb,0.35000e+02_rb /)
+      kao(:, 1,13, 1) = (/ &
+        & 0.27369e+02_rb,0.16336e+03_rb,0.29903e+03_rb,0.40671e+03_rb,0.42924e+03_rb, &
+        & 0.39593e+03_rb,0.31039e+03_rb,0.17382e+03_rb,0.35000e+02_rb /)
+      kao(:, 2,13, 1) = (/ &
+        & 0.27158e+02_rb,0.16323e+03_rb,0.29898e+03_rb,0.40587e+03_rb,0.42745e+03_rb, &
+        & 0.39393e+03_rb,0.30840e+03_rb,0.17271e+03_rb,0.35000e+02_rb /)
+      kao(:, 3,13, 1) = (/ &
+        & 0.26976e+02_rb,0.16309e+03_rb,0.29889e+03_rb,0.40513e+03_rb,0.42590e+03_rb, &
+        & 0.39221e+03_rb,0.30667e+03_rb,0.17176e+03_rb,0.35000e+02_rb /)
+      kao(:, 4,13, 1) = (/ &
+        & 0.26818e+02_rb,0.16293e+03_rb,0.29875e+03_rb,0.40445e+03_rb,0.42455e+03_rb, &
+        & 0.39070e+03_rb,0.30516e+03_rb,0.17093e+03_rb,0.35000e+02_rb /)
+      kao(:, 5,13, 1) = (/ &
+        & 0.26679e+02_rb,0.16276e+03_rb,0.29855e+03_rb,0.40381e+03_rb,0.42335e+03_rb, &
+        & 0.38937e+03_rb,0.30384e+03_rb,0.17021e+03_rb,0.35000e+02_rb /)
+      kao(:, 1, 1, 2) = (/ &
+        & 0.17271e+03_rb,0.27646e+03_rb,0.38039e+03_rb,0.48420e+03_rb,0.56932e+03_rb, &
+        & 0.57534e+03_rb,0.47873e+03_rb,0.28147e+03_rb,0.71840e+02_rb /)
+      kao(:, 2, 1, 2) = (/ &
+        & 0.16834e+03_rb,0.27246e+03_rb,0.37678e+03_rb,0.48091e+03_rb,0.56471e+03_rb, &
+        & 0.56734e+03_rb,0.47005e+03_rb,0.27593e+03_rb,0.71840e+02_rb /)
+      kao(:, 3, 1, 2) = (/ &
+        & 0.16441e+03_rb,0.26883e+03_rb,0.37341e+03_rb,0.47777e+03_rb,0.56037e+03_rb, &
+        & 0.56003e+03_rb,0.46210e+03_rb,0.27096e+03_rb,0.71840e+02_rb /)
+      kao(:, 4, 1, 2) = (/ &
+        & 0.16086e+03_rb,0.26548e+03_rb,0.37025e+03_rb,0.47479e+03_rb,0.55629e+03_rb, &
+        & 0.55327e+03_rb,0.45481e+03_rb,0.26647e+03_rb,0.71840e+02_rb /)
+      kao(:, 5, 1, 2) = (/ &
+        & 0.15764e+03_rb,0.26237e+03_rb,0.36725e+03_rb,0.47195e+03_rb,0.55235e+03_rb, &
+        & 0.54701e+03_rb,0.44810e+03_rb,0.26239e+03_rb,0.71840e+02_rb /)
+      kao(:, 1, 2, 2) = (/ &
+        & 0.15955e+03_rb,0.26500e+03_rb,0.37067e+03_rb,0.47595e+03_rb,0.55480e+03_rb, &
+        & 0.55074e+03_rb,0.45210e+03_rb,0.26482e+03_rb,0.71840e+02_rb /)
+      kao(:, 2, 2, 2) = (/ &
+        & 0.15580e+03_rb,0.26157e+03_rb,0.36756e+03_rb,0.47303e+03_rb,0.55028e+03_rb, &
+        & 0.54339e+03_rb,0.44423e+03_rb,0.26007e+03_rb,0.71840e+02_rb /)
+      kao(:, 3, 2, 2) = (/ &
+        & 0.15244e+03_rb,0.25844e+03_rb,0.36465e+03_rb,0.47023e+03_rb,0.54619e+03_rb, &
+        & 0.53664e+03_rb,0.43708e+03_rb,0.25581e+03_rb,0.71840e+02_rb /)
+      kao(:, 4, 2, 2) = (/ &
+        & 0.14941e+03_rb,0.25556e+03_rb,0.36191e+03_rb,0.46753e+03_rb,0.54253e+03_rb, &
+        & 0.53041e+03_rb,0.43052e+03_rb,0.25198e+03_rb,0.71840e+02_rb /)
+      kao(:, 5, 2, 2) = (/ &
+        & 0.14667e+03_rb,0.25289e+03_rb,0.35930e+03_rb,0.46494e+03_rb,0.53908e+03_rb, &
+        & 0.52470e+03_rb,0.42448e+03_rb,0.24851e+03_rb,0.71840e+02_rb /)
+      kao(:, 1, 3, 2) = (/ &
+        & 0.14921e+03_rb,0.25601e+03_rb,0.36308e+03_rb,0.46872e+03_rb,0.54234e+03_rb, &
+        & 0.52999e+03_rb,0.43007e+03_rb,0.25172e+03_rb,0.71840e+02_rb /)
+      kao(:, 2, 3, 2) = (/ &
+        & 0.14591e+03_rb,0.25301e+03_rb,0.36036e+03_rb,0.46599e+03_rb,0.53834e+03_rb, &
+        & 0.52313e+03_rb,0.42280e+03_rb,0.24755e+03_rb,0.71840e+02_rb /)
+      kao(:, 3, 3, 2) = (/ &
+        & 0.14297e+03_rb,0.25028e+03_rb,0.35782e+03_rb,0.46350e+03_rb,0.53459e+03_rb, &
+        & 0.51696e+03_rb,0.41619e+03_rb,0.24383e+03_rb,0.71840e+02_rb /)
+      kao(:, 4, 3, 2) = (/ &
+        & 0.14033e+03_rb,0.24777e+03_rb,0.35542e+03_rb,0.46116e+03_rb,0.53100e+03_rb, &
+        & 0.51122e+03_rb,0.41016e+03_rb,0.24049e+03_rb,0.71840e+02_rb /)
+      kao(:, 5, 3, 2) = (/ &
+        & 0.13795e+03_rb,0.24544e+03_rb,0.35313e+03_rb,0.45882e+03_rb,0.52751e+03_rb, &
+        & 0.50591e+03_rb,0.40463e+03_rb,0.23747e+03_rb,0.71840e+02_rb /)
+      kao(:, 1, 4, 2) = (/ &
+        & 0.14062e+03_rb,0.24856e+03_rb,0.35678e+03_rb,0.46260e+03_rb,0.53137e+03_rb, &
+        & 0.51186e+03_rb,0.41082e+03_rb,0.24086e+03_rb,0.71840e+02_rb /)
+      kao(:, 2, 4, 2) = (/ &
+        & 0.13771e+03_rb,0.24592e+03_rb,0.35440e+03_rb,0.46020e+03_rb,0.52732e+03_rb, &
+        & 0.50537e+03_rb,0.40407e+03_rb,0.23717e+03_rb,0.71840e+02_rb /)
+      kao(:, 3, 4, 2) = (/ &
+        & 0.13512e+03_rb,0.24353e+03_rb,0.35219e+03_rb,0.45796e+03_rb,0.52348e+03_rb, &
+        & 0.49954e+03_rb,0.39798e+03_rb,0.23389e+03_rb,0.71840e+02_rb /)
+      kao(:, 4, 4, 2) = (/ &
+        & 0.13281e+03_rb,0.24133e+03_rb,0.35008e+03_rb,0.45583e+03_rb,0.51985e+03_rb, &
+        & 0.49431e+03_rb,0.39246e+03_rb,0.23096e+03_rb,0.71840e+02_rb /)
+      kao(:, 5, 4, 2) = (/ &
+        & 0.13073e+03_rb,0.23928e+03_rb,0.34807e+03_rb,0.45378e+03_rb,0.51643e+03_rb, &
+        & 0.48957e+03_rb,0.38745e+03_rb,0.22833e+03_rb,0.71840e+02_rb /)
+      kao(:, 1, 5, 2) = (/ &
+        & 0.13333e+03_rb,0.24222e+03_rb,0.35141e+03_rb,0.45702e+03_rb,0.52057e+03_rb, &
+        & 0.49550e+03_rb,0.39372e+03_rb,0.23163e+03_rb,0.71840e+02_rb /)
+      kao(:, 2, 5, 2) = (/ &
+        & 0.13075e+03_rb,0.23990e+03_rb,0.34934e+03_rb,0.45476e+03_rb,0.51651e+03_rb, &
+        & 0.48963e+03_rb,0.38752e+03_rb,0.22836e+03_rb,0.71840e+02_rb /)
+      kao(:, 3, 5, 2) = (/ &
+        & 0.12847e+03_rb,0.23780e+03_rb,0.34741e+03_rb,0.45266e+03_rb,0.51271e+03_rb, &
+        & 0.48438e+03_rb,0.38196e+03_rb,0.22548e+03_rb,0.71840e+02_rb /)
+      kao(:, 4, 5, 2) = (/ &
+        & 0.12644e+03_rb,0.23588e+03_rb,0.34557e+03_rb,0.45066e+03_rb,0.50911e+03_rb, &
+        & 0.47962e+03_rb,0.37696e+03_rb,0.22291e+03_rb,0.71840e+02_rb /)
+      kao(:, 5, 5, 2) = (/ &
+        & 0.12462e+03_rb,0.23409e+03_rb,0.34381e+03_rb,0.44874e+03_rb,0.50570e+03_rb, &
+        & 0.47526e+03_rb,0.37245e+03_rb,0.22060e+03_rb,0.71840e+02_rb /)
+      kao(:, 1, 6, 2) = (/ &
+        & 0.12722e+03_rb,0.23690e+03_rb,0.34688e+03_rb,0.45177e+03_rb,0.51032e+03_rb, &
+        & 0.48144e+03_rb,0.37887e+03_rb,0.22389e+03_rb,0.71840e+02_rb /)
+      kao(:, 2, 6, 2) = (/ &
+        & 0.12492e+03_rb,0.23485e+03_rb,0.34508e+03_rb,0.44967e+03_rb,0.50620e+03_rb, &
+        & 0.47598e+03_rb,0.37319e+03_rb,0.22098e+03_rb,0.71840e+02_rb /)
+      kao(:, 3, 6, 2) = (/ &
+        & 0.12290e+03_rb,0.23301e+03_rb,0.34340e+03_rb,0.44769e+03_rb,0.50242e+03_rb, &
+        & 0.47108e+03_rb,0.36815e+03_rb,0.21843e+03_rb,0.71840e+02_rb /)
+      kao(:, 4, 6, 2) = (/ &
+        & 0.12111e+03_rb,0.23132e+03_rb,0.34180e+03_rb,0.44582e+03_rb,0.49894e+03_rb, &
+        & 0.46668e+03_rb,0.36363e+03_rb,0.21616e+03_rb,0.71840e+02_rb /)
+      kao(:, 5, 6, 2) = (/ &
+        & 0.11952e+03_rb,0.22976e+03_rb,0.34026e+03_rb,0.44407e+03_rb,0.49574e+03_rb, &
+        & 0.46270e+03_rb,0.35956e+03_rb,0.21414e+03_rb,0.71840e+02_rb /)
+      kao(:, 1, 7, 2) = (/ &
+        & 0.12201e+03_rb,0.23235e+03_rb,0.34300e+03_rb,0.44700e+03_rb,0.50054e+03_rb, &
+        & 0.46889e+03_rb,0.36590e+03_rb,0.21730e+03_rb,0.71840e+02_rb /)
+      kao(:, 2, 7, 2) = (/ &
+        & 0.11997e+03_rb,0.23055e+03_rb,0.34145e+03_rb,0.44492e+03_rb,0.49657e+03_rb, &
+        & 0.46383e+03_rb,0.36071e+03_rb,0.21471e+03_rb,0.71840e+02_rb /)
+      kao(:, 3, 7, 2) = (/ &
+        & 0.11818e+03_rb,0.22894e+03_rb,0.33999e+03_rb,0.44309e+03_rb,0.49292e+03_rb, &
+        & 0.45934e+03_rb,0.35613e+03_rb,0.21245e+03_rb,0.71840e+02_rb /)
+      kao(:, 4, 7, 2) = (/ &
+        & 0.11660e+03_rb,0.22746e+03_rb,0.33859e+03_rb,0.44146e+03_rb,0.48959e+03_rb, &
+        & 0.45533e+03_rb,0.35208e+03_rb,0.21045e+03_rb,0.71840e+02_rb /)
+      kao(:, 5, 7, 2) = (/ &
+        & 0.11520e+03_rb,0.22609e+03_rb,0.33724e+03_rb,0.43996e+03_rb,0.48657e+03_rb, &
+        & 0.45175e+03_rb,0.34847e+03_rb,0.20867e+03_rb,0.71840e+02_rb /)
+      kao(:, 1, 8, 2) = (/ &
+        & 0.11756e+03_rb,0.22844e+03_rb,0.33965e+03_rb,0.44261e+03_rb,0.49147e+03_rb, &
+        & 0.45776e+03_rb,0.35454e+03_rb,0.21166e+03_rb,0.71840e+02_rb /)
+      kao(:, 2, 8, 2) = (/ &
+        & 0.11574e+03_rb,0.22687e+03_rb,0.33830e+03_rb,0.44082e+03_rb,0.48767e+03_rb, &
+        & 0.45313e+03_rb,0.34986e+03_rb,0.20936e+03_rb,0.71840e+02_rb /)
+      kao(:, 3, 8, 2) = (/ &
+        & 0.11415e+03_rb,0.22546e+03_rb,0.33704e+03_rb,0.43915e+03_rb,0.48429e+03_rb, &
+        & 0.44908e+03_rb,0.34579e+03_rb,0.20735e+03_rb,0.71840e+02_rb /)
+      kao(:, 4, 8, 2) = (/ &
+        & 0.11276e+03_rb,0.22417e+03_rb,0.33584e+03_rb,0.43758e+03_rb,0.48126e+03_rb, &
+        & 0.44549e+03_rb,0.34220e+03_rb,0.20559e+03_rb,0.71840e+02_rb /)
+      kao(:, 5, 8, 2) = (/ &
+        & 0.11153e+03_rb,0.22298e+03_rb,0.33466e+03_rb,0.43617e+03_rb,0.47855e+03_rb, &
+        & 0.44228e+03_rb,0.33902e+03_rb,0.20403e+03_rb,0.71840e+02_rb /)
+      kao(:, 1, 9, 2) = (/ &
+        & 0.11376e+03_rb,0.22510e+03_rb,0.33674e+03_rb,0.43882e+03_rb,0.48336e+03_rb, &
+        & 0.44807e+03_rb,0.34479e+03_rb,0.20686e+03_rb,0.71840e+02_rb /)
+      kao(:, 2, 9, 2) = (/ &
+        & 0.11214e+03_rb,0.22372e+03_rb,0.33559e+03_rb,0.43706e+03_rb,0.47989e+03_rb, &
+        & 0.44388e+03_rb,0.34060e+03_rb,0.20480e+03_rb,0.71840e+02_rb /)
+      kao(:, 3, 9, 2) = (/ &
+        & 0.11074e+03_rb,0.22250e+03_rb,0.33451e+03_rb,0.43547e+03_rb,0.47679e+03_rb, &
+        & 0.44020e+03_rb,0.33697e+03_rb,0.20303e+03_rb,0.71840e+02_rb /)
+      kao(:, 4, 9, 2) = (/ &
+        & 0.10951e+03_rb,0.22138e+03_rb,0.33348e+03_rb,0.43404e+03_rb,0.47404e+03_rb, &
+        & 0.43694e+03_rb,0.33379e+03_rb,0.20147e+03_rb,0.71840e+02_rb /)
+      kao(:, 5, 9, 2) = (/ &
+        & 0.10843e+03_rb,0.22034e+03_rb,0.33246e+03_rb,0.43277e+03_rb,0.47159e+03_rb, &
+        & 0.43405e+03_rb,0.33096e+03_rb,0.20010e+03_rb,0.71840e+02_rb /)
+      kao(:, 1,10, 2) = (/ &
+        & 0.11041e+03_rb,0.22214e+03_rb,0.33414e+03_rb,0.43517e+03_rb,0.47604e+03_rb, &
+        & 0.43932e+03_rb,0.33611e+03_rb,0.20261e+03_rb,0.71840e+02_rb /)
+      kao(:, 2,10, 2) = (/ &
+        & 0.10898e+03_rb,0.22095e+03_rb,0.33317e+03_rb,0.43358e+03_rb,0.47283e+03_rb, &
+        & 0.43552e+03_rb,0.33239e+03_rb,0.20080e+03_rb,0.71840e+02_rb /)
+      kao(:, 3,10, 2) = (/ &
+        & 0.10774e+03_rb,0.21989e+03_rb,0.33226e+03_rb,0.43213e+03_rb,0.47002e+03_rb, &
+        & 0.43222e+03_rb,0.32917e+03_rb,0.19924e+03_rb,0.71840e+02_rb /)
+      kao(:, 4,10, 2) = (/ &
+        & 0.10667e+03_rb,0.21893e+03_rb,0.33139e+03_rb,0.43083e+03_rb,0.46753e+03_rb, &
+        & 0.42932e+03_rb,0.32634e+03_rb,0.19788e+03_rb,0.71840e+02_rb /)
+      kao(:, 5,10, 2) = (/ &
+        & 0.10573e+03_rb,0.21803e+03_rb,0.33053e+03_rb,0.42965e+03_rb,0.46532e+03_rb, &
+        & 0.42677e+03_rb,0.32386e+03_rb,0.19669e+03_rb,0.71840e+02_rb /)
+      kao(:, 1,11, 2) = (/ &
+        & 0.10694e+03_rb,0.21911e+03_rb,0.33152e+03_rb,0.43127e+03_rb,0.46816e+03_rb, &
+        & 0.43005e+03_rb,0.32706e+03_rb,0.19822e+03_rb,0.71840e+02_rb /)
+      kao(:, 2,11, 2) = (/ &
+        & 0.10577e+03_rb,0.21815e+03_rb,0.33074e+03_rb,0.42984e+03_rb,0.46541e+03_rb, &
+        & 0.42687e+03_rb,0.32396e+03_rb,0.19674e+03_rb,0.71840e+02_rb /)
+      kao(:, 3,11, 2) = (/ &
+        & 0.10476e+03_rb,0.21728e+03_rb,0.33000e+03_rb,0.42855e+03_rb,0.46301e+03_rb, &
+        & 0.42411e+03_rb,0.32130e+03_rb,0.19546e+03_rb,0.71840e+02_rb /)
+      kao(:, 4,11, 2) = (/ &
+        & 0.10388e+03_rb,0.21649e+03_rb,0.32928e+03_rb,0.42741e+03_rb,0.46089e+03_rb, &
+        & 0.42169e+03_rb,0.31897e+03_rb,0.19435e+03_rb,0.71840e+02_rb /)
+      kao(:, 5,11, 2) = (/ &
+        & 0.10311e+03_rb,0.21575e+03_rb,0.32855e+03_rb,0.42639e+03_rb,0.45902e+03_rb, &
+        & 0.41954e+03_rb,0.31692e+03_rb,0.19338e+03_rb,0.71840e+02_rb /)
+      kao(:, 1,12, 2) = (/ &
+        & 0.10410e+03_rb,0.21663e+03_rb,0.32937e+03_rb,0.42778e+03_rb,0.46141e+03_rb, &
+        & 0.42229e+03_rb,0.31955e+03_rb,0.19463e+03_rb,0.71840e+02_rb /)
+      kao(:, 2,12, 2) = (/ &
+        & 0.10314e+03_rb,0.21585e+03_rb,0.32875e+03_rb,0.42654e+03_rb,0.45909e+03_rb, &
+        & 0.41961e+03_rb,0.31700e+03_rb,0.19341e+03_rb,0.71840e+02_rb /)
+      kao(:, 3,12, 2) = (/ &
+        & 0.10231e+03_rb,0.21515e+03_rb,0.32815e+03_rb,0.42544e+03_rb,0.45707e+03_rb, &
+        & 0.41729e+03_rb,0.31480e+03_rb,0.19236e+03_rb,0.71840e+02_rb /)
+      kao(:, 4,12, 2) = (/ &
+        & 0.10159e+03_rb,0.21449e+03_rb,0.32754e+03_rb,0.42445e+03_rb,0.45532e+03_rb, &
+        & 0.41526e+03_rb,0.31288e+03_rb,0.19145e+03_rb,0.71840e+02_rb /)
+      kao(:, 5,12, 2) = (/ &
+        & 0.10096e+03_rb,0.21387e+03_rb,0.32692e+03_rb,0.42356e+03_rb,0.45377e+03_rb, &
+        & 0.41347e+03_rb,0.31119e+03_rb,0.19066e+03_rb,0.71840e+02_rb /)
+      kao(:, 1,13, 2) = (/ &
+        & 0.10177e+03_rb,0.21460e+03_rb,0.32761e+03_rb,0.42475e+03_rb,0.45575e+03_rb, &
+        & 0.41576e+03_rb,0.31335e+03_rb,0.19168e+03_rb,0.71840e+02_rb /)
+      kao(:, 2,13, 2) = (/ &
+        & 0.10099e+03_rb,0.21397e+03_rb,0.32712e+03_rb,0.42368e+03_rb,0.45383e+03_rb, &
+        & 0.41353e+03_rb,0.31125e+03_rb,0.19068e+03_rb,0.71840e+02_rb /)
+      kao(:, 3,13, 2) = (/ &
+        & 0.10031e+03_rb,0.21340e+03_rb,0.32663e+03_rb,0.42272e+03_rb,0.45216e+03_rb, &
+        & 0.41160e+03_rb,0.30943e+03_rb,0.18983e+03_rb,0.71840e+02_rb /)
+      kao(:, 4,13, 2) = (/ &
+        & 0.99720e+02_rb,0.21286e+03_rb,0.32612e+03_rb,0.42187e+03_rb,0.45071e+03_rb, &
+        & 0.40991e+03_rb,0.30785e+03_rb,0.18908e+03_rb,0.71840e+02_rb /)
+      kao(:, 5,13, 2) = (/ &
+        & 0.99204e+02_rb,0.21233e+03_rb,0.32558e+03_rb,0.42112e+03_rb,0.44942e+03_rb, &
+        & 0.40842e+03_rb,0.30646e+03_rb,0.18843e+03_rb,0.71840e+02_rb /)
+      kao(:, 1, 1, 3) = (/ &
+        & 0.44909e+03_rb,0.47445e+03_rb,0.49981e+03_rb,0.52556e+03_rb,0.59352e+03_rb, &
+        & 0.63011e+03_rb,0.50440e+03_rb,0.31793e+03_rb,0.17829e+03_rb /)
+      kao(:, 2, 1, 3) = (/ &
+        & 0.43771e+03_rb,0.46449e+03_rb,0.49128e+03_rb,0.51852e+03_rb,0.58982e+03_rb, &
+        & 0.62155e+03_rb,0.49364e+03_rb,0.31383e+03_rb,0.17829e+03_rb /)
+      kao(:, 3, 1, 3) = (/ &
+        & 0.42749e+03_rb,0.45555e+03_rb,0.48362e+03_rb,0.51220e+03_rb,0.58623e+03_rb, &
+        & 0.61324e+03_rb,0.48379e+03_rb,0.31014e+03_rb,0.17829e+03_rb /)
+      kao(:, 4, 1, 3) = (/ &
+        & 0.41826e+03_rb,0.44748e+03_rb,0.47670e+03_rb,0.50650e+03_rb,0.58281e+03_rb, &
+        & 0.60555e+03_rb,0.47483e+03_rb,0.30681e+03_rb,0.17829e+03_rb /)
+      kao(:, 5, 1, 3) = (/ &
+        & 0.40989e+03_rb,0.44015e+03_rb,0.47042e+03_rb,0.50132e+03_rb,0.57944e+03_rb, &
+        & 0.59846e+03_rb,0.46657e+03_rb,0.30379e+03_rb,0.17829e+03_rb /)
+      kao(:, 1, 2, 3) = (/ &
+        & 0.41487e+03_rb,0.44451e+03_rb,0.47415e+03_rb,0.50447e+03_rb,0.58410e+03_rb, &
+        & 0.60269e+03_rb,0.47150e+03_rb,0.30559e+03_rb,0.17829e+03_rb /)
+      kao(:, 2, 2, 3) = (/ &
+        & 0.40511e+03_rb,0.43597e+03_rb,0.46683e+03_rb,0.49854e+03_rb,0.58056e+03_rb, &
+        & 0.59434e+03_rb,0.46181e+03_rb,0.30207e+03_rb,0.17829e+03_rb /)
+      kao(:, 3, 2, 3) = (/ &
+        & 0.39637e+03_rb,0.42832e+03_rb,0.46028e+03_rb,0.49326e+03_rb,0.57701e+03_rb, &
+        & 0.58648e+03_rb,0.45298e+03_rb,0.29892e+03_rb,0.17829e+03_rb /)
+      kao(:, 4, 2, 3) = (/ &
+        & 0.38850e+03_rb,0.42143e+03_rb,0.45437e+03_rb,0.48855e+03_rb,0.57350e+03_rb, &
+        & 0.57914e+03_rb,0.44500e+03_rb,0.29608e+03_rb,0.17829e+03_rb /)
+      kao(:, 5, 2, 3) = (/ &
+        & 0.38136e+03_rb,0.41519e+03_rb,0.44902e+03_rb,0.48433e+03_rb,0.57004e+03_rb, &
+        & 0.57245e+03_rb,0.43774e+03_rb,0.29351e+03_rb,0.17829e+03_rb /)
+      kao(:, 1, 3, 3) = (/ &
+        & 0.38797e+03_rb,0.42097e+03_rb,0.45397e+03_rb,0.48897e+03_rb,0.57508e+03_rb, &
+        & 0.57865e+03_rb,0.44446e+03_rb,0.29589e+03_rb,0.17829e+03_rb /)
+      kao(:, 2, 3, 3) = (/ &
+        & 0.37940e+03_rb,0.41348e+03_rb,0.44755e+03_rb,0.48416e+03_rb,0.57138e+03_rb, &
+        & 0.57059e+03_rb,0.43573e+03_rb,0.29280e+03_rb,0.17829e+03_rb /)
+      kao(:, 3, 3, 3) = (/ &
+        & 0.37176e+03_rb,0.40679e+03_rb,0.44182e+03_rb,0.47985e+03_rb,0.56781e+03_rb, &
+        & 0.56324e+03_rb,0.42791e+03_rb,0.29005e+03_rb,0.17829e+03_rb /)
+      kao(:, 4, 3, 3) = (/ &
+        & 0.36490e+03_rb,0.40078e+03_rb,0.43667e+03_rb,0.47599e+03_rb,0.56436e+03_rb, &
+        & 0.55656e+03_rb,0.42088e+03_rb,0.28757e+03_rb,0.17829e+03_rb /)
+      kao(:, 5, 3, 3) = (/ &
+        & 0.35870e+03_rb,0.39536e+03_rb,0.43202e+03_rb,0.47253e+03_rb,0.56109e+03_rb, &
+        & 0.55041e+03_rb,0.41448e+03_rb,0.28534e+03_rb,0.17829e+03_rb /)
+      kao(:, 1, 4, 3) = (/ &
+        & 0.36565e+03_rb,0.40144e+03_rb,0.43723e+03_rb,0.47759e+03_rb,0.56581e+03_rb, &
+        & 0.55729e+03_rb,0.42164e+03_rb,0.28784e+03_rb,0.17829e+03_rb /)
+      kao(:, 2, 4, 3) = (/ &
+        & 0.35808e+03_rb,0.39482e+03_rb,0.43155e+03_rb,0.47386e+03_rb,0.56215e+03_rb, &
+        & 0.54978e+03_rb,0.41381e+03_rb,0.28511e+03_rb,0.17829e+03_rb /)
+      kao(:, 3, 4, 3) = (/ &
+        & 0.35135e+03_rb,0.38893e+03_rb,0.42651e+03_rb,0.47052e+03_rb,0.55875e+03_rb, &
+        & 0.54295e+03_rb,0.40683e+03_rb,0.28269e+03_rb,0.17829e+03_rb /)
+      kao(:, 4, 4, 3) = (/ &
+        & 0.34533e+03_rb,0.38366e+03_rb,0.42199e+03_rb,0.46746e+03_rb,0.55555e+03_rb, &
+        & 0.53669e+03_rb,0.40055e+03_rb,0.28052e+03_rb,0.17829e+03_rb /)
+      kao(:, 5, 4, 3) = (/ &
+        & 0.33991e+03_rb,0.37892e+03_rb,0.41793e+03_rb,0.46467e+03_rb,0.55244e+03_rb, &
+        & 0.53093e+03_rb,0.39488e+03_rb,0.27856e+03_rb,0.17829e+03_rb /)
+      kao(:, 1, 5, 3) = (/ &
+        & 0.34669e+03_rb,0.38485e+03_rb,0.42301e+03_rb,0.46943e+03_rb,0.55667e+03_rb, &
+        & 0.53812e+03_rb,0.40197e+03_rb,0.28101e+03_rb,0.17829e+03_rb /)
+      kao(:, 2, 5, 3) = (/ &
+        & 0.33999e+03_rb,0.37899e+03_rb,0.41799e+03_rb,0.46662e+03_rb,0.55311e+03_rb, &
+        & 0.53101e+03_rb,0.39496e+03_rb,0.27859e+03_rb,0.17829e+03_rb /)
+      kao(:, 3, 5, 3) = (/ &
+        & 0.33406e+03_rb,0.37380e+03_rb,0.41354e+03_rb,0.46416e+03_rb,0.54976e+03_rb, &
+        & 0.52459e+03_rb,0.38873e+03_rb,0.27645e+03_rb,0.17829e+03_rb /)
+      kao(:, 4, 5, 3) = (/ &
+        & 0.32878e+03_rb,0.36918e+03_rb,0.40958e+03_rb,0.46185e+03_rb,0.54671e+03_rb, &
+        & 0.51881e+03_rb,0.38326e+03_rb,0.27455e+03_rb,0.17829e+03_rb /)
+      kao(:, 5, 5, 3) = (/ &
+        & 0.32404e+03_rb,0.36503e+03_rb,0.40603e+03_rb,0.45969e+03_rb,0.54395e+03_rb, &
+        & 0.51356e+03_rb,0.37844e+03_rb,0.27284e+03_rb,0.17829e+03_rb /)
+      kao(:, 1, 6, 3) = (/ &
+        & 0.33079e+03_rb,0.37094e+03_rb,0.41109e+03_rb,0.46395e+03_rb,0.54790e+03_rb, &
+        & 0.52101e+03_rb,0.38534e+03_rb,0.27527e+03_rb,0.17829e+03_rb /)
+      kao(:, 2, 6, 3) = (/ &
+        & 0.32482e+03_rb,0.36572e+03_rb,0.40662e+03_rb,0.46188e+03_rb,0.54448e+03_rb, &
+        & 0.51443e+03_rb,0.37923e+03_rb,0.27312e+03_rb,0.17829e+03_rb /)
+      kao(:, 3, 6, 3) = (/ &
+        & 0.31958e+03_rb,0.36113e+03_rb,0.40268e+03_rb,0.45998e+03_rb,0.54143e+03_rb, &
+        & 0.50857e+03_rb,0.37397e+03_rb,0.27123e+03_rb,0.17829e+03_rb /)
+      kao(:, 4, 6, 3) = (/ &
+        & 0.31492e+03_rb,0.35705e+03_rb,0.39919e+03_rb,0.45816e+03_rb,0.53866e+03_rb, &
+        & 0.50335e+03_rb,0.36939e+03_rb,0.26955e+03_rb,0.17829e+03_rb /)
+      kao(:, 5, 6, 3) = (/ &
+        & 0.31076e+03_rb,0.35342e+03_rb,0.39607e+03_rb,0.45638e+03_rb,0.53611e+03_rb, &
+        & 0.49868e+03_rb,0.36537e+03_rb,0.26805e+03_rb,0.17829e+03_rb /)
+      kao(:, 1, 7, 3) = (/ &
+        & 0.31725e+03_rb,0.35910e+03_rb,0.40094e+03_rb,0.45992e+03_rb,0.53978e+03_rb, &
+        & 0.50597e+03_rb,0.37168e+03_rb,0.27039e+03_rb,0.17829e+03_rb /)
+      kao(:, 2, 7, 3) = (/ &
+        & 0.31194e+03_rb,0.35445e+03_rb,0.39695e+03_rb,0.45835e+03_rb,0.53664e+03_rb, &
+        & 0.50000e+03_rb,0.36650e+03_rb,0.26848e+03_rb,0.17829e+03_rb /)
+      kao(:, 3, 7, 3) = (/ &
+        & 0.30729e+03_rb,0.35038e+03_rb,0.39347e+03_rb,0.45686e+03_rb,0.53383e+03_rb, &
+        & 0.49465e+03_rb,0.36205e+03_rb,0.26680e+03_rb,0.17829e+03_rb /)
+      kao(:, 4, 7, 3) = (/ &
+        & 0.30318e+03_rb,0.34679e+03_rb,0.39040e+03_rb,0.45536e+03_rb,0.53125e+03_rb, &
+        & 0.48979e+03_rb,0.35818e+03_rb,0.26532e+03_rb,0.17829e+03_rb /)
+      kao(:, 5, 7, 3) = (/ &
+        & 0.29953e+03_rb,0.34359e+03_rb,0.38767e+03_rb,0.45383e+03_rb,0.52882e+03_rb, &
+        & 0.48543e+03_rb,0.35479e+03_rb,0.26401e+03_rb,0.17829e+03_rb /)
+      kao(:, 1, 8, 3) = (/ &
+        & 0.30567e+03_rb,0.34896e+03_rb,0.39226e+03_rb,0.45673e+03_rb,0.53243e+03_rb, &
+        & 0.49274e+03_rb,0.36052e+03_rb,0.26622e+03_rb,0.17829e+03_rb /)
+      kao(:, 2, 8, 3) = (/ &
+        & 0.30094e+03_rb,0.34482e+03_rb,0.38872e+03_rb,0.45541e+03_rb,0.52945e+03_rb, &
+        & 0.48711e+03_rb,0.35609e+03_rb,0.26451e+03_rb,0.17829e+03_rb /)
+      kao(:, 3, 8, 3) = (/ &
+        & 0.29682e+03_rb,0.34122e+03_rb,0.38564e+03_rb,0.45413e+03_rb,0.52674e+03_rb, &
+        & 0.48217e+03_rb,0.35231e+03_rb,0.26303e+03_rb,0.17829e+03_rb /)
+      kao(:, 4, 8, 3) = (/ &
+        & 0.29320e+03_rb,0.33805e+03_rb,0.38294e+03_rb,0.45285e+03_rb,0.52426e+03_rb, &
+        & 0.47779e+03_rb,0.34904e+03_rb,0.26172e+03_rb,0.17829e+03_rb /)
+      kao(:, 5, 8, 3) = (/ &
+        & 0.29000e+03_rb,0.33525e+03_rb,0.38055e+03_rb,0.45152e+03_rb,0.52191e+03_rb, &
+        & 0.47388e+03_rb,0.34618e+03_rb,0.26057e+03_rb,0.17829e+03_rb /)
+      kao(:, 1, 9, 3) = (/ &
+        & 0.29581e+03_rb,0.34033e+03_rb,0.38489e+03_rb,0.45387e+03_rb,0.52555e+03_rb, &
+        & 0.48095e+03_rb,0.35139e+03_rb,0.26266e+03_rb,0.17829e+03_rb /)
+      kao(:, 2, 9, 3) = (/ &
+        & 0.29159e+03_rb,0.33664e+03_rb,0.38173e+03_rb,0.45277e+03_rb,0.52268e+03_rb, &
+        & 0.47582e+03_rb,0.34759e+03_rb,0.26114e+03_rb,0.17829e+03_rb /)
+      kao(:, 3, 9, 3) = (/ &
+        & 0.28794e+03_rb,0.33344e+03_rb,0.37901e+03_rb,0.45167e+03_rb,0.52008e+03_rb, &
+        & 0.47135e+03_rb,0.34436e+03_rb,0.25982e+03_rb,0.17829e+03_rb /)
+      kao(:, 4, 9, 3) = (/ &
+        & 0.28475e+03_rb,0.33065e+03_rb,0.37663e+03_rb,0.45055e+03_rb,0.51765e+03_rb, &
+        & 0.46738e+03_rb,0.34157e+03_rb,0.25867e+03_rb,0.17829e+03_rb /)
+      kao(:, 5, 9, 3) = (/ &
+        & 0.28193e+03_rb,0.32819e+03_rb,0.37453e+03_rb,0.44937e+03_rb,0.51538e+03_rb, &
+        & 0.46382e+03_rb,0.33916e+03_rb,0.25766e+03_rb,0.17829e+03_rb /)
+      kao(:, 1,10, 3) = (/ &
+        & 0.28708e+03_rb,0.33269e+03_rb,0.37836e+03_rb,0.45121e+03_rb,0.51885e+03_rb, &
+        & 0.47029e+03_rb,0.34361e+03_rb,0.25951e+03_rb,0.17829e+03_rb /)
+      kao(:, 2,10, 3) = (/ &
+        & 0.28336e+03_rb,0.32944e+03_rb,0.37559e+03_rb,0.45027e+03_rb,0.51611e+03_rb, &
+        & 0.46563e+03_rb,0.34037e+03_rb,0.25817e+03_rb,0.17829e+03_rb /)
+      kao(:, 3,10, 3) = (/ &
+        & 0.28016e+03_rb,0.32664e+03_rb,0.37320e+03_rb,0.44932e+03_rb,0.51361e+03_rb, &
+        & 0.46153e+03_rb,0.33765e+03_rb,0.25702e+03_rb,0.17829e+03_rb /)
+      kao(:, 4,10, 3) = (/ &
+        & 0.27737e+03_rb,0.32420e+03_rb,0.37112e+03_rb,0.44835e+03_rb,0.51133e+03_rb, &
+        & 0.45793e+03_rb,0.33532e+03_rb,0.25601e+03_rb,0.17829e+03_rb /)
+      kao(:, 5,10, 3) = (/ &
+        & 0.27492e+03_rb,0.32206e+03_rb,0.36930e+03_rb,0.44735e+03_rb,0.50922e+03_rb, &
+        & 0.45473e+03_rb,0.33330e+03_rb,0.25513e+03_rb,0.17829e+03_rb /)
+      kao(:, 1,11, 3) = (/ &
+        & 0.27807e+03_rb,0.32481e+03_rb,0.37164e+03_rb,0.44842e+03_rb,0.51141e+03_rb, &
+        & 0.45884e+03_rb,0.33590e+03_rb,0.25627e+03_rb,0.17829e+03_rb /)
+      kao(:, 2,11, 3) = (/ &
+        & 0.27502e+03_rb,0.32214e+03_rb,0.36937e+03_rb,0.44764e+03_rb,0.50894e+03_rb, &
+        & 0.45486e+03_rb,0.33338e+03_rb,0.25517e+03_rb,0.17829e+03_rb /)
+      kao(:, 3,11, 3) = (/ &
+        & 0.27240e+03_rb,0.31985e+03_rb,0.36742e+03_rb,0.44685e+03_rb,0.50671e+03_rb, &
+        & 0.45139e+03_rb,0.33123e+03_rb,0.25422e+03_rb,0.17829e+03_rb /)
+      kao(:, 4,11, 3) = (/ &
+        & 0.27012e+03_rb,0.31785e+03_rb,0.36572e+03_rb,0.44602e+03_rb,0.50464e+03_rb, &
+        & 0.44836e+03_rb,0.32939e+03_rb,0.25340e+03_rb,0.17829e+03_rb /)
+      kao(:, 5,11, 3) = (/ &
+        & 0.26811e+03_rb,0.31610e+03_rb,0.36422e+03_rb,0.44514e+03_rb,0.50273e+03_rb, &
+        & 0.44569e+03_rb,0.32779e+03_rb,0.25268e+03_rb,0.17829e+03_rb /)
+      kao(:, 1,12, 3) = (/ &
+        & 0.27068e+03_rb,0.31834e+03_rb,0.36613e+03_rb,0.44605e+03_rb,0.50476e+03_rb, &
+        & 0.44911e+03_rb,0.32983e+03_rb,0.25360e+03_rb,0.17829e+03_rb /)
+      kao(:, 2,12, 3) = (/ &
+        & 0.26818e+03_rb,0.31616e+03_rb,0.36428e+03_rb,0.44539e+03_rb,0.50255e+03_rb, &
+        & 0.44579e+03_rb,0.32784e+03_rb,0.25270e+03_rb,0.17829e+03_rb /)
+      kao(:, 3,12, 3) = (/ &
+        & 0.26603e+03_rb,0.31428e+03_rb,0.36268e+03_rb,0.44471e+03_rb,0.50054e+03_rb, &
+        & 0.44293e+03_rb,0.32614e+03_rb,0.25193e+03_rb,0.17829e+03_rb /)
+      kao(:, 4,12, 3) = (/ &
+        & 0.26417e+03_rb,0.31264e+03_rb,0.36129e+03_rb,0.44399e+03_rb,0.49874e+03_rb, &
+        & 0.44043e+03_rb,0.32468e+03_rb,0.25125e+03_rb,0.17829e+03_rb /)
+      kao(:, 5,12, 3) = (/ &
+        & 0.26252e+03_rb,0.31121e+03_rb,0.36005e+03_rb,0.44322e+03_rb,0.49710e+03_rb, &
+        & 0.43824e+03_rb,0.32341e+03_rb,0.25066e+03_rb,0.17829e+03_rb /)
+      kao(:, 1,13, 3) = (/ &
+        & 0.26463e+03_rb,0.31305e+03_rb,0.36163e+03_rb,0.44400e+03_rb,0.49889e+03_rb, &
+        & 0.44105e+03_rb,0.32504e+03_rb,0.25142e+03_rb,0.17829e+03_rb /)
+      kao(:, 2,13, 3) = (/ &
+        & 0.26258e+03_rb,0.31126e+03_rb,0.36010e+03_rb,0.44348e+03_rb,0.49698e+03_rb, &
+        & 0.43831e+03_rb,0.32345e+03_rb,0.25068e+03_rb,0.17829e+03_rb /)
+      kao(:, 3,13, 3) = (/ &
+        & 0.26082e+03_rb,0.30972e+03_rb,0.35880e+03_rb,0.44291e+03_rb,0.49519e+03_rb, &
+        & 0.43595e+03_rb,0.32210e+03_rb,0.25005e+03_rb,0.17829e+03_rb /)
+      kao(:, 4,13, 3) = (/ &
+        & 0.25929e+03_rb,0.30838e+03_rb,0.35766e+03_rb,0.44229e+03_rb,0.49360e+03_rb, &
+        & 0.43388e+03_rb,0.32093e+03_rb,0.24950e+03_rb,0.17829e+03_rb /)
+      kao(:, 5,13, 3) = (/ &
+        & 0.25795e+03_rb,0.30721e+03_rb,0.35666e+03_rb,0.44160e+03_rb,0.49217e+03_rb, &
+        & 0.43204e+03_rb,0.31991e+03_rb,0.24901e+03_rb,0.17829e+03_rb /)
+      kao(:, 1, 1, 4) = (/ &
+        & 0.86913e+03_rb,0.80389e+03_rb,0.73864e+03_rb,0.67339e+03_rb,0.62239e+03_rb, &
+        & 0.67741e+03_rb,0.51596e+03_rb,0.43641e+03_rb,0.38437e+03_rb /)
+      kao(:, 2, 1, 4) = (/ &
+        & 0.84711e+03_rb,0.78462e+03_rb,0.72212e+03_rb,0.65963e+03_rb,0.61530e+03_rb, &
+        & 0.66963e+03_rb,0.50564e+03_rb,0.43387e+03_rb,0.38437e+03_rb /)
+      kao(:, 3, 1, 4) = (/ &
+        & 0.82734e+03_rb,0.76731e+03_rb,0.70729e+03_rb,0.64727e+03_rb,0.60932e+03_rb, &
+        & 0.66251e+03_rb,0.49688e+03_rb,0.43160e+03_rb,0.38437e+03_rb /)
+      kao(:, 4, 1, 4) = (/ &
+        & 0.80948e+03_rb,0.75169e+03_rb,0.69390e+03_rb,0.63611e+03_rb,0.60420e+03_rb, &
+        & 0.65531e+03_rb,0.48930e+03_rb,0.42954e+03_rb,0.38437e+03_rb /)
+      kao(:, 5, 1, 4) = (/ &
+        & 0.79327e+03_rb,0.73751e+03_rb,0.68174e+03_rb,0.62598e+03_rb,0.59980e+03_rb, &
+        & 0.64776e+03_rb,0.48275e+03_rb,0.42767e+03_rb,0.38437e+03_rb /)
+      kao(:, 1, 2, 4) = (/ &
+        & 0.80291e+03_rb,0.74594e+03_rb,0.68897e+03_rb,0.63200e+03_rb,0.60547e+03_rb, &
+        & 0.65273e+03_rb,0.48660e+03_rb,0.42878e+03_rb,0.38437e+03_rb /)
+      kao(:, 2, 2, 4) = (/ &
+        & 0.78403e+03_rb,0.72942e+03_rb,0.67481e+03_rb,0.62020e+03_rb,0.60133e+03_rb, &
+        & 0.64384e+03_rb,0.47915e+03_rb,0.42661e+03_rb,0.38437e+03_rb /)
+      kao(:, 3, 2, 4) = (/ &
+        & 0.76711e+03_rb,0.71462e+03_rb,0.66212e+03_rb,0.60962e+03_rb,0.59788e+03_rb, &
+        & 0.63506e+03_rb,0.47284e+03_rb,0.42466e+03_rb,0.38437e+03_rb /)
+      kao(:, 4, 2, 4) = (/ &
+        & 0.75187e+03_rb,0.70128e+03_rb,0.65069e+03_rb,0.60010e+03_rb,0.59472e+03_rb, &
+        & 0.62679e+03_rb,0.46742e+03_rb,0.42291e+03_rb,0.38437e+03_rb /)
+      kao(:, 5, 2, 4) = (/ &
+        & 0.73807e+03_rb,0.68920e+03_rb,0.64034e+03_rb,0.59147e+03_rb,0.59165e+03_rb, &
+        & 0.61864e+03_rb,0.46272e+03_rb,0.42132e+03_rb,0.38437e+03_rb /)
+      kao(:, 1, 3, 4) = (/ &
+        & 0.75084e+03_rb,0.70038e+03_rb,0.64992e+03_rb,0.59946e+03_rb,0.59732e+03_rb, &
+        & 0.62621e+03_rb,0.46707e+03_rb,0.42279e+03_rb,0.38437e+03_rb /)
+      kao(:, 2, 3, 4) = (/ &
+        & 0.73427e+03_rb,0.68588e+03_rb,0.63749e+03_rb,0.58910e+03_rb,0.59435e+03_rb, &
+        & 0.61627e+03_rb,0.46147e+03_rb,0.42088e+03_rb,0.38437e+03_rb /)
+      kao(:, 3, 3, 4) = (/ &
+        & 0.71948e+03_rb,0.67294e+03_rb,0.62640e+03_rb,0.57986e+03_rb,0.59145e+03_rb, &
+        & 0.60690e+03_rb,0.45675e+03_rb,0.41918e+03_rb,0.38437e+03_rb /)
+      kao(:, 4, 3, 4) = (/ &
+        & 0.70620e+03_rb,0.66132e+03_rb,0.61644e+03_rb,0.57156e+03_rb,0.58863e+03_rb, &
+        & 0.59842e+03_rb,0.45269e+03_rb,0.41765e+03_rb,0.38437e+03_rb /)
+      kao(:, 5, 3, 4) = (/ &
+        & 0.69421e+03_rb,0.65083e+03_rb,0.60744e+03_rb,0.56406e+03_rb,0.58580e+03_rb, &
+        & 0.59032e+03_rb,0.44923e+03_rb,0.41627e+03_rb,0.38437e+03_rb /)
+      kao(:, 1, 4, 4) = (/ &
+        & 0.70765e+03_rb,0.66259e+03_rb,0.61753e+03_rb,0.57246e+03_rb,0.59114e+03_rb, &
+        & 0.59936e+03_rb,0.45313e+03_rb,0.41781e+03_rb,0.38437e+03_rb /)
+      kao(:, 2, 4, 4) = (/ &
+        & 0.69300e+03_rb,0.64977e+03_rb,0.60654e+03_rb,0.56330e+03_rb,0.58834e+03_rb, &
+        & 0.58949e+03_rb,0.44892e+03_rb,0.41613e+03_rb,0.38437e+03_rb /)
+      kao(:, 3, 4, 4) = (/ &
+        & 0.67997e+03_rb,0.63837e+03_rb,0.59677e+03_rb,0.55516e+03_rb,0.58563e+03_rb, &
+        & 0.58057e+03_rb,0.44538e+03_rb,0.41463e+03_rb,0.38437e+03_rb /)
+      kao(:, 4, 4, 4) = (/ &
+        & 0.66833e+03_rb,0.62818e+03_rb,0.58803e+03_rb,0.54788e+03_rb,0.58292e+03_rb, &
+        & 0.57257e+03_rb,0.44238e+03_rb,0.41329e+03_rb,0.38437e+03_rb /)
+      kao(:, 5, 4, 4) = (/ &
+        & 0.65784e+03_rb,0.61901e+03_rb,0.58017e+03_rb,0.54133e+03_rb,0.58031e+03_rb, &
+        & 0.56522e+03_rb,0.43982e+03_rb,0.41208e+03_rb,0.38437e+03_rb /)
+      kao(:, 1, 5, 4) = (/ &
+        & 0.67096e+03_rb,0.63048e+03_rb,0.59001e+03_rb,0.54953e+03_rb,0.58521e+03_rb, &
+        & 0.57438e+03_rb,0.44304e+03_rb,0.41359e+03_rb,0.38437e+03_rb /)
+      kao(:, 2, 5, 4) = (/ &
+        & 0.65799e+03_rb,0.61913e+03_rb,0.58028e+03_rb,0.54142e+03_rb,0.58256e+03_rb, &
+        & 0.56532e+03_rb,0.43984e+03_rb,0.41210e+03_rb,0.38437e+03_rb /)
+      kao(:, 3, 5, 4) = (/ &
+        & 0.64651e+03_rb,0.60909e+03_rb,0.57167e+03_rb,0.53427e+03_rb,0.57997e+03_rb, &
+        & 0.55705e+03_rb,0.43718e+03_rb,0.41077e+03_rb,0.38437e+03_rb /)
+      kao(:, 4, 5, 4) = (/ &
+        & 0.63629e+03_rb,0.60015e+03_rb,0.56401e+03_rb,0.52793e+03_rb,0.57742e+03_rb, &
+        & 0.54959e+03_rb,0.43482e+03_rb,0.40960e+03_rb,0.38437e+03_rb /)
+      kao(:, 5, 5, 4) = (/ &
+        & 0.62713e+03_rb,0.59213e+03_rb,0.55713e+03_rb,0.52227e+03_rb,0.57480e+03_rb, &
+        & 0.54282e+03_rb,0.43271e+03_rb,0.40854e+03_rb,0.38437e+03_rb /)
+      kao(:, 1, 6, 4) = (/ &
+        & 0.64019e+03_rb,0.60356e+03_rb,0.56693e+03_rb,0.53034e+03_rb,0.57955e+03_rb, &
+        & 0.55244e+03_rb,0.43572e+03_rb,0.41005e+03_rb,0.38437e+03_rb /)
+      kao(:, 2, 6, 4) = (/ &
+        & 0.62864e+03_rb,0.59346e+03_rb,0.55827e+03_rb,0.52321e+03_rb,0.57700e+03_rb, &
+        & 0.54395e+03_rb,0.43306e+03_rb,0.40872e+03_rb,0.38437e+03_rb /)
+      kao(:, 3, 6, 4) = (/ &
+        & 0.61849e+03_rb,0.58457e+03_rb,0.55065e+03_rb,0.51703e+03_rb,0.57439e+03_rb, &
+        & 0.53634e+03_rb,0.43072e+03_rb,0.40755e+03_rb,0.38437e+03_rb /)
+      kao(:, 4, 6, 4) = (/ &
+        & 0.60948e+03_rb,0.57669e+03_rb,0.54390e+03_rb,0.51158e+03_rb,0.57170e+03_rb, &
+        & 0.52946e+03_rb,0.42865e+03_rb,0.40651e+03_rb,0.38437e+03_rb /)
+      kao(:, 5, 6, 4) = (/ &
+        & 0.60143e+03_rb,0.56965e+03_rb,0.53786e+03_rb,0.50675e+03_rb,0.56897e+03_rb, &
+        & 0.52321e+03_rb,0.42679e+03_rb,0.40558e+03_rb,0.38437e+03_rb /)
+      kao(:, 1, 7, 4) = (/ &
+        & 0.61399e+03_rb,0.58064e+03_rb,0.54728e+03_rb,0.51440e+03_rb,0.57380e+03_rb, &
+        & 0.53292e+03_rb,0.42969e+03_rb,0.40703e+03_rb,0.38437e+03_rb /)
+      kao(:, 2, 7, 4) = (/ &
+        & 0.60371e+03_rb,0.57164e+03_rb,0.53957e+03_rb,0.50828e+03_rb,0.57103e+03_rb, &
+        & 0.52498e+03_rb,0.42732e+03_rb,0.40585e+03_rb,0.38437e+03_rb /)
+      kao(:, 3, 7, 4) = (/ &
+        & 0.59471e+03_rb,0.56376e+03_rb,0.53282e+03_rb,0.50302e+03_rb,0.56836e+03_rb, &
+        & 0.51802e+03_rb,0.42525e+03_rb,0.40481e+03_rb,0.38437e+03_rb /)
+      kao(:, 4, 7, 4) = (/ &
+        & 0.58676e+03_rb,0.55681e+03_rb,0.52686e+03_rb,0.49842e+03_rb,0.56580e+03_rb, &
+        & 0.51197e+03_rb,0.42342e+03_rb,0.40389e+03_rb,0.38437e+03_rb /)
+      kao(:, 5, 7, 4) = (/ &
+        & 0.57970e+03_rb,0.55063e+03_rb,0.52156e+03_rb,0.49437e+03_rb,0.56333e+03_rb, &
+        & 0.50656e+03_rb,0.42179e+03_rb,0.40308e+03_rb,0.38437e+03_rb /)
+      kao(:, 1, 8, 4) = (/ &
+        & 0.59158e+03_rb,0.56102e+03_rb,0.53047e+03_rb,0.50136e+03_rb,0.56762e+03_rb, &
+        & 0.51564e+03_rb,0.42452e+03_rb,0.40445e+03_rb,0.38437e+03_rb /)
+      kao(:, 2, 8, 4) = (/ &
+        & 0.58242e+03_rb,0.55301e+03_rb,0.52360e+03_rb,0.49623e+03_rb,0.56499e+03_rb, &
+        & 0.50866e+03_rb,0.42242e+03_rb,0.40339e+03_rb,0.38437e+03_rb /)
+      kao(:, 3, 8, 4) = (/ &
+        & 0.57445e+03_rb,0.54604e+03_rb,0.51762e+03_rb,0.49188e+03_rb,0.56245e+03_rb, &
+        & 0.50238e+03_rb,0.42058e+03_rb,0.40248e+03_rb,0.38437e+03_rb /)
+      kao(:, 4, 8, 4) = (/ &
+        & 0.56745e+03_rb,0.53991e+03_rb,0.51237e+03_rb,0.48811e+03_rb,0.55998e+03_rb, &
+        & 0.49675e+03_rb,0.41897e+03_rb,0.40167e+03_rb,0.38437e+03_rb /)
+      kao(:, 5, 8, 4) = (/ &
+        & 0.56125e+03_rb,0.53448e+03_rb,0.50772e+03_rb,0.48477e+03_rb,0.55757e+03_rb, &
+        & 0.49178e+03_rb,0.41754e+03_rb,0.40096e+03_rb,0.38437e+03_rb /)
+      kao(:, 1, 9, 4) = (/ &
+        & 0.57249e+03_rb,0.54432e+03_rb,0.51615e+03_rb,0.49103e+03_rb,0.56159e+03_rb, &
+        & 0.50080e+03_rb,0.42013e+03_rb,0.40225e+03_rb,0.38437e+03_rb /)
+      kao(:, 2, 9, 4) = (/ &
+        & 0.56432e+03_rb,0.53718e+03_rb,0.51003e+03_rb,0.48678e+03_rb,0.55899e+03_rb, &
+        & 0.49424e+03_rb,0.41825e+03_rb,0.40131e+03_rb,0.38437e+03_rb /)
+      kao(:, 3, 9, 4) = (/ &
+        & 0.55726e+03_rb,0.53099e+03_rb,0.50473e+03_rb,0.48321e+03_rb,0.55650e+03_rb, &
+        & 0.48858e+03_rb,0.41662e+03_rb,0.40050e+03_rb,0.38437e+03_rb /)
+      kao(:, 4, 9, 4) = (/ &
+        & 0.55108e+03_rb,0.52559e+03_rb,0.50010e+03_rb,0.48011e+03_rb,0.55416e+03_rb, &
+        & 0.48367e+03_rb,0.41520e+03_rb,0.39978e+03_rb,0.38437e+03_rb /)
+      kao(:, 5, 9, 4) = (/ &
+        & 0.54564e+03_rb,0.52083e+03_rb,0.49601e+03_rb,0.47737e+03_rb,0.55194e+03_rb, &
+        & 0.47938e+03_rb,0.41394e+03_rb,0.39916e+03_rb,0.38437e+03_rb /)
+      kao(:, 1,10, 4) = (/ &
+        & 0.55559e+03_rb,0.52954e+03_rb,0.50348e+03_rb,0.48256e+03_rb,0.55544e+03_rb, &
+        & 0.48725e+03_rb,0.41624e+03_rb,0.40030e+03_rb,0.38437e+03_rb /)
+      kao(:, 2,10, 4) = (/ &
+        & 0.54839e+03_rb,0.52324e+03_rb,0.49808e+03_rb,0.47910e+03_rb,0.55295e+03_rb, &
+        & 0.48155e+03_rb,0.41458e+03_rb,0.39948e+03_rb,0.38437e+03_rb /)
+      kao(:, 3,10, 4) = (/ &
+        & 0.54220e+03_rb,0.51781e+03_rb,0.49343e+03_rb,0.47621e+03_rb,0.55067e+03_rb, &
+        & 0.47667e+03_rb,0.41315e+03_rb,0.39876e+03_rb,0.38437e+03_rb /)
+      kao(:, 4,10, 4) = (/ &
+        & 0.53680e+03_rb,0.51310e+03_rb,0.48939e+03_rb,0.47371e+03_rb,0.54855e+03_rb, &
+        & 0.47238e+03_rb,0.41191e+03_rb,0.39814e+03_rb,0.38437e+03_rb /)
+      kao(:, 5,10, 4) = (/ &
+        & 0.53207e+03_rb,0.50895e+03_rb,0.48584e+03_rb,0.47148e+03_rb,0.54655e+03_rb, &
+        & 0.46857e+03_rb,0.41082e+03_rb,0.39760e+03_rb,0.38437e+03_rb /)
+      kao(:, 1,11, 4) = (/ &
+        & 0.53816e+03_rb,0.51428e+03_rb,0.49041e+03_rb,0.47455e+03_rb,0.54857e+03_rb, &
+        & 0.47346e+03_rb,0.41222e+03_rb,0.39830e+03_rb,0.38437e+03_rb /)
+      kao(:, 2,11, 4) = (/ &
+        & 0.53226e+03_rb,0.50912e+03_rb,0.48598e+03_rb,0.47200e+03_rb,0.54640e+03_rb, &
+        & 0.46874e+03_rb,0.41086e+03_rb,0.39762e+03_rb,0.38437e+03_rb /)
+      kao(:, 3,11, 4) = (/ &
+        & 0.52718e+03_rb,0.50468e+03_rb,0.48217e+03_rb,0.46982e+03_rb,0.54436e+03_rb, &
+        & 0.46486e+03_rb,0.40969e+03_rb,0.39703e+03_rb,0.38437e+03_rb /)
+      kao(:, 4,11, 4) = (/ &
+        & 0.52277e+03_rb,0.50081e+03_rb,0.47886e+03_rb,0.46790e+03_rb,0.54248e+03_rb, &
+        & 0.46109e+03_rb,0.40868e+03_rb,0.39652e+03_rb,0.38437e+03_rb /)
+      kao(:, 5,11, 4) = (/ &
+        & 0.51889e+03_rb,0.49742e+03_rb,0.47595e+03_rb,0.46618e+03_rb,0.54076e+03_rb, &
+        & 0.45793e+03_rb,0.40778e+03_rb,0.39608e+03_rb,0.38437e+03_rb /)
+      kao(:, 1,12, 4) = (/ &
+        & 0.52385e+03_rb,0.50177e+03_rb,0.47968e+03_rb,0.46863e+03_rb,0.54244e+03_rb, &
+        & 0.46202e+03_rb,0.40893e+03_rb,0.39665e+03_rb,0.38437e+03_rb /)
+      kao(:, 2,12, 4) = (/ &
+        & 0.51902e+03_rb,0.49754e+03_rb,0.47606e+03_rb,0.46673e+03_rb,0.54050e+03_rb, &
+        & 0.45805e+03_rb,0.40782e+03_rb,0.39609e+03_rb,0.38437e+03_rb /)
+      kao(:, 3,12, 4) = (/ &
+        & 0.51487e+03_rb,0.49390e+03_rb,0.47294e+03_rb,0.46509e+03_rb,0.53868e+03_rb, &
+        & 0.45465e+03_rb,0.40686e+03_rb,0.39561e+03_rb,0.38437e+03_rb /)
+      kao(:, 4,12, 4) = (/ &
+        & 0.51125e+03_rb,0.49074e+03_rb,0.47022e+03_rb,0.46362e+03_rb,0.53703e+03_rb, &
+        & 0.45171e+03_rb,0.40602e+03_rb,0.39520e+03_rb,0.38437e+03_rb /)
+      kao(:, 5,12, 4) = (/ &
+        & 0.50807e+03_rb,0.48796e+03_rb,0.46784e+03_rb,0.46227e+03_rb,0.53558e+03_rb, &
+        & 0.44916e+03_rb,0.40529e+03_rb,0.39483e+03_rb,0.38437e+03_rb /)
+      kao(:, 1,13, 4) = (/ &
+        & 0.51214e+03_rb,0.49152e+03_rb,0.47089e+03_rb,0.46425e+03_rb,0.53698e+03_rb, &
+        & 0.45243e+03_rb,0.40623e+03_rb,0.39530e+03_rb,0.38437e+03_rb /)
+      kao(:, 2,13, 4) = (/ &
+        & 0.50819e+03_rb,0.48806e+03_rb,0.46793e+03_rb,0.46281e+03_rb,0.53522e+03_rb, &
+        & 0.44925e+03_rb,0.40532e+03_rb,0.39485e+03_rb,0.38437e+03_rb /)
+      kao(:, 3,13, 4) = (/ &
+        & 0.50478e+03_rb,0.48508e+03_rb,0.46537e+03_rb,0.46157e+03_rb,0.53378e+03_rb, &
+        & 0.44654e+03_rb,0.40453e+03_rb,0.39445e+03_rb,0.38437e+03_rb /)
+      kao(:, 4,13, 4) = (/ &
+        & 0.50182e+03_rb,0.48249e+03_rb,0.46315e+03_rb,0.46044e+03_rb,0.53251e+03_rb, &
+        & 0.44422e+03_rb,0.40385e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)
+      kao(:, 5,13, 4) = (/ &
+        & 0.49922e+03_rb,0.48021e+03_rb,0.46120e+03_rb,0.45936e+03_rb,0.53137e+03_rb, &
+        & 0.44221e+03_rb,0.40325e+03_rb,0.39381e+03_rb,0.38437e+03_rb /)
+      kao(:, 1, 1, 5) = (/ &
+        & 0.13243e+04_rb,0.11799e+04_rb,0.10354e+04_rb,0.89093e+03_rb,0.74647e+03_rb, &
+        & 0.71044e+03_rb,0.61021e+03_rb,0.64069e+03_rb,0.67118e+03_rb /)
+      kao(:, 2, 1, 5) = (/ &
+        & 0.12908e+04_rb,0.11505e+04_rb,0.10102e+04_rb,0.86996e+03_rb,0.72969e+03_rb, &
+        & 0.70292e+03_rb,0.60750e+03_rb,0.63934e+03_rb,0.67118e+03_rb /)
+      kao(:, 3, 1, 5) = (/ &
+        & 0.12606e+04_rb,0.11241e+04_rb,0.98763e+03_rb,0.85113e+03_rb,0.71463e+03_rb, &
+        & 0.69451e+03_rb,0.60507e+03_rb,0.63812e+03_rb,0.67118e+03_rb /)
+      kao(:, 4, 1, 5) = (/ &
+        & 0.12334e+04_rb,0.11003e+04_rb,0.96722e+03_rb,0.83412e+03_rb,0.70102e+03_rb, &
+        & 0.68564e+03_rb,0.60287e+03_rb,0.63703e+03_rb,0.67118e+03_rb /)
+      kao(:, 5, 1, 5) = (/ &
+        & 0.12087e+04_rb,0.10787e+04_rb,0.94870e+03_rb,0.81869e+03_rb,0.68867e+03_rb, &
+        & 0.67724e+03_rb,0.60088e+03_rb,0.63603e+03_rb,0.67118e+03_rb /)
+      kao(:, 1, 2, 5) = (/ &
+        & 0.12234e+04_rb,0.10916e+04_rb,0.95972e+03_rb,0.82787e+03_rb,0.69602e+03_rb, &
+        & 0.68345e+03_rb,0.60207e+03_rb,0.63662e+03_rb,0.67118e+03_rb /)
+      kao(:, 2, 2, 5) = (/ &
+        & 0.11946e+04_rb,0.10664e+04_rb,0.93814e+03_rb,0.80988e+03_rb,0.68163e+03_rb, &
+        & 0.67225e+03_rb,0.59975e+03_rb,0.63546e+03_rb,0.67118e+03_rb /)
+      kao(:, 3, 2, 5) = (/ &
+        & 0.11689e+04_rb,0.10438e+04_rb,0.91881e+03_rb,0.79377e+03_rb,0.66882e+03_rb, &
+        & 0.66165e+03_rb,0.59767e+03_rb,0.63442e+03_rb,0.67118e+03_rb /)
+      kao(:, 4, 2, 5) = (/ &
+        & 0.11456e+04_rb,0.10235e+04_rb,0.90139e+03_rb,0.77926e+03_rb,0.65759e+03_rb, &
+        & 0.65058e+03_rb,0.59579e+03_rb,0.63348e+03_rb,0.67118e+03_rb /)
+      kao(:, 5, 2, 5) = (/ &
+        & 0.11246e+04_rb,0.10051e+04_rb,0.88561e+03_rb,0.76611e+03_rb,0.64778e+03_rb, &
+        & 0.64016e+03_rb,0.59410e+03_rb,0.63264e+03_rb,0.67118e+03_rb /)
+      kao(:, 1, 3, 5) = (/ &
+        & 0.11441e+04_rb,0.10221e+04_rb,0.90021e+03_rb,0.77828e+03_rb,0.65728e+03_rb, &
+        & 0.64981e+03_rb,0.59567e+03_rb,0.63342e+03_rb,0.67118e+03_rb /)
+      kao(:, 2, 3, 5) = (/ &
+        & 0.11188e+04_rb,0.10001e+04_rb,0.88128e+03_rb,0.76250e+03_rb,0.64582e+03_rb, &
+        & 0.63739e+03_rb,0.59363e+03_rb,0.63240e+03_rb,0.67118e+03_rb /)
+      kao(:, 3, 3, 5) = (/ &
+        & 0.10963e+04_rb,0.98033e+03_rb,0.86437e+03_rb,0.74841e+03_rb,0.63611e+03_rb, &
+        & 0.62581e+03_rb,0.59181e+03_rb,0.63149e+03_rb,0.67118e+03_rb /)
+      kao(:, 4, 3, 5) = (/ &
+        & 0.10761e+04_rb,0.96263e+03_rb,0.84920e+03_rb,0.73577e+03_rb,0.62780e+03_rb, &
+        & 0.61513e+03_rb,0.59018e+03_rb,0.63068e+03_rb,0.67118e+03_rb /)
+      kao(:, 5, 3, 5) = (/ &
+        & 0.10578e+04_rb,0.94664e+03_rb,0.83549e+03_rb,0.72435e+03_rb,0.62066e+03_rb, &
+        & 0.60588e+03_rb,0.58871e+03_rb,0.62994e+03_rb,0.67118e+03_rb /)
+      kao(:, 1, 4, 5) = (/ &
+        & 0.10783e+04_rb,0.96456e+03_rb,0.85086e+03_rb,0.73715e+03_rb,0.62971e+03_rb, &
+        & 0.61628e+03_rb,0.59036e+03_rb,0.63077e+03_rb,0.67118e+03_rb /)
+      kao(:, 2, 4, 5) = (/ &
+        & 0.10559e+04_rb,0.94502e+03_rb,0.83411e+03_rb,0.72319e+03_rb,0.62145e+03_rb, &
+        & 0.60490e+03_rb,0.58856e+03_rb,0.62987e+03_rb,0.67118e+03_rb /)
+      kao(:, 3, 4, 5) = (/ &
+        & 0.10361e+04_rb,0.92766e+03_rb,0.81923e+03_rb,0.71079e+03_rb,0.61457e+03_rb, &
+        & 0.59452e+03_rb,0.58696e+03_rb,0.62907e+03_rb,0.67118e+03_rb /)
+      kao(:, 4, 4, 5) = (/ &
+        & 0.10183e+04_rb,0.91213e+03_rb,0.80591e+03_rb,0.69970e+03_rb,0.60876e+03_rb, &
+        & 0.58559e+03_rb,0.58552e+03_rb,0.62835e+03_rb,0.67118e+03_rb /)
+      kao(:, 5, 4, 5) = (/ &
+        & 0.10024e+04_rb,0.89816e+03_rb,0.79394e+03_rb,0.68972e+03_rb,0.60374e+03_rb, &
+        & 0.57800e+03_rb,0.58424e+03_rb,0.62771e+03_rb,0.67118e+03_rb /)
+      kao(:, 1, 5, 5) = (/ &
+        & 0.10224e+04_rb,0.91564e+03_rb,0.80892e+03_rb,0.70221e+03_rb,0.61144e+03_rb, &
+        & 0.58757e+03_rb,0.58585e+03_rb,0.62851e+03_rb,0.67118e+03_rb /)
+      kao(:, 2, 5, 5) = (/ &
+        & 0.10026e+04_rb,0.89835e+03_rb,0.79410e+03_rb,0.68985e+03_rb,0.60588e+03_rb, &
+        & 0.57810e+03_rb,0.58425e+03_rb,0.62772e+03_rb,0.67118e+03_rb /)
+      kao(:, 3, 5, 5) = (/ &
+        & 0.98511e+03_rb,0.88305e+03_rb,0.78099e+03_rb,0.67893e+03_rb,0.60138e+03_rb, &
+        & 0.57034e+03_rb,0.58284e+03_rb,0.62701e+03_rb,0.67118e+03_rb /)
+      kao(:, 4, 5, 5) = (/ &
+        & 0.96954e+03_rb,0.86942e+03_rb,0.76931e+03_rb,0.66919e+03_rb,0.59759e+03_rb, &
+        & 0.56378e+03_rb,0.58159e+03_rb,0.62638e+03_rb,0.67118e+03_rb /)
+      kao(:, 5, 5, 5) = (/ &
+        & 0.95557e+03_rb,0.85720e+03_rb,0.75883e+03_rb,0.66046e+03_rb,0.59436e+03_rb, &
+        & 0.55823e+03_rb,0.58046e+03_rb,0.62582e+03_rb,0.67118e+03_rb /)
+      kao(:, 1, 6, 5) = (/ &
+        & 0.97547e+03_rb,0.87461e+03_rb,0.77376e+03_rb,0.67290e+03_rb,0.60045e+03_rb, &
+        & 0.56624e+03_rb,0.58207e+03_rb,0.62662e+03_rb,0.67118e+03_rb /)
+      kao(:, 2, 6, 5) = (/ &
+        & 0.95788e+03_rb,0.85922e+03_rb,0.76057e+03_rb,0.66191e+03_rb,0.59710e+03_rb, &
+        & 0.55912e+03_rb,0.58065e+03_rb,0.62591e+03_rb,0.67118e+03_rb /)
+      kao(:, 3, 6, 5) = (/ &
+        & 0.94241e+03_rb,0.84568e+03_rb,0.74896e+03_rb,0.65223e+03_rb,0.59434e+03_rb, &
+        & 0.55328e+03_rb,0.57940e+03_rb,0.62529e+03_rb,0.67118e+03_rb /)
+      kao(:, 4, 6, 5) = (/ &
+        & 0.92868e+03_rb,0.83367e+03_rb,0.73866e+03_rb,0.64365e+03_rb,0.59182e+03_rb, &
+        & 0.54839e+03_rb,0.57829e+03_rb,0.62473e+03_rb,0.67118e+03_rb /)
+      kao(:, 5, 6, 5) = (/ &
+        & 0.91642e+03_rb,0.82295e+03_rb,0.72947e+03_rb,0.63599e+03_rb,0.58948e+03_rb, &
+        & 0.54428e+03_rb,0.57730e+03_rb,0.62424e+03_rb,0.67118e+03_rb /)
+      kao(:, 1, 7, 5) = (/ &
+        & 0.93556e+03_rb,0.83969e+03_rb,0.74382e+03_rb,0.64795e+03_rb,0.59420e+03_rb, &
+        & 0.55081e+03_rb,0.57885e+03_rb,0.62501e+03_rb,0.67118e+03_rb /)
+      kao(:, 2, 7, 5) = (/ &
+        & 0.91989e+03_rb,0.82598e+03_rb,0.73207e+03_rb,0.63816e+03_rb,0.59179e+03_rb, &
+        & 0.54542e+03_rb,0.57758e+03_rb,0.62438e+03_rb,0.67118e+03_rb /)
+      kao(:, 3, 7, 5) = (/ &
+        & 0.90618e+03_rb,0.81398e+03_rb,0.72179e+03_rb,0.62959e+03_rb,0.58955e+03_rb, &
+        & 0.54102e+03_rb,0.57648e+03_rb,0.62383e+03_rb,0.67118e+03_rb /)
+      kao(:, 4, 7, 5) = (/ &
+        & 0.89407e+03_rb,0.80339e+03_rb,0.71271e+03_rb,0.62202e+03_rb,0.58737e+03_rb, &
+        & 0.53729e+03_rb,0.57550e+03_rb,0.62334e+03_rb,0.67118e+03_rb /)
+      kao(:, 5, 7, 5) = (/ &
+        & 0.88331e+03_rb,0.79397e+03_rb,0.70463e+03_rb,0.61530e+03_rb,0.58524e+03_rb, &
+        & 0.53413e+03_rb,0.57463e+03_rb,0.62290e+03_rb,0.67118e+03_rb /)
+      kao(:, 1, 8, 5) = (/ &
+        & 0.90140e+03_rb,0.80981e+03_rb,0.71821e+03_rb,0.62661e+03_rb,0.58941e+03_rb, &
+        & 0.53953e+03_rb,0.57609e+03_rb,0.62363e+03_rb,0.67118e+03_rb /)
+      kao(:, 2, 8, 5) = (/ &
+        & 0.88745e+03_rb,0.79760e+03_rb,0.70774e+03_rb,0.61789e+03_rb,0.58727e+03_rb, &
+        & 0.53533e+03_rb,0.57497e+03_rb,0.62307e+03_rb,0.67118e+03_rb /)
+      kao(:, 3, 8, 5) = (/ &
+        & 0.87531e+03_rb,0.78697e+03_rb,0.69863e+03_rb,0.61030e+03_rb,0.58522e+03_rb, &
+        & 0.53203e+03_rb,0.57399e+03_rb,0.62258e+03_rb,0.67118e+03_rb /)
+      kao(:, 4, 8, 5) = (/ &
+        & 0.86464e+03_rb,0.77763e+03_rb,0.69063e+03_rb,0.60363e+03_rb,0.58317e+03_rb, &
+        & 0.52938e+03_rb,0.57313e+03_rb,0.62215e+03_rb,0.67118e+03_rb /)
+      kao(:, 5, 8, 5) = (/ &
+        & 0.85519e+03_rb,0.76937e+03_rb,0.68354e+03_rb,0.59772e+03_rb,0.58120e+03_rb, &
+        & 0.52712e+03_rb,0.57236e+03_rb,0.62177e+03_rb,0.67118e+03_rb /)
+      kao(:, 1, 9, 5) = (/ &
+        & 0.87232e+03_rb,0.78435e+03_rb,0.69639e+03_rb,0.60843e+03_rb,0.58508e+03_rb, &
+        & 0.53128e+03_rb,0.57375e+03_rb,0.62246e+03_rb,0.67118e+03_rb /)
+      kao(:, 2, 9, 5) = (/ &
+        & 0.85988e+03_rb,0.77347e+03_rb,0.68706e+03_rb,0.60065e+03_rb,0.58302e+03_rb, &
+        & 0.52823e+03_rb,0.57274e+03_rb,0.62196e+03_rb,0.67118e+03_rb /)
+      kao(:, 3, 9, 5) = (/ &
+        & 0.84911e+03_rb,0.76405e+03_rb,0.67898e+03_rb,0.59392e+03_rb,0.58102e+03_rb, &
+        & 0.52572e+03_rb,0.57187e+03_rb,0.62153e+03_rb,0.67118e+03_rb /)
+      kao(:, 4, 9, 5) = (/ &
+        & 0.83970e+03_rb,0.75581e+03_rb,0.67193e+03_rb,0.58804e+03_rb,0.57906e+03_rb, &
+        & 0.52364e+03_rb,0.57111e+03_rb,0.62115e+03_rb,0.67118e+03_rb /)
+      kao(:, 5, 9, 5) = (/ &
+        & 0.83140e+03_rb,0.74855e+03_rb,0.66571e+03_rb,0.58286e+03_rb,0.57713e+03_rb, &
+        & 0.52190e+03_rb,0.57045e+03_rb,0.62081e+03_rb,0.67118e+03_rb /)
+      kao(:, 1,10, 5) = (/ &
+        & 0.84657e+03_rb,0.76183e+03_rb,0.67708e+03_rb,0.59234e+03_rb,0.58061e+03_rb, &
+        & 0.52515e+03_rb,0.57167e+03_rb,0.62142e+03_rb,0.67118e+03_rb /)
+      kao(:, 2,10, 5) = (/ &
+        & 0.83560e+03_rb,0.75223e+03_rb,0.66886e+03_rb,0.58548e+03_rb,0.57865e+03_rb, &
+        & 0.52276e+03_rb,0.57078e+03_rb,0.62098e+03_rb,0.67118e+03_rb /)
+      kao(:, 3,10, 5) = (/ &
+        & 0.82616e+03_rb,0.74397e+03_rb,0.66177e+03_rb,0.57958e+03_rb,0.57663e+03_rb, &
+        & 0.52085e+03_rb,0.57002e+03_rb,0.62060e+03_rb,0.67118e+03_rb /)
+      kao(:, 4,10, 5) = (/ &
+        & 0.81794e+03_rb,0.73678e+03_rb,0.65561e+03_rb,0.57444e+03_rb,0.57466e+03_rb, &
+        & 0.51933e+03_rb,0.56936e+03_rb,0.62027e+03_rb,0.67118e+03_rb /)
+      kao(:, 5,10, 5) = (/ &
+        & 0.81073e+03_rb,0.73047e+03_rb,0.65020e+03_rb,0.56994e+03_rb,0.57276e+03_rb, &
+        & 0.51811e+03_rb,0.56878e+03_rb,0.61998e+03_rb,0.67118e+03_rb /)
+      kao(:, 1,11, 5) = (/ &
+        & 0.82001e+03_rb,0.73859e+03_rb,0.65716e+03_rb,0.57574e+03_rb,0.57531e+03_rb, &
+        & 0.51970e+03_rb,0.56953e+03_rb,0.62035e+03_rb,0.67118e+03_rb /)
+      kao(:, 2,11, 5) = (/ &
+        & 0.81102e+03_rb,0.73072e+03_rb,0.65042e+03_rb,0.57012e+03_rb,0.57326e+03_rb, &
+        & 0.51814e+03_rb,0.56880e+03_rb,0.61999e+03_rb,0.67118e+03_rb /)
+      kao(:, 3,11, 5) = (/ &
+        & 0.80328e+03_rb,0.72395e+03_rb,0.64462e+03_rb,0.56528e+03_rb,0.57135e+03_rb, &
+        & 0.51670e+03_rb,0.56818e+03_rb,0.61968e+03_rb,0.67118e+03_rb /)
+      kao(:, 4,11, 5) = (/ &
+        & 0.79655e+03_rb,0.71806e+03_rb,0.63957e+03_rb,0.56108e+03_rb,0.56956e+03_rb, &
+        & 0.51595e+03_rb,0.56763e+03_rb,0.61941e+03_rb,0.67118e+03_rb /)
+      kao(:, 5,11, 5) = (/ &
+        & 0.79064e+03_rb,0.71289e+03_rb,0.63514e+03_rb,0.55738e+03_rb,0.56781e+03_rb, &
+        & 0.51517e+03_rb,0.56716e+03_rb,0.61917e+03_rb,0.67118e+03_rb /)
+      kao(:, 1,12, 5) = (/ &
+        & 0.79821e+03_rb,0.71951e+03_rb,0.64081e+03_rb,0.56211e+03_rb,0.57002e+03_rb, &
+        & 0.51613e+03_rb,0.56777e+03_rb,0.61947e+03_rb,0.67118e+03_rb /)
+      kao(:, 2,12, 5) = (/ &
+        & 0.79085e+03_rb,0.71307e+03_rb,0.63529e+03_rb,0.55751e+03_rb,0.56813e+03_rb, &
+        & 0.51519e+03_rb,0.56717e+03_rb,0.61918e+03_rb,0.67118e+03_rb /)
+      kao(:, 3,12, 5) = (/ &
+        & 0.78452e+03_rb,0.70753e+03_rb,0.63054e+03_rb,0.55355e+03_rb,0.56648e+03_rb, &
+        & 0.51441e+03_rb,0.56666e+03_rb,0.61892e+03_rb,0.67118e+03_rb /)
+      kao(:, 4,12, 5) = (/ &
+        & 0.77901e+03_rb,0.70271e+03_rb,0.62641e+03_rb,0.55011e+03_rb,0.56489e+03_rb, &
+        & 0.51374e+03_rb,0.56622e+03_rb,0.61870e+03_rb,0.67118e+03_rb /)
+      kao(:, 5,12, 5) = (/ &
+        & 0.77417e+03_rb,0.69847e+03_rb,0.62278e+03_rb,0.54708e+03_rb,0.56325e+03_rb, &
+        & 0.51315e+03_rb,0.56583e+03_rb,0.61850e+03_rb,0.67118e+03_rb /)
+      kao(:, 1,13, 5) = (/ &
+        & 0.78036e+03_rb,0.70389e+03_rb,0.62743e+03_rb,0.55096e+03_rb,0.56495e+03_rb, &
+        & 0.51390e+03_rb,0.56633e+03_rb,0.61875e+03_rb,0.67118e+03_rb /)
+      kao(:, 2,13, 5) = (/ &
+        & 0.77434e+03_rb,0.69862e+03_rb,0.62291e+03_rb,0.54719e+03_rb,0.56343e+03_rb, &
+        & 0.51318e+03_rb,0.56584e+03_rb,0.61851e+03_rb,0.67118e+03_rb /)
+      kao(:, 3,13, 5) = (/ &
+        & 0.76915e+03_rb,0.69408e+03_rb,0.61902e+03_rb,0.54395e+03_rb,0.56189e+03_rb, &
+        & 0.51255e+03_rb,0.56542e+03_rb,0.61830e+03_rb,0.67118e+03_rb /)
+      kao(:, 4,13, 5) = (/ &
+        & 0.76464e+03_rb,0.69014e+03_rb,0.61563e+03_rb,0.54113e+03_rb,0.56027e+03_rb, &
+        & 0.51200e+03_rb,0.56506e+03_rb,0.61812e+03_rb,0.67118e+03_rb /)
+      kao(:, 5,13, 5) = (/ &
+        & 0.76068e+03_rb,0.68667e+03_rb,0.61266e+03_rb,0.53865e+03_rb,0.55865e+03_rb, &
+        & 0.51152e+03_rb,0.56474e+03_rb,0.61796e+03_rb,0.67118e+03_rb /)
+      kao(:, 1, 1, 6) = (/ &
+        & 0.16832e+04_rb,0.14832e+04_rb,0.12833e+04_rb,0.10834e+04_rb,0.88343e+03_rb, &
+        & 0.73047e+03_rb,0.75923e+03_rb,0.85568e+03_rb,0.94989e+03_rb /)
+      kao(:, 2, 1, 6) = (/ &
+        & 0.16405e+04_rb,0.14459e+04_rb,0.12513e+04_rb,0.10567e+04_rb,0.86211e+03_rb, &
+        & 0.72257e+03_rb,0.75791e+03_rb,0.85457e+03_rb,0.94915e+03_rb /)
+      kao(:, 3, 1, 6) = (/ &
+        & 0.16022e+04_rb,0.14124e+04_rb,0.12226e+04_rb,0.10328e+04_rb,0.84296e+03_rb, &
+        & 0.71182e+03_rb,0.75643e+03_rb,0.85315e+03_rb,0.94805e+03_rb /)
+      kao(:, 4, 1, 6) = (/ &
+        & 0.15677e+04_rb,0.13822e+04_rb,0.11967e+04_rb,0.10112e+04_rb,0.82566e+03_rb, &
+        & 0.70003e+03_rb,0.75475e+03_rb,0.85145e+03_rb,0.94659e+03_rb /)
+      kao(:, 5, 1, 6) = (/ &
+        & 0.15363e+04_rb,0.13547e+04_rb,0.11731e+04_rb,0.99155e+03_rb,0.80997e+03_rb, &
+        & 0.68802e+03_rb,0.75277e+03_rb,0.84941e+03_rb,0.94478e+03_rb /)
+      kao(:, 1, 2, 6) = (/ &
+        & 0.15549e+04_rb,0.13710e+04_rb,0.11871e+04_rb,0.10032e+04_rb,0.81930e+03_rb, &
+        & 0.69644e+03_rb,0.75599e+03_rb,0.85402e+03_rb,0.95009e+03_rb /)
+      kao(:, 2, 2, 6) = (/ &
+        & 0.15184e+04_rb,0.13390e+04_rb,0.11597e+04_rb,0.98036e+03_rb,0.80102e+03_rb, &
+        & 0.68214e+03_rb,0.75486e+03_rb,0.85308e+03_rb,0.94950e+03_rb /)
+      kao(:, 3, 2, 6) = (/ &
+        & 0.14856e+04_rb,0.13104e+04_rb,0.11351e+04_rb,0.95988e+03_rb,0.78464e+03_rb, &
+        & 0.67032e+03_rb,0.75359e+03_rb,0.85186e+03_rb,0.94855e+03_rb /)
+      kao(:, 4, 2, 6) = (/ &
+        & 0.14561e+04_rb,0.12845e+04_rb,0.11130e+04_rb,0.94143e+03_rb,0.76988e+03_rb, &
+        & 0.66240e+03_rb,0.75215e+03_rb,0.85037e+03_rb,0.94724e+03_rb /)
+      kao(:, 5, 2, 6) = (/ &
+        & 0.14294e+04_rb,0.12611e+04_rb,0.10929e+04_rb,0.92472e+03_rb,0.75651e+03_rb, &
+        & 0.65660e+03_rb,0.75042e+03_rb,0.84857e+03_rb,0.94557e+03_rb /)
+      kao(:, 1, 3, 6) = (/ &
+        & 0.14541e+04_rb,0.12828e+04_rb,0.11115e+04_rb,0.94019e+03_rb,0.76889e+03_rb, &
+        & 0.66226e+03_rb,0.75340e+03_rb,0.85268e+03_rb,0.95029e+03_rb /)
+      kao(:, 2, 3, 6) = (/ &
+        & 0.14220e+04_rb,0.12547e+04_rb,0.10874e+04_rb,0.92013e+03_rb,0.75284e+03_rb, &
+        & 0.65611e+03_rb,0.75249e+03_rb,0.85200e+03_rb,0.94990e+03_rb /)
+      kao(:, 3, 3, 6) = (/ &
+        & 0.13934e+04_rb,0.12297e+04_rb,0.10659e+04_rb,0.90223e+03_rb,0.73852e+03_rb, &
+        & 0.65222e+03_rb,0.75143e+03_rb,0.85101e+03_rb,0.94916e+03_rb /)
+      kao(:, 4, 3, 6) = (/ &
+        & 0.13676e+04_rb,0.12071e+04_rb,0.10467e+04_rb,0.88615e+03_rb,0.72566e+03_rb, &
+        & 0.64945e+03_rb,0.75024e+03_rb,0.84977e+03_rb,0.94807e+03_rb /)
+      kao(:, 5, 3, 6) = (/ &
+        & 0.13444e+04_rb,0.11868e+04_rb,0.10292e+04_rb,0.87164e+03_rb,0.71405e+03_rb, &
+        & 0.64733e+03_rb,0.74880e+03_rb,0.84822e+03_rb,0.94662e+03_rb /)
+      kao(:, 1, 4, 6) = (/ &
+        & 0.13705e+04_rb,0.12096e+04_rb,0.10488e+04_rb,0.88791e+03_rb,0.72707e+03_rb, &
+        & 0.64976e+03_rb,0.75119e+03_rb,0.85151e+03_rb,0.95037e+03_rb /)
+      kao(:, 2, 4, 6) = (/ &
+        & 0.13421e+04_rb,0.11848e+04_rb,0.10275e+04_rb,0.87017e+03_rb,0.71287e+03_rb, &
+        & 0.64785e+03_rb,0.75047e+03_rb,0.85104e+03_rb,0.95019e+03_rb /)
+      kao(:, 3, 4, 6) = (/ &
+        & 0.13169e+04_rb,0.11627e+04_rb,0.10086e+04_rb,0.85441e+03_rb,0.70026e+03_rb, &
+        & 0.64696e+03_rb,0.74964e+03_rb,0.85031e+03_rb,0.94968e+03_rb /)
+      kao(:, 4, 4, 6) = (/ &
+        & 0.12943e+04_rb,0.11430e+04_rb,0.99164e+03_rb,0.84031e+03_rb,0.68898e+03_rb, &
+        & 0.64601e+03_rb,0.74865e+03_rb,0.84930e+03_rb,0.94882e+03_rb /)
+      kao(:, 5, 4, 6) = (/ &
+        & 0.12740e+04_rb,0.11252e+04_rb,0.97642e+03_rb,0.82763e+03_rb,0.67884e+03_rb, &
+        & 0.64496e+03_rb,0.74747e+03_rb,0.84802e+03_rb,0.94760e+03_rb /)
+      kao(:, 1, 5, 6) = (/ &
+        & 0.12994e+04_rb,0.11474e+04_rb,0.99546e+03_rb,0.84350e+03_rb,0.69153e+03_rb, &
+        & 0.64599e+03_rb,0.74922e+03_rb,0.85040e+03_rb,0.95032e+03_rb /)
+      kao(:, 2, 5, 6) = (/ &
+        & 0.12743e+04_rb,0.11254e+04_rb,0.97662e+03_rb,0.82780e+03_rb,0.67897e+03_rb, &
+        & 0.64529e+03_rb,0.74869e+03_rb,0.85015e+03_rb,0.95034e+03_rb /)
+      kao(:, 3, 5, 6) = (/ &
+        & 0.12521e+04_rb,0.11060e+04_rb,0.95996e+03_rb,0.81391e+03_rb,0.66786e+03_rb, &
+        & 0.64458e+03_rb,0.74805e+03_rb,0.84965e+03_rb,0.95004e+03_rb /)
+      kao(:, 4, 5, 6) = (/ &
+        & 0.12323e+04_rb,0.10887e+04_rb,0.94511e+03_rb,0.80154e+03_rb,0.65797e+03_rb, &
+        & 0.64380e+03_rb,0.74727e+03_rb,0.84886e+03_rb,0.94940e+03_rb /)
+      kao(:, 5, 5, 6) = (/ &
+        & 0.12145e+04_rb,0.10732e+04_rb,0.93180e+03_rb,0.79045e+03_rb,0.64909e+03_rb, &
+        & 0.64294e+03_rb,0.74629e+03_rb,0.84781e+03_rb,0.94841e+03_rb /)
+      kao(:, 1, 6, 6) = (/ &
+        & 0.12398e+04_rb,0.10953e+04_rb,0.95077e+03_rb,0.80625e+03_rb,0.66174e+03_rb, &
+        & 0.64362e+03_rb,0.74747e+03_rb,0.84935e+03_rb,0.95014e+03_rb /)
+      kao(:, 2, 6, 6) = (/ &
+        & 0.12174e+04_rb,0.10757e+04_rb,0.93400e+03_rb,0.79228e+03_rb,0.65056e+03_rb, &
+        & 0.64308e+03_rb,0.74712e+03_rb,0.84932e+03_rb,0.95036e+03_rb /)
+      kao(:, 3, 6, 6) = (/ &
+        & 0.11978e+04_rb,0.10585e+04_rb,0.91925e+03_rb,0.77999e+03_rb,0.64087e+03_rb, &
+        & 0.64253e+03_rb,0.74666e+03_rb,0.84902e+03_rb,0.95027e+03_rb /)
+      kao(:, 4, 6, 6) = (/ &
+        & 0.11803e+04_rb,0.10432e+04_rb,0.90616e+03_rb,0.76908e+03_rb,0.63262e+03_rb, &
+        & 0.64192e+03_rb,0.74606e+03_rb,0.84847e+03_rb,0.94985e+03_rb /)
+      kao(:, 5, 6, 6) = (/ &
+        & 0.11647e+04_rb,0.10296e+04_rb,0.89448e+03_rb,0.75935e+03_rb,0.62549e+03_rb, &
+        & 0.64122e+03_rb,0.74529e+03_rb,0.84763e+03_rb,0.94909e+03_rb /)
+      kao(:, 1, 7, 6) = (/ &
+        & 0.11891e+04_rb,0.10509e+04_rb,0.91272e+03_rb,0.77455e+03_rb,0.63693e+03_rb, &
+        & 0.64154e+03_rb,0.74584e+03_rb,0.84830e+03_rb,0.94975e+03_rb /)
+      kao(:, 2, 7, 6) = (/ &
+        & 0.11692e+04_rb,0.10335e+04_rb,0.89779e+03_rb,0.76210e+03_rb,0.62795e+03_rb, &
+        & 0.64115e+03_rb,0.74575e+03_rb,0.84848e+03_rb,0.95025e+03_rb /)
+      kao(:, 3, 7, 6) = (/ &
+        & 0.11517e+04_rb,0.10182e+04_rb,0.88471e+03_rb,0.75121e+03_rb,0.62051e+03_rb, &
+        & 0.64074e+03_rb,0.74542e+03_rb,0.84840e+03_rb,0.95037e+03_rb /)
+      kao(:, 4, 7, 6) = (/ &
+        & 0.11363e+04_rb,0.10048e+04_rb,0.87317e+03_rb,0.74159e+03_rb,0.61432e+03_rb, &
+        & 0.64028e+03_rb,0.74499e+03_rb,0.84806e+03_rb,0.95015e+03_rb /)
+      kao(:, 5, 7, 6) = (/ &
+        & 0.11227e+04_rb,0.99279e+03_rb,0.86291e+03_rb,0.73304e+03_rb,0.60908e+03_rb, &
+        & 0.63974e+03_rb,0.74440e+03_rb,0.84744e+03_rb,0.94961e+03_rb /)
+      kao(:, 1, 8, 6) = (/ &
+        & 0.11457e+04_rb,0.10129e+04_rb,0.88017e+03_rb,0.74742e+03_rb,0.61848e+03_rb, &
+        & 0.63968e+03_rb,0.74433e+03_rb,0.84725e+03_rb,0.94927e+03_rb /)
+      kao(:, 2, 8, 6) = (/ &
+        & 0.11279e+04_rb,0.99740e+03_rb,0.86687e+03_rb,0.73633e+03_rb,0.61183e+03_rb, &
+        & 0.63944e+03_rb,0.74439e+03_rb,0.84765e+03_rb,0.94999e+03_rb /)
+      kao(:, 3, 8, 6) = (/ &
+        & 0.11125e+04_rb,0.98389e+03_rb,0.85529e+03_rb,0.72668e+03_rb,0.60652e+03_rb, &
+        & 0.63917e+03_rb,0.74428e+03_rb,0.84777e+03_rb,0.95034e+03_rb /)
+      kao(:, 4, 8, 6) = (/ &
+        & 0.10989e+04_rb,0.97202e+03_rb,0.84512e+03_rb,0.71821e+03_rb,0.60224e+03_rb, &
+        & 0.63885e+03_rb,0.74401e+03_rb,0.84763e+03_rb,0.95032e+03_rb /)
+      kao(:, 5, 8, 6) = (/ &
+        & 0.10869e+04_rb,0.96152e+03_rb,0.83611e+03_rb,0.71070e+03_rb,0.59867e+03_rb, &
+        & 0.63844e+03_rb,0.74359e+03_rb,0.84721e+03_rb,0.94997e+03_rb /)
+      kao(:, 1, 9, 6) = (/ &
+        & 0.11087e+04_rb,0.98057e+03_rb,0.85244e+03_rb,0.72431e+03_rb,0.60583e+03_rb, &
+        & 0.63802e+03_rb,0.74290e+03_rb,0.84619e+03_rb,0.94868e+03_rb /)
+      kao(:, 2, 9, 6) = (/ &
+        & 0.10929e+04_rb,0.96673e+03_rb,0.84058e+03_rb,0.71443e+03_rb,0.60128e+03_rb, &
+        & 0.63792e+03_rb,0.74318e+03_rb,0.84681e+03_rb,0.94962e+03_rb /)
+      kao(:, 3, 9, 6) = (/ &
+        & 0.10792e+04_rb,0.95475e+03_rb,0.83031e+03_rb,0.70587e+03_rb,0.59784e+03_rb, &
+        & 0.63778e+03_rb,0.74323e+03_rb,0.84713e+03_rb,0.95019e+03_rb /)
+      kao(:, 4, 9, 6) = (/ &
+        & 0.10672e+04_rb,0.94429e+03_rb,0.82134e+03_rb,0.69840e+03_rb,0.59517e+03_rb, &
+        & 0.63759e+03_rb,0.74313e+03_rb,0.84718e+03_rb,0.95037e+03_rb /)
+      kao(:, 5, 9, 6) = (/ &
+        & 0.10567e+04_rb,0.93506e+03_rb,0.81344e+03_rb,0.69181e+03_rb,0.59278e+03_rb, &
+        & 0.63730e+03_rb,0.74285e+03_rb,0.84695e+03_rb,0.95021e+03_rb /)
+      kao(:, 1,10, 6) = (/ &
+        & 0.10760e+04_rb,0.95193e+03_rb,0.82790e+03_rb,0.70386e+03_rb,0.59768e+03_rb, &
+        & 0.63651e+03_rb,0.74157e+03_rb,0.84519e+03_rb,0.94809e+03_rb /)
+      kao(:, 2,10, 6) = (/ &
+        & 0.10620e+04_rb,0.93974e+03_rb,0.81744e+03_rb,0.69515e+03_rb,0.59477e+03_rb, &
+        & 0.63656e+03_rb,0.74203e+03_rb,0.84600e+03_rb,0.94921e+03_rb /)
+      kao(:, 3,10, 6) = (/ &
+        & 0.10500e+04_rb,0.92923e+03_rb,0.80844e+03_rb,0.68764e+03_rb,0.59242e+03_rb, &
+        & 0.63654e+03_rb,0.74226e+03_rb,0.84650e+03_rb,0.94996e+03_rb /)
+      kao(:, 4,10, 6) = (/ &
+        & 0.10396e+04_rb,0.92010e+03_rb,0.80061e+03_rb,0.68112e+03_rb,0.59042e+03_rb, &
+        & 0.63645e+03_rb,0.74230e+03_rb,0.84672e+03_rb,0.95033e+03_rb /)
+      kao(:, 5,10, 6) = (/ &
+        & 0.10304e+04_rb,0.91207e+03_rb,0.79373e+03_rb,0.67539e+03_rb,0.58849e+03_rb, &
+        & 0.63628e+03_rb,0.74216e+03_rb,0.84665e+03_rb,0.95033e+03_rb /)
+      kao(:, 1,11, 6) = (/ &
+        & 0.10422e+04_rb,0.92239e+03_rb,0.80258e+03_rb,0.68276e+03_rb,0.59118e+03_rb, &
+        & 0.63525e+03_rb,0.74065e+03_rb,0.84470e+03_rb,0.94808e+03_rb /)
+      kao(:, 2,11, 6) = (/ &
+        & 0.10308e+04_rb,0.91240e+03_rb,0.79401e+03_rb,0.67562e+03_rb,0.58920e+03_rb, &
+        & 0.63540e+03_rb,0.74118e+03_rb,0.84554e+03_rb,0.94920e+03_rb /)
+      kao(:, 3,11, 6) = (/ &
+        & 0.10210e+04_rb,0.90379e+03_rb,0.78663e+03_rb,0.66947e+03_rb,0.58737e+03_rb, &
+        & 0.63545e+03_rb,0.74147e+03_rb,0.84609e+03_rb,0.94995e+03_rb /)
+      kao(:, 4,11, 6) = (/ &
+        & 0.10124e+04_rb,0.89631e+03_rb,0.78022e+03_rb,0.66413e+03_rb,0.58569e+03_rb, &
+        & 0.63543e+03_rb,0.74156e+03_rb,0.84634e+03_rb,0.95033e+03_rb /)
+      kao(:, 5,11, 6) = (/ &
+        & 0.10049e+04_rb,0.88974e+03_rb,0.77458e+03_rb,0.65943e+03_rb,0.58398e+03_rb, &
+        & 0.63532e+03_rb,0.74146e+03_rb,0.84628e+03_rb,0.95033e+03_rb /)
+      kao(:, 1,12, 6) = (/ &
+        & 0.10145e+04_rb,0.89815e+03_rb,0.78180e+03_rb,0.66544e+03_rb,0.58616e+03_rb, &
+        & 0.63421e+03_rb,0.73990e+03_rb,0.84430e+03_rb,0.94808e+03_rb /)
+      kao(:, 2,12, 6) = (/ &
+        & 0.10052e+04_rb,0.88997e+03_rb,0.77478e+03_rb,0.65960e+03_rb,0.58451e+03_rb, &
+        & 0.63444e+03_rb,0.74048e+03_rb,0.84518e+03_rb,0.94921e+03_rb /)
+      kao(:, 3,12, 6) = (/ &
+        & 0.99710e+03_rb,0.88292e+03_rb,0.76874e+03_rb,0.65457e+03_rb,0.58265e+03_rb, &
+        & 0.63457e+03_rb,0.74082e+03_rb,0.84574e+03_rb,0.94995e+03_rb /)
+      kao(:, 4,12, 6) = (/ &
+        & 0.99010e+03_rb,0.87679e+03_rb,0.76349e+03_rb,0.65019e+03_rb,0.58054e+03_rb, &
+        & 0.63460e+03_rb,0.74095e+03_rb,0.84600e+03_rb,0.95033e+03_rb /)
+      kao(:, 5,12, 6) = (/ &
+        & 0.98395e+03_rb,0.87141e+03_rb,0.75888e+03_rb,0.64634e+03_rb,0.57844e+03_rb, &
+        & 0.63453e+03_rb,0.74089e+03_rb,0.84598e+03_rb,0.95033e+03_rb /)
+      kao(:, 1,13, 6) = (/ &
+        & 0.99182e+03_rb,0.87830e+03_rb,0.76478e+03_rb,0.65127e+03_rb,0.58122e+03_rb, &
+        & 0.63336e+03_rb,0.73928e+03_rb,0.84397e+03_rb,0.94808e+03_rb /)
+      kao(:, 2,13, 6) = (/ &
+        & 0.98416e+03_rb,0.87160e+03_rb,0.75904e+03_rb,0.64648e+03_rb,0.57888e+03_rb, &
+        & 0.63366e+03_rb,0.73991e+03_rb,0.84487e+03_rb,0.94921e+03_rb /)
+      kao(:, 3,13, 6) = (/ &
+        & 0.97757e+03_rb,0.86583e+03_rb,0.75410e+03_rb,0.64236e+03_rb,0.57650e+03_rb, &
+        & 0.63384e+03_rb,0.74029e+03_rb,0.84546e+03_rb,0.94996e+03_rb /)
+      kao(:, 4,13, 6) = (/ &
+        & 0.97184e+03_rb,0.86082e+03_rb,0.74980e+03_rb,0.63878e+03_rb,0.57428e+03_rb, &
+        & 0.63391e+03_rb,0.74045e+03_rb,0.84574e+03_rb,0.95033e+03_rb /)
+      kao(:, 5,13, 6) = (/ &
+        & 0.96680e+03_rb,0.85641e+03_rb,0.74602e+03_rb,0.63563e+03_rb,0.57218e+03_rb, &
+        & 0.63388e+03_rb,0.74043e+03_rb,0.84574e+03_rb,0.95033e+03_rb /)
+      kao(:, 1, 1, 7) = (/ &
+        & 0.18845e+04_rb,0.16548e+04_rb,0.14251e+04_rb,0.11953e+04_rb,0.96557e+03_rb, &
+        & 0.74301e+03_rb,0.82697e+03_rb,0.94964e+03_rb,0.10740e+04_rb /)
+      kao(:, 2, 1, 7) = (/ &
+        & 0.18367e+04_rb,0.16130e+04_rb,0.13892e+04_rb,0.11655e+04_rb,0.94169e+03_rb, &
+        & 0.73101e+03_rb,0.82533e+03_rb,0.94833e+03_rb,0.10730e+04_rb /)
+      kao(:, 3, 1, 7) = (/ &
+        & 0.17938e+04_rb,0.15755e+04_rb,0.13571e+04_rb,0.11387e+04_rb,0.92025e+03_rb, &
+        & 0.71894e+03_rb,0.82353e+03_rb,0.94679e+03_rb,0.10715e+04_rb /)
+      kao(:, 4, 1, 7) = (/ &
+        & 0.17551e+04_rb,0.15416e+04_rb,0.13280e+04_rb,0.11145e+04_rb,0.90089e+03_rb, &
+        & 0.70691e+03_rb,0.82149e+03_rb,0.94487e+03_rb,0.10696e+04_rb /)
+      kao(:, 5, 1, 7) = (/ &
+        & 0.17200e+04_rb,0.15108e+04_rb,0.13017e+04_rb,0.10925e+04_rb,0.88332e+03_rb, &
+        & 0.69946e+03_rb,0.81920e+03_rb,0.94260e+03_rb,0.10672e+04_rb /)
+      kao(:, 1, 2, 7) = (/ &
+        & 0.17409e+04_rb,0.15291e+04_rb,0.13174e+04_rb,0.11056e+04_rb,0.89377e+03_rb, &
+        & 0.70556e+03_rb,0.82545e+03_rb,0.94918e+03_rb,0.10743e+04_rb /)
+      kao(:, 2, 2, 7) = (/ &
+        & 0.16999e+04_rb,0.14933e+04_rb,0.12867e+04_rb,0.10800e+04_rb,0.87329e+03_rb, &
+        & 0.70177e+03_rb,0.82404e+03_rb,0.94806e+03_rb,0.10734e+04_rb /)
+      kao(:, 3, 2, 7) = (/ &
+        & 0.16632e+04_rb,0.14612e+04_rb,0.12591e+04_rb,0.10571e+04_rb,0.85495e+03_rb, &
+        & 0.69985e+03_rb,0.82245e+03_rb,0.94668e+03_rb,0.10721e+04_rb /)
+      kao(:, 4, 2, 7) = (/ &
+        & 0.16302e+04_rb,0.14323e+04_rb,0.12344e+04_rb,0.10364e+04_rb,0.83842e+03_rb, &
+        & 0.69778e+03_rb,0.82061e+03_rb,0.94495e+03_rb,0.10705e+04_rb /)
+      kao(:, 5, 2, 7) = (/ &
+        & 0.16003e+04_rb,0.14061e+04_rb,0.12119e+04_rb,0.10177e+04_rb,0.82345e+03_rb, &
+        & 0.69549e+03_rb,0.81853e+03_rb,0.94286e+03_rb,0.10683e+04_rb /)
+      kao(:, 1, 3, 7) = (/ &
+        & 0.16280e+04_rb,0.14303e+04_rb,0.12327e+04_rb,0.10350e+04_rb,0.83731e+03_rb, &
+        & 0.70164e+03_rb,0.82440e+03_rb,0.94900e+03_rb,0.10748e+04_rb /)
+      kao(:, 2, 3, 7) = (/ &
+        & 0.15920e+04_rb,0.13989e+04_rb,0.12057e+04_rb,0.10126e+04_rb,0.81934e+03_rb, &
+        & 0.70016e+03_rb,0.82323e+03_rb,0.94804e+03_rb,0.10740e+04_rb /)
+      kao(:, 3, 3, 7) = (/ &
+        & 0.15600e+04_rb,0.13708e+04_rb,0.11817e+04_rb,0.99252e+03_rb,0.80330e+03_rb, &
+        & 0.69850e+03_rb,0.82187e+03_rb,0.94688e+03_rb,0.10730e+04_rb /)
+      kao(:, 4, 3, 7) = (/ &
+        & 0.15312e+04_rb,0.13457e+04_rb,0.11601e+04_rb,0.97452e+03_rb,0.78890e+03_rb, &
+        & 0.69669e+03_rb,0.82029e+03_rb,0.94542e+03_rb,0.10716e+04_rb /)
+      kao(:, 5, 3, 7) = (/ &
+        & 0.15052e+04_rb,0.13229e+04_rb,0.11406e+04_rb,0.95827e+03_rb,0.77590e+03_rb, &
+        & 0.69468e+03_rb,0.81844e+03_rb,0.94358e+03_rb,0.10697e+04_rb /)
+      kao(:, 1, 4, 7) = (/ &
+        & 0.15343e+04_rb,0.13484e+04_rb,0.11625e+04_rb,0.97650e+03_rb,0.79047e+03_rb, &
+        & 0.70005e+03_rb,0.82352e+03_rb,0.94883e+03_rb,0.10751e+04_rb /)
+      kao(:, 2, 4, 7) = (/ &
+        & 0.15026e+04_rb,0.13206e+04_rb,0.11386e+04_rb,0.95663e+03_rb,0.77458e+03_rb, &
+        & 0.69884e+03_rb,0.82260e+03_rb,0.94808e+03_rb,0.10745e+04_rb /)
+      kao(:, 3, 4, 7) = (/ &
+        & 0.14743e+04_rb,0.12959e+04_rb,0.11175e+04_rb,0.93898e+03_rb,0.76046e+03_rb, &
+        & 0.69743e+03_rb,0.82145e+03_rb,0.94711e+03_rb,0.10737e+04_rb /)
+      kao(:, 4, 4, 7) = (/ &
+        & 0.14491e+04_rb,0.12738e+04_rb,0.10985e+04_rb,0.92319e+03_rb,0.74783e+03_rb, &
+        & 0.69586e+03_rb,0.82010e+03_rb,0.94588e+03_rb,0.10725e+04_rb /)
+      kao(:, 5, 4, 7) = (/ &
+        & 0.14263e+04_rb,0.12539e+04_rb,0.10815e+04_rb,0.90900e+03_rb,0.73646e+03_rb, &
+        & 0.69412e+03_rb,0.81852e+03_rb,0.94430e+03_rb,0.10710e+04_rb /)
+      kao(:, 1, 5, 7) = (/ &
+        & 0.14548e+04_rb,0.12788e+04_rb,0.11028e+04_rb,0.92676e+03_rb,0.75068e+03_rb, &
+        & 0.69862e+03_rb,0.82271e+03_rb,0.94860e+03_rb,0.10753e+04_rb /)
+      kao(:, 2, 5, 7) = (/ &
+        & 0.14266e+04_rb,0.12542e+04_rb,0.10817e+04_rb,0.90918e+03_rb,0.73662e+03_rb, &
+        & 0.69765e+03_rb,0.82202e+03_rb,0.94804e+03_rb,0.10749e+04_rb /)
+      kao(:, 3, 5, 7) = (/ &
+        & 0.14018e+04_rb,0.12324e+04_rb,0.10630e+04_rb,0.89363e+03_rb,0.72418e+03_rb, &
+        & 0.69649e+03_rb,0.82110e+03_rb,0.94729e+03_rb,0.10743e+04_rb /)
+      kao(:, 4, 5, 7) = (/ &
+        & 0.13796e+04_rb,0.12130e+04_rb,0.10464e+04_rb,0.87978e+03_rb,0.71309e+03_rb, &
+        & 0.69515e+03_rb,0.81992e+03_rb,0.94623e+03_rb,0.10733e+04_rb /)
+      kao(:, 5, 5, 7) = (/ &
+        & 0.13597e+04_rb,0.11956e+04_rb,0.10315e+04_rb,0.86737e+03_rb,0.70315e+03_rb, &
+        & 0.69363e+03_rb,0.81858e+03_rb,0.94492e+03_rb,0.10720e+04_rb /)
+      kao(:, 1, 6, 7) = (/ &
+        & 0.13881e+04_rb,0.12204e+04_rb,0.10528e+04_rb,0.88506e+03_rb,0.71732e+03_rb, &
+        & 0.69732e+03_rb,0.82195e+03_rb,0.94833e+03_rb,0.10753e+04_rb /)
+      kao(:, 2, 6, 7) = (/ &
+        & 0.13630e+04_rb,0.11985e+04_rb,0.10340e+04_rb,0.86942e+03_rb,0.70480e+03_rb, &
+        & 0.69661e+03_rb,0.82150e+03_rb,0.94796e+03_rb,0.10752e+04_rb /)
+      kao(:, 3, 6, 7) = (/ &
+        & 0.13410e+04_rb,0.11792e+04_rb,0.10175e+04_rb,0.85565e+03_rb,0.69378e+03_rb, &
+        & 0.69568e+03_rb,0.82079e+03_rb,0.94739e+03_rb,0.10747e+04_rb /)
+      kao(:, 4, 6, 7) = (/ &
+        & 0.13215e+04_rb,0.11622e+04_rb,0.10028e+04_rb,0.84344e+03_rb,0.68401e+03_rb, &
+        & 0.69456e+03_rb,0.81984e+03_rb,0.94655e+03_rb,0.10740e+04_rb /)
+      kao(:, 5, 6, 7) = (/ &
+        & 0.13040e+04_rb,0.11469e+04_rb,0.98973e+03_rb,0.83254e+03_rb,0.67529e+03_rb, &
+        & 0.69326e+03_rb,0.81868e+03_rb,0.94544e+03_rb,0.10729e+04_rb /)
+      kao(:, 1, 7, 7) = (/ &
+        & 0.13313e+04_rb,0.11707e+04_rb,0.10101e+04_rb,0.84956e+03_rb,0.68891e+03_rb, &
+        & 0.69611e+03_rb,0.82122e+03_rb,0.94800e+03_rb,0.10754e+04_rb /)
+      kao(:, 2, 7, 7) = (/ &
+        & 0.13090e+04_rb,0.11512e+04_rb,0.99343e+03_rb,0.83562e+03_rb,0.67776e+03_rb, &
+        & 0.69564e+03_rb,0.82091e+03_rb,0.94785e+03_rb,0.10753e+04_rb /)
+      kao(:, 3, 7, 7) = (/ &
+        & 0.12894e+04_rb,0.11341e+04_rb,0.97879e+03_rb,0.82342e+03_rb,0.66800e+03_rb, &
+        & 0.69494e+03_rb,0.82048e+03_rb,0.94742e+03_rb,0.10750e+04_rb /)
+      kao(:, 4, 7, 7) = (/ &
+        & 0.12722e+04_rb,0.11191e+04_rb,0.96587e+03_rb,0.81266e+03_rb,0.65938e+03_rb, &
+        & 0.69403e+03_rb,0.81973e+03_rb,0.94677e+03_rb,0.10745e+04_rb /)
+      kao(:, 5, 7, 7) = (/ &
+        & 0.12569e+04_rb,0.11057e+04_rb,0.95438e+03_rb,0.80308e+03_rb,0.65172e+03_rb, &
+        & 0.69293e+03_rb,0.81874e+03_rb,0.94587e+03_rb,0.10736e+04_rb /)
+      kao(:, 1, 8, 7) = (/ &
+        & 0.12827e+04_rb,0.11282e+04_rb,0.97371e+03_rb,0.81918e+03_rb,0.66460e+03_rb, &
+        & 0.69497e+03_rb,0.82050e+03_rb,0.94762e+03_rb,0.10753e+04_rb /)
+      kao(:, 2, 8, 7) = (/ &
+        & 0.12628e+04_rb,0.11108e+04_rb,0.95881e+03_rb,0.80678e+03_rb,0.65467e+03_rb, &
+        & 0.69473e+03_rb,0.82044e+03_rb,0.94765e+03_rb,0.10754e+04_rb /)
+      kao(:, 3, 8, 7) = (/ &
+        & 0.12455e+04_rb,0.10957e+04_rb,0.94585e+03_rb,0.79597e+03_rb,0.64602e+03_rb, &
+        & 0.69425e+03_rb,0.82014e+03_rb,0.94746e+03_rb,0.10752e+04_rb /)
+      kao(:, 4, 8, 7) = (/ &
+        & 0.12303e+04_rb,0.10824e+04_rb,0.93446e+03_rb,0.78648e+03_rb,0.63843e+03_rb, &
+        & 0.69354e+03_rb,0.81959e+03_rb,0.94691e+03_rb,0.10748e+04_rb /)
+      kao(:, 5, 8, 7) = (/ &
+        & 0.12169e+04_rb,0.10706e+04_rb,0.92437e+03_rb,0.77807e+03_rb,0.63171e+03_rb, &
+        & 0.69262e+03_rb,0.81878e+03_rb,0.94618e+03_rb,0.10741e+04_rb /)
+      kao(:, 1, 9, 7) = (/ &
+        & 0.12413e+04_rb,0.10920e+04_rb,0.94266e+03_rb,0.79331e+03_rb,0.64390e+03_rb, &
+        & 0.69387e+03_rb,0.81977e+03_rb,0.94713e+03_rb,0.10750e+04_rb /)
+      kao(:, 2, 9, 7) = (/ &
+        & 0.12236e+04_rb,0.10765e+04_rb,0.92938e+03_rb,0.78225e+03_rb,0.63504e+03_rb, &
+        & 0.69385e+03_rb,0.81989e+03_rb,0.94741e+03_rb,0.10753e+04_rb /)
+      kao(:, 3, 9, 7) = (/ &
+        & 0.12082e+04_rb,0.10631e+04_rb,0.91789e+03_rb,0.77267e+03_rb,0.62738e+03_rb, &
+        & 0.69359e+03_rb,0.81979e+03_rb,0.94732e+03_rb,0.10754e+04_rb /)
+      kao(:, 4, 9, 7) = (/ &
+        & 0.11949e+04_rb,0.10514e+04_rb,0.90785e+03_rb,0.76430e+03_rb,0.62068e+03_rb, &
+        & 0.69307e+03_rb,0.81942e+03_rb,0.94698e+03_rb,0.10751e+04_rb /)
+      kao(:, 5, 9, 7) = (/ &
+        & 0.11831e+04_rb,0.10410e+04_rb,0.89899e+03_rb,0.75692e+03_rb,0.61500e+03_rb, &
+        & 0.69235e+03_rb,0.81879e+03_rb,0.94641e+03_rb,0.10746e+04_rb /)
+      kao(:, 1,10, 7) = (/ &
+        & 0.12046e+04_rb,0.10599e+04_rb,0.91518e+03_rb,0.77041e+03_rb,0.62557e+03_rb, &
+        & 0.69285e+03_rb,0.81909e+03_rb,0.94663e+03_rb,0.10746e+04_rb /)
+      kao(:, 2,10, 7) = (/ &
+        & 0.11890e+04_rb,0.10463e+04_rb,0.90347e+03_rb,0.76066e+03_rb,0.61799e+03_rb, &
+        & 0.69301e+03_rb,0.81937e+03_rb,0.94709e+03_rb,0.10752e+04_rb /)
+      kao(:, 3,10, 7) = (/ &
+        & 0.11756e+04_rb,0.10345e+04_rb,0.89339e+03_rb,0.75225e+03_rb,0.61189e+03_rb, &
+        & 0.69293e+03_rb,0.81942e+03_rb,0.94719e+03_rb,0.10754e+04_rb /)
+      kao(:, 4,10, 7) = (/ &
+        & 0.11639e+04_rb,0.10243e+04_rb,0.88463e+03_rb,0.74495e+03_rb,0.60683e+03_rb, &
+        & 0.69260e+03_rb,0.81922e+03_rb,0.94698e+03_rb,0.10753e+04_rb /)
+      kao(:, 5,10, 7) = (/ &
+        & 0.11536e+04_rb,0.10153e+04_rb,0.87693e+03_rb,0.73853e+03_rb,0.60268e+03_rb, &
+        & 0.69203e+03_rb,0.81871e+03_rb,0.94653e+03_rb,0.10749e+04_rb /)
+      kao(:, 1,11, 7) = (/ &
+        & 0.11668e+04_rb,0.10268e+04_rb,0.88684e+03_rb,0.74678e+03_rb,0.60837e+03_rb, &
+        & 0.69208e+03_rb,0.81864e+03_rb,0.94642e+03_rb,0.10746e+04_rb /)
+      kao(:, 2,11, 7) = (/ &
+        & 0.11540e+04_rb,0.10157e+04_rb,0.87724e+03_rb,0.73879e+03_rb,0.60335e+03_rb, &
+        & 0.69229e+03_rb,0.81896e+03_rb,0.94691e+03_rb,0.10752e+04_rb /)
+      kao(:, 3,11, 7) = (/ &
+        & 0.11430e+04_rb,0.10060e+04_rb,0.86898e+03_rb,0.73191e+03_rb,0.59939e+03_rb, &
+        & 0.69226e+03_rb,0.81904e+03_rb,0.94700e+03_rb,0.10754e+04_rb /)
+      kao(:, 4,11, 7) = (/ &
+        & 0.11335e+04_rb,0.99764e+03_rb,0.86180e+03_rb,0.72592e+03_rb,0.59585e+03_rb, &
+        & 0.69198e+03_rb,0.81884e+03_rb,0.94679e+03_rb,0.10753e+04_rb /)
+      kao(:, 5,11, 7) = (/ &
+        & 0.11251e+04_rb,0.99028e+03_rb,0.85549e+03_rb,0.72067e+03_rb,0.59286e+03_rb, &
+        & 0.69146e+03_rb,0.81839e+03_rb,0.94639e+03_rb,0.10749e+04_rb /)
+      kao(:, 1,12, 7) = (/ &
+        & 0.11358e+04_rb,0.99970e+03_rb,0.86357e+03_rb,0.72739e+03_rb,0.59707e+03_rb, &
+        & 0.69145e+03_rb,0.81829e+03_rb,0.94626e+03_rb,0.10746e+04_rb /)
+      kao(:, 2,12, 7) = (/ &
+        & 0.11253e+04_rb,0.99054e+03_rb,0.85571e+03_rb,0.72085e+03_rb,0.59339e+03_rb, &
+        & 0.69172e+03_rb,0.81863e+03_rb,0.94675e+03_rb,0.10752e+04_rb /)
+      kao(:, 3,12, 7) = (/ &
+        & 0.11163e+04_rb,0.98265e+03_rb,0.84895e+03_rb,0.71521e+03_rb,0.59030e+03_rb, &
+        & 0.69172e+03_rb,0.81873e+03_rb,0.94686e+03_rb,0.10754e+04_rb /)
+      kao(:, 4,12, 7) = (/ &
+        & 0.11085e+04_rb,0.97579e+03_rb,0.84307e+03_rb,0.71031e+03_rb,0.58782e+03_rb, &
+        & 0.69148e+03_rb,0.81855e+03_rb,0.94672e+03_rb,0.10753e+04_rb /)
+      kao(:, 5,12, 7) = (/ &
+        & 0.11016e+04_rb,0.96977e+03_rb,0.83790e+03_rb,0.70601e+03_rb,0.58538e+03_rb, &
+        & 0.69099e+03_rb,0.81812e+03_rb,0.94628e+03_rb,0.10749e+04_rb /)
+      kao(:, 1,13, 7) = (/ &
+        & 0.11104e+04_rb,0.97748e+03_rb,0.84452e+03_rb,0.71152e+03_rb,0.58852e+03_rb, &
+        & 0.69093e+03_rb,0.81799e+03_rb,0.94612e+03_rb,0.10746e+04_rb /)
+      kao(:, 2,13, 7) = (/ &
+        & 0.11018e+04_rb,0.96998e+03_rb,0.83809e+03_rb,0.70616e+03_rb,0.58570e+03_rb, &
+        & 0.69123e+03_rb,0.81841e+03_rb,0.94664e+03_rb,0.10752e+04_rb /)
+      kao(:, 3,13, 7) = (/ &
+        & 0.10945e+04_rb,0.96352e+03_rb,0.83255e+03_rb,0.70155e+03_rb,0.58307e+03_rb, &
+        & 0.69128e+03_rb,0.81849e+03_rb,0.94675e+03_rb,0.10754e+04_rb /)
+      kao(:, 4,13, 7) = (/ &
+        & 0.10880e+04_rb,0.95790e+03_rb,0.82774e+03_rb,0.69753e+03_rb,0.58045e+03_rb, &
+        & 0.69107e+03_rb,0.81832e+03_rb,0.94657e+03_rb,0.10753e+04_rb /)
+      kao(:, 5,13, 7) = (/ &
+        & 0.10824e+04_rb,0.95297e+03_rb,0.82351e+03_rb,0.69401e+03_rb,0.57806e+03_rb, &
+        & 0.69061e+03_rb,0.81788e+03_rb,0.94614e+03_rb,0.10749e+04_rb /)
+      kao(:, 1, 1, 8) = (/ &
+        & 0.19433e+04_rb,0.17047e+04_rb,0.14661e+04_rb,0.12275e+04_rb,0.98902e+03_rb, &
+        & 0.75120e+03_rb,0.85754e+03_rb,0.98845e+03_rb,0.11206e+04_rb /)
+      kao(:, 2, 1, 8) = (/ &
+        & 0.18941e+04_rb,0.16616e+04_rb,0.14292e+04_rb,0.11968e+04_rb,0.96439e+03_rb, &
+        & 0.73548e+03_rb,0.85594e+03_rb,0.98707e+03_rb,0.11193e+04_rb /)
+      kao(:, 3, 1, 8) = (/ &
+        & 0.18499e+04_rb,0.16229e+04_rb,0.13960e+04_rb,0.11691e+04_rb,0.94229e+03_rb, &
+        & 0.72448e+03_rb,0.85413e+03_rb,0.98549e+03_rb,0.11177e+04_rb /)
+      kao(:, 4, 1, 8) = (/ &
+        & 0.18099e+04_rb,0.15880e+04_rb,0.13661e+04_rb,0.11442e+04_rb,0.92233e+03_rb, &
+        & 0.72225e+03_rb,0.85214e+03_rb,0.98373e+03_rb,0.11158e+04_rb /)
+      kao(:, 5, 1, 8) = (/ &
+        & 0.17737e+04_rb,0.15563e+04_rb,0.13389e+04_rb,0.11215e+04_rb,0.90421e+03_rb, &
+        & 0.72001e+03_rb,0.85005e+03_rb,0.98175e+03_rb,0.11138e+04_rb /)
+      kao(:, 1, 2, 8) = (/ &
+        & 0.17953e+04_rb,0.15751e+04_rb,0.13551e+04_rb,0.11350e+04_rb,0.91499e+03_rb, &
+        & 0.72569e+03_rb,0.85649e+03_rb,0.98821e+03_rb,0.11210e+04_rb /)
+      kao(:, 2, 2, 8) = (/ &
+        & 0.17530e+04_rb,0.15382e+04_rb,0.13234e+04_rb,0.11086e+04_rb,0.89388e+03_rb, &
+        & 0.72424e+03_rb,0.85509e+03_rb,0.98698e+03_rb,0.11198e+04_rb /)
+      kao(:, 3, 2, 8) = (/ &
+        & 0.17152e+04_rb,0.15051e+04_rb,0.12950e+04_rb,0.10850e+04_rb,0.87497e+03_rb, &
+        & 0.72267e+03_rb,0.85348e+03_rb,0.98553e+03_rb,0.11184e+04_rb /)
+      kao(:, 4, 2, 8) = (/ &
+        & 0.16811e+04_rb,0.14753e+04_rb,0.12695e+04_rb,0.10637e+04_rb,0.85793e+03_rb, &
+        & 0.72084e+03_rb,0.85163e+03_rb,0.98389e+03_rb,0.11166e+04_rb /)
+      kao(:, 5, 2, 8) = (/ &
+        & 0.16502e+04_rb,0.14483e+04_rb,0.12463e+04_rb,0.10444e+04_rb,0.84250e+03_rb, &
+        & 0.71877e+03_rb,0.84969e+03_rb,0.98204e+03_rb,0.11147e+04_rb /)
+      kao(:, 1, 3, 8) = (/ &
+        & 0.16788e+04_rb,0.14733e+04_rb,0.12678e+04_rb,0.10623e+04_rb,0.85679e+03_rb, &
+        & 0.72434e+03_rb,0.85588e+03_rb,0.98822e+03_rb,0.11216e+04_rb /)
+      kao(:, 2, 3, 8) = (/ &
+        & 0.16418e+04_rb,0.14409e+04_rb,0.12400e+04_rb,0.10391e+04_rb,0.83827e+03_rb, &
+        & 0.72306e+03_rb,0.85466e+03_rb,0.98716e+03_rb,0.11206e+04_rb /)
+      kao(:, 3, 3, 8) = (/ &
+        & 0.16087e+04_rb,0.14119e+04_rb,0.12152e+04_rb,0.10184e+04_rb,0.82172e+03_rb, &
+        & 0.72165e+03_rb,0.85327e+03_rb,0.98590e+03_rb,0.11193e+04_rb /)
+      kao(:, 4, 3, 8) = (/ &
+        & 0.15790e+04_rb,0.13859e+04_rb,0.11929e+04_rb,0.99988e+03_rb,0.80688e+03_rb, &
+        & 0.72007e+03_rb,0.85161e+03_rb,0.98438e+03_rb,0.11177e+04_rb /)
+      kao(:, 5, 3, 8) = (/ &
+        & 0.15522e+04_rb,0.13625e+04_rb,0.11728e+04_rb,0.98311e+03_rb,0.79349e+03_rb, &
+        & 0.71824e+03_rb,0.84982e+03_rb,0.98270e+03_rb,0.11159e+04_rb /)
+      kao(:, 1, 4, 8) = (/ &
+        & 0.15823e+04_rb,0.13888e+04_rb,0.11953e+04_rb,0.10019e+04_rb,0.80851e+03_rb, &
+        & 0.72326e+03_rb,0.85540e+03_rb,0.98823e+03_rb,0.11221e+04_rb /)
+      kao(:, 2, 4, 8) = (/ &
+        & 0.15495e+04_rb,0.13601e+04_rb,0.11708e+04_rb,0.98142e+03_rb,0.79213e+03_rb, &
+        & 0.72214e+03_rb,0.85436e+03_rb,0.98737e+03_rb,0.11213e+04_rb /)
+      kao(:, 3, 4, 8) = (/ &
+        & 0.15204e+04_rb,0.13346e+04_rb,0.11489e+04_rb,0.96322e+03_rb,0.77758e+03_rb, &
+        & 0.72091e+03_rb,0.85317e+03_rb,0.98628e+03_rb,0.11202e+04_rb /)
+      kao(:, 4, 4, 8) = (/ &
+        & 0.14943e+04_rb,0.13118e+04_rb,0.11294e+04_rb,0.94694e+03_rb,0.76455e+03_rb, &
+        & 0.71952e+03_rb,0.85175e+03_rb,0.98496e+03_rb,0.11188e+04_rb /)
+      kao(:, 5, 4, 8) = (/ &
+        & 0.14709e+04_rb,0.12913e+04_rb,0.11118e+04_rb,0.93229e+03_rb,0.75284e+03_rb, &
+        & 0.71792e+03_rb,0.85010e+03_rb,0.98342e+03_rb,0.11171e+04_rb /)
+      kao(:, 1, 5, 8) = (/ &
+        & 0.15002e+04_rb,0.13170e+04_rb,0.11338e+04_rb,0.95063e+03_rb,0.76749e+03_rb, &
+        & 0.72234e+03_rb,0.85495e+03_rb,0.98821e+03_rb,0.11224e+04_rb /)
+      kao(:, 2, 5, 8) = (/ &
+        & 0.14712e+04_rb,0.12916e+04_rb,0.11120e+04_rb,0.93250e+03_rb,0.75300e+03_rb, &
+        & 0.72139e+03_rb,0.85409e+03_rb,0.98753e+03_rb,0.11218e+04_rb /)
+      kao(:, 3, 5, 8) = (/ &
+        & 0.14456e+04_rb,0.12692e+04_rb,0.10928e+04_rb,0.91647e+03_rb,0.74017e+03_rb, &
+        & 0.72031e+03_rb,0.85307e+03_rb,0.98657e+03_rb,0.11209e+04_rb /)
+      kao(:, 4, 5, 8) = (/ &
+        & 0.14227e+04_rb,0.12492e+04_rb,0.10757e+04_rb,0.90219e+03_rb,0.72875e+03_rb, &
+        & 0.71909e+03_rb,0.85186e+03_rb,0.98546e+03_rb,0.11197e+04_rb /)
+      kao(:, 5, 5, 8) = (/ &
+        & 0.14022e+04_rb,0.12312e+04_rb,0.10603e+04_rb,0.88937e+03_rb,0.71851e+03_rb, &
+        & 0.71769e+03_rb,0.85037e+03_rb,0.98406e+03_rb,0.11182e+04_rb /)
+      kao(:, 1, 6, 8) = (/ &
+        & 0.14314e+04_rb,0.12568e+04_rb,0.10822e+04_rb,0.90763e+03_rb,0.73310e+03_rb, &
+        & 0.72155e+03_rb,0.85452e+03_rb,0.98813e+03_rb,0.11226e+04_rb /)
+      kao(:, 2, 6, 8) = (/ &
+        & 0.14056e+04_rb,0.12342e+04_rb,0.10628e+04_rb,0.89150e+03_rb,0.72020e+03_rb, &
+        & 0.72077e+03_rb,0.85386e+03_rb,0.98765e+03_rb,0.11222e+04_rb /)
+      kao(:, 3, 6, 8) = (/ &
+        & 0.13829e+04_rb,0.12143e+04_rb,0.10458e+04_rb,0.87730e+03_rb,0.70887e+03_rb, &
+        & 0.71986e+03_rb,0.85300e+03_rb,0.98688e+03_rb,0.11215e+04_rb /)
+      kao(:, 4, 6, 8) = (/ &
+        & 0.13627e+04_rb,0.11967e+04_rb,0.10307e+04_rb,0.86473e+03_rb,0.69880e+03_rb, &
+        & 0.71879e+03_rb,0.85197e+03_rb,0.98590e+03_rb,0.11205e+04_rb /)
+      kao(:, 5, 6, 8) = (/ &
+        & 0.13448e+04_rb,0.11810e+04_rb,0.10172e+04_rb,0.85348e+03_rb,0.68979e+03_rb, &
+        & 0.71757e+03_rb,0.85073e+03_rb,0.98469e+03_rb,0.11192e+04_rb /)
+      kao(:, 1, 7, 8) = (/ &
+        & 0.13728e+04_rb,0.12055e+04_rb,0.10383e+04_rb,0.87102e+03_rb,0.70382e+03_rb, &
+        & 0.72081e+03_rb,0.85410e+03_rb,0.98799e+03_rb,0.11227e+04_rb /)
+      kao(:, 2, 7, 8) = (/ &
+        & 0.13499e+04_rb,0.11854e+04_rb,0.10210e+04_rb,0.85666e+03_rb,0.69233e+03_rb, &
+        & 0.72022e+03_rb,0.85362e+03_rb,0.98768e+03_rb,0.11225e+04_rb /)
+      kao(:, 3, 7, 8) = (/ &
+        & 0.13297e+04_rb,0.11678e+04_rb,0.10059e+04_rb,0.84408e+03_rb,0.68228e+03_rb, &
+        & 0.71945e+03_rb,0.85293e+03_rb,0.98711e+03_rb,0.11220e+04_rb /)
+      kao(:, 4, 7, 8) = (/ &
+        & 0.13120e+04_rb,0.11523e+04_rb,0.99261e+03_rb,0.83298e+03_rb,0.67339e+03_rb, &
+        & 0.71854e+03_rb,0.85205e+03_rb,0.98632e+03_rb,0.11212e+04_rb /)
+      kao(:, 5, 7, 8) = (/ &
+        & 0.12962e+04_rb,0.11384e+04_rb,0.98077e+03_rb,0.82312e+03_rb,0.66550e+03_rb, &
+        & 0.71746e+03_rb,0.85098e+03_rb,0.98523e+03_rb,0.11200e+04_rb /)
+      kao(:, 1, 8, 8) = (/ &
+        & 0.13227e+04_rb,0.11617e+04_rb,0.10007e+04_rb,0.83971e+03_rb,0.67877e+03_rb, &
+        & 0.72007e+03_rb,0.85366e+03_rb,0.98779e+03_rb,0.11227e+04_rb /)
+      kao(:, 2, 8, 8) = (/ &
+        & 0.13022e+04_rb,0.11438e+04_rb,0.98533e+03_rb,0.82690e+03_rb,0.66854e+03_rb, &
+        & 0.71969e+03_rb,0.85334e+03_rb,0.98763e+03_rb,0.11227e+04_rb /)
+      kao(:, 3, 8, 8) = (/ &
+        & 0.12844e+04_rb,0.11282e+04_rb,0.97196e+03_rb,0.81577e+03_rb,0.65963e+03_rb, &
+        & 0.71908e+03_rb,0.85283e+03_rb,0.98717e+03_rb,0.11223e+04_rb /)
+      kao(:, 4, 8, 8) = (/ &
+        & 0.12688e+04_rb,0.11145e+04_rb,0.96023e+03_rb,0.80599e+03_rb,0.65182e+03_rb, &
+        & 0.71830e+03_rb,0.85210e+03_rb,0.98659e+03_rb,0.11217e+04_rb /)
+      kao(:, 5, 8, 8) = (/ &
+        & 0.12549e+04_rb,0.11024e+04_rb,0.94982e+03_rb,0.79733e+03_rb,0.64488e+03_rb, &
+        & 0.71736e+03_rb,0.85118e+03_rb,0.98569e+03_rb,0.11208e+04_rb /)
+      kao(:, 1, 9, 8) = (/ &
+        & 0.12800e+04_rb,0.11244e+04_rb,0.96868e+03_rb,0.81302e+03_rb,0.65744e+03_rb, &
+        & 0.71936e+03_rb,0.85323e+03_rb,0.98761e+03_rb,0.11226e+04_rb /)
+      kao(:, 2, 9, 8) = (/ &
+        & 0.12618e+04_rb,0.11084e+04_rb,0.95498e+03_rb,0.80161e+03_rb,0.64832e+03_rb, &
+        & 0.71916e+03_rb,0.85306e+03_rb,0.98751e+03_rb,0.11227e+04_rb /)
+      kao(:, 3, 9, 8) = (/ &
+        & 0.12460e+04_rb,0.10945e+04_rb,0.94313e+03_rb,0.79175e+03_rb,0.64042e+03_rb, &
+        & 0.71874e+03_rb,0.85269e+03_rb,0.98731e+03_rb,0.11226e+04_rb /)
+      kao(:, 4, 9, 8) = (/ &
+        & 0.12322e+04_rb,0.10825e+04_rb,0.93277e+03_rb,0.78311e+03_rb,0.63351e+03_rb, &
+        & 0.71809e+03_rb,0.85213e+03_rb,0.98681e+03_rb,0.11221e+04_rb /)
+      kao(:, 5, 9, 8) = (/ &
+        & 0.12200e+04_rb,0.10718e+04_rb,0.92365e+03_rb,0.77552e+03_rb,0.62743e+03_rb, &
+        & 0.71728e+03_rb,0.85134e+03_rb,0.98607e+03_rb,0.11214e+04_rb /)
+      kao(:, 1,10, 8) = (/ &
+        & 0.12423e+04_rb,0.10913e+04_rb,0.94034e+03_rb,0.78942e+03_rb,0.63856e+03_rb, &
+        & 0.71867e+03_rb,0.85279e+03_rb,0.98738e+03_rb,0.11225e+04_rb /)
+      kao(:, 2,10, 8) = (/ &
+        & 0.12262e+04_rb,0.10772e+04_rb,0.92827e+03_rb,0.77936e+03_rb,0.63052e+03_rb, &
+        & 0.71863e+03_rb,0.85274e+03_rb,0.98738e+03_rb,0.11227e+04_rb /)
+      kao(:, 3,10, 8) = (/ &
+        & 0.12123e+04_rb,0.10651e+04_rb,0.91788e+03_rb,0.77071e+03_rb,0.62359e+03_rb, &
+        & 0.71835e+03_rb,0.85251e+03_rb,0.98725e+03_rb,0.11227e+04_rb /)
+      kao(:, 4,10, 8) = (/ &
+        & 0.12002e+04_rb,0.10545e+04_rb,0.90884e+03_rb,0.76317e+03_rb,0.61756e+03_rb, &
+        & 0.71785e+03_rb,0.85203e+03_rb,0.98691e+03_rb,0.11224e+04_rb /)
+      kao(:, 5,10, 8) = (/ &
+        & 0.11897e+04_rb,0.10453e+04_rb,0.90090e+03_rb,0.75655e+03_rb,0.61227e+03_rb, &
+        & 0.71716e+03_rb,0.85141e+03_rb,0.98631e+03_rb,0.11218e+04_rb /)
+      kao(:, 1,11, 8) = (/ &
+        & 0.12033e+04_rb,0.10572e+04_rb,0.91110e+03_rb,0.76506e+03_rb,0.61908e+03_rb, &
+        & 0.71809e+03_rb,0.85242e+03_rb,0.98721e+03_rb,0.11225e+04_rb /)
+      kao(:, 2,11, 8) = (/ &
+        & 0.11901e+04_rb,0.10456e+04_rb,0.90123e+03_rb,0.75682e+03_rb,0.61248e+03_rb, &
+        & 0.71809e+03_rb,0.85240e+03_rb,0.98723e+03_rb,0.11226e+04_rb /)
+      kao(:, 3,11, 8) = (/ &
+        & 0.11788e+04_rb,0.10357e+04_rb,0.89271e+03_rb,0.74972e+03_rb,0.60692e+03_rb, &
+        & 0.71785e+03_rb,0.85217e+03_rb,0.98712e+03_rb,0.11227e+04_rb /)
+      kao(:, 4,11, 8) = (/ &
+        & 0.11689e+04_rb,0.10271e+04_rb,0.88529e+03_rb,0.74355e+03_rb,0.60253e+03_rb, &
+        & 0.71738e+03_rb,0.85177e+03_rb,0.98681e+03_rb,0.11224e+04_rb /)
+      kao(:, 5,11, 8) = (/ &
+        & 0.11602e+04_rb,0.10195e+04_rb,0.87880e+03_rb,0.73813e+03_rb,0.59855e+03_rb, &
+        & 0.71672e+03_rb,0.85114e+03_rb,0.98618e+03_rb,0.11218e+04_rb /)
+      kao(:, 1,12, 8) = (/ &
+        & 0.11713e+04_rb,0.10292e+04_rb,0.88712e+03_rb,0.74507e+03_rb,0.60379e+03_rb, &
+        & 0.71766e+03_rb,0.85212e+03_rb,0.98706e+03_rb,0.11225e+04_rb /)
+      kao(:, 2,12, 8) = (/ &
+        & 0.11605e+04_rb,0.10197e+04_rb,0.87902e+03_rb,0.73833e+03_rb,0.59891e+03_rb, &
+        & 0.71764e+03_rb,0.85212e+03_rb,0.98710e+03_rb,0.11227e+04_rb /)
+      kao(:, 3,12, 8) = (/ &
+        & 0.11512e+04_rb,0.10116e+04_rb,0.87205e+03_rb,0.73251e+03_rb,0.59502e+03_rb, &
+        & 0.71744e+03_rb,0.85192e+03_rb,0.98700e+03_rb,0.11227e+04_rb /)
+      kao(:, 4,12, 8) = (/ &
+        & 0.11431e+04_rb,0.10045e+04_rb,0.86598e+03_rb,0.72746e+03_rb,0.59151e+03_rb, &
+        & 0.71699e+03_rb,0.85153e+03_rb,0.98663e+03_rb,0.11224e+04_rb /)
+      kao(:, 5,12, 8) = (/ &
+        & 0.11360e+04_rb,0.99832e+03_rb,0.86067e+03_rb,0.72302e+03_rb,0.58868e+03_rb, &
+        & 0.71636e+03_rb,0.85092e+03_rb,0.98606e+03_rb,0.11218e+04_rb /)
+      kao(:, 1,13, 8) = (/ &
+        & 0.11451e+04_rb,0.10063e+04_rb,0.86748e+03_rb,0.72871e+03_rb,0.59258e+03_rb, &
+        & 0.71726e+03_rb,0.85187e+03_rb,0.98696e+03_rb,0.11225e+04_rb /)
+      kao(:, 2,13, 8) = (/ &
+        & 0.11363e+04_rb,0.99855e+03_rb,0.86085e+03_rb,0.72320e+03_rb,0.58896e+03_rb, &
+        & 0.71729e+03_rb,0.85183e+03_rb,0.98699e+03_rb,0.11227e+04_rb /)
+      kao(:, 3,13, 8) = (/ &
+        & 0.11287e+04_rb,0.99189e+03_rb,0.85515e+03_rb,0.71842e+03_rb,0.58585e+03_rb, &
+        & 0.71710e+03_rb,0.85169e+03_rb,0.98691e+03_rb,0.11227e+04_rb /)
+      kao(:, 4,13, 8) = (/ &
+        & 0.11220e+04_rb,0.98609e+03_rb,0.85017e+03_rb,0.71429e+03_rb,0.58380e+03_rb, &
+        & 0.71668e+03_rb,0.85133e+03_rb,0.98660e+03_rb,0.11224e+04_rb /)
+      kao(:, 5,13, 8) = (/ &
+        & 0.11162e+04_rb,0.98101e+03_rb,0.84582e+03_rb,0.71065e+03_rb,0.58234e+03_rb, &
+        & 0.71606e+03_rb,0.85074e+03_rb,0.98601e+03_rb,0.11218e+04_rb /)
+      kao(:, 1, 1, 9) = (/ &
+        & 0.19571e+04_rb,0.17167e+04_rb,0.14761e+04_rb,0.12357e+04_rb,0.99528e+03_rb, &
+        & 0.75488e+03_rb,0.87315e+03_rb,0.10086e+04_rb,0.11441e+04_rb /)
+      kao(:, 2, 1, 9) = (/ &
+        & 0.19076e+04_rb,0.16733e+04_rb,0.14390e+04_rb,0.12047e+04_rb,0.97044e+03_rb, &
+        & 0.73841e+03_rb,0.87146e+03_rb,0.10070e+04_rb,0.11425e+04_rb /)
+      kao(:, 3, 1, 9) = (/ &
+        & 0.18630e+04_rb,0.16343e+04_rb,0.14056e+04_rb,0.11769e+04_rb,0.94822e+03_rb, &
+        & 0.73460e+03_rb,0.86967e+03_rb,0.10052e+04_rb,0.11407e+04_rb /)
+      kao(:, 4, 1, 9) = (/ &
+        & 0.18229e+04_rb,0.15991e+04_rb,0.13754e+04_rb,0.11517e+04_rb,0.92811e+03_rb, &
+        & 0.73269e+03_rb,0.86788e+03_rb,0.10033e+04_rb,0.11387e+04_rb /)
+      kao(:, 5, 1, 9) = (/ &
+        & 0.17864e+04_rb,0.15672e+04_rb,0.13481e+04_rb,0.11289e+04_rb,0.90984e+03_rb, &
+        & 0.73091e+03_rb,0.86616e+03_rb,0.10016e+04_rb,0.11368e+04_rb /)
+      kao(:, 1, 2, 9) = (/ &
+        & 0.18080e+04_rb,0.15862e+04_rb,0.13643e+04_rb,0.11425e+04_rb,0.92072e+03_rb, &
+        & 0.73694e+03_rb,0.87246e+03_rb,0.10086e+04_rb,0.11448e+04_rb /)
+      kao(:, 2, 2, 9) = (/ &
+        & 0.17655e+04_rb,0.15491e+04_rb,0.13324e+04_rb,0.11159e+04_rb,0.89943e+03_rb, &
+        & 0.73525e+03_rb,0.87092e+03_rb,0.10070e+04_rb,0.11432e+04_rb /)
+      kao(:, 3, 2, 9) = (/ &
+        & 0.17274e+04_rb,0.15157e+04_rb,0.13039e+04_rb,0.10921e+04_rb,0.88039e+03_rb, &
+        & 0.73343e+03_rb,0.86922e+03_rb,0.10053e+04_rb,0.11415e+04_rb /)
+      kao(:, 4, 2, 9) = (/ &
+        & 0.16931e+04_rb,0.14856e+04_rb,0.12781e+04_rb,0.10706e+04_rb,0.86326e+03_rb, &
+        & 0.73166e+03_rb,0.86752e+03_rb,0.10036e+04_rb,0.11395e+04_rb /)
+      kao(:, 5, 2, 9) = (/ &
+        & 0.16621e+04_rb,0.14584e+04_rb,0.12549e+04_rb,0.10512e+04_rb,0.84768e+03_rb, &
+        & 0.73000e+03_rb,0.86583e+03_rb,0.10018e+04_rb,0.11376e+04_rb /)
+      kao(:, 1, 3, 9) = (/ &
+        & 0.16908e+04_rb,0.14837e+04_rb,0.12764e+04_rb,0.10692e+04_rb,0.86209e+03_rb, &
+        & 0.73591e+03_rb,0.87213e+03_rb,0.10088e+04_rb,0.11456e+04_rb /)
+      kao(:, 2, 3, 9) = (/ &
+        & 0.16535e+04_rb,0.14509e+04_rb,0.12484e+04_rb,0.10459e+04_rb,0.84339e+03_rb, &
+        & 0.73450e+03_rb,0.87080e+03_rb,0.10075e+04_rb,0.11442e+04_rb /)
+      kao(:, 3, 3, 9) = (/ &
+        & 0.16202e+04_rb,0.14218e+04_rb,0.12234e+04_rb,0.10251e+04_rb,0.82680e+03_rb, &
+        & 0.73291e+03_rb,0.86926e+03_rb,0.10059e+04_rb,0.11426e+04_rb /)
+      kao(:, 4, 3, 9) = (/ &
+        & 0.15902e+04_rb,0.13956e+04_rb,0.12011e+04_rb,0.10064e+04_rb,0.81183e+03_rb, &
+        & 0.73120e+03_rb,0.86761e+03_rb,0.10042e+04_rb,0.11407e+04_rb /)
+      kao(:, 5, 3, 9) = (/ &
+        & 0.15632e+04_rb,0.13720e+04_rb,0.11808e+04_rb,0.98952e+03_rb,0.79832e+03_rb, &
+        & 0.72957e+03_rb,0.86594e+03_rb,0.10024e+04_rb,0.11387e+04_rb /)
+      kao(:, 1, 4, 9) = (/ &
+        & 0.15935e+04_rb,0.13985e+04_rb,0.12035e+04_rb,0.10084e+04_rb,0.81344e+03_rb, &
+        & 0.73513e+03_rb,0.87195e+03_rb,0.10092e+04_rb,0.11463e+04_rb /)
+      kao(:, 2, 4, 9) = (/ &
+        & 0.15605e+04_rb,0.13697e+04_rb,0.11787e+04_rb,0.98782e+03_rb,0.79694e+03_rb, &
+        & 0.73394e+03_rb,0.87080e+03_rb,0.10079e+04_rb,0.11451e+04_rb /)
+      kao(:, 3, 4, 9) = (/ &
+        & 0.15313e+04_rb,0.13439e+04_rb,0.11567e+04_rb,0.96950e+03_rb,0.78229e+03_rb, &
+        & 0.73257e+03_rb,0.86942e+03_rb,0.10065e+04_rb,0.11436e+04_rb /)
+      kao(:, 4, 4, 9) = (/ &
+        & 0.15050e+04_rb,0.13210e+04_rb,0.11371e+04_rb,0.95308e+03_rb,0.76922e+03_rb, &
+        & 0.73104e+03_rb,0.86787e+03_rb,0.10049e+04_rb,0.11419e+04_rb /)
+      kao(:, 5, 4, 9) = (/ &
+        & 0.14814e+04_rb,0.13003e+04_rb,0.11193e+04_rb,0.93833e+03_rb,0.75745e+03_rb, &
+        & 0.72946e+03_rb,0.86622e+03_rb,0.10032e+04_rb,0.11400e+04_rb /)
+      kao(:, 1, 5, 9) = (/ &
+        & 0.15109e+04_rb,0.13262e+04_rb,0.11415e+04_rb,0.95685e+03_rb,0.77217e+03_rb, &
+        & 0.73443e+03_rb,0.87177e+03_rb,0.10094e+04_rb,0.11470e+04_rb /)
+      kao(:, 2, 5, 9) = (/ &
+        & 0.14817e+04_rb,0.13007e+04_rb,0.11196e+04_rb,0.93852e+03_rb,0.75755e+03_rb, &
+        & 0.73343e+03_rb,0.87078e+03_rb,0.10083e+04_rb,0.11459e+04_rb /)
+      kao(:, 3, 5, 9) = (/ &
+        & 0.14559e+04_rb,0.12780e+04_rb,0.11003e+04_rb,0.92240e+03_rb,0.74463e+03_rb, &
+        & 0.73229e+03_rb,0.86958e+03_rb,0.10071e+04_rb,0.11446e+04_rb /)
+      kao(:, 4, 5, 9) = (/ &
+        & 0.14329e+04_rb,0.12579e+04_rb,0.10829e+04_rb,0.90802e+03_rb,0.73310e+03_rb, &
+        & 0.73095e+03_rb,0.86817e+03_rb,0.10056e+04_rb,0.11430e+04_rb /)
+      kao(:, 5, 5, 9) = (/ &
+        & 0.14122e+04_rb,0.12398e+04_rb,0.10675e+04_rb,0.89511e+03_rb,0.72281e+03_rb, &
+        & 0.72946e+03_rb,0.86664e+03_rb,0.10039e+04_rb,0.11412e+04_rb /)
+      kao(:, 1, 6, 9) = (/ &
+        & 0.14417e+04_rb,0.12655e+04_rb,0.10896e+04_rb,0.91348e+03_rb,0.73747e+03_rb, &
+        & 0.73386e+03_rb,0.87165e+03_rb,0.10096e+04_rb,0.11475e+04_rb /)
+      kao(:, 2, 6, 9) = (/ &
+        & 0.14156e+04_rb,0.12429e+04_rb,0.10700e+04_rb,0.89725e+03_rb,0.72457e+03_rb, &
+        & 0.73304e+03_rb,0.87078e+03_rb,0.10087e+04_rb,0.11466e+04_rb /)
+      kao(:, 3, 6, 9) = (/ &
+        & 0.13928e+04_rb,0.12228e+04_rb,0.10529e+04_rb,0.88300e+03_rb,0.71308e+03_rb, &
+        & 0.73207e+03_rb,0.86977e+03_rb,0.10076e+04_rb,0.11455e+04_rb /)
+      kao(:, 4, 6, 9) = (/ &
+        & 0.13725e+04_rb,0.12051e+04_rb,0.10377e+04_rb,0.87029e+03_rb,0.70290e+03_rb, &
+        & 0.73093e+03_rb,0.86853e+03_rb,0.10063e+04_rb,0.11441e+04_rb /)
+      kao(:, 5, 6, 9) = (/ &
+        & 0.13544e+04_rb,0.11892e+04_rb,0.10241e+04_rb,0.85897e+03_rb,0.69390e+03_rb, &
+        & 0.72961e+03_rb,0.86706e+03_rb,0.10048e+04_rb,0.11424e+04_rb /)
+      kao(:, 1, 7, 9) = (/ &
+        & 0.13826e+04_rb,0.12140e+04_rb,0.10453e+04_rb,0.87664e+03_rb,0.70803e+03_rb, &
+        & 0.73339e+03_rb,0.87155e+03_rb,0.10098e+04_rb,0.11480e+04_rb /)
+      kao(:, 2, 7, 9) = (/ &
+        & 0.13594e+04_rb,0.11937e+04_rb,0.10279e+04_rb,0.86216e+03_rb,0.69645e+03_rb, &
+        & 0.73269e+03_rb,0.87079e+03_rb,0.10090e+04_rb,0.11472e+04_rb /)
+      kao(:, 3, 7, 9) = (/ &
+        & 0.13392e+04_rb,0.11759e+04_rb,0.10127e+04_rb,0.84953e+03_rb,0.68632e+03_rb, &
+        & 0.73188e+03_rb,0.86990e+03_rb,0.10081e+04_rb,0.11462e+04_rb /)
+      kao(:, 4, 7, 9) = (/ &
+        & 0.13213e+04_rb,0.11603e+04_rb,0.99928e+03_rb,0.83829e+03_rb,0.67737e+03_rb, &
+        & 0.73090e+03_rb,0.86884e+03_rb,0.10069e+04_rb,0.11450e+04_rb /)
+      kao(:, 5, 7, 9) = (/ &
+        & 0.13054e+04_rb,0.11464e+04_rb,0.98739e+03_rb,0.82837e+03_rb,0.66946e+03_rb, &
+        & 0.72975e+03_rb,0.86756e+03_rb,0.10055e+04_rb,0.11435e+04_rb /)
+      kao(:, 1, 8, 9) = (/ &
+        & 0.13322e+04_rb,0.11698e+04_rb,0.10074e+04_rb,0.84511e+03_rb,0.68280e+03_rb, &
+        & 0.73302e+03_rb,0.87145e+03_rb,0.10099e+04_rb,0.11483e+04_rb /)
+      kao(:, 2, 8, 9) = (/ &
+        & 0.13116e+04_rb,0.11517e+04_rb,0.99199e+03_rb,0.83221e+03_rb,0.67250e+03_rb, &
+        & 0.73244e+03_rb,0.87079e+03_rb,0.10093e+04_rb,0.11477e+04_rb /)
+      kao(:, 3, 8, 9) = (/ &
+        & 0.12937e+04_rb,0.11360e+04_rb,0.97848e+03_rb,0.82097e+03_rb,0.66349e+03_rb, &
+        & 0.73170e+03_rb,0.87002e+03_rb,0.10085e+04_rb,0.11469e+04_rb /)
+      kao(:, 4, 8, 9) = (/ &
+        & 0.12778e+04_rb,0.11223e+04_rb,0.96666e+03_rb,0.81113e+03_rb,0.65562e+03_rb, &
+        & 0.73087e+03_rb,0.86909e+03_rb,0.10075e+04_rb,0.11458e+04_rb /)
+      kao(:, 5, 8, 9) = (/ &
+        & 0.12639e+04_rb,0.11101e+04_rb,0.95620e+03_rb,0.80244e+03_rb,0.64865e+03_rb, &
+        & 0.72985e+03_rb,0.86796e+03_rb,0.10062e+04_rb,0.11444e+04_rb /)
+      kao(:, 1, 9, 9) = (/ &
+        & 0.12892e+04_rb,0.11322e+04_rb,0.97520e+03_rb,0.81821e+03_rb,0.66134e+03_rb, &
+        & 0.73274e+03_rb,0.87135e+03_rb,0.10099e+04_rb,0.11485e+04_rb /)
+      kao(:, 2, 9, 9) = (/ &
+        & 0.12708e+04_rb,0.11161e+04_rb,0.96140e+03_rb,0.80674e+03_rb,0.65213e+03_rb, &
+        & 0.73213e+03_rb,0.87079e+03_rb,0.10095e+04_rb,0.11481e+04_rb /)
+      kao(:, 3, 9, 9) = (/ &
+        & 0.12548e+04_rb,0.11022e+04_rb,0.94949e+03_rb,0.79681e+03_rb,0.64421e+03_rb, &
+        & 0.73152e+03_rb,0.87011e+03_rb,0.10088e+04_rb,0.11474e+04_rb /)
+      kao(:, 4, 9, 9) = (/ &
+        & 0.12410e+04_rb,0.10900e+04_rb,0.93905e+03_rb,0.78808e+03_rb,0.63726e+03_rb, &
+        & 0.73083e+03_rb,0.86928e+03_rb,0.10079e+04_rb,0.11464e+04_rb /)
+      kao(:, 5, 9, 9) = (/ &
+        & 0.12287e+04_rb,0.10793e+04_rb,0.92981e+03_rb,0.78042e+03_rb,0.63106e+03_rb, &
+        & 0.72995e+03_rb,0.86831e+03_rb,0.10068e+04_rb,0.11452e+04_rb /)
+      kao(:, 1,10, 9) = (/ &
+        & 0.12511e+04_rb,0.10989e+04_rb,0.94665e+03_rb,0.79449e+03_rb,0.64227e+03_rb, &
+        & 0.73248e+03_rb,0.87121e+03_rb,0.10099e+04_rb,0.11487e+04_rb /)
+      kao(:, 2,10, 9) = (/ &
+        & 0.12350e+04_rb,0.10848e+04_rb,0.93449e+03_rb,0.78435e+03_rb,0.63416e+03_rb, &
+        & 0.73188e+03_rb,0.87073e+03_rb,0.10095e+04_rb,0.11483e+04_rb /)
+      kao(:, 3,10, 9) = (/ &
+        & 0.12209e+04_rb,0.10725e+04_rb,0.92407e+03_rb,0.77565e+03_rb,0.62724e+03_rb, &
+        & 0.73132e+03_rb,0.87012e+03_rb,0.10091e+04_rb,0.11477e+04_rb /)
+      kao(:, 4,10, 9) = (/ &
+        & 0.12088e+04_rb,0.10618e+04_rb,0.91493e+03_rb,0.76801e+03_rb,0.62113e+03_rb, &
+        & 0.73072e+03_rb,0.86943e+03_rb,0.10082e+04_rb,0.11469e+04_rb /)
+      kao(:, 5,10, 9) = (/ &
+        & 0.11981e+04_rb,0.10526e+04_rb,0.90691e+03_rb,0.76134e+03_rb,0.61583e+03_rb, &
+        & 0.72997e+03_rb,0.86853e+03_rb,0.10072e+04_rb,0.11458e+04_rb /)
+      kao(:, 1,11, 9) = (/ &
+        & 0.12119e+04_rb,0.10646e+04_rb,0.91723e+03_rb,0.76995e+03_rb,0.62265e+03_rb, &
+        & 0.73201e+03_rb,0.87093e+03_rb,0.10098e+04_rb,0.11487e+04_rb /)
+      kao(:, 2,11, 9) = (/ &
+        & 0.11986e+04_rb,0.10529e+04_rb,0.90727e+03_rb,0.76161e+03_rb,0.61603e+03_rb, &
+        & 0.73147e+03_rb,0.87046e+03_rb,0.10094e+04_rb,0.11483e+04_rb /)
+      kao(:, 3,11, 9) = (/ &
+        & 0.11871e+04_rb,0.10429e+04_rb,0.89865e+03_rb,0.75449e+03_rb,0.61031e+03_rb, &
+        & 0.73094e+03_rb,0.86988e+03_rb,0.10088e+04_rb,0.11477e+04_rb /)
+      kao(:, 4,11, 9) = (/ &
+        & 0.11772e+04_rb,0.10342e+04_rb,0.89122e+03_rb,0.74824e+03_rb,0.60537e+03_rb, &
+        & 0.73035e+03_rb,0.86918e+03_rb,0.10081e+04_rb,0.11469e+04_rb /)
+      kao(:, 5,11, 9) = (/ &
+        & 0.11684e+04_rb,0.10265e+04_rb,0.88467e+03_rb,0.74278e+03_rb,0.60127e+03_rb, &
+        & 0.72963e+03_rb,0.86831e+03_rb,0.10071e+04_rb,0.11458e+04_rb /)
+      kao(:, 1,12, 9) = (/ &
+        & 0.11796e+04_rb,0.10363e+04_rb,0.89308e+03_rb,0.74980e+03_rb,0.60664e+03_rb, &
+        & 0.73158e+03_rb,0.87066e+03_rb,0.10097e+04_rb,0.11487e+04_rb /)
+      kao(:, 2,12, 9) = (/ &
+        & 0.11688e+04_rb,0.10268e+04_rb,0.88492e+03_rb,0.74297e+03_rb,0.60173e+03_rb, &
+        & 0.73111e+03_rb,0.87023e+03_rb,0.10093e+04_rb,0.11483e+04_rb /)
+      kao(:, 3,12, 9) = (/ &
+        & 0.11594e+04_rb,0.10186e+04_rb,0.87787e+03_rb,0.73715e+03_rb,0.59711e+03_rb, &
+        & 0.73061e+03_rb,0.86968e+03_rb,0.10088e+04_rb,0.11478e+04_rb /)
+      kao(:, 4,12, 9) = (/ &
+        & 0.11512e+04_rb,0.10115e+04_rb,0.87180e+03_rb,0.73203e+03_rb,0.59373e+03_rb, &
+        & 0.73004e+03_rb,0.86900e+03_rb,0.10080e+04_rb,0.11469e+04_rb /)
+      kao(:, 5,12, 9) = (/ &
+        & 0.11441e+04_rb,0.10053e+04_rb,0.86640e+03_rb,0.72756e+03_rb,0.59149e+03_rb, &
+        & 0.72934e+03_rb,0.86813e+03_rb,0.10070e+04_rb,0.11458e+04_rb /)
+      kao(:, 1,13, 9) = (/ &
+        & 0.11533e+04_rb,0.10132e+04_rb,0.87330e+03_rb,0.73334e+03_rb,0.59476e+03_rb, &
+        & 0.73130e+03_rb,0.87046e+03_rb,0.10096e+04_rb,0.11487e+04_rb /)
+      kao(:, 2,13, 9) = (/ &
+        & 0.11444e+04_rb,0.10055e+04_rb,0.86659e+03_rb,0.72770e+03_rb,0.59240e+03_rb, &
+        & 0.73084e+03_rb,0.87005e+03_rb,0.10092e+04_rb,0.11483e+04_rb /)
+      kao(:, 3,13, 9) = (/ &
+        & 0.11367e+04_rb,0.99882e+03_rb,0.86084e+03_rb,0.72297e+03_rb,0.59186e+03_rb, &
+        & 0.73036e+03_rb,0.86950e+03_rb,0.10087e+04_rb,0.11478e+04_rb /)
+      kao(:, 4,13, 9) = (/ &
+        & 0.11300e+04_rb,0.99294e+03_rb,0.85585e+03_rb,0.71880e+03_rb,0.59143e+03_rb, &
+        & 0.72979e+03_rb,0.86883e+03_rb,0.10079e+04_rb,0.11469e+04_rb /)
+      kao(:, 5,13, 9) = (/ &
+        & 0.11242e+04_rb,0.98788e+03_rb,0.85146e+03_rb,0.71512e+03_rb,0.59082e+03_rb, &
+        & 0.72910e+03_rb,0.86797e+03_rb,0.10069e+04_rb,0.11459e+04_rb /)
+      kao(:, 1, 1,10) = (/ &
+        & 0.19609e+04_rb,0.17196e+04_rb,0.14787e+04_rb,0.12373e+04_rb,0.99636e+03_rb, &
+        & 0.75577e+03_rb,0.88158e+03_rb,0.10175e+04_rb,0.11538e+04_rb /)
+      kao(:, 2, 1,10) = (/ &
+        & 0.19102e+04_rb,0.16765e+04_rb,0.14403e+04_rb,0.12063e+04_rb,0.97232e+03_rb, &
+        & 0.74406e+03_rb,0.87986e+03_rb,0.10152e+04_rb,0.11513e+04_rb /)
+      kao(:, 3, 1,10) = (/ &
+        & 0.18658e+04_rb,0.16364e+04_rb,0.14075e+04_rb,0.11783e+04_rb,0.94916e+03_rb, &
+        & 0.74249e+03_rb,0.87815e+03_rb,0.10135e+04_rb,0.11491e+04_rb /)
+      kao(:, 4, 1,10) = (/ &
+        & 0.18250e+04_rb,0.16014e+04_rb,0.13778e+04_rb,0.11533e+04_rb,0.92945e+03_rb, &
+        & 0.74050e+03_rb,0.87640e+03_rb,0.10114e+04_rb,0.11477e+04_rb /)
+      kao(:, 5, 1,10) = (/ &
+        & 0.17888e+04_rb,0.15692e+04_rb,0.13504e+04_rb,0.11313e+04_rb,0.91134e+03_rb, &
+        & 0.73837e+03_rb,0.87432e+03_rb,0.10096e+04_rb,0.11467e+04_rb /)
+      kao(:, 1, 2,10) = (/ &
+        & 0.18108e+04_rb,0.15879e+04_rb,0.13673e+04_rb,0.11437e+04_rb,0.92213e+03_rb, &
+        & 0.74428e+03_rb,0.88077e+03_rb,0.10175e+04_rb,0.11547e+04_rb /)
+      kao(:, 2, 2,10) = (/ &
+        & 0.17684e+04_rb,0.15508e+04_rb,0.13352e+04_rb,0.11178e+04_rb,0.90099e+03_rb, &
+        & 0.74265e+03_rb,0.87920e+03_rb,0.10158e+04_rb,0.11521e+04_rb /)
+      kao(:, 3, 2,10) = (/ &
+        & 0.17293e+04_rb,0.15183e+04_rb,0.13063e+04_rb,0.10931e+04_rb,0.88199e+03_rb, &
+        & 0.74117e+03_rb,0.87755e+03_rb,0.10136e+04_rb,0.11500e+04_rb /)
+      kao(:, 4, 2,10) = (/ &
+        & 0.16960e+04_rb,0.14887e+04_rb,0.12799e+04_rb,0.10727e+04_rb,0.86433e+03_rb, &
+        & 0.73957e+03_rb,0.87577e+03_rb,0.10116e+04_rb,0.11482e+04_rb /)
+      kao(:, 5, 2,10) = (/ &
+        & 0.16637e+04_rb,0.14607e+04_rb,0.12562e+04_rb,0.10527e+04_rb,0.84877e+03_rb, &
+        & 0.73748e+03_rb,0.87409e+03_rb,0.10096e+04_rb,0.11470e+04_rb /)
+      kao(:, 1, 3,10) = (/ &
+        & 0.16939e+04_rb,0.14847e+04_rb,0.12786e+04_rb,0.10705e+04_rb,0.86372e+03_rb, &
+        & 0.74343e+03_rb,0.88064e+03_rb,0.10178e+04_rb,0.11559e+04_rb /)
+      kao(:, 2, 3,10) = (/ &
+        & 0.16557e+04_rb,0.14542e+04_rb,0.12503e+04_rb,0.10478e+04_rb,0.84533e+03_rb, &
+        & 0.74182e+03_rb,0.87906e+03_rb,0.10163e+04_rb,0.11537e+04_rb /)
+      kao(:, 3, 3,10) = (/ &
+        & 0.16218e+04_rb,0.14239e+04_rb,0.12249e+04_rb,0.10266e+04_rb,0.82819e+03_rb, &
+        & 0.74031e+03_rb,0.87730e+03_rb,0.10137e+04_rb,0.11513e+04_rb /)
+      kao(:, 4, 3,10) = (/ &
+        & 0.15929e+04_rb,0.13992e+04_rb,0.12027e+04_rb,0.10077e+04_rb,0.81299e+03_rb, &
+        & 0.73896e+03_rb,0.87590e+03_rb,0.10123e+04_rb,0.11493e+04_rb /)
+      kao(:, 5, 3,10) = (/ &
+        & 0.15654e+04_rb,0.13740e+04_rb,0.11824e+04_rb,0.99136e+03_rb,0.79933e+03_rb, &
+        & 0.73740e+03_rb,0.87406e+03_rb,0.10104e+04_rb,0.11477e+04_rb /)
+      kao(:, 1, 4,10) = (/ &
+        & 0.15959e+04_rb,0.14010e+04_rb,0.12054e+04_rb,0.10100e+04_rb,0.81522e+03_rb, &
+        & 0.74271e+03_rb,0.88040e+03_rb,0.10180e+04_rb,0.11570e+04_rb /)
+      kao(:, 2, 4,10) = (/ &
+        & 0.15637e+04_rb,0.13710e+04_rb,0.11804e+04_rb,0.98920e+03_rb,0.79803e+03_rb, &
+        & 0.74139e+03_rb,0.87903e+03_rb,0.10168e+04_rb,0.11552e+04_rb /)
+      kao(:, 3, 4,10) = (/ &
+        & 0.15330e+04_rb,0.13459e+04_rb,0.11594e+04_rb,0.97120e+03_rb,0.78314e+03_rb, &
+        & 0.74000e+03_rb,0.87753e+03_rb,0.10151e+04_rb,0.11528e+04_rb /)
+      kao(:, 4, 4,10) = (/ &
+        & 0.15077e+04_rb,0.13229e+04_rb,0.11386e+04_rb,0.95486e+03_rb,0.77029e+03_rb, &
+        & 0.73854e+03_rb,0.87600e+03_rb,0.10131e+04_rb,0.11506e+04_rb /)
+      kao(:, 5, 4,10) = (/ &
+        & 0.14835e+04_rb,0.13025e+04_rb,0.11209e+04_rb,0.94000e+03_rb,0.75786e+03_rb, &
+        & 0.73717e+03_rb,0.87438e+03_rb,0.10111e+04_rb,0.11486e+04_rb /)
+      kao(:, 1, 5,10) = (/ &
+        & 0.15126e+04_rb,0.13285e+04_rb,0.11431e+04_rb,0.95745e+03_rb,0.77284e+03_rb, &
+        & 0.74220e+03_rb,0.88024e+03_rb,0.10187e+04_rb,0.11578e+04_rb /)
+      kao(:, 2, 5,10) = (/ &
+        & 0.14829e+04_rb,0.13024e+04_rb,0.11209e+04_rb,0.94020e+03_rb,0.75863e+03_rb, &
+        & 0.74099e+03_rb,0.87909e+03_rb,0.10174e+04_rb,0.11564e+04_rb /)
+      kao(:, 3, 5,10) = (/ &
+        & 0.14582e+04_rb,0.12806e+04_rb,0.11014e+04_rb,0.92377e+03_rb,0.74596e+03_rb, &
+        & 0.73960e+03_rb,0.87772e+03_rb,0.10159e+04_rb,0.11544e+04_rb /)
+      kao(:, 4, 5,10) = (/ &
+        & 0.14345e+04_rb,0.12594e+04_rb,0.10847e+04_rb,0.90887e+03_rb,0.73410e+03_rb, &
+        & 0.73828e+03_rb,0.87622e+03_rb,0.10139e+04_rb,0.11518e+04_rb /)
+      kao(:, 5, 5,10) = (/ &
+        & 0.14140e+04_rb,0.12418e+04_rb,0.10683e+04_rb,0.89661e+03_rb,0.72364e+03_rb, &
+        & 0.73696e+03_rb,0.87469e+03_rb,0.10119e+04_rb,0.11501e+04_rb /)
+      kao(:, 1, 6,10) = (/ &
+        & 0.14435e+04_rb,0.12676e+04_rb,0.10914e+04_rb,0.91493e+03_rb,0.73889e+03_rb, &
+        & 0.74179e+03_rb,0.88024e+03_rb,0.10190e+04_rb,0.11586e+04_rb /)
+      kao(:, 2, 6,10) = (/ &
+        & 0.14184e+04_rb,0.12443e+04_rb,0.10722e+04_rb,0.89834e+03_rb,0.72535e+03_rb, &
+        & 0.74069e+03_rb,0.87922e+03_rb,0.10178e+04_rb,0.11574e+04_rb /)
+      kao(:, 3, 6,10) = (/ &
+        & 0.13949e+04_rb,0.12245e+04_rb,0.10548e+04_rb,0.88411e+03_rb,0.71441e+03_rb, &
+        & 0.73951e+03_rb,0.87792e+03_rb,0.10164e+04_rb,0.11554e+04_rb /)
+      kao(:, 4, 6,10) = (/ &
+        & 0.13745e+04_rb,0.12070e+04_rb,0.10388e+04_rb,0.87157e+03_rb,0.70381e+03_rb, &
+        & 0.73817e+03_rb,0.87654e+03_rb,0.10150e+04_rb,0.11533e+04_rb /)
+      kao(:, 5, 6,10) = (/ &
+        & 0.13558e+04_rb,0.11909e+04_rb,0.10253e+04_rb,0.86039e+03_rb,0.69505e+03_rb, &
+        & 0.73669e+03_rb,0.87508e+03_rb,0.10128e+04_rb,0.11510e+04_rb /)
+      kao(:, 1, 7,10) = (/ &
+        & 0.13849e+04_rb,0.12154e+04_rb,0.10465e+04_rb,0.87809e+03_rb,0.70922e+03_rb, &
+        & 0.74150e+03_rb,0.88017e+03_rb,0.10197e+04_rb,0.11599e+04_rb /)
+      kao(:, 2, 7,10) = (/ &
+        & 0.13622e+04_rb,0.11954e+04_rb,0.10296e+04_rb,0.86328e+03_rb,0.69750e+03_rb, &
+        & 0.74031e+03_rb,0.87926e+03_rb,0.10184e+04_rb,0.11581e+04_rb /)
+      kao(:, 3, 7,10) = (/ &
+        & 0.13407e+04_rb,0.11775e+04_rb,0.10144e+04_rb,0.85098e+03_rb,0.68710e+03_rb, &
+        & 0.73933e+03_rb,0.87824e+03_rb,0.10171e+04_rb,0.11568e+04_rb /)
+      kao(:, 4, 7,10) = (/ &
+        & 0.13234e+04_rb,0.11620e+04_rb,0.10006e+04_rb,0.83940e+03_rb,0.67808e+03_rb, &
+        & 0.73818e+03_rb,0.87693e+03_rb,0.10157e+04_rb,0.11549e+04_rb /)
+      kao(:, 5, 7,10) = (/ &
+        & 0.13077e+04_rb,0.11481e+04_rb,0.98850e+03_rb,0.82952e+03_rb,0.66976e+03_rb, &
+        & 0.73685e+03_rb,0.87533e+03_rb,0.10140e+04_rb,0.11525e+04_rb /)
+      kao(:, 1, 8,10) = (/ &
+        & 0.13336e+04_rb,0.11711e+04_rb,0.10088e+04_rb,0.84626e+03_rb,0.68382e+03_rb, &
+        & 0.74131e+03_rb,0.88025e+03_rb,0.10205e+04_rb,0.11609e+04_rb /)
+      kao(:, 2, 8,10) = (/ &
+        & 0.13133e+04_rb,0.11535e+04_rb,0.99382e+03_rb,0.83328e+03_rb,0.67355e+03_rb, &
+        & 0.73954e+03_rb,0.87931e+03_rb,0.10187e+04_rb,0.11591e+04_rb /)
+      kao(:, 3, 8,10) = (/ &
+        & 0.12952e+04_rb,0.11377e+04_rb,0.97980e+03_rb,0.82257e+03_rb,0.66450e+03_rb, &
+        & 0.73910e+03_rb,0.87831e+03_rb,0.10177e+04_rb,0.11576e+04_rb /)
+      kao(:, 4, 8,10) = (/ &
+        & 0.12798e+04_rb,0.11238e+04_rb,0.96848e+03_rb,0.81189e+03_rb,0.65672e+03_rb, &
+        & 0.73820e+03_rb,0.87729e+03_rb,0.10162e+04_rb,0.11560e+04_rb /)
+      kao(:, 5, 8,10) = (/ &
+        & 0.12652e+04_rb,0.11115e+04_rb,0.95739e+03_rb,0.80373e+03_rb,0.64938e+03_rb, &
+        & 0.73712e+03_rb,0.87584e+03_rb,0.10149e+04_rb,0.11541e+04_rb /)
+      kao(:, 1, 9,10) = (/ &
+        & 0.12921e+04_rb,0.11338e+04_rb,0.97649e+03_rb,0.81965e+03_rb,0.66193e+03_rb, &
+        & 0.74117e+03_rb,0.88056e+03_rb,0.10212e+04_rb,0.11621e+04_rb /)
+      kao(:, 2, 9,10) = (/ &
+        & 0.12725e+04_rb,0.11175e+04_rb,0.96294e+03_rb,0.80792e+03_rb,0.65314e+03_rb, &
+        & 0.74018e+03_rb,0.87944e+03_rb,0.10196e+04_rb,0.11602e+04_rb /)
+      kao(:, 3, 9,10) = (/ &
+        & 0.12569e+04_rb,0.11032e+04_rb,0.95038e+03_rb,0.79825e+03_rb,0.64471e+03_rb, &
+        & 0.73910e+03_rb,0.87852e+03_rb,0.10181e+04_rb,0.11585e+04_rb /)
+      kao(:, 4, 9,10) = (/ &
+        & 0.12428e+04_rb,0.10914e+04_rb,0.94028e+03_rb,0.78940e+03_rb,0.63769e+03_rb, &
+        & 0.73816e+03_rb,0.87758e+03_rb,0.10170e+04_rb,0.11569e+04_rb /)
+      kao(:, 5, 9,10) = (/ &
+        & 0.12310e+04_rb,0.10815e+04_rb,0.93149e+03_rb,0.78151e+03_rb,0.63218e+03_rb, &
+        & 0.73726e+03_rb,0.87637e+03_rb,0.10156e+04_rb,0.11553e+04_rb /)
+      kao(:, 1,10,10) = (/ &
+        & 0.12531e+04_rb,0.11009e+04_rb,0.94808e+03_rb,0.79569e+03_rb,0.64353e+03_rb, &
+        & 0.74092e+03_rb,0.88101e+03_rb,0.10222e+04_rb,0.11631e+04_rb /)
+      kao(:, 2,10,10) = (/ &
+        & 0.12357e+04_rb,0.10861e+04_rb,0.93599e+03_rb,0.78490e+03_rb,0.63564e+03_rb, &
+        & 0.74008e+03_rb,0.87961e+03_rb,0.10203e+04_rb,0.11613e+04_rb /)
+      kao(:, 3,10,10) = (/ &
+        & 0.12227e+04_rb,0.10738e+04_rb,0.92501e+03_rb,0.77680e+03_rb,0.62842e+03_rb, &
+        & 0.73914e+03_rb,0.87860e+03_rb,0.10179e+04_rb,0.11592e+04_rb /)
+      kao(:, 4,10,10) = (/ &
+        & 0.12109e+04_rb,0.10632e+04_rb,0.91605e+03_rb,0.76920e+03_rb,0.62177e+03_rb, &
+        & 0.73819e+03_rb,0.87758e+03_rb,0.10174e+04_rb,0.11577e+04_rb /)
+      kao(:, 5,10,10) = (/ &
+        & 0.11998e+04_rb,0.10537e+04_rb,0.90813e+03_rb,0.76232e+03_rb,0.61616e+03_rb, &
+        & 0.73732e+03_rb,0.87676e+03_rb,0.10162e+04_rb,0.11563e+04_rb /)
+      kao(:, 1,11,10) = (/ &
+        & 0.12137e+04_rb,0.10654e+04_rb,0.91884e+03_rb,0.77105e+03_rb,0.62358e+03_rb, &
+        & 0.74042e+03_rb,0.88057e+03_rb,0.10221e+04_rb,0.11630e+04_rb /)
+      kao(:, 2,11,10) = (/ &
+        & 0.11999e+04_rb,0.10545e+04_rb,0.90854e+03_rb,0.76253e+03_rb,0.61715e+03_rb, &
+        & 0.73961e+03_rb,0.87932e+03_rb,0.10201e+04_rb,0.11611e+04_rb /)
+      kao(:, 3,11,10) = (/ &
+        & 0.11890e+04_rb,0.10445e+04_rb,0.90019e+03_rb,0.75537e+03_rb,0.61109e+03_rb, &
+        & 0.73864e+03_rb,0.87832e+03_rb,0.10186e+04_rb,0.11592e+04_rb /)
+      kao(:, 4,11,10) = (/ &
+        & 0.11789e+04_rb,0.10359e+04_rb,0.89280e+03_rb,0.74928e+03_rb,0.60622e+03_rb, &
+        & 0.73779e+03_rb,0.87747e+03_rb,0.10172e+04_rb,0.11577e+04_rb /)
+      kao(:, 5,11,10) = (/ &
+        & 0.11709e+04_rb,0.10287e+04_rb,0.88607e+03_rb,0.74401e+03_rb,0.60247e+03_rb, &
+        & 0.73688e+03_rb,0.87644e+03_rb,0.10160e+04_rb,0.11563e+04_rb /)
+      kao(:, 1,12,10) = (/ &
+        & 0.11820e+04_rb,0.10383e+04_rb,0.89456e+03_rb,0.75081e+03_rb,0.60714e+03_rb, &
+        & 0.74001e+03_rb,0.88049e+03_rb,0.10220e+04_rb,0.11631e+04_rb /)
+      kao(:, 2,12,10) = (/ &
+        & 0.11713e+04_rb,0.10290e+04_rb,0.88623e+03_rb,0.74407e+03_rb,0.60058e+03_rb, &
+        & 0.73921e+03_rb,0.87901e+03_rb,0.10201e+04_rb,0.11611e+04_rb /)
+      kao(:, 3,12,10) = (/ &
+        & 0.11605e+04_rb,0.10200e+04_rb,0.87951e+03_rb,0.73788e+03_rb,0.59769e+03_rb, &
+        & 0.73835e+03_rb,0.87808e+03_rb,0.10182e+04_rb,0.11591e+04_rb /)
+      kao(:, 4,12,10) = (/ &
+        & 0.11533e+04_rb,0.10132e+04_rb,0.87284e+03_rb,0.73305e+03_rb,0.59795e+03_rb, &
+        & 0.73753e+03_rb,0.87718e+03_rb,0.10171e+04_rb,0.11577e+04_rb /)
+      kao(:, 5,12,10) = (/ &
+        & 0.11467e+04_rb,0.10071e+04_rb,0.86739e+03_rb,0.72890e+03_rb,0.59711e+03_rb, &
+        & 0.73664e+03_rb,0.87623e+03_rb,0.10159e+04_rb,0.11563e+04_rb /)
+      kao(:, 1,13,10) = (/ &
+        & 0.11553e+04_rb,0.10149e+04_rb,0.87419e+03_rb,0.73470e+03_rb,0.59975e+03_rb, &
+        & 0.73968e+03_rb,0.88029e+03_rb,0.10219e+04_rb,0.11630e+04_rb /)
+      kao(:, 2,13,10) = (/ &
+        & 0.11455e+04_rb,0.10072e+04_rb,0.86782e+03_rb,0.72873e+03_rb,0.59921e+03_rb, &
+        & 0.73889e+03_rb,0.87889e+03_rb,0.10200e+04_rb,0.11611e+04_rb /)
+      kao(:, 3,13,10) = (/ &
+        & 0.11380e+04_rb,0.10000e+04_rb,0.86190e+03_rb,0.72452e+03_rb,0.59831e+03_rb, &
+        & 0.73799e+03_rb,0.87789e+03_rb,0.10182e+04_rb,0.11592e+04_rb /)
+      kao(:, 4,13,10) = (/ &
+        & 0.11318e+04_rb,0.99472e+03_rb,0.85697e+03_rb,0.71950e+03_rb,0.59744e+03_rb, &
+        & 0.73726e+03_rb,0.87708e+03_rb,0.10170e+04_rb,0.11577e+04_rb /)
+      kao(:, 5,13,10) = (/ &
+        & 0.11253e+04_rb,0.98825e+03_rb,0.85273e+03_rb,0.71635e+03_rb,0.59683e+03_rb, &
+        & 0.73639e+03_rb,0.87606e+03_rb,0.10160e+04_rb,0.11562e+04_rb /)
+      kao(:, 1, 1,11) = (/ &
+        & 0.19598e+04_rb,0.17186e+04_rb,0.14777e+04_rb,0.12380e+04_rb,0.99729e+03_rb, &
+        & 0.75567e+03_rb,0.88469e+03_rb,0.10202e+04_rb,0.11560e+04_rb /)
+      kao(:, 2, 1,11) = (/ &
+        & 0.19102e+04_rb,0.16743e+04_rb,0.14414e+04_rb,0.12066e+04_rb,0.97117e+03_rb, &
+        & 0.74679e+03_rb,0.88252e+03_rb,0.10178e+04_rb,0.11544e+04_rb /)
+      kao(:, 3, 1,11) = (/ &
+        & 0.18656e+04_rb,0.16383e+04_rb,0.14073e+04_rb,0.11791e+04_rb,0.94951e+03_rb, &
+        & 0.74505e+03_rb,0.88029e+03_rb,0.10159e+04_rb,0.11530e+04_rb /)
+      kao(:, 4, 1,11) = (/ &
+        & 0.18261e+04_rb,0.16025e+04_rb,0.13782e+04_rb,0.11540e+04_rb,0.92917e+03_rb, &
+        & 0.74299e+03_rb,0.87816e+03_rb,0.10141e+04_rb,0.11522e+04_rb /)
+      kao(:, 5, 1,11) = (/ &
+        & 0.17888e+04_rb,0.15710e+04_rb,0.13500e+04_rb,0.11298e+04_rb,0.91140e+03_rb, &
+        & 0.74109e+03_rb,0.87588e+03_rb,0.10122e+04_rb,0.11510e+04_rb /)
+      kao(:, 1, 2,11) = (/ &
+        & 0.18117e+04_rb,0.15887e+04_rb,0.13651e+04_rb,0.11459e+04_rb,0.92177e+03_rb, &
+        & 0.74731e+03_rb,0.88412e+03_rb,0.10203e+04_rb,0.11568e+04_rb /)
+      kao(:, 2, 2,11) = (/ &
+        & 0.17673e+04_rb,0.15512e+04_rb,0.13335e+04_rb,0.11174e+04_rb,0.90028e+03_rb, &
+        & 0.74546e+03_rb,0.88203e+03_rb,0.10179e+04_rb,0.11551e+04_rb /)
+      kao(:, 3, 2,11) = (/ &
+        & 0.17317e+04_rb,0.15193e+04_rb,0.13050e+04_rb,0.10955e+04_rb,0.88112e+03_rb, &
+        & 0.74378e+03_rb,0.87978e+03_rb,0.10161e+04_rb,0.11535e+04_rb /)
+      kao(:, 4, 2,11) = (/ &
+        & 0.16956e+04_rb,0.14873e+04_rb,0.12805e+04_rb,0.10729e+04_rb,0.86470e+03_rb, &
+        & 0.74189e+03_rb,0.87768e+03_rb,0.10142e+04_rb,0.11524e+04_rb /)
+      kao(:, 5, 2,11) = (/ &
+        & 0.16657e+04_rb,0.14596e+04_rb,0.12568e+04_rb,0.10531e+04_rb,0.84904e+03_rb, &
+        & 0.73979e+03_rb,0.87528e+03_rb,0.10122e+04_rb,0.11511e+04_rb /)
+      kao(:, 1, 3,11) = (/ &
+        & 0.16927e+04_rb,0.14859e+04_rb,0.12782e+04_rb,0.10724e+04_rb,0.86335e+03_rb, &
+        & 0.74646e+03_rb,0.88392e+03_rb,0.10211e+04_rb,0.11579e+04_rb /)
+      kao(:, 2, 3,11) = (/ &
+        & 0.16581e+04_rb,0.14524e+04_rb,0.12540e+04_rb,0.10466e+04_rb,0.84448e+03_rb, &
+        & 0.74471e+03_rb,0.88205e+03_rb,0.10189e+04_rb,0.11562e+04_rb /)
+      kao(:, 3, 3,11) = (/ &
+        & 0.16261e+04_rb,0.14229e+04_rb,0.12269e+04_rb,0.10264e+04_rb,0.82790e+03_rb, &
+        & 0.74305e+03_rb,0.87988e+03_rb,0.10167e+04_rb,0.11544e+04_rb /)
+      kao(:, 4, 3,11) = (/ &
+        & 0.15929e+04_rb,0.13986e+04_rb,0.12038e+04_rb,0.10084e+04_rb,0.81266e+03_rb, &
+        & 0.74160e+03_rb,0.87767e+03_rb,0.10148e+04_rb,0.11530e+04_rb /)
+      kao(:, 5, 3,11) = (/ &
+        & 0.15661e+04_rb,0.13746e+04_rb,0.11837e+04_rb,0.99103e+03_rb,0.79967e+03_rb, &
+        & 0.73929e+03_rb,0.87586e+03_rb,0.10132e+04_rb,0.11521e+04_rb /)
+      kao(:, 1, 4,11) = (/ &
+        & 0.15973e+04_rb,0.14004e+04_rb,0.12065e+04_rb,0.10106e+04_rb,0.81385e+03_rb, &
+        & 0.74599e+03_rb,0.88404e+03_rb,0.10218e+04_rb,0.11590e+04_rb /)
+      kao(:, 2, 4,11) = (/ &
+        & 0.15637e+04_rb,0.13722e+04_rb,0.11812e+04_rb,0.98900e+03_rb,0.79856e+03_rb, &
+        & 0.74428e+03_rb,0.88217e+03_rb,0.10197e+04_rb,0.11572e+04_rb /)
+      kao(:, 3, 4,11) = (/ &
+        & 0.15340e+04_rb,0.13469e+04_rb,0.11576e+04_rb,0.97012e+03_rb,0.78412e+03_rb, &
+        & 0.74257e+03_rb,0.88022e+03_rb,0.10176e+04_rb,0.11556e+04_rb /)
+      kao(:, 4, 4,11) = (/ &
+        & 0.15085e+04_rb,0.13226e+04_rb,0.11393e+04_rb,0.95486e+03_rb,0.76980e+03_rb, &
+        & 0.74114e+03_rb,0.87815e+03_rb,0.10155e+04_rb,0.11538e+04_rb /)
+      kao(:, 5, 4,11) = (/ &
+        & 0.14836e+04_rb,0.13020e+04_rb,0.11212e+04_rb,0.93957e+03_rb,0.75824e+03_rb, &
+        & 0.73939e+03_rb,0.87630e+03_rb,0.10138e+04_rb,0.11526e+04_rb /)
+      kao(:, 1, 5,11) = (/ &
+        & 0.15143e+04_rb,0.13286e+04_rb,0.11431e+04_rb,0.95847e+03_rb,0.77403e+03_rb, &
+        & 0.74572e+03_rb,0.88418e+03_rb,0.10223e+04_rb,0.11603e+04_rb /)
+      kao(:, 2, 5,11) = (/ &
+        & 0.14842e+04_rb,0.13025e+04_rb,0.11230e+04_rb,0.94028e+03_rb,0.75881e+03_rb, &
+        & 0.74405e+03_rb,0.88254e+03_rb,0.10205e+04_rb,0.11584e+04_rb /)
+      kao(:, 3, 5,11) = (/ &
+        & 0.14577e+04_rb,0.12799e+04_rb,0.11020e+04_rb,0.92340e+03_rb,0.74531e+03_rb, &
+        & 0.74244e+03_rb,0.88060e+03_rb,0.10185e+04_rb,0.11566e+04_rb /)
+      kao(:, 4, 5,11) = (/ &
+        & 0.14365e+04_rb,0.12603e+04_rb,0.10859e+04_rb,0.90939e+03_rb,0.73467e+03_rb, &
+        & 0.74090e+03_rb,0.87865e+03_rb,0.10164e+04_rb,0.11549e+04_rb /)
+      kao(:, 5, 5,11) = (/ &
+        & 0.14147e+04_rb,0.12422e+04_rb,0.10695e+04_rb,0.89657e+03_rb,0.72409e+03_rb, &
+        & 0.73938e+03_rb,0.87659e+03_rb,0.10145e+04_rb,0.11530e+04_rb /)
+      kao(:, 1, 6,11) = (/ &
+        & 0.14426e+04_rb,0.12686e+04_rb,0.10911e+04_rb,0.91528e+03_rb,0.73914e+03_rb, &
+        & 0.74563e+03_rb,0.88436e+03_rb,0.10228e+04_rb,0.11615e+04_rb /)
+      kao(:, 2, 6,11) = (/ &
+        & 0.14171e+04_rb,0.12457e+04_rb,0.10728e+04_rb,0.89861e+03_rb,0.72517e+03_rb, &
+        & 0.74402e+03_rb,0.88280e+03_rb,0.10215e+04_rb,0.11596e+04_rb /)
+      kao(:, 3, 6,11) = (/ &
+        & 0.13943e+04_rb,0.12252e+04_rb,0.10539e+04_rb,0.88362e+03_rb,0.71333e+03_rb, &
+        & 0.74243e+03_rb,0.88117e+03_rb,0.10194e+04_rb,0.11577e+04_rb /)
+      kao(:, 4, 6,11) = (/ &
+        & 0.13749e+04_rb,0.12056e+04_rb,0.10405e+04_rb,0.87188e+03_rb,0.70449e+03_rb, &
+        & 0.74089e+03_rb,0.87923e+03_rb,0.10173e+04_rb,0.11560e+04_rb /)
+      kao(:, 5, 6,11) = (/ &
+        & 0.13580e+04_rb,0.11907e+04_rb,0.10258e+04_rb,0.85998e+03_rb,0.69473e+03_rb, &
+        & 0.73937e+03_rb,0.87727e+03_rb,0.10154e+04_rb,0.11543e+04_rb /)
+      kao(:, 1, 7,11) = (/ &
+        & 0.13844e+04_rb,0.12166e+04_rb,0.10469e+04_rb,0.87815e+03_rb,0.70873e+03_rb, &
+        & 0.74560e+03_rb,0.88449e+03_rb,0.10233e+04_rb,0.11626e+04_rb /)
+      kao(:, 2, 7,11) = (/ &
+        & 0.13610e+04_rb,0.11962e+04_rb,0.10291e+04_rb,0.86318e+03_rb,0.69730e+03_rb, &
+        & 0.74409e+03_rb,0.88322e+03_rb,0.10221e+04_rb,0.11608e+04_rb /)
+      kao(:, 3, 7,11) = (/ &
+        & 0.13413e+04_rb,0.11786e+04_rb,0.10145e+04_rb,0.85031e+03_rb,0.68760e+03_rb, &
+        & 0.74253e+03_rb,0.88154e+03_rb,0.10203e+04_rb,0.11589e+04_rb /)
+      kao(:, 4, 7,11) = (/ &
+        & 0.13235e+04_rb,0.11630e+04_rb,0.10007e+04_rb,0.84004e+03_rb,0.67864e+03_rb, &
+        & 0.74101e+03_rb,0.87982e+03_rb,0.10185e+04_rb,0.11572e+04_rb /)
+      kao(:, 5, 7,11) = (/ &
+        & 0.13063e+04_rb,0.11482e+04_rb,0.98932e+03_rb,0.82998e+03_rb,0.67037e+03_rb, &
+        & 0.73955e+03_rb,0.87796e+03_rb,0.10167e+04_rb,0.11554e+04_rb /)
+      kao(:, 1, 8,11) = (/ &
+        & 0.13361e+04_rb,0.11714e+04_rb,0.10092e+04_rb,0.84627e+03_rb,0.68340e+03_rb, &
+        & 0.74540e+03_rb,0.88457e+03_rb,0.10236e+04_rb,0.11638e+04_rb /)
+      kao(:, 2, 8,11) = (/ &
+        & 0.13143e+04_rb,0.11537e+04_rb,0.99295e+03_rb,0.83355e+03_rb,0.67330e+03_rb, &
+        & 0.74420e+03_rb,0.88339e+03_rb,0.10225e+04_rb,0.11619e+04_rb /)
+      kao(:, 3, 8,11) = (/ &
+        & 0.12952e+04_rb,0.11377e+04_rb,0.98075e+03_rb,0.82213e+03_rb,0.66496e+03_rb, &
+        & 0.74271e+03_rb,0.88199e+03_rb,0.10211e+04_rb,0.11601e+04_rb /)
+      kao(:, 4, 8,11) = (/ &
+        & 0.12808e+04_rb,0.11242e+04_rb,0.96858e+03_rb,0.81350e+03_rb,0.65663e+03_rb, &
+        & 0.74121e+03_rb,0.88037e+03_rb,0.10192e+04_rb,0.11582e+04_rb /)
+      kao(:, 5, 8,11) = (/ &
+        & 0.12664e+04_rb,0.11113e+04_rb,0.95757e+03_rb,0.80317e+03_rb,0.64978e+03_rb, &
+        & 0.73975e+03_rb,0.87862e+03_rb,0.10173e+04_rb,0.11564e+04_rb /)
+      kao(:, 1, 9,11) = (/ &
+        & 0.12911e+04_rb,0.11331e+04_rb,0.97754e+03_rb,0.81972e+03_rb,0.66210e+03_rb, &
+        & 0.74501e+03_rb,0.88462e+03_rb,0.10244e+04_rb,0.11652e+04_rb /)
+      kao(:, 2, 9,11) = (/ &
+        & 0.12743e+04_rb,0.11193e+04_rb,0.96288e+03_rb,0.80865e+03_rb,0.65325e+03_rb, &
+        & 0.74437e+03_rb,0.88360e+03_rb,0.10230e+04_rb,0.11629e+04_rb /)
+      kao(:, 3, 9,11) = (/ &
+        & 0.12573e+04_rb,0.11051e+04_rb,0.95155e+03_rb,0.79729e+03_rb,0.64451e+03_rb, &
+        & 0.74294e+03_rb,0.88237e+03_rb,0.10218e+04_rb,0.11610e+04_rb /)
+      kao(:, 4, 9,11) = (/ &
+        & 0.12441e+04_rb,0.10920e+04_rb,0.94089e+03_rb,0.78911e+03_rb,0.63797e+03_rb, &
+        & 0.74148e+03_rb,0.88091e+03_rb,0.10202e+04_rb,0.11593e+04_rb /)
+      kao(:, 5, 9,11) = (/ &
+        & 0.12297e+04_rb,0.10813e+04_rb,0.93127e+03_rb,0.78127e+03_rb,0.63265e+03_rb, &
+        & 0.74003e+03_rb,0.87926e+03_rb,0.10184e+04_rb,0.11573e+04_rb /)
+      kao(:, 1,10,11) = (/ &
+        & 0.12530e+04_rb,0.11001e+04_rb,0.94821e+03_rb,0.79486e+03_rb,0.64277e+03_rb, &
+        & 0.74454e+03_rb,0.88447e+03_rb,0.10249e+04_rb,0.11664e+04_rb /)
+      kao(:, 2,10,11) = (/ &
+        & 0.12387e+04_rb,0.10865e+04_rb,0.93685e+03_rb,0.78643e+03_rb,0.63425e+03_rb, &
+        & 0.74423e+03_rb,0.88371e+03_rb,0.10234e+04_rb,0.11637e+04_rb /)
+      kao(:, 3,10,11) = (/ &
+        & 0.12243e+04_rb,0.10744e+04_rb,0.92585e+03_rb,0.77676e+03_rb,0.62740e+03_rb, &
+        & 0.74307e+03_rb,0.88260e+03_rb,0.10221e+04_rb,0.11620e+04_rb /)
+      kao(:, 4,10,11) = (/ &
+        & 0.12107e+04_rb,0.10640e+04_rb,0.91623e+03_rb,0.76957e+03_rb,0.62235e+03_rb, &
+        & 0.74168e+03_rb,0.88129e+03_rb,0.10208e+04_rb,0.11602e+04_rb /)
+      kao(:, 5,10,11) = (/ &
+        & 0.12010e+04_rb,0.10536e+04_rb,0.90891e+03_rb,0.76248e+03_rb,0.61761e+03_rb, &
+        & 0.74025e+03_rb,0.87965e+03_rb,0.10191e+04_rb,0.11583e+04_rb /)
+      kao(:, 1,11,11) = (/ &
+        & 0.12140e+04_rb,0.10672e+04_rb,0.91852e+03_rb,0.77048e+03_rb,0.62320e+03_rb, &
+        & 0.74401e+03_rb,0.88413e+03_rb,0.10249e+04_rb,0.11664e+04_rb /)
+      kao(:, 2,11,11) = (/ &
+        & 0.12007e+04_rb,0.10549e+04_rb,0.90904e+03_rb,0.76333e+03_rb,0.61635e+03_rb, &
+        & 0.74367e+03_rb,0.88337e+03_rb,0.10233e+04_rb,0.11639e+04_rb /)
+      kao(:, 3,11,11) = (/ &
+        & 0.11891e+04_rb,0.10458e+04_rb,0.90055e+03_rb,0.75543e+03_rb,0.61123e+03_rb, &
+        & 0.74262e+03_rb,0.88229e+03_rb,0.10219e+04_rb,0.11620e+04_rb /)
+      kao(:, 4,11,11) = (/ &
+        & 0.11794e+04_rb,0.10371e+04_rb,0.89190e+03_rb,0.74912e+03_rb,0.60572e+03_rb, &
+        & 0.74128e+03_rb,0.88110e+03_rb,0.10207e+04_rb,0.11602e+04_rb /)
+      kao(:, 5,11,11) = (/ &
+        & 0.11697e+04_rb,0.10285e+04_rb,0.88631e+03_rb,0.74374e+03_rb,0.60062e+03_rb, &
+        & 0.73987e+03_rb,0.87958e+03_rb,0.10191e+04_rb,0.11583e+04_rb /)
+      kao(:, 1,12,11) = (/ &
+        & 0.11829e+04_rb,0.10373e+04_rb,0.89433e+03_rb,0.75107e+03_rb,0.60775e+03_rb, &
+        & 0.74357e+03_rb,0.88385e+03_rb,0.10247e+04_rb,0.11664e+04_rb /)
+      kao(:, 2,12,11) = (/ &
+        & 0.11707e+04_rb,0.10276e+04_rb,0.88712e+03_rb,0.74426e+03_rb,0.60163e+03_rb, &
+        & 0.74327e+03_rb,0.88309e+03_rb,0.10231e+04_rb,0.11639e+04_rb /)
+      kao(:, 3,12,11) = (/ &
+        & 0.11629e+04_rb,0.10211e+04_rb,0.88018e+03_rb,0.73831e+03_rb,0.60184e+03_rb, &
+        & 0.74224e+03_rb,0.88203e+03_rb,0.10219e+04_rb,0.11620e+04_rb /)
+      kao(:, 4,12,11) = (/ &
+        & 0.11538e+04_rb,0.10126e+04_rb,0.87253e+03_rb,0.73377e+03_rb,0.60080e+03_rb, &
+        & 0.74101e+03_rb,0.88067e+03_rb,0.10205e+04_rb,0.11602e+04_rb /)
+      kao(:, 5,12,11) = (/ &
+        & 0.11449e+04_rb,0.10062e+04_rb,0.86764e+03_rb,0.72842e+03_rb,0.59975e+03_rb, &
+        & 0.73955e+03_rb,0.87926e+03_rb,0.10190e+04_rb,0.11583e+04_rb /)
+      kao(:, 1,13,11) = (/ &
+        & 0.11561e+04_rb,0.10152e+04_rb,0.87509e+03_rb,0.73383e+03_rb,0.60253e+03_rb, &
+        & 0.74321e+03_rb,0.88362e+03_rb,0.10246e+04_rb,0.11664e+04_rb /)
+      kao(:, 2,13,11) = (/ &
+        & 0.11468e+04_rb,0.10069e+04_rb,0.86783e+03_rb,0.72921e+03_rb,0.60211e+03_rb, &
+        & 0.74294e+03_rb,0.88286e+03_rb,0.10230e+04_rb,0.11639e+04_rb /)
+      kao(:, 3,13,11) = (/ &
+        & 0.11390e+04_rb,0.10001e+04_rb,0.86301e+03_rb,0.72323e+03_rb,0.60140e+03_rb, &
+        & 0.74194e+03_rb,0.88181e+03_rb,0.10218e+04_rb,0.11621e+04_rb /)
+      kao(:, 4,13,11) = (/ &
+        & 0.11313e+04_rb,0.99361e+03_rb,0.85706e+03_rb,0.72032e+03_rb,0.60042e+03_rb, &
+        & 0.74065e+03_rb,0.88048e+03_rb,0.10204e+04_rb,0.11602e+04_rb /)
+      kao(:, 5,13,11) = (/ &
+        & 0.11266e+04_rb,0.99042e+03_rb,0.85257e+03_rb,0.71548e+03_rb,0.59931e+03_rb, &
+        & 0.73930e+03_rb,0.87908e+03_rb,0.10187e+04_rb,0.11583e+04_rb /)
+      kao(:, 1, 1,12) = (/ &
+        & 0.19596e+04_rb,0.17200e+04_rb,0.14802e+04_rb,0.12370e+04_rb,0.99641e+03_rb, &
+        & 0.75556e+03_rb,0.88658e+03_rb,0.10236e+04_rb,0.11622e+04_rb /)
+      kao(:, 2, 1,12) = (/ &
+        & 0.19107e+04_rb,0.16797e+04_rb,0.14463e+04_rb,0.12083e+04_rb,0.97440e+03_rb, &
+        & 0.74935e+03_rb,0.88455e+03_rb,0.10223e+04_rb,0.11611e+04_rb /)
+      kao(:, 3, 1,12) = (/ &
+        & 0.18687e+04_rb,0.16368e+04_rb,0.14091e+04_rb,0.11809e+04_rb,0.95100e+03_rb, &
+        & 0.74626e+03_rb,0.88278e+03_rb,0.10214e+04_rb,0.11600e+04_rb /)
+      kao(:, 4, 1,12) = (/ &
+        & 0.18274e+04_rb,0.15998e+04_rb,0.13805e+04_rb,0.11544e+04_rb,0.92955e+03_rb, &
+        & 0.74432e+03_rb,0.88029e+03_rb,0.10193e+04_rb,0.11572e+04_rb /)
+      kao(:, 5, 1,12) = (/ &
+        & 0.17908e+04_rb,0.15685e+04_rb,0.13492e+04_rb,0.11303e+04_rb,0.91228e+03_rb, &
+        & 0.74183e+03_rb,0.87814e+03_rb,0.10165e+04_rb,0.11551e+04_rb /)
+      kao(:, 1, 2,12) = (/ &
+        & 0.18091e+04_rb,0.15890e+04_rb,0.13701e+04_rb,0.11447e+04_rb,0.92240e+03_rb, &
+        & 0.75031e+03_rb,0.88580e+03_rb,0.10236e+04_rb,0.11628e+04_rb /)
+      kao(:, 2, 2,12) = (/ &
+        & 0.17702e+04_rb,0.15507e+04_rb,0.13346e+04_rb,0.11179e+04_rb,0.90072e+03_rb, &
+        & 0.74790e+03_rb,0.88384e+03_rb,0.10222e+04_rb,0.11616e+04_rb /)
+      kao(:, 3, 2,12) = (/ &
+        & 0.17282e+04_rb,0.15159e+04_rb,0.13066e+04_rb,0.10967e+04_rb,0.88274e+03_rb, &
+        & 0.74530e+03_rb,0.88241e+03_rb,0.10213e+04_rb,0.11606e+04_rb /)
+      kao(:, 4, 2,12) = (/ &
+        & 0.16964e+04_rb,0.14887e+04_rb,0.12816e+04_rb,0.10711e+04_rb,0.86387e+03_rb, &
+        & 0.74308e+03_rb,0.88064e+03_rb,0.10199e+04_rb,0.11593e+04_rb /)
+      kao(:, 5, 2,12) = (/ &
+        & 0.16664e+04_rb,0.14634e+04_rb,0.12570e+04_rb,0.10541e+04_rb,0.84878e+03_rb, &
+        & 0.74105e+03_rb,0.87802e+03_rb,0.10170e+04_rb,0.11559e+04_rb /)
+      kao(:, 1, 3,12) = (/ &
+        & 0.16969e+04_rb,0.14893e+04_rb,0.12806e+04_rb,0.10686e+04_rb,0.86200e+03_rb, &
+        & 0.74953e+03_rb,0.88586e+03_rb,0.10239e+04_rb,0.11637e+04_rb /)
+      kao(:, 2, 3,12) = (/ &
+        & 0.16530e+04_rb,0.14535e+04_rb,0.12505e+04_rb,0.10502e+04_rb,0.84485e+03_rb, &
+        & 0.74734e+03_rb,0.88380e+03_rb,0.10224e+04_rb,0.11623e+04_rb /)
+      kao(:, 3, 3,12) = (/ &
+        & 0.16258e+04_rb,0.14316e+04_rb,0.12308e+04_rb,0.10274e+04_rb,0.82737e+03_rb, &
+        & 0.74498e+03_rb,0.88220e+03_rb,0.10214e+04_rb,0.11612e+04_rb /)
+      kao(:, 4, 3,12) = (/ &
+        & 0.15947e+04_rb,0.13987e+04_rb,0.12036e+04_rb,0.10100e+04_rb,0.81398e+03_rb, &
+        & 0.74250e+03_rb,0.88073e+03_rb,0.10203e+04_rb,0.11601e+04_rb /)
+      kao(:, 5, 3,12) = (/ &
+        & 0.15659e+04_rb,0.13745e+04_rb,0.11827e+04_rb,0.99357e+03_rb,0.79945e+03_rb, &
+        & 0.74072e+03_rb,0.87844e+03_rb,0.10192e+04_rb,0.11574e+04_rb /)
+      kao(:, 1, 4,12) = (/ &
+        & 0.15993e+04_rb,0.14029e+04_rb,0.12034e+04_rb,0.10105e+04_rb,0.81494e+03_rb, &
+        & 0.74898e+03_rb,0.88604e+03_rb,0.10246e+04_rb,0.11648e+04_rb /)
+      kao(:, 2, 4,12) = (/ &
+        & 0.15603e+04_rb,0.13717e+04_rb,0.11803e+04_rb,0.99158e+03_rb,0.79797e+03_rb, &
+        & 0.74702e+03_rb,0.88413e+03_rb,0.10230e+04_rb,0.11631e+04_rb /)
+      kao(:, 3, 4,12) = (/ &
+        & 0.15363e+04_rb,0.13460e+04_rb,0.11581e+04_rb,0.97158e+03_rb,0.78286e+03_rb, &
+        & 0.74488e+03_rb,0.88249e+03_rb,0.10215e+04_rb,0.11618e+04_rb /)
+      kao(:, 4, 4,12) = (/ &
+        & 0.15069e+04_rb,0.13248e+04_rb,0.11397e+04_rb,0.95515e+03_rb,0.77185e+03_rb, &
+        & 0.74259e+03_rb,0.88086e+03_rb,0.10207e+04_rb,0.11608e+04_rb /)
+      kao(:, 5, 4,12) = (/ &
+        & 0.14842e+04_rb,0.13030e+04_rb,0.11201e+04_rb,0.94205e+03_rb,0.75928e+03_rb, &
+        & 0.74072e+03_rb,0.87912e+03_rb,0.10193e+04_rb,0.11593e+04_rb /)
+      kao(:, 1, 5,12) = (/ &
+        & 0.15161e+04_rb,0.13293e+04_rb,0.11434e+04_rb,0.96071e+03_rb,0.77366e+03_rb, &
+        & 0.74856e+03_rb,0.88634e+03_rb,0.10256e+04_rb,0.11660e+04_rb /)
+      kao(:, 2, 5,12) = (/ &
+        & 0.14862e+04_rb,0.13039e+04_rb,0.11202e+04_rb,0.93927e+03_rb,0.75808e+03_rb, &
+        & 0.74678e+03_rb,0.88432e+03_rb,0.10237e+04_rb,0.11641e+04_rb /)
+      kao(:, 3, 5,12) = (/ &
+        & 0.14569e+04_rb,0.12812e+04_rb,0.11040e+04_rb,0.92477e+03_rb,0.74608e+03_rb, &
+        & 0.74483e+03_rb,0.88267e+03_rb,0.10221e+04_rb,0.11626e+04_rb /)
+      kao(:, 4, 5,12) = (/ &
+        & 0.14370e+04_rb,0.12601e+04_rb,0.10866e+04_rb,0.91322e+03_rb,0.73546e+03_rb, &
+        & 0.74282e+03_rb,0.88106e+03_rb,0.10210e+04_rb,0.11614e+04_rb /)
+      kao(:, 5, 5,12) = (/ &
+        & 0.14157e+04_rb,0.12432e+04_rb,0.10692e+04_rb,0.89766e+03_rb,0.72371e+03_rb, &
+        & 0.74075e+03_rb,0.87977e+03_rb,0.10201e+04_rb,0.11604e+04_rb /)
+      kao(:, 1, 6,12) = (/ &
+        & 0.14446e+04_rb,0.12668e+04_rb,0.10902e+04_rb,0.91458e+03_rb,0.73853e+03_rb, &
+        & 0.74800e+03_rb,0.88683e+03_rb,0.10267e+04_rb,0.11674e+04_rb /)
+      kao(:, 2, 6,12) = (/ &
+        & 0.14180e+04_rb,0.12442e+04_rb,0.10729e+04_rb,0.90054e+03_rb,0.72712e+03_rb, &
+        & 0.74664e+03_rb,0.88490e+03_rb,0.10243e+04_rb,0.11653e+04_rb /)
+      kao(:, 3, 6,12) = (/ &
+        & 0.13970e+04_rb,0.12338e+04_rb,0.10562e+04_rb,0.88644e+03_rb,0.71466e+03_rb, &
+        & 0.74490e+03_rb,0.88299e+03_rb,0.10228e+04_rb,0.11635e+04_rb /)
+      kao(:, 4, 6,12) = (/ &
+        & 0.13772e+04_rb,0.12092e+04_rb,0.10403e+04_rb,0.87191e+03_rb,0.70566e+03_rb, &
+        & 0.74297e+03_rb,0.88145e+03_rb,0.10214e+04_rb,0.11622e+04_rb /)
+      kao(:, 5, 6,12) = (/ &
+        & 0.13536e+04_rb,0.11933e+04_rb,0.10279e+04_rb,0.85985e+03_rb,0.69532e+03_rb, &
+        & 0.74091e+03_rb,0.88002e+03_rb,0.10207e+04_rb,0.11611e+04_rb /)
+      kao(:, 1, 7,12) = (/ &
+        & 0.13872e+04_rb,0.12173e+04_rb,0.10473e+04_rb,0.87779e+03_rb,0.70929e+03_rb, &
+        & 0.74753e+03_rb,0.88739e+03_rb,0.10279e+04_rb,0.11686e+04_rb /)
+      kao(:, 2, 7,12) = (/ &
+        & 0.13614e+04_rb,0.11960e+04_rb,0.10302e+04_rb,0.86342e+03_rb,0.69779e+03_rb, &
+        & 0.74649e+03_rb,0.88535e+03_rb,0.10254e+04_rb,0.11666e+04_rb /)
+      kao(:, 3, 7,12) = (/ &
+        & 0.13423e+04_rb,0.11779e+04_rb,0.10152e+04_rb,0.85120e+03_rb,0.68669e+03_rb, &
+        & 0.74500e+03_rb,0.88364e+03_rb,0.10236e+04_rb,0.11646e+04_rb /)
+      kao(:, 4, 7,12) = (/ &
+        & 0.13222e+04_rb,0.11614e+04_rb,0.10027e+04_rb,0.84138e+03_rb,0.67980e+03_rb, &
+        & 0.74324e+03_rb,0.88194e+03_rb,0.10219e+04_rb,0.11628e+04_rb /)
+      kao(:, 5, 7,12) = (/ &
+        & 0.13077e+04_rb,0.11487e+04_rb,0.98870e+03_rb,0.82923e+03_rb,0.67117e+03_rb, &
+        & 0.74131e+03_rb,0.88052e+03_rb,0.10200e+04_rb,0.11617e+04_rb /)
+      kao(:, 1, 8,12) = (/ &
+        & 0.13318e+04_rb,0.11751e+04_rb,0.10116e+04_rb,0.84760e+03_rb,0.68552e+03_rb, &
+        & 0.74755e+03_rb,0.88764e+03_rb,0.10284e+04_rb,0.11697e+04_rb /)
+      kao(:, 2, 8,12) = (/ &
+        & 0.13123e+04_rb,0.11533e+04_rb,0.99316e+03_rb,0.83364e+03_rb,0.67452e+03_rb, &
+        & 0.74634e+03_rb,0.88623e+03_rb,0.10267e+04_rb,0.11679e+04_rb /)
+      kao(:, 3, 8,12) = (/ &
+        & 0.12963e+04_rb,0.11395e+04_rb,0.98036e+03_rb,0.82206e+03_rb,0.66378e+03_rb, &
+        & 0.74528e+03_rb,0.88422e+03_rb,0.10245e+04_rb,0.11657e+04_rb /)
+      kao(:, 4, 8,12) = (/ &
+        & 0.12799e+04_rb,0.11235e+04_rb,0.96838e+03_rb,0.81175e+03_rb,0.65688e+03_rb, &
+        & 0.74350e+03_rb,0.88249e+03_rb,0.10227e+04_rb,0.11639e+04_rb /)
+      kao(:, 5, 8,12) = (/ &
+        & 0.12649e+04_rb,0.11128e+04_rb,0.95762e+03_rb,0.80323e+03_rb,0.64917e+03_rb, &
+        & 0.74172e+03_rb,0.88089e+03_rb,0.10213e+04_rb,0.11624e+04_rb /)
+      kao(:, 1, 9,12) = (/ &
+        & 0.12892e+04_rb,0.11353e+04_rb,0.97529e+03_rb,0.81997e+03_rb,0.66439e+03_rb, &
+        & 0.74689e+03_rb,0.88774e+03_rb,0.10288e+04_rb,0.11703e+04_rb /)
+      kao(:, 2, 9,12) = (/ &
+        & 0.12710e+04_rb,0.11179e+04_rb,0.96230e+03_rb,0.80757e+03_rb,0.65174e+03_rb, &
+        & 0.74606e+03_rb,0.88671e+03_rb,0.10277e+04_rb,0.11691e+04_rb /)
+      kao(:, 3, 9,12) = (/ &
+        & 0.12556e+04_rb,0.11026e+04_rb,0.95506e+03_rb,0.79904e+03_rb,0.64512e+03_rb, &
+        & 0.74525e+03_rb,0.88489e+03_rb,0.10254e+04_rb,0.11669e+04_rb /)
+      kao(:, 4, 9,12) = (/ &
+        & 0.12434e+04_rb,0.10930e+04_rb,0.94625e+03_rb,0.79326e+03_rb,0.63956e+03_rb, &
+        & 0.74375e+03_rb,0.88308e+03_rb,0.10236e+04_rb,0.11649e+04_rb /)
+      kao(:, 5, 9,12) = (/ &
+        & 0.12362e+04_rb,0.10807e+04_rb,0.93519e+03_rb,0.78318e+03_rb,0.63176e+03_rb, &
+        & 0.74222e+03_rb,0.88144e+03_rb,0.10218e+04_rb,0.11632e+04_rb /)
+      kao(:, 1,10,12) = (/ &
+        & 0.12560e+04_rb,0.11008e+04_rb,0.94819e+03_rb,0.79713e+03_rb,0.64289e+03_rb, &
+        & 0.74662e+03_rb,0.88790e+03_rb,0.10293e+04_rb,0.11710e+04_rb /)
+      kao(:, 2,10,12) = (/ &
+        & 0.12370e+04_rb,0.10868e+04_rb,0.93614e+03_rb,0.78750e+03_rb,0.63591e+03_rb, &
+        & 0.74589e+03_rb,0.88689e+03_rb,0.10281e+04_rb,0.11697e+04_rb /)
+      kao(:, 3,10,12) = (/ &
+        & 0.12228e+04_rb,0.10745e+04_rb,0.92565e+03_rb,0.77586e+03_rb,0.63013e+03_rb, &
+        & 0.74525e+03_rb,0.88546e+03_rb,0.10265e+04_rb,0.11680e+04_rb /)
+      kao(:, 4,10,12) = (/ &
+        & 0.12130e+04_rb,0.10629e+04_rb,0.91805e+03_rb,0.77218e+03_rb,0.62214e+03_rb, &
+        & 0.74398e+03_rb,0.88360e+03_rb,0.10243e+04_rb,0.11659e+04_rb /)
+      kao(:, 5,10,12) = (/ &
+        & 0.11990e+04_rb,0.10561e+04_rb,0.90990e+03_rb,0.76234e+03_rb,0.61782e+03_rb, &
+        & 0.74238e+03_rb,0.88192e+03_rb,0.10225e+04_rb,0.11640e+04_rb /)
+      kao(:, 1,11,12) = (/ &
+        & 0.12160e+04_rb,0.10660e+04_rb,0.91756e+03_rb,0.77092e+03_rb,0.62410e+03_rb, &
+        & 0.74614e+03_rb,0.88758e+03_rb,0.10288e+04_rb,0.11712e+04_rb /)
+      kao(:, 2,11,12) = (/ &
+        & 0.12001e+04_rb,0.10573e+04_rb,0.90897e+03_rb,0.76187e+03_rb,0.61778e+03_rb, &
+        & 0.74563e+03_rb,0.88659e+03_rb,0.10280e+04_rb,0.11697e+04_rb /)
+      kao(:, 3,11,12) = (/ &
+        & 0.11883e+04_rb,0.10436e+04_rb,0.89901e+03_rb,0.75711e+03_rb,0.61087e+03_rb, &
+        & 0.74468e+03_rb,0.88519e+03_rb,0.10264e+04_rb,0.11680e+04_rb /)
+      kao(:, 4,11,12) = (/ &
+        & 0.11791e+04_rb,0.10338e+04_rb,0.89462e+03_rb,0.74974e+03_rb,0.60740e+03_rb, &
+        & 0.74372e+03_rb,0.88322e+03_rb,0.10242e+04_rb,0.11659e+04_rb /)
+      kao(:, 5,11,12) = (/ &
+        & 0.11736e+04_rb,0.10284e+04_rb,0.88610e+03_rb,0.74386e+03_rb,0.60256e+03_rb, &
+        & 0.74204e+03_rb,0.88156e+03_rb,0.10223e+04_rb,0.11640e+04_rb /)
+      kao(:, 1,12,12) = (/ &
+        & 0.11783e+04_rb,0.10408e+04_rb,0.89462e+03_rb,0.75034e+03_rb,0.60838e+03_rb, &
+        & 0.74575e+03_rb,0.88732e+03_rb,0.10288e+04_rb,0.11710e+04_rb /)
+      kao(:, 2,12,12) = (/ &
+        & 0.11693e+04_rb,0.10333e+04_rb,0.88486e+03_rb,0.74467e+03_rb,0.60420e+03_rb, &
+        & 0.74514e+03_rb,0.88635e+03_rb,0.10279e+04_rb,0.11697e+04_rb /)
+      kao(:, 3,12,12) = (/ &
+        & 0.11597e+04_rb,0.10197e+04_rb,0.87845e+03_rb,0.73901e+03_rb,0.60371e+03_rb, &
+        & 0.74440e+03_rb,0.88495e+03_rb,0.10263e+04_rb,0.11680e+04_rb /)
+      kao(:, 4,12,12) = (/ &
+        & 0.11554e+04_rb,0.10154e+04_rb,0.87390e+03_rb,0.73209e+03_rb,0.60310e+03_rb, &
+        & 0.74343e+03_rb,0.88312e+03_rb,0.10241e+04_rb,0.11659e+04_rb /)
+      kao(:, 5,12,12) = (/ &
+        & 0.11463e+04_rb,0.10081e+04_rb,0.86768e+03_rb,0.73113e+03_rb,0.60226e+03_rb, &
+        & 0.74178e+03_rb,0.88148e+03_rb,0.10222e+04_rb,0.11640e+04_rb /)
+      kao(:, 1,13,12) = (/ &
+        & 0.11576e+04_rb,0.10172e+04_rb,0.87697e+03_rb,0.73496e+03_rb,0.60442e+03_rb, &
+        & 0.74542e+03_rb,0.88710e+03_rb,0.10287e+04_rb,0.11710e+04_rb /)
+      kao(:, 2,13,12) = (/ &
+        & 0.11489e+04_rb,0.10121e+04_rb,0.86787e+03_rb,0.73038e+03_rb,0.60369e+03_rb, &
+        & 0.74483e+03_rb,0.88615e+03_rb,0.10278e+04_rb,0.11697e+04_rb /)
+      kao(:, 3,13,12) = (/ &
+        & 0.11408e+04_rb,0.10003e+04_rb,0.86069e+03_rb,0.72468e+03_rb,0.60332e+03_rb, &
+        & 0.74398e+03_rb,0.88477e+03_rb,0.10262e+04_rb,0.11679e+04_rb /)
+      kao(:, 4,13,12) = (/ &
+        & 0.11353e+04_rb,0.99812e+03_rb,0.85805e+03_rb,0.72010e+03_rb,0.60276e+03_rb, &
+        & 0.74301e+03_rb,0.88294e+03_rb,0.10240e+04_rb,0.11659e+04_rb /)
+      kao(:, 5,13,12) = (/ &
+        & 0.11276e+04_rb,0.99093e+03_rb,0.85424e+03_rb,0.71851e+03_rb,0.60186e+03_rb, &
+        & 0.74137e+03_rb,0.88131e+03_rb,0.10223e+04_rb,0.11640e+04_rb /)
+      kao(:, 1, 1,13) = (/ &
+        & 0.19698e+04_rb,0.17183e+04_rb,0.14812e+04_rb,0.12476e+04_rb,0.10057e+04_rb, &
+        & 0.76142e+03_rb,0.89076e+03_rb,0.10305e+04_rb,0.11701e+04_rb /)
+      kao(:, 2, 1,13) = (/ &
+        & 0.19138e+04_rb,0.16790e+04_rb,0.14471e+04_rb,0.12079e+04_rb,0.97024e+03_rb, &
+        & 0.74958e+03_rb,0.88854e+03_rb,0.10281e+04_rb,0.11676e+04_rb /)
+      kao(:, 3, 1,13) = (/ &
+        & 0.18656e+04_rb,0.16362e+04_rb,0.14072e+04_rb,0.11764e+04_rb,0.95368e+03_rb, &
+        & 0.74756e+03_rb,0.88578e+03_rb,0.10247e+04_rb,0.11642e+04_rb /)
+      kao(:, 4, 1,13) = (/ &
+        & 0.18274e+04_rb,0.16076e+04_rb,0.13744e+04_rb,0.11522e+04_rb,0.93101e+03_rb, &
+        & 0.74489e+03_rb,0.88368e+03_rb,0.10224e+04_rb,0.11624e+04_rb /)
+      kao(:, 5, 1,13) = (/ &
+        & 0.18123e+04_rb,0.15711e+04_rb,0.13539e+04_rb,0.11391e+04_rb,0.91271e+03_rb, &
+        & 0.74309e+03_rb,0.88194e+03_rb,0.10210e+04_rb,0.11601e+04_rb /)
+      kao(:, 1, 2,13) = (/ &
+        & 0.18136e+04_rb,0.16074e+04_rb,0.13682e+04_rb,0.11455e+04_rb,0.92152e+03_rb, &
+        & 0.75090e+03_rb,0.89044e+03_rb,0.10309e+04_rb,0.11711e+04_rb /)
+      kao(:, 2, 2,13) = (/ &
+        & 0.17663e+04_rb,0.15639e+04_rb,0.13412e+04_rb,0.11338e+04_rb,0.90565e+03_rb, &
+        & 0.74892e+03_rb,0.88842e+03_rb,0.10286e+04_rb,0.11690e+04_rb /)
+      kao(:, 3, 2,13) = (/ &
+        & 0.17473e+04_rb,0.15168e+04_rb,0.13179e+04_rb,0.10933e+04_rb,0.88564e+03_rb, &
+        & 0.74657e+03_rb,0.88587e+03_rb,0.10277e+04_rb,0.11659e+04_rb /)
+      kao(:, 4, 2,13) = (/ &
+        & 0.16935e+04_rb,0.14940e+04_rb,0.12866e+04_rb,0.10771e+04_rb,0.86513e+03_rb, &
+        & 0.74388e+03_rb,0.88292e+03_rb,0.10226e+04_rb,0.11621e+04_rb /)
+      kao(:, 5, 2,13) = (/ &
+        & 0.16796e+04_rb,0.14587e+04_rb,0.12610e+04_rb,0.10625e+04_rb,0.85051e+03_rb, &
+        & 0.74222e+03_rb,0.88187e+03_rb,0.10215e+04_rb,0.11614e+04_rb /)
+      kao(:, 1, 3,13) = (/ &
+        & 0.16915e+04_rb,0.14853e+04_rb,0.12759e+04_rb,0.10742e+04_rb,0.87078e+03_rb, &
+        & 0.75040e+03_rb,0.89056e+03_rb,0.10314e+04_rb,0.11723e+04_rb /)
+      kao(:, 2, 3,13) = (/ &
+        & 0.16685e+04_rb,0.14695e+04_rb,0.12569e+04_rb,0.10522e+04_rb,0.84369e+03_rb, &
+        & 0.74849e+03_rb,0.88875e+03_rb,0.10295e+04_rb,0.11702e+04_rb /)
+      kao(:, 3, 3,13) = (/ &
+        & 0.16315e+04_rb,0.14234e+04_rb,0.12207e+04_rb,0.10278e+04_rb,0.83542e+03_rb, &
+        & 0.74665e+03_rb,0.88665e+03_rb,0.10272e+04_rb,0.11677e+04_rb /)
+      kao(:, 4, 3,13) = (/ &
+        & 0.15936e+04_rb,0.13973e+04_rb,0.11983e+04_rb,0.10068e+04_rb,0.81253e+03_rb, &
+        & 0.74392e+03_rb,0.88383e+03_rb,0.10241e+04_rb,0.11643e+04_rb /)
+      kao(:, 5, 3,13) = (/ &
+        & 0.15704e+04_rb,0.13749e+04_rb,0.11794e+04_rb,0.99081e+03_rb,0.79887e+03_rb, &
+        & 0.74214e+03_rb,0.88216e+03_rb,0.10204e+04_rb,0.11625e+04_rb /)
+      kao(:, 1, 4,13) = (/ &
+        & 0.16005e+04_rb,0.14146e+04_rb,0.12141e+04_rb,0.10096e+04_rb,0.81830e+03_rb, &
+        & 0.74981e+03_rb,0.89073e+03_rb,0.10323e+04_rb,0.11736e+04_rb /)
+      kao(:, 2, 4,13) = (/ &
+        & 0.15697e+04_rb,0.13709e+04_rb,0.11792e+04_rb,0.98706e+03_rb,0.80274e+03_rb, &
+        & 0.74843e+03_rb,0.88917e+03_rb,0.10304e+04_rb,0.11716e+04_rb /)
+      kao(:, 3, 4,13) = (/ &
+        & 0.15342e+04_rb,0.13528e+04_rb,0.11633e+04_rb,0.97494e+03_rb,0.78298e+03_rb, &
+        & 0.74655e+03_rb,0.88714e+03_rb,0.10283e+04_rb,0.11694e+04_rb /)
+      kao(:, 4, 4,13) = (/ &
+        & 0.15079e+04_rb,0.13273e+04_rb,0.11368e+04_rb,0.95326e+03_rb,0.76898e+03_rb, &
+        & 0.74477e+03_rb,0.88522e+03_rb,0.10258e+04_rb,0.11666e+04_rb /)
+      kao(:, 5, 4,13) = (/ &
+        & 0.14904e+04_rb,0.13050e+04_rb,0.11274e+04_rb,0.94133e+03_rb,0.75918e+03_rb, &
+        & 0.74185e+03_rb,0.88236e+03_rb,0.10229e+04_rb,0.11634e+04_rb /)
+      kao(:, 1, 5,13) = (/ &
+        & 0.15223e+04_rb,0.13292e+04_rb,0.11458e+04_rb,0.96632e+03_rb,0.77253e+03_rb, &
+        & 0.74931e+03_rb,0.89080e+03_rb,0.10327e+04_rb,0.11744e+04_rb /)
+      kao(:, 2, 5,13) = (/ &
+        & 0.14887e+04_rb,0.13100e+04_rb,0.11308e+04_rb,0.95564e+03_rb,0.76318e+03_rb, &
+        & 0.74814e+03_rb,0.88953e+03_rb,0.10311e+04_rb,0.11728e+04_rb /)
+      kao(:, 3, 5,13) = (/ &
+        & 0.14666e+04_rb,0.12805e+04_rb,0.10990e+04_rb,0.92585e+03_rb,0.74527e+03_rb, &
+        & 0.74662e+03_rb,0.88788e+03_rb,0.10293e+04_rb,0.11708e+04_rb /)
+      kao(:, 4, 5,13) = (/ &
+        & 0.14380e+04_rb,0.12615e+04_rb,0.10805e+04_rb,0.91192e+03_rb,0.73306e+03_rb, &
+        & 0.74471e+03_rb,0.88594e+03_rb,0.10272e+04_rb,0.11684e+04_rb /)
+      kao(:, 5, 5,13) = (/ &
+        & 0.14117e+04_rb,0.12389e+04_rb,0.10707e+04_rb,0.89863e+03_rb,0.72872e+03_rb, &
+        & 0.74254e+03_rb,0.88356e+03_rb,0.10243e+04_rb,0.11652e+04_rb /)
+      kao(:, 1, 6,13) = (/ &
+        & 0.14428e+04_rb,0.12661e+04_rb,0.10990e+04_rb,0.91605e+03_rb,0.74645e+03_rb, &
+        & 0.74914e+03_rb,0.89068e+03_rb,0.10327e+04_rb,0.11747e+04_rb /)
+      kao(:, 2, 6,13) = (/ &
+        & 0.14277e+04_rb,0.12454e+04_rb,0.10670e+04_rb,0.90364e+03_rb,0.72758e+03_rb, &
+        & 0.74802e+03_rb,0.88983e+03_rb,0.10318e+04_rb,0.11738e+04_rb /)
+      kao(:, 3, 6,13) = (/ &
+        & 0.14072e+04_rb,0.12244e+04_rb,0.10539e+04_rb,0.88576e+03_rb,0.71342e+03_rb, &
+        & 0.74674e+03_rb,0.88844e+03_rb,0.10303e+04_rb,0.11723e+04_rb /)
+      kao(:, 4, 6,13) = (/ &
+        & 0.13764e+04_rb,0.12101e+04_rb,0.10371e+04_rb,0.87173e+03_rb,0.70565e+03_rb, &
+        & 0.74519e+03_rb,0.88672e+03_rb,0.10284e+04_rb,0.11700e+04_rb /)
+      kao(:, 5, 6,13) = (/ &
+        & 0.13559e+04_rb,0.11928e+04_rb,0.10275e+04_rb,0.87202e+03_rb,0.69916e+03_rb, &
+        & 0.74337e+03_rb,0.88468e+03_rb,0.10257e+04_rb,0.11677e+04_rb /)
+      kao(:, 1, 7,13) = (/ &
+        & 0.13816e+04_rb,0.12181e+04_rb,0.10498e+04_rb,0.87727e+03_rb,0.70862e+03_rb, &
+        & 0.74879e+03_rb,0.89032e+03_rb,0.10324e+04_rb,0.11748e+04_rb /)
+      kao(:, 2, 7,13) = (/ &
+        & 0.13746e+04_rb,0.12007e+04_rb,0.10368e+04_rb,0.86700e+03_rb,0.69742e+03_rb, &
+        & 0.74791e+03_rb,0.88998e+03_rb,0.10322e+04_rb,0.11745e+04_rb /)
+      kao(:, 3, 7,13) = (/ &
+        & 0.13471e+04_rb,0.11822e+04_rb,0.10118e+04_rb,0.85187e+03_rb,0.69076e+03_rb, &
+        & 0.74684e+03_rb,0.88891e+03_rb,0.10311e+04_rb,0.11732e+04_rb /)
+      kao(:, 4, 7,13) = (/ &
+        & 0.13306e+04_rb,0.11625e+04_rb,0.10055e+04_rb,0.83687e+03_rb,0.67946e+03_rb, &
+        & 0.74564e+03_rb,0.88741e+03_rb,0.10294e+04_rb,0.11714e+04_rb /)
+      kao(:, 5, 7,13) = (/ &
+        & 0.13072e+04_rb,0.11462e+04_rb,0.98997e+03_rb,0.82975e+03_rb,0.67148e+03_rb, &
+        & 0.74390e+03_rb,0.88544e+03_rb,0.10275e+04_rb,0.11691e+04_rb /)
+      kao(:, 1, 8,13) = (/ &
+        & 0.13342e+04_rb,0.11738e+04_rb,0.10072e+04_rb,0.84777e+03_rb,0.68336e+03_rb, &
+        & 0.74810e+03_rb,0.89032e+03_rb,0.10328e+04_rb,0.11753e+04_rb /)
+      kao(:, 2, 8,13) = (/ &
+        & 0.13170e+04_rb,0.11565e+04_rb,0.99551e+03_rb,0.83812e+03_rb,0.67873e+03_rb, &
+        & 0.74767e+03_rb,0.88984e+03_rb,0.10325e+04_rb,0.11747e+04_rb /)
+      kao(:, 3, 8,13) = (/ &
+        & 0.12961e+04_rb,0.11348e+04_rb,0.98531e+03_rb,0.82142e+03_rb,0.66767e+03_rb, &
+        & 0.74660e+03_rb,0.88923e+03_rb,0.10317e+04_rb,0.11741e+04_rb /)
+      kao(:, 4, 8,13) = (/ &
+        & 0.12863e+04_rb,0.11324e+04_rb,0.96704e+03_rb,0.81553e+03_rb,0.65703e+03_rb, &
+        & 0.74590e+03_rb,0.88815e+03_rb,0.10305e+04_rb,0.11725e+04_rb /)
+      kao(:, 5, 8,13) = (/ &
+        & 0.12689e+04_rb,0.11113e+04_rb,0.96142e+03_rb,0.81188e+03_rb,0.65150e+03_rb, &
+        & 0.74435e+03_rb,0.88637e+03_rb,0.10284e+04_rb,0.11705e+04_rb /)
+      kao(:, 1, 9,13) = (/ &
+        & 0.12929e+04_rb,0.11420e+04_rb,0.97941e+03_rb,0.82358e+03_rb,0.66259e+03_rb, &
+        & 0.74862e+03_rb,0.89046e+03_rb,0.10332e+04_rb,0.11761e+04_rb /)
+      kao(:, 2, 9,13) = (/ &
+        & 0.12739e+04_rb,0.11222e+04_rb,0.96918e+03_rb,0.81141e+03_rb,0.65436e+03_rb, &
+        & 0.74747e+03_rb,0.88962e+03_rb,0.10323e+04_rb,0.11749e+04_rb /)
+      kao(:, 3, 9,13) = (/ &
+        & 0.12674e+04_rb,0.11070e+04_rb,0.94554e+03_rb,0.79811e+03_rb,0.64989e+03_rb, &
+        & 0.74671e+03_rb,0.88937e+03_rb,0.10320e+04_rb,0.11746e+04_rb /)
+      kao(:, 4, 9,13) = (/ &
+        & 0.12536e+04_rb,0.10974e+04_rb,0.93180e+03_rb,0.78881e+03_rb,0.64048e+03_rb, &
+        & 0.74596e+03_rb,0.88846e+03_rb,0.10310e+04_rb,0.11735e+04_rb /)
+      kao(:, 5, 9,13) = (/ &
+        & 0.12304e+04_rb,0.10931e+04_rb,0.92897e+03_rb,0.78158e+03_rb,0.63657e+03_rb, &
+        & 0.74461e+03_rb,0.88706e+03_rb,0.10294e+04_rb,0.11717e+04_rb /)
+      kao(:, 1,10,13) = (/ &
+        & 0.12516e+04_rb,0.11039e+04_rb,0.96641e+03_rb,0.80204e+03_rb,0.64728e+03_rb, &
+        & 0.74871e+03_rb,0.89043e+03_rb,0.10331e+04_rb,0.11761e+04_rb /)
+      kao(:, 2,10,13) = (/ &
+        & 0.12445e+04_rb,0.10951e+04_rb,0.94205e+03_rb,0.78296e+03_rb,0.63684e+03_rb, &
+        & 0.74738e+03_rb,0.88974e+03_rb,0.10326e+04_rb,0.11754e+04_rb /)
+      kao(:, 3,10,13) = (/ &
+        & 0.12212e+04_rb,0.10830e+04_rb,0.92907e+03_rb,0.78344e+03_rb,0.62583e+03_rb, &
+        & 0.74649e+03_rb,0.88924e+03_rb,0.10320e+04_rb,0.11747e+04_rb /)
+      kao(:, 4,10,13) = (/ &
+        & 0.12116e+04_rb,0.10675e+04_rb,0.91424e+03_rb,0.76668e+03_rb,0.62374e+03_rb, &
+        & 0.74589e+03_rb,0.88889e+03_rb,0.10314e+04_rb,0.11741e+04_rb /)
+      kao(:, 5,10,13) = (/ &
+        & 0.12052e+04_rb,0.10532e+04_rb,0.90488e+03_rb,0.76246e+03_rb,0.61399e+03_rb, &
+        & 0.74500e+03_rb,0.88754e+03_rb,0.10301e+04_rb,0.11727e+04_rb /)
+      kao(:, 1,11,13) = (/ &
+        & 0.12119e+04_rb,0.10670e+04_rb,0.92549e+03_rb,0.77292e+03_rb,0.62469e+03_rb, &
+        & 0.74822e+03_rb,0.89015e+03_rb,0.10331e+04_rb,0.11759e+04_rb /)
+      kao(:, 2,11,13) = (/ &
+        & 0.12040e+04_rb,0.10529e+04_rb,0.90947e+03_rb,0.76631e+03_rb,0.61756e+03_rb, &
+        & 0.74680e+03_rb,0.88950e+03_rb,0.10325e+04_rb,0.11754e+04_rb /)
+      kao(:, 3,11,13) = (/ &
+        & 0.11932e+04_rb,0.10470e+04_rb,0.90374e+03_rb,0.75316e+03_rb,0.61137e+03_rb, &
+        & 0.74625e+03_rb,0.88901e+03_rb,0.10319e+04_rb,0.11747e+04_rb /)
+      kao(:, 4,11,13) = (/ &
+        & 0.11901e+04_rb,0.10395e+04_rb,0.89205e+03_rb,0.75483e+03_rb,0.60707e+03_rb, &
+        & 0.74529e+03_rb,0.88868e+03_rb,0.10313e+04_rb,0.11742e+04_rb /)
+      kao(:, 5,11,13) = (/ &
+        & 0.11740e+04_rb,0.10262e+04_rb,0.88782e+03_rb,0.74555e+03_rb,0.60321e+03_rb, &
+        & 0.74456e+03_rb,0.88735e+03_rb,0.10302e+04_rb,0.11727e+04_rb /)
+      kao(:, 1,12,13) = (/ &
+        & 0.11952e+04_rb,0.10387e+04_rb,0.90464e+03_rb,0.75031e+03_rb,0.60579e+03_rb, &
+        & 0.74809e+03_rb,0.88993e+03_rb,0.10330e+04_rb,0.11761e+04_rb /)
+      kao(:, 2,12,13) = (/ &
+        & 0.11767e+04_rb,0.10280e+04_rb,0.89305e+03_rb,0.74295e+03_rb,0.60520e+03_rb, &
+        & 0.74658e+03_rb,0.88930e+03_rb,0.10324e+04_rb,0.11754e+04_rb /)
+      kao(:, 3,12,13) = (/ &
+        & 0.11638e+04_rb,0.10252e+04_rb,0.88200e+03_rb,0.74209e+03_rb,0.60448e+03_rb, &
+        & 0.74580e+03_rb,0.88883e+03_rb,0.10318e+04_rb,0.11747e+04_rb /)
+      kao(:, 4,12,13) = (/ &
+        & 0.11608e+04_rb,0.10182e+04_rb,0.87717e+03_rb,0.73339e+03_rb,0.60384e+03_rb, &
+        & 0.74474e+03_rb,0.88834e+03_rb,0.10314e+04_rb,0.11742e+04_rb /)
+      kao(:, 5,12,13) = (/ &
+        & 0.11455e+04_rb,0.10085e+04_rb,0.86868e+03_rb,0.72782e+03_rb,0.60261e+03_rb, &
+        & 0.74417e+03_rb,0.88752e+03_rb,0.10299e+04_rb,0.11727e+04_rb /)
+      kao(:, 1,13,13) = (/ &
+        & 0.11538e+04_rb,0.10104e+04_rb,0.87836e+03_rb,0.74181e+03_rb,0.60545e+03_rb, &
+        & 0.74747e+03_rb,0.88975e+03_rb,0.10329e+04_rb,0.11763e+04_rb /)
+      kao(:, 2,13,13) = (/ &
+        & 0.11412e+04_rb,0.10013e+04_rb,0.88484e+03_rb,0.73153e+03_rb,0.60489e+03_rb, &
+        & 0.74629e+03_rb,0.88914e+03_rb,0.10323e+04_rb,0.11754e+04_rb /)
+      kao(:, 3,13,13) = (/ &
+        & 0.11370e+04_rb,0.10022e+04_rb,0.86246e+03_rb,0.73215e+03_rb,0.60419e+03_rb, &
+        & 0.74569e+03_rb,0.88867e+03_rb,0.10317e+04_rb,0.11747e+04_rb /)
+      kao(:, 4,13,13) = (/ &
+        & 0.11288e+04_rb,0.99109e+03_rb,0.86549e+03_rb,0.72280e+03_rb,0.60356e+03_rb, &
+        & 0.74480e+03_rb,0.88820e+03_rb,0.10312e+04_rb,0.11742e+04_rb /)
+      kao(:, 5,13,13) = (/ &
+        & 0.11445e+04_rb,0.99099e+03_rb,0.85129e+03_rb,0.71952e+03_rb,0.60234e+03_rb, &
+        & 0.74410e+03_rb,0.88705e+03_rb,0.10299e+04_rb,0.11727e+04_rb /)
+      kao(:, 1, 1,14) = (/ &
+        & 0.20185e+04_rb,0.18044e+04_rb,0.14758e+04_rb,0.13047e+04_rb,0.10029e+04_rb, &
+        & 0.77460e+03_rb,0.89226e+03_rb,0.10322e+04_rb,0.11721e+04_rb /)
+      kao(:, 2, 1,14) = (/ &
+        & 0.19173e+04_rb,0.17154e+04_rb,0.14467e+04_rb,0.12101e+04_rb,0.99594e+03_rb, &
+        & 0.75026e+03_rb,0.88974e+03_rb,0.10295e+04_rb,0.11713e+04_rb /)
+      kao(:, 3, 1,14) = (/ &
+        & 0.19468e+04_rb,0.16851e+04_rb,0.14136e+04_rb,0.12474e+04_rb,0.94959e+03_rb, &
+        & 0.74773e+03_rb,0.88696e+03_rb,0.10271e+04_rb,0.11663e+04_rb /)
+      kao(:, 4, 1,14) = (/ &
+        & 0.18423e+04_rb,0.16214e+04_rb,0.13991e+04_rb,0.11633e+04_rb,0.94698e+03_rb, &
+        & 0.74507e+03_rb,0.88457e+03_rb,0.10239e+04_rb,0.11632e+04_rb /)
+      kao(:, 5, 1,14) = (/ &
+        & 0.17538e+04_rb,0.16376e+04_rb,0.13645e+04_rb,0.11303e+04_rb,0.98877e+03_rb, &
+        & 0.74430e+03_rb,0.88372e+03_rb,0.10232e+04_rb,0.11626e+04_rb /)
+      kao(:, 1, 2,14) = (/ &
+        & 0.18551e+04_rb,0.16163e+04_rb,0.13640e+04_rb,0.12440e+04_rb,0.97095e+03_rb, &
+        & 0.75153e+03_rb,0.89202e+03_rb,0.10323e+04_rb,0.11731e+04_rb /)
+      kao(:, 2, 2,14) = (/ &
+        & 0.18136e+04_rb,0.16209e+04_rb,0.13887e+04_rb,0.11127e+04_rb,0.90845e+03_rb, &
+        & 0.74936e+03_rb,0.88974e+03_rb,0.10301e+04_rb,0.11702e+04_rb /)
+      kao(:, 3, 2,14) = (/ &
+        & 0.17918e+04_rb,0.15931e+04_rb,0.13282e+04_rb,0.11266e+04_rb,0.93052e+03_rb, &
+        & 0.74732e+03_rb,0.88725e+03_rb,0.10243e+04_rb,0.11672e+04_rb /)
+      kao(:, 4, 2,14) = (/ &
+        & 0.17507e+04_rb,0.14791e+04_rb,0.12865e+04_rb,0.10818e+04_rb,0.87901e+03_rb, &
+        & 0.74478e+03_rb,0.88467e+03_rb,0.10246e+04_rb,0.11645e+04_rb /)
+      kao(:, 5, 2,14) = (/ &
+        & 0.16872e+04_rb,0.14818e+04_rb,0.12871e+04_rb,0.10513e+04_rb,0.88744e+03_rb, &
+        & 0.74325e+03_rb,0.88337e+03_rb,0.10230e+04_rb,0.11625e+04_rb /)
+      kao(:, 1, 3,14) = (/ &
+        & 0.16919e+04_rb,0.15533e+04_rb,0.13337e+04_rb,0.10831e+04_rb,0.86308e+03_rb, &
+        & 0.75085e+03_rb,0.89217e+03_rb,0.10333e+04_rb,0.11744e+04_rb /)
+      kao(:, 2, 3,14) = (/ &
+        & 0.17034e+04_rb,0.15495e+04_rb,0.12643e+04_rb,0.11407e+04_rb,0.84365e+03_rb, &
+        & 0.74929e+03_rb,0.89025e+03_rb,0.10312e+04_rb,0.11722e+04_rb /)
+      kao(:, 3, 3,14) = (/ &
+        & 0.16844e+04_rb,0.14282e+04_rb,0.12585e+04_rb,0.10790e+04_rb,0.84114e+03_rb, &
+        & 0.74691e+03_rb,0.88785e+03_rb,0.10286e+04_rb,0.11700e+04_rb /)
+      kao(:, 4, 3,14) = (/ &
+        & 0.16791e+04_rb,0.14180e+04_rb,0.12209e+04_rb,0.10441e+04_rb,0.85899e+03_rb, &
+        & 0.74519e+03_rb,0.88544e+03_rb,0.10259e+04_rb,0.11667e+04_rb /)
+      kao(:, 5, 3,14) = (/ &
+        & 0.16063e+04_rb,0.13774e+04_rb,0.12181e+04_rb,0.10006e+04_rb,0.82020e+03_rb, &
+        & 0.74245e+03_rb,0.88287e+03_rb,0.10231e+04_rb,0.11633e+04_rb /)
+      kao(:, 1, 4,14) = (/ &
+        & 0.15960e+04_rb,0.13846e+04_rb,0.12078e+04_rb,0.10284e+04_rb,0.81079e+03_rb, &
+        & 0.75078e+03_rb,0.89233e+03_rb,0.10336e+04_rb,0.11751e+04_rb /)
+      kao(:, 2, 4,14) = (/ &
+        & 0.16237e+04_rb,0.13919e+04_rb,0.11906e+04_rb,0.10115e+04_rb,0.83009e+03_rb, &
+        & 0.74909e+03_rb,0.89076e+03_rb,0.10322e+04_rb,0.11737e+04_rb /)
+      kao(:, 3, 4,14) = (/ &
+        & 0.16136e+04_rb,0.13698e+04_rb,0.12046e+04_rb,0.98839e+03_rb,0.80997e+03_rb, &
+        & 0.74745e+03_rb,0.88871e+03_rb,0.10300e+04_rb,0.11712e+04_rb /)
+      kao(:, 4, 4,14) = (/ &
+        & 0.15739e+04_rb,0.13753e+04_rb,0.11394e+04_rb,0.97871e+03_rb,0.77029e+03_rb, &
+        & 0.74770e+03_rb,0.88627e+03_rb,0.10279e+04_rb,0.11682e+04_rb /)
+      kao(:, 5, 4,14) = (/ &
+        & 0.14863e+04_rb,0.13334e+04_rb,0.11445e+04_rb,0.95775e+03_rb,0.78998e+03_rb, &
+        & 0.74317e+03_rb,0.88387e+03_rb,0.10246e+04_rb,0.11653e+04_rb /)
+      kao(:, 1, 5,14) = (/ &
+        & 0.15101e+04_rb,0.14006e+04_rb,0.11513e+04_rb,0.96783e+03_rb,0.79581e+03_rb, &
+        & 0.75045e+03_rb,0.89239e+03_rb,0.10340e+04_rb,0.11759e+04_rb /)
+      kao(:, 2, 5,14) = (/ &
+        & 0.15461e+04_rb,0.13003e+04_rb,0.11685e+04_rb,0.92112e+03_rb,0.77517e+03_rb, &
+        & 0.74927e+03_rb,0.89114e+03_rb,0.10330e+04_rb,0.11749e+04_rb /)
+      kao(:, 3, 5,14) = (/ &
+        & 0.14676e+04_rb,0.12966e+04_rb,0.11042e+04_rb,0.93875e+03_rb,0.79645e+03_rb, &
+        & 0.74772e+03_rb,0.88943e+03_rb,0.10311e+04_rb,0.11729e+04_rb /)
+      kao(:, 4, 5,14) = (/ &
+        & 0.14571e+04_rb,0.12955e+04_rb,0.11734e+04_rb,0.89731e+03_rb,0.76986e+03_rb, &
+        & 0.74578e+03_rb,0.88723e+03_rb,0.10287e+04_rb,0.11702e+04_rb /)
+      kao(:, 5, 5,14) = (/ &
+        & 0.14311e+04_rb,0.13054e+04_rb,0.10738e+04_rb,0.10079e+04_rb,0.72704e+03_rb, &
+        & 0.74437e+03_rb,0.88461e+03_rb,0.10260e+04_rb,0.11675e+04_rb /)
+      kao(:, 1, 6,14) = (/ &
+        & 0.14715e+04_rb,0.12798e+04_rb,0.11182e+04_rb,0.92160e+03_rb,0.75379e+03_rb, &
+        & 0.75023e+03_rb,0.89251e+03_rb,0.10348e+04_rb,0.11771e+04_rb /)
+      kao(:, 2, 6,14) = (/ &
+        & 0.14479e+04_rb,0.12414e+04_rb,0.11222e+04_rb,0.91289e+03_rb,0.75013e+03_rb, &
+        & 0.74921e+03_rb,0.89141e+03_rb,0.10336e+04_rb,0.11758e+04_rb /)
+      kao(:, 3, 6,14) = (/ &
+        & 0.14270e+04_rb,0.12651e+04_rb,0.10793e+04_rb,0.91215e+03_rb,0.74649e+03_rb, &
+        & 0.74796e+03_rb,0.89005e+03_rb,0.10321e+04_rb,0.11739e+04_rb /)
+      kao(:, 4, 6,14) = (/ &
+        & 0.14058e+04_rb,0.12702e+04_rb,0.11005e+04_rb,0.93809e+03_rb,0.69854e+03_rb, &
+        & 0.74632e+03_rb,0.88820e+03_rb,0.10301e+04_rb,0.11720e+04_rb /)
+      kao(:, 5, 6,14) = (/ &
+        & 0.14048e+04_rb,0.12100e+04_rb,0.10413e+04_rb,0.84934e+03_rb,0.69794e+03_rb, &
+        & 0.74429e+03_rb,0.88588e+03_rb,0.10284e+04_rb,0.11701e+04_rb /)
+      kao(:, 1, 7,14) = (/ &
+        & 0.14325e+04_rb,0.12413e+04_rb,0.10595e+04_rb,0.88906e+03_rb,0.71717e+03_rb, &
+        & 0.75037e+03_rb,0.89273e+03_rb,0.10353e+04_rb,0.11779e+04_rb /)
+      kao(:, 2, 7,14) = (/ &
+        & 0.13620e+04_rb,0.12089e+04_rb,0.10598e+04_rb,0.89550e+03_rb,0.73134e+03_rb, &
+        & 0.74911e+03_rb,0.89161e+03_rb,0.10341e+04_rb,0.11766e+04_rb /)
+      kao(:, 3, 7,14) = (/ &
+        & 0.13346e+04_rb,0.12111e+04_rb,0.10262e+04_rb,0.84775e+03_rb,0.68161e+03_rb, &
+        & 0.74811e+03_rb,0.89050e+03_rb,0.10329e+04_rb,0.11753e+04_rb /)
+      kao(:, 4, 7,14) = (/ &
+        & 0.13132e+04_rb,0.11998e+04_rb,0.99757e+03_rb,0.86083e+03_rb,0.70251e+03_rb, &
+        & 0.74653e+03_rb,0.88899e+03_rb,0.10312e+04_rb,0.11735e+04_rb /)
+      kao(:, 5, 7,14) = (/ &
+        & 0.13232e+04_rb,0.11634e+04_rb,0.10230e+04_rb,0.84353e+03_rb,0.68339e+03_rb, &
+        & 0.74500e+03_rb,0.88698e+03_rb,0.10287e+04_rb,0.11709e+04_rb /)
+      kao(:, 1, 8,14) = (/ &
+        & 0.13366e+04_rb,0.11630e+04_rb,0.10188e+04_rb,0.86405e+03_rb,0.71800e+03_rb, &
+        & 0.75008e+03_rb,0.89285e+03_rb,0.10357e+04_rb,0.11785e+04_rb /)
+      kao(:, 2, 8,14) = (/ &
+        & 0.13647e+04_rb,0.11518e+04_rb,0.10110e+04_rb,0.84719e+03_rb,0.67819e+03_rb, &
+        & 0.74911e+03_rb,0.89187e+03_rb,0.10343e+04_rb,0.11777e+04_rb /)
+      kao(:, 3, 8,14) = (/ &
+        & 0.13128e+04_rb,0.11472e+04_rb,0.99038e+03_rb,0.82656e+03_rb,0.66483e+03_rb, &
+        & 0.74815e+03_rb,0.89080e+03_rb,0.10335e+04_rb,0.11761e+04_rb /)
+      kao(:, 4, 8,14) = (/ &
+        & 0.12817e+04_rb,0.11127e+04_rb,0.10092e+04_rb,0.82047e+03_rb,0.65442e+03_rb, &
+        & 0.74685e+03_rb,0.88933e+03_rb,0.10318e+04_rb,0.11746e+04_rb /)
+      kao(:, 5, 8,14) = (/ &
+        & 0.13162e+04_rb,0.11356e+04_rb,0.98305e+03_rb,0.84668e+03_rb,0.66544e+03_rb, &
+        & 0.74558e+03_rb,0.88790e+03_rb,0.10302e+04_rb,0.11725e+04_rb /)
+      kao(:, 1, 9,14) = (/ &
+        & 0.13174e+04_rb,0.11399e+04_rb,0.97696e+03_rb,0.84117e+03_rb,0.66145e+03_rb, &
+        & 0.75011e+03_rb,0.89307e+03_rb,0.10362e+04_rb,0.11789e+04_rb /)
+      kao(:, 2, 9,14) = (/ &
+        & 0.13196e+04_rb,0.11310e+04_rb,0.99094e+03_rb,0.80674e+03_rb,0.67265e+03_rb, &
+        & 0.74915e+03_rb,0.89213e+03_rb,0.10351e+04_rb,0.11781e+04_rb /)
+      kao(:, 3, 9,14) = (/ &
+        & 0.12950e+04_rb,0.10983e+04_rb,0.10229e+04_rb,0.86051e+03_rb,0.66007e+03_rb, &
+        & 0.74819e+03_rb,0.89107e+03_rb,0.10339e+04_rb,0.11768e+04_rb /)
+      kao(:, 4, 9,14) = (/ &
+        & 0.12605e+04_rb,0.10785e+04_rb,0.10061e+04_rb,0.79531e+03_rb,0.63414e+03_rb, &
+        & 0.74728e+03_rb,0.89004e+03_rb,0.10328e+04_rb,0.11756e+04_rb /)
+      kao(:, 5, 9,14) = (/ &
+        & 0.12553e+04_rb,0.10628e+04_rb,0.94908e+03_rb,0.82074e+03_rb,0.64983e+03_rb, &
+        & 0.74606e+03_rb,0.88866e+03_rb,0.10313e+04_rb,0.11739e+04_rb /)
+      kao(:, 1,10,14) = (/ &
+        & 0.13413e+04_rb,0.11632e+04_rb,0.10048e+04_rb,0.80476e+03_rb,0.65189e+03_rb, &
+        & 0.75022e+03_rb,0.89354e+03_rb,0.10369e+04_rb,0.11806e+04_rb /)
+      kao(:, 2,10,14) = (/ &
+        & 0.12838e+04_rb,0.11017e+04_rb,0.10173e+04_rb,0.85213e+03_rb,0.64367e+03_rb, &
+        & 0.74909e+03_rb,0.89223e+03_rb,0.10354e+04_rb,0.11786e+04_rb /)
+      kao(:, 3,10,14) = (/ &
+        & 0.12657e+04_rb,0.11229e+04_rb,0.92134e+03_rb,0.80214e+03_rb,0.64195e+03_rb, &
+        & 0.74870e+03_rb,0.89159e+03_rb,0.10344e+04_rb,0.11778e+04_rb /)
+      kao(:, 4,10,14) = (/ &
+        & 0.12310e+04_rb,0.10594e+04_rb,0.92792e+03_rb,0.78251e+03_rb,0.62401e+03_rb, &
+        & 0.74734e+03_rb,0.89003e+03_rb,0.10332e+04_rb,0.11762e+04_rb /)
+      kao(:, 5,10,14) = (/ &
+        & 0.12088e+04_rb,0.10663e+04_rb,0.92275e+03_rb,0.77707e+03_rb,0.64354e+03_rb, &
+        & 0.74634e+03_rb,0.88914e+03_rb,0.10320e+04_rb,0.11748e+04_rb /)
+      kao(:, 1,11,14) = (/ &
+        & 0.12205e+04_rb,0.10982e+04_rb,0.93349e+03_rb,0.79899e+03_rb,0.64961e+03_rb, &
+        & 0.74981e+03_rb,0.89329e+03_rb,0.10368e+04_rb,0.11803e+04_rb /)
+      kao(:, 2,11,14) = (/ &
+        & 0.12266e+04_rb,0.10977e+04_rb,0.90836e+03_rb,0.76723e+03_rb,0.61851e+03_rb, &
+        & 0.74871e+03_rb,0.89199e+03_rb,0.10353e+04_rb,0.11786e+04_rb /)
+      kao(:, 3,11,14) = (/ &
+        & 0.11876e+04_rb,0.10750e+04_rb,0.92258e+03_rb,0.76849e+03_rb,0.61349e+03_rb, &
+        & 0.74902e+03_rb,0.89163e+03_rb,0.10343e+04_rb,0.11775e+04_rb /)
+      kao(:, 4,11,14) = (/ &
+        & 0.12363e+04_rb,0.10327e+04_rb,0.91965e+03_rb,0.74736e+03_rb,0.60206e+03_rb, &
+        & 0.74703e+03_rb,0.88982e+03_rb,0.10331e+04_rb,0.11762e+04_rb /)
+      kao(:, 5,11,14) = (/ &
+        & 0.11827e+04_rb,0.10266e+04_rb,0.89018e+03_rb,0.76668e+03_rb,0.60360e+03_rb, &
+        & 0.74604e+03_rb,0.88895e+03_rb,0.10316e+04_rb,0.11748e+04_rb /)
+      kao(:, 1,12,14) = (/ &
+        & 0.11808e+04_rb,0.10792e+04_rb,0.88334e+03_rb,0.76947e+03_rb,0.60663e+03_rb, &
+        & 0.74904e+03_rb,0.89307e+03_rb,0.10367e+04_rb,0.11803e+04_rb /)
+      kao(:, 2,12,14) = (/ &
+        & 0.12120e+04_rb,0.10402e+04_rb,0.92096e+03_rb,0.78880e+03_rb,0.60609e+03_rb, &
+        & 0.74841e+03_rb,0.89179e+03_rb,0.10352e+04_rb,0.11786e+04_rb /)
+      kao(:, 3,12,14) = (/ &
+        & 0.12016e+04_rb,0.10899e+04_rb,0.90018e+03_rb,0.73017e+03_rb,0.60527e+03_rb, &
+        & 0.75028e+03_rb,0.89119e+03_rb,0.10342e+04_rb,0.11778e+04_rb /)
+      kao(:, 4,12,14) = (/ &
+        & 0.11901e+04_rb,0.10101e+04_rb,0.88929e+03_rb,0.75342e+03_rb,0.60426e+03_rb, &
+        & 0.74677e+03_rb,0.88991e+03_rb,0.10327e+04_rb,0.11762e+04_rb /)
+      kao(:, 5,12,14) = (/ &
+        & 0.12404e+04_rb,0.10285e+04_rb,0.87283e+03_rb,0.77029e+03_rb,0.60316e+03_rb, &
+        & 0.74579e+03_rb,0.88852e+03_rb,0.10318e+04_rb,0.11748e+04_rb /)
+      kao(:, 1,13,14) = (/ &
+        & 0.11819e+04_rb,0.10465e+04_rb,0.87588e+03_rb,0.72550e+03_rb,0.60649e+03_rb, &
+        & 0.74922e+03_rb,0.89289e+03_rb,0.10366e+04_rb,0.11799e+04_rb /)
+      kao(:, 2,13,14) = (/ &
+        & 0.11759e+04_rb,0.10245e+04_rb,0.86816e+03_rb,0.77411e+03_rb,0.60565e+03_rb, &
+        & 0.74816e+03_rb,0.89163e+03_rb,0.10351e+04_rb,0.11786e+04_rb /)
+      kao(:, 3,13,14) = (/ &
+        & 0.11354e+04_rb,0.10124e+04_rb,0.96299e+03_rb,0.72358e+03_rb,0.60486e+03_rb, &
+        & 0.74851e+03_rb,0.89156e+03_rb,0.10341e+04_rb,0.11778e+04_rb /)
+      kao(:, 4,13,14) = (/ &
+        & 0.11811e+04_rb,0.10736e+04_rb,0.85638e+03_rb,0.74549e+03_rb,0.60366e+03_rb, &
+        & 0.74655e+03_rb,0.88977e+03_rb,0.10330e+04_rb,0.11762e+04_rb /)
+      kao(:, 5,13,14) = (/ &
+        & 0.11332e+04_rb,0.99282e+03_rb,0.87259e+03_rb,0.77082e+03_rb,0.60280e+03_rb, &
+        & 0.74559e+03_rb,0.88865e+03_rb,0.10317e+04_rb,0.11748e+04_rb /)
+      kao(:, 1, 1,15) = (/ &
+        & 0.19847e+04_rb,0.16615e+04_rb,0.16299e+04_rb,0.11466e+04_rb,0.10123e+04_rb, &
+        & 0.72871e+03_rb,0.89405e+03_rb,0.10334e+04_rb,0.11734e+04_rb /)
+      kao(:, 2, 1,15) = (/ &
+        & 0.18867e+04_rb,0.16470e+04_rb,0.14051e+04_rb,0.12848e+04_rb,0.91870e+03_rb, &
+        & 0.75104e+03_rb,0.89013e+03_rb,0.10307e+04_rb,0.11650e+04_rb /)
+      kao(:, 3, 1,15) = (/ &
+        & 0.17405e+04_rb,0.16240e+04_rb,0.14364e+04_rb,0.10773e+04_rb,0.10008e+04_rb, &
+        & 0.74790e+03_rb,0.89023e+03_rb,0.10382e+04_rb,0.11720e+04_rb /)
+      kao(:, 4, 1,15) = (/ &
+        & 0.19099e+04_rb,0.16930e+04_rb,0.14454e+04_rb,0.12410e+04_rb,0.95925e+03_rb, &
+        & 0.74605e+03_rb,0.88544e+03_rb,0.10248e+04_rb,0.11651e+04_rb /)
+      kao(:, 5, 1,15) = (/ &
+        & 0.19738e+04_rb,0.13892e+04_rb,0.14377e+04_rb,0.12129e+04_rb,0.77083e+03_rb, &
+        & 0.74496e+03_rb,0.88458e+03_rb,0.10242e+04_rb,0.11638e+04_rb /)
+      kao(:, 1, 2,15) = (/ &
+        & 0.18788e+04_rb,0.15414e+04_rb,0.14391e+04_rb,0.94831e+03_rb,0.88384e+03_rb, &
+        & 0.75320e+03_rb,0.89399e+03_rb,0.10340e+04_rb,0.11746e+04_rb /)
+      kao(:, 2, 2,15) = (/ &
+        & 0.16660e+04_rb,0.14507e+04_rb,0.12145e+04_rb,0.11753e+04_rb,0.91977e+03_rb, &
+        & 0.75003e+03_rb,0.89113e+03_rb,0.10308e+04_rb,0.11712e+04_rb /)
+      kao(:, 3, 2,15) = (/ &
+        & 0.15746e+04_rb,0.14551e+04_rb,0.13375e+04_rb,0.10698e+04_rb,0.76931e+03_rb, &
+        & 0.74657e+03_rb,0.88729e+03_rb,0.10267e+04_rb,0.11695e+04_rb /)
+      kao(:, 4, 2,15) = (/ &
+        & 0.16772e+04_rb,0.16415e+04_rb,0.13391e+04_rb,0.10287e+04_rb,0.88207e+03_rb, &
+        & 0.74593e+03_rb,0.88530e+03_rb,0.10252e+04_rb,0.11661e+04_rb /)
+      kao(:, 5, 2,15) = (/ &
+        & 0.16581e+04_rb,0.15452e+04_rb,0.12479e+04_rb,0.10067e+04_rb,0.83698e+03_rb, &
+        & 0.74419e+03_rb,0.88279e+03_rb,0.10234e+04_rb,0.11634e+04_rb /)
+      kao(:, 1, 3,15) = (/ &
+        & 0.17888e+04_rb,0.13395e+04_rb,0.12224e+04_rb,0.11479e+04_rb,0.91734e+03_rb, &
+        & 0.75291e+03_rb,0.89358e+03_rb,0.10348e+04_rb,0.11761e+04_rb /)
+      kao(:, 2, 3,15) = (/ &
+        & 0.16146e+04_rb,0.11805e+04_rb,0.12709e+04_rb,0.85911e+03_rb,0.90210e+03_rb, &
+        & 0.75028e+03_rb,0.89203e+03_rb,0.10324e+04_rb,0.11734e+04_rb /)
+      kao(:, 3, 3,15) = (/ &
+        & 0.14717e+04_rb,0.15353e+04_rb,0.12224e+04_rb,0.96001e+03_rb,0.77554e+03_rb, &
+        & 0.74753e+03_rb,0.88823e+03_rb,0.10297e+04_rb,0.11678e+04_rb /)
+      kao(:, 4, 3,15) = (/ &
+        & 0.15479e+04_rb,0.14535e+04_rb,0.11756e+04_rb,0.99609e+03_rb,0.71892e+03_rb, &
+        & 0.74634e+03_rb,0.88703e+03_rb,0.10366e+04_rb,0.11684e+04_rb /)
+      kao(:, 5, 3,15) = (/ &
+        & 0.15155e+04_rb,0.14515e+04_rb,0.11733e+04_rb,0.10638e+04_rb,0.80510e+03_rb, &
+        & 0.74461e+03_rb,0.88580e+03_rb,0.10240e+04_rb,0.11652e+04_rb /)
+      kao(:, 1, 4,15) = (/ &
+        & 0.15848e+04_rb,0.14083e+04_rb,0.12006e+04_rb,0.10439e+04_rb,0.81336e+03_rb, &
+        & 0.75201e+03_rb,0.89444e+03_rb,0.10363e+04_rb,0.11781e+04_rb /)
+      kao(:, 2, 4,15) = (/ &
+        & 0.13736e+04_rb,0.13760e+04_rb,0.12165e+04_rb,0.94289e+03_rb,0.75006e+03_rb, &
+        & 0.75167e+03_rb,0.89210e+03_rb,0.10337e+04_rb,0.11753e+04_rb /)
+      kao(:, 3, 4,15) = (/ &
+        & 0.14353e+04_rb,0.13702e+04_rb,0.10217e+04_rb,0.10119e+04_rb,0.72585e+03_rb, &
+        & 0.74883e+03_rb,0.88956e+03_rb,0.10325e+04_rb,0.11731e+04_rb /)
+      kao(:, 4, 4,15) = (/ &
+        & 0.14295e+04_rb,0.12548e+04_rb,0.12198e+04_rb,0.96945e+03_rb,0.84557e+03_rb, &
+        & 0.73846e+03_rb,0.88641e+03_rb,0.10258e+04_rb,0.11703e+04_rb /)
+      kao(:, 5, 4,15) = (/ &
+        & 0.15742e+04_rb,0.13268e+04_rb,0.10395e+04_rb,0.90301e+03_rb,0.67604e+03_rb, &
+        & 0.74473e+03_rb,0.88569e+03_rb,0.10266e+04_rb,0.11676e+04_rb /)
+      kao(:, 1, 5,15) = (/ &
+        & 0.15038e+04_rb,0.11787e+04_rb,0.11191e+04_rb,0.96573e+03_rb,0.74364e+03_rb, &
+        & 0.75161e+03_rb,0.89373e+03_rb,0.10358e+04_rb,0.11780e+04_rb /)
+      kao(:, 2, 5,15) = (/ &
+        & 0.12972e+04_rb,0.14157e+04_rb,0.10073e+04_rb,0.10120e+04_rb,0.78829e+03_rb, &
+        & 0.75051e+03_rb,0.89254e+03_rb,0.10346e+04_rb,0.11785e+04_rb /)
+      kao(:, 3, 5,15) = (/ &
+        & 0.15562e+04_rb,0.12980e+04_rb,0.11053e+04_rb,0.96784e+03_rb,0.68156e+03_rb, &
+        & 0.74938e+03_rb,0.89063e+03_rb,0.10325e+04_rb,0.11743e+04_rb /)
+      kao(:, 4, 5,15) = (/ &
+        & 0.15203e+04_rb,0.12953e+04_rb,0.96757e+03_rb,0.95061e+03_rb,0.68480e+03_rb, &
+        & 0.74750e+03_rb,0.88780e+03_rb,0.10293e+04_rb,0.11708e+04_rb /)
+      kao(:, 5, 5,15) = (/ &
+        & 0.14730e+04_rb,0.11456e+04_rb,0.11151e+04_rb,0.68408e+03_rb,0.76176e+03_rb, &
+        & 0.75307e+03_rb,0.89322e+03_rb,0.10317e+04_rb,0.11682e+04_rb /)
+      kao(:, 1, 6,15) = (/ &
+        & 0.15240e+04_rb,0.12794e+04_rb,0.10826e+04_rb,0.93131e+03_rb,0.69525e+03_rb, &
+        & 0.75122e+03_rb,0.89364e+03_rb,0.10361e+04_rb,0.11785e+04_rb /)
+      kao(:, 2, 6,15) = (/ &
+        & 0.13735e+04_rb,0.12837e+04_rb,0.10725e+04_rb,0.91616e+03_rb,0.69548e+03_rb, &
+        & 0.75041e+03_rb,0.89279e+03_rb,0.10360e+04_rb,0.11776e+04_rb /)
+      kao(:, 3, 6,15) = (/ &
+        & 0.14287e+04_rb,0.11366e+04_rb,0.10240e+04_rb,0.87529e+03_rb,0.70795e+03_rb, &
+        & 0.75034e+03_rb,0.89142e+03_rb,0.10337e+04_rb,0.11759e+04_rb /)
+      kao(:, 4, 6,15) = (/ &
+        & 0.12768e+04_rb,0.11078e+04_rb,0.98805e+03_rb,0.76254e+03_rb,0.77383e+03_rb, &
+        & 0.74782e+03_rb,0.88921e+03_rb,0.10312e+04_rb,0.11732e+04_rb /)
+      kao(:, 5, 6,15) = (/ &
+        & 0.13045e+04_rb,0.12087e+04_rb,0.10585e+04_rb,0.89185e+03_rb,0.69378e+03_rb, &
+        & 0.74461e+03_rb,0.88618e+03_rb,0.10253e+04_rb,0.11684e+04_rb /)
+      kao(:, 1, 7,15) = (/ &
+        & 0.13068e+04_rb,0.11778e+04_rb,0.10485e+04_rb,0.87245e+03_rb,0.70237e+03_rb, &
+        & 0.75029e+03_rb,0.89358e+03_rb,0.10363e+04_rb,0.11790e+04_rb /)
+      kao(:, 2, 7,15) = (/ &
+        & 0.13988e+04_rb,0.11525e+04_rb,0.98924e+03_rb,0.83779e+03_rb,0.64617e+03_rb, &
+        & 0.75022e+03_rb,0.89357e+03_rb,0.10355e+04_rb,0.11782e+04_rb /)
+      kao(:, 3, 7,15) = (/ &
+        & 0.14294e+04_rb,0.11695e+04_rb,0.10182e+04_rb,0.91196e+03_rb,0.69696e+03_rb, &
+        & 0.74932e+03_rb,0.89330e+03_rb,0.10353e+04_rb,0.11780e+04_rb /)
+      kao(:, 4, 7,15) = (/ &
+        & 0.14082e+04_rb,0.10640e+04_rb,0.10540e+04_rb,0.79295e+03_rb,0.62688e+03_rb, &
+        & 0.74789e+03_rb,0.89097e+03_rb,0.10327e+04_rb,0.11750e+04_rb /)
+      kao(:, 5, 7,15) = (/ &
+        & 0.13514e+04_rb,0.12038e+04_rb,0.10012e+04_rb,0.83544e+03_rb,0.67927e+03_rb, &
+        & 0.74629e+03_rb,0.88843e+03_rb,0.10298e+04_rb,0.11718e+04_rb /)
+      kao(:, 1, 8,15) = (/ &
+        & 0.14761e+04_rb,0.12412e+04_rb,0.10429e+04_rb,0.84370e+03_rb,0.62388e+03_rb, &
+        & 0.75133e+03_rb,0.89371e+03_rb,0.10367e+04_rb,0.11796e+04_rb /)
+      kao(:, 2, 8,15) = (/ &
+        & 0.12119e+04_rb,0.11409e+04_rb,0.10121e+04_rb,0.85755e+03_rb,0.70976e+03_rb, &
+        & 0.74998e+03_rb,0.89216e+03_rb,0.10357e+04_rb,0.11786e+04_rb /)
+      kao(:, 3, 8,15) = (/ &
+        & 0.12581e+04_rb,0.11663e+04_rb,0.10198e+04_rb,0.88649e+03_rb,0.69509e+03_rb, &
+        & 0.74932e+03_rb,0.89355e+03_rb,0.10350e+04_rb,0.11787e+04_rb /)
+      kao(:, 4, 8,15) = (/ &
+        & 0.12478e+04_rb,0.12066e+04_rb,0.87201e+03_rb,0.84155e+03_rb,0.70223e+03_rb, &
+        & 0.74886e+03_rb,0.89098e+03_rb,0.10337e+04_rb,0.11764e+04_rb /)
+      kao(:, 5, 8,15) = (/ &
+        & 0.12322e+04_rb,0.11048e+04_rb,0.93070e+03_rb,0.68296e+03_rb,0.66022e+03_rb, &
+        & 0.74776e+03_rb,0.88972e+03_rb,0.10315e+04_rb,0.11748e+04_rb /)
+      kao(:, 1, 9,15) = (/ &
+        & 0.13164e+04_rb,0.12093e+04_rb,0.10729e+04_rb,0.80022e+03_rb,0.68605e+03_rb, &
+        & 0.75075e+03_rb,0.89396e+03_rb,0.10372e+04_rb,0.11804e+04_rb /)
+      kao(:, 2, 9,15) = (/ &
+        & 0.12738e+04_rb,0.11851e+04_rb,0.88381e+03_rb,0.85846e+03_rb,0.65813e+03_rb, &
+        & 0.74985e+03_rb,0.89295e+03_rb,0.10369e+04_rb,0.11792e+04_rb /)
+      kao(:, 3, 9,15) = (/ &
+        & 0.12657e+04_rb,0.12031e+04_rb,0.79849e+03_rb,0.64636e+03_rb,0.60824e+03_rb, &
+        & 0.74924e+03_rb,0.89227e+03_rb,0.10353e+04_rb,0.11783e+04_rb /)
+      kao(:, 4, 9,15) = (/ &
+        & 0.12866e+04_rb,0.11531e+04_rb,0.85958e+03_rb,0.76890e+03_rb,0.66204e+03_rb, &
+        & 0.74965e+03_rb,0.89143e+03_rb,0.10344e+04_rb,0.11773e+04_rb /)
+      kao(:, 5, 9,15) = (/ &
+        & 0.11604e+04_rb,0.11730e+04_rb,0.87009e+03_rb,0.73148e+03_rb,0.58106e+03_rb, &
+        & 0.74723e+03_rb,0.88998e+03_rb,0.10327e+04_rb,0.11755e+04_rb /)
+      kao(:, 1,10,15) = (/ &
+        & 0.11188e+04_rb,0.99215e+03_rb,0.73460e+03_rb,0.83046e+03_rb,0.68844e+03_rb, &
+        & 0.75085e+03_rb,0.89429e+03_rb,0.10377e+04_rb,0.11803e+04_rb /)
+      kao(:, 2,10,15) = (/ &
+        & 0.12059e+04_rb,0.10804e+04_rb,0.70761e+03_rb,0.65712e+03_rb,0.66535e+03_rb, &
+        & 0.74980e+03_rb,0.89311e+03_rb,0.10364e+04_rb,0.11807e+04_rb /)
+      kao(:, 3,10,15) = (/ &
+        & 0.11817e+04_rb,0.10195e+04_rb,0.95365e+03_rb,0.71601e+03_rb,0.59959e+03_rb, &
+        & 0.74791e+03_rb,0.89228e+03_rb,0.10355e+04_rb,0.11778e+04_rb /)
+      kao(:, 4,10,15) = (/ &
+        & 0.11350e+04_rb,0.11533e+04_rb,0.91058e+03_rb,0.81845e+03_rb,0.64874e+03_rb, &
+        & 0.74908e+03_rb,0.89233e+03_rb,0.10356e+04_rb,0.11779e+04_rb /)
+      kao(:, 5,10,15) = (/ &
+        & 0.12000e+04_rb,0.10896e+04_rb,0.93671e+03_rb,0.81314e+03_rb,0.60750e+03_rb, &
+        & 0.74754e+03_rb,0.89053e+03_rb,0.10335e+04_rb,0.11765e+04_rb /)
+      kao(:, 1,11,15) = (/ &
+        & 0.12887e+04_rb,0.10795e+04_rb,0.92507e+03_rb,0.76020e+03_rb,0.61621e+03_rb, &
+        & 0.75046e+03_rb,0.89404e+03_rb,0.10376e+04_rb,0.11812e+04_rb /)
+      kao(:, 2,11,15) = (/ &
+        & 0.11864e+04_rb,0.99352e+03_rb,0.96688e+03_rb,0.81999e+03_rb,0.65449e+03_rb, &
+        & 0.74944e+03_rb,0.89287e+03_rb,0.10363e+04_rb,0.11797e+04_rb /)
+      kao(:, 3,11,15) = (/ &
+        & 0.11946e+04_rb,0.10069e+04_rb,0.91904e+03_rb,0.81170e+03_rb,0.65606e+03_rb, &
+        & 0.74582e+03_rb,0.89066e+03_rb,0.10354e+04_rb,0.11787e+04_rb /)
+      kao(:, 4,11,15) = (/ &
+        & 0.10269e+04_rb,0.10463e+04_rb,0.82697e+03_rb,0.81731e+03_rb,0.61185e+03_rb, &
+        & 0.74876e+03_rb,0.89142e+03_rb,0.10347e+04_rb,0.11779e+04_rb /)
+      kao(:, 5,11,15) = (/ &
+        & 0.11483e+04_rb,0.10490e+04_rb,0.91718e+03_rb,0.72295e+03_rb,0.60510e+03_rb, &
+        & 0.74783e+03_rb,0.89173e+03_rb,0.10334e+04_rb,0.11765e+04_rb /)
+      kao(:, 1,12,15) = (/ &
+        & 0.12157e+04_rb,0.94948e+03_rb,0.89441e+03_rb,0.76380e+03_rb,0.60866e+03_rb, &
+        & 0.75013e+03_rb,0.89382e+03_rb,0.10375e+04_rb,0.11812e+04_rb /)
+      kao(:, 2,12,15) = (/ &
+        & 0.10470e+04_rb,0.10059e+04_rb,0.83704e+03_rb,0.70161e+03_rb,0.60721e+03_rb, &
+        & 0.74914e+03_rb,0.89267e+03_rb,0.10370e+04_rb,0.11807e+04_rb /)
+      kao(:, 3,12,15) = (/ &
+        & 0.10541e+04_rb,0.86865e+03_rb,0.86614e+03_rb,0.79420e+03_rb,0.60576e+03_rb, &
+        & 0.74144e+03_rb,0.89117e+03_rb,0.10353e+04_rb,0.11778e+04_rb /)
+      kao(:, 4,12,15) = (/ &
+        & 0.11152e+04_rb,0.10946e+04_rb,0.91200e+03_rb,0.75719e+03_rb,0.60459e+03_rb, &
+        & 0.74791e+03_rb,0.89124e+03_rb,0.10346e+04_rb,0.11788e+04_rb /)
+      kao(:, 5,12,15) = (/ &
+        & 0.10232e+04_rb,0.97767e+03_rb,0.95862e+03_rb,0.62268e+03_rb,0.60382e+03_rb, &
+        & 0.74758e+03_rb,0.88947e+03_rb,0.10333e+04_rb,0.11765e+04_rb /)
+      kao(:, 1,13,15) = (/ &
+        & 0.11027e+04_rb,0.93786e+03_rb,0.84040e+03_rb,0.77686e+03_rb,0.60858e+03_rb, &
+        & 0.74987e+03_rb,0.89364e+03_rb,0.10374e+04_rb,0.11812e+04_rb /)
+      kao(:, 2,13,15) = (/ &
+        & 0.10816e+04_rb,0.10747e+04_rb,0.88690e+03_rb,0.66213e+03_rb,0.60670e+03_rb, &
+        & 0.74889e+03_rb,0.89251e+03_rb,0.10369e+04_rb,0.11797e+04_rb /)
+      kao(:, 3,13,15) = (/ &
+        & 0.11963e+04_rb,0.98701e+03_rb,0.69767e+03_rb,0.73646e+03_rb,0.60528e+03_rb, &
+        & 0.74531e+03_rb,0.88962e+03_rb,0.10352e+04_rb,0.11778e+04_rb /)
+      kao(:, 4,13,15) = (/ &
+        & 0.10530e+04_rb,0.78530e+03_rb,0.91477e+03_rb,0.71026e+03_rb,0.60430e+03_rb, &
+        & 0.74770e+03_rb,0.89110e+03_rb,0.10345e+04_rb,0.11779e+04_rb /)
+      kao(:, 5,13,15) = (/ &
+        & 0.11409e+04_rb,0.10574e+04_rb,0.83207e+03_rb,0.61034e+03_rb,0.60355e+03_rb, &
+        & 0.74679e+03_rb,0.89073e+03_rb,0.10333e+04_rb,0.11765e+04_rb /)
+      kao(:, 1, 1,16) = (/ &
+        & 0.34848e+03_rb,0.49670e+03_rb,0.29569e+03_rb,0.31627e+03_rb,0.46514e+03_rb, &
+        & 0.42834e+03_rb,0.88848e+03_rb,0.10335e+04_rb,0.11735e+04_rb /)
+      kao(:, 2, 1,16) = (/ &
+        & 0.18044e+04_rb,0.87518e+03_rb,0.11930e+04_rb,0.45580e+03_rb,0.83690e+03_rb, &
+        & 0.74631e+03_rb,0.89022e+03_rb,0.10242e+04_rb,0.11632e+04_rb /)
+      kao(:, 3, 1,16) = (/ &
+        & 0.11196e+04_rb,0.73658e+03_rb,0.10480e+04_rb,0.53695e+03_rb,0.39566e+03_rb, &
+        & 0.74377e+03_rb,0.86775e+03_rb,0.94144e+03_rb,0.11277e+04_rb /)
+      kao(:, 4, 1,16) = (/ &
+        & 0.72013e+03_rb,0.40040e+03_rb,0.39030e+03_rb,0.31401e+03_rb,0.31498e+03_rb, &
+        & 0.74613e+03_rb,0.88553e+03_rb,0.10249e+04_rb,0.11579e+04_rb /)
+      kao(:, 5, 1,16) = (/ &
+        & 0.34789e+03_rb,0.14911e+04_rb,0.33003e+03_rb,0.29522e+03_rb,0.31385e+03_rb, &
+        & 0.74516e+03_rb,0.88480e+03_rb,0.10244e+04_rb,0.11641e+04_rb /)
+      kao(:, 1, 2,16) = (/ &
+        & 0.41247e+03_rb,0.81197e+03_rb,0.68322e+03_rb,0.50855e+03_rb,0.24076e+03_rb, &
+        & 0.74851e+03_rb,0.88842e+03_rb,0.10341e+04_rb,0.11748e+04_rb /)
+      kao(:, 2, 2,16) = (/ &
+        & 0.16209e+04_rb,0.56884e+03_rb,0.94156e+03_rb,0.29182e+03_rb,0.46039e+03_rb, &
+        & 0.75011e+03_rb,0.88557e+03_rb,0.10309e+04_rb,0.11714e+04_rb /)
+      kao(:, 3, 2,16) = (/ &
+        & 0.11534e+04_rb,0.51443e+03_rb,0.23941e+03_rb,0.44358e+03_rb,0.58779e+03_rb, &
+        & 0.74720e+03_rb,0.88237e+03_rb,0.10275e+04_rb,0.11547e+04_rb /)
+      kao(:, 4, 2,16) = (/ &
+        & 0.78193e+03_rb,0.30585e+03_rb,0.42670e+03_rb,0.10365e+04_rb,0.43225e+03_rb, &
+        & 0.74126e+03_rb,0.88535e+03_rb,0.10253e+04_rb,0.11588e+04_rb /)
+      kao(:, 5, 2,16) = (/ &
+        & 0.67509e+03_rb,0.40574e+03_rb,0.57252e+03_rb,0.10353e+04_rb,0.15564e+03_rb, &
+        & 0.73954e+03_rb,0.88360e+03_rb,0.10236e+04_rb,0.11636e+04_rb /)
+      kao(:, 1, 3,16) = (/ &
+        & 0.91257e+03_rb,0.11144e+04_rb,0.54685e+03_rb,0.19037e+03_rb,0.25900e+03_rb, &
+        & 0.74823e+03_rb,0.89369e+03_rb,0.10350e+04_rb,0.11762e+04_rb /)
+      kao(:, 2, 3,16) = (/ &
+        & 0.67162e+03_rb,0.10092e+04_rb,0.40983e+03_rb,0.37826e+03_rb,0.42702e+03_rb, &
+        & 0.75035e+03_rb,0.88647e+03_rb,0.10325e+04_rb,0.11736e+04_rb /)
+      kao(:, 3, 3,16) = (/ &
+        & 0.94657e+03_rb,0.26107e+03_rb,0.43567e+03_rb,0.41065e+03_rb,0.70838e+03_rb, &
+        & 0.74760e+03_rb,0.88832e+03_rb,0.10233e+04_rb,0.11698e+04_rb /)
+      kao(:, 4, 3,16) = (/ &
+        & 0.10618e+03_rb,0.45040e+03_rb,0.10291e+04_rb,0.30237e+03_rb,0.57813e+03_rb, &
+        & 0.73277e+03_rb,0.87582e+03_rb,0.95203e+03_rb,0.11472e+04_rb /)
+      kao(:, 5, 3,16) = (/ &
+        & 0.96551e+03_rb,0.68706e+03_rb,0.56500e+03_rb,0.14865e+03_rb,0.35532e+03_rb, &
+        & 0.73527e+03_rb,0.86908e+03_rb,0.10241e+04_rb,0.11579e+04_rb /)
+      kao(:, 1, 4,16) = (/ &
+        & 0.13211e+04_rb,0.11050e+04_rb,0.91067e+03_rb,0.34788e+03_rb,0.76485e+03_rb, &
+        & 0.75213e+03_rb,0.88892e+03_rb,0.10299e+04_rb,0.11709e+04_rb /)
+      kao(:, 2, 4,16) = (/ &
+        & 0.15543e+04_rb,0.92211e+03_rb,0.72798e+03_rb,0.86839e+03_rb,0.36802e+03_rb, &
+        & 0.74223e+03_rb,0.89219e+03_rb,0.10338e+04_rb,0.11754e+04_rb /)
+      kao(:, 3, 4,16) = (/ &
+        & 0.53676e+03_rb,0.46363e+03_rb,0.10941e+04_rb,0.19958e+03_rb,0.68767e+03_rb, &
+        & 0.74416e+03_rb,0.88965e+03_rb,0.10195e+04_rb,0.11658e+04_rb /)
+      kao(:, 4, 4,16) = (/ &
+        & 0.66992e+03_rb,0.61007e+03_rb,0.50612e+03_rb,0.34999e+03_rb,0.19685e+03_rb, &
+        & 0.74139e+03_rb,0.88155e+03_rb,0.10274e+04_rb,0.11555e+04_rb /)
+      kao(:, 5, 4,16) = (/ &
+        & 0.55226e+03_rb,0.42689e+03_rb,0.10712e+04_rb,0.69959e+03_rb,0.69105e+03_rb, &
+        & 0.73534e+03_rb,0.87452e+03_rb,0.10137e+04_rb,0.11529e+04_rb /)
+      kao(:, 1, 5,16) = (/ &
+        & 0.11854e+04_rb,0.90025e+03_rb,0.10734e+04_rb,0.36732e+03_rb,0.51551e+03_rb, &
+        & 0.75181e+03_rb,0.89397e+03_rb,0.10361e+04_rb,0.11783e+04_rb /)
+      kao(:, 2, 5,16) = (/ &
+        & 0.13933e+04_rb,0.23882e+03_rb,0.71015e+03_rb,0.29765e+03_rb,0.88507e+02_rb, &
+        & 0.75060e+03_rb,0.89266e+03_rb,0.10347e+04_rb,0.11637e+04_rb /)
+      kao(:, 3, 5,16) = (/ &
+        & 0.30783e+03_rb,0.72533e+03_rb,0.99782e+03_rb,0.22581e+03_rb,0.21957e+03_rb, &
+        & 0.74471e+03_rb,0.89072e+03_rb,0.10326e+04_rb,0.11744e+04_rb /)
+      kao(:, 4, 5,16) = (/ &
+        & 0.12756e+03_rb,0.23797e+03_rb,0.16871e+03_rb,0.60625e+03_rb,0.35893e+03_rb, &
+        & 0.73811e+03_rb,0.88789e+03_rb,0.10294e+04_rb,0.11709e+04_rb /)
+      kao(:, 5, 5,16) = (/ &
+        & 0.67577e+03_rb,0.67606e+03_rb,0.57612e+03_rb,0.15439e+03_rb,0.22922e+03_rb, &
+        & 0.66526e+03_rb,0.82593e+03_rb,0.98621e+03_rb,0.11543e+04_rb /)
+      kao(:, 1, 6,16) = (/ &
+        & 0.35294e+03_rb,0.92951e+03_rb,0.39404e+03_rb,0.59466e+03_rb,0.46365e+03_rb, &
+        & 0.75155e+03_rb,0.89403e+03_rb,0.10365e+04_rb,0.11790e+04_rb /)
+      kao(:, 2, 6,16) = (/ &
+        & 0.83494e+03_rb,0.91972e+03_rb,0.83351e+02_rb,0.26459e+03_rb,0.33053e+03_rb, &
+        & 0.75056e+03_rb,0.89298e+03_rb,0.10296e+04_rb,0.11778e+04_rb /)
+      kao(:, 3, 6,16) = (/ &
+        & 0.77495e+02_rb,0.67358e+03_rb,0.71470e+03_rb,0.28985e+03_rb,0.12695e+03_rb, &
+        & 0.74093e+03_rb,0.89153e+03_rb,0.10338e+04_rb,0.11761e+04_rb /)
+      kao(:, 4, 6,16) = (/ &
+        & 0.12524e+04_rb,0.52300e+03_rb,0.17321e+03_rb,0.31958e+03_rb,0.15643e+03_rb, &
+        & 0.74316e+03_rb,0.88930e+03_rb,0.10313e+04_rb,0.11733e+04_rb /)
+      kao(:, 5, 6,16) = (/ &
+        & 0.79880e+03_rb,0.54259e+03_rb,0.31909e+03_rb,0.47791e+03_rb,0.45938e+03_rb, &
+        & 0.74468e+03_rb,0.88626e+03_rb,0.10278e+04_rb,0.11499e+04_rb /)
+      kao(:, 1, 7,16) = (/ &
+        & 0.10078e+04_rb,0.83081e+03_rb,0.68047e+03_rb,0.68284e+03_rb,0.57904e+03_rb, &
+        & 0.75128e+03_rb,0.89403e+03_rb,0.10368e+04_rb,0.11795e+04_rb /)
+      kao(:, 2, 7,16) = (/ &
+        & 0.67323e+03_rb,0.10228e+04_rb,0.49758e+03_rb,0.33578e+03_rb,0.38746e+03_rb, &
+        & 0.75047e+03_rb,0.88822e+03_rb,0.10359e+04_rb,0.11786e+04_rb /)
+      kao(:, 3, 7,16) = (/ &
+        & 0.60358e+03_rb,0.41876e+03_rb,0.74942e+03_rb,0.38757e+03_rb,0.61092e+03_rb, &
+        & 0.74943e+03_rb,0.88213e+03_rb,0.10289e+04_rb,0.11707e+04_rb /)
+      kao(:, 4, 7,16) = (/ &
+        & 0.69109e+03_rb,0.11040e+04_rb,0.46705e+03_rb,0.74628e+03_rb,0.47483e+03_rb, &
+        & 0.74797e+03_rb,0.88542e+03_rb,0.10328e+04_rb,0.11752e+04_rb /)
+      kao(:, 5, 7,16) = (/ &
+        & 0.68277e+03_rb,0.46564e+03_rb,0.19228e+03_rb,0.48854e+03_rb,0.28304e+03_rb, &
+        & 0.74163e+03_rb,0.88289e+03_rb,0.10299e+04_rb,0.11719e+04_rb /)
+      kao(:, 1, 8,16) = (/ &
+        & 0.26685e+03_rb,0.60532e+03_rb,0.51009e+03_rb,0.40907e+03_rb,0.39126e+03_rb, &
+        & 0.74682e+03_rb,0.89396e+03_rb,0.10369e+04_rb,0.11799e+04_rb /)
+      kao(:, 2, 8,16) = (/ &
+        & 0.94869e+03_rb,0.11471e+04_rb,0.44706e+03_rb,0.23151e+03_rb,0.93532e+02_rb, &
+        & 0.75035e+03_rb,0.89331e+03_rb,0.10363e+04_rb,0.11727e+04_rb /)
+      kao(:, 3, 8,16) = (/ &
+        & 0.11588e+04_rb,0.74588e+03_rb,0.28311e+03_rb,0.27864e+03_rb,0.32853e+03_rb, &
+        & 0.74950e+03_rb,0.88246e+03_rb,0.10352e+04_rb,0.11716e+04_rb /)
+      kao(:, 4, 8,16) = (/ &
+        & 0.11874e+04_rb,0.47456e+03_rb,0.83368e+03_rb,0.31591e+03_rb,0.30274e+03_rb, &
+        & 0.74421e+03_rb,0.89109e+03_rb,0.10338e+04_rb,0.11765e+04_rb /)
+      kao(:, 5, 8,16) = (/ &
+        & 0.45710e+03_rb,0.66086e+03_rb,0.55863e+03_rb,0.58037e+03_rb,0.20569e+03_rb, &
+        & 0.73836e+03_rb,0.88417e+03_rb,0.10316e+04_rb,0.11675e+04_rb /)
+      kao(:, 1, 9,16) = (/ &
+        & 0.55233e+03_rb,0.18269e+03_rb,0.18991e+03_rb,0.35964e+03_rb,0.38998e+03_rb, &
+        & 0.75089e+03_rb,0.89415e+03_rb,0.10374e+04_rb,0.11807e+04_rb /)
+      kao(:, 2, 9,16) = (/ &
+        & 0.31819e+03_rb,0.14904e+03_rb,0.79703e+03_rb,0.32317e+03_rb,0.20679e+03_rb, &
+        & 0.75021e+03_rb,0.89337e+03_rb,0.10308e+04_rb,0.11797e+04_rb /)
+      kao(:, 3, 9,16) = (/ &
+        & 0.16059e+03_rb,0.37409e+03_rb,0.62337e+03_rb,0.62951e+03_rb,0.47662e+03_rb, &
+        & 0.74953e+03_rb,0.89262e+03_rb,0.10357e+04_rb,0.11788e+04_rb /)
+      kao(:, 4, 9,16) = (/ &
+        & 0.15191e+03_rb,0.63681e+03_rb,0.25601e+03_rb,0.65772e+03_rb,0.38994e+03_rb, &
+        & 0.74029e+03_rb,0.89158e+03_rb,0.10346e+04_rb,0.11775e+04_rb /)
+      kao(:, 5, 9,16) = (/ &
+        & 0.10392e+04_rb,0.33629e+03_rb,0.90538e+03_rb,0.33435e+03_rb,0.46694e+03_rb, &
+        & 0.74731e+03_rb,0.89008e+03_rb,0.10329e+04_rb,0.11756e+04_rb /)
+      kao(:, 1,10,16) = (/ &
+        & 0.43161e+03_rb,0.53194e+03_rb,0.82168e+03_rb,0.11050e+03_rb,0.32159e+02_rb, &
+        & 0.75101e+03_rb,0.89450e+03_rb,0.10380e+04_rb,0.11815e+04_rb /)
+      kao(:, 2,10,16) = (/ &
+        & 0.23362e+03_rb,0.50697e+03_rb,0.75913e+03_rb,0.37965e+03_rb,0.15877e+03_rb, &
+        & 0.75002e+03_rb,0.89333e+03_rb,0.10366e+04_rb,0.11734e+04_rb /)
+      kao(:, 3,10,16) = (/ &
+        & 0.66577e+03_rb,0.22676e+03_rb,0.63752e+03_rb,0.50488e+03_rb,0.52339e+03_rb, &
+        & 0.74947e+03_rb,0.88778e+03_rb,0.10360e+04_rb,0.11793e+04_rb /)
+      kao(:, 4,10,16) = (/ &
+        & 0.12040e+04_rb,0.37222e+03_rb,0.71269e+03_rb,0.68368e+02_rb,0.31445e+03_rb, &
+        & 0.74453e+03_rb,0.88691e+03_rb,0.10293e+04_rb,0.11782e+04_rb /)
+      kao(:, 5,10,16) = (/ &
+        & 0.85334e+03_rb,0.50951e+03_rb,0.43397e+03_rb,0.11861e+03_rb,0.15074e+03_rb, &
+        & 0.74764e+03_rb,0.89065e+03_rb,0.10337e+04_rb,0.11767e+04_rb /)
+      kao(:, 1,11,16) = (/ &
+        & 0.45853e+03_rb,0.29024e+03_rb,0.38275e+03_rb,0.26130e+03_rb,0.12124e+03_rb, &
+        & 0.75062e+03_rb,0.89424e+03_rb,0.10379e+04_rb,0.11815e+04_rb /)
+      kao(:, 2,11,16) = (/ &
+        & 0.66691e+03_rb,0.55656e+03_rb,0.39879e+03_rb,0.16526e+03_rb,0.24675e+03_rb, &
+        & 0.74965e+03_rb,0.89309e+03_rb,0.10365e+04_rb,0.11800e+04_rb /)
+      kao(:, 3,11,16) = (/ &
+        & 0.10239e+04_rb,0.60930e+03_rb,0.22001e+03_rb,0.10914e+03_rb,0.22748e+03_rb, &
+        & 0.74913e+03_rb,0.89251e+03_rb,0.10359e+04_rb,0.11793e+04_rb /)
+      kao(:, 4,11,16) = (/ &
+        & 0.80567e+03_rb,0.90344e+03_rb,0.77356e+03_rb,0.12489e+03_rb,0.55902e+03_rb, &
+        & 0.74421e+03_rb,0.89165e+03_rb,0.10349e+04_rb,0.11782e+04_rb /)
+      kao(:, 5,11,16) = (/ &
+        & 0.80619e+03_rb,0.87963e+03_rb,0.47254e+03_rb,0.39261e+03_rb,0.59752e+03_rb, &
+        & 0.74319e+03_rb,0.88056e+03_rb,0.10336e+04_rb,0.11767e+04_rb /)
+      kao(:, 1,12,16) = (/ &
+        & 0.54479e+03_rb,0.73809e+03_rb,0.74534e+03_rb,0.30870e+03_rb,0.60893e+03_rb, &
+        & 0.75030e+03_rb,0.89402e+03_rb,0.10378e+04_rb,0.11815e+04_rb /)
+      kao(:, 2,12,16) = (/ &
+        & 0.10600e+04_rb,0.76559e+03_rb,0.34957e+03_rb,0.18602e+03_rb,0.60736e+03_rb, &
+        & 0.74935e+03_rb,0.89289e+03_rb,0.10307e+04_rb,0.11734e+04_rb /)
+      kao(:, 3,12,16) = (/ &
+        & 0.10515e+04_rb,0.60079e+03_rb,0.43472e+03_rb,0.33220e+03_rb,0.60582e+03_rb, &
+        & 0.74885e+03_rb,0.89233e+03_rb,0.10358e+04_rb,0.11793e+04_rb /)
+      kao(:, 4,12,16) = (/ &
+        & 0.32670e+03_rb,0.23075e+03_rb,0.13581e+03_rb,0.17106e+03_rb,0.60474e+03_rb, &
+        & 0.74811e+03_rb,0.89148e+03_rb,0.10348e+04_rb,0.11717e+04_rb /)
+      kao(:, 5,12,16) = (/ &
+        & 0.20371e+03_rb,0.68798e+03_rb,0.91592e+02_rb,0.60316e+03_rb,0.60390e+03_rb, &
+        & 0.74294e+03_rb,0.89029e+03_rb,0.10335e+04_rb,0.11767e+04_rb /)
+      kao(:, 1,13,16) = (/ &
+        & 0.85988e+03_rb,0.94717e+03_rb,0.84544e+03_rb,0.31415e+03_rb,0.60500e+03_rb, &
+        & 0.75003e+03_rb,0.89385e+03_rb,0.10377e+04_rb,0.11815e+04_rb /)
+      kao(:, 2,13,16) = (/ &
+        & 0.10379e+04_rb,0.11189e+03_rb,0.20733e+03_rb,0.17410e+03_rb,0.60685e+03_rb, &
+        & 0.74910e+03_rb,0.89272e+03_rb,0.10306e+04_rb,0.11800e+04_rb /)
+      kao(:, 3,13,16) = (/ &
+        & 0.70206e+03_rb,0.77801e+03_rb,0.11974e+03_rb,0.34591e+03_rb,0.60534e+03_rb, &
+        & 0.74861e+03_rb,0.89217e+03_rb,0.10357e+04_rb,0.11793e+04_rb /)
+      kao(:, 4,13,16) = (/ &
+        & 0.69165e+03_rb,0.93369e+03_rb,0.16190e+03_rb,0.16396e+03_rb,0.60445e+03_rb, &
+        & 0.74789e+03_rb,0.89133e+03_rb,0.10348e+04_rb,0.11782e+04_rb /)
+      kao(:, 5,13,16) = (/ &
+        & 0.20016e+03_rb,0.25832e+03_rb,0.57797e+03_rb,0.24270e+03_rb,0.60363e+03_rb, &
+        & 0.74689e+03_rb,0.88521e+03_rb,0.10334e+04_rb,0.11767e+04_rb /)
+  
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kbo(:, 1,13, 1) = (/ &
+        & 0.27369e+02_rb,0.29903e+03_rb,0.42924e+03_rb,0.31039e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,13, 1) = (/ &
+        & 0.27158e+02_rb,0.29898e+03_rb,0.42745e+03_rb,0.30840e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,13, 1) = (/ &
+        & 0.26976e+02_rb,0.29889e+03_rb,0.42590e+03_rb,0.30668e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,13, 1) = (/ &
+        & 0.26818e+02_rb,0.29875e+03_rb,0.42455e+03_rb,0.30517e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,13, 1) = (/ &
+        & 0.26679e+02_rb,0.29855e+03_rb,0.42335e+03_rb,0.30384e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,14, 1) = (/ &
+        & 0.26840e+02_rb,0.29863e+03_rb,0.42474e+03_rb,0.30538e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,14, 1) = (/ &
+        & 0.26669e+02_rb,0.29862e+03_rb,0.42327e+03_rb,0.30375e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,14, 1) = (/ &
+        & 0.26522e+02_rb,0.29854e+03_rb,0.42199e+03_rb,0.30234e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,14, 1) = (/ &
+        & 0.26394e+02_rb,0.29842e+03_rb,0.42088e+03_rb,0.30111e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,14, 1) = (/ &
+        & 0.26282e+02_rb,0.29824e+03_rb,0.41990e+03_rb,0.30002e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,15, 1) = (/ &
+        & 0.26408e+02_rb,0.29831e+03_rb,0.42100e+03_rb,0.30124e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,15, 1) = (/ &
+        & 0.26271e+02_rb,0.29832e+03_rb,0.41980e+03_rb,0.29991e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,15, 1) = (/ &
+        & 0.26152e+02_rb,0.29826e+03_rb,0.41876e+03_rb,0.29877e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,15, 1) = (/ &
+        & 0.26049e+02_rb,0.29814e+03_rb,0.41785e+03_rb,0.29776e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,15, 1) = (/ &
+        & 0.25958e+02_rb,0.29797e+03_rb,0.41705e+03_rb,0.29688e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,16, 1) = (/ &
+        & 0.26057e+02_rb,0.29806e+03_rb,0.41793e+03_rb,0.29784e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,16, 1) = (/ &
+        & 0.25946e+02_rb,0.29807e+03_rb,0.41695e+03_rb,0.29676e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,16, 1) = (/ &
+        & 0.25851e+02_rb,0.29803e+03_rb,0.41610e+03_rb,0.29583e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,16, 1) = (/ &
+        & 0.25767e+02_rb,0.29792e+03_rb,0.41536e+03_rb,0.29502e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,16, 1) = (/ &
+        & 0.25694e+02_rb,0.29776e+03_rb,0.41470e+03_rb,0.29430e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,17, 1) = (/ &
+        & 0.25772e+02_rb,0.29785e+03_rb,0.41540e+03_rb,0.29506e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,17, 1) = (/ &
+        & 0.25683e+02_rb,0.29787e+03_rb,0.41460e+03_rb,0.29419e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,17, 1) = (/ &
+        & 0.25606e+02_rb,0.29784e+03_rb,0.41391e+03_rb,0.29343e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,17, 1) = (/ &
+        & 0.25538e+02_rb,0.29774e+03_rb,0.41331e+03_rb,0.29277e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,17, 1) = (/ &
+        & 0.25479e+02_rb,0.29758e+03_rb,0.41278e+03_rb,0.29219e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,18, 1) = (/ &
+        & 0.25541e+02_rb,0.29768e+03_rb,0.41334e+03_rb,0.29280e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,18, 1) = (/ &
+        & 0.25469e+02_rb,0.29772e+03_rb,0.41269e+03_rb,0.29209e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,18, 1) = (/ &
+        & 0.25407e+02_rb,0.29768e+03_rb,0.41213e+03_rb,0.29147e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,18, 1) = (/ &
+        & 0.25353e+02_rb,0.29758e+03_rb,0.41163e+03_rb,0.29094e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,18, 1) = (/ &
+        & 0.25305e+02_rb,0.29743e+03_rb,0.41120e+03_rb,0.29046e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,19, 1) = (/ &
+        & 0.25354e+02_rb,0.29755e+03_rb,0.41165e+03_rb,0.29095e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,19, 1) = (/ &
+        & 0.25296e+02_rb,0.29758e+03_rb,0.41112e+03_rb,0.29037e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,19, 1) = (/ &
+        & 0.25245e+02_rb,0.29755e+03_rb,0.41067e+03_rb,0.28988e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,19, 1) = (/ &
+        & 0.25201e+02_rb,0.29746e+03_rb,0.41027e+03_rb,0.28944e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,19, 1) = (/ &
+        & 0.25163e+02_rb,0.29730e+03_rb,0.40991e+03_rb,0.28905e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,20, 1) = (/ &
+        & 0.25201e+02_rb,0.29744e+03_rb,0.41026e+03_rb,0.28943e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,20, 1) = (/ &
+        & 0.25154e+02_rb,0.29748e+03_rb,0.40984e+03_rb,0.28897e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,20, 1) = (/ &
+        & 0.25113e+02_rb,0.29745e+03_rb,0.40947e+03_rb,0.28856e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,20, 1) = (/ &
+        & 0.25078e+02_rb,0.29735e+03_rb,0.40914e+03_rb,0.28821e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,20, 1) = (/ &
+        & 0.25047e+02_rb,0.29719e+03_rb,0.40886e+03_rb,0.28790e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,21, 1) = (/ &
+        & 0.25076e+02_rb,0.29736e+03_rb,0.40913e+03_rb,0.28819e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,21, 1) = (/ &
+        & 0.25039e+02_rb,0.29739e+03_rb,0.40879e+03_rb,0.28782e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,21, 1) = (/ &
+        & 0.25006e+02_rb,0.29736e+03_rb,0.40849e+03_rb,0.28749e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,21, 1) = (/ &
+        & 0.24978e+02_rb,0.29726e+03_rb,0.40823e+03_rb,0.28722e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,21, 1) = (/ &
+        & 0.24952e+02_rb,0.29710e+03_rb,0.40800e+03_rb,0.28695e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,22, 1) = (/ &
+        & 0.24973e+02_rb,0.29729e+03_rb,0.40819e+03_rb,0.28717e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,22, 1) = (/ &
+        & 0.24944e+02_rb,0.29732e+03_rb,0.40792e+03_rb,0.28687e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,22, 1) = (/ &
+        & 0.24917e+02_rb,0.29728e+03_rb,0.40768e+03_rb,0.28661e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,22, 1) = (/ &
+        & 0.24895e+02_rb,0.29717e+03_rb,0.40747e+03_rb,0.28638e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,22, 1) = (/ &
+        & 0.24874e+02_rb,0.29700e+03_rb,0.40728e+03_rb,0.28618e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,23, 1) = (/ &
+        & 0.24890e+02_rb,0.29724e+03_rb,0.40743e+03_rb,0.28634e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,23, 1) = (/ &
+        & 0.24866e+02_rb,0.29726e+03_rb,0.40721e+03_rb,0.28610e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,23, 1) = (/ &
+        & 0.24846e+02_rb,0.29721e+03_rb,0.40702e+03_rb,0.28589e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,23, 1) = (/ &
+        & 0.24827e+02_rb,0.29710e+03_rb,0.40685e+03_rb,0.28571e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,23, 1) = (/ &
+        & 0.24811e+02_rb,0.29692e+03_rb,0.40671e+03_rb,0.28554e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,24, 1) = (/ &
+        & 0.24823e+02_rb,0.29721e+03_rb,0.40681e+03_rb,0.28566e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,24, 1) = (/ &
+        & 0.24804e+02_rb,0.29721e+03_rb,0.40664e+03_rb,0.28547e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,24, 1) = (/ &
+        & 0.24787e+02_rb,0.29715e+03_rb,0.40649e+03_rb,0.28530e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,24, 1) = (/ &
+        & 0.24773e+02_rb,0.29703e+03_rb,0.40635e+03_rb,0.28516e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,24, 1) = (/ &
+        & 0.24760e+02_rb,0.29684e+03_rb,0.40623e+03_rb,0.28503e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,25, 1) = (/ &
+        & 0.24769e+02_rb,0.29717e+03_rb,0.40631e+03_rb,0.28511e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,25, 1) = (/ &
+        & 0.24753e+02_rb,0.29717e+03_rb,0.40618e+03_rb,0.28496e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,25, 1) = (/ &
+        & 0.24740e+02_rb,0.29710e+03_rb,0.40606e+03_rb,0.28483e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,25, 1) = (/ &
+        & 0.24729e+02_rb,0.29696e+03_rb,0.40595e+03_rb,0.28472e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,25, 1) = (/ &
+        & 0.24718e+02_rb,0.29676e+03_rb,0.40585e+03_rb,0.28462e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,26, 1) = (/ &
+        & 0.24724e+02_rb,0.29715e+03_rb,0.40591e+03_rb,0.28467e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,26, 1) = (/ &
+        & 0.24712e+02_rb,0.29713e+03_rb,0.40580e+03_rb,0.28456e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,26, 1) = (/ &
+        & 0.24702e+02_rb,0.29704e+03_rb,0.40570e+03_rb,0.28445e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,26, 1) = (/ &
+        & 0.24693e+02_rb,0.29689e+03_rb,0.40562e+03_rb,0.28435e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,26, 1) = (/ &
+        & 0.24684e+02_rb,0.29668e+03_rb,0.40554e+03_rb,0.28427e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,27, 1) = (/ &
+        & 0.24689e+02_rb,0.29713e+03_rb,0.40558e+03_rb,0.28431e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,27, 1) = (/ &
+        & 0.24679e+02_rb,0.29709e+03_rb,0.40550e+03_rb,0.28422e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,27, 1) = (/ &
+        & 0.24671e+02_rb,0.29699e+03_rb,0.40542e+03_rb,0.28423e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,27, 1) = (/ &
+        & 0.24664e+02_rb,0.29683e+03_rb,0.40535e+03_rb,0.28405e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,27, 1) = (/ &
+        & 0.24657e+02_rb,0.29660e+03_rb,0.40529e+03_rb,0.28399e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,28, 1) = (/ &
+        & 0.24660e+02_rb,0.29710e+03_rb,0.40532e+03_rb,0.28404e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,28, 1) = (/ &
+        & 0.24653e+02_rb,0.29706e+03_rb,0.40525e+03_rb,0.28395e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,28, 1) = (/ &
+        & 0.24646e+02_rb,0.29694e+03_rb,0.40519e+03_rb,0.28389e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,28, 1) = (/ &
+        & 0.24640e+02_rb,0.29676e+03_rb,0.40514e+03_rb,0.28383e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,28, 1) = (/ &
+        & 0.24635e+02_rb,0.29651e+03_rb,0.40509e+03_rb,0.28376e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,29, 1) = (/ &
+        & 0.24637e+02_rb,0.29708e+03_rb,0.40511e+03_rb,0.28380e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,29, 1) = (/ &
+        & 0.24631e+02_rb,0.29702e+03_rb,0.40505e+03_rb,0.28374e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,29, 1) = (/ &
+        & 0.24626e+02_rb,0.29689e+03_rb,0.40500e+03_rb,0.28368e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,29, 1) = (/ &
+        & 0.24621e+02_rb,0.29669e+03_rb,0.40496e+03_rb,0.28364e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,29, 1) = (/ &
+        & 0.24617e+02_rb,0.29643e+03_rb,0.40492e+03_rb,0.28359e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,30, 1) = (/ &
+        & 0.24619e+02_rb,0.29706e+03_rb,0.40494e+03_rb,0.28360e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,30, 1) = (/ &
+        & 0.24614e+02_rb,0.29698e+03_rb,0.40489e+03_rb,0.28355e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,30, 1) = (/ &
+        & 0.24610e+02_rb,0.29683e+03_rb,0.40485e+03_rb,0.28351e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,30, 1) = (/ &
+        & 0.24606e+02_rb,0.29662e+03_rb,0.40482e+03_rb,0.28347e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,30, 1) = (/ &
+        & 0.24603e+02_rb,0.29634e+03_rb,0.40479e+03_rb,0.28344e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,31, 1) = (/ &
+        & 0.24604e+02_rb,0.29704e+03_rb,0.40480e+03_rb,0.28345e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,31, 1) = (/ &
+        & 0.24600e+02_rb,0.29694e+03_rb,0.40477e+03_rb,0.28341e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,31, 1) = (/ &
+        & 0.24597e+02_rb,0.29678e+03_rb,0.40473e+03_rb,0.28338e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,31, 1) = (/ &
+        & 0.24594e+02_rb,0.29655e+03_rb,0.40471e+03_rb,0.28336e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,31, 1) = (/ &
+        & 0.24591e+02_rb,0.29625e+03_rb,0.40468e+03_rb,0.28332e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,32, 1) = (/ &
+        & 0.24592e+02_rb,0.29701e+03_rb,0.40469e+03_rb,0.28333e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,32, 1) = (/ &
+        & 0.24589e+02_rb,0.29689e+03_rb,0.40466e+03_rb,0.28330e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,32, 1) = (/ &
+        & 0.24586e+02_rb,0.29672e+03_rb,0.40464e+03_rb,0.28328e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,32, 1) = (/ &
+        & 0.24584e+02_rb,0.29647e+03_rb,0.40461e+03_rb,0.28324e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,32, 1) = (/ &
+        & 0.24582e+02_rb,0.29615e+03_rb,0.40459e+03_rb,0.28325e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,33, 1) = (/ &
+        & 0.24582e+02_rb,0.29698e+03_rb,0.40460e+03_rb,0.28323e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,33, 1) = (/ &
+        & 0.24580e+02_rb,0.29685e+03_rb,0.40458e+03_rb,0.28321e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,33, 1) = (/ &
+        & 0.24578e+02_rb,0.29665e+03_rb,0.40456e+03_rb,0.28318e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,33, 1) = (/ &
+        & 0.24576e+02_rb,0.29639e+03_rb,0.40454e+03_rb,0.28317e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,33, 1) = (/ &
+        & 0.24574e+02_rb,0.29605e+03_rb,0.40452e+03_rb,0.28315e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,34, 1) = (/ &
+        & 0.24574e+02_rb,0.29695e+03_rb,0.40453e+03_rb,0.28315e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,34, 1) = (/ &
+        & 0.24572e+02_rb,0.29680e+03_rb,0.40451e+03_rb,0.28313e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,34, 1) = (/ &
+        & 0.24571e+02_rb,0.29659e+03_rb,0.40449e+03_rb,0.28312e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,34, 1) = (/ &
+        & 0.24569e+02_rb,0.29631e+03_rb,0.40448e+03_rb,0.28310e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,34, 1) = (/ &
+        & 0.24568e+02_rb,0.29596e+03_rb,0.40447e+03_rb,0.28308e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,35, 1) = (/ &
+        & 0.24568e+02_rb,0.29693e+03_rb,0.40447e+03_rb,0.28309e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,35, 1) = (/ &
+        & 0.24567e+02_rb,0.29678e+03_rb,0.40446e+03_rb,0.28308e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,35, 1) = (/ &
+        & 0.24565e+02_rb,0.29656e+03_rb,0.40444e+03_rb,0.28306e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,35, 1) = (/ &
+        & 0.24564e+02_rb,0.29627e+03_rb,0.40443e+03_rb,0.28305e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,35, 1) = (/ &
+        & 0.24563e+02_rb,0.29590e+03_rb,0.40442e+03_rb,0.28304e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,36, 1) = (/ &
+        & 0.24563e+02_rb,0.29692e+03_rb,0.40443e+03_rb,0.28305e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,36, 1) = (/ &
+        & 0.24562e+02_rb,0.29677e+03_rb,0.40442e+03_rb,0.28304e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,36, 1) = (/ &
+        & 0.24561e+02_rb,0.29655e+03_rb,0.40440e+03_rb,0.28301e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,36, 1) = (/ &
+        & 0.24560e+02_rb,0.29626e+03_rb,0.40440e+03_rb,0.28302e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,36, 1) = (/ &
+        & 0.24559e+02_rb,0.29589e+03_rb,0.40439e+03_rb,0.28301e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,37, 1) = (/ &
+        & 0.24560e+02_rb,0.29693e+03_rb,0.40439e+03_rb,0.28301e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,37, 1) = (/ &
+        & 0.24559e+02_rb,0.29679e+03_rb,0.40438e+03_rb,0.28299e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,37, 1) = (/ &
+        & 0.24558e+02_rb,0.29658e+03_rb,0.40437e+03_rb,0.28299e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,37, 1) = (/ &
+        & 0.24557e+02_rb,0.29630e+03_rb,0.40437e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,37, 1) = (/ &
+        & 0.24556e+02_rb,0.29594e+03_rb,0.40436e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,38, 1) = (/ &
+        & 0.24557e+02_rb,0.29695e+03_rb,0.40436e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,38, 1) = (/ &
+        & 0.24556e+02_rb,0.29681e+03_rb,0.40436e+03_rb,0.28296e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,38, 1) = (/ &
+        & 0.24555e+02_rb,0.29661e+03_rb,0.40435e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,38, 1) = (/ &
+        & 0.24554e+02_rb,0.29634e+03_rb,0.40434e+03_rb,0.28296e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,38, 1) = (/ &
+        & 0.24554e+02_rb,0.29599e+03_rb,0.40434e+03_rb,0.28294e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,39, 1) = (/ &
+        & 0.24554e+02_rb,0.29696e+03_rb,0.40434e+03_rb,0.28295e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,39, 1) = (/ &
+        & 0.24553e+02_rb,0.29683e+03_rb,0.40433e+03_rb,0.28294e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,39, 1) = (/ &
+        & 0.24553e+02_rb,0.29664e+03_rb,0.40433e+03_rb,0.28293e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,39, 1) = (/ &
+        & 0.24552e+02_rb,0.29638e+03_rb,0.40432e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,39, 1) = (/ &
+        & 0.24552e+02_rb,0.29604e+03_rb,0.40432e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,40, 1) = (/ &
+        & 0.24552e+02_rb,0.29698e+03_rb,0.40432e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,40, 1) = (/ &
+        & 0.24551e+02_rb,0.29687e+03_rb,0.40432e+03_rb,0.28293e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,40, 1) = (/ &
+        & 0.24551e+02_rb,0.29669e+03_rb,0.40431e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,40, 1) = (/ &
+        & 0.24550e+02_rb,0.29645e+03_rb,0.40431e+03_rb,0.28291e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,40, 1) = (/ &
+        & 0.24550e+02_rb,0.29613e+03_rb,0.40430e+03_rb,0.28291e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,41, 1) = (/ &
+        & 0.24550e+02_rb,0.29699e+03_rb,0.40431e+03_rb,0.28290e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,41, 1) = (/ &
+        & 0.24550e+02_rb,0.29690e+03_rb,0.40430e+03_rb,0.28291e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,41, 1) = (/ &
+        & 0.24549e+02_rb,0.29674e+03_rb,0.40430e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,41, 1) = (/ &
+        & 0.24549e+02_rb,0.29651e+03_rb,0.40429e+03_rb,0.28290e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,41, 1) = (/ &
+        & 0.24549e+02_rb,0.29622e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,42, 1) = (/ &
+        & 0.24549e+02_rb,0.29700e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,42, 1) = (/ &
+        & 0.24549e+02_rb,0.29693e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,42, 1) = (/ &
+        & 0.24548e+02_rb,0.29679e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,42, 1) = (/ &
+        & 0.24548e+02_rb,0.29658e+03_rb,0.40428e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,42, 1) = (/ &
+        & 0.24547e+02_rb,0.29630e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,43, 1) = (/ &
+        & 0.24548e+02_rb,0.29701e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,43, 1) = (/ &
+        & 0.24547e+02_rb,0.29696e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,43, 1) = (/ &
+        & 0.24547e+02_rb,0.29684e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,43, 1) = (/ &
+        & 0.24547e+02_rb,0.29665e+03_rb,0.40427e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,43, 1) = (/ &
+        & 0.24547e+02_rb,0.29639e+03_rb,0.40427e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,44, 1) = (/ &
+        & 0.24547e+02_rb,0.29702e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,44, 1) = (/ &
+        & 0.24547e+02_rb,0.29698e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,44, 1) = (/ &
+        & 0.24546e+02_rb,0.29688e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,44, 1) = (/ &
+        & 0.24546e+02_rb,0.29672e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,44, 1) = (/ &
+        & 0.24546e+02_rb,0.29649e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,45, 1) = (/ &
+        & 0.24546e+02_rb,0.29701e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,45, 1) = (/ &
+        & 0.24546e+02_rb,0.29700e+03_rb,0.40426e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,45, 1) = (/ &
+        & 0.24546e+02_rb,0.29692e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,45, 1) = (/ &
+        & 0.24545e+02_rb,0.29678e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,45, 1) = (/ &
+        & 0.24545e+02_rb,0.29657e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,46, 1) = (/ &
+        & 0.24545e+02_rb,0.29699e+03_rb,0.40426e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,46, 1) = (/ &
+        & 0.24545e+02_rb,0.29701e+03_rb,0.40426e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,46, 1) = (/ &
+        & 0.24545e+02_rb,0.29696e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,46, 1) = (/ &
+        & 0.24545e+02_rb,0.29684e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,46, 1) = (/ &
+        & 0.24545e+02_rb,0.29665e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,47, 1) = (/ &
+        & 0.24545e+02_rb,0.29696e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,47, 1) = (/ &
+        & 0.24545e+02_rb,0.29701e+03_rb,0.40425e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,47, 1) = (/ &
+        & 0.24544e+02_rb,0.29699e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,47, 1) = (/ &
+        & 0.24544e+02_rb,0.29690e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,47, 1) = (/ &
+        & 0.24544e+02_rb,0.29674e+03_rb,0.40425e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,48, 1) = (/ &
+        & 0.24544e+02_rb,0.29691e+03_rb,0.40425e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,48, 1) = (/ &
+        & 0.24544e+02_rb,0.29700e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,48, 1) = (/ &
+        & 0.24544e+02_rb,0.29701e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,48, 1) = (/ &
+        & 0.24544e+02_rb,0.29694e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,48, 1) = (/ &
+        & 0.24544e+02_rb,0.29681e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,49, 1) = (/ &
+        & 0.24544e+02_rb,0.29685e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,49, 1) = (/ &
+        & 0.24544e+02_rb,0.29698e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,49, 1) = (/ &
+        & 0.24544e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,49, 1) = (/ &
+        & 0.24544e+02_rb,0.29697e+03_rb,0.40424e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,49, 1) = (/ &
+        & 0.24544e+02_rb,0.29687e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,50, 1) = (/ &
+        & 0.24544e+02_rb,0.29678e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,50, 1) = (/ &
+        & 0.24544e+02_rb,0.29694e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,50, 1) = (/ &
+        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,50, 1) = (/ &
+        & 0.24543e+02_rb,0.29700e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,50, 1) = (/ &
+        & 0.24543e+02_rb,0.29692e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,51, 1) = (/ &
+        & 0.24543e+02_rb,0.29670e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,51, 1) = (/ &
+        & 0.24543e+02_rb,0.29689e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,51, 1) = (/ &
+        & 0.24543e+02_rb,0.29699e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,51, 1) = (/ &
+        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,51, 1) = (/ &
+        & 0.24543e+02_rb,0.29695e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,52, 1) = (/ &
+        & 0.24543e+02_rb,0.29660e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,52, 1) = (/ &
+        & 0.24543e+02_rb,0.29684e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,52, 1) = (/ &
+        & 0.24543e+02_rb,0.29697e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,52, 1) = (/ &
+        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,52, 1) = (/ &
+        & 0.24543e+02_rb,0.29698e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,53, 1) = (/ &
+        & 0.24543e+02_rb,0.29648e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,53, 1) = (/ &
+        & 0.24543e+02_rb,0.29676e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,53, 1) = (/ &
+        & 0.24543e+02_rb,0.29693e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,53, 1) = (/ &
+        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,53, 1) = (/ &
+        & 0.24543e+02_rb,0.29700e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,54, 1) = (/ &
+        & 0.24543e+02_rb,0.29635e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,54, 1) = (/ &
+        & 0.24543e+02_rb,0.29668e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,54, 1) = (/ &
+        & 0.24543e+02_rb,0.29688e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,54, 1) = (/ &
+        & 0.24543e+02_rb,0.29699e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,54, 1) = (/ &
+        & 0.24543e+02_rb,0.29701e+03_rb,0.40423e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,55, 1) = (/ &
+        & 0.24543e+02_rb,0.29622e+03_rb,0.40424e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,55, 1) = (/ &
+        & 0.24543e+02_rb,0.29659e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,55, 1) = (/ &
+        & 0.24543e+02_rb,0.29683e+03_rb,0.40423e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,55, 1) = (/ &
+        & 0.24543e+02_rb,0.29696e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,55, 1) = (/ &
+        & 0.24543e+02_rb,0.29701e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,56, 1) = (/ &
+        & 0.24543e+02_rb,0.29607e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,56, 1) = (/ &
+        & 0.24543e+02_rb,0.29649e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,56, 1) = (/ &
+        & 0.24543e+02_rb,0.29676e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,56, 1) = (/ &
+        & 0.24542e+02_rb,0.29693e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,56, 1) = (/ &
+        & 0.24542e+02_rb,0.29700e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,57, 1) = (/ &
+        & 0.24543e+02_rb,0.29591e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,57, 1) = (/ &
+        & 0.24542e+02_rb,0.29637e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,57, 1) = (/ &
+        & 0.24542e+02_rb,0.29669e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,57, 1) = (/ &
+        & 0.24542e+02_rb,0.29689e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,57, 1) = (/ &
+        & 0.24542e+02_rb,0.29699e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,58, 1) = (/ &
+        & 0.24542e+02_rb,0.29574e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,58, 1) = (/ &
+        & 0.24542e+02_rb,0.29624e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,58, 1) = (/ &
+        & 0.24542e+02_rb,0.29660e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,58, 1) = (/ &
+        & 0.24542e+02_rb,0.29684e+03_rb,0.40423e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,58, 1) = (/ &
+        & 0.24542e+02_rb,0.29697e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,59, 1) = (/ &
+        & 0.24542e+02_rb,0.29566e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 2,59, 1) = (/ &
+        & 0.24542e+02_rb,0.29619e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)
+      kbo(:, 3,59, 1) = (/ &
+        & 0.24542e+02_rb,0.29657e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 4,59, 1) = (/ &
+        & 0.24542e+02_rb,0.29682e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 5,59, 1) = (/ &
+        & 0.24542e+02_rb,0.29696e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)
+      kbo(:, 1,13, 2) = (/ &
+        & 0.10177e+03_rb,0.32761e+03_rb,0.45575e+03_rb,0.31335e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,13, 2) = (/ &
+        & 0.10099e+03_rb,0.32713e+03_rb,0.45383e+03_rb,0.31125e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,13, 2) = (/ &
+        & 0.10031e+03_rb,0.32663e+03_rb,0.45216e+03_rb,0.30943e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,13, 2) = (/ &
+        & 0.99721e+02_rb,0.32612e+03_rb,0.45071e+03_rb,0.30785e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,13, 2) = (/ &
+        & 0.99204e+02_rb,0.32558e+03_rb,0.44942e+03_rb,0.30646e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,14, 2) = (/ &
+        & 0.99803e+02_rb,0.32613e+03_rb,0.45091e+03_rb,0.30807e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,14, 2) = (/ &
+        & 0.99169e+02_rb,0.32574e+03_rb,0.44934e+03_rb,0.30636e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,14, 2) = (/ &
+        & 0.98622e+02_rb,0.32534e+03_rb,0.44797e+03_rb,0.30489e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,14, 2) = (/ &
+        & 0.98146e+02_rb,0.32491e+03_rb,0.44677e+03_rb,0.30362e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,14, 2) = (/ &
+        & 0.97728e+02_rb,0.32444e+03_rb,0.44571e+03_rb,0.30248e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,15, 2) = (/ &
+        & 0.98198e+02_rb,0.32493e+03_rb,0.44690e+03_rb,0.30375e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,15, 2) = (/ &
+        & 0.97687e+02_rb,0.32462e+03_rb,0.44560e+03_rb,0.30237e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,15, 2) = (/ &
+        & 0.97245e+02_rb,0.32429e+03_rb,0.44448e+03_rb,0.30119e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,15, 2) = (/ &
+        & 0.96861e+02_rb,0.32392e+03_rb,0.44350e+03_rb,0.30014e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,15, 2) = (/ &
+        & 0.96523e+02_rb,0.32350e+03_rb,0.44263e+03_rb,0.29923e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,16, 2) = (/ &
+        & 0.96892e+02_rb,0.32395e+03_rb,0.44358e+03_rb,0.30023e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,16, 2) = (/ &
+        & 0.96480e+02_rb,0.32371e+03_rb,0.44252e+03_rb,0.29912e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,16, 2) = (/ &
+        & 0.96125e+02_rb,0.32343e+03_rb,0.44161e+03_rb,0.29817e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,16, 2) = (/ &
+        & 0.95814e+02_rb,0.32311e+03_rb,0.44081e+03_rb,0.29733e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,16, 2) = (/ &
+        & 0.95541e+02_rb,0.32273e+03_rb,0.44010e+03_rb,0.29661e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,17, 2) = (/ &
+        & 0.95833e+02_rb,0.32316e+03_rb,0.44086e+03_rb,0.29737e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,17, 2) = (/ &
+        & 0.95501e+02_rb,0.32297e+03_rb,0.44000e+03_rb,0.29648e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,17, 2) = (/ &
+        & 0.95214e+02_rb,0.32274e+03_rb,0.43925e+03_rb,0.29569e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,17, 2) = (/ &
+        & 0.94964e+02_rb,0.32245e+03_rb,0.43860e+03_rb,0.29502e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,17, 2) = (/ &
+        & 0.94743e+02_rb,0.32210e+03_rb,0.43803e+03_rb,0.29442e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,18, 2) = (/ &
+        & 0.94974e+02_rb,0.32251e+03_rb,0.43863e+03_rb,0.29504e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,18, 2) = (/ &
+        & 0.94707e+02_rb,0.32236e+03_rb,0.43793e+03_rb,0.29432e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,18, 2) = (/ &
+        & 0.94475e+02_rb,0.32217e+03_rb,0.43733e+03_rb,0.29369e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,18, 2) = (/ &
+        & 0.94272e+02_rb,0.32191e+03_rb,0.43680e+03_rb,0.29315e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,18, 2) = (/ &
+        & 0.94094e+02_rb,0.32158e+03_rb,0.43633e+03_rb,0.29267e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,19, 2) = (/ &
+        & 0.94277e+02_rb,0.32199e+03_rb,0.43681e+03_rb,0.29316e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,19, 2) = (/ &
+        & 0.94061e+02_rb,0.32187e+03_rb,0.43624e+03_rb,0.29258e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,19, 2) = (/ &
+        & 0.93874e+02_rb,0.32170e+03_rb,0.43575e+03_rb,0.29207e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,19, 2) = (/ &
+        & 0.93711e+02_rb,0.32146e+03_rb,0.43532e+03_rb,0.29164e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,19, 2) = (/ &
+        & 0.93566e+02_rb,0.32115e+03_rb,0.43494e+03_rb,0.29125e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,20, 2) = (/ &
+        & 0.93708e+02_rb,0.32157e+03_rb,0.43531e+03_rb,0.29163e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,20, 2) = (/ &
+        & 0.93534e+02_rb,0.32147e+03_rb,0.43485e+03_rb,0.29117e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,20, 2) = (/ &
+        & 0.93383e+02_rb,0.32132e+03_rb,0.43445e+03_rb,0.29076e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,20, 2) = (/ &
+        & 0.93251e+02_rb,0.32109e+03_rb,0.43411e+03_rb,0.29041e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,20, 2) = (/ &
+        & 0.93135e+02_rb,0.32079e+03_rb,0.43380e+03_rb,0.29010e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,21, 2) = (/ &
+        & 0.93246e+02_rb,0.32122e+03_rb,0.43409e+03_rb,0.29040e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,21, 2) = (/ &
+        & 0.93106e+02_rb,0.32114e+03_rb,0.43372e+03_rb,0.29003e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,21, 2) = (/ &
+        & 0.92985e+02_rb,0.32100e+03_rb,0.43340e+03_rb,0.28970e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,21, 2) = (/ &
+        & 0.92878e+02_rb,0.32079e+03_rb,0.43311e+03_rb,0.28941e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,21, 2) = (/ &
+        & 0.92784e+02_rb,0.32049e+03_rb,0.43286e+03_rb,0.28917e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,22, 2) = (/ &
+        & 0.92863e+02_rb,0.32094e+03_rb,0.43307e+03_rb,0.28938e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,22, 2) = (/ &
+        & 0.92751e+02_rb,0.32087e+03_rb,0.43278e+03_rb,0.28908e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,22, 2) = (/ &
+        & 0.92655e+02_rb,0.32073e+03_rb,0.43252e+03_rb,0.28882e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,22, 2) = (/ &
+        & 0.92569e+02_rb,0.32051e+03_rb,0.43229e+03_rb,0.28860e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,22, 2) = (/ &
+        & 0.92494e+02_rb,0.32022e+03_rb,0.43209e+03_rb,0.28840e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,23, 2) = (/ &
+        & 0.92553e+02_rb,0.32072e+03_rb,0.43225e+03_rb,0.28855e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,23, 2) = (/ &
+        & 0.92465e+02_rb,0.32064e+03_rb,0.43201e+03_rb,0.28832e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,23, 2) = (/ &
+        & 0.92387e+02_rb,0.32050e+03_rb,0.43180e+03_rb,0.28811e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,23, 2) = (/ &
+        & 0.92319e+02_rb,0.32029e+03_rb,0.43162e+03_rb,0.28793e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,23, 2) = (/ &
+        & 0.92259e+02_rb,0.31998e+03_rb,0.43146e+03_rb,0.28778e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,24, 2) = (/ &
+        & 0.92303e+02_rb,0.32053e+03_rb,0.43158e+03_rb,0.28789e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,24, 2) = (/ &
+        & 0.92233e+02_rb,0.32046e+03_rb,0.43139e+03_rb,0.28770e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,24, 2) = (/ &
+        & 0.92171e+02_rb,0.32031e+03_rb,0.43122e+03_rb,0.28754e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,24, 2) = (/ &
+        & 0.92117e+02_rb,0.32009e+03_rb,0.43108e+03_rb,0.28740e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,24, 2) = (/ &
+        & 0.92068e+02_rb,0.31978e+03_rb,0.43095e+03_rb,0.28727e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,25, 2) = (/ &
+        & 0.92101e+02_rb,0.32038e+03_rb,0.43103e+03_rb,0.28736e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,25, 2) = (/ &
+        & 0.92045e+02_rb,0.32030e+03_rb,0.43088e+03_rb,0.28721e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,25, 2) = (/ &
+        & 0.91996e+02_rb,0.32015e+03_rb,0.43075e+03_rb,0.28708e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,25, 2) = (/ &
+        & 0.91952e+02_rb,0.31991e+03_rb,0.43064e+03_rb,0.28696e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,25, 2) = (/ &
+        & 0.91914e+02_rb,0.31959e+03_rb,0.43053e+03_rb,0.28684e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,26, 2) = (/ &
+        & 0.91937e+02_rb,0.32025e+03_rb,0.43059e+03_rb,0.28693e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,26, 2) = (/ &
+        & 0.91892e+02_rb,0.32016e+03_rb,0.43047e+03_rb,0.28680e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,26, 2) = (/ &
+        & 0.91853e+02_rb,0.32000e+03_rb,0.43037e+03_rb,0.28670e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,26, 2) = (/ &
+        & 0.91819e+02_rb,0.31975e+03_rb,0.43028e+03_rb,0.28661e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,26, 2) = (/ &
+        & 0.91788e+02_rb,0.31942e+03_rb,0.43019e+03_rb,0.28653e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,27, 2) = (/ &
+        & 0.91805e+02_rb,0.32015e+03_rb,0.43024e+03_rb,0.28658e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,27, 2) = (/ &
+        & 0.91770e+02_rb,0.32005e+03_rb,0.43014e+03_rb,0.28648e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,27, 2) = (/ &
+        & 0.91738e+02_rb,0.31986e+03_rb,0.43006e+03_rb,0.28630e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,27, 2) = (/ &
+        & 0.91711e+02_rb,0.31960e+03_rb,0.42998e+03_rb,0.28633e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,27, 2) = (/ &
+        & 0.91687e+02_rb,0.31925e+03_rb,0.42992e+03_rb,0.28626e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,28, 2) = (/ &
+        & 0.91698e+02_rb,0.32005e+03_rb,0.42995e+03_rb,0.28628e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,28, 2) = (/ &
+        & 0.91670e+02_rb,0.31994e+03_rb,0.42987e+03_rb,0.28622e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,28, 2) = (/ &
+        & 0.91646e+02_rb,0.31974e+03_rb,0.42981e+03_rb,0.28615e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,28, 2) = (/ &
+        & 0.91624e+02_rb,0.31946e+03_rb,0.42975e+03_rb,0.28609e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,28, 2) = (/ &
+        & 0.91604e+02_rb,0.31910e+03_rb,0.42970e+03_rb,0.28605e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,29, 2) = (/ &
+        & 0.91613e+02_rb,0.31997e+03_rb,0.42972e+03_rb,0.28605e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,29, 2) = (/ &
+        & 0.91591e+02_rb,0.31984e+03_rb,0.42966e+03_rb,0.28600e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,29, 2) = (/ &
+        & 0.91571e+02_rb,0.31963e+03_rb,0.42960e+03_rb,0.28595e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,29, 2) = (/ &
+        & 0.91554e+02_rb,0.31933e+03_rb,0.42956e+03_rb,0.28590e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,29, 2) = (/ &
+        & 0.91538e+02_rb,0.31895e+03_rb,0.42952e+03_rb,0.28586e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,30, 2) = (/ &
+        & 0.91544e+02_rb,0.31990e+03_rb,0.42953e+03_rb,0.28589e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,30, 2) = (/ &
+        & 0.91526e+02_rb,0.31975e+03_rb,0.42948e+03_rb,0.28584e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,30, 2) = (/ &
+        & 0.91511e+02_rb,0.31952e+03_rb,0.42944e+03_rb,0.28580e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,30, 2) = (/ &
+        & 0.91497e+02_rb,0.31920e+03_rb,0.42940e+03_rb,0.28577e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,30, 2) = (/ &
+        & 0.91484e+02_rb,0.31880e+03_rb,0.42937e+03_rb,0.28573e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,31, 2) = (/ &
+        & 0.91488e+02_rb,0.31983e+03_rb,0.42938e+03_rb,0.28574e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,31, 2) = (/ &
+        & 0.91474e+02_rb,0.31966e+03_rb,0.42934e+03_rb,0.28571e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,31, 2) = (/ &
+        & 0.91462e+02_rb,0.31941e+03_rb,0.42931e+03_rb,0.28567e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,31, 2) = (/ &
+        & 0.91451e+02_rb,0.31908e+03_rb,0.42928e+03_rb,0.28564e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,31, 2) = (/ &
+        & 0.91441e+02_rb,0.31866e+03_rb,0.42925e+03_rb,0.28562e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,32, 2) = (/ &
+        & 0.91443e+02_rb,0.31976e+03_rb,0.42926e+03_rb,0.28562e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,32, 2) = (/ &
+        & 0.91432e+02_rb,0.31958e+03_rb,0.42923e+03_rb,0.28559e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,32, 2) = (/ &
+        & 0.91423e+02_rb,0.31930e+03_rb,0.42920e+03_rb,0.28557e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,32, 2) = (/ &
+        & 0.91414e+02_rb,0.31895e+03_rb,0.42918e+03_rb,0.28555e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,32, 2) = (/ &
+        & 0.91406e+02_rb,0.31851e+03_rb,0.42916e+03_rb,0.28551e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,33, 2) = (/ &
+        & 0.91407e+02_rb,0.31970e+03_rb,0.42916e+03_rb,0.28553e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,33, 2) = (/ &
+        & 0.91399e+02_rb,0.31949e+03_rb,0.42914e+03_rb,0.28551e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,33, 2) = (/ &
+        & 0.91391e+02_rb,0.31920e+03_rb,0.42912e+03_rb,0.28549e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,33, 2) = (/ &
+        & 0.91384e+02_rb,0.31882e+03_rb,0.42910e+03_rb,0.28547e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,33, 2) = (/ &
+        & 0.91378e+02_rb,0.31837e+03_rb,0.42908e+03_rb,0.28546e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,34, 2) = (/ &
+        & 0.91379e+02_rb,0.31964e+03_rb,0.42908e+03_rb,0.28546e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,34, 2) = (/ &
+        & 0.91372e+02_rb,0.31941e+03_rb,0.42906e+03_rb,0.28544e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,34, 2) = (/ &
+        & 0.91365e+02_rb,0.31910e+03_rb,0.42905e+03_rb,0.28542e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,34, 2) = (/ &
+        & 0.91360e+02_rb,0.31871e+03_rb,0.42903e+03_rb,0.28541e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,34, 2) = (/ &
+        & 0.91355e+02_rb,0.31824e+03_rb,0.42902e+03_rb,0.28540e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,35, 2) = (/ &
+        & 0.91356e+02_rb,0.31960e+03_rb,0.42902e+03_rb,0.28539e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,35, 2) = (/ &
+        & 0.91350e+02_rb,0.31936e+03_rb,0.42901e+03_rb,0.28538e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,35, 2) = (/ &
+        & 0.91345e+02_rb,0.31904e+03_rb,0.42899e+03_rb,0.28537e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,35, 2) = (/ &
+        & 0.91341e+02_rb,0.31863e+03_rb,0.42898e+03_rb,0.28535e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,35, 2) = (/ &
+        & 0.91337e+02_rb,0.31816e+03_rb,0.42897e+03_rb,0.28535e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,36, 2) = (/ &
+        & 0.91338e+02_rb,0.31958e+03_rb,0.42897e+03_rb,0.28535e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,36, 2) = (/ &
+        & 0.91334e+02_rb,0.31934e+03_rb,0.42896e+03_rb,0.28533e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,36, 2) = (/ &
+        & 0.91330e+02_rb,0.31902e+03_rb,0.42895e+03_rb,0.28533e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,36, 2) = (/ &
+        & 0.91326e+02_rb,0.31862e+03_rb,0.42894e+03_rb,0.28530e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,36, 2) = (/ &
+        & 0.91323e+02_rb,0.31814e+03_rb,0.42893e+03_rb,0.28530e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,37, 2) = (/ &
+        & 0.91324e+02_rb,0.31959e+03_rb,0.42894e+03_rb,0.28531e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,37, 2) = (/ &
+        & 0.91320e+02_rb,0.31937e+03_rb,0.42893e+03_rb,0.28530e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,37, 2) = (/ &
+        & 0.91317e+02_rb,0.31906e+03_rb,0.42892e+03_rb,0.28529e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,37, 2) = (/ &
+        & 0.91314e+02_rb,0.31866e+03_rb,0.42891e+03_rb,0.28529e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,37, 2) = (/ &
+        & 0.91311e+02_rb,0.31819e+03_rb,0.42890e+03_rb,0.28527e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,38, 2) = (/ &
+        & 0.91313e+02_rb,0.31961e+03_rb,0.42890e+03_rb,0.28528e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,38, 2) = (/ &
+        & 0.91310e+02_rb,0.31939e+03_rb,0.42890e+03_rb,0.28528e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,38, 2) = (/ &
+        & 0.91307e+02_rb,0.31910e+03_rb,0.42889e+03_rb,0.28526e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,38, 2) = (/ &
+        & 0.91304e+02_rb,0.31871e+03_rb,0.42888e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,38, 2) = (/ &
+        & 0.91302e+02_rb,0.31826e+03_rb,0.42888e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,39, 2) = (/ &
+        & 0.91303e+02_rb,0.31962e+03_rb,0.42888e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,39, 2) = (/ &
+        & 0.91301e+02_rb,0.31942e+03_rb,0.42887e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,39, 2) = (/ &
+        & 0.91298e+02_rb,0.31914e+03_rb,0.42886e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,39, 2) = (/ &
+        & 0.91296e+02_rb,0.31877e+03_rb,0.42886e+03_rb,0.28524e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,39, 2) = (/ &
+        & 0.91294e+02_rb,0.31832e+03_rb,0.42885e+03_rb,0.28523e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,40, 2) = (/ &
+        & 0.91296e+02_rb,0.31965e+03_rb,0.42886e+03_rb,0.28524e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,40, 2) = (/ &
+        & 0.91293e+02_rb,0.31947e+03_rb,0.42885e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,40, 2) = (/ &
+        & 0.91292e+02_rb,0.31921e+03_rb,0.42885e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,40, 2) = (/ &
+        & 0.91290e+02_rb,0.31886e+03_rb,0.42884e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,40, 2) = (/ &
+        & 0.91288e+02_rb,0.31843e+03_rb,0.42884e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,41, 2) = (/ &
+        & 0.91289e+02_rb,0.31968e+03_rb,0.42884e+03_rb,0.28523e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,41, 2) = (/ &
+        & 0.91288e+02_rb,0.31952e+03_rb,0.42884e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,41, 2) = (/ &
+        & 0.91286e+02_rb,0.31928e+03_rb,0.42883e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,41, 2) = (/ &
+        & 0.91284e+02_rb,0.31895e+03_rb,0.42883e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,41, 2) = (/ &
+        & 0.91283e+02_rb,0.31854e+03_rb,0.42882e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,42, 2) = (/ &
+        & 0.91284e+02_rb,0.31970e+03_rb,0.42883e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,42, 2) = (/ &
+        & 0.91283e+02_rb,0.31957e+03_rb,0.42882e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,42, 2) = (/ &
+        & 0.91281e+02_rb,0.31934e+03_rb,0.42882e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,42, 2) = (/ &
+        & 0.91280e+02_rb,0.31904e+03_rb,0.42882e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,42, 2) = (/ &
+        & 0.91279e+02_rb,0.31865e+03_rb,0.42881e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,43, 2) = (/ &
+        & 0.91280e+02_rb,0.31972e+03_rb,0.42882e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,43, 2) = (/ &
+        & 0.91279e+02_rb,0.31961e+03_rb,0.42881e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,43, 2) = (/ &
+        & 0.91277e+02_rb,0.31942e+03_rb,0.42881e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,43, 2) = (/ &
+        & 0.91276e+02_rb,0.31914e+03_rb,0.42881e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,43, 2) = (/ &
+        & 0.91275e+02_rb,0.31878e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,44, 2) = (/ &
+        & 0.91276e+02_rb,0.31974e+03_rb,0.42881e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,44, 2) = (/ &
+        & 0.91275e+02_rb,0.31966e+03_rb,0.42880e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,44, 2) = (/ &
+        & 0.91274e+02_rb,0.31949e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,44, 2) = (/ &
+        & 0.91273e+02_rb,0.31924e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,44, 2) = (/ &
+        & 0.91273e+02_rb,0.31890e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,45, 2) = (/ &
+        & 0.91274e+02_rb,0.31974e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,45, 2) = (/ &
+        & 0.91273e+02_rb,0.31969e+03_rb,0.42880e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,45, 2) = (/ &
+        & 0.91272e+02_rb,0.31955e+03_rb,0.42879e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,45, 2) = (/ &
+        & 0.91271e+02_rb,0.31933e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,45, 2) = (/ &
+        & 0.91270e+02_rb,0.31903e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,46, 2) = (/ &
+        & 0.91271e+02_rb,0.31974e+03_rb,0.42879e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,46, 2) = (/ &
+        & 0.91270e+02_rb,0.31972e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,46, 2) = (/ &
+        & 0.91270e+02_rb,0.31961e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,46, 2) = (/ &
+        & 0.91269e+02_rb,0.31942e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,46, 2) = (/ &
+        & 0.91268e+02_rb,0.31914e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,47, 2) = (/ &
+        & 0.91269e+02_rb,0.31973e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,47, 2) = (/ &
+        & 0.91268e+02_rb,0.31974e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,47, 2) = (/ &
+        & 0.91268e+02_rb,0.31966e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,47, 2) = (/ &
+        & 0.91267e+02_rb,0.31951e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,47, 2) = (/ &
+        & 0.91267e+02_rb,0.31926e+03_rb,0.42878e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,48, 2) = (/ &
+        & 0.91267e+02_rb,0.31970e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,48, 2) = (/ &
+        & 0.91267e+02_rb,0.31974e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,48, 2) = (/ &
+        & 0.91266e+02_rb,0.31970e+03_rb,0.42878e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,48, 2) = (/ &
+        & 0.91266e+02_rb,0.31958e+03_rb,0.42878e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,48, 2) = (/ &
+        & 0.91265e+02_rb,0.31937e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,49, 2) = (/ &
+        & 0.91266e+02_rb,0.31966e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,49, 2) = (/ &
+        & 0.91265e+02_rb,0.31973e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,49, 2) = (/ &
+        & 0.91265e+02_rb,0.31973e+03_rb,0.42877e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,49, 2) = (/ &
+        & 0.91265e+02_rb,0.31964e+03_rb,0.42878e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,49, 2) = (/ &
+        & 0.91264e+02_rb,0.31946e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,50, 2) = (/ &
+        & 0.91265e+02_rb,0.31962e+03_rb,0.42877e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,50, 2) = (/ &
+        & 0.91264e+02_rb,0.31972e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,50, 2) = (/ &
+        & 0.91264e+02_rb,0.31974e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,50, 2) = (/ &
+        & 0.91264e+02_rb,0.31968e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,50, 2) = (/ &
+        & 0.91263e+02_rb,0.31954e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,51, 2) = (/ &
+        & 0.91264e+02_rb,0.31958e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,51, 2) = (/ &
+        & 0.91263e+02_rb,0.31969e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,51, 2) = (/ &
+        & 0.91263e+02_rb,0.31974e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,51, 2) = (/ &
+        & 0.91263e+02_rb,0.31971e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,51, 2) = (/ &
+        & 0.91262e+02_rb,0.31960e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,52, 2) = (/ &
+        & 0.91263e+02_rb,0.31953e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,52, 2) = (/ &
+        & 0.91263e+02_rb,0.31965e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,52, 2) = (/ &
+        & 0.91262e+02_rb,0.31973e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,52, 2) = (/ &
+        & 0.91262e+02_rb,0.31973e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,52, 2) = (/ &
+        & 0.91262e+02_rb,0.31965e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,53, 2) = (/ &
+        & 0.91262e+02_rb,0.31948e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,53, 2) = (/ &
+        & 0.91262e+02_rb,0.31961e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,53, 2) = (/ &
+        & 0.91262e+02_rb,0.31971e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,53, 2) = (/ &
+        & 0.91261e+02_rb,0.31974e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,53, 2) = (/ &
+        & 0.91261e+02_rb,0.31969e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,54, 2) = (/ &
+        & 0.91262e+02_rb,0.31942e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,54, 2) = (/ &
+        & 0.91261e+02_rb,0.31957e+03_rb,0.42877e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,54, 2) = (/ &
+        & 0.91261e+02_rb,0.31968e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,54, 2) = (/ &
+        & 0.91261e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,54, 2) = (/ &
+        & 0.91261e+02_rb,0.31971e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,55, 2) = (/ &
+        & 0.91261e+02_rb,0.31937e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,55, 2) = (/ &
+        & 0.91261e+02_rb,0.31953e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,55, 2) = (/ &
+        & 0.91261e+02_rb,0.31965e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,55, 2) = (/ &
+        & 0.91261e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,55, 2) = (/ &
+        & 0.91260e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,56, 2) = (/ &
+        & 0.91261e+02_rb,0.31932e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,56, 2) = (/ &
+        & 0.91260e+02_rb,0.31947e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,56, 2) = (/ &
+        & 0.91260e+02_rb,0.31961e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,56, 2) = (/ &
+        & 0.91260e+02_rb,0.31971e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,56, 2) = (/ &
+        & 0.91260e+02_rb,0.31974e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,57, 2) = (/ &
+        & 0.91260e+02_rb,0.31927e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,57, 2) = (/ &
+        & 0.91260e+02_rb,0.31943e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,57, 2) = (/ &
+        & 0.91260e+02_rb,0.31957e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,57, 2) = (/ &
+        & 0.91260e+02_rb,0.31968e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,57, 2) = (/ &
+        & 0.91260e+02_rb,0.31974e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,58, 2) = (/ &
+        & 0.91260e+02_rb,0.31922e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,58, 2) = (/ &
+        & 0.91260e+02_rb,0.31938e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,58, 2) = (/ &
+        & 0.91260e+02_rb,0.31953e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,58, 2) = (/ &
+        & 0.91260e+02_rb,0.31965e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,58, 2) = (/ &
+        & 0.91260e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,59, 2) = (/ &
+        & 0.91260e+02_rb,0.31920e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 2,59, 2) = (/ &
+        & 0.91260e+02_rb,0.31936e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 3,59, 2) = (/ &
+        & 0.91259e+02_rb,0.31952e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)
+      kbo(:, 4,59, 2) = (/ &
+        & 0.91259e+02_rb,0.31964e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 5,59, 2) = (/ &
+        & 0.91259e+02_rb,0.31972e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)
+      kbo(:, 1,13, 3) = (/ &
+        & 0.26463e+03_rb,0.36163e+03_rb,0.49889e+03_rb,0.32504e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,13, 3) = (/ &
+        & 0.26258e+03_rb,0.36010e+03_rb,0.49695e+03_rb,0.32345e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,13, 3) = (/ &
+        & 0.26083e+03_rb,0.35879e+03_rb,0.49519e+03_rb,0.32209e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,13, 3) = (/ &
+        & 0.25930e+03_rb,0.35766e+03_rb,0.49360e+03_rb,0.32093e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,13, 3) = (/ &
+        & 0.25795e+03_rb,0.35666e+03_rb,0.49217e+03_rb,0.31991e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,14, 3) = (/ &
+        & 0.25951e+03_rb,0.35782e+03_rb,0.49358e+03_rb,0.32109e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,14, 3) = (/ &
+        & 0.25786e+03_rb,0.35659e+03_rb,0.49191e+03_rb,0.31984e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,14, 3) = (/ &
+        & 0.25644e+03_rb,0.35554e+03_rb,0.49043e+03_rb,0.31877e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,14, 3) = (/ &
+        & 0.25520e+03_rb,0.35461e+03_rb,0.48912e+03_rb,0.31784e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,14, 3) = (/ &
+        & 0.25411e+03_rb,0.35381e+03_rb,0.48795e+03_rb,0.31704e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,15, 3) = (/ &
+        & 0.25534e+03_rb,0.35471e+03_rb,0.48908e+03_rb,0.31794e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,15, 3) = (/ &
+        & 0.25401e+03_rb,0.35373e+03_rb,0.48771e+03_rb,0.31695e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,15, 3) = (/ &
+        & 0.25286e+03_rb,0.35287e+03_rb,0.48651e+03_rb,0.31610e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,15, 3) = (/ &
+        & 0.25186e+03_rb,0.35213e+03_rb,0.48543e+03_rb,0.31537e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,15, 3) = (/ &
+        & 0.25098e+03_rb,0.35147e+03_rb,0.48447e+03_rb,0.31472e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,16, 3) = (/ &
+        & 0.25194e+03_rb,0.35219e+03_rb,0.48538e+03_rb,0.31543e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,16, 3) = (/ &
+        & 0.25087e+03_rb,0.35140e+03_rb,0.48427e+03_rb,0.31463e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,16, 3) = (/ &
+        & 0.24994e+03_rb,0.35071e+03_rb,0.48328e+03_rb,0.31395e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,16, 3) = (/ &
+        & 0.24914e+03_rb,0.35011e+03_rb,0.48239e+03_rb,0.31337e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,16, 3) = (/ &
+        & 0.24843e+03_rb,0.34958e+03_rb,0.48159e+03_rb,0.31282e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,17, 3) = (/ &
+        & 0.24919e+03_rb,0.35014e+03_rb,0.48236e+03_rb,0.31341e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,17, 3) = (/ &
+        & 0.24832e+03_rb,0.34950e+03_rb,0.48145e+03_rb,0.31278e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,17, 3) = (/ &
+        & 0.24758e+03_rb,0.34895e+03_rb,0.48063e+03_rb,0.31225e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,17, 3) = (/ &
+        & 0.24693e+03_rb,0.34847e+03_rb,0.47989e+03_rb,0.31178e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,17, 3) = (/ &
+        & 0.24635e+03_rb,0.34804e+03_rb,0.47924e+03_rb,0.31137e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,18, 3) = (/ &
+        & 0.24695e+03_rb,0.34848e+03_rb,0.47988e+03_rb,0.31180e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,18, 3) = (/ &
+        & 0.24626e+03_rb,0.34797e+03_rb,0.47913e+03_rb,0.31130e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,18, 3) = (/ &
+        & 0.24565e+03_rb,0.34752e+03_rb,0.47845e+03_rb,0.31086e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,18, 3) = (/ &
+        & 0.24513e+03_rb,0.34713e+03_rb,0.47784e+03_rb,0.31048e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,18, 3) = (/ &
+        & 0.24466e+03_rb,0.34679e+03_rb,0.47731e+03_rb,0.31015e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,19, 3) = (/ &
+        & 0.24514e+03_rb,0.34714e+03_rb,0.47784e+03_rb,0.31049e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,19, 3) = (/ &
+        & 0.24458e+03_rb,0.34672e+03_rb,0.47721e+03_rb,0.31009e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,19, 3) = (/ &
+        & 0.24409e+03_rb,0.34636e+03_rb,0.47665e+03_rb,0.30974e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,19, 3) = (/ &
+        & 0.24367e+03_rb,0.34605e+03_rb,0.47616e+03_rb,0.30943e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,19, 3) = (/ &
+        & 0.24329e+03_rb,0.34577e+03_rb,0.47573e+03_rb,0.30916e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,20, 3) = (/ &
+        & 0.24366e+03_rb,0.34604e+03_rb,0.47615e+03_rb,0.30943e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,20, 3) = (/ &
+        & 0.24321e+03_rb,0.34571e+03_rb,0.47563e+03_rb,0.30910e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,20, 3) = (/ &
+        & 0.24282e+03_rb,0.34542e+03_rb,0.47518e+03_rb,0.30882e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,20, 3) = (/ &
+        & 0.24247e+03_rb,0.34516e+03_rb,0.47478e+03_rb,0.30857e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,20, 3) = (/ &
+        & 0.24217e+03_rb,0.34494e+03_rb,0.47443e+03_rb,0.30835e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,21, 3) = (/ &
+        & 0.24246e+03_rb,0.34515e+03_rb,0.47476e+03_rb,0.30856e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,21, 3) = (/ &
+        & 0.24210e+03_rb,0.34488e+03_rb,0.47434e+03_rb,0.30830e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,21, 3) = (/ &
+        & 0.24178e+03_rb,0.34465e+03_rb,0.47397e+03_rb,0.30807e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,21, 3) = (/ &
+        & 0.24150e+03_rb,0.34444e+03_rb,0.47364e+03_rb,0.30787e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,21, 3) = (/ &
+        & 0.24126e+03_rb,0.34426e+03_rb,0.47341e+03_rb,0.30769e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,22, 3) = (/ &
+        & 0.24146e+03_rb,0.34441e+03_rb,0.47360e+03_rb,0.30784e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,22, 3) = (/ &
+        & 0.24117e+03_rb,0.34420e+03_rb,0.47327e+03_rb,0.30763e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,22, 3) = (/ &
+        & 0.24092e+03_rb,0.34401e+03_rb,0.47296e+03_rb,0.30745e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,22, 3) = (/ &
+        & 0.24070e+03_rb,0.34385e+03_rb,0.47270e+03_rb,0.30729e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,22, 3) = (/ &
+        & 0.24050e+03_rb,0.34370e+03_rb,0.47246e+03_rb,0.30715e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,23, 3) = (/ &
+        & 0.24066e+03_rb,0.34382e+03_rb,0.47265e+03_rb,0.30726e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,23, 3) = (/ &
+        & 0.24043e+03_rb,0.34365e+03_rb,0.47237e+03_rb,0.30709e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,23, 3) = (/ &
+        & 0.24023e+03_rb,0.34350e+03_rb,0.47213e+03_rb,0.30695e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,23, 3) = (/ &
+        & 0.24005e+03_rb,0.34336e+03_rb,0.47191e+03_rb,0.30682e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,23, 3) = (/ &
+        & 0.23989e+03_rb,0.34325e+03_rb,0.47173e+03_rb,0.30671e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,24, 3) = (/ &
+        & 0.24001e+03_rb,0.34333e+03_rb,0.47187e+03_rb,0.30679e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,24, 3) = (/ &
+        & 0.23982e+03_rb,0.34320e+03_rb,0.47164e+03_rb,0.30666e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,24, 3) = (/ &
+        & 0.23966e+03_rb,0.34308e+03_rb,0.47145e+03_rb,0.30654e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,24, 3) = (/ &
+        & 0.23952e+03_rb,0.34297e+03_rb,0.47128e+03_rb,0.30644e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,24, 3) = (/ &
+        & 0.23940e+03_rb,0.34288e+03_rb,0.47113e+03_rb,0.30635e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,25, 3) = (/ &
+        & 0.23948e+03_rb,0.34294e+03_rb,0.47124e+03_rb,0.30641e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,25, 3) = (/ &
+        & 0.23934e+03_rb,0.34284e+03_rb,0.47105e+03_rb,0.30631e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,25, 3) = (/ &
+        & 0.23921e+03_rb,0.34274e+03_rb,0.47089e+03_rb,0.30622e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,25, 3) = (/ &
+        & 0.23910e+03_rb,0.34266e+03_rb,0.47075e+03_rb,0.30613e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,25, 3) = (/ &
+        & 0.23900e+03_rb,0.34258e+03_rb,0.47063e+03_rb,0.30606e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,26, 3) = (/ &
+        & 0.23906e+03_rb,0.34263e+03_rb,0.47070e+03_rb,0.30610e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,26, 3) = (/ &
+        & 0.23894e+03_rb,0.34254e+03_rb,0.47056e+03_rb,0.30602e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,26, 3) = (/ &
+        & 0.23884e+03_rb,0.34247e+03_rb,0.47044e+03_rb,0.30595e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,26, 3) = (/ &
+        & 0.23875e+03_rb,0.34240e+03_rb,0.47033e+03_rb,0.30588e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,26, 3) = (/ &
+        & 0.23867e+03_rb,0.34234e+03_rb,0.47023e+03_rb,0.30583e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,27, 3) = (/ &
+        & 0.23871e+03_rb,0.34237e+03_rb,0.47028e+03_rb,0.30586e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,27, 3) = (/ &
+        & 0.23862e+03_rb,0.34230e+03_rb,0.47017e+03_rb,0.30579e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,27, 3) = (/ &
+        & 0.23854e+03_rb,0.34225e+03_rb,0.47007e+03_rb,0.30573e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,27, 3) = (/ &
+        & 0.23847e+03_rb,0.34219e+03_rb,0.46998e+03_rb,0.30568e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,27, 3) = (/ &
+        & 0.23840e+03_rb,0.34214e+03_rb,0.46990e+03_rb,0.30564e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,28, 3) = (/ &
+        & 0.23844e+03_rb,0.34217e+03_rb,0.46994e+03_rb,0.30566e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,28, 3) = (/ &
+        & 0.23836e+03_rb,0.34211e+03_rb,0.46985e+03_rb,0.30561e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,28, 3) = (/ &
+        & 0.23830e+03_rb,0.34207e+03_rb,0.46977e+03_rb,0.30556e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,28, 3) = (/ &
+        & 0.23824e+03_rb,0.34202e+03_rb,0.46970e+03_rb,0.30552e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,28, 3) = (/ &
+        & 0.23819e+03_rb,0.34198e+03_rb,0.46964e+03_rb,0.30548e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,29, 3) = (/ &
+        & 0.23821e+03_rb,0.34200e+03_rb,0.46966e+03_rb,0.30550e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,29, 3) = (/ &
+        & 0.23815e+03_rb,0.34196e+03_rb,0.46959e+03_rb,0.30546e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,29, 3) = (/ &
+        & 0.23810e+03_rb,0.34192e+03_rb,0.46953e+03_rb,0.30542e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,29, 3) = (/ &
+        & 0.23806e+03_rb,0.34189e+03_rb,0.46948e+03_rb,0.30539e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,29, 3) = (/ &
+        & 0.23802e+03_rb,0.34185e+03_rb,0.46942e+03_rb,0.30536e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,30, 3) = (/ &
+        & 0.23803e+03_rb,0.34187e+03_rb,0.46944e+03_rb,0.30537e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,30, 3) = (/ &
+        & 0.23799e+03_rb,0.34184e+03_rb,0.46939e+03_rb,0.30533e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,30, 3) = (/ &
+        & 0.23795e+03_rb,0.34180e+03_rb,0.46934e+03_rb,0.30531e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,30, 3) = (/ &
+        & 0.23791e+03_rb,0.34178e+03_rb,0.46929e+03_rb,0.30528e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,30, 3) = (/ &
+        & 0.23788e+03_rb,0.34175e+03_rb,0.46925e+03_rb,0.30526e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,31, 3) = (/ &
+        & 0.23789e+03_rb,0.34176e+03_rb,0.46926e+03_rb,0.30526e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,31, 3) = (/ &
+        & 0.23785e+03_rb,0.34173e+03_rb,0.46922e+03_rb,0.30524e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,31, 3) = (/ &
+        & 0.23782e+03_rb,0.34171e+03_rb,0.46918e+03_rb,0.30521e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,31, 3) = (/ &
+        & 0.23779e+03_rb,0.34169e+03_rb,0.46914e+03_rb,0.30519e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,31, 3) = (/ &
+        & 0.23777e+03_rb,0.34167e+03_rb,0.46911e+03_rb,0.30518e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,32, 3) = (/ &
+        & 0.23777e+03_rb,0.34168e+03_rb,0.46912e+03_rb,0.30518e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,32, 3) = (/ &
+        & 0.23774e+03_rb,0.34166e+03_rb,0.46908e+03_rb,0.30516e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,32, 3) = (/ &
+        & 0.23772e+03_rb,0.34163e+03_rb,0.46905e+03_rb,0.30514e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,32, 3) = (/ &
+        & 0.23770e+03_rb,0.34162e+03_rb,0.46902e+03_rb,0.30512e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,32, 3) = (/ &
+        & 0.23767e+03_rb,0.34160e+03_rb,0.46900e+03_rb,0.30511e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,33, 3) = (/ &
+        & 0.23768e+03_rb,0.34161e+03_rb,0.46900e+03_rb,0.30511e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,33, 3) = (/ &
+        & 0.23766e+03_rb,0.34159e+03_rb,0.46897e+03_rb,0.30510e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,33, 3) = (/ &
+        & 0.23764e+03_rb,0.34157e+03_rb,0.46895e+03_rb,0.30508e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,33, 3) = (/ &
+        & 0.23762e+03_rb,0.34156e+03_rb,0.46893e+03_rb,0.30507e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,33, 3) = (/ &
+        & 0.23760e+03_rb,0.34154e+03_rb,0.46891e+03_rb,0.30506e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,34, 3) = (/ &
+        & 0.23760e+03_rb,0.34155e+03_rb,0.46891e+03_rb,0.30506e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,34, 3) = (/ &
+        & 0.23759e+03_rb,0.34154e+03_rb,0.46889e+03_rb,0.30505e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,34, 3) = (/ &
+        & 0.23757e+03_rb,0.34152e+03_rb,0.46887e+03_rb,0.30503e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,34, 3) = (/ &
+        & 0.23756e+03_rb,0.34151e+03_rb,0.46885e+03_rb,0.30502e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,34, 3) = (/ &
+        & 0.23754e+03_rb,0.34150e+03_rb,0.46883e+03_rb,0.30501e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,35, 3) = (/ &
+        & 0.23755e+03_rb,0.34151e+03_rb,0.46884e+03_rb,0.30502e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,35, 3) = (/ &
+        & 0.23753e+03_rb,0.34150e+03_rb,0.46882e+03_rb,0.30501e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,35, 3) = (/ &
+        & 0.23752e+03_rb,0.34148e+03_rb,0.46880e+03_rb,0.30500e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,35, 3) = (/ &
+        & 0.23751e+03_rb,0.34147e+03_rb,0.46879e+03_rb,0.30499e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,35, 3) = (/ &
+        & 0.23750e+03_rb,0.34146e+03_rb,0.46878e+03_rb,0.30498e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,36, 3) = (/ &
+        & 0.23750e+03_rb,0.34147e+03_rb,0.46878e+03_rb,0.30498e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,36, 3) = (/ &
+        & 0.23749e+03_rb,0.34146e+03_rb,0.46877e+03_rb,0.30497e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,36, 3) = (/ &
+        & 0.23748e+03_rb,0.34145e+03_rb,0.46875e+03_rb,0.30497e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,36, 3) = (/ &
+        & 0.23747e+03_rb,0.34144e+03_rb,0.46874e+03_rb,0.30496e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,36, 3) = (/ &
+        & 0.23746e+03_rb,0.34144e+03_rb,0.46873e+03_rb,0.30495e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,37, 3) = (/ &
+        & 0.23746e+03_rb,0.34145e+03_rb,0.46874e+03_rb,0.30496e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,37, 3) = (/ &
+        & 0.23745e+03_rb,0.34144e+03_rb,0.46872e+03_rb,0.30495e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,37, 3) = (/ &
+        & 0.23744e+03_rb,0.34143e+03_rb,0.46871e+03_rb,0.30494e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,37, 3) = (/ &
+        & 0.23744e+03_rb,0.34142e+03_rb,0.46870e+03_rb,0.30494e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,37, 3) = (/ &
+        & 0.23743e+03_rb,0.34141e+03_rb,0.46869e+03_rb,0.30493e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,38, 3) = (/ &
+        & 0.23743e+03_rb,0.34143e+03_rb,0.46870e+03_rb,0.30493e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,38, 3) = (/ &
+        & 0.23742e+03_rb,0.34142e+03_rb,0.46869e+03_rb,0.30493e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,38, 3) = (/ &
+        & 0.23742e+03_rb,0.34141e+03_rb,0.46868e+03_rb,0.30492e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,38, 3) = (/ &
+        & 0.23741e+03_rb,0.34140e+03_rb,0.46867e+03_rb,0.30492e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,38, 3) = (/ &
+        & 0.23740e+03_rb,0.34140e+03_rb,0.46866e+03_rb,0.30491e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,39, 3) = (/ &
+        & 0.23741e+03_rb,0.34141e+03_rb,0.46867e+03_rb,0.30492e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,39, 3) = (/ &
+        & 0.23740e+03_rb,0.34140e+03_rb,0.46866e+03_rb,0.30491e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,39, 3) = (/ &
+        & 0.23739e+03_rb,0.34139e+03_rb,0.46865e+03_rb,0.30491e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,39, 3) = (/ &
+        & 0.23739e+03_rb,0.34139e+03_rb,0.46865e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,39, 3) = (/ &
+        & 0.23738e+03_rb,0.34138e+03_rb,0.46864e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,40, 3) = (/ &
+        & 0.23739e+03_rb,0.34139e+03_rb,0.46864e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,40, 3) = (/ &
+        & 0.23738e+03_rb,0.34139e+03_rb,0.46864e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,40, 3) = (/ &
+        & 0.23738e+03_rb,0.34138e+03_rb,0.46863e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,40, 3) = (/ &
+        & 0.23737e+03_rb,0.34138e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,40, 3) = (/ &
+        & 0.23737e+03_rb,0.34137e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,41, 3) = (/ &
+        & 0.23737e+03_rb,0.34138e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,41, 3) = (/ &
+        & 0.23737e+03_rb,0.34138e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,41, 3) = (/ &
+        & 0.23736e+03_rb,0.34137e+03_rb,0.46861e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,41, 3) = (/ &
+        & 0.23736e+03_rb,0.34137e+03_rb,0.46861e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,41, 3) = (/ &
+        & 0.23736e+03_rb,0.34136e+03_rb,0.46860e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,42, 3) = (/ &
+        & 0.23736e+03_rb,0.34137e+03_rb,0.46861e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,42, 3) = (/ &
+        & 0.23735e+03_rb,0.34137e+03_rb,0.46860e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,42, 3) = (/ &
+        & 0.23735e+03_rb,0.34136e+03_rb,0.46860e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,42, 3) = (/ &
+        & 0.23735e+03_rb,0.34136e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,42, 3) = (/ &
+        & 0.23734e+03_rb,0.34135e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,43, 3) = (/ &
+        & 0.23735e+03_rb,0.34136e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,43, 3) = (/ &
+        & 0.23734e+03_rb,0.34136e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,43, 3) = (/ &
+        & 0.23734e+03_rb,0.34136e+03_rb,0.46858e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,43, 3) = (/ &
+        & 0.23734e+03_rb,0.34135e+03_rb,0.46858e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,43, 3) = (/ &
+        & 0.23734e+03_rb,0.34135e+03_rb,0.46858e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,44, 3) = (/ &
+        & 0.23734e+03_rb,0.34136e+03_rb,0.46858e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,44, 3) = (/ &
+        & 0.23734e+03_rb,0.34135e+03_rb,0.46858e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,44, 3) = (/ &
+        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,44, 3) = (/ &
+        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,44, 3) = (/ &
+        & 0.23733e+03_rb,0.34134e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,45, 3) = (/ &
+        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,45, 3) = (/ &
+        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,45, 3) = (/ &
+        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,45, 3) = (/ &
+        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,45, 3) = (/ &
+        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,46, 3) = (/ &
+        & 0.23732e+03_rb,0.34135e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,46, 3) = (/ &
+        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,46, 3) = (/ &
+        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,46, 3) = (/ &
+        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,46, 3) = (/ &
+        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,47, 3) = (/ &
+        & 0.23732e+03_rb,0.34135e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,47, 3) = (/ &
+        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,47, 3) = (/ &
+        & 0.23732e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,47, 3) = (/ &
+        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,47, 3) = (/ &
+        & 0.23731e+03_rb,0.34133e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,48, 3) = (/ &
+        & 0.23731e+03_rb,0.34135e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,48, 3) = (/ &
+        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,48, 3) = (/ &
+        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,48, 3) = (/ &
+        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,48, 3) = (/ &
+        & 0.23731e+03_rb,0.34133e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,49, 3) = (/ &
+        & 0.23731e+03_rb,0.34135e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,49, 3) = (/ &
+        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,49, 3) = (/ &
+        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,49, 3) = (/ &
+        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,49, 3) = (/ &
+        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,50, 3) = (/ &
+        & 0.23731e+03_rb,0.34136e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,50, 3) = (/ &
+        & 0.23731e+03_rb,0.34134e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,50, 3) = (/ &
+        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,50, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,50, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,51, 3) = (/ &
+        & 0.23731e+03_rb,0.34136e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,51, 3) = (/ &
+        & 0.23730e+03_rb,0.34134e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,51, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,51, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,51, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,52, 3) = (/ &
+        & 0.23730e+03_rb,0.34136e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,52, 3) = (/ &
+        & 0.23730e+03_rb,0.34135e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,52, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,52, 3) = (/ &
+        & 0.23730e+03_rb,0.34132e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,52, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,53, 3) = (/ &
+        & 0.23730e+03_rb,0.34137e+03_rb,0.46851e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,53, 3) = (/ &
+        & 0.23730e+03_rb,0.34135e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,53, 3) = (/ &
+        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,53, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,53, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,54, 3) = (/ &
+        & 0.23730e+03_rb,0.34137e+03_rb,0.46849e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,54, 3) = (/ &
+        & 0.23730e+03_rb,0.34136e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,54, 3) = (/ &
+        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,54, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,54, 3) = (/ &
+        & 0.23730e+03_rb,0.34132e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,55, 3) = (/ &
+        & 0.23730e+03_rb,0.34138e+03_rb,0.46847e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,55, 3) = (/ &
+        & 0.23730e+03_rb,0.34136e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,55, 3) = (/ &
+        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,55, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,55, 3) = (/ &
+        & 0.23730e+03_rb,0.34132e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,56, 3) = (/ &
+        & 0.23730e+03_rb,0.34139e+03_rb,0.46844e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,56, 3) = (/ &
+        & 0.23730e+03_rb,0.34137e+03_rb,0.46850e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,56, 3) = (/ &
+        & 0.23730e+03_rb,0.34135e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,56, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,56, 3) = (/ &
+        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,57, 3) = (/ &
+        & 0.23730e+03_rb,0.34140e+03_rb,0.46840e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,57, 3) = (/ &
+        & 0.23730e+03_rb,0.34137e+03_rb,0.46849e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,57, 3) = (/ &
+        & 0.23730e+03_rb,0.34135e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,57, 3) = (/ &
+        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,57, 3) = (/ &
+        & 0.23729e+03_rb,0.34132e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,58, 3) = (/ &
+        & 0.23730e+03_rb,0.34140e+03_rb,0.46837e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,58, 3) = (/ &
+        & 0.23729e+03_rb,0.34138e+03_rb,0.46847e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,58, 3) = (/ &
+        & 0.23729e+03_rb,0.34136e+03_rb,0.46851e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,58, 3) = (/ &
+        & 0.23729e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,58, 3) = (/ &
+        & 0.23729e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,59, 3) = (/ &
+        & 0.23729e+03_rb,0.34141e+03_rb,0.46835e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 2,59, 3) = (/ &
+        & 0.23729e+03_rb,0.34138e+03_rb,0.46846e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)
+      kbo(:, 3,59, 3) = (/ &
+        & 0.23729e+03_rb,0.34136e+03_rb,0.46851e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)
+      kbo(:, 4,59, 3) = (/ &
+        & 0.23729e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)
+      kbo(:, 5,59, 3) = (/ &
+        & 0.23729e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)
+      kbo(:, 1,13, 4) = (/ &
+        & 0.51214e+03_rb,0.47089e+03_rb,0.53698e+03_rb,0.40623e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,13, 4) = (/ &
+        & 0.50819e+03_rb,0.46793e+03_rb,0.53525e+03_rb,0.40532e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,13, 4) = (/ &
+        & 0.50478e+03_rb,0.46537e+03_rb,0.53379e+03_rb,0.40453e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,13, 4) = (/ &
+        & 0.50182e+03_rb,0.46315e+03_rb,0.53251e+03_rb,0.40385e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,13, 4) = (/ &
+        & 0.49922e+03_rb,0.46120e+03_rb,0.53137e+03_rb,0.40325e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,14, 4) = (/ &
+        & 0.50224e+03_rb,0.46346e+03_rb,0.53224e+03_rb,0.40395e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,14, 4) = (/ &
+        & 0.49905e+03_rb,0.46107e+03_rb,0.53090e+03_rb,0.40321e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,14, 4) = (/ &
+        & 0.49629e+03_rb,0.45901e+03_rb,0.52974e+03_rb,0.40258e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,14, 4) = (/ &
+        & 0.49390e+03_rb,0.45721e+03_rb,0.52871e+03_rb,0.40203e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,14, 4) = (/ &
+        & 0.49179e+03_rb,0.45563e+03_rb,0.52774e+03_rb,0.40154e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,15, 4) = (/ &
+        & 0.49416e+03_rb,0.45741e+03_rb,0.52835e+03_rb,0.40209e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,15, 4) = (/ &
+        & 0.49159e+03_rb,0.45548e+03_rb,0.52725e+03_rb,0.40149e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,15, 4) = (/ &
+        & 0.48937e+03_rb,0.45381e+03_rb,0.52626e+03_rb,0.40098e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,15, 4) = (/ &
+        & 0.48743e+03_rb,0.45236e+03_rb,0.52534e+03_rb,0.40054e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,15, 4) = (/ &
+        & 0.48573e+03_rb,0.45108e+03_rb,0.52448e+03_rb,0.40015e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,16, 4) = (/ &
+        & 0.48759e+03_rb,0.45248e+03_rb,0.52492e+03_rb,0.40057e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,16, 4) = (/ &
+        & 0.48552e+03_rb,0.45092e+03_rb,0.52397e+03_rb,0.40010e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,16, 4) = (/ &
+        & 0.48373e+03_rb,0.44958e+03_rb,0.52310e+03_rb,0.39968e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,16, 4) = (/ &
+        & 0.48216e+03_rb,0.44841e+03_rb,0.52232e+03_rb,0.39932e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,16, 4) = (/ &
+        & 0.48079e+03_rb,0.44738e+03_rb,0.52159e+03_rb,0.39901e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,17, 4) = (/ &
+        & 0.48226e+03_rb,0.44848e+03_rb,0.52188e+03_rb,0.39935e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,17, 4) = (/ &
+        & 0.48059e+03_rb,0.44723e+03_rb,0.52110e+03_rb,0.39896e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,17, 4) = (/ &
+        & 0.47915e+03_rb,0.44615e+03_rb,0.52038e+03_rb,0.39863e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,17, 4) = (/ &
+        & 0.47788e+03_rb,0.44520e+03_rb,0.51974e+03_rb,0.39834e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,17, 4) = (/ &
+        & 0.47677e+03_rb,0.44437e+03_rb,0.51913e+03_rb,0.39808e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,18, 4) = (/ &
+        & 0.47794e+03_rb,0.44524e+03_rb,0.51928e+03_rb,0.39835e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,18, 4) = (/ &
+        & 0.47659e+03_rb,0.44423e+03_rb,0.51865e+03_rb,0.39804e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,18, 4) = (/ &
+        & 0.47542e+03_rb,0.44336e+03_rb,0.51808e+03_rb,0.39777e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,18, 4) = (/ &
+        & 0.47441e+03_rb,0.44259e+03_rb,0.51755e+03_rb,0.39754e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,18, 4) = (/ &
+        & 0.47351e+03_rb,0.44192e+03_rb,0.51705e+03_rb,0.39733e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,19, 4) = (/ &
+        & 0.47443e+03_rb,0.44261e+03_rb,0.51710e+03_rb,0.39754e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,19, 4) = (/ &
+        & 0.47334e+03_rb,0.44179e+03_rb,0.51660e+03_rb,0.39729e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,19, 4) = (/ &
+        & 0.47240e+03_rb,0.44109e+03_rb,0.51615e+03_rb,0.39708e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,19, 4) = (/ &
+        & 0.47158e+03_rb,0.44047e+03_rb,0.51573e+03_rb,0.39689e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,19, 4) = (/ &
+        & 0.47085e+03_rb,0.43993e+03_rb,0.51533e+03_rb,0.39672e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,20, 4) = (/ &
+        & 0.47156e+03_rb,0.44046e+03_rb,0.51527e+03_rb,0.39688e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,20, 4) = (/ &
+        & 0.47069e+03_rb,0.43980e+03_rb,0.51490e+03_rb,0.39668e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,20, 4) = (/ &
+        & 0.46993e+03_rb,0.43924e+03_rb,0.51455e+03_rb,0.39651e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,20, 4) = (/ &
+        & 0.46927e+03_rb,0.43874e+03_rb,0.51422e+03_rb,0.39635e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,20, 4) = (/ &
+        & 0.46868e+03_rb,0.43830e+03_rb,0.51389e+03_rb,0.39622e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,21, 4) = (/ &
+        & 0.46924e+03_rb,0.43872e+03_rb,0.51377e+03_rb,0.39635e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,21, 4) = (/ &
+        & 0.46853e+03_rb,0.43819e+03_rb,0.51350e+03_rb,0.39619e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,21, 4) = (/ &
+        & 0.46792e+03_rb,0.43773e+03_rb,0.51323e+03_rb,0.39604e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,21, 4) = (/ &
+        & 0.46739e+03_rb,0.43733e+03_rb,0.51296e+03_rb,0.39592e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,21, 4) = (/ &
+        & 0.46692e+03_rb,0.43697e+03_rb,0.51263e+03_rb,0.39581e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,22, 4) = (/ &
+        & 0.46731e+03_rb,0.43727e+03_rb,0.51254e+03_rb,0.39590e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,22, 4) = (/ &
+        & 0.46675e+03_rb,0.43685e+03_rb,0.51231e+03_rb,0.39577e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,22, 4) = (/ &
+        & 0.46626e+03_rb,0.43648e+03_rb,0.51212e+03_rb,0.39566e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,22, 4) = (/ &
+        & 0.46584e+03_rb,0.43616e+03_rb,0.51190e+03_rb,0.39556e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,22, 4) = (/ &
+        & 0.46546e+03_rb,0.43588e+03_rb,0.51168e+03_rb,0.39548e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,23, 4) = (/ &
+        & 0.46575e+03_rb,0.43610e+03_rb,0.51153e+03_rb,0.39554e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,23, 4) = (/ &
+        & 0.46531e+03_rb,0.43577e+03_rb,0.51138e+03_rb,0.39544e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,23, 4) = (/ &
+        & 0.46492e+03_rb,0.43548e+03_rb,0.51122e+03_rb,0.39535e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,23, 4) = (/ &
+        & 0.46458e+03_rb,0.43522e+03_rb,0.51104e+03_rb,0.39527e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,23, 4) = (/ &
+        & 0.46427e+03_rb,0.43499e+03_rb,0.51086e+03_rb,0.39520e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,24, 4) = (/ &
+        & 0.46450e+03_rb,0.43516e+03_rb,0.51071e+03_rb,0.39525e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,24, 4) = (/ &
+        & 0.46414e+03_rb,0.43489e+03_rb,0.51060e+03_rb,0.39517e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,24, 4) = (/ &
+        & 0.46383e+03_rb,0.43466e+03_rb,0.51047e+03_rb,0.39510e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,24, 4) = (/ &
+        & 0.46356e+03_rb,0.43445e+03_rb,0.51033e+03_rb,0.39504e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,24, 4) = (/ &
+        & 0.46331e+03_rb,0.43427e+03_rb,0.51019e+03_rb,0.39498e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,25, 4) = (/ &
+        & 0.46348e+03_rb,0.43439e+03_rb,0.51003e+03_rb,0.39502e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,25, 4) = (/ &
+        & 0.46319e+03_rb,0.43418e+03_rb,0.50997e+03_rb,0.39496e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,25, 4) = (/ &
+        & 0.46295e+03_rb,0.43400e+03_rb,0.50987e+03_rb,0.39490e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,25, 4) = (/ &
+        & 0.46273e+03_rb,0.43383e+03_rb,0.50976e+03_rb,0.39485e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,25, 4) = (/ &
+        & 0.46254e+03_rb,0.43369e+03_rb,0.50965e+03_rb,0.39480e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,26, 4) = (/ &
+        & 0.46265e+03_rb,0.43378e+03_rb,0.50951e+03_rb,0.39483e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,26, 4) = (/ &
+        & 0.46243e+03_rb,0.43361e+03_rb,0.50946e+03_rb,0.39478e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,26, 4) = (/ &
+        & 0.46223e+03_rb,0.43346e+03_rb,0.50938e+03_rb,0.39473e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,26, 4) = (/ &
+        & 0.46206e+03_rb,0.43333e+03_rb,0.50930e+03_rb,0.39469e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,26, 4) = (/ &
+        & 0.46190e+03_rb,0.43321e+03_rb,0.50921e+03_rb,0.39466e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,27, 4) = (/ &
+        & 0.46199e+03_rb,0.43328e+03_rb,0.50908e+03_rb,0.39468e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,27, 4) = (/ &
+        & 0.46181e+03_rb,0.43314e+03_rb,0.50904e+03_rb,0.39464e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,27, 4) = (/ &
+        & 0.46165e+03_rb,0.43303e+03_rb,0.50899e+03_rb,0.39460e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,27, 4) = (/ &
+        & 0.46152e+03_rb,0.43292e+03_rb,0.50892e+03_rb,0.39457e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,27, 4) = (/ &
+        & 0.46139e+03_rb,0.43283e+03_rb,0.50885e+03_rb,0.39454e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,28, 4) = (/ &
+        & 0.46145e+03_rb,0.43288e+03_rb,0.50873e+03_rb,0.39455e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,28, 4) = (/ &
+        & 0.46131e+03_rb,0.43277e+03_rb,0.50871e+03_rb,0.39452e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,28, 4) = (/ &
+        & 0.46119e+03_rb,0.43268e+03_rb,0.50867e+03_rb,0.39449e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,28, 4) = (/ &
+        & 0.46108e+03_rb,0.43259e+03_rb,0.50862e+03_rb,0.39447e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,28, 4) = (/ &
+        & 0.46098e+03_rb,0.43252e+03_rb,0.50856e+03_rb,0.39445e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,29, 4) = (/ &
+        & 0.46102e+03_rb,0.43255e+03_rb,0.50845e+03_rb,0.39445e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,29, 4) = (/ &
+        & 0.46091e+03_rb,0.43247e+03_rb,0.50844e+03_rb,0.39443e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,29, 4) = (/ &
+        & 0.46081e+03_rb,0.43239e+03_rb,0.50842e+03_rb,0.39441e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,29, 4) = (/ &
+        & 0.46072e+03_rb,0.43233e+03_rb,0.50837e+03_rb,0.39439e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,29, 4) = (/ &
+        & 0.46064e+03_rb,0.43227e+03_rb,0.50832e+03_rb,0.39437e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,30, 4) = (/ &
+        & 0.46067e+03_rb,0.43229e+03_rb,0.50823e+03_rb,0.39437e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,30, 4) = (/ &
+        & 0.46058e+03_rb,0.43223e+03_rb,0.50823e+03_rb,0.39435e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,30, 4) = (/ &
+        & 0.46051e+03_rb,0.43217e+03_rb,0.50821e+03_rb,0.39434e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,30, 4) = (/ &
+        & 0.46044e+03_rb,0.43211e+03_rb,0.50818e+03_rb,0.39432e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,30, 4) = (/ &
+        & 0.46037e+03_rb,0.43207e+03_rb,0.50813e+03_rb,0.39431e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,31, 4) = (/ &
+        & 0.46039e+03_rb,0.43208e+03_rb,0.50805e+03_rb,0.39431e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,31, 4) = (/ &
+        & 0.46032e+03_rb,0.43203e+03_rb,0.50805e+03_rb,0.39429e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,31, 4) = (/ &
+        & 0.46026e+03_rb,0.43198e+03_rb,0.50804e+03_rb,0.39428e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,31, 4) = (/ &
+        & 0.46021e+03_rb,0.43194e+03_rb,0.50801e+03_rb,0.39427e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,31, 4) = (/ &
+        & 0.46016e+03_rb,0.43190e+03_rb,0.50797e+03_rb,0.39426e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,32, 4) = (/ &
+        & 0.46017e+03_rb,0.43191e+03_rb,0.50790e+03_rb,0.39426e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,32, 4) = (/ &
+        & 0.46011e+03_rb,0.43187e+03_rb,0.50792e+03_rb,0.39425e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,32, 4) = (/ &
+        & 0.46006e+03_rb,0.43183e+03_rb,0.50791e+03_rb,0.39423e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,32, 4) = (/ &
+        & 0.46002e+03_rb,0.43180e+03_rb,0.50788e+03_rb,0.39422e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,32, 4) = (/ &
+        & 0.45998e+03_rb,0.43177e+03_rb,0.50784e+03_rb,0.39421e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,33, 4) = (/ &
+        & 0.45999e+03_rb,0.43178e+03_rb,0.50779e+03_rb,0.39422e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,33, 4) = (/ &
+        & 0.45994e+03_rb,0.43174e+03_rb,0.50781e+03_rb,0.39421e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,33, 4) = (/ &
+        & 0.45990e+03_rb,0.43171e+03_rb,0.50780e+03_rb,0.39420e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,33, 4) = (/ &
+        & 0.45987e+03_rb,0.43169e+03_rb,0.50777e+03_rb,0.39419e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,33, 4) = (/ &
+        & 0.45984e+03_rb,0.43166e+03_rb,0.50773e+03_rb,0.39418e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,34, 4) = (/ &
+        & 0.45984e+03_rb,0.43167e+03_rb,0.50770e+03_rb,0.39418e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,34, 4) = (/ &
+        & 0.45981e+03_rb,0.43164e+03_rb,0.50772e+03_rb,0.39418e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,34, 4) = (/ &
+        & 0.45978e+03_rb,0.43162e+03_rb,0.50771e+03_rb,0.39417e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,34, 4) = (/ &
+        & 0.45975e+03_rb,0.43160e+03_rb,0.50768e+03_rb,0.39416e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,34, 4) = (/ &
+        & 0.45972e+03_rb,0.43158e+03_rb,0.50764e+03_rb,0.39416e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,35, 4) = (/ &
+        & 0.45973e+03_rb,0.43158e+03_rb,0.50763e+03_rb,0.39416e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,35, 4) = (/ &
+        & 0.45970e+03_rb,0.43156e+03_rb,0.50764e+03_rb,0.39415e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,35, 4) = (/ &
+        & 0.45968e+03_rb,0.43154e+03_rb,0.50764e+03_rb,0.39414e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,35, 4) = (/ &
+        & 0.45965e+03_rb,0.43153e+03_rb,0.50761e+03_rb,0.39414e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,35, 4) = (/ &
+        & 0.45963e+03_rb,0.43151e+03_rb,0.50757e+03_rb,0.39413e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,36, 4) = (/ &
+        & 0.45964e+03_rb,0.43152e+03_rb,0.50757e+03_rb,0.39414e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,36, 4) = (/ &
+        & 0.45962e+03_rb,0.43150e+03_rb,0.50758e+03_rb,0.39413e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,36, 4) = (/ &
+        & 0.45960e+03_rb,0.43148e+03_rb,0.50758e+03_rb,0.39413e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,36, 4) = (/ &
+        & 0.45958e+03_rb,0.43147e+03_rb,0.50756e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,36, 4) = (/ &
+        & 0.45956e+03_rb,0.43146e+03_rb,0.50752e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,37, 4) = (/ &
+        & 0.45957e+03_rb,0.43146e+03_rb,0.50751e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,37, 4) = (/ &
+        & 0.45955e+03_rb,0.43145e+03_rb,0.50753e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,37, 4) = (/ &
+        & 0.45953e+03_rb,0.43144e+03_rb,0.50754e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,37, 4) = (/ &
+        & 0.45952e+03_rb,0.43142e+03_rb,0.50752e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,37, 4) = (/ &
+        & 0.45950e+03_rb,0.43141e+03_rb,0.50748e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,38, 4) = (/ &
+        & 0.45951e+03_rb,0.43142e+03_rb,0.50746e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,38, 4) = (/ &
+        & 0.45950e+03_rb,0.43141e+03_rb,0.50749e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,38, 4) = (/ &
+        & 0.45948e+03_rb,0.43140e+03_rb,0.50750e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,38, 4) = (/ &
+        & 0.45947e+03_rb,0.43139e+03_rb,0.50749e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,38, 4) = (/ &
+        & 0.45946e+03_rb,0.43138e+03_rb,0.50745e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,39, 4) = (/ &
+        & 0.45946e+03_rb,0.43138e+03_rb,0.50742e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,39, 4) = (/ &
+        & 0.45945e+03_rb,0.43137e+03_rb,0.50746e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,39, 4) = (/ &
+        & 0.45944e+03_rb,0.43137e+03_rb,0.50747e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,39, 4) = (/ &
+        & 0.45943e+03_rb,0.43136e+03_rb,0.50746e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,39, 4) = (/ &
+        & 0.45942e+03_rb,0.43135e+03_rb,0.50743e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,40, 4) = (/ &
+        & 0.45943e+03_rb,0.43136e+03_rb,0.50738e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,40, 4) = (/ &
+        & 0.45941e+03_rb,0.43135e+03_rb,0.50742e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,40, 4) = (/ &
+        & 0.45940e+03_rb,0.43134e+03_rb,0.50744e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,40, 4) = (/ &
+        & 0.45940e+03_rb,0.43133e+03_rb,0.50744e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,40, 4) = (/ &
+        & 0.45939e+03_rb,0.43133e+03_rb,0.50742e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,41, 4) = (/ &
+        & 0.45939e+03_rb,0.43133e+03_rb,0.50734e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,41, 4) = (/ &
+        & 0.45938e+03_rb,0.43133e+03_rb,0.50739e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,41, 4) = (/ &
+        & 0.45938e+03_rb,0.43132e+03_rb,0.50742e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,41, 4) = (/ &
+        & 0.45937e+03_rb,0.43131e+03_rb,0.50742e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,41, 4) = (/ &
+        & 0.45936e+03_rb,0.43131e+03_rb,0.50741e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,42, 4) = (/ &
+        & 0.45937e+03_rb,0.43131e+03_rb,0.50731e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,42, 4) = (/ &
+        & 0.45936e+03_rb,0.43131e+03_rb,0.50736e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,42, 4) = (/ &
+        & 0.45935e+03_rb,0.43130e+03_rb,0.50739e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,42, 4) = (/ &
+        & 0.45935e+03_rb,0.43130e+03_rb,0.50741e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,42, 4) = (/ &
+        & 0.45934e+03_rb,0.43129e+03_rb,0.50740e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,43, 4) = (/ &
+        & 0.45935e+03_rb,0.43130e+03_rb,0.50727e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,43, 4) = (/ &
+        & 0.45934e+03_rb,0.43129e+03_rb,0.50733e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,43, 4) = (/ &
+        & 0.45933e+03_rb,0.43129e+03_rb,0.50737e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,43, 4) = (/ &
+        & 0.45933e+03_rb,0.43128e+03_rb,0.50739e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,43, 4) = (/ &
+        & 0.45932e+03_rb,0.43128e+03_rb,0.50739e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,44, 4) = (/ &
+        & 0.45933e+03_rb,0.43128e+03_rb,0.50723e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,44, 4) = (/ &
+        & 0.45932e+03_rb,0.43128e+03_rb,0.50730e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,44, 4) = (/ &
+        & 0.45932e+03_rb,0.43128e+03_rb,0.50735e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,44, 4) = (/ &
+        & 0.45931e+03_rb,0.43127e+03_rb,0.50737e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,44, 4) = (/ &
+        & 0.45931e+03_rb,0.43127e+03_rb,0.50738e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,45, 4) = (/ &
+        & 0.45931e+03_rb,0.43127e+03_rb,0.50718e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,45, 4) = (/ &
+        & 0.45931e+03_rb,0.43127e+03_rb,0.50727e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,45, 4) = (/ &
+        & 0.45930e+03_rb,0.43127e+03_rb,0.50732e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,45, 4) = (/ &
+        & 0.45930e+03_rb,0.43126e+03_rb,0.50736e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,45, 4) = (/ &
+        & 0.45930e+03_rb,0.43126e+03_rb,0.50737e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,46, 4) = (/ &
+        & 0.45930e+03_rb,0.43126e+03_rb,0.50714e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,46, 4) = (/ &
+        & 0.45930e+03_rb,0.43126e+03_rb,0.50723e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,46, 4) = (/ &
+        & 0.45929e+03_rb,0.43126e+03_rb,0.50730e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,46, 4) = (/ &
+        & 0.45929e+03_rb,0.43125e+03_rb,0.50734e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,46, 4) = (/ &
+        & 0.45929e+03_rb,0.43125e+03_rb,0.50736e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,47, 4) = (/ &
+        & 0.45929e+03_rb,0.43126e+03_rb,0.50708e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,47, 4) = (/ &
+        & 0.45929e+03_rb,0.43125e+03_rb,0.50719e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,47, 4) = (/ &
+        & 0.45928e+03_rb,0.43125e+03_rb,0.50727e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,47, 4) = (/ &
+        & 0.45928e+03_rb,0.43125e+03_rb,0.50732e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,47, 4) = (/ &
+        & 0.45928e+03_rb,0.43125e+03_rb,0.50735e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,48, 4) = (/ &
+        & 0.45928e+03_rb,0.43125e+03_rb,0.50701e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,48, 4) = (/ &
+        & 0.45928e+03_rb,0.43125e+03_rb,0.50714e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,48, 4) = (/ &
+        & 0.45928e+03_rb,0.43124e+03_rb,0.50723e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,48, 4) = (/ &
+        & 0.45927e+03_rb,0.43124e+03_rb,0.50729e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,48, 4) = (/ &
+        & 0.45927e+03_rb,0.43124e+03_rb,0.50733e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,49, 4) = (/ &
+        & 0.45928e+03_rb,0.43124e+03_rb,0.50694e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,49, 4) = (/ &
+        & 0.45927e+03_rb,0.43124e+03_rb,0.50709e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,49, 4) = (/ &
+        & 0.45927e+03_rb,0.43124e+03_rb,0.50720e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,49, 4) = (/ &
+        & 0.45927e+03_rb,0.43124e+03_rb,0.50727e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,49, 4) = (/ &
+        & 0.45927e+03_rb,0.43124e+03_rb,0.50732e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,50, 4) = (/ &
+        & 0.45927e+03_rb,0.43124e+03_rb,0.50686e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,50, 4) = (/ &
+        & 0.45927e+03_rb,0.43124e+03_rb,0.50704e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,50, 4) = (/ &
+        & 0.45927e+03_rb,0.43124e+03_rb,0.50716e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,50, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50724e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,50, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50730e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,51, 4) = (/ &
+        & 0.45926e+03_rb,0.43124e+03_rb,0.50679e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,51, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50697e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,51, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50711e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,51, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50721e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,51, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50728e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,52, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50671e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,52, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50691e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,52, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50707e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,52, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50718e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,52, 4) = (/ &
+        & 0.45925e+03_rb,0.43123e+03_rb,0.50725e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,53, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50663e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,53, 4) = (/ &
+        & 0.45926e+03_rb,0.43123e+03_rb,0.50684e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,53, 4) = (/ &
+        & 0.45925e+03_rb,0.43123e+03_rb,0.50701e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,53, 4) = (/ &
+        & 0.45925e+03_rb,0.43123e+03_rb,0.50714e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,53, 4) = (/ &
+        & 0.45925e+03_rb,0.43123e+03_rb,0.50722e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,54, 4) = (/ &
+        & 0.45925e+03_rb,0.43123e+03_rb,0.50655e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,54, 4) = (/ &
+        & 0.45925e+03_rb,0.43123e+03_rb,0.50677e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,54, 4) = (/ &
+        & 0.45925e+03_rb,0.43123e+03_rb,0.50696e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,54, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50710e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,54, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50720e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,55, 4) = (/ &
+        & 0.45925e+03_rb,0.43123e+03_rb,0.50647e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,55, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50670e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,55, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50690e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,55, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50706e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,55, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50717e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,56, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50640e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,56, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50663e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,56, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50683e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,56, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50701e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,56, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50714e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,57, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50632e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,57, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50656e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,57, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50677e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,57, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50696e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,57, 4) = (/ &
+        & 0.45924e+03_rb,0.43122e+03_rb,0.50710e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,58, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50624e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,58, 4) = (/ &
+        & 0.45925e+03_rb,0.43122e+03_rb,0.50648e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,58, 4) = (/ &
+        & 0.45924e+03_rb,0.43122e+03_rb,0.50671e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,58, 4) = (/ &
+        & 0.45924e+03_rb,0.43122e+03_rb,0.50690e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,58, 4) = (/ &
+        & 0.45924e+03_rb,0.43122e+03_rb,0.50706e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,59, 4) = (/ &
+        & 0.45924e+03_rb,0.43122e+03_rb,0.50622e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 2,59, 4) = (/ &
+        & 0.45924e+03_rb,0.43122e+03_rb,0.50645e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 3,59, 4) = (/ &
+        & 0.45924e+03_rb,0.43122e+03_rb,0.50668e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 4,59, 4) = (/ &
+        & 0.45924e+03_rb,0.43122e+03_rb,0.50688e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 5,59, 4) = (/ &
+        & 0.45924e+03_rb,0.43122e+03_rb,0.50704e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)
+      kbo(:, 1,13, 5) = (/ &
+        & 0.78037e+03_rb,0.62743e+03_rb,0.56495e+03_rb,0.56633e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,13, 5) = (/ &
+        & 0.77434e+03_rb,0.62291e+03_rb,0.56343e+03_rb,0.56584e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,13, 5) = (/ &
+        & 0.76915e+03_rb,0.61902e+03_rb,0.56189e+03_rb,0.56542e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,13, 5) = (/ &
+        & 0.76464e+03_rb,0.61563e+03_rb,0.56027e+03_rb,0.56506e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,13, 5) = (/ &
+        & 0.76068e+03_rb,0.61266e+03_rb,0.55865e+03_rb,0.56474e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,14, 5) = (/ &
+        & 0.76527e+03_rb,0.61611e+03_rb,0.56011e+03_rb,0.56511e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,14, 5) = (/ &
+        & 0.76041e+03_rb,0.61246e+03_rb,0.55859e+03_rb,0.56472e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,14, 5) = (/ &
+        & 0.75622e+03_rb,0.60932e+03_rb,0.55696e+03_rb,0.56438e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,14, 5) = (/ &
+        & 0.75257e+03_rb,0.60658e+03_rb,0.55539e+03_rb,0.56408e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,14, 5) = (/ &
+        & 0.74936e+03_rb,0.60417e+03_rb,0.55391e+03_rb,0.56383e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,15, 5) = (/ &
+        & 0.75296e+03_rb,0.60688e+03_rb,0.55521e+03_rb,0.56412e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,15, 5) = (/ &
+        & 0.74904e+03_rb,0.60394e+03_rb,0.55372e+03_rb,0.56380e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,15, 5) = (/ &
+        & 0.74566e+03_rb,0.60140e+03_rb,0.55235e+03_rb,0.56353e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,15, 5) = (/ &
+        & 0.74271e+03_rb,0.59919e+03_rb,0.55103e+03_rb,0.56329e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,15, 5) = (/ &
+        & 0.74012e+03_rb,0.59724e+03_rb,0.54977e+03_rb,0.56308e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,16, 5) = (/ &
+        & 0.74295e+03_rb,0.59937e+03_rb,0.55079e+03_rb,0.56331e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,16, 5) = (/ &
+        & 0.73979e+03_rb,0.59700e+03_rb,0.54953e+03_rb,0.56305e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,16, 5) = (/ &
+        & 0.73707e+03_rb,0.59495e+03_rb,0.54828e+03_rb,0.56283e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,16, 5) = (/ &
+        & 0.73469e+03_rb,0.59317e+03_rb,0.54708e+03_rb,0.56264e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,16, 5) = (/ &
+        & 0.73259e+03_rb,0.59160e+03_rb,0.54600e+03_rb,0.56247e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,17, 5) = (/ &
+        & 0.73483e+03_rb,0.59328e+03_rb,0.54695e+03_rb,0.56265e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,17, 5) = (/ &
+        & 0.73229e+03_rb,0.59137e+03_rb,0.54572e+03_rb,0.56245e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,17, 5) = (/ &
+        & 0.73009e+03_rb,0.58972e+03_rb,0.54462e+03_rb,0.56227e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,17, 5) = (/ &
+        & 0.72817e+03_rb,0.58828e+03_rb,0.54366e+03_rb,0.56212e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,17, 5) = (/ &
+        & 0.72647e+03_rb,0.58701e+03_rb,0.54281e+03_rb,0.56198e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,18, 5) = (/ &
+        & 0.72825e+03_rb,0.58834e+03_rb,0.54354e+03_rb,0.56212e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,18, 5) = (/ &
+        & 0.72619e+03_rb,0.58680e+03_rb,0.54253e+03_rb,0.56196e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,18, 5) = (/ &
+        & 0.72442e+03_rb,0.58547e+03_rb,0.54166e+03_rb,0.56181e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,18, 5) = (/ &
+        & 0.72286e+03_rb,0.58430e+03_rb,0.54091e+03_rb,0.56169e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,18, 5) = (/ &
+        & 0.72150e+03_rb,0.58328e+03_rb,0.54024e+03_rb,0.56158e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,19, 5) = (/ &
+        & 0.72290e+03_rb,0.58433e+03_rb,0.54075e+03_rb,0.56169e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,19, 5) = (/ &
+        & 0.72124e+03_rb,0.58309e+03_rb,0.53996e+03_rb,0.56156e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,19, 5) = (/ &
+        & 0.71981e+03_rb,0.58201e+03_rb,0.53928e+03_rb,0.56144e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,19, 5) = (/ &
+        & 0.71856e+03_rb,0.58107e+03_rb,0.53868e+03_rb,0.56134e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,19, 5) = (/ &
+        & 0.71745e+03_rb,0.58024e+03_rb,0.53816e+03_rb,0.56125e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,20, 5) = (/ &
+        & 0.71853e+03_rb,0.58105e+03_rb,0.53849e+03_rb,0.56134e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,20, 5) = (/ &
+        & 0.71720e+03_rb,0.58006e+03_rb,0.53788e+03_rb,0.56123e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,20, 5) = (/ &
+        & 0.71605e+03_rb,0.57919e+03_rb,0.53734e+03_rb,0.56114e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,20, 5) = (/ &
+        & 0.71504e+03_rb,0.57843e+03_rb,0.53687e+03_rb,0.56106e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,20, 5) = (/ &
+        & 0.71414e+03_rb,0.57776e+03_rb,0.53643e+03_rb,0.56098e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,21, 5) = (/ &
+        & 0.71499e+03_rb,0.57840e+03_rb,0.53667e+03_rb,0.56105e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,21, 5) = (/ &
+        & 0.71392e+03_rb,0.57759e+03_rb,0.53620e+03_rb,0.56097e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,21, 5) = (/ &
+        & 0.71299e+03_rb,0.57690e+03_rb,0.53578e+03_rb,0.56089e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,21, 5) = (/ &
+        & 0.71217e+03_rb,0.57628e+03_rb,0.53541e+03_rb,0.56083e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,21, 5) = (/ &
+        & 0.71145e+03_rb,0.57574e+03_rb,0.53506e+03_rb,0.56077e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,22, 5) = (/ &
+        & 0.71206e+03_rb,0.57620e+03_rb,0.53519e+03_rb,0.56082e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,22, 5) = (/ &
+        & 0.71120e+03_rb,0.57555e+03_rb,0.53482e+03_rb,0.56075e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,22, 5) = (/ &
+        & 0.71046e+03_rb,0.57500e+03_rb,0.53450e+03_rb,0.56069e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,22, 5) = (/ &
+        & 0.70981e+03_rb,0.57451e+03_rb,0.53420e+03_rb,0.56064e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,22, 5) = (/ &
+        & 0.70923e+03_rb,0.57408e+03_rb,0.53390e+03_rb,0.56059e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,23, 5) = (/ &
+        & 0.70968e+03_rb,0.57442e+03_rb,0.53396e+03_rb,0.56063e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,23, 5) = (/ &
+        & 0.70900e+03_rb,0.57391e+03_rb,0.53367e+03_rb,0.56057e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,23, 5) = (/ &
+        & 0.70841e+03_rb,0.57346e+03_rb,0.53341e+03_rb,0.56052e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,23, 5) = (/ &
+        & 0.70789e+03_rb,0.57307e+03_rb,0.53316e+03_rb,0.56048e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,23, 5) = (/ &
+        & 0.70743e+03_rb,0.57272e+03_rb,0.53290e+03_rb,0.56044e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,24, 5) = (/ &
+        & 0.70776e+03_rb,0.57298e+03_rb,0.53293e+03_rb,0.56047e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,24, 5) = (/ &
+        & 0.70722e+03_rb,0.57257e+03_rb,0.53269e+03_rb,0.56043e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,24, 5) = (/ &
+        & 0.70675e+03_rb,0.57222e+03_rb,0.53248e+03_rb,0.56039e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,24, 5) = (/ &
+        & 0.70633e+03_rb,0.57190e+03_rb,0.53228e+03_rb,0.56036e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,24, 5) = (/ &
+        & 0.70596e+03_rb,0.57163e+03_rb,0.53207e+03_rb,0.56033e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,25, 5) = (/ &
+        & 0.70621e+03_rb,0.57181e+03_rb,0.53206e+03_rb,0.56035e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,25, 5) = (/ &
+        & 0.70578e+03_rb,0.57149e+03_rb,0.53188e+03_rb,0.56031e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,25, 5) = (/ &
+        & 0.70541e+03_rb,0.57121e+03_rb,0.53172e+03_rb,0.56028e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,25, 5) = (/ &
+        & 0.70507e+03_rb,0.57096e+03_rb,0.53156e+03_rb,0.56025e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,25, 5) = (/ &
+        & 0.70478e+03_rb,0.57074e+03_rb,0.53138e+03_rb,0.56023e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,26, 5) = (/ &
+        & 0.70496e+03_rb,0.57087e+03_rb,0.53135e+03_rb,0.56024e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,26, 5) = (/ &
+        & 0.70461e+03_rb,0.57061e+03_rb,0.53122e+03_rb,0.56022e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,26, 5) = (/ &
+        & 0.70432e+03_rb,0.57039e+03_rb,0.53110e+03_rb,0.56019e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,26, 5) = (/ &
+        & 0.70405e+03_rb,0.57019e+03_rb,0.53097e+03_rb,0.56017e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,26, 5) = (/ &
+        & 0.70382e+03_rb,0.57001e+03_rb,0.53082e+03_rb,0.56015e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,27, 5) = (/ &
+        & 0.70394e+03_rb,0.57011e+03_rb,0.53077e+03_rb,0.56016e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,27, 5) = (/ &
+        & 0.70367e+03_rb,0.56991e+03_rb,0.53069e+03_rb,0.56014e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,27, 5) = (/ &
+        & 0.70343e+03_rb,0.56973e+03_rb,0.53060e+03_rb,0.56012e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,27, 5) = (/ &
+        & 0.70322e+03_rb,0.56957e+03_rb,0.53049e+03_rb,0.56010e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,27, 5) = (/ &
+        & 0.70304e+03_rb,0.56943e+03_rb,0.53036e+03_rb,0.56009e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,28, 5) = (/ &
+        & 0.70313e+03_rb,0.56950e+03_rb,0.53032e+03_rb,0.56010e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,28, 5) = (/ &
+        & 0.70291e+03_rb,0.56934e+03_rb,0.53026e+03_rb,0.56008e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,28, 5) = (/ &
+        & 0.70272e+03_rb,0.56920e+03_rb,0.53019e+03_rb,0.56006e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,28, 5) = (/ &
+        & 0.70256e+03_rb,0.56907e+03_rb,0.53010e+03_rb,0.56005e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,28, 5) = (/ &
+        & 0.70241e+03_rb,0.56896e+03_rb,0.52998e+03_rb,0.56004e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,29, 5) = (/ &
+        & 0.70247e+03_rb,0.56901e+03_rb,0.52995e+03_rb,0.56004e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,29, 5) = (/ &
+        & 0.70230e+03_rb,0.56888e+03_rb,0.52991e+03_rb,0.56003e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,29, 5) = (/ &
+        & 0.70215e+03_rb,0.56877e+03_rb,0.52985e+03_rb,0.56002e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,29, 5) = (/ &
+        & 0.70202e+03_rb,0.56867e+03_rb,0.52978e+03_rb,0.56001e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,29, 5) = (/ &
+        & 0.70190e+03_rb,0.56858e+03_rb,0.52967e+03_rb,0.56000e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,30, 5) = (/ &
+        & 0.70194e+03_rb,0.56861e+03_rb,0.52966e+03_rb,0.56000e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,30, 5) = (/ &
+        & 0.70181e+03_rb,0.56851e+03_rb,0.52963e+03_rb,0.55999e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,30, 5) = (/ &
+        & 0.70169e+03_rb,0.56842e+03_rb,0.52958e+03_rb,0.55998e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,30, 5) = (/ &
+        & 0.70158e+03_rb,0.56834e+03_rb,0.52951e+03_rb,0.55997e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,30, 5) = (/ &
+        & 0.70149e+03_rb,0.56827e+03_rb,0.52941e+03_rb,0.55996e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,31, 5) = (/ &
+        & 0.70151e+03_rb,0.56829e+03_rb,0.52942e+03_rb,0.55997e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,31, 5) = (/ &
+        & 0.70141e+03_rb,0.56821e+03_rb,0.52941e+03_rb,0.55996e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,31, 5) = (/ &
+        & 0.70131e+03_rb,0.56814e+03_rb,0.52936e+03_rb,0.55995e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,31, 5) = (/ &
+        & 0.70123e+03_rb,0.56807e+03_rb,0.52930e+03_rb,0.55994e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,31, 5) = (/ &
+        & 0.70115e+03_rb,0.56802e+03_rb,0.52920e+03_rb,0.55994e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,32, 5) = (/ &
+        & 0.70117e+03_rb,0.56803e+03_rb,0.52924e+03_rb,0.55994e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,32, 5) = (/ &
+        & 0.70109e+03_rb,0.56797e+03_rb,0.52922e+03_rb,0.55993e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,32, 5) = (/ &
+        & 0.70101e+03_rb,0.56791e+03_rb,0.52919e+03_rb,0.55993e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,32, 5) = (/ &
+        & 0.70094e+03_rb,0.56786e+03_rb,0.52912e+03_rb,0.55992e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,32, 5) = (/ &
+        & 0.70088e+03_rb,0.56782e+03_rb,0.52902e+03_rb,0.55992e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,33, 5) = (/ &
+        & 0.70090e+03_rb,0.56782e+03_rb,0.52908e+03_rb,0.55992e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,33, 5) = (/ &
+        & 0.70083e+03_rb,0.56777e+03_rb,0.52907e+03_rb,0.55991e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,33, 5) = (/ &
+        & 0.70077e+03_rb,0.56773e+03_rb,0.52904e+03_rb,0.55991e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,33, 5) = (/ &
+        & 0.70072e+03_rb,0.56769e+03_rb,0.52897e+03_rb,0.55990e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,33, 5) = (/ &
+        & 0.70067e+03_rb,0.56765e+03_rb,0.52887e+03_rb,0.55990e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,34, 5) = (/ &
+        & 0.70068e+03_rb,0.56766e+03_rb,0.52896e+03_rb,0.55990e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,34, 5) = (/ &
+        & 0.70062e+03_rb,0.56762e+03_rb,0.52895e+03_rb,0.55989e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,34, 5) = (/ &
+        & 0.70057e+03_rb,0.56758e+03_rb,0.52892e+03_rb,0.55989e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,34, 5) = (/ &
+        & 0.70053e+03_rb,0.56755e+03_rb,0.52885e+03_rb,0.55989e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,34, 5) = (/ &
+        & 0.70049e+03_rb,0.56752e+03_rb,0.52874e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,35, 5) = (/ &
+        & 0.70050e+03_rb,0.56753e+03_rb,0.52886e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,35, 5) = (/ &
+        & 0.70046e+03_rb,0.56750e+03_rb,0.52885e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,35, 5) = (/ &
+        & 0.70042e+03_rb,0.56747e+03_rb,0.52883e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,35, 5) = (/ &
+        & 0.70039e+03_rb,0.56744e+03_rb,0.52876e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,35, 5) = (/ &
+        & 0.70035e+03_rb,0.56742e+03_rb,0.52864e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,36, 5) = (/ &
+        & 0.70037e+03_rb,0.56743e+03_rb,0.52877e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,36, 5) = (/ &
+        & 0.70033e+03_rb,0.56740e+03_rb,0.52878e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,36, 5) = (/ &
+        & 0.70030e+03_rb,0.56738e+03_rb,0.52875e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,36, 5) = (/ &
+        & 0.70027e+03_rb,0.56736e+03_rb,0.52869e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,36, 5) = (/ &
+        & 0.70025e+03_rb,0.56734e+03_rb,0.52857e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,37, 5) = (/ &
+        & 0.70026e+03_rb,0.56735e+03_rb,0.52870e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,37, 5) = (/ &
+        & 0.70023e+03_rb,0.56733e+03_rb,0.52872e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,37, 5) = (/ &
+        & 0.70020e+03_rb,0.56731e+03_rb,0.52870e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,37, 5) = (/ &
+        & 0.70018e+03_rb,0.56729e+03_rb,0.52864e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,37, 5) = (/ &
+        & 0.70016e+03_rb,0.56727e+03_rb,0.52854e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,38, 5) = (/ &
+        & 0.70017e+03_rb,0.56728e+03_rb,0.52864e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,38, 5) = (/ &
+        & 0.70015e+03_rb,0.56726e+03_rb,0.52866e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,38, 5) = (/ &
+        & 0.70012e+03_rb,0.56725e+03_rb,0.52866e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,38, 5) = (/ &
+        & 0.70010e+03_rb,0.56723e+03_rb,0.52860e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,38, 5) = (/ &
+        & 0.70009e+03_rb,0.56722e+03_rb,0.52852e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,39, 5) = (/ &
+        & 0.70010e+03_rb,0.56723e+03_rb,0.52860e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,39, 5) = (/ &
+        & 0.70008e+03_rb,0.56721e+03_rb,0.52862e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,39, 5) = (/ &
+        & 0.70006e+03_rb,0.56720e+03_rb,0.52861e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,39, 5) = (/ &
+        & 0.70004e+03_rb,0.56719e+03_rb,0.52858e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,39, 5) = (/ &
+        & 0.70003e+03_rb,0.56717e+03_rb,0.52850e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,40, 5) = (/ &
+        & 0.70004e+03_rb,0.56718e+03_rb,0.52855e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,40, 5) = (/ &
+        & 0.70002e+03_rb,0.56717e+03_rb,0.52858e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,40, 5) = (/ &
+        & 0.70001e+03_rb,0.56716e+03_rb,0.52859e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,40, 5) = (/ &
+        & 0.69999e+03_rb,0.56715e+03_rb,0.52856e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,40, 5) = (/ &
+        & 0.69998e+03_rb,0.56714e+03_rb,0.52849e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,41, 5) = (/ &
+        & 0.69999e+03_rb,0.56715e+03_rb,0.52850e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,41, 5) = (/ &
+        & 0.69998e+03_rb,0.56714e+03_rb,0.52854e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,41, 5) = (/ &
+        & 0.69996e+03_rb,0.56713e+03_rb,0.52856e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,41, 5) = (/ &
+        & 0.69995e+03_rb,0.56712e+03_rb,0.52854e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,41, 5) = (/ &
+        & 0.69994e+03_rb,0.56711e+03_rb,0.52848e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,42, 5) = (/ &
+        & 0.69995e+03_rb,0.56712e+03_rb,0.52846e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,42, 5) = (/ &
+        & 0.69994e+03_rb,0.56711e+03_rb,0.52851e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,42, 5) = (/ &
+        & 0.69993e+03_rb,0.56710e+03_rb,0.52853e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,42, 5) = (/ &
+        & 0.69992e+03_rb,0.56709e+03_rb,0.52853e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,42, 5) = (/ &
+        & 0.69991e+03_rb,0.56709e+03_rb,0.52848e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,43, 5) = (/ &
+        & 0.69992e+03_rb,0.56709e+03_rb,0.52843e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,43, 5) = (/ &
+        & 0.69991e+03_rb,0.56708e+03_rb,0.52848e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,43, 5) = (/ &
+        & 0.69990e+03_rb,0.56708e+03_rb,0.52851e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,43, 5) = (/ &
+        & 0.69989e+03_rb,0.56707e+03_rb,0.52851e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,43, 5) = (/ &
+        & 0.69988e+03_rb,0.56707e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,44, 5) = (/ &
+        & 0.69989e+03_rb,0.56707e+03_rb,0.52838e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,44, 5) = (/ &
+        & 0.69988e+03_rb,0.56707e+03_rb,0.52844e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,44, 5) = (/ &
+        & 0.69988e+03_rb,0.56706e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,44, 5) = (/ &
+        & 0.69987e+03_rb,0.56705e+03_rb,0.52850e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,44, 5) = (/ &
+        & 0.69986e+03_rb,0.56705e+03_rb,0.52849e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,45, 5) = (/ &
+        & 0.69987e+03_rb,0.56706e+03_rb,0.52834e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,45, 5) = (/ &
+        & 0.69986e+03_rb,0.56705e+03_rb,0.52841e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,45, 5) = (/ &
+        & 0.69986e+03_rb,0.56704e+03_rb,0.52846e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,45, 5) = (/ &
+        & 0.69985e+03_rb,0.56704e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,45, 5) = (/ &
+        & 0.69984e+03_rb,0.56704e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,46, 5) = (/ &
+        & 0.69985e+03_rb,0.56704e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,46, 5) = (/ &
+        & 0.69984e+03_rb,0.56704e+03_rb,0.52837e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,46, 5) = (/ &
+        & 0.69984e+03_rb,0.56703e+03_rb,0.52843e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,46, 5) = (/ &
+        & 0.69983e+03_rb,0.56703e+03_rb,0.52847e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,46, 5) = (/ &
+        & 0.69983e+03_rb,0.56703e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,47, 5) = (/ &
+        & 0.69984e+03_rb,0.56703e+03_rb,0.52826e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,47, 5) = (/ &
+        & 0.69983e+03_rb,0.56703e+03_rb,0.52834e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,47, 5) = (/ &
+        & 0.69982e+03_rb,0.56702e+03_rb,0.52840e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,47, 5) = (/ &
+        & 0.69982e+03_rb,0.56702e+03_rb,0.52845e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,47, 5) = (/ &
+        & 0.69982e+03_rb,0.56702e+03_rb,0.52847e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,48, 5) = (/ &
+        & 0.69982e+03_rb,0.56702e+03_rb,0.52821e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,48, 5) = (/ &
+        & 0.69982e+03_rb,0.56702e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,48, 5) = (/ &
+        & 0.69981e+03_rb,0.56701e+03_rb,0.52837e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,48, 5) = (/ &
+        & 0.69981e+03_rb,0.56701e+03_rb,0.52842e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,48, 5) = (/ &
+        & 0.69981e+03_rb,0.56701e+03_rb,0.52845e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,49, 5) = (/ &
+        & 0.69981e+03_rb,0.56701e+03_rb,0.52817e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,49, 5) = (/ &
+        & 0.69981e+03_rb,0.56701e+03_rb,0.52825e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,49, 5) = (/ &
+        & 0.69980e+03_rb,0.56701e+03_rb,0.52833e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,49, 5) = (/ &
+        & 0.69980e+03_rb,0.56700e+03_rb,0.52840e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,49, 5) = (/ &
+        & 0.69980e+03_rb,0.56700e+03_rb,0.52844e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,50, 5) = (/ &
+        & 0.69980e+03_rb,0.56701e+03_rb,0.52812e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,50, 5) = (/ &
+        & 0.69980e+03_rb,0.56700e+03_rb,0.52821e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,50, 5) = (/ &
+        & 0.69980e+03_rb,0.56700e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,50, 5) = (/ &
+        & 0.69979e+03_rb,0.56700e+03_rb,0.52837e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,50, 5) = (/ &
+        & 0.69979e+03_rb,0.56700e+03_rb,0.52842e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,51, 5) = (/ &
+        & 0.69979e+03_rb,0.56700e+03_rb,0.52807e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,51, 5) = (/ &
+        & 0.69979e+03_rb,0.56700e+03_rb,0.52818e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,51, 5) = (/ &
+        & 0.69979e+03_rb,0.56699e+03_rb,0.52827e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,51, 5) = (/ &
+        & 0.69979e+03_rb,0.56699e+03_rb,0.52834e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,51, 5) = (/ &
+        & 0.69978e+03_rb,0.56699e+03_rb,0.52841e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,52, 5) = (/ &
+        & 0.69979e+03_rb,0.56699e+03_rb,0.52802e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,52, 5) = (/ &
+        & 0.69979e+03_rb,0.56699e+03_rb,0.52814e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,52, 5) = (/ &
+        & 0.69978e+03_rb,0.56699e+03_rb,0.52823e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,52, 5) = (/ &
+        & 0.69978e+03_rb,0.56699e+03_rb,0.52831e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,52, 5) = (/ &
+        & 0.69978e+03_rb,0.56699e+03_rb,0.52838e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,53, 5) = (/ &
+        & 0.69978e+03_rb,0.56699e+03_rb,0.52798e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,53, 5) = (/ &
+        & 0.69978e+03_rb,0.56699e+03_rb,0.52809e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,53, 5) = (/ &
+        & 0.69978e+03_rb,0.56699e+03_rb,0.52820e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,53, 5) = (/ &
+        & 0.69978e+03_rb,0.56699e+03_rb,0.52828e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,53, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52836e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,54, 5) = (/ &
+        & 0.69978e+03_rb,0.56699e+03_rb,0.52794e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,54, 5) = (/ &
+        & 0.69978e+03_rb,0.56699e+03_rb,0.52804e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,54, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52816e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,54, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52825e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,54, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52833e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,55, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52790e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,55, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52801e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,55, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52812e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,55, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52822e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,55, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,56, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52786e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,56, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52797e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,56, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52808e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,56, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52819e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,56, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52827e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,57, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52781e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,57, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52794e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,57, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52805e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,57, 5) = (/ &
+        & 0.69976e+03_rb,0.56698e+03_rb,0.52815e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,57, 5) = (/ &
+        & 0.69976e+03_rb,0.56698e+03_rb,0.52825e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,58, 5) = (/ &
+        & 0.69977e+03_rb,0.56698e+03_rb,0.52777e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,58, 5) = (/ &
+        & 0.69976e+03_rb,0.56698e+03_rb,0.52790e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,58, 5) = (/ &
+        & 0.69976e+03_rb,0.56698e+03_rb,0.52801e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,58, 5) = (/ &
+        & 0.69976e+03_rb,0.56698e+03_rb,0.52812e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,58, 5) = (/ &
+        & 0.69976e+03_rb,0.56697e+03_rb,0.52822e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,59, 5) = (/ &
+        & 0.69976e+03_rb,0.56698e+03_rb,0.52775e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)
+      kbo(:, 2,59, 5) = (/ &
+        & 0.69976e+03_rb,0.56698e+03_rb,0.52788e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)
+      kbo(:, 3,59, 5) = (/ &
+        & 0.69976e+03_rb,0.56697e+03_rb,0.52801e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)
+      kbo(:, 4,59, 5) = (/ &
+        & 0.69976e+03_rb,0.56697e+03_rb,0.52811e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)
+      kbo(:, 5,59, 5) = (/ &
+        & 0.69976e+03_rb,0.56697e+03_rb,0.52821e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)
+      kbo(:, 1,13, 6) = (/ &
+        & 0.99182e+03_rb,0.76479e+03_rb,0.58123e+03_rb,0.73928e+03_rb,0.94808e+03_rb /)
+      kbo(:, 2,13, 6) = (/ &
+        & 0.98417e+03_rb,0.75904e+03_rb,0.57888e+03_rb,0.73991e+03_rb,0.94920e+03_rb /)
+      kbo(:, 3,13, 6) = (/ &
+        & 0.97757e+03_rb,0.75410e+03_rb,0.57650e+03_rb,0.74029e+03_rb,0.94995e+03_rb /)
+      kbo(:, 4,13, 6) = (/ &
+        & 0.97184e+03_rb,0.74980e+03_rb,0.57428e+03_rb,0.74046e+03_rb,0.95033e+03_rb /)
+      kbo(:, 5,13, 6) = (/ &
+        & 0.96680e+03_rb,0.74602e+03_rb,0.57217e+03_rb,0.74043e+03_rb,0.95033e+03_rb /)
+      kbo(:, 1,14, 6) = (/ &
+        & 0.97264e+03_rb,0.75040e+03_rb,0.57482e+03_rb,0.73884e+03_rb,0.94820e+03_rb /)
+      kbo(:, 2,14, 6) = (/ &
+        & 0.96646e+03_rb,0.74576e+03_rb,0.57229e+03_rb,0.73949e+03_rb,0.94928e+03_rb /)
+      kbo(:, 3,14, 6) = (/ &
+        & 0.96113e+03_rb,0.74177e+03_rb,0.57016e+03_rb,0.73988e+03_rb,0.95000e+03_rb /)
+      kbo(:, 4,14, 6) = (/ &
+        & 0.95649e+03_rb,0.73829e+03_rb,0.56822e+03_rb,0.74006e+03_rb,0.95035e+03_rb /)
+      kbo(:, 5,14, 6) = (/ &
+        & 0.95242e+03_rb,0.73523e+03_rb,0.56635e+03_rb,0.74003e+03_rb,0.95032e+03_rb /)
+      kbo(:, 1,15, 6) = (/ &
+        & 0.95700e+03_rb,0.73867e+03_rb,0.56844e+03_rb,0.73851e+03_rb,0.94832e+03_rb /)
+      kbo(:, 2,15, 6) = (/ &
+        & 0.95201e+03_rb,0.73493e+03_rb,0.56632e+03_rb,0.73916e+03_rb,0.94937e+03_rb /)
+      kbo(:, 3,15, 6) = (/ &
+        & 0.94772e+03_rb,0.73170e+03_rb,0.56426e+03_rb,0.73956e+03_rb,0.95005e+03_rb /)
+      kbo(:, 4,15, 6) = (/ &
+        & 0.94397e+03_rb,0.72889e+03_rb,0.56242e+03_rb,0.73973e+03_rb,0.95035e+03_rb /)
+      kbo(:, 5,15, 6) = (/ &
+        & 0.94067e+03_rb,0.72642e+03_rb,0.56076e+03_rb,0.73970e+03_rb,0.95029e+03_rb /)
+      kbo(:, 1,16, 6) = (/ &
+        & 0.94427e+03_rb,0.72912e+03_rb,0.56257e+03_rb,0.73826e+03_rb,0.94846e+03_rb /)
+      kbo(:, 2,16, 6) = (/ &
+        & 0.94026e+03_rb,0.72611e+03_rb,0.56064e+03_rb,0.73891e+03_rb,0.94946e+03_rb /)
+      kbo(:, 3,16, 6) = (/ &
+        & 0.93679e+03_rb,0.72351e+03_rb,0.55906e+03_rb,0.73929e+03_rb,0.95011e+03_rb /)
+      kbo(:, 4,16, 6) = (/ &
+        & 0.93377e+03_rb,0.72124e+03_rb,0.55770e+03_rb,0.73948e+03_rb,0.95036e+03_rb /)
+      kbo(:, 5,16, 6) = (/ &
+        & 0.93110e+03_rb,0.71925e+03_rb,0.55641e+03_rb,0.73943e+03_rb,0.95027e+03_rb /)
+      kbo(:, 1,17, 6) = (/ &
+        & 0.93395e+03_rb,0.72138e+03_rb,0.55755e+03_rb,0.73807e+03_rb,0.94857e+03_rb /)
+      kbo(:, 2,17, 6) = (/ &
+        & 0.93072e+03_rb,0.71896e+03_rb,0.55622e+03_rb,0.73871e+03_rb,0.94955e+03_rb /)
+      kbo(:, 3,17, 6) = (/ &
+        & 0.92792e+03_rb,0.71686e+03_rb,0.55497e+03_rb,0.73909e+03_rb,0.95015e+03_rb /)
+      kbo(:, 4,17, 6) = (/ &
+        & 0.92548e+03_rb,0.71503e+03_rb,0.55372e+03_rb,0.73925e+03_rb,0.95038e+03_rb /)
+      kbo(:, 5,17, 6) = (/ &
+        & 0.92333e+03_rb,0.71341e+03_rb,0.55252e+03_rb,0.73921e+03_rb,0.95024e+03_rb /)
+      kbo(:, 1,18, 6) = (/ &
+        & 0.92558e+03_rb,0.71510e+03_rb,0.55360e+03_rb,0.73792e+03_rb,0.94869e+03_rb /)
+      kbo(:, 2,18, 6) = (/ &
+        & 0.92297e+03_rb,0.71315e+03_rb,0.55237e+03_rb,0.73856e+03_rb,0.94963e+03_rb /)
+      kbo(:, 3,18, 6) = (/ &
+        & 0.92072e+03_rb,0.71146e+03_rb,0.55114e+03_rb,0.73892e+03_rb,0.95019e+03_rb /)
+      kbo(:, 4,18, 6) = (/ &
+        & 0.91874e+03_rb,0.70998e+03_rb,0.55001e+03_rb,0.73908e+03_rb,0.95037e+03_rb /)
+      kbo(:, 5,18, 6) = (/ &
+        & 0.91700e+03_rb,0.70867e+03_rb,0.54903e+03_rb,0.73903e+03_rb,0.95021e+03_rb /)
+      kbo(:, 1,19, 6) = (/ &
+        & 0.91879e+03_rb,0.71001e+03_rb,0.55004e+03_rb,0.73782e+03_rb,0.94880e+03_rb /)
+      kbo(:, 2,19, 6) = (/ &
+        & 0.91668e+03_rb,0.70843e+03_rb,0.54889e+03_rb,0.73844e+03_rb,0.94970e+03_rb /)
+      kbo(:, 3,19, 6) = (/ &
+        & 0.91486e+03_rb,0.70706e+03_rb,0.54830e+03_rb,0.73880e+03_rb,0.95023e+03_rb /)
+      kbo(:, 4,19, 6) = (/ &
+        & 0.91327e+03_rb,0.70587e+03_rb,0.54705e+03_rb,0.73894e+03_rb,0.95037e+03_rb /)
+      kbo(:, 5,19, 6) = (/ &
+        & 0.91186e+03_rb,0.70481e+03_rb,0.54615e+03_rb,0.73887e+03_rb,0.95019e+03_rb /)
+      kbo(:, 1,20, 6) = (/ &
+        & 0.91324e+03_rb,0.70585e+03_rb,0.54718e+03_rb,0.73776e+03_rb,0.94893e+03_rb /)
+      kbo(:, 2,20, 6) = (/ &
+        & 0.91155e+03_rb,0.70458e+03_rb,0.54599e+03_rb,0.73835e+03_rb,0.94979e+03_rb /)
+      kbo(:, 3,20, 6) = (/ &
+        & 0.91008e+03_rb,0.70348e+03_rb,0.54519e+03_rb,0.73870e+03_rb,0.95026e+03_rb /)
+      kbo(:, 4,20, 6) = (/ &
+        & 0.90879e+03_rb,0.70251e+03_rb,0.54450e+03_rb,0.73882e+03_rb,0.95036e+03_rb /)
+      kbo(:, 5,20, 6) = (/ &
+        & 0.90766e+03_rb,0.70166e+03_rb,0.54390e+03_rb,0.73874e+03_rb,0.95013e+03_rb /)
+      kbo(:, 1,21, 6) = (/ &
+        & 0.90874e+03_rb,0.70247e+03_rb,0.54444e+03_rb,0.73773e+03_rb,0.94905e+03_rb /)
+      kbo(:, 2,21, 6) = (/ &
+        & 0.90737e+03_rb,0.70145e+03_rb,0.54370e+03_rb,0.73831e+03_rb,0.94986e+03_rb /)
+      kbo(:, 3,21, 6) = (/ &
+        & 0.90619e+03_rb,0.70056e+03_rb,0.54308e+03_rb,0.73862e+03_rb,0.95029e+03_rb /)
+      kbo(:, 4,21, 6) = (/ &
+        & 0.90515e+03_rb,0.69978e+03_rb,0.54255e+03_rb,0.73872e+03_rb,0.95035e+03_rb /)
+      kbo(:, 5,21, 6) = (/ &
+        & 0.90424e+03_rb,0.69910e+03_rb,0.54208e+03_rb,0.73862e+03_rb,0.95008e+03_rb /)
+      kbo(:, 1,22, 6) = (/ &
+        & 0.90500e+03_rb,0.69967e+03_rb,0.54240e+03_rb,0.73776e+03_rb,0.94923e+03_rb /)
+      kbo(:, 2,22, 6) = (/ &
+        & 0.90392e+03_rb,0.69886e+03_rb,0.54185e+03_rb,0.73829e+03_rb,0.94997e+03_rb /)
+      kbo(:, 3,22, 6) = (/ &
+        & 0.90297e+03_rb,0.69815e+03_rb,0.54138e+03_rb,0.73857e+03_rb,0.95033e+03_rb /)
+      kbo(:, 4,22, 6) = (/ &
+        & 0.90215e+03_rb,0.69753e+03_rb,0.54099e+03_rb,0.73864e+03_rb,0.95033e+03_rb /)
+      kbo(:, 5,22, 6) = (/ &
+        & 0.90141e+03_rb,0.69698e+03_rb,0.54066e+03_rb,0.73851e+03_rb,0.94999e+03_rb /)
+      kbo(:, 1,23, 6) = (/ &
+        & 0.90199e+03_rb,0.69741e+03_rb,0.54083e+03_rb,0.73780e+03_rb,0.94940e+03_rb /)
+      kbo(:, 2,23, 6) = (/ &
+        & 0.90112e+03_rb,0.69676e+03_rb,0.54044e+03_rb,0.73828e+03_rb,0.95007e+03_rb /)
+      kbo(:, 3,23, 6) = (/ &
+        & 0.90037e+03_rb,0.69620e+03_rb,0.54010e+03_rb,0.73854e+03_rb,0.95036e+03_rb /)
+      kbo(:, 4,23, 6) = (/ &
+        & 0.89971e+03_rb,0.69570e+03_rb,0.53983e+03_rb,0.73858e+03_rb,0.95029e+03_rb /)
+      kbo(:, 5,23, 6) = (/ &
+        & 0.89912e+03_rb,0.69526e+03_rb,0.53959e+03_rb,0.73840e+03_rb,0.94989e+03_rb /)
+      kbo(:, 1,24, 6) = (/ &
+        & 0.89955e+03_rb,0.69558e+03_rb,0.53965e+03_rb,0.73787e+03_rb,0.94957e+03_rb /)
+      kbo(:, 2,24, 6) = (/ &
+        & 0.89886e+03_rb,0.69507e+03_rb,0.53937e+03_rb,0.73829e+03_rb,0.95016e+03_rb /)
+      kbo(:, 3,24, 6) = (/ &
+        & 0.89826e+03_rb,0.69461e+03_rb,0.53914e+03_rb,0.73851e+03_rb,0.95038e+03_rb /)
+      kbo(:, 4,24, 6) = (/ &
+        & 0.89773e+03_rb,0.69422e+03_rb,0.53895e+03_rb,0.73850e+03_rb,0.95023e+03_rb /)
+      kbo(:, 5,24, 6) = (/ &
+        & 0.89726e+03_rb,0.69387e+03_rb,0.53876e+03_rb,0.73829e+03_rb,0.94977e+03_rb /)
+      kbo(:, 1,25, 6) = (/ &
+        & 0.89758e+03_rb,0.69410e+03_rb,0.53876e+03_rb,0.73792e+03_rb,0.94973e+03_rb /)
+      kbo(:, 2,25, 6) = (/ &
+        & 0.89703e+03_rb,0.69369e+03_rb,0.53857e+03_rb,0.73831e+03_rb,0.95024e+03_rb /)
+      kbo(:, 3,25, 6) = (/ &
+        & 0.89655e+03_rb,0.69333e+03_rb,0.53841e+03_rb,0.73848e+03_rb,0.95037e+03_rb /)
+      kbo(:, 4,25, 6) = (/ &
+        & 0.89613e+03_rb,0.69302e+03_rb,0.53826e+03_rb,0.73843e+03_rb,0.95016e+03_rb /)
+      kbo(:, 5,25, 6) = (/ &
+        & 0.89576e+03_rb,0.69273e+03_rb,0.53811e+03_rb,0.73818e+03_rb,0.94963e+03_rb /)
+      kbo(:, 1,26, 6) = (/ &
+        & 0.89598e+03_rb,0.69290e+03_rb,0.53808e+03_rb,0.73799e+03_rb,0.94987e+03_rb /)
+      kbo(:, 2,26, 6) = (/ &
+        & 0.89555e+03_rb,0.69258e+03_rb,0.53794e+03_rb,0.73834e+03_rb,0.95030e+03_rb /)
+      kbo(:, 3,26, 6) = (/ &
+        & 0.89517e+03_rb,0.69229e+03_rb,0.53782e+03_rb,0.73845e+03_rb,0.95035e+03_rb /)
+      kbo(:, 4,26, 6) = (/ &
+        & 0.89483e+03_rb,0.69204e+03_rb,0.53770e+03_rb,0.73836e+03_rb,0.95007e+03_rb /)
+      kbo(:, 5,26, 6) = (/ &
+        & 0.89453e+03_rb,0.69182e+03_rb,0.53759e+03_rb,0.73806e+03_rb,0.94946e+03_rb /)
+      kbo(:, 1,27, 6) = (/ &
+        & 0.89469e+03_rb,0.69194e+03_rb,0.53754e+03_rb,0.73806e+03_rb,0.95001e+03_rb /)
+      kbo(:, 2,27, 6) = (/ &
+        & 0.89435e+03_rb,0.69168e+03_rb,0.53744e+03_rb,0.73835e+03_rb,0.95034e+03_rb /)
+      kbo(:, 3,27, 6) = (/ &
+        & 0.89405e+03_rb,0.69145e+03_rb,0.53736e+03_rb,0.73843e+03_rb,0.95031e+03_rb /)
+      kbo(:, 4,27, 6) = (/ &
+        & 0.89378e+03_rb,0.69125e+03_rb,0.53727e+03_rb,0.73828e+03_rb,0.94995e+03_rb /)
+      kbo(:, 5,27, 6) = (/ &
+        & 0.89354e+03_rb,0.69107e+03_rb,0.53717e+03_rb,0.73792e+03_rb,0.94926e+03_rb /)
+      kbo(:, 1,28, 6) = (/ &
+        & 0.89366e+03_rb,0.69116e+03_rb,0.53711e+03_rb,0.73814e+03_rb,0.95012e+03_rb /)
+      kbo(:, 2,28, 6) = (/ &
+        & 0.89338e+03_rb,0.69096e+03_rb,0.53705e+03_rb,0.73836e+03_rb,0.95037e+03_rb /)
+      kbo(:, 3,28, 6) = (/ &
+        & 0.89314e+03_rb,0.69078e+03_rb,0.53699e+03_rb,0.73838e+03_rb,0.95026e+03_rb /)
+      kbo(:, 4,28, 6) = (/ &
+        & 0.89293e+03_rb,0.69062e+03_rb,0.53692e+03_rb,0.73819e+03_rb,0.94982e+03_rb /)
+      kbo(:, 5,28, 6) = (/ &
+        & 0.89274e+03_rb,0.69047e+03_rb,0.53684e+03_rb,0.73778e+03_rb,0.94904e+03_rb /)
+      kbo(:, 1,29, 6) = (/ &
+        & 0.89282e+03_rb,0.69053e+03_rb,0.53678e+03_rb,0.73818e+03_rb,0.95022e+03_rb /)
+      kbo(:, 2,29, 6) = (/ &
+        & 0.89261e+03_rb,0.69037e+03_rb,0.53674e+03_rb,0.73837e+03_rb,0.95037e+03_rb /)
+      kbo(:, 3,29, 6) = (/ &
+        & 0.89241e+03_rb,0.69023e+03_rb,0.53670e+03_rb,0.73834e+03_rb,0.95018e+03_rb /)
+      kbo(:, 4,29, 6) = (/ &
+        & 0.89224e+03_rb,0.69010e+03_rb,0.53663e+03_rb,0.73810e+03_rb,0.94966e+03_rb /)
+      kbo(:, 5,29, 6) = (/ &
+        & 0.89209e+03_rb,0.68999e+03_rb,0.53656e+03_rb,0.73762e+03_rb,0.94880e+03_rb /)
+      kbo(:, 1,30, 6) = (/ &
+        & 0.89215e+03_rb,0.69003e+03_rb,0.53652e+03_rb,0.73823e+03_rb,0.95029e+03_rb /)
+      kbo(:, 2,30, 6) = (/ &
+        & 0.89198e+03_rb,0.68990e+03_rb,0.53650e+03_rb,0.73836e+03_rb,0.95035e+03_rb /)
+      kbo(:, 3,30, 6) = (/ &
+        & 0.89183e+03_rb,0.68979e+03_rb,0.53646e+03_rb,0.73828e+03_rb,0.95008e+03_rb /)
+      kbo(:, 4,30, 6) = (/ &
+        & 0.89169e+03_rb,0.68969e+03_rb,0.53641e+03_rb,0.73798e+03_rb,0.94948e+03_rb /)
+      kbo(:, 5,30, 6) = (/ &
+        & 0.89157e+03_rb,0.68960e+03_rb,0.53634e+03_rb,0.73744e+03_rb,0.94852e+03_rb /)
+      kbo(:, 1,31, 6) = (/ &
+        & 0.89161e+03_rb,0.68962e+03_rb,0.53631e+03_rb,0.73827e+03_rb,0.95034e+03_rb /)
+      kbo(:, 2,31, 6) = (/ &
+        & 0.89147e+03_rb,0.68952e+03_rb,0.53629e+03_rb,0.73835e+03_rb,0.95031e+03_rb /)
+      kbo(:, 3,31, 6) = (/ &
+        & 0.89135e+03_rb,0.68943e+03_rb,0.53627e+03_rb,0.73821e+03_rb,0.94996e+03_rb /)
+      kbo(:, 4,31, 6) = (/ &
+        & 0.89124e+03_rb,0.68935e+03_rb,0.53622e+03_rb,0.73786e+03_rb,0.94927e+03_rb /)
+      kbo(:, 5,31, 6) = (/ &
+        & 0.89115e+03_rb,0.68928e+03_rb,0.53615e+03_rb,0.73725e+03_rb,0.94822e+03_rb /)
+      kbo(:, 1,32, 6) = (/ &
+        & 0.89117e+03_rb,0.68930e+03_rb,0.53614e+03_rb,0.73830e+03_rb,0.95037e+03_rb /)
+      kbo(:, 2,32, 6) = (/ &
+        & 0.89106e+03_rb,0.68922e+03_rb,0.53614e+03_rb,0.73833e+03_rb,0.95025e+03_rb /)
+      kbo(:, 3,32, 6) = (/ &
+        & 0.89097e+03_rb,0.68914e+03_rb,0.53611e+03_rb,0.73813e+03_rb,0.94981e+03_rb /)
+      kbo(:, 4,32, 6) = (/ &
+        & 0.89088e+03_rb,0.68908e+03_rb,0.53608e+03_rb,0.73772e+03_rb,0.94903e+03_rb /)
+      kbo(:, 5,32, 6) = (/ &
+        & 0.89081e+03_rb,0.68902e+03_rb,0.53600e+03_rb,0.73703e+03_rb,0.94789e+03_rb /)
+      kbo(:, 1,33, 6) = (/ &
+        & 0.89082e+03_rb,0.68903e+03_rb,0.53602e+03_rb,0.73832e+03_rb,0.95037e+03_rb /)
+      kbo(:, 2,33, 6) = (/ &
+        & 0.89073e+03_rb,0.68897e+03_rb,0.53601e+03_rb,0.73829e+03_rb,0.95017e+03_rb /)
+      kbo(:, 3,33, 6) = (/ &
+        & 0.89066e+03_rb,0.68891e+03_rb,0.53599e+03_rb,0.73804e+03_rb,0.94964e+03_rb /)
+      kbo(:, 4,33, 6) = (/ &
+        & 0.89059e+03_rb,0.68886e+03_rb,0.53595e+03_rb,0.73756e+03_rb,0.94877e+03_rb /)
+      kbo(:, 5,33, 6) = (/ &
+        & 0.89053e+03_rb,0.68882e+03_rb,0.53586e+03_rb,0.73678e+03_rb,0.94753e+03_rb /)
+      kbo(:, 1,34, 6) = (/ &
+        & 0.89054e+03_rb,0.68882e+03_rb,0.53592e+03_rb,0.73832e+03_rb,0.95035e+03_rb /)
+      kbo(:, 2,34, 6) = (/ &
+        & 0.89047e+03_rb,0.68877e+03_rb,0.53592e+03_rb,0.73824e+03_rb,0.95008e+03_rb /)
+      kbo(:, 3,34, 6) = (/ &
+        & 0.89041e+03_rb,0.68873e+03_rb,0.53589e+03_rb,0.73795e+03_rb,0.94947e+03_rb /)
+      kbo(:, 4,34, 6) = (/ &
+        & 0.89036e+03_rb,0.68869e+03_rb,0.53584e+03_rb,0.73741e+03_rb,0.94852e+03_rb /)
+      kbo(:, 5,34, 6) = (/ &
+        & 0.89031e+03_rb,0.68865e+03_rb,0.53575e+03_rb,0.73655e+03_rb,0.94719e+03_rb /)
+      kbo(:, 1,35, 6) = (/ &
+        & 0.89032e+03_rb,0.68866e+03_rb,0.53584e+03_rb,0.73832e+03_rb,0.95034e+03_rb /)
+      kbo(:, 2,35, 6) = (/ &
+        & 0.89027e+03_rb,0.68862e+03_rb,0.53584e+03_rb,0.73821e+03_rb,0.95002e+03_rb /)
+      kbo(:, 3,35, 6) = (/ &
+        & 0.89022e+03_rb,0.68858e+03_rb,0.53581e+03_rb,0.73788e+03_rb,0.94937e+03_rb /)
+      kbo(:, 4,35, 6) = (/ &
+        & 0.89017e+03_rb,0.68855e+03_rb,0.53576e+03_rb,0.73731e+03_rb,0.94836e+03_rb /)
+      kbo(:, 5,35, 6) = (/ &
+        & 0.89013e+03_rb,0.68852e+03_rb,0.53567e+03_rb,0.73640e+03_rb,0.94700e+03_rb /)
+      kbo(:, 1,36, 6) = (/ &
+        & 0.89015e+03_rb,0.68853e+03_rb,0.53577e+03_rb,0.73831e+03_rb,0.95033e+03_rb /)
+      kbo(:, 2,36, 6) = (/ &
+        & 0.89010e+03_rb,0.68849e+03_rb,0.53577e+03_rb,0.73820e+03_rb,0.95001e+03_rb /)
+      kbo(:, 3,36, 6) = (/ &
+        & 0.89006e+03_rb,0.68846e+03_rb,0.53575e+03_rb,0.73787e+03_rb,0.94935e+03_rb /)
+      kbo(:, 4,36, 6) = (/ &
+        & 0.89003e+03_rb,0.68844e+03_rb,0.53570e+03_rb,0.73729e+03_rb,0.94834e+03_rb /)
+      kbo(:, 5,36, 6) = (/ &
+        & 0.88999e+03_rb,0.68841e+03_rb,0.53561e+03_rb,0.73637e+03_rb,0.94696e+03_rb /)
+      kbo(:, 1,37, 6) = (/ &
+        & 0.89001e+03_rb,0.68843e+03_rb,0.53571e+03_rb,0.73831e+03_rb,0.95036e+03_rb /)
+      kbo(:, 2,37, 6) = (/ &
+        & 0.88997e+03_rb,0.68840e+03_rb,0.53572e+03_rb,0.73823e+03_rb,0.95007e+03_rb /)
+      kbo(:, 3,37, 6) = (/ &
+        & 0.88994e+03_rb,0.68837e+03_rb,0.53570e+03_rb,0.73792e+03_rb,0.94946e+03_rb /)
+      kbo(:, 4,37, 6) = (/ &
+        & 0.88991e+03_rb,0.68835e+03_rb,0.53566e+03_rb,0.73738e+03_rb,0.94849e+03_rb /)
+      kbo(:, 5,37, 6) = (/ &
+        & 0.88988e+03_rb,0.68833e+03_rb,0.53557e+03_rb,0.73651e+03_rb,0.94716e+03_rb /)
+      kbo(:, 1,38, 6) = (/ &
+        & 0.88990e+03_rb,0.68834e+03_rb,0.53566e+03_rb,0.73830e+03_rb,0.95036e+03_rb /)
+      kbo(:, 2,38, 6) = (/ &
+        & 0.88987e+03_rb,0.68832e+03_rb,0.53568e+03_rb,0.73825e+03_rb,0.95013e+03_rb /)
+      kbo(:, 3,38, 6) = (/ &
+        & 0.88984e+03_rb,0.68830e+03_rb,0.53566e+03_rb,0.73798e+03_rb,0.94957e+03_rb /)
+      kbo(:, 4,38, 6) = (/ &
+        & 0.88982e+03_rb,0.68828e+03_rb,0.53563e+03_rb,0.73747e+03_rb,0.94865e+03_rb /)
+      kbo(:, 5,38, 6) = (/ &
+        & 0.88979e+03_rb,0.68826e+03_rb,0.53555e+03_rb,0.73665e+03_rb,0.94737e+03_rb /)
+      kbo(:, 1,39, 6) = (/ &
+        & 0.88981e+03_rb,0.68827e+03_rb,0.53562e+03_rb,0.73829e+03_rb,0.95037e+03_rb /)
+      kbo(:, 2,39, 6) = (/ &
+        & 0.88978e+03_rb,0.68825e+03_rb,0.53564e+03_rb,0.73826e+03_rb,0.95018e+03_rb /)
+      kbo(:, 3,39, 6) = (/ &
+        & 0.88976e+03_rb,0.68824e+03_rb,0.53563e+03_rb,0.73803e+03_rb,0.94966e+03_rb /)
+      kbo(:, 4,39, 6) = (/ &
+        & 0.88974e+03_rb,0.68822e+03_rb,0.53560e+03_rb,0.73755e+03_rb,0.94880e+03_rb /)
+      kbo(:, 5,39, 6) = (/ &
+        & 0.88972e+03_rb,0.68821e+03_rb,0.53553e+03_rb,0.73679e+03_rb,0.94757e+03_rb /)
+      kbo(:, 1,40, 6) = (/ &
+        & 0.88973e+03_rb,0.68822e+03_rb,0.53558e+03_rb,0.73826e+03_rb,0.95037e+03_rb /)
+      kbo(:, 2,40, 6) = (/ &
+        & 0.88971e+03_rb,0.68820e+03_rb,0.53561e+03_rb,0.73829e+03_rb,0.95026e+03_rb /)
+      kbo(:, 3,40, 6) = (/ &
+        & 0.88969e+03_rb,0.68819e+03_rb,0.53561e+03_rb,0.73810e+03_rb,0.94982e+03_rb /)
+      kbo(:, 4,40, 6) = (/ &
+        & 0.88967e+03_rb,0.68817e+03_rb,0.53559e+03_rb,0.73769e+03_rb,0.94904e+03_rb /)
+      kbo(:, 5,40, 6) = (/ &
+        & 0.88966e+03_rb,0.68816e+03_rb,0.53553e+03_rb,0.73700e+03_rb,0.94790e+03_rb /)
+      kbo(:, 1,41, 6) = (/ &
+        & 0.88967e+03_rb,0.68817e+03_rb,0.53555e+03_rb,0.73822e+03_rb,0.95035e+03_rb /)
+      kbo(:, 2,41, 6) = (/ &
+        & 0.88965e+03_rb,0.68816e+03_rb,0.53558e+03_rb,0.73830e+03_rb,0.95031e+03_rb /)
+      kbo(:, 3,41, 6) = (/ &
+        & 0.88964e+03_rb,0.68815e+03_rb,0.53559e+03_rb,0.73817e+03_rb,0.94996e+03_rb /)
+      kbo(:, 4,41, 6) = (/ &
+        & 0.88962e+03_rb,0.68813e+03_rb,0.53558e+03_rb,0.73782e+03_rb,0.94927e+03_rb /)
+      kbo(:, 5,41, 6) = (/ &
+        & 0.88961e+03_rb,0.68812e+03_rb,0.53553e+03_rb,0.73722e+03_rb,0.94822e+03_rb /)
+      kbo(:, 1,42, 6) = (/ &
+        & 0.88962e+03_rb,0.68813e+03_rb,0.53551e+03_rb,0.73816e+03_rb,0.95029e+03_rb /)
+      kbo(:, 2,42, 6) = (/ &
+        & 0.88960e+03_rb,0.68812e+03_rb,0.53555e+03_rb,0.73830e+03_rb,0.95035e+03_rb /)
+      kbo(:, 3,42, 6) = (/ &
+        & 0.88959e+03_rb,0.68811e+03_rb,0.53557e+03_rb,0.73822e+03_rb,0.95008e+03_rb /)
+      kbo(:, 4,42, 6) = (/ &
+        & 0.88958e+03_rb,0.68810e+03_rb,0.53556e+03_rb,0.73793e+03_rb,0.94948e+03_rb /)
+      kbo(:, 5,42, 6) = (/ &
+        & 0.88957e+03_rb,0.68809e+03_rb,0.53553e+03_rb,0.73739e+03_rb,0.94853e+03_rb /)
+      kbo(:, 1,43, 6) = (/ &
+        & 0.88958e+03_rb,0.68810e+03_rb,0.53547e+03_rb,0.73807e+03_rb,0.95020e+03_rb /)
+      kbo(:, 2,43, 6) = (/ &
+        & 0.88957e+03_rb,0.68809e+03_rb,0.53552e+03_rb,0.73828e+03_rb,0.95037e+03_rb /)
+      kbo(:, 3,43, 6) = (/ &
+        & 0.88955e+03_rb,0.68808e+03_rb,0.53555e+03_rb,0.73826e+03_rb,0.95020e+03_rb /)
+      kbo(:, 4,43, 6) = (/ &
+        & 0.88954e+03_rb,0.68808e+03_rb,0.53555e+03_rb,0.73804e+03_rb,0.94970e+03_rb /)
+      kbo(:, 5,43, 6) = (/ &
+        & 0.88953e+03_rb,0.68807e+03_rb,0.53553e+03_rb,0.73758e+03_rb,0.94886e+03_rb /)
+      kbo(:, 1,44, 6) = (/ &
+        & 0.88954e+03_rb,0.68808e+03_rb,0.53544e+03_rb,0.73795e+03_rb,0.95005e+03_rb /)
+      kbo(:, 2,44, 6) = (/ &
+        & 0.88953e+03_rb,0.68807e+03_rb,0.53549e+03_rb,0.73823e+03_rb,0.95035e+03_rb /)
+      kbo(:, 3,44, 6) = (/ &
+        & 0.88952e+03_rb,0.68806e+03_rb,0.53553e+03_rb,0.73829e+03_rb,0.95030e+03_rb /)
+      kbo(:, 4,44, 6) = (/ &
+        & 0.88951e+03_rb,0.68805e+03_rb,0.53554e+03_rb,0.73815e+03_rb,0.94991e+03_rb /)
+      kbo(:, 5,44, 6) = (/ &
+        & 0.88951e+03_rb,0.68805e+03_rb,0.53553e+03_rb,0.73776e+03_rb,0.94919e+03_rb /)
+      kbo(:, 1,45, 6) = (/ &
+        & 0.88952e+03_rb,0.68806e+03_rb,0.53540e+03_rb,0.73782e+03_rb,0.94987e+03_rb /)
+      kbo(:, 2,45, 6) = (/ &
+        & 0.88951e+03_rb,0.68805e+03_rb,0.53547e+03_rb,0.73816e+03_rb,0.95030e+03_rb /)
+      kbo(:, 3,45, 6) = (/ &
+        & 0.88950e+03_rb,0.68804e+03_rb,0.53551e+03_rb,0.73830e+03_rb,0.95035e+03_rb /)
+      kbo(:, 4,45, 6) = (/ &
+        & 0.88949e+03_rb,0.68804e+03_rb,0.53553e+03_rb,0.73821e+03_rb,0.95008e+03_rb /)
+      kbo(:, 5,45, 6) = (/ &
+        & 0.88948e+03_rb,0.68803e+03_rb,0.53553e+03_rb,0.73792e+03_rb,0.94947e+03_rb /)
+      kbo(:, 1,46, 6) = (/ &
+        & 0.88949e+03_rb,0.68804e+03_rb,0.53537e+03_rb,0.73763e+03_rb,0.94962e+03_rb /)
+      kbo(:, 2,46, 6) = (/ &
+        & 0.88948e+03_rb,0.68803e+03_rb,0.53544e+03_rb,0.73806e+03_rb,0.95019e+03_rb /)
+      kbo(:, 3,46, 6) = (/ &
+        & 0.88948e+03_rb,0.68803e+03_rb,0.53549e+03_rb,0.73827e+03_rb,0.95037e+03_rb /)
+      kbo(:, 4,46, 6) = (/ &
+        & 0.88947e+03_rb,0.68802e+03_rb,0.53552e+03_rb,0.73827e+03_rb,0.95021e+03_rb /)
+      kbo(:, 5,46, 6) = (/ &
+        & 0.88946e+03_rb,0.68802e+03_rb,0.53552e+03_rb,0.73805e+03_rb,0.94973e+03_rb /)
+      kbo(:, 1,47, 6) = (/ &
+        & 0.88947e+03_rb,0.68802e+03_rb,0.53531e+03_rb,0.73737e+03_rb,0.94929e+03_rb /)
+      kbo(:, 2,47, 6) = (/ &
+        & 0.88947e+03_rb,0.68802e+03_rb,0.53539e+03_rb,0.73792e+03_rb,0.95000e+03_rb /)
+      kbo(:, 3,47, 6) = (/ &
+        & 0.88946e+03_rb,0.68801e+03_rb,0.53546e+03_rb,0.73821e+03_rb,0.95034e+03_rb /)
+      kbo(:, 4,47, 6) = (/ &
+        & 0.88945e+03_rb,0.68801e+03_rb,0.53550e+03_rb,0.73829e+03_rb,0.95032e+03_rb /)
+      kbo(:, 5,47, 6) = (/ &
+        & 0.88945e+03_rb,0.68800e+03_rb,0.53551e+03_rb,0.73816e+03_rb,0.94996e+03_rb /)
+      kbo(:, 1,48, 6) = (/ &
+        & 0.88946e+03_rb,0.68801e+03_rb,0.53528e+03_rb,0.73708e+03_rb,0.94889e+03_rb /)
+      kbo(:, 2,48, 6) = (/ &
+        & 0.88945e+03_rb,0.68801e+03_rb,0.53536e+03_rb,0.73773e+03_rb,0.94976e+03_rb /)
+      kbo(:, 3,48, 6) = (/ &
+        & 0.88944e+03_rb,0.68800e+03_rb,0.53543e+03_rb,0.73812e+03_rb,0.95025e+03_rb /)
+      kbo(:, 4,48, 6) = (/ &
+        & 0.88944e+03_rb,0.68800e+03_rb,0.53548e+03_rb,0.73829e+03_rb,0.95037e+03_rb /)
+      kbo(:, 5,48, 6) = (/ &
+        & 0.88944e+03_rb,0.68800e+03_rb,0.53551e+03_rb,0.73824e+03_rb,0.95014e+03_rb /)
+      kbo(:, 1,49, 6) = (/ &
+        & 0.88944e+03_rb,0.68800e+03_rb,0.53524e+03_rb,0.73674e+03_rb,0.94844e+03_rb /)
+      kbo(:, 2,49, 6) = (/ &
+        & 0.88944e+03_rb,0.68800e+03_rb,0.53533e+03_rb,0.73750e+03_rb,0.94945e+03_rb /)
+      kbo(:, 3,49, 6) = (/ &
+        & 0.88943e+03_rb,0.68799e+03_rb,0.53540e+03_rb,0.73799e+03_rb,0.95016e+03_rb /)
+      kbo(:, 4,49, 6) = (/ &
+        & 0.88943e+03_rb,0.68799e+03_rb,0.53546e+03_rb,0.73825e+03_rb,0.95036e+03_rb /)
+      kbo(:, 5,49, 6) = (/ &
+        & 0.88942e+03_rb,0.68799e+03_rb,0.53549e+03_rb,0.73828e+03_rb,0.95027e+03_rb /)
+      kbo(:, 1,50, 6) = (/ &
+        & 0.88943e+03_rb,0.68799e+03_rb,0.53521e+03_rb,0.73638e+03_rb,0.94796e+03_rb /)
+      kbo(:, 2,50, 6) = (/ &
+        & 0.88943e+03_rb,0.68799e+03_rb,0.53529e+03_rb,0.73724e+03_rb,0.94911e+03_rb /)
+      kbo(:, 3,50, 6) = (/ &
+        & 0.88942e+03_rb,0.68798e+03_rb,0.53537e+03_rb,0.73783e+03_rb,0.94990e+03_rb /)
+      kbo(:, 4,50, 6) = (/ &
+        & 0.88942e+03_rb,0.68798e+03_rb,0.53544e+03_rb,0.73817e+03_rb,0.95031e+03_rb /)
+      kbo(:, 5,50, 6) = (/ &
+        & 0.88942e+03_rb,0.68798e+03_rb,0.53548e+03_rb,0.73829e+03_rb,0.95034e+03_rb /)
+      kbo(:, 1,51, 6) = (/ &
+        & 0.88942e+03_rb,0.68798e+03_rb,0.53518e+03_rb,0.73600e+03_rb,0.94745e+03_rb /)
+      kbo(:, 2,51, 6) = (/ &
+        & 0.88942e+03_rb,0.68798e+03_rb,0.53525e+03_rb,0.73696e+03_rb,0.94873e+03_rb /)
+      kbo(:, 3,51, 6) = (/ &
+        & 0.88941e+03_rb,0.68798e+03_rb,0.53533e+03_rb,0.73765e+03_rb,0.94966e+03_rb /)
+      kbo(:, 4,51, 6) = (/ &
+        & 0.88941e+03_rb,0.68798e+03_rb,0.53541e+03_rb,0.73807e+03_rb,0.95020e+03_rb /)
+      kbo(:, 5,51, 6) = (/ &
+        & 0.88941e+03_rb,0.68797e+03_rb,0.53546e+03_rb,0.73827e+03_rb,0.95037e+03_rb /)
+      kbo(:, 1,52, 6) = (/ &
+        & 0.88941e+03_rb,0.68798e+03_rb,0.53513e+03_rb,0.73556e+03_rb,0.94688e+03_rb /)
+      kbo(:, 2,52, 6) = (/ &
+        & 0.88941e+03_rb,0.68798e+03_rb,0.53522e+03_rb,0.73664e+03_rb,0.94831e+03_rb /)
+      kbo(:, 3,52, 6) = (/ &
+        & 0.88941e+03_rb,0.68797e+03_rb,0.53531e+03_rb,0.73743e+03_rb,0.94936e+03_rb /)
+      kbo(:, 4,52, 6) = (/ &
+        & 0.88940e+03_rb,0.68797e+03_rb,0.53538e+03_rb,0.73795e+03_rb,0.95005e+03_rb /)
+      kbo(:, 5,52, 6) = (/ &
+        & 0.88940e+03_rb,0.68797e+03_rb,0.53545e+03_rb,0.73822e+03_rb,0.95036e+03_rb /)
+      kbo(:, 1,53, 6) = (/ &
+        & 0.88941e+03_rb,0.68797e+03_rb,0.53507e+03_rb,0.73509e+03_rb,0.94627e+03_rb /)
+      kbo(:, 2,53, 6) = (/ &
+        & 0.88940e+03_rb,0.68797e+03_rb,0.53519e+03_rb,0.73629e+03_rb,0.94784e+03_rb /)
+      kbo(:, 3,53, 6) = (/ &
+        & 0.88940e+03_rb,0.68797e+03_rb,0.53527e+03_rb,0.73717e+03_rb,0.94902e+03_rb /)
+      kbo(:, 4,53, 6) = (/ &
+        & 0.88940e+03_rb,0.68797e+03_rb,0.53535e+03_rb,0.73779e+03_rb,0.94984e+03_rb /)
+      kbo(:, 5,53, 6) = (/ &
+        & 0.88940e+03_rb,0.68797e+03_rb,0.53542e+03_rb,0.73815e+03_rb,0.95029e+03_rb /)
+      kbo(:, 1,54, 6) = (/ &
+        & 0.88940e+03_rb,0.68797e+03_rb,0.53502e+03_rb,0.73463e+03_rb,0.94566e+03_rb /)
+      kbo(:, 2,54, 6) = (/ &
+        & 0.88940e+03_rb,0.68797e+03_rb,0.53516e+03_rb,0.73592e+03_rb,0.94735e+03_rb /)
+      kbo(:, 3,54, 6) = (/ &
+        & 0.88940e+03_rb,0.68796e+03_rb,0.53524e+03_rb,0.73691e+03_rb,0.94866e+03_rb /)
+      kbo(:, 4,54, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53533e+03_rb,0.73761e+03_rb,0.94961e+03_rb /)
+      kbo(:, 5,54, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53539e+03_rb,0.73805e+03_rb,0.95018e+03_rb /)
+      kbo(:, 1,55, 6) = (/ &
+        & 0.88940e+03_rb,0.68796e+03_rb,0.53495e+03_rb,0.73415e+03_rb,0.94503e+03_rb /)
+      kbo(:, 2,55, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53513e+03_rb,0.73554e+03_rb,0.94685e+03_rb /)
+      kbo(:, 3,55, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53521e+03_rb,0.73662e+03_rb,0.94828e+03_rb /)
+      kbo(:, 4,55, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53530e+03_rb,0.73742e+03_rb,0.94934e+03_rb /)
+      kbo(:, 5,55, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53537e+03_rb,0.73794e+03_rb,0.95004e+03_rb /)
+      kbo(:, 1,56, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53489e+03_rb,0.73364e+03_rb,0.94437e+03_rb /)
+      kbo(:, 2,56, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53507e+03_rb,0.73512e+03_rb,0.94631e+03_rb /)
+      kbo(:, 3,56, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53519e+03_rb,0.73631e+03_rb,0.94787e+03_rb /)
+      kbo(:, 4,56, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53527e+03_rb,0.73719e+03_rb,0.94904e+03_rb /)
+      kbo(:, 5,56, 6) = (/ &
+        & 0.88938e+03_rb,0.68796e+03_rb,0.53535e+03_rb,0.73780e+03_rb,0.94987e+03_rb /)
+      kbo(:, 1,57, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53481e+03_rb,0.73310e+03_rb,0.94366e+03_rb /)
+      kbo(:, 2,57, 6) = (/ &
+        & 0.88939e+03_rb,0.68796e+03_rb,0.53502e+03_rb,0.73469e+03_rb,0.94573e+03_rb /)
+      kbo(:, 3,57, 6) = (/ &
+        & 0.88938e+03_rb,0.68796e+03_rb,0.53516e+03_rb,0.73597e+03_rb,0.94741e+03_rb /)
+      kbo(:, 4,57, 6) = (/ &
+        & 0.88938e+03_rb,0.68796e+03_rb,0.53524e+03_rb,0.73694e+03_rb,0.94871e+03_rb /)
+      kbo(:, 5,57, 6) = (/ &
+        & 0.88938e+03_rb,0.68795e+03_rb,0.53532e+03_rb,0.73764e+03_rb,0.94964e+03_rb /)
+      kbo(:, 1,58, 6) = (/ &
+        & 0.88938e+03_rb,0.68796e+03_rb,0.53474e+03_rb,0.73255e+03_rb,0.94296e+03_rb /)
+      kbo(:, 2,58, 6) = (/ &
+        & 0.88938e+03_rb,0.68796e+03_rb,0.53496e+03_rb,0.73423e+03_rb,0.94515e+03_rb /)
+      kbo(:, 3,58, 6) = (/ &
+        & 0.88938e+03_rb,0.68795e+03_rb,0.53512e+03_rb,0.73561e+03_rb,0.94695e+03_rb /)
+      kbo(:, 4,58, 6) = (/ &
+        & 0.88938e+03_rb,0.68795e+03_rb,0.53522e+03_rb,0.73667e+03_rb,0.94836e+03_rb /)
+      kbo(:, 5,58, 6) = (/ &
+        & 0.88938e+03_rb,0.68795e+03_rb,0.53530e+03_rb,0.73745e+03_rb,0.94939e+03_rb /)
+      kbo(:, 1,59, 6) = (/ &
+        & 0.88938e+03_rb,0.68795e+03_rb,0.53470e+03_rb,0.73233e+03_rb,0.94266e+03_rb /)
+      kbo(:, 2,59, 6) = (/ &
+        & 0.88938e+03_rb,0.68795e+03_rb,0.53494e+03_rb,0.73405e+03_rb,0.94490e+03_rb /)
+      kbo(:, 3,59, 6) = (/ &
+        & 0.88938e+03_rb,0.68795e+03_rb,0.53510e+03_rb,0.73546e+03_rb,0.94675e+03_rb /)
+      kbo(:, 4,59, 6) = (/ &
+        & 0.88938e+03_rb,0.68795e+03_rb,0.53521e+03_rb,0.73657e+03_rb,0.94820e+03_rb /)
+      kbo(:, 5,59, 6) = (/ &
+        & 0.88938e+03_rb,0.68795e+03_rb,0.53529e+03_rb,0.73737e+03_rb,0.94929e+03_rb /)
+      kbo(:, 1,13, 7) = (/ &
+        & 0.11104e+04_rb,0.84453e+03_rb,0.58852e+03_rb,0.81799e+03_rb,0.10746e+04_rb /)
+      kbo(:, 2,13, 7) = (/ &
+        & 0.11019e+04_rb,0.83810e+03_rb,0.58572e+03_rb,0.81836e+03_rb,0.10752e+04_rb /)
+      kbo(:, 3,13, 7) = (/ &
+        & 0.10945e+04_rb,0.83257e+03_rb,0.58306e+03_rb,0.81848e+03_rb,0.10754e+04_rb /)
+      kbo(:, 4,13, 7) = (/ &
+        & 0.10881e+04_rb,0.82775e+03_rb,0.58047e+03_rb,0.81831e+03_rb,0.10753e+04_rb /)
+      kbo(:, 5,13, 7) = (/ &
+        & 0.10824e+04_rb,0.82352e+03_rb,0.57809e+03_rb,0.81788e+03_rb,0.10749e+04_rb /)
+      kbo(:, 1,14, 7) = (/ &
+        & 0.10890e+04_rb,0.82842e+03_rb,0.58087e+03_rb,0.81780e+03_rb,0.10747e+04_rb /)
+      kbo(:, 2,14, 7) = (/ &
+        & 0.10820e+04_rb,0.82323e+03_rb,0.57803e+03_rb,0.81816e+03_rb,0.10753e+04_rb /)
+      kbo(:, 3,14, 7) = (/ &
+        & 0.10761e+04_rb,0.81875e+03_rb,0.57524e+03_rb,0.81827e+03_rb,0.10754e+04_rb /)
+      kbo(:, 4,14, 7) = (/ &
+        & 0.10709e+04_rb,0.81486e+03_rb,0.57281e+03_rb,0.81809e+03_rb,0.10752e+04_rb /)
+      kbo(:, 5,14, 7) = (/ &
+        & 0.10663e+04_rb,0.81144e+03_rb,0.57087e+03_rb,0.81766e+03_rb,0.10748e+04_rb /)
+      kbo(:, 1,15, 7) = (/ &
+        & 0.10714e+04_rb,0.81529e+03_rb,0.57324e+03_rb,0.81765e+03_rb,0.10748e+04_rb /)
+      kbo(:, 2,15, 7) = (/ &
+        & 0.10659e+04_rb,0.81110e+03_rb,0.57094e+03_rb,0.81800e+03_rb,0.10753e+04_rb /)
+      kbo(:, 3,15, 7) = (/ &
+        & 0.10611e+04_rb,0.80749e+03_rb,0.56926e+03_rb,0.81809e+03_rb,0.10754e+04_rb /)
+      kbo(:, 4,15, 7) = (/ &
+        & 0.10569e+04_rb,0.80434e+03_rb,0.56791e+03_rb,0.81790e+03_rb,0.10752e+04_rb /)
+      kbo(:, 5,15, 7) = (/ &
+        & 0.10532e+04_rb,0.80157e+03_rb,0.56672e+03_rb,0.81746e+03_rb,0.10748e+04_rb /)
+      kbo(:, 1,16, 7) = (/ &
+        & 0.10572e+04_rb,0.80460e+03_rb,0.56822e+03_rb,0.81755e+03_rb,0.10748e+04_rb /)
+      kbo(:, 2,16, 7) = (/ &
+        & 0.10527e+04_rb,0.80122e+03_rb,0.56701e+03_rb,0.81788e+03_rb,0.10753e+04_rb /)
+      kbo(:, 3,16, 7) = (/ &
+        & 0.10488e+04_rb,0.79831e+03_rb,0.56599e+03_rb,0.81796e+03_rb,0.10754e+04_rb /)
+      kbo(:, 4,16, 7) = (/ &
+        & 0.10454e+04_rb,0.79577e+03_rb,0.56505e+03_rb,0.81773e+03_rb,0.10752e+04_rb /)
+      kbo(:, 5,16, 7) = (/ &
+        & 0.10425e+04_rb,0.79354e+03_rb,0.56418e+03_rb,0.81728e+03_rb,0.10747e+04_rb /)
+      kbo(:, 1,17, 7) = (/ &
+        & 0.10456e+04_rb,0.79593e+03_rb,0.56540e+03_rb,0.81747e+03_rb,0.10749e+04_rb /)
+      kbo(:, 2,17, 7) = (/ &
+        & 0.10420e+04_rb,0.79321e+03_rb,0.56464e+03_rb,0.81778e+03_rb,0.10753e+04_rb /)
+      kbo(:, 3,17, 7) = (/ &
+        & 0.10389e+04_rb,0.79086e+03_rb,0.56406e+03_rb,0.81783e+03_rb,0.10754e+04_rb /)
+      kbo(:, 4,17, 7) = (/ &
+        & 0.10362e+04_rb,0.78881e+03_rb,0.56355e+03_rb,0.81761e+03_rb,0.10751e+04_rb /)
+      kbo(:, 5,17, 7) = (/ &
+        & 0.10337e+04_rb,0.78701e+03_rb,0.56298e+03_rb,0.81712e+03_rb,0.10746e+04_rb /)
+      kbo(:, 1,18, 7) = (/ &
+        & 0.10363e+04_rb,0.78890e+03_rb,0.56372e+03_rb,0.81741e+03_rb,0.10750e+04_rb /)
+      kbo(:, 2,18, 7) = (/ &
+        & 0.10334e+04_rb,0.78671e+03_rb,0.56351e+03_rb,0.81771e+03_rb,0.10753e+04_rb /)
+      kbo(:, 3,18, 7) = (/ &
+        & 0.10308e+04_rb,0.78481e+03_rb,0.56335e+03_rb,0.81775e+03_rb,0.10754e+04_rb /)
+      kbo(:, 4,18, 7) = (/ &
+        & 0.10286e+04_rb,0.78316e+03_rb,0.56306e+03_rb,0.81749e+03_rb,0.10751e+04_rb /)
+      kbo(:, 5,18, 7) = (/ &
+        & 0.10267e+04_rb,0.78170e+03_rb,0.56253e+03_rb,0.81698e+03_rb,0.10746e+04_rb /)
+      kbo(:, 1,19, 7) = (/ &
+        & 0.10287e+04_rb,0.78319e+03_rb,0.56306e+03_rb,0.81737e+03_rb,0.10751e+04_rb /)
+      kbo(:, 2,19, 7) = (/ &
+        & 0.10263e+04_rb,0.78143e+03_rb,0.56317e+03_rb,0.81766e+03_rb,0.10754e+04_rb /)
+      kbo(:, 3,19, 7) = (/ &
+        & 0.10243e+04_rb,0.77990e+03_rb,0.56256e+03_rb,0.81764e+03_rb,0.10753e+04_rb /)
+      kbo(:, 4,19, 7) = (/ &
+        & 0.10225e+04_rb,0.77856e+03_rb,0.56270e+03_rb,0.81737e+03_rb,0.10751e+04_rb /)
+      kbo(:, 5,19, 7) = (/ &
+        & 0.10209e+04_rb,0.77738e+03_rb,0.56230e+03_rb,0.81685e+03_rb,0.10745e+04_rb /)
+      kbo(:, 1,20, 7) = (/ &
+        & 0.10225e+04_rb,0.77853e+03_rb,0.56258e+03_rb,0.81735e+03_rb,0.10751e+04_rb /)
+      kbo(:, 2,20, 7) = (/ &
+        & 0.10206e+04_rb,0.77711e+03_rb,0.56304e+03_rb,0.81761e+03_rb,0.10754e+04_rb /)
+      kbo(:, 3,20, 7) = (/ &
+        & 0.10189e+04_rb,0.77589e+03_rb,0.56295e+03_rb,0.81757e+03_rb,0.10753e+04_rb /)
+      kbo(:, 4,20, 7) = (/ &
+        & 0.10175e+04_rb,0.77480e+03_rb,0.56264e+03_rb,0.81728e+03_rb,0.10750e+04_rb /)
+      kbo(:, 5,20, 7) = (/ &
+        & 0.10162e+04_rb,0.77385e+03_rb,0.56211e+03_rb,0.81672e+03_rb,0.10744e+04_rb /)
+      kbo(:, 1,21, 7) = (/ &
+        & 0.10174e+04_rb,0.77475e+03_rb,0.56279e+03_rb,0.81734e+03_rb,0.10752e+04_rb /)
+      kbo(:, 2,21, 7) = (/ &
+        & 0.10159e+04_rb,0.77361e+03_rb,0.56292e+03_rb,0.81756e+03_rb,0.10754e+04_rb /)
+      kbo(:, 3,21, 7) = (/ &
+        & 0.10146e+04_rb,0.77262e+03_rb,0.56281e+03_rb,0.81751e+03_rb,0.10753e+04_rb /)
+      kbo(:, 4,21, 7) = (/ &
+        & 0.10134e+04_rb,0.77175e+03_rb,0.56248e+03_rb,0.81718e+03_rb,0.10750e+04_rb /)
+      kbo(:, 5,21, 7) = (/ &
+        & 0.10124e+04_rb,0.77098e+03_rb,0.56193e+03_rb,0.81661e+03_rb,0.10743e+04_rb /)
+      kbo(:, 1,22, 7) = (/ &
+        & 0.10132e+04_rb,0.77163e+03_rb,0.56273e+03_rb,0.81736e+03_rb,0.10752e+04_rb /)
+      kbo(:, 2,22, 7) = (/ &
+        & 0.10120e+04_rb,0.77071e+03_rb,0.56281e+03_rb,0.81753e+03_rb,0.10754e+04_rb /)
+      kbo(:, 3,22, 7) = (/ &
+        & 0.10110e+04_rb,0.76992e+03_rb,0.56267e+03_rb,0.81743e+03_rb,0.10753e+04_rb /)
+      kbo(:, 4,22, 7) = (/ &
+        & 0.10100e+04_rb,0.76922e+03_rb,0.56230e+03_rb,0.81706e+03_rb,0.10749e+04_rb /)
+      kbo(:, 5,22, 7) = (/ &
+        & 0.10092e+04_rb,0.76860e+03_rb,0.56172e+03_rb,0.81643e+03_rb,0.10742e+04_rb /)
+      kbo(:, 1,23, 7) = (/ &
+        & 0.10099e+04_rb,0.76909e+03_rb,0.56267e+03_rb,0.81738e+03_rb,0.10753e+04_rb /)
+      kbo(:, 2,23, 7) = (/ &
+        & 0.10089e+04_rb,0.76836e+03_rb,0.56273e+03_rb,0.81751e+03_rb,0.10754e+04_rb /)
+      kbo(:, 3,23, 7) = (/ &
+        & 0.10080e+04_rb,0.76773e+03_rb,0.56254e+03_rb,0.81734e+03_rb,0.10752e+04_rb /)
+      kbo(:, 4,23, 7) = (/ &
+        & 0.10073e+04_rb,0.76717e+03_rb,0.56214e+03_rb,0.81691e+03_rb,0.10748e+04_rb /)
+      kbo(:, 5,23, 7) = (/ &
+        & 0.10067e+04_rb,0.76668e+03_rb,0.56152e+03_rb,0.81625e+03_rb,0.10740e+04_rb /)
+      kbo(:, 1,24, 7) = (/ &
+        & 0.10071e+04_rb,0.76704e+03_rb,0.56263e+03_rb,0.81739e+03_rb,0.10753e+04_rb /)
+      kbo(:, 2,24, 7) = (/ &
+        & 0.10064e+04_rb,0.76647e+03_rb,0.56264e+03_rb,0.81747e+03_rb,0.10754e+04_rb /)
+      kbo(:, 3,24, 7) = (/ &
+        & 0.10057e+04_rb,0.76596e+03_rb,0.56242e+03_rb,0.81725e+03_rb,0.10751e+04_rb /)
+      kbo(:, 4,24, 7) = (/ &
+        & 0.10051e+04_rb,0.76551e+03_rb,0.56198e+03_rb,0.81678e+03_rb,0.10746e+04_rb /)
+      kbo(:, 5,24, 7) = (/ &
+        & 0.10046e+04_rb,0.76512e+03_rb,0.56132e+03_rb,0.81606e+03_rb,0.10738e+04_rb /)
+      kbo(:, 1,25, 7) = (/ &
+        & 0.10049e+04_rb,0.76538e+03_rb,0.56260e+03_rb,0.81741e+03_rb,0.10754e+04_rb /)
+      kbo(:, 2,25, 7) = (/ &
+        & 0.10043e+04_rb,0.76492e+03_rb,0.56256e+03_rb,0.81742e+03_rb,0.10753e+04_rb /)
+      kbo(:, 3,25, 7) = (/ &
+        & 0.10038e+04_rb,0.76453e+03_rb,0.56229e+03_rb,0.81717e+03_rb,0.10750e+04_rb /)
+      kbo(:, 4,25, 7) = (/ &
+        & 0.10033e+04_rb,0.76417e+03_rb,0.56181e+03_rb,0.81663e+03_rb,0.10745e+04_rb /)
+      kbo(:, 5,25, 7) = (/ &
+        & 0.10029e+04_rb,0.76385e+03_rb,0.56111e+03_rb,0.81585e+03_rb,0.10736e+04_rb /)
+      kbo(:, 1,26, 7) = (/ &
+        & 0.10031e+04_rb,0.76404e+03_rb,0.56257e+03_rb,0.81743e+03_rb,0.10754e+04_rb /)
+      kbo(:, 2,26, 7) = (/ &
+        & 0.10026e+04_rb,0.76368e+03_rb,0.56248e+03_rb,0.81736e+03_rb,0.10753e+04_rb /)
+      kbo(:, 3,26, 7) = (/ &
+        & 0.10022e+04_rb,0.76336e+03_rb,0.56216e+03_rb,0.81707e+03_rb,0.10749e+04_rb /)
+      kbo(:, 4,26, 7) = (/ &
+        & 0.10018e+04_rb,0.76308e+03_rb,0.56163e+03_rb,0.81645e+03_rb,0.10743e+04_rb /)
+      kbo(:, 5,26, 7) = (/ &
+        & 0.10015e+04_rb,0.76282e+03_rb,0.56088e+03_rb,0.81561e+03_rb,0.10734e+04_rb /)
+      kbo(:, 1,27, 7) = (/ &
+        & 0.10017e+04_rb,0.76296e+03_rb,0.56253e+03_rb,0.81743e+03_rb,0.10754e+04_rb /)
+      kbo(:, 2,27, 7) = (/ &
+        & 0.10013e+04_rb,0.76268e+03_rb,0.56239e+03_rb,0.81730e+03_rb,0.10752e+04_rb /)
+      kbo(:, 3,27, 7) = (/ &
+        & 0.10010e+04_rb,0.76242e+03_rb,0.56202e+03_rb,0.81696e+03_rb,0.10748e+04_rb /)
+      kbo(:, 4,27, 7) = (/ &
+        & 0.10007e+04_rb,0.76220e+03_rb,0.56144e+03_rb,0.81630e+03_rb,0.10741e+04_rb /)
+      kbo(:, 5,27, 7) = (/ &
+        & 0.10004e+04_rb,0.76200e+03_rb,0.56064e+03_rb,0.81536e+03_rb,0.10731e+04_rb /)
+      kbo(:, 1,28, 7) = (/ &
+        & 0.10005e+04_rb,0.76209e+03_rb,0.56249e+03_rb,0.81738e+03_rb,0.10754e+04_rb /)
+      kbo(:, 2,28, 7) = (/ &
+        & 0.10002e+04_rb,0.76186e+03_rb,0.56229e+03_rb,0.81724e+03_rb,0.10752e+04_rb /)
+      kbo(:, 3,28, 7) = (/ &
+        & 0.99995e+03_rb,0.76166e+03_rb,0.56188e+03_rb,0.81687e+03_rb,0.10747e+04_rb /)
+      kbo(:, 4,28, 7) = (/ &
+        & 0.99971e+03_rb,0.76148e+03_rb,0.56124e+03_rb,0.81607e+03_rb,0.10739e+04_rb /)
+      kbo(:, 5,28, 7) = (/ &
+        & 0.99950e+03_rb,0.76132e+03_rb,0.56040e+03_rb,0.81510e+03_rb,0.10728e+04_rb /)
+      kbo(:, 1,29, 7) = (/ &
+        & 0.99960e+03_rb,0.76139e+03_rb,0.56244e+03_rb,0.81739e+03_rb,0.10753e+04_rb /)
+      kbo(:, 2,29, 7) = (/ &
+        & 0.99935e+03_rb,0.76121e+03_rb,0.56219e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)
+      kbo(:, 3,29, 7) = (/ &
+        & 0.99914e+03_rb,0.76105e+03_rb,0.56172e+03_rb,0.81663e+03_rb,0.10745e+04_rb /)
+      kbo(:, 4,29, 7) = (/ &
+        & 0.99895e+03_rb,0.76091e+03_rb,0.56103e+03_rb,0.81584e+03_rb,0.10737e+04_rb /)
+      kbo(:, 5,29, 7) = (/ &
+        & 0.99878e+03_rb,0.76078e+03_rb,0.56014e+03_rb,0.81482e+03_rb,0.10725e+04_rb /)
+      kbo(:, 1,30, 7) = (/ &
+        & 0.99885e+03_rb,0.76083e+03_rb,0.56238e+03_rb,0.81733e+03_rb,0.10753e+04_rb /)
+      kbo(:, 2,30, 7) = (/ &
+        & 0.99865e+03_rb,0.76069e+03_rb,0.56207e+03_rb,0.81703e+03_rb,0.10750e+04_rb /)
+      kbo(:, 3,30, 7) = (/ &
+        & 0.99848e+03_rb,0.76055e+03_rb,0.56155e+03_rb,0.81643e+03_rb,0.10743e+04_rb /)
+      kbo(:, 4,30, 7) = (/ &
+        & 0.99833e+03_rb,0.76044e+03_rb,0.56081e+03_rb,0.81561e+03_rb,0.10734e+04_rb /)
+      kbo(:, 5,30, 7) = (/ &
+        & 0.99819e+03_rb,0.76034e+03_rb,0.55986e+03_rb,0.81451e+03_rb,0.10721e+04_rb /)
+      kbo(:, 1,31, 7) = (/ &
+        & 0.99824e+03_rb,0.76037e+03_rb,0.56231e+03_rb,0.81727e+03_rb,0.10752e+04_rb /)
+      kbo(:, 2,31, 7) = (/ &
+        & 0.99808e+03_rb,0.76026e+03_rb,0.56195e+03_rb,0.81690e+03_rb,0.10748e+04_rb /)
+      kbo(:, 3,31, 7) = (/ &
+        & 0.99794e+03_rb,0.76015e+03_rb,0.56137e+03_rb,0.81625e+03_rb,0.10741e+04_rb /)
+      kbo(:, 4,31, 7) = (/ &
+        & 0.99782e+03_rb,0.76006e+03_rb,0.56058e+03_rb,0.81535e+03_rb,0.10731e+04_rb /)
+      kbo(:, 5,31, 7) = (/ &
+        & 0.99772e+03_rb,0.75998e+03_rb,0.55958e+03_rb,0.81419e+03_rb,0.10717e+04_rb /)
+      kbo(:, 1,32, 7) = (/ &
+        & 0.99774e+03_rb,0.76000e+03_rb,0.56222e+03_rb,0.81719e+03_rb,0.10752e+04_rb /)
+      kbo(:, 2,32, 7) = (/ &
+        & 0.99763e+03_rb,0.75991e+03_rb,0.56181e+03_rb,0.81675e+03_rb,0.10747e+04_rb /)
+      kbo(:, 3,32, 7) = (/ &
+        & 0.99752e+03_rb,0.75984e+03_rb,0.56117e+03_rb,0.81604e+03_rb,0.10739e+04_rb /)
+      kbo(:, 4,32, 7) = (/ &
+        & 0.99742e+03_rb,0.75976e+03_rb,0.56033e+03_rb,0.81507e+03_rb,0.10728e+04_rb /)
+      kbo(:, 5,32, 7) = (/ &
+        & 0.99733e+03_rb,0.75970e+03_rb,0.55927e+03_rb,0.81384e+03_rb,0.10713e+04_rb /)
+      kbo(:, 1,33, 7) = (/ &
+        & 0.99735e+03_rb,0.75971e+03_rb,0.56212e+03_rb,0.81709e+03_rb,0.10751e+04_rb /)
+      kbo(:, 2,33, 7) = (/ &
+        & 0.99725e+03_rb,0.75964e+03_rb,0.56165e+03_rb,0.81658e+03_rb,0.10745e+04_rb /)
+      kbo(:, 3,33, 7) = (/ &
+        & 0.99717e+03_rb,0.75957e+03_rb,0.56096e+03_rb,0.81581e+03_rb,0.10736e+04_rb /)
+      kbo(:, 4,33, 7) = (/ &
+        & 0.99709e+03_rb,0.75952e+03_rb,0.56006e+03_rb,0.81477e+03_rb,0.10724e+04_rb /)
+      kbo(:, 5,33, 7) = (/ &
+        & 0.99703e+03_rb,0.75946e+03_rb,0.55896e+03_rb,0.81347e+03_rb,0.10709e+04_rb /)
+      kbo(:, 1,34, 7) = (/ &
+        & 0.99704e+03_rb,0.75947e+03_rb,0.56203e+03_rb,0.81702e+03_rb,0.10750e+04_rb /)
+      kbo(:, 2,34, 7) = (/ &
+        & 0.99696e+03_rb,0.75942e+03_rb,0.56151e+03_rb,0.81642e+03_rb,0.10743e+04_rb /)
+      kbo(:, 3,34, 7) = (/ &
+        & 0.99689e+03_rb,0.75937e+03_rb,0.56077e+03_rb,0.81558e+03_rb,0.10734e+04_rb /)
+      kbo(:, 4,34, 7) = (/ &
+        & 0.99683e+03_rb,0.75932e+03_rb,0.55982e+03_rb,0.81449e+03_rb,0.10721e+04_rb /)
+      kbo(:, 5,34, 7) = (/ &
+        & 0.99678e+03_rb,0.75928e+03_rb,0.55868e+03_rb,0.81314e+03_rb,0.10704e+04_rb /)
+      kbo(:, 1,35, 7) = (/ &
+        & 0.99679e+03_rb,0.75929e+03_rb,0.56197e+03_rb,0.81693e+03_rb,0.10749e+04_rb /)
+      kbo(:, 2,35, 7) = (/ &
+        & 0.99673e+03_rb,0.75925e+03_rb,0.56142e+03_rb,0.81633e+03_rb,0.10742e+04_rb /)
+      kbo(:, 3,35, 7) = (/ &
+        & 0.99667e+03_rb,0.75920e+03_rb,0.56065e+03_rb,0.81545e+03_rb,0.10733e+04_rb /)
+      kbo(:, 4,35, 7) = (/ &
+        & 0.99663e+03_rb,0.75916e+03_rb,0.55968e+03_rb,0.81434e+03_rb,0.10719e+04_rb /)
+      kbo(:, 5,35, 7) = (/ &
+        & 0.99658e+03_rb,0.75913e+03_rb,0.55851e+03_rb,0.81294e+03_rb,0.10702e+04_rb /)
+      kbo(:, 1,36, 7) = (/ &
+        & 0.99660e+03_rb,0.75914e+03_rb,0.56195e+03_rb,0.81692e+03_rb,0.10749e+04_rb /)
+      kbo(:, 2,36, 7) = (/ &
+        & 0.99655e+03_rb,0.75911e+03_rb,0.56140e+03_rb,0.81631e+03_rb,0.10742e+04_rb /)
+      kbo(:, 3,36, 7) = (/ &
+        & 0.99650e+03_rb,0.75907e+03_rb,0.56063e+03_rb,0.81543e+03_rb,0.10732e+04_rb /)
+      kbo(:, 4,36, 7) = (/ &
+        & 0.99646e+03_rb,0.75904e+03_rb,0.55965e+03_rb,0.81430e+03_rb,0.10719e+04_rb /)
+      kbo(:, 5,36, 7) = (/ &
+        & 0.99642e+03_rb,0.75901e+03_rb,0.55848e+03_rb,0.81290e+03_rb,0.10702e+04_rb /)
+      kbo(:, 1,37, 7) = (/ &
+        & 0.99645e+03_rb,0.75903e+03_rb,0.56200e+03_rb,0.81697e+03_rb,0.10749e+04_rb /)
+      kbo(:, 2,37, 7) = (/ &
+        & 0.99640e+03_rb,0.75900e+03_rb,0.56148e+03_rb,0.81640e+03_rb,0.10743e+04_rb /)
+      kbo(:, 3,37, 7) = (/ &
+        & 0.99636e+03_rb,0.75897e+03_rb,0.56074e+03_rb,0.81556e+03_rb,0.10734e+04_rb /)
+      kbo(:, 4,37, 7) = (/ &
+        & 0.99633e+03_rb,0.75894e+03_rb,0.55979e+03_rb,0.81446e+03_rb,0.10721e+04_rb /)
+      kbo(:, 5,37, 7) = (/ &
+        & 0.99630e+03_rb,0.75892e+03_rb,0.55864e+03_rb,0.81313e+03_rb,0.10704e+04_rb /)
+      kbo(:, 1,38, 7) = (/ &
+        & 0.99632e+03_rb,0.75894e+03_rb,0.56206e+03_rb,0.81703e+03_rb,0.10750e+04_rb /)
+      kbo(:, 2,38, 7) = (/ &
+        & 0.99628e+03_rb,0.75891e+03_rb,0.56157e+03_rb,0.81650e+03_rb,0.10744e+04_rb /)
+      kbo(:, 3,38, 7) = (/ &
+        & 0.99625e+03_rb,0.75889e+03_rb,0.56085e+03_rb,0.81569e+03_rb,0.10735e+04_rb /)
+      kbo(:, 4,38, 7) = (/ &
+        & 0.99623e+03_rb,0.75887e+03_rb,0.55993e+03_rb,0.81464e+03_rb,0.10723e+04_rb /)
+      kbo(:, 5,38, 7) = (/ &
+        & 0.99620e+03_rb,0.75885e+03_rb,0.55881e+03_rb,0.81331e+03_rb,0.10707e+04_rb /)
+      kbo(:, 1,39, 7) = (/ &
+        & 0.99622e+03_rb,0.75886e+03_rb,0.56210e+03_rb,0.81708e+03_rb,0.10751e+04_rb /)
+      kbo(:, 2,39, 7) = (/ &
+        & 0.99619e+03_rb,0.75884e+03_rb,0.56164e+03_rb,0.81666e+03_rb,0.10745e+04_rb /)
+      kbo(:, 3,39, 7) = (/ &
+        & 0.99617e+03_rb,0.75882e+03_rb,0.56096e+03_rb,0.81582e+03_rb,0.10737e+04_rb /)
+      kbo(:, 4,39, 7) = (/ &
+        & 0.99614e+03_rb,0.75880e+03_rb,0.56007e+03_rb,0.81479e+03_rb,0.10725e+04_rb /)
+      kbo(:, 5,39, 7) = (/ &
+        & 0.99612e+03_rb,0.75878e+03_rb,0.55897e+03_rb,0.81351e+03_rb,0.10709e+04_rb /)
+      kbo(:, 1,40, 7) = (/ &
+        & 0.99613e+03_rb,0.75880e+03_rb,0.56218e+03_rb,0.81716e+03_rb,0.10752e+04_rb /)
+      kbo(:, 2,40, 7) = (/ &
+        & 0.99611e+03_rb,0.75878e+03_rb,0.56177e+03_rb,0.81672e+03_rb,0.10747e+04_rb /)
+      kbo(:, 3,40, 7) = (/ &
+        & 0.99609e+03_rb,0.75876e+03_rb,0.56114e+03_rb,0.81603e+03_rb,0.10739e+04_rb /)
+      kbo(:, 4,40, 7) = (/ &
+        & 0.99607e+03_rb,0.75875e+03_rb,0.56030e+03_rb,0.81506e+03_rb,0.10728e+04_rb /)
+      kbo(:, 5,40, 7) = (/ &
+        & 0.99605e+03_rb,0.75874e+03_rb,0.55925e+03_rb,0.81383e+03_rb,0.10713e+04_rb /)
+      kbo(:, 1,41, 7) = (/ &
+        & 0.99606e+03_rb,0.75874e+03_rb,0.56225e+03_rb,0.81724e+03_rb,0.10752e+04_rb /)
+      kbo(:, 2,41, 7) = (/ &
+        & 0.99604e+03_rb,0.75873e+03_rb,0.56189e+03_rb,0.81688e+03_rb,0.10748e+04_rb /)
+      kbo(:, 3,41, 7) = (/ &
+        & 0.99602e+03_rb,0.75871e+03_rb,0.56132e+03_rb,0.81623e+03_rb,0.10741e+04_rb /)
+      kbo(:, 4,41, 7) = (/ &
+        & 0.99601e+03_rb,0.75870e+03_rb,0.56053e+03_rb,0.81532e+03_rb,0.10731e+04_rb /)
+      kbo(:, 5,41, 7) = (/ &
+        & 0.99600e+03_rb,0.75869e+03_rb,0.55954e+03_rb,0.81416e+03_rb,0.10717e+04_rb /)
+      kbo(:, 1,42, 7) = (/ &
+        & 0.99601e+03_rb,0.75870e+03_rb,0.56231e+03_rb,0.81730e+03_rb,0.10753e+04_rb /)
+      kbo(:, 2,42, 7) = (/ &
+        & 0.99599e+03_rb,0.75869e+03_rb,0.56200e+03_rb,0.81698e+03_rb,0.10750e+04_rb /)
+      kbo(:, 3,42, 7) = (/ &
+        & 0.99597e+03_rb,0.75868e+03_rb,0.56149e+03_rb,0.81641e+03_rb,0.10743e+04_rb /)
+      kbo(:, 4,42, 7) = (/ &
+        & 0.99596e+03_rb,0.75867e+03_rb,0.56075e+03_rb,0.81559e+03_rb,0.10734e+04_rb /)
+      kbo(:, 5,42, 7) = (/ &
+        & 0.99595e+03_rb,0.75866e+03_rb,0.55981e+03_rb,0.81449e+03_rb,0.10721e+04_rb /)
+      kbo(:, 1,43, 7) = (/ &
+        & 0.99596e+03_rb,0.75867e+03_rb,0.56235e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)
+      kbo(:, 2,43, 7) = (/ &
+        & 0.99595e+03_rb,0.75866e+03_rb,0.56212e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)
+      kbo(:, 3,43, 7) = (/ &
+        & 0.99594e+03_rb,0.75865e+03_rb,0.56167e+03_rb,0.81662e+03_rb,0.10746e+04_rb /)
+      kbo(:, 4,43, 7) = (/ &
+        & 0.99592e+03_rb,0.75864e+03_rb,0.56100e+03_rb,0.81588e+03_rb,0.10737e+04_rb /)
+      kbo(:, 5,43, 7) = (/ &
+        & 0.99591e+03_rb,0.75863e+03_rb,0.56012e+03_rb,0.81487e+03_rb,0.10726e+04_rb /)
+      kbo(:, 1,44, 7) = (/ &
+        & 0.99592e+03_rb,0.75864e+03_rb,0.56237e+03_rb,0.81736e+03_rb,0.10754e+04_rb /)
+      kbo(:, 2,44, 7) = (/ &
+        & 0.99591e+03_rb,0.75863e+03_rb,0.56222e+03_rb,0.81722e+03_rb,0.10752e+04_rb /)
+      kbo(:, 3,44, 7) = (/ &
+        & 0.99591e+03_rb,0.75862e+03_rb,0.56184e+03_rb,0.81680e+03_rb,0.10748e+04_rb /)
+      kbo(:, 4,44, 7) = (/ &
+        & 0.99589e+03_rb,0.75861e+03_rb,0.56125e+03_rb,0.81614e+03_rb,0.10741e+04_rb /)
+      kbo(:, 5,44, 7) = (/ &
+        & 0.99588e+03_rb,0.75861e+03_rb,0.56044e+03_rb,0.81523e+03_rb,0.10730e+04_rb /)
+      kbo(:, 1,45, 7) = (/ &
+        & 0.99589e+03_rb,0.75861e+03_rb,0.56237e+03_rb,0.81733e+03_rb,0.10754e+04_rb /)
+      kbo(:, 2,45, 7) = (/ &
+        & 0.99588e+03_rb,0.75861e+03_rb,0.56230e+03_rb,0.81729e+03_rb,0.10753e+04_rb /)
+      kbo(:, 3,45, 7) = (/ &
+        & 0.99587e+03_rb,0.75860e+03_rb,0.56199e+03_rb,0.81699e+03_rb,0.10750e+04_rb /)
+      kbo(:, 4,45, 7) = (/ &
+        & 0.99586e+03_rb,0.75859e+03_rb,0.56147e+03_rb,0.81641e+03_rb,0.10743e+04_rb /)
+      kbo(:, 5,45, 7) = (/ &
+        & 0.99585e+03_rb,0.75859e+03_rb,0.56074e+03_rb,0.81557e+03_rb,0.10734e+04_rb /)
+      kbo(:, 1,46, 7) = (/ &
+        & 0.99586e+03_rb,0.75859e+03_rb,0.56233e+03_rb,0.81728e+03_rb,0.10753e+04_rb /)
+      kbo(:, 2,46, 7) = (/ &
+        & 0.99585e+03_rb,0.75859e+03_rb,0.56235e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)
+      kbo(:, 3,46, 7) = (/ &
+        & 0.99585e+03_rb,0.75858e+03_rb,0.56213e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)
+      kbo(:, 4,46, 7) = (/ &
+        & 0.99584e+03_rb,0.75858e+03_rb,0.56169e+03_rb,0.81663e+03_rb,0.10746e+04_rb /)
+      kbo(:, 5,46, 7) = (/ &
+        & 0.99583e+03_rb,0.75858e+03_rb,0.56103e+03_rb,0.81590e+03_rb,0.10738e+04_rb /)
+      kbo(:, 1,47, 7) = (/ &
+        & 0.99585e+03_rb,0.75858e+03_rb,0.56226e+03_rb,0.81718e+03_rb,0.10753e+04_rb /)
+      kbo(:, 2,47, 7) = (/ &
+        & 0.99583e+03_rb,0.75857e+03_rb,0.56237e+03_rb,0.81736e+03_rb,0.10754e+04_rb /)
+      kbo(:, 3,47, 7) = (/ &
+        & 0.99583e+03_rb,0.75857e+03_rb,0.56224e+03_rb,0.81723e+03_rb,0.10752e+04_rb /)
+      kbo(:, 4,47, 7) = (/ &
+        & 0.99582e+03_rb,0.75856e+03_rb,0.56189e+03_rb,0.81686e+03_rb,0.10748e+04_rb /)
+      kbo(:, 5,47, 7) = (/ &
+        & 0.99581e+03_rb,0.75856e+03_rb,0.56132e+03_rb,0.81626e+03_rb,0.10741e+04_rb /)
+      kbo(:, 1,48, 7) = (/ &
+        & 0.99582e+03_rb,0.75856e+03_rb,0.56215e+03_rb,0.81703e+03_rb,0.10751e+04_rb /)
+      kbo(:, 2,48, 7) = (/ &
+        & 0.99582e+03_rb,0.75856e+03_rb,0.56235e+03_rb,0.81732e+03_rb,0.10754e+04_rb /)
+      kbo(:, 3,48, 7) = (/ &
+        & 0.99581e+03_rb,0.75855e+03_rb,0.56232e+03_rb,0.81733e+03_rb,0.10753e+04_rb /)
+      kbo(:, 4,48, 7) = (/ &
+        & 0.99580e+03_rb,0.75855e+03_rb,0.56206e+03_rb,0.81704e+03_rb,0.10750e+04_rb /)
+      kbo(:, 5,48, 7) = (/ &
+        & 0.99580e+03_rb,0.75855e+03_rb,0.56157e+03_rb,0.81651e+03_rb,0.10744e+04_rb /)
+      kbo(:, 1,49, 7) = (/ &
+        & 0.99581e+03_rb,0.75855e+03_rb,0.56199e+03_rb,0.81684e+03_rb,0.10748e+04_rb /)
+      kbo(:, 2,49, 7) = (/ &
+        & 0.99580e+03_rb,0.75855e+03_rb,0.56230e+03_rb,0.81724e+03_rb,0.10753e+04_rb /)
+      kbo(:, 3,49, 7) = (/ &
+        & 0.99580e+03_rb,0.75854e+03_rb,0.56236e+03_rb,0.81736e+03_rb,0.10753e+04_rb /)
+      kbo(:, 4,49, 7) = (/ &
+        & 0.99579e+03_rb,0.75854e+03_rb,0.56219e+03_rb,0.81718e+03_rb,0.10752e+04_rb /)
+      kbo(:, 5,49, 7) = (/ &
+        & 0.99579e+03_rb,0.75854e+03_rb,0.56179e+03_rb,0.81678e+03_rb,0.10747e+04_rb /)
+      kbo(:, 1,50, 7) = (/ &
+        & 0.99579e+03_rb,0.75854e+03_rb,0.56180e+03_rb,0.81662e+03_rb,0.10745e+04_rb /)
+      kbo(:, 2,50, 7) = (/ &
+        & 0.99579e+03_rb,0.75854e+03_rb,0.56221e+03_rb,0.81713e+03_rb,0.10752e+04_rb /)
+      kbo(:, 3,50, 7) = (/ &
+        & 0.99579e+03_rb,0.75854e+03_rb,0.56237e+03_rb,0.81735e+03_rb,0.10754e+04_rb /)
+      kbo(:, 4,50, 7) = (/ &
+        & 0.99579e+03_rb,0.75854e+03_rb,0.56228e+03_rb,0.81728e+03_rb,0.10753e+04_rb /)
+      kbo(:, 5,50, 7) = (/ &
+        & 0.99578e+03_rb,0.75853e+03_rb,0.56197e+03_rb,0.81695e+03_rb,0.10749e+04_rb /)
+      kbo(:, 1,51, 7) = (/ &
+        & 0.99578e+03_rb,0.75853e+03_rb,0.56158e+03_rb,0.81637e+03_rb,0.10741e+04_rb /)
+      kbo(:, 2,51, 7) = (/ &
+        & 0.99578e+03_rb,0.75853e+03_rb,0.56209e+03_rb,0.81697e+03_rb,0.10750e+04_rb /)
+      kbo(:, 3,51, 7) = (/ &
+        & 0.99578e+03_rb,0.75853e+03_rb,0.56234e+03_rb,0.81729e+03_rb,0.10753e+04_rb /)
+      kbo(:, 4,51, 7) = (/ &
+        & 0.99578e+03_rb,0.75853e+03_rb,0.56234e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)
+      kbo(:, 5,51, 7) = (/ &
+        & 0.99577e+03_rb,0.75852e+03_rb,0.56211e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)
+      kbo(:, 1,52, 7) = (/ &
+        & 0.99577e+03_rb,0.75853e+03_rb,0.56131e+03_rb,0.81608e+03_rb,0.10737e+04_rb /)
+      kbo(:, 2,52, 7) = (/ &
+        & 0.99577e+03_rb,0.75852e+03_rb,0.56194e+03_rb,0.81678e+03_rb,0.10748e+04_rb /)
+      kbo(:, 3,52, 7) = (/ &
+        & 0.99577e+03_rb,0.75852e+03_rb,0.56228e+03_rb,0.81721e+03_rb,0.10753e+04_rb /)
+      kbo(:, 4,52, 7) = (/ &
+        & 0.99577e+03_rb,0.75852e+03_rb,0.56237e+03_rb,0.81738e+03_rb,0.10754e+04_rb /)
+      kbo(:, 5,52, 7) = (/ &
+        & 0.99576e+03_rb,0.75852e+03_rb,0.56222e+03_rb,0.81722e+03_rb,0.10752e+04_rb /)
+      kbo(:, 1,53, 7) = (/ &
+        & 0.99577e+03_rb,0.75852e+03_rb,0.56102e+03_rb,0.81574e+03_rb,0.10731e+04_rb /)
+      kbo(:, 2,53, 7) = (/ &
+        & 0.99576e+03_rb,0.75852e+03_rb,0.56174e+03_rb,0.81656e+03_rb,0.10744e+04_rb /)
+      kbo(:, 3,53, 7) = (/ &
+        & 0.99576e+03_rb,0.75852e+03_rb,0.56218e+03_rb,0.81709e+03_rb,0.10752e+04_rb /)
+      kbo(:, 4,53, 7) = (/ &
+        & 0.99576e+03_rb,0.75851e+03_rb,0.56236e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)
+      kbo(:, 5,53, 7) = (/ &
+        & 0.99576e+03_rb,0.75852e+03_rb,0.56230e+03_rb,0.81736e+03_rb,0.10753e+04_rb /)
+      kbo(:, 1,54, 7) = (/ &
+        & 0.99576e+03_rb,0.75852e+03_rb,0.56072e+03_rb,0.81536e+03_rb,0.10726e+04_rb /)
+      kbo(:, 2,54, 7) = (/ &
+        & 0.99576e+03_rb,0.75851e+03_rb,0.56153e+03_rb,0.81633e+03_rb,0.10740e+04_rb /)
+      kbo(:, 3,54, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.56207e+03_rb,0.81694e+03_rb,0.10750e+04_rb /)
+      kbo(:, 4,54, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.56233e+03_rb,0.81728e+03_rb,0.10753e+04_rb /)
+      kbo(:, 5,54, 7) = (/ &
+        & 0.99576e+03_rb,0.75851e+03_rb,0.56235e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)
+      kbo(:, 1,55, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.56039e+03_rb,0.81495e+03_rb,0.10720e+04_rb /)
+      kbo(:, 2,55, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.56128e+03_rb,0.81606e+03_rb,0.10736e+04_rb /)
+      kbo(:, 3,55, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.56193e+03_rb,0.81677e+03_rb,0.10747e+04_rb /)
+      kbo(:, 4,55, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.56227e+03_rb,0.81720e+03_rb,0.10753e+04_rb /)
+      kbo(:, 5,55, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.56237e+03_rb,0.81736e+03_rb,0.10754e+04_rb /)
+      kbo(:, 1,56, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.56002e+03_rb,0.81448e+03_rb,0.10713e+04_rb /)
+      kbo(:, 2,56, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.56104e+03_rb,0.81576e+03_rb,0.10732e+04_rb /)
+      kbo(:, 3,56, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.56175e+03_rb,0.81659e+03_rb,0.10744e+04_rb /)
+      kbo(:, 4,56, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56219e+03_rb,0.81709e+03_rb,0.10752e+04_rb /)
+      kbo(:, 5,56, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56236e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)
+      kbo(:, 1,57, 7) = (/ &
+        & 0.99575e+03_rb,0.75851e+03_rb,0.55963e+03_rb,0.81395e+03_rb,0.10705e+04_rb /)
+      kbo(:, 2,57, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56076e+03_rb,0.81540e+03_rb,0.10727e+04_rb /)
+      kbo(:, 3,57, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56157e+03_rb,0.81635e+03_rb,0.10741e+04_rb /)
+      kbo(:, 4,57, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56208e+03_rb,0.81696e+03_rb,0.10750e+04_rb /)
+      kbo(:, 5,57, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56234e+03_rb,0.81729e+03_rb,0.10754e+04_rb /)
+      kbo(:, 1,58, 7) = (/ &
+        & 0.99575e+03_rb,0.75850e+03_rb,0.55922e+03_rb,0.81340e+03_rb,0.10697e+04_rb /)
+      kbo(:, 2,58, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56044e+03_rb,0.81503e+03_rb,0.10721e+04_rb /)
+      kbo(:, 3,58, 7) = (/ &
+        & 0.99574e+03_rb,0.75851e+03_rb,0.56134e+03_rb,0.81611e+03_rb,0.10737e+04_rb /)
+      kbo(:, 4,58, 7) = (/ &
+        & 0.99574e+03_rb,0.75851e+03_rb,0.56195e+03_rb,0.81681e+03_rb,0.10748e+04_rb /)
+      kbo(:, 5,58, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56228e+03_rb,0.81722e+03_rb,0.10753e+04_rb /)
+      kbo(:, 1,59, 7) = (/ &
+        & 0.99575e+03_rb,0.75850e+03_rb,0.55905e+03_rb,0.81317e+03_rb,0.10694e+04_rb /)
+      kbo(:, 2,59, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56032e+03_rb,0.81485e+03_rb,0.10718e+04_rb /)
+      kbo(:, 3,59, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56125e+03_rb,0.81601e+03_rb,0.10735e+04_rb /)
+      kbo(:, 4,59, 7) = (/ &
+        & 0.99574e+03_rb,0.75850e+03_rb,0.56189e+03_rb,0.81673e+03_rb,0.10747e+04_rb /)
+      kbo(:, 5,59, 7) = (/ &
+        & 0.99573e+03_rb,0.75850e+03_rb,0.56225e+03_rb,0.81718e+03_rb,0.10753e+04_rb /)
+      kbo(:, 1,13, 8) = (/ &
+        & 0.11451e+04_rb,0.86748e+03_rb,0.59259e+03_rb,0.85187e+03_rb,0.11225e+04_rb /)
+      kbo(:, 2,13, 8) = (/ &
+        & 0.11363e+04_rb,0.86085e+03_rb,0.58896e+03_rb,0.85188e+03_rb,0.11226e+04_rb /)
+      kbo(:, 3,13, 8) = (/ &
+        & 0.11286e+04_rb,0.85515e+03_rb,0.58586e+03_rb,0.85170e+03_rb,0.11227e+04_rb /)
+      kbo(:, 4,13, 8) = (/ &
+        & 0.11220e+04_rb,0.85016e+03_rb,0.58378e+03_rb,0.85132e+03_rb,0.11224e+04_rb /)
+      kbo(:, 5,13, 8) = (/ &
+        & 0.11162e+04_rb,0.84582e+03_rb,0.58229e+03_rb,0.85074e+03_rb,0.11218e+04_rb /)
+      kbo(:, 1,14, 8) = (/ &
+        & 0.11230e+04_rb,0.85087e+03_rb,0.58392e+03_rb,0.85168e+03_rb,0.11225e+04_rb /)
+      kbo(:, 2,14, 8) = (/ &
+        & 0.11158e+04_rb,0.84552e+03_rb,0.58280e+03_rb,0.85169e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,14, 8) = (/ &
+        & 0.11097e+04_rb,0.84090e+03_rb,0.58233e+03_rb,0.85151e+03_rb,0.11227e+04_rb /)
+      kbo(:, 4,14, 8) = (/ &
+        & 0.11043e+04_rb,0.83689e+03_rb,0.58194e+03_rb,0.85113e+03_rb,0.11223e+04_rb /)
+      kbo(:, 5,14, 8) = (/ &
+        & 0.10996e+04_rb,0.83336e+03_rb,0.58140e+03_rb,0.85052e+03_rb,0.11217e+04_rb /)
+      kbo(:, 1,15, 8) = (/ &
+        & 0.11049e+04_rb,0.83731e+03_rb,0.58207e+03_rb,0.85153e+03_rb,0.11225e+04_rb /)
+      kbo(:, 2,15, 8) = (/ &
+        & 0.10991e+04_rb,0.83301e+03_rb,0.58217e+03_rb,0.85153e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,15, 8) = (/ &
+        & 0.10942e+04_rb,0.82928e+03_rb,0.58200e+03_rb,0.85134e+03_rb,0.11226e+04_rb /)
+      kbo(:, 4,15, 8) = (/ &
+        & 0.10899e+04_rb,0.82605e+03_rb,0.58161e+03_rb,0.85094e+03_rb,0.11223e+04_rb /)
+      kbo(:, 5,15, 8) = (/ &
+        & 0.10860e+04_rb,0.82320e+03_rb,0.58108e+03_rb,0.85034e+03_rb,0.11216e+04_rb /)
+      kbo(:, 1,16, 8) = (/ &
+        & 0.10902e+04_rb,0.82630e+03_rb,0.58181e+03_rb,0.85141e+03_rb,0.11225e+04_rb /)
+      kbo(:, 2,16, 8) = (/ &
+        & 0.10856e+04_rb,0.82283e+03_rb,0.58190e+03_rb,0.85139e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,16, 8) = (/ &
+        & 0.10816e+04_rb,0.81983e+03_rb,0.58172e+03_rb,0.85119e+03_rb,0.11226e+04_rb /)
+      kbo(:, 4,16, 8) = (/ &
+        & 0.10781e+04_rb,0.81721e+03_rb,0.58133e+03_rb,0.85078e+03_rb,0.11222e+04_rb /)
+      kbo(:, 5,16, 8) = (/ &
+        & 0.10750e+04_rb,0.81491e+03_rb,0.58080e+03_rb,0.85015e+03_rb,0.11215e+04_rb /)
+      kbo(:, 1,17, 8) = (/ &
+        & 0.10783e+04_rb,0.81738e+03_rb,0.58160e+03_rb,0.85131e+03_rb,0.11225e+04_rb /)
+      kbo(:, 2,17, 8) = (/ &
+        & 0.10746e+04_rb,0.81457e+03_rb,0.58168e+03_rb,0.85129e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,17, 8) = (/ &
+        & 0.10713e+04_rb,0.81215e+03_rb,0.58149e+03_rb,0.85108e+03_rb,0.11226e+04_rb /)
+      kbo(:, 4,17, 8) = (/ &
+        & 0.10685e+04_rb,0.81004e+03_rb,0.58109e+03_rb,0.85064e+03_rb,0.11222e+04_rb /)
+      kbo(:, 5,17, 8) = (/ &
+        & 0.10660e+04_rb,0.80818e+03_rb,0.58056e+03_rb,0.85000e+03_rb,0.11214e+04_rb /)
+      kbo(:, 1,18, 8) = (/ &
+        & 0.10686e+04_rb,0.81013e+03_rb,0.58144e+03_rb,0.85124e+03_rb,0.11225e+04_rb /)
+      kbo(:, 2,18, 8) = (/ &
+        & 0.10656e+04_rb,0.80786e+03_rb,0.58150e+03_rb,0.85119e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,18, 8) = (/ &
+        & 0.10630e+04_rb,0.80591e+03_rb,0.58129e+03_rb,0.85095e+03_rb,0.11226e+04_rb /)
+      kbo(:, 4,18, 8) = (/ &
+        & 0.10607e+04_rb,0.80419e+03_rb,0.58089e+03_rb,0.85052e+03_rb,0.11221e+04_rb /)
+      kbo(:, 5,18, 8) = (/ &
+        & 0.10587e+04_rb,0.80269e+03_rb,0.58036e+03_rb,0.84984e+03_rb,0.11213e+04_rb /)
+      kbo(:, 1,19, 8) = (/ &
+        & 0.10608e+04_rb,0.80424e+03_rb,0.58130e+03_rb,0.85117e+03_rb,0.11226e+04_rb /)
+      kbo(:, 2,19, 8) = (/ &
+        & 0.10584e+04_rb,0.80242e+03_rb,0.58135e+03_rb,0.85109e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,19, 8) = (/ &
+        & 0.10562e+04_rb,0.80084e+03_rb,0.58113e+03_rb,0.85087e+03_rb,0.11225e+04_rb /)
+      kbo(:, 4,19, 8) = (/ &
+        & 0.10544e+04_rb,0.79946e+03_rb,0.58072e+03_rb,0.85040e+03_rb,0.11220e+04_rb /)
+      kbo(:, 5,19, 8) = (/ &
+        & 0.10528e+04_rb,0.79825e+03_rb,0.58019e+03_rb,0.84971e+03_rb,0.11212e+04_rb /)
+      kbo(:, 1,20, 8) = (/ &
+        & 0.10544e+04_rb,0.79943e+03_rb,0.58120e+03_rb,0.85111e+03_rb,0.11226e+04_rb /)
+      kbo(:, 2,20, 8) = (/ &
+        & 0.10524e+04_rb,0.79797e+03_rb,0.58122e+03_rb,0.85103e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,20, 8) = (/ &
+        & 0.10507e+04_rb,0.79669e+03_rb,0.58098e+03_rb,0.85078e+03_rb,0.11225e+04_rb /)
+      kbo(:, 4,20, 8) = (/ &
+        & 0.10492e+04_rb,0.79558e+03_rb,0.58056e+03_rb,0.85028e+03_rb,0.11220e+04_rb /)
+      kbo(:, 5,20, 8) = (/ &
+        & 0.10479e+04_rb,0.79460e+03_rb,0.58002e+03_rb,0.84958e+03_rb,0.11211e+04_rb /)
+      kbo(:, 1,21, 8) = (/ &
+        & 0.10492e+04_rb,0.79553e+03_rb,0.58112e+03_rb,0.85107e+03_rb,0.11227e+04_rb /)
+      kbo(:, 2,21, 8) = (/ &
+        & 0.10476e+04_rb,0.79436e+03_rb,0.58112e+03_rb,0.85096e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,21, 8) = (/ &
+        & 0.10462e+04_rb,0.79334e+03_rb,0.58085e+03_rb,0.85069e+03_rb,0.11224e+04_rb /)
+      kbo(:, 4,21, 8) = (/ &
+        & 0.10450e+04_rb,0.79243e+03_rb,0.58042e+03_rb,0.85021e+03_rb,0.11219e+04_rb /)
+      kbo(:, 5,21, 8) = (/ &
+        & 0.10440e+04_rb,0.79165e+03_rb,0.57987e+03_rb,0.84945e+03_rb,0.11210e+04_rb /)
+      kbo(:, 1,22, 8) = (/ &
+        & 0.10449e+04_rb,0.79230e+03_rb,0.58106e+03_rb,0.85103e+03_rb,0.11226e+04_rb /)
+      kbo(:, 2,22, 8) = (/ &
+        & 0.10436e+04_rb,0.79136e+03_rb,0.58100e+03_rb,0.85090e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,22, 8) = (/ &
+        & 0.10425e+04_rb,0.79054e+03_rb,0.58071e+03_rb,0.85058e+03_rb,0.11224e+04_rb /)
+      kbo(:, 4,22, 8) = (/ &
+        & 0.10416e+04_rb,0.78983e+03_rb,0.58026e+03_rb,0.85002e+03_rb,0.11217e+04_rb /)
+      kbo(:, 5,22, 8) = (/ &
+        & 0.10407e+04_rb,0.78921e+03_rb,0.57969e+03_rb,0.84925e+03_rb,0.11208e+04_rb /)
+      kbo(:, 1,23, 8) = (/ &
+        & 0.10414e+04_rb,0.78969e+03_rb,0.58100e+03_rb,0.85099e+03_rb,0.11227e+04_rb /)
+      kbo(:, 2,23, 8) = (/ &
+        & 0.10404e+04_rb,0.78894e+03_rb,0.58090e+03_rb,0.85083e+03_rb,0.11226e+04_rb /)
+      kbo(:, 3,23, 8) = (/ &
+        & 0.10395e+04_rb,0.78829e+03_rb,0.58058e+03_rb,0.85047e+03_rb,0.11223e+04_rb /)
+      kbo(:, 4,23, 8) = (/ &
+        & 0.10387e+04_rb,0.78772e+03_rb,0.58011e+03_rb,0.84989e+03_rb,0.11216e+04_rb /)
+      kbo(:, 5,23, 8) = (/ &
+        & 0.10381e+04_rb,0.78721e+03_rb,0.57952e+03_rb,0.84905e+03_rb,0.11206e+04_rb /)
+      kbo(:, 1,24, 8) = (/ &
+        & 0.10386e+04_rb,0.78759e+03_rb,0.58095e+03_rb,0.85095e+03_rb,0.11227e+04_rb /)
+      kbo(:, 2,24, 8) = (/ &
+        & 0.10378e+04_rb,0.78698e+03_rb,0.58081e+03_rb,0.85075e+03_rb,0.11226e+04_rb /)
+      kbo(:, 3,24, 8) = (/ &
+        & 0.10371e+04_rb,0.78646e+03_rb,0.58046e+03_rb,0.85035e+03_rb,0.11222e+04_rb /)
+      kbo(:, 4,24, 8) = (/ &
+        & 0.10365e+04_rb,0.78601e+03_rb,0.57995e+03_rb,0.84971e+03_rb,0.11214e+04_rb /)
+      kbo(:, 5,24, 8) = (/ &
+        & 0.10359e+04_rb,0.78561e+03_rb,0.57934e+03_rb,0.84885e+03_rb,0.11203e+04_rb /)
+      kbo(:, 1,25, 8) = (/ &
+        & 0.10363e+04_rb,0.78588e+03_rb,0.58090e+03_rb,0.85090e+03_rb,0.11227e+04_rb /)
+      kbo(:, 2,25, 8) = (/ &
+        & 0.10357e+04_rb,0.78541e+03_rb,0.58070e+03_rb,0.85067e+03_rb,0.11225e+04_rb /)
+      kbo(:, 3,25, 8) = (/ &
+        & 0.10351e+04_rb,0.78498e+03_rb,0.58032e+03_rb,0.85020e+03_rb,0.11220e+04_rb /)
+      kbo(:, 4,25, 8) = (/ &
+        & 0.10346e+04_rb,0.78461e+03_rb,0.57980e+03_rb,0.84953e+03_rb,0.11212e+04_rb /)
+      kbo(:, 5,25, 8) = (/ &
+        & 0.10342e+04_rb,0.78430e+03_rb,0.57916e+03_rb,0.84863e+03_rb,0.11201e+04_rb /)
+      kbo(:, 1,26, 8) = (/ &
+        & 0.10345e+04_rb,0.78450e+03_rb,0.58084e+03_rb,0.85084e+03_rb,0.11227e+04_rb /)
+      kbo(:, 2,26, 8) = (/ &
+        & 0.10339e+04_rb,0.78411e+03_rb,0.58059e+03_rb,0.85057e+03_rb,0.11224e+04_rb /)
+      kbo(:, 3,26, 8) = (/ &
+        & 0.10335e+04_rb,0.78378e+03_rb,0.58018e+03_rb,0.85004e+03_rb,0.11219e+04_rb /)
+      kbo(:, 4,26, 8) = (/ &
+        & 0.10331e+04_rb,0.78349e+03_rb,0.57964e+03_rb,0.84934e+03_rb,0.11210e+04_rb /)
+      kbo(:, 5,26, 8) = (/ &
+        & 0.10328e+04_rb,0.78323e+03_rb,0.57897e+03_rb,0.84838e+03_rb,0.11198e+04_rb /)
+      kbo(:, 1,27, 8) = (/ &
+        & 0.10329e+04_rb,0.78338e+03_rb,0.58078e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)
+      kbo(:, 2,27, 8) = (/ &
+        & 0.10326e+04_rb,0.78307e+03_rb,0.58048e+03_rb,0.85045e+03_rb,0.11223e+04_rb /)
+      kbo(:, 3,27, 8) = (/ &
+        & 0.10322e+04_rb,0.78282e+03_rb,0.58003e+03_rb,0.84982e+03_rb,0.11217e+04_rb /)
+      kbo(:, 4,27, 8) = (/ &
+        & 0.10319e+04_rb,0.78258e+03_rb,0.57947e+03_rb,0.84907e+03_rb,0.11207e+04_rb /)
+      kbo(:, 5,27, 8) = (/ &
+        & 0.10316e+04_rb,0.78237e+03_rb,0.57877e+03_rb,0.84811e+03_rb,0.11194e+04_rb /)
+      kbo(:, 1,28, 8) = (/ &
+        & 0.10318e+04_rb,0.78248e+03_rb,0.58069e+03_rb,0.85072e+03_rb,0.11226e+04_rb /)
+      kbo(:, 2,28, 8) = (/ &
+        & 0.10314e+04_rb,0.78225e+03_rb,0.58037e+03_rb,0.85030e+03_rb,0.11222e+04_rb /)
+      kbo(:, 3,28, 8) = (/ &
+        & 0.10312e+04_rb,0.78205e+03_rb,0.57989e+03_rb,0.84960e+03_rb,0.11215e+04_rb /)
+      kbo(:, 4,28, 8) = (/ &
+        & 0.10309e+04_rb,0.78185e+03_rb,0.57929e+03_rb,0.84888e+03_rb,0.11204e+04_rb /)
+      kbo(:, 5,28, 8) = (/ &
+        & 0.10307e+04_rb,0.78168e+03_rb,0.57856e+03_rb,0.84784e+03_rb,0.11191e+04_rb /)
+      kbo(:, 1,29, 8) = (/ &
+        & 0.10308e+04_rb,0.78175e+03_rb,0.58061e+03_rb,0.85062e+03_rb,0.11225e+04_rb /)
+      kbo(:, 2,29, 8) = (/ &
+        & 0.10305e+04_rb,0.78157e+03_rb,0.58024e+03_rb,0.85019e+03_rb,0.11221e+04_rb /)
+      kbo(:, 3,29, 8) = (/ &
+        & 0.10303e+04_rb,0.78140e+03_rb,0.57974e+03_rb,0.84950e+03_rb,0.11213e+04_rb /)
+      kbo(:, 4,29, 8) = (/ &
+        & 0.10301e+04_rb,0.78126e+03_rb,0.57911e+03_rb,0.84863e+03_rb,0.11201e+04_rb /)
+      kbo(:, 5,29, 8) = (/ &
+        & 0.10300e+04_rb,0.78112e+03_rb,0.57834e+03_rb,0.84752e+03_rb,0.11188e+04_rb /)
+      kbo(:, 1,30, 8) = (/ &
+        & 0.10300e+04_rb,0.78117e+03_rb,0.58052e+03_rb,0.85055e+03_rb,0.11224e+04_rb /)
+      kbo(:, 2,30, 8) = (/ &
+        & 0.10298e+04_rb,0.78102e+03_rb,0.58011e+03_rb,0.85001e+03_rb,0.11219e+04_rb /)
+      kbo(:, 3,30, 8) = (/ &
+        & 0.10296e+04_rb,0.78089e+03_rb,0.57958e+03_rb,0.84932e+03_rb,0.11210e+04_rb /)
+      kbo(:, 4,30, 8) = (/ &
+        & 0.10295e+04_rb,0.78077e+03_rb,0.57892e+03_rb,0.84838e+03_rb,0.11198e+04_rb /)
+      kbo(:, 5,30, 8) = (/ &
+        & 0.10294e+04_rb,0.78066e+03_rb,0.57811e+03_rb,0.84720e+03_rb,0.11184e+04_rb /)
+      kbo(:, 1,31, 8) = (/ &
+        & 0.10294e+04_rb,0.78070e+03_rb,0.58042e+03_rb,0.85041e+03_rb,0.11223e+04_rb /)
+      kbo(:, 2,31, 8) = (/ &
+        & 0.10292e+04_rb,0.78058e+03_rb,0.57998e+03_rb,0.84985e+03_rb,0.11217e+04_rb /)
+      kbo(:, 3,31, 8) = (/ &
+        & 0.10291e+04_rb,0.78049e+03_rb,0.57941e+03_rb,0.84908e+03_rb,0.11207e+04_rb /)
+      kbo(:, 4,31, 8) = (/ &
+        & 0.10290e+04_rb,0.78039e+03_rb,0.57872e+03_rb,0.84808e+03_rb,0.11195e+04_rb /)
+      kbo(:, 5,31, 8) = (/ &
+        & 0.10289e+04_rb,0.78030e+03_rb,0.57786e+03_rb,0.84686e+03_rb,0.11179e+04_rb /)
+      kbo(:, 1,32, 8) = (/ &
+        & 0.10289e+04_rb,0.78033e+03_rb,0.58031e+03_rb,0.85030e+03_rb,0.11222e+04_rb /)
+      kbo(:, 2,32, 8) = (/ &
+        & 0.10288e+04_rb,0.78024e+03_rb,0.57984e+03_rb,0.84967e+03_rb,0.11215e+04_rb /)
+      kbo(:, 3,32, 8) = (/ &
+        & 0.10287e+04_rb,0.78016e+03_rb,0.57924e+03_rb,0.84884e+03_rb,0.11204e+04_rb /)
+      kbo(:, 4,32, 8) = (/ &
+        & 0.10286e+04_rb,0.78009e+03_rb,0.57851e+03_rb,0.84778e+03_rb,0.11191e+04_rb /)
+      kbo(:, 5,32, 8) = (/ &
+        & 0.10285e+04_rb,0.78000e+03_rb,0.57759e+03_rb,0.84651e+03_rb,0.11175e+04_rb /)
+      kbo(:, 1,33, 8) = (/ &
+        & 0.10285e+04_rb,0.78003e+03_rb,0.58019e+03_rb,0.85016e+03_rb,0.11220e+04_rb /)
+      kbo(:, 2,33, 8) = (/ &
+        & 0.10284e+04_rb,0.77995e+03_rb,0.57968e+03_rb,0.84947e+03_rb,0.11212e+04_rb /)
+      kbo(:, 3,33, 8) = (/ &
+        & 0.10283e+04_rb,0.77988e+03_rb,0.57905e+03_rb,0.84858e+03_rb,0.11201e+04_rb /)
+      kbo(:, 4,33, 8) = (/ &
+        & 0.10282e+04_rb,0.77982e+03_rb,0.57829e+03_rb,0.84747e+03_rb,0.11187e+04_rb /)
+      kbo(:, 5,33, 8) = (/ &
+        & 0.10282e+04_rb,0.77978e+03_rb,0.57730e+03_rb,0.84615e+03_rb,0.11170e+04_rb /)
+      kbo(:, 1,34, 8) = (/ &
+        & 0.10282e+04_rb,0.77978e+03_rb,0.58008e+03_rb,0.84998e+03_rb,0.11219e+04_rb /)
+      kbo(:, 2,34, 8) = (/ &
+        & 0.10281e+04_rb,0.77972e+03_rb,0.57954e+03_rb,0.84930e+03_rb,0.11210e+04_rb /)
+      kbo(:, 3,34, 8) = (/ &
+        & 0.10280e+04_rb,0.77967e+03_rb,0.57889e+03_rb,0.84836e+03_rb,0.11198e+04_rb /)
+      kbo(:, 4,34, 8) = (/ &
+        & 0.10280e+04_rb,0.77962e+03_rb,0.57808e+03_rb,0.84718e+03_rb,0.11184e+04_rb /)
+      kbo(:, 5,34, 8) = (/ &
+        & 0.10279e+04_rb,0.77958e+03_rb,0.57705e+03_rb,0.84582e+03_rb,0.11166e+04_rb /)
+      kbo(:, 1,35, 8) = (/ &
+        & 0.10279e+04_rb,0.77958e+03_rb,0.58001e+03_rb,0.84995e+03_rb,0.11218e+04_rb /)
+      kbo(:, 2,35, 8) = (/ &
+        & 0.10278e+04_rb,0.77953e+03_rb,0.57946e+03_rb,0.84916e+03_rb,0.11209e+04_rb /)
+      kbo(:, 3,35, 8) = (/ &
+        & 0.10278e+04_rb,0.77951e+03_rb,0.57880e+03_rb,0.84823e+03_rb,0.11196e+04_rb /)
+      kbo(:, 4,35, 8) = (/ &
+        & 0.10277e+04_rb,0.77946e+03_rb,0.57796e+03_rb,0.84701e+03_rb,0.11181e+04_rb /)
+      kbo(:, 5,35, 8) = (/ &
+        & 0.10277e+04_rb,0.77943e+03_rb,0.57689e+03_rb,0.84563e+03_rb,0.11163e+04_rb /)
+      kbo(:, 1,36, 8) = (/ &
+        & 0.10277e+04_rb,0.77944e+03_rb,0.58000e+03_rb,0.84992e+03_rb,0.11218e+04_rb /)
+      kbo(:, 2,36, 8) = (/ &
+        & 0.10277e+04_rb,0.77940e+03_rb,0.57944e+03_rb,0.84917e+03_rb,0.11208e+04_rb /)
+      kbo(:, 3,36, 8) = (/ &
+        & 0.10276e+04_rb,0.77936e+03_rb,0.57877e+03_rb,0.84819e+03_rb,0.11196e+04_rb /)
+      kbo(:, 4,36, 8) = (/ &
+        & 0.10276e+04_rb,0.77933e+03_rb,0.57793e+03_rb,0.84697e+03_rb,0.11181e+04_rb /)
+      kbo(:, 5,36, 8) = (/ &
+        & 0.10275e+04_rb,0.77931e+03_rb,0.57686e+03_rb,0.84561e+03_rb,0.11162e+04_rb /)
+      kbo(:, 1,37, 8) = (/ &
+        & 0.10275e+04_rb,0.77932e+03_rb,0.58006e+03_rb,0.85002e+03_rb,0.11219e+04_rb /)
+      kbo(:, 2,37, 8) = (/ &
+        & 0.10275e+04_rb,0.77929e+03_rb,0.57952e+03_rb,0.84927e+03_rb,0.11210e+04_rb /)
+      kbo(:, 3,37, 8) = (/ &
+        & 0.10275e+04_rb,0.77926e+03_rb,0.57886e+03_rb,0.84832e+03_rb,0.11198e+04_rb /)
+      kbo(:, 4,37, 8) = (/ &
+        & 0.10274e+04_rb,0.77924e+03_rb,0.57805e+03_rb,0.84715e+03_rb,0.11183e+04_rb /)
+      kbo(:, 5,37, 8) = (/ &
+        & 0.10274e+04_rb,0.77921e+03_rb,0.57701e+03_rb,0.84575e+03_rb,0.11165e+04_rb /)
+      kbo(:, 1,38, 8) = (/ &
+        & 0.10274e+04_rb,0.77922e+03_rb,0.58012e+03_rb,0.85009e+03_rb,0.11220e+04_rb /)
+      kbo(:, 2,38, 8) = (/ &
+        & 0.10274e+04_rb,0.77920e+03_rb,0.57959e+03_rb,0.84938e+03_rb,0.11211e+04_rb /)
+      kbo(:, 3,38, 8) = (/ &
+        & 0.10274e+04_rb,0.77918e+03_rb,0.57896e+03_rb,0.84848e+03_rb,0.11200e+04_rb /)
+      kbo(:, 4,38, 8) = (/ &
+        & 0.10273e+04_rb,0.77915e+03_rb,0.57818e+03_rb,0.84731e+03_rb,0.11185e+04_rb /)
+      kbo(:, 5,38, 8) = (/ &
+        & 0.10273e+04_rb,0.77912e+03_rb,0.57716e+03_rb,0.84599e+03_rb,0.11168e+04_rb /)
+      kbo(:, 1,39, 8) = (/ &
+        & 0.10273e+04_rb,0.77914e+03_rb,0.58018e+03_rb,0.85016e+03_rb,0.11221e+04_rb /)
+      kbo(:, 2,39, 8) = (/ &
+        & 0.10273e+04_rb,0.77912e+03_rb,0.57968e+03_rb,0.84939e+03_rb,0.11213e+04_rb /)
+      kbo(:, 3,39, 8) = (/ &
+        & 0.10273e+04_rb,0.77911e+03_rb,0.57905e+03_rb,0.84861e+03_rb,0.11201e+04_rb /)
+      kbo(:, 4,39, 8) = (/ &
+        & 0.10272e+04_rb,0.77910e+03_rb,0.57829e+03_rb,0.84750e+03_rb,0.11187e+04_rb /)
+      kbo(:, 5,39, 8) = (/ &
+        & 0.10272e+04_rb,0.77907e+03_rb,0.57732e+03_rb,0.84617e+03_rb,0.11171e+04_rb /)
+      kbo(:, 1,40, 8) = (/ &
+        & 0.10272e+04_rb,0.77908e+03_rb,0.58028e+03_rb,0.85029e+03_rb,0.11222e+04_rb /)
+      kbo(:, 2,40, 8) = (/ &
+        & 0.10272e+04_rb,0.77906e+03_rb,0.57981e+03_rb,0.84968e+03_rb,0.11215e+04_rb /)
+      kbo(:, 3,40, 8) = (/ &
+        & 0.10272e+04_rb,0.77904e+03_rb,0.57922e+03_rb,0.84885e+03_rb,0.11204e+04_rb /)
+      kbo(:, 4,40, 8) = (/ &
+        & 0.10272e+04_rb,0.77904e+03_rb,0.57849e+03_rb,0.84779e+03_rb,0.11191e+04_rb /)
+      kbo(:, 5,40, 8) = (/ &
+        & 0.10272e+04_rb,0.77901e+03_rb,0.57757e+03_rb,0.84651e+03_rb,0.11176e+04_rb /)
+      kbo(:, 1,41, 8) = (/ &
+        & 0.10272e+04_rb,0.77903e+03_rb,0.58037e+03_rb,0.85041e+03_rb,0.11224e+04_rb /)
+      kbo(:, 2,41, 8) = (/ &
+        & 0.10272e+04_rb,0.77902e+03_rb,0.57994e+03_rb,0.84983e+03_rb,0.11217e+04_rb /)
+      kbo(:, 3,41, 8) = (/ &
+        & 0.10271e+04_rb,0.77900e+03_rb,0.57937e+03_rb,0.84906e+03_rb,0.11207e+04_rb /)
+      kbo(:, 4,41, 8) = (/ &
+        & 0.10271e+04_rb,0.77898e+03_rb,0.57870e+03_rb,0.84808e+03_rb,0.11195e+04_rb /)
+      kbo(:, 5,41, 8) = (/ &
+        & 0.10271e+04_rb,0.77898e+03_rb,0.57782e+03_rb,0.84685e+03_rb,0.11180e+04_rb /)
+      kbo(:, 1,42, 8) = (/ &
+        & 0.10271e+04_rb,0.77900e+03_rb,0.58046e+03_rb,0.85051e+03_rb,0.11225e+04_rb /)
+      kbo(:, 2,42, 8) = (/ &
+        & 0.10271e+04_rb,0.77898e+03_rb,0.58006e+03_rb,0.85002e+03_rb,0.11219e+04_rb /)
+      kbo(:, 3,42, 8) = (/ &
+        & 0.10271e+04_rb,0.77896e+03_rb,0.57953e+03_rb,0.84930e+03_rb,0.11210e+04_rb /)
+      kbo(:, 4,42, 8) = (/ &
+        & 0.10271e+04_rb,0.77895e+03_rb,0.57888e+03_rb,0.84835e+03_rb,0.11198e+04_rb /)
+      kbo(:, 5,42, 8) = (/ &
+        & 0.10270e+04_rb,0.77894e+03_rb,0.57806e+03_rb,0.84718e+03_rb,0.11184e+04_rb /)
+      kbo(:, 1,43, 8) = (/ &
+        & 0.10271e+04_rb,0.77895e+03_rb,0.58056e+03_rb,0.85062e+03_rb,0.11226e+04_rb /)
+      kbo(:, 2,43, 8) = (/ &
+        & 0.10270e+04_rb,0.77895e+03_rb,0.58020e+03_rb,0.85017e+03_rb,0.11221e+04_rb /)
+      kbo(:, 3,43, 8) = (/ &
+        & 0.10270e+04_rb,0.77892e+03_rb,0.57970e+03_rb,0.84954e+03_rb,0.11213e+04_rb /)
+      kbo(:, 4,43, 8) = (/ &
+        & 0.10270e+04_rb,0.77892e+03_rb,0.57909e+03_rb,0.84866e+03_rb,0.11202e+04_rb /)
+      kbo(:, 5,43, 8) = (/ &
+        & 0.10270e+04_rb,0.77891e+03_rb,0.57834e+03_rb,0.84756e+03_rb,0.11188e+04_rb /)
+      kbo(:, 1,44, 8) = (/ &
+        & 0.10270e+04_rb,0.77892e+03_rb,0.58064e+03_rb,0.85071e+03_rb,0.11226e+04_rb /)
+      kbo(:, 2,44, 8) = (/ &
+        & 0.10270e+04_rb,0.77891e+03_rb,0.58034e+03_rb,0.85036e+03_rb,0.11223e+04_rb /)
+      kbo(:, 3,44, 8) = (/ &
+        & 0.10270e+04_rb,0.77891e+03_rb,0.57988e+03_rb,0.84979e+03_rb,0.11216e+04_rb /)
+      kbo(:, 4,44, 8) = (/ &
+        & 0.10270e+04_rb,0.77890e+03_rb,0.57931e+03_rb,0.84899e+03_rb,0.11206e+04_rb /)
+      kbo(:, 5,44, 8) = (/ &
+        & 0.10270e+04_rb,0.77888e+03_rb,0.57861e+03_rb,0.84797e+03_rb,0.11193e+04_rb /)
+      kbo(:, 1,45, 8) = (/ &
+        & 0.10270e+04_rb,0.77889e+03_rb,0.58069e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)
+      kbo(:, 2,45, 8) = (/ &
+        & 0.10270e+04_rb,0.77888e+03_rb,0.58047e+03_rb,0.85051e+03_rb,0.11224e+04_rb /)
+      kbo(:, 3,45, 8) = (/ &
+        & 0.10270e+04_rb,0.77888e+03_rb,0.58005e+03_rb,0.84999e+03_rb,0.11219e+04_rb /)
+      kbo(:, 4,45, 8) = (/ &
+        & 0.10270e+04_rb,0.77888e+03_rb,0.57952e+03_rb,0.84927e+03_rb,0.11210e+04_rb /)
+      kbo(:, 5,45, 8) = (/ &
+        & 0.10269e+04_rb,0.77886e+03_rb,0.57890e+03_rb,0.84837e+03_rb,0.11198e+04_rb /)
+      kbo(:, 1,46, 8) = (/ &
+        & 0.10270e+04_rb,0.77887e+03_rb,0.58072e+03_rb,0.85082e+03_rb,0.11227e+04_rb /)
+      kbo(:, 2,46, 8) = (/ &
+        & 0.10270e+04_rb,0.77886e+03_rb,0.58056e+03_rb,0.85063e+03_rb,0.11226e+04_rb /)
+      kbo(:, 3,46, 8) = (/ &
+        & 0.10269e+04_rb,0.77886e+03_rb,0.58022e+03_rb,0.85021e+03_rb,0.11221e+04_rb /)
+      kbo(:, 4,46, 8) = (/ &
+        & 0.10270e+04_rb,0.77885e+03_rb,0.57972e+03_rb,0.84957e+03_rb,0.11213e+04_rb /)
+      kbo(:, 5,46, 8) = (/ &
+        & 0.10269e+04_rb,0.77884e+03_rb,0.57911e+03_rb,0.84871e+03_rb,0.11203e+04_rb /)
+      kbo(:, 1,47, 8) = (/ &
+        & 0.10269e+04_rb,0.77885e+03_rb,0.58070e+03_rb,0.85086e+03_rb,0.11227e+04_rb /)
+      kbo(:, 2,47, 8) = (/ &
+        & 0.10269e+04_rb,0.77886e+03_rb,0.58066e+03_rb,0.85073e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,47, 8) = (/ &
+        & 0.10269e+04_rb,0.77885e+03_rb,0.58037e+03_rb,0.85041e+03_rb,0.11223e+04_rb /)
+      kbo(:, 4,47, 8) = (/ &
+        & 0.10269e+04_rb,0.77884e+03_rb,0.57993e+03_rb,0.84985e+03_rb,0.11217e+04_rb /)
+      kbo(:, 5,47, 8) = (/ &
+        & 0.10269e+04_rb,0.77883e+03_rb,0.57937e+03_rb,0.84903e+03_rb,0.11207e+04_rb /)
+      kbo(:, 1,48, 8) = (/ &
+        & 0.10269e+04_rb,0.77884e+03_rb,0.58064e+03_rb,0.85086e+03_rb,0.11226e+04_rb /)
+      kbo(:, 2,48, 8) = (/ &
+        & 0.10269e+04_rb,0.77883e+03_rb,0.58071e+03_rb,0.85080e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,48, 8) = (/ &
+        & 0.10269e+04_rb,0.77883e+03_rb,0.58051e+03_rb,0.85055e+03_rb,0.11225e+04_rb /)
+      kbo(:, 4,48, 8) = (/ &
+        & 0.10269e+04_rb,0.77883e+03_rb,0.58013e+03_rb,0.85010e+03_rb,0.11220e+04_rb /)
+      kbo(:, 5,48, 8) = (/ &
+        & 0.10269e+04_rb,0.77883e+03_rb,0.57961e+03_rb,0.84941e+03_rb,0.11212e+04_rb /)
+      kbo(:, 1,49, 8) = (/ &
+        & 0.10269e+04_rb,0.77884e+03_rb,0.58054e+03_rb,0.85082e+03_rb,0.11225e+04_rb /)
+      kbo(:, 2,49, 8) = (/ &
+        & 0.10269e+04_rb,0.77882e+03_rb,0.58072e+03_rb,0.85085e+03_rb,0.11227e+04_rb /)
+      kbo(:, 3,49, 8) = (/ &
+        & 0.10269e+04_rb,0.77883e+03_rb,0.58061e+03_rb,0.85068e+03_rb,0.11226e+04_rb /)
+      kbo(:, 4,49, 8) = (/ &
+        & 0.10269e+04_rb,0.77882e+03_rb,0.58029e+03_rb,0.85032e+03_rb,0.11222e+04_rb /)
+      kbo(:, 5,49, 8) = (/ &
+        & 0.10269e+04_rb,0.77881e+03_rb,0.57983e+03_rb,0.84969e+03_rb,0.11215e+04_rb /)
+      kbo(:, 1,50, 8) = (/ &
+        & 0.10269e+04_rb,0.77883e+03_rb,0.58042e+03_rb,0.85074e+03_rb,0.11224e+04_rb /)
+      kbo(:, 2,50, 8) = (/ &
+        & 0.10269e+04_rb,0.77881e+03_rb,0.58068e+03_rb,0.85085e+03_rb,0.11226e+04_rb /)
+      kbo(:, 3,50, 8) = (/ &
+        & 0.10269e+04_rb,0.77882e+03_rb,0.58069e+03_rb,0.85077e+03_rb,0.11227e+04_rb /)
+      kbo(:, 4,50, 8) = (/ &
+        & 0.10269e+04_rb,0.77880e+03_rb,0.58043e+03_rb,0.85048e+03_rb,0.11224e+04_rb /)
+      kbo(:, 5,50, 8) = (/ &
+        & 0.10269e+04_rb,0.77880e+03_rb,0.58002e+03_rb,0.84997e+03_rb,0.11218e+04_rb /)
+      kbo(:, 1,51, 8) = (/ &
+        & 0.10269e+04_rb,0.77881e+03_rb,0.58027e+03_rb,0.85064e+03_rb,0.11224e+04_rb /)
+      kbo(:, 2,51, 8) = (/ &
+        & 0.10269e+04_rb,0.77882e+03_rb,0.58061e+03_rb,0.85085e+03_rb,0.11226e+04_rb /)
+      kbo(:, 3,51, 8) = (/ &
+        & 0.10269e+04_rb,0.77880e+03_rb,0.58071e+03_rb,0.85082e+03_rb,0.11227e+04_rb /)
+      kbo(:, 4,51, 8) = (/ &
+        & 0.10269e+04_rb,0.77880e+03_rb,0.58055e+03_rb,0.85061e+03_rb,0.11226e+04_rb /)
+      kbo(:, 5,51, 8) = (/ &
+        & 0.10269e+04_rb,0.77881e+03_rb,0.58020e+03_rb,0.85015e+03_rb,0.11221e+04_rb /)
+      kbo(:, 1,52, 8) = (/ &
+        & 0.10269e+04_rb,0.77880e+03_rb,0.58011e+03_rb,0.85051e+03_rb,0.11222e+04_rb /)
+      kbo(:, 2,52, 8) = (/ &
+        & 0.10269e+04_rb,0.77880e+03_rb,0.58051e+03_rb,0.85080e+03_rb,0.11225e+04_rb /)
+      kbo(:, 3,52, 8) = (/ &
+        & 0.10269e+04_rb,0.77880e+03_rb,0.58071e+03_rb,0.85085e+03_rb,0.11227e+04_rb /)
+      kbo(:, 4,52, 8) = (/ &
+        & 0.10268e+04_rb,0.77879e+03_rb,0.58064e+03_rb,0.85068e+03_rb,0.11226e+04_rb /)
+      kbo(:, 5,52, 8) = (/ &
+        & 0.10268e+04_rb,0.77879e+03_rb,0.58034e+03_rb,0.85037e+03_rb,0.11223e+04_rb /)
+      kbo(:, 1,53, 8) = (/ &
+        & 0.10269e+04_rb,0.77880e+03_rb,0.57994e+03_rb,0.85036e+03_rb,0.11220e+04_rb /)
+      kbo(:, 2,53, 8) = (/ &
+        & 0.10269e+04_rb,0.77879e+03_rb,0.58038e+03_rb,0.85072e+03_rb,0.11224e+04_rb /)
+      kbo(:, 3,53, 8) = (/ &
+        & 0.10268e+04_rb,0.77879e+03_rb,0.58066e+03_rb,0.85087e+03_rb,0.11226e+04_rb /)
+      kbo(:, 4,53, 8) = (/ &
+        & 0.10269e+04_rb,0.77880e+03_rb,0.58069e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)
+      kbo(:, 5,53, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.58047e+03_rb,0.85044e+03_rb,0.11225e+04_rb /)
+      kbo(:, 1,54, 8) = (/ &
+        & 0.10268e+04_rb,0.77879e+03_rb,0.57977e+03_rb,0.85022e+03_rb,0.11219e+04_rb /)
+      kbo(:, 2,54, 8) = (/ &
+        & 0.10269e+04_rb,0.77879e+03_rb,0.58026e+03_rb,0.85061e+03_rb,0.11223e+04_rb /)
+      kbo(:, 3,54, 8) = (/ &
+        & 0.10268e+04_rb,0.77881e+03_rb,0.58060e+03_rb,0.85084e+03_rb,0.11226e+04_rb /)
+      kbo(:, 4,54, 8) = (/ &
+        & 0.10268e+04_rb,0.77879e+03_rb,0.58072e+03_rb,0.85083e+03_rb,0.11227e+04_rb /)
+      kbo(:, 5,54, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.58058e+03_rb,0.85063e+03_rb,0.11226e+04_rb /)
+      kbo(:, 1,55, 8) = (/ &
+        & 0.10268e+04_rb,0.77879e+03_rb,0.57962e+03_rb,0.85008e+03_rb,0.11217e+04_rb /)
+      kbo(:, 2,55, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.58011e+03_rb,0.85050e+03_rb,0.11222e+04_rb /)
+      kbo(:, 3,55, 8) = (/ &
+        & 0.10268e+04_rb,0.77879e+03_rb,0.58050e+03_rb,0.85080e+03_rb,0.11225e+04_rb /)
+      kbo(:, 4,55, 8) = (/ &
+        & 0.10268e+04_rb,0.77880e+03_rb,0.58071e+03_rb,0.85085e+03_rb,0.11226e+04_rb /)
+      kbo(:, 5,55, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.58064e+03_rb,0.85072e+03_rb,0.11226e+04_rb /)
+      kbo(:, 1,56, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.57945e+03_rb,0.84993e+03_rb,0.11216e+04_rb /)
+      kbo(:, 2,56, 8) = (/ &
+        & 0.10268e+04_rb,0.77877e+03_rb,0.57995e+03_rb,0.85037e+03_rb,0.11220e+04_rb /)
+      kbo(:, 3,56, 8) = (/ &
+        & 0.10268e+04_rb,0.77877e+03_rb,0.58039e+03_rb,0.85071e+03_rb,0.11224e+04_rb /)
+      kbo(:, 4,56, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.58067e+03_rb,0.85086e+03_rb,0.11226e+04_rb /)
+      kbo(:, 5,56, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.58069e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)
+      kbo(:, 1,57, 8) = (/ &
+        & 0.10268e+04_rb,0.77879e+03_rb,0.57927e+03_rb,0.84978e+03_rb,0.11215e+04_rb /)
+      kbo(:, 2,57, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.57979e+03_rb,0.85024e+03_rb,0.11219e+04_rb /)
+      kbo(:, 3,57, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.58025e+03_rb,0.85063e+03_rb,0.11223e+04_rb /)
+      kbo(:, 4,57, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.58060e+03_rb,0.85084e+03_rb,0.11226e+04_rb /)
+      kbo(:, 5,57, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.58071e+03_rb,0.85083e+03_rb,0.11227e+04_rb /)
+      kbo(:, 1,58, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.57911e+03_rb,0.84962e+03_rb,0.11212e+04_rb /)
+      kbo(:, 2,58, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.57964e+03_rb,0.85010e+03_rb,0.11218e+04_rb /)
+      kbo(:, 3,58, 8) = (/ &
+        & 0.10268e+04_rb,0.77877e+03_rb,0.58013e+03_rb,0.85053e+03_rb,0.11222e+04_rb /)
+      kbo(:, 4,58, 8) = (/ &
+        & 0.10268e+04_rb,0.77877e+03_rb,0.58052e+03_rb,0.85080e+03_rb,0.11225e+04_rb /)
+      kbo(:, 5,58, 8) = (/ &
+        & 0.10268e+04_rb,0.77879e+03_rb,0.58071e+03_rb,0.85085e+03_rb,0.11227e+04_rb /)
+      kbo(:, 1,59, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.57904e+03_rb,0.84955e+03_rb,0.11212e+04_rb /)
+      kbo(:, 2,59, 8) = (/ &
+        & 0.10268e+04_rb,0.77877e+03_rb,0.57958e+03_rb,0.85006e+03_rb,0.11217e+04_rb /)
+      kbo(:, 3,59, 8) = (/ &
+        & 0.10268e+04_rb,0.77877e+03_rb,0.58007e+03_rb,0.85048e+03_rb,0.11222e+04_rb /)
+      kbo(:, 4,59, 8) = (/ &
+        & 0.10268e+04_rb,0.77878e+03_rb,0.58048e+03_rb,0.85078e+03_rb,0.11225e+04_rb /)
+      kbo(:, 5,59, 8) = (/ &
+        & 0.10268e+04_rb,0.77877e+03_rb,0.58070e+03_rb,0.85086e+03_rb,0.11227e+04_rb /)
+      kbo(:, 1,13, 9) = (/ &
+        & 0.11533e+04_rb,0.87327e+03_rb,0.59473e+03_rb,0.87046e+03_rb,0.11487e+04_rb /)
+      kbo(:, 2,13, 9) = (/ &
+        & 0.11444e+04_rb,0.86660e+03_rb,0.59240e+03_rb,0.87005e+03_rb,0.11483e+04_rb /)
+      kbo(:, 3,13, 9) = (/ &
+        & 0.11367e+04_rb,0.86090e+03_rb,0.59185e+03_rb,0.86950e+03_rb,0.11478e+04_rb /)
+      kbo(:, 4,13, 9) = (/ &
+        & 0.11301e+04_rb,0.85587e+03_rb,0.59143e+03_rb,0.86883e+03_rb,0.11469e+04_rb /)
+      kbo(:, 5,13, 9) = (/ &
+        & 0.11242e+04_rb,0.85148e+03_rb,0.59084e+03_rb,0.86797e+03_rb,0.11458e+04_rb /)
+      kbo(:, 1,14, 9) = (/ &
+        & 0.11310e+04_rb,0.85656e+03_rb,0.59238e+03_rb,0.87026e+03_rb,0.11487e+04_rb /)
+      kbo(:, 2,14, 9) = (/ &
+        & 0.11238e+04_rb,0.85118e+03_rb,0.59190e+03_rb,0.86988e+03_rb,0.11483e+04_rb /)
+      kbo(:, 3,14, 9) = (/ &
+        & 0.11176e+04_rb,0.84654e+03_rb,0.59149e+03_rb,0.86931e+03_rb,0.11477e+04_rb /)
+      kbo(:, 4,14, 9) = (/ &
+        & 0.11122e+04_rb,0.84248e+03_rb,0.59105e+03_rb,0.86863e+03_rb,0.11468e+04_rb /)
+      kbo(:, 5,14, 9) = (/ &
+        & 0.11074e+04_rb,0.83890e+03_rb,0.59046e+03_rb,0.86777e+03_rb,0.11457e+04_rb /)
+      kbo(:, 1,15, 9) = (/ &
+        & 0.11128e+04_rb,0.84292e+03_rb,0.59202e+03_rb,0.87009e+03_rb,0.11486e+04_rb /)
+      kbo(:, 2,15, 9) = (/ &
+        & 0.11070e+04_rb,0.83857e+03_rb,0.59157e+03_rb,0.86969e+03_rb,0.11482e+04_rb /)
+      kbo(:, 3,15, 9) = (/ &
+        & 0.11020e+04_rb,0.83480e+03_rb,0.59118e+03_rb,0.86913e+03_rb,0.11476e+04_rb /)
+      kbo(:, 4,15, 9) = (/ &
+        & 0.10976e+04_rb,0.83151e+03_rb,0.59076e+03_rb,0.86843e+03_rb,0.11467e+04_rb /)
+      kbo(:, 5,15, 9) = (/ &
+        & 0.10938e+04_rb,0.82865e+03_rb,0.59015e+03_rb,0.86756e+03_rb,0.11457e+04_rb /)
+      kbo(:, 1,16, 9) = (/ &
+        & 0.10980e+04_rb,0.83182e+03_rb,0.59172e+03_rb,0.86994e+03_rb,0.11486e+04_rb /)
+      kbo(:, 2,16, 9) = (/ &
+        & 0.10933e+04_rb,0.82831e+03_rb,0.59129e+03_rb,0.86966e+03_rb,0.11482e+04_rb /)
+      kbo(:, 3,16, 9) = (/ &
+        & 0.10893e+04_rb,0.82527e+03_rb,0.59092e+03_rb,0.86898e+03_rb,0.11475e+04_rb /)
+      kbo(:, 4,16, 9) = (/ &
+        & 0.10858e+04_rb,0.82261e+03_rb,0.59049e+03_rb,0.86826e+03_rb,0.11466e+04_rb /)
+      kbo(:, 5,16, 9) = (/ &
+        & 0.10827e+04_rb,0.82037e+03_rb,0.58989e+03_rb,0.86738e+03_rb,0.11455e+04_rb /)
+      kbo(:, 1,17, 9) = (/ &
+        & 0.10860e+04_rb,0.82280e+03_rb,0.59147e+03_rb,0.86983e+03_rb,0.11485e+04_rb /)
+      kbo(:, 2,17, 9) = (/ &
+        & 0.10822e+04_rb,0.81997e+03_rb,0.59107e+03_rb,0.86941e+03_rb,0.11481e+04_rb /)
+      kbo(:, 3,17, 9) = (/ &
+        & 0.10790e+04_rb,0.81753e+03_rb,0.59070e+03_rb,0.86883e+03_rb,0.11474e+04_rb /)
+      kbo(:, 4,17, 9) = (/ &
+        & 0.10761e+04_rb,0.81539e+03_rb,0.59027e+03_rb,0.86811e+03_rb,0.11465e+04_rb /)
+      kbo(:, 5,17, 9) = (/ &
+        & 0.10736e+04_rb,0.81353e+03_rb,0.58965e+03_rb,0.86721e+03_rb,0.11454e+04_rb /)
+      kbo(:, 1,18, 9) = (/ &
+        & 0.10762e+04_rb,0.81555e+03_rb,0.59126e+03_rb,0.86969e+03_rb,0.11485e+04_rb /)
+      kbo(:, 2,18, 9) = (/ &
+        & 0.10732e+04_rb,0.81322e+03_rb,0.59088e+03_rb,0.86928e+03_rb,0.11481e+04_rb /)
+      kbo(:, 3,18, 9) = (/ &
+        & 0.10706e+04_rb,0.81128e+03_rb,0.59052e+03_rb,0.86870e+03_rb,0.11474e+04_rb /)
+      kbo(:, 4,18, 9) = (/ &
+        & 0.10683e+04_rb,0.80956e+03_rb,0.59008e+03_rb,0.86800e+03_rb,0.11464e+04_rb /)
+      kbo(:, 5,18, 9) = (/ &
+        & 0.10663e+04_rb,0.80808e+03_rb,0.58945e+03_rb,0.86705e+03_rb,0.11452e+04_rb /)
+      kbo(:, 1,19, 9) = (/ &
+        & 0.10684e+04_rb,0.80963e+03_rb,0.59108e+03_rb,0.86962e+03_rb,0.11485e+04_rb /)
+      kbo(:, 2,19, 9) = (/ &
+        & 0.10659e+04_rb,0.80774e+03_rb,0.59072e+03_rb,0.86917e+03_rb,0.11480e+04_rb /)
+      kbo(:, 3,19, 9) = (/ &
+        & 0.10638e+04_rb,0.80613e+03_rb,0.59038e+03_rb,0.86858e+03_rb,0.11473e+04_rb /)
+      kbo(:, 4,19, 9) = (/ &
+        & 0.10619e+04_rb,0.80481e+03_rb,0.58991e+03_rb,0.86784e+03_rb,0.11463e+04_rb /)
+      kbo(:, 5,19, 9) = (/ &
+        & 0.10603e+04_rb,0.80353e+03_rb,0.58926e+03_rb,0.86690e+03_rb,0.11451e+04_rb /)
+      kbo(:, 1,20, 9) = (/ &
+        & 0.10619e+04_rb,0.80474e+03_rb,0.59092e+03_rb,0.86952e+03_rb,0.11484e+04_rb /)
+      kbo(:, 2,20, 9) = (/ &
+        & 0.10599e+04_rb,0.80326e+03_rb,0.59057e+03_rb,0.86907e+03_rb,0.11479e+04_rb /)
+      kbo(:, 3,20, 9) = (/ &
+        & 0.10582e+04_rb,0.80198e+03_rb,0.59022e+03_rb,0.86845e+03_rb,0.11472e+04_rb /)
+      kbo(:, 4,20, 9) = (/ &
+        & 0.10567e+04_rb,0.80089e+03_rb,0.58976e+03_rb,0.86771e+03_rb,0.11462e+04_rb /)
+      kbo(:, 5,20, 9) = (/ &
+        & 0.10554e+04_rb,0.79986e+03_rb,0.58910e+03_rb,0.86674e+03_rb,0.11449e+04_rb /)
+      kbo(:, 1,21, 9) = (/ &
+        & 0.10567e+04_rb,0.80080e+03_rb,0.59079e+03_rb,0.86945e+03_rb,0.11483e+04_rb /)
+      kbo(:, 2,21, 9) = (/ &
+        & 0.10550e+04_rb,0.79960e+03_rb,0.59045e+03_rb,0.86897e+03_rb,0.11478e+04_rb /)
+      kbo(:, 3,21, 9) = (/ &
+        & 0.10537e+04_rb,0.79858e+03_rb,0.59010e+03_rb,0.86836e+03_rb,0.11471e+04_rb /)
+      kbo(:, 4,21, 9) = (/ &
+        & 0.10525e+04_rb,0.79770e+03_rb,0.58962e+03_rb,0.86752e+03_rb,0.11460e+04_rb /)
+      kbo(:, 5,21, 9) = (/ &
+        & 0.10514e+04_rb,0.79685e+03_rb,0.58893e+03_rb,0.86654e+03_rb,0.11447e+04_rb /)
+      kbo(:, 1,22, 9) = (/ &
+        & 0.10523e+04_rb,0.79754e+03_rb,0.59066e+03_rb,0.86933e+03_rb,0.11483e+04_rb /)
+      kbo(:, 2,22, 9) = (/ &
+        & 0.10510e+04_rb,0.79661e+03_rb,0.59033e+03_rb,0.86884e+03_rb,0.11477e+04_rb /)
+      kbo(:, 3,22, 9) = (/ &
+        & 0.10500e+04_rb,0.79577e+03_rb,0.58997e+03_rb,0.86819e+03_rb,0.11469e+04_rb /)
+      kbo(:, 4,22, 9) = (/ &
+        & 0.10490e+04_rb,0.79506e+03_rb,0.58945e+03_rb,0.86737e+03_rb,0.11458e+04_rb /)
+      kbo(:, 5,22, 9) = (/ &
+        & 0.10482e+04_rb,0.79443e+03_rb,0.58872e+03_rb,0.86635e+03_rb,0.11444e+04_rb /)
+      kbo(:, 1,23, 9) = (/ &
+        & 0.10488e+04_rb,0.79491e+03_rb,0.59053e+03_rb,0.86922e+03_rb,0.11482e+04_rb /)
+      kbo(:, 2,23, 9) = (/ &
+        & 0.10478e+04_rb,0.79417e+03_rb,0.59023e+03_rb,0.86872e+03_rb,0.11476e+04_rb /)
+      kbo(:, 3,23, 9) = (/ &
+        & 0.10469e+04_rb,0.79351e+03_rb,0.58983e+03_rb,0.86802e+03_rb,0.11467e+04_rb /)
+      kbo(:, 4,23, 9) = (/ &
+        & 0.10461e+04_rb,0.79293e+03_rb,0.58929e+03_rb,0.86717e+03_rb,0.11456e+04_rb /)
+      kbo(:, 5,23, 9) = (/ &
+        & 0.10455e+04_rb,0.79241e+03_rb,0.58851e+03_rb,0.86610e+03_rb,0.11442e+04_rb /)
+      kbo(:, 1,24, 9) = (/ &
+        & 0.10460e+04_rb,0.79285e+03_rb,0.59042e+03_rb,0.86910e+03_rb,0.11481e+04_rb /)
+      kbo(:, 2,24, 9) = (/ &
+        & 0.10452e+04_rb,0.79220e+03_rb,0.59009e+03_rb,0.86856e+03_rb,0.11474e+04_rb /)
+      kbo(:, 3,24, 9) = (/ &
+        & 0.10445e+04_rb,0.79170e+03_rb,0.58968e+03_rb,0.86785e+03_rb,0.11465e+04_rb /)
+      kbo(:, 4,24, 9) = (/ &
+        & 0.10439e+04_rb,0.79123e+03_rb,0.58911e+03_rb,0.86698e+03_rb,0.11453e+04_rb /)
+      kbo(:, 5,24, 9) = (/ &
+        & 0.10433e+04_rb,0.79086e+03_rb,0.58830e+03_rb,0.86584e+03_rb,0.11439e+04_rb /)
+      kbo(:, 1,25, 9) = (/ &
+        & 0.10438e+04_rb,0.79109e+03_rb,0.59032e+03_rb,0.86899e+03_rb,0.11480e+04_rb /)
+      kbo(:, 2,25, 9) = (/ &
+        & 0.10430e+04_rb,0.79059e+03_rb,0.58999e+03_rb,0.86841e+03_rb,0.11473e+04_rb /)
+      kbo(:, 3,25, 9) = (/ &
+        & 0.10425e+04_rb,0.79018e+03_rb,0.58955e+03_rb,0.86768e+03_rb,0.11463e+04_rb /)
+      kbo(:, 4,25, 9) = (/ &
+        & 0.10420e+04_rb,0.78985e+03_rb,0.58893e+03_rb,0.86674e+03_rb,0.11450e+04_rb /)
+      kbo(:, 5,25, 9) = (/ &
+        & 0.10416e+04_rb,0.78947e+03_rb,0.58810e+03_rb,0.86557e+03_rb,0.11436e+04_rb /)
+      kbo(:, 1,26, 9) = (/ &
+        & 0.10418e+04_rb,0.78966e+03_rb,0.59022e+03_rb,0.86886e+03_rb,0.11478e+04_rb /)
+      kbo(:, 2,26, 9) = (/ &
+        & 0.10414e+04_rb,0.78932e+03_rb,0.58989e+03_rb,0.86824e+03_rb,0.11471e+04_rb /)
+      kbo(:, 3,26, 9) = (/ &
+        & 0.10409e+04_rb,0.78898e+03_rb,0.58940e+03_rb,0.86743e+03_rb,0.11460e+04_rb /)
+      kbo(:, 4,26, 9) = (/ &
+        & 0.10405e+04_rb,0.78870e+03_rb,0.58873e+03_rb,0.86647e+03_rb,0.11447e+04_rb /)
+      kbo(:, 5,26, 9) = (/ &
+        & 0.10401e+04_rb,0.78842e+03_rb,0.58782e+03_rb,0.86527e+03_rb,0.11432e+04_rb /)
+      kbo(:, 1,27, 9) = (/ &
+        & 0.10403e+04_rb,0.78855e+03_rb,0.59012e+03_rb,0.86872e+03_rb,0.11477e+04_rb /)
+      kbo(:, 2,27, 9) = (/ &
+        & 0.10399e+04_rb,0.78827e+03_rb,0.58977e+03_rb,0.86806e+03_rb,0.11468e+04_rb /)
+      kbo(:, 3,27, 9) = (/ &
+        & 0.10396e+04_rb,0.78799e+03_rb,0.58924e+03_rb,0.86723e+03_rb,0.11458e+04_rb /)
+      kbo(:, 4,27, 9) = (/ &
+        & 0.10392e+04_rb,0.78776e+03_rb,0.58850e+03_rb,0.86619e+03_rb,0.11444e+04_rb /)
+      kbo(:, 5,27, 9) = (/ &
+        & 0.10390e+04_rb,0.78757e+03_rb,0.58756e+03_rb,0.86495e+03_rb,0.11428e+04_rb /)
+      kbo(:, 1,28, 9) = (/ &
+        & 0.10391e+04_rb,0.78770e+03_rb,0.59002e+03_rb,0.86856e+03_rb,0.11475e+04_rb /)
+      kbo(:, 2,28, 9) = (/ &
+        & 0.10388e+04_rb,0.78747e+03_rb,0.58964e+03_rb,0.86790e+03_rb,0.11466e+04_rb /)
+      kbo(:, 3,28, 9) = (/ &
+        & 0.10385e+04_rb,0.78719e+03_rb,0.58908e+03_rb,0.86701e+03_rb,0.11455e+04_rb /)
+      kbo(:, 4,28, 9) = (/ &
+        & 0.10383e+04_rb,0.78704e+03_rb,0.58829e+03_rb,0.86590e+03_rb,0.11440e+04_rb /)
+      kbo(:, 5,28, 9) = (/ &
+        & 0.10381e+04_rb,0.78687e+03_rb,0.58729e+03_rb,0.86461e+03_rb,0.11423e+04_rb /)
+      kbo(:, 1,29, 9) = (/ &
+        & 0.10382e+04_rb,0.78694e+03_rb,0.58994e+03_rb,0.86841e+03_rb,0.11473e+04_rb /)
+      kbo(:, 2,29, 9) = (/ &
+        & 0.10379e+04_rb,0.78677e+03_rb,0.58950e+03_rb,0.86767e+03_rb,0.11463e+04_rb /)
+      kbo(:, 3,29, 9) = (/ &
+        & 0.10377e+04_rb,0.78658e+03_rb,0.58888e+03_rb,0.86674e+03_rb,0.11451e+04_rb /)
+      kbo(:, 4,29, 9) = (/ &
+        & 0.10375e+04_rb,0.78645e+03_rb,0.58805e+03_rb,0.86559e+03_rb,0.11436e+04_rb /)
+      kbo(:, 5,29, 9) = (/ &
+        & 0.10374e+04_rb,0.78628e+03_rb,0.58702e+03_rb,0.86429e+03_rb,0.11419e+04_rb /)
+      kbo(:, 1,30, 9) = (/ &
+        & 0.10373e+04_rb,0.78632e+03_rb,0.58983e+03_rb,0.86822e+03_rb,0.11471e+04_rb /)
+      kbo(:, 2,30, 9) = (/ &
+        & 0.10371e+04_rb,0.78619e+03_rb,0.58935e+03_rb,0.86746e+03_rb,0.11460e+04_rb /)
+      kbo(:, 3,30, 9) = (/ &
+        & 0.10370e+04_rb,0.78613e+03_rb,0.58869e+03_rb,0.86647e+03_rb,0.11448e+04_rb /)
+      kbo(:, 4,30, 9) = (/ &
+        & 0.10369e+04_rb,0.78594e+03_rb,0.58779e+03_rb,0.86529e+03_rb,0.11432e+04_rb /)
+      kbo(:, 5,30, 9) = (/ &
+        & 0.10367e+04_rb,0.78585e+03_rb,0.58673e+03_rb,0.86393e+03_rb,0.11414e+04_rb /)
+      kbo(:, 1,31, 9) = (/ &
+        & 0.10367e+04_rb,0.78588e+03_rb,0.58971e+03_rb,0.86804e+03_rb,0.11468e+04_rb /)
+      kbo(:, 2,31, 9) = (/ &
+        & 0.10365e+04_rb,0.78574e+03_rb,0.58919e+03_rb,0.86720e+03_rb,0.11457e+04_rb /)
+      kbo(:, 3,31, 9) = (/ &
+        & 0.10364e+04_rb,0.78562e+03_rb,0.58847e+03_rb,0.86618e+03_rb,0.11443e+04_rb /)
+      kbo(:, 4,31, 9) = (/ &
+        & 0.10363e+04_rb,0.78557e+03_rb,0.58752e+03_rb,0.86495e+03_rb,0.11427e+04_rb /)
+      kbo(:, 5,31, 9) = (/ &
+        & 0.10362e+04_rb,0.78546e+03_rb,0.58644e+03_rb,0.86356e+03_rb,0.11409e+04_rb /)
+      kbo(:, 1,32, 9) = (/ &
+        & 0.10362e+04_rb,0.78556e+03_rb,0.58958e+03_rb,0.86784e+03_rb,0.11466e+04_rb /)
+      kbo(:, 2,32, 9) = (/ &
+        & 0.10361e+04_rb,0.78539e+03_rb,0.58901e+03_rb,0.86697e+03_rb,0.11454e+04_rb /)
+      kbo(:, 3,32, 9) = (/ &
+        & 0.10360e+04_rb,0.78539e+03_rb,0.58824e+03_rb,0.86587e+03_rb,0.11440e+04_rb /)
+      kbo(:, 4,32, 9) = (/ &
+        & 0.10359e+04_rb,0.78525e+03_rb,0.58724e+03_rb,0.86459e+03_rb,0.11423e+04_rb /)
+      kbo(:, 5,32, 9) = (/ &
+        & 0.10358e+04_rb,0.78516e+03_rb,0.58615e+03_rb,0.86318e+03_rb,0.11404e+04_rb /)
+      kbo(:, 1,33, 9) = (/ &
+        & 0.10358e+04_rb,0.78520e+03_rb,0.58945e+03_rb,0.86763e+03_rb,0.11463e+04_rb /)
+      kbo(:, 2,33, 9) = (/ &
+        & 0.10357e+04_rb,0.78510e+03_rb,0.58883e+03_rb,0.86670e+03_rb,0.11450e+04_rb /)
+      kbo(:, 3,33, 9) = (/ &
+        & 0.10356e+04_rb,0.78504e+03_rb,0.58799e+03_rb,0.86554e+03_rb,0.11435e+04_rb /)
+      kbo(:, 4,33, 9) = (/ &
+        & 0.10356e+04_rb,0.78500e+03_rb,0.58695e+03_rb,0.86422e+03_rb,0.11418e+04_rb /)
+      kbo(:, 5,33, 9) = (/ &
+        & 0.10355e+04_rb,0.78493e+03_rb,0.58586e+03_rb,0.86281e+03_rb,0.11399e+04_rb /)
+      kbo(:, 1,34, 9) = (/ &
+        & 0.10355e+04_rb,0.78495e+03_rb,0.58932e+03_rb,0.86743e+03_rb,0.11460e+04_rb /)
+      kbo(:, 2,34, 9) = (/ &
+        & 0.10354e+04_rb,0.78487e+03_rb,0.58865e+03_rb,0.86644e+03_rb,0.11447e+04_rb /)
+      kbo(:, 3,34, 9) = (/ &
+        & 0.10354e+04_rb,0.78485e+03_rb,0.58776e+03_rb,0.86524e+03_rb,0.11432e+04_rb /)
+      kbo(:, 4,34, 9) = (/ &
+        & 0.10353e+04_rb,0.78479e+03_rb,0.58670e+03_rb,0.86390e+03_rb,0.11414e+04_rb /)
+      kbo(:, 5,34, 9) = (/ &
+        & 0.10352e+04_rb,0.78474e+03_rb,0.58560e+03_rb,0.86249e+03_rb,0.11395e+04_rb /)
+      kbo(:, 1,35, 9) = (/ &
+        & 0.10352e+04_rb,0.78478e+03_rb,0.58924e+03_rb,0.86731e+03_rb,0.11459e+04_rb /)
+      kbo(:, 2,35, 9) = (/ &
+        & 0.10352e+04_rb,0.78472e+03_rb,0.58855e+03_rb,0.86632e+03_rb,0.11445e+04_rb /)
+      kbo(:, 3,35, 9) = (/ &
+        & 0.10351e+04_rb,0.78465e+03_rb,0.58761e+03_rb,0.86508e+03_rb,0.11430e+04_rb /)
+      kbo(:, 4,35, 9) = (/ &
+        & 0.10350e+04_rb,0.78465e+03_rb,0.58655e+03_rb,0.86369e+03_rb,0.11412e+04_rb /)
+      kbo(:, 5,35, 9) = (/ &
+        & 0.10350e+04_rb,0.78456e+03_rb,0.58545e+03_rb,0.86237e+03_rb,0.11393e+04_rb /)
+      kbo(:, 1,36, 9) = (/ &
+        & 0.10350e+04_rb,0.78465e+03_rb,0.58922e+03_rb,0.86729e+03_rb,0.11458e+04_rb /)
+      kbo(:, 2,36, 9) = (/ &
+        & 0.10350e+04_rb,0.78456e+03_rb,0.58852e+03_rb,0.86627e+03_rb,0.11445e+04_rb /)
+      kbo(:, 3,36, 9) = (/ &
+        & 0.10350e+04_rb,0.78452e+03_rb,0.58759e+03_rb,0.86505e+03_rb,0.11429e+04_rb /)
+      kbo(:, 4,36, 9) = (/ &
+        & 0.10349e+04_rb,0.78450e+03_rb,0.58651e+03_rb,0.86369e+03_rb,0.11411e+04_rb /)
+      kbo(:, 5,36, 9) = (/ &
+        & 0.10348e+04_rb,0.78444e+03_rb,0.58544e+03_rb,0.86227e+03_rb,0.11392e+04_rb /)
+      kbo(:, 1,37, 9) = (/ &
+        & 0.10349e+04_rb,0.78446e+03_rb,0.58930e+03_rb,0.86738e+03_rb,0.11460e+04_rb /)
+      kbo(:, 2,37, 9) = (/ &
+        & 0.10348e+04_rb,0.78444e+03_rb,0.58863e+03_rb,0.86642e+03_rb,0.11447e+04_rb /)
+      kbo(:, 3,37, 9) = (/ &
+        & 0.10348e+04_rb,0.78441e+03_rb,0.58773e+03_rb,0.86522e+03_rb,0.11432e+04_rb /)
+      kbo(:, 4,37, 9) = (/ &
+        & 0.10348e+04_rb,0.78439e+03_rb,0.58667e+03_rb,0.86387e+03_rb,0.11414e+04_rb /)
+      kbo(:, 5,37, 9) = (/ &
+        & 0.10347e+04_rb,0.78436e+03_rb,0.58559e+03_rb,0.86245e+03_rb,0.11394e+04_rb /)
+      kbo(:, 1,38, 9) = (/ &
+        & 0.10348e+04_rb,0.78440e+03_rb,0.58936e+03_rb,0.86753e+03_rb,0.11462e+04_rb /)
+      kbo(:, 2,38, 9) = (/ &
+        & 0.10347e+04_rb,0.78434e+03_rb,0.58873e+03_rb,0.86658e+03_rb,0.11449e+04_rb /)
+      kbo(:, 3,38, 9) = (/ &
+        & 0.10347e+04_rb,0.78432e+03_rb,0.58786e+03_rb,0.86537e+03_rb,0.11434e+04_rb /)
+      kbo(:, 4,38, 9) = (/ &
+        & 0.10346e+04_rb,0.78431e+03_rb,0.58681e+03_rb,0.86407e+03_rb,0.11416e+04_rb /)
+      kbo(:, 5,38, 9) = (/ &
+        & 0.10347e+04_rb,0.78428e+03_rb,0.58573e+03_rb,0.86265e+03_rb,0.11397e+04_rb /)
+      kbo(:, 1,39, 9) = (/ &
+        & 0.10347e+04_rb,0.78431e+03_rb,0.58943e+03_rb,0.86764e+03_rb,0.11463e+04_rb /)
+      kbo(:, 2,39, 9) = (/ &
+        & 0.10346e+04_rb,0.78431e+03_rb,0.58882e+03_rb,0.86672e+03_rb,0.11451e+04_rb /)
+      kbo(:, 3,39, 9) = (/ &
+        & 0.10346e+04_rb,0.78424e+03_rb,0.58800e+03_rb,0.86557e+03_rb,0.11436e+04_rb /)
+      kbo(:, 4,39, 9) = (/ &
+        & 0.10346e+04_rb,0.78421e+03_rb,0.58697e+03_rb,0.86426e+03_rb,0.11419e+04_rb /)
+      kbo(:, 5,39, 9) = (/ &
+        & 0.10346e+04_rb,0.78429e+03_rb,0.58587e+03_rb,0.86284e+03_rb,0.11400e+04_rb /)
+      kbo(:, 1,40, 9) = (/ &
+        & 0.10346e+04_rb,0.78426e+03_rb,0.58957e+03_rb,0.86785e+03_rb,0.11466e+04_rb /)
+      kbo(:, 2,40, 9) = (/ &
+        & 0.10345e+04_rb,0.78427e+03_rb,0.58899e+03_rb,0.86697e+03_rb,0.11454e+04_rb /)
+      kbo(:, 3,40, 9) = (/ &
+        & 0.10345e+04_rb,0.78422e+03_rb,0.58822e+03_rb,0.86585e+03_rb,0.11440e+04_rb /)
+      kbo(:, 4,40, 9) = (/ &
+        & 0.10345e+04_rb,0.78421e+03_rb,0.58723e+03_rb,0.86460e+03_rb,0.11423e+04_rb /)
+      kbo(:, 5,40, 9) = (/ &
+        & 0.10344e+04_rb,0.78416e+03_rb,0.58614e+03_rb,0.86319e+03_rb,0.11403e+04_rb /)
+      kbo(:, 1,41, 9) = (/ &
+        & 0.10345e+04_rb,0.78421e+03_rb,0.58967e+03_rb,0.86804e+03_rb,0.11468e+04_rb /)
+      kbo(:, 2,41, 9) = (/ &
+        & 0.10345e+04_rb,0.78418e+03_rb,0.58916e+03_rb,0.86720e+03_rb,0.11457e+04_rb /)
+      kbo(:, 3,41, 9) = (/ &
+        & 0.10344e+04_rb,0.78415e+03_rb,0.58844e+03_rb,0.86618e+03_rb,0.11444e+04_rb /)
+      kbo(:, 4,41, 9) = (/ &
+        & 0.10344e+04_rb,0.78413e+03_rb,0.58748e+03_rb,0.86492e+03_rb,0.11428e+04_rb /)
+      kbo(:, 5,41, 9) = (/ &
+        & 0.10344e+04_rb,0.78411e+03_rb,0.58642e+03_rb,0.86355e+03_rb,0.11409e+04_rb /)
+      kbo(:, 1,42, 9) = (/ &
+        & 0.10345e+04_rb,0.78414e+03_rb,0.58976e+03_rb,0.86830e+03_rb,0.11471e+04_rb /)
+      kbo(:, 2,42, 9) = (/ &
+        & 0.10344e+04_rb,0.78417e+03_rb,0.58930e+03_rb,0.86744e+03_rb,0.11460e+04_rb /)
+      kbo(:, 3,42, 9) = (/ &
+        & 0.10344e+04_rb,0.78411e+03_rb,0.58863e+03_rb,0.86645e+03_rb,0.11448e+04_rb /)
+      kbo(:, 4,42, 9) = (/ &
+        & 0.10344e+04_rb,0.78409e+03_rb,0.58775e+03_rb,0.86525e+03_rb,0.11432e+04_rb /)
+      kbo(:, 5,42, 9) = (/ &
+        & 0.10344e+04_rb,0.78408e+03_rb,0.58670e+03_rb,0.86391e+03_rb,0.11414e+04_rb /)
+      kbo(:, 1,43, 9) = (/ &
+        & 0.10344e+04_rb,0.78410e+03_rb,0.58987e+03_rb,0.86842e+03_rb,0.11473e+04_rb /)
+      kbo(:, 2,43, 9) = (/ &
+        & 0.10344e+04_rb,0.78408e+03_rb,0.58947e+03_rb,0.86769e+03_rb,0.11464e+04_rb /)
+      kbo(:, 3,43, 9) = (/ &
+        & 0.10344e+04_rb,0.78409e+03_rb,0.58887e+03_rb,0.86678e+03_rb,0.11452e+04_rb /)
+      kbo(:, 4,43, 9) = (/ &
+        & 0.10344e+04_rb,0.78410e+03_rb,0.58806e+03_rb,0.86567e+03_rb,0.11437e+04_rb /)
+      kbo(:, 5,43, 9) = (/ &
+        & 0.10343e+04_rb,0.78406e+03_rb,0.58704e+03_rb,0.86435e+03_rb,0.11420e+04_rb /)
+      kbo(:, 1,44, 9) = (/ &
+        & 0.10344e+04_rb,0.78409e+03_rb,0.58998e+03_rb,0.86862e+03_rb,0.11476e+04_rb /)
+      kbo(:, 2,44, 9) = (/ &
+        & 0.10343e+04_rb,0.78407e+03_rb,0.58962e+03_rb,0.86796e+03_rb,0.11467e+04_rb /)
+      kbo(:, 3,44, 9) = (/ &
+        & 0.10343e+04_rb,0.78406e+03_rb,0.58910e+03_rb,0.86711e+03_rb,0.11456e+04_rb /)
+      kbo(:, 4,44, 9) = (/ &
+        & 0.10343e+04_rb,0.78403e+03_rb,0.58835e+03_rb,0.86607e+03_rb,0.11442e+04_rb /)
+      kbo(:, 5,44, 9) = (/ &
+        & 0.10343e+04_rb,0.78403e+03_rb,0.58738e+03_rb,0.86483e+03_rb,0.11426e+04_rb /)
+      kbo(:, 1,45, 9) = (/ &
+        & 0.10343e+04_rb,0.78404e+03_rb,0.59009e+03_rb,0.86881e+03_rb,0.11478e+04_rb /)
+      kbo(:, 2,45, 9) = (/ &
+        & 0.10343e+04_rb,0.78405e+03_rb,0.58975e+03_rb,0.86821e+03_rb,0.11471e+04_rb /)
+      kbo(:, 3,45, 9) = (/ &
+        & 0.10343e+04_rb,0.78404e+03_rb,0.58930e+03_rb,0.86741e+03_rb,0.11460e+04_rb /)
+      kbo(:, 4,45, 9) = (/ &
+        & 0.10342e+04_rb,0.78400e+03_rb,0.58862e+03_rb,0.86644e+03_rb,0.11447e+04_rb /)
+      kbo(:, 5,45, 9) = (/ &
+        & 0.10343e+04_rb,0.78402e+03_rb,0.58769e+03_rb,0.86520e+03_rb,0.11432e+04_rb /)
+      kbo(:, 1,46, 9) = (/ &
+        & 0.10343e+04_rb,0.78403e+03_rb,0.59019e+03_rb,0.86899e+03_rb,0.11481e+04_rb /)
+      kbo(:, 2,46, 9) = (/ &
+        & 0.10343e+04_rb,0.78403e+03_rb,0.58989e+03_rb,0.86845e+03_rb,0.11474e+04_rb /)
+      kbo(:, 3,46, 9) = (/ &
+        & 0.10343e+04_rb,0.78403e+03_rb,0.58947e+03_rb,0.86773e+03_rb,0.11464e+04_rb /)
+      kbo(:, 4,46, 9) = (/ &
+        & 0.10342e+04_rb,0.78401e+03_rb,0.58890e+03_rb,0.86681e+03_rb,0.11452e+04_rb /)
+      kbo(:, 5,46, 9) = (/ &
+        & 0.10343e+04_rb,0.78405e+03_rb,0.58808e+03_rb,0.86568e+03_rb,0.11438e+04_rb /)
+      kbo(:, 1,47, 9) = (/ &
+        & 0.10343e+04_rb,0.78401e+03_rb,0.59032e+03_rb,0.86917e+03_rb,0.11483e+04_rb /)
+      kbo(:, 2,47, 9) = (/ &
+        & 0.10342e+04_rb,0.78398e+03_rb,0.59001e+03_rb,0.86868e+03_rb,0.11477e+04_rb /)
+      kbo(:, 3,47, 9) = (/ &
+        & 0.10342e+04_rb,0.78398e+03_rb,0.58967e+03_rb,0.86807e+03_rb,0.11468e+04_rb /)
+      kbo(:, 4,47, 9) = (/ &
+        & 0.10343e+04_rb,0.78397e+03_rb,0.58916e+03_rb,0.86720e+03_rb,0.11457e+04_rb /)
+      kbo(:, 5,47, 9) = (/ &
+        & 0.10342e+04_rb,0.78399e+03_rb,0.58844e+03_rb,0.86618e+03_rb,0.11444e+04_rb /)
+      kbo(:, 1,48, 9) = (/ &
+        & 0.10342e+04_rb,0.78399e+03_rb,0.59046e+03_rb,0.86932e+03_rb,0.11485e+04_rb /)
+      kbo(:, 2,48, 9) = (/ &
+        & 0.10343e+04_rb,0.78398e+03_rb,0.59013e+03_rb,0.86890e+03_rb,0.11480e+04_rb /)
+      kbo(:, 3,48, 9) = (/ &
+        & 0.10342e+04_rb,0.78402e+03_rb,0.58982e+03_rb,0.86829e+03_rb,0.11472e+04_rb /)
+      kbo(:, 4,48, 9) = (/ &
+        & 0.10342e+04_rb,0.78396e+03_rb,0.58938e+03_rb,0.86756e+03_rb,0.11462e+04_rb /)
+      kbo(:, 5,48, 9) = (/ &
+        & 0.10342e+04_rb,0.78400e+03_rb,0.58875e+03_rb,0.86661e+03_rb,0.11449e+04_rb /)
+      kbo(:, 1,49, 9) = (/ &
+        & 0.10343e+04_rb,0.78402e+03_rb,0.59060e+03_rb,0.86945e+03_rb,0.11486e+04_rb /)
+      kbo(:, 2,49, 9) = (/ &
+        & 0.10342e+04_rb,0.78398e+03_rb,0.59025e+03_rb,0.86908e+03_rb,0.11482e+04_rb /)
+      kbo(:, 3,49, 9) = (/ &
+        & 0.10342e+04_rb,0.78399e+03_rb,0.58995e+03_rb,0.86856e+03_rb,0.11475e+04_rb /)
+      kbo(:, 4,49, 9) = (/ &
+        & 0.10342e+04_rb,0.78399e+03_rb,0.58958e+03_rb,0.86790e+03_rb,0.11466e+04_rb /)
+      kbo(:, 5,49, 9) = (/ &
+        & 0.10342e+04_rb,0.78398e+03_rb,0.58903e+03_rb,0.86700e+03_rb,0.11455e+04_rb /)
+      kbo(:, 1,50, 9) = (/ &
+        & 0.10343e+04_rb,0.78395e+03_rb,0.59074e+03_rb,0.86956e+03_rb,0.11487e+04_rb /)
+      kbo(:, 2,50, 9) = (/ &
+        & 0.10342e+04_rb,0.78399e+03_rb,0.59038e+03_rb,0.86924e+03_rb,0.11483e+04_rb /)
+      kbo(:, 3,50, 9) = (/ &
+        & 0.10342e+04_rb,0.78394e+03_rb,0.59006e+03_rb,0.86878e+03_rb,0.11478e+04_rb /)
+      kbo(:, 4,50, 9) = (/ &
+        & 0.10342e+04_rb,0.78399e+03_rb,0.58974e+03_rb,0.86817e+03_rb,0.11470e+04_rb /)
+      kbo(:, 5,50, 9) = (/ &
+        & 0.10342e+04_rb,0.78395e+03_rb,0.58927e+03_rb,0.86736e+03_rb,0.11460e+04_rb /)
+      kbo(:, 1,51, 9) = (/ &
+        & 0.10342e+04_rb,0.78399e+03_rb,0.59088e+03_rb,0.86965e+03_rb,0.11488e+04_rb /)
+      kbo(:, 2,51, 9) = (/ &
+        & 0.10342e+04_rb,0.78393e+03_rb,0.59051e+03_rb,0.86937e+03_rb,0.11485e+04_rb /)
+      kbo(:, 3,51, 9) = (/ &
+        & 0.10342e+04_rb,0.78400e+03_rb,0.59018e+03_rb,0.86897e+03_rb,0.11480e+04_rb /)
+      kbo(:, 4,51, 9) = (/ &
+        & 0.10342e+04_rb,0.78396e+03_rb,0.58987e+03_rb,0.86840e+03_rb,0.11473e+04_rb /)
+      kbo(:, 5,51, 9) = (/ &
+        & 0.10342e+04_rb,0.78396e+03_rb,0.58946e+03_rb,0.86768e+03_rb,0.11464e+04_rb /)
+      kbo(:, 1,52, 9) = (/ &
+        & 0.10342e+04_rb,0.78395e+03_rb,0.59100e+03_rb,0.86971e+03_rb,0.11490e+04_rb /)
+      kbo(:, 2,52, 9) = (/ &
+        & 0.10342e+04_rb,0.78394e+03_rb,0.59064e+03_rb,0.86949e+03_rb,0.11486e+04_rb /)
+      kbo(:, 3,52, 9) = (/ &
+        & 0.10342e+04_rb,0.78395e+03_rb,0.59029e+03_rb,0.86915e+03_rb,0.11482e+04_rb /)
+      kbo(:, 4,52, 9) = (/ &
+        & 0.10342e+04_rb,0.78394e+03_rb,0.58998e+03_rb,0.86864e+03_rb,0.11476e+04_rb /)
+      kbo(:, 5,52, 9) = (/ &
+        & 0.10342e+04_rb,0.78395e+03_rb,0.58963e+03_rb,0.86796e+03_rb,0.11468e+04_rb /)
+      kbo(:, 1,53, 9) = (/ &
+        & 0.10342e+04_rb,0.78397e+03_rb,0.59111e+03_rb,0.86975e+03_rb,0.11490e+04_rb /)
+      kbo(:, 2,53, 9) = (/ &
+        & 0.10342e+04_rb,0.78394e+03_rb,0.59078e+03_rb,0.86960e+03_rb,0.11488e+04_rb /)
+      kbo(:, 3,53, 9) = (/ &
+        & 0.10342e+04_rb,0.78396e+03_rb,0.59041e+03_rb,0.86926e+03_rb,0.11484e+04_rb /)
+      kbo(:, 4,53, 9) = (/ &
+        & 0.10341e+04_rb,0.78393e+03_rb,0.59010e+03_rb,0.86884e+03_rb,0.11479e+04_rb /)
+      kbo(:, 5,53, 9) = (/ &
+        & 0.10342e+04_rb,0.78395e+03_rb,0.58977e+03_rb,0.86822e+03_rb,0.11471e+04_rb /)
+      kbo(:, 1,54, 9) = (/ &
+        & 0.10343e+04_rb,0.78394e+03_rb,0.59121e+03_rb,0.86979e+03_rb,0.11491e+04_rb /)
+      kbo(:, 2,54, 9) = (/ &
+        & 0.10341e+04_rb,0.78399e+03_rb,0.59088e+03_rb,0.86966e+03_rb,0.11489e+04_rb /)
+      kbo(:, 3,54, 9) = (/ &
+        & 0.10341e+04_rb,0.78394e+03_rb,0.59052e+03_rb,0.86939e+03_rb,0.11485e+04_rb /)
+      kbo(:, 4,54, 9) = (/ &
+        & 0.10341e+04_rb,0.78394e+03_rb,0.59020e+03_rb,0.86900e+03_rb,0.11481e+04_rb /)
+      kbo(:, 5,54, 9) = (/ &
+        & 0.10342e+04_rb,0.78395e+03_rb,0.58987e+03_rb,0.86845e+03_rb,0.11474e+04_rb /)
+      kbo(:, 1,55, 9) = (/ &
+        & 0.10342e+04_rb,0.78396e+03_rb,0.59130e+03_rb,0.86983e+03_rb,0.11491e+04_rb /)
+      kbo(:, 2,55, 9) = (/ &
+        & 0.10341e+04_rb,0.78393e+03_rb,0.59100e+03_rb,0.86971e+03_rb,0.11490e+04_rb /)
+      kbo(:, 3,55, 9) = (/ &
+        & 0.10342e+04_rb,0.78393e+03_rb,0.59065e+03_rb,0.86949e+03_rb,0.11486e+04_rb /)
+      kbo(:, 4,55, 9) = (/ &
+        & 0.10342e+04_rb,0.78395e+03_rb,0.59029e+03_rb,0.86914e+03_rb,0.11483e+04_rb /)
+      kbo(:, 5,55, 9) = (/ &
+        & 0.10341e+04_rb,0.78393e+03_rb,0.59000e+03_rb,0.86864e+03_rb,0.11477e+04_rb /)
+      kbo(:, 1,56, 9) = (/ &
+        & 0.10342e+04_rb,0.78393e+03_rb,0.59137e+03_rb,0.86987e+03_rb,0.11492e+04_rb /)
+      kbo(:, 2,56, 9) = (/ &
+        & 0.10342e+04_rb,0.78395e+03_rb,0.59111e+03_rb,0.86975e+03_rb,0.11490e+04_rb /)
+      kbo(:, 3,56, 9) = (/ &
+        & 0.10342e+04_rb,0.78392e+03_rb,0.59077e+03_rb,0.86958e+03_rb,0.11488e+04_rb /)
+      kbo(:, 4,56, 9) = (/ &
+        & 0.10342e+04_rb,0.78393e+03_rb,0.59040e+03_rb,0.86926e+03_rb,0.11484e+04_rb /)
+      kbo(:, 5,56, 9) = (/ &
+        & 0.10341e+04_rb,0.78393e+03_rb,0.59009e+03_rb,0.86883e+03_rb,0.11479e+04_rb /)
+      kbo(:, 1,57, 9) = (/ &
+        & 0.10342e+04_rb,0.78396e+03_rb,0.59143e+03_rb,0.86993e+03_rb,0.11492e+04_rb /)
+      kbo(:, 2,57, 9) = (/ &
+        & 0.10342e+04_rb,0.78392e+03_rb,0.59122e+03_rb,0.86979e+03_rb,0.11491e+04_rb /)
+      kbo(:, 3,57, 9) = (/ &
+        & 0.10342e+04_rb,0.78392e+03_rb,0.59089e+03_rb,0.86966e+03_rb,0.11489e+04_rb /)
+      kbo(:, 4,57, 9) = (/ &
+        & 0.10341e+04_rb,0.78395e+03_rb,0.59052e+03_rb,0.86938e+03_rb,0.11485e+04_rb /)
+      kbo(:, 5,57, 9) = (/ &
+        & 0.10341e+04_rb,0.78393e+03_rb,0.59018e+03_rb,0.86897e+03_rb,0.11481e+04_rb /)
+      kbo(:, 1,58, 9) = (/ &
+        & 0.10341e+04_rb,0.78395e+03_rb,0.59147e+03_rb,0.86996e+03_rb,0.11493e+04_rb /)
+      kbo(:, 2,58, 9) = (/ &
+        & 0.10341e+04_rb,0.78397e+03_rb,0.59129e+03_rb,0.86982e+03_rb,0.11491e+04_rb /)
+      kbo(:, 3,58, 9) = (/ &
+        & 0.10341e+04_rb,0.78393e+03_rb,0.59099e+03_rb,0.86970e+03_rb,0.11489e+04_rb /)
+      kbo(:, 4,58, 9) = (/ &
+        & 0.10342e+04_rb,0.78397e+03_rb,0.59063e+03_rb,0.86948e+03_rb,0.11486e+04_rb /)
+      kbo(:, 5,58, 9) = (/ &
+        & 0.10342e+04_rb,0.78390e+03_rb,0.59028e+03_rb,0.86913e+03_rb,0.11482e+04_rb /)
+      kbo(:, 1,59, 9) = (/ &
+        & 0.10342e+04_rb,0.78393e+03_rb,0.59148e+03_rb,0.86998e+03_rb,0.11494e+04_rb /)
+      kbo(:, 2,59, 9) = (/ &
+        & 0.10342e+04_rb,0.78396e+03_rb,0.59132e+03_rb,0.86982e+03_rb,0.11492e+04_rb /)
+      kbo(:, 3,59, 9) = (/ &
+        & 0.10342e+04_rb,0.78393e+03_rb,0.59103e+03_rb,0.86972e+03_rb,0.11490e+04_rb /)
+      kbo(:, 4,59, 9) = (/ &
+        & 0.10341e+04_rb,0.78394e+03_rb,0.59067e+03_rb,0.86951e+03_rb,0.11487e+04_rb /)
+      kbo(:, 5,59, 9) = (/ &
+        & 0.10341e+04_rb,0.78397e+03_rb,0.59032e+03_rb,0.86918e+03_rb,0.11483e+04_rb /)
+      kbo(:, 1,13,10) = (/ &
+        & 0.11544e+04_rb,0.87486e+03_rb,0.59975e+03_rb,0.88029e+03_rb,0.11631e+04_rb /)
+      kbo(:, 2,13,10) = (/ &
+        & 0.11458e+04_rb,0.86752e+03_rb,0.59921e+03_rb,0.87889e+03_rb,0.11611e+04_rb /)
+      kbo(:, 3,13,10) = (/ &
+        & 0.11380e+04_rb,0.86177e+03_rb,0.59836e+03_rb,0.87789e+03_rb,0.11592e+04_rb /)
+      kbo(:, 4,13,10) = (/ &
+        & 0.11310e+04_rb,0.85697e+03_rb,0.59745e+03_rb,0.87697e+03_rb,0.11577e+04_rb /)
+      kbo(:, 5,13,10) = (/ &
+        & 0.11259e+04_rb,0.85279e+03_rb,0.59663e+03_rb,0.87606e+03_rb,0.11564e+04_rb /)
+      kbo(:, 1,14,10) = (/ &
+        & 0.11329e+04_rb,0.85757e+03_rb,0.59935e+03_rb,0.88000e+03_rb,0.11630e+04_rb /)
+      kbo(:, 2,14,10) = (/ &
+        & 0.11257e+04_rb,0.85228e+03_rb,0.59878e+03_rb,0.87841e+03_rb,0.11609e+04_rb /)
+      kbo(:, 3,14,10) = (/ &
+        & 0.11201e+04_rb,0.84731e+03_rb,0.59797e+03_rb,0.87766e+03_rb,0.11591e+04_rb /)
+      kbo(:, 4,14,10) = (/ &
+        & 0.11140e+04_rb,0.84389e+03_rb,0.59731e+03_rb,0.87707e+03_rb,0.11577e+04_rb /)
+      kbo(:, 5,14,10) = (/ &
+        & 0.11094e+04_rb,0.84001e+03_rb,0.59642e+03_rb,0.87571e+03_rb,0.11561e+04_rb /)
+      kbo(:, 1,15,10) = (/ &
+        & 0.11142e+04_rb,0.84370e+03_rb,0.59900e+03_rb,0.87973e+03_rb,0.11627e+04_rb /)
+      kbo(:, 2,15,10) = (/ &
+        & 0.11097e+04_rb,0.84029e+03_rb,0.59841e+03_rb,0.87827e+03_rb,0.11607e+04_rb /)
+      kbo(:, 3,15,10) = (/ &
+        & 0.11039e+04_rb,0.83570e+03_rb,0.59763e+03_rb,0.87745e+03_rb,0.11587e+04_rb /)
+      kbo(:, 4,15,10) = (/ &
+        & 0.10995e+04_rb,0.83295e+03_rb,0.59685e+03_rb,0.87664e+03_rb,0.11574e+04_rb /)
+      kbo(:, 5,15,10) = (/ &
+        & 0.10956e+04_rb,0.82966e+03_rb,0.59611e+03_rb,0.87548e+03_rb,0.11555e+04_rb /)
+      kbo(:, 1,16,10) = (/ &
+        & 0.11006e+04_rb,0.83290e+03_rb,0.59871e+03_rb,0.87947e+03_rb,0.11625e+04_rb /)
+      kbo(:, 2,16,10) = (/ &
+        & 0.10967e+04_rb,0.82960e+03_rb,0.59809e+03_rb,0.87696e+03_rb,0.11605e+04_rb /)
+      kbo(:, 3,16,10) = (/ &
+        & 0.10908e+04_rb,0.82627e+03_rb,0.59735e+03_rb,0.87716e+03_rb,0.11587e+04_rb /)
+      kbo(:, 4,16,10) = (/ &
+        & 0.10878e+04_rb,0.82496e+03_rb,0.59665e+03_rb,0.87645e+03_rb,0.11573e+04_rb /)
+      kbo(:, 5,16,10) = (/ &
+        & 0.10846e+04_rb,0.82140e+03_rb,0.59584e+03_rb,0.87537e+03_rb,0.11556e+04_rb /)
+      kbo(:, 1,17,10) = (/ &
+        & 0.10872e+04_rb,0.82399e+03_rb,0.59847e+03_rb,0.87912e+03_rb,0.11623e+04_rb /)
+      kbo(:, 2,17,10) = (/ &
+        & 0.10836e+04_rb,0.82137e+03_rb,0.59782e+03_rb,0.87785e+03_rb,0.11604e+04_rb /)
+      kbo(:, 3,17,10) = (/ &
+        & 0.10806e+04_rb,0.81903e+03_rb,0.59710e+03_rb,0.87700e+03_rb,0.11586e+04_rb /)
+      kbo(:, 4,17,10) = (/ &
+        & 0.10781e+04_rb,0.81649e+03_rb,0.59641e+03_rb,0.87627e+03_rb,0.11571e+04_rb /)
+      kbo(:, 5,17,10) = (/ &
+        & 0.10750e+04_rb,0.81461e+03_rb,0.59560e+03_rb,0.87517e+03_rb,0.11554e+04_rb /)
+      kbo(:, 1,18,10) = (/ &
+        & 0.10783e+04_rb,0.81627e+03_rb,0.59826e+03_rb,0.87902e+03_rb,0.11620e+04_rb /)
+      kbo(:, 2,18,10) = (/ &
+        & 0.10752e+04_rb,0.81450e+03_rb,0.59759e+03_rb,0.87778e+03_rb,0.11602e+04_rb /)
+      kbo(:, 3,18,10) = (/ &
+        & 0.10718e+04_rb,0.81284e+03_rb,0.59689e+03_rb,0.87707e+03_rb,0.11584e+04_rb /)
+      kbo(:, 4,18,10) = (/ &
+        & 0.10695e+04_rb,0.81051e+03_rb,0.59620e+03_rb,0.87578e+03_rb,0.11570e+04_rb /)
+      kbo(:, 5,18,10) = (/ &
+        & 0.10675e+04_rb,0.80859e+03_rb,0.59539e+03_rb,0.87498e+03_rb,0.11554e+04_rb /)
+      kbo(:, 1,19,10) = (/ &
+        & 0.10693e+04_rb,0.81014e+03_rb,0.59808e+03_rb,0.87871e+03_rb,0.11618e+04_rb /)
+      kbo(:, 2,19,10) = (/ &
+        & 0.10674e+04_rb,0.80961e+03_rb,0.59739e+03_rb,0.87763e+03_rb,0.11601e+04_rb /)
+      kbo(:, 3,19,10) = (/ &
+        & 0.10651e+04_rb,0.80782e+03_rb,0.59664e+03_rb,0.87683e+03_rb,0.11582e+04_rb /)
+      kbo(:, 4,19,10) = (/ &
+        & 0.10639e+04_rb,0.80562e+03_rb,0.59610e+03_rb,0.87595e+03_rb,0.11569e+04_rb /)
+      kbo(:, 5,19,10) = (/ &
+        & 0.10620e+04_rb,0.80440e+03_rb,0.59520e+03_rb,0.87481e+03_rb,0.11551e+04_rb /)
+      kbo(:, 1,20,10) = (/ &
+        & 0.10633e+04_rb,0.80580e+03_rb,0.59791e+03_rb,0.87862e+03_rb,0.11616e+04_rb /)
+      kbo(:, 2,20,10) = (/ &
+        & 0.10619e+04_rb,0.80442e+03_rb,0.59720e+03_rb,0.87747e+03_rb,0.11598e+04_rb /)
+      kbo(:, 3,20,10) = (/ &
+        & 0.10607e+04_rb,0.80344e+03_rb,0.59654e+03_rb,0.87680e+03_rb,0.11581e+04_rb /)
+      kbo(:, 4,20,10) = (/ &
+        & 0.10584e+04_rb,0.80182e+03_rb,0.59585e+03_rb,0.87568e+03_rb,0.11568e+04_rb /)
+      kbo(:, 5,20,10) = (/ &
+        & 0.10568e+04_rb,0.80142e+03_rb,0.59502e+03_rb,0.87461e+03_rb,0.11549e+04_rb /)
+      kbo(:, 1,21,10) = (/ &
+        & 0.10577e+04_rb,0.80247e+03_rb,0.59775e+03_rb,0.87831e+03_rb,0.11614e+04_rb /)
+      kbo(:, 2,21,10) = (/ &
+        & 0.10572e+04_rb,0.80108e+03_rb,0.59703e+03_rb,0.87733e+03_rb,0.11595e+04_rb /)
+      kbo(:, 3,21,10) = (/ &
+        & 0.10551e+04_rb,0.79955e+03_rb,0.59639e+03_rb,0.87689e+03_rb,0.11579e+04_rb /)
+      kbo(:, 4,21,10) = (/ &
+        & 0.10548e+04_rb,0.79914e+03_rb,0.59569e+03_rb,0.87563e+03_rb,0.11565e+04_rb /)
+      kbo(:, 5,21,10) = (/ &
+        & 0.10533e+04_rb,0.79794e+03_rb,0.59484e+03_rb,0.87454e+03_rb,0.11546e+04_rb /)
+      kbo(:, 1,22,10) = (/ &
+        & 0.10544e+04_rb,0.79901e+03_rb,0.59755e+03_rb,0.87816e+03_rb,0.11610e+04_rb /)
+      kbo(:, 2,22,10) = (/ &
+        & 0.10524e+04_rb,0.79865e+03_rb,0.59692e+03_rb,0.87715e+03_rb,0.11592e+04_rb /)
+      kbo(:, 3,22,10) = (/ &
+        & 0.10518e+04_rb,0.79733e+03_rb,0.59621e+03_rb,0.87638e+03_rb,0.11576e+04_rb /)
+      kbo(:, 4,22,10) = (/ &
+        & 0.10503e+04_rb,0.79602e+03_rb,0.59549e+03_rb,0.87540e+03_rb,0.11562e+04_rb /)
+      kbo(:, 5,22,10) = (/ &
+        & 0.10497e+04_rb,0.79577e+03_rb,0.59455e+03_rb,0.87415e+03_rb,0.11542e+04_rb /)
+      kbo(:, 1,23,10) = (/ &
+        & 0.10504e+04_rb,0.79618e+03_rb,0.59736e+03_rb,0.87790e+03_rb,0.11608e+04_rb /)
+      kbo(:, 2,23,10) = (/ &
+        & 0.10488e+04_rb,0.79542e+03_rb,0.59652e+03_rb,0.87687e+03_rb,0.11588e+04_rb /)
+      kbo(:, 3,23,10) = (/ &
+        & 0.10489e+04_rb,0.79466e+03_rb,0.59603e+03_rb,0.87619e+03_rb,0.11574e+04_rb /)
+      kbo(:, 4,23,10) = (/ &
+        & 0.10477e+04_rb,0.79399e+03_rb,0.59528e+03_rb,0.87505e+03_rb,0.11559e+04_rb /)
+      kbo(:, 5,23,10) = (/ &
+        & 0.10468e+04_rb,0.79357e+03_rb,0.59440e+03_rb,0.87388e+03_rb,0.11537e+04_rb /)
+      kbo(:, 1,24,10) = (/ &
+        & 0.10475e+04_rb,0.79355e+03_rb,0.59716e+03_rb,0.87766e+03_rb,0.11603e+04_rb /)
+      kbo(:, 2,24,10) = (/ &
+        & 0.10471e+04_rb,0.79325e+03_rb,0.59650e+03_rb,0.87681e+03_rb,0.11585e+04_rb /)
+      kbo(:, 3,24,10) = (/ &
+        & 0.10463e+04_rb,0.79243e+03_rb,0.59586e+03_rb,0.87587e+03_rb,0.11571e+04_rb /)
+      kbo(:, 4,24,10) = (/ &
+        & 0.10454e+04_rb,0.79206e+03_rb,0.59508e+03_rb,0.87468e+03_rb,0.11555e+04_rb /)
+      kbo(:, 5,24,10) = (/ &
+        & 0.10455e+04_rb,0.79146e+03_rb,0.59426e+03_rb,0.87360e+03_rb,0.11532e+04_rb /)
+      kbo(:, 1,25,10) = (/ &
+        & 0.10443e+04_rb,0.79222e+03_rb,0.59698e+03_rb,0.87742e+03_rb,0.11598e+04_rb /)
+      kbo(:, 2,25,10) = (/ &
+        & 0.10446e+04_rb,0.79165e+03_rb,0.59633e+03_rb,0.87696e+03_rb,0.11582e+04_rb /)
+      kbo(:, 3,25,10) = (/ &
+        & 0.10440e+04_rb,0.79123e+03_rb,0.59567e+03_rb,0.87565e+03_rb,0.11568e+04_rb /)
+      kbo(:, 4,25,10) = (/ &
+        & 0.10433e+04_rb,0.79106e+03_rb,0.59487e+03_rb,0.87451e+03_rb,0.11551e+04_rb /)
+      kbo(:, 5,25,10) = (/ &
+        & 0.10423e+04_rb,0.79063e+03_rb,0.59375e+03_rb,0.87329e+03_rb,0.11525e+04_rb /)
+      kbo(:, 1,26,10) = (/ &
+        & 0.10431e+04_rb,0.79112e+03_rb,0.59671e+03_rb,0.87720e+03_rb,0.11595e+04_rb /)
+      kbo(:, 2,26,10) = (/ &
+        & 0.10430e+04_rb,0.79016e+03_rb,0.59608e+03_rb,0.87633e+03_rb,0.11579e+04_rb /)
+      kbo(:, 3,26,10) = (/ &
+        & 0.10422e+04_rb,0.78992e+03_rb,0.59547e+03_rb,0.87551e+03_rb,0.11565e+04_rb /)
+      kbo(:, 4,26,10) = (/ &
+        & 0.10418e+04_rb,0.78943e+03_rb,0.59456e+03_rb,0.87419e+03_rb,0.11545e+04_rb /)
+      kbo(:, 5,26,10) = (/ &
+        & 0.10417e+04_rb,0.78966e+03_rb,0.59375e+03_rb,0.87285e+03_rb,0.11523e+04_rb /)
+      kbo(:, 1,27,10) = (/ &
+        & 0.10421e+04_rb,0.78970e+03_rb,0.59653e+03_rb,0.87700e+03_rb,0.11589e+04_rb /)
+      kbo(:, 2,27,10) = (/ &
+        & 0.10419e+04_rb,0.78911e+03_rb,0.59591e+03_rb,0.87623e+03_rb,0.11575e+04_rb /)
+      kbo(:, 3,27,10) = (/ &
+        & 0.10414e+04_rb,0.78914e+03_rb,0.59527e+03_rb,0.87524e+03_rb,0.11555e+04_rb /)
+      kbo(:, 4,27,10) = (/ &
+        & 0.10412e+04_rb,0.78891e+03_rb,0.59440e+03_rb,0.87398e+03_rb,0.11540e+04_rb /)
+      kbo(:, 5,27,10) = (/ &
+        & 0.10400e+04_rb,0.78850e+03_rb,0.59354e+03_rb,0.87262e+03_rb,0.11516e+04_rb /)
+      kbo(:, 1,28,10) = (/ &
+        & 0.10402e+04_rb,0.78860e+03_rb,0.59644e+03_rb,0.87682e+03_rb,0.11586e+04_rb /)
+      kbo(:, 2,28,10) = (/ &
+        & 0.10405e+04_rb,0.78788e+03_rb,0.59574e+03_rb,0.87579e+03_rb,0.11571e+04_rb /)
+      kbo(:, 3,28,10) = (/ &
+        & 0.10403e+04_rb,0.78855e+03_rb,0.59498e+03_rb,0.87473e+03_rb,0.11552e+04_rb /)
+      kbo(:, 4,28,10) = (/ &
+        & 0.10397e+04_rb,0.78826e+03_rb,0.59417e+03_rb,0.87377e+03_rb,0.11534e+04_rb /)
+      kbo(:, 5,28,10) = (/ &
+        & 0.10396e+04_rb,0.78810e+03_rb,0.59333e+03_rb,0.87227e+03_rb,0.11511e+04_rb /)
+      kbo(:, 1,29,10) = (/ &
+        & 0.10391e+04_rb,0.78797e+03_rb,0.59612e+03_rb,0.87685e+03_rb,0.11584e+04_rb /)
+      kbo(:, 2,29,10) = (/ &
+        & 0.10393e+04_rb,0.78808e+03_rb,0.59562e+03_rb,0.87577e+03_rb,0.11569e+04_rb /)
+      kbo(:, 3,29,10) = (/ &
+        & 0.10401e+04_rb,0.78791e+03_rb,0.59476e+03_rb,0.87463e+03_rb,0.11550e+04_rb /)
+      kbo(:, 4,29,10) = (/ &
+        & 0.10388e+04_rb,0.78727e+03_rb,0.59387e+03_rb,0.87332e+03_rb,0.11526e+04_rb /)
+      kbo(:, 5,29,10) = (/ &
+        & 0.10383e+04_rb,0.78753e+03_rb,0.59306e+03_rb,0.87189e+03_rb,0.11504e+04_rb /)
+      kbo(:, 1,30,10) = (/ &
+        & 0.10398e+04_rb,0.78748e+03_rb,0.59603e+03_rb,0.87643e+03_rb,0.11579e+04_rb /)
+      kbo(:, 2,30,10) = (/ &
+        & 0.10387e+04_rb,0.78733e+03_rb,0.59550e+03_rb,0.87550e+03_rb,0.11567e+04_rb /)
+      kbo(:, 3,30,10) = (/ &
+        & 0.10384e+04_rb,0.78700e+03_rb,0.59460e+03_rb,0.87431e+03_rb,0.11543e+04_rb /)
+      kbo(:, 4,30,10) = (/ &
+        & 0.10381e+04_rb,0.78738e+03_rb,0.59372e+03_rb,0.87275e+03_rb,0.11522e+04_rb /)
+      kbo(:, 5,30,10) = (/ &
+        & 0.10382e+04_rb,0.78707e+03_rb,0.59292e+03_rb,0.87137e+03_rb,0.11500e+04_rb /)
+      kbo(:, 1,31,10) = (/ &
+        & 0.10388e+04_rb,0.78740e+03_rb,0.59593e+03_rb,0.87621e+03_rb,0.11575e+04_rb /)
+      kbo(:, 2,31,10) = (/ &
+        & 0.10385e+04_rb,0.78757e+03_rb,0.59522e+03_rb,0.87522e+03_rb,0.11561e+04_rb /)
+      kbo(:, 3,31,10) = (/ &
+        & 0.10386e+04_rb,0.78718e+03_rb,0.59436e+03_rb,0.87397e+03_rb,0.11540e+04_rb /)
+      kbo(:, 4,31,10) = (/ &
+        & 0.10377e+04_rb,0.78650e+03_rb,0.59350e+03_rb,0.87250e+03_rb,0.11516e+04_rb /)
+      kbo(:, 5,31,10) = (/ &
+        & 0.10376e+04_rb,0.78651e+03_rb,0.59269e+03_rb,0.87108e+03_rb,0.11495e+04_rb /)
+      kbo(:, 1,32,10) = (/ &
+        & 0.10383e+04_rb,0.78682e+03_rb,0.59576e+03_rb,0.87597e+03_rb,0.11572e+04_rb /)
+      kbo(:, 2,32,10) = (/ &
+        & 0.10383e+04_rb,0.78712e+03_rb,0.59500e+03_rb,0.87480e+03_rb,0.11556e+04_rb /)
+      kbo(:, 3,32,10) = (/ &
+        & 0.10381e+04_rb,0.78606e+03_rb,0.59405e+03_rb,0.87362e+03_rb,0.11534e+04_rb /)
+      kbo(:, 4,32,10) = (/ &
+        & 0.10372e+04_rb,0.78628e+03_rb,0.59329e+03_rb,0.87223e+03_rb,0.11510e+04_rb /)
+      kbo(:, 5,32,10) = (/ &
+        & 0.10377e+04_rb,0.78690e+03_rb,0.59245e+03_rb,0.87068e+03_rb,0.11490e+04_rb /)
+      kbo(:, 1,33,10) = (/ &
+        & 0.10380e+04_rb,0.78593e+03_rb,0.59549e+03_rb,0.87572e+03_rb,0.11567e+04_rb /)
+      kbo(:, 2,33,10) = (/ &
+        & 0.10375e+04_rb,0.78654e+03_rb,0.59477e+03_rb,0.87458e+03_rb,0.11551e+04_rb /)
+      kbo(:, 3,33,10) = (/ &
+        & 0.10374e+04_rb,0.78686e+03_rb,0.59389e+03_rb,0.87337e+03_rb,0.11527e+04_rb /)
+      kbo(:, 4,33,10) = (/ &
+        & 0.10366e+04_rb,0.78593e+03_rb,0.59308e+03_rb,0.87194e+03_rb,0.11506e+04_rb /)
+      kbo(:, 5,33,10) = (/ &
+        & 0.10369e+04_rb,0.78626e+03_rb,0.59219e+03_rb,0.87038e+03_rb,0.11486e+04_rb /)
+      kbo(:, 1,34,10) = (/ &
+        & 0.10373e+04_rb,0.78657e+03_rb,0.59539e+03_rb,0.87559e+03_rb,0.11565e+04_rb /)
+      kbo(:, 2,34,10) = (/ &
+        & 0.10370e+04_rb,0.78641e+03_rb,0.59464e+03_rb,0.87429e+03_rb,0.11546e+04_rb /)
+      kbo(:, 3,34,10) = (/ &
+        & 0.10370e+04_rb,0.78587e+03_rb,0.59369e+03_rb,0.87295e+03_rb,0.11522e+04_rb /)
+      kbo(:, 4,34,10) = (/ &
+        & 0.10371e+04_rb,0.78562e+03_rb,0.59289e+03_rb,0.87146e+03_rb,0.11500e+04_rb /)
+      kbo(:, 5,34,10) = (/ &
+        & 0.10372e+04_rb,0.78597e+03_rb,0.59202e+03_rb,0.86991e+03_rb,0.11482e+04_rb /)
+      kbo(:, 1,35,10) = (/ &
+        & 0.10364e+04_rb,0.78559e+03_rb,0.59529e+03_rb,0.87523e+03_rb,0.11563e+04_rb /)
+      kbo(:, 2,35,10) = (/ &
+        & 0.10362e+04_rb,0.78545e+03_rb,0.59445e+03_rb,0.87400e+03_rb,0.11543e+04_rb /)
+      kbo(:, 3,35,10) = (/ &
+        & 0.10372e+04_rb,0.78599e+03_rb,0.59365e+03_rb,0.87265e+03_rb,0.11519e+04_rb /)
+      kbo(:, 4,35,10) = (/ &
+        & 0.10370e+04_rb,0.78527e+03_rb,0.59278e+03_rb,0.87136e+03_rb,0.11496e+04_rb /)
+      kbo(:, 5,35,10) = (/ &
+        & 0.10363e+04_rb,0.78582e+03_rb,0.59179e+03_rb,0.86905e+03_rb,0.11477e+04_rb /)
+      kbo(:, 1,36,10) = (/ &
+        & 0.10368e+04_rb,0.78515e+03_rb,0.59520e+03_rb,0.87532e+03_rb,0.11563e+04_rb /)
+      kbo(:, 2,36,10) = (/ &
+        & 0.10358e+04_rb,0.78589e+03_rb,0.59443e+03_rb,0.87419e+03_rb,0.11542e+04_rb /)
+      kbo(:, 3,36,10) = (/ &
+        & 0.10361e+04_rb,0.78556e+03_rb,0.59355e+03_rb,0.87273e+03_rb,0.11517e+04_rb /)
+      kbo(:, 4,36,10) = (/ &
+        & 0.10361e+04_rb,0.78543e+03_rb,0.59275e+03_rb,0.87122e+03_rb,0.11497e+04_rb /)
+      kbo(:, 5,36,10) = (/ &
+        & 0.10368e+04_rb,0.78570e+03_rb,0.59176e+03_rb,0.86999e+03_rb,0.11477e+04_rb /)
+      kbo(:, 1,37,10) = (/ &
+        & 0.10363e+04_rb,0.78591e+03_rb,0.59537e+03_rb,0.87546e+03_rb,0.11565e+04_rb /)
+      kbo(:, 2,37,10) = (/ &
+        & 0.10360e+04_rb,0.78548e+03_rb,0.59454e+03_rb,0.87425e+03_rb,0.11545e+04_rb /)
+      kbo(:, 3,37,10) = (/ &
+        & 0.10362e+04_rb,0.78546e+03_rb,0.59366e+03_rb,0.87291e+03_rb,0.11521e+04_rb /)
+      kbo(:, 4,37,10) = (/ &
+        & 0.10364e+04_rb,0.78543e+03_rb,0.59286e+03_rb,0.87142e+03_rb,0.11500e+04_rb /)
+      kbo(:, 5,37,10) = (/ &
+        & 0.10360e+04_rb,0.78560e+03_rb,0.59177e+03_rb,0.86987e+03_rb,0.11482e+04_rb /)
+      kbo(:, 1,38,10) = (/ &
+        & 0.10362e+04_rb,0.78542e+03_rb,0.59547e+03_rb,0.87560e+03_rb,0.11567e+04_rb /)
+      kbo(:, 2,38,10) = (/ &
+        & 0.10357e+04_rb,0.78588e+03_rb,0.59466e+03_rb,0.87433e+03_rb,0.11549e+04_rb /)
+      kbo(:, 3,38,10) = (/ &
+        & 0.10370e+04_rb,0.78605e+03_rb,0.59385e+03_rb,0.87310e+03_rb,0.11524e+04_rb /)
+      kbo(:, 4,38,10) = (/ &
+        & 0.10362e+04_rb,0.78574e+03_rb,0.59297e+03_rb,0.87186e+03_rb,0.11501e+04_rb /)
+      kbo(:, 5,38,10) = (/ &
+        & 0.10364e+04_rb,0.78533e+03_rb,0.59199e+03_rb,0.87009e+03_rb,0.11482e+04_rb /)
+      kbo(:, 1,39,10) = (/ &
+        & 0.10359e+04_rb,0.78514e+03_rb,0.59557e+03_rb,0.87574e+03_rb,0.11567e+04_rb /)
+      kbo(:, 2,39,10) = (/ &
+        & 0.10371e+04_rb,0.78541e+03_rb,0.59478e+03_rb,0.87461e+03_rb,0.11552e+04_rb /)
+      kbo(:, 3,39,10) = (/ &
+        & 0.10366e+04_rb,0.78569e+03_rb,0.59382e+03_rb,0.87329e+03_rb,0.11528e+04_rb /)
+      kbo(:, 4,39,10) = (/ &
+        & 0.10359e+04_rb,0.78528e+03_rb,0.59308e+03_rb,0.87198e+03_rb,0.11506e+04_rb /)
+      kbo(:, 5,39,10) = (/ &
+        & 0.10356e+04_rb,0.78487e+03_rb,0.59220e+03_rb,0.87042e+03_rb,0.11486e+04_rb /)
+      kbo(:, 1,40,10) = (/ &
+        & 0.10357e+04_rb,0.78518e+03_rb,0.59566e+03_rb,0.87586e+03_rb,0.11569e+04_rb /)
+      kbo(:, 2,40,10) = (/ &
+        & 0.10357e+04_rb,0.78506e+03_rb,0.59498e+03_rb,0.87480e+03_rb,0.11555e+04_rb /)
+      kbo(:, 3,40,10) = (/ &
+        & 0.10366e+04_rb,0.78504e+03_rb,0.59396e+03_rb,0.87362e+03_rb,0.11534e+04_rb /)
+      kbo(:, 4,40,10) = (/ &
+        & 0.10363e+04_rb,0.78503e+03_rb,0.59319e+03_rb,0.87212e+03_rb,0.11511e+04_rb /)
+      kbo(:, 5,40,10) = (/ &
+        & 0.10363e+04_rb,0.78540e+03_rb,0.59243e+03_rb,0.87078e+03_rb,0.11490e+04_rb /)
+      kbo(:, 1,41,10) = (/ &
+        & 0.10363e+04_rb,0.78503e+03_rb,0.59590e+03_rb,0.87608e+03_rb,0.11576e+04_rb /)
+      kbo(:, 2,41,10) = (/ &
+        & 0.10356e+04_rb,0.78491e+03_rb,0.59519e+03_rb,0.87520e+03_rb,0.11561e+04_rb /)
+      kbo(:, 3,41,10) = (/ &
+        & 0.10364e+04_rb,0.78558e+03_rb,0.59433e+03_rb,0.87384e+03_rb,0.11540e+04_rb /)
+      kbo(:, 4,41,10) = (/ &
+        & 0.10357e+04_rb,0.78518e+03_rb,0.59354e+03_rb,0.87259e+03_rb,0.11516e+04_rb /)
+      kbo(:, 5,41,10) = (/ &
+        & 0.10360e+04_rb,0.78526e+03_rb,0.59259e+03_rb,0.87107e+03_rb,0.11495e+04_rb /)
+      kbo(:, 1,42,10) = (/ &
+        & 0.10360e+04_rb,0.78488e+03_rb,0.59605e+03_rb,0.87553e+03_rb,0.11576e+04_rb /)
+      kbo(:, 2,42,10) = (/ &
+        & 0.10363e+04_rb,0.78507e+03_rb,0.59538e+03_rb,0.87537e+03_rb,0.11565e+04_rb /)
+      kbo(:, 3,42,10) = (/ &
+        & 0.10362e+04_rb,0.78535e+03_rb,0.59456e+03_rb,0.87429e+03_rb,0.11545e+04_rb /)
+      kbo(:, 4,42,10) = (/ &
+        & 0.10361e+04_rb,0.78514e+03_rb,0.59368e+03_rb,0.87295e+03_rb,0.11522e+04_rb /)
+      kbo(:, 5,42,10) = (/ &
+        & 0.10360e+04_rb,0.78523e+03_rb,0.59281e+03_rb,0.87146e+03_rb,0.11502e+04_rb /)
+      kbo(:, 1,43,10) = (/ &
+        & 0.10359e+04_rb,0.78504e+03_rb,0.59624e+03_rb,0.87675e+03_rb,0.11584e+04_rb /)
+      kbo(:, 2,43,10) = (/ &
+        & 0.10355e+04_rb,0.78552e+03_rb,0.59568e+03_rb,0.87580e+03_rb,0.11570e+04_rb /)
+      kbo(:, 3,43,10) = (/ &
+        & 0.10354e+04_rb,0.78512e+03_rb,0.59483e+03_rb,0.87469e+03_rb,0.11553e+04_rb /)
+      kbo(:, 4,43,10) = (/ &
+        & 0.10354e+04_rb,0.78569e+03_rb,0.59395e+03_rb,0.87316e+03_rb,0.11531e+04_rb /)
+      kbo(:, 5,43,10) = (/ &
+        & 0.10359e+04_rb,0.78598e+03_rb,0.59313e+03_rb,0.87186e+03_rb,0.11507e+04_rb /)
+      kbo(:, 1,44,10) = (/ &
+        & 0.10359e+04_rb,0.78521e+03_rb,0.59645e+03_rb,0.87700e+03_rb,0.11590e+04_rb /)
+      kbo(:, 2,44,10) = (/ &
+        & 0.10361e+04_rb,0.78510e+03_rb,0.59583e+03_rb,0.87611e+03_rb,0.11574e+04_rb /)
+      kbo(:, 3,44,10) = (/ &
+        & 0.10368e+04_rb,0.78519e+03_rb,0.59511e+03_rb,0.87509e+03_rb,0.11561e+04_rb /)
+      kbo(:, 4,44,10) = (/ &
+        & 0.10360e+04_rb,0.78508e+03_rb,0.59424e+03_rb,0.87372e+03_rb,0.11538e+04_rb /)
+      kbo(:, 5,44,10) = (/ &
+        & 0.10356e+04_rb,0.78537e+03_rb,0.59339e+03_rb,0.87213e+03_rb,0.11514e+04_rb /)
+      kbo(:, 1,45,10) = (/ &
+        & 0.10357e+04_rb,0.78557e+03_rb,0.59666e+03_rb,0.87715e+03_rb,0.11597e+04_rb /)
+      kbo(:, 2,45,10) = (/ &
+        & 0.10356e+04_rb,0.78527e+03_rb,0.59604e+03_rb,0.87639e+03_rb,0.11579e+04_rb /)
+      kbo(:, 3,45,10) = (/ &
+        & 0.10360e+04_rb,0.78546e+03_rb,0.59537e+03_rb,0.87547e+03_rb,0.11565e+04_rb /)
+      kbo(:, 4,45,10) = (/ &
+        & 0.10361e+04_rb,0.78506e+03_rb,0.59454e+03_rb,0.87427e+03_rb,0.11544e+04_rb /)
+      kbo(:, 5,45,10) = (/ &
+        & 0.10353e+04_rb,0.78535e+03_rb,0.59366e+03_rb,0.87293e+03_rb,0.11520e+04_rb /)
+      kbo(:, 1,46,10) = (/ &
+        & 0.10358e+04_rb,0.78506e+03_rb,0.59691e+03_rb,0.87749e+03_rb,0.11602e+04_rb /)
+      kbo(:, 2,46,10) = (/ &
+        & 0.10353e+04_rb,0.78486e+03_rb,0.59626e+03_rb,0.87678e+03_rb,0.11584e+04_rb /)
+      kbo(:, 3,46,10) = (/ &
+        & 0.10353e+04_rb,0.78495e+03_rb,0.59563e+03_rb,0.87572e+03_rb,0.11570e+04_rb /)
+      kbo(:, 4,46,10) = (/ &
+        & 0.10363e+04_rb,0.78534e+03_rb,0.59478e+03_rb,0.87473e+03_rb,0.11554e+04_rb /)
+      kbo(:, 5,46,10) = (/ &
+        & 0.10355e+04_rb,0.78455e+03_rb,0.59398e+03_rb,0.87342e+03_rb,0.11530e+04_rb /)
+      kbo(:, 1,47,10) = (/ &
+        & 0.10357e+04_rb,0.78544e+03_rb,0.59719e+03_rb,0.87795e+03_rb,0.11609e+04_rb /)
+      kbo(:, 2,47,10) = (/ &
+        & 0.10355e+04_rb,0.78533e+03_rb,0.59651e+03_rb,0.87696e+03_rb,0.11589e+04_rb /)
+      kbo(:, 3,47,10) = (/ &
+        & 0.10358e+04_rb,0.78543e+03_rb,0.59590e+03_rb,0.87576e+03_rb,0.11576e+04_rb /)
+      kbo(:, 4,47,10) = (/ &
+        & 0.10351e+04_rb,0.78562e+03_rb,0.59519e+03_rb,0.87521e+03_rb,0.11561e+04_rb /)
+      kbo(:, 5,47,10) = (/ &
+        & 0.10359e+04_rb,0.78571e+03_rb,0.59433e+03_rb,0.87385e+03_rb,0.11540e+04_rb /)
+      kbo(:, 1,48,10) = (/ &
+        & 0.10363e+04_rb,0.78513e+03_rb,0.59744e+03_rb,0.87846e+03_rb,0.11618e+04_rb /)
+      kbo(:, 2,48,10) = (/ &
+        & 0.10360e+04_rb,0.78532e+03_rb,0.59677e+03_rb,0.87730e+03_rb,0.11598e+04_rb /)
+      kbo(:, 3,48,10) = (/ &
+        & 0.10365e+04_rb,0.78483e+03_rb,0.59614e+03_rb,0.87707e+03_rb,0.11581e+04_rb /)
+      kbo(:, 4,48,10) = (/ &
+        & 0.10355e+04_rb,0.78521e+03_rb,0.59549e+03_rb,0.87564e+03_rb,0.11567e+04_rb /)
+      kbo(:, 5,48,10) = (/ &
+        & 0.10355e+04_rb,0.78531e+03_rb,0.59469e+03_rb,0.87448e+03_rb,0.11550e+04_rb /)
+      kbo(:, 1,49,10) = (/ &
+        & 0.10351e+04_rb,0.78492e+03_rb,0.59768e+03_rb,0.87902e+03_rb,0.11625e+04_rb /)
+      kbo(:, 2,49,10) = (/ &
+        & 0.10355e+04_rb,0.78541e+03_rb,0.59705e+03_rb,0.87772e+03_rb,0.11606e+04_rb /)
+      kbo(:, 3,49,10) = (/ &
+        & 0.10352e+04_rb,0.78472e+03_rb,0.59639e+03_rb,0.87682e+03_rb,0.11587e+04_rb /)
+      kbo(:, 4,49,10) = (/ &
+        & 0.10356e+04_rb,0.78511e+03_rb,0.59577e+03_rb,0.87591e+03_rb,0.11574e+04_rb /)
+      kbo(:, 5,49,10) = (/ &
+        & 0.10352e+04_rb,0.78501e+03_rb,0.59510e+03_rb,0.87498e+03_rb,0.11558e+04_rb /)
+      kbo(:, 1,50,10) = (/ &
+        & 0.10361e+04_rb,0.78540e+03_rb,0.59770e+03_rb,0.87956e+03_rb,0.11633e+04_rb /)
+      kbo(:, 2,50,10) = (/ &
+        & 0.10357e+04_rb,0.78530e+03_rb,0.59731e+03_rb,0.87817e+03_rb,0.11612e+04_rb /)
+      kbo(:, 3,50,10) = (/ &
+        & 0.10365e+04_rb,0.78510e+03_rb,0.59662e+03_rb,0.87710e+03_rb,0.11596e+04_rb /)
+      kbo(:, 4,50,10) = (/ &
+        & 0.10365e+04_rb,0.78510e+03_rb,0.59601e+03_rb,0.87645e+03_rb,0.11578e+04_rb /)
+      kbo(:, 5,50,10) = (/ &
+        & 0.10352e+04_rb,0.78588e+03_rb,0.59525e+03_rb,0.87541e+03_rb,0.11564e+04_rb /)
+      kbo(:, 1,51,10) = (/ &
+        & 0.10356e+04_rb,0.78490e+03_rb,0.59781e+03_rb,0.88010e+03_rb,0.11639e+04_rb /)
+      kbo(:, 2,51,10) = (/ &
+        & 0.10356e+04_rb,0.78539e+03_rb,0.59751e+03_rb,0.87866e+03_rb,0.11620e+04_rb /)
+      kbo(:, 3,51,10) = (/ &
+        & 0.10359e+04_rb,0.78461e+03_rb,0.59687e+03_rb,0.87744e+03_rb,0.11601e+04_rb /)
+      kbo(:, 4,51,10) = (/ &
+        & 0.10352e+04_rb,0.78519e+03_rb,0.59623e+03_rb,0.87674e+03_rb,0.11583e+04_rb /)
+      kbo(:, 5,51,10) = (/ &
+        & 0.10356e+04_rb,0.78470e+03_rb,0.59552e+03_rb,0.87578e+03_rb,0.11569e+04_rb /)
+      kbo(:, 1,52,10) = (/ &
+        & 0.10352e+04_rb,0.78509e+03_rb,0.59800e+03_rb,0.88094e+03_rb,0.11643e+04_rb /)
+      kbo(:, 2,52,10) = (/ &
+        & 0.10355e+04_rb,0.78528e+03_rb,0.59763e+03_rb,0.87918e+03_rb,0.11627e+04_rb /)
+      kbo(:, 3,52,10) = (/ &
+        & 0.10361e+04_rb,0.78479e+03_rb,0.59712e+03_rb,0.87762e+03_rb,0.11608e+04_rb /)
+      kbo(:, 4,52,10) = (/ &
+        & 0.10358e+04_rb,0.78528e+03_rb,0.59645e+03_rb,0.87678e+03_rb,0.11589e+04_rb /)
+      kbo(:, 5,52,10) = (/ &
+        & 0.10355e+04_rb,0.78528e+03_rb,0.59584e+03_rb,0.87612e+03_rb,0.11573e+04_rb /)
+      kbo(:, 1,53,10) = (/ &
+        & 0.10357e+04_rb,0.78528e+03_rb,0.59832e+03_rb,0.88148e+03_rb,0.11650e+04_rb /)
+      kbo(:, 2,53,10) = (/ &
+        & 0.10357e+04_rb,0.78596e+03_rb,0.59772e+03_rb,0.87969e+03_rb,0.11634e+04_rb /)
+      kbo(:, 3,53,10) = (/ &
+        & 0.10361e+04_rb,0.78547e+03_rb,0.59737e+03_rb,0.87830e+03_rb,0.11614e+04_rb /)
+      kbo(:, 4,53,10) = (/ &
+        & 0.10362e+04_rb,0.78537e+03_rb,0.59668e+03_rb,0.87707e+03_rb,0.11596e+04_rb /)
+      kbo(:, 5,53,10) = (/ &
+        & 0.10356e+04_rb,0.78498e+03_rb,0.59606e+03_rb,0.87642e+03_rb,0.11578e+04_rb /)
+      kbo(:, 1,54,10) = (/ &
+        & 0.10351e+04_rb,0.78567e+03_rb,0.59851e+03_rb,0.88199e+03_rb,0.11656e+04_rb /)
+      kbo(:, 2,54,10) = (/ &
+        & 0.10366e+04_rb,0.78518e+03_rb,0.59776e+03_rb,0.88021e+03_rb,0.11638e+04_rb /)
+      kbo(:, 3,54,10) = (/ &
+        & 0.10364e+04_rb,0.78478e+03_rb,0.59753e+03_rb,0.87875e+03_rb,0.11621e+04_rb /)
+      kbo(:, 4,54,10) = (/ &
+        & 0.10356e+04_rb,0.78498e+03_rb,0.59692e+03_rb,0.87751e+03_rb,0.11602e+04_rb /)
+      kbo(:, 5,54,10) = (/ &
+        & 0.10362e+04_rb,0.78527e+03_rb,0.59627e+03_rb,0.87657e+03_rb,0.11584e+04_rb /)
+      kbo(:, 1,55,10) = (/ &
+        & 0.10355e+04_rb,0.78488e+03_rb,0.59876e+03_rb,0.88250e+03_rb,0.11663e+04_rb /)
+      kbo(:, 2,55,10) = (/ &
+        & 0.10362e+04_rb,0.78527e+03_rb,0.59801e+03_rb,0.88087e+03_rb,0.11643e+04_rb /)
+      kbo(:, 3,55,10) = (/ &
+        & 0.10356e+04_rb,0.78507e+03_rb,0.59764e+03_rb,0.87920e+03_rb,0.11628e+04_rb /)
+      kbo(:, 4,55,10) = (/ &
+        & 0.10353e+04_rb,0.78488e+03_rb,0.59714e+03_rb,0.87787e+03_rb,0.11606e+04_rb /)
+      kbo(:, 5,55,10) = (/ &
+        & 0.10356e+04_rb,0.78488e+03_rb,0.59639e+03_rb,0.87691e+03_rb,0.11585e+04_rb /)
+      kbo(:, 1,56,10) = (/ &
+        & 0.10353e+04_rb,0.78537e+03_rb,0.59904e+03_rb,0.88318e+03_rb,0.11672e+04_rb /)
+      kbo(:, 2,56,10) = (/ &
+        & 0.10354e+04_rb,0.78497e+03_rb,0.59830e+03_rb,0.88144e+03_rb,0.11649e+04_rb /)
+      kbo(:, 3,56,10) = (/ &
+        & 0.10361e+04_rb,0.78536e+03_rb,0.59771e+03_rb,0.87966e+03_rb,0.11634e+04_rb /)
+      kbo(:, 4,56,10) = (/ &
+        & 0.10357e+04_rb,0.78497e+03_rb,0.59736e+03_rb,0.87826e+03_rb,0.11615e+04_rb /)
+      kbo(:, 5,56,10) = (/ &
+        & 0.10353e+04_rb,0.78478e+03_rb,0.59667e+03_rb,0.87705e+03_rb,0.11595e+04_rb /)
+      kbo(:, 1,57,10) = (/ &
+        & 0.10358e+04_rb,0.78458e+03_rb,0.59927e+03_rb,0.88350e+03_rb,0.11679e+04_rb /)
+      kbo(:, 2,57,10) = (/ &
+        & 0.10352e+04_rb,0.78536e+03_rb,0.59840e+03_rb,0.88193e+03_rb,0.11656e+04_rb /)
+      kbo(:, 3,57,10) = (/ &
+        & 0.10352e+04_rb,0.78526e+03_rb,0.59782e+03_rb,0.88003e+03_rb,0.11638e+04_rb /)
+      kbo(:, 4,57,10) = (/ &
+        & 0.10358e+04_rb,0.78497e+03_rb,0.59751e+03_rb,0.87869e+03_rb,0.11622e+04_rb /)
+      kbo(:, 5,57,10) = (/ &
+        & 0.10360e+04_rb,0.78497e+03_rb,0.59689e+03_rb,0.87746e+03_rb,0.11601e+04_rb /)
+      kbo(:, 1,58,10) = (/ &
+        & 0.10358e+04_rb,0.78468e+03_rb,0.59969e+03_rb,0.88402e+03_rb,0.11685e+04_rb /)
+      kbo(:, 2,58,10) = (/ &
+        & 0.10357e+04_rb,0.78458e+03_rb,0.59873e+03_rb,0.88241e+03_rb,0.11662e+04_rb /)
+      kbo(:, 3,58,10) = (/ &
+        & 0.10358e+04_rb,0.78526e+03_rb,0.59797e+03_rb,0.88085e+03_rb,0.11642e+04_rb /)
+      kbo(:, 4,58,10) = (/ &
+        & 0.10356e+04_rb,0.78487e+03_rb,0.59762e+03_rb,0.87912e+03_rb,0.11626e+04_rb /)
+      kbo(:, 5,58,10) = (/ &
+        & 0.10357e+04_rb,0.78565e+03_rb,0.59710e+03_rb,0.87769e+03_rb,0.11608e+04_rb /)
+      kbo(:, 1,59,10) = (/ &
+        & 0.10360e+04_rb,0.78507e+03_rb,0.59979e+03_rb,0.88416e+03_rb,0.11687e+04_rb /)
+      kbo(:, 2,59,10) = (/ &
+        & 0.10357e+04_rb,0.78477e+03_rb,0.59879e+03_rb,0.88260e+03_rb,0.11665e+04_rb /)
+      kbo(:, 3,59,10) = (/ &
+        & 0.10350e+04_rb,0.78526e+03_rb,0.59804e+03_rb,0.88100e+03_rb,0.11644e+04_rb /)
+      kbo(:, 4,59,10) = (/ &
+        & 0.10357e+04_rb,0.78467e+03_rb,0.59773e+03_rb,0.87930e+03_rb,0.11629e+04_rb /)
+      kbo(:, 5,59,10) = (/ &
+        & 0.10358e+04_rb,0.78457e+03_rb,0.59718e+03_rb,0.87783e+03_rb,0.11609e+04_rb /)
+      kbo(:, 1,13,11) = (/ &
+        & 0.11563e+04_rb,0.87491e+03_rb,0.60253e+03_rb,0.88362e+03_rb,0.11664e+04_rb /)
+      kbo(:, 2,13,11) = (/ &
+        & 0.11454e+04_rb,0.86861e+03_rb,0.60211e+03_rb,0.88300e+03_rb,0.11639e+04_rb /)
+      kbo(:, 3,13,11) = (/ &
+        & 0.11392e+04_rb,0.86181e+03_rb,0.60140e+03_rb,0.88181e+03_rb,0.11620e+04_rb /)
+      kbo(:, 4,13,11) = (/ &
+        & 0.11315e+04_rb,0.85680e+03_rb,0.60042e+03_rb,0.88057e+03_rb,0.11602e+04_rb /)
+      kbo(:, 5,13,11) = (/ &
+        & 0.11273e+04_rb,0.85330e+03_rb,0.59929e+03_rb,0.87908e+03_rb,0.11581e+04_rb /)
+      kbo(:, 1,14,11) = (/ &
+        & 0.11333e+04_rb,0.85776e+03_rb,0.60215e+03_rb,0.88338e+03_rb,0.11660e+04_rb /)
+      kbo(:, 2,14,11) = (/ &
+        & 0.11256e+04_rb,0.85211e+03_rb,0.60176e+03_rb,0.88258e+03_rb,0.11637e+04_rb /)
+      kbo(:, 3,14,11) = (/ &
+        & 0.11185e+04_rb,0.84809e+03_rb,0.60101e+03_rb,0.88154e+03_rb,0.11618e+04_rb /)
+      kbo(:, 4,14,11) = (/ &
+        & 0.11137e+04_rb,0.84328e+03_rb,0.59992e+03_rb,0.87989e+03_rb,0.11599e+04_rb /)
+      kbo(:, 5,14,11) = (/ &
+        & 0.11092e+04_rb,0.83997e+03_rb,0.59898e+03_rb,0.87879e+03_rb,0.11581e+04_rb /)
+      kbo(:, 1,15,11) = (/ &
+        & 0.11149e+04_rb,0.84435e+03_rb,0.60192e+03_rb,0.88317e+03_rb,0.11660e+04_rb /)
+      kbo(:, 2,15,11) = (/ &
+        & 0.11071e+04_rb,0.83899e+03_rb,0.60145e+03_rb,0.88233e+03_rb,0.11635e+04_rb /)
+      kbo(:, 3,15,11) = (/ &
+        & 0.11058e+04_rb,0.83612e+03_rb,0.60066e+03_rb,0.88128e+03_rb,0.11617e+04_rb /)
+      kbo(:, 4,15,11) = (/ &
+        & 0.10996e+04_rb,0.83410e+03_rb,0.59965e+03_rb,0.88002e+03_rb,0.11599e+04_rb /)
+      kbo(:, 5,15,11) = (/ &
+        & 0.10957e+04_rb,0.83022e+03_rb,0.59863e+03_rb,0.87850e+03_rb,0.11578e+04_rb /)
+      kbo(:, 1,16,11) = (/ &
+        & 0.10993e+04_rb,0.83361e+03_rb,0.60157e+03_rb,0.88298e+03_rb,0.11657e+04_rb /)
+      kbo(:, 2,16,11) = (/ &
+        & 0.10933e+04_rb,0.82961e+03_rb,0.60127e+03_rb,0.88210e+03_rb,0.11633e+04_rb /)
+      kbo(:, 3,16,11) = (/ &
+        & 0.10924e+04_rb,0.82745e+03_rb,0.60035e+03_rb,0.88104e+03_rb,0.11615e+04_rb /)
+      kbo(:, 4,16,11) = (/ &
+        & 0.10885e+04_rb,0.82319e+03_rb,0.59934e+03_rb,0.87977e+03_rb,0.11597e+04_rb /)
+      kbo(:, 5,16,11) = (/ &
+        & 0.10838e+04_rb,0.82062e+03_rb,0.59823e+03_rb,0.87823e+03_rb,0.11577e+04_rb /)
+      kbo(:, 1,17,11) = (/ &
+        & 0.10881e+04_rb,0.82385e+03_rb,0.60135e+03_rb,0.88282e+03_rb,0.11656e+04_rb /)
+      kbo(:, 2,17,11) = (/ &
+        & 0.10840e+04_rb,0.82201e+03_rb,0.60094e+03_rb,0.88190e+03_rb,0.11631e+04_rb /)
+      kbo(:, 3,17,11) = (/ &
+        & 0.10809e+04_rb,0.81908e+03_rb,0.60007e+03_rb,0.88083e+03_rb,0.11613e+04_rb /)
+      kbo(:, 4,17,11) = (/ &
+        & 0.10772e+04_rb,0.81792e+03_rb,0.59907e+03_rb,0.87953e+03_rb,0.11595e+04_rb /)
+      kbo(:, 5,17,11) = (/ &
+        & 0.10760e+04_rb,0.81580e+03_rb,0.59806e+03_rb,0.87798e+03_rb,0.11575e+04_rb /)
+      kbo(:, 1,18,11) = (/ &
+        & 0.10780e+04_rb,0.81679e+03_rb,0.60116e+03_rb,0.88267e+03_rb,0.11653e+04_rb /)
+      kbo(:, 2,18,11) = (/ &
+        & 0.10749e+04_rb,0.81512e+03_rb,0.60072e+03_rb,0.88171e+03_rb,0.11629e+04_rb /)
+      kbo(:, 3,18,11) = (/ &
+        & 0.10728e+04_rb,0.81180e+03_rb,0.59983e+03_rb,0.88050e+03_rb,0.11611e+04_rb /)
+      kbo(:, 4,18,11) = (/ &
+        & 0.10707e+04_rb,0.81081e+03_rb,0.59883e+03_rb,0.87944e+03_rb,0.11593e+04_rb /)
+      kbo(:, 5,18,11) = (/ &
+        & 0.10678e+04_rb,0.80905e+03_rb,0.59782e+03_rb,0.87775e+03_rb,0.11574e+04_rb /)
+      kbo(:, 1,19,11) = (/ &
+        & 0.10696e+04_rb,0.81122e+03_rb,0.60101e+03_rb,0.88252e+03_rb,0.11649e+04_rb /)
+      kbo(:, 2,19,11) = (/ &
+        & 0.10692e+04_rb,0.80792e+03_rb,0.60053e+03_rb,0.88155e+03_rb,0.11625e+04_rb /)
+      kbo(:, 3,19,11) = (/ &
+        & 0.10653e+04_rb,0.80791e+03_rb,0.59962e+03_rb,0.88058e+03_rb,0.11609e+04_rb /)
+      kbo(:, 4,19,11) = (/ &
+        & 0.10635e+04_rb,0.80651e+03_rb,0.59853e+03_rb,0.87910e+03_rb,0.11591e+04_rb /)
+      kbo(:, 5,19,11) = (/ &
+        & 0.10626e+04_rb,0.80552e+03_rb,0.59761e+03_rb,0.87753e+03_rb,0.11572e+04_rb /)
+      kbo(:, 1,20,11) = (/ &
+        & 0.10638e+04_rb,0.80613e+03_rb,0.60096e+03_rb,0.88236e+03_rb,0.11646e+04_rb /)
+      kbo(:, 2,20,11) = (/ &
+        & 0.10623e+04_rb,0.80416e+03_rb,0.60035e+03_rb,0.88137e+03_rb,0.11625e+04_rb /)
+      kbo(:, 3,20,11) = (/ &
+        & 0.10590e+04_rb,0.80264e+03_rb,0.59950e+03_rb,0.88013e+03_rb,0.11607e+04_rb /)
+      kbo(:, 4,20,11) = (/ &
+        & 0.10603e+04_rb,0.80308e+03_rb,0.59841e+03_rb,0.87915e+03_rb,0.11587e+04_rb /)
+      kbo(:, 5,20,11) = (/ &
+        & 0.10573e+04_rb,0.80101e+03_rb,0.59740e+03_rb,0.87729e+03_rb,0.11568e+04_rb /)
+      kbo(:, 1,21,11) = (/ &
+        & 0.10580e+04_rb,0.80255e+03_rb,0.60075e+03_rb,0.88233e+03_rb,0.11643e+04_rb /)
+      kbo(:, 2,21,11) = (/ &
+        & 0.10580e+04_rb,0.80172e+03_rb,0.60017e+03_rb,0.88121e+03_rb,0.11623e+04_rb /)
+      kbo(:, 3,21,11) = (/ &
+        & 0.10551e+04_rb,0.80129e+03_rb,0.59922e+03_rb,0.87954e+03_rb,0.11605e+04_rb /)
+      kbo(:, 4,21,11) = (/ &
+        & 0.10544e+04_rb,0.79894e+03_rb,0.59822e+03_rb,0.87866e+03_rb,0.11586e+04_rb /)
+      kbo(:, 5,21,11) = (/ &
+        & 0.10531e+04_rb,0.79850e+03_rb,0.59721e+03_rb,0.87693e+03_rb,0.11568e+04_rb /)
+      kbo(:, 1,22,11) = (/ &
+        & 0.10535e+04_rb,0.79809e+03_rb,0.60064e+03_rb,0.88198e+03_rb,0.11639e+04_rb /)
+      kbo(:, 2,22,11) = (/ &
+        & 0.10534e+04_rb,0.79679e+03_rb,0.59986e+03_rb,0.88098e+03_rb,0.11619e+04_rb /)
+      kbo(:, 3,22,11) = (/ &
+        & 0.10517e+04_rb,0.79764e+03_rb,0.59897e+03_rb,0.87993e+03_rb,0.11602e+04_rb /)
+      kbo(:, 4,22,11) = (/ &
+        & 0.10510e+04_rb,0.79739e+03_rb,0.59797e+03_rb,0.87835e+03_rb,0.11582e+04_rb /)
+      kbo(:, 5,22,11) = (/ &
+        & 0.10492e+04_rb,0.79579e+03_rb,0.59697e+03_rb,0.87672e+03_rb,0.11565e+04_rb /)
+      kbo(:, 1,23,11) = (/ &
+        & 0.10516e+04_rb,0.79606e+03_rb,0.60095e+03_rb,0.88176e+03_rb,0.11633e+04_rb /)
+      kbo(:, 2,23,11) = (/ &
+        & 0.10497e+04_rb,0.79542e+03_rb,0.59972e+03_rb,0.88074e+03_rb,0.11616e+04_rb /)
+      kbo(:, 3,23,11) = (/ &
+        & 0.10482e+04_rb,0.79453e+03_rb,0.59873e+03_rb,0.87952e+03_rb,0.11598e+04_rb /)
+      kbo(:, 4,23,11) = (/ &
+        & 0.10486e+04_rb,0.79431e+03_rb,0.59782e+03_rb,0.87802e+03_rb,0.11579e+04_rb /)
+      kbo(:, 5,23,11) = (/ &
+        & 0.10473e+04_rb,0.79522e+03_rb,0.59672e+03_rb,0.87637e+03_rb,0.11562e+04_rb /)
+      kbo(:, 1,24,11) = (/ &
+        & 0.10467e+04_rb,0.79476e+03_rb,0.60034e+03_rb,0.88154e+03_rb,0.11630e+04_rb /)
+      kbo(:, 2,24,11) = (/ &
+        & 0.10461e+04_rb,0.79357e+03_rb,0.59948e+03_rb,0.88049e+03_rb,0.11613e+04_rb /)
+      kbo(:, 3,24,11) = (/ &
+        & 0.10460e+04_rb,0.79280e+03_rb,0.59849e+03_rb,0.87921e+03_rb,0.11596e+04_rb /)
+      kbo(:, 4,24,11) = (/ &
+        & 0.10457e+04_rb,0.79222e+03_rb,0.59749e+03_rb,0.87768e+03_rb,0.11575e+04_rb /)
+      kbo(:, 5,24,11) = (/ &
+        & 0.10450e+04_rb,0.79193e+03_rb,0.59639e+03_rb,0.87600e+03_rb,0.11558e+04_rb /)
+      kbo(:, 1,25,11) = (/ &
+        & 0.10463e+04_rb,0.79209e+03_rb,0.60015e+03_rb,0.88131e+03_rb,0.11626e+04_rb /)
+      kbo(:, 2,25,11) = (/ &
+        & 0.10455e+04_rb,0.79185e+03_rb,0.59924e+03_rb,0.87983e+03_rb,0.11609e+04_rb /)
+      kbo(:, 3,25,11) = (/ &
+        & 0.10450e+04_rb,0.79214e+03_rb,0.59824e+03_rb,0.87889e+03_rb,0.11590e+04_rb /)
+      kbo(:, 4,25,11) = (/ &
+        & 0.10445e+04_rb,0.79118e+03_rb,0.59725e+03_rb,0.87732e+03_rb,0.11571e+04_rb /)
+      kbo(:, 5,25,11) = (/ &
+        & 0.10428e+04_rb,0.79168e+03_rb,0.59624e+03_rb,0.87561e+03_rb,0.11555e+04_rb /)
+      kbo(:, 1,26,11) = (/ &
+        & 0.10437e+04_rb,0.79093e+03_rb,0.59993e+03_rb,0.88106e+03_rb,0.11624e+04_rb /)
+      kbo(:, 2,26,11) = (/ &
+        & 0.10430e+04_rb,0.79091e+03_rb,0.59898e+03_rb,0.87993e+03_rb,0.11605e+04_rb /)
+      kbo(:, 3,26,11) = (/ &
+        & 0.10430e+04_rb,0.79069e+03_rb,0.59808e+03_rb,0.87852e+03_rb,0.11586e+04_rb /)
+      kbo(:, 4,26,11) = (/ &
+        & 0.10425e+04_rb,0.79087e+03_rb,0.59699e+03_rb,0.87692e+03_rb,0.11569e+04_rb /)
+      kbo(:, 5,26,11) = (/ &
+        & 0.10414e+04_rb,0.78954e+03_rb,0.59598e+03_rb,0.87517e+03_rb,0.11547e+04_rb /)
+      kbo(:, 1,27,11) = (/ &
+        & 0.10423e+04_rb,0.79028e+03_rb,0.59970e+03_rb,0.88080e+03_rb,0.11616e+04_rb /)
+      kbo(:, 2,27,11) = (/ &
+        & 0.10415e+04_rb,0.78939e+03_rb,0.59872e+03_rb,0.87961e+03_rb,0.11600e+04_rb /)
+      kbo(:, 3,27,11) = (/ &
+        & 0.10419e+04_rb,0.78972e+03_rb,0.59773e+03_rb,0.87814e+03_rb,0.11581e+04_rb /)
+      kbo(:, 4,27,11) = (/ &
+        & 0.10405e+04_rb,0.78901e+03_rb,0.59673e+03_rb,0.87651e+03_rb,0.11564e+04_rb /)
+      kbo(:, 5,27,11) = (/ &
+        & 0.10410e+04_rb,0.78880e+03_rb,0.59572e+03_rb,0.87471e+03_rb,0.11546e+04_rb /)
+      kbo(:, 1,28,11) = (/ &
+        & 0.10411e+04_rb,0.78831e+03_rb,0.59945e+03_rb,0.88052e+03_rb,0.11614e+04_rb /)
+      kbo(:, 2,28,11) = (/ &
+        & 0.10402e+04_rb,0.78866e+03_rb,0.59846e+03_rb,0.87954e+03_rb,0.11596e+04_rb /)
+      kbo(:, 3,28,11) = (/ &
+        & 0.10401e+04_rb,0.78798e+03_rb,0.59747e+03_rb,0.87776e+03_rb,0.11577e+04_rb /)
+      kbo(:, 4,28,11) = (/ &
+        & 0.10407e+04_rb,0.78779e+03_rb,0.59647e+03_rb,0.87596e+03_rb,0.11560e+04_rb /)
+      kbo(:, 5,28,11) = (/ &
+        & 0.10407e+04_rb,0.78751e+03_rb,0.59548e+03_rb,0.87425e+03_rb,0.11542e+04_rb /)
+      kbo(:, 1,29,11) = (/ &
+        & 0.10408e+04_rb,0.78876e+03_rb,0.59920e+03_rb,0.87983e+03_rb,0.11608e+04_rb /)
+      kbo(:, 2,29,11) = (/ &
+        & 0.10408e+04_rb,0.78834e+03_rb,0.59820e+03_rb,0.87891e+03_rb,0.11591e+04_rb /)
+      kbo(:, 3,29,11) = (/ &
+        & 0.10387e+04_rb,0.78864e+03_rb,0.59721e+03_rb,0.87735e+03_rb,0.11572e+04_rb /)
+      kbo(:, 4,29,11) = (/ &
+        & 0.10384e+04_rb,0.78778e+03_rb,0.59621e+03_rb,0.87578e+03_rb,0.11555e+04_rb /)
+      kbo(:, 5,29,11) = (/ &
+        & 0.10412e+04_rb,0.78824e+03_rb,0.59524e+03_rb,0.87368e+03_rb,0.11538e+04_rb /)
+      kbo(:, 1,30,11) = (/ &
+        & 0.10383e+04_rb,0.78758e+03_rb,0.59894e+03_rb,0.87992e+03_rb,0.11605e+04_rb /)
+      kbo(:, 2,30,11) = (/ &
+        & 0.10390e+04_rb,0.78755e+03_rb,0.59785e+03_rb,0.87840e+03_rb,0.11584e+04_rb /)
+      kbo(:, 3,30,11) = (/ &
+        & 0.10391e+04_rb,0.78813e+03_rb,0.59695e+03_rb,0.87693e+03_rb,0.11568e+04_rb /)
+      kbo(:, 4,30,11) = (/ &
+        & 0.10384e+04_rb,0.78683e+03_rb,0.59594e+03_rb,0.87519e+03_rb,0.11551e+04_rb /)
+      kbo(:, 5,30,11) = (/ &
+        & 0.10388e+04_rb,0.78660e+03_rb,0.59501e+03_rb,0.87341e+03_rb,0.11534e+04_rb /)
+      kbo(:, 1,31,11) = (/ &
+        & 0.10376e+04_rb,0.78640e+03_rb,0.59867e+03_rb,0.87959e+03_rb,0.11601e+04_rb /)
+      kbo(:, 2,31,11) = (/ &
+        & 0.10381e+04_rb,0.78687e+03_rb,0.59768e+03_rb,0.87813e+03_rb,0.11581e+04_rb /)
+      kbo(:, 3,31,11) = (/ &
+        & 0.10369e+04_rb,0.78736e+03_rb,0.59668e+03_rb,0.87650e+03_rb,0.11564e+04_rb /)
+      kbo(:, 4,31,11) = (/ &
+        & 0.10380e+04_rb,0.78738e+03_rb,0.59577e+03_rb,0.87483e+03_rb,0.11546e+04_rb /)
+      kbo(:, 5,31,11) = (/ &
+        & 0.10391e+04_rb,0.78671e+03_rb,0.59479e+03_rb,0.87299e+03_rb,0.11532e+04_rb /)
+      kbo(:, 1,32,11) = (/ &
+        & 0.10371e+04_rb,0.78531e+03_rb,0.59840e+03_rb,0.87936e+03_rb,0.11596e+04_rb /)
+      kbo(:, 2,32,11) = (/ &
+        & 0.10383e+04_rb,0.78734e+03_rb,0.59742e+03_rb,0.87771e+03_rb,0.11576e+04_rb /)
+      kbo(:, 3,32,11) = (/ &
+        & 0.10363e+04_rb,0.78691e+03_rb,0.59641e+03_rb,0.87605e+03_rb,0.11559e+04_rb /)
+      kbo(:, 4,32,11) = (/ &
+        & 0.10373e+04_rb,0.78648e+03_rb,0.59543e+03_rb,0.87420e+03_rb,0.11542e+04_rb /)
+      kbo(:, 5,32,11) = (/ &
+        & 0.10376e+04_rb,0.78617e+03_rb,0.59455e+03_rb,0.87256e+03_rb,0.11529e+04_rb /)
+      kbo(:, 1,33,11) = (/ &
+        & 0.10366e+04_rb,0.78725e+03_rb,0.59814e+03_rb,0.87885e+03_rb,0.11591e+04_rb /)
+      kbo(:, 2,33,11) = (/ &
+        & 0.10366e+04_rb,0.78694e+03_rb,0.59715e+03_rb,0.87729e+03_rb,0.11572e+04_rb /)
+      kbo(:, 3,33,11) = (/ &
+        & 0.10365e+04_rb,0.78534e+03_rb,0.59614e+03_rb,0.87545e+03_rb,0.11555e+04_rb /)
+      kbo(:, 4,33,11) = (/ &
+        & 0.10377e+04_rb,0.78705e+03_rb,0.59518e+03_rb,0.87362e+03_rb,0.11536e+04_rb /)
+      kbo(:, 5,33,11) = (/ &
+        & 0.10381e+04_rb,0.78546e+03_rb,0.59428e+03_rb,0.87201e+03_rb,0.11526e+04_rb /)
+      kbo(:, 1,34,11) = (/ &
+        & 0.10370e+04_rb,0.78547e+03_rb,0.59791e+03_rb,0.87837e+03_rb,0.11586e+04_rb /)
+      kbo(:, 2,34,11) = (/ &
+        & 0.10369e+04_rb,0.78635e+03_rb,0.59683e+03_rb,0.87691e+03_rb,0.11568e+04_rb /)
+      kbo(:, 3,34,11) = (/ &
+        & 0.10373e+04_rb,0.78607e+03_rb,0.59591e+03_rb,0.87516e+03_rb,0.11551e+04_rb /)
+      kbo(:, 4,34,11) = (/ &
+        & 0.10371e+04_rb,0.78696e+03_rb,0.59498e+03_rb,0.87338e+03_rb,0.11534e+04_rb /)
+      kbo(:, 5,34,11) = (/ &
+        & 0.10366e+04_rb,0.78538e+03_rb,0.59374e+03_rb,0.87179e+03_rb,0.11524e+04_rb /)
+      kbo(:, 1,35,11) = (/ &
+        & 0.10371e+04_rb,0.78681e+03_rb,0.59778e+03_rb,0.87830e+03_rb,0.11583e+04_rb /)
+      kbo(:, 2,35,11) = (/ &
+        & 0.10367e+04_rb,0.78665e+03_rb,0.59678e+03_rb,0.87669e+03_rb,0.11566e+04_rb /)
+      kbo(:, 3,35,11) = (/ &
+        & 0.10363e+04_rb,0.78613e+03_rb,0.59569e+03_rb,0.87491e+03_rb,0.11549e+04_rb /)
+      kbo(:, 4,35,11) = (/ &
+        & 0.10364e+04_rb,0.78668e+03_rb,0.59487e+03_rb,0.87304e+03_rb,0.11533e+04_rb /)
+      kbo(:, 5,35,11) = (/ &
+        & 0.10370e+04_rb,0.78641e+03_rb,0.59363e+03_rb,0.87159e+03_rb,0.11523e+04_rb /)
+      kbo(:, 1,36,11) = (/ &
+        & 0.10366e+04_rb,0.78595e+03_rb,0.59775e+03_rb,0.87827e+03_rb,0.11583e+04_rb /)
+      kbo(:, 2,36,11) = (/ &
+        & 0.10367e+04_rb,0.78568e+03_rb,0.59676e+03_rb,0.87652e+03_rb,0.11565e+04_rb /)
+      kbo(:, 3,36,11) = (/ &
+        & 0.10363e+04_rb,0.78600e+03_rb,0.59575e+03_rb,0.87487e+03_rb,0.11548e+04_rb /)
+      kbo(:, 4,36,11) = (/ &
+        & 0.10370e+04_rb,0.78596e+03_rb,0.59503e+03_rb,0.87314e+03_rb,0.11533e+04_rb /)
+      kbo(:, 5,36,11) = (/ &
+        & 0.10356e+04_rb,0.78546e+03_rb,0.59359e+03_rb,0.87116e+03_rb,0.11523e+04_rb /)
+      kbo(:, 1,37,11) = (/ &
+        & 0.10367e+04_rb,0.78524e+03_rb,0.59788e+03_rb,0.87847e+03_rb,0.11586e+04_rb /)
+      kbo(:, 2,37,11) = (/ &
+        & 0.10373e+04_rb,0.78580e+03_rb,0.59689e+03_rb,0.87687e+03_rb,0.11567e+04_rb /)
+      kbo(:, 3,37,11) = (/ &
+        & 0.10369e+04_rb,0.78554e+03_rb,0.59588e+03_rb,0.87512e+03_rb,0.11550e+04_rb /)
+      kbo(:, 4,37,11) = (/ &
+        & 0.10372e+04_rb,0.78551e+03_rb,0.59495e+03_rb,0.87335e+03_rb,0.11534e+04_rb /)
+      kbo(:, 5,37,11) = (/ &
+        & 0.10364e+04_rb,0.78631e+03_rb,0.59378e+03_rb,0.87175e+03_rb,0.11524e+04_rb /)
+      kbo(:, 1,38,11) = (/ &
+        & 0.10372e+04_rb,0.78574e+03_rb,0.59801e+03_rb,0.87867e+03_rb,0.11588e+04_rb /)
+      kbo(:, 2,38,11) = (/ &
+        & 0.10364e+04_rb,0.78476e+03_rb,0.59702e+03_rb,0.87710e+03_rb,0.11570e+04_rb /)
+      kbo(:, 3,38,11) = (/ &
+        & 0.10351e+04_rb,0.78521e+03_rb,0.59593e+03_rb,0.87537e+03_rb,0.11553e+04_rb /)
+      kbo(:, 4,38,11) = (/ &
+        & 0.10362e+04_rb,0.78507e+03_rb,0.59507e+03_rb,0.87344e+03_rb,0.11536e+04_rb /)
+      kbo(:, 5,38,11) = (/ &
+        & 0.10371e+04_rb,0.78635e+03_rb,0.59400e+03_rb,0.87197e+03_rb,0.11525e+04_rb /)
+      kbo(:, 1,39,11) = (/ &
+        & 0.10359e+04_rb,0.78601e+03_rb,0.59815e+03_rb,0.87888e+03_rb,0.11591e+04_rb /)
+      kbo(:, 2,39,11) = (/ &
+        & 0.10375e+04_rb,0.78669e+03_rb,0.59716e+03_rb,0.87732e+03_rb,0.11572e+04_rb /)
+      kbo(:, 3,39,11) = (/ &
+        & 0.10350e+04_rb,0.78597e+03_rb,0.59615e+03_rb,0.87562e+03_rb,0.11555e+04_rb /)
+      kbo(:, 4,39,11) = (/ &
+        & 0.10366e+04_rb,0.78524e+03_rb,0.59519e+03_rb,0.87365e+03_rb,0.11538e+04_rb /)
+      kbo(:, 5,39,11) = (/ &
+        & 0.10373e+04_rb,0.78605e+03_rb,0.59422e+03_rb,0.87205e+03_rb,0.11526e+04_rb /)
+      kbo(:, 1,40,11) = (/ &
+        & 0.10361e+04_rb,0.78559e+03_rb,0.59838e+03_rb,0.87949e+03_rb,0.11596e+04_rb /)
+      kbo(:, 2,40,11) = (/ &
+        & 0.10364e+04_rb,0.78533e+03_rb,0.59740e+03_rb,0.87771e+03_rb,0.11576e+04_rb /)
+      kbo(:, 3,40,11) = (/ &
+        & 0.10357e+04_rb,0.78567e+03_rb,0.59640e+03_rb,0.87605e+03_rb,0.11559e+04_rb /)
+      kbo(:, 4,40,11) = (/ &
+        & 0.10354e+04_rb,0.78518e+03_rb,0.59541e+03_rb,0.87434e+03_rb,0.11542e+04_rb /)
+      kbo(:, 5,40,11) = (/ &
+        & 0.10361e+04_rb,0.78553e+03_rb,0.59453e+03_rb,0.87244e+03_rb,0.11529e+04_rb /)
+      kbo(:, 1,41,11) = (/ &
+        & 0.10352e+04_rb,0.78554e+03_rb,0.59863e+03_rb,0.87958e+03_rb,0.11601e+04_rb /)
+      kbo(:, 2,41,11) = (/ &
+        & 0.10361e+04_rb,0.78611e+03_rb,0.59765e+03_rb,0.87811e+03_rb,0.11581e+04_rb /)
+      kbo(:, 3,41,11) = (/ &
+        & 0.10357e+04_rb,0.78586e+03_rb,0.59665e+03_rb,0.87648e+03_rb,0.11564e+04_rb /)
+      kbo(:, 4,41,11) = (/ &
+        & 0.10369e+04_rb,0.78632e+03_rb,0.59556e+03_rb,0.87469e+03_rb,0.11547e+04_rb /)
+      kbo(:, 5,41,11) = (/ &
+        & 0.10372e+04_rb,0.78631e+03_rb,0.59476e+03_rb,0.87298e+03_rb,0.11532e+04_rb /)
+      kbo(:, 1,42,11) = (/ &
+        & 0.10352e+04_rb,0.78620e+03_rb,0.59889e+03_rb,0.87990e+03_rb,0.11605e+04_rb /)
+      kbo(:, 2,42,11) = (/ &
+        & 0.10362e+04_rb,0.78666e+03_rb,0.59790e+03_rb,0.87851e+03_rb,0.11586e+04_rb /)
+      kbo(:, 3,42,11) = (/ &
+        & 0.10358e+04_rb,0.78476e+03_rb,0.59691e+03_rb,0.87691e+03_rb,0.11568e+04_rb /)
+      kbo(:, 4,42,11) = (/ &
+        & 0.10367e+04_rb,0.78534e+03_rb,0.59590e+03_rb,0.87517e+03_rb,0.11551e+04_rb /)
+      kbo(:, 5,42,11) = (/ &
+        & 0.10374e+04_rb,0.78497e+03_rb,0.59497e+03_rb,0.87339e+03_rb,0.11533e+04_rb /)
+      kbo(:, 1,43,11) = (/ &
+        & 0.10357e+04_rb,0.78569e+03_rb,0.59919e+03_rb,0.88014e+03_rb,0.11611e+04_rb /)
+      kbo(:, 2,43,11) = (/ &
+        & 0.10384e+04_rb,0.78603e+03_rb,0.59811e+03_rb,0.87910e+03_rb,0.11592e+04_rb /)
+      kbo(:, 3,43,11) = (/ &
+        & 0.10376e+04_rb,0.78685e+03_rb,0.59731e+03_rb,0.87742e+03_rb,0.11573e+04_rb /)
+      kbo(:, 4,43,11) = (/ &
+        & 0.10368e+04_rb,0.78484e+03_rb,0.59612e+03_rb,0.87573e+03_rb,0.11555e+04_rb /)
+      kbo(:, 5,43,11) = (/ &
+        & 0.10371e+04_rb,0.78612e+03_rb,0.59525e+03_rb,0.87389e+03_rb,0.11539e+04_rb /)
+      kbo(:, 1,44,11) = (/ &
+        & 0.10362e+04_rb,0.78531e+03_rb,0.59952e+03_rb,0.88052e+03_rb,0.11615e+04_rb /)
+      kbo(:, 2,44,11) = (/ &
+        & 0.10357e+04_rb,0.78506e+03_rb,0.59854e+03_rb,0.87945e+03_rb,0.11599e+04_rb /)
+      kbo(:, 3,44,11) = (/ &
+        & 0.10347e+04_rb,0.78494e+03_rb,0.59755e+03_rb,0.87796e+03_rb,0.11576e+04_rb /)
+      kbo(:, 4,44,11) = (/ &
+        & 0.10360e+04_rb,0.78599e+03_rb,0.59655e+03_rb,0.87632e+03_rb,0.11562e+04_rb /)
+      kbo(:, 5,44,11) = (/ &
+        & 0.10364e+04_rb,0.78610e+03_rb,0.59556e+03_rb,0.87451e+03_rb,0.11545e+04_rb /)
+      kbo(:, 1,45,11) = (/ &
+        & 0.10355e+04_rb,0.78552e+03_rb,0.59982e+03_rb,0.88100e+03_rb,0.11621e+04_rb /)
+      kbo(:, 2,45,11) = (/ &
+        & 0.10357e+04_rb,0.78527e+03_rb,0.59887e+03_rb,0.87975e+03_rb,0.11605e+04_rb /)
+      kbo(:, 3,45,11) = (/ &
+        & 0.10358e+04_rb,0.78432e+03_rb,0.59788e+03_rb,0.87848e+03_rb,0.11586e+04_rb /)
+      kbo(:, 4,45,11) = (/ &
+        & 0.10358e+04_rb,0.78597e+03_rb,0.59689e+03_rb,0.87689e+03_rb,0.11568e+04_rb /)
+      kbo(:, 5,45,11) = (/ &
+        & 0.10353e+04_rb,0.78525e+03_rb,0.59589e+03_rb,0.87514e+03_rb,0.11551e+04_rb /)
+      kbo(:, 1,46,11) = (/ &
+        & 0.10358e+04_rb,0.78503e+03_rb,0.60010e+03_rb,0.88136e+03_rb,0.11629e+04_rb /)
+      kbo(:, 2,46,11) = (/ &
+        & 0.10366e+04_rb,0.78667e+03_rb,0.59923e+03_rb,0.88004e+03_rb,0.11611e+04_rb /)
+      kbo(:, 3,46,11) = (/ &
+        & 0.10372e+04_rb,0.78560e+03_rb,0.59824e+03_rb,0.87915e+03_rb,0.11593e+04_rb /)
+      kbo(:, 4,46,11) = (/ &
+        & 0.10348e+04_rb,0.78513e+03_rb,0.59725e+03_rb,0.87748e+03_rb,0.11574e+04_rb /)
+      kbo(:, 5,46,11) = (/ &
+        & 0.10372e+04_rb,0.78595e+03_rb,0.59625e+03_rb,0.87592e+03_rb,0.11557e+04_rb /)
+      kbo(:, 1,47,11) = (/ &
+        & 0.10352e+04_rb,0.78466e+03_rb,0.60059e+03_rb,0.88175e+03_rb,0.11637e+04_rb /)
+      kbo(:, 2,47,11) = (/ &
+        & 0.10362e+04_rb,0.78477e+03_rb,0.59970e+03_rb,0.88075e+03_rb,0.11618e+04_rb /)
+      kbo(:, 3,47,11) = (/ &
+        & 0.10362e+04_rb,0.78559e+03_rb,0.59863e+03_rb,0.87958e+03_rb,0.11601e+04_rb /)
+      kbo(:, 4,47,11) = (/ &
+        & 0.10356e+04_rb,0.78476e+03_rb,0.59765e+03_rb,0.87812e+03_rb,0.11581e+04_rb /)
+      kbo(:, 5,47,11) = (/ &
+        & 0.10361e+04_rb,0.78428e+03_rb,0.59665e+03_rb,0.87649e+03_rb,0.11564e+04_rb /)
+      kbo(:, 1,48,11) = (/ &
+        & 0.10354e+04_rb,0.78500e+03_rb,0.60042e+03_rb,0.88214e+03_rb,0.11645e+04_rb /)
+      kbo(:, 2,48,11) = (/ &
+        & 0.10348e+04_rb,0.78582e+03_rb,0.59995e+03_rb,0.88117e+03_rb,0.11625e+04_rb /)
+      kbo(:, 3,48,11) = (/ &
+        & 0.10353e+04_rb,0.78569e+03_rb,0.59903e+03_rb,0.87942e+03_rb,0.11608e+04_rb /)
+      kbo(:, 4,48,11) = (/ &
+        & 0.10359e+04_rb,0.78569e+03_rb,0.59804e+03_rb,0.87873e+03_rb,0.11589e+04_rb /)
+      kbo(:, 5,48,11) = (/ &
+        & 0.10354e+04_rb,0.78509e+03_rb,0.59705e+03_rb,0.87716e+03_rb,0.11570e+04_rb /)
+      kbo(:, 1,49,11) = (/ &
+        & 0.10362e+04_rb,0.78463e+03_rb,0.60042e+03_rb,0.88242e+03_rb,0.11657e+04_rb /)
+      kbo(:, 2,49,11) = (/ &
+        & 0.10367e+04_rb,0.78580e+03_rb,0.60023e+03_rb,0.88156e+03_rb,0.11633e+04_rb /)
+      kbo(:, 3,49,11) = (/ &
+        & 0.10373e+04_rb,0.78533e+03_rb,0.59942e+03_rb,0.88054e+03_rb,0.11615e+04_rb /)
+      kbo(:, 4,49,11) = (/ &
+        & 0.10373e+04_rb,0.78462e+03_rb,0.59844e+03_rb,0.87918e+03_rb,0.11595e+04_rb /)
+      kbo(:, 5,49,11) = (/ &
+        & 0.10370e+04_rb,0.78532e+03_rb,0.59736e+03_rb,0.87781e+03_rb,0.11578e+04_rb /)
+      kbo(:, 1,50,11) = (/ &
+        & 0.10356e+04_rb,0.78474e+03_rb,0.60056e+03_rb,0.88267e+03_rb,0.11666e+04_rb /)
+      kbo(:, 2,50,11) = (/ &
+        & 0.10370e+04_rb,0.78497e+03_rb,0.60046e+03_rb,0.88192e+03_rb,0.11642e+04_rb /)
+      kbo(:, 3,50,11) = (/ &
+        & 0.10348e+04_rb,0.78508e+03_rb,0.59977e+03_rb,0.88094e+03_rb,0.11634e+04_rb /)
+      kbo(:, 4,50,11) = (/ &
+        & 0.10352e+04_rb,0.78473e+03_rb,0.59881e+03_rb,0.87954e+03_rb,0.11604e+04_rb /)
+      kbo(:, 5,50,11) = (/ &
+        & 0.10360e+04_rb,0.78437e+03_rb,0.59782e+03_rb,0.87840e+03_rb,0.11585e+04_rb /)
+      kbo(:, 1,51,11) = (/ &
+        & 0.10365e+04_rb,0.78532e+03_rb,0.60054e+03_rb,0.88306e+03_rb,0.11674e+04_rb /)
+      kbo(:, 2,51,11) = (/ &
+        & 0.10360e+04_rb,0.78555e+03_rb,0.60046e+03_rb,0.88226e+03_rb,0.11651e+04_rb /)
+      kbo(:, 3,51,11) = (/ &
+        & 0.10359e+04_rb,0.78508e+03_rb,0.60006e+03_rb,0.88131e+03_rb,0.11628e+04_rb /)
+      kbo(:, 4,51,11) = (/ &
+        & 0.10359e+04_rb,0.78554e+03_rb,0.59917e+03_rb,0.88011e+03_rb,0.11610e+04_rb /)
+      kbo(:, 5,51,11) = (/ &
+        & 0.10363e+04_rb,0.78507e+03_rb,0.59818e+03_rb,0.87894e+03_rb,0.11592e+04_rb /)
+      kbo(:, 1,52,11) = (/ &
+        & 0.10357e+04_rb,0.78531e+03_rb,0.60048e+03_rb,0.88333e+03_rb,0.11687e+04_rb /)
+      kbo(:, 2,52,11) = (/ &
+        & 0.10368e+04_rb,0.78554e+03_rb,0.60053e+03_rb,0.88249e+03_rb,0.11660e+04_rb /)
+      kbo(:, 3,52,11) = (/ &
+        & 0.10362e+04_rb,0.78601e+03_rb,0.60037e+03_rb,0.88166e+03_rb,0.11635e+04_rb /)
+      kbo(:, 4,52,11) = (/ &
+        & 0.10354e+04_rb,0.78507e+03_rb,0.59952e+03_rb,0.88066e+03_rb,0.11617e+04_rb /)
+      kbo(:, 5,52,11) = (/ &
+        & 0.10363e+04_rb,0.78565e+03_rb,0.59854e+03_rb,0.87959e+03_rb,0.11599e+04_rb /)
+      kbo(:, 1,53,11) = (/ &
+        & 0.10366e+04_rb,0.78460e+03_rb,0.60030e+03_rb,0.88415e+03_rb,0.11699e+04_rb /)
+      kbo(:, 2,53,11) = (/ &
+        & 0.10366e+04_rb,0.78400e+03_rb,0.60056e+03_rb,0.88262e+03_rb,0.11668e+04_rb /)
+      kbo(:, 3,53,11) = (/ &
+        & 0.10358e+04_rb,0.78459e+03_rb,0.60039e+03_rb,0.88202e+03_rb,0.11644e+04_rb /)
+      kbo(:, 4,53,11) = (/ &
+        & 0.10348e+04_rb,0.78471e+03_rb,0.59985e+03_rb,0.88104e+03_rb,0.11623e+04_rb /)
+      kbo(:, 5,53,11) = (/ &
+        & 0.10366e+04_rb,0.78577e+03_rb,0.59891e+03_rb,0.87992e+03_rb,0.11606e+04_rb /)
+      kbo(:, 1,54,11) = (/ &
+        & 0.10355e+04_rb,0.78471e+03_rb,0.60033e+03_rb,0.88501e+03_rb,0.11708e+04_rb /)
+      kbo(:, 2,54,11) = (/ &
+        & 0.10360e+04_rb,0.78494e+03_rb,0.60053e+03_rb,0.88313e+03_rb,0.11678e+04_rb /)
+      kbo(:, 3,54,11) = (/ &
+        & 0.10360e+04_rb,0.78671e+03_rb,0.60047e+03_rb,0.88230e+03_rb,0.11652e+04_rb /)
+      kbo(:, 4,54,11) = (/ &
+        & 0.10355e+04_rb,0.78588e+03_rb,0.60010e+03_rb,0.88137e+03_rb,0.11629e+04_rb /)
+      kbo(:, 5,54,11) = (/ &
+        & 0.10357e+04_rb,0.78517e+03_rb,0.59924e+03_rb,0.88032e+03_rb,0.11612e+04_rb /)
+      kbo(:, 1,55,11) = (/ &
+        & 0.10357e+04_rb,0.78506e+03_rb,0.60035e+03_rb,0.88567e+03_rb,0.11714e+04_rb /)
+      kbo(:, 2,55,11) = (/ &
+        & 0.10357e+04_rb,0.78518e+03_rb,0.60047e+03_rb,0.88349e+03_rb,0.11688e+04_rb /)
+      kbo(:, 3,55,11) = (/ &
+        & 0.10361e+04_rb,0.78517e+03_rb,0.60053e+03_rb,0.88250e+03_rb,0.11660e+04_rb /)
+      kbo(:, 4,55,11) = (/ &
+        & 0.10357e+04_rb,0.78529e+03_rb,0.60029e+03_rb,0.88168e+03_rb,0.11636e+04_rb /)
+      kbo(:, 5,55,11) = (/ &
+        & 0.10360e+04_rb,0.78529e+03_rb,0.59954e+03_rb,0.88068e+03_rb,0.11617e+04_rb /)
+      kbo(:, 1,56,11) = (/ &
+        & 0.10361e+04_rb,0.78494e+03_rb,0.60049e+03_rb,0.88607e+03_rb,0.11718e+04_rb /)
+      kbo(:, 2,56,11) = (/ &
+        & 0.10360e+04_rb,0.78482e+03_rb,0.60030e+03_rb,0.88410e+03_rb,0.11698e+04_rb /)
+      kbo(:, 3,56,11) = (/ &
+        & 0.10354e+04_rb,0.78493e+03_rb,0.60056e+03_rb,0.88273e+03_rb,0.11667e+04_rb /)
+      kbo(:, 4,56,11) = (/ &
+        & 0.10357e+04_rb,0.78552e+03_rb,0.60038e+03_rb,0.88199e+03_rb,0.11645e+04_rb /)
+      kbo(:, 5,56,11) = (/ &
+        & 0.10357e+04_rb,0.78517e+03_rb,0.59983e+03_rb,0.88101e+03_rb,0.11624e+04_rb /)
+      kbo(:, 1,57,11) = (/ &
+        & 0.10357e+04_rb,0.78588e+03_rb,0.60099e+03_rb,0.88686e+03_rb,0.11725e+04_rb /)
+      kbo(:, 2,57,11) = (/ &
+        & 0.10366e+04_rb,0.78458e+03_rb,0.60033e+03_rb,0.88491e+03_rb,0.11707e+04_rb /)
+      kbo(:, 3,57,11) = (/ &
+        & 0.10366e+04_rb,0.78481e+03_rb,0.60053e+03_rb,0.88335e+03_rb,0.11676e+04_rb /)
+      kbo(:, 4,57,11) = (/ &
+        & 0.10358e+04_rb,0.78611e+03_rb,0.60046e+03_rb,0.88227e+03_rb,0.11650e+04_rb /)
+      kbo(:, 5,57,11) = (/ &
+        & 0.10355e+04_rb,0.78599e+03_rb,0.60008e+03_rb,0.88133e+03_rb,0.11630e+04_rb /)
+      kbo(:, 1,58,11) = (/ &
+        & 0.10363e+04_rb,0.78576e+03_rb,0.60143e+03_rb,0.88764e+03_rb,0.11733e+04_rb /)
+      kbo(:, 2,58,11) = (/ &
+        & 0.10354e+04_rb,0.78611e+03_rb,0.60042e+03_rb,0.88557e+03_rb,0.11713e+04_rb /)
+      kbo(:, 3,58,11) = (/ &
+        & 0.10363e+04_rb,0.78576e+03_rb,0.60048e+03_rb,0.88329e+03_rb,0.11686e+04_rb /)
+      kbo(:, 4,58,11) = (/ &
+        & 0.10364e+04_rb,0.78505e+03_rb,0.60052e+03_rb,0.88247e+03_rb,0.11659e+04_rb /)
+      kbo(:, 5,58,11) = (/ &
+        & 0.10357e+04_rb,0.78552e+03_rb,0.60026e+03_rb,0.88163e+03_rb,0.11633e+04_rb /)
+      kbo(:, 1,59,11) = (/ &
+        & 0.10354e+04_rb,0.78634e+03_rb,0.60176e+03_rb,0.88797e+03_rb,0.11736e+04_rb /)
+      kbo(:, 2,59,11) = (/ &
+        & 0.10350e+04_rb,0.78505e+03_rb,0.60038e+03_rb,0.88577e+03_rb,0.11715e+04_rb /)
+      kbo(:, 3,59,11) = (/ &
+        & 0.10360e+04_rb,0.78469e+03_rb,0.60046e+03_rb,0.88358e+03_rb,0.11703e+04_rb /)
+      kbo(:, 4,59,11) = (/ &
+        & 0.10357e+04_rb,0.78493e+03_rb,0.60045e+03_rb,0.88254e+03_rb,0.11662e+04_rb /)
+      kbo(:, 5,59,11) = (/ &
+        & 0.10366e+04_rb,0.78516e+03_rb,0.60041e+03_rb,0.88174e+03_rb,0.11637e+04_rb /)
+      kbo(:, 1,13,12) = (/ &
+        & 0.11535e+04_rb,0.87955e+03_rb,0.60434e+03_rb,0.88744e+03_rb,0.11710e+04_rb /)
+      kbo(:, 2,13,12) = (/ &
+        & 0.11485e+04_rb,0.86886e+03_rb,0.60369e+03_rb,0.88598e+03_rb,0.11697e+04_rb /)
+      kbo(:, 3,13,12) = (/ &
+        & 0.11395e+04_rb,0.86441e+03_rb,0.60332e+03_rb,0.88477e+03_rb,0.11680e+04_rb /)
+      kbo(:, 4,13,12) = (/ &
+        & 0.11350e+04_rb,0.86216e+03_rb,0.60276e+03_rb,0.88294e+03_rb,0.11659e+04_rb /)
+      kbo(:, 5,13,12) = (/ &
+        & 0.11237e+04_rb,0.85514e+03_rb,0.60186e+03_rb,0.88131e+03_rb,0.11640e+04_rb /)
+      kbo(:, 1,14,12) = (/ &
+        & 0.11312e+04_rb,0.85960e+03_rb,0.60391e+03_rb,0.88683e+03_rb,0.11708e+04_rb /)
+      kbo(:, 2,14,12) = (/ &
+        & 0.11248e+04_rb,0.85192e+03_rb,0.60329e+03_rb,0.88591e+03_rb,0.11696e+04_rb /)
+      kbo(:, 3,14,12) = (/ &
+        & 0.11210e+04_rb,0.84824e+03_rb,0.60297e+03_rb,0.88444e+03_rb,0.11678e+04_rb /)
+      kbo(:, 4,14,12) = (/ &
+        & 0.11139e+04_rb,0.84322e+03_rb,0.60241e+03_rb,0.88264e+03_rb,0.11657e+04_rb /)
+      kbo(:, 5,14,12) = (/ &
+        & 0.11123e+04_rb,0.84158e+03_rb,0.60150e+03_rb,0.88104e+03_rb,0.11639e+04_rb /)
+      kbo(:, 1,15,12) = (/ &
+        & 0.11159e+04_rb,0.84414e+03_rb,0.60344e+03_rb,0.88657e+03_rb,0.11715e+04_rb /)
+      kbo(:, 2,15,12) = (/ &
+        & 0.11106e+04_rb,0.84043e+03_rb,0.60296e+03_rb,0.88568e+03_rb,0.11695e+04_rb /)
+      kbo(:, 3,15,12) = (/ &
+        & 0.11018e+04_rb,0.83588e+03_rb,0.60268e+03_rb,0.88413e+03_rb,0.11676e+04_rb /)
+      kbo(:, 4,15,12) = (/ &
+        & 0.10976e+04_rb,0.83213e+03_rb,0.60210e+03_rb,0.88235e+03_rb,0.11655e+04_rb /)
+      kbo(:, 5,15,12) = (/ &
+        & 0.10965e+04_rb,0.83273e+03_rb,0.60128e+03_rb,0.88077e+03_rb,0.11639e+04_rb /)
+      kbo(:, 1,16,12) = (/ &
+        & 0.11003e+04_rb,0.83414e+03_rb,0.60325e+03_rb,0.88634e+03_rb,0.11705e+04_rb /)
+      kbo(:, 2,16,12) = (/ &
+        & 0.10991e+04_rb,0.82921e+03_rb,0.60259e+03_rb,0.88546e+03_rb,0.11694e+04_rb /)
+      kbo(:, 3,16,12) = (/ &
+        & 0.10955e+04_rb,0.82665e+03_rb,0.60243e+03_rb,0.88384e+03_rb,0.11674e+04_rb /)
+      kbo(:, 4,16,12) = (/ &
+        & 0.10851e+04_rb,0.82401e+03_rb,0.60183e+03_rb,0.88207e+03_rb,0.11653e+04_rb /)
+      kbo(:, 5,16,12) = (/ &
+        & 0.10849e+04_rb,0.82356e+03_rb,0.60085e+03_rb,0.88053e+03_rb,0.11635e+04_rb /)
+      kbo(:, 1,17,12) = (/ &
+        & 0.10876e+04_rb,0.82527e+03_rb,0.60299e+03_rb,0.88614e+03_rb,0.11702e+04_rb /)
+      kbo(:, 2,17,12) = (/ &
+        & 0.10859e+04_rb,0.82135e+03_rb,0.60250e+03_rb,0.88526e+03_rb,0.11692e+04_rb /)
+      kbo(:, 3,17,12) = (/ &
+        & 0.10841e+04_rb,0.81891e+03_rb,0.60222e+03_rb,0.88356e+03_rb,0.11671e+04_rb /)
+      kbo(:, 4,17,12) = (/ &
+        & 0.10784e+04_rb,0.81708e+03_rb,0.60159e+03_rb,0.88183e+03_rb,0.11651e+04_rb /)
+      kbo(:, 5,17,12) = (/ &
+        & 0.10763e+04_rb,0.81350e+03_rb,0.60170e+03_rb,0.88030e+03_rb,0.11634e+04_rb /)
+      kbo(:, 1,18,12) = (/ &
+        & 0.10781e+04_rb,0.81748e+03_rb,0.60276e+03_rb,0.88597e+03_rb,0.11700e+04_rb /)
+      kbo(:, 2,18,12) = (/ &
+        & 0.10771e+04_rb,0.81396e+03_rb,0.60232e+03_rb,0.88573e+03_rb,0.11691e+04_rb /)
+      kbo(:, 3,18,12) = (/ &
+        & 0.10718e+04_rb,0.81415e+03_rb,0.60204e+03_rb,0.88331e+03_rb,0.11669e+04_rb /)
+      kbo(:, 4,18,12) = (/ &
+        & 0.10689e+04_rb,0.81027e+03_rb,0.60137e+03_rb,0.88144e+03_rb,0.11649e+04_rb /)
+      kbo(:, 5,18,12) = (/ &
+        & 0.10691e+04_rb,0.80937e+03_rb,0.60029e+03_rb,0.88009e+03_rb,0.11632e+04_rb /)
+      kbo(:, 1,19,12) = (/ &
+        & 0.10732e+04_rb,0.81093e+03_rb,0.60257e+03_rb,0.88582e+03_rb,0.11702e+04_rb /)
+      kbo(:, 2,19,12) = (/ &
+        & 0.10665e+04_rb,0.81093e+03_rb,0.60218e+03_rb,0.88486e+03_rb,0.11689e+04_rb /)
+      kbo(:, 3,19,12) = (/ &
+        & 0.10668e+04_rb,0.80596e+03_rb,0.60188e+03_rb,0.88291e+03_rb,0.11667e+04_rb /)
+      kbo(:, 4,19,12) = (/ &
+        & 0.10625e+04_rb,0.80871e+03_rb,0.60129e+03_rb,0.88139e+03_rb,0.11647e+04_rb /)
+      kbo(:, 5,19,12) = (/ &
+        & 0.10641e+04_rb,0.80549e+03_rb,0.60005e+03_rb,0.87990e+03_rb,0.11631e+04_rb /)
+      kbo(:, 1,20,12) = (/ &
+        & 0.10655e+04_rb,0.80608e+03_rb,0.60228e+03_rb,0.88568e+03_rb,0.11700e+04_rb /)
+      kbo(:, 2,20,12) = (/ &
+        & 0.10621e+04_rb,0.80582e+03_rb,0.60205e+03_rb,0.88462e+03_rb,0.11686e+04_rb /)
+      kbo(:, 3,20,12) = (/ &
+        & 0.10596e+04_rb,0.80439e+03_rb,0.60161e+03_rb,0.88282e+03_rb,0.11664e+04_rb /)
+      kbo(:, 4,20,12) = (/ &
+        & 0.10569e+04_rb,0.80052e+03_rb,0.60133e+03_rb,0.88084e+03_rb,0.11645e+04_rb /)
+      kbo(:, 5,20,12) = (/ &
+        & 0.10576e+04_rb,0.80029e+03_rb,0.59980e+03_rb,0.87969e+03_rb,0.11629e+04_rb /)
+      kbo(:, 1,21,12) = (/ &
+        & 0.10601e+04_rb,0.80047e+03_rb,0.60235e+03_rb,0.88539e+03_rb,0.11699e+04_rb /)
+      kbo(:, 2,21,12) = (/ &
+        & 0.10553e+04_rb,0.80126e+03_rb,0.60195e+03_rb,0.88437e+03_rb,0.11684e+04_rb /)
+      kbo(:, 3,21,12) = (/ &
+        & 0.10581e+04_rb,0.79916e+03_rb,0.60159e+03_rb,0.88257e+03_rb,0.11662e+04_rb /)
+      kbo(:, 4,21,12) = (/ &
+        & 0.10523e+04_rb,0.79871e+03_rb,0.60090e+03_rb,0.88096e+03_rb,0.11643e+04_rb /)
+      kbo(:, 5,21,12) = (/ &
+        & 0.10536e+04_rb,0.79852e+03_rb,0.59957e+03_rb,0.87950e+03_rb,0.11627e+04_rb /)
+      kbo(:, 1,22,12) = (/ &
+        & 0.10543e+04_rb,0.79995e+03_rb,0.60207e+03_rb,0.88538e+03_rb,0.11697e+04_rb /)
+      kbo(:, 2,22,12) = (/ &
+        & 0.10531e+04_rb,0.79794e+03_rb,0.60195e+03_rb,0.88401e+03_rb,0.11680e+04_rb /)
+      kbo(:, 3,22,12) = (/ &
+        & 0.10510e+04_rb,0.79590e+03_rb,0.60141e+03_rb,0.88205e+03_rb,0.11658e+04_rb /)
+      kbo(:, 4,22,12) = (/ &
+        & 0.10516e+04_rb,0.79518e+03_rb,0.60121e+03_rb,0.88065e+03_rb,0.11640e+04_rb /)
+      kbo(:, 5,22,12) = (/ &
+        & 0.10507e+04_rb,0.79514e+03_rb,0.59925e+03_rb,0.87922e+03_rb,0.11625e+04_rb /)
+      kbo(:, 1,23,12) = (/ &
+        & 0.10496e+04_rb,0.79686e+03_rb,0.60138e+03_rb,0.88518e+03_rb,0.11695e+04_rb /)
+      kbo(:, 2,23,12) = (/ &
+        & 0.10500e+04_rb,0.79504e+03_rb,0.60174e+03_rb,0.88363e+03_rb,0.11675e+04_rb /)
+      kbo(:, 3,23,12) = (/ &
+        & 0.10497e+04_rb,0.79559e+03_rb,0.60122e+03_rb,0.88187e+03_rb,0.11654e+04_rb /)
+      kbo(:, 4,23,12) = (/ &
+        & 0.10478e+04_rb,0.79456e+03_rb,0.60013e+03_rb,0.88034e+03_rb,0.11637e+04_rb /)
+      kbo(:, 5,23,12) = (/ &
+        & 0.10481e+04_rb,0.79269e+03_rb,0.59893e+03_rb,0.87894e+03_rb,0.11623e+04_rb /)
+      kbo(:, 1,24,12) = (/ &
+        & 0.10504e+04_rb,0.79322e+03_rb,0.60186e+03_rb,0.88494e+03_rb,0.11692e+04_rb /)
+      kbo(:, 2,24,12) = (/ &
+        & 0.10474e+04_rb,0.79292e+03_rb,0.60174e+03_rb,0.88325e+03_rb,0.11671e+04_rb /)
+      kbo(:, 3,24,12) = (/ &
+        & 0.10457e+04_rb,0.79315e+03_rb,0.60103e+03_rb,0.88153e+03_rb,0.11648e+04_rb /)
+      kbo(:, 4,24,12) = (/ &
+        & 0.10462e+04_rb,0.79329e+03_rb,0.59996e+03_rb,0.88003e+03_rb,0.11633e+04_rb /)
+      kbo(:, 5,24,12) = (/ &
+        & 0.10477e+04_rb,0.79348e+03_rb,0.59860e+03_rb,0.87867e+03_rb,0.11620e+04_rb /)
+      kbo(:, 1,25,12) = (/ &
+        & 0.10437e+04_rb,0.79315e+03_rb,0.60179e+03_rb,0.88497e+03_rb,0.11688e+04_rb /)
+      kbo(:, 2,25,12) = (/ &
+        & 0.10446e+04_rb,0.79177e+03_rb,0.60151e+03_rb,0.88285e+03_rb,0.11666e+04_rb /)
+      kbo(:, 3,25,12) = (/ &
+        & 0.10443e+04_rb,0.79105e+03_rb,0.60081e+03_rb,0.88119e+03_rb,0.11647e+04_rb /)
+      kbo(:, 4,25,12) = (/ &
+        & 0.10440e+04_rb,0.79204e+03_rb,0.59965e+03_rb,0.87971e+03_rb,0.11630e+04_rb /)
+      kbo(:, 5,25,12) = (/ &
+        & 0.10441e+04_rb,0.79141e+03_rb,0.59825e+03_rb,0.87840e+03_rb,0.11618e+04_rb /)
+      kbo(:, 1,26,12) = (/ &
+        & 0.10444e+04_rb,0.79040e+03_rb,0.60171e+03_rb,0.88422e+03_rb,0.11681e+04_rb /)
+      kbo(:, 2,26,12) = (/ &
+        & 0.10415e+04_rb,0.78987e+03_rb,0.60136e+03_rb,0.88243e+03_rb,0.11661e+04_rb /)
+      kbo(:, 3,26,12) = (/ &
+        & 0.10417e+04_rb,0.79014e+03_rb,0.60043e+03_rb,0.88082e+03_rb,0.11642e+04_rb /)
+      kbo(:, 4,26,12) = (/ &
+        & 0.10442e+04_rb,0.78985e+03_rb,0.59932e+03_rb,0.87937e+03_rb,0.11625e+04_rb /)
+      kbo(:, 5,26,12) = (/ &
+        & 0.10421e+04_rb,0.79004e+03_rb,0.59787e+03_rb,0.87814e+03_rb,0.11615e+04_rb /)
+      kbo(:, 1,27,12) = (/ &
+        & 0.10431e+04_rb,0.78868e+03_rb,0.60163e+03_rb,0.88378e+03_rb,0.11678e+04_rb /)
+      kbo(:, 2,27,12) = (/ &
+        & 0.10423e+04_rb,0.79138e+03_rb,0.60118e+03_rb,0.88201e+03_rb,0.11657e+04_rb /)
+      kbo(:, 3,27,12) = (/ &
+        & 0.10404e+04_rb,0.78916e+03_rb,0.60037e+03_rb,0.88046e+03_rb,0.11638e+04_rb /)
+      kbo(:, 4,27,12) = (/ &
+        & 0.10405e+04_rb,0.78893e+03_rb,0.59897e+03_rb,0.87905e+03_rb,0.11624e+04_rb /)
+      kbo(:, 5,27,12) = (/ &
+        & 0.10396e+04_rb,0.78917e+03_rb,0.59748e+03_rb,0.87790e+03_rb,0.11613e+04_rb /)
+      kbo(:, 1,28,12) = (/ &
+        & 0.10409e+04_rb,0.79152e+03_rb,0.60155e+03_rb,0.88334e+03_rb,0.11673e+04_rb /)
+      kbo(:, 2,28,12) = (/ &
+        & 0.10439e+04_rb,0.78963e+03_rb,0.60099e+03_rb,0.88127e+03_rb,0.11652e+04_rb /)
+      kbo(:, 3,28,12) = (/ &
+        & 0.10423e+04_rb,0.78823e+03_rb,0.60006e+03_rb,0.88010e+03_rb,0.11635e+04_rb /)
+      kbo(:, 4,28,12) = (/ &
+        & 0.10442e+04_rb,0.78834e+03_rb,0.59861e+03_rb,0.87873e+03_rb,0.11621e+04_rb /)
+      kbo(:, 5,28,12) = (/ &
+        & 0.10392e+04_rb,0.79042e+03_rb,0.59708e+03_rb,0.87768e+03_rb,0.11610e+04_rb /)
+      kbo(:, 1,29,12) = (/ &
+        & 0.10405e+04_rb,0.79019e+03_rb,0.60167e+03_rb,0.88289e+03_rb,0.11667e+04_rb /)
+      kbo(:, 2,29,12) = (/ &
+        & 0.10432e+04_rb,0.78865e+03_rb,0.60111e+03_rb,0.88122e+03_rb,0.11647e+04_rb /)
+      kbo(:, 3,29,12) = (/ &
+        & 0.10406e+04_rb,0.78834e+03_rb,0.59962e+03_rb,0.87974e+03_rb,0.11631e+04_rb /)
+      kbo(:, 4,29,12) = (/ &
+        & 0.10397e+04_rb,0.78909e+03_rb,0.59824e+03_rb,0.87826e+03_rb,0.11618e+04_rb /)
+      kbo(:, 5,29,12) = (/ &
+        & 0.10387e+04_rb,0.78925e+03_rb,0.59665e+03_rb,0.87746e+03_rb,0.11608e+04_rb /)
+      kbo(:, 1,30,12) = (/ &
+        & 0.10411e+04_rb,0.78840e+03_rb,0.60130e+03_rb,0.88244e+03_rb,0.11662e+04_rb /)
+      kbo(:, 2,30,12) = (/ &
+        & 0.10395e+04_rb,0.79020e+03_rb,0.60051e+03_rb,0.88083e+03_rb,0.11643e+04_rb /)
+      kbo(:, 3,30,12) = (/ &
+        & 0.10384e+04_rb,0.78543e+03_rb,0.59928e+03_rb,0.87938e+03_rb,0.11627e+04_rb /)
+      kbo(:, 4,30,12) = (/ &
+        & 0.10394e+04_rb,0.78756e+03_rb,0.59785e+03_rb,0.87814e+03_rb,0.11615e+04_rb /)
+      kbo(:, 5,30,12) = (/ &
+        & 0.10383e+04_rb,0.78820e+03_rb,0.59620e+03_rb,0.87743e+03_rb,0.11605e+04_rb /)
+      kbo(:, 1,31,12) = (/ &
+        & 0.10385e+04_rb,0.78703e+03_rb,0.60113e+03_rb,0.88199e+03_rb,0.11657e+04_rb /)
+      kbo(:, 2,31,12) = (/ &
+        & 0.10401e+04_rb,0.79050e+03_rb,0.60021e+03_rb,0.88045e+03_rb,0.11639e+04_rb /)
+      kbo(:, 3,31,12) = (/ &
+        & 0.10412e+04_rb,0.78681e+03_rb,0.59892e+03_rb,0.87903e+03_rb,0.11624e+04_rb /)
+      kbo(:, 4,31,12) = (/ &
+        & 0.10385e+04_rb,0.78582e+03_rb,0.59732e+03_rb,0.87772e+03_rb,0.11613e+04_rb /)
+      kbo(:, 5,31,12) = (/ &
+        & 0.10372e+04_rb,0.78947e+03_rb,0.59573e+03_rb,0.87705e+03_rb,0.11602e+04_rb /)
+      kbo(:, 1,32,12) = (/ &
+        & 0.10378e+04_rb,0.78710e+03_rb,0.60105e+03_rb,0.88140e+03_rb,0.11652e+04_rb /)
+      kbo(:, 2,32,12) = (/ &
+        & 0.10375e+04_rb,0.78506e+03_rb,0.59989e+03_rb,0.88006e+03_rb,0.11634e+04_rb /)
+      kbo(:, 3,32,12) = (/ &
+        & 0.10409e+04_rb,0.78648e+03_rb,0.59855e+03_rb,0.87869e+03_rb,0.11621e+04_rb /)
+      kbo(:, 4,32,12) = (/ &
+        & 0.10389e+04_rb,0.78640e+03_rb,0.59701e+03_rb,0.87765e+03_rb,0.11610e+04_rb /)
+      kbo(:, 5,32,12) = (/ &
+        & 0.10378e+04_rb,0.78589e+03_rb,0.59527e+03_rb,0.87675e+03_rb,0.11598e+04_rb /)
+      kbo(:, 1,33,12) = (/ &
+        & 0.10380e+04_rb,0.78620e+03_rb,0.60093e+03_rb,0.88116e+03_rb,0.11647e+04_rb /)
+      kbo(:, 2,33,12) = (/ &
+        & 0.10383e+04_rb,0.78582e+03_rb,0.59966e+03_rb,0.87968e+03_rb,0.11631e+04_rb /)
+      kbo(:, 3,33,12) = (/ &
+        & 0.10388e+04_rb,0.78740e+03_rb,0.59816e+03_rb,0.87838e+03_rb,0.11618e+04_rb /)
+      kbo(:, 4,33,12) = (/ &
+        & 0.10367e+04_rb,0.78734e+03_rb,0.59657e+03_rb,0.87743e+03_rb,0.11608e+04_rb /)
+      kbo(:, 5,33,12) = (/ &
+        & 0.10382e+04_rb,0.78803e+03_rb,0.59484e+03_rb,0.87630e+03_rb,0.11592e+04_rb /)
+      kbo(:, 1,34,12) = (/ &
+        & 0.10390e+04_rb,0.78774e+03_rb,0.60058e+03_rb,0.88098e+03_rb,0.11643e+04_rb /)
+      kbo(:, 2,34,12) = (/ &
+        & 0.10374e+04_rb,0.78664e+03_rb,0.59936e+03_rb,0.87936e+03_rb,0.11627e+04_rb /)
+      kbo(:, 3,34,12) = (/ &
+        & 0.10352e+04_rb,0.78733e+03_rb,0.59781e+03_rb,0.87813e+03_rb,0.11615e+04_rb /)
+      kbo(:, 4,34,12) = (/ &
+        & 0.10386e+04_rb,0.78609e+03_rb,0.59617e+03_rb,0.87742e+03_rb,0.11605e+04_rb /)
+      kbo(:, 5,34,12) = (/ &
+        & 0.10400e+04_rb,0.78709e+03_rb,0.59476e+03_rb,0.87581e+03_rb,0.11592e+04_rb /)
+      kbo(:, 1,35,12) = (/ &
+        & 0.10374e+04_rb,0.78486e+03_rb,0.60032e+03_rb,0.88061e+03_rb,0.11641e+04_rb /)
+      kbo(:, 2,35,12) = (/ &
+        & 0.10385e+04_rb,0.78482e+03_rb,0.59906e+03_rb,0.87918e+03_rb,0.11626e+04_rb /)
+      kbo(:, 3,35,12) = (/ &
+        & 0.10371e+04_rb,0.78627e+03_rb,0.59760e+03_rb,0.87799e+03_rb,0.11614e+04_rb /)
+      kbo(:, 4,35,12) = (/ &
+        & 0.10378e+04_rb,0.78697e+03_rb,0.59593e+03_rb,0.87715e+03_rb,0.11604e+04_rb /)
+      kbo(:, 5,35,12) = (/ &
+        & 0.10370e+04_rb,0.78545e+03_rb,0.59500e+03_rb,0.87549e+03_rb,0.11592e+04_rb /)
+      kbo(:, 1,36,12) = (/ &
+        & 0.10362e+04_rb,0.78845e+03_rb,0.60029e+03_rb,0.88058e+03_rb,0.11640e+04_rb /)
+      kbo(:, 2,36,12) = (/ &
+        & 0.10379e+04_rb,0.78676e+03_rb,0.59903e+03_rb,0.87915e+03_rb,0.11625e+04_rb /)
+      kbo(:, 3,36,12) = (/ &
+        & 0.10369e+04_rb,0.78598e+03_rb,0.59768e+03_rb,0.87797e+03_rb,0.11614e+04_rb /)
+      kbo(:, 4,36,12) = (/ &
+        & 0.10369e+04_rb,0.78595e+03_rb,0.59566e+03_rb,0.87713e+03_rb,0.11604e+04_rb /)
+      kbo(:, 5,36,12) = (/ &
+        & 0.10368e+04_rb,0.78548e+03_rb,0.59464e+03_rb,0.87594e+03_rb,0.11600e+04_rb /)
+      kbo(:, 1,37,12) = (/ &
+        & 0.10374e+04_rb,0.78579e+03_rb,0.60055e+03_rb,0.88077e+03_rb,0.11642e+04_rb /)
+      kbo(:, 2,37,12) = (/ &
+        & 0.10362e+04_rb,0.78844e+03_rb,0.59921e+03_rb,0.87933e+03_rb,0.11627e+04_rb /)
+      kbo(:, 3,37,12) = (/ &
+        & 0.10360e+04_rb,0.78603e+03_rb,0.59777e+03_rb,0.87810e+03_rb,0.11615e+04_rb /)
+      kbo(:, 4,37,12) = (/ &
+        & 0.10367e+04_rb,0.78734e+03_rb,0.59623e+03_rb,0.87723e+03_rb,0.11605e+04_rb /)
+      kbo(:, 5,37,12) = (/ &
+        & 0.10361e+04_rb,0.78702e+03_rb,0.59474e+03_rb,0.87592e+03_rb,0.11587e+04_rb /)
+      kbo(:, 1,38,12) = (/ &
+        & 0.10367e+04_rb,0.78778e+03_rb,0.60058e+03_rb,0.88098e+03_rb,0.11645e+04_rb /)
+      kbo(:, 2,38,12) = (/ &
+        & 0.10387e+04_rb,0.78865e+03_rb,0.59939e+03_rb,0.87952e+03_rb,0.11629e+04_rb /)
+      kbo(:, 3,38,12) = (/ &
+        & 0.10363e+04_rb,0.78758e+03_rb,0.59820e+03_rb,0.87825e+03_rb,0.11617e+04_rb /)
+      kbo(:, 4,38,12) = (/ &
+        & 0.10372e+04_rb,0.78786e+03_rb,0.59636e+03_rb,0.87717e+03_rb,0.11609e+04_rb /)
+      kbo(:, 5,38,12) = (/ &
+        & 0.10362e+04_rb,0.78470e+03_rb,0.59485e+03_rb,0.87657e+03_rb,0.11589e+04_rb /)
+      kbo(:, 1,39,12) = (/ &
+        & 0.10374e+04_rb,0.78680e+03_rb,0.60094e+03_rb,0.88119e+03_rb,0.11647e+04_rb /)
+      kbo(:, 2,39,12) = (/ &
+        & 0.10352e+04_rb,0.78618e+03_rb,0.60014e+03_rb,0.87971e+03_rb,0.11631e+04_rb /)
+      kbo(:, 3,39,12) = (/ &
+        & 0.10401e+04_rb,0.78497e+03_rb,0.59818e+03_rb,0.87840e+03_rb,0.11618e+04_rb /)
+      kbo(:, 4,39,12) = (/ &
+        & 0.10369e+04_rb,0.78868e+03_rb,0.59660e+03_rb,0.87744e+03_rb,0.11608e+04_rb /)
+      kbo(:, 5,39,12) = (/ &
+        & 0.10353e+04_rb,0.78494e+03_rb,0.59497e+03_rb,0.87635e+03_rb,0.11593e+04_rb /)
+      kbo(:, 1,40,12) = (/ &
+        & 0.10385e+04_rb,0.78584e+03_rb,0.60091e+03_rb,0.88123e+03_rb,0.11652e+04_rb /)
+      kbo(:, 2,40,12) = (/ &
+        & 0.10387e+04_rb,0.78568e+03_rb,0.59987e+03_rb,0.88006e+03_rb,0.11635e+04_rb /)
+      kbo(:, 3,40,12) = (/ &
+        & 0.10371e+04_rb,0.78626e+03_rb,0.59853e+03_rb,0.87869e+03_rb,0.11621e+04_rb /)
+      kbo(:, 4,40,12) = (/ &
+        & 0.10386e+04_rb,0.78684e+03_rb,0.59700e+03_rb,0.87748e+03_rb,0.11610e+04_rb /)
+      kbo(:, 5,40,12) = (/ &
+        & 0.10362e+04_rb,0.78503e+03_rb,0.59526e+03_rb,0.87692e+03_rb,0.11598e+04_rb /)
+      kbo(:, 1,41,12) = (/ &
+        & 0.10384e+04_rb,0.78504e+03_rb,0.60109e+03_rb,0.88198e+03_rb,0.11657e+04_rb /)
+      kbo(:, 2,41,12) = (/ &
+        & 0.10360e+04_rb,0.78533e+03_rb,0.60017e+03_rb,0.88043e+03_rb,0.11639e+04_rb /)
+      kbo(:, 3,41,12) = (/ &
+        & 0.10374e+04_rb,0.78412e+03_rb,0.59889e+03_rb,0.87902e+03_rb,0.11624e+04_rb /)
+      kbo(:, 4,41,12) = (/ &
+        & 0.10350e+04_rb,0.78545e+03_rb,0.59741e+03_rb,0.87788e+03_rb,0.11613e+04_rb /)
+      kbo(:, 5,41,12) = (/ &
+        & 0.10385e+04_rb,0.78529e+03_rb,0.59570e+03_rb,0.87704e+03_rb,0.11607e+04_rb /)
+      kbo(:, 1,42,12) = (/ &
+        & 0.10370e+04_rb,0.78560e+03_rb,0.60125e+03_rb,0.88242e+03_rb,0.11662e+04_rb /)
+      kbo(:, 2,42,12) = (/ &
+        & 0.10383e+04_rb,0.78469e+03_rb,0.60057e+03_rb,0.88081e+03_rb,0.11643e+04_rb /)
+      kbo(:, 3,42,12) = (/ &
+        & 0.10368e+04_rb,0.78617e+03_rb,0.59924e+03_rb,0.87937e+03_rb,0.11627e+04_rb /)
+      kbo(:, 4,42,12) = (/ &
+        & 0.10362e+04_rb,0.78586e+03_rb,0.59780e+03_rb,0.87813e+03_rb,0.11615e+04_rb /)
+      kbo(:, 5,42,12) = (/ &
+        & 0.10350e+04_rb,0.78958e+03_rb,0.59616e+03_rb,0.87725e+03_rb,0.11605e+04_rb /)
+      kbo(:, 1,43,12) = (/ &
+        & 0.10375e+04_rb,0.78586e+03_rb,0.60140e+03_rb,0.88280e+03_rb,0.11669e+04_rb /)
+      kbo(:, 2,43,12) = (/ &
+        & 0.10344e+04_rb,0.78615e+03_rb,0.60088e+03_rb,0.88112e+03_rb,0.11651e+04_rb /)
+      kbo(:, 3,43,12) = (/ &
+        & 0.10344e+04_rb,0.78345e+03_rb,0.59953e+03_rb,0.87980e+03_rb,0.11632e+04_rb /)
+      kbo(:, 4,43,12) = (/ &
+        & 0.10347e+04_rb,0.78777e+03_rb,0.59827e+03_rb,0.87847e+03_rb,0.11619e+04_rb /)
+      kbo(:, 5,43,12) = (/ &
+        & 0.10355e+04_rb,0.78627e+03_rb,0.59681e+03_rb,0.87766e+03_rb,0.11609e+04_rb /)
+      kbo(:, 1,44,12) = (/ &
+        & 0.10355e+04_rb,0.78449e+03_rb,0.60162e+03_rb,0.88358e+03_rb,0.11676e+04_rb /)
+      kbo(:, 2,44,12) = (/ &
+        & 0.10359e+04_rb,0.78627e+03_rb,0.60103e+03_rb,0.88182e+03_rb,0.11655e+04_rb /)
+      kbo(:, 3,44,12) = (/ &
+        & 0.10377e+04_rb,0.78715e+03_rb,0.60005e+03_rb,0.88029e+03_rb,0.11637e+04_rb /)
+      kbo(:, 4,44,12) = (/ &
+        & 0.10378e+04_rb,0.78625e+03_rb,0.59875e+03_rb,0.87890e+03_rb,0.11623e+04_rb /)
+      kbo(:, 5,44,12) = (/ &
+        & 0.10374e+04_rb,0.78401e+03_rb,0.59725e+03_rb,0.87779e+03_rb,0.11612e+04_rb /)
+      kbo(:, 1,45,12) = (/ &
+        & 0.10390e+04_rb,0.78655e+03_rb,0.60158e+03_rb,0.88419e+03_rb,0.11684e+04_rb /)
+      kbo(:, 2,45,12) = (/ &
+        & 0.10396e+04_rb,0.78684e+03_rb,0.60124e+03_rb,0.88239e+03_rb,0.11662e+04_rb /)
+      kbo(:, 3,45,12) = (/ &
+        & 0.10355e+04_rb,0.78758e+03_rb,0.60044e+03_rb,0.88079e+03_rb,0.11643e+04_rb /)
+      kbo(:, 4,45,12) = (/ &
+        & 0.10368e+04_rb,0.78548e+03_rb,0.59922e+03_rb,0.87935e+03_rb,0.11627e+04_rb /)
+      kbo(:, 5,45,12) = (/ &
+        & 0.10360e+04_rb,0.78578e+03_rb,0.59778e+03_rb,0.87811e+03_rb,0.11615e+04_rb /)
+      kbo(:, 1,46,12) = (/ &
+        & 0.10390e+04_rb,0.78534e+03_rb,0.60165e+03_rb,0.88476e+03_rb,0.11691e+04_rb /)
+      kbo(:, 2,46,12) = (/ &
+        & 0.10368e+04_rb,0.78339e+03_rb,0.60141e+03_rb,0.88303e+03_rb,0.11669e+04_rb /)
+      kbo(:, 3,46,12) = (/ &
+        & 0.10364e+04_rb,0.78696e+03_rb,0.60079e+03_rb,0.88117e+03_rb,0.11649e+04_rb /)
+      kbo(:, 4,46,12) = (/ &
+        & 0.10407e+04_rb,0.78666e+03_rb,0.59968e+03_rb,0.87985e+03_rb,0.11632e+04_rb /)
+      kbo(:, 5,46,12) = (/ &
+        & 0.10344e+04_rb,0.78501e+03_rb,0.59832e+03_rb,0.87835e+03_rb,0.11619e+04_rb /)
+      kbo(:, 1,47,12) = (/ &
+        & 0.10372e+04_rb,0.78547e+03_rb,0.60140e+03_rb,0.88518e+03_rb,0.11696e+04_rb /)
+      kbo(:, 2,47,12) = (/ &
+        & 0.10368e+04_rb,0.78740e+03_rb,0.60142e+03_rb,0.88376e+03_rb,0.11678e+04_rb /)
+      kbo(:, 3,47,12) = (/ &
+        & 0.10360e+04_rb,0.78411e+03_rb,0.60109e+03_rb,0.88198e+03_rb,0.11657e+04_rb /)
+      kbo(:, 4,47,12) = (/ &
+        & 0.10358e+04_rb,0.78709e+03_rb,0.60017e+03_rb,0.88044e+03_rb,0.11639e+04_rb /)
+      kbo(:, 5,47,12) = (/ &
+        & 0.10354e+04_rb,0.78664e+03_rb,0.59889e+03_rb,0.87902e+03_rb,0.11624e+04_rb /)
+      kbo(:, 1,48,12) = (/ &
+        & 0.10362e+04_rb,0.78680e+03_rb,0.60195e+03_rb,0.88548e+03_rb,0.11701e+04_rb /)
+      kbo(:, 2,48,12) = (/ &
+        & 0.10362e+04_rb,0.78545e+03_rb,0.60161e+03_rb,0.88447e+03_rb,0.11687e+04_rb /)
+      kbo(:, 3,48,12) = (/ &
+        & 0.10378e+04_rb,0.78604e+03_rb,0.60144e+03_rb,0.88268e+03_rb,0.11665e+04_rb /)
+      kbo(:, 4,48,12) = (/ &
+        & 0.10382e+04_rb,0.78544e+03_rb,0.60061e+03_rb,0.88104e+03_rb,0.11646e+04_rb /)
+      kbo(:, 5,48,12) = (/ &
+        & 0.10364e+04_rb,0.78424e+03_rb,0.59943e+03_rb,0.87957e+03_rb,0.11630e+04_rb /)
+      kbo(:, 1,49,12) = (/ &
+        & 0.10370e+04_rb,0.78693e+03_rb,0.60225e+03_rb,0.88600e+03_rb,0.11705e+04_rb /)
+      kbo(:, 2,49,12) = (/ &
+        & 0.10356e+04_rb,0.78469e+03_rb,0.60169e+03_rb,0.88499e+03_rb,0.11694e+04_rb /)
+      kbo(:, 3,49,12) = (/ &
+        & 0.10350e+04_rb,0.78588e+03_rb,0.60148e+03_rb,0.88340e+03_rb,0.11674e+04_rb /)
+      kbo(:, 4,49,12) = (/ &
+        & 0.10352e+04_rb,0.78677e+03_rb,0.60095e+03_rb,0.88166e+03_rb,0.11653e+04_rb /)
+      kbo(:, 5,49,12) = (/ &
+        & 0.10356e+04_rb,0.78647e+03_rb,0.59993e+03_rb,0.88015e+03_rb,0.11636e+04_rb /)
+      kbo(:, 1,50,12) = (/ &
+        & 0.10356e+04_rb,0.78558e+03_rb,0.60226e+03_rb,0.88620e+03_rb,0.11712e+04_rb /)
+      kbo(:, 2,50,12) = (/ &
+        & 0.10346e+04_rb,0.78796e+03_rb,0.60171e+03_rb,0.88533e+03_rb,0.11698e+04_rb /)
+      kbo(:, 3,50,12) = (/ &
+        & 0.10366e+04_rb,0.78751e+03_rb,0.60168e+03_rb,0.88408e+03_rb,0.11667e+04_rb /)
+      kbo(:, 4,50,12) = (/ &
+        & 0.10366e+04_rb,0.78646e+03_rb,0.60132e+03_rb,0.88229e+03_rb,0.11661e+04_rb /)
+      kbo(:, 5,50,12) = (/ &
+        & 0.10393e+04_rb,0.78616e+03_rb,0.60083e+03_rb,0.88070e+03_rb,0.11642e+04_rb /)
+      kbo(:, 1,51,12) = (/ &
+        & 0.10356e+04_rb,0.78468e+03_rb,0.60241e+03_rb,0.88644e+03_rb,0.11719e+04_rb /)
+      kbo(:, 2,51,12) = (/ &
+        & 0.10368e+04_rb,0.78423e+03_rb,0.60203e+03_rb,0.88559e+03_rb,0.11702e+04_rb /)
+      kbo(:, 3,51,12) = (/ &
+        & 0.10356e+04_rb,0.78586e+03_rb,0.60163e+03_rb,0.88469e+03_rb,0.11690e+04_rb /)
+      kbo(:, 4,51,12) = (/ &
+        & 0.10358e+04_rb,0.78601e+03_rb,0.60139e+03_rb,0.88294e+03_rb,0.11668e+04_rb /)
+      kbo(:, 5,51,12) = (/ &
+        & 0.10379e+04_rb,0.78646e+03_rb,0.60074e+03_rb,0.88126e+03_rb,0.11648e+04_rb /)
+      kbo(:, 1,52,12) = (/ &
+        & 0.10383e+04_rb,0.78512e+03_rb,0.60257e+03_rb,0.88672e+03_rb,0.11727e+04_rb /)
+      kbo(:, 2,52,12) = (/ &
+        & 0.10350e+04_rb,0.78646e+03_rb,0.60217e+03_rb,0.88594e+03_rb,0.11707e+04_rb /)
+      kbo(:, 3,52,12) = (/ &
+        & 0.10358e+04_rb,0.78466e+03_rb,0.60160e+03_rb,0.88510e+03_rb,0.11695e+04_rb /)
+      kbo(:, 4,52,12) = (/ &
+        & 0.10356e+04_rb,0.78511e+03_rb,0.60151e+03_rb,0.88359e+03_rb,0.11676e+04_rb /)
+      kbo(:, 5,52,12) = (/ &
+        & 0.10365e+04_rb,0.78541e+03_rb,0.60103e+03_rb,0.88167e+03_rb,0.11655e+04_rb /)
+      kbo(:, 1,53,12) = (/ &
+        & 0.10352e+04_rb,0.78496e+03_rb,0.60273e+03_rb,0.88710e+03_rb,0.11735e+04_rb /)
+      kbo(:, 2,53,12) = (/ &
+        & 0.10359e+04_rb,0.78600e+03_rb,0.60229e+03_rb,0.88628e+03_rb,0.11714e+04_rb /)
+      kbo(:, 3,53,12) = (/ &
+        & 0.10369e+04_rb,0.78526e+03_rb,0.60188e+03_rb,0.88540e+03_rb,0.11699e+04_rb /)
+      kbo(:, 4,53,12) = (/ &
+        & 0.10383e+04_rb,0.78660e+03_rb,0.60159e+03_rb,0.88425e+03_rb,0.11685e+04_rb /)
+      kbo(:, 5,53,12) = (/ &
+        & 0.10373e+04_rb,0.78555e+03_rb,0.60126e+03_rb,0.88246e+03_rb,0.11663e+04_rb /)
+      kbo(:, 1,54,12) = (/ &
+        & 0.10367e+04_rb,0.78451e+03_rb,0.60297e+03_rb,0.88752e+03_rb,0.11746e+04_rb /)
+      kbo(:, 2,54,12) = (/ &
+        & 0.10355e+04_rb,0.78600e+03_rb,0.60244e+03_rb,0.88648e+03_rb,0.11721e+04_rb /)
+      kbo(:, 3,54,12) = (/ &
+        & 0.10348e+04_rb,0.78301e+03_rb,0.60206e+03_rb,0.88564e+03_rb,0.11703e+04_rb /)
+      kbo(:, 4,54,12) = (/ &
+        & 0.10395e+04_rb,0.78629e+03_rb,0.60165e+03_rb,0.88477e+03_rb,0.11691e+04_rb /)
+      kbo(:, 5,54,12) = (/ &
+        & 0.10361e+04_rb,0.78420e+03_rb,0.60141e+03_rb,0.88305e+03_rb,0.11670e+04_rb /)
+      kbo(:, 1,55,12) = (/ &
+        & 0.10361e+04_rb,0.78555e+03_rb,0.60296e+03_rb,0.88822e+03_rb,0.11760e+04_rb /)
+      kbo(:, 2,55,12) = (/ &
+        & 0.10355e+04_rb,0.78495e+03_rb,0.60258e+03_rb,0.88674e+03_rb,0.11727e+04_rb /)
+      kbo(:, 3,55,12) = (/ &
+        & 0.10349e+04_rb,0.78525e+03_rb,0.60217e+03_rb,0.88596e+03_rb,0.11709e+04_rb /)
+      kbo(:, 4,55,12) = (/ &
+        & 0.10361e+04_rb,0.78465e+03_rb,0.60184e+03_rb,0.88512e+03_rb,0.11696e+04_rb /)
+      kbo(:, 5,55,12) = (/ &
+        & 0.10363e+04_rb,0.78599e+03_rb,0.60163e+03_rb,0.88363e+03_rb,0.11677e+04_rb /)
+      kbo(:, 1,56,12) = (/ &
+        & 0.10361e+04_rb,0.78599e+03_rb,0.60309e+03_rb,0.88918e+03_rb,0.11774e+04_rb /)
+      kbo(:, 2,56,12) = (/ &
+        & 0.10391e+04_rb,0.78674e+03_rb,0.60272e+03_rb,0.88707e+03_rb,0.11734e+04_rb /)
+      kbo(:, 3,56,12) = (/ &
+        & 0.10363e+04_rb,0.78584e+03_rb,0.60228e+03_rb,0.88626e+03_rb,0.11716e+04_rb /)
+      kbo(:, 4,56,12) = (/ &
+        & 0.10369e+04_rb,0.78509e+03_rb,0.60186e+03_rb,0.88538e+03_rb,0.11695e+04_rb /)
+      kbo(:, 5,56,12) = (/ &
+        & 0.10363e+04_rb,0.78554e+03_rb,0.60158e+03_rb,0.88421e+03_rb,0.11682e+04_rb /)
+      kbo(:, 1,57,12) = (/ &
+        & 0.10381e+04_rb,0.78509e+03_rb,0.60327e+03_rb,0.89026e+03_rb,0.11789e+04_rb /)
+      kbo(:, 2,57,12) = (/ &
+        & 0.10344e+04_rb,0.78852e+03_rb,0.60284e+03_rb,0.88747e+03_rb,0.11744e+04_rb /)
+      kbo(:, 3,57,12) = (/ &
+        & 0.10369e+04_rb,0.78509e+03_rb,0.60242e+03_rb,0.88612e+03_rb,0.11720e+04_rb /)
+      kbo(:, 4,57,12) = (/ &
+        & 0.10393e+04_rb,0.78330e+03_rb,0.60216e+03_rb,0.88561e+03_rb,0.11703e+04_rb /)
+      kbo(:, 5,57,12) = (/ &
+        & 0.10365e+04_rb,0.78494e+03_rb,0.60164e+03_rb,0.88472e+03_rb,0.11688e+04_rb /)
+      kbo(:, 1,58,12) = (/ &
+        & 0.10353e+04_rb,0.78509e+03_rb,0.60357e+03_rb,0.89125e+03_rb,0.11802e+04_rb /)
+      kbo(:, 2,58,12) = (/ &
+        & 0.10371e+04_rb,0.78524e+03_rb,0.60283e+03_rb,0.88807e+03_rb,0.11757e+04_rb /)
+      kbo(:, 3,58,12) = (/ &
+        & 0.10365e+04_rb,0.78718e+03_rb,0.60278e+03_rb,0.88669e+03_rb,0.11726e+04_rb /)
+      kbo(:, 4,58,12) = (/ &
+        & 0.10349e+04_rb,0.78673e+03_rb,0.60216e+03_rb,0.88590e+03_rb,0.11708e+04_rb /)
+      kbo(:, 5,58,12) = (/ &
+        & 0.10365e+04_rb,0.78389e+03_rb,0.60170e+03_rb,0.88506e+03_rb,0.11695e+04_rb /)
+      kbo(:, 1,59,12) = (/ &
+        & 0.10365e+04_rb,0.78390e+03_rb,0.60373e+03_rb,0.89165e+03_rb,0.11808e+04_rb /)
+      kbo(:, 2,59,12) = (/ &
+        & 0.10369e+04_rb,0.78479e+03_rb,0.60298e+03_rb,0.88840e+03_rb,0.11763e+04_rb /)
+      kbo(:, 3,59,12) = (/ &
+        & 0.10357e+04_rb,0.78703e+03_rb,0.60261e+03_rb,0.88680e+03_rb,0.11713e+04_rb /)
+      kbo(:, 4,59,12) = (/ &
+        & 0.10363e+04_rb,0.78509e+03_rb,0.60219e+03_rb,0.88602e+03_rb,0.11708e+04_rb /)
+      kbo(:, 5,59,12) = (/ &
+        & 0.10365e+04_rb,0.78479e+03_rb,0.60174e+03_rb,0.88517e+03_rb,0.11696e+04_rb /)
+      kbo(:, 1,13,13) = (/ &
+        & 0.11661e+04_rb,0.87073e+03_rb,0.60556e+03_rb,0.88929e+03_rb,0.11761e+04_rb /)
+      kbo(:, 2,13,13) = (/ &
+        & 0.11527e+04_rb,0.87014e+03_rb,0.60489e+03_rb,0.88914e+03_rb,0.11754e+04_rb /)
+      kbo(:, 3,13,13) = (/ &
+        & 0.11423e+04_rb,0.85968e+03_rb,0.60419e+03_rb,0.88867e+03_rb,0.11747e+04_rb /)
+      kbo(:, 4,13,13) = (/ &
+        & 0.11371e+04_rb,0.85890e+03_rb,0.60344e+03_rb,0.88820e+03_rb,0.11742e+04_rb /)
+      kbo(:, 5,13,13) = (/ &
+        & 0.11390e+04_rb,0.85008e+03_rb,0.60234e+03_rb,0.88705e+03_rb,0.11727e+04_rb /)
+      kbo(:, 1,14,13) = (/ &
+        & 0.11362e+04_rb,0.85805e+03_rb,0.60511e+03_rb,0.88957e+03_rb,0.11761e+04_rb /)
+      kbo(:, 2,14,13) = (/ &
+        & 0.11276e+04_rb,0.85398e+03_rb,0.60448e+03_rb,0.88893e+03_rb,0.11753e+04_rb /)
+      kbo(:, 3,14,13) = (/ &
+        & 0.11208e+04_rb,0.84888e+03_rb,0.60397e+03_rb,0.88854e+03_rb,0.11747e+04_rb /)
+      kbo(:, 4,14,13) = (/ &
+        & 0.11194e+04_rb,0.85006e+03_rb,0.60305e+03_rb,0.88823e+03_rb,0.11740e+04_rb /)
+      kbo(:, 5,14,13) = (/ &
+        & 0.11083e+04_rb,0.84212e+03_rb,0.60191e+03_rb,0.88682e+03_rb,0.11725e+04_rb /)
+      kbo(:, 1,15,13) = (/ &
+        & 0.11142e+04_rb,0.84766e+03_rb,0.60488e+03_rb,0.88941e+03_rb,0.11748e+04_rb /)
+      kbo(:, 2,15,13) = (/ &
+        & 0.11176e+04_rb,0.84112e+03_rb,0.60414e+03_rb,0.88873e+03_rb,0.11752e+04_rb /)
+      kbo(:, 3,15,13) = (/ &
+        & 0.11051e+04_rb,0.84191e+03_rb,0.60348e+03_rb,0.88843e+03_rb,0.11747e+04_rb /)
+      kbo(:, 4,15,13) = (/ &
+        & 0.11036e+04_rb,0.83753e+03_rb,0.60270e+03_rb,0.88781e+03_rb,0.11739e+04_rb /)
+      kbo(:, 5,15,13) = (/ &
+        & 0.10935e+04_rb,0.82883e+03_rb,0.60139e+03_rb,0.88658e+03_rb,0.11723e+04_rb /)
+      kbo(:, 1,16,13) = (/ &
+        & 0.11074e+04_rb,0.83456e+03_rb,0.60440e+03_rb,0.88927e+03_rb,0.11760e+04_rb /)
+      kbo(:, 2,16,13) = (/ &
+        & 0.11018e+04_rb,0.83298e+03_rb,0.60385e+03_rb,0.88856e+03_rb,0.11751e+04_rb /)
+      kbo(:, 3,16,13) = (/ &
+        & 0.10859e+04_rb,0.83101e+03_rb,0.60319e+03_rb,0.88832e+03_rb,0.11747e+04_rb /)
+      kbo(:, 4,16,13) = (/ &
+        & 0.10925e+04_rb,0.82836e+03_rb,0.60254e+03_rb,0.88762e+03_rb,0.11738e+04_rb /)
+      kbo(:, 5,16,13) = (/ &
+        & 0.10900e+04_rb,0.82283e+03_rb,0.60124e+03_rb,0.88636e+03_rb,0.11721e+04_rb /)
+      kbo(:, 1,17,13) = (/ &
+        & 0.10953e+04_rb,0.82596e+03_rb,0.60413e+03_rb,0.88915e+03_rb,0.11759e+04_rb /)
+      kbo(:, 2,17,13) = (/ &
+        & 0.10864e+04_rb,0.82504e+03_rb,0.60360e+03_rb,0.88842e+03_rb,0.11750e+04_rb /)
+      kbo(:, 3,17,13) = (/ &
+        & 0.10812e+04_rb,0.81898e+03_rb,0.60295e+03_rb,0.88822e+03_rb,0.11746e+04_rb /)
+      kbo(:, 4,17,13) = (/ &
+        & 0.10806e+04_rb,0.81706e+03_rb,0.60242e+03_rb,0.88745e+03_rb,0.11736e+04_rb /)
+      kbo(:, 5,17,13) = (/ &
+        & 0.10764e+04_rb,0.81771e+03_rb,0.59943e+03_rb,0.88638e+03_rb,0.11722e+04_rb /)
+      kbo(:, 1,18,13) = (/ &
+        & 0.10787e+04_rb,0.82265e+03_rb,0.60390e+03_rb,0.88903e+03_rb,0.11759e+04_rb /)
+      kbo(:, 2,18,13) = (/ &
+        & 0.10743e+04_rb,0.81466e+03_rb,0.60339e+03_rb,0.88738e+03_rb,0.11749e+04_rb /)
+      kbo(:, 3,18,13) = (/ &
+        & 0.10792e+04_rb,0.81648e+03_rb,0.60273e+03_rb,0.88812e+03_rb,0.11749e+04_rb /)
+      kbo(:, 4,18,13) = (/ &
+        & 0.10724e+04_rb,0.81516e+03_rb,0.60185e+03_rb,0.88728e+03_rb,0.11735e+04_rb /)
+      kbo(:, 5,18,13) = (/ &
+        & 0.10737e+04_rb,0.81301e+03_rb,0.60092e+03_rb,0.88618e+03_rb,0.11717e+04_rb /)
+      kbo(:, 1,19,13) = (/ &
+        & 0.10778e+04_rb,0.81646e+03_rb,0.60388e+03_rb,0.88893e+03_rb,0.11758e+04_rb /)
+      kbo(:, 2,19,13) = (/ &
+        & 0.10709e+04_rb,0.81021e+03_rb,0.60321e+03_rb,0.88822e+03_rb,0.11748e+04_rb /)
+      kbo(:, 3,19,13) = (/ &
+        & 0.10651e+04_rb,0.80945e+03_rb,0.60254e+03_rb,0.88803e+03_rb,0.11745e+04_rb /)
+      kbo(:, 4,19,13) = (/ &
+        & 0.10677e+04_rb,0.80743e+03_rb,0.60147e+03_rb,0.88735e+03_rb,0.11733e+04_rb /)
+      kbo(:, 5,19,13) = (/ &
+        & 0.10575e+04_rb,0.80245e+03_rb,0.60072e+03_rb,0.88575e+03_rb,0.11721e+04_rb /)
+      kbo(:, 1,20,13) = (/ &
+        & 0.10622e+04_rb,0.81096e+03_rb,0.60356e+03_rb,0.88881e+03_rb,0.11757e+04_rb /)
+      kbo(:, 2,20,13) = (/ &
+        & 0.10607e+04_rb,0.80739e+03_rb,0.60305e+03_rb,0.88816e+03_rb,0.11748e+04_rb /)
+      kbo(:, 3,20,13) = (/ &
+        & 0.10623e+04_rb,0.80381e+03_rb,0.60252e+03_rb,0.88792e+03_rb,0.11744e+04_rb /)
+      kbo(:, 4,20,13) = (/ &
+        & 0.10570e+04_rb,0.80456e+03_rb,0.60093e+03_rb,0.88695e+03_rb,0.11731e+04_rb /)
+      kbo(:, 5,20,13) = (/ &
+        & 0.10628e+04_rb,0.80481e+03_rb,0.60051e+03_rb,0.88554e+03_rb,0.11713e+04_rb /)
+      kbo(:, 1,21,13) = (/ &
+        & 0.10564e+04_rb,0.80721e+03_rb,0.60326e+03_rb,0.88869e+03_rb,0.11756e+04_rb /)
+      kbo(:, 2,21,13) = (/ &
+        & 0.10630e+04_rb,0.79813e+03_rb,0.60290e+03_rb,0.88813e+03_rb,0.11748e+04_rb /)
+      kbo(:, 3,21,13) = (/ &
+        & 0.10553e+04_rb,0.80228e+03_rb,0.60219e+03_rb,0.88781e+03_rb,0.11743e+04_rb /)
+      kbo(:, 4,21,13) = (/ &
+        & 0.10544e+04_rb,0.79888e+03_rb,0.60136e+03_rb,0.88677e+03_rb,0.11729e+04_rb /)
+      kbo(:, 5,21,13) = (/ &
+        & 0.10596e+04_rb,0.81049e+03_rb,0.60032e+03_rb,0.88532e+03_rb,0.11710e+04_rb /)
+      kbo(:, 1,22,13) = (/ &
+        & 0.10550e+04_rb,0.80310e+03_rb,0.60326e+03_rb,0.88850e+03_rb,0.11754e+04_rb /)
+      kbo(:, 2,22,13) = (/ &
+        & 0.10516e+04_rb,0.80380e+03_rb,0.60256e+03_rb,0.88810e+03_rb,0.11747e+04_rb /)
+      kbo(:, 3,22,13) = (/ &
+        & 0.10562e+04_rb,0.80152e+03_rb,0.60229e+03_rb,0.88764e+03_rb,0.11741e+04_rb /)
+      kbo(:, 4,22,13) = (/ &
+        & 0.10509e+04_rb,0.80224e+03_rb,0.60002e+03_rb,0.88651e+03_rb,0.11726e+04_rb /)
+      kbo(:, 5,22,13) = (/ &
+        & 0.10563e+04_rb,0.79871e+03_rb,0.59990e+03_rb,0.88500e+03_rb,0.11706e+04_rb /)
+      kbo(:, 1,23,13) = (/ &
+        & 0.10567e+04_rb,0.79860e+03_rb,0.60326e+03_rb,0.88832e+03_rb,0.11752e+04_rb /)
+      kbo(:, 2,23,13) = (/ &
+        & 0.10532e+04_rb,0.79557e+03_rb,0.60254e+03_rb,0.88806e+03_rb,0.11747e+04_rb /)
+      kbo(:, 3,23,13) = (/ &
+        & 0.10534e+04_rb,0.79512e+03_rb,0.60237e+03_rb,0.88744e+03_rb,0.11739e+04_rb /)
+      kbo(:, 4,23,13) = (/ &
+        & 0.10472e+04_rb,0.79721e+03_rb,0.60072e+03_rb,0.88622e+03_rb,0.11723e+04_rb /)
+      kbo(:, 5,23,13) = (/ &
+        & 0.10509e+04_rb,0.79423e+03_rb,0.59964e+03_rb,0.88466e+03_rb,0.11702e+04_rb /)
+      kbo(:, 1,24,13) = (/ &
+        & 0.10549e+04_rb,0.79502e+03_rb,0.60296e+03_rb,0.88817e+03_rb,0.11750e+04_rb /)
+      kbo(:, 2,24,13) = (/ &
+        & 0.10498e+04_rb,0.80428e+03_rb,0.60221e+03_rb,0.88799e+03_rb,0.11746e+04_rb /)
+      kbo(:, 3,24,13) = (/ &
+        & 0.10553e+04_rb,0.79369e+03_rb,0.60149e+03_rb,0.88721e+03_rb,0.11736e+04_rb /)
+      kbo(:, 4,24,13) = (/ &
+        & 0.10517e+04_rb,0.79240e+03_rb,0.60048e+03_rb,0.88592e+03_rb,0.11719e+04_rb /)
+      kbo(:, 5,24,13) = (/ &
+        & 0.10493e+04_rb,0.79281e+03_rb,0.59936e+03_rb,0.88429e+03_rb,0.11697e+04_rb /)
+      kbo(:, 1,25,13) = (/ &
+        & 0.10472e+04_rb,0.79884e+03_rb,0.60281e+03_rb,0.88760e+03_rb,0.11748e+04_rb /)
+      kbo(:, 2,25,13) = (/ &
+        & 0.10433e+04_rb,0.79261e+03_rb,0.60217e+03_rb,0.88787e+03_rb,0.11745e+04_rb /)
+      kbo(:, 3,25,13) = (/ &
+        & 0.10495e+04_rb,0.79568e+03_rb,0.60138e+03_rb,0.88696e+03_rb,0.11733e+04_rb /)
+      kbo(:, 4,25,13) = (/ &
+        & 0.10412e+04_rb,0.79264e+03_rb,0.60023e+03_rb,0.88559e+03_rb,0.11715e+04_rb /)
+      kbo(:, 5,25,13) = (/ &
+        & 0.10432e+04_rb,0.79682e+03_rb,0.59908e+03_rb,0.88390e+03_rb,0.11692e+04_rb /)
+      kbo(:, 1,26,13) = (/ &
+        & 0.10426e+04_rb,0.79538e+03_rb,0.60266e+03_rb,0.88804e+03_rb,0.11748e+04_rb /)
+      kbo(:, 2,26,13) = (/ &
+        & 0.10459e+04_rb,0.79909e+03_rb,0.60196e+03_rb,0.88771e+03_rb,0.11743e+04_rb /)
+      kbo(:, 3,26,13) = (/ &
+        & 0.10455e+04_rb,0.79078e+03_rb,0.60113e+03_rb,0.88666e+03_rb,0.11729e+04_rb /)
+      kbo(:, 4,26,13) = (/ &
+        & 0.10380e+04_rb,0.79069e+03_rb,0.60011e+03_rb,0.88521e+03_rb,0.11710e+04_rb /)
+      kbo(:, 5,26,13) = (/ &
+        & 0.10428e+04_rb,0.79124e+03_rb,0.59892e+03_rb,0.88345e+03_rb,0.11686e+04_rb /)
+      kbo(:, 1,27,13) = (/ &
+        & 0.10409e+04_rb,0.79057e+03_rb,0.60249e+03_rb,0.88802e+03_rb,0.11747e+04_rb /)
+      kbo(:, 2,27,13) = (/ &
+        & 0.10432e+04_rb,0.78863e+03_rb,0.60172e+03_rb,0.88750e+03_rb,0.11740e+04_rb /)
+      kbo(:, 3,27,13) = (/ &
+        & 0.10404e+04_rb,0.79041e+03_rb,0.60057e+03_rb,0.88634e+03_rb,0.11728e+04_rb /)
+      kbo(:, 4,27,13) = (/ &
+        & 0.10425e+04_rb,0.78854e+03_rb,0.59967e+03_rb,0.88481e+03_rb,0.11704e+04_rb /)
+      kbo(:, 5,27,13) = (/ &
+        & 0.10492e+04_rb,0.78874e+03_rb,0.59843e+03_rb,0.88297e+03_rb,0.11680e+04_rb /)
+      kbo(:, 1,28,13) = (/ &
+        & 0.10434e+04_rb,0.79273e+03_rb,0.60231e+03_rb,0.88820e+03_rb,0.11747e+04_rb /)
+      kbo(:, 2,28,13) = (/ &
+        & 0.10472e+04_rb,0.78799e+03_rb,0.60162e+03_rb,0.88726e+03_rb,0.11737e+04_rb /)
+      kbo(:, 3,28,13) = (/ &
+        & 0.10366e+04_rb,0.79125e+03_rb,0.60032e+03_rb,0.88600e+03_rb,0.11720e+04_rb /)
+      kbo(:, 4,28,13) = (/ &
+        & 0.10345e+04_rb,0.78841e+03_rb,0.59938e+03_rb,0.88440e+03_rb,0.11699e+04_rb /)
+      kbo(:, 5,28,13) = (/ &
+        & 0.10534e+04_rb,0.78866e+03_rb,0.59808e+03_rb,0.88245e+03_rb,0.11673e+04_rb /)
+      kbo(:, 1,29,13) = (/ &
+        & 0.10524e+04_rb,0.78934e+03_rb,0.60181e+03_rb,0.88786e+03_rb,0.11745e+04_rb /)
+      kbo(:, 2,29,13) = (/ &
+        & 0.10481e+04_rb,0.78588e+03_rb,0.60321e+03_rb,0.88698e+03_rb,0.11734e+04_rb /)
+      kbo(:, 3,29,13) = (/ &
+        & 0.10466e+04_rb,0.79266e+03_rb,0.60021e+03_rb,0.88562e+03_rb,0.11715e+04_rb /)
+      kbo(:, 4,29,13) = (/ &
+        & 0.10466e+04_rb,0.79965e+03_rb,0.59906e+03_rb,0.88395e+03_rb,0.11693e+04_rb /)
+      kbo(:, 5,29,13) = (/ &
+        & 0.10459e+04_rb,0.78993e+03_rb,0.59799e+03_rb,0.88185e+03_rb,0.11668e+04_rb /)
+      kbo(:, 1,30,13) = (/ &
+        & 0.10360e+04_rb,0.78916e+03_rb,0.60191e+03_rb,0.88770e+03_rb,0.11743e+04_rb /)
+      kbo(:, 2,30,13) = (/ &
+        & 0.10409e+04_rb,0.78411e+03_rb,0.60093e+03_rb,0.88667e+03_rb,0.11729e+04_rb /)
+      kbo(:, 3,30,13) = (/ &
+        & 0.10391e+04_rb,0.79193e+03_rb,0.59993e+03_rb,0.88546e+03_rb,0.11710e+04_rb /)
+      kbo(:, 4,30,13) = (/ &
+        & 0.10409e+04_rb,0.78876e+03_rb,0.59874e+03_rb,0.88348e+03_rb,0.11687e+04_rb /)
+      kbo(:, 5,30,13) = (/ &
+        & 0.10396e+04_rb,0.78722e+03_rb,0.59722e+03_rb,0.88117e+03_rb,0.11665e+04_rb /)
+      kbo(:, 1,31,13) = (/ &
+        & 0.10394e+04_rb,0.79419e+03_rb,0.60167e+03_rb,0.88749e+03_rb,0.11740e+04_rb /)
+      kbo(:, 2,31,13) = (/ &
+        & 0.10363e+04_rb,0.79203e+03_rb,0.60068e+03_rb,0.88633e+03_rb,0.11725e+04_rb /)
+      kbo(:, 3,31,13) = (/ &
+        & 0.10437e+04_rb,0.78663e+03_rb,0.59963e+03_rb,0.88481e+03_rb,0.11705e+04_rb /)
+      kbo(:, 4,31,13) = (/ &
+        & 0.10406e+04_rb,0.79000e+03_rb,0.59839e+03_rb,0.88297e+03_rb,0.11680e+04_rb /)
+      kbo(:, 5,31,13) = (/ &
+        & 0.10413e+04_rb,0.79093e+03_rb,0.59674e+03_rb,0.88044e+03_rb,0.11650e+04_rb /)
+      kbo(:, 1,32,13) = (/ &
+        & 0.10440e+04_rb,0.79014e+03_rb,0.60327e+03_rb,0.88723e+03_rb,0.11737e+04_rb /)
+      kbo(:, 2,32,13) = (/ &
+        & 0.10391e+04_rb,0.79106e+03_rb,0.60042e+03_rb,0.88596e+03_rb,0.11720e+04_rb /)
+      kbo(:, 3,32,13) = (/ &
+        & 0.10467e+04_rb,0.78955e+03_rb,0.59932e+03_rb,0.88436e+03_rb,0.11699e+04_rb /)
+      kbo(:, 4,32,13) = (/ &
+        & 0.10407e+04_rb,0.79722e+03_rb,0.59818e+03_rb,0.88241e+03_rb,0.11673e+04_rb /)
+      kbo(:, 5,32,13) = (/ &
+        & 0.10382e+04_rb,0.78961e+03_rb,0.59626e+03_rb,0.87980e+03_rb,0.11639e+04_rb /)
+      kbo(:, 1,33,13) = (/ &
+        & 0.10522e+04_rb,0.78494e+03_rb,0.60081e+03_rb,0.88693e+03_rb,0.11733e+04_rb /)
+      kbo(:, 2,33,13) = (/ &
+        & 0.10373e+04_rb,0.79220e+03_rb,0.59999e+03_rb,0.88557e+03_rb,0.11715e+04_rb /)
+      kbo(:, 3,33,13) = (/ &
+        & 0.10359e+04_rb,0.78622e+03_rb,0.59900e+03_rb,0.88389e+03_rb,0.11695e+04_rb /)
+      kbo(:, 4,33,13) = (/ &
+        & 0.10377e+04_rb,0.78474e+03_rb,0.59760e+03_rb,0.88177e+03_rb,0.11667e+04_rb /)
+      kbo(:, 5,33,13) = (/ &
+        & 0.10406e+04_rb,0.78876e+03_rb,0.59580e+03_rb,0.87933e+03_rb,0.11633e+04_rb /)
+      kbo(:, 1,34,13) = (/ &
+        & 0.10360e+04_rb,0.79366e+03_rb,0.60074e+03_rb,0.88666e+03_rb,0.11729e+04_rb /)
+      kbo(:, 2,34,13) = (/ &
+        & 0.10445e+04_rb,0.78362e+03_rb,0.59974e+03_rb,0.88521e+03_rb,0.11710e+04_rb /)
+      kbo(:, 3,34,13) = (/ &
+        & 0.10445e+04_rb,0.78784e+03_rb,0.59871e+03_rb,0.88346e+03_rb,0.11687e+04_rb /)
+      kbo(:, 4,34,13) = (/ &
+        & 0.10420e+04_rb,0.78840e+03_rb,0.59718e+03_rb,0.88091e+03_rb,0.11665e+04_rb /)
+      kbo(:, 5,34,13) = (/ &
+        & 0.10384e+04_rb,0.79182e+03_rb,0.59540e+03_rb,0.87927e+03_rb,0.11620e+04_rb /)
+      kbo(:, 1,35,13) = (/ &
+        & 0.10422e+04_rb,0.79326e+03_rb,0.60077e+03_rb,0.88648e+03_rb,0.11727e+04_rb /)
+      kbo(:, 2,35,13) = (/ &
+        & 0.10360e+04_rb,0.79158e+03_rb,0.59975e+03_rb,0.88500e+03_rb,0.11707e+04_rb /)
+      kbo(:, 3,35,13) = (/ &
+        & 0.10370e+04_rb,0.78869e+03_rb,0.59854e+03_rb,0.88320e+03_rb,0.11683e+04_rb /)
+      kbo(:, 4,35,13) = (/ &
+        & 0.10364e+04_rb,0.79354e+03_rb,0.59694e+03_rb,0.88077e+03_rb,0.11651e+04_rb /)
+      kbo(:, 5,35,13) = (/ &
+        & 0.10369e+04_rb,0.78943e+03_rb,0.59473e+03_rb,0.87892e+03_rb,0.11616e+04_rb /)
+      kbo(:, 1,36,13) = (/ &
+        & 0.10401e+04_rb,0.78191e+03_rb,0.60075e+03_rb,0.88645e+03_rb,0.11727e+04_rb /)
+      kbo(:, 2,36,13) = (/ &
+        & 0.10371e+04_rb,0.78614e+03_rb,0.59972e+03_rb,0.88519e+03_rb,0.11707e+04_rb /)
+      kbo(:, 3,36,13) = (/ &
+        & 0.10392e+04_rb,0.78550e+03_rb,0.59835e+03_rb,0.88339e+03_rb,0.11683e+04_rb /)
+      kbo(:, 4,36,13) = (/ &
+        & 0.10378e+04_rb,0.78649e+03_rb,0.59690e+03_rb,0.88071e+03_rb,0.11650e+04_rb /)
+      kbo(:, 5,36,13) = (/ &
+        & 0.10389e+04_rb,0.79012e+03_rb,0.59516e+03_rb,0.87821e+03_rb,0.11604e+04_rb /)
+      kbo(:, 1,37,13) = (/ &
+        & 0.10397e+04_rb,0.78790e+03_rb,0.60071e+03_rb,0.88662e+03_rb,0.11729e+04_rb /)
+      kbo(:, 2,37,13) = (/ &
+        & 0.10413e+04_rb,0.78135e+03_rb,0.59986e+03_rb,0.88540e+03_rb,0.11710e+04_rb /)
+      kbo(:, 3,37,13) = (/ &
+        & 0.10434e+04_rb,0.78885e+03_rb,0.59867e+03_rb,0.88341e+03_rb,0.11686e+04_rb /)
+      kbo(:, 4,37,13) = (/ &
+        & 0.10382e+04_rb,0.79636e+03_rb,0.59698e+03_rb,0.88108e+03_rb,0.11655e+04_rb /)
+      kbo(:, 5,37,13) = (/ &
+        & 0.10369e+04_rb,0.78656e+03_rb,0.59536e+03_rb,0.87879e+03_rb,0.11626e+04_rb /)
+      kbo(:, 1,38,13) = (/ &
+        & 0.10433e+04_rb,0.78475e+03_rb,0.60099e+03_rb,0.88680e+03_rb,0.11731e+04_rb /)
+      kbo(:, 2,38,13) = (/ &
+        & 0.10422e+04_rb,0.78187e+03_rb,0.60001e+03_rb,0.88539e+03_rb,0.11713e+04_rb /)
+      kbo(:, 3,38,13) = (/ &
+        & 0.10376e+04_rb,0.78470e+03_rb,0.59854e+03_rb,0.88368e+03_rb,0.11690e+04_rb /)
+      kbo(:, 4,38,13) = (/ &
+        & 0.10379e+04_rb,0.78467e+03_rb,0.59739e+03_rb,0.88147e+03_rb,0.11660e+04_rb /)
+      kbo(:, 5,38,13) = (/ &
+        & 0.10346e+04_rb,0.79279e+03_rb,0.59559e+03_rb,0.87849e+03_rb,0.11631e+04_rb /)
+      kbo(:, 1,39,13) = (/ &
+        & 0.10564e+04_rb,0.79016e+03_rb,0.60113e+03_rb,0.88696e+03_rb,0.11734e+04_rb /)
+      kbo(:, 2,39,13) = (/ &
+        & 0.10405e+04_rb,0.78139e+03_rb,0.59938e+03_rb,0.88561e+03_rb,0.11715e+04_rb /)
+      kbo(:, 3,39,13) = (/ &
+        & 0.10386e+04_rb,0.79256e+03_rb,0.59902e+03_rb,0.88393e+03_rb,0.11693e+04_rb /)
+      kbo(:, 4,39,13) = (/ &
+        & 0.10351e+04_rb,0.78501e+03_rb,0.59779e+03_rb,0.88184e+03_rb,0.11668e+04_rb /)
+      kbo(:, 5,39,13) = (/ &
+        & 0.10353e+04_rb,0.78561e+03_rb,0.59583e+03_rb,0.87937e+03_rb,0.11634e+04_rb /)
+      kbo(:, 1,40,13) = (/ &
+        & 0.10351e+04_rb,0.78501e+03_rb,0.60325e+03_rb,0.88723e+03_rb,0.11737e+04_rb /)
+      kbo(:, 2,40,13) = (/ &
+        & 0.10332e+04_rb,0.78519e+03_rb,0.60040e+03_rb,0.88596e+03_rb,0.11720e+04_rb /)
+      kbo(:, 3,40,13) = (/ &
+        & 0.10393e+04_rb,0.78843e+03_rb,0.59931e+03_rb,0.88436e+03_rb,0.11699e+04_rb /)
+      kbo(:, 4,40,13) = (/ &
+        & 0.10339e+04_rb,0.78821e+03_rb,0.59801e+03_rb,0.88242e+03_rb,0.11676e+04_rb /)
+      kbo(:, 5,40,13) = (/ &
+        & 0.10476e+04_rb,0.78616e+03_rb,0.59626e+03_rb,0.87958e+03_rb,0.11639e+04_rb /)
+      kbo(:, 1,41,13) = (/ &
+        & 0.10420e+04_rb,0.78658e+03_rb,0.60226e+03_rb,0.88748e+03_rb,0.11740e+04_rb /)
+      kbo(:, 2,41,13) = (/ &
+        & 0.10471e+04_rb,0.78433e+03_rb,0.60065e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)
+      kbo(:, 3,41,13) = (/ &
+        & 0.10385e+04_rb,0.78777e+03_rb,0.59960e+03_rb,0.88480e+03_rb,0.11705e+04_rb /)
+      kbo(:, 4,41,13) = (/ &
+        & 0.10374e+04_rb,0.79305e+03_rb,0.59837e+03_rb,0.88319e+03_rb,0.11680e+04_rb /)
+      kbo(:, 5,41,13) = (/ &
+        & 0.10341e+04_rb,0.79121e+03_rb,0.59671e+03_rb,0.88067e+03_rb,0.11641e+04_rb /)
+      kbo(:, 1,42,13) = (/ &
+        & 0.10427e+04_rb,0.78654e+03_rb,0.60202e+03_rb,0.88768e+03_rb,0.11743e+04_rb /)
+      kbo(:, 2,42,13) = (/ &
+        & 0.10376e+04_rb,0.78774e+03_rb,0.60073e+03_rb,0.88666e+03_rb,0.11730e+04_rb /)
+      kbo(:, 3,42,13) = (/ &
+        & 0.10387e+04_rb,0.78631e+03_rb,0.59989e+03_rb,0.88522e+03_rb,0.11710e+04_rb /)
+      kbo(:, 4,42,13) = (/ &
+        & 0.10432e+04_rb,0.79240e+03_rb,0.59870e+03_rb,0.88347e+03_rb,0.11690e+04_rb /)
+      kbo(:, 5,42,13) = (/ &
+        & 0.10408e+04_rb,0.78283e+03_rb,0.59718e+03_rb,0.88116e+03_rb,0.11677e+04_rb /)
+      kbo(:, 1,43,13) = (/ &
+        & 0.10384e+04_rb,0.78732e+03_rb,0.60211e+03_rb,0.88787e+03_rb,0.11746e+04_rb /)
+      kbo(:, 2,43,13) = (/ &
+        & 0.10392e+04_rb,0.79483e+03_rb,0.60103e+03_rb,0.88703e+03_rb,0.11735e+04_rb /)
+      kbo(:, 3,43,13) = (/ &
+        & 0.10435e+04_rb,0.79279e+03_rb,0.60022e+03_rb,0.88570e+03_rb,0.11717e+04_rb /)
+      kbo(:, 4,43,13) = (/ &
+        & 0.10453e+04_rb,0.78261e+03_rb,0.59909e+03_rb,0.88405e+03_rb,0.11698e+04_rb /)
+      kbo(:, 5,43,13) = (/ &
+        & 0.10349e+04_rb,0.78239e+03_rb,0.59773e+03_rb,0.88200e+03_rb,0.11670e+04_rb /)
+      kbo(:, 1,44,13) = (/ &
+        & 0.10376e+04_rb,0.78973e+03_rb,0.60218e+03_rb,0.88797e+03_rb,0.11747e+04_rb /)
+      kbo(:, 2,44,13) = (/ &
+        & 0.10357e+04_rb,0.79073e+03_rb,0.60154e+03_rb,0.88738e+03_rb,0.11742e+04_rb /)
+      kbo(:, 3,44,13) = (/ &
+        & 0.10381e+04_rb,0.78584e+03_rb,0.60056e+03_rb,0.88619e+03_rb,0.11723e+04_rb /)
+      kbo(:, 4,44,13) = (/ &
+        & 0.10410e+04_rb,0.78726e+03_rb,0.59965e+03_rb,0.88464e+03_rb,0.11703e+04_rb /)
+      kbo(:, 5,44,13) = (/ &
+        & 0.10370e+04_rb,0.78461e+03_rb,0.59824e+03_rb,0.88299e+03_rb,0.11677e+04_rb /)
+      kbo(:, 1,45,13) = (/ &
+        & 0.10383e+04_rb,0.78177e+03_rb,0.60254e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)
+      kbo(:, 2,45,13) = (/ &
+        & 0.10337e+04_rb,0.78400e+03_rb,0.60200e+03_rb,0.88790e+03_rb,0.11743e+04_rb /)
+      kbo(:, 3,45,13) = (/ &
+        & 0.10407e+04_rb,0.78928e+03_rb,0.60087e+03_rb,0.88664e+03_rb,0.11732e+04_rb /)
+      kbo(:, 4,45,13) = (/ &
+        & 0.10410e+04_rb,0.79578e+03_rb,0.59987e+03_rb,0.88519e+03_rb,0.11713e+04_rb /)
+      kbo(:, 5,45,13) = (/ &
+        & 0.10369e+04_rb,0.78337e+03_rb,0.59884e+03_rb,0.88344e+03_rb,0.11687e+04_rb /)
+      kbo(:, 1,46,13) = (/ &
+        & 0.10415e+04_rb,0.79090e+03_rb,0.60272e+03_rb,0.88805e+03_rb,0.11749e+04_rb /)
+      kbo(:, 2,46,13) = (/ &
+        & 0.10332e+04_rb,0.79374e+03_rb,0.60213e+03_rb,0.88788e+03_rb,0.11746e+04_rb /)
+      kbo(:, 3,46,13) = (/ &
+        & 0.10495e+04_rb,0.78743e+03_rb,0.60122e+03_rb,0.88707e+03_rb,0.11738e+04_rb /)
+      kbo(:, 4,46,13) = (/ &
+        & 0.10359e+04_rb,0.78275e+03_rb,0.60025e+03_rb,0.88575e+03_rb,0.11717e+04_rb /)
+      kbo(:, 5,46,13) = (/ &
+        & 0.10407e+04_rb,0.79210e+03_rb,0.59913e+03_rb,0.88411e+03_rb,0.11695e+04_rb /)
+      kbo(:, 1,47,13) = (/ &
+        & 0.10396e+04_rb,0.78478e+03_rb,0.60291e+03_rb,0.88833e+03_rb,0.11753e+04_rb /)
+      kbo(:, 2,47,13) = (/ &
+        & 0.10391e+04_rb,0.78254e+03_rb,0.60239e+03_rb,0.88798e+03_rb,0.11747e+04_rb /)
+      kbo(:, 3,47,13) = (/ &
+        & 0.10358e+04_rb,0.79087e+03_rb,0.60194e+03_rb,0.88748e+03_rb,0.11740e+04_rb /)
+      kbo(:, 4,47,13) = (/ &
+        & 0.10382e+04_rb,0.78212e+03_rb,0.60065e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)
+      kbo(:, 5,47,13) = (/ &
+        & 0.10417e+04_rb,0.78639e+03_rb,0.59976e+03_rb,0.88480e+03_rb,0.11705e+04_rb /)
+      kbo(:, 1,48,13) = (/ &
+        & 0.10401e+04_rb,0.78456e+03_rb,0.60307e+03_rb,0.88865e+03_rb,0.11757e+04_rb /)
+      kbo(:, 2,48,13) = (/ &
+        & 0.10385e+04_rb,0.78639e+03_rb,0.60262e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)
+      kbo(:, 3,48,13) = (/ &
+        & 0.10377e+04_rb,0.78374e+03_rb,0.60183e+03_rb,0.88778e+03_rb,0.11745e+04_rb /)
+      kbo(:, 4,48,13) = (/ &
+        & 0.10347e+04_rb,0.78455e+03_rb,0.60102e+03_rb,0.88707e+03_rb,0.11732e+04_rb /)
+      kbo(:, 5,48,13) = (/ &
+        & 0.10420e+04_rb,0.79085e+03_rb,0.60005e+03_rb,0.88545e+03_rb,0.11713e+04_rb /)
+      kbo(:, 1,49,13) = (/ &
+        & 0.10372e+04_rb,0.78740e+03_rb,0.60317e+03_rb,0.88862e+03_rb,0.11760e+04_rb /)
+      kbo(:, 2,49,13) = (/ &
+        & 0.10417e+04_rb,0.78862e+03_rb,0.60282e+03_rb,0.88818e+03_rb,0.11751e+04_rb /)
+      kbo(:, 3,49,13) = (/ &
+        & 0.10345e+04_rb,0.78780e+03_rb,0.60227e+03_rb,0.88818e+03_rb,0.11747e+04_rb /)
+      kbo(:, 4,49,13) = (/ &
+        & 0.10406e+04_rb,0.78617e+03_rb,0.60221e+03_rb,0.88729e+03_rb,0.11738e+04_rb /)
+      kbo(:, 5,49,13) = (/ &
+        & 0.10382e+04_rb,0.79023e+03_rb,0.60061e+03_rb,0.88605e+03_rb,0.11721e+04_rb /)
+      kbo(:, 1,50,13) = (/ &
+        & 0.10347e+04_rb,0.79207e+03_rb,0.60367e+03_rb,0.88900e+03_rb,0.11761e+04_rb /)
+      kbo(:, 2,50,13) = (/ &
+        & 0.10350e+04_rb,0.78739e+03_rb,0.60298e+03_rb,0.88872e+03_rb,0.11755e+04_rb /)
+      kbo(:, 3,50,13) = (/ &
+        & 0.10353e+04_rb,0.78433e+03_rb,0.60234e+03_rb,0.88799e+03_rb,0.11744e+04_rb /)
+      kbo(:, 4,50,13) = (/ &
+        & 0.10489e+04_rb,0.79267e+03_rb,0.60164e+03_rb,0.88763e+03_rb,0.11743e+04_rb /)
+      kbo(:, 5,50,13) = (/ &
+        & 0.10406e+04_rb,0.78514e+03_rb,0.60019e+03_rb,0.88656e+03_rb,0.11728e+04_rb /)
+      kbo(:, 1,51,13) = (/ &
+        & 0.10345e+04_rb,0.78799e+03_rb,0.60398e+03_rb,0.88932e+03_rb,0.11765e+04_rb /)
+      kbo(:, 2,51,13) = (/ &
+        & 0.10401e+04_rb,0.78697e+03_rb,0.60314e+03_rb,0.88874e+03_rb,0.11758e+04_rb /)
+      kbo(:, 3,51,13) = (/ &
+        & 0.10366e+04_rb,0.78656e+03_rb,0.60285e+03_rb,0.88803e+03_rb,0.11749e+04_rb /)
+      kbo(:, 4,51,13) = (/ &
+        & 0.10374e+04_rb,0.78473e+03_rb,0.60240e+03_rb,0.88809e+03_rb,0.11746e+04_rb /)
+      kbo(:, 5,51,13) = (/ &
+        & 0.10390e+04_rb,0.78920e+03_rb,0.60116e+03_rb,0.88701e+03_rb,0.11734e+04_rb /)
+      kbo(:, 1,52,13) = (/ &
+        & 0.10369e+04_rb,0.78758e+03_rb,0.60425e+03_rb,0.88974e+03_rb,0.11770e+04_rb /)
+      kbo(:, 2,52,13) = (/ &
+        & 0.10369e+04_rb,0.78229e+03_rb,0.60357e+03_rb,0.88889e+03_rb,0.11760e+04_rb /)
+      kbo(:, 3,52,13) = (/ &
+        & 0.10371e+04_rb,0.78737e+03_rb,0.60287e+03_rb,0.88826e+03_rb,0.11752e+04_rb /)
+      kbo(:, 4,52,13) = (/ &
+        & 0.10414e+04_rb,0.78574e+03_rb,0.60234e+03_rb,0.88797e+03_rb,0.11747e+04_rb /)
+      kbo(:, 5,52,13) = (/ &
+        & 0.10377e+04_rb,0.78696e+03_rb,0.60170e+03_rb,0.88739e+03_rb,0.11739e+04_rb /)
+      kbo(:, 1,53,13) = (/ &
+        & 0.10446e+04_rb,0.78533e+03_rb,0.60451e+03_rb,0.89022e+03_rb,0.11778e+04_rb /)
+      kbo(:, 2,53,13) = (/ &
+        & 0.10366e+04_rb,0.78675e+03_rb,0.60391e+03_rb,0.88907e+03_rb,0.11762e+04_rb /)
+      kbo(:, 3,53,13) = (/ &
+        & 0.10339e+04_rb,0.78472e+03_rb,0.60302e+03_rb,0.88857e+03_rb,0.11756e+04_rb /)
+      kbo(:, 4,53,13) = (/ &
+        & 0.10347e+04_rb,0.78858e+03_rb,0.60271e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)
+      kbo(:, 5,53,13) = (/ &
+        & 0.10414e+04_rb,0.78370e+03_rb,0.60188e+03_rb,0.88770e+03_rb,0.11743e+04_rb /)
+      kbo(:, 1,54,13) = (/ &
+        & 0.10366e+04_rb,0.78980e+03_rb,0.60463e+03_rb,0.89072e+03_rb,0.11788e+04_rb /)
+      kbo(:, 2,54,13) = (/ &
+        & 0.10376e+04_rb,0.78289e+03_rb,0.60402e+03_rb,0.88939e+03_rb,0.11765e+04_rb /)
+      kbo(:, 3,54,13) = (/ &
+        & 0.10387e+04_rb,0.78695e+03_rb,0.60318e+03_rb,0.88877e+03_rb,0.11759e+04_rb /)
+      kbo(:, 4,54,13) = (/ &
+        & 0.10435e+04_rb,0.78370e+03_rb,0.60273e+03_rb,0.88806e+03_rb,0.11749e+04_rb /)
+      kbo(:, 5,54,13) = (/ &
+        & 0.10492e+04_rb,0.79000e+03_rb,0.60214e+03_rb,0.88789e+03_rb,0.11746e+04_rb /)
+      kbo(:, 1,55,13) = (/ &
+        & 0.10395e+04_rb,0.78654e+03_rb,0.60524e+03_rb,0.89136e+03_rb,0.11799e+04_rb /)
+      kbo(:, 2,55,13) = (/ &
+        & 0.10379e+04_rb,0.78553e+03_rb,0.60426e+03_rb,0.88977e+03_rb,0.11770e+04_rb /)
+      kbo(:, 3,55,13) = (/ &
+        & 0.10376e+04_rb,0.78959e+03_rb,0.60343e+03_rb,0.88890e+03_rb,0.11757e+04_rb /)
+      kbo(:, 4,55,13) = (/ &
+        & 0.10360e+04_rb,0.78634e+03_rb,0.60272e+03_rb,0.88828e+03_rb,0.11752e+04_rb /)
+      kbo(:, 5,55,13) = (/ &
+        & 0.10355e+04_rb,0.78796e+03_rb,0.60219e+03_rb,0.88821e+03_rb,0.11747e+04_rb /)
+      kbo(:, 1,56,13) = (/ &
+        & 0.10500e+04_rb,0.78471e+03_rb,0.60540e+03_rb,0.89210e+03_rb,0.11812e+04_rb /)
+      kbo(:, 2,56,13) = (/ &
+        & 0.10441e+04_rb,0.78735e+03_rb,0.60449e+03_rb,0.89019e+03_rb,0.11777e+04_rb /)
+      kbo(:, 3,56,13) = (/ &
+        & 0.10382e+04_rb,0.78755e+03_rb,0.60374e+03_rb,0.88905e+03_rb,0.11759e+04_rb /)
+      kbo(:, 4,56,13) = (/ &
+        & 0.10470e+04_rb,0.78715e+03_rb,0.60301e+03_rb,0.88855e+03_rb,0.11756e+04_rb /)
+      kbo(:, 5,56,13) = (/ &
+        & 0.10358e+04_rb,0.78674e+03_rb,0.60270e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)
+      kbo(:, 1,57,13) = (/ &
+        & 0.10339e+04_rb,0.78715e+03_rb,0.60588e+03_rb,0.89295e+03_rb,0.11828e+04_rb /)
+      kbo(:, 2,57,13) = (/ &
+        & 0.10441e+04_rb,0.78267e+03_rb,0.60475e+03_rb,0.89065e+03_rb,0.11787e+04_rb /)
+      kbo(:, 3,57,13) = (/ &
+        & 0.10435e+04_rb,0.78938e+03_rb,0.60399e+03_rb,0.88934e+03_rb,0.11765e+04_rb /)
+      kbo(:, 4,57,13) = (/ &
+        & 0.10392e+04_rb,0.79203e+03_rb,0.60300e+03_rb,0.88875e+03_rb,0.11758e+04_rb /)
+      kbo(:, 5,57,13) = (/ &
+        & 0.10360e+04_rb,0.78491e+03_rb,0.60271e+03_rb,0.88827e+03_rb,0.11749e+04_rb /)
+      kbo(:, 1,58,13) = (/ &
+        & 0.10392e+04_rb,0.78430e+03_rb,0.60601e+03_rb,0.89398e+03_rb,0.11847e+04_rb /)
+      kbo(:, 2,58,13) = (/ &
+        & 0.10363e+04_rb,0.78694e+03_rb,0.60503e+03_rb,0.89124e+03_rb,0.11797e+04_rb /)
+      kbo(:, 3,58,13) = (/ &
+        & 0.10360e+04_rb,0.78084e+03_rb,0.60391e+03_rb,0.88970e+03_rb,0.11769e+04_rb /)
+      kbo(:, 4,58,13) = (/ &
+        & 0.10459e+04_rb,0.78267e+03_rb,0.60338e+03_rb,0.88888e+03_rb,0.11757e+04_rb /)
+      kbo(:, 5,58,13) = (/ &
+        & 0.10368e+04_rb,0.79101e+03_rb,0.60285e+03_rb,0.88823e+03_rb,0.11752e+04_rb /)
+      kbo(:, 1,59,13) = (/ &
+        & 0.10403e+04_rb,0.78613e+03_rb,0.60612e+03_rb,0.89444e+03_rb,0.11849e+04_rb /)
+      kbo(:, 2,59,13) = (/ &
+        & 0.10349e+04_rb,0.78531e+03_rb,0.60514e+03_rb,0.89150e+03_rb,0.11802e+04_rb /)
+      kbo(:, 3,59,13) = (/ &
+        & 0.10360e+04_rb,0.78470e+03_rb,0.60447e+03_rb,0.88985e+03_rb,0.11771e+04_rb /)
+      kbo(:, 4,59,13) = (/ &
+        & 0.10411e+04_rb,0.78531e+03_rb,0.60349e+03_rb,0.88892e+03_rb,0.11761e+04_rb /)
+      kbo(:, 5,59,13) = (/ &
+        & 0.10355e+04_rb,0.78795e+03_rb,0.60275e+03_rb,0.88833e+03_rb,0.11753e+04_rb /)
+      kbo(:, 1,13,14) = (/ &
+        & 0.12194e+04_rb,0.91192e+03_rb,0.60649e+03_rb,0.89289e+03_rb,0.11803e+04_rb /)
+      kbo(:, 2,13,14) = (/ &
+        & 0.11340e+04_rb,0.93388e+03_rb,0.60565e+03_rb,0.89163e+03_rb,0.11786e+04_rb /)
+      kbo(:, 3,13,14) = (/ &
+        & 0.11287e+04_rb,0.93154e+03_rb,0.60510e+03_rb,0.89077e+03_rb,0.11775e+04_rb /)
+      kbo(:, 4,13,14) = (/ &
+        & 0.11571e+04_rb,0.89198e+03_rb,0.60383e+03_rb,0.88977e+03_rb,0.11762e+04_rb /)
+      kbo(:, 5,13,14) = (/ &
+        & 0.11232e+04_rb,0.85932e+03_rb,0.60280e+03_rb,0.88865e+03_rb,0.11748e+04_rb /)
+      kbo(:, 1,14,14) = (/ &
+        & 0.11313e+04_rb,0.85574e+03_rb,0.60604e+03_rb,0.89259e+03_rb,0.11800e+04_rb /)
+      kbo(:, 2,14,14) = (/ &
+        & 0.11392e+04_rb,0.85278e+03_rb,0.60523e+03_rb,0.89143e+03_rb,0.11785e+04_rb /)
+      kbo(:, 3,14,14) = (/ &
+        & 0.11402e+04_rb,0.86846e+03_rb,0.60420e+03_rb,0.89055e+03_rb,0.11774e+04_rb /)
+      kbo(:, 4,14,14) = (/ &
+        & 0.11058e+04_rb,0.85128e+03_rb,0.60339e+03_rb,0.88920e+03_rb,0.11761e+04_rb /)
+      kbo(:, 5,14,14) = (/ &
+        & 0.11286e+04_rb,0.84325e+03_rb,0.60241e+03_rb,0.88842e+03_rb,0.11746e+04_rb /)
+      kbo(:, 1,15,14) = (/ &
+        & 0.11349e+04_rb,0.84417e+03_rb,0.60541e+03_rb,0.89231e+03_rb,0.11798e+04_rb /)
+      kbo(:, 2,15,14) = (/ &
+        & 0.11015e+04_rb,0.88045e+03_rb,0.60487e+03_rb,0.89125e+03_rb,0.11784e+04_rb /)
+      kbo(:, 3,15,14) = (/ &
+        & 0.11261e+04_rb,0.83776e+03_rb,0.60408e+03_rb,0.89034e+03_rb,0.11772e+04_rb /)
+      kbo(:, 4,15,14) = (/ &
+        & 0.10962e+04_rb,0.86597e+03_rb,0.60302e+03_rb,0.88937e+03_rb,0.11760e+04_rb /)
+      kbo(:, 5,15,14) = (/ &
+        & 0.10995e+04_rb,0.86095e+03_rb,0.60207e+03_rb,0.88855e+03_rb,0.11740e+04_rb /)
+      kbo(:, 1,16,14) = (/ &
+        & 0.11556e+04_rb,0.89943e+03_rb,0.60533e+03_rb,0.89241e+03_rb,0.11796e+04_rb /)
+      kbo(:, 2,16,14) = (/ &
+        & 0.10928e+04_rb,0.87845e+03_rb,0.60456e+03_rb,0.89108e+03_rb,0.11783e+04_rb /)
+      kbo(:, 3,16,14) = (/ &
+        & 0.11526e+04_rb,0.84568e+03_rb,0.60375e+03_rb,0.89014e+03_rb,0.11771e+04_rb /)
+      kbo(:, 4,16,14) = (/ &
+        & 0.11224e+04_rb,0.82958e+03_rb,0.60245e+03_rb,0.88919e+03_rb,0.11758e+04_rb /)
+      kbo(:, 5,16,14) = (/ &
+        & 0.11104e+04_rb,0.83492e+03_rb,0.60177e+03_rb,0.88796e+03_rb,0.11747e+04_rb /)
+      kbo(:, 1,17,14) = (/ &
+        & 0.11093e+04_rb,0.86391e+03_rb,0.60505e+03_rb,0.89183e+03_rb,0.11794e+04_rb /)
+      kbo(:, 2,17,14) = (/ &
+        & 0.10879e+04_rb,0.83992e+03_rb,0.60455e+03_rb,0.89093e+03_rb,0.11782e+04_rb /)
+      kbo(:, 3,17,14) = (/ &
+        & 0.11180e+04_rb,0.83675e+03_rb,0.60345e+03_rb,0.88997e+03_rb,0.11769e+04_rb /)
+      kbo(:, 4,17,14) = (/ &
+        & 0.11203e+04_rb,0.81299e+03_rb,0.60195e+03_rb,0.88902e+03_rb,0.11757e+04_rb /)
+      kbo(:, 5,17,14) = (/ &
+        & 0.10902e+04_rb,0.84755e+03_rb,0.60151e+03_rb,0.88739e+03_rb,0.11736e+04_rb /)
+      kbo(:, 1,18,14) = (/ &
+        & 0.10889e+04_rb,0.82171e+03_rb,0.60482e+03_rb,0.89199e+03_rb,0.11792e+04_rb /)
+      kbo(:, 2,18,14) = (/ &
+        & 0.10836e+04_rb,0.85518e+03_rb,0.60408e+03_rb,0.89079e+03_rb,0.11781e+04_rb /)
+      kbo(:, 3,18,14) = (/ &
+        & 0.10919e+04_rb,0.82437e+03_rb,0.60318e+03_rb,0.88981e+03_rb,0.11763e+04_rb /)
+      kbo(:, 4,18,14) = (/ &
+        & 0.11143e+04_rb,0.86811e+03_rb,0.60223e+03_rb,0.88886e+03_rb,0.11755e+04_rb /)
+      kbo(:, 5,18,14) = (/ &
+        & 0.10618e+04_rb,0.80694e+03_rb,0.60104e+03_rb,0.88718e+03_rb,0.11738e+04_rb /)
+      kbo(:, 1,19,14) = (/ &
+        & 0.10700e+04_rb,0.81179e+03_rb,0.60437e+03_rb,0.89145e+03_rb,0.11790e+04_rb /)
+      kbo(:, 2,19,14) = (/ &
+        & 0.11096e+04_rb,0.84185e+03_rb,0.60389e+03_rb,0.89066e+03_rb,0.11785e+04_rb /)
+      kbo(:, 3,19,14) = (/ &
+        & 0.10919e+04_rb,0.82575e+03_rb,0.60295e+03_rb,0.89004e+03_rb,0.11767e+04_rb /)
+      kbo(:, 4,19,14) = (/ &
+        & 0.10874e+04_rb,0.81974e+03_rb,0.60205e+03_rb,0.88835e+03_rb,0.11754e+04_rb /)
+      kbo(:, 5,19,14) = (/ &
+        & 0.11077e+04_rb,0.86723e+03_rb,0.60084e+03_rb,0.88734e+03_rb,0.11727e+04_rb /)
+      kbo(:, 1,20,14) = (/ &
+        & 0.10813e+04_rb,0.82037e+03_rb,0.60443e+03_rb,0.89128e+03_rb,0.11789e+04_rb /)
+      kbo(:, 2,20,14) = (/ &
+        & 0.10944e+04_rb,0.83718e+03_rb,0.60369e+03_rb,0.89052e+03_rb,0.11778e+04_rb /)
+      kbo(:, 3,20,14) = (/ &
+        & 0.10922e+04_rb,0.81527e+03_rb,0.60248e+03_rb,0.88953e+03_rb,0.11765e+04_rb /)
+      kbo(:, 4,20,14) = (/ &
+        & 0.10962e+04_rb,0.82815e+03_rb,0.60188e+03_rb,0.88854e+03_rb,0.11752e+04_rb /)
+      kbo(:, 5,20,14) = (/ &
+        & 0.10768e+04_rb,0.81150e+03_rb,0.60064e+03_rb,0.88711e+03_rb,0.11734e+04_rb /)
+      kbo(:, 1,21,14) = (/ &
+        & 0.10919e+04_rb,0.79941e+03_rb,0.60426e+03_rb,0.89114e+03_rb,0.11787e+04_rb /)
+      kbo(:, 2,21,14) = (/ &
+        & 0.10481e+04_rb,0.83111e+03_rb,0.60351e+03_rb,0.89037e+03_rb,0.11777e+04_rb /)
+      kbo(:, 3,21,14) = (/ &
+        & 0.10716e+04_rb,0.81475e+03_rb,0.60253e+03_rb,0.88975e+03_rb,0.11764e+04_rb /)
+      kbo(:, 4,21,14) = (/ &
+        & 0.11197e+04_rb,0.80344e+03_rb,0.60123e+03_rb,0.88837e+03_rb,0.11750e+04_rb /)
+      kbo(:, 5,21,14) = (/ &
+        & 0.10436e+04_rb,0.80977e+03_rb,0.60045e+03_rb,0.88688e+03_rb,0.11731e+04_rb /)
+      kbo(:, 1,22,14) = (/ &
+        & 0.11028e+04_rb,0.82019e+03_rb,0.60406e+03_rb,0.89099e+03_rb,0.11785e+04_rb /)
+      kbo(:, 2,22,14) = (/ &
+        & 0.10664e+04_rb,0.84127e+03_rb,0.60327e+03_rb,0.89089e+03_rb,0.11775e+04_rb /)
+      kbo(:, 3,22,14) = (/ &
+        & 0.10764e+04_rb,0.83101e+03_rb,0.60182e+03_rb,0.88920e+03_rb,0.11762e+04_rb /)
+      kbo(:, 4,22,14) = (/ &
+        & 0.10955e+04_rb,0.82928e+03_rb,0.60175e+03_rb,0.88811e+03_rb,0.11747e+04_rb /)
+      kbo(:, 5,22,14) = (/ &
+        & 0.10429e+04_rb,0.82150e+03_rb,0.60042e+03_rb,0.88653e+03_rb,0.11726e+04_rb /)
+      kbo(:, 1,23,14) = (/ &
+        & 0.10449e+04_rb,0.79677e+03_rb,0.60363e+03_rb,0.89084e+03_rb,0.11784e+04_rb /)
+      kbo(:, 2,23,14) = (/ &
+        & 0.10443e+04_rb,0.81477e+03_rb,0.60352e+03_rb,0.88994e+03_rb,0.11772e+04_rb /)
+      kbo(:, 3,23,14) = (/ &
+        & 0.10490e+04_rb,0.84026e+03_rb,0.60112e+03_rb,0.88900e+03_rb,0.11759e+04_rb /)
+      kbo(:, 4,23,14) = (/ &
+        & 0.10652e+04_rb,0.80737e+03_rb,0.60128e+03_rb,0.88783e+03_rb,0.11744e+04_rb /)
+      kbo(:, 5,23,14) = (/ &
+        & 0.10777e+04_rb,0.80975e+03_rb,0.60014e+03_rb,0.88615e+03_rb,0.11722e+04_rb /)
+      kbo(:, 1,24,14) = (/ &
+        & 0.10587e+04_rb,0.83370e+03_rb,0.60369e+03_rb,0.89067e+03_rb,0.11782e+04_rb /)
+      kbo(:, 2,24,14) = (/ &
+        & 0.10413e+04_rb,0.79049e+03_rb,0.60278e+03_rb,0.88972e+03_rb,0.11769e+04_rb /)
+      kbo(:, 3,24,14) = (/ &
+        & 0.10508e+04_rb,0.83928e+03_rb,0.60192e+03_rb,0.88879e+03_rb,0.11757e+04_rb /)
+      kbo(:, 4,24,14) = (/ &
+        & 0.10667e+04_rb,0.80304e+03_rb,0.60105e+03_rb,0.88752e+03_rb,0.11740e+04_rb /)
+      kbo(:, 5,24,14) = (/ &
+        & 0.10776e+04_rb,0.78685e+03_rb,0.59985e+03_rb,0.88574e+03_rb,0.11716e+04_rb /)
+      kbo(:, 1,25,14) = (/ &
+        & 0.10559e+04_rb,0.78648e+03_rb,0.60348e+03_rb,0.89048e+03_rb,0.11779e+04_rb /)
+      kbo(:, 2,25,14) = (/ &
+        & 0.10600e+04_rb,0.81980e+03_rb,0.60253e+03_rb,0.88951e+03_rb,0.11766e+04_rb /)
+      kbo(:, 3,25,14) = (/ &
+        & 0.10484e+04_rb,0.79331e+03_rb,0.60149e+03_rb,0.88854e+03_rb,0.11754e+04_rb /)
+      kbo(:, 4,25,14) = (/ &
+        & 0.11000e+04_rb,0.80548e+03_rb,0.60080e+03_rb,0.88717e+03_rb,0.11735e+04_rb /)
+      kbo(:, 5,25,14) = (/ &
+        & 0.11165e+04_rb,0.79968e+03_rb,0.59952e+03_rb,0.88528e+03_rb,0.11711e+04_rb /)
+      kbo(:, 1,26,14) = (/ &
+        & 0.10604e+04_rb,0.79570e+03_rb,0.60325e+03_rb,0.89026e+03_rb,0.11777e+04_rb /)
+      kbo(:, 2,26,14) = (/ &
+        & 0.10870e+04_rb,0.78311e+03_rb,0.60230e+03_rb,0.88929e+03_rb,0.11764e+04_rb /)
+      kbo(:, 3,26,14) = (/ &
+        & 0.10476e+04_rb,0.79338e+03_rb,0.60128e+03_rb,0.88826e+03_rb,0.11750e+04_rb /)
+      kbo(:, 4,26,14) = (/ &
+        & 0.10459e+04_rb,0.80175e+03_rb,0.60027e+03_rb,0.88677e+03_rb,0.11730e+04_rb /)
+      kbo(:, 5,26,14) = (/ &
+        & 0.10485e+04_rb,0.81112e+03_rb,0.59892e+03_rb,0.88476e+03_rb,0.11704e+04_rb /)
+      kbo(:, 1,27,14) = (/ &
+        & 0.10458e+04_rb,0.79457e+03_rb,0.60301e+03_rb,0.89001e+03_rb,0.11773e+04_rb /)
+      kbo(:, 2,27,14) = (/ &
+        & 0.10576e+04_rb,0.79170e+03_rb,0.60208e+03_rb,0.88906e+03_rb,0.11761e+04_rb /)
+      kbo(:, 3,27,14) = (/ &
+        & 0.10632e+04_rb,0.79464e+03_rb,0.60130e+03_rb,0.88794e+03_rb,0.11741e+04_rb /)
+      kbo(:, 4,27,14) = (/ &
+        & 0.10506e+04_rb,0.80916e+03_rb,0.60021e+03_rb,0.88633e+03_rb,0.11725e+04_rb /)
+      kbo(:, 5,27,14) = (/ &
+        & 0.10406e+04_rb,0.79035e+03_rb,0.59878e+03_rb,0.88422e+03_rb,0.11697e+04_rb /)
+      kbo(:, 1,28,14) = (/ &
+        & 0.10390e+04_rb,0.79142e+03_rb,0.60274e+03_rb,0.88940e+03_rb,0.11770e+04_rb /)
+      kbo(:, 2,28,14) = (/ &
+        & 0.10793e+04_rb,0.84664e+03_rb,0.60165e+03_rb,0.88883e+03_rb,0.11758e+04_rb /)
+      kbo(:, 3,28,14) = (/ &
+        & 0.10389e+04_rb,0.81244e+03_rb,0.60106e+03_rb,0.88760e+03_rb,0.11741e+04_rb /)
+      kbo(:, 4,28,14) = (/ &
+        & 0.10910e+04_rb,0.82250e+03_rb,0.59988e+03_rb,0.88586e+03_rb,0.11718e+04_rb /)
+      kbo(:, 5,28,14) = (/ &
+        & 0.10984e+04_rb,0.79766e+03_rb,0.59863e+03_rb,0.88510e+03_rb,0.11689e+04_rb /)
+      kbo(:, 1,29,14) = (/ &
+        & 0.10453e+04_rb,0.79421e+03_rb,0.60249e+03_rb,0.88988e+03_rb,0.11767e+04_rb /)
+      kbo(:, 2,29,14) = (/ &
+        & 0.10759e+04_rb,0.85231e+03_rb,0.59780e+03_rb,0.88856e+03_rb,0.11754e+04_rb /)
+      kbo(:, 3,29,14) = (/ &
+        & 0.10355e+04_rb,0.83260e+03_rb,0.60079e+03_rb,0.88721e+03_rb,0.11736e+04_rb /)
+      kbo(:, 4,29,14) = (/ &
+        & 0.10260e+04_rb,0.78313e+03_rb,0.59953e+03_rb,0.88535e+03_rb,0.11712e+04_rb /)
+      kbo(:, 5,29,14) = (/ &
+        & 0.10495e+04_rb,0.79101e+03_rb,0.59751e+03_rb,0.88309e+03_rb,0.11682e+04_rb /)
+      kbo(:, 1,30,14) = (/ &
+        & 0.10479e+04_rb,0.78753e+03_rb,0.60225e+03_rb,0.88928e+03_rb,0.11764e+04_rb /)
+      kbo(:, 2,30,14) = (/ &
+        & 0.10451e+04_rb,0.80563e+03_rb,0.60150e+03_rb,0.88827e+03_rb,0.11750e+04_rb /)
+      kbo(:, 3,30,14) = (/ &
+        & 0.10758e+04_rb,0.79525e+03_rb,0.60050e+03_rb,0.88643e+03_rb,0.11731e+04_rb /)
+      kbo(:, 4,30,14) = (/ &
+        & 0.10781e+04_rb,0.79929e+03_rb,0.59916e+03_rb,0.88480e+03_rb,0.11705e+04_rb /)
+      kbo(:, 5,30,14) = (/ &
+        & 0.10459e+04_rb,0.81358e+03_rb,0.59790e+03_rb,0.88220e+03_rb,0.11665e+04_rb /)
+      kbo(:, 1,31,14) = (/ &
+        & 0.10607e+04_rb,0.80146e+03_rb,0.60204e+03_rb,0.88905e+03_rb,0.11761e+04_rb /)
+      kbo(:, 2,31,14) = (/ &
+        & 0.10395e+04_rb,0.78822e+03_rb,0.60127e+03_rb,0.88793e+03_rb,0.11746e+04_rb /)
+      kbo(:, 3,31,14) = (/ &
+        & 0.10321e+04_rb,0.80923e+03_rb,0.60018e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)
+      kbo(:, 4,31,14) = (/ &
+        & 0.11042e+04_rb,0.80049e+03_rb,0.59875e+03_rb,0.88457e+03_rb,0.11697e+04_rb /)
+      kbo(:, 5,31,14) = (/ &
+        & 0.10581e+04_rb,0.80105e+03_rb,0.59750e+03_rb,0.88200e+03_rb,0.11672e+04_rb /)
+      kbo(:, 1,32,14) = (/ &
+        & 0.10889e+04_rb,0.84488e+03_rb,0.59867e+03_rb,0.88880e+03_rb,0.11757e+04_rb /)
+      kbo(:, 2,32,14) = (/ &
+        & 0.10428e+04_rb,0.79586e+03_rb,0.60101e+03_rb,0.88756e+03_rb,0.11741e+04_rb /)
+      kbo(:, 3,32,14) = (/ &
+        & 0.10671e+04_rb,0.82487e+03_rb,0.59984e+03_rb,0.88582e+03_rb,0.11718e+04_rb /)
+      kbo(:, 4,32,14) = (/ &
+        & 0.10426e+04_rb,0.83726e+03_rb,0.59809e+03_rb,0.88469e+03_rb,0.11694e+04_rb /)
+      kbo(:, 5,32,14) = (/ &
+        & 0.10522e+04_rb,0.80937e+03_rb,0.59684e+03_rb,0.88175e+03_rb,0.11659e+04_rb /)
+      kbo(:, 1,33,14) = (/ &
+        & 0.10391e+04_rb,0.79980e+03_rb,0.60166e+03_rb,0.88852e+03_rb,0.11754e+04_rb /)
+      kbo(:, 2,33,14) = (/ &
+        & 0.10719e+04_rb,0.78917e+03_rb,0.60073e+03_rb,0.88751e+03_rb,0.11736e+04_rb /)
+      kbo(:, 3,33,14) = (/ &
+        & 0.10389e+04_rb,0.82235e+03_rb,0.59947e+03_rb,0.88564e+03_rb,0.11706e+04_rb /)
+      kbo(:, 4,33,14) = (/ &
+        & 0.10819e+04_rb,0.81877e+03_rb,0.59794e+03_rb,0.88337e+03_rb,0.11676e+04_rb /)
+      kbo(:, 5,33,14) = (/ &
+        & 0.10266e+04_rb,0.78772e+03_rb,0.59642e+03_rb,0.88112e+03_rb,0.11651e+04_rb /)
+      kbo(:, 1,34,14) = (/ &
+        & 0.10675e+04_rb,0.78932e+03_rb,0.60147e+03_rb,0.88789e+03_rb,0.11750e+04_rb /)
+      kbo(:, 2,34,14) = (/ &
+        & 0.10375e+04_rb,0.79310e+03_rb,0.60047e+03_rb,0.88677e+03_rb,0.11731e+04_rb /)
+      kbo(:, 3,34,14) = (/ &
+        & 0.10378e+04_rb,0.82372e+03_rb,0.59913e+03_rb,0.88478e+03_rb,0.11704e+04_rb /)
+      kbo(:, 4,34,14) = (/ &
+        & 0.10677e+04_rb,0.78757e+03_rb,0.59836e+03_rb,0.88254e+03_rb,0.11660e+04_rb /)
+      kbo(:, 5,34,14) = (/ &
+        & 0.10419e+04_rb,0.77666e+03_rb,0.59604e+03_rb,0.87984e+03_rb,0.11644e+04_rb /)
+      kbo(:, 1,35,14) = (/ &
+        & 0.10613e+04_rb,0.80031e+03_rb,0.60136e+03_rb,0.88808e+03_rb,0.11748e+04_rb /)
+      kbo(:, 2,35,14) = (/ &
+        & 0.11118e+04_rb,0.80250e+03_rb,0.60031e+03_rb,0.88654e+03_rb,0.11732e+04_rb /)
+      kbo(:, 3,35,14) = (/ &
+        & 0.10759e+04_rb,0.83185e+03_rb,0.59892e+03_rb,0.88448e+03_rb,0.11701e+04_rb /)
+      kbo(:, 4,35,14) = (/ &
+        & 0.11049e+04_rb,0.77622e+03_rb,0.59743e+03_rb,0.88477e+03_rb,0.11680e+04_rb /)
+      kbo(:, 5,35,14) = (/ &
+        & 0.10459e+04_rb,0.78322e+03_rb,0.59581e+03_rb,0.87986e+03_rb,0.11634e+04_rb /)
+      kbo(:, 1,36,14) = (/ &
+        & 0.10396e+04_rb,0.79026e+03_rb,0.60134e+03_rb,0.88805e+03_rb,0.11748e+04_rb /)
+      kbo(:, 2,36,14) = (/ &
+        & 0.10471e+04_rb,0.80778e+03_rb,0.60028e+03_rb,0.88614e+03_rb,0.11727e+04_rb /)
+      kbo(:, 3,36,14) = (/ &
+        & 0.10450e+04_rb,0.79912e+03_rb,0.59889e+03_rb,0.88407e+03_rb,0.11700e+04_rb /)
+      kbo(:, 4,36,14) = (/ &
+        & 0.10626e+04_rb,0.80803e+03_rb,0.59740e+03_rb,0.88257e+03_rb,0.11756e+04_rb /)
+      kbo(:, 5,36,14) = (/ &
+        & 0.10609e+04_rb,0.81056e+03_rb,0.59577e+03_rb,0.87981e+03_rb,0.11634e+04_rb /)
+      kbo(:, 1,37,14) = (/ &
+        & 0.10479e+04_rb,0.79014e+03_rb,0.60145e+03_rb,0.88822e+03_rb,0.11750e+04_rb /)
+      kbo(:, 2,37,14) = (/ &
+        & 0.10744e+04_rb,0.81437e+03_rb,0.60044e+03_rb,0.88637e+03_rb,0.11730e+04_rb /)
+      kbo(:, 3,37,14) = (/ &
+        & 0.10335e+04_rb,0.79550e+03_rb,0.59909e+03_rb,0.88473e+03_rb,0.11704e+04_rb /)
+      kbo(:, 4,37,14) = (/ &
+        & 0.10410e+04_rb,0.77504e+03_rb,0.59808e+03_rb,0.88321e+03_rb,0.11674e+04_rb /)
+      kbo(:, 5,37,14) = (/ &
+        & 0.10557e+04_rb,0.79226e+03_rb,0.59599e+03_rb,0.88014e+03_rb,0.11643e+04_rb /)
+      kbo(:, 1,38,14) = (/ &
+        & 0.10418e+04_rb,0.80249e+03_rb,0.60156e+03_rb,0.88838e+03_rb,0.11752e+04_rb /)
+      kbo(:, 2,38,14) = (/ &
+        & 0.10220e+04_rb,0.82577e+03_rb,0.60060e+03_rb,0.88697e+03_rb,0.11733e+04_rb /)
+      kbo(:, 3,38,14) = (/ &
+        & 0.10502e+04_rb,0.80915e+03_rb,0.59929e+03_rb,0.88503e+03_rb,0.11708e+04_rb /)
+      kbo(:, 4,38,14) = (/ &
+        & 0.10497e+04_rb,0.81774e+03_rb,0.59826e+03_rb,0.88277e+03_rb,0.11673e+04_rb /)
+      kbo(:, 5,38,14) = (/ &
+        & 0.10771e+04_rb,0.81134e+03_rb,0.59623e+03_rb,0.88049e+03_rb,0.11648e+04_rb /)
+      kbo(:, 1,39,14) = (/ &
+        & 0.10165e+04_rb,0.77782e+03_rb,0.60118e+03_rb,0.88854e+03_rb,0.11754e+04_rb /)
+      kbo(:, 2,39,14) = (/ &
+        & 0.10531e+04_rb,0.80302e+03_rb,0.60075e+03_rb,0.88719e+03_rb,0.11736e+04_rb /)
+      kbo(:, 3,39,14) = (/ &
+        & 0.10758e+04_rb,0.78257e+03_rb,0.59949e+03_rb,0.88533e+03_rb,0.11712e+04_rb /)
+      kbo(:, 4,39,14) = (/ &
+        & 0.10568e+04_rb,0.79852e+03_rb,0.59772e+03_rb,0.88307e+03_rb,0.11677e+04_rb /)
+      kbo(:, 5,39,14) = (/ &
+        & 0.11120e+04_rb,0.79275e+03_rb,0.59645e+03_rb,0.88083e+03_rb,0.11652e+04_rb /)
+      kbo(:, 1,40,14) = (/ &
+        & 0.10416e+04_rb,0.79660e+03_rb,0.59890e+03_rb,0.88879e+03_rb,0.11758e+04_rb /)
+      kbo(:, 2,40,14) = (/ &
+        & 0.10391e+04_rb,0.79051e+03_rb,0.60100e+03_rb,0.88756e+03_rb,0.11741e+04_rb /)
+      kbo(:, 3,40,14) = (/ &
+        & 0.10420e+04_rb,0.78155e+03_rb,0.59983e+03_rb,0.88583e+03_rb,0.11718e+04_rb /)
+      kbo(:, 4,40,14) = (/ &
+        & 0.10496e+04_rb,0.79527e+03_rb,0.59833e+03_rb,0.88434e+03_rb,0.11689e+04_rb /)
+      kbo(:, 5,40,14) = (/ &
+        & 0.10264e+04_rb,0.78919e+03_rb,0.59684e+03_rb,0.88140e+03_rb,0.11660e+04_rb /)
+      kbo(:, 1,41,14) = (/ &
+        & 0.10689e+04_rb,0.80516e+03_rb,0.60103e+03_rb,0.88904e+03_rb,0.11761e+04_rb /)
+      kbo(:, 2,41,14) = (/ &
+        & 0.10416e+04_rb,0.82239e+03_rb,0.60124e+03_rb,0.88792e+03_rb,0.11746e+04_rb /)
+      kbo(:, 3,41,14) = (/ &
+        & 0.10563e+04_rb,0.81535e+03_rb,0.60016e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)
+      kbo(:, 4,41,14) = (/ &
+        & 0.10676e+04_rb,0.82044e+03_rb,0.59873e+03_rb,0.88421e+03_rb,0.11697e+04_rb /)
+      kbo(:, 5,41,14) = (/ &
+        & 0.10596e+04_rb,0.78372e+03_rb,0.59724e+03_rb,0.88164e+03_rb,0.11672e+04_rb /)
+      kbo(:, 1,42,14) = (/ &
+        & 0.10655e+04_rb,0.80320e+03_rb,0.60196e+03_rb,0.88927e+03_rb,0.11764e+04_rb /)
+      kbo(:, 2,42,14) = (/ &
+        & 0.10714e+04_rb,0.78435e+03_rb,0.60147e+03_rb,0.88825e+03_rb,0.11750e+04_rb /)
+      kbo(:, 3,42,14) = (/ &
+        & 0.10516e+04_rb,0.79392e+03_rb,0.60071e+03_rb,0.88678e+03_rb,0.11731e+04_rb /)
+      kbo(:, 4,42,14) = (/ &
+        & 0.10516e+04_rb,0.77763e+03_rb,0.59913e+03_rb,0.88479e+03_rb,0.11700e+04_rb /)
+      kbo(:, 5,42,14) = (/ &
+        & 0.10486e+04_rb,0.79390e+03_rb,0.59811e+03_rb,0.88255e+03_rb,0.11641e+04_rb /)
+      kbo(:, 1,43,14) = (/ &
+        & 0.10979e+04_rb,0.83796e+03_rb,0.60248e+03_rb,0.88955e+03_rb,0.11768e+04_rb /)
+      kbo(:, 2,43,14) = (/ &
+        & 0.11147e+04_rb,0.76548e+03_rb,0.60171e+03_rb,0.88861e+03_rb,0.11750e+04_rb /)
+      kbo(:, 3,43,14) = (/ &
+        & 0.10326e+04_rb,0.79357e+03_rb,0.60081e+03_rb,0.88729e+03_rb,0.11738e+04_rb /)
+      kbo(:, 4,43,14) = (/ &
+        & 0.10439e+04_rb,0.86155e+03_rb,0.59958e+03_rb,0.88546e+03_rb,0.11709e+04_rb /)
+      kbo(:, 5,43,14) = (/ &
+        & 0.10945e+04_rb,0.81749e+03_rb,0.59781e+03_rb,0.88321e+03_rb,0.11679e+04_rb /)
+      kbo(:, 1,44,14) = (/ &
+        & 0.10684e+04_rb,0.83027e+03_rb,0.60306e+03_rb,0.88988e+03_rb,0.11772e+04_rb /)
+      kbo(:, 2,44,14) = (/ &
+        & 0.10549e+04_rb,0.78589e+03_rb,0.60194e+03_rb,0.88895e+03_rb,0.11755e+04_rb /)
+      kbo(:, 3,44,14) = (/ &
+        & 0.10654e+04_rb,0.79705e+03_rb,0.60140e+03_rb,0.88779e+03_rb,0.11744e+04_rb /)
+      kbo(:, 4,44,14) = (/ &
+        & 0.10595e+04_rb,0.79130e+03_rb,0.59979e+03_rb,0.88614e+03_rb,0.11722e+04_rb /)
+      kbo(:, 5,44,14) = (/ &
+        & 0.10477e+04_rb,0.80597e+03_rb,0.59858e+03_rb,0.88363e+03_rb,0.11704e+04_rb /)
+      kbo(:, 1,45,14) = (/ &
+        & 0.10873e+04_rb,0.79417e+03_rb,0.60313e+03_rb,0.89023e+03_rb,0.11777e+04_rb /)
+      kbo(:, 2,45,14) = (/ &
+        & 0.10616e+04_rb,0.78299e+03_rb,0.60195e+03_rb,0.88889e+03_rb,0.11764e+04_rb /)
+      kbo(:, 3,45,14) = (/ &
+        & 0.10452e+04_rb,0.80979e+03_rb,0.60145e+03_rb,0.88823e+03_rb,0.11745e+04_rb /)
+      kbo(:, 4,45,14) = (/ &
+        & 0.10957e+04_rb,0.80372e+03_rb,0.60045e+03_rb,0.88675e+03_rb,0.11726e+04_rb /)
+      kbo(:, 5,45,14) = (/ &
+        & 0.10725e+04_rb,0.79223e+03_rb,0.59886e+03_rb,0.88476e+03_rb,0.11704e+04_rb /)
+      kbo(:, 1,46,14) = (/ &
+        & 0.10477e+04_rb,0.79958e+03_rb,0.60344e+03_rb,0.89054e+03_rb,0.11781e+04_rb /)
+      kbo(:, 2,46,14) = (/ &
+        & 0.10873e+04_rb,0.80021e+03_rb,0.60251e+03_rb,0.88958e+03_rb,0.11768e+04_rb /)
+      kbo(:, 3,46,14) = (/ &
+        & 0.10228e+04_rb,0.78903e+03_rb,0.60173e+03_rb,0.88864e+03_rb,0.11751e+04_rb /)
+      kbo(:, 4,46,14) = (/ &
+        & 0.10295e+04_rb,0.83052e+03_rb,0.60085e+03_rb,0.88734e+03_rb,0.11738e+04_rb /)
+      kbo(:, 5,46,14) = (/ &
+        & 0.10527e+04_rb,0.80434e+03_rb,0.59963e+03_rb,0.88553e+03_rb,0.11714e+04_rb /)
+      kbo(:, 1,47,14) = (/ &
+        & 0.10317e+04_rb,0.78934e+03_rb,0.60373e+03_rb,0.89119e+03_rb,0.11785e+04_rb /)
+      kbo(:, 2,47,14) = (/ &
+        & 0.10325e+04_rb,0.79125e+03_rb,0.60291e+03_rb,0.88999e+03_rb,0.11778e+04_rb /)
+      kbo(:, 3,47,14) = (/ &
+        & 0.10417e+04_rb,0.79891e+03_rb,0.60152e+03_rb,0.88904e+03_rb,0.11761e+04_rb /)
+      kbo(:, 4,47,14) = (/ &
+        & 0.10561e+04_rb,0.78901e+03_rb,0.60124e+03_rb,0.88793e+03_rb,0.11746e+04_rb /)
+      kbo(:, 5,47,14) = (/ &
+        & 0.10468e+04_rb,0.79347e+03_rb,0.59991e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)
+      kbo(:, 1,48,14) = (/ &
+        & 0.10540e+04_rb,0.78901e+03_rb,0.60401e+03_rb,0.89113e+03_rb,0.11789e+04_rb /)
+      kbo(:, 2,48,14) = (/ &
+        & 0.10320e+04_rb,0.80975e+03_rb,0.60327e+03_rb,0.89037e+03_rb,0.11779e+04_rb /)
+      kbo(:, 3,48,14) = (/ &
+        & 0.10535e+04_rb,0.79283e+03_rb,0.60233e+03_rb,0.88940e+03_rb,0.11766e+04_rb /)
+      kbo(:, 4,48,14) = (/ &
+        & 0.10485e+04_rb,0.81102e+03_rb,0.60158e+03_rb,0.88807e+03_rb,0.11753e+04_rb /)
+      kbo(:, 5,48,14) = (/ &
+        & 0.10337e+04_rb,0.82793e+03_rb,0.60064e+03_rb,0.88703e+03_rb,0.11734e+04_rb /)
+      kbo(:, 1,49,14) = (/ &
+        & 0.10304e+04_rb,0.83177e+03_rb,0.60454e+03_rb,0.89164e+03_rb,0.11796e+04_rb /)
+      kbo(:, 2,49,14) = (/ &
+        & 0.10417e+04_rb,0.78580e+03_rb,0.60359e+03_rb,0.89069e+03_rb,0.11783e+04_rb /)
+      kbo(:, 3,49,14) = (/ &
+        & 0.10725e+04_rb,0.82186e+03_rb,0.60271e+03_rb,0.88942e+03_rb,0.11771e+04_rb /)
+      kbo(:, 4,49,14) = (/ &
+        & 0.10362e+04_rb,0.80207e+03_rb,0.60065e+03_rb,0.88885e+03_rb,0.11758e+04_rb /)
+      kbo(:, 5,49,14) = (/ &
+        & 0.10383e+04_rb,0.79856e+03_rb,0.60081e+03_rb,0.88765e+03_rb,0.11743e+04_rb /)
+      kbo(:, 1,50,14) = (/ &
+        & 0.10581e+04_rb,0.78356e+03_rb,0.60457e+03_rb,0.89226e+03_rb,0.11805e+04_rb /)
+      kbo(:, 2,50,14) = (/ &
+        & 0.10447e+04_rb,0.80207e+03_rb,0.60385e+03_rb,0.89058e+03_rb,0.11786e+04_rb /)
+      kbo(:, 3,50,14) = (/ &
+        & 0.10788e+04_rb,0.82154e+03_rb,0.60308e+03_rb,0.89017e+03_rb,0.11776e+04_rb /)
+      kbo(:, 4,50,14) = (/ &
+        & 0.10695e+04_rb,0.79696e+03_rb,0.60214e+03_rb,0.88920e+03_rb,0.11763e+04_rb /)
+      kbo(:, 5,50,14) = (/ &
+        & 0.10859e+04_rb,0.79983e+03_rb,0.60140e+03_rb,0.88816e+03_rb,0.11749e+04_rb /)
+      kbo(:, 1,51,14) = (/ &
+        & 0.10459e+04_rb,0.79632e+03_rb,0.60498e+03_rb,0.89284e+03_rb,0.11812e+04_rb /)
+      kbo(:, 2,51,14) = (/ &
+        & 0.10371e+04_rb,0.78419e+03_rb,0.60411e+03_rb,0.89166e+03_rb,0.11796e+04_rb /)
+      kbo(:, 3,51,14) = (/ &
+        & 0.10657e+04_rb,0.82185e+03_rb,0.60315e+03_rb,0.89049e+03_rb,0.11780e+04_rb /)
+      kbo(:, 4,51,14) = (/ &
+        & 0.10396e+04_rb,0.78418e+03_rb,0.60197e+03_rb,0.88917e+03_rb,0.11768e+04_rb /)
+      kbo(:, 5,51,14) = (/ &
+        & 0.10354e+04_rb,0.78290e+03_rb,0.60169e+03_rb,0.88859e+03_rb,0.11755e+04_rb /)
+      kbo(:, 1,52,14) = (/ &
+        & 0.10434e+04_rb,0.78546e+03_rb,0.60574e+03_rb,0.89370e+03_rb,0.11824e+04_rb /)
+      kbo(:, 2,52,14) = (/ &
+        & 0.10665e+04_rb,0.78610e+03_rb,0.60413e+03_rb,0.89180e+03_rb,0.11798e+04_rb /)
+      kbo(:, 3,52,14) = (/ &
+        & 0.10821e+04_rb,0.78641e+03_rb,0.60367e+03_rb,0.89113e+03_rb,0.11784e+04_rb /)
+      kbo(:, 4,52,14) = (/ &
+        & 0.10514e+04_rb,0.79279e+03_rb,0.60282e+03_rb,0.88989e+03_rb,0.11772e+04_rb /)
+      kbo(:, 5,52,14) = (/ &
+        & 0.10408e+04_rb,0.77939e+03_rb,0.60170e+03_rb,0.88895e+03_rb,0.11760e+04_rb /)
+      kbo(:, 1,53,14) = (/ &
+        & 0.10497e+04_rb,0.80875e+03_rb,0.60601e+03_rb,0.89382e+03_rb,0.11825e+04_rb /)
+      kbo(:, 2,53,14) = (/ &
+        & 0.10514e+04_rb,0.81226e+03_rb,0.60441e+03_rb,0.89243e+03_rb,0.11807e+04_rb /)
+      kbo(:, 3,53,14) = (/ &
+        & 0.11137e+04_rb,0.80237e+03_rb,0.60392e+03_rb,0.89101e+03_rb,0.11787e+04_rb /)
+      kbo(:, 4,53,14) = (/ &
+        & 0.10661e+04_rb,0.79885e+03_rb,0.60292e+03_rb,0.89026e+03_rb,0.11777e+04_rb /)
+      kbo(:, 5,53,14) = (/ &
+        & 0.10324e+04_rb,0.82343e+03_rb,0.60222e+03_rb,0.88929e+03_rb,0.11764e+04_rb /)
+      kbo(:, 1,54,14) = (/ &
+        & 0.10594e+04_rb,0.86492e+03_rb,0.60646e+03_rb,0.89428e+03_rb,0.11831e+04_rb /)
+      kbo(:, 2,54,14) = (/ &
+        & 0.10303e+04_rb,0.85949e+03_rb,0.60506e+03_rb,0.89294e+03_rb,0.11813e+04_rb /)
+      kbo(:, 3,54,14) = (/ &
+        & 0.10905e+04_rb,0.84800e+03_rb,0.60416e+03_rb,0.89138e+03_rb,0.11793e+04_rb /)
+      kbo(:, 4,54,14) = (/ &
+        & 0.10438e+04_rb,0.78736e+03_rb,0.60344e+03_rb,0.89055e+03_rb,0.11781e+04_rb /)
+      kbo(:, 5,54,14) = (/ &
+        & 0.10324e+04_rb,0.83619e+03_rb,0.60252e+03_rb,0.88959e+03_rb,0.11768e+04_rb /)
+      kbo(:, 1,55,14) = (/ &
+        & 0.10463e+04_rb,0.78385e+03_rb,0.60663e+03_rb,0.89475e+03_rb,0.11838e+04_rb /)
+      kbo(:, 2,55,14) = (/ &
+        & 0.10543e+04_rb,0.79119e+03_rb,0.60552e+03_rb,0.89337e+03_rb,0.11824e+04_rb /)
+      kbo(:, 3,55,14) = (/ &
+        & 0.10391e+04_rb,0.80395e+03_rb,0.60439e+03_rb,0.89183e+03_rb,0.11799e+04_rb /)
+      kbo(:, 4,55,14) = (/ &
+        & 0.10421e+04_rb,0.79916e+03_rb,0.60368e+03_rb,0.89078e+03_rb,0.11784e+04_rb /)
+      kbo(:, 5,55,14) = (/ &
+        & 0.10909e+04_rb,0.78448e+03_rb,0.60284e+03_rb,0.88955e+03_rb,0.11777e+04_rb /)
+      kbo(:, 1,56,14) = (/ &
+        & 0.10143e+04_rb,0.81481e+03_rb,0.60727e+03_rb,0.89531e+03_rb,0.11848e+04_rb /)
+      kbo(:, 2,56,14) = (/ &
+        & 0.10240e+04_rb,0.81034e+03_rb,0.60598e+03_rb,0.89378e+03_rb,0.11825e+04_rb /)
+      kbo(:, 3,56,14) = (/ &
+        & 0.10324e+04_rb,0.78927e+03_rb,0.60463e+03_rb,0.89238e+03_rb,0.11806e+04_rb /)
+      kbo(:, 4,56,14) = (/ &
+        & 0.10273e+04_rb,0.78959e+03_rb,0.60390e+03_rb,0.89099e+03_rb,0.11787e+04_rb /)
+      kbo(:, 5,56,14) = (/ &
+        & 0.10404e+04_rb,0.80937e+03_rb,0.60290e+03_rb,0.89024e+03_rb,0.11777e+04_rb /)
+      kbo(:, 1,57,14) = (/ &
+        & 0.10408e+04_rb,0.79150e+03_rb,0.60742e+03_rb,0.89593e+03_rb,0.11860e+04_rb /)
+      kbo(:, 2,57,14) = (/ &
+        & 0.10640e+04_rb,0.82150e+03_rb,0.60641e+03_rb,0.89422e+03_rb,0.11831e+04_rb /)
+      kbo(:, 3,57,14) = (/ &
+        & 0.10551e+04_rb,0.79661e+03_rb,0.60501e+03_rb,0.89288e+03_rb,0.11813e+04_rb /)
+      kbo(:, 4,57,14) = (/ &
+        & 0.10817e+04_rb,0.79118e+03_rb,0.60413e+03_rb,0.89133e+03_rb,0.11792e+04_rb /)
+      kbo(:, 5,57,14) = (/ &
+        & 0.10370e+04_rb,0.79629e+03_rb,0.60341e+03_rb,0.89015e+03_rb,0.11781e+04_rb /)
+      kbo(:, 1,58,14) = (/ &
+        & 0.10442e+04_rb,0.84033e+03_rb,0.60809e+03_rb,0.89672e+03_rb,0.11869e+04_rb /)
+      kbo(:, 2,58,14) = (/ &
+        & 0.10934e+04_rb,0.79820e+03_rb,0.60680e+03_rb,0.89466e+03_rb,0.11837e+04_rb /)
+      kbo(:, 3,58,14) = (/ &
+        & 0.10657e+04_rb,0.80043e+03_rb,0.60544e+03_rb,0.89329e+03_rb,0.11818e+04_rb /)
+      kbo(:, 4,58,14) = (/ &
+        & 0.10223e+04_rb,0.78480e+03_rb,0.60435e+03_rb,0.89175e+03_rb,0.11798e+04_rb /)
+      kbo(:, 5,58,14) = (/ &
+        & 0.10438e+04_rb,0.81735e+03_rb,0.60364e+03_rb,0.89074e+03_rb,0.11789e+04_rb /)
+      kbo(:, 1,59,14) = (/ &
+        & 0.10513e+04_rb,0.80331e+03_rb,0.60826e+03_rb,0.89709e+03_rb,0.11883e+04_rb /)
+      kbo(:, 2,59,14) = (/ &
+        & 0.10429e+04_rb,0.81799e+03_rb,0.60696e+03_rb,0.89486e+03_rb,0.11840e+04_rb /)
+      kbo(:, 3,59,14) = (/ &
+        & 0.10400e+04_rb,0.80905e+03_rb,0.60537e+03_rb,0.89345e+03_rb,0.11830e+04_rb /)
+      kbo(:, 4,59,14) = (/ &
+        & 0.10488e+04_rb,0.79628e+03_rb,0.60443e+03_rb,0.89194e+03_rb,0.11800e+04_rb /)
+      kbo(:, 5,59,14) = (/ &
+        & 0.10795e+04_rb,0.78415e+03_rb,0.60372e+03_rb,0.89082e+03_rb,0.11785e+04_rb /)
+      kbo(:, 1,13,15) = (/ &
+        & 0.98934e+03_rb,0.75572e+03_rb,0.60810e+03_rb,0.89364e+03_rb,0.11812e+04_rb /)
+      kbo(:, 2,13,15) = (/ &
+        & 0.12809e+04_rb,0.72091e+03_rb,0.60670e+03_rb,0.89251e+03_rb,0.11797e+04_rb /)
+      kbo(:, 3,13,15) = (/ &
+        & 0.11704e+04_rb,0.77844e+03_rb,0.60529e+03_rb,0.89171e+03_rb,0.11787e+04_rb /)
+      kbo(:, 4,13,15) = (/ &
+        & 0.11159e+04_rb,0.83495e+03_rb,0.60430e+03_rb,0.89110e+03_rb,0.11779e+04_rb /)
+      kbo(:, 5,13,15) = (/ &
+        & 0.11939e+04_rb,0.93553e+03_rb,0.60355e+03_rb,0.89003e+03_rb,0.11765e+04_rb /)
+      kbo(:, 1,14,15) = (/ &
+        & 0.11963e+04_rb,0.95315e+03_rb,0.60753e+03_rb,0.89338e+03_rb,0.11810e+04_rb /)
+      kbo(:, 2,14,15) = (/ &
+        & 0.11729e+04_rb,0.92141e+03_rb,0.60616e+03_rb,0.89229e+03_rb,0.11796e+04_rb /)
+      kbo(:, 3,14,15) = (/ &
+        & 0.11471e+04_rb,0.85602e+03_rb,0.60478e+03_rb,0.89154e+03_rb,0.11786e+04_rb /)
+      kbo(:, 4,14,15) = (/ &
+        & 0.11824e+04_rb,0.88196e+03_rb,0.60401e+03_rb,0.89091e+03_rb,0.11778e+04_rb /)
+      kbo(:, 5,14,15) = (/ &
+        & 0.11271e+04_rb,0.87462e+03_rb,0.60324e+03_rb,0.89075e+03_rb,0.11763e+04_rb /)
+      kbo(:, 1,15,15) = (/ &
+        & 0.10604e+04_rb,0.90519e+03_rb,0.60703e+03_rb,0.89409e+03_rb,0.11809e+04_rb /)
+      kbo(:, 2,15,15) = (/ &
+        & 0.11577e+04_rb,0.75557e+03_rb,0.60568e+03_rb,0.89209e+03_rb,0.11795e+04_rb /)
+      kbo(:, 3,15,15) = (/ &
+        & 0.11406e+04_rb,0.81803e+03_rb,0.60438e+03_rb,0.89138e+03_rb,0.11785e+04_rb /)
+      kbo(:, 4,15,15) = (/ &
+        & 0.11847e+04_rb,0.71960e+03_rb,0.60376e+03_rb,0.89073e+03_rb,0.11790e+04_rb /)
+      kbo(:, 5,15,15) = (/ &
+        & 0.11179e+04_rb,0.81112e+03_rb,0.60296e+03_rb,0.88859e+03_rb,0.11787e+04_rb /)
+      kbo(:, 1,16,15) = (/ &
+        & 0.10356e+04_rb,0.71983e+03_rb,0.60659e+03_rb,0.89194e+03_rb,0.11820e+04_rb /)
+      kbo(:, 2,16,15) = (/ &
+        & 0.11364e+04_rb,0.76870e+03_rb,0.60526e+03_rb,0.89190e+03_rb,0.11794e+04_rb /)
+      kbo(:, 3,16,15) = (/ &
+        & 0.96034e+03_rb,0.83277e+03_rb,0.60407e+03_rb,0.89124e+03_rb,0.11785e+04_rb /)
+      kbo(:, 4,16,15) = (/ &
+        & 0.10077e+04_rb,0.87988e+03_rb,0.60354e+03_rb,0.89055e+03_rb,0.11776e+04_rb /)
+      kbo(:, 5,16,15) = (/ &
+        & 0.10422e+04_rb,0.83397e+03_rb,0.60335e+03_rb,0.88931e+03_rb,0.11759e+04_rb /)
+      kbo(:, 1,17,15) = (/ &
+        & 0.10091e+04_rb,0.77782e+03_rb,0.60621e+03_rb,0.89269e+03_rb,0.11805e+04_rb /)
+      kbo(:, 2,17,15) = (/ &
+        & 0.11716e+04_rb,0.80971e+03_rb,0.60425e+03_rb,0.89175e+03_rb,0.11793e+04_rb /)
+      kbo(:, 3,17,15) = (/ &
+        & 0.10550e+04_rb,0.78786e+03_rb,0.60385e+03_rb,0.89112e+03_rb,0.11784e+04_rb /)
+      kbo(:, 4,17,15) = (/ &
+        & 0.99990e+03_rb,0.88096e+03_rb,0.60335e+03_rb,0.89039e+03_rb,0.11774e+04_rb /)
+      kbo(:, 5,17,15) = (/ &
+        & 0.11263e+04_rb,0.73127e+03_rb,0.60311e+03_rb,0.88908e+03_rb,0.11770e+04_rb /)
+      kbo(:, 1,18,15) = (/ &
+        & 0.11151e+04_rb,0.85991e+03_rb,0.60588e+03_rb,0.89155e+03_rb,0.11804e+04_rb /)
+      kbo(:, 2,18,15) = (/ &
+        & 0.10413e+04_rb,0.70815e+03_rb,0.60458e+03_rb,0.89161e+03_rb,0.11791e+04_rb /)
+      kbo(:, 3,18,15) = (/ &
+        & 0.11058e+04_rb,0.82037e+03_rb,0.60370e+03_rb,0.89101e+03_rb,0.11783e+04_rb /)
+      kbo(:, 4,18,15) = (/ &
+        & 0.10134e+04_rb,0.64109e+03_rb,0.60383e+03_rb,0.89024e+03_rb,0.11786e+04_rb /)
+      kbo(:, 5,18,15) = (/ &
+        & 0.11497e+04_rb,0.88170e+03_rb,0.60224e+03_rb,0.88981e+03_rb,0.11767e+04_rb /)
+      kbo(:, 1,19,15) = (/ &
+        & 0.10261e+04_rb,0.82130e+03_rb,0.60625e+03_rb,0.89236e+03_rb,0.11802e+04_rb /)
+      kbo(:, 2,19,15) = (/ &
+        & 0.10077e+04_rb,0.78017e+03_rb,0.60431e+03_rb,0.89148e+03_rb,0.11778e+04_rb /)
+      kbo(:, 3,19,15) = (/ &
+        & 0.10505e+04_rb,0.75163e+03_rb,0.60422e+03_rb,0.88995e+03_rb,0.11782e+04_rb /)
+      kbo(:, 4,19,15) = (/ &
+        & 0.10498e+04_rb,0.84163e+03_rb,0.60302e+03_rb,0.89009e+03_rb,0.11772e+04_rb /)
+      kbo(:, 5,19,15) = (/ &
+        & 0.94853e+03_rb,0.71012e+03_rb,0.60269e+03_rb,0.88958e+03_rb,0.11765e+04_rb /)
+      kbo(:, 1,20,15) = (/ &
+        & 0.11198e+04_rb,0.83291e+03_rb,0.60532e+03_rb,0.89221e+03_rb,0.11814e+04_rb /)
+      kbo(:, 2,20,15) = (/ &
+        & 0.10146e+04_rb,0.70988e+03_rb,0.60473e+03_rb,0.89136e+03_rb,0.11789e+04_rb /)
+      kbo(:, 3,20,15) = (/ &
+        & 0.98440e+03_rb,0.83872e+03_rb,0.60345e+03_rb,0.89080e+03_rb,0.11781e+04_rb /)
+      kbo(:, 4,20,15) = (/ &
+        & 0.10595e+04_rb,0.75621e+03_rb,0.60286e+03_rb,0.88992e+03_rb,0.11770e+04_rb /)
+      kbo(:, 5,20,15) = (/ &
+        & 0.10274e+04_rb,0.81836e+03_rb,0.60247e+03_rb,0.88836e+03_rb,0.11749e+04_rb /)
+      kbo(:, 1,21,15) = (/ &
+        & 0.10788e+04_rb,0.78645e+03_rb,0.60506e+03_rb,0.89207e+03_rb,0.11799e+04_rb /)
+      kbo(:, 2,21,15) = (/ &
+        & 0.10852e+04_rb,0.74295e+03_rb,0.60386e+03_rb,0.89125e+03_rb,0.11788e+04_rb /)
+      kbo(:, 3,21,15) = (/ &
+        & 0.10428e+04_rb,0.82396e+03_rb,0.60333e+03_rb,0.88973e+03_rb,0.11780e+04_rb /)
+      kbo(:, 4,21,15) = (/ &
+        & 0.10018e+04_rb,0.87387e+03_rb,0.60336e+03_rb,0.89071e+03_rb,0.11768e+04_rb /)
+      kbo(:, 5,21,15) = (/ &
+        & 0.11155e+04_rb,0.79293e+03_rb,0.60225e+03_rb,0.88809e+03_rb,0.11746e+04_rb /)
+      kbo(:, 1,22,15) = (/ &
+        & 0.10301e+04_rb,0.79445e+03_rb,0.60539e+03_rb,0.89186e+03_rb,0.11797e+04_rb /)
+      kbo(:, 2,22,15) = (/ &
+        & 0.11174e+04_rb,0.68851e+03_rb,0.60364e+03_rb,0.88919e+03_rb,0.11787e+04_rb /)
+      kbo(:, 3,22,15) = (/ &
+        & 0.10845e+04_rb,0.72821e+03_rb,0.60320e+03_rb,0.89053e+03_rb,0.11779e+04_rb /)
+      kbo(:, 4,22,15) = (/ &
+        & 0.94182e+03_rb,0.74129e+03_rb,0.60185e+03_rb,0.88948e+03_rb,0.11777e+04_rb /)
+      kbo(:, 5,22,15) = (/ &
+        & 0.11256e+04_rb,0.74069e+03_rb,0.60323e+03_rb,0.88766e+03_rb,0.11740e+04_rb /)
+      kbo(:, 1,23,15) = (/ &
+        & 0.11218e+04_rb,0.85968e+03_rb,0.60443e+03_rb,0.89167e+03_rb,0.11795e+04_rb /)
+      kbo(:, 2,23,15) = (/ &
+        & 0.10449e+04_rb,0.80739e+03_rb,0.60218e+03_rb,0.89100e+03_rb,0.11785e+04_rb /)
+      kbo(:, 3,23,15) = (/ &
+        & 0.11277e+04_rb,0.69098e+03_rb,0.60306e+03_rb,0.89036e+03_rb,0.11777e+04_rb /)
+      kbo(:, 4,23,15) = (/ &
+        & 0.10580e+04_rb,0.81384e+03_rb,0.60228e+03_rb,0.88919e+03_rb,0.11761e+04_rb /)
+      kbo(:, 5,23,15) = (/ &
+        & 0.10279e+04_rb,0.82530e+03_rb,0.60094e+03_rb,0.88718e+03_rb,0.11734e+04_rb /)
+      kbo(:, 1,24,15) = (/ &
+        & 0.10227e+04_rb,0.68179e+03_rb,0.60412e+03_rb,0.89149e+03_rb,0.11792e+04_rb /)
+      kbo(:, 2,24,15) = (/ &
+        & 0.11518e+04_rb,0.80624e+03_rb,0.60338e+03_rb,0.89088e+03_rb,0.11784e+04_rb /)
+      kbo(:, 3,24,15) = (/ &
+        & 0.10788e+04_rb,0.70820e+03_rb,0.60290e+03_rb,0.89016e+03_rb,0.11787e+04_rb /)
+      kbo(:, 4,24,15) = (/ &
+        & 0.10466e+04_rb,0.82233e+03_rb,0.60268e+03_rb,0.88884e+03_rb,0.11757e+04_rb /)
+      kbo(:, 5,24,15) = (/ &
+        & 0.10066e+04_rb,0.82618e+03_rb,0.60057e+03_rb,0.88665e+03_rb,0.11740e+04_rb /)
+      kbo(:, 1,25,15) = (/ &
+        & 0.10780e+04_rb,0.80937e+03_rb,0.60386e+03_rb,0.89131e+03_rb,0.11790e+04_rb /)
+      kbo(:, 2,25,15) = (/ &
+        & 0.10199e+04_rb,0.81059e+03_rb,0.60327e+03_rb,0.89075e+03_rb,0.11782e+04_rb /)
+      kbo(:, 3,25,15) = (/ &
+        & 0.11207e+04_rb,0.80162e+03_rb,0.60338e+03_rb,0.88992e+03_rb,0.11771e+04_rb /)
+      kbo(:, 4,25,15) = (/ &
+        & 0.97495e+03_rb,0.78589e+03_rb,0.60305e+03_rb,0.88845e+03_rb,0.11751e+04_rb /)
+      kbo(:, 5,25,15) = (/ &
+        & 0.95428e+03_rb,0.80945e+03_rb,0.60015e+03_rb,0.88605e+03_rb,0.11720e+04_rb /)
+      kbo(:, 1,26,15) = (/ &
+        & 0.10862e+04_rb,0.78235e+03_rb,0.60361e+03_rb,0.89115e+03_rb,0.11801e+04_rb /)
+      kbo(:, 2,26,15) = (/ &
+        & 0.91581e+03_rb,0.82546e+03_rb,0.60381e+03_rb,0.89059e+03_rb,0.11780e+04_rb /)
+      kbo(:, 3,26,15) = (/ &
+        & 0.10920e+04_rb,0.84813e+03_rb,0.60253e+03_rb,0.88964e+03_rb,0.11767e+04_rb /)
+      kbo(:, 4,26,15) = (/ &
+        & 0.11174e+04_rb,0.83078e+03_rb,0.60207e+03_rb,0.88892e+03_rb,0.11745e+04_rb /)
+      kbo(:, 5,26,15) = (/ &
+        & 0.11159e+04_rb,0.75128e+03_rb,0.59967e+03_rb,0.88536e+03_rb,0.11723e+04_rb /)
+      kbo(:, 1,27,15) = (/ &
+        & 0.10835e+04_rb,0.80424e+03_rb,0.60343e+03_rb,0.89101e+03_rb,0.11786e+04_rb /)
+      kbo(:, 2,27,15) = (/ &
+        & 0.10910e+04_rb,0.86525e+03_rb,0.60302e+03_rb,0.89041e+03_rb,0.11778e+04_rb /)
+      kbo(:, 3,27,15) = (/ &
+        & 0.10210e+04_rb,0.77642e+03_rb,0.60231e+03_rb,0.89027e+03_rb,0.11763e+04_rb /)
+      kbo(:, 4,27,15) = (/ &
+        & 0.10645e+04_rb,0.80598e+03_rb,0.60105e+03_rb,0.88742e+03_rb,0.11751e+04_rb /)
+      kbo(:, 5,27,15) = (/ &
+        & 0.10451e+04_rb,0.82023e+03_rb,0.59981e+03_rb,0.88559e+03_rb,0.11701e+04_rb /)
+      kbo(:, 1,28,15) = (/ &
+        & 0.10856e+04_rb,0.83991e+03_rb,0.60332e+03_rb,0.89088e+03_rb,0.11784e+04_rb /)
+      kbo(:, 2,28,15) = (/ &
+        & 0.93268e+03_rb,0.70779e+03_rb,0.60288e+03_rb,0.89019e+03_rb,0.11788e+04_rb /)
+      kbo(:, 3,28,15) = (/ &
+        & 0.11243e+04_rb,0.76544e+03_rb,0.60205e+03_rb,0.88894e+03_rb,0.11758e+04_rb /)
+      kbo(:, 4,28,15) = (/ &
+        & 0.10096e+04_rb,0.72189e+03_rb,0.60064e+03_rb,0.88682e+03_rb,0.11730e+04_rb /)
+      kbo(:, 5,28,15) = (/ &
+        & 0.88490e+03_rb,0.83821e+03_rb,0.59801e+03_rb,0.88198e+03_rb,0.11692e+04_rb /)
+      kbo(:, 1,29,15) = (/ &
+        & 0.10218e+04_rb,0.78897e+03_rb,0.60322e+03_rb,0.88978e+03_rb,0.11783e+04_rb /)
+      kbo(:, 2,29,15) = (/ &
+        & 0.97223e+03_rb,0.70803e+03_rb,0.60270e+03_rb,0.88994e+03_rb,0.11772e+04_rb /)
+      kbo(:, 3,29,15) = (/ &
+        & 0.10729e+04_rb,0.71638e+03_rb,0.60175e+03_rb,0.88850e+03_rb,0.11752e+04_rb /)
+      kbo(:, 4,29,15) = (/ &
+        & 0.10369e+04_rb,0.79357e+03_rb,0.60017e+03_rb,0.88614e+03_rb,0.11734e+04_rb /)
+      kbo(:, 5,29,15) = (/ &
+        & 0.10748e+04_rb,0.83591e+03_rb,0.59814e+03_rb,0.88321e+03_rb,0.11671e+04_rb /)
+      kbo(:, 1,30,15) = (/ &
+        & 0.10681e+04_rb,0.78838e+03_rb,0.60311e+03_rb,0.89058e+03_rb,0.11780e+04_rb /)
+      kbo(:, 2,30,15) = (/ &
+        & 0.10690e+04_rb,0.81372e+03_rb,0.60250e+03_rb,0.88965e+03_rb,0.11768e+04_rb /)
+      kbo(:, 3,30,15) = (/ &
+        & 0.10330e+04_rb,0.79065e+03_rb,0.60271e+03_rb,0.88800e+03_rb,0.11759e+04_rb /)
+      kbo(:, 4,30,15) = (/ &
+        & 0.99812e+03_rb,0.80751e+03_rb,0.60032e+03_rb,0.88541e+03_rb,0.11712e+04_rb /)
+      kbo(:, 5,30,15) = (/ &
+        & 0.10394e+04_rb,0.71741e+03_rb,0.59705e+03_rb,0.88643e+03_rb,0.11676e+04_rb /)
+      kbo(:, 1,31,15) = (/ &
+        & 0.10025e+04_rb,0.73187e+03_rb,0.60298e+03_rb,0.89039e+03_rb,0.11778e+04_rb /)
+      kbo(:, 2,31,15) = (/ &
+        & 0.11099e+04_rb,0.74280e+03_rb,0.60227e+03_rb,0.88930e+03_rb,0.11763e+04_rb /)
+      kbo(:, 3,31,15) = (/ &
+        & 0.10884e+04_rb,0.79617e+03_rb,0.60102e+03_rb,0.88838e+03_rb,0.11738e+04_rb /)
+      kbo(:, 4,31,15) = (/ &
+        & 0.90245e+03_rb,0.76637e+03_rb,0.59915e+03_rb,0.88368e+03_rb,0.11701e+04_rb /)
+      kbo(:, 5,31,15) = (/ &
+        & 0.10031e+04_rb,0.78751e+03_rb,0.59673e+03_rb,0.89640e+03_rb,0.11644e+04_rb /)
+      kbo(:, 1,32,15) = (/ &
+        & 0.87663e+03_rb,0.68400e+03_rb,0.60283e+03_rb,0.89016e+03_rb,0.11775e+04_rb /)
+      kbo(:, 2,32,15) = (/ &
+        & 0.10467e+04_rb,0.83071e+03_rb,0.60330e+03_rb,0.88890e+03_rb,0.11758e+04_rb /)
+      kbo(:, 3,32,15) = (/ &
+        & 0.97045e+03_rb,0.72881e+03_rb,0.60123e+03_rb,0.88677e+03_rb,0.11730e+04_rb /)
+      kbo(:, 4,32,15) = (/ &
+        & 0.11080e+04_rb,0.69141e+03_rb,0.59860e+03_rb,0.88193e+03_rb,0.11679e+04_rb /)
+      kbo(:, 5,32,15) = (/ &
+        & 0.10206e+04_rb,0.73037e+03_rb,0.59837e+03_rb,0.88358e+03_rb,0.11726e+04_rb /)
+      kbo(:, 1,33,15) = (/ &
+        & 0.10520e+04_rb,0.78807e+03_rb,0.60265e+03_rb,0.89086e+03_rb,0.11771e+04_rb /)
+      kbo(:, 2,33,15) = (/ &
+        & 0.98139e+03_rb,0.81175e+03_rb,0.60169e+03_rb,0.88843e+03_rb,0.11752e+04_rb /)
+      kbo(:, 3,33,15) = (/ &
+        & 0.11223e+04_rb,0.75994e+03_rb,0.60074e+03_rb,0.88510e+03_rb,0.11720e+04_rb /)
+      kbo(:, 4,33,15) = (/ &
+        & 0.10271e+04_rb,0.75564e+03_rb,0.59806e+03_rb,0.88218e+03_rb,0.11708e+04_rb /)
+      kbo(:, 5,33,15) = (/ &
+        & 0.10438e+04_rb,0.78527e+03_rb,0.59677e+03_rb,0.88217e+03_rb,0.11682e+04_rb /)
+      kbo(:, 1,34,15) = (/ &
+        & 0.10293e+04_rb,0.82175e+03_rb,0.60313e+03_rb,0.88963e+03_rb,0.11768e+04_rb /)
+      kbo(:, 2,34,15) = (/ &
+        & 0.11086e+04_rb,0.80472e+03_rb,0.60138e+03_rb,0.88797e+03_rb,0.11746e+04_rb /)
+      kbo(:, 3,34,15) = (/ &
+        & 0.10235e+04_rb,0.72497e+03_rb,0.60029e+03_rb,0.88634e+03_rb,0.11724e+04_rb /)
+      kbo(:, 4,34,15) = (/ &
+        & 0.10022e+04_rb,0.79360e+03_rb,0.59703e+03_rb,0.88927e+03_rb,0.11777e+04_rb /)
+      kbo(:, 5,34,15) = (/ &
+        & 0.11107e+04_rb,0.84019e+03_rb,0.59650e+03_rb,0.88082e+03_rb,0.11651e+04_rb /)
+      kbo(:, 1,35,15) = (/ &
+        & 0.10782e+04_rb,0.81052e+03_rb,0.60236e+03_rb,0.89138e+03_rb,0.11766e+04_rb /)
+      kbo(:, 2,35,15) = (/ &
+        & 0.89922e+03_rb,0.74859e+03_rb,0.60119e+03_rb,0.88769e+03_rb,0.11729e+04_rb /)
+      kbo(:, 3,35,15) = (/ &
+        & 0.10088e+04_rb,0.71209e+03_rb,0.59938e+03_rb,0.88499e+03_rb,0.11706e+04_rb /)
+      kbo(:, 4,35,15) = (/ &
+        & 0.96175e+03_rb,0.77055e+03_rb,0.60072e+03_rb,0.87852e+03_rb,0.11710e+04_rb /)
+      kbo(:, 5,35,15) = (/ &
+        & 0.10310e+04_rb,0.84426e+03_rb,0.59635e+03_rb,0.88059e+03_rb,0.11648e+04_rb /)
+      kbo(:, 1,36,15) = (/ &
+        & 0.10188e+04_rb,0.85190e+03_rb,0.60234e+03_rb,0.88943e+03_rb,0.11765e+04_rb /)
+      kbo(:, 2,36,15) = (/ &
+        & 0.10154e+04_rb,0.76964e+03_rb,0.60245e+03_rb,0.88859e+03_rb,0.11741e+04_rb /)
+      kbo(:, 3,36,15) = (/ &
+        & 0.10902e+04_rb,0.77130e+03_rb,0.59998e+03_rb,0.88588e+03_rb,0.11705e+04_rb /)
+      kbo(:, 4,36,15) = (/ &
+        & 0.98172e+03_rb,0.79246e+03_rb,0.59876e+03_rb,0.89371e+03_rb,0.11495e+04_rb /)
+      kbo(:, 5,36,15) = (/ &
+        & 0.10409e+04_rb,0.75260e+03_rb,0.59632e+03_rb,0.88055e+03_rb,0.11660e+04_rb /)
+      kbo(:, 1,37,15) = (/ &
+        & 0.10398e+04_rb,0.81024e+03_rb,0.60310e+03_rb,0.88960e+03_rb,0.11767e+04_rb /)
+      kbo(:, 2,37,15) = (/ &
+        & 0.94253e+03_rb,0.72207e+03_rb,0.60199e+03_rb,0.88792e+03_rb,0.11745e+04_rb /)
+      kbo(:, 3,37,15) = (/ &
+        & 0.11326e+04_rb,0.78984e+03_rb,0.60024e+03_rb,0.88532e+03_rb,0.11710e+04_rb /)
+      kbo(:, 4,37,15) = (/ &
+        & 0.10789e+04_rb,0.84320e+03_rb,0.59634e+03_rb,0.88350e+03_rb,0.11688e+04_rb /)
+      kbo(:, 5,37,15) = (/ &
+        & 0.10084e+04_rb,0.82623e+03_rb,0.59647e+03_rb,0.88078e+03_rb,0.11651e+04_rb /)
+      kbo(:, 1,38,15) = (/ &
+        & 0.99835e+03_rb,0.77031e+03_rb,0.60321e+03_rb,0.88977e+03_rb,0.11782e+04_rb /)
+      kbo(:, 2,38,15) = (/ &
+        & 0.11135e+04_rb,0.73046e+03_rb,0.60283e+03_rb,0.88917e+03_rb,0.11749e+04_rb /)
+      kbo(:, 3,38,15) = (/ &
+        & 0.10419e+04_rb,0.72620e+03_rb,0.59987e+03_rb,0.88669e+03_rb,0.11716e+04_rb /)
+      kbo(:, 4,38,15) = (/ &
+        & 0.10631e+04_rb,0.75245e+03_rb,0.59721e+03_rb,0.88572e+03_rb,0.11692e+04_rb /)
+      kbo(:, 5,38,15) = (/ &
+        & 0.10228e+04_rb,0.73209e+03_rb,0.59792e+03_rb,0.88102e+03_rb,0.11654e+04_rb /)
+      kbo(:, 1,39,15) = (/ &
+        & 0.10910e+04_rb,0.86853e+03_rb,0.60266e+03_rb,0.88992e+03_rb,0.11772e+04_rb /)
+      kbo(:, 2,39,15) = (/ &
+        & 0.10519e+04_rb,0.73802e+03_rb,0.60236e+03_rb,0.88944e+03_rb,0.11753e+04_rb /)
+      kbo(:, 3,39,15) = (/ &
+        & 0.90206e+03_rb,0.82442e+03_rb,0.60079e+03_rb,0.88708e+03_rb,0.11721e+04_rb /)
+      kbo(:, 4,39,15) = (/ &
+        & 0.10954e+04_rb,0.83033e+03_rb,0.59811e+03_rb,0.88319e+03_rb,0.11696e+04_rb /)
+      kbo(:, 5,39,15) = (/ &
+        & 0.92773e+03_rb,0.79134e+03_rb,0.59808e+03_rb,0.88316e+03_rb,0.11657e+04_rb /)
+      kbo(:, 1,40,15) = (/ &
+        & 0.10887e+04_rb,0.78119e+03_rb,0.60281e+03_rb,0.89016e+03_rb,0.11775e+04_rb /)
+      kbo(:, 2,40,15) = (/ &
+        & 0.10361e+04_rb,0.78964e+03_rb,0.60199e+03_rb,0.88890e+03_rb,0.11758e+04_rb /)
+      kbo(:, 3,40,15) = (/ &
+        & 0.10674e+04_rb,0.81250e+03_rb,0.60058e+03_rb,0.88678e+03_rb,0.11730e+04_rb /)
+      kbo(:, 4,40,15) = (/ &
+        & 0.11076e+04_rb,0.76250e+03_rb,0.59989e+03_rb,0.88480e+03_rb,0.11679e+04_rb /)
+      kbo(:, 5,40,15) = (/ &
+        & 0.11154e+04_rb,0.83280e+03_rb,0.59900e+03_rb,0.88168e+03_rb,0.11814e+04_rb /)
+      kbo(:, 1,41,15) = (/ &
+        & 0.10350e+04_rb,0.79893e+03_rb,0.60296e+03_rb,0.89038e+03_rb,0.11778e+04_rb /)
+      kbo(:, 2,41,15) = (/ &
+        & 0.10104e+04_rb,0.69640e+03_rb,0.60225e+03_rb,0.88929e+03_rb,0.11763e+04_rb /)
+      kbo(:, 3,41,15) = (/ &
+        & 0.10193e+04_rb,0.78110e+03_rb,0.60100e+03_rb,0.88741e+03_rb,0.11751e+04_rb /)
+      kbo(:, 4,41,15) = (/ &
+        & 0.10785e+04_rb,0.73450e+03_rb,0.59977e+03_rb,0.88368e+03_rb,0.11701e+04_rb /)
+      kbo(:, 5,41,15) = (/ &
+        & 0.96003e+03_rb,0.80480e+03_rb,0.59865e+03_rb,0.90400e+03_rb,0.11833e+04_rb /)
+      kbo(:, 1,42,15) = (/ &
+        & 0.97569e+03_rb,0.77685e+03_rb,0.60307e+03_rb,0.89056e+03_rb,0.11793e+04_rb /)
+      kbo(:, 2,42,15) = (/ &
+        & 0.98796e+03_rb,0.83953e+03_rb,0.60247e+03_rb,0.88963e+03_rb,0.11768e+04_rb /)
+      kbo(:, 3,42,15) = (/ &
+        & 0.10852e+04_rb,0.82427e+03_rb,0.60332e+03_rb,0.88798e+03_rb,0.11746e+04_rb /)
+      kbo(:, 4,42,15) = (/ &
+        & 0.10360e+04_rb,0.83188e+03_rb,0.59965e+03_rb,0.88636e+03_rb,0.11712e+04_rb /)
+      kbo(:, 5,42,15) = (/ &
+        & 0.10125e+04_rb,0.74885e+03_rb,0.59702e+03_rb,0.88356e+03_rb,0.11676e+04_rb /)
+      kbo(:, 1,43,15) = (/ &
+        & 0.91082e+03_rb,0.72514e+03_rb,0.60320e+03_rb,0.89075e+03_rb,0.11796e+04_rb /)
+      kbo(:, 2,43,15) = (/ &
+        & 0.82029e+03_rb,0.80137e+03_rb,0.60335e+03_rb,0.88998e+03_rb,0.11773e+04_rb /)
+      kbo(:, 3,43,15) = (/ &
+        & 0.11298e+04_rb,0.78950e+03_rb,0.60243e+03_rb,0.88859e+03_rb,0.11754e+04_rb /)
+      kbo(:, 4,43,15) = (/ &
+        & 0.10717e+04_rb,0.65904e+03_rb,0.60090e+03_rb,0.88726e+03_rb,0.11724e+04_rb /)
+      kbo(:, 5,43,15) = (/ &
+        & 0.89290e+03_rb,0.78779e+03_rb,0.59823e+03_rb,0.88240e+03_rb,0.11774e+04_rb /)
+      kbo(:, 1,44,15) = (/ &
+        & 0.10292e+04_rb,0.72935e+03_rb,0.60266e+03_rb,0.89093e+03_rb,0.11785e+04_rb /)
+      kbo(:, 2,44,15) = (/ &
+        & 0.10616e+04_rb,0.76323e+03_rb,0.60355e+03_rb,0.89030e+03_rb,0.11790e+04_rb /)
+      kbo(:, 3,44,15) = (/ &
+        & 0.10058e+04_rb,0.82082e+03_rb,0.60215e+03_rb,0.88915e+03_rb,0.11762e+04_rb /)
+      kbo(:, 4,44,15) = (/ &
+        & 0.96216e+03_rb,0.76914e+03_rb,0.60084e+03_rb,0.88814e+03_rb,0.11735e+04_rb /)
+      kbo(:, 5,44,15) = (/ &
+        & 0.10069e+04_rb,0.76998e+03_rb,0.59893e+03_rb,0.88624e+03_rb,0.11672e+04_rb /)
+      kbo(:, 1,45,15) = (/ &
+        & 0.92082e+03_rb,0.79879e+03_rb,0.60350e+03_rb,0.89110e+03_rb,0.11788e+04_rb /)
+      kbo(:, 2,45,15) = (/ &
+        & 0.96551e+03_rb,0.79963e+03_rb,0.60307e+03_rb,0.89055e+03_rb,0.11780e+04_rb /)
+      kbo(:, 3,45,15) = (/ &
+        & 0.10337e+04_rb,0.76320e+03_rb,0.60246e+03_rb,0.88962e+03_rb,0.11768e+04_rb /)
+      kbo(:, 4,45,15) = (/ &
+        & 0.97219e+03_rb,0.72677e+03_rb,0.60201e+03_rb,0.88795e+03_rb,0.11746e+04_rb /)
+      kbo(:, 5,45,15) = (/ &
+        & 0.10146e+04_rb,0.80892e+03_rb,0.59962e+03_rb,0.88632e+03_rb,0.11711e+04_rb /)
+      kbo(:, 1,46,15) = (/ &
+        & 0.10772e+04_rb,0.81655e+03_rb,0.60383e+03_rb,0.89135e+03_rb,0.11792e+04_rb /)
+      kbo(:, 2,46,15) = (/ &
+        & 0.98671e+03_rb,0.73523e+03_rb,0.60321e+03_rb,0.89077e+03_rb,0.11796e+04_rb /)
+      kbo(:, 3,46,15) = (/ &
+        & 0.10348e+04_rb,0.84026e+03_rb,0.60272e+03_rb,0.89002e+03_rb,0.11773e+04_rb /)
+      kbo(:, 4,46,15) = (/ &
+        & 0.11018e+04_rb,0.66661e+03_rb,0.60312e+03_rb,0.88865e+03_rb,0.11755e+04_rb /)
+      kbo(:, 5,46,15) = (/ &
+        & 0.10012e+04_rb,0.71404e+03_rb,0.60161e+03_rb,0.88639e+03_rb,0.11725e+04_rb /)
+      kbo(:, 1,47,15) = (/ &
+        & 0.10560e+04_rb,0.78520e+03_rb,0.60429e+03_rb,0.89072e+03_rb,0.11796e+04_rb /)
+      kbo(:, 2,47,15) = (/ &
+        & 0.10627e+04_rb,0.82754e+03_rb,0.60335e+03_rb,0.89097e+03_rb,0.11773e+04_rb /)
+      kbo(:, 3,47,15) = (/ &
+        & 0.10705e+04_rb,0.76570e+03_rb,0.60295e+03_rb,0.89038e+03_rb,0.11791e+04_rb /)
+      kbo(:, 4,47,15) = (/ &
+        & 0.11051e+04_rb,0.83346e+03_rb,0.60225e+03_rb,0.89026e+03_rb,0.11789e+04_rb /)
+      kbo(:, 5,47,15) = (/ &
+        & 0.10627e+04_rb,0.79957e+03_rb,0.60100e+03_rb,0.88742e+03_rb,0.11738e+04_rb /)
+      kbo(:, 1,48,15) = (/ &
+        & 0.10526e+04_rb,0.83431e+03_rb,0.60478e+03_rb,0.89205e+03_rb,0.11801e+04_rb /)
+      kbo(:, 2,48,15) = (/ &
+        & 0.11375e+04_rb,0.74537e+03_rb,0.60363e+03_rb,0.89121e+03_rb,0.11790e+04_rb /)
+      kbo(:, 3,48,15) = (/ &
+        & 0.10571e+04_rb,0.77077e+03_rb,0.60313e+03_rb,0.89066e+03_rb,0.11782e+04_rb /)
+      kbo(:, 4,48,15) = (/ &
+        & 0.10694e+04_rb,0.73604e+03_rb,0.60258e+03_rb,0.88981e+03_rb,0.11770e+04_rb /)
+      kbo(:, 5,48,15) = (/ &
+        & 0.11062e+04_rb,0.66828e+03_rb,0.60158e+03_rb,0.88925e+03_rb,0.11750e+04_rb /)
+      kbo(:, 1,49,15) = (/ &
+        & 0.10727e+04_rb,0.73859e+03_rb,0.60462e+03_rb,0.89249e+03_rb,0.11807e+04_rb /)
+      kbo(:, 2,49,15) = (/ &
+        & 0.11006e+04_rb,0.84446e+03_rb,0.60404e+03_rb,0.89152e+03_rb,0.11794e+04_rb /)
+      kbo(:, 3,49,15) = (/ &
+        & 0.96096e+03_rb,0.73858e+03_rb,0.60393e+03_rb,0.89088e+03_rb,0.11785e+04_rb /)
+      kbo(:, 4,49,15) = (/ &
+        & 0.11140e+04_rb,0.80464e+03_rb,0.60285e+03_rb,0.89021e+03_rb,0.11776e+04_rb /)
+      kbo(:, 5,49,15) = (/ &
+        & 0.10928e+04_rb,0.75297e+03_rb,0.60205e+03_rb,0.88996e+03_rb,0.11760e+04_rb /)
+      kbo(:, 1,50,15) = (/ &
+        & 0.10626e+04_rb,0.84953e+03_rb,0.60572e+03_rb,0.89295e+03_rb,0.11814e+04_rb /)
+      kbo(:, 2,50,15) = (/ &
+        & 0.11017e+04_rb,0.71824e+03_rb,0.60451e+03_rb,0.89185e+03_rb,0.11811e+04_rb /)
+      kbo(:, 3,50,15) = (/ &
+        & 0.10336e+04_rb,0.71570e+03_rb,0.60345e+03_rb,0.89107e+03_rb,0.11800e+04_rb /)
+      kbo(:, 4,50,15) = (/ &
+        & 0.95200e+03_rb,0.76482e+03_rb,0.60304e+03_rb,0.89051e+03_rb,0.11793e+04_rb /)
+      kbo(:, 5,50,15) = (/ &
+        & 0.96988e+03_rb,0.83512e+03_rb,0.60306e+03_rb,0.88954e+03_rb,0.11767e+04_rb /)
+      kbo(:, 1,51,15) = (/ &
+        & 0.11017e+04_rb,0.77329e+03_rb,0.60615e+03_rb,0.89371e+03_rb,0.11825e+04_rb /)
+      kbo(:, 2,51,15) = (/ &
+        & 0.10950e+04_rb,0.81479e+03_rb,0.60496e+03_rb,0.89123e+03_rb,0.11790e+04_rb /)
+      kbo(:, 3,51,15) = (/ &
+        & 0.99893e+03_rb,0.69452e+03_rb,0.60377e+03_rb,0.89131e+03_rb,0.11791e+04_rb /)
+      kbo(:, 4,51,15) = (/ &
+        & 0.10704e+04_rb,0.82834e+03_rb,0.60319e+03_rb,0.89074e+03_rb,0.11783e+04_rb /)
+      kbo(:, 5,51,15) = (/ &
+        & 0.10391e+04_rb,0.80716e+03_rb,0.60333e+03_rb,0.89092e+03_rb,0.11772e+04_rb /)
+      kbo(:, 1,52,15) = (/ &
+        & 0.10358e+04_rb,0.83681e+03_rb,0.60593e+03_rb,0.89390e+03_rb,0.11828e+04_rb /)
+      kbo(:, 2,52,15) = (/ &
+        & 0.95423e+03_rb,0.78599e+03_rb,0.60540e+03_rb,0.89262e+03_rb,0.11809e+04_rb /)
+      kbo(:, 3,52,15) = (/ &
+        & 0.98439e+03_rb,0.83257e+03_rb,0.60417e+03_rb,0.89064e+03_rb,0.11795e+04_rb /)
+      kbo(:, 4,52,15) = (/ &
+        & 0.10548e+04_rb,0.77074e+03_rb,0.60331e+03_rb,0.89093e+03_rb,0.11786e+04_rb /)
+      kbo(:, 5,52,15) = (/ &
+        & 0.10358e+04_rb,0.81478e+03_rb,0.60291e+03_rb,0.89030e+03_rb,0.11777e+04_rb /)
+      kbo(:, 1,53,15) = (/ &
+        & 0.96204e+03_rb,0.74448e+03_rb,0.60716e+03_rb,0.89629e+03_rb,0.11860e+04_rb /)
+      kbo(:, 2,53,15) = (/ &
+        & 0.10872e+04_rb,0.75126e+03_rb,0.60583e+03_rb,0.89310e+03_rb,0.11816e+04_rb /)
+      kbo(:, 3,53,15) = (/ &
+        & 0.90617e+03_rb,0.75210e+03_rb,0.60463e+03_rb,0.89194e+03_rb,0.11800e+04_rb /)
+      kbo(:, 4,53,15) = (/ &
+        & 0.97991e+03_rb,0.76565e+03_rb,0.60352e+03_rb,0.89113e+03_rb,0.11788e+04_rb /)
+      kbo(:, 5,53,15) = (/ &
+        & 0.10425e+04_rb,0.76988e+03_rb,0.60308e+03_rb,0.89058e+03_rb,0.11793e+04_rb /)
+      kbo(:, 1,54,15) = (/ &
+        & 0.10112e+04_rb,0.55645e+03_rb,0.60785e+03_rb,0.89766e+03_rb,0.11878e+04_rb /)
+      kbo(:, 2,54,15) = (/ &
+        & 0.10637e+04_rb,0.66232e+03_rb,0.60623e+03_rb,0.89389e+03_rb,0.11827e+04_rb /)
+      kbo(:, 3,54,15) = (/ &
+        & 0.88717e+03_rb,0.63014e+03_rb,0.60503e+03_rb,0.89226e+03_rb,0.11804e+04_rb /)
+      kbo(:, 4,54,15) = (/ &
+        & 0.10369e+04_rb,0.84103e+03_rb,0.60384e+03_rb,0.89232e+03_rb,0.11792e+04_rb /)
+      kbo(:, 5,54,15) = (/ &
+        & 0.10000e+04_rb,0.70043e+03_rb,0.60321e+03_rb,0.89174e+03_rb,0.11783e+04_rb /)
+      kbo(:, 1,55,15) = (/ &
+        & 0.10615e+04_rb,0.77920e+03_rb,0.60858e+03_rb,0.89903e+03_rb,0.11896e+04_rb /)
+      kbo(:, 2,55,15) = (/ &
+        & 0.10425e+04_rb,0.78513e+03_rb,0.60661e+03_rb,0.89494e+03_rb,0.11829e+04_rb /)
+      kbo(:, 3,55,15) = (/ &
+        & 0.10916e+04_rb,0.73854e+03_rb,0.60542e+03_rb,0.89361e+03_rb,0.11809e+04_rb /)
+      kbo(:, 4,55,15) = (/ &
+        & 0.10715e+04_rb,0.78936e+03_rb,0.60420e+03_rb,0.89162e+03_rb,0.11795e+04_rb /)
+      kbo(:, 5,55,15) = (/ &
+        & 0.96091e+03_rb,0.82578e+03_rb,0.60397e+03_rb,0.89094e+03_rb,0.11773e+04_rb /)
+      kbo(:, 1,56,15) = (/ &
+        & 0.10458e+04_rb,0.77242e+03_rb,0.60942e+03_rb,0.90044e+03_rb,0.11915e+04_rb /)
+      kbo(:, 2,56,15) = (/ &
+        & 0.11062e+04_rb,0.77581e+03_rb,0.60712e+03_rb,0.89619e+03_rb,0.11859e+04_rb /)
+      kbo(:, 3,56,15) = (/ &
+        & 0.10883e+04_rb,0.80121e+03_rb,0.60580e+03_rb,0.89306e+03_rb,0.11815e+04_rb /)
+      kbo(:, 4,56,15) = (/ &
+        & 0.10726e+04_rb,0.82069e+03_rb,0.60459e+03_rb,0.89192e+03_rb,0.11799e+04_rb /)
+      kbo(:, 5,56,15) = (/ &
+        & 0.11263e+04_rb,0.78597e+03_rb,0.60416e+03_rb,0.89111e+03_rb,0.11788e+04_rb /)
+      kbo(:, 1,57,15) = (/ &
+        & 0.11095e+04_rb,0.76988e+03_rb,0.61034e+03_rb,0.90190e+03_rb,0.11935e+04_rb /)
+      kbo(:, 2,57,15) = (/ &
+        & 0.97543e+03_rb,0.72583e+03_rb,0.60777e+03_rb,0.89749e+03_rb,0.11876e+04_rb /)
+      kbo(:, 3,57,15) = (/ &
+        & 0.98548e+03_rb,0.78597e+03_rb,0.60618e+03_rb,0.89378e+03_rb,0.11826e+04_rb /)
+      kbo(:, 4,57,15) = (/ &
+        & 0.98213e+03_rb,0.81053e+03_rb,0.60499e+03_rb,0.89222e+03_rb,0.11804e+04_rb /)
+      kbo(:, 5,57,15) = (/ &
+        & 0.10760e+04_rb,0.81137e+03_rb,0.60380e+03_rb,0.89133e+03_rb,0.11791e+04_rb /)
+      kbo(:, 1,58,15) = (/ &
+        & 0.10034e+04_rb,0.71059e+03_rb,0.61128e+03_rb,0.90333e+03_rb,0.11954e+04_rb /)
+      kbo(:, 2,58,15) = (/ &
+        & 0.97431e+03_rb,0.80290e+03_rb,0.60845e+03_rb,0.89878e+03_rb,0.11893e+04_rb /)
+      kbo(:, 3,58,15) = (/ &
+        & 0.95308e+03_rb,0.77157e+03_rb,0.60654e+03_rb,0.89474e+03_rb,0.11839e+04_rb /)
+      kbo(:, 4,58,15) = (/ &
+        & 0.10737e+04_rb,0.87404e+03_rb,0.60535e+03_rb,0.89257e+03_rb,0.11808e+04_rb /)
+      kbo(:, 5,58,15) = (/ &
+        & 0.10626e+04_rb,0.67671e+03_rb,0.60413e+03_rb,0.89157e+03_rb,0.11782e+04_rb /)
+      kbo(:, 1,59,15) = (/ &
+        & 0.98325e+03_rb,0.78258e+03_rb,0.61167e+03_rb,0.90392e+03_rb,0.11962e+04_rb /)
+      kbo(:, 2,59,15) = (/ &
+        & 0.10481e+04_rb,0.74785e+03_rb,0.60874e+03_rb,0.89931e+03_rb,0.11900e+04_rb /)
+      kbo(:, 3,59,15) = (/ &
+        & 0.11151e+04_rb,0.73006e+03_rb,0.60669e+03_rb,0.89518e+03_rb,0.11820e+04_rb /)
+      kbo(:, 4,59,15) = (/ &
+        & 0.10425e+04_rb,0.79358e+03_rb,0.60550e+03_rb,0.89369e+03_rb,0.11810e+04_rb /)
+      kbo(:, 5,59,15) = (/ &
+        & 0.97877e+03_rb,0.79866e+03_rb,0.60428e+03_rb,0.89168e+03_rb,0.11796e+04_rb /)
+      kbo(:, 1,13,16) = (/ &
+        & 0.75523e+03_rb,0.86786e+03_rb,0.60838e+03_rb,0.89385e+03_rb,0.11815e+04_rb /)
+      kbo(:, 2,13,16) = (/ &
+        & 0.10580e+03_rb,0.52074e+03_rb,0.60685e+03_rb,0.89272e+03_rb,0.11800e+04_rb /)
+      kbo(:, 3,13,16) = (/ &
+        & 0.88450e+03_rb,0.99478e+02_rb,0.60069e+03_rb,0.89217e+03_rb,0.11793e+04_rb /)
+      kbo(:, 4,13,16) = (/ &
+        & 0.47883e+03_rb,0.85714e+02_rb,0.60445e+03_rb,0.89133e+03_rb,0.11782e+04_rb /)
+      kbo(:, 5,13,16) = (/ &
+        & 0.30313e+03_rb,0.39357e+02_rb,0.60363e+03_rb,0.89015e+03_rb,0.11767e+04_rb /)
+      kbo(:, 1,14,16) = (/ &
+        & 0.59250e+03_rb,0.12538e+03_rb,0.60779e+03_rb,0.89359e+03_rb,0.11813e+04_rb /)
+      kbo(:, 2,14,16) = (/ &
+        & 0.45021e+03_rb,0.30819e+03_rb,0.60630e+03_rb,0.89255e+03_rb,0.11799e+04_rb /)
+      kbo(:, 3,14,16) = (/ &
+        & 0.38746e+03_rb,0.31955e+03_rb,0.60482e+03_rb,0.89198e+03_rb,0.11792e+04_rb /)
+      kbo(:, 4,14,16) = (/ &
+        & 0.59123e+03_rb,0.24014e+03_rb,0.60415e+03_rb,0.89112e+03_rb,0.11781e+04_rb /)
+      kbo(:, 5,14,16) = (/ &
+        & 0.47780e+03_rb,0.41362e+03_rb,0.60332e+03_rb,0.88306e+03_rb,0.11765e+04_rb /)
+      kbo(:, 1,15,16) = (/ &
+        & 0.10202e+04_rb,0.29221e+03_rb,0.60727e+03_rb,0.88647e+03_rb,0.11812e+04_rb /)
+      kbo(:, 2,15,16) = (/ &
+        & 0.55435e+03_rb,0.58788e+03_rb,0.60581e+03_rb,0.89239e+03_rb,0.11799e+04_rb /)
+      kbo(:, 3,15,16) = (/ &
+        & 0.31413e+03_rb,0.75889e+03_rb,0.60450e+03_rb,0.89181e+03_rb,0.11791e+04_rb /)
+      kbo(:, 4,15,16) = (/ &
+        & 0.41436e+03_rb,0.80717e+03_rb,0.60389e+03_rb,0.89092e+03_rb,0.11689e+04_rb /)
+      kbo(:, 5,15,16) = (/ &
+        & 0.84269e+03_rb,0.27451e+03_rb,0.60303e+03_rb,0.88966e+03_rb,0.11582e+04_rb /)
+      kbo(:, 1,16,16) = (/ &
+        & 0.19456e+03_rb,0.24351e+03_rb,0.60682e+03_rb,0.89311e+03_rb,0.11719e+04_rb /)
+      kbo(:, 2,16,16) = (/ &
+        & 0.43800e+03_rb,0.21696e+03_rb,0.60538e+03_rb,0.89225e+03_rb,0.11798e+04_rb /)
+      kbo(:, 3,16,16) = (/ &
+        & 0.73851e+03_rb,0.22888e+03_rb,0.60428e+03_rb,0.89164e+03_rb,0.11790e+04_rb /)
+      kbo(:, 4,16,16) = (/ &
+        & 0.83650e+03_rb,0.13309e+03_rb,0.60366e+03_rb,0.89073e+03_rb,0.11778e+04_rb /)
+      kbo(:, 5,16,16) = (/ &
+        & 0.65895e+03_rb,0.36022e+03_rb,0.59813e+03_rb,0.88942e+03_rb,0.11670e+04_rb /)
+      kbo(:, 1,17,16) = (/ &
+        & 0.97890e+03_rb,0.27257e+03_rb,0.60643e+03_rb,0.89290e+03_rb,0.11808e+04_rb /)
+      kbo(:, 2,17,16) = (/ &
+        & 0.21678e+03_rb,0.36639e+03_rb,0.60501e+03_rb,0.89213e+03_rb,0.11797e+04_rb /)
+      kbo(:, 3,17,16) = (/ &
+        & 0.36576e+03_rb,0.64243e+03_rb,0.60409e+03_rb,0.89150e+03_rb,0.11789e+04_rb /)
+      kbo(:, 4,17,16) = (/ &
+        & 0.71301e+03_rb,0.32666e+03_rb,0.60345e+03_rb,0.89056e+03_rb,0.11777e+04_rb /)
+      kbo(:, 5,17,16) = (/ &
+        & 0.30605e+03_rb,0.68315e+03_rb,0.59789e+03_rb,0.88918e+03_rb,0.11668e+04_rb /)
+      kbo(:, 1,18,16) = (/ &
+        & 0.52238e+03_rb,0.17591e+03_rb,0.60609e+03_rb,0.89271e+03_rb,0.11807e+04_rb /)
+      kbo(:, 2,18,16) = (/ &
+        & 0.10253e+04_rb,0.75807e+03_rb,0.60468e+03_rb,0.89202e+03_rb,0.11797e+04_rb /)
+      kbo(:, 3,18,16) = (/ &
+        & 0.23095e+03_rb,0.31874e+03_rb,0.60392e+03_rb,0.89136e+03_rb,0.11788e+04_rb /)
+      kbo(:, 4,18,16) = (/ &
+        & 0.55144e+03_rb,0.80452e+03_rb,0.59863e+03_rb,0.89039e+03_rb,0.11685e+04_rb /)
+      kbo(:, 5,18,16) = (/ &
+        & 0.36145e+03_rb,0.21165e+03_rb,0.60231e+03_rb,0.88211e+03_rb,0.11666e+04_rb /)
+      kbo(:, 1,19,16) = (/ &
+        & 0.10124e+04_rb,0.51143e+03_rb,0.60113e+03_rb,0.89253e+03_rb,0.11805e+04_rb /)
+      kbo(:, 2,19,16) = (/ &
+        & 0.54199e+03_rb,0.26758e+03_rb,0.60439e+03_rb,0.89192e+03_rb,0.11796e+04_rb /)
+      kbo(:, 3,19,16) = (/ &
+        & 0.61467e+03_rb,0.78253e+03_rb,0.59913e+03_rb,0.89123e+03_rb,0.11787e+04_rb /)
+      kbo(:, 4,19,16) = (/ &
+        & 0.58906e+03_rb,0.74398e+02_rb,0.60311e+03_rb,0.89023e+03_rb,0.11774e+04_rb /)
+      kbo(:, 5,19,16) = (/ &
+        & 0.98025e+03_rb,0.28476e+03_rb,0.59747e+03_rb,0.88189e+03_rb,0.11663e+04_rb /)
+      kbo(:, 1,20,16) = (/ &
+        & 0.25361e+03_rb,0.16739e+03_rb,0.60550e+03_rb,0.89234e+03_rb,0.11712e+04_rb /)
+      kbo(:, 2,20,16) = (/ &
+        & 0.70227e+03_rb,0.71784e+03_rb,0.59948e+03_rb,0.89182e+03_rb,0.11795e+04_rb /)
+      kbo(:, 3,20,16) = (/ &
+        & 0.89681e+03_rb,0.24714e+03_rb,0.60364e+03_rb,0.89109e+03_rb,0.11786e+04_rb /)
+      kbo(:, 4,20,16) = (/ &
+        & 0.30123e+03_rb,0.54911e+03_rb,0.60295e+03_rb,0.89006e+03_rb,0.11772e+04_rb /)
+      kbo(:, 5,20,16) = (/ &
+        & 0.68301e+03_rb,0.36973e+03_rb,0.59725e+03_rb,0.88846e+03_rb,0.11750e+04_rb /)
+      kbo(:, 1,21,16) = (/ &
+        & 0.25236e+03_rb,0.80202e+03_rb,0.60523e+03_rb,0.89218e+03_rb,0.11801e+04_rb /)
+      kbo(:, 2,21,16) = (/ &
+        & 0.77221e+03_rb,0.62834e+03_rb,0.60401e+03_rb,0.89171e+03_rb,0.11794e+04_rb /)
+      kbo(:, 3,21,16) = (/ &
+        & 0.70626e+03_rb,0.20918e+03_rb,0.60351e+03_rb,0.89096e+03_rb,0.11784e+04_rb /)
+      kbo(:, 4,21,16) = (/ &
+        & 0.16217e+03_rb,0.14134e+03_rb,0.59816e+03_rb,0.88303e+03_rb,0.11770e+04_rb /)
+      kbo(:, 5,21,16) = (/ &
+        & 0.51843e+03_rb,0.20259e+03_rb,0.59703e+03_rb,0.88818e+03_rb,0.11747e+04_rb /)
+      kbo(:, 1,22,16) = (/ &
+        & 0.21890e+03_rb,0.24577e+03_rb,0.60023e+03_rb,0.89209e+03_rb,0.11799e+04_rb /)
+      kbo(:, 2,22,16) = (/ &
+        & 0.30771e+03_rb,0.55233e+03_rb,0.60388e+03_rb,0.89157e+03_rb,0.11793e+04_rb /)
+      kbo(:, 3,22,16) = (/ &
+        & 0.17796e+03_rb,0.48432e+03_rb,0.60334e+03_rb,0.89076e+03_rb,0.11782e+04_rb /)
+      kbo(:, 4,22,16) = (/ &
+        & 0.88899e+03_rb,0.36751e+03_rb,0.60258e+03_rb,0.88960e+03_rb,0.11676e+04_rb /)
+      kbo(:, 5,22,16) = (/ &
+        & 0.37953e+03_rb,0.56918e+03_rb,0.58746e+03_rb,0.88775e+03_rb,0.11742e+04_rb /)
+      kbo(:, 1,23,16) = (/ &
+        & 0.42018e+03_rb,0.21434e+03_rb,0.60456e+03_rb,0.89198e+03_rb,0.11798e+04_rb /)
+      kbo(:, 2,23,16) = (/ &
+        & 0.10252e+04_rb,0.32427e+03_rb,0.60375e+03_rb,0.89142e+03_rb,0.11791e+04_rb /)
+      kbo(:, 3,23,16) = (/ &
+        & 0.25811e+03_rb,0.61743e+03_rb,0.60318e+03_rb,0.89055e+03_rb,0.11779e+04_rb /)
+      kbo(:, 4,23,16) = (/ &
+        & 0.60449e+03_rb,0.28100e+03_rb,0.60235e+03_rb,0.88930e+03_rb,0.11762e+04_rb /)
+      kbo(:, 5,23,16) = (/ &
+        & 0.43495e+03_rb,0.18925e+03_rb,0.60100e+03_rb,0.88727e+03_rb,0.11735e+04_rb /)
+      kbo(:, 1,24,16) = (/ &
+        & 0.68497e+03_rb,0.77568e+03_rb,0.60423e+03_rb,0.89188e+03_rb,0.11797e+04_rb /)
+      kbo(:, 2,24,16) = (/ &
+        & 0.27378e+03_rb,0.43332e+03_rb,0.60362e+03_rb,0.89125e+03_rb,0.11789e+04_rb /)
+      kbo(:, 3,24,16) = (/ &
+        & 0.44258e+03_rb,0.48182e+03_rb,0.60301e+03_rb,0.89032e+03_rb,0.11686e+04_rb /)
+      kbo(:, 4,24,16) = (/ &
+        & 0.38603e+03_rb,0.34135e+03_rb,0.59747e+03_rb,0.88895e+03_rb,0.11758e+04_rb /)
+      kbo(:, 5,24,16) = (/ &
+        & 0.39386e+03_rb,0.54222e+03_rb,0.60062e+03_rb,0.88674e+03_rb,0.11638e+04_rb /)
+      kbo(:, 1,25,16) = (/ &
+        & 0.55482e+03_rb,0.53022e+03_rb,0.60394e+03_rb,0.89175e+03_rb,0.11796e+04_rb /)
+      kbo(:, 2,25,16) = (/ &
+        & 0.90002e+03_rb,0.91361e+02_rb,0.60348e+03_rb,0.89107e+03_rb,0.11787e+04_rb /)
+      kbo(:, 3,25,16) = (/ &
+        & 0.17670e+03_rb,0.51744e+03_rb,0.59819e+03_rb,0.89007e+03_rb,0.11773e+04_rb /)
+      kbo(:, 4,25,16) = (/ &
+        & 0.44153e+03_rb,0.41376e+03_rb,0.59256e+03_rb,0.88854e+03_rb,0.11753e+04_rb /)
+      kbo(:, 5,25,16) = (/ &
+        & 0.24073e+03_rb,0.21288e+03_rb,0.60020e+03_rb,0.88614e+03_rb,0.11721e+04_rb /)
+      kbo(:, 1,26,16) = (/ &
+        & 0.37725e+03_rb,0.61445e+03_rb,0.60383e+03_rb,0.89161e+03_rb,0.11703e+04_rb /)
+      kbo(:, 2,26,16) = (/ &
+        & 0.10269e+04_rb,0.42565e+03_rb,0.59868e+03_rb,0.89085e+03_rb,0.11784e+04_rb /)
+      kbo(:, 3,26,16) = (/ &
+        & 0.49719e+03_rb,0.26744e+03_rb,0.60261e+03_rb,0.88977e+03_rb,0.11769e+04_rb /)
+      kbo(:, 4,26,16) = (/ &
+        & 0.41684e+03_rb,0.19443e+03_rb,0.59685e+03_rb,0.88123e+03_rb,0.11746e+04_rb /)
+      kbo(:, 5,26,16) = (/ &
+        & 0.32855e+03_rb,0.57095e+03_rb,0.59973e+03_rb,0.88545e+03_rb,0.11622e+04_rb /)
+      kbo(:, 1,27,16) = (/ &
+        & 0.60914e+03_rb,0.57105e+03_rb,0.60371e+03_rb,0.89145e+03_rb,0.11792e+04_rb /)
+      kbo(:, 2,27,16) = (/ &
+        & 0.26439e+03_rb,0.15182e+03_rb,0.60316e+03_rb,0.89062e+03_rb,0.11781e+04_rb /)
+      kbo(:, 3,27,16) = (/ &
+        & 0.73685e+03_rb,0.69813e+03_rb,0.60238e+03_rb,0.88259e+03_rb,0.11765e+04_rb /)
+      kbo(:, 4,27,16) = (/ &
+        & 0.64054e+03_rb,0.28524e+03_rb,0.60110e+03_rb,0.88751e+03_rb,0.11649e+04_rb /)
+      kbo(:, 5,27,16) = (/ &
+        & 0.75244e+03_rb,0.50359e+03_rb,0.59461e+03_rb,0.87791e+03_rb,0.11702e+04_rb /)
+      kbo(:, 1,28,16) = (/ &
+        & 0.64046e+03_rb,0.15170e+03_rb,0.60358e+03_rb,0.89127e+03_rb,0.11790e+04_rb /)
+      kbo(:, 2,28,16) = (/ &
+        & 0.70429e+03_rb,0.23052e+03_rb,0.60299e+03_rb,0.89037e+03_rb,0.11687e+04_rb /)
+      kbo(:, 3,28,16) = (/ &
+        & 0.44006e+03_rb,0.41240e+03_rb,0.60212e+03_rb,0.88904e+03_rb,0.11760e+04_rb /)
+      kbo(:, 4,28,16) = (/ &
+        & 0.22398e+03_rb,0.59419e+03_rb,0.60069e+03_rb,0.88691e+03_rb,0.11731e+04_rb /)
+      kbo(:, 5,28,16) = (/ &
+        & 0.55183e+03_rb,0.13336e+03_rb,0.59871e+03_rb,0.87038e+03_rb,0.11692e+04_rb /)
+      kbo(:, 1,29,16) = (/ &
+        & 0.59987e+03_rb,0.49106e+03_rb,0.60344e+03_rb,0.89107e+03_rb,0.11787e+04_rb /)
+      kbo(:, 2,29,16) = (/ &
+        & 0.34384e+03_rb,0.96976e+02_rb,0.60280e+03_rb,0.89009e+03_rb,0.11774e+04_rb /)
+      kbo(:, 3,29,16) = (/ &
+        & 0.54363e+03_rb,0.20603e+03_rb,0.60181e+03_rb,0.88860e+03_rb,0.11754e+04_rb /)
+      kbo(:, 4,29,16) = (/ &
+        & 0.10391e+04_rb,0.38775e+03_rb,0.60023e+03_rb,0.88623e+03_rb,0.11632e+04_rb /)
+      kbo(:, 5,29,16) = (/ &
+        & 0.22377e+03_rb,0.17567e+03_rb,0.59820e+03_rb,0.88324e+03_rb,0.11684e+04_rb /)
+      kbo(:, 1,30,16) = (/ &
+        & 0.63138e+03_rb,0.68455e+03_rb,0.60329e+03_rb,0.89085e+03_rb,0.11784e+04_rb /)
+      kbo(:, 2,30,16) = (/ &
+        & 0.58332e+03_rb,0.21199e+03_rb,0.60259e+03_rb,0.88978e+03_rb,0.11770e+04_rb /)
+      kbo(:, 3,30,16) = (/ &
+        & 0.33555e+03_rb,0.46024e+03_rb,0.59221e+03_rb,0.88809e+03_rb,0.11657e+04_rb /)
+      kbo(:, 4,30,16) = (/ &
+        & 0.44733e+03_rb,0.32696e+03_rb,0.59512e+03_rb,0.88550e+03_rb,0.11713e+04_rb /)
+      kbo(:, 5,30,16) = (/ &
+        & 0.79071e+03_rb,0.72043e+03_rb,0.59773e+03_rb,0.85548e+03_rb,0.11586e+04_rb /)
+      kbo(:, 1,31,16) = (/ &
+        & 0.81471e+03_rb,0.68414e+03_rb,0.60312e+03_rb,0.89060e+03_rb,0.11781e+04_rb /)
+      kbo(:, 2,31,16) = (/ &
+        & 0.44722e+03_rb,0.73246e+03_rb,0.60235e+03_rb,0.88942e+03_rb,0.11765e+04_rb /)
+      kbo(:, 3,31,16) = (/ &
+        & 0.48709e+03_rb,0.24210e+03_rb,0.60108e+03_rb,0.88068e+03_rb,0.11739e+04_rb /)
+      kbo(:, 4,31,16) = (/ &
+        & 0.63873e+03_rb,0.56888e+03_rb,0.59920e+03_rb,0.88472e+03_rb,0.11702e+04_rb /)
+      kbo(:, 5,31,16) = (/ &
+        & 0.72647e+03_rb,0.26020e+03_rb,0.59739e+03_rb,0.78035e+03_rb,0.11669e+04_rb /)
+      kbo(:, 1,32,16) = (/ &
+        & 0.10219e+04_rb,0.29652e+03_rb,0.60294e+03_rb,0.89034e+03_rb,0.11777e+04_rb /)
+      kbo(:, 2,32,16) = (/ &
+        & 0.75833e+03_rb,0.13311e+03_rb,0.59281e+03_rb,0.88900e+03_rb,0.11759e+04_rb /)
+      kbo(:, 3,32,16) = (/ &
+        & 0.54275e+03_rb,0.31460e+03_rb,0.59602e+03_rb,0.88686e+03_rb,0.11731e+04_rb /)
+      kbo(:, 4,32,16) = (/ &
+        & 0.28731e+03_rb,0.15124e+03_rb,0.59865e+03_rb,0.87712e+03_rb,0.11692e+04_rb /)
+      kbo(:, 5,32,16) = (/ &
+        & 0.79004e+03_rb,0.63514e+03_rb,0.58791e+03_rb,0.86135e+03_rb,0.11214e+04_rb /)
+      kbo(:, 1,33,16) = (/ &
+        & 0.42295e+03_rb,0.52022e+03_rb,0.60275e+03_rb,0.88319e+03_rb,0.11773e+04_rb /)
+      kbo(:, 2,33,16) = (/ &
+        & 0.72614e+03_rb,0.33266e+03_rb,0.60175e+03_rb,0.88169e+03_rb,0.11753e+04_rb /)
+      kbo(:, 3,33,16) = (/ &
+        & 0.36703e+03_rb,0.22982e+03_rb,0.59554e+03_rb,0.88614e+03_rb,0.11721e+04_rb /)
+      kbo(:, 4,33,16) = (/ &
+        & 0.23137e+03_rb,0.32656e+03_rb,0.59813e+03_rb,0.88315e+03_rb,0.11503e+04_rb /)
+      kbo(:, 5,33,16) = (/ &
+        & 0.98125e+03_rb,0.60471e+03_rb,0.59681e+03_rb,0.86770e+03_rb,0.11478e+04_rb /)
+      kbo(:, 1,34,16) = (/ &
+        & 0.44676e+03_rb,0.16327e+03_rb,0.59792e+03_rb,0.88976e+03_rb,0.11770e+04_rb /)
+      kbo(:, 2,34,16) = (/ &
+        & 0.27122e+03_rb,0.52002e+03_rb,0.60144e+03_rb,0.88807e+03_rb,0.11747e+04_rb /)
+      kbo(:, 3,34,16) = (/ &
+        & 0.89338e+03_rb,0.37487e+03_rb,0.59509e+03_rb,0.87866e+03_rb,0.11622e+04_rb /)
+      kbo(:, 4,34,16) = (/ &
+        & 0.43071e+03_rb,0.56832e+03_rb,0.58850e+03_rb,0.83509e+03_rb,0.10958e+04_rb /)
+      kbo(:, 5,34,16) = (/ &
+        & 0.20737e+03_rb,0.35064e+03_rb,0.59655e+03_rb,0.88088e+03_rb,0.11652e+04_rb /)
+      kbo(:, 1,35,16) = (/ &
+        & 0.79758e+02_rb,0.10278e+03_rb,0.60244e+03_rb,0.87589e+03_rb,0.11767e+04_rb /)
+      kbo(:, 2,35,16) = (/ &
+        & 0.52637e+03_rb,0.56826e+03_rb,0.60124e+03_rb,0.88778e+03_rb,0.11743e+04_rb /)
+      kbo(:, 3,35,16) = (/ &
+        & 0.43064e+03_rb,0.29620e+03_rb,0.59943e+03_rb,0.88508e+03_rb,0.11707e+04_rb /)
+      kbo(:, 4,35,16) = (/ &
+        & 0.21531e+03_rb,0.74954e+03_rb,0.57453e+03_rb,0.86197e+03_rb,0.11223e+04_rb /)
+      kbo(:, 5,35,16) = (/ &
+        & 0.85323e+03_rb,0.27200e+03_rb,0.59640e+03_rb,0.88066e+03_rb,0.11649e+04_rb /)
+      kbo(:, 1,36,16) = (/ &
+        & 0.99678e+03_rb,0.21760e+03_rb,0.60242e+03_rb,0.88955e+03_rb,0.11767e+04_rb /)
+      kbo(:, 2,36,16) = (/ &
+        & 0.90902e+03_rb,0.40496e+03_rb,0.59196e+03_rb,0.88090e+03_rb,0.11742e+04_rb /)
+      kbo(:, 3,36,16) = (/ &
+        & 0.38273e+03_rb,0.60439e+03_rb,0.59478e+03_rb,0.87820e+03_rb,0.11706e+04_rb /)
+      kbo(:, 4,36,16) = (/ &
+        & 0.84516e+03_rb,0.25383e+03_rb,0.58829e+03_rb,0.79406e+03_rb,0.11312e+04_rb /)
+      kbo(:, 5,36,16) = (/ &
+        & 0.45445e+03_rb,0.41700e+03_rb,0.59637e+03_rb,0.88062e+03_rb,0.11559e+04_rb /)
+      kbo(:, 1,37,16) = (/ &
+        & 0.62987e+03_rb,0.44723e+03_rb,0.59790e+03_rb,0.88973e+03_rb,0.11769e+04_rb /)
+      kbo(:, 2,37,16) = (/ &
+        & 0.80524e+03_rb,0.68894e+03_rb,0.59677e+03_rb,0.88802e+03_rb,0.11746e+04_rb /)
+      kbo(:, 3,37,16) = (/ &
+        & 0.18337e+03_rb,0.45323e+03_rb,0.59504e+03_rb,0.88541e+03_rb,0.11712e+04_rb /)
+      kbo(:, 4,37,16) = (/ &
+        & 0.50224e+03_rb,0.16920e+03_rb,0.59765e+03_rb,0.86220e+03_rb,0.11586e+04_rb /)
+      kbo(:, 5,37,16) = (/ &
+        & 0.85299e+03_rb,0.22358e+03_rb,0.59652e+03_rb,0.88084e+03_rb,0.11652e+04_rb /)
+      kbo(:, 1,38,16) = (/ &
+        & 0.91678e+03_rb,0.47738e+03_rb,0.59801e+03_rb,0.88990e+03_rb,0.11681e+04_rb /)
+      kbo(:, 2,38,16) = (/ &
+        & 0.47033e+03_rb,0.39881e+03_rb,0.59234e+03_rb,0.88147e+03_rb,0.11750e+04_rb /)
+      kbo(:, 3,38,16) = (/ &
+        & 0.69352e+03_rb,0.66467e+03_rb,0.59993e+03_rb,0.87901e+03_rb,0.11717e+04_rb /)
+      kbo(:, 4,38,16) = (/ &
+        & 0.48625e+03_rb,0.32628e+03_rb,0.59330e+03_rb,0.86251e+03_rb,0.11590e+04_rb /)
+      kbo(:, 5,38,16) = (/ &
+        & 0.31087e+03_rb,0.44108e+03_rb,0.58749e+03_rb,0.88107e+03_rb,0.11655e+04_rb /)
+      kbo(:, 1,39,16) = (/ &
+        & 0.35870e+03_rb,0.11480e+03_rb,0.60275e+03_rb,0.89007e+03_rb,0.11774e+04_rb /)
+      kbo(:, 2,39,16) = (/ &
+        & 0.37464e+03_rb,0.78547e+03_rb,0.59714e+03_rb,0.88174e+03_rb,0.11754e+04_rb /)
+      kbo(:, 3,39,16) = (/ &
+        & 0.10123e+04_rb,0.30814e+03_rb,0.59558e+03_rb,0.87940e+03_rb,0.11722e+04_rb /)
+      kbo(:, 4,39,16) = (/ &
+        & 0.17535e+03_rb,0.96668e+02_rb,0.59817e+03_rb,0.88323e+03_rb,0.11594e+04_rb /)
+      kbo(:, 5,39,16) = (/ &
+        & 0.36664e+03_rb,0.56187e+03_rb,0.58764e+03_rb,0.86774e+03_rb,0.11658e+04_rb /)
+      kbo(:, 1,40,16) = (/ &
+        & 0.48620e+03_rb,0.57396e+03_rb,0.60293e+03_rb,0.89033e+03_rb,0.11777e+04_rb /)
+      kbo(:, 2,40,16) = (/ &
+        & 0.94847e+03_rb,0.62832e+03_rb,0.60206e+03_rb,0.88901e+03_rb,0.11760e+04_rb /)
+      kbo(:, 3,40,16) = (/ &
+        & 0.54197e+03_rb,0.51352e+03_rb,0.60063e+03_rb,0.88687e+03_rb,0.11731e+04_rb /)
+      kbo(:, 4,40,16) = (/ &
+        & 0.21519e+03_rb,0.61017e+03_rb,0.58944e+03_rb,0.86354e+03_rb,0.11692e+04_rb /)
+      kbo(:, 5,40,16) = (/ &
+        & 0.27098e+03_rb,0.33831e+03_rb,0.58331e+03_rb,0.88170e+03_rb,0.10587e+04_rb /)
+      kbo(:, 1,41,16) = (/ &
+        & 0.14346e+03_rb,0.26582e+03_rb,0.60309e+03_rb,0.89059e+03_rb,0.11781e+04_rb /)
+      kbo(:, 2,41,16) = (/ &
+        & 0.76510e+03_rb,0.70682e+03_rb,0.60232e+03_rb,0.88941e+03_rb,0.11765e+04_rb /)
+      kbo(:, 3,41,16) = (/ &
+        & 0.62163e+03_rb,0.16311e+03_rb,0.60105e+03_rb,0.88750e+03_rb,0.11649e+04_rb /)
+      kbo(:, 4,41,16) = (/ &
+        & 0.87665e+02_rb,0.19331e+03_rb,0.59457e+03_rb,0.88472e+03_rb,0.11703e+04_rb /)
+      kbo(:, 5,41,16) = (/ &
+        & 0.10041e+04_rb,0.44098e+03_rb,0.58818e+03_rb,0.72606e+03_rb,0.10412e+04_rb /)
+      kbo(:, 1,42,16) = (/ &
+        & 0.66944e+03_rb,0.41079e+03_rb,0.60325e+03_rb,0.89083e+03_rb,0.11693e+04_rb /)
+      kbo(:, 2,42,16) = (/ &
+        & 0.51801e+03_rb,0.25976e+03_rb,0.60255e+03_rb,0.88976e+03_rb,0.11770e+04_rb /)
+      kbo(:, 3,42,16) = (/ &
+        & 0.23111e+03_rb,0.27788e+03_rb,0.58293e+03_rb,0.88808e+03_rb,0.11747e+04_rb /)
+      kbo(:, 4,42,16) = (/ &
+        & 0.44627e+03_rb,0.35036e+03_rb,0.59971e+03_rb,0.87868e+03_rb,0.11713e+04_rb /)
+      kbo(:, 5,42,16) = (/ &
+        & 0.75706e+03_rb,0.77924e+03_rb,0.59310e+03_rb,0.87584e+03_rb,0.11676e+04_rb /)
+      kbo(:, 1,43,16) = (/ &
+        & 0.60566e+03_rb,0.10873e+03_rb,0.60342e+03_rb,0.89110e+03_rb,0.11697e+04_rb /)
+      kbo(:, 2,43,16) = (/ &
+        & 0.92441e+03_rb,0.64634e+03_rb,0.59816e+03_rb,0.89014e+03_rb,0.11775e+04_rb /)
+      kbo(:, 3,43,16) = (/ &
+        & 0.18329e+03_rb,0.35035e+03_rb,0.59722e+03_rb,0.88869e+03_rb,0.11755e+04_rb /)
+      kbo(:, 4,43,16) = (/ &
+        & 0.34266e+03_rb,0.17517e+03_rb,0.59569e+03_rb,0.87957e+03_rb,0.11725e+04_rb /)
+      kbo(:, 5,43,16) = (/ &
+        & 0.92438e+03_rb,0.90606e+02_rb,0.59829e+03_rb,0.88341e+03_rb,0.11057e+04_rb /)
+      kbo(:, 1,44,16) = (/ &
+        & 0.38251e+03_rb,0.19934e+03_rb,0.60359e+03_rb,0.89135e+03_rb,0.11791e+04_rb /)
+      kbo(:, 2,44,16) = (/ &
+        & 0.48609e+03_rb,0.71881e+03_rb,0.59839e+03_rb,0.89050e+03_rb,0.11689e+04_rb /)
+      kbo(:, 3,44,16) = (/ &
+        & 0.54984e+03_rb,0.19933e+03_rb,0.59759e+03_rb,0.88926e+03_rb,0.11763e+04_rb /)
+      kbo(:, 4,44,16) = (/ &
+        & 0.85264e+03_rb,0.64027e+03_rb,0.60090e+03_rb,0.88045e+03_rb,0.11736e+04_rb /)
+      kbo(:, 5,44,16) = (/ &
+        & 0.88451e+03_rb,0.49530e+03_rb,0.59898e+03_rb,0.87082e+03_rb,0.11699e+04_rb /)
+      kbo(:, 1,45,16) = (/ &
+        & 0.66936e+03_rb,0.51946e+03_rb,0.60373e+03_rb,0.89157e+03_rb,0.11794e+04_rb /)
+      kbo(:, 2,45,16) = (/ &
+        & 0.95622e+03_rb,0.66442e+03_rb,0.60324e+03_rb,0.89082e+03_rb,0.11784e+04_rb /)
+      kbo(:, 3,45,16) = (/ &
+        & 0.70122e+03_rb,0.25973e+03_rb,0.60254e+03_rb,0.88974e+03_rb,0.11769e+04_rb /)
+      kbo(:, 4,45,16) = (/ &
+        & 0.13546e+03_rb,0.47717e+03_rb,0.59679e+03_rb,0.88805e+03_rb,0.11747e+04_rb /)
+      kbo(:, 5,45,16) = (/ &
+        & 0.44623e+03_rb,0.47716e+03_rb,0.59968e+03_rb,0.87864e+03_rb,0.11712e+04_rb /)
+      kbo(:, 1,46,16) = (/ &
+        & 0.16734e+03_rb,0.11476e+03_rb,0.60389e+03_rb,0.89176e+03_rb,0.11797e+04_rb /)
+      kbo(:, 2,46,16) = (/ &
+        & 0.41435e+03_rb,0.59796e+03_rb,0.60344e+03_rb,0.89112e+03_rb,0.11697e+04_rb /)
+      kbo(:, 3,46,16) = (/ &
+        & 0.78886e+03_rb,0.13892e+03_rb,0.60282e+03_rb,0.89018e+03_rb,0.11775e+04_rb /)
+      kbo(:, 4,46,16) = (/ &
+        & 0.48606e+03_rb,0.76103e+03_rb,0.59263e+03_rb,0.88876e+03_rb,0.11756e+04_rb /)
+      kbo(:, 5,46,16) = (/ &
+        & 0.77291e+03_rb,0.68855e+03_rb,0.59113e+03_rb,0.88648e+03_rb,0.11726e+04_rb /)
+      kbo(:, 1,47,16) = (/ &
+        & 0.80479e+03_rb,0.70064e+03_rb,0.60443e+03_rb,0.89194e+03_rb,0.11799e+04_rb /)
+      kbo(:, 2,47,16) = (/ &
+        & 0.74901e+03_rb,0.35032e+03_rb,0.60363e+03_rb,0.89142e+03_rb,0.11792e+04_rb /)
+      kbo(:, 3,47,16) = (/ &
+        & 0.62948e+03_rb,0.48923e+03_rb,0.60309e+03_rb,0.89059e+03_rb,0.11690e+04_rb /)
+      kbo(:, 4,47,16) = (/ &
+        & 0.87648e+02_rb,0.36239e+03_rb,0.60232e+03_rb,0.88257e+03_rb,0.11584e+04_rb /)
+      kbo(:, 5,47,16) = (/ &
+        & 0.44621e+03_rb,0.42279e+03_rb,0.60106e+03_rb,0.88751e+03_rb,0.11740e+04_rb /)
+      kbo(:, 1,48,16) = (/ &
+        & 0.39044e+03_rb,0.31407e+03_rb,0.60497e+03_rb,0.89220e+03_rb,0.11803e+04_rb /)
+      kbo(:, 2,48,16) = (/ &
+        & 0.28685e+03_rb,0.50131e+03_rb,0.60379e+03_rb,0.89166e+03_rb,0.11795e+04_rb /)
+      kbo(:, 3,48,16) = (/ &
+        & 0.38246e+03_rb,0.70665e+03_rb,0.60333e+03_rb,0.89096e+03_rb,0.11786e+04_rb /)
+      kbo(:, 4,48,16) = (/ &
+        & 0.47011e+03_rb,0.61002e+03_rb,0.60267e+03_rb,0.88995e+03_rb,0.11772e+04_rb /)
+      kbo(:, 5,48,16) = (/ &
+        & 0.36652e+03_rb,0.63417e+03_rb,0.60164e+03_rb,0.88155e+03_rb,0.11751e+04_rb /)
+      kbo(:, 1,49,16) = (/ &
+        & 0.76492e+03_rb,0.96636e+02_rb,0.60550e+03_rb,0.89270e+03_rb,0.11810e+04_rb /)
+      kbo(:, 2,49,16) = (/ &
+        & 0.23107e+03_rb,0.19931e+03_rb,0.60416e+03_rb,0.89186e+03_rb,0.11798e+04_rb /)
+      kbo(:, 3,49,16) = (/ &
+        & 0.86850e+03_rb,0.30199e+03_rb,0.59890e+03_rb,0.89128e+03_rb,0.11790e+04_rb /)
+      kbo(:, 4,49,16) = (/ &
+        & 0.27091e+03_rb,0.22951e+03_rb,0.60296e+03_rb,0.89040e+03_rb,0.11778e+04_rb /)
+      kbo(:, 5,49,16) = (/ &
+        & 0.45416e+03_rb,0.53149e+03_rb,0.60212e+03_rb,0.88227e+03_rb,0.11761e+04_rb /)
+      kbo(:, 1,50,16) = (/ &
+        & 0.39042e+03_rb,0.12079e+03_rb,0.60601e+03_rb,0.89316e+03_rb,0.11816e+04_rb /)
+      kbo(:, 2,50,16) = (/ &
+        & 0.38245e+03_rb,0.73080e+03_rb,0.60467e+03_rb,0.89201e+03_rb,0.11709e+04_rb /)
+      kbo(:, 3,50,16) = (/ &
+        & 0.19919e+03_rb,0.50733e+03_rb,0.60370e+03_rb,0.89153e+03_rb,0.11703e+04_rb /)
+      kbo(:, 4,50,16) = (/ &
+        & 0.52587e+03_rb,0.41673e+03_rb,0.60320e+03_rb,0.89076e+03_rb,0.11693e+04_rb /)
+      kbo(:, 5,50,16) = (/ &
+        & 0.25497e+03_rb,0.90594e+02_rb,0.59785e+03_rb,0.88966e+03_rb,0.11768e+04_rb /)
+      kbo(:, 1,51,16) = (/ &
+        & 0.35058e+03_rb,0.56772e+03_rb,0.60650e+03_rb,0.89405e+03_rb,0.11830e+04_rb /)
+      kbo(:, 2,51,16) = (/ &
+        & 0.39839e+03_rb,0.52545e+03_rb,0.60516e+03_rb,0.89238e+03_rb,0.11806e+04_rb /)
+      kbo(:, 3,51,16) = (/ &
+        & 0.69319e+03_rb,0.65831e+03_rb,0.60384e+03_rb,0.89174e+03_rb,0.11796e+04_rb /)
+      kbo(:, 4,51,16) = (/ &
+        & 0.66132e+03_rb,0.42881e+03_rb,0.60341e+03_rb,0.89108e+03_rb,0.11788e+04_rb /)
+      kbo(:, 5,51,16) = (/ &
+        & 0.80473e+03_rb,0.49524e+03_rb,0.59814e+03_rb,0.88327e+03_rb,0.11775e+04_rb /)
+      kbo(:, 1,52,16) = (/ &
+        & 0.75693e+03_rb,0.32010e+03_rb,0.60698e+03_rb,0.89551e+03_rb,0.11849e+04_rb /)
+      kbo(:, 2,52,16) = (/ &
+        & 0.98002e+03_rb,0.74890e+03_rb,0.60565e+03_rb,0.89283e+03_rb,0.11812e+04_rb /)
+      kbo(:, 3,52,16) = (/ &
+        & 0.42228e+03_rb,0.32613e+03_rb,0.60430e+03_rb,0.89190e+03_rb,0.11799e+04_rb /)
+      kbo(:, 4,52,16) = (/ &
+        & 0.43025e+03_rb,0.70662e+03_rb,0.60359e+03_rb,0.89136e+03_rb,0.11791e+04_rb /)
+      kbo(:, 5,52,16) = (/ &
+        & 0.81269e+03_rb,0.56167e+03_rb,0.60303e+03_rb,0.89051e+03_rb,0.11780e+04_rb /)
+      kbo(:, 1,53,16) = (/ &
+        & 0.98002e+03_rb,0.61603e+03_rb,0.60747e+03_rb,0.89705e+03_rb,0.11870e+04_rb /)
+      kbo(:, 2,53,16) = (/ &
+        & 0.28683e+03_rb,0.42277e+03_rb,0.60613e+03_rb,0.89328e+03_rb,0.11818e+04_rb /)
+      kbo(:, 3,53,16) = (/ &
+        & 0.45415e+03_rb,0.68246e+03_rb,0.60479e+03_rb,0.89204e+03_rb,0.11801e+04_rb /)
+      kbo(:, 4,53,16) = (/ &
+        & 0.78879e+03_rb,0.48920e+03_rb,0.60374e+03_rb,0.89159e+03_rb,0.11794e+04_rb /)
+      kbo(:, 5,53,16) = (/ &
+        & 0.76488e+03_rb,0.14495e+03_rb,0.60326e+03_rb,0.89085e+03_rb,0.11694e+04_rb /)
+      kbo(:, 1,54,16) = (/ &
+        & 0.67724e+03_rb,0.76701e+03_rb,0.60808e+03_rb,0.89852e+03_rb,0.11890e+04_rb /)
+      kbo(:, 2,54,16) = (/ &
+        & 0.81269e+03_rb,0.24762e+03_rb,0.60658e+03_rb,0.89430e+03_rb,0.11833e+04_rb /)
+      kbo(:, 3,54,16) = (/ &
+        & 0.94813e+03_rb,0.63414e+03_rb,0.60524e+03_rb,0.89246e+03_rb,0.11807e+04_rb /)
+      kbo(:, 4,54,16) = (/ &
+        & 0.49398e+03_rb,0.28989e+03_rb,0.60390e+03_rb,0.88491e+03_rb,0.11797e+04_rb /)
+      kbo(:, 5,54,16) = (/ &
+        & 0.89236e+03_rb,0.27781e+03_rb,0.60344e+03_rb,0.88428e+03_rb,0.11788e+04_rb /)
+      kbo(:, 1,55,16) = (/ &
+        & 0.52586e+03_rb,0.77305e+03_rb,0.60906e+03_rb,0.89999e+03_rb,0.11909e+04_rb /)
+      kbo(:, 2,55,16) = (/ &
+        & 0.54179e+03_rb,0.64018e+03_rb,0.60701e+03_rb,0.89560e+03_rb,0.11851e+04_rb /)
+      kbo(:, 3,55,16) = (/ &
+        & 0.50992e+03_rb,0.60394e+03_rb,0.60567e+03_rb,0.88598e+03_rb,0.11812e+04_rb /)
+      kbo(:, 4,55,16) = (/ &
+        & 0.63740e+03_rb,0.44088e+03_rb,0.60433e+03_rb,0.89191e+03_rb,0.11799e+04_rb /)
+      kbo(:, 5,55,16) = (/ &
+        & 0.49398e+03_rb,0.37444e+03_rb,0.59895e+03_rb,0.89137e+03_rb,0.11791e+04_rb /)
+      kbo(:, 1,56,16) = (/ &
+        & 0.90829e+03_rb,0.27177e+03_rb,0.61007e+03_rb,0.90151e+03_rb,0.11929e+04_rb /)
+      kbo(:, 2,56,16) = (/ &
+        & 0.35854e+03_rb,0.24158e+03_rb,0.60744e+03_rb,0.89694e+03_rb,0.11869e+04_rb /)
+      kbo(:, 3,56,16) = (/ &
+        & 0.59756e+03_rb,0.47107e+03_rb,0.60610e+03_rb,0.89325e+03_rb,0.11817e+04_rb /)
+      kbo(:, 4,56,16) = (/ &
+        & 0.52585e+03_rb,0.35632e+03_rb,0.60476e+03_rb,0.89203e+03_rb,0.11801e+04_rb /)
+      kbo(:, 5,56,16) = (/ &
+        & 0.27886e+03_rb,0.24761e+03_rb,0.59909e+03_rb,0.89157e+03_rb,0.11794e+04_rb /)
+      kbo(:, 1,57,16) = (/ &
+        & 0.34260e+03_rb,0.66433e+03_rb,0.61112e+03_rb,0.90308e+03_rb,0.11950e+04_rb /)
+      kbo(:, 2,57,16) = (/ &
+        & 0.66130e+03_rb,0.45295e+03_rb,0.60796e+03_rb,0.89834e+03_rb,0.11887e+04_rb /)
+      kbo(:, 3,57,16) = (/ &
+        & 0.69317e+03_rb,0.42880e+03_rb,0.60653e+03_rb,0.89415e+03_rb,0.11831e+04_rb /)
+      kbo(:, 4,57,16) = (/ &
+        & 0.27089e+03_rb,0.28385e+03_rb,0.60519e+03_rb,0.89241e+03_rb,0.11806e+04_rb /)
+      kbo(:, 5,57,16) = (/ &
+        & 0.66926e+03_rb,0.34424e+03_rb,0.60385e+03_rb,0.89175e+03_rb,0.11797e+04_rb /)
+      kbo(:, 1,58,16) = (/ &
+        & 0.96406e+03_rb,0.25365e+03_rb,0.61214e+03_rb,0.90462e+03_rb,0.11971e+04_rb /)
+      kbo(:, 2,58,16) = (/ &
+        & 0.31073e+03_rb,0.28385e+03_rb,0.60888e+03_rb,0.89972e+03_rb,0.11906e+04_rb /)
+      kbo(:, 3,58,16) = (/ &
+        & 0.96405e+03_rb,0.57374e+03_rb,0.60693e+03_rb,0.89536e+03_rb,0.11848e+04_rb /)
+      kbo(:, 4,58,16) = (/ &
+        & 0.69316e+03_rb,0.13891e+03_rb,0.60560e+03_rb,0.89278e+03_rb,0.11811e+04_rb /)
+      kbo(:, 5,58,16) = (/ &
+        & 0.59755e+03_rb,0.75492e+03_rb,0.60426e+03_rb,0.89189e+03_rb,0.11798e+04_rb /)
+      kbo(:, 1,59,16) = (/ &
+        & 0.92422e+03_rb,0.39860e+03_rb,0.61256e+03_rb,0.90525e+03_rb,0.11979e+04_rb /)
+      kbo(:, 2,59,16) = (/ &
+        & 0.78877e+03_rb,0.42275e+03_rb,0.60926e+03_rb,0.90029e+03_rb,0.11913e+04_rb /)
+      kbo(:, 3,59,16) = (/ &
+        & 0.35853e+03_rb,0.65225e+03_rb,0.60710e+03_rb,0.89586e+03_rb,0.11854e+04_rb /)
+      kbo(:, 4,59,16) = (/ &
+        & 0.54975e+03_rb,0.50730e+03_rb,0.60576e+03_rb,0.88606e+03_rb,0.11813e+04_rb /)
+      kbo(:, 5,59,16) = (/ &
+        & 0.52585e+03_rb,0.62205e+03_rb,0.60442e+03_rb,0.89194e+03_rb,0.11799e+04_rb /)
+     
+      end subroutine sw_kgb28
+
+! **************************************************************************
+      subroutine sw_kgb29
+! **************************************************************************
+
+      use parkind, only : im => kind_im, rb => kind_rb 
+      use rrsw_kg29, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &
+                            absh2oo, absco2o, rayl, &
+                            irradnceo, facbrghto, snsptdrko
+
+      implicit none
+      real :: irradscl
+      save
+
+! Kurucz solar source function
+      sfluxrefo(:) = (/ &
+        & 1.32880_rb    , 2.14018_rb    , 1.97612_rb    , 1.79000_rb    , &
+        & 1.51242_rb    , 1.22977_rb    , 1.06052_rb    , 0.800996_rb   , &
+        & 0.748053_rb   , 8.64369e-02_rb, 7.10675e-02_rb, 5.62425e-02_rb, &
+        & 4.46988e-02_rb, 3.07441e-02_rb, 1.16728e-02_rb, 1.65573e-03_rb /)
+
+! Solar variability components: time-invariant baseline quiet sun irradiance
+      irradnceo(:) = (/ &
+        & 3.08203E+00_rb, 1.16181E+00_rb, 1.40910E+00_rb, 1.72932E+00_rb,&
+        & 1.50993E+00_rb, 1.22063E+00_rb, 1.05521E+00_rb, 8.60330E-01_rb,&
+        & 5.41746E-01_rb, 5.88241E-02_rb, 4.95311E-02_rb, 3.91123E-02_rb,&
+        & 2.43242E-02_rb, 1.50450E-02_rb, 5.91303E-03_rb, 8.86641E-04_rb/)
+! Apply scaling to irradnceo in this band to account for solar function 
+! below 820 cm-1 (scaling quantities were derived from high-resolution data)
+      irradscl = 13.221_rb / (13.221_rb - 0.455_rb)
+      irradnceo(:) = irradscl * irradnceo(:)
+! Solar variability components: facular brightening
+      facbrghto(:) = (/ &
+        & 1.52123E-03_rb, 9.54536E-04_rb, 1.35866E-03_rb, 1.60003E-03_rb,&
+        & 1.23938E-03_rb, 8.92375E-04_rb, 7.12962E-04_rb, 5.35573E-04_rb,&
+        & 3.45092E-04_rb, 3.73112E-05_rb, 3.09799E-05_rb, 2.40402E-05_rb,&
+        & 1.65222E-05_rb, 1.02372E-05_rb, 4.00345E-06_rb, 6.10834E-07_rb/)
+! Solar variability components: sunspot darkening
+      snsptdrko(:) = (/ &
+        &-3.52049E-04_rb,-1.39728E-04_rb,-1.92648E-04_rb,-2.37837E-04_rb,&
+        &-1.93491E-04_rb,-1.45692E-04_rb,-1.23179E-04_rb,-9.89247E-05_rb,&
+        &-6.17934E-05_rb,-6.69155E-06_rb,-5.61746E-06_rb,-4.40500E-06_rb,&
+        &-2.74223E-06_rb,-1.68468E-06_rb,-6.65633E-07_rb,-1.00868E-07_rb/)
+
+      absco2o(:) = (/ &
+        & 2.90073e-06_rb, 2.12382e-05_rb, 1.03032e-04_rb, 1.86481e-04_rb, &
+        & 4.31997e-04_rb, 6.08238e-04_rb, 2.17603e-03_rb, 4.64479e-02_rb, &
+        & 2.96956_rb    , 14.9569_rb    , 28.4831_rb    , 61.3998_rb    , &
+        & 164.129_rb    , 832.282_rb    , 4995.02_rb    , 12678.1_rb     /)
+
+      absh2oo(:) = (/ &
+        & 2.99508e-04_rb, 3.95012e-03_rb, 1.49316e-02_rb, 3.24384e-02_rb, &
+        & 6.92879e-02_rb, 0.123523_rb   , 0.360985_rb   , 1.86434_rb    , &
+        & 10.38157_rb   , 0.214129_rb   , 0.213914_rb   , 0.212781_rb   , &
+        & 0.215562_rb   , 0.218087_rb   , 0.220918_rb   , 0.218546_rb    /)
+           
+! Rayleigh extinction coefficient at v = 2200 cm-1.
+      rayl = 9.30e-11_rb
+
+!     ------------------------------------------------------------------
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kao(:, 1, 1) = (/ &
+        & 0.11565e-03_rb,0.10123e-03_rb,0.90804e-04_rb,0.82282e-04_rb,0.71083e-04_rb /)
+      kao(:, 2, 1) = (/ &
+        & 0.96434e-04_rb,0.82830e-04_rb,0.72366e-04_rb,0.61803e-04_rb,0.52497e-04_rb /)
+      kao(:, 3, 1) = (/ &
+        & 0.64539e-04_rb,0.56659e-04_rb,0.46605e-04_rb,0.39815e-04_rb,0.37118e-04_rb /)
+      kao(:, 4, 1) = (/ &
+        & 0.34417e-04_rb,0.27113e-04_rb,0.25362e-04_rb,0.30345e-04_rb,0.36275e-04_rb /)
+      kao(:, 5, 1) = (/ &
+        & 0.12260e-04_rb,0.15856e-04_rb,0.20834e-04_rb,0.27363e-04_rb,0.36114e-04_rb /)
+      kao(:, 6, 1) = (/ &
+        & 0.10221e-04_rb,0.14598e-04_rb,0.19695e-04_rb,0.25976e-04_rb,0.33702e-04_rb /)
+      kao(:, 7, 1) = (/ &
+        & 0.97563e-05_rb,0.13809e-04_rb,0.20231e-04_rb,0.27238e-04_rb,0.36110e-04_rb /)
+      kao(:, 8, 1) = (/ &
+        & 0.14062e-04_rb,0.19587e-04_rb,0.27069e-04_rb,0.36937e-04_rb,0.49415e-04_rb /)
+      kao(:, 9, 1) = (/ &
+        & 0.36371e-04_rb,0.48122e-04_rb,0.61586e-04_rb,0.77647e-04_rb,0.99897e-04_rb /)
+      kao(:,10, 1) = (/ &
+        & 0.99203e-04_rb,0.12842e-03_rb,0.16588e-03_rb,0.20834e-03_rb,0.26000e-03_rb /)
+      kao(:,11, 1) = (/ &
+        & 0.13233e-03_rb,0.17318e-03_rb,0.22059e-03_rb,0.28904e-03_rb,0.36062e-03_rb /)
+      kao(:,12, 1) = (/ &
+        & 0.13379e-03_rb,0.17484e-03_rb,0.23687e-03_rb,0.30286e-03_rb,0.37504e-03_rb /)
+      kao(:,13, 1) = (/ &
+        & 0.11740e-03_rb,0.15667e-03_rb,0.20962e-03_rb,0.26768e-03_rb,0.33485e-03_rb /)
+      kao(:, 1, 2) = (/ &
+        & 0.10246e-03_rb,0.10450e-03_rb,0.97383e-04_rb,0.96398e-04_rb,0.10549e-03_rb /)
+      kao(:, 2, 2) = (/ &
+        & 0.10589e-03_rb,0.10240e-03_rb,0.95801e-04_rb,0.98509e-04_rb,0.11993e-03_rb /)
+      kao(:, 3, 2) = (/ &
+        & 0.94054e-04_rb,0.87009e-04_rb,0.10941e-03_rb,0.13486e-03_rb,0.15918e-03_rb /)
+      kao(:, 4, 2) = (/ &
+        & 0.11883e-03_rb,0.14236e-03_rb,0.16636e-03_rb,0.18235e-03_rb,0.19785e-03_rb /)
+      kao(:, 5, 2) = (/ &
+        & 0.17800e-03_rb,0.19347e-03_rb,0.20977e-03_rb,0.22730e-03_rb,0.25111e-03_rb /)
+      kao(:, 6, 2) = (/ &
+        & 0.22243e-03_rb,0.24157e-03_rb,0.26567e-03_rb,0.28549e-03_rb,0.30723e-03_rb /)
+      kao(:, 7, 2) = (/ &
+        & 0.29248e-03_rb,0.32242e-03_rb,0.34635e-03_rb,0.37915e-03_rb,0.40803e-03_rb /)
+      kao(:, 8, 2) = (/ &
+        & 0.43386e-03_rb,0.48611e-03_rb,0.52681e-03_rb,0.56812e-03_rb,0.60642e-03_rb /)
+      kao(:, 9, 2) = (/ &
+        & 0.89109e-03_rb,0.10345e-02_rb,0.11794e-02_rb,0.13045e-02_rb,0.14303e-02_rb /)
+      kao(:,10, 2) = (/ &
+        & 0.21538e-02_rb,0.24459e-02_rb,0.27329e-02_rb,0.30932e-02_rb,0.35253e-02_rb /)
+      kao(:,11, 2) = (/ &
+        & 0.29272e-02_rb,0.32676e-02_rb,0.36353e-02_rb,0.40062e-02_rb,0.45441e-02_rb /)
+      kao(:,12, 2) = (/ &
+        & 0.30762e-02_rb,0.34365e-02_rb,0.38146e-02_rb,0.41556e-02_rb,0.47164e-02_rb /)
+      kao(:,13, 2) = (/ &
+        & 0.27808e-02_rb,0.31114e-02_rb,0.34383e-02_rb,0.37954e-02_rb,0.42576e-02_rb /)
+      kao(:, 1, 3) = (/ &
+        & 0.24042e-03_rb,0.32719e-03_rb,0.44370e-03_rb,0.56836e-03_rb,0.70357e-03_rb /)
+      kao(:, 2, 3) = (/ &
+        & 0.23303e-03_rb,0.31901e-03_rb,0.41926e-03_rb,0.52400e-03_rb,0.62365e-03_rb /)
+      kao(:, 3, 3) = (/ &
+        & 0.35050e-03_rb,0.42158e-03_rb,0.47490e-03_rb,0.53390e-03_rb,0.60411e-03_rb /)
+      kao(:, 4, 3) = (/ &
+        & 0.49954e-03_rb,0.53067e-03_rb,0.56338e-03_rb,0.60859e-03_rb,0.66569e-03_rb /)
+      kao(:, 5, 3) = (/ &
+        & 0.66908e-03_rb,0.69727e-03_rb,0.72898e-03_rb,0.76756e-03_rb,0.80358e-03_rb /)
+      kao(:, 6, 3) = (/ &
+        & 0.88634e-03_rb,0.92853e-03_rb,0.96856e-03_rb,0.10101e-02_rb,0.10556e-02_rb /)
+      kao(:, 7, 3) = (/ &
+        & 0.11659e-02_rb,0.12355e-02_rb,0.13238e-02_rb,0.13889e-02_rb,0.14491e-02_rb /)
+      kao(:, 8, 3) = (/ &
+        & 0.17485e-02_rb,0.18223e-02_rb,0.19411e-02_rb,0.20705e-02_rb,0.22025e-02_rb /)
+      kao(:, 9, 3) = (/ &
+        & 0.42442e-02_rb,0.43561e-02_rb,0.45061e-02_rb,0.47505e-02_rb,0.50358e-02_rb /)
+      kao(:,10, 3) = (/ &
+        & 0.10940e-01_rb,0.11499e-01_rb,0.11906e-01_rb,0.12570e-01_rb,0.12803e-01_rb /)
+      kao(:,11, 3) = (/ &
+        & 0.14287e-01_rb,0.15010e-01_rb,0.15581e-01_rb,0.16054e-01_rb,0.16609e-01_rb /)
+      kao(:,12, 3) = (/ &
+        & 0.14856e-01_rb,0.15546e-01_rb,0.16074e-01_rb,0.16478e-01_rb,0.17057e-01_rb /)
+      kao(:,13, 3) = (/ &
+        & 0.13257e-01_rb,0.13834e-01_rb,0.14155e-01_rb,0.14723e-01_rb,0.15095e-01_rb /)
+      kao(:, 1, 4) = (/ &
+        & 0.24391e-02_rb,0.28720e-02_rb,0.33497e-02_rb,0.38926e-02_rb,0.45054e-02_rb /)
+      kao(:, 2, 4) = (/ &
+        & 0.22506e-02_rb,0.26004e-02_rb,0.30002e-02_rb,0.34490e-02_rb,0.39579e-02_rb /)
+      kao(:, 3, 4) = (/ &
+        & 0.22153e-02_rb,0.25711e-02_rb,0.29320e-02_rb,0.33330e-02_rb,0.37728e-02_rb /)
+      kao(:, 4, 4) = (/ &
+        & 0.22483e-02_rb,0.25445e-02_rb,0.28745e-02_rb,0.32484e-02_rb,0.36554e-02_rb /)
+      kao(:, 5, 4) = (/ &
+        & 0.23388e-02_rb,0.25985e-02_rb,0.28914e-02_rb,0.32377e-02_rb,0.36113e-02_rb /)
+      kao(:, 6, 4) = (/ &
+        & 0.24669e-02_rb,0.26579e-02_rb,0.28834e-02_rb,0.31538e-02_rb,0.34593e-02_rb /)
+      kao(:, 7, 4) = (/ &
+        & 0.32536e-02_rb,0.33413e-02_rb,0.34375e-02_rb,0.35905e-02_rb,0.38010e-02_rb /)
+      kao(:, 8, 4) = (/ &
+        & 0.51228e-02_rb,0.51967e-02_rb,0.52820e-02_rb,0.53446e-02_rb,0.53797e-02_rb /)
+      kao(:, 9, 4) = (/ &
+        & 0.13029e-01_rb,0.13065e-01_rb,0.12891e-01_rb,0.12848e-01_rb,0.12777e-01_rb /)
+      kao(:,10, 4) = (/ &
+        & 0.29911e-01_rb,0.30117e-01_rb,0.28340e-01_rb,0.27321e-01_rb,0.27485e-01_rb /)
+      kao(:,11, 4) = (/ &
+        & 0.36663e-01_rb,0.36877e-01_rb,0.34688e-01_rb,0.33004e-01_rb,0.32437e-01_rb /)
+      kao(:,12, 4) = (/ &
+        & 0.37282e-01_rb,0.37775e-01_rb,0.34910e-01_rb,0.33463e-01_rb,0.33074e-01_rb /)
+      kao(:,13, 4) = (/ &
+        & 0.33412e-01_rb,0.32961e-01_rb,0.30323e-01_rb,0.29437e-01_rb,0.29572e-01_rb /)
+      kao(:, 1, 5) = (/ &
+        & 0.20792e-01_rb,0.22727e-01_rb,0.25207e-01_rb,0.27650e-01_rb,0.29866e-01_rb /)
+      kao(:, 2, 5) = (/ &
+        & 0.17515e-01_rb,0.19421e-01_rb,0.21509e-01_rb,0.23389e-01_rb,0.25418e-01_rb /)
+      kao(:, 3, 5) = (/ &
+        & 0.14912e-01_rb,0.16535e-01_rb,0.18159e-01_rb,0.19873e-01_rb,0.21718e-01_rb /)
+      kao(:, 4, 5) = (/ &
+        & 0.13498e-01_rb,0.14786e-01_rb,0.16253e-01_rb,0.17812e-01_rb,0.19494e-01_rb /)
+      kao(:, 5, 5) = (/ &
+        & 0.12840e-01_rb,0.13983e-01_rb,0.15257e-01_rb,0.16617e-01_rb,0.18015e-01_rb /)
+      kao(:, 6, 5) = (/ &
+        & 0.12557e-01_rb,0.13714e-01_rb,0.14939e-01_rb,0.16145e-01_rb,0.17356e-01_rb /)
+      kao(:, 7, 5) = (/ &
+        & 0.11839e-01_rb,0.12951e-01_rb,0.14090e-01_rb,0.15237e-01_rb,0.16396e-01_rb /)
+      kao(:, 8, 5) = (/ &
+        & 0.13190e-01_rb,0.13998e-01_rb,0.14783e-01_rb,0.15641e-01_rb,0.16632e-01_rb /)
+      kao(:, 9, 5) = (/ &
+        & 0.24479e-01_rb,0.24660e-01_rb,0.25206e-01_rb,0.25571e-01_rb,0.26098e-01_rb /)
+      kao(:,10, 5) = (/ &
+        & 0.62373e-01_rb,0.60241e-01_rb,0.61372e-01_rb,0.61530e-01_rb,0.60978e-01_rb /)
+      kao(:,11, 5) = (/ &
+        & 0.76394e-01_rb,0.73727e-01_rb,0.74701e-01_rb,0.75649e-01_rb,0.75608e-01_rb /)
+      kao(:,12, 5) = (/ &
+        & 0.76656e-01_rb,0.73608e-01_rb,0.75610e-01_rb,0.76362e-01_rb,0.76033e-01_rb /)
+      kao(:,13, 5) = (/ &
+        & 0.66025e-01_rb,0.64890e-01_rb,0.66873e-01_rb,0.66992e-01_rb,0.66685e-01_rb /)
+      kao(:, 1, 6) = (/ &
+        & 0.99799e-01_rb,0.10479e+00_rb,0.10918e+00_rb,0.11347e+00_rb,0.11767e+00_rb /)
+      kao(:, 2, 6) = (/ &
+        & 0.87946e-01_rb,0.91820e-01_rb,0.95208e-01_rb,0.99071e-01_rb,0.10286e+00_rb /)
+      kao(:, 3, 6) = (/ &
+        & 0.76753e-01_rb,0.80377e-01_rb,0.84204e-01_rb,0.87924e-01_rb,0.91370e-01_rb /)
+      kao(:, 4, 6) = (/ &
+        & 0.67002e-01_rb,0.70630e-01_rb,0.73736e-01_rb,0.76764e-01_rb,0.79671e-01_rb /)
+      kao(:, 5, 6) = (/ &
+        & 0.58933e-01_rb,0.61857e-01_rb,0.64756e-01_rb,0.67323e-01_rb,0.69871e-01_rb /)
+      kao(:, 6, 6) = (/ &
+        & 0.53143e-01_rb,0.55386e-01_rb,0.57507e-01_rb,0.59715e-01_rb,0.62263e-01_rb /)
+      kao(:, 7, 6) = (/ &
+        & 0.50856e-01_rb,0.52603e-01_rb,0.54414e-01_rb,0.56230e-01_rb,0.58483e-01_rb /)
+      kao(:, 8, 6) = (/ &
+        & 0.50528e-01_rb,0.52598e-01_rb,0.54634e-01_rb,0.56710e-01_rb,0.58872e-01_rb /)
+      kao(:, 9, 6) = (/ &
+        & 0.64616e-01_rb,0.65915e-01_rb,0.67210e-01_rb,0.68742e-01_rb,0.70092e-01_rb /)
+      kao(:,10, 6) = (/ &
+        & 0.11509e+00_rb,0.11448e+00_rb,0.11368e+00_rb,0.11348e+00_rb,0.11401e+00_rb /)
+      kao(:,11, 6) = (/ &
+        & 0.14266e+00_rb,0.13997e+00_rb,0.13810e+00_rb,0.13688e+00_rb,0.13622e+00_rb /)
+      kao(:,12, 6) = (/ &
+        & 0.14464e+00_rb,0.14198e+00_rb,0.13915e+00_rb,0.13789e+00_rb,0.13781e+00_rb /)
+      kao(:,13, 6) = (/ &
+        & 0.12550e+00_rb,0.12328e+00_rb,0.12173e+00_rb,0.12127e+00_rb,0.12078e+00_rb /)
+      kao(:, 1, 7) = (/ &
+        & 0.30825e+00_rb,0.31119e+00_rb,0.31335e+00_rb,0.31641e+00_rb,0.32024e+00_rb /)
+      kao(:, 2, 7) = (/ &
+        & 0.28100e+00_rb,0.28660e+00_rb,0.29192e+00_rb,0.29680e+00_rb,0.30014e+00_rb /)
+      kao(:, 3, 7) = (/ &
+        & 0.26374e+00_rb,0.27129e+00_rb,0.27887e+00_rb,0.28626e+00_rb,0.29478e+00_rb /)
+      kao(:, 4, 7) = (/ &
+        & 0.24539e+00_rb,0.25325e+00_rb,0.26070e+00_rb,0.26955e+00_rb,0.27794e+00_rb /)
+      kao(:, 5, 7) = (/ &
+        & 0.21737e+00_rb,0.22642e+00_rb,0.23531e+00_rb,0.24408e+00_rb,0.25322e+00_rb /)
+      kao(:, 6, 7) = (/ &
+        & 0.19066e+00_rb,0.19913e+00_rb,0.20834e+00_rb,0.21782e+00_rb,0.22698e+00_rb /)
+      kao(:, 7, 7) = (/ &
+        & 0.17386e+00_rb,0.18325e+00_rb,0.19211e+00_rb,0.20024e+00_rb,0.20881e+00_rb /)
+      kao(:, 8, 7) = (/ &
+        & 0.17625e+00_rb,0.18236e+00_rb,0.18905e+00_rb,0.19574e+00_rb,0.20193e+00_rb /)
+      kao(:, 9, 7) = (/ &
+        & 0.21820e+00_rb,0.22416e+00_rb,0.22986e+00_rb,0.23737e+00_rb,0.24518e+00_rb /)
+      kao(:,10, 7) = (/ &
+        & 0.33529e+00_rb,0.34302e+00_rb,0.35397e+00_rb,0.36397e+00_rb,0.37339e+00_rb /)
+      kao(:,11, 7) = (/ &
+        & 0.38474e+00_rb,0.39863e+00_rb,0.41168e+00_rb,0.42115e+00_rb,0.42917e+00_rb /)
+      kao(:,12, 7) = (/ &
+        & 0.38499e+00_rb,0.39580e+00_rb,0.40497e+00_rb,0.41279e+00_rb,0.42045e+00_rb /)
+      kao(:,13, 7) = (/ &
+        & 0.34291e+00_rb,0.35180e+00_rb,0.35970e+00_rb,0.36697e+00_rb,0.37460e+00_rb /)
+      kao(:, 1, 8) = (/ &
+        & 0.87131e+00_rb,0.87876e+00_rb,0.88509e+00_rb,0.89061e+00_rb,0.89432e+00_rb /)
+      kao(:, 2, 8) = (/ &
+        & 0.78963e+00_rb,0.79236e+00_rb,0.79978e+00_rb,0.80959e+00_rb,0.82163e+00_rb /)
+      kao(:, 3, 8) = (/ &
+        & 0.82479e+00_rb,0.82842e+00_rb,0.83069e+00_rb,0.83679e+00_rb,0.84334e+00_rb /)
+      kao(:, 4, 8) = (/ &
+        & 0.90877e+00_rb,0.91962e+00_rb,0.92466e+00_rb,0.93139e+00_rb,0.93904e+00_rb /)
+      kao(:, 5, 8) = (/ &
+        & 0.97131e+00_rb,0.99301e+00_rb,0.10095e+01_rb,0.10270e+01_rb,0.10371e+01_rb /)
+      kao(:, 6, 8) = (/ &
+        & 0.96984e+00_rb,0.10040e+01_rb,0.10393e+01_rb,0.10670e+01_rb,0.10990e+01_rb /)
+      kao(:, 7, 8) = (/ &
+        & 0.95686e+00_rb,0.10029e+01_rb,0.10449e+01_rb,0.10923e+01_rb,0.11334e+01_rb /)
+      kao(:, 8, 8) = (/ &
+        & 0.97227e+00_rb,0.10380e+01_rb,0.11014e+01_rb,0.11624e+01_rb,0.12218e+01_rb /)
+      kao(:, 9, 8) = (/ &
+        & 0.12290e+01_rb,0.13071e+01_rb,0.14005e+01_rb,0.15005e+01_rb,0.15980e+01_rb /)
+      kao(:,10, 8) = (/ &
+        & 0.17996e+01_rb,0.19304e+01_rb,0.20752e+01_rb,0.22219e+01_rb,0.23814e+01_rb /)
+      kao(:,11, 8) = (/ &
+        & 0.19289e+01_rb,0.20656e+01_rb,0.22166e+01_rb,0.23715e+01_rb,0.25386e+01_rb /)
+      kao(:,12, 8) = (/ &
+        & 0.18429e+01_rb,0.19765e+01_rb,0.21175e+01_rb,0.22722e+01_rb,0.24239e+01_rb /)
+      kao(:,13, 8) = (/ &
+        & 0.16420e+01_rb,0.17464e+01_rb,0.18635e+01_rb,0.19773e+01_rb,0.21012e+01_rb /)
+      kao(:, 1, 9) = (/ &
+        & 0.39892e+01_rb,0.40153e+01_rb,0.40324e+01_rb,0.40465e+01_rb,0.40524e+01_rb /)
+      kao(:, 2, 9) = (/ &
+        & 0.38871e+01_rb,0.39035e+01_rb,0.39123e+01_rb,0.39056e+01_rb,0.38966e+01_rb /)
+      kao(:, 3, 9) = (/ &
+        & 0.37883e+01_rb,0.37950e+01_rb,0.38080e+01_rb,0.37991e+01_rb,0.37826e+01_rb /)
+      kao(:, 4, 9) = (/ &
+        & 0.37778e+01_rb,0.37663e+01_rb,0.37745e+01_rb,0.37709e+01_rb,0.37556e+01_rb /)
+      kao(:, 5, 9) = (/ &
+        & 0.38757e+01_rb,0.38404e+01_rb,0.38539e+01_rb,0.39228e+01_rb,0.39777e+01_rb /)
+      kao(:, 6, 9) = (/ &
+        & 0.40990e+01_rb,0.41407e+01_rb,0.41745e+01_rb,0.42258e+01_rb,0.42574e+01_rb /)
+      kao(:, 7, 9) = (/ &
+        & 0.46288e+01_rb,0.46726e+01_rb,0.47096e+01_rb,0.47165e+01_rb,0.47374e+01_rb /)
+      kao(:, 8, 9) = (/ &
+        & 0.58432e+01_rb,0.58474e+01_rb,0.58608e+01_rb,0.58935e+01_rb,0.59261e+01_rb /)
+      kao(:, 9, 9) = (/ &
+        & 0.88685e+01_rb,0.88567e+01_rb,0.88137e+01_rb,0.87653e+01_rb,0.87262e+01_rb /)
+      kao(:,10, 9) = (/ &
+        & 0.10455e+02_rb,0.10242e+02_rb,0.10004e+02_rb,0.97643e+01_rb,0.95067e+01_rb /)
+      kao(:,11, 9) = (/ &
+        & 0.10240e+02_rb,0.99968e+01_rb,0.97347e+01_rb,0.94750e+01_rb,0.92006e+01_rb /)
+      kao(:,12, 9) = (/ &
+        & 0.10401e+02_rb,0.10165e+02_rb,0.99240e+01_rb,0.96656e+01_rb,0.94112e+01_rb /)
+      kao(:,13, 9) = (/ &
+        & 0.10764e+02_rb,0.10580e+02_rb,0.10381e+02_rb,0.10188e+02_rb,0.99802e+01_rb /)
+      kao(:, 1,10) = (/ &
+        & 0.10712e+02_rb,0.10575e+02_rb,0.10581e+02_rb,0.10556e+02_rb,0.10575e+02_rb /)
+      kao(:, 2,10) = (/ &
+        & 0.11144e+02_rb,0.11109e+02_rb,0.11034e+02_rb,0.11107e+02_rb,0.11138e+02_rb /)
+      kao(:, 3,10) = (/ &
+        & 0.12257e+02_rb,0.12112e+02_rb,0.11992e+02_rb,0.11951e+02_rb,0.12031e+02_rb /)
+      kao(:, 4,10) = (/ &
+        & 0.13040e+02_rb,0.13085e+02_rb,0.12882e+02_rb,0.12756e+02_rb,0.12737e+02_rb /)
+      kao(:, 5,10) = (/ &
+        & 0.13809e+02_rb,0.13771e+02_rb,0.13452e+02_rb,0.12567e+02_rb,0.12086e+02_rb /)
+      kao(:, 6,10) = (/ &
+        & 0.14608e+02_rb,0.13942e+02_rb,0.13365e+02_rb,0.13494e+02_rb,0.13762e+02_rb /)
+      kao(:, 7,10) = (/ &
+        & 0.14665e+02_rb,0.14685e+02_rb,0.15121e+02_rb,0.15602e+02_rb,0.15768e+02_rb /)
+      kao(:, 8,10) = (/ &
+        & 0.15612e+02_rb,0.16507e+02_rb,0.16644e+02_rb,0.16706e+02_rb,0.16696e+02_rb /)
+      kao(:, 9,10) = (/ &
+        & 0.15405e+02_rb,0.15874e+02_rb,0.16716e+02_rb,0.17957e+02_rb,0.17859e+02_rb /)
+      kao(:,10,10) = (/ &
+        & 0.19406e+00_rb,0.17932e+00_rb,0.16660e+00_rb,0.15558e+00_rb,0.14589e+00_rb /)
+      kao(:,11,10) = (/ &
+        & 0.27650e+00_rb,0.25556e+00_rb,0.23727e+00_rb,0.22182e+00_rb,0.20805e+00_rb /)
+      kao(:,12,10) = (/ &
+        & 0.29298e+00_rb,0.27044e+00_rb,0.25162e+00_rb,0.23497e+00_rb,0.22076e+00_rb /)
+      kao(:,13,10) = (/ &
+        & 0.24883e+00_rb,0.22985e+00_rb,0.21413e+00_rb,0.20012e+00_rb,0.18795e+00_rb /)
+      kao(:, 1,11) = (/ &
+        & 0.13650e+02_rb,0.13767e+02_rb,0.13771e+02_rb,0.13650e+02_rb,0.13663e+02_rb /)
+      kao(:, 2,11) = (/ &
+        & 0.15146e+02_rb,0.15253e+02_rb,0.15272e+02_rb,0.15152e+02_rb,0.15138e+02_rb /)
+      kao(:, 3,11) = (/ &
+        & 0.16834e+02_rb,0.17107e+02_rb,0.17158e+02_rb,0.17187e+02_rb,0.17057e+02_rb /)
+      kao(:, 4,11) = (/ &
+        & 0.19191e+02_rb,0.19144e+02_rb,0.19155e+02_rb,0.19247e+02_rb,0.19292e+02_rb /)
+      kao(:, 5,11) = (/ &
+        & 0.20953e+02_rb,0.21248e+02_rb,0.21186e+02_rb,0.21027e+02_rb,0.20703e+02_rb /)
+      kao(:, 6,11) = (/ &
+        & 0.22592e+02_rb,0.22192e+02_rb,0.22056e+02_rb,0.20972e+02_rb,0.19910e+02_rb /)
+      kao(:, 7,11) = (/ &
+        & 0.24652e+02_rb,0.23679e+02_rb,0.22339e+02_rb,0.21302e+02_rb,0.21697e+02_rb /)
+      kao(:, 8,11) = (/ &
+        & 0.22508e+02_rb,0.20438e+02_rb,0.20163e+02_rb,0.20628e+02_rb,0.20954e+02_rb /)
+      kao(:, 9,11) = (/ &
+        & 0.10264e+02_rb,0.85820e+01_rb,0.65270e+01_rb,0.38883e+01_rb,0.27974e+01_rb /)
+      kao(:,10,11) = (/ &
+        & 0.19324e+00_rb,0.17913e+00_rb,0.16619e+00_rb,0.15516e+00_rb,0.14524e+00_rb /)
+      kao(:,11,11) = (/ &
+        & 0.27573e+00_rb,0.25425e+00_rb,0.23627e+00_rb,0.22036e+00_rb,0.20639e+00_rb /)
+      kao(:,12,11) = (/ &
+        & 0.29224e+00_rb,0.26998e+00_rb,0.25055e+00_rb,0.23380e+00_rb,0.21908e+00_rb /)
+      kao(:,13,11) = (/ &
+        & 0.24964e+00_rb,0.23056e+00_rb,0.21391e+00_rb,0.19980e+00_rb,0.18698e+00_rb /)
+      kao(:, 1,12) = (/ &
+        & 0.17721e+02_rb,0.17805e+02_rb,0.17752e+02_rb,0.17857e+02_rb,0.17872e+02_rb /)
+      kao(:, 2,12) = (/ &
+        & 0.20222e+02_rb,0.20161e+02_rb,0.20267e+02_rb,0.20335e+02_rb,0.20254e+02_rb /)
+      kao(:, 3,12) = (/ &
+        & 0.23717e+02_rb,0.23414e+02_rb,0.23571e+02_rb,0.23552e+02_rb,0.23687e+02_rb /)
+      kao(:, 4,12) = (/ &
+        & 0.26876e+02_rb,0.26972e+02_rb,0.27155e+02_rb,0.26947e+02_rb,0.27025e+02_rb /)
+      kao(:, 5,12) = (/ &
+        & 0.30213e+02_rb,0.29978e+02_rb,0.30226e+02_rb,0.30477e+02_rb,0.30329e+02_rb /)
+      kao(:, 6,12) = (/ &
+        & 0.33660e+02_rb,0.33482e+02_rb,0.33159e+02_rb,0.32959e+02_rb,0.32299e+02_rb /)
+      kao(:, 7,12) = (/ &
+        & 0.35893e+02_rb,0.35649e+02_rb,0.35067e+02_rb,0.34565e+02_rb,0.32437e+02_rb /)
+      kao(:, 8,12) = (/ &
+        & 0.33426e+02_rb,0.33323e+02_rb,0.31984e+02_rb,0.29587e+02_rb,0.27505e+02_rb /)
+      kao(:, 9,12) = (/ &
+        & 0.46633e-01_rb,0.43205e-01_rb,0.40562e-01_rb,0.38133e-01_rb,0.35900e-01_rb /)
+      kao(:,10,12) = (/ &
+        & 0.19421e+00_rb,0.18024e+00_rb,0.16872e+00_rb,0.15815e+00_rb,0.14837e+00_rb /)
+      kao(:,11,12) = (/ &
+        & 0.27315e+00_rb,0.25480e+00_rb,0.23771e+00_rb,0.22191e+00_rb,0.20780e+00_rb /)
+      kao(:,12,12) = (/ &
+        & 0.29027e+00_rb,0.26969e+00_rb,0.25017e+00_rb,0.23314e+00_rb,0.21774e+00_rb /)
+      kao(:,13,12) = (/ &
+        & 0.24833e+00_rb,0.22943e+00_rb,0.21278e+00_rb,0.19800e+00_rb,0.18543e+00_rb /)
+      kao(:, 1,13) = (/ &
+        & 0.29672e+02_rb,0.29291e+02_rb,0.29191e+02_rb,0.29170e+02_rb,0.29116e+02_rb /)
+      kao(:, 2,13) = (/ &
+        & 0.24713e+02_rb,0.24965e+02_rb,0.25039e+02_rb,0.25355e+02_rb,0.25650e+02_rb /)
+      kao(:, 3,13) = (/ &
+        & 0.30510e+02_rb,0.31166e+02_rb,0.30663e+02_rb,0.31021e+02_rb,0.30901e+02_rb /)
+      kao(:, 4,13) = (/ &
+        & 0.38695e+02_rb,0.38922e+02_rb,0.38741e+02_rb,0.39204e+02_rb,0.38826e+02_rb /)
+      kao(:, 5,13) = (/ &
+        & 0.45118e+02_rb,0.44337e+02_rb,0.43664e+02_rb,0.43267e+02_rb,0.43524e+02_rb /)
+      kao(:, 6,13) = (/ &
+        & 0.34652e+02_rb,0.35182e+02_rb,0.35339e+02_rb,0.35340e+02_rb,0.35899e+02_rb /)
+      kao(:, 7,13) = (/ &
+        & 0.18801e+02_rb,0.18598e+02_rb,0.18855e+02_rb,0.18819e+02_rb,0.19052e+02_rb /)
+      kao(:, 8,13) = (/ &
+        & 0.12297e-01_rb,0.11425e-01_rb,0.10670e-01_rb,0.99994e-02_rb,0.94139e-02_rb /)
+      kao(:, 9,13) = (/ &
+        & 0.46821e-01_rb,0.43361e-01_rb,0.40368e-01_rb,0.37752e-01_rb,0.35493e-01_rb /)
+      kao(:,10,13) = (/ &
+        & 0.19817e+00_rb,0.18303e+00_rb,0.17002e+00_rb,0.15883e+00_rb,0.14933e+00_rb /)
+      kao(:,11,13) = (/ &
+        & 0.28145e+00_rb,0.25995e+00_rb,0.24181e+00_rb,0.22660e+00_rb,0.21326e+00_rb /)
+      kao(:,12,13) = (/ &
+        & 0.29510e+00_rb,0.27294e+00_rb,0.25519e+00_rb,0.23947e+00_rb,0.22551e+00_rb /)
+      kao(:,13,13) = (/ &
+        & 0.24830e+00_rb,0.23074e+00_rb,0.21556e+00_rb,0.20226e+00_rb,0.19029e+00_rb /)
+      kao(:, 1,14) = (/ &
+        & 0.47168e+02_rb,0.46890e+02_rb,0.46612e+02_rb,0.46353e+02_rb,0.46088e+02_rb /)
+      kao(:, 2,14) = (/ &
+        & 0.47771e+02_rb,0.46980e+02_rb,0.46445e+02_rb,0.45828e+02_rb,0.45437e+02_rb /)
+      kao(:, 3,14) = (/ &
+        & 0.42946e+02_rb,0.42652e+02_rb,0.43791e+02_rb,0.43237e+02_rb,0.44104e+02_rb /)
+      kao(:, 4,14) = (/ &
+        & 0.30957e+02_rb,0.30098e+02_rb,0.30055e+02_rb,0.29555e+02_rb,0.29902e+02_rb /)
+      kao(:, 5,14) = (/ &
+        & 0.28397e+01_rb,0.38572e+01_rb,0.42906e+01_rb,0.47091e+01_rb,0.48135e+01_rb /)
+      kao(:, 6,14) = (/ &
+        & 0.36978e-02_rb,0.34591e-02_rb,0.32524e-02_rb,0.30649e-02_rb,0.29018e-02_rb /)
+      kao(:, 7,14) = (/ &
+        & 0.61733e-02_rb,0.57589e-02_rb,0.53925e-02_rb,0.50742e-02_rb,0.47835e-02_rb /)
+      kao(:, 8,14) = (/ &
+        & 0.12390e-01_rb,0.11526e-01_rb,0.10766e-01_rb,0.10096e-01_rb,0.95010e-02_rb /)
+      kao(:, 9,14) = (/ &
+        & 0.47105e-01_rb,0.43648e-01_rb,0.40665e-01_rb,0.38054e-01_rb,0.35722e-01_rb /)
+      kao(:,10,14) = (/ &
+        & 0.19915e+00_rb,0.18412e+00_rb,0.17099e+00_rb,0.15957e+00_rb,0.14948e+00_rb /)
+      kao(:,11,14) = (/ &
+        & 0.28280e+00_rb,0.26124e+00_rb,0.24266e+00_rb,0.22645e+00_rb,0.21214e+00_rb /)
+      kao(:,12,14) = (/ &
+        & 0.29891e+00_rb,0.27613e+00_rb,0.25648e+00_rb,0.23927e+00_rb,0.22423e+00_rb /)
+      kao(:,13,14) = (/ &
+        & 0.25421e+00_rb,0.23484e+00_rb,0.21809e+00_rb,0.20347e+00_rb,0.19057e+00_rb /)
+      kao(:, 1,15) = (/ &
+        & 0.64994e+02_rb,0.64283e+02_rb,0.63755e+02_rb,0.63407e+02_rb,0.63287e+02_rb /)
+      kao(:, 2,15) = (/ &
+        & 0.78266e+02_rb,0.77364e+02_rb,0.76722e+02_rb,0.76285e+02_rb,0.75992e+02_rb /)
+      kao(:, 3,15) = (/ &
+        & 0.41710e+02_rb,0.38379e+02_rb,0.35076e+02_rb,0.35418e+02_rb,0.33306e+02_rb /)
+      kao(:, 4,15) = (/ &
+        & 0.14170e-02_rb,0.13401e-02_rb,0.12716e-02_rb,0.12073e-02_rb,0.11535e-02_rb /)
+      kao(:, 5,15) = (/ &
+        & 0.23659e-02_rb,0.22261e-02_rb,0.21042e-02_rb,0.19950e-02_rb,0.18970e-02_rb /)
+      kao(:, 6,15) = (/ &
+        & 0.37432e-02_rb,0.35105e-02_rb,0.33006e-02_rb,0.31222e-02_rb,0.29521e-02_rb /)
+      kao(:, 7,15) = (/ &
+        & 0.62408e-02_rb,0.58258e-02_rb,0.54782e-02_rb,0.51594e-02_rb,0.48767e-02_rb /)
+      kao(:, 8,15) = (/ &
+        & 0.12522e-01_rb,0.11652e-01_rb,0.10922e-01_rb,0.10265e-01_rb,0.96672e-02_rb /)
+      kao(:, 9,15) = (/ &
+        & 0.47545e-01_rb,0.44152e-01_rb,0.41251e-01_rb,0.38666e-01_rb,0.36358e-01_rb /)
+      kao(:,10,15) = (/ &
+        & 0.20097e+00_rb,0.18592e+00_rb,0.17341e+00_rb,0.16203e+00_rb,0.15235e+00_rb /)
+      kao(:,11,15) = (/ &
+        & 0.28499e+00_rb,0.26428e+00_rb,0.24585e+00_rb,0.22980e+00_rb,0.21575e+00_rb /)
+      kao(:,12,15) = (/ &
+        & 0.30172e+00_rb,0.27929e+00_rb,0.25980e+00_rb,0.24306e+00_rb,0.22789e+00_rb /)
+      kao(:,13,15) = (/ &
+        & 0.25655e+00_rb,0.23731e+00_rb,0.22092e+00_rb,0.20639e+00_rb,0.19367e+00_rb /)
+      kao(:, 1,16) = (/ &
+        & 0.80810e+02_rb,0.81099e+02_rb,0.81190e+02_rb,0.81107e+02_rb,0.80989e+02_rb /)
+      kao(:, 2,16) = (/ &
+        & 0.99319e+02_rb,0.99708e+02_rb,0.99822e+02_rb,0.99871e+02_rb,0.99993e+02_rb /)
+      kao(:, 3,16) = (/ &
+        & 0.46927e+02_rb,0.54316e+02_rb,0.57355e+02_rb,0.53715e+02_rb,0.52802e+02_rb /)
+      kao(:, 4,16) = (/ &
+        & 0.12802e-02_rb,0.12027e-02_rb,0.11386e-02_rb,0.10866e-02_rb,0.10525e-02_rb /)
+      kao(:, 5,16) = (/ &
+        & 0.21675e-02_rb,0.20715e-02_rb,0.19422e-02_rb,0.18402e-02_rb,0.17681e-02_rb /)
+      kao(:, 6,16) = (/ &
+        & 0.34707e-02_rb,0.32796e-02_rb,0.30986e-02_rb,0.29246e-02_rb,0.28034e-02_rb /)
+      kao(:, 7,16) = (/ &
+        & 0.58659e-02_rb,0.55310e-02_rb,0.51820e-02_rb,0.48829e-02_rb,0.46784e-02_rb /)
+      kao(:, 8,16) = (/ &
+        & 0.11875e-01_rb,0.11183e-01_rb,0.10438e-01_rb,0.98038e-02_rb,0.93665e-02_rb /)
+      kao(:, 9,16) = (/ &
+        & 0.45519e-01_rb,0.42850e-01_rb,0.39715e-01_rb,0.37447e-01_rb,0.35369e-01_rb /)
+      kao(:,10,16) = (/ &
+        & 0.19392e+00_rb,0.18108e+00_rb,0.16817e+00_rb,0.15883e+00_rb,0.14864e+00_rb /)
+      kao(:,11,16) = (/ &
+        & 0.27830e+00_rb,0.25715e+00_rb,0.24100e+00_rb,0.22595e+00_rb,0.21321e+00_rb /)
+      kao(:,12,16) = (/ &
+        & 0.29533e+00_rb,0.27422e+00_rb,0.25636e+00_rb,0.23936e+00_rb,0.22658e+00_rb /)
+      kao(:,13,16) = (/ &
+        & 0.25310e+00_rb,0.23535e+00_rb,0.21855e+00_rb,0.20552e+00_rb,0.19293e+00_rb /)
+  
+!     -----------------------------------------------------------------
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+      kbo(:,13, 1) = (/ &
+        & 0.18379e-05_rb,0.23296e-05_rb,0.29007e-05_rb,0.35902e-05_rb,0.43437e-05_rb /)
+      kbo(:,14, 1) = (/ &
+        & 0.15919e-05_rb,0.19832e-05_rb,0.24720e-05_rb,0.30683e-05_rb,0.37253e-05_rb /)
+      kbo(:,15, 1) = (/ &
+        & 0.13850e-05_rb,0.17115e-05_rb,0.21225e-05_rb,0.26292e-05_rb,0.31945e-05_rb /)
+      kbo(:,16, 1) = (/ &
+        & 0.11896e-05_rb,0.14680e-05_rb,0.18142e-05_rb,0.22537e-05_rb,0.27284e-05_rb /)
+      kbo(:,17, 1) = (/ &
+        & 0.10228e-05_rb,0.12597e-05_rb,0.15532e-05_rb,0.19272e-05_rb,0.23163e-05_rb /)
+      kbo(:,18, 1) = (/ &
+        & 0.88243e-06_rb,0.10835e-05_rb,0.13316e-05_rb,0.16603e-05_rb,0.19808e-05_rb /)
+      kbo(:,19, 1) = (/ &
+        & 0.75677e-06_rb,0.92925e-06_rb,0.11401e-05_rb,0.14107e-05_rb,0.16901e-05_rb /)
+      kbo(:,20, 1) = (/ &
+        & 0.64614e-06_rb,0.79361e-06_rb,0.97353e-06_rb,0.11964e-05_rb,0.14414e-05_rb /)
+      kbo(:,21, 1) = (/ &
+        & 0.55323e-06_rb,0.67580e-06_rb,0.82647e-06_rb,0.10137e-05_rb,0.12318e-05_rb /)
+      kbo(:,22, 1) = (/ &
+        & 0.47719e-06_rb,0.58149e-06_rb,0.71060e-06_rb,0.87005e-06_rb,0.10605e-05_rb /)
+      kbo(:,23, 1) = (/ &
+        & 0.41128e-06_rb,0.50080e-06_rb,0.61104e-06_rb,0.75347e-06_rb,0.91200e-06_rb /)
+      kbo(:,24, 1) = (/ &
+        & 0.35306e-06_rb,0.42860e-06_rb,0.52320e-06_rb,0.65156e-06_rb,0.78122e-06_rb /)
+      kbo(:,25, 1) = (/ &
+        & 0.30363e-06_rb,0.36731e-06_rb,0.44673e-06_rb,0.56097e-06_rb,0.66791e-06_rb /)
+      kbo(:,26, 1) = (/ &
+        & 0.26073e-06_rb,0.31537e-06_rb,0.38738e-06_rb,0.48210e-06_rb,0.57382e-06_rb /)
+      kbo(:,27, 1) = (/ &
+        & 0.22303e-06_rb,0.26986e-06_rb,0.33628e-06_rb,0.41161e-06_rb,0.48722e-06_rb /)
+      kbo(:,28, 1) = (/ &
+        & 0.18954e-06_rb,0.22952e-06_rb,0.28797e-06_rb,0.35166e-06_rb,0.41440e-06_rb /)
+      kbo(:,29, 1) = (/ &
+        & 0.16106e-06_rb,0.19430e-06_rb,0.24661e-06_rb,0.29815e-06_rb,0.35151e-06_rb /)
+      kbo(:,30, 1) = (/ &
+        & 0.13630e-06_rb,0.16528e-06_rb,0.20922e-06_rb,0.25193e-06_rb,0.29913e-06_rb /)
+      kbo(:,31, 1) = (/ &
+        & 0.11504e-06_rb,0.14276e-06_rb,0.17807e-06_rb,0.21482e-06_rb,0.25451e-06_rb /)
+      kbo(:,32, 1) = (/ &
+        & 0.96980e-07_rb,0.12215e-06_rb,0.15159e-06_rb,0.18179e-06_rb,0.21515e-06_rb /)
+      kbo(:,33, 1) = (/ &
+        & 0.81598e-07_rb,0.10315e-06_rb,0.12730e-06_rb,0.15190e-06_rb,0.18093e-06_rb /)
+      kbo(:,34, 1) = (/ &
+        & 0.67700e-07_rb,0.85970e-07_rb,0.10559e-06_rb,0.12608e-06_rb,0.15006e-06_rb /)
+      kbo(:,35, 1) = (/ &
+        & 0.55177e-07_rb,0.69519e-07_rb,0.85967e-07_rb,0.10223e-06_rb,0.12147e-06_rb /)
+      kbo(:,36, 1) = (/ &
+        & 0.43924e-07_rb,0.54395e-07_rb,0.67998e-07_rb,0.81142e-07_rb,0.95717e-07_rb /)
+      kbo(:,37, 1) = (/ &
+        & 0.34469e-07_rb,0.41036e-07_rb,0.52575e-07_rb,0.63117e-07_rb,0.74301e-07_rb /)
+      kbo(:,38, 1) = (/ &
+        & 0.26777e-07_rb,0.31734e-07_rb,0.40555e-07_rb,0.49032e-07_rb,0.57653e-07_rb /)
+      kbo(:,39, 1) = (/ &
+        & 0.20670e-07_rb,0.24721e-07_rb,0.30685e-07_rb,0.37873e-07_rb,0.44555e-07_rb /)
+      kbo(:,40, 1) = (/ &
+        & 0.15860e-07_rb,0.19032e-07_rb,0.22612e-07_rb,0.28845e-07_rb,0.34246e-07_rb /)
+      kbo(:,41, 1) = (/ &
+        & 0.12129e-07_rb,0.14603e-07_rb,0.17357e-07_rb,0.21851e-07_rb,0.26346e-07_rb /)
+      kbo(:,42, 1) = (/ &
+        & 0.92319e-08_rb,0.11199e-07_rb,0.13365e-07_rb,0.16174e-07_rb,0.20019e-07_rb /)
+      kbo(:,43, 1) = (/ &
+        & 0.69289e-08_rb,0.84537e-08_rb,0.10159e-07_rb,0.11992e-07_rb,0.14940e-07_rb /)
+      kbo(:,44, 1) = (/ &
+        & 0.51546e-08_rb,0.63380e-08_rb,0.76593e-08_rb,0.90562e-08_rb,0.10716e-07_rb /)
+      kbo(:,45, 1) = (/ &
+        & 0.38335e-08_rb,0.47085e-08_rb,0.57219e-08_rb,0.68148e-08_rb,0.79518e-08_rb /)
+      kbo(:,46, 1) = (/ &
+        & 0.28583e-08_rb,0.34724e-08_rb,0.42447e-08_rb,0.50888e-08_rb,0.59494e-08_rb /)
+      kbo(:,47, 1) = (/ &
+        & 0.20945e-08_rb,0.25418e-08_rb,0.31058e-08_rb,0.37494e-08_rb,0.44274e-08_rb /)
+      kbo(:,48, 1) = (/ &
+        & 0.15164e-08_rb,0.18560e-08_rb,0.22628e-08_rb,0.27371e-08_rb,0.32773e-08_rb /)
+      kbo(:,49, 1) = (/ &
+        & 0.10916e-08_rb,0.13465e-08_rb,0.16387e-08_rb,0.19740e-08_rb,0.23865e-08_rb /)
+      kbo(:,50, 1) = (/ &
+        & 0.78324e-09_rb,0.98361e-09_rb,0.11977e-08_rb,0.14517e-08_rb,0.17457e-08_rb /)
+      kbo(:,51, 1) = (/ &
+        & 0.57263e-09_rb,0.71786e-09_rb,0.87689e-09_rb,0.10705e-08_rb,0.12881e-08_rb /)
+      kbo(:,52, 1) = (/ &
+        & 0.41574e-09_rb,0.51264e-09_rb,0.64152e-09_rb,0.78315e-09_rb,0.94705e-09_rb /)
+      kbo(:,53, 1) = (/ &
+        & 0.29940e-09_rb,0.36836e-09_rb,0.45886e-09_rb,0.56405e-09_rb,0.69166e-09_rb /)
+      kbo(:,54, 1) = (/ &
+        & 0.22617e-09_rb,0.27395e-09_rb,0.33754e-09_rb,0.42095e-09_rb,0.51544e-09_rb /)
+      kbo(:,55, 1) = (/ &
+        & 0.17483e-09_rb,0.20845e-09_rb,0.25546e-09_rb,0.31817e-09_rb,0.39119e-09_rb /)
+      kbo(:,56, 1) = (/ &
+        & 0.13496e-09_rb,0.15930e-09_rb,0.19380e-09_rb,0.23861e-09_rb,0.29770e-09_rb /)
+      kbo(:,57, 1) = (/ &
+        & 0.10406e-09_rb,0.12247e-09_rb,0.14749e-09_rb,0.18078e-09_rb,0.22597e-09_rb /)
+      kbo(:,58, 1) = (/ &
+        & 0.81345e-10_rb,0.94816e-10_rb,0.11329e-09_rb,0.13832e-09_rb,0.17161e-09_rb /)
+      kbo(:,59, 1) = (/ &
+        & 0.67159e-10_rb,0.78312e-10_rb,0.94745e-10_rb,0.11544e-09_rb,0.14442e-09_rb /)
+      kbo(:,13, 2) = (/ &
+        & 0.16654e-04_rb,0.18728e-04_rb,0.21238e-04_rb,0.24491e-04_rb,0.29038e-04_rb /)
+      kbo(:,14, 2) = (/ &
+        & 0.15636e-04_rb,0.17574e-04_rb,0.19918e-04_rb,0.23671e-04_rb,0.27237e-04_rb /)
+      kbo(:,15, 2) = (/ &
+        & 0.14853e-04_rb,0.16629e-04_rb,0.19700e-04_rb,0.22604e-04_rb,0.25586e-04_rb /)
+      kbo(:,16, 2) = (/ &
+        & 0.13519e-04_rb,0.15923e-04_rb,0.18289e-04_rb,0.20530e-04_rb,0.22799e-04_rb /)
+      kbo(:,17, 2) = (/ &
+        & 0.12411e-04_rb,0.14439e-04_rb,0.16431e-04_rb,0.18235e-04_rb,0.20109e-04_rb /)
+      kbo(:,18, 2) = (/ &
+        & 0.11267e-04_rb,0.12880e-04_rb,0.14429e-04_rb,0.16005e-04_rb,0.17538e-04_rb /)
+      kbo(:,19, 2) = (/ &
+        & 0.10025e-04_rb,0.11332e-04_rb,0.12550e-04_rb,0.13853e-04_rb,0.15103e-04_rb /)
+      kbo(:,20, 2) = (/ &
+        & 0.86342e-05_rb,0.97455e-05_rb,0.10778e-04_rb,0.11898e-04_rb,0.12789e-04_rb /)
+      kbo(:,21, 2) = (/ &
+        & 0.74004e-05_rb,0.83107e-05_rb,0.91633e-05_rb,0.10071e-04_rb,0.10674e-04_rb /)
+      kbo(:,22, 2) = (/ &
+        & 0.63700e-05_rb,0.70549e-05_rb,0.78271e-05_rb,0.85170e-05_rb,0.90022e-05_rb /)
+      kbo(:,23, 2) = (/ &
+        & 0.54404e-05_rb,0.60156e-05_rb,0.66393e-05_rb,0.71320e-05_rb,0.75007e-05_rb /)
+      kbo(:,24, 2) = (/ &
+        & 0.45997e-05_rb,0.50718e-05_rb,0.55713e-05_rb,0.59455e-05_rb,0.62118e-05_rb /)
+      kbo(:,25, 2) = (/ &
+        & 0.38745e-05_rb,0.42617e-05_rb,0.46479e-05_rb,0.49297e-05_rb,0.51638e-05_rb /)
+      kbo(:,26, 2) = (/ &
+        & 0.32488e-05_rb,0.35592e-05_rb,0.38685e-05_rb,0.40759e-05_rb,0.43092e-05_rb /)
+      kbo(:,27, 2) = (/ &
+        & 0.26995e-05_rb,0.29601e-05_rb,0.32065e-05_rb,0.33666e-05_rb,0.35609e-05_rb /)
+      kbo(:,28, 2) = (/ &
+        & 0.22359e-05_rb,0.24429e-05_rb,0.26408e-05_rb,0.27752e-05_rb,0.29293e-05_rb /)
+      kbo(:,29, 2) = (/ &
+        & 0.18487e-05_rb,0.20089e-05_rb,0.21668e-05_rb,0.22793e-05_rb,0.24029e-05_rb /)
+      kbo(:,30, 2) = (/ &
+        & 0.15291e-05_rb,0.16589e-05_rb,0.17733e-05_rb,0.18706e-05_rb,0.19584e-05_rb /)
+      kbo(:,31, 2) = (/ &
+        & 0.12554e-05_rb,0.13589e-05_rb,0.14436e-05_rb,0.15195e-05_rb,0.15928e-05_rb /)
+      kbo(:,32, 2) = (/ &
+        & 0.10248e-05_rb,0.11046e-05_rb,0.11716e-05_rb,0.12288e-05_rb,0.12916e-05_rb /)
+      kbo(:,33, 2) = (/ &
+        & 0.83272e-06_rb,0.89120e-06_rb,0.95036e-06_rb,0.99040e-06_rb,0.10409e-05_rb /)
+      kbo(:,34, 2) = (/ &
+        & 0.67518e-06_rb,0.72097e-06_rb,0.76854e-06_rb,0.80246e-06_rb,0.83912e-06_rb /)
+      kbo(:,35, 2) = (/ &
+        & 0.53577e-06_rb,0.57870e-06_rb,0.61715e-06_rb,0.64987e-06_rb,0.67220e-06_rb /)
+      kbo(:,36, 2) = (/ &
+        & 0.42402e-06_rb,0.45825e-06_rb,0.49307e-06_rb,0.52005e-06_rb,0.54029e-06_rb /)
+      kbo(:,37, 2) = (/ &
+        & 0.33419e-06_rb,0.36213e-06_rb,0.38911e-06_rb,0.41359e-06_rb,0.43177e-06_rb /)
+      kbo(:,38, 2) = (/ &
+        & 0.26240e-06_rb,0.28355e-06_rb,0.30530e-06_rb,0.32881e-06_rb,0.34617e-06_rb /)
+      kbo(:,39, 2) = (/ &
+        & 0.20468e-06_rb,0.22245e-06_rb,0.23980e-06_rb,0.25776e-06_rb,0.27424e-06_rb /)
+      kbo(:,40, 2) = (/ &
+        & 0.16070e-06_rb,0.17478e-06_rb,0.18856e-06_rb,0.20230e-06_rb,0.21801e-06_rb /)
+      kbo(:,41, 2) = (/ &
+        & 0.12583e-06_rb,0.13680e-06_rb,0.14851e-06_rb,0.15917e-06_rb,0.17184e-06_rb /)
+      kbo(:,42, 2) = (/ &
+        & 0.98494e-07_rb,0.10639e-06_rb,0.11634e-06_rb,0.12500e-06_rb,0.13490e-06_rb /)
+      kbo(:,43, 2) = (/ &
+        & 0.75196e-07_rb,0.82809e-07_rb,0.90095e-07_rb,0.97952e-07_rb,0.10509e-06_rb /)
+      kbo(:,44, 2) = (/ &
+        & 0.57305e-07_rb,0.63787e-07_rb,0.69227e-07_rb,0.75635e-07_rb,0.81687e-07_rb /)
+      kbo(:,45, 2) = (/ &
+        & 0.42965e-07_rb,0.48245e-07_rb,0.53346e-07_rb,0.58061e-07_rb,0.63120e-07_rb /)
+      kbo(:,46, 2) = (/ &
+        & 0.31048e-07_rb,0.36457e-07_rb,0.40514e-07_rb,0.44557e-07_rb,0.48550e-07_rb /)
+      kbo(:,47, 2) = (/ &
+        & 0.23094e-07_rb,0.26356e-07_rb,0.30443e-07_rb,0.33954e-07_rb,0.36789e-07_rb /)
+      kbo(:,48, 2) = (/ &
+        & 0.16858e-07_rb,0.19402e-07_rb,0.22449e-07_rb,0.25401e-07_rb,0.28254e-07_rb /)
+      kbo(:,49, 2) = (/ &
+        & 0.11413e-07_rb,0.14055e-07_rb,0.16046e-07_rb,0.18927e-07_rb,0.21080e-07_rb /)
+      kbo(:,50, 2) = (/ &
+        & 0.78650e-08_rb,0.99879e-08_rb,0.11846e-07_rb,0.13654e-07_rb,0.15871e-07_rb /)
+      kbo(:,51, 2) = (/ &
+        & 0.55417e-08_rb,0.68977e-08_rb,0.87006e-08_rb,0.10108e-07_rb,0.11829e-07_rb /)
+      kbo(:,52, 2) = (/ &
+        & 0.39143e-08_rb,0.48025e-08_rb,0.60180e-08_rb,0.73762e-08_rb,0.85851e-08_rb /)
+      kbo(:,53, 2) = (/ &
+        & 0.27637e-08_rb,0.33397e-08_rb,0.41996e-08_rb,0.52787e-08_rb,0.62923e-08_rb /)
+      kbo(:,54, 2) = (/ &
+        & 0.19691e-08_rb,0.24529e-08_rb,0.30071e-08_rb,0.38041e-08_rb,0.46981e-08_rb /)
+      kbo(:,55, 2) = (/ &
+        & 0.13034e-08_rb,0.18257e-08_rb,0.22359e-08_rb,0.28210e-08_rb,0.35386e-08_rb /)
+      kbo(:,56, 2) = (/ &
+        & 0.10026e-08_rb,0.13422e-08_rb,0.16687e-08_rb,0.20793e-08_rb,0.26054e-08_rb /)
+      kbo(:,57, 2) = (/ &
+        & 0.77730e-09_rb,0.91190e-09_rb,0.12468e-08_rb,0.15302e-08_rb,0.19418e-08_rb /)
+      kbo(:,58, 2) = (/ &
+        & 0.60359e-09_rb,0.67848e-09_rb,0.92414e-09_rb,0.11511e-08_rb,0.14401e-08_rb /)
+      kbo(:,59, 2) = (/ &
+        & 0.50441e-09_rb,0.56797e-09_rb,0.77369e-09_rb,0.95612e-09_rb,0.11957e-08_rb /)
+      kbo(:,13, 3) = (/ &
+        & 0.98124e-04_rb,0.10149e-03_rb,0.10303e-03_rb,0.10669e-03_rb,0.10870e-03_rb /)
+      kbo(:,14, 3) = (/ &
+        & 0.88110e-04_rb,0.89730e-04_rb,0.90679e-04_rb,0.91892e-04_rb,0.91413e-04_rb /)
+      kbo(:,15, 3) = (/ &
+        & 0.78555e-04_rb,0.78633e-04_rb,0.79145e-04_rb,0.77689e-04_rb,0.77791e-04_rb /)
+      kbo(:,16, 3) = (/ &
+        & 0.67245e-04_rb,0.67743e-04_rb,0.66690e-04_rb,0.65765e-04_rb,0.65950e-04_rb /)
+      kbo(:,17, 3) = (/ &
+        & 0.57553e-04_rb,0.57490e-04_rb,0.56012e-04_rb,0.55634e-04_rb,0.56016e-04_rb /)
+      kbo(:,18, 3) = (/ &
+        & 0.49729e-04_rb,0.48302e-04_rb,0.47418e-04_rb,0.47262e-04_rb,0.47732e-04_rb /)
+      kbo(:,19, 3) = (/ &
+        & 0.42101e-04_rb,0.40906e-04_rb,0.40541e-04_rb,0.40229e-04_rb,0.40671e-04_rb /)
+      kbo(:,20, 3) = (/ &
+        & 0.35046e-04_rb,0.34193e-04_rb,0.34032e-04_rb,0.33881e-04_rb,0.34691e-04_rb /)
+      kbo(:,21, 3) = (/ &
+        & 0.29192e-04_rb,0.28813e-04_rb,0.28525e-04_rb,0.28485e-04_rb,0.29764e-04_rb /)
+      kbo(:,22, 3) = (/ &
+        & 0.24212e-04_rb,0.23970e-04_rb,0.23804e-04_rb,0.23947e-04_rb,0.24310e-04_rb /)
+      kbo(:,23, 3) = (/ &
+        & 0.20167e-04_rb,0.19961e-04_rb,0.19837e-04_rb,0.20528e-04_rb,0.19887e-04_rb /)
+      kbo(:,24, 3) = (/ &
+        & 0.16817e-04_rb,0.16624e-04_rb,0.16525e-04_rb,0.17263e-04_rb,0.16481e-04_rb /)
+      kbo(:,25, 3) = (/ &
+        & 0.13896e-04_rb,0.13806e-04_rb,0.13810e-04_rb,0.14348e-04_rb,0.13634e-04_rb /)
+      kbo(:,26, 3) = (/ &
+        & 0.11515e-04_rb,0.11474e-04_rb,0.11553e-04_rb,0.11705e-04_rb,0.11167e-04_rb /)
+      kbo(:,27, 3) = (/ &
+        & 0.95004e-05_rb,0.94543e-05_rb,0.95650e-05_rb,0.95316e-05_rb,0.91651e-05_rb /)
+      kbo(:,28, 3) = (/ &
+        & 0.78135e-05_rb,0.77862e-05_rb,0.78715e-05_rb,0.77825e-05_rb,0.74877e-05_rb /)
+      kbo(:,29, 3) = (/ &
+        & 0.63615e-05_rb,0.63601e-05_rb,0.64198e-05_rb,0.63507e-05_rb,0.61200e-05_rb /)
+      kbo(:,30, 3) = (/ &
+        & 0.51738e-05_rb,0.51781e-05_rb,0.52250e-05_rb,0.51709e-05_rb,0.50243e-05_rb /)
+      kbo(:,31, 3) = (/ &
+        & 0.41825e-05_rb,0.42240e-05_rb,0.42510e-05_rb,0.42241e-05_rb,0.41058e-05_rb /)
+      kbo(:,32, 3) = (/ &
+        & 0.34024e-05_rb,0.34302e-05_rb,0.34514e-05_rb,0.34436e-05_rb,0.33474e-05_rb /)
+      kbo(:,33, 3) = (/ &
+        & 0.27510e-05_rb,0.27828e-05_rb,0.28059e-05_rb,0.28125e-05_rb,0.27394e-05_rb /)
+      kbo(:,34, 3) = (/ &
+        & 0.22195e-05_rb,0.22517e-05_rb,0.22743e-05_rb,0.22728e-05_rb,0.22254e-05_rb /)
+      kbo(:,35, 3) = (/ &
+        & 0.18029e-05_rb,0.18238e-05_rb,0.18432e-05_rb,0.18461e-05_rb,0.18241e-05_rb /)
+      kbo(:,36, 3) = (/ &
+        & 0.14477e-05_rb,0.14734e-05_rb,0.14936e-05_rb,0.15116e-05_rb,0.14874e-05_rb /)
+      kbo(:,37, 3) = (/ &
+        & 0.11637e-05_rb,0.11929e-05_rb,0.12098e-05_rb,0.12265e-05_rb,0.12076e-05_rb /)
+      kbo(:,38, 3) = (/ &
+        & 0.93292e-06_rb,0.96246e-06_rb,0.98169e-06_rb,0.99435e-06_rb,0.98749e-06_rb /)
+      kbo(:,39, 3) = (/ &
+        & 0.74927e-06_rb,0.76742e-06_rb,0.79020e-06_rb,0.80604e-06_rb,0.81415e-06_rb /)
+      kbo(:,40, 3) = (/ &
+        & 0.60479e-06_rb,0.61743e-06_rb,0.63973e-06_rb,0.65295e-06_rb,0.66261e-06_rb /)
+      kbo(:,41, 3) = (/ &
+        & 0.48450e-06_rb,0.49742e-06_rb,0.51366e-06_rb,0.52876e-06_rb,0.53813e-06_rb /)
+      kbo(:,42, 3) = (/ &
+        & 0.38298e-06_rb,0.40088e-06_rb,0.41192e-06_rb,0.42651e-06_rb,0.43595e-06_rb /)
+      kbo(:,43, 3) = (/ &
+        & 0.30310e-06_rb,0.31905e-06_rb,0.32907e-06_rb,0.34154e-06_rb,0.35007e-06_rb /)
+      kbo(:,44, 3) = (/ &
+        & 0.23745e-06_rb,0.25035e-06_rb,0.26224e-06_rb,0.27145e-06_rb,0.28146e-06_rb /)
+      kbo(:,45, 3) = (/ &
+        & 0.18653e-06_rb,0.19510e-06_rb,0.20644e-06_rb,0.21510e-06_rb,0.22354e-06_rb /)
+      kbo(:,46, 3) = (/ &
+        & 0.14759e-06_rb,0.15322e-06_rb,0.16145e-06_rb,0.17034e-06_rb,0.17744e-06_rb /)
+      kbo(:,47, 3) = (/ &
+        & 0.11410e-06_rb,0.12007e-06_rb,0.12507e-06_rb,0.13237e-06_rb,0.13995e-06_rb /)
+      kbo(:,48, 3) = (/ &
+        & 0.88327e-07_rb,0.93967e-07_rb,0.97683e-07_rb,0.10257e-06_rb,0.10921e-06_rb /)
+      kbo(:,49, 3) = (/ &
+        & 0.66715e-07_rb,0.72172e-07_rb,0.76442e-07_rb,0.79214e-07_rb,0.84006e-07_rb /)
+      kbo(:,50, 3) = (/ &
+        & 0.51458e-07_rb,0.55761e-07_rb,0.59239e-07_rb,0.62292e-07_rb,0.64470e-07_rb /)
+      kbo(:,51, 3) = (/ &
+        & 0.39957e-07_rb,0.42400e-07_rb,0.45870e-07_rb,0.48592e-07_rb,0.50287e-07_rb /)
+      kbo(:,52, 3) = (/ &
+        & 0.31150e-07_rb,0.32725e-07_rb,0.35598e-07_rb,0.37633e-07_rb,0.39607e-07_rb /)
+      kbo(:,53, 3) = (/ &
+        & 0.23783e-07_rb,0.25415e-07_rb,0.26634e-07_rb,0.28885e-07_rb,0.30620e-07_rb /)
+      kbo(:,54, 3) = (/ &
+        & 0.18531e-07_rb,0.19938e-07_rb,0.20988e-07_rb,0.22678e-07_rb,0.23867e-07_rb /)
+      kbo(:,55, 3) = (/ &
+        & 0.14810e-07_rb,0.15772e-07_rb,0.16651e-07_rb,0.17727e-07_rb,0.18861e-07_rb /)
+      kbo(:,56, 3) = (/ &
+        & 0.11652e-07_rb,0.12557e-07_rb,0.13319e-07_rb,0.13930e-07_rb,0.15077e-07_rb /)
+      kbo(:,57, 3) = (/ &
+        & 0.91523e-08_rb,0.99835e-08_rb,0.10603e-07_rb,0.11081e-07_rb,0.11999e-07_rb /)
+      kbo(:,58, 3) = (/ &
+        & 0.72383e-08_rb,0.79060e-08_rb,0.84489e-08_rb,0.88615e-08_rb,0.94456e-08_rb /)
+      kbo(:,59, 3) = (/ &
+        & 0.60315e-08_rb,0.65931e-08_rb,0.71001e-08_rb,0.74012e-08_rb,0.78761e-08_rb /)
+      kbo(:,13, 4) = (/ &
+        & 0.21882e-03_rb,0.20968e-03_rb,0.18648e-03_rb,0.17505e-03_rb,0.17320e-03_rb /)
+      kbo(:,14, 4) = (/ &
+        & 0.19140e-03_rb,0.17026e-03_rb,0.15903e-03_rb,0.15552e-03_rb,0.16009e-03_rb /)
+      kbo(:,15, 4) = (/ &
+        & 0.16003e-03_rb,0.14531e-03_rb,0.14007e-03_rb,0.14511e-03_rb,0.14619e-03_rb /)
+      kbo(:,16, 4) = (/ &
+        & 0.13387e-03_rb,0.12423e-03_rb,0.12444e-03_rb,0.12743e-03_rb,0.12749e-03_rb /)
+      kbo(:,17, 4) = (/ &
+        & 0.11266e-03_rb,0.10780e-03_rb,0.11110e-03_rb,0.11051e-03_rb,0.11075e-03_rb /)
+      kbo(:,18, 4) = (/ &
+        & 0.96156e-04_rb,0.95617e-04_rb,0.96775e-04_rb,0.96220e-04_rb,0.96078e-04_rb /)
+      kbo(:,19, 4) = (/ &
+        & 0.82712e-04_rb,0.82946e-04_rb,0.83265e-04_rb,0.82827e-04_rb,0.82044e-04_rb /)
+      kbo(:,20, 4) = (/ &
+        & 0.71080e-04_rb,0.71167e-04_rb,0.71040e-04_rb,0.70443e-04_rb,0.69069e-04_rb /)
+      kbo(:,21, 4) = (/ &
+        & 0.60110e-04_rb,0.60836e-04_rb,0.59994e-04_rb,0.58992e-04_rb,0.57237e-04_rb /)
+      kbo(:,22, 4) = (/ &
+        & 0.50688e-04_rb,0.51296e-04_rb,0.50271e-04_rb,0.48889e-04_rb,0.48471e-04_rb /)
+      kbo(:,23, 4) = (/ &
+        & 0.42706e-04_rb,0.42628e-04_rb,0.41764e-04_rb,0.39999e-04_rb,0.40893e-04_rb /)
+      kbo(:,24, 4) = (/ &
+        & 0.35803e-04_rb,0.35316e-04_rb,0.34535e-04_rb,0.33229e-04_rb,0.34127e-04_rb /)
+      kbo(:,25, 4) = (/ &
+        & 0.29906e-04_rb,0.29201e-04_rb,0.28336e-04_rb,0.27455e-04_rb,0.28044e-04_rb /)
+      kbo(:,26, 4) = (/ &
+        & 0.24659e-04_rb,0.23926e-04_rb,0.23159e-04_rb,0.22827e-04_rb,0.23266e-04_rb /)
+      kbo(:,27, 4) = (/ &
+        & 0.20221e-04_rb,0.19578e-04_rb,0.18838e-04_rb,0.18853e-04_rb,0.19067e-04_rb /)
+      kbo(:,28, 4) = (/ &
+        & 0.16345e-04_rb,0.15913e-04_rb,0.15327e-04_rb,0.15412e-04_rb,0.15560e-04_rb /)
+      kbo(:,29, 4) = (/ &
+        & 0.13195e-04_rb,0.12870e-04_rb,0.12430e-04_rb,0.12518e-04_rb,0.12639e-04_rb /)
+      kbo(:,30, 4) = (/ &
+        & 0.10622e-04_rb,0.10384e-04_rb,0.10068e-04_rb,0.10151e-04_rb,0.10256e-04_rb /)
+      kbo(:,31, 4) = (/ &
+        & 0.85785e-05_rb,0.83523e-05_rb,0.81227e-05_rb,0.81998e-05_rb,0.83313e-05_rb /)
+      kbo(:,32, 4) = (/ &
+        & 0.69114e-05_rb,0.67093e-05_rb,0.65758e-05_rb,0.66222e-05_rb,0.67679e-05_rb /)
+      kbo(:,33, 4) = (/ &
+        & 0.55456e-05_rb,0.54342e-05_rb,0.53229e-05_rb,0.53610e-05_rb,0.54819e-05_rb /)
+      kbo(:,34, 4) = (/ &
+        & 0.44461e-05_rb,0.43891e-05_rb,0.43112e-05_rb,0.43632e-05_rb,0.44560e-05_rb /)
+      kbo(:,35, 4) = (/ &
+        & 0.35725e-05_rb,0.35192e-05_rb,0.34703e-05_rb,0.35075e-05_rb,0.35919e-05_rb /)
+      kbo(:,36, 4) = (/ &
+        & 0.28842e-05_rb,0.28362e-05_rb,0.28143e-05_rb,0.28097e-05_rb,0.29057e-05_rb /)
+      kbo(:,37, 4) = (/ &
+        & 0.23374e-05_rb,0.22987e-05_rb,0.22934e-05_rb,0.22812e-05_rb,0.23451e-05_rb /)
+      kbo(:,38, 4) = (/ &
+        & 0.18966e-05_rb,0.18679e-05_rb,0.18613e-05_rb,0.18437e-05_rb,0.18894e-05_rb /)
+      kbo(:,39, 4) = (/ &
+        & 0.15300e-05_rb,0.15180e-05_rb,0.15096e-05_rb,0.14915e-05_rb,0.15107e-05_rb /)
+      kbo(:,40, 4) = (/ &
+        & 0.12426e-05_rb,0.12357e-05_rb,0.12171e-05_rb,0.12170e-05_rb,0.12227e-05_rb /)
+      kbo(:,41, 4) = (/ &
+        & 0.10102e-05_rb,0.10077e-05_rb,0.98593e-06_rb,0.98478e-06_rb,0.99213e-06_rb /)
+      kbo(:,42, 4) = (/ &
+        & 0.82201e-06_rb,0.81050e-06_rb,0.80313e-06_rb,0.80181e-06_rb,0.80361e-06_rb /)
+      kbo(:,43, 4) = (/ &
+        & 0.67318e-06_rb,0.65347e-06_rb,0.65478e-06_rb,0.64360e-06_rb,0.64722e-06_rb /)
+      kbo(:,44, 4) = (/ &
+        & 0.55598e-06_rb,0.53355e-06_rb,0.52778e-06_rb,0.52097e-06_rb,0.51997e-06_rb /)
+      kbo(:,45, 4) = (/ &
+        & 0.46157e-06_rb,0.43457e-06_rb,0.42412e-06_rb,0.42137e-06_rb,0.41750e-06_rb /)
+      kbo(:,46, 4) = (/ &
+        & 0.39156e-06_rb,0.35690e-06_rb,0.34498e-06_rb,0.33995e-06_rb,0.33614e-06_rb /)
+      kbo(:,47, 4) = (/ &
+        & 0.33392e-06_rb,0.29746e-06_rb,0.28074e-06_rb,0.27344e-06_rb,0.27079e-06_rb /)
+      kbo(:,48, 4) = (/ &
+        & 0.27066e-06_rb,0.25369e-06_rb,0.23115e-06_rb,0.22213e-06_rb,0.21766e-06_rb /)
+      kbo(:,49, 4) = (/ &
+        & 0.22198e-06_rb,0.21395e-06_rb,0.19274e-06_rb,0.18040e-06_rb,0.17542e-06_rb /)
+      kbo(:,50, 4) = (/ &
+        & 0.18070e-06_rb,0.17367e-06_rb,0.16473e-06_rb,0.14916e-06_rb,0.14306e-06_rb /)
+      kbo(:,51, 4) = (/ &
+        & 0.14595e-06_rb,0.14287e-06_rb,0.13847e-06_rb,0.12418e-06_rb,0.11697e-06_rb /)
+      kbo(:,52, 4) = (/ &
+        & 0.11819e-06_rb,0.11588e-06_rb,0.11225e-06_rb,0.10604e-06_rb,0.96269e-07_rb /)
+      kbo(:,53, 4) = (/ &
+        & 0.95028e-07_rb,0.93094e-07_rb,0.91303e-07_rb,0.88900e-07_rb,0.80262e-07_rb /)
+      kbo(:,54, 4) = (/ &
+        & 0.77005e-07_rb,0.76238e-07_rb,0.74228e-07_rb,0.72526e-07_rb,0.67965e-07_rb /)
+      kbo(:,55, 4) = (/ &
+        & 0.62979e-07_rb,0.62692e-07_rb,0.60930e-07_rb,0.59579e-07_rb,0.57700e-07_rb /)
+      kbo(:,56, 4) = (/ &
+        & 0.51571e-07_rb,0.51196e-07_rb,0.50031e-07_rb,0.48916e-07_rb,0.48127e-07_rb /)
+      kbo(:,57, 4) = (/ &
+        & 0.42602e-07_rb,0.41678e-07_rb,0.41006e-07_rb,0.39709e-07_rb,0.39283e-07_rb /)
+      kbo(:,58, 4) = (/ &
+        & 0.35155e-07_rb,0.34052e-07_rb,0.33561e-07_rb,0.32395e-07_rb,0.32057e-07_rb /)
+      kbo(:,59, 4) = (/ &
+        & 0.29318e-07_rb,0.28516e-07_rb,0.28097e-07_rb,0.26888e-07_rb,0.26840e-07_rb /)
+      kbo(:,13, 5) = (/ &
+        & 0.43718e-03_rb,0.42279e-03_rb,0.43200e-03_rb,0.42910e-03_rb,0.42775e-03_rb /)
+      kbo(:,14, 5) = (/ &
+        & 0.37902e-03_rb,0.38090e-03_rb,0.38058e-03_rb,0.37637e-03_rb,0.36798e-03_rb /)
+      kbo(:,15, 5) = (/ &
+        & 0.33222e-03_rb,0.33597e-03_rb,0.33205e-03_rb,0.32000e-03_rb,0.31310e-03_rb /)
+      kbo(:,16, 5) = (/ &
+        & 0.28736e-03_rb,0.28700e-03_rb,0.27853e-03_rb,0.26891e-03_rb,0.26391e-03_rb /)
+      kbo(:,17, 5) = (/ &
+        & 0.24534e-03_rb,0.24098e-03_rb,0.23072e-03_rb,0.22519e-03_rb,0.22013e-03_rb /)
+      kbo(:,18, 5) = (/ &
+        & 0.20645e-03_rb,0.20019e-03_rb,0.19266e-03_rb,0.18716e-03_rb,0.18139e-03_rb /)
+      kbo(:,19, 5) = (/ &
+        & 0.17271e-03_rb,0.16642e-03_rb,0.16064e-03_rb,0.15556e-03_rb,0.14951e-03_rb /)
+      kbo(:,20, 5) = (/ &
+        & 0.14266e-03_rb,0.13766e-03_rb,0.13239e-03_rb,0.12767e-03_rb,0.12305e-03_rb /)
+      kbo(:,21, 5) = (/ &
+        & 0.11797e-03_rb,0.11256e-03_rb,0.10880e-03_rb,0.10424e-03_rb,0.10062e-03_rb /)
+      kbo(:,22, 5) = (/ &
+        & 0.97085e-04_rb,0.92101e-04_rb,0.88420e-04_rb,0.85535e-04_rb,0.82201e-04_rb /)
+      kbo(:,23, 5) = (/ &
+        & 0.79380e-04_rb,0.75312e-04_rb,0.72177e-04_rb,0.69710e-04_rb,0.66966e-04_rb /)
+      kbo(:,24, 5) = (/ &
+        & 0.64591e-04_rb,0.61520e-04_rb,0.58891e-04_rb,0.56626e-04_rb,0.54603e-04_rb /)
+      kbo(:,25, 5) = (/ &
+        & 0.52423e-04_rb,0.49934e-04_rb,0.48122e-04_rb,0.46331e-04_rb,0.44875e-04_rb /)
+      kbo(:,26, 5) = (/ &
+        & 0.42528e-04_rb,0.40739e-04_rb,0.39218e-04_rb,0.37806e-04_rb,0.36631e-04_rb /)
+      kbo(:,27, 5) = (/ &
+        & 0.34453e-04_rb,0.33104e-04_rb,0.32009e-04_rb,0.30764e-04_rb,0.30000e-04_rb /)
+      kbo(:,28, 5) = (/ &
+        & 0.28076e-04_rb,0.26948e-04_rb,0.26097e-04_rb,0.25065e-04_rb,0.24596e-04_rb /)
+      kbo(:,29, 5) = (/ &
+        & 0.22814e-04_rb,0.21902e-04_rb,0.21222e-04_rb,0.20350e-04_rb,0.20152e-04_rb /)
+      kbo(:,30, 5) = (/ &
+        & 0.18551e-04_rb,0.17731e-04_rb,0.17162e-04_rb,0.16614e-04_rb,0.16461e-04_rb /)
+      kbo(:,31, 5) = (/ &
+        & 0.15020e-04_rb,0.14383e-04_rb,0.13922e-04_rb,0.13548e-04_rb,0.13388e-04_rb /)
+      kbo(:,32, 5) = (/ &
+        & 0.12091e-04_rb,0.11653e-04_rb,0.11308e-04_rb,0.11033e-04_rb,0.10954e-04_rb /)
+      kbo(:,33, 5) = (/ &
+        & 0.97901e-05_rb,0.93570e-05_rb,0.91428e-05_rb,0.89594e-05_rb,0.89614e-05_rb /)
+      kbo(:,34, 5) = (/ &
+        & 0.79439e-05_rb,0.76095e-05_rb,0.74365e-05_rb,0.73099e-05_rb,0.73269e-05_rb /)
+      kbo(:,35, 5) = (/ &
+        & 0.64505e-05_rb,0.62326e-05_rb,0.60921e-05_rb,0.59939e-05_rb,0.59799e-05_rb /)
+      kbo(:,36, 5) = (/ &
+        & 0.52745e-05_rb,0.51017e-05_rb,0.49658e-05_rb,0.48988e-05_rb,0.48773e-05_rb /)
+      kbo(:,37, 5) = (/ &
+        & 0.43522e-05_rb,0.42053e-05_rb,0.40681e-05_rb,0.40176e-05_rb,0.40058e-05_rb /)
+      kbo(:,38, 5) = (/ &
+        & 0.35676e-05_rb,0.34559e-05_rb,0.33446e-05_rb,0.33017e-05_rb,0.32771e-05_rb /)
+      kbo(:,39, 5) = (/ &
+        & 0.29238e-05_rb,0.28445e-05_rb,0.27512e-05_rb,0.27095e-05_rb,0.26825e-05_rb /)
+      kbo(:,40, 5) = (/ &
+        & 0.23985e-05_rb,0.23437e-05_rb,0.22756e-05_rb,0.22251e-05_rb,0.22009e-05_rb /)
+      kbo(:,41, 5) = (/ &
+        & 0.19763e-05_rb,0.19311e-05_rb,0.18886e-05_rb,0.18370e-05_rb,0.18072e-05_rb /)
+      kbo(:,42, 5) = (/ &
+        & 0.16256e-05_rb,0.15918e-05_rb,0.15558e-05_rb,0.15108e-05_rb,0.14861e-05_rb /)
+      kbo(:,43, 5) = (/ &
+        & 0.13290e-05_rb,0.13116e-05_rb,0.12833e-05_rb,0.12550e-05_rb,0.12262e-05_rb /)
+      kbo(:,44, 5) = (/ &
+        & 0.10777e-05_rb,0.10760e-05_rb,0.10566e-05_rb,0.10365e-05_rb,0.10136e-05_rb /)
+      kbo(:,45, 5) = (/ &
+        & 0.86690e-06_rb,0.87981e-06_rb,0.87044e-06_rb,0.85428e-06_rb,0.83627e-06_rb /)
+      kbo(:,46, 5) = (/ &
+        & 0.68706e-06_rb,0.71088e-06_rb,0.70939e-06_rb,0.70110e-06_rb,0.69032e-06_rb /)
+      kbo(:,47, 5) = (/ &
+        & 0.54665e-06_rb,0.56934e-06_rb,0.58033e-06_rb,0.57830e-06_rb,0.57105e-06_rb /)
+      kbo(:,48, 5) = (/ &
+        & 0.44874e-06_rb,0.44653e-06_rb,0.46650e-06_rb,0.47090e-06_rb,0.46732e-06_rb /)
+      kbo(:,49, 5) = (/ &
+        & 0.36869e-06_rb,0.35456e-06_rb,0.36842e-06_rb,0.37978e-06_rb,0.38217e-06_rb /)
+      kbo(:,50, 5) = (/ &
+        & 0.30489e-06_rb,0.29229e-06_rb,0.29104e-06_rb,0.30430e-06_rb,0.31068e-06_rb /)
+      kbo(:,51, 5) = (/ &
+        & 0.25290e-06_rb,0.24012e-06_rb,0.23271e-06_rb,0.24366e-06_rb,0.25149e-06_rb /)
+      kbo(:,52, 5) = (/ &
+        & 0.21148e-06_rb,0.19715e-06_rb,0.19121e-06_rb,0.19177e-06_rb,0.20148e-06_rb /)
+      kbo(:,53, 5) = (/ &
+        & 0.17334e-06_rb,0.16335e-06_rb,0.15574e-06_rb,0.15266e-06_rb,0.15921e-06_rb /)
+      kbo(:,54, 5) = (/ &
+        & 0.14189e-06_rb,0.13650e-06_rb,0.12781e-06_rb,0.12535e-06_rb,0.12749e-06_rb /)
+      kbo(:,55, 5) = (/ &
+        & 0.11763e-06_rb,0.11398e-06_rb,0.10627e-06_rb,0.10373e-06_rb,0.10268e-06_rb /)
+      kbo(:,56, 5) = (/ &
+        & 0.98316e-07_rb,0.94892e-07_rb,0.88799e-07_rb,0.85036e-07_rb,0.83393e-07_rb /)
+      kbo(:,57, 5) = (/ &
+        & 0.83049e-07_rb,0.78499e-07_rb,0.74140e-07_rb,0.70137e-07_rb,0.68774e-07_rb /)
+      kbo(:,58, 5) = (/ &
+        & 0.71768e-07_rb,0.64682e-07_rb,0.62012e-07_rb,0.58149e-07_rb,0.57037e-07_rb /)
+      kbo(:,59, 5) = (/ &
+        & 0.60166e-07_rb,0.54824e-07_rb,0.52042e-07_rb,0.49198e-07_rb,0.47862e-07_rb /)
+      kbo(:,13, 6) = (/ &
+        & 0.71254e-03_rb,0.65708e-03_rb,0.60824e-03_rb,0.57965e-03_rb,0.55389e-03_rb /)
+      kbo(:,14, 6) = (/ &
+        & 0.58852e-03_rb,0.54811e-03_rb,0.51125e-03_rb,0.48557e-03_rb,0.47730e-03_rb /)
+      kbo(:,15, 6) = (/ &
+        & 0.50599e-03_rb,0.46869e-03_rb,0.44362e-03_rb,0.43503e-03_rb,0.43705e-03_rb /)
+      kbo(:,16, 6) = (/ &
+        & 0.43493e-03_rb,0.40996e-03_rb,0.39680e-03_rb,0.39623e-03_rb,0.40784e-03_rb /)
+      kbo(:,17, 6) = (/ &
+        & 0.38028e-03_rb,0.36175e-03_rb,0.35696e-03_rb,0.36547e-03_rb,0.38127e-03_rb /)
+      kbo(:,18, 6) = (/ &
+        & 0.33113e-03_rb,0.32205e-03_rb,0.32458e-03_rb,0.33502e-03_rb,0.35577e-03_rb /)
+      kbo(:,19, 6) = (/ &
+        & 0.28886e-03_rb,0.29134e-03_rb,0.29799e-03_rb,0.31134e-03_rb,0.33676e-03_rb /)
+      kbo(:,20, 6) = (/ &
+        & 0.25113e-03_rb,0.25555e-03_rb,0.26535e-03_rb,0.28470e-03_rb,0.30677e-03_rb /)
+      kbo(:,21, 6) = (/ &
+        & 0.21640e-03_rb,0.22152e-03_rb,0.23323e-03_rb,0.25467e-03_rb,0.27764e-03_rb /)
+      kbo(:,22, 6) = (/ &
+        & 0.18601e-03_rb,0.19217e-03_rb,0.20696e-03_rb,0.22593e-03_rb,0.24729e-03_rb /)
+      kbo(:,23, 6) = (/ &
+        & 0.15978e-03_rb,0.16833e-03_rb,0.18229e-03_rb,0.19994e-03_rb,0.21913e-03_rb /)
+      kbo(:,24, 6) = (/ &
+        & 0.13748e-03_rb,0.14696e-03_rb,0.16025e-03_rb,0.17620e-03_rb,0.19459e-03_rb /)
+      kbo(:,25, 6) = (/ &
+        & 0.11841e-03_rb,0.12828e-03_rb,0.13998e-03_rb,0.15487e-03_rb,0.17174e-03_rb /)
+      kbo(:,26, 6) = (/ &
+        & 0.10209e-03_rb,0.11175e-03_rb,0.12193e-03_rb,0.13590e-03_rb,0.15125e-03_rb /)
+      kbo(:,27, 6) = (/ &
+        & 0.87003e-04_rb,0.95681e-04_rb,0.10499e-03_rb,0.11744e-03_rb,0.13086e-03_rb /)
+      kbo(:,28, 6) = (/ &
+        & 0.73110e-04_rb,0.80653e-04_rb,0.89103e-04_rb,0.99988e-04_rb,0.11120e-03_rb /)
+      kbo(:,29, 6) = (/ &
+        & 0.60620e-04_rb,0.66736e-04_rb,0.74222e-04_rb,0.82863e-04_rb,0.92471e-04_rb /)
+      kbo(:,30, 6) = (/ &
+        & 0.49831e-04_rb,0.54602e-04_rb,0.61288e-04_rb,0.68281e-04_rb,0.75599e-04_rb /)
+      kbo(:,31, 6) = (/ &
+        & 0.40315e-04_rb,0.44435e-04_rb,0.49703e-04_rb,0.55140e-04_rb,0.60140e-04_rb /)
+      kbo(:,32, 6) = (/ &
+        & 0.32490e-04_rb,0.36020e-04_rb,0.39894e-04_rb,0.44068e-04_rb,0.48080e-04_rb /)
+      kbo(:,33, 6) = (/ &
+        & 0.26085e-04_rb,0.29063e-04_rb,0.32003e-04_rb,0.35074e-04_rb,0.38662e-04_rb /)
+      kbo(:,34, 6) = (/ &
+        & 0.21201e-04_rb,0.23256e-04_rb,0.25636e-04_rb,0.28140e-04_rb,0.31273e-04_rb /)
+      kbo(:,35, 6) = (/ &
+        & 0.17022e-04_rb,0.18534e-04_rb,0.20322e-04_rb,0.22464e-04_rb,0.25109e-04_rb /)
+      kbo(:,36, 6) = (/ &
+        & 0.13427e-04_rb,0.14606e-04_rb,0.16055e-04_rb,0.17783e-04_rb,0.19877e-04_rb /)
+      kbo(:,37, 6) = (/ &
+        & 0.10630e-04_rb,0.11559e-04_rb,0.12731e-04_rb,0.14118e-04_rb,0.15831e-04_rb /)
+      kbo(:,38, 6) = (/ &
+        & 0.84365e-05_rb,0.91300e-05_rb,0.10077e-04_rb,0.11171e-04_rb,0.12568e-04_rb /)
+      kbo(:,39, 6) = (/ &
+        & 0.66762e-05_rb,0.71770e-05_rb,0.79359e-05_rb,0.88044e-05_rb,0.99043e-05_rb /)
+      kbo(:,40, 6) = (/ &
+        & 0.53561e-05_rb,0.57216e-05_rb,0.63210e-05_rb,0.70080e-05_rb,0.79213e-05_rb /)
+      kbo(:,41, 6) = (/ &
+        & 0.42954e-05_rb,0.45692e-05_rb,0.50356e-05_rb,0.56102e-05_rb,0.63394e-05_rb /)
+      kbo(:,42, 6) = (/ &
+        & 0.34409e-05_rb,0.36788e-05_rb,0.40124e-05_rb,0.44898e-05_rb,0.50645e-05_rb /)
+      kbo(:,43, 6) = (/ &
+        & 0.27453e-05_rb,0.29361e-05_rb,0.31651e-05_rb,0.35498e-05_rb,0.40058e-05_rb /)
+      kbo(:,44, 6) = (/ &
+        & 0.21863e-05_rb,0.23320e-05_rb,0.24965e-05_rb,0.27915e-05_rb,0.31593e-05_rb /)
+      kbo(:,45, 6) = (/ &
+        & 0.17409e-05_rb,0.18472e-05_rb,0.19801e-05_rb,0.21812e-05_rb,0.24741e-05_rb /)
+      kbo(:,46, 6) = (/ &
+        & 0.13903e-05_rb,0.14639e-05_rb,0.15660e-05_rb,0.17042e-05_rb,0.19243e-05_rb /)
+      kbo(:,47, 6) = (/ &
+        & 0.11229e-05_rb,0.11661e-05_rb,0.12377e-05_rb,0.13335e-05_rb,0.14898e-05_rb /)
+      kbo(:,48, 6) = (/ &
+        & 0.90528e-06_rb,0.92962e-06_rb,0.97799e-06_rb,0.10483e-05_rb,0.11575e-05_rb /)
+      kbo(:,49, 6) = (/ &
+        & 0.72877e-06_rb,0.74278e-06_rb,0.77380e-06_rb,0.82564e-06_rb,0.89736e-06_rb /)
+      kbo(:,50, 6) = (/ &
+        & 0.59358e-06_rb,0.59955e-06_rb,0.62170e-06_rb,0.65720e-06_rb,0.70771e-06_rb /)
+      kbo(:,51, 6) = (/ &
+        & 0.48783e-06_rb,0.48769e-06_rb,0.50300e-06_rb,0.52655e-06_rb,0.56377e-06_rb /)
+      kbo(:,52, 6) = (/ &
+        & 0.39834e-06_rb,0.39922e-06_rb,0.40604e-06_rb,0.42316e-06_rb,0.45057e-06_rb /)
+      kbo(:,53, 6) = (/ &
+        & 0.33019e-06_rb,0.32505e-06_rb,0.33011e-06_rb,0.33917e-06_rb,0.35858e-06_rb /)
+      kbo(:,54, 6) = (/ &
+        & 0.27829e-06_rb,0.26763e-06_rb,0.27219e-06_rb,0.27714e-06_rb,0.29159e-06_rb /)
+      kbo(:,55, 6) = (/ &
+        & 0.23259e-06_rb,0.22250e-06_rb,0.22510e-06_rb,0.22855e-06_rb,0.23937e-06_rb /)
+      kbo(:,56, 6) = (/ &
+        & 0.19401e-06_rb,0.18605e-06_rb,0.18566e-06_rb,0.18937e-06_rb,0.19605e-06_rb /)
+      kbo(:,57, 6) = (/ &
+        & 0.15908e-06_rb,0.15649e-06_rb,0.15396e-06_rb,0.15754e-06_rb,0.16039e-06_rb /)
+      kbo(:,58, 6) = (/ &
+        & 0.12892e-06_rb,0.13132e-06_rb,0.12793e-06_rb,0.13093e-06_rb,0.13273e-06_rb /)
+      kbo(:,59, 6) = (/ &
+        & 0.11177e-06_rb,0.11165e-06_rb,0.10875e-06_rb,0.11132e-06_rb,0.11431e-06_rb /)
+      kbo(:,13, 7) = (/ &
+        & 0.19357e-02_rb,0.20341e-02_rb,0.21760e-02_rb,0.22982e-02_rb,0.24550e-02_rb /)
+      kbo(:,14, 7) = (/ &
+        & 0.20343e-02_rb,0.21709e-02_rb,0.23192e-02_rb,0.24854e-02_rb,0.27026e-02_rb /)
+      kbo(:,15, 7) = (/ &
+        & 0.21108e-02_rb,0.23009e-02_rb,0.25488e-02_rb,0.28048e-02_rb,0.30159e-02_rb /)
+      kbo(:,16, 7) = (/ &
+        & 0.21016e-02_rb,0.23581e-02_rb,0.25958e-02_rb,0.28093e-02_rb,0.29839e-02_rb /)
+      kbo(:,17, 7) = (/ &
+        & 0.21350e-02_rb,0.23722e-02_rb,0.25718e-02_rb,0.27703e-02_rb,0.30036e-02_rb /)
+      kbo(:,18, 7) = (/ &
+        & 0.21493e-02_rb,0.23550e-02_rb,0.25593e-02_rb,0.27827e-02_rb,0.29722e-02_rb /)
+      kbo(:,19, 7) = (/ &
+        & 0.21677e-02_rb,0.23602e-02_rb,0.25446e-02_rb,0.27267e-02_rb,0.29542e-02_rb /)
+      kbo(:,20, 7) = (/ &
+        & 0.21009e-02_rb,0.22669e-02_rb,0.24261e-02_rb,0.26095e-02_rb,0.28436e-02_rb /)
+      kbo(:,21, 7) = (/ &
+        & 0.19811e-02_rb,0.21249e-02_rb,0.22790e-02_rb,0.24716e-02_rb,0.26844e-02_rb /)
+      kbo(:,22, 7) = (/ &
+        & 0.18393e-02_rb,0.19585e-02_rb,0.21127e-02_rb,0.22962e-02_rb,0.25211e-02_rb /)
+      kbo(:,23, 7) = (/ &
+        & 0.16905e-02_rb,0.18032e-02_rb,0.19594e-02_rb,0.21280e-02_rb,0.23466e-02_rb /)
+      kbo(:,24, 7) = (/ &
+        & 0.15327e-02_rb,0.16542e-02_rb,0.18047e-02_rb,0.19642e-02_rb,0.21591e-02_rb /)
+      kbo(:,25, 7) = (/ &
+        & 0.13831e-02_rb,0.14932e-02_rb,0.16391e-02_rb,0.17921e-02_rb,0.19606e-02_rb /)
+      kbo(:,26, 7) = (/ &
+        & 0.12298e-02_rb,0.13325e-02_rb,0.14676e-02_rb,0.16086e-02_rb,0.17628e-02_rb /)
+      kbo(:,27, 7) = (/ &
+        & 0.10692e-02_rb,0.11652e-02_rb,0.12858e-02_rb,0.14124e-02_rb,0.15514e-02_rb /)
+      kbo(:,28, 7) = (/ &
+        & 0.91706e-03_rb,0.10034e-02_rb,0.11100e-02_rb,0.12231e-02_rb,0.13481e-02_rb /)
+      kbo(:,29, 7) = (/ &
+        & 0.76824e-03_rb,0.84492e-03_rb,0.93654e-03_rb,0.10377e-02_rb,0.11448e-02_rb /)
+      kbo(:,30, 7) = (/ &
+        & 0.63841e-03_rb,0.70573e-03_rb,0.78553e-03_rb,0.87197e-03_rb,0.96607e-03_rb /)
+      kbo(:,31, 7) = (/ &
+        & 0.51979e-03_rb,0.58056e-03_rb,0.64728e-03_rb,0.71891e-03_rb,0.80875e-03_rb /)
+      kbo(:,32, 7) = (/ &
+        & 0.42659e-03_rb,0.47686e-03_rb,0.53347e-03_rb,0.60016e-03_rb,0.67592e-03_rb /)
+      kbo(:,33, 7) = (/ &
+        & 0.34820e-03_rb,0.39030e-03_rb,0.44004e-03_rb,0.49875e-03_rb,0.56492e-03_rb /)
+      kbo(:,34, 7) = (/ &
+        & 0.28753e-03_rb,0.32477e-03_rb,0.36831e-03_rb,0.41989e-03_rb,0.47708e-03_rb /)
+      kbo(:,35, 7) = (/ &
+        & 0.23568e-03_rb,0.26716e-03_rb,0.30618e-03_rb,0.35062e-03_rb,0.39934e-03_rb /)
+      kbo(:,36, 7) = (/ &
+        & 0.19116e-03_rb,0.21863e-03_rb,0.25180e-03_rb,0.28983e-03_rb,0.33082e-03_rb /)
+      kbo(:,37, 7) = (/ &
+        & 0.15437e-03_rb,0.17829e-03_rb,0.20646e-03_rb,0.23900e-03_rb,0.27320e-03_rb /)
+      kbo(:,38, 7) = (/ &
+        & 0.12397e-03_rb,0.14462e-03_rb,0.16847e-03_rb,0.19621e-03_rb,0.22528e-03_rb /)
+      kbo(:,39, 7) = (/ &
+        & 0.98930e-04_rb,0.11647e-03_rb,0.13711e-03_rb,0.16057e-03_rb,0.18549e-03_rb /)
+      kbo(:,40, 7) = (/ &
+        & 0.79845e-04_rb,0.94437e-04_rb,0.11202e-03_rb,0.13217e-03_rb,0.15346e-03_rb /)
+      kbo(:,41, 7) = (/ &
+        & 0.64260e-04_rb,0.76439e-04_rb,0.91253e-04_rb,0.10837e-03_rb,0.12691e-03_rb /)
+      kbo(:,42, 7) = (/ &
+        & 0.51561e-04_rb,0.61686e-04_rb,0.74044e-04_rb,0.88504e-04_rb,0.10431e-03_rb /)
+      kbo(:,43, 7) = (/ &
+        & 0.40906e-04_rb,0.49267e-04_rb,0.59361e-04_rb,0.71417e-04_rb,0.84751e-04_rb /)
+      kbo(:,44, 7) = (/ &
+        & 0.32247e-04_rb,0.38955e-04_rb,0.47246e-04_rb,0.57199e-04_rb,0.68540e-04_rb /)
+      kbo(:,45, 7) = (/ &
+        & 0.25243e-04_rb,0.30790e-04_rb,0.37490e-04_rb,0.45754e-04_rb,0.55394e-04_rb /)
+      kbo(:,46, 7) = (/ &
+        & 0.19604e-04_rb,0.24131e-04_rb,0.29598e-04_rb,0.36431e-04_rb,0.44419e-04_rb /)
+      kbo(:,47, 7) = (/ &
+        & 0.15116e-04_rb,0.18785e-04_rb,0.23180e-04_rb,0.28780e-04_rb,0.35381e-04_rb /)
+      kbo(:,48, 7) = (/ &
+        & 0.11550e-04_rb,0.14451e-04_rb,0.18039e-04_rb,0.22545e-04_rb,0.28005e-04_rb /)
+      kbo(:,49, 7) = (/ &
+        & 0.87452e-05_rb,0.10992e-04_rb,0.13863e-04_rb,0.17498e-04_rb,0.21949e-04_rb /)
+      kbo(:,50, 7) = (/ &
+        & 0.66768e-05_rb,0.84974e-05_rb,0.10835e-04_rb,0.13777e-04_rb,0.17448e-04_rb /)
+      kbo(:,51, 7) = (/ &
+        & 0.51359e-05_rb,0.66277e-05_rb,0.85196e-05_rb,0.10905e-04_rb,0.13933e-04_rb /)
+      kbo(:,52, 7) = (/ &
+        & 0.38737e-05_rb,0.51001e-05_rb,0.66347e-05_rb,0.85842e-05_rb,0.11033e-04_rb /)
+      kbo(:,53, 7) = (/ &
+        & 0.28793e-05_rb,0.38820e-05_rb,0.50987e-05_rb,0.66800e-05_rb,0.86846e-05_rb /)
+      kbo(:,54, 7) = (/ &
+        & 0.22250e-05_rb,0.30528e-05_rb,0.40721e-05_rb,0.53813e-05_rb,0.70529e-05_rb /)
+      kbo(:,55, 7) = (/ &
+        & 0.17548e-05_rb,0.24455e-05_rb,0.32962e-05_rb,0.43877e-05_rb,0.58071e-05_rb /)
+      kbo(:,56, 7) = (/ &
+        & 0.13740e-05_rb,0.19413e-05_rb,0.26523e-05_rb,0.35566e-05_rb,0.47512e-05_rb /)
+      kbo(:,57, 7) = (/ &
+        & 0.10745e-05_rb,0.15242e-05_rb,0.21190e-05_rb,0.28679e-05_rb,0.38612e-05_rb /)
+      kbo(:,58, 7) = (/ &
+        & 0.84271e-06_rb,0.12117e-05_rb,0.17039e-05_rb,0.23246e-05_rb,0.31564e-05_rb /)
+      kbo(:,59, 7) = (/ &
+        & 0.75625e-06_rb,0.11002e-05_rb,0.15376e-05_rb,0.20855e-05_rb,0.28548e-05_rb /)
+      kbo(:,13, 8) = (/ &
+        & 0.41133e-01_rb,0.43585e-01_rb,0.46448e-01_rb,0.50156e-01_rb,0.54607e-01_rb /)
+      kbo(:,14, 8) = (/ &
+        & 0.39162e-01_rb,0.41636e-01_rb,0.44649e-01_rb,0.48118e-01_rb,0.52078e-01_rb /)
+      kbo(:,15, 8) = (/ &
+        & 0.37770e-01_rb,0.40048e-01_rb,0.43090e-01_rb,0.46524e-01_rb,0.50698e-01_rb /)
+      kbo(:,16, 8) = (/ &
+        & 0.35235e-01_rb,0.37712e-01_rb,0.40429e-01_rb,0.44092e-01_rb,0.48470e-01_rb /)
+      kbo(:,17, 8) = (/ &
+        & 0.32748e-01_rb,0.35232e-01_rb,0.38049e-01_rb,0.41536e-01_rb,0.45596e-01_rb /)
+      kbo(:,18, 8) = (/ &
+        & 0.30656e-01_rb,0.33078e-01_rb,0.36084e-01_rb,0.39403e-01_rb,0.43319e-01_rb /)
+      kbo(:,19, 8) = (/ &
+        & 0.28887e-01_rb,0.31462e-01_rb,0.34348e-01_rb,0.37660e-01_rb,0.41532e-01_rb /)
+      kbo(:,20, 8) = (/ &
+        & 0.26521e-01_rb,0.29153e-01_rb,0.32006e-01_rb,0.35368e-01_rb,0.39083e-01_rb /)
+      kbo(:,21, 8) = (/ &
+        & 0.23988e-01_rb,0.26537e-01_rb,0.29508e-01_rb,0.32666e-01_rb,0.36356e-01_rb /)
+      kbo(:,22, 8) = (/ &
+        & 0.21655e-01_rb,0.24205e-01_rb,0.27193e-01_rb,0.30346e-01_rb,0.33820e-01_rb /)
+      kbo(:,23, 8) = (/ &
+        & 0.19724e-01_rb,0.22257e-01_rb,0.25021e-01_rb,0.27997e-01_rb,0.31309e-01_rb /)
+      kbo(:,24, 8) = (/ &
+        & 0.18094e-01_rb,0.20464e-01_rb,0.23167e-01_rb,0.26069e-01_rb,0.29357e-01_rb /)
+      kbo(:,25, 8) = (/ &
+        & 0.16666e-01_rb,0.18896e-01_rb,0.21422e-01_rb,0.24282e-01_rb,0.27401e-01_rb /)
+      kbo(:,26, 8) = (/ &
+        & 0.15252e-01_rb,0.17451e-01_rb,0.19828e-01_rb,0.22565e-01_rb,0.25604e-01_rb /)
+      kbo(:,27, 8) = (/ &
+        & 0.13902e-01_rb,0.15940e-01_rb,0.18143e-01_rb,0.20720e-01_rb,0.23727e-01_rb /)
+      kbo(:,28, 8) = (/ &
+        & 0.12642e-01_rb,0.14401e-01_rb,0.16467e-01_rb,0.18975e-01_rb,0.21740e-01_rb /)
+      kbo(:,29, 8) = (/ &
+        & 0.11177e-01_rb,0.12765e-01_rb,0.14750e-01_rb,0.16957e-01_rb,0.19575e-01_rb /)
+      kbo(:,30, 8) = (/ &
+        & 0.97810e-02_rb,0.11281e-01_rb,0.13066e-01_rb,0.15112e-01_rb,0.17581e-01_rb /)
+      kbo(:,31, 8) = (/ &
+        & 0.84562e-02_rb,0.98553e-02_rb,0.11427e-01_rb,0.13312e-01_rb,0.15536e-01_rb /)
+      kbo(:,32, 8) = (/ &
+        & 0.73434e-02_rb,0.85939e-02_rb,0.10020e-01_rb,0.11770e-01_rb,0.13758e-01_rb /)
+      kbo(:,33, 8) = (/ &
+        & 0.63801e-02_rb,0.74957e-02_rb,0.87874e-02_rb,0.10375e-01_rb,0.12145e-01_rb /)
+      kbo(:,34, 8) = (/ &
+        & 0.56002e-02_rb,0.65926e-02_rb,0.77964e-02_rb,0.92186e-02_rb,0.10768e-01_rb /)
+      kbo(:,35, 8) = (/ &
+        & 0.48489e-02_rb,0.57164e-02_rb,0.68333e-02_rb,0.80886e-02_rb,0.94500e-02_rb /)
+      kbo(:,36, 8) = (/ &
+        & 0.41428e-02_rb,0.49220e-02_rb,0.58884e-02_rb,0.69905e-02_rb,0.81862e-02_rb /)
+      kbo(:,37, 8) = (/ &
+        & 0.34967e-02_rb,0.41841e-02_rb,0.50244e-02_rb,0.59657e-02_rb,0.70167e-02_rb /)
+      kbo(:,38, 8) = (/ &
+        & 0.29333e-02_rb,0.35364e-02_rb,0.42644e-02_rb,0.50719e-02_rb,0.59938e-02_rb /)
+      kbo(:,39, 8) = (/ &
+        & 0.24443e-02_rb,0.29647e-02_rb,0.35953e-02_rb,0.42898e-02_rb,0.50972e-02_rb /)
+      kbo(:,40, 8) = (/ &
+        & 0.20439e-02_rb,0.25046e-02_rb,0.30512e-02_rb,0.36459e-02_rb,0.43466e-02_rb /)
+      kbo(:,41, 8) = (/ &
+        & 0.17068e-02_rb,0.21107e-02_rb,0.25838e-02_rb,0.30959e-02_rb,0.36971e-02_rb /)
+      kbo(:,42, 8) = (/ &
+        & 0.14199e-02_rb,0.17705e-02_rb,0.21755e-02_rb,0.26204e-02_rb,0.31356e-02_rb /)
+      kbo(:,43, 8) = (/ &
+        & 0.11616e-02_rb,0.14584e-02_rb,0.18069e-02_rb,0.21876e-02_rb,0.26286e-02_rb /)
+      kbo(:,44, 8) = (/ &
+        & 0.93807e-03_rb,0.11864e-02_rb,0.14851e-02_rb,0.18080e-02_rb,0.21849e-02_rb /)
+      kbo(:,45, 8) = (/ &
+        & 0.75026e-03_rb,0.95460e-03_rb,0.12092e-02_rb,0.14831e-02_rb,0.18037e-02_rb /)
+      kbo(:,46, 8) = (/ &
+        & 0.59319e-03_rb,0.76134e-03_rb,0.97292e-03_rb,0.12059e-02_rb,0.14787e-02_rb /)
+      kbo(:,47, 8) = (/ &
+        & 0.46546e-03_rb,0.60113e-03_rb,0.77762e-03_rb,0.97379e-03_rb,0.12030e-02_rb /)
+      kbo(:,48, 8) = (/ &
+        & 0.36131e-03_rb,0.46999e-03_rb,0.61292e-03_rb,0.77778e-03_rb,0.96667e-03_rb /)
+      kbo(:,49, 8) = (/ &
+        & 0.27490e-03_rb,0.36153e-03_rb,0.47561e-03_rb,0.61173e-03_rb,0.76634e-03_rb /)
+      kbo(:,50, 8) = (/ &
+        & 0.21403e-03_rb,0.28416e-03_rb,0.37592e-03_rb,0.48994e-03_rb,0.61812e-03_rb /)
+      kbo(:,51, 8) = (/ &
+        & 0.16745e-03_rb,0.22425e-03_rb,0.29943e-03_rb,0.39474e-03_rb,0.50310e-03_rb /)
+      kbo(:,52, 8) = (/ &
+        & 0.12927e-03_rb,0.17496e-03_rb,0.23541e-03_rb,0.31434e-03_rb,0.40442e-03_rb /)
+      kbo(:,53, 8) = (/ &
+        & 0.98512e-04_rb,0.13503e-03_rb,0.18276e-03_rb,0.24681e-03_rb,0.32086e-03_rb /)
+      kbo(:,54, 8) = (/ &
+        & 0.78150e-04_rb,0.10819e-03_rb,0.14843e-03_rb,0.20243e-03_rb,0.26646e-03_rb /)
+      kbo(:,55, 8) = (/ &
+        & 0.63455e-04_rb,0.88570e-04_rb,0.12297e-03_rb,0.17015e-03_rb,0.22626e-03_rb /)
+      kbo(:,56, 8) = (/ &
+        & 0.51095e-04_rb,0.72223e-04_rb,0.10144e-03_rb,0.14188e-03_rb,0.19132e-03_rb /)
+      kbo(:,57, 8) = (/ &
+        & 0.40866e-04_rb,0.58631e-04_rb,0.83096e-04_rb,0.11753e-03_rb,0.16055e-03_rb /)
+      kbo(:,58, 8) = (/ &
+        & 0.32890e-04_rb,0.47893e-04_rb,0.68644e-04_rb,0.98156e-04_rb,0.13564e-03_rb /)
+      kbo(:,59, 8) = (/ &
+        & 0.29702e-04_rb,0.43928e-04_rb,0.64217e-04_rb,0.92621e-04_rb,0.12965e-03_rb /)
+      kbo(:,13, 9) = (/ &
+        & 0.27690e+01_rb,0.28644e+01_rb,0.29696e+01_rb,0.30850e+01_rb,0.32162e+01_rb /)
+      kbo(:,14, 9) = (/ &
+        & 0.23162e+01_rb,0.23973e+01_rb,0.24876e+01_rb,0.25913e+01_rb,0.27107e+01_rb /)
+      kbo(:,15, 9) = (/ &
+        & 0.19377e+01_rb,0.20096e+01_rb,0.20909e+01_rb,0.21846e+01_rb,0.22904e+01_rb /)
+      kbo(:,16, 9) = (/ &
+        & 0.16221e+01_rb,0.16854e+01_rb,0.17596e+01_rb,0.18440e+01_rb,0.19374e+01_rb /)
+      kbo(:,17, 9) = (/ &
+        & 0.13581e+01_rb,0.14147e+01_rb,0.14813e+01_rb,0.15562e+01_rb,0.16364e+01_rb /)
+      kbo(:,18, 9) = (/ &
+        & 0.11494e+01_rb,0.11995e+01_rb,0.12558e+01_rb,0.13168e+01_rb,0.13828e+01_rb /)
+      kbo(:,19, 9) = (/ &
+        & 0.99857e+00_rb,0.10422e+01_rb,0.10890e+01_rb,0.11391e+01_rb,0.11917e+01_rb /)
+      kbo(:,20, 9) = (/ &
+        & 0.86585e+00_rb,0.90292e+00_rb,0.94341e+00_rb,0.98616e+00_rb,0.10332e+01_rb /)
+      kbo(:,21, 9) = (/ &
+        & 0.74752e+00_rb,0.77983e+00_rb,0.81433e+00_rb,0.85283e+00_rb,0.89462e+00_rb /)
+      kbo(:,22, 9) = (/ &
+        & 0.64494e+00_rb,0.67286e+00_rb,0.70277e+00_rb,0.73658e+00_rb,0.77352e+00_rb /)
+      kbo(:,23, 9) = (/ &
+        & 0.55485e+00_rb,0.57897e+00_rb,0.60654e+00_rb,0.63699e+00_rb,0.66979e+00_rb /)
+      kbo(:,24, 9) = (/ &
+        & 0.47664e+00_rb,0.49869e+00_rb,0.52329e+00_rb,0.54973e+00_rb,0.57955e+00_rb /)
+      kbo(:,25, 9) = (/ &
+        & 0.41114e+00_rb,0.42988e+00_rb,0.45044e+00_rb,0.47447e+00_rb,0.50163e+00_rb /)
+      kbo(:,26, 9) = (/ &
+        & 0.35513e+00_rb,0.37142e+00_rb,0.38942e+00_rb,0.41045e+00_rb,0.43493e+00_rb /)
+      kbo(:,27, 9) = (/ &
+        & 0.30546e+00_rb,0.31995e+00_rb,0.33673e+00_rb,0.35597e+00_rb,0.37742e+00_rb /)
+      kbo(:,28, 9) = (/ &
+        & 0.26188e+00_rb,0.27552e+00_rb,0.29117e+00_rb,0.30879e+00_rb,0.32839e+00_rb /)
+      kbo(:,29, 9) = (/ &
+        & 0.22377e+00_rb,0.23654e+00_rb,0.25102e+00_rb,0.26735e+00_rb,0.28587e+00_rb /)
+      kbo(:,30, 9) = (/ &
+        & 0.19129e+00_rb,0.20332e+00_rb,0.21691e+00_rb,0.23233e+00_rb,0.24924e+00_rb /)
+      kbo(:,31, 9) = (/ &
+        & 0.16347e+00_rb,0.17463e+00_rb,0.18745e+00_rb,0.20165e+00_rb,0.21712e+00_rb /)
+      kbo(:,32, 9) = (/ &
+        & 0.14037e+00_rb,0.15075e+00_rb,0.16282e+00_rb,0.17567e+00_rb,0.18973e+00_rb /)
+      kbo(:,33, 9) = (/ &
+        & 0.12095e+00_rb,0.13081e+00_rb,0.14161e+00_rb,0.15337e+00_rb,0.16632e+00_rb /)
+      kbo(:,34, 9) = (/ &
+        & 0.10468e+00_rb,0.11371e+00_rb,0.12351e+00_rb,0.13423e+00_rb,0.14632e+00_rb /)
+      kbo(:,35, 9) = (/ &
+        & 0.90259e-01_rb,0.98421e-01_rb,0.10717e+00_rb,0.11695e+00_rb,0.12831e+00_rb /)
+      kbo(:,36, 9) = (/ &
+        & 0.77272e-01_rb,0.84599e-01_rb,0.92464e-01_rb,0.10140e+00_rb,0.11193e+00_rb /)
+      kbo(:,37, 9) = (/ &
+        & 0.65606e-01_rb,0.72029e-01_rb,0.79063e-01_rb,0.87174e-01_rb,0.96643e-01_rb /)
+      kbo(:,38, 9) = (/ &
+        & 0.55528e-01_rb,0.61268e-01_rb,0.67613e-01_rb,0.74898e-01_rb,0.83456e-01_rb /)
+      kbo(:,39, 9) = (/ &
+        & 0.46985e-01_rb,0.52085e-01_rb,0.57765e-01_rb,0.64303e-01_rb,0.72021e-01_rb /)
+      kbo(:,40, 9) = (/ &
+        & 0.39626e-01_rb,0.44094e-01_rb,0.49150e-01_rb,0.55005e-01_rb,0.61884e-01_rb /)
+      kbo(:,41, 9) = (/ &
+        & 0.33376e-01_rb,0.37326e-01_rb,0.41783e-01_rb,0.46997e-01_rb,0.53158e-01_rb /)
+      kbo(:,42, 9) = (/ &
+        & 0.28074e-01_rb,0.31535e-01_rb,0.35493e-01_rb,0.40112e-01_rb,0.45645e-01_rb /)
+      kbo(:,43, 9) = (/ &
+        & 0.23419e-01_rb,0.26419e-01_rb,0.29889e-01_rb,0.33982e-01_rb,0.38867e-01_rb /)
+      kbo(:,44, 9) = (/ &
+        & 0.19437e-01_rb,0.22035e-01_rb,0.25042e-01_rb,0.28622e-01_rb,0.32930e-01_rb /)
+      kbo(:,45, 9) = (/ &
+        & 0.16083e-01_rb,0.18329e-01_rb,0.20937e-01_rb,0.24027e-01_rb,0.27786e-01_rb /)
+      kbo(:,46, 9) = (/ &
+        & 0.13236e-01_rb,0.15146e-01_rb,0.17420e-01_rb,0.20094e-01_rb,0.23328e-01_rb /)
+      kbo(:,47, 9) = (/ &
+        & 0.10820e-01_rb,0.12455e-01_rb,0.14377e-01_rb,0.16656e-01_rb,0.19464e-01_rb /)
+      kbo(:,48, 9) = (/ &
+        & 0.88043e-02_rb,0.10190e-01_rb,0.11813e-01_rb,0.13745e-01_rb,0.16141e-01_rb /)
+      kbo(:,49, 9) = (/ &
+        & 0.71234e-02_rb,0.82775e-02_rb,0.96453e-02_rb,0.11284e-01_rb,0.13310e-01_rb /)
+      kbo(:,50, 9) = (/ &
+        & 0.58127e-02_rb,0.67802e-02_rb,0.79379e-02_rb,0.93254e-02_rb,0.11078e-01_rb /)
+      kbo(:,51, 9) = (/ &
+        & 0.47494e-02_rb,0.55659e-02_rb,0.65602e-02_rb,0.77407e-02_rb,0.92288e-02_rb /)
+      kbo(:,52, 9) = (/ &
+        & 0.38618e-02_rb,0.45424e-02_rb,0.53925e-02_rb,0.64011e-02_rb,0.76645e-02_rb /)
+      kbo(:,53, 9) = (/ &
+        & 0.31264e-02_rb,0.36823e-02_rb,0.43952e-02_rb,0.52615e-02_rb,0.63311e-02_rb /)
+      kbo(:,54, 9) = (/ &
+        & 0.25794e-02_rb,0.30481e-02_rb,0.36548e-02_rb,0.44037e-02_rb,0.53380e-02_rb /)
+      kbo(:,55, 9) = (/ &
+        & 0.21508e-02_rb,0.25472e-02_rb,0.30665e-02_rb,0.37188e-02_rb,0.45472e-02_rb /)
+      kbo(:,56, 9) = (/ &
+        & 0.17938e-02_rb,0.21263e-02_rb,0.25713e-02_rb,0.31411e-02_rb,0.38667e-02_rb /)
+      kbo(:,57, 9) = (/ &
+        & 0.14949e-02_rb,0.17755e-02_rb,0.21510e-02_rb,0.26439e-02_rb,0.32830e-02_rb /)
+      kbo(:,58, 9) = (/ &
+        & 0.12521e-02_rb,0.14938e-02_rb,0.18137e-02_rb,0.22426e-02_rb,0.28028e-02_rb /)
+      kbo(:,59, 9) = (/ &
+        & 0.11302e-02_rb,0.13552e-02_rb,0.16582e-02_rb,0.20691e-02_rb,0.26051e-02_rb /)
+      kbo(:,13,10) = (/ &
+        & 0.14370e+02_rb,0.14649e+02_rb,0.14957e+02_rb,0.15296e+02_rb,0.15663e+02_rb /)
+      kbo(:,14,10) = (/ &
+        & 0.12178e+02_rb,0.12411e+02_rb,0.12682e+02_rb,0.12978e+02_rb,0.13316e+02_rb /)
+      kbo(:,15,10) = (/ &
+        & 0.10211e+02_rb,0.10402e+02_rb,0.10625e+02_rb,0.10894e+02_rb,0.11239e+02_rb /)
+      kbo(:,16,10) = (/ &
+        & 0.85974e+01_rb,0.87539e+01_rb,0.89410e+01_rb,0.91849e+01_rb,0.95108e+01_rb /)
+      kbo(:,17,10) = (/ &
+        & 0.72440e+01_rb,0.73858e+01_rb,0.75683e+01_rb,0.78199e+01_rb,0.81516e+01_rb /)
+      kbo(:,18,10) = (/ &
+        & 0.59680e+01_rb,0.61054e+01_rb,0.63108e+01_rb,0.66074e+01_rb,0.69367e+01_rb /)
+      kbo(:,19,10) = (/ &
+        & 0.47759e+01_rb,0.49000e+01_rb,0.51125e+01_rb,0.53858e+01_rb,0.56972e+01_rb /)
+      kbo(:,20,10) = (/ &
+        & 0.40682e+01_rb,0.42060e+01_rb,0.43988e+01_rb,0.46035e+01_rb,0.48052e+01_rb /)
+      kbo(:,21,10) = (/ &
+        & 0.35226e+01_rb,0.36715e+01_rb,0.38357e+01_rb,0.40017e+01_rb,0.41636e+01_rb /)
+      kbo(:,22,10) = (/ &
+        & 0.30730e+01_rb,0.32059e+01_rb,0.33607e+01_rb,0.35055e+01_rb,0.36621e+01_rb /)
+      kbo(:,23,10) = (/ &
+        & 0.26688e+01_rb,0.27999e+01_rb,0.29296e+01_rb,0.30668e+01_rb,0.32115e+01_rb /)
+      kbo(:,24,10) = (/ &
+        & 0.23228e+01_rb,0.24338e+01_rb,0.25510e+01_rb,0.26866e+01_rb,0.28223e+01_rb /)
+      kbo(:,25,10) = (/ &
+        & 0.19964e+01_rb,0.21083e+01_rb,0.22332e+01_rb,0.23566e+01_rb,0.24845e+01_rb /)
+      kbo(:,26,10) = (/ &
+        & 0.17097e+01_rb,0.18190e+01_rb,0.19420e+01_rb,0.20663e+01_rb,0.21952e+01_rb /)
+      kbo(:,27,10) = (/ &
+        & 0.14729e+01_rb,0.15741e+01_rb,0.16825e+01_rb,0.17963e+01_rb,0.19295e+01_rb /)
+      kbo(:,28,10) = (/ &
+        & 0.12788e+01_rb,0.13609e+01_rb,0.14562e+01_rb,0.15668e+01_rb,0.17032e+01_rb /)
+      kbo(:,29,10) = (/ &
+        & 0.11113e+01_rb,0.11813e+01_rb,0.12669e+01_rb,0.13763e+01_rb,0.15012e+01_rb /)
+      kbo(:,30,10) = (/ &
+        & 0.96661e+00_rb,0.10287e+01_rb,0.11081e+01_rb,0.12093e+01_rb,0.13273e+01_rb /)
+      kbo(:,31,10) = (/ &
+        & 0.83795e+00_rb,0.89792e+00_rb,0.97327e+00_rb,0.10727e+01_rb,0.11828e+01_rb /)
+      kbo(:,32,10) = (/ &
+        & 0.72634e+00_rb,0.78480e+00_rb,0.86071e+00_rb,0.95503e+00_rb,0.10615e+01_rb /)
+      kbo(:,33,10) = (/ &
+        & 0.63134e+00_rb,0.68789e+00_rb,0.76628e+00_rb,0.85854e+00_rb,0.96370e+00_rb /)
+      kbo(:,34,10) = (/ &
+        & 0.55172e+00_rb,0.60863e+00_rb,0.68672e+00_rb,0.77637e+00_rb,0.87664e+00_rb /)
+      kbo(:,35,10) = (/ &
+        & 0.48039e+00_rb,0.53701e+00_rb,0.61125e+00_rb,0.69795e+00_rb,0.79084e+00_rb /)
+      kbo(:,36,10) = (/ &
+        & 0.41819e+00_rb,0.47188e+00_rb,0.54096e+00_rb,0.62096e+00_rb,0.70693e+00_rb /)
+      kbo(:,37,10) = (/ &
+        & 0.36050e+00_rb,0.40906e+00_rb,0.47069e+00_rb,0.54184e+00_rb,0.62144e+00_rb /)
+      kbo(:,38,10) = (/ &
+        & 0.31156e+00_rb,0.35409e+00_rb,0.40958e+00_rb,0.47371e+00_rb,0.54611e+00_rb /)
+      kbo(:,39,10) = (/ &
+        & 0.26782e+00_rb,0.30677e+00_rb,0.35645e+00_rb,0.41535e+00_rb,0.48073e+00_rb /)
+      kbo(:,40,10) = (/ &
+        & 0.23006e+00_rb,0.26273e+00_rb,0.30670e+00_rb,0.35934e+00_rb,0.41871e+00_rb /)
+      kbo(:,41,10) = (/ &
+        & 0.19681e+00_rb,0.22601e+00_rb,0.26383e+00_rb,0.31041e+00_rb,0.36443e+00_rb /)
+      kbo(:,42,10) = (/ &
+        & 0.16794e+00_rb,0.19457e+00_rb,0.22757e+00_rb,0.26875e+00_rb,0.31708e+00_rb /)
+      kbo(:,43,10) = (/ &
+        & 0.14222e+00_rb,0.16606e+00_rb,0.19480e+00_rb,0.23049e+00_rb,0.27422e+00_rb /)
+      kbo(:,44,10) = (/ &
+        & 0.11907e+00_rb,0.14059e+00_rb,0.16567e+00_rb,0.19741e+00_rb,0.23557e+00_rb /)
+      kbo(:,45,10) = (/ &
+        & 0.99508e-01_rb,0.11792e+00_rb,0.14029e+00_rb,0.16912e+00_rb,0.20294e+00_rb /)
+      kbo(:,46,10) = (/ &
+        & 0.82787e-01_rb,0.98729e-01_rb,0.11783e+00_rb,0.14344e+00_rb,0.17433e+00_rb /)
+      kbo(:,47,10) = (/ &
+        & 0.68205e-01_rb,0.81739e-01_rb,0.98558e-01_rb,0.12017e+00_rb,0.14798e+00_rb /)
+      kbo(:,48,10) = (/ &
+        & 0.55907e-01_rb,0.67050e-01_rb,0.81465e-01_rb,0.10030e+00_rb,0.12506e+00_rb /)
+      kbo(:,49,10) = (/ &
+        & 0.45682e-01_rb,0.54871e-01_rb,0.66950e-01_rb,0.83270e-01_rb,0.10500e+00_rb /)
+      kbo(:,50,10) = (/ &
+        & 0.37515e-01_rb,0.45259e-01_rb,0.55584e-01_rb,0.69475e-01_rb,0.88432e-01_rb /)
+      kbo(:,51,10) = (/ &
+        & 0.31052e-01_rb,0.37347e-01_rb,0.46136e-01_rb,0.58029e-01_rb,0.74379e-01_rb /)
+      kbo(:,52,10) = (/ &
+        & 0.25697e-01_rb,0.30758e-01_rb,0.38027e-01_rb,0.48169e-01_rb,0.62340e-01_rb /)
+      kbo(:,53,10) = (/ &
+        & 0.21053e-01_rb,0.25282e-01_rb,0.31221e-01_rb,0.39765e-01_rb,0.52061e-01_rb /)
+      kbo(:,54,10) = (/ &
+        & 0.17506e-01_rb,0.21171e-01_rb,0.26181e-01_rb,0.33450e-01_rb,0.43837e-01_rb /)
+      kbo(:,55,10) = (/ &
+        & 0.14733e-01_rb,0.17912e-01_rb,0.22352e-01_rb,0.28517e-01_rb,0.37310e-01_rb /)
+      kbo(:,56,10) = (/ &
+        & 0.12382e-01_rb,0.15138e-01_rb,0.19031e-01_rb,0.24337e-01_rb,0.31780e-01_rb /)
+      kbo(:,57,10) = (/ &
+        & 0.10363e-01_rb,0.12802e-01_rb,0.16188e-01_rb,0.20731e-01_rb,0.27252e-01_rb /)
+      kbo(:,58,10) = (/ &
+        & 0.87632e-02_rb,0.10863e-01_rb,0.13823e-01_rb,0.17907e-01_rb,0.23570e-01_rb /)
+      kbo(:,59,10) = (/ &
+        & 0.79477e-02_rb,0.99708e-02_rb,0.12797e-01_rb,0.16832e-01_rb,0.22384e-01_rb /)
+      kbo(:,13,11) = (/ &
+        & 0.27028e+02_rb,0.27753e+02_rb,0.28483e+02_rb,0.29219e+02_rb,0.29909e+02_rb /)
+      kbo(:,14,11) = (/ &
+        & 0.23419e+02_rb,0.24025e+02_rb,0.24638e+02_rb,0.25228e+02_rb,0.25789e+02_rb /)
+      kbo(:,15,11) = (/ &
+        & 0.20150e+02_rb,0.20660e+02_rb,0.21151e+02_rb,0.21642e+02_rb,0.22118e+02_rb /)
+      kbo(:,16,11) = (/ &
+        & 0.17107e+02_rb,0.17510e+02_rb,0.17925e+02_rb,0.18355e+02_rb,0.18823e+02_rb /)
+      kbo(:,17,11) = (/ &
+        & 0.14361e+02_rb,0.14686e+02_rb,0.15035e+02_rb,0.15422e+02_rb,0.15903e+02_rb /)
+      kbo(:,18,11) = (/ &
+        & 0.12138e+02_rb,0.12397e+02_rb,0.12696e+02_rb,0.13058e+02_rb,0.13553e+02_rb /)
+      kbo(:,19,11) = (/ &
+        & 0.10135e+02_rb,0.10395e+02_rb,0.10708e+02_rb,0.11115e+02_rb,0.11638e+02_rb /)
+      kbo(:,20,11) = (/ &
+        & 0.81786e+01_rb,0.84190e+01_rb,0.87492e+01_rb,0.92221e+01_rb,0.97673e+01_rb /)
+      kbo(:,21,11) = (/ &
+        & 0.68203e+01_rb,0.70074e+01_rb,0.73249e+01_rb,0.77062e+01_rb,0.81227e+01_rb /)
+      kbo(:,22,11) = (/ &
+        & 0.58880e+01_rb,0.61142e+01_rb,0.64089e+01_rb,0.67273e+01_rb,0.70540e+01_rb /)
+      kbo(:,23,11) = (/ &
+        & 0.51482e+01_rb,0.53972e+01_rb,0.56613e+01_rb,0.59190e+01_rb,0.62039e+01_rb /)
+      kbo(:,24,11) = (/ &
+        & 0.45460e+01_rb,0.47798e+01_rb,0.50055e+01_rb,0.52340e+01_rb,0.54793e+01_rb /)
+      kbo(:,25,11) = (/ &
+        & 0.40038e+01_rb,0.42162e+01_rb,0.44356e+01_rb,0.46519e+01_rb,0.48861e+01_rb /)
+      kbo(:,26,11) = (/ &
+        & 0.35330e+01_rb,0.37282e+01_rb,0.39261e+01_rb,0.41342e+01_rb,0.43614e+01_rb /)
+      kbo(:,27,11) = (/ &
+        & 0.30918e+01_rb,0.32790e+01_rb,0.34783e+01_rb,0.36774e+01_rb,0.38933e+01_rb /)
+      kbo(:,28,11) = (/ &
+        & 0.27019e+01_rb,0.28880e+01_rb,0.30842e+01_rb,0.32755e+01_rb,0.34826e+01_rb /)
+      kbo(:,29,11) = (/ &
+        & 0.23567e+01_rb,0.25399e+01_rb,0.27237e+01_rb,0.29118e+01_rb,0.31184e+01_rb /)
+      kbo(:,30,11) = (/ &
+        & 0.20673e+01_rb,0.22421e+01_rb,0.24146e+01_rb,0.26001e+01_rb,0.28136e+01_rb /)
+      kbo(:,31,11) = (/ &
+        & 0.18233e+01_rb,0.19796e+01_rb,0.21491e+01_rb,0.23275e+01_rb,0.25391e+01_rb /)
+      kbo(:,32,11) = (/ &
+        & 0.16164e+01_rb,0.17629e+01_rb,0.19137e+01_rb,0.20921e+01_rb,0.23020e+01_rb /)
+      kbo(:,33,11) = (/ &
+        & 0.14325e+01_rb,0.15691e+01_rb,0.17171e+01_rb,0.18965e+01_rb,0.20991e+01_rb /)
+      kbo(:,34,11) = (/ &
+        & 0.12711e+01_rb,0.14025e+01_rb,0.15514e+01_rb,0.17231e+01_rb,0.19204e+01_rb /)
+      kbo(:,35,11) = (/ &
+        & 0.11251e+01_rb,0.12478e+01_rb,0.13948e+01_rb,0.15591e+01_rb,0.17428e+01_rb /)
+      kbo(:,36,11) = (/ &
+        & 0.98734e+00_rb,0.11026e+01_rb,0.12425e+01_rb,0.13991e+01_rb,0.15730e+01_rb /)
+      kbo(:,37,11) = (/ &
+        & 0.85152e+00_rb,0.96327e+00_rb,0.10911e+01_rb,0.12398e+01_rb,0.14045e+01_rb /)
+      kbo(:,38,11) = (/ &
+        & 0.73399e+00_rb,0.83942e+00_rb,0.95984e+00_rb,0.10967e+01_rb,0.12526e+01_rb /)
+      kbo(:,39,11) = (/ &
+        & 0.63468e+00_rb,0.73175e+00_rb,0.84488e+00_rb,0.97279e+00_rb,0.11163e+01_rb /)
+      kbo(:,40,11) = (/ &
+        & 0.54166e+00_rb,0.63099e+00_rb,0.73459e+00_rb,0.85525e+00_rb,0.98986e+00_rb /)
+      kbo(:,41,11) = (/ &
+        & 0.46341e+00_rb,0.54185e+00_rb,0.63786e+00_rb,0.75041e+00_rb,0.87557e+00_rb /)
+      kbo(:,42,11) = (/ &
+        & 0.39710e+00_rb,0.46604e+00_rb,0.55335e+00_rb,0.65788e+00_rb,0.77518e+00_rb /)
+      kbo(:,43,11) = (/ &
+        & 0.33809e+00_rb,0.39845e+00_rb,0.47656e+00_rb,0.56991e+00_rb,0.67763e+00_rb /)
+      kbo(:,44,11) = (/ &
+        & 0.28738e+00_rb,0.33811e+00_rb,0.40783e+00_rb,0.49238e+00_rb,0.58805e+00_rb /)
+      kbo(:,45,11) = (/ &
+        & 0.24372e+00_rb,0.28787e+00_rb,0.34858e+00_rb,0.42338e+00_rb,0.51131e+00_rb /)
+      kbo(:,46,11) = (/ &
+        & 0.20655e+00_rb,0.24407e+00_rb,0.29751e+00_rb,0.36239e+00_rb,0.44206e+00_rb /)
+      kbo(:,47,11) = (/ &
+        & 0.17359e+00_rb,0.20653e+00_rb,0.25158e+00_rb,0.30900e+00_rb,0.37888e+00_rb /)
+      kbo(:,48,11) = (/ &
+        & 0.14508e+00_rb,0.17395e+00_rb,0.21335e+00_rb,0.26232e+00_rb,0.32328e+00_rb /)
+      kbo(:,49,11) = (/ &
+        & 0.12016e+00_rb,0.14523e+00_rb,0.17928e+00_rb,0.22128e+00_rb,0.27412e+00_rb /)
+      kbo(:,50,11) = (/ &
+        & 0.99920e-01_rb,0.12218e+00_rb,0.15097e+00_rb,0.18907e+00_rb,0.23575e+00_rb /)
+      kbo(:,51,11) = (/ &
+        & 0.82909e-01_rb,0.10226e+00_rb,0.12737e+00_rb,0.16132e+00_rb,0.20378e+00_rb /)
+      kbo(:,52,11) = (/ &
+        & 0.68577e-01_rb,0.85131e-01_rb,0.10673e+00_rb,0.13644e+00_rb,0.17453e+00_rb /)
+      kbo(:,53,11) = (/ &
+        & 0.56302e-01_rb,0.70491e-01_rb,0.88684e-01_rb,0.11469e+00_rb,0.14786e+00_rb /)
+      kbo(:,54,11) = (/ &
+        & 0.47171e-01_rb,0.59185e-01_rb,0.74877e-01_rb,0.97387e-01_rb,0.12762e+00_rb /)
+      kbo(:,55,11) = (/ &
+        & 0.40028e-01_rb,0.50199e-01_rb,0.63960e-01_rb,0.83211e-01_rb,0.11104e+00_rb /)
+      kbo(:,56,11) = (/ &
+        & 0.33854e-01_rb,0.42508e-01_rb,0.54649e-01_rb,0.71262e-01_rb,0.95596e-01_rb /)
+      kbo(:,57,11) = (/ &
+        & 0.28590e-01_rb,0.36142e-01_rb,0.46409e-01_rb,0.61269e-01_rb,0.82012e-01_rb /)
+      kbo(:,58,11) = (/ &
+        & 0.24352e-01_rb,0.30934e-01_rb,0.39697e-01_rb,0.52483e-01_rb,0.71167e-01_rb /)
+      kbo(:,59,11) = (/ &
+        & 0.22598e-01_rb,0.29152e-01_rb,0.37468e-01_rb,0.48573e-01_rb,0.66434e-01_rb /)
+      kbo(:,13,12) = (/ &
+        & 0.57172e+02_rb,0.59297e+02_rb,0.61400e+02_rb,0.63512e+02_rb,0.65627e+02_rb /)
+      kbo(:,14,12) = (/ &
+        & 0.50361e+02_rb,0.52086e+02_rb,0.53828e+02_rb,0.55595e+02_rb,0.57346e+02_rb /)
+      kbo(:,15,12) = (/ &
+        & 0.44078e+02_rb,0.45453e+02_rb,0.46902e+02_rb,0.48347e+02_rb,0.49789e+02_rb /)
+      kbo(:,16,12) = (/ &
+        & 0.38395e+02_rb,0.39554e+02_rb,0.40754e+02_rb,0.41955e+02_rb,0.43150e+02_rb /)
+      kbo(:,17,12) = (/ &
+        & 0.33363e+02_rb,0.34355e+02_rb,0.35352e+02_rb,0.36337e+02_rb,0.37312e+02_rb /)
+      kbo(:,18,12) = (/ &
+        & 0.28599e+02_rb,0.29463e+02_rb,0.30307e+02_rb,0.31155e+02_rb,0.32043e+02_rb /)
+      kbo(:,19,12) = (/ &
+        & 0.24284e+02_rb,0.24982e+02_rb,0.25685e+02_rb,0.26424e+02_rb,0.27289e+02_rb /)
+      kbo(:,20,12) = (/ &
+        & 0.20576e+02_rb,0.21117e+02_rb,0.21693e+02_rb,0.22370e+02_rb,0.23304e+02_rb /)
+      kbo(:,21,12) = (/ &
+        & 0.17126e+02_rb,0.17629e+02_rb,0.18193e+02_rb,0.18968e+02_rb,0.20012e+02_rb /)
+      kbo(:,22,12) = (/ &
+        & 0.14084e+02_rb,0.14526e+02_rb,0.15112e+02_rb,0.15986e+02_rb,0.17086e+02_rb /)
+      kbo(:,23,12) = (/ &
+        & 0.11727e+02_rb,0.12073e+02_rb,0.12663e+02_rb,0.13546e+02_rb,0.14594e+02_rb /)
+      kbo(:,24,12) = (/ &
+        & 0.10116e+02_rb,0.10483e+02_rb,0.11087e+02_rb,0.11839e+02_rb,0.12630e+02_rb /)
+      kbo(:,25,12) = (/ &
+        & 0.89362e+01_rb,0.93748e+01_rb,0.99578e+01_rb,0.10576e+02_rb,0.11263e+02_rb /)
+      kbo(:,26,12) = (/ &
+        & 0.79574e+01_rb,0.84325e+01_rb,0.89960e+01_rb,0.95862e+01_rb,0.10135e+02_rb /)
+      kbo(:,27,12) = (/ &
+        & 0.71290e+01_rb,0.76343e+01_rb,0.81343e+01_rb,0.86609e+01_rb,0.91441e+01_rb /)
+      kbo(:,28,12) = (/ &
+        & 0.64441e+01_rb,0.69081e+01_rb,0.73340e+01_rb,0.77892e+01_rb,0.82579e+01_rb /)
+      kbo(:,29,12) = (/ &
+        & 0.57859e+01_rb,0.61904e+01_rb,0.65762e+01_rb,0.69937e+01_rb,0.74255e+01_rb /)
+      kbo(:,30,12) = (/ &
+        & 0.51602e+01_rb,0.55338e+01_rb,0.58953e+01_rb,0.62766e+01_rb,0.66823e+01_rb /)
+      kbo(:,31,12) = (/ &
+        & 0.45943e+01_rb,0.49270e+01_rb,0.52739e+01_rb,0.56298e+01_rb,0.60118e+01_rb /)
+      kbo(:,32,12) = (/ &
+        & 0.40881e+01_rb,0.44095e+01_rb,0.47450e+01_rb,0.50839e+01_rb,0.54488e+01_rb /)
+      kbo(:,33,12) = (/ &
+        & 0.36534e+01_rb,0.39549e+01_rb,0.42670e+01_rb,0.46043e+01_rb,0.49743e+01_rb /)
+      kbo(:,34,12) = (/ &
+        & 0.32874e+01_rb,0.35667e+01_rb,0.38571e+01_rb,0.41872e+01_rb,0.45862e+01_rb /)
+      kbo(:,35,12) = (/ &
+        & 0.29379e+01_rb,0.31963e+01_rb,0.34845e+01_rb,0.38151e+01_rb,0.42290e+01_rb /)
+      kbo(:,36,12) = (/ &
+        & 0.26101e+01_rb,0.28628e+01_rb,0.31405e+01_rb,0.34760e+01_rb,0.38927e+01_rb /)
+      kbo(:,37,12) = (/ &
+        & 0.23047e+01_rb,0.25368e+01_rb,0.28124e+01_rb,0.31292e+01_rb,0.35310e+01_rb /)
+      kbo(:,38,12) = (/ &
+        & 0.20413e+01_rb,0.22603e+01_rb,0.25129e+01_rb,0.28252e+01_rb,0.32149e+01_rb /)
+      kbo(:,39,12) = (/ &
+        & 0.18040e+01_rb,0.20133e+01_rb,0.22565e+01_rb,0.25571e+01_rb,0.29423e+01_rb /)
+      kbo(:,40,12) = (/ &
+        & 0.15898e+01_rb,0.17862e+01_rb,0.20189e+01_rb,0.22992e+01_rb,0.26576e+01_rb /)
+      kbo(:,41,12) = (/ &
+        & 0.14002e+01_rb,0.15861e+01_rb,0.18008e+01_rb,0.20620e+01_rb,0.24028e+01_rb /)
+      kbo(:,42,12) = (/ &
+        & 0.12302e+01_rb,0.14049e+01_rb,0.16015e+01_rb,0.18444e+01_rb,0.21658e+01_rb /)
+      kbo(:,43,12) = (/ &
+        & 0.10668e+01_rb,0.12258e+01_rb,0.14101e+01_rb,0.16347e+01_rb,0.19297e+01_rb /)
+      kbo(:,44,12) = (/ &
+        & 0.91800e+00_rb,0.10642e+01_rb,0.12324e+01_rb,0.14347e+01_rb,0.17074e+01_rb /)
+      kbo(:,45,12) = (/ &
+        & 0.78687e+00_rb,0.91967e+00_rb,0.10737e+01_rb,0.12598e+01_rb,0.15049e+01_rb /)
+      kbo(:,46,12) = (/ &
+        & 0.67148e+00_rb,0.79041e+00_rb,0.92761e+00_rb,0.10973e+01_rb,0.13177e+01_rb /)
+      kbo(:,47,12) = (/ &
+        & 0.57045e+00_rb,0.67640e+00_rb,0.80034e+00_rb,0.94779e+00_rb,0.11432e+01_rb /)
+      kbo(:,48,12) = (/ &
+        & 0.48142e+00_rb,0.57646e+00_rb,0.68676e+00_rb,0.82116e+00_rb,0.98898e+00_rb /)
+      kbo(:,49,12) = (/ &
+        & 0.40194e+00_rb,0.48757e+00_rb,0.58498e+00_rb,0.70838e+00_rb,0.85881e+00_rb /)
+      kbo(:,50,12) = (/ &
+        & 0.34095e+00_rb,0.41499e+00_rb,0.50425e+00_rb,0.61464e+00_rb,0.75451e+00_rb /)
+      kbo(:,51,12) = (/ &
+        & 0.29038e+00_rb,0.35608e+00_rb,0.43553e+00_rb,0.53422e+00_rb,0.66315e+00_rb /)
+      kbo(:,52,12) = (/ &
+        & 0.24615e+00_rb,0.30360e+00_rb,0.37359e+00_rb,0.46378e+00_rb,0.57808e+00_rb /)
+      kbo(:,53,12) = (/ &
+        & 0.20660e+00_rb,0.25764e+00_rb,0.31993e+00_rb,0.39869e+00_rb,0.50232e+00_rb /)
+      kbo(:,54,12) = (/ &
+        & 0.17518e+00_rb,0.22280e+00_rb,0.27852e+00_rb,0.34881e+00_rb,0.44243e+00_rb /)
+      kbo(:,55,12) = (/ &
+        & 0.14906e+00_rb,0.19392e+00_rb,0.24538e+00_rb,0.31045e+00_rb,0.39204e+00_rb /)
+      kbo(:,56,12) = (/ &
+        & 0.12564e+00_rb,0.16748e+00_rb,0.21535e+00_rb,0.27386e+00_rb,0.34816e+00_rb /)
+      kbo(:,57,12) = (/ &
+        & 0.10489e+00_rb,0.14334e+00_rb,0.18902e+00_rb,0.24147e+00_rb,0.30976e+00_rb /)
+      kbo(:,58,12) = (/ &
+        & 0.88415e-01_rb,0.12250e+00_rb,0.16566e+00_rb,0.21499e+00_rb,0.27515e+00_rb /)
+      kbo(:,59,12) = (/ &
+        & 0.80710e-01_rb,0.11375e+00_rb,0.15629e+00_rb,0.20737e+00_rb,0.26838e+00_rb /)
+      kbo(:,13,13) = (/ &
+        & 0.16465e+03_rb,0.16298e+03_rb,0.16413e+03_rb,0.16796e+03_rb,0.17425e+03_rb /)
+      kbo(:,14,13) = (/ &
+        & 0.14134e+03_rb,0.14223e+03_rb,0.14584e+03_rb,0.15183e+03_rb,0.15823e+03_rb /)
+      kbo(:,15,13) = (/ &
+        & 0.12334e+03_rb,0.12642e+03_rb,0.13170e+03_rb,0.13719e+03_rb,0.14248e+03_rb /)
+      kbo(:,16,13) = (/ &
+        & 0.10903e+03_rb,0.11350e+03_rb,0.11825e+03_rb,0.12284e+03_rb,0.12720e+03_rb /)
+      kbo(:,17,13) = (/ &
+        & 0.96744e+02_rb,0.10077e+03_rb,0.10473e+03_rb,0.10856e+03_rb,0.11225e+03_rb /)
+      kbo(:,18,13) = (/ &
+        & 0.85368e+02_rb,0.88669e+02_rb,0.91934e+02_rb,0.95127e+02_rb,0.98216e+02_rb /)
+      kbo(:,19,13) = (/ &
+        & 0.74865e+02_rb,0.77560e+02_rb,0.80263e+02_rb,0.82912e+02_rb,0.85499e+02_rb /)
+      kbo(:,20,13) = (/ &
+        & 0.65304e+02_rb,0.67588e+02_rb,0.69849e+02_rb,0.72099e+02_rb,0.74316e+02_rb /)
+      kbo(:,21,13) = (/ &
+        & 0.56704e+02_rb,0.58616e+02_rb,0.60541e+02_rb,0.62457e+02_rb,0.64444e+02_rb /)
+      kbo(:,22,13) = (/ &
+        & 0.49099e+02_rb,0.50788e+02_rb,0.52451e+02_rb,0.54119e+02_rb,0.55970e+02_rb /)
+      kbo(:,23,13) = (/ &
+        & 0.42076e+02_rb,0.43646e+02_rb,0.45230e+02_rb,0.46888e+02_rb,0.48798e+02_rb /)
+      kbo(:,24,13) = (/ &
+        & 0.35457e+02_rb,0.36904e+02_rb,0.38447e+02_rb,0.40262e+02_rb,0.42565e+02_rb /)
+      kbo(:,25,13) = (/ &
+        & 0.29832e+02_rb,0.31036e+02_rb,0.32508e+02_rb,0.34502e+02_rb,0.36979e+02_rb /)
+      kbo(:,26,13) = (/ &
+        & 0.25205e+02_rb,0.26348e+02_rb,0.27792e+02_rb,0.29788e+02_rb,0.32459e+02_rb /)
+      kbo(:,27,13) = (/ &
+        & 0.21486e+02_rb,0.22586e+02_rb,0.24162e+02_rb,0.26260e+02_rb,0.28944e+02_rb /)
+      kbo(:,28,13) = (/ &
+        & 0.18712e+02_rb,0.19693e+02_rb,0.21370e+02_rb,0.23591e+02_rb,0.26158e+02_rb /)
+      kbo(:,29,13) = (/ &
+        & 0.16630e+02_rb,0.17716e+02_rb,0.19369e+02_rb,0.21565e+02_rb,0.24102e+02_rb /)
+      kbo(:,30,13) = (/ &
+        & 0.14923e+02_rb,0.16119e+02_rb,0.17783e+02_rb,0.19989e+02_rb,0.22379e+02_rb /)
+      kbo(:,31,13) = (/ &
+        & 0.13532e+02_rb,0.14853e+02_rb,0.16576e+02_rb,0.18745e+02_rb,0.21084e+02_rb /)
+      kbo(:,32,13) = (/ &
+        & 0.12453e+02_rb,0.13784e+02_rb,0.15587e+02_rb,0.17718e+02_rb,0.20022e+02_rb /)
+      kbo(:,33,13) = (/ &
+        & 0.11580e+02_rb,0.13038e+02_rb,0.14851e+02_rb,0.16892e+02_rb,0.19192e+02_rb /)
+      kbo(:,34,13) = (/ &
+        & 0.10820e+02_rb,0.12376e+02_rb,0.14134e+02_rb,0.16152e+02_rb,0.18402e+02_rb /)
+      kbo(:,35,13) = (/ &
+        & 0.10116e+02_rb,0.11686e+02_rb,0.13402e+02_rb,0.15346e+02_rb,0.17556e+02_rb /)
+      kbo(:,36,13) = (/ &
+        & 0.93933e+01_rb,0.10910e+02_rb,0.12572e+02_rb,0.14432e+02_rb,0.16536e+02_rb /)
+      kbo(:,37,13) = (/ &
+        & 0.85160e+01_rb,0.99755e+01_rb,0.11554e+02_rb,0.13358e+02_rb,0.15350e+02_rb /)
+      kbo(:,38,13) = (/ &
+        & 0.77505e+01_rb,0.91225e+01_rb,0.10670e+02_rb,0.12380e+02_rb,0.14273e+02_rb /)
+      kbo(:,39,13) = (/ &
+        & 0.70897e+01_rb,0.83885e+01_rb,0.98694e+01_rb,0.11502e+02_rb,0.13343e+02_rb /)
+      kbo(:,40,13) = (/ &
+        & 0.63295e+01_rb,0.75506e+01_rb,0.89466e+01_rb,0.10495e+02_rb,0.12287e+02_rb /)
+      kbo(:,41,13) = (/ &
+        & 0.56302e+01_rb,0.67988e+01_rb,0.80957e+01_rb,0.96013e+01_rb,0.11280e+02_rb /)
+      kbo(:,42,13) = (/ &
+        & 0.50234e+01_rb,0.61071e+01_rb,0.73389e+01_rb,0.87816e+01_rb,0.10380e+02_rb /)
+      kbo(:,43,13) = (/ &
+        & 0.44225e+01_rb,0.54282e+01_rb,0.65963e+01_rb,0.79433e+01_rb,0.94666e+01_rb /)
+      kbo(:,44,13) = (/ &
+        & 0.38558e+01_rb,0.47912e+01_rb,0.58905e+01_rb,0.71478e+01_rb,0.86145e+01_rb /)
+      kbo(:,45,13) = (/ &
+        & 0.33575e+01_rb,0.42351e+01_rb,0.52475e+01_rb,0.64292e+01_rb,0.78296e+01_rb /)
+      kbo(:,46,13) = (/ &
+        & 0.29053e+01_rb,0.37074e+01_rb,0.46432e+01_rb,0.57484e+01_rb,0.70674e+01_rb /)
+      kbo(:,47,13) = (/ &
+        & 0.24706e+01_rb,0.31851e+01_rb,0.40524e+01_rb,0.50837e+01_rb,0.62990e+01_rb /)
+      kbo(:,48,13) = (/ &
+        & 0.20907e+01_rb,0.27320e+01_rb,0.35232e+01_rb,0.44689e+01_rb,0.55998e+01_rb /)
+      kbo(:,49,13) = (/ &
+        & 0.17652e+01_rb,0.23397e+01_rb,0.30525e+01_rb,0.39130e+01_rb,0.49641e+01_rb /)
+      kbo(:,50,13) = (/ &
+        & 0.14980e+01_rb,0.19995e+01_rb,0.26386e+01_rb,0.34309e+01_rb,0.43930e+01_rb /)
+      kbo(:,51,13) = (/ &
+        & 0.12883e+01_rb,0.17229e+01_rb,0.22808e+01_rb,0.30058e+01_rb,0.38921e+01_rb /)
+      kbo(:,52,13) = (/ &
+        & 0.11032e+01_rb,0.14878e+01_rb,0.19945e+01_rb,0.26225e+01_rb,0.34327e+01_rb /)
+      kbo(:,53,13) = (/ &
+        & 0.94256e+00_rb,0.12803e+01_rb,0.17436e+01_rb,0.23095e+01_rb,0.30258e+01_rb /)
+      kbo(:,54,13) = (/ &
+        & 0.80847e+00_rb,0.11045e+01_rb,0.15250e+01_rb,0.20573e+01_rb,0.27048e+01_rb /)
+      kbo(:,55,13) = (/ &
+        & 0.69972e+00_rb,0.95008e+00_rb,0.13215e+01_rb,0.18178e+01_rb,0.24326e+01_rb /)
+      kbo(:,56,13) = (/ &
+        & 0.60659e+00_rb,0.81298e+00_rb,0.11430e+01_rb,0.15925e+01_rb,0.21783e+01_rb /)
+      kbo(:,57,13) = (/ &
+        & 0.52664e+00_rb,0.69670e+00_rb,0.97998e+00_rb,0.13891e+01_rb,0.19333e+01_rb /)
+      kbo(:,58,13) = (/ &
+        & 0.45985e+00_rb,0.60682e+00_rb,0.84337e+00_rb,0.12113e+01_rb,0.17188e+01_rb /)
+      kbo(:,59,13) = (/ &
+        & 0.43853e+00_rb,0.57879e+00_rb,0.79018e+00_rb,0.11130e+01_rb,0.16039e+01_rb /)
+      kbo(:,13,14) = (/ &
+        & 0.86016e+03_rb,0.84626e+03_rb,0.83228e+03_rb,0.81817e+03_rb,0.80450e+03_rb /)
+      kbo(:,14,14) = (/ &
+        & 0.75981e+03_rb,0.74663e+03_rb,0.73345e+03_rb,0.72104e+03_rb,0.71224e+03_rb /)
+      kbo(:,15,14) = (/ &
+        & 0.66201e+03_rb,0.64993e+03_rb,0.63891e+03_rb,0.63210e+03_rb,0.62978e+03_rb /)
+      kbo(:,16,14) = (/ &
+        & 0.57014e+03_rb,0.56027e+03_rb,0.55466e+03_rb,0.55378e+03_rb,0.55721e+03_rb /)
+      kbo(:,17,14) = (/ &
+        & 0.48861e+03_rb,0.48354e+03_rb,0.48324e+03_rb,0.48760e+03_rb,0.49602e+03_rb /)
+      kbo(:,18,14) = (/ &
+        & 0.41987e+03_rb,0.41964e+03_rb,0.42411e+03_rb,0.43291e+03_rb,0.44575e+03_rb /)
+      kbo(:,19,14) = (/ &
+        & 0.36303e+03_rb,0.36702e+03_rb,0.37556e+03_rb,0.38834e+03_rb,0.40471e+03_rb /)
+      kbo(:,20,14) = (/ &
+        & 0.31651e+03_rb,0.32421e+03_rb,0.33627e+03_rb,0.35219e+03_rb,0.37072e+03_rb /)
+      kbo(:,21,14) = (/ &
+        & 0.27867e+03_rb,0.28947e+03_rb,0.30434e+03_rb,0.32131e+03_rb,0.33823e+03_rb /)
+      kbo(:,22,14) = (/ &
+        & 0.24916e+03_rb,0.26251e+03_rb,0.27768e+03_rb,0.29296e+03_rb,0.30844e+03_rb /)
+      kbo(:,23,14) = (/ &
+        & 0.22571e+03_rb,0.23932e+03_rb,0.25291e+03_rb,0.26670e+03_rb,0.28069e+03_rb /)
+      kbo(:,24,14) = (/ &
+        & 0.20503e+03_rb,0.21765e+03_rb,0.23029e+03_rb,0.24291e+03_rb,0.25575e+03_rb /)
+      kbo(:,25,14) = (/ &
+        & 0.18574e+03_rb,0.19763e+03_rb,0.20960e+03_rb,0.22151e+03_rb,0.23356e+03_rb /)
+      kbo(:,26,14) = (/ &
+        & 0.16825e+03_rb,0.17945e+03_rb,0.19085e+03_rb,0.20242e+03_rb,0.21406e+03_rb /)
+      kbo(:,27,14) = (/ &
+        & 0.15254e+03_rb,0.16311e+03_rb,0.17402e+03_rb,0.18521e+03_rb,0.19696e+03_rb /)
+      kbo(:,28,14) = (/ &
+        & 0.13815e+03_rb,0.14857e+03_rb,0.15913e+03_rb,0.17022e+03_rb,0.18238e+03_rb /)
+      kbo(:,29,14) = (/ &
+        & 0.12560e+03_rb,0.13571e+03_rb,0.14630e+03_rb,0.15763e+03_rb,0.17019e+03_rb /)
+      kbo(:,30,14) = (/ &
+        & 0.11497e+03_rb,0.12476e+03_rb,0.13550e+03_rb,0.14719e+03_rb,0.16044e+03_rb /)
+      kbo(:,31,14) = (/ &
+        & 0.10602e+03_rb,0.11577e+03_rb,0.12671e+03_rb,0.13889e+03_rb,0.15289e+03_rb /)
+      kbo(:,32,14) = (/ &
+        & 0.98519e+02_rb,0.10855e+03_rb,0.11978e+03_rb,0.13265e+03_rb,0.14744e+03_rb /)
+      kbo(:,33,14) = (/ &
+        & 0.92517e+02_rb,0.10274e+03_rb,0.11452e+03_rb,0.12822e+03_rb,0.14389e+03_rb /)
+      kbo(:,34,14) = (/ &
+        & 0.87441e+02_rb,0.97936e+02_rb,0.11044e+03_rb,0.12495e+03_rb,0.14148e+03_rb /)
+      kbo(:,35,14) = (/ &
+        & 0.82499e+02_rb,0.93333e+02_rb,0.10635e+03_rb,0.12151e+03_rb,0.13874e+03_rb /)
+      kbo(:,36,14) = (/ &
+        & 0.77442e+02_rb,0.88493e+02_rb,0.10184e+03_rb,0.11740e+03_rb,0.13513e+03_rb /)
+      kbo(:,37,14) = (/ &
+        & 0.71771e+02_rb,0.82731e+02_rb,0.96032e+02_rb,0.11158e+03_rb,0.12941e+03_rb /)
+      kbo(:,38,14) = (/ &
+        & 0.66727e+02_rb,0.77610e+02_rb,0.90795e+02_rb,0.10632e+03_rb,0.12415e+03_rb /)
+      kbo(:,39,14) = (/ &
+        & 0.62339e+02_rb,0.73113e+02_rb,0.86200e+02_rb,0.10167e+03_rb,0.11942e+03_rb /)
+      kbo(:,40,14) = (/ &
+        & 0.57601e+02_rb,0.67999e+02_rb,0.80724e+02_rb,0.95858e+02_rb,0.11323e+03_rb /)
+      kbo(:,41,14) = (/ &
+        & 0.53285e+02_rb,0.63203e+02_rb,0.75577e+02_rb,0.90242e+02_rb,0.10726e+03_rb /)
+      kbo(:,42,14) = (/ &
+        & 0.49392e+02_rb,0.58908e+02_rb,0.70834e+02_rb,0.85045e+02_rb,0.10163e+03_rb /)
+      kbo(:,43,14) = (/ &
+        & 0.45446e+02_rb,0.54452e+02_rb,0.65751e+02_rb,0.79402e+02_rb,0.95397e+02_rb /)
+      kbo(:,44,14) = (/ &
+        & 0.41620e+02_rb,0.50184e+02_rb,0.60777e+02_rb,0.73786e+02_rb,0.89076e+02_rb /)
+      kbo(:,45,14) = (/ &
+        & 0.38059e+02_rb,0.46282e+02_rb,0.56226e+02_rb,0.68539e+02_rb,0.83136e+02_rb /)
+      kbo(:,46,14) = (/ &
+        & 0.34554e+02_rb,0.42501e+02_rb,0.51829e+02_rb,0.63383e+02_rb,0.77220e+02_rb /)
+      kbo(:,47,14) = (/ &
+        & 0.31009e+02_rb,0.38610e+02_rb,0.47385e+02_rb,0.58058e+02_rb,0.71080e+02_rb /)
+      kbo(:,48,14) = (/ &
+        & 0.27715e+02_rb,0.34934e+02_rb,0.43319e+02_rb,0.53190e+02_rb,0.65347e+02_rb /)
+      kbo(:,49,14) = (/ &
+        & 0.24658e+02_rb,0.31478e+02_rb,0.39500e+02_rb,0.48743e+02_rb,0.59997e+02_rb /)
+      kbo(:,50,14) = (/ &
+        & 0.22034e+02_rb,0.28437e+02_rb,0.36093e+02_rb,0.44894e+02_rb,0.55346e+02_rb /)
+      kbo(:,51,14) = (/ &
+        & 0.19684e+02_rb,0.25626e+02_rb,0.32937e+02_rb,0.41385e+02_rb,0.51154e+02_rb /)
+      kbo(:,52,14) = (/ &
+        & 0.17504e+02_rb,0.22995e+02_rb,0.29925e+02_rb,0.38057e+02_rb,0.47307e+02_rb /)
+      kbo(:,53,14) = (/ &
+        & 0.15552e+02_rb,0.20544e+02_rb,0.27079e+02_rb,0.34832e+02_rb,0.43722e+02_rb /)
+      kbo(:,54,14) = (/ &
+        & 0.13886e+02_rb,0.18476e+02_rb,0.24607e+02_rb,0.31966e+02_rb,0.40540e+02_rb /)
+      kbo(:,55,14) = (/ &
+        & 0.12396e+02_rb,0.16681e+02_rb,0.22385e+02_rb,0.29384e+02_rb,0.37592e+02_rb /)
+      kbo(:,56,14) = (/ &
+        & 0.11028e+02_rb,0.15006e+02_rb,0.20297e+02_rb,0.26955e+02_rb,0.34780e+02_rb /)
+      kbo(:,57,14) = (/ &
+        & 0.97493e+01_rb,0.13452e+02_rb,0.18354e+02_rb,0.24644e+02_rb,0.32099e+02_rb /)
+      kbo(:,58,14) = (/ &
+        & 0.86411e+01_rb,0.12068e+02_rb,0.16627e+02_rb,0.22569e+02_rb,0.29684e+02_rb /)
+      kbo(:,59,14) = (/ &
+        & 0.80894e+01_rb,0.11449e+02_rb,0.15905e+02_rb,0.21753e+02_rb,0.28728e+02_rb /)
+      kbo(:,13,15) = (/ &
+        & 0.50046e+04_rb,0.50034e+04_rb,0.49950e+04_rb,0.49781e+04_rb,0.49542e+04_rb /)
+      kbo(:,14,15) = (/ &
+        & 0.51812e+04_rb,0.51738e+04_rb,0.51582e+04_rb,0.51357e+04_rb,0.51054e+04_rb /)
+      kbo(:,15,15) = (/ &
+        & 0.52793e+04_rb,0.52645e+04_rb,0.52450e+04_rb,0.52172e+04_rb,0.51836e+04_rb /)
+      kbo(:,16,15) = (/ &
+        & 0.53001e+04_rb,0.52818e+04_rb,0.52568e+04_rb,0.52274e+04_rb,0.51924e+04_rb /)
+      kbo(:,17,15) = (/ &
+        & 0.52448e+04_rb,0.52242e+04_rb,0.52004e+04_rb,0.51715e+04_rb,0.51377e+04_rb /)
+      kbo(:,18,15) = (/ &
+        & 0.51200e+04_rb,0.51031e+04_rb,0.50817e+04_rb,0.50571e+04_rb,0.50308e+04_rb /)
+      kbo(:,19,15) = (/ &
+        & 0.49389e+04_rb,0.49284e+04_rb,0.49153e+04_rb,0.49007e+04_rb,0.48819e+04_rb /)
+      kbo(:,20,15) = (/ &
+        & 0.47181e+04_rb,0.47168e+04_rb,0.47163e+04_rb,0.47129e+04_rb,0.47111e+04_rb /)
+      kbo(:,21,15) = (/ &
+        & 0.44718e+04_rb,0.44865e+04_rb,0.44990e+04_rb,0.45153e+04_rb,0.45403e+04_rb /)
+      kbo(:,22,15) = (/ &
+        & 0.42192e+04_rb,0.42497e+04_rb,0.42861e+04_rb,0.43316e+04_rb,0.43809e+04_rb /)
+      kbo(:,23,15) = (/ &
+        & 0.39727e+04_rb,0.40275e+04_rb,0.40936e+04_rb,0.41646e+04_rb,0.42404e+04_rb /)
+      kbo(:,24,15) = (/ &
+        & 0.37507e+04_rb,0.38336e+04_rb,0.39239e+04_rb,0.40206e+04_rb,0.41209e+04_rb /)
+      kbo(:,25,15) = (/ &
+        & 0.35606e+04_rb,0.36694e+04_rb,0.37826e+04_rb,0.39026e+04_rb,0.40244e+04_rb /)
+      kbo(:,26,15) = (/ &
+        & 0.34043e+04_rb,0.35364e+04_rb,0.36731e+04_rb,0.38130e+04_rb,0.39519e+04_rb /)
+      kbo(:,27,15) = (/ &
+        & 0.32803e+04_rb,0.34346e+04_rb,0.35912e+04_rb,0.37476e+04_rb,0.39014e+04_rb /)
+      kbo(:,28,15) = (/ &
+        & 0.31876e+04_rb,0.33610e+04_rb,0.35344e+04_rb,0.37042e+04_rb,0.38699e+04_rb /)
+      kbo(:,29,15) = (/ &
+        & 0.31239e+04_rb,0.33137e+04_rb,0.34995e+04_rb,0.36813e+04_rb,0.38573e+04_rb /)
+      kbo(:,30,15) = (/ &
+        & 0.30850e+04_rb,0.32872e+04_rb,0.34837e+04_rb,0.36745e+04_rb,0.38591e+04_rb /)
+      kbo(:,31,15) = (/ &
+        & 0.30674e+04_rb,0.32795e+04_rb,0.34848e+04_rb,0.36826e+04_rb,0.38724e+04_rb /)
+      kbo(:,32,15) = (/ &
+        & 0.30683e+04_rb,0.32879e+04_rb,0.34990e+04_rb,0.37022e+04_rb,0.38953e+04_rb /)
+      kbo(:,33,15) = (/ &
+        & 0.30831e+04_rb,0.33087e+04_rb,0.35243e+04_rb,0.37303e+04_rb,0.39250e+04_rb /)
+      kbo(:,34,15) = (/ &
+        & 0.31017e+04_rb,0.33308e+04_rb,0.35496e+04_rb,0.37580e+04_rb,0.39527e+04_rb /)
+      kbo(:,35,15) = (/ &
+        & 0.31057e+04_rb,0.33387e+04_rb,0.35601e+04_rb,0.37700e+04_rb,0.39654e+04_rb /)
+      kbo(:,36,15) = (/ &
+        & 0.30895e+04_rb,0.33260e+04_rb,0.35504e+04_rb,0.37630e+04_rb,0.39606e+04_rb /)
+      kbo(:,37,15) = (/ &
+        & 0.30400e+04_rb,0.32811e+04_rb,0.35096e+04_rb,0.37263e+04_rb,0.39277e+04_rb /)
+      kbo(:,38,15) = (/ &
+        & 0.29913e+04_rb,0.32361e+04_rb,0.34690e+04_rb,0.36890e+04_rb,0.38942e+04_rb /)
+      kbo(:,39,15) = (/ &
+        & 0.29441e+04_rb,0.31926e+04_rb,0.34294e+04_rb,0.36526e+04_rb,0.38612e+04_rb /)
+      kbo(:,40,15) = (/ &
+        & 0.28722e+04_rb,0.31254e+04_rb,0.33667e+04_rb,0.35943e+04_rb,0.38073e+04_rb /)
+      kbo(:,41,15) = (/ &
+        & 0.27971e+04_rb,0.30548e+04_rb,0.33004e+04_rb,0.35326e+04_rb,0.37505e+04_rb /)
+      kbo(:,42,15) = (/ &
+        & 0.27226e+04_rb,0.29837e+04_rb,0.32336e+04_rb,0.34701e+04_rb,0.36925e+04_rb /)
+      kbo(:,43,15) = (/ &
+        & 0.26332e+04_rb,0.28981e+04_rb,0.31525e+04_rb,0.33944e+04_rb,0.36223e+04_rb /)
+      kbo(:,44,15) = (/ &
+        & 0.25372e+04_rb,0.28050e+04_rb,0.30643e+04_rb,0.33114e+04_rb,0.35441e+04_rb /)
+      kbo(:,45,15) = (/ &
+        & 0.24417e+04_rb,0.27113e+04_rb,0.29748e+04_rb,0.32268e+04_rb,0.34651e+04_rb /)
+      kbo(:,46,15) = (/ &
+        & 0.23395e+04_rb,0.26115e+04_rb,0.28783e+04_rb,0.31351e+04_rb,0.33792e+04_rb /)
+      kbo(:,47,15) = (/ &
+        & 0.22243e+04_rb,0.24998e+04_rb,0.27694e+04_rb,0.30313e+04_rb,0.32810e+04_rb /)
+      kbo(:,48,15) = (/ &
+        & 0.21083e+04_rb,0.23877e+04_rb,0.26592e+04_rb,0.29257e+04_rb,0.31803e+04_rb /)
+      kbo(:,49,15) = (/ &
+        & 0.19925e+04_rb,0.22741e+04_rb,0.25488e+04_rb,0.28180e+04_rb,0.30783e+04_rb /)
+      kbo(:,50,15) = (/ &
+        & 0.18841e+04_rb,0.21666e+04_rb,0.24447e+04_rb,0.27159e+04_rb,0.29806e+04_rb /)
+      kbo(:,51,15) = (/ &
+        & 0.17798e+04_rb,0.20618e+04_rb,0.23428e+04_rb,0.26160e+04_rb,0.28839e+04_rb /)
+      kbo(:,52,15) = (/ &
+        & 0.16762e+04_rb,0.19574e+04_rb,0.22398e+04_rb,0.25156e+04_rb,0.27862e+04_rb /)
+      kbo(:,53,15) = (/ &
+        & 0.15731e+04_rb,0.18530e+04_rb,0.21358e+04_rb,0.24152e+04_rb,0.26872e+04_rb /)
+      kbo(:,54,15) = (/ &
+        & 0.14802e+04_rb,0.17581e+04_rb,0.20401e+04_rb,0.23219e+04_rb,0.25956e+04_rb /)
+      kbo(:,55,15) = (/ &
+        & 0.13915e+04_rb,0.16675e+04_rb,0.19488e+04_rb,0.22318e+04_rb,0.25080e+04_rb /)
+      kbo(:,56,15) = (/ &
+        & 0.13039e+04_rb,0.15778e+04_rb,0.18577e+04_rb,0.21406e+04_rb,0.24200e+04_rb /)
+      kbo(:,57,15) = (/ &
+        & 0.12167e+04_rb,0.14890e+04_rb,0.17672e+04_rb,0.20493e+04_rb,0.23313e+04_rb /)
+      kbo(:,58,15) = (/ &
+        & 0.11349e+04_rb,0.14057e+04_rb,0.16818e+04_rb,0.19631e+04_rb,0.22464e+04_rb /)
+      kbo(:,59,15) = (/ &
+        & 0.11025e+04_rb,0.13721e+04_rb,0.16476e+04_rb,0.19283e+04_rb,0.22117e+04_rb /)
+      kbo(:,13,16) = (/ &
+        & 0.12492e+05_rb,0.12602e+05_rb,0.12678e+05_rb,0.12730e+05_rb,0.12749e+05_rb /)
+      kbo(:,14,16) = (/ &
+        & 0.14696e+05_rb,0.14792e+05_rb,0.14862e+05_rb,0.14890e+05_rb,0.14889e+05_rb /)
+      kbo(:,15,16) = (/ &
+        & 0.17153e+05_rb,0.17242e+05_rb,0.17275e+05_rb,0.17274e+05_rb,0.17231e+05_rb /)
+      kbo(:,16,16) = (/ &
+        & 0.19843e+05_rb,0.19894e+05_rb,0.19898e+05_rb,0.19845e+05_rb,0.19747e+05_rb /)
+      kbo(:,17,16) = (/ &
+        & 0.22727e+05_rb,0.22731e+05_rb,0.22667e+05_rb,0.22551e+05_rb,0.22386e+05_rb /)
+      kbo(:,18,16) = (/ &
+        & 0.25761e+05_rb,0.25684e+05_rb,0.25544e+05_rb,0.25342e+05_rb,0.25070e+05_rb /)
+      kbo(:,19,16) = (/ &
+        & 0.28878e+05_rb,0.28701e+05_rb,0.28454e+05_rb,0.28131e+05_rb,0.27759e+05_rb /)
+      kbo(:,20,16) = (/ &
+        & 0.31981e+05_rb,0.31695e+05_rb,0.31314e+05_rb,0.30871e+05_rb,0.30360e+05_rb /)
+      kbo(:,21,16) = (/ &
+        & 0.35017e+05_rb,0.34575e+05_rb,0.34064e+05_rb,0.33480e+05_rb,0.32821e+05_rb /)
+      kbo(:,22,16) = (/ &
+        & 0.37854e+05_rb,0.37264e+05_rb,0.36589e+05_rb,0.35840e+05_rb,0.35046e+05_rb /)
+      kbo(:,23,16) = (/ &
+        & 0.40473e+05_rb,0.39710e+05_rb,0.38862e+05_rb,0.37967e+05_rb,0.37023e+05_rb /)
+      kbo(:,24,16) = (/ &
+        & 0.42796e+05_rb,0.41864e+05_rb,0.40869e+05_rb,0.39817e+05_rb,0.38718e+05_rb /)
+      kbo(:,25,16) = (/ &
+        & 0.44813e+05_rb,0.43719e+05_rb,0.42578e+05_rb,0.41380e+05_rb,0.40143e+05_rb /)
+      kbo(:,26,16) = (/ &
+        & 0.46504e+05_rb,0.45263e+05_rb,0.43973e+05_rb,0.42641e+05_rb,0.41294e+05_rb /)
+      kbo(:,27,16) = (/ &
+        & 0.47893e+05_rb,0.46507e+05_rb,0.45087e+05_rb,0.43647e+05_rb,0.42197e+05_rb /)
+      kbo(:,28,16) = (/ &
+        & 0.48993e+05_rb,0.47480e+05_rb,0.45952e+05_rb,0.44417e+05_rb,0.42878e+05_rb /)
+      kbo(:,29,16) = (/ &
+        & 0.49823e+05_rb,0.48206e+05_rb,0.46588e+05_rb,0.44969e+05_rb,0.43353e+05_rb /)
+      kbo(:,30,16) = (/ &
+        & 0.50415e+05_rb,0.48716e+05_rb,0.47025e+05_rb,0.45339e+05_rb,0.43659e+05_rb /)
+      kbo(:,31,16) = (/ &
+        & 0.50811e+05_rb,0.49042e+05_rb,0.47288e+05_rb,0.45543e+05_rb,0.43813e+05_rb /)
+      kbo(:,32,16) = (/ &
+        & 0.51032e+05_rb,0.49203e+05_rb,0.47400e+05_rb,0.45610e+05_rb,0.43841e+05_rb /)
+      kbo(:,33,16) = (/ &
+        & 0.51107e+05_rb,0.49234e+05_rb,0.47393e+05_rb,0.45565e+05_rb,0.43775e+05_rb /)
+      kbo(:,34,16) = (/ &
+        & 0.51130e+05_rb,0.49228e+05_rb,0.47350e+05_rb,0.45497e+05_rb,0.43688e+05_rb /)
+      kbo(:,35,16) = (/ &
+        & 0.51256e+05_rb,0.49316e+05_rb,0.47413e+05_rb,0.45540e+05_rb,0.43711e+05_rb /)
+      kbo(:,36,16) = (/ &
+        & 0.51519e+05_rb,0.49555e+05_rb,0.47626e+05_rb,0.45731e+05_rb,0.43885e+05_rb /)
+      kbo(:,37,16) = (/ &
+        & 0.52034e+05_rb,0.50041e+05_rb,0.48090e+05_rb,0.46168e+05_rb,0.44302e+05_rb /)
+      kbo(:,38,16) = (/ &
+        & 0.52529e+05_rb,0.50511e+05_rb,0.48535e+05_rb,0.46595e+05_rb,0.44706e+05_rb /)
+      kbo(:,39,16) = (/ &
+        & 0.52985e+05_rb,0.50952e+05_rb,0.48954e+05_rb,0.46996e+05_rb,0.45085e+05_rb /)
+      kbo(:,40,16) = (/ &
+        & 0.53633e+05_rb,0.51575e+05_rb,0.49556e+05_rb,0.47578e+05_rb,0.45648e+05_rb /)
+      kbo(:,41,16) = (/ &
+        & 0.54289e+05_rb,0.52211e+05_rb,0.50171e+05_rb,0.48171e+05_rb,0.46220e+05_rb /)
+      kbo(:,42,16) = (/ &
+        & 0.54932e+05_rb,0.52836e+05_rb,0.50778e+05_rb,0.48759e+05_rb,0.46785e+05_rb /)
+      kbo(:,43,16) = (/ &
+        & 0.55673e+05_rb,0.53569e+05_rb,0.51488e+05_rb,0.49449e+05_rb,0.47456e+05_rb /)
+      kbo(:,44,16) = (/ &
+        & 0.56461e+05_rb,0.54346e+05_rb,0.52247e+05_rb,0.50190e+05_rb,0.48178e+05_rb /)
+      kbo(:,45,16) = (/ &
+        & 0.57241e+05_rb,0.55121e+05_rb,0.53007e+05_rb,0.50929e+05_rb,0.48897e+05_rb /)
+      kbo(:,46,16) = (/ &
+        & 0.58063e+05_rb,0.55933e+05_rb,0.53806e+05_rb,0.51710e+05_rb,0.49656e+05_rb /)
+      kbo(:,47,16) = (/ &
+        & 0.58978e+05_rb,0.56828e+05_rb,0.54697e+05_rb,0.52582e+05_rb,0.50505e+05_rb /)
+      kbo(:,48,16) = (/ &
+        & 0.59891e+05_rb,0.57720e+05_rb,0.55586e+05_rb,0.53459e+05_rb,0.51367e+05_rb /)
+      kbo(:,49,16) = (/ &
+        & 0.60795e+05_rb,0.58621e+05_rb,0.56472e+05_rb,0.54336e+05_rb,0.52224e+05_rb /)
+      kbo(:,50,16) = (/ &
+        & 0.61639e+05_rb,0.59466e+05_rb,0.57298e+05_rb,0.55162e+05_rb,0.53034e+05_rb /)
+      kbo(:,51,16) = (/ &
+        & 0.62447e+05_rb,0.60284e+05_rb,0.58110e+05_rb,0.55961e+05_rb,0.53824e+05_rb /)
+      kbo(:,52,16) = (/ &
+        & 0.63240e+05_rb,0.61098e+05_rb,0.58916e+05_rb,0.56760e+05_rb,0.54612e+05_rb /)
+      kbo(:,53,16) = (/ &
+        & 0.64030e+05_rb,0.61903e+05_rb,0.59727e+05_rb,0.57558e+05_rb,0.55411e+05_rb /)
+      kbo(:,54,16) = (/ &
+        & 0.64735e+05_rb,0.62637e+05_rb,0.60471e+05_rb,0.58287e+05_rb,0.56138e+05_rb /)
+      kbo(:,55,16) = (/ &
+        & 0.65407e+05_rb,0.63332e+05_rb,0.61181e+05_rb,0.59003e+05_rb,0.56834e+05_rb /)
+      kbo(:,56,16) = (/ &
+        & 0.66069e+05_rb,0.64015e+05_rb,0.61881e+05_rb,0.59702e+05_rb,0.57529e+05_rb /)
+      kbo(:,57,16) = (/ &
+        & 0.66725e+05_rb,0.64683e+05_rb,0.62576e+05_rb,0.60411e+05_rb,0.58225e+05_rb /)
+      kbo(:,58,16) = (/ &
+        & 0.67327e+05_rb,0.65315e+05_rb,0.63232e+05_rb,0.61078e+05_rb,0.58891e+05_rb /)
+      kbo(:,59,16) = (/ &
+        & 0.67577e+05_rb,0.65572e+05_rb,0.63496e+05_rb,0.61349e+05_rb,0.59161e+05_rb /)
+
+!     -----------------------------------------------------------------
+
+      forrefo(:, 1) = (/ 0.299818e-05_rb, 0.209282e-05_rb, 0.988353e-04_rb, 0.632178e-03_rb /)
+      forrefo(:, 2) = (/ 0.633648e-05_rb, 0.509214e-04_rb, 0.650535e-03_rb, 0.264019e-02_rb /)
+      forrefo(:, 3) = (/ 0.636782e-04_rb, 0.136577e-03_rb, 0.166500e-02_rb, 0.750821e-02_rb /)
+      forrefo(:, 4) = (/ 0.472314e-03_rb, 0.988296e-03_rb, 0.585751e-02_rb, 0.187352e-01_rb /)
+      forrefo(:, 5) = (/ 0.558635e-02_rb, 0.856489e-02_rb, 0.157438e-01_rb, 0.181471e-01_rb /)
+      forrefo(:, 6) = (/ 0.217395e-01_rb, 0.229156e-01_rb, 0.230125e-01_rb, 0.143821e-01_rb /)
+      forrefo(:, 7) = (/ 0.277222e-01_rb, 0.299252e-01_rb, 0.208929e-01_rb, 0.826748e-02_rb /)
+      forrefo(:, 8) = (/ 0.252119e-01_rb, 0.262911e-01_rb, 0.187663e-01_rb, 0.417110e-02_rb /)
+      forrefo(:, 9) = (/ 0.304941e-01_rb, 0.175545e-01_rb, 0.971224e-02_rb, 0.142023e-02_rb /)
+      forrefo(:,10) = (/ 0.327200e-01_rb, 0.215788e-01_rb, 0.346831e-02_rb, 0.157989e-02_rb /)
+      forrefo(:,11) = (/ 0.324955e-01_rb, 0.228571e-01_rb, 0.171749e-02_rb, 0.226853e-02_rb /)
+      forrefo(:,12) = (/ 0.326588e-01_rb, 0.198544e-01_rb, 0.532339e-06_rb, 0.279086e-02_rb /)
+      forrefo(:,13) = (/ 0.345157e-01_rb, 0.168679e-01_rb, 0.505361e-06_rb, 0.276647e-02_rb /)
+      forrefo(:,14) = (/ 0.448765e-01_rb, 0.123791e-02_rb, 0.488367e-06_rb, 0.122245e-02_rb /)
+      forrefo(:,15) = (/ 0.486925e-01_rb, 0.464371e-06_rb, 0.464241e-06_rb, 0.753846e-06_rb /)
+      forrefo(:,16) = (/ 0.530511e-01_rb, 0.376234e-06_rb, 0.409824e-06_rb, 0.470650e-06_rb /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+      selfrefo(:, 1) = (/ &
+        &  0.118069e+00_rb, 0.713523e-01_rb, 0.431199e-01_rb, 0.260584e-01_rb, 0.157477e-01_rb, &
+        &  0.951675e-02_rb, 0.575121e-02_rb, 0.347560e-02_rb, 0.210039e-02_rb, 0.126932e-02_rb /)
+      selfrefo(:, 2) = (/ &
+        &  0.137081e-01_rb, 0.139046e-01_rb, 0.141040e-01_rb, 0.143061e-01_rb, 0.145112e-01_rb, &
+        &  0.147193e-01_rb, 0.149303e-01_rb, 0.151443e-01_rb, 0.153614e-01_rb, 0.155816e-01_rb /)
+      selfrefo(:, 3) = (/ &
+        &  0.166575e-01_rb, 0.164916e-01_rb, 0.163273e-01_rb, 0.161647e-01_rb, 0.160037e-01_rb, &
+        &  0.158443e-01_rb, 0.156864e-01_rb, 0.155302e-01_rb, 0.153755e-01_rb, 0.152224e-01_rb /)
+      selfrefo(:, 4) = (/ &
+        &  0.597379e-01_rb, 0.509517e-01_rb, 0.434579e-01_rb, 0.370662e-01_rb, 0.316145e-01_rb, &
+        &  0.269647e-01_rb, 0.229988e-01_rb, 0.196162e-01_rb, 0.167311e-01_rb, 0.142703e-01_rb /)
+      selfrefo(:, 5) = (/ &
+        &  0.227517e+00_rb, 0.198401e+00_rb, 0.173011e+00_rb, 0.150870e+00_rb, 0.131563e+00_rb, &
+        &  0.114726e+00_rb, 0.100044e+00_rb, 0.872415e-01_rb, 0.760769e-01_rb, 0.663411e-01_rb /)
+      selfrefo(:, 6) = (/ &
+        &  0.453235e+00_rb, 0.414848e+00_rb, 0.379712e+00_rb, 0.347552e+00_rb, 0.318116e+00_rb, &
+        &  0.291173e+00_rb, 0.266512e+00_rb, 0.243940e+00_rb, 0.223279e+00_rb, 0.204368e+00_rb /)
+      selfrefo(:, 7) = (/ &
+        &  0.569263e+00_rb, 0.516415e+00_rb, 0.468473e+00_rb, 0.424982e+00_rb, 0.385528e+00_rb, &
+        &  0.349737e+00_rb, 0.317269e+00_rb, 0.287815e+00_rb, 0.261095e+00_rb, 0.236856e+00_rb /)
+      selfrefo(:, 8) = (/ &
+        &  0.490314e+00_rb, 0.448042e+00_rb, 0.409413e+00_rb, 0.374116e+00_rb, 0.341861e+00_rb, &
+        &  0.312387e+00_rb, 0.285455e+00_rb, 0.260844e+00_rb, 0.238355e+00_rb, 0.217805e+00_rb /)
+      selfrefo(:, 9) = (/ &
+        &  0.258162e+00_rb, 0.265085e+00_rb, 0.272193e+00_rb, 0.279493e+00_rb, 0.286988e+00_rb, &
+        &  0.294684e+00_rb, 0.302586e+00_rb, 0.310701e+00_rb, 0.319033e+00_rb, 0.327588e+00_rb /)
+      selfrefo(:,10) = (/ &
+        &  0.332019e+00_rb, 0.331902e+00_rb, 0.331784e+00_rb, 0.331666e+00_rb, 0.331549e+00_rb, &
+        &  0.331431e+00_rb, 0.331314e+00_rb, 0.331197e+00_rb, 0.331079e+00_rb, 0.330962e+00_rb /)
+      selfrefo(:,11) = (/ &
+        &  0.357523e+00_rb, 0.353154e+00_rb, 0.348839e+00_rb, 0.344576e+00_rb, 0.340366e+00_rb, &
+        &  0.336207e+00_rb, 0.332099e+00_rb, 0.328041e+00_rb, 0.324032e+00_rb, 0.320073e+00_rb /)
+      selfrefo(:,12) = (/ &
+        &  0.294662e+00_rb, 0.299043e+00_rb, 0.303488e+00_rb, 0.308000e+00_rb, 0.312579e+00_rb, &
+        &  0.317226e+00_rb, 0.321941e+00_rb, 0.326727e+00_rb, 0.331585e+00_rb, 0.336514e+00_rb /)
+      selfrefo(:,13) = (/ &
+        &  0.227445e+00_rb, 0.241545e+00_rb, 0.256519e+00_rb, 0.272422e+00_rb, 0.289311e+00_rb, &
+        &  0.307247e+00_rb, 0.326294e+00_rb, 0.346523e+00_rb, 0.368005e+00_rb, 0.390820e+00_rb /)
+      selfrefo(:,14) = (/ &
+        &  0.616203e-02_rb, 0.113523e-01_rb, 0.209144e-01_rb, 0.385307e-01_rb, 0.709852e-01_rb, &
+        &  0.130776e+00_rb, 0.240929e+00_rb, 0.443865e+00_rb, 0.817733e+00_rb, 0.150651e+01_rb /)
+      selfrefo(:,15) = (/ &
+        &  0.279552e-03_rb, 0.808472e-03_rb, 0.233812e-02_rb, 0.676192e-02_rb, 0.195557e-01_rb, &
+        &  0.565555e-01_rb, 0.163560e+00_rb, 0.473020e+00_rb, 0.136799e+01_rb, 0.395626e+01_rb /)
+      selfrefo(:,16) = (/ &
+        &  0.261006e-03_rb, 0.771043e-03_rb, 0.227776e-02_rb, 0.672879e-02_rb, 0.198777e-01_rb, &
+        &  0.587212e-01_rb, 0.173470e+00_rb, 0.512452e+00_rb, 0.151385e+01_rb, 0.447209e+01_rb /)
+     
+      end subroutine sw_kgb29
+
diff --git a/radiation/src/rrtmg_sw_rad.f90 b/radiation/src/rrtmg_sw_rad.f90
new file mode 100644
index 0000000000000000000000000000000000000000..b128af79c7d456824ddfe0048e2f5bef393bd51a
--- /dev/null
+++ b/radiation/src/rrtmg_sw_rad.f90
@@ -0,0 +1,1644 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+       module rrtmg_sw_rad
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+!
+! ****************************************************************************
+! *                                                                          *
+! *                             RRTMG_SW                                     *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                 a rapid radiative transfer model                         *
+! *                  for the solar spectral region                           *
+! *           for application to general circulation models                  *
+! *                                                                          *
+! *                                                                          *
+! *           Atmospheric and Environmental Research, Inc.                   *
+! *                       131 Hartwell Avenue                                *
+! *                       Lexington, MA 02421                                *
+! *                                                                          *
+! *                                                                          *
+! *                          Eli J. Mlawer                                   *
+! *                       Jennifer S. Delamere                               *
+! *                        Michael J. Iacono                                 *
+! *                        Shepard A. Clough                                 *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                      email:  miacono@aer.com                             *
+! *                      email:  emlawer@aer.com                             *
+! *                      email:  jdelamer@aer.com                            *
+! *                                                                          *
+! *       The authors wish to acknowledge the contributions of the           *
+! *       following people:  Steven J. Taubman, Patrick D. Brown,            *
+! *       Ronald E. Farren, Luke Chen, Robert Bergstrom.                     *
+! *                                                                          *
+! ****************************************************************************
+
+! --------- Modules ---------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use rrsw_vsn
+      use mcica_subcol_gen_sw, only: mcica_subcol_sw
+      use rrtmg_sw_cldprmc, only: cldprmc_sw
+! *** Move the required call to rrtmg_sw_ini below and the following 
+! use association to GCM initialization area ***
+!      use rrtmg_sw_init, only: rrtmg_sw_ini
+      use rrtmg_sw_setcoef, only: setcoef_sw
+      use rrtmg_sw_spcvmc, only: spcvmc_sw
+
+      implicit none
+
+! public interfaces/functions/subroutines
+      public :: rrtmg_sw, inatm_sw, earth_sun
+
+!------------------------------------------------------------------
+      contains
+!------------------------------------------------------------------
+
+!------------------------------------------------------------------
+! Public subroutines
+!------------------------------------------------------------------
+
+      subroutine rrtmg_sw &
+            (ncol    ,nlay    ,icld    ,iaer    , &
+             play    ,plev    ,tlay    ,tlev    ,tsfc   , &
+             h2ovmr , o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr ,o2vmr , &
+             asdir   ,asdif   ,aldir   ,aldif   , &
+             coszen  ,adjes   ,dyofyr  ,scon    ,isolvar, &
+             inflgsw ,iceflgsw,liqflgsw,cldfmcl , &
+             taucmcl ,ssacmcl ,asmcmcl ,fsfcmcl , &
+             ciwpmcl ,clwpmcl ,reicmcl ,relqmcl , &
+             tauaer  ,ssaaer  ,asmaer  ,ecaer   , &
+             swuflx  ,swdflx  ,swhr    ,swuflxc ,swdflxc ,swhrc, &
+! optional I/O
+             bndsolvar,indsolvar,solcycfrac)
+
+! ------- Description -------
+
+! This program is the driver for RRTMG_SW, the AER SW radiation model for 
+!  application to GCMs, that has been adapted from RRTM_SW for improved
+!  efficiency and to provide fractional cloudiness and cloud overlap
+!  capability using McICA.
+!
+! Note: The call to RRTMG_SW_INI should be moved to the GCM initialization 
+!  area, since this has to be called only once. 
+!
+! This routine
+!    b) calls INATM_SW to read in the atmospheric profile;
+!       all layering in RRTMG is ordered from surface to toa. 
+!    c) calls CLDPRMC_SW to set cloud optical depth for McICA based
+!       on input cloud properties
+!    d) calls SETCOEF_SW to calculate various quantities needed for 
+!       the radiative transfer algorithm
+!    e) calls SPCVMC to call the two-stream model that in turn 
+!       calls TAUMOL to calculate gaseous optical depths for each 
+!       of the 16 spectral bands and to perform the radiative transfer
+!       using McICA, the Monte-Carlo Independent Column Approximation,
+!       to represent sub-grid scale cloud variability
+!    f) passes the calculated fluxes and cooling rates back to GCM
+!
+! Two modes of operation are possible:
+!     The mode is chosen by using either rrtmg_sw.nomcica.f90 (to not use
+!     McICA) or rrtmg_sw.f90 (to use McICA) to interface with a GCM.
+!
+!    1) Standard, single forward model calculation (imca = 0); this is 
+!       valid only for clear sky or fully overcast clouds
+!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., 
+!       JC, 2003) method is applied to the forward model calculation (imca = 1)
+!       This method is valid for clear sky or partial cloud conditions.
+!
+! This call to RRTMG_SW must be preceeded by a call to the module
+!     mcica_subcol_gen_sw.f90 to run the McICA sub-column cloud generator,
+!     which will provide the cloud physical or cloud optical properties
+!     on the RRTMG quadrature point (ngptsw) dimension.
+!
+! Two methods of cloud property input are possible:
+!     Cloud properties can be input in one of two ways (controlled by input 
+!     flags inflag, iceflag and liqflag; see text file rrtmg_sw_instructions
+!     and subroutine rrtmg_sw_cldprmc.f90 for further details):
+!
+!    1) Input cloud fraction, cloud optical depth, single scattering albedo 
+!       and asymmetry parameter directly (inflgsw = 0)
+!    2) Input cloud fraction and cloud physical properties: ice fracion,
+!       ice and liquid particle sizes (inflgsw = 1 or 2);  
+!       cloud optical properties are calculated by cldprmc based
+!       on input settings of iceflgsw and liqflgsw
+!
+! Two methods of aerosol property input are possible:
+!     Aerosol properties can be input in one of two ways (controlled by input 
+!     flag iaer, see text file rrtmg_sw_instructions for further details):
+!
+!    1) Input aerosol optical depth, single scattering albedo and asymmetry
+!       parameter directly by layer and spectral band (iaer=10)
+!    2) Input aerosol optical depth and 0.55 micron directly by layer and use
+!       one or more of six ECMWF aerosol types (iaer=6)
+!
+!
+! ------- Modifications -------
+!
+! This version of RRTMG_SW has been modified from RRTM_SW to use a reduced
+! set of g-point intervals and a two-stream model for application to GCMs. 
+!
+!-- Original version (derived from RRTM_SW)
+!     2002: AER. Inc.
+!-- Conversion to F90 formatting; addition of 2-stream radiative transfer
+!     Feb 2003: J.-J. Morcrette, ECMWF
+!-- Additional modifications for GCM application
+!     Aug 2003: M. J. Iacono, AER Inc.
+!-- Total number of g-points reduced from 224 to 112.  Original
+!   set of 224 can be restored by exchanging code in module parrrsw.f90 
+!   and in file rrtmg_sw_init.f90.
+!     Apr 2004: M. J. Iacono, AER, Inc.
+!-- Modifications to include output for direct and diffuse 
+!   downward fluxes.  There are output as "true" fluxes without
+!   any delta scaling applied.  Code can be commented to exclude
+!   this calculation in source file rrtmg_sw_spcvrt.f90.
+!     Jan 2005: E. J. Mlawer, M. J. Iacono, AER, Inc.
+!-- Revised to add McICA capability.
+!     Nov 2005: M. J. Iacono, AER, Inc.
+!-- Reformatted for consistency with rrtmg_lw.
+!     Feb 2007: M. J. Iacono, AER, Inc.
+!-- Modifications to formatting to use assumed-shape arrays. 
+!     Aug 2007: M. J. Iacono, AER, Inc.
+!-- Modified to output direct and diffuse fluxes either with or without
+!   delta scaling based on setting of idelm flag. 
+!     Dec 2008: M. J. Iacono, AER, Inc.
+!-- Revised to add new solar variability options based on the
+!   NRLSSI2 solar model
+!     Dec 2016: M. J. Iacono, AER
+
+! --------- Modules ---------
+
+      use parrrsw, only : nbndsw, ngptsw, naerec, nstr, nmol, mxmol, &
+                          jpband, jpb1, jpb2
+      use rrsw_aer, only : rsrtaua, rsrpiza, rsrasya
+      use rrsw_con, only : heatfac, oneminus, pi
+      use rrsw_wvn, only : wavenum1, wavenum2
+
+! ------- Declarations
+
+! ----- Input -----
+! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained
+! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) 
+      integer(kind=im), intent(in) :: ncol            ! Number of horizontal columns     
+      integer(kind=im), intent(in) :: nlay            ! Number of model layers
+      integer(kind=im), intent(inout) :: icld         ! Cloud overlap method
+                                                      !    0: Clear only
+                                                      !    1: Random
+                                                      !    2: Maximum/random
+                                                      !    3: Maximum
+      integer(kind=im), intent(inout) :: iaer         ! Aerosol option flag
+                                                      !    0: No aerosol
+                                                      !    6: ECMWF method
+                                                      !    10:Input aerosol optical 
+                                                      !       properties
+
+      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: asdir(:)           ! UV/vis surface albedo direct rad
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: aldir(:)           ! Near-IR surface albedo direct rad
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: asdif(:)           ! UV/vis surface albedo: diffuse rad
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: aldif(:)           ! Near-IR surface albedo: diffuse rad
+                                                      !    Dimensions: (ncol)
+
+      integer(kind=im), intent(in) :: dyofyr          ! Day of the year (used to get Earth/Sun
+                                                      !  distance if adjflx not provided)
+      real(kind=rb), intent(in) :: adjes              ! Flux adjustment for Earth/Sun distance
+      real(kind=rb), intent(in) :: coszen(:)          ! Cosine of solar zenith angle
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: scon               ! Solar constant (W/m2)
+                                                      !    Total solar irradiance averaged 
+                                                      !    over the solar cycle.
+                                                      !    If scon = 0.0, the internal solar 
+                                                      !    constant, which depends on the  
+                                                      !    value of isolvar, will be used. 
+                                                      !    For isolvar=-1, scon=1368.22 Wm-2,
+                                                      !    For isolvar=0,1,3, scon=1360.85 Wm-2,
+                                                      !    If scon > 0.0, the internal solar
+                                                      !    constant will be scaled to the 
+                                                      !    provided value of scon.
+      integer(kind=im), intent(in) :: isolvar         ! Flag for solar variability method
+                                                      !   -1 = (when scon .eq. 0.0): No solar variability
+                                                      !        and no solar cycle (Kurucz solar irradiance
+                                                      !        of 1368.22 Wm-2 only);
+                                                      !        (when scon .ne. 0.0): Kurucz solar irradiance
+                                                      !        scaled to scon and solar variability defined
+                                                      !        (optional) by setting non-zero scale factors
+                                                      !        for each band in bndsolvar
+                                                      !    0 = (when SCON .eq. 0.0): No solar variability 
+                                                      !        and no solar cycle (NRLSSI2 solar constant of 
+                                                      !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                                      !        range only), with facular and sunspot effects 
+                                                      !        fixed to the mean of Solar Cycles 13-24;
+                                                      !        (when SCON .ne. 0.0): No solar variability 
+                                                      !        and no solar cycle (NRLSSI2 solar constant of 
+                                                      !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                                      !        range only), is scaled to SCON
+                                                      !    1 = Solar variability (using NRLSSI2  solar
+                                                      !        model) with solar cycle contribution
+                                                      !        determined by fraction of solar cycle
+                                                      !        with facular and sunspot variations
+                                                      !        fixed to their mean variations over the
+                                                      !        average of Solar Cycles 13-24;
+                                                      !        two amplitude scale factors allow
+                                                      !        facular and sunspot adjustments from
+                                                      !        mean solar cycle as defined by indsolvar 
+                                                      !    2 = Solar variability (using NRLSSI2 solar
+                                                      !        model) over solar cycle determined by 
+                                                      !        direct specification of Mg (facular)
+                                                      !        and SB (sunspot) indices provided
+                                                      !        in indsolvar (scon = 0.0 only)
+                                                      !    3 = (when scon .eq. 0.0): No solar variability
+                                                      !        and no solar cycle (NRLSSI2 solar irradiance
+                                                      !        of 1360.85 Wm-2 only);
+                                                      !        (when scon .ne. 0.0): NRLSSI2 solar irradiance
+                                                      !        scaled to scon and solar variability defined
+                                                      !        (optional) by setting non-zero scale factors
+                                                      !        for each band in bndsolvar
+      real(kind=rb), intent(in), optional :: indsolvar(:) ! Facular and sunspot amplitude 
+                                                          ! scale factors (isolvar=1), or
+                                                          ! Mg and SB indices (isolvar=2)
+                                                          !    Dimensions: (2)
+      real(kind=rb), intent(in), optional :: bndsolvar(:) ! Solar variability scale factors 
+                                                          ! for each shortwave band
+                                                          !    Dimensions: (nbndsw=14)
+      real(kind=rb), intent(in), optional :: solcycfrac   ! Fraction of averaged 11-year solar cycle (0-1)
+                                                          !    at current time (isolvar=1)
+                                                          !    0.0 represents the first day of year 1
+                                                          !    1.0 represents the last day of year 11
+
+      integer(kind=im), intent(in) :: inflgsw         ! Flag for cloud optical properties
+      integer(kind=im), intent(in) :: iceflgsw        ! Flag for ice particle specification
+      integer(kind=im), intent(in) :: liqflgsw        ! Flag for liquid droplet specification
+
+      real(kind=rb), intent(in) :: cldfmcl(:,:,:)     ! Cloud fraction
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: taucmcl(:,:,:)     ! In-cloud optical depth
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: ssacmcl(:,:,:)     ! In-cloud single scattering albedo
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: asmcmcl(:,:,:)     ! In-cloud asymmetry parameter
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: fsfcmcl(:,:,:)     ! In-cloud forward scattering fraction
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: ciwpmcl(:,:,:)     ! In-cloud ice water path (g/m2)
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: clwpmcl(:,:,:)     ! In-cloud liquid water path (g/m2)
+                                                      !    Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: reicmcl(:,:)       ! Cloud ice effective radius (microns)
+                                                      !    Dimensions: (ncol,nlay)
+                                                      ! specific definition of reicmcl depends on setting of iceflgsw:
+                                                      ! iceflgsw = 0: (inactive)
+                                                      ! 
+                                                      ! iceflgsw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !               r_ec range is limited to 13.0 to 130.0 microns
+                                                      ! iceflgsw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+                                                      !               r_k range is limited to 5.0 to 131.0 microns
+                                                      ! iceflgsw = 3: generalized effective size, dge, (Fu, 1996),
+                                                      !               dge range is limited to 5.0 to 140.0 microns
+                                                      !               [dge = 1.0315 * r_ec]
+      real(kind=rb), intent(in) :: relqmcl(:,:)       ! Cloud water drop effective radius (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth (iaer=10 only)
+                                                      !    Dimensions: (ncol,nlay,nbndsw)
+                                                      ! (non-delta scaled)      
+      real(kind=rb), intent(in) :: ssaaer(:,:,:)      ! Aerosol single scattering albedo (iaer=10 only)
+                                                      !    Dimensions: (ncol,nlay,nbndsw)
+                                                      ! (non-delta scaled)      
+      real(kind=rb), intent(in) :: asmaer(:,:,:)      ! Aerosol asymmetry parameter (iaer=10 only)
+                                                      !    Dimensions: (ncol,nlay,nbndsw)
+                                                      ! (non-delta scaled)      
+      real(kind=rb), intent(in) :: ecaer(:,:,:)       ! Aerosol optical depth at 0.55 micron (iaer=6 only)
+                                                      !    Dimensions: (ncol,nlay,naerec)
+                                                      ! (non-delta scaled)      
+
+! ----- Output -----
+
+      real(kind=rb), intent(out) :: swuflx(:,:)       ! Total sky shortwave upward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: swdflx(:,:)       ! Total sky shortwave downward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: swhr(:,:)         ! Total sky shortwave radiative heating rate (K/d)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(out) :: swuflxc(:,:)      ! Clear sky shortwave upward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: swdflxc(:,:)      ! Clear sky shortwave downward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: swhrc(:,:)        ! Clear sky shortwave radiative heating rate (K/d)
+                                                      !    Dimensions: (ncol,nlay)
+
+! ----- Local -----
+
+! Control
+      integer(kind=im) :: nlayers             ! total number of layers
+      integer(kind=im) :: istart              ! beginning band of calculation
+      integer(kind=im) :: iend                ! ending band of calculation
+      integer(kind=im) :: icpr                ! cldprop/cldprmc use flag
+      integer(kind=im) :: iout                ! output option flag
+      integer(kind=im) :: idelm               ! delta-m scaling flag
+                                              ! [0 = direct and diffuse fluxes are unscaled]
+                                              ! [1 = direct and diffuse fluxes are scaled]
+                                              ! (total downward fluxes are always delta scaled)
+      integer(kind=im) :: isccos              ! instrumental cosine response flag (inactive)
+      integer(kind=im) :: iplon               ! column loop index
+      integer(kind=im) :: i                   ! layer loop index                       ! jk
+      integer(kind=im) :: ib                  ! band loop index                        ! jsw
+      integer(kind=im) :: ia, ig              ! indices
+      integer(kind=im) :: k                   ! layer loop index
+      integer(kind=im) :: ims                 ! value for changing mcica permute seed
+      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]
+
+      real(kind=rb) :: zepsec, zepzen         ! epsilon
+      real(kind=rb) :: zdpgcp                 ! flux to heating conversion ratio
+
+! Atmosphere
+      real(kind=rb) :: pavel(nlay+1)          ! layer pressures (mb) 
+      real(kind=rb) :: tavel(nlay+1)          ! layer temperatures (K)
+      real(kind=rb) :: pz(0:nlay+1)           ! level (interface) pressures (hPa, mb)
+      real(kind=rb) :: tz(0:nlay+1)           ! level (interface) temperatures (K)
+      real(kind=rb) :: tbound                 ! surface temperature (K)
+      real(kind=rb) :: pdp(nlay+1)            ! layer pressure thickness (hPa, mb)
+      real(kind=rb) :: coldry(nlay+1)         ! dry air column amount
+      real(kind=rb) :: wkl(mxmol,nlay+1)      ! molecular amounts (mol/cm-2)
+
+!      real(kind=rb) :: earth_sun             ! function for Earth/Sun distance factor
+      real(kind=rb) :: cossza                 ! Cosine of solar zenith angle
+      real(kind=rb) :: adjflux(jpband)        ! adjustment for current Earth/Sun distance
+      real(kind=rb) :: albdir(nbndsw)         ! surface albedo, direct          ! zalbp
+      real(kind=rb) :: albdif(nbndsw)         ! surface albedo, diffuse         ! zalbd
+
+      real(kind=rb) :: taua(nlay+1,nbndsw)    ! Aerosol optical depth
+      real(kind=rb) :: ssaa(nlay+1,nbndsw)    ! Aerosol single scattering albedo
+      real(kind=rb) :: asma(nlay+1,nbndsw)    ! Aerosol asymmetry parameter
+
+! Atmosphere - setcoef
+      integer(kind=im) :: laytrop             ! tropopause layer index
+      integer(kind=im) :: layswtch            ! tropopause layer index
+      integer(kind=im) :: laylow              ! tropopause layer index
+      integer(kind=im) :: jp(nlay+1)          ! 
+      integer(kind=im) :: jt(nlay+1)          !
+      integer(kind=im) :: jt1(nlay+1)         !
+
+      real(kind=rb) :: colh2o(nlay+1)         ! column amount (h2o)
+      real(kind=rb) :: colco2(nlay+1)         ! column amount (co2)
+      real(kind=rb) :: colo3(nlay+1)          ! column amount (o3)
+      real(kind=rb) :: coln2o(nlay+1)         ! column amount (n2o)
+      real(kind=rb) :: colch4(nlay+1)         ! column amount (ch4)
+      real(kind=rb) :: colo2(nlay+1)          ! column amount (o2)
+      real(kind=rb) :: colmol(nlay+1)         ! column amount
+      real(kind=rb) :: co2mult(nlay+1)        ! column amount 
+
+      integer(kind=im) :: indself(nlay+1)
+      integer(kind=im) :: indfor(nlay+1)
+      real(kind=rb) :: selffac(nlay+1)
+      real(kind=rb) :: selffrac(nlay+1)
+      real(kind=rb) :: forfac(nlay+1)
+      real(kind=rb) :: forfrac(nlay+1)
+
+      real(kind=rb) :: &                      !
+                         fac00(nlay+1), fac01(nlay+1), &
+                         fac10(nlay+1), fac11(nlay+1) 
+
+! Atmosphere/clouds - cldprop
+      integer(kind=im) :: ncbands             ! number of cloud spectral bands
+      integer(kind=im) :: inflag              ! flag for cloud property method
+      integer(kind=im) :: iceflag             ! flag for ice cloud properties
+      integer(kind=im) :: liqflag             ! flag for liquid cloud properties
+
+!      real(kind=rb) :: cldfrac(nlay+1)        ! layer cloud fraction
+!      real(kind=rb) :: tauc(nlay+1)           ! in-cloud optical depth (non-delta scaled)
+!      real(kind=rb) :: ssac(nlay+1)           ! in-cloud single scattering albedo (non-delta scaled)
+!      real(kind=rb) :: asmc(nlay+1)           ! in-cloud asymmetry parameter (non-delta scaled)
+!      real(kind=rb) :: fsfc(nlay+1)           ! in-cloud forward scattering fraction (non-delta scaled)
+!      real(kind=rb) :: ciwp(nlay+1)           ! in-cloud ice water path
+!      real(kind=rb) :: clwp(nlay+1)           ! in-cloud liquid water path
+!      real(kind=rb) :: rei(nlay+1)            ! cloud ice particle size
+!      real(kind=rb) :: rel(nlay+1)            ! cloud liquid particle size
+
+!      real(kind=rb) :: taucloud(nlay+1,jpband)  ! in-cloud optical depth
+!      real(kind=rb) :: taucldorig(nlay+1,jpband)! in-cloud optical depth (non-delta scaled)
+!      real(kind=rb) :: ssacloud(nlay+1,jpband)  ! in-cloud single scattering albedo
+!      real(kind=rb) :: asmcloud(nlay+1,jpband)  ! in-cloud asymmetry parameter
+
+! Atmosphere/clouds - cldprmc [mcica]
+      real(kind=rb) :: cldfmc(ngptsw,nlay+1)    ! cloud fraction [mcica]
+      real(kind=rb) :: ciwpmc(ngptsw,nlay+1)    ! in-cloud ice water path [mcica]
+      real(kind=rb) :: clwpmc(ngptsw,nlay+1)    ! in-cloud liquid water path [mcica]
+      real(kind=rb) :: relqmc(nlay+1)           ! liquid particle effective radius (microns)
+      real(kind=rb) :: reicmc(nlay+1)           ! ice particle effective size (microns)
+      real(kind=rb) :: taucmc(ngptsw,nlay+1)    ! in-cloud optical depth [mcica]
+      real(kind=rb) :: taormc(ngptsw,nlay+1)    ! unscaled in-cloud optical depth [mcica]
+      real(kind=rb) :: ssacmc(ngptsw,nlay+1)    ! in-cloud single scattering albedo [mcica]
+      real(kind=rb) :: asmcmc(ngptsw,nlay+1)    ! in-cloud asymmetry parameter [mcica]
+      real(kind=rb) :: fsfcmc(ngptsw,nlay+1)    ! in-cloud forward scattering fraction [mcica]
+
+! Atmosphere/clouds/aerosol - spcvrt,spcvmc
+      real(kind=rb) :: ztauc(nlay+1,nbndsw)     ! cloud optical depth
+      real(kind=rb) :: ztaucorig(nlay+1,nbndsw) ! unscaled cloud optical depth
+      real(kind=rb) :: zasyc(nlay+1,nbndsw)     ! cloud asymmetry parameter 
+                                                !  (first moment of phase function)
+      real(kind=rb) :: zomgc(nlay+1,nbndsw)     ! cloud single scattering albedo
+      real(kind=rb) :: ztaua(nlay+1,nbndsw)     ! total aerosol optical depth
+      real(kind=rb) :: zasya(nlay+1,nbndsw)     ! total aerosol asymmetry parameter 
+      real(kind=rb) :: zomga(nlay+1,nbndsw)     ! total aerosol single scattering albedo
+
+      real(kind=rb) :: zcldfmc(nlay+1,ngptsw)   ! cloud fraction [mcica]
+      real(kind=rb) :: ztaucmc(nlay+1,ngptsw)   ! cloud optical depth [mcica]
+      real(kind=rb) :: ztaormc(nlay+1,ngptsw)   ! unscaled cloud optical depth [mcica]
+      real(kind=rb) :: zasycmc(nlay+1,ngptsw)   ! cloud asymmetry parameter [mcica] 
+      real(kind=rb) :: zomgcmc(nlay+1,ngptsw)   ! cloud single scattering albedo [mcica]
+
+      real(kind=rb) :: zbbfu(nlay+2)          ! temporary upward shortwave flux (w/m2)
+      real(kind=rb) :: zbbfd(nlay+2)          ! temporary downward shortwave flux (w/m2)
+      real(kind=rb) :: zbbcu(nlay+2)          ! temporary clear sky upward shortwave flux (w/m2)
+      real(kind=rb) :: zbbcd(nlay+2)          ! temporary clear sky downward shortwave flux (w/m2)
+      real(kind=rb) :: zbbfddir(nlay+2)       ! temporary downward direct shortwave flux (w/m2)
+      real(kind=rb) :: zbbcddir(nlay+2)       ! temporary clear sky downward direct shortwave flux (w/m2)
+      real(kind=rb) :: zuvfd(nlay+2)          ! temporary UV downward shortwave flux (w/m2)
+      real(kind=rb) :: zuvcd(nlay+2)          ! temporary clear sky UV downward shortwave flux (w/m2)
+      real(kind=rb) :: zuvfddir(nlay+2)       ! temporary UV downward direct shortwave flux (w/m2)
+      real(kind=rb) :: zuvcddir(nlay+2)       ! temporary clear sky UV downward direct shortwave flux (w/m2)
+      real(kind=rb) :: znifd(nlay+2)          ! temporary near-IR downward shortwave flux (w/m2)
+      real(kind=rb) :: znicd(nlay+2)          ! temporary clear sky near-IR downward shortwave flux (w/m2)
+      real(kind=rb) :: znifddir(nlay+2)       ! temporary near-IR downward direct shortwave flux (w/m2)
+      real(kind=rb) :: znicddir(nlay+2)       ! temporary clear sky near-IR downward direct shortwave flux (w/m2)
+
+! Optional output fields 
+      real(kind=rb) :: swnflx(nlay+2)         ! Total sky shortwave net flux (W/m2)
+      real(kind=rb) :: swnflxc(nlay+2)        ! Clear sky shortwave net flux (W/m2)
+      real(kind=rb) :: dirdflux(nlay+2)       ! Direct downward shortwave surface flux
+      real(kind=rb) :: difdflux(nlay+2)       ! Diffuse downward shortwave surface flux
+      real(kind=rb) :: uvdflx(nlay+2)         ! Total sky downward shortwave flux, UV/vis  
+      real(kind=rb) :: nidflx(nlay+2)         ! Total sky downward shortwave flux, near-IR 
+      real(kind=rb) :: dirdnuv(nlay+2)        ! Direct downward shortwave flux, UV/vis
+      real(kind=rb) :: difdnuv(nlay+2)        ! Diffuse downward shortwave flux, UV/vis
+      real(kind=rb) :: dirdnir(nlay+2)        ! Direct downward shortwave flux, near-IR
+      real(kind=rb) :: difdnir(nlay+2)        ! Diffuse downward shortwave flux, near-IR
+
+! Output - inactive
+!      real(kind=rb) :: zuvfu(nlay+2)         ! temporary upward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zuvfd(nlay+2)         ! temporary downward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zuvcu(nlay+2)         ! temporary clear sky upward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zuvcd(nlay+2)         ! temporary clear sky downward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zvsfu(nlay+2)         ! temporary upward visible shortwave flux (w/m2)
+!      real(kind=rb) :: zvsfd(nlay+2)         ! temporary downward visible shortwave flux (w/m2)
+!      real(kind=rb) :: zvscu(nlay+2)         ! temporary clear sky upward visible shortwave flux (w/m2)
+!      real(kind=rb) :: zvscd(nlay+2)         ! temporary clear sky downward visible shortwave flux (w/m2)
+!      real(kind=rb) :: znifu(nlay+2)         ! temporary upward near-IR shortwave flux (w/m2)
+!      real(kind=rb) :: znifd(nlay+2)         ! temporary downward near-IR shortwave flux (w/m2)
+!      real(kind=rb) :: znicu(nlay+2)         ! temporary clear sky upward near-IR shortwave flux (w/m2)
+!      real(kind=rb) :: znicd(nlay+2)         ! temporary clear sky downward near-IR shortwave flux (w/m2)
+
+! Solar variability
+      real(kind=rb) :: svar_f                 ! Solar variability facular multiplier
+      real(kind=rb) :: svar_s                 ! Solar variability sunspot multiplier
+      real(kind=rb) :: svar_i                 ! Solar variability baseline irradiance multiplier
+      real(kind=rb) :: svar_f_bnd(jpband)     ! Solar variability facular multiplier (by band)
+      real(kind=rb) :: svar_s_bnd(jpband)     ! Solar variability sunspot multiplier (by band)
+      real(kind=rb) :: svar_i_bnd(jpband)     ! Solar variability baseline irradiance multiplier (by band)
+
+
+! Initializations
+
+      zepsec = 1.e-06_rb
+      zepzen = 1.e-10_rb
+      oneminus = 1.0_rb - zepsec
+      pi = 2._rb * asin(1._rb)
+
+      istart = jpb1
+      iend = jpb2
+      iout = 0
+      icpr = 0
+      ims = 2
+
+! In a GCM with or without McICA, set nlon to the longitude dimension
+!
+! Set imca to select calculation type:
+!  imca = 0, use standard forward model calculation (clear and overcast only)
+!  imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability
+!            (clear, overcast or partial cloud conditions)
+
+! *** This version uses McICA (imca = 1) ***
+
+! Set icld to default selection of clear or cloud calculation and cloud overlap method
+! if not passed in with valid value
+! icld = 0, clear only
+! icld = 1, with clouds using random cloud overlap (McICA only)
+! icld = 2, with clouds using maximum/random cloud overlap (McICA only)
+! icld = 3, with clouds using maximum cloud overlap (McICA only)
+      if (icld.lt.0.or.icld.gt.3) icld = 2
+
+! Set iaer to select aerosol option
+! iaer = 0, no aerosols
+! iaer = 6, use six ECMWF aerosol types
+!           input aerosol optical depth at 0.55 microns for each aerosol type (ecaer)
+! iaer = 10, input total aerosol optical depth, single scattering albedo 
+!            and asymmetry parameter (tauaer, ssaaer, asmaer) directly
+      if (iaer.ne.0.and.iaer.ne.6.and.iaer.ne.10) iaer = 0
+
+! Set idelm to select between delta-M scaled or unscaled output direct and diffuse fluxes
+! NOTE: total downward fluxes are always delta scaled
+! idelm = 0, output direct and diffuse flux components are not delta scaled
+!            (direct flux does not include forward scattering peak)
+! idelm = 1, output direct and diffuse flux components are delta scaled (default)
+!            (direct flux includes part or most of forward scattering peak)
+      idelm = 1
+
+! Call model and data initialization, compute lookup tables, perform
+! reduction of g-points from 224 to 112 for input absorption
+! coefficient data and other arrays.
+!
+! In a GCM this call should be placed in the model initialization
+! area, since this has to be called only once.  
+!      call rrtmg_sw_ini(cpdair)
+
+! This is the main longitude/column loop in RRTMG.
+! Modify to loop over all columns (nlon) or over daylight columns
+
+      do iplon = 1, ncol
+
+! Prepare atmosphere profile from GCM for use in RRTMG, and define
+! other input parameters
+
+         call inatm_sw (iplon, nlay, icld, iaer, &
+              play, plev, tlay, tlev, tsfc, h2ovmr, &
+              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, &
+              adjes, dyofyr, scon, isolvar, &
+              inflgsw, iceflgsw, liqflgsw, &
+              cldfmcl, taucmcl, ssacmcl, asmcmcl, fsfcmcl, ciwpmcl, clwpmcl, &
+              reicmcl, relqmcl, tauaer, ssaaer, asmaer, &
+              nlayers, pavel, pz, pdp, tavel, tz, tbound, coldry, wkl, &
+              adjflux, inflag, iceflag, liqflag, cldfmc, taucmc, &
+              ssacmc, asmcmc, fsfcmc, ciwpmc, clwpmc, reicmc, relqmc, &
+              taua, ssaa, asma, &
+! solar variability
+              svar_f, svar_s, svar_i, svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+! optional
+              bndsolvar,indsolvar,solcycfrac)
+
+!  For cloudy atmosphere, use cldprmc to set cloud optical properties based on
+!  input cloud physical properties.  Select method based on choices described
+!  in cldprmc.  Cloud fraction, water path, liquid droplet and ice particle
+!  effective radius must be passed in cldprmc.  Cloud fraction and cloud
+!  optical properties are transferred to rrtmg_sw arrays in cldprmc.  
+
+         call cldprmc_sw(nlayers, inflag, iceflag, liqflag, cldfmc, &
+                         ciwpmc, clwpmc, reicmc, relqmc, &
+                         taormc, taucmc, ssacmc, asmcmc, fsfcmc)
+         icpr = 1
+
+! Calculate coefficients for the temperature and pressure dependence of the 
+! molecular absorption coefficients by interpolating data from stored
+! reference atmospheres.
+
+         call setcoef_sw(nlayers, pavel, tavel, pz, tz, tbound, coldry, wkl, &
+                         laytrop, layswtch, laylow, jp, jt, jt1, &
+                         co2mult, colch4, colco2, colh2o, colmol, coln2o, &
+                         colo2, colo3, fac00, fac01, fac10, fac11, &
+                         selffac, selffrac, indself, forfac, forfrac, indfor)
+
+
+! Cosine of the solar zenith angle 
+!  Prevent using value of zero; ideally, SW model is not called from host model when sun 
+!  is below horizon
+
+         cossza = coszen(iplon)
+         if (cossza .lt. zepzen) cossza = zepzen
+
+
+! Transfer albedo, cloud and aerosol properties into arrays for 2-stream radiative transfer 
+
+! Surface albedo
+!  Near-IR bands 16-24 and 29 (1-9 and 14), 820-16000 cm-1, 0.625-12.195 microns
+         do ib=1,9
+            albdir(ib) = aldir(iplon)
+            albdif(ib) = aldif(iplon)
+         enddo
+         albdir(nbndsw) = aldir(iplon)
+         albdif(nbndsw) = aldif(iplon)
+!  UV/visible bands 25-28 (10-13), 16000-50000 cm-1, 0.200-0.625 micron
+         do ib=10,13
+            albdir(ib) = asdir(iplon)
+            albdif(ib) = asdif(iplon)
+         enddo
+
+
+! Clouds
+         if (icld.eq.0) then
+
+            zcldfmc(:,:) = 0._rb
+            ztaucmc(:,:) = 0._rb
+            ztaormc(:,:) = 0._rb
+            zasycmc(:,:) = 0._rb
+            zomgcmc(:,:) = 1._rb
+
+         elseif (icld.ge.1) then
+            do i=1,nlayers
+               do ig=1,ngptsw
+                  zcldfmc(i,ig) = cldfmc(ig,i)
+                  ztaucmc(i,ig) = taucmc(ig,i)
+                  ztaormc(i,ig) = taormc(ig,i)
+                  zasycmc(i,ig) = asmcmc(ig,i)
+                  zomgcmc(i,ig) = ssacmc(ig,i)
+               enddo
+            enddo
+
+         endif   
+
+! Aerosol
+! IAER = 0: no aerosols
+         if (iaer.eq.0) then
+
+            ztaua(:,:) = 0._rb
+            zasya(:,:) = 0._rb
+            zomga(:,:) = 1._rb
+
+! IAER = 6: Use ECMWF six aerosol types. See rrsw_aer.f90 for details.
+! Input aerosol optical thickness at 0.55 micron for each aerosol type (ecaer), 
+! or set manually here for each aerosol and layer.
+         elseif (iaer.eq.6) then
+
+!            do i = 1, nlayers
+!               do ia = 1, naerec
+!                  ecaer(iplon,i,ia) = 1.0e-15_rb
+!               enddo
+!            enddo
+
+            do i = 1, nlayers
+               do ib = 1, nbndsw
+                  ztaua(i,ib) = 0._rb
+                  zasya(i,ib) = 0._rb
+                  zomga(i,ib) = 0._rb
+                  do ia = 1, naerec
+                     ztaua(i,ib) = ztaua(i,ib) + rsrtaua(ib,ia) * ecaer(iplon,i,ia)
+                     zomga(i,ib) = zomga(i,ib) + rsrtaua(ib,ia) * ecaer(iplon,i,ia) * &
+                                   rsrpiza(ib,ia)
+                     zasya(i,ib) = zasya(i,ib) + rsrtaua(ib,ia) * ecaer(iplon,i,ia) * &
+                                   rsrpiza(ib,ia) * rsrasya(ib,ia)
+                  enddo
+                  if (ztaua(i,ib) == 0._rb) then
+                     ztaua(i,ib) = 0._rb
+                     zasya(i,ib) = 0._rb
+                     zomga(i,ib) = 1._rb
+                  else
+                     if (zomga(i,ib) /= 0._rb) then
+                        zasya(i,ib) = zasya(i,ib) / zomga(i,ib)
+                     endif
+                     if (ztaua(i,ib) /= 0._rb) then
+                        zomga(i,ib) = zomga(i,ib) / ztaua(i,ib)
+                     endif
+                  endif
+               enddo
+            enddo
+
+! IAER=10: Direct specification of aerosol optical properties from GCM
+         elseif (iaer.eq.10) then
+
+            do i = 1 ,nlayers
+               do ib = 1 ,nbndsw
+                  ztaua(i,ib) = taua(i,ib)
+                  zasya(i,ib) = asma(i,ib)
+                  zomga(i,ib) = ssaa(i,ib)
+               enddo
+            enddo
+
+         endif
+
+
+! Call the 2-stream radiation transfer model
+
+         do i=1,nlayers+1
+            zbbcu(i) = 0._rb
+            zbbcd(i) = 0._rb
+            zbbfu(i) = 0._rb
+            zbbfd(i) = 0._rb
+            zbbcddir(i) = 0._rb
+            zbbfddir(i) = 0._rb
+            zuvcd(i) = 0._rb
+            zuvfd(i) = 0._rb
+            zuvcddir(i) = 0._rb
+            zuvfddir(i) = 0._rb
+            znicd(i) = 0._rb
+            znifd(i) = 0._rb
+            znicddir(i) = 0._rb
+            znifddir(i) = 0._rb
+         enddo
+
+
+         call spcvmc_sw &
+             (nlayers, istart, iend, icpr, idelm, iout, &
+              pavel, tavel, pz, tz, tbound, albdif, albdir, &
+              zcldfmc, ztaucmc, zasycmc, zomgcmc, ztaormc, &
+              ztaua, zasya, zomga, cossza, coldry, wkl, adjflux, &	 
+              isolvar, svar_f, svar_s, svar_i, &
+              svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+              laytrop, layswtch, laylow, jp, jt, jt1, &
+              co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &
+              fac00, fac01, fac10, fac11, &
+              selffac, selffrac, indself, forfac, forfrac, indfor, &
+              zbbfd, zbbfu, zbbcd, zbbcu, zuvfd, zuvcd, znifd, znicd, &
+              zbbfddir, zbbcddir, zuvfddir, zuvcddir, znifddir, znicddir)
+
+! Transfer up and down, clear and total sky fluxes to output arrays.
+! Vertical indexing goes from bottom to top; reverse here for GCM if necessary.
+
+         do i = 1, nlayers+1
+            swuflxc(iplon,i) = zbbcu(i)
+            swdflxc(iplon,i) = zbbcd(i)
+            swuflx(iplon,i) = zbbfu(i)
+            swdflx(iplon,i) = zbbfd(i)
+            uvdflx(i) = zuvfd(i)
+            nidflx(i) = znifd(i)
+!  Direct/diffuse fluxes
+            dirdflux(i) = zbbfddir(i)
+            difdflux(i) = swdflx(iplon,i) - dirdflux(i)
+!  UV/visible direct/diffuse fluxes
+            dirdnuv(i) = zuvfddir(i)
+            difdnuv(i) = zuvfd(i) - dirdnuv(i)
+!  Near-IR direct/diffuse fluxes
+            dirdnir(i) = znifddir(i)
+            difdnir(i) = znifd(i) - dirdnir(i)
+         enddo
+
+!  Total and clear sky net fluxes
+         do i = 1, nlayers+1
+            swnflxc(i) = swdflxc(iplon,i) - swuflxc(iplon,i)
+            swnflx(i) = swdflx(iplon,i) - swuflx(iplon,i)
+         enddo
+
+!  Total and clear sky heating rates
+         do i = 1, nlayers
+            zdpgcp = heatfac / pdp(i)
+            swhrc(iplon,i) = (swnflxc(i+1) - swnflxc(i)) * zdpgcp
+            swhr(iplon,i) = (swnflx(i+1) - swnflx(i)) * zdpgcp
+         enddo
+         swhrc(iplon,nlayers) = 0._rb
+         swhr(iplon,nlayers) = 0._rb
+
+! End longitude loop
+      enddo
+
+      end subroutine rrtmg_sw
+
+!*************************************************************************
+      real(kind=rb) function earth_sun(idn)
+!*************************************************************************
+!
+!  Purpose: Function to calculate the correction factor of Earth's orbit
+!  for current day of the year
+
+!  idn        : Day of the year
+!  earth_sun  : square of the ratio of mean to actual Earth-Sun distance
+
+! ------- Modules -------
+
+      use rrsw_con, only : pi
+
+      integer(kind=im), intent(in) :: idn
+
+      real(kind=rb) :: gamma
+
+      gamma = 2._rb*pi*(idn-1)/365._rb
+
+! Use Iqbal's equation 1.2.1
+
+      earth_sun = 1.000110_rb + .034221_rb * cos(gamma) + .001289_rb * sin(gamma) + &
+                   .000719_rb * cos(2._rb*gamma) + .000077_rb * sin(2._rb*gamma)
+
+      end function earth_sun
+
+!***************************************************************************
+      subroutine inatm_sw (iplon, nlay, icld, iaer, &
+            play, plev, tlay, tlev, tsfc, h2ovmr, &
+            o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, &
+            adjes, dyofyr, scon, isolvar, &
+            inflgsw, iceflgsw, liqflgsw, &
+            cldfmcl, taucmcl, ssacmcl, asmcmcl, fsfcmcl, ciwpmcl, clwpmcl, &
+            reicmcl, relqmcl, tauaer, ssaaer, asmaer, &
+            nlayers, pavel, pz, pdp, tavel, tz, tbound, coldry, wkl, &
+            adjflux, inflag, iceflag, liqflag, cldfmc, taucmc, &
+            ssacmc, asmcmc, fsfcmc, ciwpmc, clwpmc, reicmc, relqmc, &
+            taua, ssaa, asma, &
+! solar variability
+            svar_f, svar_s, svar_i, svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+! optional
+            bndsolvar,indsolvar,solcycfrac)
+!***************************************************************************
+!
+!  Input atmospheric profile from GCM, and prepare it for use in RRTMG_SW.
+!  Set other RRTMG_SW input parameters.  
+!
+!***************************************************************************
+
+! --------- Modules ----------
+
+      use parrrsw, only : nbndsw, ngptsw, nstr, nmol, mxmol, &
+                          jpband, jpb1, jpb2, rrsw_scon
+      use rrsw_con, only : heatfac, oneminus, pi, grav, avogad
+      use rrsw_wvn, only : ng, nspa, nspb, wavenum1, wavenum2, delwave
+
+! ------- Declarations -------
+
+! ----- Input -----
+! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained
+! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) 
+      integer(kind=im), intent(in) :: iplon           ! column loop index
+      integer(kind=im), intent(in) :: nlay            ! number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud and cloud overlap flag
+      integer(kind=im), intent(in) :: iaer            ! aerosol option flag
+
+      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)
+                                                      ! Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)
+                                                      ! Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)
+                                                      ! Dimensions: (ncol)
+      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+
+      integer(kind=im), intent(in) :: dyofyr          ! Day of the year (used to get Earth/Sun
+                                                      !  distance if adjflx not provided)
+      real(kind=rb), intent(in) :: adjes              ! Flux adjustment for Earth/Sun distance
+      real(kind=rb), intent(in) :: scon               ! Solar constant (W/m2)
+                                                      !    Total solar irradiance averaged 
+                                                      !    over the solar cycle.
+                                                      !    If scon = 0.0, the internal solar 
+                                                      !    constant, which depends on the  
+                                                      !    value of isolvar, will be used. 
+                                                      !    For isolvar=-1, scon=1368.22 Wm-2,
+                                                      !    For isolvar=0,1,3, scon=1360.85 Wm-2,
+                                                      !    If scon > 0.0, the internal solar
+                                                      !    constant will be scaled to the 
+                                                      !    provided value of scon.
+      integer(kind=im), intent(in) :: isolvar         ! Flag for solar variability method
+                                                      !   -1 = (when scon .eq. 0.0): No solar variability
+                                                      !        and no solar cycle (Kurucz solar irradiance
+                                                      !        of 1368.22 Wm-2 only);
+                                                      !        (when scon .ne. 0.0): Kurucz solar irradiance
+                                                      !        scaled to scon and solar variability defined
+                                                      !        (optional) by setting non-zero scale factors
+                                                      !        for each band in SOLVAR
+                                                      !    0 = (when SCON .eq. 0.0): No solar variability 
+                                                      !        and no solar cycle (NRLSSI2 solar constant of 
+                                                      !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                                      !        range only), with facular and sunspot effects 
+                                                      !        fixed to the mean of Solar Cycles 13-24;
+                                                      !        (when SCON .ne. 0.0): No solar variability 
+                                                      !        and no solar cycle (NRLSSI2 solar constant of 
+                                                      !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                                      !        range only), is scaled to SCON
+                                                      !    1 = Solar variability (using NRLSSI2  solar
+                                                      !        model) with solar cycle contribution
+                                                      !        determined by fraction of solar cycle
+                                                      !        with facular and sunspot variations
+                                                      !        fixed to their mean variations over the
+                                                      !        average of Solar Cycles 13-24;
+                                                      !        two amplitude scale factors allow
+                                                      !        facular and sunspot adjustments from
+                                                      !        mean solar cycle as defined by indsolvar 
+                                                      !    2 = Solar variability (using NRLSSI2 solar
+                                                      !        model) over solar cycle determined by 
+                                                      !        direct specification of Mg (facular)
+                                                      !        and SB (sunspot) indices provided
+                                                      !        in indsolvar (scon = 0.0 only)
+                                                      !    3 = (when scon .eq. 0.0): No solar variability
+                                                      !        and no solar cycle (NRLSSI2 solar irradiance
+                                                      !        of 1360.85 Wm-2 only);
+                                                      !        (when scon .ne. 0.0): NRLSSI2 solar irradiance
+                                                      !        scaled to scon and solar variability defined
+                                                      !        (optional) by setting non-zero scale factors
+                                                      !        for each band in bndsolvar
+      real(kind=rb), intent(in), optional :: bndsolvar(:) ! Band scale factors for modeling spectral
+                                                          ! variation of solar cycle for each shortwave band
+                                                          ! for Kurucz solar constant (isolvar=-1), or
+                                                          ! averaged NRLSSI2 model solar cycle (isolvar=3)
+                                                          !    Dimensions: (nbndsw=14)
+      real(kind=rb), intent(in), optional :: indsolvar(:) ! Facular and sunspot amplitude 
+                                                          ! scale factors (isolvar=1), or
+                                                          ! Mg and SB indices (isolvar=2)
+                                                          !    Dimensions: (2)
+      real(kind=rb), intent(in), optional :: solcycfrac   ! Fraction of averaged 11-year solar cycle (0-1)
+                                                          !    at current time (isolvar=1)
+                                                          !    0.0 represents the first day of year 1
+                                                          !    1.0 represents the last day of year 11
+
+      integer(kind=im), intent(in) :: inflgsw         ! Flag for cloud optical properties
+      integer(kind=im), intent(in) :: iceflgsw        ! Flag for ice particle specification
+      integer(kind=im), intent(in) :: liqflgsw        ! Flag for liquid droplet specification
+
+      real(kind=rb), intent(in) :: cldfmcl(:,:,:)     ! Cloud fraction
+                                                      ! Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: taucmcl(:,:,:)     ! In-cloud optical depth (optional)
+                                                      ! Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: ssacmcl(:,:,:)     ! In-cloud single scattering albedo
+                                                      ! Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: asmcmcl(:,:,:)     ! In-cloud asymmetry parameter
+                                                      ! Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: fsfcmcl(:,:,:)     ! In-cloud forward scattering fraction
+                                                      ! Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: ciwpmcl(:,:,:)     ! In-cloud ice water path (g/m2)
+                                                      ! Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: clwpmcl(:,:,:)     ! In-cloud liquid water path (g/m2)
+                                                      ! Dimensions: (ngptsw,ncol,nlay)
+      real(kind=rb), intent(in) :: reicmcl(:,:)       ! Cloud ice effective size (microns)
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: relqmcl(:,:)       ! Cloud water drop effective radius (microns)
+                                                      ! Dimensions: (ncol,nlay)
+
+      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth
+                                                      ! Dimensions: (ncol,nlay,nbndsw)
+      real(kind=rb), intent(in) :: ssaaer(:,:,:)      ! Aerosol single scattering albedo
+                                                      ! Dimensions: (ncol,nlay,nbndsw)
+      real(kind=rb), intent(in) :: asmaer(:,:,:)      ! Aerosol asymmetry parameter
+                                                      ! Dimensions: (ncol,nlay,nbndsw)
+
+! Atmosphere
+      integer(kind=im), intent(out) :: nlayers        ! number of layers
+
+      real(kind=rb), intent(out) :: pavel(:)          ! layer pressures (mb) 
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: tavel(:)          ! layer temperatures (K)
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: pz(0:)            ! level (interface) pressures (hPa, mb)
+                                                      ! Dimensions: (0:nlay)
+      real(kind=rb), intent(out) :: tz(0:)            ! level (interface) temperatures (K)
+                                                      ! Dimensions: (0:nlay)
+      real(kind=rb), intent(out) :: tbound            ! surface temperature (K)
+      real(kind=rb), intent(out) :: pdp(:)            ! layer pressure thickness (hPa, mb)
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: coldry(:)         ! dry air column density (mol/cm2)
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: wkl(:,:)          ! molecular amounts (mol/cm-2)
+                                                      ! Dimensions: (mxmol,nlay)
+
+      real(kind=rb), intent(out) :: adjflux(:)        ! adjustment for current Earth/Sun distance
+                                                      ! Dimensions: (jpband)
+      real(kind=rb), intent(out) :: taua(:,:)         ! Aerosol optical depth
+                                                      ! Dimensions: (nlay,nbndsw)
+      real(kind=rb), intent(out) :: ssaa(:,:)         ! Aerosol single scattering albedo
+                                                      ! Dimensions: (nlay,nbndsw)
+      real(kind=rb), intent(out) :: asma(:,:)         ! Aerosol asymmetry parameter
+                                                      ! Dimensions: (nlay,nbndsw)
+
+! Atmosphere/clouds - cldprmc
+      integer(kind=im), intent(out) :: inflag         ! flag for cloud property method
+      integer(kind=im), intent(out) :: iceflag        ! flag for ice cloud properties
+      integer(kind=im), intent(out) :: liqflag        ! flag for liquid cloud properties
+
+      real(kind=rb), intent(out) :: cldfmc(:,:)       ! layer cloud fraction
+                                                      ! Dimensions: (ngptsw,nlay)
+      real(kind=rb), intent(out) :: taucmc(:,:)       ! in-cloud optical depth (non-delta scaled)
+                                                      ! Dimensions: (ngptsw,nlay)
+      real(kind=rb), intent(out) :: ssacmc(:,:)       ! in-cloud single scattering albedo (non-delta-scaled)
+                                                      ! Dimensions: (ngptsw,nlay)
+      real(kind=rb), intent(out) :: asmcmc(:,:)       ! in-cloud asymmetry parameter (non-delta scaled)
+                                                      ! Dimensions: (ngptsw,nlay)
+      real(kind=rb), intent(out) :: fsfcmc(:,:)       ! in-cloud forward scattering fraction (non-delta scaled)
+                                                      ! Dimensions: (ngptsw,nlay)
+      real(kind=rb), intent(out) :: ciwpmc(:,:)       ! in-cloud ice water path
+                                                      ! Dimensions: (ngptsw,nlay)
+      real(kind=rb), intent(out) :: clwpmc(:,:)       ! in-cloud liquid water path
+                                                      ! Dimensions: (ngptsw,nlay)
+      real(kind=rb), intent(out) :: relqmc(:)         ! liquid particle effective radius (microns)
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: reicmc(:)         ! ice particle effective size (microns)
+                                                      ! Dimensions: (nlay)
+! Solar variability
+      real(kind=rb), intent(out) :: svar_f            ! Solar variability facular multiplier
+      real(kind=rb), intent(out) :: svar_s            ! Solar variability sunspot multiplier
+      real(kind=rb), intent(out) :: svar_i            ! Solar variability baseline irradiance multiplier
+      real(kind=rb), intent(out) :: svar_f_bnd(jpband)! Solar variability facular multiplier (by band)
+      real(kind=rb), intent(out) :: svar_s_bnd(jpband)! Solar variability sunspot multiplier (by band)
+      real(kind=rb), intent(out) :: svar_i_bnd(jpband)! Solar variability baseline irradiance multiplier (by band)
+
+! ----- Local -----
+      real(kind=rb), parameter :: amd = 28.9660_rb    ! Effective molecular weight of dry air (g/mol)
+      real(kind=rb), parameter :: amw = 18.0160_rb    ! Molecular weight of water vapor (g/mol)
+!      real(kind=rb), parameter :: amc = 44.0098_rb   ! Molecular weight of carbon dioxide (g/mol)
+!      real(kind=rb), parameter :: amo = 47.9998_rb   ! Molecular weight of ozone (g/mol)
+!      real(kind=rb), parameter :: amo2 = 31.9999_rb  ! Molecular weight of oxygen (g/mol)
+!      real(kind=rb), parameter :: amch4 = 16.0430_rb ! Molecular weight of methane (g/mol)
+!      real(kind=rb), parameter :: amn2o = 44.0128_rb ! Molecular weight of nitrous oxide (g/mol)
+
+! Set molecular weight ratios (for converting mmr to vmr)
+!  e.g. h2ovmr = h2ommr * amdw)
+      real(kind=rb), parameter :: amdw = 1.607793_rb  ! Molecular weight of dry air / water vapor
+      real(kind=rb), parameter :: amdc = 0.658114_rb  ! Molecular weight of dry air / carbon dioxide
+      real(kind=rb), parameter :: amdo = 0.603428_rb  ! Molecular weight of dry air / ozone
+      real(kind=rb), parameter :: amdm = 1.805423_rb  ! Molecular weight of dry air / methane
+      real(kind=rb), parameter :: amdn = 0.658090_rb  ! Molecular weight of dry air / nitrous oxide
+      real(kind=rb), parameter :: amdo2 = 0.905140_rb ! Molecular weight of dry air / oxygen
+
+      real(kind=rb), parameter :: sbc = 5.67e-08_rb   ! Stefan-Boltzmann constant (W/m2K4)
+
+      integer(kind=im) :: isp, l, ix, n, imol, ib, ig   ! Loop indices
+      real(kind=rb) :: amm, summol                      ! 
+      real(kind=rb) :: adjflx                           ! flux adjustment for Earth/Sun distance
+!      real(kind=rb) :: earth_sun                        ! function for Earth/Sun distance adjustment
+      real(kind=rb) :: solvar(jpband)                   ! solar constant scaling factor by band
+                                                        !  Dimension(jpband=29)
+      real(kind=rb) :: indsolvar_scl(2)                 ! Adjusted facular and sunspot amplitude 
+                                                        ! scale factors (isolvar=1)
+      real(kind=rb) :: indsolvar_ndx(2)                 ! Facular and sunspot indices (isolvar=2)
+      real(kind=rb) :: solcycfr                         ! Local solar cycle fraction (default = 0.0
+                                                        ! unless solcycfrac is present)
+
+      real(kind=rb), parameter ::  solcycfrac_min = 0.0189_rb    ! Solar cycle fraction at solar minimum
+      real(kind=rb), parameter ::  solcycfrac_max = 0.3750_rb    ! Solar cycle fraction at solar maximum
+      real(kind=rb), parameter ::  fracdiff_min2max = 0.3561_rb  ! 0.3750 - 0.0189
+      real(kind=rb), parameter ::  fracdiff_max2min = 0.6439_rb  ! 1.0189 - 0.3750
+      real(kind=rb) :: wgt                              ! Weighting factor for amplitude scale factor adjustment
+      real(kind=rb) :: svar_f_0, svar_s_0               ! Solar variability indices for current fractional
+                                                        !  position in typical solar cycle, interpolated
+                                                        !  from lookup table of values over solar cycle
+      real(kind=rb) :: svar_cprim                       ! Solar variability intermediate value
+      real(kind=rb) :: svar_r                           ! Solar variability intermediate value
+      integer(kind=im) :: sfid                          ! Solar variability solar cycle fraction index
+      real(kind=rb) :: tmp_f_0, tmp_s_0                 ! Solar variability temporary quantities
+      real(kind=rb) :: fraclo, frachi, intfrac          ! Solar variability interpolation factors
+
+! Mean quiet sun, facular brightening, and sunspot dimming coefficient terms (NRLSSI2, 100-50000 cm-1), 
+! spectrally integrated (from hi-res values after mapping to g-point space)
+      real(kind=rb), parameter :: Iint = 1360.37_rb     ! Solar quiet sun irradiance term, integrated
+      real(kind=rb), parameter :: Fint = 0.996047_rb    ! Solar facular brightening term (index-offset), integrated
+      real(kind=rb), parameter :: Sint = -0.511590_rb   ! Solar sunspot dimming term (index-offset), integrated
+      real(kind=rb), parameter :: Foffset = 0.14959542_rb    ! Solar variability facular offset
+      real(kind=rb), parameter :: Soffset = 0.00066696_rb    ! Solar variability sunspot offset
+
+! Mg and SB indices for average solar cycle integrated over solar cycle
+      real(kind=rb), parameter :: svar_f_avg = 0.1567652_rb  ! Solar variability NRLSSI2 Mg "Bremen" index 
+                                                             !  time-averaged over Solar Cycles 13-24
+                                                             !  and averaged over solar cycle (132 values
+                                                             !  excluding end points in Mg and SB arrays)
+      real(kind=rb), parameter :: svar_s_avg = 902.71260_rb  ! Solar variability NRLSSI2 SB "SPOT67" index 
+                                                             !  time-averaged over Solar Cycles 13-24
+                                                             !  and averaged over solar cycle (132 values
+                                                             !  excluding end points in Mg and SB arrays)
+      integer(kind=im), parameter :: nsolfrac = 134          ! Number of elements in solar arrays 
+                                                             !  132 values (excluding end points) represent
+                                                             !  the center dates of the 12 months per year 
+                                                             !  over the mean 11-year solar cycle;
+                                                             !  2 end points represent the first day of the 
+                                                             !  first month of year 1 and the last day of
+                                                             !  the last month of year 11
+      real(kind=rb) :: intrvl_len                            !  Fractional interval length of mgavgcyc
+                                                             !  and sbavgcyc
+      real(kind=rb) :: intrvl_len_hf                         !  Fractional half interval length of mgavgcyc
+                                                             !  and sbavgcyc
+
+! Mg and SB index look-up tables for average solar cycle as a function of solar cycle
+      real(kind=rb) :: mgavgcyc(nsolfrac)               ! Facular index from NRLSSI2 Mg "Bremen" index 
+                                                        !  time-averaged over Solar Cycles 13-24
+      real(kind=rb) :: sbavgcyc(nsolfrac)               ! Sunspot index from NRLSSI2 SB "SPOT67" index 
+                                                        !  time-averaged over Solar Cycles 13-24
+      mgavgcyc(:) = (/ &
+        &   0.150737_rb,  0.150746_rb,  0.150733_rb,  0.150718_rb,  0.150725_rb,  0.150762_rb, &
+        &   0.150828_rb,  0.150918_rb,  0.151017_rb,  0.151113_rb,  0.151201_rb,  0.151292_rb, &
+        &   0.151403_rb,  0.151557_rb,  0.151766_rb,  0.152023_rb,  0.152322_rb,  0.152646_rb, &
+        &   0.152969_rb,  0.153277_rb,  0.153579_rb,  0.153899_rb,  0.154252_rb,  0.154651_rb, &
+        &   0.155104_rb,  0.155608_rb,  0.156144_rb,  0.156681_rb,  0.157178_rb,  0.157605_rb, &
+        &   0.157971_rb,  0.158320_rb,  0.158702_rb,  0.159133_rb,  0.159583_rb,  0.160018_rb, &
+        &   0.160408_rb,  0.160725_rb,  0.160960_rb,  0.161131_rb,  0.161280_rb,  0.161454_rb, &
+        &   0.161701_rb,  0.162034_rb,  0.162411_rb,  0.162801_rb,  0.163186_rb,  0.163545_rb, &
+        &   0.163844_rb,  0.164029_rb,  0.164054_rb,  0.163910_rb,  0.163621_rb,  0.163239_rb, &
+        &   0.162842_rb,  0.162525_rb,  0.162344_rb,  0.162275_rb,  0.162288_rb,  0.162369_rb, &
+        &   0.162500_rb,  0.162671_rb,  0.162878_rb,  0.163091_rb,  0.163251_rb,  0.163320_rb, &
+        &   0.163287_rb,  0.163153_rb,  0.162927_rb,  0.162630_rb,  0.162328_rb,  0.162083_rb, &
+        &   0.161906_rb,  0.161766_rb,  0.161622_rb,  0.161458_rb,  0.161266_rb,  0.161014_rb, &
+        &   0.160666_rb,  0.160213_rb,  0.159690_rb,  0.159190_rb,  0.158831_rb,  0.158664_rb, &
+        &   0.158634_rb,  0.158605_rb,  0.158460_rb,  0.158152_rb,  0.157691_rb,  0.157152_rb, &
+        &   0.156631_rb,  0.156180_rb,  0.155827_rb,  0.155575_rb,  0.155406_rb,  0.155280_rb, &
+        &   0.155145_rb,  0.154972_rb,  0.154762_rb,  0.154554_rb,  0.154388_rb,  0.154267_rb, &
+        &   0.154152_rb,  0.154002_rb,  0.153800_rb,  0.153567_rb,  0.153348_rb,  0.153175_rb, &
+        &   0.153044_rb,  0.152923_rb,  0.152793_rb,  0.152652_rb,  0.152510_rb,  0.152384_rb, &
+        &   0.152282_rb,  0.152194_rb,  0.152099_rb,  0.151980_rb,  0.151844_rb,  0.151706_rb, &
+        &   0.151585_rb,  0.151496_rb,  0.151437_rb,  0.151390_rb,  0.151347_rb,  0.151295_rb, &
+        &   0.151220_rb,  0.151115_rb,  0.150993_rb,  0.150883_rb,  0.150802_rb,  0.150752_rb, &
+        &   0.150729_rb,  0.150737_rb/)
+      sbavgcyc(:) = (/ &
+        &    50.3550_rb,   44.1322_rb,   52.0179_rb,   59.2231_rb,   66.3702_rb,   71.7545_rb, &
+        &    76.8671_rb,   83.4723_rb,   91.1574_rb,   98.4915_rb,  105.3173_rb,  115.1791_rb, &
+        &   130.9432_rb,  155.0483_rb,  186.5379_rb,  221.5456_rb,  256.9212_rb,  291.5276_rb, &
+        &   325.2953_rb,  356.4789_rb,  387.2470_rb,  422.8557_rb,  466.1698_rb,  521.5139_rb, &
+        &   593.2833_rb,  676.6234_rb,  763.6930_rb,  849.1200_rb,  928.4259_rb,  994.9705_rb, &
+        &  1044.2605_rb, 1087.5703_rb, 1145.0623_rb, 1224.3491_rb, 1320.6497_rb, 1413.0979_rb, &
+        &  1472.1591_rb, 1485.7531_rb, 1464.1610_rb, 1439.1617_rb, 1446.2449_rb, 1496.4323_rb, &
+        &  1577.8394_rb, 1669.5933_rb, 1753.0408_rb, 1821.9296_rb, 1873.2789_rb, 1906.5240_rb, &
+        &  1920.4482_rb, 1904.6881_rb, 1861.8397_rb, 1802.7661_rb, 1734.0215_rb, 1665.0562_rb, &
+        &  1608.8999_rb, 1584.8208_rb, 1594.0162_rb, 1616.1486_rb, 1646.6031_rb, 1687.1962_rb, &
+        &  1736.4778_rb, 1787.2419_rb, 1824.9084_rb, 1835.5236_rb, 1810.2161_rb, 1768.6124_rb, &
+        &  1745.1085_rb, 1748.7762_rb, 1756.1239_rb, 1738.9929_rb, 1700.0656_rb, 1658.2209_rb, &
+        &  1629.2925_rb, 1620.9709_rb, 1622.5157_rb, 1623.4703_rb, 1612.3083_rb, 1577.3031_rb, &
+        &  1516.7953_rb, 1430.0403_rb, 1331.5112_rb, 1255.5171_rb, 1226.7653_rb, 1241.4419_rb, &
+        &  1264.6549_rb, 1255.5559_rb, 1203.0286_rb, 1120.2747_rb, 1025.5101_rb,  935.4602_rb, &
+        &   855.0434_rb,  781.0189_rb,  718.0328_rb,  678.5850_rb,  670.4219_rb,  684.1906_rb, &
+        &   697.0376_rb,  694.8083_rb,  674.1456_rb,  638.8199_rb,  602.3454_rb,  577.6292_rb, &
+        &   565.6213_rb,  553.7846_rb,  531.7452_rb,  503.9732_rb,  476.9708_rb,  452.4296_rb, &
+        &   426.2826_rb,  394.6636_rb,  360.1086_rb,  324.9731_rb,  297.2957_rb,  286.1536_rb, &
+        &   287.4195_rb,  288.9029_rb,  282.7594_rb,  267.7211_rb,  246.6594_rb,  224.7318_rb, &
+        &   209.2318_rb,  204.5217_rb,  204.1653_rb,  200.0440_rb,  191.0689_rb,  175.7699_rb, &
+        &   153.9869_rb,  128.4389_rb,  103.8445_rb,   85.6083_rb,   73.6264_rb,   64.4393_rb, &
+        &    56.5779_rb,   50.3550_rb/)
+
+! Add one to nlayers here to include extra model layer at top of atmosphere
+      nlayers = nlay
+
+!  Initialize all molecular amounts to zero here, then pass input amounts
+!  into RRTM array WKL below.
+
+      wkl(:,:) = 0.0_rb
+      cldfmc(:,:) = 0.0_rb
+      taucmc(:,:) = 0.0_rb
+      ssacmc(:,:) = 1.0_rb
+      asmcmc(:,:) = 0.0_rb
+      fsfcmc(:,:) = 0.0_rb
+      ciwpmc(:,:) = 0.0_rb
+      clwpmc(:,:) = 0.0_rb
+      reicmc(:) = 0.0_rb
+      relqmc(:) = 0.0_rb
+      taua(:,:) = 0.0_rb
+      ssaa(:,:) = 1.0_rb
+      asma(:,:) = 0.0_rb
+      solvar(:) = 1.0_rb
+      adjflux(:) = 1.0_rb
+      svar_f = 1.0_rb 
+      svar_s = 1.0_rb 
+      svar_i = 1.0_rb 
+      svar_f_bnd(:) = 1.0_rb 
+      svar_s_bnd(:) = 1.0_rb 
+      svar_i_bnd(:) = 1.0_rb 
+
+! Adjust amplitude scaling of mean solar cycle to be 1.0 at solar minimum (solcycfrac_min=0.0189),
+! to be the requested indsolvar at solar maximum (solcycfrac_max=0.3750), and to vary between 
+! those values at intervening values of solcycfrac. 
+      if (isolvar .eq. 1) then 
+! Check for presence of indsolvar and solcycfrac when isolvar = 1. 
+! Use a solar cycle fraction of 0.0 and no scaling by default unless both indsolvar and solcycfrac are present. 
+         solcycfr = 0.0_rb
+         indsolvar_scl(1:2) = 1.0_rb
+         if (present(indsolvar) .and. present(solcycfrac)) then 
+            solcycfr = solcycfrac
+            if (indsolvar(1).ne.1.0_rb.or.indsolvar(2).ne.1.0_rb) then 
+               if (solcycfrac .ge. 0.0_rb .and. solcycfrac .lt. solcycfrac_min) then
+                  wgt = (solcycfrac+1.0_rb-solcycfrac_max)/fracdiff_max2min
+                  indsolvar_scl(1) = indsolvar(1) + wgt * (1.0_rb-indsolvar(1))
+                  indsolvar_scl(2) = indsolvar(2) + wgt * (1.0_rb-indsolvar(2))
+               endif
+               if (solcycfrac .ge. solcycfrac_min .and. solcycfrac .le. solcycfrac_max) then
+                  wgt = (solcycfrac-solcycfrac_min)/fracdiff_min2max
+                  indsolvar_scl(1) = 1.0_rb + wgt * (indsolvar(1)-1.0_rb)
+                  indsolvar_scl(2) = 1.0_rb + wgt * (indsolvar(2)-1.0_rb)
+               endif
+               if (solcycfrac .gt. solcycfrac_max .and. solcycfrac .le. 1.0_rb) then
+                  wgt = (solcycfrac-solcycfrac_max)/fracdiff_max2min
+                  indsolvar_scl(1) = indsolvar(1) + wgt * (1.0_rb-indsolvar(1))
+                  indsolvar_scl(2) = indsolvar(2) + wgt * (1.0_rb-indsolvar(2))
+               endif
+            endif
+         endif
+      endif
+
+! Check for presence of indsolvar when isolvar = 2. 
+      if (isolvar .eq. 2) then 
+! Use mean solar cycle facular and sunspot indices by default unless indsolvar is present
+         indsolvar_ndx(1) = svar_f_avg
+         indsolvar_ndx(2) = svar_s_avg
+         if (present(indsolvar)) then 
+            indsolvar_ndx(1) = indsolvar(1)
+            indsolvar_ndx(2) = indsolvar(2)
+         endif
+      endif
+
+! Set flux adjustment for current Earth/Sun distance (two options).
+! 1) Use Earth/Sun distance flux adjustment provided by GCM (input as adjes);
+      adjflx = adjes
+!
+! 2) Calculate Earth/Sun distance from DYOFYR, the cumulative day of the year.
+!    (Set adjflx to 1. to use constant Earth/Sun distance of 1 AU). 
+      if (dyofyr .gt. 0) then
+         adjflx = earth_sun(dyofyr)
+      endif
+
+! Apply selected solar variability option based on ISOLVAR and input 
+! solar constant.
+! For scon = 0, use internally defined solar constant, which is
+! 1368.22 Wm-2 (for ISOLVAR=-1) and 1360.85 Wm-2 (for ISOLVAR=0,3;
+! options ISOLVAR=1,2 model solar cycle variations from 1360.85 Wm-2)
+!
+! SCON = 0 
+! Use internal TSI value
+      if (scon .eq. 0.0_rb) then 
+
+!   No solar cycle and no solar variability (Kurucz solar source function)
+!   Apply constant scaling by band if first element of bndsolvar specified
+         if (isolvar .eq. -1) then
+            solvar(jpb1:jpb2) = 1.0_rb
+            if (present(bndsolvar)) solvar(jpb1:jpb2) = bndsolvar(:)
+         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model solar irradiance)
+!   Quiet sun, facular, and sunspot terms averaged over the mean solar cycle 
+!   (defined as average of Solar Cycles 13-24).
+         if (isolvar .eq. 0) then
+            svar_f = 1.0_rb
+            svar_s = 1.0_rb
+            svar_i = 1.0_rb
+         endif 
+
+!   Mean solar cycle with solar variability (NRLSSI2 model)
+!   Facular and sunspot terms interpolated from LUTs to input solar cycle 
+!   fraction for mean solar cycle. Scalings defined below to convert from 
+!   averaged Mg and SB terms to Mg and SB terms interpolated here.
+!   (Includes optional facular and sunspot amplitude scale factors)
+         if (isolvar .eq. 1) then
+!   Interpolate svar_f_0 and svar_s_0 from lookup tables using provided solar cycle fraction
+            if (solcycfr .le. 0.0_rb) then
+               tmp_f_0 = mgavgcyc(1)
+               tmp_s_0 = sbavgcyc(1)
+            elseif (solcycfr .ge. 1.0_rb) then
+               tmp_f_0 = mgavgcyc(nsolfrac)
+               tmp_s_0 = sbavgcyc(nsolfrac)
+            else
+               intrvl_len = 1.0_rb / (nsolfrac-2)
+               intrvl_len_hf = 0.5_rb * intrvl_len
+!   Initial half interval (1)
+               if (solcycfr .le. intrvl_len_hf) then 
+                  sfid = 1
+                  fraclo = 0.0_rb
+                  frachi = intrvl_len_hf
+               endif
+!   Main whole intervals (131)
+               if (solcycfr .gt. intrvl_len_hf .and. solcycfr .lt. 1.0_rb-intrvl_len_hf) then 
+                  sfid = floor((solcycfr-intrvl_len_hf) * (nsolfrac-2)) + 2
+                  fraclo = (sfid-2) * intrvl_len + intrvl_len_hf
+                  frachi = fraclo + intrvl_len
+               endif
+!   Final half interval (1)
+               if (solcycfr .ge. 1.0_rb-intrvl_len_hf) then 
+                  sfid = (nsolfrac-2) + 1
+                  fraclo = 1.0_rb - intrvl_len_hf
+                  frachi = 1.0_rb
+               endif
+               intfrac = (solcycfr - fraclo) / (frachi - fraclo)
+               tmp_f_0 = mgavgcyc(sfid) + intfrac * (mgavgcyc(sfid+1) - mgavgcyc(sfid))
+               tmp_s_0 = sbavgcyc(sfid) + intfrac * (sbavgcyc(sfid+1) - sbavgcyc(sfid))
+            endif
+            svar_f_0 = tmp_f_0
+            svar_s_0 = tmp_s_0
+            svar_f = indsolvar_scl(1) * (svar_f_0 - Foffset) / (svar_f_avg - Foffset)
+            svar_s = indsolvar_scl(2) * (svar_s_0 - Soffset) / (svar_s_avg - Soffset)
+            svar_i = 1.0_rb
+         endif 
+
+!   Specific solar cycle with solar variability (NRLSSI2 model)
+!   Facular and sunspot index terms input directly to model specific 
+!   solar cycle.  Scalings defined below to convert from averaged
+!   Mg and SB terms to specified Mg and SB terms. 
+         if (isolvar .eq. 2) then
+            svar_f = (indsolvar_ndx(1) - Foffset) / (svar_f_avg - Foffset)
+            svar_s = (indsolvar_ndx(2) - Soffset) / (svar_s_avg - Soffset)
+            svar_i = 1.0_rb
+         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model)
+!   Averaged facular, sunspot and quiet sun terms from mean solar cycle 
+!   (derived as average of Solar Cycles 13-24). This information is built
+!   into coefficient terms specified by g-point elsewhere. Separate
+!   scaling by spectral band is applied as defined by bndsolvar. 
+         if (isolvar .eq. 3) then
+            solvar(jpb1:jpb2) = 1.0_rb
+            if (present(bndsolvar)) solvar(jpb1:jpb2) = bndsolvar(:)
+            do ib = jpb1,jpb2
+               svar_f_bnd(ib) = solvar(ib)
+               svar_s_bnd(ib) = solvar(ib)
+               svar_i_bnd(ib) = solvar(ib)
+            enddo
+         endif 
+
+      endif
+
+! SCON > 0 
+! Scale from internal TSI to externally specified TSI value (scon)
+      if (scon .gt. 0.0_rb) then 
+
+!   No solar cycle and no solar variability (Kurucz solar source function)
+!   Scale from internal solar constant to requested solar constant.
+!   Apply optional constant scaling by band if first element of bndsolvar > 0.0
+         if (isolvar .eq. -1) then
+            if (.not. present(bndsolvar)) solvar(jpb1:jpb2) = scon / rrsw_scon 
+            if (present(bndsolvar)) solvar(jpb1:jpb2) = bndsolvar(:) * scon / rrsw_scon 
+         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model solar irradiance)
+!   Quiet sun, facular, and sunspot terms averaged over the mean solar cycle 
+!   (defined as average of Solar Cycles 13-24).
+!   Scale internal solar constant to requested solar constant. 
+!!   Fint is provided as the product of (svar_f_avg-Foffset) and Fint, 
+!!   Sint is provided as the product of (svar_s_avg-Soffset) and Sint
+         if (isolvar .eq. 0) then
+            svar_cprim = Fint + Sint + Iint
+            svar_r = scon / svar_cprim
+            svar_f = svar_r
+            svar_s = svar_r
+            svar_i = svar_r
+         endif 
+
+!   Mean solar cycle with solar variability (NRLSSI2 model)
+!   Facular and sunspot terms interpolated from LUTs to input solar cycle 
+!   fraction for mean solar cycle. Scalings defined below to convert from 
+!   averaged Mg and SB terms to Mg and SB terms interpolated here.
+!   Scale internal solar constant to requested solar constant. 
+!   (Includes optional facular and sunspot amplitude scale factors)
+         if (isolvar .eq. 1) then
+!   Interpolate svar_f_0 and svar_s_0 from lookup tables using provided solar cycle fraction
+            if (solcycfr .le. 0.0_rb) then
+               tmp_f_0 = mgavgcyc(1)
+               tmp_s_0 = sbavgcyc(1)
+            elseif (solcycfr .ge. 1.0_rb) then
+               tmp_f_0 = mgavgcyc(nsolfrac)
+               tmp_s_0 = sbavgcyc(nsolfrac)
+            else
+               intrvl_len = 1.0_rb / (nsolfrac-2)
+               intrvl_len_hf = 0.5_rb * intrvl_len
+!   Initial half interval (1)
+               if (solcycfr .le. intrvl_len_hf) then 
+                  sfid = 1
+                  fraclo = 0.0_rb
+                  frachi = intrvl_len_hf
+               endif
+!   Main whole intervals (131)
+               if (solcycfr .gt. intrvl_len_hf .and. solcycfr .lt. 1.0_rb-intrvl_len_hf) then 
+                  sfid = floor((solcycfr-intrvl_len_hf) * (nsolfrac-2)) + 2
+                  fraclo = (sfid-2) * intrvl_len + intrvl_len_hf
+                  frachi = fraclo + intrvl_len
+               endif
+!   Final half interval (1)
+               if (solcycfr .ge. 1.0_rb-intrvl_len_hf) then 
+                  sfid = (nsolfrac-2) + 1
+                  fraclo = 1.0_rb - intrvl_len_hf
+                  frachi = 1.0_rb
+               endif
+               intfrac = (solcycfr - fraclo) / (frachi - fraclo)
+               tmp_f_0 = mgavgcyc(sfid) + intfrac * (mgavgcyc(sfid+1) - mgavgcyc(sfid))
+               tmp_s_0 = sbavgcyc(sfid) + intfrac * (sbavgcyc(sfid+1) - sbavgcyc(sfid))
+            endif
+            svar_f_0 = tmp_f_0
+            svar_s_0 = tmp_s_0
+!   Define Cprime 
+!            svar_cprim = indsolvar(1) * svar_f_avg * Fint + indsolvar(2) * svar_s_avg * Sint + Iint
+!   Fint is provided as the product of (svar_f_avg-Foffset) and Fint, 
+!   Sint is provided as the product of (svar_s_avg-Soffset) and Sint
+            svar_i = (scon - (indsolvar_scl(1) * Fint + indsolvar_scl(2) * Sint)) / Iint
+            svar_f = indsolvar_scl(1) * (svar_f_0 - Foffset) / (svar_f_avg - Foffset)
+            svar_s = indsolvar_scl(2) * (svar_s_0 - Soffset) / (svar_s_avg - Soffset)
+         endif 
+
+!   Specific solar cycle with solar variability (NRLSSI2 model)
+!   (Not available for SCON > 0)
+!         if (isolvar .eq. 2) then
+!            scon = 0.0_rb
+!            svar_f = (indsolvar_ndx(1) - Foffset) / (svar_f_avg - Foffset)
+!            svar_s = (indsolvar_ndx(2) - Soffset) / (svar_s_avg - Soffset)
+!            svar_i = 1.0_rb
+!         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model)
+!   Averaged facular, sunspot and quiet sun terms from mean solar cycle 
+!   (derived as average of Solar Cycles 13-24). This information is built
+!   into coefficient terms specified by g-point elsewhere. Separate
+!   scaling by spectral band is applied as defined by bndsolvar. 
+!   Scale internal solar constant (svar_cprim) to requested solar constant (scon)
+!   Fint is provided as the product of (svar_f_avg-Foffset) and Fint, 
+!   Sint is provided as the product of (svar_s_avg-Soffset) and Sint
+         if (isolvar .eq. 3) then
+            svar_cprim = Fint + Sint + Iint
+            if (.not. present(bndsolvar)) solvar(jpb1:jpb2) = scon / svar_cprim
+            if (present(bndsolvar)) solvar(jpb1:jpb2) = bndsolvar(:) * scon / svar_cprim
+            do ib = jpb1,jpb2
+               svar_f_bnd(ib) = solvar(ib)
+               svar_s_bnd(ib) = solvar(ib)
+               svar_i_bnd(ib) = solvar(ib)
+            enddo
+         endif 
+
+      endif
+
+! Combine Earth-Sun adjustment and solar constant scaling
+! when no solar variability and no solar cycle requested
+      if (isolvar .lt. 0) then
+         do ib = jpb1,jpb2
+            adjflux(ib) = adjflx * solvar(ib)
+         enddo
+      endif
+! Define Earth-Sun adjustment when solar variability requested
+      if (isolvar .ge. 0) then
+         do ib = jpb1,jpb2
+            adjflux(ib) = adjflx
+         enddo
+      endif
+
+!  Set surface temperature.
+      tbound = tsfc(iplon)
+
+!  Install input GCM arrays into RRTMG_SW arrays for pressure, temperature,
+!  and molecular amounts.  
+!  Pressures are input in mb, or are converted to mb here.
+!  Molecular amounts are input in volume mixing ratio, or are converted from 
+!  mass mixing ratio (or specific humidity for h2o) to volume mixing ratio
+!  here. These are then converted to molecular amount (molec/cm2) below.  
+!  The dry air column COLDRY (in molec/cm2) is calculated from the level 
+!  pressures, pz (in mb), based on the hydrostatic equation and includes a 
+!  correction to account for h2o in the layer.  The molecular weight of moist 
+!  air (amm) is calculated for each layer.  
+!  Note: In RRTMG, layer indexing goes from bottom to top, and coding below
+!  assumes GCM input fields are also bottom to top. Input layer indexing
+!  from GCM fields should be reversed here if necessary.
+
+      pz(0) = plev(iplon,1)
+      tz(0) = tlev(iplon,1)
+      do l = 1, nlayers
+         pavel(l) = play(iplon,l)
+         tavel(l) = tlay(iplon,l)
+         pz(l) = plev(iplon,l+1)
+         tz(l) = tlev(iplon,l+1)
+         pdp(l) = pz(l-1) - pz(l)
+! For h2o input in vmr:
+         wkl(1,l) = h2ovmr(iplon,l)
+! For h2o input in mmr:
+!         wkl(1,l) = h2o(iplon,l)*amdw
+! For h2o input in specific humidity;
+!         wkl(1,l) = (h2o(iplon,l)/(1._rb - h2o(iplon,l)))*amdw
+         wkl(2,l) = co2vmr(iplon,l)
+         wkl(3,l) = o3vmr(iplon,l)
+         wkl(4,l) = n2ovmr(iplon,l)
+         wkl(6,l) = ch4vmr(iplon,l)
+         wkl(7,l) = o2vmr(iplon,l)
+         amm = (1._rb - wkl(1,l)) * amd + wkl(1,l) * amw            
+         coldry(l) = (pz(l-1)-pz(l)) * 1.e3_rb * avogad / &
+                     (1.e2_rb * grav * amm * (1._rb + wkl(1,l)))
+      enddo
+
+! The following section can be used to set values for an additional layer (from
+! the GCM top level to 1.e-4 mb) for improved calculation of TOA fluxes. 
+! Temperature and molecular amounts in the extra model layer are set to 
+! their values in the top GCM model layer, though these can be modified
+! here if necessary. 
+! If this feature is utilized, increase nlayers by one above, limit the two
+! loops above to (nlayers-1), and set the top most (nlayers) layer values here. 
+
+!      pavel(nlayers) = 0.5_rb * pz(nlayers-1)
+!      tavel(nlayers) = tavel(nlayers-1)
+!      pz(nlayers) = 1.e-4_rb
+!      tz(nlayers-1) = 0.5_rb * (tavel(nlayers)+tavel(nlayers-1))
+!      tz(nlayers) = tz(nlayers-1)
+!      pdp(nlayers) = pz(nlayers-1) - pz(nlayers)
+!      wkl(1,nlayers) = wkl(1,nlayers-1)
+!      wkl(2,nlayers) = wkl(2,nlayers-1)
+!      wkl(3,nlayers) = wkl(3,nlayers-1)
+!      wkl(4,nlayers) = wkl(4,nlayers-1)
+!      wkl(6,nlayers) = wkl(6,nlayers-1)
+!      wkl(7,nlayers) = wkl(7,nlayers-1)
+!      amm = (1._rb - wkl(1,nlayers-1)) * amd + wkl(1,nlayers-1) * amw
+!      coldry(nlayers) = (pz(nlayers-1)) * 1.e3_rb * avogad / &
+!                        (1.e2_rb * grav * amm * (1._rb + wkl(1,nlayers-1)))
+
+! At this point all molecular amounts in wkl are in volume mixing ratio; 
+! convert to molec/cm2 based on coldry for use in rrtm.  
+
+      do l = 1, nlayers
+         do imol = 1, nmol
+            wkl(imol,l) = coldry(l) * wkl(imol,l)
+         enddo
+      enddo
+
+! Transfer aerosol optical properties to RRTM variables;
+! modify to reverse layer indexing here if necessary.
+
+      if (iaer .ge. 1) then 
+         do l = 1, nlayers
+            do ib = 1, nbndsw
+               taua(l,ib) = tauaer(iplon,l,ib)
+               ssaa(l,ib) = ssaaer(iplon,l,ib)
+               asma(l,ib) = asmaer(iplon,l,ib)
+            enddo
+         enddo
+      endif
+
+! Transfer cloud fraction and cloud optical properties to RRTM variables;
+! modify to reverse layer indexing here if necessary.
+
+      if (icld .ge. 1) then 
+         inflag = inflgsw
+         iceflag = iceflgsw
+         liqflag = liqflgsw
+
+! Move incoming GCM cloud arrays to RRTMG cloud arrays.
+! For GCM input, incoming reicmcl is defined based on selected ice parameterization (inflglw)
+
+         do l = 1, nlayers
+            do ig = 1, ngptsw
+               cldfmc(ig,l) = cldfmcl(ig,iplon,l)
+               taucmc(ig,l) = taucmcl(ig,iplon,l)
+               ssacmc(ig,l) = ssacmcl(ig,iplon,l)
+               asmcmc(ig,l) = asmcmcl(ig,iplon,l)
+               fsfcmc(ig,l) = fsfcmcl(ig,iplon,l)
+               ciwpmc(ig,l) = ciwpmcl(ig,iplon,l)
+               clwpmc(ig,l) = clwpmcl(ig,iplon,l)
+            enddo
+            reicmc(l) = reicmcl(iplon,l)
+            relqmc(l) = relqmcl(iplon,l)
+         enddo
+
+! If an extra layer is being used in RRTMG, set all cloud properties to zero in the extra layer.
+
+!         cldfmc(:,nlayers) = 0.0_rb
+!         taucmc(:,nlayers) = 0.0_rb
+!         ssacmc(:,nlayers) = 1.0_rb
+!         asmcmc(:,nlayers) = 0.0_rb
+!         fsfcmc(:,nlayers) = 0.0_rb
+!         ciwpmc(:,nlayers) = 0.0_rb
+!         clwpmc(:,nlayers) = 0.0_rb
+!         reicmc(nlayers) = 0.0_rb
+!         relqmc(nlayers) = 0.0_rb
+      
+      endif
+
+      end subroutine inatm_sw
+
+      end module rrtmg_sw_rad
+
+
diff --git a/radiation/src/rrtmg_sw_rad.nomcica.f90 b/radiation/src/rrtmg_sw_rad.nomcica.f90
new file mode 100644
index 0000000000000000000000000000000000000000..e85687663a72f7192605c711af4335c7d2b85de7
--- /dev/null
+++ b/radiation/src/rrtmg_sw_rad.nomcica.f90
@@ -0,0 +1,1811 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+
+       module rrtmg_sw_rad
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+!
+! ****************************************************************************
+! *                                                                          *
+! *                             RRTMG_SW                                     *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                 a rapid radiative transfer model                         *
+! *                  for the solar spectral region                           *
+! *           for application to general circulation models                  *
+! *                                                                          *
+! *                                                                          *
+! *           Atmospheric and Environmental Research, Inc.                   *
+! *                       131 Hartwell Avenue                                *
+! *                       Lexington, MA 02421                                *
+! *                                                                          *
+! *                                                                          *
+! *                          Eli J. Mlawer                                   *
+! *                       Jennifer S. Delamere                               *
+! *                        Michael J. Iacono                                 *
+! *                        Shepard A. Clough                                 *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                                                                          *
+! *                      email:  emlawer@aer.com                             *
+! *                      email:  jdelamer@aer.com                            *
+! *                      email:  miacono@aer.com                             *
+! *                                                                          *
+! *       The authors wish to acknowledge the contributions of the           *
+! *       following people:  Steven J. Taubman, Patrick D. Brown,            *
+! *       Ronald E. Farren, Luke Chen, Robert Bergstrom.                     *
+! *                                                                          *
+! ****************************************************************************
+
+! --------- Modules ---------
+      use parkind, only : im => kind_im, rb => kind_rb
+      use rrsw_vsn
+      use rrtmg_sw_cldprop, only: cldprop_sw
+! *** Move the required call to rrtmg_sw_ini below and the following 
+! use association to GCM initialization area ***
+!      use rrtmg_sw_init, only: rrtmg_sw_ini
+      use rrtmg_sw_setcoef, only: setcoef_sw
+      use rrtmg_sw_spcvrt, only: spcvrt_sw
+
+      implicit none
+
+! public interfaces/functions/subroutines
+      public :: rrtmg_sw, inatm_sw, earth_sun
+
+!------------------------------------------------------------------
+      contains
+!------------------------------------------------------------------
+
+!------------------------------------------------------------------
+! Public subroutines
+!------------------------------------------------------------------
+      subroutine rrtmg_sw_copy_and_run &
+            (ncol    ,nlay    ,icld    ,iaer    , &
+             play    ,plev    ,tlay    ,tlev    ,tsfc    , &
+             h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr, &
+             asdir   ,asdif   ,aldir   ,aldif   , &
+             coszen  ,adjes   ,dyofyr  ,scon    ,isolvar, &
+             inflgsw ,iceflgsw ,liqflgsw ,cldfr   , &
+             taucld  ,ssacld  ,asmcld  ,fsfcld  , &
+             cicewp  ,cliqwp  ,reice   ,reliq   , &
+             tauaer  ,ssaaer  ,asmaer  ,ecaer   , &
+             swuflx  ,swdflx  ,swhr    ,swuflxc ,swdflxc ,swhrc, &
+! optional I/O
+             bndsolvar ,indsolvar ,solcycfrac)
+
+          use parrrsw, only : nbndsw, ngptsw, naerec, nstr, nmol, mxmol, &
+                  jpband, jpb1, jpb2
+          implicit none
+          ! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained
+          ! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol)
+          integer(kind=im), intent(in) :: ncol            ! Number of horizontal columns
+          integer(kind=im), intent(in) :: nlay           ! Number of model layers
+          integer(kind=im), intent(inout) :: icld         ! Cloud overlap method
+          !    0: Clear only
+          !    1: Random
+          !    2: Maximum/random
+          !    3: Maximum
+          integer(kind=im), intent(inout) :: iaer        ! Aerosol option flag
+          !    0: No aerosol
+          !    6: ECMWF method
+          !    10:Input aerosol optical
+          !       properties
+
+          real(kind=rb), dimension(*), intent(in) :: play(:)
+          real(kind=rb):: play_(ncol,nlay)          ! Layer pressures (hPa, mb)
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: plev(:)          ! Interface pressures (hPa, mb)
+          !    Dimensions: (ncol,nlay+1)
+          real(kind=rb), dimension(*), intent(in) :: tlay(:)          ! Layer temperatures (K)
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: tlev(:)         ! Interface temperatures (K)
+          !    Dimensions: (ncol,nlay+1)
+          real(kind=rb), dimension(*), intent(in) :: tsfc(:)            ! Surface temperature (K)
+          !    Dimensions: (ncol)
+          real(kind=rb), dimension(*), intent(in) :: h2ovmr(:)        ! H2O volume mixing ratio
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: o3vmr(:)         ! O3 volume mixing ratio
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: co2vmr(:)        ! CO2 volume mixing ratio
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: ch4vmr(:)       ! Methane volume mixing ratio
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: n2ovmr(:)       ! Nitrous oxide volume mixing ratio
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: o2vmr(:)        ! Oxygen volume mixing ratio
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: asdir(:)           ! UV/vis surface albedo direct rad
+          !    Dimensions: (ncol)
+          real(kind=rb), dimension(*), intent(in) :: aldir(:)           ! Near-IR surface albedo direct rad
+          !    Dimensions: (ncol)
+          real(kind=rb), dimension(*), intent(in) :: asdif(:)           ! UV/vis surface albedo: diffuse rad
+          !    Dimensions: (ncol)
+          real(kind=rb), dimension(*), intent(in) :: aldif(:)           ! Near-IR surface albedo: diffuse rad
+          !    Dimensions: (ncol)
+
+          integer(kind=im), dimension(*), intent(in) :: dyofyr          ! Day of the year (used to get Earth/Sun
+          !  distance if adjflx not provided)
+          real(kind=rb), dimension(*), intent(in) :: adjes              ! Flux adjustment for Earth/Sun distance
+          real(kind=rb), dimension(*), intent(in) :: coszen(:)          ! Cosine of solar zenith angle
+          !    Dimensions: (ncol)
+          real(kind=rb), intent(in) :: scon               ! Solar constant (W/m2)
+          !    Total solar irradiance averaged
+          !    over the solar cycle.
+          !    If scon = 0.0, the internal solar
+          !    constant, which depends on the
+          !    value of isolvar, will be used.
+          !    For isolvar=-1, scon=1368.22 Wm-2,
+          !    For isolvar=0,1,3, scon=1360.85 Wm-2,
+          !    If scon > 0.0, the internal solar
+          !    constant will be scaled to the
+          !    provided value of scon.
+          integer(kind=im), intent(in) :: isolvar         ! Flag for solar variability method
+          !   -1 = (when scon .eq. 0.0): No solar variability
+          !        and no solar cycle (Kurucz solar irradiance
+          !        of 1368.22 Wm-2 only);
+          !        (when scon .ne. 0.0): Kurucz solar irradiance
+          !        scaled to scon and solar variability defined
+          !        (optional) by setting non-zero scale factors
+          !        for each band in bndsolvar
+          !    0 = (when SCON .eq. 0.0): No solar variability
+          !        and no solar cycle (NRLSSI2 solar constant of
+          !        1360.85 Wm-2 for the 100-50000 cm-1 spectral
+          !        range only), with facular and sunspot effects
+          !        fixed to the mean of Solar Cycles 13-24;
+          !        (when SCON .ne. 0.0): No solar variability
+          !        and no solar cycle (NRLSSI2 solar constant of
+          !        1360.85 Wm-2 for the 100-50000 cm-1 spectral
+          !        range only), is scaled to SCON
+          !    1 = Solar variability (using NRLSSI2  solar
+          !        model) with solar cycle contribution
+          !        determined by fraction of solar cycle
+          !        with facular and sunspot variations
+          !        fixed to their mean variations over the
+          !        average of Solar Cycles 13-24;
+          !        two amplitude scale factors allow
+          !        facular and sunspot adjustments from
+          !        mean solar cycle as defined by indsolvar
+          !    2 = Solar variability (using NRLSSI2 solar
+          !        model) over solar cycle determined by
+          !        direct specification of Mg (facular)
+          !        and SB (sunspot) indices provided
+          !        in indsolvar (scon = 0.0 only)
+          !    3 = (when scon .eq. 0.0): No solar variability
+          !        and no solar cycle (NRLSSI2 solar irradiance
+          !        of 1360.85 Wm-2 only);
+          !        (when scon .ne. 0.0): NRLSSI2 solar irradiance
+          !        scaled to scon and solar variability defined
+          !        (optional) by setting non-zero scale factors
+          !        for each band in bndsolvar
+          real(kind=rb), intent(in), optional :: indsolvar(:) ! Facular and sunspot amplitude
+          ! scale factors (isolvar=1), or
+          ! Mg and SB indices (isolvar=2)
+          !    Dimensions: (2)
+          real(kind=rb), intent(in), optional :: bndsolvar(:) ! Solar variability scale factors
+          ! for each shortwave band
+          !    Dimensions: (nbndsw=14)
+          real(kind=rb), intent(in), optional :: solcycfrac   ! Fraction of averaged 11-year solar cycle (0-1)
+          !    at current time (isolvar=1)
+          !    0.0 represents the first day of year 1
+          !    1.0 represents the last day of year 11
+
+          integer(kind=im), intent(in) :: inflgsw         ! Flag for cloud optical properties
+          integer(kind=im), intent(in) :: iceflgsw        ! Flag for ice particle specification
+          integer(kind=im), intent(in) :: liqflgsw        ! Flag for liquid droplet specification
+
+          real(kind=rb), dimension(*), intent(in) :: cldfr(:)        ! Cloud fraction
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: taucld(:)    ! In-cloud optical depth
+          !    Dimensions: (nbndsw,ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: ssacld(:)      ! In-cloud single scattering albedo
+          !    Dimensions: (nbndsw,ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: asmcld(:)     ! In-cloud asymmetry parameter
+          !    Dimensions: (nbndsw,ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: fsfcld(:)      ! In-cloud forward scattering fraction
+          !    Dimensions: (nbndsw,ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: cicewp(:)        ! In-cloud ice water path (g/m2)
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: cliqwp(:)       ! In-cloud liquid water path (g/m2)
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: reice(:)        ! Cloud ice effective radius (microns)
+          !    Dimensions: (ncol,nlay)
+          ! specific definition of reice depends on setting of iceflgsw:
+          ! iceflgsw = 0: (inactive)
+          !
+          ! iceflgsw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+          !               r_ec range is limited to 13.0 to 130.0 microns
+          ! iceflgsw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+          !               r_k range is limited to 5.0 to 131.0 microns
+          ! iceflgsw = 3: generalized effective size, dge, (Fu, 1996),
+          !               dge range is limited to 5.0 to 140.0 microns
+          !               [dge = 1.0315 * r_ec]
+          real(kind=rb), dimension(*), intent(in) :: reliq(:)         ! Cloud water drop effective radius (microns)
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: tauaer(:)      ! Aerosol optical depth (iaer=10 only)
+          !    Dimensions: (ncol,nlay,nbndsw)
+          ! (non-delta scaled)
+          real(kind=rb), dimension(*), intent(in) :: ssaaer(:)      ! Aerosol single scattering albedo (iaer=10 only)
+          !    Dimensions: (ncol,nlay,nbndsw)
+          ! (non-delta scaled)
+          real(kind=rb), dimension(*), intent(in) :: asmaer(:)     ! Aerosol asymmetry parameter (iaer=10 only)
+          !    Dimensions: (ncol,nlay,nbndsw)
+          ! (non-delta scaled)
+          real(kind=rb), dimension(*), intent(in) :: ecaer(:)       ! Aerosol optical depth at 0.55 micron (iaer=6 only)
+          !    Dimensions: (ncol,nlay,naerec)
+          ! (non-delta scaled)
+
+          ! ----- Output -----
+
+          real(kind=rb), dimension(*), intent(in) :: swuflx(:)       ! Total sky shortwave upward flux (W/m2)
+          !    Dimensions: (ncol,nlay+1)
+          real(kind=rb), dimension(*), intent(in) :: swdflx(:)       ! Total sky shortwave downward flux (W/m2)
+          !    Dimensions: (ncol,nlay+1)
+          real(kind=rb), dimension(*), intent(in) :: swhr(:)         ! Total sky shortwave radiative heating rate (K/d)
+          !    Dimensions: (ncol,nlay)
+          real(kind=rb), dimension(*), intent(in) :: swuflxc(:)      ! Clear sky shortwave upward flux (W/m2)
+          !    Dimensions: (ncol,nlay+1)
+          real(kind=rb), dimension(*), intent(in) :: swdflxc(:)      ! Clear sky shortwave downward flux (W/m2)
+          !    Dimensions: (ncol,nlay+1)
+          real(kind=rb), dimension(*), intent(in) :: swhrc(:)        ! Clear sky shortwave radiative heating rate (K/d)
+          !    Dimensions: (ncol,nlay)
+
+
+
+      end subroutine  rrtmg_sw_copy_and_run
+
+      subroutine rrtmg_sw &
+            (ncol    ,nlay    ,icld    ,iaer    , &
+             play    ,plev    ,tlay    ,tlev    ,tsfc    , &
+             h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr, &
+             asdir   ,asdif   ,aldir   ,aldif   , &
+             coszen  ,adjes   ,dyofyr  ,scon    ,isolvar, &
+             inflgsw ,iceflgsw,liqflgsw,cldfr   , &
+             taucld  ,ssacld  ,asmcld  ,fsfcld  , &
+             cicewp  ,cliqwp  ,reice   ,reliq   , &
+             tauaer  ,ssaaer  ,asmaer  ,ecaer   , &
+             swuflx  ,swdflx  ,swhr    ,swuflxc ,swdflxc ,swhrc, &
+! optional I/O
+             bndsolvar,indsolvar,solcycfrac)
+! ------- Description -------
+
+! This program is the driver for RRTMG_SW, the AER SW radiation model for 
+!  application to GCMs, that has been adapted from RRTM_SW for improved
+!  efficiency and to provide fractional cloudiness and cloud overlap
+!  capability using McICA.
+!
+! Note: The call to RRTMG_SW_INI should be moved to the GCM initialization 
+!  area, since this has to be called only once. 
+!
+! This routine
+!    b) calls INATM_SW to read in the atmospheric profile from GCM;
+!       all layering in RRTMG is ordered from surface to toa. 
+!    c) calls CLDPROP_SW to set cloud optical depth based on input
+!       cloud properties
+!    d) calls SETCOEF_SW to calculate various quantities needed for 
+!       the radiative transfer algorithm
+!    e) calls SPCVRT to call the two-stream model that in turn 
+!       calls TAUMOL to calculate gaseous optical depths for each 
+!       of the 16 spectral bands and to perform the radiative transfer;
+!    f) passes the calculated fluxes and cooling rates back to GCM
+!
+! Two modes of operation are possible:
+!     The mode is chosen by using either rrtmg_sw.nomcica.f90 (to not use
+!     McICA) or rrtmg_sw.f90 (to use McICA) to interface with a GCM.
+!
+!    1) Standard, single forward model calculation (imca = 0); this is 
+!       valid only for clear sky or fully overcast clouds
+!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., 
+!       JC, 2003) method is applied to the forward model calculation (imca = 1)
+!       This method is valid for clear sky and full or partial cloud conditions.
+!
+! Two methods of cloud property input are possible:
+!     Cloud properties can be input in one of two ways (controlled by input 
+!     flags inflag, iceflag and liqflag; see text file rrtmg_sw_instructions
+!     and subroutine rrtmg_sw_cldprop.f90 for further details):
+!
+!    1) Input cloud fraction, cloud optical depth, single scattering albedo 
+!       and asymmetry parameter directly (inflgsw = 0)
+!    2) Input cloud fraction and cloud physical properties: ice fracion,
+!       ice and liquid particle sizes (inflgsw = 1 or 2);  
+!       cloud optical properties are calculated by cldprop or cldprmc based
+!       on input settings of iceflgsw and liqflgsw
+!
+! Two methods of aerosol property input are possible:
+!     Aerosol properties can be input in one of two ways (controlled by input 
+!     flag iaer, see text file rrtmg_sw_instructions for further details):
+!
+!    1) Input aerosol optical depth, single scattering albedo and asymmetry
+!       parameter directly by layer and spectral band (iaer=10)
+!    2) Input aerosol optical depth and 0.55 micron directly by layer and use
+!       one or more of six ECMWF aerosol types (iaer=6)
+!
+!
+! ------- Modifications -------
+!
+! This version of RRTMG_SW has been modified from RRTM_SW to use a reduced
+! set of g-point intervals and a two-stream model for application to GCMs. 
+!
+!-- Original version (derived from RRTM_SW)
+!     2002: AER. Inc.
+!-- Conversion to F90 formatting; addition of 2-stream radiative transfer
+!     Feb 2003: J.-J. Morcrette, ECMWF
+!-- Additional modifications for GCM application
+!     Aug 2003: M. J. Iacono, AER Inc.
+!-- Total number of g-points reduced from 224 to 112.  Original
+!   set of 224 can be restored by exchanging code in module parrrsw.f90 
+!   and in file rrtmg_sw_init.f90.
+!     Apr 2004: M. J. Iacono, AER, Inc.
+!-- Modifications to include output for direct and diffuse 
+!   downward fluxes.  There are output as "true" fluxes without
+!   any delta scaling applied.  Code can be commented to exclude
+!   this calculation in source file rrtmg_sw_spcvrt.f90.
+!     Jan 2005: E. J. Mlawer, M. J. Iacono, AER, Inc.
+!-- Reformatted for consistency with rrtmg_lw.
+!     Feb 2007: M. J. Iacono, AER, Inc.
+!-- Modifications to formatting to use assumed-shape arrays. 
+!     Aug 2007: M. J. Iacono, AER, Inc.
+!-- Modified to output direct and diffuse fluxes either with or without
+!   delta scaling based on setting of idelm flag. 
+!     Dec 2008: M. J. Iacono, AER, Inc.
+!-- Revised to add new solar variability options based on the
+!   NRLSSI2 solar model
+!     Dec 2016: M. J. Iacono, AER
+
+! --------- Modules ---------
+
+      use parrrsw, only : nbndsw, ngptsw, naerec, nstr, nmol, mxmol, &
+                          jpband, jpb1, jpb2
+      use rrsw_aer, only : rsrtaua, rsrpiza, rsrasya
+      use rrsw_con, only : heatfac, oneminus, pi
+      use rrsw_wvn, only : wavenum1, wavenum2
+
+! ------- Declarations
+
+! ----- Input -----
+! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained
+! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) 
+      integer(kind=im), intent(in) :: ncol            ! Number of horizontal columns     
+      integer(kind=im), intent(in) :: nlay            ! Number of model layers
+      integer(kind=im), intent(inout) :: icld         ! Cloud overlap method
+                                                      !    0: Clear only
+                                                      !    1: Random
+                                                      !    2: Maximum/random
+                                                      !    3: Maximum
+      integer(kind=im), intent(inout) :: iaer         ! Aerosol option flag
+                                                      !    0: No aerosol
+                                                      !    6: ECMWF method
+                                                      !    10:Input aerosol optical 
+                                                      !       properties
+
+      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: asdir(:)           ! UV/vis surface albedo direct rad
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: aldir(:)           ! Near-IR surface albedo direct rad
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: asdif(:)           ! UV/vis surface albedo: diffuse rad
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: aldif(:)           ! Near-IR surface albedo: diffuse rad
+                                                      !    Dimensions: (ncol)
+
+      integer(kind=im), intent(in) :: dyofyr          ! Day of the year (used to get Earth/Sun
+                                                      !  distance if adjflx not provided)
+      real(kind=rb), intent(in) :: adjes              ! Flux adjustment for Earth/Sun distance
+      real(kind=rb), intent(in) :: coszen(:)          ! Cosine of solar zenith angle
+                                                      !    Dimensions: (ncol)
+      real(kind=rb), intent(in) :: scon               ! Solar constant (W/m2)
+                                                      !    Total solar irradiance averaged 
+                                                      !    over the solar cycle.
+                                                      !    If scon = 0.0, the internal solar 
+                                                      !    constant, which depends on the  
+                                                      !    value of isolvar, will be used. 
+                                                      !    For isolvar=-1, scon=1368.22 Wm-2,
+                                                      !    For isolvar=0,1,3, scon=1360.85 Wm-2,
+                                                      !    If scon > 0.0, the internal solar
+                                                      !    constant will be scaled to the 
+                                                      !    provided value of scon.
+      integer(kind=im), intent(in) :: isolvar         ! Flag for solar variability method
+                                                      !   -1 = (when scon .eq. 0.0): No solar variability
+                                                      !        and no solar cycle (Kurucz solar irradiance
+                                                      !        of 1368.22 Wm-2 only);
+                                                      !        (when scon .ne. 0.0): Kurucz solar irradiance
+                                                      !        scaled to scon and solar variability defined
+                                                      !        (optional) by setting non-zero scale factors
+                                                      !        for each band in bndsolvar
+                                                      !    0 = (when SCON .eq. 0.0): No solar variability 
+                                                      !        and no solar cycle (NRLSSI2 solar constant of 
+                                                      !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                                      !        range only), with facular and sunspot effects 
+                                                      !        fixed to the mean of Solar Cycles 13-24;
+                                                      !        (when SCON .ne. 0.0): No solar variability 
+                                                      !        and no solar cycle (NRLSSI2 solar constant of 
+                                                      !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                                      !        range only), is scaled to SCON
+                                                      !    1 = Solar variability (using NRLSSI2  solar
+                                                      !        model) with solar cycle contribution
+                                                      !        determined by fraction of solar cycle
+                                                      !        with facular and sunspot variations
+                                                      !        fixed to their mean variations over the
+                                                      !        average of Solar Cycles 13-24;
+                                                      !        two amplitude scale factors allow
+                                                      !        facular and sunspot adjustments from
+                                                      !        mean solar cycle as defined by indsolvar 
+                                                      !    2 = Solar variability (using NRLSSI2 solar
+                                                      !        model) over solar cycle determined by 
+                                                      !        direct specification of Mg (facular)
+                                                      !        and SB (sunspot) indices provided
+                                                      !        in indsolvar (scon = 0.0 only)
+                                                      !    3 = (when scon .eq. 0.0): No solar variability
+                                                      !        and no solar cycle (NRLSSI2 solar irradiance
+                                                      !        of 1360.85 Wm-2 only);
+                                                      !        (when scon .ne. 0.0): NRLSSI2 solar irradiance
+                                                      !        scaled to scon and solar variability defined
+                                                      !        (optional) by setting non-zero scale factors
+                                                      !        for each band in bndsolvar
+      real(kind=rb), intent(in), optional :: indsolvar(:) ! Facular and sunspot amplitude 
+                                                          ! scale factors (isolvar=1), or
+                                                          ! Mg and SB indices (isolvar=2)
+                                                          !    Dimensions: (2)
+      real(kind=rb), intent(in), optional :: bndsolvar(:) ! Solar variability scale factors 
+                                                          ! for each shortwave band
+                                                          !    Dimensions: (nbndsw=14)
+      real(kind=rb), intent(in), optional :: solcycfrac   ! Fraction of averaged 11-year solar cycle (0-1)
+                                                          !    at current time (isolvar=1)
+                                                          !    0.0 represents the first day of year 1
+                                                          !    1.0 represents the last day of year 11
+
+      integer(kind=im), intent(in) :: inflgsw         ! Flag for cloud optical properties
+      integer(kind=im), intent(in) :: iceflgsw        ! Flag for ice particle specification
+      integer(kind=im), intent(in) :: liqflgsw        ! Flag for liquid droplet specification
+
+      real(kind=rb), intent(in) :: cldfr(:,:)         ! Cloud fraction
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: taucld(:,:,:)      ! In-cloud optical depth
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: ssacld(:,:,:)      ! In-cloud single scattering albedo
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: asmcld(:,:,:)      ! In-cloud asymmetry parameter
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: fsfcld(:,:,:)      ! In-cloud forward scattering fraction
+                                                      !    Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: cicewp(:,:)        ! In-cloud ice water path (g/m2)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cliqwp(:,:)        ! In-cloud liquid water path (g/m2)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: reice(:,:)         ! Cloud ice effective radius (microns)
+                                                      !    Dimensions: (ncol,nlay)
+                                                      ! specific definition of reice depends on setting of iceflgsw:
+                                                      ! iceflgsw = 0: (inactive)
+                                                      !              
+                                                      ! iceflgsw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),
+                                                      !               r_ec range is limited to 13.0 to 130.0 microns
+                                                      ! iceflgsw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)
+                                                      !               r_k range is limited to 5.0 to 131.0 microns
+                                                      ! iceflgsw = 3: generalized effective size, dge, (Fu, 1996),
+                                                      !               dge range is limited to 5.0 to 140.0 microns
+                                                      !               [dge = 1.0315 * r_ec]
+      real(kind=rb), intent(in) :: reliq(:,:)         ! Cloud water drop effective radius (microns)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth (iaer=10 only)
+                                                      !    Dimensions: (ncol,nlay,nbndsw)
+                                                      ! (non-delta scaled)      
+      real(kind=rb), intent(in) :: ssaaer(:,:,:)      ! Aerosol single scattering albedo (iaer=10 only)
+                                                      !    Dimensions: (ncol,nlay,nbndsw)
+                                                      ! (non-delta scaled)      
+      real(kind=rb), intent(in) :: asmaer(:,:,:)      ! Aerosol asymmetry parameter (iaer=10 only)
+                                                      !    Dimensions: (ncol,nlay,nbndsw)
+                                                      ! (non-delta scaled)      
+      real(kind=rb), intent(in) :: ecaer(:,:,:)       ! Aerosol optical depth at 0.55 micron (iaer=6 only)
+                                                      !    Dimensions: (ncol,nlay,naerec)
+                                                      ! (non-delta scaled)      
+
+! ----- Output -----
+
+      real(kind=rb), intent(out) :: swuflx(:,:)       ! Total sky shortwave upward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: swdflx(:,:)       ! Total sky shortwave downward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: swhr(:,:)         ! Total sky shortwave radiative heating rate (K/d)
+                                                      !    Dimensions: (ncol,nlay)
+      real(kind=rb), intent(out) :: swuflxc(:,:)      ! Clear sky shortwave upward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: swdflxc(:,:)      ! Clear sky shortwave downward flux (W/m2)
+                                                      !    Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(out) :: swhrc(:,:)        ! Clear sky shortwave radiative heating rate (K/d)
+                                                      !    Dimensions: (ncol,nlay)
+
+! ----- Local -----
+
+! Control
+      integer(kind=im) :: nlayers             ! total number of layers
+      integer(kind=im) :: istart              ! beginning band of calculation
+      integer(kind=im) :: iend                ! ending band of calculation
+      integer(kind=im) :: icpr                ! cldprop/cldprmc use flag
+      integer(kind=im) :: iout                ! output option flag
+      integer(kind=im) :: idelm               ! delta-m scaling flag
+                                              ! [0 = direct and diffuse fluxes are unscaled]
+                                              ! [1 = direct and diffuse fluxes are scaled]
+                                              ! (total downward fluxes are always delta scaled)
+      integer(kind=im) :: isccos              ! instrumental cosine response flag (inactive)
+      integer(kind=im) :: iplon               ! column loop index
+      integer(kind=im) :: i                   ! layer loop index                       ! jk
+      integer(kind=im) :: ib                  ! band loop index                        ! jsw
+      integer(kind=im) :: ia, ig              ! indices
+      integer(kind=im) :: k                   ! layer loop index
+      integer(kind=im) :: ims                 ! value for changing mcica permute seed
+      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]
+
+      real(kind=rb) :: zepsec, zepzen         ! epsilon
+      real(kind=rb) :: zdpgcp                 ! flux to heating conversion ratio
+
+! Atmosphere
+      real(kind=rb) :: pavel(nlay+1)          ! layer pressures (mb) 
+      real(kind=rb) :: tavel(nlay+1)          ! layer temperatures (K)
+      real(kind=rb) :: pz(0:nlay+1)           ! level (interface) pressures (hPa, mb)
+      real(kind=rb) :: tz(0:nlay+1)           ! level (interface) temperatures (K)
+      real(kind=rb) :: tbound                 ! surface temperature (K)
+      real(kind=rb) :: pdp(nlay+1)            ! layer pressure thickness (hPa, mb)
+      real(kind=rb) :: coldry(nlay+1)         ! dry air column amount
+      real(kind=rb) :: wkl(mxmol,nlay+1)      ! molecular amounts (mol/cm-2)
+
+!      real(kind=rb) :: earth_sun             ! function for Earth/Sun distance factor
+      real(kind=rb) :: cossza                 ! Cosine of solar zenith angle
+      real(kind=rb) :: adjflux(jpband)        ! adjustment for current Earth/Sun distance
+      real(kind=rb) :: albdir(nbndsw)         ! surface albedo, direct          ! zalbp
+      real(kind=rb) :: albdif(nbndsw)         ! surface albedo, diffuse         ! zalbd
+
+      real(kind=rb) :: taua(nlay+1,nbndsw)    ! Aerosol optical depth
+      real(kind=rb) :: ssaa(nlay+1,nbndsw)    ! Aerosol single scattering albedo
+      real(kind=rb) :: asma(nlay+1,nbndsw)    ! Aerosol asymmetry parameter
+
+! Atmosphere - setcoef
+      integer(kind=im) :: laytrop             ! tropopause layer index
+      integer(kind=im) :: layswtch            ! tropopause layer index
+      integer(kind=im) :: laylow              ! tropopause layer index
+      integer(kind=im) :: jp(nlay+1)          ! 
+      integer(kind=im) :: jt(nlay+1)          !
+      integer(kind=im) :: jt1(nlay+1)         !
+
+      real(kind=rb) :: colh2o(nlay+1)         ! column amount (h2o)
+      real(kind=rb) :: colco2(nlay+1)         ! column amount (co2)
+      real(kind=rb) :: colo3(nlay+1)          ! column amount (o3)
+      real(kind=rb) :: coln2o(nlay+1)         ! column amount (n2o)
+      real(kind=rb) :: colch4(nlay+1)         ! column amount (ch4)
+      real(kind=rb) :: colo2(nlay+1)          ! column amount (o2)
+      real(kind=rb) :: colmol(nlay+1)         ! column amount
+      real(kind=rb) :: co2mult(nlay+1)        ! column amount 
+
+      integer(kind=im) :: indself(nlay+1)
+      integer(kind=im) :: indfor(nlay+1)
+      real(kind=rb) :: selffac(nlay+1)
+      real(kind=rb) :: selffrac(nlay+1)
+      real(kind=rb) :: forfac(nlay+1)
+      real(kind=rb) :: forfrac(nlay+1)
+
+      real(kind=rb) :: &                      !
+                         fac00(nlay+1), fac01(nlay+1), &
+                         fac10(nlay+1), fac11(nlay+1) 
+
+! Atmosphere/clouds - cldprop
+      integer(kind=im) :: ncbands             ! number of cloud spectral bands
+      integer(kind=im) :: inflag              ! flag for cloud property method
+      integer(kind=im) :: iceflag             ! flag for ice cloud properties
+      integer(kind=im) :: liqflag             ! flag for liquid cloud properties
+
+      real(kind=rb) :: cldfrac(nlay+1)        ! layer cloud fraction
+      real(kind=rb) :: tauc(nbndsw,nlay+1)    ! in-cloud optical depth (non-delta scaled)
+      real(kind=rb) :: ssac(nbndsw,nlay+1)    ! in-cloud single scattering albedo (non-delta scaled)
+      real(kind=rb) :: asmc(nbndsw,nlay+1)    ! in-cloud asymmetry parameter (non-delta scaled)
+      real(kind=rb) :: fsfc(nbndsw,nlay+1)    ! in-cloud forward scattering fraction (non-delta scaled)
+      real(kind=rb) :: ciwp(nlay+1)           ! in-cloud ice water path
+      real(kind=rb) :: clwp(nlay+1)           ! in-cloud liquid water path
+      real(kind=rb) :: rel(nlay+1)            ! cloud liquid particle effective radius (microns)
+      real(kind=rb) :: rei(nlay+1)            ! cloud ice particle effective size (microns)
+
+      real(kind=rb) :: taucloud(nlay+1,jpband)  ! in-cloud optical depth
+      real(kind=rb) :: taucldorig(nlay+1,jpband)! in-cloud optical depth (non-delta scaled)
+      real(kind=rb) :: ssacloud(nlay+1,jpband)  ! in-cloud single scattering albedo
+      real(kind=rb) :: asmcloud(nlay+1,jpband)  ! in-cloud asymmetry parameter
+
+! Atmosphere/clouds/aerosol - spcvrt,spcvmc
+      real(kind=rb) :: ztauc(nlay+1,nbndsw)     ! cloud optical depth
+      real(kind=rb) :: ztaucorig(nlay+1,nbndsw) ! unscaled cloud optical depth
+      real(kind=rb) :: zasyc(nlay+1,nbndsw)     ! cloud asymmetry parameter 
+                                                !  (first moment of phase function)
+      real(kind=rb) :: zomgc(nlay+1,nbndsw)     ! cloud single scattering albedo
+      real(kind=rb) :: ztaua(nlay+1,nbndsw)     ! total aerosol optical depth
+      real(kind=rb) :: zasya(nlay+1,nbndsw)     ! total aerosol asymmetry parameter 
+      real(kind=rb) :: zomga(nlay+1,nbndsw)     ! total aerosol single scattering albedo
+
+      real(kind=rb) :: zbbfu(nlay+2)          ! temporary upward shortwave flux (w/m2)
+      real(kind=rb) :: zbbfd(nlay+2)          ! temporary downward shortwave flux (w/m2)
+      real(kind=rb) :: zbbcu(nlay+2)          ! temporary clear sky upward shortwave flux (w/m2)
+      real(kind=rb) :: zbbcd(nlay+2)          ! temporary clear sky downward shortwave flux (w/m2)
+      real(kind=rb) :: zbbfddir(nlay+2)       ! temporary downward direct shortwave flux (w/m2)
+      real(kind=rb) :: zbbcddir(nlay+2)       ! temporary clear sky downward direct shortwave flux (w/m2)
+      real(kind=rb) :: zuvfd(nlay+2)          ! temporary UV downward shortwave flux (w/m2)
+      real(kind=rb) :: zuvcd(nlay+2)          ! temporary clear sky UV downward shortwave flux (w/m2)
+      real(kind=rb) :: zuvfddir(nlay+2)       ! temporary UV downward direct shortwave flux (w/m2)
+      real(kind=rb) :: zuvcddir(nlay+2)       ! temporary clear sky UV downward direct shortwave flux (w/m2)
+      real(kind=rb) :: znifd(nlay+2)          ! temporary near-IR downward shortwave flux (w/m2)
+      real(kind=rb) :: znicd(nlay+2)          ! temporary clear sky near-IR downward shortwave flux (w/m2)
+      real(kind=rb) :: znifddir(nlay+2)       ! temporary near-IR downward direct shortwave flux (w/m2)
+      real(kind=rb) :: znicddir(nlay+2)       ! temporary clear sky near-IR downward direct shortwave flux (w/m2)
+
+! Optional output fields 
+      real(kind=rb) :: swnflx(nlay+2)         ! Total sky shortwave net flux (W/m2)
+      real(kind=rb) :: swnflxc(nlay+2)        ! Clear sky shortwave net flux (W/m2)
+      real(kind=rb) :: dirdflux(nlay+2)       ! Direct downward shortwave surface flux
+      real(kind=rb) :: difdflux(nlay+2)       ! Diffuse downward shortwave surface flux
+      real(kind=rb) :: uvdflx(nlay+2)         ! Total sky downward shortwave flux, UV/vis  
+      real(kind=rb) :: nidflx(nlay+2)         ! Total sky downward shortwave flux, near-IR 
+      real(kind=rb) :: dirdnuv(nlay+2)        ! Direct downward shortwave flux, UV/vis
+      real(kind=rb) :: difdnuv(nlay+2)        ! Diffuse downward shortwave flux, UV/vis
+      real(kind=rb) :: dirdnir(nlay+2)        ! Direct downward shortwave flux, near-IR
+      real(kind=rb) :: difdnir(nlay+2)        ! Diffuse downward shortwave flux, near-IR
+
+! Output - inactive
+!      real(kind=rb) :: zuvfu(nlay+2)         ! temporary upward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zuvfd(nlay+2)         ! temporary downward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zuvcu(nlay+2)         ! temporary clear sky upward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zuvcd(nlay+2)         ! temporary clear sky downward UV shortwave flux (w/m2)
+!      real(kind=rb) :: zvsfu(nlay+2)         ! temporary upward visible shortwave flux (w/m2)
+!      real(kind=rb) :: zvsfd(nlay+2)         ! temporary downward visible shortwave flux (w/m2)
+!      real(kind=rb) :: zvscu(nlay+2)         ! temporary clear sky upward visible shortwave flux (w/m2)
+!      real(kind=rb) :: zvscd(nlay+2)         ! temporary clear sky downward visible shortwave flux (w/m2)
+!      real(kind=rb) :: znifu(nlay+2)         ! temporary upward near-IR shortwave flux (w/m2)
+!      real(kind=rb) :: znifd(nlay+2)         ! temporary downward near-IR shortwave flux (w/m2)
+!      real(kind=rb) :: znicu(nlay+2)         ! temporary clear sky upward near-IR shortwave flux (w/m2)
+!      real(kind=rb) :: znicd(nlay+2)         ! temporary clear sky downward near-IR shortwave flux (w/m2)
+
+! Solar variability
+      real(kind=rb) :: svar_f                 ! Solar variability facular multiplier
+      real(kind=rb) :: svar_s                 ! Solar variability sunspot multiplier
+      real(kind=rb) :: svar_i                 ! Solar variability baseline irradiance multiplier
+      real(kind=rb) :: svar_f_bnd(jpband)     ! Solar variability facular multiplier (by band)
+      real(kind=rb) :: svar_s_bnd(jpband)     ! Solar variability sunspot multiplier (by band)
+      real(kind=rb) :: svar_i_bnd(jpband)     ! Solar variability baseline irradiance multiplier (by band)
+
+
+! Initializations
+
+      zepsec = 1.e-06_rb
+      zepzen = 1.e-10_rb
+      oneminus = 1.0_rb - zepsec
+      pi = 2._rb * asin(1._rb)
+
+      istart = jpb1
+      iend = jpb2
+      iout = 0
+      icpr = 0
+
+! In a GCM with or without McICA, set nlon to the longitude dimension
+!
+! Set imca to select calculation type:
+!  imca = 0, use standard forward model calculation (clear and overcast only)
+!  imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability
+!            (clear, overcast or partial cloud conditions)
+
+! *** This version does not use McICA (imca = 0) ***
+
+! Set icld to select of clear or cloud calculation and cloud 
+! overlap method (read by subroutine readprof from input file INPUT_RRTM):  
+! Without McICA, SW calculation is limited to clear or fully overcast conditions. 
+! icld = 0, clear only
+! icld = 1, with clouds using random cloud overlap (McICA only)
+! icld = 2, with clouds using maximum/random cloud overlap (McICA only)
+! icld = 3, with clouds using maximum cloud overlap (McICA only)
+      if (icld.lt.0.or.icld.gt.3) icld = 2
+
+! Set iaer to select aerosol option
+! iaer = 0, no aerosols
+! iaer = 6, use six ECMWF aerosol types
+!           input aerosol optical depth at 0.55 microns for each aerosol type (ecaer)
+! iaer = 10, input total aerosol optical depth, single scattering albedo 
+!            and asymmetry parameter (tauaer, ssaaer, asmaer) directly
+      if (iaer.ne.0.and.iaer.ne.6.and.iaer.ne.10) iaer = 0
+
+! Set idelm to select between delta-M scaled or unscaled output direct and diffuse fluxes
+! NOTE: total downward fluxes are always delta scaled
+! idelm = 0, output direct and diffuse flux components are not delta scaled
+!            (direct flux does not include forward scattering peak)
+! idelm = 1, output direct and diffuse flux components are delta scaled (default)
+!            (direct flux includes part or most of forward scattering peak)
+      idelm = 1
+
+! Call model and data initialization, compute lookup tables, perform
+! reduction of g-points from 224 to 112 for input absorption
+! coefficient data and other arrays.
+!
+! In a GCM this call should be placed in the model initialization
+! area, since this has to be called only once.  
+!      call rrtmg_sw_ini(cpdair)
+
+! This is the main longitude/column loop in RRTMG.
+! Modify to loop over all columns (nlon) or over daylight columns
+
+      do iplon = 1, ncol
+
+! Prepare atmosphere profile from GCM for use in RRTMG, and define
+! other input parameters
+
+         call inatm_sw (iplon, nlay, icld, iaer, &
+              play, plev, tlay, tlev, tsfc, h2ovmr, &
+              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, &
+              adjes, dyofyr, scon, isolvar, &
+              inflgsw, iceflgsw, liqflgsw, &
+              cldfr, taucld, ssacld, asmcld, fsfcld, cicewp, cliqwp, &
+              reice, reliq, tauaer, ssaaer, asmaer, &
+              nlayers, pavel, pz, pdp, tavel, tz, tbound, coldry, wkl, &
+              adjflux, inflag, iceflag, liqflag, cldfrac, tauc, &
+              ssac, asmc, fsfc, ciwp, clwp, rei, rel, taua, ssaa, asma, &
+! solar variability
+              svar_f, svar_s, svar_i, svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+! optional
+              bndsolvar,indsolvar,solcycfrac)
+
+!  For cloudy atmosphere, use cldprop to set cloud optical properties based on
+!  input cloud physical properties.  Select method based on choices described
+!  in cldprop.  Cloud fraction, water path, liquid droplet and ice particle
+!  effective radius must be passed in cldprop.  Cloud fraction and cloud
+!  optical properties are transferred to rrtmg_sw arrays in cldprop.  
+
+!  Without McICA, SW calculation is limited to clear or fully overcast conditions. 
+!  Stop model if partial cloudiness is present.  
+
+         do i = 1, nlayers
+            if (cldfrac(i).gt.zepsec .and. cldfrac(i).lt.oneminus) then
+               stop 'PARTIAL CLOUD NOT ALLOWED'
+            endif
+         enddo
+         call cldprop_sw(nlayers, inflag, iceflag, liqflag, cldfrac, &
+                         tauc, ssac, asmc, fsfc, ciwp, clwp, rei, rel, &
+                         taucldorig, taucloud, ssacloud, asmcloud)
+         icpr = 1
+
+! Calculate coefficients for the temperature and pressure dependence of the 
+! molecular absorption coefficients by interpolating data from stored
+! reference atmospheres.
+
+         call setcoef_sw(nlayers, pavel, tavel, pz, tz, tbound, coldry, wkl, &
+                         laytrop, layswtch, laylow, jp, jt, jt1, &
+                         co2mult, colch4, colco2, colh2o, colmol, coln2o, &
+                         colo2, colo3, fac00, fac01, fac10, fac11, &
+                         selffac, selffrac, indself, forfac, forfrac, indfor)
+
+
+! Cosine of the solar zenith angle 
+!  Prevent using value of zero; ideally, SW model is not called from host model when sun 
+!  is below horizon
+
+         cossza = coszen(iplon)
+         if (cossza .lt. zepzen) cossza = zepzen
+
+
+! Transfer albedo, cloud and aerosol properties into arrays for 2-stream radiative transfer 
+
+! Surface albedo
+!  Near-IR bands 16-24 and 29 (1-9 and 14), 820-16000 cm-1, 0.625-12.195 microns
+         do ib=1,9
+            albdir(ib) = aldir(iplon)
+            albdif(ib) = aldif(iplon)
+         enddo
+         albdir(nbndsw) = aldir(iplon)
+         albdif(nbndsw) = aldif(iplon)
+!  UV/visible bands 25-28 (10-13), 16000-50000 cm-1, 0.200-0.625 micron
+         do ib=10,13
+            albdir(ib) = asdir(iplon)
+            albdif(ib) = asdif(iplon)
+         enddo
+
+
+! Clouds
+         if (icld.eq.0) then
+
+            ztauc(:,:) = 0._rb
+            ztaucorig(:,:) = 0._rb
+            zasyc(:,:) = 0._rb
+            zomgc(:,:) = 1._rb
+
+         elseif (icld.ge.1) then
+            do i=1,nlayers
+               do ib=1,nbndsw
+                  ztauc(i,ib) = taucloud(i,jpb1-1+ib)
+                  ztaucorig(i,ib) = taucldorig(i,jpb1-1+ib)
+                  zasyc(i,ib) = asmcloud(i,jpb1-1+ib)
+                  zomgc(i,ib) = ssacloud(i,jpb1-1+ib)
+               enddo
+            enddo
+
+         endif   
+
+! Aerosol
+! IAER = 0: no aerosols
+         if (iaer.eq.0) then
+
+            ztaua(:,:) = 0._rb
+            zasya(:,:) = 0._rb
+            zomga(:,:) = 1._rb
+
+! IAER = 6: Use ECMWF six aerosol types. See rrsw_aer.f90 for details.
+! Input aerosol optical thickness at 0.55 micron for each aerosol type (ecaer), 
+! or set manually here for each aerosol and layer.
+         elseif (iaer.eq.6) then
+
+!            do i = 1, nlayers
+!               do ia = 1, naerec
+!                  ecaer(iplon,i,ia) = 1.0e-15_rb
+!               enddo
+!            enddo
+
+            do i = 1, nlayers
+               do ib = 1, nbndsw
+                  ztaua(i,ib) = 0._rb
+                  zasya(i,ib) = 0._rb
+                  zomga(i,ib) = 0._rb
+                  do ia = 1, naerec
+                     ztaua(i,ib) = ztaua(i,ib) + rsrtaua(ib,ia) * ecaer(iplon,i,ia)
+                     zomga(i,ib) = zomga(i,ib) + rsrtaua(ib,ia) * ecaer(iplon,i,ia) * &
+                                   rsrpiza(ib,ia)
+                     zasya(i,ib) = zasya(i,ib) + rsrtaua(ib,ia) * ecaer(iplon,i,ia) * &
+                                   rsrpiza(ib,ia) * rsrasya(ib,ia)
+                  enddo
+                  if (ztaua(i,ib) == 0._rb) then
+                     ztaua(i,ib) = 0._rb
+                     zasya(i,ib) = 0._rb
+                     zomga(i,ib) = 1._rb
+                  else
+                     if (zomga(i,ib) /= 0._rb) then
+                        zasya(i,ib) = zasya(i,ib) / zomga(i,ib)
+                     endif
+                     if (ztaua(i,ib) /= 0._rb) then
+                        zomga(i,ib) = zomga(i,ib) / ztaua(i,ib)
+                     endif
+                  endif
+               enddo
+            enddo
+
+! IAER=10: Direct specification of aerosol optical properties from GCM
+         elseif (iaer.eq.10) then
+
+            do i = 1 ,nlayers
+               do ib = 1 ,nbndsw
+                  ztaua(i,ib) = taua(i,ib)
+                  zasya(i,ib) = asma(i,ib)
+                  zomga(i,ib) = ssaa(i,ib)
+               enddo
+            enddo
+
+         endif
+
+
+! Call the 2-stream radiation transfer model
+
+         do i=1,nlayers+1
+            zbbcu(i) = 0._rb
+            zbbcd(i) = 0._rb
+            zbbfu(i) = 0._rb
+            zbbfd(i) = 0._rb
+            zbbcddir(i) = 0._rb
+            zbbfddir(i) = 0._rb
+            zuvcd(i) = 0._rb
+            zuvfd(i) = 0._rb
+            zuvcddir(i) = 0._rb
+            zuvfddir(i) = 0._rb
+            znicd(i) = 0._rb
+            znifd(i) = 0._rb
+            znicddir(i) = 0._rb
+            znifddir(i) = 0._rb
+         enddo
+
+         call spcvrt_sw &
+             (nlayers, istart, iend, icpr, idelm, iout, &
+              pavel, tavel, pz, tz, tbound, albdif, albdir, &
+              cldfrac, ztauc, zasyc, zomgc, ztaucorig, &
+              ztaua, zasya, zomga, cossza, coldry, wkl, adjflux, &	 
+              isolvar, svar_f, svar_s, svar_i, &
+              svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+              laytrop, layswtch, laylow, jp, jt, jt1, &
+              co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &
+              fac00, fac01, fac10, fac11, &
+              selffac, selffrac, indself, forfac, forfrac, indfor, &
+              zbbfd, zbbfu, zbbcd, zbbcu, zuvfd, zuvcd, znifd, znicd, &
+              zbbfddir, zbbcddir, zuvfddir, zuvcddir, znifddir, znicddir)
+
+! Transfer up and down, clear and total sky fluxes to output arrays.
+! Vertical indexing goes from bottom to top; reverse here for GCM if necessary.
+
+         do i = 1, nlayers+1
+            swuflxc(iplon,i) = zbbcu(i)
+            swdflxc(iplon,i) = zbbcd(i)
+            swuflx(iplon,i) = zbbfu(i)
+            swdflx(iplon,i) = zbbfd(i)
+            uvdflx(i) = zuvfd(i)
+            nidflx(i) = znifd(i)
+!  Direct/diffuse fluxes
+            dirdflux(i) = zbbfddir(i)
+            difdflux(i) = swdflx(iplon,i) - dirdflux(i)
+!  UV/visible direct/diffuse fluxes
+            dirdnuv(i) = zuvfddir(i)
+            difdnuv(i) = zuvfd(i) - dirdnuv(i)
+!  Near-IR direct/diffuse fluxes
+            dirdnir(i) = znifddir(i)
+            difdnir(i) = znifd(i) - dirdnir(i)
+         enddo
+
+!  Total and clear sky net fluxes
+         do i = 1, nlayers+1
+            swnflxc(i) = swdflxc(iplon,i) - swuflxc(iplon,i)
+            swnflx(i) = swdflx(iplon,i) - swuflx(iplon,i)
+         enddo
+
+!  Total and clear sky heating rates
+         do i = 1, nlayers
+            zdpgcp = heatfac / pdp(i)
+            swhrc(iplon,i) = (swnflxc(i+1) - swnflxc(i)) * zdpgcp
+            swhr(iplon,i) = (swnflx(i+1) - swnflx(i)) * zdpgcp
+         enddo
+         swhrc(iplon,nlayers) = 0._rb
+         swhr(iplon,nlayers) = 0._rb
+
+! End longitude loop
+      enddo
+
+      end subroutine rrtmg_sw
+
+!*************************************************************************
+      real(kind=rb) function earth_sun(idn)
+!*************************************************************************
+!
+!  Purpose: Function to calculate the correction factor of Earth's orbit
+!  for current day of the year
+
+!  idn        : Day of the year
+!  earth_sun  : square of the ratio of mean to actual Earth-Sun distance
+
+! ------- Modules -------
+
+      use rrsw_con, only : pi
+
+      integer(kind=im), intent(in) :: idn
+
+      real(kind=rb) :: gamma
+
+      gamma = 2._rb*pi*(idn-1)/365._rb
+
+! Use Iqbal's equation 1.2.1
+
+      earth_sun = 1.000110_rb + .034221_rb * cos(gamma) + .001289_rb * sin(gamma) + &
+                   .000719_rb * cos(2._rb*gamma) + .000077_rb * sin(2._rb*gamma)
+
+      end function earth_sun
+
+!***************************************************************************
+      subroutine inatm_sw (iplon, nlay, icld, iaer, &
+            play, plev, tlay, tlev, tsfc, h2ovmr, &
+            o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, &
+            adjes, dyofyr, scon, isolvar, &
+            inflgsw, iceflgsw, liqflgsw, &
+            cldfr, taucld, ssacld, asmcld, fsfcld, cicewp, cliqwp, &
+            reice, reliq, tauaer, ssaaer, asmaer, &
+            nlayers, pavel, pz, pdp, tavel, tz, tbound, coldry, wkl, &
+            adjflux, inflag, iceflag, liqflag, cldfrac, tauc, &
+            ssac, asmc, fsfc, ciwp, clwp, rei, rel, taua, ssaa, asma, &
+! solar variability
+            svar_f, svar_s, svar_i, svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+! optional
+            bndsolvar,indsolvar,solcycfrac)
+!***************************************************************************
+!
+!  Input atmospheric profile from GCM, and prepare it for use in RRTMG_SW.
+!  Set other RRTMG_SW input parameters.  
+!
+!***************************************************************************
+
+! --------- Modules ----------
+
+      use parrrsw, only : nbndsw, ngptsw, nstr, nmol, mxmol, &
+                          jpband, jpb1, jpb2, rrsw_scon
+      use rrsw_con, only : fluxfac, heatfac, oneminus, pi, grav, avogad
+      use rrsw_wvn, only : ng, nspa, nspb, wavenum1, wavenum2, delwave
+
+! ------- Declarations -------
+
+! ----- Input -----
+! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained
+! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) 
+      integer(kind=im), intent(in) :: iplon           ! column loop index
+      integer(kind=im), intent(in) :: nlay            ! number of model layers
+      integer(kind=im), intent(in) :: icld            ! clear/cloud flag
+      integer(kind=im), intent(in) :: iaer            ! aerosol option flag
+
+      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)
+                                                      ! Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)
+                                                      ! Dimensions: (ncol,nlay+1)
+      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)
+                                                      ! Dimensions: (ncol)
+      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio
+                                                      ! Dimensions: (ncol,nlay)
+
+      integer(kind=im), intent(in) :: dyofyr          ! Day of the year (used to get Earth/Sun
+                                                      !  distance if adjflx not provided)
+      real(kind=rb), intent(in) :: adjes              ! Flux adjustment for Earth/Sun distance
+      real(kind=rb), intent(in) :: scon               ! Solar constant (W/m2)
+                                                      !    Total solar irradiance averaged 
+                                                      !    over the solar cycle.
+                                                      !    If scon = 0.0, the internal solar 
+                                                      !    constant, which depends on the  
+                                                      !    value of isolvar, will be used. 
+                                                      !    For isolvar=-1, scon=1368.22 Wm-2,
+                                                      !    For isolvar=0,1,3, scon=1360.85 Wm-2,
+                                                      !    If scon > 0.0, the internal solar
+                                                      !    constant will be scaled to the 
+                                                      !    provided value of scon.
+      integer(kind=im), intent(in) :: isolvar         ! Flag for solar variability method
+                                                      !   -1 = (when scon .eq. 0.0): No solar variability
+                                                      !        and no solar cycle (Kurucz solar irradiance
+                                                      !        of 1368.22 Wm-2 only);
+                                                      !        (when scon .ne. 0.0): Kurucz solar irradiance
+                                                      !        scaled to scon and solar variability defined
+                                                      !        (optional) by setting non-zero scale factors
+                                                      !        for each band in bndsolvar
+                                                      !    0 = (when SCON .eq. 0.0): No solar variability 
+                                                      !        and no solar cycle (NRLSSI2 solar constant of 
+                                                      !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                                      !        range only), with facular and sunspot effects 
+                                                      !        fixed to the mean of Solar Cycles 13-24;
+                                                      !        (when SCON .ne. 0.0): No solar variability 
+                                                      !        and no solar cycle (NRLSSI2 solar constant of 
+                                                      !        1360.85 Wm-2 for the 100-50000 cm-1 spectral 
+                                                      !        range only), is scaled to SCON
+                                                      !    1 = Solar variability (using NRLSSI2  solar
+                                                      !        model) with solar cycle contribution
+                                                      !        determined by fraction of solar cycle
+                                                      !        with facular and sunspot variations
+                                                      !        fixed to their mean variations over the
+                                                      !        average of Solar Cycles 13-24;
+                                                      !        two amplitude scale factors allow
+                                                      !        facular and sunspot adjustments from
+                                                      !        mean solar cycle as defined by indsolvar 
+                                                      !    2 = Solar variability (using NRLSSI2 solar
+                                                      !        model) over solar cycle determined by 
+                                                      !        direct specification of Mg (facular)
+                                                      !        and SB (sunspot) indices provided
+                                                      !        in indsolvar (scon = 0.0 only)
+                                                      !    3 = (when scon .eq. 0.0): No solar variability
+                                                      !        and no solar cycle (NRLSSI2 solar irradiance
+                                                      !        of 1360.85 Wm-2 only);
+                                                      !        (when scon .ne. 0.0): NRLSSI2 solar irradiance
+                                                      !        scaled to scon and solar variability defined
+                                                      !        (optional) by setting non-zero scale factors
+                                                      !        for each band in bndsolvar
+      real(kind=rb), intent(in), optional :: bndsolvar(:) ! Band scale factors for modeling spectral
+                                                          ! variation of solar cycle for each shortwave band
+                                                          ! for Kurucz solar constant (isolvar=-1), or
+                                                          ! averaged NRLSSI2 model solar cycle (isolvar=3)
+                                                          !    Dimensions: (nbndsw=14)
+      real(kind=rb), intent(in), optional :: indsolvar(:) ! Facular and sunspot amplitude 
+                                                          ! scale factors (isolvar=1), or
+                                                          ! Mg and SB indices (isolvar=2)
+                                                          !    Dimensions: (2)
+      real(kind=rb), intent(in), optional :: solcycfrac   ! Fraction of averaged 11-year solar cycle (0-1)
+                                                          !    at current time (isolvar=1)
+                                                          !    0.0 represents the first day of year 1
+                                                          !    1.0 represents the last day of year 11
+
+      integer(kind=im), intent(in) :: inflgsw         ! Flag for cloud optical properties
+      integer(kind=im), intent(in) :: iceflgsw        ! Flag for ice particle specification
+      integer(kind=im), intent(in) :: liqflgsw        ! Flag for liquid droplet specification
+
+      real(kind=rb), intent(in) :: cldfr(:,:)         ! Cloud fraction
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: taucld(:,:,:)      ! In-cloud optical depth (optional)
+                                                      ! Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: ssacld(:,:,:)      ! In-cloud single scattering albedo
+                                                      ! Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: asmcld(:,:,:)      ! In-cloud asymmetry parameter
+                                                      ! Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: fsfcld(:,:,:)      ! In-cloud forward scattering fraction
+                                                      ! Dimensions: (nbndsw,ncol,nlay)
+      real(kind=rb), intent(in) :: cicewp(:,:)        ! In-cloud ice water path (g/m2)
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: cliqwp(:,:)        ! In-cloud liquid water path (g/m2)
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: reice(:,:)         ! Cloud ice effective size (microns)
+                                                      ! Dimensions: (ncol,nlay)
+      real(kind=rb), intent(in) :: reliq(:,:)         ! Cloud water drop effective radius (microns)
+                                                      ! Dimensions: (ncol,nlay)
+
+      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth
+                                                      ! Dimensions: (ncol,nlay,nbndsw)
+      real(kind=rb), intent(in) :: ssaaer(:,:,:)      ! Aerosol single scattering albedo
+                                                      ! Dimensions: (ncol,nlay,nbndsw)
+      real(kind=rb), intent(in) :: asmaer(:,:,:)      ! Aerosol asymmetry parameter
+                                                      ! Dimensions: (ncol,nlay,nbndsw)
+
+! Atmosphere
+      integer(kind=im), intent(out) :: nlayers        ! number of layers
+
+      real(kind=rb), intent(out) :: pavel(:)          ! layer pressures (mb) 
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: tavel(:)          ! layer temperatures (K)
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: pz(0:)            ! level (interface) pressures (hPa, mb)
+                                                      ! Dimensions: (0:nlay)
+      real(kind=rb), intent(out) :: tz(0:)            ! level (interface) temperatures (K)
+                                                      ! Dimensions: (0:nlay)
+      real(kind=rb), intent(out) :: tbound            ! surface temperature (K)
+      real(kind=rb), intent(out) :: pdp(:)            ! layer pressure thickness (hPa, mb)
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: coldry(:)         ! dry air column density (mol/cm2)
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: wkl(:,:)          ! molecular amounts (mol/cm-2)
+                                                      ! Dimensions: (mxmol,nlay)
+
+      real(kind=rb), intent(out) :: adjflux(:)        ! adjustment for current Earth/Sun distance
+                                                      ! Dimensions: (jpband)
+      real(kind=rb), intent(out) :: taua(:,:)         ! Aerosol optical depth
+                                                      ! Dimensions: (nlay,nbndsw)
+      real(kind=rb), intent(out) :: ssaa(:,:)         ! Aerosol single scattering albedo
+                                                      ! Dimensions: (nlay,nbndsw)
+      real(kind=rb), intent(out) :: asma(:,:)         ! Aerosol asymmetry parameter
+                                                      ! Dimensions: (nlay,nbndsw)
+
+! Atmosphere/clouds - cldprop
+      integer(kind=im), intent(out) :: inflag         ! flag for cloud property method
+      integer(kind=im), intent(out) :: iceflag        ! flag for ice cloud properties
+      integer(kind=im), intent(out) :: liqflag        ! flag for liquid cloud properties
+
+      real(kind=rb), intent(out) :: cldfrac(:)        ! layer cloud fraction
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: tauc(:,:)         ! in-cloud optical depth (non-delta scaled)
+                                                      ! Dimensions: (nbndsw,nlay)
+      real(kind=rb), intent(out) :: ssac(:,:)         ! in-cloud single scattering albedo (non-delta-scaled)
+                                                      ! Dimensions: (nbndsw,nlay)
+      real(kind=rb), intent(out) :: asmc(:,:)         ! in-cloud asymmetry parameter (non-delta scaled)
+                                                      ! Dimensions: (nbndsw,nlay)
+      real(kind=rb), intent(out) :: fsfc(:,:)         ! in-cloud forward scattering fraction (non-delta scaled)
+                                                      ! Dimensions: (nbndsw,nlay)
+      real(kind=rb), intent(out) :: ciwp(:)           ! in-cloud ice water path
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: clwp(:)           ! in-cloud liquid water path
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: rel(:)            ! cloud liquid particle effective radius (microns)
+                                                      ! Dimensions: (nlay)
+      real(kind=rb), intent(out) :: rei(:)            ! cloud ice particle effective size (microns)
+                                                      ! Dimensions: (nlay)
+
+! Solar variability
+      real(kind=rb), intent(out) :: svar_f            ! Solar variability facular multiplier
+      real(kind=rb), intent(out) :: svar_s            ! Solar variability sunspot multiplier
+      real(kind=rb), intent(out) :: svar_i            ! Solar variability baseline irradiance multiplier
+      real(kind=rb), intent(out) :: svar_f_bnd(jpband)! Solar variability facular multiplier (by band)
+      real(kind=rb), intent(out) :: svar_s_bnd(jpband)! Solar variability sunspot multiplier (by band)
+      real(kind=rb), intent(out) :: svar_i_bnd(jpband)! Solar variability baseline irradiance multiplier (by band)
+
+! ----- Local -----
+      real(kind=rb), parameter :: amd = 28.9660_rb    ! Effective molecular weight of dry air (g/mol)
+      real(kind=rb), parameter :: amw = 18.0160_rb    ! Molecular weight of water vapor (g/mol)
+!      real(kind=rb), parameter :: amc = 44.0098_rb   ! Molecular weight of carbon dioxide (g/mol)
+!      real(kind=rb), parameter :: amo = 47.9998_rb   ! Molecular weight of ozone (g/mol)
+!      real(kind=rb), parameter :: amo2 = 31.9999_rb  ! Molecular weight of oxygen (g/mol)
+!      real(kind=rb), parameter :: amch4 = 16.0430_rb ! Molecular weight of methane (g/mol)
+!      real(kind=rb), parameter :: amn2o = 44.0128_rb ! Molecular weight of nitrous oxide (g/mol)
+
+! Set molecular weight ratios (for converting mmr to vmr)
+!  e.g. h2ovmr = h2ommr * amdw)
+      real(kind=rb), parameter :: amdw = 1.607793_rb  ! Molecular weight of dry air / water vapor
+      real(kind=rb), parameter :: amdc = 0.658114_rb  ! Molecular weight of dry air / carbon dioxide
+      real(kind=rb), parameter :: amdo = 0.603428_rb  ! Molecular weight of dry air / ozone
+      real(kind=rb), parameter :: amdm = 1.805423_rb  ! Molecular weight of dry air / methane
+      real(kind=rb), parameter :: amdn = 0.658090_rb  ! Molecular weight of dry air / nitrous oxide
+      real(kind=rb), parameter :: amdo2 = 0.905140_rb ! Molecular weight of dry air / oxygen
+
+      real(kind=rb), parameter :: sbc = 5.67e-08_rb   ! Stefan-Boltzmann constant (W/m2K4)
+
+      integer(kind=im) :: isp, l, ix, n, imol, ib       ! Loop indices
+      real(kind=rb) :: amm, summol                      ! 
+      real(kind=rb) :: adjflx                           ! flux adjustment for Earth/Sun distance
+!      real(kind=rb) :: earth_sun                        ! function for Earth/Sun distance adjustment
+      real(kind=rb) :: solvar(jpband)                   ! solar constant scaling factor by band
+                                                        !  Dimension(jpband=29)
+      real(kind=rb) :: indsolvar_scl(2)                 ! Adjusted facular and sunspot amplitude 
+                                                        ! scale factors (isolvar=1)
+      real(kind=rb) :: indsolvar_ndx(2)                 ! Facular and sunspot indices (isolvar=2)
+      real(kind=rb) :: solcycfr                         ! Local solar cycle fraction (default = 0.0
+                                                        ! unless solcycfrac is present)
+
+      real(kind=rb), parameter ::  solcycfrac_min = 0.0189_rb    ! Solar cycle fraction at solar minimum
+      real(kind=rb), parameter ::  solcycfrac_max = 0.3750_rb    ! Solar cycle fraction at solar maximum
+      real(kind=rb), parameter ::  fracdiff_min2max = 0.3561_rb  ! 0.3750 - 0.0189
+      real(kind=rb), parameter ::  fracdiff_max2min = 0.6439_rb  ! 1.0189 - 0.3750
+      real(kind=rb) :: wgt                              ! Weighting factor for amplitude scale factor adjustment
+      real(kind=rb) :: svar_f_0, svar_s_0               ! Solar variability indices for current fractional
+                                                        !  position in typical solar cycle, interpolated
+                                                        !  from lookup table of values over solar cycle
+      real(kind=rb) :: svar_cprim                       ! Solar variability intermediate value
+      real(kind=rb) :: svar_r                           ! Solar variability intermediate value
+      integer(kind=im) :: sfid                          ! Solar variability solar cycle fraction index
+      real(kind=rb) :: tmp_f_0, tmp_s_0                 ! Solar variability temporary quantities
+      real(kind=rb) :: fraclo, frachi, intfrac          ! Solar variability interpolation factors
+
+! Mean quiet sun, facular brightening, and sunspot dimming coefficient terms (NRLSSI2, 100-50000 cm-1), 
+! spectrally integrated (from hi-res values after mapping to g-point space)
+      real(kind=rb), parameter :: Iint = 1360.37_rb     ! Solar quiet sun irradiance term, integrated
+      real(kind=rb), parameter :: Fint = 0.996047_rb    ! Solar facular brightening term (index-offset), integrated
+      real(kind=rb), parameter :: Sint = -0.511590_rb   ! Solar sunspot dimming term (index-offset), integrated
+      real(kind=rb), parameter :: Foffset = 0.14959542_rb    ! Solar variability facular offset
+      real(kind=rb), parameter :: Soffset = 0.00066696_rb    ! Solar variability sunspot offset
+
+! Mg and SB indices for average solar cycle integrated over solar cycle
+      real(kind=rb), parameter :: svar_f_avg = 0.1567652_rb  ! Solar variability NRLSSI2 Mg "Bremen" index 
+                                                             !  time-averaged over Solar Cycles 13-24
+                                                             !  and averaged over solar cycle (132 values
+                                                             !  excluding end points in Mg and SB arrays)
+      real(kind=rb), parameter :: svar_s_avg = 902.71260_rb  ! Solar variability NRLSSI2 SB "SPOT67" index 
+                                                             !  time-averaged over Solar Cycles 13-24
+                                                             !  and averaged over solar cycle (132 values
+                                                             !  excluding end points in Mg and SB arrays)
+      integer(kind=im), parameter :: nsolfrac = 134          ! Number of elements in solar arrays 
+                                                             !  132 values (excluding end points) represent
+                                                             !  the center dates of the 12 months per year 
+                                                             !  over the mean 11-year solar cycle;
+                                                             !  2 end points represent the first day of the 
+                                                             !  first month of year 1 and the last day of
+                                                             !  the last month of year 11
+      real(kind=rb) :: intrvl_len                            !  Fractional interval length of mgavgcyc
+                                                             !  and sbavgcyc
+      real(kind=rb) :: intrvl_len_hf                         !  Fractional half interval length of mgavgcyc
+                                                             !  and sbavgcyc
+
+! Mg and SB index look-up tables for average solar cycle as a function of solar cycle
+      real(kind=rb) :: mgavgcyc(nsolfrac)               ! Facular index from NRLSSI2 Mg "Bremen" index 
+                                                        !  time-averaged over Solar Cycles 13-24
+      real(kind=rb) :: sbavgcyc(nsolfrac)               ! Sunspot index from NRLSSI2 SB "SPOT67" index 
+                                                        !  time-averaged over Solar Cycles 13-24
+      mgavgcyc(:) = (/ &
+        &   0.150737_rb,  0.150746_rb,  0.150733_rb,  0.150718_rb,  0.150725_rb,  0.150762_rb, &
+        &   0.150828_rb,  0.150918_rb,  0.151017_rb,  0.151113_rb,  0.151201_rb,  0.151292_rb, &
+        &   0.151403_rb,  0.151557_rb,  0.151766_rb,  0.152023_rb,  0.152322_rb,  0.152646_rb, &
+        &   0.152969_rb,  0.153277_rb,  0.153579_rb,  0.153899_rb,  0.154252_rb,  0.154651_rb, &
+        &   0.155104_rb,  0.155608_rb,  0.156144_rb,  0.156681_rb,  0.157178_rb,  0.157605_rb, &
+        &   0.157971_rb,  0.158320_rb,  0.158702_rb,  0.159133_rb,  0.159583_rb,  0.160018_rb, &
+        &   0.160408_rb,  0.160725_rb,  0.160960_rb,  0.161131_rb,  0.161280_rb,  0.161454_rb, &
+        &   0.161701_rb,  0.162034_rb,  0.162411_rb,  0.162801_rb,  0.163186_rb,  0.163545_rb, &
+        &   0.163844_rb,  0.164029_rb,  0.164054_rb,  0.163910_rb,  0.163621_rb,  0.163239_rb, &
+        &   0.162842_rb,  0.162525_rb,  0.162344_rb,  0.162275_rb,  0.162288_rb,  0.162369_rb, &
+        &   0.162500_rb,  0.162671_rb,  0.162878_rb,  0.163091_rb,  0.163251_rb,  0.163320_rb, &
+        &   0.163287_rb,  0.163153_rb,  0.162927_rb,  0.162630_rb,  0.162328_rb,  0.162083_rb, &
+        &   0.161906_rb,  0.161766_rb,  0.161622_rb,  0.161458_rb,  0.161266_rb,  0.161014_rb, &
+        &   0.160666_rb,  0.160213_rb,  0.159690_rb,  0.159190_rb,  0.158831_rb,  0.158664_rb, &
+        &   0.158634_rb,  0.158605_rb,  0.158460_rb,  0.158152_rb,  0.157691_rb,  0.157152_rb, &
+        &   0.156631_rb,  0.156180_rb,  0.155827_rb,  0.155575_rb,  0.155406_rb,  0.155280_rb, &
+        &   0.155145_rb,  0.154972_rb,  0.154762_rb,  0.154554_rb,  0.154388_rb,  0.154267_rb, &
+        &   0.154152_rb,  0.154002_rb,  0.153800_rb,  0.153567_rb,  0.153348_rb,  0.153175_rb, &
+        &   0.153044_rb,  0.152923_rb,  0.152793_rb,  0.152652_rb,  0.152510_rb,  0.152384_rb, &
+        &   0.152282_rb,  0.152194_rb,  0.152099_rb,  0.151980_rb,  0.151844_rb,  0.151706_rb, &
+        &   0.151585_rb,  0.151496_rb,  0.151437_rb,  0.151390_rb,  0.151347_rb,  0.151295_rb, &
+        &   0.151220_rb,  0.151115_rb,  0.150993_rb,  0.150883_rb,  0.150802_rb,  0.150752_rb, &
+        &   0.150729_rb,  0.150737_rb/)
+      sbavgcyc(:) = (/ &
+        &    50.3550_rb,   44.1322_rb,   52.0179_rb,   59.2231_rb,   66.3702_rb,   71.7545_rb, &
+        &    76.8671_rb,   83.4723_rb,   91.1574_rb,   98.4915_rb,  105.3173_rb,  115.1791_rb, &
+        &   130.9432_rb,  155.0483_rb,  186.5379_rb,  221.5456_rb,  256.9212_rb,  291.5276_rb, &
+        &   325.2953_rb,  356.4789_rb,  387.2470_rb,  422.8557_rb,  466.1698_rb,  521.5139_rb, &
+        &   593.2833_rb,  676.6234_rb,  763.6930_rb,  849.1200_rb,  928.4259_rb,  994.9705_rb, &
+        &  1044.2605_rb, 1087.5703_rb, 1145.0623_rb, 1224.3491_rb, 1320.6497_rb, 1413.0979_rb, &
+        &  1472.1591_rb, 1485.7531_rb, 1464.1610_rb, 1439.1617_rb, 1446.2449_rb, 1496.4323_rb, &
+        &  1577.8394_rb, 1669.5933_rb, 1753.0408_rb, 1821.9296_rb, 1873.2789_rb, 1906.5240_rb, &
+        &  1920.4482_rb, 1904.6881_rb, 1861.8397_rb, 1802.7661_rb, 1734.0215_rb, 1665.0562_rb, &
+        &  1608.8999_rb, 1584.8208_rb, 1594.0162_rb, 1616.1486_rb, 1646.6031_rb, 1687.1962_rb, &
+        &  1736.4778_rb, 1787.2419_rb, 1824.9084_rb, 1835.5236_rb, 1810.2161_rb, 1768.6124_rb, &
+        &  1745.1085_rb, 1748.7762_rb, 1756.1239_rb, 1738.9929_rb, 1700.0656_rb, 1658.2209_rb, &
+        &  1629.2925_rb, 1620.9709_rb, 1622.5157_rb, 1623.4703_rb, 1612.3083_rb, 1577.3031_rb, &
+        &  1516.7953_rb, 1430.0403_rb, 1331.5112_rb, 1255.5171_rb, 1226.7653_rb, 1241.4419_rb, &
+        &  1264.6549_rb, 1255.5559_rb, 1203.0286_rb, 1120.2747_rb, 1025.5101_rb,  935.4602_rb, &
+        &   855.0434_rb,  781.0189_rb,  718.0328_rb,  678.5850_rb,  670.4219_rb,  684.1906_rb, &
+        &   697.0376_rb,  694.8083_rb,  674.1456_rb,  638.8199_rb,  602.3454_rb,  577.6292_rb, &
+        &   565.6213_rb,  553.7846_rb,  531.7452_rb,  503.9732_rb,  476.9708_rb,  452.4296_rb, &
+        &   426.2826_rb,  394.6636_rb,  360.1086_rb,  324.9731_rb,  297.2957_rb,  286.1536_rb, &
+        &   287.4195_rb,  288.9029_rb,  282.7594_rb,  267.7211_rb,  246.6594_rb,  224.7318_rb, &
+        &   209.2318_rb,  204.5217_rb,  204.1653_rb,  200.0440_rb,  191.0689_rb,  175.7699_rb, &
+        &   153.9869_rb,  128.4389_rb,  103.8445_rb,   85.6083_rb,   73.6264_rb,   64.4393_rb, &
+        &    56.5779_rb,   50.3550_rb/)
+
+! Add one to nlayers here to include extra model layer at top of atmosphere
+      nlayers = nlay
+
+!  Initialize all molecular amounts to zero here, then pass input amounts
+!  into RRTM array WKL below.
+
+      wkl(:,:) = 0.0_rb
+      cldfrac(:) = 0.0_rb
+      tauc(:,:) = 0.0_rb
+      ssac(:,:) = 1.0_rb
+      asmc(:,:) = 0.0_rb
+      fsfc(:,:) = 0.0_rb
+      ciwp(:) = 0.0_rb
+      clwp(:) = 0.0_rb
+      rei(:) = 0.0_rb
+      rel(:) = 0.0_rb
+      taua(:,:) = 0.0_rb
+      ssaa(:,:) = 1.0_rb
+      asma(:,:) = 0.0_rb
+      solvar(:) = 1.0_rb
+      adjflux(:) = 1.0_rb
+      svar_f = 1.0_rb 
+      svar_s = 1.0_rb 
+      svar_i = 1.0_rb 
+      svar_f_bnd(:) = 1.0_rb 
+      svar_s_bnd(:) = 1.0_rb 
+      svar_i_bnd(:) = 1.0_rb 
+ 
+! Adjust amplitude scaling of mean solar cycle to be 1.0 at solar minimum (solcycfrac_min=0.0189),
+! to be the requested indsolvar at solar maximum (solcycfrac_max=0.3750), and to vary between 
+! those values at intervening values of solcycfrac. 
+      if (isolvar .eq. 1) then 
+! Check for presence of indsolvar and solcycfrac when isolvar = 1. 
+! Use a solar cycle fraction of 0.0 and no scaling by default unless both indsolvar and solcycfrac are present. 
+         solcycfr = 0.0_rb
+         indsolvar_scl(1:2) = 1.0_rb
+         if (present(indsolvar) .and. present(solcycfrac)) then 
+            solcycfr = solcycfrac
+            if (indsolvar(1).ne.1.0_rb.or.indsolvar(2).ne.1.0_rb) then 
+               if (solcycfrac .ge. 0.0_rb .and. solcycfrac .lt. solcycfrac_min) then
+                  wgt = (solcycfrac+1.0_rb-solcycfrac_max)/fracdiff_max2min
+                  indsolvar_scl(1) = indsolvar(1) + wgt * (1.0_rb-indsolvar(1))
+                  indsolvar_scl(2) = indsolvar(2) + wgt * (1.0_rb-indsolvar(2))
+               endif
+               if (solcycfrac .ge. solcycfrac_min .and. solcycfrac .le. solcycfrac_max) then
+                  wgt = (solcycfrac-solcycfrac_min)/fracdiff_min2max
+                  indsolvar_scl(1) = 1.0_rb + wgt * (indsolvar(1)-1.0_rb)
+                  indsolvar_scl(2) = 1.0_rb + wgt * (indsolvar(2)-1.0_rb)
+               endif
+               if (solcycfrac .gt. solcycfrac_max .and. solcycfrac .le. 1.0_rb) then
+                  wgt = (solcycfrac-solcycfrac_max)/fracdiff_max2min
+                  indsolvar_scl(1) = indsolvar(1) + wgt * (1.0_rb-indsolvar(1))
+                  indsolvar_scl(2) = indsolvar(2) + wgt * (1.0_rb-indsolvar(2))
+               endif
+            endif
+         endif
+      endif
+
+! Check for presence of indsolvar when isolvar = 2. 
+      if (isolvar .eq. 2) then 
+! Use mean solar cycle facular and sunspot indices by default unless indsolvar is present
+         indsolvar_ndx(1) = svar_f_avg
+         indsolvar_ndx(2) = svar_s_avg
+         if (present(indsolvar)) then 
+            indsolvar_ndx(1) = indsolvar(1)
+            indsolvar_ndx(2) = indsolvar(2)
+         endif
+      endif
+
+! Set flux adjustment for current Earth/Sun distance (two options).
+! 1) Use Earth/Sun distance flux adjustment provided by GCM (input as adjes);
+      adjflx = adjes
+!
+! 2) Calculate Earth/Sun distance from DYOFYR, the cumulative day of the year.
+!    (Set adjflx to 1. to use constant Earth/Sun distance of 1 AU). 
+      if (dyofyr .gt. 0) then
+         adjflx = earth_sun(dyofyr)
+      endif
+
+! Apply selected solar variability option based on ISOLVAR and input 
+! solar constant.
+! For scon = 0, use internally defined solar constant, which is
+! 1368.22 Wm-2 (for ISOLVAR=-1) and 1360.85 Wm-2 (for ISOLVAR=0,3;
+! options ISOLVAR=1,2 model solar cycle variations from 1360.85 Wm-2)
+!
+! SCON = 0 
+! Use internal TSI value
+      if (scon .eq. 0.0_rb) then 
+
+!   No solar cycle and no solar variability (Kurucz solar source function)
+!   Apply constant scaling by band if first element of bndsolvar specified
+         if (isolvar .eq. -1) then
+            solvar(jpb1:jpb2) = 1.0_rb
+            if (present(bndsolvar)) solvar(jpb1:jpb2) = bndsolvar(:)
+         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model solar irradiance)
+!   Quiet sun, facular, and sunspot terms averaged over the mean solar cycle 
+!   (defined as average of Solar Cycles 13-24).
+         if (isolvar .eq. 0) then
+            svar_f = 1.0_rb
+            svar_s = 1.0_rb
+            svar_i = 1.0_rb
+         endif 
+
+!   Mean solar cycle with solar variability (NRLSSI2 model)
+!   Facular and sunspot terms interpolated from LUTs to input solar cycle 
+!   fraction for mean solar cycle. Scalings defined below to convert from 
+!   averaged Mg and SB terms to Mg and SB terms interpolated here.
+!   (Includes optional facular and sunspot amplitude scale factors)
+         if (isolvar .eq. 1) then
+!   Interpolate svar_f_0 and svar_s_0 from lookup tables using provided solar cycle fraction
+            if (solcycfr .le. 0.0_rb) then
+               tmp_f_0 = mgavgcyc(1)
+               tmp_s_0 = sbavgcyc(1)
+            elseif (solcycfr .ge. 1.0_rb) then
+               tmp_f_0 = mgavgcyc(nsolfrac)
+               tmp_s_0 = sbavgcyc(nsolfrac)
+            else
+               intrvl_len = 1.0_rb / (nsolfrac-2)
+               intrvl_len_hf = 0.5_rb * intrvl_len
+!   Initial half interval (1)
+               if (solcycfr .le. intrvl_len_hf) then 
+                  sfid = 1
+                  fraclo = 0.0_rb
+                  frachi = intrvl_len_hf
+               endif
+!   Main whole intervals (131)
+               if (solcycfr .gt. intrvl_len_hf .and. solcycfr .lt. 1.0_rb-intrvl_len_hf) then 
+                  sfid = floor((solcycfr-intrvl_len_hf) * (nsolfrac-2)) + 2
+                  fraclo = (sfid-2) * intrvl_len + intrvl_len_hf
+                  frachi = fraclo + intrvl_len
+               endif
+!   Final half interval (1)
+               if (solcycfr .ge. 1.0_rb-intrvl_len_hf) then 
+                  sfid = (nsolfrac-2) + 1
+                  fraclo = 1.0_rb - intrvl_len_hf
+                  frachi = 1.0_rb
+               endif
+               intfrac = (solcycfr - fraclo) / (frachi - fraclo)
+               tmp_f_0 = mgavgcyc(sfid) + intfrac * (mgavgcyc(sfid+1) - mgavgcyc(sfid))
+               tmp_s_0 = sbavgcyc(sfid) + intfrac * (sbavgcyc(sfid+1) - sbavgcyc(sfid))
+            endif
+            svar_f_0 = tmp_f_0
+            svar_s_0 = tmp_s_0
+            svar_f = indsolvar_scl(1) * (svar_f_0 - Foffset) / (svar_f_avg - Foffset)
+            svar_s = indsolvar_scl(2) * (svar_s_0 - Soffset) / (svar_s_avg - Soffset)
+            svar_i = 1.0_rb
+         endif 
+
+!   Specific solar cycle with solar variability (NRLSSI2 model)
+!   Facular and sunspot index terms input directly to model specific 
+!   solar cycle.  Scalings defined below to convert from averaged
+!   Mg and SB terms to specified Mg and SB terms. 
+         if (isolvar .eq. 2) then
+            svar_f = (indsolvar_ndx(1) - Foffset) / (svar_f_avg - Foffset)
+            svar_s = (indsolvar_ndx(2) - Soffset) / (svar_s_avg - Soffset)
+            svar_i = 1.0_rb
+         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model)
+!   Averaged facular, sunspot and quiet sun terms from mean solar cycle 
+!   (derived as average of Solar Cycles 13-24). This information is built
+!   into coefficient terms specified by g-point elsewhere. Separate
+!   scaling by spectral band is applied as defined by bndsolvar. 
+         if (isolvar .eq. 3) then
+            solvar(jpb1:jpb2) = 1.0_rb
+            if (present(bndsolvar)) solvar(jpb1:jpb2) = bndsolvar(:)
+            do ib = jpb1,jpb2
+               svar_f_bnd(ib) = solvar(ib)
+               svar_s_bnd(ib) = solvar(ib)
+               svar_i_bnd(ib) = solvar(ib)
+            enddo
+         endif 
+
+      endif
+
+! SCON > 0 
+! Scale from internal TSI to externally specified TSI value (scon)
+      if (scon .gt. 0.0_rb) then 
+
+!   No solar cycle and no solar variability (Kurucz solar source function)
+!   Scale from internal solar constant to requested solar constant.
+!   Apply optional constant scaling by band if first element of bndsolvar > 0.0
+         if (isolvar .eq. -1) then
+            if (.not. present(bndsolvar)) solvar(jpb1:jpb2) = scon / rrsw_scon 
+            if (present(bndsolvar)) solvar(jpb1:jpb2) = bndsolvar(:) * scon / rrsw_scon 
+         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model solar irradiance)
+!   Quiet sun, facular, and sunspot terms averaged over the mean solar cycle 
+!   (defined as average of Solar Cycles 13-24).
+!   Scale internal solar constant to requested solar constant. 
+!!   Fint is provided as the product of (svar_f_avg-Foffset) and Fint, 
+!!   Sint is provided as the product of (svar_s_avg-Soffset) and Sint
+         if (isolvar .eq. 0) then
+            svar_cprim = Fint + Sint + Iint
+            svar_r = scon / svar_cprim
+            svar_f = svar_r
+            svar_s = svar_r
+            svar_i = svar_r
+         endif 
+
+!   Mean solar cycle with solar variability (NRLSSI2 model)
+!   Facular and sunspot terms interpolated from LUTs to input solar cycle 
+!   fraction for mean solar cycle. Scalings defined below to convert from 
+!   averaged Mg and SB terms to Mg and SB terms interpolated here.
+!   Scale internal solar constant to requested solar constant. 
+!   (Includes optional facular and sunspot amplitude scale factors)
+         if (isolvar .eq. 1) then
+!   Interpolate svar_f_0 and svar_s_0 from lookup tables using provided solar cycle fraction
+            if (solcycfr .le. 0.0_rb) then
+               tmp_f_0 = mgavgcyc(1)
+               tmp_s_0 = sbavgcyc(1)
+            elseif (solcycfr .ge. 1.0_rb) then
+               tmp_f_0 = mgavgcyc(nsolfrac)
+               tmp_s_0 = sbavgcyc(nsolfrac)
+            else
+               intrvl_len = 1.0_rb / (nsolfrac-2)
+               intrvl_len_hf = 0.5_rb * intrvl_len
+!   Initial half interval (1)
+               if (solcycfr .le. intrvl_len_hf) then 
+                  sfid = 1
+                  fraclo = 0.0_rb
+                  frachi = intrvl_len_hf
+               endif
+!   Main whole intervals (131)
+               if (solcycfr .gt. intrvl_len_hf .and. solcycfr .lt. 1.0_rb-intrvl_len_hf) then 
+                  sfid = floor((solcycfr-intrvl_len_hf) * (nsolfrac-2)) + 2
+                  fraclo = (sfid-2) * intrvl_len + intrvl_len_hf
+                  frachi = fraclo + intrvl_len
+               endif
+!   Final half interval (1)
+               if (solcycfr .ge. 1.0_rb-intrvl_len_hf) then 
+                  sfid = (nsolfrac-2) + 1
+                  fraclo = 1.0_rb - intrvl_len_hf
+                  frachi = 1.0_rb
+               endif
+               intfrac = (solcycfr - fraclo) / (frachi - fraclo)
+               tmp_f_0 = mgavgcyc(sfid) + intfrac * (mgavgcyc(sfid+1) - mgavgcyc(sfid))
+               tmp_s_0 = sbavgcyc(sfid) + intfrac * (sbavgcyc(sfid+1) - sbavgcyc(sfid))
+            endif
+            svar_f_0 = tmp_f_0
+            svar_s_0 = tmp_s_0
+!   Define Cprime 
+!            svar_cprim = indsolvar(1) * svar_f_avg * Fint + indsolvar(2) * svar_s_avg * Sint + Iint
+!   Fint is provided as the product of (svar_f_avg-Foffset) and Fint, 
+!   Sint is provided as the product of (svar_s_avg-Soffset) and Sint
+            svar_i = (scon - (indsolvar_scl(1) * Fint + indsolvar_scl(2) * Sint)) / Iint
+            svar_f = indsolvar_scl(1) * (svar_f_0 - Foffset) / (svar_f_avg - Foffset)
+            svar_s = indsolvar_scl(2) * (svar_s_0 - Soffset) / (svar_s_avg - Soffset)
+         endif 
+
+!   Specific solar cycle with solar variability (NRLSSI2 model)
+!   (Not available for SCON > 0)
+!         if (isolvar .eq. 2) then
+!            scon = 0.0_rb
+!            svar_f = (indsolvar_ndx(1) - Foffset) / (svar_f_avg - Foffset)
+!            svar_s = (indsolvar_ndx(2) - Soffset) / (svar_s_avg - Soffset)
+!            svar_i = 1.0_rb
+!         endif 
+
+!   Mean solar cycle with no solar variability (NRLSSI2 model)
+!   Averaged facular, sunspot and quiet sun terms from mean solar cycle 
+!   (derived as average of Solar Cycles 13-24). This information is built
+!   into coefficient terms specified by g-point elsewhere. Separate
+!   scaling by spectral band is applied as defined by bndsolvar. 
+!   Scale internal solar constant (svar_cprim) to requested solar constant (scon)
+!   Fint is provided as the product of (svar_f_avg-Foffset) and Fint, 
+!   Sint is provided as the product of (svar_s_avg-Soffset) and Sint
+         if (isolvar .eq. 3) then
+            svar_cprim = Fint + Sint + Iint
+            if (.not. present(bndsolvar)) solvar(jpb1:jpb2) = scon / svar_cprim
+            if (present(bndsolvar)) solvar(jpb1:jpb2) = bndsolvar(:) * scon / svar_cprim
+            do ib = jpb1,jpb2
+               svar_f_bnd(ib) = solvar(ib)
+               svar_s_bnd(ib) = solvar(ib)
+               svar_i_bnd(ib) = solvar(ib)
+            enddo
+         endif 
+
+      endif
+
+! Combine Earth-Sun adjustment and solar constant scaling
+! when no solar variability and no solar cycle requested
+      if (isolvar .lt. 0) then
+         do ib = jpb1,jpb2
+            adjflux(ib) = adjflx * solvar(ib)
+         enddo
+      endif
+! Define Earth-Sun adjustment when solar variability requested
+      if (isolvar .ge. 0) then
+         do ib = jpb1,jpb2
+            adjflux(ib) = adjflx
+         enddo
+      endif
+
+!  Set surface temperature.
+      tbound = tsfc(iplon)
+
+!  Install input GCM arrays into RRTMG_SW arrays for pressure, temperature,
+!  and molecular amounts.  
+!  Pressures are input in mb, or are converted to mb here.
+!  Molecular amounts are input in volume mixing ratio, or are converted from 
+!  mass mixing ratio (or specific humidity for h2o) to volume mixing ratio
+!  here. These are then converted to molecular amount (molec/cm2) below.  
+!  The dry air column COLDRY (in molec/cm2) is calculated from the level 
+!  pressures, pz (in mb), based on the hydrostatic equation and includes a 
+!  correction to account for h2o in the layer.  The molecular weight of moist 
+!  air (amm) is calculated for each layer.  
+!  Note: In RRTMG, layer indexing goes from bottom to top, and coding below
+!  assumes GCM input fields are also bottom to top. Input layer indexing
+!  from GCM fields should be reversed here if necessary.
+
+      pz(0) = plev(iplon,1)
+      tz(0) = tlev(iplon,1)
+      do l = 1, nlayers
+         pavel(l) = play(iplon,l)
+         tavel(l) = tlay(iplon,l)
+         pz(l) = plev(iplon,l+1)
+         tz(l) = tlev(iplon,l+1)
+         pdp(l) = pz(l-1) - pz(l)
+! For h2o input in vmr:
+         wkl(1,l) = h2ovmr(iplon,l)
+! For h2o input in mmr:
+!         wkl(1,l) = h2o(iplon,l)*amdw
+! For h2o input in specific humidity;
+!         wkl(1,l) = (h2o(iplon,l)/(1._rb - h2o(iplon,l)))*amdw
+         wkl(2,l) = co2vmr(iplon,l)
+         wkl(3,l) = o3vmr(iplon,l)
+         wkl(4,l) = n2ovmr(iplon,l)
+         wkl(6,l) = ch4vmr(iplon,l)
+         wkl(7,l) = o2vmr(iplon,l)
+         amm = (1._rb - wkl(1,l)) * amd + wkl(1,l) * amw            
+         coldry(l) = (pz(l-1)-pz(l)) * 1.e3_rb * avogad / &
+                     (1.e2_rb * grav * amm * (1._rb + wkl(1,l)))
+      enddo
+
+! The following section can be used to set values for an additional layer (from
+! the GCM top level to 1.e-4 mb) for improved calculation of TOA fluxes. 
+! Temperature and molecular amounts in the extra model layer are set to 
+! their values in the top GCM model layer, though these can be modified
+! here if necessary. 
+! If this feature is utilized, increase nlayers by one above, limit the two
+! loops above to (nlayers-1), and set the top most (nlayers) layer values here. 
+
+!      pavel(nlayers) = 0.5_rb * pz(nlayers-1)
+!      tavel(nlayers) = tavel(nlayers-1)
+!      pz(nlayers) = 1.e-4_rb
+!      tz(nlayers-1) = 0.5_rb * (tavel(nlayers)+tavel(nlayers-1))
+!      tz(nlayers) = tz(nlayers-1)
+!      pdp(nlayers) = pz(nlayers-1) - pz(nlayers)
+!      wkl(1,nlayers) = wkl(1,nlayers-1)
+!      wkl(2,nlayers) = wkl(2,nlayers-1)
+!      wkl(3,nlayers) = wkl(3,nlayers-1)
+!      wkl(4,nlayers) = wkl(4,nlayers-1)
+!      wkl(6,nlayers) = wkl(6,nlayers-1)
+!      wkl(7,nlayers) = wkl(7,nlayers-1)
+!      amm = (1._rb - wkl(1,nlayers-1)) * amd + wkl(1,nlayers-1) * amw
+!      coldry(nlayers) = (pz(nlayers-1)) * 1.e3_rb * avogad / &
+!                        (1.e2_rb * grav * amm * (1._rb + wkl(1,nlayers-1)))
+
+! At this point all molecular amounts in wkl are in volume mixing ratio; 
+! convert to molec/cm2 based on coldry for use in rrtm.  
+
+      do l = 1, nlayers
+         do imol = 1, nmol
+            wkl(imol,l) = coldry(l) * wkl(imol,l)
+         enddo
+      enddo
+
+! Transfer aerosol optical properties to RRTM variables;
+! modify to reverse layer indexing here if necessary.
+
+      if (iaer .ge. 1) then 
+         do l = 1, nlayers
+            do ib = 1, nbndsw
+               taua(l,ib) = tauaer(iplon,l,ib)
+               ssaa(l,ib) = ssaaer(iplon,l,ib)
+               asma(l,ib) = asmaer(iplon,l,ib)
+            enddo
+         enddo
+      endif
+
+! Transfer cloud fraction and cloud optical properties to RRTM variables;
+! modify to reverse layer indexing here if necessary.
+
+      if (icld .ge. 1) then 
+         inflag = inflgsw
+         iceflag = iceflgsw
+         liqflag = liqflgsw
+
+! Move incoming GCM cloud arrays to RRTMG cloud arrays.
+! For GCM input, incoming reice is defined based on selected ice parameterization (inflglw)
+
+         do l = 1, nlayers
+            cldfrac(l) = cldfr(iplon,l)
+            ciwp(l) = cicewp(iplon,l)
+            clwp(l) = cliqwp(iplon,l)
+            rei(l) = reice(iplon,l)
+            rel(l) = reliq(iplon,l)
+            do n = 1,nbndsw
+               tauc(n,l) = taucld(n,iplon,l)
+               ssac(n,l) = ssacld(n,iplon,l)
+               asmc(n,l) = asmcld(n,iplon,l)
+               fsfc(n,l) = fsfcld(n,iplon,l)
+            enddo
+         enddo
+
+! If an extra layer is being used in RRTMG, set all cloud properties to zero in the extra layer.
+
+!         cldfrac(nlayers) = 0.0_rb
+!         tauc(:,nlayers) = 0.0_rb
+!         ssac(:,nlayers) = 1.0_rb
+!         asmc(:,nlayers) = 0.0_rb
+!         fsfc(:,nlayers) = 0.0_rb
+!         ciwp(nlayers) = 0.0_rb
+!         clwp(nlayers) = 0.0_rb
+!         rei(nlayers) = 0.0_rb
+!         rel(nlayers) = 0.0_rb
+      
+      endif
+
+      end subroutine inatm_sw
+
+      end module rrtmg_sw_rad
+
+
diff --git a/radiation/src/rrtmg_sw_reftra.f90 b/radiation/src/rrtmg_sw_reftra.f90
new file mode 100644
index 0000000000000000000000000000000000000000..c3bb648677479639959506305c49f1a5d32018b3
--- /dev/null
+++ b/radiation/src/rrtmg_sw_reftra.f90
@@ -0,0 +1,332 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+
+      module rrtmg_sw_reftra
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use rrsw_tbl, only : tblint, bpade, od_lo, exp_tbl
+      use rrsw_vsn, only : hvrrft, hnamrft
+
+      implicit none
+
+      contains
+
+! --------------------------------------------------------------------
+      subroutine reftra_sw(nlayers, lrtchk, pgg, prmuz, ptau, pw, &
+                           pref, prefd, ptra, ptrad)
+! --------------------------------------------------------------------
+  
+! Purpose: computes the reflectivity and transmissivity of a clear or 
+!   cloudy layer using a choice of various approximations.
+!
+! Interface:  *rrtmg_sw_reftra* is called by *rrtmg_sw_spcvrt*
+!
+! Description:
+! explicit arguments :
+! --------------------
+! inputs
+! ------ 
+!      lrtchk  = .t. for all layers in clear profile
+!      lrtchk  = .t. for cloudy layers in cloud profile 
+!              = .f. for clear layers in cloud profile
+!      pgg     = assymetry factor
+!      prmuz   = cosine solar zenith angle
+!      ptau    = optical thickness
+!      pw      = single scattering albedo
+!
+! outputs
+! -------
+!      pref    : collimated beam reflectivity
+!      prefd   : diffuse beam reflectivity 
+!      ptra    : collimated beam transmissivity
+!      ptrad   : diffuse beam transmissivity
+!
+!
+! Method:
+! -------
+!      standard delta-eddington, p.i.f.m., or d.o.m. layer calculations.
+!      kmodts  = 1 eddington (joseph et al., 1976)
+!              = 2 pifm (zdunkowski et al., 1980)
+!              = 3 discrete ordinates (liou, 1973)
+!
+!
+! Modifications:
+! --------------
+! Original: J-JMorcrette, ECMWF, Feb 2003
+! Revised for F90 reformatting: MJIacono, AER, Jul 2006
+! Revised to add exponential lookup table: MJIacono, AER, Aug 2007
+!
+! ------------------------------------------------------------------
+
+! ------- Declarations ------
+
+! ------- Input -------
+
+      integer(kind=im), intent(in) :: nlayers
+
+      logical, intent(in) :: lrtchk(:)                         ! Logical flag for reflectivity and
+                                                               ! and transmissivity calculation; 
+                                                               !   Dimensions: (nlayers)
+
+      real(kind=rb), intent(in) :: pgg(:)                      ! asymmetry parameter
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: ptau(:)                     ! optical depth
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: pw(:)                       ! single scattering albedo 
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: prmuz                       ! cosine of solar zenith angle
+
+! ------- Output -------
+
+      real(kind=rb), intent(inout) :: pref(:)                  ! direct beam reflectivity
+                                                               !   Dimensions: (nlayers+1)
+      real(kind=rb), intent(inout) :: prefd(:)                 ! diffuse beam reflectivity
+                                                               !   Dimensions: (nlayers+1)
+      real(kind=rb), intent(inout) :: ptra(:)                  ! direct beam transmissivity
+                                                               !   Dimensions: (nlayers+1)
+      real(kind=rb), intent(inout) :: ptrad(:)                 ! diffuse beam transmissivity
+                                                               !   Dimensions: (nlayers+1)
+
+! ------- Local -------
+
+      integer(kind=im) :: jk, jl, kmodts
+      integer(kind=im) :: itind
+
+      real(kind=rb) :: tblind
+      real(kind=rb) :: za, za1, za2
+      real(kind=rb) :: zbeta, zdend, zdenr, zdent
+      real(kind=rb) :: ze1, ze2, zem1, zem2, zemm, zep1, zep2
+      real(kind=rb) :: zg, zg3, zgamma1, zgamma2, zgamma3, zgamma4, zgt
+      real(kind=rb) :: zr1, zr2, zr3, zr4, zr5
+      real(kind=rb) :: zrk, zrk2, zrkg, zrm1, zrp, zrp1, zrpp
+      real(kind=rb) :: zsr3, zt1, zt2, zt3, zt4, zt5, zto1
+      real(kind=rb) :: zw, zwcrit, zwo
+      real(kind=rb) :: denom
+
+      real(kind=rb), parameter :: eps = 1.e-08_rb
+
+!     ------------------------------------------------------------------
+
+! Initialize
+
+      hvrrft = '$Revision$'
+
+      zsr3=sqrt(3._rb)
+      zwcrit=0.9999995_rb
+      kmodts=2
+
+      do jk=1, nlayers
+         if (.not.lrtchk(jk)) then
+            pref(jk) =0._rb
+            ptra(jk) =1._rb
+            prefd(jk)=0._rb
+            ptrad(jk)=1._rb
+         else
+            zto1=ptau(jk)
+            zw  =pw(jk)
+            zg  =pgg(jk)  
+
+! General two-stream expressions
+
+            zg3= 3._rb * zg
+            if (kmodts == 1) then
+               zgamma1= (7._rb - zw * (4._rb + zg3)) * 0.25_rb
+               zgamma2=-(1._rb - zw * (4._rb - zg3)) * 0.25_rb
+               zgamma3= (2._rb - zg3 * prmuz ) * 0.25_rb
+            else if (kmodts == 2) then  
+               zgamma1= (8._rb - zw * (5._rb + zg3)) * 0.25_rb
+               zgamma2=  3._rb *(zw * (1._rb - zg )) * 0.25_rb
+               zgamma3= (2._rb - zg3 * prmuz ) * 0.25_rb
+            else if (kmodts == 3) then  
+               zgamma1= zsr3 * (2._rb - zw * (1._rb + zg)) * 0.5_rb
+               zgamma2= zsr3 * zw * (1._rb - zg ) * 0.5_rb
+               zgamma3= (1._rb - zsr3 * zg * prmuz ) * 0.5_rb
+            end if
+            zgamma4= 1._rb - zgamma3
+    
+! Recompute original s.s.a. to test for conservative solution
+! Added protection for possible divide by zero condition
+
+            zwo = 0._rb
+            denom = 1._rb
+            if (zg .ne. 1._rb) denom = (1._rb - (1._rb - zw) * (zg / (1._rb - zg))**2)
+            if (zw .gt. 0._rb .and. denom .ne. 0._rb) zwo = zw / denom
+    
+            if (zwo >= zwcrit) then
+! Conservative scattering
+
+               za  = zgamma1 * prmuz 
+               za1 = za - zgamma3
+               zgt = zgamma1 * zto1
+        
+! Homogeneous reflectance and transmittance,
+! collimated beam
+
+               ze1 = min ( zto1 / prmuz , 500._rb)
+!               ze2 = exp( -ze1 )
+
+! Use exponential lookup table for transmittance, or expansion of 
+! exponential for low tau
+               if (ze1 .le. od_lo) then 
+                  ze2 = 1._rb - ze1 + 0.5_rb * ze1 * ze1
+               else
+                  tblind = ze1 / (bpade + ze1)
+                  itind = tblint * tblind + 0.5_rb
+                  ze2 = exp_tbl(itind)
+               endif
+!
+
+               pref(jk) = (zgt - za1 * (1._rb - ze2)) / (1._rb + zgt)
+               ptra(jk) = 1._rb - pref(jk)
+
+! isotropic incidence
+
+               prefd(jk) = zgt / (1._rb + zgt)
+               ptrad(jk) = 1._rb - prefd(jk)        
+
+! This is applied for consistency between total (delta-scaled) and direct (unscaled) 
+! calculations at very low optical depths (tau < 1.e-4) when the exponential lookup
+! table returns a transmittance of 1.0.
+               if (ze2 .eq. 1.0_rb) then 
+                  pref(jk) = 0.0_rb
+                  ptra(jk) = 1.0_rb
+                  prefd(jk) = 0.0_rb
+                  ptrad(jk) = 1.0_rb
+               endif
+
+            else
+! Non-conservative scattering
+
+               za1 = zgamma1 * zgamma4 + zgamma2 * zgamma3
+               za2 = zgamma1 * zgamma3 + zgamma2 * zgamma4
+               zrk = sqrt ( zgamma1**2 - zgamma2**2)
+               zrp = zrk * prmuz               
+               zrp1 = 1._rb + zrp
+               zrm1 = 1._rb - zrp
+               zrk2 = 2._rb * zrk
+               zrpp = 1._rb - zrp*zrp
+               zrkg = zrk + zgamma1
+               zr1  = zrm1 * (za2 + zrk * zgamma3)
+               zr2  = zrp1 * (za2 - zrk * zgamma3)
+               zr3  = zrk2 * (zgamma3 - za2 * prmuz )
+               zr4  = zrpp * zrkg
+               zr5  = zrpp * (zrk - zgamma1)
+               zt1  = zrp1 * (za1 + zrk * zgamma4)
+               zt2  = zrm1 * (za1 - zrk * zgamma4)
+               zt3  = zrk2 * (zgamma4 + za1 * prmuz )
+               zt4  = zr4
+               zt5  = zr5
+
+! mji - reformulated code to avoid potential floating point exceptions
+!               zbeta = - zr5 / zr4
+               zbeta = (zgamma1 - zrk) / zrkg
+!!
+        
+! Homogeneous reflectance and transmittance
+
+               ze1 = min ( zrk * zto1, 500._rb)
+               ze2 = min ( zto1 / prmuz , 500._rb)
+!
+! Original
+!              zep1 = exp( ze1 )
+!              zem1 = exp(-ze1 )
+!              zep2 = exp( ze2 )
+!              zem2 = exp(-ze2 )
+!
+! Revised original, to reduce exponentials
+!              zep1 = exp( ze1 )
+!              zem1 = 1._rb / zep1
+!              zep2 = exp( ze2 )
+!              zem2 = 1._rb / zep2
+!
+! Use exponential lookup table for transmittance, or expansion of 
+! exponential for low tau
+               if (ze1 .le. od_lo) then 
+                  zem1 = 1._rb - ze1 + 0.5_rb * ze1 * ze1
+                  zep1 = 1._rb / zem1
+               else
+                  tblind = ze1 / (bpade + ze1)
+                  itind = tblint * tblind + 0.5_rb
+                  zem1 = exp_tbl(itind)
+                  zep1 = 1._rb / zem1
+               endif
+
+               if (ze2 .le. od_lo) then 
+                  zem2 = 1._rb - ze2 + 0.5_rb * ze2 * ze2
+                  zep2 = 1._rb / zem2
+               else
+                  tblind = ze2 / (bpade + ze2)
+                  itind = tblint * tblind + 0.5_rb
+                  zem2 = exp_tbl(itind)
+                  zep2 = 1._rb / zem2
+               endif
+
+! collimated beam
+
+! mji - reformulated code to avoid potential floating point exceptions
+!               zdenr = zr4*zep1 + zr5*zem1
+!               pref(jk) = zw * (zr1*zep1 - zr2*zem1 - zr3*zem2) / zdenr
+!               zdent = zt4*zep1 + zt5*zem1
+!               ptra(jk) = zem2 - zem2 * zw * (zt1*zep1 - zt2*zem1 - zt3*zep2) / zdent
+
+               zdenr = zr4*zep1 + zr5*zem1
+               zdent = zt4*zep1 + zt5*zem1
+               if (zdenr .ge. -eps .and. zdenr .le. eps) then
+                  pref(jk) = eps
+                  ptra(jk) = zem2
+               else 
+                  pref(jk) = zw * (zr1*zep1 - zr2*zem1 - zr3*zem2) / zdenr
+                  ptra(jk) = zem2 - zem2 * zw * (zt1*zep1 - zt2*zem1 - zt3*zep2) / zdent
+               endif
+!!
+
+! diffuse beam
+
+               zemm = zem1*zem1
+               zdend = 1._rb / ( (1._rb - zbeta*zemm ) * zrkg)
+               prefd(jk) =  zgamma2 * (1._rb - zemm) * zdend
+               ptrad(jk) =  zrk2*zem1*zdend
+
+            endif
+
+         endif         
+
+      enddo    
+
+      end subroutine reftra_sw
+
+      end module rrtmg_sw_reftra
+
diff --git a/radiation/src/rrtmg_sw_setcoef.f90 b/radiation/src/rrtmg_sw_setcoef.f90
new file mode 100644
index 0000000000000000000000000000000000000000..220e093e600fc2c2e1f5bcc2fc29cedc460e5ce9
--- /dev/null
+++ b/radiation/src/rrtmg_sw_setcoef.f90
@@ -0,0 +1,366 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+
+      module rrtmg_sw_setcoef
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only : mxmol
+      use rrsw_ref, only : pref, preflog, tref
+      use rrsw_vsn, only : hvrset, hnamset
+
+      implicit none
+
+      contains
+
+!----------------------------------------------------------------------------
+      subroutine setcoef_sw(nlayers, pavel, tavel, pz, tz, tbound, coldry, wkl, &
+                            laytrop, layswtch, laylow, jp, jt, jt1, &
+                            co2mult, colch4, colco2, colh2o, colmol, coln2o, &
+                            colo2, colo3, fac00, fac01, fac10, fac11, &
+                            selffac, selffrac, indself, forfac, forfrac, indfor)
+!----------------------------------------------------------------------------
+!
+! Purpose:  For a given atmosphere, calculate the indices and
+! fractions related to the pressure and temperature interpolations.
+
+! Modifications:
+! Original: J. Delamere, AER, Inc. (version 2.5, 02/04/01)
+! Revised: Rewritten and adapted to ECMWF F90, JJMorcrette 030224
+! Revised: For uniform rrtmg formatting, MJIacono, Jul 2006
+
+! ------ Declarations -------
+
+! ----- Input -----
+      integer(kind=im), intent(in) :: nlayers         ! total number of layers
+
+      real(kind=rb), intent(in) :: pavel(:)           ! layer pressures (mb) 
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tavel(:)           ! layer temperatures (K)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: pz(0:)             ! level (interface) pressures (hPa, mb)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(in) :: tz(0:)             ! level (interface) temperatures (K)
+                                                      !    Dimensions: (0:nlayers)
+      real(kind=rb), intent(in) :: tbound             ! surface temperature (K)
+      real(kind=rb), intent(in) :: coldry(:)          ! dry air column density (mol/cm2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: wkl(:,:)           ! molecular amounts (mol/cm-2)
+                                                      !    Dimensions: (mxmol,nlayers)
+
+! ----- Output -----
+      integer(kind=im), intent(out) :: laytrop        ! tropopause layer index
+      integer(kind=im), intent(out) :: layswtch       ! 
+      integer(kind=im), intent(out) :: laylow         ! 
+
+      integer(kind=im), intent(out) :: jp(:)          ! 
+                                                      !    Dimensions: (nlayers)
+      integer(kind=im), intent(out) :: jt(:)          !
+                                                      !    Dimensions: (nlayers)
+      integer(kind=im), intent(out) :: jt1(:)         !
+                                                      !    Dimensions: (nlayers)
+
+      real(kind=rb), intent(out) :: colh2o(:)         ! column amount (h2o)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colco2(:)         ! column amount (co2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colo3(:)          ! column amount (o3)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: coln2o(:)         ! column amount (n2o)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colch4(:)         ! column amount (ch4)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colo2(:)          ! column amount (o2)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: colmol(:)         ! 
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: co2mult(:)        !
+                                                      !    Dimensions: (nlayers)
+
+      integer(kind=im), intent(out) :: indself(:)
+                                                      !    Dimensions: (nlayers)
+      integer(kind=im), intent(out) :: indfor(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: selffac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: selffrac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: forfac(:)
+                                                      !    Dimensions: (nlayers)
+      real(kind=rb), intent(out) :: forfrac(:)
+                                                      !    Dimensions: (nlayers)
+
+      real(kind=rb), intent(out) :: &                 !
+                         fac00(:), fac01(:), &        !    Dimensions: (nlayers)
+                         fac10(:), fac11(:) 
+
+! ----- Local -----
+
+      integer(kind=im) :: indbound
+      integer(kind=im) :: indlev0
+      integer(kind=im) :: lay
+      integer(kind=im) :: jp1
+
+      real(kind=rb) :: stpfac
+      real(kind=rb) :: tbndfrac
+      real(kind=rb) :: t0frac
+      real(kind=rb) :: plog
+      real(kind=rb) :: fp
+      real(kind=rb) :: ft
+      real(kind=rb) :: ft1
+      real(kind=rb) :: water
+      real(kind=rb) :: scalefac
+      real(kind=rb) :: factor
+      real(kind=rb) :: co2reg
+      real(kind=rb) :: compfp
+
+
+! Initializations
+      stpfac = 296._rb/1013._rb
+
+      indbound = tbound - 159._rb
+      tbndfrac = tbound - int(tbound)
+      indlev0  = tz(0) - 159._rb
+      t0frac   = tz(0) - int(tz(0))
+
+      laytrop  = 0
+      layswtch = 0
+      laylow   = 0
+
+! Begin layer loop
+      do lay = 1, nlayers
+! Find the two reference pressures on either side of the
+! layer pressure.  Store them in JP and JP1.  Store in FP the
+! fraction of the difference (in ln(pressure)) between these
+! two values that the layer pressure lies.
+
+         plog = log(pavel(lay))
+         jp(lay) = int(36._rb - 5*(plog+0.04_rb))
+         if (jp(lay) .lt. 1) then
+            jp(lay) = 1
+         elseif (jp(lay) .gt. 58) then
+            jp(lay) = 58
+         endif
+         jp1 = jp(lay) + 1
+         fp = 5._rb * (preflog(jp(lay)) - plog)
+
+! Determine, for each reference pressure (JP and JP1), which
+! reference temperature (these are different for each  
+! reference pressure) is nearest the layer temperature but does
+! not exceed it.  Store these indices in JT and JT1, resp.
+! Store in FT (resp. FT1) the fraction of the way between JT
+! (JT1) and the next highest reference temperature that the 
+! layer temperature falls.
+
+         jt(lay) = int(3._rb + (tavel(lay)-tref(jp(lay)))/15._rb)
+         if (jt(lay) .lt. 1) then
+            jt(lay) = 1
+         elseif (jt(lay) .gt. 4) then
+            jt(lay) = 4
+         endif
+         ft = ((tavel(lay)-tref(jp(lay)))/15._rb) - real((jt(lay)-3),kind=rb)
+         jt1(lay) = int(3._rb + (tavel(lay)-tref(jp1))/15._rb)
+         if (jt1(lay) .lt. 1) then
+            jt1(lay) = 1
+         elseif (jt1(lay) .gt. 4) then
+            jt1(lay) = 4
+         endif
+         ft1 = ((tavel(lay)-tref(jp1))/15._rb) - real((jt1(lay)-3),kind=rb)
+
+         water = wkl(1,lay)/coldry(lay)
+         scalefac = pavel(lay) * stpfac / tavel(lay)
+
+! If the pressure is less than ~100mb, perform a different
+! set of species interpolations.
+
+         if (plog .le. 4.56_rb) go to 5300
+         laytrop =  laytrop + 1
+         if (plog .ge. 6.62_rb) laylow = laylow + 1
+
+! Set up factors needed to separately include the water vapor
+! foreign-continuum in the calculation of absorption coefficient.
+
+         forfac(lay) = scalefac / (1.+water)
+         factor = (332.0_rb-tavel(lay))/36.0_rb
+         indfor(lay) = min(2, max(1, int(factor)))
+         forfrac(lay) = factor - real(indfor(lay),kind=rb)
+
+! Set up factors needed to separately include the water vapor
+! self-continuum in the calculation of absorption coefficient.
+
+         selffac(lay) = water * forfac(lay)
+         factor = (tavel(lay)-188.0_rb)/7.2_rb
+         indself(lay) = min(9, max(1, int(factor)-7))
+         selffrac(lay) = factor - real((indself(lay) + 7),kind=rb)
+
+! Calculate needed column amounts.
+
+         colh2o(lay) = 1.e-20_rb * wkl(1,lay)
+         colco2(lay) = 1.e-20_rb * wkl(2,lay)
+         colo3(lay) = 1.e-20_rb * wkl(3,lay)
+!           colo3(lay) = 0._rb
+!           colo3(lay) = colo3(lay)/1.16_rb
+         coln2o(lay) = 1.e-20_rb * wkl(4,lay)
+         colch4(lay) = 1.e-20_rb * wkl(6,lay)
+         colo2(lay) = 1.e-20_rb * wkl(7,lay)
+         colmol(lay) = 1.e-20_rb * coldry(lay) + colh2o(lay)
+!           colco2(lay) = 0._rb
+!           colo3(lay) = 0._rb
+!           coln2o(lay) = 0._rb
+!           colch4(lay) = 0._rb
+!           colo2(lay) = 0._rb
+!           colmol(lay) = 0._rb
+         if (colco2(lay) .eq. 0._rb) colco2(lay) = 1.e-32_rb * coldry(lay)
+         if (coln2o(lay) .eq. 0._rb) coln2o(lay) = 1.e-32_rb * coldry(lay)
+         if (colch4(lay) .eq. 0._rb) colch4(lay) = 1.e-32_rb * coldry(lay)
+         if (colo2(lay) .eq. 0._rb) colo2(lay) = 1.e-32_rb * coldry(lay)
+! Using E = 1334.2 cm-1.
+         co2reg = 3.55e-24_rb * coldry(lay)
+         co2mult(lay)= (colco2(lay) - co2reg) * &
+               272.63_rb*exp(-1919.4_rb/tavel(lay))/(8.7604e-4_rb*tavel(lay))
+         goto 5400
+
+! Above laytrop.
+ 5300    continue
+
+! Set up factors needed to separately include the water vapor
+! foreign-continuum in the calculation of absorption coefficient.
+
+         forfac(lay) = scalefac / (1.+water)
+         factor = (tavel(lay)-188.0_rb)/36.0_rb
+         indfor(lay) = 3
+         forfrac(lay) = factor - 1.0_rb
+
+! Calculate needed column amounts.
+
+         colh2o(lay) = 1.e-20_rb * wkl(1,lay)
+         colco2(lay) = 1.e-20_rb * wkl(2,lay)
+         colo3(lay)  = 1.e-20_rb * wkl(3,lay)
+         coln2o(lay) = 1.e-20_rb * wkl(4,lay)
+         colch4(lay) = 1.e-20_rb * wkl(6,lay)
+         colo2(lay)  = 1.e-20_rb * wkl(7,lay)
+         colmol(lay) = 1.e-20_rb * coldry(lay) + colh2o(lay)
+         if (colco2(lay) .eq. 0._rb) colco2(lay) = 1.e-32_rb * coldry(lay)
+         if (coln2o(lay) .eq. 0._rb) coln2o(lay) = 1.e-32_rb * coldry(lay)
+         if (colch4(lay) .eq. 0._rb) colch4(lay) = 1.e-32_rb * coldry(lay)
+         if (colo2(lay)  .eq. 0._rb) colo2(lay)  = 1.e-32_rb * coldry(lay)
+         co2reg = 3.55e-24_rb * coldry(lay)
+         co2mult(lay)= (colco2(lay) - co2reg) * &
+               272.63_rb*exp(-1919.4_rb/tavel(lay))/(8.7604e-4_rb*tavel(lay))
+
+         selffac(lay) = 0._rb
+         selffrac(lay)= 0._rb
+         indself(lay) = 0
+
+ 5400    continue
+
+! We have now isolated the layer ln pressure and temperature,
+! between two reference pressures and two reference temperatures 
+! (for each reference pressure).  We multiply the pressure 
+! fraction FP with the appropriate temperature fractions to get 
+! the factors that will be needed for the interpolation that yields
+! the optical depths (performed in routines TAUGBn for band n).
+
+         compfp = 1._rb - fp
+         fac10(lay) = compfp * ft
+         fac00(lay) = compfp * (1._rb - ft)
+         fac11(lay) = fp * ft1
+         fac01(lay) = fp * (1._rb - ft1)
+
+! End layer loop
+      enddo
+
+      end subroutine setcoef_sw
+
+!***************************************************************************
+      subroutine swatmref
+!***************************************************************************
+
+      save
+ 
+! These pressures are chosen such that the ln of the first pressure
+! has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and
+! each subsequent ln(pressure) differs from the previous one by 0.2.
+
+      pref(:) = (/ &
+          1.05363e+03_rb,8.62642e+02_rb,7.06272e+02_rb,5.78246e+02_rb,4.73428e+02_rb, &
+          3.87610e+02_rb,3.17348e+02_rb,2.59823e+02_rb,2.12725e+02_rb,1.74164e+02_rb, &
+          1.42594e+02_rb,1.16746e+02_rb,9.55835e+01_rb,7.82571e+01_rb,6.40715e+01_rb, &
+          5.24573e+01_rb,4.29484e+01_rb,3.51632e+01_rb,2.87892e+01_rb,2.35706e+01_rb, &
+          1.92980e+01_rb,1.57998e+01_rb,1.29358e+01_rb,1.05910e+01_rb,8.67114e+00_rb, &
+          7.09933e+00_rb,5.81244e+00_rb,4.75882e+00_rb,3.89619e+00_rb,3.18993e+00_rb, &
+          2.61170e+00_rb,2.13828e+00_rb,1.75067e+00_rb,1.43333e+00_rb,1.17351e+00_rb, &
+          9.60789e-01_rb,7.86628e-01_rb,6.44036e-01_rb,5.27292e-01_rb,4.31710e-01_rb, &
+          3.53455e-01_rb,2.89384e-01_rb,2.36928e-01_rb,1.93980e-01_rb,1.58817e-01_rb, &
+          1.30029e-01_rb,1.06458e-01_rb,8.71608e-02_rb,7.13612e-02_rb,5.84256e-02_rb, &
+          4.78349e-02_rb,3.91639e-02_rb,3.20647e-02_rb,2.62523e-02_rb,2.14936e-02_rb, &
+          1.75975e-02_rb,1.44076e-02_rb,1.17959e-02_rb,9.65769e-03_rb /)
+
+      preflog(:) = (/ &
+           6.9600e+00_rb, 6.7600e+00_rb, 6.5600e+00_rb, 6.3600e+00_rb, 6.1600e+00_rb, &
+           5.9600e+00_rb, 5.7600e+00_rb, 5.5600e+00_rb, 5.3600e+00_rb, 5.1600e+00_rb, &
+           4.9600e+00_rb, 4.7600e+00_rb, 4.5600e+00_rb, 4.3600e+00_rb, 4.1600e+00_rb, &
+           3.9600e+00_rb, 3.7600e+00_rb, 3.5600e+00_rb, 3.3600e+00_rb, 3.1600e+00_rb, &
+           2.9600e+00_rb, 2.7600e+00_rb, 2.5600e+00_rb, 2.3600e+00_rb, 2.1600e+00_rb, &
+           1.9600e+00_rb, 1.7600e+00_rb, 1.5600e+00_rb, 1.3600e+00_rb, 1.1600e+00_rb, &
+           9.6000e-01_rb, 7.6000e-01_rb, 5.6000e-01_rb, 3.6000e-01_rb, 1.6000e-01_rb, &
+          -4.0000e-02_rb,-2.4000e-01_rb,-4.4000e-01_rb,-6.4000e-01_rb,-8.4000e-01_rb, &
+          -1.0400e+00_rb,-1.2400e+00_rb,-1.4400e+00_rb,-1.6400e+00_rb,-1.8400e+00_rb, &
+          -2.0400e+00_rb,-2.2400e+00_rb,-2.4400e+00_rb,-2.6400e+00_rb,-2.8400e+00_rb, &
+          -3.0400e+00_rb,-3.2400e+00_rb,-3.4400e+00_rb,-3.6400e+00_rb,-3.8400e+00_rb, &
+          -4.0400e+00_rb,-4.2400e+00_rb,-4.4400e+00_rb,-4.6400e+00_rb /)
+
+! These are the temperatures associated with the respective 
+! pressures for the MLS standard atmosphere. 
+
+      tref(:) = (/ &
+           2.9420e+02_rb, 2.8799e+02_rb, 2.7894e+02_rb, 2.6925e+02_rb, 2.5983e+02_rb, &
+           2.5017e+02_rb, 2.4077e+02_rb, 2.3179e+02_rb, 2.2306e+02_rb, 2.1578e+02_rb, &
+           2.1570e+02_rb, 2.1570e+02_rb, 2.1570e+02_rb, 2.1706e+02_rb, 2.1858e+02_rb, &
+           2.2018e+02_rb, 2.2174e+02_rb, 2.2328e+02_rb, 2.2479e+02_rb, 2.2655e+02_rb, &
+           2.2834e+02_rb, 2.3113e+02_rb, 2.3401e+02_rb, 2.3703e+02_rb, 2.4022e+02_rb, &
+           2.4371e+02_rb, 2.4726e+02_rb, 2.5085e+02_rb, 2.5457e+02_rb, 2.5832e+02_rb, &
+           2.6216e+02_rb, 2.6606e+02_rb, 2.6999e+02_rb, 2.7340e+02_rb, 2.7536e+02_rb, &
+           2.7568e+02_rb, 2.7372e+02_rb, 2.7163e+02_rb, 2.6955e+02_rb, 2.6593e+02_rb, &
+           2.6211e+02_rb, 2.5828e+02_rb, 2.5360e+02_rb, 2.4854e+02_rb, 2.4348e+02_rb, & 
+           2.3809e+02_rb, 2.3206e+02_rb, 2.2603e+02_rb, 2.2000e+02_rb, 2.1435e+02_rb, &
+           2.0887e+02_rb, 2.0340e+02_rb, 1.9792e+02_rb, 1.9290e+02_rb, 1.8809e+02_rb, &
+           1.8329e+02_rb, 1.7849e+02_rb, 1.7394e+02_rb, 1.7212e+02_rb /)
+
+      end subroutine swatmref
+
+      end module rrtmg_sw_setcoef
+
+
diff --git a/radiation/src/rrtmg_sw_spcvmc.f90 b/radiation/src/rrtmg_sw_spcvmc.f90
new file mode 100644
index 0000000000000000000000000000000000000000..7d01ba5410acd6af51f77c0ab059dc4006573c9a
--- /dev/null
+++ b/radiation/src/rrtmg_sw_spcvmc.f90
@@ -0,0 +1,667 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+
+      module rrtmg_sw_spcvmc
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only : nbndsw, ngptsw, mxmol, jpband
+      use rrsw_tbl, only : tblint, bpade, od_lo, exp_tbl
+      use rrsw_vsn, only : hvrspc, hnamspc
+      use rrsw_wvn, only : ngc, ngs
+      use rrtmg_sw_reftra, only: reftra_sw
+      use rrtmg_sw_taumol, only: taumol_sw
+      use rrtmg_sw_vrtqdr, only: vrtqdr_sw
+
+      implicit none
+
+      contains
+
+! ---------------------------------------------------------------------------
+      subroutine spcvmc_sw &
+            (nlayers, istart, iend, icpr, idelm, iout, &
+             pavel, tavel, pz, tz, tbound, palbd, palbp, &
+             pcldfmc, ptaucmc, pasycmc, pomgcmc, ptaormc, &
+             ptaua, pasya, pomga, prmu0, coldry, wkl, adjflux, &
+             isolvar, svar_f, svar_s, svar_i, &
+             svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+             laytrop, layswtch, laylow, jp, jt, jt1, &
+             co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &
+             fac00, fac01, fac10, fac11, &
+             selffac, selffrac, indself, forfac, forfrac, indfor, &
+             pbbfd, pbbfu, pbbcd, pbbcu, puvfd, puvcd, pnifd, pnicd, &
+             pbbfddir, pbbcddir, puvfddir, puvcddir, pnifddir, pnicddir)
+! ---------------------------------------------------------------------------
+!
+! Purpose: Contains spectral loop to compute the shortwave radiative fluxes, 
+!          using the two-stream method of H. Barker and McICA, the Monte-Carlo
+!          Independent Column Approximation, for the representation of 
+!          sub-grid cloud variability (i.e. cloud overlap).
+!
+! Interface:  *spcvmc_sw* is called from *rrtmg_sw.F90* or rrtmg_sw.1col.F90*
+!
+! Method:
+!    Adapted from two-stream model of H. Barker;
+!    Two-stream model options (selected with kmodts in rrtmg_sw_reftra.F90):
+!        1: Eddington, 2: PIFM, Zdunkowski et al., 3: discret ordinates
+!
+! Modifications:
+!
+! Original: H. Barker
+! Revision: Merge with RRTMG_SW: J.-J.Morcrette, ECMWF, Feb 2003
+! Revision: Add adjustment for Earth/Sun distance : MJIacono, AER, Oct 2003
+! Revision: Bug fix for use of PALBP and PALBD: MJIacono, AER, Nov 2003
+! Revision: Bug fix to apply delta scaling to clear sky: AER, Dec 2004
+! Revision: Code modified so that delta scaling is not done in cloudy profiles
+!           if routine cldprop is used; delta scaling can be applied by swithcing
+!           code below if cldprop is not used to get cloud properties. 
+!           AER, Jan 2005
+! Revision: Modified to use McICA: MJIacono, AER, Nov 2005
+! Revision: Uniform formatting for RRTMG: MJIacono, AER, Jul 2006 
+! Revision: Use exponential lookup table for transmittance: MJIacono, AER, 
+!           Aug 2007 
+!
+! ------------------------------------------------------------------
+
+! ------- Declarations ------
+
+! ------- Input -------
+
+      integer(kind=im), intent(in) :: nlayers
+      integer(kind=im), intent(in) :: istart
+      integer(kind=im), intent(in) :: iend
+      integer(kind=im), intent(in) :: icpr
+      integer(kind=im), intent(in) :: idelm   ! delta-m scaling flag
+                                              ! [0 = direct and diffuse fluxes are unscaled]
+                                              ! [1 = direct and diffuse fluxes are scaled]
+      integer(kind=im), intent(in) :: iout
+      integer(kind=im), intent(in) :: laytrop
+      integer(kind=im), intent(in) :: layswtch
+      integer(kind=im), intent(in) :: laylow
+
+      integer(kind=im), intent(in) :: indfor(:)
+                                                               !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: indself(:)
+                                                               !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: jp(:)
+                                                               !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: jt(:)
+                                                               !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: jt1(:)
+                                                               !   Dimensions: (nlayers)
+
+      real(kind=rb), intent(in) :: pavel(:)                    ! layer pressure (hPa, mb) 
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tavel(:)                    ! layer temperature (K)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: pz(0:)                      ! level (interface) pressure (hPa, mb)
+                                                               !   Dimensions: (0:nlayers)
+      real(kind=rb), intent(in) :: tz(0:)                      ! level temperatures (hPa, mb)
+                                                               !   Dimensions: (0:nlayers)
+      real(kind=rb), intent(in) :: tbound                      ! surface temperature (K)
+      real(kind=rb), intent(in) :: wkl(:,:)                    ! molecular amounts (mol/cm2) 
+                                                               !   Dimensions: (mxmol,nlayers)
+      real(kind=rb), intent(in) :: coldry(:)                   ! dry air column density (mol/cm2)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colmol(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: adjflux(:)                  ! Earth/Sun distance adjustment
+                                                               !   Dimensions: (jpband)
+! Solar variability
+      integer(kind=im), intent(in) :: isolvar                  ! Flag for solar variability method
+      real(kind=rb), intent(in) :: svar_f                      ! Solar variability facular multiplier
+      real(kind=rb), intent(in) :: svar_s                      ! Solar variability sunspot multiplier
+      real(kind=rb), intent(in) :: svar_i                      ! Solar variability baseline irradiance multiplier
+      real(kind=rb), intent(in) :: svar_f_bnd(jpband)          ! Solar variability facular multiplier (by band)
+      real(kind=rb), intent(in) :: svar_s_bnd(jpband)          ! Solar variability sunspot multiplier (by band)
+      real(kind=rb), intent(in) :: svar_i_bnd(jpband)          ! Solar variability baseline irradiance multiplier (by band)
+
+      real(kind=rb), intent(in) :: palbd(:)                    ! surface albedo (diffuse)
+                                                               !   Dimensions: (nbndsw)
+      real(kind=rb), intent(in) :: palbp(:)                    ! surface albedo (direct)
+                                                               !   Dimensions: (nbndsw)
+      real(kind=rb), intent(in) :: prmu0                       ! cosine of solar zenith angle
+      real(kind=rb), intent(in) :: pcldfmc(:,:)                ! cloud fraction [mcica]
+                                                               !   Dimensions: (nlayers,ngptsw)
+      real(kind=rb), intent(in) :: ptaucmc(:,:)                ! cloud optical depth [mcica]
+                                                               !   Dimensions: (nlayers,ngptsw)
+      real(kind=rb), intent(in) :: pasycmc(:,:)                ! cloud asymmetry parameter [mcica]
+                                                               !   Dimensions: (nlayers,ngptsw)
+      real(kind=rb), intent(in) :: pomgcmc(:,:)                ! cloud single scattering albedo [mcica]
+                                                               !   Dimensions: (nlayers,ngptsw)
+      real(kind=rb), intent(in) :: ptaormc(:,:)                ! cloud optical depth, non-delta scaled [mcica]
+                                                               !   Dimensions: (nlayers,ngptsw)
+      real(kind=rb), intent(in) :: ptaua(:,:)                  ! aerosol optical depth
+                                                               !   Dimensions: (nlayers,nbndsw)
+      real(kind=rb), intent(in) :: pasya(:,:)                  ! aerosol asymmetry parameter
+                                                               !   Dimensions: (nlayers,nbndsw)
+      real(kind=rb), intent(in) :: pomga(:,:)                  ! aerosol single scattering albedo
+                                                               !   Dimensions: (nlayers,nbndsw)
+
+      real(kind=rb), intent(in) :: colh2o(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colco2(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colch4(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: co2mult(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colo3(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colo2(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: coln2o(:)
+                                                               !   Dimensions: (nlayers)
+
+      real(kind=rb), intent(in) :: forfac(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: forfrac(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: selffac(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: selffrac(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: fac00(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: fac01(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: fac10(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: fac11(:)
+                                                               !   Dimensions: (nlayers)
+
+! ------- Output -------
+                                                               !   All Dimensions: (nlayers+1)
+      real(kind=rb), intent(out) :: pbbcd(:)
+      real(kind=rb), intent(out) :: pbbcu(:)
+      real(kind=rb), intent(out) :: pbbfd(:)
+      real(kind=rb), intent(out) :: pbbfu(:)
+      real(kind=rb), intent(out) :: pbbfddir(:)
+      real(kind=rb), intent(out) :: pbbcddir(:)
+
+      real(kind=rb), intent(out) :: puvcd(:)
+      real(kind=rb), intent(out) :: puvfd(:)
+      real(kind=rb), intent(out) :: puvcddir(:)
+      real(kind=rb), intent(out) :: puvfddir(:)
+
+      real(kind=rb), intent(out) :: pnicd(:)
+      real(kind=rb), intent(out) :: pnifd(:)
+      real(kind=rb), intent(out) :: pnicddir(:)
+      real(kind=rb), intent(out) :: pnifddir(:)
+
+! Output - inactive                                            !   All Dimensions: (nlayers+1)
+!      real(kind=rb), intent(out) :: puvcu(:)
+!      real(kind=rb), intent(out) :: puvfu(:)
+!      real(kind=rb), intent(out) :: pnicu(:)
+!      real(kind=rb), intent(out) :: pnifu(:)
+!      real(kind=rb), intent(out) :: pvscd(:)
+!      real(kind=rb), intent(out) :: pvscu(:)
+!      real(kind=rb), intent(out) :: pvsfd(:)
+!      real(kind=rb), intent(out) :: pvsfu(:)
+
+! ------- Local -------
+
+      logical :: lrtchkclr(nlayers),lrtchkcld(nlayers)
+
+      integer(kind=im)  :: klev
+      integer(kind=im) :: ib1, ib2, ibm, igt, ikl, ikp, ikx
+      integer(kind=im) :: iw, jb, jg, jl, jk
+!      integer(kind=im), parameter :: nuv = ?? 
+!      integer(kind=im), parameter :: nvs = ?? 
+      integer(kind=im) :: itind
+
+      real(kind=rb) :: tblind, ze1
+      real(kind=rb) :: zclear, zcloud
+      real(kind=rb) :: zdbt(nlayers+1), zdbt_nodel(nlayers+1)
+      real(kind=rb) :: zgc(nlayers), zgcc(nlayers), zgco(nlayers)
+      real(kind=rb) :: zomc(nlayers), zomcc(nlayers), zomco(nlayers)
+      real(kind=rb) :: zrdnd(nlayers+1), zrdndc(nlayers+1)
+      real(kind=rb) :: zref(nlayers+1), zrefc(nlayers+1), zrefo(nlayers+1)
+      real(kind=rb) :: zrefd(nlayers+1), zrefdc(nlayers+1), zrefdo(nlayers+1)
+      real(kind=rb) :: zrup(nlayers+1), zrupd(nlayers+1)
+      real(kind=rb) :: zrupc(nlayers+1), zrupdc(nlayers+1)
+      real(kind=rb) :: zs1(nlayers+1)
+      real(kind=rb) :: ztauc(nlayers), ztauo(nlayers)
+      real(kind=rb) :: ztdn(nlayers+1), ztdnd(nlayers+1), ztdbt(nlayers+1)
+      real(kind=rb) :: ztoc(nlayers), ztor(nlayers)
+      real(kind=rb) :: ztra(nlayers+1), ztrac(nlayers+1), ztrao(nlayers+1)
+      real(kind=rb) :: ztrad(nlayers+1), ztradc(nlayers+1), ztrado(nlayers+1)
+      real(kind=rb) :: zdbtc(nlayers+1), ztdbtc(nlayers+1)
+      real(kind=rb) :: zincflx(ngptsw), zdbtc_nodel(nlayers+1) 
+      real(kind=rb) :: ztdbt_nodel(nlayers+1), ztdbtc_nodel(nlayers+1)
+
+      real(kind=rb) :: zdbtmc, zdbtmo, zf, zgw, zreflect
+      real(kind=rb) :: zwf, tauorig, repclc
+!     real(kind=rb) :: zincflux                                   ! inactive
+
+! Arrays from rrtmg_sw_taumoln routines
+
+!      real(kind=rb) :: ztaug(nlayers,16), ztaur(nlayers,16)
+!      real(kind=rb) :: zsflxzen(16)
+      real(kind=rb) :: ztaug(nlayers,ngptsw), ztaur(nlayers,ngptsw)
+      real(kind=rb) :: zsflxzen(ngptsw)
+      real(kind=rb) :: ssi(ngptsw)
+
+! Arrays from rrtmg_sw_vrtqdr routine
+
+      real(kind=rb) :: zcd(nlayers+1,ngptsw), zcu(nlayers+1,ngptsw)
+      real(kind=rb) :: zfd(nlayers+1,ngptsw), zfu(nlayers+1,ngptsw)
+
+! Inactive arrays
+!     real(kind=rb) :: zbbcd(nlayers+1), zbbcu(nlayers+1)
+!     real(kind=rb) :: zbbfd(nlayers+1), zbbfu(nlayers+1)
+!     real(kind=rb) :: zbbfddir(nlayers+1), zbbcddir(nlayers+1)
+
+! ------------------------------------------------------------------
+
+! Initializations
+
+      ib1 = istart
+      ib2 = iend
+      klev = nlayers
+      iw = 0
+      repclc = 1.e-12_rb
+!      zincflux = 0.0_rb
+
+      do jk=1,klev+1
+         pbbcd(jk)=0._rb
+         pbbcu(jk)=0._rb
+         pbbfd(jk)=0._rb
+         pbbfu(jk)=0._rb
+         pbbcddir(jk)=0._rb
+         pbbfddir(jk)=0._rb
+         puvcd(jk)=0._rb
+         puvfd(jk)=0._rb
+         puvcddir(jk)=0._rb
+         puvfddir(jk)=0._rb
+         pnicd(jk)=0._rb
+         pnifd(jk)=0._rb
+         pnicddir(jk)=0._rb
+         pnifddir(jk)=0._rb
+      enddo
+
+
+! Calculate the optical depths for gaseous absorption and Rayleigh scattering
+
+      call taumol_sw(klev, &
+                     colh2o, colco2, colch4, colo2, colo3, colmol, &
+                     laytrop, jp, jt, jt1, &
+                     fac00, fac01, fac10, fac11, &
+                     selffac, selffrac, indself, forfac, forfrac, indfor, &
+                     isolvar, svar_f, svar_s, svar_i, &
+                     svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+                     ssi, zsflxzen, ztaug, ztaur)
+
+! Top of shortwave spectral band loop, jb = 16 -> 29; ibm = 1 -> 14
+
+      do jb = ib1, ib2
+         ibm = jb-15
+         igt = ngc(ibm)
+
+! Reinitialize g-point counter for each band if output for each band is requested.
+         if (iout.gt.0.and.ibm.ge.2) iw = ngs(ibm-1)
+
+!        do jk=1,klev+1
+!           zbbcd(jk)=0.0_rb
+!           zbbcu(jk)=0.0_rb
+!           zbbfd(jk)=0.0_rb
+!           zbbfu(jk)=0.0_rb
+!        enddo
+
+! Top of g-point interval loop within each band (iw is cumulative counter) 
+         do jg = 1,igt
+            iw = iw+1
+
+! Apply adjustment for correct Earth/Sun distance and zenith angle to incoming solar flux
+! No solar variability and no solar cycle
+            if (isolvar .lt. 0) then 
+               zincflx(iw) = adjflux(jb) * zsflxzen(iw) * prmu0
+!               zincflux = zincflux + adjflux(jb) * zsflxzen(iw) * prmu0           ! inactive
+            endif
+! Solar variability with averaged or specified solar cycle
+            if (isolvar .ge. 0) then 
+               zincflx(iw) = adjflux(jb) * ssi(iw) * prmu0
+            endif
+
+! Compute layer reflectances and transmittances for direct and diffuse sources, 
+! first clear then cloudy
+
+! zrefc(jk)  direct albedo for clear
+! zrefo(jk)  direct albedo for cloud
+! zrefdc(jk) diffuse albedo for clear
+! zrefdo(jk) diffuse albedo for cloud
+! ztrac(jk)  direct transmittance for clear
+! ztrao(jk)  direct transmittance for cloudy
+! ztradc(jk) diffuse transmittance for clear
+! ztrado(jk) diffuse transmittance for cloudy
+!  
+! zref(jk)   direct reflectance
+! zrefd(jk)  diffuse reflectance
+! ztra(jk)   direct transmittance
+! ztrad(jk)  diffuse transmittance
+!
+! zdbtc(jk)  clear direct beam transmittance
+! zdbto(jk)  cloudy direct beam transmittance
+! zdbt(jk)   layer mean direct beam transmittance
+! ztdbt(jk)  total direct beam transmittance at levels
+
+! Clear-sky    
+!   TOA direct beam    
+            ztdbtc(1)=1.0_rb
+            ztdbtc_nodel(1)=1.0_rb
+!   Surface values
+            zdbtc(klev+1) =0.0_rb
+            ztrac(klev+1) =0.0_rb
+            ztradc(klev+1)=0.0_rb
+            zrefc(klev+1) =palbp(ibm)
+            zrefdc(klev+1)=palbd(ibm)
+            zrupc(klev+1) =palbp(ibm)
+            zrupdc(klev+1)=palbd(ibm)
+           
+! Cloudy-sky    
+!   Surface values
+            ztrao(klev+1) =0.0_rb
+            ztrado(klev+1)=0.0_rb
+            zrefo(klev+1) =palbp(ibm)
+            zrefdo(klev+1)=palbd(ibm)
+           
+! Total sky    
+!   TOA direct beam    
+            ztdbt(1)=1.0_rb
+            ztdbt_nodel(1)=1.0_rb
+!   Surface values
+            zdbt(klev+1) =0.0_rb
+            ztra(klev+1) =0.0_rb
+            ztrad(klev+1)=0.0_rb
+            zref(klev+1) =palbp(ibm)
+            zrefd(klev+1)=palbd(ibm)
+            zrup(klev+1) =palbp(ibm)
+            zrupd(klev+1)=palbd(ibm)
+    
+! Top of layer loop
+            do jk=1,klev
+
+! Note: two-stream calculations proceed from top to bottom; 
+!   RRTMG_SW quantities are given bottom to top and are reversed here
+
+               ikl=klev+1-jk
+
+! Set logical flag to do REFTRA calculation
+!   Do REFTRA for all clear layers
+               lrtchkclr(jk)=.true.
+
+!   Do REFTRA only for cloudy layers in profile, since already done for clear layers
+               lrtchkcld(jk)=.false.
+               lrtchkcld(jk)=(pcldfmc(ikl,iw) > repclc)
+
+! Clear-sky optical parameters - this section inactive     
+!   Original
+!               ztauc(jk) = ztaur(ikl,iw) + ztaug(ikl,iw)
+!               zomcc(jk) = ztaur(ikl,iw) / ztauc(jk)
+!               zgcc(jk) = 0.0001_rb
+!   Total sky optical parameters        
+!               ztauo(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaucmc(ikl,iw)
+!               zomco(jk) = ptaucmc(ikl,iw) * pomgcmc(ikl,iw) + ztaur(ikl,iw)
+!               zgco (jk) = (ptaucmc(ikl,iw) * pomgcmc(ikl,iw) * pasycmc(ikl,iw) + &
+!                           ztaur(ikl,iw) * 0.0001_rb) / zomco(jk)
+!               zomco(jk) = zomco(jk) / ztauo(jk)
+
+! Clear-sky optical parameters including aerosols
+               ztauc(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaua(ikl,ibm)
+               zomcc(jk) = ztaur(ikl,iw) * 1.0_rb + ptaua(ikl,ibm) * pomga(ikl,ibm)
+               zgcc(jk) = pasya(ikl,ibm) * pomga(ikl,ibm) * ptaua(ikl,ibm) / zomcc(jk)
+               zomcc(jk) = zomcc(jk) / ztauc(jk)
+
+! Pre-delta-scaling clear and cloudy direct beam transmittance (must use 'orig', unscaled cloud OD)       
+!   \/\/\/ This block of code is only needed for unscaled direct beam calculation
+               if (idelm .eq. 0) then
+!     
+                  zclear = 1.0_rb - pcldfmc(ikl,iw)
+                  zcloud = pcldfmc(ikl,iw)
+
+! Clear
+!                   zdbtmc = exp(-ztauc(jk) / prmu0)
+
+! Use exponential lookup table for transmittance, or expansion of exponential for low tau
+                  ze1 = ztauc(jk) / prmu0
+                  if (ze1 .le. od_lo) then
+                     zdbtmc = 1._rb - ze1 + 0.5_rb * ze1 * ze1
+                  else 
+                     tblind = ze1 / (bpade + ze1)
+                     itind = tblint * tblind + 0.5_rb
+                     zdbtmc = exp_tbl(itind)
+                  endif
+
+                  zdbtc_nodel(jk) = zdbtmc
+                  ztdbtc_nodel(jk+1) = zdbtc_nodel(jk) * ztdbtc_nodel(jk)
+
+! Clear + Cloud
+                  tauorig = ztauc(jk) + ptaormc(ikl,iw)
+!                   zdbtmo = exp(-tauorig / prmu0)
+
+! Use exponential lookup table for transmittance, or expansion of exponential for low tau
+                  ze1 = tauorig / prmu0
+                  if (ze1 .le. od_lo) then
+                     zdbtmo = 1._rb - ze1 + 0.5_rb * ze1 * ze1
+                  else
+                     tblind = ze1 / (bpade + ze1)
+                     itind = tblint * tblind + 0.5_rb
+                     zdbtmo = exp_tbl(itind)
+                  endif
+
+                  zdbt_nodel(jk) = zclear*zdbtmc + zcloud*zdbtmo
+                  ztdbt_nodel(jk+1) = zdbt_nodel(jk) * ztdbt_nodel(jk)
+
+               endif
+!   /\/\/\ Above code only needed for unscaled direct beam calculation
+
+
+! Delta scaling - clear   
+               zf = zgcc(jk) * zgcc(jk)
+               zwf = zomcc(jk) * zf
+               ztauc(jk) = (1.0_rb - zwf) * ztauc(jk)
+               zomcc(jk) = (zomcc(jk) - zwf) / (1.0_rb - zwf)
+               zgcc (jk) = (zgcc(jk) - zf) / (1.0_rb - zf)
+
+! Total sky optical parameters (cloud properties already delta-scaled)
+!   Use this code if cloud properties are derived in rrtmg_sw_cldprop       
+               if (icpr .ge. 1) then
+                  ztauo(jk) = ztauc(jk) + ptaucmc(ikl,iw)
+                  zomco(jk) = ztauc(jk) * zomcc(jk) + ptaucmc(ikl,iw) * pomgcmc(ikl,iw) 
+                  zgco (jk) = (ptaucmc(ikl,iw) * pomgcmc(ikl,iw) * pasycmc(ikl,iw) + &
+                              ztauc(jk) * zomcc(jk) * zgcc(jk)) / zomco(jk)
+                  zomco(jk) = zomco(jk) / ztauo(jk)
+
+! Total sky optical parameters (if cloud properties not delta scaled)
+!   Use this code if cloud properties are not derived in rrtmg_sw_cldprop       
+               elseif (icpr .eq. 0) then
+                  ztauo(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaua(ikl,ibm) + ptaucmc(ikl,iw)
+                  zomco(jk) = ptaua(ikl,ibm) * pomga(ikl,ibm) + ptaucmc(ikl,iw) * pomgcmc(ikl,iw) + &
+                              ztaur(ikl,iw) * 1.0_rb
+                  zgco (jk) = (ptaucmc(ikl,iw) * pomgcmc(ikl,iw) * pasycmc(ikl,iw) + &
+                              ptaua(ikl,ibm)*pomga(ikl,ibm)*pasya(ikl,ibm)) / zomco(jk)
+                  zomco(jk) = zomco(jk) / ztauo(jk)
+
+! Delta scaling - clouds 
+!   Use only if subroutine rrtmg_sw_cldprop is not used to get cloud properties and to apply delta scaling
+                  zf = zgco(jk) * zgco(jk)
+                  zwf = zomco(jk) * zf
+                  ztauo(jk) = (1._rb - zwf) * ztauo(jk)
+                  zomco(jk) = (zomco(jk) - zwf) / (1.0_rb - zwf)
+                  zgco (jk) = (zgco(jk) - zf) / (1.0_rb - zf)
+               endif 
+
+! End of layer loop
+            enddo    
+
+! Clear sky reflectivities
+            call reftra_sw (klev, &
+                            lrtchkclr, zgcc, prmu0, ztauc, zomcc, &
+                            zrefc, zrefdc, ztrac, ztradc)
+
+! Total sky reflectivities      
+            call reftra_sw (klev, &
+                            lrtchkcld, zgco, prmu0, ztauo, zomco, &
+                            zrefo, zrefdo, ztrao, ztrado)
+
+            do jk=1,klev
+
+! Combine clear and cloudy contributions for total sky
+               ikl = klev+1-jk 
+               zclear = 1.0_rb - pcldfmc(ikl,iw)
+               zcloud = pcldfmc(ikl,iw)
+
+               zref(jk) = zclear*zrefc(jk) + zcloud*zrefo(jk)
+               zrefd(jk)= zclear*zrefdc(jk) + zcloud*zrefdo(jk)
+               ztra(jk) = zclear*ztrac(jk) + zcloud*ztrao(jk)
+               ztrad(jk)= zclear*ztradc(jk) + zcloud*ztrado(jk)
+
+! Direct beam transmittance        
+
+! Clear
+!                zdbtmc = exp(-ztauc(jk) / prmu0)
+
+! Use exponential lookup table for transmittance, or expansion of 
+! exponential for low tau
+               ze1 = ztauc(jk) / prmu0
+               if (ze1 .le. od_lo) then
+                  zdbtmc = 1._rb - ze1 + 0.5_rb * ze1 * ze1
+               else
+                  tblind = ze1 / (bpade + ze1)
+                  itind = tblint * tblind + 0.5_rb
+                  zdbtmc = exp_tbl(itind)
+               endif
+
+               zdbtc(jk) = zdbtmc
+               ztdbtc(jk+1) = zdbtc(jk)*ztdbtc(jk)
+
+! Clear + Cloud
+!                zdbtmo = exp(-ztauo(jk) / prmu0)
+
+! Use exponential lookup table for transmittance, or expansion of 
+! exponential for low tau
+               ze1 = ztauo(jk) / prmu0
+               if (ze1 .le. od_lo) then
+                  zdbtmo = 1._rb - ze1 + 0.5_rb * ze1 * ze1
+               else
+                  tblind = ze1 / (bpade + ze1)
+                  itind = tblint * tblind + 0.5_rb
+                  zdbtmo = exp_tbl(itind)
+               endif
+
+               zdbt(jk) = zclear*zdbtmc + zcloud*zdbtmo
+               ztdbt(jk+1) = zdbt(jk)*ztdbt(jk)
+        
+            enddo           
+                 
+! Vertical quadrature for clear-sky fluxes
+
+            call vrtqdr_sw(klev, iw, &
+                           zrefc, zrefdc, ztrac, ztradc, &
+                           zdbtc, zrdndc, zrupc, zrupdc, ztdbtc, &
+                           zcd, zcu)
+      
+! Vertical quadrature for cloudy fluxes
+
+            call vrtqdr_sw(klev, iw, &
+                           zref, zrefd, ztra, ztrad, &
+                           zdbt, zrdnd, zrup, zrupd, ztdbt, &
+                           zfd, zfu)
+
+! Upwelling and downwelling fluxes at levels
+!   Two-stream calculations go from top to bottom; 
+!   layer indexing is reversed to go bottom to top for output arrays
+
+            do jk=1,klev+1
+               ikl=klev+2-jk
+
+! Accumulate spectral fluxes over bands - inactive
+!               zbbfu(ikl) = zbbfu(ikl) + zincflx(iw)*zfu(jk,iw)  
+!               zbbfd(ikl) = zbbfd(ikl) + zincflx(iw)*zfd(jk,iw)
+!               zbbcu(ikl) = zbbcu(ikl) + zincflx(iw)*zcu(jk,iw)
+!               zbbcd(ikl) = zbbcd(ikl) + zincflx(iw)*zcd(jk,iw)
+!               zbbfddir(ikl) = zbbfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)
+!               zbbcddir(ikl) = zbbcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)
+
+! Accumulate spectral fluxes over whole spectrum  
+               pbbfu(ikl) = pbbfu(ikl) + zincflx(iw)*zfu(jk,iw)
+               pbbfd(ikl) = pbbfd(ikl) + zincflx(iw)*zfd(jk,iw)
+               pbbcu(ikl) = pbbcu(ikl) + zincflx(iw)*zcu(jk,iw)
+               pbbcd(ikl) = pbbcd(ikl) + zincflx(iw)*zcd(jk,iw)
+               if (idelm .eq. 0) then 
+                  pbbfddir(ikl) = pbbfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)
+                  pbbcddir(ikl) = pbbcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)
+               elseif (idelm .eq. 1) then
+                  pbbfddir(ikl) = pbbfddir(ikl) + zincflx(iw)*ztdbt(jk)
+                  pbbcddir(ikl) = pbbcddir(ikl) + zincflx(iw)*ztdbtc(jk)
+               endif
+
+! Accumulate direct fluxes for UV/visible bands
+               if (ibm >= 10 .and. ibm <= 13) then
+                  puvcd(ikl) = puvcd(ikl) + zincflx(iw)*zcd(jk,iw)
+                  puvfd(ikl) = puvfd(ikl) + zincflx(iw)*zfd(jk,iw)
+                  if (idelm .eq. 0) then 
+                     puvfddir(ikl) = puvfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)
+                     puvcddir(ikl) = puvcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)
+                  elseif (idelm .eq. 1) then
+                     puvfddir(ikl) = puvfddir(ikl) + zincflx(iw)*ztdbt(jk)
+                     puvcddir(ikl) = puvcddir(ikl) + zincflx(iw)*ztdbtc(jk)
+                  endif
+! Accumulate direct fluxes for near-IR bands
+               else if (ibm == 14 .or. ibm <= 9) then  
+                  pnicd(ikl) = pnicd(ikl) + zincflx(iw)*zcd(jk,iw)
+                  pnifd(ikl) = pnifd(ikl) + zincflx(iw)*zfd(jk,iw)
+                  if (idelm .eq. 0) then 
+                     pnifddir(ikl) = pnifddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)
+                     pnicddir(ikl) = pnicddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)
+                  elseif (idelm .eq. 1) then
+                     pnifddir(ikl) = pnifddir(ikl) + zincflx(iw)*ztdbt(jk)
+                     pnicddir(ikl) = pnicddir(ikl) + zincflx(iw)*ztdbtc(jk)
+                  endif
+               endif
+
+            enddo
+
+! End loop on jg, g-point interval
+         enddo             
+
+! End loop on jb, spectral band
+      enddo                    
+
+      end subroutine spcvmc_sw
+
+      end module rrtmg_sw_spcvmc
+
+
diff --git a/radiation/src/rrtmg_sw_spcvrt.f90 b/radiation/src/rrtmg_sw_spcvrt.f90
new file mode 100644
index 0000000000000000000000000000000000000000..27e7d12ba398c5b5cd23649e9696074ece1a8897
--- /dev/null
+++ b/radiation/src/rrtmg_sw_spcvrt.f90
@@ -0,0 +1,671 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+
+      module rrtmg_sw_spcvrt
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+      use parrrsw, only : nbndsw, ngptsw, mxmol, jpband
+      use rrsw_tbl, only : tblint, bpade, od_lo, exp_tbl
+      use rrsw_vsn, only : hvrspv, hnamspv
+      use rrsw_wvn, only : ngc, ngs
+      use rrtmg_sw_reftra, only: reftra_sw
+      use rrtmg_sw_taumol, only: taumol_sw
+      use rrtmg_sw_vrtqdr, only: vrtqdr_sw
+
+      implicit none
+
+      contains
+
+! ---------------------------------------------------------------------------
+      subroutine spcvrt_sw &
+            (nlayers, istart, iend, icpr, idelm, iout, &
+             pavel, tavel, pz, tz, tbound, palbd, palbp, &
+             pclfr, ptauc, pasyc, pomgc, ptaucorig, &
+             ptaua, pasya, pomga, prmu0, coldry, wkl, adjflux, &
+             isolvar, svar_f, svar_s, svar_i, &
+             svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+             laytrop, layswtch, laylow, jp, jt, jt1, &
+             co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &
+             fac00, fac01, fac10, fac11, &
+             selffac, selffrac, indself, forfac, forfrac, indfor, &
+             pbbfd, pbbfu, pbbcd, pbbcu, puvfd, puvcd, pnifd, pnicd, &
+             pbbfddir, pbbcddir, puvfddir, puvcddir, pnifddir, pnicddir)
+! ---------------------------------------------------------------------------
+!
+! Purpose: Contains spectral loop to compute the shortwave radiative fluxes, 
+!          using the two-stream method of H. Barker. 
+!
+! Interface:  *spcvrt_sw* is called from *rrtmg_sw.F90* or rrtmg_sw.1col.F90*
+!
+! Method:
+!    Adapted from two-stream model of H. Barker;
+!    Two-stream model options (selected with kmodts in rrtmg_sw_reftra.F90):
+!        1: Eddington, 2: PIFM, Zdunkowski et al., 3: discret ordinates
+!
+! Modifications:
+!
+! Original: H. Barker
+! Revision: Merge with RRTMG_SW: J.-J.Morcrette, ECMWF, Feb 2003
+! Revision: Add adjustment for Earth/Sun distance : MJIacono, AER, Oct 2003
+! Revision: Bug fix for use of PALBP and PALBD: MJIacono, AER, Nov 2003
+! Revision: Bug fix to apply delta scaling to clear sky: AER, Dec 2004
+! Revision: Code modified so that delta scaling is not done in cloudy profiles
+!           if routine cldprop is used; delta scaling can be applied by swithcing
+!           code below if cldprop is not used to get cloud properties. 
+!           AER, Jan 2005
+! Revision: Uniform formatting for RRTMG: MJIacono, AER, Jul 2006 
+! Revision: Use exponential lookup table for transmittance: MJIacono, AER, 
+!           Aug 2007 
+!
+! ------------------------------------------------------------------
+
+! ------- Declarations ------
+
+! -------- Input -------
+
+      integer(kind=im), intent(in) :: nlayers
+      integer(kind=im), intent(in) :: istart
+      integer(kind=im), intent(in) :: iend
+      integer(kind=im), intent(in) :: icpr
+      integer(kind=im), intent(in) :: idelm   ! delta-m scaling flag
+                                              ! [0 = direct and diffuse fluxes are unscaled]
+                                              ! [1 = direct and diffuse fluxes are scaled]
+      integer(kind=im), intent(in) :: iout
+      integer(kind=im), intent(in) :: laytrop
+      integer(kind=im), intent(in) :: layswtch
+      integer(kind=im), intent(in) :: laylow
+
+      integer(kind=im), intent(in) :: indfor(:)
+                                                               !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: indself(:)
+                                                               !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: jp(:)
+                                                               !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: jt(:)
+                                                               !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: jt1(:)
+                                                               !   Dimensions: (nlayers)
+
+      real(kind=rb), intent(in) :: pavel(:)                    ! layer pressure (hPa, mb) 
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: tavel(:)                    ! layer temperature (K)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: pz(0:)                      ! level (interface) pressure (hPa, mb)
+                                                               !   Dimensions: (0:nlayers)
+      real(kind=rb), intent(in) :: tz(0:)                      ! level temperatures (hPa, mb)
+                                                               !   Dimensions: (0:nlayers)
+      real(kind=rb), intent(in) :: tbound                      ! surface temperature (K)
+      real(kind=rb), intent(in) :: wkl(:,:)                    ! molecular amounts (mol/cm2) 
+                                                               !   Dimensions: (mxmol,nlayers)
+      real(kind=rb), intent(in) :: coldry(:)                   ! dry air column density (mol/cm2)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colmol(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: adjflux(:)                  ! Earth/Sun distance adjustment
+                                                               !   Dimensions: (jpband)
+! Solar variability
+      integer(kind=im), intent(in) :: isolvar                  ! Flag for solar variability method
+      real(kind=rb), intent(in) :: svar_f                      ! Solar variability facular multiplier
+      real(kind=rb), intent(in) :: svar_s                      ! Solar variability sunspot multiplier
+      real(kind=rb), intent(in) :: svar_i                      ! Solar variability baseline irradiance multiplier
+      real(kind=rb), intent(in) :: svar_f_bnd(jpband)          ! Solar variability facular multiplier (by band)
+      real(kind=rb), intent(in) :: svar_s_bnd(jpband)          ! Solar variability sunspot multiplier (by band)
+      real(kind=rb), intent(in) :: svar_i_bnd(jpband)          ! Solar variability baseline irradiance multiplier (by band)
+
+      real(kind=rb), intent(in) :: palbd(:)                    ! surface albedo (diffuse)
+                                                               !   Dimensions: (nbndsw)
+      real(kind=rb), intent(in) :: palbp(:)                    ! surface albedo (direct)
+                                                               !   Dimensions: (nbndsw)
+      real(kind=rb), intent(in) :: prmu0                       ! cosine of solar zenith angle
+      real(kind=rb), intent(in) :: pclfr(:)                    ! cloud fraction
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: ptauc(:,:)                  ! cloud optical depth
+                                                               !   Dimensions: (nlayers,nbndsw)
+      real(kind=rb), intent(in) :: pasyc(:,:)                  ! cloud asymmetry parameter
+                                                               !   Dimensions: (nlayers,nbndsw)
+      real(kind=rb), intent(in) :: pomgc(:,:)                  ! cloud single scattering albedo
+                                                               !   Dimensions: (nlayers,nbndsw)
+      real(kind=rb), intent(in) :: ptaucorig(:,:)              ! cloud optical depth, non-delta scaled
+                                                               !   Dimensions: (nlayers,nbndsw)
+      real(kind=rb), intent(in) :: ptaua(:,:)                  ! aerosol optical depth
+                                                               !   Dimensions: (nlayers,nbndsw)
+      real(kind=rb), intent(in) :: pasya(:,:)                  ! aerosol asymmetry parameter
+                                                               !   Dimensions: (nlayers,nbndsw)
+      real(kind=rb), intent(in) :: pomga(:,:)                  ! aerosol single scattering albedo
+                                                               !   Dimensions: (nlayers,nbndsw)
+
+      real(kind=rb), intent(in) :: colh2o(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colco2(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colch4(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: co2mult(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colo3(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colo2(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: coln2o(:)
+                                                               !   Dimensions: (nlayers)
+
+      real(kind=rb), intent(in) :: forfac(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: forfrac(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: selffac(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: selffrac(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: fac00(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: fac01(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: fac10(:)
+                                                               !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: fac11(:)
+                                                               !   Dimensions: (nlayers)
+
+! ------- Output -------
+                                                               !   All Dimensions: (nlayers+1)
+      real(kind=rb), intent(out) :: pbbcd(:)
+      real(kind=rb), intent(out) :: pbbcu(:)
+      real(kind=rb), intent(out) :: pbbfd(:)
+      real(kind=rb), intent(out) :: pbbfu(:)
+      real(kind=rb), intent(out) :: pbbfddir(:)
+      real(kind=rb), intent(out) :: pbbcddir(:)
+
+      real(kind=rb), intent(out) :: puvcd(:)
+      real(kind=rb), intent(out) :: puvfd(:)
+      real(kind=rb), intent(out) :: puvcddir(:)
+      real(kind=rb), intent(out) :: puvfddir(:)
+
+      real(kind=rb), intent(out) :: pnicd(:)
+      real(kind=rb), intent(out) :: pnifd(:)
+      real(kind=rb), intent(out) :: pnicddir(:)
+      real(kind=rb), intent(out) :: pnifddir(:)
+
+! Output - inactive                                            !   All Dimensions: (nlayers+1)
+!      real(kind=rb), intent(out) :: puvcu(:)
+!      real(kind=rb), intent(out) :: puvfu(:)
+!      real(kind=rb), intent(out) :: pnicu(:)
+!      real(kind=rb), intent(out) :: pnifu(:)
+!      real(kind=rb), intent(out) :: pvscd(:)
+!      real(kind=rb), intent(out) :: pvscu(:)
+!      real(kind=rb), intent(out) :: pvsfd(:)
+!      real(kind=rb), intent(out) :: pvsfu(:)
+
+
+! ------- Local -------
+
+      logical :: lrtchkclr(nlayers),lrtchkcld(nlayers)
+
+      integer(kind=im)  :: klev
+      integer(kind=im) :: ib1, ib2, ibm, igt, ikl, ikp, ikx
+      integer(kind=im) :: iw, jb, jg, jl, jk
+!      integer(kind=im), parameter :: nuv = ?? 
+!      integer(kind=im), parameter :: nvs = ?? 
+      integer(kind=im) :: itind
+
+      real(kind=rb) :: tblind, ze1
+      real(kind=rb) :: zclear, zcloud
+      real(kind=rb) :: zdbt(nlayers+1), zdbt_nodel(nlayers+1)
+      real(kind=rb) :: zgc(nlayers), zgcc(nlayers), zgco(nlayers)
+      real(kind=rb) :: zomc(nlayers), zomcc(nlayers), zomco(nlayers)
+      real(kind=rb) :: zrdnd(nlayers+1), zrdndc(nlayers+1)
+      real(kind=rb) :: zref(nlayers+1), zrefc(nlayers+1), zrefo(nlayers+1)
+      real(kind=rb) :: zrefd(nlayers+1), zrefdc(nlayers+1), zrefdo(nlayers+1)
+      real(kind=rb) :: zrup(nlayers+1), zrupd(nlayers+1)
+      real(kind=rb) :: zrupc(nlayers+1), zrupdc(nlayers+1)
+      real(kind=rb) :: zs1(nlayers+1)
+      real(kind=rb) :: ztauc(nlayers), ztauo(nlayers)
+      real(kind=rb) :: ztdn(nlayers+1), ztdnd(nlayers+1), ztdbt(nlayers+1)
+      real(kind=rb) :: ztoc(nlayers), ztor(nlayers)
+      real(kind=rb) :: ztra(nlayers+1), ztrac(nlayers+1), ztrao(nlayers+1)
+      real(kind=rb) :: ztrad(nlayers+1), ztradc(nlayers+1), ztrado(nlayers+1)
+      real(kind=rb) :: zdbtc(nlayers+1), ztdbtc(nlayers+1)
+      real(kind=rb) :: zincflx(ngptsw), zdbtc_nodel(nlayers+1) 
+      real(kind=rb) :: ztdbt_nodel(nlayers+1), ztdbtc_nodel(nlayers+1)
+
+      real(kind=rb) :: zdbtmc, zdbtmo, zf, zgw, zreflect
+      real(kind=rb) :: zwf, tauorig, repclc
+!     real(kind=rb) :: zincflux                                   ! inactive
+
+! Arrays from rrtmg_sw_taumoln routines
+
+!      real(kind=rb) :: ztaug(nlayers,16), ztaur(nlayers,16)
+!      real(kind=rb) :: zsflxzen(16)
+      real(kind=rb) :: ztaug(nlayers,ngptsw), ztaur(nlayers,ngptsw)
+      real(kind=rb) :: zsflxzen(ngptsw)
+      real(kind=rb) :: ssi(ngptsw), tsi
+
+! Arrays from rrtmg_sw_vrtqdr routine
+
+      real(kind=rb) :: zcd(nlayers+1,ngptsw), zcu(nlayers+1,ngptsw)
+      real(kind=rb) :: zfd(nlayers+1,ngptsw), zfu(nlayers+1,ngptsw)
+
+! Inactive arrays
+!     real(kind=rb) :: zbbcd(nlayers+1), zbbcu(nlayers+1)
+!     real(kind=rb) :: zbbfd(nlayers+1), zbbfu(nlayers+1)
+!     real(kind=rb) :: zbbfddir(nlayers+1), zbbcddir(nlayers+1)
+
+! ------------------------------------------------------------------
+
+! Initializations
+
+      ib1 = istart
+      ib2 = iend
+      klev = nlayers
+      iw = 0
+      repclc = 1.e-12_rb
+!      zincflux = 0.0_rb
+
+      do jk=1,klev+1
+         pbbcd(jk)=0._rb
+         pbbcu(jk)=0._rb
+         pbbfd(jk)=0._rb
+         pbbfu(jk)=0._rb
+         pbbcddir(jk)=0._rb
+         pbbfddir(jk)=0._rb
+         puvcd(jk)=0._rb
+         puvfd(jk)=0._rb
+         puvcddir(jk)=0._rb
+         puvfddir(jk)=0._rb
+         pnicd(jk)=0._rb
+         pnifd(jk)=0._rb
+         pnicddir(jk)=0._rb
+         pnifddir(jk)=0._rb
+      enddo
+
+
+! Calculate the optical depths for gaseous absorption and Rayleigh scattering
+
+      call taumol_sw(klev, &
+                     colh2o, colco2, colch4, colo2, colo3, colmol, &
+                     laytrop, jp, jt, jt1, &
+                     fac00, fac01, fac10, fac11, &
+                     selffac, selffrac, indself, forfac, forfrac, indfor, &
+                     isolvar, svar_f, svar_s, svar_i, &
+                     svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+                     ssi, zsflxzen, ztaug, ztaur)
+
+! Top of shortwave spectral band loop, jb = 16 -> 29; ibm = 1 -> 14
+
+      tsi = 0.0_rb
+      do jb = ib1, ib2
+         ibm = jb-15
+         igt = ngc(ibm)
+
+! Reinitialize g-point counter for each band if output for each band is requested.
+         if (iout.gt.0.and.ibm.ge.2) iw = ngs(ibm-1)
+
+!        do jk=1,klev+1
+!           zbbcd(jk)=0.0_rb
+!           zbbcu(jk)=0.0_rb
+!           zbbfd(jk)=0.0_rb
+!           zbbfu(jk)=0.0_rb
+!        enddo
+
+! Top of g-point interval loop within each band (iw is cumulative counter) 
+         do jg = 1,igt
+            iw = iw+1
+
+! Apply adjustments for correct Earth/Sun distance and zenith angle to incoming solar flux
+! No solar variability and no solar cycle
+            if (isolvar .lt. 0) then 
+               zincflx(iw) = adjflux(jb) * zsflxzen(iw) * prmu0
+!               zincflux = zincflux + adjflux(jb) * zsflxzen(iw) * prmu0           ! inactive
+            endif
+! Solar variability with averaged or specified solar cycle
+            if (isolvar .ge. 0) then 
+               zincflx(iw) = adjflux(jb) * ssi(iw) * prmu0
+            endif
+!            tsi = tsi + ssi(iw)
+            tsi = tsi + zincflx(iw)
+
+! Compute layer reflectances and transmittances for direct and diffuse sources, 
+! first clear then cloudy
+
+! zrefc(jk)  direct albedo for clear
+! zrefo(jk)  direct albedo for cloud
+! zrefdc(jk) diffuse albedo for clear
+! zrefdo(jk) diffuse albedo for cloud
+! ztrac(jk)  direct transmittance for clear
+! ztrao(jk)  direct transmittance for cloudy
+! ztradc(jk) diffuse transmittance for clear
+! ztrado(jk) diffuse transmittance for cloudy
+!  
+! zref(jk)   direct reflectance
+! zrefd(jk)  diffuse reflectance
+! ztra(jk)   direct transmittance
+! ztrad(jk)  diffuse transmittance
+!
+! zdbtc(jk)  clear direct beam transmittance
+! zdbto(jk)  cloudy direct beam transmittance
+! zdbt(jk)   layer mean direct beam transmittance
+! ztdbt(jk)  total direct beam transmittance at levels
+
+! Clear-sky    
+!   TOA direct beam    
+            ztdbtc(1)=1.0_rb
+            ztdbtc_nodel(1)=1.0_rb
+!   Surface values
+            zdbtc(klev+1) =0.0_rb
+            ztrac(klev+1) =0.0_rb
+            ztradc(klev+1)=0.0_rb
+            zrefc(klev+1) =palbp(ibm)
+            zrefdc(klev+1)=palbd(ibm)
+            zrupc(klev+1) =palbp(ibm)
+            zrupdc(klev+1)=palbd(ibm)
+           
+! Cloudy-sky    
+!   Surface values
+            ztrao(klev+1) =0.0_rb
+            ztrado(klev+1)=0.0_rb
+            zrefo(klev+1) =palbp(ibm)
+            zrefdo(klev+1)=palbd(ibm)
+           
+! Total sky    
+!   TOA direct beam    
+            ztdbt(1)=1.0_rb
+            ztdbt_nodel(1)=1.0_rb
+!   Surface values
+            zdbt(klev+1) =0.0_rb
+            ztra(klev+1) =0.0_rb
+            ztrad(klev+1)=0.0_rb
+            zref(klev+1) =palbp(ibm)
+            zrefd(klev+1)=palbd(ibm)
+            zrup(klev+1) =palbp(ibm)
+            zrupd(klev+1)=palbd(ibm)
+    
+    
+! Top of layer loop
+            do jk=1,klev
+
+! Note: two-stream calculations proceed from top to bottom; 
+!   RRTMG_SW quantities are given bottom to top and are reversed here
+
+               ikl=klev+1-jk
+
+! Set logical flag to do REFTRA calculation
+!   Do REFTRA for all clear layers
+               lrtchkclr(jk)=.true.
+
+!   Do REFTRA only for cloudy layers in profile, since already done for clear layers
+               lrtchkcld(jk)=.false.
+               lrtchkcld(jk)=(pclfr(ikl) > repclc)
+
+! Clear-sky optical parameters - this section inactive     
+!   Original
+!               ztauc(jk) = ztaur(ikl,iw) + ztaug(ikl,iw)
+!               zomcc(jk) = ztaur(ikl,iw) / ztauc(jk)
+!               zgcc(jk) = 0.0001_rb
+!   Total sky optical parameters        
+!               ztauo(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptauc(ikl,ibm)
+!               zomco(jk) = ptauc(ikl,ibm) * pomgc(ikl,ibm) + ztaur(ikl,iw)
+!               zgco (jk) = (ptauc(ikl,ibm) * pomgc(ikl,ibm) * pasyc(ikl,ibm) + &
+!                           ztaur(ikl,iw) * 0.0001_rb) / zomco(jk)
+!               zomco(jk) = zomco(jk) / ztauo(jk)
+
+! Clear-sky optical parameters including aerosols
+               ztauc(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaua(ikl,ibm)
+               zomcc(jk) = ztaur(ikl,iw) * 1.0_rb + ptaua(ikl,ibm) * pomga(ikl,ibm)
+               zgcc(jk) = pasya(ikl,ibm) * pomga(ikl,ibm) * ptaua(ikl,ibm) / zomcc(jk)
+               zomcc(jk) = zomcc(jk) / ztauc(jk)
+
+! Pre-delta-scaling clear and cloudy direct beam transmittance (must use 'orig', unscaled cloud OD)       
+!   \/\/\/ This block of code is only needed for unscaled direct beam calculation
+               if (idelm .eq. 0) then
+!     
+                  zclear = 1.0_rb - pclfr(ikl)
+                  zcloud = pclfr(ikl)
+
+! Clear
+!                   zdbtmc = exp(-ztauc(jk) / prmu0)
+ 
+! Use exponential lookup table for transmittance, or expansion of exponential for low tau
+                  ze1 = ztauc(jk) / prmu0
+                  if (ze1 .le. od_lo) then
+                     zdbtmc = 1._rb - ze1 + 0.5_rb * ze1 * ze1
+                  else 
+                     tblind = ze1 / (bpade + ze1)
+                     itind = tblint * tblind + 0.5_rb
+                     zdbtmc = exp_tbl(itind)
+                  endif
+
+                  zdbtc_nodel(jk) = zdbtmc
+                  ztdbtc_nodel(jk+1) = zdbtc_nodel(jk) * ztdbtc_nodel(jk)
+
+! Clear + Cloud
+                  tauorig = ztauc(jk) + ptaucorig(ikl,ibm)
+!                   zdbtmo = exp(-tauorig / prmu0)
+
+! Use exponential lookup table for transmittance, or expansion of exponential for low tau
+                  ze1 = tauorig / prmu0
+                  if (ze1 .le. od_lo) then
+                     zdbtmo = 1._rb - ze1 + 0.5_rb * ze1 * ze1
+                  else
+                     tblind = ze1 / (bpade + ze1)
+                     itind = tblint * tblind + 0.5_rb
+                     zdbtmo = exp_tbl(itind)
+                  endif
+
+                  zdbt_nodel(jk) = zclear * zdbtmc + zcloud * zdbtmo
+                  ztdbt_nodel(jk+1) = zdbt_nodel(jk) * ztdbt_nodel(jk)
+
+               endif
+!   /\/\/\ Above code only needed for unscaled direct beam calculation
+
+
+! Delta scaling - clear   
+               zf = zgcc(jk) * zgcc(jk)
+               zwf = zomcc(jk) * zf
+               ztauc(jk) = (1.0_rb - zwf) * ztauc(jk)
+               zomcc(jk) = (zomcc(jk) - zwf) / (1.0_rb - zwf)
+               zgcc (jk) = (zgcc(jk) - zf) / (1.0_rb - zf)
+
+! Total sky optical parameters (cloud properties already delta-scaled)
+!   Use this code if cloud properties are derived in rrtmg_sw_cldprop       
+               if (icpr .ge. 1) then
+                  ztauo(jk) = ztauc(jk) + ptauc(ikl,ibm)
+                  zomco(jk) = ztauc(jk) * zomcc(jk) + ptauc(ikl,ibm) * pomgc(ikl,ibm) 
+                  zgco (jk) = (ptauc(ikl,ibm) * pomgc(ikl,ibm) * pasyc(ikl,ibm) + &
+                              ztauc(jk) * zomcc(jk) * zgcc(jk)) / zomco(jk)
+                  zomco(jk) = zomco(jk) / ztauo(jk)
+
+! Total sky optical parameters (if cloud properties not delta scaled)
+!   Use this code if cloud properties are not derived in rrtmg_sw_cldprop       
+               elseif (icpr .eq. 0) then
+                  ztauo(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaua(ikl,ibm) + ptauc(ikl,ibm)
+                  zomco(jk) = ptaua(ikl,ibm) * pomga(ikl,ibm) + ptauc(ikl,ibm) * pomgc(ikl,ibm) + &
+                              ztaur(ikl,iw) * 1.0_rb
+                  zgco (jk) = (ptauc(ikl,ibm) * pomgc(ikl,ibm) * pasyc(ikl,ibm) + &
+                              ptaua(ikl,ibm)*pomga(ikl,ibm)*pasya(ikl,ibm)) / zomco(jk)
+                  zomco(jk) = zomco(jk) / ztauo(jk)
+
+! Delta scaling - clouds 
+!   Use only if subroutine rrtmg_sw_cldprop is not used to get cloud properties and to apply delta scaling
+                  zf = zgco(jk) * zgco(jk)
+                  zwf = zomco(jk) * zf
+                  ztauo(jk) = (1._rb - zwf) * ztauo(jk)
+                  zomco(jk) = (zomco(jk) - zwf) / (1.0_rb - zwf)
+                  zgco (jk) = (zgco(jk) - zf) / (1.0_rb - zf)
+               endif 
+
+! End of layer loop
+            enddo    
+
+
+! Clear sky reflectivities
+            call reftra_sw (klev, &
+                            lrtchkclr, zgcc, prmu0, ztauc, zomcc, &
+                            zrefc, zrefdc, ztrac, ztradc)
+
+! Total sky reflectivities      
+            call reftra_sw (klev, &
+                            lrtchkcld, zgco, prmu0, ztauo, zomco, &
+                            zrefo, zrefdo, ztrao, ztrado)
+
+
+            do jk=1,klev
+
+! Combine clear and cloudy contributions for total sky
+               ikl = klev+1-jk 
+               zclear = 1.0_rb - pclfr(ikl)
+               zcloud = pclfr(ikl)
+
+               zref(jk) = zclear*zrefc(jk) + zcloud*zrefo(jk)
+               zrefd(jk)= zclear*zrefdc(jk) + zcloud*zrefdo(jk)
+               ztra(jk) = zclear*ztrac(jk) + zcloud*ztrao(jk)
+               ztrad(jk)= zclear*ztradc(jk) + zcloud*ztrado(jk)
+
+! Direct beam transmittance        
+
+! Clear
+!                zdbtmc = exp(-ztauc(jk) / prmu0)
+
+! Use exponential lookup table for transmittance, or expansion of 
+! exponential for low tau
+               ze1 = ztauc(jk) / prmu0
+               if (ze1 .le. od_lo) then
+                  zdbtmc = 1._rb - ze1 + 0.5_rb * ze1 * ze1
+               else
+                  tblind = ze1 / (bpade + ze1)
+                  itind = tblint * tblind + 0.5_rb
+                  zdbtmc = exp_tbl(itind)
+               endif
+
+               zdbtc(jk) = zdbtmc
+               ztdbtc(jk+1) = zdbtc(jk)*ztdbtc(jk)
+
+! Clear + Cloud
+!                zdbtmo = exp(-ztauo(jk) / prmu0)
+
+! Use exponential lookup table for transmittance, or expansion of 
+! exponential for low tau
+               ze1 = ztauo(jk) / prmu0
+               if (ze1 .le. od_lo) then
+                  zdbtmo = 1._rb - ze1 + 0.5_rb * ze1 * ze1
+               else
+                  tblind = ze1 / (bpade + ze1)
+                  itind = tblint * tblind + 0.5_rb
+                  zdbtmo = exp_tbl(itind)
+               endif
+
+               zdbt(jk) = zclear*zdbtmc + zcloud*zdbtmo
+               ztdbt(jk+1) = zdbt(jk)*ztdbt(jk)
+        
+            enddo           
+                 
+! Vertical quadrature for clear-sky fluxes
+
+            call vrtqdr_sw (klev, iw, &
+                            zrefc, zrefdc, ztrac, ztradc, &
+                            zdbtc, zrdndc, zrupc, zrupdc, ztdbtc, &
+                            zcd, zcu)
+      
+! Vertical quadrature for cloudy fluxes
+
+            call vrtqdr_sw (klev, iw, &
+                            zref, zrefd, ztra, ztrad, &
+                            zdbt, zrdnd, zrup, zrupd, ztdbt, &
+                            zfd, zfu)
+
+! Upwelling and downwelling fluxes at levels
+!   Two-stream calculations go from top to bottom; 
+!   layer indexing is reversed to go bottom to top for output arrays
+
+            do jk=1,klev+1
+               ikl=klev+2-jk
+
+! Accumulate spectral fluxes over bands - inactive
+!               zbbfu(ikl) = zbbfu(ikl) + zincflx(iw)*zfu(jk,iw)  
+!               zbbfd(ikl) = zbbfd(ikl) + zincflx(iw)*zfd(jk,iw)
+!               zbbcu(ikl) = zbbcu(ikl) + zincflx(iw)*zcu(jk,iw)
+!               zbbcd(ikl) = zbbcd(ikl) + zincflx(iw)*zcd(jk,iw)
+!               zbbfddir(ikl) = zbbfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)
+!               zbbcddir(ikl) = zbbcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)
+
+! Accumulate spectral fluxes over whole spectrum  
+               pbbfu(ikl) = pbbfu(ikl) + zincflx(iw)*zfu(jk,iw)
+               pbbfd(ikl) = pbbfd(ikl) + zincflx(iw)*zfd(jk,iw)
+               pbbcu(ikl) = pbbcu(ikl) + zincflx(iw)*zcu(jk,iw)
+               pbbcd(ikl) = pbbcd(ikl) + zincflx(iw)*zcd(jk,iw)
+               if (idelm .eq. 0) then 
+                  pbbfddir(ikl) = pbbfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)
+                  pbbcddir(ikl) = pbbcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)
+               elseif (idelm .eq. 1) then
+                  pbbfddir(ikl) = pbbfddir(ikl) + zincflx(iw)*ztdbt(jk)
+                  pbbcddir(ikl) = pbbcddir(ikl) + zincflx(iw)*ztdbtc(jk)
+               endif
+
+! Accumulate direct fluxes for UV/visible bands
+               if (ibm >= 10 .and. ibm <= 13) then
+                  puvcd(ikl) = puvcd(ikl) + zincflx(iw)*zcd(jk,iw)
+                  puvfd(ikl) = puvfd(ikl) + zincflx(iw)*zfd(jk,iw)
+                  if (idelm .eq. 0) then 
+                     puvfddir(ikl) = puvfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)
+                     puvcddir(ikl) = puvcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)
+                  elseif (idelm .eq. 1) then
+                     puvfddir(ikl) = puvfddir(ikl) + zincflx(iw)*ztdbt(jk)
+                     puvcddir(ikl) = puvcddir(ikl) + zincflx(iw)*ztdbtc(jk)
+                  endif
+! Accumulate direct fluxes for near-IR bands
+               else if (ibm == 14 .or. ibm <= 9) then  
+                  pnicd(ikl) = pnicd(ikl) + zincflx(iw)*zcd(jk,iw)
+                  pnifd(ikl) = pnifd(ikl) + zincflx(iw)*zfd(jk,iw)
+                  if (idelm .eq. 0) then 
+                     pnifddir(ikl) = pnifddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)
+                     pnicddir(ikl) = pnicddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)
+                  elseif (idelm .eq. 1) then
+                     pnifddir(ikl) = pnifddir(ikl) + zincflx(iw)*ztdbt(jk)
+                     pnicddir(ikl) = pnicddir(ikl) + zincflx(iw)*ztdbtc(jk)
+                  endif
+               endif
+
+            enddo
+
+! End loop on jg, g-point interval
+         enddo             
+
+! End loop on jb, spectral band
+      enddo                    
+
+      end subroutine spcvrt_sw
+
+      end module rrtmg_sw_spcvrt
+
+
diff --git a/radiation/src/rrtmg_sw_taumol.f90 b/radiation/src/rrtmg_sw_taumol.f90
new file mode 100644
index 0000000000000000000000000000000000000000..15d6c9a22b58039b6fc4662d416b5cf3b1523da6
--- /dev/null
+++ b/radiation/src/rrtmg_sw_taumol.f90
@@ -0,0 +1,1790 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+
+      module rrtmg_sw_taumol
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only : im => kind_im, rb => kind_rb
+!      use parrrsw, only : mg, jpband, nbndsw, ngptsw
+      use rrsw_con, only: oneminus
+      use rrsw_wvn, only: nspa, nspb
+      use rrsw_vsn, only: hvrtau, hnamtau
+
+      implicit none
+
+      contains
+
+!----------------------------------------------------------------------------
+      subroutine taumol_sw(nlayers, &
+                           colh2o, colco2, colch4, colo2, colo3, colmol, &
+                           laytrop, jp, jt, jt1, &
+                           fac00, fac01, fac10, fac11, &
+                           selffac, selffrac, indself, forfac, forfrac, indfor, &
+                           isolvar, svar_f, svar_s, svar_i, &
+                           svar_f_bnd, svar_s_bnd, svar_i_bnd, &
+                           ssi, sfluxzen, taug, taur)
+!----------------------------------------------------------------------------
+
+! ******************************************************************************
+! *                                                                            *
+! *                 Optical depths developed for the                           *
+! *                                                                            *
+! *               RAPID RADIATIVE TRANSFER MODEL (RRTM)                        *
+! *                                                                            *
+! *                                                                            *
+! *           ATMOSPHERIC AND ENVIRONMENTAL RESEARCH, INC.                     *
+! *                       131 HARTWELL AVENUE                                  *
+! *                       LEXINGTON, MA 02421                                  *
+! *                                                                            *
+! *                                                                            *
+! *                          ELI J. MLAWER                                     *
+! *                        JENNIFER DELAMERE                                   *
+! *                        STEVEN J. TAUBMAN                                   *
+! *                        SHEPARD A. CLOUGH                                   *
+! *                                                                            *
+! *                                                                            *
+! *                                                                            *
+! *                                                                            *
+! *                      email:  mlawer@aer.com                                *
+! *                      email:  jdelamer@aer.com                              *
+! *                                                                            *
+! *       The authors wish to acknowledge the contributions of the             *
+! *       following people:  Patrick D. Brown, Michael J. Iacono,              *
+! *       Ronald E. Farren, Luke Chen, Robert Bergstrom.                       *
+! *                                                                            *
+! ******************************************************************************
+! *    TAUMOL                                                                  *
+! *                                                                            *
+! *    This file contains the subroutines TAUGBn (where n goes from            *
+! *    1 to 28).  TAUGBn calculates the optical depths and Planck fractions    *
+! *    per g-value and layer for band n.                                       *
+! *                                                                            *
+! * Output:  optical depths (unitless)                                         *
+! *          fractions needed to compute Planck functions at every layer       *
+! *              and g-value                                                   *
+! *                                                                            *
+! *    COMMON /TAUGCOM/  TAUG(MXLAY,MG)                                        *
+! *    COMMON /PLANKG/   FRACS(MXLAY,MG)                                       *
+! *                                                                            *
+! * Input                                                                      *
+! *                                                                            *
+! *    PARAMETER (MG=16, MXLAY=203, NBANDS=14)                                 *
+! *                                                                            *
+! *    COMMON /FEATURES/ NG(NBANDS),NSPA(NBANDS),NSPB(NBANDS)                  *
+! *    COMMON /PRECISE/  ONEMINUS                                              *
+! *    COMMON /PROFILE/  NLAYERS,PAVEL(MXLAY),TAVEL(MXLAY),                    *
+! *   &                  PZ(0:MXLAY),TZ(0:MXLAY),TBOUND                        *
+! *    COMMON /PROFDATA/ LAYTROP,LAYSWTCH,LAYLOW,                              *
+! *   &                  COLH2O(MXLAY),COLCO2(MXLAY),                          *
+! *   &                  COLO3(MXLAY),COLN2O(MXLAY),COLCH4(MXLAY),             *
+! *   &                  COLO2(MXLAY),CO2MULT(MXLAY)                           *
+! *    COMMON /INTFAC/   FAC00(MXLAY),FAC01(MXLAY),                            *
+! *   &                  FAC10(MXLAY),FAC11(MXLAY)                             *
+! *    COMMON /INTIND/   JP(MXLAY),JT(MXLAY),JT1(MXLAY)                        *
+! *    COMMON /SELF/     SELFFAC(MXLAY), SELFFRAC(MXLAY), INDSELF(MXLAY)       *
+! *                                                                            *
+! *    Description:                                                            *
+! *    NG(IBAND) - number of g-values in band IBAND                            *
+! *    NSPA(IBAND) - for the lower atmosphere, the number of reference         *
+! *                  atmospheres that are stored for band IBAND per            *
+! *                  pressure level and temperature.  Each of these            *
+! *                  atmospheres has different relative amounts of the         *
+! *                  key species for the band (i.e. different binary           *
+! *                  species parameters).                                      *
+! *    NSPB(IBAND) - same for upper atmosphere                                 *
+! *    ONEMINUS - since problems are caused in some cases by interpolation     *
+! *               parameters equal to or greater than 1, for these cases       *
+! *               these parameters are set to this value, slightly < 1.        *
+! *    PAVEL - layer pressures (mb)                                            *
+! *    TAVEL - layer temperatures (degrees K)                                  *
+! *    PZ - level pressures (mb)                                               *
+! *    TZ - level temperatures (degrees K)                                     *
+! *    LAYTROP - layer at which switch is made from one combination of         *
+! *              key species to another                                        *
+! *    COLH2O, COLCO2, COLO3, COLN2O, COLCH4 - column amounts of water         *
+! *              vapor,carbon dioxide, ozone, nitrous ozide, methane,          *
+! *              respectively (molecules/cm**2)                                *
+! *    CO2MULT - for bands in which carbon dioxide is implemented as a         *
+! *              trace species, this is the factor used to multiply the        *
+! *              band's average CO2 absorption coefficient to get the added    *
+! *              contribution to the optical depth relative to 355 ppm.        *
+! *    FACij(LAY) - for layer LAY, these are factors that are needed to        *
+! *                 compute the interpolation factors that multiply the        *
+! *                 appropriate reference k-values.  A value of 0 (1) for      *
+! *                 i,j indicates that the corresponding factor multiplies     *
+! *                 reference k-value for the lower (higher) of the two        *
+! *                 appropriate temperatures, and altitudes, respectively.     *
+! *    JP - the index of the lower (in altitude) of the two appropriate        *
+! *         reference pressure levels needed for interpolation                 *
+! *    JT, JT1 - the indices of the lower of the two appropriate reference     *
+! *              temperatures needed for interpolation (for pressure           *
+! *              levels JP and JP+1, respectively)                             *
+! *    SELFFAC - scale factor needed to water vapor self-continuum, equals     *
+! *              (water vapor density)/(atmospheric density at 296K and        *
+! *              1013 mb)                                                      *
+! *    SELFFRAC - factor needed for temperature interpolation of reference     *
+! *               water vapor self-continuum data                              *
+! *    INDSELF - index of the lower of the two appropriate reference           *
+! *              temperatures needed for the self-continuum interpolation      *
+! *                                                                            *
+! * Data input                                                                 *
+! *    COMMON /Kn/ KA(NSPA(n),5,13,MG), KB(NSPB(n),5,13:59,MG), SELFREF(10,MG) *
+! *       (note:  n is the band number)                                        *
+! *                                                                            *
+! *    Description:                                                            *
+! *    KA - k-values for low reference atmospheres (no water vapor             *
+! *         self-continuum) (units: cm**2/molecule)                            *
+! *    KB - k-values for high reference atmospheres (all sources)              *
+! *         (units: cm**2/molecule)                                            *
+! *    SELFREF - k-values for water vapor self-continuum for reference         *
+! *              atmospheres (used below LAYTROP)                              *
+! *              (units: cm**2/molecule)                                       *
+! *                                                                            *
+! *    DIMENSION ABSA(65*NSPA(n),MG), ABSB(235*NSPB(n),MG)                     *
+! *    EQUIVALENCE (KA,ABSA),(KB,ABSB)                                         *
+! *                                                                            *
+! *****************************************************************************
+!
+! Modifications
+!
+! Revised: Adapted to F90 coding, J.-J.Morcrette, ECMWF, Feb 2003
+! Revised: Modified for g-point reduction, MJIacono, AER, Dec 2003
+! Revised: Reformatted for consistency with rrtmg_lw, MJIacono, AER, Jul 2006
+!
+! ------- Declarations -------
+
+! ----- Input -----
+      integer(kind=im), intent(in) :: nlayers            ! total number of layers
+
+      integer(kind=im), intent(in) :: laytrop            ! tropopause layer index
+      integer(kind=im), intent(in) :: jp(:)              ! 
+                                                         !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: jt(:)              !
+                                                         !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: jt1(:)             !
+                                                         !   Dimensions: (nlayers)
+
+      real(kind=rb), intent(in) :: colh2o(:)             ! column amount (h2o)
+                                                         !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colco2(:)             ! column amount (co2)
+                                                         !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colo3(:)              ! column amount (o3)
+                                                         !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colch4(:)             ! column amount (ch4)
+                                                         !   Dimensions: (nlayers)
+                                                         !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colo2(:)              ! column amount (o2)
+                                                         !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: colmol(:)             ! 
+                                                         !   Dimensions: (nlayers)
+
+      integer(kind=im), intent(in) :: indself(:)    
+                                                         !   Dimensions: (nlayers)
+      integer(kind=im), intent(in) :: indfor(:)
+                                                         !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: selffac(:)
+                                                         !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: selffrac(:)
+                                                         !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: forfac(:)
+                                                         !   Dimensions: (nlayers)
+      real(kind=rb), intent(in) :: forfrac(:)
+                                                         !   Dimensions: (nlayers)
+
+      real(kind=rb), intent(in) :: &                     !
+                       fac00(:), fac01(:), &             !   Dimensions: (nlayers)
+                       fac10(:), fac11(:) 
+
+! Solar variability
+      integer(kind=im), intent(in) :: isolvar            ! Flag for solar variability method
+      real(kind=rb), intent(in) :: svar_f                ! Solar variability facular multiplier
+      real(kind=rb), intent(in) :: svar_s                ! Solar variability sunspot multiplier
+      real(kind=rb), intent(in) :: svar_i                ! Solar variability baseline irradiance multiplier
+      real(kind=rb), intent(in) :: svar_f_bnd(:)         ! Solar variability facular multiplier (by band)
+      real(kind=rb), intent(in) :: svar_s_bnd(:)         ! Solar variability sunspot multiplier (by band)
+      real(kind=rb), intent(in) :: svar_i_bnd(:)         ! Solar variability baseline irradiance multiplier (by band)
+
+! ----- Output -----
+      real(kind=rb), intent(out) :: ssi(:)               ! spectral solar intensity with solar variability
+                                                         !   Dimensions: (ngptsw)
+      real(kind=rb), intent(out) :: sfluxzen(:)          ! solar source function
+                                                         !   Dimensions: (ngptsw)
+      real(kind=rb), intent(out) :: taug(:,:)            ! gaseous optical depth 
+                                                         !   Dimensions: (nlayers,ngptsw)
+      real(kind=rb), intent(out) :: taur(:,:)            ! Rayleigh 
+                                                         !   Dimensions: (nlayers,ngptsw)
+!      real(kind=rb), intent(out) :: ssa(:,:)            ! single scattering albedo (inactive)
+                                                         !   Dimensions: (nlayers,ngptsw)
+
+      hvrtau = '$Revision$'
+
+! Calculate gaseous optical depth and planck fractions for each spectral band.
+
+      call taumol16
+      call taumol17
+      call taumol18
+      call taumol19
+      call taumol20
+      call taumol21
+      call taumol22
+      call taumol23
+      call taumol24
+      call taumol25
+      call taumol26
+      call taumol27
+      call taumol28
+      call taumol29
+
+!-------------
+      contains
+!-------------
+
+!----------------------------------------------------------------------------
+      subroutine taumol16
+!----------------------------------------------------------------------------
+!
+!     band 16:  2600-3250 cm-1 (low - h2o,ch4; high - ch4)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng16
+      use rrsw_kg16, only : absa, ka, absb, kb, forref, selfref, &
+                            sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray, strrat1
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      strrat1 = 252.131_rb
+      layreffr = 18
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         speccomb = colh2o(lay) + strrat1*colch4(lay)
+         specparm = colh2o(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(16) + js
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(16) + js
+         inds = indself(lay)
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng16
+            taug(lay,ig) = speccomb * &
+                (fac000 * absa(ind0   ,ig) + &
+                 fac100 * absa(ind0 +1,ig) + &
+                 fac010 * absa(ind0 +9,ig) + &
+                 fac110 * absa(ind0+10,ig) + &
+                 fac001 * absa(ind1   ,ig) + &
+                 fac101 * absa(ind1 +1,ig) + &
+                 fac011 * absa(ind1 +9,ig) + &
+                 fac111 * absa(ind1+10,ig)) + &
+                 colh2o(lay) * &
+                 (selffac(lay) * (selfref(inds,ig) + &
+                 selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig))) + &
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))) 
+!            ssa(lay,ig) = tauray/taug(lay,ig)
+            taur(lay,ig) = tauray
+         enddo
+      enddo
+
+      laysolfr = nlayers
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &
+            laysolfr = lay
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(16) + 1
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(16) + 1
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng16
+            taug(lay,ig) = colch4(lay) * &
+                (fac00(lay) * absb(ind0  ,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1  ,ig) + &
+                 fac11(lay) * absb(ind1+1,ig)) 
+!            ssa(lay,ig) = tauray/taug(lay,ig)
+            if (lay .eq. laysolfr) sfluxzen(ig) = sfluxref(ig)
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ig) = svar_f * facbrght(ig) + &
+                         svar_s * snsptdrk(ig) + &
+                         svar_i * irradnce(ig)
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ig) = svar_f_bnd(ngb(ig)) * facbrght(ig) + &
+                         svar_s_bnd(ngb(ig)) * snsptdrk(ig) + &
+                         svar_i_bnd(ngb(ig)) * irradnce(ig)
+            taur(lay,ig) = tauray  
+         enddo
+      enddo
+
+      end subroutine taumol16
+
+!----------------------------------------------------------------------------
+      subroutine taumol17
+!----------------------------------------------------------------------------
+!
+!     band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng17, ngs16
+      use rrsw_kg17, only : absa, ka, absb, kb, forref, selfref, &
+                            sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray, strrat
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      strrat = 0.364641_rb
+      layreffr = 30
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         speccomb = colh2o(lay) + strrat*colco2(lay)
+         specparm = colh2o(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(17) + js
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(17) + js
+         inds = indself(lay)
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng17
+            taug(lay,ngs16+ig) = speccomb * &
+                (fac000 * absa(ind0,ig) + &
+                 fac100 * absa(ind0+1,ig) + &
+                 fac010 * absa(ind0+9,ig) + &
+                 fac110 * absa(ind0+10,ig) + &
+                 fac001 * absa(ind1,ig) + &
+                 fac101 * absa(ind1+1,ig) + &
+                 fac011 * absa(ind1+9,ig) + &
+                 fac111 * absa(ind1+10,ig)) + &
+                 colh2o(lay) * &
+                 (selffac(lay) * (selfref(inds,ig) + &
+                 selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig))) + &
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))) 
+!             ssa(lay,ngs16+ig) = tauray/taug(lay,ngs16+ig)
+            taur(lay,ngs16+ig) = tauray
+         enddo
+      enddo
+
+      laysolfr = nlayers
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &
+            laysolfr = lay
+         speccomb = colh2o(lay) + strrat*colco2(lay)
+         specparm = colh2o(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 4._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(17) + js
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(17) + js
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng17
+            taug(lay,ngs16+ig) = speccomb * &
+                (fac000 * absb(ind0,ig) + &
+                 fac100 * absb(ind0+1,ig) + &
+                 fac010 * absb(ind0+5,ig) + &
+                 fac110 * absb(ind0+6,ig) + &
+                 fac001 * absb(ind1,ig) + &
+                 fac101 * absb(ind1+1,ig) + &
+                 fac011 * absb(ind1+5,ig) + &
+                 fac111 * absb(ind1+6,ig)) + &
+                 colh2o(lay) * &
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))) 
+!            ssa(lay,ngs16+ig) = tauray/taug(lay,ngs16+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs16+ig) = sfluxref(ig,js) &
+               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs16+ig) = sfluxref(ig,js) + &
+                         fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs16+ig) = svar_f * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs16+ig) = svar_f_bnd(ngb(ngs16+ig)) * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s_bnd(ngb(ngs16+ig)) * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i_bnd(ngb(ngs16+ig)) * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            taur(lay,ngs16+ig) = tauray
+         enddo
+      enddo
+
+      end subroutine taumol17
+
+!----------------------------------------------------------------------------
+      subroutine taumol18
+!----------------------------------------------------------------------------
+!
+!     band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng18, ngs17
+      use rrsw_kg18, only : absa, ka, absb, kb, forref, selfref, &
+                            sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray, strrat
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      strrat = 38.9589_rb
+      layreffr = 6
+      laysolfr = laytrop
+      
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &
+            laysolfr = min(lay+1,laytrop)
+         speccomb = colh2o(lay) + strrat*colch4(lay)
+         specparm = colh2o(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(18) + js
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(18) + js
+         inds = indself(lay)
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng18
+            taug(lay,ngs17+ig) = speccomb * &
+                (fac000 * absa(ind0,ig) + &
+                 fac100 * absa(ind0+1,ig) + &
+                 fac010 * absa(ind0+9,ig) + &
+                 fac110 * absa(ind0+10,ig) + &
+                 fac001 * absa(ind1,ig) + &
+                 fac101 * absa(ind1+1,ig) + &
+                 fac011 * absa(ind1+9,ig) + &
+                 fac111 * absa(ind1+10,ig)) + &
+                 colh2o(lay) * &
+                 (selffac(lay) * (selfref(inds,ig) + &
+                 selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig))) + &
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))) 
+!            ssa(lay,ngs17+ig) = tauray/taug(lay,ngs17+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs17+ig) = sfluxref(ig,js) &
+               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs17+ig) = sfluxref(ig,js) + &
+                         fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs17+ig) = svar_f * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs17+ig) = svar_f_bnd(ngb(ngs17+ig)) * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s_bnd(ngb(ngs17+ig)) * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i_bnd(ngb(ngs17+ig)) * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            taur(lay,ngs17+ig) = tauray
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(18) + 1
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(18) + 1
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng18
+            taug(lay,ngs17+ig) = colch4(lay) * &
+                (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &	  
+                 fac11(lay) * absb(ind1+1,ig)) 
+!           ssa(lay,ngs17+ig) = tauray/taug(lay,ngs17+ig)
+           taur(lay,ngs17+ig) = tauray
+         enddo
+       enddo
+
+       end subroutine taumol18
+
+!----------------------------------------------------------------------------
+      subroutine taumol19
+!----------------------------------------------------------------------------
+!
+!     band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng19, ngs18
+      use rrsw_kg19, only : absa, ka, absb, kb, forref, selfref, &
+                            sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray, strrat
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      strrat = 5.49281_rb
+      layreffr = 3
+      laysolfr = laytrop
+
+! Lower atmosphere loop      
+      do lay = 1, laytrop
+         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &
+            laysolfr = min(lay+1,laytrop)
+         speccomb = colh2o(lay) + strrat*colco2(lay)
+         specparm = colh2o(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(19) + js
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(19) + js
+         inds = indself(lay)
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1 , ng19
+            taug(lay,ngs18+ig) = speccomb * &
+                (fac000 * absa(ind0,ig) + &
+                 fac100 * absa(ind0+1,ig) + &
+                 fac010 * absa(ind0+9,ig) + &
+                 fac110 * absa(ind0+10,ig) + &
+                 fac001 * absa(ind1,ig) + &
+                 fac101 * absa(ind1+1,ig) + &
+                 fac011 * absa(ind1+9,ig) + &
+                 fac111 * absa(ind1+10,ig)) + &
+                 colh2o(lay) * &
+                 (selffac(lay) * (selfref(inds,ig) + &
+                 selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig))) + & 
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))) 
+!            ssa(lay,ngs18+ig) = tauray/taug(lay,ngs18+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs18+ig) = sfluxref(ig,js) &
+               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs18+ig) = sfluxref(ig,js) + &
+                         fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs18+ig) = svar_f * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs18+ig) = svar_f_bnd(ngb(ngs18+ig)) * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s_bnd(ngb(ngs18+ig)) * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i_bnd(ngb(ngs18+ig)) * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            taur(lay,ngs18+ig) = tauray   
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(19) + 1
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(19) + 1
+         tauray = colmol(lay) * rayl
+
+         do ig = 1 , ng19
+            taug(lay,ngs18+ig) = colco2(lay) * &
+                (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig)) 
+!            ssa(lay,ngs18+ig) = tauray/taug(lay,ngs18+ig) 
+            taur(lay,ngs18+ig) = tauray   
+         enddo
+      enddo
+
+      end subroutine taumol19
+
+!----------------------------------------------------------------------------
+      subroutine taumol20
+!----------------------------------------------------------------------------
+!
+!     band 20:  5150-6150 cm-1 (low - h2o; high - h2o)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng20, ngs19
+      use rrsw_kg20, only : absa, ka, absb, kb, forref, selfref, &
+                            sfluxref, absch4, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+      implicit none
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      layreffr = 3
+      laysolfr = laytrop
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &
+            laysolfr = min(lay+1,laytrop)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(20) + 1
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(20) + 1
+         inds = indself(lay)
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng20
+            taug(lay,ngs19+ig) = colh2o(lay) * &
+               ((fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) + &
+                 fac11(lay) * absa(ind1+1,ig)) + &
+                 selffac(lay) * (selfref(inds,ig) + & 
+                 selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig))) + &
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))) &
+                 + colch4(lay) * absch4(ig)
+!            ssa(lay,ngs19+ig) = tauray/taug(lay,ngs19+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs19+ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs19+ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs19+ig) = svar_f * facbrght(ig) + &
+                         svar_s * snsptdrk(ig) + &
+                         svar_i * irradnce(ig)
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs19+ig) = svar_f_bnd(ngb(ngs19+ig)) * facbrght(ig) + &
+                         svar_s_bnd(ngb(ngs19+ig)) * snsptdrk(ig) + &
+                         svar_i_bnd(ngb(ngs19+ig)) * irradnce(ig)
+            taur(lay,ngs19+ig) = tauray 
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(20) + 1
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(20) + 1
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng20
+            taug(lay,ngs19+ig) = colh2o(lay) * &
+                (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig) + &
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))) + &
+                 colch4(lay) * absch4(ig)
+!            ssa(lay,ngs19+ig) = tauray/taug(lay,ngs19+ig)
+            taur(lay,ngs19+ig) = tauray 
+         enddo
+      enddo
+
+      end subroutine taumol20
+
+!----------------------------------------------------------------------------
+      subroutine taumol21
+!----------------------------------------------------------------------------
+!
+!     band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng21, ngs20
+      use rrsw_kg21, only : absa, ka, absb, kb, forref, selfref, &
+                            sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray, strrat
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      strrat = 0.0045321_rb
+      layreffr = 8
+      laysolfr = laytrop
+      
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &
+            laysolfr = min(lay+1,laytrop)
+         speccomb = colh2o(lay) + strrat*colco2(lay)
+         specparm = colh2o(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(21) + js
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(21) + js
+         inds = indself(lay)
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng21
+            taug(lay,ngs20+ig) = speccomb * &
+                (fac000 * absa(ind0,ig) + &
+                 fac100 * absa(ind0+1,ig) + &
+                 fac010 * absa(ind0+9,ig) + &
+                 fac110 * absa(ind0+10,ig) + &
+                 fac001 * absa(ind1,ig) + &
+                 fac101 * absa(ind1+1,ig) + &
+                 fac011 * absa(ind1+9,ig) + &
+                 fac111 * absa(ind1+10,ig)) + &
+                 colh2o(lay) * &
+                 (selffac(lay) * (selfref(inds,ig) + &
+                 selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig))) + &
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))))
+!            ssa(lay,ngs20+ig) = tauray/taug(lay,ngs20+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs20+ig) = sfluxref(ig,js) &
+               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs20+ig) = sfluxref(ig,js) + &
+                         fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs20+ig) = svar_f * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs20+ig) = svar_f_bnd(ngb(ngs20+ig)) * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s_bnd(ngb(ngs20+ig)) * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i_bnd(ngb(ngs20+ig)) * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            taur(lay,ngs20+ig) = tauray
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         speccomb = colh2o(lay) + strrat*colco2(lay)
+         specparm = colh2o(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 4._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(21) + js
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(21) + js
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng21
+            taug(lay,ngs20+ig) = speccomb * &
+                (fac000 * absb(ind0,ig) + &
+                 fac100 * absb(ind0+1,ig) + &
+                 fac010 * absb(ind0+5,ig) + &
+                 fac110 * absb(ind0+6,ig) + &
+                 fac001 * absb(ind1,ig) + &
+                 fac101 * absb(ind1+1,ig) + &
+                 fac011 * absb(ind1+5,ig) + &
+                 fac111 * absb(ind1+6,ig)) + &
+                 colh2o(lay) * &
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))
+!            ssa(lay,ngs20+ig) = tauray/taug(lay,ngs20+ig)
+            taur(lay,ngs20+ig) = tauray
+         enddo
+      enddo
+
+      end subroutine taumol21
+
+!----------------------------------------------------------------------------
+      subroutine taumol22
+!----------------------------------------------------------------------------
+!
+!     band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng22, ngs21
+      use rrsw_kg22, only : absa, ka, absb, kb, forref, selfref, &
+                            sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray, o2adj, o2cont, strrat
+
+! The following factor is the ratio of total O2 band intensity (lines 
+! and Mate continuum) to O2 band intensity (line only).  It is needed
+! to adjust the optical depths since the k's include only lines.
+      o2adj = 1.6_rb
+      
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      strrat = 0.022708_rb
+      layreffr = 2
+      laysolfr = laytrop
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &
+            laysolfr = min(lay+1,laytrop)
+         o2cont = 4.35e-4_rb*colo2(lay)/(350.0_rb*2.0_rb)
+         speccomb = colh2o(lay) + o2adj*strrat*colo2(lay)
+         specparm = colh2o(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+!         odadj = specparm + o2adj * (1._rb - specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(22) + js
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(22) + js
+         inds = indself(lay)
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng22
+            taug(lay,ngs21+ig) = speccomb * &
+                (fac000 * absa(ind0,ig) + &
+                 fac100 * absa(ind0+1,ig) + &
+                 fac010 * absa(ind0+9,ig) + &
+                 fac110 * absa(ind0+10,ig) + &
+                 fac001 * absa(ind1,ig) + &
+                 fac101 * absa(ind1+1,ig) + &
+                 fac011 * absa(ind1+9,ig) + &
+                 fac111 * absa(ind1+10,ig)) + &
+                 colh2o(lay) * &
+                 (selffac(lay) * (selfref(inds,ig) + &
+                 selffrac(lay) * &
+                  (selfref(inds+1,ig) - selfref(inds,ig))) + &
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))) &
+                 + o2cont
+!            ssa(lay,ngs21+ig) = tauray/taug(lay,ngs21+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs21+ig) = sfluxref(ig,js) &
+                + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs21+ig) = sfluxref(ig,js) + &
+                         fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs21+ig) = svar_f * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs21+ig) = svar_f_bnd(ngb(ngs21+ig)) * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s_bnd(ngb(ngs21+ig)) * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i_bnd(ngb(ngs21+ig)) * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            taur(lay,ngs21+ig) = tauray
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         o2cont = 4.35e-4_rb*colo2(lay)/(350.0_rb*2.0_rb)
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(22) + 1
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(22) + 1
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng22
+            taug(lay,ngs21+ig) = colo2(lay) * o2adj * &
+                (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig)) + &
+                 o2cont
+!            ssa(lay,ngs21+ig) = tauray/taug(lay,ngs21+ig)
+            taur(lay,ngs21+ig) = tauray
+         enddo
+      enddo
+
+      end subroutine taumol22
+
+!----------------------------------------------------------------------------
+      subroutine taumol23
+!----------------------------------------------------------------------------
+!
+!     band 23:  8050-12850 cm-1 (low - h2o; high - nothing)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng23, ngs22
+      use rrsw_kg23, only : absa, ka, forref, selfref, &
+                            sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray, givfac
+
+! Average Giver et al. correction factor for this band.
+      givfac = 1.029_rb
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      layreffr = 6
+      laysolfr = laytrop
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &
+            laysolfr = min(lay+1,laytrop)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(23) + 1
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(23) + 1
+         inds = indself(lay)
+         indf = indfor(lay)
+
+         do ig = 1, ng23
+            tauray = colmol(lay) * rayl(ig)
+            taug(lay,ngs22+ig) = colh2o(lay) * &
+                (givfac * (fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) + &
+                 fac11(lay) * absa(ind1+1,ig)) + &
+                 selffac(lay) * (selfref(inds,ig) + &
+                 selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig))) + &
+                 forfac(lay) * (forref(indf,ig) + &
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))) 
+!            ssa(lay,ngs22+ig) = tauray/taug(lay,ngs22+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs22+ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs22+ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs22+ig) = svar_f * facbrght(ig) + &
+                         svar_s * snsptdrk(ig) + &
+                         svar_i * irradnce(ig)
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs22+ig) = svar_f_bnd(ngb(ngs22+ig)) * facbrght(ig) + &
+                         svar_s_bnd(ngb(ngs22+ig)) * snsptdrk(ig) + &
+                         svar_i_bnd(ngb(ngs22+ig)) * irradnce(ig)
+            taur(lay,ngs22+ig) = tauray
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         do ig = 1, ng23
+!            taug(lay,ngs22+ig) = colmol(lay) * rayl(ig)
+!            ssa(lay,ngs22+ig) = 1.0_rb
+            taug(lay,ngs22+ig) = 0._rb
+            taur(lay,ngs22+ig) = colmol(lay) * rayl(ig) 
+         enddo
+      enddo
+
+      end subroutine taumol23
+
+!----------------------------------------------------------------------------
+      subroutine taumol24
+!----------------------------------------------------------------------------
+!
+!     band 24:  12850-16000 cm-1 (low - h2o,o2; high - o2)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng24, ngs23
+      use rrsw_kg24, only : absa, ka, absb, kb, forref, selfref, &
+                            sfluxref, abso3a, abso3b, rayla, raylb, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray, strrat
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      strrat = 0.124692_rb
+      layreffr = 1
+      laysolfr = laytrop
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &
+            laysolfr = min(lay+1,laytrop)
+         speccomb = colh2o(lay) + strrat*colo2(lay)
+         specparm = colh2o(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(24) + js
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(24) + js
+         inds = indself(lay)
+         indf = indfor(lay)
+
+         do ig = 1, ng24
+            tauray = colmol(lay) * (rayla(ig,js) + &
+               fs * (rayla(ig,js+1) - rayla(ig,js)))
+            taug(lay,ngs23+ig) = speccomb * &
+                (fac000 * absa(ind0,ig) + &
+                 fac100 * absa(ind0+1,ig) + &
+                 fac010 * absa(ind0+9,ig) + &
+                 fac110 * absa(ind0+10,ig) + &
+                 fac001 * absa(ind1,ig) + &
+                 fac101 * absa(ind1+1,ig) + &
+                 fac011 * absa(ind1+9,ig) + &
+                 fac111 * absa(ind1+10,ig)) + &
+                 colo3(lay) * abso3a(ig) + &
+                 colh2o(lay) * & 
+                 (selffac(lay) * (selfref(inds,ig) + &
+                 selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig))) + &
+                 forfac(lay) * (forref(indf,ig) + & 
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig))))
+!            ssa(lay,ngs23+ig) = tauray/taug(lay,ngs23+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs23+ig) = sfluxref(ig,js) &
+               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs23+ig) = sfluxref(ig,js) + &
+                         fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs23+ig) = svar_f * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs23+ig) = svar_f_bnd(ngb(ngs23+ig)) * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s_bnd(ngb(ngs23+ig)) * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i_bnd(ngb(ngs23+ig)) * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            taur(lay,ngs23+ig) = tauray
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(24) + 1
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(24) + 1
+
+         do ig = 1, ng24
+            tauray = colmol(lay) * raylb(ig)
+            taug(lay,ngs23+ig) = colo2(lay) * &
+                (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig)) + &
+                 colo3(lay) * abso3b(ig)
+!            ssa(lay,ngs23+ig) = tauray/taug(lay,ngs23+ig)
+            taur(lay,ngs23+ig) = tauray
+         enddo
+      enddo
+
+      end subroutine taumol24
+
+!----------------------------------------------------------------------------
+      subroutine taumol25
+!----------------------------------------------------------------------------
+!
+!     band 25:  16000-22650 cm-1 (low - h2o; high - nothing)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng25, ngs24
+      use rrsw_kg25, only : absa, ka, &
+                            sfluxref, abso3a, abso3b, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      layreffr = 2
+      laysolfr = laytrop
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &
+            laysolfr = min(lay+1,laytrop)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(25) + 1
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(25) + 1
+
+         do ig = 1, ng25
+            tauray = colmol(lay) * rayl(ig)
+            taug(lay,ngs24+ig) = colh2o(lay) * &
+                (fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) + &
+                 fac11(lay) * absa(ind1+1,ig)) + &
+                 colo3(lay) * abso3a(ig) 
+!            ssa(lay,ngs24+ig) = tauray/taug(lay,ngs24+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs24+ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs24+ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs24+ig) = svar_f * facbrght(ig) + &
+                         svar_s * snsptdrk(ig) + &
+                         svar_i * irradnce(ig)
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs24+ig) = svar_f_bnd(ngb(ngs24+ig)) * facbrght(ig) + &
+                         svar_s_bnd(ngb(ngs24+ig)) * snsptdrk(ig) + &
+                         svar_i_bnd(ngb(ngs24+ig)) * irradnce(ig)
+            taur(lay,ngs24+ig) = tauray
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         do ig = 1, ng25
+            tauray = colmol(lay) * rayl(ig)
+            taug(lay,ngs24+ig) = colo3(lay) * abso3b(ig) 
+!            ssa(lay,ngs24+ig) = tauray/taug(lay,ngs24+ig)
+            taur(lay,ngs24+ig) = tauray
+         enddo
+      enddo
+
+      end subroutine taumol25
+
+!----------------------------------------------------------------------------
+      subroutine taumol26
+!----------------------------------------------------------------------------
+!
+!     band 26:  22650-29000 cm-1 (low - nothing; high - nothing)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng26, ngs25
+      use rrsw_kg26, only : sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      laysolfr = laytrop
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         do ig = 1, ng26 
+!            taug(lay,ngs25+ig) = colmol(lay) * rayl(ig)
+!            ssa(lay,ngs25+ig) = 1.0_rb
+            if (lay .eq. laysolfr) sfluxzen(ngs25+ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs25+ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs25+ig) = svar_f * facbrght(ig) + &
+                         svar_s * snsptdrk(ig) + &
+                         svar_i * irradnce(ig)
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs25+ig) = svar_f_bnd(ngb(ngs25+ig)) * facbrght(ig) + &
+                         svar_s_bnd(ngb(ngs25+ig)) * snsptdrk(ig) + &
+                         svar_i_bnd(ngb(ngs25+ig)) * irradnce(ig)
+            taug(lay,ngs25+ig) = 0._rb
+            taur(lay,ngs25+ig) = colmol(lay) * rayl(ig) 
+         enddo
+      enddo
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         do ig = 1, ng26
+!            taug(lay,ngs25+ig) = colmol(lay) * rayl(ig)
+!            ssa(lay,ngs25+ig) = 1.0_rb
+            taug(lay,ngs25+ig) = 0._rb
+            taur(lay,ngs25+ig) = colmol(lay) * rayl(ig) 
+         enddo
+      enddo
+
+      end subroutine taumol26
+
+!----------------------------------------------------------------------------
+      subroutine taumol27
+!----------------------------------------------------------------------------
+!
+!     band 27:  29000-38000 cm-1 (low - o3; high - o3)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng27, ngs26
+      use rrsw_kg27, only : absa, ka, absb, kb, sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray, scalekur
+
+! Kurucz solar source function
+! The values in sfluxref were obtained using the "low resolution"
+! version of the Kurucz solar source function.  For unknown reasons,
+! the total irradiance in this band differs from the corresponding
+! total in the "high-resolution" version of the Kurucz function.
+! Therefore, these values are scaled below by the factor SCALEKUR.
+
+      scalekur = 50.15_rb/48.37_rb
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      layreffr = 32
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(27) + 1
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(27) + 1
+
+         do ig = 1, ng27
+            tauray = colmol(lay) * rayl(ig)
+            taug(lay,ngs26+ig) = colo3(lay) * &
+                (fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) + &
+                 fac11(lay) * absa(ind1+1,ig))
+!            ssa(lay,ngs26+ig) = tauray/taug(lay,ngs26+ig)
+            taur(lay,ngs26+ig) = tauray
+         enddo
+      enddo
+
+      laysolfr = nlayers
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &
+            laysolfr = lay
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(27) + 1
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(27) + 1
+
+         do ig = 1, ng27
+            tauray = colmol(lay) * rayl(ig)
+            taug(lay,ngs26+ig) = colo3(lay) * &
+                (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + & 
+                 fac11(lay) * absb(ind1+1,ig))
+!            ssa(lay,ngs26+ig) = tauray/taug(lay,ngs26+ig)
+            if (lay.eq.laysolfr) sfluxzen(ngs26+ig) = scalekur * sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs26+ig) = scalekur * sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs26+ig) = svar_f * facbrght(ig) + &
+                         svar_s * snsptdrk(ig) + &
+                         svar_i * irradnce(ig)
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs26+ig) = svar_f_bnd(ngb(ngs26+ig)) * facbrght(ig) + &
+                         svar_s_bnd(ngb(ngs26+ig)) * snsptdrk(ig) + &
+                         svar_i_bnd(ngb(ngs26+ig)) * irradnce(ig)
+            taur(lay,ngs26+ig) = tauray
+         enddo
+      enddo
+
+      end subroutine taumol27
+
+!----------------------------------------------------------------------------
+      subroutine taumol28
+!----------------------------------------------------------------------------
+!
+!     band 28:  38000-50000 cm-1 (low - o3,o2; high - o3,o2)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng28, ngs27
+      use rrsw_kg28, only : absa, ka, absb, kb, sfluxref, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray, strrat
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      strrat = 6.67029e-07_rb
+      layreffr = 42
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         speccomb = colo3(lay) + strrat*colo2(lay)
+         specparm = colo3(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 8._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(28) + js
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(28) + js
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng28
+            taug(lay,ngs27+ig) = speccomb * &
+                (fac000 * absa(ind0,ig) + &
+                 fac100 * absa(ind0+1,ig) + &
+                 fac010 * absa(ind0+9,ig) + &
+                 fac110 * absa(ind0+10,ig) + &
+                 fac001 * absa(ind1,ig) + &
+                 fac101 * absa(ind1+1,ig) + &
+                 fac011 * absa(ind1+9,ig) + &
+                 fac111 * absa(ind1+10,ig)) 
+!            ssa(lay,ngs27+ig) = tauray/taug(lay,ngs27+ig)
+            taur(lay,ngs27+ig) = tauray
+         enddo
+      enddo
+
+      laysolfr = nlayers
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &
+            laysolfr = lay
+         speccomb = colo3(lay) + strrat*colo2(lay)
+         specparm = colo3(lay)/speccomb 
+         if (specparm .ge. oneminus) specparm = oneminus
+         specmult = 4._rb*(specparm)
+         js = 1 + int(specmult)
+         fs = mod(specmult, 1._rb )
+         fac000 = (1._rb - fs) * fac00(lay)
+         fac010 = (1._rb - fs) * fac10(lay)
+         fac100 = fs * fac00(lay)
+         fac110 = fs * fac10(lay)
+         fac001 = (1._rb - fs) * fac01(lay)
+         fac011 = (1._rb - fs) * fac11(lay)
+         fac101 = fs * fac01(lay)
+         fac111 = fs * fac11(lay)
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(28) + js
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(28) + js
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng28
+            taug(lay,ngs27+ig) = speccomb * &
+                (fac000 * absb(ind0,ig) + &
+                 fac100 * absb(ind0+1,ig) + &
+                 fac010 * absb(ind0+5,ig) + &
+                 fac110 * absb(ind0+6,ig) + &
+                 fac001 * absb(ind1,ig) + &
+                 fac101 * absb(ind1+1,ig) + &
+                 fac011 * absb(ind1+5,ig) + &
+                 fac111 * absb(ind1+6,ig)) 
+!            ssa(lay,ngs27+ig) = tauray/taug(lay,ngs27+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs27+ig) = sfluxref(ig,js) &
+               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs27+ig) = sfluxref(ig,js) + &
+                         fs * (sfluxref(ig,js+1) - sfluxref(ig,js))
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs27+ig) = svar_f * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs27+ig) = svar_f_bnd(ngb(ngs27+ig)) * (facbrght(ig,js) + &
+                         fs * (facbrght(ig,js+1) - facbrght(ig,js))) + &
+                         svar_s_bnd(ngb(ngs27+ig)) * (snsptdrk(ig,js) + &
+                         fs * (snsptdrk(ig,js+1) - snsptdrk(ig,js))) + &
+                         svar_i_bnd(ngb(ngs27+ig)) * (irradnce(ig,js) + &
+                         fs * (irradnce(ig,js+1) - irradnce(ig,js)))
+            taur(lay,ngs27+ig) = tauray
+         enddo
+      enddo
+
+      end subroutine taumol28
+
+!----------------------------------------------------------------------------
+      subroutine taumol29
+!----------------------------------------------------------------------------
+!
+!     band 29:  820-2600 cm-1 (low - h2o; high - co2)
+!
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parrrsw, only : ng29, ngs28
+      use rrsw_kg29, only : absa, ka, absb, kb, forref, selfref, &
+                            sfluxref, absh2o, absco2, rayl, &
+                            irradnce, facbrght, snsptdrk
+      use rrsw_wvn, only : ngb
+
+! ------- Declarations -------
+
+! Local
+
+      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &
+                          layreffr
+      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &
+                       fac110, fac111, fs, speccomb, specmult, specparm, &
+                       tauray
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+      layreffr = 49
+
+! Lower atmosphere loop
+      do lay = 1, laytrop
+         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(29) + 1
+         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(29) + 1
+         inds = indself(lay)
+         indf = indfor(lay)
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng29
+            taug(lay,ngs28+ig) = colh2o(lay) * &
+               ((fac00(lay) * absa(ind0,ig) + &
+                 fac10(lay) * absa(ind0+1,ig) + &
+                 fac01(lay) * absa(ind1,ig) + &
+                 fac11(lay) * absa(ind1+1,ig)) + &
+                 selffac(lay) * (selfref(inds,ig) + &
+                 selffrac(lay) * &
+                 (selfref(inds+1,ig) - selfref(inds,ig))) + &
+                 forfac(lay) * (forref(indf,ig) + & 
+                 forfrac(lay) * &
+                 (forref(indf+1,ig) - forref(indf,ig)))) &
+                 + colco2(lay) * absco2(ig) 
+!            ssa(lay,ngs28+ig) = tauray/taug(lay,ngs28+ig)
+            taur(lay,ngs28+ig) = tauray
+         enddo
+      enddo
+
+      laysolfr = nlayers
+
+! Upper atmosphere loop
+      do lay = laytrop+1, nlayers
+         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &
+            laysolfr = lay
+         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(29) + 1
+         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(29) + 1
+         tauray = colmol(lay) * rayl
+
+         do ig = 1, ng29
+            taug(lay,ngs28+ig) = colco2(lay) * &
+                (fac00(lay) * absb(ind0,ig) + &
+                 fac10(lay) * absb(ind0+1,ig) + &
+                 fac01(lay) * absb(ind1,ig) + &
+                 fac11(lay) * absb(ind1+1,ig)) &  
+                 + colh2o(lay) * absh2o(ig) 
+!            ssa(lay,ngs28+ig) = tauray/taug(lay,ngs28+ig)
+            if (lay .eq. laysolfr) sfluxzen(ngs28+ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .lt. 0) &
+               sfluxzen(ngs28+ig) = sfluxref(ig) 
+            if (lay .eq. laysolfr .and. isolvar .ge. 0 .and. isolvar .le. 2) &
+               ssi(ngs28+ig) = svar_f * facbrght(ig) + &
+                         svar_s * snsptdrk(ig) + &
+                         svar_i * irradnce(ig)
+            if (lay .eq. laysolfr .and. isolvar .eq. 3) &
+               ssi(ngs28+ig) = svar_f_bnd(ngb(ngs28+ig)) * facbrght(ig) + &
+                         svar_s_bnd(ngb(ngs28+ig)) * snsptdrk(ig) + &
+                         svar_i_bnd(ngb(ngs28+ig)) * irradnce(ig)
+            taur(lay,ngs28+ig) = tauray
+         enddo
+      enddo
+
+      end subroutine taumol29
+
+      end subroutine taumol_sw
+
+      end module rrtmg_sw_taumol
+
diff --git a/radiation/src/rrtmg_sw_vrtqdr.f90 b/radiation/src/rrtmg_sw_vrtqdr.f90
new file mode 100644
index 0000000000000000000000000000000000000000..5d037d32a1445e1edddb0283305f3b837c390573
--- /dev/null
+++ b/radiation/src/rrtmg_sw_vrtqdr.f90
@@ -0,0 +1,173 @@
+!     path:      $Source$
+!     author:    $Author$
+!     revision:  $Revision$
+!     created:   $Date$
+!
+      module rrtmg_sw_vrtqdr
+
+!----------------------------------------------------------------------------
+! Copyright (c) 2002-2020, Atmospheric & Environmental Research, Inc. (AER)
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!  * Redistributions of source code must retain the above copyright
+!    notice, this list of conditions and the following disclaimer.
+!  * Redistributions in binary form must reproduce the above copyright
+!    notice, this list of conditions and the following disclaimer in the
+!    documentation and/or other materials provided with the distribution.
+!  * Neither the name of Atmospheric & Environmental Research, Inc., nor
+!    the names of its contributors may be used to endorse or promote products
+!    derived from this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., 
+! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 
+! THE POSSIBILITY OF SUCH DAMAGE.
+!                        (http://www.rtweb.aer.com/)                        
+!----------------------------------------------------------------------------
+
+! ------- Modules -------
+
+      use parkind, only: im => kind_im, rb => kind_rb
+!      use parrrsw, only: ngptsw
+
+      implicit none
+
+      contains
+
+! --------------------------------------------------------------------------
+      subroutine vrtqdr_sw(klev, kw, &
+                           pref, prefd, ptra, ptrad, &
+                           pdbt, prdnd, prup, prupd, ptdbt, &
+                           pfd, pfu)
+! --------------------------------------------------------------------------
+ 
+! Purpose: This routine performs the vertical quadrature integration
+!
+! Interface:  *vrtqdr_sw* is called from *spcvrt_sw* and *spcvmc_sw*
+!
+! Modifications.
+! 
+! Original: H. Barker
+! Revision: Integrated with rrtmg_sw, J.-J. Morcrette, ECMWF, Oct 2002
+! Revision: Reformatted for consistency with rrtmg_lw: MJIacono, AER, Jul 2006
+!
+!-----------------------------------------------------------------------
+
+! ------- Declarations -------
+
+! Input
+
+      integer(kind=im), intent (in) :: klev                   ! number of model layers
+      integer(kind=im), intent (in) :: kw                     ! g-point index
+
+      real(kind=rb), intent(in) :: pref(:)                    ! direct beam reflectivity
+                                                              !   Dimensions: (nlayers+1)
+      real(kind=rb), intent(in) :: prefd(:)                   ! diffuse beam reflectivity
+                                                              !   Dimensions: (nlayers+1)
+      real(kind=rb), intent(in) :: ptra(:)                    ! direct beam transmissivity
+                                                              !   Dimensions: (nlayers+1)
+      real(kind=rb), intent(in) :: ptrad(:)                   ! diffuse beam transmissivity
+                                                              !   Dimensions: (nlayers+1)
+
+      real(kind=rb), intent(in) :: pdbt(:)
+                                                              !   Dimensions: (nlayers+1)
+      real(kind=rb), intent(in) :: ptdbt(:)
+                                                              !   Dimensions: (nlayers+1)
+
+      real(kind=rb), intent(inout) :: prdnd(:)
+                                                              !   Dimensions: (nlayers+1)
+      real(kind=rb), intent(inout) :: prup(:)
+                                                              !   Dimensions: (nlayers+1)
+      real(kind=rb), intent(inout) :: prupd(:)
+                                                              !   Dimensions: (nlayers+1)
+
+! Output
+      real(kind=rb), intent(out) :: pfd(:,:)                  ! downwelling flux (W/m2)
+                                                              !   Dimensions: (nlayers+1,ngptsw)
+                                                              ! unadjusted for earth/sun distance or zenith angle
+      real(kind=rb), intent(out) :: pfu(:,:)                  ! upwelling flux (W/m2)
+                                                              !   Dimensions: (nlayers+1,ngptsw)
+                                                              ! unadjusted for earth/sun distance or zenith angle
+
+! Local
+
+      integer(kind=im) :: ikp, ikx, jk
+
+      real(kind=rb) :: zreflect
+      real(kind=rb) :: ztdn(klev+1)  
+
+! Definitions
+!
+! pref(jk)   direct reflectance
+! prefd(jk)  diffuse reflectance
+! ptra(jk)   direct transmittance
+! ptrad(jk)  diffuse transmittance
+!
+! pdbt(jk)   layer mean direct beam transmittance
+! ptdbt(jk)  total direct beam transmittance at levels
+!
+!-----------------------------------------------------------------------------
+                   
+! Link lowest layer with surface
+             
+      zreflect = 1._rb / (1._rb - prefd(klev+1) * prefd(klev))
+      prup(klev) = pref(klev) + (ptrad(klev) * &
+                 ((ptra(klev) - pdbt(klev)) * prefd(klev+1) + &
+                   pdbt(klev) * pref(klev+1))) * zreflect
+      prupd(klev) = prefd(klev) + ptrad(klev) * ptrad(klev) * &
+                    prefd(klev+1) * zreflect
+
+! Pass from bottom to top 
+
+      do jk = 1,klev-1
+         ikp = klev+1-jk                       
+         ikx = ikp-1
+         zreflect = 1._rb / (1._rb -prupd(ikp) * prefd(ikx))
+         prup(ikx) = pref(ikx) + (ptrad(ikx) * &
+                   ((ptra(ikx) - pdbt(ikx)) * prupd(ikp) + &
+                     pdbt(ikx) * prup(ikp))) * zreflect
+         prupd(ikx) = prefd(ikx) + ptrad(ikx) * ptrad(ikx) * &
+                      prupd(ikp) * zreflect
+      enddo
+    
+! Upper boundary conditions
+
+      ztdn(1) = 1._rb
+      prdnd(1) = 0._rb
+      ztdn(2) = ptra(1)
+      prdnd(2) = prefd(1)
+
+! Pass from top to bottom
+
+      do jk = 2,klev
+         ikp = jk+1
+         zreflect = 1._rb / (1._rb - prefd(jk) * prdnd(jk))
+         ztdn(ikp) = ptdbt(jk) * ptra(jk) + &
+                    (ptrad(jk) * ((ztdn(jk) - ptdbt(jk)) + &
+                     ptdbt(jk) * pref(jk) * prdnd(jk))) * zreflect
+         prdnd(ikp) = prefd(jk) + ptrad(jk) * ptrad(jk) * &
+                      prdnd(jk) * zreflect
+      enddo
+    
+! Up and down-welling fluxes at levels
+
+      do jk = 1,klev+1
+         zreflect = 1._rb / (1._rb - prdnd(jk) * prupd(jk))
+         pfu(jk,kw) = (ptdbt(jk) * prup(jk) + &
+                      (ztdn(jk) - ptdbt(jk)) * prupd(jk)) * zreflect
+         pfd(jk,kw) = ptdbt(jk) + (ztdn(jk) - ptdbt(jk)+ &
+                      ptdbt(jk) * prup(jk) * prdnd(jk)) * zreflect
+      enddo
+
+      end subroutine vrtqdr_sw
+
+      end module rrtmg_sw_vrtqdr